NB. random triangles
NB.
NB. Redisplay for a new random set
NB.
NB. glrotate graph, showing the
NB. triangles' intersections

demo=: 3 : 0
stdlist''
make_triangles makenewlist 6
)

make_triangle=: 3 : 0
v=. 35 %~ _50+?3 3$100
glBegin GL_POLYGON
glcolor y.
glVertex v
glEnd''
)

make_triangles=: 3 : 0
clr=. y. deal STDCLR
make_triangle"1 clr
)
