GraphingCalculator 3.2;
Window 43 12 467 662;
PaneDivider 0;
FontSizes 14 12 10;
BackgroundColor 226 221 89;
Slider 0 1;
SliderSteps 100;
SliderControlValue 68;
SliderMoving 1;
SliderVariable s;
2D.BottomLeft -1.546875 -2.921875;
2D.Axes 0;
2D.GraphPaper 0;
Expr function(P,t)=vector(3*cos(2*pi*t),2*sin(2*pi*t));
Color 2;
Expr function(V,t)=vector(-(6*pi*sin(2*pi*t)),4*pi*cos(2*pi*t));
Color 8;
Expr vector(x,y)=function(P,0.1+t*0.2);
Color 2;
Expr function(P,0.1);
Color 2;
Expr function(P,0.3);
Color 6;
Expr ?;
Color 2;
Expr vector(x,y)=vector(3*cos(0.2*pi)+[2*t-1]*[-(6*pi*sin(0.2*pi))]/4,2*sin(0.2*pi)+[2*t-1]*4*pi*cos(0.2*pi)/4);
Color 2;
Expr vector(x,y)=vector(3*cos(2*pi*[0.2*s+0.1])+[2*t-1]/4*[-(6*pi*sin(2*pi*[0.2*s+0.1]))],2*sin(2*pi*[0.2*s+0.1])+[2*t-1]/4*4*pi*cos(2*pi*[0.2*s+0.1]));
Expr function(Q,s)=-vector(3*[sin(0.2*pi)-sin([0.4*pi*s+0.2*pi])]/sin([0.4*pi*s]),[2*[-cos(0.2*pi)+cos([0.4*pi*s+0.2*pi])]]/sin([0.4*pi*s]));
Color 4;
Expr abs(vector(x,y)-function(Q,s))<0.5,y<2*sin(0.2*pi)+[2*[4*[x-(3*cos(0.2*pi))]/[-(6*pi*sin(0.2*pi))]+1]/2-1]*4*pi*cos(0.2*pi)/4,y>2*sin(2*pi*[0.2*s+0.1])+[[4*[x-(3*cos(2*pi*[0.2*s+0.1]))]/[-(6*pi*sin(2*pi*[0.2*s+0.1]))]+1]-1]/4*4*pi*cos(2*pi*[0.2*s+0.1]);
Color 17;
Expr abs(vector(x,y)-function(Q,s))<0.5,y>2*sin(0.2*pi)+[2*[4*[x-(3*cos(0.2*pi))]/[-(6*pi*sin(0.2*pi))]+1]/2-1]*4*pi*cos(0.2*pi)/4,y<2*sin(2*pi*[0.2*s+0.1])+[[4*[x-(3*cos(2*pi*[0.2*s+0.1]))]/[-(6*pi*sin(2*pi*[0.2*s+0.1]))]+1]-1]/4*4*pi*cos(2*pi*[0.2*s+0.1]);
Color 17;
Expr abs(vector(x,y)-function(Q,s))<0.5;
Color 3;
Expr function(P,0.1+s*0.2);