NB. basic demo 5
NB.
NB. shows transparent cylinders
NB.
NB. experiment with OPAQUE in range 0-1.

OPAQUE=: 0.75

ROTXYZ=: 310 0 45
AMBIENT=: 0.2
DIFFUSE=: 0.75
SPECULAR=: 1
CLEARCOLOR=: 0.6
CYLINDER=: 101

demo=: 3 : 0
stdblend''
QUADS=: gluNewQuadric''
drawcylinder makelist CYLINDER 0.6 0.6 2.5 40 1
stdlistlight''
drawcylinders makenewlist ''
)

drawcylinder=: 3 : 0
glTranslate 0 0,- -: 2{y.
gluQuadricDrawStyle QUADS,GLU_FILL
gluQuadricNormals QUADS,GLU_SMOOTH
gluCylinder QUADS,y.
)

drawcylinders=: 3 : 0
glPushMatrix''
glcolor RED,OPAQUE
glCallList CYLINDER
glPopMatrix''

glPushMatrix''
glRotate 90 1 0 0
glcolor BLUE,OPAQUE
glCallList CYLINDER
glPopMatrix''

glPushMatrix''
glRotate 90 0 1 0
glcolor LIMEGREEN,OPAQUE
glCallList CYLINDER
glPopMatrix''
)
