(draw-sphere) ( program center radius -- )


Vocabulary
spheres

Inputs and outputs
programan object
centeran object
radiusan object


Definition


:: (draw-sphere) ( program center radius -- )
program "center" glGetAttribLocation
center first3 glVertexAttrib3f
program "radius" glGetAttribLocation radius glVertexAttrib1f
{ -1.0 -1.0 } { 2.0 2.0 } gl-fill-rect ;