//Johnbarto.bvr\n\n//Parametric surface\nball1=parametricSurface\nball1.setMinMax=s,0,3.3\nball1.setMinMax=t,0,6.6\nball1.setEquation=x,(4*cos(t)*sin(s))\nball1.setEquation=y,(4*sin(t)*sin(s))\nball1.setEquation=z,(4*cos(s))\nball1.setSegmentCount=30\nball1.color=blue\nball1.spawn\n\n//Parametric surface\nplane=parametricSurface\nplane.setMinMax=s,-5,5\nplane.setMinMax=t,-5,5\nplane.setEquation=x,(3)\nplane.setEquation=y,(t)\nplane.setEquation=z,(s)\nplane.setSegmentCount=30\nplane.color=green\nplane.spawn\n\n//Parametric curve\nline=parametricCurve\nline.setMinMax=t,0,6.6\nline.setEquation=x,(3)\nline.setEquation=y,(2.5*sin(t))\nline.setEquation=z,(2.5*cos(t))\nline.setSegmentCount=30\nline.setThickness=0.3\nline.color=magenta\nline.spawn\n\n\n