//planeandsphere.bvr\n//Miles Conner\n\n//sphere of radius 4 centered at the origin\nsphere=parametricSurface\nsphere.setMinMax=s,0,3.29 //real bounds 0, 3.14 (pi)\nsphere.setMinMax=t,0,6.6//real bounds 0, 6.28 (2pi)\nsphere.setEquation=x,(4*cos(t)*sin(s))\nsphere.setEquation=y,(4*sin(t)*sin(s))\nsphere.setEquation=z,(4*cos(s))\nsphere.setSegmentCount=20\nsphere.color=blue\nsphere.spawn\n\n//plane at x=3\nplane=parametricSurface\nplane.setMinMax=s,-6,6 //real bounds -infinity, infinity\nplane.setMinMax=t,-6,6 //real bounds -infinity, infinity\nplane.setEquation=x,(3)\nplane.setEquation=y,(s)\nplane.setEquation=z,(t)\nplane.setSegmentCount=20\nplane.color=green\nplane.spawn\n\n//circle at intersection\ncircle=parametricCurve\ncircle.setMinMax=t,0,6.28\ncircle.setEquation=x,(3)\ncircle.setEquation=y,(sqrt(7)*cos(t))\ncircle.setEquation=z,(sqrt(7)*sin(t))\ncircle.setSegmentCount=100\ncircle.setThickness=0.25\ncircle.color=red\ncircle.spawn