window-uniforms

Vocabulary

gpu.util

Definition

USING: gpu.render gpu.textures ;

IN: gpu.util

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

Methods

USING: accessors combinators gpu.render.private gpu.util kernel
;

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


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

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