In[]:=
(*Alinehavingaconstantlengthisleanedagainsttwoperpendicularlines.Thelinetouchesanastroidasitslidesalongtheaxes-Thisistheladdermodel*)Manipulate[par=ParametricPlot3D[{Sin[x]^3,Cos[x]^3,0},{x,0,2Pi},PlotStyle{Blue,Thick}][[1]];c1=Table[Tube[{{Sin[iPi/n/2],0,0},{0,Cos[iPi/n/2],0}},0.005],{i,n}];cx=Cylinder[{{-1,0,0},{1,0,0}},0.01];cy=Cylinder[{{0,-1,0},{0,1,0}},0.01];crun={Green,Cylinder[{{Sin[Pi/n+2m/n],0,0},{0,Cos[Pi/n+2m/n],0}},0.01]};Graphics3D[{crun,c1,par,Red,cx,Green,cy},ImageSize400,BoxedFalse,ViewPoint{0,-10,40}],{{n,2,"steps in a turn"},2,100,2},{{m,1,"orange bar"},0,4n,Appearance"Labeled"},TrackedSymbols{n,m}]
Out[]=
