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

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

create soma[2], dend[1135]

proc topol() { local i
  connect soma[1](0), soma(0)
  connect dend(0), soma[1](1)
  for i = 1, 6 connect dend[i](0), dend[i-1](1)
  connect dend[7](0), dend[5](1)
  connect dend[8](0), dend[4](1)
  for i = 9, 10 connect dend[i](0), dend[8](1)
  for i = 11, 12 connect dend[i](0), dend[10](1)
  for i = 13, 14 connect dend[i](0), dend[12](1)
  connect dend[15](0), dend[3](1)
  for i = 16, 17 connect dend[i](0), dend[i-1](1)
  connect dend[18](0), dend[16](1)
  connect dend[19](0), dend[15](1)
  connect dend[20](0), dend[2](1)
  for i = 21, 23 connect dend[i](0), dend[i-1](1)
  connect dend[24](0), dend[22](1)
  connect dend[25](0), dend[21](1)
  connect dend[26](0), dend[20](1)
  for i = 27, 28 connect dend[i](0), dend[26](1)
  for i = 29, 30 connect dend[i](0), dend[28](1)
  connect dend[31](0), dend[1](1)
  for i = 32, 35 connect dend[i](0), dend[i-1](1)
  connect dend[36](0), dend[34](1)
  for i = 37, 38 connect dend[i](0), dend[i-1](1)
  connect dend[39](0), dend[37](1)
  connect dend[40](0), dend[36](1)
  for i = 41, 42 connect dend[i](0), dend[40](1)
  connect dend[43](0), dend[33](1)
  for i = 44, 46 connect dend[i](0), dend[i-1](1)
  connect dend[47](0), dend[45](1)
  for i = 48, 49 connect dend[i](0), dend[i-1](1)
  connect dend[50](0), dend[48](1)
  for i = 51, 52 connect dend[i](0), dend[i-1](1)
  connect dend[53](0), dend[51](1)
  connect dend[54](0), dend[50](1)
  for i = 55, 56 connect dend[i](0), dend[54](1)
  connect dend[57](0), dend[47](1)
  for i = 58, 59 connect dend[i](0), dend[57](1)
  for i = 60, 62 connect dend[i](0), dend[i-1](1)
  connect dend[63](0), dend[61](1)
  connect dend[64](0), dend[60](1)
  connect dend[65](0), dend[59](1)
  for i = 66, 68 connect dend[i](0), dend[i-1](1)
  connect dend[69](0), dend[67](1)
  connect dend[70](0), dend[66](1)
  for i = 71, 72 connect dend[i](0), dend[70](1)
  connect dend[73](0), dend[65](1)
  for i = 74, 75 connect dend[i](0), dend[73](1)
  connect dend[76](0), dend[44](1)
  for i = 77, 78 connect dend[i](0), dend[76](1)
  for i = 79, 81 connect dend[i](0), dend[i-1](1)
  connect dend[82](0), dend[80](1)
  connect dend[83](0), dend[79](1)
  for i = 84, 85 connect dend[i](0), dend[83](1)
  connect dend[86](0), dend[78](1)
  for i = 87, 88 connect dend[i](0), dend[86](1)
  connect dend[89](0), dend[43](1)
  for i = 90, 91 connect dend[i](0), dend[89](1)
  for i = 92, 93 connect dend[i](0), dend[i-1](1)
  connect dend[94](0), dend[92](1)
  connect dend[95](0), dend[91](1)
  connect dend[96](0), dend[32](1)
  for i = 97, 101 connect dend[i](0), dend[i-1](1)
  connect dend[102](0), dend[100](1)
  connect dend[103](0), dend[99](1)
  connect dend[104](0), dend[98](1)
  for i = 105, 106 connect dend[i](0), dend[104](1)
  connect dend[107](0), dend[97](1)
  for i = 108, 109 connect dend[i](0), dend[i-1](1)
  connect dend[110](0), dend[108](1)
  for i = 111, 112 connect dend[i](0), dend[i-1](1)
  connect dend[113](0), dend[111](1)
  connect dend[114](0), dend[110](1)
  connect dend[115](0), dend[107](1)
  connect dend[116](0), dend[96](1)
  for i = 117, 118 connect dend[i](0), dend[i-1](1)
  connect dend[119](0), dend[117](1)
  connect dend[120](0), dend[116](1)
  connect dend[121](0), dend[31](1)
  for i = 122, 126 connect dend[i](0), dend[i-1](1)
  connect dend[127](0), dend[125](1)
  connect dend[128](0), dend[124](1)
  for i = 129, 131 connect dend[i](0), dend[i-1](1)
  connect dend[132](0), dend[130](1)
  for i = 133, 134 connect dend[i](0), dend[132](1)
  connect dend[135](0), dend[129](1)
  connect dend[136](0), dend[128](1)
  for i = 137, 138 connect dend[i](0), dend[136](1)
  for i = 139, 140 connect dend[i](0), dend[138](1)
  connect dend[141](0), dend[123](1)
  for i = 142, 143 connect dend[i](0), dend[i-1](1)
  connect dend[144](0), dend[142](1)
  for i = 145, 146 connect dend[i](0), dend[144](1)
  connect dend[147](0), dend[141](1)
  for i = 148, 149 connect dend[i](0), dend[i-1](1)
  connect dend[150](0), dend[148](1)
  connect dend[151](0), dend[147](1)
  for i = 152, 153 connect dend[i](0), dend[i-1](1)
  connect dend[154](0), dend[152](1)
  connect dend[155](0), dend[151](1)
  for i = 156, 157 connect dend[i](0), dend[i-1](1)
  connect dend[158](0), dend[156](1)
  connect dend[159](0), dend[155](1)
  connect dend[160](0), dend[122](1)
  for i = 161, 163 connect dend[i](0), dend[i-1](1)
  connect dend[164](0), dend[162](1)
  for i = 165, 166 connect dend[i](0), dend[i-1](1)
  connect dend[167](0), dend[165](1)
  connect dend[168](0), dend[164](1)
  for i = 169, 171 connect dend[i](0), dend[i-1](1)
  connect dend[172](0), dend[170](1)
  for i = 173, 174 connect dend[i](0), dend[172](1)
  connect dend[175](0), dend[169](1)
  connect dend[176](0), dend[168](1)
  connect dend[177](0), dend[161](1)
  for i = 178, 180 connect dend[i](0), dend[i-1](1)
  connect dend[181](0), dend[179](1)
  connect dend[182](0), dend[178](1)
  for i = 183, 184 connect dend[i](0), dend[182](1)
  connect dend[185](0), dend[177](1)
  connect dend[186](0), dend[160](1)
  for i = 187, 190 connect dend[i](0), dend[i-1](1)
  connect dend[191](0), dend[189](1)
  for i = 192, 193 connect dend[i](0), dend[191](1)
  connect dend[194](0), dend[188](1)
  for i = 195, 198 connect dend[i](0), dend[i-1](1)
  connect dend[199](0), dend[197](1)
  for i = 200, 201 connect dend[i](0), dend[199](1)
  connect dend[202](0), dend[196](1)
  for i = 203, 204 connect dend[i](0), dend[202](1)
  connect dend[205](0), dend[195](1)
  for i = 206, 207 connect dend[i](0), dend[205](1)
  for i = 208, 209 connect dend[i](0), dend[207](1)
  connect dend[210](0), dend[194](1)
  for i = 211, 212 connect dend[i](0), dend[210](1)
  for i = 213, 214 connect dend[i](0), dend[212](1)
  for i = 215, 218 connect dend[i](0), dend[i-1](1)
  connect dend[219](0), dend[217](1)
  connect dend[220](0), dend[216](1)
  connect dend[221](0), dend[215](1)
  connect dend[222](0), dend[214](1)
  connect dend[223](0), dend[187](1)
  for i = 224, 226 connect dend[i](0), dend[i-1](1)
  connect dend[227](0), dend[225](1)
  connect dend[228](0), dend[224](1)
  for i = 229, 231 connect dend[i](0), dend[i-1](1)
  connect dend[232](0), dend[230](1)
  for i = 233, 234 connect dend[i](0), dend[i-1](1)
  connect dend[235](0), dend[233](1)
  for i = 236, 237 connect dend[i](0), dend[235](1)
  for i = 238, 239 connect dend[i](0), dend[237](1)
  connect dend[240](0), dend[232](1)
  for i = 241, 242 connect dend[i](0), dend[i-1](1)
  connect dend[243](0), dend[241](1)
  connect dend[244](0), dend[240](1)
  for i = 245, 246 connect dend[i](0), dend[i-1](1)
  connect dend[247](0), dend[245](1)
  connect dend[248](0), dend[244](1)
  connect dend[249](0), dend[229](1)
  for i = 250, 251 connect dend[i](0), dend[i-1](1)
  connect dend[252](0), dend[250](1)
  connect dend[253](0), dend[249](1)
  connect dend[254](0), dend[228](1)
  for i = 255, 256 connect dend[i](0), dend[i-1](1)
  connect dend[257](0), dend[255](1)
  for i = 258, 260 connect dend[i](0), dend[i-1](1)
  connect dend[261](0), dend[259](1)
  connect dend[262](0), dend[258](1)
  for i = 263, 266 connect dend[i](0), dend[i-1](1)
  connect dend[267](0), dend[265](1)
  for i = 268, 269 connect dend[i](0), dend[267](1)
  connect dend[270](0), dend[264](1)
  for i = 271, 273 connect dend[i](0), dend[i-1](1)
  connect dend[274](0), dend[272](1)
  connect dend[275](0), dend[271](1)
  for i = 276, 277 connect dend[i](0), dend[275](1)
  connect dend[278](0), dend[270](1)
  for i = 279, 280 connect dend[i](0), dend[278](1)
  connect dend[281](0), dend[263](1)
  connect dend[282](0), dend[262](1)
  for i = 283, 284 connect dend[i](0), dend[i-1](1)
  connect dend[285](0), dend[283](1)
  for i = 286, 287 connect dend[i](0), dend[i-1](1)
  connect dend[288](0), dend[286](1)
  connect dend[289](0), dend[285](1)
  connect dend[290](0), dend[282](1)
  connect dend[291](0), dend[257](1)
  connect dend[292](0), dend[254](1)
  for i = 293, 294 connect dend[i](0), dend[i-1](1)
  connect dend[295](0), dend[293](1)
  for i = 296, 297 connect dend[i](0), dend[295](1)
  connect dend[298](0), dend[292](1)
  connect dend[299](0), dend[223](1)
  for i = 300, 304 connect dend[i](0), dend[i-1](1)
  connect dend[305](0), dend[303](1)
  for i = 306, 307 connect dend[i](0), dend[i-1](1)
  connect dend[308](0), dend[306](1)
  connect dend[309](0), dend[305](1)
  connect dend[310](0), dend[302](1)
  for i = 311, 312 connect dend[i](0), dend[310](1)
  for i = 313, 314 connect dend[i](0), dend[312](1)
  topol_1()
}
proc topol_1() {
  connect dend[315](0), dend[301](1)
  for i = 316, 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)
  for i = 322, 323 connect dend[i](0), dend[i-1](1)
  connect dend[324](0), dend[322](1)
  for i = 325, 327 connect dend[i](0), dend[i-1](1)
  connect dend[328](0), dend[326](1)
  connect dend[329](0), dend[325](1)
  for i = 330, 331 connect dend[i](0), dend[329](1)
  connect dend[332](0), dend[324](1)
  connect dend[333](0), dend[321](1)
  for i = 334, 335 connect dend[i](0), dend[333](1)
  connect dend[336](0), dend[316](1)
  for i = 337, 339 connect dend[i](0), dend[i-1](1)
  connect dend[340](0), dend[338](1)
  connect dend[341](0), dend[337](1)
  connect dend[342](0), dend[336](1)
  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[315](1)
  for i = 348, 349 connect dend[i](0), dend[347](1)
  connect dend[350](0), dend[300](1)
  for i = 351, 353 connect dend[i](0), dend[i-1](1)
  connect dend[354](0), dend[352](1)
  for i = 355, 356 connect dend[i](0), dend[i-1](1)
  connect dend[357](0), dend[355](1)
  connect dend[358](0), dend[354](1)
  connect dend[359](0), dend[351](1)
  connect dend[360](0), dend[350](1)
  for i = 361, 362 connect dend[i](0), dend[360](1)
  for i = 363, 364 connect dend[i](0), dend[362](1)
  connect dend[365](0), dend[299](1)
  for i = 366, 367 connect dend[i](0), dend[365](1)
  for i = 368, 369 connect dend[i](0), dend[367](1)
  for i = 370, 371 connect dend[i](0), dend[369](1)
  connect dend[372](0), dend[186](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[i-1](1)
  connect dend[378](0), dend[376](1)
  connect dend[379](0), dend[375](1)
  connect dend[380](0), dend[372](1)
  for i = 381, 382 connect dend[i](0), dend[380](1)
  for i = 383, 384 connect dend[i](0), dend[i-1](1)
  connect dend[385](0), dend[383](1)
  connect dend[386](0), dend[382](1)
  for i = 387, 389 connect dend[i](0), dend[i-1](1)
  connect dend[390](0), dend[388](1)
  connect dend[391](0), dend[387](1)
  connect dend[392](0), dend[386](1)
  connect dend[393](0), dend[121](1)
  for i = 394, 398 connect dend[i](0), dend[i-1](1)
  connect dend[399](0), dend[397](1)
  connect dend[400](0), dend[396](1)
  connect dend[401](0), dend[395](1)
  for i = 402, 403 connect dend[i](0), dend[i-1](1)
  connect dend[404](0), dend[402](1)
  connect dend[405](0), dend[401](1)
  for i = 406, 407 connect dend[i](0), dend[405](1)
  connect dend[408](0), dend[394](1)
  for i = 409, 410 connect dend[i](0), dend[408](1)
  for i = 411, 412 connect dend[i](0), dend[410](1)
  for i = 413, 414 connect dend[i](0), dend[412](1)
  for i = 415, 416 connect dend[i](0), dend[i-1](1)
  connect dend[417](0), dend[415](1)
  connect dend[418](0), dend[414](1)
  for i = 419, 420 connect dend[i](0), dend[i-1](1)
  connect dend[421](0), dend[419](1)
  connect dend[422](0), dend[418](1)
  connect dend[423](0), dend[393](1)
  for i = 424, 425 connect dend[i](0), dend[423](1)
  for i = 426, 427 connect dend[i](0), dend[425](1)
  for i = 428, 430 connect dend[i](0), dend[i-1](1)
  connect dend[431](0), dend[429](1)
  for i = 432, 433 connect dend[i](0), dend[431](1)
  connect dend[434](0), dend[428](1)
  connect dend[435](0), dend[427](1)
  connect dend[436](0), dend(1)
  for i = 437, 442 connect dend[i](0), dend[i-1](1)
  connect dend[443](0), dend[441](1)
  for i = 444, 445 connect dend[i](0), dend[i-1](1)
  connect dend[446](0), dend[444](1)
  for i = 447, 448 connect dend[i](0), dend[446](1)
  connect dend[449](0), dend[443](1)
  connect dend[450](0), dend[440](1)
  connect dend[451](0), dend[439](1)
  for i = 452, 453 connect dend[i](0), dend[451](1)
  for i = 454, 456 connect dend[i](0), dend[i-1](1)
  connect dend[457](0), dend[455](1)
  for i = 458, 459 connect dend[i](0), dend[457](1)
  for i = 460, 461 connect dend[i](0), dend[459](1)
  connect dend[462](0), dend[454](1)
  for i = 463, 464 connect dend[i](0), dend[462](1)
  connect dend[465](0), dend[453](1)
  for i = 466, 467 connect dend[i](0), dend[465](1)
  for i = 468, 469 connect dend[i](0), dend[i-1](1)
  connect dend[470](0), dend[468](1)
  connect dend[471](0), dend[467](1)
  for i = 472, 475 connect dend[i](0), dend[i-1](1)
  connect dend[476](0), dend[474](1)
  connect dend[477](0), dend[473](1)
  connect dend[478](0), dend[472](1)
  connect dend[479](0), dend[471](1)
  for i = 480, 481 connect dend[i](0), dend[479](1)
  connect dend[482](0), dend[438](1)
  for i = 483, 486 connect dend[i](0), dend[i-1](1)
  connect dend[487](0), dend[485](1)
  for i = 488, 489 connect dend[i](0), dend[i-1](1)
  connect dend[490](0), dend[488](1)
  for i = 491, 493 connect dend[i](0), dend[i-1](1)
  connect dend[494](0), dend[492](1)
  connect dend[495](0), dend[491](1)
  for i = 496, 497 connect dend[i](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)
  connect dend[502](0), dend[490](1)
  connect dend[503](0), dend[487](1)
  for i = 504, 505 connect dend[i](0), dend[i-1](1)
  connect dend[506](0), dend[504](1)
  for i = 507, 508 connect dend[i](0), dend[i-1](1)
  connect dend[509](0), dend[507](1)
  connect dend[510](0), dend[506](1)
  for i = 511, 512 connect dend[i](0), dend[510](1)
  connect dend[513](0), dend[503](1)
  for i = 514, 515 connect dend[i](0), dend[513](1)
  connect dend[516](0), dend[484](1)
  for i = 517, 520 connect dend[i](0), dend[i-1](1)
  connect dend[521](0), dend[519](1)
  connect dend[522](0), dend[518](1)
  connect dend[523](0), dend[517](1)
  connect dend[524](0), dend[516](1)
  for i = 525, 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, 533 connect dend[i](0), dend[i-1](1)
  connect dend[534](0), dend[532](1)
  connect dend[535](0), dend[531](1)
  connect dend[536](0), dend[526](1)
  for i = 537, 538 connect dend[i](0), dend[536](1)
  connect dend[539](0), dend[525](1)
  for i = 540, 545 connect dend[i](0), dend[i-1](1)
  connect dend[546](0), dend[544](1)
  connect dend[547](0), dend[543](1)
  connect dend[548](0), dend[542](1)
  for i = 549, 550 connect dend[i](0), dend[548](1)
  connect dend[551](0), dend[541](1)
  for i = 552, 554 connect dend[i](0), dend[i-1](1)
  connect dend[555](0), dend[553](1)
  connect dend[556](0), dend[552](1)
  connect dend[557](0), dend[551](1)
  connect dend[558](0), dend[540](1)
  connect dend[559](0), dend[539](1)
  for i = 560, 561 connect dend[i](0), dend[i-1](1)
  connect dend[562](0), dend[560](1)
  connect dend[563](0), dend[559](1)
  for i = 564, 566 connect dend[i](0), dend[i-1](1)
  connect dend[567](0), dend[565](1)
  connect dend[568](0), dend[564](1)
  connect dend[569](0), dend[563](1)
  connect dend[570](0), dend[524](1)
  for i = 571, 572 connect dend[i](0), dend[i-1](1)
  connect dend[573](0), dend[571](1)
  for i = 574, 575 connect dend[i](0), dend[573](1)
  for i = 576, 577 connect dend[i](0), dend[575](1)
  connect dend[578](0), dend[570](1)
  for i = 579, 580 connect dend[i](0), dend[i-1](1)
  connect dend[581](0), dend[579](1)
  for i = 582, 583 connect dend[i](0), dend[i-1](1)
  connect dend[584](0), dend[582](1)
  connect dend[585](0), dend[581](1)
  for i = 586, 587 connect dend[i](0), dend[585](1)
  connect dend[588](0), dend[578](1)
  for i = 589, 594 connect dend[i](0), dend[i-1](1)
  connect dend[595](0), dend[593](1)
  connect dend[596](0), dend[592](1)
  for i = 597, 598 connect dend[i](0), dend[596](1)
  connect dend[599](0), dend[591](1)
  connect dend[600](0), dend[590](1)
  for i = 601, 602 connect dend[i](0), dend[i-1](1)
  connect dend[603](0), dend[601](1)
  connect dend[604](0), dend[600](1)
  connect dend[605](0), dend[589](1)
  for i = 606, 609 connect dend[i](0), dend[i-1](1)
  connect dend[610](0), dend[608](1)
  for i = 611, 612 connect dend[i](0), dend[610](1)
  connect dend[613](0), dend[607](1)
  for i = 614, 615 connect dend[i](0), dend[613](1)
  connect dend[616](0), dend[606](1)
  for i = 617, 618 connect dend[i](0), dend[616](1)
  for i = 619, 620 connect dend[i](0), dend[618](1)
  connect dend[621](0), dend[605](1)
  for i = 622, 624 connect dend[i](0), dend[i-1](1)
  connect dend[625](0), dend[623](1)
  for i = 626, 627 connect dend[i](0), dend[625](1)
  connect dend[628](0), dend[622](1)
  connect dend[629](0), dend[621](1)
  for i = 630, 631 connect dend[i](0), dend[629](1)
  connect dend[632](0), dend[588](1)
  topol_2()
}
proc topol_2() {
  for i = 633, 634 connect dend[i](0), dend[i-1](1)
  connect dend[635](0), dend[633](1)
  for i = 636, 637 connect dend[i](0), dend[635](1)
  for i = 638, 639 connect dend[i](0), dend[637](1)
  connect dend[640](0), dend[632](1)
  for i = 641, 642 connect dend[i](0), dend[i-1](1)
  connect dend[643](0), dend[641](1)
  for i = 644, 645 connect dend[i](0), dend[643](1)
  connect dend[646](0), dend[640](1)
  for i = 647, 649 connect dend[i](0), dend[i-1](1)
  connect dend[650](0), dend[648](1)
  connect dend[651](0), dend[647](1)
  for i = 652, 653 connect dend[i](0), dend[651](1)
  connect dend[654](0), dend[646](1)
  for i = 655, 656 connect dend[i](0), dend[654](1)
  for i = 657, 658 connect dend[i](0), dend[656](1)
  connect dend[659](0), dend[483](1)
  for i = 660, 663 connect dend[i](0), dend[i-1](1)
  connect dend[664](0), dend[662](1)
  connect dend[665](0), dend[661](1)
  for i = 666, 670 connect dend[i](0), dend[i-1](1)
  connect dend[671](0), dend[669](1)
  connect dend[672](0), dend[668](1)
  for i = 673, 674 connect dend[i](0), dend[672](1)
  connect dend[675](0), dend[667](1)
  for i = 676, 677 connect dend[i](0), dend[675](1)
  for i = 678, 679 connect dend[i](0), dend[677](1)
  connect dend[680](0), dend[666](1)
  connect dend[681](0), dend[665](1)
  for i = 682, 683 connect dend[i](0), dend[681](1)
  connect dend[684](0), dend[660](1)
  for i = 685, 686 connect dend[i](0), dend[i-1](1)
  connect dend[687](0), dend[685](1)
  for i = 688, 689 connect dend[i](0), dend[687](1)
  for i = 690, 691 connect dend[i](0), dend[689](1)
  connect dend[692](0), dend[684](1)
  connect dend[693](0), dend[659](1)
  for i = 694, 695 connect dend[i](0), dend[i-1](1)
  connect dend[696](0), dend[694](1)
  for i = 697, 698 connect dend[i](0), dend[696](1)
  for i = 699, 701 connect dend[i](0), dend[i-1](1)
  connect dend[702](0), dend[700](1)
  connect dend[703](0), dend[699](1)
  connect dend[704](0), dend[698](1)
  connect dend[705](0), dend[693](1)
  for i = 706, 710 connect dend[i](0), dend[i-1](1)
  connect dend[711](0), dend[709](1)
  connect dend[712](0), dend[708](1)
  for i = 713, 714 connect dend[i](0), dend[712](1)
  connect dend[715](0), dend[707](1)
  for i = 716, 717 connect dend[i](0), dend[715](1)
  connect dend[718](0), dend[706](1)
  connect dend[719](0), dend[705](1)
  for i = 720, 721 connect dend[i](0), dend[719](1)
  for i = 722, 723 connect dend[i](0), dend[721](1)
  connect dend[724](0), dend[482](1)
  for i = 725, 727 connect dend[i](0), dend[i-1](1)
  connect dend[728](0), dend[726](1)
  for i = 729, 730 connect dend[i](0), dend[i-1](1)
  connect dend[731](0), dend[729](1)
  connect dend[732](0), dend[728](1)
  for i = 733, 736 connect dend[i](0), dend[i-1](1)
  connect dend[737](0), dend[735](1)
  connect dend[738](0), dend[734](1)
  connect dend[739](0), dend[733](1)
  for i = 740, 741 connect dend[i](0), dend[739](1)
  connect dend[742](0), dend[732](1)
  for i = 743, 746 connect dend[i](0), dend[i-1](1)
  connect dend[747](0), dend[745](1)
  connect dend[748](0), dend[744](1)
  for i = 749, 750 connect dend[i](0), dend[748](1)
  connect dend[751](0), dend[743](1)
  connect dend[752](0), dend[742](1)
  connect dend[753](0), dend[725](1)
  for i = 754, 755 connect dend[i](0), dend[753](1)
  for i = 756, 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[755](1)
  connect dend[762](0), dend[724](1)
  for i = 763, 764 connect dend[i](0), dend[762](1)
  connect dend[765](0), dend[437](1)
  for i = 766, 772 connect dend[i](0), dend[i-1](1)
  connect dend[773](0), dend[771](1)
  for i = 774, 775 connect dend[i](0), dend[773](1)
  connect dend[776](0), dend[770](1)
  connect dend[777](0), dend[769](1)
  for i = 778, 787 connect dend[i](0), dend[i-1](1)
  connect dend[788](0), dend[786](1)
  connect dend[789](0), dend[785](1)
  for i = 790, 791 connect dend[i](0), dend[789](1)
  for i = 792, 793 connect dend[i](0), dend[791](1)
  connect dend[794](0), dend[784](1)
  connect dend[795](0), dend[783](1)
  for i = 796, 797 connect dend[i](0), dend[795](1)
  for i = 798, 799 connect dend[i](0), dend[797](1)
  connect dend[800](0), dend[782](1)
  for i = 801, 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[781](1)
  for i = 808, 809 connect dend[i](0), dend[807](1)
  for i = 810, 811 connect dend[i](0), dend[809](1)
  connect dend[812](0), dend[780](1)
  for i = 813, 814 connect dend[i](0), dend[812](1)
  connect dend[815](0), dend[779](1)
  for i = 816, 817 connect dend[i](0), dend[i-1](1)
  connect dend[818](0), dend[816](1)
  for i = 819, 820 connect dend[i](0), dend[818](1)
  for i = 821, 822 connect dend[i](0), dend[820](1)
  for i = 823, 826 connect dend[i](0), dend[i-1](1)
  connect dend[827](0), dend[825](1)
  connect dend[828](0), dend[824](1)
  for i = 829, 830 connect dend[i](0), dend[i-1](1)
  connect dend[831](0), dend[829](1)
  for i = 832, 833 connect dend[i](0), dend[831](1)
  connect dend[834](0), dend[828](1)
  connect dend[835](0), dend[823](1)
  for i = 836, 837 connect dend[i](0), dend[i-1](1)
  connect dend[838](0), dend[836](1)
  connect dend[839](0), dend[835](1)
  connect dend[840](0), dend[822](1)
  for i = 841, 842 connect dend[i](0), dend[840](1)
  connect dend[843](0), dend[815](1)
  for i = 844, 849 connect dend[i](0), dend[i-1](1)
  connect dend[850](0), dend[848](1)
  for i = 851, 852 connect dend[i](0), dend[i-1](1)
  connect dend[853](0), dend[851](1)
  connect dend[854](0), dend[850](1)
  connect dend[855](0), dend[847](1)
  for i = 856, 857 connect dend[i](0), dend[i-1](1)
  connect dend[858](0), dend[856](1)
  connect dend[859](0), dend[855](1)
  for i = 860, 861 connect dend[i](0), dend[859](1)
  connect dend[862](0), dend[846](1)
  for i = 863, 864 connect dend[i](0), dend[i-1](1)
  connect dend[865](0), dend[863](1)
  connect dend[866](0), dend[862](1)
  for i = 867, 868 connect dend[i](0), dend[866](1)
  for i = 869, 870 connect dend[i](0), dend[868](1)
  connect dend[871](0), dend[845](1)
  connect dend[872](0), dend[844](1)
  for i = 873, 875 connect dend[i](0), dend[i-1](1)
  connect dend[876](0), dend[874](1)
  connect dend[877](0), dend[873](1)
  for i = 878, 879 connect dend[i](0), dend[877](1)
  connect dend[880](0), dend[872](1)
  connect dend[881](0), dend[843](1)
  for i = 882, 883 connect dend[i](0), dend[i-1](1)
  connect dend[884](0), dend[882](1)
  for i = 885, 886 connect dend[i](0), dend[884](1)
  for i = 887, 888 connect dend[i](0), dend[i-1](1)
  connect dend[889](0), dend[887](1)
  connect dend[890](0), dend[886](1)
  connect dend[891](0), dend[881](1)
  for i = 892, 893 connect dend[i](0), dend[i-1](1)
  connect dend[894](0), dend[892](1)
  for i = 895, 897 connect dend[i](0), dend[i-1](1)
  connect dend[898](0), dend[896](1)
  for i = 899, 900 connect dend[i](0), dend[i-1](1)
  connect dend[901](0), dend[899](1)
  for i = 902, 903 connect dend[i](0), dend[901](1)
  connect dend[904](0), dend[898](1)
  connect dend[905](0), dend[895](1)
  for i = 906, 907 connect dend[i](0), dend[905](1)
  connect dend[908](0), dend[894](1)
  for i = 909, 911 connect dend[i](0), dend[i-1](1)
  connect dend[912](0), dend[910](1)
  connect dend[913](0), dend[909](1)
  connect dend[914](0), dend[908](1)
  for i = 915, 916 connect dend[i](0), dend[i-1](1)
  connect dend[917](0), dend[915](1)
  connect dend[918](0), dend[914](1)
  connect dend[919](0), dend[891](1)
  connect dend[920](0), dend[778](1)
  for i = 921, 923 connect dend[i](0), dend[i-1](1)
  connect dend[924](0), dend[922](1)
  for i = 925, 926 connect dend[i](0), dend[924](1)
  for i = 927, 930 connect dend[i](0), dend[i-1](1)
  connect dend[931](0), dend[929](1)
  connect dend[932](0), dend[928](1)
  connect dend[933](0), dend[927](1)
  connect dend[934](0), dend[926](1)
  connect dend[935](0), dend[921](1)
  for i = 936, 939 connect dend[i](0), dend[i-1](1)
  connect dend[940](0), dend[938](1)
  connect dend[941](0), dend[937](1)
  connect dend[942](0), dend[936](1)
  for i = 943, 944 connect dend[i](0), dend[942](1)
  connect dend[945](0), dend[935](1)
  for i = 946, 947 connect dend[i](0), dend[i-1](1)
  connect dend[948](0), dend[946](1)
  for i = 949, 950 connect dend[i](0), dend[948](1)
  connect dend[951](0), dend[945](1)
  connect dend[952](0), dend[920](1)
  connect dend[953](0), dend[777](1)
  for i = 954, 956 connect dend[i](0), dend[i-1](1)
  connect dend[957](0), dend[955](1)
  for i = 958, 959 connect dend[i](0), dend[957](1)
  topol_3()
}
proc topol_3() {
  connect dend[960](0), dend[954](1)
  connect dend[961](0), dend[953](1)
  for i = 962, 963 connect dend[i](0), dend[i-1](1)
  connect dend[964](0), dend[962](1)
  for i = 965, 966 connect dend[i](0), dend[i-1](1)
  connect dend[967](0), dend[965](1)
  connect dend[968](0), dend[964](1)
  connect dend[969](0), dend[961](1)
  for i = 970, 971 connect dend[i](0), dend[i-1](1)
  connect dend[972](0), dend[970](1)
  connect dend[973](0), dend[969](1)
  connect dend[974](0), dend[768](1)
  for i = 975, 978 connect dend[i](0), dend[i-1](1)
  connect dend[979](0), dend[977](1)
  connect dend[980](0), dend[976](1)
  for i = 981, 983 connect dend[i](0), dend[i-1](1)
  connect dend[984](0), dend[982](1)
  for i = 985, 986 connect dend[i](0), dend[984](1)
  for i = 987, 988 connect dend[i](0), dend[i-1](1)
  connect dend[989](0), dend[987](1)
  for i = 990, 991 connect dend[i](0), dend[989](1)
  connect dend[992](0), dend[986](1)
  connect dend[993](0), dend[981](1)
  connect dend[994](0), dend[980](1)
  for i = 995, 996 connect dend[i](0), dend[994](1)
  connect dend[997](0), dend[975](1)
  for i = 998, 1002 connect dend[i](0), dend[i-1](1)
  connect dend[1003](0), dend[1001](1)
  connect dend[1004](0), dend[1000](1)
  connect dend[1005](0), dend[999](1)
  connect dend[1006](0), dend[998](1)
  for i = 1007, 1011 connect dend[i](0), dend[i-1](1)
  connect dend[1012](0), dend[1010](1)
  connect dend[1013](0), dend[1009](1)
  connect dend[1014](0), dend[1008](1)
  connect dend[1015](0), dend[1007](1)
  for i = 1016, 1017 connect dend[i](0), dend[1015](1)
  connect dend[1018](0), dend[1006](1)
  for i = 1019, 1020 connect dend[i](0), dend[i-1](1)
  connect dend[1021](0), dend[1019](1)
  connect dend[1022](0), dend[1018](1)
  for i = 1023, 1025 connect dend[i](0), dend[i-1](1)
  connect dend[1026](0), dend[1024](1)
  connect dend[1027](0), dend[1023](1)
  connect dend[1028](0), dend[1022](1)
  connect dend[1029](0), dend[997](1)
  for i = 1030, 1031 connect dend[i](0), dend[i-1](1)
  connect dend[1032](0), dend[1030](1)
  for i = 1033, 1034 connect dend[i](0), dend[1032](1)
  for i = 1035, 1036 connect dend[i](0), dend[i-1](1)
  connect dend[1037](0), dend[1035](1)
  connect dend[1038](0), dend[1034](1)
  connect dend[1039](0), dend[1029](1)
  for i = 1040, 1041 connect dend[i](0), dend[i-1](1)
  connect dend[1042](0), dend[1040](1)
  connect dend[1043](0), dend[1039](1)
  for i = 1044, 1045 connect dend[i](0), dend[1043](1)
  connect dend[1046](0), dend[974](1)
  connect dend[1047](0), dend[767](1)
  for i = 1048, 1053 connect dend[i](0), dend[i-1](1)
  connect dend[1054](0), dend[1052](1)
  connect dend[1055](0), dend[1051](1)
  connect dend[1056](0), dend[1050](1)
  connect dend[1057](0), dend[1049](1)
  for i = 1058, 1059 connect dend[i](0), dend[1057](1)
  connect dend[1060](0), dend[1048](1)
  for i = 1061, 1062 connect dend[i](0), dend[i-1](1)
  connect dend[1063](0), dend[1061](1)
  connect dend[1064](0), dend[1060](1)
  for i = 1065, 1068 connect dend[i](0), dend[i-1](1)
  connect dend[1069](0), dend[1067](1)
  connect dend[1070](0), dend[1066](1)
  connect dend[1071](0), dend[1065](1)
  connect dend[1072](0), dend[1064](1)
  for i = 1073, 1074 connect dend[i](0), dend[i-1](1)
  connect dend[1075](0), dend[1073](1)
  connect dend[1076](0), dend[1072](1)
  connect dend[1077](0), dend[1047](1)
  for i = 1078, 1079 connect dend[i](0), dend[i-1](1)
  connect dend[1080](0), dend[1078](1)
  for i = 1081, 1083 connect dend[i](0), dend[i-1](1)
  connect dend[1084](0), dend[1082](1)
  connect dend[1085](0), dend[1081](1)
  connect dend[1086](0), dend[1080](1)
  for i = 1087, 1088 connect dend[i](0), dend[1086](1)
  connect dend[1089](0), dend[1077](1)
  connect dend[1090](0), dend[766](1)
  for i = 1091, 1093 connect dend[i](0), dend[i-1](1)
  connect dend[1094](0), dend[1092](1)
  for i = 1095, 1096 connect dend[i](0), dend[1094](1)
  connect dend[1097](0), dend[1091](1)
  for i = 1098, 1099 connect dend[i](0), dend[i-1](1)
  connect dend[1100](0), dend[1098](1)
  connect dend[1101](0), dend[1097](1)
  for i = 1102, 1103 connect dend[i](0), dend[1101](1)
  for i = 1104, 1105 connect dend[i](0), dend[1103](1)
  connect dend[1106](0), dend[1090](1)
  connect dend[1107](0), dend[765](1)
  for i = 1108, 1109 connect dend[i](0), dend[i-1](1)
  connect dend[1110](0), dend[1108](1)
  connect dend[1111](0), dend[1107](1)
  for i = 1112, 1114 connect dend[i](0), dend[i-1](1)
  connect dend[1115](0), dend[1113](1)
  for i = 1116, 1117 connect dend[i](0), dend[1115](1)
  connect dend[1118](0), dend[1112](1)
  connect dend[1119](0), dend[1111](1)
  connect dend[1120](0), dend[436](1)
  for i = 1121, 1122 connect dend[i](0), dend[1120](1)
  for i = 1123, 1125 connect dend[i](0), dend[i-1](1)
  connect dend[1126](0), dend[1124](1)
  for i = 1127, 1128 connect dend[i](0), dend[1126](1)
  connect dend[1129](0), dend[1123](1)
  for i = 1130, 1131 connect dend[i](0), dend[i-1](1)
  connect dend[1132](0), dend[1130](1)
  connect dend[1133](0), dend[1129](1)
  connect dend[1134](0), dend[1122](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(12.41, 4.6, 0.97, 21.96)
	pt3dadd(12.05, 3.68, 0.97, 21.51)
	pt3dadd(11.74, 2.69, 0.97, 21.59)
	pt3dadd(11.2, 1.85, 0.97, 21.31)
	pt3dadd(10.66, 1.01, 0.97, 21.14)
	pt3dadd(10.01, 0.07, 0.97, 20.36)
	pt3dadd(9.43, -0.71, 0.97, 19.75)
	pt3dadd(8.88, -1.53, 0.96, 19.35)
	pt3dadd(7.65, -2.24, 0.96, 17.42)
	pt3dadd(7.41, -3.21, 0.96, 15.55)
	pt3dadd(7.28, -4.63, 0.96, 10.98)
	pt3dadd(5.84, -5.32, 0.96, 4.99)
	pt3dadd(4.89, -5.6, 0.96, 3)
	pt3dadd(4.69, -5.89, 0.96, 3)
  }
  soma[1] {pt3dclear()
	pt3dadd(12.41, 4.6, 0.97, 21.96)
	pt3dadd(12.78, 5.49, 0.98, 21.61)
	pt3dadd(13.19, 6.37, 0.98, 20.99)
	pt3dadd(13.46, 7.37, 0.98, 21.06)
	pt3dadd(13.72, 8.19, 0.98, 20.1)
	pt3dadd(14.09, 8.98, 0.98, 19.12)
	pt3dadd(14.47, 9.82, 0.98, 17.63)
	pt3dadd(14.87, 10.45, 0.98, 16.29)
	pt3dadd(15.3, 11.52, 0.99, 14.53)
	pt3dadd(15.6, 12.32, 0.99, 12.53)
	pt3dadd(16.66, 12.96, 0.99, 10.1)
	pt3dadd(18.1, 13.76, 0.99, 6.85)
	pt3dadd(17.97, 14.32, 0.99, 4.86)
	pt3dadd(18.66, 15.28, 0.99, 4)
	pt3dadd(19.35, 15.92, 0.99, 3.86)
	pt3dadd(18.14, 16.67, 1, 3.66)
  }
  dend {pt3dclear()
	pt3dadd(18.14, 16.67, 1, 2.7)
	pt3dadd(19.16, 18.3, 1, 2.7)
	pt3dadd(20.58, 20.33, 1, 3)
	pt3dadd(22.01, 22.36, 1, 3)
	pt3dadd(23.85, 24.6, 1, 3)
	pt3dadd(26.09, 27.24, 1, 2.7)
	pt3dadd(28.13, 29.48, 1, 2.7)
	pt3dadd(30.37, 31.71, 1, 3)
	pt3dadd(31.59, 33.34, 1, 3)
	pt3dadd(32.61, 34.35, 1, 3.9)
	pt3dadd(33.22, 35.17, 1, 4.8)
	pt3dadd(34.44, 36.59, 1, 5.7)
  }
  dend[1] {pt3dclear()
	pt3dadd(34.44, 36.59, 1, 5.7)
	pt3dadd(39.74, 34.98, 2.32, 3.9)
	pt3dadd(42.5, 34.65, 1.84, 3.9)
  }
  dend[2] {pt3dclear()
	pt3dadd(42.5, 34.65, 1.84, 3.9)
	pt3dadd(42.42, 32.45, 1.32, 2.1)
	pt3dadd(42.42, 30.62, 0.24, 1.8)
	pt3dadd(42.42, 28.46, 0.52, 1.8)
	pt3dadd(42.97, 25.63, -0.36, 1.8)
  }
  dend[3] {pt3dclear()
	pt3dadd(42.97, 25.63, -0.36, 1.8)
	pt3dadd(41.49, 23.64, 0.56, 1.8)
  }
  dend[4] {pt3dclear()
	pt3dadd(41.49, 23.64, 0.56, 1.8)
	pt3dadd(39.46, 22.15, 0.2, 1.2)
	pt3dadd(37.99, 20.98, 0.2, 1.2)
	pt3dadd(36.14, 19.32, 0.2, 1.2)
	pt3dadd(34.48, 17.99, 0.2, 1.2)
	pt3dadd(33.93, 16.83, 0.2, 1.8)
	pt3dadd(34.11, 14.84, 0.2, 1.8)
  }
  dend[5] {pt3dclear()
	pt3dadd(34.11, 14.84, 0.2, 1.8)
	pt3dadd(30.98, 14.17, -0.44, 1.2)
	pt3dadd(29.32, 13.84, -0.44, 1.2)
	pt3dadd(25.63, 13.67, -0.32, 1.2)
  }
  dend[6] {pt3dclear()
	pt3dadd(25.63, 13.67, -0.32, 1.2)
	pt3dadd(23.96, 14.67, 0.84, 0.6)
	pt3dadd(23.04, 16.17, 0.84, 0.6)
	pt3dadd(22.86, 18.33, 0.84, 0.6)
	pt3dadd(23.41, 20.65, 0.84, 0.6)
  }
  dend[7] {pt3dclear()
	pt3dadd(25.63, 13.67, -0.32, 1.2)
	pt3dadd(22.86, 8.03, 0.88, 1.2)
  }
  dend[8] {pt3dclear()
	pt3dadd(34.11, 14.84, 0.2, 1.8)
	pt3dadd(34.48, 12.84, 0.2, 2.1)
	pt3dadd(35.22, 10.19, 2.76, 2.1)
  }
  dend[9] {pt3dclear()
	pt3dadd(35.22, 10.19, 2.76, 2.1)
	pt3dadd(34.3, 8.03, 2.52, 1.2)
	pt3dadd(33.19, 6.2, 2.48, 1.2)
	pt3dadd(30.98, 5.04, 1.72, 1.8)
	pt3dadd(28.76, 5.04, 1.6, 1.8)
	pt3dadd(26.55, 4.7, 1.6, 1.8)
	pt3dadd(24.52, 5.04, 1.6, 1.8)
	pt3dadd(23.23, 5.04, 3.36, 1.8)
  }
  dend[10] {pt3dclear()
	pt3dadd(35.22, 10.19, 2.76, 2.1)
	pt3dadd(37.43, 8.52, 3.6, 1.8)
	pt3dadd(39.46, 7.86, 3.56, 1.8)
  }
  dend[11] {pt3dclear()
	pt3dadd(39.46, 7.86, 3.56, 1.8)
	pt3dadd(38.36, 6.37, 3.56, 0.6)
	pt3dadd(37.8, 5.87, 3.56, 0.6)
	pt3dadd(38.54, 4.37, 3.56, 0.6)
  }
  dend[12] {pt3dclear()
	pt3dadd(39.46, 7.86, 3.56, 1.8)
	pt3dadd(41.12, 6.7, 4.32, 1.8)
	pt3dadd(41.49, 4.7, 4.28, 1.8)
	pt3dadd(42.42, 2.38, 4.64, 1.8)
  }
  dend[13] {pt3dclear()
	pt3dadd(42.42, 2.38, 4.64, 1.8)
	pt3dadd(39.46, 0.05, 4.64, 0.6)
  }
  dend[14] {pt3dclear()
	pt3dadd(42.42, 2.38, 4.64, 1.8)
	pt3dadd(43.52, 0.39, 4.52, 0.6)
  }
  dend[15] {pt3dclear()
	pt3dadd(41.49, 23.64, 0.56, 1.8)
	pt3dadd(42.23, 21.65, 0.56, 1.2)
	pt3dadd(43.34, 19.65, 0.56, 1.2)
	pt3dadd(45.92, 17.16, 1.08, 1.2)
	pt3dadd(46.29, 15.17, 1.04, 1.2)
	pt3dadd(45.92, 13.01, 1.04, 1.2)
	pt3dadd(45, 11.02, 0.4, 1.2)
	pt3dadd(44.44, 9.52, 0.36, 1.2)
	pt3dadd(44.08, 8.52, 0.36, 1.2)
  }
  dend[16] {pt3dclear()
	pt3dadd(44.08, 8.52, 0.36, 1.2)
	pt3dadd(42.78, 6.7, 1.8, 1.8)
	pt3dadd(41.68, 4.7, 1.8, 1.8)
	pt3dadd(40.75, 2.88, 1.8, 1.8)
  }
  dend[17] {pt3dclear()
	pt3dadd(40.75, 2.88, 1.8, 1.8)
	pt3dadd(37.99, 2.88, 0.72, 1.8)
	pt3dadd(36.33, 3.04, 0.72, 1.8)
	pt3dadd(35.03, 2.38, 0.72, 1.8)
	pt3dadd(33.93, 1.88, 0.68, 1.8)
  }
  dend[18] {pt3dclear()
	pt3dadd(40.75, 2.88, 1.8, 1.8)
	pt3dadd(41.86, 0.88, 0.92, 1.8)
	pt3dadd(43.15, -0.94, 0.92, 1.8)
	pt3dadd(45.37, -2.77, 0.92, 1.8)
  }
  dend[19] {pt3dclear()
	pt3dadd(44.08, 8.52, 0.36, 1.2)
	pt3dadd(45.18, 6.86, 1.36, 1.2)
	pt3dadd(45.92, 4.87, 0.76, 1.2)
	pt3dadd(47.03, 3.54, 0.76, 1.2)
	pt3dadd(48.5, 3.21, 0.76, 1.2)
	pt3dadd(50.16, 2.88, 0.76, 1.2)
	pt3dadd(52.19, 1.88, 0.76, 1.2)
	pt3dadd(52.93, 0.88, 0.76, 1.2)
	pt3dadd(54.22, -0.45, 0.72, 1.2)
  }
  dend[20] {pt3dclear()
	pt3dadd(42.97, 25.63, -0.36, 1.8)
	pt3dadd(44.81, 23.64, 0.72, 1.2)
	pt3dadd(46.66, 22.81, 0.72, 1.2)
  }
  dend[21] {pt3dclear()
	pt3dadd(46.66, 22.81, 0.72, 1.2)
	pt3dadd(48.32, 20.32, 0.84, 1.2)
	pt3dadd(49.8, 18.49, 0.8, 1.2)
	pt3dadd(50.16, 16.83, 0.8, 1.2)
	pt3dadd(50.16, 14.67, 0.72, 1.2)
	pt3dadd(51.09, 11.52, 1.32, 1.8)
	pt3dadd(54.04, 7.69, 1.92, 1.8)
	pt3dadd(54.78, 5.7, 1.56, 1.8)
  }
  dend[22] {pt3dclear()
	pt3dadd(54.78, 5.7, 1.56, 1.8)
	pt3dadd(53.12, 4.37, 3.28, 1.2)
	pt3dadd(51.46, 3.71, 3.2, 1.2)
	pt3dadd(50.16, 2.54, 3.2, 1.2)
	pt3dadd(49.43, 1.05, 3.16, 1.2)
	pt3dadd(49.8, -0.78, 2.92, 1.2)
  }
  dend[23] {pt3dclear()
	pt3dadd(49.8, -0.78, 2.92, 1.2)
	pt3dadd(47.03, -1.28, 4.04, 0.6)
	pt3dadd(45.92, -1.77, 3.88, 1.8)
	pt3dadd(45.18, -3.1, 4.16, 1.8)
  }
  dend[24] {pt3dclear()
	pt3dadd(49.8, -0.78, 2.92, 1.2)
	pt3dadd(50.9, -2.77, 3, 1.2)
	pt3dadd(51.82, -4.6, 3, 1.2)
	pt3dadd(53.12, -7.09, 2.68, 1.2)
	pt3dadd(53.67, -9.08, 2.68, 1.2)
  }
  dend[25] {pt3dclear()
	pt3dadd(54.78, 5.7, 1.56, 1.8)
	pt3dadd(56.25, 4.37, 2.52, 1.8)
	pt3dadd(57.73, 2.88, 2.52, 1.8)
	pt3dadd(59.02, 0.72, 2.52, 1.8)
	pt3dadd(58.47, -1.94, 2.44, 1.8)
	pt3dadd(57.36, -4.27, 2.44, 1.8)
	pt3dadd(57.36, -5.93, 2.44, 1.8)
	pt3dadd(57.54, -7.26, 2.44, 1.8)
  }
  dend[26] {pt3dclear()
	pt3dadd(46.66, 22.81, 0.72, 1.2)
	pt3dadd(50.35, 22.98, 0.68, 1.2)
  }
  dend[27] {pt3dclear()
	pt3dadd(50.35, 22.98, 0.68, 1.2)
	pt3dadd(51.46, 21.65, 0.08, 1.2)
	pt3dadd(52.75, 20.15, 0.08, 1.2)
	pt3dadd(53.67, 17.99, 0.08, 1.2)
	pt3dadd(54.04, 17, -1.12, 1.2)
	pt3dadd(53.67, 14.34, -1.8, 1.2)
	pt3dadd(52.75, 11.68, -1.8, 1.2)
	pt3dadd(52.01, 10.52, -2.6, 1.2)
	pt3dadd(51.64, 9.69, -2.6, 1.2)
	pt3dadd(52.01, 8.36, -2.6, 1.2)
	pt3dadd(52.56, 7.36, -2.64, 1.2)
	pt3dadd(52.19, 5.53, -3.36, 1.2)
	pt3dadd(51.82, 3.04, -3.36, 1.2)
	pt3dadd(50.72, 1.55, -3.36, 1.2)
	pt3dadd(49.61, 0.05, -3.36, 1.2)
	pt3dadd(48.13, -1.61, -3.36, 1.2)
	pt3dadd(47.4, -3.27, -3.36, 1.2)
	pt3dadd(45.74, -4.93, -2.64, 1.2)
  }
  dend[28] {pt3dclear()
	pt3dadd(50.35, 22.98, 0.68, 1.2)
	pt3dadd(50.35, 24.31, 0.68, 1.2)
  }
  dend[29] {pt3dclear()
	pt3dadd(50.35, 24.31, 0.68, 1.2)
	pt3dadd(51.82, 25.47, 0.68, 0.6)
	pt3dadd(52.75, 26.63, 0.68, 0.6)
	pt3dadd(53.3, 27.79, 0.68, 0.6)
	pt3dadd(53.3, 28.96, 0.68, 0.6)
	pt3dadd(53.12, 30.45, 0.68, 0.6)
  }
  dend[30] {pt3dclear()
	pt3dadd(50.35, 24.31, 0.68, 1.2)
	pt3dadd(49.43, 25.97, -0.36, 0.6)
	pt3dadd(48.87, 27.46, -0.36, 0.6)
	pt3dadd(48.69, 29.79, -0.36, 0.6)
	pt3dadd(48.32, 32.11, -0.4, 0.6)
	pt3dadd(48.5, 34.11, -0.4, 0.6)
  }
  dend[31] {pt3dclear()
	pt3dadd(42.5, 34.65, 1.84, 3.9)
	pt3dadd(45.46, 35.32, 1.92, 3.3)
	pt3dadd(48.96, 36.48, 2.32, 2.7)
	pt3dadd(52.65, 37.47, 2.16, 2.7)
	pt3dadd(55.79, 38.47, 1.8, 2.7)
  }
}
proc shape3d_2() {
  dend[31] {	pt3dadd(57.63, 39.14, 1.12, 2.7)
	pt3dadd(60.03, 40.3, 1.12, 3.6)
	pt3dadd(61.32, 40.63, 1.48, 3.9)
  }
  dend[32] {pt3dclear()
	pt3dadd(61.32, 40.63, 1.48, 3.9)
	pt3dadd(62.61, 39.47, 0.04, 2.7)
	pt3dadd(63.9, 37.97, -0.16, 3)
	pt3dadd(65.56, 36.31, -0.88, 2.7)
	pt3dadd(66.67, 35.48, -0.08, 3.3)
  }
  dend[33] {pt3dclear()
	pt3dadd(66.67, 35.48, -0.08, 3.3)
	pt3dadd(66.26, 33.64, -0.52, 2.1)
	pt3dadd(66.26, 31.82, -0.52, 1.8)
	pt3dadd(66.81, 29.66, -0.24, 1.8)
	pt3dadd(67.36, 26.83, -0.24, 2.1)
  }
  dend[34] {pt3dclear()
	pt3dadd(67.36, 26.83, -0.24, 2.1)
	pt3dadd(65.29, 25.63, 0.52, 1.2)
	pt3dadd(63.63, 24.64, 0.52, 1.2)
	pt3dadd(62.71, 23.48, 0.52, 1.2)
	pt3dadd(62.89, 21.98, 0.52, 1.2)
	pt3dadd(62.34, 19.99, 0.52, 1.2)
  }
  dend[35] {pt3dclear()
	pt3dadd(62.34, 19.99, 0.52, 1.2)
	pt3dadd(61.05, 21.15, -0.2, 0.6)
	pt3dadd(60.31, 22.48, -0.2, 0.6)
	pt3dadd(60.5, 23.97, -0.2, 0.6)
	pt3dadd(60.68, 25.97, -0.2, 0.6)
	pt3dadd(61.05, 27.13, -0.2, 0.6)
  }
  dend[36] {pt3dclear()
	pt3dadd(62.34, 19.99, 0.52, 1.2)
	pt3dadd(61.79, 18.16, 0.52, 1.2)
	pt3dadd(61.97, 16.66, 0.12, 1.2)
	pt3dadd(62.53, 13.84, 0.12, 1.2)
  }
  dend[37] {pt3dclear()
	pt3dadd(62.53, 13.84, 0.12, 1.2)
	pt3dadd(61.42, 11.52, -1.04, 1.2)
	pt3dadd(59.94, 8.19, -1.32, 1.2)
	pt3dadd(58.1, 5.53, -1.32, 1.2)
	pt3dadd(57.54, 4.21, -2.16, 1.2)
	pt3dadd(56.81, 2.38, -2.76, 1.2)
  }
  dend[38] {pt3dclear()
	pt3dadd(56.81, 2.38, -2.76, 1.2)
	pt3dadd(55.88, 0.55, -3.6, 1.2)
	pt3dadd(54.41, -0.78, -3.6, 1.2)
	pt3dadd(52.75, -2.44, -3.6, 1.2)
	pt3dadd(51.64, -3.44, -3.6, 1.2)
	pt3dadd(50.16, -4.76, -3.6, 1.2)
  }
  dend[39] {pt3dclear()
	pt3dadd(56.81, 2.38, -2.76, 1.2)
	pt3dadd(58.47, 1.22, -4.04, 1.2)
	pt3dadd(58.65, -0.28, -4.04, 1.2)
	pt3dadd(58.1, -1.61, -4.2, 1.2)
	pt3dadd(57.18, -3.27, -4.2, 1.2)
  }
  dend[40] {pt3dclear()
	pt3dadd(62.53, 13.84, 0.12, 1.2)
	pt3dadd(63.63, 13.01, 0.04, 0.6)
  }
  dend[41] {pt3dclear()
	pt3dadd(63.63, 13.01, 0.04, 0.6)
	pt3dadd(64.19, 10.85, 0.08, 0.6)
	pt3dadd(64, 9.02, 0.08, 0.3)
  }
  dend[42] {pt3dclear()
	pt3dadd(63.63, 13.01, 0.04, 0.6)
	pt3dadd(64.74, 14.67, -1.08, 0.3)
  }
  dend[43] {pt3dclear()
	pt3dadd(67.36, 26.83, -0.24, 2.1)
	pt3dadd(67.92, 25.17, 0.08, 3)
	pt3dadd(68.1, 24.34, 0.4, 3)
  }
  dend[44] {pt3dclear()
	pt3dadd(68.1, 24.34, 0.4, 3)
	pt3dadd(67.36, 21.19, 0.28, 2.1)
  }
  dend[45] {pt3dclear()
	pt3dadd(67.36, 21.19, 0.28, 2.1)
	pt3dadd(66.44, 19.86, 1.44, 2.1)
	pt3dadd(65.7, 18.2, 1.44, 1.8)
	pt3dadd(65.33, 16.7, 0.28, 1.8)
	pt3dadd(65.7, 15.54, 0.24, 1.8)
	pt3dadd(66.44, 14.04, 0.24, 1.8)
	pt3dadd(66.62, 12.38, 0.12, 1.8)
	pt3dadd(66.26, 10.72, 0.12, 1.8)
	pt3dadd(67.36, 9.06, 0.12, 1.8)
	pt3dadd(67.73, 7.9, 2.12, 1.8)
	pt3dadd(67.73, 6.07, 2.12, 2.1)
  }
  dend[46] {pt3dclear()
	pt3dadd(67.73, 6.07, 2.12, 2.1)
	pt3dadd(65.66, 3.21, 2.12, 1.2)
	pt3dadd(63.63, 0.39, 2.96, 1.2)
	pt3dadd(61.97, -2.27, 3.72, 1.2)
	pt3dadd(61.97, -3.6, 4.88, 1.2)
	pt3dadd(61.79, -4.76, 5.16, 1.2)
  }
  dend[47] {pt3dclear()
	pt3dadd(67.73, 6.07, 2.12, 2.1)
	pt3dadd(67.92, 3.74, 2.4, 3)
  }
  dend[48] {pt3dclear()
	pt3dadd(67.92, 3.74, 2.4, 3)
	pt3dadd(69.17, -0.11, 1.68, 2.1)
  }
  dend[49] {pt3dclear()
	pt3dadd(69.17, -0.11, 1.68, 2.1)
	pt3dadd(67.51, -1.77, 1.24, 1.8)
	pt3dadd(65.85, -3.44, 1.24, 1.8)
	pt3dadd(64.19, -5.76, 3.4, 1.8)
	pt3dadd(63.26, -7.59, 2.64, 1.8)
	pt3dadd(63.63, -9.08, 2.64, 1.8)
	pt3dadd(64, -9.91, 2.64, 1.8)
  }
  dend[50] {pt3dclear()
	pt3dadd(69.17, -0.11, 1.68, 2.1)
	pt3dadd(70.83, -2.11, 1.6, 1.8)
	pt3dadd(72.3, -4.6, 0.96, 1.8)
  }
  dend[51] {pt3dclear()
	pt3dadd(72.3, -4.6, 0.96, 1.8)
	pt3dadd(71.2, -7.09, 0.32, 1.2)
	pt3dadd(70.46, -8.09, 0.28, 1.8)
	pt3dadd(69.91, -9.91, 0.24, 1.8)
  }
  dend[52] {pt3dclear()
	pt3dadd(69.91, -9.91, 0.24, 1.8)
	pt3dadd(67.32, -9.58, -0.4, 1.2)
  }
  dend[53] {pt3dclear()
	pt3dadd(69.91, -9.91, 0.24, 1.8)
	pt3dadd(71.38, -11.08, 0.24, 1.8)
	pt3dadd(73.6, -11.91, 1.16, 1.2)
  }
  dend[54] {pt3dclear()
	pt3dadd(72.3, -4.6, 0.96, 1.8)
	pt3dadd(75.44, -6.92, 0.28, 1.8)
	pt3dadd(78.39, -9.42, 0.24, 1.8)
	pt3dadd(79.32, -10.58, 0.24, 1.8)
  }
  dend[55] {pt3dclear()
	pt3dadd(79.32, -10.58, 0.24, 1.8)
	pt3dadd(79.32, -13.4, 0.76, 1.2)
	pt3dadd(79.68, -15.89, 0.4, 1.8)
	pt3dadd(80.05, -17.22, -0.24, 2.1)
	pt3dadd(81.16, -18.39, 0.6, 1.8)
	pt3dadd(83.37, -19.71, 0, 0.6)
  }
  dend[56] {pt3dclear()
	pt3dadd(79.32, -10.58, 0.24, 1.8)
	pt3dadd(81.53, -12.07, 0.72, 1.2)
	pt3dadd(82.64, -13.57, -0.16, 1.2)
	pt3dadd(84.67, -14.23, -0.16, 1.2)
	pt3dadd(86.51, -14.4, -0.28, 1.2)
	pt3dadd(88.17, -14.56, -0.28, 1.2)
  }
  dend[57] {pt3dclear()
	pt3dadd(67.92, 3.74, 2.4, 3)
	pt3dadd(70.5, 3.91, 3.2, 3)
  }
  dend[58] {pt3dclear()
	pt3dadd(70.5, 3.91, 3.2, 3)
	pt3dadd(72.86, 1.55, 1.72, 1.2)
	pt3dadd(74.52, 0.39, 1.72, 1.2)
	pt3dadd(77.65, -0.45, 1.72, 1.2)
	pt3dadd(79.87, -2.44, 1.72, 1.2)
	pt3dadd(83.01, -4.43, 1.72, 1.2)
	pt3dadd(85.03, -5.93, 0.92, 1.2)
	pt3dadd(87.8, -6.59, 0.72, 1.8)
	pt3dadd(89.83, -6.43, 0.68, 1.8)
	pt3dadd(92.23, -7.42, 0.64, 1.8)
	pt3dadd(94.81, -9.42, 0.64, 1.8)
	pt3dadd(96.84, -11.24, 0.64, 1.8)
	pt3dadd(96.11, -13.07, 1.08, 1.2)
	pt3dadd(95.37, -14.4, 1.08, 1.2)
  }
  dend[59] {pt3dclear()
	pt3dadd(70.5, 3.91, 3.2, 3)
	pt3dadd(73.08, 5.57, 3.28, 3)
	pt3dadd(74.74, 6.23, 3.28, 3)
  }
  dend[60] {pt3dclear()
	pt3dadd(74.74, 6.23, 3.28, 3)
	pt3dadd(76.73, 3.04, 3.24, 1.2)
	pt3dadd(77.84, 1.55, 3.24, 1.2)
	pt3dadd(78.95, 0.22, 3.24, 1.2)
  }
  dend[61] {pt3dclear()
	pt3dadd(78.95, 0.22, 3.24, 1.2)
	pt3dadd(78.39, -1.61, 3.44, 1.8)
	pt3dadd(77.65, -3.77, 3.44, 1.8)
	pt3dadd(77.29, -5.43, 3.68, 1.8)
	pt3dadd(76.55, -7.75, 4.24, 1.8)
  }
  dend[62] {pt3dclear()
	pt3dadd(76.55, -7.75, 4.24, 1.8)
	pt3dadd(71.38, -5.43, 4.92, 1.8)
	pt3dadd(69.17, -5.93, 4.92, 1.2)
  }
  dend[63] {pt3dclear()
	pt3dadd(76.55, -7.75, 4.24, 1.8)
	pt3dadd(78.21, -9.42, 4.56, 1.2)
  }
  dend[64] {pt3dclear()
	pt3dadd(78.95, 0.22, 3.24, 1.2)
	pt3dadd(80.79, -1.11, 3.08, 1.2)
	pt3dadd(82.45, -1.44, 3.08, 1.2)
	pt3dadd(84.3, -0.94, 3.08, 1.2)
  }
  dend[65] {pt3dclear()
	pt3dadd(74.74, 6.23, 3.28, 3)
	pt3dadd(77.33, 7.4, 2.96, 2.1)
	pt3dadd(79.54, 7.9, 3.4, 2.1)
	pt3dadd(81.02, 8.89, 3.4, 2.1)
	pt3dadd(83.04, 8.56, 2.84, 2.1)
  }
  dend[66] {pt3dclear()
	pt3dadd(83.04, 8.56, 2.84, 2.1)
	pt3dadd(84.52, 7.73, 3.36, 2.1)
  }
  dend[67] {pt3dclear()
	pt3dadd(84.52, 7.73, 3.36, 2.1)
	pt3dadd(85.03, 5.53, 2.92, 1.2)
	pt3dadd(85.03, 4.04, 2.92, 1.2)
	pt3dadd(85.96, 2.88, 2.92, 1.2)
	pt3dadd(86.7, 2.21, 2.92, 1.2)
  }
  dend[68] {pt3dclear()
	pt3dadd(86.7, 2.21, 2.92, 1.2)
	pt3dadd(85.77, 0.72, 2.48, 1.2)
	pt3dadd(85.96, -0.94, 2.48, 1.2)
	pt3dadd(86.33, -3.27, 2.48, 0.6)
	pt3dadd(86.14, -5.59, 3.8, 1.2)
	pt3dadd(86.14, -7.09, 3.8, 1.2)
  }
  dend[69] {pt3dclear()
	pt3dadd(86.7, 2.21, 2.92, 1.2)
	pt3dadd(88.36, 2.38, 2.92, 1.8)
	pt3dadd(89.46, 1.88, 2.92, 1.8)
	pt3dadd(90.94, 0.72, 2.92, 1.8)
	pt3dadd(91.86, -0.78, 2.92, 1.8)
	pt3dadd(92.42, -2.6, 2.92, 1.8)
	pt3dadd(93.15, -3.77, 2.92, 1.8)
  }
  dend[70] {pt3dclear()
	pt3dadd(84.52, 7.73, 3.36, 2.1)
	pt3dadd(86.73, 8.39, 1.68, 2.1)
	pt3dadd(88.4, 8.73, 1.64, 2.1)
  }
  dend[71] {pt3dclear()
	pt3dadd(88.4, 8.73, 1.64, 2.1)
	pt3dadd(90.06, 7.23, 2.52, 1.8)
	pt3dadd(91.31, 6.03, 2.52, 1.2)
	pt3dadd(92.05, 4.37, 2.52, 1.2)
	pt3dadd(92.78, 2.21, 2.52, 1.2)
	pt3dadd(93.15, 0.22, 2.52, 0.6)
  }
  dend[72] {pt3dclear()
	pt3dadd(88.4, 8.73, 1.64, 2.1)
	pt3dadd(90.42, 9.56, 3.16, 1.2)
	pt3dadd(91.9, 10.22, 3.16, 1.2)
	pt3dadd(93.56, 11.05, 3.16, 1.2)
	pt3dadd(95.04, 11.88, 3.16, 1.8)
	pt3dadd(97.62, 12.88, 3.16, 1.8)
	pt3dadd(99.65, 12.71, 3.16, 1.8)
	pt3dadd(101.68, 11.88, 3.16, 1.8)
	pt3dadd(102.79, 10.22, 3.16, 1.8)
  }
  dend[73] {pt3dclear()
	pt3dadd(83.04, 8.56, 2.84, 2.1)
	pt3dadd(83.97, 10.22, 2.68, 2.1)
  }
  dend[74] {pt3dclear()
	pt3dadd(83.97, 10.22, 2.68, 2.1)
	pt3dadd(87.47, 11.72, 2.12, 1.2)
	pt3dadd(88.95, 13.71, 2.12, 1.2)
	pt3dadd(90.79, 15.7, 2.12, 1.2)
  }
}
proc shape3d_3() {
  dend[74] {	pt3dadd(91.9, 17.2, 2.12, 1.2)
  }
  dend[75] {pt3dclear()
	pt3dadd(83.97, 10.22, 2.68, 2.1)
	pt3dadd(83.04, 12.05, 2.8, 1.8)
	pt3dadd(81.94, 14.71, 2.8, 1.8)
	pt3dadd(80.65, 16.2, 3.08, 2.1)
	pt3dadd(80.09, 18.36, 3.08, 2.1)
	pt3dadd(79.72, 21.02, 3.08, 2.1)
	pt3dadd(79.54, 24.18, 3.08, 2.1)
	pt3dadd(79.72, 26.33, 3.08, 2.1)
	pt3dadd(80.65, 30.82, 3.08, 1.8)
  }
  dend[76] {pt3dclear()
	pt3dadd(67.36, 21.19, 0.28, 2.1)
	pt3dadd(68.65, 19.86, 0.84, 1.8)
	pt3dadd(69.02, 17.86, 0.84, 1.8)
	pt3dadd(69.76, 16.2, -0.6, 1.8)
	pt3dadd(71.24, 13.05, -0.6, 1.2)
  }
  dend[77] {pt3dclear()
	pt3dadd(71.24, 13.05, -0.6, 1.2)
	pt3dadd(70.5, 10.89, -1.8, 1.2)
	pt3dadd(70.13, 9.06, -1.8, 1.2)
	pt3dadd(69.95, 7.07, -1.8, 1.2)
	pt3dadd(69.95, 5.24, -1.8, 1.2)
	pt3dadd(69.02, 3.74, -1.8, 1.2)
	pt3dadd(67.36, 1.75, -1.8, 1.2)
	pt3dadd(65.7, 0.25, -1.8, 1.2)
	pt3dadd(64.78, -1.07, -1.8, 1.2)
	pt3dadd(63.67, -2.74, -1.8, 1.2)
  }
  dend[78] {pt3dclear()
	pt3dadd(71.24, 13.05, -0.6, 1.2)
	pt3dadd(72.16, 11.05, -1.08, 1.2)
	pt3dadd(72.9, 9.39, -1.08, 1.2)
	pt3dadd(74, 7.07, -0.72, 1.2)
  }
  dend[79] {pt3dclear()
	pt3dadd(74, 7.07, -0.72, 1.2)
	pt3dadd(74, 4.91, -1.44, 1.8)
	pt3dadd(74, 3.41, -2.32, 1.8)
  }
  dend[80] {pt3dclear()
	pt3dadd(74, 3.41, -2.32, 1.8)
	pt3dadd(71.97, 1.75, -3.04, 1.2)
	pt3dadd(70.31, -0.24, -3.04, 1.2)
	pt3dadd(69.21, -1.74, -3.04, 1.2)
	pt3dadd(68.47, -3.07, -2.2, 1.2)
  }
  dend[81] {pt3dclear()
	pt3dadd(68.47, -3.07, -2.2, 1.2)
	pt3dadd(65.33, -4.56, -1.68, 1.2)
  }
  dend[82] {pt3dclear()
	pt3dadd(68.47, -3.07, -2.2, 1.2)
	pt3dadd(67.36, -5.89, -2.2, 1.2)
  }
  dend[83] {pt3dclear()
	pt3dadd(74, 3.41, -2.32, 1.8)
	pt3dadd(74.93, 1.75, -2.56, 1.2)
	pt3dadd(75.85, 0.25, -2.56, 1.2)
	pt3dadd(76.59, -1.41, -1.8, 1.2)
	pt3dadd(76.77, -3.4, -1.8, 1.2)
  }
  dend[84] {pt3dclear()
	pt3dadd(76.77, -3.4, -1.8, 1.2)
	pt3dadd(75.85, -5.39, -3, 1.8)
	pt3dadd(75.11, -7.39, -3, 1.8)
	pt3dadd(74.56, -9.38, -3, 1.8)
	pt3dadd(75.48, -10.87, -3, 1.8)
	pt3dadd(77.33, -11.87, -2.96, 1.8)
	pt3dadd(78.62, -12.37, -2.96, 1.8)
  }
  dend[85] {pt3dclear()
	pt3dadd(76.77, -3.4, -1.8, 1.2)
	pt3dadd(77.69, -4.89, -0.52, 1.2)
	pt3dadd(78.99, -6.22, -0.52, 1.2)
	pt3dadd(80.83, -7.39, -0.52, 1.2)
	pt3dadd(83.04, -7.88, -0.52, 1.2)
	pt3dadd(84.52, -7.72, -0.52, 1.2)
  }
  dend[86] {pt3dclear()
	pt3dadd(74, 7.07, -0.72, 1.2)
	pt3dadd(76.22, 7.73, -0.6, 1.2)
	pt3dadd(78.06, 7.9, -0.6, 1.2)
	pt3dadd(80.65, 8.39, -1.92, 1.2)
	pt3dadd(82.12, 7.56, -1.92, 1.2)
  }
  dend[87] {pt3dclear()
	pt3dadd(82.12, 7.56, -1.92, 1.2)
	pt3dadd(82.31, 5.07, -2.16, 1.2)
	pt3dadd(83.04, 2.25, -2.16, 1.2)
	pt3dadd(83.6, -0.74, -2.16, 1.2)
	pt3dadd(84.52, -3.07, -2.16, 1.2)
	pt3dadd(86, -4.4, -2.16, 1.2)
	pt3dadd(87.29, -5.39, -2.16, 1.2)
  }
  dend[88] {pt3dclear()
	pt3dadd(82.12, 7.56, -1.92, 1.2)
	pt3dadd(84.34, 6.23, -2.28, 1.2)
	pt3dadd(85.81, 4.57, -2.28, 1.2)
	pt3dadd(88.21, 1.92, -0.84, 1.2)
	pt3dadd(90.06, -0.08, -0.84, 1.2)
	pt3dadd(92.45, -2.24, -0.84, 1.2)
	pt3dadd(94.3, -3.07, -0.84, 1.2)
	pt3dadd(95.22, -4.73, 0, 1.8)
	pt3dadd(97.44, -5.39, 0, 1.8)
	pt3dadd(99.83, -5.73, 0, 1.8)
	pt3dadd(102.05, -6.56, 0, 1.8)
  }
  dend[89] {pt3dclear()
	pt3dadd(68.1, 24.34, 0.4, 3)
	pt3dadd(71.24, 24.01, 0.12, 1.8)
	pt3dadd(72.71, 24.01, 0.2, 1.8)
  }
  dend[90] {pt3dclear()
	pt3dadd(72.71, 24.01, 0.2, 1.8)
	pt3dadd(72.53, 21.85, -0.24, 1.2)
	pt3dadd(72.53, 19.52, -0.24, 1.2)
	pt3dadd(73.45, 17.53, -0.36, 1.2)
	pt3dadd(76.59, 15.37, -2.8, 0.6)
	pt3dadd(80.65, 13.54, -2.52, 0.6)
	pt3dadd(83.78, 13.05, -2.52, 0.6)
	pt3dadd(87.1, 13.21, -2.52, 0.6)
	pt3dadd(90.98, 13.38, -2.52, 0.6)
  }
  dend[91] {pt3dclear()
	pt3dadd(72.71, 24.01, 0.2, 1.8)
	pt3dadd(75.66, 23.68, -1.16, 1.2)
	pt3dadd(77.69, 23.18, -2.12, 1.2)
	pt3dadd(79.91, 22.51, -3.04, 1.8)
	pt3dadd(82.12, 21.19, -3.04, 1.8)
	pt3dadd(83.23, 19.52, -3.04, 1.2)
  }
  dend[92] {pt3dclear()
	pt3dadd(83.23, 19.52, -3.04, 1.2)
	pt3dadd(83.23, 17.86, -3.28, 1.2)
	pt3dadd(83.23, 16.04, -3.28, 1.2)
	pt3dadd(83.97, 14.37, -3.28, 1.2)
	pt3dadd(84.89, 12.88, -3.28, 1.2)
	pt3dadd(85.26, 10.22, -3.24, 1.2)
	pt3dadd(86, 8.89, -3.24, 1.2)
	pt3dadd(87.1, 7.9, -3.24, 1.2)
	pt3dadd(89.13, 6.73, -3.24, 1.2)
  }
  dend[93] {pt3dclear()
	pt3dadd(89.13, 6.73, -3.24, 1.2)
	pt3dadd(89.87, 3.74, -2.56, 1.2)
	pt3dadd(90.61, 0.59, -2.56, 1.2)
	pt3dadd(90.79, -1.41, -2.56, 1.2)
	pt3dadd(91.16, -4.4, -2.56, 1.2)
  }
  dend[94] {pt3dclear()
	pt3dadd(89.13, 6.73, -3.24, 1.2)
	pt3dadd(91.35, 5.9, -1.92, 1.2)
	pt3dadd(92.45, 4.74, -1.92, 1.2)
	pt3dadd(94.48, 2.75, -1.92, 1.2)
	pt3dadd(95.96, 0.59, -1.92, 1.2)
  }
  dend[95] {pt3dclear()
	pt3dadd(83.23, 19.52, -3.04, 1.2)
	pt3dadd(85.44, 19.69, -2.6, 1.2)
	pt3dadd(87.84, 20.35, -2.6, 1.2)
	pt3dadd(89.5, 21.85, -2.6, 1.2)
	pt3dadd(90.42, 23.18, -2.6, 1.2)
  }
  dend[96] {pt3dclear()
	pt3dadd(66.67, 35.48, -0.08, 3.3)
	pt3dadd(68.51, 36.14, 0.4, 2.1)
	pt3dadd(70.17, 36.64, -1.08, 2.1)
	pt3dadd(71.47, 36.64, -1.08, 1.8)
	pt3dadd(74.05, 36.48, -1.08, 1.8)
	pt3dadd(75.89, 35.81, -1.08, 1.8)
	pt3dadd(78.29, 33.65, -0.72, 2.1)
	pt3dadd(80.14, 31.66, -1.2, 2.1)
	pt3dadd(82.35, 29.17, -0.8, 2.1)
	pt3dadd(84.75, 27.34, -1.76, 2.1)
	pt3dadd(87.52, 26.84, -1.76, 2.1)
	pt3dadd(91.58, 27.17, -1.8, 2.1)
  }
  dend[97] {pt3dclear()
	pt3dadd(91.58, 27.17, -1.8, 2.1)
	pt3dadd(93.97, 24.02, -1.4, 2.1)
  }
  dend[98] {pt3dclear()
	pt3dadd(93.97, 24.02, -1.4, 2.1)
	pt3dadd(93.97, 21.86, -1.52, 1.8)
  }
  dend[99] {pt3dclear()
	pt3dadd(93.97, 21.86, -1.52, 1.8)
	pt3dadd(92.87, 19.87, -0.44, 1.2)
	pt3dadd(92.31, 18.2, -0.44, 1.2)
	pt3dadd(92.13, 15.88, -0.44, 1.2)
	pt3dadd(93.05, 13.89, -0.44, 1.2)
  }
  dend[100] {pt3dclear()
	pt3dadd(93.05, 13.89, -0.44, 1.2)
	pt3dadd(93.05, 11.89, -0.36, 1.2)
	pt3dadd(93.05, 10.73, -0.36, 1.2)
  }
  dend[101] {pt3dclear()
	pt3dadd(93.05, 10.73, -0.36, 1.2)
	pt3dadd(92.87, 8.9, -0.88, 1.2)
	pt3dadd(93.97, 7.74, -0.88, 1.2)
	pt3dadd(96, 5.58, 0.12, 1.2)
	pt3dadd(97.66, 2.92, 0.16, 1.2)
	pt3dadd(98.22, 1.26, 0.16, 1.2)
	pt3dadd(100.25, 0.43, 0.16, 1.2)
	pt3dadd(102.09, -0.73, -0.12, 1.2)
	pt3dadd(103.75, -2.73, -0.12, 1.2)
  }
  dend[102] {pt3dclear()
	pt3dadd(93.05, 10.73, -0.36, 1.2)
	pt3dadd(94.9, 10.23, -1.12, 0.6)
	pt3dadd(96.37, 9.57, -1.12, 0.6)
	pt3dadd(98.03, 8.07, -1.12, 0.6)
  }
  dend[103] {pt3dclear()
	pt3dadd(93.05, 13.89, -0.44, 1.2)
	pt3dadd(95.63, 12.89, -1, 1.2)
	pt3dadd(97.85, 11.39, -1, 1.2)
	pt3dadd(99.51, 10.06, -1, 1.2)
	pt3dadd(100.8, 8.07, -1, 1.2)
	pt3dadd(101.54, 6.58, 0.32, 1.2)
	pt3dadd(101.91, 5.58, 0.32, 1.8)
	pt3dadd(101.54, 4.58, 0.32, 1.8)
	pt3dadd(101.91, 3.75, 0.32, 1.8)
	pt3dadd(102.65, 2.92, 0.32, 1.8)
	pt3dadd(103.2, 2.42, 0.32, 1.8)
  }
  dend[104] {pt3dclear()
	pt3dadd(93.97, 21.86, -1.52, 1.8)
	pt3dadd(96.56, 20.53, -1.04, 1.8)
	pt3dadd(99.14, 18.87, -1.04, 1.8)
	pt3dadd(102.09, 17.04, -1.16, 1.8)
	pt3dadd(102.83, 15.05, -1.16, 1.8)
	pt3dadd(104.68, 13.22, -1.16, 1.8)
	pt3dadd(106.89, 10.56, -0.68, 1.8)
	pt3dadd(108.37, 8.4, -0.32, 1.8)
  }
  dend[105] {pt3dclear()
	pt3dadd(108.37, 8.4, -0.32, 1.8)
	pt3dadd(109.29, 3.92, 0.68, 1.2)
  }
  dend[106] {pt3dclear()
	pt3dadd(108.37, 8.4, -0.32, 1.8)
	pt3dadd(110.58, 7.91, -0.08, 1.8)
	pt3dadd(111.87, 6.24, -0.08, 1.8)
	pt3dadd(112.61, 3.92, -0.08, 1.8)
	pt3dadd(112.61, 1.26, -0.08, 1.2)
  }
  dend[107] {pt3dclear()
	pt3dadd(93.97, 24.02, -1.4, 2.1)
	pt3dadd(95.45, 24.02, -1.48, 1.8)
  }
  dend[108] {pt3dclear()
	pt3dadd(95.45, 24.02, -1.48, 1.8)
	pt3dadd(96.56, 22.36, -1.36, 1.2)
	pt3dadd(98.4, 21.86, -1.36, 1.2)
	pt3dadd(100.43, 22.02, -1.36, 1.8)
	pt3dadd(102.65, 22.52, -2.44, 1.8)
	pt3dadd(103.75, 23.02, -2.44, 1.8)
	pt3dadd(105.23, 20.7, -2.2, 1.2)
	pt3dadd(106.15, 19.03, -1.56, 1.8)
  }
  dend[109] {pt3dclear()
	pt3dadd(106.15, 19.03, -1.56, 1.8)
	pt3dadd(105.97, 16.71, -0.6, 1.8)
	pt3dadd(106.89, 15.05, -0.6, 1.8)
  }
}
proc shape3d_4() {
  dend[109] {	pt3dadd(108.55, 13.22, -0.6, 1.8)
	pt3dadd(110.76, 11.89, -1.88, 1.8)
	pt3dadd(112.61, 11.39, -1.88, 1.8)
	pt3dadd(114.45, 10.56, -1.88, 1.8)
	pt3dadd(115.19, 9.23, -0.92, 1.2)
  }
  dend[110] {pt3dclear()
	pt3dadd(106.15, 19.03, -1.56, 1.8)
	pt3dadd(108, 18.7, -1.28, 1.8)
	pt3dadd(110.21, 17.04, -0.48, 2.1)
  }
  dend[111] {pt3dclear()
	pt3dadd(110.21, 17.04, -0.48, 2.1)
	pt3dadd(112.06, 15.88, -0.52, 2.1)
	pt3dadd(114.82, 15.71, -0.52, 2.1)
	pt3dadd(118.14, 15.05, -0.52, 2.1)
	pt3dadd(119.62, 14.38, -0.72, 1.8)
  }
  dend[112] {pt3dclear()
	pt3dadd(119.62, 14.38, -0.72, 1.8)
	pt3dadd(120.91, 13.22, -0.32, 1.8)
	pt3dadd(121.65, 11.23, -0.32, 1.8)
	pt3dadd(122.39, 8.74, -0.32, 1.8)
	pt3dadd(123.13, 6.91, 1.44, 1.2)
	pt3dadd(123.31, 3.42, 1.88, 1.2)
  }
  dend[113] {pt3dclear()
	pt3dadd(119.62, 14.38, -0.72, 1.8)
	pt3dadd(121.28, 16.04, -0.72, 1.2)
  }
  dend[114] {pt3dclear()
	pt3dadd(110.21, 17.04, -0.48, 2.1)
	pt3dadd(112.24, 19.53, 0.28, 1.8)
  }
  dend[115] {pt3dclear()
	pt3dadd(95.45, 24.02, -1.48, 1.8)
	pt3dadd(96.37, 25.02, 0.4, 1.8)
	pt3dadd(98.22, 25.68, 0.4, 1.8)
	pt3dadd(100.8, 25.68, 0.4, 1.8)
	pt3dadd(104.68, 26.01, 0.4, 1.8)
	pt3dadd(106.71, 26.34, 0.4, 1.8)
	pt3dadd(108.55, 26.51, 0, 1.2)
	pt3dadd(109.84, 27.67, 0.44, 1.2)
  }
  dend[116] {pt3dclear()
	pt3dadd(91.58, 27.17, -1.8, 2.1)
	pt3dadd(92.31, 28.67, -0.64, 1.8)
	pt3dadd(93.79, 29.17, -0.64, 1.8)
	pt3dadd(96, 29.33, -0.64, 1.8)
	pt3dadd(98.4, 29.5, -0.64, 1.8)
	pt3dadd(100.99, 30, -0.4, 1.8)
	pt3dadd(103.2, 30.83, -0.44, 1.8)
	pt3dadd(104.49, 31, -0.44, 1.8)
  }
  dend[117] {pt3dclear()
	pt3dadd(104.49, 31, -0.44, 1.8)
	pt3dadd(107.07, 30.5, 0, 1.2)
	pt3dadd(108.55, 31.16, 0, 1.2)
  }
  dend[118] {pt3dclear()
	pt3dadd(108.55, 31.16, 0, 1.2)
	pt3dadd(111.69, 31.66, -1.08, 1.2)
	pt3dadd(113.9, 31.49, -1.08, 1.2)
	pt3dadd(116.3, 30.66, -1.08, 1.2)
  }
  dend[119] {pt3dclear()
	pt3dadd(108.55, 31.16, 0, 1.2)
	pt3dadd(109.1, 32.82, 0, 1.2)
	pt3dadd(110.03, 34.32, 0, 1.2)
	pt3dadd(112.61, 35.81, 0, 1.2)
	pt3dadd(114.82, 35.81, 0, 1.8)
	pt3dadd(117.04, 34.98, 0, 2.1)
	pt3dadd(118.51, 34.98, 0, 2.1)
	pt3dadd(120.36, 35.81, 0, 1.2)
	pt3dadd(122.39, 36.48, -0.08, 1.2)
  }
  dend[120] {pt3dclear()
	pt3dadd(104.49, 31, -0.44, 1.8)
	pt3dadd(105.23, 32.82, -1.04, 1.2)
	pt3dadd(105.78, 35.15, -1.08, 1.2)
	pt3dadd(105.78, 38.64, -1.08, 1.2)
	pt3dadd(106.34, 40.8, -0.28, 1.2)
	pt3dadd(107.26, 42.96, -0.28, 1.2)
  }
  dend[121] {pt3dclear()
	pt3dadd(61.32, 40.63, 1.48, 3.9)
	pt3dadd(62.98, 42.46, 1.4, 3.6)
	pt3dadd(64.46, 44.78, 0.84, 2.7)
	pt3dadd(65.38, 45.95, 0.76, 2.7)
  }
  dend[122] {pt3dclear()
	pt3dadd(65.38, 45.95, 0.76, 2.7)
	pt3dadd(68.52, 47.44, 0.76, 2.7)
	pt3dadd(72.58, 48.6, 1.8, 2.7)
	pt3dadd(76.27, 48.94, 1.56, 2.7)
	pt3dadd(79.03, 48.77, 0.48, 2.7)
	pt3dadd(81.62, 48.6, 0.8, 2.7)
	pt3dadd(84.57, 48.77, 0.8, 2.7)
	pt3dadd(86.23, 48.6, 0.8, 2.7)
	pt3dadd(88.63, 47.94, 0.8, 3.6)
  }
  dend[123] {pt3dclear()
	pt3dadd(88.63, 47.94, 0.8, 3.6)
	pt3dadd(88.81, 46.28, -0.36, 2.7)
  }
  dend[124] {pt3dclear()
	pt3dadd(88.81, 46.28, -0.36, 2.7)
	pt3dadd(88.07, 44.45, 0, 1.8)
	pt3dadd(87.33, 42.46, -0.84, 1.8)
	pt3dadd(86.41, 40.63, -0.24, 1.8)
  }
  dend[125] {pt3dclear()
	pt3dadd(86.41, 40.63, -0.24, 1.8)
	pt3dadd(84.01, 38.64, -0.64, 1.2)
	pt3dadd(82.17, 37.97, -1.36, 1.2)
	pt3dadd(80.32, 38.64, -1.36, 1.8)
	pt3dadd(78.48, 39.8, -1.36, 1.8)
	pt3dadd(76.45, 40.63, -0.16, 1.8)
	pt3dadd(73.31, 41.13, -0.16, 1.2)
	pt3dadd(71.47, 41.79, 0.24, 1.2)
	pt3dadd(70.36, 42.96, -0.6, 1.2)
	pt3dadd(69.62, 43.95, -0.6, 1.2)
	pt3dadd(71.28, 45.45, -0.6, 1.2)
	pt3dadd(73.31, 46.28, -0.36, 1.2)
	pt3dadd(75.52, 46.28, -0.36, 1.2)
  }
  dend[126] {pt3dclear()
	pt3dadd(75.52, 46.28, -0.36, 1.2)
	pt3dadd(75.89, 44.28, 0.24, 1.2)
	pt3dadd(76.63, 42.96, -0.36, 0.6)
  }
  dend[127] {pt3dclear()
	pt3dadd(75.52, 46.28, -0.36, 1.2)
	pt3dadd(77.74, 46.61, -0.04, 0.6)
	pt3dadd(79.58, 46.28, -0.04, 0.6)
	pt3dadd(82.72, 44.45, -0.48, 0.6)
	pt3dadd(84.93, 43.29, -0.48, 0.6)
  }
  dend[128] {pt3dclear()
	pt3dadd(86.41, 40.63, -0.24, 1.8)
	pt3dadd(86.23, 38.14, -0.72, 1.2)
	pt3dadd(85.12, 36.14, -0.72, 1.2)
	pt3dadd(84.38, 34.65, -0.64, 1.2)
	pt3dadd(84.01, 33.65, -0.64, 1.2)
  }
  dend[129] {pt3dclear()
	pt3dadd(84.01, 33.65, -0.64, 1.2)
	pt3dadd(80.69, 29.67, -0.68, 1.2)
  }
  dend[130] {pt3dclear()
	pt3dadd(80.69, 29.67, -0.68, 1.2)
	pt3dadd(78.66, 29.17, -0.04, 1.2)
	pt3dadd(76.82, 29.17, -0.04, 1.2)
  }
  dend[131] {pt3dclear()
	pt3dadd(76.82, 29.17, -0.04, 1.2)
	pt3dadd(75.89, 30.66, 0.72, 0.6)
	pt3dadd(74.79, 31.99, 0.72, 0.6)
	pt3dadd(74.42, 33.82, 0.72, 0.3)
  }
  dend[132] {pt3dclear()
	pt3dadd(76.82, 29.17, -0.04, 1.2)
	pt3dadd(74.23, 28.34, -1.36, 0.6)
	pt3dadd(72.76, 28.67, -1.36, 0.6)
  }
  dend[133] {pt3dclear()
	pt3dadd(72.76, 28.67, -1.36, 0.6)
	pt3dadd(72.2, 30.5, -1.16, 0.6)
	pt3dadd(70.91, 33.32, -1.56, 0.6)
	pt3dadd(70.73, 35.48, -2.32, 0.6)
	pt3dadd(70.73, 38.47, -2.8, 0.6)
  }
  dend[134] {pt3dclear()
	pt3dadd(72.76, 28.67, -1.36, 0.6)
	pt3dadd(69.99, 29.17, -0.64, 0.6)
	pt3dadd(67.96, 30.5, 0.4, 0.6)
	pt3dadd(65.56, 31.49, 1.48, 0.6)
  }
  dend[135] {pt3dclear()
	pt3dadd(80.69, 29.67, -0.68, 1.2)
	pt3dadd(80.69, 28.01, -0.04, 1.2)
	pt3dadd(80.87, 25.85, -0.04, 1.2)
	pt3dadd(81.06, 23.69, -0.04, 1.2)
  }
  dend[136] {pt3dclear()
	pt3dadd(84.01, 33.65, -0.64, 1.2)
	pt3dadd(85.3, 31.16, 0.32, 1.2)
	pt3dadd(86.59, 28.34, 1.44, 1.2)
	pt3dadd(86.41, 27.67, 1.44, 1.2)
  }
  dend[137] {pt3dclear()
	pt3dadd(86.41, 27.67, 1.44, 1.2)
	pt3dadd(86.78, 25.85, 1.44, 1.2)
	pt3dadd(86.41, 24.18, 1.44, 1.2)
	pt3dadd(87.15, 22.02, 1.16, 1.2)
	pt3dadd(87.15, 19.87, -0.52, 1.2)
  }
  dend[138] {pt3dclear()
	pt3dadd(86.41, 27.67, 1.44, 1.2)
	pt3dadd(88.07, 27.51, 1.4, 1.2)
	pt3dadd(89.18, 26.68, 0.4, 1.2)
	pt3dadd(89.92, 24.85, 0.4, 1.2)
	pt3dadd(91.02, 22.19, 0.36, 1.2)
	pt3dadd(91.39, 20.7, 0.36, 1.2)
  }
  dend[139] {pt3dclear()
	pt3dadd(91.39, 20.7, 0.36, 1.2)
	pt3dadd(91.02, 19.03, 1.68, 0.6)
	pt3dadd(89.55, 17.54, 1.68, 0.6)
	pt3dadd(88.07, 16.21, 1.64, 1.2)
	pt3dadd(86.59, 14.88, 1.48, 1.2)
  }
  dend[140] {pt3dclear()
	pt3dadd(91.39, 20.7, 0.36, 1.2)
	pt3dadd(93.79, 19.53, -0.04, 0.6)
	pt3dadd(95.27, 18.37, -0.04, 0.6)
	pt3dadd(95.45, 16.38, -0.04, 0.6)
  }
  dend[141] {pt3dclear()
	pt3dadd(88.81, 46.28, -0.36, 2.7)
	pt3dadd(90.47, 45.11, 0.04, 1.8)
	pt3dadd(91.39, 43.79, 0.04, 1.8)
	pt3dadd(92.5, 41.79, -0.96, 1.8)
	pt3dadd(93.05, 40.8, -0.44, 1.8)
  }
  dend[142] {pt3dclear()
	pt3dadd(93.05, 40.8, -0.44, 1.8)
	pt3dadd(91.76, 38.97, -0.8, 1.2)
	pt3dadd(91.58, 36.31, -0.8, 1.2)
  }
  dend[143] {pt3dclear()
	pt3dadd(91.58, 36.31, -0.8, 1.2)
	pt3dadd(89.18, 34.32, 0.36, 1.2)
	pt3dadd(87.33, 33.32, 0.36, 1.2)
	pt3dadd(83.27, 32.49, 0.52, 1.2)
  }
  dend[144] {pt3dclear()
	pt3dadd(91.58, 36.31, -0.8, 1.2)
	pt3dadd(92.13, 33.99, -0.64, 1.2)
  }
  dend[145] {pt3dclear()
	pt3dadd(92.13, 33.99, -0.64, 1.2)
	pt3dadd(92.13, 31.33, 0.24, 1.8)
	pt3dadd(93.05, 30.16, 0.24, 1.8)
	pt3dadd(93.97, 28.84, 0.24, 1.8)
	pt3dadd(93.79, 27.17, 0.24, 1.8)
	pt3dadd(93.61, 24.85, 0.24, 1.8)
  }
  dend[146] {pt3dclear()
	pt3dadd(92.13, 33.99, -0.64, 1.2)
	pt3dadd(94.71, 34.32, -0.32, 0.6)
	pt3dadd(97.3, 33.65, -0.32, 0.6)
  }
  dend[147] {pt3dclear()
	pt3dadd(93.05, 40.8, -0.44, 1.8)
	pt3dadd(94.9, 40.13, -0.16, 1.8)
	pt3dadd(96.93, 39.3, 1.16, 1.8)
  }
  dend[148] {pt3dclear()
	pt3dadd(96.93, 39.3, 1.16, 1.8)
	pt3dadd(98.03, 37.31, -0.16, 1.8)
  }
  dend[149] {pt3dclear()
	pt3dadd(98.03, 37.31, -0.16, 1.8)
	pt3dadd(98.77, 35.65, -0.6, 1.2)
	pt3dadd(100.06, 33.49, -0.44, 0.6)
  }
  dend[150] {pt3dclear()
	pt3dadd(98.03, 37.31, -0.16, 1.8)
	pt3dadd(100.25, 37.31, -0.16, 1.2)
	pt3dadd(104.31, 37.31, -0.2, 1.2)
	pt3dadd(107.07, 36.98, 1.04, 1.2)
	pt3dadd(109.29, 37.14, 1.04, 1.8)
	pt3dadd(110.76, 36.98, 2.56, 1.8)
	pt3dadd(112.61, 35.81, 2.56, 2.1)
	pt3dadd(113.72, 35.31, 2.56, 1.2)
	pt3dadd(114.82, 33.99, 3.4, 1.2)
	pt3dadd(115.01, 31.66, 3.4, 1.8)
  }
  dend[151] {pt3dclear()
	pt3dadd(96.93, 39.3, 1.16, 1.8)
	pt3dadd(98.77, 41.13, 0.88, 1.8)
	pt3dadd(100.25, 42.12, 1.08, 1.2)
  }
  dend[152] {pt3dclear()
	pt3dadd(100.25, 42.12, 1.08, 1.2)
  }
}
proc shape3d_5() {
  dend[152] {	pt3dadd(101.72, 42.96, 0.84, 1.2)
	pt3dadd(103.94, 43.95, 0.84, 1.2)
	pt3dadd(105.97, 43.95, 0.84, 1.2)
	pt3dadd(107.63, 44.45, 0.48, 1.8)
  }
  dend[153] {pt3dclear()
	pt3dadd(107.63, 44.45, 0.48, 1.8)
	pt3dadd(108.92, 43.79, 0.36, 1.8)
  }
  dend[154] {pt3dclear()
	pt3dadd(107.63, 44.45, 0.48, 1.8)
	pt3dadd(108.73, 46.11, 1.4, 1.8)
	pt3dadd(109.47, 46.94, 1.4, 1.8)
	pt3dadd(111.5, 47.27, 1.4, 1.8)
	pt3dadd(113.9, 47.44, 1.4, 1.8)
  }
  dend[155] {pt3dclear()
	pt3dadd(100.25, 42.12, 1.08, 1.2)
	pt3dadd(99.88, 43.12, 1.08, 1.2)
  }
  dend[156] {pt3dclear()
	pt3dadd(99.88, 43.12, 1.08, 1.2)
	pt3dadd(100.62, 44.62, 0.44, 1.2)
	pt3dadd(100.99, 45.95, 0.44, 1.2)
	pt3dadd(99.88, 47.27, 0.44, 1.2)
  }
  dend[157] {pt3dclear()
	pt3dadd(99.88, 47.27, 0.44, 1.2)
	pt3dadd(100.99, 49.93, 0.76, 1.2)
	pt3dadd(102.65, 50.43, 0.76, 0.6)
	pt3dadd(104.12, 51.26, 0.76, 0.6)
	pt3dadd(106.71, 53.92, 0.76, 0.6)
  }
  dend[158] {pt3dclear()
	pt3dadd(99.88, 47.27, 0.44, 1.2)
	pt3dadd(97.85, 47.11, 0.84, 1.2)
	pt3dadd(96.37, 46.94, 0.84, 1.2)
	pt3dadd(95.45, 46.11, 0.84, 1.2)
	pt3dadd(94.53, 44.78, 1.16, 1.2)
  }
  dend[159] {pt3dclear()
	pt3dadd(99.88, 43.12, 1.08, 1.2)
	pt3dadd(96.37, 43.62, 0.4, 0.6)
  }
  dend[160] {pt3dclear()
	pt3dadd(88.63, 47.94, 0.8, 3.6)
	pt3dadd(91.21, 48.44, -0.32, 3.3)
	pt3dadd(93.61, 49.1, 0.32, 2.7)
	pt3dadd(95.27, 49.6, 0.32, 2.7)
	pt3dadd(96.93, 50.43, -0.12, 2.7)
  }
  dend[161] {pt3dclear()
	pt3dadd(96.93, 50.43, -0.12, 2.7)
	pt3dadd(98.57, 49.51, -1.56, 1.8)
	pt3dadd(100.04, 48.84, -1.56, 1.2)
	pt3dadd(102.07, 48.84, -1.56, 1.2)
	pt3dadd(105.02, 49.34, -1.56, 1.2)
	pt3dadd(107.61, 49.34, -1.68, 1.8)
	pt3dadd(110, 49.01, -1.68, 1.8)
	pt3dadd(111.48, 47.51, -1.56, 1.8)
  }
  dend[162] {pt3dclear()
	pt3dadd(111.48, 47.51, -1.56, 1.8)
	pt3dadd(112.03, 46.18, -2, 1.8)
  }
  dend[163] {pt3dclear()
	pt3dadd(112.03, 46.18, -2, 1.8)
	pt3dadd(110.74, 45.02, -1.92, 1.2)
	pt3dadd(110, 42.7, -1.92, 1.2)
	pt3dadd(109.64, 40.2, -1.92, 1.2)
	pt3dadd(109.45, 38.04, -2.04, 1.2)
	pt3dadd(109.45, 36.22, -2.04, 1.2)
  }
  dend[164] {pt3dclear()
	pt3dadd(112.03, 46.18, -2, 1.8)
	pt3dadd(113.14, 45.52, -2.92, 1.8)
  }
  dend[165] {pt3dclear()
	pt3dadd(113.14, 45.52, -2.92, 1.8)
	pt3dadd(112.96, 43.03, -1.48, 1.2)
	pt3dadd(113.33, 41.7, -1.48, 1.2)
  }
  dend[166] {pt3dclear()
	pt3dadd(113.33, 41.7, -1.48, 1.2)
	pt3dadd(113.14, 39.71, -1.2, 1.2)
	pt3dadd(112.96, 38.04, -1.2, 1.2)
  }
  dend[167] {pt3dclear()
	pt3dadd(113.33, 41.7, -1.48, 1.2)
	pt3dadd(115.54, 40.7, -2, 1.2)
	pt3dadd(117.2, 40.54, -2, 1.2)
	pt3dadd(118.49, 40.7, -2, 1.2)
  }
  dend[168] {pt3dclear()
	pt3dadd(113.14, 45.52, -2.92, 1.8)
	pt3dadd(114.99, 45.69, -1, 1.2)
	pt3dadd(117.2, 45.52, -0.92, 1.2)
  }
  dend[169] {pt3dclear()
	pt3dadd(117.2, 45.52, -0.92, 1.2)
	pt3dadd(118.86, 44.02, -1.16, 1.2)
	pt3dadd(121.07, 43.19, -1.16, 1.2)
  }
  dend[170] {pt3dclear()
	pt3dadd(121.07, 43.19, -1.16, 1.2)
	pt3dadd(122.55, 42.2, -1.56, 1.8)
  }
  dend[171] {pt3dclear()
	pt3dadd(122.55, 42.2, -1.56, 1.8)
	pt3dadd(123.66, 40.54, -1.48, 1.2)
	pt3dadd(125.13, 39.04, -1.24, 2.1)
	pt3dadd(126.42, 37.55, -0.24, 2.1)
	pt3dadd(128.45, 36.88, -0.84, 1.8)
	pt3dadd(130.48, 36.22, -0.28, 2.1)
	pt3dadd(132.33, 34.89, 1.44, 2.1)
	pt3dadd(134.91, 33.39, -0.16, 1.8)
  }
  dend[172] {pt3dclear()
	pt3dadd(122.55, 42.2, -1.56, 1.8)
	pt3dadd(123.84, 43.69, -1.88, 1.2)
	pt3dadd(125.69, 43.36, -1.88, 1.2)
	pt3dadd(126.79, 44.86, -1.88, 1.8)
	pt3dadd(127.9, 47.18, -1.88, 1.8)
	pt3dadd(129.75, 49.01, -1.76, 1.8)
	pt3dadd(131.96, 50.67, -1.72, 1.8)
	pt3dadd(133.99, 52.16, -2.2, 1.8)
	pt3dadd(135.65, 52.66, -2.4, 1.8)
  }
  dend[173] {pt3dclear()
	pt3dadd(135.65, 52.66, -2.4, 1.8)
	pt3dadd(136.76, 51.67, -2.4, 0.6)
  }
  dend[174] {pt3dclear()
	pt3dadd(135.65, 52.66, -2.4, 1.8)
	pt3dadd(137.86, 55.99, -2.4, 0.6)
  }
  dend[175] {pt3dclear()
	pt3dadd(121.07, 43.19, -1.16, 1.2)
	pt3dadd(120.34, 45.85, -1.16, 0.6)
  }
  dend[176] {pt3dclear()
	pt3dadd(117.2, 45.52, -0.92, 1.2)
	pt3dadd(119.41, 47.18, -1.8, 1.2)
	pt3dadd(122, 47.85, -1.8, 1.2)
	pt3dadd(123.66, 48.68, -1.28, 1.8)
	pt3dadd(125.13, 50.5, -1.28, 1.8)
	pt3dadd(127.16, 52.66, -1.08, 1.8)
	pt3dadd(128.45, 54.49, -1.64, 1.8)
	pt3dadd(130.12, 56.65, -1.68, 1.8)
	pt3dadd(132.33, 57.15, -1.68, 1.8)
	pt3dadd(135.28, 58.14, -2.2, 1.8)
	pt3dadd(137.31, 58.81, -3.28, 1.8)
	pt3dadd(139.71, 59.97, -2.64, 1.2)
	pt3dadd(141.92, 61.47, -4.04, 1.2)
  }
  dend[177] {pt3dclear()
	pt3dadd(111.48, 47.51, -1.56, 1.8)
	pt3dadd(113.51, 48.68, -1.32, 1.2)
	pt3dadd(115.35, 49.67, -1.32, 1.2)
	pt3dadd(117.02, 51.5, -0.64, 1.2)
  }
  dend[178] {pt3dclear()
	pt3dadd(117.02, 51.5, -0.64, 1.2)
	pt3dadd(118.86, 53.16, -1.08, 1.8)
  }
  dend[179] {pt3dclear()
	pt3dadd(118.86, 53.16, -1.08, 1.8)
	pt3dadd(120.34, 53.33, -1.64, 1.2)
  }
  dend[180] {pt3dclear()
	pt3dadd(120.34, 53.33, -1.64, 1.2)
	pt3dadd(121.81, 52.33, -0.52, 0.6)
	pt3dadd(123.84, 51, 0.48, 1.2)
  }
  dend[181] {pt3dclear()
	pt3dadd(120.34, 53.33, -1.64, 1.2)
	pt3dadd(121.81, 55.49, -2.48, 1.2)
	pt3dadd(123.1, 57.31, -2.48, 1.2)
	pt3dadd(124.76, 58.98, -2, 0.6)
	pt3dadd(127.35, 60.97, -2, 0.6)
	pt3dadd(129.38, 62.46, -2, 1.2)
  }
  dend[182] {pt3dclear()
	pt3dadd(118.86, 53.16, -1.08, 1.8)
	pt3dadd(118.86, 54.82, -0.56, 1.2)
	pt3dadd(119.23, 56.32, -0.56, 1.2)
	pt3dadd(119.78, 57.65, -0.56, 1.2)
  }
  dend[183] {pt3dclear()
	pt3dadd(119.78, 57.65, -0.56, 1.2)
	pt3dadd(121.07, 59.47, -1.32, 1.2)
	pt3dadd(122.18, 61.3, -1.32, 1.2)
	pt3dadd(123.66, 62.96, -1.32, 1.2)
	pt3dadd(124.76, 64.79, -1.32, 1.2)
	pt3dadd(126.79, 65.79, -1.32, 0.6)
	pt3dadd(128.27, 66.28, -1.08, 0.6)
	pt3dadd(130.3, 66.12, -2.24, 0.6)
	pt3dadd(132.14, 64.96, -2.24, 0.6)
  }
  dend[184] {pt3dclear()
	pt3dadd(119.78, 57.65, -0.56, 1.2)
	pt3dadd(118.68, 59.14, -1.8, 0.6)
	pt3dadd(119.23, 61.13, -1.8, 0.6)
	pt3dadd(119.97, 62.63, -1.8, 0.6)
	pt3dadd(121.81, 64.79, -1.8, 0.6)
  }
  dend[185] {pt3dclear()
	pt3dadd(117.02, 51.5, -0.64, 1.2)
	pt3dadd(116.65, 54.49, -0.68, 0.6)
  }
  dend[186] {pt3dclear()
	pt3dadd(96.93, 50.43, -0.12, 2.7)
	pt3dadd(99.88, 52.76, 0.52, 2.7)
	pt3dadd(103, 55.25, 0.84, 2.7)
  }
  dend[187] {pt3dclear()
	pt3dadd(103, 55.25, 0.84, 2.7)
	pt3dadd(105.93, 56.82, 0.72, 2.7)
	pt3dadd(108.52, 58.15, 1, 3)
	pt3dadd(109.81, 60.14, 1.04, 3)
  }
  dend[188] {pt3dclear()
	pt3dadd(109.81, 60.14, 1.04, 3)
	pt3dadd(111.33, 60.14, -0.04, 1.2)
	pt3dadd(112.99, 60.31, 0.2, 0.6)
	pt3dadd(114.47, 61.3, 0.48, 0.6)
	pt3dadd(116.13, 62.96, 0.04, 0.6)
	pt3dadd(117.97, 63.96, 0, 1.2)
	pt3dadd(119.26, 64.96, 1.12, 1.2)
	pt3dadd(121.11, 66.29, -0.16, 1.2)
	pt3dadd(123.88, 67.61, 0.08, 1.2)
	pt3dadd(126.46, 68.28, -1, 1.2)
	pt3dadd(129.04, 69.44, -0.36, 1.8)
  }
  dend[189] {pt3dclear()
	pt3dadd(129.04, 69.44, -0.36, 1.8)
	pt3dadd(130.89, 67.95, -1.4, 1.2)
	pt3dadd(132.73, 67.28, -1.4, 1.2)
	pt3dadd(134.39, 67.95, -1.4, 1.2)
	pt3dadd(135.68, 68.61, -1.44, 1.2)
  }
  dend[190] {pt3dclear()
	pt3dadd(135.68, 68.61, -1.44, 1.2)
	pt3dadd(136.05, 66.45, -1.44, 1.2)
	pt3dadd(134.95, 64.13, -1.04, 1.2)
	pt3dadd(132.92, 61.63, -1.36, 1.2)
	pt3dadd(131.07, 59.31, -1.36, 0.6)
  }
  dend[191] {pt3dclear()
	pt3dadd(135.68, 68.61, -1.44, 1.2)
	pt3dadd(137.71, 69.11, -1.84, 1.2)
	pt3dadd(139.01, 69.61, -1.84, 1.2)
  }
  dend[192] {pt3dclear()
	pt3dadd(139.01, 69.61, -1.84, 1.2)
	pt3dadd(140.85, 69.77, -1.84, 1.2)
	pt3dadd(142.7, 68.44, -1.52, 1.2)
	pt3dadd(144.36, 65.79, 0.6, 1.2)
	pt3dadd(144.73, 62.63, 0.32, 1.2)
  }
  dend[193] {pt3dclear()
	pt3dadd(139.01, 69.61, -1.84, 1.2)
	pt3dadd(139.74, 72.27, -1.84, 0.6)
  }
  dend[194] {pt3dclear()
	pt3dadd(129.04, 69.44, -0.36, 1.8)
	pt3dadd(130.52, 71.1, -0.4, 1.8)
	pt3dadd(131.99, 73.1, -0.4, 1.2)
	pt3dadd(133.66, 74.76, -0.88, 1.2)
	pt3dadd(135.32, 76.42, -1.28, 1.2)
	pt3dadd(137.71, 77.42, -1.28, 1.2)
	pt3dadd(139.93, 77.58, -2.8, 1.2)
	pt3dadd(140.85, 77.58, -2.8, 1.2)
  }
  dend[195] {pt3dclear()
	pt3dadd(140.85, 77.58, -2.8, 1.2)
	pt3dadd(141.96, 75.59, -2.52, 1.2)
	pt3dadd(143.25, 74.26, -2.52, 1.2)
	pt3dadd(145.28, 73.59, -2.52, 1.2)
	pt3dadd(147.49, 73.59, -2.2, 1.2)
  }
  dend[196] {pt3dclear()
	pt3dadd(147.49, 73.59, -2.2, 1.2)
	pt3dadd(148.05, 71.1, -2.6, 1.2)
	pt3dadd(147.86, 69.11, -2.6, 1.2)
  }
  dend[197] {pt3dclear()
	pt3dadd(147.86, 69.11, -2.6, 1.2)
	pt3dadd(147.12, 66.45, -2.28, 1.2)
	pt3dadd(146.2, 63.96, -2.64, 1.2)
  }
}
proc shape3d_6() {
  dend[197] {	pt3dadd(144.36, 60.8, -2.64, 1.2)
	pt3dadd(143.43, 58.81, -2.04, 1.2)
	pt3dadd(141.96, 55.99, -1.44, 1.2)
  }
  dend[198] {pt3dclear()
	pt3dadd(141.96, 55.99, -1.44, 1.2)
	pt3dadd(140.3, 54.16, -1.84, 0.6)
	pt3dadd(138.27, 51.5, -1.84, 1.2)
  }
  dend[199] {pt3dclear()
	pt3dadd(141.96, 55.99, -1.44, 1.2)
	pt3dadd(142.7, 54.33, -1.92, 1.2)
  }
  dend[200] {pt3dclear()
	pt3dadd(142.7, 54.33, -1.92, 1.2)
	pt3dadd(142.14, 52, -1.76, 1.2)
	pt3dadd(141.4, 50.34, -1.76, 1.2)
  }
  dend[201] {pt3dclear()
	pt3dadd(142.7, 54.33, -1.92, 1.2)
	pt3dadd(144.54, 54.49, -1.24, 1.2)
	pt3dadd(146.94, 54.99, -1.24, 1.2)
	pt3dadd(147.86, 55.49, -1.28, 1.2)
	pt3dadd(148.78, 56.98, -2.48, 0.6)
	pt3dadd(149.52, 57.81, -2.48, 0.6)
	pt3dadd(151.37, 57.81, -2.48, 0.6)
	pt3dadd(153.21, 58.64, -3.16, 1.2)
	pt3dadd(156.35, 59.47, -3.16, 0.6)
  }
  dend[202] {pt3dclear()
	pt3dadd(147.86, 69.11, -2.6, 1.2)
	pt3dadd(149.71, 68.78, -3.6, 1.2)
	pt3dadd(151.55, 68.61, -3.6, 1.2)
  }
  dend[203] {pt3dclear()
	pt3dadd(151.55, 68.61, -3.6, 1.2)
	pt3dadd(152.29, 66.78, -3.16, 0.6)
	pt3dadd(153.4, 64.79, -3.16, 0.6)
	pt3dadd(154.32, 62.46, -3.52, 1.2)
  }
  dend[204] {pt3dclear()
	pt3dadd(151.55, 68.61, -3.6, 1.2)
	pt3dadd(152.66, 69.94, -3.36, 1.2)
	pt3dadd(154.32, 70.77, -3.36, 1.2)
	pt3dadd(155.98, 71.27, -3.4, 1.2)
	pt3dadd(157.82, 71.6, -3.4, 1.2)
	pt3dadd(160.04, 71.93, -3.68, 1.2)
	pt3dadd(162.25, 70.77, -3.68, 0.6)
  }
  dend[205] {pt3dclear()
	pt3dadd(147.49, 73.59, -2.2, 1.2)
	pt3dadd(150.63, 74.26, -2.56, 1.2)
	pt3dadd(153.21, 74.92, -2.56, 1.2)
  }
  dend[206] {pt3dclear()
	pt3dadd(153.21, 74.92, -2.56, 1.2)
	pt3dadd(155.43, 74.92, -2.8, 1.2)
	pt3dadd(158.38, 75.26, -3.32, 1.2)
	pt3dadd(161.88, 75.92, -4.16, 1.2)
	pt3dadd(165.57, 76.58, -4.92, 0.6)
	pt3dadd(169.45, 78.25, -4.92, 0.6)
  }
  dend[207] {pt3dclear()
	pt3dadd(153.21, 74.92, -2.56, 1.2)
	pt3dadd(154.69, 76.92, -3.4, 1.2)
	pt3dadd(155.8, 78.74, -3.44, 1.2)
	pt3dadd(157.82, 80.57, -3.44, 1.2)
	pt3dadd(159.3, 81.4, -3.44, 1.2)
	pt3dadd(161.88, 83.4, -3.44, 0.6)
  }
  dend[208] {pt3dclear()
	pt3dadd(161.88, 83.4, -3.44, 0.6)
	pt3dadd(165.94, 82.07, -4.12, 0.6)
  }
  dend[209] {pt3dclear()
	pt3dadd(161.88, 83.4, -3.44, 0.6)
	pt3dadd(163.54, 84.72, -4.24, 0.6)
  }
  dend[210] {pt3dclear()
	pt3dadd(140.85, 77.58, -2.8, 1.2)
	pt3dadd(142.14, 79.24, -3.84, 1.2)
	pt3dadd(144.54, 81.73, -3.68, 0.6)
	pt3dadd(146.39, 83.73, -3.56, 1.2)
	pt3dadd(147.86, 85.55, -3.56, 1.2)
	pt3dadd(149.34, 86.05, -4.24, 1.2)
	pt3dadd(151, 86.55, -4.24, 1.2)
  }
  dend[211] {pt3dclear()
	pt3dadd(151, 86.55, -4.24, 1.2)
	pt3dadd(151.18, 84.23, -4.64, 0.6)
	pt3dadd(151.18, 82.56, -4.64, 0.6)
	pt3dadd(151, 80.9, -4.64, 0.6)
	pt3dadd(150.26, 79.08, -3.64, 0.6)
	pt3dadd(148.6, 77.91, -3.44, 0.6)
	pt3dadd(146.2, 76.92, -3.56, 0.3)
  }
  dend[212] {pt3dclear()
	pt3dadd(151, 86.55, -4.24, 1.2)
	pt3dadd(152.66, 87.71, -4.72, 1.2)
  }
  dend[213] {pt3dclear()
	pt3dadd(152.66, 87.71, -4.72, 1.2)
	pt3dadd(154.5, 86.05, -4.68, 0.6)
	pt3dadd(156.35, 84.89, -4.68, 0.6)
	pt3dadd(157.27, 84.72, -4.68, 0.6)
	pt3dadd(158.19, 86.05, -4.68, 0.6)
	pt3dadd(159.49, 86.39, -4.68, 0.3)
	pt3dadd(160.96, 86.22, -4.72, 0.3)
  }
  dend[214] {pt3dclear()
	pt3dadd(152.66, 87.71, -4.72, 1.2)
	pt3dadd(154.13, 89.04, -6.04, 1.2)
  }
  dend[215] {pt3dclear()
	pt3dadd(154.13, 89.04, -6.04, 1.2)
	pt3dadd(156.35, 89.71, -6.64, 1.2)
	pt3dadd(158.19, 90.37, -6.64, 1.2)
	pt3dadd(159.49, 90.7, -6.48, 1.2)
  }
  dend[216] {pt3dclear()
	pt3dadd(159.49, 90.7, -6.48, 1.2)
	pt3dadd(161.33, 90.21, -5.84, 1.2)
	pt3dadd(162.81, 89.54, -5.84, 1.2)
	pt3dadd(164.28, 89.04, -5.84, 1.2)
  }
  dend[217] {pt3dclear()
	pt3dadd(164.28, 89.04, -5.84, 1.2)
	pt3dadd(164.65, 87.71, -4.96, 1.2)
	pt3dadd(165.21, 86.39, -4.96, 1.2)
	pt3dadd(167.23, 85.22, -4.96, 1.2)
	pt3dadd(170, 84.06, -6.04, 1.2)
	pt3dadd(172.4, 83.23, -5.52, 1.2)
  }
  dend[218] {pt3dclear()
	pt3dadd(172.4, 83.23, -5.52, 1.2)
	pt3dadd(173.32, 81.73, -5.88, 1.2)
	pt3dadd(173.88, 79.91, -5.88, 1.2)
	pt3dadd(173.51, 78.08, -5.88, 1.2)
	pt3dadd(172.59, 74.42, -4.84, 1.2)
	pt3dadd(172.03, 72.1, -4.2, 1.2)
	pt3dadd(171.66, 70.11, -4.2, 0.6)
	pt3dadd(170.92, 68.28, -4.2, 0.6)
  }
  dend[219] {pt3dclear()
	pt3dadd(172.4, 83.23, -5.52, 1.2)
	pt3dadd(174.43, 84.39, -4.64, 1.2)
	pt3dadd(176.28, 85.89, -5.96, 1.2)
	pt3dadd(177.75, 87.38, -7.6, 1.2)
	pt3dadd(178.67, 89.21, -7.92, 0.6)
	pt3dadd(179.6, 90.04, -7.92, 0.6)
	pt3dadd(181.44, 91.2, -7.92, 0.6)
  }
  dend[220] {pt3dclear()
	pt3dadd(164.28, 89.04, -5.84, 1.2)
	pt3dadd(166.13, 90.37, -6.04, 0.6)
	pt3dadd(168.71, 91.2, -6.04, 0.6)
	pt3dadd(170.74, 92.53, -5.4, 1.2)
	pt3dadd(172.22, 93.2, -5.4, 1.2)
	pt3dadd(174.61, 93.86, -7.8, 0.6)
	pt3dadd(177.2, 94.19, -6.92, 0.3)
  }
  dend[221] {pt3dclear()
	pt3dadd(159.49, 90.7, -6.48, 1.2)
	pt3dadd(159.85, 93.03, -5.2, 0.6)
	pt3dadd(160.04, 95.19, -5.2, 0.6)
	pt3dadd(160.41, 96.85, -5.2, 0.6)
	pt3dadd(160.78, 98.35, -5.2, 0.6)
	pt3dadd(162.25, 99.51, -5.2, 0.6)
	pt3dadd(164.1, 100.84, -5.44, 0.6)
	pt3dadd(166.68, 102.33, -7.12, 0.6)
  }
  dend[222] {pt3dclear()
	pt3dadd(154.13, 89.04, -6.04, 1.2)
	pt3dadd(155.24, 91.53, -5.44, 0.6)
	pt3dadd(156.35, 93.03, -4.92, 0.6)
	pt3dadd(156.9, 95.19, -4.92, 0.6)
	pt3dadd(157.09, 98.51, -6.56, 0.6)
	pt3dadd(157.64, 100.67, -5.64, 0.6)
	pt3dadd(158.19, 102.33, -5.8, 0.6)
  }
  dend[223] {pt3dclear()
	pt3dadd(109.81, 60.14, 1.04, 3)
	pt3dadd(110.55, 62.97, 0.4, 3)
	pt3dadd(111.47, 65.63, -0.24, 2.7)
  }
  dend[224] {pt3dclear()
	pt3dadd(111.47, 65.63, -0.24, 2.7)
	pt3dadd(113.15, 67.18, -0.4, 2.1)
	pt3dadd(114.62, 68.01, -0.84, 1.8)
	pt3dadd(116.1, 69, -1.12, 2.1)
	pt3dadd(116.65, 69.84, -0.72, 2.1)
  }
  dend[225] {pt3dclear()
	pt3dadd(116.65, 69.84, -0.72, 2.1)
	pt3dadd(117.42, 68.44, -0.64, 0.6)
	pt3dadd(117.6, 66.95, -0.64, 0.6)
	pt3dadd(117.6, 64.62, -0.64, 0.6)
	pt3dadd(116.87, 63.13, -1.24, 0.6)
	pt3dadd(116.13, 61.8, -1.24, 0.6)
	pt3dadd(115.39, 60.31, -1.24, 0.6)
	pt3dadd(114.28, 58.31, -0.84, 0.6)
	pt3dadd(112.99, 57.15, -0.84, 0.6)
	pt3dadd(111.33, 55.65, -0.84, 0.6)
	pt3dadd(109.3, 54.66, -0.84, 0.6)
	pt3dadd(107.82, 53.49, -1.08, 0.6)
	pt3dadd(105.8, 52.5, -1.08, 0.6)
  }
  dend[226] {pt3dclear()
	pt3dadd(105.8, 52.5, -1.08, 0.6)
	pt3dadd(103.95, 52.5, -1.16, 0.3)
	pt3dadd(102.47, 51.83, -1.16, 0.3)
	pt3dadd(101.74, 51.17, -1.16, 0.3)
	pt3dadd(101.18, 50.5, -1.16, 0.3)
  }
  dend[227] {pt3dclear()
	pt3dadd(105.8, 52.5, -1.08, 0.6)
	pt3dadd(104.69, 50.34, -1.96, 0.6)
	pt3dadd(103.77, 49.01, -1.96, 0.6)
	pt3dadd(104.13, 46.52, -2.04, 0.6)
  }
  dend[228] {pt3dclear()
	pt3dadd(116.65, 69.84, -0.72, 2.1)
	pt3dadd(118.31, 71.66, -0.4, 2.1)
	pt3dadd(120.71, 73.99, 0.36, 2.1)
  }
  dend[229] {pt3dclear()
	pt3dadd(120.71, 73.99, 0.36, 2.1)
	pt3dadd(122.61, 74.68, 0.4, 1.2)
	pt3dadd(124.27, 76.68, -0.2, 1.2)
	pt3dadd(125.56, 78.17, -0.56, 1.2)
	pt3dadd(126.48, 79.34, -1.44, 1.2)
	pt3dadd(129.25, 81, -2.24, 1.2)
  }
  dend[230] {pt3dclear()
	pt3dadd(129.25, 81, -2.24, 1.2)
	pt3dadd(131.46, 82.74, -2.28, 1.2)
	pt3dadd(134.22, 84.73, -2.28, 1.2)
  }
  dend[231] {pt3dclear()
	pt3dadd(134.22, 84.73, -2.28, 1.2)
	pt3dadd(134.39, 82.4, -3, 0.6)
	pt3dadd(133.29, 80.07, -2.16, 0.6)
	pt3dadd(132.18, 78.25, -2.08, 0.6)
	pt3dadd(130.52, 76.42, -2.28, 0.6)
	pt3dadd(129.04, 75.26, -1.76, 0.6)
	pt3dadd(128.12, 73.93, -1.76, 0.6)
	pt3dadd(127.57, 71.93, -0.4, 0.6)
	pt3dadd(125.91, 70.94, 0.04, 0.6)
	pt3dadd(124.25, 70.27, 0.84, 0.6)
	pt3dadd(121.85, 69.61, 0.84, 0.6)
	pt3dadd(120.19, 69.28, 0.84, 0.6)
	pt3dadd(119.08, 68.11, 0.84, 0.6)
	pt3dadd(117.42, 66.78, 0.84, 0.3)
	pt3dadd(115.57, 65.79, -0.04, 0.3)
	pt3dadd(114.47, 64.29, -0.04, 0.3)
	pt3dadd(113.54, 62.3, -0.04, 0.3)
  }
  dend[232] {pt3dclear()
	pt3dadd(134.22, 84.73, -2.28, 1.2)
	pt3dadd(136.62, 86.89, -3.32, 1.2)
  }
  dend[233] {pt3dclear()
	pt3dadd(136.62, 86.89, -3.32, 1.2)
	pt3dadd(138.27, 86.53, -4.6, 1.2)
	pt3dadd(139.37, 86.86, -4.6, 1.2)
  }
  dend[234] {pt3dclear()
	pt3dadd(139.37, 86.86, -4.6, 1.2)
	pt3dadd(140.3, 85.7, -4.72, 0.6)
	pt3dadd(141.04, 84.54, -4.68, 0.6)
	pt3dadd(141.4, 82.54, -3.48, 0.6)
	pt3dadd(140.67, 81.38, -2.32, 0.6)
	pt3dadd(139.01, 81.55, -3.12, 0.6)
	pt3dadd(136.42, 82.54, -2.76, 0.3)
  }
}
proc shape3d_7() {
  dend[234] {  }
  dend[235] {pt3dclear()
	pt3dadd(139.37, 86.86, -4.6, 1.2)
	pt3dadd(141.4, 87.86, -4.6, 0.6)
  }
  dend[236] {pt3dclear()
	pt3dadd(141.4, 87.86, -4.6, 0.6)
	pt3dadd(142.88, 87.53, -4.8, 0.6)
	pt3dadd(144.17, 87.36, -4.8, 0.6)
	pt3dadd(146.02, 87.86, -4.8, 0.6)
	pt3dadd(148.23, 89.19, -4.8, 0.6)
	pt3dadd(150.08, 90.35, -4.8, 0.6)
	pt3dadd(151.18, 91.35, -4.8, 0.6)
	pt3dadd(153.03, 93.01, -4.8, 0.6)
  }
  dend[237] {pt3dclear()
	pt3dadd(141.4, 87.86, -4.6, 0.6)
	pt3dadd(141.77, 89.19, -4.68, 0.6)
  }
  dend[238] {pt3dclear()
	pt3dadd(141.77, 89.19, -4.68, 0.6)
	pt3dadd(143.06, 91.01, -5.36, 0.6)
	pt3dadd(144.91, 92.84, -5.36, 0.6)
	pt3dadd(146.39, 94, -5.36, 0.6)
	pt3dadd(147.86, 95.17, -5.92, 0.6)
	pt3dadd(149.89, 96, -5.92, 0.6)
	pt3dadd(151.74, 95.66, -5.92, 0.6)
  }
  dend[239] {pt3dclear()
	pt3dadd(141.77, 89.19, -4.68, 0.6)
	pt3dadd(140.3, 90.35, -4.68, 0.6)
  }
  dend[240] {pt3dclear()
	pt3dadd(136.62, 86.89, -3.32, 1.2)
	pt3dadd(138.47, 89.05, -3.96, 0.6)
	pt3dadd(140.31, 91.05, -3.96, 0.6)
	pt3dadd(141.6, 93.54, -5.44, 0.6)
	pt3dadd(144.19, 95.86, -5.36, 0.6)
	pt3dadd(146.4, 98.36, -5.56, 0.6)
	pt3dadd(148.43, 101.18, -6.2, 0.6)
  }
  dend[241] {pt3dclear()
	pt3dadd(148.43, 101.18, -6.2, 0.6)
	pt3dadd(150.44, 101.81, -5.76, 0.6)
	pt3dadd(151.55, 102.81, -5.76, 0.6)
  }
  dend[242] {pt3dclear()
	pt3dadd(151.55, 102.81, -5.76, 0.6)
	pt3dadd(152.84, 102.48, -5.76, 0.6)
	pt3dadd(153.95, 103.31, -5.76, 0.6)
	pt3dadd(155.43, 104.14, -5.76, 0.6)
  }
  dend[243] {pt3dclear()
	pt3dadd(151.55, 102.81, -5.76, 0.6)
	pt3dadd(152.66, 104.47, -5.76, 0.6)
	pt3dadd(153.03, 105.96, -5.76, 0.6)
	pt3dadd(154.13, 107.29, -5.76, 0.6)
	pt3dadd(155.8, 108.95, -5.76, 0.6)
  }
  dend[244] {pt3dclear()
	pt3dadd(148.43, 101.18, -6.2, 0.6)
	pt3dadd(148.43, 102.67, -8.64, 0.6)
	pt3dadd(148.06, 104.34, -8.64, 0.6)
  }
  dend[245] {pt3dclear()
	pt3dadd(148.06, 104.34, -8.64, 0.6)
	pt3dadd(149.91, 105.33, -7.52, 0.6)
	pt3dadd(151.2, 106.66, -7.52, 0.6)
	pt3dadd(152.12, 109.65, -7.56, 0.6)
	pt3dadd(152.49, 111.31, -7.56, 0.6)
	pt3dadd(152.67, 113.8, -9.96, 0.6)
	pt3dadd(152.86, 117.13, -11.12, 0.6)
	pt3dadd(154.15, 122.11, -10.8, 0.6)
	pt3dadd(155.26, 125.6, -10.8, 0.6)
  }
  dend[246] {pt3dclear()
	pt3dadd(155.26, 125.6, -10.8, 0.6)
	pt3dadd(156.53, 126.4, -11.12, 0.6)
	pt3dadd(158.01, 127.72, -11.12, 0.6)
	pt3dadd(158.93, 129.05, -11.12, 0.6)
	pt3dadd(159.85, 130.71, -11.12, 0.6)
	pt3dadd(161.33, 131.71, -11.12, 0.6)
	pt3dadd(163.18, 132.21, -11.12, 0.6)
	pt3dadd(164.47, 132.87, -11.36, 0.6)
  }
  dend[247] {pt3dclear()
	pt3dadd(155.26, 125.6, -10.8, 0.6)
	pt3dadd(154.69, 127.06, -10.68, 0.6)
	pt3dadd(154.32, 128.06, -10.68, 0.6)
	pt3dadd(154.5, 129.39, -10.68, 0.6)
	pt3dadd(155.43, 130.55, -10.68, 0.6)
	pt3dadd(156.53, 131.71, -10.68, 0.6)
	pt3dadd(157.46, 133.54, -10.68, 0.6)
  }
  dend[248] {pt3dclear()
	pt3dadd(148.06, 104.34, -8.64, 0.6)
	pt3dadd(147.14, 105.83, -8.72, 0.6)
	pt3dadd(147.32, 107.49, -8.72, 0.6)
	pt3dadd(147.88, 109.32, -8.72, 0.6)
	pt3dadd(147.88, 111.31, -8.72, 0.6)
	pt3dadd(146.59, 111.81, -9.88, 0.6)
	pt3dadd(144.56, 112.48, -9.88, 0.6)
	pt3dadd(142.9, 113.31, -9.88, 0.6)
	pt3dadd(140.87, 115.13, -9.88, 0.6)
  }
  dend[249] {pt3dclear()
	pt3dadd(129.25, 81, -2.24, 1.2)
	pt3dadd(130.17, 83.99, -3.48, 0.6)
	pt3dadd(131.65, 86.81, -3.6, 0.6)
  }
  dend[250] {pt3dclear()
	pt3dadd(131.65, 86.81, -3.6, 0.6)
	pt3dadd(133.3, 88.72, -3.96, 0.6)
	pt3dadd(134.59, 90.22, -4.72, 0.6)
	pt3dadd(135.7, 92.87, -4.88, 0.6)
  }
  dend[251] {pt3dclear()
	pt3dadd(135.7, 92.87, -4.88, 0.6)
	pt3dadd(137.55, 94.37, -6.64, 0.6)
	pt3dadd(139.02, 96.86, -6.64, 0.6)
	pt3dadd(140.5, 99.52, -6.64, 0.6)
	pt3dadd(142.71, 102.67, -6.64, 0.6)
	pt3dadd(143.08, 105.5, -6.64, 0.6)
	pt3dadd(143.08, 106.83, -6.64, 0.6)
	pt3dadd(142.71, 108.65, -6.64, 0.6)
	pt3dadd(142.34, 110.15, -6.64, 0.6)
  }
  dend[252] {pt3dclear()
	pt3dadd(135.7, 92.87, -4.88, 0.6)
	pt3dadd(134.96, 94.2, -7.28, 0.6)
	pt3dadd(135.33, 95.86, -7.28, 0.6)
	pt3dadd(135.7, 97.86, -7.28, 0.6)
	pt3dadd(136.44, 99.68, -7.28, 0.6)
  }
  dend[253] {pt3dclear()
	pt3dadd(131.65, 86.81, -3.6, 0.6)
	pt3dadd(130.17, 87.31, -4.84, 0.6)
	pt3dadd(129.25, 88.31, -4.84, 0.6)
	pt3dadd(129.8, 90.13, -5.04, 0.6)
	pt3dadd(130.73, 91.96, -5.28, 0.6)
  }
  dend[254] {pt3dclear()
	pt3dadd(120.71, 73.99, 0.36, 2.1)
	pt3dadd(120.71, 76.48, -0.84, 1.2)
	pt3dadd(121.45, 78.81, -2.96, 1.2)
	pt3dadd(122.92, 81.63, -3.36, 1.2)
	pt3dadd(124.03, 84.29, -3.8, 1.2)
	pt3dadd(125.51, 87.94, -4.24, 1.2)
	pt3dadd(125.69, 90.43, -5.68, 1.2)
	pt3dadd(126.25, 93.26, -5.6, 1.2)
	pt3dadd(126.98, 95.75, -6.76, 1.2)
  }
  dend[255] {pt3dclear()
	pt3dadd(126.98, 95.75, -6.76, 1.2)
	pt3dadd(128.83, 97.91, -7.48, 1.2)
	pt3dadd(130.49, 99.9, -7.48, 1.2)
	pt3dadd(132.33, 101.9, -7.48, 1.2)
	pt3dadd(133.44, 103.39, -7.48, 1.2)
  }
  dend[256] {pt3dclear()
	pt3dadd(133.44, 103.39, -7.48, 1.2)
	pt3dadd(135.96, 103.42, -7.56, 0.6)
	pt3dadd(138.17, 103.42, -7.56, 0.6)
	pt3dadd(140.2, 103.59, -7.56, 0.6)
	pt3dadd(142.6, 104.08, -7.56, 0.6)
  }
  dend[257] {pt3dclear()
	pt3dadd(133.44, 103.39, -7.48, 1.2)
	pt3dadd(133.99, 105.72, -7.56, 1.2)
	pt3dadd(133.99, 106.21, -7.8, 1.2)
  }
  dend[258] {pt3dclear()
	pt3dadd(133.99, 106.21, -7.8, 1.2)
	pt3dadd(134.92, 108.54, -7.64, 1.2)
	pt3dadd(136.02, 110.53, -7.64, 1.2)
	pt3dadd(137.87, 112.69, -7.64, 1.2)
	pt3dadd(139.34, 115.35, -7.64, 1.2)
	pt3dadd(140.27, 117.51, -7.64, 1.2)
  }
  dend[259] {pt3dclear()
	pt3dadd(140.27, 117.51, -7.64, 1.2)
	pt3dadd(142.8, 118.32, -7.84, 1.2)
	pt3dadd(145.2, 118.65, -7.84, 1.2)
  }
  dend[260] {pt3dclear()
	pt3dadd(145.2, 118.65, -7.84, 1.2)
	pt3dadd(146.67, 117.49, -7.84, 1.2)
	pt3dadd(148.52, 117.16, -7.84, 1.2)
	pt3dadd(149.99, 117.16, -7.84, 1.2)
	pt3dadd(152.21, 117.99, -7.84, 1.2)
	pt3dadd(154.24, 119.15, -7.84, 1.2)
	pt3dadd(155.53, 120.31, -7.84, 1.2)
	pt3dadd(157.56, 120.98, -7.84, 1.2)
	pt3dadd(159.22, 121.31, -7.84, 1.2)
  }
  dend[261] {pt3dclear()
	pt3dadd(145.2, 118.65, -7.84, 1.2)
	pt3dadd(146.67, 120.65, -7.84, 1.2)
	pt3dadd(148.15, 122.14, -7.84, 1.2)
	pt3dadd(149.81, 123.14, -7.84, 1.2)
	pt3dadd(151.65, 125.46, -7.84, 1.2)
	pt3dadd(152.76, 127.46, -7.84, 1.2)
	pt3dadd(154.05, 128.95, -7.84, 1.2)
  }
  dend[262] {pt3dclear()
	pt3dadd(140.27, 117.51, -7.64, 1.2)
	pt3dadd(140.62, 120.28, -7.84, 1.2)
	pt3dadd(140.95, 122.97, -7.84, 1.2)
  }
  dend[263] {pt3dclear()
	pt3dadd(140.95, 122.97, -7.84, 1.2)
	pt3dadd(141.51, 124.13, -8, 1.2)
  }
  dend[264] {pt3dclear()
	pt3dadd(141.51, 124.13, -8, 1.2)
	pt3dadd(142.8, 124.3, -8.48, 1.2)
  }
  dend[265] {pt3dclear()
	pt3dadd(142.8, 124.3, -8.48, 1.2)
	pt3dadd(144.83, 124.13, -9.12, 0.6)
	pt3dadd(146.49, 124.8, -9.12, 0.6)
	pt3dadd(148.15, 125.96, -9.12, 0.6)
	pt3dadd(148.89, 127.46, -11.32, 0.6)
	pt3dadd(148.89, 128.79, -11.32, 0.6)
	pt3dadd(149.25, 130.78, -11.32, 0.6)
	pt3dadd(150.73, 131.78, -11.32, 0.6)
	pt3dadd(152.21, 132.44, -11.32, 0.6)
  }
  dend[266] {pt3dclear()
	pt3dadd(152.21, 132.44, -11.32, 0.6)
	pt3dadd(153.68, 133.27, -11.32, 0.6)
	pt3dadd(154.24, 133.77, -11.32, 0.6)
	pt3dadd(154.79, 134.77, -11.32, 0.6)
	pt3dadd(155.34, 135.76, -11.32, 0.6)
  }
  dend[267] {pt3dclear()
	pt3dadd(152.21, 132.44, -11.32, 0.6)
	pt3dadd(152.02, 134.27, -11.32, 0.6)
	pt3dadd(151.84, 135.26, -11.32, 0.6)
  }
  dend[268] {pt3dclear()
	pt3dadd(151.84, 135.26, -11.32, 0.6)
	pt3dadd(152.58, 136.59, -11.32, 0.6)
	pt3dadd(153.31, 137.42, -11.32, 0.6)
	pt3dadd(154.42, 138.59, -11.32, 0.6)
  }
  dend[269] {pt3dclear()
	pt3dadd(151.84, 135.26, -11.32, 0.6)
	pt3dadd(150.36, 135.76, -11, 0.6)
	pt3dadd(149.62, 135.93, -11, 0.6)
	pt3dadd(148.52, 135.1, -11, 0.6)
	pt3dadd(147.41, 134.1, -11, 0.6)
	pt3dadd(147.04, 133.27, -11, 0.6)
	pt3dadd(146.3, 132.11, -11, 0.6)
	pt3dadd(146.3, 130.78, -11, 0.6)
  }
  dend[270] {pt3dclear()
	pt3dadd(142.8, 124.3, -8.48, 1.2)
	pt3dadd(142.8, 127.29, -8.6, 1.2)
	pt3dadd(143.72, 131.61, -8.76, 1.2)
	pt3dadd(144.09, 133.6, -8.76, 1.2)
	pt3dadd(144.46, 135.93, -8.76, 1.2)
	pt3dadd(145.38, 138.25, -8.76, 1.2)
  }
  dend[271] {pt3dclear()
	pt3dadd(145.38, 138.25, -8.76, 1.2)
	pt3dadd(147.78, 139.58, -8.24, 1.2)
	pt3dadd(148.7, 140.58, -8.24, 1.2)
  }
  dend[272] {pt3dclear()
	pt3dadd(148.7, 140.58, -8.24, 1.2)
	pt3dadd(150.92, 141.91, -7.52, 1.2)
	pt3dadd(152.21, 143.24, -7.52, 1.2)
	pt3dadd(153.13, 144.9, -7.52, 1.2)
	pt3dadd(153.87, 146.06, -6.88, 1.2)
  }
  dend[273] {pt3dclear()
	pt3dadd(153.87, 146.06, -6.88, 1.2)
  }
}
proc shape3d_8() {
  dend[273] {	pt3dadd(156.27, 146.56, -7.48, 1.2)
	pt3dadd(157.74, 147.72, -7.48, 1.2)
	pt3dadd(158.85, 149.22, -7.48, 1.2)
	pt3dadd(159.96, 150.71, -7.48, 1.2)
	pt3dadd(161.43, 152.71, -7.48, 1.2)
  }
  dend[274] {pt3dclear()
	pt3dadd(153.87, 146.06, -6.88, 1.2)
	pt3dadd(153.5, 147.89, -6.88, 1.2)
	pt3dadd(153.87, 149.55, -6.88, 1.2)
	pt3dadd(154.42, 151.21, -6.88, 1.2)
	pt3dadd(155.34, 152.87, -6.88, 1.2)
	pt3dadd(156.45, 154.2, -6.88, 1.2)
	pt3dadd(157.93, 155.2, -6.88, 1.2)
	pt3dadd(159.4, 156.69, -6.88, 1.2)
  }
  dend[275] {pt3dclear()
	pt3dadd(148.7, 140.58, -8.24, 1.2)
	pt3dadd(149.25, 142.74, -7.28, 1.2)
	pt3dadd(149.62, 144.57, -7.28, 1.2)
	pt3dadd(149.99, 146.39, -7.28, 1.2)
	pt3dadd(149.62, 148.05, -7.28, 1.2)
  }
  dend[276] {pt3dclear()
	pt3dadd(149.62, 148.05, -7.28, 1.2)
	pt3dadd(150.55, 150.05, -7.04, 1.2)
	pt3dadd(151.28, 152.21, -7.04, 1.2)
	pt3dadd(151.1, 153.87, -7.04, 1.2)
	pt3dadd(150.73, 155.36, -7.04, 1.2)
  }
  dend[277] {pt3dclear()
	pt3dadd(149.62, 148.05, -7.28, 1.2)
	pt3dadd(148.33, 149.55, -7.32, 1.2)
	pt3dadd(147.59, 150.38, -7.32, 1.2)
	pt3dadd(146.86, 152.54, -7.32, 1.2)
	pt3dadd(145.01, 153.7, -6.08, 0.6)
	pt3dadd(142.98, 154.7, -6.08, 0.6)
  }
  dend[278] {pt3dclear()
	pt3dadd(145.38, 138.25, -8.76, 1.2)
	pt3dadd(145.38, 140.25, -9.2, 1.2)
	pt3dadd(145.38, 142.07, -9.2, 1.2)
	pt3dadd(145.56, 144.07, -9.2, 1.2)
	pt3dadd(143.9, 145.73, -9.2, 1.2)
	pt3dadd(142.06, 147.22, -9.28, 1.2)
	pt3dadd(139.66, 149.72, -9.44, 1.2)
  }
  dend[279] {pt3dclear()
	pt3dadd(139.66, 149.72, -9.44, 1.2)
	pt3dadd(140.4, 151.54, -10.04, 1.2)
	pt3dadd(140.95, 153.2, -10.04, 1.2)
	pt3dadd(142.24, 154.53, -10.04, 1.2)
	pt3dadd(143.53, 155.53, -10.04, 1.2)
	pt3dadd(145.01, 156.86, -10.04, 1.2)
  }
  dend[280] {pt3dclear()
	pt3dadd(139.66, 149.72, -9.44, 1.2)
	pt3dadd(138.55, 150.55, -10.4, 0.6)
	pt3dadd(137.45, 152.37, -10.4, 0.6)
	pt3dadd(135.79, 152.87, -10.4, 0.6)
	pt3dadd(134.86, 153.2, -10.4, 0.6)
	pt3dadd(133.94, 155.36, -10.4, 0.6)
  }
  dend[281] {pt3dclear()
	pt3dadd(141.51, 124.13, -8, 1.2)
	pt3dadd(140.58, 125.3, -8, 0.6)
	pt3dadd(140.21, 126.46, -8, 0.6)
	pt3dadd(140.21, 128.29, -8, 0.6)
	pt3dadd(140.4, 131.61, -8, 0.6)
	pt3dadd(140.58, 133.93, -8.44, 0.6)
	pt3dadd(140.58, 136.26, -8.44, 0.6)
	pt3dadd(140.58, 138.25, -8.44, 1.2)
	pt3dadd(140.95, 139.92, -8.44, 1.2)
	pt3dadd(141.69, 141.58, -8.44, 1.2)
	pt3dadd(142.61, 142.91, -8.44, 0.6)
  }
  dend[282] {pt3dclear()
	pt3dadd(140.95, 122.97, -7.84, 1.2)
	pt3dadd(138.92, 122.64, -8.12, 0.6)
	pt3dadd(137.08, 122.64, -8.12, 0.6)
	pt3dadd(135.23, 123.47, -8.12, 0.6)
  }
  dend[283] {pt3dclear()
	pt3dadd(135.23, 123.47, -8.12, 0.6)
	pt3dadd(134.86, 124.96, -7.92, 0.6)
	pt3dadd(134.86, 126.46, -7.92, 0.6)
  }
  dend[284] {pt3dclear()
	pt3dadd(134.86, 126.46, -7.92, 0.6)
	pt3dadd(135.97, 128.95, -6.6, 0.6)
	pt3dadd(137.08, 131.11, -6.6, 0.6)
	pt3dadd(138.18, 133.27, -6.6, 0.6)
	pt3dadd(138.37, 134.93, -6.6, 0.6)
	pt3dadd(137.45, 136.26, -7.88, 0.6)
	pt3dadd(135.97, 136.26, -8.08, 0.6)
	pt3dadd(134.49, 135.76, -9, 0.6)
	pt3dadd(133.57, 135.1, -9, 0.6)
	pt3dadd(131.17, 133.27, -8.72, 0.3)
  }
  dend[285] {pt3dclear()
	pt3dadd(134.86, 126.46, -7.92, 0.6)
	pt3dadd(132.65, 127.79, -7.88, 0.6)
	pt3dadd(130.99, 128.95, -7.88, 0.6)
	pt3dadd(130.25, 129.95, -7.88, 0.6)
  }
  dend[286] {pt3dclear()
	pt3dadd(130.25, 129.95, -7.88, 0.6)
	pt3dadd(129.14, 131.11, -9, 0.6)
	pt3dadd(128.41, 132.11, -9, 0.6)
	pt3dadd(128.04, 133.1, -10.16, 0.6)
	pt3dadd(128.04, 134.1, -10.16, 0.6)
  }
  dend[287] {pt3dclear()
	pt3dadd(128.04, 134.1, -10.16, 0.6)
	pt3dadd(127.85, 136.26, -9.2, 0.6)
	pt3dadd(128.04, 138.42, -9.2, 0.6)
  }
  dend[288] {pt3dclear()
	pt3dadd(128.04, 134.1, -10.16, 0.6)
	pt3dadd(126.19, 134.43, -10.6, 0.6)
	pt3dadd(124.72, 133.93, -10.6, 0.6)
	pt3dadd(123.06, 133.44, -11.72, 0.6)
	pt3dadd(121.76, 132.77, -10.76, 0.3)
	pt3dadd(121.03, 131.11, -10.76, 0.3)
  }
  dend[289] {pt3dclear()
	pt3dadd(130.25, 129.95, -7.88, 0.6)
	pt3dadd(128.41, 128.62, -8.52, 0.3)
	pt3dadd(127.48, 127.29, -8.52, 0.3)
	pt3dadd(127.3, 125.63, -8.52, 0.3)
	pt3dadd(126.75, 123.64, -8.52, 0.3)
  }
  dend[290] {pt3dclear()
	pt3dadd(135.23, 123.47, -8.12, 0.6)
	pt3dadd(133.57, 122.81, -7.04, 0.3)
	pt3dadd(132.46, 122.64, -7.04, 0.3)
	pt3dadd(131.36, 123.14, -7.04, 0.3)
	pt3dadd(130.62, 124.13, -8.32, 0.3)
	pt3dadd(130.25, 124.8, -8.32, 0.3)
	pt3dadd(129.51, 125.8, -8.32, 0.3)
  }
  dend[291] {pt3dclear()
	pt3dadd(133.99, 106.21, -7.8, 1.2)
	pt3dadd(132.52, 106.88, -7.8, 0.6)
	pt3dadd(132.15, 108.04, -7.8, 0.6)
	pt3dadd(132.7, 109.54, -7.8, 0.6)
	pt3dadd(133.44, 111.53, -7.8, 0.6)
	pt3dadd(134.73, 113.86, -7.8, 0.6)
	pt3dadd(135.47, 115.68, -7.8, 0.6)
	pt3dadd(136.39, 118.01, -7.8, 0.6)
  }
  dend[292] {pt3dclear()
	pt3dadd(126.98, 95.75, -6.76, 1.2)
	pt3dadd(126.25, 96.91, -6.84, 0.6)
	pt3dadd(125.88, 98.57, -6.84, 0.6)
	pt3dadd(125.69, 100.23, -6.92, 0.6)
	pt3dadd(126.06, 102.06, -6.92, 0.6)
  }
  dend[293] {pt3dclear()
	pt3dadd(126.06, 102.06, -6.92, 0.6)
	pt3dadd(127.17, 103.72, -7.16, 0.6)
	pt3dadd(128.09, 105.38, -7.16, 0.6)
	pt3dadd(129.57, 108.04, -7.88, 0.6)
	pt3dadd(130.12, 109.87, -9.08, 0.6)
	pt3dadd(130.3, 112.03, -9.08, 0.6)
  }
  dend[294] {pt3dclear()
	pt3dadd(130.3, 112.03, -9.08, 0.6)
	pt3dadd(131.6, 114.19, -9.08, 0.6)
	pt3dadd(132.33, 115.85, -9.08, 0.6)
	pt3dadd(133.44, 117.51, -9.08, 0.6)
	pt3dadd(133.81, 118.84, -9.08, 0.6)
	pt3dadd(132.7, 119.84, -9.08, 0.6)
  }
  dend[295] {pt3dclear()
	pt3dadd(130.3, 112.03, -9.08, 0.6)
	pt3dadd(129.57, 113.52, -9.08, 0.6)
  }
  dend[296] {pt3dclear()
	pt3dadd(129.57, 113.52, -9.08, 0.6)
	pt3dadd(130.12, 115.02, -8.76, 0.6)
	pt3dadd(130.49, 116.51, -8.76, 0.6)
	pt3dadd(130.86, 117.84, -8.76, 0.6)
	pt3dadd(129.94, 118.67, -8.76, 0.6)
  }
  dend[297] {pt3dclear()
	pt3dadd(129.57, 113.52, -9.08, 0.6)
	pt3dadd(128.46, 114.19, -9.52, 0.6)
	pt3dadd(126.98, 114.85, -9.52, 0.6)
	pt3dadd(126.25, 115.52, -9.52, 0.6)
	pt3dadd(126.25, 117.01, -9.52, 0.6)
	pt3dadd(126.25, 118.51, -9.52, 0.6)
	pt3dadd(125.51, 119.17, -9.52, 0.6)
	pt3dadd(124.03, 119.67, -9.52, 0.6)
  }
  dend[298] {pt3dclear()
	pt3dadd(126.06, 102.06, -6.92, 0.6)
	pt3dadd(124.4, 102.56, -7.8, 0.6)
	pt3dadd(122.19, 103.22, -7.8, 0.6)
	pt3dadd(120.34, 103.06, -7.8, 0.6)
	pt3dadd(118.87, 102.56, -7.8, 0.6)
	pt3dadd(117.39, 103.06, -7.8, 0.6)
	pt3dadd(116.28, 103.72, -7.8, 0.6)
  }
  dend[299] {pt3dclear()
	pt3dadd(111.47, 65.63, -0.24, 2.7)
	pt3dadd(111.1, 68.28, 0.84, 2.1)
	pt3dadd(111.28, 70.61, 0.68, 1.8)
	pt3dadd(112.02, 72.6, 0.72, 1.8)
	pt3dadd(112.39, 74.43, 0.72, 1.8)
	pt3dadd(112.76, 76.09, -0.08, 1.8)
	pt3dadd(113.5, 77.59, -0.08, 2.1)
  }
  dend[300] {pt3dclear()
	pt3dadd(113.5, 77.59, -0.08, 2.1)
	pt3dadd(114.97, 79.08, -0.48, 1.8)
	pt3dadd(116.45, 80.24, -0.96, 1.8)
	pt3dadd(117.93, 81.57, -0.96, 1.8)
	pt3dadd(119.03, 82.9, -0.96, 1.8)
	pt3dadd(119.77, 85.56, -0.92, 1.8)
	pt3dadd(120.51, 88.38, -1.24, 1.8)
	pt3dadd(122.17, 90.38, -1.56, 2.1)
	pt3dadd(125.31, 92.54, -1.32, 2.1)
	pt3dadd(128.26, 94.03, -0.92, 2.1)
	pt3dadd(130.66, 95.69, -1.96, 3)
  }
  dend[301] {pt3dclear()
	pt3dadd(130.66, 95.69, -1.96, 3)
	pt3dadd(132.45, 96.26, -1.48, 1.8)
	pt3dadd(133.93, 96.26, -1.88, 1.2)
	pt3dadd(135.96, 96.43, -1.88, 1.2)
	pt3dadd(137.43, 96.93, -1.52, 1.2)
	pt3dadd(138.73, 98.59, -1.84, 1.2)
	pt3dadd(140.57, 100.25, -1.32, 1.8)
  }
  dend[302] {pt3dclear()
	pt3dadd(140.57, 100.25, -1.32, 1.8)
	pt3dadd(141.95, 100.22, -2.16, 3)
  }
  dend[303] {pt3dclear()
	pt3dadd(141.95, 100.22, -2.16, 3)
	pt3dadd(143.98, 99.56, -1, 1.8)
	pt3dadd(145.27, 99.06, -1, 1.8)
  }
  dend[304] {pt3dclear()
	pt3dadd(145.27, 99.06, -1, 1.8)
	pt3dadd(144.91, 95.07, -1.24, 1.2)
	pt3dadd(144.17, 92.41, -1.24, 1.2)
	pt3dadd(142.69, 89.75, -1.12, 1.2)
	pt3dadd(141.03, 87.26, -0.56, 1.2)
	pt3dadd(139.37, 85.77, 0.12, 1.2)
	pt3dadd(137.34, 85.27, 0.72, 1.8)
	pt3dadd(136.6, 85.6, 0.72, 1.8)
	pt3dadd(134.94, 84.44, 2.08, 1.8)
	pt3dadd(133.65, 82.78, 2.68, 1.8)
	pt3dadd(132.91, 80.95, 2.68, 1.2)
	pt3dadd(131.99, 79.29, 2.68, 1.2)
	pt3dadd(131.25, 77.3, 2.68, 1.2)
	pt3dadd(130.51, 74.8, 2.52, 1.2)
	pt3dadd(130.15, 72.81, 2.52, 1.2)
  }
  dend[305] {pt3dclear()
	pt3dadd(145.27, 99.06, -1, 1.8)
	pt3dadd(147.67, 99.22, -1.04, 1.8)
  }
}
proc shape3d_9() {
  dend[305] {	pt3dadd(148.78, 99.39, -0.6, 1.8)
  }
  dend[306] {pt3dclear()
	pt3dadd(148.78, 99.39, -0.6, 1.8)
	pt3dadd(150.07, 98.06, -0.52, 1.8)
  }
  dend[307] {pt3dclear()
	pt3dadd(150.07, 98.06, -0.52, 1.8)
	pt3dadd(150.07, 96.57, -1.6, 1.2)
	pt3dadd(150.26, 94.57, -1.36, 1.2)
	pt3dadd(150.44, 92.74, -1.36, 1.2)
	pt3dadd(151.55, 91.75, -1.36, 1.2)
	pt3dadd(153.58, 90.59, -0.56, 1.2)
	pt3dadd(154.5, 89.59, -0.6, 1.2)
	pt3dadd(154.87, 87.26, 0.04, 1.2)
	pt3dadd(154.87, 85.27, 0, 0.6)
	pt3dadd(153.95, 83.44, -0.04, 0.6)
  }
  dend[308] {pt3dclear()
	pt3dadd(150.07, 98.06, -0.52, 1.8)
	pt3dadd(151.73, 98.89, -0.52, 1.8)
	pt3dadd(153.02, 98.72, -0.52, 1.8)
	pt3dadd(154.87, 98.06, -0.52, 1.8)
	pt3dadd(156.9, 97.23, -0.52, 1.8)
	pt3dadd(158.74, 96.07, -1.36, 1.8)
	pt3dadd(161.14, 94.74, -1.44, 1.8)
	pt3dadd(162.25, 96.07, -1.44, 1.8)
	pt3dadd(162.8, 97.23, -1.44, 1.8)
	pt3dadd(163.91, 98.23, -1.44, 1.2)
	pt3dadd(165.57, 99.89, -0.04, 0.6)
  }
  dend[309] {pt3dclear()
	pt3dadd(148.78, 99.39, -0.6, 1.8)
	pt3dadd(149.7, 102.05, -0.6, 0.6)
	pt3dadd(150.44, 103.71, -0.6, 0.6)
	pt3dadd(152.1, 103.87, -0.6, 0.6)
	pt3dadd(153.39, 104.21, -0.64, 0.6)
  }
  dend[310] {pt3dclear()
	pt3dadd(141.95, 100.22, -2.16, 3)
	pt3dadd(143.98, 102.38, -2.64, 0.6)
	pt3dadd(145.46, 103.87, -2.64, 0.6)
	pt3dadd(147.12, 105.54, -2.64, 0.6)
	pt3dadd(148.78, 106.53, -2.64, 0.6)
	pt3dadd(150.26, 107.53, -2.64, 1.2)
	pt3dadd(151.36, 108.53, -2.44, 1.8)
  }
  dend[311] {pt3dclear()
	pt3dadd(151.36, 108.53, -2.44, 1.8)
	pt3dadd(153.02, 108.03, -1.2, 1.8)
	pt3dadd(154.5, 106.86, -1.2, 1.8)
	pt3dadd(156.16, 104.87, -0.8, 1.8)
	pt3dadd(157.08, 104.37, -0.28, 1.8)
	pt3dadd(158.74, 104.87, 0.56, 1.8)
	pt3dadd(160.03, 105.87, 0.8, 1.8)
	pt3dadd(160.59, 107.03, 0.36, 1.8)
	pt3dadd(161.14, 109.19, 0.44, 1.2)
  }
  dend[312] {pt3dclear()
	pt3dadd(151.36, 108.53, -2.44, 1.8)
	pt3dadd(152.1, 110.69, -2.08, 1.2)
	pt3dadd(152.47, 113.01, -2.08, 1.2)
  }
  dend[313] {pt3dclear()
	pt3dadd(152.47, 113.01, -2.08, 1.2)
	pt3dadd(153.39, 114.67, -2.72, 1.2)
	pt3dadd(154.5, 116.5, -2.72, 1.2)
	pt3dadd(156.16, 117.5, -2.72, 1.2)
	pt3dadd(158.19, 119.16, -2.72, 1.2)
	pt3dadd(160.59, 120.65, -2.72, 1.2)
  }
  dend[314] {pt3dclear()
	pt3dadd(152.47, 113.01, -2.08, 1.2)
	pt3dadd(150.81, 113.68, -3.52, 1.2)
	pt3dadd(150.07, 115, -3.52, 1.2)
	pt3dadd(150.81, 116.5, -3.52, 1.2)
  }
  dend[315] {pt3dclear()
	pt3dadd(140.57, 100.25, -1.32, 1.8)
	pt3dadd(141.49, 102.24, -2.32, 1.8)
	pt3dadd(142.42, 104.57, -1.56, 1.8)
  }
  dend[316] {pt3dclear()
	pt3dadd(142.42, 104.57, -1.56, 1.8)
	pt3dadd(144.26, 105.73, -2, 1.2)
	pt3dadd(145.92, 107.06, -1.56, 1.2)
	pt3dadd(146.84, 109.22, -0.12, 1.8)
	pt3dadd(147.21, 111.05, 0.08, 1.8)
	pt3dadd(147.03, 112.54, -0.8, 1.8)
  }
  dend[317] {pt3dclear()
	pt3dadd(147.03, 112.54, -0.8, 1.8)
	pt3dadd(148.87, 114.25, -0.76, 1.8)
	pt3dadd(150.35, 116.24, -0.76, 1.8)
	pt3dadd(152.01, 118.24, -0.16, 1.8)
  }
  dend[318] {pt3dclear()
	pt3dadd(152.01, 118.24, -0.16, 1.8)
	pt3dadd(154.04, 118.07, 0.44, 1.8)
	pt3dadd(155.88, 118.9, 0.44, 1.8)
	pt3dadd(157.18, 120.9, 0.44, 1.8)
	pt3dadd(157.73, 122.89, 0.44, 1.8)
	pt3dadd(158.84, 125.55, 0.12, 1.2)
	pt3dadd(160.5, 127.21, 0.12, 1.2)
	pt3dadd(162.9, 129.87, 1.28, 1.2)
	pt3dadd(165.48, 132.69, 0.64, 1.8)
	pt3dadd(166.22, 134.35, 2.68, 1.8)
	pt3dadd(168.06, 136.84, 2.2, 1.8)
	pt3dadd(169.35, 138.67, 2.2, 1.8)
  }
  dend[319] {pt3dclear()
	pt3dadd(152.01, 118.24, -0.16, 1.8)
	pt3dadd(153.12, 121.73, -0.88, 1.8)
	pt3dadd(154.59, 124.22, -0.96, 1.8)
	pt3dadd(156.44, 127.04, -1.24, 1.8)
	pt3dadd(159.21, 129.87, -2.52, 1.8)
  }
  dend[320] {pt3dclear()
	pt3dadd(159.21, 129.87, -2.52, 1.8)
	pt3dadd(163.08, 131.03, -2.52, 1.2)
	pt3dadd(164.74, 132.52, -2.52, 1.2)
	pt3dadd(167.88, 133.69, -2.52, 1.2)
	pt3dadd(169.17, 135.02, -3.72, 1.2)
	pt3dadd(171.75, 138.34, -3.72, 1.2)
  }
  dend[321] {pt3dclear()
	pt3dadd(159.21, 129.87, -2.52, 1.8)
	pt3dadd(160.5, 132.02, -2.68, 2.1)
	pt3dadd(161.79, 134.02, -2.68, 1.8)
  }
  dend[322] {pt3dclear()
	pt3dadd(161.79, 134.02, -2.68, 1.8)
	pt3dadd(164.19, 135.85, -3.2, 1.8)
  }
  dend[323] {pt3dclear()
	pt3dadd(164.19, 135.85, -3.2, 1.8)
	pt3dadd(166.95, 135.68, -3.2, 1.8)
	pt3dadd(169.72, 136.18, -3.2, 1.8)
	pt3dadd(172.86, 136.51, -3.2, 1.8)
  }
  dend[324] {pt3dclear()
	pt3dadd(164.19, 135.85, -3.2, 1.8)
	pt3dadd(164.19, 138.5, -3.12, 1.2)
	pt3dadd(163.82, 141.33, -3.12, 1.8)
	pt3dadd(163.63, 143.65, -1.12, 1.8)
	pt3dadd(163.63, 145.15, -1.12, 1.8)
  }
  dend[325] {pt3dclear()
	pt3dadd(163.63, 145.15, -1.12, 1.8)
	pt3dadd(164.56, 146.98, -0.84, 2.1)
  }
  dend[326] {pt3dclear()
	pt3dadd(164.56, 146.98, -0.84, 2.1)
	pt3dadd(166.59, 148.64, -0.4, 1.8)
	pt3dadd(167.69, 150.3, -0.4, 1.8)
	pt3dadd(167.69, 151.96, -1.32, 2.1)
  }
  dend[327] {pt3dclear()
	pt3dadd(167.69, 151.96, -1.32, 2.1)
	pt3dadd(167.88, 154.45, -1.16, 1.8)
  }
  dend[328] {pt3dclear()
	pt3dadd(167.69, 151.96, -1.32, 2.1)
	pt3dadd(165.48, 152.96, -1.32, 1.2)
	pt3dadd(163.08, 153.29, -3.12, 0.6)
  }
  dend[329] {pt3dclear()
	pt3dadd(164.56, 146.98, -0.84, 2.1)
	pt3dadd(162.9, 148.97, -1.72, 1.2)
	pt3dadd(161.23, 150.8, -1.72, 1.8)
	pt3dadd(160.31, 152.62, -2.32, 1.8)
  }
  dend[330] {pt3dclear()
	pt3dadd(160.31, 152.62, -2.32, 1.8)
	pt3dadd(161.79, 153.95, -2.28, 0.6)
	pt3dadd(162.16, 155.28, -2.28, 0.6)
	pt3dadd(162.16, 156.44, -2.28, 0.6)
  }
  dend[331] {pt3dclear()
	pt3dadd(160.31, 152.62, -2.32, 1.8)
	pt3dadd(159.39, 153.95, -3.48, 1.8)
	pt3dadd(158.84, 155.61, -3.6, 1.2)
	pt3dadd(158.28, 157.77, -2.96, 0.6)
  }
  dend[332] {pt3dclear()
	pt3dadd(163.63, 145.15, -1.12, 1.8)
	pt3dadd(161.23, 145.31, -1.4, 1.2)
	pt3dadd(159.02, 145.81, -1.4, 1.2)
	pt3dadd(157.36, 147.14, -1.4, 1.2)
	pt3dadd(156.99, 148.97, -2.8, 0.6)
	pt3dadd(157.73, 151.13, -2.8, 0.6)
  }
  dend[333] {pt3dclear()
	pt3dadd(161.79, 134.02, -2.68, 1.8)
	pt3dadd(160.31, 136.34, -3.92, 1.8)
	pt3dadd(158.65, 138.34, -3.92, 1.8)
	pt3dadd(157.18, 140.83, -3.92, 1.8)
	pt3dadd(155.52, 141.83, -2.64, 1.8)
	pt3dadd(154.78, 143.99, -2.64, 1.8)
	pt3dadd(154.59, 145.98, -2.64, 1.8)
	pt3dadd(154.41, 148.14, -2.64, 1.8)
  }
  dend[334] {pt3dclear()
	pt3dadd(154.41, 148.14, -2.64, 1.8)
	pt3dadd(154.59, 151.29, -2.8, 1.8)
	pt3dadd(154.96, 153.62, -3.16, 1.8)
	pt3dadd(155.15, 156.61, -2.6, 1.8)
	pt3dadd(155.7, 158.6, -2.12, 1.8)
	pt3dadd(156.62, 159.6, -2.12, 1.2)
  }
  dend[335] {pt3dclear()
	pt3dadd(154.41, 148.14, -2.64, 1.8)
	pt3dadd(152.01, 148.64, -2.64, 1.2)
	pt3dadd(149.98, 148.3, -2.64, 1.2)
  }
  dend[336] {pt3dclear()
	pt3dadd(147.03, 112.54, -0.8, 1.8)
	pt3dadd(145.55, 112.87, -0.12, 1.8)
	pt3dadd(145.37, 114.37, -0.16, 1.8)
	pt3dadd(145.37, 115.91, -0.84, 1.8)
  }
  dend[337] {pt3dclear()
	pt3dadd(145.37, 115.91, -0.84, 1.8)
	pt3dadd(147.77, 119.23, -0.68, 1.2)
	pt3dadd(149.61, 121.56, -0.68, 1.2)
	pt3dadd(150.72, 123.55, -0.88, 1.2)
	pt3dadd(150.9, 125.21, -1.4, 1.2)
  }
  dend[338] {pt3dclear()
	pt3dadd(150.9, 125.21, -1.4, 1.2)
	pt3dadd(152.01, 128.2, -1, 1.8)
	pt3dadd(153.3, 131.03, -2.04, 1.8)
  }
  dend[339] {pt3dclear()
	pt3dadd(153.3, 131.03, -2.04, 1.8)
	pt3dadd(155.33, 130.86, -2.48, 1.2)
	pt3dadd(156.99, 132.36, -2.16, 0.6)
	pt3dadd(157.73, 134.02, -1.64, 0.6)
  }
  dend[340] {pt3dclear()
	pt3dadd(153.3, 131.03, -2.04, 1.8)
	pt3dadd(153.85, 133.19, -1.24, 1.2)
	pt3dadd(154.96, 135.02, -1.24, 1.2)
	pt3dadd(154.96, 136.84, -1.24, 1.2)
	pt3dadd(154.41, 138.17, -1.24, 1.2)
	pt3dadd(153.3, 139, -1.24, 1.8)
	pt3dadd(150.9, 140.66, -0.52, 1.8)
  }
  dend[341] {pt3dclear()
	pt3dadd(150.9, 125.21, -1.4, 1.2)
	pt3dadd(148.69, 125.71, -1.12, 1.2)
	pt3dadd(147.4, 126.54, -1.12, 1.2)
	pt3dadd(146.66, 127.71, -1.12, 1.2)
	pt3dadd(146.66, 129.87, -1.12, 1.2)
	pt3dadd(147.21, 132.02, -2.8, 0.6)
	pt3dadd(148.13, 133.85, -2.84, 0.6)
	pt3dadd(149.61, 136.51, -3.56, 0.6)
	pt3dadd(151.27, 138.84, -3.56, 0.6)
  }
  dend[342] {pt3dclear()
	pt3dadd(145.37, 115.91, -0.84, 1.8)
	pt3dadd(144.26, 116.91, -1.72, 1.2)
	pt3dadd(143.52, 117.91, -1.72, 1.2)
	pt3dadd(142.78, 119.57, -2.56, 1.2)
  }
  dend[343] {pt3dclear()
	pt3dadd(142.78, 119.57, -2.56, 1.2)
	pt3dadd(144.44, 121.39, -2.96, 0.6)
	pt3dadd(146.11, 123.22, -2.96, 0.6)
	pt3dadd(147.95, 124.72, -3.84, 0.6)
	pt3dadd(150.9, 125.05, -3.76, 0.6)
  }
  dend[344] {pt3dclear()
	pt3dadd(142.78, 119.57, -2.56, 1.2)
	pt3dadd(142.42, 121.39, -3, 1.2)
	pt3dadd(142.6, 123.89, -1.8, 1.2)
	pt3dadd(143.15, 127.37, -0.88, 1.2)
	pt3dadd(143.71, 130.03, -1.28, 1.8)
  }
}
proc shape3d_10() {
  dend[344] {	pt3dadd(144.44, 132.19, -2.36, 1.8)
	pt3dadd(145.18, 134.85, -1.96, 1.8)
  }
  dend[345] {pt3dclear()
	pt3dadd(145.18, 134.85, -1.96, 1.8)
	pt3dadd(146.84, 136.84, -1.52, 1.2)
	pt3dadd(147.95, 139.17, -1.68, 1.2)
	pt3dadd(148.69, 141.33, -1.88, 1.8)
	pt3dadd(149.06, 143.65, -2.64, 1.8)
	pt3dadd(150.9, 146.81, -1.48, 1.2)
  }
  dend[346] {pt3dclear()
	pt3dadd(145.18, 134.85, -1.96, 1.8)
	pt3dadd(144.63, 137.17, -3.48, 1.2)
	pt3dadd(144.08, 138.84, -2.92, 1.2)
	pt3dadd(142.42, 139.67, -4.36, 1.2)
	pt3dadd(140.57, 140.66, -5.52, 1.2)
	pt3dadd(139.09, 141.33, -4.84, 1.2)
  }
  dend[347] {pt3dclear()
	pt3dadd(142.42, 104.57, -1.56, 1.8)
	pt3dadd(140.02, 105.23, -1.36, 1.2)
	pt3dadd(138.17, 105.9, -1.36, 1.2)
	pt3dadd(137.06, 106.73, -1.36, 1.2)
	pt3dadd(136.88, 107.72, -1.36, 1.2)
	pt3dadd(137.43, 109.22, -0.24, 1.2)
	pt3dadd(138.91, 111.21, -0.12, 1.2)
	pt3dadd(139.83, 113.37, 0.16, 1.2)
  }
  dend[348] {pt3dclear()
	pt3dadd(139.83, 113.37, 0.16, 1.2)
	pt3dadd(142.23, 114.2, 0.2, 0.6)
	pt3dadd(145, 116.03, 2.04, 0.6)
	pt3dadd(147.58, 117.19, 2.04, 0.6)
	pt3dadd(151.09, 118.52, 2, 0.6)
	pt3dadd(155.15, 120.68, 1.96, 0.6)
  }
  dend[349] {pt3dclear()
	pt3dadd(139.83, 113.37, 0.16, 1.2)
	pt3dadd(139.28, 115.36, 1.12, 1.2)
	pt3dadd(139.28, 117.86, 1.12, 1.2)
	pt3dadd(140.75, 118.85, 1.12, 0.6)
	pt3dadd(142.6, 119.35, 0.44, 0.6)
  }
  dend[350] {pt3dclear()
	pt3dadd(130.66, 95.69, -1.96, 3)
	pt3dadd(131.21, 98.68, -1, 1.2)
	pt3dadd(131.95, 101.51, -1.92, 1.2)
	pt3dadd(132.32, 104.5, -1.52, 1.2)
	pt3dadd(132.5, 106.16, -1.52, 1.2)
  }
  dend[351] {pt3dclear()
	pt3dadd(132.5, 106.16, -1.52, 1.2)
	pt3dadd(133.01, 108.55, -1.48, 0.6)
	pt3dadd(133.93, 110.88, -1.48, 0.6)
	pt3dadd(135.96, 113.54, -1.48, 0.6)
  }
  dend[352] {pt3dclear()
	pt3dadd(135.96, 113.54, -1.48, 0.6)
	pt3dadd(137.25, 114.7, -1.88, 0.6)
  }
  dend[353] {pt3dclear()
	pt3dadd(137.25, 114.7, -1.88, 0.6)
	pt3dadd(139.46, 113.7, -1.36, 0.6)
	pt3dadd(140.94, 112.21, -1.36, 0.6)
	pt3dadd(141.68, 110.71, -1.92, 0.3)
	pt3dadd(141.12, 108.55, -1.92, 0.3)
  }
  dend[354] {pt3dclear()
	pt3dadd(137.25, 114.7, -1.88, 0.6)
	pt3dadd(137.06, 116.69, -1.88, 0.6)
	pt3dadd(137.06, 118.02, -1.28, 0.6)
  }
  dend[355] {pt3dclear()
	pt3dadd(137.06, 118.02, -1.28, 0.6)
	pt3dadd(137.62, 120.02, -1.6, 0.6)
  }
  dend[356] {pt3dclear()
	pt3dadd(137.62, 120.02, -1.6, 0.6)
	pt3dadd(141.68, 121.18, -1.52, 0.3)
  }
  dend[357] {pt3dclear()
	pt3dadd(137.62, 120.02, -1.6, 0.6)
	pt3dadd(140.75, 122.51, -4.16, 0.3)
  }
  dend[358] {pt3dclear()
	pt3dadd(137.06, 118.02, -1.28, 0.6)
	pt3dadd(134.85, 118.85, -1.28, 0.6)
	pt3dadd(133.01, 119.85, -1.28, 0.6)
  }
  dend[359] {pt3dclear()
	pt3dadd(135.96, 113.54, -1.48, 0.6)
	pt3dadd(134.48, 115.36, -1.48, 0.6)
	pt3dadd(131.9, 116.69, -1.48, 0.6)
	pt3dadd(128.58, 117.69, -1.48, 0.6)
  }
  dend[360] {pt3dclear()
	pt3dadd(132.5, 106.16, -1.52, 1.2)
	pt3dadd(129.55, 106.16, -1.52, 1.2)
	pt3dadd(126.6, 105.99, -1.52, 1.2)
  }
  dend[361] {pt3dclear()
	pt3dadd(126.6, 105.99, -1.52, 1.2)
	pt3dadd(127.1, 108.06, -1.08, 0.6)
	pt3dadd(128.02, 109.38, -1.08, 0.6)
	pt3dadd(129.5, 111.38, 0.24, 0.6)
	pt3dadd(131.53, 113.37, -0.24, 0.6)
  }
  dend[362] {pt3dclear()
	pt3dadd(126.6, 105.99, -1.52, 1.2)
	pt3dadd(124.38, 105.49, -1.52, 1.2)
	pt3dadd(121.25, 104, -1.52, 1.2)
  }
  dend[363] {pt3dclear()
	pt3dadd(121.25, 104, -1.52, 1.2)
	pt3dadd(119.77, 105.99, -1.52, 0.6)
	pt3dadd(119.03, 108.32, -1.52, 0.6)
  }
  dend[364] {pt3dclear()
	pt3dadd(121.25, 104, -1.52, 1.2)
	pt3dadd(119.77, 101.51, 0.24, 0.6)
	pt3dadd(117.74, 98.35, 0.24, 0.6)
  }
  dend[365] {pt3dclear()
	pt3dadd(113.5, 77.59, -0.08, 2.1)
	pt3dadd(112.39, 79.41, 0.68, 1.8)
	pt3dadd(111.65, 81.24, 0.68, 1.2)
	pt3dadd(111.1, 82.57, 0.48, 1.2)
	pt3dadd(110.55, 83.9, 0.48, 1.2)
	pt3dadd(110.73, 84.9, 0.48, 1.2)
	pt3dadd(111.47, 85.73, 0.48, 1.2)
	pt3dadd(113.31, 87.55, -1.64, 1.2)
	pt3dadd(114.79, 88.72, -1.64, 1.2)
	pt3dadd(116.08, 89.88, -1.64, 1.2)
  }
  dend[366] {pt3dclear()
	pt3dadd(116.08, 89.88, -1.64, 1.2)
	pt3dadd(117.93, 91.54, -0.76, 0.6)
	pt3dadd(120.51, 94.2, -0.76, 0.6)
	pt3dadd(121.8, 95.69, -2.4, 0.6)
	pt3dadd(124.2, 97.02, -2.4, 0.3)
	pt3dadd(127.15, 100.51, -2.48, 0.3)
  }
  dend[367] {pt3dclear()
	pt3dadd(116.08, 89.88, -1.64, 1.2)
	pt3dadd(116.27, 93.03, -1.84, 0.6)
	pt3dadd(116.08, 94.86, -4.52, 0.6)
  }
  dend[368] {pt3dclear()
	pt3dadd(116.08, 94.86, -4.52, 0.6)
	pt3dadd(117.74, 95.69, -4.76, 0.6)
	pt3dadd(118.85, 97.19, -4.76, 0.6)
	pt3dadd(119.59, 99.18, -4.76, 0.3)
	pt3dadd(120.14, 102.5, -4.76, 0.3)
  }
  dend[369] {pt3dclear()
	pt3dadd(116.08, 94.86, -4.52, 0.6)
	pt3dadd(115.71, 97.19, -1.6, 0.6)
	pt3dadd(115.34, 99.35, -1.6, 0.6)
  }
  dend[370] {pt3dclear()
	pt3dadd(115.34, 99.35, -1.6, 0.6)
	pt3dadd(114.97, 102.5, -2.8, 0.6)
	pt3dadd(115.34, 105.83, -2.8, 0.6)
  }
  dend[371] {pt3dclear()
	pt3dadd(115.34, 99.35, -1.6, 0.6)
	pt3dadd(111.84, 101.34, -1.64, 0.6)
  }
  dend[372] {pt3dclear()
	pt3dadd(103, 55.25, 0.84, 2.7)
	pt3dadd(102.81, 58.58, 0.92, 1.8)
	pt3dadd(103, 60.4, 1.12, 1.8)
	pt3dadd(103.18, 63.23, 0.84, 1.2)
	pt3dadd(103.55, 65.22, 0.56, 1.8)
  }
  dend[373] {pt3dclear()
	pt3dadd(103.55, 65.22, 0.56, 1.8)
	pt3dadd(105.75, 66.62, 1.16, 1.8)
	pt3dadd(107.04, 68.45, 1.16, 1.8)
	pt3dadd(107.23, 70.94, 1.16, 1.2)
	pt3dadd(106.67, 72.6, 1.16, 1.8)
  }
  dend[374] {pt3dclear()
	pt3dadd(106.67, 72.6, 1.16, 1.8)
	pt3dadd(108.89, 73.43, 1.28, 0.6)
  }
  dend[375] {pt3dclear()
	pt3dadd(106.67, 72.6, 1.16, 1.8)
	pt3dadd(105.75, 74.26, 0.96, 1.2)
	pt3dadd(104.09, 77.09, 0.96, 1.2)
  }
  dend[376] {pt3dclear()
	pt3dadd(104.09, 77.09, 0.96, 1.2)
	pt3dadd(105.2, 79.25, 1.32, 0.6)
	pt3dadd(106.12, 80.74, 1.32, 0.6)
  }
  dend[377] {pt3dclear()
	pt3dadd(106.12, 80.74, 1.32, 0.6)
	pt3dadd(107.41, 80.41, 1.32, 0.6)
	pt3dadd(108.15, 81.24, 1.32, 0.6)
	pt3dadd(108.52, 82.4, 1.32, 0.6)
	pt3dadd(108.52, 83.9, 1.32, 0.6)
	pt3dadd(109.62, 85.23, 1.32, 0.6)
	pt3dadd(110.55, 87.22, 1.04, 0.6)
  }
  dend[378] {pt3dclear()
	pt3dadd(106.12, 80.74, 1.32, 0.6)
	pt3dadd(105.57, 82.07, 1.32, 0.6)
	pt3dadd(105.93, 82.74, 1.68, 0.6)
	pt3dadd(107.59, 85.39, 0.28, 0.6)
	pt3dadd(109.99, 89.38, 0.2, 0.6)
	pt3dadd(111.28, 92.7, -1, 0.6)
	pt3dadd(111.84, 94.86, -0.56, 0.3)
	pt3dadd(112.58, 96.52, -0.56, 0.3)
	pt3dadd(112.95, 98.68, -0.56, 0.3)
  }
  dend[379] {pt3dclear()
	pt3dadd(104.09, 77.09, 0.96, 1.2)
	pt3dadd(101.88, 78.75, 1.12, 1.2)
	pt3dadd(100.4, 80.08, 1.12, 1.2)
	pt3dadd(98.19, 81.57, 1.12, 1.2)
	pt3dadd(96.34, 82.9, 1.12, 1.2)
	pt3dadd(94.5, 83.9, 1.12, 1.2)
	pt3dadd(92.28, 84.06, 1.12, 1.2)
	pt3dadd(90.81, 83.57, 1.12, 0.6)
	pt3dadd(89.14, 83.57, 1.12, 0.6)
	pt3dadd(87.85, 84.73, 1.12, 0.6)
	pt3dadd(87.3, 86.06, 1.12, 0.6)
	pt3dadd(87.48, 87.89, 1.12, 0.6)
	pt3dadd(87.85, 89.38, 0.8, 0.3)
  }
  dend[380] {pt3dclear()
	pt3dadd(103.55, 65.22, 0.56, 1.8)
	pt3dadd(101.34, 66.55, 0.88, 1.2)
	pt3dadd(99.12, 67.71, 0.8, 1.8)
  }
  dend[381] {pt3dclear()
	pt3dadd(99.12, 67.71, 0.8, 1.8)
	pt3dadd(99.29, 70.11, 0.36, 1.2)
	pt3dadd(100.21, 72.1, 0.36, 1.2)
	pt3dadd(100.95, 73.1, 0.36, 1.2)
	pt3dadd(101.32, 74.76, 0.36, 0.6)
  }
  dend[382] {pt3dclear()
	pt3dadd(99.12, 67.71, 0.8, 1.8)
	pt3dadd(96.17, 68.88, -0.08, 1.8)
  }
  dend[383] {pt3dclear()
	pt3dadd(96.17, 68.88, -0.08, 1.8)
	pt3dadd(96.52, 71.94, 0.32, 1.2)
	pt3dadd(96.52, 74.26, 0.32, 1.2)
  }
  dend[384] {pt3dclear()
	pt3dadd(96.52, 74.26, 0.32, 1.2)
	pt3dadd(96.89, 76.42, 0.32, 0.3)
	pt3dadd(96.52, 78.42, 0.32, 0.3)
	pt3dadd(95.97, 79.91, 0.32, 0.3)
  }
  dend[385] {pt3dclear()
	pt3dadd(96.52, 74.26, 0.32, 1.2)
	pt3dadd(94.68, 76.09, -0.64, 1.2)
	pt3dadd(92.65, 77.75, -0.64, 0.6)
	pt3dadd(90.25, 79.25, -0.64, 0.6)
	pt3dadd(88.04, 80.91, -0.64, 0.6)
  }
  dend[386] {pt3dclear()
	pt3dadd(96.17, 68.88, -0.08, 1.8)
	pt3dadd(93.96, 69.21, -0.28, 1.2)
  }
  dend[387] {pt3dclear()
	pt3dadd(93.96, 69.21, -0.28, 1.2)
	pt3dadd(92.11, 71.03, -1.2, 0.6)
	pt3dadd(89.71, 71.7, -1.2, 0.6)
  }
  dend[388] {pt3dclear()
	pt3dadd(89.71, 71.7, -1.2, 0.6)
	pt3dadd(88.61, 73.86, -1.56, 0.6)
	pt3dadd(87.68, 75.85, -1.56, 0.6)
	pt3dadd(86.39, 77.18, -1.56, 0.6)
	pt3dadd(85.1, 78.84, -1.56, 0.6)
  }
  dend[389] {pt3dclear()
	pt3dadd(85.1, 78.84, -1.56, 0.6)
	pt3dadd(86.58, 80.5, -1.56, 0.3)
	pt3dadd(88.05, 82.16, -1.56, 0.3)
	pt3dadd(88.79, 84.16, -1.56, 0.3)
	pt3dadd(89.53, 85.15, -1.56, 0.3)
	pt3dadd(91.37, 86.32, -1.56, 0.3)
  }
  dend[390] {pt3dclear()
	pt3dadd(85.1, 78.84, -1.56, 0.6)
  }
}
proc shape3d_11() {
  dend[390] {	pt3dadd(82.7, 79.17, -1.56, 0.6)
  }
  dend[391] {pt3dclear()
	pt3dadd(89.71, 71.7, -1.2, 0.6)
	pt3dadd(88.24, 70.87, -1.2, 0.6)
	pt3dadd(86.21, 71.2, -1.2, 0.6)
	pt3dadd(84.18, 72.53, -1.2, 0.6)
	pt3dadd(82.52, 73.53, -1.2, 0.6)
	pt3dadd(81.04, 75.19, -1.2, 0.3)
  }
  dend[392] {pt3dclear()
	pt3dadd(93.96, 69.21, -0.28, 1.2)
	pt3dadd(91.74, 67.55, -0.72, 0.6)
	pt3dadd(89.34, 65.39, -0.72, 1.2)
	pt3dadd(86.76, 63.39, -1, 0.6)
	pt3dadd(84.55, 61.73, -1, 0.6)
  }
  dend[393] {pt3dclear()
	pt3dadd(65.38, 45.95, 0.76, 2.7)
	pt3dadd(63.91, 47.77, 1.32, 3)
	pt3dadd(62.61, 48.94, 1.32, 1.8)
  }
  dend[394] {pt3dclear()
	pt3dadd(62.61, 48.94, 1.32, 1.8)
	pt3dadd(61.14, 50.27, 1.76, 1.8)
	pt3dadd(59.11, 51.1, 1.76, 2.1)
	pt3dadd(56.89, 50.93, 1.76, 1.8)
	pt3dadd(54.68, 50.43, 2.6, 1.8)
	pt3dadd(53.2, 49.93, 2.6, 1.8)
  }
  dend[395] {pt3dclear()
	pt3dadd(53.2, 49.93, 2.6, 1.8)
	pt3dadd(50.99, 51.1, 2.4, 1.8)
	pt3dadd(49.15, 51.26, 2.4, 1.8)
	pt3dadd(47.48, 50.93, 2.4, 1.8)
  }
  dend[396] {pt3dclear()
	pt3dadd(47.48, 50.93, 2.4, 1.8)
	pt3dadd(45.27, 52.92, 1.88, 1.2)
	pt3dadd(43.43, 54.42, 1.88, 1.2)
  }
  dend[397] {pt3dclear()
	pt3dadd(43.43, 54.42, 1.88, 1.2)
	pt3dadd(42.69, 56.08, 2.16, 1.2)
  }
  dend[398] {pt3dclear()
	pt3dadd(42.69, 56.08, 2.16, 1.2)
	pt3dadd(42.87, 58.57, 4.2, 1.2)
	pt3dadd(43.24, 60.23, 4.2, 1.2)
	pt3dadd(44.35, 61.89, 4.2, 1.2)
  }
  dend[399] {pt3dclear()
	pt3dadd(42.69, 56.08, 2.16, 1.2)
	pt3dadd(40.84, 56.91, 2.72, 1.2)
	pt3dadd(39.37, 58.07, 2.64, 1.2)
	pt3dadd(38.63, 59.57, 2.64, 1.2)
	pt3dadd(38.81, 61.06, 2.64, 1.2)
  }
  dend[400] {pt3dclear()
	pt3dadd(43.43, 54.42, 1.88, 1.2)
	pt3dadd(41.21, 53.59, 1.88, 0.6)
	pt3dadd(38.44, 53.42, 1.84, 0.6)
  }
  dend[401] {pt3dclear()
	pt3dadd(47.48, 50.93, 2.4, 1.8)
	pt3dadd(43.79, 49.27, 3.08, 1.2)
	pt3dadd(41.77, 48.6, 3.56, 1.2)
	pt3dadd(40.1, 48.27, 3.56, 1.2)
	pt3dadd(39, 47.77, 2.56, 1.2)
  }
  dend[402] {pt3dclear()
	pt3dadd(39, 47.77, 2.56, 1.2)
	pt3dadd(38.26, 49.27, 2.56, 0.6)
	pt3dadd(36.97, 51.1, 2.56, 0.6)
  }
  dend[403] {pt3dclear()
	pt3dadd(36.97, 51.1, 2.56, 0.6)
	pt3dadd(37.89, 52.09, 2.52, 0.3)
  }
  dend[404] {pt3dclear()
	pt3dadd(36.97, 51.1, 2.56, 0.6)
	pt3dadd(33.83, 51.26, 2.56, 0.6)
  }
  dend[405] {pt3dclear()
	pt3dadd(39, 47.77, 2.56, 1.2)
	pt3dadd(37.71, 47.11, 2.84, 1.2)
  }
  dend[406] {pt3dclear()
	pt3dadd(37.71, 47.11, 2.84, 1.2)
	pt3dadd(35.12, 46.94, 3.12, 1.2)
	pt3dadd(32.54, 47.11, 3.12, 1.2)
	pt3dadd(30.51, 47.61, 4.68, 1.2)
	pt3dadd(28.11, 46.94, 4.68, 0.6)
  }
  dend[407] {pt3dclear()
	pt3dadd(37.71, 47.11, 2.84, 1.2)
	pt3dadd(36.97, 45.28, 2.92, 1.2)
	pt3dadd(36.23, 43.62, 2.92, 0.6)
	pt3dadd(34.94, 41.79, 2.92, 0.6)
  }
  dend[408] {pt3dclear()
	pt3dadd(53.2, 49.93, 2.6, 1.8)
	pt3dadd(52.28, 48.44, 2.56, 1.8)
	pt3dadd(50.07, 46.28, 2.56, 1.8)
	pt3dadd(48.22, 44.62, 2.96, 1.8)
	pt3dadd(46.75, 43.12, 2.96, 1.8)
	pt3dadd(45.27, 41.46, 4.36, 1.8)
  }
  dend[409] {pt3dclear()
	pt3dadd(45.27, 41.46, 4.36, 1.8)
	pt3dadd(42.32, 41.13, 4.76, 1.2)
	pt3dadd(40.66, 39.97, 4.76, 1.2)
	pt3dadd(39, 39.97, 5.36, 1.8)
	pt3dadd(36.78, 40.63, 5.36, 1.8)
	pt3dadd(34.75, 41.13, 5.36, 1.8)
	pt3dadd(32.72, 41.79, 5.36, 1.8)
	pt3dadd(31.25, 42.46, 5.36, 1.8)
  }
  dend[410] {pt3dclear()
	pt3dadd(45.27, 41.46, 4.36, 1.8)
	pt3dadd(44.72, 39.63, 5, 1.2)
	pt3dadd(43.61, 38.64, 5, 1.2)
	pt3dadd(42.13, 37.81, 5, 1.2)
	pt3dadd(40.29, 35.98, 3.8, 1.8)
	pt3dadd(38.26, 33.65, 5.56, 1.8)
  }
  dend[411] {pt3dclear()
	pt3dadd(38.26, 33.65, 5.56, 1.8)
	pt3dadd(35.68, 35.15, 5.56, 1.8)
	pt3dadd(33.28, 36.48, 5.56, 1.8)
	pt3dadd(30.51, 37.31, 5.56, 1.8)
	pt3dadd(28.3, 37.81, 5.56, 1.8)
	pt3dadd(26.64, 37.64, 5.56, 1.8)
	pt3dadd(25.53, 36.64, 5.56, 1.8)
	pt3dadd(24.05, 35.32, 5.56, 1.8)
	pt3dadd(22.39, 34.15, 7.4, 1.8)
	pt3dadd(21.29, 34.15, 7.4, 2.1)
	pt3dadd(19.81, 35.98, 7.4, 2.1)
  }
  dend[412] {pt3dclear()
	pt3dadd(38.26, 33.65, 5.56, 1.8)
	pt3dadd(36.97, 32.66, 5.64, 1.8)
	pt3dadd(35.86, 31, 5.64, 1.8)
  }
  dend[413] {pt3dclear()
	pt3dadd(35.86, 31, 5.64, 1.8)
	pt3dadd(32.54, 30.33, 5.32, 1.2)
	pt3dadd(29.59, 30, 4.12, 1.2)
	pt3dadd(27.37, 30.33, 4.12, 1.2)
	pt3dadd(24.42, 28.84, 4.12, 1.2)
	pt3dadd(22.95, 29.67, 4.12, 0.6)
	pt3dadd(21.29, 28.34, 4.12, 0.6)
	pt3dadd(19.07, 28.34, 5.28, 1.8)
	pt3dadd(17.23, 28.01, 7.12, 1.8)
  }
  dend[414] {pt3dclear()
	pt3dadd(35.86, 31, 5.64, 1.8)
	pt3dadd(34.57, 28.84, 5.64, 1.2)
	pt3dadd(33.65, 27.51, 5.64, 1.2)
	pt3dadd(32.72, 26.18, 5.68, 1.2)
  }
  dend[415] {pt3dclear()
	pt3dadd(32.72, 26.18, 5.68, 1.2)
	pt3dadd(30.14, 26.18, 5.72, 1.8)
	pt3dadd(25.53, 25.85, 5.72, 1.8)
  }
  dend[416] {pt3dclear()
	pt3dadd(25.53, 25.85, 5.72, 1.8)
	pt3dadd(26.27, 27.84, 5.64, 1.2)
	pt3dadd(26.45, 29.5, 5.6, 1.2)
	pt3dadd(26.82, 31.33, 5.6, 1.2)
  }
  dend[417] {pt3dclear()
	pt3dadd(25.53, 25.85, 5.72, 1.8)
	pt3dadd(24.79, 24.02, 5.72, 1.2)
	pt3dadd(23.68, 22.19, 5.72, 1.2)
	pt3dadd(22.58, 19.7, 5.72, 1.2)
	pt3dadd(21.65, 16.54, 6, 1.2)
	pt3dadd(21.1, 13.39, 5.96, 1.2)
  }
  dend[418] {pt3dclear()
	pt3dadd(32.72, 26.18, 5.68, 1.2)
	pt3dadd(31.62, 24.02, 4.52, 1.2)
	pt3dadd(30.7, 22.52, 4.52, 1.2)
	pt3dadd(29.96, 21.69, 4.52, 1.2)
  }
  dend[419] {pt3dclear()
	pt3dadd(29.96, 21.69, 4.52, 1.2)
	pt3dadd(28.48, 20.86, 4.88, 1.8)
	pt3dadd(26.45, 17.54, 4.88, 1.8)
  }
  dend[420] {pt3dclear()
	pt3dadd(26.45, 17.54, 4.88, 1.8)
	pt3dadd(24.05, 15.71, 5.08, 1.2)
	pt3dadd(21.47, 13.22, 5.08, 1.2)
  }
  dend[421] {pt3dclear()
	pt3dadd(26.45, 17.54, 4.88, 1.8)
	pt3dadd(27.19, 14.72, 5.68, 1.2)
	pt3dadd(27.74, 12.56, 5.64, 1.2)
	pt3dadd(27.37, 10.4, 5.6, 1.2)
	pt3dadd(26.64, 7.74, 5.6, 0.6)
  }
  dend[422] {pt3dclear()
	pt3dadd(29.96, 21.69, 4.52, 1.2)
	pt3dadd(30.33, 19.7, 4.36, 1.2)
	pt3dadd(30.14, 17.71, 4.36, 1.2)
	pt3dadd(31.25, 16.21, 5.36, 1.2)
	pt3dadd(32.17, 14.72, 5.36, 1.2)
	pt3dadd(32.72, 13.06, 5.36, 1.2)
	pt3dadd(32.36, 10.56, 5.36, 1.2)
	pt3dadd(31.62, 9.07, 5.36, 1.2)
	pt3dadd(31.06, 7.74, 5.36, 1.2)
	pt3dadd(30.7, 5.41, 5.64, 1.2)
	pt3dadd(30.51, 2.26, 5.64, 1.2)
  }
  dend[423] {pt3dclear()
	pt3dadd(62.61, 48.94, 1.32, 1.8)
	pt3dadd(60.95, 49.1, 0.44, 1.2)
	pt3dadd(59.29, 48.77, 1.28, 1.2)
	pt3dadd(57.63, 46.94, 1.28, 1.8)
  }
  dend[424] {pt3dclear()
	pt3dadd(57.63, 46.94, 1.28, 1.8)
	pt3dadd(53.2, 47.61, 1.56, 0.6)
  }
  dend[425] {pt3dclear()
	pt3dadd(57.63, 46.94, 1.28, 1.8)
	pt3dadd(56.53, 45.45, 3.88, 1.2)
	pt3dadd(55.23, 43.29, 3.12, 1.2)
  }
  dend[426] {pt3dclear()
	pt3dadd(55.23, 43.29, 3.12, 1.2)
	pt3dadd(53.2, 43.12, 4, 1.8)
	pt3dadd(52.84, 41.96, 4, 1.2)
	pt3dadd(51.73, 40.96, 4, 1.2)
	pt3dadd(50.62, 40.3, 4, 1.2)
	pt3dadd(49.33, 40.13, 4, 1.8)
	pt3dadd(47.67, 39.14, 5.56, 1.2)
	pt3dadd(46.19, 37.14, 5.56, 1.2)
	pt3dadd(45.82, 35.15, 5.56, 1.2)
	pt3dadd(44.72, 32.82, 4.72, 1.2)
	pt3dadd(43.61, 30.33, 4.6, 0.6)
  }
  dend[427] {pt3dclear()
	pt3dadd(55.23, 43.29, 3.12, 1.2)
	pt3dadd(55.23, 41.46, 4.48, 1.2)
	pt3dadd(55.42, 38.64, 4.48, 1.8)
  }
  dend[428] {pt3dclear()
	pt3dadd(55.42, 38.64, 4.48, 1.8)
	pt3dadd(55.42, 34.65, 4.68, 1.8)
	pt3dadd(54.86, 31.83, 4.52, 1.2)
  }
  dend[429] {pt3dclear()
	pt3dadd(54.86, 31.83, 4.52, 1.2)
	pt3dadd(53.57, 29.67, 4.36, 1.2)
  }
  dend[430] {pt3dclear()
	pt3dadd(53.57, 29.67, 4.36, 1.2)
	pt3dadd(50.99, 28.84, 4.52, 1.2)
	pt3dadd(49.15, 28.34, 4.52, 1.8)
	pt3dadd(47.67, 27.51, 4.52, 1.8)
	pt3dadd(44.16, 25.51, 7.04, 1.8)
  }
  dend[431] {pt3dclear()
	pt3dadd(53.57, 29.67, 4.36, 1.2)
	pt3dadd(52.84, 27.51, 4.36, 1.2)
	pt3dadd(51.36, 24.85, 4.8, 1.2)
  }
  dend[432] {pt3dclear()
	pt3dadd(51.36, 24.85, 4.8, 1.2)
	pt3dadd(49.51, 23.85, 4.16, 1.2)
	pt3dadd(48.41, 22.86, 4.16, 1.2)
	pt3dadd(47.67, 22.03, 4.16, 1.2)
  }
  dend[433] {pt3dclear()
	pt3dadd(51.36, 24.85, 4.8, 1.2)
	pt3dadd(52.1, 22.03, 4.8, 1.2)
	pt3dadd(53.2, 20.03, 4.8, 1.2)
	pt3dadd(54.31, 17.71, 4.12, 1.2)
	pt3dadd(54.13, 15.55, 4.12, 1.2)
	pt3dadd(53.76, 14.38, 4.12, 1.2)
	pt3dadd(53.57, 12.56, 4.12, 0.6)
  }
  dend[434] {pt3dclear()
	pt3dadd(54.86, 31.83, 4.52, 1.2)
	pt3dadd(55.05, 27.84, 4.64, 0.6)
  }
}
proc shape3d_12() {
  dend[434] {  }
  dend[435] {pt3dclear()
	pt3dadd(55.42, 38.64, 4.48, 1.8)
	pt3dadd(57.45, 37.81, 4.48, 1.2)
	pt3dadd(58.74, 36.98, 4.48, 1.2)
	pt3dadd(59.48, 36.15, 4.48, 1.2)
	pt3dadd(59.85, 34.48, 4.08, 1.2)
	pt3dadd(59.48, 32.49, 4.08, 1.2)
	pt3dadd(59.11, 31.16, 4.08, 1.2)
	pt3dadd(59.11, 30, 3.96, 1.2)
	pt3dadd(59.48, 28.34, 3.96, 1.2)
	pt3dadd(59.48, 27.01, 3.96, 1.2)
	pt3dadd(59.29, 24.68, 3.96, 1.2)
	pt3dadd(59.11, 23.35, 3.96, 1.2)
	pt3dadd(58.74, 21.36, 4.08, 1.2)
	pt3dadd(58.74, 19.53, 4.08, 1.2)
	pt3dadd(59.11, 17.87, 4.08, 1.2)
	pt3dadd(59.11, 15.38, 4.08, 0.6)
  }
  dend[436] {pt3dclear()
	pt3dadd(34.44, 36.59, 1, 5.7)
	pt3dadd(33.83, 39.03, 1, 4.5)
	pt3dadd(32.81, 41.47, 1, 3)
	pt3dadd(32.41, 43.7, 1, 3.6)
	pt3dadd(31.79, 46.14, 1, 4.5)
  }
  dend[437] {pt3dclear()
	pt3dadd(31.79, 46.14, 1, 4.5)
	pt3dadd(31.66, 48.1, 1.48, 4.5)
	pt3dadd(31.66, 50.13, 1.48, 3.9)
	pt3dadd(32.07, 52.16, 1.48, 5.4)
  }
  dend[438] {pt3dclear()
	pt3dadd(32.07, 52.16, 1.48, 5.4)
	pt3dadd(36.24, 56.23, 0.58, 3)
	pt3dadd(38.27, 58.56, 0.43, 3)
	pt3dadd(41.22, 60.88, 0.31, 3)
	pt3dadd(45.09, 63.37, 0.24, 3)
	pt3dadd(48.78, 65.87, -0.72, 3)
	pt3dadd(51.36, 67.53, -0.72, 2.1)
	pt3dadd(53.58, 69.85, -0.8, 2.1)
	pt3dadd(54.66, 70.52, -1.24, 3)
	pt3dadd(55.4, 71.18, -1.04, 2.7)
	pt3dadd(55.77, 71.51, -1.04, 3.6)
  }
  dend[439] {pt3dclear()
	pt3dadd(55.77, 71.51, -1.04, 3.6)
	pt3dadd(58.9, 70.07, -2.88, 1.8)
	pt3dadd(59.82, 69.24, -3, 1.8)
  }
  dend[440] {pt3dclear()
	pt3dadd(59.82, 69.24, -3, 1.8)
	pt3dadd(58.53, 67.58, -4.68, 0.6)
	pt3dadd(58.34, 66.08, -4.28, 0.6)
	pt3dadd(57.79, 64.42, -4.04, 0.6)
  }
  dend[441] {pt3dclear()
	pt3dadd(57.79, 64.42, -4.04, 0.6)
	pt3dadd(56.5, 63.92, -4.84, 0.6)
	pt3dadd(55.02, 62.92, -4.08, 0.6)
  }
  dend[442] {pt3dclear()
	pt3dadd(55.02, 62.92, -4.08, 0.6)
	pt3dadd(54.1, 64.59, -4.08, 0.6)
	pt3dadd(54.1, 66.25, -4.08, 0.6)
	pt3dadd(54.84, 67.58, -4.08, 0.6)
	pt3dadd(56.68, 68.9, -3.56, 0.6)
  }
  dend[443] {pt3dclear()
	pt3dadd(55.02, 62.92, -4.08, 0.6)
	pt3dadd(54.65, 61.43, -4.96, 0.6)
  }
  dend[444] {pt3dclear()
	pt3dadd(54.65, 61.43, -4.96, 0.6)
	pt3dadd(53.36, 60.6, -4.2, 0.6)
	pt3dadd(51.52, 59.44, -4.2, 0.6)
  }
  dend[445] {pt3dclear()
	pt3dadd(51.52, 59.44, -4.2, 0.6)
	pt3dadd(50.41, 60.93, -4.96, 0.6)
	pt3dadd(49.67, 61.93, -4.96, 0.6)
	pt3dadd(48.75, 62.26, -4.96, 0.6)
	pt3dadd(47.46, 62.76, -4.96, 0.6)
  }
  dend[446] {pt3dclear()
	pt3dadd(51.52, 59.44, -4.2, 0.6)
	pt3dadd(49.86, 58.11, -3.2, 0.6)
	pt3dadd(48.93, 57.28, -3.2, 0.6)
  }
  dend[447] {pt3dclear()
	pt3dadd(48.93, 57.28, -3.2, 0.6)
	pt3dadd(46.54, 57.94, -2.72, 0.3)
  }
  dend[448] {pt3dclear()
	pt3dadd(48.93, 57.28, -3.2, 0.6)
	pt3dadd(47.46, 55.62, -3.8, 0.6)
	pt3dadd(45.06, 54.78, -2.76, 1.2)
  }
  dend[449] {pt3dclear()
	pt3dadd(54.65, 61.43, -4.96, 0.6)
	pt3dadd(55.39, 59.93, -4.92, 0.6)
	pt3dadd(55.58, 57.94, -4.92, 0.6)
	pt3dadd(54.84, 57.28, -4.92, 0.6)
	pt3dadd(53.73, 56.61, -4.92, 0.6)
	pt3dadd(52.99, 55.62, -4.92, 0.6)
	pt3dadd(52.99, 54.29, -4.92, 0.6)
	pt3dadd(52.81, 53.12, -4.92, 0.6)
  }
  dend[450] {pt3dclear()
	pt3dadd(57.79, 64.42, -4.04, 0.6)
	pt3dadd(59.64, 64.42, -4.72, 0.6)
	pt3dadd(60.19, 65.42, -4.72, 0.3)
  }
  dend[451] {pt3dclear()
	pt3dadd(59.82, 69.24, -3, 1.8)
	pt3dadd(60.93, 68.24, -3.84, 1.2)
	pt3dadd(62.22, 66.58, -4.52, 1.2)
	pt3dadd(62.96, 64.09, -5.92, 1.2)
	pt3dadd(63.33, 62.26, -6.04, 1.2)
	pt3dadd(63.51, 60.27, -5.36, 1.8)
	pt3dadd(64.06, 58.77, -5.36, 1.8)
  }
  dend[452] {pt3dclear()
	pt3dadd(64.06, 58.77, -5.36, 1.8)
	pt3dadd(61.48, 57.77, -6, 0.6)
	pt3dadd(59.45, 56.45, -5.56, 0.6)
	pt3dadd(57.79, 55.62, -4.84, 0.6)
	pt3dadd(56.31, 54.62, -4.84, 0.6)
	pt3dadd(54.1, 53.46, -5.08, 0.3)
  }
  dend[453] {pt3dclear()
	pt3dadd(64.06, 58.77, -5.36, 1.8)
	pt3dadd(64.43, 56.61, -5.36, 1.8)
  }
  dend[454] {pt3dclear()
	pt3dadd(64.43, 56.61, -5.36, 1.8)
	pt3dadd(64.62, 54.29, -6.44, 1.2)
	pt3dadd(64.99, 52.96, -6.64, 1.2)
	pt3dadd(65.35, 50.8, -4.72, 1.2)
	pt3dadd(65.35, 47.48, -2.44, 1.2)
  }
  dend[455] {pt3dclear()
	pt3dadd(65.35, 47.48, -2.44, 1.2)
	pt3dadd(65.17, 45.32, -3.56, 1.2)
	pt3dadd(64.99, 42.99, -2.92, 1.2)
  }
  dend[456] {pt3dclear()
	pt3dadd(64.99, 42.99, -2.92, 1.2)
	pt3dadd(64.25, 41.16, -3.92, 0.6)
	pt3dadd(63.51, 39.5, -3.92, 0.6)
	pt3dadd(61.66, 37.51, -3.6, 0.6)
	pt3dadd(60.56, 36.18, -3.6, 0.3)
  }
  dend[457] {pt3dclear()
	pt3dadd(64.99, 42.99, -2.92, 1.2)
	pt3dadd(66.65, 42.66, -3.44, 1.2)
  }
  dend[458] {pt3dclear()
	pt3dadd(66.65, 42.66, -3.44, 1.2)
	pt3dadd(66.65, 39.67, -2.4, 0.6)
	pt3dadd(66.83, 37.67, -2.92, 0.6)
	pt3dadd(66.83, 36.01, -2.92, 0.6)
	pt3dadd(65.54, 33.69, -2.28, 0.6)
	pt3dadd(64.43, 32.19, -2.28, 0.6)
	pt3dadd(62.77, 30.37, -2.28, 0.6)
  }
  dend[459] {pt3dclear()
	pt3dadd(66.65, 42.66, -3.44, 1.2)
	pt3dadd(68.12, 43.16, -3.32, 0.6)
	pt3dadd(69.78, 42.99, -3.32, 0.6)
	pt3dadd(70.52, 41.83, -3.32, 0.6)
	pt3dadd(71.07, 40.66, -3.32, 0.6)
	pt3dadd(72, 40.5, -3.32, 0.6)
	pt3dadd(74.03, 40.33, -3.32, 0.6)
	pt3dadd(74.4, 39.83, -3.32, 0.6)
  }
  dend[460] {pt3dclear()
	pt3dadd(74.4, 39.83, -3.32, 0.6)
	pt3dadd(72.55, 38.17, -4.92, 0.3)
	pt3dadd(71.81, 37.18, -4.92, 0.6)
	pt3dadd(70.15, 36.01, -3.88, 0.6)
  }
  dend[461] {pt3dclear()
	pt3dadd(74.4, 39.83, -3.32, 0.6)
	pt3dadd(75.69, 38.34, -3.64, 0.6)
	pt3dadd(76.42, 36.68, -3.64, 0.6)
	pt3dadd(76.98, 35.52, -3.64, 0.6)
  }
  dend[462] {pt3dclear()
	pt3dadd(65.35, 47.48, -2.44, 1.2)
	pt3dadd(67.2, 47.48, -2.04, 1.2)
	pt3dadd(68.86, 47.31, -1.48, 1.2)
  }
  dend[463] {pt3dclear()
	pt3dadd(68.86, 47.31, -1.48, 1.2)
	pt3dadd(70.15, 46.31, -1.48, 0.6)
	pt3dadd(71.26, 46.31, -1.48, 0.6)
	pt3dadd(72.18, 46.64, -1.48, 0.6)
  }
  dend[464] {pt3dclear()
	pt3dadd(68.86, 47.31, -1.48, 1.2)
	pt3dadd(69.97, 48.14, -1.84, 1.2)
	pt3dadd(71.44, 48.8, -1.84, 1.2)
	pt3dadd(72.18, 50.63, -1.84, 1.2)
	pt3dadd(72.73, 52.79, -1.84, 1.2)
	pt3dadd(73.66, 54.45, -1.84, 1.2)
	pt3dadd(75.69, 54.78, -2.12, 1.2)
	pt3dadd(78.09, 55.95, -2.12, 1.2)
	pt3dadd(79.56, 57.11, -2.12, 0.6)
	pt3dadd(81.41, 58.44, -2.12, 0.6)
  }
  dend[465] {pt3dclear()
	pt3dadd(64.43, 56.61, -5.36, 1.8)
	pt3dadd(66.65, 56.28, -5.48, 1.8)
	pt3dadd(67.75, 56.45, -5.6, 1.8)
  }
  dend[466] {pt3dclear()
	pt3dadd(67.75, 56.45, -5.6, 1.8)
	pt3dadd(69.78, 54.78, -6.96, 0.6)
	pt3dadd(72.37, 53.46, -4.92, 0.6)
	pt3dadd(74.21, 52.62, -4.92, 0.6)
	pt3dadd(76.06, 52.79, -4.92, 0.6)
	pt3dadd(77.16, 53.29, -4.92, 0.6)
  }
  dend[467] {pt3dclear()
	pt3dadd(67.75, 56.45, -5.6, 1.8)
	pt3dadd(68.31, 57.11, -5.52, 1.2)
	pt3dadd(69.23, 58.11, -5.52, 1.2)
	pt3dadd(70.15, 58.44, -5.52, 1.2)
	pt3dadd(71.44, 58.44, -5.52, 1.2)
	pt3dadd(73.66, 58.27, -5.04, 1.2)
  }
  dend[468] {pt3dclear()
	pt3dadd(73.66, 58.27, -5.04, 1.2)
	pt3dadd(74.76, 57.44, -4.68, 1.2)
  }
  dend[469] {pt3dclear()
	pt3dadd(74.76, 57.44, -4.68, 1.2)
	pt3dadd(75.32, 55.95, -4.8, 0.6)
	pt3dadd(76.98, 54.45, -4.8, 0.6)
	pt3dadd(79.19, 53.12, -4.8, 0.6)
	pt3dadd(81.04, 52.46, -4.8, 0.3)
	pt3dadd(83.07, 52.13, -4.8, 0.3)
  }
  dend[470] {pt3dclear()
	pt3dadd(74.76, 57.44, -4.68, 1.2)
	pt3dadd(76.79, 57.77, -5.44, 1.2)
	pt3dadd(78.45, 58.11, -5.44, 1.2)
	pt3dadd(79.56, 58.94, -5.44, 1.2)
	pt3dadd(80.67, 60.1, -5.44, 1.2)
	pt3dadd(82.14, 60.27, -5.44, 1.2)
	pt3dadd(83.44, 59.93, -7.16, 1.2)
	pt3dadd(84.17, 59.27, -7.16, 0.6)
	pt3dadd(85.1, 58.27, -7.16, 0.6)
	pt3dadd(86.02, 56.94, -7.16, 0.6)
	pt3dadd(86.39, 55.28, -7.16, 0.6)
	pt3dadd(87.13, 54.12, -7, 0.6)
	pt3dadd(87.86, 53.29, -7, 0.6)
	pt3dadd(89.16, 52.62, -7, 0.3)
	pt3dadd(90.45, 52.29, -7, 0.3)
	pt3dadd(91.92, 52.29, -7, 0.3)
	pt3dadd(93.95, 52.29, -7, 0.3)
	pt3dadd(95.06, 52.62, -6.16, 0.3)
  }
  dend[471] {pt3dclear()
	pt3dadd(73.66, 58.27, -5.04, 1.2)
	pt3dadd(74.4, 59.77, -5.76, 1.2)
	pt3dadd(75.13, 61.26, -5.76, 1.2)
  }
  dend[472] {pt3dclear()
	pt3dadd(75.13, 61.26, -5.76, 1.2)
	pt3dadd(76.98, 62.09, -5.24, 1.2)
	pt3dadd(77.9, 62.76, -5.24, 1.2)
  }
  dend[473] {pt3dclear()
	pt3dadd(77.9, 62.76, -5.24, 1.2)
	pt3dadd(79.93, 63.42, -5.52, 1.2)
	pt3dadd(80.67, 64.25, -5.52, 1.2)
  }
}
proc shape3d_13() {
  dend[473] {	pt3dadd(81.59, 65.08, -5.52, 1.2)
	pt3dadd(83.25, 66.25, -5.52, 1.2)
  }
  dend[474] {pt3dclear()
	pt3dadd(83.25, 66.25, -5.52, 1.2)
	pt3dadd(83.62, 66.58, -5.52, 0.6)
  }
  dend[475] {pt3dclear()
	pt3dadd(83.62, 66.58, -5.52, 0.6)
	pt3dadd(84.36, 65.75, -5.52, 0.6)
	pt3dadd(85.28, 64.59, -5.08, 0.6)
	pt3dadd(85.65, 63.09, -5.08, 0.6)
	pt3dadd(85.83, 62.26, -5.08, 0.6)
	pt3dadd(86.02, 60.76, -5.12, 0.3)
  }
  dend[476] {pt3dclear()
	pt3dadd(83.62, 66.58, -5.52, 0.6)
	pt3dadd(84.36, 68.07, -5.72, 0.6)
	pt3dadd(85.1, 68.57, -5.72, 0.6)
	pt3dadd(86.76, 68.9, -5.72, 0.6)
  }
  dend[477] {pt3dclear()
	pt3dadd(83.25, 66.25, -5.52, 1.2)
	pt3dadd(81.59, 68.07, -6.04, 0.3)
  }
  dend[478] {pt3dclear()
	pt3dadd(77.9, 62.76, -5.24, 1.2)
	pt3dadd(77.72, 64.09, -4.6, 0.6)
	pt3dadd(77.53, 65.08, -4.6, 0.6)
	pt3dadd(78.27, 65.91, -4.6, 0.6)
	pt3dadd(78.45, 67.08, -4.56, 0.6)
	pt3dadd(78.45, 68.24, -4.56, 1.2)
  }
  dend[479] {pt3dclear()
	pt3dadd(75.13, 61.26, -5.76, 1.2)
	pt3dadd(74.95, 63.42, -5.92, 0.6)
	pt3dadd(74.58, 64.42, -5.92, 0.6)
	pt3dadd(75.5, 65.25, -5.92, 0.6)
	pt3dadd(75.5, 67.08, -5.92, 0.6)
	pt3dadd(75.32, 69.73, -5.52, 0.6)
  }
  dend[480] {pt3dclear()
	pt3dadd(75.32, 69.73, -5.52, 0.6)
	pt3dadd(75.69, 73.56, -6.04, 0.6)
  }
  dend[481] {pt3dclear()
	pt3dadd(75.32, 69.73, -5.52, 0.6)
	pt3dadd(73.47, 69.9, -5.52, 0.6)
  }
  dend[482] {pt3dclear()
	pt3dadd(55.77, 71.51, -1.04, 3.6)
	pt3dadd(56.32, 72.18, -1.04, 3.6)
  }
  dend[483] {pt3dclear()
	pt3dadd(56.32, 72.18, -1.04, 3.6)
	pt3dadd(57.43, 73.17, -1.52, 2.7)
	pt3dadd(58.54, 74.67, -1.52, 3)
	pt3dadd(59.64, 76.33, -2.24, 2.1)
	pt3dadd(60.38, 78.16, -2.32, 2.1)
	pt3dadd(60.01, 79.15, -2.24, 3)
	pt3dadd(60.01, 80.82, -2.36, 3)
	pt3dadd(60.01, 82.48, -1.8, 2.7)
  }
  dend[484] {pt3dclear()
	pt3dadd(60.01, 82.48, -1.8, 2.7)
	pt3dadd(60.8, 84.03, -0.32, 3)
	pt3dadd(62.27, 85.53, -0.32, 2.1)
	pt3dadd(63.75, 87.19, -0.08, 1.8)
	pt3dadd(65.22, 88.35, -0.08, 1.8)
	pt3dadd(67.25, 89.18, -0.6, 1.8)
	pt3dadd(69.65, 89.51, -0.6, 2.1)
	pt3dadd(71.13, 90.18, -0.88, 2.7)
	pt3dadd(72.05, 90.51, -0.6, 2.7)
  }
  dend[485] {pt3dclear()
	pt3dadd(72.05, 90.51, -0.6, 2.7)
	pt3dadd(72.62, 88.71, -3.52, 2.7)
  }
  dend[486] {pt3dclear()
	pt3dadd(72.62, 88.71, -3.52, 2.7)
	pt3dadd(70.78, 87.38, -3.52, 1.2)
	pt3dadd(70.04, 86.22, -3.52, 0.6)
	pt3dadd(68.93, 85.39, -3.52, 0.6)
	pt3dadd(67.27, 83.72, -3.52, 0.6)
	pt3dadd(66.17, 81.73, -3.52, 0.6)
	pt3dadd(65.06, 80.24, -3.12, 0.6)
	pt3dadd(64.87, 78.74, -3.12, 0.6)
	pt3dadd(64.32, 76.91, -3.12, 0.6)
	pt3dadd(63.21, 75.42, -3.12, 0.6)
	pt3dadd(61.37, 74.42, -3.12, 0.3)
  }
  dend[487] {pt3dclear()
	pt3dadd(72.62, 88.71, -3.52, 2.7)
	pt3dadd(73.36, 87.38, -3.2, 2.7)
  }
  dend[488] {pt3dclear()
	pt3dadd(73.36, 87.38, -3.2, 2.7)
	pt3dadd(73.55, 84.89, -3.88, 1.2)
	pt3dadd(73.18, 82.06, -3.32, 1.8)
  }
  dend[489] {pt3dclear()
	pt3dadd(73.18, 82.06, -3.32, 1.8)
	pt3dadd(70.96, 81.4, -3.4, 0.6)
	pt3dadd(69.49, 80.24, -3.4, 0.6)
	pt3dadd(68.56, 78.91, -3.4, 0.6)
	pt3dadd(67.09, 77.41, -3.4, 0.6)
	pt3dadd(66.35, 75.42, -3.4, 0.6)
	pt3dadd(66.17, 73.09, -3.4, 0.6)
	pt3dadd(65.98, 70.77, -2.36, 0.6)
	pt3dadd(65.24, 68.77, -2.36, 0.6)
	pt3dadd(64.87, 66.78, -2.36, 0.6)
	pt3dadd(63.77, 65.29, -2.36, 0.6)
	pt3dadd(62.48, 64.12, -3.04, 0.6)
	pt3dadd(61.37, 62.79, -3.04, 0.6)
	pt3dadd(60.45, 61.47, -3.04, 0.6)
	pt3dadd(60.08, 60.8, -3.04, 0.6)
	pt3dadd(58.6, 60.97, -3.04, 0.6)
  }
  dend[490] {pt3dclear()
	pt3dadd(73.18, 82.06, -3.32, 1.8)
	pt3dadd(73.55, 80.57, -2.24, 1.2)
	pt3dadd(74.47, 79.57, -2.24, 1.2)
  }
  dend[491] {pt3dclear()
	pt3dadd(74.47, 79.57, -2.24, 1.2)
	pt3dadd(74.28, 78.08, -1.8, 1.2)
	pt3dadd(74.65, 76.75, -1.84, 1.2)
  }
  dend[492] {pt3dclear()
	pt3dadd(74.65, 76.75, -1.84, 1.2)
	pt3dadd(73.36, 75.75, -2.56, 1.2)
	pt3dadd(72.25, 74.42, -2.56, 1.2)
	pt3dadd(70.41, 72.93, -2.56, 1.2)
	pt3dadd(69.49, 71.76, -4.52, 1.2)
	pt3dadd(68.38, 70.1, -4.52, 0.6)
	pt3dadd(66.72, 69.27, -6.16, 0.6)
  }
  dend[493] {pt3dclear()
	pt3dadd(66.72, 69.27, -6.16, 0.6)
	pt3dadd(64.51, 68.28, -5.56, 0.6)
	pt3dadd(61.74, 67.28, -5.56, 0.6)
  }
  dend[494] {pt3dclear()
	pt3dadd(66.72, 69.27, -6.16, 0.6)
	pt3dadd(67.27, 67.45, -5.04, 0.6)
	pt3dadd(68.38, 65.45, -5.04, 0.6)
	pt3dadd(68.93, 63.96, -5.04, 0.6)
  }
  dend[495] {pt3dclear()
	pt3dadd(74.65, 76.75, -1.84, 1.2)
	pt3dadd(76.13, 75.59, -1.76, 1.2)
	pt3dadd(76.5, 74.26, -1.76, 1.2)
  }
  dend[496] {pt3dclear()
	pt3dadd(76.5, 74.26, -1.76, 1.2)
	pt3dadd(75.39, 72.93, -2.92, 1.2)
	pt3dadd(75.39, 71.76, -2.92, 0.6)
	pt3dadd(75.02, 70.6, -2.92, 1.2)
	pt3dadd(74.28, 69.44, -2.92, 1.2)
	pt3dadd(72.44, 68.11, -3.12, 0.6)
	pt3dadd(71.7, 67.28, -3.12, 1.2)
	pt3dadd(70.23, 66.28, -3.12, 1.2)
	pt3dadd(69.49, 65.12, -2.6, 0.6)
	pt3dadd(68.93, 64.12, -2.6, 0.6)
	pt3dadd(69.12, 62.79, -2.6, 0.6)
	pt3dadd(68.93, 61.3, -2.6, 0.6)
	pt3dadd(68.93, 59.97, -2.6, 0.6)
	pt3dadd(69.49, 58.31, -2.6, 0.6)
  }
  dend[497] {pt3dclear()
	pt3dadd(76.5, 74.26, -1.76, 1.2)
	pt3dadd(78.9, 73.76, -2.08, 1.2)
	pt3dadd(80.37, 73.59, -2.08, 1.2)
  }
  dend[498] {pt3dclear()
	pt3dadd(80.37, 73.59, -2.08, 1.2)
	pt3dadd(82.22, 72.43, -3.04, 0.6)
	pt3dadd(84.43, 70.6, -3.04, 0.6)
	pt3dadd(86.65, 68.94, -3.04, 0.6)
	pt3dadd(88.49, 67.11, -3.04, 1.2)
	pt3dadd(89.97, 65.29, -4.4, 1.2)
  }
  dend[499] {pt3dclear()
	pt3dadd(89.97, 65.29, -4.4, 1.2)
	pt3dadd(89.6, 63.79, -4.44, 0.6)
	pt3dadd(89.6, 61.96, -4.44, 0.6)
	pt3dadd(89.6, 59.64, -2.8, 0.6)
	pt3dadd(89.78, 58.48, -2.8, 0.6)
	pt3dadd(91.44, 57.98, -2.8, 1.2)
	pt3dadd(92.73, 58.48, -2.8, 1.2)
	pt3dadd(93.47, 58.97, -2.8, 1.2)
  }
  dend[500] {pt3dclear()
	pt3dadd(89.97, 65.29, -4.4, 1.2)
	pt3dadd(92.18, 64.95, -4.6, 0.6)
	pt3dadd(94.03, 64.46, -4.6, 0.6)
	pt3dadd(95.87, 63.96, -4.6, 0.6)
	pt3dadd(97.35, 64.12, -4.6, 0.6)
	pt3dadd(98.45, 65.29, -4.6, 0.6)
  }
  dend[501] {pt3dclear()
	pt3dadd(80.37, 73.59, -2.08, 1.2)
	pt3dadd(82.03, 74.59, -2.84, 0.6)
	pt3dadd(83.88, 74.75, -2.84, 0.6)
	pt3dadd(86.28, 76.25, -2.84, 0.6)
  }
  dend[502] {pt3dclear()
	pt3dadd(74.47, 79.57, -2.24, 1.2)
	pt3dadd(76.87, 79.9, -2.76, 1.2)
	pt3dadd(78.9, 79.24, -2.76, 1.2)
	pt3dadd(81.11, 78.24, -2.76, 1.2)
	pt3dadd(82.59, 77.74, -3.52, 1.2)
	pt3dadd(84.25, 78.08, -3.52, 0.6)
	pt3dadd(85.54, 79.07, -3.52, 0.6)
	pt3dadd(87.02, 80.73, -3.52, 0.6)
	pt3dadd(87.75, 81.9, -3.52, 0.6)
	pt3dadd(88.31, 82.73, -3.16, 0.6)
  }
  dend[503] {pt3dclear()
	pt3dadd(73.36, 87.38, -3.2, 2.7)
	pt3dadd(75.94, 86.88, -2.44, 1.2)
	pt3dadd(78.16, 86.38, -2.44, 1.8)
	pt3dadd(80.93, 85.39, -2.16, 2.1)
  }
  dend[504] {pt3dclear()
	pt3dadd(80.93, 85.39, -2.16, 2.1)
	pt3dadd(82.59, 83.39, -2.24, 1.2)
	pt3dadd(84.43, 81.57, -2.24, 1.2)
	pt3dadd(86.46, 79.9, -2.24, 1.2)
	pt3dadd(87.75, 78.08, -2.24, 1.2)
	pt3dadd(89.6, 76.58, -2.24, 1.2)
  }
  dend[505] {pt3dclear()
	pt3dadd(89.6, 76.58, -2.24, 1.2)
	pt3dadd(90.34, 73.92, -2.56, 0.6)
	pt3dadd(90.15, 71.6, -2.56, 0.6)
	pt3dadd(89.6, 69.44, -2.56, 0.6)
  }
  dend[506] {pt3dclear()
	pt3dadd(89.6, 76.58, -2.24, 1.2)
	pt3dadd(91.63, 76.08, -2.68, 1.2)
	pt3dadd(93.47, 75.75, -2.68, 1.2)
	pt3dadd(95.32, 74.75, -2.68, 1.2)
  }
  dend[507] {pt3dclear()
	pt3dadd(95.32, 74.75, -2.68, 1.2)
	pt3dadd(94.95, 72.93, -2.36, 1.2)
	pt3dadd(94.95, 71.27, -2.36, 1.2)
	pt3dadd(95.5, 69.94, -2.36, 1.2)
  }
  dend[508] {pt3dclear()
	pt3dadd(95.5, 69.94, -2.36, 1.2)
	pt3dadd(94.76, 68.11, -2.04, 0.6)
	pt3dadd(94.4, 66.95, -2.04, 0.6)
	pt3dadd(93.1, 65.45, -2.04, 0.6)
	pt3dadd(92, 63.79, -2.04, 0.6)
	pt3dadd(90.52, 62.46, -2.04, 0.6)
	pt3dadd(88.86, 60.97, -2.04, 0.6)
  }
  dend[509] {pt3dclear()
	pt3dadd(95.5, 69.94, -2.36, 1.2)
	pt3dadd(98.27, 68.77, -1.92, 0.6)
  }
  dend[510] {pt3dclear()
	pt3dadd(95.32, 74.75, -2.68, 1.2)
	pt3dadd(97.35, 74.42, -2.88, 0.6)
	pt3dadd(98.82, 74.26, -2.88, 0.6)
  }
  dend[511] {pt3dclear()
	pt3dadd(98.82, 74.26, -2.88, 0.6)
	pt3dadd(99.56, 72.6, -2.12, 0.6)
	pt3dadd(100.67, 70.6, -2.12, 0.3)
  }
  dend[512] {pt3dclear()
	pt3dadd(98.82, 74.26, -2.88, 0.6)
	pt3dadd(100.67, 75.59, -2.84, 0.6)
	pt3dadd(101.78, 77.08, -2.84, 0.3)
  }
  dend[513] {pt3dclear()
	pt3dadd(80.93, 85.39, -2.16, 2.1)
  }
}
proc shape3d_14() {
  dend[513] {	pt3dadd(82.77, 86.55, -2.2, 0.6)
	pt3dadd(84.99, 87.55, -2.2, 0.6)
	pt3dadd(85.91, 87.88, -2.24, 1.8)
	pt3dadd(87.38, 86.71, -2.24, 1.8)
	pt3dadd(89.23, 84.89, -0.04, 1.8)
	pt3dadd(91.44, 82.89, -0.04, 1.8)
	pt3dadd(93.47, 81.9, -0.64, 1.8)
	pt3dadd(95.5, 81.07, -0.68, 1.2)
  }
  dend[514] {pt3dclear()
	pt3dadd(95.5, 81.07, -0.68, 1.2)
	pt3dadd(96.79, 79.41, -0.2, 0.6)
	pt3dadd(97.72, 77.74, -0.2, 0.6)
	pt3dadd(97.53, 76.58, -0.2, 0.6)
	pt3dadd(97.16, 74.59, 0.6, 1.2)
	pt3dadd(97.35, 71.93, 0.6, 1.2)
  }
  dend[515] {pt3dclear()
	pt3dadd(95.5, 81.07, -0.68, 1.2)
	pt3dadd(97.53, 82.73, -1, 1.2)
	pt3dadd(99.38, 83.23, -1, 1.2)
	pt3dadd(101.22, 84.22, -1, 1.2)
	pt3dadd(102.7, 84.72, -1, 1.2)
  }
  dend[516] {pt3dclear()
	pt3dadd(72.05, 90.51, -0.6, 2.7)
	pt3dadd(74.63, 91.17, 0.52, 3)
	pt3dadd(76.48, 91.84, 0.52, 2.1)
	pt3dadd(78.69, 92.67, 0.72, 2.1)
	pt3dadd(81.46, 93.83, 1.28, 3)
	pt3dadd(82.57, 94.33, 1.28, 3)
  }
  dend[517] {pt3dclear()
	pt3dadd(82.57, 94.33, 1.28, 3)
	pt3dadd(85.04, 93.2, -0.16, 0.6)
	pt3dadd(86.89, 92.53, -0.16, 1.2)
	pt3dadd(88.36, 92.87, 0.48, 1.2)
	pt3dadd(90.02, 93.03, 0.48, 1.2)
  }
  dend[518] {pt3dclear()
	pt3dadd(90.02, 93.03, 0.48, 1.2)
	pt3dadd(91.31, 90.37, 0.24, 1.2)
  }
  dend[519] {pt3dclear()
	pt3dadd(91.31, 90.37, 0.24, 1.2)
	pt3dadd(91.68, 88.38, -0.6, 1.8)
	pt3dadd(92.42, 86.72, -1, 1.2)
  }
  dend[520] {pt3dclear()
	pt3dadd(92.42, 86.72, -1, 1.2)
	pt3dadd(92.79, 85.06, -1.76, 0.6)
	pt3dadd(93.53, 83.73, -1.76, 0.6)
	pt3dadd(93.9, 82.4, -1.76, 0.6)
	pt3dadd(93.53, 81.57, -1.76, 0.6)
	pt3dadd(92.97, 80.24, -2.56, 0.6)
	pt3dadd(92.79, 79.24, -2.56, 0.3)
	pt3dadd(93.53, 78.41, -2.56, 0.3)
	pt3dadd(94.08, 77.25, -2.56, 0.3)
	pt3dadd(94.08, 76.59, -2.56, 0.3)
  }
  dend[521] {pt3dclear()
	pt3dadd(92.42, 86.72, -1, 1.2)
	pt3dadd(94.45, 86.39, -0.4, 0.6)
	pt3dadd(95.74, 85.39, -0.4, 0.6)
	pt3dadd(97.03, 84.56, -0.4, 0.6)
	pt3dadd(97.22, 83.23, -0.4, 0.6)
  }
  dend[522] {pt3dclear()
	pt3dadd(91.31, 90.37, 0.24, 1.2)
	pt3dadd(95.19, 89.54, 0.68, 1.8)
  }
  dend[523] {pt3dclear()
	pt3dadd(90.02, 93.03, 0.48, 1.2)
	pt3dadd(92.24, 93.86, 0.44, 0.6)
	pt3dadd(93.53, 95.19, 0.44, 0.6)
	pt3dadd(94.08, 97.52, 0.44, 0.6)
	pt3dadd(94.08, 98.85, 0.04, 0.6)
	pt3dadd(94.27, 100.84, 0.04, 0.6)
	pt3dadd(94.27, 102.83, 0.04, 0.6)
  }
  dend[524] {pt3dclear()
	pt3dadd(82.57, 94.33, 1.28, 3)
	pt3dadd(84.41, 95.99, 1.28, 2.1)
	pt3dadd(86.26, 97.99, 1.28, 2.1)
	pt3dadd(88.1, 100.14, 1.28, 2.1)
  }
  dend[525] {pt3dclear()
	pt3dadd(88.1, 100.14, 1.28, 2.1)
	pt3dadd(88.68, 99.76, 0.52, 2.1)
	pt3dadd(90.15, 100.26, 0.52, 2.1)
	pt3dadd(91.26, 100.76, -0.36, 2.1)
	pt3dadd(92.18, 100.76, -0.4, 2.1)
	pt3dadd(93.29, 101.09, -1.8, 2.1)
	pt3dadd(95.87, 101.26, -1.12, 2.1)
  }
  dend[526] {pt3dclear()
	pt3dadd(95.87, 101.26, -1.12, 2.1)
	pt3dadd(97.03, 99.01, -3.08, 1.2)
	pt3dadd(98.14, 97.35, -1.92, 1.2)
	pt3dadd(98.51, 95.86, -2.4, 1.2)
	pt3dadd(98.32, 95.52, -2.4, 1.2)
  }
  dend[527] {pt3dclear()
	pt3dadd(98.32, 95.52, -2.4, 1.2)
	pt3dadd(98.32, 94.03, -3.96, 1.2)
  }
  dend[528] {pt3dclear()
	pt3dadd(98.32, 94.03, -3.96, 1.2)
	pt3dadd(98.14, 92.7, -3.52, 1.2)
  }
  dend[529] {pt3dclear()
	pt3dadd(98.14, 92.7, -3.52, 1.2)
	pt3dadd(96.3, 91.87, -4.8, 0.6)
	pt3dadd(95.19, 91.04, -4.8, 0.6)
	pt3dadd(93.71, 90.04, -4.8, 0.6)
	pt3dadd(91.5, 89.04, -4.8, 0.6)
	pt3dadd(90.02, 87.38, -4.76, 0.6)
	pt3dadd(89.1, 86.22, -4.76, 0.6)
  }
  dend[530] {pt3dclear()
	pt3dadd(98.14, 92.7, -3.52, 1.2)
	pt3dadd(98.88, 91.37, -3.24, 0.6)
	pt3dadd(99.25, 89.88, -3.24, 0.6)
	pt3dadd(99.06, 88.71, -3.24, 0.6)
	pt3dadd(98.51, 87.22, -3.24, 0.6)
	pt3dadd(97.96, 85.39, -3.64, 0.6)
	pt3dadd(97.59, 84.23, -3.64, 0.6)
	pt3dadd(97.03, 81.9, -3.64, 0.6)
	pt3dadd(96.3, 80.41, -3.64, 0.6)
  }
  dend[531] {pt3dclear()
	pt3dadd(98.32, 94.03, -3.96, 1.2)
	pt3dadd(100.35, 93.53, -3.64, 0.6)
	pt3dadd(101.65, 92.53, -3.84, 0.6)
	pt3dadd(102.2, 91.7, -3.84, 0.6)
  }
  dend[532] {pt3dclear()
	pt3dadd(102.2, 91.7, -3.84, 0.6)
	pt3dadd(102.01, 89.88, -3.32, 0.6)
	pt3dadd(102.01, 88.38, -3.32, 0.6)
	pt3dadd(102.2, 87.05, -3.32, 0.6)
	pt3dadd(102.94, 86.22, -3.32, 0.6)
	pt3dadd(103.49, 85.06, -3.76, 0.6)
  }
  dend[533] {pt3dclear()
	pt3dadd(103.49, 85.06, -3.76, 0.6)
	pt3dadd(102.57, 83.4, -3.12, 0.6)
  }
  dend[534] {pt3dclear()
	pt3dadd(103.49, 85.06, -3.76, 0.6)
	pt3dadd(105.7, 86.89, -3.76, 0.3)
  }
  dend[535] {pt3dclear()
	pt3dadd(102.2, 91.7, -3.84, 0.6)
	pt3dadd(104.23, 91.54, -4.4, 0.6)
	pt3dadd(105.34, 91.54, -4.4, 0.6)
	pt3dadd(107.18, 92.03, -4.44, 0.6)
	pt3dadd(108.1, 93.2, -4.44, 0.6)
  }
  dend[536] {pt3dclear()
	pt3dadd(98.32, 95.52, -2.4, 1.2)
	pt3dadd(99.99, 95.52, -2.84, 0.6)
	pt3dadd(101.46, 95.86, -2.84, 0.6)
	pt3dadd(103.49, 96.19, -1.68, 0.6)
	pt3dadd(104.78, 96.52, -1.04, 0.6)
  }
  dend[537] {pt3dclear()
	pt3dadd(104.78, 96.52, -1.04, 0.6)
	pt3dadd(106.26, 95.69, -1.04, 0.6)
	pt3dadd(106.44, 94.36, -1.04, 0.6)
	pt3dadd(106.44, 93.36, -1.32, 0.6)
	pt3dadd(106.44, 91.87, -0.48, 0.6)
  }
  dend[538] {pt3dclear()
	pt3dadd(104.78, 96.52, -1.04, 0.6)
	pt3dadd(105.52, 97.35, -1.12, 0.6)
	pt3dadd(106.07, 98.02, -1.12, 0.6)
	pt3dadd(107.92, 99.18, -1.12, 0.6)
  }
  dend[539] {pt3dclear()
	pt3dadd(95.87, 101.26, -1.12, 2.1)
	pt3dadd(98.27, 101.59, -1.16, 1.8)
	pt3dadd(100.3, 101.75, -0.92, 2.1)
  }
  dend[540] {pt3dclear()
	pt3dadd(100.3, 101.75, -0.92, 2.1)
	pt3dadd(102.38, 101.01, -1.72, 1.8)
	pt3dadd(104.23, 100.67, -0.88, 1.2)
	pt3dadd(104.97, 100.67, -0.88, 1.2)
  }
  dend[541] {pt3dclear()
	pt3dadd(104.97, 100.67, -0.88, 1.2)
	pt3dadd(106.63, 100.51, -0.04, 1.2)
	pt3dadd(108.29, 99.84, -0.04, 1.2)
  }
  dend[542] {pt3dclear()
	pt3dadd(108.29, 99.84, -0.04, 1.2)
	pt3dadd(109.03, 98.51, -1.52, 1.8)
  }
  dend[543] {pt3dclear()
	pt3dadd(109.03, 98.51, -1.52, 1.8)
	pt3dadd(108.66, 96.69, -1, 1.2)
	pt3dadd(108.66, 95.02, -1.52, 1.2)
	pt3dadd(108.29, 93.7, -1.52, 1.2)
  }
  dend[544] {pt3dclear()
	pt3dadd(108.29, 93.7, -1.52, 1.2)
	pt3dadd(107.37, 91.87, -1, 1.2)
	pt3dadd(106.44, 89.88, -1.16, 1.2)
	pt3dadd(106.07, 87.72, -1.16, 1.2)
  }
  dend[545] {pt3dclear()
	pt3dadd(106.07, 87.72, -1.16, 1.2)
	pt3dadd(105.89, 85.89, -0.72, 1.2)
	pt3dadd(106.07, 83.9, -0.72, 1.2)
	pt3dadd(107, 81.74, -1.04, 1.2)
	pt3dadd(107.73, 79.58, -1.04, 1.2)
	pt3dadd(108.1, 77.42, -1.04, 1.2)
	pt3dadd(108.1, 75.26, -1.04, 1.2)
	pt3dadd(107.73, 73.26, -0.68, 1.2)
	pt3dadd(106.63, 71.77, -0.68, 1.2)
	pt3dadd(105.52, 70.44, -0.68, 1.2)
	pt3dadd(103.86, 68.95, -0.12, 0.6)
  }
  dend[546] {pt3dclear()
	pt3dadd(106.07, 87.72, -1.16, 1.2)
	pt3dadd(107.92, 86.72, -1.36, 1.2)
	pt3dadd(109.39, 86.55, -1.36, 1.2)
	pt3dadd(111.98, 86.05, -0.72, 1.2)
	pt3dadd(113.27, 85.39, -0.72, 1.2)
	pt3dadd(113.45, 83.73, -0.72, 1.2)
	pt3dadd(113.08, 82.07, -0.4, 0.6)
	pt3dadd(113.08, 81.24, -0.04, 0.6)
  }
  dend[547] {pt3dclear()
	pt3dadd(108.29, 93.7, -1.52, 1.2)
	pt3dadd(110.5, 92.03, -0.96, 0.6)
	pt3dadd(111.98, 92.03, -0.96, 0.6)
	pt3dadd(113.64, 91.7, -2.24, 1.2)
	pt3dadd(114.75, 91.87, -1.84, 1.2)
	pt3dadd(116.04, 92.2, -1.84, 0.6)
  }
  dend[548] {pt3dclear()
	pt3dadd(109.03, 98.51, -1.52, 1.8)
	pt3dadd(111.42, 97.35, 0.16, 1.2)
	pt3dadd(114.38, 95.69, 0.16, 1.2)
	pt3dadd(116.59, 94.36, -0.16, 1.2)
	pt3dadd(118.8, 94.53, 0.96, 1.2)
  }
  dend[549] {pt3dclear()
	pt3dadd(118.8, 94.53, 0.96, 1.2)
	pt3dadd(119.73, 93.36, 0.08, 1.2)
	pt3dadd(120.65, 92.7, 0.08, 1.2)
	pt3dadd(122.49, 92.7, 0.08, 1.2)
	pt3dadd(123.79, 92.87, 1.28, 0.6)
	pt3dadd(124.52, 93.2, 1.28, 0.6)
	pt3dadd(125.63, 94.36, 1.8, 1.2)
	pt3dadd(126.37, 95.36, 1.8, 1.2)
	pt3dadd(126.74, 96.35, 1.8, 1.2)
  }
  dend[550] {pt3dclear()
	pt3dadd(118.8, 94.53, 0.96, 1.2)
	pt3dadd(120.1, 96.35, 0.72, 1.2)
	pt3dadd(120.83, 97.52, 0.72, 0.6)
	pt3dadd(122.68, 98.85, -0.08, 0.6)
  }
  dend[551] {pt3dclear()
	pt3dadd(108.29, 99.84, -0.04, 1.2)
	pt3dadd(109.58, 101.17, -1.32, 1.2)
	pt3dadd(110.87, 102.83, -1.32, 1.2)
	pt3dadd(112.53, 104.16, -1.32, 0.6)
	pt3dadd(113.82, 105.49, -0.64, 1.2)
  }
  dend[552] {pt3dclear()
	pt3dadd(113.82, 105.49, -0.64, 1.2)
	pt3dadd(115.67, 104.66, -0.92, 1.2)
	pt3dadd(116.77, 104.83, -0.92, 1.2)
	pt3dadd(118.25, 104.99, -0.92, 1.2)
  }
}
proc shape3d_15() {
  dend[552] {	pt3dadd(120.1, 104.49, -0.32, 1.2)
	pt3dadd(122.31, 103.83, -0.32, 1.2)
  }
  dend[553] {pt3dclear()
	pt3dadd(122.31, 103.83, -0.32, 1.2)
	pt3dadd(123.23, 102.33, -0.08, 1.2)
	pt3dadd(124.34, 101.01, -0.08, 1.2)
	pt3dadd(125.82, 101.17, -0.08, 1.2)
	pt3dadd(127.48, 102.17, -0.24, 1.8)
	pt3dadd(129.32, 102.67, -0.24, 1.8)
	pt3dadd(131.17, 103.83, -2.28, 1.8)
	pt3dadd(133.56, 104.66, -1.96, 1.2)
	pt3dadd(135.78, 105.16, -1.96, 1.2)
	pt3dadd(137.99, 105.99, -1.96, 1.2)
	pt3dadd(139.1, 106.65, -2.72, 1.2)
  }
  dend[554] {pt3dclear()
	pt3dadd(139.1, 106.65, -2.72, 1.2)
	pt3dadd(141.13, 106.82, -3, 0.6)
	pt3dadd(143.71, 107.65, -3, 0.3)
  }
  dend[555] {pt3dclear()
	pt3dadd(139.1, 106.65, -2.72, 1.2)
	pt3dadd(138.73, 108.65, -2.2, 0.6)
	pt3dadd(138.55, 109.98, -2.2, 0.6)
  }
  dend[556] {pt3dclear()
	pt3dadd(122.31, 103.83, -0.32, 1.2)
	pt3dadd(123.05, 105.32, -0.28, 1.2)
	pt3dadd(123.6, 106.65, 0.32, 1.2)
	pt3dadd(124.89, 107.32, 0.32, 1.2)
	pt3dadd(126.55, 107.48, 0.32, 1.8)
	pt3dadd(128.4, 107.65, 0.32, 1.2)
	pt3dadd(129.69, 107.15, -1.2, 1.2)
  }
  dend[557] {pt3dclear()
	pt3dadd(113.82, 105.49, -0.64, 1.2)
	pt3dadd(115.3, 107.48, -0.2, 0.6)
	pt3dadd(116.96, 108.81, -0.16, 1.2)
	pt3dadd(118.99, 109.31, -0.16, 0.6)
	pt3dadd(121.57, 108.98, 0.56, 0.6)
  }
  dend[558] {pt3dclear()
	pt3dadd(104.97, 100.67, -0.88, 1.2)
	pt3dadd(106.07, 102, -1.6, 0.3)
	pt3dadd(107, 102.17, -1.6, 0.3)
	pt3dadd(108.47, 101.84, -1.6, 0.3)
  }
  dend[559] {pt3dclear()
	pt3dadd(100.3, 101.75, -0.92, 2.1)
	pt3dadd(102.15, 103.75, -0.88, 1.2)
	pt3dadd(103.07, 105.24, -0.88, 1.2)
	pt3dadd(104.91, 106.41, -1.12, 1.2)
	pt3dadd(106.76, 107.9, -0.92, 1.2)
	pt3dadd(108.05, 109.4, -1.84, 1.2)
	pt3dadd(109.71, 110.56, -2.52, 1.8)
	pt3dadd(111.37, 112.72, -2.76, 1.8)
  }
  dend[560] {pt3dclear()
	pt3dadd(111.37, 112.72, -2.76, 1.8)
	pt3dadd(113.58, 112.22, -2.28, 1.2)
	pt3dadd(115.98, 112.22, -2.68, 1.2)
  }
  dend[561] {pt3dclear()
	pt3dadd(115.98, 112.22, -2.68, 1.2)
	pt3dadd(118.2, 112.22, -2.32, 1.2)
	pt3dadd(119.86, 112.39, -2.32, 0.6)
	pt3dadd(120.6, 112.72, -2.32, 1.2)
	pt3dadd(121.89, 113.55, -2.24, 1.8)
	pt3dadd(122.81, 114.71, -2.24, 1.2)
	pt3dadd(123.55, 116.54, -2.32, 0.6)
  }
  dend[562] {pt3dclear()
	pt3dadd(115.98, 112.22, -2.68, 1.2)
	pt3dadd(116.54, 114.05, -2.72, 0.6)
	pt3dadd(117.09, 115.04, -2.72, 0.6)
	pt3dadd(118.75, 116.21, -2.04, 1.2)
	pt3dadd(120.23, 117.7, -2.04, 1.2)
	pt3dadd(121.7, 118.86, -2.04, 1.2)
	pt3dadd(122.44, 120.52, -2.04, 1.2)
	pt3dadd(124.29, 121.02, -3.08, 1.2)
	pt3dadd(125.95, 121.69, -3.08, 1.2)
  }
  dend[563] {pt3dclear()
	pt3dadd(111.37, 112.72, -2.76, 1.8)
	pt3dadd(111.74, 113.55, -2.76, 1.8)
  }
  dend[564] {pt3dclear()
	pt3dadd(111.74, 113.55, -2.76, 1.8)
	pt3dadd(112.48, 114.88, -3.24, 1.2)
	pt3dadd(113.4, 116.37, -3.24, 1.2)
  }
  dend[565] {pt3dclear()
	pt3dadd(113.4, 116.37, -3.24, 1.2)
	pt3dadd(114.69, 117.7, -3.08, 1.2)
	pt3dadd(115.8, 119.2, -3.08, 1.2)
	pt3dadd(116.72, 120.36, -3.08, 1.2)
  }
  dend[566] {pt3dclear()
	pt3dadd(116.72, 120.36, -3.08, 1.2)
	pt3dadd(118.75, 120.86, -2.52, 0.6)
	pt3dadd(120.04, 122.19, -2.52, 0.6)
	pt3dadd(121.52, 123.68, -2.52, 0.6)
	pt3dadd(123.18, 125.51, -2.56, 0.6)
	pt3dadd(125.21, 126.84, -3.36, 0.6)
	pt3dadd(126.32, 127.34, -2.4, 0.6)
	pt3dadd(127.61, 126.84, -2.4, 0.3)
  }
  dend[567] {pt3dclear()
	pt3dadd(116.72, 120.36, -3.08, 1.2)
	pt3dadd(116.91, 121.52, -3.24, 0.6)
	pt3dadd(117.27, 122.68, -3.24, 0.6)
	pt3dadd(118.01, 123.02, -3.24, 0.6)
	pt3dadd(119.3, 123.68, -3.24, 0.6)
	pt3dadd(120.23, 125.84, -4.72, 0.6)
	pt3dadd(120.6, 128, -4.72, 1.2)
	pt3dadd(120.96, 129.99, -4.72, 1.2)
	pt3dadd(121.7, 131.49, -4.72, 1.2)
	pt3dadd(122.99, 133.15, -4.72, 1.2)
  }
  dend[568] {pt3dclear()
	pt3dadd(113.4, 116.37, -3.24, 1.2)
	pt3dadd(112.48, 118.03, -2.8, 0.6)
	pt3dadd(111.92, 119.53, -2.8, 0.6)
	pt3dadd(111.19, 121.52, -2.8, 0.6)
	pt3dadd(110.45, 124.35, -2.8, 0.6)
	pt3dadd(110.82, 125.84, -2.8, 0.6)
	pt3dadd(111.19, 128.17, -2.8, 0.6)
  }
  dend[569] {pt3dclear()
	pt3dadd(111.74, 113.55, -2.76, 1.8)
	pt3dadd(110.26, 114.38, -2.88, 0.6)
	pt3dadd(109.34, 115.71, -2.88, 0.6)
	pt3dadd(108.6, 117.2, -2.88, 0.6)
	pt3dadd(107.13, 118.03, -2.88, 0.6)
	pt3dadd(106.02, 118.7, -2.96, 0.6)
	pt3dadd(104.91, 119.36, -2.96, 0.6)
	pt3dadd(104.36, 120.36, -2.96, 0.6)
	pt3dadd(104.36, 121.02, -2.96, 0.6)
	pt3dadd(104.36, 122.19, -2.96, 0.6)
  }
  dend[570] {pt3dclear()
	pt3dadd(88.1, 100.14, 1.28, 2.1)
	pt3dadd(89.02, 102.64, 0.52, 2.1)
	pt3dadd(90.68, 104.46, 0.52, 2.1)
	pt3dadd(92.53, 106.96, 2.28, 2.1)
	pt3dadd(93.27, 109.45, 1.24, 2.1)
	pt3dadd(93.27, 110.61, 1.24, 2.1)
  }
  dend[571] {pt3dclear()
	pt3dadd(93.27, 110.61, 1.24, 2.1)
	pt3dadd(95.31, 111.79, 1.48, 1.2)
	pt3dadd(97.15, 113.62, 0.84, 1.2)
	pt3dadd(98.63, 115.28, 1, 1.2)
	pt3dadd(99.55, 116.61, 1, 1.8)
	pt3dadd(101.21, 117.6, -0.2, 1.8)
	pt3dadd(103.43, 118.1, -0.28, 1.8)
  }
  dend[572] {pt3dclear()
	pt3dadd(103.43, 118.1, -0.28, 1.8)
	pt3dadd(105.27, 115.94, -1.04, 1.2)
	pt3dadd(106.38, 114.45, -1.04, 0.6)
	pt3dadd(107.12, 113.28, -1.04, 0.6)
	pt3dadd(107.12, 111.96, -1.04, 0.3)
	pt3dadd(106.38, 110.13, 0.68, 0.3)
  }
  dend[573] {pt3dclear()
	pt3dadd(103.43, 118.1, -0.28, 1.8)
	pt3dadd(103.98, 119.43, 0.28, 1.2)
	pt3dadd(105.46, 120.76, 0.28, 1.2)
	pt3dadd(106.75, 121.59, 0.28, 1.2)
	pt3dadd(108.04, 122.09, -0.16, 1.2)
	pt3dadd(109.7, 122.59, -0.6, 1.2)
	pt3dadd(111.18, 123.09, -0.6, 1.2)
  }
  dend[574] {pt3dclear()
	pt3dadd(111.18, 123.09, -0.6, 1.2)
	pt3dadd(112.84, 122.09, -0.44, 0.6)
	pt3dadd(114.68, 120.93, -0.44, 0.6)
	pt3dadd(116.53, 121.26, -0.44, 0.6)
	pt3dadd(118.37, 121.92, -0.44, 0.6)
  }
  dend[575] {pt3dclear()
	pt3dadd(111.18, 123.09, -0.6, 1.2)
	pt3dadd(111.92, 124.75, 0.32, 1.2)
	pt3dadd(112.65, 126.08, 0.32, 1.2)
  }
  dend[576] {pt3dclear()
	pt3dadd(112.65, 126.08, 0.32, 1.2)
	pt3dadd(114.87, 125.41, 0.6, 1.2)
	pt3dadd(116.71, 125.24, 0.6, 0.6)
	pt3dadd(118.56, 126.24, 0.6, 0.6)
	pt3dadd(119.85, 127.74, 0.6, 0.6)
	pt3dadd(121.69, 130.06, 0.6, 0.6)
  }
  dend[577] {pt3dclear()
	pt3dadd(112.65, 126.08, 0.32, 1.2)
	pt3dadd(112.65, 127.74, -0.04, 0.6)
	pt3dadd(113.39, 129.4, -1.68, 0.6)
  }
  dend[578] {pt3dclear()
	pt3dadd(93.27, 110.61, 1.24, 2.1)
	pt3dadd(92.35, 112.44, 0.36, 2.1)
	pt3dadd(91.79, 115.59, 0, 2.1)
  }
  dend[579] {pt3dclear()
	pt3dadd(91.79, 115.59, 0, 2.1)
	pt3dadd(92.91, 118.1, 1, 1.2)
	pt3dadd(94.02, 119.6, 1, 1.2)
	pt3dadd(95.31, 121.26, 1, 1.8)
	pt3dadd(97.34, 123.25, 1.76, 1.8)
  }
  dend[580] {pt3dclear()
	pt3dadd(97.34, 123.25, 1.76, 1.8)
	pt3dadd(99.37, 123.42, 1.96, 1.2)
	pt3dadd(101.03, 123.92, 2, 1.2)
	pt3dadd(103.43, 124.25, 2, 1.2)
	pt3dadd(105.09, 125.58, 2.36, 1.2)
	pt3dadd(106.01, 127.24, 2.36, 1.2)
	pt3dadd(106.75, 128.73, 1.88, 0.6)
	pt3dadd(107.49, 129.56, 1.88, 0.6)
	pt3dadd(106.75, 130.56, 1.88, 0.6)
  }
  dend[581] {pt3dclear()
	pt3dadd(97.34, 123.25, 1.76, 1.8)
	pt3dadd(97.52, 124.58, 1.12, 1.2)
	pt3dadd(98.26, 125.58, 1.12, 1.2)
	pt3dadd(99.74, 127.24, 0.84, 1.2)
	pt3dadd(100.84, 128.57, 1.88, 1.8)
	pt3dadd(101.77, 130.39, 1.28, 1.8)
	pt3dadd(102.69, 131.72, 0.88, 1.8)
  }
  dend[582] {pt3dclear()
	pt3dadd(102.69, 131.72, 0.88, 1.8)
	pt3dadd(104.17, 131.72, 2.92, 1.2)
	pt3dadd(106.01, 132.72, 2.92, 1.2)
	pt3dadd(106.93, 133.88, 2.72, 1.2)
	pt3dadd(107.49, 135.21, 2.72, 1.2)
	pt3dadd(108.22, 136.87, 2.4, 1.2)
	pt3dadd(108.96, 138.2, 2.4, 1.2)
	pt3dadd(109.33, 139.7, 2.4, 1.8)
	pt3dadd(109.89, 141.03, 2.4, 1.8)
  }
  dend[583] {pt3dclear()
	pt3dadd(109.89, 141.03, 2.4, 1.8)
	pt3dadd(111.55, 141.36, 1.08, 0.6)
	pt3dadd(112.65, 141.86, 1.08, 0.6)
	pt3dadd(114.13, 142.52, 1.08, 0.6)
	pt3dadd(114.87, 143.68, 1.08, 0.6)
	pt3dadd(115.42, 145.01, 1.08, 0.6)
	pt3dadd(115.61, 146.67, 1.08, 0.6)
	pt3dadd(115.79, 147.84, 1.08, 0.6)
  }
  dend[584] {pt3dclear()
	pt3dadd(109.89, 141.03, 2.4, 1.8)
	pt3dadd(109.52, 143.02, 1.68, 0.6)
	pt3dadd(109.15, 144.35, 2.28, 1.2)
	pt3dadd(108.96, 145.68, 2.28, 1.2)
	pt3dadd(109.15, 147.17, 2.2, 1.2)
	pt3dadd(109.52, 148, 2.2, 1.2)
  }
  dend[585] {pt3dclear()
	pt3dadd(102.69, 131.72, 0.88, 1.8)
	pt3dadd(101.77, 132.39, 0.88, 1.2)
	pt3dadd(101.58, 133.55, 0.88, 1.2)
	pt3dadd(102.14, 135.21, 0.96, 0.6)
  }
}
proc shape3d_16() {
  dend[585] {	pt3dadd(102.69, 137.04, 1.12, 0.6)
  }
  dend[586] {pt3dclear()
	pt3dadd(102.69, 137.04, 1.12, 0.6)
	pt3dadd(103.61, 138.7, 0.92, 0.6)
	pt3dadd(104.17, 140.03, 0.92, 0.6)
	pt3dadd(104.17, 140.86, 0.92, 0.6)
	pt3dadd(103.8, 141.69, 0.92, 0.6)
  }
  dend[587] {pt3dclear()
	pt3dadd(102.69, 137.04, 1.12, 0.6)
	pt3dadd(101.21, 138.2, 0.76, 0.6)
	pt3dadd(99.74, 139.7, 0.76, 0.6)
	pt3dadd(98.26, 140.36, 0.76, 0.6)
	pt3dadd(96.79, 140.36, 0.28, 0.6)
	pt3dadd(95.86, 139.86, 0.28, 0.6)
	pt3dadd(94.39, 139.53, 0.28, 0.6)
  }
  dend[588] {pt3dclear()
	pt3dadd(91.79, 115.59, 0, 2.1)
	pt3dadd(90.32, 116.76, -0.12, 3)
	pt3dadd(88.84, 117.59, -0.12, 3)
  }
  dend[589] {pt3dclear()
	pt3dadd(88.84, 117.59, -0.12, 3)
	pt3dadd(88.71, 120.51, -0.72, 2.1)
	pt3dadd(88.16, 121.67, -0.72, 2.1)
	pt3dadd(89.08, 123, -1.96, 2.1)
	pt3dadd(89.63, 124.66, -1.8, 2.1)
	pt3dadd(89.45, 126.32, -1.8, 1.8)
	pt3dadd(88.71, 127.99, -2.04, 1.8)
	pt3dadd(87.97, 130.31, -2.04, 2.1)
	pt3dadd(87.79, 131.81, -2.04, 2.1)
	pt3dadd(87.97, 133.8, -3, 2.1)
	pt3dadd(88.89, 137.12, -2.12, 2.1)
	pt3dadd(89.33, 139.11, -1.24, 3)
  }
  dend[590] {pt3dclear()
	pt3dadd(89.33, 139.11, -1.24, 3)
	pt3dadd(90.91, 139.77, -0.6, 1.2)
	pt3dadd(92.39, 140.77, -0.6, 1.2)
	pt3dadd(93.86, 142.93, -0.6, 1.2)
	pt3dadd(95.34, 144.92, -0.6, 1.2)
	pt3dadd(97.92, 146.91, -0.6, 1.2)
	pt3dadd(99.4, 149.07, -0.6, 1.2)
	pt3dadd(100.69, 151.07, -0.56, 1.2)
  }
  dend[591] {pt3dclear()
	pt3dadd(100.69, 151.07, -0.56, 1.2)
	pt3dadd(103.09, 151.73, -2, 1.2)
	pt3dadd(104.38, 151.73, -2, 1.2)
  }
  dend[592] {pt3dclear()
	pt3dadd(104.38, 151.73, -2, 1.2)
	pt3dadd(106.23, 150.23, -2, 1.2)
	pt3dadd(106.96, 149.74, -2.76, 1.2)
  }
  dend[593] {pt3dclear()
	pt3dadd(106.96, 149.74, -2.76, 1.2)
	pt3dadd(105.86, 148.08, -1.64, 0.6)
	pt3dadd(104.57, 146.91, -1.64, 0.6)
	pt3dadd(103.64, 145.75, -1.64, 0.6)
	pt3dadd(102.54, 144.92, -1.64, 0.6)
	pt3dadd(101.61, 143.76, -1.64, 0.6)
	pt3dadd(101.43, 142.59, -1.64, 0.6)
  }
  dend[594] {pt3dclear()
	pt3dadd(101.43, 142.59, -1.64, 0.6)
	pt3dadd(100.32, 141.6, -1.64, 0.3)
	pt3dadd(99.03, 141.26, -1.44, 0.6)
	pt3dadd(98.48, 140.27, -1.48, 0.6)
	pt3dadd(97.37, 139.11, -1.52, 0.6)
	pt3dadd(96.63, 138.11, -1.52, 0.6)
	pt3dadd(95.53, 136.78, -1.52, 0.6)
	pt3dadd(94.6, 135.62, -1.52, 0.6)
  }
  dend[595] {pt3dclear()
	pt3dadd(101.43, 142.59, -1.64, 0.6)
	pt3dadd(102.35, 141.26, -1.76, 0.6)
	pt3dadd(103.27, 140.43, -1.76, 0.6)
  }
  dend[596] {pt3dclear()
	pt3dadd(106.96, 149.74, -2.76, 1.2)
	pt3dadd(109.18, 150.4, -1.52, 1.2)
	pt3dadd(110.65, 150.57, -1.52, 1.2)
  }
  dend[597] {pt3dclear()
	pt3dadd(110.65, 150.57, -1.52, 1.2)
	pt3dadd(112.5, 150.4, -0.2, 1.2)
	pt3dadd(113.98, 151.07, -0.2, 1.2)
	pt3dadd(115.45, 152.23, -0.2, 1.2)
	pt3dadd(116.56, 153.89, -0.2, 0.6)
	pt3dadd(117.67, 155.55, 1.32, 0.6)
	pt3dadd(117.85, 157.05, 1.32, 1.2)
	pt3dadd(118.4, 158.87, 1.32, 1.2)
	pt3dadd(118.03, 161.03, 2.76, 0.6)
  }
  dend[598] {pt3dclear()
	pt3dadd(110.65, 150.57, -1.52, 1.2)
	pt3dadd(110.65, 152.23, -1.52, 0.3)
	pt3dadd(110.1, 153.72, -1.52, 0.3)
  }
  dend[599] {pt3dclear()
	pt3dadd(104.38, 151.73, -2, 1.2)
	pt3dadd(105.67, 152.89, -1.88, 0.6)
	pt3dadd(106.41, 154.55, -1.88, 0.6)
	pt3dadd(108.26, 154.72, -3.56, 0.6)
	pt3dadd(109.36, 156.05, -3.56, 0.3)
  }
  dend[600] {pt3dclear()
	pt3dadd(100.69, 151.07, -0.56, 1.2)
	pt3dadd(101.06, 153.22, -0.32, 1.2)
	pt3dadd(101.8, 155.05, -0.32, 1.2)
	pt3dadd(102.54, 156.38, -0.32, 1.2)
	pt3dadd(103.46, 157.88, -1.24, 1.2)
  }
  dend[601] {pt3dclear()
	pt3dadd(103.46, 157.88, -1.24, 1.2)
	pt3dadd(104.57, 157.88, -1.2, 0.6)
	pt3dadd(106.04, 158.71, -1.2, 0.6)
	pt3dadd(107.33, 160.37, -1.2, 0.6)
	pt3dadd(108.07, 161.03, -0.72, 0.6)
  }
  dend[602] {pt3dclear()
	pt3dadd(108.07, 161.03, -0.72, 0.6)
	pt3dadd(109.36, 160.2, -0.72, 0.6)
	pt3dadd(110.29, 159.04, -0.72, 0.6)
	pt3dadd(111.02, 157.21, -0.72, 0.6)
	pt3dadd(112.5, 156.38, -0.92, 0.6)
	pt3dadd(113.79, 156.05, -0.92, 0.3)
  }
  dend[603] {pt3dclear()
	pt3dadd(108.07, 161.03, -0.72, 0.6)
	pt3dadd(108.44, 162.86, -0.72, 0.6)
	pt3dadd(108.26, 164.69, -0.72, 1.2)
	pt3dadd(108.07, 166.02, -0.72, 1.2)
	pt3dadd(107.52, 166.51, -0.84, 1.2)
	pt3dadd(106.23, 167.34, -0.72, 0.3)
  }
  dend[604] {pt3dclear()
	pt3dadd(103.46, 157.88, -1.24, 1.2)
	pt3dadd(104.01, 159.87, -0.6, 0.6)
	pt3dadd(104.75, 161.86, -0.6, 0.6)
	pt3dadd(104.57, 163.19, -0.6, 1.2)
	pt3dadd(103.83, 165.35, -0.6, 1.2)
  }
  dend[605] {pt3dclear()
	pt3dadd(89.33, 139.11, -1.24, 3)
	pt3dadd(88.04, 140.11, -2.28, 1.8)
	pt3dadd(87.3, 141.27, -2.28, 1.2)
	pt3dadd(87.12, 142.77, -2.28, 1.2)
	pt3dadd(87.32, 144.43, 2.48, 1.8)
	pt3dadd(87.69, 145.93, 2.48, 1.8)
  }
  dend[606] {pt3dclear()
	pt3dadd(87.69, 145.93, 2.48, 1.8)
	pt3dadd(88.43, 148.75, 2.92, 1.8)
	pt3dadd(89.52, 151.92, 3.68, 1.8)
	pt3dadd(90.07, 154.07, 3.68, 1.8)
	pt3dadd(91.36, 155.9, 2.2, 1.8)
	pt3dadd(92.66, 156.57, 2.36, 1.8)
  }
  dend[607] {pt3dclear()
	pt3dadd(92.66, 156.57, 2.36, 1.8)
	pt3dadd(95.24, 158.56, 3.32, 1.2)
	pt3dadd(97.64, 160.89, 3.32, 1.2)
	pt3dadd(100.22, 163.71, 3.56, 1.2)
	pt3dadd(101.51, 165.54, 2.8, 1.2)
	pt3dadd(102.8, 167.86, 2.16, 1.2)
	pt3dadd(104.1, 170.02, 2.16, 1.2)
  }
  dend[608] {pt3dclear()
	pt3dadd(104.1, 170.02, 2.16, 1.2)
	pt3dadd(106.49, 172.01, 0.52, 1.2)
	pt3dadd(107.79, 173.84, 0.52, 1.2)
	pt3dadd(109.26, 175.17, 2.6, 1.2)
	pt3dadd(110, 176.67, 3.08, 1.2)
  }
  dend[609] {pt3dclear()
	pt3dadd(110, 176.67, 3.08, 1.2)
	pt3dadd(112.26, 177.41, 3.24, 1.2)
	pt3dadd(113.92, 179.24, 3.24, 1.2)
	pt3dadd(115.03, 181.06, 3.24, 1.2)
	pt3dadd(116.13, 184.05, 3.52, 1.2)
  }
  dend[610] {pt3dclear()
	pt3dadd(110, 176.67, 3.08, 1.2)
	pt3dadd(110.18, 179.66, 3.04, 0.6)
	pt3dadd(110.6, 181.56, 3.2, 1.2)
	pt3dadd(111.15, 184.05, 3.52, 1.2)
	pt3dadd(112.08, 185.88, 3.52, 1.2)
  }
  dend[611] {pt3dclear()
	pt3dadd(112.08, 185.88, 3.52, 1.2)
	pt3dadd(114.66, 186.88, 3.72, 1.8)
  }
  dend[612] {pt3dclear()
	pt3dadd(112.08, 185.88, 3.52, 1.2)
	pt3dadd(112.08, 188.71, 2.8, 1.2)
	pt3dadd(112.63, 191.03, 2.76, 0.6)
  }
  dend[613] {pt3dclear()
	pt3dadd(104.1, 170.02, 2.16, 1.2)
	pt3dadd(103.73, 173.34, 1.4, 0.6)
	pt3dadd(103.91, 176, 1.4, 1.2)
	pt3dadd(103.17, 176.67, 1.32, 1.2)
  }
  dend[614] {pt3dclear()
	pt3dadd(103.17, 176.67, 1.32, 1.2)
	pt3dadd(103.91, 178.83, 1.32, 0.3)
  }
  dend[615] {pt3dclear()
	pt3dadd(103.17, 176.67, 1.32, 1.2)
	pt3dadd(100.59, 177.33, -1.04, 0.6)
	pt3dadd(98.38, 177.66, -1.04, 0.6)
	pt3dadd(96.9, 178.66, -1.04, 0.6)
	pt3dadd(95.24, 179.82, -0.44, 0.6)
	pt3dadd(92.84, 182.65, -0.2, 0.6)
  }
  dend[616] {pt3dclear()
	pt3dadd(92.66, 156.57, 2.36, 1.8)
	pt3dadd(93.21, 159.56, 2.36, 1.2)
	pt3dadd(93.39, 162.05, 2.36, 1.2)
	pt3dadd(94.13, 164.04, 2.36, 1.2)
  }
  dend[617] {pt3dclear()
	pt3dadd(94.13, 164.04, 2.36, 1.2)
	pt3dadd(94.69, 166.2, 2.04, 1.2)
	pt3dadd(95.24, 168.03, 2.04, 1.2)
	pt3dadd(94.69, 169.69, 2.04, 1.2)
	pt3dadd(95.05, 172.01, 2.04, 1.2)
	pt3dadd(95.42, 173.68, 2.04, 0.6)
	pt3dadd(95.98, 175, 1.68, 0.6)
	pt3dadd(96.9, 176.33, 1.68, 0.6)
	pt3dadd(97.82, 178.33, 1.68, 0.6)
  }
  dend[618] {pt3dclear()
	pt3dadd(94.13, 164.04, 2.36, 1.2)
	pt3dadd(92.1, 164.87, 2.36, 1.2)
	pt3dadd(89.52, 166.03, 2.36, 1.2)
  }
  dend[619] {pt3dclear()
	pt3dadd(89.52, 166.03, 2.36, 1.2)
	pt3dadd(89.52, 167.86, 1.32, 0.6)
	pt3dadd(88.04, 170.02, 1.32, 0.6)
	pt3dadd(87.12, 171.52, 1.32, 0.6)
	pt3dadd(86.01, 172.01, 1.32, 0.6)
	pt3dadd(85.28, 173.18, 1.32, 0.6)
	pt3dadd(84.54, 174.67, 1.32, 0.6)
	pt3dadd(84.17, 176.33, 1.32, 0.6)
  }
  dend[620] {pt3dclear()
	pt3dadd(89.52, 166.03, 2.36, 1.2)
	pt3dadd(88.04, 165.87, 1.4, 0.6)
	pt3dadd(86.01, 166.53, 1.4, 0.6)
	pt3dadd(83.98, 167.2, 1.4, 0.6)
	pt3dadd(83.06, 168.03, 1.4, 0.6)
  }
  dend[621] {pt3dclear()
	pt3dadd(87.69, 145.93, 2.48, 1.8)
	pt3dadd(85.11, 144.6, 2.48, 1.8)
	pt3dadd(83.63, 143.43, 2.48, 1.8)
  }
  dend[622] {pt3dclear()
	pt3dadd(83.63, 143.43, 2.48, 1.8)
	pt3dadd(81.97, 142.77, 1.88, 0.6)
	pt3dadd(79.94, 142.1, 1.88, 0.6)
  }
  dend[623] {pt3dclear()
	pt3dadd(79.94, 142.1, 1.88, 0.6)
	pt3dadd(80.31, 143.93, 2.04, 0.6)
	pt3dadd(80.31, 145.43, 2.12, 0.6)
  }
  dend[624] {pt3dclear()
	pt3dadd(80.31, 145.43, 2.12, 0.6)
	pt3dadd(82.34, 147.25, 1.6, 0.6)
	pt3dadd(83.08, 149.08, 1.6, 0.6)
	pt3dadd(84.37, 150.41, 1.6, 0.6)
  }
}
proc shape3d_17() {
  dend[624] {	pt3dadd(85.66, 152.57, 1.6, 0.6)
	pt3dadd(86.77, 154.23, 1.6, 0.6)
	pt3dadd(87.32, 156.39, 1.6, 0.6)
	pt3dadd(88.24, 158.38, 1.6, 0.6)
	pt3dadd(88.61, 159.71, 1.6, 0.6)
  }
  dend[625] {pt3dclear()
	pt3dadd(80.31, 145.43, 2.12, 0.6)
	pt3dadd(79.76, 146.42, 2.12, 0.6)
	pt3dadd(79.57, 147.92, 2.12, 0.6)
  }
  dend[626] {pt3dclear()
	pt3dadd(79.57, 147.92, 2.12, 0.6)
	pt3dadd(80.49, 150.08, 2.12, 0.6)
	pt3dadd(80.86, 151.57, 2.12, 0.6)
	pt3dadd(81.42, 153.07, 2.12, 0.6)
	pt3dadd(82.16, 154.4, 2.12, 0.6)
	pt3dadd(82.16, 155.56, 2.12, 0.6)
  }
  dend[627] {pt3dclear()
	pt3dadd(79.57, 147.92, 2.12, 0.6)
	pt3dadd(77.73, 147.92, 0.8, 0.3)
	pt3dadd(76.44, 147.75, 0.8, 0.3)
  }
  dend[628] {pt3dclear()
	pt3dadd(79.94, 142.1, 1.88, 0.6)
	pt3dadd(78.28, 141.44, 2.56, 0.6)
	pt3dadd(77.17, 140.28, 2.56, 0.6)
	pt3dadd(75.88, 138.95, 2.56, 0.6)
	pt3dadd(74.96, 137.62, 2.56, 0.6)
	pt3dadd(74.41, 136.29, 2.6, 0.6)
	pt3dadd(73.85, 134.46, 2.6, 0.6)
	pt3dadd(73.11, 133.3, 2.6, 0.6)
	pt3dadd(72.19, 132.47, 2.6, 0.6)
	pt3dadd(71.09, 131.81, 2.6, 0.6)
	pt3dadd(69.98, 131.97, 2.6, 0.6)
  }
  dend[629] {pt3dclear()
	pt3dadd(83.63, 143.43, 2.48, 1.8)
	pt3dadd(84.92, 140.44, 2.6, 1.2)
	pt3dadd(84.92, 138.45, 2.6, 1.2)
	pt3dadd(84.37, 135.13, 2.12, 1.2)
	pt3dadd(84.18, 132.97, 2.12, 1.2)
	pt3dadd(83.63, 131.31, 2.12, 0.6)
  }
  dend[630] {pt3dclear()
	pt3dadd(83.63, 131.31, 2.12, 0.6)
	pt3dadd(82.89, 130.48, 2.24, 0.3)
	pt3dadd(82.16, 129.98, 2.24, 0.3)
	pt3dadd(81.23, 129.98, 2.24, 0.3)
	pt3dadd(80.13, 130.14, 2.24, 0.3)
  }
  dend[631] {pt3dclear()
	pt3dadd(83.63, 131.31, 2.12, 0.6)
	pt3dadd(83.63, 129.81, 1.6, 0.3)
	pt3dadd(83.26, 128.65, 1.6, 0.3)
	pt3dadd(82.34, 127.98, 1.6, 0.3)
	pt3dadd(81.05, 126.99, 1.6, 0.3)
  }
  dend[632] {pt3dclear()
	pt3dadd(88.84, 117.59, -0.12, 3)
	pt3dadd(86.99, 117.42, -0.52, 1.8)
  }
  dend[633] {pt3dclear()
	pt3dadd(86.99, 117.42, -0.52, 1.8)
	pt3dadd(85.39, 118.35, -0.88, 1.2)
	pt3dadd(83.17, 119.51, -0.88, 1.2)
	pt3dadd(81.33, 120.51, -0.88, 1.2)
	pt3dadd(80.22, 121.51, -1, 1.2)
  }
  dend[634] {pt3dclear()
	pt3dadd(80.22, 121.51, -1, 1.2)
	pt3dadd(81.7, 123, -0.72, 0.3)
	pt3dadd(83.36, 124, -2.24, 0.3)
	pt3dadd(84.83, 124.33, -2.68, 0.3)
	pt3dadd(86.13, 124.83, -2.76, 0.3)
  }
  dend[635] {pt3dclear()
	pt3dadd(80.22, 121.51, -1, 1.2)
	pt3dadd(79.11, 122.67, -0.48, 1.2)
  }
  dend[636] {pt3dclear()
	pt3dadd(79.11, 122.67, -0.48, 1.2)
	pt3dadd(79.67, 124.33, -0.84, 0.3)
	pt3dadd(80.59, 125.49, -0.84, 0.3)
	pt3dadd(81.14, 125.66, -0.84, 0.3)
	pt3dadd(81.51, 126.32, -0.84, 0.3)
	pt3dadd(81.7, 127.49, -0.84, 0.3)
  }
  dend[637] {pt3dclear()
	pt3dadd(79.11, 122.67, -0.48, 1.2)
	pt3dadd(77.27, 122.67, -0.48, 1.2)
	pt3dadd(75.24, 123, -0.56, 1.2)
	pt3dadd(73.76, 123.5, -0.56, 0.6)
	pt3dadd(72.47, 124.5, -1.2, 0.6)
	pt3dadd(70.81, 126.32, -0.56, 0.6)
  }
  dend[638] {pt3dclear()
	pt3dadd(70.81, 126.32, -0.56, 0.6)
	pt3dadd(71.55, 127.99, -0.56, 0.6)
	pt3dadd(72.47, 128.98, -0.56, 0.6)
	pt3dadd(73.58, 130.64, -0.56, 0.6)
  }
  dend[639] {pt3dclear()
	pt3dadd(70.81, 126.32, -0.56, 0.6)
	pt3dadd(68.97, 126.49, -2.4, 0.6)
	pt3dadd(67.49, 126.66, -2.4, 0.6)
	pt3dadd(65.65, 126.66, -2.4, 0.6)
  }
  dend[640] {pt3dclear()
	pt3dadd(86.99, 117.42, -0.52, 1.8)
	pt3dadd(85.52, 115.93, 0.6, 1.8)
	pt3dadd(83.67, 114.6, -0.92, 1.8)
	pt3dadd(81.64, 113.27, -0.32, 1.8)
  }
  dend[641] {pt3dclear()
	pt3dadd(81.64, 113.27, -0.32, 1.8)
	pt3dadd(79.11, 114.36, 0.2, 1.2)
	pt3dadd(77.27, 115.53, 0.2, 1.2)
	pt3dadd(75.24, 117.02, 0.2, 1.2)
	pt3dadd(73.58, 117.85, 0.2, 0.6)
	pt3dadd(71.73, 117.52, -1.84, 0.6)
	pt3dadd(70.26, 117.02, -2.64, 0.6)
  }
  dend[642] {pt3dclear()
	pt3dadd(70.26, 117.02, -2.64, 0.6)
	pt3dadd(69.52, 119.02, -2.04, 0.3)
	pt3dadd(68.41, 120.51, -2.04, 0.3)
  }
  dend[643] {pt3dclear()
	pt3dadd(70.26, 117.02, -2.64, 0.6)
	pt3dadd(67.68, 116.52, -2.64, 0.6)
	pt3dadd(65.83, 117.35, -2.64, 0.6)
	pt3dadd(64.72, 119.02, -2.64, 0.6)
	pt3dadd(64.35, 120.84, -1.28, 0.6)
  }
  dend[644] {pt3dclear()
	pt3dadd(64.35, 120.84, -1.28, 0.6)
	pt3dadd(64.72, 124.33, -0.32, 0.6)
  }
  dend[645] {pt3dclear()
	pt3dadd(64.35, 120.84, -1.28, 0.6)
	pt3dadd(62.14, 121.67, -1.28, 0.3)
  }
  dend[646] {pt3dclear()
	pt3dadd(81.64, 113.27, -0.32, 1.8)
	pt3dadd(79.25, 111.27, 0, 1.2)
	pt3dadd(77.59, 110.44, 0, 1.2)
	pt3dadd(75.56, 109.95, 0, 1.2)
	pt3dadd(72.6, 109.45, -1.08, 1.2)
  }
  dend[647] {pt3dclear()
	pt3dadd(72.6, 109.45, -1.08, 1.2)
	pt3dadd(70.63, 109.88, -1.12, 0.6)
	pt3dadd(68.78, 110.21, -1.12, 0.6)
	pt3dadd(67.31, 110.05, -1.12, 0.6)
	pt3dadd(66.57, 109.88, -1.12, 0.6)
  }
  dend[648] {pt3dclear()
	pt3dadd(66.57, 109.88, -1.12, 0.6)
	pt3dadd(64.91, 112.04, -1.12, 0.6)
	pt3dadd(63.62, 115.03, -1.64, 0.6)
	pt3dadd(62.88, 117.35, -1.64, 0.6)
	pt3dadd(60.66, 121.01, -2.36, 0.6)
  }
  dend[649] {pt3dclear()
	pt3dadd(60.66, 121.01, -2.36, 0.6)
	pt3dadd(60.85, 122.84, -1.72, 0.6)
	pt3dadd(61.22, 124.33, -1.12, 0.6)
	pt3dadd(61.59, 125.99, 0.04, 0.6)
	pt3dadd(62.14, 127.32, -0.2, 0.6)
  }
  dend[650] {pt3dclear()
	pt3dadd(60.66, 121.01, -2.36, 0.6)
	pt3dadd(58.27, 120.84, -2.56, 0.6)
  }
  dend[651] {pt3dclear()
	pt3dadd(66.57, 109.88, -1.12, 0.6)
	pt3dadd(65.83, 109.55, -1.12, 0.6)
  }
  dend[652] {pt3dclear()
	pt3dadd(65.83, 109.55, -1.12, 0.6)
	pt3dadd(63.62, 110.38, -0.84, 0.6)
	pt3dadd(61.59, 111.87, -2.96, 0.6)
	pt3dadd(58.63, 114.03, -2.96, 0.6)
	pt3dadd(56.61, 114.53, -3.12, 0.6)
	pt3dadd(55.87, 114.86, -3.12, 0.6)
	pt3dadd(55.13, 116.36, -3.12, 0.6)
	pt3dadd(54.39, 118.02, -3.12, 0.6)
	pt3dadd(54.76, 119.18, -3.12, 0.3)
  }
  dend[653] {pt3dclear()
	pt3dadd(65.83, 109.55, -1.12, 0.6)
	pt3dadd(63.8, 108.22, -1, 0.3)
	pt3dadd(62.51, 107.39, -1, 0.6)
	pt3dadd(61.4, 107.22, -2.24, 0.6)
	pt3dadd(59.37, 106.72, -2.24, 0.6)
	pt3dadd(56.24, 106.06, -3.2, 0.6)
	pt3dadd(54.39, 105.89, -4.28, 0.6)
	pt3dadd(52.92, 105.89, -4.28, 0.3)
	pt3dadd(51.99, 105.73, -4.28, 0.3)
	pt3dadd(51.25, 105.23, -4.28, 0.3)
	pt3dadd(49.23, 105.06, -4.28, 0.3)
  }
  dend[654] {pt3dclear()
	pt3dadd(72.6, 109.45, -1.08, 1.2)
	pt3dadd(71.31, 107.95, -1.04, 1.2)
	pt3dadd(69.65, 105.96, -1.04, 1.2)
  }
  dend[655] {pt3dclear()
	pt3dadd(69.65, 105.96, -1.04, 1.2)
	pt3dadd(67.12, 105.39, -1.64, 0.6)
	pt3dadd(65.65, 104.4, -1.64, 0.6)
	pt3dadd(64.17, 103.4, -1.64, 0.6)
	pt3dadd(62.69, 102.74, -2.16, 0.6)
	pt3dadd(61.4, 102.9, -2.32, 0.6)
	pt3dadd(59.74, 101.91, -1.12, 0.6)
	pt3dadd(57.9, 101.74, -1.12, 0.6)
	pt3dadd(55.68, 101.74, -1.12, 0.6)
	pt3dadd(54.58, 102.24, -1.32, 0.3)
	pt3dadd(53.1, 102.4, -1.32, 0.3)
	pt3dadd(51.62, 101.74, -1.32, 0.3)
  }
  dend[656] {pt3dclear()
	pt3dadd(69.65, 105.96, -1.04, 1.2)
	pt3dadd(69.28, 103.63, -0.64, 0.6)
	pt3dadd(68.91, 101.64, -0.56, 1.2)
	pt3dadd(67.44, 100.98, -0.12, 1.2)
	pt3dadd(66.33, 100.48, -0.12, 1.2)
  }
  dend[657] {pt3dclear()
	pt3dadd(66.33, 100.48, -0.12, 1.2)
	pt3dadd(64.17, 99.75, -1.4, 0.6)
	pt3dadd(61.96, 99.58, -1.4, 0.6)
	pt3dadd(60.11, 98.92, -1.12, 0.6)
	pt3dadd(58.63, 98.42, -1.12, 0.6)
  }
  dend[658] {pt3dclear()
	pt3dadd(66.33, 100.48, -0.12, 1.2)
	pt3dadd(66.52, 98.65, -0.12, 0.6)
	pt3dadd(67.25, 97.32, 0.44, 1.2)
	pt3dadd(67.44, 96.66, -0.72, 0.6)
  }
  dend[659] {pt3dclear()
	pt3dadd(60.01, 82.48, -1.8, 2.7)
	pt3dadd(58.35, 83.64, -1.8, 3)
	pt3dadd(57.25, 84.64, -1.32, 3)
	pt3dadd(56.51, 86.13, -1.32, 2.1)
	pt3dadd(55.77, 88.12, -1, 2.1)
	pt3dadd(55.59, 89.79, 0, 3)
	pt3dadd(55.59, 91.28, -0.72, 3)
  }
  dend[660] {pt3dclear()
	pt3dadd(55.59, 91.28, -0.72, 3)
	pt3dadd(57.27, 92.98, 0.88, 2.1)
	pt3dadd(58.38, 94.64, 0.88, 2.1)
	pt3dadd(58.56, 96.3, 0.8, 2.1)
	pt3dadd(58.19, 98.63, 0.8, 2.1)
	pt3dadd(57.82, 100.95, 0.8, 2.1)
	pt3dadd(57.27, 103.61, 1.68, 2.1)
	pt3dadd(56.9, 105.77, 1.68, 3)
	pt3dadd(57.09, 106.93, 1.68, 3)
	pt3dadd(57.45, 108.43, 1.68, 3)
	pt3dadd(58.19, 110.42, 1.56, 3)
	pt3dadd(58.93, 112.58, 1.56, 3)
	pt3dadd(59.85, 114.91, 1.8, 2.1)
	pt3dadd(60.41, 116.9, 1.8, 2.1)
	pt3dadd(61.14, 118.73, 1.8, 2.1)
	pt3dadd(63.17, 120.72, 2.12, 2.1)
	pt3dadd(64.83, 122.21, 1.68, 2.1)
	pt3dadd(66.31, 124.04, 2.64, 2.1)
	pt3dadd(68.71, 125.37, 1.88, 3)
  }
}
proc shape3d_18() {
  dend[660] {	pt3dadd(70.92, 126.87, 2.4, 3)
	pt3dadd(72.4, 128.19, 2.4, 3)
	pt3dadd(75.17, 130.52, 0.8, 2.1)
	pt3dadd(76.74, 132.35, -0.16, 2.1)
	pt3dadd(77.85, 133.18, 1.2, 2.1)
  }
  dend[661] {pt3dclear()
	pt3dadd(77.85, 133.18, 1.2, 2.1)
	pt3dadd(78.4, 133.84, 2.24, 2.1)
  }
  dend[662] {pt3dclear()
	pt3dadd(78.4, 133.84, 2.24, 2.1)
	pt3dadd(81.83, 132.2, 1.56, 1.2)
	pt3dadd(83.67, 131.54, 1.56, 1.2)
	pt3dadd(85.15, 131.37, 1.56, 1.2)
	pt3dadd(87.55, 130.38, 1.56, 1.2)
	pt3dadd(89.76, 129.05, 1.24, 1.2)
  }
  dend[663] {pt3dclear()
	pt3dadd(89.76, 129.05, 1.24, 1.2)
	pt3dadd(91.24, 127.72, -1.28, 0.6)
	pt3dadd(92.35, 125.73, -0.88, 0.6)
	pt3dadd(92.9, 123.4, 1.04, 0.6)
	pt3dadd(91.98, 121.24, 2.32, 0.6)
	pt3dadd(91.42, 119.41, 1.72, 0.3)
  }
  dend[664] {pt3dclear()
	pt3dadd(89.76, 129.05, 1.24, 1.2)
	pt3dadd(91.79, 129.21, -1.04, 0.6)
	pt3dadd(94.19, 129.38, -1.04, 0.6)
	pt3dadd(96.22, 130.21, -1.04, 0.6)
	pt3dadd(97.88, 131.37, -1.04, 0.3)
	pt3dadd(98.8, 132.87, 0.08, 0.3)
  }
  dend[665] {pt3dclear()
	pt3dadd(78.4, 133.84, 2.24, 2.1)
	pt3dadd(79.69, 135.5, 2.24, 2.1)
	pt3dadd(80.98, 137.16, 2.24, 1.8)
	pt3dadd(82.09, 138.49, 2.8, 1.8)
	pt3dadd(82.83, 139.99, 2.8, 1.8)
	pt3dadd(83.75, 141.32, 3.32, 1.8)
	pt3dadd(84.41, 141.88, 3.52, 1.8)
	pt3dadd(85.52, 143.67, 3.52, 2.1)
	pt3dadd(86.44, 145.5, 3.52, 2.1)
	pt3dadd(86.99, 148.16, 3.52, 2.1)
	pt3dadd(88.1, 150.15, 3.52, 2.1)
  }
  dend[666] {pt3dclear()
	pt3dadd(88.1, 150.15, 3.52, 2.1)
	pt3dadd(90.87, 150.15, 3.12, 2.1)
  }
  dend[667] {pt3dclear()
	pt3dadd(90.87, 150.15, 3.12, 2.1)
	pt3dadd(92.71, 148.32, 2.64, 1.8)
  }
  dend[668] {pt3dclear()
	pt3dadd(92.71, 148.32, 2.64, 1.8)
	pt3dadd(92.16, 146.83, 2.16, 1.8)
	pt3dadd(91.42, 144.67, 2.16, 0.6)
	pt3dadd(91.42, 142.51, 2.16, 0.6)
	pt3dadd(92.53, 140.35, 2.2, 0.6)
	pt3dadd(92.53, 138.86, 2.2, 0.6)
  }
  dend[669] {pt3dclear()
	pt3dadd(92.53, 138.86, 2.2, 0.6)
	pt3dadd(91.42, 138.36, 0.96, 0.6)
  }
  dend[670] {pt3dclear()
	pt3dadd(91.42, 138.36, 0.96, 0.6)
	pt3dadd(90.13, 137.86, 1.2, 0.6)
	pt3dadd(88.84, 137.03, 1.2, 0.6)
	pt3dadd(87.55, 136.2, 1.76, 1.2)
	pt3dadd(86.07, 135.87, 1.72, 1.2)
  }
  dend[671] {pt3dclear()
	pt3dadd(91.42, 138.36, 0.96, 0.6)
	pt3dadd(91.42, 136.53, 0.08, 0.3)
	pt3dadd(90.87, 135.04, 0.08, 0.3)
  }
  dend[672] {pt3dclear()
	pt3dadd(92.53, 138.86, 2.2, 0.6)
	pt3dadd(94.56, 138.03, 0.92, 0.6)
	pt3dadd(95.11, 136.7, 0.92, 0.6)
	pt3dadd(95.85, 135.7, 0.92, 0.6)
  }
  dend[673] {pt3dclear()
	pt3dadd(95.85, 135.7, 0.92, 0.6)
	pt3dadd(94.93, 134.87, 0.92, 0.3)
	pt3dadd(94.74, 133.54, -0.6, 0.3)
	pt3dadd(94.01, 132.71, -0.6, 0.3)
  }
  dend[674] {pt3dclear()
	pt3dadd(95.85, 135.7, 0.92, 0.6)
	pt3dadd(97.51, 134.7, 0.92, 0.6)
	pt3dadd(99.36, 134.54, 0.92, 0.3)
	pt3dadd(100.09, 135.04, 0.92, 0.3)
  }
  dend[675] {pt3dclear()
	pt3dadd(92.71, 148.32, 2.64, 1.8)
	pt3dadd(94.74, 147.16, 1.52, 1.8)
	pt3dadd(95.85, 146.66, 0.2, 1.8)
  }
  dend[676] {pt3dclear()
	pt3dadd(95.85, 146.66, 0.2, 1.8)
	pt3dadd(96.77, 145, 0.2, 0.6)
	pt3dadd(97.7, 144.17, 0.2, 0.6)
	pt3dadd(99.36, 144.17, 0.2, 0.6)
	pt3dadd(101.2, 145, 0.2, 0.6)
	pt3dadd(103.05, 146.5, -0.28, 0.6)
	pt3dadd(103.97, 147.33, -0.28, 0.6)
	pt3dadd(106, 148.16, -0.28, 0.6)
	pt3dadd(107.11, 148.66, -0.28, 0.6)
	pt3dadd(109.32, 148.66, -0.28, 0.6)
  }
  dend[677] {pt3dclear()
	pt3dadd(95.85, 146.66, 0.2, 1.8)
	pt3dadd(97.51, 148.66, 1.2, 0.6)
	pt3dadd(98.43, 150.15, 1.2, 0.6)
	pt3dadd(99.73, 150.98, 1.2, 0.6)
	pt3dadd(101.2, 152.14, 1.2, 1.2)
	pt3dadd(102.49, 152.64, 1.2, 1.2)
	pt3dadd(104.52, 152.81, 1.2, 1.2)
	pt3dadd(105.81, 153.14, 1.2, 1.2)
  }
  dend[678] {pt3dclear()
	pt3dadd(105.81, 153.14, 1.2, 1.2)
	pt3dadd(107.29, 152.31, 1.4, 0.6)
	pt3dadd(110.24, 152.31, 1.4, 0.6)
  }
  dend[679] {pt3dclear()
	pt3dadd(105.81, 153.14, 1.2, 1.2)
	pt3dadd(107.84, 153.97, -0.88, 0.6)
	pt3dadd(110.24, 154.97, -0.88, 0.3)
  }
  dend[680] {pt3dclear()
	pt3dadd(90.87, 150.15, 3.12, 2.1)
	pt3dadd(91.79, 152.14, 1.76, 1.2)
	pt3dadd(92.71, 153.47, 1.76, 1.2)
	pt3dadd(94.19, 153.81, 1.76, 1.2)
	pt3dadd(95.85, 154.47, 2.52, 1.2)
	pt3dadd(97.14, 154.97, 2.52, 1.2)
	pt3dadd(98.62, 155.47, 2.52, 1.2)
	pt3dadd(99.73, 156.63, 2.52, 1.2)
	pt3dadd(101.02, 157.96, 2.52, 1.2)
	pt3dadd(101.57, 159.45, 2.52, 1.2)
	pt3dadd(102.49, 160.95, 3.16, 1.2)
	pt3dadd(103.05, 162.61, 3.16, 1.2)
	pt3dadd(104.15, 164.11, 3.16, 1.2)
  }
  dend[681] {pt3dclear()
	pt3dadd(88.1, 150.15, 3.52, 2.1)
	pt3dadd(88.47, 152.81, 3.52, 1.8)
	pt3dadd(89.39, 155.3, 3.16, 1.2)
	pt3dadd(90.87, 156.63, 3.84, 1.2)
	pt3dadd(92.16, 157.63, 3.84, 1.2)
  }
  dend[682] {pt3dclear()
	pt3dadd(92.16, 157.63, 3.84, 1.2)
	pt3dadd(94.93, 159.12, 3.76, 1.2)
	pt3dadd(96.77, 160.62, 3.72, 1.2)
	pt3dadd(97.7, 161.12, 3.72, 0.3)
	pt3dadd(98.43, 161.95, 3.72, 0.3)
	pt3dadd(98.8, 163.44, 3.6, 0.3)
	pt3dadd(98.06, 163.94, 3.6, 0.3)
	pt3dadd(97.14, 164.44, 3.6, 0.3)
  }
  dend[683] {pt3dclear()
	pt3dadd(92.16, 157.63, 3.84, 1.2)
	pt3dadd(92.35, 159.79, 3.28, 0.6)
	pt3dadd(93.27, 160.95, 3.28, 0.6)
	pt3dadd(94.19, 162.61, 3.28, 0.6)
	pt3dadd(94.74, 164.6, 3.28, 0.6)
	pt3dadd(94.74, 166.43, 3.48, 1.2)
	pt3dadd(95.3, 168.09, 3.48, 1.2)
	pt3dadd(95.3, 169.59, 3.48, 1.2)
	pt3dadd(97.14, 170.42, 3.48, 1.2)
  }
  dend[684] {pt3dclear()
	pt3dadd(77.85, 133.18, 1.2, 2.1)
	pt3dadd(76.37, 134.51, 1.2, 1.8)
	pt3dadd(75.63, 136.33, 0.52, 1.2)
  }
  dend[685] {pt3dclear()
	pt3dadd(75.63, 136.33, 0.52, 1.2)
	pt3dadd(75.63, 137.66, 1.12, 1.2)
	pt3dadd(75.82, 138.83, 1.12, 1.8)
  }
  dend[686] {pt3dclear()
	pt3dadd(75.82, 138.83, 1.12, 1.8)
	pt3dadd(76.37, 139.66, 1.96, 1.2)
	pt3dadd(76.74, 140.65, 1.96, 1.2)
	pt3dadd(77.66, 141.65, 1.96, 1.8)
	pt3dadd(77.85, 142.81, 1.96, 1.2)
	pt3dadd(78.21, 144.64, 4.24, 1.2)
  }
  dend[687] {pt3dclear()
	pt3dadd(75.82, 138.83, 1.12, 1.8)
	pt3dadd(74.34, 139.16, 1.32, 1.8)
	pt3dadd(73.42, 139.66, 1.32, 2.1)
  }
  dend[688] {pt3dclear()
	pt3dadd(73.42, 139.66, 1.32, 2.1)
	pt3dadd(72.49, 140.99, 2.72, 1.2)
	pt3dadd(71.39, 141.82, 2.72, 1.2)
	pt3dadd(71.2, 142.81, 2.72, 1.2)
	pt3dadd(71.2, 143.98, 2.72, 1.2)
	pt3dadd(71.02, 144.64, 2.72, 1.2)
  }
  dend[689] {pt3dclear()
	pt3dadd(73.42, 139.66, 1.32, 2.1)
	pt3dadd(71.76, 138.99, 0.68, 1.2)
	pt3dadd(70.83, 138.99, 0.68, 1.2)
	pt3dadd(69.73, 138.66, 0.68, 1.2)
  }
  dend[690] {pt3dclear()
	pt3dadd(69.73, 138.66, 0.68, 1.2)
	pt3dadd(67.88, 138.83, 1.28, 1.2)
	pt3dadd(66.41, 139.16, 1.28, 1.2)
	pt3dadd(64.75, 139.32, 1.28, 1.2)
	pt3dadd(63.82, 140.82, 2.56, 1.2)
  }
  dend[691] {pt3dclear()
	pt3dadd(69.73, 138.66, 0.68, 1.2)
	pt3dadd(68.62, 137, 0.12, 0.6)
	pt3dadd(68.62, 135.67, 0.08, 0.6)
	pt3dadd(68.62, 133.68, 0.08, 0.6)
  }
  dend[692] {pt3dclear()
	pt3dadd(75.63, 136.33, 0.52, 1.2)
	pt3dadd(73.97, 135.67, 1.52, 1.2)
	pt3dadd(72.86, 134.67, 1.52, 0.6)
	pt3dadd(72.13, 133.34, 1.52, 0.6)
	pt3dadd(71.2, 132.35, 1.52, 0.6)
	pt3dadd(70.65, 131.35, 1.52, 0.6)
	pt3dadd(69.54, 130.52, 1.52, 0.6)
	pt3dadd(68.25, 129.69, 1.52, 0.6)
	pt3dadd(66.78, 129.36, 0.92, 0.3)
	pt3dadd(66.04, 128.53, 0.92, 0.3)
	pt3dadd(65.48, 127.86, 0.92, 0.3)
	pt3dadd(64.75, 126.87, 0.92, 0.3)
	pt3dadd(64.38, 126.03, 0.92, 0.3)
  }
  dend[693] {pt3dclear()
	pt3dadd(55.59, 91.28, -0.72, 3)
	pt3dadd(54.29, 92.28, 0, 2.1)
	pt3dadd(53.93, 93.61, 0, 2.1)
	pt3dadd(53.74, 94.77, -0.8, 2.1)
	pt3dadd(53.21, 95.97, 0.84, 2.1)
	pt3dadd(52.84, 97.3, 0.84, 2.1)
	pt3dadd(51.55, 97.96, 0.32, 2.1)
	pt3dadd(49.89, 98.96, 0.32, 2.1)
	pt3dadd(48.6, 100.29, 0.28, 2.1)
  }
  dend[694] {pt3dclear()
	pt3dadd(48.6, 100.29, 0.28, 2.1)
	pt3dadd(48.78, 101.12, 0.84, 3)
	pt3dadd(49.15, 102.28, 0.84, 3)
  }
  dend[695] {pt3dclear()
	pt3dadd(49.15, 102.28, 0.84, 3)
	pt3dadd(49.71, 104.27, 0.72, 1.8)
	pt3dadd(50.81, 105.6, 0.72, 1.2)
	pt3dadd(50.81, 106.93, 0.72, 1.2)
	pt3dadd(50.81, 108.59, 0.72, 1.2)
	pt3dadd(51.92, 109.59, -0.56, 1.2)
	pt3dadd(53.76, 110.42, 0, 1.2)
	pt3dadd(55.61, 111.09, -0.24, 1.2)
	pt3dadd(56.72, 112.75, -0.24, 0.6)
	pt3dadd(56.72, 114.41, -0.24, 0.6)
	pt3dadd(57.64, 117.23, 0.48, 0.6)
  }
}
proc shape3d_19() {
  dend[695] {  }
  dend[696] {pt3dclear()
	pt3dadd(49.15, 102.28, 0.84, 3)
	pt3dadd(46.02, 101.95, 0.4, 1.8)
	pt3dadd(43.99, 102.28, 1.64, 1.8)
	pt3dadd(42.69, 102.28, 1.64, 1.8)
  }
  dend[697] {pt3dclear()
	pt3dadd(42.69, 102.28, 1.64, 1.8)
	pt3dadd(42.33, 104.11, 2.24, 0.6)
	pt3dadd(41.77, 105.44, 2.24, 0.6)
	pt3dadd(41.4, 107.1, 2.24, 0.3)
  }
  dend[698] {pt3dclear()
	pt3dadd(42.69, 102.28, 1.64, 1.8)
	pt3dadd(41.03, 101.78, 1.64, 1.8)
	pt3dadd(39.74, 101.62, 0.96, 1.8)
	pt3dadd(39, 101.28, 0.96, 1.2)
  }
  dend[699] {pt3dclear()
	pt3dadd(39, 101.28, 0.96, 1.2)
	pt3dadd(37.53, 101.62, 1, 1.2)
	pt3dadd(35.87, 101.95, 1.12, 1.8)
  }
  dend[700] {pt3dclear()
	pt3dadd(35.87, 101.95, 1.12, 1.8)
	pt3dadd(34.76, 103.78, 1.12, 1.2)
  }
  dend[701] {pt3dclear()
	pt3dadd(34.76, 103.78, 1.12, 1.2)
	pt3dadd(34.39, 105.77, 0.44, 0.6)
	pt3dadd(34.76, 107.6, 0.44, 0.6)
	pt3dadd(33.29, 108.1, 0.44, 0.6)
	pt3dadd(31.81, 108.1, 0.44, 0.6)
  }
  dend[702] {pt3dclear()
	pt3dadd(34.76, 103.78, 1.12, 1.2)
	pt3dadd(32.36, 104.77, 1.4, 0.6)
	pt3dadd(30.7, 104.94, 1.4, 0.6)
	pt3dadd(29.23, 105.6, 1.4, 0.6)
  }
  dend[703] {pt3dclear()
	pt3dadd(35.87, 101.95, 1.12, 1.8)
	pt3dadd(34.02, 102.12, -0.84, 0.6)
	pt3dadd(32.36, 101.95, 0.64, 0.6)
	pt3dadd(30.89, 101.78, 0.64, 0.6)
	pt3dadd(29.96, 100.95, 0.64, 0.6)
	pt3dadd(27.75, 98.29, -1.2, 0.6)
  }
  dend[704] {pt3dclear()
	pt3dadd(39, 101.28, 0.96, 1.2)
	pt3dadd(38.45, 99.79, 1.48, 0.3)
	pt3dadd(37.53, 98.46, 1.48, 0.3)
  }
  dend[705] {pt3dclear()
	pt3dadd(48.6, 100.29, 0.28, 2.1)
	pt3dadd(46.75, 98.79, -0.56, 1.2)
	pt3dadd(45.09, 97.63, -1.44, 1.8)
  }
  dend[706] {pt3dclear()
	pt3dadd(45.09, 97.63, -1.44, 1.8)
	pt3dadd(43.43, 96.63, -0.8, 1.8)
	pt3dadd(41.96, 95.8, -1.64, 2.1)
	pt3dadd(41.59, 95.47, -1.08, 2.1)
  }
  dend[707] {pt3dclear()
	pt3dadd(41.59, 95.47, -1.08, 2.1)
	pt3dadd(39.37, 94.47, -1.08, 1.8)
  }
  dend[708] {pt3dclear()
	pt3dadd(39.37, 94.47, -1.08, 1.8)
	pt3dadd(37.16, 95.3, -0.28, 1.2)
	pt3dadd(34.95, 96.3, -0.28, 1.2)
	pt3dadd(33.47, 96.97, 0.96, 1.2)
	pt3dadd(31.26, 97.13, 0.8, 1.8)
  }
  dend[709] {pt3dclear()
	pt3dadd(31.26, 97.13, 0.8, 1.8)
	pt3dadd(29.96, 98.96, 1.8, 1.2)
	pt3dadd(28.67, 100.29, 1.8, 1.2)
	pt3dadd(27.75, 101.78, 1.8, 1.8)
	pt3dadd(26.46, 103.44, 2.2, 1.8)
  }
  dend[710] {pt3dclear()
	pt3dadd(26.46, 103.44, 2.2, 1.8)
	pt3dadd(26.46, 105.27, 2.08, 1.8)
	pt3dadd(27.01, 107.1, 2.08, 1.8)
  }
  dend[711] {pt3dclear()
	pt3dadd(26.46, 103.44, 2.2, 1.8)
	pt3dadd(24.61, 102.95, 2.2, 1.2)
	pt3dadd(23.14, 102.28, 2.2, 1.2)
	pt3dadd(21.11, 102.28, 2.2, 1.2)
	pt3dadd(19.26, 102.28, 2.2, 1.8)
	pt3dadd(17.6, 102.78, 2.2, 1.8)
	pt3dadd(16.31, 103.94, 2.2, 1.8)
	pt3dadd(14.65, 104.61, 2.2, 1.8)
  }
  dend[712] {pt3dclear()
	pt3dadd(31.26, 97.13, 0.8, 1.8)
	pt3dadd(29.23, 96.8, 0.24, 1.2)
	pt3dadd(27.75, 95.8, 1.12, 1.2)
  }
  dend[713] {pt3dclear()
	pt3dadd(27.75, 95.8, 1.12, 1.2)
	pt3dadd(25.35, 94.81, 0.88, 0.6)
	pt3dadd(23.69, 93.81, 0.88, 0.6)
	pt3dadd(21.66, 92.81, 0.88, 0.6)
	pt3dadd(19.82, 91.15, 0.88, 0.6)
	pt3dadd(18.71, 89.32, 0.88, 0.6)
	pt3dadd(17.97, 88.33, 0.88, 0.6)
  }
  dend[714] {pt3dclear()
	pt3dadd(27.75, 95.8, 1.12, 1.2)
	pt3dadd(26.64, 93.98, 1.12, 0.6)
	pt3dadd(26.09, 92.48, 1.12, 0.6)
	pt3dadd(25.72, 90.82, 2.12, 0.6)
	pt3dadd(25.72, 90.15, 2.12, 0.6)
  }
  dend[715] {pt3dclear()
	pt3dadd(39.37, 94.47, -1.08, 1.8)
	pt3dadd(39, 92.98, -0.84, 1.2)
	pt3dadd(37.71, 90.65, -0.84, 1.2)
	pt3dadd(36.24, 88.83, 1.08, 1.2)
	pt3dadd(34.95, 88, 1.04, 1.2)
	pt3dadd(33.84, 87, 1.64, 1.2)
	pt3dadd(32.73, 85.67, 1.64, 1.2)
	pt3dadd(31.62, 85.17, 1.64, 1.2)
	pt3dadd(29.78, 84.67, 1.64, 1.2)
  }
  dend[716] {pt3dclear()
	pt3dadd(29.78, 84.67, 1.64, 1.2)
	pt3dadd(28.3, 85.84, 1.48, 1.2)
	pt3dadd(26.46, 87, 1.48, 1.2)
	pt3dadd(24.8, 87.66, 0.76, 1.2)
	pt3dadd(22.95, 88.49, 0.76, 0.6)
	pt3dadd(21.11, 87.66, 1.68, 0.6)
  }
  dend[717] {pt3dclear()
	pt3dadd(29.78, 84.67, 1.64, 1.2)
	pt3dadd(27.57, 84.01, 1.16, 0.6)
	pt3dadd(25.35, 83.18, 1.16, 0.6)
	pt3dadd(23.51, 83.01, 1.16, 0.6)
	pt3dadd(21.29, 82.85, 1.16, 0.6)
	pt3dadd(18.34, 83.18, 1.16, 0.6)
  }
  dend[718] {pt3dclear()
	pt3dadd(41.59, 95.47, -1.08, 2.1)
	pt3dadd(41.22, 95.47, 3.08, 3)
	pt3dadd(40.48, 95.14, 5, 1.8)
  }
  dend[719] {pt3dclear()
	pt3dadd(45.09, 97.63, -1.44, 1.8)
	pt3dadd(45.09, 95.64, -1.36, 0.6)
	pt3dadd(45.28, 93.64, -1.36, 0.6)
	pt3dadd(46.2, 92.15, -1.36, 1.2)
	pt3dadd(47.12, 90.49, -1.36, 1.2)
	pt3dadd(47.68, 88.49, -0.72, 1.2)
  }
  dend[720] {pt3dclear()
	pt3dadd(47.68, 88.49, -0.72, 1.2)
	pt3dadd(46.38, 87.16, -0.12, 0.6)
	pt3dadd(45.28, 86, -0.12, 0.6)
	pt3dadd(44.36, 85.5, -0.12, 0.6)
	pt3dadd(43.43, 85.5, -0.36, 0.6)
	pt3dadd(42.33, 85.84, -0.36, 0.3)
  }
  dend[721] {pt3dclear()
	pt3dadd(47.68, 88.49, -0.72, 1.2)
	pt3dadd(47.68, 86.17, -0.12, 1.8)
	pt3dadd(47.86, 83.84, -0.12, 1.2)
  }
  dend[722] {pt3dclear()
	pt3dadd(47.86, 83.84, -0.12, 1.2)
	pt3dadd(46.57, 82.68, -0.24, 0.6)
	pt3dadd(46.02, 81.68, 1, 0.6)
	pt3dadd(45.09, 80.69, 0.6, 0.3)
  }
  dend[723] {pt3dclear()
	pt3dadd(47.86, 83.84, -0.12, 1.2)
	pt3dadd(48.6, 81.68, -0.56, 0.6)
  }
  dend[724] {pt3dclear()
	pt3dadd(56.32, 72.18, -1.04, 3.6)
	pt3dadd(54.85, 74.5, -1, 1.8)
	pt3dadd(53.56, 76, -0.44, 1.8)
  }
  dend[725] {pt3dclear()
	pt3dadd(53.56, 76, -0.44, 1.8)
	pt3dadd(51.71, 77.33, -0.56, 1.8)
	pt3dadd(50.05, 78.16, -0.84, 1.8)
	pt3dadd(48.02, 78.49, -0.52, 1.8)
	pt3dadd(46.36, 78.49, -0.52, 1.8)
	pt3dadd(44.33, 78.32, 0.12, 1.8)
  }
  dend[726] {pt3dclear()
	pt3dadd(44.33, 78.32, 0.12, 1.8)
	pt3dadd(42.86, 78.99, -0.68, 1.2)
	pt3dadd(41.38, 79.15, -0.68, 1.2)
  }
  dend[727] {pt3dclear()
	pt3dadd(41.38, 79.15, -0.68, 1.2)
	pt3dadd(40.27, 80.48, -0.4, 0.6)
	pt3dadd(39.35, 81.65, -0.4, 1.8)
	pt3dadd(38.8, 83.31, -0.4, 1.8)
	pt3dadd(38.61, 84.97, -0.4, 1.2)
	pt3dadd(38.8, 86.8, -0.4, 1.2)
	pt3dadd(39.72, 88.79, -1.92, 1.2)
	pt3dadd(41.19, 90.62, -2.72, 1.2)
	pt3dadd(42.12, 92.44, -1.96, 0.6)
	pt3dadd(42.86, 94.1, -1.96, 0.3)
  }
  dend[728] {pt3dclear()
	pt3dadd(41.38, 79.15, -0.68, 1.2)
	pt3dadd(39.9, 77.99, 0.6, 1.2)
	pt3dadd(38.24, 76.5, 0.6, 1.2)
	pt3dadd(36.58, 75.17, -0.56, 1.2)
	pt3dadd(35.29, 74.84, -0.56, 1.2)
  }
  dend[729] {pt3dclear()
	pt3dadd(35.29, 74.84, -0.56, 1.2)
	pt3dadd(34.37, 76.33, 0.96, 1.2)
	pt3dadd(32.52, 77.99, 0.2, 1.2)
	pt3dadd(31.23, 79.32, 1.44, 1.2)
  }
  dend[730] {pt3dclear()
	pt3dadd(31.23, 79.32, 1.44, 1.2)
	pt3dadd(30.12, 81.15, 2.08, 1.2)
	pt3dadd(28.46, 81.81, 2.08, 1.2)
	pt3dadd(27.17, 82.64, 2.08, 1.2)
  }
  dend[731] {pt3dclear()
	pt3dadd(31.23, 79.32, 1.44, 1.2)
	pt3dadd(29.76, 77.99, 1.44, 0.3)
  }
  dend[732] {pt3dclear()
	pt3dadd(35.29, 74.84, -0.56, 1.2)
	pt3dadd(34.18, 73.51, 0.12, 1.2)
	pt3dadd(32.71, 72.18, 0.12, 1.2)
  }
  dend[733] {pt3dclear()
	pt3dadd(32.71, 72.18, 0.12, 1.2)
	pt3dadd(30.86, 73.51, -0.4, 1.2)
	pt3dadd(28.83, 74.34, -0.64, 1.2)
	pt3dadd(26.99, 75, -0.64, 1.2)
  }
  dend[734] {pt3dclear()
	pt3dadd(26.99, 75, -0.64, 1.2)
	pt3dadd(26.99, 77.16, 0.28, 0.6)
	pt3dadd(26.99, 78.32, 0.28, 0.6)
  }
  dend[735] {pt3dclear()
	pt3dadd(26.99, 78.32, 0.28, 0.6)
	pt3dadd(28.1, 79.32, -0.6, 0.6)
	pt3dadd(28.83, 80.48, -0.6, 0.6)
	pt3dadd(28.83, 81.65, -0.6, 0.6)
	pt3dadd(29.76, 82.48, -0.6, 0.6)
	pt3dadd(31.42, 83.31, -0.6, 0.6)
	pt3dadd(32.34, 84.14, -0.6, 0.6)
  }
  dend[736] {pt3dclear()
	pt3dadd(32.34, 84.14, -0.6, 0.6)
	pt3dadd(34.74, 83.31, -0.96, 0.3)
  }
  dend[737] {pt3dclear()
	pt3dadd(32.34, 84.14, -0.6, 0.6)
	pt3dadd(33.63, 86.46, -2, 0.3)
  }
  dend[738] {pt3dclear()
	pt3dadd(26.99, 78.32, 0.28, 0.6)
	pt3dadd(25.88, 78.99, 0.28, 0.6)
	pt3dadd(24.22, 79.82, 0.28, 0.6)
	pt3dadd(23.11, 79.82, 0.28, 0.6)
	pt3dadd(22.01, 79.65, 0.28, 0.6)
	pt3dadd(21.08, 79.32, 0.28, 0.6)
  }
  dend[739] {pt3dclear()
	pt3dadd(26.99, 75, -0.64, 1.2)
	pt3dadd(24.77, 75, -1.16, 1.2)
	pt3dadd(21.82, 75, -1.16, 1.2)
	pt3dadd(18.87, 75.17, -3.48, 1.2)
  }
  dend[740] {pt3dclear()
	pt3dadd(18.87, 75.17, -3.48, 1.2)
	pt3dadd(17.02, 77.33, -3.48, 0.6)
	pt3dadd(15.55, 79.49, -3.48, 0.6)
	pt3dadd(14.26, 81.15, -3.48, 0.6)
	pt3dadd(12.6, 83.14, -3.48, 0.6)
  }
  dend[741] {pt3dclear()
	pt3dadd(18.87, 75.17, -3.48, 1.2)
	pt3dadd(18.13, 74.01, -3.48, 0.6)
  }
}
proc shape3d_20() {
  dend[741] {	pt3dadd(16.84, 71.35, -3.48, 0.6)
  }
  dend[742] {pt3dclear()
	pt3dadd(32.71, 72.18, 0.12, 1.2)
	pt3dadd(31.42, 70.35, -0.8, 1.2)
	pt3dadd(31.05, 68.19, -1.28, 1.2)
	pt3dadd(31.05, 65.37, -1.92, 1.2)
	pt3dadd(31.42, 62.54, -2.04, 1.2)
	pt3dadd(31.42, 60.38, -2.04, 1.2)
	pt3dadd(30.86, 58.56, -0.6, 1.2)
  }
  dend[743] {pt3dclear()
	pt3dadd(30.86, 58.56, -0.6, 1.2)
	pt3dadd(29.76, 57.39, 1.68, 1.2)
	pt3dadd(28.28, 55.9, 1.68, 1.2)
	pt3dadd(27.91, 54.24, 1.68, 1.2)
	pt3dadd(26.99, 52.24, 1.68, 1.2)
	pt3dadd(25.88, 51.08, 1.12, 1.2)
	pt3dadd(24.77, 49.59, 1.12, 0.6)
  }
  dend[744] {pt3dclear()
	pt3dadd(24.77, 49.59, 1.12, 0.6)
	pt3dadd(23.3, 49.09, 1.12, 0.6)
	pt3dadd(22.19, 48.92, 1.12, 0.6)
  }
  dend[745] {pt3dclear()
	pt3dadd(22.19, 48.92, 1.12, 0.6)
	pt3dadd(20.9, 48.76, 1.48, 1.2)
	pt3dadd(19.42, 48.59, 0.72, 1.2)
	pt3dadd(17.39, 48.59, 0.72, 0.6)
  }
  dend[746] {pt3dclear()
	pt3dadd(17.39, 48.59, 0.72, 0.6)
	pt3dadd(17.39, 49.92, 0.72, 0.6)
	pt3dadd(18.32, 50.92, 0.72, 0.6)
	pt3dadd(19.61, 51.75, 0.72, 0.6)
	pt3dadd(19.98, 52.74, 0.72, 0.6)
  }
  dend[747] {pt3dclear()
	pt3dadd(17.39, 48.59, 0.72, 0.6)
	pt3dadd(15.36, 47.76, 1.8, 0.6)
	pt3dadd(12.97, 47.26, 1.8, 0.6)
	pt3dadd(11.49, 47.26, 1.8, 0.6)
	pt3dadd(9.64, 47.26, 1.8, 0.6)
	pt3dadd(8.17, 46.43, 1.8, 0.6)
	pt3dadd(7.06, 46.6, 1.8, 0.3)
	pt3dadd(5.77, 45.43, 1.8, 0.3)
  }
  dend[748] {pt3dclear()
	pt3dadd(22.19, 48.92, 1.12, 0.6)
	pt3dadd(22.93, 46.26, 1, 0.6)
  }
  dend[749] {pt3dclear()
	pt3dadd(22.93, 46.26, 1, 0.6)
	pt3dadd(21.27, 44.27, 1, 0.3)
  }
  dend[750] {pt3dclear()
	pt3dadd(22.93, 46.26, 1, 0.6)
	pt3dadd(24.77, 45.43, 1, 0.6)
	pt3dadd(25.88, 44.6, 1, 0.6)
	pt3dadd(27.36, 44.27, 1, 0.6)
	pt3dadd(27.73, 44.6, 1, 0.6)
	pt3dadd(28.1, 45.1, 1, 0.6)
	pt3dadd(29.57, 44.94, 1, 0.6)
  }
  dend[751] {pt3dclear()
	pt3dadd(24.77, 49.59, 1.12, 0.6)
	pt3dadd(25.51, 48.09, 1.12, 0.6)
	pt3dadd(26.99, 48.26, 1.12, 0.6)
	pt3dadd(27.91, 48.92, 1.12, 0.6)
	pt3dadd(29.02, 49.59, 1.12, 0.6)
	pt3dadd(30.12, 49.25, 1.12, 0.6)
	pt3dadd(31.23, 48.59, 1.12, 0.6)
  }
  dend[752] {pt3dclear()
	pt3dadd(30.86, 58.56, -0.6, 1.2)
	pt3dadd(32.34, 57.06, -0.6, 0.6)
	pt3dadd(34, 55.23, 1.92, 0.6)
	pt3dadd(35.84, 54.07, 1.92, 0.6)
	pt3dadd(36.77, 53.91, 1.92, 0.6)
	pt3dadd(38.43, 54.9, 1.92, 0.6)
  }
  dend[753] {pt3dclear()
	pt3dadd(44.33, 78.32, 0.12, 1.8)
	pt3dadd(43.41, 76.33, 0.28, 1.2)
	pt3dadd(43.04, 74.84, -0.76, 1.2)
  }
  dend[754] {pt3dclear()
	pt3dadd(43.04, 74.84, -0.76, 1.2)
	pt3dadd(41.19, 74.5, -1.12, 0.6)
	pt3dadd(39.72, 73.84, -1.12, 0.6)
	pt3dadd(38.61, 72.68, -1.12, 0.6)
	pt3dadd(36.95, 71.68, -1.12, 0.6)
	pt3dadd(35.48, 70.85, -1.12, 0.6)
	pt3dadd(34.74, 69.69, -2.2, 0.6)
	pt3dadd(34.18, 67.86, -2.2, 0.6)
	pt3dadd(34, 66.36, -2.48, 0.6)
	pt3dadd(33.26, 64.2, -2.6, 0.6)
	pt3dadd(32.71, 62.21, -2.6, 0.3)
  }
  dend[755] {pt3dclear()
	pt3dadd(43.04, 74.84, -0.76, 1.2)
	pt3dadd(43.41, 72.84, -0.8, 0.6)
	pt3dadd(43.78, 71.51, -2.36, 0.6)
  }
  dend[756] {pt3dclear()
	pt3dadd(43.78, 71.51, -2.36, 0.6)
	pt3dadd(43.41, 70.02, -2.4, 0.6)
	pt3dadd(43.04, 68.86, -2.4, 0.6)
  }
  dend[757] {pt3dclear()
	pt3dadd(43.04, 68.86, -2.4, 0.6)
	pt3dadd(41.75, 67.86, -1.4, 0.6)
	pt3dadd(40.83, 67.19, -1.4, 1.2)
  }
  dend[758] {pt3dclear()
	pt3dadd(40.83, 67.19, -1.4, 1.2)
	pt3dadd(38.8, 68.02, -1.4, 0.3)
	pt3dadd(37.14, 68.36, -1.4, 0.3)
  }
  dend[759] {pt3dclear()
	pt3dadd(40.83, 67.19, -1.4, 1.2)
	pt3dadd(39.9, 66.03, -1.44, 1.2)
	pt3dadd(38.8, 64.87, -1.72, 1.2)
	pt3dadd(37.5, 65.03, -1.72, 1.2)
	pt3dadd(36.95, 64.87, -1.72, 1.2)
	pt3dadd(36.21, 63.71, -1.72, 1.2)
	pt3dadd(35.66, 62.38, -1.72, 1.2)
	pt3dadd(35.11, 61.05, -2.68, 1.2)
	pt3dadd(34.37, 60.22, -2.68, 1.2)
	pt3dadd(33.26, 59.72, -2.68, 1.2)
	pt3dadd(33.08, 58.06, -2.8, 0.6)
	pt3dadd(32.89, 56.06, -2.8, 0.6)
  }
  dend[760] {pt3dclear()
	pt3dadd(43.04, 68.86, -2.4, 0.6)
	pt3dadd(44.33, 67.53, -2.28, 0.6)
	pt3dadd(45.99, 67.03, -2.28, 0.6)
	pt3dadd(47.65, 67.53, -2.28, 0.6)
	pt3dadd(49.5, 67.53, -2.28, 0.6)
  }
  dend[761] {pt3dclear()
	pt3dadd(43.78, 71.51, -2.36, 0.6)
	pt3dadd(45.81, 70.68, -2.2, 0.6)
	pt3dadd(47.47, 71.02, -2.2, 0.3)
	pt3dadd(48.21, 72.51, -2.2, 0.3)
	pt3dadd(47.84, 73.84, -2.2, 0.3)
	pt3dadd(47.28, 75.17, -2.2, 0.3)
  }
  dend[762] {pt3dclear()
	pt3dadd(53.56, 76, -0.44, 1.8)
	pt3dadd(53.37, 76.5, 0.16, 0.6)
  }
  dend[763] {pt3dclear()
	pt3dadd(53.37, 76.5, 0.16, 0.6)
	pt3dadd(54.66, 76.5, -0.32, 0.6)
	pt3dadd(55.77, 76.33, -0.32, 0.6)
	pt3dadd(57.25, 76.5, -0.32, 0.6)
	pt3dadd(57.62, 77.16, -0.32, 0.6)
	pt3dadd(57.8, 77.99, -0.32, 0.6)
  }
  dend[764] {pt3dclear()
	pt3dadd(53.37, 76.5, 0.16, 0.6)
	pt3dadd(52.08, 74.67, -0.8, 0.6)
	pt3dadd(52.08, 73.17, -0.8, 0.6)
	pt3dadd(50.79, 72.51, -0.4, 0.6)
	pt3dadd(50.05, 71.51, -0.4, 0.6)
  }
  dend[765] {pt3dclear()
	pt3dadd(32.07, 52.16, 1.48, 5.4)
	pt3dadd(30.24, 53.38, 1.48, 3.9)
	pt3dadd(29.22, 54.4, 1.48, 3.6)
	pt3dadd(28.2, 55.42, 1.48, 2.7)
	pt3dadd(26.57, 57.25, 1.12, 2.7)
	pt3dadd(25.14, 59.07, 1.12, 3)
	pt3dadd(23.71, 60.5, 0.32, 3.9)
  }
  dend[766] {pt3dclear()
	pt3dadd(23.71, 60.5, 0.32, 3.9)
	pt3dadd(23.31, 62.53, 2.08, 3.9)
	pt3dadd(22.9, 64.36, 2.08, 3.6)
	pt3dadd(22.29, 66.59, 2.08, 3)
	pt3dadd(21.06, 69.64, 2.28, 3)
	pt3dadd(20.15, 71.55, 3.2, 3.6)
	pt3dadd(19.56, 72.97, 3.52, 3.9)
  }
  dend[767] {pt3dclear()
	pt3dadd(19.56, 72.97, 3.52, 3.9)
	pt3dadd(18.74, 75.01, 3.72, 3.9)
	pt3dadd(18.54, 77.04, 3.72, 3.6)
	pt3dadd(18.13, 79.07, 3.72, 3.9)
	pt3dadd(17.52, 80.7, 3.72, 4.5)
  }
  dend[768] {pt3dclear()
	pt3dadd(17.52, 80.7, 3.72, 4.5)
	pt3dadd(18.33, 83.54, 3.44, 3)
	pt3dadd(18.54, 86.59, 3.44, 2.4)
	pt3dadd(19.35, 89.84, 3.64, 2.4)
	pt3dadd(20.58, 92.89, 3.76, 2.4)
	pt3dadd(22.21, 95.74, 3.76, 2.4)
  }
  dend[769] {pt3dclear()
	pt3dadd(22.21, 95.74, 3.76, 2.4)
	pt3dadd(23.24, 98.07, 3.08, 2.4)
	pt3dadd(24.87, 100.3, 2.56, 1.8)
	pt3dadd(25.48, 101.72, 2.56, 1.8)
	pt3dadd(25.89, 102.54, 2.56, 2.4)
	pt3dadd(26.7, 104.37, 4, 2.4)
	pt3dadd(27.31, 105.99, 4, 3)
	pt3dadd(28.54, 107.62, 4.08, 3)
	pt3dadd(29.35, 109.04, 4.08, 2.4)
	pt3dadd(30.37, 109.65, 4.08, 2.4)
	pt3dadd(33.02, 112.7, 4.08, 2.4)
	pt3dadd(33.34, 113.13, 3.28, 2.7)
	pt3dadd(33.7, 113.8, 3.28, 2.7)
  }
  dend[770] {pt3dclear()
	pt3dadd(33.7, 113.8, 3.28, 2.7)
	pt3dadd(35.71, 112.25, 1.56, 1.2)
	pt3dadd(37.56, 112.08, 1.56, 1.2)
	pt3dadd(39.59, 113.25, 1.56, 1.2)
	pt3dadd(41.8, 114.41, 2.24, 1.2)
	pt3dadd(43.83, 115.57, 2.08, 1.2)
	pt3dadd(44.94, 117.4, 1.6, 0.6)
	pt3dadd(46.78, 119.23, 1.12, 1.2)
	pt3dadd(47.89, 121.05, 1.2, 1.2)
	pt3dadd(49.36, 122.55, 1.36, 1.2)
	pt3dadd(51.02, 124.87, 0.56, 1.2)
	pt3dadd(52.32, 127.37, 0.8, 1.8)
	pt3dadd(53.79, 129.19, 2, 1.8)
	pt3dadd(54.72, 130.85, 0.32, 1.2)
	pt3dadd(55.45, 132.18, 0.32, 1.2)
  }
  dend[771] {pt3dclear()
	pt3dadd(55.45, 132.18, 0.32, 1.2)
	pt3dadd(56.74, 133.35, 0.6, 1.2)
  }
  dend[772] {pt3dclear()
	pt3dadd(56.74, 133.35, 0.6, 1.2)
	pt3dadd(58.77, 134.84, 0.64, 0.6)
	pt3dadd(59.88, 136.17, 0.64, 1.2)
	pt3dadd(61.36, 138.16, 2.36, 1.2)
  }
  dend[773] {pt3dclear()
	pt3dadd(56.74, 133.35, 0.6, 1.2)
	pt3dadd(56.93, 135.34, 0.92, 0.6)
	pt3dadd(57.3, 137.17, 0.56, 0.6)
  }
  dend[774] {pt3dclear()
	pt3dadd(57.3, 137.17, 0.56, 0.6)
	pt3dadd(58.59, 139.49, 0.28, 0.6)
	pt3dadd(60.25, 141.15, 0.92, 0.6)
	pt3dadd(62.1, 143.48, 1.08, 0.6)
	pt3dadd(63.94, 144.97, 1.72, 1.2)
	pt3dadd(65.42, 146.3, 1.72, 1.2)
	pt3dadd(66.34, 148.8, 1.72, 0.6)
  }
  dend[775] {pt3dclear()
	pt3dadd(57.3, 137.17, 0.56, 0.6)
	pt3dadd(56.01, 138.83, 0.08, 0.6)
	pt3dadd(55.08, 140.82, -1.56, 0.6)
	pt3dadd(53.98, 143.31, -1.96, 0.6)
	pt3dadd(52.32, 145.14, -1.96, 0.3)
	pt3dadd(50.47, 148.13, -1.96, 0.3)
  }
  dend[776] {pt3dclear()
	pt3dadd(55.45, 132.18, 0.32, 1.2)
	pt3dadd(53.79, 133.18, -2.08, 0.6)
	pt3dadd(52.87, 132.18, -2.08, 0.3)
	pt3dadd(52.32, 130.85, -2.08, 0.3)
  }
}
proc shape3d_21() {
  dend[776] {	pt3dadd(50.84, 129.19, -2.08, 0.3)
	pt3dadd(50.29, 127.2, -2.08, 0.3)
	pt3dadd(49.18, 125.54, -2.08, 0.3)
	pt3dadd(47.89, 123.88, -2.08, 0.3)
  }
  dend[777] {pt3dclear()
	pt3dadd(33.7, 113.8, 3.28, 2.7)
	pt3dadd(34.81, 114.96, 4.2, 3)
	pt3dadd(36.84, 116.79, 3.92, 2.1)
	pt3dadd(38.87, 117.62, 3.64, 2.1)
	pt3dadd(40.9, 118.78, 3.44, 1.8)
	pt3dadd(42.56, 120.11, 2.76, 1.8)
	pt3dadd(44.22, 121.77, 1.84, 1.8)
	pt3dadd(45.7, 123.43, 1.96, 2.1)
	pt3dadd(46.07, 125.26, 1.2, 3)
	pt3dadd(46.99, 126.92, 1.04, 3)
  }
  dend[778] {pt3dclear()
	pt3dadd(46.99, 126.92, 1.04, 3)
	pt3dadd(48.46, 129.16, -0.52, 3)
	pt3dadd(50.12, 132.31, -0.96, 2.7)
  }
  dend[779] {pt3dclear()
	pt3dadd(50.12, 132.31, -0.96, 2.7)
	pt3dadd(51.22, 134.31, 1.76, 2.7)
	pt3dadd(51.59, 135.14, 2.48, 3.6)
	pt3dadd(52.15, 136.3, 2.48, 3.9)
	pt3dadd(52.7, 137.96, 1.52, 3.3)
	pt3dadd(53.81, 139.46, 1.84, 2.7)
	pt3dadd(54.92, 141.28, 1.84, 3)
	pt3dadd(56.39, 142.94, 1.68, 3)
	pt3dadd(58.05, 144.61, 2.04, 3)
	pt3dadd(59.71, 146.43, 2.96, 2.7)
	pt3dadd(60.63, 148.26, 2.16, 2.7)
	pt3dadd(61.37, 149.59, 2, 2.7)
  }
  dend[780] {pt3dclear()
	pt3dadd(61.37, 149.59, 2, 2.7)
	pt3dadd(63.73, 150.71, 0.52, 1.8)
	pt3dadd(65.21, 151.37, 0.72, 1.2)
	pt3dadd(66.5, 152.03, 0.72, 1.2)
  }
  dend[781] {pt3dclear()
	pt3dadd(66.5, 152.03, 0.72, 1.2)
	pt3dadd(69.08, 153.2, 0.92, 1.2)
	pt3dadd(71.3, 154.86, 1.08, 1.8)
  }
  dend[782] {pt3dclear()
	pt3dadd(71.3, 154.86, 1.08, 1.8)
	pt3dadd(73.33, 155.19, 1.16, 1.2)
	pt3dadd(74.99, 155.69, 1.92, 1.2)
  }
  dend[783] {pt3dclear()
	pt3dadd(74.99, 155.69, 1.92, 1.2)
	pt3dadd(77.02, 156.02, 1.6, 1.8)
  }
  dend[784] {pt3dclear()
	pt3dadd(77.02, 156.02, 1.6, 1.8)
	pt3dadd(76.83, 153.53, 2.44, 1.2)
	pt3dadd(75.91, 151.7, 1.96, 1.2)
  }
  dend[785] {pt3dclear()
	pt3dadd(75.91, 151.7, 1.96, 1.2)
	pt3dadd(74.43, 150.54, 1.76, 1.2)
	pt3dadd(73.7, 150.21, 2.4, 1.8)
  }
  dend[786] {pt3dclear()
	pt3dadd(73.7, 150.21, 2.4, 1.8)
	pt3dadd(71.52, 150.36, 1.6, 0.3)
	pt3dadd(69.68, 150.02, 0.32, 0.3)
	pt3dadd(67.83, 149.36, -0.68, 0.3)
	pt3dadd(66.17, 148.53, -2.28, 0.3)
	pt3dadd(64.88, 148.53, -1.64, 0.3)
	pt3dadd(62.85, 147.87, -0.68, 0.3)
	pt3dadd(61, 147.2, -2.84, 0.3)
	pt3dadd(59.9, 145.71, -2.84, 0.6)
	pt3dadd(59.53, 144.04, -2.84, 0.6)
  }
  dend[787] {pt3dclear()
	pt3dadd(59.53, 144.04, -2.84, 0.6)
	pt3dadd(58.24, 142.22, -2.84, 0.3)
	pt3dadd(57.68, 140.06, -2.84, 0.3)
	pt3dadd(57.68, 139.06, -1.68, 0.3)
  }
  dend[788] {pt3dclear()
	pt3dadd(59.53, 144.04, -2.84, 0.6)
	pt3dadd(60.63, 141.89, -1.92, 0.6)
	pt3dadd(62.11, 140.22, -1.92, 0.6)
	pt3dadd(63.03, 139.39, -1.92, 0.6)
  }
  dend[789] {pt3dclear()
	pt3dadd(73.7, 150.21, 2.4, 1.8)
	pt3dadd(72.4, 148.71, 2.08, 1.2)
	pt3dadd(71.48, 147.72, 3.52, 1.2)
	pt3dadd(69.64, 145.56, 2.24, 0.6)
  }
  dend[790] {pt3dclear()
	pt3dadd(69.64, 145.56, 2.24, 0.6)
	pt3dadd(67.09, 144.71, 1.96, 0.3)
  }
  dend[791] {pt3dclear()
	pt3dadd(69.64, 145.56, 2.24, 0.6)
	pt3dadd(67.98, 143.06, 1.28, 0.6)
	pt3dadd(66.87, 141.24, 2, 0.6)
	pt3dadd(66.13, 139.58, 1.6, 0.6)
	pt3dadd(65.95, 138.91, 1.6, 0.6)
  }
  dend[792] {pt3dclear()
	pt3dadd(65.95, 138.91, 1.6, 0.6)
	pt3dadd(64.1, 137.25, 0.96, 0.6)
	pt3dadd(62.63, 135.09, 0.96, 0.6)
	pt3dadd(60.78, 132.93, 0.16, 0.6)
	pt3dadd(59.12, 131.1, 0.56, 0.6)
	pt3dadd(56.72, 129.11, 0.56, 0.3)
	pt3dadd(55.1, 127.93, -1, 0.3)
	pt3dadd(53.62, 126.6, -3.08, 0.3)
	pt3dadd(52.7, 125.11, -3.08, 0.3)
	pt3dadd(51.41, 123.94, -3.08, 0.3)
	pt3dadd(50.86, 123.11, -2.04, 0.3)
  }
  dend[793] {pt3dclear()
	pt3dadd(65.95, 138.91, 1.6, 0.6)
	pt3dadd(66.69, 136.42, 2.56, 0.6)
	pt3dadd(66.32, 133.76, 2.56, 0.6)
	pt3dadd(66.32, 131.94, 3.36, 0.6)
	pt3dadd(65.76, 130.44, 3.36, 0.6)
	pt3dadd(64.47, 128.95, 3.36, 0.6)
	pt3dadd(63.92, 127.95, 2.68, 0.6)
  }
  dend[794] {pt3dclear()
	pt3dadd(75.91, 151.7, 1.96, 1.2)
	pt3dadd(77.2, 150.21, 1.96, 0.6)
	pt3dadd(78.86, 149.04, 1.96, 0.6)
	pt3dadd(80.52, 149.38, 1.96, 0.6)
	pt3dadd(81.81, 150.71, 1.96, 0.6)
	pt3dadd(82.74, 152.2, 2.2, 0.6)
	pt3dadd(82.92, 153.53, 2.2, 0.6)
	pt3dadd(83.11, 154.86, 2.2, 0.6)
  }
  dend[795] {pt3dclear()
	pt3dadd(77.02, 156.02, 1.6, 1.8)
	pt3dadd(79.97, 157.85, 1.6, 1.2)
	pt3dadd(82.55, 159.18, 2.12, 1.2)
	pt3dadd(84.21, 160.51, 0.44, 1.2)
	pt3dadd(85.87, 161.67, 2.16, 1.2)
  }
  dend[796] {pt3dclear()
	pt3dadd(85.87, 161.67, 2.16, 1.2)
	pt3dadd(87.16, 160.34, 0.96, 0.3)
	pt3dadd(88.64, 159.84, 0.96, 0.3)
	pt3dadd(89.75, 160.51, 0.96, 0.3)
	pt3dadd(89.93, 162.17, 0.92, 0.3)
  }
  dend[797] {pt3dclear()
	pt3dadd(85.87, 161.67, 2.16, 1.2)
	pt3dadd(87.72, 163.5, 2.76, 1.2)
	pt3dadd(89.01, 164.49, 2.2, 1.8)
	pt3dadd(89.93, 165.32, 2.88, 2.1)
  }
  dend[798] {pt3dclear()
	pt3dadd(89.93, 165.32, 2.88, 2.1)
	pt3dadd(91.78, 164.66, 3.64, 1.8)
	pt3dadd(92.88, 164, 3.64, 1.2)
  }
  dend[799] {pt3dclear()
	pt3dadd(89.93, 165.32, 2.88, 2.1)
	pt3dadd(90.85, 167.48, 2.96, 2.1)
	pt3dadd(91.96, 168.81, 2.56, 1.8)
	pt3dadd(92.15, 170.47, 2.56, 1.2)
	pt3dadd(92.15, 171.64, 2.44, 1.2)
	pt3dadd(92.15, 172.8, 3.24, 0.6)
  }
  dend[800] {pt3dclear()
	pt3dadd(74.99, 155.69, 1.92, 1.2)
	pt3dadd(75.36, 157.85, 1.28, 0.6)
	pt3dadd(75.36, 158.85, 1.28, 0.6)
	pt3dadd(76.46, 159.84, 1.28, 0.6)
	pt3dadd(77.94, 161.5, 0.92, 1.2)
	pt3dadd(78.86, 163.66, 0.76, 1.2)
	pt3dadd(79.6, 165.16, 0.76, 1.2)
	pt3dadd(81.26, 167.15, 1.36, 1.2)
	pt3dadd(83.66, 168.48, 1.28, 1.2)
	pt3dadd(85.14, 170.31, 0.36, 1.2)
	pt3dadd(87.16, 171.97, 0.8, 1.2)
	pt3dadd(88.09, 173.46, 0.32, 1.2)
	pt3dadd(89.19, 174.96, 0.48, 1.2)
  }
  dend[801] {pt3dclear()
	pt3dadd(89.19, 174.96, 0.48, 1.2)
	pt3dadd(91.96, 175.12, 0.48, 1.2)
  }
  dend[802] {pt3dclear()
	pt3dadd(91.96, 175.12, 0.48, 1.2)
	pt3dadd(93.25, 173.96, 1.72, 0.6)
	pt3dadd(94.73, 173.3, 1.68, 0.3)
	pt3dadd(96.21, 172.63, 0.96, 0.6)
	pt3dadd(97.13, 171.97, 1.4, 0.3)
	pt3dadd(98.23, 171.47, 2.08, 0.6)
  }
  dend[803] {pt3dclear()
	pt3dadd(91.96, 175.12, 0.48, 1.2)
	pt3dadd(92.52, 176.29, 0.92, 1.8)
	pt3dadd(94.54, 178.28, 0.8, 2.1)
	pt3dadd(96.39, 180.11, 0.8, 2.1)
	pt3dadd(98.23, 181.1, 1.2, 2.1)
	pt3dadd(99.34, 182.93, 1.16, 1.8)
	pt3dadd(99.9, 183.76, 1.2, 1.8)
  }
  dend[804] {pt3dclear()
	pt3dadd(89.19, 174.96, 0.48, 1.2)
	pt3dadd(89.19, 176.62, 0.6, 0.6)
	pt3dadd(89.19, 177.28, -0.64, 0.6)
  }
  dend[805] {pt3dclear()
	pt3dadd(89.19, 177.28, -0.64, 0.6)
	pt3dadd(90.85, 178.78, 0, 1.2)
	pt3dadd(91.96, 180.44, 0, 1.8)
	pt3dadd(92.52, 181.1, -0.04, 1.8)
  }
  dend[806] {pt3dclear()
	pt3dadd(89.19, 177.28, -0.64, 0.6)
	pt3dadd(87.9, 178.11, 0.6, 0.6)
  }
  dend[807] {pt3dclear()
	pt3dadd(71.3, 154.86, 1.08, 1.8)
	pt3dadd(72.04, 157.35, 1.84, 1.2)
	pt3dadd(72.22, 158.68, 2, 1.2)
	pt3dadd(73.51, 159.84, 2, 1.2)
	pt3dadd(73.51, 161.84, 0.12, 1.2)
	pt3dadd(74.62, 163.83, -0.8, 1.2)
	pt3dadd(74.8, 166.15, 0.32, 1.8)
	pt3dadd(75.91, 168.98, -0.44, 1.8)
	pt3dadd(77.57, 170.81, 0.44, 1.8)
	pt3dadd(78.68, 171.8, 0.32, 1.8)
  }
  dend[808] {pt3dclear()
	pt3dadd(78.68, 171.8, 0.32, 1.8)
	pt3dadd(80.71, 171.64, 0.76, 0.3)
	pt3dadd(82, 171.14, 0.76, 0.3)
  }
  dend[809] {pt3dclear()
	pt3dadd(78.68, 171.8, 0.32, 1.8)
	pt3dadd(79.23, 173.96, 1, 1.2)
	pt3dadd(80.52, 174.63, 0.4, 1.2)
  }
  dend[810] {pt3dclear()
	pt3dadd(80.52, 174.63, 0.4, 1.2)
	pt3dadd(83.11, 175.46, 1.44, 0.6)
	pt3dadd(84.77, 175.46, 3.44, 0.6)
	pt3dadd(85.87, 175.62, 3.76, 0.6)
  }
  dend[811] {pt3dclear()
	pt3dadd(80.52, 174.63, 0.4, 1.2)
	pt3dadd(81.45, 176.45, 1.4, 0.6)
	pt3dadd(83.11, 178.61, 1.76, 0.3)
  }
  dend[812] {pt3dclear()
	pt3dadd(66.5, 152.03, 0.72, 1.2)
	pt3dadd(66.32, 154.36, -1, 0.6)
	pt3dadd(66.32, 156.35, -1, 0.6)
	pt3dadd(65.39, 158.68, -0.84, 0.6)
  }
  dend[813] {pt3dclear()
	pt3dadd(65.39, 158.68, -0.84, 0.6)
	pt3dadd(67.05, 160.51, -0.76, 0.3)
	pt3dadd(68.53, 161.67, -0.76, 0.6)
	pt3dadd(69.45, 163.33, -2.4, 0.6)
  }
  dend[814] {pt3dclear()
	pt3dadd(65.39, 158.68, -0.84, 0.6)
	pt3dadd(64.66, 160.17, 0.64, 0.6)
	pt3dadd(64.47, 162.17, 0.64, 0.6)
	pt3dadd(64.66, 163.83, 0.64, 0.6)
  }
  dend[815] {pt3dclear()
	pt3dadd(61.37, 149.59, 2, 2.7)
	pt3dadd(61.37, 152.08, 2.4, 3)
	pt3dadd(61.19, 155.07, 2.4, 2.1)
  }
}
proc shape3d_22() {
  dend[815] {	pt3dadd(61.37, 157.56, 2.64, 2.1)
	pt3dadd(61.74, 160.55, 2.8, 1.8)
	pt3dadd(62.11, 162.88, 2.12, 2.1)
	pt3dadd(62.66, 165.37, 1.72, 1.8)
	pt3dadd(63.59, 168.19, 1.24, 1.8)
  }
  dend[816] {pt3dclear()
	pt3dadd(63.59, 168.19, 1.24, 1.8)
	pt3dadd(64.4, 168.32, 1.08, 3)
  }
  dend[817] {pt3dclear()
	pt3dadd(64.4, 168.32, 1.08, 3)
	pt3dadd(62.37, 165.83, -0.32, 0.6)
	pt3dadd(61.08, 163.17, -0.32, 0.6)
	pt3dadd(60.16, 161.51, -0.8, 0.6)
	pt3dadd(59.05, 159.52, -0.2, 0.6)
	pt3dadd(58.31, 157.69, -0.76, 0.6)
  }
  dend[818] {pt3dclear()
	pt3dadd(64.4, 168.32, 1.08, 3)
	pt3dadd(65.14, 168.49, 1.48, 3)
  }
  dend[819] {pt3dclear()
	pt3dadd(65.14, 168.49, 1.48, 3)
	pt3dadd(65.51, 166.5, 1.8, 0.6)
	pt3dadd(65.32, 165, 1.8, 0.6)
	pt3dadd(64.77, 163.67, 1.8, 0.6)
	pt3dadd(64.22, 162.51, 1.8, 0.6)
  }
  dend[820] {pt3dclear()
	pt3dadd(65.14, 168.49, 1.48, 3)
	pt3dadd(65.69, 168.49, 0.52, 3)
  }
  dend[821] {pt3dclear()
	pt3dadd(65.69, 168.49, 0.52, 3)
	pt3dadd(68.09, 167, -0.24, 1.2)
	pt3dadd(69.2, 166.16, -0.24, 1.2)
	pt3dadd(71.41, 166.83, -0.24, 1.2)
	pt3dadd(73.44, 167.33, 0.56, 1.2)
	pt3dadd(74.92, 167.33, 1, 1.2)
	pt3dadd(76.39, 166.5, 3.32, 1.2)
  }
  dend[822] {pt3dclear()
	pt3dadd(65.69, 168.49, 0.52, 3)
	pt3dadd(66.8, 170.32, 0.2, 1.8)
  }
  dend[823] {pt3dclear()
	pt3dadd(66.8, 170.32, 0.2, 1.8)
	pt3dadd(69.2, 171.48, -0.72, 1.2)
	pt3dadd(71.6, 173.31, -1.12, 1.2)
	pt3dadd(73.44, 175.47, -1.64, 1.2)
  }
  dend[824] {pt3dclear()
	pt3dadd(73.44, 175.47, -1.64, 1.2)
	pt3dadd(75.84, 176.96, -0.48, 1.2)
	pt3dadd(77.87, 179.29, -0.2, 1.2)
	pt3dadd(79.71, 180.62, 0.44, 1.2)
  }
  dend[825] {pt3dclear()
	pt3dadd(79.71, 180.62, 0.44, 1.2)
	pt3dadd(82.3, 180.62, 0.92, 1.2)
	pt3dadd(85.43, 180.45, 1.52, 1.2)
	pt3dadd(87.46, 180.62, 2.6, 1.2)
	pt3dadd(89.49, 182.28, 2.92, 1.2)
	pt3dadd(92.08, 183.44, 2.12, 1.2)
	pt3dadd(93.92, 184.27, 2.96, 1.2)
	pt3dadd(95.4, 185.77, 3.8, 1.2)
	pt3dadd(96.32, 186.93, 3.8, 1.2)
	pt3dadd(99.09, 188.09, 2.92, 1.2)
  }
  dend[826] {pt3dclear()
	pt3dadd(99.09, 188.09, 2.92, 1.2)
	pt3dadd(100.75, 187.26, 2.16, 1.2)
	pt3dadd(101.85, 186.76, 1.52, 1.2)
  }
  dend[827] {pt3dclear()
	pt3dadd(99.09, 188.09, 2.92, 1.2)
	pt3dadd(99.27, 190.25, 2.52, 1.8)
	pt3dadd(99.64, 191.91, 2.04, 1.8)
	pt3dadd(99.27, 193.57, 2.04, 1.2)
	pt3dadd(98.53, 194.9, 2.04, 0.6)
	pt3dadd(97.43, 196.9, 2.44, 0.3)
  }
  dend[828] {pt3dclear()
	pt3dadd(79.71, 180.62, 0.44, 1.2)
	pt3dadd(79.9, 182.94, 0.68, 1.2)
	pt3dadd(80.27, 184.44, 0.68, 1.2)
  }
  dend[829] {pt3dclear()
	pt3dadd(80.27, 184.44, 0.68, 1.2)
	pt3dadd(82.11, 186.1, 0.4, 1.2)
	pt3dadd(83.22, 188.09, 1.84, 1.2)
	pt3dadd(85.62, 189.42, 1.32, 1.2)
	pt3dadd(87.28, 190.25, 1.16, 1.8)
  }
  dend[830] {pt3dclear()
	pt3dadd(87.28, 190.25, 1.16, 1.8)
	pt3dadd(87.65, 187.93, 0.96, 1.2)
	pt3dadd(87.65, 185.6, 1.08, 1.2)
	pt3dadd(87.28, 184.27, 0.96, 1.2)
  }
  dend[831] {pt3dclear()
	pt3dadd(87.28, 190.25, 1.16, 1.8)
	pt3dadd(88.02, 191.91, 1.08, 1.8)
  }
  dend[832] {pt3dclear()
	pt3dadd(88.02, 191.91, 1.08, 1.8)
	pt3dadd(90.23, 191.41, 0.72, 0.6)
	pt3dadd(91.52, 192.24, 0.72, 0.6)
	pt3dadd(92.08, 193.24, 0.72, 0.6)
  }
  dend[833] {pt3dclear()
	pt3dadd(88.02, 191.91, 1.08, 1.8)
	pt3dadd(88.02, 193.57, 2.24, 1.2)
	pt3dadd(87.65, 195.57, 2.72, 1.2)
	pt3dadd(87.46, 197.73, 1.52, 1.2)
	pt3dadd(87.28, 199.72, 1.6, 0.6)
	pt3dadd(87.28, 201.38, 1.04, 0.6)
	pt3dadd(86.72, 202.21, 1.04, 0.6)
  }
  dend[834] {pt3dclear()
	pt3dadd(80.27, 184.44, 0.68, 1.2)
	pt3dadd(79.34, 185.93, -0.04, 0.6)
	pt3dadd(78.79, 186.76, -0.04, 0.6)
  }
  dend[835] {pt3dclear()
	pt3dadd(73.44, 175.47, -1.64, 1.2)
	pt3dadd(73.63, 177.46, -0.6, 1.2)
	pt3dadd(73.44, 178.79, -0.6, 2.1)
	pt3dadd(73.07, 180.12, -0.2, 3)
	pt3dadd(72.7, 182.11, 1, 1.8)
  }
  dend[836] {pt3dclear()
	pt3dadd(72.7, 182.11, 1, 1.8)
	pt3dadd(74.55, 183.77, 2.04, 1.8)
	pt3dadd(75.84, 185.77, 2.2, 1.8)
	pt3dadd(76.02, 187.43, 1.88, 1.8)
	pt3dadd(76.02, 189.59, 2.68, 1.8)
	pt3dadd(74.92, 191.25, 2, 1.8)
	pt3dadd(74.92, 192.74, 1.6, 1.8)
	pt3dadd(74.55, 194.24, -0.4, 1.2)
  }
  dend[837] {pt3dclear()
	pt3dadd(74.55, 194.24, -0.4, 1.2)
	pt3dadd(75.84, 196.23, -0.12, 0.6)
	pt3dadd(77.32, 198.06, 0.08, 0.6)
	pt3dadd(78.42, 199.72, -1.2, 0.6)
	pt3dadd(78.61, 201.88, -1.44, 0.6)
	pt3dadd(78.79, 204.04, -1.6, 0.6)
	pt3dadd(79.71, 205.53, 0, 0.6)
	pt3dadd(81.37, 206.86, 0, 0.3)
	pt3dadd(83.4, 207.53, -0.4, 0.3)
  }
  dend[838] {pt3dclear()
	pt3dadd(74.55, 194.24, -0.4, 1.2)
	pt3dadd(74.18, 195.9, -2.48, 0.6)
	pt3dadd(73.44, 197.56, -4.16, 0.6)
	pt3dadd(72.7, 198.56, -3.92, 0.6)
	pt3dadd(71.6, 200.05, -3.92, 0.3)
  }
  dend[839] {pt3dclear()
	pt3dadd(72.7, 182.11, 1, 1.8)
	pt3dadd(70.3, 183.44, 1, 0.3)
  }
  dend[840] {pt3dclear()
	pt3dadd(66.8, 170.32, 0.2, 1.8)
	pt3dadd(66.06, 170.98, -0.76, 0.6)
  }
  dend[841] {pt3dclear()
	pt3dadd(66.06, 170.98, -0.76, 0.6)
	pt3dadd(67.17, 172.64, -1.08, 0.6)
	pt3dadd(67.54, 173.97, -1.08, 0.6)
	pt3dadd(68.64, 174.47, -1.08, 0.3)
	pt3dadd(69.38, 176.13, -2.04, 0.3)
  }
  dend[842] {pt3dclear()
	pt3dadd(66.06, 170.98, -0.76, 0.6)
	pt3dadd(63.48, 169.15, -1.12, 0.6)
  }
  dend[843] {pt3dclear()
	pt3dadd(63.59, 168.19, 1.24, 1.8)
	pt3dadd(64.14, 170.52, 1.72, 1.8)
	pt3dadd(64.26, 173.68, 0.8, 1.8)
	pt3dadd(64.63, 176.33, 1.72, 2.1)
	pt3dadd(64.26, 179.16, 1.72, 2.1)
	pt3dadd(64.82, 182.15, 2.72, 2.1)
	pt3dadd(66.29, 184.97, 1.64, 2.1)
	pt3dadd(66.85, 187.46, 0.6, 1.8)
	pt3dadd(67.4, 188.96, -1.6, 2.1)
  }
  dend[844] {pt3dclear()
	pt3dadd(67.4, 188.96, -1.6, 2.1)
	pt3dadd(68.76, 190.29, -1.04, 2.1)
	pt3dadd(70.61, 191.28, -3.04, 1.8)
	pt3dadd(70.98, 193.28, -4.92, 1.8)
	pt3dadd(70.98, 194.94, -4.64, 1.2)
	pt3dadd(70.24, 196.6, -4.96, 1.2)
	pt3dadd(70.24, 198.09, -2.96, 1.2)
	pt3dadd(70.06, 199.42, -1.4, 1.8)
  }
  dend[845] {pt3dclear()
	pt3dadd(70.06, 199.42, -1.4, 1.8)
	pt3dadd(71.16, 200.25, -2.36, 1.8)
	pt3dadd(72.08, 201.42, -1.84, 1.8)
  }
  dend[846] {pt3dclear()
	pt3dadd(72.08, 201.42, -1.84, 1.8)
	pt3dadd(73.19, 203.58, -2.36, 1.2)
	pt3dadd(74.67, 205.07, -2.28, 1.2)
	pt3dadd(75.59, 205.9, -1.36, 1.2)
  }
  dend[847] {pt3dclear()
	pt3dadd(75.59, 205.9, -1.36, 1.2)
	pt3dadd(77.62, 206.23, -2.68, 0.6)
	pt3dadd(78.91, 207.23, -2.64, 0.6)
  }
  dend[848] {pt3dclear()
	pt3dadd(78.91, 207.23, -2.64, 0.6)
	pt3dadd(81.31, 205.24, -2.52, 1.2)
	pt3dadd(83.15, 204.57, -1.92, 1.2)
	pt3dadd(85.55, 204.24, 0.08, 1.2)
  }
  dend[849] {pt3dclear()
	pt3dadd(85.55, 204.24, 0.08, 1.2)
	pt3dadd(84.45, 201.25, 0.48, 0.6)
	pt3dadd(82.79, 198.92, 1.92, 0.6)
	pt3dadd(81.49, 197.26, 1.92, 0.6)
	pt3dadd(80.94, 195.6, 1.88, 1.2)
	pt3dadd(80.2, 194.27, 2.44, 1.2)
	pt3dadd(79.65, 192.61, 3.04, 0.6)
	pt3dadd(80.2, 191.62, 3.04, 0.6)
  }
  dend[850] {pt3dclear()
	pt3dadd(85.55, 204.24, 0.08, 1.2)
	pt3dadd(88.51, 204.57, 1.24, 0.6)
	pt3dadd(90.72, 203.91, 1.88, 1.2)
  }
  dend[851] {pt3dclear()
	pt3dadd(90.72, 203.91, 1.88, 1.2)
	pt3dadd(92.2, 202.08, 3, 1.8)
	pt3dadd(93.12, 201.25, 3, 1.8)
  }
  dend[852] {pt3dclear()
	pt3dadd(93.12, 201.25, 3, 1.8)
	pt3dadd(93.49, 199.09, 3.64, 0.6)
	pt3dadd(92.2, 197.6, 3.64, 0.6)
  }
  dend[853] {pt3dclear()
	pt3dadd(93.12, 201.25, 3, 1.8)
	pt3dadd(95.15, 201.58, 3.4, 0.6)
  }
  dend[854] {pt3dclear()
	pt3dadd(90.72, 203.91, 1.88, 1.2)
	pt3dadd(92.56, 204.74, 2.52, 0.6)
	pt3dadd(94.59, 206.4, 2.52, 0.6)
	pt3dadd(96.44, 207.06, 3.2, 0.6)
  }
  dend[855] {pt3dclear()
	pt3dadd(78.91, 207.23, -2.64, 0.6)
	pt3dadd(80.2, 208.56, -1.72, 0.6)
	pt3dadd(81.31, 209.06, -1.72, 0.6)
	pt3dadd(82.79, 209.39, -1.72, 0.6)
  }
  dend[856] {pt3dclear()
	pt3dadd(82.79, 209.39, -1.72, 0.6)
	pt3dadd(85.37, 209.39, -0.6, 1.2)
  }
  dend[857] {pt3dclear()
	pt3dadd(85.37, 209.39, -0.6, 1.2)
	pt3dadd(87.4, 208.56, -2.28, 0.6)
	pt3dadd(87.77, 207.06, -2.28, 0.6)
	pt3dadd(87.21, 205.4, -2.28, 0.6)
	pt3dadd(85.74, 203.41, -3.36, 0.6)
	pt3dadd(83.52, 201.75, -4.2, 0.3)
	pt3dadd(82.05, 200.25, -4.2, 0.3)
	pt3dadd(80.2, 198.92, -4.2, 0.3)
  }
  dend[858] {pt3dclear()
	pt3dadd(85.37, 209.39, -0.6, 1.2)
	pt3dadd(87.03, 211.05, -0.72, 0.6)
	pt3dadd(87.95, 212.55, 0.12, 0.6)
	pt3dadd(88.87, 214.21, 0.12, 0.6)
  }
  dend[859] {pt3dclear()
	pt3dadd(82.79, 209.39, -1.72, 0.6)
	pt3dadd(83.71, 211.55, -1.72, 0.6)
	pt3dadd(84.26, 212.71, -1.72, 0.6)
	pt3dadd(84.26, 214.54, 0.16, 0.6)
  }
}
proc shape3d_23() {
  dend[859] {	pt3dadd(84.26, 216.03, 0.24, 1.2)
	pt3dadd(84.63, 217.53, 0.36, 1.2)
	pt3dadd(84.82, 218.36, -0.2, 1.8)
  }
  dend[860] {pt3dclear()
	pt3dadd(84.82, 218.36, -0.2, 1.8)
	pt3dadd(86.48, 218.53, 0.44, 0.6)
	pt3dadd(87.58, 218.69, 0.44, 0.6)
	pt3dadd(88.87, 217.86, 0.44, 0.6)
	pt3dadd(88.69, 215.87, 1.56, 0.6)
	pt3dadd(89.43, 213.54, 1.56, 0.6)
  }
  dend[861] {pt3dclear()
	pt3dadd(84.82, 218.36, -0.2, 1.8)
	pt3dadd(84.08, 220.19, -1.48, 0.6)
	pt3dadd(83.15, 222.35, -1.48, 0.6)
	pt3dadd(83.34, 224.51, -3.28, 0.6)
	pt3dadd(84.26, 225.83, -3.4, 0.6)
	pt3dadd(86.11, 225.83, -4.2, 0.6)
	pt3dadd(88.14, 225, -4.16, 0.6)
  }
  dend[862] {pt3dclear()
	pt3dadd(75.59, 205.9, -1.36, 1.2)
	pt3dadd(75.96, 207.73, -0.6, 1.2)
	pt3dadd(76.7, 208.72, 0.52, 1.2)
	pt3dadd(77.07, 210.05, 0, 1.2)
  }
  dend[863] {pt3dclear()
	pt3dadd(77.07, 210.05, 0, 1.2)
	pt3dadd(78.73, 213.04, 0.16, 1.2)
	pt3dadd(78.91, 213.54, 0.24, 1.2)
  }
  dend[864] {pt3dclear()
	pt3dadd(78.91, 213.54, 0.24, 1.2)
	pt3dadd(80.76, 213.71, 0.32, 0.3)
	pt3dadd(82.23, 214.37, 0.32, 0.3)
  }
  dend[865] {pt3dclear()
	pt3dadd(78.91, 213.54, 0.24, 1.2)
	pt3dadd(80.02, 215.7, 0.64, 1.2)
	pt3dadd(81.31, 217.7, 1.28, 1.2)
	pt3dadd(82.05, 220.02, 1.28, 1.8)
	pt3dadd(80.39, 221.68, 0.72, 1.2)
	pt3dadd(78.91, 223.84, 0.08, 2.1)
	pt3dadd(77.99, 225.34, -0.04, 1.2)
	pt3dadd(77.62, 226.83, -1.56, 1.2)
	pt3dadd(78.36, 229.32, -1.8, 1.2)
  }
  dend[866] {pt3dclear()
	pt3dadd(77.07, 210.05, 0, 1.2)
	pt3dadd(76.88, 211.55, 0.52, 1.8)
  }
  dend[867] {pt3dclear()
	pt3dadd(76.88, 211.55, 0.52, 1.8)
	pt3dadd(76.33, 214.21, 0.88, 1.2)
	pt3dadd(76.7, 216.37, 1.24, 1.2)
	pt3dadd(76.7, 217.7, 1.24, 0.6)
	pt3dadd(77.25, 219.19, 1.12, 0.6)
	pt3dadd(77.99, 220.69, 0.32, 1.2)
	pt3dadd(79.28, 222.35, 0.4, 1.2)
	pt3dadd(81.13, 224.17, 0.4, 1.2)
  }
  dend[868] {pt3dclear()
	pt3dadd(76.88, 211.55, 0.52, 1.8)
	pt3dadd(74.67, 211.72, 1.76, 1.2)
	pt3dadd(72.64, 211.38, 1.76, 1.2)
	pt3dadd(70.61, 212.38, 1.76, 1.2)
	pt3dadd(69.13, 212.05, 0.6, 1.2)
	pt3dadd(67.66, 212.88, 1.68, 1.2)
	pt3dadd(65.63, 213.04, 1.68, 1.2)
	pt3dadd(63.6, 212.71, 1, 1.2)
	pt3dadd(61.2, 211.55, 1, 1.2)
	pt3dadd(59.54, 211.72, 0.6, 1.2)
	pt3dadd(57.69, 211.38, 0.6, 0.6)
	pt3dadd(56.59, 212.71, 0.6, 0.6)
	pt3dadd(55.85, 213.71, 0.48, 0.6)
  }
  dend[869] {pt3dclear()
	pt3dadd(55.85, 213.71, 0.48, 0.6)
	pt3dadd(56.59, 215.37, 1, 0.6)
	pt3dadd(57.69, 216.37, 1, 0.6)
	pt3dadd(58.8, 218.69, 1, 0.6)
  }
  dend[870] {pt3dclear()
	pt3dadd(55.85, 213.71, 0.48, 0.6)
	pt3dadd(54, 213.71, 0.56, 0.6)
	pt3dadd(52.71, 214.54, 0.56, 0.6)
  }
  dend[871] {pt3dclear()
	pt3dadd(72.08, 201.42, -1.84, 1.8)
	pt3dadd(71.35, 202.58, 0.24, 0.6)
	pt3dadd(71.72, 203.91, 0.04, 0.6)
	pt3dadd(71.9, 205.07, 0.56, 0.6)
  }
  dend[872] {pt3dclear()
	pt3dadd(70.06, 199.42, -1.4, 1.8)
	pt3dadd(68.76, 200.25, -0.28, 1.2)
	pt3dadd(68.58, 201.75, -0.32, 1.2)
  }
  dend[873] {pt3dclear()
	pt3dadd(68.58, 201.75, -0.32, 1.2)
	pt3dadd(68.39, 203.08, 0.04, 1.2)
	pt3dadd(68.76, 204.41, -0.2, 1.2)
	pt3dadd(69.69, 206.4, -0.4, 1.2)
	pt3dadd(70.79, 208.39, -1.08, 1.2)
	pt3dadd(71.9, 210.55, -0.36, 1.2)
	pt3dadd(72.82, 212.71, -0.12, 0.6)
	pt3dadd(72.82, 214.21, -0.44, 0.6)
	pt3dadd(72.27, 216.03, -0.04, 1.2)
	pt3dadd(72.27, 217.53, 0.12, 1.2)
  }
  dend[874] {pt3dclear()
	pt3dadd(72.27, 217.53, 0.12, 1.2)
	pt3dadd(72.82, 219.36, -0.12, 1.8)
	pt3dadd(73.19, 221.68, -0.44, 1.8)
	pt3dadd(74.3, 223.84, -0.48, 1.2)
	pt3dadd(74.11, 225.83, -0.84, 1.8)
	pt3dadd(74.67, 227.33, -1.68, 2.1)
  }
  dend[875] {pt3dclear()
	pt3dadd(74.67, 227.33, -1.68, 2.1)
	pt3dadd(76.88, 228.16, -1.8, 1.8)
	pt3dadd(77.99, 229.32, -1.32, 1.2)
  }
  dend[876] {pt3dclear()
	pt3dadd(74.67, 227.33, -1.68, 2.1)
	pt3dadd(73.19, 228.16, -1.68, 1.8)
	pt3dadd(72.08, 229.32, -3.96, 1.8)
	pt3dadd(71.35, 230.82, -4.36, 1.8)
	pt3dadd(70.79, 232.31, -5.6, 1.8)
  }
  dend[877] {pt3dclear()
	pt3dadd(72.27, 217.53, 0.12, 1.2)
	pt3dadd(69.87, 218.53, 0.68, 0.6)
	pt3dadd(67.1, 219.52, -0.44, 0.6)
	pt3dadd(63.97, 220.69, -1.48, 0.6)
	pt3dadd(61.75, 220.52, -2.12, 0.6)
	pt3dadd(59.54, 220.69, -2.92, 0.6)
	pt3dadd(57.88, 220.19, -3.8, 1.2)
  }
  dend[878] {pt3dclear()
	pt3dadd(57.88, 220.19, -3.8, 1.2)
	pt3dadd(56.4, 220.52, -4.36, 1.8)
	pt3dadd(54.93, 221.68, -4.36, 1.2)
	pt3dadd(54.93, 223.34, -4.36, 1.2)
	pt3dadd(55.11, 225, -4.36, 0.6)
	pt3dadd(55.66, 225.67, -4.36, 0.6)
  }
  dend[879] {pt3dclear()
	pt3dadd(57.88, 220.19, -3.8, 1.2)
	pt3dadd(57.51, 219.02, -3.12, 1.8)
	pt3dadd(56.59, 217.86, -2.4, 0.3)
	pt3dadd(56.03, 216.86, -2.4, 0.6)
	pt3dadd(54.93, 215.7, -1.8, 1.2)
	pt3dadd(54.19, 215.2, -1.8, 1.8)
  }
  dend[880] {pt3dclear()
	pt3dadd(68.58, 201.75, -0.32, 1.2)
	pt3dadd(66.55, 202.58, 1.8, 0.6)
	pt3dadd(65.63, 203.58, 1.8, 0.6)
	pt3dadd(65.44, 205.57, 1.8, 0.6)
	pt3dadd(65.81, 206.9, 2.24, 0.6)
	pt3dadd(66.37, 208.06, 2.24, 0.6)
	pt3dadd(66, 209.22, 2.24, 0.6)
	pt3dadd(67.29, 209.06, 2.24, 0.6)
	pt3dadd(68.76, 208.72, 2.56, 0.6)
  }
  dend[881] {pt3dclear()
	pt3dadd(67.4, 188.96, -1.6, 2.1)
	pt3dadd(66.29, 189.96, -2.2, 1.8)
  }
  dend[882] {pt3dclear()
	pt3dadd(66.29, 189.96, -2.2, 1.8)
	pt3dadd(67.1, 191.45, -4.04, 0.6)
	pt3dadd(67.1, 192.61, -4.04, 0.6)
	pt3dadd(66.55, 194.11, -4.2, 0.6)
	pt3dadd(65.44, 194.94, -2.88, 0.6)
	pt3dadd(64.34, 195.6, -2.88, 1.2)
	pt3dadd(63.6, 196.27, -1.6, 1.8)
  }
  dend[883] {pt3dclear()
	pt3dadd(63.6, 196.27, -1.6, 1.8)
	pt3dadd(65.07, 197.1, -2.16, 0.3)
	pt3dadd(66.55, 197.26, -2.16, 0.3)
	pt3dadd(67.84, 196.6, -2.16, 0.6)
  }
  dend[884] {pt3dclear()
	pt3dadd(63.6, 196.27, -1.6, 1.8)
	pt3dadd(62.86, 196.93, 0, 1.8)
  }
  dend[885] {pt3dclear()
	pt3dadd(62.86, 196.93, 0, 1.8)
	pt3dadd(63.6, 198.76, 0.44, 1.2)
	pt3dadd(63.6, 200.25, 0.44, 1.2)
	pt3dadd(62.31, 202.25, 1.84, 0.6)
	pt3dadd(62.12, 203.74, 0.88, 0.6)
	pt3dadd(62.12, 205.24, 1, 1.2)
	pt3dadd(61.75, 206.57, 1, 1.8)
	pt3dadd(60.83, 207.23, 1.08, 2.1)
	pt3dadd(59.17, 207.56, 1.04, 1.8)
	pt3dadd(57.14, 207.73, 0.6, 1.2)
	pt3dadd(56.03, 208.23, 0.56, 0.6)
	pt3dadd(54.19, 207.73, 0.56, 0.6)
	pt3dadd(52.9, 207.06, 0.56, 0.6)
  }
  dend[886] {pt3dclear()
	pt3dadd(62.86, 196.93, 0, 1.8)
	pt3dadd(61.57, 197.1, 0.4, 1.2)
	pt3dadd(60.28, 197.6, -0.2, 1.2)
  }
  dend[887] {pt3dclear()
	pt3dadd(60.28, 197.6, -0.2, 1.2)
	pt3dadd(59.72, 199.42, -1.24, 0.6)
	pt3dadd(58.99, 201.58, -1.08, 0.6)
	pt3dadd(58.43, 202.58, 1.08, 0.6)
  }
  dend[888] {pt3dclear()
	pt3dadd(58.43, 202.58, 1.08, 0.6)
	pt3dadd(58.43, 204.24, 1.48, 0.6)
  }
  dend[889] {pt3dclear()
	pt3dadd(58.43, 202.58, 1.08, 0.6)
	pt3dadd(55.66, 201.91, 1.08, 0.3)
  }
  dend[890] {pt3dclear()
	pt3dadd(60.28, 197.6, -0.2, 1.2)
	pt3dadd(58.8, 196.76, -0.68, 1.2)
	pt3dadd(56.59, 197.26, -0.68, 1.2)
	pt3dadd(55.3, 198.59, -0.88, 1.2)
	pt3dadd(54.93, 200.09, -0.88, 1.2)
	pt3dadd(54.93, 202.58, 0, 1.2)
	pt3dadd(54.74, 204.9, -0.8, 0.6)
	pt3dadd(53.82, 207.56, -0.8, 0.6)
	pt3dadd(52.53, 209.06, -0.92, 1.2)
	pt3dadd(50.31, 209.39, -0.32, 0.6)
	pt3dadd(47.73, 209.72, -0.8, 0.6)
  }
  dend[891] {pt3dclear()
	pt3dadd(66.29, 189.96, -2.2, 1.8)
	pt3dadd(64.08, 190.29, -3.2, 1.2)
	pt3dadd(61.86, 190.29, -2.88, 1.2)
	pt3dadd(60.02, 189.79, -2.68, 1.8)
	pt3dadd(58.91, 188.79, -2.84, 1.8)
  }
  dend[892] {pt3dclear()
	pt3dadd(58.91, 188.79, -2.84, 1.8)
	pt3dadd(57.44, 189.62, -1.6, 1.8)
	pt3dadd(55.96, 189.29, -1.6, 2.1)
  }
  dend[893] {pt3dclear()
	pt3dadd(55.96, 189.29, -1.6, 2.1)
	pt3dadd(55.85, 191.95, -1.56, 0.6)
	pt3dadd(56.22, 193.61, -1.56, 0.6)
	pt3dadd(57.32, 194.77, -0.64, 0.6)
	pt3dadd(59.72, 194.77, -1.32, 0.6)
	pt3dadd(61.75, 194.61, -2, 0.6)
	pt3dadd(63.6, 193.77, -3.36, 0.3)
  }
  dend[894] {pt3dclear()
	pt3dadd(55.96, 189.29, -1.6, 2.1)
	pt3dadd(54.3, 188.29, -1.44, 2.1)
  }
  dend[895] {pt3dclear()
	pt3dadd(54.3, 188.29, -1.44, 2.1)
	pt3dadd(52.09, 189.29, -0.28, 1.2)
	pt3dadd(50.98, 190.62, 1.28, 1.2)
	pt3dadd(50.24, 192.11, 1.64, 1.2)
	pt3dadd(49.13, 193.61, 0.52, 1.8)
	pt3dadd(48.76, 194.61, 1.4, 1.8)
  }
  dend[896] {pt3dclear()
	pt3dadd(48.76, 194.61, 1.4, 1.8)
	pt3dadd(48.21, 196.1, -0.32, 3)
  }
  dend[897] {pt3dclear()
	pt3dadd(48.21, 196.1, -0.32, 3)
  }
}
proc shape3d_24() {
  dend[897] {	pt3dadd(49.39, 197.93, -0.36, 0.6)
	pt3dadd(49.58, 199.42, -0.16, 0.6)
	pt3dadd(49.21, 200.59, -0.16, 0.6)
	pt3dadd(49.94, 201.91, 0.2, 0.6)
	pt3dadd(48.47, 202.58, 0.92, 0.6)
	pt3dadd(46.44, 202.74, 1.48, 0.6)
	pt3dadd(45.89, 203.91, 0.8, 0.6)
	pt3dadd(45.15, 205.73, 1.04, 0.6)
	pt3dadd(45.7, 208.23, -0.04, 0.6)
	pt3dadd(46.07, 209.89, -0.04, 0.6)
	pt3dadd(46.99, 211.05, 0.32, 0.6)
	pt3dadd(48.65, 212.05, 0.32, 0.6)
  }
  dend[898] {pt3dclear()
	pt3dadd(48.21, 196.1, -0.32, 3)
	pt3dadd(45.44, 197.43, 0, 1.2)
	pt3dadd(43.41, 198.09, 0, 1.2)
	pt3dadd(41.94, 198.59, -2.68, 1.2)
  }
  dend[899] {pt3dclear()
	pt3dadd(41.94, 198.59, -2.68, 1.2)
	pt3dadd(42.38, 201.42, -1.44, 1.2)
	pt3dadd(42.56, 203.24, -1.16, 1.2)
	pt3dadd(42.75, 204.74, -0.64, 1.2)
	pt3dadd(42.93, 205.57, -0.64, 1.2)
  }
  dend[900] {pt3dclear()
	pt3dadd(42.93, 205.57, -0.64, 1.2)
	pt3dadd(44.96, 206.9, -1.76, 0.3)
	pt3dadd(46.25, 207.23, -1.76, 0.3)
	pt3dadd(47.73, 208.56, -2.76, 0.3)
  }
  dend[901] {pt3dclear()
	pt3dadd(42.93, 205.57, -0.64, 1.2)
	pt3dadd(42.93, 206.57, -0.56, 1.2)
  }
  dend[902] {pt3dclear()
	pt3dadd(42.93, 206.57, -0.56, 1.2)
	pt3dadd(42.93, 208.39, -0.72, 0.6)
	pt3dadd(43.3, 209.72, -0.72, 0.6)
	pt3dadd(44.41, 210.88, -0.24, 0.6)
	pt3dadd(46.25, 211.88, -0.92, 0.6)
	pt3dadd(48.1, 212.21, -0.92, 0.3)
  }
  dend[903] {pt3dclear()
	pt3dadd(42.93, 206.57, -0.56, 1.2)
	pt3dadd(41.46, 207.06, 1.88, 0.6)
	pt3dadd(40.35, 207.56, 1.88, 0.6)
	pt3dadd(39.06, 207.4, 2.24, 0.6)
  }
  dend[904] {pt3dclear()
	pt3dadd(41.94, 198.59, -2.68, 1.2)
	pt3dadd(39.54, 199.26, -1.8, 1.2)
	pt3dadd(34.74, 200.25, -1.84, 1.2)
	pt3dadd(32.23, 201.25, -0.56, 0.6)
  }
  dend[905] {pt3dclear()
	pt3dadd(48.76, 194.61, 1.4, 1.8)
	pt3dadd(46.37, 193.44, 0.2, 1.2)
	pt3dadd(45.26, 192.11, 1.08, 1.2)
	pt3dadd(44.52, 190.29, 0.24, 0.6)
  }
  dend[906] {pt3dclear()
	pt3dadd(44.52, 190.29, 0.24, 0.6)
	pt3dadd(42.49, 189.46, -0.36, 0.6)
	pt3dadd(40.46, 188.79, -0.36, 0.6)
	pt3dadd(39.17, 188.79, -0.36, 0.6)
	pt3dadd(37.69, 187.63, -0.36, 0.6)
	pt3dadd(36.59, 186.8, 0.24, 0.3)
  }
  dend[907] {pt3dclear()
	pt3dadd(44.52, 190.29, 0.24, 0.6)
	pt3dadd(44.15, 188.79, 1.52, 0.3)
	pt3dadd(43.41, 187.63, 1.52, 0.3)
	pt3dadd(43.6, 186.63, 1.52, 0.3)
  }
  dend[908] {pt3dclear()
	pt3dadd(54.3, 188.29, -1.44, 2.1)
	pt3dadd(53.75, 186.13, -0.24, 1.2)
	pt3dadd(53.19, 185.3, -1.8, 1.2)
  }
  dend[909] {pt3dclear()
	pt3dadd(53.19, 185.3, -1.8, 1.2)
	pt3dadd(51.72, 183.81, -0.96, 1.2)
	pt3dadd(50.79, 182.15, -0.68, 1.2)
	pt3dadd(49.69, 180.49, -1.76, 1.2)
  }
  dend[910] {pt3dclear()
	pt3dadd(49.69, 180.49, -1.76, 1.2)
	pt3dadd(47.66, 179.32, -1.6, 1.2)
	pt3dadd(46.55, 178.33, -1.6, 1.2)
	pt3dadd(44.89, 177.16, -2.12, 0.6)
	pt3dadd(43.04, 176.17, -1.4, 1.2)
  }
  dend[911] {pt3dclear()
	pt3dadd(43.04, 176.17, -1.4, 1.2)
	pt3dadd(41.2, 176.83, -1.28, 1.2)
	pt3dadd(39.91, 177.33, -2.24, 1.2)
	pt3dadd(37.32, 177, -2.24, 0.3)
	pt3dadd(35.3, 177.33, -2.24, 0.6)
	pt3dadd(32.34, 178.33, -1.68, 0.6)
  }
  dend[912] {pt3dclear()
	pt3dadd(43.04, 176.17, -1.4, 1.2)
	pt3dadd(42.49, 174.17, -1.28, 0.3)
	pt3dadd(42.68, 172.51, -1.28, 0.3)
	pt3dadd(43.04, 171.18, -3.04, 0.3)
	pt3dadd(43.78, 169.69, -3.04, 0.6)
	pt3dadd(45.26, 168.69, -2.48, 0.6)
	pt3dadd(46, 168.19, -2.92, 0.3)
  }
  dend[913] {pt3dclear()
	pt3dadd(49.69, 180.49, -1.76, 1.2)
	pt3dadd(49.87, 178.33, -1.16, 0.6)
	pt3dadd(50.06, 176.5, -1.16, 0.3)
	pt3dadd(50.06, 174.17, -1.72, 0.6)
	pt3dadd(50.06, 170.85, -1.84, 0.6)
  }
  dend[914] {pt3dclear()
	pt3dadd(53.19, 185.3, -1.8, 1.2)
	pt3dadd(53.75, 183.64, -1.56, 0.6)
	pt3dadd(54.67, 181.65, -1.56, 0.6)
  }
  dend[915] {pt3dclear()
	pt3dadd(54.67, 181.65, -1.56, 0.6)
	pt3dadd(54.67, 179.32, -1.8, 0.6)
	pt3dadd(54.85, 177.5, -0.72, 0.6)
  }
  dend[916] {pt3dclear()
	pt3dadd(54.85, 177.5, -0.72, 0.6)
	pt3dadd(53.56, 177, -1.32, 0.6)
	pt3dadd(53.19, 176, -1.32, 0.6)
	pt3dadd(53.01, 174.67, -1.32, 0.6)
	pt3dadd(51.53, 173.51, -0.16, 0.6)
	pt3dadd(49.13, 172.02, -0.2, 0.3)
  }
  dend[917] {pt3dclear()
	pt3dadd(54.85, 177.5, -0.72, 0.6)
	pt3dadd(55.59, 175.84, -0.96, 0.3)
	pt3dadd(55.41, 174.34, 0.8, 0.6)
	pt3dadd(54.67, 172.68, 1.2, 1.2)
  }
  dend[918] {pt3dclear()
	pt3dadd(54.67, 181.65, -1.56, 0.6)
	pt3dadd(56.51, 180.65, -2.2, 0.6)
	pt3dadd(57.44, 180.99, -2.2, 0.6)
  }
  dend[919] {pt3dclear()
	pt3dadd(58.91, 188.79, -2.84, 1.8)
	pt3dadd(59.65, 186.97, -3.44, 0.3)
	pt3dadd(60.02, 185.8, -2.88, 0.6)
	pt3dadd(60.02, 184.81, -2.88, 0.6)
	pt3dadd(60.76, 183.81, -2.88, 0.6)
	pt3dadd(60.57, 182.81, -2.48, 0.6)
	pt3dadd(61.13, 181.15, -2.52, 0.3)
  }
  dend[920] {pt3dclear()
	pt3dadd(50.12, 132.31, -0.96, 2.7)
	pt3dadd(48.83, 133.64, -2.28, 2.1)
	pt3dadd(47.35, 134.97, -1.76, 1.2)
	pt3dadd(45.87, 135.97, -0.28, 1.8)
	pt3dadd(44.95, 136.63, 0.12, 2.1)
  }
  dend[921] {pt3dclear()
	pt3dadd(44.95, 136.63, 0.12, 2.1)
	pt3dadd(44.95, 138.62, 1.56, 2.1)
	pt3dadd(45.32, 139.95, 1.6, 2.1)
  }
  dend[922] {pt3dclear()
	pt3dadd(45.32, 139.95, 1.6, 2.1)
	pt3dadd(46.8, 141.45, -0.32, 1.8)
	pt3dadd(47.35, 141.78, -1, 1.8)
  }
  dend[923] {pt3dclear()
	pt3dadd(47.35, 141.78, -1, 1.8)
	pt3dadd(49.38, 141.78, -2, 0.6)
	pt3dadd(50.86, 141.12, -2, 0.6)
	pt3dadd(51.22, 140.45, -2, 0.6)
	pt3dadd(51.22, 138.46, -1.52, 0.6)
	pt3dadd(51.04, 137.63, -1.52, 1.2)
  }
  dend[924] {pt3dclear()
	pt3dadd(47.35, 141.78, -1, 1.8)
	pt3dadd(47.35, 143.44, 0.52, 1.2)
	pt3dadd(47.53, 145.1, 0.12, 1.2)
	pt3dadd(47.53, 146.43, 1.12, 1.2)
  }
  dend[925] {pt3dclear()
	pt3dadd(47.53, 146.43, 1.12, 1.2)
	pt3dadd(49.93, 147.43, 1.24, 0.3)
	pt3dadd(52.52, 147.6, 1.24, 0.3)
	pt3dadd(54.18, 149.26, 1.24, 0.3)
	pt3dadd(56.02, 151.42, 2.16, 0.6)
	pt3dadd(56.39, 153.41, 1.16, 0.6)
	pt3dadd(56.76, 155.4, 1.16, 0.6)
	pt3dadd(56.76, 156.73, 1.16, 0.6)
	pt3dadd(55.84, 157.89, 1.16, 0.6)
  }
  dend[926] {pt3dclear()
	pt3dadd(47.53, 146.43, 1.12, 1.2)
	pt3dadd(46.61, 148.09, 0.6, 1.2)
	pt3dadd(46.24, 148.76, 1.24, 1.2)
  }
  dend[927] {pt3dclear()
	pt3dadd(46.24, 148.76, 1.24, 1.2)
	pt3dadd(46.98, 150.75, 1.52, 1.2)
	pt3dadd(47.35, 152.25, 2.44, 1.2)
  }
  dend[928] {pt3dclear()
	pt3dadd(47.35, 152.25, 2.44, 1.2)
	pt3dadd(48.09, 152.91, 2.4, 1.2)
  }
  dend[929] {pt3dclear()
	pt3dadd(48.09, 152.91, 2.4, 1.2)
	pt3dadd(50.12, 154.41, 2.16, 0.6)
	pt3dadd(51.22, 156.07, 2.44, 0.6)
	pt3dadd(52.33, 158.56, 2.2, 1.2)
	pt3dadd(52.7, 159.06, 2.2, 1.2)
  }
  dend[930] {pt3dclear()
	pt3dadd(52.7, 159.06, 2.2, 1.2)
	pt3dadd(54.36, 160.72, 2.84, 1.2)
	pt3dadd(54.92, 161.88, 2.84, 0.6)
	pt3dadd(55.47, 162.71, 2.84, 0.6)
	pt3dadd(56.39, 162.88, 2.84, 0.6)
	pt3dadd(57.87, 164.54, 2.16, 0.6)
	pt3dadd(59.53, 166.03, 1.76, 0.6)
	pt3dadd(61.56, 167.86, -0.12, 0.3)
  }
  dend[931] {pt3dclear()
	pt3dadd(52.7, 159.06, 2.2, 1.2)
	pt3dadd(51.96, 161.38, 2.16, 0.6)
	pt3dadd(51.96, 163.21, 2.16, 0.6)
  }
  dend[932] {pt3dclear()
	pt3dadd(48.09, 152.91, 2.4, 1.2)
	pt3dadd(47.72, 155.9, 2.4, 0.3)
  }
  dend[933] {pt3dclear()
	pt3dadd(47.35, 152.25, 2.44, 1.2)
	pt3dadd(45.87, 153.41, 2.32, 1.2)
	pt3dadd(45.51, 154.57, 2.32, 1.2)
	pt3dadd(45.69, 156.07, 2.32, 1.2)
	pt3dadd(46.24, 157.89, 2.68, 0.6)
	pt3dadd(47.9, 158.72, 2.28, 0.3)
	pt3dadd(49.38, 159.06, 1.84, 0.6)
	pt3dadd(50.12, 160.05, 2.48, 0.6)
	pt3dadd(49.2, 162.05, 3, 0.3)
  }
  dend[934] {pt3dclear()
	pt3dadd(46.24, 148.76, 1.24, 1.2)
	pt3dadd(44.4, 149.42, 0.72, 0.3)
	pt3dadd(42.74, 150.59, 0.72, 0.3)
  }
  dend[935] {pt3dclear()
	pt3dadd(45.32, 139.95, 1.6, 2.1)
	pt3dadd(43.84, 140.62, 2.68, 2.1)
	pt3dadd(42.74, 141.28, 2.68, 3)
  }
  dend[936] {pt3dclear()
	pt3dadd(42.74, 141.28, 2.68, 3)
	pt3dadd(42.18, 142.94, 2.08, 1.8)
	pt3dadd(41.26, 143.94, 2.08, 1.8)
	pt3dadd(39.23, 144.61, 2.08, 1.8)
	pt3dadd(37.57, 145.44, 2.28, 1.2)
	pt3dadd(37.2, 146.93, 2.28, 1.2)
	pt3dadd(37.02, 148.26, 2.36, 1.2)
  }
  dend[937] {pt3dclear()
	pt3dadd(37.02, 148.26, 2.36, 1.2)
	pt3dadd(37.2, 150.09, 2.04, 1.2)
	pt3dadd(37.39, 151.08, 2.68, 1.2)
  }
  dend[938] {pt3dclear()
	pt3dadd(37.39, 151.08, 2.68, 1.2)
	pt3dadd(38.31, 153.24, 3, 1.8)
	pt3dadd(39.42, 154.9, 3.24, 1.8)
	pt3dadd(40.15, 156.23, 3.28, 1.8)
  }
  dend[939] {pt3dclear()
	pt3dadd(40.15, 156.23, 3.28, 1.8)
	pt3dadd(42.55, 156.9, 3.08, 1.2)
	pt3dadd(44.03, 158.72, 2, 1.2)
	pt3dadd(45.14, 160.22, 2.56, 1.2)
  }
}
proc shape3d_25() {
  dend[939] {	pt3dadd(45.87, 161.38, 2.56, 1.2)
  }
  dend[940] {pt3dclear()
	pt3dadd(40.15, 156.23, 3.28, 1.8)
	pt3dadd(39.79, 158.39, 3.28, 1.2)
	pt3dadd(39.79, 160.05, 3.28, 1.8)
	pt3dadd(39.6, 161.55, 3.44, 1.2)
  }
  dend[941] {pt3dclear()
	pt3dadd(37.39, 151.08, 2.68, 1.2)
	pt3dadd(35.73, 151.58, 2.56, 1.2)
	pt3dadd(34.99, 152.25, 2.56, 1.2)
	pt3dadd(34.44, 153.24, 2.56, 1.8)
  }
  dend[942] {pt3dclear()
	pt3dadd(37.02, 148.26, 2.36, 1.2)
	pt3dadd(34.8, 148.26, 2.32, 0.6)
	pt3dadd(32.96, 148.59, 2.32, 1.2)
	pt3dadd(32.22, 149.92, 3.36, 1.2)
	pt3dadd(31.67, 150.92, 3.36, 1.2)
  }
  dend[943] {pt3dclear()
	pt3dadd(31.67, 150.92, 3.36, 1.2)
	pt3dadd(32.04, 151.75, -1.28, 0.3)
	pt3dadd(32.77, 152.41, -1.28, 0.3)
	pt3dadd(34.07, 153.08, -0.92, 0.3)
  }
  dend[944] {pt3dclear()
	pt3dadd(31.67, 150.92, 3.36, 1.2)
	pt3dadd(30.19, 150.92, 3.44, 1.2)
	pt3dadd(27.79, 151.08, 3.44, 1.2)
  }
  dend[945] {pt3dclear()
	pt3dadd(42.74, 141.28, 2.68, 3)
	pt3dadd(41.08, 140.12, 2.32, 1.2)
	pt3dadd(40.34, 140.12, 2.32, 1.2)
  }
  dend[946] {pt3dclear()
	pt3dadd(40.34, 140.12, 2.32, 1.2)
	pt3dadd(38.31, 140.45, 2.04, 0.6)
	pt3dadd(35.91, 140.78, 1.48, 0.6)
	pt3dadd(34.44, 142.11, 1.2, 0.6)
  }
  dend[947] {pt3dclear()
	pt3dadd(34.44, 142.11, 1.2, 0.6)
	pt3dadd(34.44, 144.77, 1.2, 0.3)
	pt3dadd(33.88, 146.27, 0.92, 0.6)
	pt3dadd(32.77, 148.09, 0.68, 0.6)
  }
  dend[948] {pt3dclear()
	pt3dadd(34.44, 142.11, 1.2, 0.6)
	pt3dadd(32.04, 143.28, 1.28, 0.6)
  }
  dend[949] {pt3dclear()
	pt3dadd(32.04, 143.28, 1.28, 0.6)
	pt3dadd(31.48, 144.77, 0.28, 0.3)
	pt3dadd(31.48, 145.93, 0.28, 0.3)
	pt3dadd(32.41, 147.43, -0.84, 0.6)
	pt3dadd(33.51, 149.42, -1.56, 0.6)
	pt3dadd(35.17, 150.75, -1.84, 0.6)
	pt3dadd(35.91, 151.42, -1.84, 0.6)
  }
  dend[950] {pt3dclear()
	pt3dadd(32.04, 143.28, 1.28, 0.6)
	pt3dadd(30.19, 142.28, 2.56, 0.6)
	pt3dadd(28.72, 141.12, 2.44, 1.2)
	pt3dadd(27.06, 140.45, 2.44, 1.2)
  }
  dend[951] {pt3dclear()
	pt3dadd(40.34, 140.12, 2.32, 1.2)
	pt3dadd(38.31, 138.96, 2.08, 0.3)
	pt3dadd(36.28, 138.62, 1.76, 0.3)
	pt3dadd(33.88, 138.13, 1.4, 0.3)
  }
  dend[952] {pt3dclear()
	pt3dadd(44.95, 136.63, 0.12, 2.1)
	pt3dadd(42, 136.47, 1.28, 1.2)
	pt3dadd(39.6, 136.3, 1.96, 1.2)
	pt3dadd(37.2, 136.63, 1.88, 1.2)
	pt3dadd(35.36, 137.13, 1.88, 1.2)
	pt3dadd(32.96, 137.96, 1.88, 0.6)
	pt3dadd(30.93, 139.46, 1.36, 0.6)
  }
  dend[953] {pt3dclear()
	pt3dadd(46.99, 126.92, 1.04, 3)
	pt3dadd(44.96, 128.25, 1.44, 2.1)
  }
  dend[954] {pt3dclear()
	pt3dadd(44.96, 128.25, 1.44, 2.1)
	pt3dadd(42.74, 130.58, 0.56, 1.2)
	pt3dadd(41.08, 132.07, 1.36, 1.2)
	pt3dadd(39.42, 132.24, 1.44, 1.2)
	pt3dadd(37.76, 131.9, 1.24, 1.8)
	pt3dadd(35.73, 132.24, 1.52, 1.8)
	pt3dadd(33.89, 132.57, 2.64, 3)
  }
  dend[955] {pt3dclear()
	pt3dadd(33.89, 132.57, 2.64, 3)
	pt3dadd(31.31, 133.73, 2.04, 1.8)
	pt3dadd(29.09, 134.73, 1.6, 1.8)
  }
  dend[956] {pt3dclear()
	pt3dadd(29.09, 134.73, 1.6, 1.8)
	pt3dadd(27.42, 135.47, 1.24, 1.2)
	pt3dadd(25.76, 136.47, 1.24, 1.2)
	pt3dadd(24.84, 137.13, 1.24, 1.2)
	pt3dadd(24.1, 138.96, 1.6, 0.6)
	pt3dadd(24.1, 141.28, 1.6, 0.6)
	pt3dadd(23.92, 143.61, 1.72, 0.6)
	pt3dadd(23.73, 145.77, 1.56, 0.6)
	pt3dadd(23.55, 148.59, 1.56, 0.6)
  }
  dend[957] {pt3dclear()
	pt3dadd(29.09, 134.73, 1.6, 1.8)
	pt3dadd(27.8, 133.23, 2.2, 0.6)
	pt3dadd(26.32, 132.73, 2.2, 1.2)
	pt3dadd(25.22, 133.07, 2.2, 1.2)
	pt3dadd(23.56, 133.9, 2.2, 1.2)
	pt3dadd(21.9, 134.4, 2.2, 0.6)
	pt3dadd(21.34, 134.47, 2.2, 0.6)
  }
  dend[958] {pt3dclear()
	pt3dadd(21.34, 134.47, 2.2, 0.6)
	pt3dadd(20.78, 135.97, 2.12, 0.6)
	pt3dadd(20.04, 137.63, 2.68, 0.6)
  }
  dend[959] {pt3dclear()
	pt3dadd(21.34, 134.47, 2.2, 0.6)
	pt3dadd(19.49, 134.8, 2.2, 0.6)
	pt3dadd(17.46, 134.47, 2.2, 0.6)
	pt3dadd(15.99, 134.14, 2.2, 0.6)
	pt3dadd(13.77, 134.14, 2.12, 0.6)
	pt3dadd(11.93, 133.97, 2.12, 0.6)
	pt3dadd(10.45, 134.14, 2.12, 0.6)
	pt3dadd(9.16, 134.64, 2.12, 0.6)
	pt3dadd(8.42, 135.3, 2.12, 0.6)
  }
  dend[960] {pt3dclear()
	pt3dadd(33.89, 132.57, 2.64, 3)
	pt3dadd(32.23, 130.74, 2.88, 1.8)
	pt3dadd(31.31, 129.58, 2.6, 1.8)
	pt3dadd(30.57, 128.58, 2.76, 1.8)
	pt3dadd(28.91, 128.25, 2.72, 1.8)
	pt3dadd(27.8, 128.91, 2.72, 1.8)
	pt3dadd(25.96, 129.91, 2.2, 1.2)
	pt3dadd(24.85, 130.58, 2.52, 1.2)
	pt3dadd(22.63, 131.41, 2.52, 1.2)
	pt3dadd(21.16, 131.57, 2.52, 1.2)
	pt3dadd(19.13, 131.07, 2.48, 1.2)
	pt3dadd(17.1, 130.24, 2.48, 1.2)
	pt3dadd(15.25, 130.41, 2.48, 1.2)
  }
  dend[961] {pt3dclear()
	pt3dadd(44.96, 128.25, 1.44, 2.1)
	pt3dadd(43.11, 128.42, 1.6, 1.2)
	pt3dadd(41.08, 128.42, 1.04, 1.2)
	pt3dadd(38.87, 128.25, 2.16, 1.8)
	pt3dadd(36.84, 127.92, 2.2, 1.2)
	pt3dadd(35, 127.25, 1.84, 1.8)
  }
  dend[962] {pt3dclear()
	pt3dadd(35, 127.25, 1.84, 1.8)
	pt3dadd(32.41, 126.75, 1.72, 1.2)
	pt3dadd(30.57, 126.42, 1.72, 1.2)
	pt3dadd(28.91, 125.92, 1.4, 1.2)
	pt3dadd(26.69, 125.09, 1.28, 1.2)
  }
  dend[963] {pt3dclear()
	pt3dadd(26.69, 125.09, 1.28, 1.2)
	pt3dadd(25.96, 126.59, 0.8, 0.3)
	pt3dadd(26.14, 128.08, 0.8, 0.6)
	pt3dadd(26.51, 129.08, 0.8, 0.6)
	pt3dadd(26.88, 130.91, 1.36, 0.3)
	pt3dadd(27.25, 132.07, 1.36, 0.3)
  }
  dend[964] {pt3dclear()
	pt3dadd(26.69, 125.09, 1.28, 1.2)
	pt3dadd(25.4, 123.43, 1.56, 0.6)
  }
  dend[965] {pt3dclear()
	pt3dadd(25.4, 123.43, 1.56, 0.6)
	pt3dadd(23.93, 121.94, 3.04, 1.2)
	pt3dadd(22.27, 120.94, 3.96, 1.8)
	pt3dadd(20.24, 120.61, 3.96, 1.8)
  }
  dend[966] {pt3dclear()
	pt3dadd(20.24, 120.61, 3.96, 1.8)
	pt3dadd(19.31, 122.44, 3.28, 1.2)
	pt3dadd(19.13, 123.93, 3.28, 1.2)
	pt3dadd(19.87, 124.76, 3.28, 1.2)
	pt3dadd(20.42, 126.42, 3.28, 0.6)
	pt3dadd(20.05, 128.75, 3.28, 0.6)
  }
  dend[967] {pt3dclear()
	pt3dadd(20.24, 120.61, 3.96, 1.8)
	pt3dadd(18.02, 119.78, 3.96, 1.2)
	pt3dadd(16.36, 118.62, 3.96, 1.2)
  }
  dend[968] {pt3dclear()
	pt3dadd(25.4, 123.43, 1.56, 0.6)
	pt3dadd(26.69, 122.1, 2.2, 0.3)
	pt3dadd(27.43, 121.27, 2.2, 0.3)
  }
  dend[969] {pt3dclear()
	pt3dadd(35, 127.25, 1.84, 1.8)
	pt3dadd(34.44, 125.09, 1.84, 1.2)
	pt3dadd(34.44, 123.1, 2.12, 1.2)
	pt3dadd(34.26, 121.94, 1.12, 1.2)
  }
  dend[970] {pt3dclear()
	pt3dadd(34.26, 121.94, 1.12, 1.2)
	pt3dadd(33.15, 121.11, 1, 0.6)
	pt3dadd(31.31, 120.44, -0.08, 0.6)
	pt3dadd(30.2, 120.61, -1.04, 0.6)
  }
  dend[971] {pt3dclear()
	pt3dadd(30.2, 120.61, -1.04, 0.6)
	pt3dadd(29.46, 122.77, 0.2, 0.6)
	pt3dadd(28.91, 124.43, 0.44, 0.3)
	pt3dadd(30.01, 125.59, -0.24, 0.3)
  }
  dend[972] {pt3dclear()
	pt3dadd(30.2, 120.61, -1.04, 0.6)
	pt3dadd(27.98, 120.28, -0.64, 0.6)
	pt3dadd(25.77, 120.28, -0.56, 0.6)
	pt3dadd(23.74, 119.94, -0.16, 0.6)
	pt3dadd(21.71, 118.95, 0.64, 0.3)
  }
  dend[973] {pt3dclear()
	pt3dadd(34.26, 121.94, 1.12, 1.2)
	pt3dadd(34.81, 120.44, 1.72, 0.6)
	pt3dadd(36.84, 119.78, 2.68, 0.6)
	pt3dadd(39.05, 119.94, 3.88, 0.6)
	pt3dadd(41.27, 120.77, 3.36, 0.6)
	pt3dadd(42.56, 121.27, 2.84, 0.6)
  }
  dend[974] {pt3dclear()
	pt3dadd(22.21, 95.74, 3.76, 2.4)
	pt3dadd(20.78, 97.36, 3.76, 2.4)
  }
  dend[975] {pt3dclear()
	pt3dadd(20.78, 97.36, 3.76, 2.4)
	pt3dadd(18.33, 99.8, 3.76, 1.8)
	pt3dadd(15.89, 102.65, 2.96, 2.4)
	pt3dadd(14.05, 104.68, 2.96, 2.4)
	pt3dadd(13.03, 105.49, 2.96, 3)
  }
  dend[976] {pt3dclear()
	pt3dadd(13.03, 105.49, 2.96, 3)
	pt3dadd(12.84, 109.04, 3.44, 1.8)
	pt3dadd(13.66, 111.89, 3.44, 1.8)
	pt3dadd(15.09, 113.31, 3.44, 2.4)
	pt3dadd(16.11, 114.73, 3.44, 2.4)
	pt3dadd(17.33, 116.56, 4.08, 2.4)
  }
  dend[977] {pt3dclear()
	pt3dadd(17.33, 116.56, 4.08, 2.4)
	pt3dadd(21.2, 115.34, 3.68, 1.5)
	pt3dadd(25.07, 114.33, 3.88, 1.5)
  }
  dend[978] {pt3dclear()
	pt3dadd(25.07, 114.33, 3.88, 1.5)
	pt3dadd(26.09, 111.68, 2.28, 0.9)
	pt3dadd(27.52, 110.26, 0.08, 0.9)
	pt3dadd(28.95, 109.24, -1.76, 0.9)
  }
  dend[979] {pt3dclear()
	pt3dadd(25.07, 114.33, 3.88, 1.5)
	pt3dadd(27.11, 117.58, 5.64, 0.3)
  }
  dend[980] {pt3dclear()
	pt3dadd(17.33, 116.56, 4.08, 2.4)
	pt3dadd(18.76, 118.59, 3.4, 1.8)
	pt3dadd(19.77, 120.42, 2.76, 1.8)
  }
  dend[981] {pt3dclear()
	pt3dadd(19.77, 120.42, 2.76, 1.8)
	pt3dadd(21.4, 123.68, 1.4, 1.8)
	pt3dadd(22.22, 126.93, 1.4, 1.8)
	pt3dadd(22.42, 127.94, 1.4, 1.8)
  }
  dend[982] {pt3dclear()
	pt3dadd(22.42, 127.94, 1.4, 1.8)
	pt3dadd(23.03, 129.57, 1.4, 1.8)
	pt3dadd(23.85, 131.81, 2.04, 1.8)
	pt3dadd(23.44, 133.02, 2.04, 1.8)
  }
}
proc shape3d_26() {
  dend[982] {	pt3dadd(22.63, 134.65, 2.04, 1.8)
  }
  dend[983] {pt3dclear()
	pt3dadd(22.63, 134.65, 2.04, 1.8)
	pt3dadd(26.7, 137.09, 1.56, 0.9)
	pt3dadd(29.76, 138.72, 1.56, 0.3)
	pt3dadd(31.39, 140.55, 1.56, 0.3)
	pt3dadd(32.82, 142.58, 1.56, 0.3)
  }
  dend[984] {pt3dclear()
	pt3dadd(22.63, 134.65, 2.04, 1.8)
	pt3dadd(21.81, 136.89, 2.04, 1.8)
  }
  dend[985] {pt3dclear()
	pt3dadd(21.81, 136.89, 2.04, 1.8)
	pt3dadd(24.87, 139.94, 0.52, 0.9)
	pt3dadd(27.52, 142.58, 0.52, 0.9)
	pt3dadd(27.93, 145.02, 0.52, 0.3)
	pt3dadd(28.33, 146.24, 0.52, 0.9)
	pt3dadd(29.15, 148.88, 0.52, 0.3)
	pt3dadd(29.96, 152.13, 0.52, 0.9)
  }
  dend[986] {pt3dclear()
	pt3dadd(21.81, 136.89, 2.04, 1.8)
	pt3dadd(19.77, 139.12, 2.04, 1.8)
  }
  dend[987] {pt3dclear()
	pt3dadd(19.77, 139.12, 2.04, 1.8)
	pt3dadd(21, 143.19, 1.56, 1.5)
  }
  dend[988] {pt3dclear()
	pt3dadd(21, 143.19, 1.56, 1.5)
	pt3dadd(23.44, 145.63, 1.56, 0.9)
	pt3dadd(25.07, 148.27, 1.56, 0.9)
	pt3dadd(27.31, 151.93, 1.56, 0.9)
  }
  dend[989] {pt3dclear()
	pt3dadd(21, 143.19, 1.56, 1.5)
	pt3dadd(20.59, 146.44, 1.56, 1.5)
  }
  dend[990] {pt3dclear()
	pt3dadd(20.59, 146.44, 1.56, 1.5)
	pt3dadd(22.83, 149.69, 1.56, 0.9)
  }
  dend[991] {pt3dclear()
	pt3dadd(20.59, 146.44, 1.56, 1.5)
	pt3dadd(18.14, 145.22, 1.56, 1.5)
	pt3dadd(16.11, 143.8, 1.56, 1.5)
	pt3dadd(13.86, 142.78, 1.56, 1.5)
	pt3dadd(11.21, 141.76, 1.56, 1.5)
  }
  dend[992] {pt3dclear()
	pt3dadd(19.77, 139.12, 2.04, 1.8)
	pt3dadd(17.74, 140.14, 2.04, 1.5)
	pt3dadd(16.11, 141.15, 2.04, 1.5)
	pt3dadd(14.68, 141.56, 2.04, 1.5)
	pt3dadd(10.6, 141.76, 2.04, 0.9)
  }
  dend[993] {pt3dclear()
	pt3dadd(22.42, 127.94, 1.4, 1.8)
	pt3dadd(20.18, 129.98, 1.4, 1.5)
	pt3dadd(19.16, 131.6, 1.4, 1.5)
	pt3dadd(17.94, 132.82, 1.4, 1.5)
	pt3dadd(15.49, 134.65, 1.4, 1.5)
	pt3dadd(16.31, 136.68, 1.4, 0.9)
	pt3dadd(17.74, 139.33, 1.4, 0.9)
  }
  dend[994] {pt3dclear()
	pt3dadd(19.77, 120.42, 2.76, 1.8)
	pt3dadd(19.16, 123.47, 2.76, 1.5)
	pt3dadd(17.74, 125.71, 2.76, 1.5)
	pt3dadd(16.72, 128.15, 2.76, 1.5)
	pt3dadd(15.49, 129.37, 2.76, 1.5)
	pt3dadd(14.48, 130.79, 2.76, 1.5)
	pt3dadd(12.84, 132.21, 2.76, 1.5)
  }
  dend[995] {pt3dclear()
	pt3dadd(12.84, 132.21, 2.76, 1.5)
	pt3dadd(12.84, 134.24, 2.84, 1.5)
	pt3dadd(12.84, 136.28, 2.84, 0.9)
	pt3dadd(12.03, 137.7, 2.84, 0.9)
	pt3dadd(9.79, 138.11, 2.8, 0.9)
	pt3dadd(8.16, 138.51, 2.8, 0.9)
	pt3dadd(5.3, 139.53, 2.76, 0.9)
  }
  dend[996] {pt3dclear()
	pt3dadd(12.84, 132.21, 2.76, 1.5)
	pt3dadd(10.81, 131.4, 2.72, 1.5)
	pt3dadd(9.18, 130.99, 2.72, 1.5)
	pt3dadd(7.14, 132.21, 2.68, 1.5)
	pt3dadd(6.73, 133.84, 2.64, 1.5)
	pt3dadd(5.92, 135.26, 1.48, 1.5)
	pt3dadd(2.86, 135.46, 1.44, 1.5)
	pt3dadd(0.41, 135.46, 1.44, 1.5)
	pt3dadd(-1.83, 135.26, 1.4, 1.5)
  }
  dend[997] {pt3dclear()
	pt3dadd(13.03, 105.49, 2.96, 3)
	pt3dadd(9.37, 105.49, 1.52, 3)
  }
  dend[998] {pt3dclear()
	pt3dadd(9.37, 105.49, 1.52, 3)
	pt3dadd(6.53, 106.2, 2.96, 2.4)
	pt3dadd(5.3, 107.21, 2.96, 2.4)
  }
  dend[999] {pt3dclear()
	pt3dadd(5.3, 107.21, 2.96, 2.4)
	pt3dadd(5.92, 110.06, 2.16, 1.5)
	pt3dadd(6.73, 112.9, 2.16, 1.5)
	pt3dadd(8.36, 116.15, 2.16, 1.5)
  }
  dend[1000] {pt3dclear()
	pt3dadd(8.36, 116.15, 2.16, 1.5)
	pt3dadd(11.62, 119.81, 2.16, 1.5)
  }
  dend[1001] {pt3dclear()
	pt3dadd(11.62, 119.81, 2.16, 1.5)
	pt3dadd(14.48, 121.03, 2.68, 0.9)
  }
  dend[1002] {pt3dclear()
	pt3dadd(14.48, 121.03, 2.68, 0.9)
	pt3dadd(16.72, 119.41, 1.76, 0.9)
  }
  dend[1003] {pt3dclear()
	pt3dadd(14.48, 121.03, 2.68, 0.9)
	pt3dadd(15.49, 123.68, 2.68, 0.9)
	pt3dadd(15.7, 126.11, 2.68, 0.9)
  }
  dend[1004] {pt3dclear()
	pt3dadd(11.62, 119.81, 2.16, 1.5)
	pt3dadd(11.42, 122.46, 2.16, 1.5)
	pt3dadd(11.62, 124.49, 2.16, 1.5)
	pt3dadd(11.83, 125.71, 2.16, 1.5)
	pt3dadd(12.84, 129.37, 2.16, 0.9)
  }
  dend[1005] {pt3dclear()
	pt3dadd(8.36, 116.15, 2.16, 1.5)
	pt3dadd(6.93, 118.19, 2.52, 1.5)
	pt3dadd(6.12, 120.02, 2.52, 1.5)
	pt3dadd(5.3, 121.85, 2.52, 1.5)
	pt3dadd(5.92, 124.08, 2.52, 1.5)
	pt3dadd(6.73, 126.32, 2.52, 0.9)
  }
  dend[1006] {pt3dclear()
	pt3dadd(5.3, 107.21, 2.96, 2.4)
	pt3dadd(2.86, 108.43, 3.24, 2.4)
  }
  dend[1007] {pt3dclear()
	pt3dadd(2.86, 108.43, 3.24, 2.4)
	pt3dadd(2.45, 111.89, 3.8, 1.5)
  }
  dend[1008] {pt3dclear()
	pt3dadd(2.45, 111.89, 3.8, 1.5)
	pt3dadd(2.65, 114.73, 3.8, 1.5)
	pt3dadd(2.25, 116.76, 3.8, 1.8)
	pt3dadd(1.84, 118.8, 3.88, 1.8)
  }
  dend[1009] {pt3dclear()
	pt3dadd(1.84, 118.8, 3.88, 1.8)
	pt3dadd(2.04, 122.05, 3.88, 0.9)
	pt3dadd(2.04, 124.49, 3.88, 1.5)
	pt3dadd(2.86, 126.32, 3.88, 1.5)
	pt3dadd(3.88, 127.94, 3.8, 1.5)
  }
  dend[1010] {pt3dclear()
	pt3dadd(3.88, 127.94, 3.8, 1.5)
	pt3dadd(4.9, 128.35, 3.8, 0.9)
  }
  dend[1011] {pt3dclear()
	pt3dadd(4.9, 128.35, 3.8, 0.9)
	pt3dadd(7.34, 126.52, 3.44, 0.9)
	pt3dadd(8.36, 125.1, 2.28, 0.9)
	pt3dadd(8.77, 122.86, 2, 0.9)
	pt3dadd(8.56, 120.42, 2.2, 0.3)
  }
  dend[1012] {pt3dclear()
	pt3dadd(4.9, 128.35, 3.8, 0.9)
	pt3dadd(5.92, 129.77, 3.8, 0.9)
  }
  dend[1013] {pt3dclear()
	pt3dadd(3.88, 127.94, 3.8, 1.5)
	pt3dadd(2.04, 129.77, 3.8, 0.9)
	pt3dadd(2.04, 131.4, 3.8, 0.9)
	pt3dadd(2.65, 134.65, 3.8, 0.9)
  }
  dend[1014] {pt3dclear()
	pt3dadd(1.84, 118.8, 3.88, 1.8)
	pt3dadd(-0.2, 119.61, 4.24, 1.5)
	pt3dadd(-1.83, 121.24, 4.24, 0.9)
	pt3dadd(-2.44, 122.25, 4.24, 0.9)
	pt3dadd(-3.05, 123.88, 4.24, 1.5)
	pt3dadd(-3.46, 125.1, 4.24, 1.5)
	pt3dadd(-2.85, 127.13, 4.24, 0.9)
	pt3dadd(-2.24, 128.76, 4.24, 1.5)
	pt3dadd(-1.22, 130.59, 4.24, 1.5)
	pt3dadd(-0.61, 132.21, 4.24, 1.5)
	pt3dadd(0.62, 134.24, 4.24, 1.5)
	pt3dadd(2.04, 135.46, 4.24, 1.5)
	pt3dadd(3.67, 137.09, 4.24, 1.5)
  }
  dend[1015] {pt3dclear()
	pt3dadd(2.45, 111.89, 3.8, 1.5)
	pt3dadd(0.41, 112.7, 3.8, 1.5)
	pt3dadd(-1.83, 114.12, 3.8, 1.5)
	pt3dadd(-2.85, 116.15, 3.8, 1.5)
	pt3dadd(-4.68, 119.2, 3.8, 1.5)
	pt3dadd(-5.29, 121.24, 3.8, 1.5)
	pt3dadd(-6.11, 123.47, 3.8, 1.5)
	pt3dadd(-6.52, 126.32, 3.8, 1.5)
  }
  dend[1016] {pt3dclear()
	pt3dadd(-6.52, 126.32, 3.8, 1.5)
	pt3dadd(-4.89, 130.38, 2.96, 0.9)
	pt3dadd(-3.87, 131.6, 2.96, 0.9)
	pt3dadd(-1.63, 134.65, 2.96, 0.3)
  }
  dend[1017] {pt3dclear()
	pt3dadd(-6.52, 126.32, 3.8, 1.5)
	pt3dadd(-8.76, 126.72, 4.12, 0.9)
	pt3dadd(-10.8, 126.32, 4.12, 0.9)
	pt3dadd(-13.24, 124.49, 4.12, 0.3)
  }
  dend[1018] {pt3dclear()
	pt3dadd(2.86, 108.43, 3.24, 2.4)
	pt3dadd(-0.2, 107.42, 2.84, 1.8)
	pt3dadd(-2.44, 106.81, 2.84, 1.8)
  }
  dend[1019] {pt3dclear()
	pt3dadd(-2.44, 106.81, 2.84, 1.8)
	pt3dadd(-4.07, 109.04, 2.08, 1.5)
	pt3dadd(-5.91, 110.06, 2.08, 1.5)
	pt3dadd(-7.74, 110.67, 2.08, 1.5)
  }
  dend[1020] {pt3dclear()
	pt3dadd(-7.74, 110.67, 2.08, 1.5)
	pt3dadd(-8.35, 113.72, 2.6, 1.5)
	pt3dadd(-8.96, 115.34, 2.6, 1.5)
	pt3dadd(-11.41, 116.36, 3.84, 1.5)
	pt3dadd(-12.63, 116.76, 3.84, 1.5)
	pt3dadd(-14.26, 118.39, 3.84, 1.5)
	pt3dadd(-15.08, 119.81, 3.84, 1.5)
	pt3dadd(-16.91, 120.22, 4.88, 1.5)
	pt3dadd(-20.38, 119, 4.88, 1.5)
	pt3dadd(-22.01, 118.19, 4.88, 0.9)
	pt3dadd(-23.23, 116.76, 4.88, 0.3)
	pt3dadd(-25.06, 115.55, 4.88, 0.3)
  }
  dend[1021] {pt3dclear()
	pt3dadd(-7.74, 110.67, 2.08, 1.5)
	pt3dadd(-10.59, 110.06, 2.08, 0.9)
	pt3dadd(-12.02, 109.45, 2.08, 1.5)
	pt3dadd(-13.85, 111.07, 2.08, 1.5)
	pt3dadd(-15.89, 112.29, 1.64, 0.9)
	pt3dadd(-16.91, 113.92, 1.64, 0.9)
	pt3dadd(-17.32, 116.76, 1.64, 0.3)
  }
  dend[1022] {pt3dclear()
	pt3dadd(-2.44, 106.81, 2.84, 1.8)
	pt3dadd(-4.68, 105.59, 2.2, 1.5)
	pt3dadd(-6.92, 105.18, 1.2, 1.5)
	pt3dadd(-9.57, 103.76, 1.2, 1.5)
  }
  dend[1023] {pt3dclear()
	pt3dadd(-9.57, 103.76, 1.2, 1.5)
	pt3dadd(-12.43, 104.57, 1.2, 1.5)
	pt3dadd(-14.47, 105.59, 1.2, 1.5)
	pt3dadd(-16.5, 107.21, 0.84, 1.5)
	pt3dadd(-17.32, 108.23, 1.52, 1.5)
  }
  dend[1024] {pt3dclear()
	pt3dadd(-17.32, 108.23, 1.52, 1.5)
	pt3dadd(-18.54, 110.26, 1.52, 1.5)
	pt3dadd(-18.74, 112.09, 1.52, 1.5)
	pt3dadd(-19.56, 114.12, 1.52, 1.5)
  }
  dend[1025] {pt3dclear()
	pt3dadd(-19.56, 114.12, 1.52, 1.5)
	pt3dadd(-19.36, 117.98, 1.52, 1.5)
	pt3dadd(-19.15, 120.42, 1.52, 1.5)
	pt3dadd(-19.36, 121.85, 1.52, 1.5)
  }
  dend[1026] {pt3dclear()
	pt3dadd(-19.56, 114.12, 1.52, 1.5)
	pt3dadd(-20.99, 114.73, 1.52, 1.5)
	pt3dadd(-22.82, 113.92, 1.52, 1.5)
	pt3dadd(-23.84, 112.29, 1.52, 0.9)
	pt3dadd(-25.67, 110.26, 2.8, 1.5)
	pt3dadd(-27.1, 109.45, 2.8, 1.5)
  }
}
proc shape3d_27() {
  dend[1026] {	pt3dadd(-28.73, 108.23, 2.8, 1.5)
	pt3dadd(-30.77, 106.81, 2.8, 1.5)
	pt3dadd(-32.4, 107.62, 2.8, 1.5)
	pt3dadd(-33.62, 109.24, 2.8, 1.5)
  }
  dend[1027] {pt3dclear()
	pt3dadd(-17.32, 108.23, 1.52, 1.5)
	pt3dadd(-19.15, 107.01, 1.52, 0.9)
	pt3dadd(-20.78, 105.18, 1.52, 0.9)
	pt3dadd(-22.82, 103.35, 1.4, 0.9)
	pt3dadd(-24.25, 101.52, 1.4, 0.9)
	pt3dadd(-25.88, 99.89, 1.4, 0.9)
	pt3dadd(-27.92, 98.68, 1.4, 0.9)
	pt3dadd(-29.55, 98.47, 1.4, 0.9)
	pt3dadd(-31.58, 98.68, 1.4, 0.9)
  }
  dend[1028] {pt3dclear()
	pt3dadd(-9.57, 103.76, 1.2, 1.5)
	pt3dadd(-10.59, 101.72, 1.2, 1.5)
	pt3dadd(-12.02, 100.3, 1.2, 1.5)
	pt3dadd(-13.04, 98.68, 1.2, 1.5)
	pt3dadd(-13.45, 96.64, 1.2, 0.9)
	pt3dadd(-14.06, 94.81, 1.2, 0.9)
	pt3dadd(-14.67, 92.58, 1.2, 0.9)
	pt3dadd(-15.08, 90.14, 1.2, 0.9)
	pt3dadd(-15.69, 88.72, 1.2, 0.3)
	pt3dadd(-16.71, 88.11, 1.2, 0.9)
	pt3dadd(-18.34, 86.68, 1.2, 0.9)
  }
  dend[1029] {pt3dclear()
	pt3dadd(9.37, 105.49, 1.52, 3)
	pt3dadd(6.92, 102.85, 1.48, 1.8)
	pt3dadd(4.48, 101.23, 0.36, 1.8)
	pt3dadd(2.23, 99.19, 0.36, 1.8)
  }
  dend[1030] {pt3dclear()
	pt3dadd(2.23, 99.19, 0.36, 1.8)
	pt3dadd(-1.84, 99.6, 0.28, 1.5)
  }
  dend[1031] {pt3dclear()
	pt3dadd(-1.84, 99.6, 0.28, 1.5)
	pt3dadd(-1.84, 104.07, 0.88, 0.3)
  }
  dend[1032] {pt3dclear()
	pt3dadd(-1.84, 99.6, 0.28, 1.5)
	pt3dadd(-3.68, 98.79, 0.28, 1.5)
  }
  dend[1033] {pt3dclear()
	pt3dadd(-3.68, 98.79, 0.28, 1.5)
	pt3dadd(-5.31, 101.02, -0.32, 0.3)
	pt3dadd(-7.14, 101.23, -0.32, 0.3)
	pt3dadd(-9.18, 101.43, -0.32, 0.3)
  }
  dend[1034] {pt3dclear()
	pt3dadd(-3.68, 98.79, 0.28, 1.5)
	pt3dadd(-6.12, 94.92, -1.16, 0.9)
  }
  dend[1035] {pt3dclear()
	pt3dadd(-6.12, 94.92, -1.16, 0.9)
	pt3dadd(-9.18, 93.3, -1.04, 0.9)
	pt3dadd(-10.4, 91.88, -1.04, 0.9)
	pt3dadd(-13.26, 91.27, -1.04, 0.9)
	pt3dadd(-15.5, 91.06, -1.04, 0.9)
	pt3dadd(-16.92, 91.47, -1.04, 0.9)
  }
  dend[1036] {pt3dclear()
	pt3dadd(-16.92, 91.47, -1.04, 0.9)
	pt3dadd(-19.57, 92.89, -1.04, 0.9)
	pt3dadd(-22.83, 93.5, -1.04, 0.9)
	pt3dadd(-24.87, 93.91, -1.04, 0.9)
	pt3dadd(-27.32, 93.5, -1.04, 0.9)
  }
  dend[1037] {pt3dclear()
	pt3dadd(-16.92, 91.47, -1.04, 0.9)
	pt3dadd(-19.37, 90.05, -1.04, 0.9)
	pt3dadd(-21.82, 89.03, -1.04, 0.9)
	pt3dadd(-23.85, 86.79, -1.04, 0.9)
	pt3dadd(-25.08, 85.17, -1.04, 0.9)
	pt3dadd(-25.89, 84.15, -1.04, 0.9)
	pt3dadd(-27.52, 81.31, -1.04, 1.5)
  }
  dend[1038] {pt3dclear()
	pt3dadd(-6.12, 94.92, -1.16, 0.9)
	pt3dadd(-6.33, 91.88, -1.16, 0.9)
	pt3dadd(-7.14, 88.42, -1.16, 0.9)
	pt3dadd(-8.57, 85.58, -0.12, 0.9)
	pt3dadd(-9.38, 82.53, -0.16, 0.9)
	pt3dadd(-9.59, 80.29, -0.16, 0.9)
	pt3dadd(-8.98, 78.05, -0.16, 0.9)
	pt3dadd(-8.16, 75.21, -0.16, 0.9)
  }
  dend[1039] {pt3dclear()
	pt3dadd(2.23, 99.19, 0.36, 1.8)
	pt3dadd(4.48, 96.35, 0.36, 1.5)
  }
  dend[1040] {pt3dclear()
	pt3dadd(4.48, 96.35, 0.36, 1.5)
	pt3dadd(4.27, 93.91, -0.96, 1.5)
  }
  dend[1041] {pt3dclear()
	pt3dadd(4.27, 93.91, -0.96, 1.5)
	pt3dadd(2.84, 89.64, -3.12, 1.5)
	pt3dadd(-1.23, 84.15, -3.12, 0.9)
	pt3dadd(-4.08, 82.53, -3.12, 0.9)
	pt3dadd(-5.72, 79.88, -3.12, 0.9)
	pt3dadd(-5.1, 76.02, -2.68, 0.9)
	pt3dadd(-3.47, 73.79, -2.68, 0.9)
	pt3dadd(-2.66, 71.55, -2.68, 0.9)
	pt3dadd(-2.66, 69.92, -2.68, 0.9)
  }
  dend[1042] {pt3dclear()
	pt3dadd(4.27, 93.91, -0.96, 1.5)
	pt3dadd(7.94, 93.3, -0.96, 0.9)
	pt3dadd(11.61, 91.47, -1.6, 0.3)
  }
  dend[1043] {pt3dclear()
	pt3dadd(4.48, 96.35, 0.36, 1.5)
	pt3dadd(9.77, 98.18, -0.36, 1.5)
  }
  dend[1044] {pt3dclear()
	pt3dadd(9.77, 98.18, -0.36, 1.5)
	pt3dadd(14.67, 97.57, -0.4, 0.9)
	pt3dadd(18.95, 97.57, -0.4, 0.9)
	pt3dadd(22.82, 98.58, -0.4, 1.5)
	pt3dadd(27.1, 96.55, -0.96, 1.5)
	pt3dadd(29.54, 97.77, -0.96, 0.3)
  }
  dend[1045] {pt3dclear()
	pt3dadd(9.77, 98.18, -0.36, 1.5)
	pt3dadd(11.2, 100.82, -0.36, 0.9)
	pt3dadd(11.4, 102.45, -0.36, 0.9)
	pt3dadd(13.03, 103.26, -0.36, 0.9)
	pt3dadd(16.09, 105.7, -0.36, 0.9)
	pt3dadd(17.31, 108.54, -0.56, 0.9)
  }
  dend[1046] {pt3dclear()
	pt3dadd(20.78, 97.36, 3.76, 2.4)
	pt3dadd(18.74, 93.3, 3.76, 1.5)
	pt3dadd(17.11, 89.64, 3.76, 0.9)
	pt3dadd(13.85, 81.51, 3.76, 0.9)
  }
  dend[1047] {pt3dclear()
	pt3dadd(17.52, 80.7, 3.72, 4.5)
	pt3dadd(15.68, 80.7, 3.72, 3.6)
	pt3dadd(14.05, 80.7, 3.72, 2.7)
	pt3dadd(12.02, 80.7, 3.72, 2.1)
	pt3dadd(10.59, 80.49, 3.72, 2.1)
	pt3dadd(8.76, 80.7, 3.72, 2.7)
	pt3dadd(7.53, 81.1, 3.6, 2.7)
  }
  dend[1048] {pt3dclear()
	pt3dadd(7.53, 81.1, 3.6, 2.7)
	pt3dadd(5.09, 83.54, 4.16, 2.1)
	pt3dadd(3.25, 84.97, 4.16, 2.7)
	pt3dadd(1.21, 85.58, 4.16, 2.7)
  }
  dend[1049] {pt3dclear()
	pt3dadd(1.21, 85.58, 4.16, 2.7)
	pt3dadd(1.83, 90.05, 4.16, 2.1)
  }
  dend[1050] {pt3dclear()
	pt3dadd(1.83, 90.05, 4.16, 2.1)
	pt3dadd(6.72, 94.72, 3.72, 0.9)
	pt3dadd(8.35, 96.14, 4.68, 0.9)
  }
  dend[1051] {pt3dclear()
	pt3dadd(8.35, 96.14, 4.68, 0.9)
	pt3dadd(11.81, 96.35, 3.92, 0.9)
	pt3dadd(15.48, 97.16, 4.68, 0.9)
  }
  dend[1052] {pt3dclear()
	pt3dadd(15.48, 97.16, 4.68, 0.9)
	pt3dadd(16.91, 95.53, 4.68, 0.9)
  }
  dend[1053] {pt3dclear()
	pt3dadd(16.91, 95.53, 4.68, 0.9)
	pt3dadd(16.3, 92.28, 4.68, 0.6)
	pt3dadd(15.28, 90.66, 4.68, 0.3)
	pt3dadd(14.46, 90.25, 4.68, 0.3)
  }
  dend[1054] {pt3dclear()
	pt3dadd(16.91, 95.53, 4.68, 0.9)
	pt3dadd(19.76, 96.55, 4.68, 0.6)
  }
  dend[1055] {pt3dclear()
	pt3dadd(15.48, 97.16, 4.68, 0.9)
	pt3dadd(16.7, 99.8, 4.68, 0.6)
  }
  dend[1056] {pt3dclear()
	pt3dadd(8.35, 96.14, 4.68, 0.9)
	pt3dadd(9.57, 98.58, 4.68, 0.3)
	pt3dadd(9.37, 100.01, 4.68, 0.3)
	pt3dadd(10.39, 101.63, 4.68, 0.3)
  }
  dend[1057] {pt3dclear()
	pt3dadd(1.83, 90.05, 4.16, 2.1)
	pt3dadd(0.4, 92.28, 4.16, 1.8)
	pt3dadd(-0.21, 94.32, 3.88, 1.8)
  }
  dend[1058] {pt3dclear()
	pt3dadd(-0.21, 94.32, 3.88, 1.8)
	pt3dadd(-0.62, 97.36, 3.88, 1.5)
  }
  dend[1059] {pt3dclear()
	pt3dadd(-0.21, 94.32, 3.88, 1.8)
	pt3dadd(-3.88, 95.74, 3.88, 1.8)
	pt3dadd(-4.49, 98.18, 3.88, 0.6)
	pt3dadd(-4.49, 100.41, 3.96, 1.5)
  }
  dend[1060] {pt3dclear()
	pt3dadd(1.21, 85.58, 4.16, 2.7)
	pt3dadd(-1.23, 85.78, 4.16, 2.7)
	pt3dadd(-3.88, 86.39, 4.16, 2.7)
	pt3dadd(-5.31, 87.2, 4.16, 2.1)
	pt3dadd(-6.94, 88.22, 4.16, 2.1)
  }
  dend[1061] {pt3dclear()
	pt3dadd(-6.94, 88.22, 4.16, 2.1)
	pt3dadd(-7.96, 93.71, 3.2, 0.9)
	pt3dadd(-8.98, 97.77, 3.2, 0.9)
	pt3dadd(-9.38, 99.6, 3.2, 0.6)
	pt3dadd(-11.42, 101.02, 3.2, 1.5)
	pt3dadd(-14.27, 101.84, 4.04, 0.3)
	pt3dadd(-15.09, 101.84, 5.2, 0.6)
  }
  dend[1062] {pt3dclear()
	pt3dadd(-15.09, 101.84, 5.2, 0.6)
	pt3dadd(-16.31, 103.66, 5.2, 0.9)
	pt3dadd(-18.15, 103.05, 5.48, 1.5)
	pt3dadd(-19.98, 104.88, 5.48, 1.5)
  }
  dend[1063] {pt3dclear()
	pt3dadd(-15.09, 101.84, 5.2, 0.6)
	pt3dadd(-15.29, 98.99, 4.52, 0.6)
  }
  dend[1064] {pt3dclear()
	pt3dadd(-6.94, 88.22, 4.16, 2.1)
	pt3dadd(-8.36, 89.03, 4.16, 2.1)
  }
  dend[1065] {pt3dclear()
	pt3dadd(-8.36, 89.03, 4.16, 2.1)
	pt3dadd(-9.79, 91.67, 3.68, 1.8)
	pt3dadd(-12.44, 93.5, 3.68, 1.8)
	pt3dadd(-14.68, 93.71, 3.68, 1.8)
	pt3dadd(-18.55, 93.5, 4.28, 1.5)
  }
  dend[1066] {pt3dclear()
	pt3dadd(-18.55, 93.5, 4.28, 1.5)
	pt3dadd(-19.78, 96.35, 5.64, 1.5)
	pt3dadd(-21.41, 98.99, 4.76, 1.5)
  }
  dend[1067] {pt3dclear()
	pt3dadd(-21.41, 98.99, 4.76, 1.5)
	pt3dadd(-24.26, 103.66, 4.76, 0.9)
  }
  dend[1068] {pt3dclear()
	pt3dadd(-24.26, 103.66, 4.76, 0.9)
	pt3dadd(-24.06, 106.92, 5.64, 0.3)
	pt3dadd(-24.67, 109.15, 5.64, 0.6)
  }
  dend[1069] {pt3dclear()
	pt3dadd(-24.26, 103.66, 4.76, 0.9)
	pt3dadd(-26.3, 103.46, 4.96, 0.6)
	pt3dadd(-27.52, 105.09, 4.96, 0.9)
	pt3dadd(-28.54, 106.92, 5.72, 0.3)
  }
  dend[1070] {pt3dclear()
	pt3dadd(-21.41, 98.99, 4.76, 1.5)
	pt3dadd(-23.65, 98.18, 5.2, 1.5)
	pt3dadd(-25.89, 98.79, 5.2, 0.6)
	pt3dadd(-28.13, 98.18, 5.2, 1.5)
	pt3dadd(-29.76, 97.36, 5.2, 1.5)
	pt3dadd(-32.62, 96.75, 6.36, 1.5)
	pt3dadd(-34.66, 96.35, 6.32, 1.5)
	pt3dadd(-36.29, 98.79, 6.28, 0.9)
	pt3dadd(-39.34, 98.58, 5.92, 0.9)
	pt3dadd(-42.2, 96.96, 5.92, 0.9)
  }
  dend[1071] {pt3dclear()
	pt3dadd(-18.55, 93.5, 4.28, 1.5)
	pt3dadd(-20.8, 92.69, 5.28, 0.9)
	pt3dadd(-22.43, 92.28, 5.28, 0.9)
	pt3dadd(-24.47, 92.28, 5.28, 0.9)
	pt3dadd(-26.5, 92.89, 5.32, 0.9)
	pt3dadd(-29.97, 93.91, 5.32, 0.9)
  }
  dend[1072] {pt3dclear()
	pt3dadd(-8.36, 89.03, 4.16, 2.1)
	pt3dadd(-10.81, 87.81, 4.16, 1.5)
	pt3dadd(-12.44, 87.2, 4.16, 1.5)
	pt3dadd(-14.27, 87.4, 4.92, 1.5)
	pt3dadd(-16.11, 86.79, 4.88, 1.5)
  }
}
proc shape3d_28() {
  dend[1072] {	pt3dadd(-17.74, 86.19, 4.88, 1.5)
	pt3dadd(-19.17, 86.39, 4.84, 1.8)
	pt3dadd(-20.39, 86.59, 5.96, 1.8)
  }
  dend[1073] {pt3dclear()
	pt3dadd(-20.39, 86.59, 5.96, 1.8)
	pt3dadd(-21.61, 88.42, 5.36, 1.8)
	pt3dadd(-24.06, 89.03, 5.36, 1.8)
	pt3dadd(-27.52, 89.03, 5.36, 1.5)
  }
  dend[1074] {pt3dclear()
	pt3dadd(-27.52, 89.03, 5.36, 1.5)
	pt3dadd(-30.17, 90.25, 5.36, 0.9)
	pt3dadd(-31.6, 91.27, 5.36, 0.9)
	pt3dadd(-33.43, 92.89, 4.04, 0.9)
  }
  dend[1075] {pt3dclear()
	pt3dadd(-27.52, 89.03, 5.36, 1.5)
	pt3dadd(-30.17, 88.01, 5.36, 0.6)
	pt3dadd(-32.62, 87.81, 5.36, 0.6)
	pt3dadd(-35.06, 87.2, 5.36, 0.6)
	pt3dadd(-35.67, 85.17, 5.36, 0.6)
	pt3dadd(-37.1, 82.73, 5.36, 0.9)
  }
  dend[1076] {pt3dclear()
	pt3dadd(-20.39, 86.59, 5.96, 1.8)
	pt3dadd(-22.43, 85.37, 5.96, 0.9)
	pt3dadd(-23.45, 82.93, 5.96, 0.6)
  }
  dend[1077] {pt3dclear()
	pt3dadd(7.53, 81.1, 3.6, 2.7)
	pt3dadd(6.51, 79.48, 3.6, 1.8)
  }
  dend[1078] {pt3dclear()
	pt3dadd(6.51, 79.48, 3.6, 1.8)
	pt3dadd(4.27, 78.66, 3.68, 0.9)
	pt3dadd(2.64, 78.26, 3.88, 1.5)
	pt3dadd(1.42, 78.05, 3.88, 1.8)
	pt3dadd(-0.82, 78.05, 4.92, 1.8)
	pt3dadd(-3.27, 78.87, 4.16, 1.8)
  }
  dend[1079] {pt3dclear()
	pt3dadd(-3.27, 78.87, 4.16, 1.8)
	pt3dadd(-6.94, 81.71, 3.88, 0.9)
	pt3dadd(-9.79, 83.34, 3.88, 1.5)
	pt3dadd(-12.03, 84.36, 3.88, 0.9)
	pt3dadd(-14.68, 83.54, 3.88, 0.9)
	pt3dadd(-17.94, 81.71, 3.88, 0.9)
  }
  dend[1080] {pt3dclear()
	pt3dadd(-3.27, 78.87, 4.16, 1.8)
	pt3dadd(-5.92, 78.87, 3.64, 1.8)
	pt3dadd(-8.16, 79.27, 3.64, 1.8)
	pt3dadd(-10.4, 79.27, 3.64, 1.8)
  }
  dend[1081] {pt3dclear()
	pt3dadd(-10.4, 79.27, 3.64, 1.8)
	pt3dadd(-12.85, 80.29, 5.36, 1.8)
	pt3dadd(-14.89, 81.1, 5.36, 2.1)
	pt3dadd(-18.35, 80.9, 4.4, 1.8)
	pt3dadd(-19.78, 80.29, 4.48, 1.8)
  }
  dend[1082] {pt3dclear()
	pt3dadd(-19.78, 80.29, 4.48, 1.8)
	pt3dadd(-22.22, 79.48, 4.48, 1.8)
  }
  dend[1083] {pt3dclear()
	pt3dadd(-22.22, 79.48, 4.48, 1.8)
	pt3dadd(-23.65, 81.1, 3.56, 0.6)
	pt3dadd(-24.47, 81.71, 3.56, 0.6)
	pt3dadd(-26.71, 81.71, 3.56, 0.6)
  }
  dend[1084] {pt3dclear()
	pt3dadd(-22.22, 79.48, 4.48, 1.8)
	pt3dadd(-24.47, 77.45, 4.48, 1.8)
	pt3dadd(-27.32, 76.23, 4.48, 1.8)
	pt3dadd(-28.95, 76.23, 4.48, 2.1)
	pt3dadd(-31.19, 76.43, 5.6, 1.8)
	pt3dadd(-33.43, 77.04, 5.88, 1.8)
	pt3dadd(-35.27, 76.23, 5.84, 1.5)
	pt3dadd(-36.9, 74.8, 5.84, 1.5)
	pt3dadd(-38.73, 73.58, 5.84, 0.9)
	pt3dadd(-40.36, 72.16, 5.8, 0.9)
  }
  dend[1085] {pt3dclear()
	pt3dadd(-19.78, 80.29, 4.48, 1.8)
	pt3dadd(-19.98, 77.85, 4.48, 0.9)
	pt3dadd(-20.39, 75.82, 4.48, 0.9)
	pt3dadd(-21.82, 74.19, 4.48, 1.5)
	pt3dadd(-24.26, 72.16, 4.4, 1.5)
	pt3dadd(-27.52, 71.55, 4.4, 1.5)
	pt3dadd(-30.38, 71.55, 4.4, 1.5)
  }
  dend[1086] {pt3dclear()
	pt3dadd(-10.4, 79.27, 3.64, 1.8)
	pt3dadd(-12.64, 76.23, 3.64, 0.9)
	pt3dadd(-14.27, 74.8, 3.64, 0.9)
	pt3dadd(-15.91, 74.6, 3.64, 1.5)
	pt3dadd(-17.54, 73.79, 3.64, 1.5)
	pt3dadd(-18.96, 71.96, 3.64, 1.5)
  }
  dend[1087] {pt3dclear()
	pt3dadd(-18.96, 71.96, 3.64, 1.5)
	pt3dadd(-20.39, 70.74, 4.72, 1.5)
	pt3dadd(-22.43, 69.11, 4.72, 1.5)
	pt3dadd(-24.67, 67.89, 3.68, 1.5)
	pt3dadd(-26.5, 68.71, 3.68, 1.5)
	pt3dadd(-29.56, 68.5, 5, 0.9)
	pt3dadd(-32.01, 67.69, 5, 0.9)
	pt3dadd(-33.02, 66.06, 5, 0.3)
  }
  dend[1088] {pt3dclear()
	pt3dadd(-18.96, 71.96, 3.64, 1.5)
	pt3dadd(-18.55, 68.91, 3.88, 0.3)
	pt3dadd(-18.55, 67.08, 3.88, 0.9)
	pt3dadd(-17.54, 65.66, 3.88, 0.9)
  }
  dend[1089] {pt3dclear()
	pt3dadd(6.51, 79.48, 3.6, 1.8)
	pt3dadd(6.31, 77.45, 3.6, 1.5)
	pt3dadd(5.29, 75.62, 3.6, 0.6)
	pt3dadd(3.46, 74.4, 3.92, 0.9)
	pt3dadd(0.81, 72.57, 3.92, 0.9)
	pt3dadd(-0.01, 70.53, 3.92, 0.9)
	pt3dadd(-0.42, 67.69, 3.92, 0.6)
  }
  dend[1090] {pt3dclear()
	pt3dadd(19.56, 72.97, 3.52, 3.9)
	pt3dadd(17.52, 72.77, 3.52, 2.7)
	pt3dadd(15.07, 72.77, 4.04, 1.5)
	pt3dadd(12.63, 72.97, 4.84, 1.5)
	pt3dadd(10.59, 72.36, 4.92, 1.5)
	pt3dadd(9.37, 72.16, 4.92, 1.8)
	pt3dadd(7.53, 70.74, 4.28, 1.8)
	pt3dadd(5.09, 70.13, 3.48, 1.8)
	pt3dadd(3.46, 68.3, 3.6, 1.8)
  }
  dend[1091] {pt3dclear()
	pt3dadd(3.46, 68.3, 3.6, 1.8)
	pt3dadd(1.83, 67.89, 3.68, 2.1)
	pt3dadd(0.2, 67.28, 3.68, 2.7)
	pt3dadd(-0.82, 65.66, 3.68, 2.1)
	pt3dadd(-1.44, 63.83, 2.44, 1.8)
  }
  dend[1092] {pt3dclear()
	pt3dadd(-1.44, 63.83, 2.44, 1.8)
	pt3dadd(-4.29, 63.42, 2.76, 1.5)
  }
  dend[1093] {pt3dclear()
	pt3dadd(-4.29, 63.42, 2.76, 1.5)
	pt3dadd(-7.35, 64.44, 4.24, 0.9)
	pt3dadd(-8.57, 65.86, 4.24, 0.9)
	pt3dadd(-11.01, 64.84, 4.24, 0.9)
	pt3dadd(-13.26, 65.05, 4.24, 0.9)
	pt3dadd(-14.68, 67.49, 4.24, 0.9)
	pt3dadd(-16.11, 70.13, 4.24, 0.9)
  }
  dend[1094] {pt3dclear()
	pt3dadd(-4.29, 63.42, 2.76, 1.5)
	pt3dadd(-6.12, 61.39, 2.76, 0.9)
	pt3dadd(-7.55, 60.37, 2.76, 0.9)
	pt3dadd(-9.99, 60.17, 2.76, 0.9)
	pt3dadd(-12.03, 60.58, 3.64, 0.9)
	pt3dadd(-13.26, 60.98, 3.64, 1.5)
	pt3dadd(-15.09, 61.79, 3.96, 1.5)
	pt3dadd(-15.5, 62.4, 3.96, 1.5)
	pt3dadd(-17.33, 62.4, 3.96, 1.5)
  }
  dend[1095] {pt3dclear()
	pt3dadd(-17.33, 62.4, 3.96, 1.5)
	pt3dadd(-19.17, 64.03, 3.96, 0.9)
	pt3dadd(-20.19, 65.05, 3.96, 0.9)
  }
  dend[1096] {pt3dclear()
	pt3dadd(-17.33, 62.4, 3.96, 1.5)
	pt3dadd(-18.76, 60.78, 3.96, 0.9)
	pt3dadd(-19.78, 58.95, 3.96, 0.9)
	pt3dadd(-21.82, 57.53, 3.96, 0.9)
	pt3dadd(-22.83, 55.7, 3.28, 0.9)
	pt3dadd(-24.47, 54.27, 3.28, 0.9)
  }
  dend[1097] {pt3dclear()
	pt3dadd(-1.44, 63.83, 2.44, 1.8)
	pt3dadd(-0.62, 62, 1.88, 1.8)
  }
  dend[1098] {pt3dclear()
	pt3dadd(-0.62, 62, 1.88, 1.8)
	pt3dadd(-3.07, 59.76, 0.68, 0.9)
	pt3dadd(-4.49, 58.54, 0.68, 0.9)
	pt3dadd(-5.51, 57.73, 0.68, 1.5)
	pt3dadd(-7.14, 56.51, 0.68, 1.5)
  }
  dend[1099] {pt3dclear()
	pt3dadd(-7.14, 56.51, 0.68, 1.5)
	pt3dadd(-9.59, 56.31, 2.08, 0.9)
	pt3dadd(-11.63, 56.1, 2.76, 0.9)
	pt3dadd(-13.66, 55.7, 3.08, 1.5)
	pt3dadd(-14.48, 56.51, 3.08, 1.8)
	pt3dadd(-16.11, 54.88, 3.08, 0.6)
	pt3dadd(-17.54, 53.87, 4.68, 0.9)
	pt3dadd(-18.76, 53.87, 4.68, 1.8)
	pt3dadd(-20.39, 54.88, 4.68, 1.8)
	pt3dadd(-21.82, 54.68, 4.68, 1.5)
	pt3dadd(-24.06, 53.87, 4.68, 0.9)
  }
  dend[1100] {pt3dclear()
	pt3dadd(-7.14, 56.51, 0.68, 1.5)
	pt3dadd(-7.75, 54.88, -0.52, 0.6)
	pt3dadd(-8.16, 53.26, -0.52, 0.6)
	pt3dadd(-8.77, 52.65, -0.52, 0.6)
	pt3dadd(-9.99, 51.63, -0.52, 0.9)
	pt3dadd(-11.01, 50.41, -0.04, 1.5)
	pt3dadd(-12.24, 49.8, -0.04, 1.5)
	pt3dadd(-12.64, 47.77, -0.04, 1.5)
	pt3dadd(-13.26, 46.14, -0.04, 1.5)
	pt3dadd(-13.66, 43.5, -0.04, 1.5)
	pt3dadd(-13.87, 41.67, 1.56, 0.9)
	pt3dadd(-14.07, 40.05, 1.56, 0.9)
	pt3dadd(-14.27, 37.81, 1.56, 0.9)
  }
  dend[1101] {pt3dclear()
	pt3dadd(-0.62, 62, 1.88, 1.8)
	pt3dadd(0.4, 60.58, 2.32, 1.8)
  }
  dend[1102] {pt3dclear()
	pt3dadd(0.4, 60.58, 2.32, 1.8)
	pt3dadd(-1.03, 57.73, 2, 0.9)
	pt3dadd(-2.45, 55.49, 2, 0.9)
	pt3dadd(-3.68, 54.07, 2, 0.9)
	pt3dadd(-5.72, 52.04, 2, 0.9)
	pt3dadd(-7.35, 50.62, 2, 0.9)
	pt3dadd(-8.57, 48.79, 2, 0.9)
	pt3dadd(-9.38, 46.35, 2, 0.9)
	pt3dadd(-9.38, 44.52, 2, 0.9)
	pt3dadd(-9.99, 40.86, 2, 0.9)
  }
  dend[1103] {pt3dclear()
	pt3dadd(0.4, 60.58, 2.32, 1.8)
	pt3dadd(2.44, 58.95, 1.96, 1.5)
	pt3dadd(5.9, 56.92, -1.24, 0.9)
  }
  dend[1104] {pt3dclear()
	pt3dadd(5.9, 56.92, -1.24, 0.9)
	pt3dadd(6.72, 53.66, -1.24, 0.9)
	pt3dadd(9.16, 51.23, -1.24, 0.9)
	pt3dadd(11.2, 50.82, -2.52, 0.9)
	pt3dadd(12.63, 49.8, -2.52, 0.6)
	pt3dadd(13.65, 48.38, -2.52, 0.6)
	pt3dadd(13.85, 46.14, -2.52, 0.3)
  }
  dend[1105] {pt3dclear()
	pt3dadd(5.9, 56.92, -1.24, 0.9)
	pt3dadd(8.76, 59.15, -2.4, 0.6)
	pt3dadd(10.79, 59.97, -2.4, 0.6)
	pt3dadd(13.65, 60.78, -2.4, 0.6)
	pt3dadd(17.52, 61.79, -2.4, 0.3)
  }
  dend[1106] {pt3dclear()
	pt3dadd(3.46, 68.3, 3.6, 1.8)
	pt3dadd(4.68, 63.42, 4.56, 0.9)
  }
  dend[1107] {pt3dclear()
	pt3dadd(23.71, 60.5, 0.32, 3.9)
	pt3dadd(21.68, 58.87, 0.32, 1.8)
	pt3dadd(19.84, 57.25, -0.08, 0.9)
  }
  dend[1108] {pt3dclear()
	pt3dadd(19.84, 57.25, -0.08, 0.9)
	pt3dadd(18.01, 57.25, 0.8, 0.9)
	pt3dadd(15.56, 57.04, 0.8, 0.9)
	pt3dadd(12.71, 57.65, 1.96, 0.9)
	pt3dadd(8.02, 57.25, 3.2, 1.5)
  }
}
proc shape3d_29() {
  dend[1108] {	pt3dadd(5.58, 56.84, 4.6, 1.5)
	pt3dadd(3.95, 56.43, 4.6, 1.8)
	pt3dadd(0.89, 56.03, 5.68, 1.8)
	pt3dadd(-0.33, 55.21, 5.64, 1.8)
	pt3dadd(-2.37, 53.79, 4.92, 1.8)
	pt3dadd(-3.19, 52.98, 4.92, 1.8)
	pt3dadd(-5.02, 53.18, 4.92, 0.9)
	pt3dadd(-6.24, 53.38, 4.92, 1.8)
	pt3dadd(-9.1, 52.77, 5.68, 1.8)
	pt3dadd(-10.93, 52.57, 5.6, 1.8)
	pt3dadd(-11.75, 52.57, 5.6, 1.5)
	pt3dadd(-13.17, 52.57, 5.56, 0.6)
	pt3dadd(-15.21, 51.35, 4.88, 0.6)
  }
  dend[1109] {pt3dclear()
	pt3dadd(-15.21, 51.35, 4.88, 0.6)
	pt3dadd(-16.84, 52.16, 5.4, 1.5)
  }
  dend[1110] {pt3dclear()
	pt3dadd(-15.21, 51.35, 4.88, 0.6)
	pt3dadd(-15.21, 49.52, 5.2, 0.9)
	pt3dadd(-16.84, 48.51, 5.6, 0.6)
	pt3dadd(-17.25, 46.88, 5.6, 0.6)
	pt3dadd(-17.66, 45.25, 5.6, 0.9)
	pt3dadd(-16.64, 43.22, 4.84, 0.9)
	pt3dadd(-17.05, 41.8, 4.84, 0.9)
  }
  dend[1111] {pt3dclear()
	pt3dadd(19.84, 57.25, -0.08, 0.9)
	pt3dadd(19.03, 55.82, 1.24, 0.6)
	pt3dadd(17.4, 54.81, 1.24, 0.6)
	pt3dadd(15.77, 53.99, 1.24, 0.6)
	pt3dadd(14.95, 53.38, 1.24, 0.9)
  }
  dend[1112] {pt3dclear()
	pt3dadd(14.95, 53.38, 1.24, 0.9)
	pt3dadd(13.73, 52.77, 1.8, 0.9)
  }
  dend[1113] {pt3dclear()
	pt3dadd(13.73, 52.77, 1.8, 0.9)
	pt3dadd(11.49, 53.59, 1.76, 0.9)
	pt3dadd(9.65, 53.59, 1.76, 1.5)
  }
  dend[1114] {pt3dclear()
	pt3dadd(9.65, 53.59, 1.76, 1.5)
	pt3dadd(10.26, 56.84, -0.16, 0.6)
	pt3dadd(11.08, 58.26, -0.16, 0.6)
	pt3dadd(11.69, 59.07, -0.16, 0.6)
	pt3dadd(13.73, 60.09, 0.64, 0.3)
	pt3dadd(15.36, 60.29, 0.64, 0.3)
	pt3dadd(15.77, 61.51, 0.64, 0.3)
	pt3dadd(15.77, 62.33, 0.64, 0.3)
	pt3dadd(17.6, 63.95, 0.64, 0.3)
  }
  dend[1115] {pt3dclear()
	pt3dadd(9.65, 53.59, 1.76, 1.5)
	pt3dadd(7, 51.55, 2.52, 1.8)
	pt3dadd(5.78, 49.72, 2.6, 1.5)
	pt3dadd(5.78, 48.3, 2.6, 1.5)
	pt3dadd(4.15, 46.27, 2.56, 1.5)
	pt3dadd(3.74, 46.07, 2.32, 1.8)
  }
  dend[1116] {pt3dclear()
	pt3dadd(3.74, 46.07, 2.32, 1.8)
	pt3dadd(1.5, 46.88, 3.92, 1.8)
  }
  dend[1117] {pt3dclear()
	pt3dadd(3.74, 46.07, 2.32, 1.8)
	pt3dadd(4.35, 44.03, 1.52, 1.5)
	pt3dadd(5.78, 42.2, 1.52, 0.9)
	pt3dadd(6.39, 40.58, 1.52, 0.9)
	pt3dadd(5.98, 38.55, 1.52, 0.9)
	pt3dadd(4.15, 36.72, 0.4, 0.9)
	pt3dadd(2.72, 35.09, 0.4, 0.9)
	pt3dadd(0.68, 33.67, 0.4, 0.9)
  }
  dend[1118] {pt3dclear()
	pt3dadd(13.73, 52.77, 1.8, 0.9)
	pt3dadd(12.91, 50.94, 1.8, 0.6)
	pt3dadd(11.69, 49.52, 2.56, 0.9)
	pt3dadd(10.87, 46.27, 3.24, 1.5)
	pt3dadd(10.67, 43.02, 3.76, 1.5)
	pt3dadd(11.89, 40.78, 3.76, 1.5)
	pt3dadd(13.73, 38.75, 4.92, 1.5)
	pt3dadd(14.95, 36.31, 5.32, 0.9)
	pt3dadd(15.36, 34.48, 4.16, 0.6)
  }
  dend[1119] {pt3dclear()
	pt3dadd(14.95, 53.38, 1.24, 0.9)
	pt3dadd(16.58, 52.16, 1.24, 0.3)
	pt3dadd(17.8, 50.94, 1.32, 0.3)
  }
  dend[1120] {pt3dclear()
	pt3dadd(31.79, 46.14, 1, 4.5)
	pt3dadd(29.76, 46.35, 1.4, 2.7)
	pt3dadd(27.92, 46.14, 2.52, 1.8)
	pt3dadd(26.7, 45.94, 2.52, 1.5)
	pt3dadd(24.66, 45.74, 2.84, 1.5)
	pt3dadd(22.83, 45.74, 2.84, 1.5)
	pt3dadd(20.99, 45.33, 2.6, 1.5)
	pt3dadd(19.36, 44.72, 2.6, 1.5)
	pt3dadd(17.53, 43.7, 3.32, 1.5)
	pt3dadd(15.49, 42.08, 3.8, 1.8)
	pt3dadd(13.66, 41.26, 3.8, 1.8)
	pt3dadd(10.8, 40.65, 3.8, 1.8)
	pt3dadd(8.56, 39.23, 3.8, 1.8)
  }
  dend[1121] {pt3dclear()
	pt3dadd(8.56, 39.23, 3.8, 1.8)
	pt3dadd(5.78, 39.97, 3.56, 0.9)
	pt3dadd(3.54, 40.17, 3.56, 0.9)
	pt3dadd(2.11, 40.99, 4.08, 1.5)
	pt3dadd(0.89, 41.39, 4.08, 1.8)
	pt3dadd(-0.74, 43.22, 5.16, 1.8)
	pt3dadd(-2.78, 45.25, 6.08, 1.8)
	pt3dadd(-4.82, 46.07, 6.32, 2.1)
	pt3dadd(-6.86, 47.29, 3.96, 1.8)
	pt3dadd(-8.28, 47.69, 3.96, 1.8)
	pt3dadd(-9.1, 47.69, 3.96, 1.5)
  }
  dend[1122] {pt3dclear()
	pt3dadd(8.56, 39.23, 3.8, 1.8)
	pt3dadd(7.13, 37.81, 4.52, 1.5)
  }
  dend[1123] {pt3dclear()
	pt3dadd(7.13, 37.81, 4.52, 1.5)
	pt3dadd(5.1, 36.39, 5.2, 1.5)
	pt3dadd(3.47, 34.76, 5.16, 1.8)
  }
  dend[1124] {pt3dclear()
	pt3dadd(3.47, 34.76, 5.16, 1.8)
	pt3dadd(1.7, 35.7, 5.52, 1.8)
	pt3dadd(-0.13, 35.7, 5.52, 1.5)
	pt3dadd(-1.35, 36.11, 5.52, 1.8)
	pt3dadd(-2.37, 36.31, 5.52, 2.1)
	pt3dadd(-4.61, 36.51, 5.28, 1.8)
	pt3dadd(-6.45, 37.33, 5.28, 1.8)
	pt3dadd(-7.88, 38.55, 5.44, 1.8)
	pt3dadd(-10.32, 39.36, 5.44, 1.8)
  }
  dend[1125] {pt3dclear()
	pt3dadd(-10.32, 39.36, 5.44, 1.8)
	pt3dadd(-10.73, 42, 5.64, 1.8)
	pt3dadd(-10.73, 43.42, 5.64, 1.8)
	pt3dadd(-11.75, 44.44, 5.64, 1.8)
  }
  dend[1126] {pt3dclear()
	pt3dadd(-10.32, 39.36, 5.44, 1.8)
	pt3dadd(-11.95, 37.33, 5.52, 1.8)
	pt3dadd(-15.01, 37.33, 5.52, 1.8)
  }
  dend[1127] {pt3dclear()
	pt3dadd(-15.01, 37.33, 5.52, 1.8)
	pt3dadd(-17.66, 38.34, 5.52, 1.5)
	pt3dadd(-19.29, 39.36, 5.52, 1.8)
	pt3dadd(-20.51, 39.56, 5.52, 1.8)
	pt3dadd(-21.73, 41.59, 5.52, 2.1)
	pt3dadd(-23.57, 43.42, 5.52, 2.1)
	pt3dadd(-25.4, 44.24, 5.52, 1.5)
	pt3dadd(-27.64, 44.85, 5.52, 1.5)
	pt3dadd(-29.48, 45.66, 5.52, 1.5)
	pt3dadd(-30.09, 47.49, 5.52, 1.5)
	pt3dadd(-30.5, 49.12, 5.52, 1.5)
  }
  dend[1128] {pt3dclear()
	pt3dadd(-15.01, 37.33, 5.52, 1.8)
	pt3dadd(-15.82, 34.89, 5.28, 1.8)
	pt3dadd(-16.84, 33.26, 5.28, 1.8)
	pt3dadd(-17.66, 32.04, 5.24, 1.5)
	pt3dadd(-18.88, 31.64, 5.24, 0.9)
	pt3dadd(-19.9, 31.64, 5.24, 1.8)
	pt3dadd(-21.73, 31.84, 5.12, 2.1)
	pt3dadd(-23.77, 33.06, 5.12, 1.8)
  }
  dend[1129] {pt3dclear()
	pt3dadd(3.47, 34.76, 5.16, 1.8)
	pt3dadd(2.24, 33.74, 5.16, 1.5)
  }
  dend[1130] {pt3dclear()
	pt3dadd(2.24, 33.74, 5.16, 1.5)
	pt3dadd(-0.74, 30.01, 5.84, 1.5)
  }
  dend[1131] {pt3dclear()
	pt3dadd(-0.74, 30.01, 5.84, 1.5)
	pt3dadd(-2.98, 31.03, 3.6, 1.8)
	pt3dadd(-5.02, 31.43, 5, 1.8)
	pt3dadd(-6.65, 31.64, 5, 2.1)
  }
  dend[1132] {pt3dclear()
	pt3dadd(-0.74, 30.01, 5.84, 1.5)
	pt3dadd(0.28, 28.18, 5.84, 1.5)
	pt3dadd(-0.13, 26.35, 5.84, 1.5)
	pt3dadd(-0.54, 25.13, 5.84, 1.8)
	pt3dadd(-0.13, 24.12, 5.84, 1.8)
	pt3dadd(0.28, 22.29, 5.84, 1.8)
	pt3dadd(0.07, 20.86, 5.84, 1.8)
	pt3dadd(1.09, 19.03, 5.84, 1.5)
	pt3dadd(2.93, 17.41, 5, 0.9)
  }
  dend[1133] {pt3dclear()
	pt3dadd(2.24, 33.74, 5.16, 1.5)
	pt3dadd(3.26, 31.91, 5.16, 0.9)
	pt3dadd(3.47, 30.09, 5.16, 0.9)
  }
  dend[1134] {pt3dclear()
	pt3dadd(7.13, 37.81, 4.52, 1.5)
	pt3dadd(7.95, 35.78, 4.52, 0.6)
	pt3dadd(8.56, 34.35, 4.52, 0.6)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
  shape3d_18()
  shape3d_19()
  shape3d_20()
  shape3d_21()
  shape3d_22()
  shape3d_23()
  shape3d_24()
  shape3d_25()
  shape3d_26()
  shape3d_27()
  shape3d_28()
  shape3d_29()
}
access soma

celldef()

Loading data, please wait...