//IceCreamConeExtraCredit.bvr\n\n//Parametric surface bottom\ni=parametricSurface\ni.setMinMax=s,0,6.5\ni.setMinMax=t,0,6.5\ni.setEquation=x,((2.5+1.2*cos(s))*cos(t))\ni.setEquation=y,((2.5+1.2*cos(s))*sin(t))\ni.setEquation=z,(.5*sin(s)+.5)\ni.setSegmentCount=30\ni.color=magenta\ni.spawn\n\n//Parametric surface top\nj=parametricSurface\nj.setMinMax=s,0,3.3\nj.setMinMax=t,0,6.6\nj.setEquation=x,(2.5*cos(t)*sin(s))\nj.setEquation=y,(2.5*sin(t)*sin(s))\nj.setEquation=z,(2.5*cos(s)+2)\nj.setSegmentCount=30 \nj.color=magenta\nj.spawn\n\n//Parametric surface cone\nt=parametricSurface\nt.setMinMax=s,0,1\nt.setMinMax=t,0,6.5\nt.setEquation=x,(2.5*s*cos(t))\nt.setEquation=y,(2.5*s*sin(t))\nt.setEquation=z,(7.5*s-7)\nt.setSegmentCount=70\nt.color=255,165,0\nt.spawn\n\n//Parametric surface cherry\nc=parametricSurface\nc.setMinMax=s,0,3.3\nc.setMinMax=t,0,6.6\nc.setEquation=x,(.7*cos(t)*sin(s))\nc.setEquation=y,(.7*sin(t)*sin(s))\nc.setEquation=z,(.7*cos(s)+5)\nc.setSegmentCount=30 \nc.color=red\nc.spawn\n\n//Vector cherry stem\nz=vectorDraw\nz.setTail=0.5,0.5,6\nz.setHead=0,0,5\nz.color=red\nz.setRadius=0.25\nz.spawn\n\n//spiral.bvr fudge\np=parametricCurve\np.setMinMax=t,-20,5\np.setEquation=x,(2.5*cos(t)*cos(atan(.1*t)))\np.setEquation=y,(2.5*sin(t)*cos(atan(.1*t)))\np.setEquation=z,(-2.5*sin(atan(.1*t))+2)\np.setSegmentCount=150\np.setThickness=0.15\np.color=139,69,19\np.spawn\n