// Mobius Strip.bvr\n \n// Parametric surface\ncyl=parametricSurface\ncyl.setMinMax=s,-1,1\ncyl.setMinMax=t,0,6.6\ncyl.setEquation=x,((3+s*cos(t/2))*cos(t))\ncyl.setEquation=y,((3+s*cos(t/2))*sin(t))\ncyl.setEquation=z,(s*sin(t/2))\ncyl.setSegmentCount=20\ncyl.color=blue\ncyl.spawn\n\n//Mobius Curve\n\ncurve=parametricCurve\ncurve.setMinMax=t,0,13.2\ncurve.setEquation=x,((1/5)*((-3*cos(t)*sin(t/2))/((9*cos(t)*cos(t)*sin(t/2)*sin(t/2)+9*sin(t)*sin(t)*sin(t/2)*sin(t/2)+(3*sin(t)*sin(t)*cos(t/2)+3*cos(t)*cos(t)*cos(t/2))^2)^(1/2)))+3*cos(t))\ncurve.setEquation=y,((1/5)*((-3*sin(t)*sin(t/2))/((9*cos(t)*cos(t)*sin(t/2)*sin(t/2)+9*sin(t)*sin(t)*sin(t/2)*sin(t/2)+(3*sin(t)*sin(t)*cos(t/2)+3*cos(t)*cos(t)*cos(t/2))^2)^(1/2)))+3*sin(t)) \ncurve.setEquation=z,((1/5)*((3*sin(t)*sin(t)*cos(t/2)+3*cos(t)*cos(t)*cos(t/2))/((9*cos(t)*cos(t)*sin(t/2)*sin(t/2)+9*sin(t)*sin(t)*sin(t/2)*sin(t/2)+(3*sin(t)*sin(t)*cos(t/2)+3*cos(t)*cos(t)*cos(t/2))^2)^(1/2))))\ncurve.setSegmentCount=50\ncurve.setThickness=0.2\ncurve.color=aqua\ncurve.spawn\n