sphere-uniforms

Vocabulary

gpu.demos.raytrace

Definition

USING: gpu.render math sequences ;

IN: gpu.demos.raytrace

TUPLE: sphere-uniforms < uniform-tuple
    { center sequence initial: f } { radius float initial: 0.0 }
    { color sequence initial: f } ;

Methods

USING: combinators gpu.demos.raytrace gpu.render.private kernel
;

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


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

M: sphere-uniforms (bind-uniforms)
    2dup M\ uniform-tuple (bind-uniforms) {
        [
            [ "center" uniform-index ] [ center>> ] bi*
            bind-uniform-vec3
        ]
        [
            [ "radius" uniform-index ] [ radius>> ] bi*
            glUniform1f
        ]
        [
            [ "color" uniform-index ] [ color>> ] bi*
            bind-uniform-vec4
        ]
    } 2cleave ;