NB. 3 braid
NB.
NB. The display shows the polygons
NB. generated by the nurbs renderer.
NB.
NB. Press F6 or other fkeys to rotate.
NB.
NB. Try commenting out the assignment
NB. of DISPLAYMODE, then redisplay

DISPLAYMODE=: GLU_OUTLINE_POLYGON

r=. 3"_ + sin@(10&*)
fx=. r * cos@(3&*)
fy=. r * sin@(3&*)
fz=. 2"_ * sin@(5&*)
fn=: (0.6"_ * fx,fy,fz) f.
BRAID=: fn makefknot (steps 0 2p1 50);11;0.7

demo=: 3 : 0
knotdefault''
COLOR=: 0 1 1
stdlistlight''
drawsurface makenewlist BRAID
)
