//Sphereandplane.bvr\n\n//srip\nstrip=parametricSurface\nstrip.setMinMax=s,-1,1\nstrip.setMinMax=t,0,6.5\nstrip.setEquation=x,((3+s*cos(t/2))*cos(t))\nstrip.setEquation=y,((3+s*cos(t/2))*sin(t))\nstrip.setEquation=z,(s*sin(t/2))\nstrip.setSegmentCount=30 \nstrip.color=red\nstrip.spawn\n\n//curve\ncurve=parametricCurve\ncurve.setMinMax=t,0,13\ncurve.setEquation=x,(3*cos(t)+(.2*cos(t)*sin(t/2)))\ncurve.setEquation=y,(3*sin(t)+(.2*sin(t)*sin(t/2)))\ncurve.setEquation=z,(-.2*cos(t/2))\ncurve.setSegmentCount=70\ncurve.setThickness=.05\ncurve.color=blue\ncurve.spawn\n\n\n\n\n\n