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

Vocabulary

spheres

Inputs

program	an object
center	an object
radius	an object
surfacecolor	an object

Outputs

None

Definition

USING: opengl.gl sequences ;

IN: spheres

:: (draw-colored-sphere)
    ( program center radius surfacecolor -- )
    program "surface_color" glGetAttribLocation
    surfacecolor first4 glVertexAttrib4f
    program center radius (draw-sphere) ;