debug-shapes-uniforms

Vocabulary

game.debug.private

Definition

USING: gpu.render sequences ;

IN: game.debug.private

TUPLE: debug-shapes-uniforms < uniform-tuple
    { u_mvp_matrix sequence initial: f } ;

Methods

USING: combinators game.debug.private gpu.render.private kernel
;

M: debug-shapes-uniforms (bind-uniform-textures)
    nip { } cleave ;


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

M: debug-shapes-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "u_mvp_matrix" uniform-index ] [ u_mvp_matrix>> ]
            bi* [ 1 0 ] dip 4 4 >uniform-matrix
            glUniformMatrix4fv
        ]
    } 2cleave ;