step-uniforms

Vocabulary

gpu.effects.step

Definition

USING: gpu.render gpu.textures ;

IN: gpu.effects.step

TUPLE: step-uniforms < uniform-tuple
    { texture texture initial: T{ texture } }
    { ramp texture initial: T{ texture } } ;

Methods

USING: accessors combinators gpu.effects.step gpu.render.private
kernel ;

M: step-uniforms (bind-uniform-textures)
    nip {
        [ texture>> 0 (bind-texture-unit) ]
        [ ramp>> 1 (bind-texture-unit) ]
    } cleave ;


USING: accessors combinators gpu.effects.step gpu.render
gpu.render.private gpu.shaders kernel opengl.gl ;

M: step-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "texture" uniform-index ] [ texture>> ] bi* drop
            0 glUniform1i
        ]
        [
            [ "ramp" uniform-index ] [ ramp>> ] bi* drop
            1 glUniform1i
        ]
    } 2cleave ;