debug-text-uniforms

Vocabulary

game.debug.private

Definition

USING: gpu.render gpu.textures sequences ;

IN: game.debug.private

TUPLE: debug-text-uniforms < uniform-tuple
    { u_text_map texture initial: T{ texture } }
    { u_background_color sequence initial: f } ;

Methods

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

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


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

M: debug-text-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "u_text_map" uniform-index ] [ u_text_map>> ] bi*
            drop 0 glUniform1i
        ]
        [
            [ "u_background_color" uniform-index ]
            [ u_background_color>> ] bi* bind-uniform-vec3
        ]
    } 2cleave ;