(step-texture) ( texture ramp texture dim -- )

Vocabulary

gpu.effects.step

Inputs

texture	an object
ramp	an object
texture	an object
dim	an object

Outputs

None

Definition

USING: gpu.render gpu.shaders gpu.state gpu.util kernel
math.rectangles ;

IN: gpu.effects.step

: (step-texture) ( texture ramp texture dim -- )
    { 0 0 } swap <rect> <viewport-state> set-gpu-state
    [ step-uniforms boa ] dip {
        { "primitive-mode" [ 2drop triangle-strip-mode ] }
        { "uniforms" [ drop ] }
        {
            "vertex-array"
            [
                2drop
                <window-vertex-buffer> step-program
                <program-instance> <vertex-array>
            ]
        }
        { "indexes" [ 2drop T{ index-range { count 4 } } ] }
        { "framebuffer" [ nip ] }
    } 2<render-set> render ;