proc celldef() {
topol()
}
create soma[2], dend[355]
proc topol() { local i
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 3 connect dend[i](0), dend[i-1](1)
connect dend[4](0), dend[2](1)
for i = 5, 6 connect dend[i](0), dend[4](1)
connect dend[7](0), dend[1](1)
for i = 8, 9 connect dend[i](0), dend[i-1](1)
connect dend[10](0), dend[8](1)
connect dend[11](0), dend[7](1)
for i = 12, 13 connect dend[i](0), dend[i-1](1)
connect dend[14](0), dend[12](1)
connect dend[15](0), dend[11](1)
connect dend[16](0), dend(1)
for i = 17, 18 connect dend[i](0), dend[16](1)
connect dend[19](0), soma(0)
for i = 20, 23 connect dend[i](0), dend[i-1](1)
connect dend[24](0), dend[22](1)
for i = 25, 26 connect dend[i](0), dend[24](1)
connect dend[27](0), dend[21](1)
for i = 28, 29 connect dend[i](0), dend[27](1)
connect dend[30](0), dend[20](1)
for i = 31, 33 connect dend[i](0), dend[i-1](1)
connect dend[34](0), dend[32](1)
connect dend[35](0), dend[31](1)
for i = 36, 37 connect dend[i](0), dend[35](1)
connect dend[38](0), dend[30](1)
for i = 39, 40 connect dend[i](0), dend[38](1)
for i = 41, 42 connect dend[i](0), dend[40](1)
connect dend[43](0), dend[19](1)
for i = 44, 45 connect dend[i](0), dend[i-1](1)
connect dend[46](0), dend[44](1)
connect dend[47](0), dend[43](1)
for i = 48, 49 connect dend[i](0), dend[i-1](1)
connect dend[50](0), dend[48](1)
connect dend[51](0), dend[47](1)
connect dend[52](0), soma(0)
for i = 53, 54 connect dend[i](0), dend[52](1)
for i = 55, 56 connect dend[i](0), dend[i-1](1)
connect dend[57](0), dend[55](1)
for i = 58, 61 connect dend[i](0), dend[i-1](1)
connect dend[62](0), dend[60](1)
connect dend[63](0), dend[59](1)
connect dend[64](0), dend[58](1)
connect dend[65](0), dend[57](1)
for i = 66, 67 connect dend[i](0), dend[65](1)
connect dend[68](0), dend[54](1)
for i = 69, 70 connect dend[i](0), dend[68](1)
connect dend[71](0), soma(0)
for i = 72, 73 connect dend[i](0), dend[i-1](1)
connect dend[74](0), dend[72](1)
connect dend[75](0), dend[71](1)
for i = 76, 79 connect dend[i](0), dend[i-1](1)
connect dend[80](0), dend[78](1)
connect dend[81](0), dend[77](1)
connect dend[82](0), dend[76](1)
connect dend[83](0), dend[75](1)
for i = 84, 86 connect dend[i](0), dend[i-1](1)
connect dend[87](0), dend[85](1)
connect dend[88](0), dend[84](1)
connect dend[89](0), dend[83](1)
for i = 90, 91 connect dend[i](0), dend[89](1)
connect dend[92](0), soma(0)
for i = 93, 95 connect dend[i](0), dend[i-1](1)
connect dend[96](0), dend[94](1)
connect dend[97](0), dend[93](1)
connect dend[98](0), dend[92](1)
connect dend[99](0), soma(0)
for i = 100, 102 connect dend[i](0), dend[i-1](1)
connect dend[103](0), dend[101](1)
connect dend[104](0), dend[100](1)
connect dend[105](0), dend[99](1)
for i = 106, 108 connect dend[i](0), dend[i-1](1)
connect dend[109](0), dend[107](1)
connect dend[110](0), dend[106](1)
connect dend[111](0), dend[105](1)
for i = 112, 114 connect dend[i](0), dend[i-1](1)
connect dend[115](0), dend[113](1)
for i = 116, 117 connect dend[i](0), dend[115](1)
connect dend[118](0), dend[112](1)
for i = 119, 120 connect dend[i](0), dend[118](1)
connect dend[121](0), dend[111](1)
for i = 122, 123 connect dend[i](0), dend[121](1)
connect dend[124](0), soma(0)
for i = 125, 128 connect dend[i](0), dend[i-1](1)
connect dend[129](0), dend[127](1)
for i = 130, 131 connect dend[i](0), dend[129](1)
for i = 132, 133 connect dend[i](0), dend[131](1)
connect dend[134](0), dend[126](1)
connect dend[135](0), dend[125](1)
for i = 136, 137 connect dend[i](0), dend[135](1)
for i = 138, 139 connect dend[i](0), dend[137](1)
connect dend[140](0), dend[124](1)
for i = 141, 142 connect dend[i](0), dend[140](1)
connect dend[143](0), soma(0)
for i = 144, 148 connect dend[i](0), dend[i-1](1)
connect dend[149](0), dend[147](1)
connect dend[150](0), dend[146](1)
for i = 151, 152 connect dend[i](0), dend[i-1](1)
connect dend[153](0), dend[151](1)
for i = 154, 155 connect dend[i](0), dend[153](1)
connect dend[156](0), dend[150](1)
for i = 157, 159 connect dend[i](0), dend[i-1](1)
connect dend[160](0), dend[158](1)
connect dend[161](0), dend[157](1)
connect dend[162](0), dend[156](1)
for i = 163, 164 connect dend[i](0), dend[162](1)
for i = 165, 166 connect dend[i](0), dend[i-1](1)
connect dend[167](0), dend[165](1)
connect dend[168](0), dend[164](1)
connect dend[169](0), dend[145](1)
for i = 170, 171 connect dend[i](0), dend[169](1)
connect dend[172](0), dend[144](1)
for i = 173, 175 connect dend[i](0), dend[i-1](1)
connect dend[176](0), dend[174](1)
connect dend[177](0), dend[173](1)
for i = 178, 180 connect dend[i](0), dend[i-1](1)
connect dend[181](0), dend[179](1)
connect dend[182](0), dend[178](1)
connect dend[183](0), dend[177](1)
connect dend[184](0), dend[172](1)
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)
connect dend[189](0), dend[143](1)
for i = 190, 192 connect dend[i](0), dend[i-1](1)
connect dend[193](0), dend[191](1)
for i = 194, 195 connect dend[i](0), dend[193](1)
connect dend[196](0), dend[190](1)
for i = 197, 199 connect dend[i](0), dend[i-1](1)
connect dend[200](0), dend[198](1)
connect dend[201](0), dend[197](1)
for i = 202, 203 connect dend[i](0), dend[i-1](1)
connect dend[204](0), dend[202](1)
for i = 205, 206 connect dend[i](0), dend[204](1)
connect dend[207](0), dend[201](1)
connect dend[208](0), dend[196](1)
connect dend[209](0), dend[189](1)
for i = 210, 211 connect dend[i](0), dend[i-1](1)
connect dend[212](0), dend[210](1)
connect dend[213](0), dend[209](1)
connect dend[214](0), soma(0)
for i = 215, 217 connect dend[i](0), dend[i-1](1)
connect dend[218](0), dend[216](1)
connect dend[219](0), dend[215](1)
connect dend[220](0), dend[214](1)
connect dend[221](0), soma(0)
for i = 222, 224 connect dend[i](0), dend[i-1](1)
connect dend[225](0), dend[223](1)
connect dend[226](0), dend[222](1)
connect dend[227](0), dend[221](1)
for i = 228, 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, 236 connect dend[i](0), dend[i-1](1)
connect dend[237](0), dend[235](1)
connect dend[238](0), dend[234](1)
connect dend[239](0), dend[233](1)
connect dend[240](0), dend[228](1)
for i = 241, 242 connect dend[i](0), dend[i-1](1)
connect dend[243](0), dend[241](1)
for i = 244, 245 connect dend[i](0), dend[243](1)
connect dend[246](0), dend[240](1)
for i = 247, 248 connect dend[i](0), dend[i-1](1)
connect dend[249](0), dend[247](1)
for i = 250, 251 connect dend[i](0), dend[249](1)
connect dend[252](0), dend[246](1)
connect dend[253](0), dend[227](1)
for i = 254, 258 connect dend[i](0), dend[i-1](1)
connect dend[259](0), dend[257](1)
for i = 260, 261 connect dend[i](0), dend[259](1)
connect dend[262](0), dend[256](1)
for i = 263, 264 connect dend[i](0), dend[262](1)
connect dend[265](0), dend[255](1)
for i = 266, 267 connect dend[i](0), dend[265](1)
connect dend[268](0), dend[254](1)
connect dend[269](0), dend[253](1)
for i = 270, 271 connect dend[i](0), dend[269](1)
connect dend[272](0), soma(0)
for i = 273, 274 connect dend[i](0), dend[272](1)
connect dend[275](0), soma(0)
for i = 276, 280 connect dend[i](0), dend[i-1](1)
connect dend[281](0), dend[279](1)
connect dend[282](0), dend[278](1)
for i = 283, 284 connect dend[i](0), dend[282](1)
for i = 285, 286 connect dend[i](0), dend[i-1](1)
connect dend[287](0), dend[285](1)
connect dend[288](0), dend[284](1)
connect dend[289](0), dend[277](1)
for i = 290, 291 connect dend[i](0), dend[i-1](1)
connect dend[292](0), dend[290](1)
connect dend[293](0), dend[289](1)
connect dend[294](0), dend[276](1)
for i = 295, 297 connect dend[i](0), dend[i-1](1)
connect dend[298](0), dend[296](1)
connect dend[299](0), dend[295](1)
connect dend[300](0), dend[294](1)
for i = 301, 302 connect dend[i](0), dend[300](1)
for i = 303, 304 connect dend[i](0), dend[i-1](1)
connect dend[305](0), dend[303](1)
connect dend[306](0), dend[302](1)
topol_1()
}
proc topol_1() {
connect dend[307](0), dend[275](1)
for i = 308, 309 connect dend[i](0), dend[307](1)
connect dend[310](0), soma(0)
for i = 311, 314 connect dend[i](0), dend[i-1](1)
connect dend[315](0), dend[313](1)
connect dend[316](0), dend[312](1)
connect dend[317](0), dend[311](1)
for i = 318, 319 connect dend[i](0), dend[i-1](1)
connect dend[320](0), dend[318](1)
for i = 321, 323 connect dend[i](0), dend[i-1](1)
connect dend[324](0), dend[322](1)
connect dend[325](0), dend[321](1)
connect dend[326](0), dend[320](1)
for i = 327, 328 connect dend[i](0), dend[i-1](1)
connect dend[329](0), dend[327](1)
for i = 330, 331 connect dend[i](0), dend[329](1)
connect dend[332](0), dend[326](1)
connect dend[333](0), dend[317](1)
for i = 334, 335 connect dend[i](0), dend[333](1)
for i = 336, 337 connect dend[i](0), dend[335](1)
for i = 338, 339 connect dend[i](0), dend[337](1)
connect dend[340](0), dend[310](1)
for i = 341, 345 connect dend[i](0), dend[i-1](1)
connect dend[346](0), dend[344](1)
connect dend[347](0), dend[343](1)
for i = 348, 349 connect dend[i](0), dend[347](1)
connect dend[350](0), dend[342](1)
connect dend[351](0), dend[341](1)
connect dend[352](0), dend[340](1)
for i = 353, 354 connect dend[i](0), dend[352](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(0, 0, 0, 95.4)
pt3dadd(0, 47.7, 0, 95.4)
}
soma[1] {pt3dclear()
pt3dadd(0, 0, 0, 95.4)
pt3dadd(0, -47.7, 0, 95.4)
}
dend {pt3dclear()
pt3dadd(0, 0, 0, 9.8)
pt3dadd(-37, 64, 45.58, 9.8)
pt3dadd(-45, 111, 5.94, 8.48)
}
dend[1] {pt3dclear()
pt3dadd(-45, 111, 5.94, 8.48)
pt3dadd(-72, 152, 45.43, 6.89)
pt3dadd(-105, 190, 83.33, 6.09)
}
dend[2] {pt3dclear()
pt3dadd(-105, 190, 83.33, 6.09)
pt3dadd(-152, 311, 186.8, 4.24)
pt3dadd(-164, 445, 284, 3.71)
}
dend[3] {pt3dclear()
pt3dadd(-164, 445, 284, 3.71)
pt3dadd(-208, 565, 375, 2.12)
pt3dadd(-247, 669, 525, 2.12)
pt3dadd(-293, 807, 675, 1.32)
}
dend[4] {pt3dclear()
pt3dadd(-164, 445, 284, 3.71)
pt3dadd(-160, 481, 300, 2.91)
}
dend[5] {pt3dclear()
pt3dadd(-160, 481, 300, 2.91)
pt3dadd(-248, 601, 450, 1.59)
pt3dadd(-420, 657, 450, 1.85)
pt3dadd(-588, 719, 450, 1.59)
pt3dadd(-713, 752, 450, 1.32)
}
dend[6] {pt3dclear()
pt3dadd(-160, 481, 300, 2.91)
pt3dadd(-173, 602, 450, 1.59)
pt3dadd(-197, 754, 600, 0.53)
}
dend[7] {pt3dclear()
pt3dadd(-105, 190, 83.33, 6.09)
pt3dadd(-122, 230, 150, 4.5)
pt3dadd(-134, 270, 219.4, 3.44)
}
dend[8] {pt3dclear()
pt3dadd(-134, 270, 219.4, 3.44)
pt3dadd(-175, 304, 276.39, 2.91)
pt3dadd(-221, 328, 300, 3.18)
}
dend[9] {pt3dclear()
pt3dadd(-221, 328, 300, 3.18)
pt3dadd(-339, 346, 450, 2.38)
pt3dadd(-486, 415, 525, 1.32)
pt3dadd(-470, 477, 675, 1.06)
}
dend[10] {pt3dclear()
pt3dadd(-221, 328, 300, 3.18)
pt3dadd(-300, 418, 525, 1.85)
pt3dadd(-349, 523, 750, 1.32)
}
dend[11] {pt3dclear()
pt3dadd(-134, 270, 219.4, 3.44)
pt3dadd(-122, 345, 281.3, 2.91)
}
dend[12] {pt3dclear()
pt3dadd(-122, 345, 281.3, 2.91)
pt3dadd(-130, 394, 350.3, 2.12)
pt3dadd(-127, 442, 375, 1.85)
}
dend[13] {pt3dclear()
pt3dadd(-127, 442, 375, 1.85)
pt3dadd(-132, 485, 450, 0.79)
}
dend[14] {pt3dclear()
pt3dadd(-127, 442, 375, 1.85)
pt3dadd(-123, 509, 515.79, 0.53)
pt3dadd(-106, 563, 600, 0.79)
}
dend[15] {pt3dclear()
pt3dadd(-122, 345, 281.3, 2.91)
pt3dadd(-58, 527, 369.2, 2.38)
pt3dadd(78, 613, 375, 1.59)
pt3dadd(309, 578, 375, 1.06)
}
dend[16] {pt3dclear()
pt3dadd(-45, 111, 5.94, 8.48)
pt3dadd(-71, 201, 168.9, 3.44)
pt3dadd(-59, 290, 334.1, 2.38)
}
dend[17] {pt3dclear()
pt3dadd(-59, 290, 334.1, 2.38)
pt3dadd(-116, 393, 450, 1.32)
pt3dadd(-119, 530, 525, 1.06)
}
dend[18] {pt3dclear()
pt3dadd(-59, 290, 334.1, 2.38)
pt3dadd(11, 370, 517.5, 1.85)
pt3dadd(89, 459, 600, 1.59)
pt3dadd(215, 473, 651.9, 0.53)
}
dend[19] {pt3dclear()
pt3dadd(0, 0, 0, 9.27)
pt3dadd(-139, 55, 75, 9.27)
pt3dadd(-257, 82, 75, 7.95)
}
dend[20] {pt3dclear()
pt3dadd(-257, 82, 75, 7.95)
pt3dadd(-296, 86, 4.12, 7.42)
}
dend[21] {pt3dclear()
pt3dadd(-296, 86, 4.12, 7.42)
pt3dadd(-316, 88, 0, 5.56)
}
dend[22] {pt3dclear()
pt3dadd(-316, 88, 0, 5.56)
pt3dadd(-374, 69, 0, 3.44)
pt3dadd(-434, 36, 0, 3.44)
}
dend[23] {pt3dclear()
pt3dadd(-434, 36, 0, 3.44)
pt3dadd(-658, -3, 0, 1.59)
pt3dadd(-904, 30, -75, 1.85)
}
dend[24] {pt3dclear()
pt3dadd(-434, 36, 0, 3.44)
pt3dadd(-548, 69, 23.58, 2.91)
pt3dadd(-660, 39, 54.5, 2.65)
}
dend[25] {pt3dclear()
pt3dadd(-660, 39, 54.5, 2.65)
pt3dadd(-721, 53, 75, 1.06)
pt3dadd(-796, 74, 26.03, 0.79)
}
dend[26] {pt3dclear()
pt3dadd(-660, 39, 54.5, 2.65)
pt3dadd(-817, 23, 150, 2.38)
pt3dadd(-996, -15, 225, 1.59)
pt3dadd(-1061, -126, 375, 1.59)
}
dend[27] {pt3dclear()
pt3dadd(-316, 88, 0, 5.56)
pt3dadd(-372, 90, 40.26, 3.44)
pt3dadd(-444, 78, 0, 3.44)
}
dend[28] {pt3dclear()
pt3dadd(-444, 78, 0, 3.44)
pt3dadd(-600, 76, -143.5, 2.65)
pt3dadd(-759, 100, -150, 1.59)
pt3dadd(-901, 139, -302.5, 1.06)
pt3dadd(-1062, 158, -439.1, 1.85)
pt3dadd(-1171, 316, -375, 1.32)
pt3dadd(-1232, 430, -375, 0.79)
}
dend[29] {pt3dclear()
pt3dadd(-444, 78, 0, 3.44)
pt3dadd(-588, 133, 75, 2.12)
pt3dadd(-678, 256, 75, 1.85)
pt3dadd(-728, 362, 171.8, 1.59)
}
dend[30] {pt3dclear()
pt3dadd(-296, 86, 4.12, 7.42)
pt3dadd(-371, 155, 33.27, 5.3)
pt3dadd(-469, 190, 0, 5.03)
}
dend[31] {pt3dclear()
pt3dadd(-469, 190, 0, 5.03)
pt3dadd(-511, 237, 22.72, 3.97)
pt3dadd(-574, 264, 0, 3.71)
}
dend[32] {pt3dclear()
pt3dadd(-574, 264, 0, 3.71)
pt3dadd(-655, 282, 0, 2.38)
}
dend[33] {pt3dclear()
pt3dadd(-655, 282, 0, 2.38)
pt3dadd(-712, 256, 26.44, 0.79)
pt3dadd(-773, 267, 54.4, 0.53)
}
dend[34] {pt3dclear()
pt3dadd(-655, 282, 0, 2.38)
pt3dadd(-770, 296, 75, 2.38)
pt3dadd(-876, 372, -49.05, 1.85)
}
dend[35] {pt3dclear()
pt3dadd(-574, 264, 0, 3.71)
pt3dadd(-613, 305, 19.95, 2.65)
pt3dadd(-621, 360, 75, 2.91)
}
dend[36] {pt3dclear()
pt3dadd(-621, 360, 75, 2.91)
pt3dadd(-592, 394, 282.2, 1.85)
pt3dadd(-627, 390, 450, 1.32)
pt3dadd(-779, 370, 596.4, 0.79)
pt3dadd(-845, 367, 551.29, 0.26)
}
dend[37] {pt3dclear()
pt3dadd(-621, 360, 75, 2.91)
pt3dadd(-718, 499, 150, 2.65)
pt3dadd(-820, 648, 261.1, 1.85)
pt3dadd(-797, 712, 450, 1.06)
pt3dadd(-742, 747, 395.5, 0.79)
}
dend[38] {pt3dclear()
pt3dadd(-469, 190, 0, 5.03)
pt3dadd(-521, 258, 0, 3.18)
}
dend[39] {pt3dclear()
pt3dadd(-521, 258, 0, 3.18)
pt3dadd(-658, 251, -75, 2.65)
pt3dadd(-816, 221, -213.1, 1.06)
pt3dadd(-874, 95, -373.5, 0.79)
pt3dadd(-1011, -14, -375, 0.79)
}
dend[40] {pt3dclear()
pt3dadd(-521, 258, 0, 3.18)
pt3dadd(-557, 288, -62.35, 2.38)
}
dend[41] {pt3dclear()
pt3dadd(-557, 288, -62.35, 2.38)
pt3dadd(-592, 328, -23.23, 1.06)
}
dend[42] {pt3dclear()
pt3dadd(-557, 288, -62.35, 2.38)
pt3dadd(-562, 427, -75, 1.06)
pt3dadd(-580, 578, -75, 1.06)
pt3dadd(-557, 675, -119.1, 0.53)
}
dend[43] {pt3dclear()
pt3dadd(-257, 82, 75, 7.95)
pt3dadd(-256, 88, 131.69, 5.56)
}
dend[44] {pt3dclear()
pt3dadd(-256, 88, 131.69, 5.56)
pt3dadd(-307, 94, 225, 2.38)
pt3dadd(-356, 108, 300, 2.38)
}
dend[45] {pt3dclear()
pt3dadd(-356, 108, 300, 2.38)
pt3dadd(-457, 135, 375, 1.85)
pt3dadd(-573, 137, 525, 1.59)
}
dend[46] {pt3dclear()
pt3dadd(-356, 108, 300, 2.38)
pt3dadd(-409, 146, 375, 1.59)
pt3dadd(-446, 172, 525, 1.32)
}
dend[47] {pt3dclear()
pt3dadd(-256, 88, 131.69, 5.56)
pt3dadd(-253, 97, 134.8, 3.97)
}
dend[48] {pt3dclear()
pt3dadd(-253, 97, 134.8, 3.97)
pt3dadd(-316, 100, 76.37, 2.38)
pt3dadd(-377, 134, 150, 2.12)
}
dend[49] {pt3dclear()
pt3dadd(-377, 134, 150, 2.12)
pt3dadd(-539, 148, 286, 1.85)
pt3dadd(-735, 175, 300, 1.85)
pt3dadd(-828, 297, 300, 2.12)
pt3dadd(-859, 386, 237.7, 1.06)
}
dend[50] {pt3dclear()
pt3dadd(-377, 134, 150, 2.12)
pt3dadd(-421, 162, 213.3, 0.79)
pt3dadd(-455, 197, 279.2, 0.53)
}
dend[51] {pt3dclear()
pt3dadd(-253, 97, 134.8, 3.97)
pt3dadd(-404, 214, 150, 2.65)
pt3dadd(-525, 356, 49.31, 2.38)
pt3dadd(-647, 541, 75, 1.59)
pt3dadd(-734, 658, 228.9, 1.32)
pt3dadd(-804, 733, 368.2, 1.06)
}
dend[52] {pt3dclear()
pt3dadd(0, 0, 0, 5.83)
pt3dadd(-62, -170, 93.87, 5.83)
pt3dadd(-92, -311, 201.7, 5.03)
}
dend[53] {pt3dclear()
pt3dadd(-92, -311, 201.7, 5.03)
pt3dadd(-111, -532, 150, 1.59)
pt3dadd(-154, -733, 77.38, 1.06)
}
dend[54] {pt3dclear()
pt3dadd(-92, -311, 201.7, 5.03)
pt3dadd(-128, -371, 225, 4.5)
pt3dadd(-157, -419, 295.39, 5.03)
}
dend[55] {pt3dclear()
pt3dadd(-157, -419, 295.39, 5.03)
pt3dadd(-161, -457, 358.8, 3.71)
}
dend[56] {pt3dclear()
pt3dadd(-161, -457, 358.8, 3.71)
pt3dadd(-133, -640, 375, 1.06)
pt3dadd(-148, -846, 375, 1.06)
}
dend[57] {pt3dclear()
pt3dadd(-161, -457, 358.8, 3.71)
pt3dadd(-162, -513, 375, 2.91)
}
dend[58] {pt3dclear()
pt3dadd(-162, -513, 375, 2.91)
pt3dadd(-161, -585, 432.3, 3.71)
}
dend[59] {pt3dclear()
pt3dadd(-161, -585, 432.3, 3.71)
pt3dadd(-155, -609, 450, 2.65)
}
dend[60] {pt3dclear()
pt3dadd(-155, -609, 450, 2.65)
pt3dadd(-114, -707, 437.2, 2.12)
}
dend[61] {pt3dclear()
pt3dadd(-114, -707, 437.2, 2.12)
pt3dadd(-88, -864, 450, 1.59)
pt3dadd(-43, -996, 525, 0.53)
}
dend[62] {pt3dclear()
pt3dadd(-114, -707, 437.2, 2.12)
pt3dadd(-125, -865, 450, 1.06)
}
}
proc shape3d_2() {
dend[62] { pt3dadd(-305, -894, 300, 1.06)
pt3dadd(-430, -894, 300, 0.53)
}
dend[63] {pt3dclear()
pt3dadd(-155, -609, 450, 2.65)
pt3dadd(-197, -754, 525, 1.59)
pt3dadd(-234, -988, 607.9, 1.06)
}
dend[64] {pt3dclear()
pt3dadd(-161, -585, 432.3, 3.71)
pt3dadd(-220, -686, 450, 1.59)
}
dend[65] {pt3dclear()
pt3dadd(-162, -513, 375, 2.91)
pt3dadd(-208, -555, 450, 1.06)
}
dend[66] {pt3dclear()
pt3dadd(-208, -555, 450, 1.06)
pt3dadd(-204, -596, 416.7, 0.53)
}
dend[67] {pt3dclear()
pt3dadd(-208, -555, 450, 1.06)
pt3dadd(-239, -571, 450, 0.79)
}
dend[68] {pt3dclear()
pt3dadd(-157, -419, 295.39, 5.03)
pt3dadd(-228, -582, 300, 2.91)
pt3dadd(-276, -740, 300, 1.85)
}
dend[69] {pt3dclear()
pt3dadd(-276, -740, 300, 1.85)
pt3dadd(-282, -837, 375, 1.06)
pt3dadd(-290, -926, 396.9, 0.79)
}
dend[70] {pt3dclear()
pt3dadd(-276, -740, 300, 1.85)
pt3dadd(-317, -863, 406.8, 1.32)
pt3dadd(-360, -976, 450, 1.06)
}
dend[71] {pt3dclear()
pt3dadd(0, 0, 0, 7.15)
pt3dadd(45, 107, 0, 7.15)
}
dend[72] {pt3dclear()
pt3dadd(45, 107, 0, 7.15)
pt3dadd(89, 215, -150, 2.91)
pt3dadd(103, 370, -375, 3.18)
}
dend[73] {pt3dclear()
pt3dadd(103, 370, -375, 3.18)
pt3dadd(105, 489, -450, 2.38)
pt3dadd(122, 650, -586.9, 1.32)
pt3dadd(138, 784, -675, 1.06)
pt3dadd(242, 960, -731.1, 1.32)
pt3dadd(207, 1023, -800.5, 0.79)
}
dend[74] {pt3dclear()
pt3dadd(103, 370, -375, 3.18)
pt3dadd(112, 442, -476.8, 1.32)
pt3dadd(122, 528, -450, 1.06)
}
dend[75] {pt3dclear()
pt3dadd(45, 107, 0, 7.15)
pt3dadd(59, 127, -41.33, 5.56)
}
dend[76] {pt3dclear()
pt3dadd(59, 127, -41.33, 5.56)
pt3dadd(35, 324, 53.62, 3.71)
pt3dadd(65, 537, 12.49, 3.71)
}
dend[77] {pt3dclear()
pt3dadd(65, 537, 12.49, 3.71)
pt3dadd(54, 574, 0, 2.65)
}
dend[78] {pt3dclear()
pt3dadd(54, 574, 0, 2.65)
pt3dadd(25, 651, 73.01, 2.65)
}
dend[79] {pt3dclear()
pt3dadd(25, 651, 73.01, 2.65)
pt3dadd(15, 682, 67.72, 2.38)
}
dend[80] {pt3dclear()
pt3dadd(25, 651, 73.01, 2.65)
pt3dadd(63, 707, 10.69, 0.53)
}
dend[81] {pt3dclear()
pt3dadd(54, 574, 0, 2.65)
pt3dadd(118, 664, 117.2, 1.06)
pt3dadd(127, 784, 224.1, 0.79)
}
dend[82] {pt3dclear()
pt3dadd(65, 537, 12.49, 3.71)
pt3dadd(115, 727, 75, 2.65)
pt3dadd(214, 890, 150, 2.38)
pt3dadd(256, 1075, 225, 1.32)
}
dend[83] {pt3dclear()
pt3dadd(59, 127, -41.33, 5.56)
pt3dadd(95, 155, 28.02, 4.24)
pt3dadd(136, 189, 91.67, 4.24)
}
dend[84] {pt3dclear()
pt3dadd(136, 189, 91.67, 4.24)
pt3dadd(195, 343, 150, 2.91)
pt3dadd(283, 502, 94.55, 2.38)
}
dend[85] {pt3dclear()
pt3dadd(283, 502, 94.55, 2.38)
pt3dadd(291, 524, 75, 4.24)
}
dend[86] {pt3dclear()
pt3dadd(291, 524, 75, 4.24)
pt3dadd(304, 699, 150, 1.59)
pt3dadd(278, 853, 299.2, 1.32)
}
dend[87] {pt3dclear()
pt3dadd(291, 524, 75, 4.24)
pt3dadd(300, 579, 150, 1.06)
pt3dadd(327, 638, 200.1, 1.06)
}
dend[88] {pt3dclear()
pt3dadd(283, 502, 94.55, 2.38)
pt3dadd(319, 520, 75, 0.53)
}
dend[89] {pt3dclear()
pt3dadd(136, 189, 91.67, 4.24)
pt3dadd(168, 221, 195.2, 3.71)
pt3dadd(197, 248, 300, 3.44)
}
dend[90] {pt3dclear()
pt3dadd(197, 248, 300, 3.44)
pt3dadd(203, 400, 447.7, 2.12)
pt3dadd(172, 516, 525, 1.85)
pt3dadd(168, 644, 600, 1.06)
pt3dadd(214, 708, 675, 0.53)
}
dend[91] {pt3dclear()
pt3dadd(197, 248, 300, 3.44)
pt3dadd(240, 296, 450, 2.38)
pt3dadd(239, 370, 600, 1.85)
pt3dadd(224, 461, 675, 2.12)
}
dend[92] {pt3dclear()
pt3dadd(0, 0, 0, 6.09)
pt3dadd(-38, 182, -75, 6.09)
pt3dadd(-32, 367, -225, 4.77)
}
dend[93] {pt3dclear()
pt3dadd(-32, 367, -225, 4.77)
pt3dadd(-60, 430, -306.8, 3.71)
pt3dadd(-78, 514, -370.6, 4.24)
}
dend[94] {pt3dclear()
pt3dadd(-78, 514, -370.6, 4.24)
pt3dadd(-124, 556, -375, 3.18)
pt3dadd(-145, 621, -452.1, 3.18)
}
dend[95] {pt3dclear()
pt3dadd(-145, 621, -452.1, 3.18)
pt3dadd(-195, 678, -675, 1.59)
pt3dadd(-286, 790, -830.3, 1.59)
pt3dadd(-393, 906, -971.9, 1.59)
pt3dadd(-469, 1044, -900, 1.06)
}
dend[96] {pt3dclear()
pt3dadd(-145, 621, -452.1, 3.18)
pt3dadd(-129, 719, -525, 0.53)
}
dend[97] {pt3dclear()
pt3dadd(-78, 514, -370.6, 4.24)
pt3dadd(-66, 721, -414.8, 2.12)
pt3dadd(-67, 888, -450, 2.12)
pt3dadd(-74, 1061, -450, 1.06)
}
dend[98] {pt3dclear()
pt3dadd(-32, 367, -225, 4.77)
pt3dadd(10, 503, -382.1, 3.18)
pt3dadd(38, 649, -450, 2.38)
pt3dadd(70, 783, -611.1, 1.59)
pt3dadd(66, 934, -759.9, 1.85)
pt3dadd(38, 1057, -750, 1.06)
}
dend[99] {pt3dclear()
pt3dadd(0, 0, 0, 9.01)
pt3dadd(-8, 57, 75, 9.01)
pt3dadd(-13, 99, 128.19, 7.42)
}
dend[100] {pt3dclear()
pt3dadd(-13, 99, 128.19, 7.42)
pt3dadd(-18, 184, 211.4, 4.24)
pt3dadd(-62, 310, 225, 3.44)
}
dend[101] {pt3dclear()
pt3dadd(-62, 310, 225, 3.44)
pt3dadd(-91, 352, 269.89, 2.38)
pt3dadd(-108, 411, 296.7, 1.85)
}
dend[102] {pt3dclear()
pt3dadd(-108, 411, 296.7, 1.85)
pt3dadd(-136, 514, 300, 1.59)
pt3dadd(-179, 634, 344.5, 0.79)
}
dend[103] {pt3dclear()
pt3dadd(-108, 411, 296.7, 1.85)
pt3dadd(-111, 499, 370.7, 0.79)
pt3dadd(-77, 546, 375, 0.53)
}
dend[104] {pt3dclear()
pt3dadd(-62, 310, 225, 3.44)
pt3dadd(-29, 510, 287.1, 2.91)
pt3dadd(63, 721, 300, 1.85)
pt3dadd(-142, 759, 215.4, 1.59)
}
dend[105] {pt3dclear()
pt3dadd(-13, 99, 128.19, 7.42)
pt3dadd(0, 111, 225, 5.83)
}
dend[106] {pt3dclear()
pt3dadd(0, 111, 225, 5.83)
pt3dadd(-23, 94, 274.3, 3.18)
}
dend[107] {pt3dclear()
pt3dadd(-23, 94, 274.3, 3.18)
pt3dadd(-16, 60, 371.3, 2.65)
pt3dadd(-48, 62, 450, 2.38)
}
dend[108] {pt3dclear()
pt3dadd(-48, 62, 450, 2.38)
pt3dadd(-76, 37, 511.4, 0.79)
pt3dadd(-87, 12, 525, 1.32)
}
dend[109] {pt3dclear()
pt3dadd(-48, 62, 450, 2.38)
pt3dadd(-126, 26, 600, 1.85)
pt3dadd(-171, 31, 750, 1.59)
pt3dadd(-183, 80, 825, 1.32)
}
dend[110] {pt3dclear()
pt3dadd(-23, 94, 274.3, 3.18)
pt3dadd(-193, 131, 448.2, 1.59)
pt3dadd(-366, 182, 450, 1.32)
}
dend[111] {pt3dclear()
pt3dadd(0, 111, 225, 5.83)
pt3dadd(-8, 154, 300, 4.5)
}
dend[112] {pt3dclear()
pt3dadd(-8, 154, 300, 4.5)
pt3dadd(-25, 176, 352, 3.97)
pt3dadd(-30, 207, 303.3, 3.44)
}
dend[113] {pt3dclear()
pt3dadd(-30, 207, 303.3, 3.44)
pt3dadd(-47, 226, 335.4, 2.91)
}
dend[114] {pt3dclear()
pt3dadd(-47, 226, 335.4, 2.91)
pt3dadd(-173, 300, 516.9, 1.32)
pt3dadd(-270, 380, 675, 0.79)
}
dend[115] {pt3dclear()
pt3dadd(-47, 226, 335.4, 2.91)
pt3dadd(-44, 237, 375, 2.12)
}
dend[116] {pt3dclear()
pt3dadd(-44, 237, 375, 2.12)
pt3dadd(-53, 268, 492.7, 1.59)
pt3dadd(-51, 316, 600, 1.59)
}
dend[117] {pt3dclear()
pt3dadd(-44, 237, 375, 2.12)
pt3dadd(-18, 245, 450, 0.79)
pt3dadd(-4, 275, 517.29, 0.53)
}
dend[118] {pt3dclear()
pt3dadd(-30, 207, 303.3, 3.44)
pt3dadd(40, 304, 300, 2.65)
pt3dadd(96, 402, 375, 2.38)
}
dend[119] {pt3dclear()
pt3dadd(96, 402, 375, 2.38)
pt3dadd(105, 447, 450, 1.06)
pt3dadd(126, 503, 525, 0.53)
}
dend[120] {pt3dclear()
pt3dadd(96, 402, 375, 2.38)
pt3dadd(223, 529, 450, 1.59)
pt3dadd(349, 606, 525, 1.32)
pt3dadd(330, 753, 525, 1.06)
pt3dadd(261, 853, 571.2, 0.53)
}
dend[121] {pt3dclear()
pt3dadd(-8, 154, 300, 4.5)
pt3dadd(-18, 204, 352.2, 2.65)
pt3dadd(-24, 255, 300.39, 2.38)
}
dend[122] {pt3dclear()
pt3dadd(-24, 255, 300.39, 2.38)
pt3dadd(-76, 287, 332.5, 0.79)
pt3dadd(-132, 334, 300, 0.79)
}
dend[123] {pt3dclear()
pt3dadd(-24, 255, 300.39, 2.38)
pt3dadd(27, 362, 476.1, 1.59)
pt3dadd(84, 453, 658.9, 1.32)
pt3dadd(188, 473, 684.7, 0.53)
}
dend[124] {pt3dclear()
pt3dadd(0, 0, 0, 9.01)
pt3dadd(-123, 0, -125.7, 9.01)
pt3dadd(-235, -4, -150, 7.42)
}
dend[125] {pt3dclear()
pt3dadd(-235, -4, -150, 7.42)
pt3dadd(-352, -12, -238.6, 5.03)
pt3dadd(-447, 1, -350.1, 5.56)
}
dend[126] {pt3dclear()
pt3dadd(-447, 1, -350.1, 5.56)
pt3dadd(-497, -34, -421.5, 3.71)
}
dend[127] {pt3dclear()
pt3dadd(-497, -34, -421.5, 3.71)
pt3dadd(-529, -55, -450, 4.24)
}
dend[128] {pt3dclear()
pt3dadd(-529, -55, -450, 4.24)
pt3dadd(-585, -133, -450, 1.32)
pt3dadd(-638, -176, -421.4, 1.06)
}
dend[129] {pt3dclear()
pt3dadd(-529, -55, -450, 4.24)
pt3dadd(-628, -153, -450, 1.59)
}
}
proc shape3d_3() {
dend[129] { pt3dadd(-711, -245, -375, 1.06)
}
dend[130] {pt3dclear()
pt3dadd(-711, -245, -375, 1.06)
pt3dadd(-625, -171, -600, 1.32)
pt3dadd(-628, -197, -810.4, 1.59)
pt3dadd(-696, -297, -825, 1.06)
pt3dadd(-760, -388, -890.3, 0.53)
}
dend[131] {pt3dclear()
pt3dadd(-711, -245, -375, 1.06)
pt3dadd(-665, -178, -450, 1.59)
pt3dadd(-628, -106, -525, 1.85)
}
dend[132] {pt3dclear()
pt3dadd(-628, -106, -525, 1.85)
pt3dadd(-694, -179, -525, 0.53)
}
dend[133] {pt3dclear()
pt3dadd(-628, -106, -525, 1.85)
pt3dadd(-706, -155, -525, 0.79)
}
dend[134] {pt3dclear()
pt3dadd(-497, -34, -421.5, 3.71)
pt3dadd(-562, -48, -450, 0.53)
}
dend[135] {pt3dclear()
pt3dadd(-447, 1, -350.1, 5.56)
pt3dadd(-508, 23, -375, 4.77)
}
dend[136] {pt3dclear()
pt3dadd(-508, 23, -375, 4.77)
pt3dadd(-677, -6, -375, 2.91)
pt3dadd(-773, -12, -563.9, 1.85)
pt3dadd(-930, 83, -670.1, 1.85)
pt3dadd(-874, 206, -525, 0.79)
}
dend[137] {pt3dclear()
pt3dadd(-508, 23, -375, 4.77)
pt3dadd(-564, 44, -342.6, 3.97)
}
dend[138] {pt3dclear()
pt3dadd(-564, 44, -342.6, 3.97)
pt3dadd(-752, 74, -435.9, 2.65)
pt3dadd(-885, 128, -450, 1.59)
pt3dadd(-964, 229, -675, 1.06)
pt3dadd(-928, 296, -750, 1.06)
}
dend[139] {pt3dclear()
pt3dadd(-564, 44, -342.6, 3.97)
pt3dadd(-700, 89, -498.9, 2.91)
pt3dadd(-860, 155, -525, 1.59)
pt3dadd(-929, 115, -750, 1.06)
pt3dadd(-865, -2, -853.8, 0.79)
}
dend[140] {pt3dclear()
pt3dadd(-235, -4, -150, 7.42)
pt3dadd(-334, 29, -311.2, 3.97)
pt3dadd(-435, 62, -375, 3.44)
}
dend[141] {pt3dclear()
pt3dadd(-435, 62, -375, 3.44)
pt3dadd(-560, 101, -541.7, 2.38)
pt3dadd(-707, 149, -686.7, 1.59)
pt3dadd(-850, 174, -750, 1.06)
pt3dadd(-941, 161, -825, 1.32)
}
dend[142] {pt3dclear()
pt3dadd(-435, 62, -375, 3.44)
pt3dadd(-429, 118, -600, 1.85)
pt3dadd(-467, 173, -801.2, 1.32)
pt3dadd(-484, 227, -900, 1.06)
pt3dadd(-438, 199, -1037, 0.79)
}
dend[143] {pt3dclear()
pt3dadd(0, 0, 0, 12.19)
pt3dadd(-10, -23, -60.89, 12.19)
}
dend[144] {pt3dclear()
pt3dadd(-10, -23, -60.89, 12.19)
pt3dadd(-37, -34, -109.9, 6.89)
pt3dadd(-58, -53, -75, 6.89)
}
dend[145] {pt3dclear()
pt3dadd(-58, -53, -75, 6.89)
pt3dadd(-87, -135, -187.2, 5.83)
pt3dadd(-100, -207, -306.6, 6.62)
}
dend[146] {pt3dclear()
pt3dadd(-100, -207, -306.6, 6.62)
pt3dadd(-66, -254, -392.9, 6.09)
}
dend[147] {pt3dclear()
pt3dadd(-66, -254, -392.9, 6.09)
pt3dadd(-52, -247, -375, 2.65)
}
dend[148] {pt3dclear()
pt3dadd(-52, -247, -375, 2.65)
pt3dadd(25, -270, -622.29, 1.85)
pt3dadd(37, -417, -750, 0.79)
}
dend[149] {pt3dclear()
pt3dadd(-52, -247, -375, 2.65)
pt3dadd(-152, -247, -529.5, 1.32)
pt3dadd(-267, -235, -672.6, 0.79)
}
dend[150] {pt3dclear()
pt3dadd(-66, -254, -392.9, 6.09)
pt3dadd(-71, -270, -419, 5.83)
}
dend[151] {pt3dclear()
pt3dadd(-71, -270, -419, 5.83)
pt3dadd(-74, -299, -375, 2.65)
}
dend[152] {pt3dclear()
pt3dadd(-74, -299, -375, 2.65)
pt3dadd(59, -358, -558.29, 1.59)
pt3dadd(92, -528, -600, 0.79)
}
dend[153] {pt3dclear()
pt3dadd(-74, -299, -375, 2.65)
pt3dadd(-124, -330, -567.2, 1.85)
pt3dadd(-122, -368, -764.6, 1.32)
}
dend[154] {pt3dclear()
pt3dadd(-122, -368, -764.6, 1.32)
pt3dadd(-132, -315, -750, 0.53)
}
dend[155] {pt3dclear()
pt3dadd(-122, -368, -764.6, 1.32)
pt3dadd(0, -417, -869.2, 1.59)
pt3dadd(-29, -353, -900, 1.06)
}
dend[156] {pt3dclear()
pt3dadd(-71, -270, -419, 5.83)
pt3dadd(-71, -289, -450, 5.03)
}
dend[157] {pt3dclear()
pt3dadd(-71, -289, -450, 5.03)
pt3dadd(-66, -295, -393.5, 3.44)
}
dend[158] {pt3dclear()
pt3dadd(-66, -295, -393.5, 3.44)
pt3dadd(39, -389, -450, 2.65)
}
dend[159] {pt3dclear()
pt3dadd(39, -389, -450, 2.65)
pt3dadd(104, -452, -641.7, 1.32)
pt3dadd(130, -638, -740, 1.32)
pt3dadd(163, -813, -750, 1.32)
}
dend[160] {pt3dclear()
pt3dadd(39, -389, -450, 2.65)
pt3dadd(-27, -417, -450, 0.79)
pt3dadd(-103, -438, -533.7, 1.06)
}
dend[161] {pt3dclear()
pt3dadd(-66, -295, -393.5, 3.44)
pt3dadd(17, -482, -450, 2.91)
pt3dadd(30, -687, -502.4, 2.38)
pt3dadd(31, -908, -525, 2.12)
pt3dadd(28, -1039, -509.1, 1.06)
}
dend[162] {pt3dclear()
pt3dadd(-71, -289, -450, 5.03)
pt3dadd(-90, -329, -450, 3.71)
}
dend[163] {pt3dclear()
pt3dadd(-90, -329, -450, 3.71)
pt3dadd(-61, -381, -509.3, 1.06)
pt3dadd(-50, -433, -450, 0.79)
}
dend[164] {pt3dclear()
pt3dadd(-90, -329, -450, 3.71)
pt3dadd(-126, -400, -515.4, 3.97)
pt3dadd(-161, -469, -583.4, 3.44)
}
dend[165] {pt3dclear()
pt3dadd(-161, -469, -583.4, 3.44)
pt3dadd(-194, -614, -742.8, 2.38)
pt3dadd(-213, -761, -750, 1.85)
}
dend[166] {pt3dclear()
pt3dadd(-213, -761, -750, 1.85)
pt3dadd(-201, -906, -969.1, 0.79)
pt3dadd(-197, -1058, -900, 0.53)
}
dend[167] {pt3dclear()
pt3dadd(-213, -761, -750, 1.85)
pt3dadd(-241, -827, -825, 0.53)
pt3dadd(-258, -900, -825, 0.53)
}
dend[168] {pt3dclear()
pt3dadd(-161, -469, -583.4, 3.44)
pt3dadd(-289, -611, -600, 1.59)
pt3dadd(-364, -831, -675, 1.32)
}
dend[169] {pt3dclear()
pt3dadd(-100, -207, -306.6, 6.62)
pt3dadd(-183, -261, -326.5, 1.32)
pt3dadd(-270, -282, -373.3, 1.06)
}
dend[170] {pt3dclear()
pt3dadd(-270, -282, -373.3, 1.06)
pt3dadd(-344, -319, -447.3, 0.79)
}
dend[171] {pt3dclear()
pt3dadd(-270, -282, -373.3, 1.06)
pt3dadd(-331, -290, -404.6, 0.53)
}
dend[172] {pt3dclear()
pt3dadd(-58, -53, -75, 6.89)
pt3dadd(-129, -74, -150, 5.03)
pt3dadd(-202, -63, -163.19, 5.83)
}
dend[173] {pt3dclear()
pt3dadd(-202, -63, -163.19, 5.83)
pt3dadd(-258, -159, -150, 3.97)
}
dend[174] {pt3dclear()
pt3dadd(-258, -159, -150, 3.97)
pt3dadd(-332, -243, -150, 2.12)
pt3dadd(-417, -335, -150, 2.12)
}
dend[175] {pt3dclear()
pt3dadd(-417, -335, -150, 2.12)
pt3dadd(-557, -468, -271.2, 1.32)
pt3dadd(-623, -653, -225, 0.79)
}
dend[176] {pt3dclear()
pt3dadd(-417, -335, -150, 2.12)
pt3dadd(-468, -352, -150, 1.32)
}
dend[177] {pt3dclear()
pt3dadd(-258, -159, -150, 3.97)
pt3dadd(-278, -173, -150, 3.71)
pt3dadd(-298, -176, -285.5, 3.71)
}
dend[178] {pt3dclear()
pt3dadd(-298, -176, -285.5, 3.71)
pt3dadd(-306, -183, -300, 3.44)
}
dend[179] {pt3dclear()
pt3dadd(-306, -183, -300, 3.44)
pt3dadd(-332, -223, -300, 2.91)
pt3dadd(-364, -260, -391.8, 2.38)
}
dend[180] {pt3dclear()
pt3dadd(-364, -260, -391.8, 2.38)
pt3dadd(-339, -393, -555, 1.59)
pt3dadd(-283, -399, -675, 1.32)
pt3dadd(-328, -499, -856.4, 1.32)
pt3dadd(-301, -700, -752.3, 0.79)
}
dend[181] {pt3dclear()
pt3dadd(-364, -260, -391.8, 2.38)
pt3dadd(-495, -409, -450, 1.32)
pt3dadd(-550, -603, -450, 0.79)
}
dend[182] {pt3dclear()
pt3dadd(-306, -183, -300, 3.44)
pt3dadd(-425, -130, -375, 1.32)
pt3dadd(-576, -122, -450, 1.06)
}
dend[183] {pt3dclear()
pt3dadd(-298, -176, -285.5, 3.71)
pt3dadd(-344, -156, -375, 2.12)
pt3dadd(-429, -176, -568.2, 1.85)
pt3dadd(-505, -302, -720.8, 1.06)
pt3dadd(-479, -456, -675, 0.53)
}
dend[184] {pt3dclear()
pt3dadd(-202, -63, -163.19, 5.83)
pt3dadd(-277, -74, -86.3, 3.18)
pt3dadd(-357, -92, -75, 2.65)
}
dend[185] {pt3dclear()
pt3dadd(-357, -92, -75, 2.65)
pt3dadd(-406, -105, -10.55, 1.32)
pt3dadd(-456, -107, 53.15, 1.32)
}
dend[186] {pt3dclear()
pt3dadd(-456, -107, 53.15, 1.32)
pt3dadd(-481, -144, 75, 0.79)
pt3dadd(-507, -172, 3.57, 0.79)
}
dend[187] {pt3dclear()
pt3dadd(-456, -107, 53.15, 1.32)
pt3dadd(-512, -128, 75, 1.06)
pt3dadd(-569, -110, 75, 0.79)
}
dend[188] {pt3dclear()
pt3dadd(-357, -92, -75, 2.65)
pt3dadd(-520, -80, 0, 1.85)
pt3dadd(-685, -66, 132.4, 1.85)
pt3dadd(-803, -76, 300, 1.59)
pt3dadd(-912, -50, 375, 1.06)
}
dend[189] {pt3dclear()
pt3dadd(-10, -23, -60.89, 12.19)
pt3dadd(14, 5, -131.9, 8.21)
pt3dadd(14, 44, -200.6, 7.15)
}
dend[190] {pt3dclear()
pt3dadd(14, 44, -200.6, 7.15)
pt3dadd(6, 112, -273.5, 7.15)
}
dend[191] {pt3dclear()
pt3dadd(6, 112, -273.5, 7.15)
pt3dadd(-65, 118, -431.1, 3.97)
pt3dadd(-70, 143, -450, 3.44)
}
dend[192] {pt3dclear()
pt3dadd(-70, 143, -450, 3.44)
pt3dadd(-214, 92, -723.2, 1.59)
pt3dadd(-355, 10, -900, 1.06)
}
dend[193] {pt3dclear()
pt3dadd(-70, 143, -450, 3.44)
pt3dadd(-85, 176, -525, 3.18)
}
dend[194] {pt3dclear()
pt3dadd(-85, 176, -525, 3.18)
pt3dadd(-73, 221, -731.8, 2.65)
pt3dadd(-99, 310, -825, 2.12)
pt3dadd(-250, 436, -825, 2.12)
pt3dadd(-325, 607, -975, 1.59)
pt3dadd(-255, 777, -1050, 1.59)
}
dend[195] {pt3dclear()
pt3dadd(-85, 176, -525, 3.18)
pt3dadd(-61, 208, -525, 0.53)
}
}
proc shape3d_4() {
dend[195] { }
dend[196] {pt3dclear()
pt3dadd(6, 112, -273.5, 7.15)
pt3dadd(-12, 228, -429.2, 4.24)
pt3dadd(-30, 358, -450, 3.71)
}
dend[197] {pt3dclear()
pt3dadd(-30, 358, -450, 3.71)
pt3dadd(-23, 437, -450, 4.77)
}
dend[198] {pt3dclear()
pt3dadd(-23, 437, -450, 4.77)
pt3dadd(-23, 520, -492, 2.91)
}
dend[199] {pt3dclear()
pt3dadd(-23, 520, -492, 2.91)
pt3dadd(-54, 643, -450, 2.12)
pt3dadd(-6, 801, -450, 1.59)
}
dend[200] {pt3dclear()
pt3dadd(-23, 520, -492, 2.91)
pt3dadd(-29, 661, -603.7, 1.32)
pt3dadd(-62, 783, -730.4, 0.79)
}
dend[201] {pt3dclear()
pt3dadd(-23, 437, -450, 4.77)
pt3dadd(-39, 467, -525, 2.65)
}
dend[202] {pt3dclear()
pt3dadd(-39, 467, -525, 2.65)
pt3dadd(-52, 495, -554.9, 2.65)
}
dend[203] {pt3dclear()
pt3dadd(-52, 495, -554.9, 2.65)
pt3dadd(-105, 543, -525, 1.06)
pt3dadd(-156, 606, -568.5, 0.79)
}
dend[204] {pt3dclear()
pt3dadd(-52, 495, -554.9, 2.65)
pt3dadd(-47, 520, -588.29, 2.65)
}
dend[205] {pt3dclear()
pt3dadd(-47, 520, -588.29, 2.65)
pt3dadd(-64, 566, -632.5, 0.79)
pt3dadd(-78, 613, -600, 0.79)
}
dend[206] {pt3dclear()
pt3dadd(-47, 520, -588.29, 2.65)
pt3dadd(-43, 630, -675, 2.12)
pt3dadd(-73, 767, -834, 1.85)
pt3dadd(-209, 856, -970.1, 1.32)
pt3dadd(-168, 857, -975, 0.79)
}
dend[207] {pt3dclear()
pt3dadd(-39, 467, -525, 2.65)
pt3dadd(-17, 588, -720.5, 1.32)
pt3dadd(44, 739, -883, 0.79)
}
dend[208] {pt3dclear()
pt3dadd(-30, 358, -450, 3.71)
pt3dadd(-83, 392, -450, 0.53)
}
dend[209] {pt3dclear()
pt3dadd(14, 44, -200.6, 7.15)
pt3dadd(88, 103, -300, 3.97)
pt3dadd(136, 159, -375, 3.71)
pt3dadd(157, 239, -525, 3.71)
}
dend[210] {pt3dclear()
pt3dadd(157, 239, -525, 3.71)
pt3dadd(166, 267, -609, 2.38)
pt3dadd(185, 298, -600, 2.38)
}
dend[211] {pt3dclear()
pt3dadd(185, 298, -600, 2.38)
pt3dadd(191, 347, -675, 0.79)
pt3dadd(205, 396, -710.3, 0.53)
}
dend[212] {pt3dclear()
pt3dadd(185, 298, -600, 2.38)
pt3dadd(229, 422, -766.2, 1.85)
pt3dadd(212, 502, -961.8, 2.12)
pt3dadd(224, 596, -1050, 1.59)
pt3dadd(265, 680, -1240, 1.32)
pt3dadd(323, 689, -1275, 0.79)
}
dend[213] {pt3dclear()
pt3dadd(157, 239, -525, 3.71)
pt3dadd(217, 261, -727.1, 1.59)
pt3dadd(293, 283, -825, 1.59)
pt3dadd(457, 394, -1016, 0.79)
}
dend[214] {pt3dclear()
pt3dadd(0, 0, 0, 3.97)
pt3dadd(-188, -193, 54.31, 3.97)
pt3dadd(-364, -351, 75, 4.24)
}
dend[215] {pt3dclear()
pt3dadd(-364, -351, 75, 4.24)
pt3dadd(-421, -468, 75, 3.97)
pt3dadd(-507, -550, 52.17, 3.71)
}
dend[216] {pt3dclear()
pt3dadd(-507, -550, 52.17, 3.71)
pt3dadd(-518, -572, 75, 2.91)
}
dend[217] {pt3dclear()
pt3dadd(-518, -572, 75, 2.91)
pt3dadd(-564, -807, 171, 2.12)
pt3dadd(-591, -988, 300, 0.79)
}
dend[218] {pt3dclear()
pt3dadd(-518, -572, 75, 2.91)
pt3dadd(-595, -717, 150, 2.12)
pt3dadd(-629, -765, 225, 1.59)
}
dend[219] {pt3dclear()
pt3dadd(-507, -550, 52.17, 3.71)
pt3dadd(-649, -683, 136.4, 2.12)
pt3dadd(-835, -763, 150, 2.38)
pt3dadd(-928, -933, 120.6, 2.12)
}
dend[220] {pt3dclear()
pt3dadd(-364, -351, 75, 4.24)
pt3dadd(-511, -473, 150, 2.12)
pt3dadd(-675, -575, 150, 1.59)
pt3dadd(-741, -737, 225, 1.06)
pt3dadd(-858, -727, 225, 0.79)
}
dend[221] {pt3dclear()
pt3dadd(0, 0, 0, 10.6)
pt3dadd(2, -32, 56.37, 10.6)
}
dend[222] {pt3dclear()
pt3dadd(2, -32, 56.37, 10.6)
pt3dadd(68, -44, 225, 3.71)
pt3dadd(150, -57, 375, 3.71)
pt3dadd(225, -66, 525, 3.44)
}
dend[223] {pt3dclear()
pt3dadd(225, -66, 525, 3.44)
pt3dadd(290, -74, 525, 3.18)
pt3dadd(354, -73, 525, 2.91)
}
dend[224] {pt3dclear()
pt3dadd(354, -73, 525, 2.91)
pt3dadd(505, -143, 723.4, 1.32)
pt3dadd(645, -198, 900, 1.85)
}
dend[225] {pt3dclear()
pt3dadd(354, -73, 525, 2.91)
pt3dadd(394, -14, 614, 2.12)
pt3dadd(450, 36, 675, 1.85)
}
dend[226] {pt3dclear()
pt3dadd(225, -66, 525, 3.44)
pt3dadd(201, -53, 600, 0.79)
pt3dadd(168, -48, 675, 1.32)
}
dend[227] {pt3dclear()
pt3dadd(2, -32, 56.37, 10.6)
pt3dadd(-1, -43, 75, 9.54)
}
dend[228] {pt3dclear()
pt3dadd(-1, -43, 75, 9.54)
pt3dadd(8, -178, 225, 6.62)
pt3dadd(42, -303, 300, 5.83)
pt3dadd(54, -376, 375, 5.56)
}
dend[229] {pt3dclear()
pt3dadd(54, -376, 375, 5.56)
pt3dadd(76, -417, 407.9, 5.03)
}
dend[230] {pt3dclear()
pt3dadd(76, -417, 407.9, 5.03)
pt3dadd(120, -450, 490.2, 2.91)
pt3dadd(157, -487, 525, 2.38)
}
dend[231] {pt3dclear()
pt3dadd(157, -487, 525, 2.38)
pt3dadd(315, -577, 600, 1.85)
pt3dadd(461, -646, 600, 1.59)
pt3dadd(631, -702, 600, 1.32)
pt3dadd(664, -625, 533.4, 1.06)
}
dend[232] {pt3dclear()
pt3dadd(157, -487, 525, 2.38)
pt3dadd(185, -577, 714.9, 1.59)
pt3dadd(302, -678, 860, 1.06)
pt3dadd(410, -730, 900, 0.79)
}
dend[233] {pt3dclear()
pt3dadd(76, -417, 407.9, 5.03)
pt3dadd(90, -533, 443, 3.44)
}
dend[234] {pt3dclear()
pt3dadd(90, -533, 443, 3.44)
pt3dadd(100, -548, 432.3, 2.91)
}
dend[235] {pt3dclear()
pt3dadd(100, -548, 432.3, 2.91)
pt3dadd(120, -621, 450, 1.85)
pt3dadd(95, -694, 450, 1.59)
}
dend[236] {pt3dclear()
pt3dadd(95, -694, 450, 1.59)
pt3dadd(80, -815, 572.7, 1.06)
pt3dadd(61, -913, 675, 1.06)
}
dend[237] {pt3dclear()
pt3dadd(95, -694, 450, 1.59)
pt3dadd(56, -775, 525, 0.53)
pt3dadd(25, -855, 600, 0.53)
}
dend[238] {pt3dclear()
pt3dadd(100, -548, 432.3, 2.91)
pt3dadd(77, -708, 450, 1.85)
pt3dadd(-11, -927, 450, 1.85)
pt3dadd(-6, -1097, 375, 1.06)
}
dend[239] {pt3dclear()
pt3dadd(90, -533, 443, 3.44)
pt3dadd(62, -670, 600, 1.85)
pt3dadd(29, -791, 750, 1.85)
pt3dadd(10, -847, 900, 0.79)
}
dend[240] {pt3dclear()
pt3dadd(54, -376, 375, 5.56)
pt3dadd(42, -398, 387.5, 3.44)
}
dend[241] {pt3dclear()
pt3dadd(42, -398, 387.5, 3.44)
pt3dadd(50, -405, 450, 2.65)
}
dend[242] {pt3dclear()
pt3dadd(50, -405, 450, 2.65)
pt3dadd(166, -411, 450, 0.53)
}
dend[243] {pt3dclear()
pt3dadd(50, -405, 450, 2.65)
pt3dadd(44, -433, 525, 2.38)
}
dend[244] {pt3dclear()
pt3dadd(44, -433, 525, 2.38)
pt3dadd(108, -524, 675, 1.59)
pt3dadd(63, -616, 750, 1.06)
}
dend[245] {pt3dclear()
pt3dadd(44, -433, 525, 2.38)
pt3dadd(24, -496, 730.6, 1.32)
pt3dadd(39, -544, 900, 1.06)
}
dend[246] {pt3dclear()
pt3dadd(42, -398, 387.5, 3.44)
pt3dadd(16, -452, 421.7, 2.38)
}
dend[247] {pt3dclear()
pt3dadd(16, -452, 421.7, 2.38)
pt3dadd(12, -472, 382.7, 2.12)
}
dend[248] {pt3dclear()
pt3dadd(12, -472, 382.7, 2.12)
pt3dadd(1, -601, 375, 0.79)
pt3dadd(-25, -706, 429.2, 0.53)
}
dend[249] {pt3dclear()
pt3dadd(12, -472, 382.7, 2.12)
pt3dadd(-36, -548, 428.7, 1.85)
pt3dadd(-84, -629, 395.1, 1.85)
}
dend[250] {pt3dclear()
pt3dadd(-84, -629, 395.1, 1.85)
pt3dadd(-126, -728, 450, 1.59)
}
dend[251] {pt3dclear()
pt3dadd(-84, -629, 395.1, 1.85)
pt3dadd(-162, -633, 377.7, 0.26)
}
dend[252] {pt3dclear()
pt3dadd(16, -452, 421.7, 2.38)
pt3dadd(-89, -548, 600, 1.06)
pt3dadd(-151, -683, 750, 0.79)
}
dend[253] {pt3dclear()
pt3dadd(-1, -43, 75, 9.54)
pt3dadd(-17, -62, 122.9, 5.03)
pt3dadd(-37, -73, 150, 5.03)
}
dend[254] {pt3dclear()
pt3dadd(-37, -73, 150, 5.03)
pt3dadd(-37, -201, 225, 4.77)
pt3dadd(-72, -330, 347, 4.77)
}
dend[255] {pt3dclear()
pt3dadd(-72, -330, 347, 4.77)
pt3dadd(-73, -384, 373.2, 4.24)
}
dend[256] {pt3dclear()
pt3dadd(-73, -384, 373.2, 4.24)
pt3dadd(-80, -405, 361.6, 3.71)
}
dend[257] {pt3dclear()
pt3dadd(-80, -405, 361.6, 3.71)
pt3dadd(-90, -470, 332.3, 2.91)
pt3dadd(-117, -537, 300, 3.44)
}
dend[258] {pt3dclear()
pt3dadd(-117, -537, 300, 3.44)
pt3dadd(-108, -736, 372.5, 2.65)
pt3dadd(-73, -956, 375, 2.38)
pt3dadd(-45, -1128, 411.3, 2.12)
}
dend[259] {pt3dclear()
pt3dadd(-117, -537, 300, 3.44)
pt3dadd(-181, -607, 375, 1.59)
pt3dadd(-217, -679, 425.4, 1.59)
}
dend[260] {pt3dclear()
pt3dadd(-217, -679, 425.4, 1.59)
pt3dadd(-335, -842, 375, 1.59)
pt3dadd(-294, -1012, 375, 1.32)
}
dend[261] {pt3dclear()
pt3dadd(-217, -679, 425.4, 1.59)
pt3dadd(-275, -714, 393.3, 1.32)
pt3dadd(-297, -777, 427.5, 1.32)
}
dend[262] {pt3dclear()
pt3dadd(-80, -405, 361.6, 3.71)
pt3dadd(-89, -434, 314.5, 2.91)
pt3dadd(-99, -452, 375, 3.18)
}
dend[263] {pt3dclear()
pt3dadd(-99, -452, 375, 3.18)
pt3dadd(-151, -639, 460.3, 2.38)
pt3dadd(-198, -787, 604.6, 1.59)
}
}
proc shape3d_5() {
dend[263] { pt3dadd(-233, -853, 750, 0.79)
}
dend[264] {pt3dclear()
pt3dadd(-99, -452, 375, 3.18)
pt3dadd(-76, -593, 556.5, 1.59)
pt3dadd(-65, -778, 675, 1.06)
}
dend[265] {pt3dclear()
pt3dadd(-73, -384, 373.2, 4.24)
pt3dadd(-93, -384, 450, 1.59)
pt3dadd(-113, -386, 525, 1.85)
}
dend[266] {pt3dclear()
pt3dadd(-113, -386, 525, 1.85)
pt3dadd(-105, -411, 583.4, 0.53)
pt3dadd(-103, -437, 600, 0.53)
}
dend[267] {pt3dclear()
pt3dadd(-113, -386, 525, 1.85)
pt3dadd(-123, -457, 675, 1.32)
pt3dadd(-150, -536, 750, 0.79)
}
dend[268] {pt3dclear()
pt3dadd(-72, -330, 347, 4.77)
pt3dadd(-149, -463, 404.3, 1.06)
pt3dadd(-226, -518, 450, 0.79)
}
dend[269] {pt3dclear()
pt3dadd(-37, -73, 150, 5.03)
pt3dadd(-41, -42, 300, 2.38)
pt3dadd(-100, -3, 450, 2.38)
pt3dadd(-148, 4, 600, 1.32)
pt3dadd(-180, 15, 660.1, 1.59)
}
dend[270] {pt3dclear()
pt3dadd(-180, 15, 660.1, 1.59)
pt3dadd(-222, 24, 733.5, 1.06)
pt3dadd(-279, 45, 675.5, 1.06)
}
dend[271] {pt3dclear()
pt3dadd(-180, 15, 660.1, 1.59)
pt3dadd(-186, 57, 811.3, 1.06)
pt3dadd(-198, 97, 900, 1.06)
}
dend[272] {pt3dclear()
pt3dadd(0, 0, 0, 4.5)
pt3dadd(42, -73, -225, 4.5)
pt3dadd(65, -151, -412.1, 3.97)
}
dend[273] {pt3dclear()
pt3dadd(65, -151, -412.1, 3.97)
pt3dadd(225, -265, -375, 2.65)
pt3dadd(353, -367, -525, 1.85)
pt3dadd(474, -483, -675, 1.59)
pt3dadd(532, -583, -675, 1.06)
}
dend[274] {pt3dclear()
pt3dadd(65, -151, -412.1, 3.97)
pt3dadd(57, -245, -525, 2.65)
pt3dadd(43, -313, -725.3, 2.91)
pt3dadd(70, -431, -899.4, 2.38)
pt3dadd(108, -595, -900, 1.85)
pt3dadd(119, -768, -1022, 1.85)
pt3dadd(179, -929, -975, 1.06)
pt3dadd(257, -994, -975, 0.53)
}
dend[275] {pt3dclear()
pt3dadd(0, 0, 0, 8.74)
pt3dadd(99, -48, -81.38, 8.74)
pt3dadd(146, -83, -75, 8.21)
}
dend[276] {pt3dclear()
pt3dadd(146, -83, -75, 8.21)
pt3dadd(177, -82, -150, 7.95)
}
dend[277] {pt3dclear()
pt3dadd(177, -82, -150, 7.95)
pt3dadd(257, -96, -150, 6.09)
}
dend[278] {pt3dclear()
pt3dadd(257, -96, -150, 6.09)
pt3dadd(283, -89, -225, 3.97)
pt3dadd(306, -84, -300, 5.83)
}
dend[279] {pt3dclear()
pt3dadd(306, -84, -300, 5.83)
pt3dadd(362, -52, -342.1, 3.44)
pt3dadd(433, -41, -317.3, 3.18)
}
dend[280] {pt3dclear()
pt3dadd(433, -41, -317.3, 3.18)
pt3dadd(547, 85, -450, 1.59)
pt3dadd(670, 189, -587.79, 1.06)
pt3dadd(776, 244, -525, 0.53)
}
dend[281] {pt3dclear()
pt3dadd(433, -41, -317.3, 3.18)
pt3dadd(619, 12, -450, 1.85)
pt3dadd(726, 74, -525, 1.32)
pt3dadd(829, 124, -703.4, 1.06)
pt3dadd(891, 168, -750, 0.26)
}
dend[282] {pt3dclear()
pt3dadd(306, -84, -300, 5.83)
pt3dadd(321, -100, -375, 3.71)
}
dend[283] {pt3dclear()
pt3dadd(321, -100, -375, 3.71)
pt3dadd(385, -73, -375, 1.06)
pt3dadd(467, -41, -435.8, 0.79)
}
dend[284] {pt3dclear()
pt3dadd(321, -100, -375, 3.71)
pt3dadd(342, -122, -450, 3.97)
}
dend[285] {pt3dclear()
pt3dadd(342, -122, -450, 3.97)
pt3dadd(381, -138, -568.7, 2.91)
pt3dadd(422, -148, -600, 3.18)
}
dend[286] {pt3dclear()
pt3dadd(422, -148, -600, 3.18)
pt3dadd(413, -99, -806.1, 1.59)
pt3dadd(400, 4, -990.9, 1.59)
pt3dadd(358, 114, -1050, 1.85)
pt3dadd(282, 144, -1125, 0.79)
}
dend[287] {pt3dclear()
pt3dadd(422, -148, -600, 3.18)
pt3dadd(450, -216, -825, 1.06)
pt3dadd(471, -290, -1044, 0.79)
}
dend[288] {pt3dclear()
pt3dadd(342, -122, -450, 3.97)
pt3dadd(342, -169, -492, 0.79)
pt3dadd(353, -217, -454.3, 0.79)
}
dend[289] {pt3dclear()
pt3dadd(257, -96, -150, 6.09)
pt3dadd(326, -117, -225, 3.71)
pt3dadd(389, -117, -303.89, 3.71)
}
dend[290] {pt3dclear()
pt3dadd(389, -117, -303.89, 3.71)
pt3dadd(441, -93, -338.7, 1.85)
}
dend[291] {pt3dclear()
pt3dadd(441, -93, -338.7, 1.85)
pt3dadd(543, -28, -407.2, 1.06)
pt3dadd(678, -13, -377.7, 0.53)
}
dend[292] {pt3dclear()
pt3dadd(441, -93, -338.7, 1.85)
pt3dadd(536, -99, -445.4, 0.79)
pt3dadd(634, -88, -375, 0.79)
}
dend[293] {pt3dclear()
pt3dadd(389, -117, -303.89, 3.71)
pt3dadd(558, -142, -429.5, 2.65)
pt3dadd(728, -181, -550, 2.38)
pt3dadd(891, -302, -611.1, 2.12)
pt3dadd(811, -505, -675, 1.32)
pt3dadd(614, -547, -675, 0.79)
}
dend[294] {pt3dclear()
pt3dadd(177, -82, -150, 7.95)
pt3dadd(212, -126, -176.1, 5.83)
}
dend[295] {pt3dclear()
pt3dadd(212, -126, -176.1, 5.83)
pt3dadd(272, -178, -160.1, 2.91)
pt3dadd(321, -247, -150, 3.71)
}
dend[296] {pt3dclear()
pt3dadd(321, -247, -150, 3.71)
pt3dadd(367, -274, -101.6, 3.18)
}
dend[297] {pt3dclear()
pt3dadd(367, -274, -101.6, 3.18)
pt3dadd(462, -330, -75, 1.06)
pt3dadd(531, -423, -146.3, 0.79)
}
dend[298] {pt3dclear()
pt3dadd(367, -274, -101.6, 3.18)
pt3dadd(520, -344, 0, 1.85)
pt3dadd(688, -374, 75, 1.85)
pt3dadd(851, -370, 150, 1.85)
pt3dadd(992, -372, 150, 1.59)
pt3dadd(1141, -392, 287.89, 1.59)
}
dend[299] {pt3dclear()
pt3dadd(321, -247, -150, 3.71)
pt3dadd(357, -320, -180.7, 1.06)
pt3dadd(402, -391, -158.3, 0.79)
}
dend[300] {pt3dclear()
pt3dadd(212, -126, -176.1, 5.83)
pt3dadd(234, -152, -210, 4.24)
}
dend[301] {pt3dclear()
pt3dadd(234, -152, -210, 4.24)
pt3dadd(391, -167, -351.6, 2.65)
pt3dadd(509, -237, -375, 2.38)
pt3dadd(566, -352, -543.7, 1.85)
pt3dadd(594, -514, -600, 1.59)
pt3dadd(625, -643, -765.4, 1.32)
pt3dadd(661, -715, -750, 0.53)
}
dend[302] {pt3dclear()
pt3dadd(234, -152, -210, 4.24)
pt3dadd(265, -199, -233.4, 3.71)
pt3dadd(312, -236, -245.4, 3.97)
}
dend[303] {pt3dclear()
pt3dadd(312, -236, -245.4, 3.97)
pt3dadd(393, -305, -225, 3.18)
pt3dadd(489, -352, -300, 2.91)
}
dend[304] {pt3dclear()
pt3dadd(489, -352, -300, 2.91)
pt3dadd(655, -368, -375, 1.06)
pt3dadd(757, -516, -375, 0.79)
}
dend[305] {pt3dclear()
pt3dadd(489, -352, -300, 2.91)
pt3dadd(634, -430, -300, 2.38)
pt3dadd(733, -512, -468.6, 1.85)
pt3dadd(767, -568, -556.9, 1.06)
}
dend[306] {pt3dclear()
pt3dadd(312, -236, -245.4, 3.97)
pt3dadd(325, -365, -295.5, 1.32)
pt3dadd(313, -488, -231.9, 1.06)
}
dend[307] {pt3dclear()
pt3dadd(146, -83, -75, 8.21)
pt3dadd(305, -141, -75, 2.12)
pt3dadd(457, -234, -134.9, 1.85)
}
dend[308] {pt3dclear()
pt3dadd(457, -234, -134.9, 1.85)
pt3dadd(529, -232, -75, 1.06)
pt3dadd(590, -259, -40.72, 0.79)
}
dend[309] {pt3dclear()
pt3dadd(457, -234, -134.9, 1.85)
pt3dadd(526, -322, -75, 1.59)
pt3dadd(543, -442, 0, 1.06)
}
dend[310] {pt3dclear()
pt3dadd(0, 0, 0, 7.68)
pt3dadd(65, 13, -30.22, 7.68)
}
dend[311] {pt3dclear()
pt3dadd(65, 13, -30.22, 7.68)
pt3dadd(101, 36, -89.41, 8.74)
}
dend[312] {pt3dclear()
pt3dadd(101, 36, -89.41, 8.74)
pt3dadd(142, 147, -197.1, 3.97)
pt3dadd(179, 286, -267.2, 5.03)
}
dend[313] {pt3dclear()
pt3dadd(179, 286, -267.2, 5.03)
pt3dadd(207, 382, -225, 2.91)
pt3dadd(249, 481, -300, 3.44)
}
dend[314] {pt3dclear()
pt3dadd(249, 481, -300, 3.44)
pt3dadd(241, 576, -333.3, 0.79)
pt3dadd(223, 676, -300, 0.53)
}
dend[315] {pt3dclear()
pt3dadd(249, 481, -300, 3.44)
pt3dadd(285, 647, -426.9, 2.38)
pt3dadd(295, 801, -450, 1.59)
pt3dadd(405, 917, -589.2, 1.59)
pt3dadd(504, 981, -671.9, 1.06)
}
dend[316] {pt3dclear()
pt3dadd(179, 286, -267.2, 5.03)
pt3dadd(231, 410, -431.1, 2.38)
pt3dadd(276, 527, -525, 2.12)
pt3dadd(293, 649, -697.5, 1.32)
pt3dadd(251, 716, -894.2, 1.59)
pt3dadd(244, 809, -975, 0.79)
}
dend[317] {pt3dclear()
pt3dadd(101, 36, -89.41, 8.74)
pt3dadd(125, 44, -75, 6.62)
}
dend[318] {pt3dclear()
pt3dadd(125, 44, -75, 6.62)
pt3dadd(219, 57, -103.2, 5.56)
pt3dadd(311, 94, -75, 5.3)
}
dend[319] {pt3dclear()
pt3dadd(311, 94, -75, 5.3)
pt3dadd(394, 129, -201.1, 1.32)
pt3dadd(489, 207, -293.89, 1.06)
}
dend[320] {pt3dclear()
pt3dadd(311, 94, -75, 5.3)
pt3dadd(392, 105, -75, 5.3)
}
dend[321] {pt3dclear()
pt3dadd(392, 105, -75, 5.3)
pt3dadd(518, 167, -75, 3.18)
pt3dadd(652, 196, -183.8, 2.65)
}
dend[322] {pt3dclear()
pt3dadd(652, 196, -183.8, 2.65)
pt3dadd(711, 240, -150, 2.38)
}
dend[323] {pt3dclear()
pt3dadd(711, 240, -150, 2.38)
pt3dadd(698, 301, -196.8, 0.53)
pt3dadd(709, 363, -152.5, 0.53)
}
dend[324] {pt3dclear()
pt3dadd(711, 240, -150, 2.38)
pt3dadd(827, 315, -200.3, 2.65)
}
}
proc shape3d_6() {
dend[324] { pt3dadd(957, 363, -154.3, 1.85)
}
dend[325] {pt3dclear()
pt3dadd(652, 196, -183.8, 2.65)
pt3dadd(726, 134, -150, 1.06)
pt3dadd(807, 76, -150, 0.79)
}
dend[326] {pt3dclear()
pt3dadd(392, 105, -75, 5.3)
pt3dadd(464, 99, -34.15, 3.71)
}
dend[327] {pt3dclear()
pt3dadd(464, 99, -34.15, 3.71)
pt3dadd(559, 120, 0, 3.18)
}
dend[328] {pt3dclear()
pt3dadd(559, 120, 0, 3.18)
pt3dadd(660, 239, 75, 2.12)
pt3dadd(794, 313, 75, 1.59)
pt3dadd(950, 349, 150, 1.32)
pt3dadd(1124, 347, 76.23, 0.53)
}
dend[329] {pt3dclear()
pt3dadd(559, 120, 0, 3.18)
pt3dadd(626, 111, 0, 2.65)
}
dend[330] {pt3dclear()
pt3dadd(626, 111, 0, 2.65)
pt3dadd(698, 153, -67.09, 0.79)
pt3dadd(782, 200, -22.69, 0.79)
}
dend[331] {pt3dclear()
pt3dadd(626, 111, 0, 2.65)
pt3dadd(800, 25, 75, 2.38)
pt3dadd(986, -63, 23.97, 1.85)
pt3dadd(1242, -5, 75, 1.06)
}
dend[332] {pt3dclear()
pt3dadd(464, 99, -34.15, 3.71)
pt3dadd(603, 69, 75, 1.85)
pt3dadd(762, 60, 214.9, 1.32)
pt3dadd(888, 81, 272.2, 0.79)
}
dend[333] {pt3dclear()
pt3dadd(125, 44, -75, 6.62)
pt3dadd(157, 36, -165.2, 4.5)
pt3dadd(187, 28, -254.9, 5.03)
}
dend[334] {pt3dclear()
pt3dadd(187, 28, -254.9, 5.03)
pt3dadd(269, 35, -375, 3.71)
pt3dadd(334, 77, -572.4, 2.65)
pt3dadd(394, 152, -675, 2.38)
pt3dadd(442, 203, -900, 1.59)
pt3dadd(453, 239, -1109, 1.59)
pt3dadd(480, 290, -1200, 1.32)
pt3dadd(611, 330, -1362, 1.32)
pt3dadd(686, 375, -1416, 0.79)
}
dend[335] {pt3dclear()
pt3dadd(187, 28, -254.9, 5.03)
pt3dadd(331, -57, -442.1, 4.24)
pt3dadd(478, -176, -525, 3.71)
}
dend[336] {pt3dclear()
pt3dadd(478, -176, -525, 3.71)
pt3dadd(525, -231, -561.4, 0.79)
pt3dadd(585, -272, -525.7, 0.53)
}
dend[337] {pt3dclear()
pt3dadd(478, -176, -525, 3.71)
pt3dadd(501, -234, -525, 2.65)
}
dend[338] {pt3dclear()
pt3dadd(501, -234, -525, 2.65)
pt3dadd(594, -305, -525, 1.06)
pt3dadd(668, -405, -600, 1.06)
}
dend[339] {pt3dclear()
pt3dadd(501, -234, -525, 2.65)
pt3dadd(585, -351, -680.6, 2.38)
pt3dadd(629, -502, -822.7, 1.59)
pt3dadd(624, -700, -900, 1.32)
pt3dadd(712, -820, -900, 0.79)
}
dend[340] {pt3dclear()
pt3dadd(65, 13, -30.22, 7.68)
pt3dadd(187, 59, -9.62, 5.03)
pt3dadd(318, 88, 0, 5.03)
}
dend[341] {pt3dclear()
pt3dadd(318, 88, 0, 5.03)
pt3dadd(376, 117, 0, 4.77)
}
dend[342] {pt3dclear()
pt3dadd(376, 117, 0, 4.77)
pt3dadd(456, 126, 0, 3.71)
pt3dadd(525, 143, 0, 3.44)
}
dend[343] {pt3dclear()
pt3dadd(525, 143, 0, 3.44)
pt3dadd(607, 184, 20.76, 3.44)
}
dend[344] {pt3dclear()
pt3dadd(607, 184, 20.76, 3.44)
pt3dadd(656, 213, 42.65, 2.91)
}
dend[345] {pt3dclear()
pt3dadd(656, 213, 42.65, 2.91)
pt3dadd(629, 353, 75, 1.32)
pt3dadd(709, 448, 150, 0.79)
}
dend[346] {pt3dclear()
pt3dadd(656, 213, 42.65, 2.91)
pt3dadd(815, 250, 150, 2.65)
pt3dadd(929, 371, 225, 1.85)
pt3dadd(1076, 545, 225, 1.85)
}
dend[347] {pt3dclear()
pt3dadd(607, 184, 20.76, 3.44)
pt3dadd(721, 166, 0, 1.85)
}
dend[348] {pt3dclear()
pt3dadd(721, 166, 0, 1.85)
pt3dadd(797, 195, 0, 0.53)
}
dend[349] {pt3dclear()
pt3dadd(721, 166, 0, 1.85)
pt3dadd(799, 145, 0, 1.59)
pt3dadd(863, 114, -23.83, 1.32)
}
dend[350] {pt3dclear()
pt3dadd(525, 143, 0, 3.44)
pt3dadd(663, 114, 83.73, 1.32)
pt3dadd(791, 80, 150, 1.06)
}
dend[351] {pt3dclear()
pt3dadd(376, 117, 0, 4.77)
pt3dadd(514, 129, 150, 2.65)
pt3dadd(661, 193, 225, 1.59)
pt3dadd(780, 344, 300, 1.85)
pt3dadd(745, 622, 225, 0.79)
}
dend[352] {pt3dclear()
pt3dadd(318, 88, 0, 5.03)
pt3dadd(363, 92, 150, 2.38)
pt3dadd(450, 81, 225, 2.12)
}
dend[353] {pt3dclear()
pt3dadd(450, 81, 225, 2.12)
pt3dadd(543, 147, 435, 1.85)
pt3dadd(639, 157, 600, 1.06)
}
dend[354] {pt3dclear()
pt3dadd(450, 81, 225, 2.12)
pt3dadd(554, 89, 300, 1.59)
pt3dadd(691, 53, 450, 1.85)
pt3dadd(704, -23, 525, 0.79)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
}
access soma
celldef()