% See the constructor file KP-cons-4Dtorus-text in this directory.

% reset all % Now done in the button definition.

Draw = f

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

construct 4Dtorus-text   % Image for this is in the resources/images directory

rot unit
rotate x -45
rotate y 135


scale = 0.0363
4dto3d hopf
spin 180 270 0
pop

Draw=t


backface f
disp
disp   %  Only one disp doesn't always work.  Why?


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

smov 360 -.2 .3 -.5

4dplane 1 1 3

reset sliders

smov 1000000 3 5 7














