proc celldef() {
topol()
}
create soma[2], dend[398]
proc topol() { local i
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 4 connect dend[i](0), dend[i-1](1)
connect dend[5](0), dend[3](1)
connect dend[6](0), dend[2](1)
for i = 7, 8 connect dend[i](0), dend[6](1)
for i = 9, 10 connect dend[i](0), dend[8](1)
for i = 11, 12 connect dend[i](0), dend[i-1](1)
connect dend[13](0), dend[11](1)
connect dend[14](0), dend[10](1)
connect dend[15](0), dend[1](1)
for i = 16, 17 connect dend[i](0), dend[15](1)
for i = 18, 21 connect dend[i](0), dend[i-1](1)
connect dend[22](0), dend[20](1)
connect dend[23](0), dend[19](1)
connect dend[24](0), dend[18](1)
for i = 25, 26 connect dend[i](0), dend[24](1)
for i = 27, 28 connect dend[i](0), dend[26](1)
connect dend[29](0), dend[17](1)
for i = 30, 31 connect dend[i](0), dend[i-1](1)
connect dend[32](0), dend[30](1)
for i = 33, 34 connect dend[i](0), dend[32](1)
for i = 35, 36 connect dend[i](0), dend[34](1)
for i = 37, 38 connect dend[i](0), dend[36](1)
connect dend[39](0), dend[29](1)
for i = 40, 41 connect dend[i](0), dend[39](1)
connect dend[42](0), dend(1)
for i = 43, 44 connect dend[i](0), dend[42](1)
for i = 45, 46 connect dend[i](0), dend[44](1)
for i = 47, 48 connect dend[i](0), dend[i-1](1)
connect dend[49](0), dend[47](1)
connect dend[50](0), dend[46](1)
connect dend[51](0), soma(0)
for i = 52, 55 connect dend[i](0), dend[i-1](1)
connect dend[56](0), dend[54](1)
connect dend[57](0), dend[53](1)
connect dend[58](0), dend[52](1)
for i = 59, 61 connect dend[i](0), dend[i-1](1)
connect dend[62](0), dend[60](1)
for i = 63, 64 connect dend[i](0), dend[i-1](1)
connect dend[65](0), dend[63](1)
connect dend[66](0), dend[62](1)
for i = 67, 68 connect dend[i](0), dend[66](1)
connect dend[69](0), dend[59](1)
for i = 70, 71 connect dend[i](0), dend[69](1)
for i = 72, 73 connect dend[i](0), dend[71](1)
connect dend[74](0), dend[58](1)
for i = 75, 76 connect dend[i](0), dend[74](1)
connect dend[77](0), dend[51](1)
for i = 78, 84 connect dend[i](0), dend[i-1](1)
connect dend[85](0), dend[83](1)
connect dend[86](0), dend[82](1)
for i = 87, 88 connect dend[i](0), dend[86](1)
for i = 89, 90 connect dend[i](0), dend[88](1)
connect dend[91](0), dend[81](1)
for i = 92, 93 connect dend[i](0), dend[i-1](1)
connect dend[94](0), dend[92](1)
for i = 95, 96 connect dend[i](0), dend[94](1)
for i = 97, 98 connect dend[i](0), dend[96](1)
connect dend[99](0), dend[91](1)
for i = 100, 103 connect dend[i](0), dend[i-1](1)
connect dend[104](0), dend[102](1)
for i = 105, 106 connect dend[i](0), dend[104](1)
connect dend[107](0), dend[101](1)
connect dend[108](0), dend[100](1)
connect dend[109](0), dend[99](1)
for i = 110, 111 connect dend[i](0), dend[109](1)
for i = 112, 113 connect dend[i](0), dend[111](1)
for i = 114, 115 connect dend[i](0), dend[113](1)
connect dend[116](0), dend[80](1)
for i = 117, 118 connect dend[i](0), dend[116](1)
for i = 119, 121 connect dend[i](0), dend[i-1](1)
connect dend[122](0), dend[120](1)
connect dend[123](0), dend[119](1)
connect dend[124](0), dend[118](1)
connect dend[125](0), dend[79](1)
for i = 126, 127 connect dend[i](0), dend[i-1](1)
connect dend[128](0), dend[126](1)
connect dend[129](0), dend[125](1)
connect dend[130](0), dend[78](1)
for i = 131, 132 connect dend[i](0), dend[130](1)
for i = 133, 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[i-1](1)
connect dend[139](0), dend[137](1)
connect dend[140](0), dend[136](1)
connect dend[141](0), dend[133](1)
for i = 142, 143 connect dend[i](0), dend[141](1)
connect dend[144](0), dend[132](1)
for i = 145, 146 connect dend[i](0), dend[144](1)
for i = 147, 148 connect dend[i](0), dend[i-1](1)
connect dend[149](0), dend[147](1)
connect dend[150](0), dend[146](1)
connect dend[151](0), dend[77](1)
for i = 152, 153 connect dend[i](0), dend[151](1)
for i = 154, 155 connect dend[i](0), dend[153](1)
connect dend[156](0), soma(0)
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)
for i = 162, 164 connect dend[i](0), dend[i-1](1)
connect dend[165](0), dend[163](1)
connect dend[166](0), dend[162](1)
connect dend[167](0), dend[161](1)
for i = 168, 169 connect dend[i](0), dend[167](1)
connect dend[170](0), dend[156](1)
for i = 171, 172 connect dend[i](0), dend[i-1](1)
connect dend[173](0), dend[171](1)
for i = 174, 175 connect dend[i](0), dend[173](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)
connect dend[182](0), dend[170](1)
for i = 183, 184 connect dend[i](0), dend[182](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)
for i = 189, 190 connect dend[i](0), dend[188](1)
connect dend[191](0), soma(0)
for i = 192, 193 connect dend[i](0), dend[i-1](1)
connect dend[194](0), dend[192](1)
for i = 195, 196 connect dend[i](0), dend[i-1](1)
connect dend[197](0), dend[195](1)
connect dend[198](0), dend[194](1)
for i = 199, 200 connect dend[i](0), dend[198](1)
for i = 201, 202 connect dend[i](0), dend[200](1)
connect dend[203](0), dend[191](1)
for i = 204, 206 connect dend[i](0), dend[i-1](1)
connect dend[207](0), dend[205](1)
for i = 208, 209 connect dend[i](0), dend[207](1)
for i = 210, 212 connect dend[i](0), dend[i-1](1)
connect dend[213](0), dend[211](1)
connect dend[214](0), dend[210](1)
connect dend[215](0), dend[209](1)
connect dend[216](0), dend[204](1)
for i = 217, 218 connect dend[i](0), dend[216](1)
connect dend[219](0), dend[203](1)
for i = 220, 221 connect dend[i](0), dend[219](1)
connect dend[222](0), soma(0)
for i = 223, 224 connect dend[i](0), dend[i-1](1)
connect dend[225](0), dend[223](1)
for i = 226, 227 connect dend[i](0), dend[i-1](1)
connect dend[228](0), dend[226](1)
connect dend[229](0), dend[225](1)
connect dend[230](0), dend[222](1)
for i = 231, 232 connect dend[i](0), dend[i-1](1)
connect dend[233](0), dend[231](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)
connect dend[239](0), dend[233](1)
for i = 240, 241 connect dend[i](0), dend[239](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)
connect dend[248](0), dend[230](1)
for i = 249, 251 connect dend[i](0), dend[i-1](1)
connect dend[252](0), dend[250](1)
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[255](1)
connect dend[258](0), dend[252](1)
connect dend[259](0), dend[249](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[248](1)
for i = 267, 268 connect dend[i](0), dend[i-1](1)
connect dend[269](0), dend[267](1)
connect dend[270](0), dend[266](1)
for i = 271, 274 connect dend[i](0), dend[i-1](1)
connect dend[275](0), dend[273](1)
for i = 276, 277 connect dend[i](0), dend[275](1)
connect dend[278](0), dend[272](1)
connect dend[279](0), dend[271](1)
for i = 280, 281 connect dend[i](0), dend[279](1)
for i = 282, 283 connect dend[i](0), dend[281](1)
for i = 284, 285 connect dend[i](0), dend[283](1)
connect dend[286](0), dend[270](1)
for i = 287, 288 connect dend[i](0), dend[286](1)
for i = 289, 290 connect dend[i](0), dend[i-1](1)
connect dend[291](0), dend[289](1)
connect dend[292](0), dend[288](1)
connect dend[293](0), soma(0)
for i = 294, 295 connect dend[i](0), dend[i-1](1)
connect dend[296](0), dend[294](1)
for i = 297, 298 connect dend[i](0), dend[i-1](1)
connect dend[299](0), dend[297](1)
connect dend[300](0), dend[296](1)
connect dend[301](0), dend[293](1)
connect dend[302](0), soma(0)
for i = 303, 305 connect dend[i](0), dend[i-1](1)
connect dend[306](0), dend[304](1)
connect dend[307](0), dend[303](1)
for i = 308, 309 connect dend[i](0), dend[307](1)
for i = 310, 311 connect dend[i](0), dend[i-1](1)
connect dend[312](0), dend[310](1)
topol_1()
}
proc topol_1() {
connect dend[313](0), dend[309](1)
connect dend[314](0), dend[302](1)
for i = 315, 316 connect dend[i](0), dend[314](1)
connect dend[317](0), soma(0)
for i = 318, 319 connect dend[i](0), dend[i-1](1)
connect dend[320](0), dend[318](1)
for i = 321, 322 connect dend[i](0), dend[320](1)
connect dend[323](0), dend[317](1)
for i = 324, 325 connect dend[i](0), dend[i-1](1)
connect dend[326](0), dend[324](1)
for i = 327, 328 connect dend[i](0), dend[326](1)
connect dend[329](0), dend[323](1)
for i = 330, 331 connect dend[i](0), dend[i-1](1)
connect dend[332](0), dend[330](1)
for i = 333, 335 connect dend[i](0), dend[i-1](1)
connect dend[336](0), dend[334](1)
connect dend[337](0), dend[333](1)
for i = 338, 339 connect dend[i](0), dend[337](1)
connect dend[340](0), dend[332](1)
for i = 341, 342 connect dend[i](0), dend[i-1](1)
connect dend[343](0), dend[341](1)
for i = 344, 345 connect dend[i](0), dend[343](1)
connect dend[346](0), dend[340](1)
for i = 347, 348 connect dend[i](0), dend[346](1)
for i = 349, 350 connect dend[i](0), dend[348](1)
connect dend[351](0), dend[329](1)
for i = 352, 353 connect dend[i](0), dend[i-1](1)
connect dend[354](0), dend[352](1)
connect dend[355](0), dend[351](1)
for i = 356, 357 connect dend[i](0), dend[355](1)
connect dend[358](0), soma(0)
for i = 359, 361 connect dend[i](0), dend[i-1](1)
connect dend[362](0), dend[360](1)
for i = 363, 364 connect dend[i](0), dend[362](1)
connect dend[365](0), dend[359](1)
for i = 366, 367 connect dend[i](0), dend[365](1)
for i = 368, 369 connect dend[i](0), dend[367](1)
connect dend[370](0), dend[358](1)
connect dend[371](0), soma(0)
for i = 372, 375 connect dend[i](0), dend[i-1](1)
connect dend[376](0), dend[374](1)
connect dend[377](0), dend[373](1)
connect dend[378](0), dend[372](1)
connect dend[379](0), dend[371](1)
for i = 380, 381 connect dend[i](0), dend[i-1](1)
connect dend[382](0), dend[380](1)
for i = 383, 386 connect dend[i](0), dend[i-1](1)
connect dend[387](0), dend[385](1)
connect dend[388](0), dend[384](1)
for i = 389, 390 connect dend[i](0), dend[388](1)
connect dend[391](0), dend[383](1)
connect dend[392](0), dend[382](1)
connect dend[393](0), dend[379](1)
for i = 394, 395 connect dend[i](0), dend[393](1)
for i = 396, 397 connect dend[i](0), dend[395](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 65.022)
pt3dadd(32.6, 47.92, -5.41, 65.022)
}
soma[1] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 65.022)
pt3dadd(32.6, -17.09, -5.41, 65.022)
}
dend {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 8)
pt3dadd(10.5, 20.5, -1, 8)
pt3dadd(1.5, 18, 5.5, 6.4)
pt3dadd(-9, 13, 25, 6.4)
pt3dadd(-19.5, 10, 19, 11.3)
pt3dadd(-29, 9.5, 11, 8.9)
pt3dadd(-38.5, 7.5, 2.5, 9.4)
pt3dadd(-45.5, 6, -3.5, 12.4)
}
dend[1] {pt3dclear()
pt3dadd(-45.5, 6, -3.5, 12.4)
pt3dadd(-53, 11.5, 8, 6.7)
pt3dadd(-65, 13, 10.5, 6.1)
pt3dadd(-76.5, 15, 25, 7.6)
pt3dadd(-87.5, 14.5, 24, 8.5)
pt3dadd(-95.5, 16.5, 29.5, 10.3)
pt3dadd(-98.5, 18.5, 36.5, 12.5)
}
dend[2] {pt3dclear()
pt3dadd(-98.5, 18.5, 36.5, 12.5)
pt3dadd(-107, 16, 37.5, 5.9)
pt3dadd(-121.5, 20, 45.5, 4.8)
pt3dadd(-130, 23, 47, 5.3)
pt3dadd(-139, 26, 46.5, 6.7)
pt3dadd(-148.5, 28.5, 53, 4.8)
pt3dadd(-160.5, 28, 63, 5.5)
pt3dadd(-171, 28.5, 64.5, 5.8)
pt3dadd(-181, 29, 71, 5.9)
pt3dadd(-190, 30.5, 70, 5.3)
pt3dadd(-200.5, 33, 74, 5.5)
pt3dadd(-205.5, 34.5, 75, 4.8)
pt3dadd(-214.5, 36, 95, 5.1)
pt3dadd(-216.5, 36, 111.5, 5.4)
}
dend[3] {pt3dclear()
pt3dadd(-216.5, 36, 111.5, 5.4)
pt3dadd(-223.5, 42, 121, 3.7)
pt3dadd(-230.5, 44.5, 125, 3)
pt3dadd(-237.5, 49, 127, 3.2)
pt3dadd(-247.5, 51, 134, 3.9)
pt3dadd(-255.5, 57, 143.5, 4.4)
pt3dadd(-263.5, 60.5, 141.5, 5.4)
pt3dadd(-272.5, 59, 148.5, 4.1)
pt3dadd(-283.5, 62, 158, 4)
pt3dadd(-292, 66, 160, 3.4)
pt3dadd(-301, 67.5, 167, 4.1)
pt3dadd(-309, 70.5, 171.5, 5)
pt3dadd(-314, 70.5, 175, 4.5)
pt3dadd(-323, 68.5, 179, 3.6)
pt3dadd(-330, 74, 186, 3.4)
pt3dadd(-338.5, 70, 196, 3.5)
pt3dadd(-350.5, 70.5, 212, 2.7)
pt3dadd(-359.5, 72, 218, 2.8)
pt3dadd(-363.5, 72.5, 225, 2.5)
pt3dadd(-376, 72.5, 229, 3.4)
pt3dadd(-386, 74, 237, 2.5)
pt3dadd(-394, 70, 238.5, 3.2)
pt3dadd(-404.5, 70, 243, 3.4)
pt3dadd(-410.5, 65, 244.5, 3.4)
pt3dadd(-413.5, 55, 251.5, 3.4)
pt3dadd(-418.5, 49.5, 259.5, 2.2)
pt3dadd(-426, 44.5, 262.5, 3)
pt3dadd(-433.5, 47.5, 267, 2.3)
pt3dadd(-442, 41.5, 275, 2.8)
pt3dadd(-446.5, 36, 277, 2.2)
pt3dadd(-453.5, 32, 295.5, 2.1)
pt3dadd(-459, 22.5, 304.5, 1.7)
pt3dadd(-465, 18.5, 311, 2.5)
pt3dadd(-473.5, 16.5, 317.5, 1.8)
pt3dadd(-477.5, 15.5, 325, 1.4)
pt3dadd(-484.5, 12.5, 326, 3.2)
pt3dadd(-490, 7.5, 328, 2.7)
pt3dadd(-501.5, 8.5, 333, 2.2)
pt3dadd(-507.5, 4.5, 344, 2.1)
pt3dadd(-514.5, 0, 346, 3)
pt3dadd(-521, 3.5, 353, 2)
pt3dadd(-530, 0.5, 355.5, 1.6)
pt3dadd(-540, 0.5, 366.5, 2.5)
pt3dadd(-550.5, 1, 375, 1.4)
pt3dadd(-561.5, 0.5, 389.5, 2.3)
pt3dadd(-569, 2.5, 425, 2)
pt3dadd(-578, 6, 435, 2.2)
pt3dadd(-583.5, 11, 438.5, 1.7)
pt3dadd(-590.5, 8, 445.5, 2.7)
pt3dadd(-601, 7.5, 447, 1.5)
pt3dadd(-611, 6.5, 448.5, 1.8)
pt3dadd(-622.5, 4, 454.5, 1.8)
pt3dadd(-631, 2.5, 455.5, 1.8)
pt3dadd(-639, 5.5, 464, 1.7)
pt3dadd(-646.5, 2.5, 465.5, 1.3)
pt3dadd(-655.5, 0, 467.5, 1.6)
pt3dadd(-663, -4.5, 468.5, 1.2)
pt3dadd(-670.5, -8.5, 474, 1.7)
pt3dadd(-674, -9, 475, 1.8)
pt3dadd(-687.5, -10.5, 488, 1.9)
pt3dadd(-704.5, -5, 526, 1.6)
pt3dadd(-701, -3.5, 525, 1.5)
pt3dadd(-708, -8, 561.5, 1.2)
pt3dadd(-714.5, -11, 575, 1.4)
pt3dadd(-715, -6.5, 592.5, 1.6)
pt3dadd(-707.5, -1.5, 623.5, 1.8)
pt3dadd(-711, 6, 625, 1.3)
pt3dadd(-709, 15.5, 625, 1.8)
pt3dadd(-710.5, 24.5, 633, 1.5)
pt3dadd(-707, 31, 641, 1.5)
pt3dadd(-704.5, 39.5, 652, 0.7)
pt3dadd(-708, 46, 656.5, 0.8)
pt3dadd(-712.5, 51.5, 665, 1)
pt3dadd(-721.5, 54, 667.5, 2.5)
pt3dadd(-726.5, 60, 665, 1.1)
pt3dadd(-727.5, 61.5, 675, 1.1)
pt3dadd(-727.5, 63.5, 671, 1.3)
pt3dadd(-728.5, 73, 678.5, 1.7)
pt3dadd(-733, 81, 675, 1.5)
pt3dadd(-725.5, 78.5, 688.5, 1.1)
pt3dadd(-728.5, 78, 687, 1.2)
}
dend[4] {pt3dclear()
pt3dadd(-728.5, 78, 687, 1.2)
pt3dadd(-736, 82.5, 712, 1.3)
pt3dadd(-738.5, 88, 725, 0.8)
pt3dadd(-746, 92.5, 742, 1.1)
pt3dadd(-754, 96, 751, 1.8)
pt3dadd(-759.5, 100.5, 771.5, 0.9)
pt3dadd(-762, 106.5, 775, 1)
}
dend[5] {pt3dclear()
pt3dadd(-728.5, 78, 687, 1.2)
pt3dadd(-734.5, 71.5, 677, 0.8)
pt3dadd(-737, 69, 675, 0.8)
}
dend[6] {pt3dclear()
pt3dadd(-216.5, 36, 111.5, 5.4)
pt3dadd(-228.5, 37, 109.5, 4.8)
pt3dadd(-236, 39.5, 106, 4.5)
pt3dadd(-249, 40.5, 114.5, 3.5)
pt3dadd(-259.5, 42.5, 112, 4)
pt3dadd(-270, 41.5, 113.5, 4.6)
pt3dadd(-275, 39.5, 125, 5)
pt3dadd(-283, 41.5, 122, 5.7)
pt3dadd(-291, 44, 125, 6.9)
pt3dadd(-301, 47, 130.5, 3.2)
pt3dadd(-313, 47, 132, 3.8)
pt3dadd(-323.5, 48.5, 135.5, 5.7)
pt3dadd(-336, 50.5, 135, 5.1)
pt3dadd(-346.5, 52, 138, 5.3)
pt3dadd(-365.5, 55.5, 140.5, 3.4)
pt3dadd(-378, 55.5, 142, 3.8)
pt3dadd(-384.5, 57.5, 145, 5.6)
}
dend[7] {pt3dclear()
pt3dadd(-384.5, 57.5, 145, 5.6)
pt3dadd(-392, 53, 139, 1.7)
pt3dadd(-396.5, 47, 123.5, 1.3)
pt3dadd(-400, 39, 125, 1.7)
pt3dadd(-408.5, 36, 128.5, 1.3)
pt3dadd(-415, 31, 124.5, 1.6)
pt3dadd(-420.5, 26.5, 127, 1.3)
pt3dadd(-426, 20.5, 125, 1.4)
pt3dadd(-436, 19.5, 122.5, 2)
pt3dadd(-442, 23.5, 120.5, 1)
pt3dadd(-449.5, 27, 124, 2.7)
pt3dadd(-456.5, 31.5, 109, 0.9)
pt3dadd(-464.5, 33.5, 98.5, 1)
pt3dadd(-469, 39, 81, 1)
pt3dadd(-470, 46, 75, 0.9)
pt3dadd(-463.5, 40.5, 60.5, 2.9)
pt3dadd(-466.5, 33, 56.5, 2.8)
pt3dadd(-462.5, 29, 25, 3)
pt3dadd(-469.5, 24.5, 14, 4)
pt3dadd(-460.5, 23.5, -16.5, 3.4)
pt3dadd(-452, 22.5, -25, 2.3)
pt3dadd(-447.5, 15.5, -55, 3.2)
pt3dadd(-456, 12, -75, 2.8)
pt3dadd(-465, 13.5, -76.5, 2.3)
pt3dadd(-472, 8.5, -88.5, 1.9)
pt3dadd(-475.5, 2, -105.5, 2.2)
pt3dadd(-480, -6.5, -106.5, 4.5)
pt3dadd(-481.5, -15, -111, 3.4)
pt3dadd(-484, -24.5, -116.5, 2.8)
pt3dadd(-484.5, -33, -125, 2.5)
pt3dadd(-486.5, -42, -138, 2.9)
pt3dadd(-493, -45.5, -149.5, 3.2)
pt3dadd(-496, -52.5, -168, 3)
pt3dadd(-500.5, -58.5, -175, 3)
pt3dadd(-504.5, -64.5, -180.5, 1.8)
pt3dadd(-509, -72.5, -177, 1.6)
pt3dadd(-520, -73.5, -194, 2.6)
pt3dadd(-528.5, -76.5, -195.5, 1.5)
pt3dadd(-535, -80, -201.5, 1.5)
pt3dadd(-537.5, -87.5, -207, 1.9)
pt3dadd(-541.5, -94.5, -217.5, 1.2)
pt3dadd(-542.5, -102, -225, 2.2)
pt3dadd(-547.5, -107, -234.5, 1.6)
pt3dadd(-553.5, -111, -235.5, 1.3)
pt3dadd(-559.5, -115.5, -241.5, 1.4)
pt3dadd(-563, -125.5, -243, 4.1)
pt3dadd(-567.5, -133, -244.5, 1.6)
pt3dadd(-576, -137, -259.5, 2.3)
pt3dadd(-580, -143, -269.5, 2)
pt3dadd(-582, -147.5, -275, 1.6)
}
dend[8] {pt3dclear()
pt3dadd(-384.5, 57.5, 145, 5.6)
pt3dadd(-395.5, 59, 145, 3.5)
pt3dadd(-405, 63, 145.5, 4.4)
pt3dadd(-413, 65.5, 143.5, 4.4)
}
dend[9] {pt3dclear()
pt3dadd(-413, 65.5, 143.5, 4.4)
pt3dadd(-420.5, 69, 145.5, 4.1)
pt3dadd(-433, 71, 148, 4.1)
pt3dadd(-441.5, 78, 152.5, 4.5)
pt3dadd(-455.5, 75, 152.5, 4.3)
}
}
proc shape3d_2() {
dend[9] { pt3dadd(-462.5, 70, 155, 2.8)
pt3dadd(-472.5, 63.5, 155, 3.7)
pt3dadd(-478, 59, 157.5, 3.4)
pt3dadd(-491, 53, 150, 3)
pt3dadd(-499.5, 48, 152, 2.3)
pt3dadd(-506, 44, 154, 4.1)
pt3dadd(-516.5, 41, 154.5, 3.5)
pt3dadd(-522.5, 35.5, 156.5, 3.5)
pt3dadd(-531, 32.5, 155, 4.1)
pt3dadd(-539.5, 30.5, 157, 4.3)
pt3dadd(-546.5, 26.5, 155.5, 2.7)
pt3dadd(-557.5, 26.5, 157.5, 2)
pt3dadd(-566.5, 23, 160, 3.4)
pt3dadd(-577, 19.5, 160, 2.5)
pt3dadd(-586.5, 16.5, 160.5, 2.5)
pt3dadd(-596.5, 15, 164.5, 2.6)
pt3dadd(-608, 14, 159, 2.2)
pt3dadd(-619, 13, 161, 3)
pt3dadd(-628, 11.5, 159.5, 2.7)
pt3dadd(-639.5, 13.5, 159.5, 2.6)
pt3dadd(-651, 14, 160, 2.8)
pt3dadd(-662, 14, 162, 1.8)
pt3dadd(-677.5, 12, 166.5, 2.6)
pt3dadd(-686, 10.5, 169, 2.4)
pt3dadd(-697.5, 7, 169, 2.9)
pt3dadd(-708, 6, 165.5, 1.9)
pt3dadd(-719.5, 5, 170, 3.4)
pt3dadd(-728.5, 1, 172, 1.5)
pt3dadd(-736.5, -1, 174.5, 2.2)
pt3dadd(-747, -5, 172.5, 2.8)
pt3dadd(-761, -5, 167, 2.3)
pt3dadd(-775.5, -4.5, 173.5, 1.9)
pt3dadd(-791.5, -4.5, 169.5, 2.7)
pt3dadd(-802, -7, 176, 2.7)
pt3dadd(-813.5, -5.5, 170.5, 2.6)
pt3dadd(-825, -5.5, 175, 2.4)
pt3dadd(-833, -9, 177, 3.2)
pt3dadd(-835.5, -11.5, 175, 3.1)
pt3dadd(-847.5, -9.5, 175.5, 3)
pt3dadd(-856, -11, 173.5, 2.2)
pt3dadd(-865.5, -11.5, 176.5, 2.1)
pt3dadd(-874.5, -10.5, 171, 1.7)
pt3dadd(-886.5, -11, 167, 1.7)
pt3dadd(-896, -14, 166.5, 1.2)
pt3dadd(-903.5, -17, 172, 1.8)
pt3dadd(-912.5, -18, 175, 1.4)
pt3dadd(-917.5, -12.5, 173.5, 2.6)
pt3dadd(-926, -9, 177.5, 2.6)
pt3dadd(-937.5, -11.5, 222.5, 2.3)
pt3dadd(-942.5, -9.5, 225, 2.2)
pt3dadd(-949.5, -12.5, 228, 1.5)
pt3dadd(-956.5, -15.5, 242, 1.2)
pt3dadd(-967.5, -15.5, 251.5, 1.5)
pt3dadd(-977, -14.5, 277.5, 1.9)
pt3dadd(-979, -12, 275, 2.2)
pt3dadd(-987, -10, 278.5, 1.6)
pt3dadd(-995.5, -7.5, 286, 3)
pt3dadd(-998, -15.5, 293.5, 2.2)
pt3dadd(-1005, -20, 308, 1.9)
pt3dadd(-1012, -26, 317, 1.8)
pt3dadd(-1022, -28, 325, 2.5)
pt3dadd(-1029, -31.5, 330, 1.5)
pt3dadd(-1038.5, -42.5, 341.5, 0.8)
pt3dadd(-1044, -48.5, 347, 1.7)
pt3dadd(-1048.5, -54.5, 356.5, 1.1)
pt3dadd(-1058.5, -55, 362.5, 1.2)
pt3dadd(-1072, -57.5, 375, 1.9)
pt3dadd(-1078.5, -63, 373.5, 1.1)
pt3dadd(-1081, -55, 408, 1.2)
pt3dadd(-1087, -50.5, 420.5, 1.3)
pt3dadd(-1093.5, -47.5, 425, 1.4)
pt3dadd(-1098.5, -41.5, 479, 0.9)
pt3dadd(-1106.5, -44, 477.5, 1)
pt3dadd(-1117.5, -43, 478, 0.8)
pt3dadd(-1126, -44.5, 470.5, 0.9)
pt3dadd(-1137, -46, 475, 1.5)
}
dend[10] {pt3dclear()
pt3dadd(-413, 65.5, 143.5, 4.4)
pt3dadd(-419, 73, 152.5, 3.1)
pt3dadd(-424.5, 76.5, 161.5, 4.1)
}
dend[11] {pt3dclear()
pt3dadd(-424.5, 76.5, 161.5, 4.1)
pt3dadd(-431, 82, 166.5, 3.1)
pt3dadd(-433.5, 89.5, 165, 3.6)
pt3dadd(-439, 95.5, 169, 2.7)
pt3dadd(-444, 103.5, 167, 2.1)
pt3dadd(-446.5, 111.5, 172, 3.2)
pt3dadd(-449.5, 118.5, 179, 2.3)
pt3dadd(-454, 126, 180, 2.4)
pt3dadd(-459, 133, 183.5, 2.8)
pt3dadd(-464.5, 140, 191, 2.5)
pt3dadd(-468.5, 146.5, 186, 2.1)
pt3dadd(-474, 154, 193.5, 2.5)
pt3dadd(-477.5, 165, 197, 2.6)
pt3dadd(-486, 182, 195.5, 2.2)
pt3dadd(-489, 189.5, 202, 2.4)
pt3dadd(-492, 197.5, 202.5, 2.7)
pt3dadd(-494.5, 205, 203, 2)
pt3dadd(-499, 211, 206, 1.4)
pt3dadd(-506.5, 217, 202, 1.6)
pt3dadd(-513.5, 223, 206, 3.1)
pt3dadd(-521.5, 228.5, 204, 2.2)
pt3dadd(-529.5, 231.5, 210, 1.9)
pt3dadd(-537.5, 237, 213.5, 1.6)
pt3dadd(-544, 243, 214.5, 1.5)
pt3dadd(-551, 249.5, 215.5, 2.1)
pt3dadd(-558, 255.5, 224.5, 3.6)
pt3dadd(-560, 256, 224.5, 5.9)
}
dend[12] {pt3dclear()
pt3dadd(-560, 256, 224.5, 5.9)
pt3dadd(-571, 257.5, 227.5, 1.3)
pt3dadd(-582, 258.5, 226, 1.2)
pt3dadd(-591.5, 260, 226, 0.9)
pt3dadd(-601.5, 264, 226.5, 0.8)
pt3dadd(-613.5, 264.5, 230, 1.3)
pt3dadd(-623, 267, 233.5, 1)
pt3dadd(-631.5, 270, 231, 1)
pt3dadd(-641.5, 272, 231.5, 1)
pt3dadd(-650, 273.5, 234.5, 1)
pt3dadd(-660, 277.5, 232.5, 1.1)
pt3dadd(-670.5, 278.5, 233, 1.2)
pt3dadd(-680, 279, 233, 1.2)
pt3dadd(-687.5, 281.5, 236.5, 1.1)
pt3dadd(-697.5, 284, 239.5, 0.8)
pt3dadd(-707, 286, 242.5, 2.6)
pt3dadd(-715.5, 287.5, 243, 1)
pt3dadd(-726.5, 288.5, 236, 0.9)
pt3dadd(-737, 290, 244.5, 1.1)
pt3dadd(-748, 290.5, 247.5, 0.9)
pt3dadd(-755, 294, 243.5, 1.1)
}
dend[13] {pt3dclear()
pt3dadd(-560, 256, 224.5, 5.9)
pt3dadd(-565, 264.5, 220, 1.8)
pt3dadd(-570.5, 269.5, 220.5, 2)
pt3dadd(-575.5, 278.5, 223, 1.9)
pt3dadd(-578.5, 285.5, 223.5, 1.5)
pt3dadd(-580, 296.5, 224, 1.8)
pt3dadd(-578.5, 306, 227.5, 1.2)
pt3dadd(-582.5, 315, 227.5, 1.7)
pt3dadd(-583.5, 324.5, 225.5, 1.8)
pt3dadd(-586, 333, 223.5, 1.6)
pt3dadd(-589, 340, 221, 1.2)
pt3dadd(-594, 345, 227, 1)
pt3dadd(-600.5, 350.5, 224.5, 1.3)
pt3dadd(-611, 353.5, 230, 1.8)
pt3dadd(-621.5, 357, 225.5, 2)
pt3dadd(-630.5, 360.5, 233.5, 1.8)
pt3dadd(-638.5, 364, 229, 2)
pt3dadd(-645.5, 368.5, 229.5, 1.1)
pt3dadd(-653.5, 375, 234.5, 1.1)
pt3dadd(-660.5, 380.5, 232.5, 1.2)
pt3dadd(-670, 387.5, 235.5, 1.7)
pt3dadd(-676.5, 391.5, 233.5, 1.4)
pt3dadd(-686, 395, 239.5, 2)
pt3dadd(-693, 399, 242, 1.1)
pt3dadd(-700, 402.5, 242.5, 0.9)
pt3dadd(-707, 407, 245.5, 0.9)
pt3dadd(-711, 413, 243, 1.1)
pt3dadd(-712, 417, 243.5, 1)
pt3dadd(-718, 424.5, 247, 2.2)
pt3dadd(-719.5, 427, 243.5, 2.2)
pt3dadd(-725.5, 432.5, 249.5, 1.4)
pt3dadd(-731.5, 436.5, 249.5, 1.5)
pt3dadd(-740.5, 438, 248, 1.5)
pt3dadd(-746, 443.5, 246, 1.5)
pt3dadd(-753, 448, 248, 1.5)
pt3dadd(-760.5, 452, 244.5, 1.5)
pt3dadd(-767, 457, 246.5, 1.6)
pt3dadd(-774, 462.5, 239, 0.7)
pt3dadd(-778.5, 469.5, 239, 0.7)
pt3dadd(-783.5, 471.5, 243.5, 0.9)
}
dend[14] {pt3dclear()
pt3dadd(-424.5, 76.5, 161.5, 4.1)
pt3dadd(-432.5, 73, 143.5, 1.1)
}
dend[15] {pt3dclear()
pt3dadd(-98.5, 18.5, 36.5, 12.5)
pt3dadd(-102.5, 27, 44.5, 7.4)
pt3dadd(-105, 36, 47, 8.1)
pt3dadd(-111.5, 40, 63.5, 9.3)
pt3dadd(-119.5, 45.5, 67.5, 9.3)
pt3dadd(-122, 51.5, 75, 9.5)
pt3dadd(-127, 61, 98, 9.2)
pt3dadd(-133, 67.5, 102, 6)
pt3dadd(-140.5, 73, 121.5, 8.4)
pt3dadd(-144.5, 79, 125, 8.1)
pt3dadd(-149, 89, 131.5, 7.7)
pt3dadd(-152, 99.5, 136, 8.1)
pt3dadd(-156.5, 107.5, 144, 7.9)
pt3dadd(-163, 116, 151, 7.6)
pt3dadd(-171.5, 119.5, 158, 8.4)
pt3dadd(-180.5, 123.5, 158, 9.1)
}
dend[16] {pt3dclear()
pt3dadd(-180.5, 123.5, 158, 9.1)
pt3dadd(-181, 135, 162.5, 4.1)
pt3dadd(-182, 145, 164, 4)
pt3dadd(-191.5, 148, 175, 3.7)
pt3dadd(-199.5, 152, 189, 3.7)
pt3dadd(-206, 156, 197.5, 4.1)
pt3dadd(-210.5, 164.5, 210.5, 4.1)
pt3dadd(-211.5, 172, 225, 3.7)
pt3dadd(-215.5, 179.5, 229, 4.7)
pt3dadd(-219.5, 187, 239, 3.5)
pt3dadd(-222, 196.5, 246.5, 3.4)
pt3dadd(-228.5, 201, 252.5, 5.1)
pt3dadd(-233, 206.5, 255, 3.4)
pt3dadd(-240.5, 211, 262.5, 3.7)
pt3dadd(-246.5, 218.5, 269.5, 3.4)
}
}
proc shape3d_3() {
dend[16] { pt3dadd(-253, 224.5, 274, 3.4)
pt3dadd(-258.5, 226, 275, 3.1)
pt3dadd(-265, 230.5, 278.5, 2.7)
pt3dadd(-271.5, 234.5, 284, 2.3)
pt3dadd(-276, 242, 288.5, 2.4)
pt3dadd(-279.5, 250.5, 293, 2.2)
pt3dadd(-286, 255, 304.5, 2.2)
pt3dadd(-292, 263, 308, 2.8)
pt3dadd(-297.5, 271.5, 321.5, 2.6)
pt3dadd(-299.5, 273.5, 325, 2.6)
pt3dadd(-303.5, 280.5, 329.5, 2.8)
pt3dadd(-309, 293, 331, 3)
pt3dadd(-314.5, 297.5, 335, 2.2)
pt3dadd(-317.5, 304.5, 350, 2.6)
pt3dadd(-320, 312.5, 351.5, 1.9)
pt3dadd(-324, 320.5, 356, 2.6)
pt3dadd(-329, 326, 361, 2.2)
pt3dadd(-336, 330.5, 375, 2.4)
pt3dadd(-344.5, 335.5, 384.5, 2.8)
pt3dadd(-348.5, 343, 395, 1.3)
pt3dadd(-351.5, 352, 403.5, 1.8)
pt3dadd(-360, 355.5, 414, 1.5)
pt3dadd(-364, 363, 425, 1.6)
pt3dadd(-365.5, 372, 432, 2.1)
pt3dadd(-368.5, 379, 436.5, 2.5)
pt3dadd(-372, 386.5, 439.5, 2.3)
pt3dadd(-369, 394.5, 445, 1.6)
pt3dadd(-375, 400.5, 452.5, 2.3)
pt3dadd(-383, 397, 460, 1.8)
pt3dadd(-385.5, 405, 462.5, 1.8)
pt3dadd(-391.5, 410.5, 468, 1.4)
pt3dadd(-396, 415, 475, 1.9)
pt3dadd(-402, 420.5, 479.5, 1.8)
pt3dadd(-409, 427.5, 490.5, 2)
pt3dadd(-416, 431.5, 497, 2.6)
pt3dadd(-426, 430.5, 502.5, 1.6)
pt3dadd(-429, 438.5, 505, 2.2)
pt3dadd(-433.5, 445, 520, 1.3)
pt3dadd(-436.5, 444.5, 525, 1.8)
pt3dadd(-439, 455.5, 529, 2.5)
pt3dadd(-444.5, 462.5, 534.5, 2.3)
pt3dadd(-444, 472.5, 556, 2.1)
pt3dadd(-450.5, 476, 558.5, 1.6)
pt3dadd(-456, 483, 561, 2.2)
pt3dadd(-467, 490, 572, 1.7)
pt3dadd(-475, 488.5, 575, 1.9)
pt3dadd(-483, 492.5, 580.5, 1.8)
pt3dadd(-490, 486.5, 587, 1.7)
pt3dadd(-497.5, 490.5, 595, 1.9)
pt3dadd(-503.5, 486.5, 600, 1.9)
pt3dadd(-512, 484, 611.5, 1.6)
pt3dadd(-518.5, 489, 608.5, 1.5)
pt3dadd(-525, 493.5, 620, 1.7)
pt3dadd(-534, 495.5, 629.5, 1.5)
pt3dadd(-541, 496, 625, 1.9)
pt3dadd(-552, 494.5, 630.5, 1.8)
pt3dadd(-561.5, 497, 641, 1.8)
pt3dadd(-572, 497.5, 642, 1.5)
pt3dadd(-577.5, 502, 665.5, 1.7)
pt3dadd(-572, 508, 675, 1.3)
pt3dadd(-571.5, 519, 682.5, 1.9)
pt3dadd(-574, 526.5, 699, 2)
pt3dadd(-578, 534.5, 701.5, 1.3)
pt3dadd(-584.5, 546.5, 717.5, 1.8)
pt3dadd(-591, 550, 719.5, 1.9)
pt3dadd(-591, 552.5, 725, 2)
pt3dadd(-597, 559, 736, 2)
pt3dadd(-608.5, 561, 745, 1.2)
pt3dadd(-619, 561, 749, 1.9)
pt3dadd(-620.5, 569.5, 751.5, 1.6)
pt3dadd(-628, 574.5, 754.5, 2)
pt3dadd(-633, 581.5, 762.5, 1.5)
pt3dadd(-634.5, 590, 765.5, 1.4)
pt3dadd(-635, 592, 775, 1.8)
pt3dadd(-639, 599.5, 781, 1.2)
pt3dadd(-639, 609.5, 775, 1.4)
pt3dadd(-641.5, 619, 786, 1)
pt3dadd(-647, 625.5, 787, 1)
pt3dadd(-652, 635, 788.5, 1.1)
pt3dadd(-656, 642.5, 794, 2.4)
pt3dadd(-657.5, 651, 791, 1.1)
pt3dadd(-661.5, 658, 801.5, 1.8)
pt3dadd(-667, 664, 802.5, 1.6)
pt3dadd(-674.5, 667.5, 813, 1.7)
pt3dadd(-680, 673.5, 814, 1.4)
pt3dadd(-682.5, 682, 824.5, 3)
pt3dadd(-683, 684, 825, 2.7)
}
dend[17] {pt3dclear()
pt3dadd(-180.5, 123.5, 158, 9.1)
pt3dadd(-190, 127.5, 175, 5.9)
pt3dadd(-201.5, 128, 189, 5.5)
pt3dadd(-209, 131, 208, 5.8)
pt3dadd(-213.5, 136.5, 215, 5.3)
pt3dadd(-208.5, 138, 225, 5.3)
pt3dadd(-213, 144, 234, 8.2)
pt3dadd(-214.5, 154.5, 241.5, 5.4)
pt3dadd(-220, 159, 249.5, 6.1)
}
dend[18] {pt3dclear()
pt3dadd(-220, 159, 249.5, 6.1)
pt3dadd(-226.5, 160.5, 251.5, 5.5)
}
dend[19] {pt3dclear()
pt3dadd(-226.5, 160.5, 251.5, 5.5)
pt3dadd(-228, 170.5, 252, 2.5)
pt3dadd(-227, 180.5, 256, 1.9)
pt3dadd(-232, 188.5, 255.5, 1.4)
pt3dadd(-237.5, 194.5, 261, 1.3)
pt3dadd(-239, 204, 260.5, 1.3)
pt3dadd(-244, 212.5, 260.5, 1.3)
pt3dadd(-250, 216.5, 261, 1.3)
pt3dadd(-257, 223.5, 269.5, 1.3)
pt3dadd(-260, 230.5, 269, 1.3)
pt3dadd(-262.5, 241.5, 272, 1.6)
pt3dadd(-262.5, 250.5, 275, 2.2)
pt3dadd(-264.5, 264, 276.5, 1.8)
pt3dadd(-268.5, 270.5, 279, 2)
pt3dadd(-270.5, 280.5, 283.5, 1.9)
pt3dadd(-272.5, 289, 278, 1.4)
pt3dadd(-277, 295.5, 279, 1.4)
pt3dadd(-282, 304.5, 283.5, 1.1)
pt3dadd(-285, 312.5, 284.5, 1.4)
pt3dadd(-287.5, 322.5, 288.5, 1.2)
pt3dadd(-291, 330, 293, 1.8)
pt3dadd(-291, 338.5, 294, 1.9)
}
dend[20] {pt3dclear()
pt3dadd(-291, 338.5, 294, 1.9)
pt3dadd(-290, 349, 283, 1.2)
pt3dadd(-287, 357, 280.5, 1.2)
pt3dadd(-287, 362.5, 275, 1.1)
pt3dadd(-289.5, 371, 279, 1.6)
pt3dadd(-294, 378.5, 291, 1.3)
pt3dadd(-297.5, 385, 295, 1.4)
pt3dadd(-300.5, 393.5, 298.5, 1.4)
pt3dadd(-302, 402, 312, 1.1)
pt3dadd(-306.5, 411, 325, 1)
pt3dadd(-309.5, 419, 335, 1.8)
pt3dadd(-308.5, 429.5, 336.5, 2.1)
pt3dadd(-310.5, 437.5, 344.5, 1.2)
pt3dadd(-316, 442.5, 350, 1.2)
pt3dadd(-319.5, 449, 360, 1.4)
pt3dadd(-325, 454.5, 361.5, 1)
pt3dadd(-330.5, 459.5, 368.5, 0.9)
pt3dadd(-336.5, 465, 369.5, 1.8)
pt3dadd(-341.5, 470.5, 371, 1.3)
pt3dadd(-343.5, 472, 375, 1.3)
pt3dadd(-349.5, 476, 387.5, 1.1)
pt3dadd(-356, 481.5, 396, 1)
pt3dadd(-358.5, 489.5, 402, 1)
pt3dadd(-363, 495, 410, 1.3)
pt3dadd(-367.5, 502, 414.5, 1)
pt3dadd(-372.5, 507, 425, 0.8)
pt3dadd(-377.5, 512, 432, 0.9)
pt3dadd(-384.5, 516.5, 435.5, 0.7)
pt3dadd(-387.5, 524, 440.5, 0.6)
pt3dadd(-392.5, 530.5, 451.5, 0.7)
}
dend[21] {pt3dclear()
pt3dadd(-392.5, 530.5, 451.5, 0.7)
pt3dadd(-395, 539, 460.5, 1.4)
pt3dadd(-401.5, 539, 475, 1.1)
}
dend[22] {pt3dclear()
pt3dadd(-392.5, 530.5, 451.5, 0.7)
pt3dadd(-390, 540, 460, 1.2)
pt3dadd(-395, 547, 477.5, 1.1)
pt3dadd(-398.5, 555, 478.5, 1.1)
pt3dadd(-400.5, 563, 483, 0.7)
pt3dadd(-403, 573, 492, 0.9)
pt3dadd(-410.5, 576.5, 498, 0.9)
pt3dadd(-412, 578, 501.5, 0.9)
}
dend[23] {pt3dclear()
pt3dadd(-291, 338.5, 294, 1.9)
pt3dadd(-297, 342.5, 286.5, 1.4)
pt3dadd(-298, 351.5, 286, 1.3)
pt3dadd(-301, 360, 283.5, 1.4)
pt3dadd(-310.5, 361.5, 285, 1.6)
pt3dadd(-320, 365.5, 284.5, 1)
pt3dadd(-328, 369, 284, 1.2)
pt3dadd(-338.5, 371, 285, 1.3)
pt3dadd(-345.5, 376.5, 283, 0.8)
pt3dadd(-353, 381, 282.5, 0.9)
pt3dadd(-357.5, 387.5, 282.5, 1.2)
pt3dadd(-365, 393, 281.5, 1.1)
pt3dadd(-372.5, 399, 281, 0.9)
pt3dadd(-381, 401.5, 281, 0.9)
pt3dadd(-387, 407.5, 280.5, 0.9)
pt3dadd(-392, 413, 278, 0.9)
pt3dadd(-397.5, 417.5, 279.5, 0.9)
pt3dadd(-404, 421, 279.5, 1)
pt3dadd(-411, 424.5, 280.5, 0.8)
pt3dadd(-414.5, 431, 280, 1.1)
pt3dadd(-420.5, 437.5, 280, 0.9)
pt3dadd(-427, 442, 281.5, 1.1)
pt3dadd(-435, 446.5, 279, 1.2)
pt3dadd(-441.5, 452.5, 277, 1.1)
pt3dadd(-448, 459.5, 276.5, 0.8)
pt3dadd(-452, 465.5, 276, 1)
pt3dadd(-457, 471, 276, 1)
pt3dadd(-460.5, 480.5, 275.5, 1.1)
pt3dadd(-464.5, 486.5, 276.5, 1)
pt3dadd(-467.5, 494, 276, 0.8)
pt3dadd(-472.5, 499, 276, 0.8)
pt3dadd(-480.5, 503.5, 274, 1.1)
pt3dadd(-489.5, 506.5, 273.5, 0.6)
pt3dadd(-495, 511, 274.5, 0.7)
pt3dadd(-500.5, 515.5, 274.5, 0.9)
pt3dadd(-505.5, 520.5, 274, 1.1)
pt3dadd(-513.5, 526.5, 273.5, 0.8)
pt3dadd(-519, 531.5, 273.5, 0.9)
pt3dadd(-523, 539, 271.5, 0.9)
}
}
proc shape3d_4() {
dend[23] { pt3dadd(-523.5, 541, 275, 0.9)
}
dend[24] {pt3dclear()
pt3dadd(-226.5, 160.5, 251.5, 5.5)
pt3dadd(-237, 161, 255.5, 3)
pt3dadd(-248, 162, 262.5, 3.4)
pt3dadd(-257, 157.5, 262, 4.1)
pt3dadd(-273, 160, 269, 3)
pt3dadd(-285, 159, 275, 2.1)
pt3dadd(-294, 161, 282.5, 4)
pt3dadd(-304, 165, 289, 3.7)
pt3dadd(-312, 167, 294, 2.5)
pt3dadd(-319, 163.5, 300, 3.7)
pt3dadd(-324, 165.5, 302, 4.2)
}
dend[25] {pt3dclear()
pt3dadd(-324, 165.5, 302, 4.2)
pt3dadd(-330.5, 162, 299, 3)
pt3dadd(-341.5, 160, 296.5, 2.2)
pt3dadd(-347, 155.5, 299, 2.8)
pt3dadd(-355.5, 152, 297.5, 2.3)
pt3dadd(-365.5, 152.5, 296.5, 1.4)
pt3dadd(-374.5, 155.5, 293, 1.2)
pt3dadd(-384, 157, 290.5, 1.1)
pt3dadd(-393, 159.5, 289.5, 1.1)
pt3dadd(-402, 163, 288, 1)
pt3dadd(-415, 164, 282.5, 1.1)
pt3dadd(-426, 165, 283, 1.3)
pt3dadd(-432, 169.5, 282.5, 1)
pt3dadd(-441, 170.5, 281, 1.2)
pt3dadd(-449.5, 173, 274.5, 0.8)
pt3dadd(-460.5, 174, 277, 1.3)
pt3dadd(-471.5, 174, 278, 1.1)
pt3dadd(-481, 175, 274.5, 0.5)
pt3dadd(-483, 185, 279, 1.4)
pt3dadd(-487, 186.5, 275, 0.5)
pt3dadd(-492.5, 191.5, 280, 0.7)
pt3dadd(-503, 195.5, 294.5, 0.9)
pt3dadd(-509, 200, 310, 1)
pt3dadd(-516.5, 203, 314, 0.7)
pt3dadd(-525.5, 202, 318, 0.8)
pt3dadd(-532, 206, 322.5, 0.8)
pt3dadd(-537, 205.5, 325, 0.8)
}
dend[26] {pt3dclear()
pt3dadd(-324, 165.5, 302, 4.2)
pt3dadd(-325.5, 167, 325, 3.1)
pt3dadd(-333.5, 169.5, 340, 4.6)
}
dend[27] {pt3dclear()
pt3dadd(-333.5, 169.5, 340, 4.6)
pt3dadd(-343.5, 171, 338.5, 1.6)
pt3dadd(-349.5, 177, 342.5, 1.6)
pt3dadd(-353, 184, 344, 1.3)
pt3dadd(-360.5, 187.5, 345, 1.5)
pt3dadd(-365, 193.5, 352, 1.5)
pt3dadd(-361.5, 200, 356.5, 1.9)
pt3dadd(-362, 209.5, 363.5, 1.5)
pt3dadd(-366.5, 218.5, 367.5, 1.4)
pt3dadd(-372, 219, 375, 1.2)
pt3dadd(-377.5, 223.5, 391.5, 1.5)
pt3dadd(-382, 230.5, 410.5, 1.6)
pt3dadd(-387, 237, 419, 0.9)
pt3dadd(-394.5, 240, 426.5, 1.4)
pt3dadd(-396, 241, 425, 1.4)
pt3dadd(-407, 243, 431.5, 1.5)
pt3dadd(-411.5, 250, 437.5, 1.4)
pt3dadd(-421.5, 249, 445, 1.7)
pt3dadd(-430, 250.5, 451, 1.5)
pt3dadd(-439, 252, 457, 1.3)
pt3dadd(-444.5, 256.5, 469.5, 1)
pt3dadd(-452.5, 261, 475, 1.4)
pt3dadd(-461.5, 262, 477.5, 0.7)
pt3dadd(-470, 267, 483, 0.7)
pt3dadd(-473, 272.5, 475, 0.6)
}
dend[28] {pt3dclear()
pt3dadd(-333.5, 169.5, 340, 4.6)
pt3dadd(-340.5, 175.5, 344, 3.3)
pt3dadd(-349, 178, 348.5, 3.8)
pt3dadd(-358, 180, 353, 2.8)
pt3dadd(-363, 185, 354, 2.2)
pt3dadd(-369.5, 181.5, 363.5, 2.8)
pt3dadd(-375, 186, 364.5, 2.6)
pt3dadd(-379.5, 187.5, 375, 2.7)
pt3dadd(-391, 187.5, 388, 2.2)
pt3dadd(-400, 188.5, 393.5, 2.1)
pt3dadd(-409.5, 190, 407.5, 2.6)
pt3dadd(-418.5, 192.5, 416, 2.2)
pt3dadd(-428, 189, 425, 3.1)
pt3dadd(-437.5, 193, 430, 2.3)
pt3dadd(-444, 187.5, 432.5, 2.1)
pt3dadd(-451.5, 192, 444.5, 1.5)
pt3dadd(-456, 185, 453.5, 2.5)
pt3dadd(-466, 184.5, 456, 1.3)
pt3dadd(-471.5, 177.5, 464, 1.8)
pt3dadd(-473, 184.5, 475, 2)
pt3dadd(-482, 188, 476, 2.2)
pt3dadd(-486, 194.5, 508, 2.2)
pt3dadd(-492.5, 194.5, 525, 2.6)
}
dend[29] {pt3dclear()
pt3dadd(-220, 159, 249.5, 6.1)
pt3dadd(-226.5, 155.5, 252, 5.9)
pt3dadd(-230.5, 154.5, 252.5, 6.3)
}
dend[30] {pt3dclear()
pt3dadd(-230.5, 154.5, 252.5, 6.3)
pt3dadd(-241, 154, 275, 2.4)
pt3dadd(-252, 153.5, 285.5, 4.2)
pt3dadd(-256.5, 159.5, 292, 3.5)
pt3dadd(-264.5, 162.5, 299, 3.4)
pt3dadd(-274.5, 167, 305, 3.5)
pt3dadd(-281, 173, 310, 3)
pt3dadd(-287, 182, 314.5, 2.9)
pt3dadd(-290.5, 187.5, 325, 3.5)
pt3dadd(-294.5, 193.5, 326, 3.5)
pt3dadd(-298.5, 202, 327.5, 4.5)
pt3dadd(-304.5, 208, 332.5, 5)
pt3dadd(-312, 213, 337, 3.3)
pt3dadd(-311.5, 222.5, 347.5, 2.5)
pt3dadd(-319, 227, 352, 3)
pt3dadd(-320.5, 232, 356, 5)
}
dend[31] {pt3dclear()
pt3dadd(-320.5, 232, 356, 5)
pt3dadd(-314, 238.5, 375, 1.6)
pt3dadd(-309, 245, 384, 1.5)
pt3dadd(-305, 252.5, 385.5, 1.4)
pt3dadd(-299, 257.5, 391, 1.3)
pt3dadd(-295.5, 266, 405.5, 1.6)
pt3dadd(-288.5, 270.5, 407, 1.2)
pt3dadd(-283.5, 276.5, 411, 1.1)
pt3dadd(-278, 281, 416, 1.1)
pt3dadd(-274, 287.5, 417.5, 1.5)
pt3dadd(-269, 294.5, 419, 1)
pt3dadd(-260.5, 299.5, 425, 1.5)
pt3dadd(-256.5, 305.5, 428, 1.2)
pt3dadd(-252, 311.5, 430, 0.9)
pt3dadd(-247, 318.5, 434, 1)
pt3dadd(-241, 322.5, 438, 1)
pt3dadd(-233, 325.5, 438, 1)
pt3dadd(-226.5, 329.5, 439.5, 1.4)
pt3dadd(-221.5, 334.5, 441, 1)
pt3dadd(-217.5, 341.5, 444.5, 1.2)
pt3dadd(-215.5, 349.5, 448.5, 0.8)
pt3dadd(-212, 356, 452, 1.2)
pt3dadd(-205.5, 362, 452, 0.9)
pt3dadd(-201, 368, 453.5, 0.7)
pt3dadd(-203.5, 375.5, 463, 0.6)
pt3dadd(-207, 382.5, 465, 1)
pt3dadd(-199.5, 385, 475, 0.8)
pt3dadd(-190, 388.5, 483.5, 0.5)
pt3dadd(-184, 393, 486, 0.7)
pt3dadd(-179, 398, 504.5, 0.6)
pt3dadd(-176.5, 405.5, 513, 0.3)
pt3dadd(-171, 411, 525, 0.5)
pt3dadd(-164, 415.5, 529, 0.6)
pt3dadd(-160, 422, 532.5, 0.6)
pt3dadd(-153, 427, 539.5, 0.5)
pt3dadd(-143.5, 431, 541.5, 0.6)
pt3dadd(-136.5, 434.5, 542, 0.6)
pt3dadd(-127, 436, 553, 0.8)
pt3dadd(-118, 439, 558.5, 0.7)
pt3dadd(-108, 439, 559, 0.6)
pt3dadd(-102, 443, 560.5, 0.5)
pt3dadd(-95, 446.5, 567.5, 0.5)
pt3dadd(-85, 447, 575, 0.8)
}
dend[32] {pt3dclear()
pt3dadd(-320.5, 232, 356, 5)
pt3dadd(-326, 236.5, 380, 3)
pt3dadd(-329.5, 236.5, 375, 2.4)
pt3dadd(-338.5, 237.5, 392, 2.7)
pt3dadd(-342, 244.5, 409.5, 2.3)
pt3dadd(-350.5, 247.5, 424.5, 2.6)
pt3dadd(-354.5, 254, 425, 2.1)
pt3dadd(-359.5, 260, 429, 3.3)
pt3dadd(-364, 265.5, 435, 2.3)
pt3dadd(-372.5, 267.5, 437, 2.3)
pt3dadd(-381, 271, 441.5, 2.3)
pt3dadd(-384, 279.5, 451, 2.5)
pt3dadd(-392, 285.5, 454, 2.7)
}
dend[33] {pt3dclear()
pt3dadd(-392, 285.5, 454, 2.7)
pt3dadd(-397.5, 285.5, 475, 2.1)
}
dend[34] {pt3dclear()
pt3dadd(-392, 285.5, 454, 2.7)
pt3dadd(-395.5, 295, 462.5, 2.8)
pt3dadd(-403.5, 298.5, 467.5, 2.5)
pt3dadd(-411, 302.5, 475, 1.8)
pt3dadd(-419, 307.5, 483.5, 3.2)
pt3dadd(-426.5, 313.5, 486, 2.5)
pt3dadd(-426.5, 324.5, 489, 2.6)
pt3dadd(-434.5, 326.5, 509, 2.3)
pt3dadd(-439, 333, 515.5, 1.7)
pt3dadd(-439.5, 335.5, 525, 1.9)
pt3dadd(-444.5, 340.5, 524, 2.5)
pt3dadd(-449.5, 347.5, 526.5, 2.2)
pt3dadd(-455.5, 352, 534, 2.8)
pt3dadd(-458, 360, 542, 2.8)
pt3dadd(-465, 365, 549.5, 2)
pt3dadd(-469.5, 372, 553.5, 2)
pt3dadd(-475, 377, 556, 1.8)
pt3dadd(-476, 386, 564.5, 2.5)
pt3dadd(-479, 390, 575, 2.1)
pt3dadd(-470.5, 392, 582.5, 1.8)
pt3dadd(-477.5, 396, 587, 1.2)
pt3dadd(-480, 405, 618, 1.8)
pt3dadd(-490, 405.5, 621.5, 1.2)
pt3dadd(-498, 405.5, 625, 2.7)
pt3dadd(-503, 411.5, 635.5, 1.6)
pt3dadd(-507.5, 417.5, 663, 1.3)
pt3dadd(-513, 417, 675, 1.6)
pt3dadd(-518, 422.5, 682, 1.7)
pt3dadd(-522, 430, 700.5, 1.3)
pt3dadd(-529, 433, 707.5, 1.8)
pt3dadd(-539, 434, 719, 1.1)
pt3dadd(-538.5, 442, 725, 1.6)
pt3dadd(-541.5, 449.5, 732, 1.5)
}
}
proc shape3d_5() {
dend[34] { pt3dadd(-548, 454, 744.5, 1.6)
pt3dadd(-549, 458, 742.5, 1.9)
}
dend[35] {pt3dclear()
pt3dadd(-549, 458, 742.5, 1.9)
pt3dadd(-546.5, 461.5, 725, 2.5)
}
dend[36] {pt3dclear()
pt3dadd(-549, 458, 742.5, 1.9)
pt3dadd(-557, 461, 754.5, 1.5)
pt3dadd(-563, 465, 774, 1.4)
pt3dadd(-564, 465.5, 775, 1.6)
pt3dadd(-573, 469.5, 793, 1.3)
pt3dadd(-577.5, 476, 788.5, 1.4)
pt3dadd(-583.5, 481.5, 797.5, 2.9)
}
dend[37] {pt3dclear()
pt3dadd(-583.5, 481.5, 797.5, 2.9)
pt3dadd(-588, 480, 775, 0.7)
}
dend[38] {pt3dclear()
pt3dadd(-583.5, 481.5, 797.5, 2.9)
pt3dadd(-590, 486, 808.5, 1.2)
pt3dadd(-595, 492.5, 810, 1.3)
pt3dadd(-605, 492.5, 811.5, 1.2)
pt3dadd(-615.5, 491, 814, 2.3)
pt3dadd(-621, 485.5, 825.5, 2)
pt3dadd(-628.5, 482, 819, 1.4)
pt3dadd(-632.5, 483.5, 825, 1.3)
}
dend[39] {pt3dclear()
pt3dadd(-230.5, 154.5, 252.5, 6.3)
pt3dadd(-234, 146.5, 275, 4.1)
pt3dadd(-241.5, 143.5, 287, 5.9)
pt3dadd(-248.5, 139.5, 300.5, 5)
pt3dadd(-255, 134.5, 325, 5.4)
pt3dadd(-255.5, 120, 356, 5.5)
pt3dadd(-264, 117.5, 362.5, 4.4)
pt3dadd(-269, 123, 375, 4.6)
pt3dadd(-274, 128.5, 384.5, 3.4)
pt3dadd(-280, 132.5, 390, 4.5)
pt3dadd(-282.5, 124.5, 408.5, 4.1)
pt3dadd(-280.5, 133, 422, 3.5)
pt3dadd(-283, 141.5, 409, 2.7)
pt3dadd(-286, 149, 415, 3)
pt3dadd(-292, 153, 420.5, 2.3)
pt3dadd(-293, 151.5, 425, 2.5)
pt3dadd(-301.5, 146, 440.5, 3.4)
pt3dadd(-303.5, 137.5, 443.5, 3.1)
pt3dadd(-311, 133.5, 448.5, 2.8)
pt3dadd(-316.5, 129, 455.5, 1.5)
pt3dadd(-325.5, 128, 465, 2.8)
pt3dadd(-332, 124, 467.5, 2.5)
pt3dadd(-336, 132.5, 475, 3)
pt3dadd(-338, 141, 493, 2.2)
pt3dadd(-343.5, 147, 499.5, 2.3)
pt3dadd(-347.5, 154.5, 508, 1.9)
pt3dadd(-351, 158.5, 525, 2.5)
pt3dadd(-357, 162.5, 535.5, 3.7)
}
dend[40] {pt3dclear()
pt3dadd(-357, 162.5, 535.5, 3.7)
pt3dadd(-364.5, 167.5, 561, 1.9)
pt3dadd(-374, 168.5, 562, 2)
pt3dadd(-383, 171, 574, 1.8)
pt3dadd(-388.5, 176.5, 574, 2)
pt3dadd(-390.5, 176.5, 575, 2)
pt3dadd(-400.5, 177, 576, 1.4)
pt3dadd(-405, 183, 587, 2.3)
pt3dadd(-408.5, 191, 601, 1.8)
pt3dadd(-414.5, 189, 625, 2.3)
pt3dadd(-421.5, 194.5, 629, 2.1)
pt3dadd(-428, 200, 665.5, 1.8)
pt3dadd(-433, 201.5, 675, 1.8)
pt3dadd(-438, 206.5, 677, 2.2)
pt3dadd(-443.5, 213.5, 722.5, 1.9)
pt3dadd(-445.5, 217.5, 725, 1.4)
pt3dadd(-449.5, 224, 735.5, 1.9)
pt3dadd(-458.5, 222.5, 738, 1.7)
pt3dadd(-454, 216.5, 744, 1.8)
pt3dadd(-462.5, 220, 753.5, 1.8)
pt3dadd(-469, 216.5, 769, 1.5)
pt3dadd(-475, 212.5, 775, 2.2)
pt3dadd(-481.5, 217, 786, 1.3)
pt3dadd(-491, 216.5, 786.5, 1.7)
pt3dadd(-501, 214.5, 798.5, 1.5)
pt3dadd(-509.5, 213, 801, 1.1)
pt3dadd(-516.5, 216, 818.5, 1)
pt3dadd(-519.5, 218.5, 825, 1.1)
}
dend[41] {pt3dclear()
pt3dadd(-357, 162.5, 535.5, 3.7)
pt3dadd(-364.5, 160, 553, 0.9)
pt3dadd(-370.5, 154, 569.5, 1.1)
pt3dadd(-371, 152.5, 575, 1.1)
pt3dadd(-378.5, 148.5, 603.5, 0.7)
pt3dadd(-383.5, 152.5, 625, 2)
}
dend[42] {pt3dclear()
pt3dadd(-45.5, 6, -3.5, 12.4)
pt3dadd(-50.5, -2.5, 3.5, 4.6)
pt3dadd(-55, -9.5, 1.5, 5.1)
pt3dadd(-62.5, -18.5, 12, 5.9)
pt3dadd(-68.5, -27, 13, 5.7)
pt3dadd(-73, -32.5, 8, 4.1)
pt3dadd(-79.5, -41, 15, 6.3)
pt3dadd(-81.5, -42.5, 25, 7.1)
pt3dadd(-88.5, -52, 31, 4.8)
pt3dadd(-93, -59.5, 34, 5.5)
pt3dadd(-95.5, -67.5, 39.5, 8.6)
}
dend[43] {pt3dclear()
pt3dadd(-95.5, -67.5, 39.5, 8.6)
pt3dadd(-103.5, -70.5, 44.5, 3.1)
pt3dadd(-114, -75.5, 40, 3.4)
pt3dadd(-121.5, -79.5, 42.5, 3.8)
pt3dadd(-132.5, -83, 45.5, 3.4)
pt3dadd(-140.5, -86, 45.5, 3.8)
pt3dadd(-149, -89.5, 43, 3.2)
pt3dadd(-158, -93.5, 40.5, 3.4)
pt3dadd(-165, -98.5, 46, 3.7)
pt3dadd(-174, -102, 51.5, 3)
pt3dadd(-182.5, -106, 48.5, 2.7)
pt3dadd(-192, -110.5, 46, 3.5)
pt3dadd(-200.5, -115, 44, 2.8)
pt3dadd(-209, -119.5, 44, 2.6)
pt3dadd(-216.5, -122.5, 46.5, 3.5)
pt3dadd(-224, -127, 52, 2)
pt3dadd(-233, -129.5, 47, 4.3)
pt3dadd(-241.5, -133.5, 49.5, 5.1)
pt3dadd(-249.5, -138.5, 42, 3.8)
pt3dadd(-258, -143.5, 50, 2.5)
pt3dadd(-266.5, -146, 45, 3)
pt3dadd(-276, -148.5, 53.5, 3.2)
pt3dadd(-283.5, -153, 53.5, 4.1)
pt3dadd(-295.5, -155, 54, 4)
pt3dadd(-306, -157, 56.5, 4.1)
pt3dadd(-312.5, -161, 48.5, 3.1)
pt3dadd(-322, -165, 46, 4.7)
pt3dadd(-331, -171.5, 46.5, 2.7)
pt3dadd(-339, -176, 49, 2.6)
pt3dadd(-349, -177, 51.5, 3)
pt3dadd(-357, -180.5, 54.5, 2.3)
pt3dadd(-363.5, -184.5, 55, 3.5)
pt3dadd(-369.5, -189, 52, 3)
pt3dadd(-378, -193, 49.5, 2.1)
pt3dadd(-384, -200, 55, 3.6)
pt3dadd(-393.5, -204, 55.5, 5.7)
pt3dadd(-402.5, -206, 50, 5.1)
pt3dadd(-410, -208.5, 60.5, 2.3)
pt3dadd(-418.5, -211.5, 71.5, 4.6)
pt3dadd(-425.5, -216, 63.5, 1.7)
pt3dadd(-433.5, -219, 63.5, 1.8)
pt3dadd(-441.5, -221, 56.5, 1.7)
pt3dadd(-449.5, -223.5, 56.5, 2.7)
pt3dadd(-458.5, -226.5, 56.5, 3.2)
pt3dadd(-468.5, -231.5, 54, 1.9)
pt3dadd(-476, -234, 59.5, 1.6)
pt3dadd(-485.5, -237.5, 62, 1.1)
pt3dadd(-492, -241, 60, 3.6)
pt3dadd(-499, -245.5, 60, 3.2)
pt3dadd(-509, -249.5, 68, 4.4)
pt3dadd(-517, -254, 68.5, 5.5)
pt3dadd(-525.5, -259, 71, 1)
pt3dadd(-532, -263.5, 65.5, 0.9)
pt3dadd(-537.5, -269, 71, 4.9)
pt3dadd(-544.5, -272.5, 71.5, 3.4)
pt3dadd(-551, -277, 76.5, 0.9)
pt3dadd(-560.5, -278.5, 76.5, 2)
pt3dadd(-566.5, -284.5, 76.5, 0.9)
pt3dadd(-577, -291.5, 82.5, 1.6)
pt3dadd(-586.5, -296, 85, 0.7)
pt3dadd(-593, -301.5, 80, 1.5)
pt3dadd(-595.5, -302.5, 75, 1.4)
}
dend[44] {pt3dclear()
pt3dadd(-95.5, -67.5, 39.5, 8.6)
pt3dadd(-93.5, -76, 45, 5.7)
pt3dadd(-94, -88.5, 45.5, 5)
pt3dadd(-92.5, -97.5, 43, 5)
pt3dadd(-91, -109, 43.5, 4.6)
pt3dadd(-90.5, -125, 46.5, 5.5)
pt3dadd(-90.5, -136.5, 47, 4.8)
pt3dadd(-89.5, -145.5, 50, 5)
pt3dadd(-87, -154.5, 50, 4.6)
pt3dadd(-86, -163.5, 53.5, 5.2)
pt3dadd(-86.5, -173.5, 56.5, 4.5)
pt3dadd(-84.5, -183, 54.5, 6.1)
pt3dadd(-85.5, -192, 57, 5.3)
pt3dadd(-87.5, -201, 57.5, 5.6)
pt3dadd(-91, -213, 63.5, 4.2)
pt3dadd(-93, -226.5, 64, 5.9)
pt3dadd(-96.5, -235.5, 62, 5.6)
pt3dadd(-97.5, -244.5, 62, 5.3)
pt3dadd(-97.5, -254.5, 62.5, 4.8)
pt3dadd(-96, -264.5, 65.5, 3.4)
pt3dadd(-97, -274.5, 66, 5.9)
pt3dadd(-97.5, -285, 69.5, 4.9)
pt3dadd(-99, -295.5, 75, 6)
pt3dadd(-100, -304.5, 81, 5)
pt3dadd(-101, -313.5, 96, 5.3)
pt3dadd(-102, -323, 95.5, 5)
pt3dadd(-103, -333, 108, 7.8)
}
dend[45] {pt3dclear()
pt3dadd(-103, -333, 108, 7.8)
pt3dadd(-97, -341, 101.5, 2.3)
pt3dadd(-94, -350, 109.5, 2.2)
pt3dadd(-94.5, -359.5, 106, 2.2)
pt3dadd(-94.5, -371.5, 106.5, 2.2)
pt3dadd(-94, -381.5, 107, 1.6)
pt3dadd(-89, -387.5, 111.5, 1.6)
pt3dadd(-83, -395, 115.5, 2.6)
pt3dadd(-76, -401, 112.5, 2.2)
pt3dadd(-69.5, -405, 109, 1.6)
pt3dadd(-64, -412.5, 113.5, 1.8)
pt3dadd(-60, -418.5, 114, 1.3)
pt3dadd(-54.5, -426.5, 121.5, 3.2)
pt3dadd(-47.5, -430, 118, 1.4)
pt3dadd(-42, -437.5, 112, 2.6)
pt3dadd(-36.5, -445.5, 116.5, 1.9)
pt3dadd(-32, -451, 124, 1.6)
}
}
proc shape3d_6() {
dend[45] { pt3dadd(-27, -456.5, 121, 1.1)
pt3dadd(-24.5, -458, 125, 1.5)
pt3dadd(-19.5, -465, 123.5, 1.7)
pt3dadd(-15, -472, 124.5, 1.6)
pt3dadd(-10.5, -478.5, 125, 1.1)
pt3dadd(-4.5, -482.5, 130, 1.2)
pt3dadd(-4, -493.5, 139, 1.8)
pt3dadd(-6.5, -502.5, 136, 1.3)
pt3dadd(-7.5, -514, 144, 1.8)
pt3dadd(-3, -519.5, 142.5, 1.2)
pt3dadd(3, -524, 149.5, 1.8)
pt3dadd(8, -531.5, 146.5, 1)
pt3dadd(15.5, -535.5, 162.5, 1.1)
pt3dadd(20.5, -541, 157.5, 2.1)
pt3dadd(27, -547, 156.5, 0.9)
pt3dadd(33.5, -552, 159.5, 0.9)
pt3dadd(41.5, -555.5, 164.5, 0.7)
pt3dadd(50.5, -557, 167.5, 0.9)
pt3dadd(54, -563.5, 167, 1.6)
pt3dadd(60.5, -569, 170, 2.2)
pt3dadd(62.5, -577, 168.5, 0.8)
pt3dadd(65, -585, 169.5, 1.7)
pt3dadd(69, -592, 170, 0.9)
pt3dadd(71, -600, 175, 0.6)
pt3dadd(73, -608.5, 180, 2.3)
pt3dadd(73, -610, 175, 2.2)
}
dend[46] {pt3dclear()
pt3dadd(-103, -333, 108, 7.8)
pt3dadd(-108.5, -341, 109.5, 3.8)
pt3dadd(-111, -351, 115, 4)
pt3dadd(-115.5, -358.5, 120, 3.4)
pt3dadd(-116.5, -363.5, 125, 4.5)
pt3dadd(-121.5, -370.5, 128.5, 4.3)
pt3dadd(-126.5, -377, 133.5, 5.3)
pt3dadd(-127.5, -386.5, 133, 2.9)
pt3dadd(-127, -398, 133, 3.4)
pt3dadd(-123.5, -412.5, 139.5, 4.8)
pt3dadd(-128.5, -420.5, 147, 5)
pt3dadd(-126, -432, 155, 6.4)
pt3dadd(-124.5, -437.5, 156, 8.2)
}
dend[47] {pt3dclear()
pt3dadd(-124.5, -437.5, 156, 8.2)
pt3dadd(-125.5, -448.5, 163, 2.1)
pt3dadd(-131.5, -455.5, 171, 3.4)
pt3dadd(-137, -459, 175, 3.4)
pt3dadd(-147, -460, 192, 1.1)
pt3dadd(-151.5, -466.5, 196, 3.2)
pt3dadd(-157.5, -472, 198, 2.7)
pt3dadd(-163, -477.5, 201.5, 2.2)
pt3dadd(-172, -480, 204, 2.3)
pt3dadd(-179.5, -485.5, 206, 2)
pt3dadd(-185.5, -492.5, 212.5, 1.4)
pt3dadd(-186.5, -502.5, 214.5, 1.3)
pt3dadd(-193, -506.5, 216, 1.1)
pt3dadd(-201.5, -509, 219, 2)
pt3dadd(-206.5, -512.5, 225, 2)
pt3dadd(-211.5, -517.5, 238.5, 2.5)
pt3dadd(-218, -525.5, 244.5, 2.1)
pt3dadd(-221.5, -533, 254, 3)
pt3dadd(-228, -537.5, 257.5, 2.4)
pt3dadd(-233.5, -545.5, 258, 1.9)
pt3dadd(-234.5, -549, 261.5, 2.9)
}
dend[48] {pt3dclear()
pt3dadd(-234.5, -549, 261.5, 2.9)
pt3dadd(-229, -555.5, 270, 2.7)
pt3dadd(-225.5, -559.5, 275, 2.5)
}
dend[49] {pt3dclear()
pt3dadd(-234.5, -549, 261.5, 2.9)
pt3dadd(-236.5, -557, 266.5, 1)
pt3dadd(-236.5, -567.5, 269.5, 1.7)
pt3dadd(-239.5, -575.5, 266, 1.9)
pt3dadd(-237, -584, 271, 3)
pt3dadd(-239, -593, 272, 3)
pt3dadd(-241, -600, 275, 2.7)
pt3dadd(-238.5, -608, 292, 1.6)
pt3dadd(-243.5, -616.5, 293.5, 1.4)
pt3dadd(-251.5, -621, 297, 1.1)
pt3dadd(-257, -627, 298.5, 1.9)
pt3dadd(-263, -633, 299.5, 1.3)
pt3dadd(-267, -640, 302.5, 0.9)
pt3dadd(-270.5, -647, 307.5, 1)
pt3dadd(-276.5, -654, 309, 1.5)
pt3dadd(-280, -660.5, 310.5, 2.5)
pt3dadd(-284, -668.5, 310, 1.1)
pt3dadd(-287.5, -678.5, 313.5, 1.4)
pt3dadd(-292.5, -684, 317, 1.6)
pt3dadd(-299, -690.5, 318.5, 0.9)
pt3dadd(-303, -697, 319.5, 0.9)
pt3dadd(-305.5, -707, 323.5, 1.7)
pt3dadd(-309.5, -713.5, 325, 1.1)
pt3dadd(-311.5, -721.5, 333.5, 0.9)
pt3dadd(-311, -731, 335, 0.7)
pt3dadd(-312.5, -739.5, 339.5, 0.7)
pt3dadd(-316, -746.5, 347.5, 0.9)
pt3dadd(-320, -755, 347, 0.8)
pt3dadd(-324.5, -761, 348.5, 0.8)
pt3dadd(-328.5, -768, 350, 0.7)
pt3dadd(-333.5, -775, 351, 0.7)
pt3dadd(-337, -782.5, 350.5, 0.7)
pt3dadd(-341, -789, 352.5, 0.6)
pt3dadd(-345.5, -794.5, 353.5, 0.7)
pt3dadd(-352.5, -798.5, 358, 0.7)
pt3dadd(-358, -804.5, 362, 0.7)
pt3dadd(-363, -811, 363.5, 0.7)
pt3dadd(-369.5, -816.5, 365, 1.2)
pt3dadd(-373, -823.5, 370, 1.1)
pt3dadd(-377, -830.5, 375, 1.1)
}
dend[50] {pt3dclear()
pt3dadd(-124.5, -437.5, 156, 8.2)
pt3dadd(-118, -441.5, 155, 2.9)
pt3dadd(-113, -448, 168, 3)
pt3dadd(-106, -451, 172.5, 4.4)
pt3dadd(-101, -457, 177.5, 2.8)
pt3dadd(-98.5, -458, 175, 2.8)
pt3dadd(-92, -462, 181, 1.5)
pt3dadd(-90, -472, 189.5, 1.2)
pt3dadd(-93.5, -478.5, 196.5, 1)
pt3dadd(-96, -489, 203, 3)
pt3dadd(-95.5, -499.5, 206, 2.8)
pt3dadd(-92.5, -510, 209, 1.7)
pt3dadd(-90.5, -519, 215, 2.8)
pt3dadd(-90, -529.5, 220, 1.9)
pt3dadd(-87.5, -538.5, 221, 1.2)
pt3dadd(-83, -542.5, 225, 1.3)
pt3dadd(-76, -545.5, 231, 1.1)
pt3dadd(-69.5, -552.5, 235.5, 2.3)
pt3dadd(-62.5, -557.5, 238, 1.9)
pt3dadd(-56.5, -565, 239, 3)
pt3dadd(-48.5, -567, 239, 2.1)
pt3dadd(-38.5, -568.5, 241.5, 1.5)
pt3dadd(-31, -574, 242.5, 1.6)
pt3dadd(-23, -576, 242, 1.2)
pt3dadd(-13.5, -576.5, 243.5, 1.6)
pt3dadd(-8.5, -582.5, 249.5, 0.9)
pt3dadd(-2, -588, 250.5, 1.1)
pt3dadd(4.5, -594, 250, 1.6)
pt3dadd(15, -595, 251.5, 1.3)
pt3dadd(27, -593.5, 253, 1.1)
pt3dadd(36, -597.5, 251, 1.3)
pt3dadd(46.5, -597.5, 251, 1.2)
pt3dadd(51, -603.5, 255, 2.3)
pt3dadd(55.5, -612, 257.5, 1.6)
pt3dadd(60, -617.5, 262, 1.8)
pt3dadd(63.5, -624.5, 263, 1.8)
pt3dadd(69, -633, 264, 1.4)
pt3dadd(70.5, -643.5, 265.5, 1.4)
pt3dadd(78, -647, 264.5, 1.3)
pt3dadd(88, -648.5, 269.5, 1.5)
pt3dadd(94.5, -652.5, 274, 1.7)
pt3dadd(101, -653, 275, 1.4)
pt3dadd(98, -662, 269, 1.5)
pt3dadd(99, -671, 271, 2.1)
pt3dadd(101, -682.5, 272, 3.1)
pt3dadd(95, -688.5, 272.5, 1.7)
pt3dadd(88.5, -693, 273.5, 1.2)
pt3dadd(80.5, -697.5, 272.5, 1.3)
pt3dadd(70.5, -700, 275, 1.3)
}
dend[51] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 13.2)
pt3dadd(60.5, 38.5, -9, 13.2)
pt3dadd(68.5, 46, -25, 12.8)
pt3dadd(70, 51.5, -44, 15)
}
dend[52] {pt3dclear()
pt3dadd(70, 51.5, -44, 15)
pt3dadd(63, 59, -44.5, 6.7)
pt3dadd(57.5, 64, -46.5, 6.9)
pt3dadd(50.5, 71, -49, 6.9)
pt3dadd(44.5, 78.5, -60.5, 6.9)
pt3dadd(37, 84.5, -66, 5.7)
pt3dadd(32, 87, -75, 5.7)
pt3dadd(24, 92, -78.5, 7.3)
pt3dadd(17, 95.5, -78.5, 7.3)
pt3dadd(10, 101, -89, 7.5)
pt3dadd(2.5, 106, -93.5, 10)
}
dend[53] {pt3dclear()
pt3dadd(2.5, 106, -93.5, 10)
pt3dadd(-7.5, 104.5, -96.5, 3.4)
pt3dadd(-20.5, 103.5, -100, 3.7)
pt3dadd(-32, 102.5, -100.5, 3.8)
pt3dadd(-39, 105.5, -106.5, 3.2)
pt3dadd(-40.5, 105.5, -100.5, 4.1)
}
dend[54] {pt3dclear()
pt3dadd(-40.5, 105.5, -100.5, 4.1)
pt3dadd(-49.5, 108, -109.5, 3.2)
pt3dadd(-56.5, 111.5, -109.5, 3.2)
pt3dadd(-67.5, 112.5, -123, 3)
pt3dadd(-75, 112.5, -125, 2.4)
pt3dadd(-85.5, 110, -131.5, 2.8)
pt3dadd(-92.5, 106.5, -130, 2.6)
pt3dadd(-102.5, 104, -129, 2.8)
pt3dadd(-113.5, 101, -137.5, 2.6)
pt3dadd(-120, 94.5, -139, 2.6)
pt3dadd(-127, 91.5, -137.5, 3.1)
pt3dadd(-137, 91.5, -142.5, 2.7)
pt3dadd(-147, 91.5, -144, 2.8)
pt3dadd(-157, 90, -156.5, 2.2)
pt3dadd(-166.5, 89.5, -168.5, 2.8)
pt3dadd(-174.5, 84.5, -167, 3)
pt3dadd(-176.5, 83.5, -175, 2.5)
pt3dadd(-186, 82, -179, 2.6)
pt3dadd(-188, 73.5, -201.5, 2.9)
pt3dadd(-196, 70.5, -198, 2.6)
pt3dadd(-195.5, 60.5, -219, 2.3)
pt3dadd(-193, 55, -225, 2.8)
pt3dadd(-200.5, 52, -225, 2.9)
pt3dadd(-213, 49.5, -237.5, 3)
pt3dadd(-227.5, 43, -252.5, 2.3)
pt3dadd(-233.5, 39, -255.5, 2.6)
pt3dadd(-241, 36, -274, 2.5)
}
}
proc shape3d_7() {
dend[54] { pt3dadd(-243.5, 35, -275, 2)
pt3dadd(-253.5, 36, -277.5, 2.3)
pt3dadd(-264, 31, -285.5, 2.5)
pt3dadd(-274, 31, -291.5, 3)
pt3dadd(-278.5, 23.5, -304.5, 3.2)
pt3dadd(-288, 26, -304.5, 2.6)
pt3dadd(-296.5, 30.5, -312, 2.7)
pt3dadd(-302, 36, -311.5, 2.6)
pt3dadd(-308, 41, -318.5, 1.9)
pt3dadd(-312.5, 41, -325, 2.4)
pt3dadd(-318, 36, -333.5, 2.3)
pt3dadd(-323, 31, -334.5, 2.7)
pt3dadd(-327.5, 22.5, -340, 2.8)
pt3dadd(-333.5, 15, -346.5, 2.6)
pt3dadd(-342.5, 14, -345.5, 1.6)
pt3dadd(-351.5, 13, -366.5, 2)
pt3dadd(-354.5, 13.5, -375, 1.8)
pt3dadd(-360.5, 17.5, -374, 1.9)
pt3dadd(-366, 23.5, -378, 1.9)
pt3dadd(-372, 19, -381, 3)
pt3dadd(-376.5, 25.5, -392.5, 1.8)
pt3dadd(-387, 24.5, -394.5, 2)
pt3dadd(-396.5, 26, -402, 2.3)
pt3dadd(-405.5, 30, -404.5, 2.8)
pt3dadd(-414.5, 33, -406.5, 1.6)
pt3dadd(-435, 27.5, -425, 2.1)
pt3dadd(-444, 25.5, -430.5, 1.8)
pt3dadd(-446.5, 15.5, -437.5, 1.7)
pt3dadd(-455.5, 14.5, -436, 1.7)
pt3dadd(-461, 10, -436, 3.4)
pt3dadd(-469.5, 8.5, -454.5, 1.6)
pt3dadd(-478.5, 11, -454, 3)
pt3dadd(-489.5, 10, -460.5, 3.2)
pt3dadd(-500, 10, -475, 2.1)
pt3dadd(-509, 11.5, -475.5, 0.7)
pt3dadd(-519, 11, -476, 1)
pt3dadd(-526, 6, -489, 0.9)
pt3dadd(-535.5, 1.5, -489.5, 1.1)
pt3dadd(-543, -1.5, -490.5, 1.3)
pt3dadd(-550, -4.5, -488, 2)
pt3dadd(-559.5, -7, -483, 2.1)
pt3dadd(-569, -8, -480.5, 1.6)
pt3dadd(-579, -9.5, -481, 1.2)
pt3dadd(-588, -12.5, -490.5, 1.3)
pt3dadd(-599, -14, -486, 1.3)
pt3dadd(-608.5, -16, -486.5, 1.1)
pt3dadd(-617, -17.5, -496, 1.2)
pt3dadd(-628, -18.5, -499, 1.3)
pt3dadd(-637, -20, -494, 1)
pt3dadd(-646, -23, -494.5, 1.5)
pt3dadd(-659, -25.5, -487, 1.9)
pt3dadd(-669, -29.5, -502, 1.3)
pt3dadd(-675, -36.5, -500, 1.5)
pt3dadd(-681.5, -40, -503, 1.2)
pt3dadd(-690, -41.5, -512, 1.5)
pt3dadd(-692.5, -41.5, -512.5, 1.6)
}
dend[55] {pt3dclear()
pt3dadd(-692.5, -41.5, -512.5, 1.6)
pt3dadd(-698.5, -48, -503, 1.1)
pt3dadd(-705.5, -55, -504.5, 3.1)
pt3dadd(-714.5, -54, -514.5, 1.1)
pt3dadd(-722, -51.5, -515.5, 1.1)
pt3dadd(-730.5, -48.5, -514.5, 1.7)
pt3dadd(-741, -50, -518.5, 1)
pt3dadd(-749.5, -47.5, -520, 1)
pt3dadd(-760, -45, -525, 1.3)
}
dend[56] {pt3dclear()
pt3dadd(-692.5, -41.5, -512.5, 1.6)
pt3dadd(-695.5, -42, -525, 0.7)
}
dend[57] {pt3dclear()
pt3dadd(-40.5, 105.5, -100.5, 4.1)
pt3dadd(-47.5, 102, -126.5, 3.1)
pt3dadd(-50, 102, -125, 2.7)
pt3dadd(-59.5, 103, -134.5, 2.4)
pt3dadd(-59.5, 92.5, -156, 2.5)
pt3dadd(-66.5, 97.5, -157.5, 2.5)
pt3dadd(-72.5, 102, -175, 2.5)
pt3dadd(-76, 108.5, -193, 2)
pt3dadd(-79.5, 118, -202.5, 3.1)
pt3dadd(-77.5, 126, -224, 2)
pt3dadd(-79.5, 127.5, -225, 2)
pt3dadd(-85.5, 132.5, -230.5, 2.8)
pt3dadd(-88, 140, -254.5, 2)
pt3dadd(-90, 148, -268.5, 2.3)
pt3dadd(-85.5, 153.5, -275, 2.2)
pt3dadd(-89, 163, -297.5, 2)
pt3dadd(-94, 164, -325, 2.8)
pt3dadd(-101, 158.5, -333, 1.7)
pt3dadd(-107.5, 155, -346.5, 1.7)
pt3dadd(-110, 164, -358.5, 1.2)
pt3dadd(-111.5, 173, -365.5, 1.7)
pt3dadd(-111.5, 175, -375, 1.7)
pt3dadd(-113, 184.5, -378.5, 1.6)
pt3dadd(-112.5, 194, -379.5, 2.3)
pt3dadd(-116, 202, -386.5, 1.9)
pt3dadd(-112.5, 208.5, -402, 1.5)
pt3dadd(-117.5, 214, -401.5, 1.6)
pt3dadd(-122, 219.5, -406, 1.4)
pt3dadd(-131, 220.5, -418, 1.8)
pt3dadd(-129, 220, -425, 1.7)
pt3dadd(-137.5, 218.5, -433, 1.5)
pt3dadd(-136, 209.5, -436, 2.2)
pt3dadd(-141.5, 204.5, -446, 1.8)
pt3dadd(-148.5, 207.5, -453.5, 1.6)
pt3dadd(-156.5, 211, -469.5, 2.2)
pt3dadd(-158.5, 214, -475, 1.8)
}
dend[58] {pt3dclear()
pt3dadd(2.5, 106, -93.5, 10)
pt3dadd(1, 115.5, -96.5, 5)
pt3dadd(-5.5, 124, -90.5, 5.5)
pt3dadd(-9.5, 134, -94, 5)
pt3dadd(-15, 141, -91, 4.8)
pt3dadd(-18.5, 149, -94, 5)
pt3dadd(-22.5, 155.5, -94, 4.7)
pt3dadd(-29, 162.5, -97, 4.6)
pt3dadd(-34.5, 168.5, -104, 4.5)
pt3dadd(-38.5, 175.5, -104, 4.6)
pt3dadd(-41, 179, -101, 5.7)
}
dend[59] {pt3dclear()
pt3dadd(-41, 179, -101, 5.7)
pt3dadd(-50.5, 177, -103, 3.4)
pt3dadd(-60.5, 173, -122.5, 3.6)
pt3dadd(-67.5, 170, -125, 3.7)
pt3dadd(-75.5, 166, -134.5, 3.2)
pt3dadd(-80.5, 158.5, -144.5, 3.8)
pt3dadd(-88.5, 152.5, -155.5, 3.7)
pt3dadd(-96.5, 155, -174.5, 3.5)
pt3dadd(-97.5, 161.5, -175, 4.1)
pt3dadd(-92.5, 155, -185, 4)
pt3dadd(-102.5, 155.5, -208, 3.5)
pt3dadd(-105.5, 149, -225, 3.2)
pt3dadd(-114, 147, -222, 3.1)
pt3dadd(-123, 149.5, -238, 2.2)
pt3dadd(-117.5, 144, -257.5, 4)
pt3dadd(-127.5, 145.5, -275, 3)
pt3dadd(-137, 147.5, -270.5, 3.2)
pt3dadd(-141, 137.5, -288, 3.1)
pt3dadd(-150, 138.5, -300, 2.6)
pt3dadd(-159.5, 141.5, -303, 3)
pt3dadd(-170, 144, -305.5, 2.1)
pt3dadd(-181.5, 144.5, -320, 2.3)
pt3dadd(-189, 146, -325, 2.6)
pt3dadd(-197, 143, -331.5, 3.3)
pt3dadd(-203, 139, -331.5, 2.8)
pt3dadd(-212, 137, -343, 2.2)
pt3dadd(-216.5, 136, -345, 4.8)
}
dend[60] {pt3dclear()
pt3dadd(-216.5, 136, -345, 4.8)
pt3dadd(-216, 126, -347, 1.7)
pt3dadd(-223, 122, -362.5, 0.7)
}
dend[61] {pt3dclear()
pt3dadd(-223, 122, -362.5, 0.7)
pt3dadd(-229.5, 122, -375, 0.8)
}
dend[62] {pt3dclear()
pt3dadd(-223, 122, -362.5, 0.7)
pt3dadd(-229.5, 123, -357, 5.4)
}
dend[63] {pt3dclear()
pt3dadd(-229.5, 123, -357, 5.4)
pt3dadd(-236, 119, -366, 1.2)
pt3dadd(-242, 125, -371, 1.5)
pt3dadd(-252, 127, -368.5, 1.5)
pt3dadd(-261, 129.5, -384.5, 1.6)
pt3dadd(-269.5, 131.5, -379, 1.8)
pt3dadd(-279, 131, -391.5, 1.5)
pt3dadd(-284, 137.5, -396.5, 1.5)
pt3dadd(-292, 139, -412.5, 1.3)
pt3dadd(-301.5, 136.5, -417, 1.3)
pt3dadd(-310.5, 132, -422, 1.1)
pt3dadd(-316.5, 127.5, -423, 1.1)
pt3dadd(-324, 125, -433.5, 1.1)
pt3dadd(-335, 124, -431.5, 1.1)
pt3dadd(-345, 125.5, -440.5, 1.1)
pt3dadd(-351.5, 131.5, -434, 2.3)
}
dend[64] {pt3dclear()
pt3dadd(-351.5, 131.5, -434, 2.3)
pt3dadd(-353.5, 129, -462.5, 2.2)
}
dend[65] {pt3dclear()
pt3dadd(-351.5, 131.5, -434, 2.3)
pt3dadd(-361.5, 135.5, -432.5, 1.3)
pt3dadd(-366.5, 141, -443.5, 1.4)
pt3dadd(-376, 143, -451, 1.2)
pt3dadd(-387.5, 143.5, -466.5, 0.9)
pt3dadd(-398, 146, -452, 0.8)
pt3dadd(-408.5, 142.5, -467, 0.9)
pt3dadd(-417, 139.5, -454.5, 0.8)
pt3dadd(-422, 137.5, -462.5, 0.9)
pt3dadd(-428.5, 132, -472, 0.8)
pt3dadd(-431.5, 124.5, -502, 0.6)
pt3dadd(-430.5, 124, -512.5, 1.5)
}
dend[66] {pt3dclear()
pt3dadd(-229.5, 123, -357, 5.4)
pt3dadd(-233.5, 129, -366.5, 1.2)
pt3dadd(-240, 134.5, -387.5, 1.9)
pt3dadd(-247, 138.5, -393, 3)
pt3dadd(-249.5, 146, -399, 2)
pt3dadd(-251.5, 150.5, -412.5, 2.5)
pt3dadd(-257.5, 154.5, -418.5, 1.8)
pt3dadd(-264.5, 159.5, -431.5, 1.4)
pt3dadd(-269, 166, -433.5, 1.4)
pt3dadd(-276.5, 170, -439, 1.8)
pt3dadd(-279.5, 179.5, -442.5, 1.8)
pt3dadd(-281, 183, -451, 2)
}
dend[67] {pt3dclear()
pt3dadd(-281, 183, -451, 2)
pt3dadd(-287.5, 189.5, -462, 1.8)
pt3dadd(-293.5, 190, -462.5, 1.9)
pt3dadd(-299.5, 194, -459, 2.2)
pt3dadd(-308.5, 196, -483.5, 1.8)
pt3dadd(-312.5, 203, -495, 2.5)
pt3dadd(-319.5, 206, -507.5, 1.5)
pt3dadd(-326.5, 209.5, -507.5, 1.4)
pt3dadd(-332, 209.5, -512.5, 2.5)
pt3dadd(-337, 216.5, -510.5, 2.2)
}
}
proc shape3d_8() {
dend[67] { pt3dadd(-340.5, 225.5, -525, 1.7)
pt3dadd(-345.5, 231, -526, 1.5)
pt3dadd(-348.5, 240, -535.5, 2.1)
pt3dadd(-352.5, 246, -537, 1.4)
pt3dadd(-355.5, 255, -539.5, 1.7)
pt3dadd(-361, 262, -541, 1.6)
pt3dadd(-366.5, 269, -543, 1.4)
pt3dadd(-369, 276.5, -552.5, 2)
pt3dadd(-374, 281.5, -561.5, 2.4)
pt3dadd(-372, 284.5, -562.5, 2.4)
pt3dadd(-374.5, 294, -562, 1.6)
pt3dadd(-381.5, 298, -557.5, 1.4)
pt3dadd(-381, 308.5, -587, 1.1)
pt3dadd(-379.5, 317, -594, 1.4)
pt3dadd(-381, 326.5, -589, 1.1)
pt3dadd(-388, 330.5, -590.5, 1.2)
pt3dadd(-401, 335, -602.5, 1.1)
pt3dadd(-407.5, 339.5, -613.5, 1.2)
pt3dadd(-413.5, 344, -612.5, 1)
pt3dadd(-404.5, 347, -612.5, 1.3)
pt3dadd(-401, 353.5, -612.5, 1.2)
pt3dadd(-396, 359, -608.5, 1.3)
pt3dadd(-385.5, 362.5, -608.5, 1.1)
pt3dadd(-375, 364, -613.5, 1)
pt3dadd(-372, 371, -605, 1.1)
pt3dadd(-366.5, 378, -614.5, 1.4)
pt3dadd(-365.5, 388, -614.5, 1.3)
pt3dadd(-366, 399, -610.5, 1.4)
pt3dadd(-366, 409, -610.5, 1.3)
pt3dadd(-363, 419, -606.5, 1.3)
pt3dadd(-361.5, 428, -611.5, 1.1)
pt3dadd(-361, 438.5, -607, 1.6)
pt3dadd(-356.5, 446, -607.5, 1.5)
pt3dadd(-350.5, 450, -612, 1.2)
pt3dadd(-349, 459, -626, 1.1)
pt3dadd(-345.5, 465.5, -626, 1.1)
pt3dadd(-341.5, 473.5, -627, 1.3)
pt3dadd(-336.5, 480, -623, 1.4)
pt3dadd(-332, 486.5, -623, 1.3)
pt3dadd(-327, 495, -619, 1.4)
pt3dadd(-323, 501, -610.5, 1.7)
pt3dadd(-316.5, 508, -624.5, 1.5)
pt3dadd(-312.5, 514.5, -629, 1.2)
pt3dadd(-319.5, 519, -611.5, 1.2)
pt3dadd(-325.5, 526.5, -612, 1.3)
pt3dadd(-328, 536, -607.5, 1.5)
pt3dadd(-327.5, 539, -612.5, 1.3)
pt3dadd(-332.5, 545, -606, 1.1)
pt3dadd(-336.5, 552.5, -592, 0.8)
pt3dadd(-336.5, 564, -589, 1.4)
pt3dadd(-337.5, 575, -593, 1.4)
pt3dadd(-336, 584, -576.5, 1)
pt3dadd(-335.5, 593.5, -573, 1)
pt3dadd(-331, 600.5, -577, 1)
pt3dadd(-329.5, 610, -595.5, 1.2)
pt3dadd(-328.5, 621, -589, 1.4)
pt3dadd(-339, 622.5, -589.5, 1.1)
pt3dadd(-342, 631, -590.5, 1.3)
pt3dadd(-347, 636, -606, 1.1)
pt3dadd(-351, 642, -606, 1.4)
pt3dadd(-348, 649, -595.5, 1)
pt3dadd(-349.5, 658, -600, 1.4)
pt3dadd(-351.5, 667.5, -600, 1.4)
pt3dadd(-350.5, 677.5, -605, 1.8)
pt3dadd(-348.5, 684, -612.5, 1.5)
}
dend[68] {pt3dclear()
pt3dadd(-281, 183, -451, 2)
pt3dadd(-285.5, 183, -462.5, 2.2)
}
dend[69] {pt3dclear()
pt3dadd(-216.5, 136, -345, 4.8)
pt3dadd(-234, 138, -349.5, 4.4)
pt3dadd(-242.5, 142.5, -349.5, 3.3)
pt3dadd(-250.5, 145, -353.5, 3.1)
pt3dadd(-260.5, 147, -357, 3.2)
pt3dadd(-267, 149, -357.5, 3.7)
}
dend[70] {pt3dclear()
pt3dadd(-267, 149, -357.5, 3.7)
pt3dadd(-274, 145.5, -375, 1.1)
}
dend[71] {pt3dclear()
pt3dadd(-267, 149, -357.5, 3.7)
pt3dadd(-277, 149.5, -364, 3.2)
pt3dadd(-288, 149, -370, 4.5)
pt3dadd(-290.5, 149, -375, 4.5)
pt3dadd(-297, 153.5, -376, 2.8)
pt3dadd(-300, 162, -377.5, 2.3)
pt3dadd(-307, 166, -378, 2.5)
pt3dadd(-312.5, 171, -379.5, 2.5)
pt3dadd(-319.5, 174, -392.5, 2.5)
pt3dadd(-323, 170.5, -391, 3.5)
}
dend[72] {pt3dclear()
pt3dadd(-323, 170.5, -391, 3.5)
pt3dadd(-328, 178, -389.5, 1.7)
pt3dadd(-333, 186.5, -386, 2.8)
pt3dadd(-338, 193, -398.5, 1.5)
pt3dadd(-342.5, 199, -394, 2.5)
pt3dadd(-346, 207, -396, 1.6)
pt3dadd(-352, 212, -392, 1.6)
pt3dadd(-358, 217, -391.5, 1.7)
pt3dadd(-363, 223, -390.5, 1.2)
pt3dadd(-369.5, 228, -384, 1.2)
pt3dadd(-375, 232.5, -383, 1.4)
pt3dadd(-379, 239.5, -382.5, 1.2)
pt3dadd(-383, 245.5, -389.5, 1.5)
pt3dadd(-388.5, 250, -389, 2.1)
pt3dadd(-392.5, 257, -385, 1.7)
pt3dadd(-399, 263, -384.5, 1.6)
pt3dadd(-405, 267.5, -375, 1.9)
pt3dadd(-410, 273, -374.5, 1.3)
pt3dadd(-416, 277, -374, 1.9)
pt3dadd(-423, 282, -369.5, 1.4)
pt3dadd(-427.5, 288, -369, 1)
pt3dadd(-434.5, 292.5, -375, 1.2)
pt3dadd(-439.5, 299, -374.5, 1.1)
pt3dadd(-447, 302, -374, 1.1)
pt3dadd(-455.5, 307.5, -373.5, 1.6)
pt3dadd(-460.5, 312.5, -376, 1.1)
pt3dadd(-468, 317.5, -372, 1.7)
pt3dadd(-472, 325.5, -367.5, 1.1)
pt3dadd(-477.5, 332.5, -367, 1.9)
pt3dadd(-483, 337, -366.5, 1.3)
pt3dadd(-488, 343, -369.5, 1.1)
pt3dadd(-494.5, 347, -369, 1.4)
pt3dadd(-503.5, 350.5, -361, 1.9)
pt3dadd(-507.5, 356.5, -365.5, 1.6)
pt3dadd(-513, 362.5, -368.5, 1.5)
pt3dadd(-521.5, 367, -363.5, 1.6)
pt3dadd(-526.5, 372.5, -370, 1.6)
pt3dadd(-532.5, 379, -369.5, 1.1)
pt3dadd(-540.5, 383, -357.5, 1.3)
pt3dadd(-547.5, 379, -367, 1)
pt3dadd(-553, 373.5, -370, 1.6)
pt3dadd(-554, 361.5, -376, 1.3)
pt3dadd(-549.5, 356, -375.5, 1.2)
pt3dadd(-539, 351.5, -375, 1.2)
}
dend[73] {pt3dclear()
pt3dadd(-323, 170.5, -391, 3.5)
pt3dadd(-330, 172.5, -425, 2.2)
pt3dadd(-336.5, 165.5, -434, 1.7)
pt3dadd(-347, 168, -432, 2.1)
pt3dadd(-354, 172, -438, 1.9)
pt3dadd(-364, 169.5, -449.5, 2.6)
pt3dadd(-378, 163, -470, 2.7)
pt3dadd(-382, 163, -475, 2.4)
pt3dadd(-387.5, 169, -477, 1.9)
pt3dadd(-395.5, 167, -482.5, 2)
pt3dadd(-404.5, 168.5, -495, 2)
pt3dadd(-412, 172, -497.5, 2.2)
pt3dadd(-420, 175.5, -514.5, 1.6)
pt3dadd(-414, 178.5, -525, 2.3)
pt3dadd(-422.5, 181, -530.5, 2.1)
pt3dadd(-429.5, 184.5, -532.5, 2.3)
pt3dadd(-435.5, 189, -538.5, 2)
pt3dadd(-440, 195, -548.5, 2.2)
pt3dadd(-448, 200, -558, 2.2)
pt3dadd(-457, 202, -560, 1.6)
pt3dadd(-462, 207, -562.5, 1.9)
pt3dadd(-473, 210, -565, 2)
pt3dadd(-480, 214.5, -567, 1.5)
pt3dadd(-488, 218, -566.5, 1.9)
pt3dadd(-492, 219, -575, 2.5)
pt3dadd(-495.5, 226, -569, 2.5)
pt3dadd(-500, 232.5, -573, 2.2)
pt3dadd(-506, 237, -581.5, 1.9)
pt3dadd(-513, 242, -586, 2)
pt3dadd(-517.5, 249, -587, 2.3)
pt3dadd(-516.5, 258, -595, 2.2)
pt3dadd(-517.5, 268, -596, 2.4)
pt3dadd(-521.5, 274.5, -598, 1.6)
pt3dadd(-526.5, 281.5, -592, 2.2)
pt3dadd(-528.5, 290, -607.5, 1.5)
pt3dadd(-534.5, 298, -609, 1.5)
pt3dadd(-541, 304, -607, 1.5)
pt3dadd(-548, 308.5, -611.5, 1.4)
pt3dadd(-558, 308.5, -612.5, 1.2)
pt3dadd(-564, 312.5, -613.5, 1.9)
pt3dadd(-574.5, 313.5, -610, 1.2)
pt3dadd(-581, 320.5, -612.5, 1.7)
pt3dadd(-585.5, 326, -616.5, 2.5)
pt3dadd(-590, 332.5, -625, 3.3)
pt3dadd(-590.5, 342.5, -632, 1.4)
pt3dadd(-597.5, 346, -661.5, 1.6)
pt3dadd(-602.5, 353.5, -675, 1.5)
pt3dadd(-609, 357, -683.5, 1.7)
pt3dadd(-605, 363.5, -706, 1.9)
pt3dadd(-609.5, 369.5, -711, 2.3)
pt3dadd(-615.5, 377.5, -719.5, 1.7)
pt3dadd(-617.5, 385.5, -720.5, 1.9)
pt3dadd(-617, 391, -725, 1.6)
pt3dadd(-617.5, 400.5, -733, 1.1)
pt3dadd(-620.5, 408.5, -745, 0.9)
pt3dadd(-623, 416.5, -763, 1.5)
pt3dadd(-629, 421, -764.5, 1.5)
pt3dadd(-631, 430, -775, 1.8)
pt3dadd(-636, 437, -785.5, 1.1)
pt3dadd(-634, 446.5, -783.5, 0.6)
pt3dadd(-641, 442.5, -808, 1.1)
pt3dadd(-632, 439.5, -825, 1.7)
pt3dadd(-628, 446, -846, 1.2)
pt3dadd(-618, 449.5, -848, 1.1)
pt3dadd(-615.5, 457, -863.5, 1.9)
pt3dadd(-612, 463.5, -862.5, 1.6)
pt3dadd(-608.5, 461.5, -875, 0.7)
}
dend[74] {pt3dclear()
pt3dadd(-41, 179, -101, 5.7)
pt3dadd(-39, 187, -103, 3.5)
pt3dadd(-33.5, 196.5, -109.5, 3.1)
pt3dadd(-31.5, 206, -115.5, 3.1)
}
}
proc shape3d_9() {
dend[74] { pt3dadd(-32.5, 215.5, -121.5, 3.5)
pt3dadd(-33.5, 223, -125, 3.6)
pt3dadd(-34.5, 233, -125.5, 2.9)
pt3dadd(-33.5, 245, -136, 4.1)
pt3dadd(-29, 251.5, -133.5, 3.8)
pt3dadd(-24, 257, -134, 3.4)
pt3dadd(-22, 267, -129, 3.2)
pt3dadd(-19.5, 274.5, -139.5, 3.2)
pt3dadd(-16.5, 286, -136.5, 3.4)
pt3dadd(-14.5, 296.5, -137.5, 3.8)
pt3dadd(-13.5, 305.5, -138, 4.1)
pt3dadd(-8.5, 312, -145, 3.2)
pt3dadd(-8, 324.5, -149, 3.7)
pt3dadd(-4.5, 331.5, -144, 3.8)
pt3dadd(-0.5, 339, -141, 3.7)
pt3dadd(4, 345.5, -145, 3.4)
pt3dadd(8, 352.5, -149, 4.1)
pt3dadd(11.5, 361.5, -152.5, 3.3)
pt3dadd(13.5, 370, -150, 3.5)
pt3dadd(15.5, 375, -147.5, 5.2)
}
dend[75] {pt3dclear()
pt3dadd(15.5, 375, -147.5, 5.2)
pt3dadd(26, 375.5, -167.5, 1.3)
pt3dadd(30.5, 377, -175, 1.1)
}
dend[76] {pt3dclear()
pt3dadd(15.5, 375, -147.5, 5.2)
pt3dadd(16.5, 386, -154.5, 3.1)
pt3dadd(17, 396.5, -146.5, 4.6)
pt3dadd(18.5, 406, -141.5, 3.2)
pt3dadd(21.5, 418.5, -148.5, 4.2)
pt3dadd(20.5, 429, -146.5, 4.1)
pt3dadd(22, 439.5, -150, 2.5)
pt3dadd(23, 449, -151, 3.7)
pt3dadd(26, 457.5, -155, 3.9)
pt3dadd(31.5, 465.5, -155.5, 3.5)
pt3dadd(34, 473, -159.5, 4.1)
pt3dadd(34.5, 484.5, -160.5, 3.2)
pt3dadd(38, 491.5, -161, 3.4)
pt3dadd(38.5, 504, -154, 2.9)
pt3dadd(49.5, 513, -161.5, 2.3)
pt3dadd(54.5, 520.5, -168.5, 4.1)
pt3dadd(58.5, 527, -166, 2.8)
pt3dadd(69.5, 529, -167, 3.5)
pt3dadd(74, 537.5, -168, 1.8)
pt3dadd(76.5, 545, -171.5, 3.3)
pt3dadd(78, 548, -175, 3.1)
pt3dadd(83.5, 555, -172, 3.7)
pt3dadd(88, 561.5, -180, 3)
pt3dadd(90.5, 571.5, -184, 1.6)
pt3dadd(94.5, 580, -185.5, 2.5)
pt3dadd(93.5, 589, -186.5, 3.9)
pt3dadd(96.5, 599, -181, 2.3)
pt3dadd(95, 609.5, -185.5, 1.6)
pt3dadd(97, 620.5, -186, 5.3)
pt3dadd(95.5, 632, -187, 3.2)
pt3dadd(96, 642, -191, 3.1)
pt3dadd(98, 650.5, -191.5, 1.4)
pt3dadd(99, 660.5, -195.5, 2.2)
pt3dadd(100.5, 669, -196, 2.3)
pt3dadd(102, 678, -203.5, 2)
pt3dadd(105, 687.5, -204.5, 2.4)
pt3dadd(108.5, 694, -205, 2.3)
pt3dadd(107.5, 703, -208.5, 2.5)
pt3dadd(106.5, 713, -209.5, 1.2)
pt3dadd(106, 723, -210.5, 2.3)
pt3dadd(109.5, 729.5, -211, 1.2)
pt3dadd(116.5, 735.5, -209, 2.2)
pt3dadd(124, 740, -216, 1.6)
pt3dadd(129, 745, -216.5, 3.3)
pt3dadd(134.5, 750.5, -214, 1.7)
pt3dadd(128, 759.5, -215, 1.5)
pt3dadd(122.5, 764.5, -215.5, 1.1)
pt3dadd(117.5, 769.5, -213, 1.1)
pt3dadd(111.5, 774, -223.5, 1.5)
pt3dadd(104, 776.5, -224, 1.5)
pt3dadd(97, 780.5, -216, 2.1)
pt3dadd(92.5, 786.5, -217, 1.5)
pt3dadd(91.5, 797, -217.5, 1.5)
pt3dadd(94, 805.5, -221.5, 1.7)
pt3dadd(97.5, 810.5, -225, 1.7)
pt3dadd(100, 818.5, -232.5, 1.6)
pt3dadd(102.5, 826.5, -229, 1)
pt3dadd(106, 837.5, -225, 1.1)
pt3dadd(110, 844, -225, 0.9)
pt3dadd(106, 851.5, -225, 1)
pt3dadd(101, 857, -221.5, 1.1)
pt3dadd(96, 862, -225, 1.2)
pt3dadd(95.5, 872.5, -229, 1.1)
pt3dadd(97, 881, -229, 1.1)
pt3dadd(96, 890, -229, 0.8)
pt3dadd(92, 896, -229, 0.8)
pt3dadd(86.5, 900.5, -229, 1.1)
pt3dadd(85, 901.5, -225, 1)
pt3dadd(78.5, 905, -223.5, 1.3)
pt3dadd(70.5, 908, -228, 1.5)
pt3dadd(64.5, 913.5, -232, 1.3)
pt3dadd(57.5, 918, -234.5, 1)
pt3dadd(55.5, 927.5, -246.5, 1.6)
pt3dadd(52, 934, -247.5, 1.2)
pt3dadd(50.5, 943, -256, 1.3)
pt3dadd(46, 948.5, -275, 1.5)
pt3dadd(42, 954.5, -277.5, 1.1)
pt3dadd(44.5, 962, -272.5, 1.1)
pt3dadd(47.5, 970.5, -274, 1.6)
pt3dadd(50, 978.5, -272.5, 0.7)
pt3dadd(51, 987.5, -275, 0.8)
pt3dadd(50.5, 998, -276, 0.8)
pt3dadd(48, 1005.5, -274.5, 0.9)
pt3dadd(50.5, 1015.5, -265.5, 0.9)
pt3dadd(45.5, 1022, -260, 0.8)
pt3dadd(42.5, 1029, -251.5, 0.7)
pt3dadd(41, 1037.5, -250, 0.7)
pt3dadd(37.5, 1044.5, -248.5, 0.7)
pt3dadd(34.5, 1052, -239, 0.8)
pt3dadd(32, 1061, -234.5, 0.8)
pt3dadd(27, 1067.5, -234, 0.8)
pt3dadd(25.5, 1073, -225, 0.8)
pt3dadd(25.5, 1084, -214, 0.8)
pt3dadd(19.5, 1091, -207.5, 0.8)
pt3dadd(17.5, 1102, -210.5, 0.8)
pt3dadd(21.5, 1110, -209, 0.8)
pt3dadd(26.5, 1118.5, -189.5, 0.8)
pt3dadd(28.5, 1126.5, -187.5, 0.7)
pt3dadd(33, 1132, -186, 0.7)
pt3dadd(32, 1134.5, -175, 0.7)
}
dend[77] {pt3dclear()
pt3dadd(70, 51.5, -44, 15)
pt3dadd(79, 57.5, -57, 7.2)
pt3dadd(87, 61, -63, 7.9)
pt3dadd(96, 61, -75, 9.4)
pt3dadd(102.5, 62, -96, 9.8)
}
dend[78] {pt3dclear()
pt3dadd(102.5, 62, -96, 9.8)
pt3dadd(115, 63.5, -103, 9.2)
pt3dadd(125.5, 66, -109, 8.4)
pt3dadd(131.5, 70, -103.5, 9.2)
pt3dadd(139, 76.5, -100.5, 13.1)
}
dend[79] {pt3dclear()
pt3dadd(139, 76.5, -100.5, 13.1)
pt3dadd(148, 77.5, -98.5, 5.7)
pt3dadd(158, 79.5, -113.5, 7.3)
pt3dadd(169, 80.5, -113, 6.6)
pt3dadd(181, 81, -118, 6.4)
pt3dadd(193, 81.5, -115, 7.1)
pt3dadd(205, 82, -127, 7.1)
pt3dadd(211.5, 84.5, -125, 7.1)
pt3dadd(224.5, 86, -132.5, 6.4)
pt3dadd(233, 89, -130.5, 7.3)
pt3dadd(243.5, 91, -142, 6.1)
pt3dadd(252, 93.5, -145, 6.3)
pt3dadd(261.5, 96.5, -137, 9.5)
}
dend[80] {pt3dclear()
pt3dadd(261.5, 96.5, -137, 9.5)
pt3dadd(269, 99.5, -137, 5.2)
pt3dadd(278.5, 104.5, -134.5, 5.5)
pt3dadd(287, 108.5, -140.5, 5.5)
pt3dadd(296, 112, -143.5, 4.8)
pt3dadd(303, 118, -150, 4.5)
pt3dadd(314, 120, -147, 5.9)
pt3dadd(324, 122.5, -140.5, 6.6)
pt3dadd(329, 123.5, -140.5, 8)
}
dend[81] {pt3dclear()
pt3dadd(329, 123.5, -140.5, 8)
pt3dadd(335, 129, -140.5, 4.1)
pt3dadd(342.5, 133, -140.5, 4.1)
pt3dadd(348.5, 137.5, -140.5, 4.1)
pt3dadd(356.5, 144, -140.5, 4)
pt3dadd(365.5, 152, -140.5, 3.8)
pt3dadd(371.5, 157, -140.5, 4.1)
pt3dadd(376, 161.5, -140.5, 7.1)
}
dend[82] {pt3dclear()
pt3dadd(376, 161.5, -140.5, 7.1)
pt3dadd(385, 164.5, -137.5, 3.7)
pt3dadd(391, 169, -137.5, 4.5)
pt3dadd(398, 173, -137, 4)
pt3dadd(407.5, 175, -140, 2.3)
pt3dadd(417, 176, -136.5, 2)
pt3dadd(425, 174, -139.5, 1.9)
pt3dadd(435, 173.5, -133, 2)
pt3dadd(443.5, 170.5, -135.5, 2.2)
pt3dadd(453, 172, -135.5, 1.5)
pt3dadd(460, 175.5, -141, 1.7)
pt3dadd(466.5, 179, -141, 1.8)
pt3dadd(475.5, 181.5, -137.5, 2.1)
pt3dadd(483, 184.5, -144, 2)
pt3dadd(492, 187.5, -146.5, 2)
pt3dadd(503.5, 187, -146.5, 1.4)
pt3dadd(509.5, 192, -139.5, 1.5)
pt3dadd(518, 194, -139, 1.8)
pt3dadd(527.5, 197, -145.5, 1.6)
pt3dadd(535, 200.5, -145, 1.5)
pt3dadd(546.5, 202.5, -145, 1.6)
pt3dadd(557.5, 205.5, -147.5, 1.5)
pt3dadd(567, 208.5, -156.5, 1.5)
pt3dadd(573, 213, -144, 1.7)
pt3dadd(581, 219, -143.5, 1.1)
pt3dadd(588.5, 223.5, -143.5, 1.4)
pt3dadd(596, 226.5, -140.5, 1.5)
pt3dadd(602, 231.5, -133.5, 1.6)
pt3dadd(610, 236.5, -140, 1.4)
pt3dadd(620, 240.5, -139.5, 1.3)
pt3dadd(629, 248, -132.5, 1.3)
}
dend[83] {pt3dclear()
pt3dadd(629, 248, -132.5, 1.3)
pt3dadd(636.5, 253.5, -135.5, 1.5)
pt3dadd(642, 259.5, -138.5, 1.5)
pt3dadd(647.5, 265.5, -138.5, 1.3)
pt3dadd(655.5, 268, -132, 1.4)
pt3dadd(662, 272, -131.5, 1.6)
}
}
proc shape3d_10() {
dend[83] { pt3dadd(672.5, 274.5, -119, 1.3)
pt3dadd(691.5, 275.5, -125, 1.3)
pt3dadd(698.5, 279, -125.5, 1.2)
pt3dadd(705, 282.5, -122.5, 0.9)
pt3dadd(710, 287.5, -120, 1.3)
pt3dadd(717, 292, -120.5, 1.7)
pt3dadd(725.5, 296, -115, 0.8)
pt3dadd(733.5, 299.5, -118.5, 0.9)
pt3dadd(739, 304.5, -122, 1.3)
pt3dadd(744.5, 310.5, -119.5, 0.6)
pt3dadd(751.5, 313.5, -123, 1.5)
pt3dadd(758.5, 316.5, -114.5, 0.7)
pt3dadd(770, 310, -123, 0.6)
pt3dadd(777, 305.5, -121.5, 0.5)
}
dend[84] {pt3dclear()
pt3dadd(777, 305.5, -121.5, 0.5)
pt3dadd(780.5, 299.5, -125, 0.6)
}
dend[85] {pt3dclear()
pt3dadd(777, 305.5, -121.5, 0.5)
pt3dadd(778.5, 309.5, -125, 1.2)
pt3dadd(782, 317.5, -159.5, 1.5)
pt3dadd(776, 313, -171.5, 1.6)
pt3dadd(779.5, 306.5, -186.5, 1.3)
pt3dadd(784.5, 300, -186.5, 1.2)
pt3dadd(790.5, 295, -198, 1.3)
pt3dadd(797.5, 298, -191, 1.3)
pt3dadd(805.5, 300.5, -203, 1.2)
pt3dadd(811.5, 306, -200, 1.1)
pt3dadd(814.5, 314.5, -221.5, 1.2)
pt3dadd(821.5, 318.5, -232, 1)
pt3dadd(831, 319, -240.5, 0.8)
pt3dadd(841, 319, -237, 0.7)
pt3dadd(850.5, 319.5, -250.5, 0.9)
pt3dadd(859, 323.5, -249.5, 0.8)
pt3dadd(868.5, 325, -260, 0.7)
pt3dadd(876.5, 323, -265, 0.7)
pt3dadd(886, 321, -267.5, 0.7)
pt3dadd(894, 318, -268.5, 0.8)
pt3dadd(901, 322.5, -269.5, 0.8)
pt3dadd(907, 327.5, -273, 0.8)
pt3dadd(914, 331, -274.5, 1.1)
pt3dadd(923, 333.5, -273.5, 0.8)
pt3dadd(929.5, 330.5, -271.5, 0.7)
pt3dadd(941, 329.5, -273.5, 0.8)
pt3dadd(950, 325, -271.5, 0.8)
pt3dadd(955.5, 319.5, -271.5, 0.7)
pt3dadd(957.5, 317, -271.5, 1.1)
pt3dadd(969.5, 317, -279.5, 1.2)
pt3dadd(978.5, 313.5, -276.5, 1.1)
pt3dadd(982, 306.5, -270.5, 1.1)
pt3dadd(988.5, 302.5, -267.5, 0.5)
pt3dadd(994, 297.5, -270, 0.4)
pt3dadd(996, 289.5, -266.5, 0.6)
pt3dadd(1002, 284, -269, 0.7)
pt3dadd(1006.5, 278, -271.5, 0.7)
pt3dadd(1012.5, 272.5, -260, 1)
pt3dadd(1016.5, 266.5, -262, 0.7)
pt3dadd(1020, 259.5, -261.5, 0.8)
pt3dadd(1026, 252, -264, 1)
pt3dadd(1030.5, 245, -264, 0.9)
pt3dadd(1034.5, 238.5, -266.5, 0.9)
pt3dadd(1039.5, 236, -271.5, 1.4)
pt3dadd(1045, 230.5, -279.5, 0.7)
pt3dadd(1051.5, 227, -284, 1.9)
pt3dadd(1060, 222.5, -296.5, 0.7)
pt3dadd(1061, 212, -304, 0.7)
pt3dadd(1062, 203, -308.5, 0.8)
pt3dadd(1064.5, 194.5, -313, 0.4)
pt3dadd(1067.5, 189.5, -321.5, 0.7)
pt3dadd(1073, 195, -328.5, 0.6)
pt3dadd(1077, 201.5, -331.5, 0.6)
pt3dadd(1089, 204, -328.5, 0.4)
pt3dadd(1098, 203.5, -321.5, 0.9)
pt3dadd(1095, 195.5, -320, 1.1)
pt3dadd(1085, 194, -320.5, 0.7)
pt3dadd(1078.5, 188.5, -327.5, 0.8)
pt3dadd(1075.5, 178.5, -326.5, 0.7)
pt3dadd(1067, 176.5, -322.5, 1.1)
pt3dadd(1058, 177.5, -326.5, 0.5)
pt3dadd(1051.5, 182, -327, 1.1)
pt3dadd(1048, 189, -321, 1.1)
pt3dadd(1052.5, 196, -321.5, 0.7)
}
dend[86] {pt3dclear()
pt3dadd(629, 248, -132.5, 1.3)
pt3dadd(636.5, 253.5, -128.5, 1.4)
pt3dadd(644.5, 257, -125, 1.1)
pt3dadd(650.5, 263.5, -123.5, 1.6)
pt3dadd(657, 270, -122, 1.6)
pt3dadd(663.5, 275, -113.5, 1.5)
pt3dadd(671.5, 277.5, -114, 1.8)
pt3dadd(677.5, 284.5, -110, 1.8)
pt3dadd(683.5, 291, -110, 1.9)
pt3dadd(688.5, 296, -111, 1.4)
pt3dadd(693.5, 301.5, -105, 1.4)
pt3dadd(700.5, 305, -99, 1.3)
pt3dadd(710, 308.5, -99.5, 1.7)
pt3dadd(715, 314, -91, 1.2)
pt3dadd(721.5, 320.5, -93, 1.2)
pt3dadd(731, 324, -82.5, 1.9)
}
dend[87] {pt3dclear()
pt3dadd(731, 324, -82.5, 1.9)
pt3dadd(740.5, 324.5, -83.5, 1.2)
pt3dadd(752, 325, -77.5, 1.7)
pt3dadd(760.5, 323.5, -76, 1.4)
pt3dadd(769.5, 322, -67.5, 1.9)
pt3dadd(778.5, 324, -61.5, 3.1)
pt3dadd(786.5, 326.5, -59, 1.6)
pt3dadd(795.5, 329, -57, 1.4)
pt3dadd(806.5, 329.5, -57.5, 1.5)
pt3dadd(817, 328.5, -42, 0.9)
pt3dadd(820, 325.5, -32.5, 0.9)
pt3dadd(828.5, 327, -21.5, 0.7)
pt3dadd(835.5, 332.5, -16, 0.3)
pt3dadd(843, 335, -5.5, 0.4)
pt3dadd(848.5, 339.5, -5, 0.5)
pt3dadd(856, 344, 1, 0.5)
pt3dadd(866.5, 345, 2, 0.4)
pt3dadd(872.5, 347.5, 17.5, 0.7)
}
dend[88] {pt3dclear()
pt3dadd(731, 324, -82.5, 1.9)
pt3dadd(735, 326.5, -71.5, 3.2)
}
dend[89] {pt3dclear()
pt3dadd(735, 326.5, -71.5, 3.2)
pt3dadd(738, 334, -59.5, 1.6)
pt3dadd(741, 341.5, -53, 1.4)
pt3dadd(745.5, 348, -42.5, 2.1)
pt3dadd(750, 353.5, -46.5, 2)
pt3dadd(759.5, 356, -42.5, 1.3)
pt3dadd(765, 361.5, -37.5, 3.4)
pt3dadd(769, 364, -32.5, 1.3)
pt3dadd(775.5, 369, -31.5, 1.5)
pt3dadd(784.5, 370.5, -27, 2.2)
pt3dadd(790.5, 374.5, -14, 4.6)
pt3dadd(797.5, 379.5, -11.5, 1.4)
pt3dadd(805.5, 384.5, -8, 2.2)
pt3dadd(816.5, 387, -2.5, 2.5)
pt3dadd(825, 391, -1, 1.3)
pt3dadd(831, 395, 0, 2.8)
pt3dadd(837.5, 399, 4, 0.8)
pt3dadd(846.5, 400.5, 8.5, 1.3)
pt3dadd(850.5, 407, 10, 1.4)
pt3dadd(853.5, 416, 17.5, 1.3)
}
dend[90] {pt3dclear()
pt3dadd(735, 326.5, -71.5, 3.2)
pt3dadd(737.5, 326, -82.5, 2.7)
}
dend[91] {pt3dclear()
pt3dadd(376, 161.5, -140.5, 7.1)
pt3dadd(376.5, 173, -136.5, 2.7)
pt3dadd(377.5, 184, -137.5, 2.6)
pt3dadd(380.5, 193.5, -142, 2.5)
}
dend[92] {pt3dclear()
pt3dadd(380.5, 193.5, -142, 2.5)
pt3dadd(381, 204, -150, 1.6)
}
dend[93] {pt3dclear()
pt3dadd(381, 204, -150, 1.6)
pt3dadd(385, 211, -154.5, 2.2)
pt3dadd(392, 216.5, -155.5, 1.6)
pt3dadd(404, 226.5, -159.5, 2)
pt3dadd(411.5, 233, -175, 2.3)
pt3dadd(416, 239, -168, 1.6)
pt3dadd(424, 243, -168, 1.9)
pt3dadd(427.5, 249.5, -177.5, 1.8)
pt3dadd(432, 255, -177.5, 1.6)
pt3dadd(439, 259.5, -177.5, 1.7)
pt3dadd(447, 264, -180.5, 1.9)
pt3dadd(454, 269, -174, 2)
pt3dadd(460.5, 273.5, -180, 1)
pt3dadd(465, 281, -174, 1.3)
pt3dadd(470.5, 286, -177, 2)
pt3dadd(475.5, 291, -177, 1.4)
pt3dadd(477, 300, -177, 3.2)
pt3dadd(480.5, 308, -182.5, 1.3)
pt3dadd(480, 319, -182.5, 1.5)
pt3dadd(479, 328.5, -179.5, 1.5)
pt3dadd(482, 336, -176.5, 1.6)
pt3dadd(488.5, 341.5, -179.5, 1)
pt3dadd(494, 346.5, -179.5, 1.3)
pt3dadd(498.5, 354.5, -173, 2.6)
pt3dadd(506, 360.5, -185.5, 1.1)
pt3dadd(513.5, 366, -188.5, 0.9)
pt3dadd(521.5, 369.5, -185.5, 1.3)
pt3dadd(526.5, 376, -185.5, 1.7)
pt3dadd(536, 378, -185.5, 1.2)
pt3dadd(541, 384.5, -179, 1.3)
pt3dadd(545, 390.5, -182, 1)
pt3dadd(550, 397.5, -179, 1.5)
pt3dadd(553.5, 405.5, -169, 1.7)
pt3dadd(560.5, 412, -181.5, 0.9)
pt3dadd(567, 416, -175.5, 1.4)
pt3dadd(572, 422, -175.5, 1.3)
pt3dadd(576.5, 430.5, -172.5, 1.1)
pt3dadd(580.5, 436.5, -172, 1.4)
pt3dadd(585.5, 442.5, -172, 1.1)
pt3dadd(595, 444, -172, 1.8)
pt3dadd(605.5, 444, -168.5, 0.9)
pt3dadd(614.5, 447.5, -172, 0.6)
pt3dadd(617.5, 456.5, -172, 0.8)
pt3dadd(620, 466, -168.5, 0.7)
pt3dadd(620.5, 467, -175, 0.7)
}
dend[94] {pt3dclear()
pt3dadd(381, 204, -150, 1.6)
pt3dadd(390, 205.5, -165, 3)
pt3dadd(385.5, 211, -161.5, 4.6)
pt3dadd(383, 220, -180, 4.5)
}
dend[95] {pt3dclear()
pt3dadd(383, 220, -180, 4.5)
pt3dadd(380, 230, -180.5, 3.2)
pt3dadd(379, 239, -194.5, 5)
pt3dadd(374.5, 244, -200, 2.6)
pt3dadd(364.5, 245, -201, 1.9)
pt3dadd(365, 254.5, -224, 3.3)
pt3dadd(360.5, 261.5, -237, 3)
}
}
proc shape3d_11() {
dend[95] { pt3dadd(360, 272, -240, 2.5)
pt3dadd(359, 275, -250, 2.5)
pt3dadd(362.5, 284, -248, 3.2)
pt3dadd(368, 289.5, -245.5, 2.5)
pt3dadd(372, 296, -257, 2.3)
pt3dadd(374, 304, -263, 2.3)
pt3dadd(376.5, 312.5, -265.5, 3.5)
pt3dadd(378.5, 322.5, -274, 3)
pt3dadd(381.5, 334, -277, 2.7)
pt3dadd(383, 354, -288.5, 3)
pt3dadd(386, 358, -300, 2.5)
pt3dadd(392, 365.5, -295.5, 2)
pt3dadd(399, 373, -309, 2.3)
pt3dadd(404, 379.5, -307, 2.2)
pt3dadd(406.5, 388.5, -312, 2.4)
pt3dadd(410.5, 395.5, -317.5, 2.3)
pt3dadd(410, 405, -331, 2.8)
pt3dadd(410.5, 415.5, -332.5, 2)
pt3dadd(414.5, 422.5, -341.5, 2.3)
pt3dadd(418.5, 430.5, -337.5, 2.9)
pt3dadd(416.5, 439, -341.5, 3)
pt3dadd(415, 443, -350, 3)
pt3dadd(419.5, 449.5, -348.5, 1.6)
pt3dadd(426.5, 453, -353, 2)
pt3dadd(431, 460, -354.5, 2.1)
pt3dadd(436, 465, -353, 1.9)
pt3dadd(438, 474.5, -357.5, 2.4)
pt3dadd(443, 479.5, -362, 1.6)
pt3dadd(445.5, 489.5, -367, 1.9)
pt3dadd(439.5, 496.5, -371, 2.8)
pt3dadd(446, 502, -382, 2)
pt3dadd(455.5, 504, -383.5, 1.6)
pt3dadd(465, 505.5, -391, 2.6)
pt3dadd(471.5, 510.5, -387, 1.7)
pt3dadd(474, 512, -400, 1.7)
pt3dadd(475, 521.5, -400.5, 1.6)
pt3dadd(479.5, 530, -397.5, 2)
pt3dadd(480.5, 539.5, -398, 1.9)
pt3dadd(486.5, 546.5, -405, 0.9)
pt3dadd(491.5, 554, -399, 1.3)
pt3dadd(490.5, 563, -403, 1.3)
pt3dadd(486.5, 570, -393.5, 1.3)
pt3dadd(483, 578, -404, 1.8)
pt3dadd(482.5, 587.5, -401.5, 1.5)
pt3dadd(480, 597, -395.5, 1.3)
pt3dadd(475, 604, -399, 1.2)
pt3dadd(474, 615.5, -406.5, 1.2)
pt3dadd(470, 624, -403.5, 1.4)
pt3dadd(470, 634, -411, 1.3)
pt3dadd(467.5, 642, -411.5, 1)
pt3dadd(466, 652, -412, 1.2)
pt3dadd(466, 663, -419.5, 1.6)
pt3dadd(463.5, 670.5, -420, 1.4)
pt3dadd(459, 678, -420.5, 1.2)
pt3dadd(457, 688, -414, 1.2)
pt3dadd(457, 698, -414.5, 1.3)
pt3dadd(458, 707, -412, 1.3)
pt3dadd(455.5, 718.5, -400, 1.5)
}
dend[96] {pt3dclear()
pt3dadd(383, 220, -180, 4.5)
pt3dadd(389, 224, -192, 3.5)
pt3dadd(395, 229, -199.5, 3.8)
pt3dadd(398, 229, -200, 3.8)
pt3dadd(402.5, 236, -201.5, 3.1)
pt3dadd(412, 238, -214, 2.6)
pt3dadd(410.5, 246.5, -232, 3.4)
pt3dadd(406.5, 253, -243.5, 3.5)
pt3dadd(403.5, 258, -250, 3.1)
pt3dadd(410, 261.5, -256.5, 2.9)
pt3dadd(408, 270.5, -262, 2.7)
pt3dadd(406.5, 286.5, -279, 3.1)
pt3dadd(413.5, 290.5, -296, 3.4)
pt3dadd(415.5, 292.5, -300, 3.4)
pt3dadd(418, 297, -313.5, 3.3)
}
dend[97] {pt3dclear()
pt3dadd(418, 297, -313.5, 3.3)
pt3dadd(407.5, 297, -327, 1.3)
pt3dadd(404, 289.5, -350, 2.2)
}
dend[98] {pt3dclear()
pt3dadd(418, 297, -313.5, 3.3)
pt3dadd(415.5, 308.5, -318.5, 2.8)
pt3dadd(419.5, 314.5, -332.5, 3.1)
pt3dadd(426, 318, -337, 3.1)
pt3dadd(428.5, 325, -350, 2.9)
pt3dadd(438.5, 325, -362.5, 3.2)
pt3dadd(447, 326.5, -364.5, 3)
pt3dadd(441.5, 332, -371, 3)
pt3dadd(450.5, 333.5, -383, 3)
pt3dadd(456.5, 338.5, -388.5, 2.5)
pt3dadd(462, 343.5, -393.5, 2.5)
pt3dadd(467, 349, -400, 2.1)
pt3dadd(471, 355.5, -399, 2.4)
pt3dadd(480.5, 356.5, -407.5, 1.8)
pt3dadd(490.5, 355.5, -420, 2.2)
pt3dadd(499, 357.5, -420.5, 2.5)
pt3dadd(507, 361.5, -423.5, 2.5)
pt3dadd(513, 367, -426, 2.2)
pt3dadd(524.5, 367, -441.5, 2.6)
pt3dadd(534, 370.5, -440.5, 2.1)
pt3dadd(541, 375, -441, 1.7)
pt3dadd(545.5, 376, -450, 1.3)
pt3dadd(554, 378, -458, 2.9)
pt3dadd(563, 379.5, -456.5, 1.8)
pt3dadd(571.5, 381, -457.5, 2.2)
pt3dadd(578, 386, -458.5, 1.7)
pt3dadd(583, 391, -466, 1.6)
pt3dadd(591.5, 393.5, -471, 2.5)
pt3dadd(600, 390.5, -480, 2)
pt3dadd(611, 392.5, -478, 1.8)
pt3dadd(621.5, 392.5, -482.5, 1.6)
pt3dadd(628.5, 388, -480, 1.8)
pt3dadd(637, 392, -481, 1.9)
pt3dadd(649, 390.5, -500, 2.2)
}
dend[99] {pt3dclear()
pt3dadd(380.5, 193.5, -142, 2.5)
pt3dadd(387.5, 192.5, -144, 4.3)
pt3dadd(389, 192.5, -143, 4.2)
pt3dadd(396.5, 196.5, -150, 6.9)
pt3dadd(402, 199.5, -153, 10.9)
}
dend[100] {pt3dclear()
pt3dadd(402, 199.5, -153, 10.9)
pt3dadd(408, 195.5, -154, 5.5)
pt3dadd(419.5, 193.5, -156, 5.1)
pt3dadd(439.5, 185.5, -154, 5)
pt3dadd(449.5, 184.5, -157.5, 3.2)
pt3dadd(457, 181.5, -161, 3.5)
pt3dadd(465.5, 179.5, -159.5, 3.5)
pt3dadd(473.5, 181.5, -160.5, 3.8)
pt3dadd(480, 177.5, -162, 3.7)
pt3dadd(491, 175.5, -168.5, 3.2)
pt3dadd(500, 178, -175, 3)
pt3dadd(507.5, 181.5, -176, 3.2)
pt3dadd(516.5, 184.5, -177.5, 3.9)
pt3dadd(523.5, 187.5, -181, 4.3)
pt3dadd(530.5, 189, -193, 3.7)
pt3dadd(538.5, 192, -202.5, 2.8)
pt3dadd(542, 184, -206, 3.2)
pt3dadd(550.5, 180.5, -225, 3.4)
pt3dadd(560, 181, -237, 2.9)
pt3dadd(569, 183, -243, 3.5)
pt3dadd(574, 188, -262, 1.9)
}
dend[101] {pt3dclear()
pt3dadd(574, 188, -262, 1.9)
pt3dadd(584, 190, -276.5, 1)
pt3dadd(594.5, 189.5, -289.5, 1.3)
pt3dadd(599, 189, -293, 1.6)
pt3dadd(605, 193, -294.5, 1.2)
pt3dadd(613.5, 194.5, -313, 1.3)
pt3dadd(619, 189.5, -322.5, 0.9)
pt3dadd(629, 190, -339, 0.8)
pt3dadd(634, 193.5, -343, 1.1)
pt3dadd(644, 193, -355.5, 1)
pt3dadd(647.5, 196, -356.5, 1.9)
}
dend[102] {pt3dclear()
pt3dadd(647.5, 196, -356.5, 1.9)
pt3dadd(654.5, 200.5, -364, 1.2)
pt3dadd(664, 203, -365.5, 1)
pt3dadd(673.5, 204, -376, 1.7)
pt3dadd(682, 205.5, -375.5, 1.1)
pt3dadd(689.5, 207.5, -393, 1.6)
pt3dadd(700, 206.5, -413.5, 1.5)
pt3dadd(709.5, 208.5, -417.5, 1.3)
pt3dadd(718, 207, -424.5, 1.3)
pt3dadd(727, 205, -435.5, 1.1)
pt3dadd(735, 202, -442.5, 1.1)
pt3dadd(739, 199.5, -443, 1.1)
pt3dadd(744, 191.5, -448, 2.5)
pt3dadd(749.5, 187, -462, 2)
pt3dadd(742.5, 182, -469, 1.9)
pt3dadd(750.5, 179, -476.5, 3.1)
pt3dadd(752, 179, -493, 3.1)
pt3dadd(754.5, 171.5, -512.5, 3.9)
}
dend[103] {pt3dclear()
pt3dadd(754.5, 171.5, -512.5, 3.9)
pt3dadd(751, 171, -543, 2.8)
}
dend[104] {pt3dclear()
pt3dadd(754.5, 171.5, -512.5, 3.9)
pt3dadd(756.5, 163, -534.5, 2.6)
pt3dadd(759, 153, -543, 2.6)
pt3dadd(763, 147, -570, 3.2)
pt3dadd(768, 145.5, -569.5, 2.4)
}
dend[105] {pt3dclear()
pt3dadd(768, 145.5, -569.5, 2.4)
pt3dadd(776.5, 142, -578.5, 1.2)
pt3dadd(776, 132, -571, 1.3)
pt3dadd(773, 124.5, -593, 1.2)
pt3dadd(778, 119.5, -594.5, 0.9)
pt3dadd(781.5, 111.5, -601.5, 0.8)
pt3dadd(789, 108, -613.5, 1.1)
pt3dadd(794, 103, -616.5, 1.3)
pt3dadd(798, 97, -625, 1.1)
pt3dadd(803, 92, -637.5, 1.2)
pt3dadd(810, 88, -644, 0.8)
pt3dadd(809.5, 83.5, -643, 1.1)
}
dend[106] {pt3dclear()
pt3dadd(768, 145.5, -569.5, 2.4)
pt3dadd(771.5, 139.5, -593, 2.7)
pt3dadd(776.5, 132.5, -594.5, 1.9)
pt3dadd(783, 128, -602, 1)
pt3dadd(792.5, 125.5, -608.5, 1.9)
pt3dadd(798, 118.5, -612.5, 2.2)
pt3dadd(801, 110, -632, 2.4)
pt3dadd(799, 101.5, -632.5, 2.3)
pt3dadd(805, 97.5, -642.5, 1.6)
pt3dadd(813, 92, -647.5, 1.1)
pt3dadd(814, 91, -643, 1.3)
}
dend[107] {pt3dclear()
pt3dadd(647.5, 196, -356.5, 1.9)
pt3dadd(650.5, 194.5, -343, 0.6)
}
dend[108] {pt3dclear()
pt3dadd(574, 188, -262, 1.9)
pt3dadd(576, 184, -293, 2.2)
}
dend[109] {pt3dclear()
pt3dadd(402, 199.5, -153, 10.9)
}
}
proc shape3d_12() {
dend[109] { pt3dadd(406.5, 204, -143, 6.5)
pt3dadd(418, 199, -158.5, 5.1)
pt3dadd(425.5, 196, -164.5, 5.4)
pt3dadd(436, 193.5, -169.5, 4.1)
pt3dadd(444.5, 190, -173, 6.2)
pt3dadd(446, 190, -173.5, 7.7)
}
dend[110] {pt3dclear()
pt3dadd(446, 190, -173.5, 7.7)
pt3dadd(447, 179, -172.5, 2)
pt3dadd(446, 169, -173, 1.9)
pt3dadd(442, 160, -173.5, 2)
pt3dadd(438, 154, -172, 1.8)
pt3dadd(431, 147, -172.5, 1.4)
pt3dadd(424.5, 141.5, -173, 1.6)
pt3dadd(419.5, 135.5, -173.5, 2)
pt3dadd(411, 132.5, -172, 1.3)
pt3dadd(405, 128, -179, 1.6)
pt3dadd(396.5, 125, -179.5, 1.2)
pt3dadd(389.5, 121.5, -180, 1.4)
pt3dadd(384.5, 115.5, -180, 1.7)
pt3dadd(379, 109.5, -178.5, 1.3)
pt3dadd(372, 103.5, -179, 1.3)
pt3dadd(365.5, 99.5, -179.5, 1.2)
pt3dadd(361.5, 92, -178, 1.3)
pt3dadd(362.5, 83, -177, 1.5)
pt3dadd(361.5, 74, -183.5, 1.3)
pt3dadd(361, 64, -180.5, 1.3)
pt3dadd(358.5, 53, -183, 1.9)
pt3dadd(354.5, 45, -183.5, 1.6)
pt3dadd(350.5, 37.5, -184.5, 1.4)
pt3dadd(345.5, 30, -185, 1.5)
pt3dadd(343.5, 22, -185.5, 1.8)
pt3dadd(337.5, 16.5, -188, 0.9)
pt3dadd(334, 9.5, -190, 1)
pt3dadd(334.5, 1, -193, 1.1)
pt3dadd(330, -4.5, -196.5, 1.1)
pt3dadd(324, -10.5, -204.5, 1)
pt3dadd(319, -15.5, -204, 1.6)
pt3dadd(313, -19.5, -210, 1)
pt3dadd(307, -25.5, -209, 1)
pt3dadd(303.5, -32.5, -214.5, 1.1)
pt3dadd(302, -41, -221.5, 1.2)
pt3dadd(296, -45, -220, 0.9)
pt3dadd(291.5, -52, -218.5, 0.8)
pt3dadd(287, -58, -220, 1.6)
pt3dadd(281.5, -64, -221.5, 1.9)
pt3dadd(277, -69.5, -226, 1.3)
pt3dadd(273, -76, -230, 1.3)
pt3dadd(269, -83, -239.5, 0.8)
pt3dadd(264.5, -88.5, -238, 0.6)
pt3dadd(263.5, -96, -243, 0.5)
pt3dadd(265.5, -106, -241.5, 0.9)
pt3dadd(265, -116, -244, 0.8)
pt3dadd(263, -124, -246.5, 0.8)
pt3dadd(263.5, -134, -246, 0.4)
pt3dadd(260.5, -134.5, -243, 0.6)
pt3dadd(259, -143.5, -224.5, 1.3)
pt3dadd(254.5, -149.5, -219, 0.4)
pt3dadd(250.5, -155.5, -202.5, 0.8)
pt3dadd(253.5, -158.5, -193, 0.7)
pt3dadd(256.5, -166, -189.5, 0.2)
pt3dadd(255.5, -175.5, -189, 0.2)
pt3dadd(248, -182, -189.5, 0.3)
pt3dadd(239.5, -184.5, -190.5, 0.1)
pt3dadd(231.5, -186.5, -189.5, 0.2)
pt3dadd(220.5, -187.5, -193, 0.1)
}
dend[111] {pt3dclear()
pt3dadd(446, 190, -173.5, 7.7)
pt3dadd(454.5, 192.5, -169.5, 4.5)
pt3dadd(463, 194.5, -172, 3.8)
pt3dadd(472, 198, -174, 3.2)
pt3dadd(480, 202.5, -172, 3.7)
pt3dadd(488.5, 206.5, -170, 3.8)
pt3dadd(495.5, 212.5, -172, 4.1)
pt3dadd(502, 217, -172, 3.7)
pt3dadd(510, 221.5, -174, 3.7)
pt3dadd(516.5, 225, -174, 3.3)
pt3dadd(524, 228.5, -176.5, 3)
pt3dadd(534.5, 233.5, -172.5, 3.3)
pt3dadd(542, 237.5, -174.5, 3.7)
pt3dadd(550, 239, -174.5, 4.7)
}
dend[112] {pt3dclear()
pt3dadd(550, 239, -174.5, 4.7)
pt3dadd(559, 237, -173, 1.3)
pt3dadd(570.5, 237, -169, 1.1)
pt3dadd(580, 235, -162.5, 1.7)
pt3dadd(590.5, 232.5, -158.5, 1.3)
pt3dadd(600, 234.5, -154, 1.1)
pt3dadd(609, 233.5, -152.5, 1.1)
pt3dadd(617, 229.5, -148.5, 1.1)
pt3dadd(626.5, 228.5, -145, 1)
pt3dadd(636.5, 228, -143, 0.9)
pt3dadd(647, 228, -143, 0.9)
}
dend[113] {pt3dclear()
pt3dadd(550, 239, -174.5, 4.7)
pt3dadd(558, 241, -179, 2.7)
pt3dadd(565.5, 246, -180.5, 2.8)
pt3dadd(573.5, 249.5, -187, 3.2)
pt3dadd(580.5, 255.5, -193, 3)
pt3dadd(586.5, 260, -188, 2.8)
pt3dadd(593, 263.5, -191, 2.5)
pt3dadd(599.5, 267, -197, 2.7)
pt3dadd(605.5, 271, -195, 2.4)
pt3dadd(612, 275.5, -195.5, 3.2)
pt3dadd(618, 279.5, -198.5, 3)
pt3dadd(627.5, 283, -204.5, 2.9)
pt3dadd(636, 287.5, -200, 2.8)
pt3dadd(644, 292, -206, 2.8)
pt3dadd(652.5, 296.5, -207, 2.3)
pt3dadd(661.5, 299, -207.5, 2.7)
pt3dadd(668.5, 302.5, -208, 2)
pt3dadd(678, 305.5, -204, 2.3)
pt3dadd(688.5, 308.5, -207, 2.3)
pt3dadd(698.5, 311, -213.5, 2.1)
pt3dadd(706.5, 316, -208.5, 2.3)
pt3dadd(715.5, 320, -209.5, 2.1)
pt3dadd(723.5, 323, -210, 2.6)
pt3dadd(732, 325.5, -208, 2.3)
pt3dadd(742, 329, -211, 3.1)
pt3dadd(749, 332, -214, 3)
}
dend[114] {pt3dclear()
pt3dadd(749, 332, -214, 3)
pt3dadd(758, 334, -213.5, 1.9)
pt3dadd(764.5, 338, -216.5, 1.7)
pt3dadd(770.5, 344.5, -213.5, 1.6)
pt3dadd(778, 349.5, -216.5, 2.2)
pt3dadd(784, 354.5, -223, 1.6)
pt3dadd(790.5, 358.5, -227, 1.5)
pt3dadd(795.5, 364.5, -227.5, 2.1)
pt3dadd(804, 366.5, -228.5, 1.5)
pt3dadd(810, 371.5, -229.5, 1.8)
pt3dadd(817, 376.5, -232.5, 1.9)
pt3dadd(823, 381, -236.5, 1.9)
pt3dadd(827, 384.5, -243, 1.8)
pt3dadd(833, 390, -244, 1.4)
pt3dadd(841, 395, -245.5, 1.8)
pt3dadd(849, 398.5, -247.5, 1.6)
pt3dadd(856, 402, -253, 2)
pt3dadd(863.5, 407, -257.5, 1.6)
pt3dadd(870.5, 411, -266, 1.5)
pt3dadd(873, 418.5, -262, 1.3)
pt3dadd(880, 422, -266.5, 1.5)
pt3dadd(884.5, 428.5, -269.5, 1.7)
pt3dadd(892.5, 432, -266.5, 1.5)
pt3dadd(899.5, 435, -274.5, 1.3)
pt3dadd(905.5, 439.5, -279, 1.9)
pt3dadd(911.5, 445, -287, 1.7)
pt3dadd(919.5, 449.5, -289, 1.6)
pt3dadd(922, 451.5, -293, 1.6)
pt3dadd(930.5, 453, -292.5, 1.7)
pt3dadd(937.5, 457, -292.5, 1.7)
pt3dadd(947.5, 461, -295.5, 1.7)
pt3dadd(957, 463.5, -295, 1.4)
pt3dadd(964, 466.5, -295, 1.4)
pt3dadd(972, 469.5, -298, 1.6)
pt3dadd(981.5, 472, -294.5, 1.3)
pt3dadd(990, 477, -297.5, 1.3)
pt3dadd(999, 480.5, -300, 1.4)
pt3dadd(1010.5, 482, -297, 1.3)
pt3dadd(1020.5, 483, -296.5, 1.3)
pt3dadd(1028, 486.5, -293.5, 1.6)
pt3dadd(1037, 485.5, -293.5, 1.3)
pt3dadd(1044.5, 488.5, -296, 1.4)
pt3dadd(1044, 498.5, -293, 1.3)
pt3dadd(1042, 509, -293, 2)
pt3dadd(1046, 517, -292.5, 1.4)
pt3dadd(1049, 524, -289.5, 1)
pt3dadd(1053.5, 531.5, -292, 1.1)
pt3dadd(1060, 536, -292, 1.3)
pt3dadd(1065, 543, -295, 0.9)
pt3dadd(1065, 553.5, -294.5, 1)
pt3dadd(1061, 561.5, -294.5, 0.9)
pt3dadd(1064.5, 568, -297, 1)
pt3dadd(1068, 575, -294, 1)
pt3dadd(1073, 581, -293.5, 1.2)
pt3dadd(1076.5, 590, -296.5, 1.3)
pt3dadd(1079.5, 600, -299.5, 1.6)
pt3dadd(1082.5, 609, -293, 1.9)
}
dend[115] {pt3dclear()
pt3dadd(749, 332, -214, 3)
pt3dadd(755, 334.5, -193, 1.6)
pt3dadd(763, 336.5, -187, 1.9)
pt3dadd(773, 339, -193, 2.2)
pt3dadd(784.5, 340.5, -193, 2.2)
pt3dadd(794.5, 342, -191, 1.8)
pt3dadd(804, 345, -189, 2.2)
pt3dadd(813.5, 348, -191, 2.5)
pt3dadd(823, 349.5, -187.5, 2.6)
pt3dadd(833.5, 349.5, -187.5, 2)
pt3dadd(850.5, 350.5, -191.5, 2.5)
pt3dadd(860.5, 352.5, -191.5, 2)
pt3dadd(867, 356.5, -193.5, 2)
pt3dadd(878, 360, -189.5, 2.3)
pt3dadd(886, 364.5, -191.5, 2.3)
pt3dadd(898, 367, -194, 2)
pt3dadd(907, 370, -192, 1.7)
pt3dadd(916, 371.5, -188, 2.2)
pt3dadd(923, 377, -186, 1.7)
pt3dadd(932.5, 380, -188, 2.2)
pt3dadd(941.5, 382.5, -190, 2.2)
pt3dadd(951.5, 384, -188, 1.5)
pt3dadd(962, 385, -190.5, 1.8)
pt3dadd(973.5, 384.5, -190.5, 2.6)
pt3dadd(983.5, 386, -188.5, 2.7)
pt3dadd(996.5, 386, -194.5, 1.7)
pt3dadd(1008.5, 386, -186.5, 1.2)
}
}
proc shape3d_13() {
dend[115] { pt3dadd(1015.5, 390.5, -192.5, 1.7)
pt3dadd(1022, 391.5, -193, 1.6)
pt3dadd(1030, 395, -192.5, 2)
pt3dadd(1037.5, 399.5, -198, 1.5)
pt3dadd(1049, 399.5, -198, 1.8)
pt3dadd(1056.5, 403.5, -197.5, 1.6)
pt3dadd(1064.5, 406, -197.5, 1.6)
pt3dadd(1074, 408, -200, 1.6)
pt3dadd(1086, 407, -202.5, 1.1)
pt3dadd(1095, 408, -191.5, 1.8)
pt3dadd(1102, 412.5, -191.5, 2.5)
pt3dadd(1110, 416, -199, 1.8)
pt3dadd(1116, 420.5, -199, 1.5)
pt3dadd(1122, 424.5, -199, 1.7)
pt3dadd(1130, 428, -193.5, 1.4)
pt3dadd(1136, 432, -196.5, 1.3)
pt3dadd(1144, 435.5, -198.5, 1.2)
pt3dadd(1152, 438, -193, 1.9)
pt3dadd(1156.5, 442, -193, 1.1)
pt3dadd(1162.5, 447, -181, 1)
pt3dadd(1170, 451, -185, 1.1)
pt3dadd(1179, 454.5, -187.5, 1.1)
pt3dadd(1184.5, 461.5, -185.5, 1.2)
pt3dadd(1189, 467, -184, 0.8)
pt3dadd(1193, 474, -188, 1.2)
pt3dadd(1198.5, 478.5, -186, 1.4)
pt3dadd(1204.5, 482.5, -186, 1.2)
pt3dadd(1211.5, 487, -186.5, 0.9)
pt3dadd(1218.5, 492.5, -190.5, 1.1)
pt3dadd(1224.5, 496.5, -193, 1.1)
pt3dadd(1233, 499.5, -195, 1.1)
pt3dadd(1238, 506, -197.5, 1.7)
pt3dadd(1246, 508.5, -203, 1)
pt3dadd(1252, 514.5, -218.5, 1.9)
pt3dadd(1255, 523.5, -220, 1)
pt3dadd(1256.5, 533, -223, 1)
pt3dadd(1261, 538.5, -227, 1.2)
pt3dadd(1265.5, 544, -236.5, 0.8)
pt3dadd(1267, 547.5, -243, 0.8)
}
dend[116] {pt3dclear()
pt3dadd(329, 123.5, -140.5, 8)
pt3dadd(341, 125, -156.5, 3.5)
pt3dadd(352, 126, -159, 4.1)
pt3dadd(361.5, 127.5, -167, 4.1)
pt3dadd(372.5, 130, -160, 4)
pt3dadd(380, 133.5, -161, 4.4)
pt3dadd(390.5, 137.5, -159.5, 4.3)
pt3dadd(401, 142, -167, 4.4)
pt3dadd(408.5, 147.5, -165.5, 4.3)
pt3dadd(416, 151, -166.5, 4.5)
pt3dadd(422, 155.5, -167.5, 4.1)
pt3dadd(429.5, 161, -175, 3.7)
pt3dadd(435.5, 164, -184, 6.3)
}
dend[117] {pt3dclear()
pt3dadd(435.5, 164, -184, 6.3)
pt3dadd(443, 160, -185, 1.6)
pt3dadd(452.5, 160.5, -186, 1.7)
pt3dadd(463, 160.5, -181.5, 1.6)
pt3dadd(472, 159.5, -193.5, 1.3)
pt3dadd(479.5, 162, -192, 1.3)
pt3dadd(487.5, 164.5, -192.5, 1.7)
pt3dadd(495.5, 166.5, -194, 1.5)
pt3dadd(502.5, 163.5, -198, 1.3)
pt3dadd(512.5, 163.5, -202, 1.3)
pt3dadd(523, 161, -206.5, 1.3)
pt3dadd(533, 162.5, -207.5, 1)
pt3dadd(540.5, 165.5, -212, 0.9)
pt3dadd(551, 165.5, -220.5, 0.8)
pt3dadd(559, 168.5, -225, 0.8)
pt3dadd(569, 168.5, -224, 0.9)
pt3dadd(577.5, 170.5, -223.5, 1)
pt3dadd(586.5, 172.5, -228.5, 1.3)
pt3dadd(595.5, 177.5, -235, 0.7)
pt3dadd(603.5, 181, -226, 0.9)
pt3dadd(609.5, 185, -225.5, 1.3)
pt3dadd(616.5, 185, -225, 1)
}
dend[118] {pt3dclear()
pt3dadd(435.5, 164, -184, 6.3)
pt3dadd(440.5, 169, -185, 4.1)
pt3dadd(447, 174, -186, 3.7)
pt3dadd(455.5, 180.5, -187.5, 4.6)
pt3dadd(460, 186.5, -195.5, 4.1)
pt3dadd(459, 195.5, -196.5, 3.5)
pt3dadd(468, 201, -205, 4.1)
pt3dadd(475, 204, -209.5, 3.8)
pt3dadd(483, 206.5, -217, 3.1)
pt3dadd(491.5, 209.5, -222.5, 3)
pt3dadd(500.5, 212.5, -219.5, 4.1)
pt3dadd(509, 214, -227.5, 4.1)
pt3dadd(512, 216, -225, 3.5)
pt3dadd(518, 217, -238, 4.3)
}
dend[119] {pt3dclear()
pt3dadd(518, 217, -238, 4.3)
pt3dadd(528, 219, -238.5, 4.2)
pt3dadd(536.5, 222, -242.5, 4)
pt3dadd(545, 226, -243, 3.3)
pt3dadd(554.5, 228, -243, 3.5)
pt3dadd(563, 229.5, -246.5, 4.1)
pt3dadd(572.5, 228, -246.5, 3.8)
pt3dadd(578.5, 229.5, -250.5, 5.6)
}
dend[120] {pt3dclear()
pt3dadd(578.5, 229.5, -250.5, 5.6)
pt3dadd(585, 233, -251.5, 1.7)
pt3dadd(594, 235, -252, 2.3)
pt3dadd(601, 238, -253, 1.5)
pt3dadd(610.5, 240.5, -250.5, 1.6)
pt3dadd(618, 245.5, -254.5, 1.6)
pt3dadd(624.5, 249, -262.5, 1.7)
pt3dadd(633, 252, -263.5, 2.3)
pt3dadd(637, 259, -264, 1.7)
pt3dadd(641, 268, -265, 1.2)
pt3dadd(650, 271, -265.5, 1.7)
pt3dadd(657, 275, -270, 2.3)
pt3dadd(664.5, 278, -270.5, 1.4)
pt3dadd(671.5, 278.5, -275, 1.4)
pt3dadd(677.5, 284, -285, 1.3)
pt3dadd(688, 284, -280, 1.2)
pt3dadd(696, 281, -277.5, 1.5)
pt3dadd(704.5, 284, -287.5, 2.4)
pt3dadd(714.5, 284, -285, 1.4)
pt3dadd(720, 289.5, -290.5, 1.4)
pt3dadd(729.5, 288.5, -290.5, 1.6)
pt3dadd(739, 289, -290.5, 1.5)
pt3dadd(751, 289.5, -295.5, 2.2)
pt3dadd(760.5, 288.5, -293, 1.8)
pt3dadd(770, 285.5, -295.5, 1.7)
pt3dadd(780.5, 285.5, -298.5, 1.4)
pt3dadd(788, 282, -301, 1.3)
pt3dadd(797.5, 279.5, -298.5, 1.9)
pt3dadd(804.5, 276, -298.5, 1.7)
pt3dadd(814, 273.5, -298.5, 1)
pt3dadd(820.5, 277, -301, 1.9)
pt3dadd(827.5, 280, -301, 1.9)
pt3dadd(837.5, 281.5, -299, 1.6)
pt3dadd(849, 284, -299, 1.3)
pt3dadd(851.5, 291.5, -289, 1)
pt3dadd(856, 298, -291.5, 1.2)
pt3dadd(861, 303, -289, 1.3)
pt3dadd(870.5, 307, -289.5, 1.3)
pt3dadd(879, 305.5, -294.5, 1.7)
pt3dadd(886, 302, -292, 0.9)
pt3dadd(893, 297, -287, 1)
pt3dadd(902, 295.5, -282, 1.7)
pt3dadd(911.5, 296.5, -277, 0.6)
pt3dadd(912, 294.5, -275, 0.9)
pt3dadd(919.5, 298, -274, 0.9)
pt3dadd(929, 300.5, -276, 0.6)
pt3dadd(940, 299.5, -274, 0.9)
pt3dadd(950.5, 298, -276.5, 0.5)
pt3dadd(959, 294.5, -263.5, 0.8)
pt3dadd(964.5, 299, -262.5, 0.9)
pt3dadd(966.5, 307, -257.5, 0.9)
pt3dadd(970, 314, -249.5, 0.6)
pt3dadd(974, 322.5, -251.5, 0.7)
pt3dadd(976, 330.5, -257, 0.8)
pt3dadd(977, 340, -252.5, 0.8)
pt3dadd(978.5, 348.5, -251.5, 0.4)
pt3dadd(981.5, 356.5, -238, 0.7)
pt3dadd(989.5, 360.5, -247.5, 0.9)
pt3dadd(993.5, 367, -230, 0.6)
pt3dadd(999.5, 372, -222, 0.2)
pt3dadd(1003, 374, -225, 0.2)
pt3dadd(1009.5, 377.5, -225, 0.7)
pt3dadd(1019, 379.5, -225, 1.1)
pt3dadd(1029, 382, -228.5, 1.8)
}
dend[121] {pt3dclear()
pt3dadd(1029, 382, -228.5, 1.8)
pt3dadd(1031, 382, -225, 1.8)
}
dend[122] {pt3dclear()
pt3dadd(1029, 382, -228.5, 1.8)
pt3dadd(1026, 390, -231, 1.2)
pt3dadd(1033, 393.5, -234, 0.8)
pt3dadd(1030, 402.5, -241, 0.9)
pt3dadd(1036, 406.5, -246.5, 1.1)
pt3dadd(1038, 415, -249.5, 1.5)
pt3dadd(1042.5, 421.5, -256, 0.9)
pt3dadd(1046, 428.5, -255.5, 1.7)
pt3dadd(1048, 437.5, -262, 1.2)
pt3dadd(1051.5, 445.5, -265, 1.9)
pt3dadd(1051.5, 452, -278.5, 1.6)
pt3dadd(1049.5, 462, -274.5, 1.6)
pt3dadd(1053, 471.5, -283, 0.8)
pt3dadd(1050, 479, -278.5, 1.8)
pt3dadd(1043.5, 485, -277.5, 0.8)
pt3dadd(1038.5, 490, -268, 0.8)
pt3dadd(1031.5, 496.5, -270, 1.2)
pt3dadd(1025.5, 503, -269.5, 0.9)
pt3dadd(1026, 511.5, -278.5, 1.1)
pt3dadd(1029.5, 521.5, -272.5, 1.4)
pt3dadd(1035, 530, -263, 1)
pt3dadd(1037.5, 538, -272.5, 1)
pt3dadd(1032, 544, -275.5, 0.9)
pt3dadd(1026.5, 549.5, -272.5, 0.9)
pt3dadd(1020, 550.5, -278.5, 1.1)
}
dend[123] {pt3dclear()
pt3dadd(578.5, 229.5, -250.5, 5.6)
pt3dadd(582.5, 240, -278.5, 4.1)
pt3dadd(584, 244.5, -275, 4.1)
}
dend[124] {pt3dclear()
pt3dadd(518, 217, -238, 4.3)
pt3dadd(526, 212.5, -225, 1.3)
}
dend[125] {pt3dclear()
pt3dadd(261.5, 96.5, -137, 9.5)
pt3dadd(268, 91.5, -138.5, 4.8)
pt3dadd(277.5, 90, -157, 4.3)
pt3dadd(285.5, 85, -158.5, 3)
pt3dadd(293.5, 81, -160, 3.2)
pt3dadd(301, 77, -164.5, 3.8)
pt3dadd(310.5, 72.5, -165, 3.9)
pt3dadd(318, 69.5, -175, 3.5)
}
}
proc shape3d_14() {
dend[125] { pt3dadd(326.5, 67, -173, 3.2)
pt3dadd(335, 65, -184, 3.1)
pt3dadd(343, 61, -185.5, 3.1)
pt3dadd(350, 57.5, -189.5, 3)
pt3dadd(360, 59, -188, 2.9)
pt3dadd(364, 53, -199, 2.7)
pt3dadd(369.5, 47.5, -197, 3.4)
pt3dadd(370, 45.5, -207, 4.3)
}
dend[126] {pt3dclear()
pt3dadd(370, 45.5, -207, 4.3)
pt3dadd(378.5, 42.5, -215, 1.6)
pt3dadd(391.5, 38, -223.5, 2)
pt3dadd(395, 38, -225, 2)
pt3dadd(404, 36.5, -233.5, 1.8)
pt3dadd(412.5, 34, -231, 1.3)
pt3dadd(418, 29, -232, 2.1)
pt3dadd(426, 25.5, -237.5, 2)
pt3dadd(435, 26.5, -243, 2.4)
pt3dadd(445, 25, -240.5, 1.9)
pt3dadd(453.5, 22.5, -241.5, 1.4)
pt3dadd(461.5, 25.5, -245.5, 1.6)
pt3dadd(471.5, 27.5, -251, 1.6)
pt3dadd(480.5, 26, -252.5, 2.5)
}
dend[127] {pt3dclear()
pt3dadd(480.5, 26, -252.5, 2.5)
pt3dadd(475, 29.5, -275, 1.1)
}
dend[128] {pt3dclear()
pt3dadd(480.5, 26, -252.5, 2.5)
pt3dadd(490, 24, -257, 1.8)
pt3dadd(498.5, 21, -266, 1)
pt3dadd(508, 18.5, -264, 1.3)
pt3dadd(508, 14.5, -275, 0.8)
pt3dadd(516.5, 9.5, -280.5, 0.8)
pt3dadd(524, 6.5, -286.5, 0.8)
pt3dadd(531, 3, -287, 0.9)
pt3dadd(539, -0.5, -287.5, 1.1)
pt3dadd(546.5, -4, -293.5, 0.8)
pt3dadd(554, -7.5, -291.5, 1.5)
pt3dadd(561, -11.5, -297.5, 0.7)
pt3dadd(568.5, -15.5, -303, 0.8)
pt3dadd(574, -20.5, -303.5, 1.2)
pt3dadd(582, -25.5, -307, 1.1)
pt3dadd(588, -29.5, -307.5, 1.4)
pt3dadd(593.5, -34.5, -310.5, 0.9)
pt3dadd(600, -41.5, -311, 1.1)
pt3dadd(606, -45.5, -314, 1.1)
pt3dadd(611.5, -50.5, -314.5, 1.9)
pt3dadd(619, -54, -315, 1.1)
pt3dadd(627, -56, -318, 1.2)
pt3dadd(635, -59.5, -321.5, 1)
pt3dadd(643.5, -61.5, -324.5, 1.2)
pt3dadd(644.5, -63, -325, 1.2)
pt3dadd(653.5, -60.5, -330, 1.1)
pt3dadd(663.5, -58, -340.5, 0.9)
pt3dadd(671, -54, -348, 0.9)
pt3dadd(674.5, -46, -356.5, 0.8)
pt3dadd(681, -42, -357, 1)
pt3dadd(681.5, -41.5, -375, 1.1)
pt3dadd(690, -39.5, -371, 1.2)
pt3dadd(697.5, -35.5, -376.5, 0.7)
pt3dadd(704, -30.5, -379, 1)
pt3dadd(710.5, -25.5, -381, 1.1)
pt3dadd(715.5, -20, -383, 0.6)
pt3dadd(722, -16, -392.5, 0.3)
pt3dadd(731, -13.5, -393, 0.7)
pt3dadd(737.5, -9.5, -398, 0.4)
pt3dadd(749, -9, -401.5, 0.9)
pt3dadd(757, -7, -416.5, 0.9)
pt3dadd(760.5, -3.5, -425, 0.9)
}
dend[129] {pt3dclear()
pt3dadd(370, 45.5, -207, 4.3)
pt3dadd(372, 39.5, -225, 2)
pt3dadd(380, 42, -241.5, 2)
pt3dadd(382.5, 32.5, -261.5, 2.8)
pt3dadd(382, 22.5, -275, 3)
}
dend[130] {pt3dclear()
pt3dadd(139, 76.5, -100.5, 13.1)
pt3dadd(137, 86, -113.5, 6.4)
pt3dadd(134, 95.5, -125, 5.5)
pt3dadd(128.5, 104, -132.5, 5.1)
pt3dadd(124, 110, -133.5, 5.7)
pt3dadd(116.5, 118, -135.5, 4.7)
pt3dadd(111, 126.5, -137, 6.3)
pt3dadd(108, 136, -142, 3.7)
pt3dadd(103.5, 145.5, -150, 4.8)
pt3dadd(99.5, 151.5, -145, 5.5)
pt3dadd(94, 156.5, -146, 5.1)
pt3dadd(91.5, 161, -147, 5.9)
}
dend[131] {pt3dclear()
pt3dadd(91.5, 161, -147, 5.9)
pt3dadd(96, 169.5, -148, 2.3)
pt3dadd(91.5, 177.5, -153.5, 2.3)
pt3dadd(84, 180, -161.5, 1.9)
pt3dadd(75, 183, -163, 1.9)
pt3dadd(73.5, 189.5, -175, 2)
pt3dadd(63, 188, -178.5, 1.7)
pt3dadd(58, 194, -191, 1.9)
pt3dadd(52, 198, -205, 1.9)
pt3dadd(45, 202, -211, 1.7)
pt3dadd(42, 210, -216.5, 2.5)
pt3dadd(40, 212.5, -225, 2.5)
pt3dadd(36.5, 219, -228, 2.6)
pt3dadd(39.5, 228.5, -245, 1.9)
pt3dadd(44, 235.5, -259, 1.4)
pt3dadd(39, 241, -262, 1.6)
pt3dadd(37, 249, -275, 1.9)
pt3dadd(33.5, 257, -300, 2.5)
pt3dadd(37, 265, -315, 1.3)
pt3dadd(39.5, 274, -325, 1.7)
pt3dadd(33.5, 278.5, -323.5, 1.2)
pt3dadd(39.5, 282.5, -333, 1.5)
pt3dadd(37, 292, -348, 1.2)
pt3dadd(34.5, 300.5, -354.5, 1.5)
pt3dadd(32, 309, -357.5, 1.5)
pt3dadd(29, 308.5, -375, 1.3)
pt3dadd(28, 317.5, -376.5, 1.7)
pt3dadd(27, 327, -384.5, 1.6)
pt3dadd(32.5, 331.5, -387.5, 1.1)
pt3dadd(23.5, 332.5, -393.5, 1.3)
pt3dadd(26.5, 339.5, -400.5, 1.3)
pt3dadd(23, 345.5, -425, 2.1)
pt3dadd(19.5, 352, -439.5, 1.2)
pt3dadd(18.5, 363, -452, 1.3)
pt3dadd(14.5, 370.5, -459, 2)
pt3dadd(8.5, 376.5, -475, 1.2)
pt3dadd(2.5, 384.5, -481, 1.3)
pt3dadd(3.5, 391.5, -475, 1.7)
pt3dadd(2, 400, -475.5, 0.8)
pt3dadd(-3.5, 405, -486, 1.4)
pt3dadd(1, 412, -497.5, 1)
pt3dadd(1, 423, -515.5, 1)
pt3dadd(6, 428, -525, 1.3)
pt3dadd(13.5, 431, -527, 0.9)
pt3dadd(23.5, 431, -533, 1.2)
pt3dadd(32.5, 433.5, -527.5, 0.9)
pt3dadd(36, 441, -527, 0.8)
pt3dadd(39.5, 448, -531.5, 0.9)
pt3dadd(40, 457.5, -534, 0.7)
pt3dadd(43, 466, -530, 0.7)
pt3dadd(49, 474, -519, 0.7)
pt3dadd(56.5, 480, -521.5, 0.7)
pt3dadd(65, 484.5, -524.5, 0.9)
pt3dadd(73.5, 490, -520, 0.6)
pt3dadd(79, 498.5, -525.5, 0.6)
pt3dadd(81, 506.5, -522, 0.4)
pt3dadd(82, 510.5, -525, 0.4)
}
dend[132] {pt3dclear()
pt3dadd(91.5, 161, -147, 5.9)
pt3dadd(83, 165, -154.5, 4.1)
pt3dadd(76.5, 169, -159, 4.3)
pt3dadd(69, 175, -154.5, 4)
pt3dadd(62, 179.5, -159.5, 4.6)
pt3dadd(56, 186, -167.5, 5.7)
pt3dadd(50.5, 188, -175, 4.4)
pt3dadd(43.5, 193.5, -186, 3.5)
pt3dadd(37, 189.5, -192, 3.3)
pt3dadd(29.5, 194.5, -200, 5.5)
pt3dadd(25.5, 203, -202.5, 5.9)
pt3dadd(20.5, 211, -208, 5.2)
pt3dadd(14.5, 217, -218, 4.5)
pt3dadd(10, 223, -225, 5.1)
pt3dadd(11, 225.5, -235, 2.7)
}
dend[133] {pt3dclear()
pt3dadd(11, 225.5, -235, 2.7)
pt3dadd(16.5, 221, -234, 1.5)
pt3dadd(23, 217, -240.5, 1)
pt3dadd(31, 215, -240, 1.4)
pt3dadd(39, 213, -239.5, 1.1)
pt3dadd(48, 214.5, -238, 0.9)
pt3dadd(59, 214.5, -237, 0.9)
pt3dadd(67.5, 216, -236.5, 0.9)
pt3dadd(76.5, 217, -224.5, 0.9)
pt3dadd(85.5, 219, -234.5, 1)
pt3dadd(96.5, 220, -229.5, 0.9)
pt3dadd(108.5, 221.5, -228.5, 1)
pt3dadd(118.5, 223, -227, 1.3)
pt3dadd(129.5, 223, -230.5, 1.6)
pt3dadd(140.5, 225.5, -229.5, 0.8)
pt3dadd(148, 228.5, -225, 0.7)
pt3dadd(157, 227, -214.5, 2.6)
pt3dadd(167, 228.5, -204, 4)
}
dend[134] {pt3dclear()
pt3dadd(167, 228.5, -204, 4)
pt3dadd(172, 233.5, -202.5, 2)
pt3dadd(183, 235, -205, 2)
pt3dadd(192, 237, -203.5, 2.3)
pt3dadd(201.5, 239.5, -200.5, 2.3)
pt3dadd(212.5, 242, -203, 1.9)
pt3dadd(220, 245, -203.5, 1.4)
pt3dadd(231, 247, -206, 1.4)
pt3dadd(242.5, 250, -209, 1.3)
pt3dadd(254.5, 252, -205.5, 2.3)
pt3dadd(265, 250, -208.5, 1.6)
pt3dadd(273.5, 255.5, -209, 1.3)
pt3dadd(285, 256.5, -209.5, 1.5)
pt3dadd(294.5, 252.5, -206, 1.5)
pt3dadd(302.5, 247, -211, 1.8)
pt3dadd(308.5, 243, -213, 1.3)
pt3dadd(317, 241.5, -213.5, 1.6)
}
dend[135] {pt3dclear()
pt3dadd(317, 241.5, -213.5, 1.6)
pt3dadd(328, 241.5, -220, 1.1)
pt3dadd(336.5, 239.5, -225, 1.3)
}
dend[136] {pt3dclear()
pt3dadd(317, 241.5, -213.5, 1.6)
pt3dadd(316, 249.5, -223.5, 2.5)
}
dend[137] {pt3dclear()
pt3dadd(316, 249.5, -223.5, 2.5)
pt3dadd(322.5, 245.5, -243.5, 1.6)
pt3dadd(330, 248, -245, 1.5)
pt3dadd(336, 249.5, -263.5, 1.8)
pt3dadd(346.5, 250.5, -280.5, 1.3)
}
}
proc shape3d_15() {
dend[137] { pt3dadd(355.5, 253, -275.5, 1.1)
pt3dadd(367.5, 254, -288.5, 1.6)
pt3dadd(373, 248.5, -293.5, 1.6)
pt3dadd(380.5, 245.5, -296, 2.2)
pt3dadd(391, 242.5, -299, 1.4)
pt3dadd(403, 241.5, -313.5, 1.8)
pt3dadd(410, 238, -313.5, 1.3)
pt3dadd(412, 228, -317, 1)
pt3dadd(411, 218, -314.5, 1.5)
pt3dadd(421, 217.5, -320.5, 1.8)
pt3dadd(427.5, 212, -332.5, 1.3)
pt3dadd(434.5, 208, -327.5, 1.1)
pt3dadd(443.5, 207, -328.5, 1.4)
pt3dadd(454, 206, -326, 1.4)
pt3dadd(462, 209.5, -329, 1)
pt3dadd(471.5, 206, -332, 0.9)
pt3dadd(482, 207, -327, 1)
pt3dadd(490.5, 204.5, -330, 0.9)
pt3dadd(496, 199, -330.5, 0.9)
pt3dadd(504.5, 196.5, -330.5, 1.1)
pt3dadd(512, 194, -333.5, 0.5)
pt3dadd(519.5, 191.5, -333.5, 0.8)
pt3dadd(524, 186, -333.5, 1.2)
pt3dadd(528.5, 191.5, -323, 0.9)
pt3dadd(532.5, 200, -326, 0.9)
pt3dadd(536.5, 206, -323.5, 0.7)
pt3dadd(541, 211.5, -307.5, 1.5)
pt3dadd(548, 218, -313, 1.1)
pt3dadd(553, 218.5, -313.5, 1.8)
pt3dadd(563, 224.5, -309.5, 1.4)
pt3dadd(564.5, 234.5, -309, 1.2)
pt3dadd(560.5, 242.5, -308.5, 1.6)
pt3dadd(560, 252.5, -308, 1)
pt3dadd(562.5, 260, -308, 1.1)
pt3dadd(565.5, 270.5, -303.5, 1)
pt3dadd(570, 277, -299, 0.9)
pt3dadd(573.5, 284, -302.5, 1)
pt3dadd(573, 293.5, -302.5, 0.9)
pt3dadd(570.5, 301.5, -290, 0.9)
pt3dadd(570, 313.5, -296.5, 1.1)
pt3dadd(572, 323, -306.5, 1.1)
pt3dadd(578, 328.5, -291.5, 1.1)
pt3dadd(579, 339, -290.5, 1.2)
pt3dadd(582, 347, -294, 1.2)
pt3dadd(571.5, 341, -297, 1.2)
}
dend[138] {pt3dclear()
pt3dadd(571.5, 341, -297, 1.2)
pt3dadd(565, 335.5, -300, 1.2)
pt3dadd(558.5, 327.5, -313.5, 1.3)
}
dend[139] {pt3dclear()
pt3dadd(571.5, 341, -297, 1.2)
pt3dadd(578, 345.5, -298, 1.8)
pt3dadd(576.5, 354.5, -308.5, 2.5)
pt3dadd(582, 360, -306.5, 2)
pt3dadd(587.5, 365.5, -307, 1.8)
pt3dadd(590, 373.5, -308, 1.9)
pt3dadd(593, 382, -315, 1.6)
pt3dadd(593, 393, -312.5, 1.9)
pt3dadd(593, 404.5, -314, 1.4)
pt3dadd(590.5, 412.5, -312, 2.1)
pt3dadd(588, 423.5, -319.5, 1.8)
pt3dadd(586, 431.5, -320, 2.6)
pt3dadd(583.5, 441.5, -321, 1.7)
pt3dadd(583, 451, -324.5, 1.4)
pt3dadd(577, 458, -319, 1.8)
pt3dadd(574.5, 466, -323.5, 1.6)
pt3dadd(576, 476, -330.5, 1.3)
pt3dadd(575.5, 487, -332, 1.7)
pt3dadd(579, 498.5, -334, 1.9)
pt3dadd(580, 509, -334.5, 1.5)
pt3dadd(577, 518.5, -335.5, 1.4)
pt3dadd(577.5, 528, -333.5, 1.5)
pt3dadd(577.5, 540, -332, 1.1)
pt3dadd(576.5, 550.5, -333.5, 1.7)
pt3dadd(572, 559.5, -334, 1.6)
pt3dadd(568, 565.5, -338, 1.5)
pt3dadd(567, 575, -338.5, 2.1)
pt3dadd(563.5, 583.5, -340, 1.1)
pt3dadd(561, 590.5, -347, 0.9)
pt3dadd(562, 600, -355, 0.9)
pt3dadd(563, 609, -352, 1.2)
pt3dadd(562, 618, -348.5, 1.4)
pt3dadd(561, 628, -345.5, 2.1)
pt3dadd(565.5, 634.5, -345.5, 1.1)
pt3dadd(566.5, 645, -354, 1.3)
pt3dadd(569, 654, -358, 1.1)
pt3dadd(569.5, 665, -358, 1.2)
pt3dadd(571.5, 673, -355, 1.6)
pt3dadd(576, 678.5, -359, 1.1)
pt3dadd(585.5, 679.5, -352, 1.4)
pt3dadd(595, 678, -356.5, 1.2)
pt3dadd(604, 679.5, -349.5, 1.3)
pt3dadd(609, 685.5, -353.5, 0.7)
pt3dadd(610.5, 687, -347, 0.7)
pt3dadd(609.5, 696.5, -344, 1.2)
pt3dadd(605.5, 702.5, -345, 1)
pt3dadd(599.5, 709.5, -338.5, 0.9)
pt3dadd(592.5, 716.5, -337.5, 0.8)
pt3dadd(587, 723.5, -330.5, 0.8)
pt3dadd(583.5, 730.5, -332, 0.8)
pt3dadd(575.5, 734, -301, 0.8)
pt3dadd(573, 734.5, -297, 0.8)
}
dend[140] {pt3dclear()
pt3dadd(316, 249.5, -223.5, 2.5)
pt3dadd(310.5, 249, -213.5, 1.5)
}
dend[141] {pt3dclear()
pt3dadd(167, 228.5, -204, 4)
pt3dadd(175.5, 232.5, -200.5, 3.2)
pt3dadd(186, 231.5, -189.5, 3.2)
pt3dadd(196.5, 232, -186, 2.7)
pt3dadd(199, 232, -175, 3)
pt3dadd(209, 232, -174, 2.2)
pt3dadd(218.5, 232.5, -166.5, 2.2)
pt3dadd(225.5, 235.5, -164, 1.5)
pt3dadd(235.5, 238, -159.5, 2)
pt3dadd(243.5, 240.5, -157.5, 2.5)
pt3dadd(251.5, 243.5, -155, 2.2)
pt3dadd(259.5, 247.5, -148.5, 2.2)
pt3dadd(262.5, 255.5, -146, 2.7)
pt3dadd(264.5, 264.5, -143.5, 2.1)
pt3dadd(273.5, 268.5, -139, 1.8)
pt3dadd(284.5, 269, -134.5, 2.2)
pt3dadd(290.5, 273, -128.5, 2.2)
pt3dadd(297, 276.5, -126, 2.1)
pt3dadd(299.5, 276.5, -125, 2.1)
pt3dadd(307.5, 280.5, -118, 2.3)
pt3dadd(316, 282.5, -105.5, 3.2)
pt3dadd(323.5, 280, -91.5, 1.5)
pt3dadd(324, 277, -75, 0.5)
pt3dadd(333, 278, -54.5, 1.9)
pt3dadd(341, 276, -51.5, 2)
pt3dadd(344.5, 283, -42.5, 1.4)
pt3dadd(349.5, 286.5, -25, 1.6)
pt3dadd(359, 285.5, -14.5, 1.9)
pt3dadd(362.5, 292, 1.5, 1.4)
pt3dadd(366.5, 298.5, 3.5, 1.4)
pt3dadd(367, 309.5, 25, 1.2)
pt3dadd(370, 311, 40, 3.2)
}
dend[142] {pt3dclear()
pt3dadd(370, 311, 40, 3.2)
pt3dadd(377.5, 313.5, 46, 1.4)
pt3dadd(386, 316.5, 52, 1.3)
pt3dadd(397, 317.5, 56.5, 1.9)
pt3dadd(404.5, 320.5, 58, 1.1)
pt3dadd(411.5, 316.5, 63.5, 1.1)
pt3dadd(418, 313, 59.5, 1.8)
pt3dadd(426, 309.5, 66, 1)
pt3dadd(435.5, 307, 65.5, 2)
pt3dadd(442.5, 309.5, 75, 1.1)
pt3dadd(453.5, 308, 68, 1.1)
pt3dadd(461, 310.5, 78.5, 1.2)
pt3dadd(464, 319.5, 79.5, 1.4)
pt3dadd(469, 325, 80.5, 1.5)
pt3dadd(475.5, 330, 85.5, 0.9)
pt3dadd(478, 337.5, 91, 1.1)
pt3dadd(485, 341.5, 92.5, 1)
pt3dadd(493.5, 343.5, 93.5, 1)
pt3dadd(499, 348.5, 99, 1.3)
pt3dadd(504.5, 354, 100, 1.5)
pt3dadd(509, 359.5, 101, 1.1)
pt3dadd(516, 363.5, 102, 1.4)
pt3dadd(521.5, 369.5, 103.5, 0.8)
pt3dadd(527.5, 374.5, 108.5, 1)
pt3dadd(533, 379.5, 109.5, 0.9)
pt3dadd(535, 388, 111.5, 1)
pt3dadd(539.5, 394, 120, 1.2)
pt3dadd(544, 398.5, 125, 1.3)
pt3dadd(553, 401.5, 130, 1.3)
pt3dadd(562.5, 405.5, 130, 1.1)
pt3dadd(569.5, 411, 130, 1.1)
pt3dadd(575, 417.5, 127.5, 0.9)
pt3dadd(581.5, 422, 127.5, 0.9)
pt3dadd(586.5, 428, 130, 0.9)
pt3dadd(588.5, 436, 127.5, 1.1)
pt3dadd(593, 443.5, 130.5, 1)
pt3dadd(599.5, 449.5, 135.5, 1)
pt3dadd(607, 452.5, 128, 1.1)
pt3dadd(614, 457.5, 123, 1)
pt3dadd(623, 460, 125.5, 0.9)
pt3dadd(630, 456, 128.5, 0.7)
pt3dadd(638, 458.5, 133.5, 0.8)
pt3dadd(642, 466, 133.5, 0.8)
pt3dadd(644, 476, 131, 0.8)
pt3dadd(645.5, 484.5, 131, 0.9)
pt3dadd(643, 493, 129, 1.2)
pt3dadd(647.5, 500.5, 129, 0.9)
pt3dadd(653.5, 508, 129, 1.2)
pt3dadd(661, 511, 134, 1.3)
pt3dadd(667, 515.5, 134, 0.8)
pt3dadd(669, 524.5, 134, 0.8)
pt3dadd(674.5, 529, 134, 0.8)
pt3dadd(677.5, 536.5, 136.5, 0.8)
pt3dadd(679, 546.5, 137, 0.9)
pt3dadd(684.5, 552.5, 132, 0.7)
pt3dadd(690, 558, 132, 0.4)
pt3dadd(687.5, 566, 124.5, 0.1)
pt3dadd(691, 573, 122, 1.7)
pt3dadd(698, 573.5, 125, 0.8)
pt3dadd(704.5, 581, 126, 0.8)
pt3dadd(708, 587.5, 121, 0.9)
pt3dadd(713, 594, 126.5, 0.3)
pt3dadd(717, 598.5, 125, 0.6)
}
dend[143] {pt3dclear()
pt3dadd(370, 311, 40, 3.2)
pt3dadd(377.5, 307.5, 35.5, 1.2)
pt3dadd(380.5, 300.5, 23, 1.6)
}
}
proc shape3d_16() {
dend[143] { pt3dadd(380.5, 296.5, 25, 1.7)
}
dend[144] {pt3dclear()
pt3dadd(11, 225.5, -235, 2.7)
pt3dadd(16, 232, -230.5, 1.6)
pt3dadd(10, 236.5, -225.5, 3.4)
pt3dadd(6, 243.5, -231, 4.5)
pt3dadd(-1, 250, -229, 4.3)
pt3dadd(-12, 250.5, -242.5, 4.1)
pt3dadd(-20.5, 255, -252, 3.7)
pt3dadd(-28, 260.5, -262, 3.8)
pt3dadd(-32, 267, -275, 4.8)
pt3dadd(-38.5, 271, -277.5, 3.5)
pt3dadd(-46.5, 274, -293, 4.1)
pt3dadd(-49, 274, -294, 4.1)
}
dend[145] {pt3dclear()
pt3dadd(-49, 274, -294, 4.1)
pt3dadd(-61, 272, -294, 1.9)
pt3dadd(-70.5, 274.5, -295.5, 1.9)
pt3dadd(-76.5, 278.5, -305.5, 1.6)
pt3dadd(-84, 274.5, -310, 1.6)
pt3dadd(-94.5, 275, -315, 1.7)
pt3dadd(-100.5, 278.5, -325, 2.2)
pt3dadd(-105, 273, -326.5, 1.6)
pt3dadd(-113.5, 270.5, -337, 1.8)
pt3dadd(-117, 263, -343.5, 1.6)
pt3dadd(-123, 256, -345, 1.4)
pt3dadd(-127, 247.5, -348, 2.1)
pt3dadd(-132.5, 242, -350, 2.1)
pt3dadd(-140, 238.5, -365, 1.7)
pt3dadd(-148, 234, -364.5, 1.7)
pt3dadd(-152.5, 228.5, -366, 1.8)
pt3dadd(-153, 226.5, -375, 2.1)
pt3dadd(-161.5, 224, -370.5, 1.9)
pt3dadd(-166.5, 218, -379, 1.6)
pt3dadd(-177.5, 216.5, -398.5, 1.8)
pt3dadd(-187.5, 217.5, -409.5, 1.3)
pt3dadd(-192.5, 211.5, -425, 1.7)
}
dend[146] {pt3dclear()
pt3dadd(-49, 274, -294, 4.1)
pt3dadd(-55.5, 270.5, -297.5, 2.7)
pt3dadd(-60, 278, -301.5, 4)
pt3dadd(-63, 286, -308, 4.8)
pt3dadd(-67.5, 295, -312, 4.3)
pt3dadd(-73.5, 299, -318, 3.2)
pt3dadd(-78.5, 305.5, -322, 3.5)
pt3dadd(-85, 311, -325, 4)
pt3dadd(-94, 313, -328.5, 4.4)
pt3dadd(-101, 309.5, -339, 3.4)
pt3dadd(-101, 307, -344, 5)
}
dend[147] {pt3dclear()
pt3dadd(-101, 307, -344, 5)
pt3dadd(-108, 304, -348.5, 2.2)
pt3dadd(-112.5, 298.5, -348.5, 2.6)
pt3dadd(-119, 295, -344.5, 2.8)
pt3dadd(-126.5, 289.5, -345, 2.3)
pt3dadd(-131, 281, -356, 2.2)
pt3dadd(-134.5, 278.5, -359.5, 3)
}
dend[148] {pt3dclear()
pt3dadd(-134.5, 278.5, -359.5, 3)
pt3dadd(-138.5, 269.5, -355, 1.5)
pt3dadd(-147, 265.5, -354.5, 1.2)
pt3dadd(-152.5, 260, -360.5, 1.8)
pt3dadd(-156.5, 254, -365.5, 1.3)
pt3dadd(-164, 250, -367, 1.5)
pt3dadd(-169.5, 244.5, -372, 1.2)
pt3dadd(-177.5, 242.5, -367.5, 1.3)
pt3dadd(-185.5, 240, -377.5, 1.2)
pt3dadd(-188.5, 239, -375, 1.2)
pt3dadd(-200, 241, -369.5, 1.4)
pt3dadd(-209.5, 243, -375, 1.3)
pt3dadd(-219, 241, -368, 1.2)
pt3dadd(-226, 236.5, -375, 1.1)
pt3dadd(-233, 232, -375, 0.9)
pt3dadd(-243.5, 231, -371.5, 1.1)
pt3dadd(-253, 230.5, -364.5, 1.8)
pt3dadd(-265.5, 227, -375, 1.6)
pt3dadd(-279, 227, -378.5, 1.2)
pt3dadd(-288, 223.5, -375, 1)
pt3dadd(-297, 221.5, -371.5, 1.1)
pt3dadd(-306, 220, -371.5, 1.1)
pt3dadd(-317.5, 218, -371.5, 1.2)
pt3dadd(-325.5, 214.5, -364.5, 1.1)
pt3dadd(-334, 212, -364.5, 1.1)
pt3dadd(-341.5, 206.5, -361, 1.2)
pt3dadd(-347, 202, -361, 1)
pt3dadd(-355, 198, -364.5, 0.9)
pt3dadd(-360.5, 190.5, -361, 0.9)
pt3dadd(-364, 183.5, -371.5, 1)
pt3dadd(-372, 178.5, -364.5, 0.8)
pt3dadd(-379.5, 173, -364.5, 0.8)
pt3dadd(-385.5, 167.5, -368, 0.8)
pt3dadd(-390.5, 162, -361, 1.4)
pt3dadd(-391, 160.5, -375, 1.2)
pt3dadd(-397.5, 156.5, -369.5, 1.2)
pt3dadd(-401.5, 150, -369.5, 1.1)
pt3dadd(-410.5, 147.5, -372.5, 0.8)
pt3dadd(-416.5, 140.5, -372.5, 1)
pt3dadd(-421.5, 134.5, -369.5, 1.1)
pt3dadd(-427.5, 128, -378, 0.5)
pt3dadd(-431, 121.5, -378, 0.7)
pt3dadd(-434.5, 113, -372.5, 0.9)
pt3dadd(-440.5, 107.5, -383.5, 1)
pt3dadd(-446.5, 101.5, -378, 0.8)
pt3dadd(-454.5, 99, -378, 0.9)
pt3dadd(-460, 94.5, -378, 1)
pt3dadd(-469.5, 93, -375, 1.7)
pt3dadd(-479, 94.5, -372.5, 1.3)
pt3dadd(-489.5, 92.5, -375, 0.9)
pt3dadd(-498, 90, -375, 0.7)
pt3dadd(-502.5, 89, -375, 0.9)
}
dend[149] {pt3dclear()
pt3dadd(-134.5, 278.5, -359.5, 3)
pt3dadd(-145.5, 279.5, -375, 2.2)
pt3dadd(-152, 285.5, -377.5, 1.9)
pt3dadd(-162, 293, -384.5, 2.4)
pt3dadd(-171.5, 296, -395, 2.2)
pt3dadd(-175, 303, -404.5, 2.5)
pt3dadd(-184, 305, -402.5, 2)
pt3dadd(-191.5, 308.5, -405, 1.6)
pt3dadd(-200, 310, -419.5, 2.3)
pt3dadd(-209.5, 312.5, -425, 1.5)
pt3dadd(-218.5, 314, -426.5, 1.9)
pt3dadd(-224.5, 320.5, -422.5, 2)
pt3dadd(-234.5, 320.5, -431.5, 1.6)
pt3dadd(-244.5, 320.5, -455, 1.6)
pt3dadd(-254, 318.5, -475, 1.6)
pt3dadd(-263.5, 317, -479, 1.4)
pt3dadd(-269.5, 322.5, -480, 1.6)
pt3dadd(-278.5, 319.5, -483.5, 1.6)
pt3dadd(-286, 316.5, -494, 1.5)
pt3dadd(-292.5, 312.5, -492.5, 1.4)
pt3dadd(-300, 310, -496.5, 1.5)
pt3dadd(-307.5, 313, -497.5, 1.6)
pt3dadd(-316, 315, -494.5, 1.7)
pt3dadd(-332.5, 318, -502.5, 1.3)
pt3dadd(-340.5, 314, -507.5, 1.2)
pt3dadd(-345.5, 309, -508.5, 1)
pt3dadd(-354, 305, -504.5, 1.7)
pt3dadd(-365.5, 304, -500, 1.8)
pt3dadd(-375.5, 304, -501, 1.4)
pt3dadd(-386, 301.5, -506, 1.6)
pt3dadd(-395.5, 302.5, -517.5, 1.7)
pt3dadd(-407.5, 302, -522, 2.1)
pt3dadd(-417, 299.5, -517.5, 1.1)
pt3dadd(-424, 302, -525, 1.4)
pt3dadd(-431.5, 307, -515, 1)
pt3dadd(-439, 310.5, -522, 1.3)
pt3dadd(-448, 313, -522, 1.3)
pt3dadd(-457, 315, -525.5, 1.1)
pt3dadd(-469, 316, -526, 1.7)
pt3dadd(-477, 318.5, -526, 0.9)
pt3dadd(-486.5, 322.5, -523, 2.2)
pt3dadd(-493.5, 327, -526.5, 1.3)
pt3dadd(-503, 331.5, -530.5, 1.7)
pt3dadd(-508.5, 336, -530.5, 3.3)
pt3dadd(-514, 341, -530.5, 1)
pt3dadd(-519, 349.5, -530.5, 1.3)
pt3dadd(-517, 357.5, -531, 1.3)
pt3dadd(-514.5, 367, -524, 1.2)
pt3dadd(-509.5, 373.5, -524.5, 1.1)
pt3dadd(-509.5, 386.5, -521.5, 1.2)
pt3dadd(-508, 388, -525, 1.2)
pt3dadd(-513, 396, -524, 1.5)
pt3dadd(-515.5, 404, -517.5, 1.1)
pt3dadd(-518, 414, -516.5, 1.2)
pt3dadd(-520.5, 421.5, -516, 1.3)
pt3dadd(-523, 429, -518, 1.2)
pt3dadd(-525.5, 436.5, -520, 1.4)
pt3dadd(-531.5, 444.5, -519.5, 1.3)
pt3dadd(-538.5, 449, -518.5, 1.3)
pt3dadd(-543.5, 454, -514.5, 1.5)
pt3dadd(-549, 460.5, -514, 1.2)
pt3dadd(-552.5, 468, -513, 0.9)
pt3dadd(-556.5, 474.5, -512.5, 1.1)
pt3dadd(-558.5, 484, -503.5, 1.2)
pt3dadd(-562, 493.5, -510, 0.9)
pt3dadd(-566, 502, -512, 1.4)
pt3dadd(-570, 510.5, -496.5, 1)
pt3dadd(-574.5, 518, -504, 0.9)
pt3dadd(-576.5, 527, -505.5, 1.4)
pt3dadd(-579, 534.5, -499.5, 1)
pt3dadd(-581, 542.5, -498.5, 1)
pt3dadd(-582.5, 551, -498, 1)
pt3dadd(-582.5, 563, -500, 1.1)
pt3dadd(-585, 572, -501.5, 1.1)
pt3dadd(-592, 585, -483, 1)
pt3dadd(-594.5, 594, -482, 1.1)
pt3dadd(-597.5, 601.5, -478.5, 1.3)
pt3dadd(-600, 609, -475.5, 1.6)
pt3dadd(-605.5, 614, -475, 1)
}
dend[150] {pt3dclear()
pt3dadd(-101, 307, -344, 5)
pt3dadd(-103, 316, -369.5, 3.6)
pt3dadd(-103, 320, -375, 3.5)
pt3dadd(-100.5, 330, -386, 3.4)
pt3dadd(-110, 331, -406, 2.2)
pt3dadd(-104, 336.5, -417, 3)
pt3dadd(-106, 338.5, -425, 2.8)
pt3dadd(-105, 350.5, -430, 3.4)
pt3dadd(-103, 358.5, -427.5, 4.2)
pt3dadd(-100, 367, -445, 3.7)
pt3dadd(-105.5, 367, -475, 3.7)
pt3dadd(-107, 376.5, -476, 2.7)
pt3dadd(-117, 376, -487.5, 3)
pt3dadd(-122.5, 383, -497.5, 2.5)
pt3dadd(-130, 380.5, -510.5, 3)
pt3dadd(-134.5, 386, -523.5, 2.7)
}
}
proc shape3d_17() {
dend[150] { pt3dadd(-139.5, 384.5, -525, 3.4)
pt3dadd(-150, 385, -534.5, 2.7)
pt3dadd(-148, 394.5, -554.5, 3)
pt3dadd(-153, 393, -575, 2.3)
pt3dadd(-160.5, 395.5, -578, 3.1)
pt3dadd(-170, 392, -589.5, 2.3)
pt3dadd(-175.5, 400.5, -601, 2.2)
pt3dadd(-180.5, 407.5, -601, 2.3)
pt3dadd(-185.5, 414.5, -611.5, 1.8)
pt3dadd(-191.5, 420.5, -615.5, 2)
pt3dadd(-192.5, 422.5, -625, 2.2)
pt3dadd(-200, 427, -625.5, 2.2)
pt3dadd(-207, 432, -638.5, 2.3)
pt3dadd(-215.5, 433.5, -655.5, 2.5)
pt3dadd(-223, 439.5, -664.5, 2.3)
pt3dadd(-224.5, 444, -675, 3.6)
pt3dadd(-223, 434.5, -681.5, 1.7)
pt3dadd(-217.5, 440, -696.5, 2.2)
pt3dadd(-212, 435, -720, 2)
pt3dadd(-210.5, 437.5, -725, 2.3)
pt3dadd(-208.5, 447, -732.5, 2.2)
pt3dadd(-200, 460.5, -737.5, 1.8)
pt3dadd(-193, 464, -766.5, 3)
pt3dadd(-196, 472.5, -775, 2.5)
pt3dadd(-188.5, 467.5, -782.5, 2.2)
pt3dadd(-179.5, 469.5, -792, 1.5)
pt3dadd(-173, 466.5, -825, 1.9)
pt3dadd(-166.5, 462, -835, 2)
pt3dadd(-161.5, 468.5, -846, 1.6)
pt3dadd(-157, 463, -844, 2.3)
pt3dadd(-151, 468, -854, 1.8)
pt3dadd(-142, 465.5, -865, 1.8)
pt3dadd(-139.5, 469.5, -875, 1.8)
pt3dadd(-129.5, 469, -880, 1.9)
pt3dadd(-120.5, 470.5, -888.5, 3.9)
pt3dadd(-112, 472, -901.5, 1.9)
pt3dadd(-103, 470.5, -905, 2)
pt3dadd(-107.5, 476, -920, 2.6)
pt3dadd(-110.5, 485.5, -919.5, 1.6)
pt3dadd(-113.5, 487, -925, 1.6)
pt3dadd(-119, 491.5, -927, 2.5)
pt3dadd(-114, 498.5, -933.5, 1.5)
pt3dadd(-120.5, 504, -948, 1.6)
pt3dadd(-130, 506.5, -964.5, 1.5)
pt3dadd(-129, 500, -975, 1.8)
pt3dadd(-132, 507.5, -984, 2)
pt3dadd(-125.5, 512, -993.5, 1.3)
pt3dadd(-121, 520, -996, 1.9)
pt3dadd(-114.5, 523.5, -1002, 1.9)
pt3dadd(-112, 532, -1008.5, 1.7)
pt3dadd(-105, 537, -1007, 1.1)
pt3dadd(-97.5, 541, -1016.5, 1.4)
pt3dadd(-96, 541, -1025, 1.4)
pt3dadd(-92.5, 547.5, -1022.5, 1.3)
pt3dadd(-87.5, 552.5, -1025.5, 2.2)
pt3dadd(-79.5, 554.5, -1042.5, 1.3)
pt3dadd(-78.5, 565.5, -1052, 1.1)
pt3dadd(-76, 575.5, -1063.5, 1.6)
pt3dadd(-74, 583.5, -1064.5, 1.2)
pt3dadd(-74, 586, -1075, 2)
pt3dadd(-71.5, 595, -1067, 1.4)
pt3dadd(-69, 602.5, -1071.5, 1.1)
pt3dadd(-66, 610, -1072.5, 1.1)
pt3dadd(-63.5, 617.5, -1077.5, 1.1)
pt3dadd(-60, 625, -1082, 1.1)
pt3dadd(-58, 633.5, -1086.5, 1.1)
pt3dadd(-59.5, 642.5, -1087, 1.5)
pt3dadd(-63, 650, -1096.5, 1.5)
pt3dadd(-65, 658, -1093, 1)
pt3dadd(-62, 666, -1094.5, 1.6)
pt3dadd(-65, 674.5, -1099.5, 1.6)
pt3dadd(-71, 679, -1084, 1)
pt3dadd(-75.5, 685, -1088.5, 1)
pt3dadd(-78, 692.5, -1097.5, 1)
pt3dadd(-79, 704, -1098.5, 1.1)
pt3dadd(-74, 710.5, -1099, 2.1)
pt3dadd(-70, 718, -1108.5, 0.9)
pt3dadd(-66, 725.5, -1109, 1.5)
pt3dadd(-61, 733.5, -1109.5, 2)
pt3dadd(-54.5, 737.5, -1102, 1.2)
pt3dadd(-47, 740, -1107, 1)
pt3dadd(-41, 746.5, -1108.5, 1)
pt3dadd(-31, 749, -1101, 1.4)
pt3dadd(-27, 755, -1101, 1.3)
pt3dadd(-20.5, 759, -1111, 1.1)
pt3dadd(-14, 764, -1115.5, 1.7)
pt3dadd(-10.5, 772.5, -1104, 1.2)
pt3dadd(-15, 779, -1113.5, 3.2)
pt3dadd(-12.5, 787.5, -1118.5, 1.4)
pt3dadd(-6, 791.5, -1123.5, 1.3)
pt3dadd(4.5, 791, -1116, 1.3)
pt3dadd(8, 790.5, -1125, 1.2)
}
dend[151] {pt3dclear()
pt3dadd(102.5, 62, -96, 9.8)
pt3dadd(98, 53, -94, 4)
pt3dadd(99.5, 44, -102, 4)
pt3dadd(98, 34, -103.5, 4.8)
pt3dadd(96.5, 25.5, -111, 3.8)
pt3dadd(95, 16, -109.5, 3.7)
pt3dadd(94, 7, -117, 5)
pt3dadd(96, -4, -122, 4.1)
pt3dadd(98, -13, -123.5, 3.8)
pt3dadd(96, -24, -125, 3.8)
pt3dadd(94.5, -35.5, -126.5, 3.2)
pt3dadd(95.5, -45.5, -134, 3.6)
pt3dadd(100.5, -52.5, -141.5, 3.6)
pt3dadd(102.5, -63, -143, 3.7)
pt3dadd(105, -73.5, -144, 3.7)
pt3dadd(100, -79, -142, 3.4)
pt3dadd(101, -88.5, -149, 3.5)
pt3dadd(101.5, -98.5, -153.5, 4.1)
pt3dadd(97.5, -107, -159, 3.7)
pt3dadd(97.5, -111, -159.5, 4)
}
dend[152] {pt3dclear()
pt3dadd(97.5, -111, -159.5, 4)
pt3dadd(104.5, -118, -170, 1.4)
pt3dadd(107.5, -125.5, -165.5, 2.2)
pt3dadd(105.5, -134, -169.5, 1.3)
pt3dadd(102.5, -141, -173.5, 1.2)
pt3dadd(100.5, -149, -175, 1.1)
pt3dadd(101, -158.5, -181, 0.7)
pt3dadd(99, -168, -191, 1.6)
pt3dadd(97, -177.5, -193.5, 1.2)
pt3dadd(101, -183.5, -205.5, 1.2)
pt3dadd(104.5, -190, -212, 1.1)
pt3dadd(109.5, -195.5, -216.5, 2.6)
pt3dadd(109.5, -197, -225, 2.6)
pt3dadd(109.5, -207, -237, 1.3)
pt3dadd(113.5, -213, -240.5, 1.2)
pt3dadd(117.5, -220.5, -246, 0.9)
pt3dadd(122.5, -225.5, -255.5, 0.6)
pt3dadd(128, -231, -257, 1.1)
pt3dadd(133.5, -238.5, -268, 0.7)
pt3dadd(133, -251, -275, 0.6)
pt3dadd(130.5, -259, -276.5, 0.9)
pt3dadd(128, -267.5, -275.5, 0.7)
pt3dadd(122.5, -271, -275, 0.8)
}
dend[153] {pt3dclear()
pt3dadd(97.5, -111, -159.5, 4)
pt3dadd(93, -118, -165, 2.3)
pt3dadd(89.5, -128, -171.5, 3.1)
pt3dadd(86, -135.5, -175, 3.3)
pt3dadd(94, -137.5, -176, 3.2)
pt3dadd(96, -146.5, -183.5, 3.1)
pt3dadd(102, -158, -183.5, 3.6)
pt3dadd(106, -167, -192, 3)
pt3dadd(110.5, -178.5, -193.5, 2.8)
pt3dadd(115, -185.5, -201.5, 2.6)
pt3dadd(126, -195, -204, 3.2)
pt3dadd(129.5, -198.5, -204.5, 4.4)
}
dend[154] {pt3dclear()
pt3dadd(129.5, -198.5, -204.5, 4.4)
pt3dadd(138, -201, -213, 1.5)
pt3dadd(140.5, -206.5, -225, 1.9)
pt3dadd(146.5, -213.5, -230.5, 1.7)
pt3dadd(150.5, -220, -236.5, 1.5)
pt3dadd(157, -226.5, -244, 1.4)
pt3dadd(162.5, -232.5, -251, 1.9)
pt3dadd(161.5, -242, -254, 1.7)
pt3dadd(167.5, -246, -264, 1.8)
pt3dadd(171.5, -253, -267.5, 2.2)
pt3dadd(177.5, -258, -277.5, 1.4)
pt3dadd(178.5, -260, -275, 1.4)
pt3dadd(179, -270, -279.5, 1.1)
pt3dadd(185, -279.5, -289.5, 1.2)
pt3dadd(188, -286.5, -286, 1.5)
pt3dadd(193, -292.5, -290, 1.6)
pt3dadd(197, -299.5, -291, 1.1)
pt3dadd(201.5, -305.5, -295, 1.5)
pt3dadd(205, -322.5, -299.5, 1.4)
pt3dadd(208.5, -330.5, -301.5, 0.9)
pt3dadd(213.5, -336, -305, 1.1)
pt3dadd(217, -347, -309.5, 1.6)
pt3dadd(214.5, -355, -311, 1.3)
pt3dadd(213, -363.5, -315, 1.6)
pt3dadd(207, -368.5, -316, 2.2)
pt3dadd(197, -370, -319.5, 1.2)
pt3dadd(188, -372.5, -323, 1)
pt3dadd(178, -373, -322, 1)
pt3dadd(166, -373.5, -326.5, 1.2)
pt3dadd(158.5, -374, -325, 1.6)
}
dend[155] {pt3dclear()
pt3dadd(129.5, -198.5, -204.5, 4.4)
pt3dadd(136.5, -208, -207, 1.8)
pt3dadd(145, -214.5, -212, 2.3)
pt3dadd(152, -219, -217.5, 2.1)
pt3dadd(159, -225, -213, 2.5)
pt3dadd(163, -231, -219.5, 2.7)
pt3dadd(167.5, -238.5, -225.5, 2.6)
pt3dadd(175.5, -244, -227, 1.9)
pt3dadd(179, -248, -225, 2.1)
pt3dadd(187, -255.5, -218.5, 2.9)
pt3dadd(188.5, -266, -219.5, 1)
pt3dadd(195.5, -282, -220.5, 2.3)
pt3dadd(198.5, -291.5, -221, 2.2)
pt3dadd(199.5, -298, -225, 1.8)
}
dend[156] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 11.8)
pt3dadd(15.5, -7, -9.5, 11.8)
pt3dadd(15.5, -12, -25, 10.6)
pt3dadd(11, -20, -36.5, 8.5)
pt3dadd(8, -32, -51.5, 10)
pt3dadd(3, -41, -75, 10.8)
pt3dadd(-2.5, -51.5, -74.5, 8.5)
pt3dadd(-5, -62.5, -85, 8.1)
pt3dadd(-10.5, -71.5, -106.5, 9.8)
}
}
proc shape3d_18() {
dend[156] { pt3dadd(-12, -76.5, -112.5, 12.5)
}
dend[157] {pt3dclear()
pt3dadd(-12, -76.5, -112.5, 12.5)
pt3dadd(-6.5, -82.5, -112, 6.5)
pt3dadd(-1, -88, -123, 6.2)
pt3dadd(2.5, -91.5, -125, 6.6)
pt3dadd(10.5, -95, -145.5, 5.1)
pt3dadd(13, -103, -143, 5.9)
pt3dadd(21, -108, -152.5, 5.3)
pt3dadd(29, -110, -155, 5.9)
pt3dadd(36.5, -115, -164, 5)
pt3dadd(42, -122.5, -170, 6.5)
pt3dadd(49.5, -129, -176.5, 6.4)
pt3dadd(52.5, -129.5, -175, 5.6)
pt3dadd(58, -135.5, -180, 6.9)
pt3dadd(68, -140.5, -183.5, 6.7)
pt3dadd(73, -145.5, -189, 6.9)
pt3dadd(78, -150.5, -188, 6.1)
pt3dadd(88.5, -153, -205.5, 6)
pt3dadd(97.5, -155.5, -219, 5.5)
pt3dadd(104.5, -161, -216.5, 6.6)
pt3dadd(106, -163.5, -225, 6.6)
pt3dadd(112, -169, -223, 5.9)
pt3dadd(119.5, -174, -228, 4.7)
pt3dadd(125.5, -178, -236.5, 6.4)
pt3dadd(132.5, -184.5, -242, 5.4)
pt3dadd(141, -188.5, -247, 6.4)
pt3dadd(147.5, -194, -255, 7.3)
pt3dadd(153.5, -198, -256.5, 7.4)
}
dend[158] {pt3dclear()
pt3dadd(153.5, -198, -256.5, 7.4)
pt3dadd(162.5, -201, -256.5, 3.9)
pt3dadd(170.5, -204, -275, 4.3)
pt3dadd(176, -210, -282, 4.3)
pt3dadd(183, -214, -287, 3.5)
pt3dadd(191.5, -217, -300, 4.3)
pt3dadd(194.5, -224.5, -302.5, 4.3)
pt3dadd(209.5, -229, -315.5, 4.3)
pt3dadd(215.5, -235, -315, 4.2)
pt3dadd(225, -237.5, -328.5, 4.1)
pt3dadd(226.5, -240.5, -325, 4.5)
pt3dadd(234.5, -243, -331, 3.9)
pt3dadd(243, -245, -337.5, 5)
pt3dadd(251, -249, -337, 4.1)
pt3dadd(260.5, -251, -352, 4.7)
pt3dadd(269.5, -254.5, -359.5, 3.6)
pt3dadd(278.5, -258.5, -368, 3.1)
pt3dadd(287.5, -255.5, -375, 2.9)
pt3dadd(295, -260.5, -383, 3.8)
pt3dadd(304.5, -262.5, -391.5, 3.4)
pt3dadd(313, -265.5, -393, 3.9)
pt3dadd(322.5, -268, -401.5, 4.4)
pt3dadd(331.5, -271.5, -404, 3.1)
pt3dadd(337.5, -277.5, -413, 4.1)
pt3dadd(344.5, -281, -414.5, 3.7)
pt3dadd(351.5, -285.5, -422, 4.7)
pt3dadd(358, -290.5, -431.5, 5.2)
pt3dadd(367.5, -292, -426, 3.8)
pt3dadd(371.5, -292, -425, 3.8)
pt3dadd(376, -288, -429.5, 5.1)
}
dend[159] {pt3dclear()
pt3dadd(376, -288, -429.5, 5.1)
pt3dadd(375.5, -277.5, -464, 3.2)
pt3dadd(375, -271, -475, 2.6)
pt3dadd(373, -263, -477.5, 2.5)
pt3dadd(374, -253, -492, 3.3)
pt3dadd(376.5, -250, -475, 2.7)
}
dend[160] {pt3dclear()
pt3dadd(376, -288, -429.5, 5.1)
pt3dadd(384, -290, -467.5, 3)
pt3dadd(388, -294, -475, 2.2)
pt3dadd(394, -300, -476, 2.6)
pt3dadd(393, -309, -480, 2)
pt3dadd(394.5, -318.5, -473.5, 2.8)
pt3dadd(400, -326, -480.5, 1.6)
pt3dadd(404.5, -332, -479, 2)
pt3dadd(411.5, -338, -495, 1.9)
pt3dadd(417.5, -344, -491, 1.7)
pt3dadd(424, -350, -495, 1.9)
pt3dadd(429, -357, -492, 2.7)
pt3dadd(432.5, -363.5, -496, 2.3)
pt3dadd(440, -368.5, -497.5, 2.3)
pt3dadd(448, -374.5, -502, 2.8)
pt3dadd(454, -380.5, -509.5, 3.7)
pt3dadd(460, -387, -516.5, 2.8)
pt3dadd(465, -392.5, -514.5, 2)
pt3dadd(470.5, -398.5, -519, 2.5)
pt3dadd(475.5, -406, -522.5, 3.2)
pt3dadd(482, -410, -521, 3.3)
pt3dadd(488.5, -417, -525, 3.4)
pt3dadd(497, -420, -527, 3)
pt3dadd(500, -420, -525, 2.6)
pt3dadd(504, -428, -531, 3.9)
pt3dadd(510.5, -432.5, -547.5, 3.4)
pt3dadd(520, -437, -555.5, 3.4)
pt3dadd(528, -444, -559, 2.3)
pt3dadd(533.5, -449.5, -557.5, 2.3)
pt3dadd(539, -455, -575, 1.7)
pt3dadd(543, -461, -574, 2)
pt3dadd(549.5, -465.5, -576.5, 2.1)
pt3dadd(551.5, -468.5, -575, 2.1)
pt3dadd(556, -475.5, -580.5, 2.2)
pt3dadd(560.5, -481, -586.5, 2)
pt3dadd(565.5, -487.5, -588, 1.8)
pt3dadd(570.5, -495.5, -590.5, 2.2)
pt3dadd(576, -501, -592, 1.8)
pt3dadd(582, -506, -594.5, 2)
pt3dadd(587, -512.5, -596.5, 2)
pt3dadd(588, -522, -607.5, 1.6)
pt3dadd(593, -528, -606.5, 1.7)
pt3dadd(598.5, -534, -625, 1.8)
pt3dadd(607, -537, -620.5, 1.2)
pt3dadd(610.5, -544.5, -622, 1.9)
pt3dadd(617, -551.5, -626.5, 1.9)
pt3dadd(623, -557.5, -625, 2.5)
pt3dadd(625.5, -565.5, -626.5, 1.4)
pt3dadd(631, -571.5, -631, 0.9)
pt3dadd(636, -577.5, -636, 1.3)
pt3dadd(640.5, -584, -635, 2.3)
pt3dadd(647, -588, -639.5, 0.9)
pt3dadd(651.5, -596.5, -638.5, 1.3)
pt3dadd(655, -603, -647, 1.1)
pt3dadd(660.5, -608.5, -651.5, 0.9)
pt3dadd(665.5, -614.5, -652.5, 0.9)
pt3dadd(668.5, -621.5, -657, 2.7)
pt3dadd(672.5, -631.5, -666, 0.7)
pt3dadd(675.5, -637, -675, 1.2)
pt3dadd(679.5, -646, -682.5, 0.8)
pt3dadd(682.5, -655, -683, 0.9)
pt3dadd(686.5, -661, -683.5, 1.1)
pt3dadd(697, -660, -688.5, 1.1)
pt3dadd(707, -657.5, -689.5, 1)
pt3dadd(715, -663, -687, 1.2)
pt3dadd(725, -664, -684.5, 1.6)
pt3dadd(732.5, -668, -689, 1.2)
pt3dadd(740, -664, -697, 0.9)
pt3dadd(748.5, -665.5, -698, 0.9)
pt3dadd(758, -666, -695, 1)
pt3dadd(769, -667.5, -703, 0.7)
pt3dadd(777.5, -670.5, -693, 1.1)
pt3dadd(785, -676, -705, 1.5)
pt3dadd(792.5, -680.5, -702.5, 0.8)
pt3dadd(804.5, -680, -707, 1)
pt3dadd(814.5, -680, -704, 1.1)
pt3dadd(823, -682.5, -716, 0.8)
pt3dadd(830, -685.5, -720, 0.7)
pt3dadd(837, -682, -724, 0.6)
pt3dadd(844, -677, -721, 0.9)
pt3dadd(852.5, -675, -725, 0.7)
pt3dadd(861, -678.5, -722, 0.9)
pt3dadd(870.5, -680, -726, 0.8)
pt3dadd(878, -675.5, -726.5, 0.8)
pt3dadd(885.5, -671.5, -723.5, 0.9)
pt3dadd(894.5, -670, -731.5, 1)
pt3dadd(896, -668, -725, 0.9)
pt3dadd(901, -663, -724, 0.7)
pt3dadd(911, -663, -739.5, 0.5)
pt3dadd(920.5, -662.5, -744.5, 0.8)
pt3dadd(926.5, -666, -775, 1.1)
}
dend[161] {pt3dclear()
pt3dadd(153.5, -198, -256.5, 7.4)
pt3dadd(154.5, -205, -275, 5)
pt3dadd(158, -213, -287, 5.9)
pt3dadd(162, -221, -288.5, 4.8)
pt3dadd(166, -227, -287.5, 5.4)
pt3dadd(170.5, -236.5, -300, 5.2)
pt3dadd(172.5, -245.5, -301.5, 4.1)
pt3dadd(172, -255, -302, 4.8)
pt3dadd(169, -262, -318, 5)
pt3dadd(171.5, -271, -320, 5)
pt3dadd(176.5, -279, -327, 4.8)
pt3dadd(177, -279.5, -325, 4.7)
pt3dadd(183, -281.5, -343, 6)
}
dend[162] {pt3dclear()
pt3dadd(183, -281.5, -343, 6)
pt3dadd(188.5, -288, -350.5, 3.7)
pt3dadd(190.5, -297, -354.5, 4)
pt3dadd(185.5, -313.5, -361.5, 4.3)
pt3dadd(182, -321, -354.5, 3.9)
pt3dadd(176.5, -329, -358, 3.2)
pt3dadd(173, -340, -348, 4)
pt3dadd(172, -350.5, -348, 4.4)
pt3dadd(169, -359.5, -355, 3.5)
pt3dadd(167.5, -361.5, -348, 5.6)
}
dend[163] {pt3dclear()
pt3dadd(167.5, -361.5, -348, 5.6)
pt3dadd(159, -364.5, -351.5, 2.2)
pt3dadd(151, -366.5, -348, 2.4)
pt3dadd(145.5, -372, -348.5, 2.3)
pt3dadd(140, -378, -348.5, 2.3)
pt3dadd(135, -384, -348.5, 4.1)
}
dend[164] {pt3dclear()
pt3dadd(135, -384, -348.5, 4.1)
pt3dadd(132.5, -392.5, -341, 3)
pt3dadd(128, -401.5, -344, 2.7)
pt3dadd(126, -411, -351, 1.9)
pt3dadd(119.5, -417, -347.5, 1.7)
pt3dadd(112.5, -424.5, -354, 2)
pt3dadd(111, -433.5, -350, 1.6)
pt3dadd(111.5, -444, -342, 3)
pt3dadd(107.5, -451, -349.5, 1.6)
pt3dadd(104, -461, -327, 1.9)
pt3dadd(102, -471, -333.5, 1.7)
pt3dadd(97.5, -476.5, -333.5, 1.9)
pt3dadd(95.5, -485.5, -333, 1.5)
pt3dadd(94.5, -497, -333, 1.7)
pt3dadd(94.5, -509, -336, 2.6)
pt3dadd(93, -518.5, -335.5, 3.5)
}
}
proc shape3d_19() {
dend[164] { pt3dadd(90, -526, -335.5, 1.3)
pt3dadd(83, -533.5, -338.5, 0.9)
pt3dadd(79, -543.5, -338.5, 1.6)
pt3dadd(78.5, -553.5, -338, 0.9)
pt3dadd(75.5, -560.5, -338, 3.5)
pt3dadd(70.5, -565.5, -337.5, 1.2)
pt3dadd(68, -574.5, -330.5, 1.1)
pt3dadd(69, -583.5, -326.5, 5.2)
pt3dadd(65.5, -591.5, -326.5, 2)
pt3dadd(62, -599.5, -326, 1.3)
pt3dadd(60.5, -611, -332.5, 0.8)
pt3dadd(61, -620.5, -332.5, 2.1)
pt3dadd(59, -631, -332, 1)
pt3dadd(57.5, -643, -331, 0.7)
pt3dadd(57, -654.5, -323.5, 2.1)
pt3dadd(55, -665.5, -330.5, 0.7)
pt3dadd(56.5, -674.5, -330, 0.9)
pt3dadd(58.5, -684.5, -322.5, 1.7)
pt3dadd(62.5, -690.5, -325, 0.8)
pt3dadd(60.5, -698.5, -342.5, 0.8)
pt3dadd(58.5, -711.5, -309.5, 1.2)
pt3dadd(56.5, -721.5, -330, 1)
pt3dadd(57, -734, -333.5, 1)
pt3dadd(60.5, -742.5, -337, 1.1)
pt3dadd(57.5, -754.5, -333, 1.1)
pt3dadd(54, -762, -332.5, 1.1)
pt3dadd(50.5, -770.5, -328.5, 1.3)
pt3dadd(51, -776, -325, 1)
}
dend[165] {pt3dclear()
pt3dadd(135, -384, -348.5, 4.1)
pt3dadd(131.5, -383.5, -375, 2.6)
}
dend[166] {pt3dclear()
pt3dadd(167.5, -361.5, -348, 5.6)
pt3dadd(170, -370.5, -376, 2.5)
pt3dadd(172, -381, -377, 2.7)
pt3dadd(175, -389, -371, 2.9)
pt3dadd(176.5, -392.5, -375, 2.9)
pt3dadd(175, -401.5, -376, 3.8)
pt3dadd(179.5, -407.5, -382.5, 2.9)
pt3dadd(181.5, -417, -381, 3.9)
pt3dadd(186, -424, -382, 3.4)
pt3dadd(190.5, -432, -386.5, 2.9)
pt3dadd(196, -437.5, -391, 2.8)
pt3dadd(200, -444.5, -397.5, 1.7)
pt3dadd(204, -451.5, -395.5, 2.5)
pt3dadd(208, -461, -394.5, 3.1)
pt3dadd(211, -471.5, -393, 3.3)
pt3dadd(214.5, -481, -397, 3.8)
pt3dadd(214.5, -492, -398.5, 2.5)
pt3dadd(213, -502, -396.5, 2.7)
pt3dadd(216, -509, -397.5, 2.6)
pt3dadd(217, -521.5, -399, 2.4)
pt3dadd(222.5, -529, -400, 2.5)
pt3dadd(222, -538.5, -407, 1.9)
pt3dadd(226.5, -546.5, -405.5, 3.2)
pt3dadd(223.5, -556, -409.5, 1.8)
pt3dadd(218.5, -561, -410.5, 1.5)
pt3dadd(217, -570, -411.5, 1.5)
pt3dadd(213.5, -577.5, -410, 1.5)
pt3dadd(208.5, -585, -413.5, 2)
pt3dadd(207, -597, -418, 1.6)
pt3dadd(207, -605, -425, 1.7)
pt3dadd(210, -613.5, -434, 2.5)
pt3dadd(215.5, -619, -437.5, 2)
pt3dadd(222.5, -625, -441, 3)
pt3dadd(225.5, -636.5, -444, 1.3)
pt3dadd(232, -643.5, -452, 1.3)
pt3dadd(231, -650.5, -475, 1.1)
pt3dadd(229, -659, -477, 1.9)
pt3dadd(225, -665.5, -479, 3.5)
pt3dadd(222, -673, -487, 0.9)
pt3dadd(224.5, -682.5, -490.5, 0.9)
pt3dadd(222, -691.5, -493.5, 1.3)
pt3dadd(221, -702, -500, 0.9)
pt3dadd(220.5, -712, -516, 1.7)
pt3dadd(224.5, -718, -520.5, 1.2)
pt3dadd(228, -720, -525, 1.4)
pt3dadd(235.5, -725, -550.5, 1.1)
pt3dadd(229.5, -729, -551, 1.4)
pt3dadd(224, -733.5, -555, 0.9)
pt3dadd(214.5, -733, -554, 0.7)
pt3dadd(205.5, -735.5, -562.5, 1.6)
pt3dadd(195.5, -736, -574.5, 1.1)
pt3dadd(193.5, -737, -575, 1.2)
pt3dadd(188.5, -742, -582, 0.8)
pt3dadd(183.5, -748.5, -596, 3.8)
pt3dadd(185.5, -757, -626, 1)
pt3dadd(185, -761, -625, 0.9)
}
dend[167] {pt3dclear()
pt3dadd(183, -281.5, -343, 6)
pt3dadd(191, -279, -341.5, 3.1)
pt3dadd(199, -281, -347.5, 3.8)
pt3dadd(206.5, -278.5, -362, 3.7)
pt3dadd(219.5, -279, -365.5, 3.4)
pt3dadd(228, -279.5, -375, 3.7)
pt3dadd(235.5, -283, -390, 2.5)
pt3dadd(241.5, -287.5, -395.5, 2.6)
pt3dadd(245.5, -295, -400.5, 2.8)
pt3dadd(249.5, -302.5, -408.5, 3.2)
pt3dadd(256.5, -298, -408.5, 4.1)
pt3dadd(265, -295.5, -414.5, 2.5)
pt3dadd(273, -298.5, -423, 3.1)
pt3dadd(279.5, -299, -425, 2.2)
pt3dadd(272.5, -302, -430, 2.6)
pt3dadd(274.5, -311.5, -427.5, 3)
pt3dadd(283.5, -315.5, -421.5, 3)
pt3dadd(291.5, -319, -437.5, 3.1)
pt3dadd(296.5, -324, -445.5, 2)
pt3dadd(304, -330, -441, 2.6)
pt3dadd(310.5, -334, -442, 3.2)
pt3dadd(316.5, -340.5, -447, 3.5)
pt3dadd(318.5, -349.5, -462.5, 2.7)
pt3dadd(325.5, -355.5, -452, 3.4)
pt3dadd(332, -361.5, -460.5, 3)
pt3dadd(341, -365.5, -466, 3.2)
}
dend[168] {pt3dclear()
pt3dadd(341, -365.5, -466, 3.2)
pt3dadd(343.5, -375, -464.5, 1)
pt3dadd(347.5, -383, -466.5, 1)
pt3dadd(352, -389, -464.5, 1.3)
pt3dadd(354, -400, -469.5, 1)
pt3dadd(355.5, -410, -461.5, 2.1)
pt3dadd(356.5, -414.5, -475, 1.3)
}
dend[169] {pt3dclear()
pt3dadd(341, -365.5, -466, 3.2)
pt3dadd(347.5, -369, -464, 2.3)
pt3dadd(354, -377.5, -475, 3.2)
pt3dadd(357.5, -385, -482.5, 2.6)
pt3dadd(362.5, -390.5, -484.5, 2.6)
pt3dadd(366, -400, -487, 1.9)
pt3dadd(369, -407.5, -494, 1.7)
pt3dadd(374.5, -413, -491, 1.5)
pt3dadd(381, -419.5, -495.5, 2.2)
pt3dadd(388, -426.5, -495.5, 2.5)
pt3dadd(397, -428.5, -508, 2.2)
pt3dadd(402, -433.5, -505.5, 2.2)
pt3dadd(402, -445, -514.5, 3.4)
pt3dadd(405, -450, -525, 3)
pt3dadd(412.5, -453.5, -530, 3.2)
pt3dadd(418, -458.5, -535, 3)
pt3dadd(425.5, -466, -541.5, 2.6)
pt3dadd(430.5, -471, -544.5, 2.3)
pt3dadd(434.5, -477, -545.5, 3.4)
pt3dadd(441.5, -483, -544.5, 1.7)
pt3dadd(449, -486.5, -552.5, 1.9)
pt3dadd(456, -492.5, -548, 1.9)
pt3dadd(462.5, -497.5, -552.5, 2)
pt3dadd(471.5, -500, -565, 1.7)
pt3dadd(479.5, -505, -567, 1.5)
pt3dadd(485.5, -511, -568, 2.4)
pt3dadd(490, -519, -570, 2)
pt3dadd(494.5, -515.5, -575, 2.3)
pt3dadd(499.5, -522, -583.5, 1.6)
pt3dadd(505.5, -529, -589.5, 1.5)
pt3dadd(512, -534, -591, 2.1)
pt3dadd(516.5, -543, -593.5, 1.5)
pt3dadd(520.5, -549, -610, 1.9)
pt3dadd(524, -558, -608, 0.8)
pt3dadd(529, -563, -613.5, 0.9)
pt3dadd(535, -569, -615, 1.1)
pt3dadd(536, -581, -625, 1.9)
pt3dadd(538, -592.5, -626.5, 2)
pt3dadd(539.5, -601.5, -642, 1)
pt3dadd(539, -612, -643.5, 1.3)
pt3dadd(540.5, -622, -636.5, 1.1)
pt3dadd(543.5, -630, -638, 1.3)
pt3dadd(547, -637, -639, 1.3)
pt3dadd(552, -644, -646.5, 1)
pt3dadd(556, -653, -651.5, 1.3)
pt3dadd(558.5, -662, -652.5, 1.1)
pt3dadd(561.5, -669, -653.5, 1.4)
pt3dadd(564.5, -678, -658, 1.3)
pt3dadd(567, -686, -657.5, 1)
pt3dadd(570, -695, -665, 1.4)
pt3dadd(570, -705.5, -673.5, 1.2)
pt3dadd(573, -710, -675, 1.1)
pt3dadd(579, -718, -683, 1.3)
pt3dadd(586, -723.5, -683.5, 1.3)
pt3dadd(588.5, -733, -695.5, 0.8)
pt3dadd(592.5, -741, -682, 1.6)
pt3dadd(597.5, -747.5, -697.5, 1.2)
pt3dadd(595, -757.5, -691.5, 2)
pt3dadd(591, -764.5, -699.5, 1.2)
pt3dadd(588.5, -774.5, -700.5, 1.5)
pt3dadd(587.5, -785, -701, 1.5)
pt3dadd(590.5, -795, -708.5, 1.1)
pt3dadd(591.5, -804, -713, 1.2)
pt3dadd(594, -811.5, -717, 1.6)
pt3dadd(594.5, -822.5, -721.5, 1.3)
pt3dadd(596.5, -832, -729.5, 1.1)
pt3dadd(597.5, -843, -726, 0.9)
pt3dadd(598, -853, -716.5, 1.4)
pt3dadd(594, -859.5, -724.5, 1.2)
pt3dadd(593, -863.5, -725, 1.3)
pt3dadd(588, -868.5, -740.5, 0.9)
pt3dadd(593, -875.5, -749.5, 0.7)
pt3dadd(593, -886.5, -758.5, 0.7)
pt3dadd(596, -896, -760.5, 0.9)
pt3dadd(602, -902, -765, 0.7)
pt3dadd(606.5, -908, -759.5, 1.2)
pt3dadd(609.5, -916, -762.5, 0.9)
pt3dadd(613.5, -922.5, -767, 1.2)
pt3dadd(616, -925, -775, 0.8)
pt3dadd(618.5, -933.5, -782, 0.7)
pt3dadd(621, -941, -783.5, 0.9)
}
}
proc shape3d_20() {
dend[169] { pt3dadd(616, -947.5, -782, 1.1)
pt3dadd(617.5, -956.5, -789.5, 1.1)
pt3dadd(614, -963.5, -795.5, 0.9)
pt3dadd(615, -973, -802.5, 0.7)
pt3dadd(614, -983.5, -804, 0.9)
pt3dadd(612.5, -992, -805.5, 0.9)
pt3dadd(608, -998, -808, 0.9)
pt3dadd(597.5, -999.5, -825, 1.2)
}
dend[170] {pt3dclear()
pt3dadd(-12, -76.5, -112.5, 12.5)
pt3dadd(-22, -80.5, -120, 6.6)
pt3dadd(-26.5, -87, -125, 7)
pt3dadd(-32, -92.5, -139.5, 10.1)
}
dend[171] {pt3dclear()
pt3dadd(-32, -92.5, -139.5, 10.1)
pt3dadd(-40.5, -95.5, -164.5, 6.6)
pt3dadd(-43.5, -104.5, -170, 5)
pt3dadd(-47, -110.5, -175, 4.5)
pt3dadd(-47, -122, -182, 6.5)
pt3dadd(-52.5, -129.5, -182, 5)
pt3dadd(-59, -133, -199.5, 4.8)
pt3dadd(-65, -139.5, -205.5, 4.8)
pt3dadd(-69.5, -146, -208, 5.1)
pt3dadd(-76.5, -153.5, -216.5, 5.6)
pt3dadd(-81.5, -158.5, -216, 5.9)
pt3dadd(-85.5, -162.5, -225, 6)
pt3dadd(-92, -167.5, -220.5, 4.7)
pt3dadd(-100.5, -173.5, -239, 5.1)
pt3dadd(-108, -180.5, -241, 5.4)
pt3dadd(-115.5, -185.5, -239.5, 5.3)
pt3dadd(-121, -191, -253.5, 4.8)
pt3dadd(-129.5, -196.5, -264.5, 6.1)
pt3dadd(-136, -202.5, -266, 6.7)
pt3dadd(-138.5, -204.5, -275, 6.6)
pt3dadd(-149.5, -204, -282, 3.7)
pt3dadd(-149.5, -214.5, -289, 5.9)
pt3dadd(-155, -220, -290.5, 4.8)
pt3dadd(-162, -223, -311.5, 5.1)
pt3dadd(-165, -220.5, -325, 5.3)
pt3dadd(-169.5, -228.5, -338.5, 7.4)
}
dend[172] {pt3dclear()
pt3dadd(-169.5, -228.5, -338.5, 7.4)
pt3dadd(-178, -231, -355, 1.7)
pt3dadd(-183.5, -236.5, -350.5, 1.9)
pt3dadd(-187, -246.5, -363, 1.5)
pt3dadd(-191, -256, -357.5, 1.7)
pt3dadd(-200, -259.5, -359, 1.5)
pt3dadd(-209, -262.5, -364, 1.9)
pt3dadd(-218, -266, -365, 1.9)
pt3dadd(-226.5, -270.5, -361, 1.9)
pt3dadd(-235.5, -273.5, -365.5, 2.4)
pt3dadd(-245, -276.5, -367, 1.6)
pt3dadd(-247.5, -274.5, -375, 1.3)
pt3dadd(-257, -273.5, -375.5, 1.9)
pt3dadd(-266.5, -272, -382, 1.2)
pt3dadd(-275, -274, -380, 2)
pt3dadd(-284, -275, -387, 0.8)
pt3dadd(-293, -277, -391.5, 1.7)
pt3dadd(-299.5, -280.5, -389.5, 2.3)
pt3dadd(-310, -281, -397.5, 1)
pt3dadd(-317.5, -276.5, -404, 1)
pt3dadd(-328.5, -277.5, -401.5, 1.1)
pt3dadd(-338.5, -278.5, -405.5, 2.5)
pt3dadd(-346.5, -276, -403, 2.6)
pt3dadd(-357.5, -277, -408, 1)
pt3dadd(-367.5, -277.5, -403, 1.1)
pt3dadd(-380, -276.5, -407.5, 0.8)
pt3dadd(-388.5, -274.5, -405.5, 0.8)
pt3dadd(-397, -276, -403.5, 1)
pt3dadd(-408.5, -278.5, -413, 1.1)
pt3dadd(-419, -282, -408.5, 1.4)
pt3dadd(-426.5, -286, -412, 1.4)
pt3dadd(-431, -280.5, -412.5, 4.6)
pt3dadd(-436.5, -274, -416, 1.5)
pt3dadd(-438, -274, -425, 1.4)
pt3dadd(-447.5, -275.5, -428.5, 0.6)
pt3dadd(-457, -274, -438, 0.8)
pt3dadd(-463, -268, -449.5, 1.3)
pt3dadd(-461, -259.5, -458, 1.7)
pt3dadd(-468.5, -256.5, -475, 1.6)
}
dend[173] {pt3dclear()
pt3dadd(-169.5, -228.5, -338.5, 7.4)
pt3dadd(-175.5, -223, -347.5, 6.4)
pt3dadd(-168.5, -227, -352, 5.8)
pt3dadd(-161.5, -231, -363, 6.2)
pt3dadd(-159.5, -230.5, -375, 5)
pt3dadd(-163.5, -224, -378, 4.6)
pt3dadd(-165.5, -233.5, -396, 7)
pt3dadd(-173, -231, -402, 6.2)
}
dend[174] {pt3dclear()
pt3dadd(-173, -231, -402, 6.2)
pt3dadd(-181, -226, -396, 1.7)
pt3dadd(-187, -222, -393.5, 1.4)
pt3dadd(-194, -218, -385.5, 1.5)
pt3dadd(-203, -215.5, -385.5, 0.9)
pt3dadd(-207, -209.5, -375, 1.6)
}
dend[175] {pt3dclear()
pt3dadd(-173, -231, -402, 6.2)
pt3dadd(-177.5, -233.5, -405, 8.9)
}
dend[176] {pt3dclear()
pt3dadd(-177.5, -233.5, -405, 8.9)
pt3dadd(-189.5, -232.5, -425, 4)
pt3dadd(-198.5, -234.5, -422, 4.1)
pt3dadd(-212, -232, -443.5, 4.1)
pt3dadd(-219, -227, -460.5, 3.3)
pt3dadd(-229, -227, -472.5, 2.6)
pt3dadd(-239, -227.5, -478, 2.7)
pt3dadd(-244.5, -226, -475, 2.9)
pt3dadd(-251.5, -229, -476, 2)
pt3dadd(-259.5, -226, -477.5, 2.5)
pt3dadd(-264.5, -221, -482, 2.6)
pt3dadd(-273.5, -218.5, -495.5, 2.8)
pt3dadd(-283.5, -218, -495, 2.7)
pt3dadd(-289, -211, -499.5, 2.4)
pt3dadd(-296.5, -206.5, -504, 3.3)
pt3dadd(-307.5, -208, -512.5, 2.6)
pt3dadd(-315.5, -205, -519.5, 1.6)
}
dend[177] {pt3dclear()
pt3dadd(-315.5, -205, -519.5, 1.6)
pt3dadd(-325.5, -202.5, -519.5, 2.2)
pt3dadd(-336.5, -205, -525, 2.9)
}
dend[178] {pt3dclear()
pt3dadd(-315.5, -205, -519.5, 1.6)
pt3dadd(-321.5, -211, -499.5, 2)
pt3dadd(-329, -213.5, -494.5, 4.1)
pt3dadd(-339.5, -214.5, -480.5, 0.9)
pt3dadd(-350, -213.5, -469.5, 1.4)
}
dend[179] {pt3dclear()
pt3dadd(-177.5, -233.5, -405, 8.9)
pt3dadd(-180.5, -240.5, -425, 5)
pt3dadd(-183, -256, -442.5, 5.9)
pt3dadd(-181.5, -255, -475, 5.9)
pt3dadd(-191, -256.5, -496.5, 4.1)
pt3dadd(-197, -260.5, -497.5, 3)
pt3dadd(-194.5, -268, -507, 3.4)
pt3dadd(-191, -268.5, -517, 4.1)
}
dend[180] {pt3dclear()
pt3dadd(-191, -268.5, -517, 4.1)
pt3dadd(-196, -274, -525, 2.5)
}
dend[181] {pt3dclear()
pt3dadd(-191, -268.5, -517, 4.1)
pt3dadd(-184, -271, -525, 2.7)
}
dend[182] {pt3dclear()
pt3dadd(-32, -92.5, -139.5, 10.1)
pt3dadd(-33.5, -102, -147, 4.6)
pt3dadd(-40.5, -106.5, -148, 4.5)
pt3dadd(-44.5, -112.5, -148.5, 4.5)
pt3dadd(-48, -123.5, -159, 5.2)
pt3dadd(-53, -134, -164, 5.5)
pt3dadd(-55, -142, -174, 5.7)
pt3dadd(-56.5, -148.5, -175, 6.1)
pt3dadd(-57.5, -157.5, -182, 5.5)
pt3dadd(-55.5, -165.5, -185.5, 6.2)
pt3dadd(-59, -174, -201.5, 4.6)
pt3dadd(-56, -181.5, -208.5, 5.9)
pt3dadd(-58.5, -190, -224, 5)
pt3dadd(-64, -196, -225, 5)
pt3dadd(-66, -205.5, -230, 5.9)
pt3dadd(-67.5, -214, -228.5, 6.4)
pt3dadd(-72, -221, -246.5, 5.5)
pt3dadd(-72, -233, -252, 6.3)
}
dend[183] {pt3dclear()
pt3dadd(-72, -233, -252, 6.3)
pt3dadd(-65.5, -237, -256, 2.1)
pt3dadd(-60.5, -244, -257, 1.9)
pt3dadd(-57.5, -251, -257.5, 2)
pt3dadd(-57.5, -261, -258, 1.9)
pt3dadd(-58.5, -271.5, -255.5, 1.5)
pt3dadd(-62.5, -279.5, -253, 1.5)
pt3dadd(-65, -288, -257, 2.6)
pt3dadd(-64, -297.5, -254.5, 1.8)
pt3dadd(-61.5, -306.5, -255, 2.1)
pt3dadd(-57.5, -312.5, -255.5, 1.7)
pt3dadd(-55.5, -321.5, -260, 1.6)
pt3dadd(-51.5, -327.5, -264, 1.6)
pt3dadd(-49, -336.5, -262, 1.7)
pt3dadd(-45, -344.5, -263, 1.7)
pt3dadd(-40, -350.5, -267, 1.2)
pt3dadd(-36, -357, -271.5, 0.7)
pt3dadd(-35.5, -367, -272, 2.7)
pt3dadd(-38, -375.5, -272.5, 1.3)
pt3dadd(-32.5, -381.5, -266.5, 0.6)
pt3dadd(-27.5, -387.5, -271, 0.7)
pt3dadd(-25.5, -387, -275, 0.8)
pt3dadd(-29, -396.5, -273, 0.4)
pt3dadd(-32, -404, -279.5, 0.5)
pt3dadd(-34, -410.5, -275, 1.8)
}
dend[184] {pt3dclear()
pt3dadd(-72, -233, -252, 6.3)
pt3dadd(-72.5, -239, -275, 6)
pt3dadd(-73, -249, -283.5, 4.4)
pt3dadd(-78, -254, -285.5, 5.3)
pt3dadd(-75, -263, -299, 5.3)
pt3dadd(-76, -273.5, -302.5, 4.3)
pt3dadd(-82, -282.5, -311, 3.8)
pt3dadd(-86.5, -289, -310.5, 5.4)
pt3dadd(-94, -293.5, -324.5, 3.4)
pt3dadd(-102, -295.5, -326, 3)
pt3dadd(-95, -289.5, -326.5, 2.2)
pt3dadd(-99.5, -284, -325, 2.1)
pt3dadd(-93, -289, -329.5, 5.1)
pt3dadd(-91, -293, -339, 5.1)
}
dend[185] {pt3dclear()
pt3dadd(-91, -293, -339, 5.1)
pt3dadd(-96, -298.5, -343, 3.4)
pt3dadd(-98, -310, -340, 2.8)
pt3dadd(-95.5, -322.5, -348.5, 3.7)
pt3dadd(-99.5, -329, -349, 3.8)
pt3dadd(-96.5, -336.5, -357, 3.2)
pt3dadd(-93, -343, -357.5, 3.3)
pt3dadd(-86.5, -361, -359.5, 3.8)
pt3dadd(-86, -372.5, -367, 2.3)
pt3dadd(-83, -382, -371, 2.5)
pt3dadd(-83, -384, -375, 2.5)
pt3dadd(-88, -392.5, -382, 2.1)
pt3dadd(-97.5, -398.5, -383, 3)
}
}
proc shape3d_21() {
dend[185] { pt3dadd(-103, -403.5, -381, 3.6)
pt3dadd(-108, -411.5, -388, 2.5)
pt3dadd(-113.5, -417.5, -383.5, 5)
}
dend[186] {pt3dclear()
pt3dadd(-113.5, -417.5, -383.5, 5)
pt3dadd(-119, -410, -375, 1.1)
}
dend[187] {pt3dclear()
pt3dadd(-113.5, -417.5, -383.5, 5)
pt3dadd(-119.5, -422.5, -384, 2.2)
pt3dadd(-126.5, -427, -388, 2.4)
pt3dadd(-132.5, -434.5, -391, 2.9)
pt3dadd(-138.5, -441, -380.5, 3.8)
pt3dadd(-144.5, -445.5, -387, 2.3)
pt3dadd(-152, -451.5, -390.5, 2.2)
pt3dadd(-157.5, -456, -393.5, 1.7)
pt3dadd(-165, -462.5, -397, 2.1)
pt3dadd(-169, -468.5, -403, 2.6)
pt3dadd(-175, -475.5, -403.5, 1.6)
pt3dadd(-179.5, -485.5, -393.5, 2.6)
pt3dadd(-177, -494.5, -403, 2.3)
pt3dadd(-184, -500.5, -400.5, 2.2)
pt3dadd(-189.5, -506.5, -401.5, 3.5)
pt3dadd(-193.5, -513, -402, 1.3)
pt3dadd(-199.5, -518.5, -414, 1.7)
pt3dadd(-208.5, -522, -417.5, 1.5)
pt3dadd(-215.5, -530, -421, 1.9)
pt3dadd(-220, -537.5, -421.5, 2.2)
pt3dadd(-222, -544, -425, 2.9)
pt3dadd(-232, -546, -425, 1.6)
pt3dadd(-239.5, -551, -421.5, 3.2)
pt3dadd(-247, -558, -421.5, 2.3)
pt3dadd(-255, -565, -421.5, 1.7)
pt3dadd(-258.5, -576, -443, 2.5)
pt3dadd(-264, -583.5, -440, 1.8)
pt3dadd(-267, -590.5, -433, 2.1)
pt3dadd(-269.5, -599.5, -450.5, 2.2)
pt3dadd(-274, -607, -440.5, 2.2)
pt3dadd(-278, -614.5, -437, 2.2)
pt3dadd(-283.5, -623.5, -433.5, 1.9)
pt3dadd(-286.5, -631.5, -440.5, 2)
pt3dadd(-290.5, -639, -447.5, 2)
pt3dadd(-297.5, -647, -447.5, 1.5)
pt3dadd(-301.5, -654.5, -447.5, 2.3)
pt3dadd(-303.5, -663, -444.5, 2.6)
pt3dadd(-306, -672.5, -444.5, 1.3)
pt3dadd(-308, -684.5, -444.5, 1.4)
pt3dadd(-315, -690.5, -448, 1.6)
pt3dadd(-322, -695.5, -441, 3.7)
pt3dadd(-327.5, -700.5, -437.5, 1.7)
pt3dadd(-331.5, -707.5, -437.5, 1.6)
pt3dadd(-336.5, -714.5, -445, 1.8)
pt3dadd(-341, -722.5, -441.5, 2.8)
pt3dadd(-345.5, -731, -445, 1.7)
pt3dadd(-349.5, -739.5, -445, 1)
pt3dadd(-351, -748.5, -445, 1.1)
pt3dadd(-351.5, -760.5, -438.5, 1.1)
pt3dadd(-355, -770.5, -431, 2.2)
pt3dadd(-358.5, -777, -427.5, 2.1)
pt3dadd(-364.5, -783, -431, 1.2)
pt3dadd(-371, -788, -427.5, 2.6)
pt3dadd(-375.5, -795.5, -427.5, 1.4)
pt3dadd(-380.5, -802.5, -424, 4)
pt3dadd(-385, -809.5, -428, 1.2)
pt3dadd(-388.5, -817.5, -417.5, 1.1)
pt3dadd(-393.5, -822.5, -421, 1.5)
pt3dadd(-395, -832, -421, 1.3)
pt3dadd(-395.5, -843.5, -421, 1.3)
pt3dadd(-398, -850, -425, 1)
}
dend[188] {pt3dclear()
pt3dadd(-91, -293, -339, 5.1)
pt3dadd(-85, -297.5, -342.5, 3.1)
pt3dadd(-81, -303.5, -342.5, 2.7)
pt3dadd(-75.5, -310.5, -342.5, 3.4)
pt3dadd(-71, -317.5, -346.5, 2.9)
pt3dadd(-69, -327.5, -343, 3)
pt3dadd(-67.5, -337, -339.5, 2.9)
pt3dadd(-66.5, -347.5, -347, 3.1)
pt3dadd(-64.5, -358, -347, 3.7)
pt3dadd(-59, -364.5, -347, 2.9)
pt3dadd(-55, -370.5, -350.5, 3.2)
pt3dadd(-54.5, -381, -347, 3)
pt3dadd(-52, -389, -351, 4.1)
pt3dadd(-51.5, -399, -347.5, 3.4)
pt3dadd(-51.5, -401.5, -343.5, 4.1)
}
dend[189] {pt3dclear()
pt3dadd(-51.5, -401.5, -343.5, 4.1)
pt3dadd(-55, -408, -342.5, 0.8)
pt3dadd(-58, -418, -338, 1.6)
pt3dadd(-61, -427.5, -341, 1.3)
pt3dadd(-62, -437, -336, 2.2)
pt3dadd(-63.5, -446.5, -338.5, 0.8)
pt3dadd(-63.5, -457.5, -326.5, 2.3)
pt3dadd(-65.5, -466, -332.5, 2.7)
pt3dadd(-67.5, -473.5, -325, 0.8)
}
dend[190] {pt3dclear()
pt3dadd(-51.5, -401.5, -343.5, 4.1)
pt3dadd(-47, -411, -344, 2.6)
pt3dadd(-47, -423, -341.5, 2.7)
pt3dadd(-42.5, -430.5, -342, 2.5)
pt3dadd(-39.5, -439.5, -354.5, 4.1)
pt3dadd(-36, -447.5, -355.5, 4)
pt3dadd(-32, -457, -356, 3.4)
pt3dadd(-31.5, -467.5, -357, 2.7)
pt3dadd(-29, -477.5, -357.5, 3)
pt3dadd(-25, -486.5, -351, 2.4)
pt3dadd(-21.5, -496.5, -363, 2.7)
pt3dadd(-17.5, -505.5, -360.5, 3)
pt3dadd(-13.5, -511.5, -364.5, 1.9)
pt3dadd(-8.5, -519.5, -366, 2.6)
pt3dadd(-5, -528.5, -367, 1.8)
pt3dadd(0, -535, -364.5, 1.8)
pt3dadd(4, -543, -376, 2.4)
pt3dadd(12.5, -544, -375, 2.4)
pt3dadd(16.5, -552, -381, 2.3)
pt3dadd(20, -561.5, -388.5, 3.4)
pt3dadd(23, -571.5, -389, 2.2)
pt3dadd(26, -580.5, -387, 2)
pt3dadd(26.5, -590.5, -388.5, 1.5)
pt3dadd(26, -600, -401, 1.7)
pt3dadd(30.5, -608, -397, 1.5)
pt3dadd(34.5, -617.5, -395, 3.4)
pt3dadd(36.5, -627, -396, 1.3)
pt3dadd(38.5, -635.5, -391, 4)
pt3dadd(44, -640, -391.5, 1.5)
pt3dadd(47, -647, -398.5, 2.3)
pt3dadd(50.5, -655, -399.5, 1.4)
pt3dadd(49.5, -664, -402.5, 1.7)
pt3dadd(52, -671.5, -403.5, 2.3)
pt3dadd(55, -679, -407, 2.2)
pt3dadd(57.5, -688, -405, 1.1)
pt3dadd(55.5, -696.5, -409, 1.4)
pt3dadd(52.5, -706, -407, 2.5)
pt3dadd(53.5, -716.5, -414, 2)
pt3dadd(54.5, -725.5, -424, 1.7)
pt3dadd(57, -732, -425, 1.7)
pt3dadd(56, -742, -416, 2)
pt3dadd(49.5, -747, -427.5, 1.8)
pt3dadd(43, -750.5, -428.5, 1.3)
pt3dadd(35.5, -755, -434.5, 3)
pt3dadd(28, -761.5, -436, 1)
pt3dadd(21.5, -770.5, -440.5, 1.4)
pt3dadd(14.5, -776.5, -438, 1.3)
pt3dadd(8, -781.5, -429, 1.6)
pt3dadd(3.5, -787, -430, 1.4)
pt3dadd(-0.5, -794, -424, 1.5)
pt3dadd(-5, -801.5, -433, 0.9)
pt3dadd(-7.5, -810, -438.5, 1.5)
pt3dadd(-11.5, -817.5, -436, 1.2)
pt3dadd(-16, -825.5, -452, 1)
pt3dadd(-17, -837, -461, 0.9)
pt3dadd(-19, -845.5, -465.5, 1.1)
pt3dadd(-18.5, -855.5, -466.5, 1)
pt3dadd(-20.5, -860.5, -475, 1.1)
}
dend[191] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 10)
pt3dadd(69, 19.5, -8.5, 10)
pt3dadd(76, 21, 25, 8)
pt3dadd(88.5, 21, 30, 9.1)
pt3dadd(99.5, 21, 32.5, 8.5)
pt3dadd(110.5, 21, 49, 7.2)
pt3dadd(122, 20.5, 55, 7.8)
pt3dadd(132.5, 20, 64.5, 7.8)
pt3dadd(142.5, 21, 64.5, 7.8)
pt3dadd(154.5, 22, 70.5, 9.1)
pt3dadd(159, 22, 75, 9.2)
pt3dadd(170, 21, 81, 7.7)
pt3dadd(182.5, 20.5, 92.5, 9.3)
pt3dadd(188, 22, 89.5, 11.4)
}
dend[192] {pt3dclear()
pt3dadd(188, 22, 89.5, 11.4)
pt3dadd(193, 16.5, 92.5, 4.6)
pt3dadd(204.5, 12, 88, 4.6)
pt3dadd(215.5, 8.5, 92, 4.2)
pt3dadd(223.5, 4.5, 93, 3.7)
pt3dadd(231, 2, 96, 4.8)
pt3dadd(237.5, -2.5, 96.5, 4.1)
pt3dadd(246.5, -8, 91.5, 3.2)
pt3dadd(258, -9.5, 95.5, 3.4)
pt3dadd(265, -12.5, 104, 3.5)
pt3dadd(273, -17.5, 110.5, 3.2)
pt3dadd(280, -20.5, 109, 3.1)
pt3dadd(289.5, -17, 120.5, 3.4)
pt3dadd(298.5, -18, 123.5, 3.5)
pt3dadd(305.5, -23, 124, 4.1)
pt3dadd(311.5, -27, 124.5, 4.4)
pt3dadd(315.5, -29.5, 125, 4.1)
pt3dadd(323, -35, 132.5, 3.8)
pt3dadd(332, -38.5, 133, 3.5)
pt3dadd(341.5, -43, 136, 4.1)
pt3dadd(347.5, -44.5, 148.5, 5)
}
dend[193] {pt3dclear()
pt3dadd(347.5, -44.5, 148.5, 5)
pt3dadd(347.5, -38, 175, 0.8)
}
dend[194] {pt3dclear()
pt3dadd(347.5, -44.5, 148.5, 5)
pt3dadd(356, -49, 154, 3.8)
pt3dadd(364, -54.5, 155.5, 3.5)
pt3dadd(374, -57.5, 169.5, 3.7)
pt3dadd(381, -60.5, 175, 3.9)
pt3dadd(388, -65, 179.5, 3.9)
pt3dadd(397, -69.5, 182.5, 3.1)
pt3dadd(404, -74, 185.5, 3.7)
pt3dadd(411.5, -79, 190.5, 3.5)
pt3dadd(418.5, -84.5, 191, 2.9)
pt3dadd(427, -88.5, 194.5, 3.3)
pt3dadd(431.5, -96.5, 191.5, 3.9)
pt3dadd(438, -100.5, 198.5, 2.9)
pt3dadd(447, -104.5, 199.5, 3.7)
pt3dadd(456.5, -106, 200.5, 3.4)
}
}
proc shape3d_22() {
dend[194] { pt3dadd(464, -109, 203.5, 3.7)
pt3dadd(470.5, -113.5, 202, 2.6)
pt3dadd(477, -117.5, 209, 3.3)
pt3dadd(483, -121, 208, 4.5)
}
dend[195] {pt3dclear()
pt3dadd(483, -121, 208, 4.5)
pt3dadd(489, -126, 211, 2.6)
pt3dadd(495.5, -131.5, 219, 2.5)
pt3dadd(502.5, -136.5, 222, 2.8)
pt3dadd(508.5, -142, 223.5, 2.7)
pt3dadd(510.5, -144.5, 225, 3.2)
pt3dadd(515, -150, 231, 2.8)
pt3dadd(520, -156, 232.5, 2.4)
pt3dadd(526, -162, 236, 2.3)
pt3dadd(532, -168.5, 243, 2.6)
pt3dadd(536.5, -176.5, 248.5, 2.5)
}
dend[196] {pt3dclear()
pt3dadd(536.5, -176.5, 248.5, 2.5)
pt3dadd(540.5, -183, 249.5, 2.1)
pt3dadd(544, -191.5, 249, 2)
pt3dadd(550.5, -197, 253, 1.3)
pt3dadd(554.5, -204.5, 254.5, 1.7)
pt3dadd(559.5, -210.5, 260, 1.5)
pt3dadd(563.5, -218, 261.5, 1.9)
pt3dadd(565.5, -227.5, 263, 1.6)
pt3dadd(568, -237, 274, 1.4)
pt3dadd(568, -240.5, 275, 1.4)
pt3dadd(572.5, -246.5, 275.5, 1.5)
pt3dadd(578, -252, 278, 1.2)
pt3dadd(582, -259, 276.5, 1.3)
pt3dadd(584, -267, 277.5, 1.5)
pt3dadd(588, -277.5, 285, 1.1)
pt3dadd(593, -283.5, 285.5, 1.1)
pt3dadd(599, -288.5, 284.5, 1.3)
pt3dadd(605, -293, 284.5, 1.3)
pt3dadd(611, -299.5, 285, 1.7)
pt3dadd(615, -306.5, 288.5, 1.7)
pt3dadd(622.5, -311, 289.5, 2)
pt3dadd(630, -315, 291.5, 1.4)
pt3dadd(634.5, -322, 290.5, 1.4)
pt3dadd(640.5, -326, 292.5, 1.4)
pt3dadd(645, -333.5, 293, 1.4)
pt3dadd(652, -340.5, 293.5, 1.1)
pt3dadd(657.5, -347, 299, 1.3)
pt3dadd(661, -353.5, 296, 2.5)
pt3dadd(666, -361, 294, 1.2)
pt3dadd(673, -366.5, 301, 1.1)
pt3dadd(680.5, -369.5, 306.5, 1.6)
pt3dadd(689.5, -372, 301, 1)
pt3dadd(696, -376.5, 301.5, 1.4)
pt3dadd(702.5, -381, 302, 1.4)
pt3dadd(708.5, -386.5, 301, 0.9)
pt3dadd(715, -392.5, 305, 0.9)
pt3dadd(721, -399, 305.5, 1.6)
pt3dadd(729.5, -401, 306, 1.1)
pt3dadd(739, -403.5, 306.5, 1.3)
pt3dadd(747, -406.5, 308.5, 1.1)
pt3dadd(754.5, -410.5, 311, 1)
pt3dadd(761.5, -414.5, 311.5, 1.3)
pt3dadd(771.5, -418, 309, 1.4)
pt3dadd(779.5, -420.5, 309.5, 1.1)
pt3dadd(789.5, -421, 312, 1)
pt3dadd(799.5, -424, 312.5, 0.9)
pt3dadd(808, -428, 313, 0.9)
pt3dadd(817, -431, 316.5, 1)
pt3dadd(826, -433.5, 315.5, 1.4)
pt3dadd(835.5, -435, 315, 1.1)
pt3dadd(844.5, -436, 315.5, 1.1)
pt3dadd(854.5, -438, 316, 1)
pt3dadd(863, -440, 318, 1)
pt3dadd(867, -446, 318.5, 0.8)
pt3dadd(867, -457.5, 319, 0.9)
pt3dadd(871.5, -465.5, 319.5, 1.1)
pt3dadd(876, -472.5, 320, 0.8)
pt3dadd(882, -478.5, 322, 0.8)
pt3dadd(886, -486.5, 327.5, 1.3)
pt3dadd(887.5, -488, 325, 1)
pt3dadd(888.5, -497.5, 334.5, 1.2)
pt3dadd(891, -505, 335.5, 1.1)
pt3dadd(894.5, -514, 337, 1)
pt3dadd(899.5, -522.5, 348, 1)
pt3dadd(907.5, -525.5, 345.5, 0.7)
pt3dadd(914, -530.5, 348.5, 1.1)
pt3dadd(922.5, -536.5, 354, 1.1)
pt3dadd(930, -541, 354, 0.9)
pt3dadd(937.5, -546, 356, 0.8)
pt3dadd(943, -553, 357, 1.1)
pt3dadd(948.5, -558.5, 358.5, 0.8)
pt3dadd(954.5, -562.5, 355.5, 0.8)
pt3dadd(963.5, -566, 362, 0.7)
pt3dadd(974.5, -569.5, 365.5, 0.9)
pt3dadd(983.5, -576, 364, 0.5)
pt3dadd(991, -580.5, 365, 1.1)
pt3dadd(1003, -582.5, 363.5, 0.6)
pt3dadd(1009, -588.5, 368.5, 0.9)
pt3dadd(1019.5, -590.5, 372.5, 1.3)
pt3dadd(1026.5, -599, 375, 0.7)
}
dend[197] {pt3dclear()
pt3dadd(536.5, -176.5, 248.5, 2.5)
pt3dadd(543, -184, 246.5, 1.3)
pt3dadd(548.5, -188.5, 241.5, 1.3)
pt3dadd(554, -194, 240, 1.7)
pt3dadd(558.5, -201, 242.5, 1.5)
pt3dadd(561.5, -208, 241, 1.7)
pt3dadd(568.5, -214.5, 237, 1.6)
pt3dadd(572.5, -222, 234, 1.4)
pt3dadd(577.5, -228.5, 232.5, 1.1)
pt3dadd(582, -235, 231, 1.7)
pt3dadd(586.5, -241, 228, 1.2)
pt3dadd(589, -249.5, 230, 1.3)
pt3dadd(593.5, -256, 225, 1.3)
pt3dadd(594.5, -258.5, 225, 1.1)
pt3dadd(603.5, -259.5, 219.5, 1.9)
pt3dadd(612.5, -263.5, 216, 1.9)
pt3dadd(617, -270, 218.5, 2.1)
pt3dadd(626, -271.5, 212, 1.9)
pt3dadd(630.5, -278, 210.5, 2.1)
pt3dadd(636, -283, 207.5, 2.1)
pt3dadd(645, -284, 202, 1.6)
pt3dadd(644, -293.5, 196.5, 1.7)
pt3dadd(651.5, -299, 191, 1.7)
pt3dadd(656, -305, 190, 1.4)
pt3dadd(659, -312, 192.5, 1.5)
pt3dadd(660.5, -321.5, 191, 1.9)
pt3dadd(665, -328, 188, 2.8)
pt3dadd(666.5, -338.5, 188, 1.7)
pt3dadd(667.5, -349, 182.5, 1.6)
pt3dadd(671.5, -358, 181, 2)
pt3dadd(675, -366.5, 185, 2)
pt3dadd(678, -376, 175, 2.5)
pt3dadd(679, -386.5, 169.5, 1.3)
pt3dadd(676.5, -395.5, 171.5, 1.7)
pt3dadd(677, -406.5, 161.5, 1.9)
pt3dadd(680.5, -415.5, 160, 1.3)
pt3dadd(682.5, -425, 154, 0.9)
pt3dadd(686.5, -432, 153, 1)
pt3dadd(693, -435.5, 148, 1.3)
pt3dadd(700.5, -440, 154, 1.1)
pt3dadd(708.5, -443.5, 151.5, 0.9)
pt3dadd(716.5, -446, 145, 1.5)
pt3dadd(725, -448.5, 147.5, 0.6)
pt3dadd(733.5, -451, 138, 1.1)
pt3dadd(742, -455.5, 132.5, 1.3)
pt3dadd(751, -457, 133.5, 1.1)
pt3dadd(759.5, -453, 125, 1)
pt3dadd(767, -455.5, 120, 1.2)
pt3dadd(776, -458, 118, 1)
pt3dadd(783, -464, 118, 0.8)
pt3dadd(787.5, -470, 121, 0.8)
pt3dadd(794, -475.5, 123.5, 1.1)
pt3dadd(800, -480.5, 124, 0.9)
pt3dadd(806.5, -485, 124, 1.6)
pt3dadd(815, -489, 124.5, 1.2)
pt3dadd(824, -490.5, 119.5, 0.8)
pt3dadd(833.5, -492.5, 120, 0.9)
pt3dadd(847, -493.5, 123.5, 0.7)
pt3dadd(855.5, -495.5, 126, 1)
pt3dadd(862, -499.5, 126.5, 0.8)
pt3dadd(870, -502, 126.5, 0.7)
pt3dadd(878.5, -504, 121.5, 0.5)
pt3dadd(884, -509.5, 124.5, 1.3)
pt3dadd(888, -517, 132.5, 0.8)
pt3dadd(890.5, -525, 133, 0.7)
pt3dadd(896.5, -533.5, 138, 0.6)
pt3dadd(905.5, -537, 136, 0.7)
pt3dadd(913, -543, 134, 0.7)
pt3dadd(917, -550.5, 116, 0.9)
pt3dadd(919, -559.5, 127, 0.8)
pt3dadd(923.5, -565, 127, 0.8)
pt3dadd(928, -568, 125, 0.9)
}
dend[198] {pt3dclear()
pt3dadd(483, -121, 208, 4.5)
pt3dadd(482.5, -126, 225, 3.3)
pt3dadd(487.5, -131.5, 233, 1.7)
pt3dadd(491, -139, 246.5, 2.3)
pt3dadd(495.5, -145, 255, 1.7)
pt3dadd(497, -152, 275, 2.1)
pt3dadd(505.5, -149, 303.5, 1.8)
pt3dadd(515, -150, 310.5, 1.1)
pt3dadd(511, -156, 320, 1.3)
pt3dadd(508, -157.5, 325, 1.7)
pt3dadd(506.5, -165, 343.5, 2.3)
}
dend[199] {pt3dclear()
pt3dadd(506.5, -165, 343.5, 2.3)
pt3dadd(503, -169.5, 325, 1.2)
}
dend[200] {pt3dclear()
pt3dadd(506.5, -165, 343.5, 2.3)
pt3dadd(512, -170.5, 348, 1.2)
pt3dadd(515.5, -177.5, 350.5, 1.1)
pt3dadd(518.5, -185, 351, 1.1)
pt3dadd(520.5, -193, 362, 0.7)
pt3dadd(526, -201, 373, 1.5)
pt3dadd(530, -206, 375, 1.6)
pt3dadd(537.5, -211.5, 381.5, 0.9)
pt3dadd(542.5, -216.5, 385.5, 1.2)
pt3dadd(546, -225, 395.5, 1.6)
pt3dadd(549.5, -232.5, 396.5, 0.7)
pt3dadd(548.5, -241.5, 403, 1)
pt3dadd(549, -251.5, 405, 1.1)
pt3dadd(550.5, -260, 408.5, 0.8)
pt3dadd(554.5, -278, 411.5, 1)
pt3dadd(559.5, -286, 410, 0.8)
pt3dadd(562.5, -293.5, 411.5, 1)
pt3dadd(565.5, -301.5, 414.5, 0.9)
pt3dadd(571.5, -306, 413.5, 0.7)
pt3dadd(575.5, -313, 423.5, 0.5)
}
}
proc shape3d_23() {
dend[200] { pt3dadd(579.5, -319.5, 419, 0.7)
pt3dadd(584, -327, 426, 0.9)
pt3dadd(582.5, -332, 425, 0.7)
pt3dadd(587, -337.5, 431.5, 0.7)
pt3dadd(592.5, -343.5, 431.5, 1.6)
pt3dadd(599.5, -350, 431, 0.6)
pt3dadd(605.5, -358, 431, 0.6)
pt3dadd(610.5, -364, 445.5, 0.4)
pt3dadd(616.5, -370, 441.5, 0.6)
pt3dadd(621.5, -377.5, 441, 1.3)
pt3dadd(620, -386, 441, 0.6)
pt3dadd(615.5, -391.5, 441, 0.8)
pt3dadd(612, -400, 441, 0.5)
pt3dadd(607.5, -405.5, 440.5, 0.6)
pt3dadd(601, -410.5, 433.5, 0.8)
pt3dadd(595.5, -415.5, 433.5, 0.7)
pt3dadd(590.5, -421, 429, 0.5)
pt3dadd(584.5, -427, 429, 0.5)
pt3dadd(579.5, -433.5, 429, 0.5)
pt3dadd(578.5, -442.5, 429, 0.5)
pt3dadd(575.5, -451, 439.5, 0.9)
}
dend[201] {pt3dclear()
pt3dadd(575.5, -451, 439.5, 0.9)
pt3dadd(573.5, -459, 432.5, 0.6)
pt3dadd(573, -465.5, 425, 0.9)
}
dend[202] {pt3dclear()
pt3dadd(575.5, -451, 439.5, 0.9)
pt3dadd(578.5, -461, 439, 1.5)
pt3dadd(581.5, -468, 435.5, 1.3)
pt3dadd(582.5, -479, 435.5, 1.2)
pt3dadd(581, -487.5, 442.5, 0.8)
pt3dadd(587.5, -493, 442.5, 1.2)
pt3dadd(590.5, -500, 442.5, 1.4)
pt3dadd(595, -507.5, 442, 1.1)
pt3dadd(591, -516, 438.5, 1)
pt3dadd(585, -522.5, 442, 1.1)
pt3dadd(582.5, -530, 438.5, 0.9)
pt3dadd(585, -539, 438.5, 1.9)
pt3dadd(591, -543.5, 438.5, 0.7)
pt3dadd(602, -545.5, 438, 1.2)
pt3dadd(613, -546.5, 441.5, 0.8)
pt3dadd(619.5, -552, 438, 0.7)
pt3dadd(624.5, -558, 434.5, 0.7)
pt3dadd(629.5, -563, 434.5, 1.3)
pt3dadd(635.5, -567, 431, 0.9)
pt3dadd(644.5, -568, 434, 0.9)
pt3dadd(650, -572.5, 437.5, 0.7)
pt3dadd(658.5, -576, 434, 1.7)
pt3dadd(667.5, -577, 434, 1.1)
pt3dadd(676.5, -579.5, 427, 0.7)
pt3dadd(682.5, -585, 434, 0.6)
pt3dadd(689.5, -589, 440.5, 1.4)
pt3dadd(697.5, -593, 430, 0.8)
pt3dadd(706, -595, 430, 0.8)
pt3dadd(714, -598, 430, 0.7)
pt3dadd(723, -599.5, 426.5, 0.9)
pt3dadd(731.5, -598, 426.5, 0.4)
pt3dadd(736, -590.5, 433, 0.7)
pt3dadd(739.5, -584, 436.5, 0.9)
pt3dadd(742, -574, 436.5, 0.9)
pt3dadd(740.5, -564, 436.5, 0.7)
pt3dadd(738, -556.5, 436.5, 0.8)
pt3dadd(729.5, -552.5, 432.5, 0.8)
pt3dadd(724.5, -546.5, 436, 0.8)
pt3dadd(725.5, -537, 443, 0.9)
pt3dadd(725, -525.5, 443, 0.7)
pt3dadd(724, -516, 443, 0.5)
pt3dadd(721.5, -508, 436, 1.5)
pt3dadd(722, -504.5, 439.5, 1.1)
}
dend[203] {pt3dclear()
pt3dadd(188, 22, 89.5, 11.4)
pt3dadd(195.5, 27.5, 88, 7.1)
pt3dadd(205.5, 30.5, 100.5, 6)
pt3dadd(214, 32.5, 97, 6)
pt3dadd(222.5, 37, 109.5, 6.2)
pt3dadd(231, 43, 113.5, 5.5)
pt3dadd(239, 46, 114.5, 6.9)
pt3dadd(242, 53, 122, 5.4)
pt3dadd(245, 53.5, 125, 5.7)
pt3dadd(250, 61, 133.5, 7.1)
pt3dadd(255, 68, 138, 5.6)
pt3dadd(263.5, 72, 166.5, 5.4)
pt3dadd(270.5, 76, 175, 6.1)
pt3dadd(276.5, 76.5, 191, 7.2)
}
dend[204] {pt3dclear()
pt3dadd(276.5, 76.5, 191, 7.2)
pt3dadd(284, 79.5, 191.5, 5.5)
pt3dadd(295, 83, 196, 4.9)
pt3dadd(303.5, 86, 196, 5.4)
pt3dadd(310.5, 91, 206.5, 7.7)
}
dend[205] {pt3dclear()
pt3dadd(310.5, 91, 206.5, 7.7)
pt3dadd(313, 103, 200.5, 4)
pt3dadd(317.5, 109.5, 202.5, 4)
pt3dadd(321, 117, 200.5, 3.1)
pt3dadd(323.5, 125.5, 200.5, 3.1)
pt3dadd(326.5, 136.5, 200.5, 3.2)
pt3dadd(328, 138.5, 206.5, 3.4)
}
dend[206] {pt3dclear()
pt3dadd(328, 138.5, 206.5, 3.4)
pt3dadd(330.5, 149, 209, 2.1)
pt3dadd(335, 156, 206, 2.6)
pt3dadd(332.5, 174, 203.5, 3.1)
pt3dadd(330, 185.5, 208, 3.2)
pt3dadd(326, 192.5, 208.5, 3.1)
pt3dadd(323.5, 201.5, 207, 2.5)
pt3dadd(322, 211, 207.5, 2.5)
pt3dadd(318.5, 217.5, 212, 2.4)
pt3dadd(320, 228, 213, 2.2)
pt3dadd(322.5, 236.5, 215.5, 2.5)
pt3dadd(325.5, 243.5, 215.5, 2.3)
pt3dadd(327, 252, 214, 2.3)
pt3dadd(330.5, 260, 217, 1.7)
pt3dadd(336.5, 265, 215, 2.2)
pt3dadd(342.5, 270, 214, 3.4)
pt3dadd(349.5, 274, 208.5, 2.1)
pt3dadd(355.5, 279, 213.5, 2.6)
pt3dadd(361, 283.5, 211.5, 1.7)
pt3dadd(366, 288.5, 212, 2.8)
pt3dadd(374, 290.5, 207, 1.6)
pt3dadd(382.5, 293, 211.5, 2.6)
pt3dadd(389, 300.5, 218.5, 1.3)
pt3dadd(395, 306, 215, 1.3)
pt3dadd(404, 307, 215.5, 1.9)
pt3dadd(409, 313, 216, 1.9)
pt3dadd(417, 317.5, 218.5, 1.5)
pt3dadd(423, 324.5, 215, 1.4)
pt3dadd(433.5, 327.5, 216, 2.7)
pt3dadd(441.5, 330.5, 214.5, 1.5)
pt3dadd(447, 336, 215.5, 1.6)
pt3dadd(453.5, 341.5, 218, 1.6)
pt3dadd(460.5, 345, 222.5, 1.1)
pt3dadd(464.5, 352, 223.5, 1.4)
pt3dadd(471, 357.5, 224, 1.4)
pt3dadd(477, 362, 222.5, 3.4)
pt3dadd(485, 365.5, 225, 2.7)
pt3dadd(490.5, 371, 223.5, 1.6)
pt3dadd(496.5, 376, 224, 2.5)
pt3dadd(504, 382, 220.5, 1.2)
pt3dadd(511, 387, 231.5, 1.4)
pt3dadd(515.5, 392.5, 228, 1.8)
pt3dadd(521, 397, 230.5, 1.7)
pt3dadd(523, 406.5, 227, 2.2)
pt3dadd(525.5, 415, 231.5, 1.6)
pt3dadd(530.5, 422, 222.5, 1)
pt3dadd(536, 430.5, 225, 1)
pt3dadd(537, 440, 225.5, 1)
pt3dadd(541, 448.5, 224.5, 1.2)
pt3dadd(547, 450, 225, 1)
}
dend[207] {pt3dclear()
pt3dadd(328, 138.5, 206.5, 3.4)
pt3dadd(331.5, 147, 209.5, 1)
pt3dadd(338, 151, 212.5, 1)
pt3dadd(344.5, 155, 214.5, 1)
pt3dadd(350.5, 159, 217.5, 1)
pt3dadd(358.5, 163.5, 222, 1)
pt3dadd(359, 168, 225, 1)
pt3dadd(366.5, 172.5, 233, 0.5)
pt3dadd(375, 175, 244.5, 1.3)
pt3dadd(381.5, 178.5, 252.5, 0.3)
pt3dadd(387, 184.5, 262, 0.3)
pt3dadd(392.5, 189.5, 268.5, 1.4)
}
dend[208] {pt3dclear()
pt3dadd(392.5, 189.5, 268.5, 1.4)
pt3dadd(398.5, 198, 274, 0.8)
pt3dadd(400.5, 202, 275, 1.2)
}
dend[209] {pt3dclear()
pt3dadd(392.5, 189.5, 268.5, 1.4)
pt3dadd(397, 195.5, 266.5, 4.5)
pt3dadd(404, 202, 267, 4)
pt3dadd(409.5, 211.5, 267.5, 3.4)
pt3dadd(414.5, 217.5, 268, 3.3)
pt3dadd(420, 224, 269, 3.1)
pt3dadd(425, 230.5, 269.5, 3.4)
pt3dadd(429.5, 239, 276.5, 3.4)
pt3dadd(434.5, 244, 277.5, 3.4)
pt3dadd(440, 249, 268.5, 3.5)
pt3dadd(444.5, 258, 272, 3.5)
pt3dadd(449.5, 265.5, 268.5, 4.5)
pt3dadd(455.5, 270, 275, 3.2)
pt3dadd(461, 276, 275, 3.7)
pt3dadd(466.5, 282.5, 268.5, 3.2)
pt3dadd(471, 289, 265.5, 3)
pt3dadd(475, 296, 265.5, 3.7)
pt3dadd(483, 302.5, 268.5, 3.8)
pt3dadd(494, 302.5, 275.5, 3.2)
pt3dadd(501.5, 308, 275.5, 3.7)
pt3dadd(508.5, 313.5, 275.5, 2.9)
pt3dadd(518, 319.5, 276, 2.9)
pt3dadd(524, 326, 279, 2.9)
pt3dadd(530, 331, 279, 2.3)
pt3dadd(535.5, 335.5, 279.5, 2.6)
pt3dadd(540.5, 342, 279.5, 2.8)
pt3dadd(546.5, 346.5, 283, 2.7)
pt3dadd(555.5, 352.5, 277, 3)
pt3dadd(563.5, 358.5, 271.5, 3.2)
pt3dadd(569.5, 364.5, 268, 3.5)
pt3dadd(574.5, 372.5, 268, 3.4)
pt3dadd(580.5, 380, 275, 3.9)
pt3dadd(587, 389, 268.5, 3.7)
pt3dadd(594, 395, 271, 2.6)
pt3dadd(598, 404, 270, 2.8)
pt3dadd(604, 411.5, 273, 3.3)
pt3dadd(608, 417.5, 272.5, 3.2)
pt3dadd(612, 424.5, 271.5, 3.2)
pt3dadd(617, 429.5, 274, 3.4)
pt3dadd(622.5, 436.5, 270, 3.2)
pt3dadd(622, 446.5, 262.5, 2.4)
pt3dadd(624, 454.5, 258.5, 2.1)
}
}
proc shape3d_24() {
dend[209] { pt3dadd(631, 458, 260, 2.4)
pt3dadd(640, 459, 259.5, 3)
pt3dadd(647.5, 463, 259, 3.4)
pt3dadd(652.5, 468, 258, 3.4)
pt3dadd(656.5, 472.5, 258, 5.3)
}
dend[210] {pt3dclear()
pt3dadd(656.5, 472.5, 258, 5.3)
pt3dadd(652, 480.5, 261, 2.1)
pt3dadd(648.5, 487.5, 255, 1.3)
pt3dadd(645, 495, 264.5, 0.8)
pt3dadd(639, 502, 258, 1.3)
pt3dadd(636.5, 510, 261, 1.2)
pt3dadd(634, 521, 255.5, 1.4)
pt3dadd(631.5, 528.5, 261.5, 1)
pt3dadd(632, 531.5, 261.5, 2)
}
dend[211] {pt3dclear()
pt3dadd(632, 531.5, 261.5, 2)
pt3dadd(637.5, 536.5, 261.5, 1.2)
pt3dadd(641.5, 543, 255.5, 1)
pt3dadd(645.5, 549, 258, 0.8)
pt3dadd(649, 557, 258, 1.6)
pt3dadd(655.5, 561, 258, 1.1)
pt3dadd(660, 566.5, 264.5, 0.9)
pt3dadd(663.5, 575, 261, 2.6)
}
dend[212] {pt3dclear()
pt3dadd(663.5, 575, 261, 2.6)
pt3dadd(674, 574.5, 266, 1.3)
pt3dadd(681.5, 579.5, 267, 1)
pt3dadd(685, 584, 268.5, 0.7)
}
dend[213] {pt3dclear()
pt3dadd(663.5, 575, 261, 2.6)
pt3dadd(667.5, 580.5, 268.5, 0.5)
}
dend[214] {pt3dclear()
pt3dadd(632, 531.5, 261.5, 2)
pt3dadd(630, 535.5, 268.5, 0.9)
}
dend[215] {pt3dclear()
pt3dadd(656.5, 472.5, 258, 5.3)
pt3dadd(666, 476.5, 264, 3.2)
pt3dadd(672.5, 481, 266.5, 2.3)
pt3dadd(677, 487, 268.5, 2.7)
pt3dadd(683.5, 494, 274.5, 3)
pt3dadd(687.5, 500, 274.5, 1.9)
pt3dadd(691, 506.5, 271.5, 2.3)
pt3dadd(696, 512.5, 271.5, 2.8)
pt3dadd(698.5, 514, 268.5, 2.8)
pt3dadd(707.5, 517, 269, 3)
pt3dadd(720, 525.5, 269, 2.6)
pt3dadd(725.5, 532, 269.5, 2.4)
pt3dadd(732, 538, 263, 2.5)
pt3dadd(735.5, 545, 260.5, 3)
pt3dadd(741, 552, 270, 2.5)
pt3dadd(749, 559.5, 267.5, 2.5)
pt3dadd(755, 565, 267.5, 2.5)
pt3dadd(760.5, 573, 264, 2.4)
pt3dadd(766, 579.5, 268, 2.5)
pt3dadd(771.5, 585, 268, 2.2)
pt3dadd(775.5, 591, 268, 3.2)
pt3dadd(780.5, 596.5, 265, 2.5)
pt3dadd(788, 601, 262, 2)
pt3dadd(792.5, 607, 262, 2.2)
pt3dadd(797, 613.5, 265, 2.3)
pt3dadd(802.5, 619.5, 265.5, 2.3)
pt3dadd(807, 625, 265.5, 2)
pt3dadd(812, 630.5, 265.5, 1.8)
pt3dadd(817.5, 636.5, 266, 2.5)
pt3dadd(824.5, 643, 269.5, 2.7)
pt3dadd(831, 648, 269.5, 1.9)
pt3dadd(836.5, 653.5, 270, 2.2)
pt3dadd(839.5, 661, 273, 3.2)
pt3dadd(845.5, 665.5, 270, 2.4)
pt3dadd(850, 671.5, 267, 2.3)
pt3dadd(856.5, 676, 267, 2.6)
pt3dadd(865, 685, 267.5, 2)
pt3dadd(870, 690.5, 274, 2.7)
pt3dadd(876.5, 695, 271, 2.3)
pt3dadd(883, 702.5, 271.5, 2.5)
pt3dadd(890, 707.5, 268, 3)
pt3dadd(897, 715, 271.5, 2.8)
pt3dadd(903.5, 720, 268.5, 2.2)
pt3dadd(913, 734.5, 268.5, 2.7)
pt3dadd(919.5, 739.5, 265, 2.7)
pt3dadd(925, 744, 271.5, 3.6)
pt3dadd(931.5, 750.5, 271.5, 2.6)
pt3dadd(935, 756, 268.5, 2.6)
pt3dadd(945, 759.5, 272.5, 1.8)
pt3dadd(950.5, 764.5, 269.5, 2.1)
pt3dadd(952, 774, 269.5, 2.3)
pt3dadd(956, 782.5, 276, 3.2)
pt3dadd(958.5, 791, 276.5, 2.2)
pt3dadd(964, 796, 273.5, 3.4)
pt3dadd(959.5, 804, 274, 2.8)
pt3dadd(962, 812.5, 270.5, 2.8)
pt3dadd(962.5, 823, 271, 2.6)
pt3dadd(963, 832.5, 271, 1.7)
pt3dadd(963.5, 843, 275, 1.4)
pt3dadd(961.5, 853, 268.5, 1.9)
}
dend[216] {pt3dclear()
pt3dadd(310.5, 91, 206.5, 7.7)
pt3dadd(322.5, 92.5, 201, 4.8)
pt3dadd(333, 95.5, 197.5, 4.5)
pt3dadd(342, 97.5, 202, 4.4)
pt3dadd(351.5, 98.5, 200.5, 4.1)
pt3dadd(363, 102, 203, 5.1)
pt3dadd(370.5, 105, 205, 5.9)
pt3dadd(377.5, 110, 209.5, 5.5)
pt3dadd(384.5, 114, 206, 6.2)
pt3dadd(392, 119.5, 210.5, 3.5)
pt3dadd(399.5, 123.5, 209, 4.5)
pt3dadd(408.5, 127, 211.5, 4.6)
pt3dadd(420, 128, 210, 4.5)
pt3dadd(431, 129.5, 214.5, 4.5)
pt3dadd(443, 131, 219, 4.2)
pt3dadd(451.5, 133.5, 213.5, 3.5)
pt3dadd(461, 137, 214, 3.3)
pt3dadd(470, 139.5, 216.5, 3.8)
pt3dadd(479, 141.5, 218.5, 3.7)
pt3dadd(488.5, 139, 217, 5.5)
pt3dadd(498, 138, 223.5, 5)
pt3dadd(510.5, 138, 222, 4.4)
pt3dadd(522.5, 138, 218.5, 3.5)
pt3dadd(532, 136.5, 223, 2.8)
pt3dadd(542.5, 137.5, 221.5, 5.1)
pt3dadd(553.5, 138.5, 224, 3.4)
pt3dadd(564, 138.5, 220.5, 5)
}
dend[217] {pt3dclear()
pt3dadd(564, 138.5, 220.5, 5)
pt3dadd(568, 138.5, 225, 4.8)
}
dend[218] {pt3dclear()
pt3dadd(564, 138.5, 220.5, 5)
pt3dadd(572, 142, 219, 1.9)
pt3dadd(583, 144, 208.5, 2.2)
pt3dadd(594, 143, 205.5, 2.2)
pt3dadd(603, 141, 201, 1.6)
pt3dadd(613, 139.5, 201.5, 2.6)
pt3dadd(622, 142, 193.5, 1.9)
pt3dadd(632, 143.5, 187.5, 2.7)
pt3dadd(642, 144, 186, 1.8)
pt3dadd(652.5, 145, 184.5, 1.5)
pt3dadd(662.5, 146.5, 185.5, 2.5)
pt3dadd(668.5, 140.5, 183, 2.1)
pt3dadd(673.5, 136.5, 170.5, 2.8)
pt3dadd(682.5, 135.5, 177, 2.5)
pt3dadd(694, 135, 164.5, 2.1)
pt3dadd(703.5, 132, 164, 2.7)
pt3dadd(713, 130.5, 163, 2.1)
pt3dadd(723.5, 127.5, 154, 1.4)
pt3dadd(732, 124.5, 160.5, 2.3)
pt3dadd(741, 121.5, 156, 1.8)
pt3dadd(750.5, 119, 158.5, 1.9)
pt3dadd(760.5, 119, 154, 1.8)
pt3dadd(769.5, 116.5, 149.5, 1.5)
pt3dadd(780, 116, 152, 1.3)
pt3dadd(792, 116.5, 156.5, 2.1)
pt3dadd(799.5, 121.5, 148.5, 1.7)
pt3dadd(806, 125.5, 148, 1.5)
pt3dadd(816, 125.5, 147, 2)
pt3dadd(824.5, 127.5, 138.5, 1.7)
pt3dadd(834, 127, 134, 1.5)
pt3dadd(842, 129.5, 133, 2.1)
pt3dadd(851, 131.5, 142.5, 2.3)
pt3dadd(860.5, 129, 130, 1.2)
pt3dadd(869.5, 127.5, 129, 1.6)
pt3dadd(877, 130, 128.5, 1.6)
pt3dadd(881.5, 129, 120.5, 2.7)
pt3dadd(890, 127, 117.5, 1.7)
pt3dadd(896.5, 123.5, 112, 1.3)
pt3dadd(905, 120, 104, 1.2)
pt3dadd(915, 117, 103, 1.3)
pt3dadd(918.5, 110.5, 107.5, 1.6)
pt3dadd(922, 104, 104.5, 1.5)
pt3dadd(921.5, 93, 93.5, 1.8)
pt3dadd(918, 86, 93, 1.2)
pt3dadd(924, 79.5, 92, 1.4)
pt3dadd(926, 70, 88.5, 1.4)
pt3dadd(930.5, 62.5, 88, 1.2)
pt3dadd(931.5, 53, 94, 1.1)
pt3dadd(936, 46.5, 91, 1.5)
pt3dadd(939.5, 38, 84.5, 1.2)
pt3dadd(946, 30, 83.5, 1.4)
pt3dadd(947.5, 20.5, 83, 1.7)
pt3dadd(952, 15, 82.5, 1.1)
pt3dadd(955.5, 8.5, 77, 1.3)
pt3dadd(961, 2.5, 81.5, 1.3)
pt3dadd(956, -3.5, 80.5, 1.5)
pt3dadd(957.5, -13.5, 82.5, 1.8)
pt3dadd(960.5, -20.5, 71, 1.1)
pt3dadd(962, -25, 70.5, 1)
}
dend[219] {pt3dclear()
pt3dadd(276.5, 76.5, 191, 7.2)
pt3dadd(284, 70, 199.5, 5.7)
pt3dadd(293, 67.5, 203.5, 6.7)
pt3dadd(297.5, 73.5, 214, 5.7)
pt3dadd(308, 75, 216.5, 5.5)
pt3dadd(316, 80.5, 225, 6.3)
pt3dadd(322, 84.5, 228, 5.1)
pt3dadd(334, 89, 242.5, 4.6)
pt3dadd(342.5, 92.5, 257, 4.2)
pt3dadd(352.5, 90.5, 267.5, 4.8)
pt3dadd(355.5, 91, 275, 4.8)
pt3dadd(359.5, 98, 287, 5.3)
pt3dadd(361.5, 106, 295, 4.8)
pt3dadd(365.5, 112.5, 301.5, 4.1)
pt3dadd(369.5, 106.5, 314.5, 5.1)
pt3dadd(377, 110, 325, 5)
pt3dadd(373, 116.5, 335, 4.5)
pt3dadd(367, 122, 335.5, 3.2)
pt3dadd(374, 128, 336.5, 3)
pt3dadd(382.5, 133, 349, 2.8)
pt3dadd(389, 137.5, 359, 2.6)
pt3dadd(400, 137.5, 361.5, 2.8)
}
}
proc shape3d_25() {
dend[219] { pt3dadd(406, 142.5, 369.5, 2.7)
pt3dadd(407.5, 148.5, 375, 3.4)
pt3dadd(414, 155.5, 382.5, 2.7)
pt3dadd(419, 164.5, 388, 2.4)
pt3dadd(425.5, 171, 392, 2.8)
pt3dadd(424.5, 180.5, 397.5, 3.7)
pt3dadd(434, 187.5, 418.5, 2.3)
pt3dadd(437.5, 192.5, 425, 2.3)
pt3dadd(439, 196.5, 442.5, 2.7)
}
dend[220] {pt3dclear()
pt3dadd(439, 196.5, 442.5, 2.7)
pt3dadd(430.5, 199, 452.5, 1.4)
pt3dadd(421.5, 197, 459, 0.9)
pt3dadd(419.5, 191.5, 475, 1.6)
pt3dadd(415.5, 185, 483, 1.4)
pt3dadd(423.5, 188, 513.5, 0.9)
pt3dadd(425.5, 187.5, 525, 1.1)
}
dend[221] {pt3dclear()
pt3dadd(439, 196.5, 442.5, 2.7)
pt3dadd(441, 205, 452, 2.4)
pt3dadd(443, 213, 468.5, 2.6)
pt3dadd(447, 220, 470, 2.5)
pt3dadd(451.5, 227.5, 471.5, 2.3)
pt3dadd(456.5, 234, 470, 2.6)
pt3dadd(462.5, 243, 469, 2.1)
pt3dadd(465.5, 250.5, 474, 2.5)
pt3dadd(468, 253.5, 475, 2.5)
pt3dadd(471.5, 260.5, 478, 2.8)
pt3dadd(476.5, 266, 483.5, 1.9)
pt3dadd(478.5, 274.5, 483, 2.3)
pt3dadd(480.5, 284, 487, 2.3)
pt3dadd(484, 292, 488, 1.9)
pt3dadd(488.5, 297.5, 489.5, 1.7)
pt3dadd(496, 304.5, 495, 1.7)
pt3dadd(502, 311.5, 497, 1.7)
pt3dadd(507.5, 316.5, 500.5, 2)
pt3dadd(512, 322.5, 501.5, 1.8)
pt3dadd(519, 328, 503, 1.7)
pt3dadd(526, 332.5, 504.5, 1.4)
pt3dadd(541.5, 340, 507, 2.2)
pt3dadd(549, 342.5, 510.5, 1.8)
pt3dadd(561, 342.5, 517, 2.5)
pt3dadd(571.5, 341, 521, 1.8)
pt3dadd(580.5, 338.5, 521, 1.7)
pt3dadd(587.5, 340, 525, 2.7)
pt3dadd(597.5, 341.5, 537, 2.5)
pt3dadd(608, 342, 544, 2)
pt3dadd(615.5, 346.5, 543.5, 1.7)
pt3dadd(624, 351, 558.5, 1.8)
pt3dadd(631, 354, 564, 1.8)
pt3dadd(635.5, 360.5, 575, 1.9)
pt3dadd(644, 365, 577.5, 1.9)
pt3dadd(650, 370, 577.5, 2.2)
pt3dadd(657, 373.5, 577.5, 2.1)
pt3dadd(664, 376.5, 577.5, 2.2)
pt3dadd(673.5, 380.5, 577.5, 1.8)
pt3dadd(679, 385, 580, 1.8)
pt3dadd(688, 389, 582.5, 2.3)
pt3dadd(696, 394.5, 585, 1.7)
pt3dadd(703.5, 397.5, 585, 1.8)
pt3dadd(711, 401, 585, 1.8)
pt3dadd(717, 406.5, 587.5, 1.9)
pt3dadd(725, 411, 582.5, 1.9)
pt3dadd(735, 411.5, 582.5, 1.7)
pt3dadd(742.5, 414, 582.5, 2.2)
pt3dadd(752, 418, 580, 1.7)
pt3dadd(760.5, 419.5, 580, 1.9)
pt3dadd(769, 421.5, 580, 1.6)
pt3dadd(779, 422, 580, 1.6)
pt3dadd(789, 421, 577.5, 1.8)
pt3dadd(799, 421, 575, 1.9)
pt3dadd(809, 419.5, 575, 1.7)
pt3dadd(814.5, 420.5, 575, 2)
pt3dadd(813.5, 417.5, 564.5, 1.7)
pt3dadd(805.5, 413.5, 554, 1.7)
pt3dadd(804, 404.5, 544, 1.4)
pt3dadd(812.5, 402, 525, 2.1)
}
dend[222] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 18)
pt3dadd(20, 34, 10.5, 18)
pt3dadd(14.5, 42.5, 10.5, 12.1)
pt3dadd(9.5, 51, 8.5, 11)
pt3dadd(3.5, 60.5, 14.5, 7.8)
pt3dadd(-3, 69.5, 14.5, 9.9)
pt3dadd(-8, 75, 16.5, 9.9)
pt3dadd(-14.5, 83.5, 18.5, 11.8)
pt3dadd(-15.5, 86, 18.5, 12.4)
}
dend[223] {pt3dclear()
pt3dadd(-15.5, 86, 18.5, 12.4)
pt3dadd(-24.5, 90.5, 23.5, 6.5)
pt3dadd(-30.5, 96, 24, 4.2)
pt3dadd(-32.5, 98.5, 25, 4.2)
pt3dadd(-39, 103, 28, 2.8)
pt3dadd(-43, 109, 38, 1.9)
pt3dadd(-46, 117.5, 45.5, 1)
pt3dadd(-51, 123, 55, 1.5)
pt3dadd(-59, 125.5, 61.5, 1.8)
pt3dadd(-68, 124.5, 73, 0.9)
pt3dadd(-68.5, 122, 75, 1)
pt3dadd(-74, 117.5, 100, 0.8)
pt3dadd(-74, 120.5, 103.5, 1.3)
}
dend[224] {pt3dclear()
pt3dadd(-74, 120.5, 103.5, 1.3)
pt3dadd(-72, 121.5, 106, 1.2)
}
dend[225] {pt3dclear()
pt3dadd(-74, 120.5, 103.5, 1.3)
pt3dadd(-65, 116, 112, 0.8)
pt3dadd(-59.5, 115.5, 112.5, 1.3)
}
dend[226] {pt3dclear()
pt3dadd(-59.5, 115.5, 112.5, 1.3)
pt3dadd(-53, 111.5, 112, 0.8)
pt3dadd(-52, 103, 111.5, 1)
}
dend[227] {pt3dclear()
pt3dadd(-52, 103, 111.5, 1)
pt3dadd(-61.5, 102, 101, 0.5)
pt3dadd(-69.5, 104.5, 103.5, 0.5)
pt3dadd(-80, 106, 108.5, 0.3)
pt3dadd(-86.5, 110.5, 111.5, 0.3)
pt3dadd(-91.5, 112.5, 111.5, 0.3)
}
dend[228] {pt3dclear()
pt3dadd(-52, 103, 111.5, 1)
pt3dadd(-42.5, 104, 108, 0.3)
pt3dadd(-39.5, 105.5, 108, 1.8)
}
dend[229] {pt3dclear()
pt3dadd(-59.5, 115.5, 112.5, 1.3)
pt3dadd(-60, 118, 125, 0.5)
}
dend[230] {pt3dclear()
pt3dadd(-15.5, 86, 18.5, 12.4)
pt3dadd(-14, 96, 17, 4.3)
pt3dadd(-14, 106.5, 15, 4.4)
pt3dadd(-15.5, 115.5, 21, 6.4)
}
dend[231] {pt3dclear()
pt3dadd(-15.5, 115.5, 21, 6.4)
pt3dadd(-13, 124, 17, 4.6)
pt3dadd(-10, 136, 15.5, 3.4)
pt3dadd(-5.5, 142, 15.5, 3.5)
pt3dadd(-1, 150.5, 15.5, 3.5)
pt3dadd(4, 156.5, 17.5, 4.5)
}
dend[232] {pt3dclear()
pt3dadd(4, 156.5, 17.5, 4.5)
pt3dadd(6.5, 154, 25, 2.5)
}
dend[233] {pt3dclear()
pt3dadd(4, 156.5, 17.5, 4.5)
pt3dadd(9, 163.5, 18.5, 3.9)
pt3dadd(11.5, 171, 24, 3.5)
pt3dadd(16, 179.5, 27.5, 4.1)
pt3dadd(19, 186.5, 25, 4)
pt3dadd(24.5, 192.5, 32.5, 3.2)
pt3dadd(26.5, 201.5, 40.5, 5.5)
}
dend[234] {pt3dclear()
pt3dadd(26.5, 201.5, 40.5, 5.5)
pt3dadd(32.5, 206, 49.5, 1.8)
pt3dadd(38.5, 213.5, 49, 2.1)
pt3dadd(43, 220.5, 56, 1.5)
pt3dadd(52, 223, 70.5, 2)
pt3dadd(56, 227, 75, 2.5)
pt3dadd(60, 234, 82, 2)
pt3dadd(66, 238.5, 84, 2.4)
pt3dadd(73.5, 242.5, 88, 1.8)
pt3dadd(78, 249.5, 92, 1.7)
pt3dadd(82.5, 256.5, 97, 2.1)
pt3dadd(86, 263, 101.5, 2.2)
pt3dadd(90, 270, 103, 1.9)
pt3dadd(96.5, 274.5, 105, 2.5)
pt3dadd(102, 281.5, 110, 2.1)
pt3dadd(104.5, 289.5, 111.5, 1.7)
pt3dadd(110.5, 293.5, 121.5, 1.9)
pt3dadd(112, 296, 125, 1.9)
pt3dadd(110.5, 306.5, 144.5, 2.5)
pt3dadd(108, 316.5, 143.5, 1.5)
pt3dadd(101, 323, 164.5, 1.6)
pt3dadd(96.5, 330.5, 173, 1.2)
pt3dadd(97, 337, 175, 1)
pt3dadd(97, 347.5, 188, 2)
pt3dadd(100.5, 354, 207, 1.3)
pt3dadd(102.5, 349.5, 213, 3)
}
dend[235] {pt3dclear()
pt3dadd(102.5, 349.5, 213, 3)
pt3dadd(103, 355.5, 225, 2.2)
}
dend[236] {pt3dclear()
pt3dadd(102.5, 349.5, 213, 3)
pt3dadd(105.5, 351.5, 225, 1.5)
pt3dadd(103, 357, 239, 3.4)
}
dend[237] {pt3dclear()
pt3dadd(103, 357, 239, 3.4)
pt3dadd(101, 360.5, 225, 2)
pt3dadd(94, 364.5, 257, 1.1)
pt3dadd(100, 368, 275, 1.2)
pt3dadd(107.5, 371, 281.5, 1.1)
pt3dadd(113.5, 375, 287.5, 0.9)
pt3dadd(120.5, 379, 295.5, 0.9)
pt3dadd(126, 373, 307, 1.3)
pt3dadd(132, 377, 317, 0.7)
pt3dadd(134, 376.5, 325, 1)
pt3dadd(138.5, 382, 338, 1.1)
pt3dadd(148, 381, 361, 1.2)
pt3dadd(141.5, 384.5, 367, 0.8)
pt3dadd(134.5, 387.5, 369, 0.8)
pt3dadd(127.5, 392, 375, 0.8)
pt3dadd(124.5, 396.5, 375, 0.9)
pt3dadd(116, 395, 400.5, 0.6)
pt3dadd(110.5, 390.5, 413.5, 0.4)
pt3dadd(102, 389, 419, 0.5)
pt3dadd(105.5, 386.5, 425, 1.2)
pt3dadd(114.5, 384, 446.5, 0.5)
pt3dadd(116, 374, 455.5, 0.6)
pt3dadd(110, 370, 459.5, 0.9)
pt3dadd(102.5, 369, 475, 1.2)
}
dend[238] {pt3dclear()
pt3dadd(103, 357, 239, 3.4)
pt3dadd(106, 360.5, 225, 1.3)
}
dend[239] {pt3dclear()
pt3dadd(26.5, 201.5, 40.5, 5.5)
pt3dadd(25, 211.5, 44, 3.4)
pt3dadd(25, 223, 44, 4.1)
pt3dadd(25, 228.5, 44, 5.2)
}
dend[240] {pt3dclear()
pt3dadd(25, 228.5, 44, 5.2)
pt3dadd(20, 234, 49.5, 2.3)
pt3dadd(17, 242, 56.5, 2.5)
pt3dadd(15.5, 252.5, 63, 2.5)
}
}
proc shape3d_26() {
dend[240] { pt3dadd(14.5, 262, 66, 2.5)
pt3dadd(17.5, 269.5, 75, 3.1)
pt3dadd(18, 280.5, 86.5, 2.3)
pt3dadd(23, 286, 87, 2.1)
pt3dadd(29.5, 290.5, 87.5, 2)
pt3dadd(36, 294, 88, 2)
pt3dadd(39, 304.5, 100, 2)
pt3dadd(41.5, 313, 103, 2.8)
pt3dadd(45, 321.5, 99, 2.3)
pt3dadd(49, 330.5, 99.5, 2.2)
pt3dadd(53.5, 339, 98, 2.1)
pt3dadd(55, 348, 101, 2)
pt3dadd(58.5, 356.5, 104.5, 2.1)
pt3dadd(60.5, 364.5, 110.5, 2.1)
pt3dadd(62.5, 373, 103.5, 1.8)
pt3dadd(64, 382.5, 104.5, 2)
pt3dadd(66.5, 391, 110, 2.5)
pt3dadd(70, 397.5, 110.5, 1.8)
pt3dadd(71, 410.5, 112, 2.7)
pt3dadd(73.5, 420, 118.5, 2.5)
pt3dadd(78, 427.5, 124.5, 3.2)
pt3dadd(82, 434.5, 123, 2.5)
pt3dadd(86, 442, 126, 2)
pt3dadd(89.5, 451, 124.5, 1.9)
pt3dadd(91, 452.5, 125, 1.9)
pt3dadd(95, 458.5, 128.5, 2.8)
pt3dadd(100.5, 464.5, 128.5, 1.6)
pt3dadd(106.5, 485.5, 128.5, 3.1)
pt3dadd(108.5, 496.5, 135.5, 3.5)
pt3dadd(109, 507, 139, 3.7)
pt3dadd(108.5, 519.5, 128.5, 2.5)
pt3dadd(106, 530.5, 135.5, 2.2)
pt3dadd(107.5, 540.5, 128.5, 3.1)
pt3dadd(111.5, 548.5, 128.5, 1.7)
pt3dadd(116, 557.5, 132, 2.3)
pt3dadd(118.5, 565.5, 132, 2.3)
pt3dadd(123, 572, 128.5, 2)
pt3dadd(128, 577, 128.5, 1.8)
pt3dadd(131, 586.5, 125, 2)
pt3dadd(131.5, 589.5, 125, 2)
pt3dadd(129.5, 598.5, 120.5, 2.3)
pt3dadd(127, 607, 114, 2.4)
pt3dadd(129, 616, 109.5, 2.2)
pt3dadd(128.5, 625.5, 103, 1.8)
pt3dadd(128.5, 636, 96, 2.6)
pt3dadd(129.5, 646.5, 92, 1.8)
pt3dadd(126.5, 654.5, 93, 3)
pt3dadd(129.5, 663, 89, 1.6)
pt3dadd(131.5, 672, 95.5, 1.7)
pt3dadd(131, 681.5, 94, 1.9)
pt3dadd(129.5, 690.5, 87, 1.7)
pt3dadd(124.5, 696.5, 81, 2.5)
pt3dadd(123.5, 708, 93.5, 1.8)
pt3dadd(125.5, 717, 86.5, 2.2)
pt3dadd(125.5, 727, 85.5, 2)
pt3dadd(127.5, 735.5, 78, 1.5)
pt3dadd(126, 740.5, 75, 2.3)
pt3dadd(120.5, 746, 71.5, 1.6)
pt3dadd(116.5, 752.5, 64, 1.4)
pt3dadd(111, 757, 54, 1.4)
pt3dadd(105.5, 763, 48.5, 1.4)
pt3dadd(101.5, 770, 44, 2)
pt3dadd(99, 780, 35, 1.5)
pt3dadd(97, 788, 25, 1.3)
pt3dadd(90, 792.5, 23, 0.7)
pt3dadd(86.5, 800, 23, 0.9)
pt3dadd(83, 807.5, 19, 0.9)
pt3dadd(75.5, 811, 19, 1.3)
pt3dadd(70.5, 816, 21.5, 0.8)
pt3dadd(63.5, 821, 21.5, 0.7)
pt3dadd(54, 822.5, 23.5, 1)
pt3dadd(44.5, 824, 23.5, 0.8)
pt3dadd(37, 827, 23.5, 1.4)
pt3dadd(29, 831.5, 20, 0.7)
pt3dadd(21, 836, 22, 0.8)
pt3dadd(17, 843, 18, 0.9)
pt3dadd(11.5, 848.5, 20, 0.9)
pt3dadd(5, 853.5, 18, 1.1)
pt3dadd(-3.5, 856, 22.5, 0.8)
pt3dadd(-9, 861.5, 22.5, 0.6)
pt3dadd(-17, 864, 24.5, 0.9)
pt3dadd(-25.5, 865.5, 26.5, 1.2)
pt3dadd(-34, 867.5, 25, 0.9)
pt3dadd(-42.5, 870, 23, 0.5)
pt3dadd(-54, 871, 21, 0.7)
pt3dadd(-60.5, 875.5, 23, 0.6)
pt3dadd(-66.5, 880, 23, 0.9)
pt3dadd(-72.5, 886, 23.5, 0.9)
pt3dadd(-77.5, 891, 23.5, 0.9)
pt3dadd(-84, 894.5, 25.5, 0.8)
pt3dadd(-89, 901, 21.5, 0.7)
pt3dadd(-96, 905.5, 26, 1.6)
pt3dadd(-103, 909.5, 18, 0.7)
pt3dadd(-106.5, 918, 18, 0.6)
pt3dadd(-111, 925, 18, 1)
pt3dadd(-116.5, 931.5, 18, 0.9)
pt3dadd(-123, 935, 20.5, 1.2)
pt3dadd(-127, 942.5, 22.5, 0.7)
pt3dadd(-135, 945.5, 24.5, 0.3)
pt3dadd(-142.5, 948.5, 24.5, 0.3)
pt3dadd(-149, 952, 24.5, 0.6)
pt3dadd(-150.5, 952, 25, 0.4)
}
dend[241] {pt3dclear()
pt3dadd(25, 228.5, 44, 5.2)
pt3dadd(29, 238.5, 63.5, 3.3)
pt3dadd(33.5, 247, 67.5, 2.1)
pt3dadd(38.5, 255.5, 73.5, 2.7)
pt3dadd(44, 261, 75, 2.2)
pt3dadd(49.5, 266, 75, 2.6)
pt3dadd(55.5, 270, 82.5, 2.3)
pt3dadd(60, 276, 80.5, 2.3)
pt3dadd(66.5, 281.5, 86, 2.3)
pt3dadd(73, 289.5, 89, 2.3)
pt3dadd(78.5, 294.5, 83.5, 3)
pt3dadd(84, 300.5, 81.5, 2.7)
pt3dadd(88, 307, 87.5, 2.2)
pt3dadd(92, 313, 84.5, 2.3)
pt3dadd(96.5, 320, 85, 2.2)
pt3dadd(100.5, 326, 85, 2)
pt3dadd(105, 332, 93, 2.5)
pt3dadd(107.5, 341, 93.5, 2.3)
pt3dadd(112, 352.5, 94, 2)
pt3dadd(119, 358.5, 94, 2.1)
pt3dadd(123.5, 365.5, 96.5, 2.6)
}
dend[242] {pt3dclear()
pt3dadd(123.5, 365.5, 96.5, 2.6)
pt3dadd(128.5, 371, 100, 3)
pt3dadd(137.5, 373, 97, 2.1)
pt3dadd(146, 374.5, 97.5, 1.9)
pt3dadd(153.5, 378, 97.5, 2)
pt3dadd(161, 384.5, 103.5, 1.9)
pt3dadd(168.5, 390.5, 98.5, 1.7)
pt3dadd(177.5, 394.5, 107, 1.9)
pt3dadd(184.5, 399, 104.5, 1.8)
pt3dadd(192, 401.5, 107.5, 2.6)
pt3dadd(198.5, 410, 107.5, 1.8)
pt3dadd(204, 416, 110.5, 1.3)
pt3dadd(208.5, 422.5, 108, 1.6)
pt3dadd(217, 425.5, 111, 1.5)
pt3dadd(224.5, 429.5, 108.5, 1.9)
pt3dadd(231, 436, 109, 2)
pt3dadd(235, 443.5, 111.5, 1.8)
pt3dadd(237, 452.5, 104.5, 2.1)
pt3dadd(240.5, 459, 112.5, 1.7)
pt3dadd(243.5, 466.5, 112.5, 1.1)
pt3dadd(251, 471.5, 119, 1.8)
pt3dadd(259, 476.5, 113.5, 1.4)
pt3dadd(263.5, 484, 109, 1.1)
pt3dadd(268.5, 490, 114, 1.5)
pt3dadd(275.5, 495, 114.5, 1.5)
pt3dadd(280, 503, 115, 1.5)
pt3dadd(281, 512, 115, 1.4)
pt3dadd(283.5, 519.5, 113, 1.1)
pt3dadd(287, 529, 108, 1.6)
pt3dadd(292, 534, 108.5, 1.5)
pt3dadd(299.5, 538, 108.5, 1.5)
pt3dadd(308.5, 540, 111.5, 1.3)
pt3dadd(317, 542.5, 116.5, 1.5)
pt3dadd(321, 550, 112, 1.2)
pt3dadd(330, 552.5, 117, 1.2)
pt3dadd(349, 555, 102.5, 0.8)
pt3dadd(354.5, 566.5, 105.5, 1.6)
pt3dadd(358.5, 571.5, 114, 1.2)
}
dend[243] {pt3dclear()
pt3dadd(358.5, 571.5, 114, 1.2)
pt3dadd(361, 580, 109.5, 1.2)
pt3dadd(368, 584.5, 102, 1.1)
pt3dadd(375.5, 588.5, 103.5, 2)
pt3dadd(380.5, 594, 99.5, 1.4)
pt3dadd(387.5, 600, 96, 1.1)
pt3dadd(395, 602.5, 97, 1.6)
pt3dadd(399.5, 608.5, 91, 1.5)
pt3dadd(399, 623.5, 95, 1.1)
pt3dadd(400, 634.5, 93, 1.3)
pt3dadd(404, 641.5, 87, 0.9)
pt3dadd(406, 649.5, 88, 1.2)
pt3dadd(404, 659, 81, 2.5)
pt3dadd(404.5, 663.5, 75, 0.8)
}
dend[244] {pt3dclear()
pt3dadd(358.5, 571.5, 114, 1.2)
pt3dadd(363, 573.5, 125, 0.9)
}
dend[245] {pt3dclear()
pt3dadd(123.5, 365.5, 96.5, 2.6)
pt3dadd(117, 369, 89.5, 1.5)
pt3dadd(111.5, 373.5, 90.5, 1.4)
pt3dadd(102, 377.5, 85, 1.3)
pt3dadd(99, 385.5, 73.5, 1)
pt3dadd(95, 379, 76, 1.3)
pt3dadd(88, 374.5, 67.5, 1.6)
pt3dadd(78.5, 375.5, 46.5, 1.5)
pt3dadd(72, 371.5, 34, 1.6)
pt3dadd(67.5, 372.5, -3.5, 1.9)
pt3dadd(69.5, 383.5, -12.5, 0.8)
pt3dadd(68.5, 394, -22.5, 1.7)
pt3dadd(78.5, 395.5, -48.5, 0.9)
pt3dadd(80.5, 396, -53.5, 0.8)
pt3dadd(89.5, 393.5, -73.5, 1.1)
pt3dadd(98, 396, -86.5, 0.8)
pt3dadd(104.5, 400, -83, 0.9)
pt3dadd(115.5, 398, -99.5, 0.8)
pt3dadd(117, 398, -103.5, 0.8)
pt3dadd(126, 394.5, -108.5, 1.1)
pt3dadd(135.5, 394, -117, 0.9)
pt3dadd(142, 399, -117.5, 1)
pt3dadd(150.5, 401, -119, 1.1)
}
}
proc shape3d_27() {
dend[245] { pt3dadd(160, 404.5, -120.5, 0.9)
pt3dadd(160.5, 406, -132, 2.1)
}
dend[246] {pt3dclear()
pt3dadd(160.5, 406, -132, 2.1)
pt3dadd(167.5, 409, -143, 0.8)
pt3dadd(177, 411.5, -153.5, 0.8)
pt3dadd(186, 410.5, -155, 0.9)
pt3dadd(192.5, 414, -158.5, 1.2)
pt3dadd(200.5, 417, -161.5, 1.2)
pt3dadd(208, 419.5, -165.5, 1.5)
pt3dadd(215, 422.5, -175.5, 0.7)
pt3dadd(222, 418, -198.5, 0.8)
pt3dadd(226.5, 417.5, -203.5, 1.5)
}
dend[247] {pt3dclear()
pt3dadd(160.5, 406, -132, 2.1)
pt3dadd(156.5, 411, -153.5, 0.9)
}
dend[248] {pt3dclear()
pt3dadd(-15.5, 115.5, 21, 6.4)
pt3dadd(-19.5, 117.5, 25, 4.8)
pt3dadd(-27, 125, 31.5, 6.3)
pt3dadd(-34, 130.5, 43, 7.9)
}
dend[249] {pt3dclear()
pt3dadd(-34, 130.5, 43, 7.9)
pt3dadd(-42, 132.5, 58.5, 4.8)
pt3dadd(-46.5, 138.5, 60, 5.5)
pt3dadd(-53, 145, 69.5, 5.5)
pt3dadd(-59.5, 151, 75, 5.5)
pt3dadd(-66.5, 154.5, 82.5, 7.3)
pt3dadd(-69, 163, 85, 6.3)
pt3dadd(-75, 168.5, 99, 7.2)
pt3dadd(-84.5, 169, 99.5, 6.3)
pt3dadd(-86, 178, 111, 7.5)
pt3dadd(-90, 188, 116, 7.5)
pt3dadd(-94.5, 195.5, 125, 6.4)
pt3dadd(-98.5, 204, 142, 8.6)
pt3dadd(-100.5, 211, 144.5, 8.6)
}
dend[250] {pt3dclear()
pt3dadd(-100.5, 211, 144.5, 8.6)
pt3dadd(-111, 211, 170.5, 4.3)
pt3dadd(-118, 209, 175, 4.1)
pt3dadd(-129, 207.5, 179, 4.7)
pt3dadd(-139, 205.5, 190.5, 4.8)
pt3dadd(-150, 201.5, 197.5, 5.3)
pt3dadd(-160, 201.5, 204, 4.5)
pt3dadd(-166, 197.5, 205, 3.9)
pt3dadd(-171, 192.5, 210.5, 4.3)
}
dend[251] {pt3dclear()
pt3dadd(-171, 192.5, 210.5, 4.3)
pt3dadd(-181, 194, 219, 4.2)
pt3dadd(-190, 195, 225, 5.5)
pt3dadd(-199.5, 193, 233.5, 2.5)
pt3dadd(-206.5, 190, 246.5, 3.2)
pt3dadd(-214.5, 189, 275, 4.3)
}
dend[252] {pt3dclear()
pt3dadd(-171, 192.5, 210.5, 4.3)
pt3dadd(-174.5, 188.5, 214, 1.7)
pt3dadd(-182.5, 191, 214, 1.2)
pt3dadd(-191, 193, 216.5, 1.5)
pt3dadd(-198.5, 190, 209.5, 1)
pt3dadd(-209, 188.5, 203, 1.1)
pt3dadd(-217, 186.5, 199, 1.1)
pt3dadd(-226, 187.5, 195.5, 1.1)
pt3dadd(-234.5, 185.5, 192, 0.9)
pt3dadd(-242, 183, 195, 1.1)
pt3dadd(-249, 179, 188.5, 0.9)
pt3dadd(-255, 174.5, 191.5, 0.8)
pt3dadd(-257, 164.5, 201.5, 1.1)
pt3dadd(-248.5, 161.5, 207.5, 1.2)
pt3dadd(-248, 150.5, 210.5, 2.3)
}
dend[253] {pt3dclear()
pt3dadd(-248, 150.5, 210.5, 2.3)
pt3dadd(-253.5, 142.5, 212.5, 1.3)
pt3dadd(-257.5, 135, 200, 1)
pt3dadd(-256.5, 124.5, 204, 1.9)
pt3dadd(-263, 119.5, 203.5, 1.3)
pt3dadd(-266.5, 109, 202.5, 1.5)
pt3dadd(-262.5, 100, 192.5, 1.4)
pt3dadd(-264.5, 91.5, 194.5, 1.4)
pt3dadd(-267, 82, 197, 1.2)
pt3dadd(-272, 73.5, 189.5, 0.9)
pt3dadd(-274, 64.5, 180.5, 1.1)
pt3dadd(-285, 60.5, 184.5, 1)
pt3dadd(-292, 57, 184, 1.3)
pt3dadd(-299, 44, 182.5, 1.3)
pt3dadd(-304.5, 37, 184, 1.3)
pt3dadd(-307, 26, 180, 1.2)
pt3dadd(-302, 18, 179, 1.1)
pt3dadd(-300.5, 7.5, 174.5, 1)
pt3dadd(-305, -2, 171, 0.9)
pt3dadd(-310.5, -8, 170, 1)
}
dend[254] {pt3dclear()
pt3dadd(-310.5, -8, 170, 1)
pt3dadd(-316.5, -12, 160.5, 1.1)
pt3dadd(-313.5, -8.5, 173.5, 2.3)
pt3dadd(-305.5, -3, 180.5, 1.5)
pt3dadd(-305.5, 7.5, 192, 1.7)
pt3dadd(-302, 16, 207, 1.6)
pt3dadd(-306, 23.5, 210.5, 1.3)
pt3dadd(-301.5, 29, 210.5, 1.4)
}
dend[255] {pt3dclear()
pt3dadd(-310.5, -8, 170, 1)
pt3dadd(-319, -11.5, 174.5, 0.9)
pt3dadd(-326.5, -14.5, 162, 1.2)
pt3dadd(-333.5, -21, 160.5, 0.8)
pt3dadd(-339, -26, 151.5, 0.8)
pt3dadd(-344, -34.5, 152, 2.3)
pt3dadd(-350, -39.5, 147.5, 0.9)
pt3dadd(-358, -43.5, 138, 0.9)
pt3dadd(-362.5, -49.5, 137, 0.8)
pt3dadd(-369, -54.5, 138, 1)
pt3dadd(-377.5, -59.5, 135.5, 1)
pt3dadd(-387, -61.5, 125, 0.9)
pt3dadd(-390.5, -64, 120, 0.8)
pt3dadd(-396.5, -68, 110.5, 1.6)
pt3dadd(-400.5, -73.5, 105, 1)
}
dend[256] {pt3dclear()
pt3dadd(-400.5, -73.5, 105, 1)
pt3dadd(-405.5, -79.5, 99, 0.8)
pt3dadd(-415.5, -86, 94, 0.8)
pt3dadd(-426.5, -86, 120, 0.8)
}
dend[257] {pt3dclear()
pt3dadd(-400.5, -73.5, 105, 1)
pt3dadd(-409, -78, 106.5, 0.7)
pt3dadd(-415.5, -75, 120, 0.7)
}
dend[258] {pt3dclear()
pt3dadd(-248, 150.5, 210.5, 2.3)
pt3dadd(-254.5, 154.5, 217.5, 0.9)
pt3dadd(-263, 156.5, 230.5, 0.6)
pt3dadd(-270, 160.5, 221, 0.6)
pt3dadd(-274, 166.5, 225, 0.9)
pt3dadd(-281.5, 169.5, 229, 0.9)
pt3dadd(-289, 173, 227, 0.7)
pt3dadd(-294.5, 178.5, 228, 1)
pt3dadd(-298.5, 185, 235, 0.9)
pt3dadd(-305, 191, 230.5, 0.7)
pt3dadd(-311, 196.5, 234.5, 1.1)
pt3dadd(-317, 201, 232.5, 0.9)
pt3dadd(-325, 203, 233.5, 1.1)
pt3dadd(-335, 204, 240.5, 1.1)
pt3dadd(-340.5, 209.5, 236, 1.3)
pt3dadd(-346, 205, 255.5, 0.9)
pt3dadd(-355, 201, 251, 0.7)
pt3dadd(-365, 197, 258, 0.6)
pt3dadd(-372.5, 193, 259, 0.6)
pt3dadd(-381.5, 190.5, 260, 0.6)
pt3dadd(-386.5, 189, 260.5, 0.9)
}
dend[259] {pt3dclear()
pt3dadd(-100.5, 211, 144.5, 8.6)
pt3dadd(-101.5, 222, 164, 6.1)
pt3dadd(-102, 226.5, 175, 6)
pt3dadd(-101.5, 236.5, 187.5, 6.2)
pt3dadd(-103, 246.5, 200.5, 5.7)
pt3dadd(-105.5, 257, 204.5, 6.1)
pt3dadd(-107.5, 265.5, 207.5, 5.3)
pt3dadd(-115.5, 269, 216, 6.4)
pt3dadd(-121.5, 275, 225, 6.7)
pt3dadd(-127, 280, 234, 4.5)
pt3dadd(-121.5, 287, 238.5, 4.8)
pt3dadd(-117.5, 295.5, 245, 5.3)
pt3dadd(-117, 297.5, 246, 6.3)
}
dend[260] {pt3dclear()
pt3dadd(-117, 297.5, 246, 6.3)
pt3dadd(-121.5, 303, 275, 2.3)
pt3dadd(-126, 310.5, 283, 4.1)
pt3dadd(-133.5, 315.5, 298, 2.9)
pt3dadd(-139.5, 321, 305.5, 3.8)
pt3dadd(-141.5, 329.5, 315.5, 2.7)
pt3dadd(-151.5, 331.5, 325, 2.7)
pt3dadd(-159.5, 335.5, 345.5, 3)
pt3dadd(-159.5, 347, 363, 3.4)
pt3dadd(-160.5, 352.5, 375, 4.1)
pt3dadd(-162.5, 360.5, 380, 3.4)
pt3dadd(-171.5, 359.5, 393, 3.2)
pt3dadd(-172.5, 359.5, 393.5, 3.2)
}
dend[261] {pt3dclear()
pt3dadd(-172.5, 359.5, 393.5, 3.2)
pt3dadd(-166.5, 355.5, 408, 1.6)
pt3dadd(-165, 351, 425, 1.6)
pt3dadd(-160.5, 345.5, 427.5, 1.6)
pt3dadd(-154, 349, 439.5, 2)
pt3dadd(-156.5, 344, 475, 2.8)
pt3dadd(-158.5, 336, 478, 1.9)
pt3dadd(-151.5, 341, 509, 1.5)
pt3dadd(-151, 338, 525, 2)
pt3dadd(-148, 345, 575, 3.4)
pt3dadd(-144, 354, 593, 2.8)
pt3dadd(-138, 360, 622.5, 1.9)
pt3dadd(-135, 361.5, 625, 2.3)
pt3dadd(-140, 366.5, 639, 1.5)
pt3dadd(-135.5, 372.5, 642.5, 2)
pt3dadd(-132.5, 379.5, 650, 1.5)
pt3dadd(-133.5, 389.5, 664, 1.1)
pt3dadd(-131.5, 398.5, 675, 1.1)
pt3dadd(-133, 407.5, 676, 1.9)
pt3dadd(-135.5, 416, 682, 1.8)
pt3dadd(-134.5, 426, 699.5, 1.4)
pt3dadd(-140, 431.5, 705, 1.3)
pt3dadd(-145, 438, 705, 1.3)
pt3dadd(-149, 441.5, 725, 1.3)
pt3dadd(-152, 448.5, 745.5, 0.8)
pt3dadd(-156.5, 454.5, 748, 1.3)
pt3dadd(-162.5, 459.5, 753, 1.1)
pt3dadd(-166.5, 463.5, 775, 1)
}
dend[262] {pt3dclear()
pt3dadd(-172.5, 359.5, 393.5, 3.2)
pt3dadd(-169.5, 367, 408.5, 2.6)
pt3dadd(-172.5, 374, 410, 2.5)
pt3dadd(-179.5, 378.5, 409.5, 1.7)
pt3dadd(-185.5, 385, 419, 2)
pt3dadd(-196, 389, 425, 2.5)
pt3dadd(-207.5, 391, 434.5, 1.8)
pt3dadd(-214, 394.5, 436.5, 1.8)
pt3dadd(-221.5, 397, 438.5, 1.6)
pt3dadd(-229, 401, 437, 1.5)
pt3dadd(-238, 403.5, 438.5, 2.2)
pt3dadd(-244, 408, 444, 1.9)
pt3dadd(-250.5, 412.5, 445, 2)
}
}
proc shape3d_28() {
dend[262] { pt3dadd(-260, 412, 450.5, 2.1)
pt3dadd(-265.5, 417, 452, 2.7)
pt3dadd(-274, 419.5, 462, 1.9)
pt3dadd(-285, 418.5, 464, 2)
pt3dadd(-291.5, 423, 477.5, 2)
pt3dadd(-301.5, 426.5, 475, 1.8)
pt3dadd(-307.5, 432, 479, 2.1)
pt3dadd(-319, 434.5, 482, 1.8)
pt3dadd(-327.5, 437.5, 482.5, 1.9)
pt3dadd(-334.5, 442, 483, 1.7)
pt3dadd(-341, 447, 483, 1.7)
pt3dadd(-346.5, 453.5, 481.5, 1.4)
pt3dadd(-354, 458, 482, 2.1)
pt3dadd(-361.5, 462, 482.5, 2.2)
pt3dadd(-368.5, 468, 489, 1.9)
pt3dadd(-373, 474, 489.5, 2.6)
pt3dadd(-382, 479, 490, 1.6)
pt3dadd(-390.5, 482.5, 490.5, 1.9)
pt3dadd(-398, 485.5, 491, 1.8)
pt3dadd(-405, 490.5, 491.5, 2)
pt3dadd(-413.5, 489, 492, 1.6)
pt3dadd(-423, 491, 498.5, 1.5)
pt3dadd(-430.5, 496, 499, 1.6)
pt3dadd(-439, 499.5, 499.5, 1.7)
pt3dadd(-447, 506, 502, 1.8)
pt3dadd(-454.5, 509, 502.5, 1.7)
pt3dadd(-465, 511, 503, 2.2)
pt3dadd(-475, 512, 503.5, 1.9)
pt3dadd(-485.5, 514, 506.5, 1.8)
pt3dadd(-493.5, 517.5, 503, 2.1)
pt3dadd(-502, 523, 503.5, 2.1)
pt3dadd(-511, 527.5, 506, 1.8)
pt3dadd(-524.5, 528, 506.5, 1.9)
pt3dadd(-532, 524.5, 505, 1.5)
pt3dadd(-542, 524, 503.5, 2)
pt3dadd(-550, 529, 506, 1.8)
pt3dadd(-556, 534.5, 506.5, 2)
pt3dadd(-567, 536, 507, 2)
pt3dadd(-579.5, 538.5, 504, 2.5)
pt3dadd(-589, 541, 504.5, 1.8)
pt3dadd(-595.5, 536.5, 503, 1.8)
pt3dadd(-607.5, 538, 504, 1.7)
pt3dadd(-617.5, 539, 502.5, 1.6)
pt3dadd(-625, 543, 507, 1.3)
pt3dadd(-632, 547, 509, 2.6)
pt3dadd(-640.5, 550, 511.5, 1.4)
pt3dadd(-651, 551, 514, 1.5)
pt3dadd(-655, 550.5, 525, 1.6)
}
dend[263] {pt3dclear()
pt3dadd(-117, 297.5, 246, 6.3)
pt3dadd(-114.5, 307.5, 256.5, 4.1)
pt3dadd(-113.5, 316.5, 275, 4.4)
pt3dadd(-112, 326.5, 284.5, 3.4)
pt3dadd(-105, 329.5, 292, 3.2)
pt3dadd(-108.5, 337.5, 302.5, 4)
pt3dadd(-109.5, 347, 309.5, 4.5)
pt3dadd(-109, 357.5, 316, 5.1)
pt3dadd(-109, 361, 325, 5.7)
pt3dadd(-113.5, 367.5, 341.5, 4.5)
pt3dadd(-114, 377, 348, 4)
pt3dadd(-119.5, 384, 360, 3.3)
pt3dadd(-121.5, 392, 365.5, 3.8)
pt3dadd(-121.5, 394.5, 375, 3.1)
pt3dadd(-119, 402.5, 379.5, 3.2)
pt3dadd(-122, 411, 381.5, 3.5)
pt3dadd(-124.5, 418.5, 387, 5.1)
pt3dadd(-131, 422, 395.5, 4.7)
pt3dadd(-135, 431.5, 411.5, 3.8)
pt3dadd(-138, 439, 417.5, 3.1)
pt3dadd(-139, 442, 425, 3.2)
pt3dadd(-142.5, 451, 432.5, 3.9)
pt3dadd(-148, 458, 444.5, 3.7)
pt3dadd(-151, 465.5, 447.5, 3.8)
pt3dadd(-157, 471.5, 474, 3.7)
pt3dadd(-158.5, 473.5, 475, 3.7)
pt3dadd(-162.5, 479.5, 480.5, 3.7)
pt3dadd(-167, 487, 490.5, 2.8)
pt3dadd(-172, 492, 505.5, 3.7)
}
dend[264] {pt3dclear()
pt3dadd(-172, 492, 505.5, 3.7)
pt3dadd(-173.5, 500.5, 503, 2)
pt3dadd(-178, 509.5, 504.5, 1.1)
pt3dadd(-180.5, 518, 506.5, 1.3)
pt3dadd(-183, 526, 508, 1.5)
pt3dadd(-187, 532.5, 509, 1.7)
pt3dadd(-190.5, 539, 512.5, 1.6)
pt3dadd(-189, 548.5, 516.5, 1.9)
pt3dadd(-190.5, 556.5, 525, 1.4)
pt3dadd(-187.5, 565, 531, 1.7)
pt3dadd(-189.5, 573.5, 539, 1.4)
pt3dadd(-192.5, 581.5, 543, 1.8)
pt3dadd(-197.5, 587.5, 546, 1.3)
pt3dadd(-203, 594, 556.5, 1.6)
pt3dadd(-207, 601.5, 563, 0.8)
pt3dadd(-208, 612.5, 570, 1.4)
pt3dadd(-208.5, 615, 575, 1.5)
pt3dadd(-210, 623.5, 576.5, 0.9)
pt3dadd(-211.5, 632, 584, 0.9)
pt3dadd(-215.5, 640, 588.5, 1.1)
pt3dadd(-217, 649, 592, 1.4)
pt3dadd(-220.5, 656, 593.5, 1.8)
pt3dadd(-224, 663, 595, 1.1)
pt3dadd(-230, 668, 599.5, 1.3)
pt3dadd(-234.5, 673.5, 601.5, 0.8)
pt3dadd(-240, 680.5, 603, 0.8)
pt3dadd(-244, 686.5, 604.5, 0.8)
pt3dadd(-246.5, 694.5, 606, 1.1)
pt3dadd(-249.5, 703, 608, 1.3)
pt3dadd(-252, 712, 612.5, 0.8)
pt3dadd(-253.5, 721.5, 617.5, 2)
pt3dadd(-254.5, 726.5, 625, 2)
pt3dadd(-263.5, 729.5, 641.5, 0.8)
pt3dadd(-262.5, 739, 651, 1.5)
pt3dadd(-269, 745.5, 650.5, 1.1)
pt3dadd(-267, 753.5, 660, 0.7)
pt3dadd(-270, 761, 658.5, 1.1)
pt3dadd(-276, 765.5, 669.5, 0.5)
pt3dadd(-279, 773.5, 674.5, 0.6)
pt3dadd(-282, 782, 673, 0.7)
pt3dadd(-284, 791, 680, 0.6)
pt3dadd(-284.5, 795, 675, 1.1)
}
dend[265] {pt3dclear()
pt3dadd(-172, 492, 505.5, 3.7)
pt3dadd(-178, 498, 518, 3)
pt3dadd(-184.5, 504, 525, 2.6)
pt3dadd(-191.5, 509, 528, 3)
pt3dadd(-199, 512.5, 531.5, 2.6)
pt3dadd(-204, 518.5, 534, 2.5)
pt3dadd(-210.5, 524.5, 537.5, 2.7)
pt3dadd(-214, 531, 549.5, 2.9)
pt3dadd(-223, 534, 557.5, 2.6)
pt3dadd(-226.5, 527.5, 574, 3)
pt3dadd(-226.5, 525, 575, 3.8)
pt3dadd(-231.5, 532, 578.5, 3.1)
pt3dadd(-235, 539, 585, 3.6)
pt3dadd(-238, 548, 589.5, 3.4)
pt3dadd(-244.5, 541.5, 599.5, 2.6)
pt3dadd(-250.5, 547.5, 625, 2.1)
}
dend[266] {pt3dclear()
pt3dadd(-34, 130.5, 43, 7.9)
pt3dadd(-44, 137, 47, 5.9)
pt3dadd(-51.5, 142, 47.5, 6.1)
pt3dadd(-59, 145.5, 54.5, 5.1)
pt3dadd(-65.5, 150, 46.5, 5)
pt3dadd(-74, 154.5, 50, 5.3)
pt3dadd(-81, 158, 51, 5.3)
pt3dadd(-86.5, 162.5, 51.5, 5.5)
pt3dadd(-94, 166.5, 58, 4.8)
pt3dadd(-102, 171, 58.5, 5.4)
pt3dadd(-108.5, 174.5, 59.5, 5.3)
pt3dadd(-115.5, 179, 60, 5.3)
pt3dadd(-124.5, 185, 60.5, 5.3)
pt3dadd(-132.5, 190.5, 61.5, 5.1)
pt3dadd(-137.5, 196, 62, 5.3)
pt3dadd(-144, 200.5, 62.5, 5.1)
pt3dadd(-150.5, 205.5, 63, 5.1)
pt3dadd(-156.5, 211.5, 63.5, 5.1)
pt3dadd(-162.5, 216.5, 67, 5.1)
pt3dadd(-169.5, 221, 67.5, 5.7)
pt3dadd(-176, 226, 68.5, 4)
pt3dadd(-181.5, 231, 71.5, 4.3)
pt3dadd(-184.5, 232.5, 75, 5.3)
pt3dadd(-188, 239, 83.5, 5.7)
pt3dadd(-195, 246, 81.5, 5.2)
pt3dadd(-202, 251.5, 82, 5.4)
pt3dadd(-210, 257, 82.5, 5)
pt3dadd(-217.5, 263, 83, 4.7)
pt3dadd(-224.5, 268, 80.5, 4.8)
pt3dadd(-232.5, 273.5, 84.5, 4.6)
pt3dadd(-239.5, 279.5, 87.5, 5.1)
pt3dadd(-247, 283.5, 88, 4.6)
pt3dadd(-255.5, 288.5, 88.5, 4.3)
pt3dadd(-261, 293.5, 92, 4.1)
pt3dadd(-270, 299.5, 90, 5.3)
pt3dadd(-279, 304.5, 88, 6.3)
}
dend[267] {pt3dclear()
pt3dadd(-279, 304.5, 88, 6.3)
pt3dadd(-284.5, 299.5, 81, 1.6)
pt3dadd(-285.5, 294.5, 75, 1.7)
pt3dadd(-294.5, 292.5, 79, 2.2)
pt3dadd(-302, 289, 82.5, 2)
pt3dadd(-309.5, 285.5, 86.5, 1.1)
pt3dadd(-313.5, 279, 82, 1.3)
pt3dadd(-318.5, 272.5, 85.5, 2.2)
pt3dadd(-328, 270, 87, 1.8)
pt3dadd(-337.5, 269, 91, 1.8)
pt3dadd(-345, 265.5, 89, 1.3)
pt3dadd(-354, 264.5, 102.5, 1.3)
pt3dadd(-366, 262.5, 95.5, 1.5)
pt3dadd(-375, 261, 105.5, 1.1)
pt3dadd(-381, 257, 103.5, 1.1)
pt3dadd(-385.5, 256, 107, 2.5)
}
dend[268] {pt3dclear()
pt3dadd(-385.5, 256, 107, 2.5)
pt3dadd(-386.5, 259.5, 125, 1.1)
}
dend[269] {pt3dclear()
pt3dadd(-385.5, 256, 107, 2.5)
pt3dadd(-395.5, 256, 110.5, 1.6)
pt3dadd(-402, 252, 114.5, 1.5)
pt3dadd(-409.5, 247, 118.5, 1.6)
pt3dadd(-414.5, 241, 125, 1.8)
pt3dadd(-420, 229.5, 132, 1.5)
pt3dadd(-426.5, 223.5, 133, 1.3)
pt3dadd(-432.5, 216, 134.5, 1.1)
pt3dadd(-440.5, 213.5, 137, 1.4)
pt3dadd(-446.5, 205.5, 142.5, 1.4)
pt3dadd(-454, 202.5, 143.5, 1)
}
}
proc shape3d_29() {
dend[269] { pt3dadd(-461, 197.5, 148, 1.3)
pt3dadd(-465.5, 190, 151, 1.1)
pt3dadd(-472, 184.5, 156, 1.2)
pt3dadd(-477.5, 177, 161, 1.3)
pt3dadd(-483, 170.5, 158.5, 1.8)
pt3dadd(-485.5, 162, 160, 1)
pt3dadd(-490.5, 154.5, 161.5, 1.4)
pt3dadd(-494.5, 148.5, 163, 2)
pt3dadd(-498, 142, 172, 0.9)
pt3dadd(-505, 135.5, 175, 1.4)
pt3dadd(-514.5, 132.5, 177.5, 1.3)
pt3dadd(-519.5, 127.5, 178, 1.3)
pt3dadd(-529, 126, 178.5, 2)
pt3dadd(-538, 124, 181.5, 1.3)
pt3dadd(-550.5, 122, 182, 1.3)
pt3dadd(-562, 129, 185.5, 1.3)
pt3dadd(-568.5, 134.5, 186, 1.4)
pt3dadd(-573, 140.5, 187, 1.1)
pt3dadd(-583, 141.5, 189.5, 1)
pt3dadd(-593, 141, 190.5, 0.6)
pt3dadd(-600.5, 138.5, 195, 0.9)
pt3dadd(-606.5, 134, 197.5, 0.8)
pt3dadd(-616, 132, 200, 0.8)
pt3dadd(-622.5, 127, 197, 1.1)
pt3dadd(-632.5, 124, 199.5, 0.9)
pt3dadd(-643.5, 121.5, 202, 0.6)
pt3dadd(-651, 117, 201, 0.8)
pt3dadd(-656, 112, 201, 1.1)
pt3dadd(-663, 108, 202, 0.8)
pt3dadd(-670, 105, 202.5, 0.6)
pt3dadd(-678, 101.5, 209, 0.8)
pt3dadd(-685.5, 99, 209.5, 0.9)
pt3dadd(-694.5, 96, 208, 0.7)
pt3dadd(-704.5, 95.5, 209, 0.9)
pt3dadd(-714.5, 95, 211.5, 0.5)
pt3dadd(-726, 93.5, 208, 0.7)
pt3dadd(-735, 91.5, 211, 0.5)
pt3dadd(-744.5, 90.5, 215.5, 0.8)
pt3dadd(-753.5, 89.5, 218.5, 0.6)
pt3dadd(-760.5, 84.5, 217, 0.5)
pt3dadd(-764, 78, 217.5, 0.9)
pt3dadd(-766.5, 69.5, 218, 0.3)
pt3dadd(-769.5, 59.5, 220.5, 0.3)
pt3dadd(-770.5, 50.5, 224, 0.6)
pt3dadd(-775, 45, 222.5, 0.5)
pt3dadd(-777.5, 40, 225, 0.5)
}
dend[270] {pt3dclear()
pt3dadd(-279, 304.5, 88, 6.3)
pt3dadd(-284.5, 309, 88, 5)
pt3dadd(-292.5, 314.5, 93, 4.8)
pt3dadd(-301.5, 318, 93, 5)
pt3dadd(-310, 324, 90.5, 4.8)
pt3dadd(-316, 328.5, 90.5, 5)
pt3dadd(-324.5, 332.5, 90.5, 4.6)
pt3dadd(-331.5, 337, 90.5, 4.6)
pt3dadd(-338, 340.5, 90.5, 4.6)
pt3dadd(-344, 346.5, 88, 5.3)
}
dend[271] {pt3dclear()
pt3dadd(-344, 346.5, 88, 5.3)
pt3dadd(-353.5, 348.5, 98.5, 3.8)
pt3dadd(-361, 353, 93.5, 3.8)
pt3dadd(-368, 356, 93.5, 3.3)
pt3dadd(-378, 358.5, 93.5, 3.3)
pt3dadd(-383.5, 361, 99, 7)
}
dend[272] {pt3dclear()
pt3dadd(-383.5, 361, 99, 7)
pt3dadd(-392, 365, 99.5, 3.1)
pt3dadd(-400.5, 367.5, 102, 2.7)
pt3dadd(-411, 368.5, 102, 2.8)
pt3dadd(-420.5, 373.5, 102, 3.2)
pt3dadd(-428, 379, 100, 2.8)
pt3dadd(-435, 382, 105, 3.4)
pt3dadd(-443, 385, 105, 3.7)
pt3dadd(-451.5, 386.5, 105, 2.1)
pt3dadd(-461.5, 387.5, 103, 3)
pt3dadd(-470.5, 393, 105.5, 2.6)
pt3dadd(-477, 396.5, 111, 2.5)
pt3dadd(-484, 399.5, 111.5, 2.9)
pt3dadd(-493, 404.5, 111.5, 2.8)
pt3dadd(-502, 409.5, 111.5, 2.8)
pt3dadd(-509.5, 412, 108.5, 2.5)
pt3dadd(-519, 417, 109, 3.4)
pt3dadd(-525, 421.5, 109, 3.4)
pt3dadd(-524.5, 423, 109, 4.1)
}
dend[273] {pt3dclear()
pt3dadd(-524.5, 423, 109, 4.1)
pt3dadd(-533, 427.5, 106.5, 3.6)
pt3dadd(-539, 431.5, 109, 2.2)
pt3dadd(-549.5, 435, 111.5, 5.6)
}
dend[274] {pt3dclear()
pt3dadd(-549.5, 435, 111.5, 5.6)
pt3dadd(-562, 435, 112.5, 1.5)
pt3dadd(-578, 436.5, 115.5, 1.5)
pt3dadd(-587, 439.5, 116, 1.2)
pt3dadd(-593, 444, 114, 1.6)
pt3dadd(-601.5, 446.5, 114.5, 1.6)
pt3dadd(-608.5, 450, 120, 1.9)
pt3dadd(-616, 455, 120.5, 1.4)
pt3dadd(-622, 461.5, 121, 1.1)
pt3dadd(-628, 466, 127, 1.1)
pt3dadd(-638, 471.5, 132.5, 1.5)
pt3dadd(-646.5, 473.5, 128, 1.7)
pt3dadd(-657.5, 476, 125.5, 1.9)
pt3dadd(-668.5, 478.5, 126, 1.9)
pt3dadd(-674.5, 483.5, 126.5, 1.5)
pt3dadd(-682.5, 489, 130, 1.2)
pt3dadd(-685.5, 491, 125, 1.2)
pt3dadd(-696, 489, 114.5, 1.1)
pt3dadd(-706.5, 488, 121.5, 1)
pt3dadd(-710.5, 495, 121.5, 1.4)
pt3dadd(-718, 502, 125, 1)
pt3dadd(-725.5, 505, 126.5, 1.1)
pt3dadd(-729.5, 512, 118.5, 1.3)
pt3dadd(-734, 506.5, 126.5, 0.9)
pt3dadd(-742, 503.5, 126.5, 1.2)
pt3dadd(-748, 509.5, 126.5, 1.1)
pt3dadd(-753.5, 515, 124, 1.1)
pt3dadd(-761, 520.5, 120, 1)
pt3dadd(-767, 526.5, 126, 0.7)
pt3dadd(-772, 533, 124, 1.1)
pt3dadd(-780, 536.5, 124, 0.8)
pt3dadd(-786.5, 542, 123.5, 1.5)
pt3dadd(-795, 545.5, 123.5, 1.2)
pt3dadd(-804, 547, 125.5, 1)
pt3dadd(-814, 546.5, 125.5, 1.1)
pt3dadd(-824.5, 548, 127.5, 0.9)
pt3dadd(-833, 552.5, 131, 1.1)
pt3dadd(-842, 554.5, 137, 0.9)
pt3dadd(-851.5, 553, 125, 0.9)
}
dend[275] {pt3dclear()
pt3dadd(-549.5, 435, 111.5, 5.6)
pt3dadd(-554.5, 443, 112, 3)
pt3dadd(-557, 448, 109, 4.6)
}
dend[276] {pt3dclear()
pt3dadd(-557, 448, 109, 4.6)
pt3dadd(-560.5, 456, 112, 1.4)
pt3dadd(-562.5, 465.5, 107, 1.4)
pt3dadd(-566.5, 471.5, 109.5, 1.4)
pt3dadd(-573, 478.5, 115, 1.6)
pt3dadd(-576, 486, 115, 1.2)
pt3dadd(-582.5, 490.5, 115.5, 1.9)
pt3dadd(-588.5, 495.5, 115.5, 1.4)
pt3dadd(-594, 502.5, 113, 1.4)
pt3dadd(-599.5, 509.5, 110, 1.7)
pt3dadd(-605.5, 516.5, 110.5, 1.7)
pt3dadd(-611, 524, 105.5, 1.4)
pt3dadd(-618.5, 531, 110.5, 1.4)
pt3dadd(-626.5, 537, 111, 1.4)
pt3dadd(-633, 541.5, 114, 1.7)
pt3dadd(-640.5, 547.5, 114, 1.5)
pt3dadd(-648, 553, 111.5, 1.3)
pt3dadd(-655, 558, 111.5, 2)
pt3dadd(-665.5, 560.5, 109, 1.4)
pt3dadd(-671, 565, 109, 1.2)
pt3dadd(-677, 569, 107, 0.9)
pt3dadd(-680, 577, 109.5, 1.2)
pt3dadd(-685.5, 582, 109.5, 1.5)
pt3dadd(-691.5, 589, 107, 1.3)
pt3dadd(-697.5, 593.5, 107.5, 2.1)
pt3dadd(-701, 601, 107.5, 1.1)
pt3dadd(-708.5, 607, 107.5, 1.4)
pt3dadd(-714.5, 611.5, 110, 2.5)
pt3dadd(-720, 618, 107.5, 1.1)
pt3dadd(-725.5, 625, 113, 1.2)
pt3dadd(-727.5, 634, 113, 1.6)
pt3dadd(-729, 643, 113, 1.1)
pt3dadd(-731, 652, 113.5, 1.2)
pt3dadd(-734.5, 660, 111, 1.2)
pt3dadd(-735, 670.5, 113.5, 1.5)
pt3dadd(-736.5, 679.5, 111.5, 1.3)
pt3dadd(-738.5, 688, 117, 1.6)
pt3dadd(-742, 695, 114, 1.2)
pt3dadd(-750, 699, 111.5, 1.1)
pt3dadd(-756.5, 704.5, 112, 1.1)
pt3dadd(-764.5, 707.5, 112, 1.1)
pt3dadd(-773, 711.5, 109.5, 1)
pt3dadd(-779, 716, 115, 1.1)
pt3dadd(-788.5, 719.5, 120.5, 1.6)
pt3dadd(-797, 723, 112.5, 0.9)
pt3dadd(-805, 726, 118, 1.3)
pt3dadd(-810.5, 730.5, 115.5, 1.3)
pt3dadd(-819, 735, 118.5, 1)
pt3dadd(-829.5, 737, 121, 1.1)
pt3dadd(-839.5, 740, 121.5, 1.2)
pt3dadd(-849.5, 743.5, 121.5, 1.2)
pt3dadd(-859.5, 745, 119, 1.1)
pt3dadd(-868, 747.5, 122, 0.7)
pt3dadd(-876, 751.5, 127, 0.7)
pt3dadd(-886, 753.5, 127, 0.7)
pt3dadd(-893.5, 755.5, 125, 0.8)
}
dend[277] {pt3dclear()
pt3dadd(-557, 448, 109, 4.6)
pt3dadd(-565.5, 450, 119.5, 1.8)
pt3dadd(-568, 450.5, 125, 1.8)
pt3dadd(-576.5, 452.5, 138, 1.6)
pt3dadd(-584.5, 456, 148, 2.1)
pt3dadd(-594, 457.5, 149.5, 1.7)
pt3dadd(-602, 460.5, 155, 2)
pt3dadd(-612, 463, 160.5, 1.2)
pt3dadd(-624.5, 465.5, 159, 1.6)
pt3dadd(-634.5, 468, 168.5, 1.8)
pt3dadd(-644.5, 470.5, 174, 1.4)
pt3dadd(-653.5, 474.5, 176, 1.9)
pt3dadd(-663.5, 477, 181.5, 1.8)
pt3dadd(-671.5, 480.5, 177.5, 1.8)
pt3dadd(-673.5, 481.5, 175, 1.9)
pt3dadd(-684.5, 482.5, 175.5, 1.7)
pt3dadd(-691, 488, 176, 1.7)
}
}
proc shape3d_30() {
dend[277] { pt3dadd(-696, 493, 176.5, 1.7)
pt3dadd(-699, 500.5, 181, 1.7)
pt3dadd(-702.5, 508.5, 182, 1.1)
pt3dadd(-708.5, 513, 182.5, 1.3)
pt3dadd(-714.5, 517, 183, 1.5)
pt3dadd(-721.5, 521, 187.5, 1.6)
pt3dadd(-727, 526, 184, 1)
pt3dadd(-733, 533, 184.5, 1.5)
pt3dadd(-737.5, 539, 185, 2.1)
pt3dadd(-746.5, 543.5, 186, 1.6)
pt3dadd(-751, 549.5, 188.5, 2)
pt3dadd(-755.5, 555.5, 193, 1.3)
pt3dadd(-761, 561.5, 197.5, 1.1)
pt3dadd(-767.5, 565, 200, 0.9)
pt3dadd(-776.5, 567.5, 199, 1)
pt3dadd(-789.5, 569.5, 198, 1.3)
pt3dadd(-798.5, 572.5, 202.5, 1.3)
pt3dadd(-808.5, 575.5, 207.5, 2)
pt3dadd(-816.5, 580, 210, 1.2)
pt3dadd(-824, 585.5, 207, 1)
pt3dadd(-835, 589, 211.5, 1)
pt3dadd(-841, 593.5, 212, 1.2)
pt3dadd(-850.5, 595.5, 213, 0.8)
pt3dadd(-859, 599.5, 212, 1.1)
pt3dadd(-867.5, 602.5, 214.5, 0.9)
pt3dadd(-878, 603, 213.5, 0.9)
pt3dadd(-889.5, 604, 214, 0.7)
pt3dadd(-900.5, 607, 219.5, 0.9)
pt3dadd(-905.5, 612, 220, 0.9)
pt3dadd(-909, 614.5, 225, 0.9)
}
dend[278] {pt3dclear()
pt3dadd(-524.5, 423, 109, 4.1)
pt3dadd(-523, 428.5, 125, 2.3)
}
dend[279] {pt3dclear()
pt3dadd(-383.5, 361, 99, 7)
pt3dadd(-390, 356.5, 88, 1.9)
pt3dadd(-400, 356.5, 87.5, 2.3)
pt3dadd(-408, 353.5, 79.5, 2.5)
pt3dadd(-415, 351.5, 75, 1.8)
pt3dadd(-422.5, 347.5, 68.5, 2)
pt3dadd(-430, 344, 66.5, 2.1)
pt3dadd(-438.5, 341.5, 61.5, 2.3)
pt3dadd(-447, 339, 56, 1.6)
pt3dadd(-452.5, 333, 51, 2)
pt3dadd(-462.5, 332, 46, 1.4)
pt3dadd(-469.5, 329, 44.5, 2.5)
pt3dadd(-479.5, 331, 37.5, 2.1)
pt3dadd(-487, 333.5, 38.5, 2.1)
pt3dadd(-495, 337, 33, 1.9)
pt3dadd(-500, 342.5, 28.5, 1.4)
pt3dadd(-502.5, 345, 25, 1.8)
pt3dadd(-508.5, 349, 23.5, 1.8)
pt3dadd(-515, 353.5, 17.5, 1.5)
pt3dadd(-519, 360.5, 13, 1.9)
pt3dadd(-517.5, 367.5, 6.5, 2.6)
}
dend[280] {pt3dclear()
pt3dadd(-517.5, 367.5, 6.5, 2.6)
pt3dadd(-522, 374.5, 8.5, 1)
pt3dadd(-527, 380, 12, 0.8)
pt3dadd(-533.5, 384.5, 19, 1.4)
pt3dadd(-541, 389, 22, 0.7)
pt3dadd(-546.5, 392.5, 25, 1.2)
pt3dadd(-552.5, 398, 21, 1.7)
pt3dadd(-558, 404.5, 12.5, 1.2)
pt3dadd(-562.5, 411, 10.5, 1.9)
pt3dadd(-571.5, 409.5, 6.5, 1.1)
pt3dadd(-580, 413, 1.5, 0.7)
pt3dadd(-583.5, 421, -4.5, 0.8)
pt3dadd(-590, 424.5, -5.5, 0.8)
pt3dadd(-596, 432, -10.5, 0.8)
pt3dadd(-604, 434.5, -10, 0.4)
pt3dadd(-615, 434, -25, 1.2)
}
dend[281] {pt3dclear()
pt3dadd(-517.5, 367.5, 6.5, 2.6)
pt3dadd(-514, 374, -5, 0.8)
pt3dadd(-514, 384, -25, 1.5)
pt3dadd(-517.5, 390.5, -27.5, 1.5)
pt3dadd(-516.5, 399.5, -31.5, 2.2)
pt3dadd(-523.5, 396, -40.5, 1.2)
pt3dadd(-531, 398.5, -53, 1.9)
pt3dadd(-533, 405, -75, 1.1)
pt3dadd(-536, 413, -86, 1.8)
pt3dadd(-544, 415, -92, 1.7)
pt3dadd(-547.5, 418.5, -107, 1.6)
}
dend[282] {pt3dclear()
pt3dadd(-547.5, 418.5, -107, 1.6)
pt3dadd(-548, 430, -114.5, 1)
pt3dadd(-545.5, 434, -125, 0.9)
}
dend[283] {pt3dclear()
pt3dadd(-547.5, 418.5, -107, 1.6)
pt3dadd(-553.5, 423, -111.5, 0.8)
pt3dadd(-559.5, 428.5, -112.5, 1.2)
pt3dadd(-563.5, 434.5, -114, 1.8)
pt3dadd(-571, 439, -119.5, 1)
pt3dadd(-577, 444.5, -121, 1.6)
pt3dadd(-581.5, 446, -125, 1.1)
pt3dadd(-573.5, 448, -128, 1.5)
pt3dadd(-570, 454.5, -135, 1.1)
pt3dadd(-578, 457, -148.5, 1.2)
pt3dadd(-586, 460.5, -171, 1)
pt3dadd(-595.5, 465, -175, 0.7)
pt3dadd(-606.5, 467, -171, 0.8)
pt3dadd(-616.5, 467.5, -177, 0.9)
pt3dadd(-624, 472.5, -180, 0.7)
pt3dadd(-629, 476, -187.5, 1.2)
}
dend[284] {pt3dclear()
pt3dadd(-629, 476, -187.5, 1.2)
pt3dadd(-627.5, 478.5, -175, 1)
}
dend[285] {pt3dclear()
pt3dadd(-629, 476, -187.5, 1.2)
pt3dadd(-638, 477.5, -183, 0.4)
pt3dadd(-644, 483, -173, 0.7)
pt3dadd(-649.5, 488, -175, 0.7)
}
dend[286] {pt3dclear()
pt3dadd(-344, 346.5, 88, 5.3)
pt3dadd(-346, 351, 94, 2.8)
}
dend[287] {pt3dclear()
pt3dadd(-346, 351, 94, 2.8)
pt3dadd(-349, 351, 75, 1.4)
}
dend[288] {pt3dclear()
pt3dadd(-346, 351, 94, 2.8)
pt3dadd(-348, 359.5, 98, 2.9)
pt3dadd(-350, 370.5, 99.5, 2.8)
pt3dadd(-355, 377.5, 98.5, 2.1)
pt3dadd(-358.5, 384.5, 102.5, 2.6)
pt3dadd(-362, 391, 111.5, 3.1)
pt3dadd(-366.5, 399.5, 110, 2.6)
pt3dadd(-368, 408, 111, 2.6)
pt3dadd(-379, 416, 119, 3.1)
pt3dadd(-380.5, 424.5, 123, 2.7)
pt3dadd(-384.5, 432, 124, 2.6)
pt3dadd(-392.5, 434, 125, 3.2)
pt3dadd(-403.5, 434.5, 134.5, 2.3)
pt3dadd(-411, 438, 144.5, 2.3)
pt3dadd(-416, 443.5, 143, 2.3)
pt3dadd(-423, 447, 153, 2.2)
pt3dadd(-432, 450, 154.5, 2)
pt3dadd(-440.5, 453.5, 153, 2.3)
pt3dadd(-449, 457.5, 164, 2)
pt3dadd(-460.5, 458, 166.5, 2.3)
pt3dadd(-462.5, 459, 175, 2.3)
pt3dadd(-471.5, 463, 185.5, 2.5)
pt3dadd(-478, 466.5, 189, 2.6)
pt3dadd(-486.5, 468.5, 193, 2.4)
pt3dadd(-492.5, 474.5, 194.5, 2.4)
pt3dadd(-497.5, 479.5, 193, 2.1)
pt3dadd(-511.5, 484.5, 200.5, 2.2)
pt3dadd(-515.5, 491, 206.5, 2.8)
pt3dadd(-522.5, 495.5, 210, 2.1)
pt3dadd(-530, 502, 214, 2)
pt3dadd(-537, 506, 216.5, 2.3)
pt3dadd(-542, 511, 218.5, 2.5)
pt3dadd(-549.5, 514.5, 222, 1.7)
pt3dadd(-552.5, 523, 223.5, 3)
pt3dadd(-556, 526, 225, 3.1)
pt3dadd(-561.5, 531, 233.5, 2.4)
pt3dadd(-564.5, 538, 234.5, 2.5)
}
dend[289] {pt3dclear()
pt3dadd(-564.5, 538, 234.5, 2.5)
pt3dadd(-570, 546, 233.5, 1.9)
pt3dadd(-571, 550, 240, 2.8)
}
dend[290] {pt3dclear()
pt3dadd(-571, 550, 240, 2.8)
pt3dadd(-573, 558.5, 247.5, 1.3)
pt3dadd(-577.5, 564, 255, 1.7)
pt3dadd(-583, 569, 261.5, 2)
pt3dadd(-584, 573, 275, 2.2)
pt3dadd(-589, 580, 275.5, 1.4)
pt3dadd(-594.5, 585.5, 280, 1.3)
pt3dadd(-602, 588.5, 293.5, 1.3)
pt3dadd(-608, 595, 298, 1.3)
pt3dadd(-614, 599.5, 306, 1.7)
pt3dadd(-620, 604, 312.5, 1.4)
pt3dadd(-626.5, 608, 314.5, 1)
pt3dadd(-633.5, 612, 318.5, 1.1)
pt3dadd(-639.5, 612, 325, 0.9)
pt3dadd(-648.5, 613.5, 329.5, 1.2)
pt3dadd(-659, 614.5, 335.5, 1)
pt3dadd(-668, 617.5, 340.5, 1)
pt3dadd(-675.5, 620.5, 349, 0.9)
pt3dadd(-685, 624.5, 356, 0.8)
pt3dadd(-693, 627, 365.5, 0.8)
pt3dadd(-701.5, 628, 375, 0.9)
pt3dadd(-713, 628, 379, 0.8)
pt3dadd(-723, 626.5, 382.5, 0.8)
pt3dadd(-732.5, 624.5, 389, 2.3)
pt3dadd(-740.5, 621.5, 395.5, 0.9)
pt3dadd(-749.5, 617.5, 399.5, 0.9)
pt3dadd(-759, 615, 403, 1.1)
pt3dadd(-768, 613, 401.5, 0.6)
pt3dadd(-778.5, 612, 405.5, 0.8)
pt3dadd(-790.5, 611, 423, 1.2)
pt3dadd(-801, 610.5, 425, 0.9)
}
dend[291] {pt3dclear()
pt3dadd(-571, 550, 240, 2.8)
pt3dadd(-573, 560.5, 243.5, 1.3)
pt3dadd(-572.5, 570, 249, 1.7)
pt3dadd(-575, 578, 254, 1.4)
pt3dadd(-571, 585.5, 265.5, 1.7)
pt3dadd(-570, 597.5, 275, 2)
pt3dadd(-571.5, 606.5, 277.5, 2)
pt3dadd(-572, 616.5, 279.5, 1.5)
pt3dadd(-576.5, 624, 286, 2)
pt3dadd(-579.5, 633, 286, 1.3)
pt3dadd(-584.5, 641.5, 295, 1.1)
pt3dadd(-592.5, 645, 297.5, 1.6)
pt3dadd(-597.5, 653, 301.5, 1.4)
pt3dadd(-606, 660.5, 305, 2)
pt3dadd(-612, 668, 313, 2.2)
pt3dadd(-617.5, 674, 318.5, 2.5)
pt3dadd(-621, 681, 320.5, 2.1)
pt3dadd(-629, 684.5, 324, 2)
pt3dadd(-636, 684.5, 325, 2.2)
pt3dadd(-643, 689, 329.5, 1.5)
}
}
proc shape3d_31() {
dend[291] { pt3dadd(-647, 696.5, 334.5, 1.1)
pt3dadd(-652, 701.5, 338.5, 1.3)
pt3dadd(-659.5, 708.5, 348.5, 1.1)
pt3dadd(-669.5, 709, 359, 0.9)
pt3dadd(-676.5, 712, 375, 0.8)
pt3dadd(-679, 719.5, 373, 1.5)
pt3dadd(-683, 729.5, 374.5, 3.7)
pt3dadd(-690.5, 734, 379, 1.4)
pt3dadd(-699, 737, 380, 1)
pt3dadd(-705.5, 741.5, 384, 2.2)
pt3dadd(-711.5, 745.5, 382.5, 1.2)
pt3dadd(-717, 750, 386.5, 0.9)
pt3dadd(-726.5, 749, 388, 0.6)
pt3dadd(-731.5, 755.5, 392, 1.6)
pt3dadd(-739.5, 758, 403, 1.1)
pt3dadd(-746, 763, 403, 0.9)
pt3dadd(-752.5, 767, 407, 0.9)
pt3dadd(-760, 772, 408.5, 1)
pt3dadd(-766.5, 776, 415.5, 3.2)
pt3dadd(-772.5, 783.5, 419.5, 1.1)
pt3dadd(-780, 789.5, 426.5, 0.9)
pt3dadd(-782, 793.5, 425, 1)
pt3dadd(-789, 798, 433, 1.5)
pt3dadd(-801.5, 798, 460.5, 0.9)
pt3dadd(-807.5, 799.5, 475, 1)
pt3dadd(-814.5, 805.5, 474, 1.3)
pt3dadd(-822, 809, 476.5, 1.3)
pt3dadd(-831.5, 810.5, 481.5, 1.1)
pt3dadd(-840.5, 812.5, 484, 1.1)
pt3dadd(-847, 817, 495.5, 1)
pt3dadd(-852, 823.5, 496, 1.2)
pt3dadd(-858.5, 827.5, 502.5, 1.6)
pt3dadd(-864, 832.5, 505, 0.7)
pt3dadd(-872.5, 836, 508, 0.7)
pt3dadd(-878.5, 842, 510.5, 0.7)
pt3dadd(-885.5, 847, 513.5, 0.7)
pt3dadd(-893, 850.5, 518.5, 0.6)
pt3dadd(-902.5, 850, 525, 1.3)
}
dend[292] {pt3dclear()
pt3dadd(-564.5, 538, 234.5, 2.5)
pt3dadd(-562.5, 542.5, 225, 1.8)
}
dend[293] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 9.2)
pt3dadd(55.5, 44, 8.5, 9.2)
pt3dadd(59, 54, 5.5, 5.1)
pt3dadd(62, 65, 11, 6)
pt3dadd(64.5, 76.5, 14, 5)
pt3dadd(66.5, 87, 17, 5.8)
pt3dadd(67.5, 98.5, 18, 5.9)
pt3dadd(66, 110, 19, 5.3)
pt3dadd(64.5, 118.5, 21.5, 4.1)
pt3dadd(66, 130, 25, 5.5)
pt3dadd(65, 141.5, 32, 5.2)
pt3dadd(68, 151.5, 33, 4.6)
pt3dadd(71, 159.5, 42.5, 4.7)
pt3dadd(75, 166.5, 44.5, 4.6)
pt3dadd(76, 176.5, 50.5, 5.7)
pt3dadd(75.5, 187, 57, 5)
pt3dadd(76.5, 196, 59.5, 4.7)
pt3dadd(78.5, 205.5, 62, 5.2)
pt3dadd(78.5, 215.5, 64.5, 5.3)
pt3dadd(80, 224, 67, 4.5)
pt3dadd(80, 227, 75, 4.6)
pt3dadd(83.5, 235, 78.5, 4.8)
pt3dadd(87, 245.5, 95.5, 5)
pt3dadd(93, 252.5, 102, 4.3)
pt3dadd(93.5, 262, 96.5, 4.8)
pt3dadd(97.5, 272, 104.5, 4.6)
pt3dadd(104, 275.5, 106, 4.2)
pt3dadd(109, 280.5, 107, 4.3)
pt3dadd(114.5, 286, 111, 3.9)
pt3dadd(122, 290, 113.5, 3.2)
pt3dadd(125, 300, 125, 4.7)
pt3dadd(131.5, 306.5, 137, 4.1)
pt3dadd(135, 315, 141.5, 4.7)
pt3dadd(139, 322, 149.5, 4.3)
pt3dadd(144, 336, 155.5, 4.4)
pt3dadd(146.5, 345.5, 157, 5)
pt3dadd(150, 352.5, 158, 4.1)
pt3dadd(154, 360, 160.5, 3.7)
pt3dadd(158, 370, 165, 3)
pt3dadd(161.5, 378, 173.5, 3.4)
pt3dadd(165.5, 384, 175, 4.5)
pt3dadd(169, 391, 179.5, 3.2)
pt3dadd(172.5, 398, 180.5, 3.4)
pt3dadd(176.5, 405.5, 185.5, 3.4)
pt3dadd(182, 414, 193, 3.4)
pt3dadd(187.5, 421, 190, 3.4)
pt3dadd(192, 427.5, 191, 2.8)
pt3dadd(197, 433, 193.5, 3)
pt3dadd(204.5, 439, 195, 3.8)
pt3dadd(211, 446.5, 196, 3.1)
pt3dadd(217.5, 451.5, 195, 3.4)
pt3dadd(224, 457, 202, 4)
pt3dadd(230, 462.5, 203, 3.7)
pt3dadd(235.5, 467.5, 205.5, 5)
pt3dadd(240, 476, 205.5, 4.3)
pt3dadd(246, 482.5, 200.5, 3.8)
pt3dadd(251.5, 488, 204, 4.4)
pt3dadd(254, 490, 206.5, 4.1)
}
dend[294] {pt3dclear()
pt3dadd(254, 490, 206.5, 4.1)
pt3dadd(261, 495, 202, 3.5)
pt3dadd(267.5, 500.5, 200, 2.8)
pt3dadd(275.5, 505, 202, 3.2)
pt3dadd(282.5, 511, 204, 3.8)
pt3dadd(288.5, 516.5, 203.5, 4.4)
pt3dadd(294, 524, 201.5, 3.4)
pt3dadd(299, 529.5, 203.5, 3.1)
pt3dadd(301, 538.5, 205.5, 4.5)
pt3dadd(304.5, 547.5, 207, 3.6)
pt3dadd(309.5, 554, 205, 4)
pt3dadd(313, 562, 207, 3.5)
pt3dadd(316, 565, 209, 6.3)
}
dend[295] {pt3dclear()
pt3dadd(316, 565, 209, 6.3)
pt3dadd(315.5, 575.5, 209.5, 3.4)
pt3dadd(316.5, 587, 204, 3.2)
pt3dadd(315, 596.5, 204.5, 2.7)
pt3dadd(312.5, 605, 203.5, 3.7)
pt3dadd(316, 612.5, 194, 3)
pt3dadd(316.5, 622.5, 196.5, 2.6)
pt3dadd(315.5, 631.5, 193.5, 1.9)
pt3dadd(318, 640.5, 188, 2)
pt3dadd(320.5, 651, 189, 3)
pt3dadd(319.5, 660, 184, 2.3)
pt3dadd(320, 672, 186, 2.6)
pt3dadd(318.5, 683.5, 184.5, 2.6)
pt3dadd(317.5, 692.5, 179, 1.8)
pt3dadd(316, 703, 179.5, 2.1)
pt3dadd(318, 707, 175, 2.1)
}
dend[296] {pt3dclear()
pt3dadd(316, 565, 209, 6.3)
pt3dadd(325, 579.5, 212.5, 2.7)
pt3dadd(329.5, 587.5, 215.5, 2.8)
pt3dadd(334, 593.5, 218, 2.8)
pt3dadd(340, 600, 219, 3.7)
pt3dadd(342.5, 608, 219.5, 3.7)
pt3dadd(345.5, 628, 225, 3.7)
pt3dadd(348.5, 635.5, 226, 3.8)
pt3dadd(351, 646.5, 225, 3.6)
pt3dadd(352.5, 657, 217, 2.1)
pt3dadd(356.5, 665, 221.5, 2.1)
pt3dadd(359, 675.5, 222.5, 1.9)
pt3dadd(363, 683, 223.5, 2.3)
pt3dadd(368, 690.5, 228.5, 2)
pt3dadd(372.5, 697, 225.5, 2.4)
pt3dadd(378, 703, 226.5, 2.8)
pt3dadd(384.5, 710, 228, 2.5)
pt3dadd(391, 717, 231, 2.4)
pt3dadd(396, 724.5, 232, 4.1)
}
dend[297] {pt3dclear()
pt3dadd(396, 724.5, 232, 4.1)
pt3dadd(400.5, 730, 226, 2.2)
pt3dadd(405.5, 736, 226, 2.1)
pt3dadd(412, 742.5, 224, 2)
pt3dadd(412.5, 749, 222, 2.5)
}
dend[298] {pt3dclear()
pt3dadd(412.5, 749, 222, 2.5)
pt3dadd(412, 761, 219, 1.9)
pt3dadd(411, 773.5, 217.5, 2)
pt3dadd(413, 785, 227, 2)
pt3dadd(416, 794.5, 228, 2)
pt3dadd(418.5, 803, 225, 2.2)
pt3dadd(422, 809.5, 224.5, 2.2)
pt3dadd(425, 817.5, 223, 2.1)
pt3dadd(429, 827.5, 220, 1.6)
pt3dadd(429, 837.5, 221, 1.9)
pt3dadd(433, 844, 222, 2.5)
pt3dadd(442.5, 847, 225, 2.3)
pt3dadd(450, 851.5, 228.5, 1.3)
pt3dadd(456.5, 856, 231, 1.6)
pt3dadd(454.5, 865.5, 236, 1.3)
pt3dadd(452.5, 875.5, 245.5, 1.5)
pt3dadd(450.5, 886, 250.5, 1.4)
pt3dadd(456, 890.5, 259, 1.2)
pt3dadd(460.5, 896.5, 261, 1.6)
pt3dadd(462, 905, 266.5, 1.3)
pt3dadd(465.5, 910, 275, 2.2)
pt3dadd(472.5, 914, 278, 1.4)
pt3dadd(470, 921.5, 284.5, 1.6)
pt3dadd(474, 930, 291, 1.7)
pt3dadd(475.5, 938.5, 294, 1.4)
pt3dadd(480, 945.5, 301, 1.4)
pt3dadd(478.5, 955, 303, 1.8)
pt3dadd(479.5, 965.5, 310.5, 1.1)
pt3dadd(485.5, 971.5, 315.5, 1.3)
pt3dadd(492.5, 974.5, 320, 1.9)
pt3dadd(505, 976.5, 324.5, 2.1)
pt3dadd(510, 979, 325, 1.3)
pt3dadd(521, 983.5, 326.5, 1)
pt3dadd(527.5, 987, 326, 1)
pt3dadd(535, 992, 325, 1.6)
pt3dadd(539.5, 997.5, 324.5, 1.4)
pt3dadd(547, 1003, 323.5, 1.1)
pt3dadd(556, 1002, 325.5, 1.3)
pt3dadd(566.5, 1003, 325, 1.4)
pt3dadd(575.5, 999.5, 325, 1.4)
pt3dadd(584, 997, 318, 1)
pt3dadd(591, 993, 314.5, 1.2)
pt3dadd(600.5, 990.5, 318, 1.2)
pt3dadd(609.5, 993, 317, 1.1)
pt3dadd(621.5, 993, 315, 0.9)
pt3dadd(629, 997.5, 322, 1.1)
pt3dadd(635.5, 1005, 322, 1)
pt3dadd(640, 1011.5, 322, 1)
pt3dadd(647.5, 1014, 322, 1.1)
}
}
proc shape3d_32() {
dend[298] { pt3dadd(653.5, 1022, 324.5, 1.1)
pt3dadd(666, 1020, 324.5, 1.3)
pt3dadd(672, 1014, 328, 1.4)
pt3dadd(677.5, 1009, 322.5, 1.7)
pt3dadd(684.5, 1003, 324.5, 1.3)
pt3dadd(692, 997.5, 324.5, 1.2)
pt3dadd(695, 994.5, 325, 1.2)
}
dend[299] {pt3dclear()
pt3dadd(412.5, 749, 222, 2.5)
pt3dadd(414.5, 752, 225, 1.9)
}
dend[300] {pt3dclear()
pt3dadd(396, 724.5, 232, 4.1)
pt3dadd(397.5, 733, 227, 2.5)
pt3dadd(402.5, 740, 227.5, 2.6)
pt3dadd(405.5, 750, 225, 2.6)
pt3dadd(407, 760.5, 231, 3.1)
pt3dadd(411.5, 767, 227, 1.8)
pt3dadd(415, 775, 225, 3)
pt3dadd(418.5, 782, 227, 2.2)
pt3dadd(422, 790.5, 225, 1.7)
pt3dadd(428.5, 795.5, 223, 1.2)
pt3dadd(433, 803, 225, 1.8)
pt3dadd(437.5, 809.5, 223, 2.1)
pt3dadd(441.5, 818.5, 225, 1.7)
pt3dadd(451.5, 823.5, 224.5, 2.4)
pt3dadd(459, 828, 224.5, 2.5)
pt3dadd(466.5, 833, 222, 2.5)
pt3dadd(471.5, 839.5, 220, 3)
pt3dadd(477.5, 845, 219.5, 1.7)
pt3dadd(480.5, 852.5, 219.5, 2.2)
pt3dadd(488.5, 858, 221.5, 1.5)
pt3dadd(495, 863.5, 221, 2.6)
pt3dadd(500.5, 868, 221, 3.2)
pt3dadd(505.5, 875.5, 228, 2.8)
pt3dadd(512.5, 882, 220.5, 1.9)
pt3dadd(518.5, 890.5, 222, 3.2)
pt3dadd(523, 896.5, 223.5, 1.8)
pt3dadd(527, 903, 223.5, 1.9)
pt3dadd(534, 910, 223.5, 2.2)
pt3dadd(538, 920, 223, 1.5)
pt3dadd(541, 927.5, 223, 1.5)
pt3dadd(544.5, 934, 224.5, 2.5)
pt3dadd(550, 942, 218.5, 2.8)
pt3dadd(555, 947.5, 220, 2.2)
pt3dadd(559.5, 953, 218, 1.8)
pt3dadd(565.5, 958.5, 220, 2.7)
pt3dadd(572, 963, 219.5, 2.6)
pt3dadd(576.5, 970, 217.5, 1.6)
pt3dadd(581, 979, 219, 2)
pt3dadd(586.5, 985.5, 215, 3)
pt3dadd(592, 990, 224, 1.5)
pt3dadd(597, 998.5, 220.5, 2.7)
pt3dadd(603, 1004, 222, 1.5)
pt3dadd(608.5, 1009.5, 222, 2)
pt3dadd(615, 1015.5, 223, 1.3)
pt3dadd(621, 1022.5, 219.5, 1.3)
pt3dadd(627.5, 1029.5, 211, 3.8)
pt3dadd(632.5, 1035, 218.5, 1.2)
pt3dadd(638.5, 1039.5, 222, 1.4)
pt3dadd(644, 1044, 221.5, 1.2)
pt3dadd(650, 1048.5, 220, 1.5)
pt3dadd(656.5, 1052, 221.5, 1.9)
pt3dadd(662, 1058, 223, 1.3)
pt3dadd(667, 1065, 225, 1.5)
pt3dadd(674, 1067.5, 225, 1.5)
pt3dadd(680, 1072, 225.5, 1.1)
pt3dadd(683, 1079.5, 231.5, 1)
pt3dadd(681, 1088.5, 237.5, 1.1)
pt3dadd(685, 1094.5, 250.5, 1.6)
pt3dadd(690.5, 1099.5, 256, 0.8)
pt3dadd(698.5, 1103, 264.5, 1.1)
pt3dadd(701.5, 1106.5, 275, 1.1)
pt3dadd(710.5, 1109.5, 273, 1.3)
pt3dadd(715, 1115.5, 269.5, 0.9)
pt3dadd(713.5, 1123, 275, 1)
}
dend[301] {pt3dclear()
pt3dadd(254, 490, 206.5, 4.1)
pt3dadd(250.5, 494.5, 225, 1)
}
dend[302] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 15.6)
pt3dadd(66, 33.5, -0.5, 15.6)
pt3dadd(73.5, 36.5, -3, 10.8)
pt3dadd(81.5, 40, -2, 9.5)
pt3dadd(89, 43.5, -2.5, 8.8)
pt3dadd(97.5, 48.5, -1, 8.4)
pt3dadd(105, 52, -3.5, 8.1)
pt3dadd(112.5, 56, -2, 9.5)
pt3dadd(122.5, 61.5, -3, 10)
pt3dadd(130, 64.5, -1.5, 9.3)
pt3dadd(137, 68.5, -2, 9.5)
pt3dadd(143.5, 72, -2.5, 9.3)
pt3dadd(152.5, 76, -3, 9.5)
pt3dadd(161, 80, -3.5, 8.4)
pt3dadd(170.5, 84, -4.5, 8.6)
pt3dadd(179, 88, -5, 8.2)
pt3dadd(186, 91, -7.5, 8.1)
pt3dadd(198.5, 94, -4.5, 7.4)
pt3dadd(210, 96, -11, 6.9)
pt3dadd(219, 99, -12, 7.5)
pt3dadd(227, 102, -8.5, 9.5)
pt3dadd(234, 106.5, -9.5, 7.5)
pt3dadd(241, 112, -10, 6.7)
pt3dadd(247.5, 117, -12.5, 6.6)
pt3dadd(255.5, 123.5, -11, 6.2)
pt3dadd(262.5, 128.5, -11.5, 6.2)
pt3dadd(269.5, 134, -12.5, 6.1)
pt3dadd(279.5, 141.5, -11, 6.5)
pt3dadd(286, 148, -12, 6.3)
pt3dadd(293, 154.5, -17, 6.1)
pt3dadd(299, 159.5, -15.5, 5.9)
pt3dadd(304.5, 165.5, -16, 7.3)
pt3dadd(313, 171, -16.5, 5.9)
pt3dadd(320, 174.5, -17.5, 5.6)
pt3dadd(326.5, 179.5, -18, 4.8)
pt3dadd(332.5, 183.5, -18.5, 4.5)
pt3dadd(336, 186, -25, 4.8)
pt3dadd(332, 192.5, -28, 5)
pt3dadd(336, 200, -39, 8.9)
}
dend[303] {pt3dclear()
pt3dadd(336, 200, -39, 8.9)
pt3dadd(346, 200.5, -36, 4.5)
pt3dadd(355.5, 204, -39, 4.2)
pt3dadd(362.5, 207.5, -36, 4.5)
pt3dadd(370, 212, -39, 4.4)
pt3dadd(379, 215, -39, 4.1)
pt3dadd(386.5, 219.5, -39, 5.2)
pt3dadd(399, 221.5, -44, 4.8)
pt3dadd(408, 226, -42, 4.9)
pt3dadd(416, 228.5, -44.5, 4.8)
pt3dadd(425, 231, -42, 5)
pt3dadd(433.5, 234.5, -42, 8.4)
}
dend[304] {pt3dclear()
pt3dadd(433.5, 234.5, -42, 8.4)
pt3dadd(446, 235.5, -45, 5)
pt3dadd(456.5, 239.5, -48, 4.1)
pt3dadd(466, 243.5, -44, 2.9)
pt3dadd(476, 244, -49.5, 2.7)
pt3dadd(491.5, 250.5, -50, 3.3)
pt3dadd(499, 254, -45.5, 3.7)
pt3dadd(509, 257.5, -51, 3.4)
pt3dadd(517.5, 260.5, -51.5, 3)
pt3dadd(525.5, 267, -47, 2.8)
pt3dadd(534, 273.5, -52.5, 3.2)
pt3dadd(542, 279.5, -50.5, 3)
pt3dadd(548, 286.5, -46, 2.7)
pt3dadd(552.5, 292, -43.5, 3.1)
pt3dadd(561.5, 296, -47, 2.7)
pt3dadd(571.5, 295, -47.5, 3.5)
pt3dadd(584, 294.5, -53, 3.5)
pt3dadd(595, 293.5, -51, 3.9)
pt3dadd(604.5, 294, -56.5, 3.2)
pt3dadd(612.5, 296.5, -49.5, 3.2)
pt3dadd(622, 297, -55, 3.6)
pt3dadd(630.5, 299, -55.5, 3.2)
pt3dadd(637, 303, -58, 3.2)
pt3dadd(646.5, 307, -58.5, 3.3)
pt3dadd(655.5, 313, -59, 3.5)
pt3dadd(664.5, 317.5, -59.5, 3)
pt3dadd(670.5, 321.5, -60, 3)
pt3dadd(676, 327.5, -66, 2.5)
pt3dadd(683.5, 331.5, -66, 3)
pt3dadd(693.5, 335.5, -64, 2.5)
pt3dadd(702.5, 342, -64.5, 2.8)
pt3dadd(711, 345.5, -65, 2.8)
pt3dadd(718.5, 350, -66, 2.8)
pt3dadd(724.5, 354.5, -68.5, 2.7)
pt3dadd(733, 360, -69, 2.6)
pt3dadd(739, 364, -69.5, 2.6)
pt3dadd(745.5, 370.5, -75, 2.5)
pt3dadd(752.5, 376, -75.5, 3)
pt3dadd(759, 380, -72.5, 2.8)
pt3dadd(764.5, 385, -73, 3.1)
pt3dadd(772, 390.5, -77, 2.9)
pt3dadd(778.5, 394.5, -71, 3.2)
pt3dadd(784, 399.5, -74.5, 2.7)
pt3dadd(789.5, 404, -75, 3.2)
pt3dadd(795.5, 408.5, -75.5, 2.8)
pt3dadd(801, 413, -76, 2.7)
pt3dadd(808, 417, -76, 3.2)
pt3dadd(814, 421.5, -76.5, 3.4)
pt3dadd(819.5, 426.5, -73.5, 2.8)
pt3dadd(824.5, 432.5, -74, 2.5)
pt3dadd(831, 437.5, -71.5, 3.2)
pt3dadd(836.5, 444.5, -78.5, 2.8)
pt3dadd(843.5, 448.5, -69.5, 3)
pt3dadd(851.5, 454.5, -83, 2.8)
pt3dadd(859, 459.5, -80.5, 2.4)
pt3dadd(867.5, 464, -75, 2.5)
pt3dadd(876.5, 466.5, -70, 3.4)
pt3dadd(884, 472, -70.5, 3.4)
pt3dadd(892, 476.5, -73, 3.1)
pt3dadd(898.5, 481, -73.5, 3.8)
pt3dadd(908, 486.5, -73.5, 2.8)
pt3dadd(914.5, 492, -71.5, 2.7)
pt3dadd(920.5, 496, -74, 3)
pt3dadd(927, 500, -74.5, 2.7)
pt3dadd(934.5, 506, -74.5, 2.7)
pt3dadd(939, 506.5, -75, 3.1)
pt3dadd(945, 511, -86.5, 2.9)
pt3dadd(949, 519, -87.5, 2.2)
pt3dadd(957.5, 520.5, -90.5, 3.1)
pt3dadd(966, 522.5, -96, 2.7)
pt3dadd(977.5, 522.5, -98.5, 2.5)
pt3dadd(987, 522, -98, 2.3)
pt3dadd(997, 521.5, -96, 2.6)
pt3dadd(1006.5, 521.5, -105, 3.7)
}
}
proc shape3d_33() {
dend[304] { }
dend[305] {pt3dclear()
pt3dadd(1006.5, 521.5, -105, 3.7)
pt3dadd(1016, 523.5, -100.5, 3.5)
pt3dadd(1025, 525, -95.5, 3)
pt3dadd(1034, 528.5, -101, 3.3)
pt3dadd(1042.5, 533, -100, 3.4)
pt3dadd(1053, 536.5, -91, 2.7)
pt3dadd(1063, 540.5, -96, 2.9)
pt3dadd(1071.5, 544, -88, 2.8)
pt3dadd(1081, 548, -86.5, 2.5)
pt3dadd(1088, 552.5, -76, 2.7)
pt3dadd(1092, 560, -78, 1.8)
pt3dadd(1097.5, 564.5, -77.5, 2.8)
pt3dadd(1104.5, 570.5, -76.5, 2.6)
pt3dadd(1111.5, 574.5, -75.5, 2.3)
pt3dadd(1119, 578, -77, 2.8)
pt3dadd(1126.5, 583.5, -75, 3)
pt3dadd(1137, 584.5, -72.5, 1.9)
pt3dadd(1146.5, 585.5, -72.5, 1.9)
pt3dadd(1154.5, 588.5, -72.5, 2.2)
pt3dadd(1159, 595, -72.5, 2.7)
pt3dadd(1160.5, 605, -72.5, 2.5)
pt3dadd(1162.5, 614, -72.5, 2.1)
pt3dadd(1168.5, 620, -75, 2)
pt3dadd(1173, 627.5, -78, 1.8)
pt3dadd(1174.5, 628.5, -75, 1.5)
}
dend[306] {pt3dclear()
pt3dadd(1006.5, 521.5, -105, 3.7)
pt3dadd(1010, 517, -125, 1.6)
}
dend[307] {pt3dclear()
pt3dadd(433.5, 234.5, -42, 8.4)
pt3dadd(436.5, 241.5, -44.5, 3.8)
pt3dadd(439.5, 253, -42, 3.6)
pt3dadd(439.5, 263.5, -42, 3.3)
pt3dadd(441.5, 271.5, -45, 3.2)
pt3dadd(444.5, 280, -45, 2.8)
pt3dadd(447.5, 288.5, -47.5, 2.6)
pt3dadd(447, 298.5, -53, 2.8)
pt3dadd(452.5, 305, -58.5, 3)
pt3dadd(457, 312, -53.5, 2.7)
pt3dadd(462, 318, -53.5, 2.8)
pt3dadd(468, 325.5, -53.5, 2.5)
pt3dadd(474, 332, -54, 3.1)
pt3dadd(482.5, 335, -54, 2.6)
pt3dadd(490.5, 342, -51.5, 3.3)
pt3dadd(494.5, 348.5, -51.5, 3.3)
pt3dadd(499.5, 355.5, -54, 3.2)
pt3dadd(503.5, 361.5, -57, 2.8)
pt3dadd(504, 372.5, -57, 2.6)
pt3dadd(508, 374.5, -52, 2.7)
}
dend[308] {pt3dclear()
pt3dadd(508, 374.5, -52, 2.7)
pt3dadd(512.5, 373.5, -75, 1.5)
}
dend[309] {pt3dclear()
pt3dadd(508, 374.5, -52, 2.7)
pt3dadd(512, 382.5, -60, 2.8)
pt3dadd(517.5, 389, -62.5, 2.7)
pt3dadd(522.5, 396.5, -75, 2.5)
pt3dadd(525, 405.5, -79, 2.5)
pt3dadd(528, 412.5, -77, 2.6)
pt3dadd(531, 420, -80.5, 2.6)
pt3dadd(536.5, 425, -81.5, 2.9)
pt3dadd(542.5, 431.5, -85.5, 2.2)
pt3dadd(548.5, 438, -87, 1.9)
pt3dadd(552.5, 446.5, -91, 2.5)
pt3dadd(560.5, 450, -95, 2.1)
pt3dadd(566.5, 458, -92.5, 2.5)
pt3dadd(570.5, 466, -93.5, 2.6)
pt3dadd(575, 472, -97.5, 2.4)
pt3dadd(583.5, 483.5, -96, 2.3)
pt3dadd(587, 490, -100, 2.6)
pt3dadd(588, 499, -101, 2.9)
pt3dadd(591, 507, -101.5, 2.7)
pt3dadd(593, 518.5, -99, 2.4)
pt3dadd(597, 525.5, -110, 2.8)
pt3dadd(600.5, 532.5, -105, 3.2)
pt3dadd(603, 541.5, -112.5, 2.8)
pt3dadd(606.5, 551, -107.5, 2.8)
pt3dadd(606.5, 561.5, -122, 2.8)
pt3dadd(605.5, 571, -122.5, 2.6)
pt3dadd(608.5, 579.5, -120.5, 2.6)
pt3dadd(608, 585, -125, 3.2)
pt3dadd(605.5, 593, -119, 2.3)
pt3dadd(610.5, 602.5, -132, 2.3)
pt3dadd(614, 610.5, -128.5, 2.1)
pt3dadd(624, 615, -126, 2)
pt3dadd(630.5, 619, -129, 1.9)
pt3dadd(637.5, 622, -129, 2)
pt3dadd(644, 626, -126.5, 3)
pt3dadd(651, 631, -129.5, 1.9)
pt3dadd(656.5, 636, -133, 2.3)
pt3dadd(663, 640.5, -133.5, 2.3)
pt3dadd(667.5, 646.5, -133.5, 2.1)
pt3dadd(673, 652, -133.5, 1.9)
pt3dadd(680.5, 655.5, -143, 2.1)
pt3dadd(687.5, 661.5, -134.5, 1.6)
pt3dadd(695, 664, -137.5, 2.5)
pt3dadd(703, 668, -137.5, 2.5)
pt3dadd(705.5, 674, -147.5, 2.9)
}
dend[310] {pt3dclear()
pt3dadd(705.5, 674, -147.5, 2.9)
pt3dadd(712, 679, -149, 2.7)
pt3dadd(720, 682.5, -153, 2)
pt3dadd(725, 688.5, -151, 2.2)
pt3dadd(732.5, 694, -152, 2.5)
pt3dadd(736, 705, -147, 2.9)
pt3dadd(739, 713.5, -148, 2.7)
pt3dadd(744, 720.5, -149, 2.5)
pt3dadd(748.5, 729.5, -147, 2.7)
pt3dadd(754, 738, -154.5, 2)
pt3dadd(759, 747, -162.5, 2.5)
pt3dadd(761.5, 758.5, -160.5, 2.1)
pt3dadd(767, 764.5, -164.5, 2.8)
pt3dadd(773, 770.5, -159.5, 2.5)
pt3dadd(778.5, 775, -157, 2.3)
pt3dadd(784.5, 779.5, -165, 2.3)
pt3dadd(786.5, 782.5, -175, 2.3)
pt3dadd(790.5, 794, -175, 1.7)
pt3dadd(792.5, 801.5, -175, 2.5)
pt3dadd(794.5, 811.5, -171.5, 3)
pt3dadd(798.5, 819.5, -175, 3)
pt3dadd(803, 825, -171.5, 2.6)
pt3dadd(810, 830, -171.5, 2.2)
pt3dadd(812.5, 840, -175, 1.7)
pt3dadd(816, 849.5, -175, 2.2)
pt3dadd(817, 859, -175, 2.1)
pt3dadd(818, 869.5, -181, 1.7)
pt3dadd(819.5, 878, -181, 1.6)
pt3dadd(820, 889, -178, 5.3)
pt3dadd(824, 895, -175, 2.7)
pt3dadd(826, 906.5, -171.5, 4)
pt3dadd(831, 914.5, -175, 2)
pt3dadd(835.5, 921, -175, 4.1)
pt3dadd(841.5, 926, -171.5, 1.8)
pt3dadd(843, 934.5, -175, 2.6)
pt3dadd(848, 940, -172, 2.4)
pt3dadd(853.5, 957, -165.5, 2.7)
pt3dadd(858, 963, -165.5, 3.2)
pt3dadd(862.5, 969.5, -165.5, 1.3)
pt3dadd(867.5, 975, -165.5, 3)
pt3dadd(873.5, 980, -172, 1.4)
pt3dadd(881, 982.5, -172, 1.4)
pt3dadd(885, 990, -175, 1.5)
pt3dadd(889.5, 996.5, -175, 0.8)
pt3dadd(896.5, 1002, -175, 1.2)
pt3dadd(902, 1005.5, -175, 1.2)
pt3dadd(912, 997, -203.5, 2.5)
}
dend[311] {pt3dclear()
pt3dadd(912, 997, -203.5, 2.5)
pt3dadd(906, 992.5, -209, 0.7)
pt3dadd(902.5, 989, -225, 1.1)
pt3dadd(902, 979.5, -233.5, 1.6)
pt3dadd(911.5, 977, -260, 1.8)
pt3dadd(917.5, 972, -271, 0.9)
pt3dadd(924, 972, -275, 0.8)
}
dend[312] {pt3dclear()
pt3dadd(912, 997, -203.5, 2.5)
pt3dadd(916, 997, -225, 1.7)
}
dend[313] {pt3dclear()
pt3dadd(705.5, 674, -147.5, 2.9)
pt3dadd(705.5, 679, -175, 2)
pt3dadd(710.5, 684, -172.5, 0.7)
pt3dadd(719.5, 687.5, -181, 1.3)
pt3dadd(723, 696, -184.5, 1.6)
pt3dadd(729.5, 702, -198.5, 0.6)
pt3dadd(727, 711, -200.5, 0.4)
pt3dadd(720.5, 714.5, -214.5, 0.9)
pt3dadd(715, 721, -209.5, 1.2)
pt3dadd(711, 725, -225, 1)
pt3dadd(715, 731.5, -231.5, 1.2)
pt3dadd(714.5, 741.5, -230, 1.3)
pt3dadd(709.5, 747.5, -229, 1)
pt3dadd(708.5, 751, -225, 0.7)
}
dend[314] {pt3dclear()
pt3dadd(336, 200, -39, 8.9)
pt3dadd(335, 209, -37, 3.6)
pt3dadd(339, 215, -38, 3.4)
pt3dadd(341, 224, -42, 3.8)
pt3dadd(345, 232.5, -40.5, 4.5)
pt3dadd(351, 239, -41.5, 2.9)
pt3dadd(355, 245, -45.5, 3.1)
pt3dadd(361.5, 249, -46.5, 2.6)
pt3dadd(367, 253.5, -50, 3.2)
pt3dadd(371, 260.5, -51, 2.7)
pt3dadd(374, 267.5, -54.5, 3.3)
pt3dadd(378, 274.5, -55.5, 3.2)
pt3dadd(381.5, 283.5, -56.5, 3.3)
pt3dadd(386, 290.5, -57.5, 3.1)
pt3dadd(389, 298, -61, 3.2)
pt3dadd(393, 306.5, -71, 3.2)
pt3dadd(395.5, 311, -75, 3.9)
pt3dadd(399, 320.5, -81, 3.2)
pt3dadd(402.5, 328, -85.5, 3.7)
}
dend[315] {pt3dclear()
pt3dadd(402.5, 328, -85.5, 3.7)
pt3dadd(408, 335, -92.5, 2.8)
pt3dadd(412, 341.5, -90.5, 2.1)
pt3dadd(416, 348, -94, 2.4)
pt3dadd(418, 357, -94.5, 2)
pt3dadd(421.5, 363.5, -92, 1.8)
pt3dadd(426.5, 369.5, -92.5, 1.9)
pt3dadd(431, 376.5, -89.5, 2.1)
pt3dadd(435.5, 383, -100, 2.2)
pt3dadd(439, 390.5, -97.5, 2.3)
pt3dadd(442, 399.5, -101.5, 2.5)
pt3dadd(449, 404.5, -109, 2.1)
pt3dadd(445, 411.5, -109.5, 2.3)
pt3dadd(446.5, 420.5, -116, 2.2)
pt3dadd(444.5, 429.5, -117, 1.4)
pt3dadd(449, 436.5, -118, 2.2)
pt3dadd(450.5, 439, -125, 2.2)
}
}
proc shape3d_34() {
dend[315] { pt3dadd(453, 446.5, -123.5, 2.5)
pt3dadd(456, 454.5, -139, 2.1)
pt3dadd(461, 461.5, -140.5, 2)
pt3dadd(463.5, 469.5, -153, 2)
pt3dadd(465.5, 477.5, -158, 2)
pt3dadd(462.5, 487.5, -159.5, 2.6)
pt3dadd(464, 496, -171, 2.3)
pt3dadd(465.5, 497, -175, 2.3)
}
dend[316] {pt3dclear()
pt3dadd(402.5, 328, -85.5, 3.7)
pt3dadd(410.5, 332, -92.5, 2.3)
pt3dadd(415, 337.5, -108, 2.6)
pt3dadd(421.5, 334, -110.5, 2.5)
pt3dadd(427.5, 338, -119, 2.3)
pt3dadd(433.5, 342.5, -125, 2.4)
pt3dadd(443, 344.5, -129.5, 2.9)
pt3dadd(444.5, 353.5, -140.5, 2.8)
pt3dadd(449, 361, -146, 2.3)
pt3dadd(450, 370, -152.5, 2.6)
pt3dadd(451.5, 379, -159, 2.8)
pt3dadd(451.5, 390.5, -169, 2.3)
pt3dadd(450.5, 397, -175, 3.3)
pt3dadd(458, 401, -184.5, 1.9)
pt3dadd(464.5, 405.5, -189, 3)
pt3dadd(468.5, 413.5, -188.5, 3)
pt3dadd(474, 420.5, -195.5, 3.6)
pt3dadd(481.5, 428, -206, 2.6)
pt3dadd(487.5, 432, -209, 3.2)
pt3dadd(495, 436, -225, 2)
pt3dadd(500.5, 443, -228, 3.1)
pt3dadd(505.5, 448.5, -230, 2.8)
pt3dadd(508, 456.5, -246, 2.1)
pt3dadd(513, 463.5, -255.5, 3)
pt3dadd(517, 470.5, -251, 3.2)
pt3dadd(518, 480, -252.5, 1.8)
pt3dadd(524, 487, -258.5, 1.5)
pt3dadd(528.5, 495, -260.5, 1.8)
pt3dadd(530, 504, -262, 2.9)
pt3dadd(530.5, 513.5, -261.5, 1.9)
pt3dadd(530.5, 520.5, -275, 2.3)
pt3dadd(525, 526, -290, 2.6)
pt3dadd(525, 537.5, -292.5, 1.9)
pt3dadd(530, 543, -300.5, 2.8)
pt3dadd(532, 551, -311, 2.2)
pt3dadd(540.5, 552.5, -315, 3.7)
pt3dadd(545.5, 550.5, -325, 1.2)
}
dend[317] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 19.9)
pt3dadd(62, 0.5, -9, 19.9)
pt3dadd(67.5, -4, -9.5, 14.5)
pt3dadd(75, -9.5, -7.5, 12.1)
pt3dadd(80.5, -15, -9.5, 10.5)
pt3dadd(88, -22, -9.5, 11.6)
pt3dadd(96, -27.5, -4, 10.3)
pt3dadd(103.5, -32.5, -4, 8.1)
pt3dadd(108.5, -39, -6, 8.9)
pt3dadd(115, -44, -6.5, 9.2)
pt3dadd(120, -49, -6.5, 9.2)
pt3dadd(128.5, -58.5, -6.5, 9.1)
pt3dadd(132, -63, -6.5, 9.9)
}
dend[318] {pt3dclear()
pt3dadd(132, -63, -6.5, 9.9)
pt3dadd(140.5, -60, -10.5, 5)
pt3dadd(151.5, -60.5, -21, 5)
pt3dadd(156.5, -60.5, -25, 5.5)
pt3dadd(167, -60.5, -30, 5.5)
pt3dadd(179, -59.5, -32, 4.6)
pt3dadd(189.5, -59, -34, 4.3)
pt3dadd(201, -62.5, -39, 4.1)
pt3dadd(211, -64, -43.5, 4.1)
pt3dadd(221.5, -66.5, -46.5, 3.8)
pt3dadd(229, -69.5, -53.5, 4.1)
pt3dadd(238, -71.5, -58, 4)
pt3dadd(247, -73.5, -62, 4.4)
pt3dadd(258.5, -74.5, -66.5, 4.3)
pt3dadd(269.5, -74, -65, 3.3)
pt3dadd(278.5, -76.5, -78, 4)
pt3dadd(285.5, -75.5, -75, 3.7)
pt3dadd(294, -74, -77, 3.4)
pt3dadd(303.5, -74.5, -79, 4.5)
pt3dadd(315.5, -72, -85, 5)
pt3dadd(326, -74.5, -96, 4)
pt3dadd(336.5, -76, -96, 3.8)
pt3dadd(346.5, -72.5, -106, 3.7)
pt3dadd(356.5, -74.5, -112, 5)
}
dend[319] {pt3dclear()
pt3dadd(356.5, -74.5, -112, 5)
pt3dadd(365.5, -75.5, -114.5, 3.7)
pt3dadd(375.5, -77.5, -125, 3.2)
}
dend[320] {pt3dclear()
pt3dadd(356.5, -74.5, -112, 5)
pt3dadd(362.5, -82.5, -129.5, 3.3)
pt3dadd(364.5, -90.5, -139.5, 3.7)
pt3dadd(370, -98, -152.5, 2.5)
pt3dadd(371.5, -115.5, -162, 2.7)
pt3dadd(376, -122.5, -164.5, 3.2)
pt3dadd(378, -131, -173.5, 2.3)
pt3dadd(380.5, -139.5, -184, 2.5)
pt3dadd(383.5, -147.5, -191.5, 3.1)
pt3dadd(388.5, -155.5, -198.5, 3)
pt3dadd(389, -162.5, -203.5, 3.4)
}
dend[321] {pt3dclear()
pt3dadd(389, -162.5, -203.5, 3.4)
pt3dadd(393, -171, -209.5, 1)
pt3dadd(396, -179, -210.5, 1)
pt3dadd(399.5, -184, -212, 1.1)
pt3dadd(404, -192, -206, 0.8)
pt3dadd(408.5, -199, -222.5, 0.6)
pt3dadd(413, -206, -227.5, 0.9)
pt3dadd(417.5, -214, -229.5, 0.7)
pt3dadd(420.5, -224, -232, 1.1)
pt3dadd(423.5, -231, -231, 1.3)
pt3dadd(428, -238, -250, 0.8)
pt3dadd(430, -247.5, -249, 0.7)
pt3dadd(435, -255, -251.5, 0.8)
pt3dadd(438.5, -262.5, -253, 0.9)
pt3dadd(442, -271, -255.5, 1.3)
pt3dadd(445, -280, -260.5, 0.6)
pt3dadd(447, -288, -262, 1.3)
}
dend[322] {pt3dclear()
pt3dadd(389, -162.5, -203.5, 3.4)
pt3dadd(390, -171.5, -212, 3.7)
pt3dadd(390, -184.5, -262, 4.7)
pt3dadd(395.5, -190, -274, 4)
pt3dadd(400, -198, -276.5, 3.7)
pt3dadd(390.5, -202.5, -279, 3.9)
pt3dadd(392, -212.5, -291, 3.4)
pt3dadd(391, -222, -313, 3.8)
pt3dadd(391, -226, -312, 3.7)
pt3dadd(389.5, -237, -318, 2.1)
pt3dadd(383.5, -242.5, -327.5, 1.7)
pt3dadd(375.5, -247, -329.5, 2)
pt3dadd(370, -257, -336.5, 4)
pt3dadd(359.5, -257, -345.5, 1.5)
pt3dadd(349, -255, -356, 1.4)
pt3dadd(344, -249.5, -361, 1.6)
pt3dadd(336.5, -251, -362, 1.8)
pt3dadd(330, -257, -362.5, 1.8)
pt3dadd(323.5, -260.5, -367.5, 2)
pt3dadd(317, -264, -367.5, 1.2)
pt3dadd(310.5, -267.5, -368, 1.4)
pt3dadd(303.5, -270.5, -378, 1.3)
pt3dadd(293.5, -274, -374.5, 2)
pt3dadd(284.5, -276, -375, 2.8)
pt3dadd(276, -279, -375.5, 2.8)
pt3dadd(269, -282.5, -376, 1.9)
pt3dadd(258, -284.5, -376.5, 1.8)
pt3dadd(250, -287, -386.5, 3.7)
pt3dadd(244.5, -294, -378.5, 2.2)
pt3dadd(239, -299, -383.5, 2.8)
pt3dadd(235.5, -306, -384, 2.3)
pt3dadd(229.5, -311.5, -385, 1.3)
pt3dadd(223, -316.5, -395, 1.6)
pt3dadd(214, -321, -387, 1.5)
pt3dadd(204, -324, -397, 1.3)
pt3dadd(194, -328.5, -412, 1.2)
pt3dadd(190.5, -336, -412.5, 2.2)
pt3dadd(184.5, -342, -413, 0.8)
pt3dadd(177.5, -345, -409.5, 2.6)
pt3dadd(171, -350.5, -418.5, 0.9)
pt3dadd(165, -354.5, -419, 0.7)
pt3dadd(158, -358, -415.5, 1.6)
pt3dadd(151, -362, -421, 1.1)
pt3dadd(143, -366.5, -421.5, 1.1)
pt3dadd(136.5, -371, -426.5, 1.1)
pt3dadd(125, -374.5, -428, 1.1)
pt3dadd(116, -375.5, -424, 1.7)
pt3dadd(106.5, -377, -430, 1.1)
pt3dadd(96, -378.5, -452, 1.9)
pt3dadd(89, -382, -440.5, 3)
pt3dadd(78.5, -386, -450.5, 1.1)
pt3dadd(71, -390.5, -455, 2.1)
pt3dadd(67, -397, -460.5, 0.9)
pt3dadd(61, -396, -462, 1.4)
}
dend[323] {pt3dclear()
pt3dadd(132, -63, -6.5, 9.9)
pt3dadd(136, -69.5, -6.5, 11.6)
pt3dadd(141.5, -77, -8.5, 8.9)
pt3dadd(145.5, -84, -3, 12.4)
}
dend[324] {pt3dclear()
pt3dadd(145.5, -84, -3, 12.4)
pt3dadd(140, -92, -4.5, 4.1)
pt3dadd(136, -104, -12.5, 4.6)
pt3dadd(132, -112.5, -15, 4.6)
pt3dadd(127.5, -122, -18, 5)
pt3dadd(122.5, -130, -20.5, 5)
pt3dadd(118, -135.5, -25, 5)
pt3dadd(111.5, -141.5, -20, 4.3)
pt3dadd(109, -150, -28, 3.8)
pt3dadd(106.5, -157.5, -25.5, 4)
pt3dadd(102.5, -167.5, -25.5, 3.7)
pt3dadd(100.5, -178, -28.5, 4.1)
pt3dadd(97, -185.5, -28.5, 3.2)
pt3dadd(93, -194.5, -29, 3.8)
pt3dadd(88.5, -203.5, -31.5, 2.8)
pt3dadd(87.5, -213, -31.5, 4)
pt3dadd(83.5, -219.5, -32, 3.4)
pt3dadd(81, -227, -29.5, 4)
pt3dadd(78.5, -237.5, -26.5, 4.1)
pt3dadd(77, -246, -27, 4.4)
pt3dadd(75.5, -255, -27, 3.7)
pt3dadd(75.5, -266.5, -30, 3.5)
pt3dadd(75, -270.5, -25, 3.5)
pt3dadd(74, -281.5, -25, 3)
pt3dadd(72, -288, -25, 2.8)
pt3dadd(69, -296, -22.5, 4.4)
pt3dadd(67, -304.5, -25, 3.7)
pt3dadd(63.5, -312, -10.5, 4.8)
}
dend[325] {pt3dclear()
pt3dadd(63.5, -312, -10.5, 4.8)
}
}
proc shape3d_35() {
dend[325] { pt3dadd(58.5, -318.5, -8, 2.5)
pt3dadd(55, -325, -0.5, 3)
pt3dadd(57, -334.5, 7.5, 2.3)
pt3dadd(57, -344.5, 25, 2.4)
pt3dadd(60, -351.5, 38, 1.5)
pt3dadd(53.5, -357, 48.5, 2.2)
pt3dadd(49, -362.5, 53.5, 2)
pt3dadd(41, -365, 63, 2.6)
pt3dadd(37.5, -372.5, 72, 2.6)
pt3dadd(32, -377.5, 73.5, 1.4)
pt3dadd(28, -377.5, 75, 1.4)
pt3dadd(21, -384, 87, 1.9)
pt3dadd(12, -385, 86.5, 2)
pt3dadd(0, -390, 93.5, 1.9)
pt3dadd(-6, -396, 100, 1.9)
pt3dadd(-12.5, -403.5, 104, 1.3)
pt3dadd(-16.5, -411, 103, 1.5)
pt3dadd(-24, -414, 104, 1.4)
pt3dadd(-29, -419.5, 107.5, 2.3)
pt3dadd(-36, -422.5, 111.5, 1.7)
pt3dadd(-39.5, -430, 107.5, 1.7)
pt3dadd(-43.5, -436, 120, 1.2)
pt3dadd(-49, -440.5, 121.5, 1.2)
pt3dadd(-55.5, -446, 122.5, 1.6)
pt3dadd(-64, -450.5, 129.5, 1.8)
pt3dadd(-66, -451, 125, 1.7)
pt3dadd(-71, -456.5, 128, 1.6)
pt3dadd(-77.5, -461.5, 143, 1.3)
pt3dadd(-81, -468, 143.5, 1.5)
pt3dadd(-83.5, -477.5, 150.5, 1.6)
pt3dadd(-87.5, -485.5, 161.5, 2.1)
pt3dadd(-90, -494.5, 160.5, 1.3)
pt3dadd(-94, -500.5, 167.5, 1)
pt3dadd(-100, -505, 174, 1.5)
pt3dadd(-102, -507, 175, 1.9)
pt3dadd(-106.5, -513, 174, 1.2)
pt3dadd(-116, -515, 179.5, 1)
pt3dadd(-122, -519, 182.5, 1.3)
pt3dadd(-121, -528.5, 190.5, 0.9)
pt3dadd(-126.5, -533, 197, 0.6)
pt3dadd(-130, -541, 203, 1.4)
pt3dadd(-136, -546, 204, 1.7)
pt3dadd(-142.5, -551.5, 209.5, 1.7)
pt3dadd(-146, -558, 211, 0.8)
pt3dadd(-153, -563, 216.5, 0.8)
pt3dadd(-161, -565, 220, 2)
pt3dadd(-165, -573, 221.5, 0.9)
pt3dadd(-168, -578.5, 225, 0.9)
}
dend[326] {pt3dclear()
pt3dadd(63.5, -312, -10.5, 4.8)
pt3dadd(65.5, -320.5, -20, 2.3)
pt3dadd(65.5, -325, -25, 2.5)
pt3dadd(57, -323, -21.5, 3.7)
pt3dadd(55, -331, -23, 3)
pt3dadd(63, -333, -31, 3.4)
pt3dadd(60, -343, -38.5, 3)
pt3dadd(51.5, -347.5, -38, 3.2)
pt3dadd(46, -352, -42, 3.2)
pt3dadd(42, -361, -42, 3.5)
pt3dadd(40, -371.5, -47, 3.7)
pt3dadd(41, -381.5, -51.5, 3.9)
pt3dadd(40.5, -391, -53.5, 2.3)
pt3dadd(38, -400.5, -58.5, 3.1)
pt3dadd(36.5, -411, -61, 3.4)
pt3dadd(40.5, -420, -63, 3.2)
pt3dadd(44.5, -426.5, -64.5, 2.5)
pt3dadd(46, -433, -75, 2.5)
pt3dadd(46.5, -442.5, -77, 2.4)
pt3dadd(50, -449, -78, 3)
pt3dadd(56, -453.5, -87, 2.1)
pt3dadd(51.5, -461, -93.5, 2.2)
pt3dadd(51, -471, -95.5, 3)
pt3dadd(52, -481, -94.5, 3.4)
pt3dadd(52, -492, -102.5, 1.7)
pt3dadd(48, -499, -103.5, 2.5)
pt3dadd(43, -508, -108, 2.6)
pt3dadd(40, -517.5, -107, 3.1)
pt3dadd(38.5, -522, -108, 4.6)
}
dend[327] {pt3dclear()
pt3dadd(38.5, -522, -108, 4.6)
pt3dadd(29.5, -528, -107, 1.4)
pt3dadd(23.5, -534, -106, 1.1)
pt3dadd(18.5, -540.5, -102.5, 1.1)
pt3dadd(14.5, -548.5, -95.5, 1.1)
pt3dadd(8.5, -557, -92, 1)
pt3dadd(4.5, -564.5, -97.5, 1.4)
pt3dadd(2.5, -574.5, -100, 1.1)
pt3dadd(1, -584, -92.5, 1.2)
pt3dadd(1, -594.5, -98, 0.8)
pt3dadd(0.5, -604.5, -87.5, 1.3)
pt3dadd(-1, -613, -86.5, 1.5)
pt3dadd(-1.5, -623.5, -92, 2)
pt3dadd(-4, -633.5, -94.5, 1)
pt3dadd(-7, -642, -91, 0.8)
pt3dadd(-4.5, -652, -86.5, 1.7)
pt3dadd(-6, -661, -86, 1.3)
pt3dadd(-11, -667.5, -91.5, 1)
pt3dadd(-19, -673.5, -81, 1.2)
pt3dadd(-24.5, -679.5, -80.5, 2.2)
pt3dadd(-30, -685.5, -79.5, 1.9)
pt3dadd(-32.5, -695, -78, 1.4)
pt3dadd(-37.5, -695, -75, 1.3)
}
dend[328] {pt3dclear()
pt3dadd(38.5, -522, -108, 4.6)
pt3dadd(39.5, -531.5, -112.5, 2.8)
pt3dadd(44.5, -539, -114, 2.6)
pt3dadd(48.5, -544.5, -125, 2.6)
pt3dadd(48, -555.5, -121.5, 1.5)
pt3dadd(47, -564.5, -127.5, 1.5)
pt3dadd(47, -574.5, -133.5, 1.5)
pt3dadd(44.5, -584, -139.5, 1.3)
pt3dadd(40, -592, -127, 1.6)
pt3dadd(39.5, -602.5, -133, 1.6)
pt3dadd(36.5, -612.5, -130, 1.1)
pt3dadd(31, -619, -130, 2.1)
pt3dadd(29.5, -627.5, -123.5, 2.2)
pt3dadd(24.5, -636, -123.5, 1.5)
pt3dadd(22, -647, -120, 1.6)
pt3dadd(25, -656.5, -129.5, 1.3)
pt3dadd(27, -668, -132.5, 2.1)
pt3dadd(28.5, -679.5, -135, 1.1)
pt3dadd(28.5, -690, -135, 2.6)
pt3dadd(27.5, -700.5, -129, 1.7)
pt3dadd(28, -711, -129, 2)
pt3dadd(28.5, -720.5, -132, 1.6)
pt3dadd(30.5, -731.5, -131.5, 2)
pt3dadd(31.5, -741.5, -131.5, 1.8)
pt3dadd(32, -751, -128.5, 1.3)
pt3dadd(29, -758.5, -128.5, 1.1)
pt3dadd(30, -768, -125, 0.8)
pt3dadd(29.5, -770.5, -125, 0.8)
pt3dadd(26.5, -779.5, -122, 0.8)
pt3dadd(24.5, -788, -122, 2.1)
pt3dadd(23.5, -797, -126, 2)
pt3dadd(22.5, -808, -117, 1.8)
pt3dadd(25.5, -816, -117, 1.3)
pt3dadd(29.5, -823, -117.5, 2.3)
pt3dadd(24, -830, -114.5, 1.6)
pt3dadd(18.5, -836, -115, 1.6)
pt3dadd(12.5, -841.5, -115, 1.9)
pt3dadd(9, -849, -118.5, 1.3)
pt3dadd(4, -856.5, -112.5, 1.7)
pt3dadd(-1.5, -862.5, -119, 1.5)
pt3dadd(-6.5, -867.5, -113, 2)
pt3dadd(-12, -874, -120, 1.4)
pt3dadd(-15.5, -881, -113.5, 2.6)
pt3dadd(-19.5, -888, -126.5, 2)
pt3dadd(-23, -894.5, -127, 1.3)
pt3dadd(-28, -901, -130.5, 1.2)
pt3dadd(-33, -908.5, -125, 1.1)
pt3dadd(-36, -917.5, -125.5, 0.9)
pt3dadd(-37.5, -927, -129, 1)
pt3dadd(-44, -933.5, -132.5, 0.9)
pt3dadd(-45.5, -944.5, -133, 0.5)
pt3dadd(-53, -947.5, -127.5, 0.9)
pt3dadd(-59, -946.5, -125, 1.5)
pt3dadd(-66.5, -950.5, -125.5, 1.1)
pt3dadd(-67.5, -961.5, -122.5, 0.7)
pt3dadd(-70, -969, -117, 0.8)
pt3dadd(-74.5, -976.5, -123.5, 0.9)
pt3dadd(-79, -983.5, -111.5, 1)
pt3dadd(-87.5, -985, -109, 1.7)
pt3dadd(-92, -992.5, -106.5, 1.3)
pt3dadd(-93.5, -1001, -107, 1)
pt3dadd(-95.5, -1010.5, -110.5, 1.1)
pt3dadd(-94, -1021.5, -111, 0.8)
pt3dadd(-93, -1030.5, -112, 2.8)
pt3dadd(-94.5, -1035, -125, 1)
pt3dadd(-90, -1040.5, -133, 0.8)
pt3dadd(-84.5, -1046.5, -154, 0.9)
pt3dadd(-82.5, -1042, -175, 1.1)
}
dend[329] {pt3dclear()
pt3dadd(145.5, -84, -3, 12.4)
pt3dadd(154, -89.5, -5, 6.2)
pt3dadd(157.5, -96, -5, 6.4)
pt3dadd(164.5, -101.5, -5, 7.7)
pt3dadd(171, -109.5, -3, 10)
pt3dadd(173.5, -114, -5, 11)
}
dend[330] {pt3dclear()
pt3dadd(173.5, -114, -5, 11)
pt3dadd(182, -118.5, -6.5, 6.9)
pt3dadd(188, -123.5, -6.5, 6.1)
pt3dadd(194, -128, -0.5, 5.2)
pt3dadd(201.5, -133.5, -0.5, 5.6)
pt3dadd(209.5, -137.5, -2.5, 5.5)
pt3dadd(215.5, -142.5, 1, 6.6)
pt3dadd(223, -147.5, 1, 6.3)
pt3dadd(229, -152, -0.5, 5.9)
pt3dadd(237, -158, 1, 6)
pt3dadd(245.5, -163, 3, 4.7)
pt3dadd(254.5, -167.5, 5, 5)
pt3dadd(263.5, -174.5, 3, 5.5)
pt3dadd(272.5, -179.5, 1.5, 4.8)
pt3dadd(279.5, -187, 3.5, 5.1)
pt3dadd(284, -192.5, 3.5, 7.2)
pt3dadd(289, -199, -2, 7.7)
pt3dadd(294.5, -204.5, 0, 6)
pt3dadd(300, -210.5, 0, 6.4)
pt3dadd(306, -215.5, -2, 6.9)
pt3dadd(311, -220.5, 0, 8.1)
pt3dadd(317.5, -226, -2, 7.9)
pt3dadd(322.5, -232.5, -2, 7)
pt3dadd(328.5, -242.5, 5.5, 8.7)
pt3dadd(335, -252, 3, 8.5)
pt3dadd(341, -258.5, 2, 7.9)
}
}
proc shape3d_36() {
dend[330] { pt3dadd(345.5, -268, 2, 7.3)
pt3dadd(351, -274.5, 0, 4.6)
pt3dadd(356, -279.5, 0, 7)
pt3dadd(364, -286, 0, 8.2)
pt3dadd(373, -291.5, 0, 9.2)
}
dend[331] {pt3dclear()
pt3dadd(373, -291.5, 0, 9.2)
pt3dadd(373.5, -301, 3, 0.4)
pt3dadd(375, -310.5, 3.5, 0.7)
pt3dadd(376, -321.5, 6, 0.4)
pt3dadd(380.5, -329.5, 5, 0.3)
pt3dadd(384, -339.5, 6, 0.4)
pt3dadd(387, -347.5, 6, 0.2)
pt3dadd(388.5, -357, 9, 0.7)
pt3dadd(390.5, -367, 7.5, 0.8)
pt3dadd(392, -378, 12, 1.5)
pt3dadd(393, -387, 15, 0.4)
pt3dadd(395, -397, 15.5, 0.6)
pt3dadd(397.5, -406, 22, 2.3)
pt3dadd(400, -413.5, 22.5, 0.4)
pt3dadd(398, -413.5, 25, 0.8)
pt3dadd(408.5, -416, 31, 2.3)
pt3dadd(415, -419.5, 36.5, 2.3)
pt3dadd(426, -420.5, 43, 2.2)
pt3dadd(431.5, -425.5, 60.5, 2.2)
pt3dadd(437, -430, 66, 2.4)
pt3dadd(439, -432, 75, 3.2)
pt3dadd(442.5, -440.5, 76.5, 2.2)
pt3dadd(448, -448.5, 80.5, 2.7)
pt3dadd(452.5, -455, 82.5, 2.3)
pt3dadd(457.5, -460, 89.5, 3.2)
pt3dadd(464, -463.5, 96, 2.8)
pt3dadd(471, -468.5, 97.5, 3.2)
pt3dadd(479.5, -472, 98.5, 1.8)
pt3dadd(484.5, -477.5, 100.5, 2.3)
pt3dadd(490, -483, 102.5, 2.5)
pt3dadd(494, -490, 107, 2.4)
pt3dadd(497, -497, 110.5, 2.8)
pt3dadd(499, -508.5, 115.5, 2.8)
pt3dadd(500, -518.5, 115.5, 2.7)
pt3dadd(501, -528.5, 120.5, 1.8)
pt3dadd(503.5, -538, 125, 2.8)
pt3dadd(507.5, -547, 124, 2)
pt3dadd(510.5, -554, 125, 1.6)
pt3dadd(514.5, -560.5, 130.5, 2.3)
pt3dadd(517, -569.5, 131.5, 1.8)
pt3dadd(520.5, -578.5, 137, 1.6)
pt3dadd(522.5, -588, 138.5, 1.7)
pt3dadd(525, -606, 149.5, 1.8)
pt3dadd(527, -615.5, 152, 1.7)
pt3dadd(529.5, -624, 153, 1.5)
pt3dadd(532, -631.5, 154.5, 1.5)
pt3dadd(536, -641, 152.5, 1.5)
pt3dadd(540, -648, 157.5, 2)
pt3dadd(543.5, -658.5, 159, 1.5)
pt3dadd(546.5, -666.5, 162.5, 1.5)
pt3dadd(548.5, -675, 163.5, 1.1)
pt3dadd(553.5, -682.5, 167.5, 1.3)
pt3dadd(555.5, -691.5, 171, 1)
pt3dadd(558.5, -699.5, 174.5, 1.5)
pt3dadd(562.5, -706.5, 175.5, 1.1)
pt3dadd(566.5, -712.5, 175, 1.5)
pt3dadd(571, -718.5, 183, 1)
pt3dadd(574, -727.5, 182.5, 1.3)
pt3dadd(577, -735.5, 183, 1.8)
pt3dadd(581, -742, 188, 1.2)
pt3dadd(585, -750.5, 190, 1.6)
pt3dadd(587, -760, 196.5, 1.4)
pt3dadd(588, -771.5, 199, 1.4)
pt3dadd(592.5, -779, 205, 0.9)
pt3dadd(596.5, -785.5, 206.5, 1.5)
pt3dadd(600.5, -792.5, 208.5, 1.9)
pt3dadd(604.5, -799, 210, 0.9)
pt3dadd(606, -807.5, 215.5, 1)
pt3dadd(608.5, -815, 217.5, 0.9)
pt3dadd(612.5, -822, 219.5, 1.2)
pt3dadd(616.5, -828, 225, 1)
pt3dadd(619, -827, 225, 0.8)
pt3dadd(627, -831.5, 226.5, 1.3)
pt3dadd(634, -837, 223.5, 1.1)
pt3dadd(643.5, -839.5, 220.5, 0.8)
pt3dadd(651.5, -842.5, 221, 0.8)
pt3dadd(659.5, -845.5, 225, 1.2)
pt3dadd(665.5, -840, 229.5, 1.2)
pt3dadd(669.5, -831.5, 229.5, 1.1)
pt3dadd(675.5, -826, 226.5, 0.9)
pt3dadd(679.5, -823.5, 225, 0.9)
pt3dadd(680.5, -814.5, 228.5, 0.9)
pt3dadd(687.5, -811, 225, 0.8)
pt3dadd(697.5, -811.5, 227, 1.6)
pt3dadd(705, -814.5, 223, 0.8)
pt3dadd(714, -818.5, 225, 0.9)
pt3dadd(721.5, -821.5, 223, 1.1)
pt3dadd(723.5, -822, 225, 1.4)
pt3dadd(732, -823.5, 225, 0.7)
pt3dadd(737.5, -819, 220.5, 0.8)
pt3dadd(740.5, -810, 225, 0.7)
pt3dadd(744, -803.5, 226.5, 0.7)
pt3dadd(749.5, -798, 225, 0.8)
pt3dadd(757.5, -800, 227.5, 0.8)
pt3dadd(764, -804, 225.5, 1)
pt3dadd(771.5, -807, 225.5, 0.9)
pt3dadd(768, -814, 225.5, 0.9)
pt3dadd(767, -817, 225, 1)
pt3dadd(762.5, -825, 225, 1)
pt3dadd(763, -834.5, 223, 1)
pt3dadd(765.5, -843.5, 225, 0.8)
}
dend[332] {pt3dclear()
pt3dadd(373, -291.5, 0, 9.2)
pt3dadd(382, -294.5, 0, 7.3)
pt3dadd(391, -301.5, -1.5, 7.1)
pt3dadd(399.5, -308.5, -3.5, 5.8)
pt3dadd(406.5, -316.5, -7.5, 9.3)
}
dend[333] {pt3dclear()
pt3dadd(406.5, -316.5, -7.5, 9.3)
pt3dadd(409.5, -326, -1, 4.5)
pt3dadd(413, -333.5, -3, 4.9)
pt3dadd(417, -341.5, -3, 4.2)
pt3dadd(422.5, -349, 2.5, 4.6)
pt3dadd(426.5, -355.5, -1, 4.6)
pt3dadd(431, -362, -1, 4.5)
pt3dadd(436.5, -367, -1, 5.1)
pt3dadd(443.5, -373.5, -1, 5.1)
pt3dadd(449.5, -377.5, 0.5, 6.4)
pt3dadd(455.5, -385, 0.5, 5)
pt3dadd(460, -390.5, 0.5, 3.9)
pt3dadd(464.5, -396, 2.5, 4.4)
pt3dadd(470.5, -402.5, 0.5, 3.4)
pt3dadd(475, -409, 2.5, 4.6)
pt3dadd(478.5, -417, 0.5, 3.8)
pt3dadd(484.5, -424, 2.5, 4.1)
pt3dadd(488.5, -433.5, -1, 4.1)
pt3dadd(492.5, -439.5, -1, 4.5)
pt3dadd(498, -447.5, -1, 5)
pt3dadd(499.5, -449, -1, 6.5)
}
dend[334] {pt3dclear()
pt3dadd(499.5, -449, -1, 6.5)
pt3dadd(500, -461, 4.5, 3.7)
pt3dadd(504, -467, 2.5, 3.7)
pt3dadd(507.5, -479, 2.5, 4.1)
pt3dadd(509, -489.5, 6.5, 5.1)
pt3dadd(512.5, -497.5, 6.5, 3.3)
pt3dadd(514.5, -507, 4.5, 2.4)
pt3dadd(518.5, -516, 2.5, 3)
pt3dadd(524, -521.5, 2.5, 2.8)
pt3dadd(526, -525.5, 2.5, 5.1)
}
dend[335] {pt3dclear()
pt3dadd(526, -525.5, 2.5, 5.1)
pt3dadd(535, -528, 8.5, 0.8)
pt3dadd(543.5, -530, 8, 0.8)
pt3dadd(552.5, -532.5, 12, 2)
pt3dadd(557, -538.5, 11, 1.2)
pt3dadd(564, -543.5, 12.5, 1)
pt3dadd(572, -547, 13.5, 1.2)
pt3dadd(578, -551, 15, 1.3)
pt3dadd(584.5, -555, 16, 0.8)
pt3dadd(589.5, -560, 17.5, 0.4)
pt3dadd(596.5, -564, 18.5, 1.5)
pt3dadd(605.5, -566, 18, 3.7)
pt3dadd(616, -573, 21, 0.4)
pt3dadd(620.5, -579.5, 22.5, 0.5)
pt3dadd(622, -580.5, 25, 0.6)
pt3dadd(634, -584, 26.5, 0.8)
pt3dadd(641, -584.5, 25, 0.8)
}
dend[336] {pt3dclear()
pt3dadd(526, -525.5, 2.5, 5.1)
pt3dadd(529.5, -535.5, 7.5, 3.7)
pt3dadd(532, -544.5, 8, 3.4)
pt3dadd(536, -554.5, 4.5, 3)
pt3dadd(538, -564, 5, 3.4)
pt3dadd(539.5, -574.5, 7.5, 3.5)
pt3dadd(542, -584.5, 10, 5)
pt3dadd(543, -595, 8.5, 2.2)
pt3dadd(546.5, -604.5, 7, 3.7)
pt3dadd(550, -613.5, 7.5, 3.2)
pt3dadd(553.5, -621, 8, 3.1)
pt3dadd(553.5, -631.5, 8.5, 2.6)
pt3dadd(556.5, -638.5, 7, 2.5)
pt3dadd(559.5, -646, 7.5, 3.2)
pt3dadd(562.5, -654, 9.5, 3.4)
pt3dadd(566, -662, 10, 2.3)
pt3dadd(569.5, -669, 10.5, 1.7)
pt3dadd(573, -678.5, 11, 2.5)
pt3dadd(574.5, -688.5, 11.5, 2)
pt3dadd(577.5, -695.5, 12, 3.2)
pt3dadd(579, -704, 16.5, 2.3)
pt3dadd(581, -712, 17, 2.1)
pt3dadd(584, -721.5, 11.5, 2)
pt3dadd(587, -733.5, 12, 2.6)
pt3dadd(591, -743.5, 15, 1.7)
pt3dadd(597.5, -750.5, 15, 2.3)
pt3dadd(600.5, -757.5, 17.5, 2)
pt3dadd(604.5, -765.5, 20, 2)
pt3dadd(605.5, -775, 20.5, 2.6)
pt3dadd(608, -782.5, 21, 2)
pt3dadd(610.5, -794, 19.5, 2.1)
pt3dadd(610.5, -804, 22, 2.1)
pt3dadd(611.5, -813, 22.5, 1.7)
pt3dadd(615.5, -821, 23, 2.2)
pt3dadd(618.5, -828.5, 21, 2.5)
pt3dadd(622.5, -834.5, 21.5, 2.4)
pt3dadd(624.5, -843, 24, 1.6)
pt3dadd(630, -847, 25, 1.9)
pt3dadd(634, -854, 24, 1.7)
pt3dadd(640, -860.5, 15.5, 1.5)
pt3dadd(648.5, -863, 15.5, 1.6)
}
}
proc shape3d_37() {
dend[336] { pt3dadd(657, -866, 14, 1.1)
pt3dadd(665.5, -867.5, 11.5, 1.3)
pt3dadd(680.5, -872, 5.5, 1.7)
pt3dadd(686.5, -878, 3, 1.9)
pt3dadd(693.5, -882, 2.5, 1.7)
pt3dadd(701, -885.5, -8, 1)
pt3dadd(707, -890.5, -16.5, 1.5)
pt3dadd(710.5, -897.5, -24, 1)
pt3dadd(713, -898.5, -25, 1)
pt3dadd(717.5, -905, -29, 1.8)
pt3dadd(722.5, -910, -29.5, 1.1)
pt3dadd(722.5, -920.5, -31, 2.1)
pt3dadd(725.5, -930, -30, 1.4)
pt3dadd(732.5, -934, -37.5, 1.7)
pt3dadd(738, -938.5, -38.5, 2)
pt3dadd(745.5, -941.5, -40, 1.4)
pt3dadd(753.5, -944.5, -47.5, 0.9)
pt3dadd(761.5, -942.5, -43.5, 1.1)
pt3dadd(771, -944, -45.5, 1.1)
pt3dadd(780, -945, -49.5, 0.9)
pt3dadd(789, -943, -46.5, 1.6)
pt3dadd(795.5, -939, -55, 1.2)
pt3dadd(803.5, -933.5, -64, 1.7)
pt3dadd(812, -929, -65, 1.3)
pt3dadd(820.5, -933, -72.5, 1.3)
pt3dadd(828, -938, -75, 1.1)
pt3dadd(836.5, -942, -79.5, 1.8)
pt3dadd(846.5, -942, -81.5, 1.1)
pt3dadd(853.5, -945, -86, 1.2)
pt3dadd(863, -944, -88.5, 1.3)
pt3dadd(871.5, -942.5, -97, 1.3)
pt3dadd(879.5, -940, -104, 0.8)
pt3dadd(890, -938.5, -109, 1.1)
pt3dadd(899.5, -941, -117, 1.1)
pt3dadd(910.5, -939, -125, 1)
pt3dadd(919.5, -934, -118, 0.8)
pt3dadd(925, -929.5, -125.5, 0.8)
pt3dadd(930, -922, -125, 0.9)
pt3dadd(936.5, -917.5, -125, 1)
pt3dadd(945, -915, -128.5, 1.1)
pt3dadd(953, -911.5, -128.5, 0.8)
pt3dadd(963.5, -910, -125, 0.9)
pt3dadd(971.5, -912.5, -128.5, 0.6)
pt3dadd(982, -913.5, -125, 1.2)
pt3dadd(989, -917, -125, 0.8)
pt3dadd(1001, -919.5, -128.5, 0.7)
pt3dadd(1005.5, -920, -125, 1.2)
pt3dadd(1014, -917, -131, 0.6)
pt3dadd(1023.5, -914.5, -127, 0.7)
pt3dadd(1031, -912, -130.5, 0.8)
pt3dadd(1037.5, -905.5, -120.5, 0.7)
pt3dadd(1042, -899.5, -120.5, 0.7)
pt3dadd(1048, -895, -120, 0.8)
pt3dadd(1055.5, -890.5, -117, 1)
pt3dadd(1066.5, -891, -119.5, 0.8)
pt3dadd(1077.5, -889.5, -119.5, 0.7)
pt3dadd(1087, -889, -122, 0.9)
pt3dadd(1095, -892, -122, 1.4)
pt3dadd(1105.5, -895.5, -125, 0.8)
pt3dadd(1108, -895.5, -125, 0.8)
}
dend[337] {pt3dclear()
pt3dadd(499.5, -449, -1, 6.5)
pt3dadd(510.5, -447.5, -5, 2.3)
pt3dadd(519, -443.5, 2.5, 1.1)
pt3dadd(528.5, -443, 1, 2.2)
pt3dadd(539, -442, 7, 1.7)
pt3dadd(548, -443.5, 5, 2.8)
pt3dadd(558, -445.5, 5, 2.6)
pt3dadd(567, -449.5, 5, 1.8)
pt3dadd(586.5, -450, 1, 2.5)
pt3dadd(595, -453.5, -0.5, 2.3)
pt3dadd(601.5, -458, 3, 2.2)
pt3dadd(610, -460.5, 3, 1.2)
pt3dadd(617.5, -463.5, 1, 3.7)
pt3dadd(625, -466.5, -0.5, 2)
pt3dadd(635, -470, -0.5, 1.7)
pt3dadd(644, -473, 0, 1.7)
pt3dadd(653, -474.5, 0, 1.3)
pt3dadd(664.5, -478, 1.5, 1.9)
pt3dadd(674.5, -478.5, 1.5, 1.9)
pt3dadd(681.5, -483, 1.5, 0.9)
pt3dadd(691.5, -486.5, 3.5, 2.3)
pt3dadd(699.5, -489.5, 0, 1.2)
pt3dadd(708.5, -491, 0, 2.4)
pt3dadd(715.5, -494, 1.5, 1.8)
pt3dadd(721.5, -498.5, 3.5, 3.6)
}
dend[338] {pt3dclear()
pt3dadd(721.5, -498.5, 3.5, 3.6)
pt3dadd(724.5, -506.5, 10, 0.6)
pt3dadd(720.5, -513.5, 25, 0.9)
}
dend[339] {pt3dclear()
pt3dadd(721.5, -498.5, 3.5, 3.6)
pt3dadd(731.5, -498, 5.5, 2.5)
pt3dadd(739.5, -500, 7, 1.3)
pt3dadd(744.5, -506.5, 7, 1.1)
pt3dadd(751, -510.5, 8.5, 1.3)
pt3dadd(756.5, -517, 10, 0.8)
pt3dadd(761.5, -523, 14, 1.2)
pt3dadd(771, -524, 16, 0.9)
pt3dadd(779, -526.5, 15.5, 0.8)
pt3dadd(782.5, -533, 17, 0.8)
pt3dadd(788, -538, 24.5, 1.2)
pt3dadd(794, -543.5, 25, 0.8)
pt3dadd(801.5, -546.5, 22.5, 0.8)
pt3dadd(810, -548.5, 28.5, 1.4)
pt3dadd(817, -551.5, 23, 0.9)
pt3dadd(826, -553, 26.5, 0.7)
pt3dadd(837.5, -552.5, 24, 1.5)
pt3dadd(844.5, -547.5, 24.5, 0.9)
pt3dadd(853, -550, 25, 1.4)
pt3dadd(861.5, -550.5, 25, 1.8)
pt3dadd(871, -549.5, 30, 0.7)
pt3dadd(880.5, -549, 22.5, 1)
pt3dadd(887, -546.5, 25, 0.9)
}
dend[340] {pt3dclear()
pt3dadd(406.5, -316.5, -7.5, 9.3)
pt3dadd(416.5, -315.5, -3, 3.4)
pt3dadd(426, -315, 0.5, 2.4)
pt3dadd(436.5, -316, 2.5, 2.5)
pt3dadd(446, -317.5, 6.5, 1.8)
pt3dadd(456, -322.5, -0.5, 3.1)
pt3dadd(468.5, -322.5, 5, 5)
pt3dadd(479.5, -323.5, 3, 3.5)
pt3dadd(491, -325.5, 5.5, 3.5)
pt3dadd(494, -328, 5.5, 4)
}
dend[341] {pt3dclear()
pt3dadd(494, -328, 5.5, 4)
pt3dadd(493.5, -329.5, 11.5, 1)
}
dend[342] {pt3dclear()
pt3dadd(493.5, -329.5, 11.5, 1)
pt3dadd(503, -331, 21.5, 0.1)
pt3dadd(510, -335.5, 23.5, 0.1)
pt3dadd(511, -334.5, 24, 0.5)
pt3dadd(512.5, -334.5, 25, 0.1)
}
dend[343] {pt3dclear()
pt3dadd(493.5, -329.5, 11.5, 1)
pt3dadd(495, -333.5, 13.5, 1.2)
pt3dadd(495.5, -337.5, 14, 1.4)
}
dend[344] {pt3dclear()
pt3dadd(495.5, -337.5, 14, 1.4)
pt3dadd(495, -345, 14, 1.5)
}
dend[345] {pt3dclear()
pt3dadd(495.5, -337.5, 14, 1.4)
pt3dadd(494, -341.5, 25, 0.1)
}
dend[346] {pt3dclear()
pt3dadd(494, -328, 5.5, 4)
pt3dadd(503.5, -329.5, 7.5, 3)
pt3dadd(513, -331.5, 5.5, 3.2)
pt3dadd(521, -336, 7.5, 2.7)
pt3dadd(533, -338.5, 3.5, 2.2)
pt3dadd(543.5, -339.5, 10, 1.7)
pt3dadd(554.5, -339, 8, 3.7)
pt3dadd(563, -337, 10, 3.1)
pt3dadd(573.5, -336.5, 16, 3.3)
pt3dadd(583.5, -335.5, 12, 2.5)
pt3dadd(594.5, -332.5, 12, 3.4)
pt3dadd(605, -332.5, 14.5, 5)
pt3dadd(617, -333, 10.5, 5)
pt3dadd(626, -334.5, 8.5, 4.3)
pt3dadd(636.5, -336.5, 10.5, 2.6)
pt3dadd(645, -341, 12.5, 1.9)
pt3dadd(651.5, -345.5, 12.5, 2)
}
dend[347] {pt3dclear()
pt3dadd(651.5, -345.5, 12.5, 2)
pt3dadd(651.5, -348.5, 25, 0.8)
}
dend[348] {pt3dclear()
pt3dadd(651.5, -345.5, 12.5, 2)
pt3dadd(660, -349, 15, 1.7)
pt3dadd(666.5, -353.5, 25.5, 2.8)
pt3dadd(669, -353.5, 25, 1.8)
pt3dadd(679, -358, 24.5, 2.5)
pt3dadd(684.5, -363, 24.5, 2.3)
pt3dadd(691.5, -367.5, 27, 3.8)
pt3dadd(700, -370.5, 24, 1.7)
pt3dadd(708, -375, 23.5, 2)
pt3dadd(717, -381, 23.5, 3.8)
pt3dadd(730, -384.5, 23, 1.5)
pt3dadd(740.5, -385.5, 29, 1.8)
pt3dadd(751.5, -388, 28.5, 1.4)
pt3dadd(763, -391.5, 31.5, 1.6)
pt3dadd(774.5, -391.5, 31, 3)
pt3dadd(785.5, -390, 28, 1.1)
pt3dadd(794.5, -391.5, 39, 1.3)
pt3dadd(803, -393, 30, 5.9)
pt3dadd(815.5, -393, 32.5, 1.4)
pt3dadd(827, -395, 32.5, 1.2)
pt3dadd(836, -393, 32, 2.3)
pt3dadd(843.5, -390.5, 29, 5.8)
pt3dadd(853, -390, 32, 0.8)
pt3dadd(864, -389.5, 31.5, 1.2)
pt3dadd(872.5, -388, 36.5, 3.2)
pt3dadd(883.5, -387, 33.5, 1)
pt3dadd(894, -385.5, 30.5, 1.7)
pt3dadd(903, -383.5, 42, 2.4)
pt3dadd(911.5, -381, 41.5, 1.2)
pt3dadd(920.5, -378, 38.5, 1.9)
pt3dadd(930, -376.5, 38.5, 1.5)
pt3dadd(939, -372, 41, 1.1)
pt3dadd(947.5, -366.5, 38, 0.9)
pt3dadd(957.5, -362.5, 34.5, 1)
pt3dadd(964, -356, 29, 2.2)
pt3dadd(968, -349, 28.5, 2.5)
pt3dadd(973.5, -342.5, 28.5, 1.6)
pt3dadd(982, -337.5, 31, 0.8)
pt3dadd(989.5, -334, 28, 0.8)
pt3dadd(998, -331, 25, 1.3)
pt3dadd(1003.5, -328.5, 25, 1.9)
pt3dadd(1011.5, -326, 20.5, 0.6)
pt3dadd(1018, -321.5, 20.5, 0.7)
pt3dadd(1023.5, -326, 16, 0.6)
pt3dadd(1032.5, -328.5, 9.5, 0.9)
pt3dadd(1040.5, -332.5, 9.5, 1.1)
}
}
proc shape3d_38() {
dend[348] { pt3dadd(1048.5, -335, 11, 0.9)
pt3dadd(1054.5, -330.5, 15, 6.3)
pt3dadd(1063.5, -326, 15, 1.1)
pt3dadd(1071, -323, 12.5, 0.6)
pt3dadd(1080, -322, 12, 0.8)
pt3dadd(1086.5, -317, 18, 1.4)
pt3dadd(1093, -312, 15.5, 0.6)
pt3dadd(1103.5, -311.5, 13.5, 0.7)
pt3dadd(1114, -312.5, 15, 0.9)
pt3dadd(1124, -314, 17, 0.9)
pt3dadd(1133.5, -313, 20.5, 1.1)
pt3dadd(1144, -310, 20.5, 0.8)
pt3dadd(1151, -305.5, 18, 0.7)
pt3dadd(1158.5, -303, 14, 0.7)
pt3dadd(1167, -300.5, 11.5, 1.6)
pt3dadd(1174, -297.5, 15.5, 0.5)
pt3dadd(1183, -295.5, 13, 2.2)
pt3dadd(1194, -295.5, 19, 1.4)
pt3dadd(1198.5, -294.5, 18.5, 1)
}
dend[349] {pt3dclear()
pt3dadd(1198.5, -294.5, 18.5, 1)
pt3dadd(1192.5, -290, 22.5, 1.1)
pt3dadd(1190.5, -283, 25, 0.1)
}
dend[350] {pt3dclear()
pt3dadd(1198.5, -294.5, 18.5, 1)
pt3dadd(1200.5, -303.5, 22, 0.2)
pt3dadd(1196, -310, 25, 0.1)
}
dend[351] {pt3dclear()
pt3dadd(173.5, -114, -5, 11)
pt3dadd(171.5, -124, 5.5, 5.5)
pt3dadd(172.5, -135, 10, 5.4)
pt3dadd(175, -142.5, 13, 5.5)
pt3dadd(175.5, -158.5, 25, 6.4)
pt3dadd(175, -168, 30.5, 6.6)
pt3dadd(173, -176.5, 33, 5.7)
pt3dadd(172.5, -186.5, 46, 5.5)
pt3dadd(177.5, -194.5, 46, 5)
pt3dadd(185, -199, 61, 3.7)
pt3dadd(191.5, -200.5, 75, 4.4)
pt3dadd(200, -203.5, 87.5, 4.7)
pt3dadd(207.5, -207.5, 89, 4.7)
pt3dadd(216, -210.5, 93.5, 3.8)
pt3dadd(224.5, -213.5, 92.5, 4.5)
pt3dadd(231.5, -217, 102.5, 4.8)
pt3dadd(238.5, -221, 112.5, 5.2)
pt3dadd(243, -226.5, 114.5, 5.1)
pt3dadd(248, -233.5, 116, 4.5)
pt3dadd(252, -240.5, 122.5, 5.1)
pt3dadd(258.5, -246, 124, 5.7)
pt3dadd(262, -248.5, 125, 5.5)
pt3dadd(268.5, -256, 139.5, 4)
pt3dadd(272, -264, 141.5, 4.5)
pt3dadd(275, -273.5, 152, 4.9)
pt3dadd(279.5, -281, 154, 3.7)
pt3dadd(281.5, -289, 160, 4)
pt3dadd(286.5, -296.5, 175, 4.5)
pt3dadd(290, -306.5, 184, 3.4)
pt3dadd(294.5, -313.5, 185, 3.8)
pt3dadd(298, -320.5, 201, 3.9)
pt3dadd(301, -328, 198.5, 3.9)
pt3dadd(301.5, -337.5, 213.5, 4)
pt3dadd(304.5, -345, 214.5, 3.7)
pt3dadd(306.5, -355, 224, 4.4)
pt3dadd(308.5, -363, 225, 4.4)
pt3dadd(312, -370, 226, 3.1)
pt3dadd(317, -378, 237, 2.9)
pt3dadd(320, -386, 245, 4)
pt3dadd(321.5, -394.5, 253.5, 3.7)
pt3dadd(324, -403.5, 260.5, 3.7)
pt3dadd(325, -414, 271.5, 3)
pt3dadd(330, -417.5, 275, 3.1)
pt3dadd(333, -425.5, 287.5, 3.4)
pt3dadd(333, -434, 308, 3.7)
}
dend[352] {pt3dclear()
pt3dadd(333, -434, 308, 3.7)
pt3dadd(341.5, -436, 314.5, 2.5)
pt3dadd(350, -437.5, 318.5, 2.5)
pt3dadd(353.5, -448, 325, 2.7)
pt3dadd(360, -453, 358.5, 3)
}
dend[353] {pt3dclear()
pt3dadd(360, -453, 358.5, 3)
pt3dadd(369, -451.5, 361.5, 0.8)
pt3dadd(379.5, -454.5, 363, 0.6)
pt3dadd(388, -456.5, 368, 0.5)
pt3dadd(398, -457.5, 369, 0.7)
pt3dadd(407, -460.5, 367, 0.8)
pt3dadd(413.5, -465.5, 379.5, 0.7)
pt3dadd(415.5, -466, 375, 0.7)
pt3dadd(421, -473.5, 372.5, 0.7)
pt3dadd(423, -476.5, 375, 0.9)
}
dend[354] {pt3dclear()
pt3dadd(360, -453, 358.5, 3)
pt3dadd(368.5, -454.5, 369, 2.6)
pt3dadd(371, -457.5, 375, 2.6)
pt3dadd(374, -467.5, 385.5, 2.6)
pt3dadd(381, -471, 392.5, 2)
pt3dadd(378, -478, 409, 2.3)
pt3dadd(385, -474.5, 425, 2.2)
}
dend[355] {pt3dclear()
pt3dadd(333, -434, 308, 3.7)
pt3dadd(334.5, -442.5, 305, 1.8)
pt3dadd(342, -448.5, 313.5, 2.4)
pt3dadd(346, -455, 315, 2)
pt3dadd(347, -465, 319, 1.9)
pt3dadd(347.5, -475.5, 324.5, 2.3)
pt3dadd(346, -484, 328, 1.4)
pt3dadd(338, -486, 322, 3.4)
pt3dadd(330.5, -489, 322, 1.1)
pt3dadd(327.5, -494.5, 325, 1)
}
dend[356] {pt3dclear()
pt3dadd(327.5, -494.5, 325, 1)
pt3dadd(332, -502.5, 327.5, 2.2)
pt3dadd(337.5, -509, 326.5, 1.1)
pt3dadd(342.5, -514.5, 327.5, 1.1)
pt3dadd(349, -519.5, 328, 1.3)
pt3dadd(355, -524.5, 327.5, 0.9)
pt3dadd(360, -530, 328.5, 1.1)
pt3dadd(365, -539, 331, 1.2)
pt3dadd(369, -545, 334, 1.7)
pt3dadd(374, -551.5, 338, 1.8)
pt3dadd(379, -560, 339, 1.2)
pt3dadd(382, -567.5, 340, 1)
pt3dadd(386, -574.5, 341, 1.7)
pt3dadd(388.5, -582, 340.5, 1.3)
pt3dadd(392, -588.5, 347, 1.3)
pt3dadd(397, -593.5, 350, 1.2)
pt3dadd(403, -600.5, 351, 1.1)
pt3dadd(410, -605.5, 354, 0.9)
pt3dadd(415.5, -612.5, 366, 1.7)
pt3dadd(420, -618.5, 365, 1.7)
pt3dadd(426.5, -622.5, 364.5, 1.7)
pt3dadd(434, -628, 360, 1.2)
pt3dadd(440, -633, 360.5, 1)
pt3dadd(448, -637.5, 363.5, 1)
pt3dadd(455.5, -640.5, 364.5, 1)
pt3dadd(465, -646, 360.5, 0.8)
pt3dadd(471.5, -651, 370.5, 1.2)
pt3dadd(479.5, -654.5, 370, 1.1)
pt3dadd(485.5, -657.5, 375, 0.6)
pt3dadd(483.5, -666.5, 383, 1.5)
pt3dadd(484, -678, 381.5, 0.4)
pt3dadd(487, -685, 382.5, 0.5)
pt3dadd(487, -695, 384, 0.8)
pt3dadd(486.5, -705.5, 383, 1)
pt3dadd(484.5, -713.5, 391.5, 0.5)
pt3dadd(481.5, -721.5, 393, 0.8)
pt3dadd(481.5, -731.5, 394, 0.8)
pt3dadd(485, -739, 395, 0.6)
pt3dadd(488.5, -746.5, 398.5, 0.6)
pt3dadd(492, -754, 397, 0.5)
pt3dadd(496.5, -761, 405.5, 0.5)
pt3dadd(501.5, -768, 415, 0.6)
pt3dadd(507.5, -774.5, 422, 0.7)
pt3dadd(512.5, -780.5, 420, 0.5)
pt3dadd(516, -787, 424, 0.7)
pt3dadd(519.5, -790.5, 425, 0.7)
pt3dadd(523.5, -797.5, 434, 0.8)
pt3dadd(527.5, -806.5, 435, 0.7)
pt3dadd(533, -811, 443.5, 1.3)
pt3dadd(537, -818, 445, 0.7)
pt3dadd(543.5, -825, 446, 0.8)
pt3dadd(548.5, -830.5, 455, 0.7)
pt3dadd(554.5, -836, 469.5, 0.8)
pt3dadd(553, -845, 464, 0.7)
pt3dadd(564, -847, 475, 1.2)
pt3dadd(569.5, -851.5, 483.5, 0.8)
pt3dadd(574.5, -858.5, 491.5, 1.1)
pt3dadd(580.5, -864.5, 497, 0.8)
pt3dadd(585.5, -870, 512.5, 0.9)
pt3dadd(589.5, -876, 516.5, 0.8)
pt3dadd(600, -878, 525, 0.7)
}
dend[357] {pt3dclear()
pt3dadd(327.5, -494.5, 325, 1)
pt3dadd(321, -499, 326, 0.9)
pt3dadd(318, -506, 325.5, 0.8)
pt3dadd(313, -512.5, 320.5, 0.8)
pt3dadd(309.5, -520, 321.5, 1.3)
pt3dadd(305, -526, 325, 1.6)
pt3dadd(310, -531, 318.5, 1.3)
pt3dadd(318, -534, 309.5, 0.7)
pt3dadd(325.5, -537.5, 305, 0.6)
pt3dadd(329.5, -543.5, 302.5, 1.2)
pt3dadd(328.5, -552.5, 289, 0.8)
pt3dadd(328.5, -562.5, 292.5, 0.8)
pt3dadd(334, -569.5, 284.5, 0.4)
pt3dadd(331.5, -577.5, 275.5, 0.1)
pt3dadd(329.5, -578.5, 275, 0.5)
}
dend[358] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 7.1)
pt3dadd(5, -7, -7.5, 7.1)
pt3dadd(1, -14, 0, 5.7)
pt3dadd(-2.5, -22, 7, 6.4)
pt3dadd(-7, -31, 17, 7.5)
pt3dadd(-12, -37.5, 22, 6.2)
pt3dadd(-10.5, -46.5, 25, 6.9)
pt3dadd(-7, -55.5, 40, 7.8)
pt3dadd(-5, -64, 57.5, 7.6)
pt3dadd(-3, -73, 64.5, 6.3)
pt3dadd(-1.5, -84, 75, 6.4)
pt3dadd(0.5, -93.5, 88.5, 7.2)
pt3dadd(2, -106, 96.5, 6.3)
pt3dadd(7, -114.5, 104.5, 6.3)
pt3dadd(13, -122, 113.5, 7)
pt3dadd(15.5, -118, 125, 7.3)
pt3dadd(11.5, -122, 147, 5.4)
}
dend[359] {pt3dclear()
pt3dadd(11.5, -122, 147, 5.4)
pt3dadd(16.5, -127.5, 151, 4.6)
pt3dadd(22, -132, 151.5, 6.4)
pt3dadd(25.5, -139.5, 152, 7.2)
pt3dadd(29, -146, 156.5, 7.2)
}
}
proc shape3d_39() {
dend[359] { pt3dadd(30.5, -155.5, 157, 7.3)
pt3dadd(33.5, -163.5, 165.5, 7)
pt3dadd(39.5, -172, 169.5, 6.7)
pt3dadd(42.5, -180.5, 170.5, 6.9)
pt3dadd(42.5, -189, 175, 7.1)
pt3dadd(47, -198, 191.5, 7.5)
pt3dadd(48, -210.5, 195.5, 7.6)
pt3dadd(49, -213, 199, 9.1)
}
dend[360] {pt3dclear()
pt3dadd(49, -213, 199, 9.1)
pt3dadd(51.5, -222.5, 201, 4.3)
pt3dadd(54.5, -231, 199, 4.8)
pt3dadd(58, -237.5, 195, 5.1)
pt3dadd(62, -246, 199, 4.7)
pt3dadd(66.5, -251.5, 197, 4.5)
pt3dadd(69, -262, 196.5, 5.2)
pt3dadd(70, -272, 196.5, 4.6)
pt3dadd(72.5, -279.5, 192.5, 5.7)
pt3dadd(76.5, -287.5, 202.5, 6.1)
pt3dadd(81, -294.5, 198.5, 5.6)
pt3dadd(85, -301.5, 196.5, 5)
pt3dadd(88, -308.5, 196.5, 6.4)
}
dend[361] {pt3dclear()
pt3dadd(88, -308.5, 196.5, 6.4)
pt3dadd(84.5, -318.5, 202, 3.2)
pt3dadd(83, -328.5, 203.5, 3.3)
pt3dadd(78, -338, 201.5, 2.9)
pt3dadd(75, -346.5, 205, 2.6)
pt3dadd(73.5, -358, 202.5, 2.8)
pt3dadd(75.5, -366.5, 202.5, 3)
pt3dadd(79.5, -373.5, 198, 2.7)
pt3dadd(87, -377.5, 196, 2.2)
pt3dadd(91.5, -384.5, 195.5, 3)
pt3dadd(95, -391.5, 193.5, 2.3)
pt3dadd(94, -404.5, 197, 2.4)
pt3dadd(98.5, -411.5, 196.5, 2)
pt3dadd(108, -415.5, 192.5, 2.4)
pt3dadd(113, -420.5, 196, 2.5)
pt3dadd(119.5, -431, 195.5, 2.8)
pt3dadd(120, -441.5, 189.5, 3.1)
pt3dadd(122, -449.5, 187, 1.5)
pt3dadd(114, -454, 189, 2)
pt3dadd(109.5, -467, 190, 3.1)
pt3dadd(107.5, -477, 185.5, 1.9)
pt3dadd(109.5, -485.5, 175, 1.1)
pt3dadd(107.5, -495.5, 173, 2.2)
pt3dadd(110, -504.5, 168, 1.6)
pt3dadd(115.5, -512.5, 167, 1.6)
pt3dadd(121.5, -517, 159, 1.7)
pt3dadd(125.5, -525, 168.5, 1.6)
pt3dadd(131.5, -531, 167.5, 1.7)
pt3dadd(134, -539, 166.5, 1.6)
pt3dadd(136, -548.5, 154, 1.3)
pt3dadd(133.5, -556, 153, 1.2)
pt3dadd(136, -568, 148, 1.1)
pt3dadd(134.5, -577, 154, 0.9)
pt3dadd(132, -587, 145, 1.1)
pt3dadd(130.5, -595.5, 141, 1.1)
pt3dadd(128, -606, 139.5, 1.3)
pt3dadd(128, -616, 138.5, 0.9)
pt3dadd(127, -625, 137.5, 0.8)
pt3dadd(127.5, -638, 132.5, 1.1)
pt3dadd(126, -648.5, 127.5, 1.2)
pt3dadd(123.5, -657.5, 133.5, 1.1)
pt3dadd(128.5, -662, 125, 1.7)
pt3dadd(128, -672.5, 129.5, 0.9)
pt3dadd(124.5, -685, 129, 0.8)
pt3dadd(121.5, -695.5, 129, 0.9)
pt3dadd(120, -704.5, 126.5, 0.9)
pt3dadd(117, -712.5, 128.5, 0.8)
pt3dadd(115, -720.5, 128.5, 1.7)
pt3dadd(121, -726.5, 126, 0.9)
pt3dadd(128, -730.5, 126, 0.8)
pt3dadd(133, -735.5, 125.5, 0.9)
pt3dadd(139, -741.5, 117.5, 0.8)
pt3dadd(140.5, -751.5, 127.5, 0.7)
pt3dadd(138, -759, 125, 0.7)
pt3dadd(136, -765, 125, 1.3)
}
dend[362] {pt3dclear()
pt3dadd(88, -308.5, 196.5, 6.4)
pt3dadd(94, -312.5, 175, 3.4)
pt3dadd(103.5, -321.5, 162.5, 4.1)
pt3dadd(107.5, -328.5, 161, 3.7)
pt3dadd(112, -336.5, 160, 4.1)
pt3dadd(112.5, -347, 158.5, 5.7)
pt3dadd(112.5, -349, 154, 6.4)
}
dend[363] {pt3dclear()
pt3dadd(112.5, -349, 154, 6.4)
pt3dadd(105.5, -354.5, 150.5, 1.8)
pt3dadd(102, -361, 144, 2.1)
pt3dadd(97, -366.5, 136.5, 1.8)
pt3dadd(91, -370.5, 137.5, 2.5)
pt3dadd(89.5, -373, 125, 2.6)
pt3dadd(85, -379, 126, 3.1)
pt3dadd(75, -381.5, 109, 1.8)
pt3dadd(69, -376.5, 104.5, 1.6)
pt3dadd(65.5, -383, 107, 3)
pt3dadd(56.5, -385.5, 85, 2.1)
pt3dadd(52.5, -390.5, 75, 1.6)
pt3dadd(42.5, -392.5, 61.5, 1.8)
pt3dadd(39, -400.5, 60, 2)
pt3dadd(33.5, -406.5, 58, 1.9)
pt3dadd(27.5, -410.5, 52.5, 2.3)
pt3dadd(21.5, -416, 44, 1.9)
pt3dadd(16, -422, 39.5, 1.1)
pt3dadd(13, -430.5, 37.5, 1)
pt3dadd(11.5, -439.5, 32.5, 1.1)
pt3dadd(12, -447, 25, 1.3)
pt3dadd(11, -456, 21.5, 1.8)
pt3dadd(8.5, -465.5, 13.5, 1.8)
pt3dadd(1, -469, 6, 0.9)
pt3dadd(-4.5, -474.5, -2, 1.6)
pt3dadd(-10, -481.5, -8.5, 1.8)
pt3dadd(-16, -486, -11.5, 1.5)
pt3dadd(-24.5, -488.5, -18, 0.9)
pt3dadd(-30, -493, -25, 0.7)
pt3dadd(-37.5, -496, -24.5, 1)
pt3dadd(-45, -499, -24, 1.6)
pt3dadd(-49.5, -506, -24, 0.9)
pt3dadd(-52.5, -516, -23.5, 3.8)
pt3dadd(-56.5, -522.5, -26, 1.3)
pt3dadd(-61.5, -527.5, -31, 2.5)
pt3dadd(-66, -533, -31, 1.1)
pt3dadd(-70.5, -539.5, -25.5, 1.3)
pt3dadd(-74.5, -545.5, -30.5, 1)
pt3dadd(-81, -551.5, -30.5, 1.2)
pt3dadd(-85, -559.5, -35, 1)
pt3dadd(-92.5, -562, -30, 0.8)
pt3dadd(-96.5, -573, -34.5, 0.9)
pt3dadd(-102.5, -578, -34.5, 0.9)
pt3dadd(-108, -585, -34.5, 1)
pt3dadd(-114, -593, -31.5, 0.8)
pt3dadd(-122.5, -596, -31.5, 0.9)
pt3dadd(-129.5, -600.5, -26, 2.1)
pt3dadd(-135.5, -607, -26, 1)
pt3dadd(-143.5, -610.5, -26, 0.9)
pt3dadd(-150.5, -614, -28, 1.1)
pt3dadd(-156.5, -618, -28, 0.9)
pt3dadd(-164, -623.5, -28, 1.4)
pt3dadd(-170.5, -629, -27.5, 0.5)
pt3dadd(-176.5, -634.5, -25, 1.5)
pt3dadd(-177.5, -636, -25, 0.1)
}
dend[364] {pt3dclear()
pt3dadd(112.5, -349, 154, 6.4)
pt3dadd(118.5, -355, 143.5, 3.1)
pt3dadd(120.5, -365, 144, 3.6)
pt3dadd(126.5, -375, 125, 3.5)
pt3dadd(129, -384, 126.5, 3.2)
pt3dadd(131.5, -391.5, 116.5, 4)
pt3dadd(126.5, -399.5, 115, 3.8)
pt3dadd(131.5, -407.5, 113.5, 4.1)
pt3dadd(134.5, -414.5, 112.5, 4.1)
pt3dadd(136.5, -424.5, 105.5, 3.7)
pt3dadd(141, -431, 107, 3.7)
pt3dadd(144.5, -439, 102.5, 3.2)
pt3dadd(151.5, -445, 101, 4)
pt3dadd(158.5, -450.5, 94, 3.1)
pt3dadd(165.5, -456.5, 95.5, 2.8)
pt3dadd(170, -465.5, 91.5, 3)
pt3dadd(176, -470, 88, 2.8)
pt3dadd(183.5, -474.5, 87, 4)
pt3dadd(191.5, -477.5, 80, 4)
pt3dadd(197.5, -482.5, 84, 4)
pt3dadd(200.5, -486.5, 75, 3.8)
pt3dadd(206.5, -492.5, 66.5, 2.3)
pt3dadd(210.5, -499, 68.5, 3)
pt3dadd(219.5, -507.5, 58, 2.4)
pt3dadd(224.5, -513, 50.5, 2.8)
pt3dadd(233, -517, 52, 4.8)
pt3dadd(240.5, -521, 44.5, 3.4)
pt3dadd(247.5, -524, 40.5, 2.4)
pt3dadd(253.5, -528, 47, 2.8)
pt3dadd(262, -534, 39, 3)
pt3dadd(271, -536, 35, 3.2)
pt3dadd(277.5, -539.5, 30.5, 2.7)
pt3dadd(285.5, -539.5, 25, 1.6)
pt3dadd(292.5, -545, 18, 2.3)
pt3dadd(296.5, -553.5, 19.5, 2.7)
pt3dadd(296.5, -565, 15, 2.6)
pt3dadd(304, -568.5, 5.5, 3.2)
pt3dadd(312.5, -571.5, 1, 1.6)
pt3dadd(320.5, -574.5, -1, 2.6)
pt3dadd(326.5, -578.5, -5.5, 2.3)
pt3dadd(331.5, -585.5, -9, 1.4)
pt3dadd(334, -593.5, -11.5, 2.5)
pt3dadd(340.5, -599, -20, 1.6)
pt3dadd(344, -606, -20.5, 2.9)
pt3dadd(351, -611.5, -25, 2.3)
pt3dadd(358, -614.5, -24, 1.6)
pt3dadd(360, -624, -22.5, 2.1)
pt3dadd(356.5, -631, -20.5, 2.2)
pt3dadd(358.5, -639.5, -21, 1.7)
pt3dadd(361, -649, -12.5, 2.3)
pt3dadd(363, -656, -25, 2.7)
pt3dadd(366.5, -663, -27, 1.1)
pt3dadd(369, -673.5, -40.5, 2.2)
pt3dadd(373, -679.5, -42.5, 1.5)
pt3dadd(378, -689.5, -46.5, 1.1)
pt3dadd(381.5, -696.5, -54, 1.4)
pt3dadd(385, -704.5, -52.5, 1.7)
pt3dadd(391, -713.5, -62, 1.3)
pt3dadd(396, -719.5, -63.5, 2.2)
pt3dadd(397, -721.5, -75, 2.1)
pt3dadd(407, -723, -82.5, 0.9)
pt3dadd(406, -732, -82, 1.6)
}
}
proc shape3d_40() {
dend[364] { pt3dadd(407.5, -741, -90.5, 1.6)
pt3dadd(409, -749.5, -93, 2.1)
pt3dadd(409.5, -759, -103, 2.2)
pt3dadd(408, -767.5, -118, 1.9)
pt3dadd(407.5, -775, -125, 2)
pt3dadd(411.5, -781.5, -156, 1.5)
pt3dadd(417.5, -786, -159, 1.6)
pt3dadd(421, -793, -170, 1.7)
pt3dadd(421.5, -796, -175, 1.7)
pt3dadd(421.5, -806.5, -185, 1.1)
pt3dadd(418, -813.5, -185, 1.3)
pt3dadd(414.5, -821.5, -187, 1.3)
pt3dadd(408.5, -826.5, -189.5, 1)
pt3dadd(404.5, -834.5, -199, 1.5)
pt3dadd(402.5, -843.5, -218.5, 2.3)
pt3dadd(398.5, -846.5, -225, 0.8)
}
dend[365] {pt3dclear()
pt3dadd(49, -213, 199, 9.1)
pt3dadd(41, -218, 199, 4.6)
pt3dadd(37, -225.5, 199.5, 4.8)
pt3dadd(35.5, -237, 205.5, 5.1)
pt3dadd(34, -246, 209.5, 5.2)
pt3dadd(31.5, -253.5, 211.5, 4.1)
pt3dadd(28, -262.5, 215.5, 4.1)
pt3dadd(23, -267, 218, 5.6)
}
dend[366] {pt3dclear()
pt3dadd(23, -267, 218, 5.6)
pt3dadd(13, -267.5, 213, 2.3)
pt3dadd(6.5, -274, 220, 2.3)
pt3dadd(-1.5, -278.5, 217.5, 1.7)
pt3dadd(-8, -284, 222.5, 1.9)
pt3dadd(-16.5, -288, 221.5, 1.9)
pt3dadd(-26, -290.5, 219, 2.5)
pt3dadd(-33, -295.5, 224, 2.5)
pt3dadd(-41, -297.5, 230.5, 2.2)
pt3dadd(-45.5, -304, 224, 3.7)
pt3dadd(-52, -308, 225, 1.6)
pt3dadd(-63, -310.5, 224.5, 1.8)
pt3dadd(-66, -314, 225, 1.8)
pt3dadd(-75.5, -320, 239, 2)
pt3dadd(-81, -326, 238, 2.6)
pt3dadd(-91, -342.5, 246, 2)
pt3dadd(-95, -350.5, 255.5, 3.8)
pt3dadd(-100, -356, 253, 1.2)
pt3dadd(-104.5, -364, 254, 1.7)
pt3dadd(-109.5, -371.5, 257.5, 2.4)
pt3dadd(-112.5, -381, 255.5, 2)
pt3dadd(-113, -391, 259, 2.5)
pt3dadd(-116, -398.5, 264, 1.9)
pt3dadd(-119.5, -409, 262.5, 2.8)
pt3dadd(-126, -414.5, 266.5, 1.2)
pt3dadd(-132.5, -420.5, 269.5, 1.2)
pt3dadd(-137, -427, 273, 1.2)
pt3dadd(-142, -433, 275, 1.2)
pt3dadd(-143.5, -442, 276, 1.9)
pt3dadd(-142.5, -451, 277.5, 1.8)
pt3dadd(-141.5, -463, 281, 1.6)
pt3dadd(-147.5, -469.5, 281, 1.9)
pt3dadd(-155, -472, 282.5, 0.8)
pt3dadd(-161.5, -476.5, 283.5, 1.5)
pt3dadd(-163.5, -486, 291.5, 1.3)
pt3dadd(-168.5, -493, 294.5, 1.3)
pt3dadd(-171.5, -500, 294.5, 0.8)
pt3dadd(-175.5, -506.5, 300.5, 1)
pt3dadd(-181, -511.5, 297, 0.9)
pt3dadd(-186.5, -516.5, 298.5, 1.1)
pt3dadd(-194, -520.5, 301.5, 0.7)
pt3dadd(-197.5, -528.5, 303, 0.7)
pt3dadd(-200, -537.5, 306.5, 0.9)
pt3dadd(-202.5, -545, 306, 0.7)
pt3dadd(-205.5, -553.5, 307.5, 0.5)
pt3dadd(-208, -562, 310.5, 0.5)
pt3dadd(-210, -572.5, 312.5, 0.6)
pt3dadd(-213.5, -582.5, 308, 0.6)
pt3dadd(-219, -589.5, 319, 0.7)
pt3dadd(-218.5, -601.5, 320, 0.7)
pt3dadd(-219, -607, 325, 1)
}
dend[367] {pt3dclear()
pt3dadd(23, -267, 218, 5.6)
pt3dadd(20, -276.5, 225, 2.7)
pt3dadd(17, -283.5, 244.5, 2.5)
pt3dadd(12, -291.5, 261.5, 3.7)
pt3dadd(3, -290.5, 275, 3.5)
pt3dadd(1.5, -300.5, 290.5, 3.4)
pt3dadd(3.5, -310.5, 298, 2.6)
pt3dadd(5.5, -319.5, 317, 2)
pt3dadd(7.5, -328.5, 325, 1.9)
pt3dadd(23.5, -330, 346, 2.5)
pt3dadd(34, -332, 345.5, 1.6)
pt3dadd(40.5, -336, 350, 1.7)
pt3dadd(47, -339.5, 354, 1.6)
pt3dadd(55.5, -343.5, 359, 1.9)
pt3dadd(60.5, -351.5, 361.5, 1.6)
pt3dadd(68.5, -361.5, 363, 1.4)
pt3dadd(75.5, -364.5, 365.5, 1.3)
pt3dadd(77.5, -368, 375, 2.3)
pt3dadd(84.5, -373, 383, 1.6)
pt3dadd(92, -379, 381, 1.2)
pt3dadd(97, -384, 382.5, 1.4)
pt3dadd(101, -387.5, 387, 1.6)
}
dend[368] {pt3dclear()
pt3dadd(101, -387.5, 387, 1.6)
pt3dadd(107.5, -394, 392, 1.4)
pt3dadd(113, -399, 393, 1.4)
pt3dadd(118, -404, 402.5, 1)
pt3dadd(120.5, -413, 404, 1.7)
pt3dadd(127.5, -418.5, 402.5, 1.3)
pt3dadd(132, -424.5, 409, 1.5)
pt3dadd(136.5, -433, 412.5, 1.2)
pt3dadd(139.5, -440.5, 414, 1.1)
pt3dadd(146, -446.5, 425, 1.9)
pt3dadd(151, -452.5, 440, 1.9)
pt3dadd(155, -459.5, 445, 1.1)
pt3dadd(161, -465, 445.5, 1.1)
pt3dadd(169, -469, 446.5, 1.1)
pt3dadd(174.5, -474, 450.5, 1.6)
pt3dadd(182, -481, 444, 1.1)
pt3dadd(186.5, -487.5, 449, 0.8)
pt3dadd(194, -492.5, 449.5, 1)
pt3dadd(203.5, -494.5, 454.5, 0.8)
pt3dadd(208.5, -502, 453, 1.2)
pt3dadd(210.5, -511, 461, 1)
pt3dadd(215, -516.5, 461.5, 1.5)
pt3dadd(218, -525, 462.5, 1)
pt3dadd(219.5, -536.5, 470.5, 1.6)
pt3dadd(224, -542.5, 468, 1.2)
pt3dadd(230.5, -547, 466, 1.1)
pt3dadd(236, -551.5, 463, 1.6)
pt3dadd(232.5, -556, 475, 1.2)
}
dend[369] {pt3dclear()
pt3dadd(101, -387.5, 387, 1.6)
pt3dadd(102.5, -390.5, 375, 1.1)
}
dend[370] {pt3dclear()
pt3dadd(11.5, -122, 147, 5.4)
pt3dadd(22, -123.5, 155, 3.5)
pt3dadd(22, -126, 175, 3.4)
pt3dadd(29.5, -130, 207, 6.4)
pt3dadd(28, -139, 214.5, 3.8)
pt3dadd(26, -148.5, 225, 4.1)
pt3dadd(30.5, -156, 243.5, 2.5)
pt3dadd(36.5, -161, 256, 2.5)
pt3dadd(45, -164, 275, 2.9)
pt3dadd(38, -168.5, 279, 2.2)
pt3dadd(46.5, -167, 303, 2.3)
pt3dadd(52.5, -171, 319.5, 3)
pt3dadd(56.5, -179.5, 323.5, 1.7)
pt3dadd(59, -177, 325, 3.2)
pt3dadd(61, -193, 349.5, 2)
pt3dadd(66, -198.5, 363.5, 2.6)
pt3dadd(59.5, -202, 368, 2.1)
pt3dadd(64, -208.5, 375, 2.6)
pt3dadd(59.5, -215, 383.5, 1.2)
pt3dadd(64.5, -221.5, 391.5, 1.4)
pt3dadd(75.5, -232.5, 394, 1.5)
pt3dadd(80.5, -239.5, 402.5, 2)
pt3dadd(85.5, -246.5, 405.5, 2.1)
pt3dadd(93.5, -251, 410.5, 1.5)
pt3dadd(102, -261.5, 420, 1.1)
pt3dadd(106.5, -265, 425, 1.6)
pt3dadd(88.5, -268.5, 407.5, 1.6)
pt3dadd(83.5, -262, 408, 1.5)
pt3dadd(86.5, -255, 408, 0.8)
pt3dadd(93.5, -258.5, 401, 1)
pt3dadd(101.5, -260.5, 401, 0.9)
pt3dadd(111.5, -259, 401, 1.5)
pt3dadd(119, -263.5, 409, 1.4)
pt3dadd(128, -266.5, 409, 1.2)
pt3dadd(133.5, -271.5, 416, 2.1)
pt3dadd(143.5, -273, 409, 0.8)
pt3dadd(150.5, -277, 409.5, 1.3)
pt3dadd(157, -281.5, 416.5, 0.8)
pt3dadd(165.5, -283.5, 420.5, 1.3)
pt3dadd(174.5, -286, 413.5, 0.6)
pt3dadd(182.5, -282, 417, 1.7)
pt3dadd(194, -282, 417, 0.8)
pt3dadd(203, -279, 424.5, 1.9)
pt3dadd(208.5, -283.5, 417.5, 1.5)
pt3dadd(218.5, -284.5, 414, 0.4)
pt3dadd(225.5, -287.5, 414.5, 0.9)
pt3dadd(235, -289, 414.5, 0.9)
pt3dadd(242, -292, 418, 0.7)
pt3dadd(250, -294, 418, 0.6)
pt3dadd(261.5, -294, 418.5, 1.3)
pt3dadd(272, -295, 418.5, 0.6)
pt3dadd(281, -292.5, 418.5, 0.8)
pt3dadd(289.5, -289, 418.5, 0.7)
pt3dadd(294.5, -283.5, 419, 0.5)
pt3dadd(302, -280.5, 419, 1.5)
pt3dadd(312, -280, 415.5, 1.7)
pt3dadd(320, -283.5, 419, 0.6)
pt3dadd(325, -289, 419.5, 0.9)
pt3dadd(331.5, -293.5, 419.5, 0.4)
pt3dadd(337, -300, 423, 0.8)
pt3dadd(340, -307, 426.5, 1.1)
pt3dadd(344.5, -313.5, 419.5, 1.1)
pt3dadd(350, -318.5, 416.5, 0.1)
pt3dadd(356, -322.5, 413, 0.7)
pt3dadd(362.5, -326, 416.5, 1.4)
pt3dadd(369.5, -330.5, 413, 0.5)
pt3dadd(379, -331.5, 413.5, 0.4)
pt3dadd(387.5, -334.5, 413.5, 0.4)
pt3dadd(394, -339.5, 417, 1.2)
pt3dadd(396, -347.5, 417, 0.2)
pt3dadd(401.5, -353.5, 421, 0.1)
pt3dadd(405.5, -359.5, 414, 0.1)
pt3dadd(402.5, -368.5, 424.5, 0.1)
}
}
proc shape3d_41() {
dend[370] { pt3dadd(396, -373, 375, 0.6)
}
dend[371] {pt3dclear()
pt3dadd(32.6, 15.41, -5.41, 12.1)
pt3dadd(1, 7, -11.5, 12.1)
pt3dadd(-9, 7.5, -18.5, 7.6)
pt3dadd(-19.5, 7.5, -25, 8)
pt3dadd(-30, 7.5, -20, 7.2)
pt3dadd(-39.5, 8, -19, 7.5)
pt3dadd(-53, 8.5, -22, 7.2)
pt3dadd(-62.5, 9, -30.5, 9.6)
pt3dadd(-66, 9, -31, 11.7)
}
dend[372] {pt3dclear()
pt3dadd(-66, 9, -31, 11.7)
pt3dadd(-73, 2.5, -45, 4.7)
pt3dadd(-82, -4, -44.5, 4.7)
pt3dadd(-89, -9, -49.5, 4.7)
pt3dadd(-93, -16.5, -54, 4.7)
pt3dadd(-97.5, -23.5, -55.5, 4.8)
pt3dadd(-103.5, -27.5, -57, 4.5)
pt3dadd(-111.5, -34, -65, 5.1)
pt3dadd(-117, -39, -64, 5.5)
pt3dadd(-121.5, -48.5, -75, 5.4)
pt3dadd(-128.5, -55, -83, 4.6)
pt3dadd(-130, -57, -83, 5.9)
}
dend[373] {pt3dclear()
pt3dadd(-130, -57, -83, 5.9)
pt3dadd(-133.5, -65.5, -87.5, 4.1)
pt3dadd(-135, -77.5, -91.5, 4.3)
pt3dadd(-141.5, -84.5, -99, 4.6)
pt3dadd(-147, -89, -106.5, 4)
pt3dadd(-152.5, -94, -110, 4.3)
pt3dadd(-157, -102.5, -118, 4.8)
pt3dadd(-163.5, -108.5, -125, 5.1)
pt3dadd(-171.5, -113.5, -126, 4.6)
pt3dadd(-175.5, -121.5, -127.5, 4.5)
pt3dadd(-184, -123.5, -129, 5.1)
pt3dadd(-193, -121, -144.5, 5.1)
pt3dadd(-197, -130.5, -150, 5)
pt3dadd(-201, -138, -151.5, 4.9)
pt3dadd(-208, -143, -153, 4.5)
pt3dadd(-210.5, -148, -175, 5.9)
pt3dadd(-215.5, -153, -178.5, 4.1)
pt3dadd(-221, -159, -187.5, 4)
pt3dadd(-226.5, -165, -201, 4.1)
pt3dadd(-227, -175.5, -224.5, 3.8)
pt3dadd(-233, -182.5, -225, 4)
pt3dadd(-237, -188.5, -228, 4.4)
pt3dadd(-244, -192.5, -241.5, 4.1)
pt3dadd(-253.5, -193.5, -260, 3.3)
pt3dadd(-261.5, -197, -263.5, 3.8)
pt3dadd(-267, -200, -275, 3.5)
pt3dadd(-276, -201.5, -288.5, 4.1)
pt3dadd(-281.5, -209, -290, 3.8)
pt3dadd(-286.5, -217, -290, 3.9)
pt3dadd(-291.5, -217, -291, 5.7)
}
dend[374] {pt3dclear()
pt3dadd(-291.5, -217, -291, 5.7)
pt3dadd(-283.5, -219, -301, 2.8)
pt3dadd(-283.5, -230, -298.5, 3.1)
pt3dadd(-285, -238.5, -304, 3.1)
pt3dadd(-284, -249, -304, 3.1)
pt3dadd(-285, -258.5, -304, 3.4)
pt3dadd(-287, -268, -304, 2.7)
pt3dadd(-288, -278.5, -304.5, 2.6)
pt3dadd(-296.5, -292.5, -299.5, 3.2)
pt3dadd(-301.5, -300.5, -302, 2.8)
pt3dadd(-305.5, -309.5, -300, 3.2)
pt3dadd(-311.5, -317, -297.5, 2.5)
pt3dadd(-315.5, -324.5, -297.5, 2.2)
pt3dadd(-322.5, -327.5, -302.5, 2.6)
pt3dadd(-324, -328, -302.5, 2.6)
}
dend[375] {pt3dclear()
pt3dadd(-324, -328, -302.5, 2.6)
pt3dadd(-330, -333, -303.5, 2.6)
pt3dadd(-339, -336, -299.5, 2.2)
pt3dadd(-347, -339.5, -303, 2)
pt3dadd(-354.5, -343, -299, 2.3)
pt3dadd(-364, -345.5, -300, 1.6)
pt3dadd(-372, -348.5, -301, 1.4)
pt3dadd(-379.5, -354.5, -299.5, 2)
pt3dadd(-384, -360, -300.5, 1.6)
pt3dadd(-388.5, -367, -299, 1.6)
pt3dadd(-395.5, -374.5, -300.5, 1.4)
pt3dadd(-402, -382.5, -306.5, 2)
pt3dadd(-407, -388.5, -307.5, 1.7)
pt3dadd(-411.5, -394.5, -308, 1.9)
pt3dadd(-415.5, -401, -312, 3.6)
pt3dadd(-419.5, -407.5, -310, 2.5)
pt3dadd(-424.5, -416, -311, 1.5)
pt3dadd(-429, -424, -307.5, 1.4)
pt3dadd(-433.5, -431, -321.5, 1.3)
pt3dadd(-437, -437.5, -325, 1.1)
pt3dadd(-439, -447.5, -326.5, 1.2)
pt3dadd(-441, -457, -321, 1.2)
pt3dadd(-445, -464.5, -319.5, 1.6)
pt3dadd(-446.5, -474.5, -333, 1.2)
pt3dadd(-449, -484.5, -334.5, 1.1)
pt3dadd(-451, -494.5, -336.5, 0.9)
pt3dadd(-452.5, -504.5, -344, 2.1)
pt3dadd(-455.5, -514, -350, 1.1)
pt3dadd(-450.5, -519.5, -355, 1.1)
pt3dadd(-453.5, -528, -356.5, 1.4)
pt3dadd(-451, -537, -365.5, 1.6)
pt3dadd(-457.5, -544, -360.5, 1.2)
pt3dadd(-461.5, -551.5, -373.5, 1.1)
pt3dadd(-457.5, -556, -375, 1.4)
pt3dadd(-466, -558, -380, 1.2)
pt3dadd(-475, -559.5, -380, 0.8)
pt3dadd(-484.5, -561.5, -377, 1.1)
pt3dadd(-493.5, -566, -379.5, 0.5)
pt3dadd(-498.5, -572, -379.5, 0.8)
pt3dadd(-504, -578, -379.5, 0.8)
pt3dadd(-509, -583.5, -379, 1.2)
pt3dadd(-516.5, -588, -376, 0.8)
pt3dadd(-523, -593.5, -376, 0.6)
pt3dadd(-529, -599, -376, 0.8)
pt3dadd(-534.5, -604.5, -370, 2.8)
pt3dadd(-540.5, -609.5, -373, 2.3)
pt3dadd(-547, -614.5, -373, 1)
pt3dadd(-553, -620.5, -378, 0.6)
pt3dadd(-559, -625, -372.5, 2)
pt3dadd(-561.5, -627.5, -375, 1.6)
}
dend[376] {pt3dclear()
pt3dadd(-324, -328, -302.5, 2.6)
pt3dadd(-322, -335.5, -325, 2.8)
pt3dadd(-318.5, -350.5, -335.5, 1.3)
pt3dadd(-317, -362, -333.5, 1.5)
pt3dadd(-314, -371.5, -342.5, 1.6)
pt3dadd(-310, -380.5, -344, 1)
pt3dadd(-309, -391, -345.5, 1.8)
pt3dadd(-307, -402, -359.5, 0.9)
pt3dadd(-309, -410, -364.5, 1.1)
pt3dadd(-309, -421, -366, 0.7)
pt3dadd(-314.5, -428.5, -354, 1.3)
pt3dadd(-317, -433, -375, 1.7)
pt3dadd(-323.5, -440, -372.5, 1)
pt3dadd(-326, -449.5, -387.5, 0.9)
pt3dadd(-334, -452, -402.5, 1.2)
pt3dadd(-340.5, -456, -415.5, 2.5)
pt3dadd(-347.5, -459.5, -416, 0.9)
pt3dadd(-353, -463, -425, 0.8)
}
dend[377] {pt3dclear()
pt3dadd(-291.5, -217, -291, 5.7)
pt3dadd(-288, -208.5, -303.5, 3.5)
pt3dadd(-297, -209.5, -313.5, 2.5)
pt3dadd(-305, -214, -325, 2.8)
pt3dadd(-309, -217.5, -325, 2.8)
pt3dadd(-314.5, -222, -327.5, 3.9)
pt3dadd(-325.5, -228, -337, 2.8)
pt3dadd(-328.5, -238.5, -342.5, 3)
pt3dadd(-332.5, -245, -354, 3)
pt3dadd(-336, -251.5, -356.5, 3.3)
pt3dadd(-341.5, -256, -359, 3.2)
pt3dadd(-351, -262, -371, 3)
pt3dadd(-355, -270, -375, 3.3)
}
dend[378] {pt3dclear()
pt3dadd(-130, -57, -83, 5.9)
pt3dadd(-138.5, -62, -75, 2.2)
pt3dadd(-145, -67.5, -75, 3.7)
pt3dadd(-150.5, -73.5, -73.5, 3.3)
pt3dadd(-155.5, -78.5, -72, 2.8)
pt3dadd(-161.5, -84, -70, 3.4)
pt3dadd(-167, -89, -68.5, 2.7)
pt3dadd(-175, -92.5, -57.5, 3.6)
pt3dadd(-183, -97.5, -55.5, 2.6)
pt3dadd(-190.5, -102, -55.5, 2.8)
pt3dadd(-195.5, -107.5, -50.5, 3.2)
pt3dadd(-200, -113, -46.5, 3.3)
pt3dadd(-206.5, -117.5, -42, 2.5)
pt3dadd(-213, -122.5, -40, 2.1)
pt3dadd(-220, -126.5, -32, 3)
pt3dadd(-228.5, -130, -30, 2.7)
pt3dadd(-234.5, -137, -25, 3)
pt3dadd(-242.5, -141.5, -26.5, 3.9)
pt3dadd(-266.5, -150, -10.5, 3.5)
pt3dadd(-276.5, -151, -8.5, 2.9)
pt3dadd(-284, -155, -7, 1.9)
pt3dadd(-292.5, -158, -3, 2)
pt3dadd(-302.5, -157.5, 8, 2.5)
pt3dadd(-314, -161, 10.5, 1.9)
pt3dadd(-318.5, -166.5, 12, 2.9)
pt3dadd(-319, -176, 13.5, 2.2)
pt3dadd(-324.5, -182, 22, 3.2)
pt3dadd(-327, -190, 22, 3.7)
pt3dadd(-329.5, -194, 25, 3.4)
pt3dadd(-331.5, -203, 27, 2.8)
pt3dadd(-334.5, -213.5, 25.5, 2.5)
pt3dadd(-338.5, -222.5, 25, 1.5)
pt3dadd(-343.5, -229.5, 26.5, 1.9)
pt3dadd(-349.5, -237.5, 28, 2.3)
pt3dadd(-354.5, -242.5, 25.5, 2.3)
pt3dadd(-358, -253.5, 23.5, 3.2)
pt3dadd(-363, -260, 23, 2)
pt3dadd(-366.5, -267.5, 25, 2.4)
pt3dadd(-371, -275, 34, 3.2)
pt3dadd(-370, -285, 42, 3.8)
pt3dadd(-369.5, -296, 45.5, 1.9)
pt3dadd(-371.5, -305, 70.5, 4.5)
pt3dadd(-370.5, -307.5, 75, 3.4)
pt3dadd(-373, -315.5, 77.5, 1.4)
pt3dadd(-379, -321.5, 80, 1.5)
pt3dadd(-384.5, -326, 82, 1.3)
pt3dadd(-389.5, -331, 87.5, 1.6)
pt3dadd(-399, -331.5, 100.5, 1.5)
pt3dadd(-405.5, -338.5, 108, 1.3)
pt3dadd(-412.5, -343, 109, 1.2)
pt3dadd(-418, -348.5, 116, 0.8)
pt3dadd(-427, -353, 128.5, 2.7)
}
}
proc shape3d_42() {
dend[378] { pt3dadd(-428.5, -356.5, 125, 1.8)
pt3dadd(-427, -366.5, 134.5, 2.5)
pt3dadd(-424, -374.5, 135.5, 1.3)
pt3dadd(-424, -385.5, 142, 2)
pt3dadd(-429, -390.5, 145.5, 1.8)
pt3dadd(-432, -398, 147, 1.1)
pt3dadd(-437.5, -402.5, 156.5, 2)
pt3dadd(-434.5, -410.5, 158.5, 2.7)
pt3dadd(-441, -416.5, 156.5, 1.7)
pt3dadd(-446, -422, 160.5, 2)
pt3dadd(-452.5, -426.5, 164, 2.3)
pt3dadd(-455.5, -433.5, 165, 1.7)
pt3dadd(-461.5, -438.5, 163.5, 1.8)
pt3dadd(-468, -442, 161.5, 2.2)
pt3dadd(-474, -448.5, 166, 1.4)
pt3dadd(-478, -456.5, 167.5, 1.6)
pt3dadd(-484.5, -462.5, 173.5, 0.9)
pt3dadd(-489.5, -463.5, 175, 1.3)
pt3dadd(-495.5, -470, 174.5, 1.8)
pt3dadd(-498.5, -478.5, 177.5, 2.3)
pt3dadd(-504, -485.5, 180.5, 2.1)
pt3dadd(-508, -494.5, 187, 1.9)
pt3dadd(-513.5, -500.5, 176, 1.4)
pt3dadd(-518.5, -505.5, 182.5, 1.1)
pt3dadd(-523.5, -509, 175, 0.7)
pt3dadd(-524.5, -518, 178, 1.4)
pt3dadd(-528.5, -525, 181, 1.6)
pt3dadd(-531.5, -534.5, 180.5, 1.3)
pt3dadd(-534, -543.5, 185.5, 1.1)
pt3dadd(-540, -548, 188.5, 1.4)
pt3dadd(-546.5, -553.5, 189, 1.3)
pt3dadd(-552.5, -558, 188, 2.1)
pt3dadd(-555, -566, 189, 1.1)
pt3dadd(-554.5, -578.5, 194.5, 2.7)
pt3dadd(-552.5, -587, 193.5, 1.1)
pt3dadd(-549, -594, 190.5, 1.2)
pt3dadd(-555.5, -600, 193.5, 1.3)
pt3dadd(-562.5, -607.5, 202.5, 1.6)
pt3dadd(-573.5, -612, 198, 1.1)
pt3dadd(-581, -618, 197.5, 1.3)
pt3dadd(-587, -624, 205, 1.6)
pt3dadd(-592.5, -628.5, 206, 1.2)
pt3dadd(-597.5, -633.5, 205, 1)
pt3dadd(-606.5, -636, 206, 1.5)
pt3dadd(-613.5, -639, 209, 1.2)
pt3dadd(-620.5, -642, 214, 2.6)
pt3dadd(-627, -646, 214.5, 1.5)
pt3dadd(-633, -650.5, 224.5, 1.3)
pt3dadd(-636, -644.5, 225, 1.2)
pt3dadd(-643, -647.5, 225, 1.1)
}
dend[379] {pt3dclear()
pt3dadd(-66, 9, -31, 11.7)
pt3dadd(-73, 16, -23, 5.9)
pt3dadd(-85.5, 19, -20.5, 5.1)
pt3dadd(-96.5, 24, -28.5, 5)
pt3dadd(-104.5, 27, -25.5, 5.4)
pt3dadd(-113, 32.5, -23, 5)
pt3dadd(-121, 37.5, -23, 5.1)
pt3dadd(-128.5, 43.5, -31, 4.5)
pt3dadd(-138, 50, -25.5, 5)
pt3dadd(-146.5, 54.5, -23, 4.8)
pt3dadd(-157.5, 61, -25.5, 5.4)
pt3dadd(-165.5, 64.5, -28.5, 4.5)
pt3dadd(-173, 69.5, -36.5, 4.4)
pt3dadd(-181, 73, -36.5, 4.5)
pt3dadd(-189.5, 78, -34, 3.8)
pt3dadd(-197, 80.5, -29, 6.1)
}
dend[380] {pt3dclear()
pt3dadd(-197, 80.5, -29, 6.1)
pt3dadd(-203, 88, -25, 4.1)
pt3dadd(-210.5, 93.5, -27, 2.7)
pt3dadd(-216, 101, -26, 4.1)
pt3dadd(-223, 107, -28, 3.5)
pt3dadd(-228, 112, -27.5, 2.6)
pt3dadd(-237.5, 117, -26.5, 3.4)
pt3dadd(-243.5, 121, -26, 4.1)
}
dend[381] {pt3dclear()
pt3dadd(-243.5, 121, -26, 4.1)
pt3dadd(-251.5, 126, -22.5, 3)
pt3dadd(-262, 130.5, -18.5, 3.5)
pt3dadd(-271.5, 139.5, -20.5, 4.4)
pt3dadd(-275, 146.5, -25, 4.2)
}
dend[382] {pt3dclear()
pt3dadd(-243.5, 121, -26, 4.1)
pt3dadd(-250, 125.5, -22.5, 2.7)
pt3dadd(-257, 132.5, -21, 3.4)
pt3dadd(-263.5, 136.5, -18, 3.8)
pt3dadd(-269.5, 141, -14.5, 2.8)
pt3dadd(-277, 145, -15.5, 4.6)
pt3dadd(-289, 149.5, -17.5, 4.6)
pt3dadd(-296.5, 155, -10, 4.8)
pt3dadd(-302.5, 160, -9, 4.2)
pt3dadd(-309.5, 166.5, -9.5, 3.8)
pt3dadd(-317.5, 170.5, -4, 3.1)
pt3dadd(-324.5, 175, 3, 3)
pt3dadd(-333.5, 180.5, 1, 3.2)
pt3dadd(-340, 184, 4, 3.6)
pt3dadd(-349.5, 194.5, 6.5, 3)
pt3dadd(-356, 198, 10.5, 3.9)
pt3dadd(-363.5, 201.5, 16, 4.1)
pt3dadd(-369, 206, 17, 4.1)
pt3dadd(-379, 210, 20.5, 2.8)
pt3dadd(-387.5, 214, 22, 2.7)
pt3dadd(-394, 219, 21, 3.6)
pt3dadd(-401.5, 223, 26.5, 3.1)
pt3dadd(-407.5, 227.5, 24, 2.8)
pt3dadd(-416, 231.5, 32.5, 3.4)
pt3dadd(-424, 234, 34.5, 3)
pt3dadd(-435, 236.5, 37.5, 3.7)
pt3dadd(-442, 241, 39.5, 3.2)
pt3dadd(-449.5, 245.5, 45, 4.8)
}
dend[383] {pt3dclear()
pt3dadd(-449.5, 245.5, 45, 4.8)
pt3dadd(-453.5, 253, 49, 2.6)
pt3dadd(-470.5, 255.5, 61, 3.4)
pt3dadd(-475.5, 261, 66.5, 2.6)
pt3dadd(-482, 268, 73.5, 3)
pt3dadd(-482.5, 268.5, 74, 3)
pt3dadd(-489.5, 274.5, 81, 3)
pt3dadd(-496.5, 274.5, 85.5, 3)
}
dend[384] {pt3dclear()
pt3dadd(-496.5, 274.5, 85.5, 3)
pt3dadd(-505, 276.5, 104.5, 2.9)
pt3dadd(-508, 284.5, 106, 2.5)
pt3dadd(-516, 287.5, 109.5, 2.3)
pt3dadd(-525, 286, 127.5, 1.7)
pt3dadd(-529.5, 284.5, 124, 1.6)
pt3dadd(-541.5, 282, 143.5, 1.8)
pt3dadd(-551, 283.5, 155.5, 1.8)
pt3dadd(-562, 290, 178, 2.3)
pt3dadd(-565.5, 290.5, 174, 2.6)
pt3dadd(-574, 290.5, 183, 3.7)
}
dend[385] {pt3dclear()
pt3dadd(-574, 290.5, 183, 3.7)
pt3dadd(-583.5, 292.5, 190, 1.1)
pt3dadd(-594.5, 293, 190.5, 2.2)
pt3dadd(-602, 290.5, 193, 1.1)
pt3dadd(-609, 293.5, 195.5, 2.3)
pt3dadd(-618.5, 295.5, 192, 1.1)
pt3dadd(-626, 299, 201, 1.3)
pt3dadd(-633.5, 302, 201.5, 1)
pt3dadd(-640.5, 307.5, 202, 1.7)
pt3dadd(-649.5, 311, 206.5, 1.1)
pt3dadd(-658.5, 313, 207.5, 1.3)
pt3dadd(-671.5, 313, 210, 1.5)
pt3dadd(-684, 313.5, 217, 1.6)
pt3dadd(-698.5, 312.5, 212.5, 1.4)
pt3dadd(-708, 311.5, 215, 1.3)
pt3dadd(-718, 311, 215.5, 1.2)
pt3dadd(-727.5, 312, 218.5, 1)
pt3dadd(-736.5, 310, 221, 0.8)
pt3dadd(-747, 309, 223.5, 1.1)
pt3dadd(-752.5, 309.5, 224, 1.2)
pt3dadd(-759, 316, 231, 0.9)
pt3dadd(-766, 321.5, 238, 0.9)
pt3dadd(-772.5, 326, 245, 1)
pt3dadd(-777.5, 332, 249, 1.3)
pt3dadd(-781.5, 338.5, 252.5, 2.1)
pt3dadd(-784, 346, 263, 2.5)
pt3dadd(-784.5, 350, 274, 2.7)
pt3dadd(-782.5, 354.5, 283, 1.4)
}
dend[386] {pt3dclear()
pt3dadd(-782.5, 354.5, 283, 1.4)
pt3dadd(-785.5, 352.5, 274, 1.1)
}
dend[387] {pt3dclear()
pt3dadd(-782.5, 354.5, 283, 1.4)
pt3dadd(-780, 362, 305, 1.1)
pt3dadd(-786, 366.5, 310.5, 0.8)
pt3dadd(-787.5, 370, 324, 0.8)
}
dend[388] {pt3dclear()
pt3dadd(-574, 290.5, 183, 3.7)
pt3dadd(-578, 297, 176, 2.3)
pt3dadd(-582.5, 305, 175, 1.8)
pt3dadd(-587, 312, 176, 1.9)
pt3dadd(-594, 318.5, 174, 1.2)
pt3dadd(-604, 318.5, 180.5, 1.1)
pt3dadd(-613.5, 321, 169.5, 1.7)
pt3dadd(-625.5, 324.5, 165.5, 1)
pt3dadd(-636.5, 326, 179, 1.1)
pt3dadd(-645.5, 328, 175, 1.3)
pt3dadd(-656, 332.5, 175, 1.2)
pt3dadd(-668, 334, 174.5, 1.3)
pt3dadd(-675, 337.5, 177.5, 2.5)
pt3dadd(-682.5, 341, 174, 1.3)
pt3dadd(-687.5, 344.5, 174, 1.3)
pt3dadd(-692, 352, 173, 1.8)
pt3dadd(-698, 359, 178, 1.2)
pt3dadd(-705, 363.5, 181.5, 1.8)
pt3dadd(-713.5, 365, 182.5, 0.9)
pt3dadd(-724, 363, 185.5, 0.8)
pt3dadd(-734.5, 364, 191, 1)
pt3dadd(-743.5, 366, 199, 1.5)
pt3dadd(-751.5, 371, 204, 1.1)
pt3dadd(-757.5, 375.5, 197.5, 1.1)
pt3dadd(-765.5, 381, 200.5, 2.2)
pt3dadd(-773.5, 385.5, 201.5, 1)
pt3dadd(-782.5, 388, 205, 1)
pt3dadd(-791, 392.5, 210, 1.9)
pt3dadd(-801, 395, 205.5, 0.9)
pt3dadd(-810.5, 395.5, 209, 1.1)
pt3dadd(-820.5, 395.5, 212, 0.9)
pt3dadd(-830.5, 395, 215, 1.1)
pt3dadd(-836.5, 390, 217, 1.1)
pt3dadd(-846, 391.5, 214.5, 0.7)
}
dend[389] {pt3dclear()
pt3dadd(-846, 391.5, 214.5, 0.7)
pt3dadd(-853, 395, 224, 0.6)
}
dend[390] {pt3dclear()
pt3dadd(-846, 391.5, 214.5, 0.7)
pt3dadd(-854.5, 389, 217.5, 2)
pt3dadd(-862, 386, 219.5, 0.9)
pt3dadd(-871.5, 384, 225.5, 1.5)
}
}
proc shape3d_43() {
dend[390] { pt3dadd(-882, 383, 237.5, 0.9)
pt3dadd(-891, 384.5, 240, 0.9)
pt3dadd(-902, 388, 242.5, 1.6)
pt3dadd(-908, 392.5, 253, 2)
pt3dadd(-910, 400.5, 255, 1.4)
pt3dadd(-907.5, 402, 264.5, 1.7)
pt3dadd(-906, 410.5, 266, 2.1)
pt3dadd(-904, 419.5, 273.5, 1.5)
pt3dadd(-907, 429, 275.5, 1.7)
pt3dadd(-913, 433.5, 282.5, 1.2)
pt3dadd(-920.5, 438, 288, 2.1)
pt3dadd(-927, 444.5, 298, 1.7)
pt3dadd(-935, 448, 301, 1.4)
pt3dadd(-944, 449.5, 300.5, 1.1)
pt3dadd(-953, 450.5, 305, 1.4)
pt3dadd(-956.5, 452, 314.5, 1.3)
pt3dadd(-962, 458, 336, 1.3)
pt3dadd(-968, 463, 333.5, 1.5)
pt3dadd(-969, 467, 364.5, 1.6)
pt3dadd(-975.5, 470.5, 406, 0.6)
pt3dadd(-981, 473.5, 414.5, 1.6)
pt3dadd(-984, 482, 454, 0.9)
pt3dadd(-980, 488.5, 457.5, 1)
pt3dadd(-985.5, 493.5, 466.5, 1.8)
pt3dadd(-986.5, 495, 464.5, 1.9)
pt3dadd(-996, 496, 487, 1.2)
pt3dadd(-997.5, 505, 505, 1.6)
pt3dadd(-1006.5, 502.5, 510.5, 0.9)
pt3dadd(-1008.5, 502, 514.5, 0.9)
pt3dadd(-1014.5, 497.5, 527.5, 1)
pt3dadd(-1008.5, 493.5, 564.5, 1.5)
}
dend[391] {pt3dclear()
pt3dadd(-496.5, 274.5, 85.5, 3)
pt3dadd(-506, 276, 84, 1.3)
pt3dadd(-512, 280, 90, 1.7)
pt3dadd(-520, 283, 93, 1.1)
pt3dadd(-528, 285.5, 91.5, 1.4)
pt3dadd(-533, 290.5, 92, 1.5)
pt3dadd(-539.5, 295, 95, 1.1)
pt3dadd(-546, 298.5, 104.5, 1.1)
pt3dadd(-553, 302, 105, 1.4)
pt3dadd(-561, 305, 105.5, 0.9)
pt3dadd(-572.5, 305, 109, 1.1)
pt3dadd(-581.5, 306, 109.5, 1.1)
pt3dadd(-591.5, 306.5, 113, 0.9)
pt3dadd(-601, 307, 113.5, 1.7)
pt3dadd(-610.5, 310, 116.5, 0.6)
pt3dadd(-620, 313, 117, 0.6)
pt3dadd(-628.5, 315.5, 123.5, 0.9)
pt3dadd(-634.5, 317, 124, 1.1)
pt3dadd(-643, 319.5, 128.5, 0.7)
pt3dadd(-652.5, 321.5, 142, 1)
pt3dadd(-665, 321.5, 151, 1.4)
pt3dadd(-673.5, 323.5, 150, 1.1)
pt3dadd(-683, 327, 151.5, 1)
pt3dadd(-692, 328, 152.5, 1.1)
pt3dadd(-701, 330, 159, 1)
pt3dadd(-710, 331, 172, 1.1)
pt3dadd(-718.5, 334.5, 163.5, 0.7)
pt3dadd(-730, 335, 165, 0.7)
pt3dadd(-737.5, 338.5, 174, 1.1)
pt3dadd(-745.5, 343, 174, 0.7)
pt3dadd(-755.5, 344.5, 174, 0.8)
pt3dadd(-766, 347.5, 168, 0.8)
pt3dadd(-772.5, 352.5, 168, 0.9)
pt3dadd(-777, 358.5, 166, 0.7)
pt3dadd(-782.5, 364.5, 174, 0.9)
}
dend[392] {pt3dclear()
pt3dadd(-449.5, 245.5, 45, 4.8)
pt3dadd(-458, 243.5, 24, 1.7)
}
dend[393] {pt3dclear()
pt3dadd(-197, 80.5, -29, 6.1)
pt3dadd(-205, 77.5, -40.5, 3.7)
pt3dadd(-214.5, 80, -39, 3.7)
pt3dadd(-224.5, 83.5, -50.5, 3.3)
pt3dadd(-238, 83.5, -54, 4)
pt3dadd(-248, 83.5, -54, 4.5)
pt3dadd(-255.5, 87, -75, 3.9)
pt3dadd(-267.5, 87, -72.5, 3.7)
pt3dadd(-277.5, 85.5, -73.5, 3.7)
pt3dadd(-289.5, 85.5, -77.5, 3.4)
pt3dadd(-298, 83, -78, 3.9)
pt3dadd(-311, 83, -75.5, 3.6)
pt3dadd(-320, 81, -70, 4.1)
pt3dadd(-332, 84, -74.5, 2.8)
pt3dadd(-340.5, 88, -81.5, 3.2)
pt3dadd(-351, 88, -85.5, 2.3)
pt3dadd(-360.5, 92.5, -80.5, 2.5)
pt3dadd(-367.5, 96.5, -84.5, 3)
pt3dadd(-376, 102, -85, 2.7)
pt3dadd(-385, 103.5, -92, 3.1)
pt3dadd(-392, 109.5, -102.5, 2.9)
pt3dadd(-398.5, 115.5, -100, 2.8)
pt3dadd(-405, 120, -100.5, 2.8)
pt3dadd(-411.5, 125.5, -101, 2.2)
pt3dadd(-418.5, 131.5, -98.5, 2.7)
pt3dadd(-424, 136.5, -99, 3.1)
pt3dadd(-429.5, 142, -99.5, 2.6)
pt3dadd(-434.5, 147, -100, 3.2)
pt3dadd(-439.5, 153, -97, 2.5)
pt3dadd(-443.5, 158, -97.5, 4.8)
}
dend[394] {pt3dclear()
pt3dadd(-443.5, 158, -97.5, 4.8)
pt3dadd(-448.5, 166, -104, 1.8)
pt3dadd(-454, 174.5, -101, 2.6)
pt3dadd(-459, 181.5, -101, 2)
pt3dadd(-465, 187, -101, 1.7)
pt3dadd(-472, 192, -101.5, 1.7)
pt3dadd(-478, 198.5, -101.5, 2.6)
pt3dadd(-484.5, 203.5, -101.5, 2.8)
pt3dadd(-489, 210.5, -101.5, 2.5)
pt3dadd(-493, 217.5, -107.5, 2.2)
pt3dadd(-496, 227.5, -107.5, 1.9)
pt3dadd(-500.5, 233.5, -114.5, 1.7)
pt3dadd(-504.5, 241, -117.5, 1.7)
pt3dadd(-514.5, 243, -114.5, 2)
pt3dadd(-520, 248.5, -114.5, 2.2)
pt3dadd(-527, 252.5, -114.5, 1.8)
pt3dadd(-535, 256, -117.5, 2.2)
pt3dadd(-544, 259, -117.5, 1.7)
pt3dadd(-552.5, 260.5, -118, 2.5)
pt3dadd(-558, 265, -118, 1.6)
pt3dadd(-568.5, 266.5, -115, 1.9)
pt3dadd(-578.5, 268, -118, 2.2)
pt3dadd(-587.5, 270.5, -121, 2)
pt3dadd(-596.5, 274.5, -118.5, 1.2)
pt3dadd(-605, 276.5, -118.5, 1.6)
pt3dadd(-616, 277.5, -112, 2)
pt3dadd(-624, 274.5, -124.5, 1.3)
pt3dadd(-633.5, 277.5, -128, 2)
pt3dadd(-642, 281, -125, 1.7)
pt3dadd(-650.5, 283, -132.5, 1.4)
pt3dadd(-660.5, 285.5, -137.5, 2.3)
pt3dadd(-667.5, 288.5, -138.5, 1.6)
pt3dadd(-675.5, 291, -140, 1.6)
pt3dadd(-684, 292.5, -141, 1.4)
pt3dadd(-694, 290, -142.5, 2.2)
pt3dadd(-703.5, 293.5, -147, 1.6)
pt3dadd(-711, 299.5, -143, 1.4)
pt3dadd(-720, 301, -141, 1.7)
pt3dadd(-730.5, 301, -153, 2.3)
pt3dadd(-740, 300.5, -148, 1.7)
pt3dadd(-753, 300.5, -156.5, 1.5)
pt3dadd(-763, 302.5, -161, 1.5)
pt3dadd(-775.5, 305.5, -162.5, 1.3)
pt3dadd(-785.5, 305, -161.5, 1.2)
pt3dadd(-794.5, 306.5, -162.5, 1.2)
pt3dadd(-804.5, 307, -162, 1.1)
pt3dadd(-809.5, 312, -166.5, 1.1)
pt3dadd(-820, 312, -175, 0.6)
}
dend[395] {pt3dclear()
pt3dadd(-443.5, 158, -97.5, 4.8)
pt3dadd(-454.5, 164, -106.5, 1.7)
pt3dadd(-465.5, 164.5, -102.5, 2.3)
pt3dadd(-474, 167, -111, 2.3)
pt3dadd(-484, 170, -116, 1.7)
pt3dadd(-496, 170, -125, 1.7)
pt3dadd(-503.5, 174.5, -127, 2.3)
pt3dadd(-512, 176, -129.5, 2.1)
pt3dadd(-520.5, 174.5, -145, 1.2)
pt3dadd(-527.5, 179.5, -140.5, 1.8)
pt3dadd(-537, 180.5, -147, 2)
pt3dadd(-540.5, 181, -144.5, 3.1)
}
dend[396] {pt3dclear()
pt3dadd(-540.5, 181, -144.5, 3.1)
pt3dadd(-548, 185, -156, 1.6)
pt3dadd(-555.5, 188, -173, 1.6)
pt3dadd(-560.5, 188, -175, 1.9)
pt3dadd(-567.5, 191.5, -176, 1.1)
pt3dadd(-571.5, 198.5, -183, 2)
pt3dadd(-582, 198, -184, 1.2)
pt3dadd(-589.5, 201.5, -184.5, 1.9)
pt3dadd(-594, 208, -189, 1.5)
pt3dadd(-602.5, 209.5, -192.5, 1.4)
pt3dadd(-612, 207.5, -199.5, 1.3)
pt3dadd(-623.5, 208, -200.5, 1.3)
pt3dadd(-632.5, 205, -192.5, 1.1)
pt3dadd(-640, 202, -196.5, 1.9)
pt3dadd(-651.5, 199.5, -194, 1.3)
pt3dadd(-661, 201.5, -198, 2.1)
pt3dadd(-670.5, 203, -205, 1.3)
pt3dadd(-681.5, 201, -206.5, 1)
pt3dadd(-689, 204, -204, 0.9)
pt3dadd(-694.5, 209, -207.5, 1.3)
pt3dadd(-706.5, 209, -205.5, 1.3)
pt3dadd(-713, 212.5, -212.5, 1.3)
pt3dadd(-722.5, 214.5, -213.5, 1.1)
pt3dadd(-732, 215.5, -210.5, 2.1)
pt3dadd(-738.5, 219.5, -217.5, 1.5)
pt3dadd(-744.5, 223.5, -218, 1.1)
pt3dadd(-752.5, 230, -219, 0.9)
pt3dadd(-759.5, 233, -219.5, 1.6)
pt3dadd(-765.5, 237.5, -227, 2)
pt3dadd(-776, 236.5, -225, 1.4)
}
dend[397] {pt3dclear()
pt3dadd(-540.5, 181, -144.5, 3.1)
pt3dadd(-549, 177.5, -157, 1.3)
pt3dadd(-560, 177, -159, 0.8)
pt3dadd(-566, 170.5, -166.5, 1.9)
pt3dadd(-567.5, 167.5, -175, 1.6)
pt3dadd(-576, 165.5, -178, 0.9)
pt3dadd(-587, 161, -178, 0.9)
pt3dadd(-596, 159.5, -178, 1.1)
pt3dadd(-601.5, 155, -178, 1.7)
pt3dadd(-609, 150.5, -178, 0.9)
pt3dadd(-615, 145.5, -181, 0.7)
pt3dadd(-621, 141, -178, 1.9)
}
}
proc shape3d_44() {
dend[397] { pt3dadd(-630.5, 137, -178, 0.9)
pt3dadd(-639.5, 134.5, -178, 1.4)
pt3dadd(-648, 130.5, -178, 0.8)
pt3dadd(-654, 125.5, -181, 0.9)
pt3dadd(-660.5, 119.5, -181, 0.9)
pt3dadd(-667.5, 114.5, -187.5, 0.9)
pt3dadd(-677, 110.5, -184, 0.7)
pt3dadd(-686.5, 109, -184, 1.6)
pt3dadd(-695, 106, -181, 1.6)
pt3dadd(-704, 104.5, -178, 1.9)
pt3dadd(-712.5, 102.5, -184, 1)
pt3dadd(-722.5, 100.5, -181, 1.9)
pt3dadd(-731.5, 102.5, -181, 0.8)
pt3dadd(-740, 100.5, -184, 0.8)
pt3dadd(-750, 99.5, -184, 0.8)
pt3dadd(-758, 97.5, -181, 1.4)
pt3dadd(-767, 96, -181, 1.3)
pt3dadd(-774.5, 94.5, -175, 0.7)
pt3dadd(-777.5, 87.5, -169.5, 2.6)
pt3dadd(-781, 77.5, -160, 2.4)
pt3dadd(-780, 68, -160, 2.1)
pt3dadd(-775.5, 60.5, -154, 3)
pt3dadd(-773, 53, -144, 3)
pt3dadd(-771, 45, -135, 2.3)
pt3dadd(-771, 35, -135.5, 2.9)
pt3dadd(-773, 30, -125, 2.9)
pt3dadd(-769.5, 21.5, -119.5, 2.3)
pt3dadd(-762.5, 26, -111.5, 2.2)
pt3dadd(-758.5, 17.5, -102, 3.1)
pt3dadd(-752.5, 11.5, -100, 2)
pt3dadd(-742, 7.5, -96.5, 1.6)
pt3dadd(-741, -4, -84.5, 2.5)
pt3dadd(-744.5, -7, -75, 2.3)
pt3dadd(-737.5, -12.5, -65.5, 1.5)
pt3dadd(-742, -18.5, -38, 1.6)
pt3dadd(-747, -24.5, -34, 1.3)
pt3dadd(-749.5, -25.5, -25, 1.3)
pt3dadd(-754.5, -32.5, -18.5, 2.2)
pt3dadd(-762, -39.5, -11.5, 2.2)
pt3dadd(-768.5, -45, -7, 2)
pt3dadd(-767, -55.5, -5.5, 1.3)
pt3dadd(-766, -66, 1, 1.5)
pt3dadd(-760.5, -72.5, 6, 1.4)
pt3dadd(-755.5, -77.5, 7.5, 1.1)
pt3dadd(-750.5, -82.5, 8, 1.4)
pt3dadd(-747, -90.5, 9, 1.4)
pt3dadd(-745.5, -99, 10, 1.6)
pt3dadd(-742.5, -107.5, 21, 1.6)
pt3dadd(-745, -116, 18, 1.3)
pt3dadd(-744, -125, 19.5, 1.4)
pt3dadd(-740.5, -134, 21, 1.1)
pt3dadd(-737, -142, 22, 1.5)
pt3dadd(-734.5, -143, 25, 1.2)
pt3dadd(-733, -151.5, 48, 1.1)
pt3dadd(-727, -158.5, 75, 2)
pt3dadd(-729, -166.5, 82.5, 1.5)
pt3dadd(-733.5, -172, 86, 1.1)
pt3dadd(-737, -178.5, 89.5, 1.3)
pt3dadd(-740, -186, 95.5, 1.1)
pt3dadd(-745.5, -191.5, 101.5, 1.2)
pt3dadd(-742, -199, 103, 1.3)
pt3dadd(-745.5, -205.5, 107, 0.8)
pt3dadd(-754, -217.5, 120, 1.1)
pt3dadd(-760, -222.5, 124, 1.1)
pt3dadd(-764.5, -223.5, 125, 1)
pt3dadd(-773.5, -224.5, 121, 1)
pt3dadd(-783, -222.5, 153, 1.8)
pt3dadd(-788, -228, 162, 1.1)
pt3dadd(-797.5, -226, 161.5, 1)
pt3dadd(-805, -230.5, 173, 1.2)
pt3dadd(-812.5, -230.5, 175, 1.8)
pt3dadd(-818.5, -226.5, 171.5, 1.2)
pt3dadd(-824, -222, 181.5, 1.2)
pt3dadd(-828, -215, 183, 1)
pt3dadd(-833.5, -220, 193.5, 0.8)
pt3dadd(-840, -223.5, 202, 1.1)
pt3dadd(-847.5, -227, 204.5, 1.4)
pt3dadd(-846.5, -236.5, 213, 0.7)
pt3dadd(-843.5, -245, 217, 0.9)
pt3dadd(-841.5, -253, 218.5, 0.8)
pt3dadd(-841.5, -257.5, 225, 0.9)
pt3dadd(-843.5, -265.5, 234.5, 0.9)
pt3dadd(-845, -274, 249, 2.2)
pt3dadd(-843.5, -283.5, 242, 0.8)
pt3dadd(-846.5, -292.5, 271, 0.9)
pt3dadd(-852.5, -287, 270.5, 1.3)
pt3dadd(-855.5, -287, 275, 1.3)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
shape3d_14()
shape3d_15()
shape3d_16()
shape3d_17()
shape3d_18()
shape3d_19()
shape3d_20()
shape3d_21()
shape3d_22()
shape3d_23()
shape3d_24()
shape3d_25()
shape3d_26()
shape3d_27()
shape3d_28()
shape3d_29()
shape3d_30()
shape3d_31()
shape3d_32()
shape3d_33()
shape3d_34()
shape3d_35()
shape3d_36()
shape3d_37()
shape3d_38()
shape3d_39()
shape3d_40()
shape3d_41()
shape3d_42()
shape3d_43()
shape3d_44()
}
access soma
celldef()