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

Vocabulary

spheres

Inputs

program	an object
center	an object
radius	an object

Outputs

None

Definition

USING: opengl opengl.gl sequences ;

IN: spheres

:: (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 ;