<model-uniforms> ( world -- uniforms )

Vocabulary

model-viewer

Inputs

world

an object

Outputs

uniforms

an object

Definition

USING: accessors gpu.util.wasd kernel sequences ;

IN: model-viewer

:: <model-uniforms> ( world -- uniforms )
    world model-state>> [ textures>> ] [ bumps>> ] [ kas>> ] tri 
    [| texture bump ka |
        world wasd-mv-matrix world wasd-p-matrix texture bump ka
        { 0.5 0.5 0.5 } world location>> model-uniforms boa
    ] 3map ;