USING: accessors combinators kernel opengl.demo-support
opengl.gl opengl.shaders ;

IN: spheres

: sphere-scene ( gadget -- )
16640 glClear [
solid-sphere-program>> [
{
[
"light_position" glGetUniformLocation
0.0 0.0 100.0 glUniform3f
]
[
{ 7.0 0.0 0.0 } 1.0
{ 1.0 0.0 0.0 1.0 } (draw-colored-sphere)
]
[
{ -7.0 0.0 0.0 } 1.0
{ 0.0 1.0 0.0 1.0 } (draw-colored-sphere)
]
[