%reset all  % Now done in the button definition.

back=0


%4dplane 0 0 3
%4dplane 1 1 3
%4dplane 2 2 3

4dhmult = 3.47
4dsat = 1
   
4dsm=0
4dscm=1
panel set 1

cons 4dtorus 30 30 4 4

%cons 4dtorus 60 10 4 4

rot unit
rotate x 90

scale = 0.0363
4dto3d hopf
spin 0 0 0

pop
backface f
disp


alert "Variation on B with Hopf map (click left mouse to stop)" OK 
reset sliders

smov 100000 .2 .3 .5

%smov 100000 1 2 1










