// PlaneAndSphere.bvr\n\n// Plane\npln=parametricSurface\npln.setMinMax = t,-4,4\npln.setMinMax = s,-4,4\npln.setEquation=x,(3)\npln.setEquation=y,(s)\npln.setEquation=z,(t)\npln.setSegmentCount = 20\npln.color=red\npln.spawn \n\n// Sphere\nsphr=parametricSurface \nsphr.setMinMax=s,0,3.3\nsphr.setMinMax=t,0,6.6\nsphr.setEquation=x,(4*cos(t)*sin(s))\nsphr.setEquation=y,(4*sin(t)*sin(s))\nsphr.setEquation=z,(4*cos(s))\nsphr.setSegmentCount=30\nsphr.color=blue\nsphr.spawn \n\n//Intersection\nlin=parametricCurve\nlin.setMinMax=s,0,6.6\nlin.setMinMax=t,0,6.6\nlin.setEquation=x, (3)\nlin.setEquation=y, (2.64*cos(t))\nlin.setEquation=z, (2.64*sin(t))\nlin.setSegmentCount = 70\nlin.color = green\nlin.setThickness = 0.2\nlin.spawn