update to J601 code
converted to 1.6 markup
|Deletions are marked like this.||Additions are marked like this.|
|Line 6:||Line 6:|
|Line 41:||Line 41:|
The vertices are colored according to their position (-1,1 corresponds to RGB 0,255), and the faces filled in. Note that exactly the same technique can be used to color any solid, though typically extreme positions such as 1 0 0 (i.e. RGB 255 0 0) will not be found.
The J code to produce the graphic follows. vtx is a list of the solid's faces. colorit steps through each face, applying the glVertex and glcolor verbs, to define it as a vertex and as a color.
NB. colored solid NB. NB. the vertices are colored according to NB. their position, and the faces filled in. SOLID=: gscube'' NB. try gsdodecahedron'' GS_ROTXYZ=: 45 60 0 GS_CLEARCOLOR=: 0.1 0 0.2 1 paint=: 3 : 0 gsinit'' face=. 2 pick SOLID vtx=. 1.5*_3 [\"1 face clr=. gsfit01 vtx vtx make_colored"2 clr gsfini'' ) colorit=: (glVertex@[ gscolor)"1 make_colored=: 4 : 0 glBegin GL_POLYGON x colorit y glEnd '' )
The same code with cube replaced by icosahedron gives: