NB. Boy's surface

boys=: 3 : 0
u=. steps 0 1p1 25
v=. steps 0 1p1 25
s2=. %:2
sin2=. sin @ (2&*)
sin3=. sin @ (3&*)
cos2=. cos @ (2&*)
d=. s2 - (sin2 u) */ (sin3 v)
r=. 2r3 * (cos u) % d
x=. r * ((cos u) */ (cos2 v)) + s2 * (sin u) */ (cos v)
y=. r * ((cos u) */ (sin2 v)) - s2 * (sin u) */ (sin v)
z=. s2 * (*: cos u) % s2 - (sin2 u) */ (sin2 v)
1.25*makexyz fit11 each x;y;z
)

ROTXYZ=: 175 5 _15
TRNXYZ=: 0.05 0.075 0
COLOR=: ORCHID
CLEARCOLOR=: IVORY

demo=: 3 : 0
stdlistlight''
2 drawsurface makenewlist boys''
)
