Using Strahler`s analysis to reduce realistic models (Marasco et al, 2013)

 Download zip file 
Help downloading and running models
Accession:149000
Building on our previous work (Marasco et al., (2012)), we present a general reduction method based on Strahler's analysis of neuron morphologies. We show that, without any fitting or tuning procedures, it is possible to map any morphologically and biophysically accurate neuron model into an equivalent reduced version. Using this method for Purkinje cells, we demonstrate how run times can be reduced up to 200-fold, while accurately taking into account the effects of arbitrarily located and activated synaptic inputs.
Reference:
1 . Marasco A, Limongiello A, Migliore M (2013) Using Strahler's analysis to reduce up to 200-fold the run time of realistic neuron models. Sci Rep 3:2934 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell; Dendrite;
Brain Region(s)/Organism: Hippocampus; Cerebellum;
Cell Type(s): Hippocampus CA1 pyramidal GLU cell; Cerebellum Purkinje GABA cell;
Channel(s): I Na,t; I T low threshold; I K; I Calcium; Ca pump;
Gap Junctions:
Receptor(s): AMPA;
Gene(s):
Transmitter(s): Glutamate;
Simulation Environment: NEURON;
Model Concept(s): Activity Patterns; Active Dendrites; Influence of Dendritic Geometry; Detailed Neuronal Models; Action Potentials; Synaptic Integration;
Implementer(s): Limongiello, Alessandro [alessandro.limongiello at unina.it];
Search NeuronDB for information about:  Hippocampus CA1 pyramidal GLU cell; Cerebellum Purkinje GABA cell; AMPA; I Na,t; I T low threshold; I K; I Calcium; Ca pump; Glutamate;
proc celldef() {
  topol()
}

create soma[2], dend[685]

proc topol() { local i
  connect soma[1](0), soma(0)
  connect dend(0), soma(0)
  for i = 1, 3 connect dend[i](0), dend[i-1](1)
  connect dend[4](0), dend[2](1)
  for i = 5, 6 connect dend[i](0), dend[i-1](1)
  connect dend[7](0), dend[5](1)
  for i = 8, 11 connect dend[i](0), dend[i-1](1)
  connect dend[12](0), dend[10](1)
  connect dend[13](0), dend[9](1)
  for i = 14, 15 connect dend[i](0), dend[13](1)
  connect dend[16](0), dend[8](1)
  connect dend[17](0), dend[7](1)
  for i = 18, 19 connect dend[i](0), dend[17](1)
  connect dend[20](0), dend[4](1)
  connect dend[21](0), dend[1](1)
  for i = 22, 23 connect dend[i](0), dend[i-1](1)
  connect dend[24](0), dend[22](1)
  for i = 25, 26 connect dend[i](0), dend[24](1)
  for i = 27, 28 connect dend[i](0), dend[i-1](1)
  connect dend[29](0), dend[27](1)
  connect dend[30](0), dend[26](1)
  for i = 31, 33 connect dend[i](0), dend[i-1](1)
  connect dend[34](0), dend[32](1)
  for i = 35, 36 connect dend[i](0), dend[34](1)
  connect dend[37](0), dend[31](1)
  connect dend[38](0), dend[30](1)
  connect dend[39](0), dend[21](1)
  for i = 40, 41 connect dend[i](0), dend[i-1](1)
  connect dend[42](0), dend[40](1)
  connect dend[43](0), dend[39](1)
  for i = 44, 45 connect dend[i](0), dend[i-1](1)
  connect dend[46](0), dend[44](1)
  for i = 47, 49 connect dend[i](0), dend[i-1](1)
  connect dend[50](0), dend[48](1)
  connect dend[51](0), dend[47](1)
  connect dend[52](0), dend[46](1)
  connect dend[53](0), dend[43](1)
  connect dend[54](0), dend(1)
  for i = 55, 56 connect dend[i](0), dend[i-1](1)
  connect dend[57](0), dend[55](1)
  for i = 58, 59 connect dend[i](0), dend[i-1](1)
  connect dend[60](0), dend[58](1)
  connect dend[61](0), dend[57](1)
  for i = 62, 63 connect dend[i](0), dend[61](1)
  for i = 64, 65 connect dend[i](0), dend[63](1)
  for i = 66, 67 connect dend[i](0), dend[65](1)
  for i = 68, 69 connect dend[i](0), dend[67](1)
  connect dend[70](0), dend[54](1)
  for i = 71, 75 connect dend[i](0), dend[i-1](1)
  connect dend[76](0), dend[74](1)
  for i = 77, 78 connect dend[i](0), dend[76](1)
  connect dend[79](0), dend[73](1)
  connect dend[80](0), dend[72](1)
  for i = 81, 83 connect dend[i](0), dend[i-1](1)
  connect dend[84](0), dend[82](1)
  connect dend[85](0), dend[81](1)
  for i = 86, 90 connect dend[i](0), dend[i-1](1)
  connect dend[91](0), dend[89](1)
  for i = 92, 93 connect dend[i](0), dend[91](1)
  for i = 94, 95 connect dend[i](0), dend[93](1)
  connect dend[96](0), dend[88](1)
  for i = 97, 98 connect dend[i](0), dend[96](1)
  connect dend[99](0), dend[87](1)
  connect dend[100](0), dend[86](1)
  connect dend[101](0), dend[85](1)
  for i = 102, 103 connect dend[i](0), dend[101](1)
  for i = 104, 105 connect dend[i](0), dend[103](1)
  connect dend[106](0), dend[80](1)
  for i = 107, 109 connect dend[i](0), dend[i-1](1)
  connect dend[110](0), dend[108](1)
  connect dend[111](0), dend[107](1)
  connect dend[112](0), dend[106](1)
  for i = 113, 114 connect dend[i](0), dend[i-1](1)
  connect dend[115](0), dend[113](1)
  for i = 116, 117 connect dend[i](0), dend[115](1)
  for i = 118, 119 connect dend[i](0), dend[117](1)
  for i = 120, 121 connect dend[i](0), dend[i-1](1)
  connect dend[122](0), dend[120](1)
  connect dend[123](0), dend[119](1)
  connect dend[124](0), dend[112](1)
  for i = 125, 126 connect dend[i](0), dend[124](1)
  for i = 127, 128 connect dend[i](0), dend[126](1)
  connect dend[129](0), dend[71](1)
  for i = 130, 131 connect dend[i](0), dend[129](1)
  for i = 132, 133 connect dend[i](0), dend[i-1](1)
  connect dend[134](0), dend[132](1)
  for i = 135, 136 connect dend[i](0), dend[i-1](1)
  connect dend[137](0), dend[135](1)
  for i = 138, 139 connect dend[i](0), dend[i-1](1)
  connect dend[140](0), dend[138](1)
  for i = 141, 143 connect dend[i](0), dend[i-1](1)
  connect dend[144](0), dend[142](1)
  connect dend[145](0), dend[141](1)
  connect dend[146](0), dend[140](1)
  connect dend[147](0), dend[137](1)
  connect dend[148](0), dend[134](1)
  for i = 149, 150 connect dend[i](0), dend[148](1)
  for i = 151, 152 connect dend[i](0), dend[150](1)
  for i = 153, 154 connect dend[i](0), dend[i-1](1)
  connect dend[155](0), dend[153](1)
  for i = 156, 157 connect dend[i](0), dend[155](1)
  connect dend[158](0), dend[152](1)
  connect dend[159](0), dend[131](1)
  for i = 160, 165 connect dend[i](0), dend[i-1](1)
  connect dend[166](0), dend[164](1)
  for i = 167, 168 connect dend[i](0), dend[166](1)
  connect dend[169](0), dend[163](1)
  for i = 170, 171 connect dend[i](0), dend[169](1)
  connect dend[172](0), dend[162](1)
  connect dend[173](0), dend[161](1)
  for i = 174, 175 connect dend[i](0), dend[173](1)
  for i = 176, 177 connect dend[i](0), dend[175](1)
  for i = 178, 179 connect dend[i](0), dend[i-1](1)
  connect dend[180](0), dend[178](1)
  for i = 181, 182 connect dend[i](0), dend[180](1)
  connect dend[183](0), dend[177](1)
  connect dend[184](0), dend[160](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[i-1](1)
  connect dend[191](0), dend[189](1)
  connect dend[192](0), dend[188](1)
  for i = 193, 194 connect dend[i](0), dend[192](1)
  connect dend[195](0), dend[159](1)
  for i = 196, 197 connect dend[i](0), dend[i-1](1)
  connect dend[198](0), dend[196](1)
  for i = 199, 200 connect dend[i](0), dend[i-1](1)
  connect dend[201](0), dend[199](1)
  connect dend[202](0), dend[198](1)
  for i = 203, 204 connect dend[i](0), dend[202](1)
  for i = 205, 206 connect dend[i](0), dend[204](1)
  connect dend[207](0), dend[195](1)
  for i = 208, 211 connect dend[i](0), dend[i-1](1)
  connect dend[212](0), dend[210](1)
  connect dend[213](0), dend[209](1)
  for i = 214, 215 connect dend[i](0), dend[213](1)
  connect dend[216](0), dend[208](1)
  for i = 217, 218 connect dend[i](0), dend[i-1](1)
  connect dend[219](0), dend[217](1)
  connect dend[220](0), dend[216](1)
  for i = 221, 222 connect dend[i](0), dend[220](1)
  connect dend[223](0), dend[207](1)
  for i = 224, 227 connect dend[i](0), dend[i-1](1)
  connect dend[228](0), dend[226](1)
  connect dend[229](0), dend[225](1)
  connect dend[230](0), dend[224](1)
  connect dend[231](0), dend[223](1)
  for i = 232, 233 connect dend[i](0), dend[231](1)
  for i = 234, 238 connect dend[i](0), dend[i-1](1)
  connect dend[239](0), dend[237](1)
  connect dend[240](0), dend[236](1)
  connect dend[241](0), dend[235](1)
  for i = 242, 243 connect dend[i](0), dend[241](1)
  connect dend[244](0), dend[234](1)
  connect dend[245](0), dend[233](1)
  for i = 246, 247 connect dend[i](0), dend[i-1](1)
  connect dend[248](0), dend[246](1)
  for i = 249, 250 connect dend[i](0), dend[i-1](1)
  connect dend[251](0), dend[249](1)
  connect dend[252](0), dend[248](1)
  for i = 253, 254 connect dend[i](0), dend[i-1](1)
  connect dend[255](0), dend[253](1)
  connect dend[256](0), dend[252](1)
  connect dend[257](0), dend[245](1)
  for i = 258, 259 connect dend[i](0), dend[i-1](1)
  connect dend[260](0), dend[258](1)
  connect dend[261](0), dend[257](1)
  for i = 262, 263 connect dend[i](0), dend[261](1)
  for i = 264, 266 connect dend[i](0), dend[i-1](1)
  connect dend[267](0), dend[265](1)
  for i = 268, 269 connect dend[i](0), dend[267](1)
  for i = 270, 271 connect dend[i](0), dend[269](1)
  connect dend[272](0), dend[264](1)
  for i = 273, 276 connect dend[i](0), dend[i-1](1)
  connect dend[277](0), dend[275](1)
  connect dend[278](0), dend[274](1)
  for i = 279, 280 connect dend[i](0), dend[278](1)
  for i = 281, 282 connect dend[i](0), dend[i-1](1)
  connect dend[283](0), dend[281](1)
  connect dend[284](0), dend[280](1)
  for i = 285, 286 connect dend[i](0), dend[284](1)
  connect dend[287](0), dend[273](1)
  for i = 288, 289 connect dend[i](0), dend[i-1](1)
  connect dend[290](0), dend[288](1)
  connect dend[291](0), dend[287](1)
  connect dend[292](0), dend[272](1)
  for i = 293, 295 connect dend[i](0), dend[i-1](1)
  connect dend[296](0), dend[294](1)
  connect dend[297](0), dend[293](1)
  connect dend[298](0), dend[292](1)
  for i = 299, 300 connect dend[i](0), dend[i-1](1)
  connect dend[301](0), dend[299](1)
  connect dend[302](0), dend[298](1)
  connect dend[303](0), dend[263](1)
  for i = 304, 305 connect dend[i](0), dend[303](1)
  for i = 306, 308 connect dend[i](0), dend[i-1](1)
  connect dend[309](0), dend[307](1)
  connect dend[310](0), dend[306](1)
  connect dend[311](0), dend[305](1)
  topol_1()
}
proc topol_1() {
  connect dend[312](0), dend[70](1)
  for i = 313, 314 connect dend[i](0), dend[i-1](1)
  connect dend[315](0), dend[313](1)
  for i = 316, 317 connect dend[i](0), dend[i-1](1)
  connect dend[318](0), dend[316](1)
  for i = 319, 320 connect dend[i](0), dend[318](1)
  for i = 321, 322 connect dend[i](0), dend[i-1](1)
  connect dend[323](0), dend[321](1)
  connect dend[324](0), dend[320](1)
  connect dend[325](0), dend[315](1)
  for i = 326, 327 connect dend[i](0), dend[325](1)
  connect dend[328](0), dend[312](1)
  for i = 329, 331 connect dend[i](0), dend[i-1](1)
  connect dend[332](0), dend[330](1)
  connect dend[333](0), dend[329](1)
  for i = 334, 335 connect dend[i](0), dend[333](1)
  for i = 336, 338 connect dend[i](0), dend[i-1](1)
  connect dend[339](0), dend[337](1)
  connect dend[340](0), dend[336](1)
  for i = 341, 342 connect dend[i](0), dend[340](1)
  for i = 343, 344 connect dend[i](0), dend[342](1)
  connect dend[345](0), dend[335](1)
  for i = 346, 347 connect dend[i](0), dend[345](1)
  for i = 348, 349 connect dend[i](0), dend[347](1)
  connect dend[350](0), dend[328](1)
  for i = 351, 353 connect dend[i](0), dend[i-1](1)
  connect dend[354](0), dend[352](1)
  for i = 355, 356 connect dend[i](0), dend[354](1)
  for i = 357, 359 connect dend[i](0), dend[i-1](1)
  connect dend[360](0), dend[358](1)
  connect dend[361](0), dend[357](1)
  connect dend[362](0), dend[356](1)
  for i = 363, 364 connect dend[i](0), dend[i-1](1)
  connect dend[365](0), dend[363](1)
  connect dend[366](0), dend[362](1)
  connect dend[367](0), dend[351](1)
  for i = 368, 372 connect dend[i](0), dend[i-1](1)
  connect dend[373](0), dend[371](1)
  for i = 374, 377 connect dend[i](0), dend[i-1](1)
  connect dend[378](0), dend[376](1)
  connect dend[379](0), dend[375](1)
  connect dend[380](0), dend[374](1)
  for i = 381, 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[373](1)
  for i = 386, 387 connect dend[i](0), dend[385](1)
  connect dend[388](0), dend[370](1)
  for i = 389, 390 connect dend[i](0), dend[i-1](1)
  connect dend[391](0), dend[389](1)
  connect dend[392](0), dend[388](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[369](1)
  connect dend[398](0), dend[368](1)
  for i = 399, 400 connect dend[i](0), dend[398](1)
  for i = 401, 402 connect dend[i](0), dend[400](1)
  for i = 403, 404 connect dend[i](0), dend[402](1)
  for i = 405, 406 connect dend[i](0), dend[404](1)
  connect dend[407](0), dend[367](1)
  for i = 408, 409 connect dend[i](0), dend[407](1)
  connect dend[410](0), dend[350](1)
  for i = 411, 412 connect dend[i](0), dend[i-1](1)
  connect dend[413](0), dend[411](1)
  for i = 414, 415 connect dend[i](0), dend[413](1)
  for i = 416, 417 connect dend[i](0), dend[415](1)
  for i = 418, 419 connect dend[i](0), dend[i-1](1)
  connect dend[420](0), dend[418](1)
  connect dend[421](0), dend[417](1)
  for i = 422, 423 connect dend[i](0), dend[421](1)
  connect dend[424](0), dend[410](1)
  for i = 425, 426 connect dend[i](0), dend[i-1](1)
  connect dend[427](0), dend[425](1)
  for i = 428, 429 connect dend[i](0), dend[i-1](1)
  connect dend[430](0), dend[428](1)
  for i = 431, 432 connect dend[i](0), dend[430](1)
  for i = 433, 434 connect dend[i](0), dend[432](1)
  connect dend[435](0), dend[427](1)
  for i = 436, 439 connect dend[i](0), dend[i-1](1)
  connect dend[440](0), dend[438](1)
  connect dend[441](0), dend[437](1)
  for i = 442, 443 connect dend[i](0), dend[441](1)
  connect dend[444](0), dend[436](1)
  for i = 445, 447 connect dend[i](0), dend[i-1](1)
  connect dend[448](0), dend[446](1)
  for i = 449, 450 connect dend[i](0), dend[448](1)
  for i = 451, 452 connect dend[i](0), dend[450](1)
  connect dend[453](0), dend[445](1)
  for i = 454, 455 connect dend[i](0), dend[453](1)
  connect dend[456](0), dend[444](1)
  for i = 457, 458 connect dend[i](0), dend[i-1](1)
  connect dend[459](0), dend[457](1)
  connect dend[460](0), dend[456](1)
  for i = 461, 462 connect dend[i](0), dend[460](1)
  connect dend[463](0), dend[435](1)
  for i = 464, 465 connect dend[i](0), dend[i-1](1)
  connect dend[466](0), dend[464](1)
  for i = 467, 468 connect dend[i](0), dend[466](1)
  connect dend[469](0), dend[463](1)
  for i = 470, 471 connect dend[i](0), dend[469](1)
  for i = 472, 474 connect dend[i](0), dend[i-1](1)
  connect dend[475](0), dend[473](1)
  connect dend[476](0), dend[472](1)
  for i = 477, 478 connect dend[i](0), dend[476](1)
  for i = 479, 480 connect dend[i](0), dend[i-1](1)
  connect dend[481](0), dend[479](1)
  connect dend[482](0), dend[478](1)
  for i = 483, 484 connect dend[i](0), dend[482](1)
  for i = 485, 486 connect dend[i](0), dend[484](1)
  connect dend[487](0), dend[471](1)
  for i = 488, 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)
  for i = 497, 498 connect dend[i](0), dend[496](1)
  connect dend[499](0), dend[491](1)
  connect dend[500](0), dend[490](1)
  connect dend[501](0), dend[489](1)
  for i = 502, 503 connect dend[i](0), dend[501](1)
  connect dend[504](0), dend[488](1)
  for i = 505, 506 connect dend[i](0), dend[i-1](1)
  connect dend[507](0), dend[505](1)
  connect dend[508](0), dend[504](1)
  for i = 509, 510 connect dend[i](0), dend[i-1](1)
  connect dend[511](0), dend[509](1)
  connect dend[512](0), dend[508](1)
  connect dend[513](0), dend[487](1)
  for i = 514, 515 connect dend[i](0), dend[i-1](1)
  connect dend[516](0), dend[514](1)
  for i = 517, 518 connect dend[i](0), dend[516](1)
  for i = 519, 522 connect dend[i](0), dend[i-1](1)
  connect dend[523](0), dend[521](1)
  connect dend[524](0), dend[520](1)
  connect dend[525](0), dend[519](1)
  connect dend[526](0), dend[518](1)
  for i = 527, 528 connect dend[i](0), dend[526](1)
  connect dend[529](0), dend[513](1)
  for i = 530, 531 connect dend[i](0), dend[i-1](1)
  connect dend[532](0), dend[530](1)
  connect dend[533](0), dend[529](1)
  for i = 534, 537 connect dend[i](0), dend[i-1](1)
  connect dend[538](0), dend[536](1)
  connect dend[539](0), dend[535](1)
  connect dend[540](0), dend[534](1)
  connect dend[541](0), dend[533](1)
  for i = 542, 543 connect dend[i](0), dend[i-1](1)
  connect dend[544](0), dend[542](1)
  for i = 545, 546 connect dend[i](0), dend[544](1)
  for i = 547, 548 connect dend[i](0), dend[i-1](1)
  connect dend[549](0), dend[547](1)
  for i = 550, 551 connect dend[i](0), dend[549](1)
  connect dend[552](0), dend[546](1)
  for i = 553, 554 connect dend[i](0), dend[552](1)
  connect dend[555](0), dend[541](1)
  connect dend[556](0), dend[424](1)
  for i = 557, 559 connect dend[i](0), dend[i-1](1)
  connect dend[560](0), dend[558](1)
  connect dend[561](0), dend[557](1)
  for i = 562, 564 connect dend[i](0), dend[i-1](1)
  connect dend[565](0), dend[563](1)
  for i = 566, 569 connect dend[i](0), dend[i-1](1)
  connect dend[570](0), dend[568](1)
  for i = 571, 572 connect dend[i](0), dend[570](1)
  connect dend[573](0), dend[567](1)
  for i = 574, 575 connect dend[i](0), dend[573](1)
  connect dend[576](0), dend[566](1)
  connect dend[577](0), dend[565](1)
  connect dend[578](0), dend[562](1)
  connect dend[579](0), dend[561](1)
  for i = 580, 581 connect dend[i](0), dend[i-1](1)
  connect dend[582](0), dend[580](1)
  connect dend[583](0), dend[579](1)
  for i = 584, 585 connect dend[i](0), dend[i-1](1)
  connect dend[586](0), dend[584](1)
  for i = 587, 588 connect dend[i](0), dend[586](1)
  for i = 589, 590 connect dend[i](0), dend[588](1)
  connect dend[591](0), dend[583](1)
  for i = 592, 593 connect dend[i](0), dend[i-1](1)
  connect dend[594](0), dend[592](1)
  connect dend[595](0), dend[591](1)
  connect dend[596](0), dend[556](1)
  for i = 597, 598 connect dend[i](0), dend[596](1)
  for i = 599, 600 connect dend[i](0), dend[i-1](1)
  connect dend[601](0), dend[599](1)
  for i = 602, 603 connect dend[i](0), dend[601](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)
  for i = 610, 611 connect dend[i](0), dend[i-1](1)
  connect dend[612](0), dend[610](1)
  connect dend[613](0), dend[609](1)
  for i = 614, 615 connect dend[i](0), dend[613](1)
  for i = 616, 617 connect dend[i](0), dend[615](1)
  for i = 618, 619 connect dend[i](0), dend[617](1)
  connect dend[620](0), dend[598](1)
  for i = 621, 622 connect dend[i](0), dend[i-1](1)
  connect dend[623](0), dend[621](1)
  connect dend[624](0), dend[620](1)
  for i = 625, 627 connect dend[i](0), dend[i-1](1)
  connect dend[628](0), dend[626](1)
  topol_2()
}
proc topol_2() {
  for i = 629, 630 connect dend[i](0), dend[628](1)
  connect dend[631](0), dend[625](1)
  for i = 632, 633 connect dend[i](0), dend[631](1)
  connect dend[634](0), dend[624](1)
  for i = 635, 638 connect dend[i](0), dend[i-1](1)
  connect dend[639](0), dend[637](1)
  connect dend[640](0), dend[636](1)
  for i = 641, 642 connect dend[i](0), dend[640](1)
  connect dend[643](0), dend[635](1)
  connect dend[644](0), dend[634](1)
  for i = 645, 646 connect dend[i](0), dend[i-1](1)
  connect dend[647](0), dend[645](1)
  connect dend[648](0), dend[644](1)
  for i = 649, 650 connect dend[i](0), dend[i-1](1)
  connect dend[651](0), dend[649](1)
  connect dend[652](0), dend[648](1)
  for i = 653, 655 connect dend[i](0), dend[i-1](1)
  connect dend[656](0), dend[654](1)
  connect dend[657](0), dend[653](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[652](1)
  for i = 663, 665 connect dend[i](0), dend[i-1](1)
  connect dend[666](0), dend[664](1)
  connect dend[667](0), dend[663](1)
  connect dend[668](0), dend[662](1)
  for i = 669, 670 connect dend[i](0), dend[668](1)
  for i = 671, 673 connect dend[i](0), dend[i-1](1)
  connect dend[674](0), dend[672](1)
  connect dend[675](0), dend[671](1)
  connect dend[676](0), dend[670](1)
  for i = 677, 678 connect dend[i](0), dend[i-1](1)
  connect dend[679](0), dend[677](1)
  connect dend[680](0), dend[676](1)
  for i = 681, 682 connect dend[i](0), dend[680](1)
  for i = 683, 684 connect dend[i](0), dend[682](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(-0.3, 11.47, -12, 17.132)
	pt3dadd(-0.3, 20.03, -12, 17.132)
  }
  soma[1] {pt3dclear()
	pt3dadd(-0.3, 11.47, -12, 17.132)
	pt3dadd(-0.3, 2.9, -12, 17.132)
  }
  dend {pt3dclear()
	pt3dadd(-0.3, 11.47, -12, 2.81)
	pt3dadd(7.81, 3.13, -13, 2.81)
	pt3dadd(10.47, 0, -14.5, 2.5)
	pt3dadd(12.97, -2.34, -14.5, 2.5)
	pt3dadd(15.47, -5.31, -15.5, 2.5)
	pt3dadd(17.5, -9.06, -16, 2.5)
	pt3dadd(17.5, -9.22, -16, 2.5)
	pt3dadd(18.44, -14.22, -16.5, 2.66)
	pt3dadd(18.75, -19.69, -17, 3.28)
  }
  dend[1] {pt3dclear()
	pt3dadd(18.75, -19.69, -17, 3.28)
	pt3dadd(16.25, -20.55, -17.5, 1.88)
	pt3dadd(15.31, -20.7, -18, 1.88)
	pt3dadd(14.38, -20.7, -18, 1.88)
	pt3dadd(11.88, -20.7, -18, 1.88)
	pt3dadd(9.69, -20.23, -18, 1.88)
  }
  dend[2] {pt3dclear()
	pt3dadd(9.69, -20.23, -18, 1.88)
	pt3dadd(6.25, -19.92, -17.5, 1.25)
	pt3dadd(1.41, -19.45, -17, 1.25)
  }
  dend[3] {pt3dclear()
	pt3dadd(1.41, -19.45, -17, 1.25)
	pt3dadd(0.78, -18.75, -17, 1.47)
	pt3dadd(-0.16, -18.28, -17, 1.47)
	pt3dadd(-1.88, -17.19, -17, 1.47)
	pt3dadd(-2.66, -16.41, -17, 1.47)
	pt3dadd(-4.05, -15.31, -17, 1.47)
  }
  dend[4] {pt3dclear()
	pt3dadd(1.41, -19.45, -17, 1.25)
	pt3dadd(-1.72, -19.45, -16.5, 1.25)
	pt3dadd(-2.02, -19.61, -16.5, 1.25)
	pt3dadd(-2.19, -19.61, -16.5, 1.25)
	pt3dadd(-5, -19.61, -16.5, 1.25)
	pt3dadd(-5.16, -19.77, -16.5, 1.25)
	pt3dadd(-10.63, -19.92, -16, 1.25)
	pt3dadd(-14.06, -21.17, -16, 1.41)
  }
  dend[5] {pt3dclear()
	pt3dadd(-14.06, -21.17, -16, 1.41)
	pt3dadd(-14.38, -21.02, -15.5, 1.41)
  }
  dend[6] {pt3dclear()
	pt3dadd(-14.38, -21.02, -15.5, 1.41)
	pt3dadd(-15.63, -22.42, -15.5, 1.41)
	pt3dadd(-15.63, -22.58, -15.5, 1.41)
	pt3dadd(-17.8, -23.67, -15.5, 1.41)
	pt3dadd(-20.16, -24.14, -15.5, 1.41)
	pt3dadd(-20.16, -24.3, -15.5, 1.41)
	pt3dadd(-22.97, -24.92, -15.5, 1.41)
	pt3dadd(-23.44, -24.92, -15.5, 1.41)
	pt3dadd(-25.31, -25.23, -15.5, 1.41)
	pt3dadd(-27.81, -25.55, -15, 1.41)
	pt3dadd(-31.25, -26.02, -15, 1.41)
  }
  dend[7] {pt3dclear()
	pt3dadd(-14.38, -21.02, -15.5, 1.41)
	pt3dadd(-14.53, -21.02, -15.5, 1.41)
  }
  dend[8] {pt3dclear()
	pt3dadd(-14.53, -21.02, -15.5, 1.41)
	pt3dadd(-15.78, -20.7, -15.5, 1.41)
	pt3dadd(-17.66, -21.17, -15.5, 1.41)
	pt3dadd(-19.69, -20.39, -16, 1.41)
	pt3dadd(-19.84, -20.55, -16, 1.41)
	pt3dadd(-21.56, -19.77, -16, 1.41)
  }
  dend[9] {pt3dclear()
	pt3dadd(-21.56, -19.77, -16, 1.41)
	pt3dadd(-23.59, -18.67, -15.5, 1.41)
  }
  dend[10] {pt3dclear()
	pt3dadd(-23.59, -18.67, -15.5, 1.41)
	pt3dadd(-26.41, -18.82, -15.5, 1.41)
	pt3dadd(-26.41, -18.98, -15.5, 1.41)
  }
  dend[11] {pt3dclear()
	pt3dadd(-26.41, -18.98, -15.5, 1.41)
	pt3dadd(-27.97, -18.52, -15.5, 1.41)
	pt3dadd(-29.53, -17.42, -15.5, 1.41)
	pt3dadd(-29.69, -17.42, -15.5, 1.41)
	pt3dadd(-31.41, -16.17, -15.5, 1.41)
	pt3dadd(-32.34, -15.08, -15.5, 1.41)
  }
  dend[12] {pt3dclear()
	pt3dadd(-26.41, -18.98, -15.5, 1.41)
	pt3dadd(-27.66, -20.07, -15.5, 1.41)
	pt3dadd(-30, -21.02, -15.5, 1.41)
  }
  dend[13] {pt3dclear()
	pt3dadd(-23.59, -18.67, -15.5, 1.41)
	pt3dadd(-23.4, -15.86, -15.5, 1.41)
  }
  dend[14] {pt3dclear()
	pt3dadd(-23.4, -15.86, -15.5, 1.41)
	pt3dadd(-24.53, -16.32, -15.5, 1.41)
	pt3dadd(-25.31, -15.39, -15.5, 1.41)
	pt3dadd(-25.47, -15.39, -15.5, 1.41)
	pt3dadd(-26.56, -14.45, -15.5, 1.41)
  }
  dend[15] {pt3dclear()
	pt3dadd(-23.4, -15.86, -15.5, 1.41)
	pt3dadd(-23.44, -16.48, -15.5, 1.41)
	pt3dadd(-23.44, -14.61, -15.5, 1.41)
	pt3dadd(-23.59, -14.61, -15.5, 1.41)
	pt3dadd(-24.84, -13.05, -15.5, 1.41)
  }
  dend[16] {pt3dclear()
	pt3dadd(-21.56, -19.77, -16, 1.41)
	pt3dadd(-23.59, -20.86, -16, 1.41)
	pt3dadd(-25.94, -22.11, -16, 1.41)
	pt3dadd(-27.5, -22.42, -16, 1.41)
	pt3dadd(-27.34, -22.58, -16, 1.41)
  }
  dend[17] {pt3dclear()
	pt3dadd(-14.53, -21.02, -15.5, 1.41)
	pt3dadd(-15.47, -19.45, -16, 1.41)
	pt3dadd(-15.78, -19.45, -16, 1.41)
	pt3dadd(-17.19, -18.36, -16, 1.41)
	pt3dadd(-17.34, -18.36, -16, 1.41)
	pt3dadd(-20.16, -17.57, -16, 1.41)
	pt3dadd(-21.41, -16.8, -16, 1.41)
	pt3dadd(-22.97, -16.17, -15, 1.41)
	pt3dadd(-23.13, -16.17, -15, 1.41)
  }
  dend[18] {pt3dclear()
	pt3dadd(-23.13, -16.17, -15, 1.41)
	pt3dadd(-25.47, -16.17, -15, 1.25)
	pt3dadd(-27.81, -15.39, -15, 1.25)
	pt3dadd(-27.97, -15.39, -15, 1.25)
	pt3dadd(-30.63, -14.3, -15, 1.25)
	pt3dadd(-31.25, -12.42, -15, 1.25)
	pt3dadd(-29.38, -11.95, -15, 1.25)
  }
  dend[19] {pt3dclear()
	pt3dadd(-23.13, -16.17, -15, 1.41)
	pt3dadd(-22.66, -14.77, -15, 1.41)
	pt3dadd(-21.41, -13.67, -15, 1.41)
  }
  dend[20] {pt3dclear()
	pt3dadd(-14.06, -21.17, -16, 1.41)
	pt3dadd(-13.91, -22.11, -15, 1.41)
	pt3dadd(-14.37, -23.05, -15.5, 1.41)
	pt3dadd(-14.06, -23.2, -15.5, 1.41)
	pt3dadd(-14.84, -25.08, -16, 1.41)
	pt3dadd(-15, -25.08, -16, 1.41)
	pt3dadd(-17.19, -26.02, -16, 1.41)
	pt3dadd(-17.34, -26.02, -16, 1.41)
	pt3dadd(-19.22, -27.27, -16, 1.41)
	pt3dadd(-19.22, -27.42, -16, 1.41)
	pt3dadd(-20.16, -28.67, -16, 1.41)
	pt3dadd(-22.34, -29.61, -16, 1.41)
	pt3dadd(-23.44, -29.45, -16, 1.41)
	pt3dadd(-23.59, -29.45, -16, 1.41)
  }
  dend[21] {pt3dclear()
	pt3dadd(9.69, -20.23, -18, 1.88)
	pt3dadd(8.59, -18.82, -18, 1.88)
	pt3dadd(8.44, -18.82, -18, 1.88)
	pt3dadd(6.72, -17.73, -18, 1.88)
	pt3dadd(4.53, -16.17, -17.5, 1.88)
	pt3dadd(3.28, -15.23, -16.5, 1.88)
  }
  dend[22] {pt3dclear()
	pt3dadd(3.28, -15.23, -16.5, 1.88)
	pt3dadd(0.78, -15.08, -16.5, 1.25)
	pt3dadd(-0.94, -13.67, -16.5, 1.25)
  }
  dend[23] {pt3dclear()
	pt3dadd(-0.94, -13.67, -16.5, 1.25)
	pt3dadd(-2.66, -13.52, -16, 0.94)
	pt3dadd(-2.81, -13.67, -16, 0.94)
	pt3dadd(-3.75, -15.39, -16, 0.94)
  }
  dend[24] {pt3dclear()
	pt3dadd(-0.94, -13.67, -16.5, 1.25)
	pt3dadd(-2.19, -10.23, -16, 1.56)
	pt3dadd(-2.34, -10.23, -16, 1.56)
  }
  dend[25] {pt3dclear()
	pt3dadd(-2.34, -10.23, -16, 1.56)
	pt3dadd(-5.16, -10.86, -15.5, 0.94)
	pt3dadd(-5.31, -10.86, -15.5, 0.94)
	pt3dadd(-5.47, -10.86, -15.5, 0.94)
	pt3dadd(-7.97, -10.86, -15.5, 0.94)
	pt3dadd(-9.22, -11.64, -15.5, 0.94)
	pt3dadd(-9.22, -11.8, -15.5, 0.94)
  }
  dend[26] {pt3dclear()
	pt3dadd(-2.34, -10.23, -16, 1.56)
	pt3dadd(-3.28, -8.36, -16, 1.56)
  }
  dend[27] {pt3dclear()
	pt3dadd(-3.28, -8.36, -16, 1.56)
	pt3dadd(-4.19, -6.47, -14.21, 1.41)
	pt3dadd(-4.69, -6.02, -14.5, 1.41)
	pt3dadd(-4.84, -6.02, -14.5, 1.41)
	pt3dadd(-5.78, -3.83, -14.5, 1.41)
	pt3dadd(-6.88, -1.17, -14.5, 1.41)
	pt3dadd(-7.81, 0.23, -14.5, 1.41)
  }
  dend[28] {pt3dclear()
	pt3dadd(-7.81, 0.23, -14.5, 1.41)
	pt3dadd(-8.75, 1.95, -11, 1.41)
	pt3dadd(-10.31, 3.83, -11, 1.41)
	pt3dadd(-10.47, 3.83, -11, 1.41)
  }
  dend[29] {pt3dclear()
	pt3dadd(-7.81, 0.23, -14.5, 1.41)
	pt3dadd(-6.41, 1.64, -14.5, 1.41)
	pt3dadd(-6.56, 1.64, -14.5, 1.41)
	pt3dadd(-7.19, 3.05, -14.5, 1.41)
	pt3dadd(-7.34, 2.89, -14.5, 1.41)
	pt3dadd(-8.27, 4.61, -14.5, 1.41)
	pt3dadd(-7.97, 4.45, -14.5, 1.41)
  }
  dend[30] {pt3dclear()
	pt3dadd(-3.28, -8.36, -16, 1.56)
	pt3dadd(-3.44, -8.52, -16, 1.56)
  }
  dend[31] {pt3dclear()
	pt3dadd(-3.44, -8.52, -16, 1.56)
	pt3dadd(-5, -7.27, -16, 1.09)
  }
  dend[32] {pt3dclear()
	pt3dadd(-5, -7.27, -16, 1.09)
	pt3dadd(-6.41, -6.64, -16, 1.09)
	pt3dadd(-8.44, -5.86, -15, 1.09)
  }
  dend[33] {pt3dclear()
	pt3dadd(-8.44, -5.86, -15, 1.09)
	pt3dadd(-9.52, -8.67, -15.5, 1.09)
  }
  dend[34] {pt3dclear()
	pt3dadd(-8.44, -5.86, -15, 1.09)
	pt3dadd(-9.95, -4.85, -12.84, 1.41)
  }
  dend[35] {pt3dclear()
	pt3dadd(-9.95, -4.85, -12.84, 1.41)
	pt3dadd(-10.31, -3.98, -14, 1.09)
	pt3dadd(-10.47, -3.98, -14, 1.09)
	pt3dadd(-10.94, -2.74, -13.5, 1.09)
	pt3dadd(-11.25, -2.58, -13.5, 1.09)
	pt3dadd(-12.97, -0.7, -15, 1.09)
	pt3dadd(-13.13, -0.7, -15, 1.09)
  }
  dend[36] {pt3dclear()
	pt3dadd(-9.95, -4.85, -12.84, 1.41)
	pt3dadd(-10.31, -4.61, -13, 1.41)
	pt3dadd(-12.5, -3.83, -13, 1.41)
	pt3dadd(-14.38, -3.36, -13, 1.41)
	pt3dadd(-16.09, -4.61, -13, 1.41)
	pt3dadd(-16.25, -4.61, -13, 1.41)
	pt3dadd(-15.94, -6.48, -13, 1.41)
	pt3dadd(-15.94, -6.64, -13, 1.41)
  }
  dend[37] {pt3dclear()
	pt3dadd(-5, -7.27, -16, 1.09)
	pt3dadd(-5.16, -7.11, -16, 1.09)
  }
  dend[38] {pt3dclear()
	pt3dadd(-3.44, -8.52, -16, 1.56)
	pt3dadd(-1.25, -7.58, -15.5, 0.94)
	pt3dadd(0.78, -5.86, -15.5, 0.94)
	pt3dadd(2.02, -4.13, -15.5, 0.94)
	pt3dadd(3.91, -2.27, -16, 0.94)
	pt3dadd(6.88, -1.64, -16, 0.94)
  }
  dend[39] {pt3dclear()
	pt3dadd(3.28, -15.23, -16.5, 1.88)
	pt3dadd(4.05, -12.58, -16.5, 1.88)
  }
}
proc shape3d_2() {
  dend[39] {  }
  dend[40] {pt3dclear()
	pt3dadd(4.05, -12.58, -16.5, 1.88)
	pt3dadd(2.34, -11.64, -16.5, 1.25)
	pt3dadd(2.34, -11.8, -16.5, 1.25)
	pt3dadd(1.09, -10.39, -16.5, 1.25)
	pt3dadd(0.16, -8.98, -16.5, 1.25)
	pt3dadd(0, -8.98, -16.5, 1.25)
	pt3dadd(-1.09, -7.73, -17, 1.25)
	pt3dadd(-1.56, -7.73, -17, 1.25)
	pt3dadd(-3.13, -6.17, -17, 1.25)
  }
  dend[41] {pt3dclear()
	pt3dadd(-3.13, -6.17, -17, 1.25)
	pt3dadd(-5, -4.61, -17, 1.25)
	pt3dadd(-5, -4.76, -17, 1.25)
	pt3dadd(-7.03, -3.83, -17, 1.25)
	pt3dadd(-7.19, -3.83, -17, 1.25)
	pt3dadd(-9.38, -3.36, -17, 1.25)
	pt3dadd(-9.52, -3.36, -17, 1.25)
	pt3dadd(-11.88, -3.36, -17, 1.25)
	pt3dadd(-12.03, -3.36, -17, 1.25)
	pt3dadd(-13.13, -5.23, -17, 1.25)
	pt3dadd(-12.81, -7.11, -17, 1.25)
  }
  dend[42] {pt3dclear()
	pt3dadd(-3.13, -6.17, -17, 1.25)
	pt3dadd(-4.05, -3.83, -16, 1.25)
	pt3dadd(-3.75, -1.8, -16, 1.25)
	pt3dadd(-3.91, -1.8, -16, 1.25)
	pt3dadd(-4.69, 0.55, -16, 1.25)
	pt3dadd(-4.69, 0.39, -16, 1.25)
  }
  dend[43] {pt3dclear()
	pt3dadd(4.05, -12.58, -16.5, 1.88)
	pt3dadd(5.16, -10.23, -16.5, 1.88)
	pt3dadd(6.09, -8.05, -16.5, 1.88)
	pt3dadd(7.03, -6.64, -16, 1.88)
  }
  dend[44] {pt3dclear()
	pt3dadd(7.03, -6.64, -16, 1.88)
	pt3dadd(7.34, -4.61, -16, 1.88)
  }
  dend[45] {pt3dclear()
	pt3dadd(7.34, -4.61, -16, 1.88)
	pt3dadd(8.59, -2.89, -16, 1.88)
  }
  dend[46] {pt3dclear()
	pt3dadd(7.34, -4.61, -16, 1.88)
	pt3dadd(7.59, -2.92, -16, 1.88)
  }
  dend[47] {pt3dclear()
	pt3dadd(7.59, -2.92, -16, 1.88)
	pt3dadd(9.06, -7.73, -16, 1.41)
  }
  dend[48] {pt3dclear()
	pt3dadd(9.06, -7.73, -16, 1.41)
	pt3dadd(9.52, -9.61, -16, 1.41)
	pt3dadd(10.16, -12.11, -16, 1.41)
  }
  dend[49] {pt3dclear()
	pt3dadd(10.16, -12.11, -16, 1.41)
	pt3dadd(9.52, -14.14, -16, 1.25)
	pt3dadd(9.38, -14.3, -16, 1.25)
	pt3dadd(8.27, -15.86, -16, 1.25)
	pt3dadd(10, -16.95, -16, 1.25)
	pt3dadd(12.03, -18.52, -17, 1.25)
	pt3dadd(15, -19.45, -17, 1.25)
  }
  dend[50] {pt3dclear()
	pt3dadd(10.16, -12.11, -16, 1.41)
	pt3dadd(12.34, -13.52, -16.5, 1.25)
	pt3dadd(13.44, -14.45, -16.5, 1.25)
	pt3dadd(15, -14.61, -16.5, 1.25)
	pt3dadd(14.69, -14.61, -16.5, 1.25)
  }
  dend[51] {pt3dclear()
	pt3dadd(9.06, -7.73, -16, 1.41)
	pt3dadd(11.72, -7.73, -16, 1.41)
	pt3dadd(12.81, -8.83, -16, 1.41)
	pt3dadd(14.53, -9.61, -16, 1.41)
	pt3dadd(14.38, -9.77, -16, 1.41)
  }
  dend[52] {pt3dclear()
	pt3dadd(7.59, -2.92, -16, 1.88)
	pt3dadd(8.59, -5.39, -16, 1.41)
	pt3dadd(10.31, -4.92, -16, 1.41)
	pt3dadd(10.16, -4.92, -16, 1.41)
	pt3dadd(11.56, -4.92, -16, 1.41)
  }
  dend[53] {pt3dclear()
	pt3dadd(7.03, -6.64, -16, 1.88)
	pt3dadd(6.88, -6.64, -14.5, 1.41)
	pt3dadd(5.47, -5.39, -14.5, 1.41)
	pt3dadd(4.38, -3.83, -14.5, 1.41)
	pt3dadd(3.44, -2.58, -14.5, 1.41)
	pt3dadd(1.72, -1.02, -14.5, 1.41)
	pt3dadd(1.25, 1.64, -14.5, 1.41)
  }
  dend[54] {pt3dclear()
	pt3dadd(18.75, -19.69, -17, 3.28)
	pt3dadd(19.69, -21.09, -17, 3.28)
  }
  dend[55] {pt3dclear()
	pt3dadd(19.69, -21.09, -17, 3.28)
	pt3dadd(19.22, -22.11, -19, 1.41)
	pt3dadd(17.97, -23.05, -19, 1.41)
	pt3dadd(16.55, -24.14, -19, 1.41)
	pt3dadd(15.16, -25.23, -19, 1.41)
  }
  dend[56] {pt3dclear()
	pt3dadd(15.16, -25.23, -19, 1.41)
	pt3dadd(12.34, -23.05, -18.5, 1.25)
  }
  dend[57] {pt3dclear()
	pt3dadd(15.16, -25.23, -19, 1.41)
	pt3dadd(12.94, -26.84, -18.35, 1.41)
  }
  dend[58] {pt3dclear()
	pt3dadd(12.94, -26.84, -18.35, 1.41)
	pt3dadd(17.5, -26.33, -19, 1.25)
  }
  dend[59] {pt3dclear()
	pt3dadd(17.5, -26.33, -19, 1.25)
	pt3dadd(18.59, -24.61, -18.5, 1.25)
  }
  dend[60] {pt3dclear()
	pt3dadd(17.5, -26.33, -19, 1.25)
	pt3dadd(17.97, -29.14, -19, 1.25)
	pt3dadd(17.66, -32.27, -19, 1.25)
	pt3dadd(19.69, -32.42, -19, 1.25)
	pt3dadd(19.53, -32.58, -19, 1.25)
  }
  dend[61] {pt3dclear()
	pt3dadd(12.94, -26.84, -18.35, 1.41)
	pt3dadd(13.44, -26.48, -18.5, 1.41)
	pt3dadd(13.28, -26.48, -18.5, 1.41)
	pt3dadd(11.56, -27.73, -18.5, 1.41)
	pt3dadd(9.69, -29.92, -19.5, 1.41)
	pt3dadd(9.52, -29.92, -19.5, 1.41)
	pt3dadd(7.34, -31.02, -19, 1.41)
	pt3dadd(7.34, -31.17, -19, 1.41)
	pt3dadd(5.16, -31.95, -19, 1.41)
	pt3dadd(3.13, -32.42, -18.5, 1.41)
	pt3dadd(0.94, -32.72, -18.5, 1.41)
	pt3dadd(0.63, -32.72, -18.5, 1.41)
	pt3dadd(-2.19, -32.89, -18.5, 1.41)
  }
  dend[62] {pt3dclear()
	pt3dadd(-2.19, -32.89, -18.5, 1.41)
	pt3dadd(-2.34, -30.7, -18, 1.25)
	pt3dadd(-3.44, -28.67, -17.5, 1.25)
	pt3dadd(-3.59, -28.83, -17.5, 1.25)
	pt3dadd(-6.09, -27.42, -17.5, 1.25)
	pt3dadd(-6.25, -27.58, -17.5, 1.25)
	pt3dadd(-7.97, -26.8, -16.5, 1.25)
	pt3dadd(-8.13, -26.95, -16.5, 1.25)
	pt3dadd(-8.27, -26.95, -16.5, 1.25)
  }
  dend[63] {pt3dclear()
	pt3dadd(-2.19, -32.89, -18.5, 1.41)
	pt3dadd(-4.97, -32.65, -18.11, 1.41)
  }
  dend[64] {pt3dclear()
	pt3dadd(-4.97, -32.65, -18.11, 1.41)
	pt3dadd(-3.44, -34.61, -17.5, 1.25)
	pt3dadd(-5.94, -36.47, -17.5, 1.25)
	pt3dadd(-7.81, -38.2, -17.5, 1.25)
	pt3dadd(-11.56, -39.29, -17.5, 1.25)
	pt3dadd(-11.56, -39.45, -17.5, 1.25)
  }
  dend[65] {pt3dclear()
	pt3dadd(-4.97, -32.65, -18.11, 1.41)
	pt3dadd(-5.78, -32.58, -18, 1.41)
  }
  dend[66] {pt3dclear()
	pt3dadd(-5.78, -32.58, -18, 1.41)
	pt3dadd(-6.72, -33.52, -17.5, 1.25)
	pt3dadd(-9.22, -35.22, -17.5, 1.25)
	pt3dadd(-11.88, -36.02, -17.5, 1.25)
	pt3dadd(-15.94, -36.79, -17.5, 1.25)
  }
  dend[67] {pt3dclear()
	pt3dadd(-5.78, -32.58, -18, 1.41)
	pt3dadd(-7.66, -30.55, -18, 1.41)
	pt3dadd(-10.16, -28.2, -18, 1.41)
	pt3dadd(-10.31, -28.2, -18, 1.41)
  }
  dend[68] {pt3dclear()
	pt3dadd(-10.31, -28.2, -18, 1.41)
	pt3dadd(-12.81, -27.73, -18, 1.25)
	pt3dadd(-15.16, -27.89, -18, 1.25)
	pt3dadd(-15.16, -28.05, -18, 1.25)
	pt3dadd(-17.19, -29.77, -18, 1.25)
  }
  dend[69] {pt3dclear()
	pt3dadd(-10.31, -28.2, -18, 1.41)
	pt3dadd(-11.09, -25.86, -18, 1.41)
	pt3dadd(-12.03, -23.98, -18, 1.41)
	pt3dadd(-14.22, -23.36, -18, 1.41)
	pt3dadd(-16.41, -22.73, -18, 1.41)
	pt3dadd(-16.55, -22.89, -18, 1.41)
  }
  dend[70] {pt3dclear()
	pt3dadd(19.69, -21.09, -17, 3.28)
	pt3dadd(21.09, -22.5, -17.5, 3.13)
	pt3dadd(21.09, -22.66, -17.5, 3.13)
	pt3dadd(22.97, -24.38, -17.5, 3.59)
  }
  dend[71] {pt3dclear()
	pt3dadd(22.97, -24.38, -17.5, 3.59)
	pt3dadd(27.03, -23.13, -20.5, 2.19)
	pt3dadd(29.06, -22.34, -20.5, 2.19)
	pt3dadd(30.47, -22.34, -20.5, 2.19)
  }
  dend[72] {pt3dclear()
	pt3dadd(30.47, -22.34, -20.5, 2.19)
	pt3dadd(30.27, -19.76, -19, 1.41)
	pt3dadd(30.59, -18.98, -19, 1.41)
	pt3dadd(31.09, -17.97, -19, 1.41)
  }
  dend[73] {pt3dclear()
	pt3dadd(31.09, -17.97, -19, 1.41)
	pt3dadd(32.81, -18.52, -20.5, 1.41)
	pt3dadd(36.25, -19.14, -20.5, 1.41)
	pt3dadd(40.63, -20.07, -20.5, 1.41)
	pt3dadd(40.63, -20.23, -20.5, 1.41)
	pt3dadd(43.28, -20.39, -20.5, 1.41)
	pt3dadd(46.25, -21.33, -19.5, 1.41)
	pt3dadd(49.22, -21.33, -19.5, 1.41)
	pt3dadd(51.41, -20.7, -19.5, 1.41)
	pt3dadd(51.25, -20.7, -19.5, 1.41)
	pt3dadd(53.75, -21.48, -19.5, 1.41)
	pt3dadd(53.75, -21.64, -19.5, 1.41)
  }
  dend[74] {pt3dclear()
	pt3dadd(53.75, -21.64, -19.5, 1.41)
	pt3dadd(54.69, -24.3, -19.5, 1.41)
	pt3dadd(56.41, -25.55, -19.5, 1.41)
  }
  dend[75] {pt3dclear()
	pt3dadd(56.41, -25.55, -19.5, 1.41)
	pt3dadd(55.78, -28.05, -21, 1.41)
	pt3dadd(54.22, -28.2, -21, 1.41)
	pt3dadd(52.5, -27.58, -21, 1.41)
  }
  dend[76] {pt3dclear()
	pt3dadd(56.41, -25.55, -19.5, 1.41)
	pt3dadd(58.98, -24.48, -19.98, 1.41)
  }
  dend[77] {pt3dclear()
	pt3dadd(58.98, -24.48, -19.98, 1.41)
	pt3dadd(56.25, -27.73, -20, 1.41)
	pt3dadd(56.41, -28.2, -20, 1.41)
	pt3dadd(58.28, -29.77, -20.5, 1.41)
	pt3dadd(58.59, -29.92, -20.5, 1.41)
	pt3dadd(60.47, -29.61, -20.5, 1.41)
	pt3dadd(62.66, -29.45, -20.5, 1.41)
	pt3dadd(62.66, -29.61, -20.5, 1.41)
  }
  dend[78] {pt3dclear()
	pt3dadd(58.98, -24.48, -19.98, 1.41)
	pt3dadd(59.22, -23.2, -20, 1.41)
	pt3dadd(59.53, -20.86, -20, 1.41)
	pt3dadd(60.31, -18.2, -20, 1.41)
	pt3dadd(60.16, -18.36, -20, 1.41)
  }
  dend[79] {pt3dclear()
	pt3dadd(53.75, -21.64, -19.5, 1.41)
	pt3dadd(55.94, -20.39, -20, 1.41)
	pt3dadd(57.5, -19.77, -20, 1.41)
	pt3dadd(57.5, -19.92, -20, 1.41)
  }
  dend[80] {pt3dclear()
	pt3dadd(31.09, -17.97, -19, 1.41)
	pt3dadd(31.06, -15.86, -19, 1.41)
	pt3dadd(31.37, -14.14, -19, 1.41)
	pt3dadd(32.46, -10.08, -19.5, 1.41)
  }
  dend[81] {pt3dclear()
	pt3dadd(32.46, -10.08, -19.5, 1.41)
	pt3dadd(29.49, -6.64, -19, 1.56)
	pt3dadd(29.49, -6.48, -19, 1.56)
  }
  dend[82] {pt3dclear()
	pt3dadd(29.49, -6.48, -19, 1.56)
  }
}
proc shape3d_3() {
  dend[82] {	pt3dadd(27.77, -7.42, -19, 1.41)
	pt3dadd(25.12, -8.19, -19, 1.41)
	pt3dadd(23.09, -8.36, -19, 1.41)
	pt3dadd(20.43, -9.3, -19, 1.41)
	pt3dadd(20.27, -9.3, -19, 1.41)
	pt3dadd(15.9, -11.33, -19, 1.41)
	pt3dadd(12.93, -11.64, -19.5, 1.41)
  }
  dend[83] {pt3dclear()
	pt3dadd(12.93, -11.64, -19.5, 1.41)
	pt3dadd(11.21, -10.39, -19.5, 1.41)
	pt3dadd(11.05, -10.39, -19.5, 1.41)
	pt3dadd(9.96, -9.44, -19.5, 1.41)
	pt3dadd(9.8, -9.44, -19.5, 1.41)
	pt3dadd(7.46, -8.52, -19.5, 1.41)
  }
  dend[84] {pt3dclear()
	pt3dadd(12.93, -11.64, -19.5, 1.41)
	pt3dadd(12.15, -10.08, -19, 1.41)
	pt3dadd(11.99, -10.08, -19, 1.41)
	pt3dadd(11.37, -8.05, -19, 1.41)
	pt3dadd(11.21, -8.05, -19, 1.41)
	pt3dadd(10.59, -6.64, -19, 1.41)
	pt3dadd(10.43, -6.64, -19, 1.41)
  }
  dend[85] {pt3dclear()
	pt3dadd(29.49, -6.48, -19, 1.56)
	pt3dadd(31.63, -4.64, -19, 1.41)
  }
  dend[86] {pt3dclear()
	pt3dadd(31.63, -4.64, -19, 1.41)
	pt3dadd(27.77, -5.08, -17.5, 1.25)
	pt3dadd(25.43, -4.3, -17, 1.25)
  }
  dend[87] {pt3dclear()
	pt3dadd(25.43, -4.3, -17, 1.25)
	pt3dadd(23.71, -3.83, -17, 1.41)
  }
  dend[88] {pt3dclear()
	pt3dadd(23.71, -3.83, -17, 1.41)
	pt3dadd(22.71, -3.55, -17, 1.41)
  }
  dend[89] {pt3dclear()
	pt3dadd(22.71, -3.55, -17, 1.41)
	pt3dadd(22.15, -3.36, -17, 1.41)
  }
  dend[90] {pt3dclear()
	pt3dadd(22.15, -3.36, -17, 1.41)
	pt3dadd(19.96, -4.13, -17.5, 1.25)
	pt3dadd(17.62, -4.45, -17.5, 1.25)
  }
  dend[91] {pt3dclear()
	pt3dadd(22.15, -3.36, -17, 1.41)
	pt3dadd(21.05, -1.8, -17, 1.41)
	pt3dadd(19.64, -0.55, -17, 1.72)
	pt3dadd(19.48, -0.55, -17, 1.72)
  }
  dend[92] {pt3dclear()
	pt3dadd(19.48, -0.55, -17, 1.72)
	pt3dadd(20, 1.17, -16, 1.41)
	pt3dadd(19.69, 1.64, -16, 1.41)
	pt3dadd(19.84, 2.25, -16, 1.41)
	pt3dadd(20.16, 3.52, -16, 1.41)
	pt3dadd(21.88, 5.39, -16, 1.41)
	pt3dadd(23.91, 6.8, -16, 1.41)
	pt3dadd(25.78, 7.27, -16, 1.41)
  }
  dend[93] {pt3dclear()
	pt3dadd(19.48, -0.55, -17, 1.72)
	pt3dadd(18.79, 2.47, -15.51, 1.72)
  }
  dend[94] {pt3dclear()
	pt3dadd(18.79, 2.47, -15.51, 1.72)
	pt3dadd(16.98, -0.07, -17.5, 1.41)
	pt3dadd(16.98, -0.23, -17.5, 1.41)
	pt3dadd(14.65, 1.33, -17.5, 1.41)
	pt3dadd(12.77, 2.11, -17.5, 1.41)
	pt3dadd(10.43, 3.36, -17.5, 1.41)
  }
  dend[95] {pt3dclear()
	pt3dadd(18.79, 2.47, -15.51, 1.72)
	pt3dadd(19.02, 1.48, -16, 1.72)
	pt3dadd(18.87, 1.48, -16, 1.72)
	pt3dadd(17.77, 3.83, -16, 1.72)
	pt3dadd(16.05, 4.45, -14.5, 1.41)
	pt3dadd(12.93, 4.92, -14.5, 1.41)
  }
  dend[96] {pt3dclear()
	pt3dadd(22.71, -3.55, -17, 1.41)
	pt3dadd(27.3, -2.11, -17.5, 1.25)
	pt3dadd(28.4, 0.07, -17.5, 1.25)
	pt3dadd(28.24, 0.07, -17.5, 1.25)
	pt3dadd(28.4, 2.27, -17.5, 1.25)
	pt3dadd(28.24, 2.42, -17.5, 1.25)
	pt3dadd(27.46, 3.98, -17.5, 1.25)
	pt3dadd(28.4, 6.17, -17.5, 1.25)
	pt3dadd(28.24, 6.02, -17.5, 1.25)
  }
  dend[97] {pt3dclear()
	pt3dadd(28.24, 6.02, -17.5, 1.25)
	pt3dadd(27.3, 8.05, -16.5, 1.41)
	pt3dadd(27.15, 8.05, -16.5, 1.41)
	pt3dadd(24.96, 10.39, -16.5, 1.41)
	pt3dadd(22.77, 12.11, -16.5, 1.41)
	pt3dadd(20.12, 13.36, -16.5, 1.41)
	pt3dadd(16.21, 13.98, -16.5, 1.41)
	pt3dadd(16.21, 13.83, -16.5, 1.41)
	pt3dadd(13.4, 14.92, -16.5, 1.41)
	pt3dadd(10.9, 16.17, -16.5, 1.41)
	pt3dadd(10.74, 16.17, -16.5, 1.41)
	pt3dadd(9.8, 18.2, -16.5, 1.41)
	pt3dadd(9.18, 20.23, -16.5, 1.41)
	pt3dadd(9.02, 20.07, -16.5, 1.41)
  }
  dend[98] {pt3dclear()
	pt3dadd(28.24, 6.02, -17.5, 1.25)
	pt3dadd(31.52, 7.11, -17.5, 1.41)
	pt3dadd(31.52, 6.95, -17.5, 1.41)
	pt3dadd(32.29, 8.52, -17.5, 1.41)
	pt3dadd(31.21, 11.17, -17.5, 1.41)
	pt3dadd(30.9, 11.02, -17.5, 1.41)
	pt3dadd(28.4, 12.89, -17.5, 1.41)
	pt3dadd(28.24, 12.89, -17.5, 1.41)
	pt3dadd(25.9, 14.3, -17.5, 1.41)
	pt3dadd(25.59, 14.3, -17.5, 1.41)
	pt3dadd(23.87, 15.55, -17.5, 1.41)
	pt3dadd(23.71, 15.39, -17.5, 1.41)
	pt3dadd(22.62, 16.8, -16, 1.41)
	pt3dadd(20.9, 19.77, -16, 1.41)
	pt3dadd(20.74, 19.77, -16, 1.41)
  }
  dend[99] {pt3dclear()
	pt3dadd(23.71, -3.83, -17, 1.41)
	pt3dadd(24.8, -6.17, -18.5, 1.25)
	pt3dadd(24.49, -9.3, -19, 1.25)
	pt3dadd(23.87, -10.86, -19, 1.25)
	pt3dadd(21.84, -12.89, -19, 1.25)
  }
  dend[100] {pt3dclear()
	pt3dadd(25.43, -4.3, -17, 1.25)
	pt3dadd(25, -2.66, -17, 1.41)
	pt3dadd(25, -2.34, -17, 1.41)
	pt3dadd(24.69, -0.47, -17, 1.41)
	pt3dadd(24.38, 0.78, -17, 1.41)
	pt3dadd(24.06, 1.09, -17, 1.41)
	pt3dadd(22.81, 2.5, -17, 1.41)
	pt3dadd(21.56, 3.59, -17, 1.41)
	pt3dadd(20.3, 4.53, -17, 1.41)
  }
  dend[101] {pt3dclear()
	pt3dadd(31.63, -4.64, -19, 1.41)
	pt3dadd(31.99, -2.89, -18.5, 1.41)
	pt3dadd(32.93, -0.55, -18, 1.41)
  }
  dend[102] {pt3dclear()
	pt3dadd(32.93, -0.55, -18, 1.41)
	pt3dadd(35.43, 0.07, -17.5, 1.25)
	pt3dadd(37.61, 0.7, -17.5, 1.25)
	pt3dadd(39.18, 1.33, -17.5, 1.25)
  }
  dend[103] {pt3dclear()
	pt3dadd(32.93, -0.55, -18, 1.41)
	pt3dadd(32.93, 1.48, -18, 1.41)
  }
  dend[104] {pt3dclear()
	pt3dadd(32.93, 1.48, -18, 1.41)
	pt3dadd(34.79, 2.27, -18, 1.41)
  }
  dend[105] {pt3dclear()
	pt3dadd(32.93, 1.48, -18, 1.41)
	pt3dadd(31.05, 2.42, -17.5, 1.41)
	pt3dadd(30.9, 3.98, -17.5, 1.41)
	pt3dadd(30.74, 3.98, -17.5, 1.41)
	pt3dadd(32.77, 6.02, -17.5, 1.41)
  }
  dend[106] {pt3dclear()
	pt3dadd(32.46, -10.08, -19.5, 1.41)
	pt3dadd(34.65, -8.67, -18.5, 1.41)
  }
  dend[107] {pt3dclear()
	pt3dadd(34.65, -8.67, -18.5, 1.41)
	pt3dadd(38.09, -8.83, -19.5, 1.56)
	pt3dadd(41.05, -8.83, -19, 1.56)
  }
  dend[108] {pt3dclear()
	pt3dadd(41.05, -8.83, -19, 1.56)
	pt3dadd(43.87, -11.95, -19, 1.25)
	pt3dadd(46.68, -14.14, -19, 1.25)
	pt3dadd(46.68, -14.3, -19, 1.25)
	pt3dadd(49.65, -16.02, -19, 1.25)
  }
  dend[109] {pt3dclear()
	pt3dadd(49.65, -16.02, -19, 1.25)
	pt3dadd(49.8, -18.36, -19.5, 1.25)
	pt3dadd(48.24, -18.67, -19.5, 1.25)
  }
  dend[110] {pt3dclear()
	pt3dadd(49.65, -16.02, -19, 1.25)
	pt3dadd(53.55, -17.27, -19, 1.41)
	pt3dadd(56.37, -16.64, -19, 1.41)
	pt3dadd(58.87, -14.45, -19, 1.41)
  }
  dend[111] {pt3dclear()
	pt3dadd(41.05, -8.83, -19, 1.56)
	pt3dadd(45.12, -7.11, -19, 1.41)
	pt3dadd(48.24, -5.55, -19, 1.41)
	pt3dadd(51.37, -2.89, -19, 1.41)
  }
  dend[112] {pt3dclear()
	pt3dadd(34.65, -8.67, -18.5, 1.41)
	pt3dadd(34.65, -6.17, -18.5, 1.41)
	pt3dadd(37.29, -4.76, -18.5, 1.41)
	pt3dadd(39.96, -2.73, -18, 1.41)
	pt3dadd(39.79, -2.73, -18, 1.41)
	pt3dadd(41.99, 0.55, -18, 1.41)
	pt3dadd(42.77, 2.27, -17, 1.41)
  }
  dend[113] {pt3dclear()
	pt3dadd(42.77, 2.27, -17, 1.41)
	pt3dadd(42.81, 2.42, -16, 1.41)
	pt3dadd(41.25, 3.67, -16, 1.41)
	pt3dadd(41.25, 3.52, -16, 1.41)
  }
  dend[114] {pt3dclear()
	pt3dadd(41.25, 3.52, -16, 1.41)
	pt3dadd(39.84, 2.58, -16.5, 1.41)
	pt3dadd(38.28, 1.8, -16.5, 1.41)
  }
  dend[115] {pt3dclear()
	pt3dadd(41.25, 3.52, -16, 1.41)
	pt3dadd(39.06, 6.48, -16, 1.41)
	pt3dadd(39.06, 6.33, -16, 1.41)
  }
  dend[116] {pt3dclear()
	pt3dadd(39.06, 6.33, -16, 1.41)
	pt3dadd(41.41, 8.36, -15, 1.41)
  }
  dend[117] {pt3dclear()
	pt3dadd(39.06, 6.33, -16, 1.41)
	pt3dadd(37.22, 8.47, -16, 1.41)
  }
  dend[118] {pt3dclear()
	pt3dadd(37.22, 8.47, -16, 1.41)
	pt3dadd(37.81, 5.08, -16.5, 1.41)
	pt3dadd(37.65, 5.08, -16.5, 1.41)
	pt3dadd(36.25, 3.52, -16.5, 1.41)
  }
  dend[119] {pt3dclear()
	pt3dadd(37.22, 8.47, -16, 1.41)
	pt3dadd(37.19, 8.36, -16, 1.41)
  }
  dend[120] {pt3dclear()
	pt3dadd(37.19, 8.36, -16, 1.41)
	pt3dadd(38.75, 9.92, -17, 1.41)
	pt3dadd(38.59, 9.92, -17, 1.41)
	pt3dadd(40.47, 12.58, -17, 1.41)
	pt3dadd(41.88, 14.61, -17, 1.41)
	pt3dadd(41.72, 14.45, -17, 1.41)
  }
  dend[121] {pt3dclear()
	pt3dadd(41.72, 14.45, -17, 1.41)
	pt3dadd(40.47, 16.02, -17, 1.41)
	pt3dadd(38.9, 17.57, -17, 1.41)
	pt3dadd(38.59, 17.57, -17, 1.41)
	pt3dadd(38.44, 17.42, -17, 1.41)
  }
  dend[122] {pt3dclear()
	pt3dadd(41.72, 14.45, -17, 1.41)
	pt3dadd(42.5, 16.17, -17, 1.41)
	pt3dadd(42.19, 18.2, -17, 1.41)
  }
  dend[123] {pt3dclear()
	pt3dadd(37.19, 8.36, -16, 1.41)
	pt3dadd(35, 10.86, -16, 1.41)
	pt3dadd(33.13, 12.58, -16, 1.41)
  }
  dend[124] {pt3dclear()
	pt3dadd(42.77, 2.27, -17, 1.41)
	pt3dadd(43.92, 4.84, -17, 1.41)
  }
  dend[125] {pt3dclear()
	pt3dadd(43.92, 4.84, -17, 1.41)
	pt3dadd(45.74, 1.48, -17, 1.41)
	pt3dadd(49.18, 2.73, -17, 1.41)
	pt3dadd(51.68, 4.13, -17.5, 1.41)
	pt3dadd(54.18, 6.33, -17.5, 1.41)
  }
}
proc shape3d_4() {
  dend[125] {	pt3dadd(56.21, 7.73, -17.5, 1.41)
  }
  dend[126] {pt3dclear()
	pt3dadd(43.92, 4.84, -17, 1.41)
	pt3dadd(45.18, 7.67, -17, 1.41)
  }
  dend[127] {pt3dclear()
	pt3dadd(45.18, 7.67, -17, 1.41)
	pt3dadd(48.4, 7.42, -17.5, 1.41)
	pt3dadd(50.59, 9.3, -17.5, 1.41)
  }
  dend[128] {pt3dclear()
	pt3dadd(45.18, 7.67, -17, 1.41)
	pt3dadd(46.84, 10.23, -17, 1.41)
	pt3dadd(49.18, 12.11, -17, 1.41)
	pt3dadd(51.21, 12.42, -17, 1.41)
	pt3dadd(51.05, 12.42, -17, 1.41)
  }
  dend[129] {pt3dclear()
	pt3dadd(30.47, -22.34, -20.5, 2.19)
	pt3dadd(33.13, -22.66, -20.5, 2.19)
	pt3dadd(35.15, -23.13, -20.5, 1.88)
	pt3dadd(37.97, -23.91, -20.5, 1.88)
	pt3dadd(40.47, -24.84, -20.5, 1.88)
	pt3dadd(41.17, -24.95, -20.5, 1.88)
  }
  dend[130] {pt3dclear()
	pt3dadd(41.17, -24.95, -20.5, 1.88)
	pt3dadd(40.94, -26.36, -22.5, 0.94)
	pt3dadd(40.78, -27.69, -22.5, 0.94)
	pt3dadd(40.94, -29.4, -22.5, 0.94)
	pt3dadd(40.94, -31.2, -22.5, 0.94)
	pt3dadd(41.02, -32.53, -22.5, 0.94)
	pt3dadd(41.48, -34.09, -22.5, 0.94)
	pt3dadd(42.5, -35.97, -22.5, 0.94)
	pt3dadd(43.91, -37.29, -22.5, 0.94)
	pt3dadd(44.84, -38.78, -22.5, 0.94)
	pt3dadd(44.53, -40.26, -22.5, 0.94)
	pt3dadd(42.66, -42.29, -22.5, 0.94)
	pt3dadd(41.64, -44.01, -22.5, 0.94)
	pt3dadd(40.7, -45.26, -22.5, 0.94)
  }
  dend[131] {pt3dclear()
	pt3dadd(41.17, -24.95, -20.5, 1.88)
	pt3dadd(43.13, -25.47, -20.5, 1.88)
	pt3dadd(46.56, -26.56, -20.5, 1.88)
	pt3dadd(48.28, -27.81, -20.5, 1.88)
	pt3dadd(50.16, -29.06, -20.5, 1.88)
	pt3dadd(52.66, -30, -20.5, 1.88)
	pt3dadd(55.16, -31.25, -20.5, 1.88)
	pt3dadd(58.13, -32.65, -20.5, 1.88)
	pt3dadd(60.31, -33.59, -22, 1.88)
	pt3dadd(62.81, -34.53, -22, 1.88)
	pt3dadd(64.06, -34.84, -22, 1.88)
	pt3dadd(65.78, -35.31, -22, 1.88)
  }
  dend[132] {pt3dclear()
	pt3dadd(65.78, -35.31, -22, 1.88)
	pt3dadd(66.09, -34.14, -21.5, 1.09)
	pt3dadd(66.56, -33.04, -21.5, 1.09)
	pt3dadd(67.66, -31.48, -21.5, 1.09)
	pt3dadd(67.66, -31.64, -21.5, 1.09)
  }
  dend[133] {pt3dclear()
	pt3dadd(67.66, -31.64, -21.5, 1.09)
	pt3dadd(69.06, -31.56, -22.5, 0.94)
	pt3dadd(70.78, -31.56, -22, 0.94)
	pt3dadd(73.13, -30.47, -22, 0.94)
	pt3dadd(75.47, -28.59, -22, 0.94)
	pt3dadd(77.97, -26.41, -22.5, 0.94)
	pt3dadd(78.28, -24.84, -22.5, 0.94)
	pt3dadd(77.97, -22.81, -22.5, 0.94)
	pt3dadd(77.5, -22.03, -22.5, 0.94)
  }
  dend[134] {pt3dclear()
	pt3dadd(67.66, -31.64, -21.5, 1.09)
	pt3dadd(69.38, -28.52, -22, 1.56)
	pt3dadd(69.22, -28.52, -22, 1.56)
	pt3dadd(70.31, -26.64, -20.5, 1.72)
  }
  dend[135] {pt3dclear()
	pt3dadd(70.31, -26.64, -20.5, 1.72)
	pt3dadd(71.25, -26.56, -20.5, 0.94)
	pt3dadd(73.44, -26.72, -20.5, 0.94)
  }
  dend[136] {pt3dclear()
	pt3dadd(73.44, -26.72, -20.5, 0.94)
	pt3dadd(73.91, -25.47, -20, 0.94)
	pt3dadd(75.31, -24.38, -20, 0.94)
	pt3dadd(76.56, -22.97, -20, 0.94)
	pt3dadd(76.41, -21.09, -20, 0.94)
	pt3dadd(75.78, -20.16, -20, 0.94)
  }
  dend[137] {pt3dclear()
	pt3dadd(73.44, -26.72, -20.5, 0.94)
	pt3dadd(75.12, -27.56, -20.5, 0.94)
  }
  dend[138] {pt3dclear()
	pt3dadd(75.12, -27.56, -20.5, 0.94)
	pt3dadd(76.72, -24.22, -19.5, 0.94)
	pt3dadd(79.38, -22.03, -19.5, 0.94)
  }
  dend[139] {pt3dclear()
	pt3dadd(79.38, -22.03, -19.5, 0.94)
	pt3dadd(81.41, -18.59, -18, 0.94)
	pt3dadd(84.22, -15.94, -18, 0.94)
	pt3dadd(86.41, -12.5, -18, 0.94)
  }
  dend[140] {pt3dclear()
	pt3dadd(79.38, -22.03, -19.5, 0.94)
	pt3dadd(80.93, -22.97, -19.5, 0.94)
	pt3dadd(82.03, -23.6, -19.5, 0.94)
	pt3dadd(84.53, -25, -21, 0.94)
	pt3dadd(86.09, -25.78, -22, 0.94)
  }
  dend[141] {pt3dclear()
	pt3dadd(86.09, -25.78, -22, 0.94)
	pt3dadd(88.91, -25.31, -22, 0.94)
	pt3dadd(91.56, -24.69, -22, 0.94)
  }
  dend[142] {pt3dclear()
	pt3dadd(91.56, -24.69, -22, 0.94)
	pt3dadd(93.91, -25.31, -22, 0.94)
	pt3dadd(95.31, -25.78, -22, 0.94)
  }
  dend[143] {pt3dclear()
	pt3dadd(95.31, -25.78, -22, 0.94)
	pt3dadd(96.88, -27.34, -22, 0.94)
	pt3dadd(98.28, -28.44, -22, 0.94)
	pt3dadd(99.53, -28.44, -22, 0.94)
	pt3dadd(101.4, -27.34, -22, 0.94)
  }
  dend[144] {pt3dclear()
	pt3dadd(95.31, -25.78, -22, 0.94)
	pt3dadd(96.72, -24.06, -22, 0.94)
	pt3dadd(97.5, -22.66, -22, 0.94)
	pt3dadd(98.75, -20.63, -22, 0.94)
  }
  dend[145] {pt3dclear()
	pt3dadd(91.56, -24.69, -22, 0.94)
	pt3dadd(93.28, -23.44, -22, 0.94)
	pt3dadd(94.22, -21.88, -22, 0.94)
  }
  dend[146] {pt3dclear()
	pt3dadd(86.09, -25.78, -22, 0.94)
	pt3dadd(87.97, -28.13, -22, 0.94)
  }
  dend[147] {pt3dclear()
	pt3dadd(75.12, -27.56, -20.5, 0.94)
	pt3dadd(76.25, -28.12, -20.5, 0.94)
	pt3dadd(77.65, -28.44, -19.5, 0.94)
	pt3dadd(78.59, -28.6, -19.5, 0.94)
	pt3dadd(79.84, -28.59, -19.5, 0.94)
	pt3dadd(82.66, -29.69, -19.5, 0.94)
	pt3dadd(85.47, -30.47, -19.5, 0.94)
	pt3dadd(88.59, -30.63, -19.5, 0.94)
  }
  dend[148] {pt3dclear()
	pt3dadd(70.31, -26.64, -20.5, 1.72)
	pt3dadd(69.84, -25.23, -20.5, 1.72)
	pt3dadd(69.38, -23.36, -20.5, 1.72)
  }
  dend[149] {pt3dclear()
	pt3dadd(69.38, -23.36, -20.5, 1.72)
	pt3dadd(70.31, -22.5, -18.5, 0.94)
	pt3dadd(71.09, -21.41, -18.5, 0.94)
	pt3dadd(73.59, -19.84, -18.5, 0.94)
	pt3dadd(76.41, -18.13, -18.5, 0.94)
	pt3dadd(78.44, -16.25, -18.5, 0.94)
	pt3dadd(79.84, -15.63, -17.5, 0.94)
  }
  dend[150] {pt3dclear()
	pt3dadd(69.38, -23.36, -20.5, 1.72)
	pt3dadd(68.69, -19.98, -20.5, 1.72)
  }
  dend[151] {pt3dclear()
	pt3dadd(68.69, -19.98, -20.5, 1.72)
	pt3dadd(67.66, -23.13, -20, 0.94)
	pt3dadd(66.56, -23.9, -20, 0.94)
	pt3dadd(65.78, -24.53, -20, 0.94)
	pt3dadd(64.69, -26.41, -20, 0.94)
	pt3dadd(64.06, -27.34, -20, 0.94)
  }
  dend[152] {pt3dclear()
	pt3dadd(68.69, -19.98, -20.5, 1.72)
	pt3dadd(69.06, -21.8, -20.5, 1.72)
	pt3dadd(68.91, -21.8, -20.5, 1.72)
	pt3dadd(68.44, -19.45, -20.5, 1.72)
	pt3dadd(68.44, -19.61, -20.5, 1.72)
  }
  dend[153] {pt3dclear()
	pt3dadd(68.44, -19.61, -20.5, 1.72)
	pt3dadd(67.5, -18.67, -20.5, 1.41)
  }
  dend[154] {pt3dclear()
	pt3dadd(67.5, -18.67, -20.5, 1.41)
	pt3dadd(66.72, -16.95, -20.5, 1.41)
	pt3dadd(66.25, -15.86, -20.5, 1.41)
	pt3dadd(66.25, -16.02, -20.5, 1.41)
	pt3dadd(65.75, -14.82, -20.5, 1.41)
	pt3dadd(64.92, -13.73, -20.5, 1.41)
	pt3dadd(64.73, -12.13, -20.5, 1.41)
	pt3dadd(64.73, -10.33, -20.5, 1.41)
	pt3dadd(63.96, -8.35, -20.5, 1.41)
	pt3dadd(62.99, -6.87, -20.5, 1.41)
	pt3dadd(61.78, -6.17, -20.5, 1.41)
	pt3dadd(60.62, -5.66, -20.5, 1.41)
  }
  dend[155] {pt3dclear()
	pt3dadd(67.5, -18.67, -20.5, 1.41)
	pt3dadd(66.45, -17.62, -20.5, 1.41)
  }
  dend[156] {pt3dclear()
	pt3dadd(66.45, -17.62, -20.5, 1.41)
	pt3dadd(70.15, -16.87, -19, 1.41)
	pt3dadd(70.94, -15.63, -19, 1.41)
	pt3dadd(71.72, -14.06, -19, 1.41)
	pt3dadd(72.03, -11.56, -19, 1.41)
	pt3dadd(73.59, -10, -19, 1.41)
	pt3dadd(75.78, -7.81, -19, 1.41)
	pt3dadd(78.75, -6.41, -19, 1.41)
  }
  dend[157] {pt3dclear()
	pt3dadd(66.45, -17.62, -20.5, 1.41)
	pt3dadd(68.43, -17.5, -19, 1.41)
	pt3dadd(68.44, -15.63, -19, 1.41)
	pt3dadd(68.44, -13.59, -19, 1.41)
	pt3dadd(68.44, -11.09, -19, 1.41)
	pt3dadd(69.38, -9.22, -19, 1.41)
	pt3dadd(69.38, -7.34, -19, 1.41)
	pt3dadd(69.22, -5, -19, 1.41)
  }
  dend[158] {pt3dclear()
	pt3dadd(68.44, -19.61, -20.5, 1.72)
	pt3dadd(69.84, -18.43, -18.5, 1.41)
	pt3dadd(70.94, -17.97, -18.5, 1.41)
	pt3dadd(72.19, -17.5, -18.5, 1.41)
	pt3dadd(74.06, -16.55, -18.5, 1.41)
	pt3dadd(75.47, -15.31, -18.5, 1.41)
	pt3dadd(77.66, -14.22, -17.5, 1.41)
	pt3dadd(79.84, -12.97, -17.5, 1.41)
	pt3dadd(81.72, -11.72, -17.5, 1.41)
  }
  dend[159] {pt3dclear()
	pt3dadd(65.78, -35.31, -22, 1.88)
	pt3dadd(65.78, -39.07, -22, 1.88)
  }
  dend[160] {pt3dclear()
	pt3dadd(65.78, -39.07, -22, 1.88)
	pt3dadd(68.28, -34.84, -22, 1.41)
	pt3dadd(69.38, -34.69, -22, 1.41)
	pt3dadd(70.63, -34.53, -22, 1.41)
	pt3dadd(72.34, -34.53, -22, 1.41)
	pt3dadd(73.75, -34.69, -22, 1.41)
  }
  dend[161] {pt3dclear()
	pt3dadd(73.75, -34.69, -22, 1.41)
	pt3dadd(73.59, -34.69, -22, 1.09)
	pt3dadd(75.63, -32.65, -22, 1.09)
	pt3dadd(77.19, -31.25, -22, 1.09)
  }
  dend[162] {pt3dclear()
	pt3dadd(77.19, -31.25, -22, 1.09)
	pt3dadd(80, -32.5, -23.5, 1.09)
  }
  dend[163] {pt3dclear()
	pt3dadd(80, -32.5, -23.5, 1.09)
	pt3dadd(82.03, -35, -24, 1.09)
	pt3dadd(84.22, -36.56, -24, 1.09)
	pt3dadd(87.03, -37.81, -24, 1.72)
  }
  dend[164] {pt3dclear()
	pt3dadd(87.03, -37.81, -24, 1.72)
	pt3dadd(87.97, -40.94, -25, 1.25)
	pt3dadd(87.5, -43.44, -25, 1.25)
	pt3dadd(88.44, -45.63, -25, 1.25)
	pt3dadd(90.47, -48.13, -25, 1.25)
	pt3dadd(92.34, -49.38, -23.5, 1.25)
  }
}
proc shape3d_5() {
  dend[164] {  }
  dend[165] {pt3dclear()
	pt3dadd(92.34, -49.38, -23.5, 1.25)
	pt3dadd(92.34, -50.94, -28, 0.94)
	pt3dadd(92.66, -53.44, -28, 0.94)
	pt3dadd(93.59, -55.94, -28, 0.94)
	pt3dadd(95.16, -58.59, -28, 0.94)
	pt3dadd(95.94, -59.22, -28, 0.94)
  }
  dend[166] {pt3dclear()
	pt3dadd(92.34, -49.38, -23.5, 1.25)
	pt3dadd(94.81, -48.99, -23.5, 1.25)
  }
  dend[167] {pt3dclear()
	pt3dadd(94.81, -48.99, -23.5, 1.25)
	pt3dadd(93.91, -51.88, -24.5, 1.25)
	pt3dadd(96.09, -54.53, -24.5, 1.25)
	pt3dadd(98.13, -55.78, -24.5, 1.25)
	pt3dadd(101.3, -57.34, -24.5, 1.25)
  }
  dend[168] {pt3dclear()
	pt3dadd(94.81, -48.99, -23.5, 1.25)
	pt3dadd(95.31, -48.91, -23.5, 1.25)
	pt3dadd(97.5, -49.06, -23.5, 1.25)
	pt3dadd(99.69, -50, -23.5, 1.25)
	pt3dadd(102.5, -51.72, -23.5, 1.25)
	pt3dadd(104.2, -53.75, -23.5, 1.25)
	pt3dadd(104.5, -56.09, -23.5, 1.25)
	pt3dadd(104.4, -57.5, -23.5, 1.25)
  }
  dend[169] {pt3dclear()
	pt3dadd(87.03, -37.81, -24, 1.72)
	pt3dadd(90.63, -38.59, -25.5, 1.25)
	pt3dadd(94.22, -39.06, -25.5, 1.25)
  }
  dend[170] {pt3dclear()
	pt3dadd(94.22, -39.06, -25.5, 1.25)
	pt3dadd(96.72, -40.78, -27.5, 1.25)
	pt3dadd(98.59, -42.5, -27.5, 1.25)
	pt3dadd(100.3, -41.41, -27.5, 1.25)
  }
  dend[171] {pt3dclear()
	pt3dadd(94.22, -39.06, -25.5, 1.25)
	pt3dadd(97.97, -37.81, -27, 1.25)
	pt3dadd(98.28, -35.15, -27, 1.25)
	pt3dadd(97.66, -32.34, -27, 1.25)
  }
  dend[172] {pt3dclear()
	pt3dadd(80, -32.5, -23.5, 1.09)
	pt3dadd(82.97, -31.56, -23.5, 1.09)
	pt3dadd(84.84, -31.09, -23.5, 1.09)
	pt3dadd(87.66, -31.56, -24.5, 1.09)
	pt3dadd(89.06, -32.03, -24.5, 1.09)
	pt3dadd(91.88, -31.56, -24.5, 1.09)
  }
  dend[173] {pt3dclear()
	pt3dadd(77.19, -31.25, -22, 1.09)
	pt3dadd(79.06, -29.38, -23, 1.09)
	pt3dadd(81.09, -27.19, -23.5, 1.09)
	pt3dadd(83.28, -25.16, -23.5, 1.09)
	pt3dadd(85.31, -22.66, -23.5, 1.09)
  }
  dend[174] {pt3dclear()
	pt3dadd(85.31, -22.66, -23.5, 1.09)
	pt3dadd(87.66, -21.56, -23.5, 1.09)
	pt3dadd(90.16, -21.09, -23.5, 1.09)
	pt3dadd(92.5, -21.56, -23.5, 1.09)
	pt3dadd(94.22, -20.94, -23.5, 1.09)
  }
  dend[175] {pt3dclear()
	pt3dadd(85.31, -22.66, -23.5, 1.09)
	pt3dadd(85, -19.84, -23.5, 1.09)
  }
  dend[176] {pt3dclear()
	pt3dadd(85, -19.84, -23.5, 1.09)
	pt3dadd(88.28, -19.22, -23, 1.09)
	pt3dadd(91.41, -18.59, -23, 1.09)
	pt3dadd(94.06, -17.03, -23, 1.09)
  }
  dend[177] {pt3dclear()
	pt3dadd(85, -19.84, -23.5, 1.09)
	pt3dadd(83.44, -16.88, -23, 1.09)
  }
  dend[178] {pt3dclear()
	pt3dadd(83.44, -16.88, -23, 1.09)
	pt3dadd(83.75, -14.06, -23, 1.09)
  }
  dend[179] {pt3dclear()
	pt3dadd(83.75, -14.06, -23, 1.09)
	pt3dadd(82.19, -11.72, -23, 1.09)
	pt3dadd(80, -9.06, -22, 1.09)
	pt3dadd(78.59, -6.88, -22, 1.09)
	pt3dadd(76.25, -5.78, -22, 1.09)
  }
  dend[180] {pt3dclear()
	pt3dadd(83.75, -14.06, -23, 1.09)
	pt3dadd(83.57, -11.3, -22.45, 1.41)
  }
  dend[181] {pt3dclear()
	pt3dadd(83.57, -11.3, -22.45, 1.41)
	pt3dadd(86.56, -14.38, -23, 1.09)
	pt3dadd(89.53, -14.06, -22, 1.09)
	pt3dadd(90.94, -12.97, -22, 1.09)
  }
  dend[182] {pt3dclear()
	pt3dadd(83.57, -11.3, -22.45, 1.41)
	pt3dadd(83.59, -11.56, -22.5, 1.41)
	pt3dadd(84.53, -8.91, -22.5, 1.41)
	pt3dadd(85.63, -6.41, -22.5, 1.41)
  }
  dend[183] {pt3dclear()
	pt3dadd(83.44, -16.88, -23, 1.09)
	pt3dadd(80.63, -15.31, -23, 1.09)
	pt3dadd(78.28, -14.84, -23, 1.09)
	pt3dadd(76.25, -12.97, -23, 1.09)
	pt3dadd(74.84, -11.72, -23, 1.09)
	pt3dadd(74.22, -8.91, -23, 1.09)
  }
  dend[184] {pt3dclear()
	pt3dadd(73.75, -34.69, -22, 1.41)
	pt3dadd(75, -35, -22, 1.41)
	pt3dadd(75.94, -35.78, -22, 1.41)
	pt3dadd(78.13, -37.19, -22, 1.41)
	pt3dadd(80.78, -38.44, -22, 1.41)
	pt3dadd(81.72, -39.38, -22, 1.41)
  }
  dend[185] {pt3dclear()
	pt3dadd(81.72, -39.38, -22, 1.41)
	pt3dadd(82.34, -38.9, -21.5, 1.25)
	pt3dadd(84.38, -36.4, -22, 1.25)
	pt3dadd(86.88, -34.22, -22, 1.25)
	pt3dadd(89.53, -33.13, -22, 1.25)
  }
  dend[186] {pt3dclear()
	pt3dadd(89.53, -33.13, -22, 1.25)
	pt3dadd(92.19, -32.65, -22, 1.25)
	pt3dadd(94.38, -32.19, -22, 1.25)
	pt3dadd(96.41, -30.47, -22, 1.25)
  }
  dend[187] {pt3dclear()
	pt3dadd(89.53, -33.13, -22, 1.25)
	pt3dadd(91.41, -35.15, -22, 1.25)
	pt3dadd(94.22, -36.25, -22, 1.25)
	pt3dadd(97.03, -36.4, -22, 1.25)
	pt3dadd(99.22, -36.56, -22, 1.25)
	pt3dadd(101.1, -37.5, -22, 1.25)
  }
  dend[188] {pt3dclear()
	pt3dadd(81.72, -39.38, -22, 1.41)
	pt3dadd(82.5, -40.31, -22, 1.41)
	pt3dadd(84.06, -41.72, -22, 1.41)
  }
  dend[189] {pt3dclear()
	pt3dadd(84.06, -41.72, -22, 1.41)
	pt3dadd(84.84, -41.41, -21.5, 1.25)
	pt3dadd(88.13, -41.09, -22, 1.25)
	pt3dadd(91.72, -41.56, -22, 1.25)
	pt3dadd(94.22, -42.34, -22, 1.25)
	pt3dadd(97.5, -43.75, -22, 1.25)
  }
  dend[190] {pt3dclear()
	pt3dadd(97.5, -43.75, -22, 1.25)
	pt3dadd(99.06, -45.63, -22, 1.25)
	pt3dadd(101.3, -47.66, -22, 1.25)
	pt3dadd(103.8, -49.38, -22, 1.25)
  }
  dend[191] {pt3dclear()
	pt3dadd(97.5, -43.75, -22, 1.25)
	pt3dadd(101.1, -43.91, -22, 1.25)
	pt3dadd(103.4, -43.75, -22, 1.25)
  }
  dend[192] {pt3dclear()
	pt3dadd(84.06, -41.72, -22, 1.41)
	pt3dadd(85, -42.34, -22, 1.41)
	pt3dadd(86.09, -43.59, -22, 1.41)
  }
  dend[193] {pt3dclear()
	pt3dadd(86.09, -43.59, -22, 1.41)
	pt3dadd(86.09, -44.38, -22.5, 1.25)
	pt3dadd(86.09, -47.66, -22.5, 1.25)
	pt3dadd(86.72, -50.47, -22.5, 1.25)
	pt3dadd(88.44, -52.5, -22.5, 1.25)
	pt3dadd(91.09, -55.16, -22.5, 1.25)
  }
  dend[194] {pt3dclear()
	pt3dadd(86.09, -43.59, -22, 1.41)
	pt3dadd(86.72, -44.69, -22.5, 1.41)
	pt3dadd(88.28, -45.63, -22.5, 1.41)
	pt3dadd(91.41, -47.19, -22.5, 1.41)
	pt3dadd(94.06, -47.81, -22.5, 1.41)
	pt3dadd(97.5, -48.44, -22.5, 1.41)
	pt3dadd(100.3, -49.53, -22.5, 1.41)
	pt3dadd(101.9, -50.47, -22.5, 1.41)
  }
  dend[195] {pt3dclear()
	pt3dadd(65.78, -39.07, -22, 1.88)
	pt3dadd(65.78, -37.19, -22, 1.88)
	pt3dadd(66.09, -38.59, -22, 1.88)
	pt3dadd(67.03, -40.47, -22, 1.88)
	pt3dadd(67.5, -42.03, -22, 1.88)
  }
  dend[196] {pt3dclear()
	pt3dadd(67.5, -42.03, -22, 1.88)
	pt3dadd(65.93, -41.87, -22.5, 1.25)
	pt3dadd(64.53, -41.88, -22, 1.25)
	pt3dadd(61.41, -40.47, -22, 1.25)
	pt3dadd(58.59, -38.9, -22, 1.25)
	pt3dadd(56.09, -37.81, -22, 1.25)
  }
  dend[197] {pt3dclear()
	pt3dadd(56.09, -37.81, -22, 1.25)
	pt3dadd(58.28, -36.09, -22, 1.25)
	pt3dadd(60.78, -36.56, -22, 1.25)
	pt3dadd(62.81, -38.13, -22, 1.25)
	pt3dadd(65, -39.69, -22, 1.25)
  }
  dend[198] {pt3dclear()
	pt3dadd(56.09, -37.81, -22, 1.25)
	pt3dadd(53.69, -38.35, -21.57, 1.25)
  }
  dend[199] {pt3dclear()
	pt3dadd(53.69, -38.35, -21.57, 1.25)
	pt3dadd(56.09, -35.94, -21.5, 1.25)
	pt3dadd(54.38, -33.9, -21.5, 1.25)
	pt3dadd(50.47, -32.65, -21.5, 1.25)
  }
  dend[200] {pt3dclear()
	pt3dadd(50.47, -32.65, -21.5, 1.25)
	pt3dadd(48.28, -33.28, -21.5, 1.25)
	pt3dadd(45.78, -33.9, -21.5, 1.25)
	pt3dadd(42.97, -34.84, -21.5, 1.25)
	pt3dadd(40.15, -35, -21.5, 1.25)
	pt3dadd(38.59, -33.44, -21.5, 1.25)
  }
  dend[201] {pt3dclear()
	pt3dadd(50.47, -32.65, -21.5, 1.25)
	pt3dadd(48.44, -31.25, -21.5, 1.25)
	pt3dadd(46.09, -30, -21.5, 1.25)
	pt3dadd(43.91, -28.13, -21.5, 1.25)
	pt3dadd(42.34, -27.66, -21.5, 1.25)
	pt3dadd(39.69, -26.56, -21.5, 1.25)
  }
  dend[202] {pt3dclear()
	pt3dadd(53.69, -38.35, -21.57, 1.25)
	pt3dadd(53.28, -38.44, -21.5, 1.25)
	pt3dadd(50.94, -37.97, -21.5, 1.25)
  }
  dend[203] {pt3dclear()
	pt3dadd(50.94, -37.97, -21.5, 1.25)
	pt3dadd(50.47, -35.63, -21.5, 1.25)
	pt3dadd(48.75, -34.06, -21.5, 1.25)
	pt3dadd(47.03, -32.03, -21.5, 1.25)
  }
  dend[204] {pt3dclear()
	pt3dadd(50.94, -37.97, -21.5, 1.25)
	pt3dadd(49.4, -39.94, -21.5, 1.25)
  }
  dend[205] {pt3dclear()
	pt3dadd(49.4, -39.94, -21.5, 1.25)
	pt3dadd(49.38, -37.19, -21.5, 1.25)
	pt3dadd(46.56, -36.25, -21.5, 1.25)
	pt3dadd(45.31, -34.53, -21.5, 1.25)
	pt3dadd(44.38, -32.81, -21, 1.25)
	pt3dadd(43.75, -29.69, -21, 1.25)
  }
  dend[206] {pt3dclear()
	pt3dadd(49.4, -39.94, -21.5, 1.25)
	pt3dadd(48.75, -40.78, -21.5, 1.25)
	pt3dadd(46.72, -43.59, -21.5, 1.25)
	pt3dadd(46.56, -46.72, -21, 1.25)
	pt3dadd(46.41, -47.81, -21, 1.25)
  }
  dend[207] {pt3dclear()
	pt3dadd(67.5, -42.03, -22, 1.88)
	pt3dadd(68.44, -43.75, -24, 1.88)
	pt3dadd(69.53, -45.78, -24, 1.88)
	pt3dadd(70.31, -46.88, -24, 1.88)
  }
  dend[208] {pt3dclear()
	pt3dadd(70.31, -46.88, -24, 1.88)
	pt3dadd(71.88, -46.72, -25, 1.09)
	pt3dadd(72.97, -46.88, -25, 1.09)
  }
  dend[209] {pt3dclear()
	pt3dadd(72.97, -46.88, -25, 1.09)
	pt3dadd(73.28, -46.41, -24.5, 1.09)
	pt3dadd(75.31, -44.06, -24, 1.09)
  }
  dend[210] {pt3dclear()
	pt3dadd(75.31, -44.06, -24, 1.09)
	pt3dadd(77.66, -44.38, -21, 1.09)
  }
  dend[211] {pt3dclear()
	pt3dadd(77.66, -44.38, -21, 1.09)
  }
}
proc shape3d_6() {
  dend[211] {	pt3dadd(78.75, -47.19, -20, 1.09)
  }
  dend[212] {pt3dclear()
	pt3dadd(77.66, -44.38, -21, 1.09)
	pt3dadd(80.31, -43.75, -21, 1.09)
	pt3dadd(81.41, -44.84, -21, 1.09)
	pt3dadd(82.5, -45.78, -21, 1.09)
  }
  dend[213] {pt3dclear()
	pt3dadd(75.31, -44.06, -24, 1.09)
	pt3dadd(77.19, -43.02, -24.33, 1.09)
  }
  dend[214] {pt3dclear()
	pt3dadd(77.19, -43.02, -24.33, 1.09)
	pt3dadd(73.75, -43.28, -24, 1.09)
	pt3dadd(71.56, -41.25, -24, 1.09)
	pt3dadd(70.47, -39.06, -24, 1.09)
	pt3dadd(69.37, -35.31, -24, 1.09)
  }
  dend[215] {pt3dclear()
	pt3dadd(77.19, -43.02, -24.33, 1.09)
	pt3dadd(78.13, -42.5, -24.5, 1.09)
	pt3dadd(79.84, -41.09, -24.5, 1.09)
  }
  dend[216] {pt3dclear()
	pt3dadd(72.97, -46.88, -25, 1.09)
	pt3dadd(73.75, -47.03, -25, 1.09)
	pt3dadd(75.94, -48.13, -25, 1.09)
  }
  dend[217] {pt3dclear()
	pt3dadd(75.94, -48.13, -25, 1.09)
	pt3dadd(77.34, -50.94, -25, 1.09)
	pt3dadd(78.75, -52.19, -25, 1.09)
  }
  dend[218] {pt3dclear()
	pt3dadd(78.75, -52.19, -25, 1.09)
	pt3dadd(81.41, -51.88, -25, 1.09)
	pt3dadd(83.28, -54.22, -27, 1.09)
	pt3dadd(85.31, -56.72, -27, 1.09)
	pt3dadd(86.25, -58.59, -27, 1.09)
  }
  dend[219] {pt3dclear()
	pt3dadd(78.75, -52.19, -25, 1.09)
	pt3dadd(81.09, -54.06, -25, 1.09)
	pt3dadd(83.13, -56.09, -25, 1.09)
	pt3dadd(85.16, -57.97, -25, 1.09)
  }
  dend[220] {pt3dclear()
	pt3dadd(75.94, -48.13, -25, 1.09)
	pt3dadd(79.22, -48.13, -25, 1.09)
	pt3dadd(80.94, -47.66, -25, 1.09)
  }
  dend[221] {pt3dclear()
	pt3dadd(80.94, -47.66, -25, 1.09)
	pt3dadd(83.13, -48.75, -24, 1.25)
	pt3dadd(85, -50.31, -24, 1.25)
	pt3dadd(86.25, -52.19, -24, 1.25)
	pt3dadd(87.66, -54.22, -24, 1.25)
	pt3dadd(87.97, -56.09, -24, 1.25)
  }
  dend[222] {pt3dclear()
	pt3dadd(80.94, -47.66, -25, 1.09)
	pt3dadd(81.72, -47.03, -25, 1.09)
	pt3dadd(84.06, -45.63, -25, 1.09)
  }
  dend[223] {pt3dclear()
	pt3dadd(70.31, -46.88, -24, 1.88)
	pt3dadd(71.88, -49.22, -24, 1.88)
	pt3dadd(72.19, -50, -24, 1.88)
  }
  dend[224] {pt3dclear()
	pt3dadd(72.19, -50, -24, 1.88)
	pt3dadd(71.25, -50.78, -24.5, 1.25)
	pt3dadd(69.84, -52.5, -24.5, 1.25)
	pt3dadd(69.06, -54.69, -24.5, 1.25)
	pt3dadd(68.91, -56.41, -24.5, 1.25)
	pt3dadd(69.38, -57.03, -24.5, 1.25)
  }
  dend[225] {pt3dclear()
	pt3dadd(69.38, -57.03, -24.5, 1.25)
	pt3dadd(70, -59.06, -23.5, 1.25)
	pt3dadd(71.25, -60.47, -23.5, 1.25)
	pt3dadd(72.66, -63.13, -23.5, 1.25)
	pt3dadd(73.28, -65, -23.5, 1.25)
  }
  dend[226] {pt3dclear()
	pt3dadd(73.28, -65, -23.5, 1.25)
	pt3dadd(76.25, -68.44, -24, 1.25)
	pt3dadd(77.19, -71.41, -24, 1.25)
	pt3dadd(77.34, -73.59, -24, 1.25)
  }
  dend[227] {pt3dclear()
	pt3dadd(77.34, -73.59, -24, 1.25)
	pt3dadd(79.84, -75.94, -25.5, 1.25)
	pt3dadd(80.78, -78.13, -25.5, 1.25)
	pt3dadd(81.41, -80.31, -25.5, 1.25)
	pt3dadd(82.34, -82.03, -25.5, 1.25)
  }
  dend[228] {pt3dclear()
	pt3dadd(77.34, -73.59, -24, 1.25)
	pt3dadd(76.88, -75.31, -24, 1.25)
	pt3dadd(76.88, -77.34, -24, 1.25)
	pt3dadd(76.72, -80, -24, 1.25)
	pt3dadd(77.81, -81.72, -24, 1.25)
	pt3dadd(79.06, -82.66, -24, 1.25)
  }
  dend[229] {pt3dclear()
	pt3dadd(73.28, -65, -23.5, 1.25)
	pt3dadd(72.97, -66.56, -23.5, 1.25)
	pt3dadd(72.19, -68.75, -23.5, 1.25)
	pt3dadd(72.66, -70.78, -23.5, 1.25)
	pt3dadd(73.13, -73.75, -23.5, 1.25)
	pt3dadd(73.44, -74.69, -23.5, 1.25)
  }
  dend[230] {pt3dclear()
	pt3dadd(69.38, -57.03, -24.5, 1.25)
	pt3dadd(72.03, -57.97, -24.5, 1.25)
	pt3dadd(73.75, -59.22, -24.5, 1.25)
	pt3dadd(75.31, -60.63, -24.5, 1.25)
	pt3dadd(76.41, -62.5, -24.5, 1.25)
	pt3dadd(77.66, -63.59, -24.5, 1.25)
	pt3dadd(78.44, -65.31, -24.5, 1.25)
  }
  dend[231] {pt3dclear()
	pt3dadd(72.19, -50, -24, 1.88)
	pt3dadd(73.59, -51.41, -24, 1.88)
	pt3dadd(75.31, -52.81, -25, 1.72)
	pt3dadd(77.5, -55, -25, 1.72)
	pt3dadd(79.38, -56.56, -26, 1.72)
	pt3dadd(80.16, -57.34, -26, 1.72)
  }
  dend[232] {pt3dclear()
	pt3dadd(80.16, -57.34, -26, 1.72)
	pt3dadd(79.06, -57.97, -25, 0.94)
	pt3dadd(77.66, -57.97, -25, 0.94)
	pt3dadd(75.78, -57.81, -25, 0.94)
	pt3dadd(74.53, -57.03, -25, 0.94)
	pt3dadd(73.44, -56.88, -25, 0.94)
  }
  dend[233] {pt3dclear()
	pt3dadd(80.16, -57.34, -26, 1.72)
	pt3dadd(82.34, -58.91, -26, 1.72)
	pt3dadd(84.84, -60.78, -26, 1.72)
	pt3dadd(87.19, -62.5, -26, 1.72)
  }
  dend[234] {pt3dclear()
	pt3dadd(87.19, -62.5, -26, 1.72)
	pt3dadd(87.03, -63.75, -26, 1.09)
	pt3dadd(87.34, -65.78, -26, 1.09)
	pt3dadd(87.66, -67.19, -26, 1.09)
	pt3dadd(87.81, -67.81, -26, 1.09)
  }
  dend[235] {pt3dclear()
	pt3dadd(87.81, -67.81, -26, 1.09)
	pt3dadd(88.75, -69.38, -25, 1.09)
	pt3dadd(89.69, -71.09, -25, 1.09)
  }
  dend[236] {pt3dclear()
	pt3dadd(89.69, -71.09, -25, 1.09)
	pt3dadd(92.66, -74.69, -27.5, 1.09)
  }
  dend[237] {pt3dclear()
	pt3dadd(92.66, -74.69, -27.5, 1.09)
	pt3dadd(94.69, -76.25, -28.5, 0.78)
	pt3dadd(95.78, -77.5, -28.5, 0.78)
  }
  dend[238] {pt3dclear()
	pt3dadd(95.78, -77.5, -28.5, 0.78)
	pt3dadd(97.19, -79.53, -27.5, 0.78)
	pt3dadd(98.44, -80.94, -27.5, 0.78)
	pt3dadd(99.38, -83.28, -27.5, 0.78)
	pt3dadd(99.69, -84.69, -27.5, 0.78)
  }
  dend[239] {pt3dclear()
	pt3dadd(95.78, -77.5, -28.5, 0.78)
	pt3dadd(95.63, -79.06, -28.5, 1.09)
	pt3dadd(95.94, -81.56, -28.5, 1.09)
	pt3dadd(96.56, -83.13, -28.5, 1.09)
	pt3dadd(97.34, -84.38, -28.5, 1.09)
	pt3dadd(97.81, -84.84, -28.5, 1.09)
  }
  dend[240] {pt3dclear()
	pt3dadd(92.66, -74.69, -27.5, 1.09)
	pt3dadd(91.72, -76.88, -27.5, 1.09)
	pt3dadd(91.41, -78.59, -27.5, 1.09)
	pt3dadd(91.41, -80.16, -27.5, 1.09)
  }
  dend[241] {pt3dclear()
	pt3dadd(89.69, -71.09, -25, 1.09)
	pt3dadd(88.28, -72.34, -25, 1.09)
	pt3dadd(86.88, -75.31, -25, 1.09)
	pt3dadd(86.41, -77.03, -25, 1.09)
  }
  dend[242] {pt3dclear()
	pt3dadd(86.41, -77.03, -25, 1.09)
	pt3dadd(87.5, -79.84, -25.5, 1.09)
	pt3dadd(90, -80.94, -25.5, 1.09)
  }
  dend[243] {pt3dclear()
	pt3dadd(86.41, -77.03, -25, 1.09)
	pt3dadd(84.53, -77.5, -25, 1.09)
	pt3dadd(83.28, -78.75, -25, 1.09)
	pt3dadd(83.28, -79.38, -25, 1.09)
  }
  dend[244] {pt3dclear()
	pt3dadd(87.81, -67.81, -26, 1.09)
	pt3dadd(85.94, -68.91, -26, 1.09)
	pt3dadd(83.13, -70.63, -26, 1.09)
	pt3dadd(82.66, -72.34, -26, 1.09)
	pt3dadd(82.5, -74.06, -26, 1.09)
	pt3dadd(82.81, -75.94, -26, 1.09)
  }
  dend[245] {pt3dclear()
	pt3dadd(87.19, -62.5, -26, 1.72)
	pt3dadd(88.44, -63.59, -26, 1.72)
	pt3dadd(91.56, -65.47, -26, 1.72)
  }
  dend[246] {pt3dclear()
	pt3dadd(91.56, -65.47, -26, 1.72)
	pt3dadd(94.53, -65.47, -27, 1.25)
	pt3dadd(97.19, -64.84, -27, 1.25)
	pt3dadd(98.28, -64.69, -27, 1.25)
  }
  dend[247] {pt3dclear()
	pt3dadd(98.28, -64.69, -27, 1.25)
	pt3dadd(97.19, -62.19, -27.5, 1.25)
	pt3dadd(94.69, -60.78, -27.5, 1.25)
  }
  dend[248] {pt3dclear()
	pt3dadd(98.28, -64.69, -27, 1.25)
	pt3dadd(99.98, -66.52, -27, 1.25)
  }
  dend[249] {pt3dclear()
	pt3dadd(99.98, -66.52, -27, 1.25)
	pt3dadd(102.3, -63.13, -29, 1.25)
	pt3dadd(104.8, -61.41, -29, 1.25)
	pt3dadd(107.7, -58.28, -29, 1.25)
  }
  dend[250] {pt3dclear()
	pt3dadd(107.7, -58.28, -29, 1.25)
	pt3dadd(109.7, -56.25, -26, 1.25)
  }
  dend[251] {pt3dclear()
	pt3dadd(107.7, -58.28, -29, 1.25)
	pt3dadd(107, -56.41, -29, 1.25)
	pt3dadd(106.6, -54.38, -29, 1.25)
	pt3dadd(106.9, -52.97, -29, 1.25)
  }
  dend[252] {pt3dclear()
	pt3dadd(99.98, -66.52, -27, 1.25)
	pt3dadd(100.2, -66.72, -27, 1.25)
	pt3dadd(101.6, -67.81, -27, 1.25)
  }
  dend[253] {pt3dclear()
	pt3dadd(101.6, -67.81, -27, 1.25)
	pt3dadd(104.4, -69.06, -28.5, 1.25)
	pt3dadd(107.3, -70, -28.5, 1.25)
  }
  dend[254] {pt3dclear()
	pt3dadd(107.3, -70, -28.5, 1.25)
	pt3dadd(111.1, -71.72, -29, 1.25)
  }
  dend[255] {pt3dclear()
	pt3dadd(107.3, -70, -28.5, 1.25)
	pt3dadd(109.4, -69.06, -28.5, 1.25)
	pt3dadd(111.1, -67.19, -28.5, 1.25)
	pt3dadd(111.4, -66.72, -28.5, 1.25)
  }
  dend[256] {pt3dclear()
	pt3dadd(101.6, -67.81, -27, 1.25)
	pt3dadd(104.1, -67.19, -27, 1.25)
	pt3dadd(106.6, -65.31, -27, 1.25)
  }
  dend[257] {pt3dclear()
	pt3dadd(91.56, -65.47, -26, 1.72)
	pt3dadd(93.12, -66.72, -28.5, 1.72)
	pt3dadd(94.69, -68.13, -28.5, 1.72)
  }
  dend[258] {pt3dclear()
	pt3dadd(94.69, -68.13, -28.5, 1.72)
	pt3dadd(94.84, -71.09, -29, 0.78)
	pt3dadd(95.31, -73.28, -29, 0.78)
	pt3dadd(96.25, -75.16, -29, 0.78)
	pt3dadd(97.34, -76.72, -29, 0.78)
	pt3dadd(99.84, -80.31, -29, 0.78)
	pt3dadd(101.7, -82.34, -29, 0.78)
	pt3dadd(102.3, -82.97, -29, 0.78)
  }
  dend[259] {pt3dclear()
	pt3dadd(102.3, -82.97, -29, 0.78)
	pt3dadd(104.5, -84.22, -28, 0.78)
	pt3dadd(106.9, -85.78, -28, 0.78)
	pt3dadd(108.4, -87.66, -28, 0.78)
	pt3dadd(110.2, -90.16, -28, 0.78)
	pt3dadd(111.9, -91.72, -28, 0.78)
	pt3dadd(113.3, -93.13, -30, 0.78)
  }
}
proc shape3d_7() {
  dend[259] {  }
  dend[260] {pt3dclear()
	pt3dadd(102.3, -82.97, -29, 0.78)
	pt3dadd(102.5, -84.84, -29, 0.78)
	pt3dadd(103.3, -87.03, -29, 0.78)
	pt3dadd(103.4, -89.22, -29, 0.78)
	pt3dadd(103.8, -90, -29, 0.78)
  }
  dend[261] {pt3dclear()
	pt3dadd(94.69, -68.13, -28.5, 1.72)
	pt3dadd(96.09, -69.38, -28.5, 1.72)
	pt3dadd(97.97, -71.25, -28.5, 1.72)
  }
  dend[262] {pt3dclear()
	pt3dadd(97.97, -71.25, -28.5, 1.72)
	pt3dadd(102.3, -72.34, -30, 1.09)
	pt3dadd(104.7, -72.97, -30, 1.09)
	pt3dadd(107, -73.75, -30, 1.09)
	pt3dadd(109.5, -74.38, -30, 1.09)
	pt3dadd(111.6, -74.38, -30, 1.09)
	pt3dadd(113, -75.16, -30, 1.09)
	pt3dadd(114.7, -75.78, -30, 1.09)
  }
  dend[263] {pt3dclear()
	pt3dadd(97.97, -71.25, -28.5, 1.72)
	pt3dadd(99.69, -72.97, -28.5, 1.72)
	pt3dadd(101.4, -74.84, -28.5, 1.72)
	pt3dadd(103.3, -78.13, -28.5, 1.72)
	pt3dadd(106.1, -81.2, -30.5, 1.72)
	pt3dadd(109.2, -84.65, -30.5, 1.72)
	pt3dadd(112.8, -87.15, -30.5, 1.72)
	pt3dadd(115, -89.96, -30.5, 1.72)
  }
  dend[264] {pt3dclear()
	pt3dadd(115, -89.96, -30.5, 1.72)
	pt3dadd(115.6, -91.09, -30.5, 1.72)
  }
  dend[265] {pt3dclear()
	pt3dadd(115.6, -91.09, -30.5, 1.72)
	pt3dadd(115.6, -92.81, -31.5, 1.09)
	pt3dadd(115.8, -95.16, -31.5, 1.09)
	pt3dadd(115.8, -97.5, -31.5, 1.09)
	pt3dadd(116.3, -100.2, -31.5, 1.09)
	pt3dadd(117.7, -102.7, -31.5, 1.09)
	pt3dadd(118.9, -105.3, -31.5, 1.09)
  }
  dend[266] {pt3dclear()
	pt3dadd(118.9, -105.3, -31.5, 1.09)
	pt3dadd(122.5, -104.8, -33, 1.09)
  }
  dend[267] {pt3dclear()
	pt3dadd(118.9, -105.3, -31.5, 1.09)
	pt3dadd(120.9, -108.6, -31.5, 1.09)
  }
  dend[268] {pt3dclear()
	pt3dadd(120.9, -108.6, -31.5, 1.09)
	pt3dadd(122.3, -110.1, -32.5, 1.09)
	pt3dadd(123.6, -112.6, -32.5, 1.09)
	pt3dadd(125.6, -115.7, -32.5, 1.09)
	pt3dadd(127.8, -117.8, -33.5, 1.09)
	pt3dadd(129.5, -120.6, -33.5, 1.09)
	pt3dadd(129.5, -123.4, -33.5, 1.09)
  }
  dend[269] {pt3dclear()
	pt3dadd(120.9, -108.6, -31.5, 1.09)
	pt3dadd(121.1, -110.3, -32.5, 1.09)
	pt3dadd(121.4, -112, -32.5, 1.09)
	pt3dadd(122.5, -115.1, -32.5, 1.09)
	pt3dadd(124.1, -118.4, -32.5, 1.09)
	pt3dadd(125.6, -121.7, -32.5, 1.09)
  }
  dend[270] {pt3dclear()
	pt3dadd(125.6, -121.7, -32.5, 1.09)
	pt3dadd(127.3, -122.6, -33.5, 1.09)
	pt3dadd(128.6, -124.8, -33.5, 1.09)
	pt3dadd(130.3, -127.3, -33.5, 1.09)
	pt3dadd(132.69, -128.69, -33.5, 1.09)
	pt3dadd(134.5, -130.3, -33.5, 1.09)
	pt3dadd(135.5, -131.4, -33.5, 1.09)
  }
  dend[271] {pt3dclear()
	pt3dadd(125.6, -121.7, -32.5, 1.09)
	pt3dadd(126.4, -123.6, -32.5, 1.09)
	pt3dadd(126.9, -125.4, -32.5, 1.09)
	pt3dadd(128.1, -128.19, -32.5, 1.09)
  }
  dend[272] {pt3dclear()
	pt3dadd(115.6, -91.09, -30.5, 1.72)
	pt3dadd(118.4, -94.18, -30.5, 1.72)
	pt3dadd(122.3, -97.77, -30.5, 1.72)
	pt3dadd(123.8, -99.49, -30.5, 1.72)
	pt3dadd(124.2, -100, -30.5, 1.09)
  }
  dend[273] {pt3dclear()
	pt3dadd(124.2, -100, -30.5, 1.09)
	pt3dadd(125.3, -101.9, -30.5, 0.94)
	pt3dadd(127.8, -104.4, -30.5, 0.94)
	pt3dadd(130.6, -106.9, -30.5, 0.94)
	pt3dadd(132.8, -110, -30.5, 0.94)
  }
  dend[274] {pt3dclear()
	pt3dadd(132.8, -110, -30.5, 0.94)
	pt3dadd(133.19, -110, -30.5, 0.78)
	pt3dadd(134.1, -109.6, -30.5, 0.78)
  }
  dend[275] {pt3dclear()
	pt3dadd(134.1, -109.6, -30.5, 0.78)
	pt3dadd(135.3, -111.3, -33.5, 0.51)
	pt3dadd(135.6, -111.9, -33.5, 0.51)
	pt3dadd(136.3, -113.5, -33.5, 0.51)
	pt3dadd(137, -114.9, -33.5, 0.51)
	pt3dadd(137.69, -116.3, -33.5, 0.51)
	pt3dadd(138.5, -117, -33.5, 0.51)
  }
  dend[276] {pt3dclear()
	pt3dadd(138.5, -117, -33.5, 0.51)
	pt3dadd(138.69, -117.7, -33.5, 0.51)
	pt3dadd(139, -118.8, -33.5, 0.51)
	pt3dadd(139.5, -120.1, -33.5, 0.51)
	pt3dadd(140.19, -121.1, -33.5, 0.51)
	pt3dadd(140.5, -121.6, -33.5, 0.51)
  }
  dend[277] {pt3dclear()
	pt3dadd(138.5, -117, -33.5, 0.51)
	pt3dadd(139.4, -117.1, -33.5, 0.51)
	pt3dadd(140.1, -117.6, -33.5, 0.51)
	pt3dadd(140.8, -118.1, -33.5, 0.51)
	pt3dadd(141.6, -118.8, -33.5, 0.51)
	pt3dadd(142.19, -119.7, -33.5, 0.51)
	pt3dadd(142.5, -120.6, -33.5, 0.51)
	pt3dadd(142.8, -121.3, -33.5, 0.51)
	pt3dadd(143.5, -122.6, -33.5, 0.51)
	pt3dadd(143.6, -123.3, -33.5, 0.51)
	pt3dadd(143.8, -124.2, -33.5, 0.51)
	pt3dadd(144.69, -125.1, -33.5, 0.51)
	pt3dadd(144.9, -125.7, -33.5, 0.51)
  }
  dend[278] {pt3dclear()
	pt3dadd(134.1, -109.6, -30.5, 0.78)
	pt3dadd(135.3, -109.5, -30.5, 0.78)
	pt3dadd(135.6, -109.2, -30.5, 0.78)
  }
  dend[279] {pt3dclear()
	pt3dadd(135.6, -109.2, -30.5, 0.78)
	pt3dadd(136.3, -109.5, -33.5, 0.51)
	pt3dadd(137.3, -109.6, -33.5, 0.51)
	pt3dadd(138.6, -109.8, -33.5, 0.51)
	pt3dadd(140, -109.9, -33.5, 0.51)
	pt3dadd(141.1, -110.1, -33.5, 0.51)
	pt3dadd(142.5, -110.3, -33.5, 0.51)
	pt3dadd(144.3, -110.3, -33.5, 0.51)
	pt3dadd(146.19, -110.2, -33.5, 0.51)
	pt3dadd(147.19, -110, -33.5, 0.51)
	pt3dadd(148.19, -109.5, -33.5, 0.51)
	pt3dadd(148.9, -108.3, -33.5, 0.51)
	pt3dadd(148.9, -107.6, -33.5, 0.51)
	pt3dadd(148.8, -107, -33.5, 0.51)
  }
  dend[280] {pt3dclear()
	pt3dadd(135.6, -109.2, -30.5, 0.78)
	pt3dadd(137.19, -107.8, -30.5, 0.78)
	pt3dadd(139.1, -106.7, -30.5, 0.78)
	pt3dadd(141.8, -106.9, -30, 0.78)
	pt3dadd(144.3, -107.3, -30, 0.78)
	pt3dadd(147.4, -108.3, -29, 0.78)
	pt3dadd(150, -108.6, -29, 0.78)
	pt3dadd(151.8, -109.2, -29, 1.25)
  }
  dend[281] {pt3dclear()
	pt3dadd(151.8, -109.2, -29, 1.25)
	pt3dadd(153.9, -110.3, -29, 0.78)
	pt3dadd(156.8, -110, -29, 0.78)
	pt3dadd(158.6, -111.3, -29, 0.78)
  }
  dend[282] {pt3dclear()
	pt3dadd(158.6, -111.3, -29, 0.78)
	pt3dadd(159.6, -112.8, -29, 0.78)
	pt3dadd(160.3, -114.5, -29, 0.78)
  }
  dend[283] {pt3dclear()
	pt3dadd(158.6, -111.3, -29, 0.78)
	pt3dadd(160.69, -110.5, -30, 0.78)
	pt3dadd(162.5, -110, -30, 0.78)
	pt3dadd(163.8, -109.8, -30, 0.78)
  }
  dend[284] {pt3dclear()
	pt3dadd(151.8, -109.2, -29, 1.25)
	pt3dadd(153.4, -108.4, -29, 0.94)
  }
  dend[285] {pt3dclear()
	pt3dadd(153.4, -108.4, -29, 0.94)
	pt3dadd(152.1, -111.4, -29, 0.78)
	pt3dadd(152.8, -113.8, -29, 0.78)
	pt3dadd(153.19, -116.3, -29, 0.78)
	pt3dadd(153, -118.9, -29, 0.78)
	pt3dadd(152.8, -121.6, -29, 0.78)
  }
  dend[286] {pt3dclear()
	pt3dadd(153.4, -108.4, -29, 0.94)
	pt3dadd(154.9, -107.7, -29, 0.94)
	pt3dadd(157.19, -106.3, -29, 0.94)
	pt3dadd(159.1, -105.2, -28.5, 0.94)
	pt3dadd(161.3, -103.9, -28.5, 0.94)
	pt3dadd(163.6, -102.8, -28.5, 0.94)
	pt3dadd(165.8, -103.3, -28.5, 0.94)
	pt3dadd(168.9, -104.2, -28.5, 0.94)
  }
  dend[287] {pt3dclear()
	pt3dadd(132.8, -110, -30.5, 0.94)
	pt3dadd(133.1, -110.4, -30.5, 0.94)
	pt3dadd(133.8, -112.3, -30.5, 0.94)
	pt3dadd(133.8, -116.3, -30.5, 0.94)
	pt3dadd(133.8, -119.2, -30.5, 0.94)
	pt3dadd(133.8, -120.5, -30.5, 0.94)
  }
  dend[288] {pt3dclear()
	pt3dadd(133.8, -120.5, -30.5, 0.94)
	pt3dadd(135.5, -121.9, -32, 0.94)
  }
  dend[289] {pt3dclear()
	pt3dadd(135.5, -121.9, -32, 0.94)
	pt3dadd(136.9, -125.3, -32, 0.94)
	pt3dadd(138, -127.7, -32, 0.94)
	pt3dadd(139.5, -130.5, -32, 0.94)
	pt3dadd(140.3, -131.4, -32, 0.94)
  }
  dend[290] {pt3dclear()
	pt3dadd(135.5, -121.9, -32, 0.94)
	pt3dadd(134.19, -120.1, -31.97, 1.09)
	pt3dadd(133, -118.3, -31.94, 1.09)
	pt3dadd(138.1, -123.3, -32, 0.94)
	pt3dadd(138.9, -124.8, -32, 0.94)
	pt3dadd(139.69, -126.7, -32, 0.94)
	pt3dadd(140.5, -128.4, -32, 0.94)
	pt3dadd(141.4, -129.69, -32, 0.94)
  }
  dend[291] {pt3dclear()
	pt3dadd(133.8, -120.5, -30.5, 0.94)
	pt3dadd(133.4, -122.2, -30.5, 0.94)
	pt3dadd(133.3, -123.6, -30.5, 0.94)
	pt3dadd(133.4, -125.2, -30.5, 0.94)
  }
  dend[292] {pt3dclear()
	pt3dadd(124.2, -100, -30.5, 1.09)
	pt3dadd(125.6, -100.2, -30.5, 1.09)
	pt3dadd(125.8, -100.3, -31.5, 0.158)
	pt3dadd(126.5, -100.5, -31.5, 0.158)
	pt3dadd(128.8, -102, -31.5, 0.158)
	pt3dadd(131, -102.5, -31.5, 0.158)
  }
  dend[293] {pt3dclear()
	pt3dadd(131, -102.5, -31.5, 0.158)
	pt3dadd(134.1, -103.5, -29.5, 0.158)
	pt3dadd(136, -103.3, -29.5, 0.158)
	pt3dadd(139.1, -103.8, -29.5, 0.158)
  }
  dend[294] {pt3dclear()
	pt3dadd(139.1, -103.8, -29.5, 0.158)
	pt3dadd(142.1, -104.4, -28, 0.158)
	pt3dadd(145.4, -105.2, -28, 0.158)
	pt3dadd(147.9, -104.9, -28, 0.158)
	pt3dadd(149.8, -104.6, -28, 0.158)
  }
  dend[295] {pt3dclear()
	pt3dadd(149.8, -104.6, -28, 0.158)
	pt3dadd(151.6, -102.8, -27.5, 0.158)
	pt3dadd(152.1, -101.6, -27.5, 0.158)
	pt3dadd(154, -100, -27.5, 0.158)
	pt3dadd(155.9, -99.57, -27.5, 0.158)
	pt3dadd(151.5, -99.88, -27.5, 0.158)
	pt3dadd(150.6, -98.63, -27.5, 0.158)
	pt3dadd(149, -97.07, -27.5, 0.158)
  }
}
proc shape3d_8() {
  dend[295] {	pt3dadd(146.9, -96.45, -27.5, 0.158)
  }
  dend[296] {pt3dclear()
	pt3dadd(149.8, -104.6, -28, 0.158)
	pt3dadd(151.6, -105.5, -28, 0.158)
	pt3dadd(154.1, -105.5, -28, 0.158)
	pt3dadd(156, -105.7, -28, 0.158)
	pt3dadd(158.19, -104.7, -28, 0.158)
	pt3dadd(158.69, -103.5, -28.5, 0.158)
	pt3dadd(156.6, -102.1, -28.5, 0.158)
	pt3dadd(155.69, -101.1, -28.5, 0.158)
  }
  dend[297] {pt3dclear()
	pt3dadd(139.1, -103.8, -29.5, 0.158)
	pt3dadd(140.1, -106, -29, 0.158)
  }
  dend[298] {pt3dclear()
	pt3dadd(131, -102.5, -31.5, 0.158)
	pt3dadd(131.19, -102.7, -31.5, 0.158)
	pt3dadd(132.69, -103.6, -31, 1.56)
	pt3dadd(134.1, -106.3, -31, 0.78)
	pt3dadd(135.8, -108.6, -31, 0.78)
	pt3dadd(138.3, -111.4, -31, 0.78)
	pt3dadd(141, -113.4, -31.5, 1.25)
  }
  dend[299] {pt3dclear()
	pt3dadd(141, -113.4, -31.5, 1.25)
	pt3dadd(143.8, -113.8, -31.5, 1.09)
	pt3dadd(146.4, -114.2, -31.5, 1.09)
	pt3dadd(148, -114.1, -31.5, 1.09)
  }
  dend[300] {pt3dclear()
	pt3dadd(148, -114.1, -31.5, 1.09)
	pt3dadd(150.19, -113.4, -31.5, 0.78)
	pt3dadd(152.4, -112.8, -31.5, 0.78)
	pt3dadd(154.69, -112.8, -31.5, 0.78)
	pt3dadd(156.8, -113.3, -31.5, 0.78)
	pt3dadd(158.3, -115, -31.5, 0.78)
	pt3dadd(158.9, -116.3, -31.5, 0.78)
  }
  dend[301] {pt3dclear()
	pt3dadd(148, -114.1, -31.5, 1.09)
	pt3dadd(148.9, -116.7, -31.5, 1.09)
	pt3dadd(149.3, -119.2, -31.5, 0.78)
	pt3dadd(149.6, -121.4, -31.5, 0.78)
	pt3dadd(150.5, -122.8, -32, 0.78)
	pt3dadd(151.6, -123.9, -32, 0.78)
  }
  dend[302] {pt3dclear()
	pt3dadd(141, -113.4, -31.5, 1.25)
	pt3dadd(142.69, -116.4, -31.5, 1.25)
	pt3dadd(144.3, -118.3, -32.5, 1.25)
	pt3dadd(144.69, -120, -32.5, 1.25)
	pt3dadd(145.5, -121.9, -32.5, 1.25)
	pt3dadd(146, -123.9, -33.5, 1.25)
	pt3dadd(146.4, -125.8, -33.5, 1.25)
  }
  dend[303] {pt3dclear()
	pt3dadd(115, -89.96, -30.5, 1.72)
	pt3dadd(116.9, -90.94, -31.5, 0.94)
	pt3dadd(118.1, -90.78, -31.5, 0.94)
	pt3dadd(121.1, -91.09, -31.5, 0.94)
	pt3dadd(123.4, -92.97, -31.5, 0.94)
	pt3dadd(125.6, -94.06, -32, 0.94)
  }
  dend[304] {pt3dclear()
	pt3dadd(125.6, -94.06, -32, 0.94)
	pt3dadd(126.3, -96.56, -32.5, 0.94)
	pt3dadd(127.7, -97.97, -32.5, 0.94)
	pt3dadd(130.19, -99.06, -32.5, 0.94)
	pt3dadd(133.3, -100.5, -32.5, 0.94)
	pt3dadd(135.5, -100.3, -32.5, 0.94)
  }
  dend[305] {pt3dclear()
	pt3dadd(125.6, -94.06, -32, 0.94)
	pt3dadd(127.5, -94.06, -31.67, 0.94)
  }
  dend[306] {pt3dclear()
	pt3dadd(127.5, -94.06, -31.67, 0.94)
	pt3dadd(128.6, -95.63, -31.5, 0.94)
	pt3dadd(131.69, -95.78, -31.5, 0.94)
	pt3dadd(135, -96.88, -31.5, 0.94)
	pt3dadd(137.3, -97.97, -31.5, 0.94)
	pt3dadd(139.5, -98.94, -31.5, 0.94)
	pt3dadd(140, -99.12, -31.5, 0.94)
  }
  dend[307] {pt3dclear()
	pt3dadd(140, -99.12, -31.5, 0.94)
	pt3dadd(141.5, -99, -29.5, 0.63)
	pt3dadd(143.6, -99.04, -29.5, 0.63)
	pt3dadd(145, -98.85, -29.5, 0.63)
  }
  dend[308] {pt3dclear()
	pt3dadd(145, -98.85, -29.5, 0.63)
	pt3dadd(146, -99.47, -29.5, 0.59)
	pt3dadd(146.69, -99.59, -29.5, 0.59)
	pt3dadd(147.19, -99.71, -29.5, 0.59)
  }
  dend[309] {pt3dclear()
	pt3dadd(145, -98.85, -29.5, 0.63)
	pt3dadd(145.69, -98.11, -29.5, 0.55)
	pt3dadd(146.5, -97.83, -29.5, 0.55)
  }
  dend[310] {pt3dclear()
	pt3dadd(140, -99.12, -31.5, 0.94)
	pt3dadd(143.8, -101.3, -31, 0.94)
  }
  dend[311] {pt3dclear()
	pt3dadd(127.5, -94.06, -31.67, 0.94)
	pt3dadd(128.4, -94.06, -31.5, 0.94)
	pt3dadd(129.5, -91.88, -31.5, 0.94)
	pt3dadd(129.5, -89.53, -31.5, 0.94)
	pt3dadd(128.6, -86.56, -31.5, 0.94)
	pt3dadd(127, -84.22, -31.5, 0.94)
	pt3dadd(125.8, -82.66, -31.5, 0.94)
  }
  dend[312] {pt3dclear()
	pt3dadd(22.97, -24.38, -17.5, 3.59)
	pt3dadd(22.5, -28.91, -18.5, 2.81)
	pt3dadd(22.34, -29.06, -18.5, 2.81)
	pt3dadd(22.34, -33.28, -18.5, 2.81)
	pt3dadd(22.19, -33.44, -18.5, 2.81)
	pt3dadd(22.5, -35.78, -18.5, 2.03)
	pt3dadd(22.34, -37.5, -18.5, 2.03)
  }
  dend[313] {pt3dclear()
	pt3dadd(22.34, -37.5, -18.5, 2.03)
	pt3dadd(25, -38.9, -16.5, 1.09)
	pt3dadd(25.94, -39.53, -16.5, 1.09)
	pt3dadd(27.5, -40.63, -16.5, 1.09)
	pt3dadd(27.81, -41.09, -16.5, 1.09)
  }
  dend[314] {pt3dclear()
	pt3dadd(27.81, -41.09, -16.5, 1.09)
	pt3dadd(27.97, -42.45, -24.5, 1.09)
	pt3dadd(28.28, -43.78, -24.5, 1.09)
	pt3dadd(29.53, -45.58, -24.5, 1.09)
	pt3dadd(30.47, -47.29, -24.5, 1.09)
	pt3dadd(31.09, -48.31, -24.5, 1.09)
	pt3dadd(31.41, -49.33, -24.5, 1.09)
	pt3dadd(31.41, -49.79, -24.5, 1.09)
  }
  dend[315] {pt3dclear()
	pt3dadd(27.81, -41.09, -16.5, 1.09)
	pt3dadd(30.16, -41.09, -16.5, 1.09)
	pt3dadd(30.94, -41.56, -16.5, 1.09)
  }
  dend[316] {pt3dclear()
	pt3dadd(30.94, -41.56, -16.5, 1.09)
	pt3dadd(31.56, -41.41, -21.5, 1.09)
	pt3dadd(34.06, -40.15, -21.5, 1.09)
	pt3dadd(36.4, -38.9, -21.5, 1.09)
  }
  dend[317] {pt3dclear()
	pt3dadd(36.4, -38.9, -21.5, 1.09)
	pt3dadd(39.22, -39.22, -21.5, 1.09)
	pt3dadd(42.03, -39.06, -21.5, 1.09)
  }
  dend[318] {pt3dclear()
	pt3dadd(36.4, -38.9, -21.5, 1.09)
	pt3dadd(36.97, -36.81, -21.5, 1.09)
  }
  dend[319] {pt3dclear()
	pt3dadd(36.97, -36.81, -21.5, 1.09)
	pt3dadd(37.65, -40.78, -22, 1.09)
	pt3dadd(39.84, -42.81, -22, 1.09)
  }
  dend[320] {pt3dclear()
	pt3dadd(36.97, -36.81, -21.5, 1.09)
	pt3dadd(36.88, -37.19, -21.5, 1.09)
	pt3dadd(37.5, -34.69, -21.5, 1.09)
	pt3dadd(37.03, -32.5, -20.5, 1.09)
  }
  dend[321] {pt3dclear()
	pt3dadd(37.03, -32.5, -20.5, 1.09)
	pt3dadd(36.09, -30.31, -19, 1.09)
	pt3dadd(33.75, -28.59, -19, 1.09)
  }
  dend[322] {pt3dclear()
	pt3dadd(33.75, -28.59, -19, 1.09)
	pt3dadd(32.65, -29.06, -19, 1.09)
	pt3dadd(31.41, -30, -19, 1.09)
	pt3dadd(28.91, -29.22, -19, 1.09)
	pt3dadd(27.19, -28.75, -19, 1.09)
  }
  dend[323] {pt3dclear()
	pt3dadd(33.75, -28.59, -19, 1.09)
	pt3dadd(31.72, -28.13, -19, 1.09)
	pt3dadd(29.53, -27.97, -19, 1.09)
	pt3dadd(27.81, -27.03, -19, 1.09)
	pt3dadd(27.66, -25.47, -19, 1.09)
  }
  dend[324] {pt3dclear()
	pt3dadd(37.03, -32.5, -20.5, 1.09)
	pt3dadd(38.44, -30.47, -20.5, 1.09)
	pt3dadd(38.28, -28.13, -20, 1.09)
	pt3dadd(36.4, -26.72, -19.5, 1.09)
	pt3dadd(34.84, -25.78, -19.5, 1.09)
  }
  dend[325] {pt3dclear()
	pt3dadd(30.94, -41.56, -16.5, 1.09)
	pt3dadd(32.81, -43.13, -16.5, 1.09)
	pt3dadd(33.28, -44.06, -16.5, 1.09)
  }
  dend[326] {pt3dclear()
	pt3dadd(33.28, -44.06, -16.5, 1.09)
	pt3dadd(35.47, -44.69, -16.5, 1.09)
	pt3dadd(38.13, -46.09, -16.5, 1.09)
	pt3dadd(40, -48.44, -16.5, 1.09)
	pt3dadd(41.56, -50.94, -16.5, 1.09)
	pt3dadd(42.34, -53.28, -16.5, 1.09)
	pt3dadd(42.66, -54.84, -16.5, 1.09)
  }
  dend[327] {pt3dclear()
	pt3dadd(33.28, -44.06, -16.5, 1.09)
	pt3dadd(33.9, -45.78, -16.5, 1.09)
	pt3dadd(34.84, -47.19, -16.5, 1.09)
	pt3dadd(35.63, -49.06, -16.5, 1.09)
	pt3dadd(36.09, -50.31, -16.5, 1.09)
	pt3dadd(36.09, -51.88, -16.5, 1.09)
	pt3dadd(35.15, -53.13, -16.5, 1.09)
	pt3dadd(34.22, -54.22, -16.5, 1.09)
  }
  dend[328] {pt3dclear()
	pt3dadd(22.34, -37.5, -18.5, 2.03)
	pt3dadd(22.34, -38.9, -18.5, 2.03)
	pt3dadd(22.5, -39.84, -18.5, 2.03)
  }
  dend[329] {pt3dclear()
	pt3dadd(22.5, -39.84, -18.5, 2.03)
	pt3dadd(20.78, -39.92, -19.5, 1.25)
	pt3dadd(19.38, -39.45, -19.5, 1.25)
	pt3dadd(19.22, -39.61, -19.5, 1.25)
	pt3dadd(17.03, -39.14, -19.5, 1.25)
	pt3dadd(17.03, -39.29, -19.5, 1.25)
	pt3dadd(13.75, -38.52, -19.5, 1.25)
  }
  dend[330] {pt3dclear()
	pt3dadd(13.75, -38.52, -19.5, 1.25)
	pt3dadd(13.75, -41.33, -19.5, 1.09)
	pt3dadd(13.59, -41.48, -19.5, 1.09)
	pt3dadd(13.43, -44.14, -19, 1.09)
	pt3dadd(13.91, -45.94, -19, 1.09)
  }
  dend[331] {pt3dclear()
	pt3dadd(13.91, -45.94, -19, 1.09)
	pt3dadd(15.94, -47.03, -19.5, 1.09)
	pt3dadd(16.88, -48.28, -19.5, 1.09)
	pt3dadd(17.5, -50.16, -19.5, 1.09)
  }
  dend[332] {pt3dclear()
	pt3dadd(13.91, -45.94, -19, 1.09)
	pt3dadd(13.75, -48.75, -19, 1.09)
	pt3dadd(14.06, -50.94, -19, 1.09)
	pt3dadd(14.22, -52.81, -19, 1.09)
	pt3dadd(15.78, -54.84, -19, 1.09)
  }
  dend[333] {pt3dclear()
	pt3dadd(13.75, -38.52, -19.5, 1.25)
	pt3dadd(12.5, -37.11, -18.5, 1.25)
  }
  dend[334] {pt3dclear()
	pt3dadd(12.5, -37.11, -18.5, 1.25)
	pt3dadd(10.94, -37.58, -18.5, 1.09)
	pt3dadd(10.63, -37.72, -18.5, 1.09)
	pt3dadd(9.06, -37.89, -18.5, 1.09)
	pt3dadd(8.91, -38.04, -18.5, 1.09)
	pt3dadd(6.56, -38.2, -18.5, 1.09)
	pt3dadd(3.91, -38.97, -18, 1.09)
  }
  dend[335] {pt3dclear()
	pt3dadd(12.5, -37.11, -18.5, 1.25)
	pt3dadd(10.41, -35.22, -18.5, 1.41)
  }
  dend[336] {pt3dclear()
	pt3dadd(10.41, -35.22, -18.5, 1.41)
	pt3dadd(14.06, -35.7, -18.5, 1.41)
  }
  dend[337] {pt3dclear()
	pt3dadd(14.06, -35.7, -18.5, 1.41)
	pt3dadd(16.25, -34.77, -18.5, 1.41)
  }
  dend[338] {pt3dclear()
	pt3dadd(16.25, -34.77, -18.5, 1.41)
	pt3dadd(19.84, -38.83, -18.5, 1.09)
  }
  dend[339] {pt3dclear()
	pt3dadd(16.25, -34.77, -18.5, 1.41)
  }
}
proc shape3d_9() {
  dend[339] {	pt3dadd(17.03, -32.72, -18.5, 1.09)
	pt3dadd(19.53, -34.92, -18.5, 1.09)
	pt3dadd(19.38, -34.92, -18.5, 1.09)
  }
  dend[340] {pt3dclear()
	pt3dadd(14.06, -35.7, -18.5, 1.41)
	pt3dadd(13.13, -33.83, -18.5, 1.41)
  }
  dend[341] {pt3dclear()
	pt3dadd(13.13, -33.83, -18.5, 1.41)
	pt3dadd(10.63, -32.58, -18, 1.41)
	pt3dadd(10.47, -32.58, -18, 1.41)
	pt3dadd(9.22, -31.02, -18, 1.41)
	pt3dadd(7.97, -29.45, -18, 1.41)
	pt3dadd(7.34, -27.11, -18, 1.41)
  }
  dend[342] {pt3dclear()
	pt3dadd(13.13, -33.83, -18.5, 1.41)
	pt3dadd(13.59, -31.02, -18.5, 1.41)
	pt3dadd(12.34, -28.83, -18.5, 1.41)
	pt3dadd(11.72, -26.8, -18.5, 1.41)
	pt3dadd(11.56, -26.8, -18.5, 1.41)
	pt3dadd(9.69, -24.61, -18.5, 1.41)
	pt3dadd(9.06, -23.67, -18, 1.41)
	pt3dadd(9.06, -23.83, -18, 1.41)
  }
  dend[343] {pt3dclear()
	pt3dadd(9.06, -23.83, -18, 1.41)
	pt3dadd(7.34, -23.98, -18, 1.41)
	pt3dadd(5.47, -24.3, -18, 1.41)
	pt3dadd(5.31, -24.3, -18, 1.41)
  }
  dend[344] {pt3dclear()
	pt3dadd(9.06, -23.83, -18, 1.41)
	pt3dadd(7.34, -22.11, -18, 1.41)
	pt3dadd(4.69, -21.64, -18, 1.41)
	pt3dadd(4.69, -21.8, -18, 1.41)
  }
  dend[345] {pt3dclear()
	pt3dadd(10.41, -35.22, -18.5, 1.41)
	pt3dadd(10.78, -35.54, -18.5, 1.41)
	pt3dadd(8.44, -33.83, -18.5, 1.41)
	pt3dadd(8.44, -33.97, -18.5, 1.41)
  }
  dend[346] {pt3dclear()
	pt3dadd(8.44, -33.97, -18.5, 1.41)
	pt3dadd(6.56, -34.61, -18.5, 1.41)
	pt3dadd(4.38, -35.39, -18.5, 1.41)
	pt3dadd(4.22, -35.39, -18.5, 1.41)
	pt3dadd(2.34, -35.86, -18.5, 1.41)
	pt3dadd(2.19, -35.86, -18.5, 1.41)
	pt3dadd(0.47, -35.7, -18.5, 1.41)
  }
  dend[347] {pt3dclear()
	pt3dadd(8.44, -33.97, -18.5, 1.41)
	pt3dadd(6.56, -32.27, -18, 1.41)
	pt3dadd(6.41, -32.27, -18, 1.41)
	pt3dadd(5.16, -30.7, -18, 1.41)
	pt3dadd(3.75, -29.14, -18, 1.41)
	pt3dadd(3.75, -29.3, -18, 1.41)
  }
  dend[348] {pt3dclear()
	pt3dadd(3.75, -29.3, -18, 1.41)
	pt3dadd(1.25, -29.45, -18, 1.41)
	pt3dadd(1.09, -29.45, -18, 1.41)
	pt3dadd(-1.25, -29.45, -18, 1.41)
  }
  dend[349] {pt3dclear()
	pt3dadd(3.75, -29.3, -18, 1.41)
	pt3dadd(5.63, -27.42, -18, 1.41)
	pt3dadd(6.41, -25.7, -18.5, 1.41)
	pt3dadd(6.25, -25.7, -18.5, 1.41)
	pt3dadd(5.94, -23.83, -18.5, 1.41)
	pt3dadd(3.13, -23.83, -18.5, 1.41)
  }
  dend[350] {pt3dclear()
	pt3dadd(22.5, -39.84, -18.5, 2.03)
	pt3dadd(22.19, -41.4, -18.5, 2.03)
	pt3dadd(22.97, -42.03, -18.5, 2.03)
	pt3dadd(23.75, -43.28, -18.5, 2.03)
  }
  dend[351] {pt3dclear()
	pt3dadd(23.75, -43.28, -18.5, 2.03)
	pt3dadd(22.34, -43.98, -19.5, 1.09)
	pt3dadd(20.94, -44.61, -19.5, 1.56)
	pt3dadd(18.91, -46.33, -19.5, 2.03)
  }
  dend[352] {pt3dclear()
	pt3dadd(18.91, -46.33, -19.5, 2.03)
	pt3dadd(16.25, -47.27, -19.5, 1.25)
	pt3dadd(11.88, -48.67, -19.5, 1.25)
	pt3dadd(11.88, -48.83, -19.5, 1.25)
  }
  dend[353] {pt3dclear()
	pt3dadd(11.88, -48.83, -19.5, 1.25)
	pt3dadd(10.63, -51.33, -20.5, 1.25)
	pt3dadd(8.27, -53.2, -20.5, 1.25)
	pt3dadd(4.69, -56.02, -20.5, 1.25)
	pt3dadd(2.02, -55.86, -21, 1.25)
	pt3dadd(1.56, -56.17, -21, 1.25)
	pt3dadd(-0.94, -55.86, -21, 1.25)
	pt3dadd(-1.09, -56.02, -21, 1.25)
	pt3dadd(-5.31, -55.86, -21, 1.25)
	pt3dadd(-8.44, -56.48, -21, 1.25)
	pt3dadd(-9.06, -56.8, -21, 1.25)
	pt3dadd(-12.66, -57.58, -21, 1.25)
	pt3dadd(-12.66, -57.73, -21, 1.25)
  }
  dend[354] {pt3dclear()
	pt3dadd(11.88, -48.83, -19.5, 1.25)
	pt3dadd(9.22, -49.14, -19.5, 1.25)
	pt3dadd(8.91, -49.14, -19.5, 1.25)
	pt3dadd(6.56, -48.98, -19.5, 1.25)
  }
  dend[355] {pt3dclear()
	pt3dadd(6.56, -48.98, -19.5, 1.25)
	pt3dadd(5.94, -46.56, -20.5, 1.25)
	pt3dadd(4.22, -44.38, -20.5, 1.25)
	pt3dadd(3.13, -42.5, -20.5, 1.25)
	pt3dadd(2.02, -40.63, -20.5, 1.25)
	pt3dadd(0.31, -38.44, -20.5, 1.25)
  }
  dend[356] {pt3dclear()
	pt3dadd(6.56, -48.98, -19.5, 1.25)
	pt3dadd(4.99, -47.03, -19.5, 1.25)
  }
  dend[357] {pt3dclear()
	pt3dadd(4.99, -47.03, -19.5, 1.25)
	pt3dadd(4.69, -49.45, -19, 1.25)
	pt3dadd(4.53, -49.45, -19, 1.25)
	pt3dadd(1.56, -49.77, -19, 1.25)
  }
  dend[358] {pt3dclear()
	pt3dadd(1.56, -49.77, -19, 1.25)
	pt3dadd(-0.78, -52.11, -19.5, 1.25)
  }
  dend[359] {pt3dclear()
	pt3dadd(-0.78, -52.11, -19.5, 1.25)
	pt3dadd(-3.13, -51.64, -19.5, 1.25)
	pt3dadd(-3.44, -51.64, -19.5, 1.25)
  }
  dend[360] {pt3dclear()
	pt3dadd(-0.78, -52.11, -19.5, 1.25)
	pt3dadd(-2.66, -53.98, -19.5, 1.25)
  }
  dend[361] {pt3dclear()
	pt3dadd(1.56, -49.77, -19, 1.25)
	pt3dadd(-0.47, -48.52, -19, 1.25)
	pt3dadd(-2.5, -48.83, -19, 1.25)
	pt3dadd(-2.66, -48.98, -19, 1.25)
	pt3dadd(-4.22, -49.61, -19, 1.25)
	pt3dadd(-4.22, -49.77, -19, 1.25)
  }
  dend[362] {pt3dclear()
	pt3dadd(4.99, -47.03, -19.5, 1.25)
	pt3dadd(5.31, -47.42, -19.5, 1.25)
	pt3dadd(5, -47.42, -19.5, 1.25)
	pt3dadd(1.41, -45.86, -19.5, 1.25)
  }
  dend[363] {pt3dclear()
	pt3dadd(1.41, -45.86, -19.5, 1.25)
	pt3dadd(0.94, -43.83, -19, 1.25)
	pt3dadd(-2.97, -42.11, -19, 1.25)
	pt3dadd(-3.13, -42.11, -19, 1.25)
  }
  dend[364] {pt3dclear()
	pt3dadd(-3.13, -42.11, -19, 1.25)
	pt3dadd(-5.31, -42.42, -19, 1.25)
	pt3dadd(-7.5, -42.73, -19, 1.25)
	pt3dadd(-9.69, -43.36, -19, 1.25)
	pt3dadd(-9.84, -43.36, -19, 1.25)
	pt3dadd(-12.03, -42.11, -19, 1.25)
	pt3dadd(-12.19, -42.27, -19, 1.25)
  }
  dend[365] {pt3dclear()
	pt3dadd(-3.13, -42.11, -19, 1.25)
	pt3dadd(-3.59, -39.45, -18.5, 1.25)
	pt3dadd(-5, -37.42, -18.5, 1.25)
	pt3dadd(-5.94, -36.64, -18.5, 1.25)
	pt3dadd(-6.09, -36.64, -18.5, 1.25)
  }
  dend[366] {pt3dclear()
	pt3dadd(1.41, -45.86, -19.5, 1.25)
	pt3dadd(-1.56, -46.33, -19.5, 1.25)
	pt3dadd(-1.72, -46.33, -19.5, 1.25)
	pt3dadd(-3.59, -46.8, -19.5, 1.25)
	pt3dadd(-3.75, -46.8, -19.5, 1.25)
	pt3dadd(-5.31, -45.7, -19.5, 1.25)
	pt3dadd(-7.19, -46.02, -19.5, 1.25)
	pt3dadd(-7.34, -46.17, -19.5, 1.25)
	pt3dadd(-9.22, -46.8, -19.5, 1.25)
	pt3dadd(-12.19, -47.73, -19.5, 1.25)
	pt3dadd(-12.19, -47.89, -19.5, 1.25)
	pt3dadd(-14.06, -46.8, -19, 1.25)
	pt3dadd(-14.22, -46.8, -19, 1.25)
  }
  dend[367] {pt3dclear()
	pt3dadd(18.91, -46.33, -19.5, 2.03)
	pt3dadd(18.3, -49.29, -20.29, 1.56)
  }
  dend[368] {pt3dclear()
	pt3dadd(18.3, -49.29, -20.29, 1.56)
	pt3dadd(17.8, -51.64, -20.5, 1.56)
  }
  dend[369] {pt3dclear()
	pt3dadd(17.8, -51.64, -20.5, 1.56)
	pt3dadd(17.8, -56.17, -20.5, 1.25)
  }
  dend[370] {pt3dclear()
	pt3dadd(17.8, -56.17, -20.5, 1.25)
	pt3dadd(19.53, -59.14, -20.5, 1.41)
  }
  dend[371] {pt3dclear()
	pt3dadd(19.53, -59.14, -20.5, 1.41)
	pt3dadd(18.91, -61.8, -20.5, 1.41)
  }
  dend[372] {pt3dclear()
	pt3dadd(18.91, -61.8, -20.5, 1.41)
	pt3dadd(20.63, -62.73, -20.5, 1.25)
	pt3dadd(22.81, -63.36, -20.5, 1.25)
	pt3dadd(22.81, -63.52, -20.5, 1.25)
	pt3dadd(24.22, -65.23, -21.5, 1.25)
	pt3dadd(24.22, -65.39, -21.5, 1.25)
	pt3dadd(24.69, -67.42, -21.5, 1.25)
	pt3dadd(24.53, -67.58, -21.5, 1.25)
  }
  dend[373] {pt3dclear()
	pt3dadd(18.91, -61.8, -20.5, 1.41)
	pt3dadd(18.62, -64.91, -20.5, 1.56)
  }
  dend[374] {pt3dclear()
	pt3dadd(18.62, -64.91, -20.5, 1.56)
	pt3dadd(17.03, -67.11, -20.5, 1.56)
  }
  dend[375] {pt3dclear()
	pt3dadd(17.03, -67.11, -20.5, 1.56)
	pt3dadd(17.19, -69.69, -21, 1.72)
	pt3dadd(17.34, -69.69, -21, 1.72)
  }
  dend[376] {pt3dclear()
	pt3dadd(17.34, -69.69, -21, 1.72)
	pt3dadd(17.5, -72.97, -22.5, 1.41)
	pt3dadd(19.05, -75, -22.5, 1.41)
	pt3dadd(19.53, -77.34, -22.5, 1.41)
	pt3dadd(19.53, -77.5, -22.5, 1.41)
	pt3dadd(20.3, -80.16, -22.5, 1.41)
	pt3dadd(21.09, -82.97, -22.5, 1.41)
	pt3dadd(21.09, -83.28, -22.5, 1.41)
	pt3dadd(21.25, -86.09, -22.5, 1.41)
	pt3dadd(20.16, -88.13, -23.5, 1.41)
	pt3dadd(17.8, -88.28, -23.5, 1.41)
	pt3dadd(17.8, -88.44, -23.5, 1.41)
	pt3dadd(14.84, -89.06, -24, 1.41)
	pt3dadd(14.69, -89.22, -24, 1.41)
	pt3dadd(12.81, -91.56, -24.5, 1.41)
	pt3dadd(10.47, -93.44, -24.5, 1.41)
	pt3dadd(9.14, -93.79, -24.5, 1.41)
  }
  dend[377] {pt3dclear()
	pt3dadd(9.14, -93.79, -24.5, 1.41)
	pt3dadd(10.23, -95.51, -25, 1.09)
	pt3dadd(11.17, -97.07, -25, 1.09)
	pt3dadd(11.33, -98.95, -25, 1.09)
  }
  dend[378] {pt3dclear()
	pt3dadd(9.14, -93.79, -24.5, 1.41)
	pt3dadd(6.56, -94.38, -24.5, 1.41)
  }
  dend[379] {pt3dclear()
	pt3dadd(17.34, -69.69, -21, 1.72)
	pt3dadd(15.78, -71.72, -21, 1.72)
	pt3dadd(14.69, -73.59, -21, 1.72)
	pt3dadd(14.53, -73.59, -21, 1.72)
	pt3dadd(13.28, -75.94, -21, 1.72)
	pt3dadd(12.97, -76.25, -21, 1.72)
	pt3dadd(11.41, -78.13, -21, 1.72)
	pt3dadd(10.63, -80.31, -21, 1.72)
	pt3dadd(10.63, -80.47, -21, 1.72)
	pt3dadd(10.31, -83.75, -21, 1.72)
	pt3dadd(10.16, -83.75, -21, 1.72)
  }
}
proc shape3d_10() {
  dend[379] {	pt3dadd(11.09, -85.31, -21, 1.72)
	pt3dadd(11.09, -85.63, -21, 1.72)
  }
  dend[380] {pt3dclear()
	pt3dadd(17.03, -67.11, -20.5, 1.56)
	pt3dadd(15.16, -68.2, -21, 1.56)
	pt3dadd(11.72, -70.55, -21, 1.56)
  }
  dend[381] {pt3dclear()
	pt3dadd(11.72, -70.55, -21, 1.56)
	pt3dadd(9.38, -71.48, -21, 1.41)
	pt3dadd(9.22, -71.48, -21, 1.41)
	pt3dadd(7.66, -71.64, -21, 1.41)
	pt3dadd(7.5, -71.8, -21, 1.41)
	pt3dadd(6.09, -71.02, -21, 1.41)
	pt3dadd(6.09, -71.17, -21, 1.41)
  }
  dend[382] {pt3dclear()
	pt3dadd(6.09, -71.17, -21, 1.41)
	pt3dadd(4.53, -69.45, -20, 1.41)
	pt3dadd(2.19, -68.05, -20, 1.41)
	pt3dadd(1.41, -66.02, -20, 1.41)
	pt3dadd(-0.16, -64.3, -20, 1.41)
  }
  dend[383] {pt3dclear()
	pt3dadd(6.09, -71.17, -21, 1.41)
	pt3dadd(4.22, -71.33, -20, 1.41)
	pt3dadd(2.19, -73.05, -20, 1.41)
  }
  dend[384] {pt3dclear()
	pt3dadd(11.72, -70.55, -21, 1.56)
	pt3dadd(10.94, -72.27, -21, 1.56)
	pt3dadd(10.63, -74.3, -21, 1.56)
	pt3dadd(12.34, -77.89, -21, 1.56)
	pt3dadd(12.19, -77.89, -21, 1.56)
	pt3dadd(14.53, -80.7, -21.5, 1.56)
	pt3dadd(15.63, -83.67, -21.5, 1.56)
	pt3dadd(15.63, -84.3, -21.5, 1.56)
	pt3dadd(15.94, -86.8, -21.5, 1.56)
	pt3dadd(15.94, -87.27, -21.5, 1.56)
	pt3dadd(15.94, -90.7, -21.5, 1.56)
	pt3dadd(18.44, -94.45, -21.5, 1.56)
  }
  dend[385] {pt3dclear()
	pt3dadd(18.62, -64.91, -20.5, 1.56)
	pt3dadd(18.32, -68.01, -20.5, 1.56)
  }
  dend[386] {pt3dclear()
	pt3dadd(18.32, -68.01, -20.5, 1.56)
	pt3dadd(17.34, -62.58, -20.5, 1.41)
	pt3dadd(17.19, -62.58, -20.5, 1.41)
	pt3dadd(15.63, -63.36, -20.5, 1.41)
	pt3dadd(15, -64.92, -20.5, 1.41)
	pt3dadd(15.16, -65.08, -20.5, 1.41)
	pt3dadd(15, -65.08, -20.5, 1.41)
	pt3dadd(13.91, -66.17, -20.5, 1.41)
	pt3dadd(13.91, -66.33, -20.5, 1.41)
	pt3dadd(12.34, -67.11, -20.5, 1.41)
	pt3dadd(12.34, -67.27, -20.5, 1.41)
	pt3dadd(10, -68.2, -20.5, 1.41)
	pt3dadd(8.13, -68.67, -20.5, 1.41)
	pt3dadd(7.81, -68.83, -20.5, 1.41)
	pt3dadd(7.66, -68.83, -20.5, 1.41)
	pt3dadd(6.25, -68.52, -20.5, 1.41)
	pt3dadd(6.25, -68.67, -20.5, 1.41)
  }
  dend[387] {pt3dclear()
	pt3dadd(18.32, -68.01, -20.5, 1.56)
	pt3dadd(18.59, -65.23, -20.5, 1.56)
  }
  dend[388] {pt3dclear()
	pt3dadd(19.53, -59.14, -20.5, 1.41)
	pt3dadd(21.79, -57.45, -20.5, 1.41)
  }
  dend[389] {pt3dclear()
	pt3dadd(21.79, -57.45, -20.5, 1.41)
	pt3dadd(21.72, -60.23, -21, 1.25)
	pt3dadd(23.13, -60.7, -21, 1.25)
	pt3dadd(23.13, -60.86, -21, 1.25)
  }
  dend[390] {pt3dclear()
	pt3dadd(23.13, -60.86, -21, 1.25)
	pt3dadd(24.69, -62.11, -21, 1.25)
	pt3dadd(26.41, -63.36, -21, 1.25)
	pt3dadd(26.25, -63.52, -21, 1.25)
	pt3dadd(27.81, -64.77, -22.5, 1.25)
	pt3dadd(28.13, -66.64, -22.5, 1.25)
	pt3dadd(27.97, -66.64, -22.5, 1.25)
  }
  dend[391] {pt3dclear()
	pt3dadd(23.13, -60.86, -21, 1.25)
	pt3dadd(25, -59.61, -21, 1.25)
	pt3dadd(26.25, -58.05, -21, 1.25)
	pt3dadd(26.88, -56.95, -21, 1.25)
	pt3dadd(26.72, -57.11, -21, 1.25)
  }
  dend[392] {pt3dclear()
	pt3dadd(21.79, -57.45, -20.5, 1.41)
	pt3dadd(21.41, -57.73, -20.5, 1.41)
	pt3dadd(23.28, -56.33, -21.5, 1.41)
	pt3dadd(24.38, -54.61, -21.5, 1.41)
  }
  dend[393] {pt3dclear()
	pt3dadd(24.38, -54.61, -21.5, 1.41)
	pt3dadd(26.88, -54.14, -23, 1.41)
	pt3dadd(28.75, -53.2, -23, 1.41)
	pt3dadd(31.56, -51.17, -23, 1.41)
	pt3dadd(33.13, -50.55, -23, 1.41)
	pt3dadd(33.13, -50.7, -23, 1.41)
  }
  dend[394] {pt3dclear()
	pt3dadd(24.38, -54.61, -21.5, 1.41)
	pt3dadd(23.91, -53.05, -22.5, 1.41)
	pt3dadd(23.44, -51.02, -22, 1.41)
  }
  dend[395] {pt3dclear()
	pt3dadd(23.44, -51.02, -22, 1.41)
	pt3dadd(24.22, -49.77, -22, 1.41)
	pt3dadd(23.13, -47.89, -22, 1.41)
	pt3dadd(22.5, -46.02, -22, 1.41)
  }
  dend[396] {pt3dclear()
	pt3dadd(23.44, -51.02, -22, 1.41)
	pt3dadd(21.72, -49.77, -22, 1.41)
	pt3dadd(20.3, -48.52, -22, 1.41)
	pt3dadd(20.16, -48.52, -22, 1.41)
	pt3dadd(20, -47.58, -22, 1.41)
	pt3dadd(20.47, -45.7, -22, 1.41)
	pt3dadd(19.38, -43.98, -22, 1.41)
	pt3dadd(17.34, -43.36, -22, 1.41)
	pt3dadd(15, -42.11, -22, 1.41)
	pt3dadd(15, -42.27, -22, 1.41)
  }
  dend[397] {pt3dclear()
	pt3dadd(17.8, -56.17, -20.5, 1.25)
	pt3dadd(16.25, -57.11, -20.5, 1.25)
	pt3dadd(14.84, -58.36, -20.5, 1.25)
	pt3dadd(14.22, -60.08, -20.5, 1.25)
	pt3dadd(14.22, -60.23, -20.5, 1.25)
	pt3dadd(13.59, -61.33, -20.5, 1.25)
	pt3dadd(12.66, -62.73, -20.5, 1.25)
	pt3dadd(11.25, -63.2, -20.5, 1.25)
	pt3dadd(11.25, -63.36, -20.5, 1.25)
  }
  dend[398] {pt3dclear()
	pt3dadd(17.8, -51.64, -20.5, 1.56)
	pt3dadd(15.94, -52.42, -20.5, 1.56)
	pt3dadd(15.94, -52.58, -20.5, 1.56)
	pt3dadd(13.75, -54.61, -20.5, 1.56)
	pt3dadd(13.59, -54.61, -20.5, 1.56)
	pt3dadd(12.5, -56.48, -20.5, 1.56)
	pt3dadd(12.34, -56.64, -20.5, 1.56)
	pt3dadd(9.84, -58.36, -21, 1.56)
	pt3dadd(9.84, -58.52, -21, 1.56)
  }
  dend[399] {pt3dclear()
	pt3dadd(9.84, -58.52, -21, 1.56)
	pt3dadd(9.84, -61.02, -21.5, 1.25)
	pt3dadd(8.91, -63.52, -21.5, 1.25)
	pt3dadd(7.19, -65.39, -21.5, 1.25)
	pt3dadd(5.16, -66.33, -22, 1.25)
	pt3dadd(5.16, -66.48, -22, 1.25)
  }
  dend[400] {pt3dclear()
	pt3dadd(9.84, -58.52, -21, 1.56)
	pt3dadd(7.5, -58.67, -21, 1.56)
	pt3dadd(5, -59.45, -21, 1.56)
  }
  dend[401] {pt3dclear()
	pt3dadd(5, -59.45, -21, 1.56)
	pt3dadd(2.5, -57.89, -20.5, 1.25)
	pt3dadd(-0.16, -56.8, -20.5, 1.25)
	pt3dadd(-0.63, -55.23, -20.5, 1.25)
	pt3dadd(-0.78, -55.23, -20.5, 1.25)
  }
  dend[402] {pt3dclear()
	pt3dadd(5, -59.45, -21, 1.56)
	pt3dadd(2.02, -62.11, -21, 1.56)
  }
  dend[403] {pt3dclear()
	pt3dadd(2.02, -62.11, -21, 1.56)
	pt3dadd(2.66, -65.23, -21, 1.56)
	pt3dadd(2.5, -68.83, -21, 1.56)
  }
  dend[404] {pt3dclear()
	pt3dadd(2.02, -62.11, -21, 1.56)
	pt3dadd(-0.83, -60.88, -21, 1.56)
  }
  dend[405] {pt3dclear()
	pt3dadd(-0.83, -60.88, -21, 1.56)
	pt3dadd(-0.63, -64.77, -21, 1.56)
	pt3dadd(-0.47, -64.77, -21, 1.56)
  }
  dend[406] {pt3dclear()
	pt3dadd(-0.83, -60.88, -21, 1.56)
	pt3dadd(-1.25, -60.7, -21, 1.56)
	pt3dadd(-1.25, -60.86, -21, 1.56)
  }
  dend[407] {pt3dclear()
	pt3dadd(18.3, -49.29, -20.29, 1.56)
	pt3dadd(17.68, -52.24, -21.08, 1.56)
  }
  dend[408] {pt3dclear()
	pt3dadd(17.68, -52.24, -21.08, 1.56)
	pt3dadd(17.19, -46.02, -19.5, 1.25)
	pt3dadd(15.63, -45.23, -19.5, 1.25)
	pt3dadd(14.06, -44.14, -19.5, 1.25)
	pt3dadd(11.41, -44.3, -19.5, 1.25)
  }
  dend[409] {pt3dclear()
	pt3dadd(17.68, -52.24, -21.08, 1.56)
	pt3dadd(18.13, -50.08, -20.5, 1.56)
  }
  dend[410] {pt3dclear()
	pt3dadd(23.75, -43.28, -18.5, 2.03)
	pt3dadd(25, -45, -18.5, 2.03)
	pt3dadd(26.09, -47.03, -18.5, 2.03)
	pt3dadd(27.03, -49.84, -18.5, 2.03)
	pt3dadd(28.44, -53.59, -18.5, 2.03)
	pt3dadd(29.38, -56.09, -18.5, 2.03)
	pt3dadd(30, -57.03, -18.5, 2.03)
  }
  dend[411] {pt3dclear()
	pt3dadd(30, -57.03, -18.5, 2.03)
	pt3dadd(29.69, -57.19, -23, 1.09)
	pt3dadd(29.06, -59.38, -23, 0.94)
  }
  dend[412] {pt3dclear()
	pt3dadd(29.06, -59.38, -23, 0.94)
	pt3dadd(31.09, -61.09, -23, 1.09)
	pt3dadd(32.19, -62.5, -23, 1.09)
	pt3dadd(33.59, -64.06, -23, 1.09)
	pt3dadd(34.84, -64.53, -23, 1.09)
  }
  dend[413] {pt3dclear()
	pt3dadd(29.06, -59.38, -23, 0.94)
	pt3dadd(29.69, -62.66, -23, 1.09)
	pt3dadd(30.16, -67.34, -23, 1.09)
  }
  dend[414] {pt3dclear()
	pt3dadd(30.16, -67.34, -23, 1.09)
	pt3dadd(29.22, -68.28, -23, 1.09)
	pt3dadd(28.6, -69.53, -23, 1.09)
	pt3dadd(27.81, -70.94, -23, 1.09)
	pt3dadd(27.66, -72.73, -23, 1.09)
	pt3dadd(27.74, -74.06, -23, 1.09)
	pt3dadd(27.5, -75.78, -23, 1.09)
	pt3dadd(26.88, -78.13, -23, 1.09)
  }
  dend[415] {pt3dclear()
	pt3dadd(30.16, -67.34, -23, 1.09)
	pt3dadd(31.13, -69.29, -23, 1.09)
  }
  dend[416] {pt3dclear()
	pt3dadd(31.13, -69.29, -23, 1.09)
	pt3dadd(32.5, -68.75, -23, 1.09)
	pt3dadd(34.69, -67.81, -23, 1.09)
	pt3dadd(35.31, -65.94, -23, 1.09)
  }
  dend[417] {pt3dclear()
	pt3dadd(31.13, -69.29, -23, 1.09)
	pt3dadd(31.88, -70.78, -23, 1.09)
  }
  dend[418] {pt3dclear()
	pt3dadd(31.88, -70.78, -23, 1.09)
	pt3dadd(34.22, -73.13, -23.5, 1.09)
  }
  dend[419] {pt3dclear()
	pt3dadd(34.22, -73.13, -23.5, 1.09)
	pt3dadd(35.31, -76.41, -24.5, 1.09)
  }
  dend[420] {pt3dclear()
	pt3dadd(34.22, -73.13, -23.5, 1.09)
	pt3dadd(37.97, -72.19, -23.5, 1.09)
  }
  dend[421] {pt3dclear()
	pt3dadd(31.88, -70.78, -23, 1.09)
	pt3dadd(32.19, -74.06, -24, 1.09)
	pt3dadd(32.34, -76.09, -24, 1.09)
	pt3dadd(32.42, -76.83, -24, 1.09)
  }
  dend[422] {pt3dclear()
	pt3dadd(32.42, -76.83, -24, 1.09)
	pt3dadd(31.25, -77.84, -24.5, 0.7)
	pt3dadd(30.23, -78.94, -24.5, 0.7)
	pt3dadd(29.06, -79.64, -24.5, 0.7)
  }
}
proc shape3d_11() {
  dend[422] {	pt3dadd(27.66, -80.03, -24.5, 0.7)
	pt3dadd(26.33, -80.03, -24.5, 0.7)
  }
  dend[423] {pt3dclear()
	pt3dadd(32.42, -76.83, -24, 1.09)
	pt3dadd(32.81, -78.44, -25, 1.09)
	pt3dadd(34.69, -79.84, -23, 1.09)
	pt3dadd(36.25, -81.88, -23, 1.09)
	pt3dadd(37.5, -82.97, -23, 1.09)
  }
  dend[424] {pt3dclear()
	pt3dadd(30, -57.03, -18.5, 2.03)
	pt3dadd(30.94, -57.97, -18.5, 2.03)
	pt3dadd(34.38, -60, -21, 2.03)
	pt3dadd(35.94, -61.88, -21, 2.03)
	pt3dadd(39.06, -64.22, -21, 2.03)
	pt3dadd(41.88, -66.56, -21, 2.03)
	pt3dadd(42.97, -67.66, -21, 2.03)
  }
  dend[425] {pt3dclear()
	pt3dadd(42.97, -67.66, -21, 2.03)
	pt3dadd(46.1, -67.9, -25, 0.158)
	pt3dadd(48.75, -68.05, -25, 1.72)
	pt3dadd(48.75, -67.89, -25, 1.72)
	pt3dadd(52.19, -68.83, -25, 2.34)
	pt3dadd(52.19, -68.98, -25, 2.34)
	pt3dadd(54.22, -70.39, -25.5, 2.81)
  }
  dend[426] {pt3dclear()
	pt3dadd(54.22, -70.39, -25.5, 2.81)
	pt3dadd(56.25, -70.79, -26, 1.09)
	pt3dadd(58.13, -71.56, -26, 1.09)
	pt3dadd(60.78, -72.66, -26, 1.09)
	pt3dadd(64.22, -73.75, -26, 1.09)
	pt3dadd(67.19, -75.63, -26, 1.09)
	pt3dadd(70.16, -77.19, -26, 1.09)
	pt3dadd(72.5, -79.22, -26, 1.09)
	pt3dadd(74.84, -80.63, -26, 1.09)
  }
  dend[427] {pt3dclear()
	pt3dadd(54.22, -70.39, -25.5, 2.81)
	pt3dadd(56.24, -73.56, -25.5, 1.88)
  }
  dend[428] {pt3dclear()
	pt3dadd(56.24, -73.56, -25.5, 1.88)
	pt3dadd(53.44, -67.97, -25.5, 1.09)
	pt3dadd(53.13, -65.94, -25.5, 1.09)
  }
  dend[429] {pt3dclear()
	pt3dadd(53.13, -65.94, -25.5, 1.09)
	pt3dadd(50.94, -64.38, -26, 1.09)
	pt3dadd(48.44, -63.28, -26, 1.09)
	pt3dadd(47.81, -61.72, -26, 1.09)
  }
  dend[430] {pt3dclear()
	pt3dadd(53.13, -65.94, -25.5, 1.09)
	pt3dadd(51.56, -61.25, -25.5, 1.09)
  }
  dend[431] {pt3dclear()
	pt3dadd(51.56, -61.25, -25.5, 1.09)
	pt3dadd(49.69, -61.56, -25.5, 1.09)
	pt3dadd(47.34, -60.94, -25.5, 1.09)
	pt3dadd(45.63, -58.75, -24.5, 1.09)
	pt3dadd(41.25, -55.47, -24.5, 1.09)
	pt3dadd(38.75, -55, -24.5, 1.09)
	pt3dadd(36.56, -55.16, -24.5, 1.09)
  }
  dend[432] {pt3dclear()
	pt3dadd(51.56, -61.25, -25.5, 1.09)
	pt3dadd(50.78, -58.28, -25.5, 1.09)
  }
  dend[433] {pt3dclear()
	pt3dadd(50.78, -58.28, -25.5, 1.09)
	pt3dadd(49.06, -57.81, -25.5, 1.09)
	pt3dadd(46.41, -55.94, -25.5, 1.09)
	pt3dadd(44.06, -53.91, -25.5, 1.09)
	pt3dadd(42.97, -51.25, -25.5, 1.09)
	pt3dadd(42.97, -49.22, -25.5, 1.09)
  }
  dend[434] {pt3dclear()
	pt3dadd(50.78, -58.28, -25.5, 1.09)
	pt3dadd(51.09, -55.47, -24.5, 1.09)
	pt3dadd(50.16, -54.06, -24.5, 1.09)
	pt3dadd(47.5, -53.28, -24.5, 1.09)
	pt3dadd(45.78, -51.25, -24.5, 1.09)
	pt3dadd(45, -50, -24.5, 1.09)
  }
  dend[435] {pt3dclear()
	pt3dadd(56.24, -73.56, -25.5, 1.88)
	pt3dadd(56.41, -73.83, -25.5, 1.88)
  }
  dend[436] {pt3dclear()
	pt3dadd(56.41, -73.83, -25.5, 1.88)
	pt3dadd(55.47, -69.06, -25, 1.09)
	pt3dadd(55.94, -68.59, -25, 1.09)
	pt3dadd(57.97, -67.03, -25, 1.09)
  }
  dend[437] {pt3dclear()
	pt3dadd(57.97, -67.03, -25, 1.09)
	pt3dadd(57.81, -62.03, -25, 1.09)
  }
  dend[438] {pt3dclear()
	pt3dadd(57.81, -62.03, -25, 1.09)
	pt3dadd(56.56, -60, -25, 1.09)
	pt3dadd(54.84, -57.66, -25, 1.09)
	pt3dadd(53.44, -54.38, -25, 1.09)
	pt3dadd(52.19, -52.03, -25, 1.09)
  }
  dend[439] {pt3dclear()
	pt3dadd(52.19, -52.03, -25, 1.09)
	pt3dadd(50.63, -51.09, -25, 1.09)
	pt3dadd(48.44, -49.69, -25, 1.09)
	pt3dadd(46.56, -48.59, -25, 1.09)
	pt3dadd(45, -47.81, -25, 1.09)
	pt3dadd(42.03, -48.13, -25, 1.09)
	pt3dadd(41.09, -48.13, -25, 1.09)
  }
  dend[440] {pt3dclear()
	pt3dadd(52.19, -52.03, -25, 1.09)
	pt3dadd(52.34, -49.22, -25, 1.09)
	pt3dadd(53.28, -47.34, -25, 1.09)
	pt3dadd(55.63, -45.31, -25, 1.09)
	pt3dadd(58.13, -44.53, -25, 1.09)
  }
  dend[441] {pt3dclear()
	pt3dadd(57.81, -62.03, -25, 1.09)
	pt3dadd(58.13, -58.75, -25, 1.09)
	pt3dadd(57.34, -55.47, -25, 1.09)
  }
  dend[442] {pt3dclear()
	pt3dadd(57.34, -55.47, -25, 1.09)
	pt3dadd(56.09, -53.28, -25, 1.09)
	pt3dadd(56.09, -50.78, -25, 1.09)
	pt3dadd(56.72, -48.44, -25, 1.09)
	pt3dadd(59.22, -47.03, -25, 1.09)
	pt3dadd(59.84, -44.69, -25, 1.09)
	pt3dadd(60.31, -42.34, -25, 1.09)
	pt3dadd(59.69, -40.94, -25, 1.09)
  }
  dend[443] {pt3dclear()
	pt3dadd(57.34, -55.47, -25, 1.09)
	pt3dadd(58.91, -53.13, -25, 1.09)
	pt3dadd(58.91, -51.56, -25, 1.09)
  }
  dend[444] {pt3dclear()
	pt3dadd(57.97, -67.03, -25, 1.09)
	pt3dadd(60.47, -66.25, -25, 1.09)
  }
  dend[445] {pt3dclear()
	pt3dadd(60.47, -66.25, -25, 1.09)
	pt3dadd(61.09, -62.03, -24.5, 1.09)
  }
  dend[446] {pt3dclear()
	pt3dadd(61.09, -62.03, -24.5, 1.09)
	pt3dadd(60.94, -58.75, -24.5, 1.09)
	pt3dadd(60.63, -56.25, -24.5, 1.09)
	pt3dadd(61.09, -54.22, -24.5, 1.09)
  }
  dend[447] {pt3dclear()
	pt3dadd(61.09, -54.22, -24.5, 1.09)
	pt3dadd(61.41, -50.63, -25, 1.09)
	pt3dadd(61.25, -46.72, -25, 1.09)
	pt3dadd(60.78, -44.06, -25, 1.09)
	pt3dadd(60.63, -41.56, -25, 1.09)
	pt3dadd(61.09, -39.38, -25, 1.09)
  }
  dend[448] {pt3dclear()
	pt3dadd(61.09, -54.22, -24.5, 1.09)
	pt3dadd(63.59, -52.5, -24.5, 1.09)
	pt3dadd(65.16, -50.94, -24.5, 1.09)
	pt3dadd(65.94, -50, -24.5, 1.09)
  }
  dend[449] {pt3dclear()
	pt3dadd(65.94, -50, -24.5, 1.09)
	pt3dadd(68.59, -49.69, -25, 1.09)
	pt3dadd(70.31, -49.69, -25, 1.09)
  }
  dend[450] {pt3dclear()
	pt3dadd(65.94, -50, -24.5, 1.09)
	pt3dadd(66.92, -48.05, -24.5, 1.09)
  }
  dend[451] {pt3dclear()
	pt3dadd(66.92, -48.05, -24.5, 1.09)
	pt3dadd(64.84, -49.06, -24.5, 1.09)
	pt3dadd(63.13, -46.25, -24.5, 1.09)
	pt3dadd(64.22, -44.53, -24.5, 1.09)
	pt3dadd(65.31, -45.16, -24.5, 1.09)
  }
  dend[452] {pt3dclear()
	pt3dadd(66.92, -48.05, -24.5, 1.09)
	pt3dadd(67.97, -46.25, -24.5, 1.09)
  }
  dend[453] {pt3dclear()
	pt3dadd(61.09, -62.03, -24.5, 1.09)
	pt3dadd(64.06, -60.47, -24.5, 1.09)
	pt3dadd(64.53, -59.22, -24.5, 1.09)
  }
  dend[454] {pt3dclear()
	pt3dadd(64.53, -59.22, -24.5, 1.09)
	pt3dadd(67.66, -57.97, -23.5, 0.94)
  }
  dend[455] {pt3dclear()
	pt3dadd(64.53, -59.22, -24.5, 1.09)
	pt3dadd(65, -58.13, -25, 1.09)
	pt3dadd(64.84, -55.94, -25, 1.09)
  }
  dend[456] {pt3dclear()
	pt3dadd(60.47, -66.25, -25, 1.09)
	pt3dadd(62.63, -66.25, -25.33, 1.09)
  }
  dend[457] {pt3dclear()
	pt3dadd(62.63, -66.25, -25.33, 1.09)
	pt3dadd(62.19, -67.81, -26.5, 1.09)
	pt3dadd(64.53, -69.38, -26.5, 1.09)
	pt3dadd(67.5, -71.41, -26.5, 1.09)
  }
  dend[458] {pt3dclear()
	pt3dadd(67.5, -71.41, -26.5, 1.09)
	pt3dadd(68.91, -74.06, -26.5, 1.09)
	pt3dadd(70.31, -76.56, -26.5, 1.09)
  }
  dend[459] {pt3dclear()
	pt3dadd(67.5, -71.41, -26.5, 1.09)
	pt3dadd(70, -72.03, -26.5, 1.09)
	pt3dadd(74.06, -72.19, -26.5, 1.09)
  }
  dend[460] {pt3dclear()
	pt3dadd(62.63, -66.25, -25.33, 1.09)
	pt3dadd(63.75, -66.25, -25.5, 1.09)
	pt3dadd(66.72, -67.19, -25.5, 1.09)
  }
  dend[461] {pt3dclear()
	pt3dadd(66.72, -67.19, -25.5, 1.09)
	pt3dadd(69.22, -66.56, -28, 1.09)
	pt3dadd(71.41, -65.16, -28, 1.09)
  }
  dend[462] {pt3dclear()
	pt3dadd(66.72, -67.19, -25.5, 1.09)
	pt3dadd(70.16, -68.44, -27.5, 1.09)
	pt3dadd(71.88, -69.06, -27.5, 1.09)
	pt3dadd(74.06, -69.53, -27.5, 1.09)
  }
  dend[463] {pt3dclear()
	pt3dadd(56.41, -73.83, -25.5, 1.88)
	pt3dadd(58.59, -76.8, -26, 1.88)
	pt3dadd(60.16, -78.44, -26, 1.88)
  }
  dend[464] {pt3dclear()
	pt3dadd(60.16, -78.44, -26, 1.88)
	pt3dadd(63.28, -79.22, -26, 1.25)
	pt3dadd(65.78, -80, -26, 1.25)
	pt3dadd(68.44, -82.19, -26, 1.25)
	pt3dadd(69.53, -83.75, -26, 1.25)
  }
  dend[465] {pt3dclear()
	pt3dadd(69.53, -83.75, -26, 1.25)
	pt3dadd(70, -85.31, -25, 0.94)
	pt3dadd(70.47, -86.56, -25, 0.94)
	pt3dadd(71.41, -88.13, -25, 0.94)
	pt3dadd(72.97, -90, -25, 0.94)
	pt3dadd(73.59, -90.47, -25, 0.94)
  }
  dend[466] {pt3dclear()
	pt3dadd(69.53, -83.75, -26, 1.25)
	pt3dadd(71.09, -85.63, -26, 1.25)
	pt3dadd(72.5, -86.72, -26, 1.25)
	pt3dadd(76.09, -87.5, -26, 1.25)
	pt3dadd(78.28, -88.13, -26, 1.25)
  }
  dend[467] {pt3dclear()
	pt3dadd(78.28, -88.13, -26, 1.25)
	pt3dadd(80.94, -86.56, -26, 0.94)
	pt3dadd(81.88, -85.31, -26, 0.94)
	pt3dadd(82.97, -84.06, -26, 0.94)
	pt3dadd(84.38, -83.75, -26, 0.94)
  }
  dend[468] {pt3dclear()
	pt3dadd(78.28, -88.13, -26, 1.25)
	pt3dadd(79.22, -88.59, -26, 1.25)
	pt3dadd(80.94, -90.63, -26, 1.25)
	pt3dadd(82.97, -92.5, -26, 1.25)
	pt3dadd(84.06, -93.59, -26, 1.25)
	pt3dadd(86.56, -95.78, -29, 1.25)
  }
  dend[469] {pt3dclear()
	pt3dadd(60.16, -78.44, -26, 1.88)
	pt3dadd(61.72, -80.86, -26.5, 1.88)
	pt3dadd(64.53, -84.77, -26.5, 1.88)
	pt3dadd(67.19, -87.89, -26.5, 1.88)
	pt3dadd(69.95, -90.86, -26.5, 1.56)
	pt3dadd(73.23, -93.67, -26.5, 1.56)
  }
  dend[470] {pt3dclear()
	pt3dadd(73.23, -93.67, -26.5, 1.56)
	pt3dadd(75.16, -92.81, -25.5, 0.94)
	pt3dadd(78.91, -92.34, -25.5, 0.94)
  }
}
proc shape3d_12() {
  dend[470] {	pt3dadd(80.94, -91.88, -25.5, 0.94)
	pt3dadd(83.13, -91.09, -25.5, 0.94)
	pt3dadd(84.69, -89.53, -25.5, 0.94)
	pt3dadd(85.16, -87.5, -25.5, 0.94)
  }
  dend[471] {pt3dclear()
	pt3dadd(73.23, -93.67, -26.5, 1.56)
	pt3dadd(77.3, -97.89, -26.5, 2.19)
  }
  dend[472] {pt3dclear()
	pt3dadd(77.3, -97.89, -26.5, 2.19)
	pt3dadd(77.65, -99.69, -29, 0.158)
	pt3dadd(77.97, -100.6, -29, 0.158)
	pt3dadd(78.59, -103.3, -29, 0.158)
  }
  dend[473] {pt3dclear()
	pt3dadd(78.59, -103.3, -29, 0.158)
	pt3dadd(77.97, -106.3, -29, 0.78)
	pt3dadd(78.75, -109.4, -29, 0.78)
  }
  dend[474] {pt3dclear()
	pt3dadd(78.75, -109.4, -29, 0.78)
	pt3dadd(77.19, -110.6, -29, 0.78)
	pt3dadd(76.56, -113, -29, 0.78)
	pt3dadd(75.94, -114.1, -29, 0.78)
	pt3dadd(74.38, -115.9, -29, 0.78)
	pt3dadd(73.59, -117.5, -29, 0.78)
	pt3dadd(73.59, -119.1, -29, 0.78)
  }
  dend[475] {pt3dclear()
	pt3dadd(78.75, -109.4, -29, 0.78)
	pt3dadd(79.84, -111.9, -29, 0.78)
	pt3dadd(80.94, -113.3, -29, 0.78)
	pt3dadd(82.03, -113.9, -29, 0.78)
  }
  dend[476] {pt3dclear()
	pt3dadd(78.59, -103.3, -29, 0.158)
	pt3dadd(80.94, -105.2, -29, 0.158)
  }
  dend[477] {pt3dclear()
	pt3dadd(80.94, -105.2, -29, 0.158)
	pt3dadd(84.06, -105.6, -29.5, 0.78)
	pt3dadd(85.94, -108, -29.5, 0.78)
	pt3dadd(88.28, -110.6, -29.5, 0.78)
  }
  dend[478] {pt3dclear()
	pt3dadd(80.94, -105.2, -29, 0.158)
	pt3dadd(82.19, -108.3, -29, 0.158)
  }
  dend[479] {pt3dclear()
	pt3dadd(82.19, -108.3, -29, 0.158)
	pt3dadd(82.58, -111.1, -26, 0.158)
	pt3dadd(84.14, -113.2, -26, 0.158)
	pt3dadd(84.92, -114.7, -26, 0.158)
	pt3dadd(85.08, -117.5, -26, 0.158)
	pt3dadd(86.64, -119.3, -26, 0.158)
  }
  dend[480] {pt3dclear()
	pt3dadd(86.64, -119.3, -26, 0.158)
	pt3dadd(88.83, -121.3, -24.5, 0.158)
	pt3dadd(90.23, -122.7, -24.5, 0.158)
	pt3dadd(92.73, -124.3, -24.5, 0.158)
	pt3dadd(93.98, -125.3, -24.5, 0.158)
	pt3dadd(94.92, -126.6, -24.5, 0.158)
  }
  dend[481] {pt3dclear()
	pt3dadd(86.64, -119.3, -26, 0.158)
	pt3dadd(85.39, -121.3, -26, 0.158)
	pt3dadd(84.92, -123.5, -26, 0.158)
	pt3dadd(86.64, -125.3, -26, 0.158)
	pt3dadd(87.73, -126.8, -26, 0.158)
	pt3dadd(88.98, -128, -26, 0.158)
	pt3dadd(90.7, -129.6, -26, 0.158)
  }
  dend[482] {pt3dclear()
	pt3dadd(82.19, -108.3, -29, 0.158)
	pt3dadd(83.49, -108.8, -29.69, 0.78)
  }
  dend[483] {pt3dclear()
	pt3dadd(83.49, -108.8, -29.69, 0.78)
	pt3dadd(84.69, -110.6, -29, 0.158)
	pt3dadd(86.72, -112.7, -29, 0.78)
	pt3dadd(88.28, -115.3, -29, 0.78)
	pt3dadd(89.06, -117.7, -29, 0.78)
	pt3dadd(89.22, -120.8, -30, 0.78)
  }
  dend[484] {pt3dclear()
	pt3dadd(83.49, -108.8, -29.69, 0.78)
	pt3dadd(85, -109.4, -30.5, 0.78)
	pt3dadd(87.03, -110.9, -30.5, 0.78)
	pt3dadd(89.06, -112.3, -30.5, 0.78)
  }
  dend[485] {pt3dclear()
	pt3dadd(89.06, -112.3, -30.5, 0.78)
	pt3dadd(93.13, -115.3, -32, 0.78)
  }
  dend[486] {pt3dclear()
	pt3dadd(89.06, -112.3, -30.5, 0.78)
	pt3dadd(90.47, -115.2, -31.5, 0.78)
	pt3dadd(91.72, -117.3, -31.5, 0.78)
	pt3dadd(92.5, -119.4, -31.5, 0.78)
	pt3dadd(93.59, -121.1, -32, 0.78)
	pt3dadd(95.78, -122.2, -32, 0.78)
	pt3dadd(98.44, -122.3, -32, 1.56)
  }
  dend[487] {pt3dclear()
	pt3dadd(77.3, -97.89, -26.5, 2.19)
	pt3dadd(80.9, -98.05, -26.5, 2.19)
  }
  dend[488] {pt3dclear()
	pt3dadd(80.9, -98.05, -26.5, 2.19)
	pt3dadd(81.88, -97.19, -27, 1.09)
	pt3dadd(82.81, -96.09, -27, 1.09)
	pt3dadd(87.19, -93.91, -27, 1.09)
  }
  dend[489] {pt3dclear()
	pt3dadd(87.19, -93.91, -27, 1.09)
	pt3dadd(87.5, -94.06, -30.5, 0.78)
	pt3dadd(90.16, -95.94, -30.5, 0.78)
	pt3dadd(92.34, -97.97, -30.5, 0.78)
	pt3dadd(95, -100.5, -30.5, 0.78)
	pt3dadd(97.97, -102, -30.5, 0.78)
	pt3dadd(100.5, -103.4, -30.5, 0.78)
  }
  dend[490] {pt3dclear()
	pt3dadd(100.5, -103.4, -30.5, 0.78)
	pt3dadd(103, -105.9, -32, 0.78)
	pt3dadd(104.7, -107.3, -32, 0.78)
  }
  dend[491] {pt3dclear()
	pt3dadd(104.7, -107.3, -32, 0.78)
	pt3dadd(108.6, -108.6, -32.5, 0.78)
  }
  dend[492] {pt3dclear()
	pt3dadd(108.6, -108.6, -32.5, 0.78)
	pt3dadd(112.3, -109.7, -33, 0.94)
  }
  dend[493] {pt3dclear()
	pt3dadd(112.3, -109.7, -33, 0.94)
	pt3dadd(114.5, -112.3, -33, 0.94)
	pt3dadd(115.6, -114.5, -33, 0.94)
	pt3dadd(117.7, -117, -33, 0.94)
	pt3dadd(120.2, -120.2, -33, 0.94)
	pt3dadd(122.2, -122.7, -33, 0.94)
	pt3dadd(123.4, -124.4, -33, 0.94)
  }
  dend[494] {pt3dclear()
	pt3dadd(112.3, -109.7, -33, 0.94)
	pt3dadd(114.6, -110, -30.83, 1.56)
  }
  dend[495] {pt3dclear()
	pt3dadd(114.6, -110, -30.83, 1.56)
	pt3dadd(117.3, -112.8, -29.5, 1.56)
	pt3dadd(118.8, -115.5, -29.5, 1.56)
	pt3dadd(120.3, -118.1, -29.5, 1.56)
	pt3dadd(121.7, -120.3, -29.5, 1.56)
	pt3dadd(122.8, -122.2, -29.5, 1.56)
	pt3dadd(123.9, -123.9, -29.5, 1.56)
  }
  dend[496] {pt3dclear()
	pt3dadd(114.6, -110, -30.83, 1.56)
	pt3dadd(116.8, -110.3, -28.67, 1.56)
  }
  dend[497] {pt3dclear()
	pt3dadd(116.8, -110.3, -28.67, 1.56)
	pt3dadd(113, -113, -32.5, 0.94)
	pt3dadd(114.2, -115.3, -32.5, 0.94)
	pt3dadd(115.8, -118.3, -32.5, 0.94)
	pt3dadd(117, -120.5, -32.5, 0.94)
	pt3dadd(119.2, -122.5, -32.5, 0.94)
	pt3dadd(122.7, -126.1, -33, 0.94)
  }
  dend[498] {pt3dclear()
	pt3dadd(116.8, -110.3, -28.67, 1.56)
	pt3dadd(115.9, -110.2, -29.5, 1.56)
  }
  dend[499] {pt3dclear()
	pt3dadd(108.6, -108.6, -32.5, 0.78)
	pt3dadd(109.1, -111.1, -32.5, 0.78)
	pt3dadd(110.8, -114.1, -32.5, 0.78)
	pt3dadd(112.3, -116.6, -32.5, 0.78)
	pt3dadd(114.2, -119.1, -32.5, 0.78)
	pt3dadd(115.6, -120.8, -32.5, 0.78)
	pt3dadd(117.2, -123.3, -32.5, 0.78)
  }
  dend[500] {pt3dclear()
	pt3dadd(104.7, -107.3, -32, 0.78)
	pt3dadd(105.6, -110.5, -32, 0.78)
	pt3dadd(107.2, -113.4, -32, 0.78)
	pt3dadd(108.9, -115.8, -32, 0.78)
	pt3dadd(110.8, -117.8, -32, 0.78)
	pt3dadd(112.7, -120.2, -32, 0.78)
	pt3dadd(114.7, -121.4, -32, 0.78)
  }
  dend[501] {pt3dclear()
	pt3dadd(100.5, -103.4, -30.5, 0.78)
	pt3dadd(103.3, -102.8, -32, 0.78)
	pt3dadd(107.3, -103, -32, 0.78)
	pt3dadd(109.5, -103.4, -32, 0.78)
  }
  dend[502] {pt3dclear()
	pt3dadd(109.5, -103.4, -32, 0.78)
	pt3dadd(111.6, -105.3, -33, 0.78)
	pt3dadd(113.8, -106.7, -33, 0.78)
	pt3dadd(115.9, -107.5, -33, 0.78)
  }
  dend[503] {pt3dclear()
	pt3dadd(109.5, -103.4, -32, 0.78)
	pt3dadd(110.5, -102, -32.5, 0.78)
	pt3dadd(109.2, -99.69, -32.5, 0.78)
	pt3dadd(108.1, -97.34, -32.5, 0.78)
	pt3dadd(106.7, -95.78, -32.5, 0.78)
	pt3dadd(104.8, -95.47, -32.5, 0.78)
  }
  dend[504] {pt3dclear()
	pt3dadd(87.19, -93.91, -27, 1.09)
	pt3dadd(91.09, -92.66, -27, 1.09)
  }
  dend[505] {pt3dclear()
	pt3dadd(91.09, -92.66, -27, 1.09)
	pt3dadd(93.75, -95.47, -28, 1.09)
	pt3dadd(95.63, -96.41, -28, 1.09)
	pt3dadd(98.13, -96.72, -28, 1.09)
  }
  dend[506] {pt3dclear()
	pt3dadd(98.13, -96.72, -28, 1.09)
	pt3dadd(99.84, -98.44, -28.5, 1.09)
	pt3dadd(101.9, -99.69, -28.5, 1.09)
	pt3dadd(104.4, -100.3, -28.5, 1.09)
	pt3dadd(106.2, -101, -29.5, 1.09)
	pt3dadd(107.8, -100.9, -29.5, 1.09)
  }
  dend[507] {pt3dclear()
	pt3dadd(98.13, -96.72, -28, 1.09)
	pt3dadd(100.3, -95.31, -28, 1.09)
	pt3dadd(101.4, -93.44, -28, 1.09)
	pt3dadd(102.2, -92.03, -28, 1.09)
	pt3dadd(104.2, -92.19, -28, 1.56)
	pt3dadd(106.4, -93.44, -28, 1.56)
	pt3dadd(109.2, -94.38, -28, 1.56)
	pt3dadd(112.5, -95.94, -28, 1.56)
	pt3dadd(113.4, -98.13, -28, 1.56)
	pt3dadd(113.6, -100.9, -28, 1.56)
	pt3dadd(114.4, -102.8, -28, 1.56)
	pt3dadd(114.8, -103.8, -28, 1.56)
  }
  dend[508] {pt3dclear()
	pt3dadd(91.09, -92.66, -27, 1.09)
	pt3dadd(93.44, -90, -28, 1.09)
  }
  dend[509] {pt3dclear()
	pt3dadd(93.44, -90, -28, 1.09)
	pt3dadd(95, -91.25, -26.5, 1.09)
  }
  dend[510] {pt3dclear()
	pt3dadd(95, -91.25, -26.5, 1.09)
	pt3dadd(95.47, -93.59, -26.5, 1.09)
	pt3dadd(97.03, -95.63, -26.5, 1.09)
  }
  dend[511] {pt3dclear()
	pt3dadd(95, -91.25, -26.5, 1.09)
	pt3dadd(98.91, -93.75, -26.5, 1.09)
  }
  dend[512] {pt3dclear()
	pt3dadd(93.44, -90, -28, 1.09)
	pt3dadd(92.66, -89.06, -27, 1.09)
	pt3dadd(92.66, -86.72, -27, 1.09)
	pt3dadd(91.72, -85.16, -27, 1.09)
	pt3dadd(89.69, -86.25, -27, 1.09)
	pt3dadd(88.59, -87.81, -27, 1.09)
	pt3dadd(88.13, -89.84, -27, 1.09)
  }
  dend[513] {pt3dclear()
	pt3dadd(80.9, -98.05, -26.5, 2.19)
	pt3dadd(84.18, -99.92, -27, 2.03)
  }
  dend[514] {pt3dclear()
	pt3dadd(84.18, -99.92, -27, 2.03)
	pt3dadd(85.9, -99.76, -28, 1.09)
	pt3dadd(86.91, -99.46, -28, 1.17)
	pt3dadd(87.46, -99.3, -28, 1.17)
	pt3dadd(89.57, -99.61, -28.5, 1.02)
	pt3dadd(90.82, -100.2, -28.5, 1.02)
	pt3dadd(92.23, -101.1, -28.5, 1.02)
	pt3dadd(93.71, -102.6, -28.5, 1.02)
	pt3dadd(95.43, -104.5, -29, 1.02)
  }
  dend[515] {pt3dclear()
	pt3dadd(95.43, -104.5, -29, 1.02)
	pt3dadd(96.56, -105.2, -31.5, 0.94)
  }
}
proc shape3d_13() {
  dend[515] {	pt3dadd(97.81, -105.6, -31.5, 0.94)
	pt3dadd(100, -108.1, -31.5, 0.94)
	pt3dadd(101.4, -110.8, -31.5, 0.94)
	pt3dadd(103.3, -113.4, -31.5, 0.94)
	pt3dadd(105.2, -115.5, -31.5, 0.94)
	pt3dadd(107.3, -117.7, -31.5, 0.94)
	pt3dadd(108.9, -119.2, -31.5, 0.94)
	pt3dadd(110.9, -120, -32, 0.94)
  }
  dend[516] {pt3dclear()
	pt3dadd(95.43, -104.5, -29, 1.02)
	pt3dadd(96.17, -106.6, -29, 1.02)
  }
  dend[517] {pt3dclear()
	pt3dadd(96.17, -106.6, -29, 1.02)
	pt3dadd(94.92, -107.1, -29.5, 0.94)
	pt3dadd(93.75, -107, -29.5, 0.94)
	pt3dadd(92.89, -106.9, -29.5, 0.94)
	pt3dadd(91.88, -106.5, -29.5, 0.94)
  }
  dend[518] {pt3dclear()
	pt3dadd(96.17, -106.6, -29, 1.02)
	pt3dadd(96.37, -107.1, -29.5, 1.02)
	pt3dadd(97.46, -108.7, -29.5, 1.02)
	pt3dadd(98.16, -110.6, -29.5, 1.02)
	pt3dadd(99.26, -112.1, -30, 1.02)
	pt3dadd(100.3, -113.9, -30, 1.02)
	pt3dadd(101.8, -115.7, -30, 1.02)
	pt3dadd(103.6, -117.3, -30, 1.02)
	pt3dadd(105, -118.8, -30, 1.02)
	pt3dadd(106.5, -119.7, -30, 1.02)
	pt3dadd(108, -120.8, -30, 1.02)
	pt3dadd(110.3, -122.1, -30.5, 1.02)
	pt3dadd(112.2, -123, -31, 1.72)
  }
  dend[519] {pt3dclear()
	pt3dadd(112.2, -123, -31, 1.72)
	pt3dadd(113.7, -122.8, -31, 0.94)
	pt3dadd(115.1, -122.9, -31, 0.94)
	pt3dadd(116.8, -123.9, -32, 0.94)
	pt3dadd(117.8, -124.8, -32, 0.94)
  }
  dend[520] {pt3dclear()
	pt3dadd(117.8, -124.8, -32, 0.94)
	pt3dadd(119, -125, -32, 0.94)
	pt3dadd(120.3, -125.9, -32, 0.94)
	pt3dadd(121.4, -126.7, -32, 0.94)
	pt3dadd(122.9, -127.9, -32, 0.94)
	pt3dadd(124.4, -129.1, -32, 0.94)
	pt3dadd(125.9, -130.19, -32, 0.94)
	pt3dadd(127.3, -130.6, -33, 0.94)
  }
  dend[521] {pt3dclear()
	pt3dadd(127.3, -130.6, -33, 0.94)
	pt3dadd(129.1, -130.69, -33.5, 0.94)
	pt3dadd(130.69, -131.5, -33.5, 0.94)
  }
  dend[522] {pt3dclear()
	pt3dadd(130.69, -131.5, -33.5, 0.94)
	pt3dadd(132.5, -131.69, -34, 0.94)
	pt3dadd(134.3, -132.69, -34, 0.94)
	pt3dadd(136, -133.6, -34, 0.94)
	pt3dadd(137.5, -134.5, -34, 0.94)
	pt3dadd(138.6, -135.4, -34, 0.94)
  }
  dend[523] {pt3dclear()
	pt3dadd(130.69, -131.5, -33.5, 0.94)
	pt3dadd(131.6, -133.1, -35, 0.94)
	pt3dadd(132.5, -134.4, -35, 0.94)
	pt3dadd(133.19, -135.69, -35, 0.94)
	pt3dadd(133.1, -137.3, -35, 0.94)
	pt3dadd(133.19, -138.4, -35, 0.94)
  }
  dend[524] {pt3dclear()
	pt3dadd(127.3, -130.6, -33, 0.94)
	pt3dadd(128.4, -132.6, -33, 0.94)
	pt3dadd(129.19, -134.4, -34, 0.94)
	pt3dadd(130.5, -136.4, -34, 0.94)
	pt3dadd(131.1, -138.19, -34, 0.94)
	pt3dadd(131.1, -140, -34, 0.94)
	pt3dadd(130.69, -141.3, -34, 0.94)
  }
  dend[525] {pt3dclear()
	pt3dadd(117.8, -124.8, -32, 0.94)
	pt3dadd(117.9, -126.3, -32, 0.94)
	pt3dadd(118.5, -128.1, -32, 0.94)
	pt3dadd(119.6, -129.4, -32, 0.94)
	pt3dadd(121.1, -130.9, -32, 0.94)
	pt3dadd(122.8, -131.3, -32, 0.94)
	pt3dadd(124.1, -132.1, -32, 0.94)
	pt3dadd(125.5, -133.1, -32.5, 0.94)
  }
  dend[526] {pt3dclear()
	pt3dadd(112.2, -123, -31, 1.72)
	pt3dadd(113, -125.2, -31, 1.09)
	pt3dadd(115.1, -127.8, -29.5, 0.158)
	pt3dadd(117.3, -130.69, -29.5, 0.158)
	pt3dadd(119.6, -133.9, -29.5, 1.56)
  }
  dend[527] {pt3dclear()
	pt3dadd(119.6, -133.9, -29.5, 1.56)
	pt3dadd(122.4, -134.6, -30, 1.25)
	pt3dadd(124.8, -135.3, -30, 1.25)
	pt3dadd(127, -137.19, -30, 1.25)
	pt3dadd(126.6, -139.1, -30, 1.25)
  }
  dend[528] {pt3dclear()
	pt3dadd(119.6, -133.9, -29.5, 1.56)
	pt3dadd(119.6, -136.3, -29.5, 1.56)
	pt3dadd(119.6, -139.1, -29.5, 1.56)
	pt3dadd(119.1, -142.1, -30, 1.56)
	pt3dadd(118.1, -144.3, -30, 1.56)
	pt3dadd(118.7, -146, -30, 1.56)
	pt3dadd(120.4, -146.1, -30, 1.56)
  }
  dend[529] {pt3dclear()
	pt3dadd(84.18, -99.92, -27, 2.03)
	pt3dadd(86.21, -104.1, -27, 1.72)
	pt3dadd(88.4, -107.1, -27, 1.72)
	pt3dadd(90.27, -108.8, -28, 2.19)
  }
  dend[530] {pt3dclear()
	pt3dadd(90.27, -108.8, -28, 2.19)
	pt3dadd(92.03, -109.4, -31, 0.94)
	pt3dadd(92.97, -109.8, -31, 0.94)
	pt3dadd(95, -111.6, -31, 0.94)
	pt3dadd(96.72, -113.9, -31, 0.94)
	pt3dadd(98.75, -115, -31, 0.94)
	pt3dadd(100.8, -117.2, -31, 0.94)
	pt3dadd(102.3, -119.2, -31, 0.94)
	pt3dadd(103.8, -121.4, -31.5, 0.94)
  }
  dend[531] {pt3dclear()
	pt3dadd(103.8, -121.4, -31.5, 0.94)
	pt3dadd(106.1, -123.1, -33, 0.94)
	pt3dadd(108.3, -125.3, -33, 0.94)
	pt3dadd(110, -127, -33, 0.94)
	pt3dadd(111.3, -129.4, -33, 0.94)
	pt3dadd(113, -130.6, -33, 0.94)
	pt3dadd(115.2, -132.8, -33, 0.94)
	pt3dadd(116.7, -135.3, -33, 0.94)
	pt3dadd(116.6, -137.69, -33, 0.94)
  }
  dend[532] {pt3dclear()
	pt3dadd(103.8, -121.4, -31.5, 0.94)
	pt3dadd(104.7, -125, -31.5, 0.94)
	pt3dadd(106.6, -127.7, -31.5, 0.94)
	pt3dadd(108.4, -130.5, -31.5, 0.94)
	pt3dadd(109.1, -132.8, -31.5, 0.94)
	pt3dadd(110.2, -135, -31.5, 0.94)
	pt3dadd(111.9, -135.9, -31.5, 0.94)
	pt3dadd(113.6, -138, -33, 0.94)
	pt3dadd(115.5, -138.3, -34, 0.94)
  }
  dend[533] {pt3dclear()
	pt3dadd(90.27, -108.8, -28, 2.19)
	pt3dadd(92.62, -112.9, -28, 1.72)
	pt3dadd(94.34, -116.2, -28.5, 1.88)
  }
  dend[534] {pt3dclear()
	pt3dadd(94.34, -116.2, -28.5, 1.88)
	pt3dadd(96.1, -116.6, -31, 0.94)
	pt3dadd(96.72, -116.7, -31, 0.94)
	pt3dadd(98.59, -118.1, -31, 0.94)
	pt3dadd(100.5, -120.3, -31, 0.94)
	pt3dadd(102.5, -123, -31, 0.94)
	pt3dadd(103.8, -126.1, -31, 0.94)
	pt3dadd(104.5, -129.69, -31, 0.94)
	pt3dadd(105.8, -132.5, -31, 0.94)
	pt3dadd(107.3, -135.8, -31, 0.94)
	pt3dadd(108.4, -139.1, -31, 0.94)
  }
  dend[535] {pt3dclear()
	pt3dadd(108.4, -139.1, -31, 0.94)
	pt3dadd(111.6, -140.5, -33, 0.94)
	pt3dadd(113.3, -141.6, -33, 0.94)
  }
  dend[536] {pt3dclear()
	pt3dadd(113.3, -141.6, -33, 0.94)
	pt3dadd(114.4, -143.8, -34.5, 0.94)
  }
  dend[537] {pt3dclear()
	pt3dadd(114.4, -143.8, -34.5, 0.94)
	pt3dadd(116.1, -145.9, -34.5, 0.94)
	pt3dadd(117.3, -147.8, -34.5, 0.94)
	pt3dadd(116.1, -149.69, -34.5, 0.94)
	pt3dadd(115, -151.4, -34.5, 0.94)
  }
  dend[538] {pt3dclear()
	pt3dadd(114.4, -143.8, -34.5, 0.94)
	pt3dadd(114.4, -146.1, -34.5, 0.94)
	pt3dadd(112.7, -147.3, -34.5, 0.94)
  }
  dend[539] {pt3dclear()
	pt3dadd(113.3, -141.6, -33, 0.94)
	pt3dadd(116.4, -142, -33, 0.94)
	pt3dadd(118.8, -142.3, -33, 0.94)
	pt3dadd(120.8, -143.9, -35, 0.94)
	pt3dadd(123.1, -145.19, -35, 0.94)
	pt3dadd(125.6, -144.3, -35, 1.25)
	pt3dadd(126.6, -143, -35, 1.25)
	pt3dadd(127.6, -141.9, -35, 1.25)
  }
  dend[540] {pt3dclear()
	pt3dadd(108.4, -139.1, -31, 0.94)
	pt3dadd(109.1, -141.9, -32, 0.94)
	pt3dadd(110.2, -143.8, -32, 0.94)
	pt3dadd(109.2, -145.8, -32, 0.94)
	pt3dadd(110.9, -147.5, -32, 0.94)
	pt3dadd(112.3, -149.1, -32, 0.94)
	pt3dadd(114.4, -149.69, -33, 0.94)
  }
  dend[541] {pt3dclear()
	pt3dadd(94.34, -116.2, -28.5, 1.88)
	pt3dadd(95.8, -118, -31.46, 1.88)
  }
  dend[542] {pt3dclear()
	pt3dadd(95.8, -118, -31.46, 1.88)
	pt3dadd(94.18, -118.7, -29, 1.56)
  }
  dend[543] {pt3dclear()
	pt3dadd(94.18, -118.7, -29, 1.56)
	pt3dadd(92.73, -119.9, -25.5, 1.25)
	pt3dadd(91.02, -122.2, -25.5, 1.25)
	pt3dadd(90.08, -125, -25.5, 1.25)
	pt3dadd(92.42, -126.9, -25.5, 1.25)
	pt3dadd(94.92, -128.3, -25.5, 1.25)
	pt3dadd(97.58, -130.5, -25.5, 1.25)
	pt3dadd(98.83, -132.69, -25.5, 1.25)
	pt3dadd(100.5, -133.9, -27, 1.25)
	pt3dadd(101.6, -135.8, -27, 1.25)
	pt3dadd(102.1, -138.6, -27, 1.25)
	pt3dadd(102.7, -141.1, -27, 1.25)
	pt3dadd(102.3, -143.3, -28, 1.25)
	pt3dadd(101.8, -145.3, -28, 1.25)
	pt3dadd(100.4, -146, -28, 1.25)
  }
  dend[544] {pt3dclear()
	pt3dadd(94.18, -118.7, -29, 1.56)
	pt3dadd(95.74, -122.4, -29, 1.56)
	pt3dadd(97.62, -125.7, -30, 1.56)
	pt3dadd(100.6, -130.4, -29.5, 1.56)
	pt3dadd(103.7, -135.19, -29.5, 1.56)
	pt3dadd(103.7, -135.4, -29.5, 1.56)
	pt3dadd(104.8, -140.1, -29.5, 1.56)
	pt3dadd(105.4, -144, -30, 1.41)
  }
  dend[545] {pt3dclear()
	pt3dadd(105.4, -144, -30, 1.41)
	pt3dadd(106.1, -147.5, -28.5, 1.25)
	pt3dadd(106.9, -150.6, -28.5, 1.25)
	pt3dadd(107.8, -154.19, -29, 1.25)
	pt3dadd(107, -155.3, -29, 1.25)
  }
  dend[546] {pt3dclear()
	pt3dadd(105.4, -144, -30, 1.41)
	pt3dadd(106.5, -146.19, -30, 1.25)
  }
  dend[547] {pt3dclear()
	pt3dadd(106.5, -146.19, -30, 1.25)
	pt3dadd(104.1, -144.9, -27.5, 1.25)
  }
  dend[548] {pt3dclear()
	pt3dadd(104.1, -144.9, -27.5, 1.25)
	pt3dadd(102.3, -147.5, -28.5, 1.25)
	pt3dadd(102.6, -149.6, -28.5, 1.25)
  }
}
proc shape3d_14() {
  dend[548] {	pt3dadd(104.1, -151.4, -28.5, 1.25)
  }
  dend[549] {pt3dclear()
	pt3dadd(104.1, -144.9, -27.5, 1.25)
	pt3dadd(102.3, -146, -27.5, 1.25)
  }
  dend[550] {pt3dclear()
	pt3dadd(102.3, -146, -27.5, 1.25)
	pt3dadd(101.2, -146.1, -27, 1.25)
	pt3dadd(100.4, -147.19, -27, 1.25)
	pt3dadd(99.61, -147.69, -27, 1.25)
  }
  dend[551] {pt3dclear()
	pt3dadd(102.3, -146, -27.5, 1.25)
	pt3dadd(102, -147.5, -27.5, 1.25)
	pt3dadd(102, -149.3, -27.5, 1.25)
  }
  dend[552] {pt3dclear()
	pt3dadd(106.5, -146.19, -30, 1.25)
	pt3dadd(107.2, -147.4, -30, 1.25)
	pt3dadd(108.2, -149, -30.5, 1.25)
  }
  dend[553] {pt3dclear()
	pt3dadd(108.2, -149, -30.5, 1.25)
	pt3dadd(110.4, -150.19, -29, 1.25)
	pt3dadd(111.6, -151.3, -29, 1.25)
	pt3dadd(113.8, -151.3, -29, 1.25)
	pt3dadd(115.1, -149.9, -29.5, 1.25)
	pt3dadd(115.7, -148.6, -29.5, 1.25)
	pt3dadd(117.9, -147.19, -29.5, 1.25)
	pt3dadd(119, -147.19, -29.5, 1.25)
  }
  dend[554] {pt3dclear()
	pt3dadd(108.2, -149, -30.5, 1.25)
	pt3dadd(108.6, -152.3, -30.5, 1.25)
	pt3dadd(110.4, -153.5, -32, 1.25)
  }
  dend[555] {pt3dclear()
	pt3dadd(95.8, -118, -31.46, 1.88)
	pt3dadd(96.56, -118.9, -33, 1.88)
	pt3dadd(98.28, -121.7, -33, 1.25)
	pt3dadd(100, -123.9, -32.5, 1.25)
	pt3dadd(100.8, -125.8, -32.5, 1.25)
	pt3dadd(101.7, -128, -32.5, 1.25)
	pt3dadd(103.3, -130.8, -32.5, 1.25)
  }
  dend[556] {pt3dclear()
	pt3dadd(42.97, -67.66, -21, 2.03)
	pt3dadd(45.93, -70.43, -21, 2.03)
  }
  dend[557] {pt3dclear()
	pt3dadd(45.93, -70.43, -21, 2.03)
	pt3dadd(42.19, -69.2, -22.5, 1.72)
	pt3dadd(41.88, -69.53, -22.5, 1.72)
	pt3dadd(40.63, -72.97, -22.5, 1.72)
	pt3dadd(39.84, -77.34, -22.5, 1.72)
	pt3dadd(40.15, -78.91, -22.5, 1.72)
  }
  dend[558] {pt3dclear()
	pt3dadd(40.15, -78.91, -22.5, 1.72)
	pt3dadd(38.28, -79.69, -23, 1.25)
	pt3dadd(36.25, -80.94, -23, 1.25)
	pt3dadd(32.65, -81.56, -23, 1.25)
	pt3dadd(30.47, -82.92, -23, 1.25)
  }
  dend[559] {pt3dclear()
	pt3dadd(30.47, -82.92, -23, 1.25)
	pt3dadd(30.39, -84.01, -22, 1.25)
	pt3dadd(29.61, -84.95, -22, 1.25)
	pt3dadd(29.84, -86.51, -22, 1.25)
	pt3dadd(30, -88.23, -22, 1.25)
	pt3dadd(29.77, -89.4, -22, 1.25)
	pt3dadd(28.83, -90.03, -22, 1.25)
	pt3dadd(28.13, -90.19, -22, 1.25)
  }
  dend[560] {pt3dclear()
	pt3dadd(30.47, -82.92, -23, 1.25)
	pt3dadd(29.84, -83.28, -23, 1.25)
	pt3dadd(27.19, -84.22, -22.5, 1.25)
	pt3dadd(24.84, -83.44, -22.5, 1.25)
	pt3dadd(23.91, -82.66, -22.5, 1.25)
  }
  dend[561] {pt3dclear()
	pt3dadd(40.15, -78.91, -22.5, 1.72)
	pt3dadd(41.56, -81.09, -22.5, 1.72)
	pt3dadd(42.81, -83.91, -22.5, 1.72)
  }
  dend[562] {pt3dclear()
	pt3dadd(42.81, -83.91, -22.5, 1.72)
	pt3dadd(40.78, -86.72, -24, 1.25)
  }
  dend[563] {pt3dclear()
	pt3dadd(40.78, -86.72, -24, 1.25)
	pt3dadd(40.31, -89.53, -24, 1.25)
  }
  dend[564] {pt3dclear()
	pt3dadd(40.31, -89.53, -24, 1.25)
	pt3dadd(37.97, -89.53, -23, 1.25)
	pt3dadd(35.94, -90, -23, 1.25)
	pt3dadd(34.22, -91.56, -23, 1.25)
	pt3dadd(32.5, -92.34, -23, 1.25)
	pt3dadd(30.16, -93.13, -23, 1.25)
	pt3dadd(29.53, -94.06, -23, 1.25)
	pt3dadd(27.97, -92.81, -23, 1.25)
	pt3dadd(26.56, -92.03, -23, 1.25)
	pt3dadd(25.31, -91.88, -23, 1.25)
  }
  dend[565] {pt3dclear()
	pt3dadd(40.31, -89.53, -24, 1.25)
	pt3dadd(40.31, -93.13, -23.5, 1.25)
  }
  dend[566] {pt3dclear()
	pt3dadd(40.31, -93.13, -23.5, 1.25)
	pt3dadd(39.22, -98.28, -24, 1.56)
  }
  dend[567] {pt3dclear()
	pt3dadd(39.22, -98.28, -24, 1.56)
	pt3dadd(38.13, -100.6, -25, 1.25)
	pt3dadd(35.47, -103.1, -25, 1.25)
  }
  dend[568] {pt3dclear()
	pt3dadd(35.47, -103.1, -25, 1.25)
	pt3dadd(33.44, -102.7, -25, 1.25)
	pt3dadd(32.11, -101.8, -25, 1.25)
	pt3dadd(30.94, -101.6, -25, 1.25)
	pt3dadd(29.06, -100.2, -26, 1.25)
	pt3dadd(26.95, -97.85, -26, 1.25)
  }
  dend[569] {pt3dclear()
	pt3dadd(26.95, -97.85, -26, 1.25)
	pt3dadd(27.66, -95, -26, 1.25)
	pt3dadd(27.5, -92.34, -26, 1.25)
	pt3dadd(26.88, -90, -26, 1.25)
	pt3dadd(26.25, -88.28, -26, 1.25)
	pt3dadd(25.94, -86.88, -26, 1.25)
  }
  dend[570] {pt3dclear()
	pt3dadd(26.95, -97.85, -26, 1.25)
	pt3dadd(26.25, -97.5, -26, 1.56)
  }
  dend[571] {pt3dclear()
	pt3dadd(26.25, -97.5, -26, 1.56)
	pt3dadd(24.53, -95.63, -26, 1.25)
	pt3dadd(23.28, -93.13, -26, 1.25)
	pt3dadd(21.56, -90.63, -26, 1.25)
  }
  dend[572] {pt3dclear()
	pt3dadd(26.25, -97.5, -26, 1.56)
	pt3dadd(25.74, -100.6, -26, 1.56)
	pt3dadd(24.69, -102.2, -26, 1.56)
	pt3dadd(23.28, -103.4, -26, 1.56)
  }
  dend[573] {pt3dclear()
	pt3dadd(35.47, -103.1, -25, 1.25)
	pt3dadd(34.06, -105.5, -25, 1.25)
	pt3dadd(33.9, -107.3, -25, 1.25)
	pt3dadd(35.08, -109.3, -25, 1.56)
  }
  dend[574] {pt3dclear()
	pt3dadd(35.08, -109.3, -25, 1.56)
	pt3dadd(37.72, -109.7, -24.5, 1.56)
  }
  dend[575] {pt3dclear()
	pt3dadd(35.08, -109.3, -25, 1.56)
	pt3dadd(36.33, -111.8, -25, 1.56)
	pt3dadd(38.04, -114.3, -25, 1.56)
	pt3dadd(39.29, -116, -25.5, 1.56)
  }
  dend[576] {pt3dclear()
	pt3dadd(39.22, -98.28, -24, 1.56)
	pt3dadd(40.63, -101.3, -24, 1.25)
	pt3dadd(42.03, -105.5, -25, 1.25)
	pt3dadd(41.72, -108.6, -25.5, 1.25)
	pt3dadd(41.09, -111.3, -25.5, 1.25)
	pt3dadd(40.94, -113.8, -25.5, 1.25)
	pt3dadd(40.78, -115.2, -25.5, 1.25)
  }
  dend[577] {pt3dclear()
	pt3dadd(40.31, -93.13, -23.5, 1.25)
	pt3dadd(42.19, -94.84, -23.5, 1.25)
	pt3dadd(43.91, -96.72, -23.5, 1.25)
	pt3dadd(45.63, -98.91, -23.5, 1.25)
	pt3dadd(46.88, -101.1, -24.5, 1.25)
  }
  dend[578] {pt3dclear()
	pt3dadd(40.78, -86.72, -24, 1.25)
	pt3dadd(37.81, -86.56, -24, 1.25)
	pt3dadd(34.69, -86.72, -24, 1.25)
	pt3dadd(33.67, -86.83, -24, 1.25)
	pt3dadd(32.81, -87.06, -24, 1.25)
	pt3dadd(32.34, -87.69, -24, 1.25)
	pt3dadd(32.34, -88.54, -24, 1.25)
	pt3dadd(32.72, -89.33, -24, 1.25)
  }
  dend[579] {pt3dclear()
	pt3dadd(42.81, -83.91, -22.5, 1.72)
	pt3dadd(45.94, -86.56, -23, 1.72)
  }
  dend[580] {pt3dclear()
	pt3dadd(45.94, -86.56, -23, 1.72)
	pt3dadd(44.69, -88.75, -23, 1.56)
  }
  dend[581] {pt3dclear()
	pt3dadd(44.69, -88.75, -23, 1.56)
	pt3dadd(46.56, -90.94, -23.5, 1.25)
	pt3dadd(47.03, -93.75, -23.5, 1.25)
	pt3dadd(47.19, -95.94, -23.5, 1.25)
	pt3dadd(47.5, -98.28, -23.5, 1.25)
	pt3dadd(48.28, -101.1, -23, 1.25)
  }
  dend[582] {pt3dclear()
	pt3dadd(44.69, -88.75, -23, 1.56)
	pt3dadd(43.28, -91.09, -23, 1.56)
	pt3dadd(42.81, -94.06, -22.5, 1.56)
	pt3dadd(42.81, -97.81, -22.5, 1.56)
	pt3dadd(43.91, -100.8, -22.5, 1.56)
	pt3dadd(44.69, -103.6, -22.5, 1.56)
  }
  dend[583] {pt3dclear()
	pt3dadd(45.94, -86.56, -23, 1.72)
	pt3dadd(48.91, -90.78, -23.5, 1.72)
	pt3dadd(50.63, -94.22, -23.5, 1.72)
	pt3dadd(51.25, -96.56, -24, 1.88)
  }
  dend[584] {pt3dclear()
	pt3dadd(51.25, -96.56, -24, 1.88)
	pt3dadd(53.91, -98.91, -24, 1.25)
	pt3dadd(57.11, -100.5, -24.5, 1.25)
  }
  dend[585] {pt3dclear()
	pt3dadd(57.11, -100.5, -24.5, 1.25)
	pt3dadd(57.42, -103.3, -24, 1.25)
	pt3dadd(58.67, -106.1, -24, 1.25)
	pt3dadd(59.61, -108.5, -24, 1.25)
	pt3dadd(61.64, -110.2, -24, 1.25)
	pt3dadd(63.51, -111.5, -24, 1.25)
	pt3dadd(65.23, -113, -24, 1.25)
	pt3dadd(67.58, -113.8, -24, 1.25)
	pt3dadd(69.61, -115.2, -24, 1.25)
  }
  dend[586] {pt3dclear()
	pt3dadd(57.11, -100.5, -24.5, 1.25)
	pt3dadd(60.39, -101.8, -25.5, 1.25)
  }
  dend[587] {pt3dclear()
	pt3dadd(60.39, -101.8, -25.5, 1.25)
	pt3dadd(61.64, -104.3, -26, 1.25)
	pt3dadd(63.05, -107.4, -26, 1.25)
	pt3dadd(64.45, -108.6, -26, 1.25)
	pt3dadd(67.11, -110.3, -25.5, 1.25)
  }
  dend[588] {pt3dclear()
	pt3dadd(60.39, -101.8, -25.5, 1.25)
	pt3dadd(63.05, -103.5, -26.5, 1.25)
	pt3dadd(65.08, -104.1, -26.5, 1.25)
	pt3dadd(66.17, -105.8, -27, 1.25)
  }
  dend[589] {pt3dclear()
	pt3dadd(66.17, -105.8, -27, 1.25)
	pt3dadd(67.11, -108, -26, 1.25)
	pt3dadd(67.73, -110, -26, 1.25)
	pt3dadd(69.3, -112.8, -26, 1.25)
	pt3dadd(70.55, -114.9, -26, 1.25)
	pt3dadd(72.11, -117.5, -26, 1.25)
	pt3dadd(73.36, -119.6, -26, 1.25)
	pt3dadd(74.3, -121.6, -26.5, 1.25)
	pt3dadd(76.17, -123.3, -26.5, 1.25)
  }
  dend[590] {pt3dclear()
	pt3dadd(66.17, -105.8, -27, 1.25)
	pt3dadd(70.23, -106, -27, 1.25)
	pt3dadd(72.66, -107.7, -27, 1.25)
	pt3dadd(74.38, -109.8, -27, 1.25)
	pt3dadd(75.94, -112.2, -27, 1.25)
	pt3dadd(78.75, -114.4, -27, 1.25)
	pt3dadd(82.03, -115.3, -27, 1.25)
	pt3dadd(83.44, -115.5, -27, 1.25)
  }
  dend[591] {pt3dclear()
	pt3dadd(51.25, -96.56, -24, 1.88)
	pt3dadd(51.09, -99.69, -24, 1.72)
	pt3dadd(51.56, -104.2, -23.5, 1.72)
  }
  dend[592] {pt3dclear()
	pt3dadd(51.56, -104.2, -23.5, 1.72)
	pt3dadd(50.31, -106.4, -24.5, 1.88)
  }
  dend[593] {pt3dclear()
	pt3dadd(50.31, -106.4, -24.5, 1.88)
	pt3dadd(50, -108.4, -24, 1.25)
  }
}
proc shape3d_15() {
  dend[593] {	pt3dadd(50.16, -110.5, -24, 1.25)
	pt3dadd(50.63, -111.7, -24, 1.25)
  }
  dend[594] {pt3dclear()
	pt3dadd(50.31, -106.4, -24.5, 1.88)
	pt3dadd(51.88, -108.9, -24.5, 1.25)
	pt3dadd(52.66, -111.1, -24.5, 1.25)
  }
  dend[595] {pt3dclear()
	pt3dadd(51.56, -104.2, -23.5, 1.72)
	pt3dadd(53.59, -106.4, -23.5, 1.41)
	pt3dadd(55, -109.4, -24, 1.41)
  }
  dend[596] {pt3dclear()
	pt3dadd(45.93, -70.43, -21, 2.03)
	pt3dadd(45.47, -70, -21, 2.03)
	pt3dadd(46.09, -71.56, -21, 1.56)
	pt3dadd(46.25, -71.88, -21, 1.56)
  }
  dend[597] {pt3dclear()
	pt3dadd(46.25, -71.88, -21, 1.56)
	pt3dadd(47.19, -72.03, -16.5, 1.56)
	pt3dadd(48.13, -72.19, -26.5, 1.56)
	pt3dadd(49.22, -73.13, -26.5, 1.56)
	pt3dadd(51.72, -75.47, -26.5, 1.56)
	pt3dadd(54.53, -77.5, -26.5, 1.56)
	pt3dadd(56.56, -79.38, -26.5, 1.56)
	pt3dadd(58.59, -81.88, -26.5, 1.56)
	pt3dadd(60.47, -84.38, -26.5, 1.56)
	pt3dadd(62.34, -86.72, -26.5, 1.56)
	pt3dadd(64.53, -88.75, -27.5, 1.56)
	pt3dadd(67.5, -92.19, -28.5, 1.56)
	pt3dadd(69.38, -92.97, -30.5, 1.56)
  }
  dend[598] {pt3dclear()
	pt3dadd(46.25, -71.88, -21, 1.56)
	pt3dadd(47.03, -73.91, -21, 1.56)
	pt3dadd(47.66, -75.31, -21, 1.56)
	pt3dadd(48.28, -76.72, -21, 1.56)
	pt3dadd(48.75, -77.34, -21, 1.56)
  }
  dend[599] {pt3dclear()
	pt3dadd(48.75, -77.34, -21, 1.56)
	pt3dadd(49.84, -77.66, -16.5, 1.56)
	pt3dadd(50.16, -77.81, -24, 1.25)
	pt3dadd(51.41, -78.44, -24, 1.25)
	pt3dadd(53.28, -80.94, -24, 1.25)
	pt3dadd(55, -83.59, -24, 1.25)
	pt3dadd(57.81, -87.5, -24.5, 1.56)
  }
  dend[600] {pt3dclear()
	pt3dadd(57.81, -87.5, -24.5, 1.56)
	pt3dadd(58.75, -90.47, -25.5, 1.09)
	pt3dadd(60.63, -94.06, -25.5, 1.09)
	pt3dadd(62.03, -97.03, -25.5, 1.09)
	pt3dadd(64.22, -99.84, -25.5, 1.09)
	pt3dadd(66.09, -101.6, -25.5, 1.09)
  }
  dend[601] {pt3dclear()
	pt3dadd(57.81, -87.5, -24.5, 1.56)
	pt3dadd(60.47, -89.53, -25, 1.25)
	pt3dadd(64.22, -91.72, -25, 1.72)
  }
  dend[602] {pt3dclear()
	pt3dadd(64.22, -91.72, -25, 1.72)
	pt3dadd(66.25, -89.84, -25, 1.25)
  }
  dend[603] {pt3dclear()
	pt3dadd(64.22, -91.72, -25, 1.72)
	pt3dadd(65.03, -94.28, -25.86, 1.41)
  }
  dend[604] {pt3dclear()
	pt3dadd(65.03, -94.28, -25.86, 1.41)
	pt3dadd(67.34, -93.13, -25.5, 1.09)
	pt3dadd(69.38, -94.69, -25.5, 1.56)
  }
  dend[605] {pt3dclear()
	pt3dadd(69.38, -94.69, -25.5, 1.56)
	pt3dadd(71.25, -95.78, -25.5, 1.25)
	pt3dadd(72.97, -97.19, -25.5, 1.25)
	pt3dadd(74.53, -99.38, -25.5, 1.25)
	pt3dadd(75.47, -101.7, -27, 1.25)
	pt3dadd(76.88, -104.5, -27, 1.25)
  }
  dend[606] {pt3dclear()
	pt3dadd(69.38, -94.69, -25.5, 1.56)
	pt3dadd(70.63, -97.5, -25.5, 1.25)
	pt3dadd(72.5, -99.53, -26.5, 1.41)
	pt3dadd(74.38, -102.2, -26, 1.25)
	pt3dadd(76.25, -105.3, -26, 1.25)
  }
  dend[607] {pt3dclear()
	pt3dadd(65.03, -94.28, -25.86, 1.41)
	pt3dadd(65.16, -94.69, -26, 1.41)
	pt3dadd(65.94, -97.03, -26, 1.72)
  }
  dend[608] {pt3dclear()
	pt3dadd(65.94, -97.03, -26, 1.72)
	pt3dadd(68.91, -98.44, -26, 1.25)
	pt3dadd(71.41, -101.4, -26, 1.25)
	pt3dadd(73.28, -104.5, -26, 1.25)
	pt3dadd(75.47, -107.7, -26.5, 1.25)
	pt3dadd(77.5, -110.5, -26.5, 1.25)
	pt3dadd(79.53, -113.4, -26.5, 1.25)
	pt3dadd(81.09, -115.9, -26.5, 1.25)
  }
  dend[609] {pt3dclear()
	pt3dadd(65.94, -97.03, -26, 1.72)
	pt3dadd(67.19, -100.8, -26, 1.72)
	pt3dadd(68.44, -104.1, -26, 1.72)
	pt3dadd(70, -107.8, -26, 1.72)
	pt3dadd(72.5, -112.2, -26, 1.72)
	pt3dadd(76.09, -116.9, -27, 1.72)
  }
  dend[610] {pt3dclear()
	pt3dadd(76.09, -116.9, -27, 1.72)
	pt3dadd(81.41, -119.1, -27, 1.41)
  }
  dend[611] {pt3dclear()
	pt3dadd(81.41, -119.1, -27, 1.41)
	pt3dadd(85, -122, -28, 1.25)
	pt3dadd(87.5, -124.4, -28, 1.25)
	pt3dadd(89.69, -126.9, -28, 1.25)
	pt3dadd(91.56, -128.3, -28, 1.25)
	pt3dadd(94.69, -130.6, -28, 1.25)
	pt3dadd(96.88, -132.8, -28, 1.25)
	pt3dadd(99.06, -133.8, -28, 1.25)
  }
  dend[612] {pt3dclear()
	pt3dadd(81.41, -119.1, -27, 1.41)
	pt3dadd(82.97, -122.5, -27.5, 1.25)
	pt3dadd(84.53, -125, -27.5, 1.25)
	pt3dadd(87.34, -127.2, -27.5, 1.25)
  }
  dend[613] {pt3dclear()
	pt3dadd(76.09, -116.9, -27, 1.72)
	pt3dadd(77.81, -120.9, -27.5, 1.41)
	pt3dadd(80.31, -123.8, -27.5, 1.41)
	pt3dadd(81.72, -125.6, -27.5, 1.41)
  }
  dend[614] {pt3dclear()
	pt3dadd(81.72, -125.6, -27.5, 1.41)
	pt3dadd(80.47, -127.7, -28, 1.41)
	pt3dadd(77.81, -129.19, -28, 1.41)
	pt3dadd(79.06, -132, -28, 1.41)
  }
  dend[615] {pt3dclear()
	pt3dadd(81.72, -125.6, -27.5, 1.41)
	pt3dadd(85.16, -129.1, -27.5, 1.41)
  }
  dend[616] {pt3dclear()
	pt3dadd(85.16, -129.1, -27.5, 1.41)
	pt3dadd(87.03, -132.8, -29, 1.41)
	pt3dadd(87.5, -135.3, -29, 1.72)
	pt3dadd(90.16, -138.3, -30, 1.41)
	pt3dadd(91.25, -141.3, -30, 1.41)
	pt3dadd(93.44, -144.1, -30, 1.41)
	pt3dadd(95, -146.69, -31, 1.41)
	pt3dadd(97.03, -148.1, -31, 1.41)
  }
  dend[617] {pt3dclear()
	pt3dadd(85.16, -129.1, -27.5, 1.41)
	pt3dadd(88.91, -130.3, -28.5, 1.41)
  }
  dend[618] {pt3dclear()
	pt3dadd(88.91, -130.3, -28.5, 1.41)
	pt3dadd(90.16, -133.3, -29, 1.41)
	pt3dadd(91.88, -135.19, -29, 1.41)
	pt3dadd(93.91, -138.6, -29, 1.41)
	pt3dadd(95.47, -141.3, -29, 1.41)
	pt3dadd(97.81, -144.19, -29.5, 1.41)
	pt3dadd(99.53, -147, -32, 1.41)
	pt3dadd(99.84, -150.3, -32, 1.41)
	pt3dadd(100, -153.1, -32, 1.41)
	pt3dadd(103, -154.8, -34.5, 1.41)
	pt3dadd(106.3, -155.8, -35.5, 1.41)
  }
  dend[619] {pt3dclear()
	pt3dadd(88.91, -130.3, -28.5, 1.41)
	pt3dadd(91.72, -131.3, -28.5, 1.41)
	pt3dadd(93.75, -133.3, -28.5, 1.41)
	pt3dadd(95.16, -135.5, -28.5, 1.41)
	pt3dadd(97.19, -138.4, -29.5, 1.41)
	pt3dadd(98.98, -141.9, -29.5, 1.41)
  }
  dend[620] {pt3dclear()
	pt3dadd(48.75, -77.34, -21, 1.56)
	pt3dadd(48.59, -78.44, -21, 1.56)
	pt3dadd(48.28, -79.53, -24.5, 1.56)
	pt3dadd(48.28, -81.41, -24.5, 1.56)
	pt3dadd(48.59, -82.58, -25, 1.88)
	pt3dadd(50.94, -87.42, -25, 1.88)
	pt3dadd(50.94, -87.58, -25, 1.88)
	pt3dadd(53.75, -91.64, -25, 1.88)
	pt3dadd(53.75, -91.8, -25, 1.88)
	pt3dadd(55.63, -95.55, -25, 1.88)
	pt3dadd(55.16, -100.1, -24.5, 1.88)
	pt3dadd(54.38, -102.9, -24.5, 1.88)
	pt3dadd(55.63, -106.2, -24.5, 1.88)
	pt3dadd(58.13, -111.3, -25.5, 1.88)
  }
  dend[621] {pt3dclear()
	pt3dadd(58.13, -111.3, -25.5, 1.88)
	pt3dadd(60.16, -111.4, -24, 1.25)
	pt3dadd(61.25, -111.6, -24, 1.25)
	pt3dadd(63.28, -113.3, -24, 1.25)
	pt3dadd(64.38, -114.2, -24, 1.25)
	pt3dadd(64.53, -114.8, -24, 1.25)
  }
  dend[622] {pt3dclear()
	pt3dadd(64.53, -114.8, -24, 1.25)
	pt3dadd(66.72, -115.5, -26.5, 1.25)
	pt3dadd(68.75, -118, -26.5, 1.25)
	pt3dadd(70, -119.8, -26.5, 1.25)
	pt3dadd(71.56, -122.3, -26.5, 1.25)
	pt3dadd(73.59, -124.5, -26.5, 1.25)
	pt3dadd(74.53, -125.8, -26.5, 1.25)
	pt3dadd(76.25, -126.3, -26.5, 1.25)
	pt3dadd(78.13, -125.9, -26.5, 1.25)
	pt3dadd(78.75, -125.6, -26.5, 1.25)
  }
  dend[623] {pt3dclear()
	pt3dadd(64.53, -114.8, -24, 1.25)
	pt3dadd(64.22, -116.3, -24, 1.25)
	pt3dadd(64.84, -117.8, -24, 1.25)
	pt3dadd(65.78, -119.5, -24, 1.25)
	pt3dadd(66.25, -120.8, -24, 1.25)
	pt3dadd(66.41, -121.3, -24, 1.25)
  }
  dend[624] {pt3dclear()
	pt3dadd(58.13, -111.3, -25.5, 1.88)
	pt3dadd(57.81, -114.9, -25.5, 1.88)
	pt3dadd(57.65, -114.8, -25.5, 1.88)
  }
  dend[625] {pt3dclear()
	pt3dadd(57.65, -114.8, -25.5, 1.88)
	pt3dadd(56.72, -116.3, -24.5, 1.09)
	pt3dadd(56.25, -117.3, -25, 1.09)
	pt3dadd(54.38, -119.8, -25, 1.09)
  }
  dend[626] {pt3dclear()
	pt3dadd(54.38, -119.8, -25, 1.09)
	pt3dadd(51.09, -121.4, -26.5, 1.09)
  }
  dend[627] {pt3dclear()
	pt3dadd(51.09, -121.4, -26.5, 1.09)
	pt3dadd(51.64, -123.6, -25.5, 1.09)
	pt3dadd(52.27, -126, -25.5, 1.09)
	pt3dadd(51.33, -127.5, -26.5, 1.09)
  }
  dend[628] {pt3dclear()
	pt3dadd(51.09, -121.4, -26.5, 1.09)
	pt3dadd(47.81, -121.4, -26.5, 1.09)
  }
  dend[629] {pt3dclear()
	pt3dadd(47.81, -121.4, -26.5, 1.09)
	pt3dadd(48.28, -123.9, -27.5, 1.09)
	pt3dadd(47.66, -126.4, -27.5, 1.09)
	pt3dadd(47.19, -128.8, -27.5, 1.09)
  }
  dend[630] {pt3dclear()
	pt3dadd(47.81, -121.4, -26.5, 1.09)
	pt3dadd(45, -120.9, -26.5, 1.09)
	pt3dadd(42.81, -121.6, -26.5, 1.09)
	pt3dadd(40.47, -122.2, -26.5, 1.09)
	pt3dadd(38.75, -121.6, -25, 1.09)
	pt3dadd(37.65, -119.5, -25, 1.09)
  }
  dend[631] {pt3dclear()
	pt3dadd(54.38, -119.8, -25, 1.09)
	pt3dadd(55.94, -123.1, -25, 1.09)
	pt3dadd(55.94, -126.6, -25, 1.09)
	pt3dadd(54.92, -127.4, -25, 1.09)
  }
  dend[632] {pt3dclear()
	pt3dadd(54.92, -127.4, -25, 1.09)
	pt3dadd(55.39, -128.6, -25.5, 1.09)
	pt3dadd(56.02, -129.9, -26.5, 1.09)
  }
}
proc shape3d_16() {
  dend[632] {	pt3dadd(56.95, -132.8, -26.5, 1.09)
	pt3dadd(57.27, -135.8, -26.5, 1.09)
	pt3dadd(56.02, -137.19, -26.5, 1.09)
	pt3dadd(54.3, -138.19, -26.5, 1.09)
	pt3dadd(52.27, -138.5, -26.5, 1.09)
	pt3dadd(50.86, -137.69, -26.5, 1.09)
	pt3dadd(50.39, -136.1, -26.5, 1.09)
  }
  dend[633] {pt3dclear()
	pt3dadd(54.92, -127.4, -25, 1.09)
	pt3dadd(53.28, -129.19, -26, 1.09)
	pt3dadd(50.94, -130.3, -26, 1.09)
	pt3dadd(47.81, -130.9, -26, 1.09)
  }
  dend[634] {pt3dclear()
	pt3dadd(57.65, -114.8, -25.5, 1.88)
	pt3dadd(60.25, -117.4, -26.29, 1.88)
  }
  dend[635] {pt3dclear()
	pt3dadd(60.25, -117.4, -26.29, 1.88)
	pt3dadd(55.62, -114.2, -24, 1.41)
	pt3dadd(54.22, -114.1, -24, 1.41)
	pt3dadd(52.66, -113.6, -24, 1.41)
	pt3dadd(51.88, -113.4, -24, 1.41)
	pt3dadd(48.91, -113.1, -24, 1.41)
  }
  dend[636] {pt3dclear()
	pt3dadd(48.91, -113.1, -24, 1.41)
	pt3dadd(47.34, -112, -23.5, 1.41)
	pt3dadd(47.03, -109.8, -22.5, 1.41)
	pt3dadd(45.78, -108.1, -22.5, 1.41)
	pt3dadd(44.53, -106.7, -22.5, 1.41)
	pt3dadd(42.81, -106.1, -22.5, 1.41)
  }
  dend[637] {pt3dclear()
	pt3dadd(42.81, -106.1, -22.5, 1.41)
	pt3dadd(42.34, -104.5, -20, 1.25)
	pt3dadd(40.94, -103.1, -20, 1.41)
  }
  dend[638] {pt3dclear()
	pt3dadd(40.94, -103.1, -20, 1.41)
	pt3dadd(39.06, -101.3, -19.5, 1.41)
	pt3dadd(37.65, -99.53, -19.5, 1.41)
	pt3dadd(35.47, -97.81, -19.5, 1.41)
	pt3dadd(34.22, -96.09, -19.5, 1.41)
	pt3dadd(32.81, -94.69, -19.5, 1.41)
  }
  dend[639] {pt3dclear()
	pt3dadd(40.94, -103.1, -20, 1.41)
	pt3dadd(42.03, -101.1, -20, 1.41)
	pt3dadd(42.34, -99.22, -20, 1.41)
  }
  dend[640] {pt3dclear()
	pt3dadd(42.81, -106.1, -22.5, 1.41)
	pt3dadd(41.56, -107, -20.5, 1.41)
	pt3dadd(40.78, -108.4, -20.5, 1.41)
  }
  dend[641] {pt3dclear()
	pt3dadd(40.78, -108.4, -20.5, 1.41)
	pt3dadd(39.84, -107.5, -20, 1.41)
	pt3dadd(38.28, -108.3, -20, 1.41)
	pt3dadd(36.56, -108.9, -20, 1.25)
  }
  dend[642] {pt3dclear()
	pt3dadd(40.78, -108.4, -20.5, 1.41)
	pt3dadd(40.47, -110, -20.5, 1.09)
	pt3dadd(39.06, -110.3, -20.5, 1.09)
  }
  dend[643] {pt3dclear()
	pt3dadd(48.91, -113.1, -24, 1.41)
	pt3dadd(47.19, -113.8, -23, 1.09)
	pt3dadd(45.47, -115, -22, 1.09)
	pt3dadd(43.44, -117.2, -22, 1.41)
	pt3dadd(42.5, -119.1, -22, 1.41)
	pt3dadd(40.63, -119.8, -22, 1.41)
	pt3dadd(39.38, -120.8, -22, 1.41)
  }
  dend[644] {pt3dclear()
	pt3dadd(60.25, -117.4, -26.29, 1.88)
	pt3dadd(60.94, -118.1, -26.5, 1.88)
	pt3dadd(62.03, -120.9, -27, 1.88)
  }
  dend[645] {pt3dclear()
	pt3dadd(62.03, -120.9, -27, 1.88)
	pt3dadd(61.48, -121.5, -13.5, 1.88)
	pt3dadd(61.02, -122.5, -13.5, 1.88)
	pt3dadd(59.61, -125.3, -13.5, 1.88)
	pt3dadd(59.14, -127.8, -13.5, 1.88)
	pt3dadd(59.45, -129.3, -13.5, 1.88)
  }
  dend[646] {pt3dclear()
	pt3dadd(59.45, -129.3, -13.5, 1.88)
	pt3dadd(62.42, -130.19, -12, 1.88)
	pt3dadd(64.77, -131.6, -12, 1.88)
	pt3dadd(66.95, -134.4, -12, 1.88)
	pt3dadd(69.45, -136.1, -12, 1.88)
	pt3dadd(71.48, -138.8, -12, 1.88)
	pt3dadd(73.2, -140.5, -12, 1.88)
	pt3dadd(73.83, -142.8, -11.5, 1.88)
  }
  dend[647] {pt3dclear()
	pt3dadd(59.45, -129.3, -13.5, 1.88)
	pt3dadd(59.92, -132.19, -14, 1.88)
	pt3dadd(61.33, -134.9, -14, 1.88)
	pt3dadd(62.73, -137.4, -14, 1.88)
	pt3dadd(64.92, -138.5, -14, 1.88)
  }
  dend[648] {pt3dclear()
	pt3dadd(62.03, -120.9, -27, 1.88)
	pt3dadd(65, -123.7, -27, 1.88)
	pt3dadd(67.34, -126, -27, 1.88)
	pt3dadd(68.28, -127.2, -27, 1.88)
  }
  dend[649] {pt3dclear()
	pt3dadd(68.28, -127.2, -27, 1.88)
	pt3dadd(67.5, -129.19, -30.5, 1.41)
	pt3dadd(66.25, -131.4, -30.5, 1.41)
	pt3dadd(64.53, -133.69, -30.5, 1.41)
	pt3dadd(62.5, -135, -30.5, 1.41)
	pt3dadd(61.88, -136.19, -30.5, 1.41)
	pt3dadd(61.56, -137.8, -30.5, 1.41)
  }
  dend[650] {pt3dclear()
	pt3dadd(61.56, -137.8, -30.5, 1.41)
	pt3dadd(62.97, -139.3, -31.5, 1.09)
	pt3dadd(63.59, -140.6, -31.5, 1.09)
	pt3dadd(63.59, -141.8, -31.5, 1.09)
	pt3dadd(64.06, -141.8, -31.5, 1.09)
  }
  dend[651] {pt3dclear()
	pt3dadd(61.56, -137.8, -30.5, 1.41)
	pt3dadd(60.31, -138.69, -30.5, 1.09)
	pt3dadd(58.75, -140, -30.5, 1.09)
	pt3dadd(56.88, -140.9, -30.5, 1.09)
	pt3dadd(55.63, -141.19, -30.5, 1.09)
  }
  dend[652] {pt3dclear()
	pt3dadd(68.28, -127.2, -27, 1.88)
	pt3dadd(69.84, -129.6, -28, 1.88)
	pt3dadd(71.09, -131, -28.5, 1.88)
	pt3dadd(71.56, -132.3, -28.5, 1.41)
	pt3dadd(71.72, -132, -28.5, 1.41)
  }
  dend[653] {pt3dclear()
	pt3dadd(71.72, -132, -28.5, 1.41)
	pt3dadd(75, -133, -29.5, 1.09)
	pt3dadd(76.88, -134.8, -29.5, 1.09)
	pt3dadd(79.53, -137.8, -29.5, 1.09)
	pt3dadd(80.94, -138.6, -29.5, 1.09)
  }
  dend[654] {pt3dclear()
	pt3dadd(80.94, -138.6, -29.5, 1.09)
	pt3dadd(82.5, -139.4, -32, 0.94)
	pt3dadd(84.14, -140.4, -32, 0.94)
	pt3dadd(85.86, -141, -32, 0.94)
	pt3dadd(88.52, -142, -32, 0.94)
	pt3dadd(89.69, -143.3, -32, 0.94)
	pt3dadd(90.78, -145.1, -32, 0.94)
	pt3dadd(91.41, -147.1, -32, 0.94)
	pt3dadd(92.03, -148.9, -32, 0.94)
	pt3dadd(92.19, -150.9, -32, 0.94)
	pt3dadd(92.03, -152.8, -32, 0.94)
	pt3dadd(92.19, -153.4, -33, 0.94)
  }
  dend[655] {pt3dclear()
	pt3dadd(92.19, -153.4, -33, 0.94)
	pt3dadd(93.36, -153.4, -34, 0.94)
	pt3dadd(94.22, -154, -34, 0.94)
	pt3dadd(95.86, -154.9, -34, 0.94)
	pt3dadd(97.11, -155.5, -34, 0.94)
	pt3dadd(98.13, -156.69, -34, 0.94)
  }
  dend[656] {pt3dclear()
	pt3dadd(92.19, -153.4, -33, 0.94)
	pt3dadd(92.42, -154.4, -33, 0.94)
	pt3dadd(93.13, -155.9, -33, 0.94)
	pt3dadd(94.22, -157.3, -33, 0.94)
	pt3dadd(95.63, -158, -33, 0.94)
	pt3dadd(97.27, -159.4, -33, 0.94)
	pt3dadd(98.75, -160.3, -33, 0.94)
	pt3dadd(99.22, -161.6, -33, 0.94)
	pt3dadd(99.38, -161.9, -33, 0.94)
  }
  dend[657] {pt3dclear()
	pt3dadd(80.94, -138.6, -29.5, 1.09)
	pt3dadd(80.52, -140.69, -29.5, 1.09)
  }
  dend[658] {pt3dclear()
	pt3dadd(80.52, -140.69, -29.5, 1.09)
	pt3dadd(85, -137.19, -28.5, 1.09)
	pt3dadd(86.25, -136.3, -28.5, 1.09)
  }
  dend[659] {pt3dclear()
	pt3dadd(80.52, -140.69, -29.5, 1.09)
	pt3dadd(80.63, -140.19, -29.5, 1.09)
	pt3dadd(81.88, -142.3, -29.5, 1.09)
	pt3dadd(82.81, -144.4, -29.5, 1.09)
  }
  dend[660] {pt3dclear()
	pt3dadd(82.81, -144.4, -29.5, 1.09)
	pt3dadd(87.66, -144.69, -30.5, 1.09)
  }
  dend[661] {pt3dclear()
	pt3dadd(82.81, -144.4, -29.5, 1.09)
	pt3dadd(84.06, -147.19, -29.5, 1.09)
	pt3dadd(85.78, -149.5, -29.5, 1.09)
	pt3dadd(87.19, -151.69, -29.5, 1.09)
	pt3dadd(90.16, -155.6, -31, 1.09)
	pt3dadd(92.03, -158, -31, 1.09)
	pt3dadd(92.97, -159.4, -31, 1.09)
	pt3dadd(93.91, -161.1, -31, 1.09)
	pt3dadd(95.78, -161.6, -31, 1.09)
	pt3dadd(97.03, -162.69, -31, 1.09)
	pt3dadd(97.34, -163, -31, 1.09)
	pt3dadd(97.81, -163.3, -31, 1.09)
  }
  dend[662] {pt3dclear()
	pt3dadd(71.72, -132, -28.5, 1.41)
	pt3dadd(69.84, -134.1, -28.5, 1.41)
  }
  dend[663] {pt3dclear()
	pt3dadd(69.84, -134.1, -28.5, 1.41)
	pt3dadd(73.28, -133.6, -29, 1.09)
	pt3dadd(75, -136.4, -29, 1.09)
	pt3dadd(75.78, -138.9, -29, 1.09)
	pt3dadd(77.03, -141.4, -29, 1.09)
	pt3dadd(77.03, -143.1, -29, 1.09)
  }
  dend[664] {pt3dclear()
	pt3dadd(77.03, -143.1, -29, 1.09)
	pt3dadd(78.75, -145.3, -29.5, 1.09)
	pt3dadd(80.63, -148.3, -29.5, 1.09)
	pt3dadd(83.44, -150.9, -29.5, 1.09)
	pt3dadd(85.78, -153.6, -29.5, 1.09)
	pt3dadd(85.94, -154.69, -29.5, 1.09)
  }
  dend[665] {pt3dclear()
	pt3dadd(85.94, -154.69, -29.5, 1.09)
	pt3dadd(87.5, -156.69, -30, 1.09)
	pt3dadd(88.91, -158.9, -30, 1.09)
	pt3dadd(90.16, -161.3, -30, 1.09)
	pt3dadd(91.25, -164.1, -30, 1.09)
	pt3dadd(92.97, -165.3, -30, 1.09)
	pt3dadd(95.47, -166.1, -30, 1.09)
	pt3dadd(95.94, -166.3, -30, 1.09)
  }
  dend[666] {pt3dclear()
	pt3dadd(85.94, -154.69, -29.5, 1.09)
	pt3dadd(85.78, -156.9, -29.5, 1.09)
	pt3dadd(85, -159.5, -29.5, 1.09)
	pt3dadd(85.31, -162.3, -29.5, 1.09)
	pt3dadd(87.03, -165.2, -29.5, 1.09)
	pt3dadd(88.59, -167.8, -29.5, 1.09)
	pt3dadd(88.59, -170.2, -29.5, 1.09)
	pt3dadd(86.56, -171.3, -29.5, 1.09)
	pt3dadd(84.22, -171.6, -29.5, 1.09)
  }
  dend[667] {pt3dclear()
	pt3dadd(77.03, -143.1, -29, 1.09)
	pt3dadd(76.56, -144.4, -29, 1.09)
	pt3dadd(76.09, -146.69, -29, 1.09)
	pt3dadd(77.5, -149.1, -29, 1.09)
	pt3dadd(78.75, -151.3, -29, 1.09)
	pt3dadd(80.94, -153.3, -29, 1.09)
	pt3dadd(82.81, -155.6, -29, 1.09)
	pt3dadd(83.59, -157.19, -29, 1.09)
  }
  dend[668] {pt3dclear()
	pt3dadd(69.84, -134.1, -28.5, 1.41)
	pt3dadd(70.47, -133.4, -28.5, 1.41)
	pt3dadd(70.31, -135.19, -28.5, 1.41)
	pt3dadd(70.16, -137.4, -28.5, 1.41)
  }
}
proc shape3d_17() {
  dend[668] {  }
  dend[669] {pt3dclear()
	pt3dadd(70.16, -137.4, -28.5, 1.41)
	pt3dadd(69.14, -138, -31, 0.94)
	pt3dadd(67.58, -138.3, -31, 0.94)
	pt3dadd(66.8, -138.8, -31, 0.94)
	pt3dadd(65.63, -139.4, -31, 0.94)
  }
  dend[670] {pt3dclear()
	pt3dadd(70.16, -137.4, -28.5, 1.41)
	pt3dadd(70, -138.4, -28.5, 1.41)
	pt3dadd(69.84, -140.19, -28.5, 1.41)
	pt3dadd(70.16, -141.4, -28.5, 1.41)
  }
  dend[671] {pt3dclear()
	pt3dadd(70.16, -141.4, -28.5, 1.41)
	pt3dadd(71.41, -143.6, -30, 1.41)
	pt3dadd(72.5, -145.6, -30, 1.41)
	pt3dadd(73.91, -148.9, -30, 1.41)
	pt3dadd(74.38, -150, -30, 1.41)
	pt3dadd(74.53, -150.3, -30, 1.41)
  }
  dend[672] {pt3dclear()
	pt3dadd(74.53, -150.3, -30, 1.41)
	pt3dadd(76.72, -153.3, -29, 1.41)
	pt3dadd(77.66, -154.5, -29, 1.41)
  }
  dend[673] {pt3dclear()
	pt3dadd(77.66, -154.5, -29, 1.41)
	pt3dadd(80.94, -157.5, -30, 1.41)
	pt3dadd(82.5, -159.69, -30, 1.41)
  }
  dend[674] {pt3dclear()
	pt3dadd(77.66, -154.5, -29, 1.41)
	pt3dadd(77.34, -156.6, -29, 1.41)
	pt3dadd(77.66, -159.1, -29, 1.41)
	pt3dadd(77.66, -161.3, -29, 1.41)
	pt3dadd(77.19, -163, -29, 1.41)
	pt3dadd(76.09, -165, -29, 1.41)
	pt3dadd(75.16, -165.8, -29, 1.41)
  }
  dend[675] {pt3dclear()
	pt3dadd(74.53, -150.3, -30, 1.41)
	pt3dadd(73.75, -151.3, -30, 1.41)
	pt3dadd(72.5, -152.3, -30, 1.41)
	pt3dadd(71.41, -154.8, -30, 1.41)
  }
  dend[676] {pt3dclear()
	pt3dadd(70.16, -141.4, -28.5, 1.41)
	pt3dadd(68.28, -142.69, -28.5, 1.41)
	pt3dadd(66.88, -143.9, -28.5, 1.41)
	pt3dadd(65.63, -145, -28.5, 1.41)
	pt3dadd(64.06, -145.3, -28.5, 1.41)
  }
  dend[677] {pt3dclear()
	pt3dadd(64.06, -145.3, -28.5, 1.41)
	pt3dadd(64.69, -147.5, -31.5, 1.41)
	pt3dadd(65, -149.3, -31.5, 1.41)
	pt3dadd(64.84, -153.1, -31.5, 1.41)
	pt3dadd(64.84, -156.4, -31.5, 1.41)
	pt3dadd(64.38, -159.8, -31.5, 1.41)
	pt3dadd(64.53, -160.4, -31.5, 1.41)
  }
  dend[678] {pt3dclear()
	pt3dadd(64.53, -160.4, -31.5, 1.41)
	pt3dadd(65.78, -162.19, -32.5, 1.41)
	pt3dadd(66.56, -163.69, -32.5, 1.41)
	pt3dadd(67.66, -164.3, -32.5, 1.41)
	pt3dadd(70, -163.19, -32.5, 1.41)
	pt3dadd(71.88, -162.19, -32.5, 1.41)
	pt3dadd(73.75, -162.5, -32.5, 1.41)
  }
  dend[679] {pt3dclear()
	pt3dadd(64.53, -160.4, -31.5, 1.41)
	pt3dadd(63.44, -162, -31.5, 1.41)
	pt3dadd(62.97, -163.9, -31.5, 1.41)
	pt3dadd(62.34, -165.4, -31.5, 1.41)
	pt3dadd(60.78, -165.9, -31.5, 1.41)
	pt3dadd(58.91, -165.9, -31.5, 1.41)
  }
  dend[680] {pt3dclear()
	pt3dadd(64.06, -145.3, -28.5, 1.41)
	pt3dadd(63.13, -145, -28.5, 1.41)
	pt3dadd(61.25, -144.4, -28.5, 1.41)
  }
  dend[681] {pt3dclear()
	pt3dadd(61.25, -144.4, -28.5, 1.41)
	pt3dadd(61.56, -146.1, -29, 1.41)
	pt3dadd(62.34, -148, -29, 1.41)
	pt3dadd(62.66, -148.4, -29, 1.41)
  }
  dend[682] {pt3dclear()
	pt3dadd(61.25, -144.4, -28.5, 1.41)
	pt3dadd(59.38, -143.9, -28.5, 1.41)
	pt3dadd(57.19, -143.8, -28.5, 1.41)
	pt3dadd(55.31, -144.4, -28.5, 1.41)
  }
  dend[683] {pt3dclear()
	pt3dadd(55.31, -144.4, -28.5, 1.41)
	pt3dadd(55.63, -146.4, -29.5, 1.41)
	pt3dadd(56.56, -148.3, -29.5, 1.41)
	pt3dadd(57.34, -150.5, -29.5, 1.41)
	pt3dadd(57.19, -152.5, -29.5, 1.41)
  }
  dend[684] {pt3dclear()
	pt3dadd(55.31, -144.4, -28.5, 1.41)
	pt3dadd(53.44, -144.4, -28.5, 1.41)
	pt3dadd(51.41, -144.69, -28.5, 1.41)
	pt3dadd(49.69, -146.3, -28.5, 1.41)
	pt3dadd(49.69, -148.1, -28.5, 1.41)
	pt3dadd(50.31, -149.8, -28.5, 1.41)
	pt3dadd(52.19, -150.5, -28.5, 1.41)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
}
access soma

celldef()

Loading data, please wait...