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[697]

proc topol() { local i
  connect soma[1](0), soma(0)
  connect dend(0), soma[1](1)
  for i = 1, 9 connect dend[i](0), dend[i-1](1)
  connect dend[10](0), dend[8](1)
  connect dend[11](0), dend[7](1)
  for i = 12, 13 connect dend[i](0), dend[11](1)
  connect dend[14](0), dend[6](1)
  for i = 15, 16 connect dend[i](0), dend[i-1](1)
  connect dend[17](0), dend[15](1)
  for i = 18, 19 connect dend[i](0), dend[i-1](1)
  connect dend[20](0), dend[18](1)
  connect dend[21](0), dend[17](1)
  connect dend[22](0), dend[14](1)
  connect dend[23](0), dend[5](1)
  for i = 24, 25 connect dend[i](0), dend[23](1)
  connect dend[26](0), dend[4](1)
  for i = 27, 28 connect dend[i](0), dend[i-1](1)
  connect dend[29](0), dend[27](1)
  for i = 30, 31 connect dend[i](0), dend[29](1)
  connect dend[32](0), dend[26](1)
  for i = 33, 35 connect dend[i](0), dend[i-1](1)
  connect dend[36](0), dend[34](1)
  connect dend[37](0), dend[33](1)
  for i = 38, 40 connect dend[i](0), dend[i-1](1)
  connect dend[41](0), dend[39](1)
  for i = 42, 43 connect dend[i](0), dend[41](1)
  connect dend[44](0), dend[38](1)
  connect dend[45](0), dend[37](1)
  connect dend[46](0), dend[32](1)
  connect dend[47](0), dend[3](1)
  for i = 48, 50 connect dend[i](0), dend[i-1](1)
  connect dend[51](0), dend[49](1)
  for i = 52, 54 connect dend[i](0), dend[i-1](1)
  connect dend[55](0), dend[53](1)
  for i = 56, 57 connect dend[i](0), dend[55](1)
  connect dend[58](0), dend[52](1)
  connect dend[59](0), dend[51](1)
  for i = 60, 61 connect dend[i](0), dend[59](1)
  for i = 62, 63 connect dend[i](0), dend[61](1)
  connect dend[64](0), dend[48](1)
  connect dend[65](0), dend[47](1)
  for i = 66, 70 connect dend[i](0), dend[i-1](1)
  connect dend[71](0), dend[69](1)
  for i = 72, 73 connect dend[i](0), dend[71](1)
  for i = 74, 75 connect dend[i](0), dend[i-1](1)
  connect dend[76](0), dend[74](1)
  connect dend[77](0), dend[73](1)
  for i = 78, 79 connect dend[i](0), dend[77](1)
  connect dend[80](0), dend[68](1)
  for i = 81, 82 connect dend[i](0), dend[80](1)
  connect dend[83](0), dend[67](1)
  connect dend[84](0), dend[66](1)
  connect dend[85](0), dend[65](1)
  connect dend[86](0), dend[2](1)
  for i = 87, 91 connect dend[i](0), dend[i-1](1)
  connect dend[92](0), dend[90](1)
  for i = 93, 94 connect dend[i](0), dend[92](1)
  for i = 95, 96 connect dend[i](0), dend[94](1)
  connect dend[97](0), dend[89](1)
  for i = 98, 99 connect dend[i](0), dend[97](1)
  connect dend[100](0), dend[88](1)
  for i = 101, 103 connect dend[i](0), dend[i-1](1)
  connect dend[104](0), dend[102](1)
  for i = 105, 107 connect dend[i](0), dend[i-1](1)
  connect dend[108](0), dend[106](1)
  for i = 109, 110 connect dend[i](0), dend[108](1)
  connect dend[111](0), dend[105](1)
  connect dend[112](0), dend[104](1)
  connect dend[113](0), dend[101](1)
  for i = 114, 116 connect dend[i](0), dend[i-1](1)
  connect dend[117](0), dend[115](1)
  connect dend[118](0), dend[114](1)
  for i = 119, 120 connect dend[i](0), dend[i-1](1)
  connect dend[121](0), dend[119](1)
  for i = 122, 123 connect dend[i](0), dend[i-1](1)
  connect dend[124](0), dend[122](1)
  connect dend[125](0), dend[121](1)
  for i = 126, 127 connect dend[i](0), dend[i-1](1)
  connect dend[128](0), dend[126](1)
  connect dend[129](0), dend[125](1)
  connect dend[130](0), dend[118](1)
  connect dend[131](0), dend[113](1)
  for i = 132, 133 connect dend[i](0), dend[131](1)
  connect dend[134](0), dend[100](1)
  for i = 135, 136 connect dend[i](0), dend[134](1)
  for i = 137, 138 connect dend[i](0), dend[i-1](1)
  connect dend[139](0), dend[137](1)
  connect dend[140](0), dend[136](1)
  for i = 141, 142 connect dend[i](0), dend[140](1)
  for i = 143, 144 connect dend[i](0), dend[142](1)
  connect dend[145](0), dend[87](1)
  connect dend[146](0), dend[86](1)
  for i = 147, 148 connect dend[i](0), dend[i-1](1)
  connect dend[149](0), dend[147](1)
  for i = 150, 155 connect dend[i](0), dend[i-1](1)
  connect dend[156](0), dend[154](1)
  for i = 157, 158 connect dend[i](0), dend[i-1](1)
  connect dend[159](0), dend[157](1)
  for i = 160, 161 connect dend[i](0), dend[159](1)
  for i = 162, 163 connect dend[i](0), dend[161](1)
  connect dend[164](0), dend[156](1)
  connect dend[165](0), dend[153](1)
  connect dend[166](0), dend[152](1)
  for i = 167, 170 connect dend[i](0), dend[i-1](1)
  connect dend[171](0), dend[169](1)
  connect dend[172](0), dend[168](1)
  connect dend[173](0), dend[167](1)
  connect dend[174](0), dend[166](1)
  for i = 175, 176 connect dend[i](0), dend[174](1)
  for i = 177, 178 connect dend[i](0), dend[i-1](1)
  connect dend[179](0), dend[177](1)
  connect dend[180](0), dend[176](1)
  connect dend[181](0), dend[151](1)
  for i = 182, 186 connect dend[i](0), dend[i-1](1)
  connect dend[187](0), dend[185](1)
  for i = 188, 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)
  for i = 195, 196 connect dend[i](0), dend[194](1)
  connect dend[197](0), dend[187](1)
  for i = 198, 199 connect dend[i](0), dend[197](1)
  connect dend[200](0), dend[184](1)
  connect dend[201](0), dend[183](1)
  for i = 202, 203 connect dend[i](0), dend[201](1)
  for i = 204, 205 connect dend[i](0), dend[203](1)
  connect dend[206](0), dend[182](1)
  connect dend[207](0), dend[181](1)
  for i = 208, 215 connect dend[i](0), dend[i-1](1)
  connect dend[216](0), dend[214](1)
  connect dend[217](0), dend[213](1)
  connect dend[218](0), dend[212](1)
  connect dend[219](0), dend[211](1)
  connect dend[220](0), dend[210](1)
  for i = 221, 222 connect dend[i](0), dend[i-1](1)
  connect dend[223](0), dend[221](1)
  connect dend[224](0), dend[220](1)
  connect dend[225](0), dend[209](1)
  for i = 226, 228 connect dend[i](0), dend[i-1](1)
  connect dend[229](0), dend[227](1)
  connect dend[230](0), dend[226](1)
  for i = 231, 232 connect dend[i](0), dend[230](1)
  connect dend[233](0), dend[225](1)
  for i = 234, 235 connect dend[i](0), dend[i-1](1)
  connect dend[236](0), dend[234](1)
  connect dend[237](0), dend[233](1)
  for i = 238, 239 connect dend[i](0), dend[237](1)
  for i = 240, 241 connect dend[i](0), dend[i-1](1)
  connect dend[242](0), dend[240](1)
  connect dend[243](0), dend[239](1)
  connect dend[244](0), dend[208](1)
  for i = 245, 246 connect dend[i](0), dend[i-1](1)
  connect dend[247](0), dend[245](1)
  for i = 248, 249 connect dend[i](0), dend[247](1)
  connect dend[250](0), dend[244](1)
  for i = 251, 255 connect dend[i](0), dend[i-1](1)
  connect dend[256](0), dend[254](1)
  connect dend[257](0), dend[253](1)
  for i = 258, 260 connect dend[i](0), dend[i-1](1)
  connect dend[261](0), dend[259](1)
  connect dend[262](0), dend[258](1)
  for i = 263, 264 connect dend[i](0), dend[262](1)
  connect dend[265](0), dend[257](1)
  for i = 266, 267 connect dend[i](0), dend[265](1)
  for i = 268, 269 connect dend[i](0), dend[267](1)
  connect dend[270](0), dend[252](1)
  for i = 271, 272 connect dend[i](0), dend[i-1](1)
  connect dend[273](0), dend[271](1)
  connect dend[274](0), dend[270](1)
  connect dend[275](0), dend[251](1)
  connect dend[276](0), dend[250](1)
  for i = 277, 279 connect dend[i](0), dend[i-1](1)
  connect dend[280](0), dend[278](1)
  connect dend[281](0), dend[277](1)
  for i = 282, 283 connect dend[i](0), dend[i-1](1)
  connect dend[284](0), dend[282](1)
  for i = 285, 286 connect dend[i](0), dend[284](1)
  for i = 287, 288 connect dend[i](0), dend[286](1)
  connect dend[289](0), dend[281](1)
  for i = 290, 291 connect dend[i](0), dend[289](1)
  for i = 292, 293 connect dend[i](0), dend[291](1)
  connect dend[294](0), dend[276](1)
  for i = 295, 296 connect dend[i](0), dend[294](1)
  connect dend[297](0), dend[207](1)
  for i = 298, 299 connect dend[i](0), dend[297](1)
  for i = 300, 301 connect dend[i](0), dend[299](1)
  connect dend[302](0), dend[150](1)
  for i = 303, 310 connect dend[i](0), dend[i-1](1)
  connect dend[311](0), dend[309](1)
  for i = 312, 313 connect dend[i](0), dend[311](1)
  connect dend[314](0), dend[308](1)
  connect dend[315](0), dend[307](1)
  for i = 316, 317 connect dend[i](0), dend[i-1](1)
  connect dend[318](0), dend[316](1)
  connect dend[319](0), dend[315](1)
  connect dend[320](0), dend[306](1)
  connect dend[321](0), dend[305](1)
  for i = 322, 324 connect dend[i](0), dend[i-1](1)
  connect dend[325](0), dend[323](1)
  connect dend[326](0), dend[322](1)
  topol_1()
}
proc topol_1() {
  connect dend[327](0), dend[321](1)
  connect dend[328](0), dend[304](1)
  for i = 329, 330 connect dend[i](0), dend[i-1](1)
  connect dend[331](0), dend[329](1)
  connect dend[332](0), dend[328](1)
  for i = 333, 334 connect dend[i](0), dend[i-1](1)
  connect dend[335](0), dend[333](1)
  connect dend[336](0), dend[332](1)
  for i = 337, 339 connect dend[i](0), dend[i-1](1)
  connect dend[340](0), dend[338](1)
  connect dend[341](0), dend[337](1)
  connect dend[342](0), dend[336](1)
  connect dend[343](0), dend[303](1)
  for i = 344, 347 connect dend[i](0), dend[i-1](1)
  connect dend[348](0), dend[346](1)
  connect dend[349](0), dend[345](1)
  for i = 350, 351 connect dend[i](0), dend[349](1)
  for i = 352, 353 connect dend[i](0), dend[351](1)
  for i = 354, 355 connect dend[i](0), dend[i-1](1)
  connect dend[356](0), dend[354](1)
  connect dend[357](0), dend[353](1)
  for i = 358, 359 connect dend[i](0), dend[i-1](1)
  connect dend[360](0), dend[358](1)
  connect dend[361](0), dend[357](1)
  connect dend[362](0), dend[344](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[343](1)
  for i = 368, 370 connect dend[i](0), dend[i-1](1)
  connect dend[371](0), dend[369](1)
  connect dend[372](0), dend[368](1)
  for i = 373, 374 connect dend[i](0), dend[i-1](1)
  connect dend[375](0), dend[373](1)
  connect dend[376](0), dend[372](1)
  for i = 377, 379 connect dend[i](0), dend[i-1](1)
  connect dend[380](0), dend[378](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)
  for i = 385, 386 connect dend[i](0), dend[384](1)
  for i = 387, 388 connect dend[i](0), dend[386](1)
  connect dend[389](0), dend[377](1)
  for i = 390, 391 connect dend[i](0), dend[i-1](1)
  connect dend[392](0), dend[390](1)
  connect dend[393](0), dend[389](1)
  for i = 394, 395 connect dend[i](0), dend[i-1](1)
  connect dend[396](0), dend[394](1)
  connect dend[397](0), dend[393](1)
  connect dend[398](0), dend[376](1)
  connect dend[399](0), dend[367](1)
  for i = 400, 403 connect dend[i](0), dend[i-1](1)
  connect dend[404](0), dend[402](1)
  connect dend[405](0), dend[401](1)
  connect dend[406](0), dend[400](1)
  for i = 407, 408 connect dend[i](0), dend[406](1)
  connect dend[409](0), dend[399](1)
  connect dend[410](0), dend[302](1)
  for i = 411, 413 connect dend[i](0), dend[i-1](1)
  connect dend[414](0), dend[412](1)
  for i = 415, 417 connect dend[i](0), dend[i-1](1)
  connect dend[418](0), dend[416](1)
  connect dend[419](0), dend[415](1)
  for i = 420, 421 connect dend[i](0), dend[419](1)
  connect dend[422](0), dend[414](1)
  for i = 423, 424 connect dend[i](0), dend[422](1)
  connect dend[425](0), dend[411](1)
  for i = 426, 427 connect dend[i](0), dend[i-1](1)
  connect dend[428](0), dend[426](1)
  connect dend[429](0), dend[425](1)
  for i = 430, 431 connect dend[i](0), dend[429](1)
  for i = 432, 433 connect dend[i](0), dend[431](1)
  connect dend[434](0), dend[410](1)
  for i = 435, 436 connect dend[i](0), dend[i-1](1)
  connect dend[437](0), dend[435](1)
  connect dend[438](0), dend[434](1)
  for i = 439, 440 connect dend[i](0), dend[438](1)
  for i = 441, 442 connect dend[i](0), dend[440](1)
  connect dend[443](0), dend[149](1)
  for i = 444, 448 connect dend[i](0), dend[i-1](1)
  connect dend[449](0), dend[447](1)
  for i = 450, 451 connect dend[i](0), dend[i-1](1)
  connect dend[452](0), dend[450](1)
  connect dend[453](0), dend[449](1)
  for i = 454, 455 connect dend[i](0), dend[453](1)
  connect dend[456](0), dend[446](1)
  for i = 457, 459 connect dend[i](0), dend[i-1](1)
  connect dend[460](0), dend[458](1)
  connect dend[461](0), dend[457](1)
  for i = 462, 463 connect dend[i](0), dend[461](1)
  connect dend[464](0), dend[456](1)
  for i = 465, 466 connect dend[i](0), dend[464](1)
  connect dend[467](0), dend[445](1)
  for i = 468, 470 connect dend[i](0), dend[i-1](1)
  connect dend[471](0), dend[469](1)
  for i = 472, 473 connect dend[i](0), dend[i-1](1)
  connect dend[474](0), dend[472](1)
  for i = 475, 476 connect dend[i](0), dend[474](1)
  connect dend[477](0), dend[471](1)
  for i = 478, 480 connect dend[i](0), dend[i-1](1)
  connect dend[481](0), dend[479](1)
  connect dend[482](0), dend[478](1)
  connect dend[483](0), dend[477](1)
  connect dend[484](0), dend[468](1)
  for i = 485, 486 connect dend[i](0), dend[i-1](1)
  connect dend[487](0), dend[485](1)
  connect dend[488](0), dend[484](1)
  connect dend[489](0), dend[467](1)
  for i = 490, 491 connect dend[i](0), dend[i-1](1)
  connect dend[492](0), dend[490](1)
  connect dend[493](0), dend[489](1)
  connect dend[494](0), dend[444](1)
  for i = 495, 496 connect dend[i](0), dend[i-1](1)
  connect dend[497](0), dend[495](1)
  connect dend[498](0), dend[494](1)
  for i = 499, 500 connect dend[i](0), dend[498](1)
  connect dend[501](0), dend[443](1)
  for i = 502, 503 connect dend[i](0), dend[i-1](1)
  connect dend[504](0), dend[502](1)
  connect dend[505](0), dend[501](1)
  for i = 506, 507 connect dend[i](0), dend[i-1](1)
  connect dend[508](0), dend[506](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)
  for i = 513, 514 connect dend[i](0), dend[512](1)
  connect dend[515](0), dend[505](1)
  for i = 516, 518 connect dend[i](0), dend[i-1](1)
  connect dend[519](0), dend[517](1)
  connect dend[520](0), dend[516](1)
  connect dend[521](0), dend[515](1)
  for i = 522, 523 connect dend[i](0), dend[i-1](1)
  connect dend[524](0), dend[522](1)
  connect dend[525](0), dend[521](1)
  connect dend[526](0), dend[146](1)
  for i = 527, 531 connect dend[i](0), dend[i-1](1)
  connect dend[532](0), dend[530](1)
  for i = 533, 537 connect dend[i](0), dend[i-1](1)
  connect dend[538](0), dend[536](1)
  for i = 539, 540 connect dend[i](0), dend[538](1)
  connect dend[541](0), dend[535](1)
  connect dend[542](0), dend[534](1)
  connect dend[543](0), dend[533](1)
  connect dend[544](0), dend[532](1)
  for i = 545, 546 connect dend[i](0), dend[i-1](1)
  connect dend[547](0), dend[545](1)
  connect dend[548](0), dend[544](1)
  for i = 549, 550 connect dend[i](0), dend[i-1](1)
  connect dend[551](0), dend[549](1)
  connect dend[552](0), dend[548](1)
  connect dend[553](0), dend[529](1)
  for i = 554, 556 connect dend[i](0), dend[i-1](1)
  connect dend[557](0), dend[555](1)
  connect dend[558](0), dend[554](1)
  connect dend[559](0), dend[553](1)
  for i = 560, 563 connect dend[i](0), dend[i-1](1)
  connect dend[564](0), dend[562](1)
  connect dend[565](0), dend[561](1)
  connect dend[566](0), dend[560](1)
  connect dend[567](0), dend[559](1)
  connect dend[568](0), dend[528](1)
  for i = 569, 570 connect dend[i](0), dend[i-1](1)
  connect dend[571](0), dend[569](1)
  for i = 572, 573 connect dend[i](0), dend[571](1)
  connect dend[574](0), dend[568](1)
  connect dend[575](0), dend[527](1)
  for i = 576, 577 connect dend[i](0), dend[575](1)
  for i = 578, 581 connect dend[i](0), dend[i-1](1)
  connect dend[582](0), dend[580](1)
  for i = 583, 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)
  connect dend[589](0), dend[583](1)
  connect dend[590](0), dend[582](1)
  connect dend[591](0), dend[579](1)
  connect dend[592](0), dend[578](1)
  connect dend[593](0), dend[577](1)
  for i = 594, 595 connect dend[i](0), dend[i-1](1)
  connect dend[596](0), dend[594](1)
  connect dend[597](0), dend[593](1)
  connect dend[598](0), dend[526](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[603](1)
  connect dend[606](0), dend[598](1)
  for i = 607, 608 connect dend[i](0), dend[i-1](1)
  connect dend[609](0), dend[607](1)
  for i = 610, 612 connect dend[i](0), dend[i-1](1)
  connect dend[613](0), dend[611](1)
  connect dend[614](0), dend[610](1)
  for i = 615, 617 connect dend[i](0), dend[i-1](1)
  connect dend[618](0), dend[616](1)
  connect dend[619](0), dend[615](1)
  connect dend[620](0), dend[614](1)
  for i = 621, 622 connect dend[i](0), dend[620](1)
  connect dend[623](0), dend[609](1)
  connect dend[624](0), dend[606](1)
  for i = 625, 628 connect dend[i](0), dend[i-1](1)
  connect dend[629](0), dend[627](1)
  topol_2()
}
proc topol_2() {
  for i = 630, 631 connect dend[i](0), dend[629](1)
  connect dend[632](0), dend[626](1)
  for i = 633, 634 connect dend[i](0), dend[632](1)
  connect dend[635](0), dend[625](1)
  for i = 636, 637 connect dend[i](0), dend[635](1)
  connect dend[638](0), dend[624](1)
  for i = 639, 641 connect dend[i](0), dend[i-1](1)
  connect dend[642](0), dend[640](1)
  connect dend[643](0), dend[639](1)
  for i = 644, 645 connect dend[i](0), dend[643](1)
  connect dend[646](0), dend[638](1)
  connect dend[647](0), dend[1](1)
  for i = 648, 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, 656 connect dend[i](0), dend[i-1](1)
  connect dend[657](0), dend[655](1)
  connect dend[658](0), dend[654](1)
  for i = 659, 662 connect dend[i](0), dend[i-1](1)
  connect dend[663](0), dend[661](1)
  for i = 664, 665 connect dend[i](0), dend[663](1)
  connect dend[666](0), dend[660](1)
  for i = 667, 668 connect dend[i](0), dend[666](1)
  connect dend[669](0), dend[659](1)
  connect dend[670](0), dend[658](1)
  for i = 671, 672 connect dend[i](0), dend[670](1)
  connect dend[673](0), dend[653](1)
  for i = 674, 675 connect dend[i](0), dend[673](1)
  for i = 676, 677 connect dend[i](0), dend[675](1)
  connect dend[678](0), dend[652](1)
  for i = 679, 680 connect dend[i](0), dend[678](1)
  for i = 681, 682 connect dend[i](0), dend[680](1)
  for i = 683, 684 connect dend[i](0), dend[682](1)
  for i = 685, 686 connect dend[i](0), dend[684](1)
  connect dend[687](0), dend[647](1)
  for i = 688, 689 connect dend[i](0), dend[687](1)
  for i = 690, 691 connect dend[i](0), dend[i-1](1)
  connect dend[692](0), dend[690](1)
  connect dend[693](0), dend[689](1)
  for i = 694, 695 connect dend[i](0), dend[693](1)
  connect dend[696](0), dend(1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(4.8, 7.76, 5.6, 18.02)
	pt3dadd(4.96, 6.97, 5.6, 17.79)
	pt3dadd(5.1, 6.24, 5.6, 17.57)
	pt3dadd(5.51, 5.58, 5.6, 16.91)
	pt3dadd(5.51, 4.68, 5.6, 16.01)
	pt3dadd(5.62, 3.84, 5.6, 15.63)
	pt3dadd(5.51, 2.94, 5.6, 14.13)
	pt3dadd(5.77, 2.28, 5.6, 13.51)
	pt3dadd(5.58, 1.14, 5.6, 10.68)
	pt3dadd(5.07, 0.09, 5.6, 8.22)
	pt3dadd(5.25, -0.96, 5.6, 5.54)
	pt3dadd(5.38, -1.42, 5.6, 4.36)
	pt3dadd(6.35, -1.64, 5.6, 3)
	pt3dadd(6.46, -1.99, 5.6, 3)
  }
  soma[1] {pt3dclear()
	pt3dadd(4.8, 7.76, 5.6, 18.02)
	pt3dadd(4.74, 8.53, 5.6, 17.9)
	pt3dadd(4.24, 9.16, 5.6, 17.26)
	pt3dadd(4.1, 9.88, 5.6, 17.58)
	pt3dadd(3.86, 10.56, 5.6, 17.23)
	pt3dadd(3.77, 11.28, 5.6, 17.18)
	pt3dadd(3.47, 11.95, 5.6, 16.66)
	pt3dadd(3.09, 12.68, 5.6, 16.05)
	pt3dadd(2.85, 13.38, 5.6, 15.58)
	pt3dadd(2.6, 14.05, 5.6, 15.13)
	pt3dadd(2.26, 14.73, 5.6, 14.49)
	pt3dadd(2.05, 15.43, 5.6, 13.94)
	pt3dadd(1.85, 16.1, 5.6, 13.38)
	pt3dadd(1.74, 16.77, 5.6, 12.66)
	pt3dadd(1.44, 17.48, 5.6, 12.13)
	pt3dadd(1.27, 18.12, 5.6, 11.42)
	pt3dadd(0.98, 18.88, 5.6, 10.34)
	pt3dadd(0.8, 19.46, 5.6, 9.46)
	pt3dadd(0.68, 20.41, 5.6, 8.52)
	pt3dadd(0.46, 21, 5.6, 7.7)
	pt3dadd(-0.01, 21.22, 5.6, 6.14)
	pt3dadd(-0.45, 21.97, 5.6, 5.5)
	pt3dadd(-0.69, 22.54, 5.6, 5)
  }
  dend {pt3dclear()
	pt3dadd(-0.69, 22.54, 5.6, 4.8)
	pt3dadd(-0.86, 23.36, 5.6, 4.8)
	pt3dadd(-0.86, 25.85, 5.4, 4.06)
	pt3dadd(-0.86, 28.18, 5.4, 3.7)
	pt3dadd(-1.04, 30.83, 7, 3.32)
	pt3dadd(-1.6, 33.82, 7.2, 3.32)
	pt3dadd(-1.78, 36.65, 7.2, 3.32)
	pt3dadd(-2.34, 39.3, 7.2, 3.32)
	pt3dadd(-2.52, 41.8, 7.2, 3.32)
	pt3dadd(-3.26, 44.29, 7.2, 3.7)
  }
  dend[1] {pt3dclear()
	pt3dadd(-3.26, 44.29, 7.2, 3.7)
	pt3dadd(-3.5, 46.35, 8.4, 3.32)
	pt3dadd(-3.13, 48.84, 8.4, 2.96)
	pt3dadd(-2.95, 50.67, 8.4, 3.32)
	pt3dadd(-2.95, 52.33, 8.4, 3.7)
  }
  dend[2] {pt3dclear()
	pt3dadd(-2.95, 52.33, 8.4, 3.7)
	pt3dadd(-2.13, 55.28, 3.6, 3.7)
	pt3dadd(-1.02, 57.1, 3.8, 4.42)
  }
  dend[3] {pt3dclear()
	pt3dadd(-1.02, 57.1, 3.8, 4.42)
	pt3dadd(3.77, 56.01, 3.8, 4.06)
  }
  dend[4] {pt3dclear()
	pt3dadd(3.77, 56.01, 3.8, 4.06)
	pt3dadd(4.87, 53.36, 3.6, 2.58)
	pt3dadd(6.16, 51.2, 3.8, 2.22)
  }
  dend[5] {pt3dclear()
	pt3dadd(6.16, 51.2, 3.8, 2.22)
	pt3dadd(6.16, 48.37, 3.2, 1.48)
	pt3dadd(6.72, 46.38, 3.2, 1.48)
	pt3dadd(6.72, 43.55, 3.2, 1.48)
	pt3dadd(7.09, 41.23, 4.6, 1.84)
	pt3dadd(7.82, 38.07, 6, 2.22)
  }
  dend[6] {pt3dclear()
	pt3dadd(7.82, 38.07, 6, 2.22)
	pt3dadd(6.35, 35.91, 4.4, 1.84)
  }
  dend[7] {pt3dclear()
	pt3dadd(6.35, 35.91, 4.4, 1.84)
	pt3dadd(4.32, 36.41, 4.4, 1.84)
  }
  dend[8] {pt3dclear()
	pt3dadd(4.32, 36.41, 4.4, 1.84)
	pt3dadd(3.77, 38.74, 3.4, 1.1)
	pt3dadd(1.37, 40.56, 3.4, 1.1)
  }
  dend[9] {pt3dclear()
	pt3dadd(1.37, 40.56, 3.4, 1.1)
	pt3dadd(1.18, 43.22, 3.2, 1.48)
	pt3dadd(1.74, 44.55, 3.2, 1.1)
	pt3dadd(4.5, 46.21, 3.2, 1.1)
  }
  dend[10] {pt3dclear()
	pt3dadd(1.37, 40.56, 3.4, 1.1)
	pt3dadd(-0.85, 40.07, 5.4, 1.1)
	pt3dadd(-4.72, 38.41, 7.4, 1.1)
  }
  dend[11] {pt3dclear()
	pt3dadd(4.32, 36.41, 4.4, 1.84)
	pt3dadd(2.66, 35.08, 5.4, 1.1)
	pt3dadd(0.81, 34.58, 5.4, 1.48)
  }
  dend[12] {pt3dclear()
	pt3dadd(0.81, 34.58, 5.4, 1.48)
	pt3dadd(0.44, 35.75, 5.4, 1.1)
  }
  dend[13] {pt3dclear()
	pt3dadd(0.81, 34.58, 5.4, 1.48)
	pt3dadd(-1.4, 33.09, 5.4, 1.48)
	pt3dadd(-3.43, 33.09, 5.4, 1.48)
	pt3dadd(-5.46, 30.6, 7.2, 1.48)
	pt3dadd(-7.12, 26.94, 7, 1.48)
	pt3dadd(-8.78, 23.95, 8, 1.48)
  }
  dend[14] {pt3dclear()
	pt3dadd(6.35, 35.91, 4.4, 1.84)
	pt3dadd(5.98, 33.92, 4.2, 1.48)
  }
  dend[15] {pt3dclear()
	pt3dadd(5.98, 33.92, 4.2, 1.48)
	pt3dadd(5.06, 31.76, 4.6, 1.48)
  }
  dend[16] {pt3dclear()
	pt3dadd(5.06, 31.76, 4.6, 1.48)
	pt3dadd(2.47, 31.76, 3.6, 1.1)
	pt3dadd(1, 31.1, 3.6, 1.1)
	pt3dadd(-0.66, 29.44, 3.4, 1.1)
  }
  dend[17] {pt3dclear()
	pt3dadd(5.06, 31.76, 4.6, 1.48)
	pt3dadd(6.16, 28.11, 4.2, 1.48)
  }
  dend[18] {pt3dclear()
	pt3dadd(6.16, 28.11, 4.2, 1.48)
	pt3dadd(6.53, 25.12, 4.2, 1.48)
  }
  dend[19] {pt3dclear()
	pt3dadd(6.53, 25.12, 4.2, 1.48)
	pt3dadd(5.61, 21.13, 4.2, 1.1)
  }
  dend[20] {pt3dclear()
	pt3dadd(6.53, 25.12, 4.2, 1.48)
	pt3dadd(10.41, 22.29, 4.8, 1.1)
  }
  dend[21] {pt3dclear()
	pt3dadd(6.16, 28.11, 4.2, 1.48)
	pt3dadd(9.67, 26.94, 2.8, 1.1)
  }
  dend[22] {pt3dclear()
	pt3dadd(5.98, 33.92, 4.2, 1.48)
	pt3dadd(8.38, 30.93, 4.8, 1.1)
	pt3dadd(10.41, 28.27, 4.8, 1.1)
	pt3dadd(13.91, 25.45, 5.8, 1.1)
  }
  dend[23] {pt3dclear()
	pt3dadd(7.82, 38.07, 6, 2.22)
	pt3dadd(8.93, 34.58, 6, 1.1)
	pt3dadd(9.3, 33.92, 5.2, 1.1)
  }
  dend[24] {pt3dclear()
	pt3dadd(9.3, 33.92, 5.2, 1.1)
	pt3dadd(12.07, 28.94, 5.8, 1.1)
  }
  dend[25] {pt3dclear()
	pt3dadd(9.3, 33.92, 5.2, 1.1)
	pt3dadd(11.7, 34.42, 4.6, 1.1)
  }
  dend[26] {pt3dclear()
	pt3dadd(6.16, 51.2, 3.8, 2.22)
	pt3dadd(7.64, 51.36, 6.6, 1.84)
	pt3dadd(8.38, 51.36, 6.6, 2.22)
	pt3dadd(9.48, 50.37, 6.6, 2.22)
	pt3dadd(11.15, 50.37, 7.4, 2.22)
	pt3dadd(12.81, 50.03, 7.4, 1.48)
	pt3dadd(14.65, 49.2, 6.4, 1.48)
	pt3dadd(15.76, 47.54, 6.8, 1.84)
	pt3dadd(16.68, 46.21, 6, 1.84)
  }
  dend[27] {pt3dclear()
	pt3dadd(16.68, 46.21, 6, 1.84)
	pt3dadd(16.13, 43.72, 6, 1.48)
	pt3dadd(16.31, 41.06, 6, 1.48)
	pt3dadd(16.5, 39.07, 5.6, 1.84)
  }
  dend[28] {pt3dclear()
	pt3dadd(16.5, 39.07, 5.6, 1.84)
	pt3dadd(15.76, 36.91, 6.6, 1.1)
	pt3dadd(15.2, 35.08, 6.6, 1.1)
	pt3dadd(15.76, 32.26, 6.6, 1.1)
	pt3dadd(17.42, 29.93, 6.6, 1.1)
	pt3dadd(18.71, 27.94, 6.6, 1.48)
	pt3dadd(19.63, 26.45, 6.6, 1.48)
	pt3dadd(22.22, 24.95, 6.6, 1.84)
	pt3dadd(23.51, 23.46, 6, 1.48)
  }
  dend[29] {pt3dclear()
	pt3dadd(16.5, 39.07, 5.6, 1.84)
	pt3dadd(17.97, 37.41, 5.2, 1.1)
	pt3dadd(19.63, 35.58, 5.2, 1.1)
  }
  dend[30] {pt3dclear()
	pt3dadd(19.63, 35.58, 5.2, 1.1)
	pt3dadd(18.71, 32.76, 4, 1.1)
	pt3dadd(19.63, 30.6, 4, 1.48)
	pt3dadd(21.66, 28.44, 3.8, 1.48)
	pt3dadd(23.88, 24.45, 4, 1.1)
  }
  dend[31] {pt3dclear()
	pt3dadd(19.63, 35.58, 5.2, 1.1)
	pt3dadd(22.03, 33.59, 5.6, 1.48)
	pt3dadd(23.51, 31.93, 5.6, 1.84)
	pt3dadd(25.17, 30.43, 5.6, 1.48)
	pt3dadd(26.27, 28.27, 5.6, 1.48)
	pt3dadd(26.83, 25.78, 5.6, 1.48)
	pt3dadd(27.2, 23.95, 5.6, 1.48)
	pt3dadd(27.57, 22.13, 5.6, 1.48)
  }
  dend[32] {pt3dclear()
	pt3dadd(16.68, 46.21, 6, 1.84)
	pt3dadd(19.26, 44.39, 6.4, 1.84)
	pt3dadd(20.92, 42.89, 6.4, 1.84)
	pt3dadd(24.06, 42.06, 5.4, 1.84)
  }
  dend[33] {pt3dclear()
	pt3dadd(24.06, 42.06, 5.4, 1.84)
	pt3dadd(25.72, 40.4, 4.6, 1.84)
  }
  dend[34] {pt3dclear()
	pt3dadd(25.72, 40.4, 4.6, 1.84)
	pt3dadd(24.61, 39.07, 4.6, 2.22)
  }
  dend[35] {pt3dclear()
	pt3dadd(24.61, 39.07, 4.6, 2.22)
	pt3dadd(22.58, 37.41, 3.8, 1.1)
	pt3dadd(20.92, 36.08, 3.8, 1.1)
  }
  dend[36] {pt3dclear()
	pt3dadd(24.61, 39.07, 4.6, 2.22)
	pt3dadd(25.17, 37.24, 3.4, 1.48)
	pt3dadd(24.98, 35.58, 3.4, 1.48)
	pt3dadd(24.61, 34.75, 3.4, 1.48)
	pt3dadd(26.46, 32.76, 5.4, 1.48)
	pt3dadd(27.93, 30.93, 5.4, 1.48)
	pt3dadd(28.49, 30.1, 5.4, 1.48)
  }
  dend[37] {pt3dclear()
	pt3dadd(25.72, 40.4, 4.6, 1.84)
	pt3dadd(27.57, 39.57, 4.6, 1.48)
	pt3dadd(28.12, 37.41, 4.6, 1.48)
	pt3dadd(29.78, 35.58, 5, 1.48)
  }
  dend[38] {pt3dclear()
	pt3dadd(29.78, 35.58, 5, 1.48)
	pt3dadd(30.52, 32.92, 4.2, 1.84)
	pt3dadd(31.99, 30.43, 6.2, 1.84)
  }
  dend[39] {pt3dclear()
	pt3dadd(31.99, 30.43, 6.2, 1.84)
	pt3dadd(32.36, 27.28, 5.8, 1.1)
  }
  dend[40] {pt3dclear()
	pt3dadd(32.36, 27.28, 5.8, 1.1)
	pt3dadd(31.07, 26.28, 6.2, 1.1)
	pt3dadd(29.96, 24.78, 6.2, 1.1)
	pt3dadd(28.49, 23.46, 6.2, 1.1)
	pt3dadd(26.64, 22.46, 6.2, 1.1)
	pt3dadd(25.17, 20.96, 6.2, 1.1)
  }
  dend[41] {pt3dclear()
	pt3dadd(32.36, 27.28, 5.8, 1.1)
	pt3dadd(33.1, 24.12, 6.2, 1.48)
  }
  dend[42] {pt3dclear()
	pt3dadd(33.1, 24.12, 6.2, 1.48)
	pt3dadd(32.55, 21.79, 6.2, 1.48)
	pt3dadd(32.55, 19.97, 6.2, 1.48)
	pt3dadd(32.55, 17.81, 6.2, 1.48)
	pt3dadd(35.31, 13.65, 6.2, 1.84)
  }
  dend[43] {pt3dclear()
	pt3dadd(33.1, 24.12, 6.2, 1.48)
	pt3dadd(34.58, 22.13, 6, 1.1)
  }
}
proc shape3d_2() {
  dend[43] {	pt3dadd(35.13, 20.3, 6, 1.1)
	pt3dadd(36.61, 18.97, 6, 1.48)
	pt3dadd(37.34, 17.47, 6, 1.48)
	pt3dadd(41.22, 13.65, 5.6, 1.48)
  }
  dend[44] {pt3dclear()
	pt3dadd(31.99, 30.43, 6.2, 1.84)
	pt3dadd(34.02, 29.44, 6.2, 1.48)
	pt3dadd(37.34, 27.44, 7.6, 1.48)
	pt3dadd(40.3, 25.12, 7.6, 1.48)
	pt3dadd(42.88, 23.95, 7.6, 1.84)
	pt3dadd(45.65, 22.13, 6.4, 1.84)
	pt3dadd(48.41, 21.3, 6.4, 1.84)
	pt3dadd(52.1, 21.46, 6.4, 1.84)
	pt3dadd(54.32, 22.62, 6.4, 1.48)
  }
  dend[45] {pt3dclear()
	pt3dadd(29.78, 35.58, 5, 1.48)
	pt3dadd(32.73, 34.58, 5.2, 1.48)
	pt3dadd(34.95, 33.09, 5.2, 1.48)
	pt3dadd(36.79, 32.76, 6.8, 1.48)
	pt3dadd(39.56, 33.92, 6.8, 1.48)
	pt3dadd(41.59, 35.08, 5.8, 1.48)
	pt3dadd(44.36, 35.42, 5.8, 1.1)
  }
  dend[46] {pt3dclear()
	pt3dadd(24.06, 42.06, 5.4, 1.84)
	pt3dadd(26.27, 44.39, 5.6, 1.48)
	pt3dadd(27.93, 46.88, 5.6, 1.48)
	pt3dadd(28.86, 49.53, 5.6, 1.1)
  }
  dend[47] {pt3dclear()
	pt3dadd(3.77, 56.01, 3.8, 4.06)
	pt3dadd(4.87, 57.34, 3.8, 2.58)
	pt3dadd(6.72, 58.5, 3.8, 1.84)
	pt3dadd(9.48, 59, 3.2, 1.84)
	pt3dadd(14.28, 58.67, 3.6, 1.84)
	pt3dadd(16.31, 57.84, 3.4, 1.84)
  }
  dend[48] {pt3dclear()
	pt3dadd(16.31, 57.84, 3.4, 1.84)
	pt3dadd(18.53, 55.18, 2.2, 1.84)
  }
  dend[49] {pt3dclear()
	pt3dadd(18.53, 55.18, 2.2, 1.84)
	pt3dadd(20.19, 52.69, 2, 1.48)
  }
  dend[50] {pt3dclear()
	pt3dadd(20.19, 52.69, 2, 1.48)
	pt3dadd(18.71, 50.7, 2.6, 1.1)
	pt3dadd(17.6, 48.37, 2.6, 1.1)
	pt3dadd(16.86, 46.38, 2.6, 1.1)
  }
  dend[51] {pt3dclear()
	pt3dadd(20.19, 52.69, 2, 1.48)
	pt3dadd(21.66, 50.53, 3, 1.48)
	pt3dadd(23.51, 48.87, 3, 1.48)
	pt3dadd(25.35, 47.04, 2.2, 1.84)
  }
  dend[52] {pt3dclear()
	pt3dadd(25.35, 47.04, 2.2, 1.84)
	pt3dadd(24.98, 44.39, 3, 1.84)
  }
  dend[53] {pt3dclear()
	pt3dadd(24.98, 44.39, 3, 1.84)
	pt3dadd(22.77, 43.22, 2.2, 1.48)
	pt3dadd(20.19, 42.23, 2.2, 1.48)
	pt3dadd(17.6, 42.06, 2.2, 1.48)
  }
  dend[54] {pt3dclear()
	pt3dadd(17.6, 42.06, 2.2, 1.48)
	pt3dadd(15.76, 42.89, 2.8, 1.48)
	pt3dadd(14.28, 45.55, 2.8, 1.48)
	pt3dadd(13.91, 47.54, 2.8, 1.48)
	pt3dadd(13.36, 50.03, 2.8, 1.48)
	pt3dadd(12.99, 51.86, 2.8, 1.1)
	pt3dadd(11.88, 53.52, 2.8, 1.1)
	pt3dadd(11.15, 55.18, 2.8, 1.1)
	pt3dadd(10.41, 56.51, 2.6, 0.74)
  }
  dend[55] {pt3dclear()
	pt3dadd(17.6, 42.06, 2.2, 1.48)
	pt3dadd(16.5, 40.23, 3.4, 1.48)
	pt3dadd(14.84, 39.4, 3.4, 1.48)
	pt3dadd(13.36, 38.24, 3.4, 1.48)
	pt3dadd(13.54, 36.08, 3.4, 1.48)
	pt3dadd(14.28, 33.26, 3.4, 1.48)
  }
  dend[56] {pt3dclear()
	pt3dadd(14.28, 33.26, 3.4, 1.48)
	pt3dadd(14.65, 29.44, 3.4, 1.1)
  }
  dend[57] {pt3dclear()
	pt3dadd(14.28, 33.26, 3.4, 1.48)
	pt3dadd(16.86, 30.76, 3, 1.1)
  }
  dend[58] {pt3dclear()
	pt3dadd(24.98, 44.39, 3, 1.84)
	pt3dadd(27.93, 42.89, 3.4, 1.48)
	pt3dadd(30.15, 42.06, 3.4, 1.1)
	pt3dadd(32.73, 40.56, 3.4, 1.48)
	pt3dadd(34.76, 39.07, 2, 1.1)
  }
  dend[59] {pt3dclear()
	pt3dadd(25.35, 47.04, 2.2, 1.84)
	pt3dadd(27.2, 46.88, 2.6, 1.84)
	pt3dadd(29.41, 46.88, 2.6, 1.48)
	pt3dadd(31.62, 46.54, 1.6, 1.84)
  }
  dend[60] {pt3dclear()
	pt3dadd(31.62, 46.54, 1.6, 1.84)
	pt3dadd(32.36, 44.55, 1.8, 1.48)
	pt3dadd(33.65, 43.55, 1.8, 1.1)
	pt3dadd(35.5, 42.06, 1.8, 1.48)
	pt3dadd(36.79, 40.56, 1.8, 1.1)
	pt3dadd(37.9, 38.41, 1.8, 1.1)
	pt3dadd(38.82, 36.41, 1.8, 1.1)
	pt3dadd(38.27, 34.25, 4.8, 1.48)
  }
  dend[61] {pt3dclear()
	pt3dadd(31.62, 46.54, 1.6, 1.84)
	pt3dadd(32.18, 47.87, 3, 1.84)
  }
  dend[62] {pt3dclear()
	pt3dadd(32.18, 47.87, 3, 1.84)
	pt3dadd(34.21, 48.37, 2.4, 1.1)
	pt3dadd(35.68, 47.71, 2.4, 1.1)
	pt3dadd(37.53, 46.71, 2.4, 1.48)
	pt3dadd(40.3, 46.71, 2.4, 1.48)
	pt3dadd(43.06, 47.21, 2.4, 1.48)
	pt3dadd(45.28, 47.54, 2.4, 1.48)
	pt3dadd(47.49, 47.21, 2.4, 1.48)
	pt3dadd(48.78, 46.88, 2.4, 1.48)
  }
  dend[63] {pt3dclear()
	pt3dadd(32.18, 47.87, 3, 1.84)
	pt3dadd(31.26, 49.53, 3, 1.1)
	pt3dadd(29.96, 51.36, 3, 1.1)
	pt3dadd(28.49, 53.02, 3, 0.74)
  }
  dend[64] {pt3dclear()
	pt3dadd(18.53, 55.18, 2.2, 1.84)
	pt3dadd(22.58, 54.35, 2.2, 1.1)
	pt3dadd(24.98, 53.85, 2.2, 1.1)
	pt3dadd(27.01, 53.52, 2.2, 1.1)
  }
  dend[65] {pt3dclear()
	pt3dadd(16.31, 57.84, 3.4, 1.84)
	pt3dadd(19.63, 57.84, 4.2, 1.48)
	pt3dadd(22.58, 56.84, 3, 1.48)
	pt3dadd(24.98, 56.51, 3.2, 1.48)
	pt3dadd(27.38, 56.35, 3.2, 1.48)
  }
  dend[66] {pt3dclear()
	pt3dadd(27.38, 56.35, 3.2, 1.48)
	pt3dadd(29.23, 56.35, 4.6, 1.84)
  }
  dend[67] {pt3dclear()
	pt3dadd(29.23, 56.35, 4.6, 1.84)
	pt3dadd(31.07, 54.35, 3.8, 1.84)
  }
  dend[68] {pt3dclear()
	pt3dadd(31.07, 54.35, 3.8, 1.84)
	pt3dadd(32.18, 52.36, 4.2, 1.48)
	pt3dadd(33.65, 50.7, 4.2, 1.1)
	pt3dadd(36.42, 48.21, 4.6, 1.48)
  }
  dend[69] {pt3dclear()
	pt3dadd(36.42, 48.21, 4.6, 1.48)
	pt3dadd(38.27, 46.88, 4.8, 1.84)
  }
  dend[70] {pt3dclear()
	pt3dadd(38.27, 46.88, 4.8, 1.84)
	pt3dadd(38.45, 44.55, 6.2, 1.48)
	pt3dadd(40.67, 42.39, 6.2, 1.1)
  }
  dend[71] {pt3dclear()
	pt3dadd(38.27, 46.88, 4.8, 1.84)
	pt3dadd(41.03, 46.21, 6, 1.84)
	pt3dadd(43.06, 45.05, 6, 1.84)
  }
  dend[72] {pt3dclear()
	pt3dadd(43.06, 45.05, 6, 1.84)
	pt3dadd(41.22, 42.06, 4.8, 1.48)
	pt3dadd(40.67, 40.23, 4.8, 1.48)
  }
  dend[73] {pt3dclear()
	pt3dadd(43.06, 45.05, 6, 1.84)
	pt3dadd(46.39, 43.89, 5.6, 1.84)
  }
  dend[74] {pt3dclear()
	pt3dadd(46.39, 43.89, 5.6, 1.84)
	pt3dadd(47.68, 40.56, 4.8, 1.84)
  }
  dend[75] {pt3dclear()
	pt3dadd(47.68, 40.56, 4.8, 1.84)
	pt3dadd(47.12, 37.74, 6, 1.48)
	pt3dadd(46.94, 35.75, 6, 1.48)
  }
  dend[76] {pt3dclear()
	pt3dadd(47.68, 40.56, 4.8, 1.84)
	pt3dadd(49.89, 39.4, 4.8, 1.48)
	pt3dadd(53.03, 38.57, 7, 1.48)
	pt3dadd(54.69, 38.74, 7, 1.48)
	pt3dadd(56.72, 37.24, 7, 1.48)
  }
  dend[77] {pt3dclear()
	pt3dadd(46.39, 43.89, 5.6, 1.84)
	pt3dadd(49.89, 43.89, 5.4, 1.48)
  }
  dend[78] {pt3dclear()
	pt3dadd(49.89, 43.89, 5.4, 1.48)
	pt3dadd(53.77, 41.89, 6.8, 1.48)
  }
  dend[79] {pt3dclear()
	pt3dadd(49.89, 43.89, 5.4, 1.48)
	pt3dadd(53.03, 45.71, 7, 1.1)
  }
  dend[80] {pt3dclear()
	pt3dadd(36.42, 48.21, 4.6, 1.48)
	pt3dadd(39.37, 48.7, 4.6, 1.48)
	pt3dadd(41.77, 49.37, 4.6, 1.48)
	pt3dadd(43.8, 49.7, 4.6, 1.48)
	pt3dadd(46.02, 49.04, 4.6, 1.48)
	pt3dadd(48.78, 48.21, 4.6, 1.48)
	pt3dadd(52.47, 47.71, 4.6, 1.48)
  }
  dend[81] {pt3dclear()
	pt3dadd(52.47, 47.71, 4.6, 1.48)
	pt3dadd(54.13, 45.55, 4.2, 1.1)
  }
  dend[82] {pt3dclear()
	pt3dadd(52.47, 47.71, 4.6, 1.48)
	pt3dadd(54.32, 49.37, 4.6, 1.48)
	pt3dadd(55.06, 50.86, 4.6, 1.48)
	pt3dadd(55.06, 52.86, 4.6, 1.1)
  }
  dend[83] {pt3dclear()
	pt3dadd(31.07, 54.35, 3.8, 1.84)
	pt3dadd(33.84, 54.35, 3.8, 1.48)
	pt3dadd(36.61, 53.69, 3.8, 1.48)
	pt3dadd(38.64, 53.19, 3.8, 1.48)
	pt3dadd(40.48, 53.36, 4.4, 1.84)
	pt3dadd(42.14, 54.52, 4.4, 1.84)
	pt3dadd(43.8, 56.35, 4.4, 1.84)
	pt3dadd(46.02, 56.68, 4.4, 1.48)
	pt3dadd(47.68, 57.01, 4.4, 1.84)
	pt3dadd(50.26, 58.84, 5.6, 1.84)
  }
  dend[84] {pt3dclear()
	pt3dadd(29.23, 56.35, 4.6, 1.84)
	pt3dadd(31.44, 58.01, 2.8, 1.48)
	pt3dadd(34.95, 58.17, 2.8, 1.48)
	pt3dadd(37.53, 59.34, 2.8, 1.48)
	pt3dadd(40.48, 60.66, 2.8, 1.48)
	pt3dadd(42.14, 62.82, 2.8, 1.48)
	pt3dadd(42.51, 64.82, 2.8, 1.48)
  }
  dend[85] {pt3dclear()
	pt3dadd(27.38, 56.35, 3.2, 1.48)
	pt3dadd(24.24, 59.34, 3.2, 1.1)
  }
  dend[86] {pt3dclear()
	pt3dadd(-1.02, 57.1, 3.8, 4.42)
	pt3dadd(-0.65, 59.1, 3.8, 3.7)
	pt3dadd(-0.65, 60.43, 3.6, 3.32)
	pt3dadd(-0.65, 62.59, 3.6, 2.96)
	pt3dadd(-0.65, 65.24, 3.4, 2.96)
	pt3dadd(-0.65, 67.9, 3.4, 2.96)
	pt3dadd(-0.65, 70.39, 3.4, 3.32)
	pt3dadd(-0.65, 72.22, 3.4, 3.7)
	pt3dadd(-1.02, 73.88, 3.4, 4.06)
  }
  dend[87] {pt3dclear()
	pt3dadd(-1.02, 73.88, 3.4, 4.06)
	pt3dadd(2.05, 76.83, 3.6, 1.84)
	pt3dadd(3.15, 79.32, 3.6, 1.84)
	pt3dadd(4.63, 80.82, 3.6, 2.22)
	pt3dadd(6.11, 81.65, 3.6, 2.22)
  }
  dend[88] {pt3dclear()
	pt3dadd(6.11, 81.65, 3.6, 2.22)
	pt3dadd(8.5, 81.82, 3.2, 1.84)
	pt3dadd(10.53, 81.65, 3.2, 1.84)
	pt3dadd(12.56, 81.98, 3.2, 1.84)
  }
  dend[89] {pt3dclear()
	pt3dadd(12.56, 81.98, 3.2, 1.84)
	pt3dadd(12.38, 80.49, 1.4, 1.84)
	pt3dadd(12.38, 79.32, 1.4, 1.48)
	pt3dadd(12.38, 78, 1.4, 1.1)
	pt3dadd(11.83, 76.17, 1.6, 1.48)
  }
}
proc shape3d_3() {
  dend[89] {	pt3dadd(11.09, 75.01, 1.8, 1.48)
	pt3dadd(9.98, 72.35, 1.4, 1.84)
  }
  dend[90] {pt3dclear()
	pt3dadd(9.98, 72.35, 1.4, 1.84)
	pt3dadd(6.11, 70.69, 0.8, 1.84)
  }
  dend[91] {pt3dclear()
	pt3dadd(6.11, 70.69, 0.8, 1.84)
	pt3dadd(2.35, 73.61, 0.2, 0.74)
  }
  dend[92] {pt3dclear()
	pt3dadd(6.11, 70.69, 0.8, 1.84)
	pt3dadd(4.81, 69.36, 1.2, 1.84)
  }
  dend[93] {pt3dclear()
	pt3dadd(4.81, 69.36, 1.2, 1.84)
	pt3dadd(-0.42, 65.96, 0.4, 0.74)
  }
  dend[94] {pt3dclear()
	pt3dadd(4.81, 69.36, 1.2, 1.84)
	pt3dadd(3.64, 64.3, 1.2, 1.1)
  }
  dend[95] {pt3dclear()
	pt3dadd(3.64, 64.3, 1.2, 1.1)
	pt3dadd(2.53, 57.16, 0.6, 0.74)
  }
  dend[96] {pt3dclear()
	pt3dadd(3.64, 64.3, 1.2, 1.1)
	pt3dadd(6.41, 61.48, 1.2, 0.74)
  }
  dend[97] {pt3dclear()
	pt3dadd(9.98, 72.35, 1.4, 1.84)
	pt3dadd(10.72, 69.69, 3.2, 1.48)
	pt3dadd(11.27, 66.87, 3.2, 1.84)
  }
  dend[98] {pt3dclear()
	pt3dadd(11.27, 66.87, 3.2, 1.84)
	pt3dadd(11.46, 63.21, 2.4, 1.84)
	pt3dadd(11.46, 60.22, 2.4, 1.84)
	pt3dadd(12.01, 57.9, 2.6, 1.48)
	pt3dadd(14.04, 54.57, 2.6, 1.48)
  }
  dend[99] {pt3dclear()
	pt3dadd(11.27, 66.87, 3.2, 1.84)
	pt3dadd(14.78, 62.88, 3.6, 0.74)
  }
  dend[100] {pt3dclear()
	pt3dadd(12.56, 81.98, 3.2, 1.84)
	pt3dadd(14.04, 82.31, 3.2, 1.84)
	pt3dadd(15.52, 82.65, 3.2, 1.48)
	pt3dadd(17.55, 82.98, 3.2, 1.84)
  }
  dend[101] {pt3dclear()
	pt3dadd(17.55, 82.98, 3.2, 1.84)
	pt3dadd(19.21, 81.82, 2.4, 1.84)
  }
  dend[102] {pt3dclear()
	pt3dadd(19.21, 81.82, 2.4, 1.84)
	pt3dadd(19.94, 78.83, 3, 1.48)
	pt3dadd(20.68, 76.17, 3, 1.48)
	pt3dadd(20.87, 74.51, 3, 1.84)
  }
  dend[103] {pt3dclear()
	pt3dadd(20.87, 74.51, 3, 1.84)
	pt3dadd(17.36, 73.51, 3.4, 1.1)
	pt3dadd(15.7, 73.18, 3.4, 1.1)
	pt3dadd(14.04, 72.18, 3.4, 0.74)
  }
  dend[104] {pt3dclear()
	pt3dadd(20.87, 74.51, 3, 1.84)
	pt3dadd(20.87, 73.18, 3.2, 1.84)
  }
  dend[105] {pt3dclear()
	pt3dadd(20.87, 73.18, 3.2, 1.84)
	pt3dadd(21.24, 70.02, 3.2, 1.84)
	pt3dadd(21.24, 68.03, 3, 1.84)
  }
  dend[106] {pt3dclear()
	pt3dadd(21.24, 68.03, 3, 1.84)
	pt3dadd(21.24, 66.04, 2, 1.84)
  }
  dend[107] {pt3dclear()
	pt3dadd(21.24, 66.04, 2, 1.84)
	pt3dadd(18.65, 64.21, 2.4, 1.48)
	pt3dadd(15.89, 61.72, 4.2, 1.1)
  }
  dend[108] {pt3dclear()
	pt3dadd(21.24, 66.04, 2, 1.84)
	pt3dadd(21.97, 63.38, 3, 1.1)
	pt3dadd(22.16, 61.88, 3, 1.1)
	pt3dadd(20.68, 58.89, 3, 1.1)
  }
  dend[109] {pt3dclear()
	pt3dadd(20.68, 58.89, 3, 1.1)
	pt3dadd(16.99, 56.23, 2.8, 0.74)
  }
  dend[110] {pt3dclear()
	pt3dadd(20.68, 58.89, 3, 1.1)
	pt3dadd(23.27, 52.58, 2.4, 0.74)
  }
  dend[111] {pt3dclear()
	pt3dadd(21.24, 68.03, 3, 1.84)
	pt3dadd(23.63, 66.7, 3.8, 1.1)
	pt3dadd(26.59, 64.54, 3.8, 1.48)
	pt3dadd(29.17, 62.71, 2.4, 1.48)
	pt3dadd(31.2, 61.72, 2.4, 1.48)
  }
  dend[112] {pt3dclear()
	pt3dadd(20.87, 73.18, 3.2, 1.84)
	pt3dadd(23.63, 72.18, 2.6, 1.1)
	pt3dadd(24.93, 70.69, 2.6, 1.1)
	pt3dadd(26.03, 69.52, 2.6, 1.1)
	pt3dadd(26.59, 68.03, 2.6, 0.74)
  }
  dend[113] {pt3dclear()
	pt3dadd(19.21, 81.82, 2.4, 1.84)
	pt3dadd(23.08, 80.82, 3.2, 1.48)
  }
  dend[114] {pt3dclear()
	pt3dadd(23.08, 80.82, 3.2, 1.48)
	pt3dadd(23.82, 78.16, 3.6, 1.48)
	pt3dadd(25.29, 76.5, 3, 1.84)
	pt3dadd(26.96, 74.84, 3.4, 2.22)
  }
  dend[115] {pt3dclear()
	pt3dadd(26.96, 74.84, 3.4, 2.22)
	pt3dadd(26.77, 73.01, 4, 1.48)
	pt3dadd(27.51, 71.68, 4, 1.48)
	pt3dadd(28.98, 69.36, 3.2, 1.48)
  }
  dend[116] {pt3dclear()
	pt3dadd(28.98, 69.36, 3.2, 1.48)
	pt3dadd(29.17, 67.36, 4.2, 1.1)
	pt3dadd(29.54, 65.87, 4.2, 1.1)
	pt3dadd(30.46, 65.04, 4.2, 0.74)
  }
  dend[117] {pt3dclear()
	pt3dadd(28.98, 69.36, 3.2, 1.48)
	pt3dadd(31.2, 69.19, 3.2, 1.1)
  }
  dend[118] {pt3dclear()
	pt3dadd(26.96, 74.84, 3.4, 2.22)
	pt3dadd(29.17, 73.84, 3.4, 1.84)
	pt3dadd(30.83, 72.68, 4.2, 2.22)
  }
  dend[119] {pt3dclear()
	pt3dadd(30.83, 72.68, 4.2, 2.22)
	pt3dadd(32.67, 69.69, 4.4, 2.22)
  }
  dend[120] {pt3dclear()
	pt3dadd(32.67, 69.69, 4.4, 2.22)
	pt3dadd(32.12, 66.37, 3.4, 1.1)
	pt3dadd(32.31, 64.04, 4.2, 1.48)
	pt3dadd(32.67, 62.38, 4.2, 1.48)
  }
  dend[121] {pt3dclear()
	pt3dadd(32.67, 69.69, 4.4, 2.22)
	pt3dadd(35.26, 69.52, 4.2, 1.48)
	pt3dadd(36.73, 69.36, 4.4, 1.48)
  }
  dend[122] {pt3dclear()
	pt3dadd(36.73, 69.36, 4.4, 1.48)
	pt3dadd(38.21, 67.2, 3, 1.48)
	pt3dadd(40.24, 66.37, 3, 1.48)
  }
  dend[123] {pt3dclear()
	pt3dadd(40.24, 66.37, 3, 1.48)
	pt3dadd(39.87, 63.54, 3.2, 1.1)
	pt3dadd(40.98, 61.55, 3.2, 1.1)
  }
  dend[124] {pt3dclear()
	pt3dadd(40.24, 66.37, 3, 1.48)
	pt3dadd(43.19, 65.87, 3, 1.48)
	pt3dadd(45.77, 66.53, 3, 1.1)
	pt3dadd(48.54, 67.53, 3, 0.74)
  }
  dend[125] {pt3dclear()
	pt3dadd(36.73, 69.36, 4.4, 1.48)
	pt3dadd(40.24, 69.86, 3.8, 1.84)
  }
  dend[126] {pt3dclear()
	pt3dadd(40.24, 69.86, 3.8, 1.84)
	pt3dadd(42.64, 67.36, 4.2, 1.48)
	pt3dadd(44.67, 65.04, 4.2, 1.48)
	pt3dadd(46.14, 63.54, 4.2, 1.84)
  }
  dend[127] {pt3dclear()
	pt3dadd(46.14, 63.54, 4.2, 1.84)
	pt3dadd(50.39, 60.22, 4.4, 1.48)
  }
  dend[128] {pt3dclear()
	pt3dadd(46.14, 63.54, 4.2, 1.84)
	pt3dadd(49.83, 66.37, 4.8, 1.1)
  }
  dend[129] {pt3dclear()
	pt3dadd(40.24, 69.86, 3.8, 1.84)
	pt3dadd(43.19, 70.19, 4.2, 1.48)
	pt3dadd(45.77, 70.35, 4.2, 1.48)
	pt3dadd(48.36, 70.19, 4.2, 1.48)
	pt3dadd(50.2, 70.35, 4.2, 1.48)
	pt3dadd(53.15, 71.35, 4.2, 1.48)
  }
  dend[130] {pt3dclear()
	pt3dadd(30.83, 72.68, 4.2, 2.22)
	pt3dadd(32.86, 73.34, 4.2, 1.48)
	pt3dadd(36, 73.68, 4.2, 1.1)
  }
  dend[131] {pt3dclear()
	pt3dadd(23.08, 80.82, 3.2, 1.48)
	pt3dadd(26.4, 81.32, 3.4, 1.48)
  }
  dend[132] {pt3dclear()
	pt3dadd(26.4, 81.32, 3.4, 1.48)
	pt3dadd(28.06, 79.99, 3, 1.48)
	pt3dadd(30.09, 79.66, 3, 1.48)
	pt3dadd(32.67, 78.66, 3, 1.48)
	pt3dadd(35.26, 77.66, 3, 1.48)
	pt3dadd(37.66, 76.17, 3, 1.48)
	pt3dadd(40.42, 74.34, 3, 1.1)
  }
  dend[133] {pt3dclear()
	pt3dadd(26.4, 81.32, 3.4, 1.48)
	pt3dadd(27.69, 83.64, 3.2, 1.48)
	pt3dadd(29.17, 85.8, 3.2, 1.1)
  }
  dend[134] {pt3dclear()
	pt3dadd(17.55, 82.98, 3.2, 1.84)
	pt3dadd(18.28, 85.64, 3.2, 1.84)
	pt3dadd(19.02, 87.8, 3.2, 1.84)
  }
  dend[135] {pt3dclear()
	pt3dadd(19.02, 87.8, 3.2, 1.84)
	pt3dadd(21.24, 88.13, 4.4, 1.48)
	pt3dadd(23.08, 87.96, 4.4, 1.48)
	pt3dadd(24.74, 87.63, 4.4, 1.1)
	pt3dadd(26.96, 87.3, 4.4, 1.48)
	pt3dadd(28.8, 87.8, 4.4, 1.48)
  }
  dend[136] {pt3dclear()
	pt3dadd(19.02, 87.8, 3.2, 1.84)
	pt3dadd(17.18, 89.29, 2.4, 1.48)
  }
  dend[137] {pt3dclear()
	pt3dadd(17.18, 89.29, 2.4, 1.48)
	pt3dadd(16.62, 91.45, 2.4, 1.1)
  }
  dend[138] {pt3dclear()
	pt3dadd(16.62, 91.45, 2.4, 1.1)
	pt3dadd(17.36, 95.44, 1.8, 1.1)
  }
  dend[139] {pt3dclear()
	pt3dadd(16.62, 91.45, 2.4, 1.1)
	pt3dadd(14.41, 92.45, 2.4, 0.74)
  }
  dend[140] {pt3dclear()
	pt3dadd(17.18, 89.29, 2.4, 1.48)
	pt3dadd(14.78, 89.12, 1.8, 1.48)
	pt3dadd(13.67, 89.46, 2, 1.48)
  }
  dend[141] {pt3dclear()
	pt3dadd(13.67, 89.46, 2, 1.48)
	pt3dadd(12.75, 90.62, 2, 1.1)
  }
  dend[142] {pt3dclear()
	pt3dadd(13.67, 89.46, 2, 1.48)
	pt3dadd(11.83, 87.46, 2, 1.48)
  }
  dend[143] {pt3dclear()
	pt3dadd(11.83, 87.46, 2, 1.48)
	pt3dadd(9.8, 87.3, 2, 1.1)
	pt3dadd(8.14, 87.3, 2, 1.1)
	pt3dadd(6.66, 88.13, 3, 1.1)
  }
  dend[144] {pt3dclear()
	pt3dadd(11.83, 87.46, 2, 1.48)
	pt3dadd(11.09, 85.8, 2.4, 1.1)
	pt3dadd(9.43, 83.48, 2.4, 1.1)
  }
  dend[145] {pt3dclear()
	pt3dadd(6.11, 81.65, 3.6, 2.22)
	pt3dadd(7.58, 85.14, 2, 1.1)
	pt3dadd(9.43, 87.63, 2, 1.1)
	pt3dadd(10.17, 90.12, 0.6, 1.48)
	pt3dadd(10.9, 92.45, 0.6, 1.48)
	pt3dadd(12.56, 94.77, 0.6, 1.48)
	pt3dadd(14.59, 96.27, 0.6, 1.48)
	pt3dadd(15.7, 99.42, 0.6, 1.48)
	pt3dadd(15.52, 101.92, 0.6, 1.48)
	pt3dadd(15.15, 104.57, 0.6, 1.1)
  }
  dend[146] {pt3dclear()
	pt3dadd(-1.02, 73.88, 3.4, 4.06)
	pt3dadd(-1.58, 75.38, 3.2, 3.32)
	pt3dadd(-1.95, 77.7, 2.8, 2.96)
	pt3dadd(-2.5, 80.03, 2.8, 2.96)
	pt3dadd(-2.68, 83.02, 2.8, 2.96)
	pt3dadd(-2.38, 84.55, 3.4, 3.32)
	pt3dadd(-2.38, 85.88, 3.4, 4.06)
  }
  dend[147] {pt3dclear()
	pt3dadd(-2.38, 85.88, 3.4, 4.06)
	pt3dadd(-2.46, 87.48, 6.2, 4.8)
  }
  dend[148] {pt3dclear()
	pt3dadd(-2.46, 87.48, 6.2, 4.8)
	pt3dadd(0.58, 88.05, 0.6, 1.1)
	pt3dadd(2.24, 89.38, 0.6, 1.1)
	pt3dadd(4.46, 92.7, 1.6, 1.1)
	pt3dadd(6.49, 94.36, 1.6, 1.48)
	pt3dadd(8.7, 96.69, 1.6, 1.48)
	pt3dadd(11.29, 97.69, 1.6, 1.48)
	pt3dadd(13.13, 98.18, 1.6, 1.84)
	pt3dadd(14.98, 97.69, 1.6, 1.84)
	pt3dadd(17.93, 98.35, 3.4, 1.84)
	pt3dadd(20.14, 99.85, 2, 1.48)
	pt3dadd(21.99, 101.17, 2, 1.48)
	pt3dadd(24.2, 104.83, 2, 1.48)
  }
}
proc shape3d_4() {
  dend[148] {	pt3dadd(25.31, 106.99, 3, 1.48)
	pt3dadd(25.68, 108.48, 3, 1.48)
  }
  dend[149] {pt3dclear()
	pt3dadd(-2.46, 87.48, 6.2, 4.8)
	pt3dadd(-2.27, 90.3, 6.2, 4.06)
	pt3dadd(-2.09, 92.46, 6.2, 3.7)
	pt3dadd(-2.27, 95.29, 6.2, 3.32)
	pt3dadd(-2.27, 97.45, 6.2, 3.32)
	pt3dadd(-2.64, 99.77, 6.2, 3.32)
	pt3dadd(-3.01, 101.43, 6.2, 3.32)
	pt3dadd(-3.38, 102.1, 6.2, 3.7)
	pt3dadd(-3.56, 102.93, 6.2, 4.06)
	pt3dadd(-3.93, 104.92, 5.8, 4.42)
  }
  dend[150] {pt3dclear()
	pt3dadd(-3.93, 104.92, 5.8, 4.42)
	pt3dadd(-2.76, 107.21, -0.6, 4.06)
	pt3dadd(-2.02, 108.87, -0.6, 4.8)
	pt3dadd(-1.65, 109.87, -0.6, 5.16)
  }
  dend[151] {pt3dclear()
	pt3dadd(-1.65, 109.87, -0.6, 5.16)
	pt3dadd(-1.34, 110.81, -0.8, 4.8)
  }
  dend[152] {pt3dclear()
	pt3dadd(-1.34, 110.81, -0.8, 4.8)
	pt3dadd(1.69, 110.55, -1, 1.48)
	pt3dadd(4.27, 110.72, -1.8, 1.48)
	pt3dadd(6.49, 111.88, -1.8, 1.48)
	pt3dadd(9.07, 113.54, -2.4, 1.48)
	pt3dadd(10.91, 115.7, -2.4, 1.48)
	pt3dadd(12.57, 116.36, -2.4, 1.48)
  }
  dend[153] {pt3dclear()
	pt3dadd(12.57, 116.36, -2.4, 1.48)
	pt3dadd(16.26, 116.53, -2.6, 1.48)
	pt3dadd(19.77, 116.86, -2.6, 1.48)
  }
  dend[154] {pt3dclear()
	pt3dadd(19.77, 116.86, -2.6, 1.48)
	pt3dadd(21.8, 115.86, -3.2, 1.48)
	pt3dadd(23.83, 115.03, -3.2, 1.48)
	pt3dadd(24.38, 114.37, -3.2, 1.48)
  }
  dend[155] {pt3dclear()
	pt3dadd(24.38, 114.37, -3.2, 1.48)
	pt3dadd(23.27, 112.71, -2.6, 1.1)
	pt3dadd(23.27, 110.38, -2.6, 1.1)
	pt3dadd(24.01, 109.05, -2.6, 1.1)
  }
  dend[156] {pt3dclear()
	pt3dadd(24.38, 114.37, -3.2, 1.48)
	pt3dadd(25.49, 113.21, -3.2, 1.48)
  }
  dend[157] {pt3dclear()
	pt3dadd(25.49, 113.21, -3.2, 1.48)
	pt3dadd(26.41, 111.05, -3.2, 1.1)
	pt3dadd(27.33, 109.55, -3.2, 1.1)
  }
  dend[158] {pt3dclear()
	pt3dadd(27.33, 109.55, -3.2, 1.1)
	pt3dadd(26.96, 101.75, -2, 1.48)
  }
  dend[159] {pt3dclear()
	pt3dadd(27.33, 109.55, -3.2, 1.1)
	pt3dadd(29.92, 107.39, -3.2, 1.1)
  }
  dend[160] {pt3dclear()
	pt3dadd(29.92, 107.39, -3.2, 1.1)
	pt3dadd(31.58, 102.41, -0.4, 1.1)
  }
  dend[161] {pt3dclear()
	pt3dadd(29.92, 107.39, -3.2, 1.1)
	pt3dadd(32.87, 107.89, -3.2, 1.1)
  }
  dend[162] {pt3dclear()
	pt3dadd(32.87, 107.89, -3.2, 1.1)
	pt3dadd(34.16, 106.06, -1.2, 0.74)
  }
  dend[163] {pt3dclear()
	pt3dadd(32.87, 107.89, -3.2, 1.1)
	pt3dadd(35.08, 109.55, -3.2, 0.74)
	pt3dadd(37.11, 108.72, -3.2, 0.74)
  }
  dend[164] {pt3dclear()
	pt3dadd(25.49, 113.21, -3.2, 1.48)
	pt3dadd(27.89, 114.04, -3.2, 1.1)
	pt3dadd(32.32, 112.87, -3.2, 0.74)
  }
  dend[165] {pt3dclear()
	pt3dadd(19.77, 116.86, -2.6, 1.48)
	pt3dadd(23.27, 120.18, -2.6, 1.1)
  }
  dend[166] {pt3dclear()
	pt3dadd(12.57, 116.36, -2.4, 1.48)
	pt3dadd(14.23, 119.35, -4, 1.1)
	pt3dadd(15.89, 121.18, -4, 1.48)
	pt3dadd(18.85, 124, -2.2, 1.48)
  }
  dend[167] {pt3dclear()
	pt3dadd(18.85, 124, -2.2, 1.48)
	pt3dadd(23.64, 123.84, -2, 1.48)
  }
  dend[168] {pt3dclear()
	pt3dadd(23.64, 123.84, -2, 1.48)
	pt3dadd(28.07, 122.18, -2, 1.48)
  }
  dend[169] {pt3dclear()
	pt3dadd(28.07, 122.18, -2, 1.48)
	pt3dadd(29.18, 119.35, -2.6, 1.48)
	pt3dadd(29.92, 116.86, -2.6, 1.48)
	pt3dadd(30.84, 115.86, -2.6, 1.48)
  }
  dend[170] {pt3dclear()
	pt3dadd(30.84, 115.86, -2.6, 1.48)
	pt3dadd(31.02, 114.37, -2.6, 1.1)
	pt3dadd(32.5, 112.71, -2.6, 1.1)
	pt3dadd(33.61, 111.55, -2.6, 1.1)
  }
  dend[171] {pt3dclear()
	pt3dadd(30.84, 115.86, -2.6, 1.48)
	pt3dadd(33.42, 114.54, -2.6, 1.1)
	pt3dadd(36.56, 112.38, -0.4, 1.1)
  }
  dend[172] {pt3dclear()
	pt3dadd(28.07, 122.18, -2, 1.48)
	pt3dadd(31.39, 122.18, -2, 1.48)
	pt3dadd(37.48, 122.68, 0.2, 1.1)
  }
  dend[173] {pt3dclear()
	pt3dadd(23.64, 123.84, -2, 1.48)
	pt3dadd(25.49, 126.66, -2, 1.48)
	pt3dadd(26.96, 127.82, -2, 1.48)
	pt3dadd(30.29, 128.16, -2, 1.1)
  }
  dend[174] {pt3dclear()
	pt3dadd(18.85, 124, -2.2, 1.48)
	pt3dadd(19.03, 125.5, -2.2, 1.84)
  }
  dend[175] {pt3dclear()
	pt3dadd(19.03, 125.5, -2.2, 1.84)
	pt3dadd(24.01, 130.32, -1.4, 1.1)
  }
  dend[176] {pt3dclear()
	pt3dadd(19.03, 125.5, -2.2, 1.84)
	pt3dadd(16.45, 130.81, -2.2, 1.48)
  }
  dend[177] {pt3dclear()
	pt3dadd(16.45, 130.81, -2.2, 1.48)
	pt3dadd(17.56, 132.81, -2, 1.48)
	pt3dadd(18.11, 134.3, -2, 1.48)
  }
  dend[178] {pt3dclear()
	pt3dadd(18.11, 134.3, -2, 1.48)
	pt3dadd(20.69, 134.8, -1, 1.48)
	pt3dadd(21.8, 136.46, -1, 1.48)
	pt3dadd(23.64, 138.62, 0.2, 1.48)
	pt3dadd(25.49, 141.11, 1, 1.1)
  }
  dend[179] {pt3dclear()
	pt3dadd(18.11, 134.3, -2, 1.48)
	pt3dadd(17, 136.46, -2, 1.1)
	pt3dadd(16.45, 138.95, -2, 1.1)
	pt3dadd(17, 141.78, -2.4, 1.1)
  }
  dend[180] {pt3dclear()
	pt3dadd(16.45, 130.81, -2.2, 1.48)
	pt3dadd(14.05, 132.31, -2.4, 1.48)
	pt3dadd(12.94, 133.97, -2.4, 1.48)
	pt3dadd(13.31, 136.63, -2.4, 1.48)
  }
  dend[181] {pt3dclear()
	pt3dadd(-1.34, 110.81, -0.8, 4.8)
	pt3dadd(-0.42, 111.97, -0.8, 4.06)
	pt3dadd(0.5, 113.13, -0.8, 3.32)
	pt3dadd(1.79, 114.13, -1.4, 2.22)
	pt3dadd(3.09, 115.62, -1.4, 1.84)
	pt3dadd(4.38, 117.45, 0.4, 1.84)
	pt3dadd(5.3, 119.61, -0.4, 1.84)
	pt3dadd(6.04, 121.77, 0.6, 2.22)
	pt3dadd(6.78, 122.6, 0.8, 2.22)
  }
  dend[182] {pt3dclear()
	pt3dadd(6.78, 122.6, 0.8, 2.22)
	pt3dadd(8.88, 122.51, 1.2, 1.48)
	pt3dadd(9.62, 121.18, 1.2, 1.1)
	pt3dadd(11.65, 118.69, 1.6, 1.1)
	pt3dadd(12.2, 117.36, 1.6, 1.48)
  }
  dend[183] {pt3dclear()
	pt3dadd(12.2, 117.36, 1.6, 1.48)
	pt3dadd(13.13, 114.7, 1.6, 1.84)
	pt3dadd(13.87, 113.04, 1.6, 1.84)
  }
  dend[184] {pt3dclear()
	pt3dadd(13.87, 113.04, 1.6, 1.84)
	pt3dadd(12.76, 111.88, 1.6, 1.48)
  }
  dend[185] {pt3dclear()
	pt3dadd(12.76, 111.88, 1.6, 1.48)
	pt3dadd(10.54, 110.55, 1.6, 1.48)
  }
  dend[186] {pt3dclear()
	pt3dadd(10.54, 110.55, 1.6, 1.48)
	pt3dadd(9.25, 113.87, 1.4, 1.48)
	pt3dadd(7.78, 116.36, 1.4, 1.48)
  }
  dend[187] {pt3dclear()
	pt3dadd(10.54, 110.55, 1.6, 1.48)
	pt3dadd(9.62, 109.22, 1.6, 1.48)
  }
  dend[188] {pt3dclear()
	pt3dadd(9.62, 109.22, 1.6, 1.48)
	pt3dadd(8.7, 108.72, 2, 1.84)
  }
  dend[189] {pt3dclear()
	pt3dadd(8.7, 108.72, 2, 1.84)
	pt3dadd(6.12, 110.38, 1, 1.1)
  }
  dend[190] {pt3dclear()
	pt3dadd(6.12, 110.38, 1, 1.1)
	pt3dadd(5.38, 113.04, 2, 1.1)
	pt3dadd(3.72, 114.7, 2, 1.1)
	pt3dadd(1.32, 116.53, 2, 1.1)
  }
  dend[191] {pt3dclear()
	pt3dadd(6.12, 110.38, 1, 1.1)
	pt3dadd(4.09, 109.55, 1.2, 0.74)
	pt3dadd(1.32, 109.55, 1.2, 0.74)
  }
  dend[192] {pt3dclear()
	pt3dadd(8.7, 108.72, 2, 1.84)
	pt3dadd(5.75, 105.23, 2, 1.48)
  }
  dend[193] {pt3dclear()
	pt3dadd(5.75, 105.23, 2, 1.48)
	pt3dadd(0.21, 105.73, 0.8, 1.1)
  }
  dend[194] {pt3dclear()
	pt3dadd(5.75, 105.23, 2, 1.48)
	pt3dadd(4.64, 102.74, 2, 1.1)
  }
  dend[195] {pt3dclear()
	pt3dadd(4.64, 102.74, 2, 1.1)
	pt3dadd(0.77, 101.75, 2, 1.1)
  }
  dend[196] {pt3dclear()
	pt3dadd(4.64, 102.74, 2, 1.1)
	pt3dadd(4.82, 96.6, 2, 1.1)
  }
  dend[197] {pt3dclear()
	pt3dadd(9.62, 109.22, 1.6, 1.48)
	pt3dadd(9.25, 106.89, 2.2, 1.1)
	pt3dadd(9.07, 103.74, 2.2, 1.1)
  }
  dend[198] {pt3dclear()
	pt3dadd(9.07, 103.74, 2.2, 1.1)
	pt3dadd(7.04, 102.41, 3.6, 1.1)
	pt3dadd(5.93, 100.25, 3.6, 1.1)
	pt3dadd(4.46, 98.42, 3.6, 1.1)
  }
  dend[199] {pt3dclear()
	pt3dadd(9.07, 103.74, 2.2, 1.1)
	pt3dadd(9.99, 102.41, 2.2, 1.1)
	pt3dadd(10.73, 100.75, 3.8, 1.1)
	pt3dadd(10.91, 98.26, 3.8, 1.1)
	pt3dadd(11.1, 95.43, 3.8, 1.1)
	pt3dadd(11.84, 93.44, 3.8, 1.1)
	pt3dadd(12.76, 91.45, 3.8, 1.1)
  }
  dend[200] {pt3dclear()
	pt3dadd(12.76, 111.88, 1.6, 1.48)
	pt3dadd(12.76, 108.39, 1.4, 1.1)
	pt3dadd(12.02, 105.73, 1.4, 1.1)
	pt3dadd(11.47, 104.4, 1.4, 1.1)
  }
  dend[201] {pt3dclear()
	pt3dadd(13.87, 113.04, 1.6, 1.84)
	pt3dadd(15.89, 110.55, 2, 1.48)
	pt3dadd(16.45, 109.39, 2, 1.48)
  }
  dend[202] {pt3dclear()
	pt3dadd(16.45, 109.39, 2, 1.48)
	pt3dadd(16.08, 107.06, 2.4, 1.1)
	pt3dadd(16.08, 105.4, 2.4, 1.1)
	pt3dadd(16.82, 102.41, 2.4, 1.1)
  }
  dend[203] {pt3dclear()
	pt3dadd(16.45, 109.39, 2, 1.48)
	pt3dadd(17.92, 108.56, 2, 1.48)
  }
  dend[204] {pt3dclear()
	pt3dadd(17.92, 108.56, 2, 1.48)
	pt3dadd(18.11, 105.73, 2, 1.1)
	pt3dadd(18.66, 102.91, 2.6, 1.1)
	pt3dadd(18.48, 100.58, 2.6, 1.1)
  }
  dend[205] {pt3dclear()
	pt3dadd(17.92, 108.56, 2, 1.48)
	pt3dadd(19.58, 109.22, 2, 1.1)
  }
  dend[206] {pt3dclear()
	pt3dadd(12.2, 117.36, 1.6, 1.48)
	pt3dadd(17.92, 117.03, 1.4, 1.1)
  }
  dend[207] {pt3dclear()
	pt3dadd(6.78, 122.6, 0.8, 2.22)
	pt3dadd(7.88, 124.59, 1.2, 2.58)
	pt3dadd(8.25, 126.25, -0.2, 2.58)
  }
  dend[208] {pt3dclear()
	pt3dadd(8.25, 126.25, -0.2, 2.58)
	pt3dadd(9.91, 127.92, 1, 2.58)
	pt3dadd(11.2, 129.24, 2, 2.58)
  }
  dend[209] {pt3dclear()
	pt3dadd(11.2, 129.24, 2, 2.58)
	pt3dadd(15.05, 129.38, 3.4, 1.84)
  }
  dend[210] {pt3dclear()
	pt3dadd(15.05, 129.38, 3.4, 1.84)
	pt3dadd(18.37, 126.72, 3.2, 1.48)
  }
  dend[211] {pt3dclear()
	pt3dadd(18.37, 126.72, 3.2, 1.48)
  }
}
proc shape3d_5() {
  dend[211] {	pt3dadd(20.32, 124.67, 2.4, 1.84)
	pt3dadd(21.98, 121.18, 2.4, 1.84)
  }
  dend[212] {pt3dclear()
	pt3dadd(21.98, 121.18, 2.4, 1.84)
	pt3dadd(22.35, 115.86, 1.6, 1.48)
  }
  dend[213] {pt3dclear()
	pt3dadd(22.35, 115.86, 1.6, 1.48)
	pt3dadd(22.35, 113.37, 1.4, 1.48)
  }
  dend[214] {pt3dclear()
	pt3dadd(22.35, 113.37, 1.4, 1.48)
	pt3dadd(22.17, 111.38, 1.2, 1.48)
  }
  dend[215] {pt3dclear()
	pt3dadd(22.17, 111.38, 1.2, 1.48)
	pt3dadd(19.77, 112.87, 1.4, 1.48)
	pt3dadd(17.92, 114.2, 1.4, 1.1)
	pt3dadd(15.89, 116.2, 2, 0.74)
  }
  dend[216] {pt3dclear()
	pt3dadd(22.17, 111.38, 1.2, 1.48)
	pt3dadd(22.54, 108.06, 1.8, 1.48)
	pt3dadd(22.72, 104.74, 1.8, 1.48)
  }
  dend[217] {pt3dclear()
	pt3dadd(22.35, 113.37, 1.4, 1.48)
	pt3dadd(26.41, 112.21, 1, 1.48)
  }
  dend[218] {pt3dclear()
	pt3dadd(22.35, 115.86, 1.6, 1.48)
	pt3dadd(25.86, 115.7, 2.2, 1.1)
	pt3dadd(28.26, 115.2, 2.2, 1.1)
	pt3dadd(30.47, 113.04, 2.2, 1.48)
  }
  dend[219] {pt3dclear()
	pt3dadd(21.98, 121.18, 2.4, 1.84)
	pt3dadd(25.3, 120.02, 1.8, 1.1)
	pt3dadd(26.78, 117.86, 1.8, 1.1)
	pt3dadd(29.36, 116.36, 1.8, 1.1)
  }
  dend[220] {pt3dclear()
	pt3dadd(18.37, 126.72, 3.2, 1.48)
	pt3dadd(21.32, 126.89, 3.2, 1.48)
	pt3dadd(23.17, 126.89, 3.2, 1.48)
  }
  dend[221] {pt3dclear()
	pt3dadd(23.17, 126.89, 3.2, 1.48)
	pt3dadd(25.75, 124.56, 3.6, 1.48)
	pt3dadd(28.7, 121.74, 3.4, 1.84)
  }
  dend[222] {pt3dclear()
	pt3dadd(28.7, 121.74, 3.4, 1.84)
	pt3dadd(29.62, 119.25, 2.6, 1.48)
	pt3dadd(31.76, 116.7, 3.2, 1.48)
	pt3dadd(34.53, 114.7, 3.2, 1.48)
  }
  dend[223] {pt3dclear()
	pt3dadd(28.7, 121.74, 3.4, 1.84)
	pt3dadd(32.95, 125.23, 2.4, 1.1)
  }
  dend[224] {pt3dclear()
	pt3dadd(23.17, 126.89, 3.2, 1.48)
	pt3dadd(25.2, 128.88, 4.2, 1.1)
	pt3dadd(30.18, 128.55, 4.2, 1.1)
  }
  dend[225] {pt3dclear()
	pt3dadd(15.05, 129.38, 3.4, 1.84)
	pt3dadd(15.6, 133.37, 3.6, 1.48)
	pt3dadd(15.42, 136.86, 3.6, 1.48)
	pt3dadd(15.6, 139.35, 3.6, 1.48)
	pt3dadd(15.79, 141.84, 4.2, 1.48)
	pt3dadd(16.34, 144.16, 4.2, 1.84)
  }
  dend[226] {pt3dclear()
	pt3dadd(16.34, 144.16, 4.2, 1.84)
	pt3dadd(19.11, 147.32, 4.2, 1.84)
  }
  dend[227] {pt3dclear()
	pt3dadd(19.11, 147.32, 4.2, 1.84)
	pt3dadd(22.8, 149.31, 3.8, 1.1)
  }
  dend[228] {pt3dclear()
	pt3dadd(22.8, 149.31, 3.8, 1.1)
	pt3dadd(27.41, 147.49, 3.8, 1.48)
  }
  dend[229] {pt3dclear()
	pt3dadd(22.8, 149.31, 3.8, 1.1)
	pt3dadd(25.38, 151.31, 3.8, 1.48)
  }
  dend[230] {pt3dclear()
	pt3dadd(19.11, 147.32, 4.2, 1.84)
	pt3dadd(19.29, 150.31, 4.2, 1.48)
  }
  dend[231] {pt3dclear()
	pt3dadd(19.29, 150.31, 4.2, 1.48)
	pt3dadd(22.43, 153.3, 4.2, 1.48)
  }
  dend[232] {pt3dclear()
	pt3dadd(19.29, 150.31, 4.2, 1.48)
	pt3dadd(17.82, 153.8, 4.4, 1.48)
  }
  dend[233] {pt3dclear()
	pt3dadd(16.34, 144.16, 4.2, 1.84)
	pt3dadd(15.05, 146.66, 4.6, 1.48)
	pt3dadd(12.65, 148.15, 4.6, 1.84)
  }
  dend[234] {pt3dclear()
	pt3dadd(12.65, 148.15, 4.6, 1.84)
	pt3dadd(12.28, 149.98, 5.6, 1.84)
  }
  dend[235] {pt3dclear()
	pt3dadd(12.28, 149.98, 5.6, 1.84)
	pt3dadd(13.76, 152.8, 5.6, 1.48)
  }
  dend[236] {pt3dclear()
	pt3dadd(12.28, 149.98, 5.6, 1.84)
	pt3dadd(9.33, 153.13, 5.6, 1.48)
  }
  dend[237] {pt3dclear()
	pt3dadd(12.65, 148.15, 4.6, 1.84)
	pt3dadd(10.44, 147.99, 4.6, 1.84)
  }
  dend[238] {pt3dclear()
	pt3dadd(10.44, 147.99, 4.6, 1.84)
	pt3dadd(8.41, 149.65, 4.4, 1.1)
	pt3dadd(6.38, 150.48, 4.4, 1.1)
	pt3dadd(4.16, 150.14, 4.4, 1.48)
	pt3dadd(2.32, 149.81, 4.4, 1.1)
  }
  dend[239] {pt3dclear()
	pt3dadd(10.44, 147.99, 4.6, 1.84)
	pt3dadd(8.04, 146.32, 4.6, 1.48)
  }
  dend[240] {pt3dclear()
	pt3dadd(8.04, 146.32, 4.6, 1.48)
	pt3dadd(4.9, 146.66, 4.6, 1.1)
	pt3dadd(2.87, 146.16, 4.2, 1.48)
  }
  dend[241] {pt3dclear()
	pt3dadd(2.87, 146.16, 4.2, 1.48)
	pt3dadd(-0.08, 148.65, 3, 1.1)
  }
  dend[242] {pt3dclear()
	pt3dadd(2.87, 146.16, 4.2, 1.48)
	pt3dadd(0.29, 144, 4.2, 1.48)
	pt3dadd(-2.48, 142.01, 3.4, 1.1)
  }
  dend[243] {pt3dclear()
	pt3dadd(8.04, 146.32, 4.6, 1.48)
	pt3dadd(7.85, 143.67, 4.6, 1.48)
	pt3dadd(7.3, 141.67, 3, 1.1)
	pt3dadd(5.45, 140.34, 3, 1.1)
	pt3dadd(3.24, 138.85, 3, 1.1)
  }
  dend[244] {pt3dclear()
	pt3dadd(11.2, 129.24, 2, 2.58)
	pt3dadd(11.02, 132.07, 0.6, 2.22)
	pt3dadd(11.76, 135.56, 0.4, 2.22)
  }
  dend[245] {pt3dclear()
	pt3dadd(11.76, 135.56, 0.4, 2.22)
	pt3dadd(14.31, 139.02, -0.8, 1.48)
	pt3dadd(15.42, 142.5, 0.2, 1.84)
  }
  dend[246] {pt3dclear()
	pt3dadd(15.42, 142.5, 0.2, 1.84)
	pt3dadd(20.21, 143.83, -1, 1.48)
  }
  dend[247] {pt3dclear()
	pt3dadd(15.42, 142.5, 0.2, 1.84)
	pt3dadd(16.34, 146.99, -1.4, 1.84)
  }
  dend[248] {pt3dclear()
	pt3dadd(16.34, 146.99, -1.4, 1.84)
	pt3dadd(18, 149.98, -0.6, 1.48)
	pt3dadd(20.03, 152.3, -0.6, 1.48)
  }
  dend[249] {pt3dclear()
	pt3dadd(16.34, 146.99, -1.4, 1.84)
	pt3dadd(14.5, 148.98, -1.4, 1.48)
	pt3dadd(14.86, 151.14, -1.4, 1.48)
	pt3dadd(14.86, 152.64, -1.4, 1.48)
	pt3dadd(16.71, 153.47, -1.4, 1.48)
  }
  dend[250] {pt3dclear()
	pt3dadd(11.76, 135.56, 0.4, 2.22)
	pt3dadd(10.84, 138.05, -1, 1.84)
	pt3dadd(10.28, 140.21, -1, 1.84)
	pt3dadd(9.54, 142.37, -1.2, 1.84)
  }
  dend[251] {pt3dclear()
	pt3dadd(9.54, 142.37, -1.2, 1.84)
	pt3dadd(10.62, 145.49, -2, 1.48)
	pt3dadd(10.62, 148.32, -2, 1.48)
	pt3dadd(10.81, 151.14, -2.4, 1.48)
	pt3dadd(12.65, 153.97, -0.4, 1.48)
	pt3dadd(14.13, 156.29, 0, 1.84)
  }
  dend[252] {pt3dclear()
	pt3dadd(14.13, 156.29, 0, 1.84)
	pt3dadd(14.86, 157.29, 1, 1.84)
  }
  dend[253] {pt3dclear()
	pt3dadd(14.86, 157.29, 1, 1.84)
	pt3dadd(18.55, 156.29, 2.2, 2.22)
  }
  dend[254] {pt3dclear()
	pt3dadd(18.55, 156.29, 2.2, 2.22)
	pt3dadd(21.14, 154.3, 2.2, 1.48)
  }
  dend[255] {pt3dclear()
	pt3dadd(21.14, 154.3, 2.2, 1.48)
	pt3dadd(22.98, 152.64, 1.8, 1.1)
	pt3dadd(26.12, 149.65, 1.8, 1.1)
  }
  dend[256] {pt3dclear()
	pt3dadd(21.14, 154.3, 2.2, 1.48)
	pt3dadd(24.09, 155.13, 2.2, 1.48)
	pt3dadd(26.12, 155.13, 2.2, 1.1)
	pt3dadd(28.7, 157.79, 2.2, 1.1)
  }
  dend[257] {pt3dclear()
	pt3dadd(18.55, 156.29, 2.2, 2.22)
	pt3dadd(20.21, 158.12, 1.2, 1.84)
	pt3dadd(24.46, 161.27, 1.2, 1.84)
  }
  dend[258] {pt3dclear()
	pt3dadd(24.46, 161.27, 1.2, 1.84)
	pt3dadd(27.96, 160.94, 2, 1.84)
	pt3dadd(30.92, 160.78, 2, 1.84)
  }
  dend[259] {pt3dclear()
	pt3dadd(30.92, 160.78, 2, 1.84)
	pt3dadd(33.5, 159.28, 3, 1.84)
  }
  dend[260] {pt3dclear()
	pt3dadd(33.5, 159.28, 3, 1.84)
	pt3dadd(34.42, 156.12, 3.6, 1.84)
  }
  dend[261] {pt3dclear()
	pt3dadd(33.5, 159.28, 3, 1.84)
	pt3dadd(34.98, 160.94, 3, 1.84)
	pt3dadd(36.82, 162.27, 3, 1.48)
	pt3dadd(39.22, 163.93, 1.6, 0.74)
  }
  dend[262] {pt3dclear()
	pt3dadd(30.92, 160.78, 2, 1.84)
	pt3dadd(33.68, 163.6, 2, 2.22)
	pt3dadd(35.34, 166.92, 2, 2.22)
	pt3dadd(37.93, 170.91, 0.2, 2.22)
  }
  dend[263] {pt3dclear()
	pt3dadd(37.93, 170.91, 0.2, 2.22)
	pt3dadd(39.96, 174.07, -2.6, 1.84)
  }
  dend[264] {pt3dclear()
	pt3dadd(37.93, 170.91, 0.2, 2.22)
	pt3dadd(36.08, 173.23, 0.4, 1.84)
  }
  dend[265] {pt3dclear()
	pt3dadd(24.46, 161.27, 1.2, 1.84)
	pt3dadd(24.83, 165.26, 1, 2.22)
  }
  dend[266] {pt3dclear()
	pt3dadd(24.83, 165.26, 1, 2.22)
	pt3dadd(27.23, 167.25, 1.2, 1.84)
	pt3dadd(28.52, 169.08, 1.2, 1.48)
	pt3dadd(28.89, 170.74, 1.2, 1.48)
	pt3dadd(28.33, 172.07, 1.2, 1.48)
  }
  dend[267] {pt3dclear()
	pt3dadd(24.83, 165.26, 1, 2.22)
	pt3dadd(24.46, 167.42, 1, 1.84)
  }
  dend[268] {pt3dclear()
	pt3dadd(24.46, 167.42, 1, 1.84)
	pt3dadd(25.93, 169.75, 1.4, 1.48)
	pt3dadd(26.3, 172.24, 1.4, 1.48)
	pt3dadd(24.09, 174.23, 1.4, 0.74)
  }
  dend[269] {pt3dclear()
	pt3dadd(24.46, 167.42, 1, 1.84)
	pt3dadd(21.88, 168.25, 1, 1.48)
	pt3dadd(20.58, 166.59, 1, 1.48)
	pt3dadd(19.29, 164.76, 1, 1.48)
  }
  dend[270] {pt3dclear()
	pt3dadd(14.86, 157.29, 1, 1.84)
	pt3dadd(15.42, 159.61, 1.8, 1.84)
	pt3dadd(16.16, 162.27, 1.8, 1.84)
	pt3dadd(16.89, 165.09, 1.6, 1.84)
	pt3dadd(16.34, 167.92, 2.4, 2.22)
  }
  dend[271] {pt3dclear()
	pt3dadd(16.34, 167.92, 2.4, 2.22)
	pt3dadd(17.82, 170.74, 1.8, 1.84)
	pt3dadd(18.19, 171.91, 1.8, 1.84)
  }
  dend[272] {pt3dclear()
	pt3dadd(18.19, 171.91, 1.8, 1.84)
	pt3dadd(20.4, 172.24, 1.4, 1.48)
	pt3dadd(22.8, 173.4, 1.4, 1.84)
  }
  dend[273] {pt3dclear()
	pt3dadd(18.19, 171.91, 1.8, 1.84)
	pt3dadd(16.89, 174.07, 1.8, 1.1)
	pt3dadd(16.71, 176.39, 1.8, 1.1)
  }
  dend[274] {pt3dclear()
	pt3dadd(16.34, 167.92, 2.4, 2.22)
	pt3dadd(13.39, 168.25, 1.8, 1.48)
	pt3dadd(11.73, 168.75, 1.8, 1.48)
	pt3dadd(9.88, 170.08, 0, 1.48)
	pt3dadd(8.59, 171.74, -0.8, 1.48)
	pt3dadd(7.85, 172.74, -0.8, 1.48)
  }
  dend[275] {pt3dclear()
	pt3dadd(14.13, 156.29, 0, 1.84)
	pt3dadd(12.47, 158.95, 0, 0.74)
	pt3dadd(10.62, 161.11, 1, 0.36)
	pt3dadd(10.25, 163.27, 1, 0.36)
  }
  dend[276] {pt3dclear()
	pt3dadd(9.54, 142.37, -1.2, 1.84)
	pt3dadd(7.51, 144.86, -2, 1.84)
	pt3dadd(5.85, 147.02, -2, 1.84)
	pt3dadd(4.01, 149.34, -2.8, 2.22)
  }
  dend[277] {pt3dclear()
	pt3dadd(4.01, 149.34, -2.8, 2.22)
  }
}
proc shape3d_6() {
  dend[277] {	pt3dadd(4.19, 152, -1.6, 1.48)
	pt3dadd(4.38, 153.16, -1.6, 1.48)
  }
  dend[278] {pt3dclear()
	pt3dadd(4.38, 153.16, -1.6, 1.48)
	pt3dadd(6.56, 155.29, -0.8, 1.48)
  }
  dend[279] {pt3dclear()
	pt3dadd(6.56, 155.29, -0.8, 1.48)
	pt3dadd(8.41, 158.28, -0.4, 1.48)
	pt3dadd(8.59, 159.78, -0.4, 1.48)
	pt3dadd(8.41, 161.27, -0.4, 1.48)
	pt3dadd(7.12, 163.27, -0.4, 0.74)
  }
  dend[280] {pt3dclear()
	pt3dadd(6.56, 155.29, -0.8, 1.48)
	pt3dadd(5.64, 158.12, -0.8, 1.1)
	pt3dadd(5.27, 160.94, -0.8, 1.1)
  }
  dend[281] {pt3dclear()
	pt3dadd(4.38, 153.16, -1.6, 1.48)
	pt3dadd(2.72, 155.66, -1, 1.48)
	pt3dadd(1.79, 157.98, -0.8, 1.84)
	pt3dadd(0.32, 161.64, -2, 1.84)
  }
  dend[282] {pt3dclear()
	pt3dadd(0.32, 161.64, -2, 1.84)
	pt3dadd(1.95, 164.43, -0.2, 1.84)
  }
  dend[283] {pt3dclear()
	pt3dadd(1.95, 164.43, -0.2, 1.84)
	pt3dadd(5.09, 165.26, -0.6, 1.84)
	pt3dadd(7.48, 168.25, -0.6, 1.48)
  }
  dend[284] {pt3dclear()
	pt3dadd(1.95, 164.43, -0.2, 1.84)
	pt3dadd(0.29, 167.42, -0.2, 1.84)
  }
  dend[285] {pt3dclear()
	pt3dadd(0.29, 167.42, -0.2, 1.84)
	pt3dadd(2.13, 168.42, -0.8, 1.48)
	pt3dadd(4.35, 169.91, -0.8, 1.1)
  }
  dend[286] {pt3dclear()
	pt3dadd(0.29, 167.42, -0.2, 1.84)
	pt3dadd(-0.82, 170.58, -1.4, 2.22)
  }
  dend[287] {pt3dclear()
	pt3dadd(-0.82, 170.58, -1.4, 2.22)
	pt3dadd(-3.03, 173.73, -0.4, 2.22)
  }
  dend[288] {pt3dclear()
	pt3dadd(-0.82, 170.58, -1.4, 2.22)
	pt3dadd(-4.14, 170.58, -3.4, 2.22)
	pt3dadd(-6.72, 171.24, -4.4, 2.22)
  }
  dend[289] {pt3dclear()
	pt3dadd(0.32, 161.64, -2, 1.84)
	pt3dadd(-3.03, 164.26, -2.2, 1.48)
  }
  dend[290] {pt3dclear()
	pt3dadd(-3.03, 164.26, -2.2, 1.48)
	pt3dadd(-3.03, 167.92, -2.4, 1.1)
  }
  dend[291] {pt3dclear()
	pt3dadd(-3.03, 164.26, -2.2, 1.48)
	pt3dadd(-6.91, 166.42, -4.6, 1.48)
	pt3dadd(-10.97, 168.08, -5.2, 1.48)
	pt3dadd(-14.29, 170.24, -6.2, 1.84)
  }
  dend[292] {pt3dclear()
	pt3dadd(-14.29, 170.24, -6.2, 1.84)
	pt3dadd(-16.87, 171.57, -10.2, 1.84)
	pt3dadd(-18.71, 173.23, -10.2, 1.48)
	pt3dadd(-20.38, 174.9, -10.2, 1.1)
  }
  dend[293] {pt3dclear()
	pt3dadd(-14.29, 170.24, -6.2, 1.84)
	pt3dadd(-16.32, 168.92, -6, 1.84)
	pt3dadd(-20.93, 170.08, -6, 1.84)
	pt3dadd(-25.54, 171.57, -7.8, 1.84)
	pt3dadd(-31.63, 174.73, -7.8, 1.84)
  }
  dend[294] {pt3dclear()
	pt3dadd(4.01, 149.34, -2.8, 2.22)
	pt3dadd(0.13, 152.17, -2.2, 1.48)
  }
  dend[295] {pt3dclear()
	pt3dadd(0.13, 152.17, -2.2, 1.48)
	pt3dadd(-1.34, 154.83, -2, 1.1)
	pt3dadd(-2.63, 158.81, -2, 1.1)
  }
  dend[296] {pt3dclear()
	pt3dadd(0.13, 152.17, -2.2, 1.48)
	pt3dadd(-3, 151.67, -3.6, 1.1)
	pt3dadd(-5.4, 151.67, -3.6, 1.1)
	pt3dadd(-10.57, 152.5, -3.6, 1.1)
  }
  dend[297] {pt3dclear()
	pt3dadd(8.25, 126.25, -0.2, 2.58)
	pt3dadd(6.78, 131.57, -0.8, 1.48)
	pt3dadd(6.04, 134.89, -0.6, 1.48)
	pt3dadd(5.48, 138.21, -2.4, 1.48)
	pt3dadd(4.56, 140.71, -1.4, 1.48)
	pt3dadd(2.16, 142.87, -2.2, 1.48)
	pt3dadd(0.69, 145.19, -2.8, 1.84)
	pt3dadd(0.32, 146.52, -2.8, 1.84)
  }
  dend[298] {pt3dclear()
	pt3dadd(0.32, 146.52, -2.8, 1.84)
	pt3dadd(-0.23, 149.84, -1.8, 1.48)
	pt3dadd(-0.97, 152.83, -1.8, 1.1)
	pt3dadd(-2.08, 157.32, -1.8, 0.74)
  }
  dend[299] {pt3dclear()
	pt3dadd(0.32, 146.52, -2.8, 1.84)
	pt3dadd(-3.92, 150.34, -2, 1.48)
  }
  dend[300] {pt3dclear()
	pt3dadd(-3.92, 150.34, -2, 1.48)
	pt3dadd(-4.85, 152.33, -2.8, 1.48)
	pt3dadd(-6.32, 154.83, -2.8, 1.48)
	pt3dadd(-6.69, 156.65, -2.8, 1.48)
	pt3dadd(-6.51, 160.31, -2.8, 1.1)
  }
  dend[301] {pt3dclear()
	pt3dadd(-3.92, 150.34, -2, 1.48)
	pt3dadd(-3.74, 147.52, -1.8, 1.1)
	pt3dadd(-2.82, 144.86, -1.8, 1.1)
	pt3dadd(-0.79, 140.71, -1.8, 1.1)
  }
  dend[302] {pt3dclear()
	pt3dadd(-1.65, 109.87, -0.6, 5.16)
	pt3dadd(-2.76, 111.03, -0.6, 4.42)
	pt3dadd(-4.05, 112.03, -0.6, 2.96)
	pt3dadd(-5.16, 113.19, -0.6, 2.58)
	pt3dadd(-6.64, 114.36, -0.2, 2.22)
	pt3dadd(-7.74, 115.35, -0.4, 2.22)
	pt3dadd(-9.22, 116.51, -0.6, 2.58)
	pt3dadd(-11.43, 117.68, -1, 2.96)
  }
  dend[303] {pt3dclear()
	pt3dadd(-11.43, 117.68, -1, 2.96)
	pt3dadd(-12.17, 119.34, -1.4, 2.58)
	pt3dadd(-12.91, 121, -1.4, 2.22)
	pt3dadd(-13.83, 122.66, -1.6, 2.58)
	pt3dadd(-14.57, 123.82, -1.6, 2.96)
  }
  dend[304] {pt3dclear()
	pt3dadd(-14.57, 123.82, -1.6, 2.96)
	pt3dadd(-14.07, 125.59, -0.6, 1.84)
	pt3dadd(-13.15, 126.92, -0.6, 1.48)
	pt3dadd(-12.97, 128.75, -0.6, 1.48)
	pt3dadd(-12.97, 131.07, -0.6, 1.48)
	pt3dadd(-12.97, 132.57, -0.8, 1.48)
	pt3dadd(-13.15, 134.39, -0.8, 1.48)
  }
  dend[305] {pt3dclear()
	pt3dadd(-13.15, 134.39, -0.8, 1.48)
	pt3dadd(-11.67, 136.89, -1.6, 1.48)
	pt3dadd(-10.75, 138.71, -1.6, 1.48)
  }
  dend[306] {pt3dclear()
	pt3dadd(-10.75, 138.71, -1.6, 1.48)
	pt3dadd(-8.17, 138.38, -1.2, 1.48)
	pt3dadd(-7.25, 137.72, -1.2, 1.48)
  }
  dend[307] {pt3dclear()
	pt3dadd(-7.25, 137.72, -1.2, 1.48)
	pt3dadd(-4.66, 135.39, -0.6, 1.48)
  }
  dend[308] {pt3dclear()
	pt3dadd(-4.66, 135.39, -0.6, 1.48)
	pt3dadd(-6.69, 131.4, -1, 1.48)
  }
  dend[309] {pt3dclear()
	pt3dadd(-6.69, 131.4, -1, 1.48)
	pt3dadd(-8.54, 130.07, -2, 1.48)
  }
  dend[310] {pt3dclear()
	pt3dadd(-8.54, 130.07, -2, 1.48)
	pt3dadd(-9.83, 133.23, -2.6, 0.74)
  }
  dend[311] {pt3dclear()
	pt3dadd(-8.54, 130.07, -2, 1.48)
	pt3dadd(-9.64, 127.75, -2.8, 1.1)
	pt3dadd(-9.46, 126.09, -2.8, 1.1)
  }
  dend[312] {pt3dclear()
	pt3dadd(-9.46, 126.09, -2.8, 1.1)
	pt3dadd(-10.57, 124.26, -2.8, 1.1)
	pt3dadd(-10.38, 122.1, -2.8, 0.74)
	pt3dadd(-9.09, 120.11, -2.8, 0.74)
	pt3dadd(-6.88, 118.61, -2.8, 0.74)
	pt3dadd(-5.03, 117.62, -2.8, 0.74)
  }
  dend[313] {pt3dclear()
	pt3dadd(-9.46, 126.09, -2.8, 1.1)
	pt3dadd(-7.8, 124.76, -2, 1.1)
	pt3dadd(-6.32, 122.77, -2, 1.1)
	pt3dadd(-4.48, 121.27, -2, 0.74)
	pt3dadd(-3, 119.11, -2, 0.74)
	pt3dadd(-1.9, 117.28, -2, 0.74)
  }
  dend[314] {pt3dclear()
	pt3dadd(-6.69, 131.4, -1, 1.48)
	pt3dadd(-5.4, 129.41, -0.2, 1.1)
	pt3dadd(-4.66, 126.75, -0.2, 1.1)
	pt3dadd(-4.66, 124.76, -0.2, 1.1)
	pt3dadd(-3.19, 123.1, -0.2, 1.1)
	pt3dadd(-0.97, 122.1, -0.2, 1.1)
	pt3dadd(2.72, 121.27, -0.2, 0.74)
  }
  dend[315] {pt3dclear()
	pt3dadd(-4.66, 135.39, -0.6, 1.48)
	pt3dadd(-1.53, 136.55, -1, 1.48)
  }
  dend[316] {pt3dclear()
	pt3dadd(-1.53, 136.55, -1, 1.48)
	pt3dadd(1.24, 134.73, -0.6, 1.48)
	pt3dadd(4.19, 132.73, -0.6, 1.1)
	pt3dadd(5.3, 131.4, 1.2, 1.48)
  }
  dend[317] {pt3dclear()
	pt3dadd(5.3, 131.4, 1.2, 1.48)
	pt3dadd(6.41, 126.75, 1.2, 0.74)
  }
  dend[318] {pt3dclear()
	pt3dadd(5.3, 131.4, 1.2, 1.48)
	pt3dadd(8.81, 131.4, 1.2, 1.1)
  }
  dend[319] {pt3dclear()
	pt3dadd(-1.53, 136.55, -1, 1.48)
	pt3dadd(0.69, 139.71, -1, 1.1)
  }
  dend[320] {pt3dclear()
	pt3dadd(-7.25, 137.72, -1.2, 1.48)
	pt3dadd(-5.4, 140.54, -1.2, 1.1)
  }
  dend[321] {pt3dclear()
	pt3dadd(-10.75, 138.71, -1.6, 1.48)
	pt3dadd(-11.49, 140.21, -1.6, 1.48)
	pt3dadd(-11.86, 142.37, -1.6, 1.1)
	pt3dadd(-11.86, 144.36, -1.6, 1.1)
	pt3dadd(-11.86, 146.35, -1.6, 1.1)
	pt3dadd(-11.67, 147.85, -1.6, 1.48)
  }
  dend[322] {pt3dclear()
	pt3dadd(-11.67, 147.85, -1.6, 1.48)
	pt3dadd(-10.38, 149.68, 0.2, 1.48)
  }
  dend[323] {pt3dclear()
	pt3dadd(-10.38, 149.68, 0.2, 1.48)
	pt3dadd(-7.61, 152.33, 0.2, 1.1)
  }
  dend[324] {pt3dclear()
	pt3dadd(-7.61, 152.33, 0.2, 1.1)
	pt3dadd(-5.95, 153.16, 0, 0.74)
  }
  dend[325] {pt3dclear()
	pt3dadd(-7.61, 152.33, 0.2, 1.1)
	pt3dadd(-11.31, 159.64, 0.2, 0.36)
  }
  dend[326] {pt3dclear()
	pt3dadd(-10.38, 149.68, 0.2, 1.48)
	pt3dadd(-10.2, 152.33, -1.2, 1.48)
	pt3dadd(-10.2, 154.83, -1.2, 1.48)
	pt3dadd(-8.72, 157.32, -1.2, 1.1)
  }
  dend[327] {pt3dclear()
	pt3dadd(-11.67, 147.85, -1.6, 1.48)
	pt3dadd(-13.89, 149.51, -1.2, 1.1)
	pt3dadd(-14.63, 150.84, -1.2, 1.48)
	pt3dadd(-15.55, 152.83, -1.2, 1.48)
	pt3dadd(-15.55, 154.16, -1.2, 1.48)
	pt3dadd(-15.36, 155.32, -1.8, 1.1)
  }
  dend[328] {pt3dclear()
	pt3dadd(-13.15, 134.39, -0.8, 1.48)
	pt3dadd(-14.44, 134.89, -1.6, 1.48)
	pt3dadd(-15.92, 135.72, -1.6, 1.1)
	pt3dadd(-17.39, 137.05, -1.6, 1.1)
	pt3dadd(-19.61, 139.21, -2.6, 1.1)
  }
  dend[329] {pt3dclear()
	pt3dadd(-19.61, 139.21, -2.6, 1.1)
	pt3dadd(-19.24, 142.37, -2.2, 1.1)
	pt3dadd(-19.05, 143.86, -2.2, 1.1)
  }
  dend[330] {pt3dclear()
	pt3dadd(-19.05, 143.86, -2.2, 1.1)
	pt3dadd(-16.29, 145.52, -2.2, 1.1)
  }
  dend[331] {pt3dclear()
	pt3dadd(-19.05, 143.86, -2.2, 1.1)
	pt3dadd(-19.79, 145.52, -2.2, 1.1)
	pt3dadd(-19.05, 147.52, -2.2, 1.1)
	pt3dadd(-18.13, 150.01, -2.2, 0.74)
  }
  dend[332] {pt3dclear()
	pt3dadd(-19.61, 139.21, -2.6, 1.1)
	pt3dadd(-21.82, 140.04, -3, 1.1)
	pt3dadd(-23.67, 140.71, -3, 1.48)
  }
  dend[333] {pt3dclear()
	pt3dadd(-23.67, 140.71, -3, 1.48)
	pt3dadd(-23.85, 141.7, -3.4, 1.48)
  }
  dend[334] {pt3dclear()
	pt3dadd(-23.85, 141.7, -3.4, 1.48)
	pt3dadd(-24.59, 144.36, -3, 1.48)
	pt3dadd(-24.96, 147.02, -3, 1.48)
	pt3dadd(-25.88, 150.01, -1.8, 1.48)
	pt3dadd(-26.43, 152, -1.8, 1.48)
  }
}
proc shape3d_7() {
  dend[334] {	pt3dadd(-26.8, 153.83, -1.8, 1.1)
  }
  dend[335] {pt3dclear()
	pt3dadd(-23.85, 141.7, -3.4, 1.48)
	pt3dadd(-25.7, 141.54, -3.4, 1.1)
	pt3dadd(-26.99, 142.87, -3.4, 1.1)
	pt3dadd(-27.91, 144.86, -3.4, 1.1)
	pt3dadd(-29.02, 147.52, -3.4, 1.1)
	pt3dadd(-30.49, 149.84, -3.4, 1.1)
	pt3dadd(-31.6, 152, -3.4, 1.1)
  }
  dend[336] {pt3dclear()
	pt3dadd(-23.67, 140.71, -3, 1.48)
	pt3dadd(-25.33, 139.21, -3.6, 1.1)
  }
  dend[337] {pt3dclear()
	pt3dadd(-25.33, 139.21, -3.6, 1.1)
	pt3dadd(-27.17, 139.38, -3.8, 1.1)
  }
  dend[338] {pt3dclear()
	pt3dadd(-27.17, 139.38, -3.8, 1.1)
	pt3dadd(-29.94, 139.88, -3.8, 1.1)
	pt3dadd(-32.89, 140.37, -4, 1.1)
  }
  dend[339] {pt3dclear()
	pt3dadd(-32.89, 140.37, -4, 1.1)
	pt3dadd(-34.37, 144.36, -4, 1.1)
  }
  dend[340] {pt3dclear()
	pt3dadd(-32.89, 140.37, -4, 1.1)
	pt3dadd(-36.95, 140.37, -4, 1.1)
  }
  dend[341] {pt3dclear()
	pt3dadd(-27.17, 139.38, -3.8, 1.1)
	pt3dadd(-28.46, 136.05, -3.8, 0.74)
  }
  dend[342] {pt3dclear()
	pt3dadd(-25.33, 139.21, -3.6, 1.1)
	pt3dadd(-24.77, 135.89, -4.2, 1.1)
	pt3dadd(-24.59, 132.9, -4.6, 1.1)
  }
  dend[343] {pt3dclear()
	pt3dadd(-14.57, 123.82, -1.6, 2.96)
	pt3dadd(-16.78, 125.32, -2.6, 2.22)
	pt3dadd(-19.92, 127.15, -2.6, 2.22)
	pt3dadd(-23.42, 129.31, -2.4, 1.84)
	pt3dadd(-27.48, 131.47, -2.4, 1.84)
	pt3dadd(-30.44, 133.13, -2.8, 1.84)
	pt3dadd(-33.02, 134.62, -2.8, 1.84)
	pt3dadd(-34.5, 136.45, -3.8, 1.84)
	pt3dadd(-36.58, 138.38, -3.6, 1.84)
	pt3dadd(-38.43, 140.04, -2.6, 1.84)
	pt3dadd(-39.9, 141.04, -2.6, 2.22)
  }
  dend[344] {pt3dclear()
	pt3dadd(-39.9, 141.04, -2.6, 2.22)
	pt3dadd(-39.72, 143.03, -3.6, 1.84)
	pt3dadd(-40.46, 145.36, -3.4, 1.84)
  }
  dend[345] {pt3dclear()
	pt3dadd(-40.46, 145.36, -3.4, 1.84)
	pt3dadd(-42.12, 148.68, -3, 1.48)
	pt3dadd(-43.59, 151.17, -3, 1.48)
	pt3dadd(-44.88, 153.16, -3.6, 1.84)
  }
  dend[346] {pt3dclear()
	pt3dadd(-44.88, 153.16, -3.6, 1.84)
	pt3dadd(-43.41, 155.49, -3.6, 1.48)
	pt3dadd(-41.38, 156.82, -3.6, 1.48)
  }
  dend[347] {pt3dclear()
	pt3dadd(-41.38, 156.82, -3.6, 1.48)
	pt3dadd(-38.24, 154.33, -4.2, 1.1)
  }
  dend[348] {pt3dclear()
	pt3dadd(-41.38, 156.82, -3.6, 1.48)
	pt3dadd(-43.04, 159.14, -5.2, 1.1)
	pt3dadd(-43.59, 161.47, -5.2, 1.1)
  }
  dend[349] {pt3dclear()
	pt3dadd(-44.88, 153.16, -3.6, 1.84)
	pt3dadd(-47.28, 154.66, -4.2, 1.48)
  }
  dend[350] {pt3dclear()
	pt3dadd(-47.28, 154.66, -4.2, 1.48)
	pt3dadd(-47.1, 157.32, -4, 1.1)
	pt3dadd(-47.84, 159.81, -4, 1.1)
	pt3dadd(-48.94, 161.97, -4, 1.48)
	pt3dadd(-49.68, 163.46, -4, 1.84)
	pt3dadd(-51.34, 164.96, -4.8, 1.84)
  }
  dend[351] {pt3dclear()
	pt3dadd(-47.28, 154.66, -4.2, 1.48)
	pt3dadd(-48.76, 155.49, -4.2, 1.48)
  }
  dend[352] {pt3dclear()
	pt3dadd(-48.76, 155.49, -4.2, 1.48)
	pt3dadd(-48.94, 157.65, -5.4, 1.1)
	pt3dadd(-49.87, 159.64, -5.4, 1.1)
	pt3dadd(-51.16, 161.8, -5.4, 1.1)
	pt3dadd(-53, 163.46, -5.4, 1.1)
	pt3dadd(-54.66, 164.63, -5.4, 1.1)
	pt3dadd(-58.17, 164.46, -5.4, 1.1)
  }
  dend[353] {pt3dclear()
	pt3dadd(-48.76, 155.49, -4.2, 1.48)
	pt3dadd(-50.05, 155.99, -4.2, 1.48)
  }
  dend[354] {pt3dclear()
	pt3dadd(-50.05, 155.99, -4.2, 1.48)
	pt3dadd(-50.97, 157.82, -4.8, 1.1)
	pt3dadd(-52.45, 159.81, -4.8, 1.1)
	pt3dadd(-54.66, 161.47, -4.8, 1.1)
	pt3dadd(-56.51, 162.8, -4.8, 1.48)
  }
  dend[355] {pt3dclear()
	pt3dadd(-56.51, 162.8, -4.8, 1.48)
	pt3dadd(-56.32, 164.79, -5, 1.48)
	pt3dadd(-56.32, 165.62, -5, 1.48)
	pt3dadd(-56.51, 168.78, -5.4, 1.48)
  }
  dend[356] {pt3dclear()
	pt3dadd(-56.51, 162.8, -4.8, 1.48)
	pt3dadd(-58.35, 162.13, -4.8, 1.48)
	pt3dadd(-60.01, 162.13, -4.8, 1.48)
	pt3dadd(-61.31, 163.8, -4.8, 1.48)
	pt3dadd(-62.04, 164.96, -4.8, 1.48)
	pt3dadd(-63.33, 167.12, -7.6, 1.48)
  }
  dend[357] {pt3dclear()
	pt3dadd(-50.05, 155.99, -4.2, 1.48)
	pt3dadd(-51.34, 155.49, -5.6, 1.1)
  }
  dend[358] {pt3dclear()
	pt3dadd(-51.34, 155.49, -5.6, 1.1)
	pt3dadd(-52.45, 156.98, -6, 1.1)
	pt3dadd(-54.29, 157.65, -6, 1.1)
  }
  dend[359] {pt3dclear()
	pt3dadd(-54.29, 157.65, -6, 1.1)
	pt3dadd(-54.66, 158.98, -6.2, 0.74)
	pt3dadd(-57.43, 160.31, -6.2, 0.74)
  }
  dend[360] {pt3dclear()
	pt3dadd(-54.29, 157.65, -6, 1.1)
	pt3dadd(-55.4, 156.98, -6, 0.74)
	pt3dadd(-57.61, 157.32, -6, 0.74)
  }
  dend[361] {pt3dclear()
	pt3dadd(-51.34, 155.49, -5.6, 1.1)
	pt3dadd(-52.26, 153.66, -5.6, 1.1)
	pt3dadd(-54.85, 151.17, -4.8, 1.1)
  }
  dend[362] {pt3dclear()
	pt3dadd(-40.46, 145.36, -3.4, 1.84)
	pt3dadd(-43.04, 146.52, -3.4, 1.1)
	pt3dadd(-45.25, 147.35, -3.4, 1.1)
	pt3dadd(-49.31, 148.85, -3.2, 1.1)
  }
  dend[363] {pt3dclear()
	pt3dadd(-49.31, 148.85, -3.2, 1.1)
	pt3dadd(-49.5, 151.17, -5.8, 0.74)
	pt3dadd(-50.42, 152.5, -5.8, 1.1)
  }
  dend[364] {pt3dclear()
	pt3dadd(-50.42, 152.5, -5.8, 1.1)
	pt3dadd(-48.21, 152.33, -5.8, 0.74)
	pt3dadd(-45.62, 150.17, -5.8, 0.74)
  }
  dend[365] {pt3dclear()
	pt3dadd(-50.42, 152.5, -5.8, 1.1)
	pt3dadd(-54.11, 154.49, -5.6, 1.1)
  }
  dend[366] {pt3dclear()
	pt3dadd(-49.31, 148.85, -3.2, 1.1)
	pt3dadd(-51.34, 149.51, -3.4, 0.74)
	pt3dadd(-52.82, 150.34, -3.4, 0.74)
  }
  dend[367] {pt3dclear()
	pt3dadd(-39.9, 141.04, -2.6, 2.22)
	pt3dadd(-42.49, 140.87, -3.4, 1.84)
	pt3dadd(-44.15, 140.87, -3.4, 2.22)
  }
  dend[368] {pt3dclear()
	pt3dadd(-44.15, 140.87, -3.4, 2.22)
	pt3dadd(-45.81, 142.37, -3.2, 1.84)
	pt3dadd(-47.65, 143.86, -3.2, 1.48)
	pt3dadd(-49.31, 144.86, -3.4, 1.48)
	pt3dadd(-51.16, 146.02, -5, 1.48)
	pt3dadd(-53.19, 147.35, -5, 1.84)
  }
  dend[369] {pt3dclear()
	pt3dadd(-53.19, 147.35, -5, 1.84)
	pt3dadd(-55.22, 150.67, -6.4, 1.48)
	pt3dadd(-56.69, 153.5, -6.4, 1.48)
	pt3dadd(-59.09, 157.15, -5.6, 1.48)
	pt3dadd(-60.94, 158.81, -5.6, 1.48)
	pt3dadd(-62.97, 160.64, -5.6, 1.48)
  }
  dend[370] {pt3dclear()
	pt3dadd(-62.97, 160.64, -5.6, 1.48)
	pt3dadd(-63.7, 163.46, -5.6, 1.1)
	pt3dadd(-64.44, 165.46, -5.6, 1.1)
	pt3dadd(-65, 166.95, -8, 1.1)
  }
  dend[371] {pt3dclear()
	pt3dadd(-62.97, 160.64, -5.6, 1.48)
	pt3dadd(-65.36, 161.8, -5.6, 1.48)
	pt3dadd(-68.32, 164.63, -5.6, 1.1)
  }
  dend[372] {pt3dclear()
	pt3dadd(-53.19, 147.35, -5, 1.84)
	pt3dadd(-54.85, 146.85, -5.4, 1.84)
  }
  dend[373] {pt3dclear()
	pt3dadd(-54.85, 146.85, -5.4, 1.84)
	pt3dadd(-58.17, 149.51, -6.6, 1.1)
	pt3dadd(-61.31, 151.34, -6.6, 1.1)
	pt3dadd(-63.7, 153.83, -6.6, 1.48)
	pt3dadd(-65.18, 156.65, -6, 1.48)
	pt3dadd(-67.39, 159.31, -6, 1.84)
  }
  dend[374] {pt3dclear()
	pt3dadd(-67.39, 159.31, -6, 1.84)
	pt3dadd(-67.02, 161.64, -7.4, 1.48)
	pt3dadd(-67.58, 162.97, -7.4, 1.48)
	pt3dadd(-68.69, 163.96, -7.4, 1.48)
  }
  dend[375] {pt3dclear()
	pt3dadd(-67.39, 159.31, -6, 1.84)
	pt3dadd(-69.61, 158.65, -6, 1.48)
	pt3dadd(-71.82, 158.81, -6, 1.48)
	pt3dadd(-73.11, 159.97, -6, 1.48)
	pt3dadd(-74.77, 161.97, -6.2, 1.48)
  }
  dend[376] {pt3dclear()
	pt3dadd(-54.85, 146.85, -5.4, 1.84)
	pt3dadd(-56.88, 146.02, -4.8, 1.84)
  }
  dend[377] {pt3dclear()
	pt3dadd(-56.88, 146.02, -4.8, 1.84)
	pt3dadd(-59.46, 146.52, -6, 1.48)
	pt3dadd(-61.86, 146.85, -6, 1.84)
  }
  dend[378] {pt3dclear()
	pt3dadd(-61.86, 146.85, -6, 1.84)
	pt3dadd(-64.44, 149.34, -6.4, 1.48)
  }
  dend[379] {pt3dclear()
	pt3dadd(-64.44, 149.34, -6.4, 1.48)
	pt3dadd(-65, 151.84, -6.8, 1.1)
	pt3dadd(-66.29, 153.5, -6.8, 0.74)
	pt3dadd(-67.58, 154.66, -6.8, 0.74)
  }
  dend[380] {pt3dclear()
	pt3dadd(-64.44, 149.34, -6.4, 1.48)
	pt3dadd(-67.39, 150.34, -6.2, 1.48)
	pt3dadd(-69.61, 152.5, -8.4, 1.84)
  }
  dend[381] {pt3dclear()
	pt3dadd(-69.61, 152.5, -8.4, 1.84)
	pt3dadd(-70.35, 154.49, -6.4, 1.84)
  }
  dend[382] {pt3dclear()
	pt3dadd(-70.35, 154.49, -6.4, 1.84)
	pt3dadd(-69.24, 156.49, -7.6, 1.1)
	pt3dadd(-69.24, 158.81, -7.6, 1.48)
	pt3dadd(-70.71, 161.97, -9, 1.48)
	pt3dadd(-72.38, 163.96, -6.6, 1.48)
	pt3dadd(-73.67, 164.96, -6.6, 1.48)
	pt3dadd(-76.43, 165.62, -6.6, 1.1)
  }
  dend[383] {pt3dclear()
	pt3dadd(-70.35, 154.49, -6.4, 1.84)
	pt3dadd(-72.56, 155.99, -6.4, 1.48)
	pt3dadd(-74.4, 158.31, -7.2, 1.48)
	pt3dadd(-75.51, 159.64, -7.2, 1.48)
  }
  dend[384] {pt3dclear()
	pt3dadd(-69.61, 152.5, -8.4, 1.84)
	pt3dadd(-73.3, 153.16, -8, 1.84)
  }
  dend[385] {pt3dclear()
	pt3dadd(-73.3, 153.16, -8, 1.84)
	pt3dadd(-75.33, 155.82, -8.6, 1.1)
	pt3dadd(-77.54, 158.15, -8.6, 1.1)
  }
  dend[386] {pt3dclear()
	pt3dadd(-73.3, 153.16, -8, 1.84)
	pt3dadd(-75.88, 153.5, -8, 1.84)
	pt3dadd(-77.91, 154.49, -8, 1.48)
	pt3dadd(-79.94, 156.32, -8, 1.48)
  }
  dend[387] {pt3dclear()
	pt3dadd(-79.94, 156.32, -8, 1.48)
	pt3dadd(-80.49, 158.31, -9, 1.48)
	pt3dadd(-81.78, 160.31, -9.6, 0.74)
  }
  dend[388] {pt3dclear()
	pt3dadd(-79.94, 156.32, -8, 1.48)
	pt3dadd(-83.81, 156.32, -10.6, 1.48)
  }
  dend[389] {pt3dclear()
	pt3dadd(-61.86, 146.85, -6, 1.84)
	pt3dadd(-63.7, 145.19, -4.8, 1.84)
  }
  dend[390] {pt3dclear()
	pt3dadd(-63.7, 145.19, -4.8, 1.84)
	pt3dadd(-67.21, 147.02, -6.6, 1.48)
	pt3dadd(-69.61, 147.85, -6.6, 1.48)
  }
  dend[391] {pt3dclear()
	pt3dadd(-69.61, 147.85, -6.6, 1.48)
	pt3dadd(-71.82, 150.17, -5.8, 1.1)
  }
}
proc shape3d_8() {
  dend[391] {	pt3dadd(-74.22, 151.17, -6.6, 1.1)
	pt3dadd(-77.17, 152.17, -6.8, 1.1)
	pt3dadd(-80.49, 152.5, -7.2, 1.1)
  }
  dend[392] {pt3dclear()
	pt3dadd(-69.61, 147.85, -6.6, 1.48)
	pt3dadd(-72.74, 147.85, -6.8, 1.1)
	pt3dadd(-75.33, 147.52, -6.8, 1.48)
	pt3dadd(-78.65, 147.68, -6.8, 1.84)
	pt3dadd(-80.86, 146.85, -6.4, 1.48)
	pt3dadd(-82.71, 146.52, -6.4, 1.1)
  }
  dend[393] {pt3dclear()
	pt3dadd(-63.7, 145.19, -4.8, 1.84)
	pt3dadd(-65.36, 143.2, -5.6, 1.84)
  }
  dend[394] {pt3dclear()
	pt3dadd(-65.36, 143.2, -5.6, 1.84)
	pt3dadd(-68.32, 143.36, -6, 1.48)
  }
  dend[395] {pt3dclear()
	pt3dadd(-68.32, 143.36, -6, 1.48)
	pt3dadd(-70.71, 144.19, -5.6, 1.1)
	pt3dadd(-72.93, 144.53, -5.6, 1.1)
	pt3dadd(-76.62, 144.69, -6.4, 1.1)
  }
  dend[396] {pt3dclear()
	pt3dadd(-68.32, 143.36, -6, 1.48)
	pt3dadd(-69.79, 141.54, -6.4, 1.1)
	pt3dadd(-70.71, 139.71, -6.4, 1.48)
	pt3dadd(-71.08, 137.05, -4.6, 1.48)
	pt3dadd(-71.08, 135.39, -4.6, 1.48)
	pt3dadd(-69.05, 132.23, -5, 1.48)
  }
  dend[397] {pt3dclear()
	pt3dadd(-65.36, 143.2, -5.6, 1.84)
	pt3dadd(-67.76, 139.88, -5.6, 0.74)
  }
  dend[398] {pt3dclear()
	pt3dadd(-56.88, 146.02, -4.8, 1.84)
	pt3dadd(-57.43, 144.19, -4.8, 1.1)
	pt3dadd(-58.72, 143.03, -5, 1.1)
	pt3dadd(-61.12, 142.03, -5, 1.1)
	pt3dadd(-62.78, 140.71, -5, 1.1)
  }
  dend[399] {pt3dclear()
	pt3dadd(-44.15, 140.87, -3.4, 2.22)
	pt3dadd(-45.62, 139.21, -4.4, 1.48)
	pt3dadd(-46.73, 138.21, -4.4, 1.48)
  }
  dend[400] {pt3dclear()
	pt3dadd(-46.73, 138.21, -4.4, 1.48)
	pt3dadd(-49.31, 139.04, -4.6, 1.48)
	pt3dadd(-52.63, 139.04, -4.6, 1.48)
  }
  dend[401] {pt3dclear()
	pt3dadd(-52.63, 139.04, -4.6, 1.48)
	pt3dadd(-53.37, 141.87, -4.6, 1.1)
  }
  dend[402] {pt3dclear()
	pt3dadd(-53.37, 141.87, -4.6, 1.1)
	pt3dadd(-52.82, 143.7, -5.6, 1.1)
  }
  dend[403] {pt3dclear()
	pt3dadd(-52.82, 143.7, -5.6, 1.1)
	pt3dadd(-51.16, 144.19, -5.6, 0.74)
  }
  dend[404] {pt3dclear()
	pt3dadd(-52.82, 143.7, -5.6, 1.1)
	pt3dadd(-53.92, 145.52, -5.6, 0.74)
  }
  dend[405] {pt3dclear()
	pt3dadd(-53.37, 141.87, -4.6, 1.1)
	pt3dadd(-56.88, 142.03, -5.2, 0.74)
  }
  dend[406] {pt3dclear()
	pt3dadd(-52.63, 139.04, -4.6, 1.48)
	pt3dadd(-55.03, 138.38, -3.8, 1.1)
	pt3dadd(-58.54, 137.72, -6, 1.48)
  }
  dend[407] {pt3dclear()
	pt3dadd(-58.54, 137.72, -6, 1.48)
	pt3dadd(-60.75, 139.54, -6, 1.1)
  }
  dend[408] {pt3dclear()
	pt3dadd(-58.54, 137.72, -6, 1.48)
	pt3dadd(-62.04, 136.89, -5, 1.1)
	pt3dadd(-66.1, 137.55, -5, 1.1)
  }
  dend[409] {pt3dclear()
	pt3dadd(-46.73, 138.21, -4.4, 1.48)
	pt3dadd(-46.91, 136.72, -4.8, 1.48)
	pt3dadd(-47.1, 134.73, -4.8, 1.1)
	pt3dadd(-46.18, 133.23, -4.8, 1.1)
	pt3dadd(-45.81, 131.24, -4.8, 1.1)
	pt3dadd(-46.73, 127.42, -2.8, 1.1)
	pt3dadd(-47.47, 125.09, -3.8, 1.1)
	pt3dadd(-48.02, 123.26, -3.8, 0.74)
  }
  dend[410] {pt3dclear()
	pt3dadd(-11.43, 117.68, -1, 2.96)
	pt3dadd(-13.09, 116.18, -2.2, 2.22)
	pt3dadd(-14.2, 114.85, -2.8, 2.22)
  }
  dend[411] {pt3dclear()
	pt3dadd(-14.2, 114.85, -2.8, 2.22)
	pt3dadd(-18.63, 114.69, -3.6, 1.48)
  }
  dend[412] {pt3dclear()
	pt3dadd(-18.63, 114.69, -3.6, 1.48)
	pt3dadd(-19.92, 115.19, -3.6, 1.48)
  }
  dend[413] {pt3dclear()
	pt3dadd(-19.92, 115.19, -3.6, 1.48)
	pt3dadd(-19.55, 117.84, -4.6, 1.48)
	pt3dadd(-19.18, 119.84, -4.6, 1.48)
	pt3dadd(-19.55, 121.83, -4.6, 1.48)
	pt3dadd(-19.37, 124.32, -4.6, 1.1)
  }
  dend[414] {pt3dclear()
	pt3dadd(-19.92, 115.19, -3.6, 1.48)
	pt3dadd(-21.4, 115.02, -4.2, 1.48)
  }
  dend[415] {pt3dclear()
	pt3dadd(-21.4, 115.02, -4.2, 1.48)
	pt3dadd(-23.06, 117.68, -3.8, 1.48)
	pt3dadd(-24.53, 119.5, -3.8, 1.48)
  }
  dend[416] {pt3dclear()
	pt3dadd(-24.53, 119.5, -3.8, 1.48)
	pt3dadd(-26.01, 121.66, -3, 1.48)
	pt3dadd(-27.3, 123.33, -3, 1.48)
	pt3dadd(-28.96, 125.48, -3, 1.48)
	pt3dadd(-30.44, 126.48, -3, 1.48)
  }
  dend[417] {pt3dclear()
	pt3dadd(-30.44, 126.48, -3, 1.48)
	pt3dadd(-32.28, 128.81, -2.4, 1.1)
	pt3dadd(-34.5, 131.13, -2.4, 1.1)
	pt3dadd(-36.34, 132.96, -2.4, 1.1)
	pt3dadd(-38.55, 133.96, -2.2, 1.1)
	pt3dadd(-41.32, 134.95, -2.2, 1.1)
  }
  dend[418] {pt3dclear()
	pt3dadd(-30.44, 126.48, -3, 1.48)
	pt3dadd(-32.65, 125.15, -3, 0.74)
  }
  dend[419] {pt3dclear()
	pt3dadd(-24.53, 119.5, -3.8, 1.48)
	pt3dadd(-27.48, 119.67, -3.4, 1.48)
	pt3dadd(-28.78, 119.84, -4.2, 1.1)
  }
  dend[420] {pt3dclear()
	pt3dadd(-28.78, 119.84, -4.2, 1.1)
	pt3dadd(-29.7, 121.5, -3.6, 0.74)
  }
  dend[421] {pt3dclear()
	pt3dadd(-28.78, 119.84, -4.2, 1.1)
	pt3dadd(-31.36, 119.5, -4.2, 1.1)
	pt3dadd(-33.2, 120, -4.2, 1.1)
	pt3dadd(-33.57, 121.66, -4.2, 1.1)
	pt3dadd(-33.94, 123.49, -4.2, 0.74)
  }
  dend[422] {pt3dclear()
	pt3dadd(-21.4, 115.02, -4.2, 1.48)
	pt3dadd(-22.5, 113.19, -4.2, 1.48)
	pt3dadd(-24.16, 112.36, -4.2, 1.1)
	pt3dadd(-26.56, 111.7, -4, 1.1)
	pt3dadd(-28.78, 111.03, -4, 1.1)
	pt3dadd(-31.36, 111.37, -5.6, 1.1)
  }
  dend[423] {pt3dclear()
	pt3dadd(-31.36, 111.37, -5.6, 1.1)
	pt3dadd(-32.47, 112.36, -4.4, 1.48)
	pt3dadd(-34.31, 112.86, -4.4, 1.48)
	pt3dadd(-35.79, 113.03, -4.4, 1.1)
  }
  dend[424] {pt3dclear()
	pt3dadd(-31.36, 111.37, -5.6, 1.1)
	pt3dadd(-33.76, 110.53, -5.6, 1.1)
	pt3dadd(-35.97, 109.37, -5.6, 1.1)
	pt3dadd(-38.92, 108.71, -5.6, 1.1)
  }
  dend[425] {pt3dclear()
	pt3dadd(-18.63, 114.69, -3.6, 1.48)
	pt3dadd(-19, 113.03, -3.4, 1.48)
  }
  dend[426] {pt3dclear()
	pt3dadd(-19, 113.03, -3.4, 1.48)
	pt3dadd(-20.66, 112.2, -2.8, 1.1)
	pt3dadd(-22.32, 110.87, -3.8, 1.1)
	pt3dadd(-24.9, 109.7, -3.8, 1.1)
	pt3dadd(-28.78, 108.71, -4.2, 1.1)
  }
  dend[427] {pt3dclear()
	pt3dadd(-28.78, 108.71, -4.2, 1.1)
	pt3dadd(-31.36, 108.21, -4.4, 1.1)
	pt3dadd(-33.02, 106.88, -4.4, 1.1)
	pt3dadd(-34.5, 103.39, -4.4, 1.1)
  }
  dend[428] {pt3dclear()
	pt3dadd(-28.78, 108.71, -4.2, 1.1)
	pt3dadd(-29.88, 106.71, -4.2, 0.74)
	pt3dadd(-31.36, 104.55, -4.2, 0.74)
  }
  dend[429] {pt3dclear()
	pt3dadd(-19, 113.03, -3.4, 1.48)
	pt3dadd(-19.18, 110.7, -4.2, 1.48)
	pt3dadd(-21.21, 108.87, -4.2, 1.48)
	pt3dadd(-23.24, 106.88, -4.2, 1.1)
  }
  dend[430] {pt3dclear()
	pt3dadd(-23.24, 106.88, -4.2, 1.1)
	pt3dadd(-25.64, 105.88, -3.2, 1.1)
	pt3dadd(-27.85, 104.55, -3.2, 1.1)
	pt3dadd(-29.33, 102.56, -3.4, 1.1)
	pt3dadd(-30.07, 100.4, -3.4, 1.48)
	pt3dadd(-30.25, 99.9, -3.8, 1.1)
  }
  dend[431] {pt3dclear()
	pt3dadd(-23.24, 106.88, -4.2, 1.1)
	pt3dadd(-23.79, 103.89, -3.8, 1.1)
	pt3dadd(-25.09, 101.73, -2.4, 1.48)
  }
  dend[432] {pt3dclear()
	pt3dadd(-25.09, 101.73, -2.4, 1.48)
	pt3dadd(-27.85, 101.4, -2.4, 1.1)
	pt3dadd(-29.51, 99.74, -2.4, 1.48)
	pt3dadd(-30.07, 99.07, -2.4, 1.48)
	pt3dadd(-31.54, 99.24, -2.2, 1.1)
	pt3dadd(-32.83, 100.57, -2.2, 0.74)
  }
  dend[433] {pt3dclear()
	pt3dadd(-25.09, 101.73, -2.4, 1.48)
	pt3dadd(-25.09, 99.07, -2.4, 1.1)
	pt3dadd(-26.01, 96.91, -2.4, 1.1)
	pt3dadd(-27.48, 94.59, -3, 1.48)
  }
  dend[434] {pt3dclear()
	pt3dadd(-14.2, 114.85, -2.8, 2.22)
	pt3dadd(-13.65, 113.03, -2.8, 1.1)
	pt3dadd(-14.57, 111.37, -2.8, 1.1)
	pt3dadd(-15.68, 109.37, -2.8, 1.48)
	pt3dadd(-16.78, 107.88, -3.2, 1.48)
	pt3dadd(-16.97, 107.21, -3.4, 1.48)
  }
  dend[435] {pt3dclear()
	pt3dadd(-16.97, 107.21, -3.4, 1.48)
	pt3dadd(-19.18, 105.72, -2.8, 1.1)
	pt3dadd(-20.47, 104.55, -2.8, 1.1)
	pt3dadd(-21.4, 103.23, -2.8, 1.1)
	pt3dadd(-22.32, 101.73, -2.8, 1.1)
	pt3dadd(-23.06, 100.24, -2.8, 1.1)
	pt3dadd(-22.87, 98.08, -2.8, 1.1)
	pt3dadd(-23.06, 95.92, -2.8, 1.1)
	pt3dadd(-23.42, 93.26, -1.8, 1.1)
  }
  dend[436] {pt3dclear()
	pt3dadd(-23.42, 93.26, -1.8, 1.1)
	pt3dadd(-26.19, 90.44, -2.8, 1.48)
  }
  dend[437] {pt3dclear()
	pt3dadd(-23.42, 93.26, -1.8, 1.1)
	pt3dadd(-19.37, 89.11, -1.6, 1.1)
  }
  dend[438] {pt3dclear()
	pt3dadd(-16.97, 107.21, -3.4, 1.48)
	pt3dadd(-17.71, 104.22, -3.6, 1.48)
  }
  dend[439] {pt3dclear()
	pt3dadd(-17.71, 104.22, -3.6, 1.48)
	pt3dadd(-18.81, 102.89, -3.8, 1.1)
	pt3dadd(-19.92, 101.4, -3.8, 1.1)
	pt3dadd(-20.66, 99.24, -3.8, 1.1)
	pt3dadd(-20.66, 97.58, -3.8, 1.48)
	pt3dadd(-19.18, 95.09, -3.8, 1.48)
	pt3dadd(-18.81, 92.1, -4, 1.1)
  }
  dend[440] {pt3dclear()
	pt3dadd(-17.71, 104.22, -3.6, 1.48)
	pt3dadd(-16.78, 102.56, -3.2, 1.1)
	pt3dadd(-16.23, 100.07, -3.2, 1.48)
  }
  dend[441] {pt3dclear()
	pt3dadd(-16.23, 100.07, -3.2, 1.48)
	pt3dadd(-15.49, 97.08, -1.6, 1.1)
	pt3dadd(-15.49, 94.09, -1.6, 1.1)
  }
  dend[442] {pt3dclear()
	pt3dadd(-16.23, 100.07, -3.2, 1.48)
	pt3dadd(-17.89, 97.58, -3.2, 0.74)
  }
  dend[443] {pt3dclear()
	pt3dadd(-3.93, 104.92, 5.8, 4.42)
	pt3dadd(-5.59, 105.75, 6.6, 2.96)
	pt3dadd(-6.89, 106.42, 6.2, 2.22)
	pt3dadd(-8.36, 107.41, 6.2, 2.22)
	pt3dadd(-9.84, 108.41, 5.6, 2.58)
	pt3dadd(-10.58, 109.07, 5.6, 2.96)
  }
  dend[444] {pt3dclear()
	pt3dadd(-10.58, 109.07, 5.6, 2.96)
	pt3dadd(-11.45, 111.61, 4.2, 1.84)
	pt3dadd(-13.11, 113.61, 4.2, 1.84)
	pt3dadd(-14.95, 115.77, 4.2, 1.84)
	pt3dadd(-16.8, 118.09, 4.2, 1.84)
  }
}
proc shape3d_9() {
  dend[444] {	pt3dadd(-18.09, 120.09, 4.4, 2.22)
  }
  dend[445] {pt3dclear()
	pt3dadd(-18.09, 120.09, 4.4, 2.22)
	pt3dadd(-18.56, 121.85, 4.4, 2.22)
	pt3dadd(-18.56, 123.84, 4.4, 1.84)
	pt3dadd(-19.3, 126.5, 4.4, 2.22)
	pt3dadd(-20.22, 129.82, 4.4, 2.22)
	pt3dadd(-21.51, 132.14, 4.4, 2.22)
	pt3dadd(-23.73, 134.8, 5.2, 2.22)
  }
  dend[446] {pt3dclear()
	pt3dadd(-23.73, 134.8, 5.2, 2.22)
	pt3dadd(-22.85, 137.06, 3.2, 1.84)
	pt3dadd(-22.85, 139.88, 3.2, 1.84)
	pt3dadd(-22.48, 143.04, 3.2, 2.22)
	pt3dadd(-21.56, 146.03, 3.2, 1.84)
	pt3dadd(-20.64, 149.52, 2.6, 1.84)
	pt3dadd(-20.09, 152.18, 1.4, 1.84)
	pt3dadd(-19.72, 154, 1.4, 2.22)
  }
  dend[447] {pt3dclear()
	pt3dadd(-19.72, 154, 1.4, 2.22)
	pt3dadd(-17.87, 156.33, 1.4, 1.84)
	pt3dadd(-16.58, 158.16, 1.4, 1.84)
	pt3dadd(-16.21, 159.82, 1.4, 1.84)
  }
  dend[448] {pt3dclear()
	pt3dadd(-16.21, 159.82, 1.4, 1.84)
	pt3dadd(-14.37, 160.15, 1.2, 1.84)
	pt3dadd(-13.26, 160.48, 1.2, 1.48)
	pt3dadd(-11.41, 161.31, 2.6, 1.84)
	pt3dadd(-10.68, 162.81, 2.6, 1.84)
	pt3dadd(-10.31, 164.63, 2.6, 1.84)
	pt3dadd(-10.31, 165.96, 2.6, 1.84)
	pt3dadd(-9.38, 167.13, 3.6, 1.84)
	pt3dadd(-8.09, 167.62, 3.6, 1.84)
	pt3dadd(-6.25, 167.62, 3.6, 1.84)
	pt3dadd(-4.59, 168.12, 3.6, 1.1)
  }
  dend[449] {pt3dclear()
	pt3dadd(-16.21, 159.82, 1.4, 1.84)
	pt3dadd(-16.95, 161.64, 1.4, 1.84)
	pt3dadd(-18.42, 163.47, 1.4, 1.48)
	pt3dadd(-19.53, 165.63, 1.6, 1.84)
  }
  dend[450] {pt3dclear()
	pt3dadd(-19.53, 165.63, 1.6, 1.84)
	pt3dadd(-17.13, 168.29, -0.2, 1.84)
  }
  dend[451] {pt3dclear()
	pt3dadd(-17.13, 168.29, -0.2, 1.84)
	pt3dadd(-14.55, 168.79, 2.8, 1.84)
	pt3dadd(-12.71, 169.12, 2.8, 2.22)
	pt3dadd(-12.52, 170.45, 2.8, 2.58)
	pt3dadd(-11.04, 172.11, 1.8, 1.84)
  }
  dend[452] {pt3dclear()
	pt3dadd(-17.13, 168.29, -0.2, 1.84)
	pt3dadd(-18.61, 170.28, -0.2, 1.48)
	pt3dadd(-18.79, 171.94, -0.2, 1.48)
	pt3dadd(-18.06, 173.11, -0.2, 1.48)
  }
  dend[453] {pt3dclear()
	pt3dadd(-19.53, 165.63, 1.6, 1.84)
	pt3dadd(-21.38, 167.46, 0.6, 1.84)
	pt3dadd(-25.07, 170.28, -1.6, 2.22)
  }
  dend[454] {pt3dclear()
	pt3dadd(-25.07, 170.28, -1.6, 2.22)
	pt3dadd(-24.14, 172.77, -0.8, 1.48)
  }
  dend[455] {pt3dclear()
	pt3dadd(-25.07, 170.28, -1.6, 2.22)
	pt3dadd(-27.28, 171.94, -4, 1.84)
	pt3dadd(-28.39, 173.11, -6.6, 1.84)
	pt3dadd(-30.42, 172.77, -8.4, 1.84)
	pt3dadd(-32.63, 172.94, -7.2, 1.48)
  }
  dend[456] {pt3dclear()
	pt3dadd(-19.72, 154, 1.4, 2.22)
	pt3dadd(-22.11, 156.16, 1.2, 1.48)
	pt3dadd(-23.59, 157.99, 1.6, 1.48)
	pt3dadd(-24.33, 158.99, 1.6, 1.84)
	pt3dadd(-25.44, 161.64, 1.6, 2.22)
  }
  dend[457] {pt3dclear()
	pt3dadd(-25.44, 161.64, 1.6, 2.22)
	pt3dadd(-24.33, 162.81, 1.6, 1.48)
  }
  dend[458] {pt3dclear()
	pt3dadd(-24.33, 162.81, 1.6, 1.48)
	pt3dadd(-21.75, 161.15, 1.6, 0.74)
  }
  dend[459] {pt3dclear()
	pt3dadd(-21.75, 161.15, 1.6, 0.74)
	pt3dadd(-21.01, 158.82, 1.6, 0.74)
  }
  dend[460] {pt3dclear()
	pt3dadd(-21.75, 161.15, 1.6, 0.74)
	pt3dadd(-19.16, 161.31, 1.6, 0.74)
  }
  dend[461] {pt3dclear()
	pt3dadd(-24.33, 162.81, 1.6, 1.48)
	pt3dadd(-23.78, 164.14, 1.6, 1.1)
  }
  dend[462] {pt3dclear()
	pt3dadd(-23.78, 164.14, 1.6, 1.1)
	pt3dadd(-21.19, 164.63, 1.6, 0.74)
  }
  dend[463] {pt3dclear()
	pt3dadd(-23.78, 164.14, 1.6, 1.1)
	pt3dadd(-24.88, 167.46, 1.6, 1.1)
  }
  dend[464] {pt3dclear()
	pt3dadd(-25.44, 161.64, 1.6, 2.22)
	pt3dadd(-26.91, 162.48, 0.8, 2.22)
  }
  dend[465] {pt3dclear()
	pt3dadd(-26.91, 162.48, 0.8, 2.22)
	pt3dadd(-27.65, 166.13, 0.8, 1.48)
	pt3dadd(-28.94, 167.29, -1, 1.48)
	pt3dadd(-31.34, 168.95, -1, 1.48)
	pt3dadd(-36.69, 171.78, 0, 1.1)
  }
  dend[466] {pt3dclear()
	pt3dadd(-26.91, 162.48, 0.8, 2.22)
	pt3dadd(-32.08, 164.47, 0, 2.22)
  }
  dend[467] {pt3dclear()
	pt3dadd(-23.73, 134.8, 5.2, 2.22)
	pt3dadd(-26.31, 136.46, 5.4, 1.84)
	pt3dadd(-28.89, 138.46, 4.6, 1.84)
  }
  dend[468] {pt3dclear()
	pt3dadd(-28.89, 138.46, 4.6, 1.84)
	pt3dadd(-30.18, 140.45, 4.6, 1.84)
	pt3dadd(-30.55, 142.61, 4.6, 1.84)
	pt3dadd(-30.74, 144.94, 3.2, 2.22)
  }
  dend[469] {pt3dclear()
	pt3dadd(-30.74, 144.94, 3.2, 2.22)
	pt3dadd(-30.18, 147.59, 3, 1.84)
	pt3dadd(-30.55, 150.08, 3, 1.84)
	pt3dadd(-31.66, 152.91, 3, 1.84)
	pt3dadd(-32.58, 155.73, 0.4, 1.84)
  }
  dend[470] {pt3dclear()
	pt3dadd(-32.58, 155.73, 0.4, 1.84)
	pt3dadd(-30.97, 158.32, 0.4, 1.48)
	pt3dadd(-30.79, 161.15, 0.4, 1.84)
	pt3dadd(-31.71, 162.97, 0.4, 2.22)
	pt3dadd(-33, 165.13, 0.4, 1.48)
  }
  dend[471] {pt3dclear()
	pt3dadd(-32.58, 155.73, 0.4, 1.84)
	pt3dadd(-35.9, 159.06, 0, 1.84)
	pt3dadd(-36.69, 159.82, 0.6, 2.22)
  }
  dend[472] {pt3dclear()
	pt3dadd(-36.69, 159.82, 0.6, 2.22)
	pt3dadd(-38.17, 163.64, -0.2, 1.84)
  }
  dend[473] {pt3dclear()
	pt3dadd(-38.17, 163.64, -0.2, 1.84)
	pt3dadd(-36.14, 165.13, -0.2, 1.1)
  }
  dend[474] {pt3dclear()
	pt3dadd(-38.17, 163.64, -0.2, 1.84)
	pt3dadd(-38.9, 165.63, -0.2, 2.58)
	pt3dadd(-40.38, 166.79, -0.2, 2.58)
  }
  dend[475] {pt3dclear()
	pt3dadd(-40.38, 166.79, -0.2, 2.58)
	pt3dadd(-37.24, 168.95, 0.6, 1.84)
	pt3dadd(-35.03, 170.78, 0.6, 1.84)
	pt3dadd(-33.74, 173.11, 0.6, 1.84)
  }
  dend[476] {pt3dclear()
	pt3dadd(-40.38, 166.79, -0.2, 2.58)
	pt3dadd(-42.41, 169.29, -0.2, 2.58)
  }
  dend[477] {pt3dclear()
	pt3dadd(-36.69, 159.82, 0.6, 2.22)
	pt3dadd(-38.54, 159.49, 0.6, 1.84)
  }
  dend[478] {pt3dclear()
	pt3dadd(-38.54, 159.49, 0.6, 1.84)
	pt3dadd(-40.2, 160.15, 0.6, 1.48)
	pt3dadd(-41.67, 160.81, -1.4, 1.48)
  }
  dend[479] {pt3dclear()
	pt3dadd(-41.67, 160.81, -1.4, 1.48)
	pt3dadd(-44.25, 163.14, -1.4, 1.84)
  }
  dend[480] {pt3dclear()
	pt3dadd(-44.25, 163.14, -1.4, 1.84)
	pt3dadd(-43.33, 165.3, -1.4, 1.48)
  }
  dend[481] {pt3dclear()
	pt3dadd(-44.25, 163.14, -1.4, 1.84)
	pt3dadd(-49.24, 164.97, -1.4, 1.84)
  }
  dend[482] {pt3dclear()
	pt3dadd(-41.67, 160.81, -1.4, 1.48)
	pt3dadd(-45.18, 159.65, -1.4, 1.1)
  }
  dend[483] {pt3dclear()
	pt3dadd(-38.54, 159.49, 0.6, 1.84)
	pt3dadd(-38.35, 157.16, 0.6, 1.1)
	pt3dadd(-37.61, 154.17, 0.6, 0.74)
  }
  dend[484] {pt3dclear()
	pt3dadd(-30.74, 144.94, 3.2, 2.22)
	pt3dadd(-32.58, 146.76, 3.2, 1.48)
	pt3dadd(-34.61, 148.92, 1.2, 1.48)
	pt3dadd(-36.64, 150.75, -0.4, 1.48)
  }
  dend[485] {pt3dclear()
	pt3dadd(-36.64, 150.75, -0.4, 1.48)
	pt3dadd(-37.01, 151.41, 0.8, 1.48)
  }
  dend[486] {pt3dclear()
	pt3dadd(-37.01, 151.41, 0.8, 1.48)
	pt3dadd(-35.72, 153.57, 0.8, 1.1)
	pt3dadd(-35.17, 155.57, 0.8, 1.1)
	pt3dadd(-34.43, 157.56, 0.8, 1.1)
  }
  dend[487] {pt3dclear()
	pt3dadd(-37.01, 151.41, 0.8, 1.48)
	pt3dadd(-39.04, 152.41, 2, 1.1)
	pt3dadd(-40.7, 153.91, 2, 1.48)
	pt3dadd(-42.36, 155.73, 2, 1.48)
  }
  dend[488] {pt3dclear()
	pt3dadd(-36.64, 150.75, -0.4, 1.48)
	pt3dadd(-38.67, 149.92, -0.6, 1.48)
	pt3dadd(-40.89, 151.25, -2.4, 1.1)
	pt3dadd(-43.1, 152.74, -3.6, 1.1)
  }
  dend[489] {pt3dclear()
	pt3dadd(-28.89, 138.46, 4.6, 1.84)
	pt3dadd(-31.66, 137.29, 4.6, 1.84)
  }
  dend[490] {pt3dclear()
	pt3dadd(-31.66, 137.29, 4.6, 1.84)
	pt3dadd(-34.24, 138.62, 3.2, 1.1)
	pt3dadd(-36.27, 140.78, 3.2, 1.48)
	pt3dadd(-37.93, 143.44, 3.2, 1.48)
	pt3dadd(-39.23, 145.43, 3.2, 1.48)
  }
  dend[491] {pt3dclear()
	pt3dadd(-39.23, 145.43, 3.2, 1.48)
	pt3dadd(-40.15, 149.25, 3.2, 1.48)
  }
  dend[492] {pt3dclear()
	pt3dadd(-39.23, 145.43, 3.2, 1.48)
	pt3dadd(-43.28, 146.76, 3.2, 1.48)
  }
  dend[493] {pt3dclear()
	pt3dadd(-31.66, 137.29, 4.6, 1.84)
	pt3dadd(-31.48, 135.13, 4.4, 1.48)
	pt3dadd(-30.37, 132.98, 4.4, 1.48)
	pt3dadd(-29.26, 130.82, 4.4, 1.1)
	pt3dadd(-27.05, 129.82, 4.4, 1.1)
	pt3dadd(-24.83, 128.66, 4.4, 1.1)
	pt3dadd(-22.8, 128.82, 4.4, 1.1)
  }
  dend[494] {pt3dclear()
	pt3dadd(-18.09, 120.09, 4.4, 2.22)
	pt3dadd(-19.56, 120.25, 4.4, 1.84)
	pt3dadd(-20.86, 120.25, 4.4, 1.48)
	pt3dadd(-23.81, 121.75, 3.8, 1.1)
	pt3dadd(-25.65, 123.57, 3.8, 1.48)
	pt3dadd(-26.76, 125.57, 2.6, 1.48)
	pt3dadd(-28.61, 127.06, 2.6, 1.48)
	pt3dadd(-32.85, 129.55, 4.4, 1.48)
	pt3dadd(-36.09, 130.32, 3.6, 1.48)
	pt3dadd(-39.59, 130.32, 4.2, 1.1)
	pt3dadd(-43.28, 130.65, 1.4, 1.48)
  }
  dend[495] {pt3dclear()
	pt3dadd(-43.28, 130.65, 1.4, 1.48)
	pt3dadd(-43.65, 131.65, 1.4, 1.48)
  }
  dend[496] {pt3dclear()
	pt3dadd(-43.65, 131.65, 1.4, 1.48)
	pt3dadd(-44.21, 134.3, 2.2, 0.74)
	pt3dadd(-44.21, 135.63, 2.2, 0.74)
  }
  dend[497] {pt3dclear()
	pt3dadd(-43.65, 131.65, 1.4, 1.48)
	pt3dadd(-46.42, 131.98, 0.4, 1.1)
	pt3dadd(-49.19, 132.48, 0.4, 1.1)
	pt3dadd(-52.69, 133.97, 0.4, 1.1)
	pt3dadd(-55.09, 133.81, 0.4, 1.1)
	pt3dadd(-56.57, 132.48, -0.8, 1.1)
	pt3dadd(-59.71, 132.98, -0.8, 1.1)
	pt3dadd(-62.1, 132.64, -0.8, 0.74)
	pt3dadd(-64.13, 132.64, -0.8, 0.74)
  }
  dend[498] {pt3dclear()
	pt3dadd(-43.28, 130.65, 1.4, 1.48)
	pt3dadd(-46.61, 129.82, 0.4, 1.1)
	pt3dadd(-48.63, 129.15, -0.2, 1.1)
  }
  dend[499] {pt3dclear()
	pt3dadd(-48.63, 129.15, -0.2, 1.1)
	pt3dadd(-50.85, 129.99, -0.2, 1.1)
	pt3dadd(-52.32, 130.32, -0.2, 1.48)
  }
}
proc shape3d_10() {
  dend[499] {	pt3dadd(-53.99, 129.32, -0.2, 1.48)
	pt3dadd(-56.01, 128.32, -0.2, 1.1)
	pt3dadd(-58.04, 126.66, 0.2, 1.1)
	pt3dadd(-61, 125, 0.2, 1.1)
  }
  dend[500] {pt3dclear()
	pt3dadd(-48.63, 129.15, -0.2, 1.1)
	pt3dadd(-50.48, 126.66, 0.2, 1.1)
	pt3dadd(-52.32, 124.34, 0.2, 1.1)
  }
  dend[501] {pt3dclear()
	pt3dadd(-10.58, 109.07, 5.6, 2.96)
	pt3dadd(-12.42, 109.07, 5.4, 1.48)
	pt3dadd(-14.63, 110.07, 5.4, 1.48)
	pt3dadd(-17.77, 111.4, 5.4, 1.48)
	pt3dadd(-20.17, 112.9, 5.4, 1.48)
	pt3dadd(-22.75, 114.22, 4.8, 1.48)
	pt3dadd(-25.71, 115.05, 3.8, 1.48)
	pt3dadd(-28.29, 115.72, 3.2, 1.48)
	pt3dadd(-31.06, 116.05, 1.8, 1.48)
	pt3dadd(-33.82, 116.05, 1.2, 1.48)
  }
  dend[502] {pt3dclear()
	pt3dadd(-33.82, 116.05, 1.2, 1.48)
	pt3dadd(-35.25, 118.59, 0, 1.1)
	pt3dadd(-35.99, 119.42, 0, 0.74)
	pt3dadd(-36.72, 120.25, 0, 1.1)
  }
  dend[503] {pt3dclear()
	pt3dadd(-36.72, 120.25, 0, 1.1)
	pt3dadd(-36.91, 123.57, 0, 0.74)
	pt3dadd(-37.09, 127.56, -0.2, 1.1)
  }
  dend[504] {pt3dclear()
	pt3dadd(-36.72, 120.25, 0, 1.1)
	pt3dadd(-38.57, 120.92, 0, 1.1)
	pt3dadd(-40.23, 121.91, 0, 1.1)
	pt3dadd(-41.52, 124.9, 0, 1.1)
  }
  dend[505] {pt3dclear()
	pt3dadd(-33.82, 116.05, 1.2, 1.48)
	pt3dadd(-36.59, 115.55, 1.6, 1.48)
	pt3dadd(-38.8, 115.22, 1.4, 1.48)
  }
  dend[506] {pt3dclear()
	pt3dadd(-38.8, 115.22, 1.4, 1.48)
	pt3dadd(-41.34, 115.93, -0.2, 1.48)
  }
  dend[507] {pt3dclear()
	pt3dadd(-41.34, 115.93, -0.2, 1.48)
	pt3dadd(-42.63, 119.26, -0.2, 0.74)
  }
  dend[508] {pt3dclear()
	pt3dadd(-41.34, 115.93, -0.2, 1.48)
	pt3dadd(-43.18, 116.1, -0.2, 1.48)
  }
  dend[509] {pt3dclear()
	pt3dadd(-43.18, 116.1, -0.2, 1.48)
	pt3dadd(-45.21, 117.26, -0.2, 1.48)
  }
  dend[510] {pt3dclear()
	pt3dadd(-45.21, 117.26, -0.2, 1.48)
	pt3dadd(-46.32, 119.59, -0.2, 1.1)
	pt3dadd(-47.61, 122.08, -0.2, 1.1)
	pt3dadd(-49.82, 122.58, -0.2, 0.74)
	pt3dadd(-50.93, 123.91, -0.2, 0.74)
  }
  dend[511] {pt3dclear()
	pt3dadd(-45.21, 117.26, -0.2, 1.48)
	pt3dadd(-47.98, 117.93, -1.2, 1.48)
	pt3dadd(-50.56, 119.59, -1.2, 1.48)
	pt3dadd(-52.96, 121.58, -1.2, 1.48)
	pt3dadd(-55.54, 122.41, -1.2, 1.48)
	pt3dadd(-58.13, 121.91, -1.2, 1.48)
	pt3dadd(-60.52, 121.91, -1.2, 1.48)
	pt3dadd(-62.37, 122.25, -1.2, 1.1)
	pt3dadd(-64.4, 122.08, -1.2, 0.74)
  }
  dend[512] {pt3dclear()
	pt3dadd(-43.18, 116.1, -0.2, 1.48)
	pt3dadd(-44.29, 114.27, -0.2, 1.48)
	pt3dadd(-45.39, 113.44, -0.2, 1.48)
	pt3dadd(-47.06, 113.28, -0.2, 1.48)
  }
  dend[513] {pt3dclear()
	pt3dadd(-47.06, 113.28, -0.2, 1.48)
	pt3dadd(-48.53, 115.27, -0.2, 1.1)
	pt3dadd(-49.82, 115.93, -0.2, 1.1)
	pt3dadd(-51.3, 116.6, -0.2, 1.1)
	pt3dadd(-53.14, 117.43, -0.2, 1.48)
	pt3dadd(-55.17, 117.43, -0.2, 1.48)
	pt3dadd(-57.02, 116.6, -0.2, 1.48)
	pt3dadd(-58.31, 115.77, -0.2, 1.48)
  }
  dend[514] {pt3dclear()
	pt3dadd(-47.06, 113.28, -0.2, 1.48)
	pt3dadd(-49.64, 112.45, -0.2, 1.1)
  }
  dend[515] {pt3dclear()
	pt3dadd(-38.8, 115.22, 1.4, 1.48)
	pt3dadd(-40.1, 113.23, 1.4, 1.48)
	pt3dadd(-41.39, 111.07, 1.4, 1.48)
	pt3dadd(-41.94, 109.41, 1.6, 1.48)
	pt3dadd(-42.31, 108.41, 1.6, 1.48)
  }
  dend[516] {pt3dclear()
	pt3dadd(-42.31, 108.41, 1.6, 1.48)
	pt3dadd(-45.03, 108.46, -1, 1.1)
	pt3dadd(-47.79, 108.96, -1, 1.48)
  }
  dend[517] {pt3dclear()
	pt3dadd(-47.79, 108.96, -1, 1.48)
	pt3dadd(-49.82, 109.95, -1, 1.48)
  }
  dend[518] {pt3dclear()
	pt3dadd(-49.82, 109.95, -1, 1.48)
	pt3dadd(-52.59, 111.61, -1, 1.1)
	pt3dadd(-54.44, 112.78, -1, 1.48)
	pt3dadd(-55.91, 113.11, -1, 1.48)
	pt3dadd(-58.31, 113.77, -1, 1.48)
  }
  dend[519] {pt3dclear()
	pt3dadd(-49.82, 109.95, -1, 1.48)
	pt3dadd(-52.59, 108.13, -1, 1.1)
	pt3dadd(-54.62, 106.8, -1, 1.48)
	pt3dadd(-56.1, 106.47, -1, 1.48)
	pt3dadd(-57.39, 103.81, -1, 1.1)
  }
  dend[520] {pt3dclear()
	pt3dadd(-47.79, 108.96, -1, 1.48)
	pt3dadd(-49.82, 107.3, -1, 1.1)
	pt3dadd(-51.3, 105.47, -1, 1.1)
	pt3dadd(-52.59, 103.48, -1, 1.1)
	pt3dadd(-52.77, 102.31, -1, 1.1)
	pt3dadd(-54.99, 101.98, -1, 1.1)
	pt3dadd(-57.39, 101.15, -1, 1.1)
  }
  dend[521] {pt3dclear()
	pt3dadd(-42.31, 108.41, 1.6, 1.48)
	pt3dadd(-42.68, 107.58, 1.6, 1.1)
  }
  dend[522] {pt3dclear()
	pt3dadd(-42.68, 107.58, 1.6, 1.1)
	pt3dadd(-44.16, 105.09, 0.6, 1.1)
	pt3dadd(-45.45, 103.76, 0.6, 1.48)
	pt3dadd(-45.63, 101.93, 0.6, 1.48)
	pt3dadd(-46.55, 99.94, 1, 1.48)
  }
  dend[523] {pt3dclear()
	pt3dadd(-46.55, 99.94, 1, 1.48)
	pt3dadd(-49.14, 99.94, -1, 1.1)
	pt3dadd(-51.72, 100.1, -1, 1.1)
	pt3dadd(-54.07, 99.32, -1, 1.1)
  }
  dend[524] {pt3dclear()
	pt3dadd(-46.55, 99.94, 1, 1.48)
	pt3dadd(-45.63, 98.11, 0.6, 1.48)
	pt3dadd(-43.42, 96.95, 0.6, 1.48)
	pt3dadd(-41.94, 95.79, 0.6, 1.48)
	pt3dadd(-41.2, 93.63, 0.6, 1.48)
  }
  dend[525] {pt3dclear()
	pt3dadd(-42.68, 107.58, 1.6, 1.1)
	pt3dadd(-40.28, 105.92, 2, 1.1)
	pt3dadd(-38.8, 105.59, 2, 1.1)
	pt3dadd(-36.96, 105.59, 2, 1.1)
	pt3dadd(-34.75, 104.26, 2, 1.1)
	pt3dadd(-33.09, 101.77, 2, 0.74)
  }
  dend[526] {pt3dclear()
	pt3dadd(-2.38, 85.88, 3.4, 4.06)
	pt3dadd(-4.78, 86.38, 3.6, 2.96)
	pt3dadd(-6.07, 86.71, 2, 2.58)
	pt3dadd(-7.36, 86.87, 2, 2.22)
	pt3dadd(-9.21, 87.04, 2, 2.22)
	pt3dadd(-10.69, 87.21, 2, 2.58)
	pt3dadd(-11.61, 87.37, 2, 2.96)
  }
  dend[527] {pt3dclear()
	pt3dadd(-11.61, 87.37, 2, 2.96)
	pt3dadd(-13.44, 88.4, 0.4, 1.84)
	pt3dadd(-15.47, 89.23, 0.4, 1.84)
	pt3dadd(-16.95, 89.56, 0.2, 1.84)
	pt3dadd(-18.24, 89.9, 0.4, 2.22)
  }
  dend[528] {pt3dclear()
	pt3dadd(-18.24, 89.9, 0.4, 2.22)
	pt3dadd(-20.27, 90.39, -0.6, 1.84)
	pt3dadd(-22.12, 90.73, -0.8, 1.84)
	pt3dadd(-23.59, 90.89, -0.8, 1.84)
	pt3dadd(-25.25, 91.22, -2, 2.22)
  }
  dend[529] {pt3dclear()
	pt3dadd(-25.25, 91.22, -2, 2.22)
	pt3dadd(-26.54, 92.72, -0.8, 1.84)
	pt3dadd(-28.2, 93.72, -0.8, 1.84)
	pt3dadd(-30.05, 94.88, -2, 1.48)
	pt3dadd(-32.26, 95.71, -2.6, 1.84)
  }
  dend[530] {pt3dclear()
	pt3dadd(-32.26, 95.71, -2.6, 1.84)
	pt3dadd(-32.63, 97.54, -2.6, 1.48)
	pt3dadd(-33.37, 99.36, -2.6, 1.1)
	pt3dadd(-34.11, 101.03, -2.2, 1.1)
	pt3dadd(-35.03, 102.35, -2, 1.48)
  }
  dend[531] {pt3dclear()
	pt3dadd(-35.03, 102.35, -2, 1.48)
	pt3dadd(-34.25, 103.42, -1.4, 1.1)
	pt3dadd(-32.77, 104.08, -1.4, 1.1)
	pt3dadd(-30.74, 103.09, -1.2, 1.1)
	pt3dadd(-29.26, 101.76, -1.2, 1.1)
	pt3dadd(-27.6, 100.26, -1, 1.48)
	pt3dadd(-25.76, 99.1, -1, 1.48)
	pt3dadd(-22.81, 99.27, 0, 1.48)
	pt3dadd(-21.51, 100.1, 0, 1.48)
	pt3dadd(-19.3, 99.43, 2.2, 1.1)
  }
  dend[532] {pt3dclear()
	pt3dadd(-35.03, 102.35, -2, 1.48)
	pt3dadd(-36.14, 103.68, -1.8, 1.84)
	pt3dadd(-36.88, 105.01, -1.8, 2.22)
  }
  dend[533] {pt3dclear()
	pt3dadd(-36.88, 105.01, -1.8, 2.22)
	pt3dadd(-37.01, 108.07, -1.8, 1.84)
  }
  dend[534] {pt3dclear()
	pt3dadd(-37.01, 108.07, -1.8, 1.84)
	pt3dadd(-36.09, 109.4, -1.8, 1.84)
  }
  dend[535] {pt3dclear()
	pt3dadd(-36.09, 109.4, -1.8, 1.84)
	pt3dadd(-34.43, 110.73, -2.4, 1.48)
  }
  dend[536] {pt3dclear()
	pt3dadd(-34.43, 110.73, -2.4, 1.48)
	pt3dadd(-32.59, 110.9, -2.4, 1.84)
	pt3dadd(-29.82, 112.56, -2.4, 1.84)
	pt3dadd(-28.9, 114.38, -1.8, 1.84)
  }
  dend[537] {pt3dclear()
	pt3dadd(-28.9, 114.38, -1.8, 1.84)
	pt3dadd(-26.87, 115.88, -2.6, 1.1)
	pt3dadd(-25.94, 118.04, -2.6, 1.1)
	pt3dadd(-24.65, 119.87, -2.6, 1.1)
  }
  dend[538] {pt3dclear()
	pt3dadd(-28.9, 114.38, -1.8, 1.84)
	pt3dadd(-29.63, 116.88, -2.2, 1.48)
	pt3dadd(-30.19, 120.2, -0.4, 1.84)
  }
  dend[539] {pt3dclear()
	pt3dadd(-30.19, 120.2, -0.4, 1.84)
	pt3dadd(-29.26, 122.69, -1, 1.1)
	pt3dadd(-29.63, 124.85, -1, 0.74)
  }
  dend[540] {pt3dclear()
	pt3dadd(-30.19, 120.2, -0.4, 1.84)
	pt3dadd(-32.22, 121.69, -0.4, 1.1)
	pt3dadd(-32.77, 123.69, -0.4, 0.74)
  }
  dend[541] {pt3dclear()
	pt3dadd(-34.43, 110.73, -2.4, 1.48)
	pt3dadd(-34.43, 112.72, -2.4, 1.48)
	pt3dadd(-34.8, 115.21, -1.6, 1.48)
	pt3dadd(-34.25, 117.71, -1.6, 1.48)
  }
  dend[542] {pt3dclear()
	pt3dadd(-36.09, 109.4, -1.8, 1.84)
	pt3dadd(-37.94, 112.22, -2.6, 1.1)
	pt3dadd(-39.04, 114.72, -2.6, 1.48)
	pt3dadd(-40.33, 118.2, -2.2, 1.48)
	pt3dadd(-41.26, 120.03, -2.2, 1.1)
	pt3dadd(-43.47, 122.86, -3.2, 1.1)
  }
  dend[543] {pt3dclear()
	pt3dadd(-37.01, 108.07, -1.8, 1.84)
	pt3dadd(-39.04, 109.73, -1, 1.48)
	pt3dadd(-41.26, 112.06, -1, 1.48)
	pt3dadd(-42.73, 113.72, -2, 1.48)
	pt3dadd(-43.66, 115.55, -2, 1.48)
	pt3dadd(-44.95, 117.37, -2.4, 1.48)
	pt3dadd(-47.35, 119.53, -4.4, 1.1)
  }
  dend[544] {pt3dclear()
	pt3dadd(-36.88, 105.01, -1.8, 2.22)
	pt3dadd(-39.27, 105.68, -1.8, 1.48)
	pt3dadd(-40.93, 107.01, -2.4, 1.48)
	pt3dadd(-42.41, 108.17, -2.4, 1.84)
  }
}
proc shape3d_11() {
  dend[544] {  }
  dend[545] {pt3dclear()
	pt3dadd(-42.41, 108.17, -2.4, 1.84)
	pt3dadd(-44.62, 110.33, -1.6, 1.48)
	pt3dadd(-48.31, 113.48, -0.6, 1.48)
	pt3dadd(-51.04, 115.05, -1.6, 1.84)
  }
  dend[546] {pt3dclear()
	pt3dadd(-51.04, 115.05, -1.6, 1.84)
	pt3dadd(-52.7, 116.54, -0.8, 1.48)
	pt3dadd(-53.8, 118.04, -0.8, 1.48)
	pt3dadd(-54.54, 120.36, -0.8, 1.48)
	pt3dadd(-54.91, 122.36, -2.8, 1.48)
	pt3dadd(-56.02, 124.52, -2.8, 1.48)
  }
  dend[547] {pt3dclear()
	pt3dadd(-51.04, 115.05, -1.6, 1.84)
	pt3dadd(-53.62, 114.05, -0.8, 1.48)
	pt3dadd(-54.73, 113.89, -0.8, 1.48)
	pt3dadd(-56.75, 114.88, -1.8, 1.48)
	pt3dadd(-59.89, 111.39, 0.2, 1.48)
	pt3dadd(-62.84, 111.56, -1.6, 1.48)
	pt3dadd(-65.06, 113.05, -4, 1.1)
	pt3dadd(-66.53, 115.05, -4, 0.74)
  }
  dend[548] {pt3dclear()
	pt3dadd(-42.41, 108.17, -2.4, 1.84)
	pt3dadd(-45.55, 108.67, -2.6, 1.1)
	pt3dadd(-48.13, 109.33, -2.6, 1.48)
	pt3dadd(-50.53, 109.83, -2, 1.84)
	pt3dadd(-53.11, 109.33, -2, 1.48)
	pt3dadd(-55.88, 108.67, -2, 1.48)
	pt3dadd(-59.02, 106.67, -2.4, 1.48)
  }
  dend[549] {pt3dclear()
	pt3dadd(-59.02, 106.67, -2.4, 1.48)
	pt3dadd(-61.23, 106.51, -2, 1.48)
	pt3dadd(-63.81, 107.01, -2, 1.1)
	pt3dadd(-66.77, 108.17, -3.6, 1.1)
  }
  dend[550] {pt3dclear()
	pt3dadd(-66.77, 108.17, -3.6, 1.1)
	pt3dadd(-67.32, 110.49, -3.6, 1.48)
	pt3dadd(-68.98, 113.32, -3.4, 1.1)
  }
  dend[551] {pt3dclear()
	pt3dadd(-66.77, 108.17, -3.6, 1.1)
	pt3dadd(-69.53, 108.67, -3, 1.1)
	pt3dadd(-71.75, 110.16, -3, 1.48)
	pt3dadd(-74.33, 110.99, -3, 1.48)
	pt3dadd(-76.36, 110.33, -3, 1.1)
  }
  dend[552] {pt3dclear()
	pt3dadd(-59.02, 106.67, -2.4, 1.48)
	pt3dadd(-58.65, 102.52, -3.2, 1.1)
  }
  dend[553] {pt3dclear()
	pt3dadd(-32.26, 95.71, -2.6, 1.84)
	pt3dadd(-33.37, 95.88, -3.4, 1.48)
	pt3dadd(-34.85, 95.71, -3.4, 1.1)
	pt3dadd(-36.69, 95.38, -2.6, 1.48)
	pt3dadd(-37.24, 95.54, -2.6, 1.48)
  }
  dend[554] {pt3dclear()
	pt3dadd(-37.24, 95.54, -2.6, 1.48)
	pt3dadd(-37.43, 96.71, -3, 1.84)
  }
  dend[555] {pt3dclear()
	pt3dadd(-37.43, 96.71, -3, 1.84)
	pt3dadd(-38.17, 99.2, -2.6, 1.48)
	pt3dadd(-40.01, 100.69, -2.8, 1.48)
	pt3dadd(-40.93, 102.35, -2.8, 1.48)
  }
  dend[556] {pt3dclear()
	pt3dadd(-40.93, 102.35, -2.8, 1.48)
	pt3dadd(-40.93, 104.51, -2.8, 0.74)
  }
  dend[557] {pt3dclear()
	pt3dadd(-40.93, 102.35, -2.8, 1.48)
	pt3dadd(-43.33, 102.52, -3.2, 1.1)
	pt3dadd(-46.47, 104.68, -3.2, 1.1)
	pt3dadd(-48.31, 105.84, -3.2, 1.1)
	pt3dadd(-50.53, 106.51, -3.2, 1.1)
	pt3dadd(-52.01, 106.67, -3.2, 1.1)
  }
  dend[558] {pt3dclear()
	pt3dadd(-37.43, 96.71, -3, 1.84)
	pt3dadd(-40.01, 98.04, -2.8, 1.1)
	pt3dadd(-41.86, 98.87, -2.8, 1.1)
	pt3dadd(-44.26, 99.7, -2.6, 1.48)
	pt3dadd(-46.47, 100.86, -2.4, 1.48)
	pt3dadd(-48.5, 102.85, -2.4, 1.48)
	pt3dadd(-49.79, 104.51, -2.4, 1.1)
  }
  dend[559] {pt3dclear()
	pt3dadd(-37.24, 95.54, -2.6, 1.48)
	pt3dadd(-39.09, 95.21, -2.8, 1.84)
	pt3dadd(-40.93, 94.55, -3, 1.84)
  }
  dend[560] {pt3dclear()
	pt3dadd(-40.93, 94.55, -3, 1.84)
	pt3dadd(-42.6, 95.71, -2.2, 1.84)
	pt3dadd(-43.89, 96.87, -2.2, 1.84)
	pt3dadd(-46.47, 97.54, -2.2, 1.84)
  }
  dend[561] {pt3dclear()
	pt3dadd(-46.47, 97.54, -2.2, 1.84)
	pt3dadd(-48.31, 99.03, -2.8, 1.84)
	pt3dadd(-49.42, 99.7, -2.8, 1.84)
  }
  dend[562] {pt3dclear()
	pt3dadd(-49.42, 99.7, -2.8, 1.84)
	pt3dadd(-51.08, 102.35, -3.4, 1.84)
  }
  dend[563] {pt3dclear()
	pt3dadd(-51.08, 102.35, -3.4, 1.84)
	pt3dadd(-52.56, 104.51, -2.4, 1.48)
	pt3dadd(-54.4, 105.51, -1, 1.48)
	pt3dadd(-56.99, 106.01, -1, 1.48)
	pt3dadd(-59.2, 108.33, -1.2, 1.48)
  }
  dend[564] {pt3dclear()
	pt3dadd(-51.08, 102.35, -3.4, 1.84)
	pt3dadd(-53.48, 101.86, -4.4, 1.1)
	pt3dadd(-55.33, 101.52, -4.4, 1.1)
	pt3dadd(-57.91, 100.19, -4.4, 0.74)
  }
  dend[565] {pt3dclear()
	pt3dadd(-49.42, 99.7, -2.8, 1.84)
	pt3dadd(-51.27, 99.36, -3.4, 1.48)
	pt3dadd(-52.74, 98.87, -3.4, 1.48)
	pt3dadd(-55.33, 98.87, -3.4, 1.1)
	pt3dadd(-56.8, 99.03, -3.4, 1.1)
	pt3dadd(-59.02, 99.2, -3.8, 1.48)
	pt3dadd(-60.86, 99.7, -3.8, 1.48)
	pt3dadd(-62.34, 100.36, -3.8, 1.48)
	pt3dadd(-64.37, 99.53, -3.8, 1.48)
	pt3dadd(-65.66, 98.04, -3.8, 1.48)
	pt3dadd(-67.5, 96.87, -3.8, 1.48)
	pt3dadd(-69.35, 96.21, -3.8, 1.48)
	pt3dadd(-71.93, 96.54, -3.8, 1.1)
  }
  dend[566] {pt3dclear()
	pt3dadd(-46.47, 97.54, -2.2, 1.84)
	pt3dadd(-48.13, 95.38, -2.2, 1.1)
  }
  dend[567] {pt3dclear()
	pt3dadd(-40.93, 94.55, -3, 1.84)
	pt3dadd(-42.6, 93.38, -3.8, 1.48)
	pt3dadd(-44.81, 92.89, -4.4, 1.1)
	pt3dadd(-46.84, 92.06, -4.6, 1.1)
  }
  dend[568] {pt3dclear()
	pt3dadd(-25.25, 91.22, -2, 2.22)
	pt3dadd(-25.81, 89.23, -0.8, 1.48)
	pt3dadd(-27.1, 88.23, -1.2, 1.1)
	pt3dadd(-29.13, 87.74, -1.2, 1.1)
	pt3dadd(-30.79, 88.07, -2, 1.1)
  }
  dend[569] {pt3dclear()
	pt3dadd(-30.79, 88.07, -2, 1.1)
	pt3dadd(-32.63, 89.07, -2.2, 1.1)
	pt3dadd(-34.29, 90.06, -2.8, 1.1)
  }
  dend[570] {pt3dclear()
	pt3dadd(-34.29, 90.06, -2.8, 1.1)
	pt3dadd(-35.4, 93.38, -2.8, 0.36)
  }
  dend[571] {pt3dclear()
	pt3dadd(-34.29, 90.06, -2.8, 1.1)
	pt3dadd(-36.69, 90.23, -2.8, 1.48)
	pt3dadd(-39.46, 90.06, -4, 1.48)
	pt3dadd(-42.04, 89.56, -4, 1.48)
	pt3dadd(-44.62, 88.57, -3, 1.48)
  }
  dend[572] {pt3dclear()
	pt3dadd(-44.62, 88.57, -3, 1.48)
	pt3dadd(-46.47, 89.56, -3.8, 1.1)
	pt3dadd(-48.31, 90.56, -3.8, 1.1)
	pt3dadd(-50.16, 90.89, -3.8, 1.1)
	pt3dadd(-50.71, 92.89, -4.6, 1.1)
	pt3dadd(-51.45, 94.88, -4.6, 1.1)
	pt3dadd(-53.85, 94.55, -4.8, 1.1)
	pt3dadd(-56.06, 94.05, -4.8, 1.1)
	pt3dadd(-58.28, 94.05, -4.8, 1.1)
	pt3dadd(-60.49, 94.21, -4.8, 1.1)
	pt3dadd(-62.52, 94.05, -5.6, 1.1)
	pt3dadd(-64.92, 92.72, -5.6, 1.1)
  }
  dend[573] {pt3dclear()
	pt3dadd(-44.62, 88.57, -3, 1.48)
	pt3dadd(-46.1, 86.74, -4.4, 1.1)
	pt3dadd(-48.13, 85.74, -5.2, 1.1)
	pt3dadd(-51.27, 85.41, -5.2, 1.1)
	pt3dadd(-53.85, 85.24, -5.2, 1.1)
  }
  dend[574] {pt3dclear()
	pt3dadd(-30.79, 88.07, -2, 1.1)
	pt3dadd(-32.63, 86.57, -1, 1.48)
	pt3dadd(-35.03, 85.41, -2.2, 1.48)
	pt3dadd(-37.43, 85.41, -4.2, 1.1)
	pt3dadd(-40.38, 84.91, -3.6, 1.1)
	pt3dadd(-42.41, 85.24, -3.4, 0.74)
	pt3dadd(-43.7, 85.24, -3.4, 0.74)
  }
  dend[575] {pt3dclear()
	pt3dadd(-18.24, 89.9, 0.4, 2.22)
	pt3dadd(-19.16, 88.57, 0, 1.48)
	pt3dadd(-20.64, 86.74, -0.4, 1.1)
	pt3dadd(-22.3, 85.41, -0.4, 1.1)
	pt3dadd(-26.36, 82.59, -1, 1.1)
	pt3dadd(-28.2, 81.42, -0.2, 1.1)
	pt3dadd(-30.42, 81.59, -0.4, 1.1)
  }
  dend[576] {pt3dclear()
	pt3dadd(-30.42, 81.59, -0.4, 1.1)
	pt3dadd(-33, 85.24, -1.2, 0.74)
  }
  dend[577] {pt3dclear()
	pt3dadd(-30.42, 81.59, -0.4, 1.1)
	pt3dadd(-33.19, 80.93, -1.6, 1.48)
  }
  dend[578] {pt3dclear()
	pt3dadd(-33.19, 80.93, -1.6, 1.48)
	pt3dadd(-35.22, 81.92, -1.2, 1.48)
	pt3dadd(-37.24, 80.93, -1.2, 1.48)
  }
  dend[579] {pt3dclear()
	pt3dadd(-37.24, 80.93, -1.2, 1.48)
	pt3dadd(-40.01, 81.42, -2, 1.1)
	pt3dadd(-41.49, 81.59, -2, 1.1)
  }
  dend[580] {pt3dclear()
	pt3dadd(-41.49, 81.59, -2, 1.1)
	pt3dadd(-43.89, 81.92, -1.2, 1.1)
	pt3dadd(-46.1, 82.59, -1.2, 1.48)
  }
  dend[581] {pt3dclear()
	pt3dadd(-46.1, 82.59, -1.2, 1.48)
	pt3dadd(-46.47, 84.91, -1.2, 1.48)
	pt3dadd(-46.84, 87.74, -1.2, 1.84)
	pt3dadd(-47.39, 91.56, -0.2, 1.48)
  }
  dend[582] {pt3dclear()
	pt3dadd(-46.1, 82.59, -1.2, 1.48)
	pt3dadd(-48.13, 81.92, -1, 1.48)
  }
  dend[583] {pt3dclear()
	pt3dadd(-48.13, 81.92, -1, 1.48)
	pt3dadd(-50.9, 84.08, -1.6, 1.48)
  }
  dend[584] {pt3dclear()
	pt3dadd(-50.9, 84.08, -1.6, 1.48)
	pt3dadd(-52.01, 85.24, -2.4, 1.48)
  }
  dend[585] {pt3dclear()
	pt3dadd(-52.01, 85.24, -2.4, 1.48)
	pt3dadd(-50.9, 86.91, -2.2, 0.74)
	pt3dadd(-51.27, 89.4, -2.2, 0.74)
  }
  dend[586] {pt3dclear()
	pt3dadd(-52.01, 85.24, -2.4, 1.48)
	pt3dadd(-53.3, 86.57, -2.4, 1.48)
	pt3dadd(-55.51, 87.57, -2.4, 1.48)
  }
  dend[587] {pt3dclear()
	pt3dadd(-55.51, 87.57, -2.4, 1.48)
	pt3dadd(-55.88, 89.73, -2.4, 0.74)
  }
  dend[588] {pt3dclear()
	pt3dadd(-55.51, 87.57, -2.4, 1.48)
	pt3dadd(-57.72, 88.07, -2.4, 1.1)
	pt3dadd(-59.94, 88.07, -2.4, 1.1)
	pt3dadd(-62.15, 88.07, -1.4, 1.1)
	pt3dadd(-64.37, 88.23, -1.4, 1.1)
	pt3dadd(-66.95, 87.9, -1.4, 0.74)
  }
  dend[589] {pt3dclear()
	pt3dadd(-50.9, 84.08, -1.6, 1.48)
	pt3dadd(-53.11, 83.58, -1.2, 1.48)
	pt3dadd(-56.06, 84.08, -1.2, 1.48)
	pt3dadd(-57.91, 85.41, -1.2, 1.1)
	pt3dadd(-59.75, 84.91, -1.2, 1.1)
	pt3dadd(-62.15, 84.91, -1.2, 1.1)
	pt3dadd(-64.37, 84.91, -1.2, 0.74)
  }
  dend[590] {pt3dclear()
	pt3dadd(-48.13, 81.92, -1, 1.48)
	pt3dadd(-49.98, 79.93, -2, 1.48)
	pt3dadd(-52.19, 78.27, -2.6, 1.48)
	pt3dadd(-53.67, 77.27, -2.6, 1.1)
	pt3dadd(-54.77, 75.28, -2.6, 1.1)
  }
}
proc shape3d_12() {
  dend[590] {	pt3dadd(-54.96, 74.12, -1.8, 1.1)
  }
  dend[591] {pt3dclear()
	pt3dadd(-41.49, 81.59, -2, 1.1)
	pt3dadd(-43.15, 79.43, -2, 0.74)
  }
  dend[592] {pt3dclear()
	pt3dadd(-37.24, 80.93, -1.2, 1.48)
	pt3dadd(-38.35, 78.93, -1.8, 1.48)
	pt3dadd(-40.2, 77.11, -1.8, 1.48)
	pt3dadd(-43.33, 76.44, -1.8, 1.48)
	pt3dadd(-47.76, 75.44, -1.8, 1.1)
  }
  dend[593] {pt3dclear()
	pt3dadd(-33.19, 80.93, -1.6, 1.48)
	pt3dadd(-33.92, 79.6, -1.2, 1.48)
	pt3dadd(-34.48, 78.27, -1.2, 1.84)
  }
  dend[594] {pt3dclear()
	pt3dadd(-34.48, 78.27, -1.2, 1.84)
	pt3dadd(-36.14, 76.61, -1, 1.48)
	pt3dadd(-37.8, 74.45, -1, 1.48)
	pt3dadd(-40.93, 72.95, -1, 1.48)
  }
  dend[595] {pt3dclear()
	pt3dadd(-40.93, 72.95, -1, 1.48)
	pt3dadd(-43.33, 73.62, -1.4, 1.1)
	pt3dadd(-45.73, 74.12, -1.4, 1.1)
	pt3dadd(-48.31, 74.12, -2.4, 1.1)
	pt3dadd(-50.9, 74.61, -2.4, 1.1)
  }
  dend[596] {pt3dclear()
	pt3dadd(-40.93, 72.95, -1, 1.48)
	pt3dadd(-42.41, 70.46, -1.6, 1.48)
	pt3dadd(-42.96, 68.63, -1.6, 1.48)
  }
  dend[597] {pt3dclear()
	pt3dadd(-34.48, 78.27, -1.2, 1.84)
	pt3dadd(-34.11, 75.94, -1.4, 1.48)
	pt3dadd(-34.48, 73.95, -1.4, 1.48)
	pt3dadd(-35.58, 72.12, -1.4, 1.48)
	pt3dadd(-36.69, 69.8, -0.6, 1.1)
	pt3dadd(-38.35, 68.3, -0.6, 1.1)
	pt3dadd(-39.46, 68.8, -0.6, 1.1)
  }
  dend[598] {pt3dclear()
	pt3dadd(-11.61, 87.37, 2, 2.96)
	pt3dadd(-12.35, 85.54, 3.2, 2.22)
	pt3dadd(-12.72, 84.22, 3.2, 1.84)
	pt3dadd(-13.08, 82.39, 2.6, 1.48)
	pt3dadd(-13.64, 79.9, 2.2, 1.48)
  }
  dend[599] {pt3dclear()
	pt3dadd(-13.64, 79.9, 2.2, 1.48)
	pt3dadd(-15.03, 79.33, -0.4, 1.48)
	pt3dadd(-17.06, 78.66, 0, 1.1)
	pt3dadd(-18.91, 78.33, -0.8, 1.1)
	pt3dadd(-20.57, 78.5, -0.6, 1.48)
  }
  dend[600] {pt3dclear()
	pt3dadd(-20.57, 78.5, -0.6, 1.48)
	pt3dadd(-22.41, 80.32, -0.4, 1.1)
	pt3dadd(-23.78, 81.92, 1.6, 1.1)
	pt3dadd(-25.25, 83.42, 1.6, 1.1)
	pt3dadd(-28.2, 85.91, 0.4, 1.1)
  }
  dend[601] {pt3dclear()
	pt3dadd(-20.57, 78.5, -0.6, 1.48)
	pt3dadd(-21.86, 76.84, 0.2, 1.48)
	pt3dadd(-24.08, 76.17, 0.4, 1.48)
	pt3dadd(-26.11, 75.67, -1, 1.48)
  }
  dend[602] {pt3dclear()
	pt3dadd(-26.11, 75.67, -1, 1.48)
	pt3dadd(-28.13, 77, -0.8, 1.1)
	pt3dadd(-29.8, 78.33, -0.8, 1.48)
	pt3dadd(-31.64, 79.16, -0.8, 1.1)
  }
  dend[603] {pt3dclear()
	pt3dadd(-26.11, 75.67, -1, 1.48)
	pt3dadd(-28.13, 74.34, -1.2, 1.48)
	pt3dadd(-30.72, 72.85, -0.6, 1.48)
  }
  dend[604] {pt3dclear()
	pt3dadd(-30.72, 72.85, -0.6, 1.48)
	pt3dadd(-31.46, 75.67, -1.4, 1.1)
	pt3dadd(-31.64, 78, -1, 0.74)
  }
  dend[605] {pt3dclear()
	pt3dadd(-30.72, 72.85, -0.6, 1.48)
	pt3dadd(-30.16, 70.86, -1, 1.1)
	pt3dadd(-28.32, 70.03, -1, 1.1)
	pt3dadd(-25.55, 69.19, -0.4, 1.1)
  }
  dend[606] {pt3dclear()
	pt3dadd(-13.64, 79.9, 2.2, 1.48)
	pt3dadd(-13.27, 78.07, 2.8, 1.48)
	pt3dadd(-12.72, 75.41, 0.6, 1.48)
  }
  dend[607] {pt3dclear()
	pt3dadd(-12.72, 75.41, 0.6, 1.48)
	pt3dadd(-14.67, 73.51, 1, 1.48)
	pt3dadd(-15.4, 72.02, 1, 1.48)
  }
  dend[608] {pt3dclear()
	pt3dadd(-15.4, 72.02, 1, 1.48)
	pt3dadd(-17.43, 73.51, 0, 0.74)
	pt3dadd(-18.36, 75.84, 0.8, 1.1)
  }
  dend[609] {pt3dclear()
	pt3dadd(-15.4, 72.02, 1, 1.48)
	pt3dadd(-15.77, 70.19, 0, 1.48)
  }
  dend[610] {pt3dclear()
	pt3dadd(-15.77, 70.19, 0, 1.48)
	pt3dadd(-17.06, 69.36, 0.6, 1.84)
  }
  dend[611] {pt3dclear()
	pt3dadd(-17.06, 69.36, 0.6, 1.84)
	pt3dadd(-18.54, 69.36, 0.6, 1.48)
  }
  dend[612] {pt3dclear()
	pt3dadd(-18.54, 69.36, 0.6, 1.48)
	pt3dadd(-20.39, 70.69, 0.6, 1.1)
	pt3dadd(-21.12, 71.85, 0.6, 1.1)
	pt3dadd(-21.68, 73.68, 0.6, 0.74)
  }
  dend[613] {pt3dclear()
	pt3dadd(-18.54, 69.36, 0.6, 1.48)
	pt3dadd(-20.75, 67.87, 0.8, 0.74)
	pt3dadd(-22.78, 66.87, 0.6, 1.1)
	pt3dadd(-24.08, 67.2, 0.6, 1.1)
  }
  dend[614] {pt3dclear()
	pt3dadd(-17.06, 69.36, 0.6, 1.84)
	pt3dadd(-17.25, 67.04, 2.2, 1.84)
	pt3dadd(-17.06, 63.71, 1.8, 1.84)
  }
  dend[615] {pt3dclear()
	pt3dadd(-17.06, 63.71, 1.8, 1.84)
	pt3dadd(-18.72, 60.72, 0.8, 1.48)
  }
  dend[616] {pt3dclear()
	pt3dadd(-18.72, 60.72, 0.8, 1.48)
	pt3dadd(-21.31, 59.73, 0.8, 1.48)
	pt3dadd(-22.97, 58.56, 0.8, 1.48)
	pt3dadd(-24.26, 56.4, 0.6, 1.1)
	pt3dadd(-24.63, 54.24, 0.6, 1.1)
	pt3dadd(-25, 52.25, 1.4, 1.1)
	pt3dadd(-24.63, 50.59, 1.4, 1.1)
	pt3dadd(-23.15, 49.93, 0.6, 1.1)
	pt3dadd(-21.68, 50.09, 0.6, 1.48)
  }
  dend[617] {pt3dclear()
	pt3dadd(-21.68, 50.09, 0.6, 1.48)
	pt3dadd(-20.75, 48.1, 0.8, 1.48)
	pt3dadd(-19.09, 45.27, 1.8, 1.48)
	pt3dadd(-17.62, 42.78, 4, 1.48)
	pt3dadd(-16.88, 39.96, 3.8, 1.48)
	pt3dadd(-17.25, 38.3, 3.8, 1.48)
	pt3dadd(-18.54, 36.47, 3.8, 1.48)
  }
  dend[618] {pt3dclear()
	pt3dadd(-21.68, 50.09, 0.6, 1.48)
	pt3dadd(-21.86, 52.09, 0.4, 1.1)
	pt3dadd(-21.31, 54.41, 0.4, 0.74)
  }
  dend[619] {pt3dclear()
	pt3dadd(-18.72, 60.72, 0.8, 1.48)
	pt3dadd(-18.36, 57.4, 1.2, 1.1)
	pt3dadd(-17.99, 53.75, 1.2, 1.48)
	pt3dadd(-17.43, 50.92, 1.2, 1.1)
	pt3dadd(-16.7, 47.27, 0, 1.1)
	pt3dadd(-17.25, 44.94, 0, 0.74)
  }
  dend[620] {pt3dclear()
	pt3dadd(-17.06, 63.71, 1.8, 1.84)
	pt3dadd(-15.59, 62.22, 1.8, 1.48)
	pt3dadd(-14.3, 59.23, 2.4, 1.48)
  }
  dend[621] {pt3dclear()
	pt3dadd(-14.3, 59.23, 2.4, 1.48)
	pt3dadd(-15.22, 57.57, 1.4, 1.1)
	pt3dadd(-15.22, 54.24, 1.4, 1.1)
	pt3dadd(-14.3, 51.25, 1.4, 1.1)
	pt3dadd(-13.56, 48.76, 1.2, 1.1)
	pt3dadd(-12.45, 43.78, 1.2, 0.74)
  }
  dend[622] {pt3dclear()
	pt3dadd(-14.3, 59.23, 2.4, 1.48)
	pt3dadd(-12.45, 58.73, 2.8, 1.1)
	pt3dadd(-10.98, 55.91, 2.8, 1.1)
	pt3dadd(-10.24, 53.58, 3, 1.1)
  }
  dend[623] {pt3dclear()
	pt3dadd(-15.77, 70.19, 0, 1.48)
	pt3dadd(-14.3, 68.86, 0.4, 0.74)
	pt3dadd(-13.01, 67.2, 0.4, 0.74)
	pt3dadd(-11.71, 64.38, 0.4, 0.36)
  }
  dend[624] {pt3dclear()
	pt3dadd(-12.72, 75.41, 0.6, 1.48)
	pt3dadd(-12.16, 74.58, 1.8, 1.48)
  }
  dend[625] {pt3dclear()
	pt3dadd(-12.16, 74.58, 1.8, 1.48)
	pt3dadd(-11.05, 72.42, 1, 1.1)
  }
  dend[626] {pt3dclear()
	pt3dadd(-11.05, 72.42, 1, 1.1)
	pt3dadd(-10.32, 70.1, 0.8, 1.48)
	pt3dadd(-8.29, 68.1, 0.2, 1.1)
  }
  dend[627] {pt3dclear()
	pt3dadd(-8.29, 68.1, 0.2, 1.1)
	pt3dadd(-7.55, 64.45, 2.6, 1.48)
	pt3dadd(-6.07, 60.79, 1.4, 1.48)
	pt3dadd(-4.6, 58.14, 3.2, 1.48)
  }
  dend[628] {pt3dclear()
	pt3dadd(-4.6, 58.14, 3.2, 1.48)
	pt3dadd(-5.99, 56.4, 2.2, 1.1)
	pt3dadd(-8.58, 53.58, 2.2, 1.1)
	pt3dadd(-9.68, 50.09, 1, 1.1)
	pt3dadd(-10.24, 47.27, 1, 0.74)
  }
  dend[629] {pt3dclear()
	pt3dadd(-4.6, 58.14, 3.2, 1.48)
	pt3dadd(1.12, 54.48, 2.8, 1.1)
  }
  dend[630] {pt3dclear()
	pt3dadd(1.12, 54.48, 2.8, 1.1)
	pt3dadd(0.75, 51.66, 2.8, 1.1)
	pt3dadd(0.46, 47.43, 2.8, 1.1)
  }
  dend[631] {pt3dclear()
	pt3dadd(1.12, 54.48, 2.8, 1.1)
	pt3dadd(4.44, 57.8, 3.2, 1.1)
  }
  dend[632] {pt3dclear()
	pt3dadd(-8.29, 68.1, 0.2, 1.1)
	pt3dadd(-6.26, 67.11, 0, 1.1)
  }
  dend[633] {pt3dclear()
	pt3dadd(-6.26, 67.11, 0, 1.1)
	pt3dadd(-5.34, 64.28, 0, 1.1)
	pt3dadd(-4.41, 61.96, 0, 1.1)
	pt3dadd(-3.12, 59.63, 0, 1.1)
  }
  dend[634] {pt3dclear()
	pt3dadd(-6.26, 67.11, 0, 1.1)
	pt3dadd(-4.6, 65.45, 1.4, 1.1)
	pt3dadd(-3.12, 63.45, 1.4, 1.1)
	pt3dadd(-1.09, 60.3, 3.8, 1.1)
	pt3dadd(2.23, 56.81, 4.2, 1.1)
  }
  dend[635] {pt3dclear()
	pt3dadd(-11.05, 72.42, 1, 1.1)
	pt3dadd(-9.58, 72.42, 1.6, 0.74)
	pt3dadd(-8.84, 71.26, 1.6, 0.74)
	pt3dadd(-7.55, 69.93, 1.6, 0.74)
	pt3dadd(-5.52, 69.76, 1.6, 0.74)
  }
  dend[636] {pt3dclear()
	pt3dadd(-5.52, 69.76, 1.6, 0.74)
	pt3dadd(-4.04, 68.44, 1.2, 0.74)
	pt3dadd(-3.49, 66.28, 1.2, 0.36)
  }
  dend[637] {pt3dclear()
	pt3dadd(-5.52, 69.76, 1.6, 0.74)
	pt3dadd(-4.97, 71.43, 2.2, 0.74)
	pt3dadd(-4.23, 72.42, 2.2, 0.74)
	pt3dadd(-5.15, 73.75, 2.2, 0.36)
  }
  dend[638] {pt3dclear()
	pt3dadd(-12.16, 74.58, 1.8, 1.48)
	pt3dadd(-10.13, 74.75, 1.4, 1.1)
	pt3dadd(-8.47, 74.25, 1.4, 1.1)
	pt3dadd(-7.18, 74.25, 1.4, 1.1)
	pt3dadd(-5.7, 75.08, 1.8, 1.1)
	pt3dadd(-5.34, 76.91, 1.8, 1.1)
	pt3dadd(-5.89, 79.23, 3, 1.48)
  }
  dend[639] {pt3dclear()
	pt3dadd(-5.89, 79.23, 3, 1.48)
	pt3dadd(-5.15, 79.9, 3.8, 1.48)
  }
  dend[640] {pt3dclear()
	pt3dadd(-5.15, 79.9, 3.8, 1.48)
	pt3dadd(-3.86, 79.07, 4, 1.1)
	pt3dadd(-2.38, 79.4, 4, 1.1)
	pt3dadd(-0.91, 80.06, 4, 1.48)
  }
  dend[641] {pt3dclear()
	pt3dadd(-0.91, 80.06, 4, 1.48)
	pt3dadd(0.38, 78.9, 5.2, 1.1)
	pt3dadd(2.78, 78.73, 5.2, 1.48)
	pt3dadd(6.1, 78.4, 5.2, 1.1)
  }
  dend[642] {pt3dclear()
	pt3dadd(-0.91, 80.06, 4, 1.48)
	pt3dadd(0.02, 81.72, 3.6, 1.1)
	pt3dadd(1.68, 82.39, 3.6, 0.74)
  }
  dend[643] {pt3dclear()
	pt3dadd(-5.15, 79.9, 3.8, 1.48)
  }
}
proc shape3d_13() {
  dend[643] {	pt3dadd(-5.52, 81.89, 3, 1.1)
	pt3dadd(-5.7, 83.88, 3, 1.1)
	pt3dadd(-4.78, 86.21, 4.2, 1.48)
	pt3dadd(-2.38, 88.04, 4.4, 1.84)
  }
  dend[644] {pt3dclear()
	pt3dadd(-2.38, 88.04, 4.4, 1.84)
	pt3dadd(-0.35, 86.21, 4.8, 1.1)
	pt3dadd(1.12, 84.88, 4.8, 1.1)
  }
  dend[645] {pt3dclear()
	pt3dadd(-2.38, 88.04, 4.4, 1.84)
	pt3dadd(-0.54, 89.86, 4.4, 1.48)
	pt3dadd(0.94, 91.36, 4.4, 1.48)
	pt3dadd(1.49, 93.52, 4.6, 1.1)
  }
  dend[646] {pt3dclear()
	pt3dadd(-5.89, 79.23, 3, 1.48)
	pt3dadd(-7.73, 81.39, 1.8, 1.1)
	pt3dadd(-9.39, 83.22, 1.6, 1.1)
	pt3dadd(-12.72, 87.04, 1.8, 1.1)
  }
  dend[647] {pt3dclear()
	pt3dadd(-2.95, 52.33, 8.4, 3.7)
	pt3dadd(-5.9, 54.82, 7.2, 2.22)
	pt3dadd(-7.75, 56.82, 7.2, 2.22)
	pt3dadd(-8.3, 57.81, 7.2, 2.58)
  }
  dend[648] {pt3dclear()
	pt3dadd(-8.3, 57.81, 7.2, 2.58)
	pt3dadd(-9.04, 60.47, 5.8, 1.84)
	pt3dadd(-9.59, 61.47, 5.8, 1.48)
	pt3dadd(-10.33, 62.13, 5.8, 1.1)
	pt3dadd(-12.36, 63.46, 5.2, 1.1)
	pt3dadd(-15.31, 64.13, 5, 1.1)
	pt3dadd(-17.89, 64.62, 5, 1.48)
	pt3dadd(-20.11, 64.13, 4.8, 1.48)
	pt3dadd(-22.14, 62.96, 4.8, 1.48)
	pt3dadd(-24.35, 62.3, 4.8, 1.48)
  }
  dend[649] {pt3dclear()
	pt3dadd(-24.35, 62.3, 4.8, 1.48)
	pt3dadd(-26.88, 64.41, 4.4, 1.1)
	pt3dadd(-29.83, 65.25, 4.4, 1.1)
	pt3dadd(-31.49, 65.41, 5.6, 1.1)
  }
  dend[650] {pt3dclear()
	pt3dadd(-31.49, 65.41, 5.6, 1.1)
	pt3dadd(-33.52, 66.91, 5.8, 0.74)
  }
  dend[651] {pt3dclear()
	pt3dadd(-31.49, 65.41, 5.6, 1.1)
	pt3dadd(-33.89, 64.75, 5.4, 1.1)
	pt3dadd(-36.29, 65.41, 5.4, 1.1)
	pt3dadd(-38.14, 64.58, 3.8, 1.84)
	pt3dadd(-40.53, 65.91, 4, 1.1)
  }
  dend[652] {pt3dclear()
	pt3dadd(-24.35, 62.3, 4.8, 1.48)
	pt3dadd(-25.09, 60.3, 6, 1.48)
	pt3dadd(-26.56, 58.64, 6, 1.48)
	pt3dadd(-27.67, 57.98, 4.8, 1.84)
  }
  dend[653] {pt3dclear()
	pt3dadd(-27.67, 57.98, 4.8, 1.84)
	pt3dadd(-30.07, 57.65, 4.8, 1.48)
  }
  dend[654] {pt3dclear()
	pt3dadd(-30.07, 57.65, 4.8, 1.48)
	pt3dadd(-32.65, 58.31, 4.2, 1.48)
	pt3dadd(-34.5, 58.64, 4.2, 1.48)
	pt3dadd(-35.97, 58.31, 4.2, 2.22)
  }
  dend[655] {pt3dclear()
	pt3dadd(-35.97, 58.31, 4.2, 2.22)
	pt3dadd(-37.77, 59.43, 4.8, 1.48)
	pt3dadd(-39.61, 60.43, 4.8, 1.84)
	pt3dadd(-41.83, 61.42, 4, 1.84)
  }
  dend[656] {pt3dclear()
	pt3dadd(-41.83, 61.42, 4, 1.84)
	pt3dadd(-42.93, 63.42, 4, 1.48)
	pt3dadd(-44.22, 64.91, 1.6, 1.48)
	pt3dadd(-45.7, 66.24, 2.2, 1.1)
	pt3dadd(-47.91, 67.07, 3, 1.48)
	pt3dadd(-50.13, 68.57, 1.8, 1.84)
	pt3dadd(-51.79, 70.56, 2.2, 1.48)
	pt3dadd(-53.63, 72.06, 2.4, 1.1)
  }
  dend[657] {pt3dclear()
	pt3dadd(-41.83, 61.42, 4, 1.84)
	pt3dadd(-44.41, 60.59, 3, 1.84)
	pt3dadd(-46.62, 61.42, 3, 1.84)
	pt3dadd(-49.02, 62.42, 2.6, 1.48)
	pt3dadd(-50.87, 63.92, 2.6, 1.48)
	pt3dadd(-52.53, 65.58, 2.4, 1.1)
	pt3dadd(-52.53, 67.74, 2.6, 0.74)
  }
  dend[658] {pt3dclear()
	pt3dadd(-35.97, 58.31, 4.2, 2.22)
	pt3dadd(-37.63, 56.82, 4.6, 2.22)
	pt3dadd(-38.74, 55.65, 5.2, 2.22)
  }
  dend[659] {pt3dclear()
	pt3dadd(-38.74, 55.65, 5.2, 2.22)
	pt3dadd(-41.69, 55.99, 5, 1.84)
  }
  dend[660] {pt3dclear()
	pt3dadd(-41.69, 55.99, 5, 1.84)
	pt3dadd(-44.28, 55.82, 4.6, 1.1)
	pt3dadd(-46.31, 55.32, 3.8, 1.48)
  }
  dend[661] {pt3dclear()
	pt3dadd(-46.31, 55.32, 3.8, 1.48)
	pt3dadd(-47.97, 55.65, 3.6, 1.48)
  }
  dend[662] {pt3dclear()
	pt3dadd(-47.97, 55.65, 3.6, 1.48)
	pt3dadd(-49.58, 58.1, 3.6, 1.1)
	pt3dadd(-50.68, 59.6, 3.6, 1.1)
	pt3dadd(-51.79, 61.42, 3.6, 1.48)
	pt3dadd(-51.6, 63.25, 3.4, 1.48)
	pt3dadd(-50.5, 65.08, 3.4, 1.1)
  }
  dend[663] {pt3dclear()
	pt3dadd(-47.97, 55.65, 3.6, 1.48)
	pt3dadd(-51.29, 56.32, 3.6, 1.48)
	pt3dadd(-54.42, 56.65, 3.6, 1.48)
	pt3dadd(-56.82, 57.15, 3, 1.48)
  }
  dend[664] {pt3dclear()
	pt3dadd(-56.82, 57.15, 3, 1.48)
	pt3dadd(-60.28, 57.6, 1.2, 1.1)
	pt3dadd(-63.6, 58.43, 1.2, 1.1)
  }
  dend[665] {pt3dclear()
	pt3dadd(-56.82, 57.15, 3, 1.48)
	pt3dadd(-59.22, 55.32, 2.6, 1.84)
	pt3dadd(-61.62, 52.83, 2.6, 1.84)
	pt3dadd(-63.78, 49.96, 2.8, 1.48)
  }
  dend[666] {pt3dclear()
	pt3dadd(-46.31, 55.32, 3.8, 1.48)
	pt3dadd(-48.34, 53.16, 4.4, 1.1)
	pt3dadd(-51.1, 51.67, 4.4, 1.1)
	pt3dadd(-52.95, 49.67, 4.4, 1.48)
	pt3dadd(-54.61, 48.34, 5, 1.48)
  }
  dend[667] {pt3dclear()
	pt3dadd(-54.61, 48.34, 5, 1.48)
	pt3dadd(-56.64, 48.34, 5, 0.74)
	pt3dadd(-59.22, 49.34, 4.2, 0.74)
  }
  dend[668] {pt3dclear()
	pt3dadd(-54.61, 48.34, 5, 1.48)
	pt3dadd(-55.16, 45.35, 4.6, 0.74)
  }
  dend[669] {pt3dclear()
	pt3dadd(-41.69, 55.99, 5, 1.84)
	pt3dadd(-42.99, 53.66, 4, 1.1)
	pt3dadd(-44.83, 51.83, 4, 1.1)
	pt3dadd(-47.41, 50.34, 4, 1.48)
	pt3dadd(-47.6, 48.01, 4, 1.48)
	pt3dadd(-47.78, 45.52, 5.6, 1.48)
	pt3dadd(-48.52, 43.36, 5.6, 1.1)
	pt3dadd(-49.26, 42.03, 5.6, 1.1)
  }
  dend[670] {pt3dclear()
	pt3dadd(-38.74, 55.65, 5.2, 2.22)
	pt3dadd(-38, 53.49, 5, 1.84)
	pt3dadd(-37.45, 50.67, 6.2, 1.48)
	pt3dadd(-36.53, 48.68, 5.8, 1.48)
	pt3dadd(-35.61, 45.35, 7.6, 1.84)
  }
  dend[671] {pt3dclear()
	pt3dadd(-35.61, 45.35, 7.6, 1.84)
	pt3dadd(-37.27, 44.36, 7.2, 1.48)
	pt3dadd(-40.03, 43.86, 7.2, 1.48)
	pt3dadd(-41.88, 44.19, 7.8, 1.1)
	pt3dadd(-44.46, 45.02, 7.8, 0.74)
  }
  dend[672] {pt3dclear()
	pt3dadd(-35.61, 45.35, 7.6, 1.84)
	pt3dadd(-33.58, 45.19, 7, 1.48)
	pt3dadd(-32.84, 43.86, 7, 1.48)
	pt3dadd(-31.36, 42.53, 7, 1.48)
  }
  dend[673] {pt3dclear()
	pt3dadd(-30.07, 57.65, 4.8, 1.48)
	pt3dadd(-31.55, 54.99, 4.8, 1.48)
	pt3dadd(-32.84, 52.33, 4.2, 1.84)
  }
  dend[674] {pt3dclear()
	pt3dadd(-32.84, 52.33, 4.2, 1.84)
	pt3dadd(-34.5, 50.84, 4.4, 1.48)
	pt3dadd(-35.79, 49.51, 3.8, 1.48)
	pt3dadd(-36.9, 48.18, 3.8, 1.48)
	pt3dadd(-36.34, 46.35, 3.8, 1.1)
  }
  dend[675] {pt3dclear()
	pt3dadd(-32.84, 52.33, 4.2, 1.84)
	pt3dadd(-31.73, 48.18, 5.6, 1.48)
  }
  dend[676] {pt3dclear()
	pt3dadd(-31.73, 48.18, 5.6, 1.48)
	pt3dadd(-32.1, 45.19, 5.2, 1.48)
	pt3dadd(-32.28, 43.03, 5.2, 1.48)
	pt3dadd(-31.55, 41.37, 5.2, 1.48)
  }
  dend[677] {pt3dclear()
	pt3dadd(-31.73, 48.18, 5.6, 1.48)
	pt3dadd(-29.7, 47.85, 5.6, 0.74)
	pt3dadd(-28.96, 46.52, 5.6, 0.74)
	pt3dadd(-28.96, 44.19, 5.6, 0.74)
  }
  dend[678] {pt3dclear()
	pt3dadd(-27.67, 57.98, 4.8, 1.84)
	pt3dadd(-27.12, 55.82, 5.6, 1.1)
	pt3dadd(-26.93, 53, 5.4, 1.1)
	pt3dadd(-26.38, 50.17, 5.4, 1.1)
	pt3dadd(-25.09, 47.18, 5.4, 1.1)
  }
  dend[679] {pt3dclear()
	pt3dadd(-25.09, 47.18, 5.4, 1.1)
	pt3dadd(-26.38, 45.69, 4.6, 1.48)
	pt3dadd(-28.41, 43.03, 4.6, 1.48)
	pt3dadd(-30.07, 41.2, 4.6, 1.48)
	pt3dadd(-30.81, 38.21, 4.6, 1.48)
	pt3dadd(-30.62, 35.55, 4.6, 1.1)
  }
  dend[680] {pt3dclear()
	pt3dadd(-25.09, 47.18, 5.4, 1.1)
	pt3dadd(-22.87, 44.52, 4.8, 1.1)
	pt3dadd(-21.77, 42.86, 4.8, 1.1)
  }
  dend[681] {pt3dclear()
	pt3dadd(-21.77, 42.86, 4.8, 1.1)
	pt3dadd(-22.32, 40.7, 3.6, 1.1)
	pt3dadd(-22.87, 39.54, 3.6, 1.1)
	pt3dadd(-21.77, 37.55, 3.6, 1.48)
	pt3dadd(-21.77, 35.55, 3.6, 1.48)
	pt3dadd(-21.95, 33.56, 3, 1.1)
	pt3dadd(-22.69, 31.9, 3, 1.1)
	pt3dadd(-22.51, 29.74, 3, 1.48)
	pt3dadd(-21.95, 27.75, 3.2, 1.1)
  }
  dend[682] {pt3dclear()
	pt3dadd(-21.77, 42.86, 4.8, 1.1)
	pt3dadd(-19.74, 40.04, 4.6, 1.1)
	pt3dadd(-18.26, 38.05, 4.6, 1.48)
	pt3dadd(-16.23, 35.39, 4.6, 1.48)
	pt3dadd(-12.73, 32.07, 4.2, 1.48)
  }
  dend[683] {pt3dclear()
	pt3dadd(-12.73, 32.07, 4.2, 1.48)
	pt3dadd(-12.36, 29.24, 3.6, 0.74)
	pt3dadd(-11.44, 27.41, 3.6, 0.74)
	pt3dadd(-11.62, 25.42, 3.4, 0.74)
  }
  dend[684] {pt3dclear()
	pt3dadd(-12.73, 32.07, 4.2, 1.48)
	pt3dadd(-10.33, 30.9, 4.2, 1.1)
	pt3dadd(-7.93, 28.91, 4.2, 1.48)
  }
  dend[685] {pt3dclear()
	pt3dadd(-7.93, 28.91, 4.2, 1.48)
	pt3dadd(-6.45, 26.09, 2.8, 0.74)
  }
  dend[686] {pt3dclear()
	pt3dadd(-7.93, 28.91, 4.2, 1.48)
	pt3dadd(-4.79, 30.24, 4.4, 0.74)
  }
  dend[687] {pt3dclear()
	pt3dadd(-8.3, 57.81, 7.2, 2.58)
	pt3dadd(-10.51, 57.31, 5.6, 1.1)
	pt3dadd(-12.73, 56.98, 5.6, 1.1)
	pt3dadd(-15.68, 55.49, 5, 1.1)
	pt3dadd(-18.26, 53.99, 6, 1.1)
	pt3dadd(-20.84, 51.83, 5, 1.1)
	pt3dadd(-22.32, 48.84, 3.4, 1.1)
	pt3dadd(-23.98, 46.19, 2.2, 1.1)
	pt3dadd(-26.93, 44.03, 3.4, 1.48)
  }
  dend[688] {pt3dclear()
	pt3dadd(-26.93, 44.03, 3.4, 1.48)
	pt3dadd(-29.52, 43.69, 3.2, 1.1)
	pt3dadd(-32.1, 42.86, 3.2, 1.1)
	pt3dadd(-34.5, 41.7, 3.8, 0.74)
  }
  dend[689] {pt3dclear()
	pt3dadd(-26.93, 44.03, 3.4, 1.48)
	pt3dadd(-28.41, 41.2, 3, 1.48)
  }
}
proc shape3d_14() {
  dend[689] {	pt3dadd(-29.52, 38.71, 3.4, 1.48)
  }
  dend[690] {pt3dclear()
	pt3dadd(-29.52, 38.71, 3.4, 1.48)
	pt3dadd(-31.91, 37.88, 3, 1.1)
	pt3dadd(-33.21, 36.05, 5.4, 1.1)
  }
  dend[691] {pt3dclear()
	pt3dadd(-33.21, 36.05, 5.4, 1.1)
	pt3dadd(-34.68, 37.71, 4.8, 1.1)
	pt3dadd(-35.79, 36.72, 4.6, 0.74)
	pt3dadd(-36.9, 35.22, 3.6, 0.74)
	pt3dadd(-37.63, 33.39, 3.6, 0.74)
  }
  dend[692] {pt3dclear()
	pt3dadd(-33.21, 36.05, 5.4, 1.1)
	pt3dadd(-33.58, 34.23, 6.4, 1.1)
	pt3dadd(-34.68, 32.73, 6.4, 1.1)
	pt3dadd(-36.16, 31.4, 5, 1.1)
	pt3dadd(-36.53, 29.91, 5, 1.84)
	pt3dadd(-36.16, 28.08, 4.8, 1.84)
	pt3dadd(-35.42, 26.42, 4.8, 1.1)
  }
  dend[693] {pt3dclear()
	pt3dadd(-29.52, 38.71, 3.4, 1.48)
	pt3dadd(-28.22, 36.55, 4.8, 1.48)
  }
  dend[694] {pt3dclear()
	pt3dadd(-28.22, 36.55, 4.8, 1.48)
	pt3dadd(-28.41, 34.56, 5, 1.1)
	pt3dadd(-28.22, 32.4, 5, 1.48)
	pt3dadd(-27.3, 30.4, 5, 1.48)
	pt3dadd(-26.56, 28.58, 5.2, 1.1)
	pt3dadd(-27.49, 27.08, 5.2, 1.1)
  }
  dend[695] {pt3dclear()
	pt3dadd(-28.22, 36.55, 4.8, 1.48)
	pt3dadd(-26.56, 37.05, 4.6, 0.74)
	pt3dadd(-25.09, 37.05, 4.6, 0.74)
	pt3dadd(-23.61, 35.06, 4.6, 0.36)
  }
  dend[696] {pt3dclear()
	pt3dadd(-3.26, 44.29, 7.2, 3.7)
	pt3dadd(-6.95, 44.95, 7, 0.74)
	pt3dadd(-8.79, 45.78, 7, 0.74)
	pt3dadd(-10.51, 46.35, 6.2, 0.74)
	pt3dadd(-12.36, 46.19, 6.2, 0.74)
	pt3dadd(-14.02, 45.35, 6.2, 0.74)
	pt3dadd(-15.86, 43.86, 5.2, 0.74)
	pt3dadd(-16.79, 41.7, 5.2, 0.74)
	pt3dadd(-17.52, 40.37, 3.4, 0.74)
	pt3dadd(-17.71, 38.21, 3.4, 1.1)
	pt3dadd(-17.52, 36.05, 3.4, 1.1)
	pt3dadd(-16.42, 32.23, 3.4, 1.1)
	pt3dadd(-15.31, 29.41, 4.6, 0.74)
	pt3dadd(-14.57, 28.08, 4.6, 0.74)
	pt3dadd(-16.42, 26.42, 6, 0.74)
  }
}
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()
}
access soma

celldef()

Loading data, please wait...