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

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

celldef()

Loading data, please wait...