//legendre1.bvr\n\n//Parametric surface\nt=parametricSurface\nt.setMinMax=s,0,1.6\nt.setMinMax=t,0,6.5\nt.setEquation=x,(2*cos(s)*sin(s)*cos(t))\nt.setEquation=y,(2*cos(s)*sin(s)*sin(t))\nt.setEquation=z,(2*cos(s)*cos(s))\nt.setSegmentCount=30 \nt.color=blue\nt.spawn\n\ns=parametricSurface\ns.setMinMax=s,1.6,3.3\ns.setMinMax=t,0,6.5\ns.setEquation=x,(2*abs(cos(s))*sin(s)*cos(t))\ns.setEquation=y,(2*abs(cos(s))*sin(s)*sin(t))\ns.setEquation=z,(2*abs(cos(s))*cos(s))\ns.setSegmentCount=30 \ns.color=red\ns.spawn\n\nl60=parametricCurve\nl60.setMinMax=t,0,2\nl60.setEquation=x,(t)\nl60.setEquation=y,(0)\nl60.setEquation=z,(t/2)\nl60.setThickness=0.03\nl60.setSegmentCount=20\nl60.color=green\nl60.spawn\n\nl30=parametricCurve\nl30.setMinMax=t,0,3\nl30.setEquation=x,(t/2)\nl30.setEquation=y,(0)\nl30.setEquation=z,(t)\nl30.setThickness=0.03\nl30.setSegmentCount=20\nl30.color=green\nl30.spawn\n\nl0=parametricCurve\nl0.setMinMax=t,0,3\nl0.setEquation=x,(0)\nl0.setEquation=y,(0)\nl0.setEquation=z,(t)\nl0.setThickness=0.03\nl0.setSegmentCount=20\nl0.color=green\nl0.spawn\n\nl90=parametricCurve\nl90.setMinMax=t,0,2\nl90.setEquation=x,(t)\nl90.setEquation=y,(0)\nl90.setEquation=z,(0)\nl90.setThickness=0.03\nl90.setSegmentCount=20\nl90.color=green\nl90.spawn\n\nl120=parametricCurve\nl120.setMinMax=t,0,2\nl120.setEquation=x,(t)\nl120.setEquation=y,(0)\nl120.setEquation=z,(-t/2)\nl120.setThickness=0.03\nl120.setSegmentCount=20\nl120.color=green\nl120.spawn\n\nl150=parametricCurve\nl150.setMinMax=t,0,3\nl150.setEquation=x,(t/2)\nl150.setEquation=y,(0)\nl150.setEquation=z,(-t)\nl150.setThickness=0.03\nl150.setSegmentCount=20\nl150.color=green\nl150.spawn\n\nl180=parametricCurve\nl180.setMinMax=t,0,3\nl180.setEquation=x,(0)\nl180.setEquation=y,(0)\nl180.setEquation=z,(-t)\nl180.setThickness=0.03\nl180.setSegmentCount=20\nl180.color=green\nl180.spawn\n