proc celldef() {
topol()
}
create soma[1], dend[833]
proc topol() { local i
connect dend(0), soma(1)
for i = 1, 5 connect dend[i](0), dend[i-1](1)
connect dend[6](0), dend[4](1)
for i = 7, 8 connect dend[i](0), dend[6](1)
connect dend[9](0), dend[3](1)
for i = 10, 11 connect dend[i](0), dend[9](1)
connect dend[12](0), dend[2](1)
for i = 13, 17 connect dend[i](0), dend[i-1](1)
connect dend[18](0), dend[16](1)
for i = 19, 20 connect dend[i](0), dend[18](1)
connect dend[21](0), dend[15](1)
connect dend[22](0), dend[14](1)
for i = 23, 24 connect dend[i](0), dend[i-1](1)
connect dend[25](0), dend[23](1)
connect dend[26](0), dend[22](1)
connect dend[27](0), dend[13](1)
for i = 28, 29 connect dend[i](0), dend[i-1](1)
connect dend[30](0), dend[28](1)
for i = 31, 32 connect dend[i](0), dend[30](1)
for i = 33, 35 connect dend[i](0), dend[i-1](1)
connect dend[36](0), dend[34](1)
connect dend[37](0), dend[33](1)
for i = 38, 39 connect dend[i](0), dend[37](1)
connect dend[40](0), dend[32](1)
for i = 41, 43 connect dend[i](0), dend[i-1](1)
connect dend[44](0), dend[42](1)
for i = 45, 46 connect dend[i](0), dend[44](1)
connect dend[47](0), dend[41](1)
for i = 48, 49 connect dend[i](0), dend[47](1)
for i = 50, 51 connect dend[i](0), dend[49](1)
connect dend[52](0), dend[40](1)
connect dend[53](0), dend[27](1)
for i = 54, 56 connect dend[i](0), dend[i-1](1)
connect dend[57](0), dend[55](1)
connect dend[58](0), dend[54](1)
for i = 59, 60 connect dend[i](0), dend[i-1](1)
connect dend[61](0), dend[59](1)
connect dend[62](0), dend[58](1)
for i = 63, 64 connect dend[i](0), dend[i-1](1)
connect dend[65](0), dend[63](1)
for i = 66, 67 connect dend[i](0), dend[65](1)
connect dend[68](0), dend[62](1)
for i = 69, 70 connect dend[i](0), dend[i-1](1)
connect dend[71](0), dend[69](1)
connect dend[72](0), dend[68](1)
for i = 73, 74 connect dend[i](0), dend[72](1)
connect dend[75](0), dend[53](1)
connect dend[76](0), dend[12](1)
for i = 77, 79 connect dend[i](0), dend[i-1](1)
connect dend[80](0), dend[78](1)
connect dend[81](0), dend[77](1)
for i = 82, 83 connect dend[i](0), dend[81](1)
connect dend[84](0), dend[76](1)
for i = 85, 87 connect dend[i](0), dend[i-1](1)
connect dend[88](0), dend[86](1)
connect dend[89](0), dend[85](1)
for i = 90, 91 connect dend[i](0), dend[i-1](1)
connect dend[92](0), dend[90](1)
for i = 93, 94 connect dend[i](0), dend[92](1)
connect dend[95](0), dend[89](1)
for i = 96, 97 connect dend[i](0), dend[i-1](1)
connect dend[98](0), dend[96](1)
connect dend[99](0), dend[95](1)
for i = 100, 101 connect dend[i](0), dend[99](1)
connect dend[102](0), dend[84](1)
for i = 103, 107 connect dend[i](0), dend[i-1](1)
connect dend[108](0), dend[106](1)
connect dend[109](0), dend[105](1)
for i = 110, 111 connect dend[i](0), dend[109](1)
connect dend[112](0), dend[104](1)
for i = 113, 114 connect dend[i](0), dend[112](1)
for i = 115, 116 connect dend[i](0), dend[i-1](1)
connect dend[117](0), dend[115](1)
connect dend[118](0), dend[114](1)
connect dend[119](0), dend[103](1)
connect dend[120](0), dend[102](1)
for i = 121, 125 connect dend[i](0), dend[i-1](1)
connect dend[126](0), dend[124](1)
for i = 127, 128 connect dend[i](0), dend[126](1)
for i = 129, 130 connect dend[i](0), dend[128](1)
connect dend[131](0), dend[123](1)
connect dend[132](0), dend[122](1)
connect dend[133](0), dend[121](1)
for i = 134, 135 connect dend[i](0), dend[133](1)
for i = 136, 138 connect dend[i](0), dend[i-1](1)
connect dend[139](0), dend[137](1)
for i = 140, 141 connect dend[i](0), dend[i-1](1)
connect dend[142](0), dend[140](1)
for i = 143, 144 connect dend[i](0), dend[142](1)
for i = 145, 146 connect dend[i](0), dend[144](1)
for i = 147, 148 connect dend[i](0), dend[146](1)
connect dend[149](0), dend[139](1)
for i = 150, 151 connect dend[i](0), dend[149](1)
for i = 152, 153 connect dend[i](0), dend[151](1)
connect dend[154](0), dend[136](1)
for i = 155, 156 connect dend[i](0), dend[i-1](1)
connect dend[157](0), dend[155](1)
for i = 158, 159 connect dend[i](0), dend[157](1)
connect dend[160](0), dend[154](1)
for i = 161, 163 connect dend[i](0), dend[i-1](1)
connect dend[164](0), dend[162](1)
for i = 165, 166 connect dend[i](0), dend[164](1)
connect dend[167](0), dend[161](1)
connect dend[168](0), dend[160](1)
connect dend[169](0), dend[135](1)
connect dend[170](0), dend[120](1)
for i = 171, 172 connect dend[i](0), dend[i-1](1)
connect dend[173](0), dend[171](1)
for i = 174, 176 connect dend[i](0), dend[i-1](1)
connect dend[177](0), dend[175](1)
for i = 178, 181 connect dend[i](0), dend[i-1](1)
connect dend[182](0), dend[180](1)
connect dend[183](0), dend[179](1)
connect dend[184](0), dend[178](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), dend[177](1)
for i = 192, 193 connect dend[i](0), dend[191](1)
connect dend[194](0), dend[174](1)
for i = 195, 196 connect dend[i](0), dend[i-1](1)
connect dend[197](0), dend[195](1)
for i = 198, 200 connect dend[i](0), dend[i-1](1)
connect dend[201](0), dend[199](1)
connect dend[202](0), dend[198](1)
connect dend[203](0), dend[197](1)
connect dend[204](0), dend[194](1)
for i = 205, 206 connect dend[i](0), dend[204](1)
for i = 207, 208 connect dend[i](0), dend[i-1](1)
connect dend[209](0), dend[207](1)
for i = 210, 211 connect dend[i](0), dend[209](1)
connect dend[212](0), dend[206](1)
for i = 213, 214 connect dend[i](0), dend[212](1)
for i = 215, 216 connect dend[i](0), dend[214](1)
connect dend[217](0), dend[173](1)
for i = 218, 220 connect dend[i](0), dend[i-1](1)
connect dend[221](0), dend[219](1)
connect dend[222](0), dend[218](1)
for i = 223, 224 connect dend[i](0), dend[222](1)
for i = 225, 228 connect dend[i](0), dend[i-1](1)
connect dend[229](0), dend[227](1)
connect dend[230](0), dend[226](1)
for i = 231, 232 connect dend[i](0), dend[230](1)
for i = 233, 234 connect dend[i](0), dend[232](1)
connect dend[235](0), dend[225](1)
for i = 236, 237 connect dend[i](0), dend[235](1)
for i = 238, 239 connect dend[i](0), dend[237](1)
connect dend[240](0), dend[224](1)
connect dend[241](0), dend[217](1)
for i = 242, 243 connect dend[i](0), dend[i-1](1)
connect dend[244](0), dend[242](1)
for i = 245, 246 connect dend[i](0), dend[i-1](1)
connect dend[247](0), dend[245](1)
connect dend[248](0), dend[244](1)
connect dend[249](0), dend[241](1)
for i = 250, 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, 262 connect dend[i](0), dend[i-1](1)
connect dend[263](0), dend[261](1)
for i = 264, 265 connect dend[i](0), dend[263](1)
for i = 266, 267 connect dend[i](0), dend[265](1)
connect dend[268](0), dend[260](1)
for i = 269, 270 connect dend[i](0), dend[i-1](1)
connect dend[271](0), dend[269](1)
for i = 272, 273 connect dend[i](0), dend[271](1)
for i = 274, 275 connect dend[i](0), dend[273](1)
connect dend[276](0), dend[268](1)
for i = 277, 278 connect dend[i](0), dend[276](1)
connect dend[279](0), dend[259](1)
for i = 280, 283 connect dend[i](0), dend[i-1](1)
connect dend[284](0), dend[282](1)
connect dend[285](0), dend[281](1)
for i = 286, 287 connect dend[i](0), dend[285](1)
connect dend[288](0), dend[280](1)
for i = 289, 290 connect dend[i](0), dend[i-1](1)
connect dend[291](0), dend[289](1)
for i = 292, 293 connect dend[i](0), dend[291](1)
connect dend[294](0), dend[288](1)
for i = 295, 296 connect dend[i](0), dend[i-1](1)
connect dend[297](0), dend[295](1)
connect dend[298](0), dend[294](1)
connect dend[299](0), dend[279](1)
for i = 300, 301 connect dend[i](0), dend[i-1](1)
connect dend[302](0), dend[300](1)
for i = 303, 304 connect dend[i](0), dend[302](1)
for i = 305, 306 connect dend[i](0), dend[304](1)
connect dend[307](0), dend[299](1)
for i = 308, 311 connect dend[i](0), dend[i-1](1)
connect dend[312](0), dend[310](1)
for i = 313, 314 connect dend[i](0), dend[312](1)
connect dend[315](0), dend[309](1)
connect dend[316](0), dend[308](1)
for i = 317, 318 connect dend[i](0), dend[316](1)
connect dend[319](0), dend[307](1)
topol_1()
}
proc topol_1() {
for i = 320, 321 connect dend[i](0), dend[319](1)
connect dend[322](0), dend[170](1)
for i = 323, 324 connect dend[i](0), dend[i-1](1)
connect dend[325](0), dend[323](1)
for i = 326, 327 connect dend[i](0), dend[i-1](1)
connect dend[328](0), dend[326](1)
connect dend[329](0), dend[325](1)
for i = 330, 331 connect dend[i](0), dend[329](1)
connect dend[332](0), dend[322](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)
for i = 340, 341 connect dend[i](0), dend[339](1)
connect dend[342](0), dend[332](1)
for i = 343, 344 connect dend[i](0), dend[i-1](1)
connect dend[345](0), dend[343](1)
for i = 346, 347 connect dend[i](0), dend[345](1)
connect dend[348](0), dend[342](1)
for i = 349, 350 connect dend[i](0), dend[i-1](1)
connect dend[351](0), dend[349](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)
for i = 358, 359 connect dend[i](0), dend[i-1](1)
connect dend[360](0), dend[358](1)
connect dend[361](0), dend[357](1)
for i = 362, 363 connect dend[i](0), dend[361](1)
connect dend[364](0), dend[348](1)
for i = 365, 366 connect dend[i](0), dend[i-1](1)
connect dend[367](0), dend[365](1)
connect dend[368](0), dend[364](1)
for i = 369, 370 connect dend[i](0), dend[i-1](1)
connect dend[371](0), dend[369](1)
connect dend[372](0), dend[368](1)
for i = 373, 376 connect dend[i](0), dend[i-1](1)
connect dend[377](0), dend[375](1)
connect dend[378](0), dend[374](1)
connect dend[379](0), dend[373](1)
for i = 380, 382 connect dend[i](0), dend[i-1](1)
connect dend[383](0), dend[381](1)
connect dend[384](0), dend[380](1)
connect dend[385](0), dend[379](1)
for i = 386, 387 connect dend[i](0), dend[385](1)
connect dend[388](0), dend[372](1)
for i = 389, 391 connect dend[i](0), dend[i-1](1)
connect dend[392](0), dend[390](1)
for i = 393, 394 connect dend[i](0), dend[392](1)
for i = 395, 396 connect dend[i](0), dend[394](1)
connect dend[397](0), dend[389](1)
for i = 398, 399 connect dend[i](0), dend[i-1](1)
connect dend[400](0), dend[398](1)
connect dend[401](0), dend[397](1)
for i = 402, 406 connect dend[i](0), dend[i-1](1)
connect dend[407](0), dend[405](1)
connect dend[408](0), dend[404](1)
connect dend[409](0), dend[403](1)
for i = 410, 411 connect dend[i](0), dend[409](1)
for i = 412, 413 connect dend[i](0), dend[411](1)
connect dend[414](0), dend[402](1)
for i = 415, 417 connect dend[i](0), dend[i-1](1)
connect dend[418](0), dend[416](1)
for i = 419, 420 connect dend[i](0), dend[418](1)
connect dend[421](0), dend[415](1)
for i = 422, 423 connect dend[i](0), dend[421](1)
connect dend[424](0), dend[414](1)
for i = 425, 426 connect dend[i](0), dend[i-1](1)
connect dend[427](0), dend[425](1)
connect dend[428](0), dend[424](1)
connect dend[429](0), dend[401](1)
for i = 430, 431 connect dend[i](0), dend[i-1](1)
connect dend[432](0), dend[430](1)
connect dend[433](0), dend[429](1)
for i = 434, 435 connect dend[i](0), dend[433](1)
for i = 436, 438 connect dend[i](0), dend[i-1](1)
connect dend[439](0), dend[437](1)
connect dend[440](0), dend[436](1)
connect dend[441](0), dend[435](1)
connect dend[442](0), dend[388](1)
for i = 443, 445 connect dend[i](0), dend[i-1](1)
connect dend[446](0), dend[444](1)
connect dend[447](0), dend[443](1)
for i = 448, 449 connect dend[i](0), dend[447](1)
for i = 450, 451 connect dend[i](0), dend[i-1](1)
connect dend[452](0), dend[450](1)
connect dend[453](0), dend[449](1)
connect dend[454](0), dend[442](1)
for i = 455, 456 connect dend[i](0), dend[i-1](1)
connect dend[457](0), dend[455](1)
connect dend[458](0), dend[454](1)
connect dend[459](0), dend[1](1)
for i = 460, 461 connect dend[i](0), dend[i-1](1)
connect dend[462](0), dend[460](1)
connect dend[463](0), dend[459](1)
for i = 464, 465 connect dend[i](0), dend[463](1)
for i = 466, 468 connect dend[i](0), dend[i-1](1)
connect dend[469](0), dend[467](1)
connect dend[470](0), dend[466](1)
for i = 471, 472 connect dend[i](0), dend[470](1)
for i = 473, 474 connect dend[i](0), dend[472](1)
connect dend[475](0), dend[465](1)
for i = 476, 477 connect dend[i](0), dend[475](1)
for i = 478, 479 connect dend[i](0), dend[477](1)
for i = 480, 481 connect dend[i](0), dend[479](1)
for i = 482, 483 connect dend[i](0), dend[481](1)
for i = 484, 485 connect dend[i](0), dend[483](1)
for i = 486, 487 connect dend[i](0), dend[485](1)
connect dend[488](0), dend(1)
for i = 489, 490 connect dend[i](0), dend[488](1)
for i = 491, 493 connect dend[i](0), dend[i-1](1)
connect dend[494](0), dend[492](1)
for i = 495, 496 connect dend[i](0), dend[494](1)
connect dend[497](0), dend[491](1)
for i = 498, 500 connect dend[i](0), dend[i-1](1)
connect dend[501](0), dend[499](1)
connect dend[502](0), dend[498](1)
for i = 503, 504 connect dend[i](0), dend[i-1](1)
connect dend[505](0), dend[503](1)
for i = 506, 507 connect dend[i](0), dend[505](1)
connect dend[508](0), dend[502](1)
for i = 509, 510 connect dend[i](0), dend[508](1)
for i = 511, 512 connect dend[i](0), dend[i-1](1)
connect dend[513](0), dend[511](1)
for i = 514, 515 connect dend[i](0), dend[513](1)
connect dend[516](0), dend[510](1)
for i = 517, 518 connect dend[i](0), dend[516](1)
connect dend[519](0), dend[497](1)
for i = 520, 522 connect dend[i](0), dend[i-1](1)
connect dend[523](0), dend[521](1)
for i = 524, 525 connect dend[i](0), dend[523](1)
connect dend[526](0), dend[520](1)
connect dend[527](0), dend[519](1)
for i = 528, 529 connect dend[i](0), dend[i-1](1)
connect dend[530](0), dend[528](1)
for i = 531, 532 connect dend[i](0), dend[530](1)
connect dend[533](0), dend[527](1)
for i = 534, 535 connect dend[i](0), dend[i-1](1)
connect dend[536](0), dend[534](1)
for i = 537, 538 connect dend[i](0), dend[536](1)
connect dend[539](0), dend[533](1)
for i = 540, 541 connect dend[i](0), dend[539](1)
for i = 542, 544 connect dend[i](0), dend[i-1](1)
connect dend[545](0), dend[543](1)
for i = 546, 547 connect dend[i](0), dend[i-1](1)
connect dend[548](0), dend[546](1)
connect dend[549](0), dend[545](1)
for i = 550, 551 connect dend[i](0), dend[549](1)
connect dend[552](0), dend[542](1)
for i = 553, 554 connect dend[i](0), dend[552](1)
connect dend[555](0), dend[541](1)
for i = 556, 558 connect dend[i](0), dend[i-1](1)
connect dend[559](0), dend[557](1)
connect dend[560](0), dend[556](1)
for i = 561, 563 connect dend[i](0), dend[i-1](1)
connect dend[564](0), dend[562](1)
for i = 565, 566 connect dend[i](0), dend[564](1)
for i = 567, 568 connect dend[i](0), dend[566](1)
for i = 569, 570 connect dend[i](0), dend[i-1](1)
connect dend[571](0), dend[569](1)
connect dend[572](0), dend[568](1)
connect dend[573](0), dend[561](1)
connect dend[574](0), dend[560](1)
for i = 575, 578 connect dend[i](0), dend[i-1](1)
connect dend[579](0), dend[577](1)
for i = 580, 581 connect dend[i](0), dend[579](1)
connect dend[582](0), dend[576](1)
connect dend[583](0), dend[575](1)
for i = 584, 585 connect dend[i](0), dend[i-1](1)
connect dend[586](0), dend[584](1)
connect dend[587](0), dend[583](1)
for i = 588, 589 connect dend[i](0), dend[587](1)
connect dend[590](0), dend[574](1)
for i = 591, 593 connect dend[i](0), dend[i-1](1)
connect dend[594](0), dend[592](1)
connect dend[595](0), dend[591](1)
for i = 596, 597 connect dend[i](0), dend[595](1)
connect dend[598](0), dend[590](1)
for i = 599, 600 connect dend[i](0), dend[598](1)
for i = 601, 602 connect dend[i](0), dend[600](1)
connect dend[603](0), dend[555](1)
for i = 604, 605 connect dend[i](0), dend[i-1](1)
connect dend[606](0), dend[604](1)
connect dend[607](0), dend[603](1)
for i = 608, 609 connect dend[i](0), dend[607](1)
connect dend[610](0), dend[490](1)
for i = 611, 612 connect dend[i](0), dend[i-1](1)
connect dend[613](0), dend[611](1)
for i = 614, 616 connect dend[i](0), dend[i-1](1)
connect dend[617](0), dend[615](1)
for i = 618, 619 connect dend[i](0), dend[617](1)
connect dend[620](0), dend[614](1)
for i = 621, 622 connect dend[i](0), dend[620](1)
for i = 623, 624 connect dend[i](0), dend[622](1)
connect dend[625](0), dend[613](1)
for i = 626, 627 connect dend[i](0), dend[625](1)
for i = 628, 629 connect dend[i](0), dend[627](1)
for i = 630, 631 connect dend[i](0), dend[629](1)
connect dend[632](0), dend[610](1)
for i = 633, 634 connect dend[i](0), dend[632](1)
topol_2()
}
proc topol_2() {
for i = 635, 636 connect dend[i](0), dend[i-1](1)
connect dend[637](0), dend[635](1)
connect dend[638](0), dend[634](1)
for i = 639, 640 connect dend[i](0), dend[i-1](1)
connect dend[641](0), dend[639](1)
for i = 642, 643 connect dend[i](0), dend[i-1](1)
connect dend[644](0), dend[642](1)
connect dend[645](0), dend[641](1)
for i = 646, 647 connect dend[i](0), dend[645](1)
for i = 648, 649 connect dend[i](0), dend[647](1)
for i = 650, 652 connect dend[i](0), dend[i-1](1)
connect dend[653](0), dend[651](1)
connect dend[654](0), dend[650](1)
for i = 655, 656 connect dend[i](0), dend[654](1)
connect dend[657](0), dend[649](1)
for i = 658, 659 connect dend[i](0), dend[657](1)
for i = 660, 661 connect dend[i](0), dend[659](1)
connect dend[662](0), dend[638](1)
for i = 663, 664 connect dend[i](0), dend[i-1](1)
connect dend[665](0), dend[663](1)
for i = 666, 667 connect dend[i](0), dend[i-1](1)
connect dend[668](0), dend[666](1)
for i = 669, 670 connect dend[i](0), dend[668](1)
connect dend[671](0), dend[665](1)
for i = 672, 674 connect dend[i](0), dend[i-1](1)
connect dend[675](0), dend[673](1)
connect dend[676](0), dend[672](1)
connect dend[677](0), dend[671](1)
for i = 678, 679 connect dend[i](0), dend[i-1](1)
connect dend[680](0), dend[678](1)
for i = 681, 682 connect dend[i](0), dend[680](1)
for i = 683, 684 connect dend[i](0), dend[682](1)
connect dend[685](0), dend[677](1)
for i = 686, 687 connect dend[i](0), dend[i-1](1)
connect dend[688](0), dend[686](1)
connect dend[689](0), dend[685](1)
for i = 690, 692 connect dend[i](0), dend[i-1](1)
connect dend[693](0), dend[691](1)
for i = 694, 695 connect dend[i](0), dend[693](1)
for i = 696, 697 connect dend[i](0), dend[695](1)
connect dend[698](0), dend[690](1)
connect dend[699](0), dend[689](1)
for i = 700, 704 connect dend[i](0), dend[i-1](1)
connect dend[705](0), dend[703](1)
connect dend[706](0), dend[702](1)
for i = 707, 709 connect dend[i](0), dend[i-1](1)
connect dend[710](0), dend[708](1)
connect dend[711](0), dend[707](1)
for i = 712, 713 connect dend[i](0), dend[711](1)
connect dend[714](0), dend[706](1)
for i = 715, 716 connect dend[i](0), dend[714](1)
connect dend[717](0), dend[701](1)
connect dend[718](0), dend[700](1)
for i = 719, 720 connect dend[i](0), dend[i-1](1)
connect dend[721](0), dend[719](1)
connect dend[722](0), dend[718](1)
for i = 723, 724 connect dend[i](0), dend[722](1)
for i = 725, 726 connect dend[i](0), dend[724](1)
connect dend[727](0), dend[699](1)
for i = 728, 729 connect dend[i](0), dend[727](1)
for i = 730, 731 connect dend[i](0), dend[729](1)
for i = 732, 735 connect dend[i](0), dend[i-1](1)
connect dend[736](0), dend[734](1)
connect dend[737](0), dend[733](1)
for i = 738, 739 connect dend[i](0), dend[737](1)
for i = 740, 741 connect dend[i](0), dend[739](1)
connect dend[742](0), dend[732](1)
for i = 743, 744 connect dend[i](0), dend[742](1)
for i = 745, 746 connect dend[i](0), dend[744](1)
connect dend[747](0), dend[731](1)
for i = 748, 749 connect dend[i](0), dend[747](1)
for i = 750, 751 connect dend[i](0), dend[749](1)
connect dend[752](0), dend[662](1)
for i = 753, 756 connect dend[i](0), dend[i-1](1)
connect dend[757](0), dend[755](1)
connect dend[758](0), dend[754](1)
for i = 759, 760 connect dend[i](0), dend[758](1)
connect dend[761](0), dend[753](1)
connect dend[762](0), dend[752](1)
for i = 763, 764 connect dend[i](0), dend[i-1](1)
connect dend[765](0), dend[763](1)
for i = 766, 767 connect dend[i](0), dend[i-1](1)
connect dend[768](0), dend[766](1)
connect dend[769](0), dend[765](1)
connect dend[770](0), dend[762](1)
for i = 771, 772 connect dend[i](0), dend[i-1](1)
connect dend[773](0), dend[771](1)
connect dend[774](0), dend[770](1)
for i = 775, 776 connect dend[i](0), dend[i-1](1)
connect dend[777](0), dend[775](1)
connect dend[778](0), dend[774](1)
for i = 779, 780 connect dend[i](0), dend[i-1](1)
connect dend[781](0), dend[779](1)
connect dend[782](0), dend[778](1)
for i = 783, 784 connect dend[i](0), dend[i-1](1)
connect dend[785](0), dend[783](1)
connect dend[786](0), dend[782](1)
for i = 787, 788 connect dend[i](0), dend[786](1)
for i = 789, 790 connect dend[i](0), dend[i-1](1)
connect dend[791](0), dend[789](1)
for i = 792, 794 connect dend[i](0), dend[i-1](1)
connect dend[795](0), dend[793](1)
connect dend[796](0), dend[792](1)
for i = 797, 798 connect dend[i](0), dend[796](1)
connect dend[799](0), dend[791](1)
for i = 800, 801 connect dend[i](0), dend[799](1)
for i = 802, 803 connect dend[i](0), dend[801](1)
for i = 804, 805 connect dend[i](0), dend[i-1](1)
connect dend[806](0), dend[804](1)
connect dend[807](0), dend[803](1)
connect dend[808](0), dend[788](1)
for i = 809, 810 connect dend[i](0), dend[i-1](1)
connect dend[811](0), dend[809](1)
for i = 812, 813 connect dend[i](0), dend[811](1)
for i = 814, 815 connect dend[i](0), dend[813](1)
connect dend[816](0), dend[808](1)
for i = 817, 818 connect dend[i](0), dend[i-1](1)
connect dend[819](0), dend[817](1)
connect dend[820](0), dend[816](1)
for i = 821, 822 connect dend[i](0), dend[820](1)
for i = 823, 824 connect dend[i](0), dend[822](1)
for i = 825, 827 connect dend[i](0), dend[i-1](1)
connect dend[828](0), dend[826](1)
connect dend[829](0), dend[825](1)
for i = 830, 831 connect dend[i](0), dend[829](1)
connect dend[832](0), dend[824](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(4, 18.5, 0.5, 22) // mod Ale: pt3dadd(4, 18.5, 0.5, 22) invece di pt3dadd(0, 0, 0, 0)
pt3dadd(4, -3.5, 0.5, 22) // mod Ale: pt3dadd(4, -3.5, 0.5, 22) invece di pt3dadd(4, -3.5, 0.5, 4.8)
}
dend {pt3dclear()
pt3dadd(4, -3.5, 0.5, 4.8)
pt3dadd(7, -7, 0.5, 4.8)
pt3dadd(9.5, -9, 0.5, 4.8)
pt3dadd(11.5, -12, 1.5, 6)
}
dend[1] {pt3dclear()
pt3dadd(11.5, -12, 1.5, 6)
pt3dadd(8.27297, -4.47026, 1.5, 6)
}
dend[2] {pt3dclear()
pt3dadd(8.27297, -4.47026, 1.5, 6)
pt3dadd(13, -15.5, 1.5, 7.9)
pt3dadd(38.5, -19.5, 6.5, 1.2)
}
dend[3] {pt3dclear()
pt3dadd(38.5, -19.5, 6.5, 1.2)
pt3dadd(44, -17, 6.5, 1.1)
pt3dadd(48.5, -17, 6.5, 1.1)
pt3dadd(52, -17, 6.5, 1.1)
pt3dadd(54.5, -16, 6.5, 1.2)
pt3dadd(57.5, -13.5, 6.5, 1.2)
pt3dadd(58, -11, 6.5, 1.2)
pt3dadd(60, -9.5, 6.5, 1.5)
}
dend[4] {pt3dclear()
pt3dadd(60, -9.5, 6.5, 1.5)
pt3dadd(60, -6.5, 6, 1.5)
}
dend[5] {pt3dclear()
pt3dadd(60, -6.5, 6, 1.5)
pt3dadd(60.5, -2, 6, 1.3)
}
dend[6] {pt3dclear()
pt3dadd(60, -6.5, 6, 1.5)
pt3dadd(62.5, -5, 6, 1.3)
pt3dadd(65, -4, 6, 1.3)
pt3dadd(68.5, -3, 6, 1.3)
pt3dadd(69, -3, 6, 1.3)
}
dend[7] {pt3dclear()
pt3dadd(69, -3, 6, 1.3)
pt3dadd(73, 0, 6, 1.3)
pt3dadd(78.5, 3, 6, 1.3)
}
dend[8] {pt3dclear()
pt3dadd(69, -3, 6, 1.3)
pt3dadd(71.5, -3.5, 8.5, 1.3)
}
dend[9] {pt3dclear()
pt3dadd(60, -9.5, 6.5, 1.5)
pt3dadd(66, -11.5, 7.5, 1.1)
pt3dadd(68.5, -13.5, 7, 1.1)
pt3dadd(67.5, -17.5, 7.5, 1.1)
pt3dadd(68, -19.5, 7, 1.1)
pt3dadd(66, -21.5, 7, 1.1)
}
dend[10] {pt3dclear()
pt3dadd(66, -21.5, 7, 1.1)
pt3dadd(64, -20, 7, 1.1)
pt3dadd(61, -20, 7, 1.1)
pt3dadd(55, -20.5, 7, 1.1)
pt3dadd(50.5, -20, 7, 1.1)
}
dend[11] {pt3dclear()
pt3dadd(66, -21.5, 7, 1.1)
pt3dadd(67, -23, 6, 1.1)
pt3dadd(72, -24, 7, 1.1)
pt3dadd(74, -23, 7, 1.1)
pt3dadd(78.5, -20, 7, 1.1)
}
dend[12] {pt3dclear()
pt3dadd(38.5, -19.5, 6.5, 1.2)
pt3dadd(40.5, -24, 3.5, 3.1)
pt3dadd(44.5, -26.5, 5, 3.1)
pt3dadd(46.5, -28.5, 5, 3.1)
pt3dadd(49, -31, 5, 3.4)
pt3dadd(52.5, -34, 6, 6.8)
}
dend[13] {pt3dclear()
pt3dadd(52.5, -34, 6, 6.8)
pt3dadd(57.5, -31, 6, 2.7)
pt3dadd(62, -28.5, 6, 2.7)
pt3dadd(65, -27.5, 6, 3.7)
}
dend[14] {pt3dclear()
pt3dadd(65, -27.5, 6, 3.7)
pt3dadd(68, -24, 9, 1.9)
pt3dadd(71.5, -20, 9, 1.9)
pt3dadd(75.5, -16.5, 9, 1.9)
}
dend[15] {pt3dclear()
pt3dadd(75.5, -16.5, 9, 1.9)
pt3dadd(76.5, -11.5, 8.5, 1.7)
}
dend[16] {pt3dclear()
pt3dadd(76.5, -11.5, 8.5, 1.7)
pt3dadd(68, -6, 9, 1.7)
}
dend[17] {pt3dclear()
pt3dadd(68, -6, 9, 1.7)
pt3dadd(63, -3.5, 9, 1.3)
}
dend[18] {pt3dclear()
pt3dadd(68, -6, 9, 1.7)
pt3dadd(68.5, -1, 9, 1.3)
pt3dadd(72.5, 3.5, 9, 1.3)
pt3dadd(72, 6.5, 9, 1.3)
pt3dadd(70, 6.5, 9, 1.3)
}
dend[19] {pt3dclear()
pt3dadd(70, 6.5, 9, 1.3)
pt3dadd(66.5, 5, 9, 1.3)
pt3dadd(64.5, 2, 9, 1.3)
}
dend[20] {pt3dclear()
pt3dadd(70, 6.5, 9, 1.3)
pt3dadd(68.5, 9.5, 10, 1.3)
}
dend[21] {pt3dclear()
pt3dadd(76.5, -11.5, 8.5, 1.7)
pt3dadd(73, -5.5, 11.5, 1.3)
}
dend[22] {pt3dclear()
pt3dadd(75.5, -16.5, 9, 1.9)
pt3dadd(80, -13, 10, 1.3)
pt3dadd(81, -10.5, 10, 1.3)
}
dend[23] {pt3dclear()
pt3dadd(81, -10.5, 10, 1.3)
pt3dadd(80.5, -6.5, 10, 1.3)
}
dend[24] {pt3dclear()
pt3dadd(80.5, -6.5, 10, 1.3)
pt3dadd(79.5, -2.5, 10, 1.3)
}
dend[25] {pt3dclear()
pt3dadd(80.5, -6.5, 10, 1.3)
pt3dadd(83, -2.5, 10, 1.3)
}
dend[26] {pt3dclear()
pt3dadd(81, -10.5, 10, 1.3)
pt3dadd(85.5, -10.5, 13.5, 1.3)
}
dend[27] {pt3dclear()
pt3dadd(65, -27.5, 6, 3.7)
pt3dadd(68, -29, 7, 1.3)
pt3dadd(74, -28.5, 7, 2.5)
}
dend[28] {pt3dclear()
pt3dadd(74, -28.5, 7, 2.5)
pt3dadd(77.5, -24.5, 7.5, 1.6)
pt3dadd(80.5, -19.5, 7.5, 1.6)
}
dend[29] {pt3dclear()
pt3dadd(80.5, -19.5, 7.5, 1.6)
pt3dadd(79.5, -16.5, 7.5, 1.6)
}
dend[30] {pt3dclear()
pt3dadd(80.5, -19.5, 7.5, 1.6)
pt3dadd(84.5, -14, 9, 1.6)
pt3dadd(87.5, -11.5, 9.5, 1.6)
pt3dadd(91.5, -8, 9.5, 1.6)
pt3dadd(92, -5, 9.5, 1.6)
}
dend[31] {pt3dclear()
pt3dadd(92, -5, 9.5, 1.6)
pt3dadd(86.5, -3.5, 9.5, 1.6)
}
dend[32] {pt3dclear()
pt3dadd(92, -5, 9.5, 1.6)
pt3dadd(93.5, -3.5, 9.5, 2)
}
dend[33] {pt3dclear()
pt3dadd(93.5, -3.5, 9.5, 2)
pt3dadd(92.5, 0.5, 6.5, 1.7)
pt3dadd(92, 5, 6.5, 1.7)
}
dend[34] {pt3dclear()
pt3dadd(92, 5, 6.5, 1.7)
pt3dadd(88.5, 8, 6.5, 1.7)
pt3dadd(90, 13.5, 6.5, 1.7)
pt3dadd(90, 16.5, 6.5, 1.7)
pt3dadd(90, 19, 6.5, 1.3)
pt3dadd(90, 23.5, 7, 1.1)
pt3dadd(92.5, 25, 7, 0.6)
}
dend[35] {pt3dclear()
pt3dadd(92.5, 25, 7, 0.6)
pt3dadd(95.5, 27.5, 7, 0.6)
}
dend[36] {pt3dclear()
pt3dadd(92.5, 25, 7, 0.6)
pt3dadd(95, 24, 7, 0.6)
pt3dadd(96, 22.5, 7, 0.6)
}
dend[37] {pt3dclear()
pt3dadd(92, 5, 6.5, 1.7)
pt3dadd(91.5, 9, 5.5, 1.2)
pt3dadd(99, 14, 7, 1.2)
}
dend[38] {pt3dclear()
pt3dadd(99, 14, 7, 1.2)
pt3dadd(95.5, 17.5, 7, 1.2)
pt3dadd(99, 20.5, 7, 1.2)
}
dend[39] {pt3dclear()
pt3dadd(99, 14, 7, 1.2)
pt3dadd(100, 16, 7, 0.8)
pt3dadd(103.5, 18.5, 7, 0.8)
pt3dadd(101, 24, 7, 0.8)
}
dend[40] {pt3dclear()
pt3dadd(93.5, -3.5, 9.5, 2)
pt3dadd(98.5, -0.5, 8, 1)
}
dend[41] {pt3dclear()
pt3dadd(98.5, -0.5, 8, 1)
pt3dadd(101, 2, 8, 1)
pt3dadd(105, 4, 7.5, 0.9)
}
dend[42] {pt3dclear()
pt3dadd(105, 4, 7.5, 0.9)
pt3dadd(108.5, 5.5, 7.5, 0.9)
pt3dadd(108, 8, 7.5, 0.9)
}
dend[43] {pt3dclear()
pt3dadd(108, 8, 7.5, 0.9)
pt3dadd(105.5, 9, 7.5, 0.9)
pt3dadd(107, 12, 7.5, 1)
pt3dadd(107, 16, 7.5, 1.1)
pt3dadd(105.5, 17.5, 7.5, 1.2)
}
dend[44] {pt3dclear()
pt3dadd(108, 8, 7.5, 0.9)
pt3dadd(109.5, 9.5, 6, 1.4)
pt3dadd(114, 13, 6, 1.4)
pt3dadd(115, 13.5, 6, 1.2)
}
dend[45] {pt3dclear()
pt3dadd(115, 13.5, 6, 1.2)
pt3dadd(116.5, 17, 6, 1.2)
}
dend[46] {pt3dclear()
pt3dadd(115, 13.5, 6, 1.2)
pt3dadd(119, 14, 7, 1.2)
}
dend[47] {pt3dclear()
pt3dadd(105, 4, 7.5, 0.9)
pt3dadd(111, 4.5, 7.5, 1)
}
dend[48] {pt3dclear()
pt3dadd(111, 4.5, 7.5, 1)
pt3dadd(111, 3, 7.5, 1)
pt3dadd(117, 4, 8, 1)
}
dend[49] {pt3dclear()
pt3dadd(111, 4.5, 7.5, 1)
pt3dadd(115, 6, 7.5, 1)
pt3dadd(124.5, 5, 7.5, 1)
pt3dadd(128, 7, 7.5, 1)
pt3dadd(131, 7.5, 7.5, 0.7)
}
dend[50] {pt3dclear()
pt3dadd(131, 7.5, 7.5, 0.7)
pt3dadd(134.5, 6, 7, 0.7)
}
dend[51] {pt3dclear()
pt3dadd(131, 7.5, 7.5, 0.7)
pt3dadd(133.5, 9.5, 7.5, 0.7)
pt3dadd(141.5, 6.5, 7, 0.7)
}
dend[52] {pt3dclear()
pt3dadd(98.5, -0.5, 8, 1)
pt3dadd(97, -5, 8, 0.7)
}
dend[53] {pt3dclear()
pt3dadd(74, -28.5, 7, 2.5)
pt3dadd(78, -31, 7.5, 0.7)
}
dend[54] {pt3dclear()
pt3dadd(78, -31, 7.5, 0.7)
pt3dadd(81.5, -29.5, 7.5, 1)
}
dend[55] {pt3dclear()
pt3dadd(81.5, -29.5, 7.5, 1)
pt3dadd(85, -30.5, 7.5, 0.6)
pt3dadd(83, -34.5, 7.5, 0.6)
}
dend[56] {pt3dclear()
pt3dadd(83, -34.5, 7.5, 0.6)
pt3dadd(76, -33, 7.5, 0.6)
pt3dadd(75, -32.5, 8, 0.6)
}
dend[57] {pt3dclear()
pt3dadd(83, -34.5, 7.5, 0.6)
pt3dadd(80, -32, 7.5, 0.6)
}
dend[58] {pt3dclear()
pt3dadd(81.5, -29.5, 7.5, 1)
pt3dadd(85, -26.5, 7.5, 0.9)
pt3dadd(89, -22, 8, 0.9)
}
dend[59] {pt3dclear()
pt3dadd(89, -22, 8, 0.9)
pt3dadd(93.5, -23.5, 8, 0.9)
pt3dadd(95.5, -25, 8, 0.9)
}
dend[60] {pt3dclear()
pt3dadd(95.5, -25, 8, 0.9)
pt3dadd(95, -29, 8, 0.9)
}
dend[61] {pt3dclear()
pt3dadd(95.5, -25, 8, 0.9)
pt3dadd(102, -25.5, 8, 0.9)
}
dend[62] {pt3dclear()
pt3dadd(89, -22, 8, 0.9)
pt3dadd(92, -19.5, 8.5, 0.9)
pt3dadd(101.5, -18, 9, 0.9)
}
dend[63] {pt3dclear()
pt3dadd(101.5, -18, 9, 0.9)
pt3dadd(104, -13, 9, 0.9)
pt3dadd(104, -10, 9, 0.9)
}
}
proc shape3d_2() {
dend[63] { pt3dadd(102, -8.5, 9, 1.4)
}
dend[64] {pt3dclear()
pt3dadd(102, -8.5, 9, 1.4)
pt3dadd(97.5, -6, 8.5, 0.9)
}
dend[65] {pt3dclear()
pt3dadd(102, -8.5, 9, 1.4)
pt3dadd(104, -3.5, 9, 1.1)
pt3dadd(108, -2.5, 9, 0.8)
pt3dadd(111.5, -1.5, 9, 0.8)
pt3dadd(113, 0, 9, 0.8)
}
dend[66] {pt3dclear()
pt3dadd(113, 0, 9, 0.8)
pt3dadd(111, 0.5, 9, 0.8)
}
dend[67] {pt3dclear()
pt3dadd(113, 0, 9, 0.8)
pt3dadd(117, -1, 9, 0.8)
pt3dadd(120.5, 0.5, 9.5, 0.8)
pt3dadd(127, -0.5, 9.5, 0.8)
pt3dadd(132, -2, 9.5, 0.8)
}
dend[68] {pt3dclear()
pt3dadd(101.5, -18, 9, 0.9)
pt3dadd(105, -18, 9, 1)
}
dend[69] {pt3dclear()
pt3dadd(105, -18, 9, 1)
pt3dadd(111.5, -13.5, 9, 1)
pt3dadd(116, -11.5, 9.5, 1)
}
dend[70] {pt3dclear()
pt3dadd(116, -11.5, 9.5, 1)
pt3dadd(120, -9.5, 10, 1)
}
dend[71] {pt3dclear()
pt3dadd(116, -11.5, 9.5, 1)
pt3dadd(120, -11.5, 10.5, 1)
pt3dadd(122.5, -7.5, 9.5, 1)
pt3dadd(122.5, -3, 9.5, 1)
}
dend[72] {pt3dclear()
pt3dadd(105, -18, 9, 1)
pt3dadd(106, -19.5, 8.5, 1)
}
dend[73] {pt3dclear()
pt3dadd(106, -19.5, 8.5, 1)
pt3dadd(103.5, -23.5, 9, 1)
}
dend[74] {pt3dclear()
pt3dadd(106, -19.5, 8.5, 1)
pt3dadd(111, -22.5, 8.5, 1)
}
dend[75] {pt3dclear()
pt3dadd(78, -31, 7.5, 0.7)
pt3dadd(84.5, -35, 7.5, 1)
}
dend[76] {pt3dclear()
pt3dadd(52.5, -34, 6, 6.8)
pt3dadd(52, -38.5, 7.5, 4.9)
}
dend[77] {pt3dclear()
pt3dadd(52, -38.5, 7.5, 4.9)
pt3dadd(44.5, -38.5, 6.5, 2.5)
}
dend[78] {pt3dclear()
pt3dadd(44.5, -38.5, 6.5, 2.5)
pt3dadd(40.5, -41.5, 5.5, 1.4)
pt3dadd(36.5, -40, 5.5, 1.4)
pt3dadd(36, -39.5, 5.5, 1.3)
}
dend[79] {pt3dclear()
pt3dadd(36, -39.5, 5.5, 1.3)
pt3dadd(32, -35, 5.5, 1.3)
}
dend[80] {pt3dclear()
pt3dadd(36, -39.5, 5.5, 1.3)
pt3dadd(30.5, -37.5, 5.5, 1.3)
}
dend[81] {pt3dclear()
pt3dadd(44.5, -38.5, 6.5, 2.5)
pt3dadd(42, -35.5, 7, 1.1)
}
dend[82] {pt3dclear()
pt3dadd(42, -35.5, 7, 1.1)
pt3dadd(38, -36.5, 7, 1.1)
}
dend[83] {pt3dclear()
pt3dadd(42, -35.5, 7, 1.1)
pt3dadd(38.5, -31.5, 7, 1.1)
}
dend[84] {pt3dclear()
pt3dadd(52, -38.5, 7.5, 4.9)
pt3dadd(52, -42.5, 7.5, 4.8)
}
dend[85] {pt3dclear()
pt3dadd(52, -42.5, 7.5, 4.8)
pt3dadd(48.5, -43, 7.5, 1.5)
pt3dadd(48, -47, 7.5, 1.5)
pt3dadd(46.5, -48, 7.5, 1.6)
}
dend[86] {pt3dclear()
pt3dadd(46.5, -48, 7.5, 1.6)
pt3dadd(42.5, -45.5, 7.5, 1.2)
pt3dadd(39, -43, 7.5, 1.2)
}
dend[87] {pt3dclear()
pt3dadd(39, -43, 7.5, 1.2)
pt3dadd(31.5, -43.5, 7.5, 1.2)
pt3dadd(28, -42, 7.5, 1.2)
}
dend[88] {pt3dclear()
pt3dadd(39, -43, 7.5, 1.2)
pt3dadd(39, -40, 7.5, 1.2)
pt3dadd(39, -38, 7.5, 1.2)
}
dend[89] {pt3dclear()
pt3dadd(46.5, -48, 7.5, 1.6)
pt3dadd(40.5, -51.5, 7.5, 1.2)
}
dend[90] {pt3dclear()
pt3dadd(40.5, -51.5, 7.5, 1.2)
pt3dadd(37, -49.5, 7.5, 1.2)
pt3dadd(35, -47, 7.5, 1.2)
pt3dadd(32.5, -47.5, 6.5, 1.2)
}
dend[91] {pt3dclear()
pt3dadd(32.5, -47.5, 6.5, 1.2)
pt3dadd(29.5, -46, 6.5, 1.2)
}
dend[92] {pt3dclear()
pt3dadd(32.5, -47.5, 6.5, 1.2)
pt3dadd(30.5, -48.5, 6.5, 1.2)
}
dend[93] {pt3dclear()
pt3dadd(30.5, -48.5, 6.5, 1.2)
pt3dadd(27, -49.5, 6.5, 1.2)
}
dend[94] {pt3dclear()
pt3dadd(30.5, -48.5, 6.5, 1.2)
pt3dadd(31.5, -51.5, 6.5, 1.2)
}
dend[95] {pt3dclear()
pt3dadd(40.5, -51.5, 7.5, 1.2)
pt3dadd(37, -53.5, 7.5, 1.2)
pt3dadd(35, -55.5, 7.5, 1.2)
}
dend[96] {pt3dclear()
pt3dadd(35, -55.5, 7.5, 1.2)
pt3dadd(39.5, -57.5, 7.5, 1.2)
}
dend[97] {pt3dclear()
pt3dadd(39.5, -57.5, 7.5, 1.2)
pt3dadd(39.5, -60.5, 7.5, 1.2)
}
dend[98] {pt3dclear()
pt3dadd(39.5, -57.5, 7.5, 1.2)
pt3dadd(41.5, -57.5, 7.5, 1.2)
}
dend[99] {pt3dclear()
pt3dadd(35, -55.5, 7.5, 1.2)
pt3dadd(35, -58.5, 7.5, 1.2)
}
dend[100] {pt3dclear()
pt3dadd(35, -58.5, 7.5, 1.2)
pt3dadd(27, -58.5, 7.5, 1.2)
}
dend[101] {pt3dclear()
pt3dadd(35, -58.5, 7.5, 1.2)
pt3dadd(33.5, -62, 7.5, 1.2)
}
dend[102] {pt3dclear()
pt3dadd(52, -42.5, 7.5, 4.8)
pt3dadd(56.5, -47.5, 6, 3.9)
pt3dadd(60, -51, 6, 3.9)
pt3dadd(64.5, -53, 7.5, 3.9)
}
dend[103] {pt3dclear()
pt3dadd(64.5, -53, 7.5, 3.9)
pt3dadd(67.5, -50.5, 8, 3)
pt3dadd(69.5, -44, 8, 1.7)
}
dend[104] {pt3dclear()
pt3dadd(69.5, -44, 8, 1.7)
pt3dadd(68.5, -42, 8, 1.7)
}
dend[105] {pt3dclear()
pt3dadd(68.5, -42, 8, 1.7)
pt3dadd(66.5, -38.5, 8, 1.7)
}
dend[106] {pt3dclear()
pt3dadd(66.5, -38.5, 8, 1.7)
pt3dadd(66, -32, 8, 1.7)
}
dend[107] {pt3dclear()
pt3dadd(66, -32, 8, 1.7)
pt3dadd(63, -31, 8, 1)
}
dend[108] {pt3dclear()
pt3dadd(66, -32, 8, 1.7)
pt3dadd(66.5, -29, 8, 1)
}
dend[109] {pt3dclear()
pt3dadd(66.5, -38.5, 8, 1.7)
pt3dadd(63, -36, 8, 1)
pt3dadd(63, -34.5, 8, 1)
}
dend[110] {pt3dclear()
pt3dadd(63, -34.5, 8, 1)
pt3dadd(63, -31.5, 8, 1)
}
dend[111] {pt3dclear()
pt3dadd(63, -34.5, 8, 1)
pt3dadd(60, -33.5, 8, 1)
}
dend[112] {pt3dclear()
pt3dadd(68.5, -42, 8, 1.7)
pt3dadd(64, -43, 8, 1)
}
dend[113] {pt3dclear()
pt3dadd(64, -43, 8, 1)
pt3dadd(63.5, -40, 8, 1)
}
dend[114] {pt3dclear()
pt3dadd(64, -43, 8, 1)
pt3dadd(62.5, -43, 8, 1)
}
dend[115] {pt3dclear()
pt3dadd(62.5, -43, 8, 1)
pt3dadd(62, -38.5, 8, 1.2)
pt3dadd(59, -34.5, 8, 1.2)
}
dend[116] {pt3dclear()
pt3dadd(59, -34.5, 8, 1.2)
pt3dadd(59.5, -32.5, 8, 1.2)
}
dend[117] {pt3dclear()
pt3dadd(59, -34.5, 8, 1.2)
pt3dadd(55.5, -34.5, 8, 1.2)
}
dend[118] {pt3dclear()
pt3dadd(62.5, -43, 8, 1)
pt3dadd(60.5, -45, 8, 0.6)
pt3dadd(57, -42, 8, 0.6)
}
dend[119] {pt3dclear()
pt3dadd(69.5, -44, 8, 1.7)
pt3dadd(65.5, -43.5, 6.5, 0.6)
pt3dadd(63, -46.5, 6.5, 0.6)
}
dend[120] {pt3dclear()
pt3dadd(64.5, -53, 7.5, 3.9)
pt3dadd(68, -55.5, 7.5, 5)
}
dend[121] {pt3dclear()
pt3dadd(68, -55.5, 7.5, 5)
pt3dadd(78, -47.5, 7.5, 1.6)
}
dend[122] {pt3dclear()
pt3dadd(78, -47.5, 7.5, 1.6)
pt3dadd(81.5, -42.5, 7.5, 1.3)
}
dend[123] {pt3dclear()
pt3dadd(81.5, -42.5, 7.5, 1.3)
pt3dadd(78, -42.5, 7.5, 1.3)
}
dend[124] {pt3dclear()
pt3dadd(78, -42.5, 7.5, 1.3)
pt3dadd(71, -43.5, 7.5, 1.3)
}
dend[125] {pt3dclear()
pt3dadd(71, -43.5, 7.5, 1.3)
pt3dadd(71.5, -46, 7.5, 1.3)
}
dend[126] {pt3dclear()
pt3dadd(71, -43.5, 7.5, 1.3)
pt3dadd(74, -41, 7.5, 1.3)
}
dend[127] {pt3dclear()
pt3dadd(74, -41, 7.5, 1.3)
pt3dadd(71.5, -35.5, 7.5, 1.3)
pt3dadd(70.5, -32, 7.5, 1.3)
}
dend[128] {pt3dclear()
pt3dadd(74, -41, 7.5, 1.3)
pt3dadd(78.5, -41, 7.5, 1.3)
pt3dadd(80.5, -38, 7, 1.3)
}
dend[129] {pt3dclear()
pt3dadd(80.5, -38, 7, 1.3)
pt3dadd(73, -32.5, 7.5, 1.3)
}
dend[130] {pt3dclear()
pt3dadd(80.5, -38, 7, 1.3)
pt3dadd(83, -35.5, 7, 1.3)
}
dend[131] {pt3dclear()
pt3dadd(78, -42.5, 7.5, 1.3)
pt3dadd(83.5, -40, 7, 1.3)
pt3dadd(85.5, -35.5, 7.5, 1.3)
}
dend[132] {pt3dclear()
pt3dadd(81.5, -42.5, 7.5, 1.3)
pt3dadd(84.5, -42.5, 7.5, 1)
}
dend[133] {pt3dclear()
pt3dadd(78, -47.5, 7.5, 1.6)
pt3dadd(85.5, -47, 7.5, 1.3)
}
dend[134] {pt3dclear()
pt3dadd(85.5, -47, 7.5, 1.3)
pt3dadd(84, -44.5, 8, 1)
}
dend[135] {pt3dclear()
pt3dadd(85.5, -47, 7.5, 1.3)
pt3dadd(89, -46.5, 8, 1)
}
dend[136] {pt3dclear()
pt3dadd(89, -46.5, 8, 1)
pt3dadd(95, -43, 7.5, 2)
}
dend[137] {pt3dclear()
pt3dadd(95, -43, 7.5, 2)
pt3dadd(95.5, -37, 8, 1.7)
}
dend[138] {pt3dclear()
pt3dadd(95.5, -37, 8, 1.7)
pt3dadd(88, -40.5, 7.5, 0.8)
}
dend[139] {pt3dclear()
pt3dadd(95.5, -37, 8, 1.7)
pt3dadd(94.5, -35, 8.5, 1.9)
}
dend[140] {pt3dclear()
pt3dadd(94.5, -35, 8.5, 1.9)
pt3dadd(93, -30.5, 8.5, 1.5)
}
dend[141] {pt3dclear()
pt3dadd(93, -30.5, 8.5, 1.5)
pt3dadd(87, -32.5, 8, 1.5)
}
dend[142] {pt3dclear()
pt3dadd(93, -30.5, 8.5, 1.5)
pt3dadd(92.5, -26, 8.5, 1.1)
pt3dadd(93.5, -23.5, 8.5, 1.1)
}
dend[143] {pt3dclear()
pt3dadd(93.5, -23.5, 8.5, 1.1)
pt3dadd(92.5, -22, 8.5, 1.1)
}
dend[144] {pt3dclear()
pt3dadd(93.5, -23.5, 8.5, 1.1)
pt3dadd(99, -23.5, 8.5, 1.1)
pt3dadd(106, -25, 8.5, 1.1)
}
dend[145] {pt3dclear()
pt3dadd(106, -25, 8.5, 1.1)
pt3dadd(109.5, -20.5, 8.5, 1.1)
pt3dadd(112.5, -15.5, 8, 1.1)
}
dend[146] {pt3dclear()
pt3dadd(106, -25, 8.5, 1.1)
pt3dadd(113.5, -24.5, 8.5, 0.9)
}
dend[147] {pt3dclear()
pt3dadd(113.5, -24.5, 8.5, 0.9)
}
}
proc shape3d_3() {
dend[147] { pt3dadd(118, -20.5, 8.5, 0.9)
}
dend[148] {pt3dclear()
pt3dadd(113.5, -24.5, 8.5, 0.9)
pt3dadd(119, -28, 8, 0.9)
}
dend[149] {pt3dclear()
pt3dadd(94.5, -35, 8.5, 1.9)
pt3dadd(103, -29.5, 9, 0.9)
}
dend[150] {pt3dclear()
pt3dadd(103, -29.5, 9, 0.9)
pt3dadd(111, -28, 9, 0.9)
pt3dadd(113.5, -26, 8.5, 0.9)
}
dend[151] {pt3dclear()
pt3dadd(103, -29.5, 9, 0.9)
pt3dadd(109.5, -32, 11, 0.9)
}
dend[152] {pt3dclear()
pt3dadd(109.5, -32, 11, 0.9)
pt3dadd(114.5, -29.5, 10.5, 0.9)
}
dend[153] {pt3dclear()
pt3dadd(109.5, -32, 11, 0.9)
pt3dadd(119.5, -30.5, 11, 0.9)
}
dend[154] {pt3dclear()
pt3dadd(95, -43, 7.5, 2)
pt3dadd(99, -43, 6.5, 1.4)
}
dend[155] {pt3dclear()
pt3dadd(99, -43, 6.5, 1.4)
pt3dadd(102, -38.5, 5, 1.4)
}
dend[156] {pt3dclear()
pt3dadd(102, -38.5, 5, 1.4)
pt3dadd(107, -32, 5.5, 1.4)
}
dend[157] {pt3dclear()
pt3dadd(102, -38.5, 5, 1.4)
pt3dadd(107, -36.5, 6, 1.4)
}
dend[158] {pt3dclear()
pt3dadd(107, -36.5, 6, 1.4)
pt3dadd(101, -32.5, 6, 1.4)
}
dend[159] {pt3dclear()
pt3dadd(107, -36.5, 6, 1.4)
pt3dadd(108.5, -37, 6, 1.2)
}
dend[160] {pt3dclear()
pt3dadd(99, -43, 6.5, 1.4)
pt3dadd(102, -43, 6.5, 1.5)
}
dend[161] {pt3dclear()
pt3dadd(102, -43, 6.5, 1.5)
pt3dadd(109, -46, 6.5, 1.5)
}
dend[162] {pt3dclear()
pt3dadd(109, -46, 6.5, 1.5)
pt3dadd(112.5, -40.5, 7, 1.5)
}
dend[163] {pt3dclear()
pt3dadd(112.5, -40.5, 7, 1.5)
pt3dadd(115.5, -34.5, 8, 1.5)
pt3dadd(121, -32.5, 8, 1.5)
}
dend[164] {pt3dclear()
pt3dadd(112.5, -40.5, 7, 1.5)
pt3dadd(121.5, -36, 7, 1.5)
}
dend[165] {pt3dclear()
pt3dadd(121.5, -36, 7, 1.5)
pt3dadd(122, -30, 7, 1.5)
}
dend[166] {pt3dclear()
pt3dadd(121.5, -36, 7, 1.5)
pt3dadd(126, -36, 6.5, 1.5)
}
dend[167] {pt3dclear()
pt3dadd(109, -46, 6.5, 1.5)
pt3dadd(109, -46, 8.5, 1.5)
}
dend[168] {pt3dclear()
pt3dadd(102, -43, 6.5, 1.5)
pt3dadd(102.5, -48.5, 11, 1.5)
pt3dadd(97.5, -49.5, 11, 1)
pt3dadd(90.5, -48.5, 11, 1)
}
dend[169] {pt3dclear()
pt3dadd(89, -46.5, 8, 1)
pt3dadd(89, -48.5, 8, 1)
}
dend[170] {pt3dclear()
pt3dadd(68, -55.5, 7.5, 5)
pt3dadd(71.5, -56.5, 7, 6.6)
}
dend[171] {pt3dclear()
pt3dadd(71.5, -56.5, 7, 6.6)
pt3dadd(81, -53, 10, 3.5)
}
dend[172] {pt3dclear()
pt3dadd(81, -53, 10, 3.5)
pt3dadd(79.5, -48, 10, 1.6)
}
dend[173] {pt3dclear()
pt3dadd(81, -53, 10, 3.5)
pt3dadd(87.5, -55.5, 10, 5)
}
dend[174] {pt3dclear()
pt3dadd(87.5, -55.5, 10, 5)
pt3dadd(91.5, -51, 10, 2)
pt3dadd(101.5, -53, 9.5, 2.6)
}
dend[175] {pt3dclear()
pt3dadd(101.5, -53, 9.5, 2.6)
pt3dadd(109, -49.5, 9.5, 1.9)
}
dend[176] {pt3dclear()
pt3dadd(109, -49.5, 9.5, 1.9)
pt3dadd(111, -45, 9.5, 1.5)
}
dend[177] {pt3dclear()
pt3dadd(109, -49.5, 9.5, 1.9)
pt3dadd(114.5, -48.5, 9.5, 1.7)
}
dend[178] {pt3dclear()
pt3dadd(114.5, -48.5, 9.5, 1.7)
pt3dadd(119.5, -43, 9.5, 1.7)
}
dend[179] {pt3dclear()
pt3dadd(119.5, -43, 9.5, 1.7)
pt3dadd(124, -37.5, 9.5, 1.2)
pt3dadd(124, -33.5, 9.5, 1.2)
}
dend[180] {pt3dclear()
pt3dadd(124, -33.5, 9.5, 1.2)
pt3dadd(122, -25, 9.5, 1.2)
}
dend[181] {pt3dclear()
pt3dadd(122, -25, 9.5, 1.2)
pt3dadd(120.5, -25, 9.5, 1.2)
}
dend[182] {pt3dclear()
pt3dadd(122, -25, 9.5, 1.2)
pt3dadd(122, -18.5, 10, 1.2)
}
dend[183] {pt3dclear()
pt3dadd(124, -33.5, 9.5, 1.2)
pt3dadd(126, -28, 9.5, 1.2)
pt3dadd(128.5, -23.5, 10, 1.2)
}
dend[184] {pt3dclear()
pt3dadd(119.5, -43, 9.5, 1.7)
pt3dadd(129, -37, 10, 1.3)
}
dend[185] {pt3dclear()
pt3dadd(129, -37, 10, 1.3)
pt3dadd(136, -28.5, 10, 1.3)
}
dend[186] {pt3dclear()
pt3dadd(136, -28.5, 10, 1.3)
pt3dadd(136.5, -19.5, 10, 1.3)
}
dend[187] {pt3dclear()
pt3dadd(136, -28.5, 10, 1.3)
pt3dadd(144, -26.5, 10, 1.3)
pt3dadd(148, -27.5, 10, 1.3)
}
dend[188] {pt3dclear()
pt3dadd(129, -37, 10, 1.3)
pt3dadd(141, -33.5, 10, 1.3)
}
dend[189] {pt3dclear()
pt3dadd(141, -33.5, 10, 1.3)
pt3dadd(150.5, -29.5, 10, 1.3)
}
dend[190] {pt3dclear()
pt3dadd(141, -33.5, 10, 1.3)
pt3dadd(148.5, -36.5, 8.5, 1.1)
pt3dadd(164, -39, 10, 1.1)
}
dend[191] {pt3dclear()
pt3dadd(114.5, -48.5, 9.5, 1.7)
pt3dadd(129, -47.5, 11, 1.1)
}
dend[192] {pt3dclear()
pt3dadd(129, -47.5, 11, 1.1)
pt3dadd(140.5, -49.5, 10.5, 1.1)
}
dend[193] {pt3dclear()
pt3dadd(129, -47.5, 11, 1.1)
pt3dadd(147, -43.5, 11, 1.1)
}
dend[194] {pt3dclear()
pt3dadd(101.5, -53, 9.5, 2.6)
pt3dadd(106, -58.5, 11, 1.1)
}
dend[195] {pt3dclear()
pt3dadd(106, -58.5, 11, 1.1)
pt3dadd(122.5, -54.5, 11, 1.1)
}
dend[196] {pt3dclear()
pt3dadd(122.5, -54.5, 11, 1.1)
pt3dadd(123, -49.5, 10, 2)
}
dend[197] {pt3dclear()
pt3dadd(122.5, -54.5, 11, 1.1)
pt3dadd(127, -57.5, 11, 1.8)
}
dend[198] {pt3dclear()
pt3dadd(127, -57.5, 11, 1.8)
pt3dadd(136, -57.5, 11, 1.8)
pt3dadd(138, -57.5, 9.5, 1.8)
}
dend[199] {pt3dclear()
pt3dadd(138, -57.5, 9.5, 1.8)
pt3dadd(144, -53, 9.5, 1.8)
pt3dadd(149.5, -52.5, 10, 1.7)
}
dend[200] {pt3dclear()
pt3dadd(149.5, -52.5, 10, 1.7)
pt3dadd(149, -58.5, 10, 1.2)
}
dend[201] {pt3dclear()
pt3dadd(149.5, -52.5, 10, 1.7)
pt3dadd(155.5, -54, 10, 1.2)
}
dend[202] {pt3dclear()
pt3dadd(138, -57.5, 9.5, 1.8)
pt3dadd(138, -58.5, 9.5, 1.2)
}
dend[203] {pt3dclear()
pt3dadd(127, -57.5, 11, 1.8)
pt3dadd(127, -60, 9, 1.2)
}
dend[204] {pt3dclear()
pt3dadd(106, -58.5, 11, 1.1)
pt3dadd(113, -60.5, 10, 1.1)
}
dend[205] {pt3dclear()
pt3dadd(113, -60.5, 10, 1.1)
pt3dadd(116, -66, 10.5, 1.1)
}
dend[206] {pt3dclear()
pt3dadd(113, -60.5, 10, 1.1)
pt3dadd(124.5, -63.5, 10, 1.1)
}
dend[207] {pt3dclear()
pt3dadd(124.5, -63.5, 10, 1.1)
pt3dadd(132, -62.5, 10, 1.2)
}
dend[208] {pt3dclear()
pt3dadd(132, -62.5, 10, 1.2)
pt3dadd(140.5, -61, 10.5, 1.2)
}
dend[209] {pt3dclear()
pt3dadd(132, -62.5, 10, 1.2)
pt3dadd(138.5, -66.5, 10, 1)
pt3dadd(148, -65.5, 10, 1)
pt3dadd(157, -67.5, 10.5, 0.9)
}
dend[210] {pt3dclear()
pt3dadd(157, -67.5, 10.5, 0.9)
pt3dadd(157, -71, 10.5, 0.9)
}
dend[211] {pt3dclear()
pt3dadd(157, -67.5, 10.5, 0.9)
pt3dadd(160.5, -68, 10.5, 0.9)
}
dend[212] {pt3dclear()
pt3dadd(124.5, -63.5, 10, 1.1)
pt3dadd(129.5, -70, 10, 0.9)
pt3dadd(134.5, -72, 10.5, 0.9)
pt3dadd(138.5, -72, 10.5, 0.9)
}
dend[213] {pt3dclear()
pt3dadd(138.5, -72, 10.5, 0.9)
pt3dadd(149.5, -87.5, 10.5, 0.9)
}
dend[214] {pt3dclear()
pt3dadd(138.5, -72, 10.5, 0.9)
pt3dadd(143, -72, 10.5, 0.9)
pt3dadd(145, -74, 11, 0.9)
}
dend[215] {pt3dclear()
pt3dadd(145, -74, 11, 0.9)
pt3dadd(152.5, -74.5, 12, 0.9)
}
dend[216] {pt3dclear()
pt3dadd(145, -74, 11, 0.9)
pt3dadd(151, -80.5, 10.5, 0.9)
}
dend[217] {pt3dclear()
pt3dadd(87.5, -55.5, 10, 5)
pt3dadd(96.5, -65.5, 11, 3.7)
pt3dadd(109.5, -71.5, 10.5, 3)
pt3dadd(120, -75.5, 10.5, 3)
pt3dadd(123, -80.5, 9, 4)
}
dend[218] {pt3dclear()
pt3dadd(123, -80.5, 9, 4)
pt3dadd(126.5, -82, 11, 1.8)
pt3dadd(128.5, -89, 11, 1.8)
}
dend[219] {pt3dclear()
pt3dadd(128.5, -89, 11, 1.8)
pt3dadd(131.5, -87.5, 12, 1.1)
pt3dadd(131.5, -81, 11.5, 1.1)
pt3dadd(126, -76, 11.5, 1.1)
pt3dadd(124, -74, 11.5, 1.1)
}
dend[220] {pt3dclear()
pt3dadd(124, -74, 11.5, 1.1)
pt3dadd(128.5, -72, 11.5, 1.1)
}
dend[221] {pt3dclear()
pt3dadd(124, -74, 11.5, 1.1)
pt3dadd(117, -70, 11, 1.1)
}
dend[222] {pt3dclear()
pt3dadd(128.5, -89, 11, 1.8)
pt3dadd(130.5, -90, 11.5, 1.1)
}
dend[223] {pt3dclear()
pt3dadd(130.5, -90, 11.5, 1.1)
pt3dadd(135, -90, 13, 1.1)
}
dend[224] {pt3dclear()
pt3dadd(130.5, -90, 11.5, 1.1)
pt3dadd(127, -94, 12, 1.1)
pt3dadd(130.5, -97.5, 12, 1.1)
}
dend[225] {pt3dclear()
pt3dadd(130.5, -97.5, 12, 1.1)
pt3dadd(137, -94, 11.5, 1.1)
}
dend[226] {pt3dclear()
pt3dadd(137, -94, 11.5, 1.1)
pt3dadd(137.5, -89.5, 11.5, 1.1)
}
dend[227] {pt3dclear()
pt3dadd(137.5, -89.5, 11.5, 1.1)
pt3dadd(138, -85, 11.5, 1.1)
}
dend[228] {pt3dclear()
pt3dadd(138, -85, 11.5, 1.1)
pt3dadd(139.5, -76, 12, 1.1)
}
dend[229] {pt3dclear()
pt3dadd(138, -85, 11.5, 1.1)
pt3dadd(142, -80.5, 11.5, 1.1)
}
dend[230] {pt3dclear()
pt3dadd(137.5, -89.5, 11.5, 1.1)
pt3dadd(143.5, -90, 11, 1.1)
}
dend[231] {pt3dclear()
pt3dadd(143.5, -90, 11, 1.1)
pt3dadd(146, -84, 10.5, 1.1)
}
dend[232] {pt3dclear()
pt3dadd(143.5, -90, 11, 1.1)
pt3dadd(148, -91.5, 12, 1.1)
}
dend[233] {pt3dclear()
pt3dadd(148, -91.5, 12, 1.1)
pt3dadd(154.5, -83.5, 12, 1.1)
}
dend[234] {pt3dclear()
pt3dadd(148, -91.5, 12, 1.1)
pt3dadd(157.5, -97, 12, 1.1)
}
dend[235] {pt3dclear()
pt3dadd(137, -94, 11.5, 1.1)
}
}
proc shape3d_4() {
dend[235] { pt3dadd(143, -95, 11.5, 1.1)
pt3dadd(149.5, -99, 11.5, 1.1)
}
dend[236] {pt3dclear()
pt3dadd(149.5, -99, 11.5, 1.1)
pt3dadd(148, -94, 11.5, 1.1)
}
dend[237] {pt3dclear()
pt3dadd(149.5, -99, 11.5, 1.1)
pt3dadd(151.5, -99.5, 11.5, 1.1)
}
dend[238] {pt3dclear()
pt3dadd(151.5, -99.5, 11.5, 1.1)
pt3dadd(152, -107, 11.5, 1.1)
}
dend[239] {pt3dclear()
pt3dadd(151.5, -99.5, 11.5, 1.1)
pt3dadd(160.5, -104.5, 11.5, 1.1)
}
dend[240] {pt3dclear()
pt3dadd(130.5, -97.5, 12, 1.1)
pt3dadd(134, -106.5, 12, 1.1)
pt3dadd(134, -111.5, 11.5, 1.1)
}
dend[241] {pt3dclear()
pt3dadd(123, -80.5, 9, 4)
pt3dadd(119.5, -95.5, 10, 4.2)
}
dend[242] {pt3dclear()
pt3dadd(119.5, -95.5, 10, 4.2)
pt3dadd(116, -97, 10, 1.6)
pt3dadd(112.5, -87, 11, 1.6)
}
dend[243] {pt3dclear()
pt3dadd(112.5, -87, 11, 1.6)
pt3dadd(104, -90, 11, 1.3)
pt3dadd(95, -88.5, 11, 1.3)
pt3dadd(89, -81, 11, 1.3)
pt3dadd(88.5, -75, 11, 1.3)
pt3dadd(81, -64.5, 11, 1.3)
}
dend[244] {pt3dclear()
pt3dadd(112.5, -87, 11, 1.6)
pt3dadd(113.5, -83, 11, 1.1)
}
dend[245] {pt3dclear()
pt3dadd(113.5, -83, 11, 1.1)
pt3dadd(113.5, -79, 10.5, 1.1)
}
dend[246] {pt3dclear()
pt3dadd(113.5, -79, 10.5, 1.1)
pt3dadd(111.5, -78, 11, 1.1)
}
dend[247] {pt3dclear()
pt3dadd(113.5, -79, 10.5, 1.1)
pt3dadd(119, -80.5, 10.5, 1.1)
}
dend[248] {pt3dclear()
pt3dadd(113.5, -83, 11, 1.1)
pt3dadd(109.5, -83.5, 11, 1.1)
}
dend[249] {pt3dclear()
pt3dadd(119.5, -95.5, 10, 4.2)
pt3dadd(120, -98.5, 11, 4.3)
}
dend[250] {pt3dclear()
pt3dadd(120, -98.5, 11, 4.3)
pt3dadd(116, -105.5, 11.5, 1.9)
}
dend[251] {pt3dclear()
pt3dadd(116, -105.5, 11.5, 1.9)
pt3dadd(110, -118.5, 11, 1.8)
}
dend[252] {pt3dclear()
pt3dadd(116, -105.5, 11.5, 1.9)
pt3dadd(116.5, -120, 11.5, 1.8)
}
dend[253] {pt3dclear()
pt3dadd(116.5, -120, 11.5, 1.8)
pt3dadd(113.5, -130, 11, 1.2)
pt3dadd(112.5, -136, 11, 1.2)
}
dend[254] {pt3dclear()
pt3dadd(112.5, -136, 11, 1.2)
pt3dadd(101, -137, 11.5, 1.2)
pt3dadd(94.5, -145, 11.5, 1.2)
}
dend[255] {pt3dclear()
pt3dadd(112.5, -136, 11, 1.2)
pt3dadd(112, -141, 11, 1.2)
}
dend[256] {pt3dclear()
pt3dadd(112, -141, 11, 1.2)
pt3dadd(108.5, -145, 11.5, 1.2)
}
dend[257] {pt3dclear()
pt3dadd(112, -141, 11, 1.2)
pt3dadd(114, -146, 11, 1.2)
}
dend[258] {pt3dclear()
pt3dadd(116.5, -120, 11.5, 1.8)
pt3dadd(118, -138, 12, 1.2)
}
dend[259] {pt3dclear()
pt3dadd(120, -98.5, 11, 4.3)
pt3dadd(120, -108, 13, 3.1)
pt3dadd(120, -116, 13, 3.1)
pt3dadd(121, -120, 13, 3.1)
}
dend[260] {pt3dclear()
pt3dadd(121, -120, 13, 3.1)
pt3dadd(119, -123, 12.5, 1.6)
pt3dadd(118, -128.5, 12.5, 1.6)
pt3dadd(121, -133, 13, 1.6)
pt3dadd(121, -140, 12.5, 1.6)
pt3dadd(119.5, -145.5, 12.5, 1.6)
pt3dadd(123.5, -151, 9.5, 1.8)
}
dend[261] {pt3dclear()
pt3dadd(123.5, -151, 9.5, 1.8)
pt3dadd(128.5, -162, 10, 1.7)
pt3dadd(132, -171, 10, 1.2)
}
dend[262] {pt3dclear()
pt3dadd(132, -171, 10, 1.2)
pt3dadd(136.5, -171.5, 10, 1.2)
pt3dadd(137, -176.5, 10, 1.2)
}
dend[263] {pt3dclear()
pt3dadd(132, -171, 10, 1.2)
pt3dadd(132.5, -173, 10, 0.9)
}
dend[264] {pt3dclear()
pt3dadd(132.5, -173, 10, 0.9)
pt3dadd(136, -175.5, 10, 0.9)
}
dend[265] {pt3dclear()
pt3dadd(132.5, -173, 10, 0.9)
pt3dadd(131.5, -177, 8.5, 0.9)
pt3dadd(125.5, -179.5, 8.5, 0.9)
pt3dadd(124, -183, 8.5, 0.9)
}
dend[266] {pt3dclear()
pt3dadd(124, -183, 8.5, 0.9)
pt3dadd(122.5, -187.5, 9, 0.9)
pt3dadd(122.5, -190, 9, 0.9)
}
dend[267] {pt3dclear()
pt3dadd(124, -183, 8.5, 0.9)
pt3dadd(128.5, -192.5, 9.5, 0.9)
}
dend[268] {pt3dclear()
pt3dadd(123.5, -151, 9.5, 1.8)
pt3dadd(123.5, -158.5, 10.5, 0.9)
pt3dadd(123, -161.5, 9.5, 0.9)
}
dend[269] {pt3dclear()
pt3dadd(123, -161.5, 9.5, 0.9)
pt3dadd(120.5, -161.5, 9.5, 0.9)
}
dend[270] {pt3dclear()
pt3dadd(120.5, -161.5, 9.5, 0.9)
pt3dadd(120, -160, 9.5, 0.9)
}
dend[271] {pt3dclear()
pt3dadd(120.5, -161.5, 9.5, 0.9)
pt3dadd(117, -167, 9, 0.9)
}
dend[272] {pt3dclear()
pt3dadd(117, -167, 9, 0.9)
pt3dadd(120, -171.5, 9, 0.9)
}
dend[273] {pt3dclear()
pt3dadd(117, -167, 9, 0.9)
pt3dadd(114.5, -171, 9, 0.9)
pt3dadd(115, -178.5, 10.5, 0.9)
pt3dadd(115, -190, 8.5, 0.9)
}
dend[274] {pt3dclear()
pt3dadd(115, -190, 8.5, 0.9)
pt3dadd(115, -192, 8.5, 0.9)
}
dend[275] {pt3dclear()
pt3dadd(115, -190, 8.5, 0.9)
pt3dadd(119, -192, 8.5, 0.9)
}
dend[276] {pt3dclear()
pt3dadd(123, -161.5, 9.5, 0.9)
pt3dadd(125, -166.5, 10, 0.9)
}
dend[277] {pt3dclear()
pt3dadd(125, -166.5, 10, 0.9)
pt3dadd(119, -175.5, 10.5, 0.9)
pt3dadd(115, -186, 10.5, 0.9)
}
dend[278] {pt3dclear()
pt3dadd(125, -166.5, 10, 0.9)
pt3dadd(128, -170.5, 9, 0.9)
pt3dadd(124, -174, 9, 0.9)
pt3dadd(121, -182, 9.5, 0.9)
}
dend[279] {pt3dclear()
pt3dadd(121, -120, 13, 3.1)
pt3dadd(123.5, -125, 12, 5.4)
}
dend[280] {pt3dclear()
pt3dadd(123.5, -125, 12, 5.4)
pt3dadd(130.5, -123.5, 12, 1.8)
}
dend[281] {pt3dclear()
pt3dadd(130.5, -123.5, 12, 1.8)
pt3dadd(135, -121, 12, 1.2)
}
dend[282] {pt3dclear()
pt3dadd(135, -121, 12, 1.2)
pt3dadd(133.5, -118, 12, 1)
}
dend[283] {pt3dclear()
pt3dadd(133.5, -118, 12, 1)
pt3dadd(135, -113, 12, 1)
}
dend[284] {pt3dclear()
pt3dadd(133.5, -118, 12, 1)
pt3dadd(128, -113.5, 12, 1)
pt3dadd(129, -105.5, 12, 1)
pt3dadd(127.5, -98.5, 12, 1)
}
dend[285] {pt3dclear()
pt3dadd(135, -121, 12, 1.2)
pt3dadd(139, -113.5, 11, 1)
pt3dadd(139, -101.5, 11.5, 1)
}
dend[286] {pt3dclear()
pt3dadd(139, -101.5, 11.5, 1)
pt3dadd(137.5, -95.5, 11.5, 1)
}
dend[287] {pt3dclear()
pt3dadd(139, -101.5, 11.5, 1)
pt3dadd(141, -100.5, 11.5, 1)
pt3dadd(141, -98, 12, 1)
}
dend[288] {pt3dclear()
pt3dadd(130.5, -123.5, 12, 1.8)
pt3dadd(136, -124.5, 12, 1)
}
dend[289] {pt3dclear()
pt3dadd(136, -124.5, 12, 1)
pt3dadd(139, -120, 12.5, 1)
pt3dadd(143.5, -114.5, 12.5, 1)
}
dend[290] {pt3dclear()
pt3dadd(143.5, -114.5, 12.5, 1)
pt3dadd(143, -100, 14, 1)
}
dend[291] {pt3dclear()
pt3dadd(143.5, -114.5, 12.5, 1)
pt3dadd(144.5, -115, 12, 1)
}
dend[292] {pt3dclear()
pt3dadd(144.5, -115, 12, 1)
pt3dadd(149, -116.5, 13, 1)
}
dend[293] {pt3dclear()
pt3dadd(144.5, -115, 12, 1)
pt3dadd(149.5, -114, 12, 1)
}
dend[294] {pt3dclear()
pt3dadd(136, -124.5, 12, 1)
pt3dadd(149, -119, 11, 1)
pt3dadd(152.5, -118, 12, 1)
}
dend[295] {pt3dclear()
pt3dadd(152.5, -118, 12, 1)
pt3dadd(152.5, -115, 12.5, 1)
}
dend[296] {pt3dclear()
pt3dadd(152.5, -115, 12.5, 1)
pt3dadd(151.5, -114, 12.5, 1)
}
dend[297] {pt3dclear()
pt3dadd(152.5, -115, 12.5, 1)
pt3dadd(155.5, -112.5, 12.5, 1)
}
dend[298] {pt3dclear()
pt3dadd(152.5, -118, 12, 1)
pt3dadd(158.5, -116, 12, 1)
}
dend[299] {pt3dclear()
pt3dadd(123.5, -125, 12, 5.4)
pt3dadd(129, -127, 11.5, 3.4)
pt3dadd(133, -128.5, 11, 3.4)
}
dend[300] {pt3dclear()
pt3dadd(133, -128.5, 11, 3.4)
pt3dadd(131, -133.5, 11, 1.5)
pt3dadd(137.5, -137.5, 11, 1.5)
pt3dadd(141.5, -142.5, 11, 1.5)
pt3dadd(147.5, -144, 11, 1.2)
}
dend[301] {pt3dclear()
pt3dadd(147.5, -144, 11, 1.2)
pt3dadd(152, -147, 11, 1.2)
pt3dadd(156, -149.5, 11, 1.2)
pt3dadd(160.5, -156.5, 11, 1.2)
}
dend[302] {pt3dclear()
pt3dadd(147.5, -144, 11, 1.2)
pt3dadd(151.5, -141.5, 11, 1.2)
}
dend[303] {pt3dclear()
pt3dadd(151.5, -141.5, 11, 1.2)
pt3dadd(152, -139, 11, 1.2)
}
dend[304] {pt3dclear()
pt3dadd(151.5, -141.5, 11, 1.2)
pt3dadd(153.5, -145.5, 11, 1.2)
pt3dadd(159, -149, 11, 1)
pt3dadd(160, -151, 11, 1)
}
dend[305] {pt3dclear()
pt3dadd(160, -151, 11, 1)
pt3dadd(160, -148, 11, 1)
}
dend[306] {pt3dclear()
pt3dadd(160, -151, 11, 1)
pt3dadd(160, -153.5, 11, 1)
pt3dadd(164.5, -160, 11, 1)
}
dend[307] {pt3dclear()
pt3dadd(133, -128.5, 11, 3.4)
pt3dadd(142.5, -126.5, 12.5, 1.6)
}
dend[308] {pt3dclear()
pt3dadd(142.5, -126.5, 12.5, 1.6)
pt3dadd(150, -123.5, 12.5, 1.1)
}
dend[309] {pt3dclear()
pt3dadd(150, -123.5, 12.5, 1.1)
pt3dadd(156.5, -119.5, 13, 1.1)
pt3dadd(160.5, -116.5, 13, 1.1)
pt3dadd(165.5, -109.5, 13.5, 1.1)
pt3dadd(168, -112, 13.5, 1.5)
}
dend[310] {pt3dclear()
pt3dadd(168, -112, 13.5, 1.5)
pt3dadd(173, -112, 13, 1.5)
pt3dadd(179, -108.5, 12.5, 1.5)
}
dend[311] {pt3dclear()
pt3dadd(179, -108.5, 12.5, 1.5)
pt3dadd(185, -114, 13, 1.2)
pt3dadd(189, -112.5, 12.5, 1.2)
}
}
proc shape3d_5() {
dend[311] { pt3dadd(190, -112.5, 12.5, 1.2)
}
dend[312] {pt3dclear()
pt3dadd(179, -108.5, 12.5, 1.5)
pt3dadd(184, -106, 12.5, 1.1)
}
dend[313] {pt3dclear()
pt3dadd(184, -106, 12.5, 1.1)
pt3dadd(179.5, -102.5, 12.5, 1.1)
}
dend[314] {pt3dclear()
pt3dadd(184, -106, 12.5, 1.1)
pt3dadd(187, -106.5, 12.5, 1.1)
}
dend[315] {pt3dclear()
pt3dadd(168, -112, 13.5, 1.5)
pt3dadd(167, -119, 12, 1.1)
pt3dadd(170, -123, 12, 1.1)
pt3dadd(175.5, -124, 12, 1.1)
pt3dadd(183, -124, 12, 1.1)
pt3dadd(186, -127.5, 12, 1.1)
}
dend[316] {pt3dclear()
pt3dadd(150, -123.5, 12.5, 1.1)
pt3dadd(160, -121.5, 11.5, 1.1)
pt3dadd(168, -125, 11.5, 0.9)
}
dend[317] {pt3dclear()
pt3dadd(168, -125, 11.5, 0.9)
pt3dadd(171.5, -125.5, 11.5, 0.9)
}
dend[318] {pt3dclear()
pt3dadd(168, -125, 11.5, 0.9)
pt3dadd(169.5, -122.5, 11.5, 0.9)
}
dend[319] {pt3dclear()
pt3dadd(142.5, -126.5, 12.5, 1.6)
pt3dadd(153, -130.5, 12, 1.1)
}
dend[320] {pt3dclear()
pt3dadd(153, -130.5, 12, 1.1)
pt3dadd(161, -129, 14, 1.1)
pt3dadd(167.5, -132.5, 14, 1.5)
pt3dadd(170.5, -135.5, 13.5, 1.5)
pt3dadd(174, -134.5, 13.5, 1.5)
pt3dadd(176.5, -129.5, 14, 1.5)
pt3dadd(180, -118.5, 15, 1.5)
}
dend[321] {pt3dclear()
pt3dadd(153, -130.5, 12, 1.1)
pt3dadd(161.5, -137.5, 12, 1.2)
pt3dadd(169, -144.5, 12.5, 1.2)
pt3dadd(168.5, -153, 13, 1.2)
pt3dadd(175, -155.5, 13.5, 1.2)
pt3dadd(186, -154, 11, 1.2)
pt3dadd(201, -153, 11, 1.5)
}
dend[322] {pt3dclear()
pt3dadd(71.5, -56.5, 7, 6.6)
pt3dadd(72.5, -62, 10, 4.2)
pt3dadd(79.5, -68, 10, 4.2)
}
dend[323] {pt3dclear()
pt3dadd(79.5, -68, 10, 4.2)
pt3dadd(84, -66, 12, 2.2)
}
dend[324] {pt3dclear()
pt3dadd(84, -66, 12, 2.2)
pt3dadd(91.5, -74, 13, 2.2)
}
dend[325] {pt3dclear()
pt3dadd(84, -66, 12, 2.2)
pt3dadd(92.5, -72.5, 12, 1.7)
pt3dadd(98.5, -81, 11.5, 1.7)
}
dend[326] {pt3dclear()
pt3dadd(98.5, -81, 11.5, 1.7)
pt3dadd(102, -81, 11.5, 1.7)
}
dend[327] {pt3dclear()
pt3dadd(102, -81, 11.5, 1.7)
pt3dadd(107.5, -78.5, 11.5, 1.7)
}
dend[328] {pt3dclear()
pt3dadd(102, -81, 11.5, 1.7)
pt3dadd(105, -83.5, 11.5, 1.7)
}
dend[329] {pt3dclear()
pt3dadd(98.5, -81, 11.5, 1.7)
pt3dadd(98.5, -87.5, 11.5, 1.7)
pt3dadd(98.5, -95, 11.5, 1.7)
pt3dadd(99, -99, 11.5, 1.4)
pt3dadd(101.5, -101.5, 11.5, 1.4)
pt3dadd(106, -107.5, 11, 1.4)
pt3dadd(110, -113, 11, 1.4)
pt3dadd(105.5, -120, 11, 1.1)
}
dend[330] {pt3dclear()
pt3dadd(105.5, -120, 11, 1.1)
pt3dadd(104.5, -126.5, 11, 1.1)
pt3dadd(109, -130.5, 12, 1.1)
}
dend[331] {pt3dclear()
pt3dadd(105.5, -120, 11, 1.1)
pt3dadd(101, -127.5, 11.5, 1.1)
}
dend[332] {pt3dclear()
pt3dadd(79.5, -68, 10, 4.2)
pt3dadd(80.5, -70, 10, 3.4)
}
dend[333] {pt3dclear()
pt3dadd(80.5, -70, 10, 3.4)
pt3dadd(88.5, -78, 9.5, 1.8)
}
dend[334] {pt3dclear()
pt3dadd(88.5, -78, 9.5, 1.8)
pt3dadd(85.5, -85, 11.5, 1.8)
pt3dadd(87.5, -89.5, 11, 1.3)
pt3dadd(90, -91.5, 11, 1.3)
}
dend[335] {pt3dclear()
pt3dadd(90, -91.5, 11, 1.3)
pt3dadd(90.5, -96, 12.5, 1.3)
}
dend[336] {pt3dclear()
pt3dadd(90, -91.5, 11, 1.3)
pt3dadd(96.5, -97, 11, 1.3)
}
dend[337] {pt3dclear()
pt3dadd(88.5, -78, 9.5, 1.8)
pt3dadd(95, -77, 11.5, 2.1)
}
dend[338] {pt3dclear()
pt3dadd(95, -77, 11.5, 2.1)
pt3dadd(100, -86, 13, 1.7)
pt3dadd(97.5, -97.5, 12, 1.7)
}
dend[339] {pt3dclear()
pt3dadd(95, -77, 11.5, 2.1)
pt3dadd(101, -76.5, 12, 1.5)
pt3dadd(109.5, -73.5, 14, 1.5)
pt3dadd(114.5, -67.5, 9.5, 1.5)
pt3dadd(117.5, -66.5, 9.5, 1.5)
}
dend[340] {pt3dclear()
pt3dadd(117.5, -66.5, 9.5, 1.5)
pt3dadd(121, -64, 10.5, 1.5)
}
dend[341] {pt3dclear()
pt3dadd(117.5, -66.5, 9.5, 1.5)
pt3dadd(122.5, -68, 9.5, 1.5)
}
dend[342] {pt3dclear()
pt3dadd(80.5, -70, 10, 3.4)
pt3dadd(80.5, -78, 12, 3.4)
pt3dadd(78.5, -86, 12, 6)
}
dend[343] {pt3dclear()
pt3dadd(78.5, -86, 12, 6)
pt3dadd(73.5, -85.5, 12, 2.1)
}
dend[344] {pt3dclear()
pt3dadd(73.5, -85.5, 12, 2.1)
pt3dadd(70.5, -89.5, 12, 1.4)
pt3dadd(64, -91.5, 12, 1.4)
pt3dadd(55.5, -95.5, 12, 1.4)
pt3dadd(54, -97.5, 11.5, 1.1)
}
dend[345] {pt3dclear()
pt3dadd(73.5, -85.5, 12, 2.1)
pt3dadd(71.5, -84, 12, 1.3)
}
dend[346] {pt3dclear()
pt3dadd(71.5, -84, 12, 1.3)
pt3dadd(63, -83, 12.5, 1.3)
pt3dadd(59, -86, 12.5, 1.3)
}
dend[347] {pt3dclear()
pt3dadd(71.5, -84, 12, 1.3)
pt3dadd(68, -70.5, 13, 1.3)
}
dend[348] {pt3dclear()
pt3dadd(78.5, -86, 12, 6)
pt3dadd(80, -90.5, 12, 3.9)
pt3dadd(78, -99, 11.5, 5.8)
}
dend[349] {pt3dclear()
pt3dadd(78, -99, 11.5, 5.8)
pt3dadd(71.5, -101, 12.5, 2)
}
dend[350] {pt3dclear()
pt3dadd(71.5, -101, 12.5, 2)
pt3dadd(74, -108.5, 12.5, 2)
pt3dadd(78.5, -110, 12, 1.5)
}
dend[351] {pt3dclear()
pt3dadd(71.5, -101, 12.5, 2)
pt3dadd(65, -102, 12, 1.5)
pt3dadd(63.5, -101.5, 12, 1.5)
}
dend[352] {pt3dclear()
pt3dadd(63.5, -101.5, 12, 1.5)
pt3dadd(63.5, -107, 12, 1.5)
}
dend[353] {pt3dclear()
pt3dadd(63.5, -107, 12, 1.5)
pt3dadd(58.5, -121, 12.5, 1.5)
}
dend[354] {pt3dclear()
pt3dadd(63.5, -107, 12, 1.5)
pt3dadd(70, -116, 13, 1.5)
pt3dadd(63.5, -130, 13, 1.5)
}
dend[355] {pt3dclear()
pt3dadd(63.5, -101.5, 12, 1.5)
pt3dadd(57, -99.5, 13.5, 1.5)
}
dend[356] {pt3dclear()
pt3dadd(57, -99.5, 13.5, 1.5)
pt3dadd(50.5, -112.5, 13.5, 1.5)
pt3dadd(43.5, -115.5, 13.5, 1.5)
}
dend[357] {pt3dclear()
pt3dadd(57, -99.5, 13.5, 1.5)
pt3dadd(49.5, -98, 13, 1.5)
}
dend[358] {pt3dclear()
pt3dadd(49.5, -98, 13, 1.5)
pt3dadd(46.5, -103, 13, 1.5)
}
dend[359] {pt3dclear()
pt3dadd(46.5, -103, 13, 1.5)
pt3dadd(44.5, -105, 13, 1.5)
pt3dadd(39, -102.5, 13, 1.5)
}
dend[360] {pt3dclear()
pt3dadd(46.5, -103, 13, 1.5)
pt3dadd(46, -111.5, 13, 1.5)
}
dend[361] {pt3dclear()
pt3dadd(49.5, -98, 13, 1.5)
pt3dadd(45, -96.5, 13, 1.5)
}
dend[362] {pt3dclear()
pt3dadd(45, -96.5, 13, 1.5)
pt3dadd(39.5, -94, 13, 1.5)
}
dend[363] {pt3dclear()
pt3dadd(45, -96.5, 13, 1.5)
pt3dadd(40, -99.5, 13, 1.5)
}
dend[364] {pt3dclear()
pt3dadd(78, -99, 11.5, 5.8)
pt3dadd(83.5, -107, 11.5, 3)
pt3dadd(87.5, -111, 11.5, 3)
pt3dadd(90, -111.5, 11.5, 2.7)
}
dend[365] {pt3dclear()
pt3dadd(90, -111.5, 11.5, 2.7)
pt3dadd(96, -109, 11.5, 1.5)
}
dend[366] {pt3dclear()
pt3dadd(96, -109, 11.5, 1.5)
pt3dadd(101.5, -107, 12, 1.5)
}
dend[367] {pt3dclear()
pt3dadd(96, -109, 11.5, 1.5)
pt3dadd(99, -112.5, 11.5, 1.5)
pt3dadd(102.5, -112.5, 11.5, 1.5)
pt3dadd(106.5, -121.5, 12, 1.5)
pt3dadd(104, -127, 12, 1.5)
}
dend[368] {pt3dclear()
pt3dadd(90, -111.5, 11.5, 2.7)
pt3dadd(93.5, -117, 12.5, 3.5)
pt3dadd(94, -123, 12.5, 3.5)
pt3dadd(92, -126, 12.5, 3.5)
}
dend[369] {pt3dclear()
pt3dadd(92, -126, 12.5, 3.5)
pt3dadd(102.5, -132, 12.5, 2.1)
}
dend[370] {pt3dclear()
pt3dadd(102.5, -132, 12.5, 2.1)
pt3dadd(107, -130.5, 12, 1.5)
}
dend[371] {pt3dclear()
pt3dadd(102.5, -132, 12.5, 2.1)
pt3dadd(106, -135, 13, 1.2)
pt3dadd(107, -138, 13, 1.2)
}
dend[372] {pt3dclear()
pt3dadd(92, -126, 12.5, 3.5)
pt3dadd(86.5, -130, 12, 2.9)
pt3dadd(80.5, -136, 12, 2.9)
pt3dadd(79, -142, 12, 2.9)
pt3dadd(78.5, -148, 11.5, 4)
}
dend[373] {pt3dclear()
pt3dadd(78.5, -148, 11.5, 4)
pt3dadd(75.5, -152, 11.5, 1.7)
}
dend[374] {pt3dclear()
pt3dadd(75.5, -152, 11.5, 1.7)
pt3dadd(73, -155.5, 11.5, 1.4)
pt3dadd(69, -154, 10.5, 1.4)
}
dend[375] {pt3dclear()
pt3dadd(69, -154, 10.5, 1.4)
pt3dadd(60.5, -150, 10.5, 1.3)
pt3dadd(55, -143.5, 10.5, 1.3)
}
dend[376] {pt3dclear()
pt3dadd(55, -143.5, 10.5, 1.3)
pt3dadd(50, -147, 10.5, 1.3)
pt3dadd(50, -149.5, 11, 1.3)
}
dend[377] {pt3dclear()
pt3dadd(55, -143.5, 10.5, 1.3)
pt3dadd(50, -141, 11.5, 1.3)
}
dend[378] {pt3dclear()
pt3dadd(69, -154, 10.5, 1.4)
pt3dadd(63, -160, 10.5, 1.3)
pt3dadd(61, -161, 11, 1.3)
}
dend[379] {pt3dclear()
pt3dadd(75.5, -152, 11.5, 1.7)
pt3dadd(78, -158, 12, 1.6)
}
dend[380] {pt3dclear()
pt3dadd(78, -158, 12, 1.6)
pt3dadd(69.5, -163, 12, 1.6)
}
dend[381] {pt3dclear()
pt3dadd(69.5, -163, 12, 1.6)
pt3dadd(67.5, -161.5, 12.5, 1.3)
}
dend[382] {pt3dclear()
pt3dadd(67.5, -161.5, 12.5, 1.3)
pt3dadd(67.5, -158.5, 10, 1.3)
}
dend[383] {pt3dclear()
pt3dadd(67.5, -161.5, 12.5, 1.3)
}
}
proc shape3d_6() {
dend[383] { pt3dadd(63.5, -162, 10.5, 1.3)
}
dend[384] {pt3dclear()
pt3dadd(69.5, -163, 12, 1.6)
pt3dadd(69.5, -168.5, 13, 1.3)
pt3dadd(65, -171, 11, 1.3)
pt3dadd(62.5, -173.5, 11, 1.3)
}
dend[385] {pt3dclear()
pt3dadd(78, -158, 12, 1.6)
pt3dadd(79.5, -164.5, 12, 1.3)
pt3dadd(71, -170.5, 12, 1.3)
pt3dadd(67, -177, 10, 1.3)
}
dend[386] {pt3dclear()
pt3dadd(67, -177, 10, 1.3)
pt3dadd(63.5, -178.5, 10, 1)
}
dend[387] {pt3dclear()
pt3dadd(67, -177, 10, 1.3)
pt3dadd(69.5, -178, 10, 1)
}
dend[388] {pt3dclear()
pt3dadd(78.5, -148, 11.5, 4)
pt3dadd(81, -149, 11.5, 4.8)
}
dend[389] {pt3dclear()
pt3dadd(81, -149, 11.5, 4.8)
pt3dadd(87, -149, 11.5, 2.6)
}
dend[390] {pt3dclear()
pt3dadd(87, -149, 11.5, 2.6)
pt3dadd(88.5, -146.5, 11.5, 1.6)
}
dend[391] {pt3dclear()
pt3dadd(88.5, -146.5, 11.5, 1.6)
pt3dadd(95.5, -149.5, 12, 1.6)
}
dend[392] {pt3dclear()
pt3dadd(88.5, -146.5, 11.5, 1.6)
pt3dadd(85.5, -142, 11.5, 1.4)
}
dend[393] {pt3dclear()
pt3dadd(85.5, -142, 11.5, 1.4)
pt3dadd(82.5, -142, 11.5, 1.4)
}
dend[394] {pt3dclear()
pt3dadd(85.5, -142, 11.5, 1.4)
pt3dadd(86.5, -139, 12, 1.2)
}
dend[395] {pt3dclear()
pt3dadd(86.5, -139, 12, 1.2)
pt3dadd(87, -133, 12.5, 1.2)
}
dend[396] {pt3dclear()
pt3dadd(86.5, -139, 12, 1.2)
pt3dadd(93, -133.5, 12.5, 1.2)
}
dend[397] {pt3dclear()
pt3dadd(87, -149, 11.5, 2.6)
pt3dadd(91.5, -153.5, 13, 3.3)
}
dend[398] {pt3dclear()
pt3dadd(91.5, -153.5, 13, 3.3)
pt3dadd(104, -150, 13, 1.4)
}
dend[399] {pt3dclear()
pt3dadd(104, -150, 13, 1.4)
pt3dadd(109, -154, 12.5, 1.1)
}
dend[400] {pt3dclear()
pt3dadd(104, -150, 13, 1.4)
pt3dadd(106.5, -146, 13.5, 1.1)
}
dend[401] {pt3dclear()
pt3dadd(91.5, -153.5, 13, 3.3)
pt3dadd(93.5, -156, 12.5, 4.4)
}
dend[402] {pt3dclear()
pt3dadd(93.5, -156, 12.5, 4.4)
pt3dadd(103, -158, 12, 2.6)
}
dend[403] {pt3dclear()
pt3dadd(103, -158, 12, 2.6)
pt3dadd(104, -160.5, 12, 1.7)
}
dend[404] {pt3dclear()
pt3dadd(104, -160.5, 12, 1.7)
pt3dadd(100, -168.5, 11.5, 1.3)
pt3dadd(101, -173.5, 11.5, 1.3)
pt3dadd(103, -177.5, 11.5, 1.3)
pt3dadd(104, -178.5, 10.5, 1.3)
}
dend[405] {pt3dclear()
pt3dadd(104, -178.5, 10.5, 1.3)
pt3dadd(107.5, -174, 10.5, 0.8)
}
dend[406] {pt3dclear()
pt3dadd(107.5, -174, 10.5, 0.8)
pt3dadd(106, -172, 10.5, 0.8)
}
dend[407] {pt3dclear()
pt3dadd(107.5, -174, 10.5, 0.8)
pt3dadd(108, -173, 10.5, 0.8)
}
dend[408] {pt3dclear()
pt3dadd(104, -178.5, 10.5, 1.3)
pt3dadd(105, -185.5, 10.5, 0.8)
}
dend[409] {pt3dclear()
pt3dadd(104, -160.5, 12, 1.7)
pt3dadd(110, -169, 11, 0.8)
}
dend[410] {pt3dclear()
pt3dadd(110, -169, 11, 0.8)
pt3dadd(110.5, -167, 11, 0.8)
pt3dadd(106.5, -161, 11.5, 0.8)
}
dend[411] {pt3dclear()
pt3dadd(110, -169, 11, 0.8)
pt3dadd(111.5, -171.5, 11, 0.8)
}
dend[412] {pt3dclear()
pt3dadd(111.5, -171.5, 11, 0.8)
pt3dadd(113, -169.5, 10.5, 0.8)
}
dend[413] {pt3dclear()
pt3dadd(111.5, -171.5, 11, 0.8)
pt3dadd(111.5, -177.5, 12, 0.8)
pt3dadd(110.5, -186.5, 12, 0.8)
}
dend[414] {pt3dclear()
pt3dadd(103, -158, 12, 2.6)
pt3dadd(112, -158, 12, 0.8)
}
dend[415] {pt3dclear()
pt3dadd(112, -158, 12, 0.8)
pt3dadd(114, -155.5, 12, 1.3)
}
dend[416] {pt3dclear()
pt3dadd(114, -155.5, 12, 1.3)
pt3dadd(112, -152, 12, 1.3)
}
dend[417] {pt3dclear()
pt3dadd(112, -152, 12, 1.3)
pt3dadd(110, -149, 11.5, 1.3)
}
dend[418] {pt3dclear()
pt3dadd(112, -152, 12, 1.3)
pt3dadd(114, -149.5, 12, 1.3)
}
dend[419] {pt3dclear()
pt3dadd(114, -149.5, 12, 1.3)
pt3dadd(114, -148, 12, 1.3)
}
dend[420] {pt3dclear()
pt3dadd(114, -149.5, 12, 1.3)
pt3dadd(116.5, -148.5, 12.5, 1.3)
}
dend[421] {pt3dclear()
pt3dadd(114, -155.5, 12, 1.3)
pt3dadd(116.5, -152.5, 10.5, 1.1)
}
dend[422] {pt3dclear()
pt3dadd(116.5, -152.5, 10.5, 1.1)
pt3dadd(116.5, -150, 11, 1)
}
dend[423] {pt3dclear()
pt3dadd(116.5, -152.5, 10.5, 1.1)
pt3dadd(119, -153.5, 11.5, 1)
}
dend[424] {pt3dclear()
pt3dadd(112, -158, 12, 0.8)
pt3dadd(117.5, -160, 11, 1.3)
}
dend[425] {pt3dclear()
pt3dadd(117.5, -160, 11, 1.3)
pt3dadd(119, -160, 11, 1.3)
}
dend[426] {pt3dclear()
pt3dadd(119, -160, 11, 1.3)
pt3dadd(121, -156, 11, 1.3)
}
dend[427] {pt3dclear()
pt3dadd(119, -160, 11, 1.3)
pt3dadd(122.5, -165, 11, 1.3)
pt3dadd(125, -167, 11, 1.3)
}
dend[428] {pt3dclear()
pt3dadd(117.5, -160, 11, 1.3)
pt3dadd(115.5, -164, 10.5, 1.3)
}
dend[429] {pt3dclear()
pt3dadd(93.5, -156, 12.5, 4.4)
pt3dadd(97.5, -164, 12, 1.5)
pt3dadd(99.5, -167, 12, 1.5)
pt3dadd(106, -170, 12, 1.5)
pt3dadd(108.5, -176.5, 12.5, 1.5)
pt3dadd(108, -182, 12.5, 1.5)
pt3dadd(106, -187, 11.5, 1.5)
pt3dadd(110, -192, 9.5, 1.5)
}
dend[430] {pt3dclear()
pt3dadd(110, -192, 9.5, 1.5)
pt3dadd(113, -194.5, 10.5, 1.5)
}
dend[431] {pt3dclear()
pt3dadd(113, -194.5, 10.5, 1.5)
pt3dadd(115, -194.5, 10.5, 1.5)
}
dend[432] {pt3dclear()
pt3dadd(113, -194.5, 10.5, 1.5)
pt3dadd(112.5, -204, 12.5, 1.5)
}
dend[433] {pt3dclear()
pt3dadd(110, -192, 9.5, 1.5)
pt3dadd(106.5, -202, 9, 1.5)
}
dend[434] {pt3dclear()
pt3dadd(106.5, -202, 9, 1.5)
pt3dadd(112, -215.5, 9.5, 1.2)
}
dend[435] {pt3dclear()
pt3dadd(106.5, -202, 9, 1.5)
pt3dadd(101.5, -202, 6.5, 1.2)
}
dend[436] {pt3dclear()
pt3dadd(101.5, -202, 6.5, 1.2)
pt3dadd(102.5, -206.5, 6, 1.6)
}
dend[437] {pt3dclear()
pt3dadd(102.5, -206.5, 6, 1.6)
pt3dadd(106.5, -209, 7, 1.6)
pt3dadd(106.5, -216, 7, 1.4)
}
dend[438] {pt3dclear()
pt3dadd(106.5, -216, 7, 1.4)
pt3dadd(110, -216.5, 6.5, 1.3)
}
dend[439] {pt3dclear()
pt3dadd(106.5, -216, 7, 1.4)
pt3dadd(107.5, -217.5, 7.5, 1.3)
}
dend[440] {pt3dclear()
pt3dadd(102.5, -206.5, 6, 1.6)
pt3dadd(103.5, -217, 6, 1.3)
}
dend[441] {pt3dclear()
pt3dadd(101.5, -202, 6.5, 1.2)
pt3dadd(96, -200, 6.5, 1.3)
}
dend[442] {pt3dclear()
pt3dadd(81, -149, 11.5, 4.8)
pt3dadd(81, -155.5, 12.5, 1.8)
pt3dadd(88.5, -167.5, 11.5, 3.3)
}
dend[443] {pt3dclear()
pt3dadd(88.5, -167.5, 11.5, 3.3)
pt3dadd(92, -171.5, 12, 2.1)
pt3dadd(91, -174.5, 12, 2.6)
}
dend[444] {pt3dclear()
pt3dadd(91, -174.5, 12, 2.6)
pt3dadd(87.5, -178.5, 11.5, 1.9)
pt3dadd(84.5, -182, 11, 1.6)
}
dend[445] {pt3dclear()
pt3dadd(84.5, -182, 11, 1.6)
pt3dadd(70.5, -189, 11, 1.6)
pt3dadd(67.5, -190, 11, 1.6)
}
dend[446] {pt3dclear()
pt3dadd(84.5, -182, 11, 1.6)
pt3dadd(86.5, -187, 11, 1.6)
pt3dadd(89, -197.5, 12.5, 1.6)
pt3dadd(92, -199.5, 11.5, 1.6)
}
dend[447] {pt3dclear()
pt3dadd(91, -174.5, 12, 2.6)
pt3dadd(91, -185.5, 11, 1.6)
}
dend[448] {pt3dclear()
pt3dadd(91, -185.5, 11, 1.6)
pt3dadd(84.5, -192, 11, 1.6)
pt3dadd(84.5, -199.5, 11.5, 1.6)
pt3dadd(92, -207.5, 9.5, 1.6)
}
dend[449] {pt3dclear()
pt3dadd(91, -185.5, 11, 1.6)
pt3dadd(93, -195, 13, 1.6)
pt3dadd(94, -201.5, 15.5, 1.6)
}
dend[450] {pt3dclear()
pt3dadd(94, -201.5, 15.5, 1.6)
pt3dadd(93.5, -208.5, 8.5, 1.6)
}
dend[451] {pt3dclear()
pt3dadd(93.5, -208.5, 8.5, 1.6)
pt3dadd(99, -211, 8.5, 1.6)
}
dend[452] {pt3dclear()
pt3dadd(93.5, -208.5, 8.5, 1.6)
pt3dadd(90, -210, 8.5, 1.6)
}
dend[453] {pt3dclear()
pt3dadd(94, -201.5, 15.5, 1.6)
pt3dadd(96.5, -204, 7, 1.6)
}
dend[454] {pt3dclear()
pt3dadd(88.5, -167.5, 11.5, 3.3)
pt3dadd(82.5, -172.5, 11.5, 1.6)
pt3dadd(74.5, -176.5, 11.5, 1.9)
}
dend[455] {pt3dclear()
pt3dadd(74.5, -176.5, 11.5, 1.9)
pt3dadd(76, -193, 10.5, 1.9)
}
dend[456] {pt3dclear()
pt3dadd(76, -193, 10.5, 1.9)
pt3dadd(81.5, -205, 14, 1.9)
}
dend[457] {pt3dclear()
pt3dadd(76, -193, 10.5, 1.9)
pt3dadd(71, -201.5, 11, 1.9)
}
dend[458] {pt3dclear()
pt3dadd(74.5, -176.5, 11.5, 1.9)
pt3dadd(68, -184, 11.5, 1.9)
pt3dadd(64.5, -201, 12.5, 1.9)
}
dend[459] {pt3dclear()
pt3dadd(8.27297, -4.47026, 1.5, 6)
pt3dadd(17, -13.5, 1.5, 4.2)
}
dend[460] {pt3dclear()
pt3dadd(17, -13.5, 1.5, 4.2)
pt3dadd(19.5, -10.5, 1.5, 2)
pt3dadd(21.5, -8.5, 1.5, 2)
}
dend[461] {pt3dclear()
pt3dadd(21.5, -8.5, 1.5, 2)
pt3dadd(23, -9, 1.5, 1.5)
pt3dadd(27, -6.5, 1.5, 1.5)
}
dend[462] {pt3dclear()
pt3dadd(21.5, -8.5, 1.5, 2)
pt3dadd(21.5, -6.5, 1.5, 1.3)
pt3dadd(21.5, -5, 1.5, 1.3)
pt3dadd(17.5, -3.5, 1.5, 1.3)
pt3dadd(15.5, -3.5, 3, 1.3)
pt3dadd(14, -3.5, 3, 1.3)
pt3dadd(12, -3.5, 3, 1.3)
pt3dadd(10, -4, 1, 1.3)
pt3dadd(9.5, -4, 1, 1.3)
}
dend[463] {pt3dclear()
pt3dadd(17, -13.5, 1.5, 4.2)
pt3dadd(22.5, -16, 1.5, 3.2)
pt3dadd(29.5, -19, 1.5, 3.2)
pt3dadd(37.5, -20, 2.5, 5.1)
}
}
proc shape3d_7() {
dend[463] { pt3dadd(40.5, -15.5, 2.5, 2.4)
pt3dadd(42, -14.5, 2.5, 1.7)
}
dend[464] {pt3dclear()
pt3dadd(42, -14.5, 2.5, 1.7)
pt3dadd(45, -15, 2.5, 1.7)
pt3dadd(49, -15.5, 2.5, 1.7)
pt3dadd(51, -13.5, 2.5, 1.7)
pt3dadd(52, -11, 2.5, 1.7)
pt3dadd(55.5, -8, 2.5, 1.7)
pt3dadd(57.5, -4, 2.5, 1.7)
}
dend[465] {pt3dclear()
pt3dadd(42, -14.5, 2.5, 1.7)
pt3dadd(44, -13, 2.5, 1.7)
pt3dadd(48, -13, 2.5, 1.7)
pt3dadd(51.5, -13, 2.5, 1.7)
pt3dadd(54, -13, 2.5, 1.7)
pt3dadd(53, -9.5, 2.5, 1.7)
pt3dadd(52, -7.5, 2.5, 1.7)
}
dend[466] {pt3dclear()
pt3dadd(52, -7.5, 2.5, 1.7)
pt3dadd(49.5, -7.5, 2.5, 1.2)
pt3dadd(48.5, -6, 2.5, 1.2)
pt3dadd(47, -5, 3, 1.4)
}
dend[467] {pt3dclear()
pt3dadd(47, -5, 3, 1.4)
pt3dadd(44.5, -4, 3, 1.4)
pt3dadd(41.5, -4, 3, 1.4)
pt3dadd(39.5, -4, 3, 1.4)
pt3dadd(39, -3, 3, 1)
pt3dadd(36, -1.5, 3, 1)
pt3dadd(34, -1, 3, 1)
pt3dadd(31.5, -1, 3, 1)
}
dend[468] {pt3dclear()
pt3dadd(31.5, -1, 3, 1)
pt3dadd(28, 1, 3, 1)
pt3dadd(27, 3, 3, 1.4)
pt3dadd(27, 6, 3, 1.4)
pt3dadd(27, 8, 3, 1.4)
pt3dadd(26, 10.5, 2.5, 1.4)
}
dend[469] {pt3dclear()
pt3dadd(31.5, -1, 3, 1)
pt3dadd(28.5, -1.5, 3, 1.1)
pt3dadd(23.5, -2.5, 3, 1.1)
pt3dadd(20.5, -2, 3, 1.1)
pt3dadd(17.5, -1, 3, 0.9)
pt3dadd(16, 0, 3, 0.9)
}
dend[470] {pt3dclear()
pt3dadd(47, -5, 3, 1.4)
pt3dadd(49, -3, 3, 1)
pt3dadd(49.5, 0.5, 3, 1)
pt3dadd(52.5, 3.5, 3, 1)
pt3dadd(53.5, 6, 3, 1)
pt3dadd(54.5, 8.5, 3, 1)
pt3dadd(56, 12.5, 3, 1.1)
pt3dadd(58, 14, 3, 1.3)
}
dend[471] {pt3dclear()
pt3dadd(58, 14, 3, 1.3)
pt3dadd(58, 17, 3, 1.3)
pt3dadd(59.5, 19, 3, 1.3)
}
dend[472] {pt3dclear()
pt3dadd(58, 14, 3, 1.3)
pt3dadd(61, 14.5, 3, 1.1)
pt3dadd(61.5, 14, 3, 1.1)
}
dend[473] {pt3dclear()
pt3dadd(61.5, 14, 3, 1.1)
pt3dadd(63.5, 13, 3, 1.1)
}
dend[474] {pt3dclear()
pt3dadd(61.5, 14, 3, 1.1)
pt3dadd(64.5, 17, 3, 1.1)
}
dend[475] {pt3dclear()
pt3dadd(52, -7.5, 2.5, 1.7)
pt3dadd(56.5, -3.5, 4.5, 1.1)
pt3dadd(59, -1, 4.5, 1.1)
pt3dadd(61, 0.5, 4.5, 1)
}
dend[476] {pt3dclear()
pt3dadd(61, 0.5, 4.5, 1)
pt3dadd(59, 4.5, 4.5, 1)
pt3dadd(59, 6, 4.5, 1.1)
pt3dadd(54, 7.5, 4.5, 1.1)
pt3dadd(51, 7.5, 4.5, 1.1)
pt3dadd(47.5, 8, 4.5, 1.1)
pt3dadd(47, 10, 3.5, 1.1)
pt3dadd(48, 15, 3.5, 1.1)
pt3dadd(48, 17, 3.5, 1.1)
pt3dadd(50.5, 20, 3.5, 1.1)
pt3dadd(52, 21.5, 3.5, 1.1)
pt3dadd(52, 25, 3.5, 1.1)
pt3dadd(50, 28.5, 3.5, 1.1)
}
dend[477] {pt3dclear()
pt3dadd(61, 0.5, 4.5, 1)
pt3dadd(61.5, 2.5, 4, 1.1)
}
dend[478] {pt3dclear()
pt3dadd(61.5, 2.5, 4, 1.1)
pt3dadd(60.5, 7, 4, 1.1)
pt3dadd(58, 10.5, 4, 1.1)
pt3dadd(55.5, 14.5, 4, 1.1)
pt3dadd(52.5, 17.5, 4, 1.1)
pt3dadd(51.5, 18.5, 4, 1.1)
}
dend[479] {pt3dclear()
pt3dadd(61.5, 2.5, 4, 1.1)
pt3dadd(64.5, 5.5, 4, 1.1)
pt3dadd(66.5, 9, 7.5, 1.1)
pt3dadd(69, 11, 7.5, 1.1)
}
dend[480] {pt3dclear()
pt3dadd(69, 11, 7.5, 1.1)
pt3dadd(67, 14.5, 7.5, 1.1)
}
dend[481] {pt3dclear()
pt3dadd(69, 11, 7.5, 1.1)
pt3dadd(71.5, 11, 7.5, 1.1)
pt3dadd(74.5, 11, 7.5, 1.1)
}
dend[482] {pt3dclear()
pt3dadd(74.5, 11, 7.5, 1.1)
pt3dadd(74.5, 15.5, 7.5, 1.1)
}
dend[483] {pt3dclear()
pt3dadd(74.5, 11, 7.5, 1.1)
pt3dadd(77.5, 12, 7.5, 1.1)
pt3dadd(82, 12, 7.5, 1.1)
}
dend[484] {pt3dclear()
pt3dadd(82, 12, 7.5, 1.1)
pt3dadd(84, 10.5, 7.5, 1.1)
}
dend[485] {pt3dclear()
pt3dadd(82, 12, 7.5, 1.1)
pt3dadd(84, 14.5, 7.5, 1.1)
}
dend[486] {pt3dclear()
pt3dadd(84, 14.5, 7.5, 1.1)
pt3dadd(82, 17, 7.5, 1.1)
}
dend[487] {pt3dclear()
pt3dadd(84, 14.5, 7.5, 1.1)
pt3dadd(87.5, 15.5, 7, 0.7)
}
dend[488] {pt3dclear()
pt3dadd(11.5, -12, 1.5, 6)
pt3dadd(13, -15.5, 1, 5.4)
pt3dadd(12, -22.5, 0.5, 4.1)
pt3dadd(13.5, -33, -1, 3.9)
}
dend[489] {pt3dclear()
pt3dadd(13.5, -33, -1, 3.9)
pt3dadd(7, -40, -1, 1.8)
}
dend[490] {pt3dclear()
pt3dadd(13.5, -33, -1, 3.9)
pt3dadd(13.5, -39.5, 1, 4.3)
}
dend[491] {pt3dclear()
pt3dadd(13.5, -39.5, 1, 4.3)
pt3dadd(19, -39, 1, 4.2)
pt3dadd(23.5, -43, 1, 4.2)
}
dend[492] {pt3dclear()
pt3dadd(23.5, -43, 1, 4.2)
pt3dadd(26, -41.5, 1, 1.7)
}
dend[493] {pt3dclear()
pt3dadd(26, -41.5, 1, 1.7)
pt3dadd(28.5, -40, 1.5, 1.7)
}
dend[494] {pt3dclear()
pt3dadd(26, -41.5, 1, 1.7)
pt3dadd(24, -35, 1, 1.7)
}
dend[495] {pt3dclear()
pt3dadd(24, -35, 1, 1.7)
pt3dadd(24, -25, 1.5, 1.7)
}
dend[496] {pt3dclear()
pt3dadd(24, -35, 1, 1.7)
pt3dadd(21.5, -30.5, 1, 1.7)
pt3dadd(20, -24.5, 1, 1.7)
}
dend[497] {pt3dclear()
pt3dadd(23.5, -43, 1, 4.2)
pt3dadd(24.5, -47.5, 1, 4.4)
}
dend[498] {pt3dclear()
pt3dadd(24.5, -47.5, 1, 4.4)
pt3dadd(28.5, -50.5, 0, 2.2)
pt3dadd(29.5, -54, 1, 2.2)
pt3dadd(31, -60.5, 1.5, 2.2)
pt3dadd(35, -63, 1.5, 2.2)
}
dend[499] {pt3dclear()
pt3dadd(35, -63, 1.5, 2.2)
pt3dadd(35, -65.5, 1, 1.5)
}
dend[500] {pt3dclear()
pt3dadd(35, -65.5, 1, 1.5)
pt3dadd(34.5, -70, 1, 1.5)
}
dend[501] {pt3dclear()
pt3dadd(35, -65.5, 1, 1.5)
pt3dadd(40.5, -67.5, 1, 1.5)
}
dend[502] {pt3dclear()
pt3dadd(35, -63, 1.5, 2.2)
pt3dadd(41, -61, 2.5, 1.5)
}
dend[503] {pt3dclear()
pt3dadd(41, -61, 2.5, 1.5)
pt3dadd(43.5, -67, 2.5, 1.5)
}
dend[504] {pt3dclear()
pt3dadd(43.5, -67, 2.5, 1.5)
pt3dadd(42, -71, 2.5, 1.5)
}
dend[505] {pt3dclear()
pt3dadd(43.5, -67, 2.5, 1.5)
pt3dadd(48.5, -67.5, 2.5, 1.5)
pt3dadd(52.5, -66.5, 3, 1.3)
}
dend[506] {pt3dclear()
pt3dadd(52.5, -66.5, 3, 1.3)
pt3dadd(57, -71, 3, 1.3)
}
dend[507] {pt3dclear()
pt3dadd(52.5, -66.5, 3, 1.3)
pt3dadd(54.5, -62, 3, 1.3)
}
dend[508] {pt3dclear()
pt3dadd(41, -61, 2.5, 1.5)
pt3dadd(43, -59.5, 2.5, 1.5)
pt3dadd(46.5, -57.5, 2.5, 1.6)
pt3dadd(53, -56.5, 2.5, 1.8)
pt3dadd(57.5, -56.5, 2.5, 4.1)
}
dend[509] {pt3dclear()
pt3dadd(57.5, -56.5, 2.5, 4.1)
pt3dadd(57, -48.5, 2.5, 2.1)
}
dend[510] {pt3dclear()
pt3dadd(57.5, -56.5, 2.5, 4.1)
pt3dadd(64, -57.5, 2.5, 3.2)
}
dend[511] {pt3dclear()
pt3dadd(64, -57.5, 2.5, 3.2)
pt3dadd(72.5, -57.5, 1.5, 2)
pt3dadd(81, -57.5, 2, 2)
}
dend[512] {pt3dclear()
pt3dadd(81, -57.5, 2, 2)
pt3dadd(82, -63, 2, 2)
}
dend[513] {pt3dclear()
pt3dadd(81, -57.5, 2, 2)
pt3dadd(87.5, -57.5, 2, 2)
pt3dadd(99, -56, 2, 2)
pt3dadd(113.5, -54.5, 2, 2)
pt3dadd(123, -53, 1.5, 1.7)
}
dend[514] {pt3dclear()
pt3dadd(123, -53, 1.5, 1.7)
pt3dadd(123.5, -43, 2, 1.7)
}
dend[515] {pt3dclear()
pt3dadd(123, -53, 1.5, 1.7)
pt3dadd(127.5, -55.5, 1.5, 1.7)
pt3dadd(131.5, -54, 1.5, 1.7)
}
dend[516] {pt3dclear()
pt3dadd(64, -57.5, 2.5, 3.2)
pt3dadd(69, -63, 2.5, 2)
}
dend[517] {pt3dclear()
pt3dadd(69, -63, 2.5, 2)
pt3dadd(70, -67, 2.5, 1.6)
pt3dadd(70.5, -69, 1.5, 1.6)
}
dend[518] {pt3dclear()
pt3dadd(69, -63, 2.5, 2)
pt3dadd(76.5, -64.5, 2.5, 1.6)
pt3dadd(86, -64, 3.5, 1.6)
pt3dadd(92, -68, 5, 1.6)
pt3dadd(95, -70, 5.5, 1.6)
}
dend[519] {pt3dclear()
pt3dadd(24.5, -47.5, 1, 4.4)
pt3dadd(21, -53, -1.5, 3.3)
pt3dadd(20.5, -68, -1.5, 5)
}
dend[520] {pt3dclear()
pt3dadd(20.5, -68, -1.5, 5)
pt3dadd(15.5, -68.5, -1.5, 2)
pt3dadd(11.5, -71, -1.5, 2)
pt3dadd(11.5, -71.5, -1.5, 2)
}
dend[521] {pt3dclear()
pt3dadd(11.5, -71.5, -1.5, 2)
pt3dadd(9, -75.5, -1.5, 2)
pt3dadd(-0.5, -72.5, -1.5, 2)
}
dend[522] {pt3dclear()
pt3dadd(-0.5, -72.5, -1.5, 2)
pt3dadd(-6.5, -71, -1.5, 2)
pt3dadd(-12.5, -69.5, -1.5, 2)
}
}
proc shape3d_8() {
dend[522] { }
dend[523] {pt3dclear()
pt3dadd(-0.5, -72.5, -1.5, 2)
pt3dadd(-2.5, -77, -1.5, 2)
}
dend[524] {pt3dclear()
pt3dadd(-2.5, -77, -1.5, 2)
pt3dadd(-6.5, -78, -1.5, 2)
}
dend[525] {pt3dclear()
pt3dadd(-2.5, -77, -1.5, 2)
pt3dadd(-0.5, -82.5, -1, 2)
pt3dadd(3.5, -84, 0, 2)
pt3dadd(6.5, -98, 0.5, 2)
}
dend[526] {pt3dclear()
pt3dadd(11.5, -71.5, -1.5, 2)
pt3dadd(7, -72, -1.5, 2)
pt3dadd(4, -66.5, -1.5, 1.6)
}
dend[527] {pt3dclear()
pt3dadd(20.5, -68, -1.5, 5)
pt3dadd(23.5, -73, -1, 3.1)
}
dend[528] {pt3dclear()
pt3dadd(23.5, -73, -1, 3.1)
pt3dadd(17, -75.5, -1.5, 1.9)
pt3dadd(13, -79, -1.5, 1.9)
}
dend[529] {pt3dclear()
pt3dadd(13, -79, -1.5, 1.9)
pt3dadd(0, -82.5, -1.5, 1.9)
pt3dadd(-4, -82.5, -1.5, 1.9)
pt3dadd(-4.5, -80.5, -1.5, 1.8)
}
dend[530] {pt3dclear()
pt3dadd(13, -79, -1.5, 1.9)
pt3dadd(16.5, -81.5, -1, 1.8)
}
dend[531] {pt3dclear()
pt3dadd(16.5, -81.5, -1, 1.8)
pt3dadd(25, -82.5, -0.5, 1.5)
}
dend[532] {pt3dclear()
pt3dadd(16.5, -81.5, -1, 1.8)
pt3dadd(16.5, -89, -0.5, 1.5)
pt3dadd(14.5, -95.5, -0.5, 1.5)
}
dend[533] {pt3dclear()
pt3dadd(23.5, -73, -1, 3.1)
pt3dadd(26, -78, -0.5, 2.3)
pt3dadd(32.5, -83.5, 0, 2.3)
}
dend[534] {pt3dclear()
pt3dadd(32.5, -83.5, 0, 2.3)
pt3dadd(37, -80, 0, 1.2)
pt3dadd(40.5, -75.5, 0.5, 1.2)
pt3dadd(44.5, -72, 0.5, 1.2)
}
dend[535] {pt3dclear()
pt3dadd(44.5, -72, 0.5, 1.2)
pt3dadd(43.5, -69, 0.5, 1.2)
}
dend[536] {pt3dclear()
pt3dadd(44.5, -72, 0.5, 1.2)
pt3dadd(49, -73, 1, 1.2)
pt3dadd(54, -76.5, 1.5, 1.2)
pt3dadd(51.5, -80, 1.5, 1.2)
}
dend[537] {pt3dclear()
pt3dadd(51.5, -80, 1.5, 1.2)
pt3dadd(49, -77.5, 1.5, 1.2)
}
dend[538] {pt3dclear()
pt3dadd(51.5, -80, 1.5, 1.2)
pt3dadd(60.5, -78.5, 2, 1.2)
}
dend[539] {pt3dclear()
pt3dadd(32.5, -83.5, 0, 2.3)
pt3dadd(35.5, -88, -0.5, 2)
pt3dadd(37, -95, -0.5, 2.7)
}
dend[540] {pt3dclear()
pt3dadd(37, -95, -0.5, 2.7)
pt3dadd(41.5, -97, -0.5, 1.9)
pt3dadd(51, -95.5, 0, 1.9)
}
dend[541] {pt3dclear()
pt3dadd(37, -95, -0.5, 2.7)
pt3dadd(35.5, -103, -0.5, 3)
pt3dadd(34, -114, 0.5, 5.8)
}
dend[542] {pt3dclear()
pt3dadd(34, -114, 0.5, 5.8)
pt3dadd(44.5, -117.5, -1.5, 3.3)
}
dend[543] {pt3dclear()
pt3dadd(44.5, -117.5, -1.5, 3.3)
pt3dadd(50, -115, -0.5, 2.2)
}
dend[544] {pt3dclear()
pt3dadd(50, -115, -0.5, 2.2)
pt3dadd(52, -112.5, -1.5, 2.2)
}
dend[545] {pt3dclear()
pt3dadd(50, -115, -0.5, 2.2)
pt3dadd(54.5, -115.5, 1, 2.1)
}
dend[546] {pt3dclear()
pt3dadd(54.5, -115.5, 1, 2.1)
pt3dadd(53, -119, 1, 1.8)
}
dend[547] {pt3dclear()
pt3dadd(53, -119, 1, 1.8)
pt3dadd(48.5, -122.5, 0.5, 1.6)
}
dend[548] {pt3dclear()
pt3dadd(53, -119, 1, 1.8)
pt3dadd(57, -123, 1, 1.6)
}
dend[549] {pt3dclear()
pt3dadd(54.5, -115.5, 1, 2.1)
pt3dadd(59, -115.5, 1, 1.6)
pt3dadd(67, -116.5, 1.5, 1.5)
}
dend[550] {pt3dclear()
pt3dadd(67, -116.5, 1.5, 1.5)
pt3dadd(74.5, -116.5, 1.5, 1.5)
}
dend[551] {pt3dclear()
pt3dadd(67, -116.5, 1.5, 1.5)
pt3dadd(82.5, -110, 3, 1.5)
}
dend[552] {pt3dclear()
pt3dadd(44.5, -117.5, -1.5, 3.3)
pt3dadd(45.5, -123, -1, 1.5)
pt3dadd(54, -128.5, 1, 1.5)
}
dend[553] {pt3dclear()
pt3dadd(54, -128.5, 1, 1.5)
pt3dadd(48, -132.5, 1, 1.5)
}
dend[554] {pt3dclear()
pt3dadd(54, -128.5, 1, 1.5)
pt3dadd(61, -135.5, 3, 1.5)
}
dend[555] {pt3dclear()
pt3dadd(34, -114, 0.5, 5.8)
pt3dadd(30, -119, -1, 4.2)
pt3dadd(26.5, -123, -1, 4.2)
pt3dadd(22, -126.5, -1.5, 4.2)
pt3dadd(19, -132.5, -1.5, 4.2)
pt3dadd(22, -136, -1.5, 3.3)
}
dend[556] {pt3dclear()
pt3dadd(22, -136, -1.5, 3.3)
pt3dadd(29, -137.5, -0.5, 2.9)
}
dend[557] {pt3dclear()
pt3dadd(29, -137.5, -0.5, 2.9)
pt3dadd(32.5, -135.5, -0.5, 1.9)
pt3dadd(38, -137.5, 0, 1.9)
pt3dadd(42, -139, 0, 1.8)
}
dend[558] {pt3dclear()
pt3dadd(42, -139, 0, 1.8)
pt3dadd(45, -140, 0, 1.8)
}
dend[559] {pt3dclear()
pt3dadd(42, -139, 0, 1.8)
pt3dadd(44, -135.5, 0.5, 1.8)
pt3dadd(44, -130.5, 0.5, 1.8)
}
dend[560] {pt3dclear()
pt3dadd(29, -137.5, -0.5, 2.9)
pt3dadd(32.5, -139.5, 0.5, 2.7)
}
dend[561] {pt3dclear()
pt3dadd(32.5, -139.5, 0.5, 2.7)
pt3dadd(40, -143, 1, 2)
}
dend[562] {pt3dclear()
pt3dadd(40, -143, 1, 2)
pt3dadd(45, -149, 3, 2)
pt3dadd(44.5, -149, -1, 2)
}
dend[563] {pt3dclear()
pt3dadd(44.5, -149, -1, 2)
pt3dadd(57.5, -150.5, 0, 2)
}
dend[564] {pt3dclear()
pt3dadd(44.5, -149, -1, 2)
pt3dadd(48, -154, -1.5, 1.4)
}
dend[565] {pt3dclear()
pt3dadd(48, -154, -1.5, 1.4)
pt3dadd(53.5, -152, -1, 1.4)
}
dend[566] {pt3dclear()
pt3dadd(48, -154, -1.5, 1.4)
pt3dadd(53.5, -163.5, -1, 1.4)
pt3dadd(56, -165, -1, 1.4)
}
dend[567] {pt3dclear()
pt3dadd(56, -165, -1, 1.4)
pt3dadd(59, -164, -1, 1.4)
}
dend[568] {pt3dclear()
pt3dadd(56, -165, -1, 1.4)
pt3dadd(58, -169, -0.5, 1.2)
}
dend[569] {pt3dclear()
pt3dadd(58, -169, -0.5, 1.2)
pt3dadd(60, -171.5, -0.5, 1.2)
}
dend[570] {pt3dclear()
pt3dadd(60, -171.5, -0.5, 1.2)
pt3dadd(63.5, -177.5, 0, 1.2)
}
dend[571] {pt3dclear()
pt3dadd(60, -171.5, -0.5, 1.2)
pt3dadd(59, -174.5, -0.5, 1.2)
}
dend[572] {pt3dclear()
pt3dadd(58, -169, -0.5, 1.2)
pt3dadd(55.5, -171.5, -0.5, 1.2)
}
dend[573] {pt3dclear()
pt3dadd(40, -143, 1, 2)
pt3dadd(41.5, -151.5, 2.5, 1.2)
pt3dadd(48, -157, 4, 1.2)
}
dend[574] {pt3dclear()
pt3dadd(32.5, -139.5, 0.5, 2.7)
pt3dadd(36, -148, -1.5, 2)
pt3dadd(36.5, -152.5, -4, 4.3)
}
dend[575] {pt3dclear()
pt3dadd(36.5, -152.5, -4, 4.3)
pt3dadd(39.5, -156, -3.5, 3.7)
}
dend[576] {pt3dclear()
pt3dadd(39.5, -156, -3.5, 3.7)
pt3dadd(43.5, -157.5, -3.5, 2.4)
pt3dadd(48.5, -162.5, -3, 2.4)
pt3dadd(51.5, -169.5, -2, 2.4)
}
dend[577] {pt3dclear()
pt3dadd(51.5, -169.5, -2, 2.4)
pt3dadd(54.5, -172, -2, 2.4)
pt3dadd(57.5, -176, -3, 2.4)
pt3dadd(62.5, -180, -3, 2.4)
}
dend[578] {pt3dclear()
pt3dadd(62.5, -180, -3, 2.4)
pt3dadd(62.5, -192.5, -3, 2.4)
}
dend[579] {pt3dclear()
pt3dadd(62.5, -180, -3, 2.4)
pt3dadd(66.5, -182.5, -3, 2.4)
pt3dadd(68.5, -190.5, -2.5, 2.4)
pt3dadd(66.5, -198, -2.5, 2)
}
dend[580] {pt3dclear()
pt3dadd(66.5, -198, -2.5, 2)
pt3dadd(68, -206, -5, 2)
}
dend[581] {pt3dclear()
pt3dadd(66.5, -198, -2.5, 2)
pt3dadd(63, -202.5, -2.5, 2)
}
dend[582] {pt3dclear()
pt3dadd(51.5, -169.5, -2, 2.4)
pt3dadd(50.5, -172.5, -3.5, 1.9)
pt3dadd(53.5, -182, -2.5, 1.9)
pt3dadd(53.5, -187, -2.5, 1.9)
}
dend[583] {pt3dclear()
pt3dadd(39.5, -156, -3.5, 3.7)
pt3dadd(39.5, -161, -3, 1.7)
pt3dadd(46, -171.5, -3, 1.7)
}
dend[584] {pt3dclear()
pt3dadd(46, -171.5, -3, 1.7)
pt3dadd(51.5, -177, -2, 1.6)
pt3dadd(55, -187.5, -2.5, 1.6)
pt3dadd(57, -191, -2.5, 1.6)
}
dend[585] {pt3dclear()
pt3dadd(57, -191, -2.5, 1.6)
pt3dadd(60, -198, -2.5, 1.6)
}
dend[586] {pt3dclear()
pt3dadd(57, -191, -2.5, 1.6)
pt3dadd(53.5, -198, -3, 1.6)
pt3dadd(54.5, -203, -3, 1.6)
pt3dadd(55, -204, -3, 1.6)
}
dend[587] {pt3dclear()
pt3dadd(46, -171.5, -3, 1.7)
pt3dadd(47, -181, -2.5, 1.6)
pt3dadd(49, -191, -2.5, 1.5)
}
dend[588] {pt3dclear()
pt3dadd(49, -191, -2.5, 1.5)
pt3dadd(53.5, -193, -2, 1.5)
}
dend[589] {pt3dclear()
pt3dadd(49, -191, -2.5, 1.5)
pt3dadd(51, -212.5, -2.5, 1.4)
}
dend[590] {pt3dclear()
pt3dadd(36.5, -152.5, -4, 4.3)
pt3dadd(33, -161, -4.5, 2.3)
pt3dadd(36.5, -169.5, -3, 2.3)
}
dend[591] {pt3dclear()
pt3dadd(36.5, -169.5, -3, 2.3)
pt3dadd(41, -179, -4, 2.3)
pt3dadd(40.5, -186, -3, 2.3)
}
dend[592] {pt3dclear()
pt3dadd(40.5, -186, -3, 2.3)
pt3dadd(45, -194, -3, 2)
}
dend[593] {pt3dclear()
pt3dadd(45, -194, -3, 2)
pt3dadd(51, -200.5, -2.5, 2)
}
dend[594] {pt3dclear()
pt3dadd(45, -194, -3, 2)
pt3dadd(49, -209, -0.5, 2)
}
dend[595] {pt3dclear()
pt3dadd(40.5, -186, -3, 2.3)
pt3dadd(39.5, -192, -3.5, 2)
}
dend[596] {pt3dclear()
pt3dadd(39.5, -192, -3.5, 2)
pt3dadd(42, -197.5, -3.5, 2)
pt3dadd(39, -204, -3.5, 2)
}
dend[597] {pt3dclear()
pt3dadd(39.5, -192, -3.5, 2)
pt3dadd(36.5, -194.5, -3.5, 2)
pt3dadd(31.5, -200, -4, 2)
pt3dadd(26, -198.5, -3.5, 2)
}
dend[598] {pt3dclear()
pt3dadd(36.5, -169.5, -3, 2.3)
pt3dadd(35.5, -180, -4, 2)
pt3dadd(35.5, -181.5, -4, 2)
}
}
proc shape3d_9() {
dend[598] { }
dend[599] {pt3dclear()
pt3dadd(35.5, -181.5, -4, 2)
pt3dadd(28.5, -180.5, -4, 1.9)
}
dend[600] {pt3dclear()
pt3dadd(35.5, -181.5, -4, 2)
pt3dadd(30.5, -189, -4.5, 2)
}
dend[601] {pt3dclear()
pt3dadd(30.5, -189, -4.5, 2)
pt3dadd(25, -189, -4.5, 1.8)
}
dend[602] {pt3dclear()
pt3dadd(30.5, -189, -4.5, 2)
pt3dadd(31, -194.5, -3.5, 1.8)
}
dend[603] {pt3dclear()
pt3dadd(22, -136, -1.5, 3.3)
pt3dadd(20, -144.5, -2.5, 1.8)
pt3dadd(25, -149.5, -2.5, 1.6)
}
dend[604] {pt3dclear()
pt3dadd(25, -149.5, -2.5, 1.6)
pt3dadd(29.5, -152, -2, 1.6)
}
dend[605] {pt3dclear()
pt3dadd(29.5, -152, -2, 1.6)
pt3dadd(32, -156, -2, 1.6)
}
dend[606] {pt3dclear()
pt3dadd(29.5, -152, -2, 1.6)
pt3dadd(28.5, -157.5, -2, 1.6)
}
dend[607] {pt3dclear()
pt3dadd(25, -149.5, -2.5, 1.6)
pt3dadd(25.5, -154.5, -3, 1.6)
pt3dadd(24, -156.5, -3, 1.6)
}
dend[608] {pt3dclear()
pt3dadd(24, -156.5, -3, 1.6)
pt3dadd(24, -162, -3, 1.6)
}
dend[609] {pt3dclear()
pt3dadd(24, -156.5, -3, 1.6)
pt3dadd(14.5, -163, -4, 1.6)
}
dend[610] {pt3dclear()
pt3dadd(13.5, -39.5, 1, 4.3)
pt3dadd(12, -41.5, 1, 3.6)
}
dend[611] {pt3dclear()
pt3dadd(12, -41.5, 1, 3.6)
pt3dadd(1.5, -43, 1, 1.9)
pt3dadd(-6, -46, 0, 1.9)
}
dend[612] {pt3dclear()
pt3dadd(-6, -46, 0, 1.9)
pt3dadd(0, -46, 0.5, 1.7)
}
dend[613] {pt3dclear()
pt3dadd(-6, -46, 0, 1.9)
pt3dadd(-19.5, -47.5, -1, 1.4)
pt3dadd(-24.5, -46, 0, 1.4)
}
dend[614] {pt3dclear()
pt3dadd(-24.5, -46, 0, 1.4)
pt3dadd(-24, -39, 0.5, 1.4)
}
dend[615] {pt3dclear()
pt3dadd(-24, -39, 0.5, 1.4)
pt3dadd(-22, -26.5, 1.5, 1.4)
}
dend[616] {pt3dclear()
pt3dadd(-22, -26.5, 1.5, 1.4)
pt3dadd(-30, -27, 1.5, 1.4)
pt3dadd(-35.5, -23, 2.5, 1.4)
}
dend[617] {pt3dclear()
pt3dadd(-22, -26.5, 1.5, 1.4)
pt3dadd(-27.5, -22.5, 2, 1.4)
}
dend[618] {pt3dclear()
pt3dadd(-27.5, -22.5, 2, 1.4)
pt3dadd(-29.5, -21, 2, 1.4)
pt3dadd(-24, -15, 2, 1.4)
}
dend[619] {pt3dclear()
pt3dadd(-27.5, -22.5, 2, 1.4)
pt3dadd(-16.5, -18, 2, 1.4)
}
dend[620] {pt3dclear()
pt3dadd(-24, -39, 0.5, 1.4)
pt3dadd(-10, -31.5, 1, 1.4)
}
dend[621] {pt3dclear()
pt3dadd(-10, -31.5, 1, 1.4)
pt3dadd(-15.5, -27.5, 1.5, 1.2)
pt3dadd(-11, -20, 1.5, 1.2)
}
dend[622] {pt3dclear()
pt3dadd(-10, -31.5, 1, 1.4)
pt3dadd(-2.5, -28, 1, 1.2)
}
dend[623] {pt3dclear()
pt3dadd(-2.5, -28, 1, 1.2)
pt3dadd(-5.5, -26.5, 1, 1.2)
}
dend[624] {pt3dclear()
pt3dadd(-2.5, -28, 1, 1.2)
pt3dadd(5, -26, 1, 1.2)
pt3dadd(4.5, -20.5, 1.5, 1.2)
}
dend[625] {pt3dclear()
pt3dadd(-24.5, -46, 0, 1.4)
pt3dadd(-27.5, -46, 0, 1.2)
}
dend[626] {pt3dclear()
pt3dadd(-27.5, -46, 0, 1.2)
pt3dadd(-33, -46, 0, 1.2)
pt3dadd(-36, -39, 0, 1.2)
}
dend[627] {pt3dclear()
pt3dadd(-27.5, -46, 0, 1.2)
pt3dadd(-28.5, -48, 0, 1.5)
}
dend[628] {pt3dclear()
pt3dadd(-28.5, -48, 0, 1.5)
pt3dadd(-40.5, -50.5, 0, 1.5)
}
dend[629] {pt3dclear()
pt3dadd(-28.5, -48, 0, 1.5)
pt3dadd(-28.5, -49, 0, 1.5)
}
dend[630] {pt3dclear()
pt3dadd(-28.5, -49, 0, 1.5)
pt3dadd(-28, -52.5, 0, 1.5)
}
dend[631] {pt3dclear()
pt3dadd(-28.5, -49, 0, 1.5)
pt3dadd(-42, -56.5, 0, 1.5)
}
dend[632] {pt3dclear()
pt3dadd(12, -41.5, 1, 3.6)
pt3dadd(8, -46.5, -0.5, 2.9)
}
dend[633] {pt3dclear()
pt3dadd(8, -46.5, -0.5, 2.9)
pt3dadd(10, -50.5, -0.5, 1.7)
pt3dadd(12, -51.5, -0.5, 1.7)
pt3dadd(16, -49.5, 0, 1.7)
}
dend[634] {pt3dclear()
pt3dadd(8, -46.5, -0.5, 2.9)
pt3dadd(2.5, -50, -0.5, 2.2)
pt3dadd(-9, -54, 2.5, 3.7)
}
dend[635] {pt3dclear()
pt3dadd(-9, -54, 2.5, 3.7)
pt3dadd(-13, -50, 3, 2)
}
dend[636] {pt3dclear()
pt3dadd(-13, -50, 3, 2)
pt3dadd(-17, -48.5, 3, 2)
pt3dadd(-23.5, -48, 3, 2)
pt3dadd(-24, -41.5, 3.5, 2)
pt3dadd(-17.5, -36.5, 4, 2)
}
dend[637] {pt3dclear()
pt3dadd(-13, -50, 3, 2)
pt3dadd(-20.5, -53, 3, 2)
pt3dadd(-25.5, -55.5, 2, 2)
}
dend[638] {pt3dclear()
pt3dadd(-9, -54, 2.5, 3.7)
pt3dadd(-15, -60.5, 2.5, 3.2)
pt3dadd(-17.5, -64, 2.5, 4.4)
}
dend[639] {pt3dclear()
pt3dadd(-17.5, -64, 2.5, 4.4)
pt3dadd(-25.5, -63, 1.5, 2.3)
}
dend[640] {pt3dclear()
pt3dadd(-25.5, -63, 1.5, 2.3)
pt3dadd(-25, -58, 2, 2.3)
}
dend[641] {pt3dclear()
pt3dadd(-25.5, -63, 1.5, 2.3)
pt3dadd(-30.5, -61.5, 1.5, 2.3)
pt3dadd(-36.5, -65.5, 1.5, 2.3)
pt3dadd(-38.5, -67.5, 2, 2.3)
}
dend[642] {pt3dclear()
pt3dadd(-38.5, -67.5, 2, 2.3)
pt3dadd(-39, -75, 2, 2.2)
pt3dadd(-46.5, -79.5, 1.5, 2.2)
}
dend[643] {pt3dclear()
pt3dadd(-46.5, -79.5, 1.5, 2.2)
pt3dadd(-48.5, -76.5, 1.5, 2.3)
pt3dadd(-63.5, -81, 1.5, 2.3)
}
dend[644] {pt3dclear()
pt3dadd(-46.5, -79.5, 1.5, 2.2)
pt3dadd(-55, -90.5, 0, 2.3)
}
dend[645] {pt3dclear()
pt3dadd(-38.5, -67.5, 2, 2.3)
pt3dadd(-42, -69.5, 1.5, 2.3)
}
dend[646] {pt3dclear()
pt3dadd(-42, -69.5, 1.5, 2.3)
pt3dadd(-44.5, -66.5, 1.5, 2.3)
}
dend[647] {pt3dclear()
pt3dadd(-42, -69.5, 1.5, 2.3)
pt3dadd(-45.5, -73.5, 1.5, 2.3)
pt3dadd(-51, -74, 1.5, 2.3)
}
dend[648] {pt3dclear()
pt3dadd(-51, -74, 1.5, 2.3)
pt3dadd(-53, -77.5, 1.5, 1.7)
pt3dadd(-63, -81, 1.5, 1.7)
}
dend[649] {pt3dclear()
pt3dadd(-51, -74, 1.5, 2.3)
pt3dadd(-53.5, -73, 1.5, 1.7)
}
dend[650] {pt3dclear()
pt3dadd(-53.5, -73, 1.5, 1.7)
pt3dadd(-55, -66, 2, 1.7)
}
dend[651] {pt3dclear()
pt3dadd(-55, -66, 2, 1.7)
pt3dadd(-54.5, -61, 1.5, 1.7)
pt3dadd(-57.5, -52, 2, 1.7)
pt3dadd(-55.5, -50.5, 2, 1.7)
}
dend[652] {pt3dclear()
pt3dadd(-55.5, -50.5, 2, 1.7)
pt3dadd(-48.5, -54.5, 3, 1.7)
}
dend[653] {pt3dclear()
pt3dadd(-55.5, -50.5, 2, 1.7)
pt3dadd(-52.5, -46, 2.5, 1.7)
}
dend[654] {pt3dclear()
pt3dadd(-55, -66, 2, 1.7)
pt3dadd(-60, -62, 2.5, 1.7)
pt3dadd(-63.5, -58.5, 3, 1.7)
}
dend[655] {pt3dclear()
pt3dadd(-63.5, -58.5, 3, 1.7)
pt3dadd(-78, -62, 4, 1.7)
}
dend[656] {pt3dclear()
pt3dadd(-63.5, -58.5, 3, 1.7)
pt3dadd(-65, -55, 3, 1.7)
}
dend[657] {pt3dclear()
pt3dadd(-53.5, -73, 1.5, 1.7)
pt3dadd(-60.5, -73, 2.5, 1.7)
}
dend[658] {pt3dclear()
pt3dadd(-60.5, -73, 2.5, 1.7)
pt3dadd(-66.5, -65, 3, 1.7)
pt3dadd(-73, -67, 3, 1.7)
}
dend[659] {pt3dclear()
pt3dadd(-60.5, -73, 2.5, 1.7)
pt3dadd(-65.5, -74, 2.5, 1.7)
}
dend[660] {pt3dclear()
pt3dadd(-65.5, -74, 2.5, 1.7)
pt3dadd(-70, -77, 2.5, 1.7)
pt3dadd(-79, -74.5, 2.5, 1.7)
}
dend[661] {pt3dclear()
pt3dadd(-65.5, -74, 2.5, 1.7)
pt3dadd(-70.5, -72, 2.5, 1.7)
pt3dadd(-83.5, -80, 1.5, 1.7)
}
dend[662] {pt3dclear()
pt3dadd(-17.5, -64, 2.5, 4.4)
pt3dadd(-14.5, -75, 0, 3.8)
}
dend[663] {pt3dclear()
pt3dadd(-14.5, -75, 0, 3.8)
pt3dadd(-9, -79.5, -0.5, 2.8)
pt3dadd(-5.5, -84, 0.5, 2.4)
}
dend[664] {pt3dclear()
pt3dadd(-5.5, -84, 0.5, 2.4)
pt3dadd(4, -83, 1.5, 2.4)
}
dend[665] {pt3dclear()
pt3dadd(-5.5, -84, 0.5, 2.4)
pt3dadd(-7, -92.5, -0.5, 2.4)
}
dend[666] {pt3dclear()
pt3dadd(-7, -92.5, -0.5, 2.4)
pt3dadd(-5, -101, 0, 2.1)
pt3dadd(0, -103.5, -1.5, 2.1)
pt3dadd(10, -105.5, 0, 2)
}
dend[667] {pt3dclear()
pt3dadd(10, -105.5, 0, 2)
pt3dadd(5.5, -113.5, 1, 2)
}
dend[668] {pt3dclear()
pt3dadd(10, -105.5, 0, 2)
pt3dadd(12.5, -107, 0, 2)
}
dend[669] {pt3dclear()
pt3dadd(12.5, -107, 0, 2)
pt3dadd(13, -115.5, 0, 2)
}
dend[670] {pt3dclear()
pt3dadd(12.5, -107, 0, 2)
pt3dadd(19, -105, 0.5, 2)
pt3dadd(25, -108, 0.5, 2)
pt3dadd(25.5, -113, 1, 2)
pt3dadd(20.5, -117, 1, 2)
pt3dadd(16, -117, 1, 2)
}
dend[671] {pt3dclear()
pt3dadd(-7, -92.5, -0.5, 2.4)
pt3dadd(-13, -104, 0, 2.7)
pt3dadd(-14, -110, 0, 2.7)
pt3dadd(-10, -115, 1.5, 2.7)
pt3dadd(-5.5, -119, 1, 2.7)
}
dend[672] {pt3dclear()
pt3dadd(-5.5, -119, 1, 2.7)
pt3dadd(-1, -121, 1.5, 2.6)
}
dend[673] {pt3dclear()
pt3dadd(-1, -121, 1.5, 2.6)
pt3dadd(6.5, -120, 1.5, 2.6)
pt3dadd(10, -118, 1.5, 1.8)
}
dend[674] {pt3dclear()
pt3dadd(10, -118, 1.5, 1.8)
pt3dadd(5, -115, 2, 1.8)
pt3dadd(2, -109, 2, 1.8)
}
dend[675] {pt3dclear()
pt3dadd(10, -118, 1.5, 1.8)
pt3dadd(14.5, -118, 1.5, 1.8)
}
dend[676] {pt3dclear()
pt3dadd(-1, -121, 1.5, 2.6)
pt3dadd(-2, -126, 1, 1.8)
pt3dadd(-3.5, -133, 1, 1.8)
pt3dadd(-1.5, -137, 1, 1.8)
pt3dadd(2.5, -140.5, 1.5, 1.8)
}
}
proc shape3d_10() {
dend[676] { pt3dadd(6.5, -140.5, 1, 1.8)
}
dend[677] {pt3dclear()
pt3dadd(-5.5, -119, 1, 2.7)
pt3dadd(-6, -119.5, -2.5, 2.1)
}
dend[678] {pt3dclear()
pt3dadd(-6, -119.5, -2.5, 2.1)
pt3dadd(-12, -117.5, -2.5, 1.2)
pt3dadd(-12, -120.5, -2.5, 1.2)
}
dend[679] {pt3dclear()
pt3dadd(-12, -120.5, -2.5, 1.2)
pt3dadd(-9.5, -123.5, -2.5, 1)
pt3dadd(-9, -127, -3, 1)
}
dend[680] {pt3dclear()
pt3dadd(-12, -120.5, -2.5, 1.2)
pt3dadd(-12, -122.5, -2.5, 1)
}
dend[681] {pt3dclear()
pt3dadd(-12, -122.5, -2.5, 1)
pt3dadd(-12, -127, -2, 1)
}
dend[682] {pt3dclear()
pt3dadd(-12, -122.5, -2.5, 1)
pt3dadd(-19, -125.5, -3, 1)
}
dend[683] {pt3dclear()
pt3dadd(-19, -125.5, -3, 1)
pt3dadd(-22.5, -133, -2, 1)
pt3dadd(-26.5, -137.5, -2.5, 1)
}
dend[684] {pt3dclear()
pt3dadd(-19, -125.5, -3, 1)
pt3dadd(-27.5, -125, -3, 1)
pt3dadd(-31.5, -128, -3, 1)
}
dend[685] {pt3dclear()
pt3dadd(-6, -119.5, -2.5, 2.1)
pt3dadd(-5, -125, -2.5, 2.1)
pt3dadd(-6.5, -131, -3, 2.1)
}
dend[686] {pt3dclear()
pt3dadd(-6.5, -131, -3, 2.1)
pt3dadd(-8.5, -131, -3, 1)
pt3dadd(-9.5, -135, -3.5, 1)
}
dend[687] {pt3dclear()
pt3dadd(-9.5, -135, -3.5, 1)
pt3dadd(-11.5, -133.5, -3.5, 1)
}
dend[688] {pt3dclear()
pt3dadd(-9.5, -135, -3.5, 1)
pt3dadd(-9.5, -138.5, -3.5, 1)
pt3dadd(-12.5, -137.5, -3.5, 1)
}
dend[689] {pt3dclear()
pt3dadd(-6.5, -131, -3, 2.1)
pt3dadd(-8.5, -139.5, -2.5, 2.6)
pt3dadd(-9, -144, -2.5, 2.1)
}
dend[690] {pt3dclear()
pt3dadd(-9, -144, -2.5, 2.1)
pt3dadd(-4.5, -148.5, -6.5, 1.4)
}
dend[691] {pt3dclear()
pt3dadd(-4.5, -148.5, -6.5, 1.4)
pt3dadd(1.5, -150.5, -6.5, 1.2)
pt3dadd(5, -151.5, -6.5, 1.2)
}
dend[692] {pt3dclear()
pt3dadd(5, -151.5, -6.5, 1.2)
pt3dadd(6.5, -154.5, -6, 1.2)
}
dend[693] {pt3dclear()
pt3dadd(5, -151.5, -6.5, 1.2)
pt3dadd(8.5, -150.5, -6.5, 1.2)
pt3dadd(13, -154, -6, 1.2)
}
dend[694] {pt3dclear()
pt3dadd(13, -154, -6, 1.2)
pt3dadd(11, -166, -6, 1.2)
}
dend[695] {pt3dclear()
pt3dadd(13, -154, -6, 1.2)
pt3dadd(13.5, -154.5, -6, 1.2)
}
dend[696] {pt3dclear()
pt3dadd(13.5, -154.5, -6, 1.2)
pt3dadd(15, -157.5, -5, 1.2)
}
dend[697] {pt3dclear()
pt3dadd(13.5, -154.5, -6, 1.2)
pt3dadd(19.5, -154.5, -5.5, 1.2)
}
dend[698] {pt3dclear()
pt3dadd(-4.5, -148.5, -6.5, 1.4)
pt3dadd(-4.5, -152, -6.5, 0.8)
pt3dadd(4, -155, -6, 0.8)
pt3dadd(9.5, -161.5, -4.5, 0.8)
}
dend[699] {pt3dclear()
pt3dadd(-9, -144, -2.5, 2.1)
pt3dadd(-9.5, -149.5, -5.5, 3.2)
}
dend[700] {pt3dclear()
pt3dadd(-9.5, -149.5, -5.5, 3.2)
pt3dadd(-4.5, -158, -5.5, 2.2)
}
dend[701] {pt3dclear()
pt3dadd(-4.5, -158, -5.5, 2.2)
pt3dadd(-0.5, -159.5, -5, 1.6)
pt3dadd(4.5, -158.5, -5, 1.6)
pt3dadd(6, -162, -6, 1.6)
pt3dadd(4.5, -167.5, -6, 1.6)
}
dend[702] {pt3dclear()
pt3dadd(4.5, -167.5, -6, 1.6)
pt3dadd(9.5, -173.5, -5.5, 1.3)
}
dend[703] {pt3dclear()
pt3dadd(9.5, -173.5, -5.5, 1.3)
pt3dadd(13.5, -175.5, -5, 1.2)
}
dend[704] {pt3dclear()
pt3dadd(13.5, -175.5, -5, 1.2)
pt3dadd(15, -178, -5, 1.1)
}
dend[705] {pt3dclear()
pt3dadd(13.5, -175.5, -5, 1.2)
pt3dadd(13, -176.5, -5.5, 1.1)
pt3dadd(10.5, -178.5, -5.5, 1.1)
}
dend[706] {pt3dclear()
pt3dadd(9.5, -173.5, -5.5, 1.3)
pt3dadd(13.5, -180, -8, 1.1)
}
dend[707] {pt3dclear()
pt3dadd(13.5, -180, -8, 1.1)
pt3dadd(19, -184, -7.5, 1.1)
}
dend[708] {pt3dclear()
pt3dadd(19, -184, -7.5, 1.1)
pt3dadd(23, -188, -7, 1.1)
pt3dadd(24, -193.5, -6.5, 1.1)
}
dend[709] {pt3dclear()
pt3dadd(24, -193.5, -6.5, 1.1)
pt3dadd(29, -196, -6.5, 1.1)
pt3dadd(32.5, -200, -6.5, 1.1)
}
dend[710] {pt3dclear()
pt3dadd(24, -193.5, -6.5, 1.1)
pt3dadd(24, -196.5, -5.5, 1.1)
pt3dadd(24, -199.5, -8, 1.1)
}
dend[711] {pt3dclear()
pt3dadd(19, -184, -7.5, 1.1)
pt3dadd(21.5, -190.5, -8, 1.1)
pt3dadd(21.5, -197.5, -8, 1.1)
}
dend[712] {pt3dclear()
pt3dadd(21.5, -197.5, -8, 1.1)
pt3dadd(25, -205.5, -8.5, 1.1)
}
dend[713] {pt3dclear()
pt3dadd(21.5, -197.5, -8, 1.1)
pt3dadd(16.5, -202, -7, 1.1)
pt3dadd(17, -207.5, -7.5, 1.1)
pt3dadd(21.5, -213, -7.5, 1.1)
}
dend[714] {pt3dclear()
pt3dadd(13.5, -180, -8, 1.1)
pt3dadd(13.5, -186.5, -9, 1.1)
}
dend[715] {pt3dclear()
pt3dadd(13.5, -186.5, -9, 1.1)
pt3dadd(17.5, -196, -8.5, 1.1)
}
dend[716] {pt3dclear()
pt3dadd(13.5, -186.5, -9, 1.1)
pt3dadd(8, -195, -9, 1.1)
}
dend[717] {pt3dclear()
pt3dadd(4.5, -167.5, -6, 1.6)
pt3dadd(6, -179, -9, 1.1)
pt3dadd(8, -183, -8.5, 1.1)
pt3dadd(5.5, -188.5, -8.5, 1.1)
pt3dadd(2.5, -192.5, -8.5, 1.1)
}
dend[718] {pt3dclear()
pt3dadd(-4.5, -158, -5.5, 2.2)
pt3dadd(-3.5, -161, -6.5, 1.1)
}
dend[719] {pt3dclear()
pt3dadd(-3.5, -161, -6.5, 1.1)
pt3dadd(-3.5, -165.5, -5, 1.1)
pt3dadd(-1, -169, -4.5, 1.1)
}
dend[720] {pt3dclear()
pt3dadd(-1, -169, -4.5, 1.1)
pt3dadd(3, -170.5, -4.5, 1.1)
}
dend[721] {pt3dclear()
pt3dadd(-1, -169, -4.5, 1.1)
pt3dadd(2, -173.5, -4.5, 1.1)
}
dend[722] {pt3dclear()
pt3dadd(-3.5, -161, -6.5, 1.1)
pt3dadd(-8, -161, -6.5, 1.1)
pt3dadd(-9.5, -166, -6.5, 1.1)
pt3dadd(-4.5, -173.5, -6.5, 1.1)
pt3dadd(-2.5, -174, -5.5, 1.1)
}
dend[723] {pt3dclear()
pt3dadd(-2.5, -174, -5.5, 1.1)
pt3dadd(1, -175, -6, 1.1)
}
dend[724] {pt3dclear()
pt3dadd(-2.5, -174, -5.5, 1.1)
pt3dadd(-1, -177, -4, 1.1)
}
dend[725] {pt3dclear()
pt3dadd(-1, -177, -4, 1.1)
pt3dadd(4, -182, -6.5, 1.1)
}
dend[726] {pt3dclear()
pt3dadd(-1, -177, -4, 1.1)
pt3dadd(1, -184.5, -4, 1.1)
}
dend[727] {pt3dclear()
pt3dadd(-9.5, -149.5, -5.5, 3.2)
pt3dadd(-11, -154, -5.5, 1.7)
}
dend[728] {pt3dclear()
pt3dadd(-11, -154, -5.5, 1.7)
pt3dadd(-10.5, -158.5, -5.5, 1.4)
pt3dadd(-15.5, -160.5, -6, 1.4)
pt3dadd(-14, -163.5, -6, 1.4)
}
dend[729] {pt3dclear()
pt3dadd(-11, -154, -5.5, 1.7)
pt3dadd(-17.5, -161, -5.5, 1.4)
pt3dadd(-18, -167, -5.5, 1.4)
pt3dadd(-17, -173, -5.5, 1.4)
pt3dadd(-17, -175, -5.5, 1.4)
}
dend[730] {pt3dclear()
pt3dadd(-17, -175, -5.5, 1.4)
pt3dadd(-7.5, -178.5, -5, 1.4)
}
dend[731] {pt3dclear()
pt3dadd(-17, -175, -5.5, 1.4)
pt3dadd(-19, -180.5, -5, 1.4)
}
dend[732] {pt3dclear()
pt3dadd(-19, -180.5, -5, 1.4)
pt3dadd(-14.5, -183, -5, 1.4)
}
dend[733] {pt3dclear()
pt3dadd(-14.5, -183, -5, 1.4)
pt3dadd(-12.5, -191, -5, 1.4)
pt3dadd(-10, -195.5, -4.5, 1.4)
}
dend[734] {pt3dclear()
pt3dadd(-10, -195.5, -4.5, 1.4)
pt3dadd(-11.5, -199.5, -5, 1.4)
}
dend[735] {pt3dclear()
pt3dadd(-11.5, -199.5, -5, 1.4)
pt3dadd(-14.5, -201.5, -5, 1.4)
}
dend[736] {pt3dclear()
pt3dadd(-11.5, -199.5, -5, 1.4)
pt3dadd(-9.5, -202, -4.5, 1.4)
}
dend[737] {pt3dclear()
pt3dadd(-10, -195.5, -4.5, 1.4)
pt3dadd(-5, -198.5, -4.5, 1.4)
pt3dadd(-3, -198.5, -4, 1.4)
}
dend[738] {pt3dclear()
pt3dadd(-3, -198.5, -4, 1.4)
pt3dadd(0.5, -203.5, -4, 1.4)
}
dend[739] {pt3dclear()
pt3dadd(-3, -198.5, -4, 1.4)
pt3dadd(-0.5, -197.5, -4, 1.4)
}
dend[740] {pt3dclear()
pt3dadd(-0.5, -197.5, -4, 1.4)
pt3dadd(4.5, -200, -3.5, 1.4)
}
dend[741] {pt3dclear()
pt3dadd(-0.5, -197.5, -4, 1.4)
pt3dadd(-1.5, -196, -4, 1.4)
}
dend[742] {pt3dclear()
pt3dadd(-14.5, -183, -5, 1.4)
pt3dadd(-9, -185, -5.5, 0.9)
pt3dadd(-8, -187.5, -3.5, 0.9)
}
dend[743] {pt3dclear()
pt3dadd(-8, -187.5, -3.5, 0.9)
pt3dadd(-10.5, -187.5, -3.5, 0.9)
}
dend[744] {pt3dclear()
pt3dadd(-8, -187.5, -3.5, 0.9)
pt3dadd(-8, -190.5, -3.5, 0.9)
}
dend[745] {pt3dclear()
pt3dadd(-8, -190.5, -3.5, 0.9)
pt3dadd(-14, -195, -3.5, 0.9)
}
dend[746] {pt3dclear()
pt3dadd(-8, -190.5, -3.5, 0.9)
pt3dadd(-2, -194.5, -3.5, 0.9)
}
dend[747] {pt3dclear()
pt3dadd(-19, -180.5, -5, 1.4)
pt3dadd(-25, -183, -6.5, 1.6)
}
dend[748] {pt3dclear()
pt3dadd(-25, -183, -6.5, 1.6)
pt3dadd(-20, -186.5, -6.5, 1.6)
pt3dadd(-16, -187, -6.5, 1.6)
pt3dadd(-10.5, -193.5, -6.5, 1.6)
}
dend[749] {pt3dclear()
pt3dadd(-25, -183, -6.5, 1.6)
pt3dadd(-31.5, -185.5, -6.5, 1.6)
pt3dadd(-37.5, -185, -6.5, 1.6)
}
dend[750] {pt3dclear()
pt3dadd(-37.5, -185, -6.5, 1.6)
pt3dadd(-44, -188.5, -6.5, 1.6)
pt3dadd(-44, -193, -6, 1.4)
}
dend[751] {pt3dclear()
pt3dadd(-37.5, -185, -6.5, 1.6)
pt3dadd(-42, -182.5, -6.5, 1.2)
}
dend[752] {pt3dclear()
pt3dadd(-14.5, -75, 0, 3.8)
pt3dadd(-14.5, -80, 0, 3.1)
}
dend[753] {pt3dclear()
pt3dadd(-14.5, -80, 0, 3.1)
pt3dadd(-21, -79.5, 0, 2.1)
}
dend[754] {pt3dclear()
pt3dadd(-21, -79.5, 0, 2.1)
pt3dadd(-24, -77, 0.5, 1.9)
}
dend[755] {pt3dclear()
pt3dadd(-24, -77, 0.5, 1.9)
pt3dadd(-28, -72, 0.5, 1.9)
}
}
proc shape3d_11() {
dend[755] { }
dend[756] {pt3dclear()
pt3dadd(-28, -72, 0.5, 1.9)
pt3dadd(-28, -66.5, 1, 1.9)
}
dend[757] {pt3dclear()
pt3dadd(-28, -72, 0.5, 1.9)
pt3dadd(-31, -68.5, 1, 1.9)
pt3dadd(-34, -69.5, 1, 1.9)
}
dend[758] {pt3dclear()
pt3dadd(-24, -77, 0.5, 1.9)
pt3dadd(-33.5, -79.5, 0, 1.7)
pt3dadd(-37, -81.5, 0, 1.7)
}
dend[759] {pt3dclear()
pt3dadd(-37, -81.5, 0, 1.7)
pt3dadd(-43.5, -80, 0, 1.7)
pt3dadd(-49.5, -76.5, 0, 1.7)
}
dend[760] {pt3dclear()
pt3dadd(-37, -81.5, 0, 1.7)
pt3dadd(-44, -93, 3, 1.7)
}
dend[761] {pt3dclear()
pt3dadd(-21, -79.5, 0, 2.1)
pt3dadd(-27, -89.5, -0.5, 1.7)
pt3dadd(-34, -93, -0.5, 1.7)
pt3dadd(-48.5, -100, -0.5, 1.7)
}
dend[762] {pt3dclear()
pt3dadd(-14.5, -80, 0, 3.1)
pt3dadd(-12.5, -86.5, 0.5, 3.2)
pt3dadd(-17, -92.5, 0.5, 3.2)
pt3dadd(-24.5, -95.5, 0.5, 3.2)
}
dend[763] {pt3dclear()
pt3dadd(-24.5, -95.5, 0.5, 3.2)
pt3dadd(-20.5, -103, -2.5, 2)
}
dend[764] {pt3dclear()
pt3dadd(-20.5, -103, -2.5, 2)
pt3dadd(-15, -100.5, -2, 2)
pt3dadd(-18, -110, -2, 2)
pt3dadd(-15.5, -119, -2, 1.4)
}
dend[765] {pt3dclear()
pt3dadd(-20.5, -103, -2.5, 2)
pt3dadd(-23.5, -107.5, -2, 1.4)
}
dend[766] {pt3dclear()
pt3dadd(-23.5, -107.5, -2, 1.4)
pt3dadd(-23, -115, 0, 1.4)
pt3dadd(-19.5, -121.5, -0.5, 1.4)
}
dend[767] {pt3dclear()
pt3dadd(-19.5, -121.5, -0.5, 1.4)
pt3dadd(-19, -125, 0.5, 1.4)
}
dend[768] {pt3dclear()
pt3dadd(-19.5, -121.5, -0.5, 1.4)
pt3dadd(-26.5, -118, -0.5, 1.4)
}
dend[769] {pt3dclear()
pt3dadd(-23.5, -107.5, -2, 1.4)
pt3dadd(-29.5, -118, -1, 1.3)
pt3dadd(-29.5, -121.5, -1, 1.3)
}
dend[770] {pt3dclear()
pt3dadd(-24.5, -95.5, 0.5, 3.2)
pt3dadd(-31.5, -99, 0.5, 3.5)
}
dend[771] {pt3dclear()
pt3dadd(-31.5, -99, 0.5, 3.5)
pt3dadd(-35, -96.5, 1, 1.9)
pt3dadd(-41, -101, 1, 1.9)
}
dend[772] {pt3dclear()
pt3dadd(-41, -101, 1, 1.9)
pt3dadd(-42, -98.5, 2, 1.3)
}
dend[773] {pt3dclear()
pt3dadd(-41, -101, 1, 1.9)
pt3dadd(-49, -107.5, 1, 1.5)
pt3dadd(-53, -105, 1, 1.3)
pt3dadd(-54.5, -108.5, 1, 1.3)
}
dend[774] {pt3dclear()
pt3dadd(-31.5, -99, 0.5, 3.5)
pt3dadd(-38.5, -110, 0, 3.3)
}
dend[775] {pt3dclear()
pt3dadd(-38.5, -110, 0, 3.3)
pt3dadd(-35.5, -113, 0, 1.5)
}
dend[776] {pt3dclear()
pt3dadd(-35.5, -113, 0, 1.5)
pt3dadd(-31.5, -115, 1, 1.4)
pt3dadd(-27, -117, 2, 1.4)
}
dend[777] {pt3dclear()
pt3dadd(-35.5, -113, 0, 1.5)
pt3dadd(-35, -124, 0.5, 1.2)
pt3dadd(-32.5, -126.5, 0.5, 1.2)
}
dend[778] {pt3dclear()
pt3dadd(-38.5, -110, 0, 3.3)
pt3dadd(-43, -117.5, 0.5, 3.6)
pt3dadd(-42, -127, 1.5, 4.6)
}
dend[779] {pt3dclear()
pt3dadd(-42, -127, 1.5, 4.6)
pt3dadd(-47, -135, 0, 1.9)
pt3dadd(-46.5, -141, -1, 1.9)
}
dend[780] {pt3dclear()
pt3dadd(-46.5, -141, -1, 1.9)
pt3dadd(-52, -153, -2, 1.9)
}
dend[781] {pt3dclear()
pt3dadd(-46.5, -141, -1, 1.9)
pt3dadd(-42, -147.5, -1, 1.8)
pt3dadd(-43, -153, -1, 1.7)
pt3dadd(-47.5, -154, -1, 1.7)
pt3dadd(-49.5, -157, -1.5, 1.7)
}
dend[782] {pt3dclear()
pt3dadd(-42, -127, 1.5, 4.6)
pt3dadd(-38.5, -133.5, 2, 3.5)
}
dend[783] {pt3dclear()
pt3dadd(-38.5, -133.5, 2, 3.5)
pt3dadd(-32.5, -131.5, 1.5, 1.9)
pt3dadd(-25, -132, 2, 1.9)
pt3dadd(-19.5, -129, 2.5, 1.4)
pt3dadd(-19.5, -126, 3, 1.4)
}
dend[784] {pt3dclear()
pt3dadd(-19.5, -126, 3, 1.4)
pt3dadd(-25, -125.5, 3.5, 1.8)
pt3dadd(-29, -122, 3.5, 1.5)
}
dend[785] {pt3dclear()
pt3dadd(-19.5, -126, 3, 1.4)
pt3dadd(-18.5, -123, 3, 1.5)
}
dend[786] {pt3dclear()
pt3dadd(-38.5, -133.5, 2, 3.5)
pt3dadd(-36, -144, -1, 3.4)
}
dend[787] {pt3dclear()
pt3dadd(-36, -144, -1, 3.4)
pt3dadd(-21.5, -145, -1, 1.3)
}
dend[788] {pt3dclear()
pt3dadd(-36, -144, -1, 3.4)
pt3dadd(-35, -145.5, -3, 4.1)
}
dend[789] {pt3dclear()
pt3dadd(-35, -145.5, -3, 4.1)
pt3dadd(-32, -149, -2.5, 1.7)
}
dend[790] {pt3dclear()
pt3dadd(-32, -149, -2.5, 1.7)
pt3dadd(-32, -156, -2.5, 1.7)
}
dend[791] {pt3dclear()
pt3dadd(-32, -149, -2.5, 1.7)
pt3dadd(-29, -151.5, -2.5, 1.6)
}
dend[792] {pt3dclear()
pt3dadd(-29, -151.5, -2.5, 1.6)
pt3dadd(-22, -151.5, -0.5, 1.6)
}
dend[793] {pt3dclear()
pt3dadd(-22, -151.5, -0.5, 1.6)
pt3dadd(-17.5, -148, -1, 1.6)
pt3dadd(-17.5, -144.5, -1, 1.2)
}
dend[794] {pt3dclear()
pt3dadd(-17.5, -144.5, -1, 1.2)
pt3dadd(-20.5, -140, -1, 1.2)
pt3dadd(-21.5, -136, -1, 1.2)
pt3dadd(-18, -133, -1, 1.2)
}
dend[795] {pt3dclear()
pt3dadd(-17.5, -144.5, -1, 1.2)
pt3dadd(-15.5, -140.5, -2, 1.2)
pt3dadd(-17, -136, -2, 1.2)
pt3dadd(-15, -132.5, -2, 1.2)
}
dend[796] {pt3dclear()
pt3dadd(-22, -151.5, -0.5, 1.6)
pt3dadd(-17.5, -154.5, -4, 1.3)
}
dend[797] {pt3dclear()
pt3dadd(-17.5, -154.5, -4, 1.3)
pt3dadd(-16, -158, -4, 0.9)
}
dend[798] {pt3dclear()
pt3dadd(-17.5, -154.5, -4, 1.3)
pt3dadd(-14, -153, -4, 0.9)
}
dend[799] {pt3dclear()
pt3dadd(-29, -151.5, -2.5, 1.6)
pt3dadd(-29.5, -154, -2.5, 0.9)
pt3dadd(-23.5, -157.5, -1.5, 1.1)
pt3dadd(-21, -158.5, -1.5, 1.3)
}
dend[800] {pt3dclear()
pt3dadd(-21, -158.5, -1.5, 1.3)
pt3dadd(-17.5, -157.5, -1.5, 1.1)
}
dend[801] {pt3dclear()
pt3dadd(-21, -158.5, -1.5, 1.3)
pt3dadd(-17.5, -159.5, -1, 1.4)
}
dend[802] {pt3dclear()
pt3dadd(-17.5, -159.5, -1, 1.4)
pt3dadd(-11, -165.5, -1, 1.4)
}
dend[803] {pt3dclear()
pt3dadd(-17.5, -159.5, -1, 1.4)
pt3dadd(-19.5, -162, -0.5, 1.4)
pt3dadd(-17.5, -164.5, -3.5, 1.3)
}
dend[804] {pt3dclear()
pt3dadd(-17.5, -164.5, -3.5, 1.3)
pt3dadd(-12, -167.5, -3.5, 1.3)
pt3dadd(-7, -173, -3.5, 1.3)
pt3dadd(-4.5, -180, -3.5, 1.3)
}
dend[805] {pt3dclear()
pt3dadd(-4.5, -180, -3.5, 1.3)
pt3dadd(-1, -184, -3, 1.3)
}
dend[806] {pt3dclear()
pt3dadd(-4.5, -180, -3.5, 1.3)
pt3dadd(2, -181, -3.5, 1.3)
}
dend[807] {pt3dclear()
pt3dadd(-17.5, -164.5, -3.5, 1.3)
pt3dadd(-14.5, -168, -3.5, 1.3)
}
dend[808] {pt3dclear()
pt3dadd(-35, -145.5, -3, 4.1)
pt3dadd(-37, -149, -3, 3.6)
pt3dadd(-38, -157, -3.5, 4.2)
}
dend[809] {pt3dclear()
pt3dadd(-38, -157, -3.5, 4.2)
pt3dadd(-43.5, -163.5, -4, 2.3)
}
dend[810] {pt3dclear()
pt3dadd(-43.5, -163.5, -4, 2.3)
pt3dadd(-47, -167.5, -4, 1.1)
pt3dadd(-48.5, -172, -4.5, 1.1)
}
dend[811] {pt3dclear()
pt3dadd(-43.5, -163.5, -4, 2.3)
pt3dadd(-41.5, -165.5, -4, 1.3)
}
dend[812] {pt3dclear()
pt3dadd(-41.5, -165.5, -4, 1.3)
pt3dadd(-36, -169, -4, 1.3)
pt3dadd(-31.5, -173, -4, 1.1)
pt3dadd(-31.5, -175.5, -5.5, 1.1)
}
dend[813] {pt3dclear()
pt3dadd(-41.5, -165.5, -4, 1.3)
pt3dadd(-41.5, -172, -4.5, 1.1)
pt3dadd(-35.5, -176.5, -3, 1.1)
pt3dadd(-35.5, -178.5, -2.5, 1.1)
}
dend[814] {pt3dclear()
pt3dadd(-35.5, -178.5, -2.5, 1.1)
pt3dadd(-30.5, -180.5, -1, 1.1)
}
dend[815] {pt3dclear()
pt3dadd(-35.5, -178.5, -2.5, 1.1)
pt3dadd(-45.5, -182, -1, 1.1)
}
dend[816] {pt3dclear()
pt3dadd(-38, -157, -3.5, 4.2)
pt3dadd(-34.5, -161.5, -3.5, 2.6)
}
dend[817] {pt3dclear()
pt3dadd(-34.5, -161.5, -3.5, 2.6)
pt3dadd(-31.5, -162.5, -5.5, 1.6)
pt3dadd(-25.5, -165.5, -5.5, 1.6)
pt3dadd(-20.5, -171.5, -5, 1.5)
pt3dadd(-17, -175.5, -5, 1.5)
pt3dadd(-12, -178, -5, 1.5)
pt3dadd(-7, -183, -4.5, 1.5)
pt3dadd(-3, -186, -3.5, 1.1)
}
dend[818] {pt3dclear()
pt3dadd(-3, -186, -3.5, 1.1)
pt3dadd(-3.5, -190, -3.5, 1.1)
}
dend[819] {pt3dclear()
pt3dadd(-3, -186, -3.5, 1.1)
pt3dadd(0.5, -187.5, -6.5, 1.1)
}
dend[820] {pt3dclear()
pt3dadd(-34.5, -161.5, -3.5, 2.6)
pt3dadd(-33.5, -167, -4, 3.2)
pt3dadd(-29.5, -171, -5, 2.5)
pt3dadd(-27.5, -172.5, -4.5, 2.5)
}
dend[821] {pt3dclear()
pt3dadd(-27.5, -172.5, -4.5, 2.5)
pt3dadd(-27.5, -167, -4, 1.5)
}
dend[822] {pt3dclear()
pt3dadd(-27.5, -172.5, -4.5, 2.5)
pt3dadd(-25, -174, -4, 2.6)
}
dend[823] {pt3dclear()
pt3dadd(-25, -174, -4, 2.6)
pt3dadd(-26, -178.5, -4, 1.2)
pt3dadd(-25, -185, -4, 1.2)
}
dend[824] {pt3dclear()
pt3dadd(-25, -174, -4, 2.6)
pt3dadd(-21.5, -175, -4.5, 2.2)
pt3dadd(-17.5, -177.5, -4, 3)
}
dend[825] {pt3dclear()
pt3dadd(-17.5, -177.5, -4, 3)
pt3dadd(-11.5, -180.5, -3, 1.9)
pt3dadd(-6.5, -184.5, -3, 1.9)
pt3dadd(-4, -190, -2, 1.9)
pt3dadd(-2.5, -192, -7.5, 1.9)
}
dend[826] {pt3dclear()
pt3dadd(-2.5, -192, -7.5, 1.9)
pt3dadd(1, -193.5, -8, 1.3)
pt3dadd(4, -195.5, -7, 1.2)
pt3dadd(7.5, -196, -7, 1.2)
pt3dadd(10, -197, -6.5, 1.2)
}
dend[827] {pt3dclear()
pt3dadd(10, -197, -6.5, 1.2)
}
}
proc shape3d_12() {
dend[827] { pt3dadd(15.5, -197, -7, 1)
}
dend[828] {pt3dclear()
pt3dadd(10, -197, -6.5, 1.2)
pt3dadd(12, -203.5, -5.5, 1)
pt3dadd(15.5, -209.5, -5, 1)
}
dend[829] {pt3dclear()
pt3dadd(-2.5, -192, -7.5, 1.9)
pt3dadd(-2.5, -196.5, -7.5, 1)
pt3dadd(-6, -199.5, -7, 1)
}
dend[830] {pt3dclear()
pt3dadd(-6, -199.5, -7, 1)
pt3dadd(-8, -197.5, -7, 1)
}
dend[831] {pt3dclear()
pt3dadd(-6, -199.5, -7, 1)
pt3dadd(-6, -203, -7, 1)
pt3dadd(-8.5, -205, -7, 1)
}
dend[832] {pt3dclear()
pt3dadd(-17.5, -177.5, -4, 3)
pt3dadd(-17.5, -182, -4, 1.6)
}
}
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()
}
access soma
celldef()