<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><div></div><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">The code for the first(I have cut out the package calls and float) is:</font></p><div>******************************************************************************</div><div><blockquote type="cite"><div><font class="Apple-style-span" color="#000000">\begin{pspicture}(-5,-5.0)(3,5.5) </font></div><div><font class="Apple-style-span" color="#000000">\psset{solidmemory}</font></div><div><font class="Apple-style-span" color="#000000">\psset{unit=0.75}</font></div><div><font class="Apple-style-span" color="#000000">\psset{lightsrc=50 -20 50,viewpoint=50 -20 30 rtp2xyz,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">Decran=50}</font></div><div><font class="Apple-style-span" color="#000000">\psSolid</font></div><div><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">object=new,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">fillcolor=gray!65,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incolor=gray!20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">hollow, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">a=10, %% nb d’etages </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b=20, %% diviseur de 360, nb de meridiens </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">h=8, %% hauteur</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sommets=</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/z0 h neg 2 div def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%z0:=-h/2</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">a -1 0 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/k exch def</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%k:=counter1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">0 1 b 1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%stack is a 0 0 1 b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/i exch def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%i:=counter2</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/r z0 h a div </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000"> k mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">dup mul </font></div><div><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 add<span class="Apple-tab-span" style="white-space:pre"> </span>%THIS LINE IS WHAT APPEARS AT THIS POSITION IN PLACE OF THE NEXT TWO</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">4 div </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">4 add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sqrt </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">def </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%r:=\sqrt{(({hk/a}+z0)^2)/4+4}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">360 b idiv </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">cos r mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack r*cos([360/b]i)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">360 b idiv </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sin r mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack r*sin([360/b]i)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">z0 h a div </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">add</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack (hk/a)+z0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is 0 0 1 b-1 {r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% so: for counter2 starting at 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">until b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">calculate r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is a -1 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% so: for counter1 starting at a</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% decreased by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% do the calculation of the three quantities above (for the values in that loop)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">faces=</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">0 1 a 1 sub</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is 0 1 a-1 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{ </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/k exch def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% k:=counter1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k b mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 add </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% kb+1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000"> % (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is kb+1 1 (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{ </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/i exch def %i=counter1?</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i 1 sub</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% i-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b i add 1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% b+i-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b i add</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%b+i</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">]</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% for counter2 starting at kb+1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% calculate the array above</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% kb</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 2 add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+2)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+1)b</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">] </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% for counter1 starting at 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until a-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% calculate the array (4 elements) above</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">}, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">rm=18 19 38 39 58 59 78 79 98 99 118 119 138 139 158 159 178 179 198 199, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=none,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">name=outer,</font></div><div><font class="Apple-style-span" color="#000000">]</font></div><div><font class="Apple-style-span" color="#000000">%</font></div><div><font class="Apple-style-span" color="#000000">%</font></div><div><font class="Apple-style-span" color="#000000">%%</font></div><div><font class="Apple-style-span" color="#000000">\psSolid</font></div><div><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">object=new,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">fillcolor=red!65,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incolor=red!20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">hollow, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">a=10, %% nb d’etages </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b=20, %% diviseur de 360, nb de meridiens </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">h=10, %% hauteur</font></div><div><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=none,</font></div><div><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">name=middle,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sommets=</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/z0 h neg 2 div def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%z0:=-h/2</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">a -1 0 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/k exch def</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%k:=counter1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">0 1 b 1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%stack is a 0 0 1 b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/i exch def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%i:=counter2</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/r z0 h a div </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000"> k mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">dup mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">4 div </font></div><div><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">4 add <span class="Apple-tab-span" style="white-space:pre"> </span>%THIS IS COMMENTED OUT FROM PREVIOUS PSSOLID (LEVEL SET FOR 0 INSTEAD OF 16)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sqrt </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">def </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%r:=\sqrt{(({hk/a}+z0)^2)/4}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">360 b idiv </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">cos r mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack r*cos([360/b]i)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">360 b idiv </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">sin r mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack r*sin([360/b]i)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">z0 h a div </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">add</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%add to stack (hk/a)+z0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is 0 0 1 b-1 {r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% so: for counter2 starting at 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">until b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">calculate r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is a -1 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% so: for counter1 starting at a</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% decreased by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% do the calculation of the three quantities above (for the values in that loop)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">faces=</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">0 1 a 1 sub</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is 0 1 a-1 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{ </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/k exch def </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% k:=counter1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k b mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 add </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% kb+1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000"> % (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% stack is kb+1 1 (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{ </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">/i exch def %i=counter1?</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">i 1 sub</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% i-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b i add 1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% b+i-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b i add</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">%b+i</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">]</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% for counter2 starting at kb+1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% calculate the array above</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% kb</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+1)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 2 add </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">1 sub </font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+2)b-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">k 1 add</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">b mul</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% (k+1)b</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">] </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">} for</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% for counter1 starting at 0</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% incremented by 1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% until a-1</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">% calculate the array (4 elements) above</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">}, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">rm=18 19 38 39 58 59 78 79 98 99 118 119 138 139 158 159 178 179 198 199, </font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=none,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">name=midcone,</font></div><div><font class="Apple-style-span" color="#000000">]</font></div><div><font class="Apple-style-span" color="#000000">%</font></div><div><font class="Apple-style-span" color="#000000">%%</font></div><div><font class="Apple-style-span" color="#000000">\defFunction{hypup}(u,v)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u v cos mul}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u v sin mul}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u dup mul 4 add sqrt 2 mul}<span class="Apple-tab-span" style="white-space:pre"> </span>%THIS LINE IS CHANGED IN OTHER CODE</font></div><div><font class="Apple-style-span" color="#000000">\psSolid[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">object=surfaceparametree,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">base=0 2.5 0 360,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">fillcolor=blue!50,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incolor=blue!20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">function=hypup,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">ngrid=10 20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=none,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">name=inner1,</font></div><div><font class="Apple-style-span" color="#000000">]</font></div><div><font class="Apple-style-span" color="#000000">\defFunction{hypdown}(u,v)</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u v cos mul}</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u v sin mul}</font></div><div><font class="Apple-style-span" color="#000000">%</font><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u dup mul 1 add sqrt neg}<span class="Apple-tab-span" style="white-space:pre"> </span>%THIS LINE APPEARS IN OTHER CODE I N PLACE OF THE NEXT ONE</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">{u dup mul 4 add sqrt 2 mul neg}</font></div><div><font class="Apple-style-span" color="#000000">\psSolid[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">object=surfaceparametree,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">base=0 2.5 0 360,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">fillcolor=blue!50,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">incolor=blue!20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">function=hypdown,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">ngrid=10 20,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=none,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">name=inner2,</font></div><div><font class="Apple-style-span" color="#000000">]</font></div><div><font class="Apple-style-span" color="#000000">]\psSolid[</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">object=fusion,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">action=draw**,</font></div><div><span class="Apple-tab-span" style="white-space:pre"><font class="Apple-style-span" color="#000000"> </font></span><font class="Apple-style-span" color="#000000">base=outer midcone inner1 inner2, </font></div><div><font class="Apple-style-span" color="#000000">]</font></div><div><font class="Apple-style-span" color="#000000">%</font></div><div><font class="Apple-style-span" color="#000000">\composeSolid</font></div><div><font class="Apple-style-span" color="#000000">\end{pspicture}</font></div></blockquote></div><div><div>*******************************************************************************************************</div></div><div>and for the second, it is:</div><div><br></div><div>********************************************************************************************************</div><div><div>\begin{pspicture}(-5,-6.5)(3,6.5) </div><div>\psset{solidmemory}</div><div>\psset{unit=0.75}</div><div>\psset{lightsrc=50 -20 50,viewpoint=50 -20 30 rtp2xyz,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Decran=50}</div><div>\psSolid</div><div>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>object=new,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fillcolor=gray!65,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>incolor=gray!20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>hollow, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>a=10, %% nb d’etages </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b=20, %% diviseur de 360, nb de meridiens </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>h=8, %% hauteur</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sommets=</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/z0 h neg 2 div def <span class="Apple-tab-span" style="white-space:pre"> </span>%z0:=-h/2</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>a -1 0 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/k exch def<span class="Apple-tab-span" style="white-space:pre"> </span>%k:=counter1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>0 1 b 1 sub <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%stack is a 0 0 1 b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/i exch def <span class="Apple-tab-span" style="white-space:pre"> </span>%i:=counter2</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/r z0 h a div </div><div><span class="Apple-tab-span" style="white-space:pre"> </span> k mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>dup mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 add<span class="Apple-tab-span" style="white-space:pre"> </span>%CHANGE HERE FROM PREVIOUS</div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>4 div </div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>4 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sqrt </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>def </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%r:=\sqrt{(({hk/a}+z0)^2)/4+4}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>360 b idiv </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>cos r mul <span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack r*cos([360/b]i)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>360 b idiv </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sin r mul <span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack r*sin([360/b]i)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>z0 h a div </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>add<span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack (hk/a)+z0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is 0 0 1 b-1 {r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% so: for counter2 starting at 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>until b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>calculate r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is a -1 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% so: for counter1 starting at a</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% decreased by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% do the calculation of the three quantities above (for the values in that loop)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>faces=</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>0 1 a 1 sub</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is 0 1 a-1 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{ </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/k exch def <span class="Apple-tab-span" style="white-space:pre"> </span>% k:=counter1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k b mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 add <span class="Apple-tab-span" style="white-space:pre"> </span>% kb+1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub<span class="Apple-tab-span" style="white-space:pre"> </span> % (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is kb+1 1 (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{ </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/i exch def %i=counter1?</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i 1 sub<span class="Apple-tab-span" style="white-space:pre"> </span>% i-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b i add 1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% b+i-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b i add<span class="Apple-tab-span" style="white-space:pre"> </span>%b+i</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% for counter2 starting at kb+1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% calculate the array above</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k b mul <span class="Apple-tab-span" style="white-space:pre"> </span>% kb</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 2 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% (k+2)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul<span class="Apple-tab-span" style="white-space:pre"> </span>% (k+1)b</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>] </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% for counter1 starting at 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until a-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% calculate the array (4 elements) above</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>rm=18 19 38 39 58 59 78 79 98 99 118 119 138 139 158 159 178 179 198 199, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>action=none,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name=outer,</div><div>]</div><div>%</div><div>%</div><div>%%</div><div>\psSolid</div><div>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>object=new,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fillcolor=red!65,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>incolor=red!20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>hollow, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>a=10, %% nb d’etages </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b=20, %% diviseur de 360, nb de meridiens </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>h=10, %% hauteur</div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>action=none,</div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>name=middle,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sommets=</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/z0 h neg 2 div def <span class="Apple-tab-span" style="white-space:pre"> </span>%z0:=-h/2</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>a -1 0 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/k exch def<span class="Apple-tab-span" style="white-space:pre"> </span>%k:=counter1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>0 1 b 1 sub <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%stack is a 0 0 1 b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/i exch def <span class="Apple-tab-span" style="white-space:pre"> </span>%i:=counter2</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/r z0 h a div </div><div><span class="Apple-tab-span" style="white-space:pre"> </span> k mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>dup mul </div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>4 div <span class="Apple-tab-span" style="white-space:pre"> </span>%CHANGE HERE FROM PREVIOUS</div><div>%<span class="Apple-tab-span" style="white-space:pre"> </span>4 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sqrt </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>def </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%r:=\sqrt{(({hk/a}+z0)^2)/4}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>360 b idiv </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>cos r mul <span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack r*cos([360/b]i)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>360 b idiv </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sin r mul <span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack r*sin([360/b]i)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>z0 h a div </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>add<span class="Apple-tab-span" style="white-space:pre"> </span>%add to stack (hk/a)+z0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is 0 0 1 b-1 {r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% so: for counter2 starting at 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>until b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>%<span class="Apple-tab-span" style="white-space:pre"> </span>calculate r*cos([360/b]i) r*sin([360/b]i) (hk/a)+z0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is a -1 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% so: for counter1 starting at a</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% decreased by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% do the calculation of the three quantities above (for the values in that loop)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>faces=</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>0 1 a 1 sub</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is 0 1 a-1 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{ </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/k exch def <span class="Apple-tab-span" style="white-space:pre"> </span>% k:=counter1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k b mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 add <span class="Apple-tab-span" style="white-space:pre"> </span>% kb+1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub<span class="Apple-tab-span" style="white-space:pre"> </span> % (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% stack is kb+1 1 (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{ </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>/i exch def %i=counter1?</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>i 1 sub<span class="Apple-tab-span" style="white-space:pre"> </span>% i-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b i add 1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% b+i-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b i add<span class="Apple-tab-span" style="white-space:pre"> </span>%b+i</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>]</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% for counter2 starting at kb+1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% calculate the array above</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k b mul <span class="Apple-tab-span" style="white-space:pre"> </span>% kb</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul <span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% (k+1)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 2 add </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>1 sub <span class="Apple-tab-span" style="white-space:pre"> </span>% (k+2)b-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>k 1 add</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>b mul<span class="Apple-tab-span" style="white-space:pre"> </span>% (k+1)b</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>] </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} for</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% for counter1 starting at 0</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% incremented by 1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% until a-1</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>% calculate the array (4 elements) above</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>rm=18 19 38 39 58 59 78 79 98 99 118 119 138 139 158 159 178 179 198 199, </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>action=none,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name=midcone,</div><div>]</div><div>%</div><div>%%</div><div>\defFunction{hypup}(u,v)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u v cos mul}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u v sin mul}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u dup mul 1 add sqrt }<span class="Apple-tab-span" style="white-space:pre"> </span>%CHANGE HERE FROM PREVIOUS</div><div>\psSolid[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>object=surfaceparametree,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>base=0 2.5 0 360,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fillcolor=blue!50,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>incolor=blue!20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>function=hypup,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>ngrid=10 20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>action=none,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name=inner1,</div><div>]</div><div>\defFunction{hypdown}(u,v)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u v cos mul}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u v sin mul}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>{u dup mul 1 add sqrt neg}<span class="Apple-tab-span" style="white-space: pre; "> </span>%CHANGE HERE FROM PREVIOUS</div><div>\psSolid[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>object=surfaceparametree,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>base=0 2.5 0 360,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fillcolor=blue!50,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>incolor=blue!20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>function=hypdown,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>ngrid=10 20,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>action=none,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>name=inner2,</div><div>]</div><div>]\psSolid[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>object=fusion,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>action=draw**,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>base=outer midcone inner1 inner2, </div><div>]</div><div>\composeSolid</div><div>%</div><div>\end{pspicture}</div></div><div>***************************************************************************************************</div><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; "><br></font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; "><br class="Apple-interchange-newline">Zbigniew Nitecki</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Department of Mathematics</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Tufts University</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Medford, MA 02155</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal 12px/normal Helvetica; min-height: 14px; "><br></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">telephones:</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Office<span class="Apple-converted-space"><span class="Apple-converted-tab"> <span class="Apple-converted-space"> </span></span></span>(617)627-3843</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Dept.<span class="Apple-converted-space"><span class="Apple-converted-tab"> <span class="Apple-converted-space"> </span></span></span>(617)627-3234</font></p><p style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: normal normal normal 12px/normal Helvetica; ">Dept. fax<span class="Apple-converted-space"><span class="Apple-converted-tab"> <span class="Apple-converted-space"> </span></span></span>(617)627-3966</font></p><a href="http://www.tufts.edu/~znitecki/">http://www.tufts.edu/~znitecki/</a></span>
</div>
<br></body></html>