begintemplate RGCM01WM11
public all, dendrites, dend, soma, hillock, ais, axon
create soma[3], dend[122], hillock, ais, axon
objref all, dendrites
proc init() { local x, y, z
// for specifying positions of a cell network
if (numarg() == 3) {
x = $1
y = $2
z = $3
} else {
x = 0
y = 0
z = 0
}
// build cell
access soma
topol(x, y, z)
customizeTopol(x, y, z)
biophysics()
}
proc customizeTopol() {
//section lists
all = new SectionList()
all.wholetree()
dendrites = new SectionList()
dend dendrites.append()
// added axon convergence point
axon {
pt3dadd($1-800, $2+584, $3-5.6, 0.9)
}
define_shape()
forall {
// segments length < 12um
if (L/nseg > 12) {
nseg = int( (L/nseg) / 12 + 1 )
}
// ensure odd nseg count
if (nseg % 2 == 0) {
nseg += 1
}
}
// additional geometry for ais narrowr axon
hillock { diam = 1.0 }
ais { diam = 0.8 }
axon { diam = 0.9 }
}
proc biophysics() {
// all conductances are in S/cm^2
forall insert pas
forall insert spike
forall ena = 35.0
forall ek = -75
forall insert cad
forall g_pas = 0.000005
forall e_pas = -62.5
forall Ra=110
forsec dendrites { //XXX: only applies to first seg
gnabar_spike = 0.025
gkbar_spike = 0.012
gabar_spike = 0.036
gcabar_spike = 0.002
gkcbar_spike = 0.000001
}
/*for i = 0,121 {
dend[i] {
gnabar_spike = 0.040
gkbar_spike = 0.012
gabar_spike = 0.036
gcabar_spike = 0.002
gkcbar_spike = 0.00005
}
}*/
soma {
gnabar_spike = 0.070
gkbar_spike = 0.018
gabar_spike = 0.054
gcabar_spike = 0.0015
gkcbar_spike = 0.000065
}
hillock {
gnabar_spike = 0.070
gkbar_spike = 0.018
gabar_spike = 0.054
gcabar_spike = 0.0015
gkcbar_spike = 0.000065
}
ais {
gnabar_spike = 0.700 //10x of soma
gkbar_spike = 0.018 //matched
gabar_spike = 0.054
gcabar_spike = 0.0015
gkcbar_spike = 0.000065
}
axon {
gnabar_spike = 0.070
gkbar_spike = 0.018
gabar_spike = 0
gcabar_spike = 0
gkcbar_spike = 0.000065
}
forall depth_cad = diam / 2
}
proc topol() { local i
for i = 1, 2 connect soma[i](0), soma[i-1](1)
connect hillock(0), soma(1)
connect ais(0), hillock(1)
connect axon(0), ais(1)
connect dend(0), soma[1](1)
for i = 1, 2 connect dend[i](0), dend[i-1](1)
connect dend[3](0), soma[2](1)
for i = 4, 18 connect dend[i](0), dend[i-1](1)
connect dend[19](0), dend[1](1)
connect dend[20](0), dend(1)
connect dend[21](0), dend[20](1)
connect dend[22](0), dend[17](1)
connect dend[23](0), dend[16](1)
connect dend[24](0), dend[23](1)
connect dend[25](0), dend[15](1)
connect dend[26](0), dend[25](1)
connect dend[27](0), dend[14](1)
connect dend[28](0), dend[13](1)
connect dend[29](0), dend[12](1)
connect dend[30](0), dend[11](1)
connect dend[31](0), dend[10](1)
connect dend[32](0), dend[9](1)
for i = 33, 34 connect dend[i](0), dend[i-1](1)
connect dend[35](0), dend[8](1)
connect dend[36](0), dend[35](1)
connect dend[37](0), dend[7](1)
for i = 38, 39 connect dend[i](0), dend[i-1](1)
connect dend[40](0), dend[8](1)
for i = 41, 42 connect dend[i](0), dend[i-1](1)
connect dend[43](0), dend[6](1)
connect dend[44](0), dend[43](1)
connect dend[45](0), dend[6](1)
connect dend[46](0), dend[3](1)
for i = 47, 52 connect dend[i](0), dend[i-1](1)
for i = 53, 54 connect dend[i](0), dend[i-49](1)
for i = 55, 65 connect dend[i](0), dend[i-1](1)
for i = 66, 67 connect dend[i](0), dend[20](1)
connect dend[68](0), dend[23](1)
connect dend[69](0), dend[25](1)
connect dend[70](0), dend[33](1)
connect dend[71](0), dend[32](1)
connect dend[72](0), dend[35](1)
connect dend[73](0), dend[38](1)
connect dend[74](0), dend[37](1)
for i = 75, 76 connect dend[i](0), dend[41](1)
connect dend[77](0), dend[40](1)
connect dend[78](0), dend[43](1)
connect dend[79](0), dend[51](1)
connect dend[80](0), dend[79](1)
connect dend[81](0), dend[50](1)
connect dend[82](0), dend[81](1)
connect dend[83](0), dend[49](1)
connect dend[84](0), dend[48](1)
connect dend[85](0), dend[47](1)
connect dend[86](0), dend[46](1)
connect dend[87](0), dend[86](1)
connect dend[88](0), dend[64](1)
connect dend[89](0), dend[63](1)
connect dend[90](0), dend[89](1)
connect dend[91](0), dend[62](1)
connect dend[92](0), dend[91](1)
connect dend[93](0), dend[61](1)
connect dend[94](0), dend[60](1)
for i = 95, 96 connect dend[i](0), dend[i-1](1)
connect dend[97](0), dend[59](1)
connect dend[98](0), dend[57](1)
connect dend[99](0), dend[56](1)
connect dend[100](0), dend[55](1)
connect dend[101](0), dend[54](1)
connect dend[102](0), dend[101](1)
connect dend[103](0), dend[58](1)
for i = 104, 106 connect dend[i](0), dend[i-1](1)
connect dend[107](0), dend[79](1)
connect dend[108](0), dend[81](1)
connect dend[109](0), dend[86](1)
connect dend[110](0), dend[89](1)
connect dend[111](0), dend[91](1)
connect dend[112](0), dend[95](1)
for i = 113, 114 connect dend[i](0), dend[94](1)
for i = 115, 116 connect dend[i](0), dend[101](1)
connect dend[117](0), dend[104](1)
connect dend[118](0), dend[117](1)
connect dend[119](0), dend[103](1)
connect dend[120](0), dend[105](1)
connect dend[121](0), dend[117](1)
basic_shape($1, $2, $3)
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd($1+0, $2+0, $3+0, 12.88)
pt3dadd($1+2, $2+0, $3+0, 12.88)
}
soma[1] {pt3dclear()
pt3dadd($1+2, $2+0, $3+0, 12.88)
pt3dadd($1+5.333, $2+0, $3+0, 12.88)
}
soma[2] {pt3dclear()
pt3dadd($1+5.333, $2+0, $3+0, 12.88)
pt3dadd($1+12.889, $2+0, $3+0, 12.88)
}
hillock {pt3dclear()
pt3dadd($1+2, $2+0, $3+0, 0.9)
pt3dadd($1+2, $2+0, $3+-5.6, 0.9)
pt3dadd($1+1.778, $2+0.222, $3+-5.6, 0.9)
pt3dadd($1+1.556, $2+0.444, $3+-5.6, 0.9)
pt3dadd($1+1.333, $2+0.667, $3+-5.6, 0.9)
pt3dadd($1+1.111, $2+0.889, $3+-5.6, 0.9)
pt3dadd($1+0.667, $2+1.556, $3+-5.6, 0.9)
pt3dadd($1+0.444, $2+1.778, $3+-5.6, 0.9)
pt3dadd($1+0, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-0.222, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-0.889, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-1.111, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-1.778, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-2, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-2.667, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-2.889, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-3.556, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-3.778, $2+2.222, $3+-5.6, 0.9)
pt3dadd($1+-4.444, $2+2.667, $3+-5.6, 0.9)
pt3dadd($1+-4.667, $2+2.889, $3+-5.6, 0.9)
pt3dadd($1+-5.333, $2+3.111, $3+-5.6, 0.9)
pt3dadd($1+-5.556, $2+3.111, $3+-5.6, 0.9)
pt3dadd($1+-6.222, $2+3.111, $3+-5.6, 0.9)
pt3dadd($1+-6.444, $2+3.111, $3+-5.6, 0.9)
pt3dadd($1+-7.111, $2+2.889, $3+-5.6, 0.9)
pt3dadd($1+-7.333, $2+2.667, $3+-5.6, 0.9)
pt3dadd($1+-8, $2+2.667, $3+-5.6, 0.9)
pt3dadd($1+-8.222, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-8.889, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-9.111, $2+2.444, $3+-5.6, 0.9)
pt3dadd($1+-9.778, $2+2.667, $3+-5.6, 0.9)
pt3dadd($1+-10, $2+2.667, $3+-5.6, 0.9)
pt3dadd($1+-10.667, $2+3.111, $3+-5.6, 0.9)
pt3dadd($1+-11.333, $2+3.778, $3+-5.6, 0.9)
pt3dadd($1+-11.333, $2+4, $3+-5.6, 0.9)
pt3dadd($1+-11.778, $2+4.667, $3+-5.6, 0.9)
pt3dadd($1+-11.778, $2+4.889, $3+-5.6, 0.9)
pt3dadd($1+-12.222, $2+5.556, $3+-5.6, 0.9)
pt3dadd($1+-12.444, $2+5.778, $3+-5.6, 0.9)
pt3dadd($1+-13.111, $2+6.444, $3+-5.6, 0.9)
pt3dadd($1+-13.333, $2+6.444, $3+-5.6, 0.9)
pt3dadd($1+-14, $2+6.444, $3+-5.6, 0.9)
pt3dadd($1+-14.222, $2+6.444, $3+-5.6, 0.9)
pt3dadd($1+-14.889, $2+6.667, $3+-5.6, 0.9)
pt3dadd($1+-15.778, $2+7.556, $3+-5.6, 0.9)
pt3dadd($1+-16, $2+7.778, $3+-5.6, 0.9)
pt3dadd($1+-16.444, $2+8.444, $3+-5.6, 0.9)
pt3dadd($1+-16.667, $2+8.667, $3+-5.6, 0.9)
pt3dadd($1+-17.333, $2+9.556, $3+-5.6, 0.9)
pt3dadd($1+-17.333, $2+9.778, $3+-5.6, 0.9)
pt3dadd($1+-17.778, $2+10.667, $3+-5.6, 0.9)
pt3dadd($1+-18, $2+10.889, $3+-5.6, 0.9)
pt3dadd($1+-18.889, $2+11.333, $3+-5.6, 0.9)
pt3dadd($1+-19.111, $2+11.333, $3+-5.6, 0.9)
pt3dadd($1+-20, $2+11.778, $3+-5.6, 0.9)
pt3dadd($1+-20.222, $2+12, $3+-5.6, 0.9)
pt3dadd($1+-20.222, $2+12.667, $3+-5.6, 0.9)
pt3dadd($1+-20.222, $2+12.889, $3+-5.6, 0.9)
pt3dadd($1+-20.222, $2+13.556, $3+-5.6, 0.9)
pt3dadd($1+-20.222, $2+13.778, $3+-5.6, 0.9)
pt3dadd($1+-20.444, $2+14, $3+-5.6, 0.9)
pt3dadd($1+-20.667, $2+14.889, $3+-5.6, 0.9)
pt3dadd($1+-20.889, $2+15.111, $3+-5.6, 0.9)
pt3dadd($1+-21.556, $2+15.333, $3+-5.6, 0.9)
pt3dadd($1+-21.778, $2+15.556, $3+-5.6, 0.9)
pt3dadd($1+-22, $2+15.556, $3+-5.6, 0.9)
pt3dadd($1+-22.222, $2+15.778, $3+-5.6, 0.9)
pt3dadd($1+-22.889, $2+16, $3+-5.6, 0.9)
pt3dadd($1+-23.111, $2+16, $3+-5.6, 0.9)
pt3dadd($1+-23.556, $2+16.444, $3+-5.6, 0.9)
pt3dadd($1+-23.778, $2+16.667, $3+-5.6, 0.9)
pt3dadd($1+-24, $2+17.111, $3+-5.6, 0.9)
pt3dadd($1+-24.222, $2+17.333, $3+-5.6, 0.9)
pt3dadd($1+-24.667, $2+17.778, $3+-5.6, 0.9)
pt3dadd($1+-25.111, $2+18.222, $3+-5.6, 0.9)
}
}
proc shape3d_2() {
ais {pt3dclear()
pt3dadd($1+-25.111, $2+18.444, $3+-5.6, 0.9)
pt3dadd($1+-25.333, $2+18.667, $3+-5.6, 0.9)
pt3dadd($1+-25.778, $2+19.111, $3+-5.6, 0.9)
pt3dadd($1+-26, $2+19.333, $3+-5.6, 0.9)
pt3dadd($1+-26.444, $2+19.556, $3+-5.6, 0.9)
pt3dadd($1+-26.889, $2+20, $3+-5.6, 0.9)
pt3dadd($1+-27.111, $2+20.444, $3+-5.6, 0.9)
pt3dadd($1+-27.333, $2+20.889, $3+-5.6, 0.9)
pt3dadd($1+-27.778, $2+21.333, $3+-5.6, 0.9)
pt3dadd($1+-28.222, $2+21.778, $3+-5.6, 0.9)
pt3dadd($1+-28.667, $2+22.222, $3+-5.6, 0.9)
pt3dadd($1+-29.111, $2+22.667, $3+-5.6, 0.9)
pt3dadd($1+-29.556, $2+22.667, $3+-5.6, 0.9)
pt3dadd($1+-30, $2+23.111, $3+-5.6, 0.9)
pt3dadd($1+-30.444, $2+23.111, $3+-5.6, 0.9)
pt3dadd($1+-30.889, $2+23.333, $3+-5.6, 0.9)
pt3dadd($1+-31.111, $2+23.556, $3+-5.6, 0.9)
pt3dadd($1+-31.778, $2+24, $3+-5.6, 0.9)
pt3dadd($1+-32, $2+24, $3+-5.6, 0.9)
pt3dadd($1+-32.889, $2+24.667, $3+-5.6, 0.9)
pt3dadd($1+-33.111, $2+24.889, $3+-5.6, 0.9)
pt3dadd($1+-33.778, $2+25.778, $3+-5.6, 0.9)
pt3dadd($1+-34, $2+26, $3+-5.6, 0.9)
pt3dadd($1+-34.889, $2+26.667, $3+-5.6, 0.9)
pt3dadd($1+-35.111, $2+26.889, $3+-5.6, 0.9)
pt3dadd($1+-35.778, $2+27.556, $3+-5.6, 0.9)
pt3dadd($1+-36, $2+27.778, $3+-5.6, 0.9)
pt3dadd($1+-36.667, $2+28, $3+-5.6, 0.9)
pt3dadd($1+-36.889, $2+28, $3+-5.6, 0.9)
pt3dadd($1+-37.556, $2+28.222, $3+-5.6, 0.9)
pt3dadd($1+-37.778, $2+28.222, $3+-5.6, 0.9)
pt3dadd($1+-38, $2+28.222, $3+-5.6, 0.9)
pt3dadd($1+-38.222, $2+28.444, $3+-5.6, 0.9)
pt3dadd($1+-38.444, $2+28.444, $3+-5.6, 0.9)
pt3dadd($1+-39.111, $2+28.444, $3+-5.6, 0.9)
pt3dadd($1+-39.778, $2+28.889, $3+-5.6, 0.9)
pt3dadd($1+-40, $2+28.889, $3+-5.6, 0.9)
pt3dadd($1+-40.667, $2+28.889, $3+-5.6, 0.9)
pt3dadd($1+-40.889, $2+28.889, $3+-5.6, 0.9)
pt3dadd($1+-41.111, $2+29.111, $3+-5.6, 0.9)
pt3dadd($1+-41.778, $2+29.111, $3+-5.6, 0.9)
pt3dadd($1+-42, $2+29.111, $3+-5.6, 0.9)
pt3dadd($1+-42.667, $2+29.556, $3+-5.6, 0.9)
pt3dadd($1+-42.889, $2+29.778, $3+-5.6, 0.9)
pt3dadd($1+-43.556, $2+30.222, $3+-5.6, 0.9)
pt3dadd($1+-43.778, $2+30.444, $3+-5.6, 0.9)
pt3dadd($1+-44.444, $2+30.667, $3+-5.6, 0.9)
pt3dadd($1+-44.667, $2+30.667, $3+-5.6, 0.9)
pt3dadd($1+-44.889, $2+30.667, $3+-5.6, 0.9)
pt3dadd($1+-45.556, $2+30.667, $3+-5.6, 0.9)
pt3dadd($1+-45.778, $2+30.444, $3+-5.6, 0.9)
pt3dadd($1+-46, $2+30.444, $3+-5.6, 0.9)
pt3dadd($1+-46.444, $2+30.444, $3+-5.6, 0.9)
pt3dadd($1+-46.889, $2+30.444, $3+-5.6, 0.9)
pt3dadd($1+-47.111, $2+30.667, $3+-5.6, 0.9)
pt3dadd($1+-47.778, $2+31.111, $3+-5.6, 0.9)
pt3dadd($1+-48, $2+31.111, $3+-5.6, 0.9)
pt3dadd($1+-48.222, $2+31.111, $3+-5.6, 0.9)
pt3dadd($1+-48.889, $2+31.556, $3+-5.6, 0.9)
pt3dadd($1+-49.111, $2+31.556, $3+-5.6, 0.9)
pt3dadd($1+-49.333, $2+31.778, $3+-5.6, 0.9)
pt3dadd($1+-49.556, $2+32, $3+-5.6, 0.9)
pt3dadd($1+-49.778, $2+32.222, $3+-5.6, 0.9)
pt3dadd($1+-50, $2+32.444, $3+-5.6, 0.9)
pt3dadd($1+-50.889, $2+32.667, $3+-5.6, 0.9)
pt3dadd($1+-51.111, $2+32.889, $3+-5.6, 0.9)
pt3dadd($1+-51.778, $2+33.333, $3+-5.6, 0.9)
pt3dadd($1+-52, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-52.222, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-52.889, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-53.111, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-53.778, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-54, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-54.667, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-54.889, $2+33.556, $3+-5.6, 0.9)
pt3dadd($1+-55.111, $2+33.778, $3+-5.6, 0.9)
pt3dadd($1+-55.778, $2+34, $3+-5.6, 0.9)
pt3dadd($1+-56, $2+34.222, $3+-5.6, 0.9)
pt3dadd($1+-56.222, $2+34.222, $3+-5.6, 0.9)
pt3dadd($1+-56.889, $2+34.444, $3+-5.6, 0.9)
pt3dadd($1+-57.111, $2+34.667, $3+-5.6, 0.9)
pt3dadd($1+-57.333, $2+34.667, $3+-5.6, 0.9)
pt3dadd($1+-57.556, $2+34.667, $3+-5.6, 0.9)
pt3dadd($1+-57.778, $2+34.667, $3+-5.6, 0.9)
pt3dadd($1+-58, $2+34.667, $3+-5.6, 0.9)
pt3dadd($1+-58.222, $2+34.889, $3+-5.6, 0.9)
pt3dadd($1+-58.889, $2+35.333, $3+-5.6, 0.9)
pt3dadd($1+-59.111, $2+35.333, $3+-5.6, 0.9)
pt3dadd($1+-59.333, $2+35.556, $3+-5.6, 0.9)
pt3dadd($1+-59.556, $2+35.778, $3+-5.6, 0.9)
pt3dadd($1+-59.778, $2+36, $3+-5.6, 0.9)
pt3dadd($1+-60, $2+36.222, $3+-5.6, 0.9)
pt3dadd($1+-60.222, $2+36.444, $3+-5.6, 0.9)
pt3dadd($1+-60.444, $2+36.889, $3+-5.6, 0.9)
pt3dadd($1+-60.667, $2+37.111, $3+-5.6, 0.9)
pt3dadd($1+-60.889, $2+37.333, $3+-5.6, 0.9)
pt3dadd($1+-61.111, $2+37.556, $3+-5.6, 0.9)
pt3dadd($1+-61.111, $2+37.778, $3+-5.6, 0.9)
pt3dadd($1+-61.333, $2+39.556, $3+-5.6, 0.9)
pt3dadd($1+-61.556, $2+39.778, $3+-5.6, 0.9)
pt3dadd($1+-61.556, $2+40.222, $3+-5.6, 0.9)
pt3dadd($1+-61.778, $2+40.444, $3+-5.6, 0.9)
pt3dadd($1+-62, $2+40.667, $3+-5.6, 0.9)
pt3dadd($1+-62, $2+40.889, $3+-5.6, 0.9)
pt3dadd($1+-62.222, $2+41.111, $3+-5.6, 0.9)
pt3dadd($1+-62.889, $2+41.778, $3+-5.6, 0.9)
pt3dadd($1+-63.111, $2+42, $3+-5.6, 0.9)
pt3dadd($1+-63.778, $2+42.667, $3+-5.6, 0.9)
pt3dadd($1+-64, $2+42.667, $3+-5.6, 0.9)
pt3dadd($1+-64.667, $2+42.889, $3+-5.6, 0.9)
pt3dadd($1+-64.889, $2+43.111, $3+-5.6, 0.9)
pt3dadd($1+-65.556, $2+43.556, $3+-5.6, 0.9)
pt3dadd($1+-65.778, $2+43.778, $3+-5.6, 0.9)
pt3dadd($1+-66, $2+44, $3+-5.6, 0.9)
pt3dadd($1+-66.222, $2+44.222, $3+-5.6, 0.9)
pt3dadd($1+-66.889, $2+44.667, $3+-5.6, 0.9)
pt3dadd($1+-67.111, $2+44.889, $3+-5.6, 0.9)
pt3dadd($1+-67.333, $2+45.111, $3+-5.6, 0.9)
pt3dadd($1+-67.556, $2+45.333, $3+-5.6, 0.9)
pt3dadd($1+-67.778, $2+45.556, $3+-5.6, 0.9)
pt3dadd($1+-68, $2+45.778, $3+-5.6, 0.9)
pt3dadd($1+-68.222, $2+46, $3+-5.6, 0.9)
pt3dadd($1+-68.444, $2+46.222, $3+-5.6, 0.9)
pt3dadd($1+-68.667, $2+46.222, $3+-5.6, 0.9)
pt3dadd($1+-68.889, $2+46.222, $3+-5.6, 0.9)
pt3dadd($1+-69.556, $2+46.444, $3+-5.6, 0.9)
pt3dadd($1+-69.778, $2+46.444, $3+-5.6, 0.9)
pt3dadd($1+-70, $2+46.667, $3+-5.6, 0.9)
pt3dadd($1+-70.222, $2+46.889, $3+-5.6, 0.9)
pt3dadd($1+-70.889, $2+47.556, $3+-5.6, 0.9)
pt3dadd($1+-71.111, $2+47.778, $3+-5.6, 0.9)
pt3dadd($1+-71.333, $2+48, $3+-5.6, 0.9)
pt3dadd($1+-72, $2+48.667, $3+-5.6, 0.9)
}
axon {pt3dclear()
pt3dadd($1+-72.222, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-72.444, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-72.667, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-72.889, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-73.111, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-73.333, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-73.556, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-73.778, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-74, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-74.222, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-74.444, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-74.667, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-74.889, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-75.111, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-75.333, $2+48.667, $3+-5.6, 0.9)
pt3dadd($1+-75.556, $2+48.444, $3+-5.6, 0.9)
pt3dadd($1+-75.778, $2+48.444, $3+-5.6, 0.9)
pt3dadd($1+-76, $2+48.444, $3+-5.6, 0.9)
pt3dadd($1+-76.222, $2+48.444, $3+-5.6, 0.9)
pt3dadd($1+-76.444, $2+48.667, $3+-5.6, 0.9)
}
}
proc shape3d_3() {
axon { pt3dadd($1+-76.667, $2+48.889, $3+-5.6, 0.9)
pt3dadd($1+-76.889, $2+49.111, $3+-5.6, 0.9)
pt3dadd($1+-77.111, $2+49.333, $3+-5.6, 0.9)
pt3dadd($1+-77.333, $2+49.556, $3+-5.6, 0.9)
pt3dadd($1+-77.556, $2+49.778, $3+-5.6, 0.9)
pt3dadd($1+-77.778, $2+50, $3+-5.6, 0.9)
pt3dadd($1+-78, $2+50.222, $3+-5.6, 0.9)
pt3dadd($1+-78, $2+50.444, $3+-5.6, 0.9)
pt3dadd($1+-78.222, $2+50.667, $3+-5.6, 0.9)
pt3dadd($1+-78.222, $2+50.889, $3+-5.6, 0.9)
pt3dadd($1+-78.444, $2+51.111, $3+-5.6, 0.9)
pt3dadd($1+-78.667, $2+51.333, $3+-5.6, 0.9)
pt3dadd($1+-78.889, $2+51.556, $3+-5.6, 0.9)
pt3dadd($1+-79.111, $2+51.556, $3+-5.6, 0.9)
pt3dadd($1+-79.333, $2+51.778, $3+-5.6, 0.9)
pt3dadd($1+-79.556, $2+52, $3+-5.6, 0.9)
pt3dadd($1+-79.778, $2+52.222, $3+-5.6, 0.9)
pt3dadd($1+-80, $2+52.444, $3+-5.6, 0.9)
pt3dadd($1+-80.222, $2+52.667, $3+-5.6, 0.9)
pt3dadd($1+-80.444, $2+52.889, $3+-5.6, 0.9)
pt3dadd($1+-80.667, $2+53.111, $3+-5.6, 0.9)
pt3dadd($1+-80.889, $2+53.333, $3+-5.6, 0.9)
pt3dadd($1+-81.111, $2+53.556, $3+-5.6, 0.9)
pt3dadd($1+-81.111, $2+53.778, $3+-5.6, 0.9)
pt3dadd($1+-81.111, $2+54, $3+-5.6, 0.9)
pt3dadd($1+-81.333, $2+54.222, $3+-5.6, 0.9)
pt3dadd($1+-81.333, $2+54.444, $3+-5.6, 0.9)
pt3dadd($1+-81.556, $2+54.667, $3+-5.6, 0.9)
pt3dadd($1+-81.778, $2+54.889, $3+-5.6, 0.9)
pt3dadd($1+-81.778, $2+55.111, $3+-5.6, 0.9)
pt3dadd($1+-82, $2+55.333, $3+-5.6, 0.9)
pt3dadd($1+-82, $2+55.556, $3+-5.6, 0.9)
pt3dadd($1+-82, $2+55.778, $3+-5.6, 0.9)
pt3dadd($1+-82.222, $2+56, $3+-5.6, 0.9)
pt3dadd($1+-82.444, $2+56.222, $3+-5.6, 0.9)
pt3dadd($1+-82.444, $2+56.444, $3+-5.6, 0.9)
pt3dadd($1+-82.667, $2+56.667, $3+-5.6, 0.9)
pt3dadd($1+-82.667, $2+56.889, $3+-5.6, 0.9)
pt3dadd($1+-82.889, $2+57.111, $3+-5.6, 0.9)
pt3dadd($1+-82.889, $2+57.333, $3+-5.6, 0.9)
pt3dadd($1+-83.111, $2+57.556, $3+-5.6, 0.9)
pt3dadd($1+-83.333, $2+57.778, $3+-5.6, 0.9)
pt3dadd($1+-83.333, $2+58, $3+-5.6, 0.9)
pt3dadd($1+-83.556, $2+58.222, $3+-5.6, 0.9)
pt3dadd($1+-83.778, $2+58.444, $3+-5.6, 0.9)
pt3dadd($1+-84, $2+58.667, $3+-5.6, 0.9)
pt3dadd($1+-84.222, $2+58.889, $3+-5.6, 0.9)
pt3dadd($1+-84.444, $2+59.111, $3+-5.6, 0.9)
pt3dadd($1+-84.444, $2+59.333, $3+-5.6, 0.9)
pt3dadd($1+-84.444, $2+59.556, $3+-5.6, 0.9)
pt3dadd($1+-84.667, $2+59.778, $3+-5.6, 0.9)
pt3dadd($1+-84.889, $2+60, $3+-5.6, 0.9)
pt3dadd($1+-84.889, $2+60.222, $3+-5.6, 0.9)
pt3dadd($1+-84.889, $2+60.444, $3+-5.6, 0.9)
pt3dadd($1+-85.111, $2+60.667, $3+-5.6, 0.9)
pt3dadd($1+-85.333, $2+60.889, $3+-5.6, 0.9)
pt3dadd($1+-85.556, $2+61.111, $3+-5.6, 0.9)
pt3dadd($1+-85.778, $2+61.333, $3+-5.6, 0.9)
pt3dadd($1+-86, $2+61.556, $3+-5.6, 0.9)
pt3dadd($1+-86.222, $2+61.778, $3+-5.6, 0.9)
pt3dadd($1+-86.444, $2+61.778, $3+-5.6, 0.9)
pt3dadd($1+-86.667, $2+61.778, $3+-5.6, 0.9)
pt3dadd($1+-86.889, $2+61.778, $3+-5.6, 0.9)
pt3dadd($1+-87.111, $2+62, $3+-5.6, 0.9)
pt3dadd($1+-87.333, $2+62.222, $3+-5.6, 0.9)
pt3dadd($1+-87.556, $2+62.444, $3+-5.6, 0.9)
pt3dadd($1+-87.778, $2+62.667, $3+-5.6, 0.9)
pt3dadd($1+-88, $2+62.889, $3+-5.6, 0.9)
pt3dadd($1+-88.222, $2+62.889, $3+-5.6, 0.9)
pt3dadd($1+-88.444, $2+62.889, $3+-5.6, 0.9)
pt3dadd($1+-88.667, $2+63.111, $3+-5.6, 0.9)
pt3dadd($1+-88.889, $2+63.111, $3+-5.6, 0.9)
pt3dadd($1+-89.111, $2+63.333, $3+-5.6, 0.9)
pt3dadd($1+-89.333, $2+63.556, $3+-5.6, 0.9)
pt3dadd($1+-89.556, $2+63.778, $3+-5.6, 0.9)
pt3dadd($1+-89.778, $2+64, $3+-5.6, 0.9)
pt3dadd($1+-90, $2+64.222, $3+-5.6, 0.9)
pt3dadd($1+-90.222, $2+64.444, $3+-5.6, 0.9)
pt3dadd($1+-90.222, $2+64.667, $3+-5.6, 0.9)
pt3dadd($1+-90.444, $2+64.889, $3+-5.6, 0.9)
pt3dadd($1+-90.444, $2+65.111, $3+-5.6, 0.9)
pt3dadd($1+-90.667, $2+65.333, $3+-5.6, 0.9)
pt3dadd($1+-90.667, $2+65.556, $3+-5.6, 0.9)
pt3dadd($1+-90.667, $2+65.778, $3+-5.6, 0.9)
pt3dadd($1+-90.667, $2+66, $3+-5.6, 0.9)
pt3dadd($1+-90.889, $2+66.222, $3+-5.6, 0.9)
pt3dadd($1+-90.889, $2+66.444, $3+-5.6, 0.9)
pt3dadd($1+-91.111, $2+66.667, $3+-5.6, 0.9)
pt3dadd($1+-91.111, $2+66.889, $3+-5.6, 0.9)
pt3dadd($1+-91.111, $2+67.111, $3+-5.6, 0.9)
pt3dadd($1+-91.333, $2+67.333, $3+-5.6, 0.9)
pt3dadd($1+-91.333, $2+67.556, $3+-5.6, 0.9)
pt3dadd($1+-91.556, $2+67.778, $3+-5.6, 0.9)
pt3dadd($1+-91.778, $2+68, $3+-5.6, 0.9)
pt3dadd($1+-92, $2+68.222, $3+-5.6, 0.9)
pt3dadd($1+-92.222, $2+68.444, $3+-5.6, 0.9)
pt3dadd($1+-92.444, $2+68.667, $3+-5.6, 0.9)
pt3dadd($1+-92.667, $2+68.889, $3+-5.6, 0.9)
pt3dadd($1+-92.889, $2+69.111, $3+-5.6, 0.9)
pt3dadd($1+-93.111, $2+69.333, $3+-5.6, 0.9)
pt3dadd($1+-93.333, $2+69.333, $3+-5.6, 0.9)
pt3dadd($1+-93.556, $2+69.556, $3+-5.6, 0.9)
pt3dadd($1+-93.778, $2+69.778, $3+-5.6, 0.9)
pt3dadd($1+-94, $2+70, $3+-5.6, 0.9)
pt3dadd($1+-94.222, $2+70, $3+-5.6, 0.9)
pt3dadd($1+-94.444, $2+70.222, $3+-5.6, 0.9)
pt3dadd($1+-94.667, $2+70.444, $3+-5.6, 0.9)
pt3dadd($1+-94.889, $2+70.444, $3+-5.6, 0.9)
pt3dadd($1+-95.111, $2+70.667, $3+-5.6, 0.9)
pt3dadd($1+-95.333, $2+70.889, $3+-5.6, 0.9)
pt3dadd($1+-95.556, $2+70.889, $3+-5.6, 0.9)
pt3dadd($1+-95.778, $2+71.111, $3+-5.6, 0.9)
pt3dadd($1+-96, $2+71.333, $3+-5.6, 0.9)
pt3dadd($1+-96.222, $2+71.333, $3+-5.6, 0.9)
pt3dadd($1+-96.444, $2+71.556, $3+-5.6, 0.9)
pt3dadd($1+-96.667, $2+71.778, $3+-5.6, 0.9)
pt3dadd($1+-96.889, $2+71.778, $3+-5.6, 0.9)
pt3dadd($1+-97.111, $2+72, $3+-5.6, 0.9)
pt3dadd($1+-97.333, $2+72, $3+-5.6, 0.9)
pt3dadd($1+-97.556, $2+72.222, $3+-5.6, 0.9)
pt3dadd($1+-97.778, $2+72.444, $3+-5.6, 0.9)
pt3dadd($1+-98, $2+72.444, $3+-5.6, 0.9)
pt3dadd($1+-98.222, $2+72.667, $3+-5.6, 0.9)
pt3dadd($1+-98.444, $2+72.889, $3+-5.6, 0.9)
pt3dadd($1+-98.667, $2+72.889, $3+-5.6, 0.9)
pt3dadd($1+-98.889, $2+73.111, $3+-5.6, 0.9)
pt3dadd($1+-99.111, $2+73.333, $3+-5.6, 0.9)
pt3dadd($1+-99.333, $2+73.333, $3+-5.6, 0.9)
pt3dadd($1+-99.556, $2+73.556, $3+-5.6, 0.9)
}
dend {pt3dclear()
pt3dadd($1+5.333, $2+0, $3+0, 2)
pt3dadd($1+5.333, $2+0, $3+0, 2)
pt3dadd($1+5.333, $2+-0.222, $3+1.233, 1.982)
pt3dadd($1+5.333, $2+-0.444, $3+2.467, 1.964)
pt3dadd($1+5.333, $2+-0.667, $3+3.7, 1.944)
pt3dadd($1+5.333, $2+-0.889, $3+4.933, 1.926)
pt3dadd($1+5.333, $2+-1.111, $3+6.167, 1.908)
pt3dadd($1+5.333, $2+-1.333, $3+7.4, 1.89)
pt3dadd($1+5.333, $2+-1.556, $3+8.633, 1.872)
pt3dadd($1+5.333, $2+-1.778, $3+9.867, 1.852)
pt3dadd($1+5.333, $2+-2, $3+11.1, 1.834)
pt3dadd($1+5.333, $2+-2.222, $3+11.1, 1.816)
pt3dadd($1+5.333, $2+-2.444, $3+11.1, 1.798)
pt3dadd($1+5.333, $2+-2.667, $3+11.1, 1.78)
pt3dadd($1+5.333, $2+-2.889, $3+11.1, 1.76)
pt3dadd($1+5.333, $2+-3.111, $3+11.1, 1.742)
pt3dadd($1+5.333, $2+-3.333, $3+11.1, 1.724)
pt3dadd($1+5.111, $2+-3.556, $3+11.1, 1.706)
pt3dadd($1+4.889, $2+-3.778, $3+11.1, 1.688)
pt3dadd($1+4.667, $2+-4, $3+11.1, 1.668)
pt3dadd($1+4.667, $2+-4.222, $3+11.1, 1.65)
pt3dadd($1+4.667, $2+-4.444, $3+11.1, 1.632)
pt3dadd($1+4.667, $2+-4.667, $3+11.1, 1.614)
pt3dadd($1+4.667, $2+-4.889, $3+11.1, 1.596)
pt3dadd($1+4.444, $2+-5.111, $3+11.1, 1.576)
pt3dadd($1+4.444, $2+-5.333, $3+11.1, 1.558)
pt3dadd($1+4.444, $2+-5.556, $3+11.1, 1.54)
pt3dadd($1+4.444, $2+-5.778, $3+11.1, 1.522)
pt3dadd($1+4.444, $2+-6, $3+11.1, 1.504)
pt3dadd($1+4.222, $2+-6.222, $3+11.1, 1.484)
pt3dadd($1+4.222, $2+-6.444, $3+11.1, 1.466)
pt3dadd($1+4, $2+-6.667, $3+11.1, 1.448)
pt3dadd($1+3.778, $2+-6.889, $3+11.1, 1.43)
pt3dadd($1+3.556, $2+-7.111, $3+11.1, 1.412)
pt3dadd($1+3.333, $2+-7.333, $3+11.1, 1.392)
pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
}
dend[1] {pt3dclear()
pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
pt3dadd($1+3.111, $2+-7.556, $3+11.1, 1.356)
pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
}
dend[2] {pt3dclear()
pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
pt3dadd($1+2.667, $2+-8, $3+11.1, 1.32)
pt3dadd($1+2.444, $2+-8.222, $3+11.1, 1.3)
pt3dadd($1+2.222, $2+-8.444, $3+11.1, 1.282)
pt3dadd($1+2, $2+-8.444, $3+11.1, 1.264)
pt3dadd($1+1.778, $2+-8.444, $3+11.1, 1.246)
pt3dadd($1+1.556, $2+-8.667, $3+11.1, 1.228)
pt3dadd($1+1.333, $2+-8.667, $3+11.1, 1.208)
pt3dadd($1+1.111, $2+-8.889, $3+11.1, 1.19)
pt3dadd($1+0.889, $2+-9.111, $3+11.1, 1.172)
pt3dadd($1+0.667, $2+-9.333, $3+11.1, 1.154)
pt3dadd($1+0.444, $2+-9.333, $3+11.1, 1.136)
pt3dadd($1+0.222, $2+-9.556, $3+11.1, 1.116)
pt3dadd($1+0, $2+-9.778, $3+11.1, 1.098)
pt3dadd($1+-0.222, $2+-10, $3+11.1, 1.08)
pt3dadd($1+-0.444, $2+-10.222, $3+11.1, 1.062)
pt3dadd($1+-0.444, $2+-10.444, $3+11.1, 1.042)
pt3dadd($1+-0.444, $2+-10.667, $3+11.1, 1.024)
pt3dadd($1+-0.444, $2+-10.889, $3+11.1, 1.006)
pt3dadd($1+-0.444, $2+-11.111, $3+11.1, 0.988)
pt3dadd($1+-0.444, $2+-11.333, $3+11.1, 0.97)
pt3dadd($1+-0.444, $2+-11.556, $3+11.1, 0.95)
pt3dadd($1+-0.222, $2+-11.778, $3+11.1, 0.932)
pt3dadd($1+-0.222, $2+-12, $3+11.1, 0.914)
pt3dadd($1+0, $2+-12.222, $3+11.1, 0.896)
pt3dadd($1+0, $2+-12.444, $3+11.1, 0.878)
pt3dadd($1+0, $2+-12.667, $3+11.1, 0.858)
pt3dadd($1+0, $2+-12.889, $3+11.1, 0.84)
pt3dadd($1+0, $2+-13.111, $3+11.1, 0.822)
pt3dadd($1+0, $2+-13.333, $3+11.1, 0.804)
pt3dadd($1+-0.222, $2+-13.556, $3+11.1, 0.786)
pt3dadd($1+-0.444, $2+-13.778, $3+11.1, 0.766)
}
}
proc shape3d_4() {
dend[2] { pt3dadd($1+-0.444, $2+-14, $3+11.1, 0.748)
pt3dadd($1+-0.444, $2+-14.222, $3+11.1, 0.73)
pt3dadd($1+-0.444, $2+-14.444, $3+11.1, 0.712)
pt3dadd($1+-0.667, $2+-14.667, $3+11.1, 0.694)
pt3dadd($1+-0.889, $2+-14.889, $3+11.1, 0.674)
pt3dadd($1+-1.111, $2+-15.111, $3+11.1, 0.656)
pt3dadd($1+-1.333, $2+-15.333, $3+11.1, 0.638)
pt3dadd($1+-1.556, $2+-15.556, $3+11.1, 0.62)
pt3dadd($1+-1.778, $2+-15.778, $3+11.1, 0.602)
pt3dadd($1+-2, $2+-16, $3+11.1, 0.582)
pt3dadd($1+-2.222, $2+-16.222, $3+11.1, 0.564)
pt3dadd($1+-2.444, $2+-16.444, $3+11.1, 0.546)
pt3dadd($1+-2.444, $2+-16.667, $3+11.1, 0.528)
pt3dadd($1+-2.667, $2+-16.889, $3+11.1, 0.51)
pt3dadd($1+-2.889, $2+-17.111, $3+11.1, 0.49)
pt3dadd($1+-3.111, $2+-17.111, $3+11.1, 0.472)
pt3dadd($1+-3.333, $2+-17.333, $3+11.1, 0.454)
pt3dadd($1+-3.556, $2+-17.556, $3+11.1, 0.436)
pt3dadd($1+-3.556, $2+-17.778, $3+11.1, 0.418)
pt3dadd($1+-3.556, $2+-18, $3+11.1, 0.398)
pt3dadd($1+-3.556, $2+-18.222, $3+11.1, 0.38)
pt3dadd($1+-3.778, $2+-18.444, $3+11.1, 0.362)
pt3dadd($1+-4, $2+-18.667, $3+11.1, 0.344)
pt3dadd($1+-4.222, $2+-18.667, $3+11.1, 0.326)
pt3dadd($1+-4.444, $2+-18.889, $3+11.1, 0.306)
pt3dadd($1+-4.667, $2+-19.111, $3+11.1, 0.288)
pt3dadd($1+-4.889, $2+-19.111, $3+11.1, 0.27)
}
dend[3] {pt3dclear()
pt3dadd($1+12.889, $2+0, $3+0, 2)
pt3dadd($1+12.889, $2+0, $3+0, 2)
pt3dadd($1+13.111, $2+0, $3+1.233, 1.996)
pt3dadd($1+13.333, $2+0, $3+2.467, 1.992)
pt3dadd($1+13.556, $2+0, $3+3.7, 1.988)
pt3dadd($1+13.778, $2+0, $3+4.933, 1.984)
pt3dadd($1+14, $2+0, $3+6.167, 1.98)
pt3dadd($1+14.222, $2+0, $3+7.4, 1.976)
pt3dadd($1+14.444, $2+0, $3+8.633, 1.972)
pt3dadd($1+14.667, $2+0, $3+9.867, 1.968)
pt3dadd($1+14.889, $2+0, $3+11.1, 1.964)
pt3dadd($1+15.111, $2+0, $3+11.1, 1.96)
pt3dadd($1+15.333, $2+0, $3+11.1, 1.956)
pt3dadd($1+15.556, $2+0.222, $3+11.1, 1.952)
pt3dadd($1+15.778, $2+0.222, $3+11.1, 1.948)
pt3dadd($1+16, $2+0.222, $3+11.1, 1.944)
pt3dadd($1+16.222, $2+0.222, $3+11.1, 1.938)
pt3dadd($1+16.444, $2+0.222, $3+11.1, 1.934)
pt3dadd($1+16.667, $2+0.222, $3+11.1, 1.93)
pt3dadd($1+16.889, $2+0.222, $3+11.1, 1.926)
pt3dadd($1+17.111, $2+0.222, $3+11.1, 1.922)
pt3dadd($1+17.333, $2+0.222, $3+11.1, 1.918)
pt3dadd($1+17.556, $2+0.222, $3+11.1, 1.914)
pt3dadd($1+17.778, $2+0.222, $3+11.1, 1.91)
pt3dadd($1+18, $2+0.222, $3+11.1, 1.906)
pt3dadd($1+18.222, $2+0.222, $3+11.1, 1.902)
pt3dadd($1+18.444, $2+0.222, $3+11.1, 1.898)
pt3dadd($1+18.667, $2+0.222, $3+11.1, 1.894)
pt3dadd($1+18.889, $2+0, $3+11.1, 1.89)
pt3dadd($1+19.111, $2+-0.222, $3+11.1, 1.886)
pt3dadd($1+19.333, $2+-0.222, $3+11.1, 1.882)
pt3dadd($1+19.556, $2+-0.222, $3+11.1, 1.878)
pt3dadd($1+19.778, $2+-0.222, $3+11.1, 1.874)
pt3dadd($1+20, $2+-0.222, $3+11.1, 1.87)
pt3dadd($1+20.222, $2+-0.222, $3+11.1, 1.866)
pt3dadd($1+20.444, $2+-0.222, $3+11.1, 1.862)
pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
}
dend[4] {pt3dclear()
pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
pt3dadd($1+20.889, $2+-0.444, $3+11.1, 1.854)
pt3dadd($1+21.111, $2+-0.444, $3+11.1, 1.85)
pt3dadd($1+21.333, $2+-0.667, $3+11.1, 1.846)
pt3dadd($1+21.556, $2+-0.889, $3+11.1, 1.842)
pt3dadd($1+21.778, $2+-0.889, $3+11.1, 1.838)
pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
}
dend[5] {pt3dclear()
pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
pt3dadd($1+22.222, $2+-1.333, $3+11.1, 1.83)
pt3dadd($1+22.444, $2+-1.556, $3+11.1, 1.824)
pt3dadd($1+22.667, $2+-1.778, $3+11.1, 1.82)
pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
}
dend[6] {pt3dclear()
pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
pt3dadd($1+23.111, $2+-2.222, $3+11.1, 1.812)
pt3dadd($1+23.333, $2+-2.222, $3+11.1, 1.808)
pt3dadd($1+23.556, $2+-2.222, $3+11.1, 1.804)
pt3dadd($1+23.778, $2+-2.222, $3+11.1, 1.8)
pt3dadd($1+24, $2+-2.222, $3+11.1, 1.796)
pt3dadd($1+24.222, $2+-2.222, $3+11.1, 1.792)
pt3dadd($1+24.444, $2+-2.444, $3+11.1, 1.788)
pt3dadd($1+24.667, $2+-2.667, $3+11.1, 1.784)
pt3dadd($1+24.889, $2+-2.889, $3+11.1, 1.78)
pt3dadd($1+25.111, $2+-2.889, $3+11.1, 1.776)
pt3dadd($1+25.333, $2+-2.889, $3+11.1, 1.772)
pt3dadd($1+25.556, $2+-2.889, $3+11.1, 1.768)
pt3dadd($1+25.778, $2+-2.889, $3+11.1, 1.764)
pt3dadd($1+26, $2+-2.889, $3+11.1, 1.76)
pt3dadd($1+26.222, $2+-2.889, $3+11.1, 1.756)
pt3dadd($1+26.444, $2+-2.889, $3+11.1, 1.752)
pt3dadd($1+26.667, $2+-2.889, $3+11.1, 1.748)
pt3dadd($1+26.889, $2+-2.667, $3+11.1, 1.744)
pt3dadd($1+27.111, $2+-2.667, $3+11.1, 1.74)
pt3dadd($1+27.333, $2+-2.667, $3+11.1, 1.736)
pt3dadd($1+27.556, $2+-2.667, $3+11.1, 1.732)
pt3dadd($1+27.778, $2+-2.667, $3+11.1, 1.728)
pt3dadd($1+28, $2+-2.667, $3+11.1, 1.724)
pt3dadd($1+28.222, $2+-2.889, $3+11.1, 1.72)
pt3dadd($1+28.444, $2+-2.889, $3+11.1, 1.716)
pt3dadd($1+28.667, $2+-2.889, $3+11.1, 1.71)
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
}
dend[7] {pt3dclear()
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
pt3dadd($1+29.111, $2+-2.889, $3+11.1, 1.702)
pt3dadd($1+29.333, $2+-2.889, $3+11.1, 1.698)
pt3dadd($1+29.556, $2+-2.889, $3+11.1, 1.694)
pt3dadd($1+29.778, $2+-2.889, $3+11.1, 1.69)
pt3dadd($1+30, $2+-2.889, $3+11.1, 1.686)
pt3dadd($1+30.222, $2+-2.889, $3+11.1, 1.682)
pt3dadd($1+30.444, $2+-2.889, $3+11.1, 1.678)
pt3dadd($1+30.667, $2+-2.889, $3+11.1, 1.674)
pt3dadd($1+30.889, $2+-2.889, $3+11.1, 1.67)
pt3dadd($1+31.111, $2+-2.667, $3+11.1, 1.666)
pt3dadd($1+31.333, $2+-2.667, $3+11.1, 1.662)
pt3dadd($1+31.556, $2+-2.444, $3+11.1, 1.658)
pt3dadd($1+31.778, $2+-2.444, $3+11.1, 1.654)
pt3dadd($1+32, $2+-2.222, $3+11.1, 1.65)
pt3dadd($1+32.222, $2+-2.222, $3+11.1, 1.646)
pt3dadd($1+32.444, $2+-2.222, $3+11.1, 1.642)
pt3dadd($1+32.667, $2+-2, $3+11.1, 1.638)
pt3dadd($1+32.889, $2+-2, $3+11.1, 1.634)
pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
}
dend[8] {pt3dclear()
pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
pt3dadd($1+33.333, $2+-2, $3+11.1, 1.626)
pt3dadd($1+33.556, $2+-2.222, $3+11.1, 1.622)
pt3dadd($1+33.778, $2+-2.444, $3+11.1, 1.618)
pt3dadd($1+34, $2+-2.667, $3+11.1, 1.614)
pt3dadd($1+34.222, $2+-2.889, $3+11.1, 1.61)
pt3dadd($1+34.444, $2+-3.111, $3+11.1, 1.606)
pt3dadd($1+34.667, $2+-3.333, $3+11.1, 1.602)
pt3dadd($1+34.889, $2+-3.556, $3+11.1, 1.598)
pt3dadd($1+35.111, $2+-3.778, $3+11.1, 1.592)
pt3dadd($1+35.333, $2+-4, $3+11.1, 1.588)
pt3dadd($1+35.333, $2+-4.222, $3+11.1, 1.584)
pt3dadd($1+35.333, $2+-4.444, $3+11.1, 1.58)
pt3dadd($1+35.556, $2+-4.667, $3+11.1, 1.576)
pt3dadd($1+35.778, $2+-4.889, $3+11.1, 1.572)
pt3dadd($1+36, $2+-5.111, $3+11.1, 1.568)
pt3dadd($1+36.222, $2+-5.333, $3+11.1, 1.564)
pt3dadd($1+36.444, $2+-5.556, $3+11.1, 1.56)
pt3dadd($1+36.444, $2+-5.778, $3+11.1, 1.556)
pt3dadd($1+36.667, $2+-6, $3+11.1, 1.552)
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
}
dend[9] {pt3dclear()
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
pt3dadd($1+37.111, $2+-6.444, $3+11.1, 1.544)
pt3dadd($1+37.333, $2+-6.444, $3+11.1, 1.54)
pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
}
dend[10] {pt3dclear()
pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
pt3dadd($1+37.778, $2+-6.889, $3+11.1, 1.532)
pt3dadd($1+38, $2+-6.889, $3+11.1, 1.528)
pt3dadd($1+38.222, $2+-7.111, $3+11.1, 1.524)
pt3dadd($1+38.444, $2+-7.111, $3+11.1, 1.52)
pt3dadd($1+38.667, $2+-7.111, $3+11.1, 1.516)
pt3dadd($1+38.889, $2+-7.333, $3+11.1, 1.512)
pt3dadd($1+39.111, $2+-7.556, $3+11.1, 1.508)
pt3dadd($1+39.333, $2+-7.556, $3+11.1, 1.504)
pt3dadd($1+39.556, $2+-7.556, $3+11.1, 1.5)
pt3dadd($1+39.778, $2+-7.556, $3+11.1, 1.496)
pt3dadd($1+40, $2+-7.556, $3+11.1, 1.492)
pt3dadd($1+40.222, $2+-7.556, $3+11.1, 1.488)
pt3dadd($1+40.444, $2+-7.556, $3+11.1, 1.484)
pt3dadd($1+40.667, $2+-7.778, $3+11.1, 1.478)
pt3dadd($1+40.889, $2+-7.778, $3+11.1, 1.474)
pt3dadd($1+41.111, $2+-8, $3+11.1, 1.47)
pt3dadd($1+41.333, $2+-8, $3+11.1, 1.466)
pt3dadd($1+41.556, $2+-8, $3+11.1, 1.462)
pt3dadd($1+41.778, $2+-8, $3+11.1, 1.458)
pt3dadd($1+42, $2+-8.222, $3+11.1, 1.454)
pt3dadd($1+42.222, $2+-8.222, $3+11.1, 1.45)
pt3dadd($1+42.444, $2+-8.222, $3+11.1, 1.446)
pt3dadd($1+42.667, $2+-8.222, $3+11.1, 1.442)
pt3dadd($1+42.889, $2+-8.222, $3+11.1, 1.438)
pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
}
dend[11] {pt3dclear()
pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
pt3dadd($1+43.333, $2+-8.222, $3+11.1, 1.43)
pt3dadd($1+43.556, $2+-8.222, $3+11.1, 1.426)
pt3dadd($1+43.778, $2+-8.222, $3+11.1, 1.422)
pt3dadd($1+44, $2+-8.222, $3+11.1, 1.418)
pt3dadd($1+44.222, $2+-8.222, $3+11.1, 1.414)
pt3dadd($1+44.444, $2+-8.222, $3+11.1, 1.41)
pt3dadd($1+44.667, $2+-8.222, $3+11.1, 1.406)
pt3dadd($1+44.889, $2+-8.222, $3+11.1, 1.402)
pt3dadd($1+45.111, $2+-8.222, $3+11.1, 1.398)
pt3dadd($1+45.333, $2+-8.222, $3+11.1, 1.394)
pt3dadd($1+45.556, $2+-8.222, $3+11.1, 1.39)
pt3dadd($1+45.778, $2+-8, $3+11.1, 1.386)
pt3dadd($1+46, $2+-8, $3+11.1, 1.382)
pt3dadd($1+46.222, $2+-7.778, $3+11.1, 1.378)
pt3dadd($1+46.444, $2+-7.556, $3+11.1, 1.374)
pt3dadd($1+46.667, $2+-7.333, $3+11.1, 1.37)
pt3dadd($1+46.889, $2+-7.333, $3+11.1, 1.364)
pt3dadd($1+47.111, $2+-7.333, $3+11.1, 1.36)
pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
}
dend[12] {pt3dclear()
pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
pt3dadd($1+47.556, $2+-6.889, $3+11.1, 1.352)
pt3dadd($1+47.778, $2+-6.667, $3+11.1, 1.348)
pt3dadd($1+48, $2+-6.444, $3+11.1, 1.344)
pt3dadd($1+48.222, $2+-6.222, $3+11.1, 1.34)
}
}
proc shape3d_5() {
dend[12] { pt3dadd($1+48.444, $2+-6.222, $3+11.1, 1.336)
pt3dadd($1+48.667, $2+-6.222, $3+11.1, 1.332)
pt3dadd($1+48.889, $2+-6.222, $3+11.1, 1.328)
pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
}
dend[13] {pt3dclear()
pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
pt3dadd($1+49.333, $2+-5.778, $3+11.1, 1.32)
pt3dadd($1+49.556, $2+-5.778, $3+11.1, 1.316)
pt3dadd($1+49.778, $2+-5.556, $3+11.1, 1.312)
pt3dadd($1+50, $2+-5.556, $3+11.1, 1.308)
pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
}
dend[14] {pt3dclear()
pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
pt3dadd($1+50.444, $2+-5.333, $3+11.1, 1.3)
pt3dadd($1+50.667, $2+-5.333, $3+11.1, 1.296)
pt3dadd($1+50.889, $2+-5.333, $3+11.1, 1.292)
pt3dadd($1+51.111, $2+-5.333, $3+11.1, 1.288)
pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
}
dend[15] {pt3dclear()
pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
pt3dadd($1+51.556, $2+-5.333, $3+11.1, 1.28)
pt3dadd($1+51.778, $2+-5.333, $3+11.1, 1.276)
pt3dadd($1+52, $2+-5.333, $3+11.1, 1.272)
pt3dadd($1+52.222, $2+-5.333, $3+11.1, 1.268)
pt3dadd($1+52.444, $2+-5.556, $3+11.1, 1.264)
pt3dadd($1+52.667, $2+-5.778, $3+11.1, 1.26)
pt3dadd($1+52.889, $2+-5.778, $3+11.1, 1.256)
pt3dadd($1+53.111, $2+-6, $3+11.1, 1.252)
pt3dadd($1+53.333, $2+-6.222, $3+11.1, 1.246)
pt3dadd($1+53.556, $2+-6.444, $3+11.1, 1.242)
pt3dadd($1+53.556, $2+-6.667, $3+11.1, 1.238)
pt3dadd($1+53.778, $2+-6.889, $3+11.1, 1.234)
pt3dadd($1+54, $2+-7.111, $3+11.1, 1.23)
pt3dadd($1+54.222, $2+-7.333, $3+11.1, 1.226)
pt3dadd($1+54.444, $2+-7.556, $3+11.1, 1.222)
pt3dadd($1+54.444, $2+-7.778, $3+11.1, 1.218)
pt3dadd($1+54.444, $2+-8, $3+11.1, 1.214)
pt3dadd($1+54.667, $2+-8.222, $3+11.1, 1.21)
pt3dadd($1+54.889, $2+-8.444, $3+11.1, 1.206)
pt3dadd($1+55.111, $2+-8.667, $3+11.1, 1.202)
pt3dadd($1+55.111, $2+-8.889, $3+11.1, 1.198)
pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
}
dend[16] {pt3dclear()
pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
pt3dadd($1+55.333, $2+-9.333, $3+11.1, 1.19)
pt3dadd($1+55.333, $2+-9.556, $3+11.1, 1.186)
pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
}
dend[17] {pt3dclear()
pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
pt3dadd($1+55.333, $2+-10, $3+11.1, 1.178)
pt3dadd($1+55.556, $2+-10.222, $3+11.1, 1.174)
pt3dadd($1+55.778, $2+-10.444, $3+11.1, 1.17)
pt3dadd($1+56, $2+-10.444, $3+11.1, 1.166)
pt3dadd($1+56.222, $2+-10.444, $3+11.1, 1.162)
pt3dadd($1+56.444, $2+-10.667, $3+11.1, 1.158)
pt3dadd($1+56.444, $2+-10.889, $3+11.1, 1.154)
pt3dadd($1+56.667, $2+-11.111, $3+11.1, 1.15)
pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
}
dend[18] {pt3dclear()
pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
pt3dadd($1+57.111, $2+-11.556, $3+11.1, 1.142)
pt3dadd($1+57.333, $2+-11.778, $3+11.1, 1.138)
pt3dadd($1+57.556, $2+-11.778, $3+11.1, 1.132)
pt3dadd($1+57.778, $2+-12, $3+11.1, 1.128)
pt3dadd($1+58, $2+-12, $3+11.1, 1.124)
pt3dadd($1+58.222, $2+-12, $3+11.1, 1.12)
pt3dadd($1+58.444, $2+-12, $3+11.1, 1.116)
pt3dadd($1+58.667, $2+-12, $3+11.1, 1.112)
pt3dadd($1+58.889, $2+-12, $3+11.1, 1.108)
pt3dadd($1+59.111, $2+-12, $3+11.1, 1.104)
pt3dadd($1+59.333, $2+-12.222, $3+11.1, 1.1)
pt3dadd($1+59.556, $2+-12.222, $3+11.1, 1.096)
pt3dadd($1+59.778, $2+-12.222, $3+11.1, 1.092)
pt3dadd($1+60, $2+-12.222, $3+11.1, 1.088)
pt3dadd($1+60.222, $2+-12.444, $3+11.1, 1.084)
pt3dadd($1+60.444, $2+-12.444, $3+11.1, 1.08)
pt3dadd($1+60.667, $2+-12.444, $3+11.1, 1.076)
pt3dadd($1+60.889, $2+-12.444, $3+11.1, 1.072)
pt3dadd($1+61.111, $2+-12.444, $3+11.1, 1.068)
pt3dadd($1+61.333, $2+-12.444, $3+11.1, 1.064)
pt3dadd($1+61.556, $2+-12.444, $3+11.1, 1.06)
}
dend[19] {pt3dclear()
pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.056)
pt3dadd($1+2.667, $2+-7.556, $3+11.1, 1.052)
pt3dadd($1+2.444, $2+-7.333, $3+11.1, 1.048)
pt3dadd($1+2.222, $2+-7.333, $3+11.1, 1.044)
pt3dadd($1+2, $2+-7.111, $3+11.1, 1.04)
pt3dadd($1+1.778, $2+-6.889, $3+11.1, 1.036)
pt3dadd($1+1.778, $2+-6.667, $3+11.1, 1.032)
pt3dadd($1+1.556, $2+-6.444, $3+11.1, 1.028)
pt3dadd($1+1.556, $2+-6.222, $3+11.1, 1.024)
pt3dadd($1+1.333, $2+-6, $3+11.1, 1.018)
pt3dadd($1+1.111, $2+-5.778, $3+11.1, 1.014)
}
dend[20] {pt3dclear()
pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.01)
pt3dadd($1+3.333, $2+-7.778, $3+11.1, 1.006)
pt3dadd($1+3.333, $2+-8, $3+11.1, 1.002)
pt3dadd($1+3.333, $2+-8.222, $3+11.1, 0.998)
pt3dadd($1+3.333, $2+-8.444, $3+11.1, 0.994)
pt3dadd($1+3.556, $2+-8.667, $3+11.1, 0.99)
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
}
dend[21] {pt3dclear()
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
pt3dadd($1+4, $2+-9.111, $3+11.1, 0.982)
pt3dadd($1+4, $2+-9.333, $3+11.1, 0.978)
pt3dadd($1+4, $2+-9.556, $3+11.1, 0.974)
pt3dadd($1+4, $2+-9.778, $3+11.1, 0.97)
pt3dadd($1+4, $2+-10, $3+11.1, 0.966)
pt3dadd($1+4.222, $2+-10.222, $3+11.1, 0.962)
pt3dadd($1+4.444, $2+-10.444, $3+11.1, 0.958)
pt3dadd($1+4.667, $2+-10.667, $3+11.1, 0.954)
pt3dadd($1+4.889, $2+-10.667, $3+11.1, 0.95)
}
dend[22] {pt3dclear()
pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
pt3dadd($1+56.889, $2+-11.333, $3+11.1, 0.946)
pt3dadd($1+56.889, $2+-11.556, $3+11.1, 0.942)
pt3dadd($1+56.667, $2+-11.778, $3+11.1, 0.938)
pt3dadd($1+56.444, $2+-12, $3+11.1, 0.934)
pt3dadd($1+56.444, $2+-12.222, $3+11.1, 0.93)
pt3dadd($1+56.444, $2+-12.444, $3+11.1, 0.926)
pt3dadd($1+56.444, $2+-12.667, $3+11.1, 0.922)
pt3dadd($1+56.667, $2+-12.889, $3+11.1, 0.918)
pt3dadd($1+56.889, $2+-13.111, $3+11.1, 0.914)
}
dend[23] {pt3dclear()
pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
pt3dadd($1+55.333, $2+-9.778, $3+11.1, 0.91)
pt3dadd($1+55.333, $2+-10, $3+11.1, 0.906)
pt3dadd($1+55.111, $2+-10.222, $3+11.1, 0.9)
pt3dadd($1+54.889, $2+-10.444, $3+11.1, 0.896)
pt3dadd($1+54.667, $2+-10.667, $3+11.1, 0.892)
pt3dadd($1+54.444, $2+-10.889, $3+11.1, 0.888)
pt3dadd($1+54.444, $2+-11.111, $3+11.1, 0.884)
pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
}
dend[24] {pt3dclear()
pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
pt3dadd($1+54.444, $2+-11.556, $3+11.1, 0.876)
pt3dadd($1+54.444, $2+-11.778, $3+11.1, 0.872)
pt3dadd($1+54.444, $2+-12, $3+11.1, 0.868)
pt3dadd($1+54.444, $2+-12.222, $3+11.1, 0.864)
pt3dadd($1+54.444, $2+-12.444, $3+11.1, 0.86)
pt3dadd($1+54.444, $2+-12.667, $3+11.1, 0.856)
pt3dadd($1+54.222, $2+-12.889, $3+11.1, 0.852)
pt3dadd($1+54.222, $2+-13.111, $3+11.1, 0.848)
pt3dadd($1+54.222, $2+-13.333, $3+11.1, 0.844)
pt3dadd($1+54.222, $2+-13.556, $3+11.1, 0.84)
pt3dadd($1+54.222, $2+-13.778, $3+11.1, 0.836)
pt3dadd($1+54, $2+-14, $3+11.1, 0.832)
pt3dadd($1+53.778, $2+-14.222, $3+11.1, 0.828)
pt3dadd($1+53.556, $2+-14.444, $3+11.1, 0.824)
pt3dadd($1+53.333, $2+-14.667, $3+11.1, 0.82)
pt3dadd($1+53.111, $2+-14.889, $3+11.1, 0.816)
pt3dadd($1+53.111, $2+-15.111, $3+11.1, 0.812)
pt3dadd($1+53.111, $2+-15.333, $3+11.1, 0.808)
pt3dadd($1+53.111, $2+-15.556, $3+11.1, 0.804)
}
dend[25] {pt3dclear()
pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
pt3dadd($1+55.333, $2+-9.111, $3+11.1, 0.8)
pt3dadd($1+55.556, $2+-9.111, $3+11.1, 0.796)
pt3dadd($1+55.778, $2+-9.111, $3+11.1, 0.792)
pt3dadd($1+56, $2+-8.889, $3+11.1, 0.786)
pt3dadd($1+56.222, $2+-8.667, $3+11.1, 0.782)
pt3dadd($1+56.444, $2+-8.444, $3+11.1, 0.778)
pt3dadd($1+56.667, $2+-8.222, $3+11.1, 0.774)
pt3dadd($1+56.889, $2+-8.222, $3+11.1, 0.77)
pt3dadd($1+57.111, $2+-8.222, $3+11.1, 0.766)
pt3dadd($1+57.333, $2+-8, $3+11.1, 0.762)
pt3dadd($1+57.556, $2+-7.778, $3+11.1, 0.758)
pt3dadd($1+57.778, $2+-7.556, $3+11.1, 0.754)
pt3dadd($1+57.778, $2+-7.333, $3+11.1, 0.75)
pt3dadd($1+57.778, $2+-7.111, $3+11.1, 0.746)
pt3dadd($1+57.778, $2+-6.889, $3+11.1, 0.742)
pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
}
dend[26] {pt3dclear()
pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
pt3dadd($1+57.778, $2+-6.444, $3+11.1, 0.734)
pt3dadd($1+57.556, $2+-6.222, $3+11.1, 0.73)
pt3dadd($1+57.333, $2+-6, $3+11.1, 0.726)
pt3dadd($1+57.111, $2+-6, $3+11.1, 0.722)
pt3dadd($1+56.889, $2+-5.778, $3+11.1, 0.718)
}
dend[27] {pt3dclear()
pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
pt3dadd($1+51.333, $2+-5.333, $3+11.1, 0.714)
pt3dadd($1+51.333, $2+-5.111, $3+11.1, 0.71)
pt3dadd($1+51.333, $2+-4.889, $3+11.1, 0.706)
pt3dadd($1+51.333, $2+-4.667, $3+11.1, 0.702)
pt3dadd($1+51.333, $2+-4.444, $3+11.1, 0.698)
pt3dadd($1+51.556, $2+-4.222, $3+11.1, 0.694)
pt3dadd($1+51.556, $2+-4, $3+11.1, 0.69)
pt3dadd($1+51.556, $2+-3.778, $3+11.1, 0.686)
pt3dadd($1+51.778, $2+-3.556, $3+11.1, 0.682)
pt3dadd($1+52, $2+-3.333, $3+11.1, 0.678)
}
dend[28] {pt3dclear()
pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
pt3dadd($1+50.222, $2+-5.333, $3+11.1, 0.672)
pt3dadd($1+50.222, $2+-5.111, $3+11.1, 0.668)
pt3dadd($1+50.222, $2+-4.889, $3+11.1, 0.664)
pt3dadd($1+50.222, $2+-4.667, $3+11.1, 0.66)
pt3dadd($1+50.222, $2+-4.444, $3+11.1, 0.656)
pt3dadd($1+50, $2+-4.222, $3+11.1, 0.652)
pt3dadd($1+50, $2+-4, $3+11.1, 0.648)
pt3dadd($1+49.778, $2+-3.778, $3+11.1, 0.644)
pt3dadd($1+49.556, $2+-3.556, $3+11.1, 0.64)
pt3dadd($1+49.333, $2+-3.333, $3+11.1, 0.636)
pt3dadd($1+49.111, $2+-3.111, $3+11.1, 0.632)
pt3dadd($1+48.889, $2+-3.111, $3+11.1, 0.628)
pt3dadd($1+48.667, $2+-2.889, $3+11.1, 0.624)
pt3dadd($1+48.444, $2+-2.889, $3+11.1, 0.62)
pt3dadd($1+48.444, $2+-2.667, $3+11.1, 0.616)
pt3dadd($1+48.667, $2+-2.444, $3+11.1, 0.612)
pt3dadd($1+48.889, $2+-2.222, $3+11.1, 0.608)
pt3dadd($1+48.889, $2+-2, $3+11.1, 0.604)
pt3dadd($1+48.889, $2+-1.778, $3+11.1, 0.6)
pt3dadd($1+48.667, $2+-1.556, $3+11.1, 0.596)
pt3dadd($1+48.444, $2+-1.556, $3+11.1, 0.592)
}
}
proc shape3d_6() {
dend[28] { }
dend[29] {pt3dclear()
pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
pt3dadd($1+49.111, $2+-6, $3+11.1, 0.588)
pt3dadd($1+48.889, $2+-5.778, $3+11.1, 0.584)
pt3dadd($1+48.667, $2+-5.556, $3+11.1, 0.58)
pt3dadd($1+48.444, $2+-5.556, $3+11.1, 0.576)
pt3dadd($1+48.222, $2+-5.556, $3+11.1, 0.572)
pt3dadd($1+48, $2+-5.333, $3+11.1, 0.568)
pt3dadd($1+47.778, $2+-5.333, $3+11.1, 0.564)
pt3dadd($1+47.556, $2+-5.333, $3+11.1, 0.56)
pt3dadd($1+47.333, $2+-5.111, $3+11.1, 0.554)
pt3dadd($1+47.111, $2+-4.889, $3+11.1, 0.55)
pt3dadd($1+47.111, $2+-4.667, $3+11.1, 0.546)
}
dend[30] {pt3dclear()
pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
pt3dadd($1+47.333, $2+-7.111, $3+11.1, 0.542)
pt3dadd($1+47.111, $2+-7.111, $3+11.1, 0.538)
pt3dadd($1+46.889, $2+-6.889, $3+11.1, 0.534)
pt3dadd($1+46.889, $2+-6.667, $3+11.1, 0.53)
pt3dadd($1+46.667, $2+-6.444, $3+11.1, 0.526)
pt3dadd($1+46.444, $2+-6.444, $3+11.1, 0.522)
pt3dadd($1+46.222, $2+-6.667, $3+11.1, 0.518)
pt3dadd($1+46, $2+-6.667, $3+11.1, 0.514)
pt3dadd($1+45.778, $2+-6.667, $3+11.1, 0.51)
pt3dadd($1+45.556, $2+-6.667, $3+11.1, 0.506)
pt3dadd($1+45.333, $2+-6.444, $3+11.1, 0.502)
pt3dadd($1+45.111, $2+-6.222, $3+11.1, 0.498)
pt3dadd($1+44.889, $2+-6.222, $3+11.1, 0.494)
pt3dadd($1+44.667, $2+-6.222, $3+11.1, 0.49)
pt3dadd($1+44.444, $2+-6.444, $3+11.1, 0.486)
pt3dadd($1+44.222, $2+-6.667, $3+11.1, 0.482)
pt3dadd($1+44.222, $2+-6.889, $3+11.1, 0.478)
}
dend[31] {pt3dclear()
pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
pt3dadd($1+43.111, $2+-8.222, $3+11.1, 0.474)
pt3dadd($1+43.111, $2+-8.444, $3+11.1, 0.47)
pt3dadd($1+43.333, $2+-8.667, $3+11.1, 0.466)
pt3dadd($1+43.556, $2+-8.889, $3+11.1, 0.462)
pt3dadd($1+43.778, $2+-9.111, $3+11.1, 0.458)
pt3dadd($1+44, $2+-9.333, $3+11.1, 0.454)
pt3dadd($1+44.222, $2+-9.333, $3+11.1, 0.45)
pt3dadd($1+44.444, $2+-9.556, $3+11.1, 0.446)
pt3dadd($1+44.667, $2+-9.556, $3+11.1, 0.44)
pt3dadd($1+44.889, $2+-9.556, $3+11.1, 0.436)
pt3dadd($1+45.111, $2+-9.556, $3+11.1, 0.432)
pt3dadd($1+45.333, $2+-9.556, $3+11.1, 0.428)
pt3dadd($1+45.556, $2+-9.556, $3+11.1, 0.424)
pt3dadd($1+45.778, $2+-9.778, $3+11.1, 0.42)
pt3dadd($1+46, $2+-10, $3+11.1, 0.416)
pt3dadd($1+46.222, $2+-10.222, $3+11.1, 0.412)
pt3dadd($1+46.444, $2+-10.444, $3+11.1, 0.408)
pt3dadd($1+46.667, $2+-10.667, $3+11.1, 0.404)
pt3dadd($1+46.889, $2+-10.889, $3+11.1, 0.4)
pt3dadd($1+47.111, $2+-11.111, $3+11.1, 0.396)
pt3dadd($1+47.111, $2+-11.333, $3+11.1, 0.392)
pt3dadd($1+47.333, $2+-11.556, $3+11.1, 0.388)
pt3dadd($1+47.333, $2+-11.778, $3+11.1, 0.384)
pt3dadd($1+47.333, $2+-12, $3+11.1, 0.38)
pt3dadd($1+47.333, $2+-12.222, $3+11.1, 0.376)
pt3dadd($1+47.333, $2+-12.444, $3+11.1, 0.372)
pt3dadd($1+47.111, $2+-12.667, $3+11.1, 0.368)
pt3dadd($1+46.889, $2+-12.889, $3+11.1, 0.364)
pt3dadd($1+46.667, $2+-13.111, $3+11.1, 0.36)
pt3dadd($1+46.444, $2+-13.111, $3+11.1, 0.356)
pt3dadd($1+46.222, $2+-13.333, $3+11.1, 0.352)
pt3dadd($1+46, $2+-13.333, $3+11.1, 0.348)
pt3dadd($1+45.778, $2+-13.333, $3+11.1, 0.344)
pt3dadd($1+45.556, $2+-13.333, $3+11.1, 0.34)
pt3dadd($1+45.333, $2+-13.556, $3+11.1, 0.336)
pt3dadd($1+45.111, $2+-13.778, $3+11.1, 0.332)
pt3dadd($1+44.889, $2+-14, $3+11.1, 0.326)
pt3dadd($1+44.889, $2+-14.222, $3+11.1, 0.322)
pt3dadd($1+44.667, $2+-14, $3+11.1, 0.318)
pt3dadd($1+44.444, $2+-13.778, $3+11.1, 0.314)
pt3dadd($1+44.444, $2+-13.556, $3+11.1, 0.31)
pt3dadd($1+44.667, $2+-13.333, $3+11.1, 0.306)
pt3dadd($1+44.667, $2+-13.111, $3+11.1, 0.302)
pt3dadd($1+44.667, $2+-12.889, $3+11.1, 0.298)
pt3dadd($1+44.889, $2+-12.667, $3+11.1, 0.294)
pt3dadd($1+45.111, $2+-12.444, $3+11.1, 0.29)
pt3dadd($1+45.333, $2+-12.222, $3+11.1, 0.286)
pt3dadd($1+45.333, $2+-12, $3+11.1, 0.282)
pt3dadd($1+45.111, $2+-11.778, $3+11.1, 0.278)
pt3dadd($1+45.111, $2+-11.556, $3+11.1, 0.274)
pt3dadd($1+45.333, $2+-11.333, $3+11.1, 0.27)
}
dend[32] {pt3dclear()
pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
pt3dadd($1+37.556, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-7.111, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-7.333, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
}
dend[33] {pt3dclear()
pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+38, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+38, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+38, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
}
dend[34] {pt3dclear()
pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-12, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-13.556, $3+11.1, 0.27)
}
dend[35] {pt3dclear()
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-6, $3+11.1, 0.27)
pt3dadd($1+38, $2+-5.778, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-5.556, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-5.333, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-5.111, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-4.889, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-4, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-3.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-3.556, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-3.333, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+40, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+40.444, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+40.667, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+40.889, $2+-2.889, $3+11.1, 0.27)
pt3dadd($1+41.111, $2+-2.667, $3+11.1, 0.27)
pt3dadd($1+41.333, $2+-2.444, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-2.222, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-2, $3+11.1, 0.27)
pt3dadd($1+42, $2+-1.778, $3+11.1, 0.27)
pt3dadd($1+42, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+42, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-1.111, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-0.889, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
}
dend[36] {pt3dclear()
pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+44.222, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+44.444, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+44.667, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+44.889, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+45.333, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+45.556, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+45.778, $2+-0.667, $3+11.1, 0.27)
}
dend[37] {pt3dclear()
pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
pt3dadd($1+33.111, $2+-2, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-1.778, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+34, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-1.111, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-0.889, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-0.222, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+0, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+0.222, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+0.444, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+0.889, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+2, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+2, $3+11.1, 0.27)
pt3dadd($1+36, $2+2, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+2, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
}
dend[38] {pt3dclear()
pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+2.667, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+2.889, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+3.333, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+3.333, $3+11.1, 0.27)
}
}
proc shape3d_7() {
dend[38] { pt3dadd($1+37.778, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+38, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+4, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
}
dend[39] {pt3dclear()
pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+5.778, $3+11.1, 0.27)
pt3dadd($1+40, $2+6, $3+11.1, 0.27)
pt3dadd($1+40, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+40, $2+6.444, $3+11.1, 0.27)
pt3dadd($1+40, $2+6.667, $3+11.1, 0.27)
pt3dadd($1+40, $2+6.889, $3+11.1, 0.27)
}
dend[40] {pt3dclear()
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
pt3dadd($1+36.889, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+36, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+34, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-7.111, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-7.333, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
}
dend[41] {pt3dclear()
pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-8, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-10, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-12, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
}
dend[42] {pt3dclear()
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+34, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+36, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-13.111, $3+11.1, 0.27)
}
dend[43] {pt3dclear()
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-3.333, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-3.556, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-3.778, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-4, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
}
dend[44] {pt3dclear()
pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+28, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-4.889, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-5.111, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-5.333, $3+11.1, 0.27)
}
dend[45] {pt3dclear()
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
pt3dadd($1+28.889, $2+-2.889, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-2.667, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-2.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-2.222, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-2, $3+11.1, 0.27)
pt3dadd($1+28, $2+-1.778, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-1.111, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-0.889, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+-0.667, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-0.222, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+0, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+0.222, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+0.444, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+0.889, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+26, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+2, $3+11.1, 0.27)
}
dend[46] {pt3dclear()
pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
pt3dadd($1+20.667, $2+-0.222, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+0, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+0.222, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+0.444, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+0.889, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+2, $3+11.1, 0.27)
pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
}
dend[47] {pt3dclear()
pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+21.556, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+22, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+22.222, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+22.444, $2+2.667, $3+11.1, 0.27)
pt3dadd($1+22.667, $2+2.889, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+3.333, $3+11.1, 0.27)
pt3dadd($1+23.333, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+23.556, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+24, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+24.222, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+24.667, $2+4, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+4, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
}
dend[48] {pt3dclear()
pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+26, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
}
dend[49] {pt3dclear()
pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+5.778, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+6, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
}
dend[50] {pt3dclear()
pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+6.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+6.444, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+6.667, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+6.889, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+6.889, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
}
dend[51] {pt3dclear()
pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+7.333, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+7.556, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+30, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+30.222, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+30.444, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+8, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+8.222, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+8.444, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+8.667, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+8.889, $3+11.1, 0.27)
pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
}
dend[52] {pt3dclear()
pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+9.556, $3+11.1, 0.27)
}
}
proc shape3d_8() {
dend[52] { pt3dadd($1+33.333, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+34, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+9.778, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+10, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+10.222, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+10.667, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+10.889, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+10.889, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+10.889, $3+11.1, 0.27)
pt3dadd($1+36, $2+10.889, $3+11.1, 0.27)
}
dend[53] {pt3dclear()
pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
pt3dadd($1+22, $2+-1.111, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+-1.333, $3+11.1, 0.27)
pt3dadd($1+21.556, $2+-1.556, $3+11.1, 0.27)
pt3dadd($1+21.556, $2+-1.778, $3+11.1, 0.27)
pt3dadd($1+21.333, $2+-2, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+-2.222, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+-2.444, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+-2.667, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+-2.889, $3+11.1, 0.27)
pt3dadd($1+20.222, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+20.222, $2+-3.333, $3+11.1, 0.27)
pt3dadd($1+20.222, $2+-3.556, $3+11.1, 0.27)
pt3dadd($1+20, $2+-3.778, $3+11.1, 0.27)
pt3dadd($1+19.778, $2+-4, $3+11.1, 0.27)
pt3dadd($1+19.556, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+19.556, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+19.556, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+19.556, $2+-4.889, $3+11.1, 0.27)
pt3dadd($1+19.556, $2+-5.111, $3+11.1, 0.27)
}
dend[54] {pt3dclear()
pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
pt3dadd($1+22.889, $2+-2, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-2.222, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-2.444, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-2.667, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-2.889, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-3.111, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-3.333, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-3.556, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-3.778, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-4, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+23.333, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+23.333, $2+-4.889, $3+11.1, 0.27)
pt3dadd($1+23.556, $2+-5.111, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-5.333, $3+11.1, 0.27)
pt3dadd($1+24, $2+-5.556, $3+11.1, 0.27)
pt3dadd($1+24.222, $2+-5.778, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-5.778, $3+11.1, 0.27)
pt3dadd($1+24.667, $2+-5.778, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-6, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+-6.222, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+26, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+-7.111, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+-7.333, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-8, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
}
dend[55] {pt3dclear()
pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+28, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+28, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+28, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+28, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
}
dend[56] {pt3dclear()
pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-12, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+28, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+28, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+28, $2+-13.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+-13.778, $3+11.1, 0.27)
pt3dadd($1+28, $2+-14, $3+11.1, 0.27)
pt3dadd($1+28, $2+-14.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-14.444, $3+11.1, 0.27)
pt3dadd($1+28, $2+-14.667, $3+11.1, 0.27)
pt3dadd($1+28, $2+-14.889, $3+11.1, 0.27)
pt3dadd($1+28, $2+-15.111, $3+11.1, 0.27)
pt3dadd($1+28, $2+-15.333, $3+11.1, 0.27)
pt3dadd($1+28, $2+-15.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+-15.778, $3+11.1, 0.27)
pt3dadd($1+28, $2+-16, $3+11.1, 0.27)
pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
}
dend[57] {pt3dclear()
pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-18, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+30, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
}
dend[58] {pt3dclear()
pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+30.444, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-20, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+-22, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+32, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
}
dend[59] {pt3dclear()
pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+-23.778, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-24, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-24.222, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-24.444, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-24.667, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-24.889, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-25.111, $3+11.1, 0.27)
pt3dadd($1+34, $2+-25.333, $3+11.1, 0.27)
pt3dadd($1+34, $2+-25.556, $3+11.1, 0.27)
pt3dadd($1+34, $2+-25.778, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-26, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-26.444, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-26.667, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
}
dend[60] {pt3dclear()
pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-27.556, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-27.778, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-28, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-28.222, $3+11.1, 0.27)
pt3dadd($1+36, $2+-28.444, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-28.444, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-28.444, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-28.667, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-28.667, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-28.889, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-29.333, $3+11.1, 0.27)
pt3dadd($1+38, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-30, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
}
dend[61] {pt3dclear()
pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+40, $2+-30, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-30, $3+11.1, 0.27)
pt3dadd($1+40.444, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+40.667, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+40.889, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+41.111, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+41.333, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+42, $2+-29.333, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-28.889, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-28.667, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-28.444, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-28.222, $3+11.1, 0.27)
}
}
proc shape3d_9() {
dend[61] { pt3dadd($1+42, $2+-28, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-27.778, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-27.556, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+42, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-26.667, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-26.444, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
}
dend[62] {pt3dclear()
pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-26, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-25.778, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-25.556, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-25.333, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-25.111, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-24.889, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-24.667, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-24.444, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-24.222, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-24, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-23.778, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+44, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+44, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-22, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+44, $2+-20, $3+11.1, 0.27)
pt3dadd($1+44.222, $2+-20, $3+11.1, 0.27)
pt3dadd($1+44.444, $2+-20, $3+11.1, 0.27)
pt3dadd($1+44.667, $2+-20, $3+11.1, 0.27)
pt3dadd($1+44.889, $2+-20, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-20, $3+11.1, 0.27)
pt3dadd($1+45.333, $2+-20, $3+11.1, 0.27)
pt3dadd($1+45.556, $2+-20, $3+11.1, 0.27)
pt3dadd($1+45.778, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.222, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.444, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
}
dend[63] {pt3dclear()
pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.889, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
}
dend[64] {pt3dclear()
pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.333, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.556, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+47.778, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+48, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+48.222, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+48.444, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+48.667, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+48.889, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+49.111, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+49.333, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+49.556, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+49.778, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+50, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+50.222, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+50.444, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+50.889, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+51.111, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+51.778, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+52, $2+-18, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
}
dend[65] {pt3dclear()
pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+52.667, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+52.889, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+53.111, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+53.333, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+53.556, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+53.778, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+54, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+54.222, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+54.444, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+54.667, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+54.889, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+55.111, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+55.333, $2+-16.222, $3+11.1, 0.27)
}
dend[66] {pt3dclear()
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+4, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+4.222, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+4.444, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+4.667, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+4.889, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+5.111, $2+-8, $3+11.1, 0.27)
pt3dadd($1+5.333, $2+-8, $3+11.1, 0.27)
pt3dadd($1+5.556, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+5.778, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+6, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+6.222, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+6.444, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+6.667, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+6.444, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+6.222, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+6, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+5.778, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+5.556, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+5.333, $2+-8, $3+11.1, 0.27)
pt3dadd($1+5.111, $2+-8, $3+11.1, 0.27)
pt3dadd($1+4.889, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+4.667, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+4.444, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+4.222, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+4, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
}
dend[67] {pt3dclear()
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+3.556, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+3.556, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+3.556, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+3.333, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+3.333, $2+-10, $3+11.1, 0.27)
pt3dadd($1+3.333, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+2.889, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+2.667, $2+-12, $3+11.1, 0.27)
pt3dadd($1+2.667, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+2.444, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+2.444, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+2.444, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+2.444, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+2.667, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+2.889, $2+-13.556, $3+11.1, 0.27)
pt3dadd($1+3.111, $2+-13.556, $3+11.1, 0.27)
pt3dadd($1+3.333, $2+-13.556, $3+11.1, 0.27)
}
dend[68] {pt3dclear()
pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+54.222, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+54, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+53.778, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+53.556, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+53.333, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+53.111, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+52.889, $2+-11.556, $3+11.1, 0.27)
}
dend[69] {pt3dclear()
pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+58, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+58.222, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+58.444, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+58.667, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+58.889, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+59.111, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+59.333, $2+-6.222, $3+11.1, 0.27)
}
dend[70] {pt3dclear()
pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-8.444, $3+11.1, 0.27)
}
dend[71] {pt3dclear()
pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-8, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+-8, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-8, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-8, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-8.222, $3+11.1, 0.27)
pt3dadd($1+36, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-9.556, $3+11.1, 0.27)
}
}
proc shape3d_10() {
dend[71] { pt3dadd($1+35.556, $2+-9.778, $3+11.1, 0.27)
}
dend[72] {pt3dclear()
pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+-0.222, $3+11.1, 0.27)
pt3dadd($1+44, $2+0, $3+11.1, 0.27)
pt3dadd($1+44, $2+0.222, $3+11.1, 0.27)
pt3dadd($1+44, $2+0.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+44, $2+0.889, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+2, $3+11.1, 0.27)
pt3dadd($1+42, $2+2, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+2.222, $3+11.1, 0.27)
}
dend[73] {pt3dclear()
pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+4.444, $3+11.1, 0.27)
}
dend[74] {pt3dclear()
pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+2, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+2, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+1.778, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+1.556, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+1.333, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+1.111, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+0.889, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+38, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+0.667, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+0.667, $3+11.1, 0.27)
}
dend[75] {pt3dclear()
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-13.556, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-13.778, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+-13.778, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+-14, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+-14.222, $3+11.1, 0.27)
pt3dadd($1+32, $2+-14.444, $3+11.1, 0.27)
pt3dadd($1+32, $2+-14.667, $3+11.1, 0.27)
pt3dadd($1+32, $2+-14.889, $3+11.1, 0.27)
}
dend[76] {pt3dclear()
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+34, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-12, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-11.556, $3+11.1, 0.27)
}
dend[77] {pt3dclear()
pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+-7.778, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+32, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+-7.556, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+-7.333, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+-7.111, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+-6.889, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+-6.667, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+-6.444, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+-6.222, $3+11.1, 0.27)
}
dend[78] {pt3dclear()
pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-4.444, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-4.667, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-4.889, $3+11.1, 0.27)
}
dend[79] {pt3dclear()
pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+9.778, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+10, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+10.222, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
}
dend[80] {pt3dclear()
pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+32, $2+10.667, $3+11.1, 0.27)
pt3dadd($1+32, $2+10.889, $3+11.1, 0.27)
pt3dadd($1+32, $2+11.111, $3+11.1, 0.27)
}
dend[81] {pt3dclear()
pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+7.333, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+7.556, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+8, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+8.222, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+8.444, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+8.667, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+8.889, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
}
dend[82] {pt3dclear()
pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+9.778, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+10, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+10.222, $3+11.1, 0.27)
}
dend[83] {pt3dclear()
pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+6.444, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+6.667, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+6.889, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+7.111, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+7.333, $3+11.1, 0.27)
}
dend[84] {pt3dclear()
pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+4.667, $3+11.1, 0.27)
}
dend[85] {pt3dclear()
pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+26, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+4, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+3.333, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+3.333, $3+11.1, 0.27)
pt3dadd($1+30, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+30.222, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+30.444, $2+4, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+4, $3+11.1, 0.27)
pt3dadd($1+30.889, $2+4, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+4, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+32, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+32.222, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+5.556, $3+11.1, 0.27)
}
dend[86] {pt3dclear()
pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+2.444, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+2.667, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+2.889, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+3.111, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+3.333, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+3.556, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+3.778, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+4, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
}
dend[87] {pt3dclear()
pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+20.667, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+4.667, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+4.889, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+5.111, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+5.333, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+5.556, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+5.778, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+6, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+6.222, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+6.444, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+6.667, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+6.889, $3+11.1, 0.27)
pt3dadd($1+20.889, $2+7.111, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+7.333, $3+11.1, 0.27)
pt3dadd($1+21.111, $2+7.556, $3+11.1, 0.27)
pt3dadd($1+21.333, $2+7.778, $3+11.1, 0.27)
pt3dadd($1+21.556, $2+8, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+8.222, $3+11.1, 0.27)
}
}
proc shape3d_11() {
dend[87] { pt3dadd($1+21.778, $2+8.444, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+8.667, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+8.889, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+9.111, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+22, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+22.222, $2+9.778, $3+11.1, 0.27)
pt3dadd($1+22.444, $2+10, $3+11.1, 0.27)
pt3dadd($1+22.667, $2+10.222, $3+11.1, 0.27)
pt3dadd($1+22.667, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+10.667, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+10.889, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+11.111, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+11.333, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+11.556, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+11.778, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+12, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+12.222, $3+11.1, 0.27)
}
dend[88] {pt3dclear()
pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+52, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+51.778, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-16, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-15.778, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-15.556, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-15.333, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-15.111, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-14.889, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-14.667, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-14.444, $3+11.1, 0.27)
pt3dadd($1+51.778, $2+-14.222, $3+11.1, 0.27)
pt3dadd($1+52, $2+-14, $3+11.1, 0.27)
pt3dadd($1+52, $2+-13.778, $3+11.1, 0.27)
pt3dadd($1+52, $2+-13.556, $3+11.1, 0.27)
pt3dadd($1+52, $2+-13.333, $3+11.1, 0.27)
pt3dadd($1+51.778, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-13.111, $3+11.1, 0.27)
pt3dadd($1+51.111, $2+-12.889, $3+11.1, 0.27)
pt3dadd($1+50.889, $2+-12.667, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-12.444, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-12.222, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-12, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+50.889, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+50.889, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+50.444, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+50.222, $2+-10.222, $3+11.1, 0.27)
}
dend[89] {pt3dclear()
pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.333, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.556, $2+-20, $3+11.1, 0.27)
pt3dadd($1+47.778, $2+-20, $3+11.1, 0.27)
pt3dadd($1+48, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+48.222, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+48.444, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+48.667, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+48.667, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+48.889, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+49.111, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+49.333, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+49.556, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+49.778, $2+-22, $3+11.1, 0.27)
pt3dadd($1+50, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+50.222, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
}
dend[90] {pt3dclear()
pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+50.667, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+50.889, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+51.111, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+51.333, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+51.556, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+51.778, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+52, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-23.778, $3+11.1, 0.27)
pt3dadd($1+52.222, $2+-24, $3+11.1, 0.27)
}
dend[91] {pt3dclear()
pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+46.889, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+46.889, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+46.889, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+46.889, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+46.667, $2+-18, $3+11.1, 0.27)
pt3dadd($1+46.444, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+46.222, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+46.222, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+46, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+45.778, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+45.778, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+45.778, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+45.556, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+45.333, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+44.889, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+44.667, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+44.444, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+44.222, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+44, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+43.333, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
}
dend[92] {pt3dclear()
pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-16, $3+11.1, 0.27)
pt3dadd($1+42, $2+-16, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+41.333, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+41.111, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+40.889, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+40.667, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+40.444, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-18, $3+11.1, 0.27)
}
dend[93] {pt3dclear()
pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+43.778, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+44, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+44.222, $2+-26, $3+11.1, 0.27)
pt3dadd($1+44.444, $2+-26, $3+11.1, 0.27)
pt3dadd($1+44.667, $2+-26, $3+11.1, 0.27)
pt3dadd($1+44.889, $2+-26, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-25.778, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-25.556, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-25.333, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-25.111, $3+11.1, 0.27)
pt3dadd($1+45.111, $2+-24.889, $3+11.1, 0.27)
}
dend[94] {pt3dclear()
pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-30.444, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-30.667, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-30.889, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-31.111, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-31.333, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-31.556, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-31.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-32, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-32.222, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-32.444, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-32.667, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-32.889, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.111, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
}
dend[95] {pt3dclear()
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.778, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-34, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-34.222, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-34.444, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-34.667, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-34.889, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-35.111, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-35.333, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-35.556, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-35.778, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-36, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-36.222, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-36.444, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-36.667, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-36.889, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-37.111, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-37.333, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-37.556, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-37.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-38, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-38.222, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-38.444, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-38.667, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-38.889, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-39.111, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-39.333, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-39.556, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-39.778, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-40, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-40.222, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-40.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-40.667, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-40.889, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-41.111, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-41.333, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-41.556, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-41.778, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
}
dend[96] {pt3dclear()
pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-42.222, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-42.444, $3+11.1, 0.27)
}
}
proc shape3d_12() {
dend[96] { pt3dadd($1+39.333, $2+-42.667, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-42.889, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-43.111, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-43.333, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-43.556, $3+11.1, 0.27)
}
dend[97] {pt3dclear()
pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+34, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-27.556, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-27.778, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-28, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-28.222, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-28.444, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-28.667, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-28.889, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-29.333, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-29.333, $3+11.1, 0.27)
pt3dadd($1+34, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-28.889, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-28.889, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-29.111, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-29.333, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-29.556, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-29.778, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-30, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-30.222, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-30.444, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-30.667, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-30.889, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-31.111, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-31.333, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-31.556, $3+11.1, 0.27)
pt3dadd($1+36, $2+-31.556, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-31.778, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-31.778, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-31.778, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-31.778, $3+11.1, 0.27)
}
dend[98] {pt3dclear()
pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+30, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+30, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+-20, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-20, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-20, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-22, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+28, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+28, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-23.778, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-24, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-24.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-24.444, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-24.667, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-24.889, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-25.111, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-25.333, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-25.556, $3+11.1, 0.27)
pt3dadd($1+28, $2+-25.778, $3+11.1, 0.27)
pt3dadd($1+28, $2+-26, $3+11.1, 0.27)
pt3dadd($1+28, $2+-26.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-26.444, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-26.667, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-26.889, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-27.111, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-27.333, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-27.556, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-27.778, $3+11.1, 0.27)
}
dend[99] {pt3dclear()
pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+27.778, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+-18, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+26, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-20, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+24.667, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+24.222, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+24, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-22, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+24, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+24, $2+-22.667, $3+11.1, 0.27)
}
dend[100] {pt3dclear()
pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28.222, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28.444, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28.667, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+30, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+30.222, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+30.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+30.667, $2+-11.111, $3+11.1, 0.27)
}
dend[101] {pt3dclear()
pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
pt3dadd($1+27.333, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+27.111, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+26.889, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+26, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+-10, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+24.667, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
}
dend[102] {pt3dclear()
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+24.222, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+24, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+23.556, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+23.333, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+-12, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+-12.222, $3+11.1, 0.27)
}
dend[103] {pt3dclear()
pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+32.667, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-22.444, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-22.222, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-22, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-21.778, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-21.556, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-21.333, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-21.111, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
}
dend[104] {pt3dclear()
pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+34, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+34.222, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+34.444, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+34.667, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+34.889, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+36, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
}
dend[105] {pt3dclear()
pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+38, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-20.444, $3+11.1, 0.27)
}
}
proc shape3d_13() {
dend[105] { pt3dadd($1+39.556, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+40, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+40.444, $2+-20, $3+11.1, 0.27)
pt3dadd($1+40.667, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+40.889, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+41.111, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+41.333, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
}
dend[106] {pt3dclear()
pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-19.111, $3+11.1, 0.27)
}
dend[107] {pt3dclear()
pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+31.556, $2+10.444, $3+11.1, 0.27)
pt3dadd($1+31.333, $2+10.667, $3+11.1, 0.27)
pt3dadd($1+31.111, $2+10.889, $3+11.1, 0.27)
}
dend[108] {pt3dclear()
pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
pt3dadd($1+29.111, $2+9.556, $3+11.1, 0.27)
pt3dadd($1+29.333, $2+9.778, $3+11.1, 0.27)
pt3dadd($1+29.556, $2+10, $3+11.1, 0.27)
pt3dadd($1+29.778, $2+10, $3+11.1, 0.27)
pt3dadd($1+30, $2+10.222, $3+11.1, 0.27)
pt3dadd($1+30, $2+10.444, $3+11.1, 0.27)
}
dend[109] {pt3dclear()
pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+20.222, $2+4.222, $3+11.1, 0.27)
pt3dadd($1+20, $2+4.444, $3+11.1, 0.27)
pt3dadd($1+19.778, $2+4.444, $3+11.1, 0.27)
}
dend[110] {pt3dclear()
pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
pt3dadd($1+50.222, $2+-22.889, $3+11.1, 0.27)
pt3dadd($1+50, $2+-23.111, $3+11.1, 0.27)
pt3dadd($1+49.778, $2+-23.333, $3+11.1, 0.27)
pt3dadd($1+49.556, $2+-23.556, $3+11.1, 0.27)
pt3dadd($1+49.556, $2+-23.778, $3+11.1, 0.27)
pt3dadd($1+49.556, $2+-24, $3+11.1, 0.27)
}
dend[111] {pt3dclear()
pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-16, $3+11.1, 0.27)
pt3dadd($1+42.889, $2+-15.778, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-15.556, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-15.333, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-15.111, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-14.889, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-14.667, $3+11.1, 0.27)
pt3dadd($1+43.111, $2+-14.444, $3+11.1, 0.27)
}
dend[112] {pt3dclear()
pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-42.222, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-42.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-42.444, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-42.444, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-42.444, $3+11.1, 0.27)
pt3dadd($1+38, $2+-42.444, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-42.667, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-42.889, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-43.111, $3+11.1, 0.27)
}
dend[113] {pt3dclear()
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+39.556, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+39.333, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+39.111, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-33.778, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-34, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-34.222, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-34.444, $3+11.1, 0.27)
}
dend[114] {pt3dclear()
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+40, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+40.222, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+40.444, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+40.667, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+40.889, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+41.111, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+41.333, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+41.556, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+41.778, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+42, $2+-33.333, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-33.556, $3+11.1, 0.27)
pt3dadd($1+42.444, $2+-33.778, $3+11.1, 0.27)
pt3dadd($1+42.667, $2+-34, $3+11.1, 0.27)
}
dend[115] {pt3dclear()
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-11.333, $3+11.1, 0.27)
pt3dadd($1+24.667, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+24.889, $2+-11.556, $3+11.1, 0.27)
pt3dadd($1+25.111, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+25.333, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+25.556, $2+-12, $3+11.1, 0.27)
pt3dadd($1+25.778, $2+-12, $3+11.1, 0.27)
pt3dadd($1+26, $2+-12, $3+11.1, 0.27)
pt3dadd($1+26.222, $2+-12, $3+11.1, 0.27)
pt3dadd($1+26.444, $2+-11.778, $3+11.1, 0.27)
pt3dadd($1+26.667, $2+-11.556, $3+11.1, 0.27)
}
dend[116] {pt3dclear()
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
pt3dadd($1+24.222, $2+-10.889, $3+11.1, 0.27)
pt3dadd($1+24, $2+-10.667, $3+11.1, 0.27)
pt3dadd($1+23.778, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+23.556, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+23.333, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+23.111, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+22.889, $2+-10.444, $3+11.1, 0.27)
pt3dadd($1+22.667, $2+-10.222, $3+11.1, 0.27)
pt3dadd($1+22.667, $2+-10, $3+11.1, 0.27)
pt3dadd($1+22.444, $2+-9.778, $3+11.1, 0.27)
pt3dadd($1+22.444, $2+-9.556, $3+11.1, 0.27)
pt3dadd($1+22.444, $2+-9.333, $3+11.1, 0.27)
pt3dadd($1+22.222, $2+-9.111, $3+11.1, 0.27)
pt3dadd($1+22.222, $2+-8.889, $3+11.1, 0.27)
pt3dadd($1+22, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+21.778, $2+-8.667, $3+11.1, 0.27)
pt3dadd($1+21.556, $2+-8.667, $3+11.1, 0.27)
}
dend[117] {pt3dclear()
pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-20, $3+11.1, 0.27)
pt3dadd($1+38, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+38.889, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+38.667, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-18, $3+11.1, 0.27)
pt3dadd($1+38.444, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+38.222, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+38, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+37.778, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+37.556, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+37.333, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
}
dend[118] {pt3dclear()
pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-16.889, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-16.667, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-16.444, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-16.222, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-16, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-15.778, $3+11.1, 0.27)
pt3dadd($1+36, $2+-15.556, $3+11.1, 0.27)
pt3dadd($1+35.778, $2+-15.556, $3+11.1, 0.27)
pt3dadd($1+35.556, $2+-15.333, $3+11.1, 0.27)
pt3dadd($1+35.333, $2+-15.333, $3+11.1, 0.27)
pt3dadd($1+35.111, $2+-15.111, $3+11.1, 0.27)
}
dend[119] {pt3dclear()
pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
pt3dadd($1+33.778, $2+-20.667, $3+11.1, 0.27)
pt3dadd($1+33.556, $2+-20.444, $3+11.1, 0.27)
pt3dadd($1+33.333, $2+-20.222, $3+11.1, 0.27)
pt3dadd($1+33.111, $2+-20, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-19.778, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-19.556, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-19.333, $3+11.1, 0.27)
pt3dadd($1+32.889, $2+-19.111, $3+11.1, 0.27)
}
dend[120] {pt3dclear()
pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
pt3dadd($1+42, $2+-18.889, $3+11.1, 0.27)
pt3dadd($1+42, $2+-18.667, $3+11.1, 0.27)
pt3dadd($1+42, $2+-18.444, $3+11.1, 0.27)
pt3dadd($1+42, $2+-18.222, $3+11.1, 0.27)
pt3dadd($1+42, $2+-18, $3+11.1, 0.27)
pt3dadd($1+42.222, $2+-17.778, $3+11.1, 0.27)
}
dend[121] {pt3dclear()
pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-17.333, $3+11.1, 0.27)
pt3dadd($1+37.111, $2+-17.556, $3+11.1, 0.27)
pt3dadd($1+36.889, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+36.667, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+36.444, $2+-17.778, $3+11.1, 0.27)
pt3dadd($1+36.222, $2+-17.778, $3+11.1, 0.27)
}
}
proc basic_shape() {
shape3d_1($1, $2, $3)
shape3d_2($1, $2, $3)
shape3d_3($1, $2, $3)
shape3d_4($1, $2, $3)
shape3d_5($1, $2, $3)
shape3d_6($1, $2, $3)
shape3d_7($1, $2, $3)
shape3d_8($1, $2, $3)
shape3d_9($1, $2, $3)
shape3d_10($1, $2, $3)
shape3d_11($1, $2, $3)
shape3d_12($1, $2, $3)
shape3d_13($1, $2, $3)
}
endtemplate RGCM01WM11