NB. Whitney's Umbrella

whitney=: */~ ; (+/~:~) ; *:

TDATA=: 1.25 * fit11 makexyz whitney steps _1 1 15
TCLR=: (0 0 0 ,: 1 1 1) hue fit01 -2{"1 TDATA
TPATTERN=: 4 4$, RGBA WHITE,GRAY,WHITE,:WHITE
TPATPOS=: */~ int01 <:#TDATA

ROTXYZ=: 50 0 195
TRNXYZ=: 0 0.25 0
CLEARCOLOR=: 0.9 1 0.9
COLORMATERIAL=: 0
AMBIENT=: 0.8
DIFFUSE=: LIGHTSKYBLUE
SPECULAR=: DIFFUSE
SHININESS=: 50 0 0 1

demo=: 3 : 0
stdlistlight''
gentexture2D TPATTERN
2 drawsurface makenewlist TDATA;TCLR;TPATPOS
)
