frame command "hopf \rr+-1 \rr+-1 \rr+-1, disp"

sbuff

func 1 frame 1 to 100
func 2 clrf zf;disp
func 3 clrf n
func 4 frame 1

% Hit F9 to create a new Hopf torus
% Hit F10 to view it 
% you might want to rotate the screen with the trackball and try F10 
% from a different view point.

func 8 coord /tmp/kp-hopf.dum;!fixit-hopf

func 9 frame 1;coord /tmp/kp-hopf.dum;!fixit-hopf
func 10 del all;clrf zf;disp;clrf n;read /tmp/kp-hopf.dum


func 11 <init-anim

draw spec
cyl = .02
ncur = 2
nseg = 8
scale = .8
back=0

func 12 <knotplotrc

persp 450 .1 102.2
