More Junk

> jpgplot( tubecurveplot( Helix( Lemniscate(1,t), 0.1, t),
0.10, t=0..10, theta=0..2*Pi, axes=box,
scaling=unconstrained, grid=[100,10] ), `m:/foo.jpg` );

> resetplot();

> foo := kappa( TorusKnot(a,b,c,n,m,t), t ):

> foo := simptrig( simplify( expand(foo,trig), trig ), m*t );

> kap := function( foo, a,b,c,n,m,t ):

> tor := simptrig( simplify( tau( TorusKnot(a,b,c,n,m,t), t ), trig ), m*t );

> tor := function( tor, a,b,c,n,m,t ):

> tubecurveplot( TorusKnot(10,3,5,2,5,t), 1.2, t=0..2*Pi,
theta=0.5*Pi..2.0*Pi, axes=box, grid=[50,12],
orientation=[110,60],
color=5*tor(10,3,5,2,5,t) );