RevanSpherePlane.bvr\n\n\n//Parametric surface sphere\nt=parametricSurface\nt.setMinMax=s,0,3.14159\nt.setMinMax=t,0,6.6\nt.setEquation=x,(4*(cos(t)*sin(s)))\nt.setEquation=y,(4*(sin(s)*sin(t)))\nt.setEquation=z,(4*(cos(s)))\nt.setSegmentCount=30 \nt.color=blue\nt.spawn\n\n//plane\np=parametricSurface\np.setMinMax=s,-4,4\np.setMinMax=t,-4,4\np.setEquation=x,(t)\np.setEquation=y,(3)\np.setEquation=z,(s)\np.setSegmentCount=30\np.color=green\np.spawn\n\n//Parametric curve\nhelix=parametricCurve\nhelix.setMinMax=t,-12,12\nhelix.setEquation=x,(2.7*(cos(t)))\nhelix.setEquation=y,(3)\nhelix.setEquation=z,(2.7*(sin(t)))\nhelix.setSegmentCount=70\nhelix.setThickness=0.15\nhelix.color=red\nhelix.spawn\n\n//Vector\nz=vecto\n[rDraw\nz.setTail=0,0,0\nz.setHead=0,0,2\nz.color=blue\nz.setRadius=0.25\nz.spawn\n\n