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

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

celldef()

Loading data, please wait...