//SnowmanExtraCredit[.bvr\n\n//Parametric surface\nt=parametricSurface\nt.setMinMax=s,0,6.6\nt.setMinMax=t,0,3.2\nt.setEquation=x,(2*cos(s)*sin(t))\nt.setEquation=y,(2*sin(s)*sin(t))\nt.setEquation=z,(2*cos(t))\nt.setSegmentCount=30 \nt.color=gray\nt.spawn\n\n//Parametric curve\na=parametricSurface\na.setMinMax=s,0,6.6\na.setMinMax=t,0,3.2\na.setEquation=x,(cos(s)*sin(t))\na.setEquation=y,(sin(s)*sin(t))\na.setEquation=z,(cos(t)+3)\na.setSegmentCount=30\na.color=gray\na.spawn\n\ne=parametricSurface\ne.setMinMax=s,-1,1\ne.setMinMax=t,-1,1\ne.setEquation=x,(s)\ne.setEquation=y,(t)\ne.setEquation=z,(3.88)\ne.setSegmentCount=30\ne.spawn\n\nd=parametricCurve\nd.setMinMax=t,-2.5,2.5\nd.setEquation=x,(t)\nd.setEquation=y,(0)\nd.setEquation=z,(abs(t))\nd.setSegmentCount=70\nd.setThickness=0.25\nd.color=gray\nd.spawn\n\nf=cylinder\nf.position=0,0,4\nf.scale=1,1,1\nf.spawn\n\n//Text\ntxt=text\ntxt.text=Snowman with Top Hat\ntxt.color=green\ntxt.position=0,0,5.5\n