proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg()
}

create axon[35], dend[654], soma[3]

proc topol() { local i
  connect axon[1](0), axon(0.5)
  for i = 2, 15 connect axon[i](0), axon[i-1](1)
  connect axon[16](0), axon[14](1)
  connect axon[17](0), axon[13](1)
  connect axon[18](0), axon[12](1)
  connect axon[19](0), axon[11](1)
  connect axon[20](0), axon[10](1)
  connect axon[21](0), axon[9](1)
  connect axon[22](0), axon[8](1)
  connect axon[23](0), axon[7](1)
  connect axon[24](0), axon[6](1)
  connect axon[25](0), axon[5](1)
  connect axon[26](0), axon[4](1)
  connect axon[27](0), axon[3](1)
  connect axon[28](0), axon[2](1)
  for i = 29, 31 connect axon[i](0), axon[i-1](1)
  connect axon[32](0), axon[30](1)
  connect axon[33](0), axon[29](1)
  connect axon[34](0), axon[28](1)
  connect dend(0), axon(0.5)
  for i = 1, 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[14](1)
  connect dend[21](0), dend[13](1)
  for i = 22, 23 connect dend[i](0), dend[21](1)
  connect dend[24](0), dend[12](1)
  for i = 25, 26 connect dend[i](0), dend[24](1)
  connect dend[27](0), dend[11](1)
  connect dend[28](0), dend[10](1)
  connect dend[29](0), dend[9](1)
  connect dend[30](0), dend[8](1)
  connect dend[31](0), dend[7](1)
  for i = 32, 42 connect dend[i](0), dend[i-1](1)
  connect dend[43](0), dend[41](1)
  connect dend[44](0), dend[40](1)
  connect dend[45](0), dend[39](1)
  connect dend[46](0), dend[38](1)
  connect dend[47](0), dend[37](1)
  connect dend[48](0), dend[36](1)
  connect dend[49](0), dend[35](1)
  for i = 50, 51 connect dend[i](0), dend[49](1)
  connect dend[52](0), dend[34](1)
  connect dend[53](0), dend[33](1)
  for i = 54, 60 connect dend[i](0), dend[i-1](1)
  connect dend[61](0), dend[59](1)
  for i = 62, 63 connect dend[i](0), dend[61](1)
  connect dend[64](0), dend[58](1)
  connect dend[65](0), dend[57](1)
  for i = 66, 67 connect dend[i](0), dend[65](1)
  connect dend[68](0), dend[56](1)
  connect dend[69](0), dend[55](1)
  for i = 70, 71 connect dend[i](0), dend[69](1)
  connect dend[72](0), dend[54](1)
  connect dend[73](0), dend[53](1)
  connect dend[74](0), dend[32](1)
  connect dend[75](0), dend[31](1)
  connect dend[76](0), dend[6](1)
  connect dend[77](0), dend[5](1)
  connect dend[78](0), dend[4](1)
  for i = 79, 84 connect dend[i](0), dend[i-1](1)
  connect dend[85](0), dend[83](1)
  connect dend[86](0), dend[82](1)
  connect dend[87](0), dend[81](1)
  for i = 88, 89 connect dend[i](0), dend[i-1](1)
  connect dend[90](0), dend[88](1)
  connect dend[91](0), dend[87](1)
  for i = 92, 93 connect dend[i](0), dend[91](1)
  connect dend[94](0), dend[80](1)
  connect dend[95](0), dend[79](1)
  for i = 96, 97 connect dend[i](0), dend[i-1](1)
  connect dend[98](0), dend[96](1)
  connect dend[99](0), dend[95](1)
  connect dend[100](0), dend[78](1)
  connect dend[101](0), dend[3](1)
  for i = 102, 104 connect dend[i](0), dend[i-1](1)
  connect dend[105](0), dend[103](1)
  connect dend[106](0), dend[102](1)
  for i = 107, 108 connect dend[i](0), dend[106](1)
  for i = 109, 110 connect dend[i](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)
  for i = 115, 116 connect dend[i](0), dend[i-1](1)
  connect dend[117](0), dend[115](1)
  for i = 118, 120 connect dend[i](0), dend[i-1](1)
  connect dend[121](0), dend[119](1)
  connect dend[122](0), dend[118](1)
  for i = 123, 124 connect dend[i](0), dend[i-1](1)
  connect dend[125](0), dend[123](1)
  connect dend[126](0), dend[122](1)
  connect dend[127](0), dend[117](1)
  connect dend[128](0), dend[114](1)
  connect dend[129](0), dend[101](1)
  for i = 130, 131 connect dend[i](0), dend[i-1](1)
  connect dend[132](0), dend[130](1)
  for i = 133, 136 connect dend[i](0), dend[i-1](1)
  connect dend[137](0), dend[135](1)
  connect dend[138](0), dend[134](1)
  for i = 139, 140 connect dend[i](0), dend[i-1](1)
  connect dend[141](0), dend[139](1)
  for i = 142, 143 connect dend[i](0), dend[141](1)
  connect dend[144](0), dend[138](1)
  for i = 145, 146 connect dend[i](0), dend[i-1](1)
  connect dend[147](0), dend[145](1)
  connect dend[148](0), dend[144](1)
  connect dend[149](0), dend[133](1)
  for i = 150, 152 connect dend[i](0), dend[i-1](1)
  connect dend[153](0), dend[151](1)
  connect dend[154](0), dend[150](1)
  for i = 155, 160 connect dend[i](0), dend[i-1](1)
  connect dend[161](0), dend[159](1)
  connect dend[162](0), dend[158](1)
  connect dend[163](0), dend[157](1)
  connect dend[164](0), dend[156](1)
  for i = 165, 167 connect dend[i](0), dend[i-1](1)
  connect dend[168](0), dend[166](1)
  connect dend[169](0), dend[165](1)
  connect dend[170](0), dend[164](1)
  connect dend[171](0), dend[155](1)
  connect dend[172](0), dend[154](1)
  connect dend[173](0), dend[149](1)
  connect dend[174](0), dend[132](1)
  connect dend[175](0), dend[129](1)
  for i = 176, 177 connect dend[i](0), dend[i-1](1)
  connect dend[178](0), dend[176](1)
  connect dend[179](0), dend[175](1)
  for i = 180, 182 connect dend[i](0), dend[i-1](1)
  connect dend[183](0), dend[181](1)
  connect dend[184](0), dend[180](1)
  connect dend[185](0), dend[179](1)
  connect dend[186](0), dend[2](1)
  connect dend[187](0), dend[1](1)
  for i = 188, 189 connect dend[i](0), dend[187](1)
  for i = 190, 193 connect dend[i](0), dend[i-1](1)
  connect dend[194](0), dend[192](1)
  connect dend[195](0), dend[191](1)
  for i = 196, 197 connect dend[i](0), dend[i-1](1)
  connect dend[198](0), dend[196](1)
  connect dend[199](0), dend[195](1)
  for i = 200, 201 connect dend[i](0), dend[i-1](1)
  connect dend[202](0), dend[200](1)
  connect dend[203](0), dend[199](1)
  for i = 204, 208 connect dend[i](0), dend[i-1](1)
  connect dend[209](0), dend[207](1)
  connect dend[210](0), dend[206](1)
  connect dend[211](0), dend[205](1)
  connect dend[212](0), dend[204](1)
  connect dend[213](0), dend[203](1)
  connect dend[214](0), dend[190](1)
  for i = 215, 216 connect dend[i](0), dend[i-1](1)
  connect dend[217](0), dend[215](1)
  for i = 218, 221 connect dend[i](0), dend[i-1](1)
  connect dend[222](0), dend[220](1)
  for i = 223, 224 connect dend[i](0), dend[i-1](1)
  connect dend[225](0), dend[223](1)
  for i = 226, 227 connect dend[i](0), dend[i-1](1)
  connect dend[228](0), dend[226](1)
  for i = 229, 230 connect dend[i](0), dend[i-1](1)
  connect dend[231](0), dend[229](1)
  for i = 232, 233 connect dend[i](0), dend[i-1](1)
  connect dend[234](0), dend[232](1)
  connect dend[235](0), dend[231](1)
  connect dend[236](0), dend[228](1)
  for i = 237, 238 connect dend[i](0), dend[236](1)
  connect dend[239](0), dend[225](1)
  connect dend[240](0), dend[222](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)
  connect dend[245](0), dend[219](1)
  for i = 246, 249 connect dend[i](0), dend[i-1](1)
  connect dend[250](0), dend[248](1)
  connect dend[251](0), dend[247](1)
  for i = 252, 253 connect dend[i](0), dend[251](1)
  connect dend[254](0), dend[246](1)
  connect dend[255](0), dend[245](1)
  connect dend[256](0), dend[218](1)
  connect dend[257](0), dend[217](1)
  for i = 258, 259 connect dend[i](0), dend[257](1)
  connect dend[260](0), dend[214](1)
  for i = 261, 262 connect dend[i](0), dend[260](1)
  connect dend[263](0), dend[189](1)
  connect dend[264](0), dend(1)
  for i = 265, 266 connect dend[i](0), dend[264](1)
  for i = 267, 268 connect dend[i](0), dend[266](1)
  for i = 269, 272 connect dend[i](0), dend[i-1](1)
  connect dend[273](0), dend[271](1)
  connect dend[274](0), dend[270](1)
  connect dend[275](0), dend[269](1)
  for i = 276, 278 connect dend[i](0), dend[i-1](1)
  connect dend[279](0), dend[277](1)
  for i = 280, 281 connect dend[i](0), dend[279](1)
  for i = 282, 283 connect dend[i](0), dend[281](1)
  for i = 284, 285 connect dend[i](0), dend[i-1](1)
  connect dend[286](0), dend[284](1)
  for i = 287, 288 connect dend[i](0), dend[i-1](1)
  connect dend[289](0), dend[287](1)
  for i = 290, 293 connect dend[i](0), dend[i-1](1)
  connect dend[294](0), dend[292](1)
  topol_1()
}
proc topol_1() {
  for i = 295, 296 connect dend[i](0), dend[294](1)
  for i = 297, 298 connect dend[i](0), dend[296](1)
  connect dend[299](0), dend[291](1)
  for i = 300, 301 connect dend[i](0), dend[i-1](1)
  connect dend[302](0), dend[300](1)
  connect dend[303](0), dend[299](1)
  for i = 304, 305 connect dend[i](0), dend[303](1)
  for i = 306, 307 connect dend[i](0), dend[305](1)
  for i = 308, 309 connect dend[i](0), dend[307](1)
  connect dend[310](0), dend[290](1)
  connect dend[311](0), dend[289](1)
  for i = 312, 313 connect dend[i](0), dend[311](1)
  connect dend[314](0), dend[286](1)
  connect dend[315](0), dend[283](1)
  connect dend[316](0), dend[276](1)
  connect dend[317](0), dend[275](1)
  for i = 318, 319 connect dend[i](0), dend[i-1](1)
  connect dend[320](0), dend[318](1)
  for i = 321, 324 connect dend[i](0), dend[i-1](1)
  connect dend[325](0), dend[323](1)
  for i = 326, 327 connect dend[i](0), dend[325](1)
  connect dend[328](0), dend[322](1)
  for i = 329, 330 connect dend[i](0), dend[i-1](1)
  connect dend[331](0), dend[329](1)
  for i = 332, 335 connect dend[i](0), dend[i-1](1)
  connect dend[336](0), dend[334](1)
  connect dend[337](0), dend[333](1)
  for i = 338, 340 connect dend[i](0), dend[i-1](1)
  connect dend[341](0), dend[339](1)
  for i = 342, 343 connect dend[i](0), dend[341](1)
  connect dend[344](0), dend[338](1)
  for i = 345, 346 connect dend[i](0), dend[i-1](1)
  connect dend[347](0), dend[345](1)
  for i = 348, 350 connect dend[i](0), dend[i-1](1)
  connect dend[351](0), dend[349](1)
  for i = 352, 353 connect dend[i](0), dend[351](1)
  connect dend[354](0), dend[348](1)
  connect dend[355](0), dend[347](1)
  for i = 356, 357 connect dend[i](0), dend[355](1)
  connect dend[358](0), dend[344](1)
  for i = 359, 360 connect dend[i](0), dend[358](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[337](1)
  connect dend[366](0), dend[332](1)
  connect dend[367](0), dend[331](1)
  connect dend[368](0), dend[328](1)
  connect dend[369](0), dend[321](1)
  connect dend[370](0), dend[320](1)
  for i = 371, 372 connect dend[i](0), dend[i-1](1)
  connect dend[373](0), dend[371](1)
  for i = 374, 375 connect dend[i](0), dend[373](1)
  connect dend[376](0), dend[370](1)
  connect dend[377](0), dend[317](1)
  for i = 378, 379 connect dend[i](0), dend[i-1](1)
  connect dend[380](0), dend[378](1)
  connect dend[381](0), dend[377](1)
  connect dend[382](0), dend[268](1)
  for i = 383, 384 connect dend[i](0), dend[382](1)
  connect dend[385](0), axon(0.5)
  for i = 386, 389 connect dend[i](0), dend[i-1](1)
  connect dend[390](0), dend[388](1)
  connect dend[391](0), dend[387](1)
  for i = 392, 393 connect dend[i](0), dend[i-1](1)
  connect dend[394](0), dend[392](1)
  for i = 395, 398 connect dend[i](0), dend[i-1](1)
  connect dend[399](0), dend[397](1)
  connect dend[400](0), dend[396](1)
  for i = 401, 402 connect dend[i](0), dend[400](1)
  for i = 403, 404 connect dend[i](0), dend[i-1](1)
  connect dend[405](0), dend[403](1)
  connect dend[406](0), dend[402](1)
  for i = 407, 408 connect dend[i](0), dend[406](1)
  connect dend[409](0), dend[395](1)
  for i = 410, 412 connect dend[i](0), dend[i-1](1)
  connect dend[413](0), dend[411](1)
  for i = 414, 415 connect dend[i](0), dend[i-1](1)
  connect dend[416](0), dend[414](1)
  connect dend[417](0), dend[413](1)
  connect dend[418](0), dend[410](1)
  for i = 419, 420 connect dend[i](0), dend[418](1)
  connect dend[421](0), dend[409](1)
  for i = 422, 423 connect dend[i](0), dend[421](1)
  for i = 424, 425 connect dend[i](0), dend[423](1)
  connect dend[426](0), dend[394](1)
  for i = 427, 428 connect dend[i](0), dend[426](1)
  connect dend[429](0), dend[391](1)
  connect dend[430](0), dend[386](1)
  connect dend[431](0), dend[385](1)
  for i = 432, 435 connect dend[i](0), dend[i-1](1)
  connect dend[436](0), dend[434](1)
  for i = 437, 438 connect dend[i](0), dend[436](1)
  for i = 439, 440 connect dend[i](0), dend[438](1)
  connect dend[441](0), dend[433](1)
  for i = 442, 443 connect dend[i](0), dend[441](1)
  for i = 444, 446 connect dend[i](0), dend[i-1](1)
  connect dend[447](0), dend[445](1)
  for i = 448, 449 connect dend[i](0), dend[447](1)
  connect dend[450](0), dend[444](1)
  for i = 451, 452 connect dend[i](0), dend[450](1)
  for i = 453, 455 connect dend[i](0), dend[i-1](1)
  connect dend[456](0), dend[454](1)
  connect dend[457](0), dend[453](1)
  for i = 458, 459 connect dend[i](0), dend[i-1](1)
  connect dend[460](0), dend[458](1)
  for i = 461, 462 connect dend[i](0), dend[i-1](1)
  connect dend[463](0), dend[461](1)
  connect dend[464](0), dend[460](1)
  connect dend[465](0), dend[457](1)
  for i = 466, 467 connect dend[i](0), dend[465](1)
  connect dend[468](0), dend[452](1)
  connect dend[469](0), dend[443](1)
  for i = 470, 471 connect dend[i](0), dend[469](1)
  connect dend[472](0), dend[432](1)
  for i = 473, 474 connect dend[i](0), dend[472](1)
  connect dend[475](0), dend[431](1)
  for i = 476, 482 connect dend[i](0), dend[i-1](1)
  connect dend[483](0), dend[481](1)
  for i = 484, 485 connect dend[i](0), dend[483](1)
  for i = 486, 487 connect dend[i](0), dend[485](1)
  for i = 488, 489 connect dend[i](0), dend[i-1](1)
  connect dend[490](0), dend[488](1)
  connect dend[491](0), dend[487](1)
  connect dend[492](0), dend[480](1)
  for i = 493, 494 connect dend[i](0), dend[i-1](1)
  connect dend[495](0), dend[493](1)
  for i = 496, 497 connect dend[i](0), dend[i-1](1)
  connect dend[498](0), dend[496](1)
  for i = 499, 500 connect dend[i](0), dend[i-1](1)
  connect dend[501](0), dend[499](1)
  for i = 502, 503 connect dend[i](0), dend[501](1)
  for i = 504, 505 connect dend[i](0), dend[503](1)
  connect dend[506](0), dend[498](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)
  connect dend[511](0), dend[495](1)
  connect dend[512](0), dend[492](1)
  connect dend[513](0), dend[479](1)
  connect dend[514](0), dend[478](1)
  for i = 515, 519 connect dend[i](0), dend[i-1](1)
  connect dend[520](0), dend[518](1)
  connect dend[521](0), dend[517](1)
  connect dend[522](0), dend[516](1)
  for i = 523, 526 connect dend[i](0), dend[i-1](1)
  connect dend[527](0), dend[525](1)
  for i = 528, 529 connect dend[i](0), dend[527](1)
  for i = 530, 531 connect dend[i](0), dend[529](1)
  for i = 532, 533 connect dend[i](0), dend[531](1)
  connect dend[534](0), dend[524](1)
  connect dend[535](0), dend[523](1)
  connect dend[536](0), dend[522](1)
  for i = 537, 539 connect dend[i](0), dend[i-1](1)
  connect dend[540](0), dend[538](1)
  connect dend[541](0), dend[537](1)
  for i = 542, 547 connect dend[i](0), dend[i-1](1)
  connect dend[548](0), dend[546](1)
  for i = 549, 550 connect dend[i](0), dend[548](1)
  for i = 551, 552 connect dend[i](0), dend[550](1)
  connect dend[553](0), dend[545](1)
  connect dend[554](0), dend[544](1)
  connect dend[555](0), dend[543](1)
  for i = 556, 560 connect dend[i](0), dend[i-1](1)
  connect dend[561](0), dend[559](1)
  for i = 562, 563 connect dend[i](0), dend[561](1)
  connect dend[564](0), dend[558](1)
  connect dend[565](0), dend[557](1)
  for i = 566, 567 connect dend[i](0), dend[565](1)
  connect dend[568](0), dend[556](1)
  for i = 569, 575 connect dend[i](0), dend[i-1](1)
  connect dend[576](0), dend[574](1)
  for i = 577, 578 connect dend[i](0), dend[576](1)
  connect dend[579](0), dend[573](1)
  for i = 580, 581 connect dend[i](0), dend[579](1)
  for i = 582, 583 connect dend[i](0), dend[i-1](1)
  connect dend[584](0), dend[582](1)
  for i = 585, 586 connect dend[i](0), dend[i-1](1)
  connect dend[587](0), dend[585](1)
  for i = 588, 589 connect dend[i](0), dend[i-1](1)
  connect dend[590](0), dend[588](1)
  connect dend[591](0), dend[587](1)
  for i = 592, 593 connect dend[i](0), dend[i-1](1)
  connect dend[594](0), dend[592](1)
  for i = 595, 596 connect dend[i](0), dend[594](1)
  connect dend[597](0), dend[591](1)
  connect dend[598](0), dend[584](1)
  for i = 599, 600 connect dend[i](0), dend[598](1)
  connect dend[601](0), dend[581](1)
  connect dend[602](0), dend[572](1)
  for i = 603, 604 connect dend[i](0), dend[i-1](1)
  connect dend[605](0), dend[603](1)
  for i = 606, 609 connect dend[i](0), dend[i-1](1)
  connect dend[610](0), dend[608](1)
  connect dend[611](0), dend[607](1)
  for i = 612, 613 connect dend[i](0), dend[i-1](1)
  connect dend[614](0), dend[612](1)
  for i = 615, 616 connect dend[i](0), dend[614](1)
  connect dend[617](0), dend[611](1)
  for i = 618, 619 connect dend[i](0), dend[i-1](1)
  connect dend[620](0), dend[618](1)
  topol_2()
}
proc topol_2() {
  connect dend[621](0), dend[617](1)
  connect dend[622](0), dend[606](1)
  for i = 623, 624 connect dend[i](0), dend[622](1)
  connect dend[625](0), dend[605](1)
  connect dend[626](0), dend[602](1)
  for i = 627, 628 connect dend[i](0), dend[626](1)
  connect dend[629](0), dend[571](1)
  connect dend[630](0), dend[570](1)
  for i = 631, 632 connect dend[i](0), dend[630](1)
  connect dend[633](0), dend[569](1)
  for i = 634, 635 connect dend[i](0), dend[633](1)
  connect dend[636](0), dend[568](1)
  for i = 637, 638 connect dend[i](0), dend[636](1)
  connect dend[639](0), dend[555](1)
  connect dend[640](0), dend[542](1)
  connect dend[641](0), dend[541](1)
  connect dend[642](0), dend[536](1)
  connect dend[643](0), dend[515](1)
  connect dend[644](0), dend[514](1)
  for i = 645, 646 connect dend[i](0), dend[644](1)
  for i = 647, 648 connect dend[i](0), dend[646](1)
  connect dend[649](0), dend[477](1)
  for i = 650, 651 connect dend[i](0), dend[649](1)
  connect dend[652](0), dend[476](1)
  connect dend[653](0), dend[475](1)
  connect soma(0), axon[1](1)
  for i = 1, 2 connect soma[i](0), soma(1)
  basic_shape()
}
proc shape3d_1() {
  axon {pt3dclear()
	pt3dadd(139.22, 53.61, 11.05, 40)
	pt3dadd(159.22, 53.61, 11.05, 40)
	pt3dadd(179.22, 53.61, 11.05, 40)
  }
  dend {pt3dclear()
	pt3dstyle(1, 159.22, 53.61, 11.05)
	pt3dadd(159.22, 53.61, 10.95, 10)
	pt3dadd(155.908, 63.222, 11.05, 10)
	pt3dadd(155.49, 67.631, 11.05, 10)
	pt3dadd(155.509, 72.945, 11.05, 11)
	pt3dadd(155.356, 76.619, 11.05, 11)
	pt3dadd(155.383, 81.078, 11.05, 10)
	pt3dadd(156.094, 85.077, 11.05, 11)
	pt3dadd(156.77, 88.981, 11.05, 11)
	pt3dadd(156.779, 91.638, 11.05, 12)
	pt3dadd(157.762, 94.047, 11.05, 13)
  }
  dend[1] {pt3dclear()
	pt3dadd(157.762, 94.047, 11.05, 13)
	pt3dadd(157.797, 94.141, 10.95, 13)
	pt3dadd(156.071, 97.004, 11.75, 11)
	pt3dadd(155.312, 99.302, 11.75, 11)
	pt3dadd(154.638, 103.591, 9.95, 10)
	pt3dadd(152.281, 107.642, 9.95, 10)
	pt3dadd(150.292, 111.239, 9.95, 9)
	pt3dadd(149.353, 115.092, 9.95, 9)
	pt3dadd(147.508, 118.211, 9.95, 9)
	pt3dadd(146.604, 120.988, 9.95, 9)
	pt3dadd(144.196, 125.483, 9.95, 11)
  }
  dend[2] {pt3dclear()
	pt3dadd(144.196, 125.483, 9.95, 11)
	pt3dadd(144.383, 125.414, 9.75, 11)
	pt3dadd(141.838, 126.022, 9.75, 10)
	pt3dadd(140.113, 128.884, 9.75, 10)
	pt3dadd(138.242, 131.055, 9.75, 9)
	pt3dadd(136.569, 133.474, 9.75, 9)
	pt3dadd(134.613, 137.165, 9.75, 9)
  }
  dend[3] {pt3dclear()
	pt3dadd(134.613, 137.165, 9.75, 9)
	pt3dadd(134.648, 137.258, 9.85, 9)
	pt3dadd(133.828, 139.685, 9.85, 9)
	pt3dadd(133.009, 142.112, 9.85, 9)
	pt3dadd(131.096, 145.043, 9.85, 10)
	pt3dadd(129.781, 147.863, 9.85, 10)
	pt3dadd(128.023, 151.802, 9.85, 9)
	pt3dadd(126.315, 155.297, 6.85, 9)
	pt3dadd(124.948, 158.561, 6.85, 10)
	pt3dadd(124.377, 161.961, 6.85, 11)
	pt3dadd(124.728, 164.388, 6.85, 11)
	pt3dadd(124.37, 166.327, 6.85, 11)
	pt3dadd(123.448, 169.642, 6.85, 11)
  }
  dend[4] {pt3dclear()
	pt3dadd(123.448, 169.642, 6.85, 11)
	pt3dadd(113.489, 179.12, 4.05, 7)
	pt3dadd(111.79, 181.761, 4.05, 8)
	pt3dadd(109.766, 185.263, 4.05, 8)
	pt3dadd(106.888, 189.93, 4.05, 8)
	pt3dadd(105.641, 192.937, 4.05, 8)
	pt3dadd(103.13, 195.979, 4.05, 8)
	pt3dadd(101.363, 198.432, 4.05, 8)
	pt3dadd(100.696, 199.526, 4.05, 8)
	pt3dadd(99.851, 199.833, 3.85, 9)
  }
  dend[5] {pt3dclear()
	pt3dadd(99.851, 199.833, 3.85, 9)
	pt3dadd(99.851, 199.833, 3.75, 9)
	pt3dadd(98.571, 202.747, 3.75, 9)
	pt3dadd(97.042, 205.858, 3.75, 9)
  }
  dend[6] {pt3dclear()
	pt3dadd(97.042, 205.858, 3.75, 9)
	pt3dadd(95.778, 208.233, 3.75, 9)
	pt3dadd(94.506, 211.463, 3.75, 9)
	pt3dadd(93.209, 213.745, 3.75, 9)
  }
  dend[7] {pt3dclear()
	pt3dadd(93.209, 213.745, 3.75, 9)
	pt3dadd(91.577, 216.573, 3.75, 9)
	pt3dadd(89.767, 219.786, 3.75, 10)
  }
  dend[8] {pt3dclear()
	pt3dadd(89.767, 219.786, 3.75, 10)
	pt3dadd(81.901, 229.459, 8.05, 7)
  }
  dend[9] {pt3dclear()
	pt3dadd(81.901, 229.459, 8.05, 7)
	pt3dadd(78.886, 232.579, 8.05, 7)
	pt3dadd(76.409, 234.545, 8.05, 6)
  }
  dend[10] {pt3dclear()
	pt3dadd(76.409, 234.545, 8.05, 6)
	pt3dadd(73.044, 236.408, 8.05, 5.5)
	pt3dadd(70.019, 238.041, 8.05, 5)
  }
  dend[11] {pt3dclear()
	pt3dadd(70.019, 238.041, 8.05, 5)
	pt3dadd(66.56, 239.939, 8.05, 4.5)
	pt3dadd(63.725, 243.844, 8.05, 4)
	pt3dadd(62.009, 248.193, 8.05, 3.5)
  }
  dend[12] {pt3dclear()
	pt3dadd(62.009, 248.193, 8.05, 3.5)
	pt3dadd(58.532, 250.628, 8.05, 4)
	pt3dadd(56.294, 252.082, 8.05, 4.5)
	pt3dadd(54.51, 253.902, 8.05, 5)
  }
  dend[13] {pt3dclear()
	pt3dadd(54.51, 253.902, 8.05, 5)
	pt3dadd(52.177, 254.219, 16.35, 3)
  }
  dend[14] {pt3dclear()
	pt3dadd(52.177, 254.219, 16.35, 3)
	pt3dadd(48.042, 255.723, 16.35, 2.5)
	pt3dadd(44.899, 257.613, 18.65, 2.5)
  }
  dend[15] {pt3dclear()
	pt3dadd(44.899, 257.613, 18.65, 2.5)
	pt3dadd(43.267, 258.1, 18.45, 2)
  }
  dend[16] {pt3dclear()
	pt3dadd(43.267, 258.1, 18.45, 2)
	pt3dadd(42.542, 260.493, 18.45, 1.5)
	pt3dadd(41.141, 262.492, 18.45, 1.5)
  }
  dend[17] {pt3dclear()
	pt3dadd(41.141, 262.492, 18.45, 1.5)
	pt3dadd(38.792, 262.177, 18.35, 2)
	pt3dadd(37.468, 264.681, 18.35, 1.5)
	pt3dadd(33.769, 264.75, 18.35, 1.5)
  }
  dend[18] {pt3dclear()
	pt3dadd(41.141, 262.492, 18.45, 1.5)
	pt3dadd(41.602, 264.346, 18.45, 3)
  }
  dend[19] {pt3dclear()
	pt3dadd(43.267, 258.1, 18.45, 2)
	pt3dadd(42.481, 255.939, 18.45, 1.6)
  }
  dend[20] {pt3dclear()
	pt3dadd(44.899, 257.613, 18.65, 2.5)
	pt3dadd(45.822, 260.15, 18.65, 1.5)
  }
  dend[21] {pt3dclear()
	pt3dadd(52.177, 254.219, 16.35, 3)
	pt3dadd(48.742, 252.383, 16.35, 1)
	pt3dadd(48.126, 250.692, 16.35, 1)
  }
  dend[22] {pt3dclear()
	pt3dadd(48.126, 250.692, 16.35, 1)
	pt3dadd(45.315, 250.864, 16.35, 0.5)
  }
  dend[23] {pt3dclear()
	pt3dadd(48.126, 250.692, 16.35, 1)
	pt3dadd(46.997, 247.591, 16.35, 1)
  }
  dend[24] {pt3dclear()
	pt3dadd(54.51, 253.902, 8.05, 5)
	pt3dadd(55.099, 256.986, 11.75, 2.5)
	pt3dadd(55.74, 258.456, 12.65, 2)
  }
  dend[25] {pt3dclear()
	pt3dadd(55.74, 258.456, 12.65, 2)
	pt3dadd(59.723, 260.624, 12.65, 1.5)
  }
  dend[26] {pt3dclear()
	pt3dadd(55.74, 258.456, 12.65, 2)
	pt3dadd(55.315, 261.378, 12.65, 2)
  }
  dend[27] {pt3dclear()
	pt3dadd(62.009, 248.193, 8.05, 3.5)
	pt3dadd(65.008, 251.465, 8.05, 0.6)
	pt3dadd(68.418, 252.352, 8.05, 1)
  }
  dend[28] {pt3dclear()
	pt3dadd(70.019, 238.041, 8.05, 5)
	pt3dadd(72.08, 240.483, 8.05, 0.5)
	pt3dadd(73.78, 242.525, 8.05, 1.5)
  }
  dend[29] {pt3dclear()
	pt3dadd(76.409, 234.545, 8.05, 6)
	pt3dadd(73.435, 229.881, 8.05, 1)
  }
  dend[30] {pt3dclear()
	pt3dadd(81.901, 229.459, 8.05, 7)
	pt3dadd(78.542, 225.787, 8.05, 1)
	pt3dadd(75.534, 223.37, 8.05, 1)
  }
  dend[31] {pt3dclear()
	pt3dadd(89.767, 219.786, 3.75, 10)
	pt3dadd(91.503, 224.262, 5.35, 8)
  }
  dend[32] {pt3dclear()
	pt3dadd(91.503, 224.262, 5.35, 8)
	pt3dadd(92.888, 227.483, 5.35, 8)
  }
  dend[33] {pt3dclear()
	pt3dadd(92.888, 227.483, 5.35, 8)
	pt3dadd(93.725, 229.2, 5.35, 9)
  }
  dend[34] {pt3dclear()
	pt3dadd(93.725, 229.2, 5.35, 9)
	pt3dadd(90.438, 236.249, 5.35, 4)
  }
  dend[35] {pt3dclear()
	pt3dadd(90.438, 236.249, 5.35, 4)
	pt3dadd(88.175, 241.436, 5.35, 3.5)
  }
  dend[36] {pt3dclear()
	pt3dadd(88.175, 241.436, 5.35, 3.5)
	pt3dadd(91.072, 244.425, 8.05, 1.5)
	pt3dadd(92.577, 246.219, 8.05, 1.5)
  }
  dend[37] {pt3dclear()
	pt3dadd(92.577, 246.219, 8.05, 1.5)
	pt3dadd(95.491, 247.5, 8.05, 1.5)
  }
  dend[38] {pt3dclear()
	pt3dadd(95.491, 247.5, 8.05, 1.5)
	pt3dadd(101.618, 249.42, 8.05, 1.5)
	pt3dadd(103.848, 252.332, 8.05, 1.5)
  }
  dend[39] {pt3dclear()
	pt3dadd(103.848, 252.332, 8.05, 1.5)
	pt3dadd(105.498, 254.818, 8.05, 1)
  }
  dend[40] {pt3dclear()
	pt3dadd(105.498, 254.818, 8.05, 1)
	pt3dadd(105.361, 256.784, 8.05, 1)
  }
  dend[41] {pt3dclear()
	pt3dadd(105.361, 256.784, 8.05, 1)
	pt3dadd(103.072, 259.851, 8.05, 1)
  }
  dend[42] {pt3dclear()
	pt3dadd(103.072, 259.851, 8.05, 1)
	pt3dadd(100.578, 262.356, 8.05, 0.5)
  }
  dend[43] {pt3dclear()
	pt3dadd(103.072, 259.851, 8.05, 1)
	pt3dadd(105.465, 260.577, 8.05, 0.5)
  }
  dend[44] {pt3dclear()
	pt3dadd(105.361, 256.784, 8.05, 1)
	pt3dadd(107.6, 257.671, 8.05, 0.5)
  }
  dend[45] {pt3dclear()
	pt3dadd(105.498, 254.818, 8.05, 1)
	pt3dadd(109.744, 255.082, 8.05, 0.5)
  }
  dend[46] {pt3dclear()
	pt3dadd(103.848, 252.332, 8.05, 1.5)
	pt3dadd(106.137, 250.435, 8.05, 0.5)
  }
  dend[47] {pt3dclear()
	pt3dadd(95.491, 247.5, 8.05, 1.5)
	pt3dadd(96.107, 251.532, 8.05, 0.5)
	pt3dadd(96.236, 252.763, 8.05, 0.5)
  }
  dend[48] {pt3dclear()
	pt3dadd(92.577, 246.219, 8.05, 1.5)
	pt3dadd(90.04, 249.483, 8.05, 1)
	pt3dadd(90.007, 251.731, 8.05, 1)
  }
  dend[49] {pt3dclear()
	pt3dadd(88.175, 241.436, 5.35, 3.5)
	pt3dadd(86.758, 245.144, 5.35, 2.5)
	pt3dadd(85.478, 246.888, 8.05, 2)
  }
  dend[50] {pt3dclear()
	pt3dadd(85.478, 246.888, 8.05, 2)
	pt3dadd(84.888, 248.485, 8.05, 2)
	pt3dadd(84.035, 251.988, 8.05, 2)
  }
  dend[51] {pt3dclear()
	pt3dadd(85.478, 246.888, 8.05, 2)
	pt3dadd(82.529, 244.342, 8.05, 1)
  }
  dend[52] {pt3dclear()
	pt3dadd(90.438, 236.249, 5.35, 4)
	pt3dadd(86.012, 236.37, 5.35, 1)
  }
  dend[53] {pt3dclear()
	pt3dadd(93.725, 229.2, 5.35, 9)
	pt3dadd(98.364, 229.959, 5.35, 3)
  }
  dend[54] {pt3dclear()
	pt3dadd(98.364, 229.959, 5.35, 3)
	pt3dadd(102.055, 228.403, 5.35, 2.5)
  }
  dend[55] {pt3dclear()
	pt3dadd(102.055, 228.403, 5.35, 2.5)
	pt3dadd(104.559, 228.556, 5.35, 2)
	pt3dadd(107.566, 227.461, 5.35, 2)
  }
  dend[56] {pt3dclear()
	pt3dadd(107.566, 227.461, 5.35, 2)
	pt3dadd(108.378, 229.4, 5.35, 1.5)
  }
  dend[57] {pt3dclear()
	pt3dadd(108.378, 229.4, 5.35, 1.5)
	pt3dadd(110.436, 228.332, 5.35, 1.5)
	pt3dadd(112.957, 229.117, 5.35, 2)
  }
  dend[58] {pt3dclear()
	pt3dadd(112.957, 229.117, 5.35, 2)
	pt3dadd(113.701, 230.868, 5.35, 2)
  }
  dend[59] {pt3dclear()
	pt3dadd(113.701, 230.868, 5.35, 2)
	pt3dadd(116.496, 234.747, 5.35, 1.5)
	pt3dadd(119.862, 235.224, 5.35, 1)
  }
  dend[60] {pt3dclear()
	pt3dadd(119.862, 235.224, 5.35, 1)
	pt3dadd(121.691, 238.496, 5.35, 1)
	pt3dadd(124.793, 240.878, 5.35, 1)
  }
  dend[61] {pt3dclear()
	pt3dadd(119.862, 235.224, 5.35, 1)
	pt3dadd(123.493, 233.796, 5.35, 1)
  }
  dend[62] {pt3dclear()
	pt3dadd(123.493, 233.796, 5.35, 1)
	pt3dadd(124.362, 229.755, 5.35, 1)
  }
}
proc shape3d_2() {
  dend[62] {  }
  dend[63] {pt3dclear()
	pt3dadd(123.493, 233.796, 5.35, 1)
	pt3dadd(126.234, 231.095, 5.35, 1)
  }
  dend[64] {pt3dclear()
	pt3dadd(113.701, 230.868, 5.35, 2)
	pt3dadd(115.682, 229.295, 5.35, 1)
	pt3dadd(117.792, 227.783, 5.35, 1)
	pt3dadd(121.474, 225.911, 5.35, 1)
  }
  dend[65] {pt3dclear()
	pt3dadd(112.957, 229.117, 5.35, 2)
	pt3dadd(113.266, 233.475, 5.35, 1)
	pt3dadd(114.292, 236.293, 5.35, 1)
	pt3dadd(113.96, 240.352, 5.35, 1)
	pt3dadd(114.439, 241.667, 5.35, 1)
	pt3dadd(116.797, 242.299, 5.35, 1)
  }
  dend[66] {pt3dclear()
	pt3dadd(116.797, 242.299, 5.35, 1)
	pt3dadd(115.833, 246.374, 5.35, 1)
  }
  dend[67] {pt3dclear()
	pt3dadd(116.797, 242.299, 5.35, 1)
	pt3dadd(119.403, 245.074, 5.35, 1)
  }
  dend[68] {pt3dclear()
	pt3dadd(108.378, 229.4, 5.35, 1.5)
	pt3dadd(107.592, 231.922, 5.35, 1)
	pt3dadd(107.816, 235.458, 5.35, 1)
  }
  dend[69] {pt3dclear()
	pt3dadd(107.566, 227.461, 5.35, 2)
	pt3dadd(107.027, 225.104, 5.35, 1)
  }
  dend[70] {pt3dclear()
	pt3dadd(107.027, 225.104, 5.35, 1)
	pt3dadd(105.335, 223.378, 5.35, 1)
	pt3dadd(103.446, 221.405, 5.35, 1)
	pt3dadd(101.745, 220.534, 5.35, 1)
  }
  dend[71] {pt3dclear()
	pt3dadd(107.027, 225.104, 5.35, 1)
	pt3dadd(109.47, 224.214, 5.35, 1)
  }
  dend[72] {pt3dclear()
	pt3dadd(102.055, 228.403, 5.35, 2.5)
	pt3dadd(101.629, 232.495, 5.35, 1)
	pt3dadd(101.109, 234.281, 5.35, 1)
	pt3dadd(103.92, 235.28, 5.35, 1)
  }
  dend[73] {pt3dclear()
	pt3dadd(98.364, 229.959, 5.35, 3)
	pt3dadd(100.047, 226.686, 5.35, 1.5)
  }
  dend[74] {pt3dclear()
	pt3dadd(92.888, 227.483, 5.35, 8)
	pt3dadd(95.628, 223.612, 5.35, 1)
	pt3dadd(96.918, 222.184, 5.35, 1)
  }
  dend[75] {pt3dclear()
	pt3dadd(91.503, 224.262, 5.35, 8)
	pt3dadd(86.574, 226.801, 5.35, 1)
  }
  dend[76] {pt3dclear()
	pt3dadd(93.209, 213.745, 3.75, 9)
	pt3dadd(99.095, 213.837, 3.75, 1)
  }
  dend[77] {pt3dclear()
	pt3dadd(97.042, 205.858, 3.75, 9)
	pt3dadd(92.837, 202.492, 3.75, 1)
	pt3dadd(92.494, 199.212, 3.75, 1)
  }
  dend[78] {pt3dclear()
	pt3dadd(99.851, 199.833, 3.85, 9)
	pt3dadd(103.004, 201.773, 3.85, 4)
	pt3dadd(103.483, 203.087, 3.85, 3)
  }
  dend[79] {pt3dclear()
	pt3dadd(103.483, 203.087, 3.85, 3)
	pt3dadd(105.884, 204.13, 3.85, 3)
  }
  dend[80] {pt3dclear()
	pt3dadd(105.884, 204.13, 3.85, 3)
	pt3dadd(106.679, 205.436, 3.85, 3)
  }
  dend[81] {pt3dclear()
	pt3dadd(106.679, 205.436, 3.85, 3)
	pt3dadd(108.628, 207.282, 3.85, 3)
	pt3dadd(110.388, 208.024, 3.85, 2)
	pt3dadd(112.088, 208.895, 3.85, 2)
  }
  dend[82] {pt3dclear()
	pt3dadd(112.088, 208.895, 3.85, 2)
	pt3dadd(110.671, 210.262, 3.85, 1)
  }
  dend[83] {pt3dclear()
	pt3dadd(110.671, 210.262, 3.85, 1)
	pt3dadd(113.543, 215.815, 3.85, 1)
  }
  dend[84] {pt3dclear()
	pt3dadd(113.543, 215.815, 3.85, 1)
	pt3dadd(109.955, 216.482, 3.85, 1)
  }
  dend[85] {pt3dclear()
	pt3dadd(113.543, 215.815, 3.85, 1)
	pt3dadd(115.901, 216.446, 3.85, 1)
  }
  dend[86] {pt3dclear()
	pt3dadd(110.671, 210.262, 3.85, 1)
	pt3dadd(108.997, 212.68, 3.85, 1)
  }
  dend[87] {pt3dclear()
	pt3dadd(112.088, 208.895, 3.85, 2)
	pt3dadd(115.044, 208.244, 3.85, 1)
  }
  dend[88] {pt3dclear()
	pt3dadd(115.044, 208.244, 3.85, 1)
	pt3dadd(116.497, 210.483, 3.85, 1.5)
	pt3dadd(119.299, 212.336, 3.85, 1)
  }
  dend[89] {pt3dclear()
	pt3dadd(119.299, 212.336, 3.85, 1)
	pt3dadd(122.315, 211.558, 3.85, 1)
  }
  dend[90] {pt3dclear()
	pt3dadd(119.299, 212.336, 3.85, 1)
	pt3dadd(118.813, 214.216, 3.85, 1)
  }
  dend[91] {pt3dclear()
	pt3dadd(115.044, 208.244, 3.85, 1)
	pt3dadd(115.769, 205.852, 3.85, 1)
  }
  dend[92] {pt3dclear()
	pt3dadd(115.769, 205.852, 3.85, 1)
	pt3dadd(115.179, 203.939, 3.85, 1)
  }
  dend[93] {pt3dclear()
	pt3dadd(115.769, 205.852, 3.85, 1)
	pt3dadd(117.221, 204.579, 3.85, 1)
  }
  dend[94] {pt3dclear()
	pt3dadd(106.679, 205.436, 3.85, 3)
	pt3dadd(104.878, 207.795, 3.85, 1)
	pt3dadd(103.134, 208.854, 3.85, 1)
  }
  dend[95] {pt3dclear()
	pt3dadd(105.884, 204.13, 3.85, 3)
	pt3dadd(108.044, 201.001, 3.85, 1)
	pt3dadd(108.941, 200.249, 3.85, 1)
  }
  dend[96] {pt3dclear()
	pt3dadd(108.941, 200.249, 3.85, 1)
	pt3dadd(109.137, 199.327, 3.85, 1)
  }
  dend[97] {pt3dclear()
	pt3dadd(109.137, 199.327, 3.85, 1)
	pt3dadd(111.735, 198.276, 3.85, 1)
  }
  dend[98] {pt3dclear()
	pt3dadd(109.137, 199.327, 3.85, 1)
	pt3dadd(107.3, 198.08, 3.85, 1)
  }
  dend[99] {pt3dclear()
	pt3dadd(108.941, 200.249, 3.85, 1)
	pt3dadd(110.257, 200.941, 3.85, 1)
  }
  dend[100] {pt3dclear()
	pt3dadd(103.483, 203.087, 3.85, 3)
	pt3dadd(101.501, 204.66, 3.85, 1)
  }
  dend[101] {pt3dclear()
	pt3dadd(123.448, 169.642, 6.85, 11)
	pt3dadd(128.113, 171.35, 0.25, 9)
	pt3dadd(130.343, 171.921, 0.25, 9)
  }
  dend[102] {pt3dclear()
	pt3dadd(130.343, 171.921, 0.25, 9)
	pt3dadd(123.109, 180.408, -8.05, 3)
	pt3dadd(123.657, 181.911, -5.95, 3)
  }
  dend[103] {pt3dclear()
	pt3dadd(123.657, 181.911, -5.95, 3)
	pt3dadd(120.249, 184.535, -4.55, 1)
	pt3dadd(117.797, 186.279, -3.65, 1)
  }
  dend[104] {pt3dclear()
	pt3dadd(117.797, 186.279, -3.65, 1)
	pt3dadd(116.822, 184.186, -3.65, 1)
	pt3dadd(116.284, 182.998, -3.65, 1)
  }
  dend[105] {pt3dclear()
	pt3dadd(117.797, 186.279, -3.65, 1)
	pt3dadd(117.31, 188.158, -3.65, 1)
  }
  dend[106] {pt3dclear()
	pt3dadd(123.657, 181.911, -5.95, 3)
	pt3dadd(123.384, 185.841, -5.95, 2.5)
  }
  dend[107] {pt3dclear()
	pt3dadd(123.384, 185.841, -5.95, 2.5)
	pt3dadd(120.625, 187.909, -4.55, 1)
	pt3dadd(118.815, 189.952, -4.55, 1)
	pt3dadd(114.731, 191.013, -4.55, 1)
  }
  dend[108] {pt3dclear()
	pt3dadd(123.384, 185.841, -5.95, 2.5)
	pt3dadd(124.582, 189.13, -5.95, 2)
	pt3dadd(125.471, 191.573, -5.95, 2.5)
	pt3dadd(125.788, 193.905, -5.95, 2)
  }
  dend[109] {pt3dclear()
	pt3dadd(125.788, 193.905, -5.95, 2)
	pt3dadd(122.823, 195.409, -4.55, 1)
	pt3dadd(119.987, 195.804, -4.55, 1)
  }
  dend[110] {pt3dclear()
	pt3dadd(125.788, 193.905, -5.95, 2)
	pt3dadd(126.72, 196.759, -5.95, 2)
	pt3dadd(128.361, 198.928, -5.95, 2)
	pt3dadd(128.925, 199.893, -5.95, 2)
  }
  dend[111] {pt3dclear()
	pt3dadd(128.925, 199.893, -5.95, 2)
	pt3dadd(126.405, 201.449, -4.55, 1)
  }
  dend[112] {pt3dclear()
	pt3dadd(126.405, 201.449, -4.55, 1)
	pt3dadd(122.406, 200.989, -4.55, 1)
  }
  dend[113] {pt3dclear()
	pt3dadd(126.405, 201.449, -4.55, 1)
	pt3dadd(125.841, 203.995, -4.55, 1)
  }
  dend[114] {pt3dclear()
	pt3dadd(128.925, 199.893, -5.95, 2)
	pt3dadd(130.463, 201.781, -5.95, 2)
  }
  dend[115] {pt3dclear()
	pt3dadd(130.463, 201.781, -5.95, 2)
	pt3dadd(130.267, 202.704, -5.95, 2)
	pt3dadd(131.156, 205.148, -5.95, 2)
	pt3dadd(131.353, 206.565, -5.95, 2)
	pt3dadd(132.242, 209.008, -5.95, 2)
	pt3dadd(132.789, 210.512, -5.95, 1.5)
  }
  dend[116] {pt3dclear()
	pt3dadd(132.789, 210.512, -5.95, 1.5)
	pt3dadd(129.723, 211.735, -5.95, 1)
  }
  dend[117] {pt3dclear()
	pt3dadd(132.789, 210.512, -5.95, 1.5)
	pt3dadd(133.38, 212.426, -5.95, 1.5)
	pt3dadd(133.072, 213.92, -5.95, 1.5)
  }
  dend[118] {pt3dclear()
	pt3dadd(133.072, 213.92, -5.95, 1.5)
	pt3dadd(133.287, 217.142, -5.95, 1.5)
	pt3dadd(134.45, 220.337, -5.95, 1.5)
  }
  dend[119] {pt3dclear()
	pt3dadd(134.45, 220.337, -5.95, 1.5)
	pt3dadd(132.563, 220.704, -5.95, 1)
  }
  dend[120] {pt3dclear()
	pt3dadd(132.563, 220.704, -5.95, 1)
	pt3dadd(129.264, 220.415, -5.95, 1)
  }
  dend[121] {pt3dclear()
	pt3dadd(132.563, 220.704, -5.95, 1)
	pt3dadd(132.332, 223.874, -5.95, 1)
  }
  dend[122] {pt3dclear()
	pt3dadd(134.45, 220.337, -5.95, 1.5)
	pt3dadd(136.536, 222.557, -5.95, 1)
  }
  dend[123] {pt3dclear()
	pt3dadd(136.536, 222.557, -5.95, 1)
	pt3dadd(136.92, 223.907, -5.95, 1)
  }
  dend[124] {pt3dclear()
	pt3dadd(136.92, 223.907, -5.95, 1)
	pt3dadd(135.965, 227.128, -5.95, 1.5)
  }
  dend[125] {pt3dclear()
	pt3dadd(136.92, 223.907, -5.95, 1)
	pt3dadd(141.362, 224.418, -5.95, 1)
  }
  dend[126] {pt3dclear()
	pt3dadd(136.536, 222.557, -5.95, 1)
	pt3dadd(139.132, 220.335, -5.95, 1)
  }
  dend[127] {pt3dclear()
	pt3dadd(133.072, 213.92, -5.95, 1.5)
	pt3dadd(135.721, 213.595, -5.95, 1)
	pt3dadd(138.438, 213.457, -5.95, 1.5)
  }
  dend[128] {pt3dclear()
	pt3dadd(130.463, 201.781, -5.95, 2)
	pt3dadd(133.47, 200.687, -5.95, 2)
	pt3dadd(134.879, 200.174, -5.95, 2)
	pt3dadd(135.7, 202.429, -5.95, 2)
	pt3dadd(137.589, 203.231, -5.95, 2)
	pt3dadd(138.34, 199.446, -5.95, 2)
  }
  dend[129] {pt3dclear()
	pt3dadd(130.343, 171.921, 0.25, 9)
	pt3dadd(133.052, 172.639, -1.25, 8)
	pt3dadd(135.154, 173.15, -1.25, 8)
  }
  dend[130] {pt3dclear()
	pt3dadd(135.154, 173.15, -1.25, 8)
	pt3dadd(136.65, 175.798, -2.65, 7)
  }
  dend[131] {pt3dclear()
	pt3dadd(136.65, 175.798, -2.65, 7)
	pt3dadd(136.259, 183.496, -8.05, 1)
	pt3dadd(134.567, 184.112, -8.05, 1.5)
	pt3dadd(132.184, 183.702, -8.05, 1.5)
  }
  dend[132] {pt3dclear()
	pt3dadd(136.65, 175.798, -2.65, 7)
	pt3dadd(140.665, 176.891, -2.65, 7)
  }
  dend[133] {pt3dclear()
	pt3dadd(140.665, 176.891, -2.65, 7)
	pt3dadd(143.127, 177.805, -4.65, 7)
  }
  dend[134] {pt3dclear()
	pt3dadd(143.127, 177.805, -4.65, 7)
	pt3dadd(141.616, 181.547, -9.65, 4)
	pt3dadd(142.41, 185.194, -9.65, 3)
	pt3dadd(143.616, 187.629, -9.65, 3)
  }
  dend[135] {pt3dclear()
	pt3dadd(143.616, 187.629, -9.65, 3)
	pt3dadd(140.524, 189.074, -8.05, 1)
	pt3dadd(138.738, 190.894, -8.05, 1)
  }
  dend[136] {pt3dclear()
	pt3dadd(138.738, 190.894, -8.05, 1)
	pt3dadd(136.756, 188.955, -8.05, 1)
  }
  dend[137] {pt3dclear()
	pt3dadd(138.738, 190.894, -8.05, 1)
	pt3dadd(138.525, 192.355, -8.05, 1)
  }
  dend[138] {pt3dclear()
	pt3dadd(143.616, 187.629, -9.65, 3)
	pt3dadd(146.667, 190.456, -9.65, 3)
	pt3dadd(147.249, 192.054, -9.65, 3)
  }
}
proc shape3d_3() {
  dend[138] {  }
  dend[139] {pt3dclear()
	pt3dadd(147.249, 192.054, -9.65, 3)
	pt3dadd(147.223, 193.446, -5.25, 2)
	pt3dadd(147.293, 198.316, -5.25, 2)
	pt3dadd(147.141, 203.161, -5.25, 1)
  }
  dend[140] {pt3dclear()
	pt3dadd(147.141, 203.161, -5.25, 1)
	pt3dadd(144.876, 203.665, -5.25, 1)
	pt3dadd(143.05, 206.246, -5.25, 1)
  }
  dend[141] {pt3dclear()
	pt3dadd(147.141, 203.161, -5.25, 1)
	pt3dadd(147.578, 206.407, -5.25, 1)
  }
  dend[142] {pt3dclear()
	pt3dadd(147.578, 206.407, -5.25, 1)
	pt3dadd(147.134, 209.867, -5.25, 1)
	pt3dadd(148.331, 213.156, -5.25, 1)
  }
  dend[143] {pt3dclear()
	pt3dadd(147.578, 206.407, -5.25, 1)
	pt3dadd(151.866, 205.91, -5.25, 1)
  }
  dend[144] {pt3dclear()
	pt3dadd(147.249, 192.054, -9.65, 3)
	pt3dadd(149.939, 189.797, -9.65, 1)
  }
  dend[145] {pt3dclear()
	pt3dadd(149.939, 189.797, -9.65, 1)
	pt3dadd(152.255, 192.36, -9.65, 1)
	pt3dadd(154.408, 192.427, -9.65, 1)
	pt3dadd(156.297, 193.23, -9.65, 1)
	pt3dadd(159.381, 193.811, -9.65, 1)
  }
  dend[146] {pt3dclear()
	pt3dadd(159.381, 193.811, -9.65, 1)
	pt3dadd(161.909, 191.4, -11.45, 1)
  }
  dend[147] {pt3dclear()
	pt3dadd(159.381, 193.811, -9.65, 1)
	pt3dadd(160.133, 195.877, -9.65, 1)
  }
  dend[148] {pt3dclear()
	pt3dadd(149.939, 189.797, -9.65, 1)
	pt3dadd(151.024, 187.806, -9.65, 1)
	pt3dadd(153.279, 186.985, -9.65, 1)
	pt3dadd(156.304, 187.694, -9.65, 1)
  }
  dend[149] {pt3dclear()
	pt3dadd(143.127, 177.805, -4.65, 7)
	pt3dadd(145.927, 173.804, -7.75, 2)
	pt3dadd(149.216, 172.608, -7.25, 2)
  }
  dend[150] {pt3dclear()
	pt3dadd(149.216, 172.608, -7.25, 2)
	pt3dadd(150.497, 172.035, -7.55, 2)
  }
  dend[151] {pt3dclear()
	pt3dadd(150.497, 172.035, -7.55, 2)
	pt3dadd(149.482, 175.385, -9.65, 1.5)
	pt3dadd(150.046, 177.52, -9.65, 1)
  }
  dend[152] {pt3dclear()
	pt3dadd(150.046, 177.52, -9.65, 1)
	pt3dadd(149.825, 179.836, -9.65, 1)
  }
  dend[153] {pt3dclear()
	pt3dadd(150.046, 177.52, -9.65, 1)
	pt3dadd(152.208, 177.904, -9.65, 1)
  }
  dend[154] {pt3dclear()
	pt3dadd(150.497, 172.035, -7.55, 2)
	pt3dadd(151.531, 171.659, -7.55, 2)
  }
  dend[155] {pt3dclear()
	pt3dadd(151.531, 171.659, -7.55, 2)
	pt3dadd(151.992, 171.172, -7.55, 2)
	pt3dadd(153.487, 170.308, -7.55, 2)
  }
  dend[156] {pt3dclear()
	pt3dadd(153.487, 170.308, -7.55, 2)
	pt3dadd(155.187, 170.009, -7.55, 2)
	pt3dadd(157.939, 169.965, -7.55, 3)
  }
  dend[157] {pt3dclear()
	pt3dadd(157.939, 169.965, -7.55, 3)
	pt3dadd(160.528, 172.109, -6.45, 2)
	pt3dadd(161.272, 176.201, -8.05, 2)
  }
  dend[158] {pt3dclear()
	pt3dadd(161.272, 176.201, -8.05, 2)
	pt3dadd(161.751, 176.346, -11.05, 1.5)
  }
  dend[159] {pt3dclear()
	pt3dadd(161.751, 176.346, -11.05, 1.5)
	pt3dadd(165.357, 178.652, -12.35, 1)
	pt3dadd(167.322, 179.959, -12.35, 1)
	pt3dadd(170.433, 181.487, -12.35, 1)
  }
  dend[160] {pt3dclear()
	pt3dadd(170.433, 181.487, -12.35, 1)
	pt3dadd(172.252, 179.761, -12.35, 1)
  }
  dend[161] {pt3dclear()
	pt3dadd(170.433, 181.487, -12.35, 1)
	pt3dadd(174.03, 184.647, -12.35, 1)
  }
  dend[162] {pt3dclear()
	pt3dadd(161.751, 176.346, -11.05, 1.5)
	pt3dadd(160.658, 180.362, -11.05, 1)
	pt3dadd(160.283, 182.84, -11.05, 1)
  }
  dend[163] {pt3dclear()
	pt3dadd(161.272, 176.201, -8.05, 2)
	pt3dadd(158.983, 178.098, -10.15, 1.5)
  }
  dend[164] {pt3dclear()
	pt3dadd(157.939, 169.965, -7.55, 3)
	pt3dadd(160.142, 167.248, -7.55, 1)
  }
  dend[165] {pt3dclear()
	pt3dadd(160.142, 167.248, -7.55, 1)
	pt3dadd(163.85, 168.665, -6.45, 1)
  }
  dend[166] {pt3dclear()
	pt3dadd(163.85, 168.665, -6.45, 1)
	pt3dadd(164.355, 170.929, -6.45, 1.5)
	pt3dadd(167.268, 169.869, -6.45, 1.5)
  }
  dend[167] {pt3dclear()
	pt3dadd(167.268, 169.869, -6.45, 1.5)
	pt3dadd(168.984, 164.349, -6.45, 1)
  }
  dend[168] {pt3dclear()
	pt3dadd(167.268, 169.869, -6.45, 1.5)
	pt3dadd(169.992, 167.706, -6.45, 1)
  }
  dend[169] {pt3dclear()
	pt3dadd(163.85, 168.665, -6.45, 1)
	pt3dadd(164.371, 166.879, -6.45, 1)
	pt3dadd(165.241, 165.179, -6.45, 1)
	pt3dadd(165.866, 163.675, -6.45, 1)
  }
  dend[170] {pt3dclear()
	pt3dadd(160.142, 167.248, -7.55, 1)
	pt3dadd(160.765, 165.744, -6.45, 1)
  }
  dend[171] {pt3dclear()
	pt3dadd(153.487, 170.308, -7.55, 2)
	pt3dadd(153.751, 167.232, -7.55, 1)
  }
  dend[172] {pt3dclear()
	pt3dadd(151.531, 171.659, -7.55, 2)
	pt3dadd(150.266, 168.182, -7.55, 1)
	pt3dadd(149.24, 165.362, -7.55, 1)
	pt3dadd(150.581, 162.321, -7.55, 1)
  }
  dend[173] {pt3dclear()
	pt3dadd(149.216, 172.608, -7.25, 2)
	pt3dadd(147.062, 169.029, -7.55, 1)
  }
  dend[174] {pt3dclear()
	pt3dadd(140.665, 176.891, -2.65, 7)
	pt3dadd(141.177, 172.448, -4.65, 1)
  }
  dend[175] {pt3dclear()
	pt3dadd(135.154, 173.15, -1.25, 8)
	pt3dadd(137.724, 168.809, -2.85, 1)
	pt3dadd(138.75, 168.117, -2.85, 1)
  }
  dend[176] {pt3dclear()
	pt3dadd(138.75, 168.117, -2.85, 1)
	pt3dadd(139.612, 167.271, -2.65, 1)
	pt3dadd(141.782, 166.8, -2.65, 1.5)
	pt3dadd(141.96, 164.075, -2.65, 1)
  }
  dend[177] {pt3dclear()
	pt3dadd(141.96, 164.075, -2.65, 1)
	pt3dadd(144.258, 161.323, -2.65, 1)
  }
  dend[178] {pt3dclear()
	pt3dadd(141.96, 164.075, -2.65, 1)
	pt3dadd(141.003, 161.444, -2.65, 1)
  }
  dend[179] {pt3dclear()
	pt3dadd(138.75, 168.117, -2.85, 1)
	pt3dadd(136.382, 165.999, -2.85, 1)
	pt3dadd(135.185, 162.71, -2.85, 1)
  }
  dend[180] {pt3dclear()
	pt3dadd(135.185, 162.71, -2.85, 1)
	pt3dadd(135.919, 160.634, -2.65, 1)
	pt3dadd(135.474, 159.412, -2.65, 1)
  }
  dend[181] {pt3dclear()
	pt3dadd(135.474, 159.412, -2.65, 1)
	pt3dadd(134.645, 158.011, -2.65, 1)
  }
  dend[182] {pt3dclear()
	pt3dadd(134.645, 158.011, -2.65, 1)
	pt3dadd(132.467, 158.165, -2.65, 1)
	pt3dadd(131.861, 160.302, -2.65, 1)
  }
  dend[183] {pt3dclear()
	pt3dadd(134.645, 158.011, -2.65, 1)
	pt3dadd(134.909, 157.276, -2.65, 1)
  }
  dend[184] {pt3dclear()
	pt3dadd(135.474, 159.412, -2.65, 1)
	pt3dadd(138.149, 158.864, -2.65, 1)
  }
  dend[185] {pt3dclear()
	pt3dadd(135.185, 162.71, -2.85, 1)
	pt3dadd(133.57, 162.659, -5.05, 1)
  }
  dend[186] {pt3dclear()
	pt3dadd(134.613, 137.165, 9.75, 9)
	pt3dadd(128.777, 133.117, 11.75, 1.5)
	pt3dadd(126.854, 131.05, 14.55, 1.5)
	pt3dadd(124.982, 129.709, 15.95, 1.5)
	pt3dadd(120.625, 126.507, 15.95, 2)
	pt3dadd(117.462, 124.252, 15.95, 1.5)
  }
  dend[187] {pt3dclear()
	pt3dadd(144.196, 125.483, 9.95, 11)
	pt3dadd(147.102, 127.618, 9.95, 10)
	pt3dadd(148.879, 128.993, 9.95, 9)
	pt3dadd(150.264, 131.043, 9.95, 8)
	pt3dadd(151.366, 133.195, 9.95, 9)
  }
  dend[188] {pt3dclear()
	pt3dadd(151.366, 133.195, 9.95, 9)
	pt3dadd(150.427, 135.879, 13.05, 2)
	pt3dadd(148.309, 138.246, 13.05, 2.5)
	pt3dadd(145.815, 140.75, 13.05, 2)
	pt3dadd(143.244, 141.579, 13.05, 2)
	pt3dadd(140.424, 142.606, 13.05, 2)
  }
  dend[189] {pt3dclear()
	pt3dadd(151.366, 133.195, 9.95, 9)
	pt3dadd(153.058, 134.921, 9.95, 9)
	pt3dadd(155.05, 136.005, 9.95, 9)
	pt3dadd(154.896, 137.338, 9.95, 9)
	pt3dadd(154.896, 137.338, 9.75, 9)
  }
  dend[190] {pt3dclear()
	pt3dadd(154.896, 137.338, 9.75, 9)
	pt3dadd(155.742, 139.371, 9.95, 9)
	pt3dadd(158.374, 140.754, 9.95, 8)
	pt3dadd(159.451, 141.959, 9.95, 10)
  }
  dend[191] {pt3dclear()
	pt3dadd(159.451, 141.959, 9.95, 10)
	pt3dadd(159.536, 140.438, 12.25, 4)
	pt3dadd(160.272, 143.043, 12.25, 3)
	pt3dadd(160.93, 146.316, 12.25, 4)
  }
  dend[192] {pt3dclear()
	pt3dadd(160.93, 146.316, 12.25, 4)
	pt3dadd(155.181, 146.599, 12.55, 1)
	pt3dadd(152.046, 147.634, 12.55, 1)
	pt3dadd(151.396, 149.361, 12.55, 1)
	pt3dadd(148.552, 150.608, 12.55, 1)
	pt3dadd(146.741, 151.481, 12.55, 1)
  }
  dend[193] {pt3dclear()
	pt3dadd(146.741, 151.481, 12.55, 1)
	pt3dadd(143.546, 151.473, 12.55, 1)
	pt3dadd(140.999, 150.91, 12.55, 1)
	pt3dadd(139.086, 152.67, 14.85, 1)
  }
  dend[194] {pt3dclear()
	pt3dadd(146.741, 151.481, 12.55, 1)
	pt3dadd(147.502, 153.864, 12.55, 1)
  }
  dend[195] {pt3dclear()
	pt3dadd(160.93, 146.316, 12.25, 4)
	pt3dadd(162.537, 148.391, 12.25, 4)
  }
  dend[196] {pt3dclear()
	pt3dadd(162.537, 148.391, 12.25, 4)
	pt3dadd(157.889, 149.657, 12.55, 1)
  }
  dend[197] {pt3dclear()
	pt3dadd(157.889, 149.657, 12.55, 1)
	pt3dadd(155.83, 148.385, 12.55, 1)
  }
  dend[198] {pt3dclear()
	pt3dadd(157.889, 149.657, 12.55, 1)
	pt3dadd(156.071, 153.724, 12.55, 1)
	pt3dadd(153.62, 157.809, 12.55, 1)
	pt3dadd(151.938, 161.082, 12.55, 1)
	pt3dadd(146.46, 157.435, 12.55, 1)
  }
  dend[199] {pt3dclear()
	pt3dadd(162.537, 148.391, 12.25, 4)
	pt3dadd(165.195, 149.553, 12.25, 3)
	pt3dadd(166.126, 150.064, 12.25, 3)
  }
  dend[200] {pt3dclear()
	pt3dadd(166.126, 150.064, 12.25, 3)
	pt3dadd(163.896, 153.005, 14.85, 2)
  }
  dend[201] {pt3dclear()
	pt3dadd(163.896, 153.005, 14.85, 2)
	pt3dadd(162.521, 154.782, 12.55, 1.3)
	pt3dadd(161.472, 156.867, 12.55, 1)
	pt3dadd(160.037, 158.773, 12.55, 1.4)
  }
  dend[202] {pt3dclear()
	pt3dadd(163.896, 153.005, 14.85, 2)
	pt3dadd(165.632, 157.481, 12.55, 2)
	pt3dadd(163.797, 160.916, 12.55, 1.5)
	pt3dadd(162.293, 161.464, 12.55, 1)
	pt3dadd(163.456, 163.488, 12.55, 1)
  }
  dend[203] {pt3dclear()
	pt3dadd(166.126, 150.064, 12.25, 3)
	pt3dadd(167.381, 148.543, 12.25, 3)
  }
  dend[204] {pt3dclear()
	pt3dadd(167.381, 148.543, 12.25, 3)
	pt3dadd(169.005, 148.911, 9.75, 2.5)
	pt3dadd(171.184, 149.927, 11.95, 2.5)
  }
  dend[205] {pt3dclear()
	pt3dadd(171.184, 149.927, 11.95, 2.5)
	pt3dadd(170.56, 151.43, 11.95, 2.5)
	pt3dadd(174.414, 153.54, 11.95, 1.5)
  }
  dend[206] {pt3dclear()
	pt3dadd(174.414, 153.54, 11.95, 1.5)
	pt3dadd(175.279, 157.376, 11.95, 1)
  }
  dend[207] {pt3dclear()
	pt3dadd(175.279, 157.376, 11.95, 1)
  }
}
proc shape3d_4() {
  dend[207] {	pt3dadd(173.288, 157.461, 11.95, 0.5)
  }
  dend[208] {pt3dclear()
	pt3dadd(173.288, 157.461, 11.95, 0.5)
	pt3dadd(171.776, 158.863, 11.95, 0.5)
	pt3dadd(171.264, 163.306, 11.95, 0.5)
  }
  dend[209] {pt3dclear()
	pt3dadd(173.288, 157.461, 11.95, 0.5)
	pt3dadd(175.108, 160.417, 11.95, 0.5)
	pt3dadd(174.938, 163.458, 11.95, 0.5)
  }
  dend[210] {pt3dclear()
	pt3dadd(175.279, 157.376, 11.95, 1)
	pt3dadd(177.722, 158.827, 11.95, 0.5)
	pt3dadd(178.782, 161.74, 11.95, 0.5)
  }
  dend[211] {pt3dclear()
	pt3dadd(174.414, 153.54, 11.95, 1.5)
	pt3dadd(175.883, 151.728, 11.95, 0.5)
	pt3dadd(176.762, 149.173, 11.95, 0.5)
  }
  dend[212] {pt3dclear()
	pt3dadd(171.184, 149.927, 11.95, 2.5)
	pt3dadd(172.396, 146.825, 11.95, 1)
	pt3dadd(172.412, 145.116, 11.95, 1)
  }
  dend[213] {pt3dclear()
	pt3dadd(167.381, 148.543, 12.25, 3)
	pt3dadd(168.825, 145.784, 12.25, 1)
	pt3dadd(169.285, 144.126, 12.25, 1)
	pt3dadd(171.668, 142.194, 12.25, 1)
  }
  dend[214] {pt3dclear()
	pt3dadd(159.451, 141.959, 9.95, 10)
	pt3dadd(163.398, 140.523, 9.95, 5)
	pt3dadd(165.046, 139.497, 9.95, 4.5)
	pt3dadd(166.08, 139.121, 9.95, 4.5)
  }
  dend[215] {pt3dclear()
	pt3dadd(166.08, 139.121, 9.95, 4.5)
	pt3dadd(169.087, 138.026, 10.25, 4)
	pt3dadd(171.342, 137.205, 10.25, 4.5)
	pt3dadd(173.128, 136.556, 10.25, 4)
  }
  dend[216] {pt3dclear()
	pt3dadd(173.128, 136.556, 10.25, 4)
	pt3dadd(174.315, 136.017, 12.25, 1.5)
	pt3dadd(174.999, 137.896, 12.25, 1)
  }
  dend[217] {pt3dclear()
	pt3dadd(173.128, 136.556, 10.25, 4)
	pt3dadd(176.117, 134.828, 10.25, 4)
  }
  dend[218] {pt3dclear()
	pt3dadd(176.117, 134.828, 10.25, 4)
	pt3dadd(179.851, 134.854, 10.25, 3.5)
	pt3dadd(183.166, 135.775, 10.25, 3)
  }
  dend[219] {pt3dclear()
	pt3dadd(183.166, 135.775, 10.25, 3)
	pt3dadd(184.072, 136.51, 8.95, 3)
  }
  dend[220] {pt3dclear()
	pt3dadd(184.072, 136.51, 8.95, 3)
	pt3dadd(183.525, 136.177, 12.15, 3)
  }
  dend[221] {pt3dclear()
	pt3dadd(183.525, 136.177, 12.15, 3)
	pt3dadd(182.15, 136.783, 12.25, 1)
  }
  dend[222] {pt3dclear()
	pt3dadd(183.525, 136.177, 12.15, 3)
	pt3dadd(184.935, 138.005, 12.15, 3)
  }
  dend[223] {pt3dclear()
	pt3dadd(184.935, 138.005, 12.15, 3)
	pt3dadd(185.244, 140.021, 9.75, 3)
	pt3dadd(184.637, 142.157, 9.75, 3)
  }
  dend[224] {pt3dclear()
	pt3dadd(184.637, 142.157, 9.75, 3)
	pt3dadd(182.536, 141.645, 12.25, 1)
	pt3dadd(180.562, 142.363, 12.25, 1)
	pt3dadd(178.213, 143.218, 12.25, 1)
	pt3dadd(177.444, 141.689, 12.25, 1)
	pt3dadd(175.752, 141.134, 12.25, 1)
  }
  dend[225] {pt3dclear()
	pt3dadd(184.637, 142.157, 9.75, 3)
	pt3dadd(187.561, 147.265, 9.75, 3)
  }
  dend[226] {pt3dclear()
	pt3dadd(187.561, 147.265, 9.75, 3)
	pt3dadd(187.819, 152.066, 10.65, 3)
  }
  dend[227] {pt3dclear()
	pt3dadd(187.819, 152.066, 10.65, 3)
	pt3dadd(183.564, 151.486, 12.25, 1)
  }
  dend[228] {pt3dclear()
	pt3dadd(187.819, 152.066, 10.65, 3)
	pt3dadd(188.093, 156.329, 10.65, 2.5)
  }
  dend[229] {pt3dclear()
	pt3dadd(188.093, 156.329, 10.65, 2.5)
	pt3dadd(186.24, 159.133, 10.65, 2)
	pt3dadd(186.352, 162.071, 10.65, 2)
  }
  dend[230] {pt3dclear()
	pt3dadd(186.352, 162.071, 10.65, 2)
	pt3dadd(183.482, 162.371, 10.65, 1)
	pt3dadd(181.807, 162.449, 10.65, 1)
	pt3dadd(179.552, 163.27, 10.65, 1)
  }
  dend[231] {pt3dclear()
	pt3dadd(186.352, 162.071, 10.65, 2)
	pt3dadd(186.515, 165.737, 10.65, 1.5)
  }
  dend[232] {pt3dclear()
	pt3dadd(186.515, 165.737, 10.65, 1.5)
	pt3dadd(185.32, 165.959, 10.65, 1)
  }
  dend[233] {pt3dclear()
	pt3dadd(185.32, 165.959, 10.65, 1)
	pt3dadd(183.646, 167.207, 10.65, 1)
	pt3dadd(181.108, 168.13, 10.65, 1)
  }
  dend[234] {pt3dclear()
	pt3dadd(185.32, 165.959, 10.65, 1)
	pt3dadd(185.33, 170.957, 10.65, 1)
	pt3dadd(185.092, 174.981, 10.65, 1)
	pt3dadd(184.186, 177.758, 10.65, 1)
  }
  dend[235] {pt3dclear()
	pt3dadd(186.515, 165.737, 10.65, 1.5)
	pt3dadd(190.788, 166.948, 10.65, 1)
	pt3dadd(191.335, 168.452, 10.65, 1)
	pt3dadd(192.933, 170.211, 10.65, 1)
	pt3dadd(195.009, 170.945, 10.65, 1)
  }
  dend[236] {pt3dclear()
	pt3dadd(188.093, 156.329, 10.65, 2.5)
	pt3dadd(192.792, 158.131, 10.65, 2)
	pt3dadd(194.749, 159.121, 10.65, 2)
  }
  dend[237] {pt3dclear()
	pt3dadd(194.749, 159.121, 10.65, 2)
	pt3dadd(197.61, 154.994, 10.65, 1.4)
  }
  dend[238] {pt3dclear()
	pt3dadd(194.749, 159.121, 10.65, 2)
	pt3dadd(195.468, 161.094, 10.65, 1.5)
  }
  dend[239] {pt3dclear()
	pt3dadd(187.561, 147.265, 9.75, 3)
	pt3dadd(191.132, 147.136, 9.75, 1)
  }
  dend[240] {pt3dclear()
	pt3dadd(184.935, 138.005, 12.15, 3)
	pt3dadd(190.813, 137.781, 12.15, 1.5)
	pt3dadd(195.923, 139.539, 12.15, 1)
	pt3dadd(197.05, 140.299, 12.15, 1)
  }
  dend[241] {pt3dclear()
	pt3dadd(197.05, 140.299, 12.15, 1)
	pt3dadd(199.819, 142.058, 12.15, 1)
  }
  dend[242] {pt3dclear()
	pt3dadd(199.819, 142.058, 12.15, 1)
	pt3dadd(201.368, 146.603, 12.15, 1)
  }
  dend[243] {pt3dclear()
	pt3dadd(199.819, 142.058, 12.15, 1)
	pt3dadd(202.715, 141.536, 12.15, 1)
	pt3dadd(205.372, 142.697, 12.15, 1)
  }
  dend[244] {pt3dclear()
	pt3dadd(197.05, 140.299, 12.15, 1)
	pt3dadd(199.126, 136.351, 12.15, 1)
  }
  dend[245] {pt3dclear()
	pt3dadd(184.072, 136.51, 8.95, 3)
	pt3dadd(185.762, 132.383, 8.95, 1)
  }
  dend[246] {pt3dclear()
	pt3dadd(185.762, 132.383, 8.95, 1)
	pt3dadd(188.795, 131.066, 8.95, 1)
	pt3dadd(191.76, 130.732, 8.95, 1)
  }
  dend[247] {pt3dclear()
	pt3dadd(191.76, 130.732, 8.95, 1)
	pt3dadd(193.767, 130.107, 11.45, 1)
	pt3dadd(198.065, 129.927, 11.45, 1)
  }
  dend[248] {pt3dclear()
	pt3dadd(198.065, 129.927, 11.45, 1)
	pt3dadd(200.414, 130.242, 14.85, 1)
  }
  dend[249] {pt3dclear()
	pt3dadd(200.414, 130.242, 14.85, 1)
	pt3dadd(202.106, 133.138, 14.85, 1)
  }
  dend[250] {pt3dclear()
	pt3dadd(200.414, 130.242, 14.85, 1)
	pt3dadd(204.831, 128.635, 14.85, 1)
  }
  dend[251] {pt3dclear()
	pt3dadd(198.065, 129.927, 11.45, 1)
	pt3dadd(198.191, 126.475, 11.45, 1)
  }
  dend[252] {pt3dclear()
	pt3dadd(198.191, 126.475, 11.45, 1)
	pt3dadd(203.249, 125.167, 11.45, 0.5)
  }
  dend[253] {pt3dclear()
	pt3dadd(198.191, 126.475, 11.45, 1)
	pt3dadd(197.507, 123.425, 11.45, 1)
  }
  dend[254] {pt3dclear()
	pt3dadd(191.76, 130.732, 8.95, 1)
	pt3dadd(192.399, 126.349, 11.85, 0.5)
  }
  dend[255] {pt3dclear()
	pt3dadd(185.762, 132.383, 8.95, 1)
	pt3dadd(186.223, 130.725, 8.95, 1)
  }
  dend[256] {pt3dclear()
	pt3dadd(183.166, 135.775, 10.25, 3)
	pt3dadd(184.361, 130.871, 10.25, 1)
	pt3dadd(185.428, 128.247, 10.25, 1)
	pt3dadd(186.444, 126.068, 10.25, 1.5)
	pt3dadd(190.536, 125.324, 10.25, 1)
  }
  dend[257] {pt3dclear()
	pt3dadd(176.117, 134.828, 10.25, 4)
	pt3dadd(176.142, 129.924, 10.25, 1.5)
  }
  dend[258] {pt3dclear()
	pt3dadd(176.142, 129.924, 10.25, 1.5)
	pt3dadd(176.969, 125.473, 10.25, 1.5)
  }
  dend[259] {pt3dclear()
	pt3dadd(176.142, 129.924, 10.25, 1.5)
	pt3dadd(172.81, 129.541, 10.25, 1)
  }
  dend[260] {pt3dclear()
	pt3dadd(166.08, 139.121, 9.95, 4.5)
	pt3dadd(164.789, 135.866, 9.95, 1)
	pt3dadd(163.755, 135.072, 9.95, 1)
	pt3dadd(165.48, 133.379, 9.95, 1)
	pt3dadd(165.915, 131.944, 9.95, 1)
  }
  dend[261] {pt3dclear()
	pt3dadd(165.915, 131.944, 9.95, 1)
	pt3dadd(167.343, 133.234, 9.95, 1)
  }
  dend[262] {pt3dclear()
	pt3dadd(165.915, 131.944, 9.95, 1)
	pt3dadd(166.427, 129.842, 9.95, 1)
	pt3dadd(168.213, 129.192, 9.95, 1)
  }
  dend[263] {pt3dclear()
	pt3dadd(154.896, 137.338, 9.75, 9)
	pt3dadd(159.525, 134.27, 9.95, 1.5)
	pt3dadd(160.798, 131.04, 9.95, 1)
	pt3dadd(161.498, 128.87, 9.95, 1.3)
	pt3dadd(162.932, 125.794, 9.95, 2)
	pt3dadd(162.983, 123.008, 9.95, 0.6)
  }
  dend[264] {pt3dclear()
	pt3dadd(157.762, 94.047, 11.05, 13)
	pt3dadd(165.794, 96.232, 11.05, 9)
	pt3dadd(168.426, 98.786, 13.95, 8)
	pt3dadd(173.373, 101.561, 13.95, 9)
	pt3dadd(176.108, 103.226, 13.95, 9)
	pt3dadd(179.099, 105.011, 13.95, 9)
	pt3dadd(183.977, 106.427, 13.95, 9)
	pt3dadd(185.978, 107.828, 13.95, 9)
	pt3dadd(185.978, 107.828, 14.55, 9)
  }
  dend[265] {pt3dclear()
	pt3dadd(185.978, 107.828, 14.55, 9)
	pt3dadd(185.915, 98.593, 12.05, 0.6)
	pt3dadd(185.256, 96.491, 12.05, 0.7)
	pt3dadd(184.614, 92.681, 12.05, 0.5)
  }
  dend[266] {pt3dclear()
	pt3dadd(185.978, 107.828, 14.55, 9)
	pt3dadd(187.293, 107.349, 14.55, 9)
  }
  dend[267] {pt3dclear()
	pt3dadd(187.293, 107.349, 14.55, 9)
	pt3dadd(186.293, 108.99, 9.65, 0.5)
	pt3dadd(185.414, 111.545, 9.65, 0.5)
	pt3dadd(183.314, 114.544, 9.65, 0.5)
	pt3dadd(181.717, 117.467, 9.65, 0.5)
  }
  dend[268] {pt3dclear()
	pt3dadd(187.293, 107.349, 14.55, 9)
	pt3dadd(189.711, 107.853, 14.55, 10)
  }
  dend[269] {pt3dclear()
	pt3dadd(189.711, 107.853, 14.55, 10)
	pt3dadd(190.488, 107.357, 11.85, 6)
  }
  dend[270] {pt3dclear()
	pt3dadd(190.488, 107.357, 11.85, 6)
	pt3dadd(192.215, 110.347, 9.65, 1.5)
	pt3dadd(191.43, 112.867, 9.65, 1.5)
	pt3dadd(189.944, 116.388, 9.65, 1)
  }
  dend[271] {pt3dclear()
	pt3dadd(189.944, 116.388, 9.65, 1)
	pt3dadd(187.611, 116.704, 9.65, 1)
  }
  dend[272] {pt3dclear()
	pt3dadd(187.611, 116.704, 9.65, 1)
	pt3dadd(186.656, 122.267, 9.65, 1)
  }
  dend[273] {pt3dclear()
	pt3dadd(187.611, 116.704, 9.65, 1)
	pt3dadd(184.81, 117.192, 9.65, 1)
  }
  dend[274] {pt3dclear()
	pt3dadd(189.944, 116.388, 9.65, 1)
	pt3dadd(192.209, 117.054, 9.65, 1)
	pt3dadd(193.371, 117.907, 9.65, 0.6)
	pt3dadd(195.652, 119.205, 9.65, 1)
  }
  dend[275] {pt3dclear()
	pt3dadd(190.488, 107.357, 11.85, 6)
	pt3dadd(195.537, 106.903, 16.25, 8)
	pt3dadd(197.16, 107.269, 16.25, 8)
	pt3dadd(198.75, 106.372, 16.25, 9)
  }
  dend[276] {pt3dclear()
	pt3dadd(198.75, 106.372, 16.25, 9)
  }
}
proc shape3d_5() {
  dend[276] {	pt3dadd(202.587, 110.19, 17.85, 3)
  }
  dend[277] {pt3dclear()
	pt3dadd(202.587, 110.19, 17.85, 3)
	pt3dadd(203.911, 112.368, 10.95, 3)
  }
  dend[278] {pt3dclear()
	pt3dadd(203.911, 112.368, 10.95, 3)
	pt3dadd(201.87, 112.898, 7.95, 1.4)
	pt3dadd(201.537, 115.786, 7.95, 1)
	pt3dadd(200.411, 117.367, 7.95, 1)
	pt3dadd(198.378, 119.384, 7.95, 1)
  }
  dend[279] {pt3dclear()
	pt3dadd(203.911, 112.368, 10.95, 3)
	pt3dadd(206.996, 112.948, 10.95, 3)
  }
  dend[280] {pt3dclear()
	pt3dadd(206.996, 112.948, 10.95, 3)
	pt3dadd(205.202, 114.452, 7.95, 1)
	pt3dadd(205.238, 118.058, 7.95, 1)
	pt3dadd(204.324, 119.348, 7.95, 1)
  }
  dend[281] {pt3dclear()
	pt3dadd(206.996, 112.948, 10.95, 3)
	pt3dadd(209.807, 113.947, 10.95, 3)
  }
  dend[282] {pt3dclear()
	pt3dadd(209.807, 113.947, 10.95, 3)
	pt3dadd(209.492, 115.126, 7.95, 1)
	pt3dadd(209.859, 117.014, 7.95, 0.7)
	pt3dadd(210.817, 119.645, 7.95, 0.6)
	pt3dadd(209.63, 121.354, 7.95, 1)
  }
  dend[283] {pt3dclear()
	pt3dadd(209.807, 113.947, 10.95, 3)
	pt3dadd(213.284, 113.852, 10.95, 3)
  }
  dend[284] {pt3dclear()
	pt3dadd(213.284, 113.852, 10.95, 3)
	pt3dadd(215.087, 113.834, 10.95, 3)
  }
  dend[285] {pt3dclear()
	pt3dadd(215.087, 113.834, 10.95, 3)
	pt3dadd(215.617, 114.706, 7.95, 1.5)
	pt3dadd(213.448, 117.517, 7.95, 1.5)
	pt3dadd(213.397, 120.302, 7.95, 1)
  }
  dend[286] {pt3dclear()
	pt3dadd(215.087, 113.834, 10.95, 3)
	pt3dadd(216.505, 113.637, 10.95, 3)
  }
  dend[287] {pt3dclear()
	pt3dadd(216.505, 113.637, 10.95, 3)
	pt3dadd(220.512, 114.413, 8.45, 3)
  }
  dend[288] {pt3dclear()
	pt3dadd(220.512, 114.413, 8.45, 3)
	pt3dadd(221.255, 114.994, 7.95, 1.3)
	pt3dadd(219.932, 117.498, 7.95, 1)
  }
  dend[289] {pt3dclear()
	pt3dadd(220.512, 114.413, 8.45, 3)
	pt3dadd(222.307, 115.25, 8.45, 3)
  }
  dend[290] {pt3dclear()
	pt3dadd(222.307, 115.25, 8.45, 3)
	pt3dadd(223.256, 116.395, 7.25, 2.5)
  }
  dend[291] {pt3dclear()
	pt3dadd(223.256, 116.395, 7.25, 2.5)
	pt3dadd(223.726, 118.565, 7.25, 2)
  }
  dend[292] {pt3dclear()
	pt3dadd(223.726, 118.565, 7.25, 2)
	pt3dadd(223.068, 119.975, 5.05, 2)
	pt3dadd(221.455, 123.435, 5.05, 1.7)
  }
  dend[293] {pt3dclear()
	pt3dadd(221.455, 123.435, 5.05, 1.7)
	pt3dadd(218.157, 123.146, 2.35, 1)
	pt3dadd(215.902, 123.967, 1.95, 1)
  }
  dend[294] {pt3dclear()
	pt3dadd(221.455, 123.435, 5.05, 1.7)
	pt3dadd(221.473, 126.409, 5.05, 1)
	pt3dadd(221.072, 129.108, 5.05, 1)
  }
  dend[295] {pt3dclear()
	pt3dadd(221.072, 129.108, 5.05, 1)
	pt3dadd(219.226, 128.716, 2.45, 1)
	pt3dadd(216.817, 128.528, 8.05, 1)
  }
  dend[296] {pt3dclear()
	pt3dadd(221.072, 129.108, 5.05, 1)
	pt3dadd(222.046, 131.201, 5.05, 1)
  }
  dend[297] {pt3dclear()
	pt3dadd(222.046, 131.201, 5.05, 1)
	pt3dadd(219.629, 133.039, 5.05, 1)
	pt3dadd(222.287, 137.711, 5.05, 1)
  }
  dend[298] {pt3dclear()
	pt3dadd(222.046, 131.201, 5.05, 1)
	pt3dadd(226.225, 132.447, 5.05, 1)
  }
  dend[299] {pt3dclear()
	pt3dadd(223.726, 118.565, 7.25, 2)
	pt3dadd(226.144, 120.239, 7.25, 1.5)
  }
  dend[300] {pt3dclear()
	pt3dadd(226.144, 120.239, 7.25, 1.5)
	pt3dadd(227.777, 122.092, 2.55, 1)
	pt3dadd(229.042, 125.569, 2.55, 1)
	pt3dadd(231.178, 126.175, 2.55, 1)
	pt3dadd(232.793, 127.396, 2.55, 1)
  }
  dend[301] {pt3dclear()
	pt3dadd(232.793, 127.396, 2.55, 1)
	pt3dadd(235.484, 126.31, 2.55, 1)
  }
  dend[302] {pt3dclear()
	pt3dadd(232.793, 127.396, 2.55, 1)
	pt3dadd(232.034, 129.695, 2.55, 1)
  }
  dend[303] {pt3dclear()
	pt3dadd(226.144, 120.239, 7.25, 1.5)
	pt3dadd(229.382, 120.656, 7.25, 1)
  }
  dend[304] {pt3dclear()
	pt3dadd(229.382, 120.656, 7.25, 1)
	pt3dadd(231.262, 121.143, 5.25, 0.7)
	pt3dadd(232.014, 123.21, 5.25, 0.8)
  }
  dend[305] {pt3dclear()
	pt3dadd(229.382, 120.656, 7.25, 1)
	pt3dadd(233.004, 117.742, 7.25, 1)
  }
  dend[306] {pt3dclear()
	pt3dadd(233.004, 117.742, 7.25, 1)
	pt3dadd(236.9, 119.09, 5.25, 1)
  }
  dend[307] {pt3dclear()
	pt3dadd(233.004, 117.742, 7.25, 1)
	pt3dadd(239.599, 113.639, 7.25, 1)
	pt3dadd(242.554, 110.648, 7.25, 1)
	pt3dadd(244.954, 109.348, 7.25, 1)
  }
  dend[308] {pt3dclear()
	pt3dadd(244.954, 109.348, 7.25, 1)
	pt3dadd(250.096, 105.349, 9.35, 0.8)
	pt3dadd(252.206, 102.665, 9.35, 0.8)
	pt3dadd(254.495, 99.598, 9.35, 0.8)
	pt3dadd(256.68, 95.077, 9.35, 0.7)
	pt3dadd(255.663, 92.574, 9.35, 0.7)
	pt3dadd(255.799, 88.269, 9.35, 0.5)
  }
  dend[309] {pt3dclear()
	pt3dadd(244.954, 109.348, 7.25, 1)
	pt3dadd(244.458, 105.06, 9.35, 0.7)
	pt3dadd(245.678, 101.104, 9.35, 0.7)
	pt3dadd(242.883, 97.226, 9.35, 1)
  }
  dend[310] {pt3dclear()
	pt3dadd(223.256, 116.395, 7.25, 2.5)
	pt3dadd(227.305, 115.24, 7.25, 1)
	pt3dadd(230.278, 114.052, 7.25, 1)
	pt3dadd(232.533, 113.231, 7.25, 1)
	pt3dadd(234.223, 111.445, 7.25, 1)
	pt3dadd(234.975, 110.001, 7.25, 1)
	pt3dadd(233.112, 106.635, 7.25, 1)
  }
  dend[311] {pt3dclear()
	pt3dadd(222.307, 115.25, 8.45, 3)
	pt3dadd(223.92, 110.619, 8.45, 1)
	pt3dadd(225.125, 109.543, 8.45, 1)
  }
  dend[312] {pt3dclear()
	pt3dadd(225.125, 109.543, 8.45, 1)
	pt3dadd(227.055, 109.584, 7.95, 1)
	pt3dadd(229.123, 108.832, 7.25, 1)
	pt3dadd(229.583, 106.004, 7.25, 1)
  }
  dend[313] {pt3dclear()
	pt3dadd(225.125, 109.543, 8.45, 1)
	pt3dadd(224.919, 107.808, 8.45, 1)
  }
  dend[314] {pt3dclear()
	pt3dadd(216.505, 113.637, 10.95, 3)
	pt3dadd(215.812, 109.101, 8.45, 1)
	pt3dadd(215.35, 106.077, 8.45, 1)
	pt3dadd(212.725, 101.498, 8.45, 1)
  }
  dend[315] {pt3dclear()
	pt3dadd(213.284, 113.852, 10.95, 3)
	pt3dadd(213.291, 109.486, 10.95, 1)
	pt3dadd(212.574, 107.513, 10.95, 1)
	pt3dadd(211.786, 105.351, 10.95, 1)
  }
  dend[316] {pt3dclear()
	pt3dadd(202.587, 110.19, 17.85, 3)
	pt3dadd(203.663, 107.883, 17.85, 1)
	pt3dadd(205.217, 105.721, 17.85, 1)
  }
  dend[317] {pt3dclear()
	pt3dadd(198.75, 106.372, 16.25, 9)
	pt3dadd(201.465, 102.723, 12.85, 4.5)
	pt3dadd(204.736, 99.723, 12.85, 4)
	pt3dadd(206.581, 96.604, 16.35, 3.5)
  }
  dend[318] {pt3dclear()
	pt3dadd(206.581, 96.604, 16.35, 3.5)
	pt3dadd(208.042, 95.647, 19.85, 3)
	pt3dadd(209.853, 94.775, 19.85, 3)
  }
  dend[319] {pt3dclear()
	pt3dadd(209.853, 94.775, 19.85, 3)
	pt3dadd(210.409, 98.936, 14.85, 1.5)
  }
  dend[320] {pt3dclear()
	pt3dadd(209.853, 94.775, 19.85, 3)
	pt3dadd(210.707, 93.613, 19.85, 3)
  }
  dend[321] {pt3dclear()
	pt3dadd(210.707, 93.613, 19.85, 3)
	pt3dadd(213.115, 92.63, 10.65, 3)
	pt3dadd(215.61, 92.466, 10.65, 3)
  }
  dend[322] {pt3dclear()
	pt3dadd(215.61, 92.466, 10.65, 3)
	pt3dadd(218.865, 91.175, 13.75, 3)
  }
  dend[323] {pt3dclear()
	pt3dadd(218.865, 91.175, 13.75, 3)
	pt3dadd(220.985, 94.661, 14.25, 1.5)
  }
  dend[324] {pt3dclear()
	pt3dadd(220.985, 94.661, 14.25, 1.5)
	pt3dadd(219.157, 97.242, 12.95, 1)
	pt3dadd(218.013, 99.36, 14.85, 1)
  }
  dend[325] {pt3dclear()
	pt3dadd(220.985, 94.661, 14.25, 1.5)
	pt3dadd(223.19, 97.796, 14.25, 1)
	pt3dadd(226.608, 98.999, 14.25, 1)
	pt3dadd(228.308, 99.87, 14.25, 1)
  }
  dend[326] {pt3dclear()
	pt3dadd(228.308, 99.87, 14.25, 1)
	pt3dadd(229.068, 97.572, 14.25, 1)
  }
  dend[327] {pt3dclear()
	pt3dadd(228.308, 99.87, 14.25, 1)
	pt3dadd(230.428, 102.185, 14.25, 1)
  }
  dend[328] {pt3dclear()
	pt3dadd(218.865, 91.175, 13.75, 3)
	pt3dadd(221.667, 89.517, 13.75, 3)
	pt3dadd(223.555, 87.979, 13.75, 3)
	pt3dadd(223.794, 88.637, 10.65, 3)
	pt3dadd(226.066, 86.107, 9.35, 3)
	pt3dadd(228.517, 85.534, 9.35, 3)
  }
  dend[329] {pt3dclear()
	pt3dadd(228.517, 85.534, 9.35, 3)
	pt3dadd(229.603, 85.884, 12.95, 3)
  }
  dend[330] {pt3dclear()
	pt3dadd(229.603, 85.884, 12.95, 3)
	pt3dadd(233.133, 90.027, 14.25, 1.5)
	pt3dadd(233.945, 93.136, 14.25, 1)
	pt3dadd(236.791, 96.57, 14.25, 0.7)
	pt3dadd(240.456, 97.577, 14.25, 0.7)
  }
  dend[331] {pt3dclear()
	pt3dadd(229.603, 85.884, 12.95, 3)
	pt3dadd(230.653, 84.969, 12.95, 2.5)
  }
  dend[332] {pt3dclear()
	pt3dadd(230.653, 84.969, 12.95, 2.5)
	pt3dadd(232.371, 84.132, 9.85, 2.5)
	pt3dadd(234.489, 82.935, 9.85, 2.5)
  }
  dend[333] {pt3dclear()
	pt3dadd(234.489, 82.935, 9.85, 2.5)
	pt3dadd(235.616, 82.524, 8.95, 2.5)
	pt3dadd(237.838, 80.439, 8.95, 2)
  }
  dend[334] {pt3dclear()
	pt3dadd(237.838, 80.439, 8.95, 2)
	pt3dadd(238.684, 84.813, 14.25, 1)
  }
  dend[335] {pt3dclear()
	pt3dadd(238.684, 84.813, 14.25, 1)
	pt3dadd(242.154, 86.743, 14.25, 1)
  }
  dend[336] {pt3dclear()
	pt3dadd(238.684, 84.813, 14.25, 1)
	pt3dadd(240.752, 84.061, 14.25, 1)
  }
  dend[337] {pt3dclear()
	pt3dadd(237.838, 80.439, 8.95, 2)
	pt3dadd(238.819, 79.337, 8.95, 2)
  }
  dend[338] {pt3dclear()
	pt3dadd(238.819, 79.337, 8.95, 2)
	pt3dadd(239.99, 79.337, 8.95, 1.5)
  }
  dend[339] {pt3dclear()
	pt3dadd(239.99, 79.337, 8.95, 1.5)
	pt3dadd(240.717, 82.796, 5.25, 1.5)
	pt3dadd(243.981, 85.333, 5.25, 1)
  }
  dend[340] {pt3dclear()
	pt3dadd(243.981, 85.333, 5.25, 1)
	pt3dadd(246.802, 88.989, 3.25, 1)
  }
  dend[341] {pt3dclear()
	pt3dadd(243.981, 85.333, 5.25, 1)
	pt3dadd(248.98, 85.323, 8.15, 1)
	pt3dadd(251.379, 82.853, 8.15, 1)
	pt3dadd(254.668, 81.656, 8.15, 1)
  }
  dend[342] {pt3dclear()
	pt3dadd(254.668, 81.656, 8.15, 1)
	pt3dadd(255.599, 78.657, 8.15, 1)
  }
  dend[343] {pt3dclear()
	pt3dadd(254.668, 81.656, 8.15, 1)
	pt3dadd(258.197, 82.287, 8.15, 1)
  }
  dend[344] {pt3dclear()
	pt3dadd(239.99, 79.337, 8.95, 1.5)
	pt3dadd(241.979, 76.909, 8.95, 2)
	pt3dadd(244.97, 76.353, 8.95, 1.5)
	pt3dadd(247.199, 74.584, 8.95, 1.5)
  }
}
proc shape3d_6() {
  dend[344] {  }
  dend[345] {pt3dclear()
	pt3dadd(247.199, 74.584, 8.95, 1.5)
	pt3dadd(249.736, 72.49, 7.75, 1.5)
  }
  dend[346] {pt3dclear()
	pt3dadd(249.736, 72.49, 7.75, 1.5)
	pt3dadd(254.324, 72.523, 5.25, 1)
	pt3dadd(257.134, 70.01, 5.25, 1)
	pt3dadd(258.997, 68.694, 5.25, 1)
	pt3dadd(261.67, 65.806, 5.25, 1)
  }
  dend[347] {pt3dclear()
	pt3dadd(249.736, 72.49, 7.75, 1.5)
	pt3dadd(252.973, 67.056, 7.75, 1.5)
	pt3dadd(255.158, 63.706, 7.75, 1.5)
	pt3dadd(257.251, 60.39, 7.75, 1)
  }
  dend[348] {pt3dclear()
	pt3dadd(257.251, 60.39, 7.75, 1)
	pt3dadd(261.112, 56.963, 7.75, 1)
  }
  dend[349] {pt3dclear()
	pt3dadd(261.112, 56.963, 7.75, 1)
	pt3dadd(264.109, 53.212, 7.75, 1)
  }
  dend[350] {pt3dclear()
	pt3dadd(264.109, 53.212, 7.75, 1)
	pt3dadd(266.391, 55.68, 5.25, 1)
  }
  dend[351] {pt3dclear()
	pt3dadd(264.109, 53.212, 7.75, 1)
	pt3dadd(266.407, 49.29, 7.75, 1)
  }
  dend[352] {pt3dclear()
	pt3dadd(266.407, 49.29, 7.75, 1)
	pt3dadd(270.756, 52.176, 7.55, 1)
  }
  dend[353] {pt3dclear()
	pt3dadd(266.407, 49.29, 7.75, 1)
	pt3dadd(267.37, 44.043, 7.75, 1)
	pt3dadd(269.659, 39.805, 7.75, 1)
	pt3dadd(272.075, 36.797, 7.75, 1)
	pt3dadd(273.621, 34.319, 7.75, 0.7)
  }
  dend[354] {pt3dclear()
	pt3dadd(261.112, 56.963, 7.75, 1)
	pt3dadd(261.546, 52.016, 7.75, 1)
  }
  dend[355] {pt3dclear()
	pt3dadd(257.251, 60.39, 7.75, 1)
	pt3dadd(256.678, 56.768, 7.75, 1)
	pt3dadd(256.198, 54.282, 7.75, 1)
	pt3dadd(256.096, 52.83, 7.75, 1)
  }
  dend[356] {pt3dclear()
	pt3dadd(256.096, 52.83, 7.75, 1)
	pt3dadd(258.982, 50.821, 7.75, 0.7)
  }
  dend[357] {pt3dclear()
	pt3dadd(256.096, 52.83, 7.75, 1)
	pt3dadd(254.19, 52.565, 7.75, 0.7)
  }
  dend[358] {pt3dclear()
	pt3dadd(247.199, 74.584, 8.95, 1.5)
	pt3dadd(246.37, 72.013, 8.95, 1)
	pt3dadd(245.703, 70.766, 7.75, 1)
  }
  dend[359] {pt3dclear()
	pt3dadd(245.703, 70.766, 7.75, 1)
	pt3dadd(248.018, 69.816, 7.75, 1)
  }
  dend[360] {pt3dclear()
	pt3dadd(245.703, 70.766, 7.75, 1)
	pt3dadd(243.806, 69.647, 7.75, 1)
  }
  dend[361] {pt3dclear()
	pt3dadd(243.806, 69.647, 7.75, 1)
	pt3dadd(245.728, 68.203, 7.75, 1)
  }
  dend[362] {pt3dclear()
	pt3dadd(243.806, 69.647, 7.75, 1)
	pt3dadd(241.858, 68.973, 7.75, 1)
  }
  dend[363] {pt3dclear()
	pt3dadd(241.858, 68.973, 7.75, 1)
	pt3dadd(243.207, 66.247, 7.75, 1)
  }
  dend[364] {pt3dclear()
	pt3dadd(241.858, 68.973, 7.75, 1)
	pt3dadd(240.371, 67.811, 7.75, 1)
  }
  dend[365] {pt3dclear()
	pt3dadd(238.819, 79.337, 8.95, 2)
	pt3dadd(237.28, 75.108, 8.95, 0.7)
  }
  dend[366] {pt3dclear()
	pt3dadd(234.489, 82.935, 9.85, 2.5)
	pt3dadd(233.753, 77.988, 9.85, 1)
	pt3dadd(234.179, 75.067, 9.85, 0.7)
	pt3dadd(233.221, 71.265, 9.85, 0.5)
	pt3dadd(232.725, 68.146, 9.85, 0.5)
  }
  dend[367] {pt3dclear()
	pt3dadd(230.653, 84.969, 12.95, 2.5)
	pt3dadd(229.251, 81.116, 12.95, 0.7)
	pt3dadd(229.25, 77.605, 12.95, 0.7)
  }
  dend[368] {pt3dclear()
	pt3dadd(228.517, 85.534, 9.35, 3)
	pt3dadd(225.996, 81.237, 9.35, 1)
	pt3dadd(225.952, 78.486, 9.35, 1)
	pt3dadd(224.558, 73.779, 9.35, 1)
  }
  dend[369] {pt3dclear()
	pt3dadd(215.61, 92.466, 10.65, 3)
	pt3dadd(216.139, 88.656, 10.65, 1.5)
	pt3dadd(216.591, 86.682, 10.65, 1.4)
  }
  dend[370] {pt3dclear()
	pt3dadd(210.707, 93.613, 19.85, 3)
	pt3dadd(210.901, 89.178, 12.75, 1)
	pt3dadd(211.124, 88.034, 12.75, 1)
  }
  dend[371] {pt3dclear()
	pt3dadd(211.124, 88.034, 12.75, 1)
	pt3dadd(212.755, 86.376, 12.75, 1)
	pt3dadd(213.489, 84.299, 12.75, 1)
  }
  dend[372] {pt3dclear()
	pt3dadd(213.489, 84.299, 12.75, 1)
	pt3dadd(216.394, 82.923, 12.45, 0.8)
	pt3dadd(216.734, 80.351, 12.45, 0.7)
	pt3dadd(218.673, 78.369, 12.45, 1)
  }
  dend[373] {pt3dclear()
	pt3dadd(213.489, 84.299, 12.75, 1)
	pt3dadd(213.463, 82.181, 12.75, 0.8)
	pt3dadd(212.146, 80.318, 12.75, 0.6)
	pt3dadd(212.958, 78.746, 12.75, 0.7)
  }
  dend[374] {pt3dclear()
	pt3dadd(212.958, 78.746, 12.75, 0.7)
	pt3dadd(209.848, 78.388, 12.75, 0.5)
  }
  dend[375] {pt3dclear()
	pt3dadd(212.958, 78.746, 12.75, 0.7)
	pt3dadd(213.795, 76.952, 12.75, 0.5)
  }
  dend[376] {pt3dclear()
	pt3dadd(211.124, 88.034, 12.75, 1)
	pt3dadd(209.235, 86.061, 12.75, 1)
	pt3dadd(209.217, 84.258, 12.75, 1)
  }
  dend[377] {pt3dclear()
	pt3dadd(206.581, 96.604, 16.35, 3.5)
	pt3dadd(203.633, 94.059, 16.35, 1)
	pt3dadd(203.162, 93.06, 16.35, 1)
  }
  dend[378] {pt3dclear()
	pt3dadd(203.162, 93.06, 16.35, 1)
	pt3dadd(203.683, 90.104, 20.65, 0.5)
	pt3dadd(204.195, 88.002, 20.65, 0.5)
  }
  dend[379] {pt3dclear()
	pt3dadd(204.195, 88.002, 20.65, 0.5)
	pt3dadd(203.032, 85.977, 20.65, 0.5)
	pt3dadd(204.501, 84.166, 20.65, 0.5)
  }
  dend[380] {pt3dclear()
	pt3dadd(204.195, 88.002, 20.65, 0.5)
	pt3dadd(204.451, 86.951, 20.65, 0.5)
  }
  dend[381] {pt3dclear()
	pt3dadd(203.162, 93.06, 16.35, 1)
	pt3dadd(201.514, 92.915, 16.35, 0.5)
	pt3dadd(199.642, 91.574, 20.65, 0.5)
  }
  dend[382] {pt3dclear()
	pt3dadd(189.711, 107.853, 14.55, 10)
	pt3dadd(190.691, 100.898, 14.55, 1.5)
  }
  dend[383] {pt3dclear()
	pt3dadd(190.691, 100.898, 14.55, 1.5)
	pt3dadd(192.613, 98.283, 10.95, 1.5)
	pt3dadd(193.218, 94.976, 10.95, 1.5)
	pt3dadd(192.876, 91.696, 11.85, 1.5)
	pt3dadd(194.618, 89.465, 11.85, 1)
	pt3dadd(197.385, 85.372, 11.85, 1)
	pt3dadd(199.067, 82.1, 11.85, 0.5)
	pt3dadd(199.929, 78.913, 11.85, 0.5)
	pt3dadd(201.578, 77.887, 11.85, 0.5)
	pt3dadd(203.866, 74.819, 11.85, 0.5)
  }
  dend[384] {pt3dclear()
	pt3dadd(190.691, 100.898, 14.55, 1.5)
	pt3dadd(189.272, 96.413, 10.95, 1)
  }
  dend[385] {pt3dclear()
	pt3dstyle(1, 159.22, 53.61, 11.05)
	pt3dadd(168.727, 48.447, 11.05, 14)
	pt3dadd(176.168, 47.547, 11.05, 15)
	pt3dadd(184.755, 46.87, 3.95, 16)
	pt3dadd(190.674, 44.715, -0.65, 15)
	pt3dadd(198.005, 43.218, -4.05, 16)
	pt3dadd(201.012, 43.294, -4.05, 18)
	pt3dadd(204.489, 42.029, -13.65, 20)
  }
  dend[386] {pt3dclear()
	pt3dadd(204.489, 42.029, -13.65, 20)
	pt3dadd(208.874, 49.691, -13.65, 8)
	pt3dadd(211.173, 52.791, -13.65, 5)
	pt3dadd(214.712, 56.08, -13.65, 6)
  }
  dend[387] {pt3dclear()
	pt3dadd(214.712, 56.08, -13.65, 6)
	pt3dadd(215.924, 57.66, -12.95, 6)
	pt3dadd(217.514, 59.103, -12.95, 6)
  }
  dend[388] {pt3dclear()
	pt3dadd(217.514, 59.103, -12.95, 6)
	pt3dadd(214.747, 63.196, -12.95, 1.5)
	pt3dadd(214.252, 64.76, -12.95, 1.5)
	pt3dadd(213.458, 66.964, -12.95, 1.5)
  }
  dend[389] {pt3dclear()
	pt3dadd(213.458, 66.964, -12.95, 1.5)
	pt3dadd(209.982, 69.401, -12.95, 1.5)
	pt3dadd(208.29, 70.016, -12.95, 1.5)
  }
  dend[390] {pt3dclear()
	pt3dadd(213.458, 66.964, -12.95, 1.5)
	pt3dadd(209.348, 64.736, -12.95, 1)
  }
  dend[391] {pt3dclear()
	pt3dadd(217.514, 59.103, -12.95, 6)
	pt3dadd(219.718, 59.897, -12.95, 6)
	pt3dadd(221.769, 60.853, -12.95, 6)
  }
  dend[392] {pt3dclear()
	pt3dadd(221.769, 60.853, -12.95, 6)
	pt3dadd(223.923, 62.092, -12.95, 6)
  }
  dend[393] {pt3dclear()
	pt3dadd(223.923, 62.092, -12.95, 6)
	pt3dadd(225.231, 65.978, -12.95, 1)
	pt3dadd(225.625, 67.644, -12.95, 1.5)
  }
  dend[394] {pt3dclear()
	pt3dadd(223.923, 62.092, -12.95, 6)
	pt3dadd(225.478, 62.271, -12.95, 6)
  }
  dend[395] {pt3dclear()
	pt3dadd(225.478, 62.271, -12.95, 6)
	pt3dadd(227.956, 62.646, -14.75, 5)
	pt3dadd(230.083, 62.936, -14.75, 4)
	pt3dadd(233.082, 62.696, -14.75, 4.5)
	pt3dadd(235.619, 61.772, -14.75, 4)
	pt3dadd(238.224, 59.866, -14.75, 4.5)
	pt3dadd(239.582, 58.627, -14.75, 5)
  }
  dend[396] {pt3dclear()
	pt3dadd(239.582, 58.627, -14.75, 5)
	pt3dadd(237.404, 58.782, -8.75, 2)
	pt3dadd(235.498, 59.688, -8.75, 2.5)
  }
  dend[397] {pt3dclear()
	pt3dadd(235.498, 59.688, -8.75, 2.5)
	pt3dadd(232.448, 59.201, -12.25, 1)
	pt3dadd(230.569, 59.885, -12.25, 1.5)
  }
  dend[398] {pt3dclear()
	pt3dadd(230.569, 59.885, -12.25, 1.5)
	pt3dadd(230.551, 58.083, -12.25, 1.5)
	pt3dadd(228.962, 56.64, -12.25, 1.5)
  }
  dend[399] {pt3dclear()
	pt3dadd(230.569, 59.885, -12.25, 1.5)
	pt3dadd(228.579, 63.483, -12.25, 1)
  }
  dend[400] {pt3dclear()
	pt3dadd(235.498, 59.688, -8.75, 2.5)
	pt3dadd(236.174, 61.251, -8.75, 2.5)
  }
  dend[401] {pt3dclear()
	pt3dadd(236.174, 61.251, -8.75, 2.5)
	pt3dadd(234.235, 63.234, -12.25, 1)
	pt3dadd(233.646, 66.002, -12.25, 1)
	pt3dadd(232.904, 68.932, -12.25, 1)
	pt3dadd(233.255, 71.359, -12.25, 1)
  }
  dend[402] {pt3dclear()
	pt3dadd(236.174, 61.251, -8.75, 2.5)
	pt3dadd(237.96, 64.112, -8.75, 2)
  }
  dend[403] {pt3dclear()
	pt3dadd(237.96, 64.112, -8.75, 2)
	pt3dadd(237.791, 67.154, -8.75, 1.5)
	pt3dadd(237.962, 68.794, -8.75, 1.5)
  }
  dend[404] {pt3dclear()
	pt3dadd(237.962, 68.794, -8.75, 1.5)
	pt3dadd(236.211, 70.709, -12.25, 1.5)
  }
  dend[405] {pt3dclear()
	pt3dadd(237.962, 68.794, -8.75, 1.5)
	pt3dadd(239.168, 71.229, -12.25, 1.5)
  }
  dend[406] {pt3dclear()
	pt3dadd(237.96, 64.112, -8.75, 2)
	pt3dadd(241.088, 65.102, -8.75, 1.5)
  }
  dend[407] {pt3dclear()
	pt3dadd(241.088, 65.102, -8.75, 1.5)
	pt3dadd(242.413, 66.11, -8.75, 1)
	pt3dadd(246.027, 66.391, -8.75, 1.5)
	pt3dadd(250.777, 65.407, -8.75, 1.5)
  }
  dend[408] {pt3dclear()
	pt3dadd(241.088, 65.102, -8.75, 1.5)
	pt3dadd(243.189, 62.103, -8.75, 1)
  }
  dend[409] {pt3dclear()
	pt3dadd(239.582, 58.627, -14.75, 5)
	pt3dadd(240.401, 55.03, -14.75, 1.5)
	pt3dadd(241.87, 53.218, -14.75, 1.5)
  }
  dend[410] {pt3dclear()
	pt3dadd(241.87, 53.218, -14.75, 1.5)
	pt3dadd(242.118, 53.022, -11.25, 2)
	pt3dadd(243.006, 51.954, -11.25, 2.5)
  }
  dend[411] {pt3dclear()
	pt3dadd(243.006, 51.954, -11.25, 2.5)
  }
}
proc shape3d_7() {
  dend[411] {	pt3dadd(244.988, 51.551, -8.45, 1.5)
  }
  dend[412] {pt3dclear()
	pt3dadd(244.988, 51.551, -8.45, 1.5)
	pt3dadd(246.706, 54.225, -8.75, 1)
	pt3dadd(248.962, 56.915, -8.75, 1)
	pt3dadd(250.731, 56.804, -8.75, 1)
	pt3dadd(253.114, 54.872, -8.75, 1)
	pt3dadd(257.437, 54.47, -8.75, 1)
  }
  dend[413] {pt3dclear()
	pt3dadd(244.988, 51.551, -8.45, 1.5)
	pt3dadd(248.371, 50.32, -8.45, 1)
	pt3dadd(250.251, 49.636, -8.45, 1)
	pt3dadd(250.088, 48.312, -8.45, 1)
	pt3dadd(252.394, 47.046, -8.45, 0.5)
  }
  dend[414] {pt3dclear()
	pt3dadd(252.394, 47.046, -8.45, 0.5)
	pt3dadd(256.999, 46.541, -8.75, 0.5)
	pt3dadd(258.127, 46.131, -8.75, 0.5)
  }
  dend[415] {pt3dclear()
	pt3dadd(258.127, 46.131, -8.75, 0.5)
	pt3dadd(260.203, 45.694, -8.75, 0.5)
	pt3dadd(264.303, 44.095, -8.75, 0.5)
  }
  dend[416] {pt3dclear()
	pt3dadd(258.127, 46.131, -8.75, 0.5)
	pt3dadd(258.493, 43.337, -8.75, 0.5)
  }
  dend[417] {pt3dclear()
	pt3dadd(252.394, 47.046, -8.45, 0.5)
	pt3dadd(252.931, 44.722, -8.45, 0.4)
	pt3dadd(253.922, 41.595, -8.75, 0.4)
	pt3dadd(254.289, 38.802, -8.75, 0.5)
  }
  dend[418] {pt3dclear()
	pt3dadd(243.006, 51.954, -11.25, 2.5)
	pt3dadd(242.203, 49.16, -11.25, 1)
	pt3dadd(242.509, 45.324, -8.45, 1)
  }
  dend[419] {pt3dclear()
	pt3dadd(242.509, 45.324, -8.45, 1)
	pt3dadd(244.456, 43.657, -8.45, 1)
	pt3dadd(246.523, 42.905, -8.45, 1)
  }
  dend[420] {pt3dclear()
	pt3dadd(242.509, 45.324, -8.45, 1)
	pt3dadd(239.62, 42.65, -8.45, 1)
  }
  dend[421] {pt3dclear()
	pt3dadd(241.87, 53.218, -14.75, 1.5)
	pt3dadd(239.554, 50.656, -14.75, 1)
	pt3dadd(236.983, 50.315, -14.75, 1)
	pt3dadd(234.983, 48.914, -14.75, 1)
  }
  dend[422] {pt3dclear()
	pt3dadd(234.983, 48.914, -14.75, 1)
	pt3dadd(235.487, 47.667, -11.25, 1)
  }
  dend[423] {pt3dclear()
	pt3dadd(234.983, 48.914, -14.75, 1)
	pt3dadd(232.65, 45.72, -11.25, 1)
  }
  dend[424] {pt3dclear()
	pt3dadd(232.65, 45.72, -11.25, 1)
	pt3dadd(233.879, 43.25, -11.25, 1)
  }
  dend[425] {pt3dclear()
	pt3dadd(232.65, 45.72, -11.25, 1)
	pt3dadd(230.633, 44.857, -11.25, 1)
  }
  dend[426] {pt3dclear()
	pt3dadd(225.478, 62.271, -12.95, 6)
	pt3dadd(224.006, 57.059, -12.95, 1)
  }
  dend[427] {pt3dclear()
	pt3dadd(224.006, 57.059, -12.95, 1)
	pt3dadd(224.339, 54.172, -12.95, 0.5)
	pt3dadd(225.834, 52.138, -12.95, 0.8)
  }
  dend[428] {pt3dclear()
	pt3dadd(224.006, 57.059, -12.95, 1)
	pt3dadd(225.015, 55.735, -12.95, 1)
	pt3dadd(226.236, 55.29, -12.95, 0.6)
  }
  dend[429] {pt3dclear()
	pt3dadd(221.769, 60.853, -12.95, 6)
	pt3dadd(220.939, 54.771, -12.95, 1)
  }
  dend[430] {pt3dclear()
	pt3dadd(214.712, 56.08, -13.65, 6)
	pt3dadd(216.692, 53.337, -13.65, 1)
	pt3dadd(217.076, 51.175, -12.95, 1)
  }
  dend[431] {pt3dclear()
	pt3dadd(204.489, 42.029, -13.65, 20)
	pt3dadd(211.032, 37.2, -13.65, 12)
	pt3dadd(216.593, 33.473, -13.65, 10)
	pt3dadd(220.061, 30.721, -13.65, 10)
	pt3dadd(225.621, 25.824, -17.35, 12)
	pt3dadd(230.481, 23.097, -17.35, 13)
	pt3dadd(236.128, 20.19, -17.35, 16)
	pt3dadd(243.355, 17.241, -17.35, 15)
	pt3dadd(247.497, 12.54, -17.35, 19)
	pt3dadd(249.923, 11.019, -21.75, 12)
  }
  dend[432] {pt3dclear()
	pt3dadd(249.923, 11.019, -21.75, 12)
	pt3dadd(249.923, 11.019, -21.85, 12)
  }
  dend[433] {pt3dclear()
	pt3dadd(249.923, 11.019, -21.85, 12)
	pt3dadd(249.932, 12.506, -24.45, 3)
  }
  dend[434] {pt3dclear()
	pt3dadd(249.932, 12.506, -24.45, 3)
	pt3dadd(247.318, 15.266, -16.45, 2)
	pt3dadd(245.61, 14.079, -16.45, 2)
  }
  dend[435] {pt3dclear()
	pt3dadd(245.61, 14.079, -16.45, 2)
	pt3dadd(247.01, 10.909, -18.45, 1)
  }
  dend[436] {pt3dclear()
	pt3dadd(245.61, 14.079, -16.45, 2)
	pt3dadd(242.79, 15.105, -16.45, 1.65)
  }
  dend[437] {pt3dclear()
	pt3dadd(242.79, 15.105, -16.45, 1.65)
	pt3dadd(240.646, 14.183, -18.45, 1)
  }
  dend[438] {pt3dclear()
	pt3dadd(242.79, 15.105, -16.45, 1.65)
	pt3dadd(241.194, 19.198, -16.45, 1)
  }
  dend[439] {pt3dclear()
	pt3dadd(241.194, 19.198, -16.45, 1)
	pt3dadd(240.041, 22.171, -16.45, 1)
  }
  dend[440] {pt3dclear()
	pt3dadd(241.194, 19.198, -16.45, 1)
	pt3dadd(242.185, 19.582, -16.45, 1)
  }
  dend[441] {pt3dclear()
	pt3dadd(249.932, 12.506, -24.45, 3)
	pt3dadd(250.573, 13.975, -24.45, 3)
  }
  dend[442] {pt3dclear()
	pt3dadd(250.573, 13.975, -24.45, 3)
	pt3dadd(247.226, 19.982, -16.45, 2)
  }
  dend[443] {pt3dclear()
	pt3dadd(250.573, 13.975, -24.45, 3)
	pt3dadd(252.744, 17.016, -24.45, 3.5)
	pt3dadd(254.556, 19.655, -24.45, 4)
  }
  dend[444] {pt3dclear()
	pt3dadd(254.556, 19.655, -24.45, 4)
	pt3dadd(254.291, 20.39, -24.45, 4)
  }
  dend[445] {pt3dclear()
	pt3dadd(254.291, 20.39, -24.45, 4)
	pt3dadd(250.457, 25.936, -25.95, 1.5)
	pt3dadd(249.057, 27.936, -25.95, 1.5)
	pt3dadd(246.58, 31.072, -25.95, 1.5)
  }
  dend[446] {pt3dclear()
	pt3dadd(246.58, 31.072, -25.95, 1.5)
	pt3dadd(244.674, 28.466, -25.95, 1)
  }
  dend[447] {pt3dclear()
	pt3dadd(246.58, 31.072, -25.95, 1.5)
	pt3dadd(245.939, 33.114, -25.95, 1)
  }
  dend[448] {pt3dclear()
	pt3dadd(245.939, 33.114, -25.95, 1)
	pt3dadd(244.735, 31.85, -25.95, 1)
  }
  dend[449] {pt3dclear()
	pt3dadd(245.939, 33.114, -25.95, 1)
	pt3dadd(245.18, 35.412, -25.95, 1)
	pt3dadd(244.078, 36.771, -25.95, 1)
  }
  dend[450] {pt3dclear()
	pt3dadd(254.291, 20.39, -24.45, 4)
	pt3dadd(255.121, 21.791, -24.45, 4)
	pt3dadd(256.718, 22.38, -24.45, 4)
  }
  dend[451] {pt3dclear()
	pt3dadd(256.718, 22.38, -24.45, 4)
	pt3dadd(252.491, 27.43, -24.55, 2)
  }
  dend[452] {pt3dclear()
	pt3dadd(256.718, 22.38, -24.45, 4)
	pt3dadd(259.248, 23.482, -24.45, 4)
  }
  dend[453] {pt3dclear()
	pt3dadd(259.248, 23.482, -24.45, 4)
	pt3dadd(259.162, 23.832, -25.05, 2.5)
  }
  dend[454] {pt3dclear()
	pt3dadd(259.162, 23.832, -25.05, 2.5)
	pt3dadd(258.224, 28.856, -24.55, 2)
	pt3dadd(258.08, 31.675, -24.55, 1.5)
	pt3dadd(257.995, 33.196, -24.55, 1.5)
  }
  dend[455] {pt3dclear()
	pt3dadd(257.995, 33.196, -24.55, 1.5)
	pt3dadd(258.397, 34.008, -24.55, 1)
	pt3dadd(257.209, 35.716, -24.55, 1)
	pt3dadd(254.954, 36.537, -24.55, 0.5)
	pt3dadd(252.793, 37.324, -24.55, 1)
  }
  dend[456] {pt3dclear()
	pt3dadd(257.995, 33.196, -24.55, 1.5)
	pt3dadd(262.155, 32.639, -24.55, 1)
  }
  dend[457] {pt3dclear()
	pt3dadd(259.162, 23.832, -25.05, 2.5)
	pt3dadd(262.042, 23.848, -25.05, 2)
	pt3dadd(265.229, 23.54, -25.05, 2)
  }
  dend[458] {pt3dclear()
	pt3dadd(265.229, 23.54, -25.05, 2)
	pt3dadd(267.177, 25.384, -30.85, 1.5)
  }
  dend[459] {pt3dclear()
	pt3dadd(267.177, 25.384, -30.85, 1.5)
	pt3dadd(265.879, 27.666, -26.45, 1)
	pt3dadd(267.315, 30.442, -26.45, 1)
	pt3dadd(268.485, 31.612, -26.45, 1)
	pt3dadd(268.495, 34.269, -26.45, 1)
  }
  dend[460] {pt3dclear()
	pt3dadd(267.177, 25.384, -30.85, 1.5)
	pt3dadd(270.79, 24.495, -30.85, 1.5)
	pt3dadd(273.559, 25.083, -30.85, 1.5)
  }
  dend[461] {pt3dclear()
	pt3dadd(273.559, 25.083, -30.85, 1.5)
	pt3dadd(273.859, 27.954, -30.85, 1)
	pt3dadd(272.817, 30.355, -26.45, 1)
	pt3dadd(272.655, 32.542, -26.45, 1)
  }
  dend[462] {pt3dclear()
	pt3dadd(272.655, 32.542, -26.45, 1)
	pt3dadd(272.673, 34.345, -26.45, 0.5)
  }
  dend[463] {pt3dclear()
	pt3dadd(272.655, 32.542, -26.45, 1)
	pt3dadd(274.817, 32.926, -26.45, 0.5)
  }
  dend[464] {pt3dclear()
	pt3dadd(273.559, 25.083, -30.85, 1.5)
	pt3dadd(276.455, 24.561, -30.85, 1)
	pt3dadd(278.949, 23.228, -30.85, 1)
	pt3dadd(280.897, 22.732, -30.85, 1)
	pt3dadd(282.88, 24.67, -30.85, 1)
	pt3dadd(285.793, 23.61, -30.85, 0.7)
  }
  dend[465] {pt3dclear()
	pt3dadd(265.229, 23.54, -25.05, 2)
	pt3dadd(265.919, 21.053, -25.05, 1)
	pt3dadd(266.714, 20.019, -25.05, 1.5)
  }
  dend[466] {pt3dclear()
	pt3dadd(266.714, 20.019, -25.05, 1.5)
	pt3dadd(265.482, 17.806, -30.85, 1.5)
  }
  dend[467] {pt3dclear()
	pt3dadd(266.714, 20.019, -25.05, 1.5)
	pt3dadd(268.841, 17.968, -30.85, 1)
  }
  dend[468] {pt3dclear()
	pt3dadd(259.248, 23.482, -24.45, 4)
	pt3dadd(259.691, 21.192, -25.05, 1)
	pt3dadd(259.221, 19.022, -25.05, 2)
	pt3dadd(259.964, 17.262, -25.05, 1)
  }
  dend[469] {pt3dclear()
	pt3dadd(254.556, 19.655, -24.45, 4)
	pt3dadd(256.973, 15.477, -24.45, 2)
	pt3dadd(258.484, 11.734, -24.45, 1.5)
  }
  dend[470] {pt3dclear()
	pt3dadd(258.484, 11.734, -24.45, 1.5)
	pt3dadd(260.671, 11.896, -24.45, 1)
	pt3dadd(261.423, 11.622, -24.45, 1.5)
  }
  dend[471] {pt3dclear()
	pt3dadd(258.484, 11.734, -24.45, 1.5)
	pt3dadd(258.346, 7.847, -24.45, 1)
  }
  dend[472] {pt3dclear()
	pt3dadd(249.923, 11.019, -21.85, 12)
	pt3dadd(251.853, 8.72, -22.35, 1.5)
	pt3dadd(253.159, 5.584, -22.35, 1.5)
  }
  dend[473] {pt3dclear()
	pt3dadd(253.159, 5.584, -22.35, 1.5)
	pt3dadd(255.628, 5.643, -22.35, 1)
  }
  dend[474] {pt3dclear()
	pt3dadd(253.159, 5.584, -22.35, 1.5)
	pt3dadd(254.5, 2.543, -22.35, 1)
  }
  dend[475] {pt3dclear()
	pt3dadd(249.923, 11.019, -21.75, 12)
	pt3dadd(254.903, 6.866, -23.65, 12)
	pt3dadd(258.464, 2.909, -23.65, 12)
	pt3dadd(262.709, -1.51, -23.65, 13)
	pt3dadd(264.819, -4.193, -24.05, 13)
	pt3dadd(266.109, -4.449, -24.45, 14)
  }
  dend[476] {pt3dclear()
	pt3dadd(266.109, -4.449, -24.45, 14)
	pt3dadd(266.989, -3.493, -19.45, 14)
	pt3dadd(268.311, -9.508, -19.45, 14)
	pt3dadd(269.378, -14.472, -19.45, 14)
  }
  dend[477] {pt3dclear()
	pt3dadd(269.378, -14.472, -19.45, 14)
	pt3dadd(269.574, -16.565, -15.05, 13)
	pt3dadd(270.521, -18.932, -15.05, 12)
	pt3dadd(271.101, -23.187, -15.05, 12)
  }
  dend[478] {pt3dclear()
	pt3dadd(271.101, -23.187, -15.05, 12)
	pt3dadd(271.699, -24.469, -29.35, 13)
	pt3dadd(271.893, -28.903, -29.35, 11)
	pt3dadd(272.432, -32.397, -29.35, 10)
  }
  dend[479] {pt3dclear()
	pt3dadd(272.432, -32.397, -29.35, 10)
  }
}
proc shape3d_8() {
  dend[479] {	pt3dadd(272.687, -32.278, -29.25, 5)
	pt3dadd(274.139, -33.551, -29.25, 5)
  }
  dend[480] {pt3dclear()
	pt3dadd(274.139, -33.551, -29.25, 5)
	pt3dadd(276.088, -32.877, -32.35, 5.5)
  }
  dend[481] {pt3dclear()
	pt3dadd(276.088, -32.877, -32.35, 5.5)
	pt3dadd(277.603, -21.404, -30.45, 4)
  }
  dend[482] {pt3dclear()
	pt3dadd(277.603, -21.404, -30.45, 4)
	pt3dadd(274.546, -17.524, -32.95, 1)
	pt3dadd(272.641, -15.447, -32.95, 2)
  }
  dend[483] {pt3dclear()
	pt3dadd(277.603, -21.404, -30.45, 4)
	pt3dadd(279.961, -19.602, -30.45, 4)
  }
  dend[484] {pt3dclear()
	pt3dadd(279.961, -19.602, -30.45, 4)
	pt3dadd(277.315, -15.764, -30.35, 2)
	pt3dadd(276.631, -14.133, -30.35, 1.5)
	pt3dadd(275.632, -12.492, -30.35, 2.5)
  }
  dend[485] {pt3dclear()
	pt3dadd(279.961, -19.602, -30.45, 4)
	pt3dadd(281.5, -18.884, -30.45, 4)
  }
  dend[486] {pt3dclear()
	pt3dadd(281.5, -18.884, -30.45, 4)
	pt3dadd(280.561, -15.031, -32.85, 2)
	pt3dadd(280.442, -13.604, -32.65, 2)
  }
  dend[487] {pt3dclear()
	pt3dadd(281.5, -18.884, -30.45, 4)
	pt3dadd(283.413, -18.304, -30.45, 4)
  }
  dend[488] {pt3dclear()
	pt3dadd(283.413, -18.304, -30.45, 4)
	pt3dadd(286.046, -15.75, -34.85, 2.5)
  }
  dend[489] {pt3dclear()
	pt3dadd(286.046, -15.75, -34.85, 2.5)
	pt3dadd(285.953, -12.205, -36.35, 1.5)
	pt3dadd(285.714, -9.351, -36.35, 1.5)
	pt3dadd(283.092, -8.077, -36.35, 2)
  }
  dend[490] {pt3dclear()
	pt3dadd(286.046, -15.75, -34.85, 2.5)
	pt3dadd(292.257, -15.351, -34.85, 2)
	pt3dadd(297.47, -13.31, -34.85, 2)
	pt3dadd(299.717, -10.936, -34.85, 1.5)
	pt3dadd(303.373, -11.415, -34.85, 1)
	pt3dadd(305.331, -10.424, -36.75, 2)
  }
  dend[491] {pt3dclear()
	pt3dadd(283.413, -18.304, -30.45, 4)
	pt3dadd(286.814, -20.073, -30.45, 1.5)
	pt3dadd(289.231, -20.74, -30.45, 1.5)
	pt3dadd(291.777, -21.348, -30.45, 1)
	pt3dadd(295.373, -22.87, -32.15, 2)
  }
  dend[492] {pt3dclear()
	pt3dadd(276.088, -32.877, -32.35, 5.5)
	pt3dadd(277.813, -34.569, -32.85, 4.5)
  }
  dend[493] {pt3dclear()
	pt3dadd(277.813, -34.569, -32.85, 4.5)
	pt3dadd(281.101, -36.937, -31.95, 4)
	pt3dadd(283.467, -40.671, -31.95, 4)
  }
  dend[494] {pt3dclear()
	pt3dadd(283.467, -40.671, -31.95, 4)
	pt3dadd(285.391, -33.922, -34.45, 2)
	pt3dadd(288.304, -34.982, -34.45, 2)
	pt3dadd(288.988, -33.103, -34.45, 2)
	pt3dadd(291.808, -32.958, -34.45, 2.5)
  }
  dend[495] {pt3dclear()
	pt3dadd(283.467, -40.671, -31.95, 4)
	pt3dadd(286.02, -44.474, -32.85, 4)
  }
  dend[496] {pt3dclear()
	pt3dadd(286.02, -44.474, -32.85, 4)
	pt3dadd(287.583, -46.319, -32.85, 4)
	pt3dadd(291.257, -49.678, -32.85, 4.5)
	pt3dadd(293.4, -51.097, -32.85, 5)
  }
  dend[497] {pt3dclear()
	pt3dadd(293.4, -51.097, -32.85, 5)
	pt3dadd(295.008, -44.34, -35.85, 2)
	pt3dadd(296.035, -41.521, -34.45, 2)
	pt3dadd(294.977, -37.41, -34.45, 1.5)
	pt3dadd(297.505, -36.309, -34.45, 1)
  }
  dend[498] {pt3dclear()
	pt3dadd(293.4, -51.097, -32.85, 5)
	pt3dadd(295.116, -53.105, -30.75, 5.5)
  }
  dend[499] {pt3dclear()
	pt3dadd(295.116, -53.105, -30.75, 5.5)
	pt3dadd(298.714, -51.116, -35.55, 5.5)
  }
  dend[500] {pt3dclear()
	pt3dadd(298.714, -51.116, -35.55, 5.5)
	pt3dadd(301.278, -47.579, -35.85, 2.5)
	pt3dadd(304.106, -44.778, -35.85, 2)
	pt3dadd(305.68, -41.625, -35.85, 2)
	pt3dadd(304.895, -37.934, -35.85, 1.5)
	pt3dadd(303.743, -34.962, -35.85, 2.5)
  }
  dend[501] {pt3dclear()
	pt3dadd(298.714, -51.116, -35.55, 5.5)
	pt3dadd(303.105, -56.013, -35.55, 3)
	pt3dadd(306.469, -59.046, -35.55, 2.5)
  }
  dend[502] {pt3dclear()
	pt3dadd(306.469, -59.046, -35.55, 2.5)
	pt3dadd(307.111, -55.236, -38.85, 1.5)
	pt3dadd(307.761, -53.451, -38.95, 2)
  }
  dend[503] {pt3dclear()
	pt3dadd(306.469, -59.046, -35.55, 2.5)
	pt3dadd(310.552, -63.618, -35.35, 2)
  }
  dend[504] {pt3dclear()
	pt3dadd(310.552, -63.618, -35.35, 2)
	pt3dadd(315.089, -60.8, -38.85, 2)
	pt3dadd(317.174, -59.75, -38.85, 2)
	pt3dadd(320.174, -56.479, -38.85, 1)
  }
  dend[505] {pt3dclear()
	pt3dadd(310.552, -63.618, -35.35, 2)
	pt3dadd(313.857, -68.865, -35.35, 1.5)
	pt3dadd(315.804, -71.702, -35.35, 1)
	pt3dadd(319.04, -78.307, -35.35, 1)
  }
  dend[506] {pt3dclear()
	pt3dadd(295.116, -53.105, -30.75, 5.5)
	pt3dadd(296.26, -58.735, -29.85, 1.5)
	pt3dadd(298.258, -62.017, -36.55, 1)
	pt3dadd(299.231, -64.606, -36.55, 1)
  }
  dend[507] {pt3dclear()
	pt3dadd(299.231, -64.606, -36.55, 1)
	pt3dadd(302.358, -65.957, -36.55, 1)
  }
  dend[508] {pt3dclear()
	pt3dadd(302.358, -65.957, -36.55, 1)
	pt3dadd(303.92, -70.144, -34.85, 1.5)
	pt3dadd(305.414, -74.519, -41.35, 1)
  }
  dend[509] {pt3dclear()
	pt3dadd(302.358, -65.957, -36.55, 1)
	pt3dadd(300.05, -69.373, -34.85, 1)
  }
  dend[510] {pt3dclear()
	pt3dadd(299.231, -64.606, -36.55, 1)
	pt3dadd(297.275, -64.426, -36.55, 1)
  }
  dend[511] {pt3dclear()
	pt3dadd(286.02, -44.474, -32.85, 4)
	pt3dadd(283.286, -46.138, -32.85, 0.5)
	pt3dadd(281.636, -47.454, -32.85, 1.5)
  }
  dend[512] {pt3dclear()
	pt3dadd(277.813, -34.569, -32.85, 4.5)
	pt3dadd(276.086, -38.729, -32.85, 2)
	pt3dadd(275.751, -42.864, -31.95, 2)
	pt3dadd(275.707, -46.786, -31.95, 2)
  }
  dend[513] {pt3dclear()
	pt3dadd(274.139, -33.551, -29.25, 5)
	pt3dadd(272.891, -36.396, -31.15, 3)
	pt3dadd(271.797, -39.403, -32.35, 4)
  }
  dend[514] {pt3dclear()
	pt3dadd(272.432, -32.397, -29.35, 10)
	pt3dadd(272.403, -38.028, -29.35, 10)
	pt3dadd(273.145, -44.47, -29.35, 10)
  }
  dend[515] {pt3dclear()
	pt3dadd(273.145, -44.47, -29.35, 10)
	pt3dadd(273.332, -46.879, -29.05, 10)
	pt3dadd(273.989, -50.63, -29.05, 10)
	pt3dadd(274.389, -53.33, -24.85, 10)
  }
  dend[516] {pt3dclear()
	pt3dadd(274.389, -53.33, -24.85, 10)
	pt3dadd(275.96, -57.201, -23.55, 10)
	pt3dadd(277.72, -62.31, -23.55, 10)
	pt3dadd(279.742, -69.325, -23.95, 10)
  }
  dend[517] {pt3dclear()
	pt3dadd(279.742, -69.325, -23.95, 10)
	pt3dadd(281.101, -65.882, -23.95, 1)
  }
  dend[518] {pt3dclear()
	pt3dadd(281.101, -65.882, -23.95, 1)
	pt3dadd(280.917, -56.45, -23.95, 3)
	pt3dadd(282.514, -57.031, -24.75, 3.5)
	pt3dadd(283.846, -59.219, -24.75, 2)
	pt3dadd(284.444, -60.5, -30.55, 2)
  }
  dend[519] {pt3dclear()
	pt3dadd(284.444, -60.5, -30.55, 2)
	pt3dadd(286.699, -62.492, -33.15, 2)
	pt3dadd(288.278, -64.876, -33.15, 2)
	pt3dadd(290.149, -67.047, -29.35, 1.5)
  }
  dend[520] {pt3dclear()
	pt3dadd(284.444, -60.5, -30.55, 2)
	pt3dadd(282.264, -61.517, -30.55, 1)
  }
  dend[521] {pt3dclear()
	pt3dadd(281.101, -65.882, -23.95, 1)
	pt3dadd(283.356, -66.703, -23.95, 1)
  }
  dend[522] {pt3dclear()
	pt3dadd(279.742, -69.325, -23.95, 10)
	pt3dadd(283.626, -78.827, -23.95, 10)
  }
  dend[523] {pt3dclear()
	pt3dadd(283.626, -78.827, -23.95, 10)
	pt3dadd(283.106, -78.212, -23.85, 3)
	pt3dadd(286.053, -80.348, -23.85, 3)
  }
  dend[524] {pt3dclear()
	pt3dadd(286.053, -80.348, -23.85, 3)
	pt3dadd(288.564, -81.049, -22.25, 3)
  }
  dend[525] {pt3dclear()
	pt3dadd(288.564, -81.049, -22.25, 3)
	pt3dadd(289.743, -81.904, -22.25, 3)
  }
  dend[526] {pt3dclear()
	pt3dadd(289.743, -81.904, -22.25, 3)
	pt3dadd(287.778, -79.699, -24.65, 2)
	pt3dadd(287.702, -76.692, -24.65, 1.5)
	pt3dadd(286.686, -73.343, -24.65, 2.5)
  }
  dend[527] {pt3dclear()
	pt3dadd(289.743, -81.904, -22.25, 3)
	pt3dadd(292.494, -83.118, -22.25, 3)
	pt3dadd(293.903, -83.631, -22.25, 3)
  }
  dend[528] {pt3dclear()
	pt3dadd(293.903, -83.631, -22.25, 3)
	pt3dadd(292.357, -82.324, -24.65, 2)
	pt3dadd(292.648, -78.599, -24.65, 2)
	pt3dadd(293.231, -75.83, -24.65, 2.5)
  }
  dend[529] {pt3dclear()
	pt3dadd(293.903, -83.631, -22.25, 3)
	pt3dadd(296.534, -84.589, -22.25, 2)
	pt3dadd(297.012, -85.614, -22.25, 2)
  }
  dend[530] {pt3dclear()
	pt3dadd(297.012, -85.614, -22.25, 2)
	pt3dadd(297.072, -83.401, -24.65, 2)
	pt3dadd(298.167, -80.395, -24.65, 2)
  }
  dend[531] {pt3dclear()
	pt3dadd(297.012, -85.614, -22.25, 2)
	pt3dadd(297.986, -87.032, -22.25, 2)
	pt3dadd(299.908, -88.477, -22.25, 2)
	pt3dadd(302.052, -89.896, -23.95, 1.5)
	pt3dadd(305.528, -91.162, -28.55, 1)
	pt3dadd(306.17, -92.033, -28.55, 1)
  }
  dend[532] {pt3dclear()
	pt3dadd(306.17, -92.033, -28.55, 1)
	pt3dadd(310.262, -92.778, -28.55, 1)
  }
  dend[533] {pt3dclear()
	pt3dadd(306.17, -92.033, -28.55, 1)
	pt3dadd(306.408, -93.716, -28.55, 1)
  }
  dend[534] {pt3dclear()
	pt3dadd(288.564, -81.049, -22.25, 3)
	pt3dadd(287.913, -85.176, -22.25, 2)
	pt3dadd(287.264, -86.961, -22.25, 2)
  }
  dend[535] {pt3dclear()
	pt3dadd(286.053, -80.348, -23.85, 3)
	pt3dadd(286.744, -82.834, -22.25, 2)
  }
  dend[536] {pt3dclear()
	pt3dadd(283.626, -78.827, -23.95, 10)
	pt3dadd(284.803, -85.534, -25.65, 10)
  }
  dend[537] {pt3dclear()
	pt3dadd(284.803, -85.534, -25.65, 10)
	pt3dadd(284.99, -89.113, -29.05, 10)
  }
  dend[538] {pt3dclear()
	pt3dadd(284.99, -89.113, -29.05, 10)
	pt3dadd(285.205, -85.893, -25.75, 3)
	pt3dadd(287.281, -87.499, -25.85, 2)
  }
  dend[539] {pt3dclear()
	pt3dadd(287.281, -87.499, -25.85, 2)
	pt3dadd(290.621, -87.971, -25.85, 2)
	pt3dadd(292.749, -86.51, -25.85, 2)
	pt3dadd(296.943, -86.972, -25.85, 1.5)
	pt3dadd(298.361, -89.511, -25.85, 1)
  }
  dend[540] {pt3dclear()
	pt3dadd(287.281, -87.499, -25.85, 2)
	pt3dadd(286.463, -81.562, -25.85, 1)
  }
  dend[541] {pt3dclear()
	pt3dadd(284.99, -89.113, -29.05, 10)
	pt3dadd(286.416, -93.676, -27.45, 9)
  }
  dend[542] {pt3dclear()
	pt3dadd(286.416, -93.676, -27.45, 9)
	pt3dadd(286.867, -97.991, -27.45, 8)
	pt3dadd(287.678, -100.733, -25.45, 8)
  }
  dend[543] {pt3dclear()
	pt3dadd(287.678, -100.733, -25.45, 8)
	pt3dadd(287.694, -104.783, -30.75, 9)
	pt3dadd(289.768, -111.072, -28.55, 9)
	pt3dadd(290.784, -115.592, -25.65, 10)
  }
  dend[544] {pt3dclear()
	pt3dadd(290.784, -115.592, -25.65, 10)
  }
}
proc shape3d_9() {
  dend[544] {	pt3dadd(290.834, -118.377, -26.25, 3)
  }
  dend[545] {pt3dclear()
	pt3dadd(290.834, -118.377, -26.25, 3)
	pt3dadd(294.38, -118.284, -26.25, 3)
  }
  dend[546] {pt3dclear()
	pt3dadd(294.38, -118.284, -26.25, 3)
	pt3dadd(296.721, -118.285, -26.45, 3)
  }
  dend[547] {pt3dclear()
	pt3dadd(296.721, -118.285, -26.45, 3)
	pt3dadd(295.722, -115.474, -26.45, 1)
	pt3dadd(298.952, -113.031, -26.45, 1)
	pt3dadd(299.431, -111.715, -27.75, 1)
  }
  dend[548] {pt3dclear()
	pt3dadd(296.721, -118.285, -26.45, 3)
	pt3dadd(302.641, -120.439, -26.45, 3)
  }
  dend[549] {pt3dclear()
	pt3dadd(302.641, -120.439, -26.45, 3)
	pt3dadd(305.803, -117.015, -26.45, 1.5)
	pt3dadd(308.144, -114.674, -26.45, 1.5)
	pt3dadd(309.572, -112.214, -26.45, 1.5)
	pt3dadd(314.178, -110.378, -26.45, 1)
  }
  dend[550] {pt3dclear()
	pt3dadd(302.641, -120.439, -26.45, 3)
	pt3dadd(303.794, -122.242, -26.45, 2)
  }
  dend[551] {pt3dclear()
	pt3dadd(303.794, -122.242, -26.45, 2)
	pt3dadd(305.716, -122.516, -26.45, 2)
	pt3dadd(308.979, -125.832, -26.45, 1.5)
	pt3dadd(312.293, -128.422, -26.45, 1)
  }
  dend[552] {pt3dclear()
	pt3dadd(303.794, -122.242, -26.45, 2)
	pt3dadd(302.836, -124.874, -26.45, 1)
  }
  dend[553] {pt3dclear()
	pt3dadd(294.38, -118.284, -26.25, 3)
	pt3dadd(294.943, -122.001, -26.25, 1)
	pt3dadd(295.01, -122.983, -26.25, 1)
  }
  dend[554] {pt3dclear()
	pt3dadd(290.834, -118.377, -26.25, 3)
	pt3dadd(289.911, -120.914, -26.25, 1)
  }
  dend[555] {pt3dclear()
	pt3dadd(290.784, -115.592, -25.65, 10)
	pt3dadd(290.45, -118.556, -25.65, 10)
  }
  dend[556] {pt3dclear()
	pt3dadd(290.45, -118.556, -25.65, 10)
	pt3dadd(295.037, -120.864, -23.65, 11)
	pt3dadd(295.07, -126.623, -23.65, 10)
  }
  dend[557] {pt3dclear()
	pt3dadd(295.07, -126.623, -23.65, 10)
	pt3dadd(294.821, -127.596, -23.45, 2)
  }
  dend[558] {pt3dclear()
	pt3dadd(294.821, -127.596, -23.45, 2)
	pt3dadd(296.684, -126.572, -26.35, 1)
	pt3dadd(298.111, -126.453, -26.35, 1)
  }
  dend[559] {pt3dclear()
	pt3dadd(298.111, -126.453, -26.35, 1)
	pt3dadd(301.444, -124.899, -26.35, 2)
	pt3dadd(304.143, -125.668, -26.35, 2)
  }
  dend[560] {pt3dclear()
	pt3dadd(304.143, -125.668, -26.35, 2)
	pt3dadd(302.684, -121.2, -26.35, 1)
  }
  dend[561] {pt3dclear()
	pt3dadd(304.143, -125.668, -26.35, 2)
	pt3dadd(308.723, -124.781, -26.35, 1.5)
	pt3dadd(308.723, -124.781, -26.25, 1)
  }
  dend[562] {pt3dclear()
	pt3dadd(308.723, -124.781, -26.25, 1)
	pt3dadd(311.491, -123.023, -26.35, 1)
  }
  dend[563] {pt3dclear()
	pt3dadd(308.723, -124.781, -26.25, 1)
	pt3dadd(310.098, -126.559, -26.35, 1)
  }
  dend[564] {pt3dclear()
	pt3dadd(298.111, -126.453, -26.35, 1)
	pt3dadd(300.178, -128.375, -26.35, 1)
  }
  dend[565] {pt3dclear()
	pt3dadd(294.821, -127.596, -23.45, 2)
	pt3dadd(297.648, -130.647, -23.45, 1)
	pt3dadd(299.211, -133.664, -23.45, 1)
  }
  dend[566] {pt3dclear()
	pt3dadd(299.211, -133.664, -23.45, 1)
	pt3dadd(301.09, -135.518, -26.35, 1)
	pt3dadd(302.559, -137.33, -26.35, 1.5)
	pt3dadd(305.472, -139.561, -26.35, 2)
	pt3dadd(309.016, -141.809, -26.35, 2)
  }
  dend[567] {pt3dclear()
	pt3dadd(299.211, -133.664, -23.45, 1)
	pt3dadd(297.177, -133.988, -22.15, 0.5)
  }
  dend[568] {pt3dclear()
	pt3dadd(295.07, -126.623, -23.65, 10)
	pt3dadd(294.591, -127.938, -23.65, 10)
  }
  dend[569] {pt3dclear()
	pt3dadd(294.591, -127.938, -23.65, 10)
	pt3dadd(295.649, -132.048, -25.45, 9)
	pt3dadd(294.16, -137.891, -25.45, 9)
  }
  dend[570] {pt3dclear()
	pt3dadd(294.16, -137.891, -25.45, 9)
	pt3dadd(294.203, -140.993, -29.55, 9)
	pt3dadd(294.321, -145.931, -29.55, 9)
	pt3dadd(294.148, -151.082, -29.55, 9)
	pt3dadd(293.874, -154.175, -28.15, 9)
	pt3dadd(293.557, -156.507, -28.15, 10)
  }
  dend[571] {pt3dclear()
	pt3dadd(293.557, -156.507, -28.15, 10)
	pt3dadd(293.223, -159.472, -33.35, 11)
	pt3dadd(292.735, -163.445, -30.45, 10)
  }
  dend[572] {pt3dclear()
	pt3dadd(292.735, -163.445, -30.45, 10)
	pt3dadd(293.4, -165.71, -30.45, 10)
  }
  dend[573] {pt3dclear()
	pt3dadd(293.4, -165.71, -30.45, 10)
	pt3dadd(299.921, -159.781, -39.05, 3)
	pt3dadd(302.586, -162.986, -39.05, 3)
	pt3dadd(307.472, -164.765, -39.05, 3)
  }
  dend[574] {pt3dclear()
	pt3dadd(307.472, -164.765, -39.05, 3)
	pt3dadd(310.394, -164.338, -45.85, 2)
	pt3dadd(313.325, -164.767, -45.85, 2)
  }
  dend[575] {pt3dclear()
	pt3dadd(313.325, -164.767, -45.85, 2)
	pt3dadd(316.461, -161.12, -47.75, 1.5)
  }
  dend[576] {pt3dclear()
	pt3dadd(313.325, -164.767, -45.85, 2)
	pt3dadd(317.741, -165.203, -41.35, 2)
  }
  dend[577] {pt3dclear()
	pt3dadd(317.741, -165.203, -41.35, 2)
	pt3dadd(322.312, -165.803, -41.35, 1.5)
	pt3dadd(326.431, -163.259, -41.35, 1.5)
  }
  dend[578] {pt3dclear()
	pt3dadd(317.741, -165.203, -41.35, 2)
	pt3dadd(316.783, -167.835, -41.35, 1)
  }
  dend[579] {pt3dclear()
	pt3dadd(307.472, -164.765, -39.05, 3)
	pt3dadd(307.983, -169.207, -39.05, 2)
	pt3dadd(309.016, -173.095, -39.05, 2)
	pt3dadd(309.707, -176.752, -39.35, 2)
  }
  dend[580] {pt3dclear()
	pt3dadd(309.707, -176.752, -39.35, 2)
	pt3dadd(312.894, -177.061, -47.85, 2)
  }
  dend[581] {pt3dclear()
	pt3dadd(309.707, -176.752, -39.35, 2)
	pt3dadd(309.228, -178.067, -39.35, 2)
  }
  dend[582] {pt3dclear()
	pt3dadd(309.228, -178.067, -39.35, 2)
	pt3dadd(308.749, -181.725, -39.35, 2.5)
	pt3dadd(309.106, -186.005, -39.35, 2.5)
	pt3dadd(308.729, -189.379, -39.35, 2)
  }
  dend[583] {pt3dclear()
	pt3dadd(308.729, -189.379, -39.35, 2)
	pt3dadd(311.54, -187.21, -50.65, 1.5)
	pt3dadd(314.344, -185.356, -50.65, 1)
	pt3dadd(318.394, -183, -50.65, 1)
  }
  dend[584] {pt3dclear()
	pt3dadd(308.729, -189.379, -39.35, 2)
	pt3dadd(308.37, -189.781, -39.35, 2)
  }
  dend[585] {pt3dclear()
	pt3dadd(308.37, -189.781, -39.35, 2)
	pt3dadd(307.643, -193.241, -40.55, 3)
	pt3dadd(306.651, -195.966, -40.55, 3)
  }
  dend[586] {pt3dclear()
	pt3dadd(306.651, -195.966, -40.55, 3)
	pt3dadd(311.085, -195.77, -47.95, 1)
	pt3dadd(313.289, -197.318, -47.95, 1)
	pt3dadd(313.084, -199.052, -47.95, 1)
  }
  dend[587] {pt3dclear()
	pt3dadd(306.651, -195.966, -40.55, 3)
	pt3dadd(305.044, -200.383, -40.55, 3)
  }
  dend[588] {pt3dclear()
	pt3dadd(305.044, -200.383, -40.55, 3)
	pt3dadd(307.599, -199.503, -47.95, 1.5)
  }
  dend[589] {pt3dclear()
	pt3dadd(307.599, -199.503, -47.95, 1.5)
	pt3dadd(308.742, -203.963, -47.95, 0.7)
  }
  dend[590] {pt3dclear()
	pt3dadd(307.599, -199.503, -47.95, 1.5)
	pt3dadd(310.213, -199.923, -47.95, 1)
  }
  dend[591] {pt3dclear()
	pt3dadd(305.044, -200.383, -40.55, 3)
	pt3dadd(303.47, -204.706, -43.55, 2)
  }
  dend[592] {pt3dclear()
	pt3dadd(303.47, -204.706, -43.55, 2)
	pt3dadd(303.043, -204.123, -43.55, 2)
  }
  dend[593] {pt3dclear()
	pt3dadd(303.043, -204.123, -43.55, 2)
	pt3dadd(306.263, -206.679, -50.75, 1.5)
  }
  dend[594] {pt3dclear()
	pt3dadd(303.043, -204.123, -43.55, 2)
	pt3dadd(300.854, -210.138, -43.55, 1)
	pt3dadd(300.169, -215.529, -50.75, 1)
	pt3dadd(299.151, -219.202, -50.75, 1)
  }
  dend[595] {pt3dclear()
	pt3dadd(299.151, -219.202, -50.75, 1)
	pt3dadd(302.313, -219.288, -50.75, 2)
  }
  dend[596] {pt3dclear()
	pt3dadd(299.151, -219.202, -50.75, 1)
	pt3dadd(297.714, -226.66, -50.75, 0.7)
	pt3dadd(294.141, -232.383, -50.75, 0.5)
	pt3dadd(290.551, -238.739, -50.75, 0.3)
  }
  dend[597] {pt3dclear()
	pt3dadd(303.47, -204.706, -43.55, 2)
	pt3dadd(298.455, -204.156, -43.55, 2)
	pt3dadd(295.311, -208.12, -43.55, 1)
  }
  dend[598] {pt3dclear()
	pt3dadd(308.37, -189.781, -39.35, 2)
	pt3dadd(304.988, -188.55, -42.95, 1)
  }
  dend[599] {pt3dclear()
	pt3dadd(304.988, -188.55, -42.95, 1)
	pt3dadd(301.426, -184.593, -42.95, 1)
	pt3dadd(299.471, -180.902, -42.95, 1)
  }
  dend[600] {pt3dclear()
	pt3dadd(304.988, -188.55, -42.95, 1)
	pt3dadd(301.972, -188.942, -42.95, 1)
  }
  dend[601] {pt3dclear()
	pt3dadd(309.228, -178.067, -39.35, 2)
	pt3dadd(305.324, -177.392, -39.35, 1)
  }
  dend[602] {pt3dclear()
	pt3dadd(293.4, -165.71, -30.45, 10)
	pt3dadd(290.784, -171.142, -30.45, 6)
	pt3dadd(289.578, -175.917, -30.45, 6)
	pt3dadd(289.347, -180.941, -30.45, 6)
  }
  dend[603] {pt3dclear()
	pt3dadd(289.347, -180.941, -30.45, 6)
	pt3dadd(289.823, -185.477, -31.45, 5)
	pt3dadd(289.541, -188.886, -34.65, 4)
	pt3dadd(289.881, -193.799, -33.85, 5)
	pt3dadd(289.042, -199.028, -33.85, 4)
	pt3dadd(287.793, -204.213, -33.85, 5)
  }
  dend[604] {pt3dclear()
	pt3dadd(287.793, -204.213, -33.85, 5)
	pt3dadd(292.603, -204.155, -35.85, 2.5)
	pt3dadd(294.764, -204.942, -39.05, 2)
  }
  dend[605] {pt3dclear()
	pt3dadd(287.793, -204.213, -33.85, 5)
	pt3dadd(287.28, -205.623, -33.85, 5)
  }
  dend[606] {pt3dclear()
	pt3dadd(287.28, -205.623, -33.85, 5)
	pt3dadd(286.382, -209.553, -39.55, 4)
	pt3dadd(285.603, -212.568, -39.55, 4)
	pt3dadd(284.244, -214.84, -39.55, 4)
	pt3dadd(282.082, -216.395, -39.55, 2)
	pt3dadd(281.91, -219.206, -39.55, 3)
  }
  dend[607] {pt3dclear()
	pt3dadd(281.91, -219.206, -39.55, 3)
	pt3dadd(281.363, -223.05, -38.25, 4)
	pt3dadd(281.576, -225.682, -38.25, 4)
  }
  dend[608] {pt3dclear()
	pt3dadd(281.576, -225.682, -38.25, 4)
	pt3dadd(284.711, -224.375, -37.05, 2)
	pt3dadd(287.625, -224.265, -37.05, 2)
	pt3dadd(290.436, -225.608, -37.05, 1.5)
  }
  dend[609] {pt3dclear()
	pt3dadd(290.436, -225.608, -37.05, 1.5)
	pt3dadd(291.563, -224.847, -36.45, 1)
  }
  dend[610] {pt3dclear()
	pt3dadd(290.436, -225.608, -37.05, 1.5)
	pt3dadd(291.614, -227.632, -38.55, 1)
  }
  dend[611] {pt3dclear()
	pt3dadd(281.576, -225.682, -38.25, 4)
	pt3dadd(280.207, -229.44, -38.25, 4)
  }
  dend[612] {pt3dclear()
	pt3dadd(280.207, -229.44, -38.25, 4)
	pt3dadd(279.293, -232.832, -36.85, 4)
  }
  dend[613] {pt3dclear()
	pt3dadd(279.293, -232.832, -36.85, 4)
	pt3dadd(283.666, -233.679, -35.15, 2)
	pt3dadd(285.588, -235.124, -35.15, 1)
  }
  dend[614] {pt3dclear()
	pt3dadd(279.293, -232.832, -36.85, 4)
	pt3dadd(278.778, -237.753, -36.85, 4)
  }
  dend[615] {pt3dclear()
	pt3dadd(278.778, -237.753, -36.85, 4)
	pt3dadd(282.024, -240.531, -38.95, 1)
	pt3dadd(283.245, -243.316, -38.95, 1)
  }
}
proc shape3d_10() {
  dend[615] {	pt3dadd(284.569, -245.82, -38.95, 1)
  }
  dend[616] {pt3dclear()
	pt3dadd(278.778, -237.753, -36.85, 4)
	pt3dadd(274.505, -243.646, -36.85, 4)
	pt3dadd(271.402, -247.199, -36.85, 4)
	pt3dadd(268.299, -251.923, -36.85, 4)
	pt3dadd(265.744, -255.144, -36.85, 3)
	pt3dadd(262.531, -258.124, -43.15, 2)
	pt3dadd(255.798, -260.25, -43.15, 2)
	pt3dadd(251.901, -262.769, -43.15, 1)
	pt3dadd(247.988, -264.75, -43.15, 1.5)
	pt3dadd(242.683, -263.245, -43.15, 1)
	pt3dadd(237.839, -259.885, -43.15, 0.8)
	pt3dadd(233.61, -258.346, -43.15, 1)
  }
  dend[617] {pt3dclear()
	pt3dadd(280.207, -229.44, -38.25, 4)
	pt3dadd(275.585, -231.908, -35.45, 2)
  }
  dend[618] {pt3dclear()
	pt3dadd(275.585, -231.908, -35.45, 2)
	pt3dadd(274.029, -234.428, -33.55, 1)
	pt3dadd(271.38, -236.443, -33.55, 1)
  }
  dend[619] {pt3dclear()
	pt3dadd(271.38, -236.443, -33.55, 1)
	pt3dadd(273.865, -239.264, -37.45, 1)
  }
  dend[620] {pt3dclear()
	pt3dadd(271.38, -236.443, -33.55, 1)
	pt3dadd(267.799, -238.971, -33.55, 1)
	pt3dadd(262.219, -241.73, -33.55, 1.5)
	pt3dadd(257.485, -244.795, -33.55, 1)
	pt3dadd(253.434, -249.493, -40.35, 1)
  }
  dend[621] {pt3dclear()
	pt3dadd(275.585, -231.908, -35.45, 2)
	pt3dadd(273.347, -229.284, -33.55, 1)
  }
  dend[622] {pt3dclear()
	pt3dadd(281.91, -219.206, -39.55, 3)
	pt3dadd(278.579, -218.419, -39.55, 1.5)
	pt3dadd(275.947, -217.461, -39.55, 2)
  }
  dend[623] {pt3dclear()
	pt3dadd(275.947, -217.461, -39.55, 2)
	pt3dadd(273.563, -219.041, -42.25, 1)
  }
  dend[624] {pt3dclear()
	pt3dadd(275.947, -217.461, -39.55, 2)
	pt3dadd(274.752, -213.727, -42.25, 1)
  }
  dend[625] {pt3dclear()
	pt3dadd(287.28, -205.623, -33.85, 5)
	pt3dadd(282.461, -204.827, -37.75, 2)
	pt3dadd(279.804, -204.818, -37.85, 1.5)
	pt3dadd(277.507, -204.407, -37.85, 1.5)
	pt3dadd(275.156, -204.722, -34.15, 2)
	pt3dadd(273.32, -204.798, -34.15, 1.5)
  }
  dend[626] {pt3dclear()
	pt3dadd(289.347, -180.941, -30.45, 6)
	pt3dadd(283.751, -179.65, -30.55, 2)
  }
  dend[627] {pt3dclear()
	pt3dadd(283.751, -179.65, -30.55, 2)
	pt3dadd(280.939, -180.649, -31.45, 2)
	pt3dadd(278.103, -181.425, -31.45, 2)
  }
  dend[628] {pt3dclear()
	pt3dadd(283.751, -179.65, -30.55, 2)
	pt3dadd(281.103, -176.983, -30.55, 2)
	pt3dadd(278.002, -175.855, -35.15, 2)
  }
  dend[629] {pt3dclear()
	pt3dadd(292.735, -163.445, -30.45, 10)
	pt3dadd(285.508, -161.665, -30.45, 2)
  }
  dend[630] {pt3dclear()
	pt3dadd(293.557, -156.507, -28.15, 10)
	pt3dadd(287.552, -155.173, -30.65, 3)
  }
  dend[631] {pt3dclear()
	pt3dadd(287.552, -155.173, -30.65, 3)
	pt3dadd(286.543, -156.19, -33.35, 2)
	pt3dadd(281.946, -158.88, -33.35, 2)
  }
  dend[632] {pt3dclear()
	pt3dadd(287.552, -155.173, -30.65, 3)
	pt3dadd(286.8, -152.559, -30.65, 2)
	pt3dadd(284.059, -149.857, -30.65, 2)
  }
  dend[633] {pt3dclear()
	pt3dadd(294.16, -137.891, -25.45, 9)
	pt3dadd(289.59, -137.293, -25.45, 4)
  }
  dend[634] {pt3dclear()
	pt3dadd(289.59, -137.293, -25.45, 4)
	pt3dadd(288.41, -139.949, -29.55, 2)
	pt3dadd(287.342, -142.007, -29.55, 2)
  }
  dend[635] {pt3dclear()
	pt3dadd(289.59, -137.293, -25.45, 4)
	pt3dadd(286.284, -136.727, -32.05, 3)
	pt3dadd(283.208, -134.65, -32.05, 3)
	pt3dadd(281.012, -135.128, -33.65, 4)
  }
  dend[636] {pt3dclear()
	pt3dadd(294.591, -127.938, -23.65, 10)
	pt3dadd(288.081, -126.527, -29.05, 2)
  }
  dend[637] {pt3dclear()
	pt3dadd(288.081, -126.527, -29.05, 2)
	pt3dadd(285.91, -129.568, -28.25, 2)
  }
  dend[638] {pt3dclear()
	pt3dadd(288.081, -126.527, -29.05, 2)
	pt3dadd(285.731, -126.842, -28.25, 2)
	pt3dadd(284.04, -126.226, -28.25, 1.5)
	pt3dadd(282.655, -127.106, -28.25, 1.5)
	pt3dadd(282.323, -127.73, -28.25, 1)
  }
  dend[639] {pt3dclear()
	pt3dadd(290.45, -118.556, -25.65, 10)
	pt3dadd(288.28, -118.086, -25.85, 2)
	pt3dadd(284.607, -117.068, -25.85, 2)
	pt3dadd(282.445, -116.282, -28.65, 2)
	pt3dadd(279.25, -115.119, -28.65, 2)
  }
  dend[640] {pt3dclear()
	pt3dadd(287.678, -100.733, -25.45, 8)
	pt3dadd(281.484, -101.672, -30.75, 3)
	pt3dadd(279.127, -101.133, -30.75, 3)
	pt3dadd(276.888, -100.85, -30.75, 3)
  }
  dend[641] {pt3dclear()
	pt3dadd(286.416, -93.676, -27.45, 9)
	pt3dadd(279.725, -95.392, -27.45, 2)
  }
  dend[642] {pt3dclear()
	pt3dadd(284.803, -85.534, -25.65, 10)
	pt3dadd(277.952, -85.062, -30.45, 2)
	pt3dadd(276.551, -84.233, -30.45, 2)
	pt3dadd(275.398, -82.429, -34.05, 1.5)
	pt3dadd(274.202, -81.037, -34.05, 1)
  }
  dend[643] {pt3dclear()
	pt3dadd(274.389, -53.33, -24.85, 10)
	pt3dadd(269.007, -54.669, -19.85, 2)
  }
  dend[644] {pt3dclear()
	pt3dadd(273.145, -44.47, -29.35, 10)
	pt3dadd(268.865, -44.827, -24.45, 3)
	pt3dadd(266.609, -45.177, -20.65, 3)
  }
  dend[645] {pt3dclear()
	pt3dadd(266.609, -45.177, -20.65, 3)
	pt3dadd(266.515, -48.654, -24.35, 2)
  }
  dend[646] {pt3dclear()
	pt3dadd(266.609, -45.177, -20.65, 3)
	pt3dadd(266.148, -44.69, -17.95, 3)
  }
  dend[647] {pt3dclear()
	pt3dadd(266.148, -44.69, -17.95, 3)
	pt3dadd(263.276, -46.731, -20.25, 2)
  }
  dend[648] {pt3dclear()
	pt3dadd(266.148, -44.69, -17.95, 3)
	pt3dadd(264.918, -42.22, -20.25, 2)
  }
  dend[649] {pt3dclear()
	pt3dadd(271.101, -23.187, -15.05, 12)
	pt3dadd(262.378, -22.886, -19.65, 3)
	pt3dadd(262.378, -22.886, -22.85, 3)
  }
  dend[650] {pt3dclear()
	pt3dadd(262.378, -22.886, -22.85, 3)
	pt3dadd(260.918, -20.758, -29.35, 2)
  }
  dend[651] {pt3dclear()
	pt3dadd(262.378, -22.886, -22.85, 3)
	pt3dadd(262.514, -24.851, -27.75, 2)
  }
  dend[652] {pt3dclear()
	pt3dadd(269.378, -14.472, -19.45, 14)
	pt3dadd(263.893, -13.753, -20.55, 3)
	pt3dadd(262.074, -13.197, -23.35, 2)
  }
  dend[653] {pt3dclear()
	pt3dadd(266.109, -4.449, -24.45, 14)
	pt3dadd(263.767, -5.62, -26.85, 2)
	pt3dadd(262.152, -6.841, -30.45, 2)
	pt3dadd(259.264, -8.343, -31.55, 2)
  }
  axon[1] {pt3dclear()
	pt3dstyle(1, 159.22, 53.61, 11.05)
	pt3dadd(156.887, 50.415, 11.05, 35)
	pt3dadd(154.741, 47.152, 15.45, 30)
	pt3dadd(149.545, 43.403, 18.65, 22)
	pt3dadd(145.469, 40.098, 21.35, 20)
	pt3dadd(138.676, 34.59, 21.35, 15)
	pt3dadd(132.685, 28.363, 24.65, 17)
	pt3dadd(119.687, 16.918, 24.65, 16)
	pt3dadd(112.995, 9.351, 26.85, 14)
	pt3dadd(105.791, 2.715, 29.05, 11)
	pt3dadd(97.058, 0.359, 31.85, 11)
	pt3dadd(88.907, -2.74, 34.85, 11)
	pt3dadd(80.183, -5.95, 34.85, 11)
	pt3dadd(71.288, -9.629, 34.85, 11)
	pt3dadd(60.812, -13.266, 34.85, 11)
	pt3dadd(51.131, -16.766, 38.25, 10)
	pt3dadd(43.074, -19.899, 38.25, 9)
	pt3dadd(34.239, -22.536, 38.55, 8)
	pt3dadd(28.002, -22.714, 50.05, 8)
  }
  axon[2] {pt3dclear()
	pt3dadd(28.002, -22.714, 50.05, 8)
	pt3dadd(20.167, -24.651, 43.65, 7)
	pt3dadd(12.99, -25.657, 43.65, 7)
	pt3dadd(6.71, -27.415, 43.65, 8)
	pt3dadd(-3.38, -28.531, 43.65, 9)
	pt3dadd(-15.529, -29.75, 43.65, 10)
	pt3dadd(-30.446, -29.215, 43.65, 9)
	pt3dadd(-46.901, -29.398, 46.55, 10)
	pt3dadd(-58.683, -29.899, 46.55, 11)
	pt3dadd(-70.405, -31.698, 46.55, 11)
	pt3dadd(-80.863, -33.532, 46.55, 11)
	pt3dadd(-95.216, -33.203, 46.55, 10)
	pt3dadd(-105.264, -33.909, 46.55, 10)
	pt3dadd(-111.441, -33.045, 46.55, 9)
	pt3dadd(-116.465, -33.983, 46.55, 10)
	pt3dadd(-117.712, -34.487, 46.55, 10)
	pt3dadd(-121.949, -32.093, 46.55, 10)
	pt3dadd(-126.178, -30.554, 46.55, 10)
	pt3dadd(-133.346, -31.244, 42.05, 9)
	pt3dadd(-137.565, -28.218, 45.25, 9)
	pt3dadd(-142.828, -28.644, 45.25, 8)
	pt3dadd(-146.631, -30.027, 45.55, 5)
  }
  axon[3] {pt3dclear()
	pt3dadd(-146.631, -30.027, 45.55, 5)
	pt3dadd(-150.543, -27.326, 45.55, 3.5)
	pt3dadd(-155.977, -28.221, 45.55, 3)
	pt3dadd(-157.711, -26.846, 45.55, 3)
  }
  axon[4] {pt3dclear()
	pt3dadd(-157.711, -26.846, 45.55, 3)
	pt3dadd(-160.88, -24.734, 45.55, 3)
	pt3dadd(-162.921, -24.204, 45.55, 3)
	pt3dadd(-166.142, -21.648, 45.55, 3.7)
	pt3dadd(-168.773, -20.69, 45.55, 3)
	pt3dadd(-170.276, -20.144, 45.55, 4)
	pt3dadd(-172.813, -19.22, 45.55, 5)
	pt3dadd(-174.522, -19.237, 45.55, 6)
	pt3dadd(-177.273, -16.852, 42.45, 5)
	pt3dadd(-179.998, -17.03, 42.45, 3.6)
	pt3dadd(-181.835, -17.107, 42.45, 3)
	pt3dadd(-186.031, -18.986, 42.45, 2.7)
	pt3dadd(-187.815, -17.166, 42.45, 3)
	pt3dadd(-189.695, -16.481, 42.75, 4)
	pt3dadd(-190.608, -14.02, 42.75, 4)
  }
  axon[5] {pt3dclear()
	pt3dadd(-190.608, -14.02, 42.75, 4)
	pt3dadd(-193.454, -15.113, 42.75, 3.7)
	pt3dadd(-197.332, -15.83, 42.75, 3)
	pt3dadd(-201.954, -14.786, 45.95, 3)
	pt3dadd(-208.054, -15.758, 45.95, 2)
	pt3dadd(-211.062, -14.664, 45.95, 2.7)
	pt3dadd(-213.95, -16.166, 45.95, 2)
	pt3dadd(-217.137, -15.858, 45.95, 3.6)
	pt3dadd(-219.126, -13.43, 45.95, 4)
	pt3dadd(-222.861, -14.627, 45.95, 2)
	pt3dadd(-227.243, -14.095, 45.95, 2)
	pt3dadd(-231.584, -14.325, 45.95, 1.8)
  }
  axon[6] {pt3dclear()
	pt3dadd(-231.584, -14.325, 45.95, 1.8)
	pt3dadd(-233.112, -13.555, 45.95, 2.5)
  }
  axon[7] {pt3dclear()
	pt3dadd(-233.112, -13.555, 45.95, 2.5)
	pt3dadd(-234.89, -14.93, 48.05, 2.5)
	pt3dadd(-238.171, -13.416, 48.05, 3)
	pt3dadd(-241.57, -11.647, 48.05, 4.7)
  }
  axon[8] {pt3dclear()
	pt3dadd(-241.57, -11.647, 48.05, 4.7)
	pt3dadd(-244.244, -12.27, 48.05, 4)
	pt3dadd(-247.525, -13.098, 48.05, 4)
  }
}
proc shape3d_11() {
  axon[8] {	pt3dadd(-252.66, -13.464, 48.05, 3.5)
	pt3dadd(-258.35, -14.478, 48.05, 3)
	pt3dadd(-263.895, -14.802, 48.05, 3)
	pt3dadd(-268.013, -16.176, 47.15, 3)
  }
  axon[9] {pt3dclear()
	pt3dadd(-268.013, -16.176, 47.15, 3)
	pt3dadd(-268.287, -14.587, 47.15, 3)
  }
  axon[10] {pt3dclear()
	pt3dadd(-268.287, -14.587, 47.15, 3)
	pt3dadd(-272.03, -16.098, 47.15, 2.7)
	pt3dadd(-275.335, -16.704, 47.15, 3)
	pt3dadd(-277.865, -16.634, 47.15, 2.5)
  }
  axon[11] {pt3dclear()
	pt3dadd(-277.865, -16.634, 47.15, 2.5)
	pt3dadd(-282.171, -15.599, 48.85, 2)
	pt3dadd(-284.998, -13.719, 48.85, 2.5)
	pt3dadd(-287.894, -13.197, 48.85, 2.5)
	pt3dadd(-291.542, -11.231, 48.85, 2)
	pt3dadd(-293.54, -9.12, 48.85, 2.5)
	pt3dadd(-297.112, -10.161, 48.85, 3)
	pt3dadd(-299.81, -8.221, 48.85, 2.5)
	pt3dadd(-302.083, -6.862, 48.85, 2)
	pt3dadd(-304.852, -9.792, 48.85, 1.5)
	pt3dadd(-306.304, -7.348, 48.85, 1.5)
	pt3dadd(-309.02, -7.21, 48.85, 2.5)
  }
  axon[12] {pt3dclear()
	pt3dadd(-309.02, -7.21, 48.85, 2.5)
	pt3dadd(-309.165, -5.561, 48.85, 2)
  }
  axon[13] {pt3dclear()
	pt3dadd(-309.165, -5.561, 48.85, 2)
	pt3dadd(-311.66, -5.398, 48.85, 1.5)
	pt3dadd(-314.496, -6.175, 48.85, 2)
	pt3dadd(-318.094, -6.994, 48.85, 2.5)
  }
  axon[14] {pt3dclear()
	pt3dadd(-318.094, -6.994, 48.85, 2.5)
	pt3dadd(-318.597, -5.747, 50.65, 2.5)
  }
  axon[15] {pt3dclear()
	pt3dadd(-318.597, -5.747, 50.65, 2.5)
	pt3dadd(-322.272, -7.069, 50.65, 2.5)
	pt3dadd(-326.431, -6.513, 50.65, 3)
  }
  axon[16] {pt3dclear()
	pt3dadd(-318.597, -5.747, 50.65, 2.5)
	pt3dadd(-320.886, -2.679, 48.85, 2.5)
  }
  axon[17] {pt3dclear()
	pt3dadd(-318.094, -6.994, 48.85, 2.5)
	pt3dadd(-318.487, -9.831, 48.85, 3)
  }
  axon[18] {pt3dclear()
	pt3dadd(-309.165, -5.561, 48.85, 2)
	pt3dadd(-311.77, -3.656, 48.85, 0.5)
	pt3dadd(-312.47, -0.315, 48.85, 2)
  }
  axon[19] {pt3dclear()
	pt3dadd(-309.02, -7.21, 48.85, 2.5)
	pt3dadd(-310.799, -12.097, 48.85, 3)
  }
  axon[20] {pt3dclear()
	pt3dadd(-277.865, -16.634, 47.15, 2.5)
	pt3dadd(-278.558, -21.172, 47.15, 0.5)
	pt3dadd(-277.832, -23.563, 47.15, 0.5)
  }
  axon[21] {pt3dclear()
	pt3dadd(-268.287, -14.587, 47.15, 3)
	pt3dadd(-270.029, -11.186, 47.15, 0.5)
	pt3dadd(-273.112, -9.425, 47.15, 1)
  }
  axon[22] {pt3dclear()
	pt3dadd(-268.013, -16.176, 47.15, 3)
	pt3dadd(-269.245, -19.559, 47.15, 2.5)
	pt3dadd(-270.066, -21.814, 50.75, 2)
  }
  axon[23] {pt3dclear()
	pt3dadd(-241.57, -11.647, 48.05, 4.7)
	pt3dadd(-243.509, -7.324, 48.05, 0.4)
	pt3dadd(-245.362, -5.692, 48.05, 1.5)
	pt3dadd(-246.531, -3.35, 48.05, 1)
	pt3dadd(-247.676, -0.06, 48.05, 0.5)
	pt3dadd(-250.323, 2.606, 48.05, 1)
	pt3dadd(-251.775, 5.05, 48.05, 1.7)
	pt3dadd(-252.466, 6.365, 48.05, 0.6)
  }
  axon[24] {pt3dclear()
	pt3dadd(-233.112, -13.555, 45.95, 2.5)
	pt3dadd(-231.813, -9.984, 45.95, 1)
  }
  axon[25] {pt3dclear()
	pt3dadd(-231.584, -14.325, 45.95, 1.8)
	pt3dadd(-232.089, -18.93, 45.95, 1)
  }
  axon[26] {pt3dclear()
	pt3dadd(-190.608, -14.02, 42.75, 4)
	pt3dadd(-192.974, -10.286, 42.75, 1.7)
	pt3dadd(-195.878, -6.569, 42.75, 2)
	pt3dadd(-197.937, -5.5, 42.75, 1.3)
	pt3dadd(-200.062, -2.279, 42.75, 2)
	pt3dadd(-202.241, -0.954, 42.75, 2)
	pt3dadd(-205.204, 1.721, 42.75, 1.6)
	pt3dadd(-207.621, 3.559, 42.75, 1.8)
	pt3dadd(-209.073, 6.003, 42.75, 1)
	pt3dadd(-211.508, 8.379, 42.75, 1)
	pt3dadd(-212.567, 10.147, 42.75, 1.6)
	pt3dadd(-211.805, 11.36, 42.75, 1.5)
	pt3dadd(-210.311, 11.668, 42.75, 2)
  }
  axon[27] {pt3dclear()
	pt3dadd(-157.711, -26.846, 45.55, 3)
	pt3dadd(-157.983, -20.574, 45.55, 1)
	pt3dadd(-158.767, -18.054, 45.55, 1)
	pt3dadd(-155.332, -16.218, 45.55, 1)
  }
  axon[28] {pt3dclear()
	pt3dadd(-146.631, -30.027, 45.55, 5)
	pt3dadd(-145.859, -22.646, 45.55, 4)
	pt3dadd(-144.56, -19.075, 45.55, 3)
	pt3dadd(-144.379, -15.948, 45.55, 3.6)
	pt3dadd(-145.028, -11.881, 45.55, 3)
  }
  axon[29] {pt3dclear()
	pt3dadd(-145.028, -11.881, 45.55, 3)
	pt3dadd(-145.633, -9.745, 45.55, 3)
	pt3dadd(-146.479, -7.096, 45.55, 3)
	pt3dadd(-146.119, -4.354, 45.55, 2.7)
  }
  axon[30] {pt3dclear()
	pt3dadd(-146.119, -4.354, 45.55, 2.7)
	pt3dadd(-144.982, -3.278, 45.55, 2.8)
  }
  axon[31] {pt3dclear()
	pt3dadd(-144.982, -3.278, 45.55, 2.8)
	pt3dadd(-145.529, -2.44, 45.25, 3)
	pt3dadd(-144.777, -0.373, 45.25, 3.7)
	pt3dadd(-144.691, 2.788, 45.25, 4)
  }
  axon[32] {pt3dclear()
	pt3dadd(-144.982, -3.278, 45.55, 2.8)
	pt3dadd(-140.479, -2.895, 45.55, 0.5)
	pt3dadd(-138.738, -5.125, 45.55, 0.5)
	pt3dadd(-136.132, -7.031, 45.55, 1)
  }
  axon[33] {pt3dclear()
	pt3dadd(-146.119, -4.354, 45.55, 2.7)
	pt3dadd(-150.562, -3.695, 45.55, 0.4)
	pt3dadd(-154.32, -2.327, 45.55, 0.4)
	pt3dadd(-155.413, -0.652, 45.55, 0.4)
	pt3dadd(-159.079, 0.682, 45.55, 0.4)
	pt3dadd(-160.959, -0.975, 45.55, 1.6)
	pt3dadd(-163.77, -1.973, 45.55, 1.7)
  }
  axon[34] {pt3dclear()
	pt3dadd(-145.028, -11.881, 45.55, 3)
	pt3dadd(-140.022, -12.745, 45.55, 1)
	pt3dadd(-138.647, -14.522, 45.55, 1)
	pt3dadd(-136.878, -16.975, 45.55, 1)
  }
  soma {pt3dclear()
	pt3dadd(28.002, -22.714, 50.05, 8)
	pt3dadd(22.595, -19.15, 43.85, 3)
  }
  soma[1] {pt3dclear()
	pt3dadd(22.595, -19.15, 43.85, 3)
	pt3dadd(22.629, -19.056, 43.85, 3)
  }
  soma[2] {pt3dclear()
	pt3dadd(22.595, -19.15, 43.85, 3)
	pt3dadd(22.561, -19.244, 43.85, 3)
	pt3dadd(17.914, -17.978, 43.85, 4)
	pt3dadd(13.856, -17.139, 43.85, 5)
	pt3dadd(8.243, -16.48, 43.85, 10)
	pt3dadd(4.766, -15.214, 43.85, 15)
	pt3dadd(1.195, -13.915, 40.85, 20)
	pt3dadd(-1.718, -12.854, 40.85, 24)
	pt3dadd(-4.819, -11.726, 40.85, 25)
	pt3dadd(-7.638, -10.7, 38.55, 24)
	pt3dadd(-10.457, -9.674, 38.55, 20)
	pt3dadd(-12.618, -8.887, 38.55, 15)
	pt3dadd(-13.276, -8.648, 38.55, 11)
	pt3dadd(-15.301, -9.826, 38.55, 5)
  }
}
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()
}

objref all, somatic, axonal, basal
proc subsets() { local i
  objref all, somatic, axonal, basal
  all = new SectionList()
    for i=0, 34 axon[i] all.append()
    for i=0, 653 dend[i] all.append()
    for i=0, 2 soma[i] all.append()

  somatic = new SectionList()
    for i=0, 2 soma[i] somatic.append()

  axonal = new SectionList()
    for i=0, 34 axon[i] axonal.append()

  basal = new SectionList()
    for i=0, 653 dend[i] basal.append()

}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
  forsec all {
    Ra = 40
    cm = 0.8
    insert pas
      g_pas = 0.0005
      e_pas = -55
  }
}
access axon

celldef()