window-point-uniforms

Vocabulary

gpu.util

Definition

USING: gpu.render gpu.textures math ;

IN: gpu.util

TUPLE: window-point-uniforms < uniform-tuple
    { texture texture initial: T{ texture } }
    { point_size float initial: 0.0 } ;

Methods

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

M: window-point-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-point-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "texture" uniform-index ] [ texture>> ] bi* drop
            0 glUniform1i
        ]
        [
            [ "point_size" uniform-index ] [ point_size>> ] bi*
            glUniform1f
        ]
    } 2cleave ;