loading-uniforms

Vocabulary

gpu.demos.bunny

Definition

USING: gpu.render gpu.textures sequences ;

IN: gpu.demos.bunny

TUPLE: loading-uniforms < uniform-tuple
    { texcoord-scale sequence initial: f }
    { loading-texture texture initial: T{ texture } } ;

Methods

USING: accessors combinators gpu.demos.bunny gpu.render.private
kernel ;

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


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

M: loading-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "texcoord_scale" uniform-index ]
            [ texcoord-scale>> ] bi* bind-uniform-vec2
        ]
        [
            [ "loading_texture" uniform-index ]
            [ loading-texture>> ] bi* drop 0 glUniform1i
        ]
    } 2cleave ;