Drosophila 3rd instar larval aCC motoneuron (Gunay et al. 2015)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:152028
Single compartmental, ball-and-stick models implemented in XPP and full morphological model in Neuron. Paper has been submitted and correlates anatomical properties with electrophysiological recordings from these hard-to-access neurons. For instance we make predictions about location of the spike initiation zone, channel distributions, and synaptic input parameters.
Reference:
1 . Günay C, Sieling FH, Dharmar L, Lin WH, Wolfram V, Marley R, Baines RA, Prinz AA (2015) Distal spike initiation zone location estimation by morphological simulation of ionic current filtering demonstrated in a novel model of an identified Drosophila motoneuron. PLoS Comput Biol 11:e1004189 [PubMed]
Citations  Citation Browser
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell;
Brain Region(s)/Organism: Drosophila;
Cell Type(s):
Channel(s): I Na,p; I Na,t; I A; I K;
Gap Junctions:
Receptor(s): Cholinergic Receptors;
Gene(s):
Transmitter(s):
Simulation Environment: NEURON; XPP; MATLAB;
Model Concept(s):
Implementer(s): Gunay, Cengiz [cgunay at emory.edu]; Sieling, Fred [fred.sieling at gmail.com]; Prinz, Astrid [astrid.prinz at emory.edu];
Search NeuronDB for information about:  Cholinergic Receptors; I Na,p; I Na,t; I A; I K;
/
Gunay_etal_2014
neuron-model
aCC-L3-neuron.hoc
aCC-L3-neuron+electrode.xml
aCC-L3-neuron-swc.hoc
calc-impedance.hoc
chan-DmKA-Marley.hoc
chan-DmKdr-Marley.hoc
chan-DmNaP-DmNav10.hoc
chan-DmNaT-ODowd.hoc
collapse-neuron-tree.hoc
current-inj-50pA-read-mV_dt_0.025ms.bin
data-axon-tail2-axon-50um-vc-noKdr-long-back-85mV-Na_4_lines_dt_0.025000ms.bin
data-axon-tail2-axon-70um-vc-noKdr-long-back-85mV-Na_4_lines_dt_0.025000ms.bin
data-axon-tail2-axon-70um-vc-noKdr-long-back-85mV-Na-5xNaP_4_lines_dt_0.025000ms.bin
data-axon-tail2-axon-70um-vc-noKdr-long-back-85mV-Na-5xNaT_4_lines_dt_0.025000ms.bin
data-axon-tail2-axon-70um-vc-noKdr-long-back-85mV-passive_4_lines_dt_0.025000ms.bin
data-axon-tail2-chans-axon_11_lines_dt_0.025000ms.bin
data-axon-tail2-chans-axon-last_11_lines_dt_0.025000ms.bin
data-axon-tail2-chans-botdend_11_lines_dt_0.025000ms.bin
data-axon-tail2-chans-ext-axon-70um_11_lines_dt_0.025000ms.bin
data-axon-tail2-chans-in-all_11_lines_dt_0.025000ms.bin
data-i-syn-10syns-20-EPSCs-10x-10ms-VC-60mV_6_lines_dt_0.025000ms.bin
data-i-syn-4dends-50-EPSCs-10x-10ms-VC-60mV_5_lines_dt_0.025000ms.bin
data-i-vclamp-syn-dend-513-180-EPSCs-10x-1ms-saturating_2_lines_dt_0.025000ms.bin
data-syn-dend-357_2_lines_dt_0.025000ms.bin
data-syn-dend-513_2_lines_dt_0.025000ms.bin
data-syn-dend-520_2_lines_dt_0.025000ms.bin
data-syn-dend-685_2_lines_dt_0.025000ms.bin
data-v-syn-10dends-20-EPSCs-10x-10ms-noVC_6_lines_dt_0.025000ms.bin
data-v-syn-4dends-50-EPSCs-10x-10ms-noVC_6_lines_dt_0.025000ms.bin
data-v-syn-dend-513-180-EPSCs-10x-1ms-saturating-noVC_5_lines_dt_0.025000ms.bin
data-v-syn-dend-685-AP_3_lines_dt_0.025000ms.bin
exp-axon-tail2.ses
exp-axon-tail2-chans-axon.ses
exp-axon-tail2-chans-axon-last.ses
exp-axon-tail2-chans-botdend.ses
exp-axon-tail2-chans-ext-axon-50um-onlyNa.ses
exp-axon-tail2-chans-ext-axon-70um.ses
exp-axon-tail2-chans-ext-axon-70um-10alphasynapses.ses
exp-axon-tail2-chans-ext-axon-70um-10x-mimic-sustained.ses
exp-axon-tail2-chans-ext-axon-70um-10x-mimic-sustained-random.ses
exp-axon-tail2-chans-ext-axon-70um-mimic-synapses.ses
exp-axon-tail2-chans-ext-axon-70um-mimic-synapses-sustained-currents.ses
exp-axon-tail2-chans-ext-axon-70um-mimic-synapses-v-change.ses
exp-axon-tail2-chans-ext-axon-70um-onlyNa.ses
exp-axon-tail2-chans-ext-axon-70um-tomasz.ses
exp-axon-tail2-chans-in-all.ses
figures.m
fitfuncs.hoc
graph-i-vc-ext-axon.ses
iclamp-50pA.ses
IClamp-steps.ses
inc-first.ses
lincir-vclamp.hoc
lincir-vclamp.ses
NaP_NaT_data.csv
neuron-CB.ses
neuron-CB+electrode.hoc
neuron-CB-act-electrode-embed-IClamp.ses
neuron-CB-ext-axon.ses
neuron-CB-ext-axon-2pieces.ses
neuron-CB-ext-axon-2pieces-chans-axon.ses
neuron-CB-ext-axon-2pieces-chans-axon-last.ses
neuron-CB-ext-axon-2pieces-chans-botdend.ses
neuron-CB-ext-axon-2pieces-chans-ext-axon-50um-onlyNa.ses
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um.ses
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um-10alphasynapses.ses *
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um-10x-mimic-sustained.ses *
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um-mimic-synapses.ses *
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um-mimic-synapses-v-change.ses *
neuron-CB-ext-axon-2pieces-chans-ext-axon-70um-onlyNa.ses
neuron-CB-ext-axon-2pieces-chans-in-all.ses
neuron-CB-pas-electrode-embed.ses
neuron-CB-pas-electrode-embed-fit-pas.ses
neuron-CB-pas-electrode-embed-fit-pas-VClamp.ses
neuron-CB-pas-electrode-embed-IClamp.ses
neuron-CB-pas-electrode-embed-test-axon-hh-chans.ses
neuron-Import3D-CellBuilder.ses
neuron-NL-CellBuilder.ses
neuron-NL-CellBuilder-pas.ses
neuron-NL-CellBuilder-pas-electrode.ses
neuron-NL-CellBuilder-pas-Na.ses
neuron-PointProcessMgr-ext-axon-2pieces-chans-ext-axon-70um-10alphasynapses.ses
nrn-fit-cap-02_dt_0.025000ms_dy_1e-9nA.bin
shape-plot.ses
SkeletonTree_ORR_aCC_48h1_NL.hoc
soma-vclamp-testbed.ses
stats.hoc
vclamp_-85_to_-25mV.ses
vclamp_soma_-60mV.ses
vclamp_soma_-60mV_syn1234.ses
vclamp_soma_-60mV_syni.ses
vclamp-family.ses
v-graph.ses
v-graph-bigger.ses
v-graph-bigger-axon-2pieces.ses
                            
/* Amira HOC export has diameters equal to zero! This file is obtained
   by exporting from Amira to SWC, then in Neuron using
   Tools->Misc->Import3D and then calling CellBuilder.
   In CellBuilder, I could tag different sections of the neuron.
   BUG: SWC export had bogus diameters, too!
*/
proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg()
}

create soma[730]

proc topol() { local i
  for i = 1, 2 connect soma[i](0), soma(0)
  for i = 3, 16 connect soma[i](0), soma[i-1](1)
  connect soma[17](0), soma[15](1)
  connect soma[18](0), soma[14](1)
  for i = 19, 25 connect soma[i](0), soma[i-1](1)
  connect soma[26](0), soma[24](1)
  connect soma[27](0), soma[23](1)
  connect soma[28](0), soma[22](1)
  connect soma[29](0), soma[21](1)
  for i = 30, 35 connect soma[i](0), soma[i-1](1)
  connect soma[36](0), soma[34](1)
  for i = 37, 39 connect soma[i](0), soma[i-1](1)
  connect soma[40](0), soma[38](1)
  connect soma[41](0), soma[37](1)
  connect soma[42](0), soma[36](1)
  connect soma[43](0), soma[33](1)
  connect soma[44](0), soma[32](1)
  connect soma[45](0), soma[31](1)
  connect soma[46](0), soma[30](1)
  connect soma[47](0), soma[29](1)
  for i = 48, 50 connect soma[i](0), soma[i-1](1)
  connect soma[51](0), soma[49](1)
  connect soma[52](0), soma[48](1)
  connect soma[53](0), soma[47](1)
  for i = 54, 55 connect soma[i](0), soma[53](1)
  connect soma[56](0), soma[20](1)
  for i = 57, 58 connect soma[i](0), soma[56](1)
  connect soma[59](0), soma[19](1)
  connect soma[60](0), soma[18](1)
  for i = 61, 62 connect soma[i](0), soma[60](1)
  connect soma[63](0), soma[13](1)
  for i = 64, 74 connect soma[i](0), soma[i-1](1)
  connect soma[75](0), soma[73](1)
  connect soma[76](0), soma[72](1)
  connect soma[77](0), soma[71](1)
  connect soma[78](0), soma[70](1)
  connect soma[79](0), soma[69](1)
  for i = 80, 81 connect soma[i](0), soma[68](1)
  connect soma[82](0), soma[67](1)
  connect soma[83](0), soma[66](1)
  connect soma[84](0), soma[65](1)
  connect soma[85](0), soma[64](1)
  for i = 86, 87 connect soma[i](0), soma[85](1)
  for i = 88, 89 connect soma[i](0), soma[87](1)
  connect soma[90](0), soma[63](1)
  for i = 91, 94 connect soma[i](0), soma[i-1](1)
  connect soma[95](0), soma[93](1)
  for i = 96, 97 connect soma[i](0), soma[i-1](1)
  connect soma[98](0), soma[96](1)
  connect soma[99](0), soma[95](1)
  connect soma[100](0), soma[92](1)
  connect soma[101](0), soma[91](1)
  for i = 102, 103 connect soma[i](0), soma[i-1](1)
  connect soma[104](0), soma[102](1)
  connect soma[105](0), soma[101](1)
  connect soma[106](0), soma[90](1)
  for i = 107, 108 connect soma[i](0), soma[106](1)
  connect soma[109](0), soma[12](1)
  for i = 110, 111 connect soma[i](0), soma[109](1)
  for i = 112, 113 connect soma[i](0), soma[111](1)
  connect soma[114](0), soma[11](1)
  for i = 115, 116 connect soma[i](0), soma[114](1)
  for i = 117, 119 connect soma[i](0), soma[i-1](1)
  connect soma[120](0), soma[118](1)
  connect soma[121](0), soma[117](1)
  connect soma[122](0), soma[116](1)
  for i = 123, 136 connect soma[i](0), soma[i-1](1)
  connect soma[137](0), soma[135](1)
  connect soma[138](0), soma[134](1)
  for i = 139, 140 connect soma[i](0), soma[138](1)
  connect soma[141](0), soma[134](1)
  for i = 142, 143 connect soma[i](0), soma[141](1)
  for i = 144, 145 connect soma[i](0), soma[143](1)
  for i = 146, 147 connect soma[i](0), soma[i-1](1)
  connect soma[148](0), soma[146](1)
  connect soma[149](0), soma[145](1)
  connect soma[150](0), soma[133](1)
  for i = 151, 152 connect soma[i](0), soma[150](1)
  connect soma[153](0), soma[132](1)
  for i = 154, 155 connect soma[i](0), soma[153](1)
  connect soma[156](0), soma[131](1)
  connect soma[157](0), soma[130](1)
  connect soma[158](0), soma[129](1)
  connect soma[159](0), soma[128](1)
  for i = 160, 161 connect soma[i](0), soma[159](1)
  connect soma[162](0), soma[127](1)
  for i = 163, 164 connect soma[i](0), soma[162](1)
  connect soma[165](0), soma[126](1)
  for i = 166, 167 connect soma[i](0), soma[165](1)
  connect soma[168](0), soma[125](1)
  connect soma[169](0), soma[124](1)
  for i = 170, 171 connect soma[i](0), soma[169](1)
  connect soma[172](0), soma[123](1)
  connect soma[173](0), soma[122](1)
  connect soma[174](0), soma[10](1)
  for i = 175, 176 connect soma[i](0), soma[i-1](1)
  for i = 177, 178 connect soma[i](0), soma[175](1)
  for i = 179, 180 connect soma[i](0), soma[i-1](1)
  connect soma[181](0), soma[179](1)
  connect soma[182](0), soma[178](1)
  connect soma[183](0), soma[174](1)
  connect soma[184](0), soma[9](1)
  for i = 185, 213 connect soma[i](0), soma[i-1](1)
  connect soma[214](0), soma[212](1)
  for i = 215, 216 connect soma[i](0), soma[214](1)
  connect soma[217](0), soma[212](1)
  connect soma[218](0), soma[211](1)
  for i = 219, 221 connect soma[i](0), soma[i-1](1)
  connect soma[222](0), soma[220](1)
  connect soma[223](0), soma[219](1)
  for i = 224, 225 connect soma[i](0), soma[223](1)
  connect soma[226](0), soma[218](1)
  connect soma[227](0), soma[211](1)
  connect soma[228](0), soma[210](1)
  connect soma[229](0), soma[209](1)
  connect soma[230](0), soma[208](1)
  connect soma[231](0), soma[207](1)
  for i = 232, 235 connect soma[i](0), soma[i-1](1)
  connect soma[236](0), soma[234](1)
  for i = 237, 238 connect soma[i](0), soma[236](1)
  connect soma[239](0), soma[233](1)
  connect soma[240](0), soma[232](1)
  connect soma[241](0), soma[231](1)
  connect soma[242](0), soma[206](1)
  connect soma[243](0), soma[205](1)
  connect soma[244](0), soma[204](1)
  connect soma[245](0), soma[203](1)
  for i = 246, 247 connect soma[i](0), soma[245](1)
  connect soma[248](0), soma[202](1)
  for i = 249, 250 connect soma[i](0), soma[i-1](1)
  connect soma[251](0), soma[249](1)
  for i = 252, 253 connect soma[i](0), soma[i-1](1)
  connect soma[254](0), soma[252](1)
  for i = 255, 256 connect soma[i](0), soma[254](1)
  connect soma[257](0), soma[251](1)
  connect soma[258](0), soma[248](1)
  for i = 259, 261 connect soma[i](0), soma[i-1](1)
  connect soma[262](0), soma[260](1)
  connect soma[263](0), soma[259](1)
  connect soma[264](0), soma[258](1)
  for i = 265, 266 connect soma[i](0), soma[202](1)
  connect soma[267](0), soma[201](1)
  connect soma[268](0), soma[200](1)
  for i = 269, 270 connect soma[i](0), soma[i-1](1)
  connect soma[271](0), soma[269](1)
  for i = 272, 273 connect soma[i](0), soma[i-1](1)
  connect soma[274](0), soma[272](1)
  connect soma[275](0), soma[271](1)
  connect soma[276](0), soma[268](1)
  for i = 277, 278 connect soma[i](0), soma[276](1)
  connect soma[279](0), soma[200](1)
  connect soma[280](0), soma[199](1)
  connect soma[281](0), soma[198](1)
  connect soma[282](0), soma[197](1)
  for i = 283, 284 connect soma[i](0), soma[282](1)
  connect soma[285](0), soma[197](1)
  connect soma[286](0), soma[196](1)
  for i = 287, 290 connect soma[i](0), soma[i-1](1)
  connect soma[291](0), soma[289](1)
  connect soma[292](0), soma[288](1)
  for i = 293, 294 connect soma[i](0), soma[i-1](1)
  connect soma[295](0), soma[293](1)
  for i = 296, 297 connect soma[i](0), soma[292](1)
  connect soma[298](0), soma[287](1)
  connect soma[299](0), soma[286](1)
  for i = 300, 301 connect soma[i](0), soma[195](1)
  for i = 302, 303 connect soma[i](0), soma[i-1](1)
  connect soma[304](0), soma[302](1)
  for i = 305, 306 connect soma[i](0), soma[i-1](1)
  for i = 307, 308 connect soma[i](0), soma[305](1)
  connect soma[309](0), soma[304](1)
  connect soma[310](0), soma[301](1)
  connect soma[311](0), soma[194](1)
  connect soma[312](0), soma[193](1)
  connect soma[313](0), soma[192](1)
  connect soma[314](0), soma[191](1)
  for i = 315, 316 connect soma[i](0), soma[i-1](1)
  connect soma[317](0), soma[315](1)
  connect soma[318](0), soma[314](1)
  connect soma[319](0), soma[190](1)
  for i = 320, 321 connect soma[i](0), soma[319](1)
  connect soma[322](0), soma[189](1)
  for i = 323, 324 connect soma[i](0), soma[322](1)
  for i = 325, 326 connect soma[i](0), soma[324](1)
  connect soma[327](0), soma[188](1)
  connect soma[328](0), soma[187](1)
  for i = 329, 330 connect soma[i](0), soma[328](1)
  connect soma[331](0), soma[186](1)
  for i = 332, 333 connect soma[i](0), soma[331](1)
  connect soma[334](0), soma[185](1)
  for i = 335, 337 connect soma[i](0), soma[i-1](1)
  connect soma[338](0), soma[336](1)
  connect soma[339](0), soma[335](1)
  for i = 340, 341 connect soma[i](0), soma[339](1)
  connect soma[342](0), soma[334](1)
  for i = 343, 346 connect soma[i](0), soma[i-1](1)
  connect soma[347](0), soma[345](1)
  connect soma[348](0), soma[344](1)
  connect soma[349](0), soma[343](1)
  for i = 350, 353 connect soma[i](0), soma[i-1](1)
  topol_1()
}
proc topol_1() {
  connect soma[354](0), soma[352](1)
  connect soma[355](0), soma[351](1)
  for i = 356, 357 connect soma[i](0), soma[355](1)
  connect soma[358](0), soma[350](1)
  for i = 359, 361 connect soma[i](0), soma[i-1](1)
  connect soma[362](0), soma[360](1)
  for i = 363, 364 connect soma[i](0), soma[i-1](1)
  connect soma[365](0), soma[363](1)
  for i = 366, 367 connect soma[i](0), soma[365](1)
  for i = 368, 369 connect soma[i](0), soma[367](1)
  for i = 370, 371 connect soma[i](0), soma[369](1)
  connect soma[372](0), soma[362](1)
  for i = 373, 374 connect soma[i](0), soma[372](1)
  connect soma[375](0), soma[359](1)
  for i = 376, 377 connect soma[i](0), soma[375](1)
  connect soma[378](0), soma[358](1)
  for i = 379, 380 connect soma[i](0), soma[378](1)
  for i = 381, 382 connect soma[i](0), soma[380](1)
  connect soma[383](0), soma[349](1)
  connect soma[384](0), soma[342](1)
  for i = 385, 386 connect soma[i](0), soma[384](1)
  connect soma[387](0), soma[184](1)
  for i = 388, 392 connect soma[i](0), soma[i-1](1)
  connect soma[393](0), soma[391](1)
  connect soma[394](0), soma[390](1)
  connect soma[395](0), soma[389](1)
  connect soma[396](0), soma[388](1)
  connect soma[397](0), soma[387](1)
  for i = 398, 407 connect soma[i](0), soma[i-1](1)
  connect soma[408](0), soma[406](1)
  for i = 409, 410 connect soma[i](0), soma[408](1)
  for i = 411, 412 connect soma[i](0), soma[410](1)
  connect soma[413](0), soma[405](1)
  for i = 414, 415 connect soma[i](0), soma[i-1](1)
  connect soma[416](0), soma[414](1)
  connect soma[417](0), soma[413](1)
  connect soma[418](0), soma[404](1)
  connect soma[419](0), soma[403](1)
  for i = 420, 421 connect soma[i](0), soma[419](1)
  connect soma[422](0), soma[402](1)
  for i = 423, 424 connect soma[i](0), soma[422](1)
  for i = 425, 426 connect soma[i](0), soma[i-1](1)
  connect soma[427](0), soma[425](1)
  connect soma[428](0), soma[424](1)
  for i = 429, 430 connect soma[i](0), soma[i-1](1)
  connect soma[431](0), soma[429](1)
  connect soma[432](0), soma[428](1)
  for i = 433, 434 connect soma[i](0), soma[432](1)
  connect soma[435](0), soma[401](1)
  for i = 436, 437 connect soma[i](0), soma[i-1](1)
  connect soma[438](0), soma[436](1)
  for i = 439, 440 connect soma[i](0), soma[i-1](1)
  connect soma[441](0), soma[439](1)
  connect soma[442](0), soma[438](1)
  connect soma[443](0), soma[435](1)
  connect soma[444](0), soma[400](1)
  for i = 445, 446 connect soma[i](0), soma[444](1)
  for i = 447, 448 connect soma[i](0), soma[446](1)
  connect soma[449](0), soma[399](1)
  connect soma[450](0), soma[398](1)
  for i = 451, 452 connect soma[i](0), soma[i-1](1)
  connect soma[453](0), soma[451](1)
  connect soma[454](0), soma[450](1)
  for i = 455, 457 connect soma[i](0), soma[i-1](1)
  connect soma[458](0), soma[456](1)
  connect soma[459](0), soma[455](1)
  for i = 460, 461 connect soma[i](0), soma[459](1)
  connect soma[462](0), soma[454](1)
  for i = 463, 464 connect soma[i](0), soma[462](1)
  connect soma[465](0), soma[397](1)
  connect soma[466](0), soma[8](1)
  connect soma[467](0), soma[7](1)
  connect soma[468](0), soma[6](1)
  for i = 469, 476 connect soma[i](0), soma[i-1](1)
  connect soma[477](0), soma[475](1)
  connect soma[478](0), soma[474](1)
  connect soma[479](0), soma[473](1)
  for i = 480, 481 connect soma[i](0), soma[i-1](1)
  connect soma[482](0), soma[480](1)
  connect soma[483](0), soma[479](1)
  for i = 484, 486 connect soma[i](0), soma[483](1)
  connect soma[487](0), soma[472](1)
  connect soma[488](0), soma[471](1)
  connect soma[489](0), soma[470](1)
  connect soma[490](0), soma[469](1)
  for i = 491, 492 connect soma[i](0), soma[i-1](1)
  connect soma[493](0), soma[491](1)
  connect soma[494](0), soma[490](1)
  for i = 495, 496 connect soma[i](0), soma[494](1)
  connect soma[497](0), soma[468](1)
  connect soma[498](0), soma[5](1)
  for i = 499, 500 connect soma[i](0), soma[498](1)
  connect soma[501](0), soma[4](1)
  for i = 502, 503 connect soma[i](0), soma[501](1)
  for i = 504, 508 connect soma[i](0), soma[i-1](1)
  connect soma[509](0), soma[507](1)
  for i = 510, 511 connect soma[i](0), soma[509](1)
  connect soma[512](0), soma[506](1)
  for i = 513, 514 connect soma[i](0), soma[i-1](1)
  connect soma[515](0), soma[513](1)
  for i = 516, 517 connect soma[i](0), soma[i-1](1)
  connect soma[518](0), soma[516](1)
  connect soma[519](0), soma[515](1)
  connect soma[520](0), soma[512](1)
  connect soma[521](0), soma[505](1)
  connect soma[522](0), soma[504](1)
  for i = 523, 524 connect soma[i](0), soma[522](1)
  connect soma[525](0), soma[503](1)
  connect soma[526](0), soma[3](1)
  for i = 527, 529 connect soma[i](0), soma[i-1](1)
  connect soma[530](0), soma[528](1)
  for i = 531, 533 connect soma[i](0), soma[i-1](1)
  connect soma[534](0), soma[532](1)
  for i = 535, 538 connect soma[i](0), soma[i-1](1)
  connect soma[539](0), soma[537](1)
  connect soma[540](0), soma[536](1)
  connect soma[541](0), soma[535](1)
  connect soma[542](0), soma[534](1)
  connect soma[543](0), soma[531](1)
  connect soma[544](0), soma[530](1)
  for i = 545, 546 connect soma[i](0), soma[544](1)
  for i = 547, 548 connect soma[i](0), soma[546](1)
  connect soma[549](0), soma[527](1)
  connect soma[550](0), soma[526](1)
  connect soma[551](0), soma[2](1)
  for i = 552, 567 connect soma[i](0), soma[i-1](1)
  connect soma[568](0), soma[566](1)
  connect soma[569](0), soma[565](1)
  for i = 570, 572 connect soma[i](0), soma[i-1](1)
  connect soma[573](0), soma[571](1)
  for i = 574, 575 connect soma[i](0), soma[i-1](1)
  connect soma[576](0), soma[574](1)
  connect soma[577](0), soma[573](1)
  connect soma[578](0), soma[570](1)
  connect soma[579](0), soma[569](1)
  connect soma[580](0), soma[564](1)
  connect soma[581](0), soma[563](1)
  for i = 582, 586 connect soma[i](0), soma[i-1](1)
  connect soma[587](0), soma[585](1)
  connect soma[588](0), soma[584](1)
  connect soma[589](0), soma[583](1)
  connect soma[590](0), soma[582](1)
  connect soma[591](0), soma[581](1)
  for i = 592, 593 connect soma[i](0), soma[591](1)
  connect soma[594](0), soma[562](1)
  for i = 595, 597 connect soma[i](0), soma[i-1](1)
  connect soma[598](0), soma[596](1)
  connect soma[599](0), soma[595](1)
  connect soma[600](0), soma[594](1)
  for i = 601, 603 connect soma[i](0), soma[i-1](1)
  connect soma[604](0), soma[602](1)
  for i = 605, 606 connect soma[i](0), soma[604](1)
  connect soma[607](0), soma[601](1)
  connect soma[608](0), soma[600](1)
  connect soma[609](0), soma[594](1)
  for i = 610, 611 connect soma[i](0), soma[i-1](1)
  connect soma[612](0), soma[610](1)
  connect soma[613](0), soma[609](1)
  connect soma[614](0), soma[561](1)
  for i = 615, 618 connect soma[i](0), soma[i-1](1)
  connect soma[619](0), soma[617](1)
  connect soma[620](0), soma[616](1)
  connect soma[621](0), soma[615](1)
  connect soma[622](0), soma[614](1)
  connect soma[623](0), soma[560](1)
  connect soma[624](0), soma[559](1)
  for i = 625, 627 connect soma[i](0), soma[i-1](1)
  connect soma[628](0), soma[626](1)
  connect soma[629](0), soma[625](1)
  connect soma[630](0), soma[624](1)
  for i = 631, 632 connect soma[i](0), soma[630](1)
  connect soma[633](0), soma[558](1)
  connect soma[634](0), soma[557](1)
  for i = 635, 643 connect soma[i](0), soma[i-1](1)
  connect soma[644](0), soma[642](1)
  connect soma[645](0), soma[641](1)
  for i = 646, 647 connect soma[i](0), soma[645](1)
  connect soma[648](0), soma[640](1)
  for i = 649, 650 connect soma[i](0), soma[i-1](1)
  connect soma[651](0), soma[649](1)
  connect soma[652](0), soma[648](1)
  for i = 653, 654 connect soma[i](0), soma[652](1)
  for i = 655, 656 connect soma[i](0), soma[654](1)
  connect soma[657](0), soma[639](1)
  for i = 658, 659 connect soma[i](0), soma[657](1)
  for i = 660, 661 connect soma[i](0), soma[659](1)
  connect soma[662](0), soma[638](1)
  for i = 663, 664 connect soma[i](0), soma[662](1)
  for i = 665, 666 connect soma[i](0), soma[664](1)
  connect soma[667](0), soma[637](1)
  for i = 668, 669 connect soma[i](0), soma[667](1)
  connect soma[670](0), soma[636](1)
  connect soma[671](0), soma[635](1)
  for i = 672, 673 connect soma[i](0), soma[671](1)
  connect soma[674](0), soma[634](1)
  for i = 675, 677 connect soma[i](0), soma[i-1](1)
  connect soma[678](0), soma[676](1)
  connect soma[679](0), soma[675](1)
  connect soma[680](0), soma[674](1)
  connect soma[681](0), soma[556](1)
  topol_2()
}
proc topol_2() {
  for i = 682, 683 connect soma[i](0), soma[i-1](1)
  for i = 684, 685 connect soma[i](0), soma[682](1)
  for i = 686, 687 connect soma[i](0), soma[i-1](1)
  connect soma[688](0), soma[686](1)
  connect soma[689](0), soma[685](1)
  connect soma[690](0), soma[681](1)
  for i = 691, 692 connect soma[i](0), soma[i-1](1)
  connect soma[693](0), soma[691](1)
  for i = 694, 695 connect soma[i](0), soma[693](1)
  connect soma[696](0), soma[690](1)
  connect soma[697](0), soma[555](1)
  for i = 698, 699 connect soma[i](0), soma[i-1](1)
  connect soma[700](0), soma[698](1)
  connect soma[701](0), soma[697](1)
  connect soma[702](0), soma[554](1)
  connect soma[703](0), soma[553](1)
  for i = 704, 705 connect soma[i](0), soma[703](1)
  connect soma[706](0), soma[552](1)
  for i = 707, 709 connect soma[i](0), soma[i-1](1)
  connect soma[710](0), soma[708](1)
  connect soma[711](0), soma[707](1)
  for i = 712, 713 connect soma[i](0), soma[711](1)
  connect soma[714](0), soma[706](1)
  for i = 715, 717 connect soma[i](0), soma[i-1](1)
  connect soma[718](0), soma[716](1)
  for i = 719, 720 connect soma[i](0), soma[718](1)
  for i = 721, 722 connect soma[i](0), soma[720](1)
  connect soma[723](0), soma[715](1)
  connect soma[724](0), soma[714](1)
  connect soma[725](0), soma[551](1)
  for i = 726, 727 connect soma[i](0), soma[725](1)
  for i = 728, 729 connect soma[i](0), soma[727](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(42.7674, 50.818, 4.68331, 2)
	pt3dadd(42.7829, 51.094, 4.7317, 2)
	pt3dadd(42.8015, 51.3737, 4.78655, 2)
	pt3dadd(42.822, 51.6568, 4.8413, 2)
	pt3dadd(42.8508, 51.9416, 4.89499, 2)
	pt3dadd(42.8826, 52.2263, 4.95406, 2)
	pt3dadd(42.9204, 52.5108, 5.01552, 2)
	pt3dadd(42.9759, 52.7946, 5.06912, 2)
	pt3dadd(43.05, 53.0758, 5.11549, 2)
	pt3dadd(43.1054, 53.3609, 5.16554, 2)
	pt3dadd(43.1445, 53.6468, 5.22429, 2)
	pt3dadd(43.2065, 53.9249, 5.2975, 2)
	pt3dadd(43.2885, 54.1971, 5.37299, 2)
	pt3dadd(43.3762, 54.4693, 5.44128, 2)
	pt3dadd(43.4828, 54.7349, 5.50832, 2)
	pt3dadd(43.5942, 54.9979, 5.57691, 2)
	pt3dadd(43.7091, 55.2596, 5.64351, 2)
	pt3dadd(43.8257, 55.5212, 5.70683, 2)
	pt3dadd(43.9423, 55.7826, 5.77073, 2)
  }
  soma[1] {pt3dclear()
	pt3dadd(42.7674, 50.818, 4.68331, 2)
	pt3dadd(42.6237, 50.9738, 4.45297, 2)
	pt3dadd(42.4844, 51.1186, 4.22088, 2)
	pt3dadd(42.3617, 51.2472, 3.97738, 2)
	pt3dadd(42.2385, 51.3659, 3.73424, 2)
	pt3dadd(42.1152, 51.4872, 3.49536, 2)
  }
  soma[2] {pt3dclear()
	pt3dadd(42.7674, 50.818, 4.68331, 2)
	pt3dadd(42.9327, 50.7698, 4.79431, 2)
  }
  soma[3] {pt3dclear()
	pt3dadd(42.9327, 50.7698, 4.79431, 2)
	pt3dadd(42.8618, 50.723, 4.74145, 2)
	pt3dadd(42.9507, 50.4314, 4.77119, 2)
	pt3dadd(43.047, 50.1457, 4.80217, 2)
	pt3dadd(43.1653, 49.8707, 4.82895, 2)
	pt3dadd(43.3132, 49.611, 4.84473, 2)
	pt3dadd(43.4319, 49.3378, 4.86678, 2)
	pt3dadd(43.5389, 49.0615, 4.89702, 2)
	pt3dadd(43.6209, 48.7763, 4.93352, 2)
	pt3dadd(43.7803, 48.5362, 4.94317, 2)
	pt3dadd(43.8799, 48.2874, 5.04498, 2)
	pt3dadd(43.9487, 48.2319, 5.31107, 2)
	pt3dadd(43.951, 48.1539, 5.57346, 2)
	pt3dadd(43.9929, 48.0255, 5.82708, 2)
	pt3dadd(44.1108, 47.9078, 6.08591, 2)
	pt3dadd(44.1959, 47.744, 6.33295, 2)
	pt3dadd(44.3245, 47.6592, 6.59637, 2)
	pt3dadd(44.4679, 47.4608, 6.77291, 2)
	pt3dadd(44.6292, 47.2397, 6.89331, 2)
	pt3dadd(44.7845, 47.0029, 6.98484, 2)
	pt3dadd(44.9412, 46.7583, 7.04896, 2)
	pt3dadd(45.069, 46.4914, 7.07996, 2)
	pt3dadd(45.1474, 46.2047, 7.08824, 2)
	pt3dadd(45.3302, 45.9737, 7.12492, 2)
	pt3dadd(45.5305, 45.7556, 7.10919, 2)
	pt3dadd(45.7857, 45.6132, 7.05604, 2)
	pt3dadd(46.0227, 45.4365, 7.01462, 2)
	pt3dadd(46.2348, 45.2406, 7.08964, 2)
	pt3dadd(46.4561, 45.0431, 7.09378, 2)
	pt3dadd(46.6245, 44.7998, 7.07533, 2)
	pt3dadd(46.7765, 44.5466, 7.045, 2)
	pt3dadd(46.9213, 44.2921, 6.99231, 2)
	pt3dadd(47.027, 44.0292, 6.90097, 2)
	pt3dadd(47.1173, 43.7652, 6.7973, 2)
	pt3dadd(47.2071, 43.4897, 6.73001, 2)
	pt3dadd(47.3226, 43.2232, 6.66622, 2)
	pt3dadd(47.4282, 42.9605, 6.5737, 2)
	pt3dadd(47.5644, 42.7143, 6.47643, 2)
	pt3dadd(47.5874, 42.4241, 6.53516, 2)
	pt3dadd(47.6048, 42.2136, 6.73774, 2)
	pt3dadd(47.6985, 42.0482, 6.95294, 2)
  }
  soma[4] {pt3dclear()
	pt3dadd(47.6985, 42.0482, 6.95294, 2)
	pt3dadd(47.7489, 41.715, 6.8904, 2)
	pt3dadd(47.8217, 41.4019, 6.83403, 2)
	pt3dadd(47.89, 41.1005, 6.78075, 2)
	pt3dadd(47.9409, 40.8032, 6.73852, 2)
	pt3dadd(47.9596, 40.5062, 6.70959, 2)
	pt3dadd(47.9685, 40.2106, 6.69425, 2)
	pt3dadd(47.9758, 39.9157, 6.68803, 2)
	pt3dadd(47.9855, 39.6213, 6.67849, 2)
	pt3dadd(48.0031, 39.3288, 6.64833, 2)
	pt3dadd(48.0406, 39.0466, 6.57275, 2)
	pt3dadd(48.0923, 38.7691, 6.48922, 2)
	pt3dadd(48.1854, 38.4971, 6.42703, 2)
	pt3dadd(48.2681, 38.2188, 6.38205, 2)
	pt3dadd(48.3662, 37.9419, 6.37409, 2)
	pt3dadd(48.4683, 37.6664, 6.37688, 2)
	pt3dadd(48.539, 37.3813, 6.38825, 2)
	pt3dadd(48.5933, 37.0928, 6.40773, 2)
	pt3dadd(48.6316, 36.8014, 6.42587, 2)
	pt3dadd(48.6869, 36.5118, 6.44029, 2)
	pt3dadd(48.7493, 36.2209, 6.44326, 2)
	pt3dadd(48.8043, 35.9224, 6.42432, 2)
  }
  soma[5] {pt3dclear()
	pt3dadd(48.8043, 35.9224, 6.42432, 2)
	pt3dadd(48.8117, 35.6401, 6.58096, 2)
	pt3dadd(48.8238, 35.3521, 6.71928, 2)
	pt3dadd(48.8416, 35.0561, 6.83904, 2)
	pt3dadd(48.8659, 34.7553, 6.95482, 2)
	pt3dadd(48.9232, 34.4473, 7.05908, 2)
	pt3dadd(49.0018, 34.1334, 7.16459, 2)
  }
  soma[6] {pt3dclear()
	pt3dadd(49.0018, 34.1334, 7.16459, 2)
	pt3dadd(48.9269, 33.899, 7.30515, 2)
	pt3dadd(48.8801, 33.654, 7.4723, 2)
  }
  soma[7] {pt3dclear()
	pt3dadd(48.8801, 33.654, 7.4723, 2)
	pt3dadd(48.9574, 33.3558, 7.45125, 2)
	pt3dadd(49.0429, 33.0591, 7.45063, 2)
	pt3dadd(49.0875, 32.7511, 7.46239, 2)
	pt3dadd(49.0898, 32.4346, 7.48345, 2)
	pt3dadd(49.0756, 32.111, 7.5214, 2)
	pt3dadd(49.047, 31.7779, 7.57505, 2)
	pt3dadd(48.9978, 31.4342, 7.64054, 2)
  }
  soma[8] {pt3dclear()
	pt3dadd(48.9978, 31.4342, 7.64054, 2)
	pt3dadd(49.027, 31.1775, 7.56085, 2)
	pt3dadd(49.0655, 30.9135, 7.48164, 2)
  }
  soma[9] {pt3dclear()
	pt3dadd(49.0655, 30.9135, 7.48164, 2)
	pt3dadd(48.912, 30.6837, 7.43479, 2)
	pt3dadd(48.7814, 30.4502, 7.39029, 2)
	pt3dadd(48.7139, 30.2008, 7.37796, 2)
	pt3dadd(48.6644, 29.9657, 7.39257, 2)
  }
  soma[10] {pt3dclear()
	pt3dadd(48.6644, 29.9657, 7.39257, 2)
	pt3dadd(48.5301, 29.7325, 7.28308, 2)
	pt3dadd(48.4118, 29.4984, 7.19531, 2)
	pt3dadd(48.2955, 29.2629, 7.11185, 2)
	pt3dadd(48.1637, 29.0247, 7.01972, 2)
  }
  soma[11] {pt3dclear()
	pt3dadd(48.1637, 29.0247, 7.01972, 2)
	pt3dadd(48.1778, 28.6628, 6.97818, 2)
  }
  soma[12] {pt3dclear()
	pt3dadd(48.1778, 28.6628, 6.97818, 2)
	pt3dadd(48.0845, 28.446, 6.75882, 2)
  }
  soma[13] {pt3dclear()
	pt3dadd(48.0845, 28.446, 6.75882, 2)
	pt3dadd(47.9571, 28.2197, 6.67051, 2)
	pt3dadd(47.8251, 27.9887, 6.55601, 2)
	pt3dadd(47.6976, 27.7436, 6.42037, 2)
	pt3dadd(47.5517, 27.4921, 6.2674, 2)
  }
  soma[14] {pt3dclear()
	pt3dadd(47.5517, 27.4921, 6.2674, 2)
	pt3dadd(47.5405, 27.3256, 6.06135, 2)
	pt3dadd(47.5089, 27.1395, 5.86088, 2)
	pt3dadd(47.458, 26.9345, 5.67091, 2)
	pt3dadd(47.3907, 26.7157, 5.49167, 2)
	pt3dadd(47.3086, 26.4856, 5.3251, 2)
	pt3dadd(47.1991, 26.2687, 5.15085, 2)
	pt3dadd(47.077, 26.0664, 4.96361, 2)
  }
  soma[15] {pt3dclear()
	pt3dadd(47.077, 26.0664, 4.96361, 2)
	pt3dadd(46.8277, 25.8218, 4.77609, 2)
  }
  soma[16] {pt3dclear()
	pt3dadd(46.8277, 25.8218, 4.77609, 2)
	pt3dadd(46.6039, 25.6397, 4.73776, 2)
	pt3dadd(46.392, 25.4525, 4.66813, 2)
	pt3dadd(46.1956, 25.2483, 4.59176, 2)
	pt3dadd(46.0057, 25.0399, 4.50152, 2)
	pt3dadd(45.8269, 24.8194, 4.41049, 2)
	pt3dadd(45.6517, 24.596, 4.31421, 2)
	pt3dadd(45.4815, 24.366, 4.22111, 2)
	pt3dadd(45.2999, 24.1377, 4.14527, 2)
	pt3dadd(45.1129, 23.9138, 4.06757, 2)
	pt3dadd(44.9268, 23.6851, 4.00133, 2)
	pt3dadd(44.7502, 23.446, 3.94683, 2)
	pt3dadd(44.5776, 23.2005, 3.91375, 2)
	pt3dadd(44.4094, 22.9508, 3.89381, 2)
	pt3dadd(44.2483, 22.6967, 3.87766, 2)
	pt3dadd(44.0739, 22.4529, 3.84922, 2)
	pt3dadd(43.8948, 22.2148, 3.80686, 2)
	pt3dadd(43.7127, 21.9807, 3.75593, 2)
	pt3dadd(43.5377, 21.7424, 3.69983, 2)
	pt3dadd(43.3641, 21.5018, 3.64886, 2)
	pt3dadd(43.175, 21.2723, 3.6018, 2)
	pt3dadd(42.9942, 21.0362, 3.55485, 2)
	pt3dadd(42.8128, 20.7994, 3.51423, 2)
	pt3dadd(42.6244, 20.5665, 3.4838, 2)
	pt3dadd(42.4647, 20.3123, 3.46066, 2)
	pt3dadd(42.3135, 20.0522, 3.45006, 2)
	pt3dadd(42.1539, 19.7971, 3.44618, 2)
  }
  soma[17] {pt3dclear()
	pt3dadd(46.8277, 25.8218, 4.77609, 2)
	pt3dadd(46.9615, 25.6739, 4.55904, 2)
	pt3dadd(47.1194, 25.5026, 4.35712, 2)
	pt3dadd(47.3031, 25.3199, 4.17547, 2)
	pt3dadd(47.5139, 25.1548, 3.99922, 2)
	pt3dadd(47.7249, 25.0154, 3.7994, 2)
	pt3dadd(47.9305, 24.8696, 3.59734, 2)
  }
  soma[18] {pt3dclear()
	pt3dadd(47.077, 26.0664, 4.96361, 2)
	pt3dadd(47.351, 26.1732, 4.87943, 2)
	pt3dadd(47.6425, 26.2409, 4.77897, 2)
	pt3dadd(47.9288, 26.29, 4.65912, 2)
	pt3dadd(48.1926, 26.3419, 4.52307, 2)
  }
  soma[19] {pt3dclear()
	pt3dadd(48.1926, 26.3419, 4.52307, 2)
	pt3dadd(48.5102, 26.4414, 4.43294, 2)
	pt3dadd(48.8181, 26.5247, 4.3639, 2)
	pt3dadd(49.1108, 26.6371, 4.28856, 2)
	pt3dadd(49.4036, 26.7662, 4.19414, 2)
  }
  soma[20] {pt3dclear()
	pt3dadd(49.4036, 26.7662, 4.19414, 2)
	pt3dadd(49.4528, 27.0038, 4.15913, 2)
	pt3dadd(49.4749, 27.2662, 4.13021, 2)
	pt3dadd(49.4687, 27.549, 4.11349, 2)
	pt3dadd(49.4081, 27.8418, 4.09273, 2)
	pt3dadd(49.3111, 28.1398, 4.0607, 2)
	pt3dadd(49.2081, 28.4514, 4.01599, 2)
  }
  soma[21] {pt3dclear()
	pt3dadd(49.2081, 28.4514, 4.01599, 2)
	pt3dadd(49.1331, 28.7068, 4.14026, 2)
	pt3dadd(49.0631, 28.978, 4.2385, 2)
	pt3dadd(48.9538, 29.2472, 4.31271, 2)
	pt3dadd(48.8322, 29.5187, 4.36879, 2)
	pt3dadd(48.6731, 29.7781, 4.40461, 2)
	pt3dadd(48.521, 30.0508, 4.44397, 2)
  }
  soma[22] {pt3dclear()
	pt3dadd(48.521, 30.0508, 4.44397, 2)
	pt3dadd(48.2773, 30.2006, 4.3858, 2)
  }
}
proc shape3d_2() {
  soma[22] {	pt3dadd(48.0368, 30.361, 4.33362, 2)
	pt3dadd(47.788, 30.5192, 4.2894, 2)
	pt3dadd(47.528, 30.6697, 4.24818, 2)
	pt3dadd(47.2604, 30.8234, 4.2273, 2)
	pt3dadd(46.9915, 30.9919, 4.23484, 2)
  }
  soma[23] {pt3dclear()
	pt3dadd(46.9915, 30.9919, 4.23484, 2)
	pt3dadd(46.7429, 31.1345, 4.1883, 2)
	pt3dadd(46.4748, 31.2544, 4.18677, 2)
	pt3dadd(46.2036, 31.3747, 4.21942, 2)
	pt3dadd(45.9351, 31.5048, 4.27646, 2)
	pt3dadd(45.6592, 31.6279, 4.33843, 2)
  }
  soma[24] {pt3dclear()
	pt3dadd(45.6592, 31.6279, 4.33843, 2)
	pt3dadd(45.3838, 31.6034, 4.40712, 2)
	pt3dadd(45.1109, 31.6122, 4.45677, 2)
	pt3dadd(44.8414, 31.6768, 4.49002, 2)
	pt3dadd(44.5696, 31.7825, 4.50503, 2)
  }
  soma[25] {pt3dclear()
	pt3dadd(44.5696, 31.7825, 4.50503, 2)
	pt3dadd(44.3671, 31.872, 4.54075, 2)
	pt3dadd(44.1652, 31.9907, 4.56564, 2)
  }
  soma[26] {pt3dclear()
	pt3dadd(44.5696, 31.7825, 4.50503, 2)
	pt3dadd(44.4687, 31.9686, 4.37399, 2)
	pt3dadd(44.3713, 32.1806, 4.22494, 2)
	pt3dadd(44.2808, 32.4012, 4.05435, 2)
	pt3dadd(44.1858, 32.6218, 3.87401, 2)
  }
  soma[27] {pt3dclear()
	pt3dadd(45.6592, 31.6279, 4.33843, 2)
	pt3dadd(45.6677, 31.8825, 4.3297, 2)
	pt3dadd(45.6651, 32.1598, 4.31907, 2)
	pt3dadd(45.6525, 32.451, 4.30295, 2)
	pt3dadd(45.6345, 32.749, 4.2786, 2)
	pt3dadd(45.6179, 33.0509, 4.25573, 2)
	pt3dadd(45.6006, 33.3544, 4.23524, 2)
	pt3dadd(45.5756, 33.6575, 4.21093, 2)
	pt3dadd(45.5424, 33.9598, 4.18425, 2)
  }
  soma[28] {pt3dclear()
	pt3dadd(46.9915, 30.9919, 4.23484, 2)
	pt3dadd(47.0415, 31.0936, 4.4239, 2)
	pt3dadd(47.1297, 31.1936, 4.62727, 2)
	pt3dadd(47.2232, 31.3049, 4.83611, 2)
  }
  soma[29] {pt3dclear()
	pt3dadd(48.521, 30.0508, 4.44397, 2)
	pt3dadd(48.6483, 30.2611, 4.55735, 2)
	pt3dadd(48.8142, 30.4591, 4.68271, 2)
	pt3dadd(49.0161, 30.6386, 4.79803, 2)
	pt3dadd(49.2301, 30.8147, 4.89896, 2)
	pt3dadd(49.4406, 31.0012, 4.98543, 2)
	pt3dadd(49.6263, 31.2165, 5.05958, 2)
	pt3dadd(49.7829, 31.4545, 5.12836, 2)
	pt3dadd(49.9417, 31.6868, 5.19953, 2)
	pt3dadd(50.1301, 31.889, 5.27101, 2)
	pt3dadd(50.363, 32.0366, 5.3327, 2)
	pt3dadd(50.6312, 32.119, 5.36897, 2)
	pt3dadd(50.9158, 32.1392, 5.38252, 2)
	pt3dadd(51.201, 32.0961, 5.36817, 2)
	pt3dadd(51.4776, 32.0216, 5.32512, 2)
	pt3dadd(51.7378, 31.9248, 5.25147, 2)
	pt3dadd(51.9616, 31.8012, 5.13064, 2)
	pt3dadd(52.1443, 31.6673, 4.96808, 2)
	pt3dadd(52.2919, 31.535, 4.77828, 2)
	pt3dadd(52.4185, 31.4177, 4.58078, 2)
  }
  soma[30] {pt3dclear()
	pt3dadd(52.4185, 31.4177, 4.58078, 2)
	pt3dadd(52.594, 31.2168, 4.36928, 2)
	pt3dadd(52.7884, 31.0333, 4.19275, 2)
	pt3dadd(53.0159, 30.8593, 4.05929, 2)
  }
  soma[31] {pt3dclear()
	pt3dadd(53.0159, 30.8593, 4.05929, 2)
	pt3dadd(53.2964, 30.8963, 4.01698, 2)
	pt3dadd(53.5729, 30.9119, 3.99476, 2)
	pt3dadd(53.843, 30.9256, 3.98727, 2)
  }
  soma[32] {pt3dclear()
	pt3dadd(53.843, 30.9256, 3.98727, 2)
	pt3dadd(54.137, 30.8527, 4.07068, 2)
	pt3dadd(54.4246, 30.8276, 4.14163, 2)
	pt3dadd(54.6998, 30.8302, 4.19757, 2)
  }
  soma[33] {pt3dclear()
	pt3dadd(54.6998, 30.8302, 4.19757, 2)
	pt3dadd(55.035, 30.6909, 4.13329, 2)
  }
  soma[34] {pt3dclear()
	pt3dadd(55.035, 30.6909, 4.13329, 2)
	pt3dadd(55.342, 30.6718, 4.24123, 2)
	pt3dadd(55.6528, 30.6328, 4.32129, 2)
	pt3dadd(55.9739, 30.5888, 4.38834, 2)
	pt3dadd(56.3183, 30.5779, 4.44345, 2)
  }
  soma[35] {pt3dclear()
	pt3dadd(56.3183, 30.5779, 4.44345, 2)
	pt3dadd(56.5385, 30.4759, 4.53574, 2)
	pt3dadd(56.7651, 30.3885, 4.65737, 2)
	pt3dadd(56.9776, 30.2693, 4.79356, 2)
	pt3dadd(57.1871, 30.145, 4.9391, 2)
	pt3dadd(57.4054, 30.0222, 5.08023, 2)
	pt3dadd(57.6392, 29.9274, 5.22586, 2)
	pt3dadd(57.8881, 29.873, 5.37468, 2)
	pt3dadd(58.1477, 29.8369, 5.51598, 2)
  }
  soma[36] {pt3dclear()
	pt3dadd(56.3183, 30.5779, 4.44345, 2)
	pt3dadd(56.4707, 30.701, 4.38077, 2)
	pt3dadd(56.6191, 30.861, 4.31461, 2)
  }
  soma[37] {pt3dclear()
	pt3dadd(56.6191, 30.861, 4.31461, 2)
	pt3dadd(56.8224, 31.1209, 4.49358, 2)
	pt3dadd(57.0403, 31.3701, 4.68975, 2)
  }
  soma[38] {pt3dclear()
	pt3dadd(57.0403, 31.3701, 4.68975, 2)
	pt3dadd(57.0737, 31.4601, 4.93278, 2)
	pt3dadd(57.0666, 31.5011, 5.20706, 2)
	pt3dadd(57.0326, 31.5071, 5.4943, 2)
	pt3dadd(57.0087, 31.472, 5.79052, 2)
	pt3dadd(56.9758, 31.4053, 6.09004, 2)
	pt3dadd(56.9462, 31.3116, 6.39199, 2)
  }
  soma[39] {pt3dclear()
	pt3dadd(56.9462, 31.3116, 6.39199, 2)
	pt3dadd(57.0801, 31.1415, 6.56108, 2)
	pt3dadd(57.1817, 30.9405, 6.71439, 2)
	pt3dadd(57.2853, 30.7091, 6.82867, 2)
	pt3dadd(57.3776, 30.4555, 6.93447, 2)
	pt3dadd(57.4684, 30.1837, 7.02702, 2)
	pt3dadd(57.5382, 29.8948, 7.11156, 2)
	pt3dadd(57.6141, 29.6065, 7.20538, 2)
  }
  soma[40] {pt3dclear()
	pt3dadd(56.9462, 31.3116, 6.39199, 2)
	pt3dadd(56.7525, 31.4213, 6.52037, 2)
	pt3dadd(56.5446, 31.543, 6.65155, 2)
	pt3dadd(56.3427, 31.6989, 6.78291, 2)
	pt3dadd(56.149, 31.8736, 6.91687, 2)
  }
  soma[41] {pt3dclear()
	pt3dadd(57.0403, 31.3701, 4.68975, 2)
	pt3dadd(57.2587, 31.3577, 4.76588, 2)
	pt3dadd(57.481, 31.2924, 4.88098, 2)
	pt3dadd(57.7076, 31.1692, 4.98924, 2)
	pt3dadd(57.943, 31.0246, 5.09088, 2)
	pt3dadd(58.183, 30.8706, 5.19378, 2)
	pt3dadd(58.3984, 30.6808, 5.3037, 2)
	pt3dadd(58.599, 30.4773, 5.42085, 2)
	pt3dadd(58.7829, 30.2724, 5.56061, 2)
	pt3dadd(58.9512, 30.0633, 5.71214, 2)
	pt3dadd(59.1235, 29.8647, 5.87204, 2)
	pt3dadd(59.2902, 29.6802, 6.05359, 2)
	pt3dadd(59.4551, 29.5009, 6.24267, 2)
	pt3dadd(59.6032, 29.3303, 6.45343, 2)
	pt3dadd(59.7521, 29.1948, 6.68892, 2)
	pt3dadd(59.9158, 29.0759, 6.92391, 2)
  }
  soma[42] {pt3dclear()
	pt3dadd(56.6191, 30.861, 4.31461, 2)
	pt3dadd(56.5648, 30.9114, 4.07107, 2)
	pt3dadd(56.5166, 30.9779, 3.80907, 2)
	pt3dadd(56.4748, 31.076, 3.54751, 2)
	pt3dadd(56.4099, 31.1411, 3.28002, 2)
	pt3dadd(56.3713, 31.1935, 3.00632, 2)
  }
  soma[43] {pt3dclear()
	pt3dadd(55.035, 30.6909, 4.13329, 2)
	pt3dadd(55.0653, 30.5528, 3.91256, 2)
	pt3dadd(55.1037, 30.4228, 3.67184, 2)
	pt3dadd(55.1949, 30.2929, 3.43177, 2)
	pt3dadd(55.2997, 30.1624, 3.18835, 2)
	pt3dadd(55.4162, 30.0197, 2.95185, 2)
	pt3dadd(55.5266, 29.8693, 2.71442, 2)
  }
  soma[44] {pt3dclear()
	pt3dadd(54.6998, 30.8302, 4.19757, 2)
	pt3dadd(54.5881, 31.0418, 4.33612, 2)
	pt3dadd(54.4554, 31.2534, 4.48589, 2)
	pt3dadd(54.2941, 31.4507, 4.64643, 2)
	pt3dadd(54.1079, 31.6236, 4.81592, 2)
	pt3dadd(53.9103, 31.7593, 5.00708, 2)
	pt3dadd(53.7329, 31.8668, 5.23474, 2)
	pt3dadd(53.5669, 31.9462, 5.4838, 2)
  }
  soma[45] {pt3dclear()
	pt3dadd(53.843, 30.9256, 3.98727, 2)
	pt3dadd(53.7893, 31.1521, 3.86758, 2)
	pt3dadd(53.7461, 31.3934, 3.72232, 2)
	pt3dadd(53.6761, 31.6257, 3.54605, 2)
	pt3dadd(53.582, 31.859, 3.36745, 2)
	pt3dadd(53.4766, 32.0899, 3.18463, 2)
	pt3dadd(53.3916, 32.328, 2.99748, 2)
  }
  soma[46] {pt3dclear()
	pt3dadd(53.0159, 30.8593, 4.05929, 2)
	pt3dadd(52.988, 30.5502, 4.14454, 2)
	pt3dadd(52.9657, 30.2321, 4.26759, 2)
  }
  soma[47] {pt3dclear()
	pt3dadd(52.4185, 31.4177, 4.58078, 2)
	pt3dadd(52.3901, 31.6431, 4.69877, 2)
	pt3dadd(52.3793, 31.8971, 4.83488, 2)
	pt3dadd(52.3704, 32.1859, 4.96585, 2)
	pt3dadd(52.352, 32.5095, 5.08746, 2)
  }
  soma[48] {pt3dclear()
	pt3dadd(52.352, 32.5095, 5.08746, 2)
	pt3dadd(52.3637, 32.7865, 5.09485, 2)
	pt3dadd(52.3666, 33.0789, 5.08427, 2)
	pt3dadd(52.368, 33.3752, 5.05001, 2)
	pt3dadd(52.366, 33.6676, 4.98973, 2)
	pt3dadd(52.357, 33.9528, 4.92546, 2)
	pt3dadd(52.3243, 34.2251, 4.89571, 2)
	pt3dadd(52.2535, 34.4684, 4.93613, 2)
	pt3dadd(52.15, 34.6711, 5.0561, 2)
	pt3dadd(51.9986, 34.832, 5.22289, 2)
	pt3dadd(51.8396, 34.9858, 5.41595, 2)
	pt3dadd(51.6734, 35.1365, 5.61796, 2)
	pt3dadd(51.5221, 35.3045, 5.8294, 2)
	pt3dadd(51.4015, 35.5052, 6.05659, 2)
  }
  soma[49] {pt3dclear()
	pt3dadd(51.4015, 35.5052, 6.05659, 2)
	pt3dadd(51.5277, 35.7225, 6.18195, 2)
	pt3dadd(51.6748, 35.9561, 6.29225, 2)
	pt3dadd(51.8134, 36.213, 6.3725, 2)
	pt3dadd(51.9312, 36.4881, 6.42199, 2)
	pt3dadd(52.0205, 36.7743, 6.44158, 2)
	pt3dadd(52.0891, 37.0579, 6.4377, 2)
  }
  soma[50] {pt3dclear()
	pt3dadd(52.0891, 37.0579, 6.4377, 2)
	pt3dadd(52.0032, 37.3727, 6.51386, 2)
	pt3dadd(51.9249, 37.6716, 6.58531, 2)
	pt3dadd(51.864, 37.9636, 6.65499, 2)
	pt3dadd(51.8315, 38.2561, 6.71922, 2)
	pt3dadd(51.827, 38.5502, 6.77624, 2)
	pt3dadd(51.8496, 38.8449, 6.82569, 2)
	pt3dadd(51.8783, 39.1406, 6.86912, 2)
	pt3dadd(51.9035, 39.4368, 6.91428, 2)
  }
  soma[51] {pt3dclear()
	pt3dadd(52.0891, 37.0579, 6.4377, 2)
	pt3dadd(52.2533, 36.926, 6.29801, 2)
	pt3dadd(52.4198, 36.774, 6.14928, 2)
	pt3dadd(52.5845, 36.6104, 5.99427, 2)
  }
  soma[52] {pt3dclear()
	pt3dadd(51.4015, 35.5052, 6.05659, 2)
	pt3dadd(51.2425, 35.6319, 6.21419, 2)
	pt3dadd(51.0881, 35.7956, 6.37292, 2)
  }
}
proc shape3d_3() {
  soma[52] {	pt3dadd(50.9231, 35.9816, 6.51796, 2)
	pt3dadd(50.7543, 36.1852, 6.64834, 2)
	pt3dadd(50.6014, 36.4117, 6.76916, 2)
	pt3dadd(50.4709, 36.6604, 6.8791, 2)
	pt3dadd(50.3476, 36.9213, 6.97415, 2)
	pt3dadd(50.2467, 37.1966, 7.05861, 2)
	pt3dadd(50.1423, 37.4741, 7.13372, 2)
	pt3dadd(50.0447, 37.7563, 7.20312, 2)
	pt3dadd(49.9469, 38.0387, 7.27439, 2)
	pt3dadd(49.8291, 38.3148, 7.34379, 2)
	pt3dadd(49.7071, 38.591, 7.40952, 2)
	pt3dadd(49.5603, 38.8574, 7.46848, 2)
	pt3dadd(49.3999, 39.1163, 7.52662, 2)
  }
  soma[53] {pt3dclear()
	pt3dadd(52.352, 32.5095, 5.08746, 2)
	pt3dadd(52.2238, 32.6875, 5.18917, 2)
	pt3dadd(52.0783, 32.8834, 5.29154, 2)
	pt3dadd(51.9207, 33.0893, 5.39433, 2)
	pt3dadd(51.7543, 33.2963, 5.5002, 2)
	pt3dadd(51.5909, 33.5071, 5.61054, 2)
	pt3dadd(51.4309, 33.7199, 5.72377, 2)
	pt3dadd(51.2807, 33.9398, 5.83874, 2)
  }
  soma[54] {pt3dclear()
	pt3dadd(51.2807, 33.9398, 5.83874, 2)
	pt3dadd(51.048, 34.1049, 5.9454, 2)
	pt3dadd(50.8369, 34.2816, 6.05554, 2)
	pt3dadd(50.6474, 34.4754, 6.16691, 2)
	pt3dadd(50.477, 34.6837, 6.27998, 2)
	pt3dadd(50.3142, 34.902, 6.38487, 2)
	pt3dadd(50.1524, 35.1223, 6.48686, 2)
	pt3dadd(49.9906, 35.3437, 6.5866, 2)
  }
  soma[55] {pt3dclear()
	pt3dadd(51.2807, 33.9398, 5.83874, 2)
	pt3dadd(51.4841, 34.0517, 5.86014, 2)
	pt3dadd(51.716, 34.1844, 5.88207, 2)
	pt3dadd(51.97, 34.3261, 5.91365, 2)
	pt3dadd(52.2401, 34.4665, 5.95852, 2)
	pt3dadd(52.52, 34.6003, 6.01151, 2)
  }
  soma[56] {pt3dclear()
	pt3dadd(49.2081, 28.4514, 4.01599, 2)
	pt3dadd(49.0808, 28.4869, 3.7779, 2)
	pt3dadd(48.8994, 28.5245, 3.54967, 2)
	pt3dadd(48.686, 28.5871, 3.33856, 2)
	pt3dadd(48.4749, 28.6687, 3.12354, 2)
	pt3dadd(48.2691, 28.7451, 2.89878, 2)
	pt3dadd(48.0663, 28.8297, 2.67335, 2)
  }
  soma[57] {pt3dclear()
	pt3dadd(48.0663, 28.8297, 2.67335, 2)
	pt3dadd(48.0729, 29.0565, 2.51164, 2)
	pt3dadd(48.1076, 29.2863, 2.35252, 2)
	pt3dadd(48.1663, 29.5239, 2.21013, 2)
	pt3dadd(48.2262, 29.771, 2.08441, 2)
	pt3dadd(48.3125, 30.0113, 1.96113, 2)
	pt3dadd(48.3951, 30.2489, 1.83035, 2)
  }
  soma[58] {pt3dclear()
	pt3dadd(48.0663, 28.8297, 2.67335, 2)
	pt3dadd(47.8614, 28.6314, 2.59631, 2)
	pt3dadd(47.6674, 28.426, 2.52199, 2)
	pt3dadd(47.4752, 28.2204, 2.45327, 2)
	pt3dadd(47.2826, 28.0161, 2.38785, 2)
	pt3dadd(47.0852, 27.8167, 2.32453, 2)
	pt3dadd(46.8882, 27.6159, 2.26407, 2)
	pt3dadd(46.6952, 27.4084, 2.21367, 2)
	pt3dadd(46.506, 27.1961, 2.1693, 2)
	pt3dadd(46.3238, 26.9781, 2.12461, 2)
  }
  soma[59] {pt3dclear()
	pt3dadd(49.4036, 26.7662, 4.19414, 2)
	pt3dadd(49.6859, 26.7307, 4.09002, 2)
	pt3dadd(49.9783, 26.6851, 3.97942, 2)
	pt3dadd(50.2698, 26.6263, 3.85145, 2)
	pt3dadd(50.5577, 26.5635, 3.70865, 2)
  }
  soma[60] {pt3dclear()
	pt3dadd(48.1926, 26.3419, 4.52307, 2)
	pt3dadd(48.1412, 26.2353, 4.50725, 2)
  }
  soma[61] {pt3dclear()
	pt3dadd(48.1412, 26.2353, 4.50725, 2)
	pt3dadd(48.2714, 25.9725, 4.45095, 2)
	pt3dadd(48.4284, 25.7389, 4.39156, 2)
	pt3dadd(48.6177, 25.5383, 4.32576, 2)
	pt3dadd(48.8318, 25.3641, 4.25722, 2)
	pt3dadd(49.0636, 25.2107, 4.1896, 2)
  }
  soma[62] {pt3dclear()
	pt3dadd(48.1412, 26.2353, 4.50725, 2)
	pt3dadd(47.9933, 26.4208, 4.51231, 2)
	pt3dadd(47.8716, 26.6494, 4.52607, 2)
	pt3dadd(47.7641, 26.9047, 4.53222, 2)
	pt3dadd(47.699, 27.1835, 4.5217, 2)
  }
  soma[63] {pt3dclear()
	pt3dadd(47.5517, 27.4921, 6.2674, 2)
	pt3dadd(47.3134, 27.3253, 6.31275, 2)
	pt3dadd(47.0635, 27.1493, 6.36534, 2)
	pt3dadd(46.7988, 26.9886, 6.4285, 2)
	pt3dadd(46.521, 26.8615, 6.51644, 2)
	pt3dadd(46.2268, 26.7899, 6.62279, 2)
	pt3dadd(45.9219, 26.7616, 6.73813, 2)
  }
  soma[64] {pt3dclear()
	pt3dadd(45.9219, 26.7616, 6.73813, 2)
	pt3dadd(45.6243, 26.737, 6.66488, 2)
	pt3dadd(45.3286, 26.7351, 6.57774, 2)
	pt3dadd(45.0346, 26.7307, 6.46868, 2)
  }
  soma[65] {pt3dclear()
	pt3dadd(45.0346, 26.7307, 6.46868, 2)
	pt3dadd(44.7861, 26.5088, 6.45568, 2)
	pt3dadd(44.5472, 26.2851, 6.4517, 2)
	pt3dadd(44.3029, 26.0575, 6.46385, 2)
  }
  soma[66] {pt3dclear()
	pt3dadd(44.3029, 26.0575, 6.46385, 2)
	pt3dadd(44.03, 25.9784, 6.38906, 2)
	pt3dadd(43.7552, 25.8958, 6.33782, 2)
	pt3dadd(43.4752, 25.8349, 6.31863, 2)
	pt3dadd(43.1973, 25.7981, 6.32762, 2)
  }
  soma[67] {pt3dclear()
	pt3dadd(43.1973, 25.7981, 6.32762, 2)
	pt3dadd(42.9135, 25.681, 6.2088, 2)
  }
  soma[68] {pt3dclear()
	pt3dadd(42.9135, 25.681, 6.2088, 2)
	pt3dadd(42.5913, 25.6605, 6.28432, 2)
	pt3dadd(42.2824, 25.6311, 6.34681, 2)
	pt3dadd(41.9809, 25.6015, 6.40354, 2)
	pt3dadd(41.684, 25.58, 6.46612, 2)
	pt3dadd(41.3912, 25.5503, 6.53747, 2)
	pt3dadd(41.0996, 25.5177, 6.61325, 2)
	pt3dadd(40.8096, 25.4937, 6.70565, 2)
	pt3dadd(40.5185, 25.4905, 6.81194, 2)
	pt3dadd(40.2261, 25.4977, 6.93665, 2)
  }
  soma[69] {pt3dclear()
	pt3dadd(40.2261, 25.4977, 6.93665, 2)
	pt3dadd(39.9739, 25.5376, 7.04523, 2)
	pt3dadd(39.7152, 25.6186, 7.12874, 2)
	pt3dadd(39.4596, 25.7369, 7.1786, 2)
	pt3dadd(39.2274, 25.901, 7.20729, 2)
	pt3dadd(39.0334, 26.1066, 7.22362, 2)
	pt3dadd(38.8566, 26.32, 7.21819, 2)
  }
  soma[70] {pt3dclear()
	pt3dadd(38.8566, 26.32, 7.21819, 2)
	pt3dadd(38.6048, 26.5134, 6.99341, 2)
	pt3dadd(38.3366, 26.7138, 6.78825, 2)
  }
  soma[71] {pt3dclear()
	pt3dadd(38.3366, 26.7138, 6.78825, 2)
	pt3dadd(38.1009, 26.7668, 6.67624, 2)
	pt3dadd(37.8525, 26.8276, 6.55137, 2)
	pt3dadd(37.5969, 26.8854, 6.40111, 2)
	pt3dadd(37.3305, 26.9681, 6.24296, 2)
	pt3dadd(37.0627, 27.0846, 6.06164, 2)
  }
  soma[72] {pt3dclear()
	pt3dadd(37.0627, 27.0846, 6.06164, 2)
	pt3dadd(36.8778, 27.0628, 5.8646, 2)
	pt3dadd(36.6742, 27.0585, 5.66607, 2)
	pt3dadd(36.4418, 27.0572, 5.48717, 2)
	pt3dadd(36.192, 27.0501, 5.32457, 2)
	pt3dadd(35.9389, 27.0414, 5.16196, 2)
	pt3dadd(35.6769, 27.0344, 5.00936, 2)
	pt3dadd(35.4128, 27.0004, 4.85562, 2)
	pt3dadd(35.1295, 26.9689, 4.72267, 2)
	pt3dadd(34.8278, 26.9447, 4.60629, 2)
  }
  soma[73] {pt3dclear()
	pt3dadd(34.8278, 26.9447, 4.60629, 2)
	pt3dadd(34.6147, 27.0702, 4.63639, 2)
  }
  soma[74] {pt3dclear()
	pt3dadd(34.6147, 27.0702, 4.63639, 2)
	pt3dadd(34.3186, 27.1721, 4.56697, 2)
	pt3dadd(34.0362, 27.3005, 4.52223, 2)
	pt3dadd(33.7583, 27.4344, 4.49621, 2)
  }
  soma[75] {pt3dclear()
	pt3dadd(34.6147, 27.0702, 4.63639, 2)
	pt3dadd(34.6443, 27.1333, 4.88632, 2)
	pt3dadd(34.6716, 27.2346, 5.14856, 2)
	pt3dadd(34.6912, 27.3597, 5.42219, 2)
	pt3dadd(34.7175, 27.5047, 5.70009, 2)
	pt3dadd(34.7529, 27.6584, 5.97952, 2)
  }
  soma[76] {pt3dclear()
	pt3dadd(34.8278, 26.9447, 4.60629, 2)
	pt3dadd(34.6166, 26.8265, 4.59871, 2)
	pt3dadd(34.3921, 26.6948, 4.59577, 2)
	pt3dadd(34.1688, 26.5353, 4.58527, 2)
	pt3dadd(33.951, 26.3533, 4.56151, 2)
	pt3dadd(33.7442, 26.1507, 4.52124, 2)
	pt3dadd(33.5339, 25.9462, 4.48, 2)
  }
  soma[77] {pt3dclear()
	pt3dadd(37.0627, 27.0846, 6.06164, 2)
	pt3dadd(36.9621, 27.3276, 6.05452, 2)
	pt3dadd(36.8552, 27.5921, 6.03971, 2)
	pt3dadd(36.7602, 27.8731, 6.01226, 2)
  }
  soma[78] {pt3dclear()
	pt3dadd(38.3366, 26.7138, 6.78825, 2)
	pt3dadd(38.2548, 26.9248, 6.63928, 2)
	pt3dadd(38.1672, 27.1457, 6.46343, 2)
	pt3dadd(38.0894, 27.3806, 6.27864, 2)
  }
  soma[79] {pt3dclear()
	pt3dadd(38.8566, 26.32, 7.21819, 2)
	pt3dadd(38.9012, 26.3253, 7.49836, 2)
	pt3dadd(38.9597, 26.3494, 7.79353, 2)
	pt3dadd(39.021, 26.3843, 8.09775, 2)
  }
  soma[80] {pt3dclear()
	pt3dadd(40.2261, 25.4977, 6.93665, 2)
	pt3dadd(40.195, 25.6191, 7.24273, 2)
	pt3dadd(40.2052, 25.7731, 7.53856, 2)
	pt3dadd(40.2433, 25.9419, 7.82529, 2)
	pt3dadd(40.285, 26.1139, 8.10987, 2)
  }
  soma[81] {pt3dclear()
	pt3dadd(40.2261, 25.4977, 6.93665, 2)
	pt3dadd(40.1757, 25.4949, 6.61538, 2)
	pt3dadd(40.1112, 25.4954, 6.29678, 2)
	pt3dadd(40.0151, 25.5053, 5.98554, 2)
	pt3dadd(39.8944, 25.5145, 5.68126, 2)
	pt3dadd(39.7567, 25.5293, 5.38322, 2)
  }
  soma[82] {pt3dclear()
	pt3dadd(42.9135, 25.681, 6.2088, 2)
	pt3dadd(42.9894, 25.5308, 5.93211, 2)
	pt3dadd(43.0494, 25.3584, 5.64677, 2)
  }
  soma[83] {pt3dclear()
	pt3dadd(43.1973, 25.7981, 6.32762, 2)
	pt3dadd(43.2775, 25.9594, 6.54027, 2)
	pt3dadd(43.3743, 26.1261, 6.75941, 2)
	pt3dadd(43.4914, 26.2936, 6.98148, 2)
	pt3dadd(43.6147, 26.4593, 7.20947, 2)
	pt3dadd(43.7322, 26.6227, 7.44576, 2)
	pt3dadd(43.8427, 26.7839, 7.68842, 2)
	pt3dadd(43.9618, 26.9452, 7.92739, 2)
	pt3dadd(44.0814, 27.1056, 8.16681, 2)
	pt3dadd(44.2098, 27.2635, 8.40325, 2)
  }
  soma[84] {pt3dclear()
	pt3dadd(44.3029, 26.0575, 6.46385, 2)
	pt3dadd(44.3558, 25.9121, 6.66661, 2)
	pt3dadd(44.4693, 25.7723, 6.88818, 2)
	pt3dadd(44.6205, 25.6236, 7.10607, 2)
	pt3dadd(44.8038, 25.4665, 7.30532, 2)
	pt3dadd(44.9961, 25.3047, 7.49684, 2)
  }
  soma[85] {pt3dclear()
	pt3dadd(45.0346, 26.7307, 6.46868, 2)
	pt3dadd(45.0355, 26.8825, 6.27608, 2)
	pt3dadd(45.0093, 27.0271, 6.05178, 2)
	pt3dadd(44.9697, 27.1511, 5.80398, 2)
  }
}
proc shape3d_4() {
  soma[85] {	pt3dadd(44.9123, 27.2858, 5.5644, 2)
	pt3dadd(44.8239, 27.3962, 5.33027, 2)
  }
  soma[86] {pt3dclear()
	pt3dadd(44.8239, 27.3962, 5.33027, 2)
	pt3dadd(44.7927, 27.5534, 5.03885, 2)
	pt3dadd(44.7556, 27.722, 4.76962, 2)
	pt3dadd(44.7371, 27.8896, 4.50858, 2)
	pt3dadd(44.7223, 28.0431, 4.24555, 2)
	pt3dadd(44.7273, 28.1766, 3.97662, 2)
	pt3dadd(44.7715, 28.2819, 3.70445, 2)
	pt3dadd(44.8815, 28.3657, 3.45187, 2)
	pt3dadd(45.0431, 28.4687, 3.24812, 2)
	pt3dadd(45.2482, 28.5824, 3.10553, 2)
	pt3dadd(45.4859, 28.685, 3.01171, 2)
	pt3dadd(45.7363, 28.8019, 2.9564, 2)
	pt3dadd(45.9895, 28.9404, 2.92621, 2)
	pt3dadd(46.2433, 29.0921, 2.90386, 2)
	pt3dadd(46.4775, 29.277, 2.87303, 2)
	pt3dadd(46.69, 29.4853, 2.82509, 2)
	pt3dadd(46.8831, 29.7084, 2.75984, 2)
	pt3dadd(47.0565, 29.9472, 2.69291, 2)
	pt3dadd(47.2193, 30.1948, 2.63041, 2)
	pt3dadd(47.3851, 30.4396, 2.56399, 2)
	pt3dadd(47.5401, 30.691, 2.49608, 2)
	pt3dadd(47.6959, 30.9397, 2.4197, 2)
	pt3dadd(47.8662, 31.1739, 2.32818, 2)
	pt3dadd(48.0649, 31.3834, 2.23206, 2)
	pt3dadd(48.2943, 31.5523, 2.12476, 2)
	pt3dadd(48.5385, 31.6922, 2.00921, 2)
	pt3dadd(48.7858, 31.821, 1.88804, 2)
  }
  soma[87] {pt3dclear()
	pt3dadd(44.8239, 27.3962, 5.33027, 2)
	pt3dadd(44.5725, 27.2894, 5.47115, 2)
	pt3dadd(44.3122, 27.1473, 5.58043, 2)
	pt3dadd(44.0584, 26.978, 5.65145, 2)
  }
  soma[88] {pt3dclear()
	pt3dadd(44.0584, 26.978, 5.65145, 2)
	pt3dadd(44.1432, 26.7868, 5.49467, 2)
	pt3dadd(44.2403, 26.5885, 5.31376, 2)
	pt3dadd(44.3329, 26.377, 5.12588, 2)
  }
  soma[89] {pt3dclear()
	pt3dadd(44.0584, 26.978, 5.65145, 2)
	pt3dadd(43.7953, 26.9335, 5.68302, 2)
	pt3dadd(43.5606, 26.8715, 5.65171, 2)
	pt3dadd(43.37, 26.8221, 5.53289, 2)
	pt3dadd(43.2494, 26.7956, 5.33049, 2)
	pt3dadd(43.2006, 26.8003, 5.08345, 2)
  }
  soma[90] {pt3dclear()
	pt3dadd(45.9219, 26.7616, 6.73813, 2)
	pt3dadd(45.8913, 26.9457, 6.92435, 2)
	pt3dadd(45.8515, 27.1606, 7.10687, 2)
	pt3dadd(45.8, 27.4001, 7.27271, 2)
	pt3dadd(45.7405, 27.6353, 7.44292, 2)
	pt3dadd(45.657, 27.8497, 7.61275, 2)
	pt3dadd(45.5864, 28.0476, 7.77623, 2)
  }
  soma[91] {pt3dclear()
	pt3dadd(45.5864, 28.0476, 7.77623, 2)
	pt3dadd(45.4283, 28.3185, 7.75148, 2)
	pt3dadd(45.2572, 28.5606, 7.74753, 2)
	pt3dadd(45.0733, 28.7817, 7.76243, 2)
	pt3dadd(44.8836, 28.9925, 7.79623, 2)
	pt3dadd(44.6931, 29.1995, 7.84785, 2)
  }
  soma[92] {pt3dclear()
	pt3dadd(44.6931, 29.1995, 7.84785, 2)
	pt3dadd(44.641, 29.5055, 7.88434, 2)
	pt3dadd(44.5895, 29.7984, 7.94032, 2)
	pt3dadd(44.5208, 30.0777, 8.01186, 2)
  }
  soma[93] {pt3dclear()
	pt3dadd(44.5208, 30.0777, 8.01186, 2)
	pt3dadd(44.3934, 30.378, 7.98131, 2)
	pt3dadd(44.2877, 30.6705, 7.98278, 2)
	pt3dadd(44.221, 30.9586, 8.02389, 2)
	pt3dadd(44.201, 31.2348, 8.10514, 2)
	pt3dadd(44.2277, 31.4862, 8.22764, 2)
	pt3dadd(44.3144, 31.6939, 8.3947, 2)
	pt3dadd(44.439, 31.8563, 8.60072, 2)
	pt3dadd(44.5779, 31.9924, 8.84131, 2)
	pt3dadd(44.7031, 32.1032, 9.12964, 2)
  }
  soma[94] {pt3dclear()
	pt3dadd(44.7031, 32.1032, 9.12964, 2)
	pt3dadd(44.7378, 32.1384, 9.31467, 2)
  }
  soma[95] {pt3dclear()
	pt3dadd(44.7031, 32.1032, 9.12964, 2)
	pt3dadd(44.7346, 32.1436, 9.36715, 2)
  }
  soma[96] {pt3dclear()
	pt3dadd(44.7346, 32.1436, 9.36715, 2)
	pt3dadd(44.6527, 32.1077, 9.62911, 2)
	pt3dadd(44.5386, 32.108, 9.89234, 2)
	pt3dadd(44.4221, 32.1004, 10.1615, 2)
	pt3dadd(44.2927, 32.0934, 10.4298, 2)
	pt3dadd(44.1487, 32.0726, 10.6949, 2)
	pt3dadd(44.0248, 32.0509, 10.9763, 2)
	pt3dadd(43.8967, 32.0172, 11.2652, 2)
	pt3dadd(43.7719, 31.9598, 11.5685, 2)
  }
  soma[97] {pt3dclear()
	pt3dadd(43.7719, 31.9598, 11.5685, 2)
	pt3dadd(43.5786, 31.858, 11.7613, 2)
	pt3dadd(43.3837, 31.7372, 11.9541, 2)
	pt3dadd(43.1893, 31.597, 12.1377, 2)
	pt3dadd(42.9985, 31.4662, 12.3292, 2)
	pt3dadd(42.8123, 31.3601, 12.5366, 2)
	pt3dadd(42.6294, 31.2925, 12.7626, 2)
	pt3dadd(42.4575, 31.2562, 13.0072, 2)
	pt3dadd(42.292, 31.222, 13.2588, 2)
	pt3dadd(42.1474, 31.1889, 13.5244, 2)
	pt3dadd(42.0124, 31.156, 13.7958, 2)
  }
  soma[98] {pt3dclear()
	pt3dadd(43.7719, 31.9598, 11.5685, 2)
	pt3dadd(43.9015, 31.9058, 11.7835, 2)
	pt3dadd(44.0364, 31.8265, 12.0097, 2)
	pt3dadd(44.1607, 31.7207, 12.2457, 2)
	pt3dadd(44.2633, 31.6046, 12.495, 2)
	pt3dadd(44.3486, 31.4827, 12.7515, 2)
	pt3dadd(44.42, 31.358, 13.0119, 2)
	pt3dadd(44.4839, 31.2394, 13.2768, 2)
	pt3dadd(44.5384, 31.1163, 13.5409, 2)
	pt3dadd(44.6016, 31.0158, 13.812, 2)
  }
  soma[99] {pt3dclear()
	pt3dadd(44.7346, 32.1436, 9.36715, 2)
	pt3dadd(44.9426, 32.3042, 9.448, 2)
	pt3dadd(45.1693, 32.4618, 9.53928, 2)
	pt3dadd(45.4178, 32.5982, 9.63773, 2)
  }
  soma[100] {pt3dclear()
	pt3dadd(44.5208, 30.0777, 8.01186, 2)
	pt3dadd(44.5965, 30.0405, 8.21355, 2)
	pt3dadd(44.6796, 30.0078, 8.45456, 2)
	pt3dadd(44.7706, 29.9701, 8.71883, 2)
	pt3dadd(44.8552, 29.8929, 8.99236, 2)
	pt3dadd(44.9646, 29.8111, 9.26367, 2)
	pt3dadd(45.0843, 29.7358, 9.53553, 2)
	pt3dadd(45.236, 29.6604, 9.78986, 2)
	pt3dadd(45.399, 29.6124, 10.0396, 2)
	pt3dadd(45.5502, 29.5957, 10.2952, 2)
	pt3dadd(45.6724, 29.5957, 10.5604, 2)
	pt3dadd(45.7548, 29.6321, 10.8309, 2)
	pt3dadd(45.7886, 29.7182, 11.0933, 2)
	pt3dadd(45.786, 29.8408, 11.3385, 2)
	pt3dadd(45.7496, 30.0054, 11.5553, 2)
	pt3dadd(45.6899, 30.2028, 11.7455, 2)
	pt3dadd(45.6205, 30.4278, 11.9119, 2)
	pt3dadd(45.5491, 30.6777, 12.0526, 2)
	pt3dadd(45.4834, 30.9479, 12.1683, 2)
	pt3dadd(45.4219, 31.2283, 12.2698, 2)
  }
  soma[101] {pt3dclear()
	pt3dadd(44.6931, 29.1995, 7.84785, 2)
	pt3dadd(44.4806, 29.0694, 7.89916, 2)
	pt3dadd(44.2398, 28.9502, 7.96689, 2)
  }
  soma[102] {pt3dclear()
	pt3dadd(44.2398, 28.9502, 7.96689, 2)
	pt3dadd(44.0037, 28.736, 8.0102, 2)
	pt3dadd(43.7333, 28.5412, 8.07804, 2)
  }
  soma[103] {pt3dclear()
	pt3dadd(43.7333, 28.5412, 8.07804, 2)
	pt3dadd(43.5649, 28.3862, 8.20189, 2)
	pt3dadd(43.369, 28.24, 8.33247, 2)
	pt3dadd(43.1474, 28.1033, 8.45541, 2)
	pt3dadd(42.9026, 27.9836, 8.56579, 2)
	pt3dadd(42.6446, 27.8759, 8.66753, 2)
	pt3dadd(42.3782, 27.7811, 8.76583, 2)
	pt3dadd(42.1136, 27.6915, 8.87599, 2)
	pt3dadd(41.8531, 27.6052, 8.99829, 2)
	pt3dadd(41.6016, 27.5176, 9.13777, 2)
	pt3dadd(41.3579, 27.4211, 9.28463, 2)
	pt3dadd(41.1183, 27.3355, 9.44399, 2)
	pt3dadd(40.89, 27.2625, 9.6243, 2)
	pt3dadd(40.6731, 27.2192, 9.8273, 2)
	pt3dadd(40.4761, 27.1954, 10.0535, 2)
	pt3dadd(40.2964, 27.1887, 10.2956, 2)
	pt3dadd(40.1215, 27.1921, 10.542, 2)
  }
  soma[104] {pt3dclear()
	pt3dadd(43.7333, 28.5412, 8.07804, 2)
	pt3dadd(43.491, 28.5503, 8.08314, 2)
	pt3dadd(43.2272, 28.5714, 8.0925, 2)
	pt3dadd(42.9506, 28.5886, 8.10486, 2)
  }
  soma[105] {pt3dclear()
	pt3dadd(44.2398, 28.9502, 7.96689, 2)
	pt3dadd(44.0798, 29.1499, 8.10529, 2)
	pt3dadd(43.8838, 29.3487, 8.25203, 2)
	pt3dadd(43.6665, 29.5407, 8.39974, 2)
  }
  soma[106] {pt3dclear()
	pt3dadd(45.5864, 28.0476, 7.77623, 2)
	pt3dadd(45.5766, 27.8592, 7.98583, 2)
	pt3dadd(45.5086, 27.6577, 8.19137, 2)
	pt3dadd(45.4079, 27.4568, 8.39345, 2)
	pt3dadd(45.3101, 27.2541, 8.59826, 2)
	pt3dadd(45.2071, 27.054, 8.80355, 2)
	pt3dadd(45.1134, 26.855, 9.01322, 2)
	pt3dadd(45.0085, 26.6684, 9.22584, 2)
	pt3dadd(44.9053, 26.4967, 9.44412, 2)
	pt3dadd(44.7963, 26.3822, 9.68575, 2)
	pt3dadd(44.6826, 26.3442, 9.9432, 2)
	pt3dadd(44.5519, 26.3832, 10.1958, 2)
	pt3dadd(44.3875, 26.4637, 10.4267, 2)
	pt3dadd(44.2072, 26.5719, 10.6412, 2)
	pt3dadd(44.0071, 26.6814, 10.841, 2)
	pt3dadd(43.7953, 26.7831, 11.0344, 2)
	pt3dadd(43.5711, 26.8706, 11.2204, 2)
	pt3dadd(43.3343, 26.9486, 11.394, 2)
	pt3dadd(43.0839, 27.0069, 11.5539, 2)
	pt3dadd(42.8258, 27.0421, 11.7036, 2)
	pt3dadd(42.5832, 27.0559, 11.868, 2)
	pt3dadd(42.3744, 27.0319, 12.052, 2)
  }
  soma[107] {pt3dclear()
	pt3dadd(42.3744, 27.0319, 12.052, 2)
	pt3dadd(42.3021, 26.8075, 11.962, 2)
	pt3dadd(42.2474, 26.5555, 11.8986, 2)
	pt3dadd(42.1855, 26.2893, 11.8627, 2)
	pt3dadd(42.0981, 26.0214, 11.8572, 2)
	pt3dadd(41.9854, 25.7593, 11.8807, 2)
	pt3dadd(41.8422, 25.5109, 11.9277, 2)
	pt3dadd(41.6727, 25.278, 11.9932, 2)
	pt3dadd(41.4815, 25.0623, 12.0776, 2)
	pt3dadd(41.2813, 24.8578, 12.1815, 2)
	pt3dadd(41.0838, 24.6542, 12.2982, 2)
  }
  soma[108] {pt3dclear()
	pt3dadd(42.3744, 27.0319, 12.052, 2)
	pt3dadd(42.336, 27.0451, 12.3387, 2)
	pt3dadd(42.3278, 27.0081, 12.6286, 2)
	pt3dadd(42.3442, 26.9673, 12.9217, 2)
	pt3dadd(42.3693, 26.9399, 13.2179, 2)
	pt3dadd(42.4002, 26.926, 13.5132, 2)
	pt3dadd(42.4419, 26.9375, 13.8032, 2)
	pt3dadd(42.5157, 26.9622, 14.08, 2)
  }
}
proc shape3d_5() {
  soma[108] {	pt3dadd(42.6196, 26.9871, 14.3406, 2)
	pt3dadd(42.7535, 27.0178, 14.581, 2)
	pt3dadd(42.91, 27.0505, 14.8039, 2)
	pt3dadd(43.0775, 27.0922, 15.0161, 2)
  }
  soma[109] {pt3dclear()
	pt3dadd(48.0845, 28.446, 6.75882, 2)
	pt3dadd(48.2614, 28.3363, 6.57698, 2)
	pt3dadd(48.4502, 28.1884, 6.4167, 2)
	pt3dadd(48.6443, 28.0123, 6.28428, 2)
	pt3dadd(48.8373, 27.814, 6.17986, 2)
	pt3dadd(49.0366, 27.6135, 6.089, 2)
	pt3dadd(49.2411, 27.4131, 6.00992, 2)
	pt3dadd(49.4559, 27.2269, 5.93263, 2)
	pt3dadd(49.6745, 27.0622, 5.8473, 2)
	pt3dadd(49.8974, 26.9449, 5.73999, 2)
	pt3dadd(50.1227, 26.9127, 5.60254, 2)
	pt3dadd(50.3402, 26.9681, 5.45006, 2)
	pt3dadd(50.5368, 27.103, 5.29718, 2)
	pt3dadd(50.7059, 27.279, 5.13648, 2)
	pt3dadd(50.8494, 27.4727, 4.96442, 2)
	pt3dadd(50.9708, 27.6645, 4.77148, 2)
	pt3dadd(51.0479, 27.8552, 4.55312, 2)
	pt3dadd(51.1232, 28.0553, 4.33823, 2)
  }
  soma[110] {pt3dclear()
	pt3dadd(51.1232, 28.0553, 4.33823, 2)
	pt3dadd(51.0796, 28.3144, 4.15622, 2)
  }
  soma[111] {pt3dclear()
	pt3dadd(51.1232, 28.0553, 4.33823, 2)
	pt3dadd(51.2938, 27.966, 4.22508, 2)
	pt3dadd(51.4813, 27.8899, 4.10325, 2)
  }
  soma[112] {pt3dclear()
	pt3dadd(51.4813, 27.8899, 4.10325, 2)
	pt3dadd(51.5667, 27.7712, 3.84056, 2)
	pt3dadd(51.6325, 27.6728, 3.56859, 2)
	pt3dadd(51.6753, 27.5958, 3.28714, 2)
	pt3dadd(51.7093, 27.5163, 3.00557, 2)
  }
  soma[113] {pt3dclear()
	pt3dadd(51.4813, 27.8899, 4.10325, 2)
	pt3dadd(51.6318, 28.0329, 4.23431, 2)
	pt3dadd(51.7753, 28.2029, 4.37426, 2)
	pt3dadd(51.9109, 28.388, 4.52502, 2)
	pt3dadd(52.0424, 28.5776, 4.68694, 2)
	pt3dadd(52.1738, 28.7681, 4.8568, 2)
	pt3dadd(52.3106, 28.9496, 5.03926, 2)
	pt3dadd(52.4588, 29.1268, 5.22231, 2)
	pt3dadd(52.6125, 29.2996, 5.4082, 2)
  }
  soma[114] {pt3dclear()
	pt3dadd(48.1778, 28.6628, 6.97818, 2)
	pt3dadd(48.2737, 28.4623, 7.13786, 2)
	pt3dadd(48.3885, 28.2594, 7.2794, 2)
	pt3dadd(48.4919, 28.0437, 7.40843, 2)
	pt3dadd(48.5808, 27.8122, 7.51871, 2)
	pt3dadd(48.6348, 27.5618, 7.613, 2)
	pt3dadd(48.6495, 27.2969, 7.6938, 2)
	pt3dadd(48.6259, 27.0193, 7.74882, 2)
	pt3dadd(48.5747, 26.7348, 7.78335, 2)
	pt3dadd(48.5287, 26.4419, 7.80405, 2)
	pt3dadd(48.4947, 26.1431, 7.81357, 2)
	pt3dadd(48.4829, 25.8406, 7.81151, 2)
	pt3dadd(48.4745, 25.5388, 7.79869, 2)
	pt3dadd(48.4611, 25.2405, 7.77804, 2)
	pt3dadd(48.4466, 24.9489, 7.74995, 2)
  }
  soma[115] {pt3dclear()
	pt3dadd(48.4466, 24.9489, 7.74995, 2)
	pt3dadd(48.5925, 24.7171, 7.85965, 2)
	pt3dadd(48.7638, 24.5208, 7.95597, 2)
	pt3dadd(48.9639, 24.3619, 8.04221, 2)
	pt3dadd(49.1728, 24.2128, 8.1182, 2)
  }
  soma[116] {pt3dclear()
	pt3dadd(48.4466, 24.9489, 7.74995, 2)
	pt3dadd(48.3065, 24.9179, 7.4999, 2)
	pt3dadd(48.1739, 24.8662, 7.23408, 2)
	pt3dadd(48.0732, 24.7645, 6.96526, 2)
	pt3dadd(48.0416, 24.5992, 6.71207, 2)
	pt3dadd(48.0869, 24.4035, 6.48271, 2)
	pt3dadd(48.2012, 24.2059, 6.27798, 2)
	pt3dadd(48.3614, 24.0128, 6.10257, 2)
	pt3dadd(48.5536, 23.8334, 5.9564, 2)
  }
  soma[117] {pt3dclear()
	pt3dadd(48.5536, 23.8334, 5.9564, 2)
	pt3dadd(48.4925, 23.7005, 6.13138, 2)
	pt3dadd(48.4399, 23.5632, 6.32688, 2)
  }
  soma[118] {pt3dclear()
	pt3dadd(48.4399, 23.5632, 6.32688, 2)
	pt3dadd(48.296, 23.5589, 6.59355, 2)
	pt3dadd(48.1434, 23.5539, 6.84847, 2)
	pt3dadd(47.9648, 23.5272, 7.07963, 2)
	pt3dadd(47.7735, 23.4871, 7.29538, 2)
	pt3dadd(47.5753, 23.4413, 7.4995, 2)
	pt3dadd(47.3744, 23.3992, 7.69285, 2)
	pt3dadd(47.1883, 23.3327, 7.87967, 2)
  }
  soma[119] {pt3dclear()
	pt3dadd(47.1883, 23.3327, 7.87967, 2)
	pt3dadd(46.8677, 23.3299, 8.06603, 2)
  }
  soma[120] {pt3dclear()
	pt3dadd(47.1883, 23.3327, 7.87967, 2)
	pt3dadd(47.4561, 23.3453, 7.94701, 2)
	pt3dadd(47.7356, 23.3603, 8.03397, 2)
	pt3dadd(48.0221, 23.3771, 8.13616, 2)
	pt3dadd(48.3083, 23.4061, 8.25403, 2)
	pt3dadd(48.5947, 23.4267, 8.37952, 2)
  }
  soma[121] {pt3dclear()
	pt3dadd(48.4399, 23.5632, 6.32688, 2)
	pt3dadd(48.5403, 23.3767, 6.23972, 2)
	pt3dadd(48.6167, 23.1747, 6.12488, 2)
	pt3dadd(48.6695, 22.9657, 5.99286, 2)
  }
  soma[122] {pt3dclear()
	pt3dadd(48.5536, 23.8334, 5.9564, 2)
	pt3dadd(48.7793, 23.8023, 5.74566, 2)
	pt3dadd(49.0186, 23.7831, 5.56898, 2)
	pt3dadd(49.2606, 23.7882, 5.39991, 2)
	pt3dadd(49.5, 23.8012, 5.2202, 2)
  }
  soma[123] {pt3dclear()
	pt3dadd(49.5, 23.8012, 5.2202, 2)
	pt3dadd(49.7702, 23.792, 5.15726, 2)
	pt3dadd(50.0266, 23.7573, 5.07901, 2)
	pt3dadd(50.2714, 23.701, 5.03464, 2)
  }
  soma[124] {pt3dclear()
	pt3dadd(50.2714, 23.701, 5.03464, 2)
	pt3dadd(50.5643, 23.5875, 4.93785, 2)
	pt3dadd(50.8414, 23.486, 4.86432, 2)
	pt3dadd(51.104, 23.4072, 4.80186, 2)
  }
  soma[125] {pt3dclear()
	pt3dadd(51.104, 23.4072, 4.80186, 2)
	pt3dadd(51.4424, 23.3982, 4.7936, 2)
	pt3dadd(51.7575, 23.3619, 4.74894, 2)
	pt3dadd(52.0588, 23.3477, 4.67272, 2)
	pt3dadd(52.3504, 23.3929, 4.5698, 2)
	pt3dadd(52.6425, 23.4934, 4.46921, 2)
	pt3dadd(52.9479, 23.6164, 4.36023, 2)
  }
  soma[126] {pt3dclear()
	pt3dadd(52.9479, 23.6164, 4.36023, 2)
	pt3dadd(53.2035, 23.7131, 4.43369, 2)
	pt3dadd(53.4784, 23.7955, 4.52571, 2)
  }
  soma[127] {pt3dclear()
	pt3dadd(53.4784, 23.7955, 4.52571, 2)
	pt3dadd(53.6839, 23.9538, 4.57912, 2)
	pt3dadd(53.9076, 24.0955, 4.64632, 2)
	pt3dadd(54.1315, 24.2487, 4.71892, 2)
  }
  soma[128] {pt3dclear()
	pt3dadd(54.1315, 24.2487, 4.71892, 2)
	pt3dadd(54.3918, 24.2482, 4.86129, 2)
	pt3dadd(54.6511, 24.2392, 4.99874, 2)
	pt3dadd(54.9131, 24.2244, 5.12579, 2)
	pt3dadd(55.1692, 24.2141, 5.26203, 2)
	pt3dadd(55.4114, 24.241, 5.42014, 2)
  }
  soma[129] {pt3dclear()
	pt3dadd(55.4114, 24.241, 5.42014, 2)
	pt3dadd(55.6812, 24.2586, 5.43696, 2)
  }
  soma[130] {pt3dclear()
	pt3dadd(55.6812, 24.2586, 5.43696, 2)
	pt3dadd(55.9864, 24.2154, 5.61285, 2)
	pt3dadd(56.2886, 24.1819, 5.79971, 2)
  }
  soma[131] {pt3dclear()
	pt3dadd(56.2886, 24.1819, 5.79971, 2)
	pt3dadd(56.4723, 24.3799, 6.0136, 2)
	pt3dadd(56.6146, 24.6161, 6.23714, 2)
  }
  soma[132] {pt3dclear()
	pt3dadd(56.6146, 24.6161, 6.23714, 2)
	pt3dadd(56.7582, 24.7549, 6.40357, 2)
	pt3dadd(56.8876, 24.9318, 6.57349, 2)
	pt3dadd(57.0181, 25.143, 6.72169, 2)
	pt3dadd(57.1685, 25.3603, 6.8584, 2)
	pt3dadd(57.3081, 25.5915, 7.00183, 2)
	pt3dadd(57.463, 25.82, 7.15644, 2)
  }
  soma[133] {pt3dclear()
	pt3dadd(57.463, 25.82, 7.15644, 2)
	pt3dadd(57.6067, 26.05, 7.03127, 2)
  }
  soma[134] {pt3dclear()
	pt3dadd(57.6067, 26.05, 7.03127, 2)
	pt3dadd(57.7497, 26.1514, 6.7774, 2)
	pt3dadd(57.8866, 26.2479, 6.51824, 2)
	pt3dadd(58.025, 26.3535, 6.26388, 2)
	pt3dadd(58.151, 26.434, 5.99537, 2)
	pt3dadd(58.2228, 26.5037, 5.70533, 2)
	pt3dadd(58.2411, 26.557, 5.40446, 2)
	pt3dadd(58.2432, 26.6122, 5.10625, 2)
  }
  soma[135] {pt3dclear()
	pt3dadd(58.2432, 26.6122, 5.10625, 2)
	pt3dadd(58.268, 26.3559, 4.96078, 2)
	pt3dadd(58.3026, 26.088, 4.8312, 2)
	pt3dadd(58.3388, 25.8055, 4.73424, 2)
	pt3dadd(58.3755, 25.5123, 4.67362, 2)
	pt3dadd(58.4117, 25.2134, 4.6421, 2)
	pt3dadd(58.4407, 24.9111, 4.63129, 2)
	pt3dadd(58.4746, 24.6083, 4.62884, 2)
	pt3dadd(58.5115, 24.3057, 4.62792, 2)
	pt3dadd(58.5455, 24.0036, 4.62028, 2)
	pt3dadd(58.5609, 23.7017, 4.59916, 2)
	pt3dadd(58.5413, 23.4034, 4.55634, 2)
	pt3dadd(58.4809, 23.1158, 4.48889, 2)
	pt3dadd(58.3978, 22.8402, 4.39993, 2)
	pt3dadd(58.2971, 22.5822, 4.28412, 2)
	pt3dadd(58.1742, 22.3513, 4.14003, 2)
	pt3dadd(58.0512, 22.1501, 3.96101, 2)
	pt3dadd(57.9266, 21.9953, 3.74485, 2)
	pt3dadd(57.7937, 21.912, 3.49787, 2)
	pt3dadd(57.6558, 21.898, 3.23996, 2)
	pt3dadd(57.5298, 21.9356, 2.98153, 2)
	pt3dadd(57.4048, 21.9906, 2.73987, 2)
  }
  soma[136] {pt3dclear()
	pt3dadd(57.4048, 21.9906, 2.73987, 2)
	pt3dadd(57.2289, 22.203, 2.53053, 2)
	pt3dadd(57.0424, 22.3945, 2.34951, 2)
	pt3dadd(56.8369, 22.5681, 2.19776, 2)
	pt3dadd(56.6146, 22.7248, 2.06615, 2)
	pt3dadd(56.3728, 22.8551, 1.94558, 2)
	pt3dadd(56.1255, 22.9742, 1.82487, 2)
	pt3dadd(55.8775, 23.0854, 1.69726, 2)
	pt3dadd(55.6299, 23.191, 1.56327, 2)
  }
  soma[137] {pt3dclear()
	pt3dadd(57.4048, 21.9906, 2.73987, 2)
	pt3dadd(57.5132, 21.7433, 2.80063, 2)
	pt3dadd(57.6261, 21.478, 2.8527, 2)
	pt3dadd(57.7273, 21.1976, 2.87275, 2)
	pt3dadd(57.8003, 20.9087, 2.84449, 2)
	pt3dadd(57.8428, 20.6227, 2.76853, 2)
	pt3dadd(57.8434, 20.3453, 2.65419, 2)
	pt3dadd(57.7948, 20.0866, 2.50557, 2)
	pt3dadd(57.7281, 19.8481, 2.32824, 2)
  }
  soma[138] {pt3dclear()
	pt3dadd(58.2432, 26.6122, 5.10625, 2)
	pt3dadd(58.5172, 26.6378, 5.01441, 2)
	pt3dadd(58.7982, 26.6968, 4.92904, 2)
	pt3dadd(59.0825, 26.765, 4.85326, 2)
	pt3dadd(59.3712, 26.8138, 4.78063, 2)
	pt3dadd(59.6653, 26.8114, 4.71365, 2)
	pt3dadd(59.9576, 26.7563, 4.658, 2)
	pt3dadd(60.2508, 26.6923, 4.61006, 2)
	pt3dadd(60.5483, 26.6431, 4.56974, 2)
  }
}
proc shape3d_6() {
  soma[138] {	pt3dadd(60.8501, 26.6248, 4.53866, 2)
	pt3dadd(61.151, 26.652, 4.51777, 2)
	pt3dadd(61.4452, 26.7087, 4.50764, 2)
	pt3dadd(61.7269, 26.7817, 4.49941, 2)
	pt3dadd(61.9946, 26.8389, 4.49334, 2)
  }
  soma[139] {pt3dclear()
	pt3dadd(61.9946, 26.8389, 4.49334, 2)
	pt3dadd(61.9989, 27.0927, 4.60352, 2)
	pt3dadd(61.992, 27.3385, 4.73087, 2)
	pt3dadd(61.9767, 27.5804, 4.87372, 2)
	pt3dadd(61.9635, 27.8144, 5.04016, 2)
	pt3dadd(61.9526, 28.0337, 5.23503, 2)
	pt3dadd(61.9455, 28.241, 5.44921, 2)
	pt3dadd(61.9345, 28.4389, 5.67502, 2)
  }
  soma[140] {pt3dclear()
	pt3dadd(61.9946, 26.8389, 4.49334, 2)
	pt3dadd(62.1644, 26.5995, 4.44158, 2)
	pt3dadd(62.307, 26.3441, 4.40162, 2)
	pt3dadd(62.4503, 26.0891, 4.3559, 2)
	pt3dadd(62.6207, 25.851, 4.30018, 2)
	pt3dadd(62.8172, 25.6344, 4.23313, 2)
	pt3dadd(63.0312, 25.4407, 4.14713, 2)
	pt3dadd(63.2589, 25.2709, 4.04479, 2)
	pt3dadd(63.4867, 25.1208, 3.91261, 2)
	pt3dadd(63.715, 24.987, 3.76163, 2)
	pt3dadd(63.9357, 24.8641, 3.58899, 2)
	pt3dadd(64.1637, 24.7515, 3.41732, 2)
	pt3dadd(64.3892, 24.646, 3.23733, 2)
	pt3dadd(64.6139, 24.5725, 3.04095, 2)
  }
  soma[141] {pt3dclear()
	pt3dadd(58.2432, 26.6122, 5.10625, 2)
	pt3dadd(58.1371, 26.9047, 5.10029, 2)
	pt3dadd(58.0605, 27.1935, 5.092, 2)
	pt3dadd(58.04, 27.484, 5.07044, 2)
  }
  soma[142] {pt3dclear()
	pt3dadd(58.04, 27.484, 5.07044, 2)
	pt3dadd(57.9652, 27.7892, 5.10733, 2)
	pt3dadd(57.897, 28.0906, 5.11076, 2)
	pt3dadd(57.8258, 28.385, 5.06232, 2)
	pt3dadd(57.749, 28.6691, 4.97131, 2)
	pt3dadd(57.6904, 28.9502, 4.85526, 2)
  }
  soma[143] {pt3dclear()
	pt3dadd(58.04, 27.484, 5.07044, 2)
	pt3dadd(58.2321, 27.5273, 4.92984, 2)
	pt3dadd(58.4554, 27.5671, 4.79658, 2)
	pt3dadd(58.7009, 27.6037, 4.67155, 2)
  }
  soma[144] {pt3dclear()
	pt3dadd(58.7009, 27.6037, 4.67155, 2)
	pt3dadd(58.891, 27.5431, 4.45581, 2)
	pt3dadd(59.0929, 27.4446, 4.27241, 2)
	pt3dadd(59.2942, 27.3174, 4.10939, 2)
	pt3dadd(59.4835, 27.1674, 3.95144, 2)
  }
  soma[145] {pt3dclear()
	pt3dadd(58.7009, 27.6037, 4.67155, 2)
	pt3dadd(58.8601, 27.6756, 4.84243, 2)
	pt3dadd(59.0492, 27.7437, 5.01824, 2)
	pt3dadd(59.2538, 27.7989, 5.20469, 2)
	pt3dadd(59.4589, 27.8533, 5.40377, 2)
	pt3dadd(59.6687, 27.8843, 5.60969, 2)
	pt3dadd(59.8671, 27.8997, 5.83221, 2)
	pt3dadd(60.0702, 27.8895, 6.0552, 2)
	pt3dadd(60.2814, 27.8785, 6.27839, 2)
	pt3dadd(60.5101, 27.8665, 6.49701, 2)
  }
  soma[146] {pt3dclear()
	pt3dadd(60.5101, 27.8665, 6.49701, 2)
	pt3dadd(60.6758, 28.0071, 6.697, 2)
	pt3dadd(60.8683, 28.143, 6.87502, 2)
	pt3dadd(61.0505, 28.295, 7.05102, 2)
	pt3dadd(61.2252, 28.4506, 7.22873, 2)
	pt3dadd(61.3901, 28.5968, 7.41863, 2)
	pt3dadd(61.5368, 28.7311, 7.62884, 2)
	pt3dadd(61.6574, 28.8633, 7.8596, 2)
	pt3dadd(61.7182, 29.0169, 8.10951, 2)
  }
  soma[147] {pt3dclear()
	pt3dadd(61.7182, 29.0169, 8.10951, 2)
	pt3dadd(61.7397, 29.151, 8.3574, 2)
	pt3dadd(61.7469, 29.3315, 8.58682, 2)
	pt3dadd(61.7606, 29.552, 8.79029, 2)
	pt3dadd(61.7804, 29.7969, 8.97364, 2)
	pt3dadd(61.8047, 30.0532, 9.14666, 2)
	pt3dadd(61.8339, 30.3143, 9.31556, 2)
	pt3dadd(61.8696, 30.5746, 9.48626, 2)
	pt3dadd(61.9052, 30.8285, 9.66714, 2)
	pt3dadd(61.935, 31.0791, 9.8538, 2)
  }
  soma[148] {pt3dclear()
	pt3dadd(61.7182, 29.0169, 8.10951, 2)
	pt3dadd(61.5852, 29.2374, 8.1089, 2)
	pt3dadd(61.4637, 29.4825, 8.08374, 2)
	pt3dadd(61.3723, 29.7475, 8.03063, 2)
	pt3dadd(61.3193, 30.0209, 7.94087, 2)
	pt3dadd(61.3001, 30.286, 7.80513, 2)
	pt3dadd(61.2998, 30.5323, 7.62819, 2)
	pt3dadd(61.3, 30.7563, 7.41936, 2)
  }
  soma[149] {pt3dclear()
	pt3dadd(60.5101, 27.8665, 6.49701, 2)
	pt3dadd(60.6337, 27.6498, 6.52833, 2)
	pt3dadd(60.7754, 27.4167, 6.5485, 2)
	pt3dadd(60.9311, 27.1779, 6.56227, 2)
  }
  soma[150] {pt3dclear()
	pt3dadd(57.6067, 26.05, 7.03127, 2)
	pt3dadd(57.6295, 26.24, 7.20424, 2)
	pt3dadd(57.677, 26.449, 7.38307, 2)
	pt3dadd(57.7473, 26.6713, 7.5716, 2)
	pt3dadd(57.8262, 26.9032, 7.77862, 2)
  }
  soma[151] {pt3dclear()
	pt3dadd(57.8262, 26.9032, 7.77862, 2)
	pt3dadd(57.8439, 26.9554, 8.07112, 2)
	pt3dadd(57.8512, 26.9842, 8.37197, 2)
	pt3dadd(57.8703, 26.9798, 8.67709, 2)
	pt3dadd(57.8833, 26.9397, 8.98231, 2)
	pt3dadd(57.8874, 26.8748, 9.2848, 2)
  }
  soma[152] {pt3dclear()
	pt3dadd(57.8262, 26.9032, 7.77862, 2)
	pt3dadd(57.854, 27.1396, 7.72602, 2)
	pt3dadd(57.8525, 27.3979, 7.65554, 2)
	pt3dadd(57.8211, 27.6657, 7.55913, 2)
	pt3dadd(57.8082, 27.9439, 7.44907, 2)
	pt3dadd(57.804, 28.2245, 7.32292, 2)
	pt3dadd(57.7932, 28.5049, 7.187, 2)
  }
  soma[153] {pt3dclear()
	pt3dadd(57.463, 25.82, 7.15644, 2)
	pt3dadd(57.5607, 25.6818, 7.39741, 2)
	pt3dadd(57.6445, 25.4968, 7.61023, 2)
	pt3dadd(57.7126, 25.2759, 7.79216, 2)
	pt3dadd(57.77, 25.0344, 7.94918, 2)
	pt3dadd(57.8186, 24.7818, 8.08488, 2)
	pt3dadd(57.8524, 24.5238, 8.19913, 2)
  }
  soma[154] {pt3dclear()
	pt3dadd(57.8524, 24.5238, 8.19913, 2)
	pt3dadd(57.7475, 24.2191, 8.37982, 2)
  }
  soma[155] {pt3dclear()
	pt3dadd(57.8524, 24.5238, 8.19913, 2)
	pt3dadd(58.0393, 24.5963, 8.08415, 2)
	pt3dadd(58.2434, 24.6757, 7.9548, 2)
	pt3dadd(58.464, 24.7544, 7.81106, 2)
	pt3dadd(58.6916, 24.8474, 7.65757, 2)
	pt3dadd(58.9163, 24.9687, 7.50087, 2)
	pt3dadd(59.1341, 25.1163, 7.34651, 2)
	pt3dadd(59.3441, 25.2808, 7.19375, 2)
  }
  soma[156] {pt3dclear()
	pt3dadd(56.6146, 24.6161, 6.23714, 2)
	pt3dadd(56.4932, 24.8605, 6.33119, 2)
	pt3dadd(56.3589, 25.1105, 6.43389, 2)
	pt3dadd(56.2158, 25.3576, 6.55702, 2)
	pt3dadd(56.08, 25.6028, 6.70421, 2)
	pt3dadd(55.9508, 25.8395, 6.87549, 2)
  }
  soma[157] {pt3dclear()
	pt3dadd(56.2886, 24.1819, 5.79971, 2)
	pt3dadd(56.3975, 23.9437, 5.88379, 2)
	pt3dadd(56.5076, 23.6907, 5.98875, 2)
	pt3dadd(56.6225, 23.4367, 6.10924, 2)
	pt3dadd(56.7675, 23.203, 6.24382, 2)
	pt3dadd(56.9127, 22.9792, 6.3956, 2)
	pt3dadd(57.0534, 22.7664, 6.56648, 2)
	pt3dadd(57.2001, 22.5743, 6.7569, 2)
	pt3dadd(57.3424, 22.3955, 6.96433, 2)
	pt3dadd(57.469, 22.2166, 7.18224, 2)
  }
  soma[158] {pt3dclear()
	pt3dadd(55.6812, 24.2586, 5.43696, 2)
	pt3dadd(55.5795, 24.4577, 5.32943, 2)
	pt3dadd(55.4884, 24.6741, 5.21491, 2)
	pt3dadd(55.4025, 24.8976, 5.09224, 2)
  }
  soma[159] {pt3dclear()
	pt3dadd(55.4114, 24.241, 5.42014, 2)
	pt3dadd(55.3089, 24.3841, 5.6491, 2)
	pt3dadd(55.1975, 24.5347, 5.88627, 2)
	pt3dadd(55.0893, 24.696, 6.12581, 2)
	pt3dadd(54.9861, 24.8629, 6.3665, 2)
	pt3dadd(54.888, 25.0301, 6.60996, 2)
	pt3dadd(54.7922, 25.1978, 6.85411, 2)
	pt3dadd(54.6937, 25.3631, 7.09811, 2)
	pt3dadd(54.5875, 25.5192, 7.34276, 2)
	pt3dadd(54.4884, 25.6573, 7.59828, 2)
	pt3dadd(54.4138, 25.7737, 7.87218, 2)
  }
  soma[160] {pt3dclear()
	pt3dadd(54.4138, 25.7737, 7.87218, 2)
	pt3dadd(54.3047, 25.9257, 8.10557, 2)
  }
  soma[161] {pt3dclear()
	pt3dadd(54.4138, 25.7737, 7.87218, 2)
	pt3dadd(54.5653, 25.6364, 7.97956, 2)
	pt3dadd(54.7526, 25.4933, 8.08834, 2)
	pt3dadd(54.9755, 25.3635, 8.19908, 2)
	pt3dadd(55.2187, 25.2431, 8.31248, 2)
	pt3dadd(55.4794, 25.1437, 8.42369, 2)
  }
  soma[162] {pt3dclear()
	pt3dadd(54.1315, 24.2487, 4.71892, 2)
	pt3dadd(54.0536, 24.4739, 4.65879, 2)
	pt3dadd(53.9682, 24.7073, 4.57074, 2)
	pt3dadd(53.8815, 24.9414, 4.44534, 2)
	pt3dadd(53.7698, 25.1576, 4.28563, 2)
	pt3dadd(53.6891, 25.3642, 4.08453, 2)
	pt3dadd(53.6154, 25.5826, 3.88617, 2)
	pt3dadd(53.5695, 25.8121, 3.69033, 2)
	pt3dadd(53.5289, 26.0482, 3.50412, 2)
	pt3dadd(53.4973, 26.2876, 3.32721, 2)
  }
  soma[163] {pt3dclear()
	pt3dadd(53.4973, 26.2876, 3.32721, 2)
	pt3dadd(53.5005, 26.4835, 3.04683, 2)
	pt3dadd(53.5017, 26.6684, 2.76904, 2)
  }
  soma[164] {pt3dclear()
	pt3dadd(53.4973, 26.2876, 3.32721, 2)
	pt3dadd(53.4154, 26.3329, 3.53613, 2)
	pt3dadd(53.3255, 26.391, 3.76604, 2)
	pt3dadd(53.2373, 26.4557, 4.01337, 2)
	pt3dadd(53.1509, 26.5154, 4.27266, 2)
	pt3dadd(53.0782, 26.5765, 4.54016, 2)
  }
  soma[165] {pt3dclear()
	pt3dadd(53.4784, 23.7955, 4.52571, 2)
	pt3dadd(53.6273, 23.6626, 4.65878, 2)
	pt3dadd(53.7971, 23.5123, 4.80425, 2)
	pt3dadd(53.984, 23.3538, 4.96332, 2)
  }
  soma[166] {pt3dclear()
	pt3dadd(53.984, 23.3538, 4.96332, 2)
	pt3dadd(54.2438, 23.1869, 4.89639, 2)
	pt3dadd(54.5164, 23.0504, 4.82746, 2)
	pt3dadd(54.7931, 22.9436, 4.74199, 2)
	pt3dadd(55.0651, 22.8635, 4.6244, 2)
	pt3dadd(55.3324, 22.8093, 4.48245, 2)
  }
  soma[167] {pt3dclear()
	pt3dadd(53.984, 23.3538, 4.96332, 2)
	pt3dadd(54.0401, 23.3815, 5.2209, 2)
	pt3dadd(54.1422, 23.4016, 5.48224, 2)
	pt3dadd(54.2534, 23.4159, 5.75179, 2)
	pt3dadd(54.3732, 23.4238, 6.02365, 2)
  }
  soma[168] {pt3dclear()
	pt3dadd(52.9479, 23.6164, 4.36023, 2)
	pt3dadd(52.9583, 23.7927, 4.16109, 2)
	pt3dadd(52.9169, 24.0005, 3.9697, 2)
	pt3dadd(52.8313, 24.2253, 3.79264, 2)
	pt3dadd(52.7111, 24.4507, 3.62113, 2)
  }
}
proc shape3d_7() {
  soma[168] {	pt3dadd(52.5606, 24.6619, 3.44448, 2)
	pt3dadd(52.4118, 24.8713, 3.25915, 2)
  }
  soma[169] {pt3dclear()
	pt3dadd(51.104, 23.4072, 4.80186, 2)
	pt3dadd(50.9622, 23.2338, 4.71688, 2)
	pt3dadd(50.8122, 23.0499, 4.60621, 2)
	pt3dadd(50.6659, 22.8447, 4.48241, 2)
	pt3dadd(50.5418, 22.6222, 4.3288, 2)
  }
  soma[170] {pt3dclear()
	pt3dadd(50.5418, 22.6222, 4.3288, 2)
	pt3dadd(50.328, 22.5448, 4.17756, 2)
  }
  soma[171] {pt3dclear()
	pt3dadd(50.5418, 22.6222, 4.3288, 2)
	pt3dadd(50.7177, 22.4801, 4.24455, 2)
	pt3dadd(50.9161, 22.351, 4.1389, 2)
	pt3dadd(51.1394, 22.2713, 4.00193, 2)
	pt3dadd(51.3808, 22.2358, 3.85653, 2)
	pt3dadd(51.6215, 22.2594, 3.69359, 2)
	pt3dadd(51.8484, 22.3399, 3.51752, 2)
	pt3dadd(52.0604, 22.4295, 3.32086, 2)
  }
  soma[172] {pt3dclear()
	pt3dadd(50.2714, 23.701, 5.03464, 2)
	pt3dadd(50.2161, 23.826, 5.23499, 2)
	pt3dadd(50.1688, 23.9773, 5.45243, 2)
	pt3dadd(50.1181, 24.1573, 5.67074, 2)
	pt3dadd(50.0561, 24.3587, 5.88088, 2)
	pt3dadd(49.974, 24.56, 6.08998, 2)
	pt3dadd(49.8298, 24.727, 6.29567, 2)
	pt3dadd(49.6394, 24.8621, 6.48375, 2)
	pt3dadd(49.4226, 24.9861, 6.64687, 2)
  }
  soma[173] {pt3dclear()
	pt3dadd(49.5, 23.8012, 5.2202, 2)
	pt3dadd(49.4004, 23.8668, 4.9869, 2)
	pt3dadd(49.3065, 23.9445, 4.73766, 2)
	pt3dadd(49.2289, 24.021, 4.4708, 2)
	pt3dadd(49.1529, 24.0837, 4.19366, 2)
	pt3dadd(49.0843, 24.1437, 3.9117, 2)
  }
  soma[174] {pt3dclear()
	pt3dadd(48.1637, 29.0247, 7.01972, 2)
	pt3dadd(47.9681, 29.1301, 6.92658, 2)
	pt3dadd(47.7707, 29.2551, 6.82085, 2)
	pt3dadd(47.5553, 29.3807, 6.7133, 2)
	pt3dadd(47.3261, 29.5103, 6.61027, 2)
	pt3dadd(47.0827, 29.6423, 6.52745, 2)
	pt3dadd(46.8304, 29.7871, 6.48096, 2)
  }
  soma[175] {pt3dclear()
	pt3dadd(46.8304, 29.7871, 6.48096, 2)
	pt3dadd(46.5483, 29.8587, 6.41348, 2)
	pt3dadd(46.2551, 29.9416, 6.39067, 2)
	pt3dadd(45.9586, 30.0378, 6.39718, 2)
	pt3dadd(45.664, 30.1471, 6.42507, 2)
	pt3dadd(45.3748, 30.2673, 6.46861, 2)
  }
  soma[176] {pt3dclear()
	pt3dadd(45.3748, 30.2673, 6.46861, 2)
	pt3dadd(45.4982, 30.0966, 6.28665, 2)
	pt3dadd(45.619, 29.9158, 6.1097, 2)
	pt3dadd(45.7479, 29.7328, 5.93893, 2)
	pt3dadd(45.8845, 29.555, 5.76765, 2)
	pt3dadd(46.0172, 29.3838, 5.58648, 2)
	pt3dadd(46.1432, 29.2187, 5.39514, 2)
  }
  soma[177] {pt3dclear()
	pt3dadd(45.3748, 30.2673, 6.46861, 2)
	pt3dadd(45.3071, 30.4461, 6.70765, 2)
	pt3dadd(45.2619, 30.6337, 6.94454, 2)
	pt3dadd(45.2245, 30.8319, 7.17534, 2)
	pt3dadd(45.1784, 31.0404, 7.39729, 2)
	pt3dadd(45.1117, 31.2551, 7.60987, 2)
	pt3dadd(45.0268, 31.4717, 7.81488, 2)
  }
  soma[178] {pt3dclear()
	pt3dadd(45.3748, 30.2673, 6.46861, 2)
	pt3dadd(45.1217, 30.4019, 6.51285, 2)
	pt3dadd(44.8679, 30.532, 6.56274, 2)
	pt3dadd(44.6107, 30.659, 6.61162, 2)
	pt3dadd(44.346, 30.7764, 6.6597, 2)
	pt3dadd(44.0797, 30.895, 6.70492, 2)
	pt3dadd(43.8149, 31.0183, 6.73733, 2)
	pt3dadd(43.5508, 31.1407, 6.74919, 2)
	pt3dadd(43.2851, 31.255, 6.73117, 2)
	pt3dadd(43.014, 31.3523, 6.69166, 2)
	pt3dadd(42.7361, 31.4318, 6.64889, 2)
	pt3dadd(42.4561, 31.5103, 6.61706, 2)
	pt3dadd(42.1785, 31.5985, 6.60298, 2)
	pt3dadd(41.9058, 31.694, 6.61137, 2)
	pt3dadd(41.6408, 31.7904, 6.64178, 2)
	pt3dadd(41.3815, 31.8678, 6.68882, 2)
  }
  soma[179] {pt3dclear()
	pt3dadd(41.3815, 31.8678, 6.68882, 2)
	pt3dadd(41.0737, 31.7962, 6.63707, 2)
	pt3dadd(40.7876, 31.6967, 6.59019, 2)
	pt3dadd(40.5102, 31.5948, 6.53842, 2)
	pt3dadd(40.2424, 31.4826, 6.47278, 2)
	pt3dadd(39.9813, 31.3668, 6.39125, 2)
	pt3dadd(39.7313, 31.2446, 6.28677, 2)
	pt3dadd(39.4883, 31.1217, 6.16627, 2)
	pt3dadd(39.2578, 30.9915, 6.02899, 2)
	pt3dadd(39.036, 30.8589, 5.88077, 2)
	pt3dadd(38.8083, 30.739, 5.73404, 2)
	pt3dadd(38.5728, 30.6441, 5.59209, 2)
	pt3dadd(38.3348, 30.5921, 5.45992, 2)
	pt3dadd(38.1104, 30.6051, 5.33975, 2)
	pt3dadd(37.9165, 30.7059, 5.24009, 2)
	pt3dadd(37.7711, 30.8959, 5.16331, 2)
	pt3dadd(37.6792, 31.1529, 5.10151, 2)
	pt3dadd(37.621, 31.4505, 5.03974, 2)
  }
  soma[180] {pt3dclear()
	pt3dadd(37.621, 31.4505, 5.03974, 2)
	pt3dadd(37.6181, 31.6958, 5.05127, 2)
	pt3dadd(37.5966, 31.9564, 5.06222, 2)
	pt3dadd(37.5514, 32.2229, 5.08644, 2)
	pt3dadd(37.4808, 32.4879, 5.12878, 2)
	pt3dadd(37.3904, 32.7494, 5.18499, 2)
	pt3dadd(37.2736, 33.0024, 5.25238, 2)
	pt3dadd(37.1541, 33.253, 5.33666, 2)
	pt3dadd(37.0348, 33.5016, 5.43378, 2)
  }
  soma[181] {pt3dclear()
	pt3dadd(37.621, 31.4505, 5.03974, 2)
	pt3dadd(37.52, 31.5984, 4.90992, 2)
	pt3dadd(37.3983, 31.7485, 4.75491, 2)
	pt3dadd(37.2573, 31.8995, 4.58143, 2)
	pt3dadd(37.1023, 32.0493, 4.39485, 2)
	pt3dadd(36.9401, 32.1951, 4.19946, 2)
  }
  soma[182] {pt3dclear()
	pt3dadd(41.3815, 31.8678, 6.68882, 2)
	pt3dadd(41.4689, 31.9934, 6.86576, 2)
	pt3dadd(41.5667, 32.1156, 7.06882, 2)
	pt3dadd(41.6618, 32.2414, 7.29029, 2)
	pt3dadd(41.7649, 32.3781, 7.51111, 2)
  }
  soma[183] {pt3dclear()
	pt3dadd(46.8304, 29.7871, 6.48096, 2)
	pt3dadd(46.8182, 29.9019, 6.71806, 2)
	pt3dadd(46.8215, 30.0321, 6.97909, 2)
	pt3dadd(46.8284, 30.1849, 7.24022, 2)
	pt3dadd(46.8411, 30.3628, 7.48842, 2)
	pt3dadd(46.856, 30.5705, 7.71352, 2)
	pt3dadd(46.8708, 30.8046, 7.91312, 2)
	pt3dadd(46.8941, 31.0551, 8.09371, 2)
	pt3dadd(46.9217, 31.3152, 8.26165, 2)
	pt3dadd(46.9558, 31.5819, 8.41915, 2)
  }
  soma[184] {pt3dclear()
	pt3dadd(48.6644, 29.9657, 7.39257, 2)
	pt3dadd(48.8256, 29.9126, 7.57911, 2)
	pt3dadd(48.9867, 29.8318, 7.77085, 2)
	pt3dadd(49.165, 29.7462, 7.96154, 2)
	pt3dadd(49.3542, 29.6541, 8.15213, 2)
	pt3dadd(49.55, 29.5687, 8.34626, 2)
  }
  soma[185] {pt3dclear()
	pt3dadd(49.55, 29.5687, 8.34626, 2)
	pt3dadd(49.8305, 29.4992, 8.45609, 2)
	pt3dadd(50.0885, 29.4187, 8.59064, 2)
	pt3dadd(50.3368, 29.3199, 8.72076, 2)
	pt3dadd(50.5729, 29.2001, 8.8501, 2)
	pt3dadd(50.789, 29.0463, 8.97886, 2)
	pt3dadd(51.0153, 28.8843, 9.09146, 2)
	pt3dadd(51.2595, 28.7085, 9.17827, 2)
  }
  soma[186] {pt3dclear()
	pt3dadd(51.2595, 28.7085, 9.17827, 2)
	pt3dadd(51.3709, 28.4718, 9.13832, 2)
	pt3dadd(51.4926, 28.2351, 9.09923, 2)
	pt3dadd(51.6136, 27.9998, 9.05969, 2)
	pt3dadd(51.7149, 27.7662, 9.0082, 2)
  }
  soma[187] {pt3dclear()
	pt3dadd(51.7149, 27.7662, 9.0082, 2)
	pt3dadd(51.9597, 27.5099, 8.89187, 2)
  }
  soma[188] {pt3dclear()
	pt3dadd(51.9597, 27.5099, 8.89187, 2)
	pt3dadd(52.0452, 27.2305, 8.87475, 2)
	pt3dadd(52.1426, 26.9634, 8.84757, 2)
  }
  soma[189] {pt3dclear()
	pt3dadd(52.1426, 26.9634, 8.84757, 2)
	pt3dadd(52.1867, 26.6491, 8.72632, 2)
	pt3dadd(52.2627, 26.3396, 8.60582, 2)
  }
  soma[190] {pt3dclear()
	pt3dadd(52.2627, 26.3396, 8.60582, 2)
	pt3dadd(52.3585, 26.0584, 8.65243, 2)
	pt3dadd(52.4333, 25.7684, 8.67838, 2)
	pt3dadd(52.501, 25.4738, 8.67747, 2)
	pt3dadd(52.5725, 25.1775, 8.67117, 2)
	pt3dadd(52.6202, 24.8731, 8.64187, 2)
	pt3dadd(52.6613, 24.5616, 8.59388, 2)
	pt3dadd(52.7152, 24.243, 8.51719, 2)
  }
  soma[191] {pt3dclear()
	pt3dadd(52.7152, 24.243, 8.51719, 2)
	pt3dadd(52.723, 24.0123, 8.50065, 2)
	pt3dadd(52.7588, 23.7756, 8.48173, 2)
  }
  soma[192] {pt3dclear()
	pt3dadd(52.7588, 23.7756, 8.48173, 2)
	pt3dadd(52.8998, 23.555, 8.31334, 2)
	pt3dadd(53.0117, 23.308, 8.17048, 2)
	pt3dadd(53.1032, 23.0445, 8.04951, 2)
	pt3dadd(53.1863, 22.779, 7.92673, 2)
  }
  soma[193] {pt3dclear()
	pt3dadd(53.1863, 22.779, 7.92673, 2)
	pt3dadd(53.2744, 22.5085, 7.81221, 2)
	pt3dadd(53.3539, 22.2305, 7.69302, 2)
	pt3dadd(53.4452, 21.9419, 7.58083, 2)
  }
  soma[194] {pt3dclear()
	pt3dadd(53.4452, 21.9419, 7.58083, 2)
	pt3dadd(53.5711, 21.6889, 7.42289, 2)
  }
  soma[195] {pt3dclear()
	pt3dadd(53.5711, 21.6889, 7.42289, 2)
	pt3dadd(53.6272, 21.4901, 7.23451, 2)
	pt3dadd(53.6955, 21.2595, 7.07568, 2)
	pt3dadd(53.788, 21.0196, 6.92952, 2)
	pt3dadd(53.8946, 20.7673, 6.80449, 2)
	pt3dadd(54.0222, 20.519, 6.67791, 2)
	pt3dadd(54.1524, 20.2575, 6.56246, 2)
  }
  soma[196] {pt3dclear()
	pt3dadd(54.1524, 20.2575, 6.56246, 2)
	pt3dadd(54.3756, 20.0678, 6.46176, 2)
	pt3dadd(54.6111, 19.8642, 6.38162, 2)
	pt3dadd(54.8538, 19.632, 6.3297, 2)
  }
  soma[197] {pt3dclear()
	pt3dadd(54.8538, 19.632, 6.3297, 2)
	pt3dadd(55.0715, 19.496, 6.30562, 2)
	pt3dadd(55.2989, 19.3414, 6.28355, 2)
	pt3dadd(55.5464, 19.1948, 6.26052, 2)
	pt3dadd(55.8014, 19.0444, 6.24686, 2)
	pt3dadd(56.0773, 18.9238, 6.25359, 2)
	pt3dadd(56.3604, 18.8121, 6.28065, 2)
  }
  soma[198] {pt3dclear()
	pt3dadd(56.3604, 18.8121, 6.28065, 2)
	pt3dadd(56.6194, 18.6637, 6.25412, 2)
	pt3dadd(56.892, 18.5348, 6.24281, 2)
	pt3dadd(57.1618, 18.3963, 6.25332, 2)
	pt3dadd(57.4134, 18.2251, 6.27615, 2)
	pt3dadd(57.669, 18.0569, 6.31581, 2)
	pt3dadd(57.9245, 17.8877, 6.39171, 2)
	pt3dadd(58.1842, 17.7218, 6.50517, 2)
  }
  soma[199] {pt3dclear()
	pt3dadd(58.1842, 17.7218, 6.50517, 2)
	pt3dadd(58.4648, 17.6406, 6.49676, 2)
  }
}
proc shape3d_8() {
  soma[199] {	pt3dadd(58.7368, 17.5122, 6.47364, 2)
  }
  soma[200] {pt3dclear()
	pt3dadd(58.7368, 17.5122, 6.47364, 2)
	pt3dadd(59.0134, 17.4482, 6.59393, 2)
  }
  soma[201] {pt3dclear()
	pt3dadd(59.0134, 17.4482, 6.59393, 2)
	pt3dadd(59.2739, 17.3227, 6.60436, 2)
	pt3dadd(59.5354, 17.1858, 6.57372, 2)
	pt3dadd(59.8169, 17.0769, 6.50872, 2)
  }
  soma[202] {pt3dclear()
	pt3dadd(59.8169, 17.0769, 6.50872, 2)
	pt3dadd(60.1546, 17.06, 6.52182, 2)
  }
  soma[203] {pt3dclear()
	pt3dadd(60.1546, 17.06, 6.52182, 2)
	pt3dadd(60.3748, 17.0897, 6.38035, 2)
	pt3dadd(60.6087, 17.1453, 6.24198, 2)
	pt3dadd(60.8398, 17.202, 6.08192, 2)
	pt3dadd(61.0831, 17.2769, 5.94037, 2)
	pt3dadd(61.3302, 17.3671, 5.81401, 2)
	pt3dadd(61.5888, 17.4561, 5.71394, 2)
	pt3dadd(61.8468, 17.5771, 5.64483, 2)
	pt3dadd(62.1262, 17.683, 5.59897, 2)
  }
  soma[204] {pt3dclear()
	pt3dadd(62.1262, 17.683, 5.59897, 2)
	pt3dadd(62.3096, 17.8807, 5.55724, 2)
	pt3dadd(62.5086, 18.0856, 5.55593, 2)
	pt3dadd(62.7267, 18.2953, 5.58925, 2)
	pt3dadd(62.9717, 18.5069, 5.64175, 2)
  }
  soma[205] {pt3dclear()
	pt3dadd(62.9717, 18.5069, 5.64175, 2)
	pt3dadd(63.1422, 18.5998, 5.82734, 2)
	pt3dadd(63.3303, 18.67, 6.02133, 2)
	pt3dadd(63.5328, 18.7268, 6.21448, 2)
	pt3dadd(63.7618, 18.7619, 6.38737, 2)
	pt3dadd(64.0066, 18.7868, 6.54296, 2)
  }
  soma[206] {pt3dclear()
	pt3dadd(64.0066, 18.7868, 6.54296, 2)
	pt3dadd(64.2547, 18.9019, 6.66238, 2)
	pt3dadd(64.504, 18.9788, 6.79905, 2)
	pt3dadd(64.7545, 19.0007, 6.95226, 2)
	pt3dadd(64.9926, 18.986, 7.13172, 2)
	pt3dadd(65.2225, 18.908, 7.32029, 2)
  }
  soma[207] {pt3dclear()
	pt3dadd(65.2225, 18.908, 7.32029, 2)
	pt3dadd(65.3923, 18.9771, 7.5378, 2)
	pt3dadd(65.5759, 19.0254, 7.74311, 2)
  }
  soma[208] {pt3dclear()
	pt3dadd(65.5759, 19.0254, 7.74311, 2)
	pt3dadd(65.7485, 18.9083, 7.94963, 2)
	pt3dadd(65.9482, 18.7758, 8.10003, 2)
	pt3dadd(66.1739, 18.6293, 8.19795, 2)
	pt3dadd(66.4195, 18.4789, 8.26434, 2)
	pt3dadd(66.6896, 18.3475, 8.31639, 2)
	pt3dadd(66.9817, 18.2356, 8.36166, 2)
  }
  soma[209] {pt3dclear()
	pt3dadd(66.9817, 18.2356, 8.36166, 2)
	pt3dadd(67.2088, 18.0659, 8.40542, 2)
	pt3dadd(67.4757, 17.9447, 8.43867, 2)
	pt3dadd(67.7649, 17.8656, 8.46446, 2)
	pt3dadd(68.0623, 17.8059, 8.48486, 2)
	pt3dadd(68.3651, 17.7594, 8.48794, 2)
  }
  soma[210] {pt3dclear()
	pt3dadd(68.3651, 17.7594, 8.48794, 2)
	pt3dadd(68.58, 17.5309, 8.47755, 2)
	pt3dadd(68.8073, 17.3363, 8.45878, 2)
	pt3dadd(69.0419, 17.1664, 8.43556, 2)
	pt3dadd(69.2861, 17.0351, 8.40509, 2)
	pt3dadd(69.5378, 16.9836, 8.36388, 2)
	pt3dadd(69.7723, 17.023, 8.31632, 2)
	pt3dadd(69.9587, 17.1701, 8.25865, 2)
	pt3dadd(70.0919, 17.3846, 8.18624, 2)
	pt3dadd(70.188, 17.6288, 8.09631, 2)
	pt3dadd(70.251, 17.879, 7.98815, 2)
	pt3dadd(70.2909, 18.1217, 7.87905, 2)
  }
  soma[211] {pt3dclear()
	pt3dadd(70.2909, 18.1217, 7.87905, 2)
	pt3dadd(70.3498, 18.3905, 7.67383, 2)
	pt3dadd(70.3813, 18.6585, 7.49033, 2)
	pt3dadd(70.383, 18.9248, 7.30831, 2)
  }
  soma[212] {pt3dclear()
	pt3dadd(70.383, 18.9248, 7.30831, 2)
	pt3dadd(70.4069, 19.2076, 7.25032, 2)
	pt3dadd(70.4685, 19.4763, 7.16984, 2)
	pt3dadd(70.5587, 19.7257, 7.06133, 2)
	pt3dadd(70.6675, 19.9565, 6.93189, 2)
	pt3dadd(70.7873, 20.1826, 6.81192, 2)
	pt3dadd(70.928, 20.3941, 6.71058, 2)
	pt3dadd(71.0649, 20.595, 6.62849, 2)
  }
  soma[213] {pt3dclear()
	pt3dadd(71.0649, 20.595, 6.62849, 2)
	pt3dadd(71.1908, 20.9529, 6.55626, 2)
  }
  soma[214] {pt3dclear()
	pt3dadd(71.0649, 20.595, 6.62849, 2)
	pt3dadd(70.9284, 20.391, 6.70994, 2)
	pt3dadd(70.7875, 20.1765, 6.81393, 2)
	pt3dadd(70.6686, 19.9477, 6.94215, 2)
	pt3dadd(70.5666, 19.7101, 7.08137, 2)
	pt3dadd(70.4869, 19.4568, 7.21064, 2)
	pt3dadd(70.4538, 19.188, 7.32888, 2)
	pt3dadd(70.4788, 18.9162, 7.44472, 2)
	pt3dadd(70.5553, 18.6605, 7.57792, 2)
	pt3dadd(70.6775, 18.4443, 7.74513, 2)
	pt3dadd(70.8468, 18.2791, 7.93045, 2)
	pt3dadd(71.0541, 18.156, 8.1125, 2)
  }
  soma[215] {pt3dclear()
	pt3dadd(71.0541, 18.156, 8.1125, 2)
	pt3dadd(71.2064, 17.9238, 8.27937, 2)
	pt3dadd(71.3619, 17.7033, 8.44532, 2)
  }
  soma[216] {pt3dclear()
	pt3dadd(71.0541, 18.156, 8.1125, 2)
	pt3dadd(71.1649, 18.3974, 8.11338, 2)
	pt3dadd(71.2381, 18.6666, 8.07989, 2)
	pt3dadd(71.2522, 18.9431, 7.99804, 2)
	pt3dadd(71.2178, 19.21, 7.86795, 2)
	pt3dadd(71.165, 19.469, 7.70918, 2)
	pt3dadd(71.0941, 19.7127, 7.52592, 2)
  }
  soma[217] {pt3dclear()
	pt3dadd(71.0649, 20.595, 6.62849, 2)
	pt3dadd(71.3126, 20.3853, 6.61334, 2)
  }
  soma[218] {pt3dclear()
	pt3dadd(70.383, 18.9248, 7.30831, 2)
	pt3dadd(70.2809, 19.0475, 7.07784, 2)
	pt3dadd(70.1629, 19.1707, 6.83943, 2)
	pt3dadd(70.0232, 19.2805, 6.59985, 2)
	pt3dadd(69.8653, 19.3743, 6.36315, 2)
	pt3dadd(69.6966, 19.426, 6.12151, 2)
	pt3dadd(69.5152, 19.4391, 5.88526, 2)
	pt3dadd(69.3377, 19.4082, 5.64949, 2)
	pt3dadd(69.1957, 19.3405, 5.40033, 2)
	pt3dadd(69.0962, 19.2411, 5.143, 2)
	pt3dadd(69.0338, 19.1063, 4.88972, 2)
	pt3dadd(69.0181, 18.9405, 4.64548, 2)
	pt3dadd(69.0255, 18.7478, 4.41855, 2)
	pt3dadd(69.05, 18.5404, 4.20599, 2)
	pt3dadd(69.0762, 18.3336, 3.99745, 2)
  }
  soma[219] {pt3dclear()
	pt3dadd(69.0762, 18.3336, 3.99745, 2)
	pt3dadd(69.0715, 18.0282, 3.89423, 2)
	pt3dadd(69.0424, 17.7348, 3.78872, 2)
  }
  soma[220] {pt3dclear()
	pt3dadd(69.0424, 17.7348, 3.78872, 2)
	pt3dadd(69.1409, 17.469, 3.66388, 2)
	pt3dadd(69.2133, 17.2052, 3.53882, 2)
	pt3dadd(69.2839, 16.9563, 3.3953, 2)
	pt3dadd(69.3659, 16.7184, 3.23907, 2)
	pt3dadd(69.4529, 16.4808, 3.07243, 2)
	pt3dadd(69.5532, 16.2308, 2.90375, 2)
  }
  soma[221] {pt3dclear()
	pt3dadd(69.5532, 16.2308, 2.90375, 2)
	pt3dadd(69.5994, 16.1551, 2.64059, 2)
	pt3dadd(69.6522, 16.0908, 2.37097, 2)
	pt3dadd(69.706, 16.0352, 2.09732, 2)
  }
  soma[222] {pt3dclear()
	pt3dadd(69.5532, 16.2308, 2.90375, 2)
	pt3dadd(69.6469, 16.0395, 3.01111, 2)
	pt3dadd(69.7424, 15.8414, 3.14603, 2)
	pt3dadd(69.8344, 15.6404, 3.29718, 2)
  }
  soma[223] {pt3dclear()
	pt3dadd(69.0424, 17.7348, 3.78872, 2)
	pt3dadd(68.7465, 17.7356, 3.81635, 2)
	pt3dadd(68.4405, 17.7208, 3.83575, 2)
	pt3dadd(68.1424, 17.6963, 3.83474, 2)
  }
  soma[224] {pt3dclear()
	pt3dadd(68.1424, 17.6963, 3.83474, 2)
	pt3dadd(67.8814, 17.4967, 3.88571, 2)
	pt3dadd(67.6288, 17.3118, 3.91718, 2)
  }
  soma[225] {pt3dclear()
	pt3dadd(68.1424, 17.6963, 3.83474, 2)
	pt3dadd(68.1831, 17.9517, 3.66363, 2)
	pt3dadd(68.2218, 18.2203, 3.47838, 2)
	pt3dadd(68.2568, 18.4907, 3.2814, 2)
  }
  soma[226] {pt3dclear()
	pt3dadd(69.0762, 18.3336, 3.99745, 2)
	pt3dadd(69.0882, 18.5519, 3.85101, 2)
	pt3dadd(69.0959, 18.7891, 3.69409, 2)
	pt3dadd(69.1005, 19.0366, 3.52436, 2)
	pt3dadd(69.1031, 19.2887, 3.34722, 2)
  }
  soma[227] {pt3dclear()
	pt3dadd(70.383, 18.9248, 7.30831, 2)
	pt3dadd(70.5194, 18.7684, 7.17725, 2)
	pt3dadd(70.65, 18.6015, 7.02372, 2)
	pt3dadd(70.7993, 18.4516, 6.85539, 2)
  }
  soma[228] {pt3dclear()
	pt3dadd(70.2909, 18.1217, 7.87905, 2)
	pt3dadd(70.2138, 18.0454, 8.12243, 2)
	pt3dadd(70.1388, 17.9713, 8.3945, 2)
	pt3dadd(70.0699, 17.9054, 8.68691, 2)
	pt3dadd(70.0148, 17.8417, 8.99013, 2)
  }
  soma[229] {pt3dclear()
	pt3dadd(68.3651, 17.7594, 8.48794, 2)
	pt3dadd(68.4696, 18.0876, 8.44797, 2)
  }
  soma[230] {pt3dclear()
	pt3dadd(66.9817, 18.2356, 8.36166, 2)
	pt3dadd(67.1792, 18.4384, 8.3827, 2)
	pt3dadd(67.4052, 18.6384, 8.39432, 2)
	pt3dadd(67.6505, 18.8339, 8.40216, 2)
	pt3dadd(67.905, 19.0268, 8.40197, 2)
  }
  soma[231] {pt3dclear()
	pt3dadd(65.5759, 19.0254, 7.74311, 2)
	pt3dadd(65.5928, 19.2647, 7.70509, 2)
	pt3dadd(65.6373, 19.5117, 7.64067, 2)
	pt3dadd(65.676, 19.7651, 7.56295, 2)
	pt3dadd(65.7128, 20.0102, 7.46829, 2)
	pt3dadd(65.7544, 20.2384, 7.372, 2)
  }
  soma[232] {pt3dclear()
	pt3dadd(65.7544, 20.2384, 7.372, 2)
	pt3dadd(65.7378, 20.5347, 7.20948, 2)
	pt3dadd(65.7577, 20.8018, 7.04305, 2)
	pt3dadd(65.782, 21.0632, 6.89755, 2)
	pt3dadd(65.7919, 21.3314, 6.78339, 2)
  }
  soma[233] {pt3dclear()
	pt3dadd(65.7919, 21.3314, 6.78339, 2)
	pt3dadd(65.6662, 21.6529, 6.56348, 2)
  }
  soma[234] {pt3dclear()
	pt3dadd(65.6662, 21.6529, 6.56348, 2)
	pt3dadd(65.6695, 21.9204, 6.52274, 2)
	pt3dadd(65.6898, 22.1993, 6.4783, 2)
	pt3dadd(65.7111, 22.4865, 6.43689, 2)
	pt3dadd(65.7198, 22.7786, 6.39851, 2)
	pt3dadd(65.7218, 23.0709, 6.3539, 2)
	pt3dadd(65.7242, 23.3584, 6.28571, 2)
	pt3dadd(65.7221, 23.6417, 6.20217, 2)
	pt3dadd(65.703, 23.9189, 6.10098, 2)
	pt3dadd(65.66, 24.1843, 5.97565, 2)
	pt3dadd(65.6226, 24.447, 5.8416, 2)
	pt3dadd(65.6121, 24.7002, 5.6889, 2)
	pt3dadd(65.641, 24.9378, 5.52153, 2)
	pt3dadd(65.7004, 25.1441, 5.3309, 2)
  }
  soma[235] {pt3dclear()
	pt3dadd(65.7004, 25.1441, 5.3309, 2)
	pt3dadd(65.7676, 25.4065, 5.17248, 2)
	pt3dadd(65.7873, 25.6555, 4.99518, 2)
	pt3dadd(65.8011, 25.8904, 4.80489, 2)
	pt3dadd(65.8152, 26.1221, 4.61291, 2)
	pt3dadd(65.826, 26.3516, 4.419, 2)
	pt3dadd(65.8159, 26.5759, 4.21926, 2)
  }
}
proc shape3d_9() {
  soma[235] {	pt3dadd(65.7993, 26.8043, 4.02482, 2)
	pt3dadd(65.7875, 27.0353, 3.83316, 2)
	pt3dadd(65.7849, 27.2726, 3.64923, 2)
	pt3dadd(65.7879, 27.5096, 3.46478, 2)
	pt3dadd(65.7907, 27.7466, 3.28041, 2)
	pt3dadd(65.7928, 27.9862, 3.09911, 2)
	pt3dadd(65.79, 28.2218, 2.91253, 2)
	pt3dadd(65.7915, 28.4479, 2.71446, 2)
  }
  soma[236] {pt3dclear()
	pt3dadd(65.7004, 25.1441, 5.3309, 2)
	pt3dadd(65.7196, 24.9443, 5.15783, 2)
	pt3dadd(65.7784, 24.7525, 4.96024, 2)
	pt3dadd(65.8848, 24.5918, 4.74533, 2)
	pt3dadd(66.0405, 24.4755, 4.52693, 2)
	pt3dadd(66.2001, 24.3732, 4.30284, 2)
	pt3dadd(66.3511, 24.3017, 4.06726, 2)
	pt3dadd(66.5254, 24.2571, 3.86369, 2)
	pt3dadd(66.7087, 24.1472, 3.74335, 2)
	pt3dadd(66.8983, 24.0127, 3.72141, 2)
	pt3dadd(67.0694, 23.844, 3.78638, 2)
	pt3dadd(67.2187, 23.6587, 3.91929, 2)
	pt3dadd(67.3511, 23.4734, 4.09551, 2)
	pt3dadd(67.4722, 23.298, 4.299, 2)
	pt3dadd(67.5657, 23.1041, 4.50338, 2)
	pt3dadd(67.6447, 22.9068, 4.71126, 2)
	pt3dadd(67.6945, 22.7213, 4.9385, 2)
	pt3dadd(67.7226, 22.5524, 5.18246, 2)
	pt3dadd(67.7882, 22.4042, 5.433, 2)
	pt3dadd(67.8644, 22.2467, 5.6745, 2)
	pt3dadd(67.9394, 22.0803, 5.90995, 2)
	pt3dadd(68.0213, 21.9246, 6.15011, 2)
	pt3dadd(68.0973, 21.7715, 6.39322, 2)
	pt3dadd(68.1803, 21.6262, 6.63689, 2)
	pt3dadd(68.2543, 21.5053, 6.89245, 2)
	pt3dadd(68.3095, 21.3974, 7.15145, 2)
  }
  soma[237] {pt3dclear()
	pt3dadd(68.3095, 21.3974, 7.15145, 2)
	pt3dadd(68.4797, 21.17, 7.3274, 2)
	pt3dadd(68.625, 20.9493, 7.49818, 2)
	pt3dadd(68.7379, 20.7144, 7.64878, 2)
	pt3dadd(68.8331, 20.4695, 7.77963, 2)
	pt3dadd(68.9402, 20.2313, 7.90577, 2)
	pt3dadd(69.0452, 19.995, 8.0338, 2)
	pt3dadd(69.1675, 19.7647, 8.15556, 2)
	pt3dadd(69.2755, 19.5279, 8.27679, 2)
	pt3dadd(69.3812, 19.2893, 8.39618, 2)
  }
  soma[238] {pt3dclear()
	pt3dadd(68.3095, 21.3974, 7.15145, 2)
	pt3dadd(68.0964, 21.5077, 7.28837, 2)
	pt3dadd(67.884, 21.6332, 7.45351, 2)
	pt3dadd(67.6594, 21.752, 7.63377, 2)
	pt3dadd(67.4335, 21.8798, 7.81947, 2)
  }
  soma[239] {pt3dclear()
	pt3dadd(65.6662, 21.6529, 6.56348, 2)
	pt3dadd(65.5487, 21.7778, 6.37824, 2)
	pt3dadd(65.3988, 21.9012, 6.19734, 2)
	pt3dadd(65.2368, 22.0169, 6.01027, 2)
  }
  soma[240] {pt3dclear()
	pt3dadd(65.7919, 21.3314, 6.78339, 2)
	pt3dadd(65.9256, 21.3417, 7.02987, 2)
	pt3dadd(66.0582, 21.3683, 7.28913, 2)
	pt3dadd(66.1936, 21.3977, 7.5477, 2)
	pt3dadd(66.317, 21.3669, 7.80365, 2)
	pt3dadd(66.4138, 21.2563, 8.04066, 2)
	pt3dadd(66.4975, 21.0775, 8.24065, 2)
	pt3dadd(66.5541, 20.8487, 8.40977, 2)
	pt3dadd(66.5865, 20.5923, 8.55946, 2)
	pt3dadd(66.6161, 20.3207, 8.69112, 2)
	pt3dadd(66.6573, 20.0449, 8.81438, 2)
	pt3dadd(66.7089, 19.7681, 8.93196, 2)
	pt3dadd(66.7554, 19.4899, 9.04839, 2)
	pt3dadd(66.7908, 19.2092, 9.16271, 2)
	pt3dadd(66.8203, 18.9312, 9.28492, 2)
  }
  soma[241] {pt3dclear()
	pt3dadd(65.7544, 20.2384, 7.372, 2)
	pt3dadd(65.9569, 20.0185, 7.41969, 2)
	pt3dadd(66.1981, 19.8019, 7.45832, 2)
	pt3dadd(66.4574, 19.5905, 7.49502, 2)
  }
  soma[242] {pt3dclear()
	pt3dadd(65.2225, 18.908, 7.32029, 2)
	pt3dadd(65.3034, 18.6017, 7.25471, 2)
	pt3dadd(65.3697, 18.2757, 7.18747, 2)
  }
  soma[243] {pt3dclear()
	pt3dadd(64.0066, 18.7868, 6.54296, 2)
	pt3dadd(64.1221, 18.578, 6.50732, 2)
	pt3dadd(64.254, 18.3579, 6.46574, 2)
	pt3dadd(64.4128, 18.138, 6.41604, 2)
	pt3dadd(64.6048, 17.9309, 6.36226, 2)
	pt3dadd(64.806, 17.7252, 6.30435, 2)
  }
  soma[244] {pt3dclear()
	pt3dadd(62.9717, 18.5069, 5.64175, 2)
	pt3dadd(63.144, 18.6087, 5.51662, 2)
	pt3dadd(63.3566, 18.6797, 5.38529, 2)
	pt3dadd(63.5909, 18.7029, 5.24125, 2)
	pt3dadd(63.83, 18.7018, 5.08537, 2)
	pt3dadd(64.0649, 18.6824, 4.91464, 2)
	pt3dadd(64.2849, 18.6263, 4.72674, 2)
	pt3dadd(64.4898, 18.5534, 4.5248, 2)
  }
  soma[245] {pt3dclear()
	pt3dadd(62.1262, 17.683, 5.59897, 2)
	pt3dadd(62.2931, 17.6107, 5.75262, 2)
	pt3dadd(62.4646, 17.5358, 5.93565, 2)
	pt3dadd(62.6381, 17.4547, 6.1311, 2)
	pt3dadd(62.7933, 17.3369, 6.32496, 2)
	pt3dadd(62.9503, 17.2071, 6.50018, 2)
  }
  soma[246] {pt3dclear()
	pt3dadd(62.9503, 17.2071, 6.50018, 2)
	pt3dadd(62.9852, 17.0561, 6.78902, 2)
	pt3dadd(63.0386, 16.8783, 7.04514, 2)
	pt3dadd(63.1031, 16.6787, 7.27117, 2)
	pt3dadd(63.1735, 16.4588, 7.46905, 2)
	pt3dadd(63.2425, 16.2159, 7.64019, 2)
	pt3dadd(63.3217, 15.9606, 7.7948, 2)
	pt3dadd(63.3988, 15.7002, 7.94706, 2)
	pt3dadd(63.4789, 15.4425, 8.10428, 2)
  }
  soma[247] {pt3dclear()
	pt3dadd(62.9503, 17.2071, 6.50018, 2)
	pt3dadd(63.1283, 17.1521, 6.29518, 2)
	pt3dadd(63.323, 17.0901, 6.08904, 2)
	pt3dadd(63.528, 17.0156, 5.88144, 2)
	pt3dadd(63.7331, 16.9281, 5.66843, 2)
	pt3dadd(63.9305, 16.8426, 5.44271, 2)
  }
  soma[248] {pt3dclear()
	pt3dadd(60.1546, 17.06, 6.52182, 2)
	pt3dadd(60.3048, 16.8907, 6.65292, 2)
	pt3dadd(60.4717, 16.7028, 6.75785, 2)
	pt3dadd(60.6413, 16.5045, 6.85798, 2)
	pt3dadd(60.8277, 16.305, 6.93479, 2)
	pt3dadd(60.9976, 16.0808, 6.98769, 2)
  }
  soma[249] {pt3dclear()
	pt3dadd(60.9976, 16.0808, 6.98769, 2)
	pt3dadd(60.9358, 15.7902, 7.01756, 2)
	pt3dadd(60.8566, 15.5149, 7.06029, 2)
	pt3dadd(60.7457, 15.2573, 7.11627, 2)
	pt3dadd(60.6027, 15.0187, 7.18524, 2)
	pt3dadd(60.4435, 14.7903, 7.26364, 2)
	pt3dadd(60.2865, 14.5589, 7.35057, 2)
  }
  soma[250] {pt3dclear()
	pt3dadd(60.2865, 14.5589, 7.35057, 2)
	pt3dadd(59.9979, 14.4705, 7.35238, 2)
	pt3dadd(59.7116, 14.4019, 7.33984, 2)
	pt3dadd(59.4266, 14.3577, 7.30824, 2)
	pt3dadd(59.1426, 14.3386, 7.25928, 2)
	pt3dadd(58.86, 14.3257, 7.19806, 2)
	pt3dadd(58.582, 14.3055, 7.11611, 2)
	pt3dadd(58.3089, 14.2767, 7.01776, 2)
	pt3dadd(58.0392, 14.2385, 6.91099, 2)
	pt3dadd(57.7749, 14.1823, 6.79665, 2)
	pt3dadd(57.513, 14.1174, 6.68026, 2)
  }
  soma[251] {pt3dclear()
	pt3dadd(60.2865, 14.5589, 7.35057, 2)
	pt3dadd(60.4384, 14.3635, 7.41052, 2)
	pt3dadd(60.6054, 14.1545, 7.4653, 2)
	pt3dadd(60.7871, 13.9393, 7.52197, 2)
	pt3dadd(60.9768, 13.7237, 7.59214, 2)
	pt3dadd(61.1624, 13.5079, 7.68572, 2)
	pt3dadd(61.3374, 13.2895, 7.7973, 2)
	pt3dadd(61.4854, 13.0566, 7.9227, 2)
	pt3dadd(61.5851, 12.7996, 8.05931, 2)
	pt3dadd(61.6193, 12.5159, 8.20181, 2)
  }
  soma[252] {pt3dclear()
	pt3dadd(61.6193, 12.5159, 8.20181, 2)
	pt3dadd(61.636, 12.3283, 8.41039, 2)
	pt3dadd(61.5936, 12.1349, 8.6216, 2)
	pt3dadd(61.4947, 11.9401, 8.82672, 2)
	pt3dadd(61.3544, 11.7428, 9.02326, 2)
  }
  soma[253] {pt3dclear()
	pt3dadd(61.3544, 11.7428, 9.02326, 2)
	pt3dadd(61.319, 11.5896, 9.29699, 2)
	pt3dadd(61.2752, 11.4324, 9.56268, 2)
  }
  soma[254] {pt3dclear()
	pt3dadd(61.3544, 11.7428, 9.02326, 2)
	pt3dadd(61.0878, 11.6992, 8.87502, 2)
	pt3dadd(60.811, 11.6786, 8.71585, 2)
  }
  soma[255] {pt3dclear()
	pt3dadd(60.811, 11.6786, 8.71585, 2)
	pt3dadd(60.4363, 11.7298, 8.67391, 2)
  }
  soma[256] {pt3dclear()
	pt3dadd(60.811, 11.6786, 8.71585, 2)
	pt3dadd(61.002, 11.6028, 8.58225, 2)
	pt3dadd(61.2136, 11.5315, 8.43721, 2)
	pt3dadd(61.4391, 11.4737, 8.28081, 2)
	pt3dadd(61.6744, 11.4137, 8.12593, 2)
	pt3dadd(61.9154, 11.3614, 7.97038, 2)
	pt3dadd(62.1557, 11.3138, 7.81, 2)
  }
  soma[257] {pt3dclear()
	pt3dadd(61.6193, 12.5159, 8.20181, 2)
	pt3dadd(61.3853, 12.3498, 8.15217, 2)
	pt3dadd(61.1262, 12.1865, 8.09685, 2)
  }
  soma[258] {pt3dclear()
	pt3dadd(60.9976, 16.0808, 6.98769, 2)
	pt3dadd(61.2298, 16.132, 7.02447, 2)
	pt3dadd(61.4836, 16.1717, 7.06065, 2)
	pt3dadd(61.757, 16.1998, 7.08188, 2)
	pt3dadd(62.0485, 16.2046, 7.07118, 2)
	pt3dadd(62.3539, 16.1778, 7.01435, 2)
  }
  soma[259] {pt3dclear()
	pt3dadd(62.3539, 16.1778, 7.01435, 2)
	pt3dadd(62.6122, 16.2234, 6.95875, 2)
	pt3dadd(62.8765, 16.2714, 6.87936, 2)
	pt3dadd(63.148, 16.2987, 6.78677, 2)
	pt3dadd(63.4177, 16.3012, 6.67261, 2)
	pt3dadd(63.6897, 16.2751, 6.56026, 2)
	pt3dadd(63.9559, 16.2184, 6.44245, 2)
	pt3dadd(64.2244, 16.1486, 6.33561, 2)
	pt3dadd(64.4978, 16.0704, 6.24621, 2)
	pt3dadd(64.7764, 15.9984, 6.16522, 2)
	pt3dadd(65.0579, 15.9216, 6.09681, 2)
	pt3dadd(65.343, 15.8463, 6.04037, 2)
	pt3dadd(65.6255, 15.7547, 5.99449, 2)
	pt3dadd(65.9026, 15.6491, 5.94706, 2)
	pt3dadd(66.1853, 15.5575, 5.9045, 2)
	pt3dadd(66.4669, 15.4565, 5.87477, 2)
	pt3dadd(66.7527, 15.358, 5.86417, 2)
	pt3dadd(67.0469, 15.2703, 5.88138, 2)
  }
  soma[260] {pt3dclear()
	pt3dadd(67.0469, 15.2703, 5.88138, 2)
	pt3dadd(67.335, 15.2927, 5.75827, 2)
	pt3dadd(67.6296, 15.3096, 5.66158, 2)
	pt3dadd(67.9284, 15.3202, 5.58248, 2)
	pt3dadd(68.2273, 15.3348, 5.5084, 2)
	pt3dadd(68.5229, 15.3631, 5.43325, 2)
	pt3dadd(68.8111, 15.4156, 5.35437, 2)
	pt3dadd(69.079, 15.4974, 5.24562, 2)
	pt3dadd(69.3147, 15.6358, 5.1211, 2)
  }
}
proc shape3d_10() {
  soma[260] {	pt3dadd(69.5211, 15.818, 4.99711, 2)
	pt3dadd(69.6908, 16.0328, 4.86727, 2)
	pt3dadd(69.8212, 16.2825, 4.75261, 2)
	pt3dadd(69.8902, 16.564, 4.65633, 2)
	pt3dadd(69.9567, 16.8563, 4.58975, 2)
	pt3dadd(70.0437, 17.1491, 4.54328, 2)
	pt3dadd(70.1415, 17.4409, 4.49494, 2)
  }
  soma[261] {pt3dclear()
	pt3dadd(70.1415, 17.4409, 4.49494, 2)
	pt3dadd(70.1793, 17.7283, 4.60937, 2)
	pt3dadd(70.2143, 18.0169, 4.69278, 2)
	pt3dadd(70.2322, 18.3084, 4.75249, 2)
	pt3dadd(70.2354, 18.6013, 4.79858, 2)
  }
  soma[262] {pt3dclear()
	pt3dadd(70.1415, 17.4409, 4.49494, 2)
	pt3dadd(70.1722, 17.4901, 4.21003, 2)
	pt3dadd(70.1942, 17.5464, 3.90926, 2)
  }
  soma[263] {pt3dclear()
	pt3dadd(67.0469, 15.2703, 5.88138, 2)
	pt3dadd(67.0754, 15.1184, 6.08961, 2)
	pt3dadd(67.1307, 14.9865, 6.3339, 2)
	pt3dadd(67.193, 14.8701, 6.60333, 2)
	pt3dadd(67.2763, 14.7513, 6.87589, 2)
  }
  soma[264] {pt3dclear()
	pt3dadd(62.3539, 16.1778, 7.01435, 2)
	pt3dadd(62.4267, 16.0154, 6.81481, 2)
	pt3dadd(62.4963, 15.8416, 6.5929, 2)
  }
  soma[265] {pt3dclear()
	pt3dadd(60.1546, 17.06, 6.52182, 2)
	pt3dadd(60.3083, 17.2219, 6.74098, 2)
	pt3dadd(60.4571, 17.3988, 6.95574, 2)
	pt3dadd(60.6166, 17.5674, 7.173, 2)
	pt3dadd(60.7733, 17.727, 7.4017, 2)
	pt3dadd(60.9231, 17.9005, 7.62616, 2)
	pt3dadd(61.0664, 18.0816, 7.84933, 2)
	pt3dadd(61.2, 18.2704, 8.07221, 2)
  }
  soma[266] {pt3dclear()
	pt3dadd(60.1546, 17.06, 6.52182, 2)
	pt3dadd(60.2503, 17.3014, 6.34343, 2)
	pt3dadd(60.3106, 17.5662, 6.17949, 2)
	pt3dadd(60.3729, 17.8322, 6.01657, 2)
	pt3dadd(60.4524, 18.0917, 5.84998, 2)
	pt3dadd(60.5407, 18.3551, 5.69432, 2)
	pt3dadd(60.6373, 18.6221, 5.55008, 2)
	pt3dadd(60.7388, 18.89, 5.41058, 2)
  }
  soma[267] {pt3dclear()
	pt3dadd(59.8169, 17.0769, 6.50872, 2)
	pt3dadd(59.7679, 16.9899, 6.26901, 2)
	pt3dadd(59.703, 16.908, 6.01496, 2)
	pt3dadd(59.6306, 16.8081, 5.7641, 2)
	pt3dadd(59.5455, 16.6974, 5.52606, 2)
	pt3dadd(59.4657, 16.5814, 5.29715, 2)
	pt3dadd(59.3761, 16.4661, 5.07796, 2)
  }
  soma[268] {pt3dclear()
	pt3dadd(59.0134, 17.4482, 6.59393, 2)
	pt3dadd(59.0205, 17.662, 6.51853, 2)
  }
  soma[269] {pt3dclear()
	pt3dadd(59.0205, 17.662, 6.51853, 2)
	pt3dadd(59.1336, 17.9259, 6.37211, 2)
	pt3dadd(59.2247, 18.2007, 6.25089, 2)
	pt3dadd(59.2997, 18.4828, 6.15079, 2)
	pt3dadd(59.3586, 18.7698, 6.06329, 2)
	pt3dadd(59.3899, 19.0643, 5.99357, 2)
	pt3dadd(59.4004, 19.3611, 5.93269, 2)
	pt3dadd(59.3839, 19.6573, 5.87362, 2)
	pt3dadd(59.3577, 19.9553, 5.82743, 2)
	pt3dadd(59.3221, 20.2564, 5.79243, 2)
	pt3dadd(59.2677, 20.562, 5.76744, 2)
  }
  soma[270] {pt3dclear()
	pt3dadd(59.2677, 20.562, 5.76744, 2)
	pt3dadd(59.0788, 20.7545, 5.61114, 2)
	pt3dadd(58.8959, 20.9429, 5.45125, 2)
  }
  soma[271] {pt3dclear()
	pt3dadd(59.2677, 20.562, 5.76744, 2)
	pt3dadd(59.4064, 20.6853, 5.93661, 2)
	pt3dadd(59.5548, 20.8258, 6.12221, 2)
	pt3dadd(59.7239, 20.9618, 6.3275, 2)
	pt3dadd(59.9068, 21.0957, 6.55577, 2)
  }
  soma[272] {pt3dclear()
	pt3dadd(59.9068, 21.0957, 6.55577, 2)
	pt3dadd(60.1273, 21.2627, 6.61179, 2)
	pt3dadd(60.3404, 21.4357, 6.69304, 2)
	pt3dadd(60.556, 21.6, 6.78939, 2)
	pt3dadd(60.7869, 21.735, 6.89506, 2)
	pt3dadd(61.0329, 21.8304, 7.00812, 2)
	pt3dadd(61.283, 21.8896, 7.13635, 2)
	pt3dadd(61.5385, 21.9078, 7.26808, 2)
	pt3dadd(61.7935, 21.8891, 7.40386, 2)
	pt3dadd(62.0599, 21.854, 7.51494, 2)
	pt3dadd(62.3347, 21.8273, 7.60906, 2)
	pt3dadd(62.6145, 21.8045, 7.68796, 2)
	pt3dadd(62.8983, 21.7993, 7.75044, 2)
	pt3dadd(63.1839, 21.8091, 7.79121, 2)
	pt3dadd(63.4696, 21.8111, 7.81064, 2)
  }
  soma[273] {pt3dclear()
	pt3dadd(63.4696, 21.8111, 7.81064, 2)
	pt3dadd(63.7395, 21.709, 7.96038, 2)
	pt3dadd(64.01, 21.6115, 8.09437, 2)
  }
  soma[274] {pt3dclear()
	pt3dadd(63.4696, 21.8111, 7.81064, 2)
	pt3dadd(63.4962, 21.8989, 7.58771, 2)
	pt3dadd(63.5407, 21.9907, 7.35394, 2)
	pt3dadd(63.591, 22.087, 7.11728, 2)
	pt3dadd(63.6348, 22.1885, 6.88077, 2)
  }
  soma[275] {pt3dclear()
	pt3dadd(59.9068, 21.0957, 6.55577, 2)
	pt3dadd(59.9178, 21.0568, 6.8442, 2)
	pt3dadd(59.9123, 21.0359, 7.15605, 2)
	pt3dadd(59.891, 21.0329, 7.47743, 2)
	pt3dadd(59.8677, 21.044, 7.80154, 2)
  }
  soma[276] {pt3dclear()
	pt3dadd(59.0205, 17.662, 6.51853, 2)
	pt3dadd(58.9845, 17.7077, 6.75742, 2)
	pt3dadd(58.9808, 17.7943, 7.00897, 2)
	pt3dadd(58.9994, 17.895, 7.28099, 2)
  }
  soma[277] {pt3dclear()
	pt3dadd(58.9994, 17.895, 7.28099, 2)
	pt3dadd(59.0628, 18.1086, 7.46508, 2)
	pt3dadd(59.109, 18.3183, 7.67008, 2)
	pt3dadd(59.1433, 18.5216, 7.88986, 2)
	pt3dadd(59.1609, 18.7151, 8.12299, 2)
	pt3dadd(59.1677, 18.9013, 8.36335, 2)
  }
  soma[278] {pt3dclear()
	pt3dadd(58.9994, 17.895, 7.28099, 2)
	pt3dadd(59.0315, 17.7425, 7.52009, 2)
	pt3dadd(59.1038, 17.6022, 7.78694, 2)
	pt3dadd(59.2067, 17.498, 8.07552, 2)
	pt3dadd(59.3226, 17.4138, 8.3728, 2)
  }
  soma[279] {pt3dclear()
	pt3dadd(59.0134, 17.4482, 6.59393, 2)
	pt3dadd(59.1355, 17.2713, 6.76235, 2)
	pt3dadd(59.2558, 17.1072, 6.94399, 2)
	pt3dadd(59.3671, 16.9188, 7.11186, 2)
	pt3dadd(59.4722, 16.7151, 7.27297, 2)
	pt3dadd(59.5534, 16.4842, 7.41656, 2)
	pt3dadd(59.6067, 16.2434, 7.56072, 2)
  }
  soma[280] {pt3dclear()
	pt3dadd(58.7368, 17.5122, 6.47364, 2)
	pt3dadd(58.7341, 17.3852, 6.25404, 2)
	pt3dadd(58.7022, 17.232, 6.03497, 2)
	pt3dadd(58.6538, 17.0592, 5.82169, 2)
	pt3dadd(58.5935, 16.877, 5.61375, 2)
	pt3dadd(58.5316, 16.6967, 5.40285, 2)
  }
  soma[281] {pt3dclear()
	pt3dadd(58.1842, 17.7218, 6.50517, 2)
	pt3dadd(58.1563, 17.5885, 6.7379, 2)
	pt3dadd(58.1034, 17.4518, 6.98907, 2)
	pt3dadd(58.0401, 17.3281, 7.26067, 2)
	pt3dadd(57.9699, 17.1949, 7.53371, 2)
  }
  soma[282] {pt3dclear()
	pt3dadd(56.3604, 18.8121, 6.28065, 2)
	pt3dadd(56.4679, 18.5937, 6.47071, 2)
	pt3dadd(56.5628, 18.3565, 6.65868, 2)
  }
  soma[283] {pt3dclear()
	pt3dadd(56.5628, 18.3565, 6.65868, 2)
	pt3dadd(56.6647, 18.2203, 6.93689, 2)
	pt3dadd(56.772, 18.0721, 7.20982, 2)
  }
  soma[284] {pt3dclear()
	pt3dadd(56.5628, 18.3565, 6.65868, 2)
	pt3dadd(56.5025, 18.1499, 6.55241, 2)
	pt3dadd(56.4518, 17.9361, 6.4285, 2)
	pt3dadd(56.4184, 17.7185, 6.29295, 2)
  }
  soma[285] {pt3dclear()
	pt3dadd(56.3604, 18.8121, 6.28065, 2)
	pt3dadd(56.403, 19.1088, 6.37814, 2)
	pt3dadd(56.4475, 19.4113, 6.47196, 2)
	pt3dadd(56.5077, 19.7199, 6.54845, 2)
	pt3dadd(56.5814, 20.0309, 6.61184, 2)
  }
  soma[286] {pt3dclear()
	pt3dadd(54.8538, 19.632, 6.3297, 2)
	pt3dadd(54.8965, 19.39, 6.32005, 2)
  }
  soma[287] {pt3dclear()
	pt3dadd(54.8965, 19.39, 6.32005, 2)
	pt3dadd(55.0075, 19.1376, 6.28983, 2)
	pt3dadd(55.0538, 18.8446, 6.26665, 2)
	pt3dadd(55.0801, 18.5253, 6.23831, 2)
	pt3dadd(55.1171, 18.1802, 6.19483, 2)
  }
  soma[288] {pt3dclear()
	pt3dadd(55.1171, 18.1802, 6.19483, 2)
	pt3dadd(55.1024, 17.9205, 6.23114, 2)
	pt3dadd(55.0975, 17.6325, 6.2443, 2)
	pt3dadd(55.0751, 17.3211, 6.25487, 2)
	pt3dadd(55.045, 16.989, 6.2784, 2)
  }
  soma[289] {pt3dclear()
	pt3dadd(55.045, 16.989, 6.2784, 2)
	pt3dadd(55.0676, 16.8095, 6.26849, 2)
  }
  soma[290] {pt3dclear()
	pt3dadd(55.0676, 16.8095, 6.26849, 2)
	pt3dadd(55.2066, 16.5423, 6.41472, 2)
	pt3dadd(55.3483, 16.296, 6.56018, 2)
	pt3dadd(55.5042, 16.0748, 6.70624, 2)
	pt3dadd(55.6598, 15.8777, 6.87187, 2)
	pt3dadd(55.817, 15.7147, 7.06598, 2)
	pt3dadd(55.9489, 15.5765, 7.29566, 2)
	pt3dadd(56.052, 15.4619, 7.55351, 2)
	pt3dadd(56.1124, 15.3523, 7.8285, 2)
	pt3dadd(56.1508, 15.2456, 8.10982, 2)
	pt3dadd(56.1733, 15.1533, 8.39846, 2)
  }
  soma[291] {pt3dclear()
	pt3dadd(55.0676, 16.8095, 6.26849, 2)
	pt3dadd(54.9356, 16.9409, 6.07493, 2)
	pt3dadd(54.8064, 17.1086, 5.88566, 2)
	pt3dadd(54.6697, 17.2874, 5.6973, 2)
	pt3dadd(54.5235, 17.4739, 5.52025, 2)
	pt3dadd(54.3962, 17.6917, 5.37029, 2)
	pt3dadd(54.3282, 17.9446, 5.24242, 2)
	pt3dadd(54.3138, 18.2213, 5.1468, 2)
	pt3dadd(54.3354, 18.5104, 5.08053, 2)
	pt3dadd(54.3856, 18.8061, 5.04045, 2)
	pt3dadd(54.4531, 19.1041, 5.01356, 2)
	pt3dadd(54.5149, 19.4058, 4.99039, 2)
  }
  soma[292] {pt3dclear()
	pt3dadd(55.045, 16.989, 6.2784, 2)
	pt3dadd(54.9533, 16.7927, 6.39216, 2)
	pt3dadd(54.8533, 16.5937, 6.53791, 2)
	pt3dadd(54.7364, 16.3936, 6.70605, 2)
	pt3dadd(54.6114, 16.1973, 6.9066, 2)
  }
  soma[293] {pt3dclear()
	pt3dadd(54.6114, 16.1973, 6.9066, 2)
	pt3dadd(54.4341, 15.9836, 6.96973, 2)
	pt3dadd(54.2515, 15.7709, 7.04207, 2)
	pt3dadd(54.0662, 15.5582, 7.11595, 2)
	pt3dadd(53.8877, 15.3376, 7.1847, 2)
	pt3dadd(53.7235, 15.1033, 7.24558, 2)
	pt3dadd(53.5846, 14.8513, 7.3111, 2)
	pt3dadd(53.4745, 14.5843, 7.40257, 2)
  }
  soma[294] {pt3dclear()
	pt3dadd(53.4745, 14.5843, 7.40257, 2)
	pt3dadd(53.4269, 14.3242, 7.40926, 2)
	pt3dadd(53.4066, 14.062, 7.4571, 2)
	pt3dadd(53.4211, 13.8089, 7.55438, 2)
	pt3dadd(53.464, 13.5783, 7.70317, 2)
	pt3dadd(53.5353, 13.3682, 7.88117, 2)
	pt3dadd(53.6099, 13.178, 8.08737, 2)
  }
}
proc shape3d_11() {
  soma[294] {	pt3dadd(53.6992, 12.999, 8.30409, 2)
	pt3dadd(53.7814, 12.8182, 8.52617, 2)
	pt3dadd(53.8495, 12.6498, 8.76477, 2)
	pt3dadd(53.9182, 12.504, 9.0194, 2)
	pt3dadd(53.9829, 12.3661, 9.28028, 2)
  }
  soma[295] {pt3dclear()
	pt3dadd(53.4745, 14.5843, 7.40257, 2)
	pt3dadd(53.5596, 14.5351, 7.62347, 2)
	pt3dadd(53.6589, 14.4703, 7.87151, 2)
	pt3dadd(53.7782, 14.4017, 8.13608, 2)
	pt3dadd(53.8942, 14.3341, 8.41562, 2)
  }
  soma[296] {pt3dclear()
	pt3dadd(54.6114, 16.1973, 6.9066, 2)
	pt3dadd(54.6515, 16.1089, 7.17882, 2)
	pt3dadd(54.6994, 16.0321, 7.4727, 2)
	pt3dadd(54.7494, 15.9593, 7.77519, 2)
	pt3dadd(54.7773, 15.8837, 8.08215, 2)
	pt3dadd(54.7778, 15.8127, 8.39212, 2)
	pt3dadd(54.7684, 15.7523, 8.70443, 2)
  }
  soma[297] {pt3dclear()
	pt3dadd(54.6114, 16.1973, 6.9066, 2)
	pt3dadd(54.6404, 16.3489, 7.10726, 2)
	pt3dadd(54.6562, 16.5256, 7.32552, 2)
	pt3dadd(54.6637, 16.7148, 7.55872, 2)
	pt3dadd(54.6869, 16.905, 7.80261, 2)
  }
  soma[298] {pt3dclear()
	pt3dadd(55.1171, 18.1802, 6.19483, 2)
	pt3dadd(55.2767, 17.9877, 6.04729, 2)
	pt3dadd(55.4572, 17.7902, 5.88564, 2)
	pt3dadd(55.6414, 17.5915, 5.70741, 2)
  }
  soma[299] {pt3dclear()
	pt3dadd(54.8965, 19.39, 6.32005, 2)
	pt3dadd(54.6828, 19.2071, 6.35799, 2)
	pt3dadd(54.4621, 19.0073, 6.37949, 2)
	pt3dadd(54.2424, 18.7957, 6.38212, 2)
	pt3dadd(54.0334, 18.5702, 6.37405, 2)
	pt3dadd(53.8286, 18.34, 6.37009, 2)
	pt3dadd(53.625, 18.11, 6.3845, 2)
	pt3dadd(53.4221, 17.8837, 6.42403, 2)
	pt3dadd(53.2179, 17.667, 6.4945, 2)
	pt3dadd(53.0053, 17.4719, 6.59716, 2)
	pt3dadd(52.7806, 17.3057, 6.72425, 2)
	pt3dadd(52.5551, 17.1544, 6.86918, 2)
	pt3dadd(52.3305, 17.0079, 7.02205, 2)
	pt3dadd(52.1121, 16.859, 7.18213, 2)
  }
  soma[300] {pt3dclear()
	pt3dadd(54.1524, 20.2575, 6.56246, 2)
	pt3dadd(53.9994, 20.117, 6.34882, 2)
	pt3dadd(53.8227, 19.9822, 6.1359, 2)
	pt3dadd(53.6284, 19.8618, 5.92442, 2)
	pt3dadd(53.4392, 19.7475, 5.70362, 2)
	pt3dadd(53.2545, 19.6371, 5.4767, 2)
	pt3dadd(53.0792, 19.5274, 5.24218, 2)
	pt3dadd(52.9209, 19.4055, 5.00173, 2)
	pt3dadd(52.7695, 19.2747, 4.76137, 2)
	pt3dadd(52.6225, 19.1363, 4.52247, 2)
  }
  soma[301] {pt3dclear()
	pt3dadd(54.1524, 20.2575, 6.56246, 2)
	pt3dadd(54.1456, 20.1359, 6.76427, 2)
	pt3dadd(54.1641, 20.0164, 6.96515, 2)
  }
  soma[302] {pt3dclear()
	pt3dadd(54.1641, 20.0164, 6.96515, 2)
	pt3dadd(54.0783, 19.9452, 7.33807, 2)
  }
  soma[303] {pt3dclear()
	pt3dadd(54.0783, 19.9452, 7.33807, 2)
	pt3dadd(54.2017, 19.8792, 7.62896, 2)
	pt3dadd(54.3348, 19.8005, 7.90872, 2)
	pt3dadd(54.4686, 19.7117, 8.18122, 2)
	pt3dadd(54.5903, 19.6161, 8.45472, 2)
	pt3dadd(54.7022, 19.5189, 8.73101, 2)
	pt3dadd(54.801, 19.4108, 9.00801, 2)
  }
  soma[304] {pt3dclear()
	pt3dadd(54.0783, 19.9452, 7.33807, 2)
	pt3dadd(53.8375, 19.9724, 7.44492, 2)
	pt3dadd(53.5737, 20.002, 7.52936, 2)
	pt3dadd(53.3025, 20.0314, 7.60721, 2)
	pt3dadd(53.0379, 20.0326, 7.68415, 2)
	pt3dadd(52.7989, 19.9802, 7.76404, 2)
	pt3dadd(52.6003, 19.8717, 7.84611, 2)
	pt3dadd(52.454, 19.7041, 7.93654, 2)
	pt3dadd(52.3573, 19.4863, 8.03703, 2)
	pt3dadd(52.3015, 19.2281, 8.14591, 2)
	pt3dadd(52.2777, 18.9379, 8.2634, 2)
	pt3dadd(52.2727, 18.6156, 8.38198, 2)
  }
  soma[305] {pt3dclear()
	pt3dadd(52.2727, 18.6156, 8.38198, 2)
	pt3dadd(52.3243, 18.3816, 8.53364, 2)
	pt3dadd(52.3843, 18.1407, 8.69883, 2)
	pt3dadd(52.4591, 17.8992, 8.86715, 2)
	pt3dadd(52.5468, 17.6582, 9.02984, 2)
	pt3dadd(52.6084, 17.4157, 9.19566, 2)
	pt3dadd(52.6121, 17.1619, 9.34586, 2)
	pt3dadd(52.5555, 16.9111, 9.47948, 2)
	pt3dadd(52.4412, 16.6796, 9.60243, 2)
	pt3dadd(52.2749, 16.4799, 9.71775, 2)
	pt3dadd(52.0573, 16.33, 9.8257, 2)
	pt3dadd(51.7996, 16.2479, 9.93129, 2)
	pt3dadd(51.5181, 16.2275, 10.0234, 2)
	pt3dadd(51.2279, 16.2517, 10.1044, 2)
	pt3dadd(50.9315, 16.3071, 10.1642, 2)
	pt3dadd(50.6267, 16.3814, 10.2017, 2)
	pt3dadd(50.3105, 16.4853, 10.2146, 2)
  }
  soma[306] {pt3dclear()
	pt3dadd(50.3105, 16.4853, 10.2146, 2)
	pt3dadd(50.0971, 16.6401, 10.2542, 2)
	pt3dadd(49.8631, 16.7967, 10.2924, 2)
	pt3dadd(49.6113, 16.9451, 10.3308, 2)
	pt3dadd(49.3436, 17.0764, 10.3644, 2)
	pt3dadd(49.0689, 17.1995, 10.3953, 2)
	pt3dadd(48.7872, 17.3085, 10.4244, 2)
	pt3dadd(48.5049, 17.4175, 10.4508, 2)
	pt3dadd(48.2275, 17.538, 10.48, 2)
	pt3dadd(47.9531, 17.6655, 10.5087, 2)
	pt3dadd(47.6773, 17.7896, 10.5384, 2)
  }
  soma[307] {pt3dclear()
	pt3dadd(50.3105, 16.4853, 10.2146, 2)
	pt3dadd(50.0806, 16.3656, 10.1328, 2)
	pt3dadd(49.8341, 16.249, 10.0301, 2)
	pt3dadd(49.5888, 16.1157, 9.90822, 2)
	pt3dadd(49.3534, 15.9674, 9.76601, 2)
	pt3dadd(49.1243, 15.8081, 9.6179, 2)
  }
  soma[308] {pt3dclear()
	pt3dadd(50.3105, 16.4853, 10.2146, 2)
	pt3dadd(50.1782, 16.7761, 10.0578, 2)
	pt3dadd(50.0526, 17.0787, 9.89591, 2)
  }
  soma[309] {pt3dclear()
	pt3dadd(52.2727, 18.6156, 8.38198, 2)
	pt3dadd(52.2192, 18.406, 8.32696, 2)
	pt3dadd(52.143, 18.1792, 8.2501, 2)
	pt3dadd(52.031, 17.9527, 8.14907, 2)
	pt3dadd(51.9074, 17.724, 8.02813, 2)
	pt3dadd(51.7763, 17.4936, 7.89581, 2)
	pt3dadd(51.6293, 17.2665, 7.76418, 2)
  }
  soma[310] {pt3dclear()
	pt3dadd(54.1641, 20.0164, 6.96515, 2)
	pt3dadd(54.363, 19.9117, 6.79801, 2)
	pt3dadd(54.5859, 19.7826, 6.67048, 2)
	pt3dadd(54.8167, 19.6204, 6.61181, 2)
	pt3dadd(55.0443, 19.4448, 6.6361, 2)
	pt3dadd(55.2406, 19.2569, 6.72953, 2)
	pt3dadd(55.3843, 19.0539, 6.86073, 2)
	pt3dadd(55.4604, 18.8231, 6.98804, 2)
	pt3dadd(55.4584, 18.5595, 7.07564, 2)
	pt3dadd(55.4021, 18.278, 7.11913, 2)
	pt3dadd(55.2996, 17.9962, 7.13927, 2)
  }
  soma[311] {pt3dclear()
	pt3dadd(53.5711, 21.6889, 7.42289, 2)
	pt3dadd(53.7812, 21.5318, 7.54689, 2)
	pt3dadd(53.9992, 21.3665, 7.69204, 2)
	pt3dadd(54.2227, 21.2049, 7.85072, 2)
	pt3dadd(54.4553, 21.0599, 8.01835, 2)
	pt3dadd(54.6904, 20.9299, 8.19623, 2)
	pt3dadd(54.9198, 20.808, 8.38753, 2)
  }
  soma[312] {pt3dclear()
	pt3dadd(53.4452, 21.9419, 7.58083, 2)
	pt3dadd(53.3954, 21.7732, 7.74526, 2)
	pt3dadd(53.3321, 21.5863, 7.91865, 2)
	pt3dadd(53.2694, 21.3906, 8.10434, 2)
	pt3dadd(53.2029, 21.1961, 8.30258, 2)
	pt3dadd(53.1296, 21.0148, 8.51875, 2)
	pt3dadd(53.052, 20.8569, 8.75742, 2)
	pt3dadd(52.9879, 20.7177, 9.01666, 2)
	pt3dadd(52.9354, 20.5903, 9.28869, 2)
	pt3dadd(52.8897, 20.4599, 9.56272, 2)
  }
  soma[313] {pt3dclear()
	pt3dadd(53.1863, 22.779, 7.92673, 2)
	pt3dadd(53.0657, 22.5533, 8.08134, 2)
	pt3dadd(52.939, 22.3277, 8.23137, 2)
	pt3dadd(52.8189, 22.102, 8.38633, 2)
	pt3dadd(52.6946, 21.8765, 8.53845, 2)
	pt3dadd(52.5707, 21.6514, 8.69142, 2)
	pt3dadd(52.4489, 21.4251, 8.84421, 2)
	pt3dadd(52.3244, 21.201, 8.99818, 2)
  }
  soma[314] {pt3dclear()
	pt3dadd(52.7588, 23.7756, 8.48173, 2)
	pt3dadd(52.6685, 23.6215, 8.70351, 2)
	pt3dadd(52.5642, 23.429, 8.89565, 2)
	pt3dadd(52.4524, 23.2206, 9.07018, 2)
	pt3dadd(52.3308, 23.0074, 9.23286, 2)
	pt3dadd(52.1842, 22.7981, 9.37861, 2)
	pt3dadd(52.0187, 22.6043, 9.52472, 2)
	pt3dadd(51.8397, 22.4266, 9.67549, 2)
	pt3dadd(51.6579, 22.2714, 9.84706, 2)
	pt3dadd(51.5042, 22.1373, 10.0594, 2)
	pt3dadd(51.3757, 22.041, 10.3063, 2)
	pt3dadd(51.2812, 21.9405, 10.566, 2)
	pt3dadd(51.1645, 21.8676, 10.8232, 2)
	pt3dadd(51.0474, 21.7688, 11.0623, 2)
	pt3dadd(50.8866, 21.6976, 11.2682, 2)
	pt3dadd(50.6781, 21.632, 11.4091, 2)
	pt3dadd(50.4271, 21.5911, 11.4738, 2)
	pt3dadd(50.1531, 21.5699, 11.4787, 2)
	pt3dadd(49.8706, 21.5929, 11.4432, 2)
	pt3dadd(49.5911, 21.6517, 11.3921, 2)
  }
  soma[315] {pt3dclear()
	pt3dadd(49.5911, 21.6517, 11.3921, 2)
	pt3dadd(49.3893, 21.7433, 11.1655, 2)
	pt3dadd(49.1837, 21.8377, 10.9562, 2)
	pt3dadd(48.9715, 21.9261, 10.7629, 2)
  }
  soma[316] {pt3dclear()
	pt3dadd(48.9715, 21.9261, 10.7629, 2)
	pt3dadd(48.9906, 21.7562, 10.5308, 2)
	pt3dadd(49.0279, 21.5515, 10.3305, 2)
	pt3dadd(49.077, 21.315, 10.1653, 2)
	pt3dadd(49.1627, 21.066, 10.0268, 2)
	pt3dadd(49.2742, 20.814, 9.90592, 2)
  }
  soma[317] {pt3dclear()
	pt3dadd(48.9715, 21.9261, 10.7629, 2)
	pt3dadd(48.7776, 22.14, 10.8659, 2)
	pt3dadd(48.5887, 22.3438, 10.9972, 2)
	pt3dadd(48.3995, 22.5408, 11.1453, 2)
  }
  soma[318] {pt3dclear()
	pt3dadd(49.5911, 21.6517, 11.3921, 2)
	pt3dadd(49.5285, 21.6624, 11.624, 2)
	pt3dadd(49.4645, 21.6899, 11.8729, 2)
	pt3dadd(49.3968, 21.7421, 12.1333, 2)
	pt3dadd(49.3177, 21.7984, 12.4022, 2)
	pt3dadd(49.2415, 21.8639, 12.6781, 2)
	pt3dadd(49.1776, 21.9434, 12.9574, 2)
	pt3dadd(49.0911, 22.0215, 13.2319, 2)
	pt3dadd(48.9895, 22.113, 13.4958, 2)
	pt3dadd(48.863, 22.2005, 13.7476, 2)
	pt3dadd(48.7164, 22.2946, 13.9828, 2)
	pt3dadd(48.5573, 22.4151, 14.1955, 2)
  }
}
proc shape3d_12() {
  soma[318] {	pt3dadd(48.3942, 22.5656, 14.3859, 2)
	pt3dadd(48.2275, 22.7337, 14.5606, 2)
	pt3dadd(48.0548, 22.9049, 14.7288, 2)
  }
  soma[319] {pt3dclear()
	pt3dadd(52.7152, 24.243, 8.51719, 2)
	pt3dadd(52.7764, 24.1399, 8.31337, 2)
	pt3dadd(52.8425, 24.0491, 8.07178, 2)
	pt3dadd(52.9596, 23.9975, 7.81476, 2)
	pt3dadd(53.0768, 23.9751, 7.53837, 2)
	pt3dadd(53.2116, 23.9944, 7.25481, 2)
	pt3dadd(53.3522, 24.0672, 6.96268, 2)
  }
  soma[320] {pt3dclear()
	pt3dadd(53.3522, 24.0672, 6.96268, 2)
	pt3dadd(53.597, 24.2018, 6.88064, 2)
	pt3dadd(53.8136, 24.3687, 6.80095, 2)
	pt3dadd(53.9871, 24.5717, 6.72761, 2)
	pt3dadd(54.0883, 24.8181, 6.66967, 2)
	pt3dadd(54.1198, 25.0917, 6.63613, 2)
	pt3dadd(54.1029, 25.3779, 6.62, 2)
	pt3dadd(54.07, 25.6692, 6.62209, 2)
	pt3dadd(54.0378, 25.9582, 6.64785, 2)
	pt3dadd(54.0099, 26.2334, 6.70897, 2)
	pt3dadd(54.0152, 26.4765, 6.82927, 2)
	pt3dadd(54.0561, 26.6724, 7.00693, 2)
	pt3dadd(54.1261, 26.8202, 7.23051, 2)
	pt3dadd(54.1814, 26.9393, 7.48686, 2)
	pt3dadd(54.2402, 27.0073, 7.76615, 2)
	pt3dadd(54.3232, 27.0425, 8.04503, 2)
	pt3dadd(54.4169, 27.0343, 8.31835, 2)
	pt3dadd(54.5124, 26.9652, 8.57729, 2)
	pt3dadd(54.5721, 26.8252, 8.81621, 2)
	pt3dadd(54.5902, 26.6361, 9.03057, 2)
	pt3dadd(54.5946, 26.4022, 9.20439, 2)
	pt3dadd(54.5927, 26.1436, 9.34771, 2)
	pt3dadd(54.5885, 25.8761, 9.47798, 2)
	pt3dadd(54.5757, 25.6096, 9.60818, 2)
	pt3dadd(54.55, 25.3565, 9.75819, 2)
	pt3dadd(54.5006, 25.1266, 9.93633, 2)
	pt3dadd(54.4327, 24.9109, 10.1274, 2)
	pt3dadd(54.3257, 24.7162, 10.3255, 2)
	pt3dadd(54.2008, 24.5203, 10.5138, 2)
	pt3dadd(54.0502, 24.325, 10.6842, 2)
	pt3dadd(53.8835, 24.1382, 10.8494, 2)
	pt3dadd(53.713, 23.9577, 11.0174, 2)
	pt3dadd(53.5393, 23.7956, 11.2, 2)
	pt3dadd(53.3568, 23.6453, 11.3842, 2)
  }
  soma[321] {pt3dclear()
	pt3dadd(53.3522, 24.0672, 6.96268, 2)
	pt3dadd(53.2629, 24.156, 6.72135, 2)
	pt3dadd(53.1749, 24.287, 6.47532, 2)
	pt3dadd(53.0646, 24.4393, 6.24187, 2)
	pt3dadd(52.9369, 24.5881, 6.01347, 2)
	pt3dadd(52.7684, 24.7087, 5.79616, 2)
	pt3dadd(52.5634, 24.8021, 5.59827, 2)
	pt3dadd(52.3332, 24.862, 5.41422, 2)
	pt3dadd(52.085, 24.9081, 5.24732, 2)
	pt3dadd(51.832, 24.9477, 5.08361, 2)
	pt3dadd(51.5844, 25.0016, 4.91639, 2)
	pt3dadd(51.3587, 25.0846, 4.73178, 2)
	pt3dadd(51.1584, 25.1992, 4.5352, 2)
	pt3dadd(50.9878, 25.3318, 4.32195, 2)
	pt3dadd(50.8448, 25.4706, 4.09219, 2)
	pt3dadd(50.7154, 25.626, 3.86405, 2)
	pt3dadd(50.5887, 25.7859, 3.63698, 2)
  }
  soma[322] {pt3dclear()
	pt3dadd(52.2627, 26.3396, 8.60582, 2)
	pt3dadd(52.2562, 26.3033, 8.33504, 2)
	pt3dadd(52.2554, 26.2792, 8.0448, 2)
	pt3dadd(52.262, 26.2701, 7.74568, 2)
	pt3dadd(52.2728, 26.3001, 7.4448, 2)
	pt3dadd(52.2599, 26.344, 7.14455, 2)
	pt3dadd(52.257, 26.4288, 6.8531, 2)
	pt3dadd(52.2715, 26.5046, 6.5596, 2)
	pt3dadd(52.2786, 26.5942, 6.26937, 2)
	pt3dadd(52.3028, 26.6987, 5.98515, 2)
	pt3dadd(52.333, 26.837, 5.71741, 2)
	pt3dadd(52.4008, 26.9664, 5.45374, 2)
	pt3dadd(52.5007, 27.1054, 5.20724, 2)
	pt3dadd(52.6049, 27.2663, 4.97818, 2)
	pt3dadd(52.724, 27.439, 4.76895, 2)
	pt3dadd(52.8404, 27.6492, 4.59735, 2)
	pt3dadd(52.9691, 27.8834, 4.46821, 2)
	pt3dadd(53.0904, 28.1371, 4.36696, 2)
	pt3dadd(53.2141, 28.3926, 4.27446, 2)
	pt3dadd(53.3232, 28.6504, 4.18766, 2)
	pt3dadd(53.4165, 28.9032, 4.11149, 2)
  }
  soma[323] {pt3dclear()
	pt3dadd(53.4165, 28.9032, 4.11149, 2)
	pt3dadd(53.4324, 29.1887, 3.8987, 2)
	pt3dadd(53.4362, 29.457, 3.68866, 2)
  }
  soma[324] {pt3dclear()
	pt3dadd(53.4165, 28.9032, 4.11149, 2)
	pt3dadd(53.4804, 28.7596, 4.27789, 2)
	pt3dadd(53.5528, 28.6019, 4.4504, 2)
  }
  soma[325] {pt3dclear()
	pt3dadd(53.5528, 28.6019, 4.4504, 2)
	pt3dadd(53.6239, 28.3217, 4.54339, 2)
	pt3dadd(53.7056, 28.0537, 4.63126, 2)
	pt3dadd(53.777, 27.7871, 4.70908, 2)
	pt3dadd(53.8421, 27.5178, 4.76555, 2)
	pt3dadd(53.8976, 27.2458, 4.81164, 2)
  }
  soma[326] {pt3dclear()
	pt3dadd(53.5528, 28.6019, 4.4504, 2)
	pt3dadd(53.6515, 28.7807, 4.56559, 2)
	pt3dadd(53.7739, 28.9682, 4.69087, 2)
	pt3dadd(53.9032, 29.1617, 4.82345, 2)
  }
  soma[327] {pt3dclear()
	pt3dadd(52.1426, 26.9634, 8.84757, 2)
	pt3dadd(52.3333, 27.0927, 8.96386, 2)
	pt3dadd(52.5526, 27.2205, 9.07077, 2)
	pt3dadd(52.7742, 27.3631, 9.18431, 2)
	pt3dadd(52.9949, 27.5172, 9.29854, 2)
  }
  soma[328] {pt3dclear()
	pt3dadd(51.9597, 27.5099, 8.89187, 2)
	pt3dadd(52.1139, 27.541, 8.70928, 2)
	pt3dadd(52.2852, 27.5762, 8.51587, 2)
	pt3dadd(52.4695, 27.6183, 8.31557, 2)
	pt3dadd(52.643, 27.6787, 8.10046, 2)
	pt3dadd(52.8142, 27.7641, 7.89227, 2)
	pt3dadd(52.9927, 27.8524, 7.70148, 2)
  }
  soma[329] {pt3dclear()
	pt3dadd(52.9927, 27.8524, 7.70148, 2)
	pt3dadd(53.1631, 28.1286, 7.50656, 2)
  }
  soma[330] {pt3dclear()
	pt3dadd(52.9927, 27.8524, 7.70148, 2)
	pt3dadd(53.0197, 27.5993, 7.71071, 2)
	pt3dadd(53.0587, 27.3267, 7.7138, 2)
	pt3dadd(53.122, 27.0426, 7.7107, 2)
	pt3dadd(53.1984, 26.7532, 7.71292, 2)
  }
  soma[331] {pt3dclear()
	pt3dadd(51.7149, 27.7662, 9.0082, 2)
	pt3dadd(51.4591, 27.8449, 9.04673, 2)
	pt3dadd(51.1803, 27.8897, 9.08811, 2)
	pt3dadd(50.8902, 27.9127, 9.14842, 2)
  }
  soma[332] {pt3dclear()
	pt3dadd(50.8902, 27.9127, 9.14842, 2)
	pt3dadd(50.5816, 27.9754, 9.08979, 2)
	pt3dadd(50.2785, 28.0544, 9.04056, 2)
  }
  soma[333] {pt3dclear()
	pt3dadd(50.8902, 27.9127, 9.14842, 2)
	pt3dadd(50.8962, 27.8627, 9.39861, 2)
	pt3dadd(50.918, 27.7867, 9.67374, 2)
	pt3dadd(50.9427, 27.7056, 9.96858, 2)
	pt3dadd(50.9666, 27.614, 10.2708, 2)
  }
  soma[334] {pt3dclear()
	pt3dadd(51.2595, 28.7085, 9.17827, 2)
	pt3dadd(51.4729, 28.7601, 9.3133, 2)
	pt3dadd(51.7125, 28.8216, 9.45272, 2)
  }
  soma[335] {pt3dclear()
	pt3dadd(51.7125, 28.8216, 9.45272, 2)
	pt3dadd(51.8985, 29.0541, 9.48487, 2)
	pt3dadd(52.0734, 29.2997, 9.52593, 2)
	pt3dadd(52.2486, 29.5531, 9.56647, 2)
	pt3dadd(52.4321, 29.8115, 9.60104, 2)
  }
  soma[336] {pt3dclear()
	pt3dadd(52.4321, 29.8115, 9.60104, 2)
	pt3dadd(52.4876, 30.1103, 9.64776, 2)
	pt3dadd(52.569, 30.4056, 9.68335, 2)
	pt3dadd(52.6667, 30.6998, 9.7063, 2)
	pt3dadd(52.7524, 31.0029, 9.71121, 2)
  }
  soma[337] {pt3dclear()
	pt3dadd(52.7524, 31.0029, 9.71121, 2)
	pt3dadd(52.7499, 31.2874, 9.86216, 2)
	pt3dadd(52.7538, 31.5773, 9.98685, 2)
	pt3dadd(52.7652, 31.8667, 10.1038, 2)
	pt3dadd(52.7906, 32.1557, 10.2161, 2)
  }
  soma[338] {pt3dclear()
	pt3dadd(52.7524, 31.0029, 9.71121, 2)
	pt3dadd(52.871, 31.0449, 9.4721, 2)
	pt3dadd(53.0124, 31.0942, 9.22152, 2)
	pt3dadd(53.1744, 31.1474, 8.96782, 2)
	pt3dadd(53.3509, 31.2026, 8.71608, 2)
  }
  soma[339] {pt3dclear()
	pt3dadd(52.4321, 29.8115, 9.60104, 2)
	pt3dadd(52.6504, 29.723, 9.52748, 2)
	pt3dadd(52.8846, 29.6204, 9.45783, 2)
	pt3dadd(53.1369, 29.5322, 9.3931, 2)
  }
  soma[340] {pt3dclear()
	pt3dadd(53.1369, 29.5322, 9.3931, 2)
	pt3dadd(53.4274, 29.4132, 9.51097, 2)
	pt3dadd(53.7175, 29.3143, 9.61349, 2)
	pt3dadd(54.0139, 29.2444, 9.69586, 2)
	pt3dadd(54.3159, 29.2041, 9.76369, 2)
	pt3dadd(54.6212, 29.1834, 9.8215, 2)
	pt3dadd(54.9286, 29.179, 9.87292, 2)
  }
  soma[341] {pt3dclear()
	pt3dadd(53.1369, 29.5322, 9.3931, 2)
	pt3dadd(53.0954, 29.5754, 9.15848, 2)
	pt3dadd(53.0735, 29.6379, 8.90433, 2)
	pt3dadd(53.0663, 29.6947, 8.63533, 2)
	pt3dadd(53.0879, 29.727, 8.35686, 2)
	pt3dadd(53.139, 29.7644, 8.08024, 2)
	pt3dadd(53.1947, 29.8013, 7.80328, 2)
  }
  soma[342] {pt3dclear()
	pt3dadd(51.7125, 28.8216, 9.45272, 2)
	pt3dadd(51.792, 28.7099, 9.67783, 2)
  }
  soma[343] {pt3dclear()
	pt3dadd(51.792, 28.7099, 9.67783, 2)
	pt3dadd(51.9649, 28.6381, 9.8617, 2)
	pt3dadd(52.1375, 28.5645, 10.0703, 2)
	pt3dadd(52.2898, 28.4354, 10.2835, 2)
	pt3dadd(52.4302, 28.2995, 10.5089, 2)
	pt3dadd(52.5372, 28.1235, 10.7288, 2)
	pt3dadd(52.6463, 27.9456, 10.9477, 2)
	pt3dadd(52.749, 27.7687, 11.1708, 2)
	pt3dadd(52.8882, 27.6284, 11.3997, 2)
	pt3dadd(53.06, 27.501, 11.6129, 2)
	pt3dadd(53.2584, 27.3978, 11.8157, 2)
	pt3dadd(53.474, 27.3098, 12.0093, 2)
	pt3dadd(53.7221, 27.2449, 12.1772, 2)
	pt3dadd(53.9999, 27.2133, 12.3248, 2)
	pt3dadd(54.3102, 27.2264, 12.4521, 2)
  }
  soma[344] {pt3dclear()
	pt3dadd(54.3102, 27.2264, 12.4521, 2)
	pt3dadd(54.5271, 27.152, 12.5943, 2)
	pt3dadd(54.7649, 27.0877, 12.7447, 2)
  }
  soma[345] {pt3dclear()
	pt3dadd(54.7649, 27.0877, 12.7447, 2)
	pt3dadd(55.0276, 27.0745, 12.7869, 2)
	pt3dadd(55.2913, 27.0758, 12.8424, 2)
	pt3dadd(55.5515, 27.0991, 12.9216, 2)
	pt3dadd(55.8021, 27.1457, 13.0318, 2)
	pt3dadd(56.0309, 27.2285, 13.1803, 2)
	pt3dadd(56.2385, 27.3285, 13.3664, 2)
	pt3dadd(56.412, 27.4557, 13.5939, 2)
	pt3dadd(56.579, 27.5562, 13.8676, 2)
  }
  soma[346] {pt3dclear()
	pt3dadd(56.579, 27.5562, 13.8676, 2)
  }
}
proc shape3d_13() {
  soma[346] {	pt3dadd(56.5945, 27.476, 14.1303, 2)
	pt3dadd(56.6144, 27.3786, 14.3952, 2)
	pt3dadd(56.6475, 27.2417, 14.6485, 2)
	pt3dadd(56.7028, 27.0811, 14.8918, 2)
	pt3dadd(56.7906, 26.9149, 15.1291, 2)
	pt3dadd(56.8921, 26.7294, 15.352, 2)
	pt3dadd(57.0053, 26.5402, 15.5709, 2)
	pt3dadd(57.1276, 26.3588, 15.7947, 2)
	pt3dadd(57.251, 26.194, 16.0319, 2)
	pt3dadd(57.3848, 26.0445, 16.2739, 2)
	pt3dadd(57.5241, 25.9134, 16.523, 2)
  }
  soma[347] {pt3dclear()
	pt3dadd(56.579, 27.5562, 13.8676, 2)
	pt3dadd(56.7984, 27.6871, 13.9639, 2)
	pt3dadd(57.0318, 27.8309, 14.0616, 2)
	pt3dadd(57.2724, 27.9881, 14.1417, 2)
	pt3dadd(57.5138, 28.1502, 14.2113, 2)
	pt3dadd(57.7409, 28.3286, 14.2668, 2)
	pt3dadd(57.9205, 28.5466, 14.3036, 2)
	pt3dadd(58.0262, 28.8009, 14.319, 2)
	pt3dadd(58.0433, 29.076, 14.3214, 2)
	pt3dadd(57.9908, 29.3546, 14.3318, 2)
	pt3dadd(57.895, 29.627, 14.3708, 2)
	pt3dadd(57.7828, 29.8895, 14.4485, 2)
	pt3dadd(57.6659, 30.1413, 14.5582, 2)
	pt3dadd(57.5509, 30.384, 14.6927, 2)
	pt3dadd(57.4463, 30.6194, 14.8499, 2)
	pt3dadd(57.3486, 30.8489, 15.0215, 2)
  }
  soma[348] {pt3dclear()
	pt3dadd(54.7649, 27.0877, 12.7447, 2)
	pt3dadd(54.7999, 27.0023, 12.9608, 2)
	pt3dadd(54.8437, 26.9259, 13.2078, 2)
	pt3dadd(54.8705, 26.8037, 13.4582, 2)
	pt3dadd(54.8657, 26.6672, 13.7125, 2)
	pt3dadd(54.8588, 26.5155, 13.9609, 2)
	pt3dadd(54.8763, 26.3315, 14.1853, 2)
	pt3dadd(54.9127, 26.1365, 14.3963, 2)
	pt3dadd(54.9789, 25.9345, 14.5924, 2)
	pt3dadd(55.0704, 25.7284, 14.7754, 2)
	pt3dadd(55.165, 25.5181, 14.9554, 2)
	pt3dadd(55.2779, 25.2994, 15.1169, 2)
	pt3dadd(55.3975, 25.0821, 15.2781, 2)
  }
  soma[349] {pt3dclear()
	pt3dadd(54.3102, 27.2264, 12.4521, 2)
	pt3dadd(54.4703, 27.4541, 12.4108, 2)
	pt3dadd(54.6057, 27.7227, 12.3667, 2)
	pt3dadd(54.6977, 28.0198, 12.3278, 2)
	pt3dadd(54.7541, 28.3272, 12.2792, 2)
	pt3dadd(54.7778, 28.6372, 12.2213, 2)
	pt3dadd(54.7812, 28.9425, 12.1483, 2)
	pt3dadd(54.7653, 29.2396, 12.068, 2)
  }
  soma[350] {pt3dclear()
	pt3dadd(54.7653, 29.2396, 12.068, 2)
	pt3dadd(54.832, 29.5368, 12.1107, 2)
  }
  soma[351] {pt3dclear()
	pt3dadd(54.832, 29.5368, 12.1107, 2)
	pt3dadd(54.6479, 29.8013, 12.1025, 2)
	pt3dadd(54.4713, 30.0506, 12.1033, 2)
	pt3dadd(54.3131, 30.3002, 12.1089, 2)
	pt3dadd(54.1692, 30.558, 12.1177, 2)
	pt3dadd(54.0309, 30.8293, 12.1258, 2)
  }
  soma[352] {pt3dclear()
	pt3dadd(54.0309, 30.8293, 12.1258, 2)
	pt3dadd(53.9649, 31.0425, 12.2811, 2)
	pt3dadd(53.9212, 31.2753, 12.4261, 2)
	pt3dadd(53.8974, 31.5222, 12.564, 2)
	pt3dadd(53.8853, 31.7806, 12.6916, 2)
	pt3dadd(53.8803, 32.0422, 12.8213, 2)
	pt3dadd(53.8776, 32.3068, 12.9537, 2)
  }
  soma[353] {pt3dclear()
	pt3dadd(53.8776, 32.3068, 12.9537, 2)
	pt3dadd(53.8911, 32.62, 12.9333, 2)
	pt3dadd(53.8905, 32.9278, 12.9345, 2)
	pt3dadd(53.8812, 33.2323, 12.9461, 2)
  }
  soma[354] {pt3dclear()
	pt3dadd(53.8776, 32.3068, 12.9537, 2)
	pt3dadd(53.8265, 32.2849, 13.2131, 2)
	pt3dadd(53.7783, 32.2792, 13.4946, 2)
	pt3dadd(53.7425, 32.2861, 13.7921, 2)
	pt3dadd(53.7243, 32.2992, 14.0995, 2)
	pt3dadd(53.7207, 32.316, 14.4118, 2)
	pt3dadd(53.7293, 32.331, 14.7259, 2)
  }
  soma[355] {pt3dclear()
	pt3dadd(54.0309, 30.8293, 12.1258, 2)
	pt3dadd(54.0573, 31.0146, 11.9598, 2)
	pt3dadd(54.1071, 31.2217, 11.7875, 2)
	pt3dadd(54.1684, 31.4385, 11.5994, 2)
  }
  soma[356] {pt3dclear()
	pt3dadd(54.1684, 31.4385, 11.5994, 2)
	pt3dadd(54.2157, 31.7114, 11.508, 2)
	pt3dadd(54.2674, 31.9721, 11.3912, 2)
	pt3dadd(54.3433, 32.2182, 11.2708, 2)
	pt3dadd(54.4576, 32.4417, 11.1673, 2)
	pt3dadd(54.6346, 32.614, 11.0985, 2)
	pt3dadd(54.8625, 32.7086, 11.064, 2)
	pt3dadd(55.1179, 32.7064, 11.0569, 2)
	pt3dadd(55.3725, 32.6172, 11.0694, 2)
	pt3dadd(55.6173, 32.476, 11.0897, 2)
	pt3dadd(55.8532, 32.3065, 11.1092, 2)
	pt3dadd(56.0813, 32.1205, 11.1241, 2)
  }
  soma[357] {pt3dclear()
	pt3dadd(54.1684, 31.4385, 11.5994, 2)
	pt3dadd(54.2168, 31.342, 11.3609, 2)
	pt3dadd(54.2813, 31.2547, 11.0919, 2)
	pt3dadd(54.3584, 31.1846, 10.8023, 2)
	pt3dadd(54.4494, 31.123, 10.5053, 2)
	pt3dadd(54.5486, 31.0563, 10.2084, 2)
  }
  soma[358] {pt3dclear()
	pt3dadd(54.832, 29.5368, 12.1107, 2)
	pt3dadd(55.0576, 29.5462, 12.2031, 2)
	pt3dadd(55.2962, 29.5909, 12.301, 2)
	pt3dadd(55.5473, 29.6543, 12.4004, 2)
	pt3dadd(55.8172, 29.6956, 12.4957, 2)
	pt3dadd(56.1041, 29.7003, 12.5753, 2)
	pt3dadd(56.3997, 29.7013, 12.651, 2)
	pt3dadd(56.7038, 29.7005, 12.7308, 2)
	pt3dadd(57.0216, 29.6945, 12.8141, 2)
	pt3dadd(57.3603, 29.6751, 12.8976, 2)
  }
  soma[359] {pt3dclear()
	pt3dadd(57.3603, 29.6751, 12.8976, 2)
	pt3dadd(57.6021, 29.5957, 12.913, 2)
	pt3dadd(57.8572, 29.503, 12.9406, 2)
	pt3dadd(58.1175, 29.3922, 12.9644, 2)
	pt3dadd(58.3769, 29.2618, 12.9736, 2)
	pt3dadd(58.6384, 29.1258, 12.9751, 2)
	pt3dadd(58.8942, 28.9754, 12.9755, 2)
	pt3dadd(59.1454, 28.8181, 12.9815, 2)
	pt3dadd(59.393, 28.6606, 13.0006, 2)
	pt3dadd(59.6491, 28.5286, 13.0384, 2)
	pt3dadd(59.9082, 28.4225, 13.0923, 2)
	pt3dadd(60.1577, 28.3282, 13.1657, 2)
	pt3dadd(60.3955, 28.2525, 13.2552, 2)
  }
  soma[360] {pt3dclear()
	pt3dadd(60.3955, 28.2525, 13.2552, 2)
	pt3dadd(60.7607, 28.1035, 13.3467, 2)
  }
  soma[361] {pt3dclear()
	pt3dadd(60.7607, 28.1035, 13.3467, 2)
	pt3dadd(60.9346, 27.8953, 13.4087, 2)
	pt3dadd(61.1247, 27.6935, 13.4697, 2)
	pt3dadd(61.3246, 27.4966, 13.5391, 2)
	pt3dadd(61.5185, 27.2867, 13.6031, 2)
	pt3dadd(61.7054, 27.0649, 13.6612, 2)
	pt3dadd(61.8766, 26.8265, 13.7129, 2)
	pt3dadd(62.0244, 26.5691, 13.7533, 2)
	pt3dadd(62.1482, 26.2964, 13.7831, 2)
	pt3dadd(62.2551, 26.0149, 13.8059, 2)
	pt3dadd(62.3438, 25.7265, 13.8304, 2)
	pt3dadd(62.4101, 25.4321, 13.8585, 2)
	pt3dadd(62.4462, 25.1329, 13.8942, 2)
	pt3dadd(62.4572, 24.8323, 13.9376, 2)
	pt3dadd(62.4492, 24.5318, 13.9845, 2)
	pt3dadd(62.4207, 24.2316, 14.0286, 2)
	pt3dadd(62.3764, 23.9329, 14.0714, 2)
  }
  soma[362] {pt3dclear()
	pt3dadd(60.7607, 28.1035, 13.3467, 2)
	pt3dadd(61.0299, 28.146, 13.4022, 2)
	pt3dadd(61.3057, 28.1946, 13.4739, 2)
	pt3dadd(61.5869, 28.2506, 13.5603, 2)
	pt3dadd(61.8713, 28.3149, 13.6633, 2)
	pt3dadd(62.1636, 28.3806, 13.7777, 2)
	pt3dadd(62.475, 28.4402, 13.8908, 2)
  }
  soma[363] {pt3dclear()
	pt3dadd(62.475, 28.4402, 13.8908, 2)
	pt3dadd(62.7232, 28.3729, 13.8176, 2)
	pt3dadd(62.9631, 28.2744, 13.7279, 2)
	pt3dadd(63.1866, 28.1491, 13.6135, 2)
	pt3dadd(63.3938, 28.0098, 13.4658, 2)
	pt3dadd(63.5796, 27.8581, 13.2745, 2)
	pt3dadd(63.75, 27.6929, 13.044, 2)
  }
  soma[364] {pt3dclear()
	pt3dadd(63.75, 27.6929, 13.044, 2)
	pt3dadd(63.9126, 27.5218, 12.903, 2)
	pt3dadd(64.0896, 27.3484, 12.7536, 2)
	pt3dadd(64.2752, 27.1758, 12.5995, 2)
  }
  soma[365] {pt3dclear()
	pt3dadd(63.75, 27.6929, 13.044, 2)
	pt3dadd(63.832, 27.7761, 12.824, 2)
	pt3dadd(63.9248, 27.9036, 12.6031, 2)
	pt3dadd(64.0395, 28.0592, 12.3945, 2)
	pt3dadd(64.1704, 28.2287, 12.1976, 2)
	pt3dadd(64.3084, 28.4197, 12.0207, 2)
	pt3dadd(64.4508, 28.6284, 11.8618, 2)
	pt3dadd(64.6012, 28.8546, 11.7236, 2)
	pt3dadd(64.7596, 29.0978, 11.6012, 2)
	pt3dadd(64.9367, 29.3516, 11.4867, 2)
  }
  soma[366] {pt3dclear()
	pt3dadd(64.9367, 29.3516, 11.4867, 2)
	pt3dadd(64.9948, 29.6157, 11.3933, 2)
	pt3dadd(65.0728, 29.8828, 11.2956, 2)
	pt3dadd(65.164, 30.1488, 11.1897, 2)
	pt3dadd(65.2575, 30.416, 11.0816, 2)
  }
  soma[367] {pt3dclear()
	pt3dadd(64.9367, 29.3516, 11.4867, 2)
	pt3dadd(65.1822, 29.348, 11.4545, 2)
	pt3dadd(65.4506, 29.3427, 11.413, 2)
	pt3dadd(65.74, 29.3398, 11.3672, 2)
  }
  soma[368] {pt3dclear()
	pt3dadd(65.74, 29.3398, 11.3672, 2)
	pt3dadd(65.953, 29.2441, 11.1952, 2)
	pt3dadd(66.1691, 29.1354, 11.0269, 2)
	pt3dadd(66.3856, 29.0138, 10.8606, 2)
	pt3dadd(66.5935, 28.8775, 10.6888, 2)
	pt3dadd(66.7941, 28.731, 10.5122, 2)
	pt3dadd(66.9925, 28.5859, 10.329, 2)
	pt3dadd(67.1874, 28.4418, 10.1398, 2)
	pt3dadd(67.3883, 28.3072, 9.94922, 2)
  }
  soma[369] {pt3dclear()
	pt3dadd(65.74, 29.3398, 11.3672, 2)
	pt3dadd(65.8737, 29.4841, 11.5265, 2)
	pt3dadd(66.0055, 29.6382, 11.704, 2)
	pt3dadd(66.1232, 29.7936, 11.904, 2)
	pt3dadd(66.224, 29.9368, 12.1294, 2)
  }
  soma[370] {pt3dclear()
	pt3dadd(66.224, 29.9368, 12.1294, 2)
	pt3dadd(66.3938, 30.1589, 12.3232, 2)
  }
  soma[371] {pt3dclear()
	pt3dadd(66.224, 29.9368, 12.1294, 2)
	pt3dadd(66.0634, 29.7956, 12.2498, 2)
	pt3dadd(65.8826, 29.6572, 12.3895, 2)
	pt3dadd(65.6911, 29.539, 12.5551, 2)
	pt3dadd(65.5038, 29.4591, 12.7559, 2)
	pt3dadd(65.34, 29.4388, 12.9969, 2)
	pt3dadd(65.2073, 29.4535, 13.2647, 2)
	pt3dadd(65.1023, 29.48, 13.5502, 2)
	pt3dadd(65.0165, 29.5264, 13.8438, 2)
  }
}
proc shape3d_14() {
  soma[371] {	pt3dadd(64.9325, 29.5794, 14.1387, 2)
  }
  soma[372] {pt3dclear()
	pt3dadd(62.475, 28.4402, 13.8908, 2)
	pt3dadd(62.6822, 28.5035, 14.0877, 2)
	pt3dadd(62.9194, 28.5435, 14.2759, 2)
	pt3dadd(63.178, 28.5586, 14.4467, 2)
	pt3dadd(63.4521, 28.5727, 14.5937, 2)
	pt3dadd(63.732, 28.6055, 14.7252, 2)
	pt3dadd(64.0152, 28.6598, 14.8389, 2)
	pt3dadd(64.2979, 28.7219, 14.9417, 2)
  }
  soma[373] {pt3dclear()
	pt3dadd(64.2979, 28.7219, 14.9417, 2)
	pt3dadd(64.5112, 28.9586, 14.9937, 2)
  }
  soma[374] {pt3dclear()
	pt3dadd(64.2979, 28.7219, 14.9417, 2)
	pt3dadd(64.3411, 28.4673, 14.9951, 2)
	pt3dadd(64.3892, 28.1975, 15.0454, 2)
	pt3dadd(64.4419, 27.9149, 15.0893, 2)
	pt3dadd(64.5016, 27.6239, 15.1239, 2)
	pt3dadd(64.5551, 27.3259, 15.1423, 2)
	pt3dadd(64.5864, 27.0231, 15.1502, 2)
	pt3dadd(64.595, 26.7192, 15.146, 2)
	pt3dadd(64.5809, 26.417, 15.1301, 2)
	pt3dadd(64.5349, 26.1191, 15.1008, 2)
	pt3dadd(64.4688, 25.8258, 15.057, 2)
	pt3dadd(64.3947, 25.5357, 15, 2)
  }
  soma[375] {pt3dclear()
	pt3dadd(60.3955, 28.2525, 13.2552, 2)
	pt3dadd(60.2103, 28.3368, 13.299, 2)
  }
  soma[376] {pt3dclear()
	pt3dadd(60.2103, 28.3368, 13.299, 2)
	pt3dadd(60.0547, 28.5943, 13.3527, 2)
	pt3dadd(59.8993, 28.8496, 13.4234, 2)
	pt3dadd(59.7492, 29.107, 13.5013, 2)
  }
  soma[377] {pt3dclear()
	pt3dadd(60.2103, 28.3368, 13.299, 2)
	pt3dadd(60.0746, 28.0933, 13.3705, 2)
	pt3dadd(59.9215, 27.832, 13.4315, 2)
	pt3dadd(59.7608, 27.5592, 13.471, 2)
	pt3dadd(59.6003, 27.2807, 13.4997, 2)
  }
  soma[378] {pt3dclear()
	pt3dadd(57.3603, 29.6751, 12.8976, 2)
	pt3dadd(57.5744, 29.7236, 13.0449, 2)
	pt3dadd(57.7893, 29.7813, 13.2191, 2)
	pt3dadd(57.9901, 29.8698, 13.4107, 2)
	pt3dadd(58.1848, 29.9773, 13.5967, 2)
	pt3dadd(58.3601, 30.1192, 13.7631, 2)
  }
  soma[379] {pt3dclear()
	pt3dadd(58.3601, 30.1192, 13.7631, 2)
	pt3dadd(58.598, 30.1016, 14.0115, 2)
	pt3dadd(58.8085, 30.071, 14.2506, 2)
	pt3dadd(58.9943, 30.0205, 14.4866, 2)
	pt3dadd(59.1756, 29.9602, 14.7105, 2)
	pt3dadd(59.3844, 29.9153, 14.8979, 2)
	pt3dadd(59.6185, 29.8991, 15.0355, 2)
	pt3dadd(59.866, 29.9022, 15.1156, 2)
	pt3dadd(60.1177, 29.918, 15.1298, 2)
	pt3dadd(60.3642, 29.9383, 15.0737, 2)
	pt3dadd(60.5974, 29.971, 14.9559, 2)
	pt3dadd(60.816, 30.005, 14.7913, 2)
	pt3dadd(61.0214, 30.0315, 14.5939, 2)
	pt3dadd(61.2173, 30.0464, 14.3782, 2)
  }
  soma[380] {pt3dclear()
	pt3dadd(58.3601, 30.1192, 13.7631, 2)
	pt3dadd(58.2318, 30.3725, 13.6019, 2)
	pt3dadd(58.0881, 30.6327, 13.4374, 2)
  }
  soma[381] {pt3dclear()
	pt3dadd(58.0881, 30.6327, 13.4374, 2)
	pt3dadd(58.2697, 30.6576, 13.2518, 2)
	pt3dadd(58.4533, 30.6967, 13.0371, 2)
	pt3dadd(58.625, 30.7508, 12.7952, 2)
	pt3dadd(58.7859, 30.8186, 12.5379, 2)
	pt3dadd(58.9411, 30.8733, 12.2688, 2)
	pt3dadd(59.097, 30.9175, 11.9961, 2)
  }
  soma[382] {pt3dclear()
	pt3dadd(58.0881, 30.6327, 13.4374, 2)
	pt3dadd(57.8399, 30.8477, 13.4259, 2)
	pt3dadd(57.6105, 31.0514, 13.434, 2)
	pt3dadd(57.3984, 31.2427, 13.4889, 2)
	pt3dadd(57.2092, 31.4203, 13.61, 2)
	pt3dadd(57.0404, 31.5881, 13.7819, 2)
	pt3dadd(56.8756, 31.7519, 13.9756, 2)
	pt3dadd(56.7035, 31.9149, 14.1708, 2)
	pt3dadd(56.5274, 32.0834, 14.3599, 2)
	pt3dadd(56.3365, 32.2511, 14.5358, 2)
	pt3dadd(56.1351, 32.4125, 14.7065, 2)
  }
  soma[383] {pt3dclear()
	pt3dadd(54.7653, 29.2396, 12.068, 2)
	pt3dadd(54.6006, 29.1385, 11.8424, 2)
	pt3dadd(54.4105, 29.0575, 11.6072, 2)
	pt3dadd(54.2289, 28.9838, 11.3547, 2)
	pt3dadd(54.0589, 28.9273, 11.0869, 2)
	pt3dadd(53.8967, 28.8811, 10.8114, 2)
  }
  soma[384] {pt3dclear()
	pt3dadd(51.792, 28.7099, 9.67783, 2)
	pt3dadd(51.7083, 28.6948, 9.88388, 2)
	pt3dadd(51.6303, 28.686, 10.1165, 2)
	pt3dadd(51.5671, 28.6761, 10.3738, 2)
	pt3dadd(51.5255, 28.6486, 10.6505, 2)
	pt3dadd(51.5193, 28.62, 10.9419, 2)
	pt3dadd(51.5248, 28.6256, 11.2444, 2)
	pt3dadd(51.5163, 28.6649, 11.5549, 2)
	pt3dadd(51.5325, 28.7443, 11.8709, 2)
  }
  soma[385] {pt3dclear()
	pt3dadd(51.5325, 28.7443, 11.8709, 2)
	pt3dadd(51.5364, 28.6791, 12.1529, 2)
	pt3dadd(51.5767, 28.6095, 12.4377, 2)
	pt3dadd(51.6482, 28.5146, 12.7143, 2)
	pt3dadd(51.7266, 28.4125, 12.9896, 2)
	pt3dadd(51.8125, 28.3191, 13.267, 2)
  }
  soma[386] {pt3dclear()
	pt3dadd(51.5325, 28.7443, 11.8709, 2)
	pt3dadd(51.6814, 28.9259, 11.9278, 2)
	pt3dadd(51.8512, 29.1187, 11.9648, 2)
	pt3dadd(52.0199, 29.3304, 11.9807, 2)
	pt3dadd(52.1731, 29.563, 11.9777, 2)
	pt3dadd(52.2932, 29.8192, 11.961, 2)
	pt3dadd(52.3758, 30.0928, 11.9251, 2)
	pt3dadd(52.4177, 30.3776, 11.8698, 2)
	pt3dadd(52.4215, 30.665, 11.7896, 2)
	pt3dadd(52.4095, 30.9507, 11.6903, 2)
	pt3dadd(52.3816, 31.2322, 11.5759, 2)
  }
  soma[387] {pt3dclear()
	pt3dadd(49.55, 29.5687, 8.34626, 2)
	pt3dadd(49.4048, 29.4945, 8.51398, 2)
	pt3dadd(49.2607, 29.4021, 8.69671, 2)
	pt3dadd(49.1434, 29.2864, 8.89232, 2)
  }
  soma[388] {pt3dclear()
	pt3dadd(49.1434, 29.2864, 8.89232, 2)
	pt3dadd(48.9745, 29.2114, 9.18403, 2)
  }
  soma[389] {pt3dclear()
	pt3dadd(48.9745, 29.2114, 9.18403, 2)
	pt3dadd(48.958, 29.0823, 9.4642, 2)
	pt3dadd(48.9317, 28.9474, 9.7329, 2)
	pt3dadd(48.9054, 28.8256, 10.0023, 2)
	pt3dadd(48.8997, 28.7138, 10.2721, 2)
	pt3dadd(48.8989, 28.6764, 10.5581, 2)
  }
  soma[390] {pt3dclear()
	pt3dadd(48.8989, 28.6764, 10.5581, 2)
	pt3dadd(48.891, 28.5507, 10.8408, 2)
	pt3dadd(48.8936, 28.4959, 11.1398, 2)
	pt3dadd(48.9022, 28.4398, 11.4354, 2)
	pt3dadd(48.9288, 28.3976, 11.7306, 2)
	pt3dadd(48.9622, 28.3609, 12.0245, 2)
	pt3dadd(48.9914, 28.3337, 12.3165, 2)
	pt3dadd(49.007, 28.3137, 12.6013, 2)
	pt3dadd(48.9836, 28.2946, 12.8679, 2)
	pt3dadd(48.9288, 28.2481, 13.0997, 2)
  }
  soma[391] {pt3dclear()
	pt3dadd(48.9288, 28.2481, 13.0997, 2)
	pt3dadd(49.0853, 28.0819, 13.2314, 2)
	pt3dadd(49.2235, 27.8894, 13.3597, 2)
	pt3dadd(49.3454, 27.6683, 13.483, 2)
	pt3dadd(49.4724, 27.4352, 13.6128, 2)
	pt3dadd(49.6149, 27.1903, 13.7436, 2)
	pt3dadd(49.7696, 26.9334, 13.8854, 2)
  }
  soma[392] {pt3dclear()
	pt3dadd(49.7696, 26.9334, 13.8854, 2)
	pt3dadd(49.9372, 26.7206, 13.8615, 2)
	pt3dadd(50.1092, 26.5014, 13.842, 2)
  }
  soma[393] {pt3dclear()
	pt3dadd(49.7696, 26.9334, 13.8854, 2)
	pt3dadd(49.8048, 26.8175, 14.0983, 2)
	pt3dadd(49.8495, 26.6799, 14.3168, 2)
	pt3dadd(49.9037, 26.5376, 14.5424, 2)
	pt3dadd(49.9476, 26.3916, 14.7736, 2)
	pt3dadd(49.9813, 26.2533, 15.0128, 2)
  }
  soma[394] {pt3dclear()
	pt3dadd(48.9288, 28.2481, 13.0997, 2)
	pt3dadd(48.6524, 28.2911, 13.0958, 2)
	pt3dadd(48.3765, 28.3247, 13.0722, 2)
	pt3dadd(48.0987, 28.3606, 13.0303, 2)
	pt3dadd(47.8191, 28.3978, 12.9698, 2)
	pt3dadd(47.5394, 28.4315, 12.8948, 2)
  }
  soma[395] {pt3dclear()
	pt3dadd(48.8989, 28.6764, 10.5581, 2)
	pt3dadd(48.9944, 28.9425, 10.6029, 2)
	pt3dadd(49.0897, 29.2156, 10.6703, 2)
	pt3dadd(49.1851, 29.4854, 10.7628, 2)
	pt3dadd(49.3003, 29.7381, 10.8776, 2)
	pt3dadd(49.4433, 29.9717, 10.9966, 2)
	pt3dadd(49.6303, 30.1808, 11.0963, 2)
	pt3dadd(49.8558, 30.3618, 11.1727, 2)
	pt3dadd(50.1025, 30.5237, 11.2323, 2)
	pt3dadd(50.3578, 30.6717, 11.286, 2)
	pt3dadd(50.5989, 30.8259, 11.3527, 2)
	pt3dadd(50.813, 30.9882, 11.4535, 2)
	pt3dadd(50.993, 31.1557, 11.604, 2)
	pt3dadd(51.1607, 31.3288, 11.7765, 2)
	pt3dadd(51.3345, 31.5189, 11.934, 2)
	pt3dadd(51.5129, 31.7209, 12.0738, 2)
	pt3dadd(51.704, 31.9202, 12.2004, 2)
	pt3dadd(51.915, 32.112, 12.3052, 2)
	pt3dadd(52.1549, 32.2804, 12.3872, 2)
	pt3dadd(52.4115, 32.4333, 12.4493, 2)
	pt3dadd(52.6727, 32.5813, 12.5066, 2)
	pt3dadd(52.9427, 32.7142, 12.5629, 2)
	pt3dadd(53.2152, 32.8423, 12.6188, 2)
  }
  soma[396] {pt3dclear()
	pt3dadd(48.9745, 29.2114, 9.18403, 2)
	pt3dadd(48.6989, 29.1916, 9.12804, 2)
	pt3dadd(48.405, 29.1619, 9.07573, 2)
	pt3dadd(48.1017, 29.1269, 9.03665, 2)
	pt3dadd(47.7977, 29.069, 9.01149, 2)
	pt3dadd(47.496, 28.991, 9.00805, 2)
	pt3dadd(47.2066, 28.8742, 9.02304, 2)
	pt3dadd(46.915, 28.7639, 9.05099, 2)
  }
  soma[397] {pt3dclear()
	pt3dadd(49.1434, 29.2864, 8.89232, 2)
	pt3dadd(49.1874, 29.0867, 8.7203, 2)
	pt3dadd(49.2473, 28.8529, 8.58018, 2)
	pt3dadd(49.2903, 28.5899, 8.48068, 2)
	pt3dadd(49.2922, 28.3045, 8.4437, 2)
	pt3dadd(49.2715, 28.0157, 8.46584, 2)
	pt3dadd(49.2221, 27.7361, 8.53296, 2)
	pt3dadd(49.1756, 27.4637, 8.63098, 2)
	pt3dadd(49.0845, 27.2232, 8.7763, 2)
	pt3dadd(48.9865, 26.9881, 8.93048, 2)
	pt3dadd(48.8596, 26.76, 9.07532, 2)
	pt3dadd(48.7312, 26.5389, 9.22736, 2)
	pt3dadd(48.5996, 26.3269, 9.3818, 2)
	pt3dadd(48.4712, 26.1487, 9.564, 2)
  }
  soma[398] {pt3dclear()
	pt3dadd(48.4712, 26.1487, 9.564, 2)
	pt3dadd(48.342, 25.7753, 9.69639, 2)
  }
  soma[399] {pt3dclear()
	pt3dadd(48.342, 25.7753, 9.69639, 2)
	pt3dadd(48.0283, 25.6624, 9.81075, 2)
  }
}
proc shape3d_15() {
  soma[399] {  }
  soma[400] {pt3dclear()
	pt3dadd(48.0283, 25.6624, 9.81075, 2)
	pt3dadd(47.8262, 25.5017, 9.88499, 2)
	pt3dadd(47.613, 25.361, 9.96191, 2)
  }
  soma[401] {pt3dclear()
	pt3dadd(47.613, 25.361, 9.96191, 2)
	pt3dadd(47.3441, 25.2088, 9.86769, 2)
	pt3dadd(47.0836, 25.0815, 9.77639, 2)
	pt3dadd(46.8517, 24.9572, 9.65392, 2)
	pt3dadd(46.66, 24.8169, 9.49473, 2)
	pt3dadd(46.488, 24.6784, 9.30806, 2)
	pt3dadd(46.3125, 24.5507, 9.10827, 2)
	pt3dadd(46.1153, 24.4539, 8.90459, 2)
	pt3dadd(45.881, 24.3665, 8.73637, 2)
	pt3dadd(45.6259, 24.2782, 8.60258, 2)
	pt3dadd(45.3587, 24.1957, 8.49209, 2)
	pt3dadd(45.0824, 24.1261, 8.39904, 2)
	pt3dadd(44.8059, 24.0386, 8.33047, 2)
  }
  soma[402] {pt3dclear()
	pt3dadd(44.8059, 24.0386, 8.33047, 2)
	pt3dadd(44.5875, 23.8551, 8.17562, 2)
	pt3dadd(44.3808, 23.6478, 8.05941, 2)
	pt3dadd(44.1771, 23.4308, 7.971, 2)
	pt3dadd(43.9536, 23.2273, 7.89984, 2)
	pt3dadd(43.7095, 23.0321, 7.85889, 2)
  }
  soma[403] {pt3dclear()
	pt3dadd(43.7095, 23.0321, 7.85889, 2)
	pt3dadd(43.5246, 22.8396, 7.72141, 2)
	pt3dadd(43.3208, 22.6541, 7.60991, 2)
	pt3dadd(43.0825, 22.4967, 7.53655, 2)
	pt3dadd(42.8248, 22.3655, 7.49323, 2)
	pt3dadd(42.5606, 22.2467, 7.4851, 2)
	pt3dadd(42.2831, 22.1737, 7.51474, 2)
	pt3dadd(42.0051, 22.1283, 7.57599, 2)
	pt3dadd(41.7336, 22.1088, 7.67059, 2)
	pt3dadd(41.4747, 22.1059, 7.79324, 2)
	pt3dadd(41.2357, 22.1045, 7.94245, 2)
  }
  soma[404] {pt3dclear()
	pt3dadd(41.2357, 22.1045, 7.94245, 2)
	pt3dadd(41.0382, 22.2214, 8.13085, 2)
  }
  soma[405] {pt3dclear()
	pt3dadd(41.0382, 22.2214, 8.13085, 2)
	pt3dadd(40.749, 22.0972, 8.08874, 2)
	pt3dadd(40.4684, 21.9776, 8.05995, 2)
	pt3dadd(40.1921, 21.8649, 8.051, 2)
	pt3dadd(39.9144, 21.767, 8.06419, 2)
	pt3dadd(39.636, 21.679, 8.09636, 2)
	pt3dadd(39.3502, 21.6267, 8.14479, 2)
	pt3dadd(39.0617, 21.6108, 8.21351, 2)
	pt3dadd(38.7772, 21.6135, 8.31328, 2)
  }
  soma[406] {pt3dclear()
	pt3dadd(38.7772, 21.6135, 8.31328, 2)
	pt3dadd(38.4702, 21.6286, 8.28233, 2)
	pt3dadd(38.1606, 21.6817, 8.26564, 2)
	pt3dadd(37.8391, 21.7648, 8.26908, 2)
	pt3dadd(37.4959, 21.8738, 8.28455, 2)
  }
  soma[407] {pt3dclear()
	pt3dadd(37.4959, 21.8738, 8.28455, 2)
	pt3dadd(37.279, 22.0359, 8.23933, 2)
	pt3dadd(37.0578, 22.2218, 8.19679, 2)
	pt3dadd(36.8382, 22.4225, 8.15806, 2)
	pt3dadd(36.6242, 22.6344, 8.12624, 2)
	pt3dadd(36.4195, 22.8569, 8.10092, 2)
	pt3dadd(36.227, 23.09, 8.07731, 2)
	pt3dadd(36.0572, 23.3393, 8.05003, 2)
	pt3dadd(35.9097, 23.6005, 8.01018, 2)
	pt3dadd(35.7809, 23.8696, 7.95809, 2)
	pt3dadd(35.6505, 24.1364, 7.89718, 2)
	pt3dadd(35.521, 24.4031, 7.83409, 2)
	pt3dadd(35.3881, 24.6695, 7.77901, 2)
	pt3dadd(35.2534, 24.9367, 7.73794, 2)
	pt3dadd(35.1283, 25.2099, 7.71739, 2)
	pt3dadd(35.0187, 25.4894, 7.71733, 2)
	pt3dadd(34.9454, 25.7784, 7.7454, 2)
	pt3dadd(34.9002, 26.0666, 7.81281, 2)
	pt3dadd(34.8811, 26.3492, 7.91181, 2)
	pt3dadd(34.8628, 26.6222, 8.03699, 2)
	pt3dadd(34.8292, 26.8831, 8.18411, 2)
	pt3dadd(34.7799, 27.1303, 8.35038, 2)
	pt3dadd(34.7074, 27.3666, 8.52475, 2)
	pt3dadd(34.6288, 27.5935, 8.70953, 2)
  }
  soma[408] {pt3dclear()
	pt3dadd(37.4959, 21.8738, 8.28455, 2)
	pt3dadd(37.3527, 21.8621, 8.40742, 2)
	pt3dadd(37.2255, 21.841, 8.56296, 2)
  }
  soma[409] {pt3dclear()
	pt3dadd(37.2255, 21.841, 8.56296, 2)
	pt3dadd(37.0098, 21.9572, 8.7789, 2)
	pt3dadd(36.7882, 22.0373, 8.98596, 2)
	pt3dadd(36.5497, 22.094, 9.17292, 2)
	pt3dadd(36.3024, 22.148, 9.34597, 2)
	pt3dadd(36.0495, 22.1978, 9.51133, 2)
	pt3dadd(35.7919, 22.2431, 9.6704, 2)
	pt3dadd(35.5391, 22.2941, 9.83535, 2)
	pt3dadd(35.29, 22.3387, 10.0071, 2)
	pt3dadd(35.0469, 22.3797, 10.1868, 2)
	pt3dadd(34.8091, 22.4405, 10.3655, 2)
	pt3dadd(34.5745, 22.5363, 10.5298, 2)
	pt3dadd(34.3478, 22.6666, 10.6783, 2)
	pt3dadd(34.1277, 22.8265, 10.8037, 2)
	pt3dadd(33.9143, 23.0136, 10.8973, 2)
	pt3dadd(33.7007, 23.2142, 10.9529, 2)
	pt3dadd(33.4833, 23.4177, 10.9647, 2)
	pt3dadd(33.2628, 23.6155, 10.9293, 2)
	pt3dadd(33.0444, 23.8052, 10.8521, 2)
	pt3dadd(32.8369, 23.9868, 10.7308, 2)
	pt3dadd(32.6358, 24.156, 10.5795, 2)
	pt3dadd(32.4465, 24.3203, 10.4062, 2)
	pt3dadd(32.2491, 24.4707, 10.2279, 2)
  }
  soma[410] {pt3dclear()
	pt3dadd(37.2255, 21.841, 8.56296, 2)
	pt3dadd(37.2722, 21.5783, 8.5126, 2)
	pt3dadd(37.3376, 21.2974, 8.46583, 2)
	pt3dadd(37.414, 21.0117, 8.40711, 2)
	pt3dadd(37.5133, 20.7317, 8.33996, 2)
	pt3dadd(37.6312, 20.4593, 8.26838, 2)
	pt3dadd(37.7713, 20.1957, 8.20657, 2)
	pt3dadd(37.923, 19.935, 8.16992, 2)
	pt3dadd(38.0725, 19.672, 8.16069, 2)
	pt3dadd(38.2123, 19.4053, 8.17939, 2)
	pt3dadd(38.3335, 19.1335, 8.21982, 2)
	pt3dadd(38.4358, 18.8614, 8.27291, 2)
	pt3dadd(38.5202, 18.5985, 8.33356, 2)
  }
  soma[411] {pt3dclear()
	pt3dadd(38.5202, 18.5985, 8.33356, 2)
	pt3dadd(38.464, 18.3129, 8.52431, 2)
	pt3dadd(38.3984, 18.0515, 8.70801, 2)
	pt3dadd(38.3274, 17.8042, 8.88684, 2)
	pt3dadd(38.2481, 17.5684, 9.06759, 2)
	pt3dadd(38.1569, 17.3423, 9.25163, 2)
  }
  soma[412] {pt3dclear()
	pt3dadd(38.5202, 18.5985, 8.33356, 2)
	pt3dadd(38.6497, 18.7494, 8.15462, 2)
	pt3dadd(38.7785, 18.9216, 7.95783, 2)
	pt3dadd(38.9121, 19.1012, 7.75056, 2)
  }
  soma[413] {pt3dclear()
	pt3dadd(38.7772, 21.6135, 8.31328, 2)
	pt3dadd(38.7896, 21.7564, 8.46481, 2)
	pt3dadd(38.8272, 21.9102, 8.61921, 2)
  }
  soma[414] {pt3dclear()
	pt3dadd(38.8272, 21.9102, 8.61921, 2)
	pt3dadd(38.7583, 22.0176, 8.82614, 2)
	pt3dadd(38.6773, 22.1277, 8.99531, 2)
  }
  soma[415] {pt3dclear()
	pt3dadd(38.6773, 22.1277, 8.99531, 2)
	pt3dadd(38.4808, 22.3214, 9.19853, 2)
	pt3dadd(38.2987, 22.4942, 9.38143, 2)
	pt3dadd(38.1273, 22.651, 9.5561, 2)
	pt3dadd(37.959, 22.7967, 9.72709, 2)
	pt3dadd(37.7885, 22.9324, 9.89804, 2)
  }
  soma[416] {pt3dclear()
	pt3dadd(38.6773, 22.1277, 8.99531, 2)
	pt3dadd(38.8699, 21.9938, 8.89429, 2)
	pt3dadd(39.0909, 21.8549, 8.79593, 2)
	pt3dadd(39.334, 21.7185, 8.72274, 2)
	pt3dadd(39.5872, 21.5837, 8.67602, 2)
	pt3dadd(39.8398, 21.4382, 8.66644, 2)
	pt3dadd(40.0961, 21.298, 8.69067, 2)
	pt3dadd(40.3439, 21.1441, 8.73311, 2)
	pt3dadd(40.5887, 20.9864, 8.78557, 2)
	pt3dadd(40.8447, 20.8466, 8.83661, 2)
	pt3dadd(41.1045, 20.7138, 8.88143, 2)
	pt3dadd(41.3692, 20.5912, 8.90632, 2)
	pt3dadd(41.6333, 20.476, 8.89813, 2)
	pt3dadd(41.8809, 20.3521, 8.84769, 2)
	pt3dadd(42.1078, 20.2416, 8.73943, 2)
	pt3dadd(42.2961, 20.1468, 8.56427, 2)
	pt3dadd(42.4579, 20.0829, 8.34445, 2)
	pt3dadd(42.5802, 20.0164, 8.09411, 2)
  }
  soma[417] {pt3dclear()
	pt3dadd(38.8272, 21.9102, 8.61921, 2)
	pt3dadd(38.9841, 22.0725, 8.45402, 2)
	pt3dadd(39.1454, 22.2431, 8.27628, 2)
	pt3dadd(39.303, 22.4185, 8.0866, 2)
  }
  soma[418] {pt3dclear()
	pt3dadd(41.0382, 22.2214, 8.13085, 2)
	pt3dadd(41.1215, 22.4317, 8.41215, 2)
	pt3dadd(41.1861, 22.6511, 8.693, 2)
  }
  soma[419] {pt3dclear()
	pt3dadd(41.2357, 22.1045, 7.94245, 2)
	pt3dadd(41.1876, 21.8394, 7.92096, 2)
	pt3dadd(41.1252, 21.5564, 7.90379, 2)
	pt3dadd(41.0535, 21.254, 7.8827, 2)
	pt3dadd(40.978, 20.9287, 7.84637, 2)
  }
  soma[420] {pt3dclear()
	pt3dadd(40.978, 20.9287, 7.84637, 2)
	pt3dadd(41.1082, 20.665, 7.82118, 2)
	pt3dadd(41.2374, 20.3946, 7.77684, 2)
	pt3dadd(41.3708, 20.1217, 7.7207, 2)
	pt3dadd(41.5114, 19.8487, 7.66181, 2)
	pt3dadd(41.6497, 19.5735, 7.5987, 2)
  }
  soma[421] {pt3dclear()
	pt3dadd(40.978, 20.9287, 7.84637, 2)
	pt3dadd(40.7489, 20.7787, 7.742, 2)
	pt3dadd(40.5164, 20.6021, 7.62353, 2)
	pt3dadd(40.2819, 20.4139, 7.5034, 2)
  }
  soma[422] {pt3dclear()
	pt3dadd(43.7095, 23.0321, 7.85889, 2)
	pt3dadd(43.5659, 23.0143, 8.10396, 2)
  }
  soma[423] {pt3dclear()
	pt3dadd(43.5659, 23.0143, 8.10396, 2)
	pt3dadd(43.3309, 23.0758, 8.32203, 2)
	pt3dadd(43.1257, 23.1293, 8.53084, 2)
	pt3dadd(42.9408, 23.1854, 8.73942, 2)
  }
  soma[424] {pt3dclear()
	pt3dadd(43.5659, 23.0143, 8.10396, 2)
	pt3dadd(43.7567, 22.8385, 8.14148, 2)
  }
  soma[425] {pt3dclear()
	pt3dadd(43.7567, 22.8385, 8.14148, 2)
	pt3dadd(43.8589, 22.5928, 8.15699, 2)
	pt3dadd(43.9647, 22.3286, 8.16154, 2)
	pt3dadd(44.0659, 22.0511, 8.15102, 2)
	pt3dadd(44.1448, 21.7625, 8.12703, 2)
	pt3dadd(44.1959, 21.4687, 8.08952, 2)
	pt3dadd(44.2026, 21.1735, 8.04112, 2)
	pt3dadd(44.1665, 20.8826, 7.98638, 2)
	pt3dadd(44.0947, 20.5983, 7.92997, 2)
	pt3dadd(44.0016, 20.3187, 7.87327, 2)
	pt3dadd(43.9075, 20.0371, 7.81894, 2)
  }
  soma[426] {pt3dclear()
	pt3dadd(43.9075, 20.0371, 7.81894, 2)
	pt3dadd(43.6814, 19.8449, 7.6899, 2)
	pt3dadd(43.4684, 19.6481, 7.55804, 2)
  }
  soma[427] {pt3dclear()
	pt3dadd(43.9075, 20.0371, 7.81894, 2)
	pt3dadd(44.115, 19.9338, 7.91134, 2)
	pt3dadd(44.3392, 19.8342, 8.01476, 2)
	pt3dadd(44.5707, 19.7295, 8.12206, 2)
  }
}
proc shape3d_16() {
  soma[427] {  }
  soma[428] {pt3dclear()
	pt3dadd(43.7567, 22.8385, 8.14148, 2)
	pt3dadd(43.9629, 22.7755, 8.21671, 2)
	pt3dadd(44.1922, 22.703, 8.30342, 2)
	pt3dadd(44.4379, 22.6143, 8.38389, 2)
	pt3dadd(44.6954, 22.5229, 8.45758, 2)
	pt3dadd(44.9591, 22.4363, 8.53476, 2)
	pt3dadd(45.2194, 22.3354, 8.61784, 2)
	pt3dadd(45.472, 22.2138, 8.70685, 2)
  }
  soma[429] {pt3dclear()
	pt3dadd(45.472, 22.2138, 8.70685, 2)
	pt3dadd(45.5918, 22.1845, 8.96651, 2)
	pt3dadd(45.7136, 22.1384, 9.22425, 2)
	pt3dadd(45.8511, 22.0626, 9.47238, 2)
	pt3dadd(45.9993, 21.9578, 9.71642, 2)
	pt3dadd(46.1609, 21.8333, 9.96387, 2)
  }
  soma[430] {pt3dclear()
	pt3dadd(46.1609, 21.8333, 9.96387, 2)
	pt3dadd(46.2849, 21.5933, 10.0287, 2)
	pt3dadd(46.4193, 21.3536, 10.0991, 2)
	pt3dadd(46.5748, 21.1172, 10.1577, 2)
	pt3dadd(46.7374, 20.8764, 10.194, 2)
	pt3dadd(46.9128, 20.6382, 10.2062, 2)
	pt3dadd(47.107, 20.4109, 10.1976, 2)
	pt3dadd(47.3131, 20.1924, 10.1699, 2)
	pt3dadd(47.5066, 19.9626, 10.1268, 2)
	pt3dadd(47.6871, 19.7246, 10.0661, 2)
	pt3dadd(47.8596, 19.4819, 9.9962, 2)
	pt3dadd(48.0311, 19.238, 9.92558, 2)
  }
  soma[431] {pt3dclear()
	pt3dadd(46.1609, 21.8333, 9.96387, 2)
	pt3dadd(46.2199, 21.9677, 10.2252, 2)
	pt3dadd(46.2833, 22.1057, 10.5058, 2)
	pt3dadd(46.3447, 22.2395, 10.8004, 2)
  }
  soma[432] {pt3dclear()
	pt3dadd(45.472, 22.2138, 8.70685, 2)
	pt3dadd(45.5787, 22.0319, 8.54115, 2)
	pt3dadd(45.67, 21.8346, 8.36868, 2)
	pt3dadd(45.7682, 21.6408, 8.18266, 2)
	pt3dadd(45.8676, 21.4399, 7.99332, 2)
	pt3dadd(45.9992, 21.2478, 7.80589, 2)
	pt3dadd(46.1455, 21.0459, 7.63307, 2)
	pt3dadd(46.2915, 20.8233, 7.47653, 2)
  }
  soma[433] {pt3dclear()
	pt3dadd(46.2915, 20.8233, 7.47653, 2)
	pt3dadd(46.5351, 20.7137, 7.33662, 2)
	pt3dadd(46.7759, 20.5993, 7.19967, 2)
  }
  soma[434] {pt3dclear()
	pt3dadd(46.2915, 20.8233, 7.47653, 2)
	pt3dadd(46.1563, 20.6061, 7.47671, 2)
	pt3dadd(46.0129, 20.3697, 7.48156, 2)
	pt3dadd(45.8606, 20.1214, 7.49143, 2)
	pt3dadd(45.7039, 19.8674, 7.51004, 2)
  }
  soma[435] {pt3dclear()
	pt3dadd(44.8059, 24.0386, 8.33047, 2)
	pt3dadd(44.7414, 24.1694, 8.52632, 2)
	pt3dadd(44.6515, 24.2906, 8.752, 2)
	pt3dadd(44.5456, 24.393, 9.00798, 2)
	pt3dadd(44.4168, 24.4578, 9.28818, 2)
  }
  soma[436] {pt3dclear()
	pt3dadd(44.4168, 24.4578, 9.28818, 2)
	pt3dadd(44.207, 24.3938, 9.4727, 2)
	pt3dadd(44.0041, 24.2939, 9.6561, 2)
	pt3dadd(43.8075, 24.169, 9.83675, 2)
	pt3dadd(43.6163, 24.0179, 10.008, 2)
	pt3dadd(43.416, 23.8598, 10.1671, 2)
	pt3dadd(43.208, 23.7005, 10.3206, 2)
	pt3dadd(43.0008, 23.5339, 10.4754, 2)
	pt3dadd(42.7983, 23.3658, 10.6471, 2)
	pt3dadd(42.6076, 23.1837, 10.8334, 2)
  }
  soma[437] {pt3dclear()
	pt3dadd(42.6076, 23.1837, 10.8334, 2)
	pt3dadd(42.5518, 23.1198, 11.1102, 2)
  }
  soma[438] {pt3dclear()
	pt3dadd(42.6076, 23.1837, 10.8334, 2)
	pt3dadd(42.4922, 22.9515, 10.7509, 2)
	pt3dadd(42.3748, 22.7125, 10.6634, 2)
	pt3dadd(42.247, 22.4837, 10.5613, 2)
	pt3dadd(42.1359, 22.2583, 10.4544, 2)
  }
  soma[439] {pt3dclear()
	pt3dadd(42.1359, 22.2583, 10.4544, 2)
	pt3dadd(41.8846, 22.0397, 10.4138, 2)
	pt3dadd(41.6476, 21.8374, 10.3843, 2)
	pt3dadd(41.4177, 21.6513, 10.376, 2)
	pt3dadd(41.1979, 21.471, 10.3974, 2)
	pt3dadd(40.992, 21.2896, 10.4508, 2)
	pt3dadd(40.7959, 21.1112, 10.5251, 2)
	pt3dadd(40.6073, 20.9417, 10.61, 2)
	pt3dadd(40.4299, 20.7817, 10.694, 2)
  }
  soma[440] {pt3dclear()
	pt3dadd(40.4299, 20.7817, 10.694, 2)
	pt3dadd(40.1207, 20.7974, 10.712, 2)
	pt3dadd(39.8237, 20.8187, 10.7221, 2)
	pt3dadd(39.5365, 20.851, 10.7348, 2)
	pt3dadd(39.2568, 20.8925, 10.7616, 2)
	pt3dadd(38.9815, 20.9391, 10.8016, 2)
  }
  soma[441] {pt3dclear()
	pt3dadd(40.4299, 20.7817, 10.694, 2)
	pt3dadd(40.6238, 20.6262, 10.6848, 2)
	pt3dadd(40.835, 20.4764, 10.6696, 2)
	pt3dadd(41.0588, 20.327, 10.6607, 2)
	pt3dadd(41.2893, 20.1717, 10.6681, 2)
	pt3dadd(41.5185, 20.0031, 10.6967, 2)
	pt3dadd(41.7444, 19.8227, 10.7428, 2)
	pt3dadd(41.9706, 19.6398, 10.8002, 2)
  }
  soma[442] {pt3dclear()
	pt3dadd(42.1359, 22.2583, 10.4544, 2)
	pt3dadd(42.3628, 22.2897, 10.3418, 2)
	pt3dadd(42.6127, 22.3145, 10.2149, 2)
	pt3dadd(42.8791, 22.3345, 10.076, 2)
	pt3dadd(43.1513, 22.3608, 9.92671, 2)
  }
  soma[443] {pt3dclear()
	pt3dadd(44.4168, 24.4578, 9.28818, 2)
	pt3dadd(44.5217, 24.5689, 9.47929, 2)
	pt3dadd(44.6298, 24.6674, 9.70013, 2)
	pt3dadd(44.7291, 24.7845, 9.93528, 2)
	pt3dadd(44.8199, 24.9206, 10.1766, 2)
	pt3dadd(44.9126, 25.0613, 10.4217, 2)
	pt3dadd(44.9942, 25.2216, 10.6622, 2)
	pt3dadd(45.0805, 25.3973, 10.8918, 2)
	pt3dadd(45.1737, 25.5775, 11.1161, 2)
  }
  soma[444] {pt3dclear()
	pt3dadd(47.613, 25.361, 9.96191, 2)
	pt3dadd(47.7022, 25.3376, 10.1879, 2)
	pt3dadd(47.7741, 25.2948, 10.4257, 2)
	pt3dadd(47.8176, 25.2427, 10.6679, 2)
  }
  soma[445] {pt3dclear()
	pt3dadd(47.8176, 25.2427, 10.6679, 2)
	pt3dadd(47.8467, 24.9892, 10.8992, 2)
	pt3dadd(47.8837, 24.7509, 11.1206, 2)
	pt3dadd(47.9086, 24.5252, 11.3375, 2)
	pt3dadd(47.9112, 24.3086, 11.5502, 2)
	pt3dadd(47.8748, 24.1136, 11.7702, 2)
	pt3dadd(47.797, 23.9583, 12.006, 2)
	pt3dadd(47.6761, 23.8439, 12.2482, 2)
	pt3dadd(47.5238, 23.7729, 12.494, 2)
	pt3dadd(47.3544, 23.7199, 12.7393, 2)
	pt3dadd(47.1823, 23.6672, 12.9872, 2)
	pt3dadd(47.0213, 23.6101, 13.2437, 2)
	pt3dadd(46.8669, 23.5479, 13.504, 2)
  }
  soma[446] {pt3dclear()
	pt3dadd(47.8176, 25.2427, 10.6679, 2)
	pt3dadd(47.8003, 25.5006, 10.6692, 2)
	pt3dadd(47.7727, 25.7728, 10.6751, 2)
	pt3dadd(47.7275, 26.0478, 10.7022, 2)
  }
  soma[447] {pt3dclear()
	pt3dadd(47.7275, 26.0478, 10.7022, 2)
	pt3dadd(47.6864, 26.3676, 10.6376, 2)
	pt3dadd(47.6457, 26.6827, 10.5924, 2)
	pt3dadd(47.6047, 26.9939, 10.5565, 2)
	pt3dadd(47.5633, 27.3034, 10.5303, 2)
	pt3dadd(47.5295, 27.6131, 10.5118, 2)
	pt3dadd(47.4929, 27.922, 10.4942, 2)
  }
  soma[448] {pt3dclear()
	pt3dadd(47.7275, 26.0478, 10.7022, 2)
	pt3dadd(47.7229, 26.0263, 10.9436, 2)
	pt3dadd(47.7153, 26.0322, 11.2079, 2)
	pt3dadd(47.7151, 26.0781, 11.4859, 2)
	pt3dadd(47.7216, 26.1598, 11.7689, 2)
	pt3dadd(47.7348, 26.27, 12.0521, 2)
	pt3dadd(47.7572, 26.3938, 12.3359, 2)
	pt3dadd(47.7779, 26.5262, 12.6193, 2)
  }
  soma[449] {pt3dclear()
	pt3dadd(48.0283, 25.6624, 9.81075, 2)
	pt3dadd(47.81, 25.8123, 9.79392, 2)
	pt3dadd(47.6027, 25.9969, 9.76367, 2)
	pt3dadd(47.4001, 26.198, 9.71899, 2)
	pt3dadd(47.1884, 26.3949, 9.66335, 2)
	pt3dadd(46.9568, 26.573, 9.61279, 2)
  }
  soma[450] {pt3dclear()
	pt3dadd(48.342, 25.7753, 9.69639, 2)
	pt3dadd(48.445, 25.5202, 9.68812, 2)
	pt3dadd(48.5367, 25.2518, 9.67137, 2)
	pt3dadd(48.6321, 24.9766, 9.64788, 2)
	pt3dadd(48.7095, 24.6919, 9.62115, 2)
	pt3dadd(48.7849, 24.4068, 9.59281, 2)
	pt3dadd(48.8444, 24.1232, 9.54757, 2)
	pt3dadd(48.9216, 23.8538, 9.47542, 2)
	pt3dadd(49.0161, 23.6043, 9.36858, 2)
	pt3dadd(49.1383, 23.3847, 9.2238, 2)
	pt3dadd(49.2731, 23.1931, 9.03809, 2)
	pt3dadd(49.4254, 23.0234, 8.82307, 2)
  }
  soma[451] {pt3dclear()
	pt3dadd(49.4254, 23.0234, 8.82307, 2)
	pt3dadd(49.5032, 23.0154, 8.54927, 2)
	pt3dadd(49.6214, 22.9944, 8.28247, 2)
	pt3dadd(49.741, 22.9488, 8.01278, 2)
	pt3dadd(49.8738, 22.908, 7.74354, 2)
	pt3dadd(49.999, 22.8664, 7.46616, 2)
	pt3dadd(50.0985, 22.847, 7.17101, 2)
	pt3dadd(50.1628, 22.8794, 6.86053, 2)
  }
  soma[452] {pt3dclear()
	pt3dadd(50.1628, 22.8794, 6.86053, 2)
	pt3dadd(50.1711, 22.8187, 6.57293, 2)
	pt3dadd(50.1989, 22.7983, 6.28043, 2)
  }
  soma[453] {pt3dclear()
	pt3dadd(50.1628, 22.8794, 6.86053, 2)
	pt3dadd(50.3007, 23.0994, 6.8511, 2)
	pt3dadd(50.4056, 23.3555, 6.86869, 2)
	pt3dadd(50.4897, 23.6266, 6.91964, 2)
	pt3dadd(50.5542, 23.9019, 7.00395, 2)
	pt3dadd(50.6203, 24.1702, 7.1199, 2)
	pt3dadd(50.6838, 24.4318, 7.26016, 2)
	pt3dadd(50.7373, 24.6878, 7.41971, 2)
	pt3dadd(50.8041, 24.9354, 7.59065, 2)
	pt3dadd(50.8742, 25.1787, 7.768, 2)
	pt3dadd(50.9661, 25.4097, 7.9524, 2)
	pt3dadd(51.0717, 25.6352, 8.13668, 2)
  }
  soma[454] {pt3dclear()
	pt3dadd(49.4254, 23.0234, 8.82307, 2)
	pt3dadd(49.4906, 22.7697, 8.86212, 2)
	pt3dadd(49.5447, 22.4924, 8.88735, 2)
	pt3dadd(49.611, 22.1967, 8.89193, 2)
	pt3dadd(49.6989, 21.8851, 8.89706, 2)
	pt3dadd(49.8154, 21.5572, 8.90742, 2)
  }
  soma[455] {pt3dclear()
	pt3dadd(49.8154, 21.5572, 8.90742, 2)
	pt3dadd(49.863, 21.3076, 8.8323, 2)
	pt3dadd(49.9021, 21.0398, 8.75089, 2)
	pt3dadd(49.9185, 20.7664, 8.647, 2)
	pt3dadd(49.9042, 20.4968, 8.52065, 2)
	pt3dadd(49.8905, 20.2366, 8.3723, 2)
	pt3dadd(49.8526, 19.9822, 8.21902, 2)
	pt3dadd(49.8092, 19.7368, 8.05632, 2)
	pt3dadd(49.7658, 19.4911, 7.89994, 2)
	pt3dadd(49.7202, 19.253, 7.74235, 2)
	pt3dadd(49.6558, 19.0147, 7.60591, 2)
	pt3dadd(49.5703, 18.7818, 7.48924, 2)
  }
}
proc shape3d_17() {
  soma[455] {	pt3dadd(49.4743, 18.5536, 7.39137, 2)
	pt3dadd(49.361, 18.3422, 7.29666, 2)
  }
  soma[456] {pt3dclear()
	pt3dadd(49.361, 18.3422, 7.29666, 2)
	pt3dadd(49.1243, 18.1825, 7.38652, 2)
	pt3dadd(48.8932, 18.0297, 7.45408, 2)
  }
  soma[457] {pt3dclear()
	pt3dadd(48.8932, 18.0297, 7.45408, 2)
	pt3dadd(48.6343, 18.0394, 7.65493, 2)
	pt3dadd(48.3864, 18.0601, 7.8522, 2)
  }
  soma[458] {pt3dclear()
	pt3dadd(48.8932, 18.0297, 7.45408, 2)
	pt3dadd(48.9607, 17.8887, 7.26468, 2)
	pt3dadd(49.0483, 17.757, 7.05352, 2)
	pt3dadd(49.1357, 17.6435, 6.81867, 2)
	pt3dadd(49.2412, 17.5317, 6.58431, 2)
  }
  soma[459] {pt3dclear()
	pt3dadd(49.361, 18.3422, 7.29666, 2)
	pt3dadd(49.4925, 18.4142, 7.02528, 2)
	pt3dadd(49.6236, 18.5059, 6.75077, 2)
	pt3dadd(49.7625, 18.6148, 6.4882, 2)
	pt3dadd(49.8911, 18.7454, 6.24135, 2)
  }
  soma[460] {pt3dclear()
	pt3dadd(49.8911, 18.7454, 6.24135, 2)
	pt3dadd(50.161, 18.8283, 6.0002, 2)
  }
  soma[461] {pt3dclear()
	pt3dadd(49.8911, 18.7454, 6.24135, 2)
	pt3dadd(49.6538, 18.8485, 6.28624, 2)
	pt3dadd(49.4069, 18.9832, 6.33874, 2)
	pt3dadd(49.1606, 19.1423, 6.38514, 2)
	pt3dadd(48.9172, 19.3108, 6.43807, 2)
	pt3dadd(48.6841, 19.4936, 6.49499, 2)
	pt3dadd(48.462, 19.6875, 6.55861, 2)
	pt3dadd(48.2539, 19.8889, 6.64054, 2)
	pt3dadd(48.0642, 20.1017, 6.73506, 2)
	pt3dadd(47.8963, 20.3205, 6.85318, 2)
	pt3dadd(47.7435, 20.5353, 6.99702, 2)
	pt3dadd(47.5998, 20.7382, 7.16713, 2)
	pt3dadd(47.4728, 20.933, 7.36014, 2)
	pt3dadd(47.3489, 21.1278, 7.55632, 2)
	pt3dadd(47.2196, 21.329, 7.74256, 2)
	pt3dadd(47.0831, 21.5287, 7.9255, 2)
	pt3dadd(46.9345, 21.7291, 8.09794, 2)
  }
  soma[462] {pt3dclear()
	pt3dadd(49.8154, 21.5572, 8.90742, 2)
	pt3dadd(49.9423, 21.3922, 9.03974, 2)
	pt3dadd(50.0912, 21.2081, 9.17409, 2)
	pt3dadd(50.2515, 20.997, 9.31065, 2)
  }
  soma[463] {pt3dclear()
	pt3dadd(50.2515, 20.997, 9.31065, 2)
	pt3dadd(50.428, 20.8803, 9.51169, 2)
	pt3dadd(50.594, 20.7367, 9.71604, 2)
	pt3dadd(50.7512, 20.5837, 9.92657, 2)
	pt3dadd(50.9034, 20.4327, 10.1441, 2)
  }
  soma[464] {pt3dclear()
	pt3dadd(50.2515, 20.997, 9.31065, 2)
	pt3dadd(50.2553, 20.7264, 9.24641, 2)
	pt3dadd(50.272, 20.4314, 9.21404, 2)
	pt3dadd(50.3332, 20.1309, 9.23188, 2)
	pt3dadd(50.4294, 19.8361, 9.28265, 2)
	pt3dadd(50.5345, 19.545, 9.3577, 2)
  }
  soma[465] {pt3dclear()
	pt3dadd(48.4712, 26.1487, 9.564, 2)
	pt3dadd(48.3778, 26.4042, 9.56642, 2)
	pt3dadd(48.2494, 26.6626, 9.57133, 2)
	pt3dadd(48.1416, 26.943, 9.5743, 2)
	pt3dadd(48.0255, 27.2276, 9.5765, 2)
	pt3dadd(47.9166, 27.5185, 9.5733, 2)
	pt3dadd(47.8019, 27.8082, 9.56266, 2)
  }
  soma[466] {pt3dclear()
	pt3dadd(49.0655, 30.9135, 7.48164, 2)
	pt3dadd(49.3229, 30.8348, 7.42542, 2)
	pt3dadd(49.5852, 30.732, 7.36106, 2)
	pt3dadd(49.8612, 30.6378, 7.29962, 2)
	pt3dadd(50.1483, 30.5576, 7.24515, 2)
	pt3dadd(50.4447, 30.4994, 7.20075, 2)
  }
  soma[467] {pt3dclear()
	pt3dadd(48.9978, 31.4342, 7.64054, 2)
	pt3dadd(48.8201, 31.3176, 7.8198, 2)
	pt3dadd(48.628, 31.213, 8.01087, 2)
	pt3dadd(48.4335, 31.1116, 8.21383, 2)
	pt3dadd(48.239, 30.9993, 8.41805, 2)
	pt3dadd(48.0623, 30.8745, 8.63401, 2)
	pt3dadd(47.9136, 30.7417, 8.86706, 2)
	pt3dadd(47.7787, 30.6089, 9.1091, 2)
	pt3dadd(47.6609, 30.4739, 9.35946, 2)
	pt3dadd(47.5384, 30.3383, 9.60771, 2)
	pt3dadd(47.4203, 30.2033, 9.85872, 2)
  }
  soma[468] {pt3dclear()
	pt3dadd(48.8801, 33.654, 7.4723, 2)
	pt3dadd(48.717, 33.6136, 7.75389, 2)
	pt3dadd(48.5569, 33.5758, 8.04805, 2)
  }
  soma[469] {pt3dclear()
	pt3dadd(48.5569, 33.5758, 8.04805, 2)
	pt3dadd(48.4311, 33.4076, 8.29102, 2)
	pt3dadd(48.3078, 33.2821, 8.53395, 2)
  }
  soma[470] {pt3dclear()
	pt3dadd(48.3078, 33.2821, 8.53395, 2)
	pt3dadd(48.0642, 33.1502, 8.78452, 2)
	pt3dadd(47.8301, 33.0472, 9.05414, 2)
  }
  soma[471] {pt3dclear()
	pt3dadd(47.8301, 33.0472, 9.05414, 2)
	pt3dadd(47.6204, 33.074, 9.23453, 2)
	pt3dadd(47.4078, 33.1013, 9.41832, 2)
  }
  soma[472] {pt3dclear()
	pt3dadd(47.4078, 33.1013, 9.41832, 2)
	pt3dadd(47.1984, 33.3206, 9.69575, 2)
  }
  soma[473] {pt3dclear()
	pt3dadd(47.1984, 33.3206, 9.69575, 2)
	pt3dadd(46.9998, 33.3723, 9.86738, 2)
	pt3dadd(46.7981, 33.4462, 10.0403, 2)
	pt3dadd(46.6073, 33.5294, 10.2228, 2)
	pt3dadd(46.4429, 33.6245, 10.4173, 2)
  }
  soma[474] {pt3dclear()
	pt3dadd(46.4429, 33.6245, 10.4173, 2)
	pt3dadd(46.1779, 33.7031, 10.5892, 2)
	pt3dadd(45.9444, 33.7604, 10.7858, 2)
	pt3dadd(45.7371, 33.7902, 11.003, 2)
	pt3dadd(45.5558, 33.789, 11.2405, 2)
	pt3dadd(45.3792, 33.7529, 11.4787, 2)
	pt3dadd(45.2049, 33.6917, 11.7141, 2)
	pt3dadd(45.0424, 33.6184, 11.9547, 2)
	pt3dadd(44.8878, 33.5644, 12.2065, 2)
  }
  soma[475] {pt3dclear()
	pt3dadd(44.8878, 33.5644, 12.2065, 2)
	pt3dadd(44.655, 33.4138, 12.369, 2)
	pt3dadd(44.4271, 33.2839, 12.5372, 2)
	pt3dadd(44.2065, 33.1786, 12.7212, 2)
	pt3dadd(43.9767, 33.1113, 12.9071, 2)
	pt3dadd(43.737, 33.0677, 13.085, 2)
	pt3dadd(43.4972, 33.0492, 13.2665, 2)
	pt3dadd(43.2607, 33.0526, 13.4531, 2)
	pt3dadd(43.0393, 33.069, 13.6571, 2)
	pt3dadd(42.8352, 33.0999, 13.8778, 2)
	pt3dadd(42.6357, 33.1569, 14.1002, 2)
	pt3dadd(42.4292, 33.229, 14.3192, 2)
	pt3dadd(42.2008, 33.3097, 14.5282, 2)
  }
  soma[476] {pt3dclear()
	pt3dadd(42.2008, 33.3097, 14.5282, 2)
	pt3dadd(42.0841, 33.4606, 14.74, 2)
	pt3dadd(41.9377, 33.6108, 14.9412, 2)
	pt3dadd(41.7788, 33.7741, 15.1285, 2)
	pt3dadd(41.6204, 33.95, 15.3085, 2)
  }
  soma[477] {pt3dclear()
	pt3dadd(42.2008, 33.3097, 14.5282, 2)
	pt3dadd(41.9531, 33.3005, 14.4822, 2)
	pt3dadd(41.6829, 33.2978, 14.4408, 2)
	pt3dadd(41.3981, 33.3042, 14.4141, 2)
	pt3dadd(41.1064, 33.3234, 14.4092, 2)
	pt3dadd(40.815, 33.3626, 14.4299, 2)
	pt3dadd(40.5316, 33.436, 14.4718, 2)
	pt3dadd(40.26, 33.5424, 14.5231, 2)
	pt3dadd(40.0044, 33.6838, 14.5757, 2)
	pt3dadd(39.7631, 33.8521, 14.623, 2)
	pt3dadd(39.5371, 34.0439, 14.6612, 2)
	pt3dadd(39.3298, 34.2591, 14.689, 2)
	pt3dadd(39.1357, 34.489, 14.7005, 2)
	pt3dadd(38.9517, 34.7285, 14.6927, 2)
	pt3dadd(38.7764, 34.9741, 14.6645, 2)
	pt3dadd(38.6022, 35.2192, 14.6211, 2)
	pt3dadd(38.4184, 35.4565, 14.5722, 2)
	pt3dadd(38.213, 35.6746, 14.5204, 2)
	pt3dadd(37.9886, 35.875, 14.4775, 2)
	pt3dadd(37.7554, 36.0679, 14.4469, 2)
	pt3dadd(37.5204, 36.2597, 14.4216, 2)
  }
  soma[478] {pt3dclear()
	pt3dadd(44.8878, 33.5644, 12.2065, 2)
	pt3dadd(45.0022, 33.7188, 12.3602, 2)
	pt3dadd(45.0847, 33.9152, 12.521, 2)
	pt3dadd(45.1314, 34.1426, 12.6741, 2)
	pt3dadd(45.133, 34.3926, 12.8054, 2)
	pt3dadd(45.0842, 34.6531, 12.9082, 2)
	pt3dadd(44.9894, 34.916, 12.9753, 2)
	pt3dadd(44.8527, 35.173, 13.0074, 2)
	pt3dadd(44.6853, 35.4212, 13.0092, 2)
	pt3dadd(44.5001, 35.6625, 12.9898, 2)
	pt3dadd(44.3103, 35.9036, 12.9593, 2)
	pt3dadd(44.1187, 36.1444, 12.9231, 2)
  }
  soma[479] {pt3dclear()
	pt3dadd(46.4429, 33.6245, 10.4173, 2)
	pt3dadd(46.6726, 33.6324, 10.5199, 2)
	pt3dadd(46.916, 33.6562, 10.6477, 2)
	pt3dadd(47.1559, 33.7133, 10.7995, 2)
	pt3dadd(47.3777, 33.8004, 10.9719, 2)
	pt3dadd(47.5807, 33.8984, 11.1536, 2)
	pt3dadd(47.7721, 33.9814, 11.3362, 2)
  }
  soma[480] {pt3dclear()
	pt3dadd(47.7721, 33.9814, 11.3362, 2)
	pt3dadd(47.7164, 33.796, 11.5117, 2)
	pt3dadd(47.6645, 33.5829, 11.6828, 2)
	pt3dadd(47.6186, 33.3504, 11.852, 2)
	pt3dadd(47.5741, 33.1094, 12.0232, 2)
	pt3dadd(47.5321, 32.8595, 12.1893, 2)
	pt3dadd(47.4843, 32.6028, 12.348, 2)
	pt3dadd(47.4179, 32.3447, 12.5042, 2)
	pt3dadd(47.3382, 32.0932, 12.6755, 2)
	pt3dadd(47.2479, 31.8537, 12.8737, 2)
  }
  soma[481] {pt3dclear()
	pt3dadd(47.2479, 31.8537, 12.8737, 2)
	pt3dadd(47.2768, 31.5921, 13.02, 2)
	pt3dadd(47.2959, 31.334, 13.1744, 2)
  }
  soma[482] {pt3dclear()
	pt3dadd(47.2479, 31.8537, 12.8737, 2)
	pt3dadd(47.0271, 31.9105, 13.0111, 2)
	pt3dadd(46.7894, 31.9801, 13.1616, 2)
	pt3dadd(46.5383, 32.0583, 13.3184, 2)
	pt3dadd(46.2794, 32.1378, 13.4807, 2)
	pt3dadd(46.0204, 32.2078, 13.6557, 2)
	pt3dadd(45.7634, 32.2692, 13.8401, 2)
  }
  soma[483] {pt3dclear()
	pt3dadd(47.7721, 33.9814, 11.3362, 2)
	pt3dadd(48.0494, 34.1029, 11.3121, 2)
	pt3dadd(48.3307, 34.2026, 11.288, 2)
	pt3dadd(48.6053, 34.2971, 11.2694, 2)
	pt3dadd(48.8527, 34.4099, 11.2725, 2)
	pt3dadd(49.0364, 34.5732, 11.3119, 2)
	pt3dadd(49.1228, 34.7922, 11.3849, 2)
	pt3dadd(49.1209, 35.0436, 11.4726, 2)
	pt3dadd(49.0577, 35.3085, 11.5574, 2)
	pt3dadd(48.9492, 35.5743, 11.6271, 2)
	pt3dadd(48.8219, 35.8409, 11.6798, 2)
	pt3dadd(48.6779, 36.1033, 11.7191, 2)
	pt3dadd(48.5165, 36.3573, 11.7528, 2)
	pt3dadd(48.3441, 36.6023, 11.7979, 2)
	pt3dadd(48.1622, 36.8369, 11.8584, 2)
	pt3dadd(47.9751, 37.0624, 11.9348, 2)
	pt3dadd(47.7982, 37.2908, 12.026, 2)
	pt3dadd(47.6329, 37.5256, 12.1233, 2)
  }
}
proc shape3d_18() {
  soma[483] {	pt3dadd(47.4731, 37.7654, 12.2179, 2)
	pt3dadd(47.3184, 38.0108, 12.3063, 2)
	pt3dadd(47.1617, 38.2572, 12.389, 2)
	pt3dadd(47.0062, 38.506, 12.4666, 2)
	pt3dadd(46.8629, 38.7617, 12.5453, 2)
  }
  soma[484] {pt3dclear()
	pt3dadd(46.8629, 38.7617, 12.5453, 2)
	pt3dadd(46.8098, 39.0354, 12.523, 2)
	pt3dadd(46.7826, 39.3119, 12.4994, 2)
	pt3dadd(46.7812, 39.5894, 12.4664, 2)
	pt3dadd(46.7996, 39.8672, 12.4216, 2)
	pt3dadd(46.8435, 40.1438, 12.3646, 2)
	pt3dadd(46.916, 40.4177, 12.3024, 2)
	pt3dadd(47.0048, 40.6916, 12.2425, 2)
	pt3dadd(47.1087, 40.9651, 12.1893, 2)
	pt3dadd(47.213, 41.243, 12.1465, 2)
	pt3dadd(47.3109, 41.5265, 12.113, 2)
	pt3dadd(47.4025, 41.8135, 12.0813, 2)
	pt3dadd(47.4889, 42.1024, 12.0445, 2)
	pt3dadd(47.5735, 42.3919, 12.007, 2)
  }
  soma[485] {pt3dclear()
	pt3dadd(46.8629, 38.7617, 12.5453, 2)
	pt3dadd(47.1266, 38.8085, 12.4566, 2)
	pt3dadd(47.39, 38.8767, 12.3874, 2)
	pt3dadd(47.6516, 38.9704, 12.3408, 2)
	pt3dadd(47.9126, 39.0844, 12.3201, 2)
	pt3dadd(48.1739, 39.2112, 12.3161, 2)
	pt3dadd(48.4323, 39.3507, 12.3218, 2)
  }
  soma[486] {pt3dclear()
	pt3dadd(46.8629, 38.7617, 12.5453, 2)
	pt3dadd(46.7714, 38.7622, 12.8194, 2)
	pt3dadd(46.6881, 38.781, 13.0984, 2)
	pt3dadd(46.5966, 38.8248, 13.375, 2)
	pt3dadd(46.506, 38.8825, 13.6522, 2)
	pt3dadd(46.4186, 38.9423, 13.9323, 2)
	pt3dadd(46.3321, 39.0173, 14.2106, 2)
	pt3dadd(46.2544, 39.0956, 14.4914, 2)
	pt3dadd(46.1691, 39.1743, 14.7692, 2)
	pt3dadd(46.0824, 39.2578, 15.0434, 2)
	pt3dadd(45.9739, 39.3361, 15.3077, 2)
	pt3dadd(45.849, 39.4129, 15.5603, 2)
	pt3dadd(45.6962, 39.48, 15.7941, 2)
	pt3dadd(45.5171, 39.5372, 16.0054, 2)
	pt3dadd(45.3096, 39.5824, 16.1883, 2)
	pt3dadd(45.0784, 39.625, 16.3412, 2)
	pt3dadd(44.8267, 39.6666, 16.4645, 2)
	pt3dadd(44.5592, 39.7092, 16.562, 2)
	pt3dadd(44.2811, 39.7505, 16.6442, 2)
	pt3dadd(43.9968, 39.7887, 16.72, 2)
	pt3dadd(43.7091, 39.8214, 16.7929, 2)
  }
  soma[487] {pt3dclear()
	pt3dadd(47.1984, 33.3206, 9.69575, 2)
	pt3dadd(47.1293, 33.55, 9.79861, 2)
	pt3dadd(47.0496, 33.8007, 9.88762, 2)
	pt3dadd(46.9685, 34.0678, 9.96496, 2)
	pt3dadd(46.876, 34.3378, 10.0406, 2)
	pt3dadd(46.7733, 34.6029, 10.1156, 2)
	pt3dadd(46.6599, 34.8513, 10.2021, 2)
	pt3dadd(46.5451, 35.0756, 10.3108, 2)
	pt3dadd(46.4354, 35.2664, 10.4586, 2)
	pt3dadd(46.3307, 35.4168, 10.6508, 2)
	pt3dadd(46.2313, 35.5352, 10.8777, 2)
	pt3dadd(46.1344, 35.6424, 11.1206, 2)
  }
  soma[488] {pt3dclear()
	pt3dadd(47.4078, 33.1013, 9.41832, 2)
	pt3dadd(47.3104, 32.9044, 9.26979, 2)
	pt3dadd(47.1772, 32.7016, 9.13664, 2)
	pt3dadd(47.0155, 32.4919, 9.02536, 2)
	pt3dadd(46.8381, 32.2745, 8.93377, 2)
	pt3dadd(46.6514, 32.051, 8.85943, 2)
	pt3dadd(46.4532, 31.8311, 8.7915, 2)
	pt3dadd(46.2483, 31.6155, 8.72274, 2)
  }
  soma[489] {pt3dclear()
	pt3dadd(47.8301, 33.0472, 9.05414, 2)
	pt3dadd(47.859, 32.887, 9.2388, 2)
	pt3dadd(47.8994, 32.7086, 9.44111, 2)
	pt3dadd(47.9492, 32.5203, 9.6563, 2)
	pt3dadd(47.9976, 32.3249, 9.87861, 2)
	pt3dadd(48.0471, 32.1147, 10.0932, 2)
	pt3dadd(48.0989, 31.8985, 10.3036, 2)
	pt3dadd(48.149, 31.6837, 10.5166, 2)
	pt3dadd(48.1954, 31.4782, 10.7398, 2)
	pt3dadd(48.2509, 31.2769, 10.9646, 2)
	pt3dadd(48.3095, 31.0812, 11.1935, 2)
	pt3dadd(48.3637, 30.8854, 11.4234, 2)
  }
  soma[490] {pt3dclear()
	pt3dadd(48.3078, 33.2821, 8.53395, 2)
	pt3dadd(48.5059, 33.3594, 8.53654, 2)
	pt3dadd(48.7422, 33.4185, 8.55443, 2)
	pt3dadd(48.9977, 33.4821, 8.60678, 2)
	pt3dadd(49.2681, 33.5415, 8.68886, 2)
	pt3dadd(49.5548, 33.601, 8.78109, 2)
  }
  soma[491] {pt3dclear()
	pt3dadd(49.5548, 33.601, 8.78109, 2)
	pt3dadd(49.7853, 33.7565, 8.74588, 2)
	pt3dadd(49.9951, 33.9427, 8.71087, 2)
	pt3dadd(50.1753, 34.1624, 8.66679, 2)
  }
  soma[492] {pt3dclear()
	pt3dadd(50.1753, 34.1624, 8.66679, 2)
	pt3dadd(50.4226, 34.3169, 8.59019, 2)
	pt3dadd(50.6522, 34.4998, 8.52202, 2)
	pt3dadd(50.8722, 34.6957, 8.45688, 2)
	pt3dadd(51.087, 34.897, 8.38909, 2)
  }
  soma[493] {pt3dclear()
	pt3dadd(50.1753, 34.1624, 8.66679, 2)
	pt3dadd(49.9591, 34.3575, 8.66045, 2)
	pt3dadd(49.7251, 34.5552, 8.6502, 2)
	pt3dadd(49.4907, 34.7624, 8.64305, 2)
	pt3dadd(49.2647, 34.9819, 8.6402, 2)
	pt3dadd(49.0515, 35.215, 8.64109, 2)
	pt3dadd(48.8444, 35.4542, 8.64397, 2)
  }
  soma[494] {pt3dclear()
	pt3dadd(49.5548, 33.601, 8.78109, 2)
	pt3dadd(49.6466, 33.5446, 8.97215, 2)
	pt3dadd(49.7462, 33.501, 9.19241, 2)
	pt3dadd(49.8526, 33.4708, 9.43412, 2)
	pt3dadd(49.9484, 33.4317, 9.69421, 2)
	pt3dadd(50.0428, 33.3706, 9.96077, 2)
	pt3dadd(50.1112, 33.3124, 10.2428, 2)
	pt3dadd(50.1728, 33.2485, 10.5323, 2)
	pt3dadd(50.2307, 33.1736, 10.8299, 2)
	pt3dadd(50.2918, 33.0987, 11.1415, 2)
  }
  soma[495] {pt3dclear()
	pt3dadd(50.2918, 33.0987, 11.1415, 2)
	pt3dadd(50.4534, 33.0793, 11.3691, 2)
	pt3dadd(50.6024, 33.0809, 11.6153, 2)
	pt3dadd(50.7406, 33.1069, 11.8717, 2)
	pt3dadd(50.8717, 33.1496, 12.1318, 2)
	pt3dadd(50.9954, 33.1926, 12.3951, 2)
	pt3dadd(51.1079, 33.2349, 12.6621, 2)
	pt3dadd(51.1978, 33.2737, 12.9368, 2)
	pt3dadd(51.2524, 33.3047, 13.2212, 2)
	pt3dadd(51.2882, 33.3287, 13.5097, 2)
	pt3dadd(51.3066, 33.3511, 13.8007, 2)
  }
  soma[496] {pt3dclear()
	pt3dadd(50.2918, 33.0987, 11.1415, 2)
	pt3dadd(50.1428, 33.088, 11.3273, 2)
	pt3dadd(49.9911, 33.0856, 11.5349, 2)
	pt3dadd(49.8436, 33.0774, 11.7627, 2)
	pt3dadd(49.7005, 33.0768, 12.0052, 2)
	pt3dadd(49.5657, 33.0847, 12.2601, 2)
	pt3dadd(49.4261, 33.0912, 12.5173, 2)
	pt3dadd(49.2847, 33.0938, 12.7765, 2)
	pt3dadd(49.1279, 33.091, 13.0284, 2)
	pt3dadd(48.9594, 33.0869, 13.273, 2)
  }
  soma[497] {pt3dclear()
	pt3dadd(48.5569, 33.5758, 8.04805, 2)
	pt3dadd(48.3954, 33.8143, 8.05215, 2)
	pt3dadd(48.2147, 34.0578, 8.06558, 2)
	pt3dadd(48.0269, 34.308, 8.10015, 2)
	pt3dadd(47.8375, 34.5618, 8.1503, 2)
  }
  soma[498] {pt3dclear()
	pt3dadd(49.0018, 34.1334, 7.16459, 2)
	pt3dadd(49.2308, 34.0474, 7.1487, 2)
	pt3dadd(49.4766, 33.9678, 7.14261, 2)
	pt3dadd(49.7326, 33.8711, 7.13509, 2)
	pt3dadd(49.9997, 33.7599, 7.12736, 2)
	pt3dadd(50.2742, 33.626, 7.12442, 2)
	pt3dadd(50.5568, 33.4715, 7.15652, 2)
  }
  soma[499] {pt3dclear()
	pt3dadd(50.5568, 33.4715, 7.15652, 2)
	pt3dadd(50.7202, 33.2445, 7.18552, 2)
	pt3dadd(50.8797, 33.0107, 7.24384, 2)
	pt3dadd(51.0374, 32.7688, 7.30011, 2)
	pt3dadd(51.2015, 32.5272, 7.34655, 2)
	pt3dadd(51.3682, 32.2863, 7.37841, 2)
	pt3dadd(51.5441, 32.0534, 7.39579, 2)
	pt3dadd(51.7368, 31.8363, 7.39435, 2)
	pt3dadd(51.9473, 31.6388, 7.36506, 2)
	pt3dadd(52.1739, 31.4632, 7.3123, 2)
	pt3dadd(52.4128, 31.3064, 7.2488, 2)
  }
  soma[500] {pt3dclear()
	pt3dadd(50.5568, 33.4715, 7.15652, 2)
	pt3dadd(50.6838, 33.5167, 7.37541, 2)
	pt3dadd(50.8148, 33.5636, 7.62032, 2)
	pt3dadd(50.9473, 33.6207, 7.88022, 2)
	pt3dadd(51.0777, 33.6691, 8.15211, 2)
	pt3dadd(51.1942, 33.711, 8.43487, 2)
	pt3dadd(51.2786, 33.7636, 8.72758, 2)
	pt3dadd(51.3172, 33.848, 9.02189, 2)
	pt3dadd(51.3272, 33.947, 9.31371, 2)
	pt3dadd(51.3198, 34.0507, 9.60433, 2)
	pt3dadd(51.3006, 34.1537, 9.89517, 2)
  }
  soma[501] {pt3dclear()
	pt3dadd(48.8043, 35.9224, 6.42432, 2)
	pt3dadd(48.8558, 35.8949, 6.12458, 2)
	pt3dadd(48.8961, 35.8477, 5.81035, 2)
	pt3dadd(48.9289, 35.7718, 5.49688, 2)
  }
  soma[502] {pt3dclear()
	pt3dadd(48.9289, 35.7718, 5.49688, 2)
	pt3dadd(48.9177, 35.7119, 5.20698, 2)
	pt3dadd(48.8878, 35.6163, 4.93066, 2)
	pt3dadd(48.8321, 35.5053, 4.66335, 2)
	pt3dadd(48.7666, 35.3676, 4.40905, 2)
	pt3dadd(48.6779, 35.2134, 4.16935, 2)
	pt3dadd(48.5572, 35.0518, 3.94658, 2)
	pt3dadd(48.4067, 34.9014, 3.73267, 2)
	pt3dadd(48.2512, 34.7596, 3.51525, 2)
	pt3dadd(48.0895, 34.6189, 3.30138, 2)
  }
  soma[503] {pt3dclear()
	pt3dadd(48.9289, 35.7718, 5.49688, 2)
	pt3dadd(48.8583, 35.5517, 5.50785, 2)
	pt3dadd(48.753, 35.3187, 5.51157, 2)
	pt3dadd(48.6307, 35.078, 5.50052, 2)
	pt3dadd(48.4977, 34.8374, 5.45967, 2)
	pt3dadd(48.3435, 34.6135, 5.38278, 2)
	pt3dadd(48.1604, 34.4175, 5.2831, 2)
	pt3dadd(47.9496, 34.2607, 5.16094, 2)
	pt3dadd(47.7092, 34.1492, 5.03424, 2)
  }
  soma[504] {pt3dclear()
	pt3dadd(47.7092, 34.1492, 5.03424, 2)
	pt3dadd(47.4439, 34.0793, 4.98131, 2)
	pt3dadd(47.164, 34.0647, 4.93561, 2)
	pt3dadd(46.8773, 34.1016, 4.90876, 2)
	pt3dadd(46.5925, 34.1884, 4.90834, 2)
	pt3dadd(46.3099, 34.3051, 4.93083, 2)
	pt3dadd(46.0183, 34.422, 4.95778, 2)
  }
  soma[505] {pt3dclear()
	pt3dadd(46.0183, 34.422, 4.95778, 2)
	pt3dadd(45.9614, 34.6631, 5.02421, 2)
	pt3dadd(45.8939, 34.9096, 5.09055, 2)
	pt3dadd(45.826, 35.167, 5.14565, 2)
  }
}
proc shape3d_19() {
  soma[505] {  }
  soma[506] {pt3dclear()
	pt3dadd(45.826, 35.167, 5.14565, 2)
	pt3dadd(45.7291, 35.3886, 5.34589, 2)
	pt3dadd(45.6016, 35.6116, 5.51855, 2)
	pt3dadd(45.4927, 35.8513, 5.67673, 2)
	pt3dadd(45.3905, 36.0948, 5.83115, 2)
	pt3dadd(45.2732, 36.3357, 5.97779, 2)
	pt3dadd(45.1565, 36.5789, 6.12087, 2)
	pt3dadd(45.0065, 36.8078, 6.25523, 2)
	pt3dadd(44.8349, 37.0252, 6.38161, 2)
	pt3dadd(44.6736, 37.2422, 6.52136, 2)
	pt3dadd(44.5165, 37.4575, 6.6673, 2)
	pt3dadd(44.3613, 37.6604, 6.83169, 2)
	pt3dadd(44.2173, 37.8628, 7.00762, 2)
	pt3dadd(44.1092, 38.0677, 7.20799, 2)
	pt3dadd(44.0431, 38.2635, 7.43955, 2)
	pt3dadd(44.017, 38.4743, 7.6775, 2)
	pt3dadd(43.992, 38.6975, 7.92639, 2)
	pt3dadd(43.9508, 38.9217, 8.20866, 2)
  }
  soma[507] {pt3dclear()
	pt3dadd(43.9508, 38.9217, 8.20866, 2)
	pt3dadd(43.939, 39.0898, 8.42314, 2)
  }
  soma[508] {pt3dclear()
	pt3dadd(43.939, 39.0898, 8.42314, 2)
	pt3dadd(43.9306, 39.3295, 8.54779, 2)
	pt3dadd(43.9138, 39.587, 8.67118, 2)
	pt3dadd(43.9036, 39.8646, 8.77114, 2)
	pt3dadd(43.9059, 40.1495, 8.86557, 2)
	pt3dadd(43.9193, 40.4355, 8.96251, 2)
  }
  soma[509] {pt3dclear()
	pt3dadd(43.939, 39.0898, 8.42314, 2)
	pt3dadd(43.9021, 39.02, 8.64524, 2)
	pt3dadd(43.8518, 38.9388, 8.88376, 2)
	pt3dadd(43.8223, 38.8429, 9.1348, 2)
  }
  soma[510] {pt3dclear()
	pt3dadd(43.8223, 38.8429, 9.1348, 2)
	pt3dadd(43.7947, 38.6749, 9.3804, 2)
	pt3dadd(43.7736, 38.5508, 9.64945, 2)
	pt3dadd(43.7671, 38.491, 9.94021, 2)
	pt3dadd(43.7522, 38.4821, 10.2362, 2)
	pt3dadd(43.7161, 38.4996, 10.5299, 2)
	pt3dadd(43.6734, 38.5378, 10.8215, 2)
	pt3dadd(43.5931, 38.6181, 11.0965, 2)
	pt3dadd(43.5015, 38.7228, 11.3591, 2)
	pt3dadd(43.3956, 38.8431, 11.609, 2)
	pt3dadd(43.2748, 38.9846, 11.8407, 2)
	pt3dadd(43.1433, 39.1349, 12.0615, 2)
	pt3dadd(43.0117, 39.2987, 12.273, 2)
	pt3dadd(42.8843, 39.4898, 12.464, 2)
	pt3dadd(42.7748, 39.7056, 12.6411, 2)
	pt3dadd(42.6692, 39.9225, 12.8208, 2)
	pt3dadd(42.5786, 40.1474, 13, 2)
	pt3dadd(42.48, 40.3678, 13.1814, 2)
  }
  soma[511] {pt3dclear()
	pt3dadd(43.8223, 38.8429, 9.1348, 2)
	pt3dadd(43.8943, 39.0292, 9.25821, 2)
	pt3dadd(43.9635, 39.2108, 9.42859, 2)
	pt3dadd(44.0041, 39.3726, 9.64874, 2)
	pt3dadd(43.9889, 39.5296, 9.89059, 2)
	pt3dadd(43.9337, 39.6933, 10.1322, 2)
	pt3dadd(43.8542, 39.867, 10.366, 2)
	pt3dadd(43.7778, 40.0458, 10.6002, 2)
	pt3dadd(43.6933, 40.2211, 10.8357, 2)
	pt3dadd(43.623, 40.4083, 11.0671, 2)
	pt3dadd(43.575, 40.5957, 11.3034, 2)
	pt3dadd(43.5258, 40.7794, 11.5415, 2)
	pt3dadd(43.4868, 40.9511, 11.789, 2)
	pt3dadd(43.465, 41.1074, 12.0477, 2)
	pt3dadd(43.4535, 41.2381, 12.3205, 2)
	pt3dadd(43.4535, 41.3369, 12.6071, 2)
	pt3dadd(43.4645, 41.4108, 12.9015, 2)
  }
  soma[512] {pt3dclear()
	pt3dadd(43.9508, 38.9217, 8.20866, 2)
	pt3dadd(43.8914, 38.8919, 8.44872, 2)
	pt3dadd(43.834, 38.7959, 8.69876, 2)
	pt3dadd(43.7641, 38.6661, 8.94611, 2)
	pt3dadd(43.7082, 38.4984, 9.18206, 2)
	pt3dadd(43.6984, 38.2857, 9.39135, 2)
	pt3dadd(43.6538, 38.0356, 9.55736, 2)
	pt3dadd(43.6019, 37.7592, 9.69411, 2)
	pt3dadd(43.5559, 37.4603, 9.82036, 2)
  }
  soma[513] {pt3dclear()
	pt3dadd(43.5559, 37.4603, 9.82036, 2)
	pt3dadd(43.6068, 37.1812, 9.76607, 2)
	pt3dadd(43.6595, 36.8944, 9.73295, 2)
	pt3dadd(43.7275, 36.6017, 9.72268, 2)
  }
  soma[514] {pt3dclear()
	pt3dadd(43.7275, 36.6017, 9.72268, 2)
	pt3dadd(43.67, 36.3125, 9.66586, 2)
	pt3dadd(43.6321, 36.0199, 9.63338, 2)
	pt3dadd(43.6101, 35.7264, 9.6171, 2)
	pt3dadd(43.592, 35.4346, 9.6031, 2)
	pt3dadd(43.5315, 35.1511, 9.58619, 2)
	pt3dadd(43.4344, 34.8812, 9.55748, 2)
	pt3dadd(43.2948, 34.6344, 9.51697, 2)
	pt3dadd(43.1248, 34.4121, 9.45994, 2)
	pt3dadd(42.9185, 34.2273, 9.38776, 2)
	pt3dadd(42.6819, 34.0802, 9.31194, 2)
	pt3dadd(42.4267, 33.9612, 9.23533, 2)
	pt3dadd(42.1628, 33.8625, 9.14985, 2)
	pt3dadd(41.8887, 33.7955, 9.05917, 2)
	pt3dadd(41.6115, 33.7493, 8.96045, 2)
	pt3dadd(41.337, 33.7026, 8.8519, 2)
	pt3dadd(41.0669, 33.6482, 8.73497, 2)
	pt3dadd(40.7984, 33.5959, 8.61318, 2)
	pt3dadd(40.5372, 33.534, 8.48013, 2)
	pt3dadd(40.2775, 33.4789, 8.34081, 2)
	pt3dadd(40.0202, 33.4305, 8.19389, 2)
	pt3dadd(39.7617, 33.3914, 8.04547, 2)
	pt3dadd(39.508, 33.3591, 7.88715, 2)
  }
  soma[515] {pt3dclear()
	pt3dadd(43.7275, 36.6017, 9.72268, 2)
	pt3dadd(43.9573, 36.6115, 9.90419, 2)
  }
  soma[516] {pt3dclear()
	pt3dadd(43.9573, 36.6115, 9.90419, 2)
	pt3dadd(44.2303, 36.6786, 9.93009, 2)
	pt3dadd(44.5184, 36.7605, 9.95919, 2)
	pt3dadd(44.8083, 36.8633, 9.9767, 2)
	pt3dadd(45.0849, 37.0043, 9.98289, 2)
	pt3dadd(45.3402, 37.1836, 9.97968, 2)
	pt3dadd(45.5811, 37.3845, 9.9755, 2)
	pt3dadd(45.8066, 37.6075, 9.98205, 2)
	pt3dadd(46.0142, 37.8578, 9.99728, 2)
	pt3dadd(46.21, 38.1394, 10.0271, 2)
  }
  soma[517] {pt3dclear()
	pt3dadd(46.21, 38.1394, 10.0271, 2)
	pt3dadd(46.2614, 38.3845, 9.98261, 2)
	pt3dadd(46.3068, 38.6443, 9.95106, 2)
  }
  soma[518] {pt3dclear()
	pt3dadd(46.21, 38.1394, 10.0271, 2)
	pt3dadd(46.365, 38.2669, 10.2223, 2)
	pt3dadd(46.5288, 38.3917, 10.4426, 2)
	pt3dadd(46.708, 38.4953, 10.6746, 2)
	pt3dadd(46.8943, 38.574, 10.9156, 2)
	pt3dadd(47.0779, 38.6341, 11.1662, 2)
	pt3dadd(47.2569, 38.6918, 11.4217, 2)
  }
  soma[519] {pt3dclear()
	pt3dadd(43.9573, 36.6115, 9.90419, 2)
	pt3dadd(43.9906, 36.5849, 10.1884, 2)
	pt3dadd(44.0122, 36.5379, 10.4933, 2)
	pt3dadd(44.0163, 36.4559, 10.8018, 2)
	pt3dadd(44.0121, 36.3583, 11.1096, 2)
	pt3dadd(43.9989, 36.2348, 11.4089, 2)
  }
  soma[520] {pt3dclear()
	pt3dadd(43.5559, 37.4603, 9.82036, 2)
	pt3dadd(43.4565, 37.3533, 10.0739, 2)
	pt3dadd(43.3346, 37.2342, 10.3329, 2)
	pt3dadd(43.2056, 37.1222, 10.6004, 2)
	pt3dadd(43.063, 37.0388, 10.8752, 2)
	pt3dadd(42.9007, 36.9865, 11.1482, 2)
  }
  soma[521] {pt3dclear()
	pt3dadd(45.826, 35.167, 5.14565, 2)
	pt3dadd(45.7646, 35.2248, 4.92138, 2)
	pt3dadd(45.6942, 35.2808, 4.67916, 2)
	pt3dadd(45.6143, 35.3393, 4.42752, 2)
	pt3dadd(45.5314, 35.3979, 4.16982, 2)
	pt3dadd(45.4434, 35.4514, 3.90985, 2)
  }
  soma[522] {pt3dclear()
	pt3dadd(46.0183, 34.422, 4.95778, 2)
	pt3dadd(45.7777, 34.3441, 4.91664, 2)
	pt3dadd(45.5308, 34.2584, 4.88627, 2)
	pt3dadd(45.2788, 34.1639, 4.86653, 2)
	pt3dadd(45.0305, 34.0429, 4.86846, 2)
	pt3dadd(44.7919, 33.8934, 4.90128, 2)
  }
  soma[523] {pt3dclear()
	pt3dadd(44.7919, 33.8934, 4.90128, 2)
	pt3dadd(44.5306, 33.7973, 4.81546, 2)
	pt3dadd(44.2678, 33.7048, 4.74578, 2)
	pt3dadd(44.0021, 33.6228, 4.67744, 2)
	pt3dadd(43.7322, 33.5583, 4.60448, 2)
	pt3dadd(43.4648, 33.5041, 4.51304, 2)
  }
  soma[524] {pt3dclear()
	pt3dadd(44.7919, 33.8934, 4.90128, 2)
	pt3dadd(44.8322, 33.7554, 5.14785, 2)
	pt3dadd(44.8626, 33.6263, 5.42331, 2)
	pt3dadd(44.8899, 33.5012, 5.71012, 2)
  }
  soma[525] {pt3dclear()
	pt3dadd(47.7092, 34.1492, 5.03424, 2)
	pt3dadd(47.6061, 34.3387, 4.91924, 2)
	pt3dadd(47.4864, 34.5353, 4.78937, 2)
	pt3dadd(47.3557, 34.7294, 4.64291, 2)
	pt3dadd(47.216, 34.913, 4.4825, 2)
  }
  soma[526] {pt3dclear()
	pt3dadd(47.6985, 42.0482, 6.95294, 2)
	pt3dadd(47.9718, 41.9644, 7.16051, 2)
	pt3dadd(48.2611, 41.8532, 7.32701, 2)
	pt3dadd(48.5789, 41.7825, 7.46829, 2)
  }
  soma[527] {pt3dclear()
	pt3dadd(48.5789, 41.7825, 7.46829, 2)
	pt3dadd(48.8716, 41.6374, 7.52845, 2)
	pt3dadd(49.1784, 41.5061, 7.62235, 2)
  }
  soma[528] {pt3dclear()
	pt3dadd(49.1784, 41.5061, 7.62235, 2)
	pt3dadd(49.4057, 41.5814, 7.76937, 2)
	pt3dadd(49.6465, 41.6578, 7.92056, 2)
	pt3dadd(49.8973, 41.7502, 8.07533, 2)
	pt3dadd(50.17, 41.8423, 8.23302, 2)
  }
  soma[529] {pt3dclear()
	pt3dadd(50.17, 41.8423, 8.23302, 2)
	pt3dadd(50.4246, 41.7467, 8.34034, 2)
	pt3dadd(50.6941, 41.6558, 8.43561, 2)
	pt3dadd(50.9541, 41.525, 8.52056, 2)
	pt3dadd(51.2067, 41.3723, 8.59533, 2)
	pt3dadd(51.4517, 41.2011, 8.65945, 2)
	pt3dadd(51.6963, 41.0254, 8.71693, 2)
	pt3dadd(51.9418, 40.8521, 8.77973, 2)
	pt3dadd(52.1843, 40.6771, 8.84841, 2)
	pt3dadd(52.4127, 40.4847, 8.91662, 2)
	pt3dadd(52.6149, 40.2678, 8.99074, 2)
	pt3dadd(52.7761, 40.0213, 9.07054, 2)
	pt3dadd(52.8986, 39.7557, 9.15769, 2)
	pt3dadd(52.9882, 39.4784, 9.24973, 2)
	pt3dadd(53.0469, 39.1941, 9.34675, 2)
	pt3dadd(53.0895, 38.9093, 9.45183, 2)
	pt3dadd(53.1181, 38.6231, 9.55898, 2)
	pt3dadd(53.1396, 38.3369, 9.66807, 2)
	pt3dadd(53.1518, 38.0521, 9.78255, 2)
	pt3dadd(53.1585, 37.7669, 9.8965, 2)
  }
  soma[530] {pt3dclear()
	pt3dadd(50.17, 41.8423, 8.23302, 2)
	pt3dadd(50.2656, 42.1052, 8.2698, 2)
	pt3dadd(50.3749, 42.4058, 8.31011, 2)
  }
  soma[531] {pt3dclear()
	pt3dadd(50.3749, 42.4058, 8.31011, 2)
	pt3dadd(50.5284, 42.5674, 8.36897, 2)
	pt3dadd(50.7042, 42.7491, 8.42046, 2)
  }
}
proc shape3d_20() {
  soma[531] {	pt3dadd(50.8859, 42.9466, 8.48433, 2)
	pt3dadd(51.0772, 43.146, 8.55424, 2)
	pt3dadd(51.2772, 43.3413, 8.63059, 2)
	pt3dadd(51.4887, 43.5281, 8.71409, 2)
	pt3dadd(51.7073, 43.7139, 8.80621, 2)
  }
  soma[532] {pt3dclear()
	pt3dadd(51.7073, 43.7139, 8.80621, 2)
	pt3dadd(52.0024, 43.743, 8.86525, 2)
	pt3dadd(52.3062, 43.7891, 8.90943, 2)
  }
  soma[533] {pt3dclear()
	pt3dadd(52.3062, 43.7891, 8.90943, 2)
	pt3dadd(52.5478, 43.6604, 8.94632, 2)
	pt3dadd(52.7874, 43.5223, 8.96648, 2)
	pt3dadd(53.0229, 43.3732, 8.97275, 2)
  }
  soma[534] {pt3dclear()
	pt3dadd(52.3062, 43.7891, 8.90943, 2)
	pt3dadd(52.4026, 44.0214, 8.81296, 2)
	pt3dadd(52.4833, 44.2838, 8.71774, 2)
	pt3dadd(52.5438, 44.5639, 8.63197, 2)
	pt3dadd(52.577, 44.8557, 8.56231, 2)
	pt3dadd(52.5831, 45.1531, 8.50493, 2)
	pt3dadd(52.5626, 45.4526, 8.46015, 2)
	pt3dadd(52.5029, 45.7474, 8.41695, 2)
	pt3dadd(52.4115, 46.0346, 8.37396, 2)
	pt3dadd(52.3175, 46.323, 8.34575, 2)
	pt3dadd(52.1932, 46.6007, 8.32511, 2)
	pt3dadd(52.029, 46.856, 8.29521, 2)
	pt3dadd(51.8649, 47.1107, 8.25902, 2)
	pt3dadd(51.7088, 47.37, 8.22385, 2)
	pt3dadd(51.5728, 47.6412, 8.20597, 2)
	pt3dadd(51.4456, 47.9167, 8.2221, 2)
	pt3dadd(51.3432, 48.2009, 8.2772, 2)
  }
  soma[535] {pt3dclear()
	pt3dadd(51.3432, 48.2009, 8.2772, 2)
	pt3dadd(51.2588, 48.4785, 8.2765, 2)
	pt3dadd(51.1882, 48.7598, 8.30208, 2)
	pt3dadd(51.1278, 49.0434, 8.33961, 2)
	pt3dadd(51.0681, 49.3226, 8.39671, 2)
	pt3dadd(51.0241, 49.5946, 8.47626, 2)
	pt3dadd(50.9988, 49.8568, 8.57643, 2)
	pt3dadd(50.9582, 50.1087, 8.70008, 2)
  }
  soma[536] {pt3dclear()
	pt3dadd(50.9582, 50.1087, 8.70008, 2)
	pt3dadd(50.9077, 50.3158, 8.85956, 2)
	pt3dadd(50.8675, 50.5366, 9.03667, 2)
	pt3dadd(50.8279, 50.7718, 9.21002, 2)
	pt3dadd(50.7996, 51.0178, 9.37427, 2)
	pt3dadd(50.7793, 51.2757, 9.52069, 2)
	pt3dadd(50.758, 51.5428, 9.64825, 2)
	pt3dadd(50.7153, 51.817, 9.75231, 2)
	pt3dadd(50.65, 52.092, 9.84097, 2)
	pt3dadd(50.5638, 52.3586, 9.93483, 2)
	pt3dadd(50.4338, 52.6009, 10.0396, 2)
	pt3dadd(50.2838, 52.815, 10.1731, 2)
	pt3dadd(50.107, 52.9924, 10.3262, 2)
	pt3dadd(49.9247, 53.1439, 10.4997, 2)
	pt3dadd(49.7495, 53.2771, 10.6926, 2)
	pt3dadd(49.5928, 53.4164, 10.891, 2)
	pt3dadd(49.4628, 53.6002, 11.0656, 2)
  }
  soma[537] {pt3dclear()
	pt3dadd(49.4628, 53.6002, 11.0656, 2)
	pt3dadd(49.3739, 53.8218, 11.2187, 2)
	pt3dadd(49.3444, 54.0719, 11.3529, 2)
	pt3dadd(49.3594, 54.333, 11.4738, 2)
	pt3dadd(49.409, 54.5929, 11.5922, 2)
  }
  soma[538] {pt3dclear()
	pt3dadd(49.409, 54.5929, 11.5922, 2)
	pt3dadd(49.4989, 54.8429, 11.7125, 2)
	pt3dadd(49.6305, 55.078, 11.8306, 2)
	pt3dadd(49.7833, 55.3055, 11.9438, 2)
	pt3dadd(49.9199, 55.5453, 12.0557, 2)
	pt3dadd(50.0457, 55.7923, 12.165, 2)
	pt3dadd(50.1771, 56.0363, 12.2742, 2)
  }
  soma[539] {pt3dclear()
	pt3dadd(49.409, 54.5929, 11.5922, 2)
	pt3dadd(49.2632, 54.8647, 11.6196, 2)
	pt3dadd(49.1172, 55.1364, 11.6463, 2)
	pt3dadd(48.9715, 55.4082, 11.6731, 2)
	pt3dadd(48.826, 55.6802, 11.7002, 2)
  }
  soma[540] {pt3dclear()
	pt3dadd(49.4628, 53.6002, 11.0656, 2)
	pt3dadd(49.2608, 53.5855, 10.8766, 2)
	pt3dadd(49.0565, 53.5753, 10.6899, 2)
	pt3dadd(48.854, 53.5578, 10.5017, 2)
  }
  soma[541] {pt3dclear()
	pt3dadd(50.9582, 50.1087, 8.70008, 2)
	pt3dadd(51.0043, 50.1194, 8.85986, 2)
	pt3dadd(51.0551, 50.129, 9.08432, 2)
	pt3dadd(51.1512, 50.1309, 9.33976, 2)
	pt3dadd(51.2687, 50.1199, 9.60801, 2)
  }
  soma[542] {pt3dclear()
	pt3dadd(51.3432, 48.2009, 8.2772, 2)
	pt3dadd(51.3263, 48.2071, 8.50786, 2)
	pt3dadd(51.3104, 48.2061, 8.76445, 2)
	pt3dadd(51.2928, 48.1885, 9.03601, 2)
	pt3dadd(51.2749, 48.1473, 9.31346, 2)
	pt3dadd(51.2598, 48.0796, 9.59114, 2)
	pt3dadd(51.2563, 47.9852, 9.86658, 2)
	pt3dadd(51.2608, 47.8815, 10.1449, 2)
	pt3dadd(51.271, 47.7834, 10.4308, 2)
	pt3dadd(51.285, 47.6945, 10.7236, 2)
	pt3dadd(51.2746, 47.6099, 11.0197, 2)
  }
  soma[543] {pt3dclear()
	pt3dadd(51.7073, 43.7139, 8.80621, 2)
	pt3dadd(51.6472, 43.9562, 8.84776, 2)
	pt3dadd(51.6054, 44.2202, 8.90269, 2)
	pt3dadd(51.5726, 44.4931, 8.9902, 2)
	pt3dadd(51.5298, 44.7659, 9.10777, 2)
	pt3dadd(51.4693, 45.0315, 9.2527, 2)
	pt3dadd(51.4083, 45.2948, 9.41258, 2)
	pt3dadd(51.3578, 45.5591, 9.5792, 2)
  }
  soma[544] {pt3dclear()
	pt3dadd(50.3749, 42.4058, 8.31011, 2)
	pt3dadd(50.3624, 42.6667, 8.24022, 2)
  }
  soma[545] {pt3dclear()
	pt3dadd(50.3624, 42.6667, 8.24022, 2)
	pt3dadd(50.4359, 42.4747, 8.16166, 2)
	pt3dadd(50.5186, 42.2537, 8.06356, 2)
	pt3dadd(50.6067, 42.0138, 7.94891, 2)
	pt3dadd(50.6927, 41.766, 7.81489, 2)
	pt3dadd(50.7819, 41.5217, 7.66076, 2)
	pt3dadd(50.9018, 41.28, 7.51593, 2)
	pt3dadd(51.0453, 41.0391, 7.3878, 2)
	pt3dadd(51.1964, 40.7939, 7.27429, 2)
	pt3dadd(51.3531, 40.5461, 7.17255, 2)
  }
  soma[546] {pt3dclear()
	pt3dadd(50.3624, 42.6667, 8.24022, 2)
	pt3dadd(50.3348, 43.015, 8.2374, 2)
	pt3dadd(50.3166, 43.3361, 8.23274, 2)
	pt3dadd(50.3107, 43.6442, 8.22324, 2)
	pt3dadd(50.3107, 43.947, 8.20991, 2)
	pt3dadd(50.3141, 44.2477, 8.20333, 2)
	pt3dadd(50.3206, 44.5455, 8.21166, 2)
	pt3dadd(50.3156, 44.8367, 8.24084, 2)
	pt3dadd(50.2886, 45.1146, 8.30496, 2)
	pt3dadd(50.2349, 45.3734, 8.40891, 2)
	pt3dadd(50.1687, 45.6159, 8.54964, 2)
	pt3dadd(50.0566, 45.8423, 8.69993, 2)
	pt3dadd(49.9221, 46.0709, 8.83543, 2)
	pt3dadd(49.7698, 46.3032, 8.94783, 2)
	pt3dadd(49.6, 46.5295, 9.04944, 2)
	pt3dadd(49.4117, 46.7472, 9.1372, 2)
	pt3dadd(49.2162, 46.9638, 9.20724, 2)
	pt3dadd(49.0146, 47.1803, 9.24904, 2)
	pt3dadd(48.8251, 47.4079, 9.27488, 2)
	pt3dadd(48.667, 47.6578, 9.28889, 2)
	pt3dadd(48.5532, 47.929, 9.31256, 2)
	pt3dadd(48.4908, 48.2079, 9.38016, 2)
	pt3dadd(48.4524, 48.4762, 9.48581, 2)
	pt3dadd(48.4058, 48.7134, 9.63572, 2)
  }
  soma[547] {pt3dclear()
	pt3dadd(48.4058, 48.7134, 9.63572, 2)
	pt3dadd(48.1557, 48.9237, 9.7799, 2)
	pt3dadd(47.9197, 49.1145, 9.91404, 2)
	pt3dadd(47.6874, 49.2815, 10.0502, 2)
	pt3dadd(47.4634, 49.4421, 10.1931, 2)
  }
  soma[548] {pt3dclear()
	pt3dadd(48.4058, 48.7134, 9.63572, 2)
	pt3dadd(48.5678, 48.5404, 9.75992, 2)
	pt3dadd(48.7258, 48.3402, 9.899, 2)
	pt3dadd(48.9027, 48.1525, 10.0495, 2)
	pt3dadd(49.1098, 48.0016, 10.2079, 2)
	pt3dadd(49.3318, 47.8837, 10.3779, 2)
	pt3dadd(49.5459, 47.7976, 10.5781, 2)
	pt3dadd(49.748, 47.7276, 10.7981, 2)
  }
  soma[549] {pt3dclear()
	pt3dadd(49.1784, 41.5061, 7.62235, 2)
	pt3dadd(49.3111, 41.2672, 7.64254, 2)
	pt3dadd(49.4481, 41.0168, 7.68488, 2)
	pt3dadd(49.5859, 40.7708, 7.77026, 2)
	pt3dadd(49.7378, 40.5595, 7.91439, 2)
	pt3dadd(49.9072, 40.3847, 8.0909, 2)
	pt3dadd(50.0911, 40.236, 8.28079, 2)
	pt3dadd(50.2779, 40.1086, 8.4855, 2)
	pt3dadd(50.4616, 39.999, 8.70419, 2)
  }
  soma[550] {pt3dclear()
	pt3dadd(48.5789, 41.7825, 7.46829, 2)
	pt3dadd(48.5796, 41.8931, 7.66345, 2)
	pt3dadd(48.5769, 42.0264, 7.8745, 2)
	pt3dadd(48.5704, 42.1831, 8.09435, 2)
	pt3dadd(48.5555, 42.3639, 8.31312, 2)
	pt3dadd(48.5267, 42.5721, 8.51659, 2)
	pt3dadd(48.4986, 42.7917, 8.71335, 2)
  }
  soma[551] {pt3dclear()
	pt3dadd(42.9327, 50.7698, 4.79431, 2)
	pt3dadd(43.1559, 50.7151, 4.97715, 2)
	pt3dadd(43.32, 50.8826, 5.167, 2)
	pt3dadd(43.4379, 51.1251, 5.30681, 2)
	pt3dadd(43.5457, 51.368, 5.45144, 2)
	pt3dadd(43.6472, 51.6057, 5.60708, 2)
	pt3dadd(43.7317, 51.8397, 5.77715, 2)
	pt3dadd(43.8026, 52.0709, 5.95681, 2)
	pt3dadd(43.896, 52.2597, 6.17346, 2)
	pt3dadd(43.9802, 52.44, 6.40249, 2)
	pt3dadd(44.0542, 52.629, 6.62934, 2)
	pt3dadd(44.1017, 52.8326, 6.85275, 2)
	pt3dadd(44.1433, 53.0578, 7.06124, 2)
	pt3dadd(44.2007, 53.2823, 7.2749, 2)
	pt3dadd(44.2974, 53.5039, 7.48622, 2)
	pt3dadd(44.3054, 53.7753, 7.65591, 2)
	pt3dadd(44.3532, 54.0601, 7.54219, 2)
	pt3dadd(44.3031, 54.3325, 7.41756, 2)
  }
  soma[552] {pt3dclear()
	pt3dadd(44.3031, 54.3325, 7.41756, 2)
	pt3dadd(44.3164, 54.6443, 7.3267, 2)
	pt3dadd(44.3801, 54.9315, 7.25046, 2)
	pt3dadd(44.4943, 55.1926, 7.1654, 2)
	pt3dadd(44.5933, 55.4559, 7.06848, 2)
	pt3dadd(44.7157, 55.6891, 6.92113, 2)
	pt3dadd(44.7912, 55.9689, 6.80367, 2)
	pt3dadd(44.8926, 56.2293, 6.94161, 2)
	pt3dadd(44.8768, 56.4754, 7.1122, 2)
	pt3dadd(44.8524, 56.7337, 7.25384, 2)
	pt3dadd(44.8265, 57.0024, 7.37317, 2)
	pt3dadd(44.8356, 57.2837, 7.46384, 2)
	pt3dadd(44.8637, 57.5735, 7.51921, 2)
	pt3dadd(44.8937, 57.868, 7.54503, 2)
	pt3dadd(44.9026, 58.1651, 7.55441, 2)
	pt3dadd(44.8914, 58.462, 7.55541, 2)
	pt3dadd(44.8648, 58.7568, 7.55168, 2)
	pt3dadd(44.8456, 59.05, 7.53355, 2)
  }
}
proc shape3d_21() {
  soma[552] {	pt3dadd(44.8816, 59.3409, 7.53581, 2)
	pt3dadd(44.9697, 59.6201, 7.55799, 2)
	pt3dadd(45.0817, 59.8924, 7.56432, 2)
	pt3dadd(45.1972, 60.1643, 7.563, 2)
	pt3dadd(45.3088, 60.4378, 7.54878, 2)
	pt3dadd(45.4392, 60.7002, 7.51978, 2)
	pt3dadd(45.5498, 60.9708, 7.51645, 2)
	pt3dadd(45.6083, 61.2544, 7.55513, 2)
	pt3dadd(45.6845, 61.5336, 7.60709, 2)
  }
  soma[553] {pt3dclear()
	pt3dadd(45.6845, 61.5336, 7.60709, 2)
	pt3dadd(45.6982, 61.8559, 7.57075, 2)
	pt3dadd(45.7437, 62.169, 7.55011, 2)
	pt3dadd(45.8226, 62.4707, 7.53759, 2)
	pt3dadd(45.9051, 62.7686, 7.52065, 2)
	pt3dadd(46.0075, 63.0589, 7.50376, 2)
	pt3dadd(46.1105, 63.348, 7.48754, 2)
	pt3dadd(46.2113, 63.6374, 7.47489, 2)
	pt3dadd(46.3096, 63.927, 7.46634, 2)
	pt3dadd(46.3956, 64.2201, 7.45461, 2)
	pt3dadd(46.4818, 64.5135, 7.43877, 2)
	pt3dadd(46.5687, 64.8071, 7.41692, 2)
	pt3dadd(46.6516, 65.1024, 7.38952, 2)
	pt3dadd(46.7639, 65.3874, 7.35391, 2)
	pt3dadd(46.878, 65.6694, 7.29932, 2)
	pt3dadd(46.9936, 65.9581, 7.25757, 2)
  }
  soma[554] {pt3dclear()
	pt3dadd(46.9936, 65.9581, 7.25757, 2)
	pt3dadd(46.9079, 66.2527, 7.25116, 2)
	pt3dadd(46.8752, 66.5554, 7.23639, 2)
	pt3dadd(46.9052, 66.8539, 7.20391, 2)
	pt3dadd(46.9606, 67.1449, 7.15045, 2)
	pt3dadd(47.0164, 67.4341, 7.08203, 2)
	pt3dadd(47.0653, 67.7252, 7.01029, 2)
	pt3dadd(47.1081, 68.0165, 6.93115, 2)
	pt3dadd(47.1798, 68.3027, 6.85413, 2)
	pt3dadd(47.2549, 68.5871, 6.77687, 2)
	pt3dadd(47.2989, 68.8785, 6.70074, 2)
	pt3dadd(47.3524, 69.1718, 6.6308, 2)
	pt3dadd(47.4119, 69.4677, 6.56372, 2)
	pt3dadd(47.4481, 69.7751, 6.50461, 2)
	pt3dadd(47.461, 70.0964, 6.45744, 2)
	pt3dadd(47.4487, 70.4315, 6.40017, 2)
  }
  soma[555] {pt3dclear()
	pt3dadd(47.4487, 70.4315, 6.40017, 2)
	pt3dadd(47.5433, 70.6726, 6.3727, 2)
	pt3dadd(47.6508, 70.9213, 6.32921, 2)
	pt3dadd(47.7295, 71.1872, 6.27349, 2)
	pt3dadd(47.7893, 71.4642, 6.22076, 2)
	pt3dadd(47.8432, 71.7496, 6.1818, 2)
	pt3dadd(47.92, 72.0383, 6.16333, 2)
	pt3dadd(47.9851, 72.3417, 6.17539, 2)
	pt3dadd(48.0658, 72.6598, 6.21503, 2)
  }
  soma[556] {pt3dclear()
	pt3dadd(48.0658, 72.6598, 6.21503, 2)
	pt3dadd(48.0261, 72.9007, 6.17023, 2)
	pt3dadd(48.0011, 73.1616, 6.14831, 2)
	pt3dadd(47.997, 73.4353, 6.13743, 2)
	pt3dadd(47.9979, 73.7176, 6.12474, 2)
	pt3dadd(48.0005, 74.0075, 6.11222, 2)
	pt3dadd(48.0102, 74.306, 6.11017, 2)
	pt3dadd(48.0596, 74.6121, 6.11997, 2)
	pt3dadd(48.1603, 74.9236, 6.13767, 2)
  }
  soma[557] {pt3dclear()
	pt3dadd(48.1603, 74.9236, 6.13767, 2)
	pt3dadd(48.1271, 75.2186, 6.17129, 2)
	pt3dadd(48.0949, 75.5297, 6.22104, 2)
  }
  soma[558] {pt3dclear()
	pt3dadd(48.0949, 75.5297, 6.22104, 2)
	pt3dadd(48.1638, 75.7879, 6.2927, 2)
	pt3dadd(48.2472, 76.0565, 6.35596, 2)
	pt3dadd(48.3358, 76.3291, 6.42875, 2)
	pt3dadd(48.4657, 76.5918, 6.49161, 2)
	pt3dadd(48.5763, 76.8657, 6.55024, 2)
	pt3dadd(48.7047, 77.1345, 6.59696, 2)
	pt3dadd(48.8243, 77.4087, 6.63473, 2)
	pt3dadd(48.9206, 77.692, 6.66904, 2)
	pt3dadd(49.0151, 77.974, 6.71534, 2)
	pt3dadd(49.1006, 78.2569, 6.774, 2)
	pt3dadd(49.2278, 78.5203, 6.85325, 2)
  }
  soma[559] {pt3dclear()
	pt3dadd(49.2278, 78.5203, 6.85325, 2)
	pt3dadd(49.3087, 78.8009, 6.83073, 2)
	pt3dadd(49.3755, 79.0784, 6.81481, 2)
	pt3dadd(49.3891, 79.3511, 6.80323, 2)
  }
  soma[560] {pt3dclear()
	pt3dadd(49.3891, 79.3511, 6.80323, 2)
	pt3dadd(49.3306, 79.6501, 6.66531, 2)
	pt3dadd(49.3075, 79.9446, 6.54801, 2)
	pt3dadd(49.2893, 80.237, 6.45038, 2)
	pt3dadd(49.2562, 80.5233, 6.35102, 2)
	pt3dadd(49.2278, 80.8166, 6.27767, 2)
	pt3dadd(49.1911, 81.11, 6.21045, 2)
	pt3dadd(49.163, 81.405, 6.14762, 2)
	pt3dadd(49.1157, 81.6957, 6.07952, 2)
	pt3dadd(49.0839, 81.9874, 6.0129, 2)
	pt3dadd(49.0767, 82.2816, 5.96032, 2)
  }
  soma[561] {pt3dclear()
	pt3dadd(49.0767, 82.2816, 5.96032, 2)
	pt3dadd(49.154, 82.5988, 5.98618, 2)
	pt3dadd(49.2323, 82.9188, 5.9879, 2)
	pt3dadd(49.3063, 83.2501, 6.00091, 2)
  }
  soma[562] {pt3dclear()
	pt3dadd(49.3063, 83.2501, 6.00091, 2)
	pt3dadd(49.2045, 83.5265, 5.97909, 2)
	pt3dadd(49.1548, 83.8204, 5.96957, 2)
	pt3dadd(49.087, 84.113, 5.9827, 2)
	pt3dadd(49.0181, 84.4051, 6.01464, 2)
	pt3dadd(48.9486, 84.6959, 6.05857, 2)
	pt3dadd(48.8585, 84.9792, 6.11411, 2)
	pt3dadd(48.7783, 85.2632, 6.18104, 2)
	pt3dadd(48.671, 85.5367, 6.25246, 2)
	pt3dadd(48.5796, 85.81, 6.34197, 2)
	pt3dadd(48.4823, 86.0766, 6.44191, 2)
	pt3dadd(48.422, 86.3457, 6.56217, 2)
	pt3dadd(48.3737, 86.6075, 6.71123, 2)
  }
  soma[563] {pt3dclear()
	pt3dadd(48.3737, 86.6075, 6.71123, 2)
	pt3dadd(48.2362, 86.9082, 6.72071, 2)
	pt3dadd(48.0725, 87.1937, 6.75511, 2)
	pt3dadd(47.9243, 87.4956, 6.81431, 2)
  }
  soma[564] {pt3dclear()
	pt3dadd(47.9243, 87.4956, 6.81431, 2)
	pt3dadd(47.8426, 87.5971, 7.04664, 2)
	pt3dadd(47.7093, 87.71, 7.28125, 2)
  }
  soma[565] {pt3dclear()
	pt3dadd(47.7093, 87.71, 7.28125, 2)
	pt3dadd(47.7053, 87.7257, 7.54079, 2)
	pt3dadd(47.731, 87.7653, 7.8076, 2)
	pt3dadd(47.7729, 87.8233, 8.07089, 2)
	pt3dadd(47.7646, 87.9145, 8.3233, 2)
  }
  soma[566] {pt3dclear()
	pt3dadd(47.7646, 87.9145, 8.3233, 2)
	pt3dadd(47.8343, 87.9949, 8.62174, 2)
	pt3dadd(47.8976, 88.0906, 8.90776, 2)
	pt3dadd(47.9725, 88.1718, 9.1916, 2)
	pt3dadd(48.0697, 88.2642, 9.46861, 2)
	pt3dadd(48.1776, 88.3553, 9.75465, 2)
	pt3dadd(48.3003, 88.4736, 10.0473, 2)
  }
  soma[567] {pt3dclear()
	pt3dadd(48.3003, 88.4736, 10.0473, 2)
	pt3dadd(48.4804, 88.6216, 10.1749, 2)
	pt3dadd(48.6547, 88.7944, 10.3046, 2)
	pt3dadd(48.833, 88.9664, 10.4423, 2)
  }
  soma[568] {pt3dclear()
	pt3dadd(48.3003, 88.4736, 10.0473, 2)
	pt3dadd(48.3273, 88.435, 10.2799, 2)
	pt3dadd(48.3511, 88.3945, 10.5349, 2)
	pt3dadd(48.3696, 88.3595, 10.8031, 2)
  }
  soma[569] {pt3dclear()
	pt3dadd(47.7646, 87.9145, 8.3233, 2)
	pt3dadd(47.512, 88.0089, 8.27099, 2)
	pt3dadd(47.2456, 88.1269, 8.2446, 2)
	pt3dadd(46.9668, 88.2658, 8.2531, 2)
  }
  soma[570] {pt3dclear()
	pt3dadd(46.9668, 88.2658, 8.2531, 2)
	pt3dadd(46.6732, 88.3003, 8.16333, 2)
	pt3dadd(46.3676, 88.3251, 8.07237, 2)
  }
  soma[571] {pt3dclear()
	pt3dadd(46.3676, 88.3251, 8.07237, 2)
	pt3dadd(46.0793, 88.4805, 8.12736, 2)
	pt3dadd(45.7735, 88.6185, 8.16806, 2)
	pt3dadd(45.4471, 88.748, 8.19673, 2)
  }
  soma[572] {pt3dclear()
	pt3dadd(45.4471, 88.748, 8.19673, 2)
	pt3dadd(45.2184, 88.7179, 8.37969, 2)
  }
  soma[573] {pt3dclear()
	pt3dadd(45.4471, 88.748, 8.19673, 2)
	pt3dadd(45.3804, 89.0205, 8.00922, 2)
  }
  soma[574] {pt3dclear()
	pt3dadd(45.3804, 89.0205, 8.00922, 2)
	pt3dadd(45.3577, 89.3618, 7.97934, 2)
	pt3dadd(45.3359, 89.6752, 7.92246, 2)
	pt3dadd(45.3285, 89.979, 7.83119, 2)
	pt3dadd(45.3211, 90.297, 7.73169, 2)
  }
  soma[575] {pt3dclear()
	pt3dadd(45.3211, 90.297, 7.73169, 2)
	pt3dadd(45.3806, 90.4918, 7.55756, 2)
	pt3dadd(45.4252, 90.702, 7.36958, 2)
	pt3dadd(45.5031, 90.9116, 7.1741, 2)
	pt3dadd(45.6025, 91.1242, 6.98208, 2)
	pt3dadd(45.7102, 91.3357, 6.78865, 2)
	pt3dadd(45.8074, 91.5452, 6.58584, 2)
  }
  soma[576] {pt3dclear()
	pt3dadd(45.3211, 90.297, 7.73169, 2)
	pt3dadd(45.1798, 90.4967, 7.75574, 2)
	pt3dadd(45.0179, 90.7069, 7.77571, 2)
	pt3dadd(44.8617, 90.9383, 7.79282, 2)
	pt3dadd(44.7267, 91.1927, 7.80091, 2)
	pt3dadd(44.6045, 91.458, 7.80141, 2)
  }
  soma[577] {pt3dclear()
	pt3dadd(45.3804, 89.0205, 8.00922, 2)
	pt3dadd(45.4619, 88.8987, 7.77147, 2)
	pt3dadd(45.5934, 88.7811, 7.52094, 2)
	pt3dadd(45.7214, 88.6149, 7.28183, 2)
	pt3dadd(45.8685, 88.4215, 7.07054, 2)
	pt3dadd(46.0216, 88.2117, 6.87851, 2)
  }
  soma[578] {pt3dclear()
	pt3dadd(46.3676, 88.3251, 8.07237, 2)
	pt3dadd(46.2759, 88.0788, 7.80797, 2)
  }
  soma[579] {pt3dclear()
	pt3dadd(46.9668, 88.2658, 8.2531, 2)
	pt3dadd(46.9236, 88.3946, 8.48061, 2)
	pt3dadd(46.8785, 88.5255, 8.73789, 2)
	pt3dadd(46.8305, 88.6513, 9.01674, 2)
	pt3dadd(46.7911, 88.7799, 9.30466, 2)
  }
  soma[580] {pt3dclear()
	pt3dadd(47.7093, 87.71, 7.28125, 2)
	pt3dadd(47.615, 87.9157, 7.33234, 2)
	pt3dadd(47.5101, 88.1416, 7.35406, 2)
	pt3dadd(47.4224, 88.3928, 7.36703, 2)
	pt3dadd(47.3368, 88.658, 7.36654, 2)
	pt3dadd(47.2642, 88.9361, 7.35179, 2)
	pt3dadd(47.1953, 89.221, 7.32148, 2)
	pt3dadd(47.1489, 89.5117, 7.26544, 2)
	pt3dadd(47.1378, 89.8047, 7.18808, 2)
	pt3dadd(47.1412, 90.0998, 7.11033, 2)
  }
  soma[581] {pt3dclear()
	pt3dadd(47.9243, 87.4956, 6.81431, 2)
	pt3dadd(47.9582, 87.7448, 6.76384, 2)
	pt3dadd(48.0407, 87.9969, 6.7193, 2)
	pt3dadd(48.1608, 88.2511, 6.67881, 2)
	pt3dadd(48.299, 88.5156, 6.62085, 2)
	pt3dadd(48.4846, 88.7794, 6.54078, 2)
  }
  soma[582] {pt3dclear()
	pt3dadd(48.4846, 88.7794, 6.54078, 2)
	pt3dadd(48.5803, 88.9861, 6.36239, 2)
	pt3dadd(48.6351, 89.2324, 6.17169, 2)
  }
  soma[583] {pt3dclear()
	pt3dadd(48.6351, 89.2324, 6.17169, 2)
	pt3dadd(48.6472, 89.4867, 6.10079, 2)
  }
}
proc shape3d_22() {
  soma[583] {	pt3dadd(48.6428, 89.7425, 6.02687, 2)
  }
  soma[584] {pt3dclear()
	pt3dadd(48.6428, 89.7425, 6.02687, 2)
	pt3dadd(48.5249, 90.027, 5.90694, 2)
	pt3dadd(48.405, 90.3073, 5.81978, 2)
	pt3dadd(48.2792, 90.577, 5.75046, 2)
	pt3dadd(48.1325, 90.8226, 5.68254, 2)
	pt3dadd(47.9644, 91.0384, 5.61375, 2)
  }
  soma[585] {pt3dclear()
	pt3dadd(47.9644, 91.0384, 5.61375, 2)
	pt3dadd(47.962, 91.3364, 5.63644, 2)
	pt3dadd(47.9873, 91.6042, 5.673, 2)
	pt3dadd(48.0655, 91.8431, 5.73407, 2)
	pt3dadd(48.2009, 92.0558, 5.80716, 2)
	pt3dadd(48.3722, 92.2539, 5.88821, 2)
	pt3dadd(48.5748, 92.4353, 5.97266, 2)
	pt3dadd(48.8135, 92.5794, 6.0588, 2)
	pt3dadd(49.0728, 92.6938, 6.14353, 2)
	pt3dadd(49.3442, 92.7789, 6.23305, 2)
	pt3dadd(49.6121, 92.8602, 6.34443, 2)
	pt3dadd(49.8849, 92.9099, 6.4781, 2)
	pt3dadd(50.1424, 92.9918, 6.64662, 2)
	pt3dadd(50.4365, 93.0605, 6.79127, 2)
  }
  soma[586] {pt3dclear()
	pt3dadd(50.4365, 93.0605, 6.79127, 2)
	pt3dadd(50.64, 93.1001, 6.96424, 2)
	pt3dadd(50.859, 93.1505, 7.12911, 2)
  }
  soma[587] {pt3dclear()
	pt3dadd(50.4365, 93.0605, 6.79127, 2)
	pt3dadd(50.674, 93.0519, 6.72815, 2)
	pt3dadd(50.9319, 93.0124, 6.64287, 2)
	pt3dadd(51.1966, 92.9354, 6.53183, 2)
	pt3dadd(51.4644, 92.822, 6.41872, 2)
	pt3dadd(51.7361, 92.7028, 6.30096, 2)
  }
  soma[588] {pt3dclear()
	pt3dadd(47.9644, 91.0384, 5.61375, 2)
	pt3dadd(47.7479, 90.8251, 5.53024, 2)
	pt3dadd(47.5186, 90.5967, 5.44183, 2)
  }
  soma[589] {pt3dclear()
	pt3dadd(48.6428, 89.7425, 6.02687, 2)
	pt3dadd(48.842, 89.7841, 6.12669, 2)
	pt3dadd(49.0604, 89.863, 6.20647, 2)
	pt3dadd(49.2939, 89.9736, 6.26065, 2)
	pt3dadd(49.5312, 90.112, 6.30673, 2)
	pt3dadd(49.7613, 90.2824, 6.34391, 2)
	pt3dadd(49.9934, 90.4633, 6.36898, 2)
	pt3dadd(50.2388, 90.6347, 6.37794, 2)
	pt3dadd(50.5087, 90.7691, 6.36529, 2)
	pt3dadd(50.7816, 90.8983, 6.34028, 2)
	pt3dadd(51.0468, 91.0415, 6.30415, 2)
	pt3dadd(51.2882, 91.2163, 6.24529, 2)
	pt3dadd(51.5021, 91.4197, 6.17112, 2)
	pt3dadd(51.6948, 91.6445, 6.09891, 2)
	pt3dadd(51.8813, 91.8731, 6.02172, 2)
  }
  soma[590] {pt3dclear()
	pt3dadd(48.6351, 89.2324, 6.17169, 2)
	pt3dadd(48.6228, 89.2346, 5.92173, 2)
	pt3dadd(48.6151, 89.2244, 5.6508, 2)
	pt3dadd(48.6043, 89.1988, 5.36579, 2)
	pt3dadd(48.6021, 89.1458, 5.07446, 2)
	pt3dadd(48.5945, 89.07, 4.78225, 2)
	pt3dadd(48.5527, 89.0108, 4.48616, 2)
  }
  soma[591] {pt3dclear()
	pt3dadd(48.4846, 88.7794, 6.54078, 2)
	pt3dadd(48.7227, 88.8, 6.59474, 2)
	pt3dadd(48.9895, 88.7991, 6.64904, 2)
	pt3dadd(49.2781, 88.7986, 6.708, 2)
	pt3dadd(49.583, 88.8118, 6.78711, 2)
	pt3dadd(49.9069, 88.8371, 6.8789, 2)
  }
  soma[592] {pt3dclear()
	pt3dadd(49.9069, 88.8371, 6.8789, 2)
	pt3dadd(50.1003, 88.7714, 7.05944, 2)
	pt3dadd(50.3005, 88.6996, 7.24782, 2)
	pt3dadd(50.4945, 88.6066, 7.44682, 2)
	pt3dadd(50.6972, 88.5029, 7.64142, 2)
	pt3dadd(50.9303, 88.3988, 7.80535, 2)
	pt3dadd(51.1722, 88.2784, 7.94734, 2)
	pt3dadd(51.406, 88.1338, 8.08219, 2)
  }
  soma[593] {pt3dclear()
	pt3dadd(49.9069, 88.8371, 6.8789, 2)
	pt3dadd(50.1637, 88.8975, 6.75161, 2)
	pt3dadd(50.4325, 88.9295, 6.60552, 2)
  }
  soma[594] {pt3dclear()
	pt3dadd(48.3737, 86.6075, 6.71123, 2)
	pt3dadd(48.4582, 86.6227, 6.92496, 2)
	pt3dadd(48.5372, 86.6651, 7.17052, 2)
	pt3dadd(48.6805, 86.7416, 7.40679, 2)
	pt3dadd(48.8497, 86.8467, 7.63985, 2)
	pt3dadd(49.0228, 86.9545, 7.89243, 2)
	pt3dadd(49.2012, 87.0013, 8.18045, 2)
  }
  soma[595] {pt3dclear()
	pt3dadd(49.2012, 87.0013, 8.18045, 2)
	pt3dadd(49.1845, 86.9587, 8.46359, 2)
	pt3dadd(49.1478, 86.8841, 8.74531, 2)
	pt3dadd(49.0761, 86.8208, 9.02599, 2)
	pt3dadd(48.9577, 86.7945, 9.29821, 2)
	pt3dadd(48.8395, 86.8171, 9.57162, 2)
	pt3dadd(48.7018, 86.8679, 9.83224, 2)
	pt3dadd(48.5387, 86.9227, 10.0771, 2)
	pt3dadd(48.3822, 87.009, 10.316, 2)
	pt3dadd(48.2131, 87.1119, 10.535, 2)
	pt3dadd(48.0327, 87.2169, 10.7319, 2)
	pt3dadd(47.8411, 87.3279, 10.8908, 2)
	pt3dadd(47.6296, 87.4496, 10.983, 2)
	pt3dadd(47.4114, 87.6013, 10.9885, 2)
	pt3dadd(47.191, 87.7665, 10.9331, 2)
	pt3dadd(46.9645, 87.9313, 10.8535, 2)
	pt3dadd(46.7318, 88.0967, 10.7803, 2)
	pt3dadd(46.4934, 88.2636, 10.7308, 2)
	pt3dadd(46.2519, 88.4341, 10.7123, 2)
	pt3dadd(46.0098, 88.6096, 10.721, 2)
  }
  soma[596] {pt3dclear()
	pt3dadd(46.0098, 88.6096, 10.721, 2)
	pt3dadd(45.6876, 88.6522, 10.6859, 2)
	pt3dadd(45.366, 88.6774, 10.675, 2)
	pt3dadd(45.0379, 88.6844, 10.6773, 2)
  }
  soma[597] {pt3dclear()
	pt3dadd(45.0379, 88.6844, 10.6773, 2)
	pt3dadd(44.7711, 88.8432, 10.7141, 2)
	pt3dadd(44.5108, 89.0092, 10.7408, 2)
	pt3dadd(44.25, 89.1729, 10.7534, 2)
	pt3dadd(43.9867, 89.3314, 10.7607, 2)
	pt3dadd(43.7206, 89.4849, 10.7647, 2)
  }
  soma[598] {pt3dclear()
	pt3dadd(45.0379, 88.6844, 10.6773, 2)
	pt3dadd(44.9554, 88.4268, 10.6148, 2)
	pt3dadd(44.86, 88.1451, 10.5496, 2)
	pt3dadd(44.7621, 87.8479, 10.4896, 2)
  }
  soma[599] {pt3dclear()
	pt3dadd(46.0098, 88.6096, 10.721, 2)
	pt3dadd(46.0795, 88.6802, 10.9203, 2)
	pt3dadd(46.1367, 88.7228, 11.1636, 2)
	pt3dadd(46.1835, 88.7447, 11.4316, 2)
	pt3dadd(46.2148, 88.7559, 11.7131, 2)
	pt3dadd(46.2282, 88.7761, 12.0003, 2)
  }
  soma[600] {pt3dclear()
	pt3dadd(49.2012, 87.0013, 8.18045, 2)
	pt3dadd(49.383, 86.984, 8.32909, 2)
	pt3dadd(49.586, 86.9685, 8.46749, 2)
	pt3dadd(49.8153, 86.9038, 8.55295, 2)
  }
  soma[601] {pt3dclear()
	pt3dadd(49.8153, 86.9038, 8.55295, 2)
	pt3dadd(50.1006, 86.9601, 8.65927, 2)
	pt3dadd(50.392, 87.0047, 8.72713, 2)
	pt3dadd(50.6817, 87.0742, 8.76734, 2)
  }
  soma[602] {pt3dclear()
	pt3dadd(50.6817, 87.0742, 8.76734, 2)
	pt3dadd(50.9033, 87.2395, 8.89804, 2)
	pt3dadd(51.1051, 87.4286, 9.00729, 2)
	pt3dadd(51.2677, 87.6522, 9.10161, 2)
	pt3dadd(51.3849, 87.9005, 9.19067, 2)
	pt3dadd(51.4677, 88.1578, 9.28415, 2)
	pt3dadd(51.5099, 88.4186, 9.38894, 2)
	pt3dadd(51.5049, 88.6815, 9.49634, 2)
	pt3dadd(51.4464, 88.943, 9.59538, 2)
	pt3dadd(51.3499, 89.1976, 9.68976, 2)
	pt3dadd(51.2365, 89.45, 9.77893, 2)
  }
  soma[603] {pt3dclear()
	pt3dadd(51.2365, 89.45, 9.77893, 2)
	pt3dadd(51.0383, 89.6796, 9.7861, 2)
	pt3dadd(50.8628, 89.919, 9.81194, 2)
	pt3dadd(50.6896, 90.1545, 9.85484, 2)
	pt3dadd(50.5269, 90.3947, 9.90627, 2)
  }
  soma[604] {pt3dclear()
	pt3dadd(51.2365, 89.45, 9.77893, 2)
	pt3dadd(51.3956, 89.5301, 9.92597, 2)
	pt3dadd(51.5641, 89.6415, 10.0805, 2)
	pt3dadd(51.744, 89.7786, 10.2307, 2)
	pt3dadd(51.9338, 89.9388, 10.3692, 2)
	pt3dadd(52.1368, 90.1068, 10.5033, 2)
	pt3dadd(52.3503, 90.2763, 10.6463, 2)
  }
  soma[605] {pt3dclear()
	pt3dadd(52.3503, 90.2763, 10.6463, 2)
	pt3dadd(52.6419, 90.2747, 10.7226, 2)
	pt3dadd(52.9259, 90.2732, 10.819, 2)
  }
  soma[606] {pt3dclear()
	pt3dadd(52.3503, 90.2763, 10.6463, 2)
	pt3dadd(52.2012, 90.4605, 10.7807, 2)
	pt3dadd(52.0485, 90.6634, 10.9267, 2)
	pt3dadd(51.8921, 90.882, 11.075, 2)
	pt3dadd(51.7395, 91.1074, 11.233, 2)
	pt3dadd(51.5872, 91.3294, 11.4024, 2)
  }
  soma[607] {pt3dclear()
	pt3dadd(50.6817, 87.0742, 8.76734, 2)
	pt3dadd(50.7447, 87.0517, 8.52279, 2)
	pt3dadd(50.8186, 87.0354, 8.25483, 2)
	pt3dadd(50.8985, 87.0321, 7.97201, 2)
	pt3dadd(50.9923, 87.0452, 7.6859, 2)
	pt3dadd(51.0844, 87.0685, 7.39746, 2)
	pt3dadd(51.1712, 87.1001, 7.1087, 2)
	pt3dadd(51.2304, 87.1718, 6.82096, 2)
	pt3dadd(51.2633, 87.2854, 6.54252, 2)
	pt3dadd(51.2649, 87.4254, 6.27348, 2)
	pt3dadd(51.2483, 87.5703, 6.00685, 2)
  }
  soma[608] {pt3dclear()
	pt3dadd(49.8153, 86.9038, 8.55295, 2)
	pt3dadd(49.8065, 86.6603, 8.37109, 2)
	pt3dadd(49.7699, 86.4117, 8.17012, 2)
	pt3dadd(49.7059, 86.1597, 7.96789, 2)
	pt3dadd(49.6236, 85.9084, 7.76732, 2)
  }
  soma[609] {pt3dclear()
	pt3dadd(49.2012, 87.0013, 8.18045, 2)
	pt3dadd(49.2556, 87.2463, 8.25994, 2)
	pt3dadd(49.3339, 87.4945, 8.33681, 2)
	pt3dadd(49.4218, 87.7471, 8.39715, 2)
	pt3dadd(49.5081, 87.9979, 8.44143, 2)
  }
  soma[610] {pt3dclear()
	pt3dadd(49.5081, 87.9979, 8.44143, 2)
	pt3dadd(49.5953, 88.2084, 8.6779, 2)
	pt3dadd(49.6826, 88.397, 8.90479, 2)
	pt3dadd(49.7729, 88.5564, 9.13771, 2)
	pt3dadd(49.8516, 88.6928, 9.38595, 2)
	pt3dadd(49.9174, 88.8171, 9.64958, 2)
	pt3dadd(49.9552, 88.9419, 9.92957, 2)
  }
  soma[611] {pt3dclear()
	pt3dadd(49.9552, 88.9419, 9.92957, 2)
	pt3dadd(50.0133, 88.8761, 10.2129, 2)
	pt3dadd(50.0367, 88.8231, 10.5073, 2)
	pt3dadd(50.0622, 88.7537, 10.8009, 2)
	pt3dadd(50.0888, 88.6951, 11.0981, 2)
  }
  soma[612] {pt3dclear()
	pt3dadd(49.9552, 88.9419, 9.92957, 2)
	pt3dadd(49.8653, 89.1627, 9.95988, 2)
	pt3dadd(49.7311, 89.3795, 10.0042, 2)
	pt3dadd(49.5895, 89.6061, 10.0694, 2)
	pt3dadd(49.447, 89.8407, 10.1539, 2)
	pt3dadd(49.2893, 90.0659, 10.2622, 2)
	pt3dadd(49.1091, 90.2724, 10.3855, 2)
	pt3dadd(48.91, 90.4581, 10.5176, 2)
  }
}
proc shape3d_23() {
  soma[612] {	pt3dadd(48.6838, 90.6203, 10.6379, 2)
	pt3dadd(48.4408, 90.7641, 10.7476, 2)
	pt3dadd(48.1879, 90.891, 10.8553, 2)
	pt3dadd(47.9249, 90.9899, 10.9678, 2)
	pt3dadd(47.6661, 91.0856, 11.0925, 2)
	pt3dadd(47.4029, 91.1568, 11.225, 2)
	pt3dadd(47.1482, 91.2409, 11.3664, 2)
  }
  soma[613] {pt3dclear()
	pt3dadd(49.5081, 87.9979, 8.44143, 2)
	pt3dadd(49.5348, 87.9874, 8.14018, 2)
	pt3dadd(49.569, 87.9565, 7.82134, 2)
	pt3dadd(49.6094, 87.895, 7.49936, 2)
  }
  soma[614] {pt3dclear()
	pt3dadd(49.3063, 83.2501, 6.00091, 2)
	pt3dadd(49.5845, 83.3649, 6.08626, 2)
	pt3dadd(49.8653, 83.4939, 6.18473, 2)
	pt3dadd(50.1384, 83.6172, 6.28236, 2)
  }
  soma[615] {pt3dclear()
	pt3dadd(50.1384, 83.6172, 6.28236, 2)
	pt3dadd(50.4543, 83.7606, 6.19847, 2)
	pt3dadd(50.7307, 83.9246, 6.13282, 2)
	pt3dadd(50.9925, 84.0854, 6.07787, 2)
	pt3dadd(51.2369, 84.2555, 6.00976, 2)
	pt3dadd(51.4679, 84.4293, 5.91408, 2)
	pt3dadd(51.7006, 84.6053, 5.82031, 2)
  }
  soma[616] {pt3dclear()
	pt3dadd(51.7006, 84.6053, 5.82031, 2)
	pt3dadd(51.9658, 84.7512, 5.82812, 2)
	pt3dadd(52.1976, 84.9484, 5.83003, 2)
	pt3dadd(52.3913, 85.192, 5.82896, 2)
	pt3dadd(52.5716, 85.4611, 5.81611, 2)
  }
  soma[617] {pt3dclear()
	pt3dadd(52.5716, 85.4611, 5.81611, 2)
	pt3dadd(52.768, 85.6771, 5.91573, 2)
	pt3dadd(52.9582, 85.9331, 5.97867, 2)
  }
  soma[618] {pt3dclear()
	pt3dadd(52.9582, 85.9331, 5.97867, 2)
	pt3dadd(53.0429, 86.1919, 5.93746, 2)
	pt3dadd(53.1239, 86.4604, 5.88386, 2)
	pt3dadd(53.1755, 86.7405, 5.82154, 2)
	pt3dadd(53.2261, 87.0209, 5.74722, 2)
	pt3dadd(53.3089, 87.2937, 5.66849, 2)
	pt3dadd(53.4197, 87.5578, 5.59238, 2)
	pt3dadd(53.5762, 87.7973, 5.51355, 2)
	pt3dadd(53.7371, 88.0367, 5.44199, 2)
	pt3dadd(53.8936, 88.2834, 5.38565, 2)
	pt3dadd(54.0403, 88.5395, 5.34717, 2)
	pt3dadd(54.1799, 88.8019, 5.32737, 2)
	pt3dadd(54.2908, 89.0789, 5.32612, 2)
	pt3dadd(54.4098, 89.353, 5.33543, 2)
	pt3dadd(54.571, 89.6048, 5.35009, 2)
	pt3dadd(54.7381, 89.8512, 5.37838, 2)
	pt3dadd(54.9331, 90.075, 5.40562, 2)
	pt3dadd(55.1228, 90.2982, 5.45127, 2)
	pt3dadd(55.2838, 90.5367, 5.51877, 2)
	pt3dadd(55.4087, 90.7887, 5.61021, 2)
	pt3dadd(55.5178, 91.0428, 5.71671, 2)
  }
  soma[619] {pt3dclear()
	pt3dadd(52.9582, 85.9331, 5.97867, 2)
	pt3dadd(53.1505, 85.9964, 6.11792, 2)
	pt3dadd(53.3642, 86.0364, 6.27122, 2)
	pt3dadd(53.5883, 86.0596, 6.44078, 2)
	pt3dadd(53.8014, 86.1261, 6.63005, 2)
	pt3dadd(53.9861, 86.2398, 6.83423, 2)
	pt3dadd(54.1591, 86.3971, 7.02163, 2)
	pt3dadd(54.3245, 86.586, 7.18548, 2)
	pt3dadd(54.5015, 86.7905, 7.31578, 2)
	pt3dadd(54.6668, 87.0232, 7.41172, 2)
	pt3dadd(54.8323, 87.264, 7.48807, 2)
  }
  soma[620] {pt3dclear()
	pt3dadd(52.5716, 85.4611, 5.81611, 2)
	pt3dadd(52.5177, 85.661, 5.59743, 2)
	pt3dadd(52.4624, 85.8799, 5.37293, 2)
	pt3dadd(52.4186, 86.1011, 5.13583, 2)
  }
  soma[621] {pt3dclear()
	pt3dadd(51.7006, 84.6053, 5.82031, 2)
	pt3dadd(51.5534, 84.8324, 5.73104, 2)
	pt3dadd(51.4224, 85.0801, 5.6473, 2)
	pt3dadd(51.3101, 85.3487, 5.57732, 2)
	pt3dadd(51.2136, 85.6283, 5.50675, 2)
	pt3dadd(51.1348, 85.9173, 5.44112, 2)
	pt3dadd(51.0495, 86.207, 5.37925, 2)
	pt3dadd(50.9933, 86.5063, 5.32724, 2)
  }
  soma[622] {pt3dclear()
	pt3dadd(50.1384, 83.6172, 6.28236, 2)
	pt3dadd(50.0083, 83.6516, 6.56353, 2)
	pt3dadd(49.8952, 83.6986, 6.87301, 2)
	pt3dadd(49.7882, 83.7667, 7.19002, 2)
  }
  soma[623] {pt3dclear()
	pt3dadd(49.0767, 82.2816, 5.96032, 2)
	pt3dadd(48.8595, 82.299, 5.82802, 2)
	pt3dadd(48.6319, 82.3428, 5.69691, 2)
	pt3dadd(48.4022, 82.371, 5.5435, 2)
	pt3dadd(48.1818, 82.3691, 5.35947, 2)
	pt3dadd(47.9619, 82.3498, 5.16484, 2)
	pt3dadd(47.7605, 82.3189, 4.94672, 2)
	pt3dadd(47.5994, 82.2917, 4.69508, 2)
	pt3dadd(47.4707, 82.2997, 4.42206, 2)
	pt3dadd(47.3513, 82.3088, 4.14264, 2)
  }
  soma[624] {pt3dclear()
	pt3dadd(49.3891, 79.3511, 6.80323, 2)
	pt3dadd(49.485, 79.3444, 7.03066, 2)
	pt3dadd(49.5588, 79.378, 7.26757, 2)
  }
  soma[625] {pt3dclear()
	pt3dadd(49.5588, 79.378, 7.26757, 2)
	pt3dadd(49.7042, 79.5673, 7.5238, 2)
	pt3dadd(49.7765, 79.7446, 7.7896, 2)
	pt3dadd(49.8203, 79.8882, 8.06691, 2)
	pt3dadd(49.8386, 80.0459, 8.33205, 2)
  }
  soma[626] {pt3dclear()
	pt3dadd(49.8386, 80.0459, 8.33205, 2)
	pt3dadd(49.9393, 80.1429, 8.6197, 2)
	pt3dadd(50.0813, 80.2599, 8.87474, 2)
	pt3dadd(50.2587, 80.3719, 9.10478, 2)
	pt3dadd(50.4381, 80.4689, 9.33792, 2)
	pt3dadd(50.609, 80.5611, 9.57938, 2)
	pt3dadd(50.7947, 80.6106, 9.8256, 2)
	pt3dadd(50.9812, 80.6591, 10.0798, 2)
	pt3dadd(51.1841, 80.6702, 10.3437, 2)
	pt3dadd(51.4093, 80.6426, 10.6187, 2)
  }
  soma[627] {pt3dclear()
	pt3dadd(51.4093, 80.6426, 10.6187, 2)
	pt3dadd(51.6114, 80.6722, 10.7773, 2)
	pt3dadd(51.8408, 80.6879, 10.9344, 2)
	pt3dadd(52.0842, 80.6959, 11.0898, 2)
  }
  soma[628] {pt3dclear()
	pt3dadd(51.4093, 80.6426, 10.6187, 2)
	pt3dadd(51.5241, 80.458, 10.7803, 2)
	pt3dadd(51.6502, 80.2385, 10.9217, 2)
	pt3dadd(51.801, 80.0093, 11.0378, 2)
	pt3dadd(51.9805, 79.7882, 11.1343, 2)
	pt3dadd(52.1776, 79.5781, 11.2222, 2)
	pt3dadd(52.3892, 79.379, 11.3015, 2)
	pt3dadd(52.6117, 79.1838, 11.3566, 2)
	pt3dadd(52.8468, 79.0007, 11.3998, 2)
	pt3dadd(53.0961, 78.8355, 11.4346, 2)
	pt3dadd(53.354, 78.6833, 11.4617, 2)
	pt3dadd(53.6126, 78.5319, 11.4801, 2)
	pt3dadd(53.8709, 78.3806, 11.4891, 2)
	pt3dadd(54.1252, 78.2248, 11.4734, 2)
	pt3dadd(54.3778, 78.0751, 11.4252, 2)
	pt3dadd(54.6021, 77.8982, 11.3504, 2)
	pt3dadd(54.7803, 77.6969, 11.2382, 2)
	pt3dadd(54.9132, 77.49, 11.0917, 2)
	pt3dadd(54.9991, 77.2964, 10.904, 2)
	pt3dadd(55.0295, 77.1259, 10.6761, 2)
	pt3dadd(55.0334, 76.9721, 10.4273, 2)
	pt3dadd(55.0558, 76.8089, 10.1819, 2)
	pt3dadd(55.1166, 76.6316, 9.95512, 2)
	pt3dadd(55.2291, 76.452, 9.7542, 2)
	pt3dadd(55.3908, 76.2777, 9.58578, 2)
	pt3dadd(55.5914, 76.1112, 9.45354, 2)
	pt3dadd(55.819, 75.95, 9.36082, 2)
	pt3dadd(56.0472, 75.7698, 9.30788, 2)
	pt3dadd(56.2671, 75.5716, 9.28508, 2)
	pt3dadd(56.4583, 75.3429, 9.28116, 2)
	pt3dadd(56.6213, 75.0921, 9.29372, 2)
	pt3dadd(56.7608, 74.8274, 9.31734, 2)
  }
  soma[629] {pt3dclear()
	pt3dadd(49.8386, 80.0459, 8.33205, 2)
	pt3dadd(49.8746, 80.3164, 8.18205, 2)
	pt3dadd(49.9152, 80.598, 8.03432, 2)
	pt3dadd(49.9457, 80.8844, 7.8843, 2)
	pt3dadd(49.9756, 81.1614, 7.71516, 2)
	pt3dadd(49.9848, 81.4115, 7.5057, 2)
  }
  soma[630] {pt3dclear()
	pt3dadd(49.5588, 79.378, 7.26757, 2)
	pt3dadd(49.3418, 79.2378, 7.36863, 2)
	pt3dadd(49.085, 79.1773, 7.51689, 2)
	pt3dadd(48.8113, 79.1595, 7.66456, 2)
	pt3dadd(48.5223, 79.1776, 7.7864, 2)
	pt3dadd(48.2308, 79.205, 7.89763, 2)
	pt3dadd(47.9571, 79.2965, 7.9985, 2)
	pt3dadd(47.6928, 79.3714, 8.07935, 2)
  }
  soma[631] {pt3dclear()
	pt3dadd(47.6928, 79.3714, 8.07935, 2)
	pt3dadd(47.3484, 79.4107, 8.09274, 2)
	pt3dadd(47.0334, 79.4608, 8.11808, 2)
	pt3dadd(46.7406, 79.5372, 8.14661, 2)
	pt3dadd(46.4609, 79.6317, 8.16571, 2)
	pt3dadd(46.1975, 79.7569, 8.17875, 2)
	pt3dadd(45.9487, 79.9052, 8.20126, 2)
	pt3dadd(45.7141, 80.0731, 8.23096, 2)
	pt3dadd(45.4857, 80.2493, 8.26085, 2)
	pt3dadd(45.262, 80.4316, 8.28877, 2)
  }
  soma[632] {pt3dclear()
	pt3dadd(47.6928, 79.3714, 8.07935, 2)
	pt3dadd(47.9008, 79.3853, 8.18792, 2)
	pt3dadd(48.1068, 79.4537, 8.33389, 2)
	pt3dadd(48.2981, 79.5838, 8.48703, 2)
	pt3dadd(48.4903, 79.7218, 8.64784, 2)
	pt3dadd(48.6889, 79.8549, 8.81293, 2)
	pt3dadd(48.8849, 79.9898, 8.98286, 2)
  }
  soma[633] {pt3dclear()
	pt3dadd(49.2278, 78.5203, 6.85325, 2)
	pt3dadd(49.3205, 78.4097, 7.08008, 2)
	pt3dadd(49.4173, 78.2723, 7.30931, 2)
	pt3dadd(49.5191, 78.1191, 7.53925, 2)
	pt3dadd(49.6376, 77.9639, 7.76725, 2)
	pt3dadd(49.7655, 77.8127, 7.99618, 2)
	pt3dadd(49.9146, 77.6523, 8.20676, 2)
	pt3dadd(50.0867, 77.505, 8.40979, 2)
	pt3dadd(50.2585, 77.3676, 8.61945, 2)
	pt3dadd(50.4402, 77.2253, 8.81647, 2)
	pt3dadd(50.6362, 77.0951, 9.00675, 2)
	pt3dadd(50.8526, 76.9801, 9.18244, 2)
	pt3dadd(51.0869, 76.8787, 9.34077, 2)
	pt3dadd(51.3371, 76.8034, 9.48642, 2)
	pt3dadd(51.6072, 76.7544, 9.60139, 2)
	pt3dadd(51.8877, 76.7316, 9.69151, 2)
	pt3dadd(52.1675, 76.7231, 9.76981, 2)
	pt3dadd(52.4388, 76.7018, 9.84437, 2)
	pt3dadd(52.6934, 76.6473, 9.92439, 2)
	pt3dadd(52.9199, 76.5318, 10.01, 2)
	pt3dadd(53.1246, 76.3788, 10.1067, 2)
	pt3dadd(53.3179, 76.1908, 10.1915, 2)
	pt3dadd(53.5121, 75.9863, 10.2628, 2)
	pt3dadd(53.7155, 75.7808, 10.3214, 2)
	pt3dadd(53.9285, 75.5783, 10.3556, 2)
	pt3dadd(54.1451, 75.3778, 10.3581, 2)
	pt3dadd(54.3522, 75.1706, 10.322, 2)
  }
}
proc shape3d_24() {
  soma[633] {	pt3dadd(54.5422, 74.9542, 10.2524, 2)
	pt3dadd(54.7248, 74.738, 10.1579, 2)
	pt3dadd(54.8959, 74.5223, 10.0381, 2)
	pt3dadd(55.0611, 74.3085, 9.90424, 2)
  }
  soma[634] {pt3dclear()
	pt3dadd(48.0949, 75.5297, 6.22104, 2)
	pt3dadd(47.8855, 75.6589, 6.2542, 2)
  }
  soma[635] {pt3dclear()
	pt3dadd(47.8855, 75.6589, 6.2542, 2)
	pt3dadd(47.6937, 75.8906, 6.26992, 2)
	pt3dadd(47.4862, 76.11, 6.29606, 2)
	pt3dadd(47.3072, 76.3254, 6.32647, 2)
  }
  soma[636] {pt3dclear()
	pt3dadd(47.3072, 76.3254, 6.32647, 2)
	pt3dadd(47.1717, 76.6315, 6.49322, 2)
	pt3dadd(47.0854, 76.8737, 6.71112, 2)
	pt3dadd(47.0479, 76.9681, 7.00942, 2)
	pt3dadd(47.0565, 77.0598, 7.30159, 2)
	pt3dadd(47.0703, 77.1324, 7.59743, 2)
	pt3dadd(47.0718, 77.2137, 7.89307, 2)
	pt3dadd(47.0957, 77.2686, 8.19645, 2)
  }
  soma[637] {pt3dclear()
	pt3dadd(47.0957, 77.2686, 8.19645, 2)
	pt3dadd(47.3133, 77.2652, 8.45127, 2)
	pt3dadd(47.5544, 77.2507, 8.67287, 2)
	pt3dadd(47.7956, 77.2457, 8.88745, 2)
	pt3dadd(48.0231, 77.2689, 9.11913, 2)
	pt3dadd(48.2566, 77.2956, 9.36171, 2)
	pt3dadd(48.4888, 77.2956, 9.63617, 2)
  }
  soma[638] {pt3dclear()
	pt3dadd(48.4888, 77.2956, 9.63617, 2)
	pt3dadd(48.5017, 77.3721, 9.89716, 2)
	pt3dadd(48.5404, 77.4738, 10.1566, 2)
	pt3dadd(48.5699, 77.5732, 10.4199, 2)
	pt3dadd(48.5973, 77.6942, 10.6701, 2)
  }
  soma[639] {pt3dclear()
	pt3dadd(48.5973, 77.6942, 10.6701, 2)
	pt3dadd(48.4083, 77.9235, 10.9728, 2)
  }
  soma[640] {pt3dclear()
	pt3dadd(48.4083, 77.9235, 10.9728, 2)
	pt3dadd(48.3948, 78.1269, 11.1693, 2)
	pt3dadd(48.3971, 78.3247, 11.3931, 2)
	pt3dadd(48.4054, 78.506, 11.6486, 2)
  }
  soma[641] {pt3dclear()
	pt3dadd(48.4054, 78.506, 11.6486, 2)
	pt3dadd(48.5517, 78.5745, 11.9107, 2)
  }
  soma[642] {pt3dclear()
	pt3dadd(48.5517, 78.5745, 11.9107, 2)
	pt3dadd(48.6327, 78.7755, 12.0855, 2)
	pt3dadd(48.7027, 78.9628, 12.2653, 2)
  }
  soma[643] {pt3dclear()
	pt3dadd(48.7027, 78.9628, 12.2653, 2)
	pt3dadd(48.7621, 79.2619, 12.4265, 2)
	pt3dadd(48.7814, 79.5488, 12.5936, 2)
  }
  soma[644] {pt3dclear()
	pt3dadd(48.7027, 78.9628, 12.2653, 2)
	pt3dadd(48.5672, 78.7299, 12.3236, 2)
	pt3dadd(48.4225, 78.484, 12.4, 2)
	pt3dadd(48.2542, 78.2466, 12.501, 2)
	pt3dadd(48.0692, 78.0191, 12.617, 2)
	pt3dadd(47.8828, 77.7899, 12.7372, 2)
	pt3dadd(47.7002, 77.5611, 12.8679, 2)
  }
  soma[645] {pt3dclear()
	pt3dadd(48.5517, 78.5745, 11.9107, 2)
	pt3dadd(48.6557, 78.4284, 12.0848, 2)
	pt3dadd(48.7797, 78.2726, 12.2698, 2)
	pt3dadd(48.9204, 78.12, 12.4723, 2)
	pt3dadd(49.0722, 77.9709, 12.6888, 2)
  }
  soma[646] {pt3dclear()
	pt3dadd(49.0722, 77.9709, 12.6888, 2)
	pt3dadd(49.1939, 77.7687, 12.8658, 2)
	pt3dadd(49.3245, 77.6006, 13.0715, 2)
	pt3dadd(49.4421, 77.472, 13.3155, 2)
	pt3dadd(49.5327, 77.3352, 13.5707, 2)
	pt3dadd(49.6018, 77.2142, 13.8428, 2)
	pt3dadd(49.6665, 77.0834, 14.1128, 2)
	pt3dadd(49.7632, 76.9103, 14.3256, 2)
	pt3dadd(49.8595, 76.7364, 14.5378, 2)
	pt3dadd(49.9549, 76.5625, 14.7504, 2)
	pt3dadd(50.0502, 76.3882, 14.9629, 2)
	pt3dadd(50.1462, 76.2143, 15.1752, 2)
	pt3dadd(50.2413, 76.041, 15.3884, 2)
	pt3dadd(50.3375, 75.8672, 15.6009, 2)
  }
  soma[647] {pt3dclear()
	pt3dadd(49.0722, 77.9709, 12.6888, 2)
	pt3dadd(49.1638, 78.1425, 12.7989, 2)
	pt3dadd(49.2668, 78.3321, 12.9255, 2)
	pt3dadd(49.3531, 78.5509, 13.0497, 2)
	pt3dadd(49.4468, 78.7784, 13.1677, 2)
  }
  soma[648] {pt3dclear()
	pt3dadd(48.4054, 78.506, 11.6486, 2)
	pt3dadd(48.173, 78.5757, 11.7496, 2)
	pt3dadd(47.928, 78.6617, 11.8496, 2)
	pt3dadd(47.6669, 78.7385, 11.9555, 2)
	pt3dadd(47.4154, 78.8557, 12.079, 2)
	pt3dadd(47.1637, 78.9899, 12.2135, 2)
	pt3dadd(46.9371, 79.1467, 12.3937, 2)
  }
  soma[649] {pt3dclear()
	pt3dadd(46.9371, 79.1467, 12.3937, 2)
	pt3dadd(46.8233, 79.434, 12.4291, 2)
	pt3dadd(46.756, 79.7307, 12.4722, 2)
	pt3dadd(46.6924, 80.0265, 12.5038, 2)
	pt3dadd(46.647, 80.3256, 12.52, 2)
	pt3dadd(46.6192, 80.6282, 12.5178, 2)
	pt3dadd(46.6221, 80.935, 12.5023, 2)
	pt3dadd(46.6615, 81.2458, 12.4807, 2)
	pt3dadd(46.7618, 81.5553, 12.4574, 2)
  }
  soma[650] {pt3dclear()
	pt3dadd(46.7618, 81.5553, 12.4574, 2)
	pt3dadd(46.8242, 81.818, 12.4412, 2)
	pt3dadd(46.8945, 82.0899, 12.4531, 2)
	pt3dadd(46.9681, 82.3639, 12.4975, 2)
	pt3dadd(47.0555, 82.6292, 12.5763, 2)
	pt3dadd(47.1694, 82.8771, 12.6802, 2)
	pt3dadd(47.2783, 83.1139, 12.8144, 2)
	pt3dadd(47.3859, 83.3354, 12.9748, 2)
	pt3dadd(47.49, 83.5338, 13.1662, 2)
	pt3dadd(47.5852, 83.7011, 13.3906, 2)
	pt3dadd(47.6785, 83.842, 13.6347, 2)
	pt3dadd(47.7572, 83.958, 13.8974, 2)
  }
  soma[651] {pt3dclear()
	pt3dadd(46.7618, 81.5553, 12.4574, 2)
	pt3dadd(46.9887, 81.6317, 12.467, 2)
	pt3dadd(47.2424, 81.687, 12.4889, 2)
	pt3dadd(47.5148, 81.7219, 12.5181, 2)
	pt3dadd(47.7949, 81.749, 12.5588, 2)
  }
  soma[652] {pt3dclear()
	pt3dadd(46.9371, 79.1467, 12.3937, 2)
	pt3dadd(46.9625, 79.0989, 12.6531, 2)
	pt3dadd(47.0257, 79.0122, 12.916, 2)
	pt3dadd(47.0878, 78.8992, 13.1812, 2)
	pt3dadd(47.1053, 78.7672, 13.4502, 2)
	pt3dadd(47.1184, 78.6434, 13.7252, 2)
	pt3dadd(47.0735, 78.5062, 13.9918, 2)
	pt3dadd(46.9994, 78.3391, 14.238, 2)
  }
  soma[653] {pt3dclear()
	pt3dadd(46.9994, 78.3391, 14.238, 2)
	pt3dadd(47.1291, 78.0756, 14.3923, 2)
	pt3dadd(47.2456, 77.8202, 14.5307, 2)
	pt3dadd(47.3627, 77.5754, 14.6637, 2)
	pt3dadd(47.4567, 77.323, 14.79, 2)
	pt3dadd(47.557, 77.0704, 14.9069, 2)
	pt3dadd(47.6743, 76.8226, 15.0175, 2)
  }
  soma[654] {pt3dclear()
	pt3dadd(46.9994, 78.3391, 14.238, 2)
	pt3dadd(46.7106, 78.3997, 14.2963, 2)
	pt3dadd(46.3938, 78.4571, 14.3396, 2)
	pt3dadd(46.0704, 78.532, 14.3651, 2)
  }
  soma[655] {pt3dclear()
	pt3dadd(46.0704, 78.532, 14.3651, 2)
	pt3dadd(45.8685, 78.7603, 14.381, 2)
	pt3dadd(45.6709, 78.9767, 14.3826, 2)
	pt3dadd(45.477, 79.1883, 14.3726, 2)
  }
  soma[656] {pt3dclear()
	pt3dadd(46.0704, 78.532, 14.3651, 2)
	pt3dadd(45.9178, 78.3215, 14.3096, 2)
	pt3dadd(45.7349, 78.1068, 14.2421, 2)
	pt3dadd(45.5348, 77.8854, 14.1692, 2)
	pt3dadd(45.3396, 77.6458, 14.097, 2)
	pt3dadd(45.1486, 77.3953, 14.0316, 2)
  }
  soma[657] {pt3dclear()
	pt3dadd(48.4083, 77.9235, 10.9728, 2)
	pt3dadd(48.2041, 77.9774, 11.1411, 2)
	pt3dadd(47.9851, 78.0088, 11.3181, 2)
	pt3dadd(47.7437, 78.0019, 11.4859, 2)
	pt3dadd(47.4906, 78.0049, 11.6475, 2)
	pt3dadd(47.2291, 78.0259, 11.7961, 2)
	pt3dadd(46.9793, 78.04, 11.9569, 2)
	pt3dadd(46.7795, 78.0242, 12.1647, 2)
	pt3dadd(46.6489, 77.913, 12.3883, 2)
	pt3dadd(46.5101, 77.7505, 12.5713, 2)
	pt3dadd(46.4182, 77.5398, 12.7415, 2)
	pt3dadd(46.3147, 77.3252, 12.9109, 2)
	pt3dadd(46.2079, 77.1138, 13.0895, 2)
	pt3dadd(46.0893, 76.9247, 13.2888, 2)
	pt3dadd(45.9803, 76.7458, 13.5032, 2)
	pt3dadd(45.9087, 76.5848, 13.7428, 2)
	pt3dadd(45.8983, 76.435, 13.9918, 2)
	pt3dadd(45.8632, 76.3054, 14.2363, 2)
  }
  soma[658] {pt3dclear()
	pt3dadd(45.8632, 76.3054, 14.2363, 2)
	pt3dadd(45.8648, 76.1731, 14.5452, 2)
	pt3dadd(45.8052, 76.0714, 14.8458, 2)
	pt3dadd(45.7232, 75.9877, 15.1389, 2)
	pt3dadd(45.6643, 75.9382, 15.4417, 2)
  }
  soma[659] {pt3dclear()
	pt3dadd(45.8632, 76.3054, 14.2363, 2)
	pt3dadd(45.6335, 76.3491, 14.1292, 2)
	pt3dadd(45.3866, 76.3982, 14.0329, 2)
	pt3dadd(45.1329, 76.4633, 13.9389, 2)
	pt3dadd(44.8805, 76.5511, 13.8432, 2)
	pt3dadd(44.6393, 76.6807, 13.7535, 2)
	pt3dadd(44.4003, 76.8322, 13.6803, 2)
	pt3dadd(44.1501, 76.9767, 13.6104, 2)
	pt3dadd(43.8889, 77.1154, 13.5423, 2)
  }
  soma[660] {pt3dclear()
	pt3dadd(43.8889, 77.1154, 13.5423, 2)
	pt3dadd(43.7101, 77.2492, 13.363, 2)
	pt3dadd(43.5055, 77.3543, 13.1994, 2)
	pt3dadd(43.2893, 77.4476, 13.0469, 2)
	pt3dadd(43.0671, 77.5284, 12.8972, 2)
  }
  soma[661] {pt3dclear()
	pt3dadd(43.8889, 77.1154, 13.5423, 2)
	pt3dadd(43.7734, 77.11, 13.7452, 2)
	pt3dadd(43.6629, 77.0794, 13.9794, 2)
	pt3dadd(43.55, 77.0142, 14.2279, 2)
	pt3dadd(43.4401, 76.8899, 14.4703, 2)
	pt3dadd(43.3522, 76.6981, 14.6849, 2)
	pt3dadd(43.296, 76.462, 14.8687, 2)
	pt3dadd(43.238, 76.2082, 15.03, 2)
	pt3dadd(43.1682, 75.9509, 15.1836, 2)
	pt3dadd(43.1013, 75.6952, 15.3428, 2)
  }
  soma[662] {pt3dclear()
	pt3dadd(48.5973, 77.6942, 10.6701, 2)
	pt3dadd(48.7934, 77.5411, 10.648, 2)
	pt3dadd(49.0025, 77.3784, 10.6512, 2)
	pt3dadd(49.2199, 77.2009, 10.6731, 2)
	pt3dadd(49.4471, 77.0117, 10.7151, 2)
	pt3dadd(49.7005, 76.8278, 10.7574, 2)
  }
  soma[663] {pt3dclear()
	pt3dadd(49.7005, 76.8278, 10.7574, 2)
	pt3dadd(50.006, 76.8138, 10.8054, 2)
	pt3dadd(50.3103, 76.8011, 10.8649, 2)
	pt3dadd(50.6135, 76.7883, 10.9319, 2)
	pt3dadd(50.9169, 76.7781, 11.001, 2)
	pt3dadd(51.2211, 76.7728, 11.0685, 2)
  }
  soma[664] {pt3dclear()
	pt3dadd(49.7005, 76.8278, 10.7574, 2)
	pt3dadd(49.6663, 76.5951, 10.8145, 2)
	pt3dadd(49.6707, 76.3411, 10.8837, 2)
	pt3dadd(49.7332, 76.0875, 10.9665, 2)
  }
}
proc shape3d_25() {
  soma[664] {	pt3dadd(49.8629, 75.8573, 11.0535, 2)
	pt3dadd(50.0605, 75.6728, 11.131, 2)
	pt3dadd(50.3118, 75.5527, 11.2001, 2)
	pt3dadd(50.5905, 75.4868, 11.263, 2)
  }
  soma[665] {pt3dclear()
	pt3dadd(50.5905, 75.4868, 11.263, 2)
	pt3dadd(50.8086, 75.702, 11.353, 2)
	pt3dadd(51.0233, 75.92, 11.4326, 2)
  }
  soma[666] {pt3dclear()
	pt3dadd(50.5905, 75.4868, 11.263, 2)
	pt3dadd(50.6267, 75.2799, 11.1855, 2)
	pt3dadd(50.6786, 75.0721, 11.102, 2)
  }
  soma[667] {pt3dclear()
	pt3dadd(48.4888, 77.2956, 9.63617, 2)
	pt3dadd(48.5553, 77.093, 9.7648, 2)
	pt3dadd(48.6057, 76.8546, 9.86776, 2)
	pt3dadd(48.6273, 76.5895, 9.94625, 2)
	pt3dadd(48.6153, 76.3122, 10.0184, 2)
	pt3dadd(48.55, 76.0333, 10.0796, 2)
	pt3dadd(48.4849, 75.747, 10.1246, 2)
	pt3dadd(48.3933, 75.4657, 10.1692, 2)
	pt3dadd(48.2986, 75.1852, 10.2129, 2)
	pt3dadd(48.2004, 74.9077, 10.2641, 2)
  }
  soma[668] {pt3dclear()
	pt3dadd(48.2004, 74.9077, 10.2641, 2)
	pt3dadd(48.102, 74.6123, 10.1834, 2)
	pt3dadd(47.9626, 74.3364, 10.1401, 2)
	pt3dadd(47.7898, 74.0827, 10.1231, 2)
	pt3dadd(47.601, 73.8419, 10.1266, 2)
	pt3dadd(47.4306, 73.5885, 10.1481, 2)
	pt3dadd(47.2673, 73.33, 10.1704, 2)
	pt3dadd(47.1232, 73.0601, 10.1943, 2)
	pt3dadd(46.9914, 72.7837, 10.2147, 2)
  }
  soma[669] {pt3dclear()
	pt3dadd(48.2004, 74.9077, 10.2641, 2)
	pt3dadd(48.0842, 75.0008, 10.45, 2)
	pt3dadd(47.9591, 75.093, 10.6584, 2)
	pt3dadd(47.8308, 75.1817, 10.8811, 2)
  }
  soma[670] {pt3dclear()
	pt3dadd(47.0957, 77.2686, 8.19645, 2)
	pt3dadd(46.8535, 77.2943, 8.2676, 2)
	pt3dadd(46.6013, 77.3415, 8.35407, 2)
	pt3dadd(46.3338, 77.3962, 8.44569, 2)
	pt3dadd(46.0657, 77.5016, 8.52491, 2)
	pt3dadd(45.8039, 77.6349, 8.60109, 2)
	pt3dadd(45.5384, 77.7665, 8.66766, 2)
	pt3dadd(45.2771, 77.9058, 8.72121, 2)
	pt3dadd(45.0198, 78.0479, 8.74865, 2)
	pt3dadd(44.7742, 78.1964, 8.74231, 2)
	pt3dadd(44.5653, 78.3766, 8.70088, 2)
	pt3dadd(44.4058, 78.59, 8.63, 2)
	pt3dadd(44.2991, 78.8308, 8.53766, 2)
	pt3dadd(44.2547, 79.0903, 8.42416, 2)
	pt3dadd(44.2564, 79.3319, 8.25618, 2)
	pt3dadd(44.2771, 79.5358, 8.03936, 2)
  }
  soma[671] {pt3dclear()
	pt3dadd(47.3072, 76.3254, 6.32647, 2)
	pt3dadd(47.3015, 76.2051, 6.12739, 2)
	pt3dadd(47.2992, 76.0943, 5.8867, 2)
	pt3dadd(47.2976, 75.9398, 5.65002, 2)
  }
  soma[672] {pt3dclear()
	pt3dadd(47.2976, 75.9398, 5.65002, 2)
	pt3dadd(47.2996, 75.6578, 5.4877, 2)
	pt3dadd(47.3045, 75.3719, 5.34621, 2)
	pt3dadd(47.3155, 75.086, 5.22091, 2)
	pt3dadd(47.3284, 74.8095, 5.08894, 2)
	pt3dadd(47.3211, 74.5377, 4.9575, 2)
	pt3dadd(47.2859, 74.2688, 4.83759, 2)
	pt3dadd(47.2323, 74.0121, 4.71729, 2)
	pt3dadd(47.1866, 73.7624, 4.60452, 2)
	pt3dadd(47.1879, 73.5236, 4.48479, 2)
	pt3dadd(47.2387, 73.2801, 4.4002, 2)
	pt3dadd(47.3222, 73.0396, 4.3296, 2)
	pt3dadd(47.4124, 72.7992, 4.25899, 2)
  }
  soma[673] {pt3dclear()
	pt3dadd(47.2976, 75.9398, 5.65002, 2)
	pt3dadd(47.2068, 76.136, 5.52411, 2)
	pt3dadd(47.1185, 76.3525, 5.39428, 2)
	pt3dadd(47.0198, 76.5812, 5.26546, 2)
	pt3dadd(46.9205, 76.8133, 5.12455, 2)
	pt3dadd(46.8255, 77.0419, 4.96485, 2)
	pt3dadd(46.7351, 77.2605, 4.7847, 2)
  }
  soma[674] {pt3dclear()
	pt3dadd(47.8855, 75.6589, 6.2542, 2)
	pt3dadd(47.6536, 75.5491, 6.30183, 2)
	pt3dadd(47.3949, 75.4547, 6.36434, 2)
	pt3dadd(47.1215, 75.3604, 6.45753, 2)
	pt3dadd(46.8397, 75.2834, 6.60157, 2)
  }
  soma[675] {pt3dclear()
	pt3dadd(46.8397, 75.2834, 6.60157, 2)
	pt3dadd(46.7287, 75.1753, 6.84346, 2)
	pt3dadd(46.5922, 75.0363, 7.0656, 2)
	pt3dadd(46.4061, 74.9348, 7.28466, 2)
	pt3dadd(46.2196, 74.8502, 7.52647, 2)
	pt3dadd(46.0325, 74.7948, 7.79286, 2)
  }
  soma[676] {pt3dclear()
	pt3dadd(46.0325, 74.7948, 7.79286, 2)
	pt3dadd(46.0572, 74.7627, 8.09772, 2)
	pt3dadd(46.083, 74.787, 8.40077, 2)
	pt3dadd(46.1414, 74.853, 8.69185, 2)
	pt3dadd(46.221, 74.9114, 8.97884, 2)
	pt3dadd(46.2941, 74.9412, 9.27155, 2)
	pt3dadd(46.361, 74.9631, 9.56602, 2)
	pt3dadd(46.4141, 74.9618, 9.86268, 2)
	pt3dadd(46.4446, 74.9113, 10.1542, 2)
	pt3dadd(46.4664, 74.8386, 10.4314, 2)
	pt3dadd(46.4776, 74.6868, 10.6551, 2)
	pt3dadd(46.4089, 74.4938, 10.8015, 2)
	pt3dadd(46.3054, 74.2699, 10.8271, 2)
	pt3dadd(46.1815, 74.0479, 10.7616, 2)
	pt3dadd(46.0533, 73.8452, 10.6208, 2)
	pt3dadd(45.9402, 73.6772, 10.4131, 2)
  }
  soma[677] {pt3dclear()
	pt3dadd(45.9402, 73.6772, 10.4131, 2)
	pt3dadd(45.8692, 73.5307, 10.1647, 2)
  }
  soma[678] {pt3dclear()
	pt3dadd(45.9402, 73.6772, 10.4131, 2)
	pt3dadd(45.7681, 73.7197, 10.6596, 2)
	pt3dadd(45.5912, 73.7717, 10.9007, 2)
	pt3dadd(45.4108, 73.8269, 11.1385, 2)
	pt3dadd(45.232, 73.8779, 11.3783, 2)
	pt3dadd(45.0558, 73.9294, 11.62, 2)
	pt3dadd(44.8793, 73.9797, 11.8616, 2)
	pt3dadd(44.702, 74.0291, 12.1029, 2)
	pt3dadd(44.5253, 74.0796, 12.3444, 2)
	pt3dadd(44.3487, 74.1305, 12.5859, 2)
	pt3dadd(44.1716, 74.1801, 12.8272, 2)
	pt3dadd(43.9938, 74.23, 13.0681, 2)
	pt3dadd(43.8174, 74.2793, 13.31, 2)
	pt3dadd(43.6408, 74.3301, 13.5515, 2)
	pt3dadd(43.4638, 74.3798, 13.793, 2)
	pt3dadd(43.2864, 74.429, 14.0342, 2)
	pt3dadd(43.1098, 74.4793, 14.2758, 2)
	pt3dadd(42.9317, 74.5308, 14.516, 2)
	pt3dadd(42.7532, 74.5805, 14.7564, 2)
	pt3dadd(42.579, 74.6343, 14.999, 2)
  }
  soma[679] {pt3dclear()
	pt3dadd(46.0325, 74.7948, 7.79286, 2)
	pt3dadd(45.8246, 74.891, 7.74794, 2)
	pt3dadd(45.5978, 75.0095, 7.70464, 2)
	pt3dadd(45.3533, 75.1356, 7.65639, 2)
	pt3dadd(45.0926, 75.2441, 7.5853, 2)
	pt3dadd(44.8411, 75.3765, 7.49833, 2)
	pt3dadd(44.5976, 75.5184, 7.39436, 2)
	pt3dadd(44.3753, 75.682, 7.27046, 2)
	pt3dadd(44.1647, 75.8504, 7.13007, 2)
	pt3dadd(43.9592, 76.0254, 6.98868, 2)
	pt3dadd(43.7522, 76.1986, 6.8476, 2)
	pt3dadd(43.5417, 76.381, 6.72585, 2)
	pt3dadd(43.3413, 76.5841, 6.62122, 2)
	pt3dadd(43.1474, 76.8012, 6.53046, 2)
	pt3dadd(42.9588, 77.028, 6.44806, 2)
	pt3dadd(42.7655, 77.2486, 6.35616, 2)
	pt3dadd(42.5618, 77.4553, 6.25282, 2)
  }
  soma[680] {pt3dclear()
	pt3dadd(46.8397, 75.2834, 6.60157, 2)
	pt3dadd(46.6568, 75.4533, 6.63298, 2)
	pt3dadd(46.4995, 75.6714, 6.66556, 2)
	pt3dadd(46.3666, 75.9213, 6.67929, 2)
	pt3dadd(46.2459, 76.1854, 6.67691, 2)
	pt3dadd(46.1254, 76.4533, 6.66294, 2)
	pt3dadd(46.0157, 76.7279, 6.64798, 2)
	pt3dadd(45.9167, 77.0082, 6.63945, 2)
	pt3dadd(45.8273, 77.2932, 6.63714, 2)
	pt3dadd(45.7413, 77.5803, 6.63283, 2)
	pt3dadd(45.6564, 77.8684, 6.62365, 2)
	pt3dadd(45.5932, 78.1624, 6.61906, 2)
	pt3dadd(45.5386, 78.4576, 6.61809, 2)
	pt3dadd(45.4729, 78.7504, 6.62012, 2)
	pt3dadd(45.4046, 79.0427, 6.62502, 2)
	pt3dadd(45.3531, 79.3384, 6.6288, 2)
	pt3dadd(45.2895, 79.6314, 6.63061, 2)
	pt3dadd(45.2308, 79.9253, 6.63676, 2)
	pt3dadd(45.1723, 80.2188, 6.65038, 2)
	pt3dadd(45.1207, 80.5127, 6.67592, 2)
  }
  soma[681] {pt3dclear()
	pt3dadd(48.1603, 74.9236, 6.13767, 2)
	pt3dadd(48.3805, 75.0323, 6.14812, 2)
	pt3dadd(48.6103, 75.1706, 6.17166, 2)
	pt3dadd(48.8468, 75.3273, 6.18809, 2)
	pt3dadd(49.0865, 75.493, 6.18381, 2)
	pt3dadd(49.3261, 75.6628, 6.17769, 2)
  }
  soma[682] {pt3dclear()
	pt3dadd(49.3261, 75.6628, 6.17769, 2)
	pt3dadd(49.5008, 75.937, 6.22276, 2)
	pt3dadd(49.6793, 76.2042, 6.26541, 2)
	pt3dadd(49.8765, 76.4607, 6.30175, 2)
	pt3dadd(50.0998, 76.7017, 6.3337, 2)
  }
  soma[683] {pt3dclear()
	pt3dadd(50.0998, 76.7017, 6.3337, 2)
	pt3dadd(50.3001, 76.8983, 6.31452, 2)
	pt3dadd(50.4998, 77.1058, 6.30341, 2)
	pt3dadd(50.7052, 77.3165, 6.31347, 2)
	pt3dadd(50.9126, 77.5276, 6.34118, 2)
	pt3dadd(51.1039, 77.7468, 6.40033, 2)
	pt3dadd(51.262, 77.9779, 6.49128, 2)
	pt3dadd(51.3932, 78.2046, 6.61918, 2)
	pt3dadd(51.5209, 78.4078, 6.78022, 2)
	pt3dadd(51.6576, 78.5722, 6.97331, 2)
	pt3dadd(51.7855, 78.6833, 7.20776, 2)
	pt3dadd(51.9065, 78.7274, 7.47018, 2)
	pt3dadd(52.025, 78.7305, 7.74096, 2)
	pt3dadd(52.1005, 78.7011, 8.02817, 2)
	pt3dadd(52.1805, 78.6458, 8.31252, 2)
	pt3dadd(52.2476, 78.5407, 8.58755, 2)
	pt3dadd(52.285, 78.4229, 8.86447, 2)
	pt3dadd(52.3018, 78.2919, 9.13849, 2)
	pt3dadd(52.3222, 78.1373, 9.40053, 2)
	pt3dadd(52.3745, 78.0043, 9.66998, 2)
	pt3dadd(52.4357, 77.8754, 9.93932, 2)
	pt3dadd(52.4926, 77.753, 10.2125, 2)
	pt3dadd(52.5525, 77.6468, 10.4916, 2)
	pt3dadd(52.6078, 77.5467, 10.7739, 2)
  }
  soma[684] {pt3dclear()
	pt3dadd(50.0998, 76.7017, 6.3337, 2)
	pt3dadd(50.0952, 76.7188, 6.02702, 2)
	pt3dadd(50.0507, 76.7676, 5.72451, 2)
	pt3dadd(50.0087, 76.8303, 5.42021, 2)
	pt3dadd(49.9845, 76.8993, 5.11114, 2)
	pt3dadd(49.9755, 76.9675, 4.79841, 2)
  }
}
proc shape3d_26() {
  soma[684] {  }
  soma[685] {pt3dclear()
	pt3dadd(50.0998, 76.7017, 6.3337, 2)
	pt3dadd(50.0738, 76.6695, 6.62859, 2)
	pt3dadd(50.0457, 76.5554, 6.9109, 2)
	pt3dadd(49.9921, 76.4252, 7.20014, 2)
	pt3dadd(49.9316, 76.2693, 7.50387, 2)
  }
  soma[686] {pt3dclear()
	pt3dadd(49.9316, 76.2693, 7.50387, 2)
	pt3dadd(49.8495, 76.2066, 7.77143, 2)
  }
  soma[687] {pt3dclear()
	pt3dadd(49.8495, 76.2066, 7.77143, 2)
	pt3dadd(49.8546, 76.0862, 8.00194, 2)
	pt3dadd(49.838, 75.9865, 8.2628, 2)
	pt3dadd(49.7944, 75.8689, 8.52597, 2)
	pt3dadd(49.7288, 75.6908, 8.75313, 2)
	pt3dadd(49.6786, 75.4795, 8.95364, 2)
	pt3dadd(49.6227, 75.2576, 9.13774, 2)
	pt3dadd(49.5638, 75.0168, 9.29369, 2)
	pt3dadd(49.5141, 74.7609, 9.42729, 2)
	pt3dadd(49.4589, 74.4994, 9.54708, 2)
	pt3dadd(49.4162, 74.2421, 9.67972, 2)
	pt3dadd(49.4008, 73.9905, 9.82664, 2)
	pt3dadd(49.4374, 73.758, 9.99781, 2)
	pt3dadd(49.5232, 73.5434, 10.1752, 2)
	pt3dadd(49.6407, 73.3239, 10.3301, 2)
	pt3dadd(49.7646, 73.098, 10.4737, 2)
	pt3dadd(49.8903, 72.8816, 10.6321, 2)
	pt3dadd(49.9845, 72.6567, 10.8007, 2)
	pt3dadd(50.0652, 72.4413, 10.9872, 2)
	pt3dadd(50.0999, 72.2467, 11.2074, 2)
	pt3dadd(50.1104, 72.0589, 11.436, 2)
  }
  soma[688] {pt3dclear()
	pt3dadd(49.8495, 76.2066, 7.77143, 2)
	pt3dadd(49.5991, 76.2591, 7.87954, 2)
	pt3dadd(49.3141, 76.2819, 7.95471, 2)
	pt3dadd(49.0177, 76.3321, 8.02429, 2)
	pt3dadd(48.715, 76.4051, 8.08295, 2)
	pt3dadd(48.4057, 76.4844, 8.11613, 2)
  }
  soma[689] {pt3dclear()
	pt3dadd(49.9316, 76.2693, 7.50387, 2)
	pt3dadd(50.1054, 76.1218, 7.64247, 2)
	pt3dadd(50.3235, 75.9899, 7.76362, 2)
	pt3dadd(50.5671, 75.9009, 7.89599, 2)
	pt3dadd(50.8264, 75.8904, 8.04293, 2)
	pt3dadd(51.0801, 75.9224, 8.2067, 2)
  }
  soma[690] {pt3dclear()
	pt3dadd(49.3261, 75.6628, 6.17769, 2)
	pt3dadd(49.4353, 75.4662, 6.09486, 2)
	pt3dadd(49.5538, 75.2673, 5.98757, 2)
	pt3dadd(49.7007, 75.0983, 5.84127, 2)
	pt3dadd(49.8489, 74.9668, 5.64945, 2)
	pt3dadd(49.9978, 74.8868, 5.42811, 2)
	pt3dadd(50.1405, 74.8188, 5.20407, 2)
  }
  soma[691] {pt3dclear()
	pt3dadd(50.1405, 74.8188, 5.20407, 2)
	pt3dadd(50.2165, 74.6512, 4.91445, 2)
  }
  soma[692] {pt3dclear()
	pt3dadd(50.2165, 74.6512, 4.91445, 2)
	pt3dadd(50.3756, 74.4102, 4.91221, 2)
	pt3dadd(50.5543, 74.1965, 4.94907, 2)
	pt3dadd(50.7464, 74.0052, 5.01512, 2)
	pt3dadd(50.9551, 73.8428, 5.11299, 2)
	pt3dadd(51.165, 73.692, 5.23867, 2)
	pt3dadd(51.3686, 73.536, 5.37787, 2)
	pt3dadd(51.5528, 73.3436, 5.50229, 2)
	pt3dadd(51.7275, 73.1347, 5.61301, 2)
	pt3dadd(51.8806, 72.9132, 5.72816, 2)
	pt3dadd(52.0036, 72.6842, 5.86144, 2)
	pt3dadd(52.1059, 72.4611, 6.02096, 2)
	pt3dadd(52.1941, 72.2456, 6.20108, 2)
	pt3dadd(52.2774, 72.0441, 6.40239, 2)
	pt3dadd(52.3651, 71.8484, 6.60993, 2)
  }
  soma[693] {pt3dclear()
	pt3dadd(50.2165, 74.6512, 4.91445, 2)
	pt3dadd(50.1374, 74.7949, 4.73024, 2)
	pt3dadd(50.0039, 74.9273, 4.55497, 2)
	pt3dadd(49.8483, 75.0585, 4.39414, 2)
  }
  soma[694] {pt3dclear()
	pt3dadd(49.8483, 75.0585, 4.39414, 2)
	pt3dadd(49.6211, 75.2246, 4.31325, 2)
	pt3dadd(49.4408, 75.4096, 4.20301, 2)
	pt3dadd(49.3084, 75.6041, 4.0608, 2)
	pt3dadd(49.1809, 75.7875, 3.90425, 2)
  }
  soma[695] {pt3dclear()
	pt3dadd(49.8483, 75.0585, 4.39414, 2)
	pt3dadd(50.0154, 75.1132, 4.24136, 2)
	pt3dadd(50.1915, 75.2237, 4.08394, 2)
	pt3dadd(50.3567, 75.3641, 3.90795, 2)
	pt3dadd(50.5219, 75.5212, 3.72857, 2)
	pt3dadd(50.7229, 75.6583, 3.56124, 2)
	pt3dadd(50.9595, 75.7864, 3.43564, 2)
	pt3dadd(51.2125, 75.9085, 3.33725, 2)
	pt3dadd(51.4777, 76.0199, 3.25769, 2)
	pt3dadd(51.749, 76.1274, 3.19192, 2)
	pt3dadd(52.0268, 76.2312, 3.14525, 2)
	pt3dadd(52.3117, 76.3211, 3.10847, 2)
	pt3dadd(52.5954, 76.416, 3.06823, 2)
	pt3dadd(52.8818, 76.5013, 3.02246, 2)
	pt3dadd(53.1607, 76.6111, 2.98193, 2)
	pt3dadd(53.4411, 76.7176, 2.94205, 2)
	pt3dadd(53.7041, 76.861, 2.90173, 2)
	pt3dadd(53.9802, 76.9802, 2.87694, 2)
	pt3dadd(54.2521, 77.1091, 2.86643, 2)
	pt3dadd(54.5217, 77.241, 2.85886, 2)
	pt3dadd(54.778, 77.3955, 2.85684, 2)
	pt3dadd(54.9967, 77.5979, 2.85701, 2)
	pt3dadd(55.1658, 77.8424, 2.84723, 2)
	pt3dadd(55.3006, 78.1051, 2.81239, 2)
	pt3dadd(55.4167, 78.3748, 2.76399, 2)
	pt3dadd(55.4997, 78.6566, 2.71373, 2)
  }
  soma[696] {pt3dclear()
	pt3dadd(50.1405, 74.8188, 5.20407, 2)
	pt3dadd(50.2449, 74.974, 5.37046, 2)
	pt3dadd(50.3265, 75.1478, 5.55442, 2)
	pt3dadd(50.4056, 75.3345, 5.74238, 2)
	pt3dadd(50.4696, 75.5497, 5.91402, 2)
	pt3dadd(50.5112, 75.7732, 6.08596, 2)
  }
  soma[697] {pt3dclear()
	pt3dadd(48.0658, 72.6598, 6.21503, 2)
	pt3dadd(48.2408, 72.7893, 6.41193, 2)
	pt3dadd(48.41, 72.9356, 6.62486, 2)
	pt3dadd(48.6203, 73.0579, 6.81841, 2)
	pt3dadd(48.8364, 73.1956, 6.97569, 2)
  }
  soma[698] {pt3dclear()
	pt3dadd(48.8364, 73.1956, 6.97569, 2)
	pt3dadd(48.9887, 73.3512, 7.21531, 2)
	pt3dadd(49.1505, 73.4745, 7.44404, 2)
  }
  soma[699] {pt3dclear()
	pt3dadd(49.1505, 73.4745, 7.44404, 2)
	pt3dadd(49.3258, 73.6162, 7.64032, 2)
	pt3dadd(49.503, 73.7826, 7.81362, 2)
	pt3dadd(49.6764, 73.9791, 7.96176, 2)
	pt3dadd(49.829, 74.2047, 8.09734, 2)
	pt3dadd(49.9627, 74.445, 8.23315, 2)
	pt3dadd(50.111, 74.6746, 8.37481, 2)
	pt3dadd(50.2877, 74.8685, 8.53662, 2)
	pt3dadd(50.4672, 75.0468, 8.71319, 2)
	pt3dadd(50.6575, 75.205, 8.89785, 2)
	pt3dadd(50.8487, 75.3501, 9.09237, 2)
	pt3dadd(51.0487, 75.4802, 9.2893, 2)
  }
  soma[700] {pt3dclear()
	pt3dadd(49.1505, 73.4745, 7.44404, 2)
	pt3dadd(49.0458, 73.7357, 7.6083, 2)
	pt3dadd(48.9531, 73.9984, 7.77791, 2)
	pt3dadd(48.8747, 74.2764, 7.92941, 2)
	pt3dadd(48.8081, 74.5545, 8.0857, 2)
  }
  soma[701] {pt3dclear()
	pt3dadd(48.8364, 73.1956, 6.97569, 2)
	pt3dadd(48.9774, 73.0032, 6.77388, 2)
	pt3dadd(49.1202, 72.7941, 6.56372, 2)
	pt3dadd(49.2346, 72.5695, 6.34111, 2)
  }
  soma[702] {pt3dclear()
	pt3dadd(47.4487, 70.4315, 6.40017, 2)
	pt3dadd(47.2637, 70.606, 6.33286, 2)
	pt3dadd(47.0959, 70.8089, 6.24651, 2)
	pt3dadd(46.9096, 71.003, 6.1391, 2)
	pt3dadd(46.7263, 71.198, 6.0051, 2)
	pt3dadd(46.549, 71.3811, 5.83533, 2)
	pt3dadd(46.3897, 71.5479, 5.62644, 2)
	pt3dadd(46.2521, 71.7021, 5.38997, 2)
  }
  soma[703] {pt3dclear()
	pt3dadd(46.9936, 65.9581, 7.25757, 2)
	pt3dadd(47.2569, 66.0785, 7.29481, 2)
	pt3dadd(47.5177, 66.2264, 7.32386, 2)
	pt3dadd(47.7708, 66.3951, 7.35997, 2)
	pt3dadd(48.0038, 66.5923, 7.40678, 2)
	pt3dadd(48.2411, 66.7869, 7.45199, 2)
	pt3dadd(48.5087, 66.9384, 7.49494, 2)
	pt3dadd(48.7877, 67.0686, 7.52848, 2)
	pt3dadd(49.0707, 67.193, 7.54631, 2)
	pt3dadd(49.3704, 67.2701, 7.55573, 2)
	pt3dadd(49.6775, 67.3079, 7.57265, 2)
	pt3dadd(49.9848, 67.3475, 7.59656, 2)
	pt3dadd(50.2889, 67.4191, 7.61353, 2)
  }
  soma[704] {pt3dclear()
	pt3dadd(50.2889, 67.4191, 7.61353, 2)
	pt3dadd(50.4347, 67.7167, 7.56837, 2)
	pt3dadd(50.5481, 68.0057, 7.50856, 2)
	pt3dadd(50.6854, 68.2642, 7.42409, 2)
	pt3dadd(50.8584, 68.4851, 7.32473, 2)
	pt3dadd(51.0479, 68.6955, 7.25135, 2)
	pt3dadd(51.2076, 68.9338, 7.21233, 2)
	pt3dadd(51.3492, 69.1851, 7.20875, 2)
	pt3dadd(51.4936, 69.4345, 7.23262, 2)
	pt3dadd(51.6548, 69.6718, 7.28569, 2)
	pt3dadd(51.8325, 69.8962, 7.3569, 2)
	pt3dadd(52.0216, 70.112, 7.4357, 2)
	pt3dadd(52.2182, 70.3249, 7.50817, 2)
  }
  soma[705] {pt3dclear()
	pt3dadd(50.2889, 67.4191, 7.61353, 2)
	pt3dadd(50.3844, 67.1769, 7.66664, 2)
	pt3dadd(50.4722, 66.9074, 7.71176, 2)
	pt3dadd(50.549, 66.6224, 7.74525, 2)
	pt3dadd(50.6132, 66.3309, 7.77518, 2)
	pt3dadd(50.6722, 66.0384, 7.81052, 2)
	pt3dadd(50.7273, 65.7462, 7.85222, 2)
	pt3dadd(50.7845, 65.4557, 7.90154, 2)
	pt3dadd(50.8455, 65.1666, 7.95636, 2)
	pt3dadd(50.9045, 64.8768, 8.01266, 2)
	pt3dadd(50.9704, 64.5862, 8.0629, 2)
	pt3dadd(51.008, 64.288, 8.09918, 2)
	pt3dadd(51.0284, 63.9874, 8.12346, 2)
	pt3dadd(51.0172, 63.6881, 8.14754, 2)
	pt3dadd(50.9972, 63.3949, 8.19646, 2)
	pt3dadd(50.9941, 63.1078, 8.26838, 2)
	pt3dadd(51.0043, 62.8298, 8.36639, 2)
	pt3dadd(51.0586, 62.5736, 8.50331, 2)
	pt3dadd(51.1417, 62.3273, 8.64895, 2)
	pt3dadd(51.2192, 62.0648, 8.77052, 2)
	pt3dadd(51.2845, 61.7901, 8.86818, 2)
	pt3dadd(51.3171, 61.5028, 8.93898, 2)
	pt3dadd(51.3158, 61.2087, 8.98628, 2)
	pt3dadd(51.2864, 60.9131, 9.01457, 2)
	pt3dadd(51.255, 60.6156, 9.02133, 2)
	pt3dadd(51.2244, 60.3172, 9.01466, 2)
	pt3dadd(51.1863, 60.0197, 9.00088, 2)
  }
  soma[706] {pt3dclear()
	pt3dadd(45.6845, 61.5336, 7.60709, 2)
	pt3dadd(45.8477, 61.4973, 7.77931, 2)
	pt3dadd(46.0426, 61.4537, 7.9519, 2)
	pt3dadd(46.2649, 61.419, 8.11612, 2)
	pt3dadd(46.5098, 61.4052, 8.26494, 2)
  }
}
proc shape3d_27() {
  soma[706] {	pt3dadd(46.7655, 61.439, 8.40294, 2)
	pt3dadd(47.0273, 61.4961, 8.53477, 2)
	pt3dadd(47.2829, 61.5954, 8.67261, 2)
	pt3dadd(47.5606, 61.6981, 8.78522, 2)
  }
  soma[707] {pt3dclear()
	pt3dadd(47.5606, 61.6981, 8.78522, 2)
	pt3dadd(47.7598, 61.901, 8.74721, 2)
	pt3dadd(47.9497, 62.118, 8.70661, 2)
	pt3dadd(48.1262, 62.3539, 8.67886, 2)
	pt3dadd(48.2864, 62.6074, 8.65755, 2)
	pt3dadd(48.4803, 62.8425, 8.64896, 2)
	pt3dadd(48.7031, 63.0571, 8.65248, 2)
	pt3dadd(48.9333, 63.2709, 8.67305, 2)
  }
  soma[708] {pt3dclear()
	pt3dadd(48.9333, 63.2709, 8.67305, 2)
	pt3dadd(49.0369, 63.5499, 8.59967, 2)
	pt3dadd(49.1096, 63.8415, 8.55168, 2)
	pt3dadd(49.2096, 64.1277, 8.53856, 2)
	pt3dadd(49.3135, 64.4135, 8.5539, 2)
  }
  soma[709] {pt3dclear()
	pt3dadd(49.3135, 64.4135, 8.5539, 2)
	pt3dadd(49.4894, 64.6692, 8.44654, 2)
  }
  soma[710] {pt3dclear()
	pt3dadd(49.3135, 64.4135, 8.5539, 2)
	pt3dadd(49.2016, 64.4007, 8.80046, 2)
	pt3dadd(49.0876, 64.3924, 9.06904, 2)
	pt3dadd(48.9577, 64.3917, 9.34347, 2)
  }
  soma[711] {pt3dclear()
	pt3dadd(48.9333, 63.2709, 8.67305, 2)
	pt3dadd(49.0894, 63.2287, 8.83473, 2)
	pt3dadd(49.2387, 63.2125, 9.02711, 2)
  }
  soma[712] {pt3dclear()
	pt3dadd(49.2387, 63.2125, 9.02711, 2)
	pt3dadd(49.4007, 63.3372, 9.25323, 2)
	pt3dadd(49.5794, 63.4421, 9.47387, 2)
	pt3dadd(49.7626, 63.5276, 9.70018, 2)
	pt3dadd(49.9507, 63.6128, 9.9249, 2)
	pt3dadd(50.1506, 63.682, 10.1474, 2)
	pt3dadd(50.3536, 63.7586, 10.3664, 2)
	pt3dadd(50.5658, 63.8286, 10.5804, 2)
	pt3dadd(50.7656, 63.9087, 10.8033, 2)
  }
  soma[713] {pt3dclear()
	pt3dadd(49.2387, 63.2125, 9.02711, 2)
	pt3dadd(49.4038, 63.0428, 8.9778, 2)
	pt3dadd(49.6093, 62.8824, 8.92875, 2)
	pt3dadd(49.838, 62.7318, 8.87005, 2)
	pt3dadd(50.0808, 62.594, 8.80357, 2)
  }
  soma[714] {pt3dclear()
	pt3dadd(47.5606, 61.6981, 8.78522, 2)
	pt3dadd(47.7165, 61.5721, 8.93816, 2)
	pt3dadd(47.8962, 61.4516, 9.08803, 2)
	pt3dadd(48.0583, 61.3088, 9.24082, 2)
	pt3dadd(48.2135, 61.1657, 9.38235, 2)
  }
  soma[715] {pt3dclear()
	pt3dadd(48.2135, 61.1657, 9.38235, 2)
	pt3dadd(48.464, 60.9409, 9.46283, 2)
	pt3dadd(48.6878, 60.7129, 9.53194, 2)
	pt3dadd(48.8878, 60.4736, 9.58421, 2)
  }
  soma[716] {pt3dclear()
	pt3dadd(48.8878, 60.4736, 9.58421, 2)
	pt3dadd(49.0258, 60.127, 9.74547, 2)
  }
  soma[717] {pt3dclear()
	pt3dadd(49.0258, 60.127, 9.74547, 2)
	pt3dadd(49.1686, 59.9121, 9.85872, 2)
	pt3dadd(49.2987, 59.6687, 9.94434, 2)
	pt3dadd(49.401, 59.4016, 10.008, 2)
	pt3dadd(49.4685, 59.1179, 10.0577, 2)
	pt3dadd(49.5154, 58.8268, 10.0995, 2)
	pt3dadd(49.5877, 58.5428, 10.1439, 2)
	pt3dadd(49.6821, 58.2743, 10.1948, 2)
	pt3dadd(49.82, 58.0499, 10.2727, 2)
	pt3dadd(49.9962, 57.9089, 10.4018, 2)
	pt3dadd(50.1787, 57.8861, 10.5861, 2)
	pt3dadd(50.347, 57.9502, 10.7935, 2)
	pt3dadd(50.5094, 58.0748, 10.9954, 2)
	pt3dadd(50.6617, 58.2489, 11.177, 2)
	pt3dadd(50.8108, 58.4502, 11.3356, 2)
	pt3dadd(50.9474, 58.6795, 11.4676, 2)
	pt3dadd(51.1006, 58.909, 11.5815, 2)
	pt3dadd(51.2686, 59.1379, 11.676, 2)
	pt3dadd(51.4399, 59.3697, 11.7581, 2)
  }
  soma[718] {pt3dclear()
	pt3dadd(49.0258, 60.127, 9.74547, 2)
	pt3dadd(49.0416, 59.8606, 9.68303, 2)
	pt3dadd(49.0732, 59.5829, 9.60315, 2)
	pt3dadd(49.1132, 59.306, 9.50322, 2)
	pt3dadd(49.1485, 59.0322, 9.39112, 2)
	pt3dadd(49.157, 58.768, 9.26059, 2)
	pt3dadd(49.1662, 58.5235, 9.11819, 2)
	pt3dadd(49.2074, 58.3095, 8.98553, 2)
  }
  soma[719] {pt3dclear()
	pt3dadd(49.2074, 58.3095, 8.98553, 2)
	pt3dadd(49.3904, 58.4936, 8.87633, 2)
	pt3dadd(49.5511, 58.7265, 8.79499, 2)
	pt3dadd(49.685, 58.9887, 8.71698, 2)
	pt3dadd(49.7902, 59.2676, 8.6312, 2)
	pt3dadd(49.8732, 59.5555, 8.54078, 2)
	pt3dadd(49.9572, 59.8444, 8.45026, 2)
  }
  soma[720] {pt3dclear()
	pt3dadd(49.2074, 58.3095, 8.98553, 2)
	pt3dadd(49.0967, 58.1111, 9.15378, 2)
	pt3dadd(48.9793, 57.9482, 9.35717, 2)
	pt3dadd(48.8608, 57.809, 9.58663, 2)
	pt3dadd(48.7506, 57.67, 9.82933, 2)
	pt3dadd(48.6396, 57.5392, 10.0823, 2)
	pt3dadd(48.5482, 57.4001, 10.3417, 2)
	pt3dadd(48.4604, 57.2536, 10.599, 2)
	pt3dadd(48.3903, 57.1175, 10.8658, 2)
	pt3dadd(48.3325, 56.9989, 11.1409, 2)
	pt3dadd(48.2677, 56.8907, 11.4151, 2)
  }
  soma[721] {pt3dclear()
	pt3dadd(48.2677, 56.8907, 11.4151, 2)
	pt3dadd(48.2168, 56.8035, 11.697, 2)
	pt3dadd(48.2089, 56.7359, 11.9893, 2)
	pt3dadd(48.2199, 56.6782, 12.2876, 2)
	pt3dadd(48.2462, 56.6337, 12.5928, 2)
	pt3dadd(48.2807, 56.5755, 12.8989, 2)
  }
  soma[722] {pt3dclear()
	pt3dadd(48.2677, 56.8907, 11.4151, 2)
	pt3dadd(48.5409, 56.8433, 11.5326, 2)
	pt3dadd(48.8145, 56.7972, 11.6495, 2)
	pt3dadd(49.0879, 56.7497, 11.7663, 2)
	pt3dadd(49.3613, 56.7025, 11.8833, 2)
	pt3dadd(49.6348, 56.6555, 12.0001, 2)
  }
  soma[723] {pt3dclear()
	pt3dadd(48.8878, 60.4736, 9.58421, 2)
	pt3dadd(48.9184, 60.556, 9.35475, 2)
	pt3dadd(48.9429, 60.6521, 9.11285, 2)
	pt3dadd(48.9694, 60.7765, 8.87053, 2)
	pt3dadd(49.0179, 60.921, 8.63397, 2)
	pt3dadd(49.0584, 61.0721, 8.39574, 2)
  }
  soma[724] {pt3dclear()
	pt3dadd(48.2135, 61.1657, 9.38235, 2)
	pt3dadd(48.0204, 61.2689, 9.47385, 2)
	pt3dadd(47.8054, 61.3601, 9.58664, 2)
	pt3dadd(47.5767, 61.4319, 9.72165, 2)
	pt3dadd(47.3546, 61.4693, 9.89532, 2)
	pt3dadd(47.151, 61.5044, 10.0961, 2)
  }
  soma[725] {pt3dclear()
	pt3dadd(44.3031, 54.3325, 7.41756, 2)
	pt3dadd(44.3498, 54.1155, 7.53021, 2)
	pt3dadd(44.3408, 53.8856, 7.68443, 2)
	pt3dadd(44.3971, 53.7926, 7.95502, 2)
	pt3dadd(44.4736, 53.7173, 8.23505, 2)
	pt3dadd(44.6611, 53.6696, 8.46502, 2)
	pt3dadd(44.9218, 53.7211, 8.59696, 2)
	pt3dadd(45.1716, 53.8806, 8.5692, 2)
	pt3dadd(45.4452, 54.0007, 8.54925, 2)
	pt3dadd(45.7255, 54.0896, 8.48374, 2)
	pt3dadd(46.0203, 54.1314, 8.42919, 2)
	pt3dadd(46.3148, 54.1622, 8.35946, 2)
	pt3dadd(46.6137, 54.1791, 8.29481, 2)
	pt3dadd(46.9208, 54.1997, 8.25604, 2)
  }
  soma[726] {pt3dclear()
	pt3dadd(46.9208, 54.1997, 8.25604, 2)
	pt3dadd(47.1729, 54.3427, 8.12619, 2)
	pt3dadd(47.4256, 54.4914, 8.02529, 2)
	pt3dadd(47.6896, 54.615, 7.9331, 2)
	pt3dadd(47.967, 54.7092, 7.8537, 2)
	pt3dadd(48.2558, 54.7739, 7.79244, 2)
	pt3dadd(48.5518, 54.7787, 7.73448, 2)
	pt3dadd(48.842, 54.7302, 7.66933, 2)
	pt3dadd(49.1266, 54.6666, 7.59362, 2)
  }
  soma[727] {pt3dclear()
	pt3dadd(46.9208, 54.1997, 8.25604, 2)
	pt3dadd(47.0065, 54.0914, 8.4545, 2)
	pt3dadd(47.1091, 53.9741, 8.6727, 2)
	pt3dadd(47.2364, 53.899, 8.92018, 2)
	pt3dadd(47.3734, 53.8776, 9.19129, 2)
	pt3dadd(47.5393, 53.8997, 9.46556, 2)
	pt3dadd(47.7316, 53.9449, 9.74409, 2)
  }
  soma[728] {pt3dclear()
	pt3dadd(47.7316, 53.9449, 9.74409, 2)
	pt3dadd(47.7776, 54.0527, 9.99419, 2)
	pt3dadd(47.78, 54.1346, 10.2507, 2)
	pt3dadd(47.7403, 54.1278, 10.4953, 2)
	pt3dadd(47.6873, 53.999, 10.6833, 2)
	pt3dadd(47.6359, 53.7819, 10.7855, 2)
	pt3dadd(47.5908, 53.5205, 10.8146, 2)
	pt3dadd(47.5697, 53.2398, 10.7891, 2)
	pt3dadd(47.569, 52.9567, 10.7216, 2)
	pt3dadd(47.6076, 52.6805, 10.6255, 2)
	pt3dadd(47.6734, 52.4161, 10.5077, 2)
	pt3dadd(47.7297, 52.1623, 10.3624, 2)
	pt3dadd(47.7707, 51.9169, 10.1983, 2)
	pt3dadd(47.7689, 51.6681, 10.0338, 2)
	pt3dadd(47.6983, 51.4277, 9.87152, 2)
	pt3dadd(47.5935, 51.1919, 9.72095, 2)
	pt3dadd(47.4946, 50.951, 9.57482, 2)
	pt3dadd(47.4181, 50.6992, 9.43423, 2)
	pt3dadd(47.3778, 50.4431, 9.28645, 2)
  }
  soma[729] {pt3dclear()
	pt3dadd(47.7316, 53.9449, 9.74409, 2)
	pt3dadd(47.9212, 53.7723, 9.85789, 2)
	pt3dadd(48.118, 53.5703, 9.95286, 2)
	pt3dadd(48.3083, 53.3429, 10.0242, 2)
	pt3dadd(48.4765, 53.0895, 10.0762, 2)
	pt3dadd(48.6144, 52.8134, 10.1135, 2)
	pt3dadd(48.731, 52.5245, 10.1337, 2)
	pt3dadd(48.8282, 52.2272, 10.1431, 2)
	pt3dadd(48.8978, 51.9221, 10.1529, 2)
	pt3dadd(48.9754, 51.6193, 10.1646, 2)
	pt3dadd(49.066, 51.3202, 10.18, 2)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
  shape3d_18()
  shape3d_19()
  shape3d_20()
  shape3d_21()
  shape3d_22()
  shape3d_23()
  shape3d_24()
  shape3d_25()
  shape3d_26()
  shape3d_27()
}

objref all, somatic, bottom_dendrite, top_dedrite, axon
proc subsets() { local i
  objref all, somatic, bottom_dendrite, top_dedrite, axon
  all = new SectionList()
    for i=0, 729 soma[i] all.append()

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

  bottom_dendrite = new SectionList()
    for i=3, 550 soma[i] bottom_dendrite.append()

  top_dedrite = new SectionList()
    for i=551, 729 soma[i] top_dedrite.append()

  axon = new SectionList()
    for i=3, 16 soma[i] axon.append()

}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
  forsec all {
    Ra = 35.4
    cm = 1
  }
}
access soma

celldef()