GraphingCalculator 4;
Window 65 46 720 1352;
PaneDivider 398;
FontSizes 16;
BackgroundType 0;
BackgroundColor 10 0 20;
StackPanes 1;
Slider 0 360;
SliderSteps 360;
SliderControlValue 259;
T 0 6.283185307179586;
U 0 6.283185307179586;
V 0 6.283185307179586;
4D.X -1 1;
4D.Y -1 1;
4D.Z -1 1;
4D.W -1 1;
4D.Show4DxyPlane 0;
4D.Show4Daxes 0;
4D.Depth 1.7330909743;
4D.View -0.3300623196395448 -0.5982015919092062 -0.09833572511907891 -0.7235632700434684 -0.8559750615695088 0.4706696374422264 -0.2118232388589623 0.03012809063905098 0.04509487962453953 -0.3315583280181226 -0.8661433350837234 0.3712563131512186 -0.3953884304847777 -0.557399338851491 0.4418786301101838 0.5811344442904994;
4D.Speed1 0.581776417331443;
4D.Speed2 0.581776417331443;
4D.Axis1 0 0 -1;
4D.Axis2 0 0 -1;
Text "Clifford Torus rotating along x,v plane:
by Guido 'wugi' Wuyts, 2016
http://home.scarlet.be/wugi/qbComplex.html 

(use xy, xu etc roller sliders to rotate along other planes)
";
Color 4;
Expr h=n*(pi/360);
Color 7;
Expr vector(x,y,u,v)=vector(cos(u)*cos([h])-(sin(v)*sin([h])),sin(u),cos(v),cos(u)*sin([h])+sin(v)*cos([h]));
Color 6;
Expr vector(x,y,u,v)=vector(cos(t)*cos([h])-(sin([a*(pi/9)])*sin([h])),sin(t),cos([a*(pi/9)]),cos(t)*sin([h])+sin([a*(pi/9)])*cos([h])),in(a,set(0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,8,17));
Color 5;
Expr vector(x,y,u,v)=vector(cos([a*(pi/9)])*cos([h])-(sin(t)*sin([h])),sin([a*(pi/9)]),cos(t),cos([a*(pi/9)])*sin([h])+sin(t)*cos([h])),in(a,set(0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,8,17));
Text "Projection Cyclide, hidden. If shown, change scale to smaller...";
Color 3;
Expr d=2^0.5,p=19,q=20;
Color 17;
Expr vector(x,y,u,v)=vector(cos(u)*cos([h])-(sin(v)*sin([h])),sin(u),cos(v),0)*(d/(d-[cos(u)*sin([h])+sin(v)*cos([h])]));
Color 17;
Expr vector(x,y,u,v)=vector(cos(t)*cos([h])-(sin([a*(pi/9)])*sin([h])),sin(t),cos([a*(pi/9)]),0)*(d/(d-[cos(t)*sin([h])+sin([a*(pi/9)])*cos([h])])),in(a,set(0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,8,17));
Color 17;
Expr vector(x,y,u,v)=vector(cos([a*(pi/9)])*cos([h])-(sin(t)*sin([h])),sin([a*(pi/9)]),cos(t),0)*(d/(d-[cos([a*(pi/9)])*sin([h])+sin(t)*cos([h])])),in(a,set(0,1,2,3,4,5,6,7,9,10,11,12,13,14,15,16,8,17));
Color 7;
Expr vector(0,0,0,0),vector(0,0,0,d);
Expr vector(1,0,0,0),vector(1,1,0,0),vector(0,1,0,0),vector(0,1,1,0),vector(0,0,1,0),vector(1,0,1,0),vector(1,0,0,0);
Expr vector(0,0,0,0),vector(1,0,0,0);
Expr vector(0,0,0,0),vector(0,1,0,0);
Expr vector(0,0,0,0),vector(0,0,1,0);