mvp-uniforms

Vocabulary

gpu.util.wasd

Definition

USING: gpu.render sequences ;

IN: gpu.util.wasd

TUPLE: mvp-uniforms < uniform-tuple
    { mv_matrix sequence initial: f }
    { p_matrix sequence initial: f } ;

Methods

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

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


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

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