proc celldef() {
topol()
}
create soma[2], dend[317]
proc topol() { local i
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 2 connect dend[i](0), dend[i-1](1)
connect dend[3](0), dend[1](1)
for i = 4, 5 connect dend[i](0), dend[3](1)
connect dend[6](0), dend(1)
for i = 7, 8 connect dend[i](0), dend[i-1](1)
connect dend[9](0), dend[7](1)
for i = 10, 11 connect dend[i](0), dend[9](1)
for i = 12, 13 connect dend[i](0), dend[11](1)
connect dend[14](0), dend[6](1)
for i = 15, 16 connect dend[i](0), dend[14](1)
for i = 17, 18 connect dend[i](0), dend[i-1](1)
connect dend[19](0), dend[17](1)
connect dend[20](0), dend[16](1)
for i = 21, 22 connect dend[i](0), dend[20](1)
for i = 23, 24 connect dend[i](0), dend[i-1](1)
connect dend[25](0), dend[23](1)
connect dend[26](0), dend[22](1)
connect dend[27](0), soma(0)
for i = 28, 29 connect dend[i](0), dend[i-1](1)
connect dend[30](0), dend[28](1)
for i = 31, 32 connect dend[i](0), dend[i-1](1)
connect dend[33](0), dend[31](1)
connect dend[34](0), dend[30](1)
for i = 35, 36 connect dend[i](0), dend[34](1)
for i = 37, 38 connect dend[i](0), dend[36](1)
for i = 39, 40 connect dend[i](0), dend[38](1)
connect dend[41](0), dend[27](1)
for i = 42, 43 connect dend[i](0), dend[41](1)
for i = 44, 45 connect dend[i](0), dend[43](1)
for i = 46, 47 connect dend[i](0), dend[45](1)
for i = 48, 49 connect dend[i](0), dend[47](1)
for i = 50, 51 connect dend[i](0), dend[49](1)
connect dend[52](0), soma(0)
for i = 53, 54 connect dend[i](0), dend[i-1](1)
connect dend[55](0), dend[53](1)
connect dend[56](0), dend[52](1)
for i = 57, 58 connect dend[i](0), dend[56](1)
for i = 59, 60 connect dend[i](0), dend[58](1)
connect dend[61](0), soma(0)
for i = 62, 63 connect dend[i](0), dend[i-1](1)
connect dend[64](0), dend[62](1)
connect dend[65](0), dend[61](1)
for i = 66, 67 connect dend[i](0), dend[65](1)
for i = 68, 69 connect dend[i](0), dend[67](1)
for i = 70, 71 connect dend[i](0), dend[i-1](1)
connect dend[72](0), dend[70](1)
for i = 73, 74 connect dend[i](0), dend[72](1)
connect dend[75](0), dend[69](1)
for i = 76, 77 connect dend[i](0), dend[i-1](1)
connect dend[78](0), dend[76](1)
connect dend[79](0), dend[75](1)
connect dend[80](0), soma(0)
for i = 81, 82 connect dend[i](0), dend[80](1)
for i = 83, 84 connect dend[i](0), dend[82](1)
connect dend[85](0), soma(0)
for i = 86, 87 connect dend[i](0), dend[i-1](1)
connect dend[88](0), dend[86](1)
for i = 89, 90 connect dend[i](0), dend[88](1)
for i = 91, 92 connect dend[i](0), dend[i-1](1)
connect dend[93](0), dend[91](1)
connect dend[94](0), dend[90](1)
connect dend[95](0), dend[85](1)
for i = 96, 97 connect dend[i](0), dend[i-1](1)
connect dend[98](0), dend[96](1)
for i = 99, 100 connect dend[i](0), dend[98](1)
for i = 101, 102 connect dend[i](0), dend[100](1)
for i = 103, 104 connect dend[i](0), dend[i-1](1)
connect dend[105](0), dend[103](1)
connect dend[106](0), dend[102](1)
for i = 107, 108 connect dend[i](0), dend[106](1)
for i = 109, 110 connect dend[i](0), dend[108](1)
for i = 111, 112 connect dend[i](0), dend[110](1)
connect dend[113](0), dend[95](1)
for i = 114, 115 connect dend[i](0), dend[113](1)
for i = 116, 117 connect dend[i](0), dend[115](1)
for i = 118, 119 connect dend[i](0), dend[117](1)
for i = 120, 122 connect dend[i](0), soma(0)
for i = 123, 124 connect dend[i](0), dend[122](1)
for i = 125, 126 connect dend[i](0), dend[124](1)
for i = 127, 128 connect dend[i](0), dend[126](1)
for i = 129, 130 connect dend[i](0), dend[128](1)
for i = 131, 132 connect dend[i](0), dend[130](1)
connect dend[133](0), soma(0)
for i = 134, 135 connect dend[i](0), dend[i-1](1)
connect dend[136](0), dend[134](1)
for i = 137, 138 connect dend[i](0), dend[136](1)
connect dend[139](0), dend[133](1)
for i = 140, 141 connect dend[i](0), dend[i-1](1)
connect dend[142](0), dend[140](1)
for i = 143, 144 connect dend[i](0), dend[142](1)
connect dend[145](0), dend[139](1)
for i = 146, 147 connect dend[i](0), dend[145](1)
for i = 148, 149 connect dend[i](0), dend[147](1)
for i = 150, 151 connect dend[i](0), soma(0)
for i = 152, 153 connect dend[i](0), dend[i-1](1)
connect dend[154](0), dend[152](1)
for i = 155, 156 connect dend[i](0), dend[154](1)
for i = 157, 158 connect dend[i](0), dend[156](1)
for i = 159, 160 connect dend[i](0), dend[158](1)
for i = 161, 162 connect dend[i](0), dend[i-1](1)
connect dend[163](0), dend[161](1)
connect dend[164](0), dend[160](1)
for i = 165, 166 connect dend[i](0), dend[164](1)
connect dend[167](0), dend[151](1)
for i = 168, 169 connect dend[i](0), dend[i-1](1)
connect dend[170](0), dend[168](1)
connect dend[171](0), dend[167](1)
for i = 172, 173 connect dend[i](0), dend[i-1](1)
connect dend[174](0), dend[172](1)
connect dend[175](0), dend[171](1)
for i = 176, 177 connect dend[i](0), dend[i-1](1)
connect dend[178](0), dend[176](1)
connect dend[179](0), dend[175](1)
for i = 180, 181 connect dend[i](0), dend[179](1)
for i = 182, 183 connect dend[i](0), dend[181](1)
connect dend[184](0), soma(0)
for i = 185, 186 connect dend[i](0), dend[i-1](1)
connect dend[187](0), dend[185](1)
connect dend[188](0), dend[184](1)
for i = 189, 190 connect dend[i](0), dend[i-1](1)
connect dend[191](0), dend[189](1)
for i = 192, 193 connect dend[i](0), dend[191](1)
for i = 194, 195 connect dend[i](0), dend[193](1)
connect dend[196](0), dend[188](1)
for i = 197, 198 connect dend[i](0), dend[196](1)
for i = 199, 201 connect dend[i](0), dend[i-1](1)
connect dend[202](0), dend[200](1)
connect dend[203](0), dend[199](1)
connect dend[204](0), dend[198](1)
for i = 205, 206 connect dend[i](0), dend[204](1)
for i = 207, 208 connect dend[i](0), dend[206](1)
for i = 209, 210 connect dend[i](0), dend[208](1)
connect dend[211](0), soma(0)
for i = 212, 215 connect dend[i](0), dend[i-1](1)
connect dend[216](0), dend[214](1)
connect dend[217](0), dend[213](1)
connect dend[218](0), dend[212](1)
for i = 219, 220 connect dend[i](0), dend[218](1)
for i = 221, 222 connect dend[i](0), dend[220](1)
for i = 223, 224 connect dend[i](0), dend[222](1)
for i = 225, 226 connect dend[i](0), dend[224](1)
for i = 227, 228 connect dend[i](0), dend[226](1)
connect dend[229](0), dend[211](1)
for i = 230, 231 connect dend[i](0), dend[i-1](1)
connect dend[232](0), dend[230](1)
connect dend[233](0), dend[229](1)
for i = 234, 235 connect dend[i](0), dend[i-1](1)
connect dend[236](0), dend[234](1)
for i = 237, 238 connect dend[i](0), dend[236](1)
for i = 239, 240 connect dend[i](0), dend[238](1)
connect dend[241](0), dend[233](1)
for i = 242, 243 connect dend[i](0), dend[i-1](1)
connect dend[244](0), dend[242](1)
connect dend[245](0), dend[241](1)
for i = 246, 247 connect dend[i](0), dend[245](1)
for i = 248, 249 connect dend[i](0), dend[247](1)
for i = 250, 251 connect dend[i](0), dend[249](1)
connect dend[252](0), soma(0)
for i = 253, 254 connect dend[i](0), dend[i-1](1)
connect dend[255](0), dend[253](1)
for i = 256, 257 connect dend[i](0), dend[i-1](1)
connect dend[258](0), dend[256](1)
connect dend[259](0), dend[255](1)
for i = 260, 261 connect dend[i](0), dend[i-1](1)
connect dend[262](0), dend[260](1)
connect dend[263](0), dend[259](1)
for i = 264, 265 connect dend[i](0), dend[263](1)
connect dend[266](0), dend[252](1)
for i = 267, 269 connect dend[i](0), dend[i-1](1)
connect dend[270](0), dend[268](1)
for i = 271, 272 connect dend[i](0), dend[270](1)
connect dend[273](0), dend[267](1)
for i = 274, 275 connect dend[i](0), dend[i-1](1)
connect dend[276](0), dend[274](1)
for i = 277, 278 connect dend[i](0), dend[i-1](1)
connect dend[279](0), dend[277](1)
connect dend[280](0), dend[276](1)
for i = 281, 282 connect dend[i](0), dend[280](1)
for i = 283, 284 connect dend[i](0), dend[282](1)
for i = 285, 286 connect dend[i](0), dend[284](1)
connect dend[287](0), dend[273](1)
for i = 288, 289 connect dend[i](0), dend[287](1)
for i = 290, 291 connect dend[i](0), dend[289](1)
connect dend[292](0), dend[266](1)
for i = 293, 294 connect dend[i](0), dend[i-1](1)
connect dend[295](0), dend[293](1)
connect dend[296](0), dend[292](1)
for i = 297, 298 connect dend[i](0), dend[i-1](1)
connect dend[299](0), dend[297](1)
for i = 300, 301 connect dend[i](0), dend[i-1](1)
connect dend[302](0), dend[300](1)
connect dend[303](0), dend[299](1)
for i = 304, 305 connect dend[i](0), dend[303](1)
connect dend[306](0), dend[296](1)
for i = 307, 308 connect dend[i](0), dend[i-1](1)
connect dend[309](0), dend[307](1)
connect dend[310](0), dend[306](1)
for i = 311, 312 connect dend[i](0), dend[i-1](1)
topol_1()
}
proc topol_1() {
connect dend[313](0), dend[311](1)
connect dend[314](0), dend[310](1)
for i = 315, 316 connect dend[i](0), dend[314](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(0, 0, 0, 97.6)
pt3dadd(0, 48.8, 0, 97.6)
}
soma[1] {pt3dclear()
pt3dadd(0, 0, 0, 97.6)
pt3dadd(0, -48.8, 0, 97.6)
}
dend {pt3dclear()
pt3dadd(0, 0, 0, 6.89)
pt3dadd(68, 73, -75, 6.89)
pt3dadd(103, 108, -150.19, 8.21)
}
dend[1] {pt3dclear()
pt3dadd(103, 108, -150.19, 8.21)
pt3dadd(202, 70, -225, 3.97)
pt3dadd(306, 94, -225, 3.71)
}
dend[2] {pt3dclear()
pt3dadd(306, 94, -225, 3.71)
pt3dadd(518, 119, -225, 1.59)
pt3dadd(664, 32, -388.7, 0.79)
}
dend[3] {pt3dclear()
pt3dadd(306, 94, -225, 3.71)
pt3dadd(445, 91, -336.1, 2.65)
pt3dadd(581, 121, -447, 2.12)
}
dend[4] {pt3dclear()
pt3dadd(581, 121, -447, 2.12)
pt3dadd(670, 62, -430.8, 0.53)
pt3dadd(763, 3, -450, 0.53)
}
dend[5] {pt3dclear()
pt3dadd(581, 121, -447, 2.12)
pt3dadd(678, 205, -525, 2.38)
pt3dadd(809, 188, -690.8, 1.85)
pt3dadd(906, 178, -879.1, 1.32)
pt3dadd(952, 48, -900, 1.32)
pt3dadd(945, -88, -1003, 1.06)
}
dend[6] {pt3dclear()
pt3dadd(103, 108, -150.19, 8.21)
pt3dadd(114, 125, -179.9, 6.36)
}
dend[7] {pt3dclear()
pt3dadd(114, 125, -179.9, 6.36)
pt3dadd(112, 242, -402, 2.65)
pt3dadd(140, 348, -525, 1.85)
}
dend[8] {pt3dclear()
pt3dadd(140, 348, -525, 1.85)
pt3dadd(184, 336, -600, 0.79)
pt3dadd(223, 349, -675, 0.79)
}
dend[9] {pt3dclear()
pt3dadd(140, 348, -525, 1.85)
pt3dadd(136, 381, -600, 2.12)
}
dend[10] {pt3dclear()
pt3dadd(136, 381, -600, 2.12)
pt3dadd(172, 402, -619.5, 0.79)
}
dend[11] {pt3dclear()
pt3dadd(136, 381, -600, 2.12)
pt3dadd(125, 540, -739.8, 1.59)
pt3dadd(218, 690, -857.2, 1.59)
pt3dadd(350, 795, -975, 1.32)
}
dend[12] {pt3dclear()
pt3dadd(350, 795, -975, 1.32)
pt3dadd(375, 781, -1010, 0.53)
}
dend[13] {pt3dclear()
pt3dadd(350, 795, -975, 1.32)
pt3dadd(331, 783, -1015, 0.53)
}
dend[14] {pt3dclear()
pt3dadd(114, 125, -179.9, 6.36)
pt3dadd(231, 167, -225, 5.03)
pt3dadd(322, 223, -300, 5.3)
}
dend[15] {pt3dclear()
pt3dadd(322, 223, -300, 5.3)
pt3dadd(353, 379, -300, 1.85)
pt3dadd(442, 569, -450, 1.06)
pt3dadd(423, 664, -375, 1.06)
pt3dadd(407, 677, -375, 0.79)
}
dend[16] {pt3dclear()
pt3dadd(322, 223, -300, 5.3)
pt3dadd(383, 231, -326.5, 3.97)
}
dend[17] {pt3dclear()
pt3dadd(383, 231, -326.5, 3.97)
pt3dadd(420, 243, -423, 2.38)
}
dend[18] {pt3dclear()
pt3dadd(420, 243, -423, 2.38)
pt3dadd(483, 269, -450, 0.53)
}
dend[19] {pt3dclear()
pt3dadd(420, 243, -423, 2.38)
pt3dadd(569, 290, -566.29, 1.59)
pt3dadd(671, 407, -710.7, 1.59)
pt3dadd(733, 520, -750, 1.59)
pt3dadd(703, 487, -750, 1.06)
}
dend[20] {pt3dclear()
pt3dadd(383, 231, -326.5, 3.97)
pt3dadd(439, 282, -300, 3.44)
pt3dadd(494, 306, -375, 3.97)
}
dend[21] {pt3dclear()
pt3dadd(494, 306, -375, 3.97)
pt3dadd(671, 391, -418, 1.32)
pt3dadd(787, 536, -494.9, 0.79)
}
dend[22] {pt3dclear()
pt3dadd(494, 306, -375, 3.97)
pt3dadd(506, 308, -375, 2.91)
}
dend[23] {pt3dclear()
pt3dadd(506, 308, -375, 2.91)
pt3dadd(517, 330, -375, 1.59)
}
dend[24] {pt3dclear()
pt3dadd(517, 330, -375, 1.59)
pt3dadd(536, 335, -401.5, 0.53)
}
dend[25] {pt3dclear()
pt3dadd(517, 330, -375, 1.59)
pt3dadd(532, 455, -545.6, 1.32)
pt3dadd(593, 558, -600, 1.32)
pt3dadd(689, 541, -763.1, 0.79)
}
dend[26] {pt3dclear()
pt3dadd(506, 308, -375, 2.91)
pt3dadd(679, 355, -375, 1.85)
pt3dadd(873, 307, -450, 1.85)
pt3dadd(968, 144, -375, 1.06)
pt3dadd(1024, 30, -375, 1.06)
pt3dadd(1180, 20, -450, 0.53)
}
dend[27] {pt3dclear()
pt3dadd(0, 0, 0, 6.89)
pt3dadd(62, -8, -53.68, 6.89)
pt3dadd(100, -4, 0, 7.95)
}
dend[28] {pt3dclear()
pt3dadd(100, -4, 0, 7.95)
pt3dadd(197, 19, 29.63, 4.24)
pt3dadd(233, 14, 126, 5.03)
}
dend[29] {pt3dclear()
pt3dadd(233, 14, 126, 5.03)
pt3dadd(297, 24, 300, 2.12)
pt3dadd(355, 124, 450, 1.85)
pt3dadd(488, 238, 525, 1.06)
}
dend[30] {pt3dclear()
pt3dadd(233, 14, 126, 5.03)
pt3dadd(283, -21, 176.2, 4.5)
pt3dadd(342, -49, 218.8, 4.5)
}
dend[31] {pt3dclear()
pt3dadd(342, -49, 218.8, 4.5)
pt3dadd(371, -80, 279.39, 2.12)
pt3dadd(387, -131, 229.7, 1.85)
}
dend[32] {pt3dclear()
pt3dadd(387, -131, 229.7, 1.85)
pt3dadd(526, -183, 405.4, 1.32)
pt3dadd(667, -280, 559.1, 0.79)
}
dend[33] {pt3dclear()
pt3dadd(387, -131, 229.7, 1.85)
pt3dadd(423, -208, 450, 1.32)
pt3dadd(445, -283, 647.1, 1.32)
pt3dadd(468, -280, 750, 0.53)
}
dend[34] {pt3dclear()
pt3dadd(342, -49, 218.8, 4.5)
pt3dadd(367, -42, 225, 3.97)
}
dend[35] {pt3dclear()
pt3dadd(367, -42, 225, 3.97)
pt3dadd(522, -63, 300, 1.59)
pt3dadd(682, -86, 437.2, 1.59)
pt3dadd(845, -160, 600, 0.79)
}
dend[36] {pt3dclear()
pt3dadd(367, -42, 225, 3.97)
pt3dadd(432, -57, 195.4, 3.44)
}
dend[37] {pt3dclear()
pt3dadd(432, -57, 195.4, 3.44)
pt3dadd(619, -40, 293.8, 1.32)
pt3dadd(836, 12, 300, 1.06)
pt3dadd(949, 124, 190.7, 0.53)
}
dend[38] {pt3dclear()
pt3dadd(432, -57, 195.4, 3.44)
pt3dadd(504, -72, 161.4, 2.91)
pt3dadd(576, -77, 198.2, 2.65)
}
dend[39] {pt3dclear()
pt3dadd(576, -77, 198.2, 2.65)
pt3dadd(740, -166, 298.8, 1.59)
pt3dadd(899, -193, 375, 1.06)
pt3dadd(1029, -283, 450, 0.79)
pt3dadd(993, -336, 588.9, 0.79)
}
dend[40] {pt3dclear()
pt3dadd(576, -77, 198.2, 2.65)
pt3dadd(777, -65, 225, 1.85)
pt3dadd(971, -68, 225, 1.32)
pt3dadd(1057, -166, 375, 0.79)
pt3dadd(1178, -98, 375, 0.53)
}
dend[41] {pt3dclear()
pt3dadd(100, -4, 0, 7.95)
pt3dadd(206, 37, 0, 3.97)
}
dend[42] {pt3dclear()
pt3dadd(206, 37, 0, 3.97)
pt3dadd(238, 72, -35.1, 0.79)
}
dend[43] {pt3dclear()
pt3dadd(206, 37, 0, 3.97)
pt3dadd(329, 42, 0, 3.97)
pt3dadd(430, 47, 45.77, 3.71)
}
dend[44] {pt3dclear()
pt3dadd(430, 47, 45.77, 3.71)
pt3dadd(545, 100, 0, 0.79)
pt3dadd(674, 132, 0, 0.53)
}
dend[45] {pt3dclear()
pt3dadd(430, 47, 45.77, 3.71)
pt3dadd(472, 24, 70.73, 3.71)
}
dend[46] {pt3dclear()
pt3dadd(472, 24, 70.73, 3.71)
pt3dadd(645, 30, -51.66, 1.85)
pt3dadd(851, -26, -75, 1.59)
pt3dadd(1080, 1, -75, 1.06)
pt3dadd(1083, 180, -75, 1.06)
pt3dadd(1122, 224, -283.89, 0.79)
}
dend[47] {pt3dclear()
pt3dadd(472, 24, 70.73, 3.71)
pt3dadd(489, 7, 75, 3.44)
}
dend[48] {pt3dclear()
pt3dadd(489, 7, 75, 3.44)
pt3dadd(481, -81, 37.47, 0.53)
}
dend[49] {pt3dclear()
pt3dadd(489, 7, 75, 3.44)
pt3dadd(557, 18, 26.93, 2.65)
pt3dadd(628, 16, 69.87, 2.65)
}
dend[50] {pt3dclear()
pt3dadd(628, 16, 69.87, 2.65)
pt3dadd(738, -36, 225, 1.06)
pt3dadd(842, -45, 375, 0.79)
pt3dadd(795, -8, 450, 0.53)
}
dend[51] {pt3dclear()
pt3dadd(628, 16, 69.87, 2.65)
pt3dadd(828, 57, 12.75, 2.12)
pt3dadd(1026, 94, 75, 1.59)
pt3dadd(1130, 117, -150, 1.06)
pt3dadd(1273, 84, -150, 0.79)
pt3dadd(1302, 99, -300, 0.79)
}
dend[52] {pt3dclear()
pt3dadd(0, 0, 0, 5.03)
pt3dadd(-54, -31, 75, 5.03)
pt3dadd(-141, -29, 178.2, 3.97)
}
dend[53] {pt3dclear()
pt3dadd(-141, -29, 178.2, 3.97)
pt3dadd(-239, -25, 300, 2.38)
pt3dadd(-366, -22, 375, 2.38)
}
dend[54] {pt3dclear()
pt3dadd(-366, -22, 375, 2.38)
pt3dadd(-426, 93, 450, 1.06)
pt3dadd(-540, 194, 523.2, 0.79)
}
dend[55] {pt3dclear()
pt3dadd(-366, -22, 375, 2.38)
pt3dadd(-489, 4, 525, 2.12)
pt3dadd(-583, 81, 675, 2.12)
pt3dadd(-634, 101, 825, 1.32)
pt3dadd(-817, 94, 900, 0.79)
pt3dadd(-711, 108, 716.9, 0.53)
pt3dadd(-849, 179, 554, 0.26)
}
dend[56] {pt3dclear()
pt3dadd(-141, -29, 178.2, 3.97)
pt3dadd(-186, -43, 224.4, 2.91)
pt3dadd(-213, -84, 267, 2.91)
}
dend[57] {pt3dclear()
pt3dadd(-213, -84, 267, 2.91)
pt3dadd(-387, -155, 365.1, 1.85)
pt3dadd(-522, -224, 450, 1.85)
pt3dadd(-685, -285, 525, 1.32)
pt3dadd(-852, -355, 525, 0.79)
pt3dadd(-1000, -307, 444.9, 0.53)
}
dend[58] {pt3dclear()
pt3dadd(-213, -84, 267, 2.91)
pt3dadd(-225, -146, 357.1, 2.38)
pt3dadd(-285, -165, 446.1, 2.12)
}
dend[59] {pt3dclear()
pt3dadd(-285, -165, 446.1, 2.12)
pt3dadd(-329, -206, 394.9, 0.79)
}
dend[60] {pt3dclear()
pt3dadd(-285, -165, 446.1, 2.12)
}
}
proc shape3d_2() {
dend[60] { pt3dadd(-327, -219, 600, 1.85)
pt3dadd(-313, -264, 750, 1.32)
pt3dadd(-315, -283, 675, 1.06)
pt3dadd(-295, -331, 525, 0.79)
}
dend[61] {pt3dclear()
pt3dadd(0, 0, 0, 6.62)
pt3dadd(68, -37, -40.57, 6.62)
}
dend[62] {pt3dclear()
pt3dadd(68, -37, -40.57, 6.62)
pt3dadd(291, -13, -164, 3.44)
pt3dadd(490, 28, -318.1, 3.18)
}
dend[63] {pt3dclear()
pt3dadd(490, 28, -318.1, 3.18)
pt3dadd(629, -1, -448.8, 0.79)
pt3dadd(819, -98, -450, 0.79)
}
dend[64] {pt3dclear()
pt3dadd(490, 28, -318.1, 3.18)
pt3dadd(625, 44, -375, 1.85)
pt3dadd(763, 68, -534.1, 1.59)
pt3dadd(924, 92, -670, 1.32)
pt3dadd(1080, 139, -805.6, 1.06)
pt3dadd(1178, 181, -900, 0.79)
pt3dadd(1199, 258, -986.9, 0.53)
}
dend[65] {pt3dclear()
pt3dadd(68, -37, -40.57, 6.62)
pt3dadd(137, -70, -13.9, 5.03)
}
dend[66] {pt3dclear()
pt3dadd(137, -70, -13.9, 5.03)
pt3dadd(262, -5, 144.5, 1.85)
pt3dadd(401, 0, 225, 1.32)
pt3dadd(488, -21, 417.2, 1.32)
pt3dadd(557, 69, 450, 0.53)
}
dend[67] {pt3dclear()
pt3dadd(137, -70, -13.9, 5.03)
pt3dadd(185, -99, 7.42, 4.5)
pt3dadd(239, -134, 0, 5.03)
}
dend[68] {pt3dclear()
pt3dadd(239, -134, 0, 5.03)
pt3dadd(439, -198, 144.69, 0.79)
pt3dadd(635, -215, 150, 0.53)
}
dend[69] {pt3dclear()
pt3dadd(239, -134, 0, 5.03)
pt3dadd(278, -144, 0, 5.03)
}
dend[70] {pt3dclear()
pt3dadd(278, -144, 0, 5.03)
pt3dadd(416, -178, 75, 2.65)
pt3dadd(571, -219, 0, 2.38)
}
dend[71] {pt3dclear()
pt3dadd(571, -219, 0, 2.38)
pt3dadd(613, -180, 32.72, 0.53)
pt3dadd(672, -165, 58.22, 0.53)
}
dend[72] {pt3dclear()
pt3dadd(571, -219, 0, 2.38)
pt3dadd(647, -230, 0, 2.38)
pt3dadd(720, -247, 2.64, 2.12)
}
dend[73] {pt3dclear()
pt3dadd(720, -247, 2.64, 2.12)
pt3dadd(816, -220, -105.4, 0.53)
pt3dadd(887, -178, -150, 0.79)
}
dend[74] {pt3dclear()
pt3dadd(720, -247, 2.64, 2.12)
pt3dadd(920, -303, -39.86, 1.85)
pt3dadd(1139, -345, -75, 1.59)
pt3dadd(1416, -320, -75, 1.32)
pt3dadd(1615, -101, -167.4, 0.79)
}
dend[75] {pt3dclear()
pt3dadd(278, -144, 0, 5.03)
pt3dadd(307, -174, -43.12, 2.91)
pt3dadd(325, -219, 0, 3.71)
}
dend[76] {pt3dclear()
pt3dadd(325, -219, 0, 3.71)
pt3dadd(323, -254, 58.27, 2.38)
pt3dadd(349, -290, 109.8, 1.85)
}
dend[77] {pt3dclear()
pt3dadd(349, -290, 109.8, 1.85)
pt3dadd(386, -262, 150, 0.26)
}
dend[78] {pt3dclear()
pt3dadd(349, -290, 109.8, 1.85)
pt3dadd(313, -431, 263.89, 1.32)
pt3dadd(371, -579, 375, 1.32)
pt3dadd(314, -700, 450, 1.32)
pt3dadd(218, -863, 525, 0.79)
}
dend[79] {pt3dclear()
pt3dadd(325, -219, 0, 3.71)
pt3dadd(465, -342, 101.1, 2.12)
pt3dadd(633, -409, 211.7, 1.85)
pt3dadd(686, -578, 300, 1.59)
pt3dadd(713, -644, 375, 1.06)
}
dend[80] {pt3dclear()
pt3dadd(0, 0, 0, 3.97)
pt3dadd(-62, 88, 0, 3.97)
}
dend[81] {pt3dclear()
pt3dadd(-62, 88, 0, 3.97)
pt3dadd(-5, 183, 150, 1.32)
pt3dadd(-25, 193, 300, 0.79)
pt3dadd(-71, 161, 450, 0.79)
}
dend[82] {pt3dclear()
pt3dadd(-62, 88, 0, 3.97)
pt3dadd(-143, 129, -27.98, 2.91)
}
dend[83] {pt3dclear()
pt3dadd(-143, 129, -27.98, 2.91)
pt3dadd(-246, 226, -185.9, 1.85)
pt3dadd(-396, 319, -225, 1.85)
pt3dadd(-531, 431, -344.1, 1.59)
pt3dadd(-623, 555, -375, 1.06)
pt3dadd(-651, 715, -620.1, 0.79)
}
dend[84] {pt3dclear()
pt3dadd(-143, 129, -27.98, 2.91)
pt3dadd(-310, 201, 75, 2.38)
pt3dadd(-491, 323, 75, 1.85)
pt3dadd(-674, 359, 150, 1.59)
pt3dadd(-842, 421, 225, 1.59)
pt3dadd(-1020, 442, 300, 1.06)
pt3dadd(-1224, 469, 225, 0.79)
pt3dadd(-1438, 484, 225, 0.53)
pt3dadd(-1642, 461, 164.6, 0.53)
}
dend[85] {pt3dclear()
pt3dadd(0, 0, 0, 8.74)
pt3dadd(26, -4, 75, 8.74)
}
dend[86] {pt3dclear()
pt3dadd(26, -4, 75, 8.74)
pt3dadd(30, 43, 41.25, 4.5)
pt3dadd(45, 81, 81, 3.97)
}
dend[87] {pt3dclear()
pt3dadd(45, 81, 81, 3.97)
pt3dadd(81, 309, 75, 2.12)
pt3dadd(131, 522, 150, 1.85)
pt3dadd(147, 720, 224.1, 1.59)
pt3dadd(62, 835, 300, 1.32)
pt3dadd(-104, 848, 300, 0.79)
pt3dadd(-336, 885, 225, 0.53)
}
dend[88] {pt3dclear()
pt3dadd(45, 81, 81, 3.97)
pt3dadd(90, 194, 175.5, 3.71)
pt3dadd(98, 294, 291, 2.91)
}
dend[89] {pt3dclear()
pt3dadd(98, 294, 291, 2.91)
pt3dadd(40, 293, 450, 1.59)
pt3dadd(57, 355, 600, 1.06)
}
dend[90] {pt3dclear()
pt3dadd(98, 294, 291, 2.91)
pt3dadd(101, 319, 257.39, 2.91)
}
dend[91] {pt3dclear()
pt3dadd(101, 319, 257.39, 2.91)
pt3dadd(105, 358, 310.5, 1.32)
}
dend[92] {pt3dclear()
pt3dadd(105, 358, 310.5, 1.32)
pt3dadd(157, 392, 375, 0.79)
}
dend[93] {pt3dclear()
pt3dadd(105, 358, 310.5, 1.32)
pt3dadd(124, 417, 375, 1.59)
pt3dadd(140, 462, 450, 0.79)
}
dend[94] {pt3dclear()
pt3dadd(101, 319, 257.39, 2.91)
pt3dadd(184, 458, 225, 2.12)
pt3dadd(258, 633, 131, 1.59)
pt3dadd(329, 756, 75, 1.59)
pt3dadd(308, 915, 213.6, 1.06)
pt3dadd(530, 1002, 225, 0.53)
pt3dadd(744, 1002, 225, 0.53)
}
dend[95] {pt3dclear()
pt3dadd(26, -4, 75, 8.74)
pt3dadd(24, -33, 22.51, 6.09)
pt3dadd(21, -65, 75, 5.83)
}
dend[96] {pt3dclear()
pt3dadd(21, -65, 75, 5.83)
pt3dadd(2, -143, 169.5, 3.44)
pt3dadd(-5, -211, 270.6, 4.24)
}
dend[97] {pt3dclear()
pt3dadd(-5, -211, 270.6, 4.24)
pt3dadd(24, -265, 300, 0.53)
}
dend[98] {pt3dclear()
pt3dadd(-5, -211, 270.6, 4.24)
pt3dadd(4, -291, 375, 2.91)
pt3dadd(-16, -383, 499.4, 3.18)
}
dend[99] {pt3dclear()
pt3dadd(-16, -383, 499.4, 3.18)
pt3dadd(-70, -404, 675, 1.32)
pt3dadd(-140, -442, 863.9, 0.79)
}
dend[100] {pt3dclear()
pt3dadd(-16, -383, 499.4, 3.18)
pt3dadd(-22, -421, 520.7, 2.65)
}
dend[101] {pt3dclear()
pt3dadd(-22, -421, 520.7, 2.65)
pt3dadd(-80, -483, 575.4, 0.53)
pt3dadd(-177, -522, 600, 0.79)
}
dend[102] {pt3dclear()
pt3dadd(-22, -421, 520.7, 2.65)
pt3dadd(-19, -441, 497.2, 3.97)
}
dend[103] {pt3dclear()
pt3dadd(-19, -441, 497.2, 3.97)
pt3dadd(-46, -479, 536.6, 1.59)
pt3dadd(-75, -525, 564.2, 1.32)
}
dend[104] {pt3dclear()
pt3dadd(-75, -525, 564.2, 1.32)
pt3dadd(-144, -554, 625.9, 1.06)
pt3dadd(-208, -619, 675, 0.79)
}
dend[105] {pt3dclear()
pt3dadd(-75, -525, 564.2, 1.32)
pt3dadd(-69, -555, 628.29, 0.79)
pt3dadd(-73, -585, 675, 0.79)
}
dend[106] {pt3dclear()
pt3dadd(-19, -441, 497.2, 3.97)
pt3dadd(-17, -511, 571.4, 2.65)
pt3dadd(-19, -566, 657.3, 2.38)
}
dend[107] {pt3dclear()
pt3dadd(-19, -566, 657.3, 2.38)
pt3dadd(-55, -628, 732.6, 0.79)
pt3dadd(-75, -720, 774.4, 0.53)
}
dend[108] {pt3dclear()
pt3dadd(-19, -566, 657.3, 2.38)
pt3dadd(-10, -581, 715.7, 1.85)
}
dend[109] {pt3dclear()
pt3dadd(-10, -581, 715.7, 1.85)
pt3dadd(-26, -695, 893.7, 1.59)
pt3dadd(-142, -816, 975, 1.32)
pt3dadd(46, -666, 1050, 0.79)
}
dend[110] {pt3dclear()
pt3dadd(-10, -581, 715.7, 1.85)
pt3dadd(4, -595, 722.7, 1.06)
}
dend[111] {pt3dclear()
pt3dadd(4, -595, 722.7, 1.06)
pt3dadd(78, -609, 679.2, 0.79)
pt3dadd(167, -649, 750, 0.53)
}
dend[112] {pt3dclear()
pt3dadd(4, -595, 722.7, 1.06)
pt3dadd(0, -665, 799.5, 0.53)
pt3dadd(22, -662, 825, 0.53)
}
dend[113] {pt3dclear()
pt3dadd(21, -65, 75, 5.83)
pt3dadd(47, -56, 167, 3.97)
}
dend[114] {pt3dclear()
pt3dadd(47, -56, 167, 3.97)
pt3dadd(207, -140, 277.8, 1.85)
pt3dadd(403, -88, 216, 1.85)
pt3dadd(552, -34, 75.18, 1.32)
pt3dadd(766, -37, 75, 0.79)
pt3dadd(829, -210, 75, 0.53)
}
dend[115] {pt3dclear()
pt3dadd(47, -56, 167, 3.97)
pt3dadd(68, -61, 256.39, 3.71)
pt3dadd(80, -50, 347, 3.71)
}
dend[116] {pt3dclear()
pt3dadd(80, -50, 347, 3.71)
pt3dadd(-9, -17, 450, 0.79)
pt3dadd(-74, 20, 600, 0.79)
}
dend[117] {pt3dclear()
pt3dadd(80, -50, 347, 3.71)
pt3dadd(132, -37, 447.6, 2.91)
pt3dadd(200, -41, 525, 2.91)
}
dend[118] {pt3dclear()
pt3dadd(200, -41, 525, 2.91)
pt3dadd(180, -27, 675, 1.32)
pt3dadd(185, -2, 893.5, 0.79)
}
dend[119] {pt3dclear()
pt3dadd(200, -41, 525, 2.91)
pt3dadd(303, -54, 600, 2.12)
pt3dadd(405, -73, 750, 2.12)
pt3dadd(504, -56, 900, 1.85)
}
}
proc shape3d_3() {
dend[119] { pt3dadd(691, -46, 975, 1.59)
pt3dadd(908, -64, 975, 1.06)
pt3dadd(1238, -76, 975, 0.53)
}
dend[120] {pt3dclear()
pt3dadd(0, 0, 0, 1.32)
pt3dadd(-464, -164, 525, 1.32)
pt3dadd(-580, -247, 675, 1.06)
}
dend[121] {pt3dclear()
pt3dadd(0, 0, 0, 1.59)
pt3dadd(-569, -483, 525, 1.59)
pt3dadd(-649, -585, 675, 1.32)
pt3dadd(-797, -568, 600, 1.06)
}
dend[122] {pt3dclear()
pt3dadd(0, 0, 0, 4.5)
pt3dadd(-148, -64, 150, 4.5)
pt3dadd(-287, -134, 225, 5.3)
}
dend[123] {pt3dclear()
pt3dadd(-287, -134, 225, 5.3)
pt3dadd(-324, -149, 292, 1.85)
pt3dadd(-367, -147, 355.9, 1.85)
pt3dadd(-445, -208, 450, 1.32)
pt3dadd(-509, -239, 525, 0.53)
}
dend[124] {pt3dclear()
pt3dadd(-287, -134, 225, 5.3)
pt3dadd(-309, -158, 225, 4.5)
}
dend[125] {pt3dclear()
pt3dadd(-309, -158, 225, 4.5)
pt3dadd(-357, -139, 225, 0.53)
}
dend[126] {pt3dclear()
pt3dadd(-309, -158, 225, 4.5)
pt3dadd(-357, -206, 274.5, 3.71)
pt3dadd(-421, -244, 235.5, 3.97)
}
dend[127] {pt3dclear()
pt3dadd(-421, -244, 235.5, 3.97)
pt3dadd(-507, -345, 400.9, 2.12)
}
dend[128] {pt3dclear()
pt3dadd(-421, -244, 235.5, 3.97)
pt3dadd(-470, -244, 300, 2.91)
}
dend[129] {pt3dclear()
pt3dadd(-470, -244, 300, 2.91)
pt3dadd(-566, -203, 233.1, 0.53)
pt3dadd(-687, -168, 225, 0.79)
}
dend[130] {pt3dclear()
pt3dadd(-470, -244, 300, 2.91)
pt3dadd(-564, -266, 356.8, 2.38)
pt3dadd(-675, -286, 375, 2.12)
}
dend[131] {pt3dclear()
pt3dadd(-675, -286, 375, 2.12)
pt3dadd(-885, -329, 401.6, 1.06)
pt3dadd(-1065, -299, 515.29, 1.06)
}
dend[132] {pt3dclear()
pt3dadd(-675, -286, 375, 2.12)
pt3dadd(-798, -330, 525, 1.32)
pt3dadd(-988, -300, 525, 1.32)
pt3dadd(-1115, -213, 600, 1.06)
pt3dadd(-1133, -203, 450, 0.79)
}
dend[133] {pt3dclear()
pt3dadd(0, 0, 0, 6.89)
pt3dadd(-35, -42, 56.25, 6.89)
pt3dadd(-58, -52, 0.64, 6.36)
}
dend[134] {pt3dclear()
pt3dadd(-58, -52, 0.64, 6.36)
pt3dadd(-46, -28, 150, 2.91)
pt3dadd(-26, -41, 272.7, 2.65)
}
dend[135] {pt3dclear()
pt3dadd(-26, -41, 272.7, 2.65)
pt3dadd(-54, 65, 450, 1.59)
pt3dadd(-69, 126, 675, 1.06)
}
dend[136] {pt3dclear()
pt3dadd(-26, -41, 272.7, 2.65)
pt3dadd(-16, -51, 288.2, 2.12)
}
dend[137] {pt3dclear()
pt3dadd(-16, -51, 288.2, 2.12)
pt3dadd(15, -41, 336.2, 0.53)
}
dend[138] {pt3dclear()
pt3dadd(-16, -51, 288.2, 2.12)
pt3dadd(55, -90, 450, 2.12)
pt3dadd(123, -116, 600, 2.12)
pt3dadd(122, -106, 811.8, 1.59)
pt3dadd(178, -106, 975, 1.32)
pt3dadd(353, -131, 975, 1.06)
pt3dadd(540, -176, 975, 0.79)
pt3dadd(735, -188, 975, 0.53)
}
dend[139] {pt3dclear()
pt3dadd(-58, -52, 0.64, 6.36)
pt3dadd(-122, -133, 150, 4.5)
pt3dadd(-218, -199, 277.89, 4.5)
}
dend[140] {pt3dclear()
pt3dadd(-218, -199, 277.89, 4.5)
pt3dadd(-225, -284, 375, 2.91)
pt3dadd(-259, -353, 500.3, 2.65)
}
dend[141] {pt3dclear()
pt3dadd(-259, -353, 500.3, 2.65)
pt3dadd(-279, -388, 584.1, 0.79)
pt3dadd(-302, -414, 670.4, 0.53)
}
dend[142] {pt3dclear()
pt3dadd(-259, -353, 500.3, 2.65)
pt3dadd(-283, -354, 462.2, 2.38)
}
dend[143] {pt3dclear()
pt3dadd(-283, -354, 462.2, 2.38)
pt3dadd(-318, -376, 555.5, 0.79)
pt3dadd(-351, -397, 648.6, 0.79)
}
dend[144] {pt3dclear()
pt3dadd(-283, -354, 462.2, 2.38)
pt3dadd(-405, -378, 633.9, 2.38)
pt3dadd(-475, -361, 434.5, 1.85)
pt3dadd(-569, -282, 375, 1.32)
pt3dadd(-635, -127, 246.3, 1.06)
pt3dadd(-750, -66, 375, 1.06)
pt3dadd(-847, -66, 433, 0.53)
}
dend[145] {pt3dclear()
pt3dadd(-218, -199, 277.89, 4.5)
pt3dadd(-279, -208, 344.8, 3.71)
}
dend[146] {pt3dclear()
pt3dadd(-279, -208, 344.8, 3.71)
pt3dadd(-316, -267, 525, 1.85)
pt3dadd(-362, -277, 675, 1.85)
pt3dadd(-380, -437, 812.9, 1.85)
pt3dadd(-286, -594, 825, 1.32)
pt3dadd(-215, -485, 825, 0.79)
}
dend[147] {pt3dclear()
pt3dadd(-279, -208, 344.8, 3.71)
pt3dadd(-405, -335, 375, 2.65)
pt3dadd(-549, -434, 450, 1.85)
}
dend[148] {pt3dclear()
pt3dadd(-549, -434, 450, 1.85)
pt3dadd(-546, -493, 505.4, 0.79)
pt3dadd(-588, -557, 478.9, 0.53)
}
dend[149] {pt3dclear()
pt3dadd(-549, -434, 450, 1.85)
pt3dadd(-728, -514, 450, 1.59)
pt3dadd(-858, -664, 524.5, 1.06)
pt3dadd(-726, -724, 459.2, 0.79)
}
dend[150] {pt3dclear()
pt3dadd(0, 0, 0, 9.27)
pt3dadd(20, -21, -71.76, 9.27)
}
dend[151] {pt3dclear()
pt3dadd(0, 0, 0, 9.8)
pt3dadd(34, 71, -75, 9.8)
}
dend[152] {pt3dclear()
pt3dadd(34, 71, -75, 9.8)
pt3dadd(126, 149, -128.6, 5.3)
pt3dadd(195, 234, -202.4, 4.5)
}
dend[153] {pt3dclear()
pt3dadd(195, 234, -202.4, 4.5)
pt3dadd(313, 306, -363.1, 2.12)
pt3dadd(476, 392, -375, 1.32)
pt3dadd(563, 515, -525, 0.79)
pt3dadd(551, 585, -639.79, 0.79)
}
dend[154] {pt3dclear()
pt3dadd(195, 234, -202.4, 4.5)
pt3dadd(222, 302, -181.8, 5.03)
}
dend[155] {pt3dclear()
pt3dadd(222, 302, -181.8, 5.03)
pt3dadd(394, 385, -225, 1.59)
pt3dadd(540, 441, -323.89, 0.79)
}
dend[156] {pt3dclear()
pt3dadd(222, 302, -181.8, 5.03)
pt3dadd(243, 340, -225, 4.5)
}
dend[157] {pt3dclear()
pt3dadd(243, 340, -225, 4.5)
pt3dadd(242, 412, -264.2, 0.79)
pt3dadd(235, 481, -308, 0.53)
}
dend[158] {pt3dclear()
pt3dadd(243, 340, -225, 4.5)
pt3dadd(308, 404, -195.1, 3.97)
pt3dadd(335, 478, -150, 3.71)
}
dend[159] {pt3dclear()
pt3dadd(335, 478, -150, 3.71)
pt3dadd(372, 558, -225.4, 0.79)
pt3dadd(385, 635, -311.2, 0.53)
}
dend[160] {pt3dclear()
pt3dadd(335, 478, -150, 3.71)
pt3dadd(368, 529, -150, 3.44)
}
dend[161] {pt3dclear()
pt3dadd(368, 529, -150, 3.44)
pt3dadd(392, 561, -184.8, 2.38)
}
dend[162] {pt3dclear()
pt3dadd(392, 561, -184.8, 2.38)
pt3dadd(477, 683, -150, 0.79)
pt3dadd(519, 814, -195.8, 0.53)
}
dend[163] {pt3dclear()
pt3dadd(392, 561, -184.8, 2.38)
pt3dadd(558, 652, -89.34, 1.85)
pt3dadd(631, 841, -75, 1.32)
pt3dadd(489, 796, -75, 0.79)
pt3dadd(288, 748, -122.3, 0.53)
pt3dadd(109, 703, -211.5, 0.26)
}
dend[164] {pt3dclear()
pt3dadd(368, 529, -150, 3.44)
pt3dadd(363, 543, -97.05, 2.38)
pt3dadd(364, 562, -148.69, 2.38)
}
dend[165] {pt3dclear()
pt3dadd(364, 562, -148.69, 2.38)
pt3dadd(346, 734, 2.98, 1.32)
pt3dadd(344, 895, 167.2, 0.79)
}
dend[166] {pt3dclear()
pt3dadd(364, 562, -148.69, 2.38)
pt3dadd(383, 771, -118.6, 1.32)
pt3dadd(365, 1004, -75, 0.79)
pt3dadd(330, 1124, 50.32, 0.53)
}
dend[167] {pt3dclear()
pt3dadd(34, 71, -75, 9.8)
pt3dadd(25, 124, -93.95, 6.09)
pt3dadd(35, 172, -121, 6.36)
}
dend[168] {pt3dclear()
pt3dadd(35, 172, -121, 6.36)
pt3dadd(27, 331, 0, 2.91)
pt3dadd(3, 521, 75, 2.12)
}
dend[169] {pt3dclear()
pt3dadd(3, 521, 75, 2.12)
pt3dadd(14, 625, 150, 1.06)
pt3dadd(40, 717, 225, 0.79)
}
dend[170] {pt3dclear()
pt3dadd(3, 521, 75, 2.12)
pt3dadd(-70, 635, 225, 1.85)
pt3dadd(-147, 770, 300, 1.32)
pt3dadd(-380, 793, 300, 1.06)
pt3dadd(-594, 774, 300, 0.79)
pt3dadd(-721, 790, 300, 0.53)
}
dend[171] {pt3dclear()
pt3dadd(35, 172, -121, 6.36)
pt3dadd(46, 226, -150, 5.03)
pt3dadd(51, 272, -177.8, 4.5)
}
dend[172] {pt3dclear()
pt3dadd(51, 272, -177.8, 4.5)
pt3dadd(54, 377, -362, 2.38)
pt3dadd(35, 524, -513.6, 1.85)
pt3dadd(37, 662, -525, 1.59)
pt3dadd(-59, 789, -675, 1.59)
pt3dadd(-137, 880, -750, 1.32)
pt3dadd(-215, 1000, -825, 1.32)
}
dend[173] {pt3dclear()
pt3dadd(-215, 1000, -825, 1.32)
pt3dadd(-197, 1031, -844.9, 0.26)
}
dend[174] {pt3dclear()
pt3dadd(-215, 1000, -825, 1.32)
pt3dadd(-255, 1033, -857.1, 1.06)
pt3dadd(-253, 1075, -825, 0.79)
}
dend[175] {pt3dclear()
pt3dadd(51, 272, -177.8, 4.5)
pt3dadd(60, 322, -162.69, 3.71)
}
dend[176] {pt3dclear()
pt3dadd(60, 322, -162.69, 3.71)
pt3dadd(-27, 454, -258.8, 2.38)
pt3dadd(-112, 561, -300, 1.59)
}
dend[177] {pt3dclear()
pt3dadd(-112, 561, -300, 1.59)
pt3dadd(-129, 583, -375, 0.53)
pt3dadd(-135, 607, -450, 0.53)
}
dend[178] {pt3dclear()
pt3dadd(-112, 561, -300, 1.59)
pt3dadd(-209, 605, -483.3, 1.32)
pt3dadd(-290, 549, -525, 0.79)
pt3dadd(-332, 650, -706.6, 1.06)
pt3dadd(-308, 731, -775.5, 0.79)
}
dend[179] {pt3dclear()
pt3dadd(60, 322, -162.69, 3.71)
pt3dadd(152, 504, -225, 2.91)
pt3dadd(227, 644, -348.2, 2.91)
}
}
proc shape3d_4() {
dend[179] { }
dend[180] {pt3dclear()
pt3dadd(227, 644, -348.2, 2.91)
pt3dadd(249, 693, -326.3, 0.53)
}
dend[181] {pt3dclear()
pt3dadd(227, 644, -348.2, 2.91)
pt3dadd(307, 745, -434.4, 1.85)
pt3dadd(339, 889, -478.6, 2.65)
}
dend[182] {pt3dclear()
pt3dadd(339, 889, -478.6, 2.65)
pt3dadd(385, 937, -562.4, 1.59)
pt3dadd(443, 904, -644.79, 1.06)
}
dend[183] {pt3dclear()
pt3dadd(339, 889, -478.6, 2.65)
pt3dadd(189, 1006, -450, 1.06)
pt3dadd(44, 975, -525, 1.32)
pt3dadd(-151, 957, -525, 1.06)
pt3dadd(-180, 1039, -375.5, 0.79)
}
dend[184] {pt3dclear()
pt3dadd(0, 0, 0, 9.8)
pt3dadd(-90, 2, -75, 9.8)
pt3dadd(-135, 22, -99.49, 9.27)
}
dend[185] {pt3dclear()
pt3dadd(-135, 22, -99.49, 9.27)
pt3dadd(-160, 72, -211.3, 2.38)
pt3dadd(-184, 113, -225, 2.12)
}
dend[186] {pt3dclear()
pt3dadd(-184, 113, -225, 2.12)
pt3dadd(-256, 166, -384.7, 1.32)
pt3dadd(-242, 51, -525, 0.53)
}
dend[187] {pt3dclear()
pt3dadd(-184, 113, -225, 2.12)
pt3dadd(-132, 272, -375, 1.59)
pt3dadd(-91, 405, -450, 1.06)
pt3dadd(-53, 579, -450, 0.79)
pt3dadd(-32, 685, -600, 0.79)
}
dend[188] {pt3dclear()
pt3dadd(-135, 22, -99.49, 9.27)
pt3dadd(-155, 27, -75, 8.21)
}
dend[189] {pt3dclear()
pt3dadd(-155, 27, -75, 8.21)
pt3dadd(-198, 74, -112.7, 3.97)
pt3dadd(-225, 120, -163.9, 4.5)
}
dend[190] {pt3dclear()
pt3dadd(-225, 120, -163.9, 4.5)
pt3dadd(-273, 212, -348.8, 2.38)
pt3dadd(-283, 347, -512, 1.59)
pt3dadd(-311, 476, -600, 1.59)
pt3dadd(-337, 636, -736.6, 1.32)
pt3dadd(-344, 755, -525, 1.06)
}
dend[191] {pt3dclear()
pt3dadd(-225, 120, -163.9, 4.5)
pt3dadd(-298, 168, -195.8, 3.44)
}
dend[192] {pt3dclear()
pt3dadd(-298, 168, -195.8, 3.44)
pt3dadd(-295, 317, -225.7, 1.06)
pt3dadd(-359, 441, -300, 0.79)
}
dend[193] {pt3dclear()
pt3dadd(-298, 168, -195.8, 3.44)
pt3dadd(-325, 190, -225, 2.91)
}
dend[194] {pt3dclear()
pt3dadd(-325, 190, -225, 2.91)
pt3dadd(-490, 267, -333.6, 2.12)
pt3dadd(-704, 329, -300, 1.59)
pt3dadd(-861, 399, -225, 1.32)
pt3dadd(-950, 505, -150, 1.06)
pt3dadd(-1117, 531, -75, 0.79)
pt3dadd(-1203, 578, -225, 0.79)
}
dend[195] {pt3dclear()
pt3dadd(-325, 190, -225, 2.91)
pt3dadd(-501, 299, -179.3, 1.85)
pt3dadd(-556, 473, -150, 1.59)
pt3dadd(-482, 613, -150, 1.32)
pt3dadd(-336, 712, -75, 0.79)
pt3dadd(-143, 671, -150, 0.79)
}
dend[196] {pt3dclear()
pt3dadd(-155, 27, -75, 8.21)
pt3dadd(-187, 11, -31.92, 5.56)
pt3dadd(-226, 9, -70.65, 5.83)
}
dend[197] {pt3dclear()
pt3dadd(-226, 9, -70.65, 5.83)
pt3dadd(-394, 43, 54.11, 2.12)
pt3dadd(-580, 9, 150, 2.12)
pt3dadd(-788, -27, 169.6, 1.59)
pt3dadd(-983, -88, 226.1, 0.79)
pt3dadd(-1158, -108, 344.1, 0.79)
pt3dadd(-1177, -37, 450, 0.79)
}
dend[198] {pt3dclear()
pt3dadd(-226, 9, -70.65, 5.83)
pt3dadd(-285, -33, -55.45, 5.03)
pt3dadd(-359, -68, -75, 5.03)
}
dend[199] {pt3dclear()
pt3dadd(-359, -68, -75, 5.03)
pt3dadd(-424, -78, -12.1, 2.38)
pt3dadd(-492, -87, -71.9, 2.65)
}
dend[200] {pt3dclear()
pt3dadd(-492, -87, -71.9, 2.65)
pt3dadd(-574, -94, -75, 1.59)
pt3dadd(-649, -114, -94.36, 1.32)
}
dend[201] {pt3dclear()
pt3dadd(-649, -114, -94.36, 1.32)
pt3dadd(-717, -90, -75, 0.53)
}
dend[202] {pt3dclear()
pt3dadd(-649, -114, -94.36, 1.32)
pt3dadd(-782, 20, -129.3, 1.06)
pt3dadd(-967, 112, -150, 0.79)
}
dend[203] {pt3dclear()
pt3dadd(-492, -87, -71.9, 2.65)
pt3dadd(-643, 5, -188.9, 1.85)
pt3dadd(-805, 60, -314.1, 1.59)
pt3dadd(-929, 120, -375, 1.32)
pt3dadd(-1088, 153, -525, 1.06)
pt3dadd(-1192, 90, -375, 0.79)
}
dend[204] {pt3dclear()
pt3dadd(-359, -68, -75, 5.03)
pt3dadd(-409, -78, -74, 4.24)
}
dend[205] {pt3dclear()
pt3dadd(-409, -78, -74, 4.24)
pt3dadd(-531, -187, -75, 1.59)
pt3dadd(-699, -289, -75, 1.06)
pt3dadd(-789, -448, -75, 0.79)
pt3dadd(-776, -541, -139.6, 0.53)
}
dend[206] {pt3dclear()
pt3dadd(-409, -78, -74, 4.24)
pt3dadd(-432, -65, -75, 3.97)
}
dend[207] {pt3dclear()
pt3dadd(-432, -65, -75, 3.97)
pt3dadd(-598, -131, 39.15, 2.12)
pt3dadd(-733, -227, 171.5, 2.12)
pt3dadd(-756, -352, 341.1, 1.59)
pt3dadd(-722, -475, 510.4, 1.59)
pt3dadd(-786, -599, 670, 1.32)
pt3dadd(-740, -595, 382.7, 1.06)
}
dend[208] {pt3dclear()
pt3dadd(-432, -65, -75, 3.97)
pt3dadd(-585, -89, 0, 2.38)
pt3dadd(-691, -53, 112.9, 2.38)
}
dend[209] {pt3dclear()
pt3dadd(-691, -53, 112.9, 2.38)
pt3dadd(-762, -127, 298.5, 1.59)
pt3dadd(-816, -189, 493.9, 1.06)
pt3dadd(-895, -236, 600, 0.53)
}
dend[210] {pt3dclear()
pt3dadd(-691, -53, 112.9, 2.38)
pt3dadd(-894, -51, 174, 1.59)
pt3dadd(-1033, -82, 331, 1.06)
pt3dadd(-1144, -14, 450, 1.32)
pt3dadd(-1127, 61, 450, 0.79)
}
dend[211] {pt3dclear()
pt3dadd(0, 0, 0, 9.8)
pt3dadd(-9, 50, -150, 9.8)
}
dend[212] {pt3dclear()
pt3dadd(-9, 50, -150, 9.8)
pt3dadd(-45, 113, -221.7, 6.09)
pt3dadd(-99, 176, -279.3, 5.3)
}
dend[213] {pt3dclear()
pt3dadd(-99, 176, -279.3, 5.3)
pt3dadd(-114, 230, -260.8, 3.97)
pt3dadd(-135, 281, -242.9, 4.5)
}
dend[214] {pt3dclear()
pt3dadd(-135, 281, -242.9, 4.5)
pt3dadd(-187, 449, -309.3, 1.85)
pt3dadd(-237, 603, -402.9, 2.12)
}
dend[215] {pt3dclear()
pt3dadd(-237, 603, -402.9, 2.12)
pt3dadd(-233, 655, -441.7, 0.53)
pt3dadd(-246, 710, -409.6, 0.53)
}
dend[216] {pt3dclear()
pt3dadd(-237, 603, -402.9, 2.12)
pt3dadd(-356, 759, -375, 1.85)
pt3dadd(-528, 829, -477.3, 1.59)
pt3dadd(-655, 823, -525, 0.79)
pt3dadd(-615, 702, -525, 0.79)
pt3dadd(-586, 638, -450, 0.53)
}
dend[217] {pt3dclear()
pt3dadd(-135, 281, -242.9, 4.5)
pt3dadd(-139, 485, -300.39, 2.65)
pt3dadd(-121, 650, -432.3, 1.85)
pt3dadd(-96, 824, -550.79, 1.32)
pt3dadd(-113, 1033, -598.29, 0.79)
}
dend[218] {pt3dclear()
pt3dadd(-99, 176, -279.3, 5.3)
pt3dadd(-141, 266, -375, 3.97)
pt3dadd(-181, 376, -555.29, 4.24)
}
dend[219] {pt3dclear()
pt3dadd(-181, 376, -555.29, 4.24)
pt3dadd(-243, 452, -525, 1.06)
pt3dadd(-309, 520, -600, 0.79)
}
dend[220] {pt3dclear()
pt3dadd(-181, 376, -555.29, 4.24)
pt3dadd(-172, 384, -525, 3.44)
}
dend[221] {pt3dclear()
pt3dadd(-172, 384, -525, 3.44)
pt3dadd(-193, 519, -627.79, 1.32)
pt3dadd(-195, 648, -740.1, 1.06)
}
dend[222] {pt3dclear()
pt3dadd(-172, 384, -525, 3.44)
pt3dadd(-177, 402, -570.29, 3.18)
}
dend[223] {pt3dclear()
pt3dadd(-177, 402, -570.29, 3.18)
pt3dadd(-174, 509, -675, 2.38)
pt3dadd(-250, 612, -844, 2.12)
pt3dadd(-178, 617, -1043, 1.59)
pt3dadd(-156, 562, -1125, 1.32)
pt3dadd(-203, 492, -1327, 0.79)
}
dend[224] {pt3dclear()
pt3dadd(-177, 402, -570.29, 3.18)
pt3dadd(-194, 416, -600, 2.38)
}
dend[225] {pt3dclear()
pt3dadd(-194, 416, -600, 2.38)
pt3dadd(-235, 467, -644.29, 0.79)
pt3dadd(-263, 530, -605.7, 0.53)
}
dend[226] {pt3dclear()
pt3dadd(-194, 416, -600, 2.38)
pt3dadd(-195, 428, -610.5, 2.12)
}
dend[227] {pt3dclear()
pt3dadd(-195, 428, -610.5, 2.12)
pt3dadd(-225, 481, -640.79, 0.53)
}
dend[228] {pt3dclear()
pt3dadd(-195, 428, -610.5, 2.12)
pt3dadd(-217, 505, -806.8, 1.85)
pt3dadd(-255, 557, -900, 1.59)
pt3dadd(-224, 656, -1096, 0.79)
}
dend[229] {pt3dclear()
pt3dadd(-9, 50, -150, 9.8)
pt3dadd(17, 67, -176.8, 7.15)
}
dend[230] {pt3dclear()
pt3dadd(17, 67, -176.8, 7.15)
pt3dadd(27, 147, -372.8, 4.24)
pt3dadd(63, 206, -450, 2.91)
pt3dadd(119, 260, -600, 2.91)
}
dend[231] {pt3dclear()
pt3dadd(119, 260, -600, 2.91)
pt3dadd(127, 339, -675, 0.79)
}
dend[232] {pt3dclear()
pt3dadd(119, 260, -600, 2.91)
pt3dadd(203, 305, -789.4, 2.38)
pt3dadd(235, 381, -900, 1.85)
pt3dadd(253, 448, -1100, 1.85)
pt3dadd(294, 481, -1306, 1.32)
pt3dadd(327, 390, -1275, 0.79)
}
dend[233] {pt3dclear()
pt3dadd(17, 67, -176.8, 7.15)
pt3dadd(54, 66, -273.89, 5.56)
pt3dadd(86, 48, -370.2, 5.83)
}
dend[234] {pt3dclear()
pt3dadd(86, 48, -370.2, 5.83)
pt3dadd(83, 13, -447.6, 3.71)
pt3dadd(74, -19, -375, 3.44)
}
dend[235] {pt3dclear()
pt3dadd(74, -19, -375, 3.44)
pt3dadd(176, -144, -525, 1.32)
pt3dadd(266, -285, -675, 1.32)
pt3dadd(290, -144, -750, 1.06)
}
dend[236] {pt3dclear()
pt3dadd(74, -19, -375, 3.44)
pt3dadd(62, -21, -450, 1.85)
}
dend[237] {pt3dclear()
pt3dadd(62, -21, -450, 1.85)
}
}
proc shape3d_5() {
dend[237] { pt3dadd(87, -36, -512.5, 0.53)
}
dend[238] {pt3dclear()
pt3dadd(62, -21, -450, 1.85)
pt3dadd(25, -28, -542.6, 2.12)
}
dend[239] {pt3dclear()
pt3dadd(25, -28, -542.6, 2.12)
pt3dadd(13, -24, -675, 1.32)
pt3dadd(18, -53, -884.9, 1.32)
pt3dadd(-25, -17, -975, 1.06)
pt3dadd(22, 45, -975, 1.06)
}
dend[240] {pt3dclear()
pt3dadd(25, -28, -542.6, 2.12)
pt3dadd(-120, -55, -735.8, 1.32)
pt3dadd(-295, -46, -675, 1.06)
}
dend[241] {pt3dclear()
pt3dadd(86, 48, -370.2, 5.83)
pt3dadd(207, 22, -428.9, 3.44)
pt3dadd(319, 4, -504, 3.44)
}
dend[242] {pt3dclear()
pt3dadd(319, 4, -504, 3.44)
pt3dadd(352, -15, -576.6, 1.85)
pt3dadd(391, -20, -525, 2.12)
}
dend[243] {pt3dclear()
pt3dadd(391, -20, -525, 2.12)
pt3dadd(419, -31, -600.2, 1.06)
pt3dadd(453, -47, -675, 0.79)
}
dend[244] {pt3dclear()
pt3dadd(391, -20, -525, 2.12)
pt3dadd(540, -112, -644.5, 1.59)
pt3dadd(687, -214, -675, 1.59)
pt3dadd(878, -241, -762.9, 1.06)
pt3dadd(916, -297, -848.4, 0.53)
}
dend[245] {pt3dclear()
pt3dadd(319, 4, -504, 3.44)
pt3dadd(403, -17, -476, 2.12)
pt3dadd(490, -23, -502, 2.12)
}
dend[246] {pt3dclear()
pt3dadd(490, -23, -502, 2.12)
pt3dadd(691, -53, -525, 0.79)
pt3dadd(849, -123, -545.29, 0.53)
}
dend[247] {pt3dclear()
pt3dadd(490, -23, -502, 2.12)
pt3dadd(538, -21, -525, 1.85)
}
dend[248] {pt3dclear()
pt3dadd(538, -21, -525, 1.85)
pt3dadd(594, -49, -511.7, 0.26)
}
dend[249] {pt3dclear()
pt3dadd(538, -21, -525, 1.85)
pt3dadd(676, 45, -671.8, 2.12)
pt3dadd(824, 59, -822.9, 1.32)
pt3dadd(826, 122, -825, 1.32)
pt3dadd(874, -62, -921, 1.32)
}
dend[250] {pt3dclear()
pt3dadd(874, -62, -921, 1.32)
pt3dadd(837, -73, -952.7, 0.79)
}
dend[251] {pt3dclear()
pt3dadd(874, -62, -921, 1.32)
pt3dadd(895, -73, -899.5, 0.53)
}
dend[252] {pt3dclear()
pt3dadd(0, 0, 0, 13.25)
pt3dadd(6, -69, -75, 13.25)
}
dend[253] {pt3dclear()
pt3dadd(6, -69, -75, 13.25)
pt3dadd(-14, -94, -124.6, 5.03)
pt3dadd(-46, -112, -169.5, 4.77)
}
dend[254] {pt3dclear()
pt3dadd(-46, -112, -169.5, 4.77)
pt3dadd(-192, -237, -150, 1.85)
pt3dadd(-384, -332, -150, 1.59)
pt3dadd(-540, -464, -206.4, 1.06)
pt3dadd(-639, -527, -225, 0.79)
}
dend[255] {pt3dclear()
pt3dadd(-46, -112, -169.5, 4.77)
pt3dadd(-89, -114, -279.3, 5.03)
pt3dadd(-139, -140, -300, 5.03)
}
dend[256] {pt3dclear()
pt3dadd(-139, -140, -300, 5.03)
pt3dadd(-207, -188, -336.8, 2.12)
pt3dadd(-263, -243, -382.8, 2.38)
}
dend[257] {pt3dclear()
pt3dadd(-263, -243, -382.8, 2.38)
pt3dadd(-306, -270, -466.6, 1.06)
pt3dadd(-357, -311, -450, 0.53)
}
dend[258] {pt3dclear()
pt3dadd(-263, -243, -382.8, 2.38)
pt3dadd(-381, -349, -523.5, 1.85)
pt3dadd(-499, -456, -663.4, 1.32)
pt3dadd(-498, -564, -606.6, 0.53)
}
dend[259] {pt3dclear()
pt3dadd(-139, -140, -300, 5.03)
pt3dadd(-155, -147, -356.4, 3.44)
pt3dadd(-166, -169, -410, 3.18)
}
dend[260] {pt3dclear()
pt3dadd(-166, -169, -410, 3.18)
pt3dadd(-155, -187, -375, 2.12)
pt3dadd(-162, -218, -450, 2.12)
}
dend[261] {pt3dclear()
pt3dadd(-162, -218, -450, 2.12)
pt3dadd(-50, -226, -450, 0.53)
}
dend[262] {pt3dclear()
pt3dadd(-162, -218, -450, 2.12)
pt3dadd(-238, -287, -635.5, 1.85)
pt3dadd(-299, -396, -806.8, 1.59)
pt3dadd(-175, -491, -750, 1.06)
pt3dadd(-173, -602, -600, 0.79)
}
dend[263] {pt3dclear()
pt3dadd(-166, -169, -410, 3.18)
pt3dadd(-207, -164, -375.2, 2.12)
pt3dadd(-238, -164, -450, 1.85)
}
dend[264] {pt3dclear()
pt3dadd(-238, -164, -450, 1.85)
pt3dadd(-290, -209, -525, 1.32)
pt3dadd(-323, -252, -601.79, 1.32)
}
dend[265] {pt3dclear()
pt3dadd(-238, -164, -450, 1.85)
pt3dadd(-271, -76, -640, 1.59)
pt3dadd(-286, 31, -822.4, 1.85)
pt3dadd(-294, 188, -825, 1.32)
pt3dadd(-290, 268, -825, 0.53)
}
dend[266] {pt3dclear()
pt3dadd(6, -69, -75, 13.25)
pt3dadd(11, -94, -75, 12.72)
}
dend[267] {pt3dclear()
pt3dadd(11, -94, -75, 12.72)
pt3dadd(28, -118, -23.85, 7.15)
}
dend[268] {pt3dclear()
pt3dadd(28, -118, -23.85, 7.15)
pt3dadd(84, -142, -1.2, 3.18)
}
dend[269] {pt3dclear()
pt3dadd(84, -142, -1.2, 3.18)
pt3dadd(250, -193, 0, 1.85)
pt3dadd(447, -210, 75, 1.59)
pt3dadd(583, -176, 150, 1.32)
pt3dadd(762, -132, 280.8, 0.79)
}
dend[270] {pt3dclear()
pt3dadd(84, -142, -1.2, 3.18)
pt3dadd(166, -155, -77.86, 2.65)
pt3dadd(233, -228, -150, 2.65)
}
dend[271] {pt3dclear()
pt3dadd(233, -228, -150, 2.65)
pt3dadd(361, -314, -295.5, 1.32)
pt3dadd(383, -429, -375, 1.32)
pt3dadd(404, -578, -375, 0.79)
pt3dadd(447, -704, -450, 0.53)
}
dend[272] {pt3dclear()
pt3dadd(233, -228, -150, 2.65)
pt3dadd(409, -289, -331.4, 1.32)
pt3dadd(538, -353, -450, 1.32)
}
dend[273] {pt3dclear()
pt3dadd(28, -118, -23.85, 7.15)
pt3dadd(23, -147, -8.92, 5.03)
}
dend[274] {pt3dclear()
pt3dadd(23, -147, -8.92, 5.03)
pt3dadd(-94, -259, 150, 3.18)
pt3dadd(-129, -374, 300, 3.44)
}
dend[275] {pt3dclear()
pt3dadd(-129, -374, 300, 3.44)
pt3dadd(-56, -538, 412.8, 0.79)
pt3dadd(-61, -733, 495.8, 0.53)
}
dend[276] {pt3dclear()
pt3dadd(-129, -374, 300, 3.44)
pt3dadd(-143, -393, 354.1, 3.44)
pt3dadd(-147, -409, 409.7, 3.18)
}
dend[277] {pt3dclear()
pt3dadd(-147, -409, 409.7, 3.18)
pt3dadd(-159, -385, 450, 0.79)
}
dend[278] {pt3dclear()
pt3dadd(-159, -385, 450, 0.79)
pt3dadd(-195, -376, 487.8, 0.79)
}
dend[279] {pt3dclear()
pt3dadd(-159, -385, 450, 0.79)
pt3dadd(-187, -353, 525, 0.53)
pt3dadd(-207, -358, 600, 0.79)
}
dend[280] {pt3dclear()
pt3dadd(-147, -409, 409.7, 3.18)
pt3dadd(-141, -437, 414.3, 2.38)
}
dend[281] {pt3dclear()
pt3dadd(-141, -437, 414.3, 2.38)
pt3dadd(-229, -539, 578, 1.85)
pt3dadd(-274, -672, 675, 1.85)
pt3dadd(-328, -833, 821.1, 1.06)
}
dend[282] {pt3dclear()
pt3dadd(-141, -437, 414.3, 2.38)
pt3dadd(-124, -461, 450, 1.85)
pt3dadd(-138, -495, 502.4, 2.12)
}
dend[283] {pt3dclear()
pt3dadd(-138, -495, 502.4, 2.12)
pt3dadd(-234, -565, 525, 0.79)
pt3dadd(-350, -615, 569.7, 0.79)
}
dend[284] {pt3dclear()
pt3dadd(-138, -495, 502.4, 2.12)
pt3dadd(-134, -509, 477.3, 1.85)
}
dend[285] {pt3dclear()
pt3dadd(-134, -509, 477.3, 1.85)
pt3dadd(-135, -560, 525, 0.79)
pt3dadd(-141, -615, 600, 0.53)
}
dend[286] {pt3dclear()
pt3dadd(-134, -509, 477.3, 1.85)
pt3dadd(-145, -625, 675, 1.59)
pt3dadd(-15, -694, 869.6, 0.53)
}
dend[287] {pt3dclear()
pt3dadd(23, -147, -8.92, 5.03)
pt3dadd(120, -262, -162.5, 3.97)
pt3dadd(130, -388, -336.4, 3.71)
}
dend[288] {pt3dclear()
pt3dadd(130, -388, -336.4, 3.71)
pt3dadd(245, -506, -300, 2.12)
pt3dadd(308, -709, -375, 1.59)
pt3dadd(364, -906, -450, 0.53)
}
dend[289] {pt3dclear()
pt3dadd(130, -388, -336.4, 3.71)
pt3dadd(118, -433, -300, 2.38)
pt3dadd(126, -481, -375, 2.12)
}
dend[290] {pt3dclear()
pt3dadd(126, -481, -375, 2.12)
pt3dadd(172, -549, -525, 1.32)
pt3dadd(210, -706, -709.2, 1.32)
}
dend[291] {pt3dclear()
pt3dadd(126, -481, -375, 2.12)
pt3dadd(117, -662, -375, 2.12)
pt3dadd(101, -888, -450, 1.32)
pt3dadd(1, -1129, -450, 1.06)
}
dend[292] {pt3dclear()
pt3dadd(11, -94, -75, 12.72)
pt3dadd(5, -108, -114.1, 8.21)
}
dend[293] {pt3dclear()
pt3dadd(5, -108, -114.1, 8.21)
pt3dadd(1, -167, -75, 3.71)
pt3dadd(-2, -222, -150, 3.44)
}
dend[294] {pt3dclear()
pt3dadd(-2, -222, -150, 3.44)
pt3dadd(73, -326, -150, 1.06)
pt3dadd(92, -475, -89.32, 0.79)
}
dend[295] {pt3dclear()
pt3dadd(-2, -222, -150, 3.44)
pt3dadd(-24, -271, -355.1, 2.91)
pt3dadd(-56, -328, -450, 2.38)
pt3dadd(-110, -443, -619.7, 2.38)
pt3dadd(-133, -617, -750, 2.38)
pt3dadd(-181, -739, -825, 1.85)
pt3dadd(-151, -835, -1012, 1.32)
pt3dadd(-36, -862, -975, 1.06)
}
dend[296] {pt3dclear()
pt3dadd(5, -108, -114.1, 8.21)
pt3dadd(29, -136, -75, 6.09)
}
dend[297] {pt3dclear()
pt3dadd(29, -136, -75, 6.09)
pt3dadd(-17, -157, -225, 4.24)
pt3dadd(-32, -199, -370.3, 3.97)
}
dend[298] {pt3dclear()
pt3dadd(-32, -199, -370.3, 3.97)
pt3dadd(23, -228, -525, 1.32)
pt3dadd(118, -192, -675, 1.06)
}
dend[299] {pt3dclear()
pt3dadd(-32, -199, -370.3, 3.97)
pt3dadd(-53, -207, -381.3, 3.97)
}
dend[300] {pt3dclear()
pt3dadd(-53, -207, -381.3, 3.97)
pt3dadd(-49, -230, -439.8, 2.38)
pt3dadd(-60, -250, -497.4, 2.12)
}
dend[301] {pt3dclear()
pt3dadd(-60, -250, -497.4, 2.12)
pt3dadd(-78, -246, -572.2, 1.32)
pt3dadd(-100, -254, -645.5, 1.06)
}
}
proc shape3d_6() {
dend[301] { }
dend[302] {pt3dclear()
pt3dadd(-60, -250, -497.4, 2.12)
pt3dadd(-71, -343, -600, 1.85)
pt3dadd(-42, -503, -736, 1.59)
pt3dadd(-142, -651, -621.79, 1.32)
pt3dadd(-233, -793, -600, 1.06)
pt3dadd(-182, -687, -679.5, 0.79)
}
dend[303] {pt3dclear()
pt3dadd(-53, -207, -381.3, 3.97)
pt3dadd(-60, -192, -405.1, 2.12)
}
dend[304] {pt3dclear()
pt3dadd(-60, -192, -405.1, 2.12)
pt3dadd(-112, -116, -478.9, 0.79)
pt3dadd(-195, -66, -544.4, 0.53)
}
dend[305] {pt3dclear()
pt3dadd(-60, -192, -405.1, 2.12)
pt3dadd(-64, -167, -525, 1.59)
pt3dadd(-97, -292, -693, 1.06)
pt3dadd(-44, -352, -805.4, 0.53)
}
dend[306] {pt3dclear()
pt3dadd(29, -136, -75, 6.09)
pt3dadd(68, -156, -150.19, 4.77)
}
dend[307] {pt3dclear()
pt3dadd(68, -156, -150.19, 4.77)
pt3dadd(161, -163, -247.8, 2.91)
pt3dadd(270, -237, -300, 2.91)
}
dend[308] {pt3dclear()
pt3dadd(270, -237, -300, 2.91)
pt3dadd(465, -278, -375, 1.06)
pt3dadd(461, -381, -525, 0.79)
}
dend[309] {pt3dclear()
pt3dadd(270, -237, -300, 2.91)
pt3dadd(316, -325, -487.3, 1.85)
pt3dadd(422, -416, -646.79, 1.85)
pt3dadd(529, -516, -675, 2.12)
pt3dadd(558, -615, -860.2, 1.59)
pt3dadd(626, -570, -1037, 1.32)
}
dend[310] {pt3dclear()
pt3dadd(68, -156, -150.19, 4.77)
pt3dadd(97, -230, -279.7, 4.5)
pt3dadd(99, -304, -411.3, 3.71)
}
dend[311] {pt3dclear()
pt3dadd(99, -304, -411.3, 3.71)
pt3dadd(73, -363, -524.2, 2.12)
pt3dadd(89, -418, -525, 2.12)
}
dend[312] {pt3dclear()
pt3dadd(89, -418, -525, 2.12)
pt3dadd(75, -466, -643.9, 1.59)
pt3dadd(9, -574, -675, 1.06)
}
dend[313] {pt3dclear()
pt3dadd(89, -418, -525, 2.12)
pt3dadd(125, -556, -600, 1.59)
pt3dadd(195, -674, -761.6, 1.59)
pt3dadd(219, -691, -872.8, 0.79)
}
dend[314] {pt3dclear()
pt3dadd(99, -304, -411.3, 3.71)
pt3dadd(101, -340, -375, 2.38)
}
dend[315] {pt3dclear()
pt3dadd(101, -340, -375, 2.38)
pt3dadd(208, -375, -450, 0.53)
}
dend[316] {pt3dclear()
pt3dadd(101, -340, -375, 2.38)
pt3dadd(59, -464, -450, 2.12)
pt3dadd(127, -584, -611, 1.85)
pt3dadd(214, -769, -675, 1.59)
pt3dadd(174, -738, -788.2, 1.06)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
}
access soma
celldef()