NB. colored solid
NB.
NB. the vertices are colored according to
NB. their position, and the faces filled in.

SOLID=: cube''    NB. try dodecahedron''

ROTXYZ=: 45 60 0
CLEARCOLOR=: 0.1 0 0.2 1

demo=: 3 : 0
stdlist''
face=. 2 pick SOLID
vtx=. 1.5*_3 [\"1 face
clr=. fit01 vtx
startnewlist''
vtx make_colored"2 clr
endlist''
)

colorit=: (glVertex@[ glcolor)"1
make_colored=: colorit vtxlist GL_POLYGON
