NB. torus knot

V=. "_
fx=. cos@- + 1.5 V * cos@(3&*)
fy=. sin + 1.5 V * sin@(3&*)
fz=. sin@(4&*) + sin@(2&*) % 3:
fn=: (fx,fy,fz) f.
TORUSKNOT=: fn makefknot (steps 0 2p1 40);11;1

ROTXYZ=: 0 0 325

demo=: 3 : 0
knotdefault''
stdlistlight''
drawsurface makenewlist TORUSKNOT
)
