<sphere-uniforms> ( world -- uniforms )


Vocabulary
gpu.demos.raytrace

Inputs
worldan object


Outputs
uniformsan object


Definition
USING: accessors gpu.util.wasd kernel sequences ;

IN: gpu.demos.raytrace

: <sphere-uniforms> ( world -- uniforms )
[ wasd-mv-inv-matrix ] [ fov>> ] [
spheres>> [
[ sphere-center ] [ radius>> ] [ color>> ] tri
sphere-uniforms boa
] map
] tri -30.0
{ { 1.0 0.0 0.0 1.0 } { 1.0 1.0 1.0 1.0 } }
{ 0.15 0.15 1.0 1.0 } { 0.0 -1.0 -0.1 } raytrace-uniforms
boa ;