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[1], dend[833]

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

celldef()

Loading data, please wait...