GC model (Beining et al 2017)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:231818
A companion modeldb entry (NEURON only) to modeldb accession number 231862.
Reference:
1 . Beining M, Mongiat LA, Schwarzacher SW, Cuntz H, Jedlicka P (2017) T2N as a new tool for robust electrophysiological modeling demonstrated for mature and adult-born dentate granule cells eLife
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: Dentate gyrus;
Cell Type(s): Dentate gyrus granule GLU cell;
Channel(s): I A; I Calcium; I h; I K; I K,Ca; I K,leak; I Na,t; I M; Kir2 leak;
Gap Junctions:
Receptor(s):
Gene(s): Cav1.2 CACNA1C; Cav1.3 CACNA1D; Cav2.2 CACNA1B; Cav3.2 CACNA1H; HCN1; Nav1.2 SCN2A; Nav1.6 SCN8A; Kir2.1 KCNJ2; Kv1.1 KCNA1; Kv1.4 KCNA4; Kv2.1 KCNB1; Kv3.3 KCNC3; Kv3.4 KCNC4; Kv4.2 KCND2; KCa1.1 KCNMA1; KCa2.2 KCNN2;
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Methods; Neurogenesis; Conductance distributions;
Implementer(s): Beining, Marcel [beining at fias.uni-frankfurt.de];
Search NeuronDB for information about:  Dentate gyrus granule GLU cell; I Na,t; I A; I K; I K,leak; I M; I h; I K,Ca; I Calcium; Kir2 leak;
/
BeiningEtAl2017nrn
morphos
cell_mouse_matGC_art_01.hoc
cell_mouse_matGC_art_02.hoc
cell_mouse_matGC_art_03.hoc
cell_mouse_matGC_art_04.hoc
cell_mouse_matGC_art_05.hoc
cell_mouse_matGC_art_06.hoc
cell_mouse_matGC_art_07.hoc
cell_mouse_matGC_art_08.hoc
cell_mouse_matGC_art_09.hoc
cell_mouse_matGC_art_10.hoc
cell_mouse_matGC_art_11.hoc
cell_mouse_matGC_art_12.hoc
cell_mouse_matGC_art_13.hoc
cell_mouse_matGC_art_14.hoc
cell_mouse_matGC_art_15.hoc
cell_rat_matGC_art_01.hoc
cell_rat_matGC_art_02.hoc
cell_rat_matGC_art_03.hoc
cell_rat_matGC_art_04.hoc
cell_rat_matGC_art_05.hoc
cell_rat_matGC_art_06.hoc
cell_rat_matGC_art_07.hoc
cell_rat_matGC_art_08.hoc
cell_rat_matGC_art_09.hoc
cell_rat_matGC_art_10.hoc
cell_rat_matGC_art_11.hoc
cell_rat_matGC_art_12.hoc
cell_rat_matGC_art_13.hoc
cell_rat_matGC_art_14.hoc
cell_rat_matGC_art_15.hoc
cell_rat_mGC_Beining_01.hoc
cell_rat_mGC_Beining_02.hoc
cell_rat_mGC_Beining_03.hoc
cell_rat_mGC_Beining_04.hoc
cell_rat_mGC_Beining_05.hoc
cell_rat_mGC_Claiborne_01.hoc
cell_rat_mGC_Claiborne_02.hoc
cell_rat_mGC_Claiborne_03.hoc
cell_rat_mGC_Claiborne_04.hoc
cell_rat_mGC_Claiborne_05.hoc
cell_rat_mGC_Claiborne_06.hoc
cell_rat_mGC_Claiborne_07.hoc
cell_rat_mGC_Claiborne_08.hoc
cell_rat_mGC_Claiborne_09.hoc
cell_rat_mGC_Claiborne_10.hoc
cell_rat_mGC_Claiborne_11.hoc
cell_rat_mGC_Claiborne_12.hoc
cell_rat_mGC_Claiborne_13.hoc
cell_SH07all2_01.hoc
cell_SH07all2_02.hoc
cell_SH07all2_03.hoc
cell_SH07all2_04.hoc
cell_SH07all2_05.hoc
cell_SH07all2_06.hoc
cell_SH07all2_07.hoc
cell_SH07all2_08.hoc
                            
/*
This is a CellBuilder-like file written for the simulator NEURON
by an automatic procedure "neuron_template_tree" 
in MATLAB, based on a script of Hermann Cuntz
copyright 2014 Marcel Beining
*/

begintemplate cell_rat_mGC_Claiborne_02

proc celldef() {
  topol()
  subsets()
  geom()
  biophys()
  geom_nseg()
is_artificial = 0
}

public axon
public GCL
public adendIML
public adendMML
public adendOML
public soma
public axonh

public allregobj
public allreg
public alladendreg
public allaxonreg
public regaxon
public regGCL
public regadendIML
public regadendMML
public regadendOML
public regsoma
public regaxonh
public is_artificial

create axon[1]
create GCL[13]
create adendIML[15]
create adendMML[19]
create adendOML[16]
create soma[3]
create axonh[1]

proc topol_1() {
  connect soma[1](0),soma[0](1)
  connect GCL[0](0),soma[1](1)
  connect GCL[1](0),GCL[0](1)
  connect GCL[2](0),GCL[1](1)
  connect GCL[3](0),GCL[2](1)
  connect GCL[4](0),GCL[3](1)
  connect adendIML[0](0),GCL[4](1)
  connect adendMML[0](0),adendIML[0](1)
  connect adendOML[0](0),adendMML[0](1)
  connect adendOML[1](0),adendOML[0](1)
  connect adendOML[2](0),adendOML[0](1)
  connect GCL[5](0),GCL[3](1)
  connect adendIML[1](0),GCL[5](1)
  connect adendMML[1](0),adendIML[1](1)
  connect adendOML[3](0),adendMML[1](1)
  connect GCL[6](0),GCL[2](1)
  connect adendIML[2](0),GCL[6](1)
  connect adendMML[2](0),adendIML[2](1)
  connect adendMML[3](0),adendMML[2](1)
  connect adendOML[4](0),adendMML[3](1)
  connect adendMML[4](0),adendMML[2](1)
  connect adendOML[5](0),adendMML[4](1)
  connect GCL[7](0),GCL[1](1)
  connect GCL[8](0),GCL[7](1)
  connect adendIML[3](0),GCL[8](1)
  connect adendIML[4](0),adendIML[3](1)
  connect adendMML[5](0),adendIML[4](1)
  connect adendMML[6](0),adendMML[5](1)
  connect adendOML[6](0),adendMML[6](1)
  connect adendMML[7](0),adendMML[5](1)
  connect adendOML[7](0),adendMML[7](1)
  connect adendIML[5](0),adendIML[3](1)
  connect adendMML[8](0),adendIML[5](1)
  connect adendOML[8](0),adendMML[8](1)
  connect GCL[9](0),GCL[7](1)
  connect adendIML[6](0),GCL[9](1)
  connect adendMML[9](0),adendIML[6](1)
  connect adendOML[9](0),adendMML[9](1)
  connect GCL[10](0),GCL[0](1)
  connect GCL[11](0),GCL[10](1)
  connect adendIML[7](0),GCL[11](1)
  connect adendIML[8](0),adendIML[7](1)
  connect adendIML[9](0),adendIML[8](1)
  connect adendMML[10](0),adendIML[9](1)
  connect adendMML[11](0),adendMML[10](1)
  connect adendOML[10](0),adendMML[11](1)
  connect adendMML[12](0),adendMML[10](1)
  connect adendOML[11](0),adendMML[12](1)
  connect adendIML[10](0),adendIML[8](1)
  connect adendMML[13](0),adendIML[10](1)
  connect adendIML[11](0),adendIML[7](1)
  connect adendMML[14](0),adendIML[11](1)
  connect adendOML[12](0),adendMML[14](1)
  connect GCL[12](0),GCL[10](1)
  connect adendIML[12](0),GCL[12](1)
  connect adendIML[13](0),adendIML[12](1)
  connect adendMML[15](0),adendIML[13](1)
  connect adendMML[16](0),adendMML[15](1)
  connect adendOML[13](0),adendMML[16](1)
  connect adendMML[17](0),adendMML[15](1)
  connect adendOML[14](0),adendMML[17](1)
  connect adendIML[14](0),adendIML[12](1)
  connect adendMML[18](0),adendIML[14](1)
  connect adendOML[15](0),adendMML[18](1)
  connect soma[2](0),soma[0](1)
  connect axonh[0](0),soma[2](1)
  connect axon[0](0),axonh[0](1)
}
proc topol() {
  topol_1()
  basic_shape()
}

proc shape3d_1() {
  soma[0] {pt3dclear()
    pt3dadd(-5.39871210110135, 168.883093029006, 0, 10.5)
    pt3dadd(-5.39861210110135, 168.883093029006, 0, 10.5)
  }
  soma[1] {pt3dclear()
    pt3dadd(-5.39861210110135, 168.883093029006, 0, 10.2667572303772)
    pt3dadd(-5.30909564323453, 167.957866042425, -0.368702898108817, 10.2667572303772)
    pt3dadd(-5.21957918536771, 167.032639055845, -0.737405796217633, 9.58775356515897)
    pt3dadd(-5.13006272750088, 166.107412069264, -1.10610869432645, 8.52332145975834)
    pt3dadd(-5.04054626963406, 165.182185082683, -1.47481159243527, 7.16804037792359)
    pt3dadd(-4.95102981176723, 164.256958096103, -1.84351449054408, 5.72768009120998)
    pt3dadd(-4.86151335390041, 163.331731109522, -2.2122173886529, 5.76694010945198)
    pt3dadd(-4.77199689603359, 162.406504122941, -2.58092028676172, 5.80620012769397)
    pt3dadd(-4.68248043816676, 161.481277136361, -2.94962318487053, 5.84546014593597)
    pt3dadd(-4.59296398029994, 160.55605014978, -3.31832608297935, 5.88472016417797)
    pt3dadd(-4.50344752243311, 159.630823163199, -3.68702898108817, 5.92398018241996)
  }
  GCL[0] {pt3dclear()
    pt3dadd(-4.50344752243311, 159.630823163199, -3.68702898108817, 5.96324020066196)
    pt3dadd(-4.41393106456629, 158.705596176619, -4.05573187919699, 5.96324020066196)
    pt3dadd(-4.32441460669947, 157.780369190038, -4.4244347773058, 6.00250021890396)
    pt3dadd(-4.23489814883264, 156.855142203457, -4.79313767541462, 6.04176023714595)
    pt3dadd(-4.14538169096582, 155.929915216877, -5.16184057352343, 6.08102025538795)
    pt3dadd(-4.05586523309899, 155.004688230296, -5.53054347163225, 6.12028027362994)
    pt3dadd(-3.96634877523217, 154.079461243715, -5.89924636974107, 6.15954029187194)
    pt3dadd(-3.87683231736535, 153.154234257135, -6.26794926784989, 6.19880031011394)
    pt3dadd(-3.78731585949852, 152.229007270554, -6.6366521659587, 6.23806032835593)
    pt3dadd(-3.6977994016317, 151.303780283973, -7.00535506406752, 6.27732034659793)
    pt3dadd(-3.59028058111865, 150.370405056862, -7.33126293157209, 6.31)
    pt3dadd(-3.39335775550738, 149.396563733593, -7.44464052127323, 6.31)
    pt3dadd(-3.19643492989611, 148.422722410324, -7.55801811097437, 6.31)
    pt3dadd(-3.13124243102343, 147.463269047426, -7.80133817575293, 6.24756741068151)
    pt3dadd(-3.12721898993825, 146.510496742727, -8.1049971083067, 6.15614421032911)
    pt3dadd(-3.12319554885307, 145.557724438027, -8.40865604086046, 6.06472100997672)
    pt3dadd(-3.1191721077679, 144.604952133328, -8.71231497341422, 5.97329780962432)
    pt3dadd(-3.11514866668272, 143.652179828629, -9.01597390596798, 5.88187460927193)
  }
  GCL[1] {pt3dclear()
    pt3dadd(-3.11514866668272, 143.652179828629, -9.01597390596798, 5.5227865266351)
    pt3dadd(-2.95040281356935, 142.686197574422, -9.1736187211481, 5.5227865266351)
    pt3dadd(-2.73510611665397, 141.71606049149, -9.28533878478238, 5.07951176782225)
    pt3dadd(-2.51980941973859, 140.745923408559, -9.39705884841666, 4.6362370090094)
    pt3dadd(-2.3045127228232, 139.775786325627, -9.50877891205094, 4.19296225019654)
    pt3dadd(-1.92703560824086, 139.135169521471, -9.03816575094486, 3.95417147918494)
    pt3dadd(-1.47235332643351, 138.651419178709, -8.29033580470826, 3.81272427591191)
    pt3dadd(-1.01767104462615, 138.167668835947, -7.54250585847165, 3.67127707263887)
    pt3dadd(-0.839989962596107, 137.434997460899, -7.23222247789638, 3.6)
    pt3dadd(-0.943679806616006, 136.449478295213, -7.36638801114919, 3.6)
    pt3dadd(-1.04736965063591, 135.463959129527, -7.500553544402, 3.6)
  }
  GCL[2] {pt3dclear()
    pt3dadd(-1.04736965063591, 135.463959129527, -7.500553544402, 3.46646063385551)
    pt3dadd(-0.76504213665455, 134.600726846436, -7.82651292791994, 3.46646063385551)
    pt3dadd(-0.35028184098023, 133.779448096497, -8.2182719253043, 3.2871072923613)
    pt3dadd(0.0644784546940889, 132.958169346559, -8.61003092268866, 3.1077539508671)
    pt3dadd(0.479238750368407, 132.13689059662, -9.00178992007302, 2.9284006093729)
    pt3dadd(0.893999046042727, 131.315611846682, -9.39354891745738, 2.74904726787869)
    pt3dadd(1.15811906033978, 130.541461411523, -9.04998627429146, 2.7)
    pt3dadd(1.36553800131747, 129.785050096387, -8.42964821705325, 2.7)
    pt3dadd(1.57295694229516, 129.028638781251, -7.80931015981504, 2.7)
    pt3dadd(1.78037588327285, 128.272227466115, -7.18897210257684, 2.7)
    pt3dadd(1.98779482425054, 127.515816150979, -6.56863404533863, 2.7)
    pt3dadd(2.17792878367001, 126.742816821341, -5.96686888958951, 2.7)
    pt3dadd(2.28906088682269, 125.894001157559, -5.44999209134058, 2.7)
    pt3dadd(2.40019298997537, 125.045185493778, -4.93311529309164, 2.7)
    pt3dadd(2.51132509312806, 124.196369829996, -4.4162384948427, 2.7)
    pt3dadd(2.62245719628074, 123.347554166215, -3.89936169659376, 2.7)
    pt3dadd(2.73358929943342, 122.498738502433, -3.38248489834483, 2.7)
    pt3dadd(2.84472140258611, 121.649922838652, -2.86560810009589, 2.7)
    pt3dadd(3.10058171039173, 120.787818030817, -2.45688674288101, 2.7)
    pt3dadd(3.46341088915876, 119.915891193207, -2.12810326262307, 2.7)
    pt3dadd(3.82624006792579, 119.043964355597, -1.79931978236513, 2.7)
    pt3dadd(4.18906924669282, 118.172037517987, -1.47053630210719, 2.7)
    pt3dadd(4.55189842545985, 117.300110680377, -1.14175282184925, 2.7)
    pt3dadd(4.91472760422688, 116.428183842767, -0.812969341591311, 2.7)
    pt3dadd(5.23147421238151, 115.577068188581, -0.407356042931751, 2.7)
    pt3dadd(5.48965249257153, 114.752402365644, 0.0959035879920378, 2.7)
    pt3dadd(5.74783077276155, 113.927736542707, 0.599163218915827, 2.7)
    pt3dadd(6.00600905295157, 113.10307071977, 1.10242284983962, 2.7)
    pt3dadd(6.26418733314159, 112.278404896833, 1.60568248076341, 2.7)
    pt3dadd(6.52236561333161, 111.453739073896, 2.1089421116872, 2.7)
    pt3dadd(6.72993928772866, 110.542083788065, 2.16134935119359, 2.7)
    pt3dadd(6.90833263162642, 109.580267430186, 1.95377982412303, 2.7)
    pt3dadd(7.08672597552418, 108.618451072306, 1.74621029705246, 2.7)
    pt3dadd(7.25420570458128, 107.648295529824, 1.57740453301236, 2.7)
    pt3dadd(7.40714465882202, 106.66702925939, 1.46024573997957, 2.7)
    pt3dadd(7.56008361306276, 105.685762988956, 1.34308694694678, 2.7)
    pt3dadd(7.7130225673035, 104.704496718523, 1.22592815391398, 2.7)
    pt3dadd(7.78914962341337, 103.720064767105, 1.1034341495396, 2.7)
    pt3dadd(7.73472126174688, 102.730252180479, 0.971872009074628, 2.7)
    pt3dadd(7.68029290008039, 101.740439593853, 0.84030986860966, 2.7)
    pt3dadd(7.6258645384139, 100.750627007228, 0.708747728144692, 2.7)
    pt3dadd(7.56564964526277, 99.7677041502368, 0.680557381937826, 2.65946198556444)
    pt3dadd(7.48961113709839, 98.8036216693112, 0.935043364358204, 2.5080703560521)
    pt3dadd(7.41357262893402, 97.8395391883856, 1.18952934677858, 2.35667872653976)
    pt3dadd(7.38523991722874, 96.9040199498044, 1.4198092118854, 2.25)
  }
  GCL[3] {pt3dclear()
    pt3dadd(7.38523991722874, 96.9040199498044, 1.4198092118854, 2.25)
    pt3dadd(7.88914446362328, 96.1583119559335, 1.99666744014736, 2.25)
    pt3dadd(8.29764744520992, 95.3848640552907, 2.48133604757522, 2.25)
    pt3dadd(8.70615042679655, 94.6114161546479, 2.96600465500308, 2.25)
    pt3dadd(9.11465340838319, 93.8379682540051, 3.45067326243094, 2.25)
    pt3dadd(9.52315638996982, 93.0645203533623, 3.9353418698588, 2.25)
    pt3dadd(9.93165937155646, 92.2910724527195, 4.42001047728666, 2.25)
    pt3dadd(10.2834569828887, 91.5191093651224, 4.94009801348225, 2.25)
    pt3dadd(10.5107368751479, 90.7504067365063, 5.5379609738112, 2.25)
    pt3dadd(10.738016767407, 89.9817041078901, 6.13582393414014, 2.25)
    pt3dadd(10.9652966596661, 89.213001479274, 6.73368689446908, 2.25)
    pt3dadd(11.1925765519253, 88.4442988506578, 7.33154985479803, 2.25)
    pt3dadd(11.4198564441844, 87.6755962220417, 7.92941281512697, 2.25)
    pt3dadd(11.6804125520358, 86.8636732717259, 8.37468581491507, 2.25)
    pt3dadd(12.0355339855191, 85.9289255433313, 8.38632418859421, 2.25)
    pt3dadd(12.3906554190024, 84.9941778149367, 8.39796256227336, 2.25)
    pt3dadd(12.7457768524857, 84.0594300865421, 8.4096009359525, 2.25)
    pt3dadd(13.1026334755698, 83.1806502130552, 8.6331611417602, 2.25)
    pt3dadd(13.4613110195623, 82.3606034239188, 9.0791136987241, 2.25)
    pt3dadd(13.8199885635547, 81.5405566347825, 9.52506625568799, 2.25)
    pt3dadd(14.1786661075472, 80.7205098456461, 9.97101881265188, 2.25)
    pt3dadd(14.5373436515397, 79.9004630565097, 10.4169713696158, 2.25)
    pt3dadd(14.8880957507191, 79.0731775967877, 10.8395282784681, 2.25)
    pt3dadd(15.0711757472302, 78.0927495505931, 10.7671227461344, 2.25)
    pt3dadd(15.2542557437413, 77.1123215043985, 10.6947172138007, 2.25)
    pt3dadd(15.4373357402524, 76.1318934582039, 10.6223116814669, 2.25)
    pt3dadd(15.6204157367635, 75.1514654120093, 10.5499061491332, 2.25)
    pt3dadd(15.8034957332746, 74.1710373658147, 10.4775006167995, 2.25)
    pt3dadd(15.9886383260394, 73.3140026633156, 10.8128053636529, 2.25)
    pt3dadd(16.1751311188818, 72.5377427134794, 11.4150021159674, 2.25)
    pt3dadd(16.3616239117243, 71.7614827636431, 12.0171988682818, 2.25)
    pt3dadd(16.5481167045667, 70.9852228138069, 12.6193956205963, 2.25)
    pt3dadd(16.7346094974091, 70.2089628639707, 13.2215923729108, 2.25)
    pt3dadd(16.9211022902516, 69.4327029141345, 13.8237891252253, 2.25)
    pt3dadd(17.1712673808799, 68.6224589973655, 14.2390926601345, 2.25)
    pt3dadd(17.5934622114079, 67.7203972383716, 14.1494483182247, 2.25)
    pt3dadd(18.0156570419358, 66.8183354793778, 14.0598039763148, 2.25)
    pt3dadd(18.4378518724637, 65.916273720384, 13.970159634405, 2.25)
    pt3dadd(18.8600467029916, 65.0142119613902, 13.8805152924951, 2.25)
    pt3dadd(19.2822415335196, 64.1121502023964, 13.7908709505853, 2.25)
    pt3dadd(19.6346754752999, 63.1823317050225, 13.6931617090864, 2.25)
    pt3dadd(19.9665461674291, 62.2443314205318, 13.5930751965028, 2.25)
    pt3dadd(20.2984168595584, 61.3063311360412, 13.4929886839192, 2.25)
    pt3dadd(20.6302875516877, 60.3683308515506, 13.3929021713357, 2.25)
    pt3dadd(20.9621582438169, 59.4303305670599, 13.2928156587521, 2.25)
    pt3dadd(21.1329379009995, 58.4587924695519, 13.1780596389768, 2.25)
    pt3dadd(21.222381414941, 57.4703208638292, 13.0558968684869, 2.25)
    pt3dadd(21.3118249288826, 56.4818492581065, 12.933734097997, 2.25)
    pt3dadd(21.4012684428241, 55.4933776523838, 12.8115713275071, 2.25)
    pt3dadd(21.4778203707982, 54.5043358289786, 12.6889995658827, 2.25)
    pt3dadd(21.4838191330999, 53.512173314083, 12.5641894745957, 2.25)
    pt3dadd(21.4898178954017, 52.5200107991875, 12.4393793833087, 2.25)
    pt3dadd(21.4958166577035, 51.527848284292, 12.3145692920218, 2.25)
    pt3dadd(21.5018154200052, 50.5356857693965, 12.1897592007348, 2.25)
    pt3dadd(21.507814182307, 49.543523254501, 12.0649491094478, 2.25)
    pt3dadd(21.5138129446088, 48.5513607396055, 11.9401390181608, 2.25)
    pt3dadd(21.6368260498838, 47.5678128356971, 11.8213948764565, 2.25)
    pt3dadd(21.7886712912071, 46.5863875573546, 11.7041453744622, 2.25)
    pt3dadd(21.9405165325305, 45.6049622790122, 11.5868958724679, 2.25)
    pt3dadd(22.0923617738538, 44.6235370006698, 11.4696463704735, 2.25)
    pt3dadd(22.3209506832297, 43.7245176125643, 11.66180281428, 2.25)
    pt3dadd(22.6221596725457, 42.9034762842572, 12.1467402143298, 2.25)
    pt3dadd(22.9233686618617, 42.0824349559501, 12.6316776143796, 2.25)
    pt3dadd(23.2245776511777, 41.2613936276431, 13.1166150144293, 2.25)
    pt3dadd(23.5257866404937, 40.4403522993361, 13.6015524144791, 2.25)
    pt3dadd(23.8269956298097, 39.619310971029, 14.0864898145289, 2.25)
    pt3dadd(24.1282046191257, 38.7982696427219, 14.5714272145786, 2.25)
    pt3dadd(24.421783002462, 37.9443175320634, 14.7948947988858, 2.25)
    pt3dadd(24.7005805577684, 37.0266157512521, 14.5118835541428, 2.25)
    pt3dadd(24.9793781130749, 36.1089139704409, 14.2288723093999, 2.25)
    pt3dadd(25.2581756683813, 35.1912121896295, 13.9458610646569, 2.25)
    pt3dadd(25.5369732236877, 34.2735104088183, 13.662849819914, 2.25)
    pt3dadd(25.8157707789941, 33.355808628007, 13.379838575171, 2.25)
    pt3dadd(25.9935092787187, 32.4402891981846, 13.4484969246868, 2.25)
    pt3dadd(26.0765063431103, 31.5268156915494, 13.8468405451677, 2.25)
    pt3dadd(26.1595034075018, 30.6133421849141, 14.2451841656487, 2.25)
    pt3dadd(26.2425004718934, 29.6998686782789, 14.6435277861297, 2.25)
    pt3dadd(26.325497536285, 28.7863951716436, 15.0418714066106, 2.25)
    pt3dadd(26.4084946006766, 27.8729216650084, 15.4402150270916, 2.25)
    pt3dadd(26.4914916650682, 26.9594481583731, 15.8385586475726, 2.25)
    pt3dadd(26.6412852606427, 26.0184673615526, 16.066536907395, 2.25)
    pt3dadd(26.8693846568837, 25.0452396749015, 16.0947952755413, 2.25)
    pt3dadd(27.0974840531246, 24.0720119882505, 16.1230536436877, 2.25)
    pt3dadd(27.3255834493656, 23.0987843015994, 16.151312011834, 2.25)
    pt3dadd(27.5536828456065, 22.1255566149483, 16.1795703799804, 2.25)
    pt3dadd(27.7817822418475, 21.1523289282972, 16.2078287481267, 2.25)
    pt3dadd(28.09097464704, 20.2208017387431, 16.3640660976726, 2.25)
    pt3dadd(28.4403859111797, 19.3099563124192, 16.5837758558473, 2.25)
    pt3dadd(28.7897971753193, 18.3991108860953, 16.803485614022, 2.25)
    pt3dadd(29.139208439459, 17.4882654597715, 17.0231953721967, 2.25)
    pt3dadd(29.4886197035987, 16.5774200334475, 17.2429051303715, 2.25)
    pt3dadd(29.8503404652031, 15.6676460368868, 17.4048186776765, 2.25)
    pt3dadd(30.2658136878993, 14.762550703027, 17.3143507947147, 2.25)
    pt3dadd(30.6812869105955, 13.8574553691671, 17.2238829117529, 2.25)
    pt3dadd(31.0967601332917, 12.9523600353073, 17.1334150287911, 2.25)
    pt3dadd(31.5122333559878, 12.0472647014474, 17.0429471458293, 2.25)
    pt3dadd(31.9264561198624, 11.1416131007005, 16.9523271011354, 2.25)
    pt3dadd(32.3389066606677, 10.2351731261239, 16.8614914039729, 2.25)
    pt3dadd(32.7513572014731, 9.32873315154731, 16.7706557068105, 2.25)
    pt3dadd(33.1638077422785, 8.42229317697073, 16.679820009648, 2.25)
    pt3dadd(33.5212323204586, 7.49780182331756, 16.7065273177436, 2.25)
    pt3dadd(33.8246562650594, 6.5555954518689, 16.8485873875889, 2.25)
    pt3dadd(34.1280802096603, 5.61338908042026, 16.9906474574341, 2.25)
    pt3dadd(34.4446670703159, 4.67510558192339, 17.0955092682862, 2.25)
    pt3dadd(34.8315809455868, 3.75778126467998, 17.0016276933272, 2.25)
    pt3dadd(35.2184948208576, 2.84045694743657, 16.9077461183683, 2.25)
  }
  GCL[4] {pt3dclear()
    pt3dadd(35.2184948208576, 2.84045694743657, 16.9077461183683, 2.25)
    pt3dadd(35.7282068973804, 1.99309759721951, 16.8307918133261, 2.25)
    pt3dadd(36.3364299302653, 1.20186541941493, 16.7674168728927, 2.25)
    pt3dadd(36.9446529631502, 0.41063324161033, 16.7040419324593, 2.25)
  }
  adendIML[0] {pt3dclear()
    pt3dadd(36.9446529631502, 0.41063324161033, 16.7040419324593, 2.25)
    pt3dadd(37.5613612058293, -0.373233685244284, 16.6421641007435, 2.25)
    pt3dadd(38.2701758397383, -1.07715130006602, 16.5965372851609, 2.25)
    pt3dadd(38.9789904736472, -1.78106891488775, 16.5509104695783, 2.25)
    pt3dadd(39.6878051075562, -2.48498652970949, 16.5052836539957, 2.25)
    pt3dadd(40.3966197414651, -3.18890414453122, 16.4596568384131, 2.25)
    pt3dadd(41.1054343753741, -3.89282175935295, 16.4140300228305, 2.25)
    pt3dadd(41.7717902387096, -4.63274375678796, 16.3610219074406, 2.25)
    pt3dadd(42.3617330063053, -5.43746288090682, 16.2947296587314, 2.25)
    pt3dadd(42.951675773901, -6.24218200502565, 16.2284374100222, 2.25)
    pt3dadd(43.5416185414967, -7.04690112914451, 16.162145161313, 2.25)
    pt3dadd(44.1315613090924, -7.85162025326335, 16.0958529126038, 2.25)
    pt3dadd(44.5800241962408, -8.73926066811969, 16.0097590021035, 2.25)
    pt3dadd(45.0100097995523, -9.63773061025745, 15.9210789929706, 2.25)
    pt3dadd(45.4399954028638, -10.5362005523952, 15.8323989838378, 2.25)
    pt3dadd(45.8699810061753, -11.434670494533, 15.743718974705, 2.25)
    pt3dadd(46.3054482857704, -12.3305199067543, 15.6557295514517, 2.25)
    pt3dadd(46.7526345806338, -13.2207670125799, 15.5692164989375, 2.25)
    pt3dadd(47.1998208754973, -14.1110141184056, 15.4827034464234, 2.25)
    pt3dadd(47.6470071703608, -15.0012612242313, 15.3961903939092, 2.25)
    pt3dadd(48.2051223978049, -15.7874164177041, 15.5678185324314, 2.25)
    pt3dadd(48.8139111337655, -16.5260213257429, 15.8573682946287, 2.25)
    pt3dadd(49.4226998697262, -17.2646262337816, 16.146918056826, 2.25)
    pt3dadd(50.0314886056868, -18.0032311418204, 16.4364678190233, 2.25)
    pt3dadd(50.6402773416475, -18.7418360498591, 16.7260175812206, 2.25)
    pt3dadd(51.2490660776081, -19.4804409578979, 17.0155673434179, 2.25)
    pt3dadd(51.7005569045849, -20.3501121121268, 17.0150958364856, 2.25)
    pt3dadd(52.1023398922286, -21.261201616731, 16.9229744739247, 2.25)
    pt3dadd(52.5041228798724, -22.1722911213353, 16.8308531113639, 2.25)
    pt3dadd(52.9315005714487, -23.0713989051043, 16.7419233381507, 2.25)
    pt3dadd(53.3919459961432, -23.9550265978389, 16.6571170205183, 2.25)
    pt3dadd(53.8523914208377, -24.8386542905736, 16.572310702886, 2.25)
    pt3dadd(54.3128368455322, -25.7222819833082, 16.4875043852536, 2.25)
    pt3dadd(54.7732822702267, -26.6059096760428, 16.4026980676213, 2.25)
    pt3dadd(55.2311513710384, -27.486664150532, 16.3389618747094, 2.25)
    pt3dadd(55.629699041143, -28.3012610203054, 16.7603781705612, 2.25)
    pt3dadd(56.0282467112475, -29.1158578900789, 17.1817944664131, 2.25)
    pt3dadd(56.4267943813521, -29.9304547598524, 17.603210762265, 2.25)
    pt3dadd(56.8253420514566, -30.7450516296258, 18.0246270581169, 2.25)
    pt3dadd(57.2491647490008, -31.5976386411654, 18.1889248699231, 2.25)
    pt3dadd(57.6976264266633, -32.4872597706658, 18.1025745971114, 2.25)
    pt3dadd(58.1460881043257, -33.3768809001662, 18.0162243242998, 2.25)
    pt3dadd(58.5945497819881, -34.2665020296666, 17.9298740514881, 2.25)
    pt3dadd(59.0430114596505, -35.156123159167, 17.8435237786764, 2.25)
    pt3dadd(59.5256412464355, -36.0276191504403, 17.7617097664104, 2.25)
    pt3dadd(60.0278652609734, -36.8887210023949, 17.6824971425313, 2.25)
    pt3dadd(60.5300892755112, -37.7498228543495, 17.6032845186522, 2.25)
    pt3dadd(61.0323132900491, -38.6109247063041, 17.5240718947731, 2.25)
    pt3dadd(61.5345373045869, -39.4720265582587, 17.444859270894, 2.25)
    pt3dadd(61.946957424248, -40.2991934709805, 17.7193884529785, 2.25)
    pt3dadd(62.3123610179515, -41.1085938608415, 18.1791179632357, 2.25)
    pt3dadd(62.677764611655, -41.9179942507025, 18.638847473493, 2.25)
  }
}
proc shape3d_2() {
  adendIML[0] {
    pt3dadd(63.0977893491028, -42.7561755742642, 18.8479055131594, 2.19706823088869)
    pt3dadd(63.581186371767, -43.6277489766846, 18.7661306840697, 2.08272421481249)
    pt3dadd(64.0645833944311, -44.4993223791051, 18.6843558549801, 1.96838019873628)
    pt3dadd(64.5479804170953, -45.3708957815255, 18.6025810258904, 1.85403618266008)
    pt3dadd(65.0309705513464, -46.2436150809524, 18.5957589757329, 1.8)
    pt3dadd(65.5135961111241, -47.1173611110117, 18.6560950677908, 1.8)
    pt3dadd(65.9962216709017, -47.9911071410711, 18.7164311598488, 1.8)
    pt3dadd(66.4788472306794, -48.8648531711304, 18.7767672519067, 1.8)
    pt3dadd(66.9614727904571, -49.7385992011898, 18.8371033439646, 1.8)
    pt3dadd(67.4440983502348, -50.6123452312491, 18.8974394360226, 1.8)
    pt3dadd(67.9267239100125, -51.4860912613085, 18.9577755280805, 1.8)
    pt3dadd(68.4093494697901, -52.3598372913678, 19.0181116201384, 1.8)
    pt3dadd(68.8919750295678, -53.2335833214272, 19.0784477121963, 1.8)
    pt3dadd(69.1344496872619, -54.1956787642367, 18.9774032456888, 1.8)
    pt3dadd(69.3628377524571, -55.1629565410044, 18.8668926387418, 1.8)
    pt3dadd(69.5912258176522, -56.1302343177721, 18.7563820317948, 1.8)
    pt3dadd(69.8196138828473, -57.0975120945398, 18.6458714248479, 1.8)
    pt3dadd(70.0480019480425, -58.0647898713075, 18.5353608179009, 1.8)
    pt3dadd(70.2984742781414, -59.0260447315813, 18.427045681587, 1.8)
    pt3dadd(70.6124475097729, -59.9699813506148, 18.3250433822678, 1.8)
    pt3dadd(70.9264207414045, -60.9139179696483, 18.2230410829487, 1.8)
    pt3dadd(71.2403939730361, -61.8578545886818, 18.1210387836295, 1.8)
    pt3dadd(71.5543672046677, -62.8017912077154, 18.0190364843103, 1.8)
    pt3dadd(71.8683404362992, -63.7457278267489, 17.9170341849912, 1.8)
    pt3dadd(72.1871512638592, -64.6880818455693, 17.8155468717882, 1.8)
    pt3dadd(72.5113010651229, -65.6286892404369, 17.7146279188561, 1.8)
    pt3dadd(72.8354508663867, -66.5692966353046, 17.613708965924, 1.8)
    pt3dadd(73.1596006676504, -67.5099040301723, 17.5127900129919, 1.8)
    pt3dadd(73.4837504689142, -68.45051142504, 17.4118710600598, 1.8)
    pt3dadd(73.8079002701779, -69.3911188199076, 17.3109521071277, 1.8)
    pt3dadd(74.1695352386051, -70.3183104444297, 17.2141727775375, 1.8)
    pt3dadd(74.5351380932372, -71.2440819805779, 17.1178316360519, 1.8)
    pt3dadd(74.9007409478693, -72.169853516726, 17.0214904945664, 1.8)
    pt3dadd(75.2663438025013, -73.0956250528742, 16.9251493530808, 1.8)
    pt3dadd(75.6275168910819, -74.0235777680396, 16.8647131011177, 1.8)
    pt3dadd(75.9724849400918, -74.9595097064581, 16.9356246785258, 1.8)
    pt3dadd(76.3174529891018, -75.8954416448765, 17.0065362559339, 1.8)
    pt3dadd(76.6624210381117, -76.831373583295, 17.0774478333419, 1.8)
    pt3dadd(77.0073890871217, -77.7673055217135, 17.14835941075, 1.8)
    pt3dadd(77.3523571361316, -78.703237460132, 17.219270988158, 1.8)
    pt3dadd(77.6973251851415, -79.6391693985505, 17.2901825655661, 1.8)
    pt3dadd(78.0422932341515, -80.5751013369689, 17.3610941429741, 1.8)
    pt3dadd(78.3872612831614, -81.5110332753874, 17.4320057203822, 1.8)
    pt3dadd(78.6902447051384, -82.4533703895315, 17.4797806398009, 1.8)
    pt3dadd(78.6715842587247, -83.4447775000935, 17.3503058203689, 1.8)
    pt3dadd(78.6529238123111, -84.4361846106554, 17.2208310009369, 1.8)
    pt3dadd(78.9683324500778, -85.3404480878379, 17.1240540573176, 1.8)
    pt3dadd(79.4877936029528, -86.1914834202781, 17.0472492814749, 1.8)
    pt3dadd(80.0072547558277, -87.0425187527183, 16.9704445056323, 1.8)
    pt3dadd(80.55024131605, -87.8787492994179, 16.897063900884, 1.8)
    pt3dadd(81.1082052578751, -88.7055544226887, 16.825863284622, 1.8)
    pt3dadd(81.6661691997002, -89.5323595459597, 16.7546626683601, 1.8)
    pt3dadd(82.2241331415253, -90.3591646692305, 16.6834620520981, 1.8)
    pt3dadd(82.8063027479245, -91.1675892838198, 16.6161918917304, 1.8)
    pt3dadd(83.4658649914807, -91.9172459998956, 16.5614885562047, 1.8)
    pt3dadd(84.1254272350369, -92.6669027159714, 16.5067852206791, 1.8)
    pt3dadd(84.784989478593, -93.4165594320471, 16.4520818851534, 1.8)
    pt3dadd(85.4445517221492, -94.1662161481229, 16.3973785496277, 1.8)
    pt3dadd(85.7501601333289, -95.0904157022339, 16.2973936314303, 1.8)
    pt3dadd(85.960524043782, -96.061582527055, 16.1852240118984, 1.8)
    pt3dadd(86.1708879542352, -97.032749351876, 16.0730543923665, 1.8)
    pt3dadd(86.3812518646883, -98.0039161766971, 15.9608847728347, 1.8)
    pt3dadd(86.7205811547631, -98.9271869890923, 15.8631823938276, 1.8)
    pt3dadd(87.2141189954828, -99.7931868138818, 15.7827790155269, 1.8)
    pt3dadd(87.7076568362026, -100.659186638671, 15.7023756372262, 1.8)
    pt3dadd(88.2011946769223, -101.525186463461, 15.6219722589255, 1.8)
    pt3dadd(88.6947325176421, -102.39118628825, 15.5415688806248, 1.8)
    pt3dadd(89.3053605589865, -103.18051735731, 15.4785941471773, 1.8)
    pt3dadd(89.9167187463187, -103.969370338673, 15.4157280945164, 1.8)
    pt3dadd(90.2675117826778, -104.836657739894, 15.5918619110487, 1.8)
    pt3dadd(90.4321016190162, -105.759995383885, 15.9387881005523, 1.8)
    pt3dadd(90.5966914553546, -106.683333027876, 16.2857142900558, 1.8)
    pt3dadd(90.761281291693, -107.606670671867, 16.6326404795594, 1.8)
    pt3dadd(90.9258711280314, -108.530008315857, 16.979566669063, 1.8)
    pt3dadd(91.0904609643698, -109.453345959848, 17.3264928585666, 1.8)
    pt3dadd(91.3303119507357, -110.362676115309, 17.5789162917899, 1.8)
    pt3dadd(91.8341026183177, -111.222882226614, 17.4999200302898, 1.8)
    pt3dadd(92.3378932858997, -112.083088337919, 17.4209237687898, 1.8)
    pt3dadd(92.8416839534817, -112.943294449224, 17.3419275072898, 1.8)
    pt3dadd(93.3454746210638, -113.803500560529, 17.2629312457897, 1.8)
    pt3dadd(93.8013195340131, -114.684516864823, 17.1781678055614, 1.8)
    pt3dadd(94.1040421229672, -115.631993800256, 17.0749859711179, 1.8)
    pt3dadd(94.4067647119213, -116.57947073569, 16.9718041366743, 1.8)
  }
  adendMML[0] {pt3dclear()
    pt3dadd(94.4067647119213, -116.57947073569, 16.9718041366743, 1.8)
    pt3dadd(94.7094873008755, -117.526947671123, 16.8686223022308, 1.8)
    pt3dadd(95.0122098898296, -118.474424606556, 16.7654404677872, 1.8)
    pt3dadd(95.3400376068014, -119.413221224861, 16.6649916596092, 1.8)
    pt3dadd(95.7065900221168, -120.338628440727, 16.5687585486234, 1.8)
    pt3dadd(96.0731424374322, -121.264035656592, 16.4725254376377, 1.8)
    pt3dadd(96.4396948527476, -122.189442872458, 16.3762923266519, 1.8)
    pt3dadd(96.9929502116903, -123.003121072158, 16.3064882632149, 1.8)
    pt3dadd(97.6509977210228, -123.7540882956, 16.2515182279489, 1.8)
    pt3dadd(98.3090452303552, -124.505055519041, 16.1965481926829, 1.8)
    pt3dadd(98.9670927396877, -125.256022742484, 16.1415781574169, 1.8)
    pt3dadd(99.6251402490202, -126.006989965926, 16.0866081221509, 1.8)
    pt3dadd(100.260383337709, -126.769985231823, 16.028619432378, 1.8)
    pt3dadd(100.525323490296, -127.728294358406, 15.9216132014695, 1.8)
    pt3dadd(100.790263642883, -128.68660348499, 15.8146069705609, 1.8)
    pt3dadd(101.05520379547, -129.644912611574, 15.7076007396524, 1.8)
    pt3dadd(101.320143948057, -130.603221738158, 15.6005945087439, 1.8)
    pt3dadd(101.585084100644, -131.561530864742, 15.4935882778354, 1.8)
    pt3dadd(101.832874501778, -132.500686564334, 15.4621959418107, 1.8)
    pt3dadd(101.931169857888, -133.27288110193, 16.0899328445609, 1.8)
    pt3dadd(102.029465213997, -134.045075639526, 16.7176697473111, 1.8)
    pt3dadd(102.127760570107, -134.817270177122, 17.3454066500613, 1.8)
    pt3dadd(102.226055926216, -135.589464714718, 17.9731435528115, 1.8)
    pt3dadd(102.324351282325, -136.361659252314, 18.6008804555617, 1.8)
    pt3dadd(102.422646638435, -137.133853789909, 19.228617358312, 1.8)
    pt3dadd(102.596163007426, -138.030832122382, 19.3892849554256, 1.8)
    pt3dadd(102.813516765848, -139.000532100057, 19.2777533590202, 1.8)
    pt3dadd(103.03087052427, -139.970232077732, 19.1662217626148, 1.8)
    pt3dadd(103.248224282692, -140.939932055407, 19.0546901662094, 1.8)
    pt3dadd(103.560044951482, -141.69211154774, 18.6132533076123, 1.8)
    pt3dadd(103.953199566551, -142.257010653743, 17.8877752247687, 1.8)
    pt3dadd(104.34635418162, -142.821909759747, 17.162297141925, 1.8)
    pt3dadd(104.739508796689, -143.38680886575, 16.4368190590813, 1.8)
    pt3dadd(105.132663411758, -143.951707971754, 15.7113409762377, 1.8)
    pt3dadd(105.525818026827, -144.516607077757, 14.985862893394, 1.8)
    pt3dadd(105.918972641896, -145.081506183761, 14.2603848105503, 1.8)
    pt3dadd(106.155191813367, -145.899376840388, 13.9011631635486, 1.8)
    pt3dadd(106.288381958082, -146.883324783704, 13.7823909858523, 1.8)
    pt3dadd(106.421572102796, -147.86727272702, 13.663618808156, 1.8)
    pt3dadd(106.554762247511, -148.851220670337, 13.5448466304596, 1.8)
    pt3dadd(106.687952392225, -149.835168613653, 13.4260744527633, 1.8)
    pt3dadd(106.821142536939, -150.819116556969, 13.307302275067, 1.8)
    pt3dadd(106.92434508696, -151.804080099097, 13.1705843483126, 1.8)
    pt3dadd(107.015176557866, -152.78946261625, 13.0264630841573, 1.8)
    pt3dadd(107.106008028773, -153.774845133403, 12.8823418200019, 1.8)
    pt3dadd(107.196839499679, -154.760227650557, 12.7382205558466, 1.8)
    pt3dadd(107.287670970585, -155.74561016771, 12.5940992916913, 1.8)
    pt3dadd(107.378502441492, -156.730992684863, 12.449978027536, 1.8)
    pt3dadd(107.719387263759, -157.659525262721, 12.3484734130528, 1.8)
    pt3dadd(108.102166489215, -158.578533096099, 12.254108871255, 1.8)
    pt3dadd(108.484945714672, -159.497540929477, 12.1597443294572, 1.8)
    pt3dadd(108.886168686313, -160.40838341396, 12.0676190175169, 1.8)
    pt3dadd(109.32765142389, -161.301402239843, 11.9803815883874, 1.8)
    pt3dadd(109.769134161467, -162.194421065725, 11.8931441592579, 1.8)
    pt3dadd(110.210616899044, -163.087439891607, 11.8059067301284, 1.8)
    pt3dadd(110.652099636621, -163.98045871749, 11.7186693009989, 1.8)
    pt3dadd(111.093582374198, -164.873477543372, 11.6314318718694, 1.8)
    pt3dadd(111.535065111775, -165.766496369254, 11.5441944427399, 1.8)
    pt3dadd(112.067531082893, -166.608178961979, 11.4694337591622, 1.8)
    pt3dadd(112.620227544121, -167.438446735548, 11.3974473304406, 1.8)
    pt3dadd(113.172924005348, -168.268714509117, 11.3254609017191, 1.8)
    pt3dadd(113.566275743943, -169.135311062047, 11.1133797554086, 1.8)
    pt3dadd(113.790071665948, -170.040564407299, 10.7522263721992, 1.8)
    pt3dadd(114.013867587953, -170.945817752552, 10.3910729889899, 1.8)
    pt3dadd(114.237663509958, -171.851071097804, 10.0299196057805, 1.8)
    pt3dadd(114.564630375613, -172.611753465873, 10.3746827657131, 1.8)
    pt3dadd(114.929681699947, -173.319068992348, 10.9800275241851, 1.8)
    pt3dadd(115.294733024282, -174.026384518822, 11.5853722826571, 1.8)
    pt3dadd(115.659784348617, -174.733700045296, 12.1907170411291, 1.8)
    pt3dadd(116.024835672952, -175.441015571771, 12.7960617996011, 1.8)
    pt3dadd(116.389886997287, -176.148331098245, 13.4014065580731, 1.8)
    pt3dadd(116.742348573086, -177.075264714185, 13.4805435381374, 1.8)
    pt3dadd(117.094411413579, -178.009153948481, 13.5430147668001, 1.8)
    pt3dadd(117.446474254073, -178.943043182776, 13.6054859954627, 1.8)
    pt3dadd(117.798537094566, -179.876932417072, 13.6679572241253, 1.8)
    pt3dadd(118.15059993506, -180.810821651367, 13.730428452788, 1.8)
    pt3dadd(118.502662775554, -181.744710885663, 13.7928996814506, 1.8)
    pt3dadd(118.814143280733, -182.684582177855, 13.8995630802291, 1.8)
    pt3dadd(119.033593161545, -183.638019286773, 14.1064433092248, 1.8)
    pt3dadd(119.253043042356, -184.591456395691, 14.3133235382205, 1.8)
    pt3dadd(119.472492923167, -185.54489350461, 14.5202037672161, 1.8)
    pt3dadd(119.691942803978, -186.498330613528, 14.7270839962118, 1.8)
    pt3dadd(119.935435925979, -187.450548439603, 14.892289937446, 1.8)
    pt3dadd(120.248467692868, -188.399239816145, 14.9369641469271, 1.8)
    pt3dadd(120.561499459757, -189.347931192688, 14.9816383564083, 1.8)
    pt3dadd(120.874531226646, -190.29662256923, 15.0263125658894, 1.8)
    pt3dadd(121.187562993535, -191.245313945772, 15.0709867753706, 1.8)
    pt3dadd(121.491557655724, -192.069604189794, 15.5030852140278, 1.8)
    pt3dadd(121.793292492533, -192.862786590573, 16.0320632545447, 1.8)
    pt3dadd(122.095027329343, -193.655968991353, 16.5610412950616, 1.8)
    pt3dadd(122.396762166153, -194.449151392132, 17.0900193355785, 1.8)
    pt3dadd(122.698497002963, -195.242333792912, 17.6189973760954, 1.8)
    pt3dadd(122.899554576398, -196.152151058078, 17.8825579922031, 1.8)
    pt3dadd(123.033971222159, -197.139172006593, 17.9704318366324, 1.8)
    pt3dadd(123.168387867919, -198.126192955108, 18.0583056810617, 1.8)
    pt3dadd(123.302804513679, -199.113213903624, 18.146179525491, 1.8)
    pt3dadd(123.43722115944, -200.100234852139, 18.2340533699202, 1.8)
    pt3dadd(123.5716378052, -201.087255800654, 18.3219272143495, 1.8)
    pt3dadd(123.706054450961, -202.074276749169, 18.4098010587788, 1.8)
    pt3dadd(123.840471096721, -203.061297697684, 18.4976749032081, 1.8)
    pt3dadd(124.020406734005, -204.03827604048, 18.3856960766669, 1.8)
    pt3dadd(124.20098788585, -205.015111966935, 18.2708830966263, 1.8)
    pt3dadd(124.385547913625, -205.989418252503, 18.1764786076778, 1.8)
    pt3dadd(124.640416192922, -206.919024821168, 18.4426999210672, 1.8)
    pt3dadd(124.89528447222, -207.848631389833, 18.7089212344566, 1.8)
    pt3dadd(125.150152751517, -208.778237958498, 18.975142547846, 1.8)
    pt3dadd(125.405021030814, -209.707844527163, 19.2413638612354, 1.8)
    pt3dadd(125.659889310111, -210.637451095828, 19.5075851746249, 1.8)
    pt3dadd(125.914757589409, -211.567057664493, 19.7738064880143, 1.8)
    pt3dadd(126.169625868706, -212.496664233158, 20.0400278014037, 1.8)
    pt3dadd(126.297572399127, -213.436853570704, 20.3391504577287, 1.8)
    pt3dadd(126.350707028875, -214.383280744249, 20.6576662599999, 1.8)
    pt3dadd(126.403841658622, -215.329707917795, 20.9761820622711, 1.8)
    pt3dadd(126.45697628837, -216.27613509134, 21.2946978645423, 1.8)
    pt3dadd(126.510110918118, -217.222562264885, 21.6132136668135, 1.8)
    pt3dadd(126.563245547865, -218.168989438431, 21.9317294690846, 1.8)
    pt3dadd(126.616380177613, -219.115416611976, 22.2502452713558, 1.8)
    pt3dadd(126.669514807361, -220.061843785522, 22.568761073627, 1.8)
    pt3dadd(126.71713063999, -221.003770229968, 22.8988902412941, 1.8)
    pt3dadd(126.719484899365, -221.908784630822, 23.3242646548518, 1.8)
    pt3dadd(126.721839158741, -222.813799031676, 23.7496390684095, 1.8)
    pt3dadd(126.724193418116, -223.71881343253, 24.1750134819673, 1.8)
    pt3dadd(126.726547677491, -224.623827833384, 24.600387895525, 1.8)
    pt3dadd(126.728901936867, -225.528842234238, 25.0257623090827, 1.8)
    pt3dadd(126.731256196242, -226.433856635092, 25.4511367226404, 1.8)
    pt3dadd(126.712418580932, -227.37359419768, 25.7713976148772, 1.8)
    pt3dadd(126.670274227121, -228.35152015381, 25.9760550793588, 1.8)
    pt3dadd(126.628129873311, -229.329446109941, 26.1807125438403, 1.8)
    pt3dadd(126.5859855195, -230.307372066071, 26.3853700083219, 1.8)
    pt3dadd(126.543841165689, -231.285298022202, 26.5900274728034, 1.8)
    pt3dadd(126.501696811879, -232.263223978332, 26.794684937285, 1.8)
    pt3dadd(126.459552458068, -233.241149934463, 26.9993424017666, 1.8)
  }
  adendOML[0] {pt3dclear()
    pt3dadd(126.459552458068, -233.241149934463, 26.9993424017666, 1.8)
    pt3dadd(126.41725345828, -234.219017966353, 27.2041728195074, 1.8)
    pt3dadd(126.295427179998, -235.167098238566, 27.4979451043802, 1.8)
    pt3dadd(126.173600901717, -236.11517851078, 27.791717389253, 1.8)
    pt3dadd(126.051774623435, -237.063258782994, 28.0854896741257, 1.8)
    pt3dadd(125.929948345154, -238.011339055207, 28.3792619589985, 1.8)
    pt3dadd(125.915930090089, -238.974123080659, 28.6117125507997, 1.8)
    pt3dadd(126.031960048352, -239.954644161116, 28.7701911284209, 1.8)
    pt3dadd(126.147990006615, -240.935165241573, 28.9286697060421, 1.8)
    pt3dadd(126.264019964878, -241.91568632203, 29.0871482836633, 1.8)
    pt3dadd(126.380049923141, -242.896207402487, 29.2456268612845, 1.8)
    pt3dadd(126.496079881404, -243.876728482944, 29.4041054389057, 1.8)
    pt3dadd(126.612109839667, -244.857249563401, 29.5625840165269, 1.8)
    pt3dadd(126.72813979793, -245.837770643859, 29.7210625941482, 1.8)
    pt3dadd(126.729906873723, -246.788467453542, 29.9519953063094, 1.8)
    pt3dadd(126.476644649698, -247.672597914396, 30.3446421884729, 1.8)
    pt3dadd(126.223382425673, -248.55672837525, 30.7372890706365, 1.8)
    pt3dadd(125.970120201648, -249.440858836103, 31.1299359528, 1.8)
    pt3dadd(125.716857977623, -250.324989296957, 31.5225828349635, 1.8)
    pt3dadd(125.463595753599, -251.209119757811, 31.9152297171271, 1.8)
    pt3dadd(125.210333529574, -252.093250218664, 32.3078765992906, 1.8)
    pt3dadd(124.957071305549, -252.977380679518, 32.7005234814541, 1.8)
    pt3dadd(124.70444190654, -253.86624625162, 33.0818524580393, 1.8)
    pt3dadd(124.454683147748, -254.776591380369, 33.4118408047568, 1.8)
    pt3dadd(124.204924388956, -255.686936509118, 33.7418291514742, 1.8)
    pt3dadd(123.955165630163, -256.597281637867, 34.0718174981917, 1.8)
    pt3dadd(123.705406871371, -257.507626766616, 34.4018058449091, 1.8)
  }
  adendOML[1] {pt3dclear()
    pt3dadd(123.705406871371, -257.507626766616, 34.4018058449091, 1.8)
    pt3dadd(123.699003376532, -258.497413167187, 34.2843971374051, 1.8)
    pt3dadd(123.698550636474, -259.489142141427, 34.1560482508538, 1.8)
    pt3dadd(123.698097896416, -260.480871115667, 34.0276993643025, 1.8)
    pt3dadd(123.697645156359, -261.472600089907, 33.8993504777512, 1.8)
    pt3dadd(123.697192416301, -262.464329064148, 33.7710015911999, 1.8)
    pt3dadd(123.705029185964, -263.455757670054, 33.6432231385314, 1.8)
  }
}
proc shape3d_3() {
  adendOML[1] {
    pt3dadd(123.794472699905, -264.444229275777, 33.5210603680415, 1.8)
    pt3dadd(123.883916213847, -265.4327008815, 33.3988975975516, 1.8)
    pt3dadd(123.973359727788, -266.421172487223, 33.2767348270617, 1.8)
    pt3dadd(124.06280324173, -267.409644092945, 33.1545720565718, 1.8)
    pt3dadd(124.152246755671, -268.398115698668, 33.0324092860819, 1.8)
    pt3dadd(124.241488402154, -269.386602029376, 32.9102316654675, 1.8)
    pt3dadd(124.314401607315, -270.376279419129, 32.7868528637045, 1.8)
    pt3dadd(124.387314812475, -271.365956808883, 32.6634740619416, 1.8)
    pt3dadd(124.460228017636, -272.355634198636, 32.5400952601787, 1.8)
    pt3dadd(124.904701644116, -272.957485616166, 32.4907237867965, 1.8)
    pt3dadd(125.90255397478, -272.981733441804, 32.5515741700215, 1.8)
    pt3dadd(126.900406305445, -273.005981267443, 32.6124245532466, 1.8)
    pt3dadd(127.89825863611, -273.030229093082, 32.6732749364717, 1.8)
    pt3dadd(128.852334822352, -273.141349688214, 32.7790842138472, 1.8)
    pt3dadd(129.554091395855, -273.75319285371, 33.1440303090179, 1.8)
    pt3dadd(130.255847969359, -274.365036019206, 33.5089764041887, 1.8)
    pt3dadd(130.957604542862, -274.976879184702, 33.8739224993594, 1.8)
    pt3dadd(131.659361116366, -275.588722350198, 34.2388685945301, 1.8)
    pt3dadd(132.361117689869, -276.200565515694, 34.6038146897008, 1.8)
    pt3dadd(132.844130309944, -276.960413736364, 34.7754518349311, 1.8)
    pt3dadd(133.00068911024, -277.941144933913, 34.6585943995517, 1.8)
    pt3dadd(133.157247910537, -278.921876131462, 34.5417369641722, 1.8)
    pt3dadd(133.313806710833, -279.902607329011, 34.4248795287927, 1.8)
    pt3dadd(133.151092415876, -280.838110185048, 34.2934006337329, 1.8)
    pt3dadd(132.739958254743, -281.738421793487, 34.1505450799094, 1.8)
    pt3dadd(132.328824093609, -282.638733401926, 34.0076895260859, 1.8)
    pt3dadd(131.917689932475, -283.539045010366, 33.8648339722624, 1.8)
    pt3dadd(131.60292145456, -284.406844381773, 33.5145060986289, 1.8)
    pt3dadd(131.333486371626, -285.259348992287, 33.0665768350891, 1.8)
    pt3dadd(131.064051288691, -286.111853602802, 32.6186475715493, 1.8)
    pt3dadd(130.74860921258, -286.940259101659, 32.1979574428309, 1.8)
    pt3dadd(129.934751621739, -287.507587526966, 32.0723617435833, 1.8)
    pt3dadd(129.120894030898, -288.074915952272, 31.9467660443357, 1.8)
    pt3dadd(128.307036440057, -288.642244377579, 31.8211703450881, 1.8)
    pt3dadd(127.493178849216, -289.209572802886, 31.6955746458405, 1.8)
    pt3dadd(126.679321258375, -289.776901228192, 31.5699789465929, 1.8)
    pt3dadd(125.85484050003, -290.328041849917, 31.4457965716869, 1.8)
    pt3dadd(125.00064507904, -290.8339026507, 31.325567486231, 1.8)
    pt3dadd(124.146449658049, -291.339763451484, 31.205338400775, 1.8)
    pt3dadd(123.292254237059, -291.845624252268, 31.0851093153191, 1.8)
    pt3dadd(122.465308798599, -292.392928610163, 30.9612652658331, 1.8)
    pt3dadd(121.65248674571, -292.9617127373, 30.8355476176845, 1.8)
    pt3dadd(120.839664692822, -293.530496864436, 30.7098299695358, 1.8)
    pt3dadd(120.026842639934, -294.099280991573, 30.5841123213872, 1.8)
    pt3dadd(119.214020587045, -294.668065118709, 30.4583946732386, 1.8)
    pt3dadd(118.522701081858, -295.369008048879, 30.3178813731599, 1.8)
    pt3dadd(117.872618056479, -296.114804061686, 30.1723466096338, 1.8)
    pt3dadd(117.222535031099, -296.860600074493, 30.0268118461078, 1.8)
    pt3dadd(116.57245200572, -297.6063960873, 29.8812770825817, 1.8)
    pt3dadd(115.92236898034, -298.352192100107, 29.7357423190556, 1.8)
    pt3dadd(115.27228595496, -299.097988112914, 29.5902075555296, 1.8)
    pt3dadd(114.622202929581, -299.843784125721, 29.4446727920035, 1.8)
    pt3dadd(113.925418912515, -300.547506067791, 29.3080005111068, 1.8)
    pt3dadd(113.221818805742, -301.245087227189, 29.172621724726, 1.8)
    pt3dadd(112.518218698969, -301.942668386587, 29.0372429383453, 1.8)
    pt3dadd(111.814618592196, -302.640249545985, 28.9018641519645, 1.8)
    pt3dadd(111.111018485423, -303.337830705382, 28.7664853655838, 1.8)
  }
  adendOML[2] {pt3dclear()
    pt3dadd(123.705406871371, -257.507626766616, 34.4018058449091, 1.8)
    pt3dadd(123.415494859455, -258.073718408528, 35.1685453593476, 1.8)
    pt3dadd(123.124600981935, -258.631392036177, 35.9459647294733, 1.8)
    pt3dadd(122.833707104415, -259.189065663826, 36.7233840995989, 1.8)
    pt3dadd(122.542813226896, -259.746739291475, 37.5008034697246, 1.8)
    pt3dadd(122.251919349376, -260.304412919124, 38.2782228398503, 1.8)
    pt3dadd(121.961025471857, -260.862086546773, 39.0556422099759, 1.8)
    pt3dadd(121.670131594337, -261.419760174422, 39.8330615801016, 1.8)
    pt3dadd(121.379237716818, -261.97743380207, 40.6104809502272, 1.8)
    pt3dadd(121.136680102697, -262.679280525578, 41.2589069853015, 1.8)
    pt3dadd(120.928307456013, -263.483091121356, 41.8161047654738, 1.8)
    pt3dadd(120.719934809329, -264.286901717134, 42.3733025456461, 1.8)
    pt3dadd(120.511562162645, -265.090712312912, 42.9305003258184, 1.8)
    pt3dadd(120.303189515961, -265.89452290869, 43.4876981059907, 1.8)
    pt3dadd(120.094816869277, -266.698333504468, 44.044895886163, 1.8)
    pt3dadd(120.597144507959, -267.116873109482, 44.7284101733165, 1.8)
    pt3dadd(121.211254527865, -267.474815428058, 45.431792132158, 1.8)
    pt3dadd(121.825364547771, -267.832757746634, 46.1351740909995, 1.8)
    pt3dadd(122.439474567676, -268.190700065211, 46.8385560498409, 1.8)
    pt3dadd(122.993832153196, -268.476880858517, 47.6158461954436, 1.8)
    pt3dadd(123.5203484321, -268.729624777682, 48.4275734398889, 1.8)
    pt3dadd(124.046864711003, -268.982368696846, 49.2393006843342, 1.8)
    pt3dadd(124.573380989907, -269.235112616011, 50.0510279287795, 1.8)
    pt3dadd(125.099897268811, -269.487856535175, 50.8627551732248, 1.8)
    pt3dadd(125.782262055106, -269.530073797592, 51.409572981038, 1.8)
    pt3dadd(126.726928145452, -269.217963530495, 51.5105341563605, 1.8)
    pt3dadd(127.671594235798, -268.905853263397, 51.6114953316829, 1.8)
  }
  GCL[5] {pt3dclear()
    pt3dadd(35.2184948208576, 2.84045694743657, 16.9077461183683, 2.22091804057642)
    pt3dadd(35.4695051507127, 1.90499439460956, 17.0202416146068, 2.22091804057642)
    pt3dadd(35.6114911781316, 0.954981018432963, 17.2982965608015, 2.16850600297177)
    pt3dadd(35.7534772055504, 0.0049676422563348, 17.5763515069962, 2.11609396536712)
  }
  adendIML[1] {pt3dclear()
    pt3dadd(35.7534772055504, 0.0049676422563348, 17.5763515069962, 2.06368192776248)
    pt3dadd(35.8954632329693, -0.945045733920293, 17.8544064531909, 2.06368192776248)
    pt3dadd(36.0374492603882, -1.89505911009689, 18.1324613993856, 2.01126989015783)
    pt3dadd(36.179435287807, -2.84507248627349, 18.4105163455803, 1.95885785255318)
    pt3dadd(36.3214213152259, -3.79508586245009, 18.688571291775, 1.90644581494854)
    pt3dadd(36.4634073426448, -4.74509923862669, 18.9666262379697, 1.85403377734389)
    pt3dadd(36.6053933700636, -5.69511261480332, 19.2446811841645, 1.80162173973924)
    pt3dadd(36.768272910157, -6.6624425554514, 19.4383095262693, 1.8)
    pt3dadd(36.9318195823844, -7.63032541588794, 19.629242117716, 1.8)
    pt3dadd(37.0953662546117, -8.5982082763245, 19.8201747091626, 1.8)
    pt3dadd(37.258912926839, -9.56609113676103, 20.0111073006093, 1.8)
    pt3dadd(37.4224595990664, -10.5339739971976, 20.2020398920559, 1.8)
    pt3dadd(37.5860062712937, -11.5018568576341, 20.3929724835026, 1.8)
    pt3dadd(37.749552943521, -12.4697397180707, 20.5839050749492, 1.8)
    pt3dadd(37.9130996157484, -13.4376225785072, 20.7748376663959, 1.8)
    pt3dadd(38.0766462879757, -14.4055054389437, 20.9657702578425, 1.8)
    pt3dadd(38.240192960203, -15.3733882993803, 21.1567028492892, 1.8)
    pt3dadd(38.487564271864, -16.3104437225329, 21.398452690595, 1.8)
    pt3dadd(38.7531272414128, -17.2408089625076, 21.6512309124639, 1.8)
    pt3dadd(39.0186902109617, -18.1711742024823, 21.9040091343328, 1.8)
    pt3dadd(39.2842531805105, -19.101539442457, 22.1567873562017, 1.8)
    pt3dadd(39.5498161500594, -20.0319046824317, 22.4095655780707, 1.8)
    pt3dadd(39.8153791196082, -20.9622699224064, 22.6623437999396, 1.8)
    pt3dadd(40.080942089157, -21.8926351623811, 22.9151220218085, 1.8)
    pt3dadd(40.3333090251939, -22.8289621726742, 23.1553125407744, 1.8)
    pt3dadd(40.5171674600876, -23.7962402978083, 23.3301527665678, 1.8)
    pt3dadd(40.7010258949813, -24.7635184229424, 23.5049929923611, 1.8)
    pt3dadd(40.884884329875, -25.7307965480765, 23.6798332181544, 1.8)
    pt3dadd(41.0687427647687, -26.6980746732107, 23.8546734439477, 1.8)
    pt3dadd(41.2526011996624, -27.6653527983448, 24.029513669741, 1.8)
    pt3dadd(41.4364596345561, -28.6326309234789, 24.2043538955344, 1.8)
    pt3dadd(41.6203180694498, -29.5999090486131, 24.3791941213277, 1.8)
    pt3dadd(41.8041765043435, -30.5671871737472, 24.554034347121, 1.8)
    pt3dadd(42.0571778140193, -31.5227906131028, 24.5698279057282, 1.8)
    pt3dadd(42.3618150005812, -32.4696754008338, 24.4668454638891, 1.8)
    pt3dadd(42.6664521871432, -33.4165601885649, 24.36386302205, 1.8)
    pt3dadd(42.9710893737051, -34.3634449762959, 24.2608805802109, 1.8)
    pt3dadd(43.275726560267, -35.310329764027, 24.1578981383718, 1.8)
    pt3dadd(43.6701686301476, -36.1474962536149, 24.4401906285295, 1.8)
    pt3dadd(44.0986478643494, -36.9430781477449, 24.868507095164, 1.8)
    pt3dadd(44.5271270985513, -37.7386600418749, 25.2968235617986, 1.8)
    pt3dadd(44.9556063327531, -38.5342419360049, 25.7251400284331, 1.8)
    pt3dadd(45.384085566955, -39.329823830135, 26.1534564950677, 1.8)
    pt3dadd(45.8125648011568, -40.1254057242649, 26.5817729617022, 1.8)
    pt3dadd(46.2410440353586, -40.9209876183949, 27.0100894283367, 1.8)
    pt3dadd(46.3485613691824, -41.8706842330474, 27.0019917950791, 1.8)
    pt3dadd(46.3686095668442, -42.8623804789896, 26.874961776758, 1.8)
    pt3dadd(46.3886577645061, -43.8540767249318, 26.7479317584369, 1.8)
    pt3dadd(46.4087059621679, -44.845772970874, 26.6209017401158, 1.8)
    pt3dadd(46.4476843323866, -45.8315579874197, 26.51067039943, 1.8)
    pt3dadd(46.8946313965859, -46.6899486799328, 26.7624713938891, 1.8)
    pt3dadd(47.3415784607851, -47.5483393724459, 27.0142723883481, 1.8)
    pt3dadd(47.7885255249844, -48.406730064959, 27.2660733828072, 1.8)
    pt3dadd(48.2354725891836, -49.265120757472, 27.5178743772663, 1.8)
    pt3dadd(48.6824196533829, -50.1235114499851, 27.7696753717254, 1.8)
    pt3dadd(49.1293667175822, -50.9819021424982, 28.0214763661845, 1.8)
    pt3dadd(49.5763137817814, -51.8402928350113, 28.2732773606435, 1.8)
    pt3dadd(49.9404609098173, -52.7306827503928, 28.4875055194002, 1.8)
    pt3dadd(50.0487719555751, -53.719944189038, 28.5856407494474, 1.8)
    pt3dadd(50.157083001333, -54.7092056276833, 28.6837759794945, 1.8)
    pt3dadd(50.2653940470909, -55.6984670663285, 28.7819112095417, 1.8)
    pt3dadd(50.3737050928488, -56.6877285049738, 28.8800464395888, 1.8)
    pt3dadd(50.4820161386067, -57.676989943619, 28.978181669636, 1.8)
    pt3dadd(50.5903271843645, -58.6662513822642, 29.0763168996831, 1.8)
    pt3dadd(50.6986382301224, -59.6555128209094, 29.1744521297302, 1.8)
    pt3dadd(50.928182608852, -60.6153562838101, 29.3231646221488, 1.8)
    pt3dadd(51.1837820184617, -61.5688773414144, 29.4827469974668, 1.8)
    pt3dadd(51.4393814280714, -62.5223983990188, 29.6423293727848, 1.8)
    pt3dadd(51.6949808376812, -63.4759194566233, 29.8019117481029, 1.8)
    pt3dadd(51.9505802472909, -64.4294405142277, 29.9614941234209, 1.8)
    pt3dadd(52.2061796569006, -65.3829615718321, 30.1210764987389, 1.8)
    pt3dadd(52.4684106649059, -66.3362629561423, 30.2660476176407, 1.8)
    pt3dadd(52.7675895729065, -67.2883404323655, 30.3296122326087, 1.8)
    pt3dadd(53.0667684809071, -68.2404179085887, 30.3931768475766, 1.8)
    pt3dadd(53.3659473889078, -69.1924953848118, 30.4567414625446, 1.8)
    pt3dadd(53.6651262969084, -70.144572861035, 30.5203060775126, 1.8)
    pt3dadd(53.9643052049091, -71.0966503372582, 30.5838706924806, 1.8)
    pt3dadd(54.2634841129098, -72.0487278134814, 30.6474353074486, 1.8)
    pt3dadd(54.3524486139653, -73.0223436917764, 30.5975576178115, 1.8)
    pt3dadd(54.2891342340067, -74.0115619439237, 30.4655025576699, 1.8)
    pt3dadd(54.2258198540482, -75.000780196071, 30.3334474975283, 1.8)
    pt3dadd(54.1625054740896, -75.9899984482184, 30.2013924373867, 1.8)
    pt3dadd(54.099191094131, -76.9792167003658, 30.0693373772451, 1.8)
    pt3dadd(54.0678973574576, -77.90653765713, 30.1819000477667, 1.8)
    pt3dadd(54.0991785269479, -78.7128986001963, 30.7724959484741, 1.8)
    pt3dadd(54.1304596964382, -79.5192595432627, 31.3630918491816, 1.8)
    pt3dadd(54.1617408659285, -80.325620486329, 31.9536877498891, 1.8)
    pt3dadd(54.1930220354188, -81.1319814293953, 32.5442836505966, 1.8)
    pt3dadd(54.2243032049091, -81.9383423724616, 33.1348795513041, 1.8)
    pt3dadd(54.2555843743994, -82.744703315528, 33.7254754520116, 1.8)
    pt3dadd(54.3494244871431, -83.5663482762843, 34.1664227320444, 1.8)
    pt3dadd(54.7300132776935, -84.4580499169693, 33.921432208744, 1.8)
    pt3dadd(55.1106020682439, -85.3497515576543, 33.6764416854435, 1.8)
    pt3dadd(55.4911908587944, -86.2414531983393, 33.431451162143, 1.8)
    pt3dadd(55.8717796493448, -87.1331548390243, 33.1864606388426, 1.8)
    pt3dadd(56.2523684398953, -88.0248564797093, 32.9414701155421, 1.8)
    pt3dadd(56.6329572304457, -88.9165581203944, 32.6964795922417, 1.8)
    pt3dadd(57.005458451457, -89.8105330003451, 32.464724295897, 1.8)
    pt3dadd(57.1034490535924, -90.7816668233748, 32.6822028917654, 1.8)
    pt3dadd(57.2014396557277, -91.7528006464045, 32.8996814876338, 1.8)
    pt3dadd(57.2994302578631, -92.7239344694343, 33.1171600835021, 1.8)
    pt3dadd(57.3974208599984, -93.6950682924639, 33.3346386793705, 1.8)
    pt3dadd(57.4954114621338, -94.6662021154936, 33.5521172752389, 1.8)
    pt3dadd(57.5934020642691, -95.6373359385233, 33.7695958711072, 1.8)
    pt3dadd(57.6913926664045, -96.608469761553, 33.9870744669756, 1.8)
    pt3dadd(57.9036963802694, -97.4932792880256, 34.3658875148332, 1.8)
    pt3dadd(58.1860884647675, -98.3251611214259, 34.8436189518051, 1.8)
    pt3dadd(58.4684805492657, -99.1570429548264, 35.321350388777, 1.8)
    pt3dadd(58.7508726337638, -99.9889247882267, 35.7990818257489, 1.8)
    pt3dadd(59.0332647182619, -100.820806621627, 36.2768132627208, 1.8)
    pt3dadd(59.3156568027601, -101.652688455027, 36.7545446996927, 1.8)
    pt3dadd(59.4136151783608, -102.634249720628, 36.6588553887986, 1.8)
    pt3dadd(59.5030586923024, -103.622721326351, 36.5366926183087, 1.8)
    pt3dadd(59.5925022062439, -104.611192932074, 36.4145298478188, 1.8)
    pt3dadd(59.6819457201855, -105.599664537796, 36.2923670773289, 1.8)
    pt3dadd(59.771389234127, -106.588136143519, 36.170204306839, 1.8)
    pt3dadd(59.8608327480686, -107.576607749242, 36.0480415363491, 1.8)
    pt3dadd(59.9502762620101, -108.565079354965, 35.9258787658592, 1.8)
    pt3dadd(60.0856756400845, -109.541812338726, 36.0260967328464, 1.8)
    pt3dadd(60.2367329436972, -110.514545779185, 36.2020835074557, 1.8)
    pt3dadd(60.38779024731, -111.487279219645, 36.378070282065, 1.8)
    pt3dadd(60.5388475509227, -112.460012660104, 36.5540570566744, 1.8)
    pt3dadd(60.6899048545354, -113.432746100563, 36.7300438312837, 1.8)
    pt3dadd(60.8409621581482, -114.405479541023, 36.906030605893, 1.8)
    pt3dadd(60.9920194617609, -115.378212981482, 37.0820173805023, 1.8)
    pt3dadd(61.1026313799749, -116.36127748846, 37.0622886615125, 1.8)
  }
  adendMML[1] {pt3dclear()
    pt3dadd(61.1026313799749, -116.36127748846, 37.0622886615125, 1.8)
    pt3dadd(61.1920748939164, -117.349749094183, 36.9401258910226, 1.8)
    pt3dadd(61.281518407858, -118.338220699905, 36.8179631205327, 1.8)
    pt3dadd(61.3709619217995, -119.326692305628, 36.6958003500428, 1.8)
    pt3dadd(61.4604054357411, -120.315163911351, 36.5736375795529, 1.8)
    pt3dadd(61.9463981443884, -121.099819027742, 36.9133464211011, 1.8)
    pt3dadd(62.4638799230353, -121.868289540091, 37.2897314372992, 1.8)
    pt3dadd(62.9813617016821, -122.63676005244, 37.6661164534972, 1.8)
    pt3dadd(63.498843480329, -123.405230564789, 38.0425014696953, 1.8)
    pt3dadd(64.0163252589758, -124.173701077139, 38.4188864858933, 1.8)
    pt3dadd(64.5338070376227, -124.942171589488, 38.7952715020913, 1.8)
    pt3dadd(64.807274132296, -125.88213914471, 38.9969172347764, 1.8)
    pt3dadd(65.078666914501, -126.823564556682, 39.1970775491718, 1.8)
    pt3dadd(65.350059696706, -127.764989968655, 39.3972378635672, 1.8)
    pt3dadd(65.6214524789109, -128.706415380628, 39.5973981779626, 1.8)
    pt3dadd(65.8928452611159, -129.647840792601, 39.7975584923581, 1.8)
    pt3dadd(66.1642380433208, -130.589266204574, 39.9977188067535, 1.8)
    pt3dadd(66.4108094156683, -131.550001781467, 39.9335691502263, 1.8)
    pt3dadd(66.6531505523887, -132.514028329665, 39.8243739680014, 1.8)
    pt3dadd(66.8954916891091, -133.478054877864, 39.7151787857766, 1.8)
    pt3dadd(67.2065866479817, -134.386263003158, 39.8162805020802, 1.8)
    pt3dadd(67.607680256581, -135.221404896872, 40.1926605420723, 1.8)
    pt3dadd(68.0087738651802, -136.056546790586, 40.5690405820644, 1.8)
    pt3dadd(68.4098674737794, -136.8916886843, 40.9454206220565, 1.8)
    pt3dadd(68.8118591705234, -137.725845134702, 41.3225127398462, 1.8)
    pt3dadd(69.3660639944243, -138.392983003483, 41.8202918848532, 1.8)
    pt3dadd(69.9202688183253, -139.060120872263, 42.3180710298602, 1.8)
    pt3dadd(70.4744736422263, -139.727258741044, 42.8158501748672, 1.8)
    pt3dadd(71.0286784661272, -140.394396609824, 43.3136293198742, 1.8)
    pt3dadd(71.5828832900282, -141.061534478605, 43.8114084648811, 1.8)
    pt3dadd(72.1370881139292, -141.728672347386, 44.3091876098881, 1.8)
    pt3dadd(72.5525906592132, -142.50719818651, 44.5879590264277, 1.8)
    pt3dadd(72.7180045580637, -143.486563312559, 44.4718461849936, 1.8)
    pt3dadd(72.8834184569142, -144.465928438608, 44.3557333435594, 1.8)
    pt3dadd(73.0488323557647, -145.445293564657, 44.2396205021253, 1.8)
  }
}
proc shape3d_4() {
  adendMML[1] {
    pt3dadd(73.315037678634, -146.315034802008, 44.6429178453729, 1.8)
    pt3dadd(73.5847076799165, -147.18100774732, 45.064069775674, 1.8)
    pt3dadd(73.8543776811989, -148.046980692631, 45.4852217059752, 1.8)
    pt3dadd(74.1240476824813, -148.912953637943, 45.9063736362763, 1.8)
    pt3dadd(74.4181663018595, -149.795163786576, 46.2596641382622, 1.8)
    pt3dadd(74.7587321872592, -150.708221228874, 46.4840321055986, 1.8)
    pt3dadd(75.0992980726591, -151.621278671171, 46.7084000729349, 1.8)
    pt3dadd(75.4398639580588, -152.534336113469, 46.9327680402713, 1.8)
    pt3dadd(75.7804298434586, -153.447393555767, 47.1571360076077, 1.8)
    pt3dadd(76.1549521725448, -154.322126313904, 47.4563161204808, 1.8)
    pt3dadd(76.5504089448199, -155.173231570566, 47.8016185724612, 1.8)
    pt3dadd(76.9458657170951, -156.024336827229, 48.1469210244416, 1.8)
    pt3dadd(77.3413224893702, -156.875442083891, 48.492223476422, 1.8)
    pt3dadd(77.7367792616453, -157.726547340553, 48.8375259284024, 1.8)
    pt3dadd(78.1322360339205, -158.577652597215, 49.1828283803828, 1.8)
    pt3dadd(78.6884549742853, -159.203386490973, 49.6833614100641, 1.8)
    pt3dadd(79.3221466616007, -159.72051188078, 50.2587014631147, 1.8)
    pt3dadd(79.9558383489161, -160.237637270587, 50.8340415161653, 1.8)
    pt3dadd(80.5895300362315, -160.754762660395, 51.4093815692159, 1.8)
    pt3dadd(81.1549534359018, -161.475547415712, 51.810034811126, 1.8)
    pt3dadd(81.7201606880272, -162.196976986848, 52.2101349686297, 1.8)
    pt3dadd(82.2853679401527, -162.918406557985, 52.6102351261335, 1.8)
    pt3dadd(82.6456785087574, -163.63703681399, 53.1554241980392, 1.8)
    pt3dadd(82.8223017438278, -164.353157518726, 53.8306836808172, 1.8)
    pt3dadd(82.9989249788982, -165.069278223462, 54.5059431635951, 1.8)
    pt3dadd(83.1755482139686, -165.785398928198, 55.1812026463731, 1.8)
    pt3dadd(83.3521714490391, -166.501519632934, 55.8564621291511, 1.8)
    pt3dadd(83.5287946841095, -167.21764033767, 56.531721611929, 1.8)
    pt3dadd(83.7729361000172, -167.961806326788, 57.0271087026287, 1.8)
    pt3dadd(84.2699682527916, -168.811016506151, 56.8487800443167, 1.8)
    pt3dadd(84.7670004055661, -169.660226685513, 56.6704513860048, 1.8)
    pt3dadd(85.2640325583406, -170.509436864876, 56.4921227276928, 1.8)
    pt3dadd(85.2581775339166, -171.267807766626, 57.0587492930289, 1.8)
    pt3dadd(85.1883768272535, -172.014627807976, 57.7201022148396, 1.8)
    pt3dadd(85.1185761205904, -172.761447849326, 58.3814551366502, 1.8)
    pt3dadd(85.0487754139273, -173.508267890676, 59.0428080584608, 1.8)
    pt3dadd(84.9789747072642, -174.255087932026, 59.7041609802715, 1.8)
    pt3dadd(84.9091740006011, -175.001907973376, 60.3655139020821, 1.8)
    pt3dadd(84.8088700372835, -175.812048770718, 60.9039285681956, 1.8)
    pt3dadd(84.6420637921271, -176.760239573965, 61.1743169503699, 1.8)
    pt3dadd(84.4752575469706, -177.708430377212, 61.4447053325441, 1.8)
    pt3dadd(84.3084513018142, -178.656621180459, 61.7150937147184, 1.8)
    pt3dadd(84.3842832359847, -179.400370692874, 62.3259265066802, 1.8)
    pt3dadd(84.5362653506442, -180.07995783299, 63.0436052341157, 1.8)
    pt3dadd(84.6882474653038, -180.759544973105, 63.7612839615511, 1.8)
    pt3dadd(84.8402295799633, -181.439132113221, 64.4789626889865, 1.8)
    pt3dadd(84.9922116946229, -182.118719253336, 65.1966414164219, 1.8)
    pt3dadd(85.1441938092824, -182.798306393451, 65.9143201438574, 1.8)
    pt3dadd(85.0726069042418, -183.603266321946, 66.4441000706635, 1.8)
    pt3dadd(84.8543870491786, -184.490454914488, 66.850642191628, 1.8)
    pt3dadd(84.6361671941153, -185.377643507031, 67.2571843125924, 1.8)
    pt3dadd(84.417947339052, -186.264832099574, 67.6637264335569, 1.8)
    pt3dadd(84.1997274839888, -187.152020692116, 68.0702685545214, 1.8)
    pt3dadd(83.9815076289255, -188.039209284659, 68.4768106754859, 1.8)
    pt3dadd(83.7632877738623, -188.926397877202, 68.8833527964504, 1.8)
    pt3dadd(83.545067918799, -189.813586469745, 69.2898949174149, 1.8)
    pt3dadd(83.3268480637358, -190.700775062287, 69.6964370383794, 1.8)
    pt3dadd(83.2290717039471, -191.605823321831, 70.0807711427702, 1.8)
    pt3dadd(83.3169652703578, -192.538403189009, 70.4308704319984, 1.8)
    pt3dadd(83.4048588367685, -193.470983056187, 70.7809697212266, 1.8)
    pt3dadd(83.4927524031792, -194.403562923364, 71.1310690104548, 1.8)
    pt3dadd(83.5806459695899, -195.336142790542, 71.481168299683, 1.8)
    pt3dadd(83.6685395360006, -196.26872265772, 71.8312675889112, 1.8)
    pt3dadd(83.7564331024113, -197.201302524898, 72.1813668781394, 1.8)
    pt3dadd(83.8275532593084, -198.149178570003, 72.4786907263616, 1.8)
    pt3dadd(83.857654460681, -199.13446103755, 72.6469535470301, 1.8)
    pt3dadd(83.8877556620537, -200.119743505098, 72.8152163676985, 1.8)
    pt3dadd(83.9178568634263, -201.105025972645, 72.983479188367, 1.8)
    pt3dadd(83.9479580647989, -202.090308440193, 73.1517420090355, 1.8)
    pt3dadd(83.9780592661716, -203.075590907741, 73.3200048297039, 1.8)
    pt3dadd(84.0081604675442, -204.060873375288, 73.4882676503725, 1.8)
    pt3dadd(84.0382616689168, -205.046155842836, 73.6565304710409, 1.8)
    pt3dadd(84.1043131367449, -205.966043428202, 74.0240785770581, 1.8)
    pt3dadd(84.1817588879279, -206.865204385061, 74.4547893028174, 1.8)
    pt3dadd(84.2592046391108, -207.76436534192, 74.8855000285767, 1.8)
    pt3dadd(84.3366503902938, -208.663526298779, 75.316210754336, 1.8)
    pt3dadd(84.4140961414768, -209.562687255638, 75.7469214800952, 1.8)
    pt3dadd(84.4915418926598, -210.461848212497, 76.1776322058545, 1.8)
    pt3dadd(84.5689876438428, -211.361009169356, 76.6083429316138, 1.8)
    pt3dadd(84.6213807742117, -212.25956104031, 77.0425261951959, 1.8)
    pt3dadd(84.621153390179, -213.15683358748, 77.4840031757857, 1.8)
    pt3dadd(84.6209260061463, -214.054106134651, 77.9254801563755, 1.8)
    pt3dadd(84.6206986221136, -214.951378681821, 78.3669571369652, 1.8)
    pt3dadd(84.6204712380809, -215.848651228992, 78.808434117555, 1.8)
    pt3dadd(84.6202438540482, -216.745923776162, 79.2499110981448, 1.8)
    pt3dadd(84.6200164700155, -217.643196323333, 79.6913880787346, 1.8)
    pt3dadd(84.7571553928111, -218.533163674012, 80.108574573568, 1.8)
    pt3dadd(85.0006403194702, -219.417475500623, 80.5069559032067, 1.8)
    pt3dadd(85.2441252461293, -220.301787327235, 80.9053372328454, 1.8)
    pt3dadd(85.4876101727883, -221.186099153846, 81.3037185624841, 1.8)
    pt3dadd(85.7310950994474, -222.070410980458, 81.7020998921228, 1.8)
    pt3dadd(85.9745800261065, -222.95472280707, 82.1004812217615, 1.8)
    pt3dadd(86.2180649527655, -223.839034633681, 82.4988625514002, 1.8)
    pt3dadd(86.4922546722869, -224.753982604761, 82.7930724735032, 1.8)
    pt3dadd(86.7691710635682, -225.671651151431, 83.0780316823254, 1.8)
    pt3dadd(87.0460874548496, -226.589319698101, 83.3629908911476, 1.8)
    pt3dadd(87.3230038461308, -227.506988244771, 83.6479500999698, 1.8)
    pt3dadd(87.5999202374122, -228.424656791441, 83.9329093087921, 1.8)
    pt3dadd(87.8768366286934, -229.34232533811, 84.2178685176143, 1.8)
    pt3dadd(88.1537530199747, -230.25999388478, 84.5028277264365, 1.8)
    pt3dadd(88.3387767954854, -231.184950354497, 84.8138487100359, 1.8)
    pt3dadd(88.3887374247381, -232.120618564304, 85.1631751142498, 1.8)
    pt3dadd(88.4386980539907, -233.056286774111, 85.5125015184638, 1.8)
    pt3dadd(88.4886586832434, -233.991954983918, 85.8618279226777, 1.8)
  }
  adendOML[3] {pt3dclear()
    pt3dadd(88.4886586832434, -233.991954983918, 85.8618279226777, 1.8)
    pt3dadd(88.538619312496, -234.927623193725, 86.2111543268917, 1.8)
    pt3dadd(88.5885799417486, -235.863291403532, 86.5604807311056, 1.8)
    pt3dadd(88.6385405710013, -236.798959613339, 86.9098071353196, 1.8)
    pt3dadd(88.688501200254, -237.734627823146, 87.2591335395335, 1.8)
    pt3dadd(88.8024940426913, -238.693170788433, 87.3606929664802, 1.8)
    pt3dadd(88.9726376095515, -239.671772939983, 87.2449821388211, 1.8)
    pt3dadd(89.1427811764117, -240.650375091533, 87.1292713111619, 1.8)
    pt3dadd(89.1550641416869, -241.621469770778, 87.0536973836826, 1.8)
    pt3dadd(88.863867550291, -242.578131688813, 87.0552847526282, 1.8)
    pt3dadd(88.5726709588952, -243.534793606848, 87.0568721215739, 1.8)
    pt3dadd(88.2814743674995, -244.491455524884, 87.0584594905196, 1.8)
    pt3dadd(88.6914571233168, -245.371062610976, 86.9846027917291, 1.8)
    pt3dadd(89.1749329160042, -246.242593313147, 86.902838538796, 1.8)
    pt3dadd(89.6584087086917, -247.114124015319, 86.8210742858629, 1.8)
    pt3dadd(90.1418845013792, -247.98565471749, 86.7393100329299, 1.8)
    pt3dadd(90.6253602940667, -248.857185419662, 86.6575457799968, 1.8)
    pt3dadd(91.1088360867541, -249.728716121833, 86.5757815270637, 1.8)
    pt3dadd(90.5311477290843, -250.445182170774, 86.9502615597082, 1.8)
    pt3dadd(89.9435238830005, -251.160196377353, 87.3290133252526, 1.8)
    pt3dadd(89.3559000369166, -251.875210583933, 87.7077650907971, 1.8)
    pt3dadd(88.7682761908328, -252.590224790513, 88.0865168563415, 1.8)
    pt3dadd(88.180652344749, -253.305238997092, 88.4652686218859, 1.8)
  }
  GCL[6] {pt3dclear()
    pt3dadd(7.38523991722874, 96.9040199498044, 1.4198092118854, 2.25)
    pt3dadd(7.05230865019113, 95.9149852610855, 1.1880058998881, 2.25)
    pt3dadd(6.81477894796142, 94.9536904791385, 1.0483922087249, 2.25)
    pt3dadd(6.57724924573171, 93.9923956971915, 0.908778517561704, 2.25)
    pt3dadd(6.339719543502, 93.0311009152446, 0.769164826398504, 2.25)
    pt3dadd(6.1021898412723, 92.0698061332976, 0.629551135235304, 2.25)
    pt3dadd(5.99698679077496, 91.0907389076656, 0.496123383613093, 2.25)
    pt3dadd(5.98479455970293, 90.0991796441205, 0.367043654842592, 2.25)
    pt3dadd(5.97260232863089, 89.1076203805754, 0.237963926072092, 2.25)
    pt3dadd(5.96041009755886, 88.1160611170304, 0.108884197301591, 2.25)
    pt3dadd(5.94821786648683, 87.1245018534853, -0.0201955314689088, 2.25)
    pt3dadd(5.99872986126756, 86.1506073338367, -0.210038604050611, 2.25)
    pt3dadd(6.151464393422, 85.2055104736535, -0.498940122841004, 2.25)
    pt3dadd(6.30419892557645, 84.2604136134703, -0.787841641631396, 2.25)
    pt3dadd(6.4569334577309, 83.3153167532871, -1.07674316042179, 2.25)
    pt3dadd(6.60966798988535, 82.3702198931038, -1.36564467921218, 2.25)
    pt3dadd(6.54996838413679, 81.4135551916169, -1.56926102399131, 2.25)
    pt3dadd(6.32945811103806, 80.4481337418117, -1.70831728495714, 2.25)
    pt3dadd(6.10894783793932, 79.4827122920064, -1.84737354592296, 2.25)
    pt3dadd(6.06194306936313, 78.5089159394146, -1.97638730333411, 2.25)
    pt3dadd(6.20329565821189, 77.526027802894, -2.09449893152065, 2.25)
    pt3dadd(6.34464824706064, 76.5431396663734, -2.2126105597072, 2.25)
    pt3dadd(6.4860008359094, 75.5602515298528, -2.33072218789374, 2.25)
    pt3dadd(6.62735342475816, 74.5773633933323, -2.44883381608028, 2.25)
    pt3dadd(6.78544471680342, 73.5970005490062, -2.56554531837353, 2.25)
    pt3dadd(6.9594474376618, 72.6190381897424, -2.68092589298267, 2.25)
    pt3dadd(7.13345015852018, 71.6410758304787, -2.7963064675918, 2.25)
    pt3dadd(7.27776257555416, 70.6594234801222, -2.91406839680014, 2.25)
    pt3dadd(7.3672060894957, 69.6709518743995, -3.03623116729005, 2.25)
    pt3dadd(7.45664960343725, 68.6824802686768, -3.15839393777995, 2.25)
    pt3dadd(7.53782668089889, 67.6968257366964, -3.21459654277395, 2.25)
    pt3dadd(7.58401726279883, 66.7230940614659, -2.99163229721738, 2.25)
    pt3dadd(7.63020784469877, 65.7493623862354, -2.76866805166081, 2.25)
    pt3dadd(7.6763984265987, 64.775630711005, -2.54570380610424, 2.25)
    pt3dadd(7.72258900849865, 63.8018990357745, -2.32273956054768, 2.25)
    pt3dadd(7.84775940788375, 62.8197160194805, -2.39654489458229, 2.25)
    pt3dadd(7.98481397907154, 61.836261321479, -2.5150054428472, 2.25)
    pt3dadd(8.12186855025933, 60.8528066234774, -2.63346599111212, 2.25)
    pt3dadd(8.25892312144711, 59.8693519254759, -2.75192653937703, 2.25)
    pt3dadd(8.3959776926349, 58.8858972274743, -2.87038708764195, 2.25)
    pt3dadd(8.5831451210411, 57.9105905698212, -2.97177964103035, 2.25)
    pt3dadd(8.8308326155722, 56.9451241002562, -3.05255959645723, 2.25)
    pt3dadd(9.07852011010329, 55.9796576306913, -3.13333955188412, 2.25)
    pt3dadd(9.32620760463439, 55.0141911611264, -3.214119507311, 2.25)
    pt3dadd(9.57389509916549, 54.0487246915615, -3.29489946273789, 2.25)
    pt3dadd(9.81480347602356, 53.0964390312082, -3.41761992603692, 2.23999161682758)
    pt3dadd(9.98700283925844, 52.2777460363557, -3.9654238685939, 2.12854434899382)
    pt3dadd(10.1592022024933, 51.4590530415032, -4.51322781115088, 2.01709708116007)
    pt3dadd(10.3314015657282, 50.6403600466507, -5.06103175370786, 1.90564981332631)
    pt3dadd(10.5137313660964, 49.8161235943065, -5.58534280700576, 1.8)
    pt3dadd(10.8806730147636, 48.8908660389182, -5.68153159362061, 1.8)
    pt3dadd(11.2476146634307, 47.96560848353, -5.77772038023546, 1.8)
    pt3dadd(11.6145563120979, 47.0403509281418, -5.87390916685031, 1.8)
    pt3dadd(11.9814979607651, 46.1150933727536, -5.97009795346517, 1.8)
    pt3dadd(12.2607791426646, 45.2099297871593, -6.20166520206602, 1.8)
    pt3dadd(12.377261504397, 44.3420837598159, -6.6846508459828, 1.8)
    pt3dadd(12.4937438661293, 43.4742377324727, -7.16763648989957, 1.8)
    pt3dadd(12.6102262278617, 42.6063917051294, -7.65062213381635, 1.8)
    pt3dadd(12.726708589594, 41.7385456777861, -8.13360777773312, 1.8)
    pt3dadd(12.8431909513264, 40.8706996504427, -8.61659342164989, 1.8)
    pt3dadd(12.9596733130587, 40.0028536230994, -9.09957906556667, 1.8)
    pt3dadd(13.069583650368, 39.1056885118481, -9.49486360790893, 1.8)
    pt3dadd(13.1590271643095, 38.1172169061254, -9.61702637839883, 1.8)
    pt3dadd(13.2484706782511, 37.1287453004027, -9.73918914888874, 1.8)
    pt3dadd(13.3379141921926, 36.14027369468, -9.86135191937864, 1.8)
    pt3dadd(13.7379857440552, 35.3701746528519, -10.22725619984, 1.8)
    pt3dadd(14.3104770535018, 34.7212872852233, -10.7284536506916, 1.8)
    pt3dadd(14.8829683629484, 34.0723999175948, -11.2296511015433, 1.8)
    pt3dadd(15.3409300523307, 33.371497921929, -11.7453688939034, 1.8)
    pt3dadd(15.562861812669, 32.563400870888, -12.2910111300363, 1.8)
    pt3dadd(15.7847935730073, 31.7553038198471, -12.8366533661692, 1.8)
    pt3dadd(16.0067253333455, 30.9472067688062, -13.382295602302, 1.8)
    pt3dadd(16.2286570936838, 30.1391097177652, -13.9279378384349, 1.8)
    pt3dadd(16.450588854022, 29.3310126667243, -14.4735800745678, 1.8)
    pt3dadd(16.6725206143603, 28.5229156156833, -15.0192223107007, 1.8)
    pt3dadd(16.8063675448695, 27.6326737065247, -15.3773469110414, 1.8)
    pt3dadd(16.831502095507, 26.6410504013012, -15.5040413264751, 1.8)
    pt3dadd(16.8566366461446, 25.6494270960779, -15.6307357419088, 1.8)
    pt3dadd(16.8817711967822, 24.6578037908545, -15.7574301573425, 1.8)
    pt3dadd(16.9069057474197, 23.6661804856311, -15.8841245727762, 1.8)
    pt3dadd(16.9700659512481, 22.7104025947752, -16.1356017045554, 1.8)
    pt3dadd(17.07324038732, 21.7923446801726, -16.5183871551366, 1.8)
    pt3dadd(17.1764148233919, 20.8742867655699, -16.9011726057177, 1.8)
    pt3dadd(17.2795892594639, 19.9562288509672, -17.2839580562989, 1.8)
    pt3dadd(17.3827636955358, 19.0381709363646, -17.6667435068801, 1.8)
    pt3dadd(17.4963951306759, 18.1139434576016, -18.0196647502426, 1.8)
    pt3dadd(17.6939219738472, 17.140218211915, -18.1329885877137, 1.8)
    pt3dadd(17.8914488170185, 16.1664929662283, -18.2463124251848, 1.8)
    pt3dadd(18.0889756601898, 15.1927677205416, -18.3596362626558, 1.8)
    pt3dadd(18.2865025033611, 14.2190424748549, -18.4729601001269, 1.8)
    pt3dadd(18.5165121786743, 13.2617824211158, -18.6302864297798, 1.8)
    pt3dadd(18.8062329679221, 12.3347892772335, -18.86849972805, 1.8)
    pt3dadd(19.09595375717, 11.4077961333512, -19.1067130263203, 1.8)
    pt3dadd(19.3856745464178, 10.4808029894689, -19.3449263245906, 1.8)
    pt3dadd(19.6753953356657, 9.55380984558653, -19.5831396228609, 1.8)
    pt3dadd(19.936203823981, 8.62526259642809, -19.8378201427829, 1.8)
    pt3dadd(20.0688875439302, 7.68982833474891, -20.1654751023627, 1.8)
    pt3dadd(20.2015712638794, 6.75439407306979, -20.4931300619425, 1.8)
    pt3dadd(20.3342549838286, 5.81895981139064, -20.8207850215223, 1.8)
    pt3dadd(20.4669387037779, 4.88352554971149, -21.1484399811021, 1.8)
    pt3dadd(20.5996224237271, 3.94809128803235, -21.4760949406818, 1.8)
    pt3dadd(20.7323061436763, 3.0126570263532, -21.8037499002616, 1.8)
    pt3dadd(20.9056295853943, 2.09295450022657, -22.1558013854612, 1.8)
    pt3dadd(21.081657705258, 1.17429896161591, -22.5094765222707, 1.8)
    pt3dadd(21.2576858251217, 0.255643423005212, -22.8631516590801, 1.8)
  }
  adendIML[2] {pt3dclear()
    pt3dadd(21.2576858251217, 0.255643423005212, -22.8631516590801, 1.8)
    pt3dadd(21.4337139449853, -0.663012115605453, -23.2168267958896, 1.8)
    pt3dadd(21.609742064849, -1.58166765421617, -23.570501932699, 1.8)
    pt3dadd(21.8375458230421, -2.50841562512846, -23.851244189301, 1.8)
    pt3dadd(22.1322881468715, -3.44562596460358, -24.0376945637296, 1.8)
    pt3dadd(22.4270304707008, -4.38283630407872, -24.2241449381581, 1.8)
    pt3dadd(22.7217727945302, -5.32004664355386, -24.4105953125867, 1.8)
    pt3dadd(23.0165151183596, -6.25725698302904, -24.5970456870153, 1.8)
    pt3dadd(23.3112574421889, -7.19446732250418, -24.7834960614438, 1.8)
    pt3dadd(23.6059997660183, -8.13167766197929, -24.9699464358724, 1.8)
    pt3dadd(23.8271126669629, -9.02383548157087, -25.3603858461481, 1.8)
    pt3dadd(24.0441427284916, -9.91349508514014, -25.7621366920337, 1.8)
    pt3dadd(24.2611727900203, -10.8031546887094, -26.1638875379193, 1.8)
    pt3dadd(24.478202851549, -11.6928142922787, -26.565638383805, 1.8)
    pt3dadd(24.6952329130777, -12.582473895848, -26.9673892296906, 1.8)
    pt3dadd(24.9122629746064, -13.4721334994172, -27.3691400755762, 1.8)
    pt3dadd(25.0514248250485, -14.3993640562357, -27.693121290702, 1.8)
  }
}
proc shape3d_5() {
  adendIML[2] {
    pt3dadd(25.0989536514564, -15.3708070074837, -27.9255854882269, 1.8)
    pt3dadd(25.1464824778642, -16.3422499587317, -28.1580496857518, 1.8)
    pt3dadd(25.194011304272, -17.3136929099797, -28.3905138832767, 1.8)
    pt3dadd(25.2415401306798, -18.2851358612277, -28.6229780808016, 1.8)
    pt3dadd(25.2890689570876, -19.2565788124757, -28.8554422783265, 1.8)
    pt3dadd(25.3365977834954, -20.2280217637236, -29.0879064758514, 1.8)
    pt3dadd(25.4972739013414, -21.1499547408374, -29.4205682728995, 1.8)
    pt3dadd(25.7186049963653, -22.045346858572, -29.806943093345, 1.8)
    pt3dadd(25.9399360913892, -22.9407389763066, -30.1933179137905, 1.8)
    pt3dadd(26.1612671864131, -23.8361310940412, -30.579692734236, 1.8)
    pt3dadd(26.382598281437, -24.7315232117758, -30.9660675546815, 1.8)
    pt3dadd(26.6039293764609, -25.6269153295104, -31.3524423751269, 1.8)
    pt3dadd(26.8252604714848, -26.522307447245, -31.7388171955724, 1.8)
    pt3dadd(27.0339808967826, -27.4452153260117, -32.0325873664588, 1.8)
    pt3dadd(27.2182872558237, -28.4213933028414, -32.1470763334803, 1.8)
    pt3dadd(27.4025936148647, -29.3975712796712, -32.2615653005019, 1.8)
    pt3dadd(27.5273155228953, -30.3814710271029, -32.3808742723034, 1.8)
    pt3dadd(27.6167590368369, -31.3699426328256, -32.5030370427933, 1.8)
    pt3dadd(27.7062025507784, -32.3584142385483, -32.6251998132832, 1.8)
    pt3dadd(27.79564606472, -33.346885844271, -32.7473625837731, 1.8)
    pt3dadd(27.9110701931128, -34.3326446599919, -32.8675083255551, 1.8)
    pt3dadd(28.0462452422156, -35.3163411649723, -32.9861206865868, 1.8)
    pt3dadd(28.1814202913184, -36.3000376699526, -33.1047330476184, 1.8)
    pt3dadd(28.3165953404213, -37.283734174933, -33.2233454086501, 1.8)
    pt3dadd(28.4517703895241, -38.2674306799133, -33.3419577696818, 1.8)
    pt3dadd(28.586945438627, -39.2511271848936, -33.4605701307135, 1.8)
    pt3dadd(28.5796827989058, -40.1786619970057, -33.1951477741879, 1.8)
    pt3dadd(28.514772349802, -41.0834668800393, -32.7742977329195, 1.8)
    pt3dadd(28.4498619006983, -41.988271763073, -32.353447691651, 1.8)
    pt3dadd(28.3849514515946, -42.8930766461066, -31.9325976503826, 1.8)
    pt3dadd(28.42590482042, -43.8074315672341, -31.7930494640583, 1.8)
    pt3dadd(28.6340366831546, -44.7368677599097, -32.0977287896767, 1.8)
    pt3dadd(28.8421685458893, -45.6663039525853, -32.4024081152951, 1.8)
    pt3dadd(29.050300408624, -46.5957401452609, -32.7070874409136, 1.8)
    pt3dadd(29.2584322713587, -47.5251763379365, -33.011766766532, 1.8)
    pt3dadd(29.3143874789742, -48.4859913963186, -33.2246108071257, 1.8)
    pt3dadd(29.2376703141255, -49.4741635322712, -33.3573899709442, 1.8)
    pt3dadd(29.1609531492768, -50.4623356682238, -33.4901691347627, 1.8)
    pt3dadd(29.1011403743072, -51.4202429452825, -33.7263075732536, 1.8)
    pt3dadd(29.0741478466309, -52.3193903285917, -34.1631203323825, 1.8)
    pt3dadd(29.0471553189545, -53.2185377119009, -34.5999330915115, 1.8)
    pt3dadd(29.0201627912782, -54.1176850952101, -35.0367458506404, 1.8)
    pt3dadd(28.9931702636019, -55.0168324785194, -35.4735586097693, 1.8)
    pt3dadd(28.9661777359255, -55.9159798618286, -35.9103713688982, 1.8)
    pt3dadd(28.9310462603071, -56.8468445830035, -36.2406091377806, 1.8)
    pt3dadd(28.8807246092611, -57.8369051523026, -36.3719400197357, 1.8)
    pt3dadd(28.8304029582151, -58.8269657216017, -36.5032709016908, 1.8)
    pt3dadd(28.7800813071691, -59.8170262909009, -36.6346017836458, 1.8)
    pt3dadd(28.7297596561231, -60.8070868602, -36.7659326656009, 1.8)
    pt3dadd(28.6794380050771, -61.7971474294991, -36.897263547556, 1.8)
    pt3dadd(28.6891357747293, -62.7575967341749, -37.1470887401681, 1.8)
    pt3dadd(28.7475439426572, -63.6940142092116, -37.4930812232731, 1.8)
    pt3dadd(28.8059521105851, -64.6304316842484, -37.839073706378, 1.8)
    pt3dadd(28.864360278513, -65.5668491592851, -38.1850661894829, 1.8)
    pt3dadd(28.9227684464409, -66.5032666343218, -38.5310586725879, 1.8)
    pt3dadd(28.9811766143688, -67.4396841093586, -38.8770511556928, 1.8)
    pt3dadd(29.1121468174525, -68.3983034712668, -39.0824297228144, 1.8)
    pt3dadd(29.3048359331742, -69.3758070377495, -39.168206655588, 1.8)
    pt3dadd(29.4975250488959, -70.3533106042321, -39.2539835883616, 1.8)
    pt3dadd(29.6902141646175, -71.3308141707148, -39.3397605211353, 1.8)
    pt3dadd(29.8829032803392, -72.3083177371975, -39.4255374539089, 1.8)
    pt3dadd(30.0406446501537, -73.2041026270084, -39.7635111804386, 1.8)
    pt3dadd(30.1698125476225, -74.0330738701188, -40.3076824148488, 1.8)
    pt3dadd(30.2989804450913, -74.8620451132292, -40.851853649259, 1.8)
    pt3dadd(30.42814834256, -75.6910163563395, -41.3960248836692, 1.8)
    pt3dadd(30.5573162400288, -76.5199875994499, -41.9401961180794, 1.8)
    pt3dadd(30.6864841374975, -77.3489588425603, -42.4843673524896, 1.8)
    pt3dadd(30.8246159986493, -78.2353598881035, -42.8675140244065, 1.8)
    pt3dadd(30.9775549528901, -79.2166261585372, -42.9846728174393, 1.8)
    pt3dadd(31.1304939071308, -80.1978924289709, -43.1018316104721, 1.8)
    pt3dadd(31.2834328613715, -81.1791586994046, -43.2189904035049, 1.8)
    pt3dadd(31.4161320967799, -82.162721732561, -43.337744257479, 1.8)
    pt3dadd(31.5055756107215, -83.1511933382837, -43.4599070279689, 1.8)
    pt3dadd(31.5895527329384, -84.1397503040174, -43.5087401428271, 1.8)
    pt3dadd(31.6600655851647, -85.1285175200025, -43.3769549757407, 1.8)
    pt3dadd(31.730578437391, -86.1172847359876, -43.2451698086543, 1.8)
    pt3dadd(31.8010912896174, -87.1060519519727, -43.1133846415679, 1.8)
    pt3dadd(31.8716041418437, -88.0948191679578, -42.9815994744815, 1.8)
    pt3dadd(31.9823024871248, -89.0680649209446, -42.9137279719744, 1.8)
    pt3dadd(32.3360589753417, -89.9474305772788, -43.2324322071274, 1.8)
    pt3dadd(32.6898154635585, -90.826796233613, -43.5511364422804, 1.8)
    pt3dadd(33.0435719517753, -91.7061618899471, -43.8698406774333, 1.8)
    pt3dadd(33.3973284399922, -92.5855275462814, -44.1885449125863, 1.8)
    pt3dadd(33.751084928209, -93.4648932026155, -44.5072491477392, 1.8)
    pt3dadd(34.0070368293278, -94.3918799748171, -44.733724960988, 1.8)
    pt3dadd(34.1480979780866, -95.3748071276548, -44.851860326248, 1.8)
    pt3dadd(34.2891591268453, -96.3577342804926, -44.9699956915079, 1.8)
    pt3dadd(34.4302202756041, -97.3406614333304, -45.0881310567679, 1.8)
    pt3dadd(34.5712814243628, -98.3235885861681, -45.2062664220279, 1.8)
    pt3dadd(34.6980589935868, -99.3084148219799, -45.322371016319, 1.8)
    pt3dadd(34.7867614162452, -100.298303364645, -45.4330622685209, 1.8)
    pt3dadd(34.8754638389036, -101.288191907311, -45.5437535207227, 1.8)
    pt3dadd(34.9641662615619, -102.278080449977, -45.6544447729246, 1.8)
    pt3dadd(35.0528686842203, -103.267968992642, -45.7651360251264, 1.8)
    pt3dadd(35.1674138821347, -104.251836511055, -45.8744729760852, 1.8)
    pt3dadd(35.5356342596955, -105.176601073459, -45.9705159751478, 1.8)
    pt3dadd(35.9038546372563, -106.101365635864, -46.0665589742104, 1.8)
    pt3dadd(36.2720750148171, -107.026130198269, -46.1626019732729, 1.8)
    pt3dadd(36.5226667239033, -107.972818929698, -46.2690247423121, 1.8)
    pt3dadd(36.5314072418907, -108.964584991855, -46.3967889051183, 1.8)
    pt3dadd(36.5401477598781, -109.956351054013, -46.5245530679244, 1.8)
    pt3dadd(36.5488882778655, -110.948117116171, -46.6523172307304, 1.8)
    pt3dadd(36.5576287958529, -111.939883178328, -46.7800813935365, 1.8)
    pt3dadd(36.5663693138402, -112.931649240486, -46.9078455563426, 1.8)
    pt3dadd(36.5751098318276, -113.923415302644, -47.0356097191487, 1.8)
    pt3dadd(36.5559873234564, -114.91469817626, -47.1650980935253, 1.8)
    pt3dadd(36.5288101213069, -115.905841368863, -47.2950849060841, 1.8)
    pt3dadd(36.5016329191574, -116.896984561467, -47.4250717186429, 1.8)
  }
  adendMML[2] {pt3dclear()
    pt3dadd(36.5016329191574, -116.896984561467, -47.4250717186429, 1.8)
    pt3dadd(36.4744557170079, -117.88812775407, -47.5550585312017, 1.8)
    pt3dadd(36.4882211805541, -118.853001894588, -47.7608790077857, 1.8)
    pt3dadd(36.6354827307996, -119.7322241706, -48.2139598230751, 1.8)
    pt3dadd(36.782744281045, -120.611446446613, -48.6670406383645, 1.8)
    pt3dadd(36.9300058312905, -121.490668722625, -49.1201214536539, 1.8)
    pt3dadd(37.077267381536, -122.369890998637, -49.5732022689433, 1.8)
    pt3dadd(37.2245289317815, -123.249113274649, -50.0262830842327, 1.8)
    pt3dadd(37.3709176319833, -124.129059025087, -50.4762189209095, 1.8)
    pt3dadd(37.3748871800536, -125.127050956606, -50.4130022513354, 1.8)
    pt3dadd(37.3788567281238, -126.125042888124, -50.3497855817613, 1.8)
    pt3dadd(37.382826276194, -127.123034819643, -50.2865689121872, 1.8)
    pt3dadd(37.3867958242643, -128.121026751161, -50.2233522426131, 1.8)
    pt3dadd(37.3907653723345, -129.11901868268, -50.160135573039, 1.8)
    pt3dadd(37.3947349204047, -130.117010614198, -50.0969189034649, 1.8)
    pt3dadd(37.398704468475, -131.115002545717, -50.0337022338908, 1.8)
    pt3dadd(37.5222632023314, -132.098300924695, -50.0843020831059, 1.8)
    pt3dadd(37.7124133933853, -133.073417417755, -50.1982789658671, 1.8)
    pt3dadd(37.9025635844393, -134.048533910815, -50.3122558486283, 1.8)
    pt3dadd(38.0927137754932, -135.023650403876, -50.4262327313894, 1.8)
    pt3dadd(38.2828639665471, -135.998766896936, -50.5402096141506, 1.8)
    pt3dadd(38.5504325012673, -136.952707194604, -50.6389286014076, 1.8)
    pt3dadd(38.9184391749197, -137.87917470541, -50.7178528661752, 1.8)
    pt3dadd(39.2864458485721, -138.805642216215, -50.7967771309428, 1.8)
    pt3dadd(39.6544525222245, -139.732109727021, -50.8757013957104, 1.8)
    pt3dadd(40.0224591958769, -140.658577237826, -50.954625660478, 1.8)
    pt3dadd(40.3904658695292, -141.585044748632, -51.0335499252456, 1.8)
    pt3dadd(40.6707526436527, -142.537003464204, -51.1320303806808, 1.8)
    pt3dadd(40.8955999688207, -143.505072758481, -51.242870453946, 1.8)
    pt3dadd(41.1204472939886, -144.473142052759, -51.3537105272113, 1.8)
    pt3dadd(41.3452946191566, -145.441211347037, -51.4645506004766, 1.8)
    pt3dadd(41.6933935285557, -146.262391651552, -51.8681012726702, 1.8)
    pt3dadd(42.0834030012864, -147.033623711211, -52.3711854816596, 1.8)
  }
  adendMML[3] {pt3dclear()
    pt3dadd(42.0834030012864, -147.033623711211, -52.3711854816596, 1.8)
    pt3dadd(42.1313542168726, -148.004699390743, -52.5339249823495, 1.8)
    pt3dadd(42.1439070920261, -148.99645614533, -52.6614434714216, 1.8)
    pt3dadd(42.1564599671797, -149.988212899918, -52.7889619604938, 1.8)
    pt3dadd(42.1690128423332, -150.979969654506, -52.9164804495659, 1.8)
    pt3dadd(42.1815657174867, -151.971726409093, -53.043998938638, 1.8)
    pt3dadd(42.202966104026, -152.962875265062, -53.1708714203175, 1.8)
    pt3dadd(42.3440272527847, -153.9458024179, -53.2890067855775, 1.8)
    pt3dadd(42.4850884015434, -154.928729570738, -53.4071421508374, 1.8)
    pt3dadd(42.6261495503021, -155.911656723576, -53.5252775160974, 1.8)
    pt3dadd(42.7672106990609, -156.894583876413, -53.6434128813574, 1.8)
    pt3dadd(42.9082718478196, -157.877511029251, -53.7615482466174, 1.8)
    pt3dadd(43.0038157460308, -158.86532736874, -53.8832350418015, 1.8)
    pt3dadd(43.0932592599723, -159.853798974463, -54.0053978122914, 1.8)
    pt3dadd(43.1827027739139, -160.842270580185, -54.1275605827813, 1.8)
    pt3dadd(43.2721462878554, -161.830742185908, -54.2497233532713, 1.8)
    pt3dadd(43.3686093125718, -162.81860206712, -54.3713568428458, 1.8)
    pt3dadd(43.4697167106017, -163.806057208304, -54.4926401401865, 1.8)
    pt3dadd(43.5708241086316, -164.793512349487, -54.6139234375273, 1.8)
    pt3dadd(43.6719315066615, -165.780967490671, -54.735206734868, 1.8)
    pt3dadd(43.7730389046914, -166.768422631854, -54.8564900322087, 1.8)
    pt3dadd(43.9407493474175, -167.738559190783, -55.0130736956494, 1.8)
    pt3dadd(44.1773765231026, -168.690775546304, -55.2061840061068, 1.8)
    pt3dadd(44.4140036987876, -169.642991901826, -55.3992943165642, 1.8)
    pt3dadd(44.6506308744727, -170.595208257347, -55.5924046270217, 1.8)
    pt3dadd(44.8224105542309, -171.570518825699, -55.7237576209103, 1.8)
    pt3dadd(44.9789693545272, -172.551250023248, -55.8406150562898, 1.8)
    pt3dadd(45.1355281548235, -173.531981220798, -55.9574724916692, 1.8)
    pt3dadd(45.2920869551199, -174.512712418347, -56.0743299270487, 1.8)
    pt3dadd(45.5912765150903, -174.981287953132, -56.8915820803892, 1.8)
    pt3dadd(45.8947128084716, -175.434614403009, -57.729688007883, 1.8)
    pt3dadd(46.1981491018528, -175.887940852887, -58.5677939353768, 1.8)
    pt3dadd(46.4824903559042, -176.369590128548, -59.3848176825733, 1.8)
    pt3dadd(46.5341229563807, -177.196405839295, -59.9449157588328, 1.8)
    pt3dadd(46.5857555568573, -178.023221550042, -60.5050138350923, 1.8)
    pt3dadd(46.6373881573338, -178.850037260789, -61.0651119113517, 1.8)
    pt3dadd(46.6890207578103, -179.676852971537, -61.6252099876112, 1.8)
    pt3dadd(46.8671984686857, -180.542651550989, -62.057443943222, 1.8)
    pt3dadd(47.1642155011866, -181.445059191489, -62.3695998862551, 1.8)
    pt3dadd(47.4612325336875, -182.34746683199, -62.6817558292881, 1.8)
    pt3dadd(47.6047423085643, -183.219736400868, -63.1004568479772, 1.8)
    pt3dadd(47.5629693948947, -184.055629429483, -63.6477573763862, 1.8)
    pt3dadd(47.5211964812252, -184.891522458098, -64.1950579047952, 1.8)
    pt3dadd(47.4794235675556, -185.727415486712, -64.7423584332043, 1.8)
    pt3dadd(47.378738485287, -186.663426224337, -65.0706334810162, 1.8)
    pt3dadd(47.2723200707246, -187.609180417481, -65.3775929688862, 1.8)
    pt3dadd(47.1659016561621, -188.554934610624, -65.6845524567563, 1.8)
    pt3dadd(47.0594832415997, -189.500688803768, -65.9915119446264, 1.8)
    pt3dadd(46.9530648270373, -190.446442996911, -66.2984714324964, 1.8)
    pt3dadd(46.9291717162887, -191.414729184319, -66.5386661903285, 1.8)
    pt3dadd(46.9344146204653, -192.390970416916, -66.7552892909724, 1.8)
    pt3dadd(46.9396575246419, -193.367211649513, -66.9719123916162, 1.8)
    pt3dadd(46.9449004288185, -194.343452882111, -67.1885354922601, 1.8)
    pt3dadd(46.9501433329951, -195.319694114708, -67.4051585929039, 1.8)
    pt3dadd(46.9553862371717, -196.295935347306, -67.6217816935478, 1.8)
    pt3dadd(47.0695301402408, -197.235235457445, -67.9379952198368, 1.8)
    pt3dadd(47.2057695860437, -198.167040373251, -68.2744152137257, 1.8)
    pt3dadd(47.3420090318466, -199.098845289056, -68.6108352076146, 1.8)
    pt3dadd(47.4782484776495, -200.030650204862, -68.9472552015036, 1.8)
    pt3dadd(47.6144879234524, -200.962455120667, -69.2836751953925, 1.8)
    pt3dadd(47.4750868451309, -201.860524974538, -69.5361949351335, 1.8)
    pt3dadd(46.9745030019053, -202.714390432187, -69.6787768278706, 1.8)
    pt3dadd(46.4739191586797, -203.568255889835, -69.8213587206076, 1.8)
    pt3dadd(46.4332640912364, -204.48060244625, -70.0642112310466, 1.8)
    pt3dadd(46.6113091240291, -205.420757269586, -70.3547432851385, 1.8)
    pt3dadd(46.7893541568219, -206.360912092923, -70.6452753392304, 1.8)
    pt3dadd(46.9673991896147, -207.301066916259, -70.9358073933223, 1.8)
    pt3dadd(47.1454442224074, -208.241221739596, -71.2263394474142, 1.8)
    pt3dadd(47.3234892552002, -209.181376562932, -71.5168715015061, 1.8)
    pt3dadd(47.5008904402955, -210.118607298458, -71.8118750365851, 1.8)
    pt3dadd(47.6093627426316, -210.742791786059, -72.5855852440035, 1.8)
    pt3dadd(47.7178350449677, -211.366976273661, -73.3592954514219, 1.8)
    pt3dadd(47.8263073473038, -211.991160761262, -74.1330056588403, 1.8)
    pt3dadd(47.9347796496399, -212.615345248864, -74.9067158662588, 1.8)
    pt3dadd(48.0432519519761, -213.239529736466, -75.6804260736772, 1.8)
    pt3dadd(48.146618701577, -214.009857937817, -76.1523820292517, 1.8)
    pt3dadd(48.242122434739, -215.005260775218, -76.1596089406069, 1.8)
    pt3dadd(48.3376261679009, -216.000663612618, -76.1668358519622, 1.8)
    pt3dadd(48.4331299010629, -216.996066450018, -76.1740627633175, 1.8)
    pt3dadd(48.5147636429224, -217.987852352107, -76.1517004420216, 1.8)
    pt3dadd(48.4783967337087, -218.948866733706, -75.8776040971453, 1.8)
    pt3dadd(48.442029824495, -219.909881115305, -75.603507752269, 1.8)
    pt3dadd(48.4056629152812, -220.870895496904, -75.3294114073927, 1.8)
    pt3dadd(48.3692960060675, -221.831909878503, -75.0553150625164, 1.8)
    pt3dadd(48.3329290968538, -222.792924260101, -74.78121871764, 1.8)
    pt3dadd(48.3121060960091, -223.767232136297, -74.6813035371307, 1.8)
    pt3dadd(48.3116533559515, -224.758961110537, -74.809652423682, 1.8)
    pt3dadd(48.3112006158938, -225.750690084777, -74.9380013102333, 1.8)
    pt3dadd(48.3107478758362, -226.742419059017, -75.0663501967847, 1.8)
    pt3dadd(48.3102951357785, -227.734148033257, -75.1946990833359, 1.8)
    pt3dadd(48.3098423957208, -228.725877007498, -75.3230479698873, 1.8)
    pt3dadd(48.335656885433, -229.717205994271, -75.44966070199, 1.8)
    pt3dadd(48.3830594679806, -230.708206245709, -75.5748465511004, 1.8)
    pt3dadd(48.4304620505282, -231.699206497147, -75.7000324002108, 1.8)
    pt3dadd(48.4778646330758, -232.690206748585, -75.8252182493212, 1.8)
    pt3dadd(48.5252672156234, -233.681207000023, -75.9504040984316, 1.8)
  }
  adendOML[4] {pt3dclear()
    pt3dadd(48.5252672156234, -233.681207000023, -75.9504040984316, 1.8)
    pt3dadd(48.572669798171, -234.672207251461, -76.075589947542, 1.8)
    pt3dadd(48.5950449750523, -235.662145420885, -76.2022432694897, 1.8)
    pt3dadd(48.4790690892509, -236.646212419434, -76.3370087557259, 1.8)
    pt3dadd(48.3630932034495, -237.630279417982, -76.4717742419621, 1.8)
    pt3dadd(48.2471173176481, -238.61434641653, -76.6065397281983, 1.8)
    pt3dadd(48.1311414318467, -239.598413415079, -76.7413052144345, 1.8)
    pt3dadd(48.0151655460453, -240.582480413627, -76.8760707006707, 1.8)
    pt3dadd(47.8991896602439, -241.566547412176, -77.0108361869069, 1.8)
    pt3dadd(47.8501599965575, -242.555750007774, -77.1419732062329, 1.8)
    pt3dadd(47.8289284782712, -243.547085062367, -77.2716035736887, 1.8)
    pt3dadd(47.8076969599849, -244.53842011696, -77.4012339411444, 1.8)
  }
}
proc shape3d_6() {
  adendOML[4] {
    pt3dadd(47.7864654416986, -245.529755171552, -77.5308643086002, 1.8)
    pt3dadd(47.7652339234123, -246.521090226145, -77.660494676056, 1.8)
    pt3dadd(47.744002405126, -247.512425280738, -77.7901250435118, 1.8)
    pt3dadd(47.7227708868397, -248.503760335331, -77.9197554109675, 1.8)
    pt3dadd(47.7015393685534, -249.495095389924, -78.0493857784233, 1.8)
    pt3dadd(47.6803078502672, -250.486430444517, -78.1790161458791, 1.8)
    pt3dadd(47.724427211339, -251.476074703111, -78.3042370813375, 1.8)
    pt3dadd(47.8138707252805, -252.464546308833, -78.4263998518274, 1.8)
    pt3dadd(47.9033142392221, -253.453017914556, -78.5485626223173, 1.8)
    pt3dadd(47.9927577531636, -254.441489520279, -78.6707253928072, 1.8)
    pt3dadd(48.0428095836501, -255.41215066876, -78.6423124414895, 1.8)
    pt3dadd(48.0053777036306, -256.343257151163, -78.2794907596881, 1.8)
    pt3dadd(47.9679458236112, -257.274363633566, -77.9166690778867, 1.8)
    pt3dadd(47.9305139435917, -258.205470115969, -77.5538473960854, 1.8)
    pt3dadd(47.8930820635723, -259.136576598372, -77.191025714284, 1.8)
    pt3dadd(47.8556501835528, -260.067683080775, -76.8282040324826, 1.8)
    pt3dadd(47.8323433736723, -261.005176037065, -76.5193757940987, 1.8)
    pt3dadd(47.9217868876139, -261.993647642788, -76.6415385645886, 1.8)
    pt3dadd(48.0112304015554, -262.98211924851, -76.7637013350785, 1.8)
    pt3dadd(48.100673915497, -263.970590854233, -76.8858641055685, 1.8)
    pt3dadd(48.1901174294385, -264.959062459956, -77.0080268760584, 1.8)
    pt3dadd(48.2808346166714, -265.947036403372, -77.0879306232942, 1.8)
    pt3dadd(48.3781729503443, -266.932423266545, -76.9481523034991, 1.8)
    pt3dadd(48.4755112840171, -267.917810129717, -76.808373983704, 1.8)
    pt3dadd(48.5728496176899, -268.90319699289, -76.6685956639089, 1.8)
    pt3dadd(48.6701879513627, -269.888583856062, -76.5288173441139, 1.8)
    pt3dadd(48.6753725941217, -270.795808460339, -76.1960753931195, 1.8)
    pt3dadd(48.5628697077105, -271.603213697288, -75.6169036708338, 1.8)
    pt3dadd(48.4503668212993, -272.410618934238, -75.0377319485482, 1.8)
    pt3dadd(48.3378639348881, -273.218024171188, -74.4585602262626, 1.8)
    pt3dadd(48.2253610484769, -274.025429408138, -73.8793885039769, 1.8)
    pt3dadd(48.1128581620658, -274.832834645087, -73.3002167816913, 1.8)
    pt3dadd(47.9510130265304, -275.486542031589, -72.5936696319241, 1.8)
    pt3dadd(47.7340120720338, -275.968442681176, -71.7447395113164, 1.8)
    pt3dadd(47.5170111175373, -276.450343330763, -70.8958093907087, 1.8)
    pt3dadd(47.3000101630408, -276.93224398035, -70.046879270101, 1.8)
    pt3dadd(47.0830092085443, -277.414144629938, -69.1979491494933, 1.8)
    pt3dadd(46.8660082540478, -277.896045279525, -68.3490190288855, 1.8)
    pt3dadd(46.6490072995512, -278.377945929112, -67.5000889082778, 1.8)
    pt3dadd(46.4320063450547, -278.859846578699, -66.6511587876701, 1.8)
    pt3dadd(46.2150053905582, -279.341747228286, -65.8022286670624, 1.8)
    pt3dadd(45.9980044360617, -279.823647877874, -64.9532985464546, 1.8)
    pt3dadd(45.7769739281968, -280.480469090157, -65.3582502623712, 1.8)
    pt3dadd(45.555049069231, -281.176113562374, -66.0414984787957, 1.8)
    pt3dadd(45.3549902951102, -282.07200296718, -66.3476838997944, 1.8)
    pt3dadd(45.1625422676262, -283.037589963394, -66.5226282036743, 1.8)
  }
  adendMML[4] {pt3dclear()
    pt3dadd(42.0834030012864, -147.033623711211, -52.3711854816596, 1.8)
    pt3dadd(42.7565680103603, -147.750915421235, -52.4210084656154, 1.8)
    pt3dadd(43.4590357357451, -148.462625044524, -52.4239251264125, 1.8)
    pt3dadd(44.0111649321766, -149.21420548553, -52.7505669664637, 1.8)
    pt3dadd(44.5358051978703, -149.973076181099, -53.136400945034, 1.8)
    pt3dadd(45.060445463564, -150.731946876668, -53.5222349236044, 1.8)
    pt3dadd(45.5850857292577, -151.490817572237, -53.9080689021747, 1.8)
    pt3dadd(46.1097259949513, -152.249688267806, -54.2939028807451, 1.8)
    pt3dadd(46.5443195331766, -153.102633693898, -54.5170564567807, 1.8)
    pt3dadd(46.9087910904667, -154.028837822952, -54.6135261165234, 1.8)
    pt3dadd(47.2732626477569, -154.955041952005, -54.709995776266, 1.8)
    pt3dadd(47.637734205047, -155.881246081059, -54.8064654360087, 1.8)
    pt3dadd(48.1297402652802, -156.744815014828, -54.8866525074533, 1.8)
    pt3dadd(48.6575921157552, -157.590779237557, -54.9622630742559, 1.8)
    pt3dadd(49.1854439662303, -158.436743460286, -55.0378736410584, 1.8)
    pt3dadd(49.7132958167054, -159.282707683015, -55.113484207861, 1.8)
    pt3dadd(50.2495341921997, -160.123292956058, -55.187861001765, 1.8)
    pt3dadd(50.813472388716, -160.946112117005, -55.2581627719379, 1.8)
    pt3dadd(51.3774105852324, -161.768931277951, -55.3284645421108, 1.8)
    pt3dadd(51.9413487817487, -162.591750438897, -55.3987663122837, 1.8)
    pt3dadd(52.505286978265, -163.414569599844, -55.4690680824566, 1.8)
    pt3dadd(53.0692251747814, -164.23738876079, -55.5393698526296, 1.8)
    pt3dadd(53.6331633712977, -165.060207921736, -55.6096716228025, 1.8)
    pt3dadd(54.1540844360658, -165.900446061164, -55.6849857317547, 1.8)
    pt3dadd(54.3400136177117, -166.876332863492, -55.7993329593339, 1.8)
    pt3dadd(54.5259427993577, -167.852219665819, -55.9136801869132, 1.8)
    pt3dadd(54.7118719810036, -168.828106468147, -56.0280274144924, 1.8)
    pt3dadd(54.8978011626496, -169.803993270475, -56.1423746420717, 1.8)
    pt3dadd(55.0837303442955, -170.779880072803, -56.2567218696509, 1.8)
    pt3dadd(55.3505750068873, -171.735968641854, -56.3633186548104, 1.8)
    pt3dadd(55.6558661550485, -172.682650203977, -56.4662328656446, 1.8)
    pt3dadd(55.9611573032098, -173.629331766099, -56.5691470764788, 1.8)
    pt3dadd(56.2664484513711, -174.576013328222, -56.672061287313, 1.8)
    pt3dadd(56.5067015548455, -175.535286840833, -56.7807753703005, 1.8)
    pt3dadd(56.596145068787, -176.523758446556, -56.9029381407903, 1.8)
    pt3dadd(56.6855885827286, -177.512230052278, -57.0251009112803, 1.8)
    pt3dadd(56.7750320966701, -178.500701658001, -57.1472636817702, 1.8)
    pt3dadd(56.8644756106117, -179.489173263724, -57.2694264522601, 1.8)
    pt3dadd(57.0816945725519, -180.455436936052, -57.3304851390299, 1.8)
    pt3dadd(57.3947897257777, -181.405036905739, -57.3456944321107, 1.8)
    pt3dadd(57.7078848790035, -182.354636875427, -57.3609037251915, 1.8)
    pt3dadd(58.0209800322293, -183.304236845114, -57.3761130182723, 1.8)
    pt3dadd(58.3340751854551, -184.253836814802, -57.3913223113531, 1.8)
    pt3dadd(58.647170338681, -185.203436784489, -57.4065316044339, 1.8)
    pt3dadd(58.8186966721763, -186.170642968049, -57.3065956202598, 1.8)
    pt3dadd(58.8844840005104, -187.150999388668, -57.120656608801, 1.8)
    pt3dadd(58.9502713288445, -188.131355809287, -56.9347175973421, 1.8)
    pt3dadd(59.0160586571786, -189.111712229906, -56.7487785858833, 1.8)
    pt3dadd(59.0818459855126, -190.092068650524, -56.5628395744245, 1.8)
    pt3dadd(59.1476333138467, -191.072425071143, -56.3769005629657, 1.8)
    pt3dadd(59.2514372293398, -192.048365800204, -56.2466441098884, 1.8)
    pt3dadd(59.5201021161763, -193.005157645744, -56.3578580608553, 1.8)
    pt3dadd(59.7887670030127, -193.961949491284, -56.4690720118223, 1.8)
    pt3dadd(60.0574318898492, -194.918741336823, -56.5802859627893, 1.8)
    pt3dadd(60.3260967766857, -195.875533182363, -56.6914999137562, 1.8)
    pt3dadd(60.5703459896605, -196.84404679621, -56.6990905996092, 1.8)
    pt3dadd(60.8097720422099, -197.814875970518, -56.6862111712935, 1.8)
    pt3dadd(61.0491980947593, -198.785705144826, -56.6733317429779, 1.8)
    pt3dadd(61.2886241473087, -199.756534319133, -56.6604523146622, 1.8)
    pt3dadd(61.5280501998581, -200.727363493441, -56.6475728863465, 1.8)
    pt3dadd(61.7674762524074, -201.698192667748, -56.6346934580309, 1.8)
    pt3dadd(62.0109592236778, -202.660444325217, -56.5846474130964, 1.8)
    pt3dadd(62.288309412926, -203.551090744206, -56.224333898409, 1.8)
    pt3dadd(62.5656596021743, -204.441737163195, -55.8640203837216, 1.8)
    pt3dadd(62.8430097914225, -205.332383582183, -55.5037068690342, 1.8)
    pt3dadd(63.1203599806708, -206.223030001172, -55.1433933543469, 1.8)
    pt3dadd(63.397710169919, -207.113676420161, -54.7830798396595, 1.8)
    pt3dadd(63.6750603591673, -208.00432283915, -54.4227663249721, 1.8)
    pt3dadd(63.9524105484155, -208.894969258138, -54.0624528102847, 1.8)
    pt3dadd(64.2297607376638, -209.785615677127, -53.7021392955974, 1.8)
    pt3dadd(64.5252163822872, -210.655678286645, -53.5218521278759, 1.8)
    pt3dadd(64.8879340614487, -211.449271739499, -54.0103655021152, 1.8)
    pt3dadd(65.2506517406102, -212.242865192354, -54.4988788763546, 1.8)
    pt3dadd(65.6133694197717, -213.036458645208, -54.9873922505939, 1.8)
    pt3dadd(65.9760870989332, -213.830052098062, -55.4759056248332, 1.8)
    pt3dadd(66.3388047780947, -214.623645550916, -55.9644189990726, 1.8)
    pt3dadd(66.7015224572561, -215.41723900377, -56.4529323733119, 1.8)
    pt3dadd(67.064740614153, -216.213961183804, -56.9316128706552, 1.8)
    pt3dadd(67.4475198396098, -217.132969017182, -57.0259774124529, 1.8)
    pt3dadd(67.8302990650665, -218.05197685056, -57.1203419542507, 1.8)
    pt3dadd(68.2130782905232, -218.970984683938, -57.2147064960485, 1.8)
    pt3dadd(68.5853982222871, -219.886953188162, -57.1712443382279, 1.8)
    pt3dadd(68.9465060609539, -220.799663609916, -56.9800355129223, 1.8)
    pt3dadd(69.3076138996207, -221.71237403167, -56.7888266876167, 1.8)
    pt3dadd(69.6687217382875, -222.625084453424, -56.5976178623111, 1.8)
    pt3dadd(70.0298295769544, -223.537794875178, -56.4064090370055, 1.8)
    pt3dadd(70.3909374156212, -224.450505296932, -56.2152002116999, 1.8)
    pt3dadd(70.7382685579823, -225.372954144581, -56.0554244508105, 1.8)
    pt3dadd(71.0539808250787, -226.317753639061, -55.9677906694572, 1.8)
    pt3dadd(71.3696930921751, -227.262553133542, -55.880156888104, 1.8)
    pt3dadd(71.6854053592715, -228.207352628022, -55.7925231067508, 1.8)
    pt3dadd(72.001117626368, -229.152152122503, -55.7048893253975, 1.8)
    pt3dadd(72.3168298934644, -230.096951616983, -55.6172555440443, 1.8)
    pt3dadd(72.6325421605608, -231.041751111464, -55.5296217626911, 1.8)
    pt3dadd(72.8801767830414, -232.001218927368, -55.519770839104, 1.8)
    pt3dadd(73.0153787943536, -232.984911989143, -55.6383810256532, 1.8)
    pt3dadd(73.1505808056657, -233.968605050918, -55.7569912122024, 1.8)
  }
  adendOML[5] {pt3dclear()
    pt3dadd(73.1505808056657, -233.968605050918, -55.7569912122024, 1.8)
    pt3dadd(73.2857828169779, -234.952298112692, -55.8756013987516, 1.8)
    pt3dadd(73.42098482829, -235.935991174467, -55.9942115853008, 1.8)
    pt3dadd(73.5561868396022, -236.919684236242, -56.11282177185, 1.8)
    pt3dadd(73.8942187336613, -237.846486549431, -56.0683230844525, 1.8)
    pt3dadd(74.3030936942548, -238.753418441986, -55.9668548191366, 1.8)
    pt3dadd(74.7119686548483, -239.660350334541, -55.8653865538207, 1.8)
    pt3dadd(75.1208436154418, -240.567282227096, -55.7639182885048, 1.8)
    pt3dadd(75.5297185760353, -241.474214119651, -55.6624500231889, 1.8)
    pt3dadd(75.8012097223826, -242.403962274215, -55.4314373137893, 1.8)
    pt3dadd(76.0404440016273, -243.339067545522, -55.1700083727569, 1.8)
    pt3dadd(76.2796782808718, -244.274172816828, -54.9085794317244, 1.8)
    pt3dadd(76.5189125601165, -245.209278088134, -54.647150490692, 1.8)
    pt3dadd(76.7581468393611, -246.144383359441, -54.3857215496596, 1.8)
    pt3dadd(77.0120684369512, -247.049360392553, -54.0587548518752, 1.8)
    pt3dadd(77.2921009803221, -247.900775790013, -53.6152758832398, 1.8)
    pt3dadd(77.5721335236929, -248.752191187473, -53.1717969146045, 1.8)
    pt3dadd(77.8521660670638, -249.603606584932, -52.7283179459693, 1.8)
    pt3dadd(78.1321986104347, -250.455021982392, -52.2848389773339, 1.8)
    pt3dadd(78.4122311538056, -251.306437379852, -51.8413600086986, 1.8)
    pt3dadd(78.5744175683353, -252.272608664554, -51.8093400240663, 1.8)
    pt3dadd(78.713087384484, -253.261679879348, -51.8594280880582, 1.8)
    pt3dadd(78.8517572006327, -254.250751094142, -51.9095161520502, 1.8)
    pt3dadd(78.9904270167814, -255.239822308937, -51.9596042160422, 1.8)
    pt3dadd(79.1290968329301, -256.228893523731, -52.0096922800341, 1.8)
    pt3dadd(79.7959841233104, -256.920031523951, -52.1290257441354, 1.8)
    pt3dadd(80.5526850436972, -257.560511481214, -52.2601331101776, 1.8)
    pt3dadd(81.309385964084, -258.200991438477, -52.3912404762198, 1.8)
    pt3dadd(82.1477151292979, -258.698668055286, -52.459082549977, 1.8)
    pt3dadd(83.1041026884303, -258.989809139501, -52.4354244473701, 1.8)
  }
  GCL[7] {pt3dclear()
    pt3dadd(-1.04736965063591, 135.463959129527, -7.500553544402, 3.35298512295166)
    pt3dadd(-1.41202231853311, 134.549310254327, -7.51102442993472, 3.35298512295166)
    pt3dadd(-1.86620472380656, 133.658975181379, -7.47905881374399, 3.02122569592651)
    pt3dadd(-2.32038712908, 132.768640108431, -7.44709319755325, 2.68946626890136)
    pt3dadd(-2.77456953435345, 131.878305035483, -7.41512758136252, 2.35770684187621)
    pt3dadd(-2.95581168163487, 131.050138848011, -6.99940393389437, 2.25)
    pt3dadd(-3.00584564316984, 130.25185856573, -6.39919964066155, 2.25)
    pt3dadd(-3.05587960470481, 129.453578283449, -5.79899534742874, 2.25)
    pt3dadd(-3.10591356623978, 128.655298001169, -5.19879105419592, 2.25)
    pt3dadd(-3.15594752777474, 127.857017718888, -4.5985867609631, 2.25)
    pt3dadd(-3.20598148930971, 127.058737436608, -3.99838246773029, 2.25)
    pt3dadd(-3.25601545084468, 126.260457154327, -3.39817817449747, 2.25)
    pt3dadd(-3.30900713262854, 125.469611003112, -2.78988766169161, 2.25)
    pt3dadd(-3.40169902098118, 124.778549995225, -2.07305930203227, 2.25)
    pt3dadd(-3.49439090933381, 124.087488987338, -1.35623094237293, 2.25)
    pt3dadd(-3.58708279768645, 123.396427979451, -0.639402582713584, 2.25)
    pt3dadd(-3.67977468603908, 122.705366971564, 0.0774257769457581, 2.25)
    pt3dadd(-3.77246657439172, 122.014305963677, 0.7942541366051, 2.25)
    pt3dadd(-3.87574938352223, 121.27728690511, 1.37428334671515, 2.25)
    pt3dadd(-4.03452098032028, 120.299480801743, 1.237583660288, 2.25)
    pt3dadd(-4.19329257711832, 119.321674698377, 1.10088397386085, 2.25)
    pt3dadd(-4.35206417391637, 118.34386859501, 0.964184287433696, 2.25)
    pt3dadd(-4.51083577071442, 117.366062491644, 0.827484601006545, 2.25)
    pt3dadd(-4.66960736751246, 116.388256388277, 0.690784914579394, 2.25)
    pt3dadd(-4.8627662602709, 115.450988878725, 0.920943448598502, 2.25)
  }
  GCL[8] {pt3dclear()
    pt3dadd(-4.8627662602709, 115.450988878725, 0.920943448598502, 2.20933006900127)
    pt3dadd(-4.80054060260359, 114.51642258603, 1.02620851256026, 2.20933006900127)
    pt3dadd(-4.47763456142909, 113.575401788455, 0.925156312658249, 2.12838015179321)
    pt3dadd(-4.1547285202546, 112.634380990881, 0.824104112756243, 2.04743023458515)
    pt3dadd(-3.8318224790801, 111.693360193306, 0.723051912854237, 1.96648031737708)
    pt3dadd(-3.50891643790561, 110.752339395731, 0.621999712952231, 1.88553040016902)
    pt3dadd(-3.18601039673111, 109.811318598157, 0.520947513050224, 1.80458048296096)
    pt3dadd(-3.07884352828053, 108.909718634435, 0.918253216222682, 1.8)
    pt3dadd(-2.98461625555191, 108.010483051955, 1.34544941034868, 1.8)
    pt3dadd(-2.8903889828233, 107.111247469475, 1.77264560447468, 1.8)
    pt3dadd(-2.79616171009468, 106.212011886995, 2.19984179860068, 1.8)
    pt3dadd(-2.70193443736606, 105.312776304514, 2.62703799272668, 1.8)
    pt3dadd(-2.60770716463745, 104.413540722034, 3.05423418685268, 1.8)
    pt3dadd(-2.41059447804813, 103.470382154451, 3.11475996426815, 1.8)
    pt3dadd(-2.16592158854722, 102.506919580638, 3.00578727959797, 1.8)
    pt3dadd(-1.92124869904631, 101.543457006824, 2.8968145949278, 1.8)
    pt3dadd(-1.67657580954539, 100.579994433011, 2.78784191025763, 1.8)
    pt3dadd(-1.43190292004448, 99.6165318591975, 2.67886922558746, 1.8)
    pt3dadd(-1.19215338307041, 98.6893118631456, 2.86920185871148, 1.8)
    pt3dadd(-0.954924870706767, 97.7806500406114, 3.21279511416125, 1.8)
    pt3dadd(-0.717696358343125, 96.8719882180772, 3.55638836961102, 1.8)
    pt3dadd(-0.480467845979484, 95.963326395543, 3.8999816250608, 1.8)
    pt3dadd(-0.243239333615841, 95.0546645730088, 4.24357488051057, 1.8)
    pt3dadd(-0.0023216785332334, 94.1461427952699, 4.57852289440408, 1.8)
    pt3dadd(0.420473640649635, 93.2445253370917, 4.48725363788599, 1.8)
    pt3dadd(0.843268959832506, 92.3429078789135, 4.3959843813679, 1.8)
    pt3dadd(1.26606427901537, 91.4412904207353, 4.30471512484982, 1.8)
    pt3dadd(1.68885959819824, 90.5396729625571, 4.21344586833173, 1.8)
    pt3dadd(2.11165491738111, 89.638055504379, 4.12217661181364, 1.8)
    pt3dadd(2.49583312577651, 88.7238050041383, 4.04312373241688, 1.8)
    pt3dadd(2.658968884948, 87.737243590375, 4.03399679684337, 1.8)
    pt3dadd(2.82210464411949, 86.7506821766117, 4.02486986126985, 1.8)
    pt3dadd(2.98524040329098, 85.7641207628485, 4.01574292569633, 1.8)
    pt3dadd(3.26021651947525, 84.8075230449096, 3.92262336078518, 1.8)
    pt3dadd(3.53867828137383, 83.8518591833239, 3.82688605969806, 1.8)
    pt3dadd(3.81714004327241, 82.8961953217382, 3.73114875861095, 1.8)
    pt3dadd(4.095601805171, 81.9405314601525, 3.63541145752384, 1.8)
    pt3dadd(4.37406356706958, 80.9848675985668, 3.53967415643673, 1.8)
    pt3dadd(4.65252532896816, 80.0292037369811, 3.44393685534961, 1.8)
    pt3dadd(4.93098709086675, 79.0735398753954, 3.3481995542625, 1.8)
    pt3dadd(5.20944885276533, 78.1178760138097, 3.25246225317539, 1.8)
    pt3dadd(5.48791061466391, 77.162212152224, 3.15672495208828, 1.8)
    pt3dadd(5.72620838512386, 76.2393240036869, 3.44044639247178, 1.8)
    pt3dadd(5.96149575730068, 75.3188924822617, 3.75260927761516, 1.8)
    pt3dadd(6.1967831294775, 74.3984609608365, 4.06477216275855, 1.8)
    pt3dadd(6.43207050165432, 73.4780294394114, 4.37693504790193, 1.8)
    pt3dadd(6.66735787383114, 72.5575979179862, 4.68909793304532, 1.8)
    pt3dadd(6.90831597221136, 71.6328380710301, 4.94785645670371, 1.8)
    pt3dadd(7.18795731211697, 70.6785522593375, 4.84231352412192, 1.8)
    pt3dadd(7.46759865202259, 69.7242664476449, 4.73677059154013, 1.8)
    pt3dadd(7.7472399919282, 68.7699806359523, 4.63122765895833, 1.8)
  }
}
proc shape3d_7() {
  GCL[8] {
    pt3dadd(8.02688133183381, 67.8156948242597, 4.52568472637654, 1.8)
    pt3dadd(8.30652267173943, 66.8614090125671, 4.42014179379475, 1.8)
    pt3dadd(8.58616401164504, 65.9071232008744, 4.31459886121296, 1.8)
    pt3dadd(8.91205439457214, 64.971315407941, 4.21441254470337, 1.8)
    pt3dadd(9.38580901241027, 64.0945842559062, 4.13135202984251, 1.8)
    pt3dadd(9.8595636302484, 63.2178531038715, 4.04829151498164, 1.8)
    pt3dadd(10.3333182480865, 62.3411219518369, 3.96523100012077, 1.8)
    pt3dadd(10.8070728659247, 61.4643907998021, 3.8821704852599, 1.8)
    pt3dadd(11.0161503566942, 60.5016430720166, 3.77100772070811, 1.8)
    pt3dadd(11.1675641752239, 59.5201554112182, 3.65372248182947, 1.8)
    pt3dadd(11.3189779937535, 58.5386677504199, 3.53643724295083, 1.8)
    pt3dadd(11.4703918122832, 57.5571800896215, 3.41915200407219, 1.8)
    pt3dadd(11.7483524365561, 56.6133372217597, 3.42347967102067, 1.8)
    pt3dadd(12.1515201273683, 55.7067406049305, 3.54813273932969, 1.8)
    pt3dadd(12.5546878181805, 54.8001439881012, 3.6727858076387, 1.8)
    pt3dadd(12.9578555089927, 53.8935473712719, 3.79743887594772, 1.8)
    pt3dadd(13.3359740176415, 52.9792005576532, 3.8961892306279, 1.8)
    pt3dadd(13.5067503818282, 52.0007022515092, 3.78053241799473, 1.8)
    pt3dadd(13.677526746015, 51.0222039453652, 3.66487560536155, 1.8)
    pt3dadd(13.8483031102017, 50.0437056392212, 3.54921879272838, 1.8)
    pt3dadd(14.0190794743884, 49.0652073330772, 3.4335619800952, 1.8)
    pt3dadd(14.1898558385752, 48.0867090269332, 3.31790516746203, 1.8)
    pt3dadd(14.3606322027619, 47.1082107207892, 3.20224835482885, 1.8)
    pt3dadd(14.5024299802288, 46.125506897915, 3.08418912294937, 1.8)
    pt3dadd(14.6358819839208, 45.1415918948141, 2.96543799923486, 1.8)
    pt3dadd(14.7693339876129, 44.1576768917132, 2.84668687552036, 1.8)
    pt3dadd(14.902785991305, 43.1737618886122, 2.72793575180586, 1.8)
    pt3dadd(15.036237994997, 42.1898468855113, 2.60918462809135, 1.8)
    pt3dadd(15.1696899986891, 41.2059318824104, 2.49043350437685, 1.8)
    pt3dadd(15.2443552805357, 40.2171497877827, 2.36728289773605, 1.8)
    pt3dadd(15.2926593164133, 39.226185183349, 2.24215946716638, 1.8)
    pt3dadd(15.340963352291, 38.2352205789153, 2.11703603659671, 1.8)
    pt3dadd(15.3892673881686, 37.2442559744816, 1.99191260602704, 1.8)
    pt3dadd(15.4375714240463, 36.2532913700479, 1.86678917545737, 1.8)
    pt3dadd(15.4858754599239, 35.2623267656143, 1.74166574488771, 1.8)
    pt3dadd(15.5652308275435, 34.2749477346112, 1.63007903842328, 1.8)
    pt3dadd(15.8140897671094, 33.3071416967739, 1.59238684660821, 1.8)
    pt3dadd(16.0629487066752, 32.3393356589366, 1.55469465479315, 1.8)
    pt3dadd(16.311807646241, 31.3715296210993, 1.51700246297808, 1.8)
    pt3dadd(16.5606665858068, 30.403723583262, 1.47931027116301, 1.8)
    pt3dadd(16.8095255253726, 29.4359175454246, 1.44161807934795, 1.8)
    pt3dadd(17.0443137608142, 28.4663164855905, 1.39672581467787, 1.8)
    pt3dadd(17.1271363416211, 27.4773289266562, 1.27407171412786, 1.8)
    pt3dadd(17.2099589224281, 26.4883413677219, 1.15141761357784, 1.8)
    pt3dadd(17.2927815032351, 25.4993538087877, 1.02876351302782, 1.8)
    pt3dadd(17.375604084042, 24.5103662498535, 0.906109412477809, 1.8)
    pt3dadd(17.458426664849, 23.5213786909192, 0.783455311927793, 1.8)
    pt3dadd(17.541249245656, 22.532391131985, 0.660801211377777, 1.8)
    pt3dadd(17.6240718264629, 21.5434035730507, 0.538147110827761, 1.8)
    pt3dadd(17.7068944072699, 20.5544160141164, 0.415493010277745, 1.8)
    pt3dadd(17.7833845775707, 19.5654292526268, 0.313018895725608, 1.8)
    pt3dadd(17.7812596024264, 18.5764523911948, 0.461073791060677, 1.8)
    pt3dadd(17.7791346272822, 17.5874755297628, 0.609128686395745, 1.8)
    pt3dadd(17.7770096521379, 16.5984986683307, 0.757183581730813, 1.8)
    pt3dadd(17.7748846769936, 15.6095218068987, 0.905238477065881, 1.8)
    pt3dadd(17.7727597018494, 14.6205449454667, 1.05329337240095, 1.8)
    pt3dadd(17.7706347267051, 13.6315680840346, 1.20134826773602, 1.8)
    pt3dadd(17.7685097515609, 12.6425912226026, 1.34940316307109, 1.8)
    pt3dadd(17.9125572153807, 11.668106915688, 1.34004252334415, 1.8)
    pt3dadd(18.1497613862497, 10.702858814074, 1.23035987360847, 1.8)
    pt3dadd(18.3869655571186, 9.73761071246006, 1.12067722387279, 1.8)
    pt3dadd(18.6241697279876, 8.77236261084613, 1.01099457413711, 1.8)
    pt3dadd(18.8613738988566, 7.80711450923221, 0.901311924401429, 1.8)
    pt3dadd(19.0985780697256, 6.84186640761826, 0.791629274665747, 1.8)
    pt3dadd(19.3357822405946, 5.87661830600431, 0.681946624930067, 1.8)
    pt3dadd(19.2868591055315, 4.90510419480504, 0.912216003006476, 1.8)
    pt3dadd(19.2368596039334, 3.93356651184985, 1.14376422787117, 1.8)
    pt3dadd(19.1868601023353, 2.96202882889463, 1.37531245273586, 1.8)
    pt3dadd(19.1368606007372, 1.99049114593945, 1.60686067760055, 1.8)
    pt3dadd(19.0868610991391, 1.01895346298426, 1.83840890246524, 1.8)
    pt3dadd(19.036861597541, 0.0474157800290428, 2.06995712732993, 1.8)
  }
  adendIML[3] {pt3dclear()
    pt3dadd(19.036861597541, 0.0474157800290428, 2.06995712732993, 1.8)
    pt3dadd(18.986862095943, -0.924121902926144, 2.30150535219462, 1.8)
    pt3dadd(18.9368625943449, -1.89565958588133, 2.53305357705931, 1.8)
    pt3dadd(18.8868630927468, -2.86719726883652, 2.764601801924, 1.8)
    pt3dadd(18.8368635911487, -3.83873495179171, 2.99615002678869, 1.8)
    pt3dadd(18.9966807931033, -4.81488875471163, 2.91417028612598, 1.8)
    pt3dadd(19.1784040508152, -5.79152450677864, 2.79945644480295, 1.8)
    pt3dadd(19.360127308527, -6.76816025884562, 2.68474260347992, 1.8)
    pt3dadd(19.5418505662389, -7.74479601091264, 2.57002876215689, 1.8)
    pt3dadd(19.7235738239507, -8.72143176297967, 2.45531492083386, 1.8)
    pt3dadd(19.8236106497558, -9.6980821649567, 2.34323833404355, 1.8)
    pt3dadd(19.635216398279, -10.6747842950999, 2.24047377310852, 1.8)
    pt3dadd(19.4468221468023, -11.6514864252432, 2.13770921217348, 1.8)
    pt3dadd(19.2584278953256, -12.6281885553864, 2.03494465123845, 1.8)
    pt3dadd(19.0700336438488, -13.6048906855297, 1.93218009030342, 1.8)
    pt3dadd(18.8816393923721, -14.5815928156729, 1.82941552936838, 1.8)
    pt3dadd(18.6932451408953, -15.5582949458162, 1.72665096843335, 1.8)
    pt3dadd(18.5666772740497, -16.5124973668192, 1.50559608028456, 1.8)
    pt3dadd(18.5231675215397, -17.4364734786917, 1.12562891574862, 1.8)
    pt3dadd(18.4796577690298, -18.3604495905642, 0.745661751212678, 1.8)
    pt3dadd(18.4361480165198, -19.2844257024367, 0.365694586676735, 1.8)
    pt3dadd(18.3926382640098, -20.2084018143092, -0.0142725778592081, 1.8)
    pt3dadd(18.3491285114998, -21.1323779261817, -0.394239742395152, 1.8)
    pt3dadd(18.3056187589899, -22.0563540380543, -0.774206906931094, 1.8)
    pt3dadd(18.2621090064799, -22.9803301499268, -1.15417407146704, 1.8)
    pt3dadd(18.063382388289, -23.9177845752256, -1.38555545790221, 1.8)
    pt3dadd(17.7703918501637, -24.8634244425646, -1.5267000145389, 1.8)
    pt3dadd(17.4774013120383, -25.8090643099035, -1.66784457117559, 1.8)
    pt3dadd(17.1844107739129, -26.7547041772425, -1.80898912781227, 1.8)
    pt3dadd(16.8914202357875, -27.7003440445814, -1.95013368444896, 1.8)
    pt3dadd(16.8050544161426, -28.6794940330377, -2.08236419732826, 1.8)
    pt3dadd(16.7955151664918, -29.6711036520962, -2.21128031775879, 1.8)
    pt3dadd(16.7861518836448, -30.6623062156928, -2.3410697623287, 1.8)
  }
  adendIML[4] {pt3dclear()
    pt3dadd(16.7861518836448, -30.6623062156928, -2.3410697623287, 1.8)
    pt3dadd(17.0121225090973, -31.6306520751546, -2.45093631112025, 1.8)
    pt3dadd(17.2369698342653, -32.5987213694324, -2.56177638438554, 1.8)
    pt3dadd(17.4618171594333, -33.5667906637101, -2.67261645765084, 1.8)
    pt3dadd(17.6746596780194, -34.5369728488982, -2.7844997325562, 1.8)
    pt3dadd(17.8131701490008, -35.5202377528007, -2.90284236300739, 1.8)
    pt3dadd(17.9516806199823, -36.5035026567031, -3.02118499345857, 1.8)
    pt3dadd(18.0901910909637, -37.4867675606056, -3.13952762390976, 1.8)
    pt3dadd(18.2287015619451, -38.4700324645081, -3.25787025436095, 1.8)
    pt3dadd(18.3672120329265, -39.4532973684107, -3.37621288481214, 1.8)
    pt3dadd(18.505722503908, -40.4365622723132, -3.49455551526333, 1.8)
    pt3dadd(18.5837289864519, -41.384030007389, -3.28881418377729, 1.8)
    pt3dadd(18.6320864141634, -42.3139558869807, -2.92426045982052, 1.8)
    pt3dadd(18.6804438418749, -43.2438817665724, -2.55970673586376, 1.8)
    pt3dadd(18.7288012695864, -44.1738076461641, -2.19515301190699, 1.8)
    pt3dadd(18.7771586972979, -45.1037335257558, -1.83059928795023, 1.8)
    pt3dadd(18.8255161250094, -46.0336594053475, -1.46604556399346, 1.8)
    pt3dadd(19.0003510183407, -46.995583353384, -1.4723607148454, 1.8)
    pt3dadd(19.2112683334513, -47.9666359457691, -1.58448006647006, 1.8)
    pt3dadd(19.4221856485618, -48.9376885381542, -1.69659941809472, 1.8)
    pt3dadd(19.6331029636724, -49.9087411305393, -1.80871876971938, 1.8)
    pt3dadd(19.9140557402949, -50.8553380897272, -1.94331643833688, 1.8)
    pt3dadd(20.2754751089766, -51.7738369766306, -2.10374036017795, 1.8)
    pt3dadd(20.6368944776583, -52.692335863534, -2.26416428201902, 1.8)
    pt3dadd(20.9983138463399, -53.6108347504375, -2.4245882038601, 1.8)
    pt3dadd(21.3597332150216, -54.5293336373409, -2.58501212570117, 1.8)
    pt3dadd(21.7211525837032, -55.4478325242444, -2.74543604754224, 1.8)
    pt3dadd(22.0825719523849, -56.3663314111478, -2.90585996938332, 1.8)
    pt3dadd(22.3010216585526, -57.3026908476184, -2.66502642427411, 1.8)
    pt3dadd(22.5056988361826, -58.2407708234277, -2.38553901499967, 1.8)
    pt3dadd(22.7103760138127, -59.1788507992371, -2.10605160572523, 1.8)
    pt3dadd(22.9150531914427, -60.1169307750464, -1.82656419645079, 1.8)
    pt3dadd(23.1197303690727, -61.0550107508558, -1.54707678717635, 1.8)
    pt3dadd(23.3244075467027, -61.9930907266652, -1.26758937790191, 1.8)
    pt3dadd(23.5012796393602, -62.9433298537745, -1.08501737528977, 1.8)
    pt3dadd(23.5907231533018, -63.9318014594972, -1.20718014577967, 1.8)
    pt3dadd(23.6801666672433, -64.9202730652199, -1.32934291626957, 1.8)
    pt3dadd(23.7696101811849, -65.9087446709426, -1.45150568675948, 1.8)
    pt3dadd(23.8590536951264, -66.8972162766653, -1.57366845724938, 1.8)
    pt3dadd(24.2305079598219, -67.8189010406121, -1.66910558632859, 1.8)
    pt3dadd(24.6133175223682, -68.7378966004103, -1.76346659466538, 1.8)
    pt3dadd(24.9961270849145, -69.6568921602085, -1.85782760300217, 1.8)
    pt3dadd(25.3789366474608, -70.5758877200067, -1.95218861133896, 1.8)
    pt3dadd(25.7617462100071, -71.4948832798049, -2.04654961967575, 1.8)
    pt3dadd(25.8816022258031, -72.4535471753642, -1.86417303966299, 1.8)
    pt3dadd(25.9419474838109, -73.4211886745745, -1.61916614416408, 1.8)
    pt3dadd(26.0022927418187, -74.3888301737848, -1.37415924866517, 1.8)
    pt3dadd(26.0626379998265, -75.3564716729951, -1.12915235316626, 1.8)
    pt3dadd(26.1229832578343, -76.3241131722054, -0.884145457667355, 1.8)
    pt3dadd(26.183328515842, -77.2917546714157, -0.639138562168448, 1.8)
    pt3dadd(26.2436737738498, -78.259396170626, -0.394131666669539, 1.8)
    pt3dadd(26.3924100077211, -79.2281571844352, -0.349435271368739, 1.8)
    pt3dadd(26.6100724358976, -80.19779118194, -0.460938536985178, 1.8)
    pt3dadd(26.8277348640741, -81.1674251794448, -0.572441802601615, 1.8)
    pt3dadd(27.0453972922506, -82.1370591769497, -0.683945068218054, 1.8)
    pt3dadd(27.2534627659993, -83.0996548823784, -0.636391473395205, 1.8)
    pt3dadd(27.4510198276086, -84.054543843501, -0.414674808855757, 1.8)
    pt3dadd(27.6485768892179, -85.0094328046236, -0.192958144316308, 1.8)
    pt3dadd(27.8461339508272, -85.9643217657462, 0.0287585202231404, 1.8)
    pt3dadd(28.0436910124365, -86.9192107268688, 0.250475184762589, 1.8)
    pt3dadd(28.2412480740458, -87.8740996879914, 0.472191849302037, 1.8)
    pt3dadd(28.4388051356551, -88.828988649114, 0.693908513841486, 1.8)
    pt3dadd(28.6363621972644, -89.7838776102366, 0.915625178380935, 1.8)
    pt3dadd(28.8339587243546, -90.7388063057186, 1.13693884929215, 1.8)
    pt3dadd(29.0523102669701, -91.7146314206695, 1.14631695508665, 1.8)
    pt3dadd(29.2706618095856, -92.6904565356206, 1.15569506088115, 1.8)
    pt3dadd(29.4890133522011, -93.6662816505716, 1.16507316667565, 1.8)
    pt3dadd(29.7073648948166, -94.6421067655225, 1.17445127247015, 1.8)
    pt3dadd(29.9257164374322, -95.6179318804735, 1.18382937826465, 1.8)
    pt3dadd(30.1440679800477, -96.5937569954245, 1.19320748405915, 1.8)
    pt3dadd(30.3624195226631, -97.5695821103755, 1.20258558985365, 1.8)
    pt3dadd(30.5745720945399, -98.5296418971383, 1.32848609944942, 1.8)
    pt3dadd(30.7789334774865, -99.469886999232, 1.60083802830045, 1.8)
    pt3dadd(30.9832948604331, -100.410132101326, 1.87318995715149, 1.8)
    pt3dadd(31.1876562433797, -101.35037720342, 2.14554188600252, 1.8)
    pt3dadd(31.3920176263263, -102.290622305513, 2.41789381485356, 1.8)
    pt3dadd(31.5963790092729, -103.230867407607, 2.69024574370459, 1.8)
    pt3dadd(31.8007403922195, -104.171112509701, 2.96259767255563, 1.8)
    pt3dadd(32.0051017751661, -105.111357611795, 3.23494960140666, 1.8)
    pt3dadd(32.2094631581127, -106.051602713888, 3.5073015302577, 1.8)
    pt3dadd(32.4138245410593, -106.991847815982, 3.77965345910874, 1.8)
    pt3dadd(32.6414669389531, -107.94191207269, 3.87339841813955, 1.8)
    pt3dadd(32.8954167442861, -108.903071915295, 3.7653185711112, 1.8)
    pt3dadd(33.1493665496191, -109.864231757901, 3.65723872408285, 1.8)
    pt3dadd(33.4033163549522, -110.825391600507, 3.5491588770545, 1.8)
    pt3dadd(33.6572661602852, -111.786551443112, 3.44107903002614, 1.8)
    pt3dadd(33.9186048709852, -112.745794724719, 3.33372098438646, 1.8)
    pt3dadd(34.1835450235722, -113.704103851302, 3.22671475347795, 1.8)
    pt3dadd(34.4484851761593, -114.662412977886, 3.11970852256944, 1.8)
    pt3dadd(34.7973692184981, -115.558704587902, 3.30225037245543, 1.8)
    pt3dadd(35.1831337901632, -116.42774896354, 3.61200441749561, 1.8)
  }
  adendMML[5] {pt3dclear()
    pt3dadd(35.1831337901632, -116.42774896354, 3.61200441749561, 1.8)
    pt3dadd(35.5688983618282, -117.296793339179, 3.92175846253579, 1.8)
    pt3dadd(35.9546629334933, -118.165837714818, 4.23151250757597, 1.8)
    pt3dadd(36.3404275051584, -119.034882090457, 4.54126655261615, 1.8)
    pt3dadd(36.7261920768234, -119.903926466095, 4.85102059765633, 1.8)
    pt3dadd(37.2005938965625, -120.76605920824, 4.87071103871489, 1.8)
    pt3dadd(37.70512113047, -121.625842872246, 4.79181667039544, 1.8)
    pt3dadd(38.2096483643776, -122.485626536253, 4.71292230207599, 1.8)
    pt3dadd(38.7141755982852, -123.34541020026, 4.63402793375654, 1.8)
    pt3dadd(39.2187028321928, -124.205193864267, 4.55513356543709, 1.8)
    pt3dadd(39.4027999551987, -125.164320117376, 4.44283750430456, 1.8)
    pt3dadd(39.4922434691402, -126.152791723099, 4.32067473381466, 1.8)
    pt3dadd(39.5816869830818, -127.141263328822, 4.19851196332475, 1.8)
    pt3dadd(39.6711304970233, -128.129734934544, 4.07634919283485, 1.8)
    pt3dadd(39.7605740109649, -129.118206540267, 3.95418642234494, 1.8)
    pt3dadd(39.8500175249064, -130.10667814599, 3.83202365185504, 1.8)
    pt3dadd(40.2848028717772, -130.994130024637, 3.74507705653184, 1.8)
    pt3dadd(40.7614160912374, -131.869346373526, 3.66239585146116, 1.8)
    pt3dadd(41.2380293106976, -132.744562722416, 3.57971464639048, 1.8)
    pt3dadd(41.302765279073, -133.690115541118, 3.46152075511154, 1.8)
    pt3dadd(41.1619286933126, -134.670774080542, 3.32560208396475, 1.8)
    pt3dadd(41.1187951358776, -135.64463623332, 3.20370427076585, 1.8)
  }
  adendMML[6] {pt3dclear()
    pt3dadd(41.1187951358776, -135.64463623332, 3.20370427076585, 1.8)
    pt3dadd(41.5030224755741, -136.555960394647, 2.95431299386296, 1.8)
    pt3dadd(41.8216289390822, -137.480453862235, 2.74502431810918, 1.8)
    pt3dadd(42.1402354025902, -138.404947329822, 2.53573564235541, 1.8)
    pt3dadd(42.4588418660983, -139.32944079741, 2.32644696660164, 1.8)
    pt3dadd(42.836205347085, -140.16643688521, 2.56315088575662, 1.8)
    pt3dadd(43.2418273595655, -140.96135208517, 3.01434996361925, 1.8)
    pt3dadd(43.6474493720461, -141.75626728513, 3.46554904148187, 1.8)
    pt3dadd(44.0530713845266, -142.55118248509, 3.9167481193445, 1.8)
    pt3dadd(44.4586933970072, -143.346097685049, 4.36794719720713, 1.8)
    pt3dadd(44.9382153552671, -144.178920539778, 4.58713501904497, 1.8)
    pt3dadd(45.4523237691139, -145.02948483402, 4.69773755144142, 1.8)
    pt3dadd(45.9664321829606, -145.880049128262, 4.80834008383787, 1.8)
    pt3dadd(46.4805405968074, -146.730613422504, 4.91894261623432, 1.8)
    pt3dadd(46.9946490106542, -147.581177716746, 5.02954514863077, 1.8)
    pt3dadd(47.5087574245009, -148.431742010988, 5.14014768102723, 1.8)
    pt3dadd(48.0228658383477, -149.282306305231, 5.25075021342368, 1.8)
    pt3dadd(48.3728931146828, -150.138328218532, 5.60913647165284, 1.8)
    pt3dadd(48.692710090216, -150.995354978069, 6.01314418890358, 1.8)
    pt3dadd(49.0125270657492, -151.852381737606, 6.41715190615432, 1.8)
    pt3dadd(49.3323440412824, -152.709408497143, 6.82115962340506, 1.8)
    pt3dadd(49.6521610168156, -153.56643525668, 7.2251673406558, 1.8)
    pt3dadd(49.9719779923488, -154.423462016217, 7.62917505790654, 1.8)
    pt3dadd(50.291794967882, -155.280488775754, 8.03318277515728, 1.8)
    pt3dadd(50.6300229646645, -156.149911840343, 8.389225139823, 1.8)
    pt3dadd(50.9876235102523, -157.032378615075, 8.69479713017618, 1.8)
    pt3dadd(51.3452240558402, -157.914845389808, 9.00036912052935, 1.8)
    pt3dadd(51.7028246014281, -158.797312164541, 9.30594111088252, 1.8)
    pt3dadd(52.060425147016, -159.679778939273, 9.6115131012357, 1.8)
    pt3dadd(52.4180256926039, -160.562245714006, 9.91708509158887, 1.8)
    pt3dadd(52.7756262381918, -161.444712488738, 10.222657081942, 1.8)
    pt3dadd(53.1332267837797, -162.327179263471, 10.5282290722952, 1.8)
  }
}
proc shape3d_8() {
  adendMML[6] {
    pt3dadd(53.4908273293676, -163.209646038203, 10.8338010626484, 1.8)
    pt3dadd(53.7454741562655, -164.134633504042, 10.8668975794138, 1.8)
    pt3dadd(53.9069012620483, -165.098121443852, 10.653280446767, 1.8)
    pt3dadd(54.0683283678311, -166.061609383661, 10.4396633141202, 1.8)
    pt3dadd(54.229755473614, -167.025097323471, 10.2260461814734, 1.8)
    pt3dadd(54.3911825793968, -167.98858526328, 10.0124290488266, 1.8)
    pt3dadd(54.5526096851797, -168.95207320309, 9.79881191617982, 1.8)
    pt3dadd(54.7140367909625, -169.915561142899, 9.58519478353303, 1.8)
    pt3dadd(54.8754638967453, -170.879049082709, 9.37157765088624, 1.8)
    pt3dadd(55.1283932255979, -171.784082204254, 9.51375587597618, 1.8)
    pt3dadd(55.4452823203058, -172.648255591861, 9.90463393599754, 1.8)
    pt3dadd(55.7621714150138, -173.512428979469, 10.2955119960189, 1.8)
    pt3dadd(56.0790605097218, -174.376602367076, 10.6863900560403, 1.8)
    pt3dadd(56.3959496044297, -175.240775754684, 11.0772681160616, 1.8)
    pt3dadd(56.7128386991377, -176.104949142292, 11.468146176083, 1.8)
    pt3dadd(57.0297277938457, -176.969122529899, 11.8590242361044, 1.8)
    pt3dadd(57.3113679733725, -177.840531515785, 12.2558731938533, 1.8)
    pt3dadd(57.4913779463916, -178.732802288296, 12.6699375344295, 1.8)
    pt3dadd(57.6713879194107, -179.625073060807, 13.0840018750057, 1.8)
    pt3dadd(57.8513978924298, -180.517343833317, 13.498066215582, 1.8)
    pt3dadd(58.0314078654488, -181.409614605828, 13.9121305561582, 1.8)
    pt3dadd(58.2114178384679, -182.301885378339, 14.3261948967344, 1.8)
    pt3dadd(58.391427811487, -183.194156150849, 14.7402592373106, 1.8)
    pt3dadd(58.5714377845061, -184.08642692336, 15.1543235778869, 1.8)
    pt3dadd(58.9000576044682, -184.975007176158, 15.4053273525907, 1.8)
    pt3dadd(59.3490348478031, -185.86059851905, 15.5242702311574, 1.8)
    pt3dadd(59.7980120911381, -186.746189861942, 15.643213109724, 1.8)
    pt3dadd(60.2469893344731, -187.631781204834, 15.7621559882907, 1.8)
    pt3dadd(60.695966577808, -188.517372547727, 15.8810988668573, 1.8)
    pt3dadd(61.1343682643596, -189.398962131198, 16.0144085319457, 1.8)
    pt3dadd(61.166773705401, -190.12692393568, 16.6992599746732, 1.8)
    pt3dadd(61.1991791464425, -190.854885740163, 17.3841114174007, 1.8)
    pt3dadd(61.231584587484, -191.582847544645, 18.0689628601282, 1.8)
    pt3dadd(61.2639900285254, -192.310809349127, 18.7538143028557, 1.8)
    pt3dadd(61.2963954695669, -193.038771153609, 19.4386657455832, 1.8)
    pt3dadd(61.3288009106083, -193.766732958091, 20.1235171883107, 1.8)
    pt3dadd(61.5826501358355, -194.535423917117, 20.4915184615578, 1.8)
    pt3dadd(62.1431841347544, -195.360522020692, 20.4207035229227, 1.8)
    pt3dadd(62.7037181336732, -196.185620124266, 20.3498885842877, 1.8)
    pt3dadd(63.264252132592, -197.010718227841, 20.2790736456527, 1.8)
    pt3dadd(63.8074251927743, -197.843196040301, 20.2167771516588, 1.8)
    pt3dadd(64.0238700752785, -198.814557980664, 20.3147954849053, 1.8)
    pt3dadd(64.2403149577827, -199.785919921026, 20.4128138181518, 1.8)
    pt3dadd(64.4567598402869, -200.757281861389, 20.5108321513983, 1.8)
    pt3dadd(64.6732047227911, -201.728643801752, 20.6088504846448, 1.8)
    pt3dadd(64.9810271868261, -202.611120922141, 20.9407455659687, 1.8)
    pt3dadd(65.3098754007435, -203.473145870763, 21.3264550941841, 1.8)
    pt3dadd(65.6387236146608, -204.335170819386, 21.7121646223994, 1.8)
    pt3dadd(65.9675718285781, -205.197195768008, 22.0978741506148, 1.8)
    pt3dadd(66.2964200424954, -206.05922071663, 22.4835836788302, 1.8)
    pt3dadd(66.6252682564127, -206.921245665253, 22.8692932070455, 1.8)
    pt3dadd(67.0137861115562, -207.782650242044, 23.0965001696046, 1.8)
    pt3dadd(67.5175767791383, -208.642856353349, 23.0175039081046, 1.8)
    pt3dadd(68.0213674467203, -209.503062464654, 22.9385076466045, 1.8)
    pt3dadd(68.5251581143023, -210.363268575959, 22.8595113851045, 1.8)
    pt3dadd(69.0289487818843, -211.223474687264, 22.7805151236044, 1.8)
    pt3dadd(69.557701788999, -212.06711473337, 22.6966293384871, 1.8)
    pt3dadd(70.1312861375984, -212.881002803503, 22.6039621688083, 1.8)
    pt3dadd(70.7048704861977, -213.694890873637, 22.5112949991295, 1.8)
    pt3dadd(71.2784548347971, -214.50877894377, 22.4186278294507, 1.8)
    pt3dadd(71.8520391833964, -215.322667013904, 22.325960659772, 1.8)
    pt3dadd(72.4256235319957, -216.136555084037, 22.2332934900932, 1.8)
    pt3dadd(72.9992078805951, -216.950443154171, 22.1406263204144, 1.8)
    pt3dadd(73.5079280901155, -217.789493846898, 22.1317731491527, 1.8)
    pt3dadd(73.8137278795895, -218.707263073759, 22.3851229764362, 1.8)
    pt3dadd(74.1195276690635, -219.62503230062, 22.6384728037196, 1.8)
    pt3dadd(74.4253274585375, -220.542801527481, 22.891822631003, 1.8)
    pt3dadd(74.7311272480114, -221.460570754342, 23.1451724582864, 1.8)
    pt3dadd(75.0369270374854, -222.378339981203, 23.3985222855699, 1.8)
    pt3dadd(75.3427268269594, -223.296109208064, 23.6518721128533, 1.8)
    pt3dadd(75.6485266164334, -224.213878434925, 23.9052219401367, 1.8)
    pt3dadd(76.0620285504277, -224.924134221697, 24.437195786245, 1.8)
    pt3dadd(76.5093625674084, -225.569204566181, 25.056692782137, 1.8)
    pt3dadd(76.9566965843891, -226.214274910665, 25.676189778029, 1.8)
    pt3dadd(77.4040306013697, -226.859345255149, 26.295686773921, 1.8)
    pt3dadd(77.8513646183504, -227.504415599633, 26.9151837698131, 1.8)
    pt3dadd(78.1067110770538, -228.29439449628, 27.4204797975327, 1.8)
    pt3dadd(78.2120207818445, -229.197618277001, 27.8365286744889, 1.8)
    pt3dadd(78.3173304866351, -230.100842057723, 28.252577551445, 1.8)
    pt3dadd(78.4226401914258, -231.004065838444, 28.6686264284012, 1.8)
    pt3dadd(78.5279498962164, -231.907289619165, 29.0846753053574, 1.8)
    pt3dadd(78.633259601007, -232.810513399886, 29.5007241823136, 1.8)
    pt3dadd(78.7385693057977, -233.713737180608, 29.9167730592697, 1.8)
  }
  adendOML[6] {pt3dclear()
    pt3dadd(78.7385693057977, -233.713737180608, 29.9167730592697, 1.8)
    pt3dadd(78.8438790105883, -234.616960961329, 30.3328219362259, 1.8)
    pt3dadd(78.996973193764, -235.508000825566, 30.696969161175, 1.8)
    pt3dadd(79.616268747005, -236.280170321225, 30.5547464917128, 1.8)
    pt3dadd(80.235564300246, -237.052339816885, 30.4125238222506, 1.8)
    pt3dadd(80.8548598534869, -237.824509312544, 30.2703011527884, 1.8)
    pt3dadd(81.4741554067279, -238.596678808203, 30.1280784833262, 1.8)
    pt3dadd(82.0934509599689, -239.368848303863, 29.985855813864, 1.8)
    pt3dadd(82.7127465132098, -240.141017799523, 29.8436331444018, 1.8)
    pt3dadd(83.2970643611446, -240.907628267918, 29.7623324624067, 1.8)
    pt3dadd(83.4286764186796, -241.602289938942, 30.4695265157757, 1.8)
    pt3dadd(83.5602884762145, -242.296951609967, 31.1767205691447, 1.8)
    pt3dadd(83.6919005337494, -242.991613280992, 31.8839146225138, 1.8)
    pt3dadd(83.8235125912843, -243.686274952017, 32.5911086758828, 1.8)
    pt3dadd(83.9551246488192, -244.380936623041, 33.2983027292519, 1.8)
    pt3dadd(84.0867367063541, -245.075598294066, 34.0054967826209, 1.8)
    pt3dadd(84.5327524461598, -245.820276012364, 34.4516523970178, 1.8)
    pt3dadd(85.0668241561313, -246.578961873107, 34.824698202941, 1.8)
    pt3dadd(85.6008958661028, -247.33764773385, 35.1977440088642, 1.8)
    pt3dadd(86.1349675760743, -248.096333594593, 35.5707898147874, 1.8)
    pt3dadd(86.6690392860458, -248.855019455336, 35.9438356207107, 1.8)
    pt3dadd(86.587703137063, -249.585508767542, 36.6200930942599, 1.8)
    pt3dadd(86.503174650502, -250.315851814308, 37.2979234336519, 1.8)
    pt3dadd(86.4186461639409, -251.046194861074, 37.9757537730439, 1.8)
    pt3dadd(86.3341176773799, -251.77653790784, 38.6535841124359, 1.8)
    pt3dadd(86.2495891908189, -252.506880954606, 39.3314144518279, 1.8)
    pt3dadd(86.4147380415083, -253.196493363989, 39.8288534686435, 1.8)
    pt3dadd(87.225722415373, -253.780748624049, 39.8596777519177, 1.8)
    pt3dadd(88.0367067892377, -254.36500388411, 39.8905020351918, 1.8)
    pt3dadd(88.8476911631024, -254.94925914417, 39.921326318466, 1.8)
  }
  adendMML[7] {pt3dclear()
    pt3dadd(41.1187951358776, -135.64463623332, 3.20370427076585, 1.8)
    pt3dadd(41.0025873030244, -136.656391605467, 3.26014176804914, 1.8)
    pt3dadd(40.9520003463598, -137.654977671354, 3.27647666418332, 1.8)
    pt3dadd(40.9014133896951, -138.653563737241, 3.2928115603175, 1.8)
    pt3dadd(40.8508264330304, -139.652149803128, 3.30914645645167, 1.8)
    pt3dadd(40.8002394763658, -140.650735869015, 3.32548135258584, 1.8)
    pt3dadd(40.7496525197011, -141.649321934902, 3.34181624872002, 1.8)
    pt3dadd(40.6990655630364, -142.647908000789, 3.35815114485419, 1.8)
    pt3dadd(40.6484786063718, -143.646494066676, 3.37448604098837, 1.8)
    pt3dadd(40.6082435382424, -144.635098419806, 3.50711460578094, 1.8)
    pt3dadd(40.5706111303475, -145.621193181881, 3.66898159464592, 1.8)
    pt3dadd(40.5329787224527, -146.607287943956, 3.83084858351091, 1.8)
    pt3dadd(40.4953463145578, -147.593382706031, 3.99271557237589, 1.8)
    pt3dadd(40.457713906663, -148.579477468106, 4.15458256124087, 1.8)
    pt3dadd(40.4200814987681, -149.565572230181, 4.31644955010586, 1.8)
    pt3dadd(40.4238368963732, -150.552441114853, 4.38580988415785, 1.8)
    pt3dadd(40.5132804103147, -151.540912720575, 4.26364711366795, 1.8)
    pt3dadd(40.6027239242563, -152.529384326298, 4.14148434317804, 1.8)
    pt3dadd(40.6921674381978, -153.517855932021, 4.01932157268814, 1.8)
    pt3dadd(40.7816109521394, -154.506327537743, 3.89715880219824, 1.8)
    pt3dadd(40.8710544660809, -155.494799143466, 3.77499603170833, 1.8)
    pt3dadd(40.9604979800225, -156.483270749189, 3.65283326121843, 1.8)
    pt3dadd(41.049941493964, -157.471742354912, 3.53067049072852, 1.8)
    pt3dadd(41.1594606498835, -158.461274343175, 3.43746488305155, 1.8)
    pt3dadd(41.2713176806323, -159.450929816489, 3.34763143264555, 1.8)
    pt3dadd(41.383174711381, -160.440585289803, 3.25779798223956, 1.8)
    pt3dadd(41.4950317421297, -161.430240763117, 3.16796453183356, 1.8)
    pt3dadd(41.6068887728784, -162.419896236431, 3.07813108142757, 1.8)
    pt3dadd(41.7187458036271, -163.409551709745, 2.98829763102157, 1.8)
    pt3dadd(41.8306028343758, -164.399207183059, 2.89846418061557, 1.8)
    pt3dadd(41.9424598651245, -165.388862656373, 2.80863073020958, 1.8)
    pt3dadd(41.9528226625111, -166.37978093216, 2.68855001592373, 1.8)
    pt3dadd(41.9310277556863, -167.371099317659, 2.55888567769364, 1.8)
    pt3dadd(41.9092328488615, -168.362417703158, 2.42922133946356, 1.8)
    pt3dadd(41.8874379420367, -169.353736088657, 2.29955700123347, 1.8)
    pt3dadd(41.8656430352119, -170.345054474155, 2.16989266300338, 1.8)
    pt3dadd(41.966516797955, -171.332529750372, 2.04859177840304, 1.8)
    pt3dadd(42.0674161627098, -172.320004224499, 1.92729263932779, 1.8)
    pt3dadd(42.1683155274647, -173.307478698625, 1.80599350025253, 1.8)
    pt3dadd(42.2692148922196, -174.294953172752, 1.68469436117727, 1.8)
    pt3dadd(42.3701142569745, -175.282427646879, 1.56339522210201, 1.8)
    pt3dadd(42.4710136217294, -176.269902121005, 1.44209608302675, 1.8)
    pt3dadd(42.319008375034, -177.246369139543, 1.30600355663516, 1.8)
    pt3dadd(42.1477881443441, -178.221999842436, 1.16878707011141, 1.8)
    pt3dadd(41.9765679136542, -179.19763054533, 1.03157058358766, 1.8)
    pt3dadd(41.8053476829643, -180.173261248223, 0.894354097063915, 1.8)
    pt3dadd(41.6341274522744, -181.148891951117, 0.757137610540168, 1.8)
    pt3dadd(41.5003714844561, -182.1139702573, 0.85070430605775, 1.8)
    pt3dadd(41.3953269673518, -183.070961533474, 1.12113608442776, 1.8)
    pt3dadd(41.2902824502474, -184.027952809649, 1.39156786279777, 1.8)
    pt3dadd(41.185237933143, -184.984944085823, 1.66199964116778, 1.8)
    pt3dadd(41.0801934160387, -185.941935361997, 1.93243141953779, 1.8)
    pt3dadd(40.9751488989343, -186.898926638172, 2.2028631979078, 1.8)
    pt3dadd(40.87010438183, -187.855917914346, 2.47329497627781, 1.8)
    pt3dadd(40.7650598647256, -188.812909190521, 2.74372675464782, 1.8)
    pt3dadd(40.6115506501039, -189.76782926532, 2.9004872687815, 1.8)
    pt3dadd(40.3311587441197, -190.717326844604, 2.75965145660545, 1.8)
    pt3dadd(40.0507668381356, -191.666824423889, 2.6188156444294, 1.8)
    pt3dadd(39.7703749321515, -192.616322003173, 2.47797983225335, 1.8)
    pt3dadd(39.4899830261673, -193.565819582458, 2.33714402007729, 1.8)
    pt3dadd(39.2095911201832, -194.515317161742, 2.19630820790124, 1.8)
    pt3dadd(38.9291992141991, -195.464814741027, 2.05547239572519, 1.8)
    pt3dadd(38.6015566389374, -196.406130477618, 1.99662735497084, 1.8)
    pt3dadd(38.2576142630833, -197.344623769439, 1.96606621463595, 1.8)
    pt3dadd(37.9136718872292, -198.28311706126, 1.93550507430106, 1.8)
    pt3dadd(37.5697295113751, -199.221610353082, 1.90494393396616, 1.8)
    pt3dadd(37.225787135521, -200.160103644903, 1.87438279363127, 1.8)
    pt3dadd(36.8818447596669, -201.098596936724, 1.84382165329638, 1.8)
    pt3dadd(36.5379023838128, -202.037090228545, 1.81326051296148, 1.8)
    pt3dadd(36.1939600079587, -202.975583520366, 1.78269937262659, 1.8)
    pt3dadd(35.8500176321046, -203.914076812187, 1.7521382322917, 1.8)
    pt3dadd(35.6763374453627, -204.868443173074, 1.8685453776204, 1.8)
    pt3dadd(35.6549309437391, -205.837005584965, 2.11639334706981, 1.8)
    pt3dadd(35.6335244421155, -206.805567996856, 2.36424131651922, 1.8)
    pt3dadd(35.6121179404919, -207.774130408747, 2.61208928596863, 1.8)
    pt3dadd(35.5907114388683, -208.742692820638, 2.85993725541804, 1.8)
    pt3dadd(35.5693049372447, -209.711255232529, 3.10778522486745, 1.8)
    pt3dadd(35.547898435621, -210.67981764442, 3.35563319431686, 1.8)
    pt3dadd(35.5264919339974, -211.648380056311, 3.60348116376627, 1.8)
    pt3dadd(35.5050854323738, -212.616942468202, 3.85132913321569, 1.8)
    pt3dadd(35.4836789307502, -213.585504880093, 4.0991771026651, 1.8)
    pt3dadd(35.4779489241349, -214.537340491173, 3.89861815627784, 1.8)
    pt3dadd(35.4763988313688, -215.48471613934, 3.57849790000981, 1.8)
    pt3dadd(35.4748487386027, -216.432091787507, 3.25837764374179, 1.8)
    pt3dadd(35.4732986458366, -217.379467435673, 2.93825738747376, 1.8)
    pt3dadd(35.4717485530704, -218.32684308384, 2.61813713120573, 1.8)
    pt3dadd(35.4701984603043, -219.274218732007, 2.2980168749377, 1.8)
    pt3dadd(35.3706464595047, -220.076579626748, 2.66195575200604, 1.8)
    pt3dadd(35.2290579064237, -220.816738464547, 3.31931225837401, 1.8)
    pt3dadd(35.0874693533427, -221.556897302346, 3.97666876474198, 1.8)
    pt3dadd(34.9458808002617, -222.297056140145, 4.63402527110995, 1.8)
    pt3dadd(34.8042922471807, -223.037214977944, 5.29138177747792, 1.8)
    pt3dadd(34.6627036940997, -223.777373815744, 5.94873828384589, 1.8)
    pt3dadd(34.5211151410187, -224.517532653543, 6.60609479021386, 1.8)
    pt3dadd(34.3795265879378, -225.257691491342, 7.26345129658183, 1.8)
    pt3dadd(34.2379380348568, -225.997850329141, 7.9208078029498, 1.8)
    pt3dadd(34.0979390932744, -226.868050102964, 8.14986496301999, 1.8)
    pt3dadd(33.9592943759957, -227.849034553535, 8.01404467694595, 1.8)
    pt3dadd(33.8206496587169, -228.830019004106, 7.87822439087191, 1.8)
    pt3dadd(33.6820049414382, -229.811003454676, 7.74240410479787, 1.8)
    pt3dadd(33.5433602241594, -230.791987905247, 7.60658381872383, 1.8)
    pt3dadd(33.4047155068806, -231.772972355818, 7.47076353264979, 1.8)
    pt3dadd(33.325926534942, -232.7542271536, 7.30006212159549, 1.8)
    pt3dadd(33.2694904865748, -233.735582911625, 7.1163344736054, 1.8)
  }
  adendOML[7] {pt3dclear()
    pt3dadd(33.2694904865748, -233.735582911625, 7.1163344736054, 1.8)
    pt3dadd(33.2130544382075, -234.71693866965, 6.93260682561531, 1.8)
    pt3dadd(33.1566183898403, -235.698294427675, 6.74887917762521, 1.8)
    pt3dadd(33.100182341473, -236.6796501857, 6.56515152963512, 1.8)
    pt3dadd(33.0437462931058, -237.661005943725, 6.38142388164503, 1.8)
    pt3dadd(32.9873102447386, -238.64236170175, 6.19769623365493, 1.8)
    pt3dadd(32.6967559010237, -239.578406376773, 6.33268471585084, 1.8)
    pt3dadd(32.3749108348994, -240.508395068352, 6.51027071458121, 1.8)
    pt3dadd(32.053065768775, -241.438383759932, 6.68785671331158, 1.8)
    pt3dadd(31.7312207026506, -242.368372451512, 6.86544271204195, 1.8)
    pt3dadd(31.4093756365263, -243.298361143092, 7.04302871077232, 1.8)
    pt3dadd(31.106781498754, -244.206984603927, 7.28546965206032, 1.8)
    pt3dadd(30.8962210318423, -245.013466465236, 7.83796516982735, 1.8)
    pt3dadd(30.6856605649306, -245.819948326546, 8.39046068759438, 1.8)
    pt3dadd(30.4751000980189, -246.626430187855, 8.94295620536142, 1.8)
    pt3dadd(30.2645396311072, -247.432912049165, 9.49545172312845, 1.8)
    pt3dadd(30.0539791641955, -248.239393910474, 10.0479472408955, 1.8)
    pt3dadd(29.8500186317291, -249.093684177171, 10.1605327641245, 1.8)
    pt3dadd(29.6533341262985, -250.000680308301, 9.78814422584885, 1.8)
    pt3dadd(29.4566496208679, -250.907676439431, 9.41575568757322, 1.8)
    pt3dadd(29.2599651154373, -251.814672570561, 9.04336714929759, 1.8)
    pt3dadd(29.0632806100067, -252.721668701691, 8.67097861102195, 1.8)
    pt3dadd(28.8665961045761, -253.62866483282, 8.29859007274632, 1.8)
    pt3dadd(28.4814190842846, -254.496192670808, 8.45320720237694, 1.8)
    pt3dadd(28.0512611088737, -255.354301983483, 8.73358645212794, 1.8)
    pt3dadd(27.6211031334629, -256.212411296158, 9.01396570187894, 1.8)
    pt3dadd(27.190945158052, -257.070520608833, 9.29434495162993, 1.8)
    pt3dadd(26.7607871826412, -257.928629921508, 9.57472420138093, 1.8)
    pt3dadd(26.3306292072303, -258.786739234183, 9.85510345113192, 1.8)
    pt3dadd(25.9246305542607, -259.614111983933, 10.1953008997877, 1.8)
    pt3dadd(25.6836725590391, -260.231512679447, 10.9441370806169, 1.8)
    pt3dadd(25.4427145638175, -260.848913374959, 11.6929732614461, 1.8)
  }
}
proc shape3d_9() {
  adendOML[7] {
    pt3dadd(25.201756568596, -261.466314070472, 12.4418094422753, 1.8)
    pt3dadd(24.9607985733744, -262.083714765985, 13.1906456231045, 1.8)
    pt3dadd(24.7198405781528, -262.701115461498, 13.9394818039337, 1.8)
    pt3dadd(24.4788825829312, -263.318516157011, 14.6883179847629, 1.8)
    pt3dadd(23.8848487829907, -263.975485841334, 14.9521501316258, 1.8)
    pt3dadd(23.1482909513291, -264.648428106449, 15.0202035550588, 1.8)
    pt3dadd(22.4117331196676, -265.321370371563, 15.0882569784918, 1.8)
  }
  adendIML[5] {pt3dclear()
    pt3dadd(16.7861518836448, -30.6623062156928, -2.3410697623287, 1.8)
    pt3dadd(16.6045912544906, -31.5303147405658, -2.80412918004594, 1.8)
    pt3dadd(16.4241539256211, -32.3985998306231, -3.26621507328946, 1.8)
    pt3dadd(16.2437165967515, -33.2668849206804, -3.72830096653297, 1.8)
    pt3dadd(16.063279267882, -34.1351700107377, -4.19038685977648, 1.8)
    pt3dadd(15.8828419390124, -35.0034551007949, -4.65247275301999, 1.8)
    pt3dadd(15.7024046101429, -35.8717401908522, -5.11455864626349, 1.8)
    pt3dadd(15.5219672812734, -36.7400252809095, -5.57664453950701, 1.8)
    pt3dadd(15.3415299524038, -37.6083103709668, -6.03873043275052, 1.8)
    pt3dadd(15.2091163916644, -38.5643883540703, -6.25234131463828, 1.8)
    pt3dadd(15.0919303848926, -39.548304032317, -6.38716482118382, 1.8)
    pt3dadd(14.9747443781209, -40.5322197105637, -6.52198832772935, 1.8)
    pt3dadd(14.8575583713491, -41.5161353888104, -6.65681183427488, 1.8)
    pt3dadd(14.7403723645773, -42.5000510670571, -6.79163534082041, 1.8)
    pt3dadd(14.6231863578055, -43.4839667453037, -6.92645884736595, 1.8)
    pt3dadd(14.5060003510337, -44.4678824235504, -7.06128235391148, 1.8)
    pt3dadd(14.3888143442619, -45.4517981017971, -7.19610586045701, 1.8)
    pt3dadd(14.2716283374901, -46.4357137800438, -7.33092936700254, 1.8)
    pt3dadd(14.1609328290802, -47.4204175131997, -7.46543863335346, 1.8)
    pt3dadd(14.0521035310342, -48.4053478354641, -7.59985754634855, 1.8)
    pt3dadd(13.9432742329882, -49.3902781577286, -7.73427645934365, 1.8)
    pt3dadd(13.8344449349423, -50.3752084799931, -7.86869537233874, 1.8)
    pt3dadd(13.7256156368963, -51.3601388022576, -8.00311428533384, 1.8)
    pt3dadd(13.7257379605206, -52.2857561944482, -8.37341982805302, 1.8)
    pt3dadd(13.7352263946758, -53.2062747046721, -8.76400354757096, 1.8)
    pt3dadd(13.7447148288309, -54.126793214896, -9.1545872670889, 1.8)
    pt3dadd(13.754203262986, -55.0473117251199, -9.54517098660684, 1.8)
    pt3dadd(13.7636916971412, -55.9678302353438, -9.93575470612478, 1.8)
    pt3dadd(13.7448135786082, -56.8993479064351, -10.1456896303868, 1.8)
    pt3dadd(13.6516830999402, -57.8596570088609, -9.88275781081896, 1.8)
    pt3dadd(13.5585526212721, -58.8199661112867, -9.61982599125107, 1.8)
    pt3dadd(13.4654221426041, -59.7802752137124, -9.35689417168319, 1.8)
    pt3dadd(13.372291663936, -60.7405843161382, -9.0939623521153, 1.8)
    pt3dadd(13.2791611852679, -61.700893418564, -8.83103053254741, 1.8)
    pt3dadd(13.1860307065999, -62.6612025209898, -8.56809871297952, 1.8)
    pt3dadd(13.0929002279318, -63.6215116234155, -8.30516689341164, 1.8)
    pt3dadd(13.056325814997, -64.5905446430044, -8.16152607820594, 1.8)
    pt3dadd(13.1457693289385, -65.5790162487272, -8.28368884869584, 1.8)
    pt3dadd(13.2352128428801, -66.5674878544498, -8.40585161918575, 1.8)
    pt3dadd(13.3246563568216, -67.5559594601725, -8.52801438967565, 1.8)
    pt3dadd(13.4140998707632, -68.5444310658952, -8.65017716016555, 1.8)
    pt3dadd(13.5035433847047, -69.5329026716179, -8.77233993065546, 1.8)
    pt3dadd(13.46960022917, -70.5241198759823, -8.76158574641858, 1.8)
    pt3dadd(13.3748214752435, -71.5166907933289, -8.68529707201724, 1.8)
    pt3dadd(13.2800427213169, -72.5092617106755, -8.60900839761591, 1.8)
    pt3dadd(13.1852639673904, -73.501832628022, -8.53271972321457, 1.8)
    pt3dadd(13.0904852134639, -74.4944035453686, -8.45643104881323, 1.8)
    pt3dadd(12.9833766955661, -75.4842530707946, -8.41381227582064, 1.8)
    pt3dadd(12.8103870478025, -76.4595614926795, -8.55110052720008, 1.8)
    pt3dadd(12.6373974000388, -77.4348699145645, -8.68838877857952, 1.8)
    pt3dadd(12.4884058979095, -78.411382041045, -8.82429388351961, 1.8)
    pt3dadd(12.5778494118511, -79.3998536467677, -8.94645665400952, 1.8)
    pt3dadd(12.6672929257926, -80.3883252524903, -9.06861942449942, 1.8)
    pt3dadd(12.7567364397342, -81.3767968582131, -9.19078219498933, 1.8)
    pt3dadd(12.8461799536757, -82.3652684639358, -9.31294496547923, 1.8)
    pt3dadd(12.9356234676173, -83.3537400696585, -9.43510773596914, 1.8)
    pt3dadd(12.953753727674, -84.3374242755651, -9.60467805854065, 1.8)
    pt3dadd(12.9400606574531, -85.3189721183523, -9.79540386211123, 1.8)
    pt3dadd(12.9263675872322, -86.3005199611395, -9.9861296656818, 1.8)
    pt3dadd(12.9126745170114, -87.2820678039268, -10.1768554692524, 1.8)
    pt3dadd(12.8989814467905, -88.263615646714, -10.3675812728229, 1.8)
    pt3dadd(12.8852883765696, -89.2451634895013, -10.5583070763935, 1.8)
    pt3dadd(12.8715953063488, -90.2267113322885, -10.7490328799641, 1.8)
    pt3dadd(12.8448983784871, -91.2156344133222, -10.8926368225194, 1.8)
    pt3dadd(12.8144964594347, -92.2066588087109, -11.0228150505848, 1.8)
    pt3dadd(12.7840945403824, -93.1976832040997, -11.1529932786501, 1.8)
    pt3dadd(12.75369262133, -94.1887075994885, -11.2831715067155, 1.8)
    pt3dadd(12.7232907022776, -95.1797319948773, -11.4133497347809, 1.8)
    pt3dadd(12.6928887832252, -96.170756390266, -11.5435279628463, 1.8)
    pt3dadd(12.6427257996364, -97.1599941774604, -11.6747422103547, 1.8)
    pt3dadd(12.5087111669985, -98.1416508931484, -11.8103525742055, 1.8)
    pt3dadd(12.3746965343605, -99.1233076088363, -11.9459629380563, 1.8)
    pt3dadd(12.2406819017226, -100.104964324524, -12.0815733019071, 1.8)
    pt3dadd(12.1066672690847, -101.086621040212, -12.2171836657579, 1.8)
    pt3dadd(11.9864443031927, -102.070335383819, -12.3391637499322, 1.8)
    pt3dadd(11.9740722224115, -103.07014038538, -12.3545549964767, 1.8)
    pt3dadd(11.9617001416304, -104.069945386941, -12.3699462430213, 1.8)
    pt3dadd(11.9493280608493, -105.069750388502, -12.3853374895658, 1.8)
    pt3dadd(11.9369559800682, -106.069555390064, -12.4007287361104, 1.8)
    pt3dadd(11.9245838992871, -107.069360391625, -12.416119982655, 1.8)
    pt3dadd(11.912211818506, -108.069165393186, -12.4315112291995, 1.8)
    pt3dadd(11.8998397377249, -109.068970394748, -12.4469024757441, 1.8)
    pt3dadd(11.8061079512525, -110.056033560337, -12.5685038921761, 1.8)
    pt3dadd(11.702764923314, -111.041591498477, -12.7026522024331, 1.8)
    pt3dadd(11.5994218953755, -112.027149436618, -12.8368005126902, 1.8)
    pt3dadd(11.496078867437, -113.012707374758, -12.9709488229472, 1.8)
    pt3dadd(11.3927358394986, -113.998265312899, -13.1050971332042, 1.8)
    pt3dadd(11.3000060585581, -114.984858901816, -13.2386988662617, 1.8)
    pt3dadd(11.2244841648404, -115.9731316528, -13.3714144012676, 1.8)
    pt3dadd(11.1489622711228, -116.961404403784, -13.5041299362735, 1.8)
  }
  adendMML[8] {pt3dclear()
    pt3dadd(11.1489622711228, -116.961404403784, -13.5041299362735, 1.8)
    pt3dadd(11.0734403774051, -117.949677154768, -13.6368454712794, 1.8)
    pt3dadd(10.9979184836875, -118.937949905752, -13.7695610062853, 1.8)
    pt3dadd(11.0093507648106, -119.920000993491, -13.7089694758421, 1.8)
    pt3dadd(11.0822242750651, -120.897655896255, -13.5117884863795, 1.8)
    pt3dadd(11.1550977853196, -121.875310799018, -13.3146074969169, 1.8)
    pt3dadd(11.2279712955741, -122.852965701782, -13.1174265074543, 1.8)
    pt3dadd(11.3008448058286, -123.830620604545, -12.9202455179917, 1.8)
    pt3dadd(11.3737183160831, -124.808275507309, -12.7230645285291, 1.8)
    pt3dadd(11.4533827316064, -125.790363432931, -12.6567605903321, 1.8)
    pt3dadd(11.542826245548, -126.778835038654, -12.778923360822, 1.8)
    pt3dadd(11.6322697594895, -127.767306644377, -12.9010861313119, 1.8)
    pt3dadd(11.7217132734311, -128.7557782501, -13.0232489018018, 1.8)
    pt3dadd(11.8111567873726, -129.744249855822, -13.1454116722917, 1.8)
    pt3dadd(11.9006003013142, -130.732721461545, -13.2675744427816, 1.8)
    pt3dadd(11.9581735841677, -131.716546166045, -13.2199394766568, 1.8)
    pt3dadd(11.9874654341844, -132.696247241053, -13.0216271191245, 1.8)
    pt3dadd(12.0167572842011, -133.675948316062, -12.8233147615923, 1.8)
    pt3dadd(12.0460491342178, -134.65564939107, -12.62500240406, 1.8)
    pt3dadd(12.0753409842346, -135.635350466079, -12.4266900465277, 1.8)
    pt3dadd(12.1046328342513, -136.615051541087, -12.2283776889954, 1.8)
    pt3dadd(12.133924684268, -137.594752616095, -12.0300653314631, 1.8)
    pt3dadd(12.1632165342847, -138.574453691104, -11.8317529739308, 1.8)
    pt3dadd(12.1925083843015, -139.554154766112, -11.6334406163985, 1.8)
    pt3dadd(12.2413234925269, -140.529999948029, -11.5169954804863, 1.8)
    pt3dadd(12.3775575752112, -141.488579660421, -11.7671258658997, 1.8)
    pt3dadd(12.5137916578956, -142.447159372812, -12.017256251313, 1.8)
    pt3dadd(12.6500257405799, -143.405739085203, -12.2673866367264, 1.8)
    pt3dadd(12.7862598232643, -144.364318797594, -12.5175170221398, 1.8)
    pt3dadd(12.9224939059486, -145.322898509986, -12.7676474075532, 1.8)
    pt3dadd(13.058727988633, -146.281478222377, -13.0177777929665, 1.8)
    pt3dadd(13.1043657717405, -147.163032891591, -12.790679246063, 1.8)
    pt3dadd(13.0866298883965, -147.990707221127, -12.2297508703598, 1.8)
    pt3dadd(13.0688940050526, -148.818381550663, -11.6688224946567, 1.8)
    pt3dadd(13.0511581217087, -149.646055880199, -11.1078941189536, 1.8)
    pt3dadd(13.0334222383648, -150.473730209735, -10.5469657432504, 1.8)
    pt3dadd(12.8524997589578, -151.433763185747, -10.6311017690455, 1.8)
    pt3dadd(12.6579180722121, -152.404874977291, -10.7692316192078, 1.8)
    pt3dadd(12.4633363854664, -153.375986768836, -10.9073614693702, 1.8)
    pt3dadd(12.2687546987207, -154.347098560381, -11.0454913195326, 1.8)
    pt3dadd(12.0741730119749, -155.318210351926, -11.183621169695, 1.8)
    pt3dadd(11.8795913252292, -156.289322143471, -11.3217510198574, 1.8)
    pt3dadd(11.6850096384835, -157.260433935015, -11.4598808700198, 1.8)
    pt3dadd(11.5127501888629, -158.235498960116, -11.5970908039354, 1.8)
    pt3dadd(11.3729410631338, -159.216310887222, -11.732963435501, 1.8)
    pt3dadd(11.2331319374046, -160.197122814329, -11.8688360670667, 1.8)
    pt3dadd(11.0933228116755, -161.177934741435, -12.0047086986323, 1.8)
    pt3dadd(10.9535136859464, -162.158746668542, -12.140581330198, 1.8)
    pt3dadd(10.8137045602172, -163.139558595648, -12.2764539617636, 1.8)
    pt3dadd(10.6392071963119, -164.119634971207, -12.3564992170678, 1.8)
    pt3dadd(10.4438854994697, -165.099269774316, -12.4030297154578, 1.8)
    pt3dadd(10.2485638026275, -166.078904577425, -12.4495602138478, 1.8)
    pt3dadd(10.0532421057854, -167.058539380534, -12.4960907122378, 1.8)
    pt3dadd(9.85792040894319, -168.038174183643, -12.5426212106278, 1.8)
    pt3dadd(9.66259871210102, -169.017808986752, -12.5891517090178, 1.8)
    pt3dadd(9.46727701525885, -169.997443789861, -12.6356822074079, 1.8)
    pt3dadd(9.27108193947825, -170.975778066126, -12.660986502757, 1.8)
    pt3dadd(9.06769704526321, -171.943406162671, -12.5115527328725, 1.8)
    pt3dadd(8.86431215104816, -172.911034259216, -12.362118962988, 1.8)
    pt3dadd(8.66092725683311, -173.878662355761, -12.2126851931035, 1.8)
    pt3dadd(8.45754236261806, -174.846290452305, -12.063251423219, 1.8)
    pt3dadd(8.25415746840302, -175.81391854885, -11.9138176533345, 1.8)
    pt3dadd(7.92918844246654, -176.755313143622, -11.829973475394, 1.8)
    pt3dadd(7.59720027931154, -177.695193259933, -11.7499158306092, 1.8)
    pt3dadd(7.26521211615654, -178.635073376244, -11.6698581858243, 1.8)
    pt3dadd(6.93322395300155, -179.574953492555, -11.5898005410395, 1.8)
    pt3dadd(6.77870442283701, -180.54334444561, -11.4669058382686, 1.8)
    pt3dadd(6.74497963465399, -181.531141414874, -11.3148539189267, 1.8)
    pt3dadd(6.71125484647096, -182.518938384137, -11.1628019995848, 1.8)
    pt3dadd(6.67753005828794, -183.506735353401, -11.0107500802429, 1.8)
    pt3dadd(6.64380527010492, -184.494532322665, -10.858698160901, 1.8)
    pt3dadd(6.52281448536202, -185.470246145694, -10.8235729664835, 1.8)
    pt3dadd(6.27108690373991, -186.427857707852, -10.9636205322338, 1.8)
    pt3dadd(6.0193593221178, -187.385469270009, -11.1036680979842, 1.8)
    pt3dadd(5.76763174049569, -188.343080832167, -11.2437156637345, 1.8)
    pt3dadd(5.51590415887357, -189.300692394325, -11.3837632294849, 1.8)
    pt3dadd(5.26417657725146, -190.258303956482, -11.5238107952353, 1.8)
    pt3dadd(5.01299485619437, -191.216061185807, -11.6638422052681, 1.8)
    pt3dadd(4.76187616725089, -192.173835235745, -11.803871749753, 1.8)
    pt3dadd(4.5107574783074, -193.131609285683, -11.943901294238, 1.8)
    pt3dadd(4.35484924426399, -194.115779779443, -11.9859239609268, 1.8)
    pt3dadd(4.22516906758997, -195.107221821727, -12.0009482269028, 1.8)
    pt3dadd(4.09548889091596, -196.098663864012, -12.0159724928789, 1.8)
    pt3dadd(3.96580871424195, -197.090105906297, -12.030996758855, 1.8)
    pt3dadd(3.83612853756794, -198.081547948582, -12.0460210248311, 1.8)
    pt3dadd(3.6042192683953, -199.043732392372, -12.1304683261264, 1.8)
    pt3dadd(3.28807496368019, -199.981809072035, -12.2721190291603, 1.8)
    pt3dadd(2.97193065896508, -200.919885751697, -12.4137697321942, 1.8)
    pt3dadd(2.67325090977768, -201.861780663373, -12.5342521533548, 1.8)
    pt3dadd(2.58178305048868, -202.848977791331, -12.4035790449113, 1.8)
    pt3dadd(2.49031519119966, -203.836174919288, -12.2729059364677, 1.8)
    pt3dadd(2.39884733191064, -204.823372047245, -12.1422328280241, 1.8)
    pt3dadd(2.30737947262163, -205.810569175202, -12.0115597195806, 1.8)
    pt3dadd(2.21165580369036, -206.795865104814, -11.8726750675571, 1.8)
    pt3dadd(2.08061036571547, -207.765381736359, -11.6656374034861, 1.8)
    pt3dadd(1.94956492774058, -208.734898367903, -11.4585997394151, 1.8)
    pt3dadd(1.81851948976569, -209.704414999448, -11.251562075344, 1.8)
    pt3dadd(1.6874740517908, -210.673931630993, -11.044524411273, 1.8)
    pt3dadd(1.55642861381591, -211.643448262538, -10.837486747202, 1.8)
    pt3dadd(1.42538317584102, -212.612964894082, -10.630449083131, 1.8)
    pt3dadd(1.28851117045064, -213.583724321627, -10.482536311977, 1.8)
    pt3dadd(1.12356601252563, -214.560471700429, -10.619494892872, 1.8)
    pt3dadd(0.958620854600627, -215.537219079231, -10.7564534737671, 1.8)
    pt3dadd(0.793675696675626, -216.513966458033, -10.8934120546621, 1.8)
    pt3dadd(0.628730538750616, -217.490713836835, -11.0303706355571, 1.8)
    pt3dadd(0.463785380825612, -218.467461215637, -11.1673292164522, 1.8)
    pt3dadd(0.298840222900607, -219.444208594439, -11.3042877973472, 1.8)
    pt3dadd(0.144618833509389, -220.419002283656, -11.174177624538, 1.8)
    pt3dadd(-0.00824200116031637, -221.393548102773, -11.0101836866442, 1.8)
    pt3dadd(-0.161102835830017, -222.36809392189, -10.8461897487504, 1.8)
    pt3dadd(-0.313963670499719, -223.342639741007, -10.6821958108566, 1.8)
    pt3dadd(-0.46368899864978, -224.317882323126, -10.527246452377, 1.8)
    pt3dadd(-0.529175887475348, -225.311844122553, -10.6152885370411, 1.8)
    pt3dadd(-0.594662776300915, -226.30580592198, -10.7033306217053, 1.8)
    pt3dadd(-0.660149665126487, -227.299767721407, -10.7913727063694, 1.8)
    pt3dadd(-0.725636553952056, -228.293729520834, -10.8794147910335, 1.8)
    pt3dadd(-0.791123442777624, -229.287691320261, -10.9674568756977, 1.8)
    pt3dadd(-0.856610331603194, -230.281653119688, -11.0554989603618, 1.8)
    pt3dadd(-0.993987036362165, -231.253009444602, -10.9263983754643, 1.8)
    pt3dadd(-1.15984143438178, -232.215411069036, -10.7112811238485, 1.8)
    pt3dadd(-1.3256958324014, -233.177812693471, -10.4961638722328, 1.8)
  }
  adendOML[8] {pt3dclear()
    pt3dadd(-1.3256958324014, -233.177812693471, -10.4961638722328, 1.8)
    pt3dadd(-1.49155023042101, -234.140214317906, -10.281046620617, 1.8)
    pt3dadd(-1.65740462844064, -235.102615942341, -10.0659293690013, 1.8)
    pt3dadd(-1.82325902646025, -236.065017566776, -9.85081211738555, 1.8)
    pt3dadd(-1.98911342447987, -237.027419191211, -9.63569486576981, 1.8)
    pt3dadd(-2.15496782249948, -237.989820815646, -9.42057761415406, 1.8)
    pt3dadd(-2.35078814973102, -238.953955224264, -9.40136582057723, 1.8)
    pt3dadd(-2.57081483168809, -239.91948936884, -9.54040565258557, 1.8)
    pt3dadd(-2.79084151364515, -240.885023513416, -9.6794454845939, 1.8)
    pt3dadd(-2.61239639636545, -241.857751402646, -9.79386389987284, 1.8)
    pt3dadd(-2.41179254419777, -242.830879330927, -9.90691313558393, 1.8)
    pt3dadd(-2.88305785353035, -243.586226200975, -10.0348676375117, 1.8)
    pt3dadd(-3.61144467511718, -244.258229172773, -10.1685263223516, 1.8)
    pt3dadd(-4.33983149670401, -244.930232144571, -10.3021850071914, 1.8)
    pt3dadd(-5.0625468008958, -245.606146879588, -10.4295827997791, 1.8)
    pt3dadd(-5.48478139047106, -246.489309397822, -10.225274410929, 1.8)
    pt3dadd(-5.90701598004631, -247.372471916055, -10.020966022079, 1.8)
    pt3dadd(-6.32925056962157, -248.255634434288, -9.81665763322886, 1.8)
    pt3dadd(-6.73249549600485, -249.147604941133, -9.65750563645248, 1.8)
    pt3dadd(-7.00962149557592, -250.098073277035, -9.79825762688616, 1.8)
    pt3dadd(-7.28674749514699, -251.048541612936, -9.93900961731985, 1.8)
  }
  GCL[9] {pt3dclear()
    pt3dadd(-4.8627662602709, 115.450988878725, 0.920943448598502, 2.25)
    pt3dadd(-5.14495460318143, 114.526485995018, 1.00542488685766, 2.25)
    pt3dadd(-5.50757430909873, 113.605495527085, 0.86300470971565, 2.25)
    pt3dadd(-5.87019401501603, 112.684505059152, 0.720584532573635, 2.25)
    pt3dadd(-6.23281372093332, 111.763514591219, 0.57816435543162, 2.25)
    pt3dadd(-6.59543342685062, 110.842524123286, 0.435744178289605, 2.25)
    pt3dadd(-6.95805313276792, 109.921533655353, 0.29332400114759, 2.25)
    pt3dadd(-7.32067283868521, 109.00054318742, 0.150903824005575, 2.25)
    pt3dadd(-7.72998191375962, 108.128438595173, -0.114205601409838, 2.25)
    pt3dadd(-8.14313764530155, 107.260361625771, -0.389423182041038, 2.25)
  }
}
proc shape3d_10() {
  GCL[9] {
    pt3dadd(-8.55629337684348, 106.39228465637, -0.664640762672237, 2.25)
    pt3dadd(-8.96944910838542, 105.524207686968, -0.939858343303437, 2.25)
    pt3dadd(-9.38260483992735, 104.656130717566, -1.21507592393464, 2.25)
    pt3dadd(-9.79576057146928, 103.788053748165, -1.49029350456584, 2.25)
    pt3dadd(-10.2089163030112, 102.919976778763, -1.76551108519704, 2.25)
    pt3dadd(-10.6220720345531, 102.051899809361, -2.04072866582823, 2.25)
    pt3dadd(-11.0352277660951, 101.18382283996, -2.31594624645943, 2.25)
    pt3dadd(-11.448383497637, 100.315745870558, -2.59116382709064, 2.25)
    pt3dadd(-11.8615392291789, 99.4476689011564, -2.86638140772183, 2.25)
    pt3dadd(-12.2702589332163, 98.5754625936824, -3.1319896473187, 2.24235297914158)
    pt3dadd(-12.6220415194154, 97.6502555759614, -3.27426046796309, 2.13655523057103)
    pt3dadd(-12.9738241056146, 96.7250485582403, -3.41653128860748, 2.03075748200049)
    pt3dadd(-13.3256066918138, 95.7998415405193, -3.55880210925187, 1.92495973342994)
    pt3dadd(-13.6773892780129, 94.8746345227983, -3.70107292989626, 1.8191619848594)
    pt3dadd(-13.973866560116, 93.9219670940121, -3.72314681074135, 1.8)
    pt3dadd(-14.2581114874232, 92.963226007437, -3.71863568971286, 1.8)
    pt3dadd(-14.5423564147304, 92.0044849208619, -3.71412456868437, 1.8)
    pt3dadd(-14.8266013420375, 91.0457438342868, -3.70961344765588, 1.8)
    pt3dadd(-15.1108462693447, 90.0870027477117, -3.70510232662739, 1.8)
    pt3dadd(-15.3950911966518, 89.1282616611366, -3.7005912055989, 1.8)
    pt3dadd(-15.679336123959, 88.1695205745615, -3.69608008457041, 1.8)
    pt3dadd(-15.9635810512661, 87.2107794879864, -3.69156896354192, 1.8)
    pt3dadd(-16.2657860211808, 86.2623117006132, -3.7487488414553, 1.8)
    pt3dadd(-16.5926431407695, 85.3279451553753, -3.89060645497824, 1.8)
    pt3dadd(-16.9195002603583, 84.3935786101374, -4.03246406850119, 1.8)
    pt3dadd(-17.246357379947, 83.4592120648996, -4.17432168202413, 1.8)
    pt3dadd(-17.5732144995357, 82.5248455196617, -4.31617929554708, 1.8)
    pt3dadd(-17.9000716191244, 81.5904789744238, -4.45803690907003, 1.8)
    pt3dadd(-18.2269287387132, 80.656112429186, -4.59989452259297, 1.8)
    pt3dadd(-18.4002032777506, 79.6780382226929, -4.4956836274745, 1.8)
    pt3dadd(-18.5690391158053, 78.698700818002, -4.38436108904834, 1.8)
    pt3dadd(-18.7378749538599, 77.7193634133111, -4.27303855062217, 1.8)
    pt3dadd(-18.9067107919145, 76.7400260086201, -4.16171601219601, 1.8)
    pt3dadd(-19.0755466299691, 75.7606886039292, -4.05039347376984, 1.8)
    pt3dadd(-19.2443824680237, 74.7813511992383, -3.93907093534367, 1.8)
    pt3dadd(-19.4461795643779, 73.8477075496834, -3.6937370679585, 1.8)
    pt3dadd(-19.6907098525685, 72.9733043570982, -3.27466190172434, 1.8)
    pt3dadd(-19.9352401407591, 72.098901164513, -2.85558673549018, 1.8)
    pt3dadd(-20.1797704289497, 71.2244979719278, -2.43651156925602, 1.8)
    pt3dadd(-20.4243007171403, 70.3500947793426, -2.01743640302187, 1.8)
    pt3dadd(-20.6688310053309, 69.4756915867574, -1.59836123678771, 1.8)
    pt3dadd(-20.9133612935215, 68.6012883941721, -1.17928607055355, 1.8)
    pt3dadd(-21.0773157510933, 67.6929633949631, -0.795945903211568, 1.8)
    pt3dadd(-21.2311988638865, 66.7803984368557, -0.417072329533496, 1.8)
    pt3dadd(-21.3850819766796, 65.8678334787484, -0.0381987558554249, 1.8)
    pt3dadd(-21.5389650894728, 64.955268520641, 0.340674817822648, 1.8)
    pt3dadd(-21.6928482022659, 64.0427035625336, 0.719548391500718, 1.8)
    pt3dadd(-21.8467313150591, 63.1301386044263, 1.09842196517879, 1.8)
    pt3dadd(-22.0078063738642, 62.2055563852093, 1.42545954311084, 1.8)
    pt3dadd(-22.1994366121631, 61.2299185032252, 1.53227047423194, 1.8)
    pt3dadd(-22.3910668504621, 60.254280621241, 1.63908140535303, 1.8)
    pt3dadd(-22.582697088761, 59.2786427392568, 1.74589233647413, 1.8)
    pt3dadd(-22.7743273270599, 58.3030048572727, 1.85270326759522, 1.8)
    pt3dadd(-22.9659575653588, 57.3273669752885, 1.95951419871632, 1.8)
    pt3dadd(-23.1679961014048, 56.3707308101683, 2.16321606479507, 1.8)
    pt3dadd(-23.372709478888, 55.4189779199967, 2.3918180532585, 1.8)
    pt3dadd(-23.5774228563712, 54.4672250298251, 2.62042004172194, 1.8)
    pt3dadd(-23.7821362338544, 53.5154721396535, 2.84902203018537, 1.8)
    pt3dadd(-23.9868496113376, 52.5637192494819, 3.07762401864881, 1.8)
    pt3dadd(-24.1915629888208, 51.6119663593103, 3.30622600711224, 1.8)
    pt3dadd(-24.3794238153062, 50.6363445243916, 3.36267711552665, 1.8)
    pt3dadd(-24.5619322156109, 49.6531418333291, 3.3644525325561, 1.8)
    pt3dadd(-24.7444406159157, 48.6699391422665, 3.36622794958554, 1.8)
    pt3dadd(-24.9269490162204, 47.686736451204, 3.36800336661499, 1.8)
    pt3dadd(-25.1094574165251, 46.7035337601415, 3.36977878364444, 1.8)
    pt3dadd(-25.2919658168299, 45.720331069079, 3.37155420067389, 1.8)
    pt3dadd(-25.522820816492, 44.7482568074979, 3.37537351376113, 1.8)
    pt3dadd(-25.7882483718084, 43.7841404633858, 3.38065441279544, 1.8)
    pt3dadd(-26.0536759271247, 42.8200241192736, 3.38593531182975, 1.8)
    pt3dadd(-26.319103482441, 41.8559077751615, 3.39121621086406, 1.8)
    pt3dadd(-26.5845310377574, 40.8917914310493, 3.39649710989836, 1.8)
    pt3dadd(-26.8499585930737, 39.9276750869371, 3.40177800893267, 1.8)
    pt3dadd(-27.1153861483901, 38.963558742825, 3.40705890796698, 1.8)
    pt3dadd(-27.3808137037064, 37.9994423987129, 3.41233980700129, 1.8)
    pt3dadd(-27.6055067799762, 37.0631116812591, 3.65653121992428, 1.8)
    pt3dadd(-27.821186072755, 36.1329294068128, 3.95358909134403, 1.8)
    pt3dadd(-28.0368653655338, 35.2027471323665, 4.25064696276378, 1.8)
    pt3dadd(-28.2525446583126, 34.2725648579203, 4.54770483418352, 1.8)
    pt3dadd(-28.4682239510914, 33.3423825834741, 4.84476270560327, 1.8)
    pt3dadd(-28.6839032438702, 32.4122003090278, 5.14182057702302, 1.8)
    pt3dadd(-28.8995825366491, 31.4820180345816, 5.43887844844277, 1.8)
    pt3dadd(-29.1152618294279, 30.5518357601353, 5.73593631986252, 1.8)
    pt3dadd(-29.3319709436101, 29.6207115237169, 6.01863914863269, 1.8)
    pt3dadd(-29.5789978167964, 28.6618560943285, 5.87873207427205, 1.8)
    pt3dadd(-29.8260246899826, 27.70300066494, 5.7388249999114, 1.8)
    pt3dadd(-30.0730515631689, 26.7441452355516, 5.59891792555076, 1.8)
    pt3dadd(-30.3200784363551, 25.7852898061632, 5.45901085119012, 1.8)
    pt3dadd(-30.5671053095414, 24.8264343767748, 5.31910377682948, 1.8)
    pt3dadd(-30.8148655463796, 23.8897551376301, 5.32924459022714, 1.8)
    pt3dadd(-31.0645748167732, 23.0120127421665, 5.73816214608074, 1.8)
    pt3dadd(-31.3142840871668, 22.1342703467029, 6.14707970193434, 1.8)
    pt3dadd(-31.5639933575604, 21.2565279512392, 6.55599725778795, 1.8)
    pt3dadd(-31.8137026279539, 20.3787855557756, 6.96491481364156, 1.8)
    pt3dadd(-32.0634118983475, 19.501043160312, 7.37383236949516, 1.8)
    pt3dadd(-32.3220719621547, 18.6087505413721, 7.66556444939791, 1.8)
    pt3dadd(-32.6137934646918, 17.6627139357551, 7.52444993635925, 1.8)
    pt3dadd(-32.9055149672289, 16.7166773301381, 7.38333542332058, 1.8)
    pt3dadd(-33.197236469766, 15.7706407245211, 7.24222091028192, 1.8)
    pt3dadd(-33.4889579723031, 14.824604118904, 7.10110639724325, 1.8)
    pt3dadd(-33.7806794748401, 13.878567513287, 6.95999188420459, 1.8)
    pt3dadd(-34.0724009773772, 12.93253090767, 6.81887737116593, 1.8)
    pt3dadd(-34.0836785467648, 11.9449769506851, 6.91399853947704, 1.8)
    pt3dadd(-34.0629083514577, 10.9526785933046, 7.03611556911195, 1.8)
    pt3dadd(-34.0421381561505, 9.9603802359241, 7.15823259874685, 1.8)
    pt3dadd(-34.0213679608434, 8.96808187854358, 7.28034962838176, 1.8)
    pt3dadd(-34.0005977655362, 7.97578352116309, 7.40246665801667, 1.8)
    pt3dadd(-34.0402211209122, 6.98748004596083, 7.53837209068548, 1.8)
    pt3dadd(-34.1302465229147, 6.00251053995797, 7.68578477412462, 1.8)
    pt3dadd(-34.2202719249171, 5.0175410339551, 7.83319745756376, 1.8)
    pt3dadd(-34.3102973269196, 4.0325715279522, 7.9806101410029, 1.8)
    pt3dadd(-34.4003227289221, 3.04760202194933, 8.12802282444203, 1.8)
    pt3dadd(-34.4903481309246, 2.06263251594646, 8.27543550788117, 1.8)
    pt3dadd(-34.5803735329271, 1.07766300994356, 8.42284819132031, 1.8)
    pt3dadd(-34.6703989349296, 0.092693503940664, 8.57026087475945, 1.8)
  }
  adendIML[6] {pt3dclear()
    pt3dadd(-34.6703989349296, 0.092693503940664, 8.57026087475945, 1.8)
    pt3dadd(-34.7604243369321, -0.892276002062205, 8.71767355819858, 1.8)
    pt3dadd(-34.8713961492679, -1.87433720853292, 8.81244276272104, 1.8)
    pt3dadd(-35.0751715051731, -2.84351312831015, 8.673973846174, 1.8)
    pt3dadd(-35.2789468610783, -3.81268904808738, 8.53550492962696, 1.8)
    pt3dadd(-35.4827222169835, -4.78186496786458, 8.39703601307991, 1.8)
    pt3dadd(-35.6864975728887, -5.75104088764178, 8.25856709653287, 1.8)
    pt3dadd(-35.8902729287939, -6.72021680741898, 8.12009817998583, 1.8)
    pt3dadd(-36.0940482846991, -7.68939272719621, 7.98162926343879, 1.8)
    pt3dadd(-36.3131861347302, -8.65806552456692, 7.98203900623417, 1.8)
    pt3dadd(-36.5430659019936, -9.62638652364217, 8.07955687820069, 1.8)
    pt3dadd(-36.7729456692569, -10.5947075227174, 8.1770747501672, 1.8)
    pt3dadd(-37.0028254365203, -11.5630285217927, 8.27459262213372, 1.8)
    pt3dadd(-37.2327052037837, -12.5313495208679, 8.37211049410024, 1.8)
    pt3dadd(-37.462584971047, -13.4996705199431, 8.46962836606675, 1.8)
    pt3dadd(-37.6924647383104, -14.4679915190184, 8.56714623803327, 1.8)
    pt3dadd(-37.9223445055737, -15.4363125180936, 8.66466410999978, 1.8)
    pt3dadd(-38.1998816087896, -16.3867550225336, 8.52980741175671, 1.8)
    pt3dadd(-38.4786363814559, -17.3367407222383, 8.38901342370174, 1.8)
    pt3dadd(-38.7573911541222, -18.2867264219429, 8.24821943564677, 1.8)
    pt3dadd(-39.0361459267885, -19.2367121216476, 8.10742544759179, 1.8)
    pt3dadd(-39.3149006994548, -20.1866978213522, 7.96663145953682, 1.8)
    pt3dadd(-39.5176546535699, -21.1557326189025, 7.82824630073276, 1.8)
    pt3dadd(-39.7116030650258, -22.1269744669412, 7.6901402316692, 1.8)
    pt3dadd(-39.9055514764816, -23.0982163149799, 7.55203416260564, 1.8)
    pt3dadd(-40.0994998879375, -24.0694581630185, 7.41392809354209, 1.8)
    pt3dadd(-40.3006759525866, -25.0376614301414, 7.34166528839177, 1.8)
    pt3dadd(-40.5296143775625, -25.9941931109263, 7.52231506343818, 1.8)
    pt3dadd(-40.7585528025384, -26.9507247917113, 7.70296483848459, 1.8)
    pt3dadd(-40.9874912275143, -27.9072564724962, 7.883614613531, 1.8)
    pt3dadd(-41.2164296524902, -28.8637881532811, 8.06426438857741, 1.8)
    pt3dadd(-41.4453680774661, -29.820319834066, 8.24491416362382, 1.8)
    pt3dadd(-41.674306502442, -30.776851514851, 8.42556393867024, 1.8)
    pt3dadd(-41.878266988121, -31.7397237815294, 8.53022860431962, 1.8)
    pt3dadd(-42.0033792054181, -32.7226114791164, 8.39502983577796, 1.8)
    pt3dadd(-42.1284914227151, -33.7054991767034, 8.2598310672363, 1.8)
    pt3dadd(-42.2536036400122, -34.6883868742903, 8.12463229869464, 1.8)
    pt3dadd(-42.4658769556979, -35.6576416429903, 8.08235035341509, 1.8)
    pt3dadd(-42.7508752838911, -36.6155214411799, 8.11759585167198, 1.8)
    pt3dadd(-43.0358736120844, -37.5734012393694, 8.15284134992887, 1.8)
    pt3dadd(-43.3208719402776, -38.531281037559, 8.18808684818576, 1.8)
    pt3dadd(-43.6058702684708, -39.4891608357486, 8.22333234644265, 1.8)
    pt3dadd(-43.8908685966641, -40.4470406339381, 8.25857784469954, 1.8)
    pt3dadd(-44.0887528451348, -41.4209073142007, 8.33899627023388, 1.8)
    pt3dadd(-44.2341274580495, -42.4044103856644, 8.44664351981011, 1.8)
    pt3dadd(-44.3795020709642, -43.3879134571282, 8.55429076938634, 1.8)
    pt3dadd(-44.5248766838789, -44.3714165285919, 8.66193801896257, 1.8)
    pt3dadd(-44.6702512967936, -45.3549196000556, 8.7695852685388, 1.8)
    pt3dadd(-44.8156259097083, -46.3384226715193, 8.87723251811503, 1.8)
    pt3dadd(-44.961000522623, -47.3219257429831, 8.98487976769126, 1.8)
    pt3dadd(-45.1063751355377, -48.3054288144468, 9.09252701726749, 1.8)
    pt3dadd(-45.3633150158488, -49.2558021262092, 9.08156505278464, 1.8)
    pt3dadd(-45.744101987754, -50.1693985406451, 8.93893660696486, 1.8)
    pt3dadd(-46.1248889596592, -51.0829949550811, 8.79630816114507, 1.8)
    pt3dadd(-46.5056759315644, -51.9965913695171, 8.65367971532529, 1.8)
    pt3dadd(-46.8864629034696, -52.9101877839531, 8.5110512695055, 1.8)
    pt3dadd(-47.3061104078508, -53.7561419520251, 8.80277564946721, 1.8)
    pt3dadd(-47.7303782035626, -54.594053850356, 9.14614205457597, 1.8)
    pt3dadd(-48.1546459992743, -55.431965748687, 9.48950845968473, 1.8)
    pt3dadd(-48.5789137949861, -56.269877647018, 9.83287486479349, 1.8)
    pt3dadd(-49.0031815906978, -57.1077895453489, 10.1762412699023, 1.8)
    pt3dadd(-49.4274493864095, -57.9457014436799, 10.519607675011, 1.8)
    pt3dadd(-49.7618395996206, -58.8870783990301, 10.5404546736267, 1.8)
    pt3dadd(-50.0950895140625, -59.8297680407464, 10.5572097900179, 1.8)
    pt3dadd(-50.4283394285045, -60.7724576824627, 10.5739649064091, 1.8)
    pt3dadd(-50.7615893429465, -61.7151473241789, 10.5907200228002, 1.8)
    pt3dadd(-51.0948392573885, -62.6578369658952, 10.6074751391914, 1.8)
    pt3dadd(-51.4280891718304, -63.6005266076114, 10.6242302555825, 1.8)
    pt3dadd(-51.7660029441457, -64.5350675012492, 10.709955510985, 1.8)
    pt3dadd(-52.1088248331108, -65.4610328749621, 10.8682630570186, 1.8)
    pt3dadd(-52.4516467220759, -66.386998248675, 11.0265706030522, 1.8)
    pt3dadd(-52.7944686110409, -67.3129636223879, 11.1848781490858, 1.8)
    pt3dadd(-53.137290500006, -68.2389289961007, 11.3431856951195, 1.8)
    pt3dadd(-53.4801123889711, -69.1648943698136, 11.5014932411531, 1.8)
    pt3dadd(-53.8229342779362, -70.0908597435265, 11.6598007871867, 1.8)
    pt3dadd(-54.1657561669013, -71.0168251172393, 11.8181083332203, 1.8)
    pt3dadd(-54.5153693938553, -71.9410742805207, 11.8742684520351, 1.8)
    pt3dadd(-54.8781855292181, -72.8619869924026, 11.7318457396094, 1.8)
    pt3dadd(-55.2410016645809, -73.7828997042845, 11.5894230271837, 1.8)
    pt3dadd(-55.6038177999437, -74.7038124161665, 11.4470003147579, 1.8)
    pt3dadd(-55.9666339353065, -75.6247251280484, 11.3045776023322, 1.8)
    pt3dadd(-56.3294500706693, -76.5456378399303, 11.1621548899065, 1.8)
    pt3dadd(-56.6922662060321, -77.4665505518122, 11.0197321774808, 1.8)
    pt3dadd(-57.0550130580972, -78.3874944797636, 10.8773752328089, 1.8)
    pt3dadd(-57.3388512264858, -79.3439912613844, 10.8099230207273, 1.8)
    pt3dadd(-57.6226893948745, -80.3004880430053, 10.7424708086456, 1.8)
    pt3dadd(-57.9065275632631, -81.2569848246262, 10.675018596564, 1.8)
    pt3dadd(-58.1903657316517, -82.213481606247, 10.6075663844823, 1.8)
    pt3dadd(-58.4742039000404, -83.1699783878679, 10.5401141724006, 1.8)
    pt3dadd(-58.758042068429, -84.1264751694888, 10.472661960319, 1.8)
    pt3dadd(-59.0418802368176, -85.0829719511096, 10.4052097482373, 1.8)
    pt3dadd(-59.3257184052063, -86.0394687327305, 10.3377575361557, 1.8)
    pt3dadd(-59.6095565735949, -86.9959655143514, 10.270305324074, 1.8)
    pt3dadd(-59.8933947419836, -87.9524622959722, 10.2028531119923, 1.8)
    pt3dadd(-60.1772329103722, -88.9089590775931, 10.1354008999107, 1.8)
    pt3dadd(-60.3421787149432, -89.8817899335, 10.0380884087703, 1.75046709009807)
    pt3dadd(-60.375564981643, -90.8726951483956, 9.9077342285969, 1.64612387508596)
    pt3dadd(-60.4089512483428, -91.8636003632911, 9.77738004842349, 1.54178066007386)
    pt3dadd(-60.4423375150425, -92.8545055781867, 9.64702586825007, 1.43743744506176)
    pt3dadd(-60.5369213867766, -93.8320328967806, 9.52532408792973, 1.35)
    pt3dadd(-60.9480221781072, -94.7403691003679, 9.448372930564, 1.35)
    pt3dadd(-61.359122969438, -95.6487053039552, 9.37142177319828, 1.35)
    pt3dadd(-61.7702237607687, -96.5570415075425, 9.29447061583256, 1.35)
    pt3dadd(-62.1813245520993, -97.4653777111298, 9.21751945846683, 1.35)
    pt3dadd(-62.59242534343, -98.3737139147171, 9.14056830110111, 1.35)
    pt3dadd(-62.9415750024742, -99.3012179506313, 9.01635487598233, 1.35)
    pt3dadd(-63.2676165941848, -100.235871679274, 8.87451239994443, 1.35)
    pt3dadd(-63.5936581858953, -101.170525407917, 8.73266992390653, 1.35)
    pt3dadd(-63.9196997776059, -102.10517913656, 8.59082744786864, 1.35)
    pt3dadd(-64.2457413693165, -103.039832865203, 8.44898497183074, 1.35)
    pt3dadd(-64.571782961027, -103.974486593846, 8.30714249579284, 1.35)
    pt3dadd(-64.961283463887, -104.882910420703, 8.16462457150286, 1.35)
    pt3dadd(-65.387713430949, -105.776069941862, 8.02171357488318, 1.35)
    pt3dadd(-65.8141433980109, -106.669229463021, 7.8788025782635, 1.35)
    pt3dadd(-66.2405733650729, -107.56238898418, 7.73589158164382, 1.35)
    pt3dadd(-66.6670033321348, -108.455548505338, 7.59298058502414, 1.35)
    pt3dadd(-67.0756274345171, -109.36112377552, 7.50411320096516, 1.35)
    pt3dadd(-67.4576766364892, -110.285229305238, 7.49590483838309, 1.35)
    pt3dadd(-67.8397258384612, -111.209334834957, 7.48769647580101, 1.35)
    pt3dadd(-68.2217750404332, -112.133440364675, 7.47948811321893, 1.35)
    pt3dadd(-68.6038242424052, -113.057545894394, 7.47127975063685, 1.35)
    pt3dadd(-68.9858734443773, -113.981651424112, 7.46307138805478, 1.35)
    pt3dadd(-69.3677813378492, -114.905739511813, 7.45577913115697, 1.35)
    pt3dadd(-69.724306949549, -115.82669460894, 7.61304068805864, 1.35)
    pt3dadd(-70.0808325612488, -116.747649706066, 7.77030224496033, 1.35)
  }
  adendMML[9] {pt3dclear()
    pt3dadd(-70.0808325612488, -116.747649706066, 7.77030224496033, 1.35)
    pt3dadd(-70.4373581729485, -117.668604803192, 7.92756380186201, 1.35)
    pt3dadd(-70.7938837846483, -118.589559900319, 8.08482535876369, 1.35)
    pt3dadd(-71.1504093963481, -119.510514997445, 8.24208691566537, 1.35)
    pt3dadd(-71.5069350080479, -120.431470094571, 8.39934847256705, 1.35)
    pt3dadd(-71.8634606197477, -121.352425191698, 8.55661002946873, 1.35)
    pt3dadd(-72.2199862314475, -122.273380288824, 8.71387158637041, 1.35)
    pt3dadd(-72.5765118431472, -123.19433538595, 8.87113314327209, 1.35)
    pt3dadd(-72.9480421442454, -124.111291489169, 8.78164419752611, 1.35)
    pt3dadd(-73.3227999695563, -125.027387404662, 8.63907896338379, 1.35)
  }
}
proc shape3d_11() {
  adendMML[9] {
    pt3dadd(-73.6975577948672, -125.943483320155, 8.49651372924147, 1.35)
    pt3dadd(-74.0723156201781, -126.859579235647, 8.35394849509914, 1.35)
    pt3dadd(-74.4858445541113, -127.767058634863, 8.30316872780632, 1.35)
    pt3dadd(-74.9106007965601, -128.672042869767, 8.27896812706778, 1.35)
    pt3dadd(-75.3353570390089, -129.577027104671, 8.25476752632926, 1.35)
    pt3dadd(-75.7601132814577, -130.482011339575, 8.23056692559072, 1.35)
    pt3dadd(-76.1848695239065, -131.386995574479, 8.20636632485219, 1.35)
    pt3dadd(-76.6096257663553, -132.291979809383, 8.18216572411366, 1.35)
    pt3dadd(-77.0343820088041, -133.196964044287, 8.15796512337513, 1.35)
    pt3dadd(-77.4762740927358, -134.088903494928, 8.23726982464658, 1.35)
    pt3dadd(-77.9225909982133, -134.977474517906, 8.3433016925349, 1.35)
    pt3dadd(-78.3689079036908, -135.866045540885, 8.44933356042322, 1.35)
    pt3dadd(-78.8152248091682, -136.754616563863, 8.55536542831154, 1.35)
    pt3dadd(-79.2615417146457, -137.643187586842, 8.66139729619986, 1.35)
    pt3dadd(-79.7699019259747, -138.499281477635, 8.71807638097965, 1.35)
    pt3dadd(-80.3244205918271, -139.331213306004, 8.73803839913238, 1.35)
    pt3dadd(-80.8789392576795, -140.163145134372, 8.75800041728511, 1.35)
    pt3dadd(-81.4334579235318, -140.99507696274, 8.77796243543783, 1.35)
    pt3dadd(-81.9879765893842, -141.827008791109, 8.79792445359056, 1.35)
    pt3dadd(-82.5424952552366, -142.658940619478, 8.81788647174328, 1.35)
    pt3dadd(-83.173493111414, -143.418550602148, 8.78012881773543, 1.35)
    pt3dadd(-83.9287205094246, -144.060684056662, 8.6486137848016, 1.35)
    pt3dadd(-84.6839479074352, -144.702817511177, 8.51709875186777, 1.35)
    pt3dadd(-85.4391753054458, -145.344950965691, 8.38558371893394, 1.35)
    pt3dadd(-86.1400528784896, -146.010151667994, 8.34074548575943, 1.35)
    pt3dadd(-86.5233555570337, -146.810138062567, 8.80237393496921, 1.35)
    pt3dadd(-86.9066582355779, -147.610124457139, 9.26400238417898, 1.35)
    pt3dadd(-87.2899609141221, -148.410110851712, 9.72563083338875, 1.35)
    pt3dadd(-87.6732635926663, -149.210097246284, 10.1872592825985, 1.35)
    pt3dadd(-88.0565662712105, -150.010083640857, 10.6488877318083, 1.35)
    pt3dadd(-88.4398689497547, -150.810070035429, 11.1105161810181, 1.35)
    pt3dadd(-88.9588550630683, -151.613702477293, 11.1477713382499, 1.35)
    pt3dadd(-89.5348717262001, -152.418867428133, 11.0066536365493, 1.35)
    pt3dadd(-90.1108883893319, -153.224032378973, 10.8655359348487, 1.35)
    pt3dadd(-90.6869050524637, -154.029197329813, 10.7244182331481, 1.35)
    pt3dadd(-91.2629217155954, -154.834362280653, 10.5833005314475, 1.35)
    pt3dadd(-91.6628235493, -155.725548927165, 10.4423459357969, 1.35)
    pt3dadd(-91.9435464176923, -156.674947461442, 10.3015017159184, 1.35)
    pt3dadd(-92.2242692860845, -157.62434599572, 10.1606574960399, 1.35)
    pt3dadd(-92.5049921544768, -158.573744529998, 10.0198132761615, 1.35)
    pt3dadd(-92.9991331255702, -159.387320883267, 10.3106873788079, 1.35)
    pt3dadd(-93.5012102666226, -160.195846550117, 10.6176153678801, 1.35)
    pt3dadd(-94.003287407675, -161.004372216968, 10.9245433569523, 1.35)
    pt3dadd(-94.5053645487274, -161.812897883819, 11.2314713460245, 1.35)
    pt3dadd(-94.9245422935463, -162.692892436621, 11.3503808100147, 1.35)
    pt3dadd(-95.2810868897243, -163.626884021492, 11.3272362571632, 1.35)
    pt3dadd(-95.6376314859022, -164.560875606363, 11.3040917043117, 1.35)
    pt3dadd(-95.9941760820802, -165.494867191234, 11.2809471514602, 1.35)
    pt3dadd(-96.3507206782582, -166.428858776104, 11.2578025986087, 1.35)
    pt3dadd(-96.7072652744361, -167.362850360975, 11.2346580457572, 1.35)
    pt3dadd(-96.9460066865317, -168.320516006273, 11.1614882163774, 1.35)
    pt3dadd(-97.0420176232391, -169.306865170828, 11.0277077035432, 1.35)
    pt3dadd(-97.1380285599464, -170.293214335383, 10.8939271907091, 1.35)
    pt3dadd(-97.2340394966538, -171.279563499938, 10.7601466778749, 1.35)
    pt3dadd(-97.3300504333612, -172.265912664494, 10.6263661650408, 1.35)
    pt3dadd(-97.4260613700685, -173.252261829049, 10.4925856522067, 1.35)
    pt3dadd(-97.5153911392147, -174.163602354985, 10.789681487116, 1.35)
    pt3dadd(-97.602164287879, -175.046240020222, 11.2516567814499, 1.35)
    pt3dadd(-97.6889374365434, -175.92887768546, 11.7136320757837, 1.35)
    pt3dadd(-97.7757105852077, -176.811515350697, 12.1756073701176, 1.35)
    pt3dadd(-97.862483733872, -177.694153015935, 12.6375826644514, 1.35)
    pt3dadd(-97.9492568825364, -178.576790681173, 13.0995579587853, 1.35)
    pt3dadd(-98.1282512201562, -179.46930602922, 13.4608182766799, 1.35)
    pt3dadd(-98.5082998992143, -180.383356027109, 13.6025066774231, 1.35)
    pt3dadd(-98.8883485782724, -181.297406024998, 13.7441950781662, 1.35)
    pt3dadd(-99.2683972573305, -182.211456022887, 13.8858834789094, 1.35)
    pt3dadd(-99.6484459363886, -183.125506020776, 14.0275718796525, 1.35)
    pt3dadd(-100.005693877389, -184.050154262983, 14.1507150409953, 1.35)
    pt3dadd(-100.310728630844, -184.999072251058, 14.2313900129121, 1.35)
    pt3dadd(-100.615763384299, -185.947990239132, 14.312064984829, 1.35)
    pt3dadd(-100.920798137753, -186.896908227206, 14.3927399567458, 1.35)
    pt3dadd(-101.225832891208, -187.845826215281, 14.4734149286626, 1.35)
    pt3dadd(-101.530867644663, -188.794744203355, 14.5540899005795, 1.35)
    pt3dadd(-101.835902398118, -189.743662191429, 14.6347648724963, 1.35)
    pt3dadd(-102.148144873276, -190.686809106161, 14.7281985481105, 1.35)
    pt3dadd(-102.58384803249, -191.531103610665, 15.0401753849345, 1.35)
    pt3dadd(-103.019551191705, -192.375398115169, 15.3521522217585, 1.35)
    pt3dadd(-103.455254350919, -193.219692619673, 15.6641290585824, 1.35)
    pt3dadd(-103.890957510134, -194.063987124177, 15.9761058954064, 1.35)
    pt3dadd(-104.326660669348, -194.908281628681, 16.2880827322304, 1.35)
    pt3dadd(-104.762363828563, -195.752576133185, 16.6000595690543, 1.35)
    pt3dadd(-105.198066987777, -196.596870637689, 16.9120364058783, 1.35)
    pt3dadd(-105.611047155928, -197.413084760815, 17.30921703758, 1.35)
    pt3dadd(-106.009463030945, -198.211300773368, 17.7610090116559, 1.35)
    pt3dadd(-106.407878905961, -199.00951678592, 18.2128009857317, 1.35)
    pt3dadd(-106.806294780978, -199.807732798473, 18.6645929598076, 1.35)
    pt3dadd(-107.204710655994, -200.605948811026, 19.1163849338835, 1.35)
    pt3dadd(-107.603126531011, -201.404164823578, 19.5681769079593, 1.35)
    pt3dadd(-108.001542406028, -202.202380836131, 20.0199688820352, 1.35)
    pt3dadd(-108.493655401185, -202.901892632499, 20.3847353763677, 1.35)
    pt3dadd(-109.472127713868, -203.089054474588, 20.2977734411426, 1.35)
    pt3dadd(-110.450600026552, -203.276216316678, 20.2108115059175, 1.35)
    pt3dadd(-111.429072339235, -203.463378158767, 20.1238495706924, 1.35)
    pt3dadd(-112.407544651918, -203.650540000856, 20.0368876354674, 1.35)
    pt3dadd(-113.08590147924, -204.347452122608, 19.9032141545916, 1.35)
    pt3dadd(-113.733337071366, -205.09688438763, 19.7647279307555, 1.35)
    pt3dadd(-114.380772663493, -205.846316652652, 19.6262417069194, 1.35)
    pt3dadd(-115.028208255619, -206.595748917674, 19.4877554830834, 1.35)
    pt3dadd(-115.678609982527, -207.342881517483, 19.3722895455909, 1.35)
    pt3dadd(-116.358661548782, -208.067026387768, 19.4869371538297, 1.35)
    pt3dadd(-117.038713115037, -208.791171258052, 19.6015847620685, 1.35)
    pt3dadd(-117.718764681291, -209.515316128337, 19.7162323703072, 1.35)
    pt3dadd(-118.398816247546, -210.239460998621, 19.830879978546, 1.35)
    pt3dadd(-119.078867813801, -210.963605868906, 19.9455275867848, 1.35)
    pt3dadd(-119.662717229475, -211.682551626499, 20.2832943332457, 1.35)
    pt3dadd(-120.200715782122, -212.39901943737, 20.7274017902165, 1.35)
    pt3dadd(-120.738714334768, -213.11548724824, 21.1715092471873, 1.35)
    pt3dadd(-121.276712887415, -213.83195505911, 21.6156167041581, 1.35)
    pt3dadd(-121.814711440061, -214.54842286998, 22.0597241611289, 1.35)
    pt3dadd(-122.374460745126, -215.274438721907, 22.4551691232001, 1.35)
    pt3dadd(-122.957983457114, -216.010890510071, 22.797426348551, 1.35)
    pt3dadd(-123.541506169102, -216.747342298235, 23.1396835739018, 1.35)
    pt3dadd(-124.125028881089, -217.483794086399, 23.4819407992526, 1.35)
    pt3dadd(-124.708551593077, -218.220245874563, 23.8241980246035, 1.35)
    pt3dadd(-125.292074305064, -218.956697662727, 24.1664552499543, 1.35)
    pt3dadd(-125.901115675763, -219.700827714288, 24.2988182520012, 1.35)
    pt3dadd(-126.543116762284, -220.454874955559, 24.1600833867479, 1.35)
    pt3dadd(-127.185117848805, -221.208922196831, 24.0213485214946, 1.35)
    pt3dadd(-127.827118935326, -221.962969438102, 23.8826136562413, 1.35)
    pt3dadd(-128.469120021847, -222.717016679374, 23.743878790988, 1.35)
    pt3dadd(-129.029887933319, -223.543706326003, 23.7223235334027, 1.35)
    pt3dadd(-129.585393117327, -224.375102143252, 23.7083598089469, 1.35)
    pt3dadd(-130.140898301334, -225.206497960502, 23.6943960844911, 1.35)
    pt3dadd(-130.696403485342, -226.037893777751, 23.6804323600353, 1.35)
    pt3dadd(-131.361592560443, -226.652556401932, 23.6554016805856, 1.35)
    pt3dadd(-132.359001570876, -226.610759023939, 23.5968504628348, 1.35)
    pt3dadd(-133.104217905413, -226.893111544755, 23.7489300517492, 1.35)
    pt3dadd(-133.444815517697, -227.695531182545, 24.2389463692284, 1.35)
    pt3dadd(-133.785413129981, -228.497950820335, 24.7289626867076, 1.35)
    pt3dadd(-134.126010742265, -229.300370458124, 25.2189790041867, 1.35)
    pt3dadd(-134.466608354549, -230.102790095914, 25.7089953216659, 1.35)
    pt3dadd(-134.807205966833, -230.905209733704, 26.1990116391451, 1.35)
    pt3dadd(-135.299643705236, -231.700120652828, 26.2915047241638, 1.35)
    pt3dadd(-135.890214206184, -232.490178761797, 26.1270824998082, 1.35)
    pt3dadd(-136.480784707132, -233.280236870766, 25.9626602754526, 1.35)
  }
  adendOML[9] {pt3dclear()
    pt3dadd(-136.480784707132, -233.280236870766, 25.9626602754526, 1.35)
    pt3dadd(-137.07135520808, -234.070294979735, 25.798238051097, 1.35)
    pt3dadd(-137.661925709028, -234.860353088704, 25.6338158267414, 1.35)
    pt3dadd(-138.223377506925, -235.625871417281, 25.625765635211, 1.35)
    pt3dadd(-138.673885976368, -236.297892280968, 26.2134986338843, 1.35)
    pt3dadd(-139.124394445812, -236.969913144655, 26.8012316325575, 1.35)
    pt3dadd(-139.574902915255, -237.641934008341, 27.3889646312308, 1.35)
    pt3dadd(-140.025411384698, -238.313954872028, 27.9766976299041, 1.35)
    pt3dadd(-140.475919854142, -238.985975735715, 28.5644306285773, 1.35)
    pt3dadd(-140.926428323585, -239.657996599402, 29.1521636272506, 1.35)
    pt3dadd(-141.380135128644, -240.338053380158, 29.727544874401, 1.35)
    pt3dadd(-141.84241313451, -241.039645567809, 30.2698247352846, 1.35)
    pt3dadd(-142.304691140375, -241.74123775546, 30.8121045961682, 1.35)
    pt3dadd(-142.766969146241, -242.442829943111, 31.3543844570519, 1.35)
    pt3dadd(-143.229247152106, -243.144422130762, 31.8966643179355, 1.35)
    pt3dadd(-143.712010642838, -243.852286723886, 32.1753082515377, 1.35)
    pt3dadd(-144.24988725755, -244.577026283006, 31.7446792711007, 1.35)
    pt3dadd(-144.787763872263, -245.301765842125, 31.3140502906636, 1.35)
    pt3dadd(-145.325640486975, -246.026505401245, 30.8834213102265, 1.35)
    pt3dadd(-145.863517101688, -246.751244960365, 30.4527923297894, 1.35)
    pt3dadd(-146.401393716401, -247.475984519485, 30.0221633493523, 1.35)
    pt3dadd(-146.939270331113, -248.200724078604, 29.5915343689153, 1.35)
    pt3dadd(-147.477146945826, -248.925463637724, 29.1609053884782, 1.35)
    pt3dadd(-148.322167825854, -249.214172147542, 29.2721177121653, 1.35)
  }
  GCL[10] {pt3dclear()
    pt3dadd(-3.11514866668272, 143.652179828629, -9.01597390596798, 5.69233750543853)
    pt3dadd(-3.25931286359081, 142.68415229821, -9.18844542578406, 5.69233750543853)
    pt3dadd(-3.45008543357553, 141.711326653312, -9.31965552893518, 5.47194135371575)
    pt3dadd(-3.64085800356026, 140.738501008413, -9.45086563208631, 5.25154520199296)
    pt3dadd(-3.83163057354499, 139.765675363514, -9.58207573523743, 5.03114905027018)
    pt3dadd(-4.02240314352972, 138.792849718616, -9.71328583838855, 4.8107528985474)
    pt3dadd(-4.21317571351445, 137.820024073717, -9.84449594153967, 4.59035674682461)
    pt3dadd(-4.40394828349917, 136.847198428818, -9.97570604469079, 4.36996059510183)
    pt3dadd(-4.5947208534839, 135.87437278392, -10.1069161478419, 4.14956444337905)
    pt3dadd(-4.78549342346863, 134.901547139021, -10.238126250993, 3.92916829165627)
    pt3dadd(-4.97626599345336, 133.928721494122, -10.3693363541442, 3.70877213993348)
    pt3dadd(-5.12356168499703, 132.958533389427, -10.5503659760586, 3.6)
    pt3dadd(-5.22849128496368, 131.990915438657, -10.7799422823242, 3.6)
    pt3dadd(-5.33342088493033, 131.023297487887, -11.0095185885897, 3.6)
    pt3dadd(-5.43835048489697, 130.055679537117, -11.2390948948553, 3.6)
    pt3dadd(-5.54328008486362, 129.088061586347, -11.4686712011209, 3.6)
    pt3dadd(-5.64820968483027, 128.120443635577, -11.6982475073864, 3.6)
    pt3dadd(-5.75313928479691, 127.152825684807, -11.927823813652, 3.6)
    pt3dadd(-5.85806888476356, 126.185207734037, -12.1574001199176, 3.6)
    pt3dadd(-6.00567530698977, 125.216827186646, -12.3472671967342, 3.6)
    pt3dadd(-6.20855594865193, 124.247458938421, -12.4857036246415, 3.6)
    pt3dadd(-6.41143659031409, 123.278090690196, -12.6241400525488, 3.6)
    pt3dadd(-6.61431723197625, 122.308722441971, -12.7625764804562, 3.6)
    pt3dadd(-6.81719787363841, 121.339354193746, -12.9010129083635, 3.6)
    pt3dadd(-7.02007851530056, 120.369985945521, -13.0394493362708, 3.6)
    pt3dadd(-7.2335282047327, 119.403540241265, -13.1633673540452, 3.6)
    pt3dadd(-7.6087319802552, 118.48182263732, -13.0650882341345, 3.6)
    pt3dadd(-7.9839357557777, 117.560105033374, -12.9668091142238, 3.6)
    pt3dadd(-8.3591395313002, 116.638387429428, -12.868529994313, 3.6)
    pt3dadd(-8.73434330682271, 115.716669825483, -12.7702508744023, 3.6)
    pt3dadd(-9.1095470823452, 114.794952221537, -12.6719717544916, 3.6)
    pt3dadd(-9.48475085786771, 113.873234617592, -12.5736926345809, 3.6)
    pt3dadd(-9.83247997933083, 112.958953808943, -12.4090897793289, 3.58411238178054)
    pt3dadd(-10.0953907465011, 112.067631496404, -12.0397356624219, 3.51917731684548)
    pt3dadd(-10.3583015136714, 111.176309183865, -11.6703815455148, 3.45424225191041)
    pt3dadd(-10.6212122808417, 110.284986871327, -11.3010274286077, 3.38930718697535)
    pt3dadd(-10.884123048012, 109.393664558788, -10.9316733117006, 3.32437212204028)
    pt3dadd(-11.1470338151823, 108.502342246249, -10.5623191947935, 3.25943705710522)
    pt3dadd(-11.4099445823526, 107.61101993371, -10.1929650778865, 3.19450199217015)
    pt3dadd(-11.7156057193712, 106.71179463739, -9.92927781887501, 3.15)
    pt3dadd(-12.114374566921, 105.795357122115, -9.89572656225622, 3.15)
    pt3dadd(-12.5131434144708, 104.87891960684, -9.86217530563744, 3.15)
    pt3dadd(-12.9119122620206, 103.962482091565, -9.82862404901866, 3.15)
    pt3dadd(-13.3106811095703, 103.04604457629, -9.79507279239987, 3.15)
    pt3dadd(-13.7094499571201, 102.129607061016, -9.76152153578109, 3.15)
    pt3dadd(-14.0717318055889, 101.208655833684, -9.66882413386936, 3.15)
    pt3dadd(-14.3436760843262, 100.276529179817, -9.42968774932464, 3.15)
    pt3dadd(-14.6156203630634, 99.34440252595, -9.19055136477992, 3.15)
    pt3dadd(-14.8875646418007, 98.4122758720832, -8.95141498023521, 3.15)
    pt3dadd(-15.1595089205379, 97.4801492182164, -8.71227859569048, 3.15)
    pt3dadd(-15.4314531992752, 96.5480225643495, -8.47314221114576, 3.15)
    pt3dadd(-15.7033974780125, 95.6158959104827, -8.23400582660105, 3.15)
    pt3dadd(-15.9796966146556, 94.6847504984913, -7.99837550434241, 3.14811310261236)
    pt3dadd(-16.4053958644881, 93.7872681015569, -7.88302605317396, 3.0814932818127)
    pt3dadd(-16.8310951143207, 92.8897857046225, -7.76767660200551, 3.01487346101304)
    pt3dadd(-17.2567943641533, 91.9923033076881, -7.65232715083706, 2.94825364021338)
    pt3dadd(-17.6824936139858, 91.0948209107537, -7.53697769966861, 2.88163381941372)
    pt3dadd(-18.1081928638184, 90.1973385138193, -7.42162824850017, 2.81501399861406)
    pt3dadd(-18.5338921136509, 89.2998561168849, -7.30627879733172, 2.7483941778144)
    pt3dadd(-18.9436566152953, 88.3964696897999, -7.26146573578098, 2.7)
    pt3dadd(-19.3111099053204, 87.4774064119635, -7.40394650986091, 2.7)
    pt3dadd(-19.6785631953455, 86.5583431341272, -7.54642728394083, 2.7)
    pt3dadd(-20.0460164853706, 85.6392798562908, -7.68890805802075, 2.7)
    pt3dadd(-20.4134697753957, 84.7202165784545, -7.83138883210068, 2.7)
    pt3dadd(-20.7809230654208, 83.8011533006181, -7.9738696061806, 2.7)
    pt3dadd(-21.1483763554459, 82.8820900227817, -8.11635038026053, 2.7)
    pt3dadd(-21.486121766726, 81.9771968790467, -8.13061929561383, 2.7)
    pt3dadd(-21.7104505596377, 81.1264014615545, -7.65541013088207, 2.7)
    pt3dadd(-21.9347793525495, 80.2756060440623, -7.18020096615032, 2.7)
    pt3dadd(-22.1591081454612, 79.4248106265701, -6.70499180141856, 2.7)
    pt3dadd(-22.3834369383729, 78.574015209078, -6.2297826366868, 2.7)
    pt3dadd(-22.6077657312847, 77.7232197915858, -5.75457347195504, 2.7)
    pt3dadd(-22.8326128974017, 76.8716695912596, -5.28315995091916, 2.7)
    pt3dadd(-23.1280246821591, 75.9173730253954, -5.32843623396411, 2.7)
    pt3dadd(-23.4234364669164, 74.9630764595313, -5.37371251700907, 2.7)
    pt3dadd(-23.7188482516737, 74.0087798936671, -5.41898880005402, 2.7)
    pt3dadd(-24.0142600364311, 73.054483327803, -5.46426508309898, 2.7)
    pt3dadd(-24.3096718211884, 72.1001867619388, -5.50954136614394, 2.7)
    pt3dadd(-24.6050836059458, 71.1458901960747, -5.55481764918889, 2.7)
    pt3dadd(-24.9555523922527, 70.2175478770606, -5.63434128171892, 2.7)
    pt3dadd(-25.4079248556143, 69.337243647931, -5.77725250790058, 2.7)
    pt3dadd(-25.8602973189759, 68.4569394188014, -5.92016373408223, 2.7)
    pt3dadd(-26.3126697823375, 67.5766351896719, -6.06307496026388, 2.7)
    pt3dadd(-26.6754710536473, 66.6718910131885, -6.20619519410964, 2.67740285891749)
  }
  GCL[11] {pt3dclear()
    pt3dadd(-26.6754710536473, 66.6718910131885, -6.20619519410964, 2.61479515929974)
    pt3dadd(-27.1409954520407, 65.7831306394694, -6.36929731394137, 2.61479515929974)
    pt3dadd(-27.537215778397, 64.8786546775362, -6.52719819192231, 2.55218745968199)
    pt3dadd(-27.9334361047532, 63.974178715603, -6.68509906990324, 2.48957976006424)
    pt3dadd(-28.3296564311095, 63.0697027536698, -6.84299994788417, 2.42697206044648)
    pt3dadd(-28.7258767574658, 62.1652267917366, -7.00090082586511, 2.36436436082873)
  }
}
proc shape3d_12() {
  GCL[11] {
    pt3dadd(-29.122097083822, 61.2607508298034, -7.15880170384604, 2.30175666121098)
    pt3dadd(-29.5117160306974, 60.3521439770295, -7.2720195871208, 2.25)
    pt3dadd(-29.8698480959944, 59.4238338378297, -7.17211108265232, 2.25)
    pt3dadd(-30.2279801612913, 58.49552369863, -7.07220257818384, 2.25)
    pt3dadd(-30.5861122265883, 57.5672135594303, -6.97229407371536, 2.25)
    pt3dadd(-30.9442442918853, 56.6389034202306, -6.87238556924689, 2.25)
    pt3dadd(-31.3023763571823, 55.7105932810309, -6.77247706477841, 2.25)
    pt3dadd(-31.6605084224792, 54.7822831418312, -6.67256856030993, 2.25)
    pt3dadd(-32.0186404877762, 53.8539730026315, -6.57266005584145, 2.25)
    pt3dadd(-32.3767725530732, 52.9256628634317, -6.47275155137297, 2.25)
    pt3dadd(-32.7349046183702, 51.997352724232, -6.37284304690449, 2.25)
    pt3dadd(-33.0930366836671, 51.0690425850323, -6.27293454243601, 2.25)
    pt3dadd(-33.3888232038118, 50.1239870021075, -6.39055535691709, 2.25)
    pt3dadd(-33.6778944543687, 49.1771277591344, -6.53160636222327, 2.25)
    pt3dadd(-33.9669657049255, 48.2302685161613, -6.67265736752945, 2.25)
    pt3dadd(-34.2560369554823, 47.2834092731882, -6.81370837283564, 2.25)
    pt3dadd(-34.5451082060392, 46.3365500302151, -6.95475937814182, 2.25)
    pt3dadd(-34.834179456596, 45.389690787242, -7.09581038344801, 2.25)
    pt3dadd(-35.1232507071528, 44.4428315442688, -7.23686138875419, 2.25)
    pt3dadd(-35.4068973064947, 43.4968279955829, -7.38992774402364, 2.25)
    pt3dadd(-35.65347615303, 42.5566715812209, -7.62509744652679, 2.25)
    pt3dadd(-35.9000549995653, 41.616515166859, -7.86026714902995, 2.25)
    pt3dadd(-36.1466338461005, 40.676358752497, -8.09543685153311, 2.25)
    pt3dadd(-36.3932126926358, 39.7362023381351, -8.33060655403626, 2.25)
    pt3dadd(-36.6397915391711, 38.7960459237732, -8.56577625653942, 2.25)
    pt3dadd(-36.8967636207696, 37.8666721462603, -8.61603702430028, 2.25)
    pt3dadd(-37.1741816429154, 36.9585103542956, -8.30253837900141, 2.25)
    pt3dadd(-37.4515996650611, 36.050348562331, -7.98903973370253, 2.25)
    pt3dadd(-37.7290176872069, 35.1421867703663, -7.67554108840366, 2.25)
    pt3dadd(-38.0064357093526, 34.2340249784016, -7.36204244310478, 2.25)
    pt3dadd(-38.2838537314983, 33.3258631864369, -7.0485437978059, 2.25)
    pt3dadd(-38.5612717536441, 32.4177013944722, -6.73504515250703, 2.25)
    pt3dadd(-38.7511553029685, 31.453782287709, -6.79719301939664, 2.25)
    pt3dadd(-38.9232060159259, 30.4785041010425, -6.93586893938064, 2.25)
    pt3dadd(-39.0952567288833, 29.503225914376, -7.07454485936465, 2.25)
    pt3dadd(-39.2673074418408, 28.5279477277095, -7.21322077934865, 2.25)
    pt3dadd(-39.4393581547982, 27.5526695410431, -7.35189669933265, 2.25)
    pt3dadd(-39.6114088677557, 26.5773913543766, -7.49057261931665, 2.25)
    pt3dadd(-39.7834595807131, 25.6021131677102, -7.62924853930065, 2.25)
    pt3dadd(-40.0847011429241, 24.6915188707235, -7.39231074556496, 2.20038999380407)
    pt3dadd(-40.4050326056577, 23.7904825960466, -7.09987034873267, 2.14344935940438)
    pt3dadd(-40.7253640683914, 22.8894463213698, -6.80742995190037, 2.08650872500469)
    pt3dadd(-41.045695531125, 21.9884100466929, -6.51498955506807, 2.029568090605)
    pt3dadd(-41.3660269938586, 21.0873737720161, -6.22254915823577, 1.9726274562053)
    pt3dadd(-41.6863584565923, 20.1863374973393, -5.93010876140348, 1.91568682180561)
    pt3dadd(-42.0066899193259, 19.2853012226625, -5.63766836457118, 1.85874618740592)
    pt3dadd(-42.3270213820596, 18.3842649479857, -5.34522796773888, 1.80180555300623)
    pt3dadd(-42.6846881765436, 17.4624861438112, -5.47381123222324, 1.8)
    pt3dadd(-43.0435776212673, 16.5400280672834, -5.61618209832479, 1.8)
    pt3dadd(-43.4024670659911, 15.6175699907556, -5.75855296442633, 1.8)
    pt3dadd(-43.7613565107148, 14.6951119142278, -5.90092383052788, 1.8)
    pt3dadd(-44.1202459554385, 13.7726538376999, -6.04329469662943, 1.8)
    pt3dadd(-44.4791354001623, 12.8501957611722, -6.18566556273098, 1.8)
    pt3dadd(-44.813124402347, 11.9191733069989, -6.32754781992566, 1.8)
    pt3dadd(-45.0926196688468, 10.9694080159868, -6.46836077385064, 1.8)
    pt3dadd(-45.3721149353466, 10.0196427249748, -6.60917372777563, 1.8)
    pt3dadd(-45.6516102018464, 9.0698774339628, -6.74998668170061, 1.8)
    pt3dadd(-45.9311054683462, 8.1201121429508, -6.89079963562559, 1.8)
    pt3dadd(-46.210600734846, 7.17034685193877, -7.03161258955057, 1.8)
    pt3dadd(-46.4900960013458, 6.22058156092674, -7.17242554347556, 1.8)
    pt3dadd(-46.7708381480268, 5.27066328654908, -7.30704142233972, 1.8)
    pt3dadd(-47.0739621048626, 4.31799892261179, -7.33041825865697, 1.8)
    pt3dadd(-47.3770860616984, 3.3653345586745, -7.35379509497423, 1.8)
    pt3dadd(-47.6802100185341, 2.41267019473721, -7.37717193129149, 1.8)
    pt3dadd(-47.9833339753699, 1.46000583079993, -7.40054876760875, 1.8)
    pt3dadd(-48.2864579322057, 0.507341466862667, -7.423925603926, 1.8)
  }
  adendIML[7] {pt3dclear()
    pt3dadd(-48.2864579322057, 0.507341466862667, -7.423925603926, 1.8)
    pt3dadd(-48.5861716676211, -0.44414817041235, -7.41210720401349, 1.8)
    pt3dadd(-48.8730819685135, -1.39122737972704, -7.26815078517203, 1.8)
    pt3dadd(-49.1599922694058, -2.33830658904177, -7.12419436633058, 1.8)
    pt3dadd(-49.4469025702982, -3.28538579835652, -6.98023794748913, 1.8)
    pt3dadd(-49.7338128711905, -4.23246500767121, -6.83628152864767, 1.8)
    pt3dadd(-50.0207231720829, -5.17954421698591, -6.69232510980622, 1.8)
    pt3dadd(-50.3076334729752, -6.12662342630066, -6.54836869096476, 1.8)
    pt3dadd(-50.555843030169, -7.08447392163172, -6.41271276152926, 1.8)
    pt3dadd(-50.7462794528594, -8.05840397762043, -6.28944794515941, 1.8)
    pt3dadd(-50.9367158755498, -9.03233403360915, -6.16618312878956, 1.8)
    pt3dadd(-51.1271522982402, -10.0062640895979, -6.04291831241972, 1.8)
    pt3dadd(-51.3175887209306, -10.9801941455866, -5.91965349604987, 1.8)
    pt3dadd(-51.508025143621, -11.9541242015753, -5.79638867968002, 1.8)
    pt3dadd(-51.6984615663114, -12.928054257564, -5.67312386331017, 1.8)
    pt3dadd(-51.8888979890018, -13.9019843135528, -5.54985904694033, 1.8)
    pt3dadd(-52.0793344116922, -14.8759143695415, -5.42659423057048, 1.8)
    pt3dadd(-52.2314372136016, -15.8397476892321, -5.2380371312227, 1.8)
    pt3dadd(-52.3024884704462, -16.7822327496037, -4.91142783883023, 1.8)
    pt3dadd(-52.3735397272908, -17.7247178099753, -4.58481854643776, 1.8)
    pt3dadd(-52.4445909841353, -18.667202870347, -4.25820925404528, 1.8)
    pt3dadd(-52.5156422409799, -19.6096879307186, -3.93159996165281, 1.8)
    pt3dadd(-52.5866934978245, -20.5521729910902, -3.60499066926034, 1.8)
    pt3dadd(-52.657744754669, -21.4946580514618, -3.27838137686787, 1.8)
    pt3dadd(-52.7287960115136, -22.4371431118335, -2.95177208447539, 1.8)
    pt3dadd(-52.7998472683582, -23.3796281722051, -2.62516279208292, 1.8)
    pt3dadd(-52.8646523213173, -24.3574594255487, -2.46717195160134, 1.8)
    pt3dadd(-52.9263710586726, -25.3527556078165, -2.39249727702969, 1.8)
    pt3dadd(-52.9880897960279, -26.3480517900843, -2.31782260245805, 1.8)
    pt3dadd(-53.0498085333832, -27.3433479723521, -2.2431479278864, 1.8)
    pt3dadd(-53.1115272707385, -28.3386441546199, -2.16847325331475, 1.8)
    pt3dadd(-53.2530005971407, -29.3194319176975, -2.22213770444345, 1.8)
    pt3dadd(-53.4469490085965, -30.2906737657362, -2.36024377350701, 1.8)
    pt3dadd(-53.6408974200524, -31.2619156137749, -2.49834984257057, 1.8)
    pt3dadd(-53.8348458315082, -32.2331574618135, -2.63645591163413, 1.8)
    pt3dadd(-54.0287942429641, -33.2043993098522, -2.77456198069768, 1.8)
  }
  adendIML[8] {pt3dclear()
    pt3dadd(-54.0287942429641, -33.2043993098522, -2.77456198069768, 1.8)
    pt3dadd(-54.0553637183805, -34.1873865864152, -2.62453220711815, 1.8)
    pt3dadd(-54.0660932727285, -35.1714853926912, -2.44723467146237, 1.8)
    pt3dadd(-54.0768228270764, -36.1555841989672, -2.26993713580658, 1.8)
    pt3dadd(-54.0875523814243, -37.1396830052432, -2.0926396001508, 1.8)
    pt3dadd(-54.0982819357722, -38.1237818115193, -1.91534206449502, 1.8)
    pt3dadd(-54.1090114901201, -39.1078806177953, -1.73804452883923, 1.8)
    pt3dadd(-54.122156919758, -40.0896552334351, -1.55368192903099, 1.8)
    pt3dadd(-54.2125836236787, -40.9970814690932, -1.14331546103279, 1.8)
    pt3dadd(-54.3030103275994, -41.9045077047514, -0.732948993034581, 1.8)
    pt3dadd(-54.3934370315201, -42.8119339404095, -0.322582525036376, 1.8)
    pt3dadd(-54.4838637354408, -43.7193601760677, 0.0877839429618281, 1.8)
    pt3dadd(-54.5742904393615, -44.6267864117258, 0.498150410960034, 1.8)
    pt3dadd(-54.6647171432822, -45.534212647384, 0.908516878958239, 1.8)
    pt3dadd(-54.7551438472029, -46.4416388830421, 1.31888334695644, 1.8)
    pt3dadd(-54.7699066531722, -47.4330683145324, 1.25605429803265, 1.8)
    pt3dadd(-54.7805450272271, -48.429076752275, 1.16743140627821, 1.8)
    pt3dadd(-54.7911834012821, -49.4250851900177, 1.07880851452378, 1.8)
    pt3dadd(-54.801821775337, -50.4210936277603, 0.99018562276934, 1.8)
    pt3dadd(-54.812460149392, -51.417102065503, 0.901562731014903, 1.8)
    pt3dadd(-54.8014262971318, -52.4143304885336, 0.834025680924741, 1.8)
    pt3dadd(-54.7702185352338, -53.4126945527578, 0.786116695722355, 1.8)
    pt3dadd(-54.7390107733357, -54.4110586169819, 0.738207710519969, 1.8)
    pt3dadd(-54.7078030114376, -55.4094226812061, 0.690298725317582, 1.8)
    pt3dadd(-54.6765952495396, -56.4077867454303, 0.642389740115195, 1.8)
    pt3dadd(-54.6453874876415, -57.4061508096544, 0.594480754912807, 1.8)
    pt3dadd(-54.6141797257434, -58.4045148738786, 0.54657176971042, 1.8)
    pt3dadd(-54.5829719638453, -59.4028789381028, 0.498662784508034, 1.8)
    pt3dadd(-54.5517642019473, -60.4012430023269, 0.450753799305647, 1.8)
    pt3dadd(-54.5205564400492, -61.3996070665511, 0.402844814103259, 1.8)
    pt3dadd(-54.4893486781511, -62.3979711307752, 0.354935828900873, 1.8)
    pt3dadd(-54.4610537753412, -63.3955245376874, 0.318135267754848, 1.8)
    pt3dadd(-54.4928080358298, -64.3763660845892, 0.510337054458191, 1.8)
    pt3dadd(-54.5245622963184, -65.3572076314911, 0.702538841161535, 1.8)
    pt3dadd(-54.556316556807, -66.338049178393, 0.89474062786488, 1.8)
    pt3dadd(-54.5880708172956, -67.3188907252948, 1.08694241456822, 1.8)
    pt3dadd(-54.6198250777842, -68.2997322721967, 1.27914420127157, 1.8)
    pt3dadd(-54.6515793382728, -69.2805738190986, 1.47134598797491, 1.8)
    pt3dadd(-54.6833335987614, -70.2614153660005, 1.66354777467826, 1.8)
    pt3dadd(-54.71508785925, -71.2422569129024, 1.8557495613816, 1.8)
    pt3dadd(-54.7468421197385, -72.2230984598042, 2.04795134808494, 1.8)
    pt3dadd(-54.7785963802271, -73.2039400067061, 2.24015313478829, 1.8)
    pt3dadd(-54.8103506407157, -74.184781553608, 2.43235492149163, 1.8)
    pt3dadd(-54.8421049012043, -75.1656231005099, 2.62455670819497, 1.8)
    pt3dadd(-54.8738591616929, -76.1464646474117, 2.81675849489832, 1.8)
    pt3dadd(-54.9056134221815, -77.1273061943136, 3.00896028160166, 1.8)
    pt3dadd(-55.0546426369231, -78.0863051412566, 3.22279186406423, 1.8)
    pt3dadd(-55.3025078930763, -79.0268957577267, 3.45485243159017, 1.8)
    pt3dadd(-55.5503731492296, -79.9674863741968, 3.68691299911611, 1.8)
    pt3dadd(-55.7982384053829, -80.9080769906669, 3.91897356664206, 1.8)
    pt3dadd(-56.0461036615362, -81.848667607137, 4.151034134168, 1.8)
    pt3dadd(-56.2939689176894, -82.7892582236071, 4.38309470169394, 1.8)
    pt3dadd(-56.5418341738427, -83.7298488400772, 4.61515526921989, 1.8)
    pt3dadd(-56.7296251434773, -84.6944794055852, 4.61599584574425, 1.8)
    pt3dadd(-56.8817550160292, -85.6733804852546, 4.47958038437957, 1.8)
    pt3dadd(-57.033884888581, -86.6522815649241, 4.3431649230149, 1.8)
    pt3dadd(-57.1860147611329, -87.6311826445935, 4.20674946165022, 1.8)
    pt3dadd(-57.3241825116998, -88.6125802682388, 4.12344934002517, 1.8)
    pt3dadd(-57.4123232339203, -89.6029231422104, 4.23046431589355, 1.8)
    pt3dadd(-57.5004639561407, -90.5932660161819, 4.33747929176193, 1.8)
    pt3dadd(-57.5886046783612, -91.5836088901536, 4.4444942676303, 1.8)
    pt3dadd(-57.6767454005817, -92.5739517641252, 4.55150924349868, 1.8)
  }
  adendIML[9] {pt3dclear()
    pt3dadd(-57.6767454005817, -92.5739517641252, 4.55150924349868, 1.8)
    pt3dadd(-57.8146994925882, -93.5622808227665, 4.61180622895442, 1.8)
    pt3dadd(-57.958401267745, -94.5503775186407, 4.66671268958804, 1.8)
    pt3dadd(-58.1021030429017, -95.5384742145149, 4.72161915022165, 1.8)
    pt3dadd(-58.2458048180584, -96.5265709103891, 4.77652561085526, 1.8)
    pt3dadd(-58.3895065932151, -97.5146676062632, 4.83143207148887, 1.8)
    pt3dadd(-58.5332083683718, -98.5027643021375, 4.88633853212248, 1.8)
    pt3dadd(-58.6769101435286, -99.4908609980116, 4.9412449927561, 1.8)
    pt3dadd(-58.7091221030935, -100.481908958913, 4.83080396054318, 1.8)
    pt3dadd(-58.7284718645116, -101.473297397153, 4.70128735443321, 1.8)
    pt3dadd(-58.7478216259296, -102.464685835392, 4.57177074832324, 1.8)
    pt3dadd(-58.7671713873477, -103.456074273632, 4.44225414221327, 1.8)
    pt3dadd(-58.7865211487657, -104.447462711871, 4.3127375361033, 1.8)
    pt3dadd(-58.8058709101838, -105.438851150111, 4.18322092999334, 1.8)
    pt3dadd(-58.8252206716018, -106.43023958835, 4.05370432388337, 1.8)
    pt3dadd(-58.960160001902, -107.352696076558, 4.2793542646538, 1.8)
    pt3dadd(-59.1591598110246, -108.236950036908, 4.70183977869371, 1.8)
    pt3dadd(-59.3581596201473, -109.121203997259, 5.12432529273362, 1.8)
    pt3dadd(-59.5571594292699, -110.005457957609, 5.54681080677353, 1.8)
    pt3dadd(-59.7561592383925, -110.88971191796, 5.96929632081344, 1.8)
    pt3dadd(-59.8549885245522, -111.858140854533, 5.94263487534035, 1.8)
    pt3dadd(-59.9301692680569, -112.846442059481, 5.80993753511324, 1.8)
    pt3dadd(-60.0053500115616, -113.83474326443, 5.67724019488613, 1.8)
    pt3dadd(-60.0805307550663, -114.823044469378, 5.54454285465903, 1.8)
    pt3dadd(-60.1557114985711, -115.811345674327, 5.41184551443193, 1.8)
    pt3dadd(-60.2308922420758, -116.799646879275, 5.27914817420482, 1.8)
  }
  adendMML[10] {pt3dclear()
    pt3dadd(-60.2308922420758, -116.799646879275, 5.27914817420482, 1.8)
    pt3dadd(-60.2791911987299, -117.774350147848, 5.32608067718027, 1.8)
    pt3dadd(-60.2906871131595, -118.730436892551, 5.61893897150693, 1.8)
    pt3dadd(-60.302183027589, -119.686523637253, 5.91179726583359, 1.8)
    pt3dadd(-60.3136789420186, -120.642610381955, 6.20465556016025, 1.8)
    pt3dadd(-60.3251748564482, -121.598697126658, 6.49751385448691, 1.8)
    pt3dadd(-60.3513324346837, -122.560763466372, 6.70839972772001, 1.8)
    pt3dadd(-60.4390615481926, -123.547941065634, 6.57504309999283, 1.8)
    pt3dadd(-60.5267906617014, -124.535118664896, 6.44168647226566, 1.8)
    pt3dadd(-60.6162894444882, -125.519613325025, 6.34100455076432, 1.7874752777071)
  }
  adendMML[11] {pt3dclear()
    pt3dadd(-60.6162894444882, -125.519613325025, 6.34100455076432, 1.72327702309981)
    pt3dadd(-60.8443332767673, -126.487222938973, 6.16874102806621, 1.72327702309981)
    pt3dadd(-61.0509520643761, -127.45578198913, 6.03016959173824, 1.65907876849253)
    pt3dadd(-61.2575708519849, -128.424341039287, 5.89159815541027, 1.59488051388524)
    pt3dadd(-61.4641896395937, -129.392900089444, 5.7530267190823, 1.53068225927796)
    pt3dadd(-61.6708084272024, -130.361459139601, 5.61445528275432, 1.46648400467067)
    pt3dadd(-61.8774272148112, -131.330018189758, 5.47588384642635, 1.40228575006338)
    pt3dadd(-62.0829735686241, -132.288011577451, 5.42957180801208, 1.35)
    pt3dadd(-62.2838128513753, -133.19963070482, 5.78819995682175, 1.35)
    pt3dadd(-62.4846521341266, -134.111249832189, 6.14682810563142, 1.35)
    pt3dadd(-62.6854914168778, -135.022868959559, 6.50545625444109, 1.35)
    pt3dadd(-62.886330699629, -135.934488086928, 6.86408440325076, 1.35)
    pt3dadd(-63.0871699823802, -136.846107214297, 7.22271255206043, 1.35)
    pt3dadd(-63.2431094406525, -137.78944147226, 7.50242706959194, 1.35)
    pt3dadd(-63.3623339391288, -138.758709456206, 7.71761325469991, 1.35)
    pt3dadd(-63.481558437605, -139.727977440151, 7.93279943980787, 1.35)
    pt3dadd(-63.6007829360812, -140.697245424097, 8.14798562491583, 1.35)
    pt3dadd(-63.7200074345575, -141.666513408042, 8.36317181002379, 1.35)
    pt3dadd(-63.8392319330337, -142.635781391988, 8.57835799513175, 1.35)
    pt3dadd(-63.95845643151, -143.605049375933, 8.79354418023971, 1.35)
    pt3dadd(-64.0776809299862, -144.574317359879, 9.00873036534767, 1.35)
    pt3dadd(-64.2832638781048, -145.50331688508, 9.27209987089651, 1.35)
    pt3dadd(-64.6807284649037, -146.342843082739, 9.64252890011135, 1.35)
    pt3dadd(-65.0781930517025, -147.182369280398, 10.0129579293262, 1.35)
    pt3dadd(-65.4756576385012, -148.021895478057, 10.383386958541, 1.35)
    pt3dadd(-65.8731222253, -148.861421675716, 10.7538159877559, 1.35)
    pt3dadd(-66.2342647195525, -149.684131207785, 11.1856929093021, 1.35)
    pt3dadd(-66.5534826799429, -150.487430215388, 11.6884956520831, 1.35)
    pt3dadd(-66.8727006403332, -151.290729222991, 12.1912983948641, 1.35)
    pt3dadd(-67.1919186007236, -152.094028230594, 12.6941011376451, 1.35)
    pt3dadd(-67.5111365611139, -152.897327238197, 13.1969038804261, 1.35)
    pt3dadd(-67.8303545215042, -153.7006262458, 13.6997066232071, 1.35)
    pt3dadd(-68.1495724818946, -154.503925253403, 14.2025093659881, 1.35)
    pt3dadd(-68.4687904422849, -155.307224261006, 14.7053121087691, 1.35)
    pt3dadd(-68.7768288170788, -156.214117280554, 14.9527635520005, 1.35)
    pt3dadd(-69.0817180770045, -157.150191117266, 15.1282865174665, 1.35)
    pt3dadd(-69.3866073369302, -158.086264953977, 15.3038094829324, 1.35)
    pt3dadd(-69.6914965968559, -159.022338790689, 15.4793324483983, 1.35)
    pt3dadd(-69.9963858567816, -159.9584126274, 15.6548554138642, 1.35)
    pt3dadd(-70.3012751167073, -160.894486464112, 15.8303783793301, 1.35)
    pt3dadd(-70.603358044485, -161.79058703466, 16.1301199930313, 1.35)
    pt3dadd(-70.9028210105146, -162.649368990456, 16.5458308112408, 1.35)
    pt3dadd(-71.2022839765442, -163.508150946252, 16.9615416294504, 1.35)
    pt3dadd(-71.5017469425737, -164.366932902047, 17.37725244766, 1.35)
    pt3dadd(-71.8012099086033, -165.225714857843, 17.7929632658696, 1.35)
    pt3dadd(-72.1006728746329, -166.084496813639, 18.2086740840792, 1.35)
    pt3dadd(-72.4001358406624, -166.943278769434, 18.6243849022888, 1.35)
    pt3dadd(-72.699598806692, -167.80206072523, 19.0400957204984, 1.35)
    pt3dadd(-72.9888643813838, -168.702147766398, 19.355209471584, 1.35)
  }
}
proc shape3d_13() {
  adendMML[11] {
    pt3dadd(-73.2722558601406, -169.626028150984, 19.6123753805699, 1.35)
    pt3dadd(-73.5556473388973, -170.54990853557, 19.8695412895559, 1.35)
    pt3dadd(-73.8390388176541, -171.473788920157, 20.1267071985418, 1.35)
    pt3dadd(-74.1224302964109, -172.397669304743, 20.3838731075278, 1.35)
    pt3dadd(-74.4058217751677, -173.321549689329, 20.6410390165137, 1.35)
    pt3dadd(-74.6892132539245, -174.245430073916, 20.8982049254997, 1.35)
    pt3dadd(-74.9726047326812, -175.169310458502, 21.1553708344856, 1.35)
    pt3dadd(-75.255996211438, -176.093190843089, 21.4125367434716, 1.35)
    pt3dadd(-75.483817419754, -176.961704649447, 21.8344869638934, 1.35)
    pt3dadd(-75.6853791083009, -177.804055190017, 22.3343053834345, 1.35)
    pt3dadd(-75.8869407968478, -178.646405730586, 22.8341238029755, 1.35)
    pt3dadd(-76.0885024853946, -179.488756271156, 23.3339422225165, 1.35)
    pt3dadd(-76.2900641739415, -180.331106811725, 23.8337606420576, 1.35)
    pt3dadd(-76.4916258624884, -181.173457352294, 24.3335790615986, 1.35)
    pt3dadd(-76.6931875510353, -182.015807892864, 24.8333974811397, 1.35)
    pt3dadd(-77.3370700903339, -182.700868035359, 24.8247159524268, 1.35)
    pt3dadd(-78.0881089181636, -183.347823134308, 24.6928456409999, 1.35)
    pt3dadd(-78.8391477459934, -183.994778233257, 24.560975329573, 1.35)
    pt3dadd(-79.5901865738231, -184.641733332206, 24.4291050181461, 1.35)
    pt3dadd(-80.2303984214219, -185.358774529941, 24.3204137812078, 1.35)
    pt3dadd(-80.4695586914634, -186.32943754814, 24.2956010761091, 1.35)
    pt3dadd(-80.7087189615048, -187.300100566339, 24.2707883710104, 1.35)
    pt3dadd(-80.9478792315463, -188.270763584538, 24.2459756659117, 1.35)
    pt3dadd(-81.1870395015878, -189.241426602737, 24.2211629608131, 1.35)
    pt3dadd(-81.4261997716293, -190.212089620937, 24.1963502557144, 1.35)
    pt3dadd(-81.6653600416708, -191.182752639136, 24.1715375506157, 1.35)
    pt3dadd(-81.9045203117122, -192.153415657335, 24.146724845517, 1.35)
    pt3dadd(-82.1396238491289, -193.055719274192, 24.3489348632426, 1.35)
    pt3dadd(-82.3682568466459, -193.848988780395, 24.9132489982541, 1.35)
    pt3dadd(-82.5968898441629, -194.642258286599, 25.4775631332657, 1.35)
    pt3dadd(-82.8255228416799, -195.435527792803, 26.0418772682772, 1.35)
    pt3dadd(-83.0541558391969, -196.228797299006, 26.6061914032887, 1.35)
    pt3dadd(-83.2827888367139, -197.02206680521, 27.1705055383003, 1.35)
    pt3dadd(-83.5114218342309, -197.815336311413, 27.7348196733118, 1.35)
    pt3dadd(-83.7400548317479, -198.608605817617, 28.2991338083233, 1.35)
    pt3dadd(-84.0205772316515, -199.547273799247, 28.4605095504338, 1.35)
    pt3dadd(-84.3050479185405, -200.497005213521, 28.591225536613, 1.35)
    pt3dadd(-84.5895186054295, -201.446736627794, 28.7219415227923, 1.35)
    pt3dadd(-84.8739892923185, -202.396468042068, 28.8526575089716, 1.35)
    pt3dadd(-85.1584599792074, -203.346199456342, 28.9833734951509, 1.35)
    pt3dadd(-85.4429306660964, -204.295930870615, 29.1140894813301, 1.35)
    pt3dadd(-85.6769196504823, -205.184109994565, 29.4632845930636, 1.35)
    pt3dadd(-85.8787452120651, -206.033072288653, 29.9516793779543, 1.35)
    pt3dadd(-86.0805707736478, -206.882034582741, 30.4400741628449, 1.35)
    pt3dadd(-86.2823963352306, -207.730996876829, 30.9284689477356, 1.35)
    pt3dadd(-86.4842218968133, -208.579959170918, 31.4168637326262, 1.35)
    pt3dadd(-86.6860474583961, -209.428921465006, 31.9052585175169, 1.35)
    pt3dadd(-86.8878730199789, -210.277883759094, 32.3936533024075, 1.35)
    pt3dadd(-87.0896985815616, -211.126846053182, 32.8820480872982, 1.35)
    pt3dadd(-87.400973916246, -212.007254911144, 33.2041177473265, 1.35)
    pt3dadd(-87.7775951498639, -212.906438627441, 33.4268846450798, 1.35)
    pt3dadd(-88.1542163834818, -213.805622343738, 33.6496515428331, 1.35)
    pt3dadd(-88.5308376170997, -214.704806060035, 33.8724184405865, 1.35)
    pt3dadd(-88.9074588507176, -215.603989776332, 34.0951853383398, 1.35)
    pt3dadd(-89.2840800843356, -216.503173492629, 34.3179522360931, 1.35)
    pt3dadd(-89.7148848623579, -217.373997789714, 34.5484301844655, 1.35)
    pt3dadd(-90.1877893073025, -218.22278731377, 34.7848994843864, 1.35)
    pt3dadd(-90.6606937522471, -219.071576837825, 35.0213687843074, 1.35)
    pt3dadd(-91.1335981971916, -219.920366361881, 35.2578380842284, 1.35)
    pt3dadd(-91.6065026421362, -220.769155885937, 35.4943073841494, 1.35)
    pt3dadd(-92.0794070870808, -221.617945409992, 35.7307766840704, 1.35)
    pt3dadd(-92.5523115320254, -222.466734934048, 35.9672459839914, 1.35)
    pt3dadd(-93.0252159769699, -223.315524458104, 36.2037152839124, 1.35)
    pt3dadd(-93.3255817959206, -224.187437332193, 36.5864268007439, 1.35)
    pt3dadd(-93.6156662389151, -225.060728099805, 36.9778527211129, 1.35)
    pt3dadd(-93.9057506819097, -225.934018867417, 37.369278641482, 1.35)
    pt3dadd(-94.1958351249043, -226.807309635028, 37.760704561851, 1.35)
    pt3dadd(-94.4859195678988, -227.68060040264, 38.15213048222, 1.35)
    pt3dadd(-94.7760040108934, -228.553891170252, 38.543556402589, 1.35)
    pt3dadd(-95.1689070996686, -229.303009169162, 39.0253523225397, 1.35)
    pt3dadd(-95.719307625928, -229.861919519185, 39.6455768635979, 1.35)
    pt3dadd(-96.2697081521875, -230.420829869207, 40.2658014046561, 1.35)
    pt3dadd(-96.8201086784469, -230.97974021923, 40.8860259457143, 1.35)
    pt3dadd(-97.3705092047063, -231.538650569253, 41.5062504867725, 1.35)
    pt3dadd(-97.9209097309658, -232.097560919276, 42.1264750278307, 1.35)
    pt3dadd(-98.4755264716232, -232.674562042838, 42.7069123463705, 1.35)
    pt3dadd(-99.0794816869766, -233.46326283066, 42.821756436926, 1.35)
  }
  adendOML[10] {pt3dclear()
    pt3dadd(-99.0794816869766, -233.46326283066, 42.821756436926, 1.35)
    pt3dadd(-99.68343690233, -234.251963618483, 42.9366005274815, 1.35)
    pt3dadd(-100.287392117683, -235.040664406305, 43.051444618037, 1.35)
    pt3dadd(-100.891347333037, -235.829365194128, 43.1662887085925, 1.35)
    pt3dadd(-101.49530254839, -236.61806598195, 43.281132799148, 1.35)
    pt3dadd(-102.099257763744, -237.406766769773, 43.3959768897034, 1.35)
    pt3dadd(-102.681106268195, -238.183037435419, 43.5689800484382, 1.35)
    pt3dadd(-103.104109911622, -238.869993094483, 44.1598775354247, 1.35)
    pt3dadd(-103.527113555048, -239.556948753548, 44.7507750224112, 1.35)
    pt3dadd(-103.950117198475, -240.243904412612, 45.3416725093977, 1.35)
    pt3dadd(-104.373120841902, -240.930860071677, 45.9325699963841, 1.35)
    pt3dadd(-104.796124485328, -241.617815730741, 46.5234674833706, 1.35)
    pt3dadd(-105.219128128755, -242.304771389806, 47.1143649703571, 1.35)
    pt3dadd(-105.642131772182, -242.99172704887, 47.7052624573436, 1.35)
    pt3dadd(-106.0947221978, -243.691466157603, 48.2350205819008, 1.35)
    pt3dadd(-106.701436252766, -244.457796883017, 48.4462912017081, 1.35)
    pt3dadd(-107.308150307732, -245.224127608431, 48.6575618215153, 1.35)
    pt3dadd(-107.914864362698, -245.990458333844, 48.8688324413226, 1.35)
    pt3dadd(-108.521578417664, -246.756789059258, 49.0801030611299, 1.35)
    pt3dadd(-109.13626801128, -247.479973364261, 49.3527147676484, 1.35)
    pt3dadd(-109.785793423978, -248.014701320239, 49.8932540829202, 1.35)
    pt3dadd(-110.435318836676, -248.549429276217, 50.433793398192, 1.35)
    pt3dadd(-111.084844249375, -249.084157232195, 50.9743327134638, 1.35)
    pt3dadd(-111.734369662073, -249.618885188173, 51.5148720287356, 1.35)
    pt3dadd(-112.383895074772, -250.153613144151, 52.0554113440074, 1.35)
  }
  adendMML[12] {pt3dclear()
    pt3dadd(-60.6162894444882, -125.519613325025, 6.34100455076432, 1.73345258138268)
    pt3dadd(-60.5818455075556, -126.498854905039, 6.58151779130991, 1.73345258138268)
    pt3dadd(-60.5688266152934, -127.477147048843, 6.78833894548538, 1.67776876544563)
    pt3dadd(-60.5558077230311, -128.455439192648, 6.99516009966084, 1.62208494950859)
    pt3dadd(-60.5427888307689, -129.433731336453, 7.2019812538363, 1.56640113357154)
    pt3dadd(-60.5297699385067, -130.412023480257, 7.40880240801177, 1.51071731763449)
    pt3dadd(-60.5167510462445, -131.390315624062, 7.61562356218723, 1.45503350169745)
    pt3dadd(-60.5037321539822, -132.368607767866, 7.8224447163627, 1.3993496857604)
    pt3dadd(-60.4950875060782, -133.348368549227, 7.99096520724883, 1.35)
    pt3dadd(-60.5205229257591, -134.339571596515, 7.86108234281532, 1.35)
    pt3dadd(-60.5459583454401, -135.330774643802, 7.7311994783818, 1.35)
    pt3dadd(-60.571393765121, -136.32197769109, 7.60131661394829, 1.35)
    pt3dadd(-60.596829184802, -137.313180738377, 7.47143374951478, 1.35)
    pt3dadd(-60.622264604483, -138.304383785665, 7.34155088508127, 1.35)
    pt3dadd(-60.6477000241639, -139.295586832953, 7.21166802064776, 1.35)
    pt3dadd(-60.6731354438449, -140.28678988024, 7.08178515621425, 1.35)
    pt3dadd(-60.6327269261595, -141.209138804621, 7.32818989531761, 1.35)
    pt3dadd(-60.5543314855147, -142.091764158892, 7.79168384229461, 1.35)
    pt3dadd(-60.4759360448699, -142.974389513163, 8.25517778927161, 1.35)
    pt3dadd(-60.3975406042251, -143.857014867434, 8.71867173624861, 1.35)
    pt3dadd(-60.3191451635803, -144.739640221705, 9.18216568322562, 1.35)
    pt3dadd(-60.2407497229356, -145.622265575976, 9.64565963020262, 1.35)
    pt3dadd(-60.1623542822908, -146.504890930246, 10.1091535771796, 1.35)
    pt3dadd(-60.083958841646, -147.387516284517, 10.5726475241566, 1.35)
    pt3dadd(-59.9990578187863, -148.332468478271, 10.6912815283311, 1.35)
    pt3dadd(-59.9096143048447, -149.320940083994, 10.5691187578412, 1.35)
    pt3dadd(-59.8201707909031, -150.309411689716, 10.4469559873513, 1.35)
    pt3dadd(-59.7307272769616, -151.297883295439, 10.3247932168614, 1.35)
    pt3dadd(-59.64128376302, -152.286354901162, 10.2026304463715, 1.35)
    pt3dadd(-59.5722982465831, -153.275082743095, 10.0791226415171, 1.35)
    pt3dadd(-59.6203014228853, -154.265275867213, 9.94792328171204, 1.35)
    pt3dadd(-59.6683045991876, -155.255468991332, 9.81672392190694, 1.35)
    pt3dadd(-59.7163077754898, -156.24566211545, 9.68552456210184, 1.35)
    pt3dadd(-59.7390370710973, -157.186336693102, 9.75924678477486, 1.35)
    pt3dadd(-59.7005603125089, -158.007091624247, 10.3292300143963, 1.35)
    pt3dadd(-59.6620835539204, -158.827846555392, 10.8992132440177, 1.35)
    pt3dadd(-59.623606795332, -159.648601486537, 11.4691964736392, 1.35)
    pt3dadd(-59.5969961189935, -160.482415272934, 11.9865162912865, 1.35)
    pt3dadd(-59.7105065015127, -161.470435021074, 11.8819583152779, 1.35)
    pt3dadd(-59.8240168840319, -162.458454769213, 11.7774003392692, 1.35)
    pt3dadd(-59.9375272665511, -163.446474517352, 11.6728423632606, 1.35)
    pt3dadd(-60.0510376490704, -164.434494265492, 11.5682843872519, 1.35)
    pt3dadd(-60.1645480315896, -165.422514013631, 11.4637264112433, 1.35)
    pt3dadd(-60.3429206364489, -166.320547307025, 11.792385491919, 1.35)
    pt3dadd(-60.5387111945805, -167.194415843071, 12.2373796930673, 1.35)
    pt3dadd(-60.734501752712, -168.068284379117, 12.6823738942157, 1.35)
    pt3dadd(-60.9302923108436, -168.942152915162, 13.1273680953641, 1.35)
    pt3dadd(-61.1260828689751, -169.816021451208, 13.5723622965124, 1.35)
    pt3dadd(-61.3218734271067, -170.689889987254, 14.0173564976608, 1.35)
    pt3dadd(-61.5176639852383, -171.5637585233, 14.4623506988092, 1.35)
    pt3dadd(-61.7134545433698, -172.437627059346, 14.9073448999575, 1.35)
    pt3dadd(-61.8064771745643, -173.411839473658, 14.9451843168569, 1.35)
    pt3dadd(-61.8769923007695, -174.408028494952, 14.8938515706992, 1.35)
    pt3dadd(-61.9475074269748, -175.404217516247, 14.8425188245414, 1.35)
    pt3dadd(-62.01802255318, -176.400406537542, 14.7911860783837, 1.35)
    pt3dadd(-62.0885376793852, -177.396595558837, 14.739853332226, 1.35)
    pt3dadd(-62.1590528055905, -178.392784580131, 14.6885205860683, 1.35)
    pt3dadd(-62.189479096696, -179.383883680729, 14.7716475549368, 1.35)
    pt3dadd(-62.1997989385228, -180.372429945055, 14.9222124384634, 1.35)
    pt3dadd(-62.2101187803496, -181.360976209382, 15.0727773219899, 1.35)
    pt3dadd(-62.2204386221763, -182.349522473708, 15.2233422055165, 1.35)
    pt3dadd(-62.2307584640031, -183.338068738034, 15.373907089043, 1.35)
    pt3dadd(-62.2410783058299, -184.32661500236, 15.5244719725696, 1.35)
    pt3dadd(-62.2520615060387, -185.315715905353, 15.6704082840957, 1.35)
    pt3dadd(-62.2708646785165, -186.311355142846, 15.7617808700792, 1.35)
    pt3dadd(-62.2896678509944, -187.306994380339, 15.8531534560627, 1.35)
    pt3dadd(-62.3084710234722, -188.302633617832, 15.9445260420462, 1.35)
    pt3dadd(-62.32727419595, -189.298272855325, 16.0358986280297, 1.35)
    pt3dadd(-62.3460773684278, -190.293912092818, 16.1272712140131, 1.35)
    pt3dadd(-62.3648805409057, -191.289551330311, 16.2186437999966, 1.35)
    pt3dadd(-62.3836837133835, -192.285190567804, 16.3100163859801, 1.35)
    pt3dadd(-62.4024868858613, -193.280829805296, 16.4013889719636, 1.35)
    pt3dadd(-62.6155604808154, -194.184431622662, 16.7653285884108, 1.35)
    pt3dadd(-62.8377448513268, -195.083717125341, 17.1420508868907, 1.35)
    pt3dadd(-63.0599292218381, -195.98300262802, 17.5187731853706, 1.35)
    pt3dadd(-63.2821135923495, -196.882288130699, 17.8954954838505, 1.35)
    pt3dadd(-63.5042979628608, -197.781573633377, 18.2722177823304, 1.35)
    pt3dadd(-63.7264823333722, -198.680859136056, 18.6489400808103, 1.35)
    pt3dadd(-63.9486667038835, -199.580144638735, 19.0256623792902, 1.35)
    pt3dadd(-64.1692430688374, -200.480300456206, 19.3995989480936, 1.35)
    pt3dadd(-64.2106741357913, -201.477416636734, 19.4631818799204, 1.35)
    pt3dadd(-64.2521052027452, -202.474532817262, 19.5267648117472, 1.35)
    pt3dadd(-64.2935362696991, -203.471648997791, 19.590347743574, 1.35)
    pt3dadd(-64.334967336653, -204.468765178319, 19.6539306754009, 1.35)
    pt3dadd(-64.376398403607, -205.465881358847, 19.7175136072277, 1.35)
    pt3dadd(-64.4178294705609, -206.462997539376, 19.7810965390545, 1.35)
    pt3dadd(-64.4592605375148, -207.460113719904, 19.8446794708813, 1.35)
    pt3dadd(-64.5330940702877, -208.335798537703, 20.1676211943207, 1.35)
    pt3dadd(-64.6550786462664, -209.031032681594, 20.8759779182892, 1.35)
    pt3dadd(-64.7770632222451, -209.726266825485, 21.5843346422576, 1.35)
    pt3dadd(-64.8990477982238, -210.421500969376, 22.2926913662261, 1.35)
    pt3dadd(-65.0210323742025, -211.116735113267, 23.0010480901946, 1.35)
    pt3dadd(-65.1430169501813, -211.811969257158, 23.709404814163, 1.35)
    pt3dadd(-65.26500152616, -212.50720340105, 24.4177615381315, 1.35)
    pt3dadd(-65.3869861021387, -213.202437544941, 25.1261182620999, 1.35)
    pt3dadd(-65.5089706781175, -213.897671688832, 25.8344749860684, 1.35)
    pt3dadd(-65.9036209029615, -214.802772963182, 25.6983109138247, 1.35)
    pt3dadd(-66.3004030677892, -215.709515163437, 25.5555436348333, 1.35)
    pt3dadd(-66.6971852326169, -216.616257363693, 25.4127763558419, 1.35)
    pt3dadd(-66.9143974349737, -217.573584142533, 25.2749789552353, 1.35)
    pt3dadd(-67.0421250384979, -218.55611859341, 25.1396581802703, 1.35)
    pt3dadd(-67.1698526420221, -219.538653044287, 25.0043374053053, 1.35)
    pt3dadd(-67.2975802455463, -220.521187495165, 24.8690166303402, 1.35)
    pt3dadd(-67.418350184527, -221.512935565331, 24.8295115628902, 1.35)
    pt3dadd(-67.5389036856298, -222.504970251242, 24.7929871146232, 1.35)
    pt3dadd(-67.6594571867325, -223.497004937153, 24.7564626663561, 1.35)
    pt3dadd(-67.7800106878353, -224.489039623064, 24.719938218089, 1.35)
    pt3dadd(-67.9005641889381, -225.481074308975, 24.6834137698219, 1.35)
    pt3dadd(-68.0913608743674, -226.454660636445, 24.5858804430599, 1.35)
    pt3dadd(-68.3306716742594, -227.415505432027, 24.4462107618186, 1.35)
    pt3dadd(-68.5699824741514, -228.376350227609, 24.3065410805773, 1.35)
    pt3dadd(-68.8092932740434, -229.337195023191, 24.166871399336, 1.35)
    pt3dadd(-69.1642150938162, -230.133468465956, 24.4286371686175, 1.35)
    pt3dadd(-69.6174623300586, -230.789776472715, 25.0318176914318, 1.35)
    pt3dadd(-70.070709566301, -231.446084479475, 25.6349982142461, 1.35)
    pt3dadd(-70.5239568025433, -232.102392486234, 26.2381787370604, 1.35)
    pt3dadd(-70.9772040387857, -232.758700492993, 26.8413592598747, 1.35)
    pt3dadd(-71.444181914855, -233.613322172687, 26.758643366478, 1.35)
  }
  adendOML[11] {pt3dclear()
    pt3dadd(-71.444181914855, -233.613322172687, 26.758643366478, 1.35)
    pt3dadd(-71.9123636205833, -234.485330943172, 26.6157917139857, 1.35)
    pt3dadd(-72.3805453263116, -235.357339713656, 26.4729400614935, 1.35)
    pt3dadd(-72.8487270320399, -236.22934848414, 26.3300884090012, 1.35)
    pt3dadd(-73.3169087377683, -237.101357254625, 26.1872367565089, 1.35)
    pt3dadd(-73.6634958791694, -238.032454802805, 26.2641629282308, 1.35)
    pt3dadd(-73.9972676013901, -238.969779993309, 26.3642525115693, 1.35)
    pt3dadd(-74.3310393236109, -239.907105183813, 26.4643420949079, 1.35)
    pt3dadd(-74.6648110458316, -240.844430374317, 26.5644316782464, 1.35)
    pt3dadd(-74.9985827680523, -241.78175556482, 26.6645212615849, 1.35)
    pt3dadd(-75.3323544902731, -242.719080755324, 26.7646108449235, 1.35)
    pt3dadd(-75.6661262124938, -243.656405945828, 26.864700428262, 1.35)
    pt3dadd(-76.0328750041431, -244.571045886202, 26.946072135748, 1.35)
    pt3dadd(-76.7764006315501, -245.226497338628, 26.8135842687473, 1.35)
    pt3dadd(-77.5199262589571, -245.881948791053, 26.6810964017466, 1.35)
    pt3dadd(-78.0680054880768, -246.649320646337, 26.7306762811088, 1.35)
    pt3dadd(-78.3637402986843, -247.561194980184, 27.0153271568589, 1.35)
    pt3dadd(-78.6594751092918, -248.473069314031, 27.2999780326091, 1.35)
    pt3dadd(-78.9552099198993, -249.384943647879, 27.5846289083592, 1.35)
    pt3dadd(-79.2509447305067, -250.296817981726, 27.8692797841093, 1.35)
    pt3dadd(-79.5517452105376, -251.205356395855, 28.1579852299466, 1.35)
    pt3dadd(-79.9216551766352, -252.068383806791, 28.5020060214033, 1.35)
    pt3dadd(-80.2915651427328, -252.931411217728, 28.8460268128599, 1.35)
    pt3dadd(-80.6614751088304, -253.794438628664, 29.1900476043166, 1.35)
    pt3dadd(-81.0313850749281, -254.6574660396, 29.5340683957732, 1.35)
    pt3dadd(-81.2542519355664, -255.616634072951, 29.4357303285412, 1.35)
    pt3dadd(-81.4637112750257, -256.584568293789, 29.2970575870102, 1.35)
    pt3dadd(-81.6731706144851, -257.552502514627, 29.1583848454791, 1.35)
    pt3dadd(-81.8826299539444, -258.520436735465, 29.0197121039481, 1.35)
  }
}
proc shape3d_14() {
  adendOML[11] {
  }
  adendIML[10] {pt3dclear()
    pt3dadd(-57.6767454005817, -92.5739517641252, 4.55150924349868, 1.7430180968588)
    pt3dadd(-57.3831393679545, -93.5200549247534, 4.58286000146197, 1.7430180968588)
    pt3dadd(-57.0454857352572, -94.4610535149411, 4.60548029304256, 1.67946137402647)
    pt3dadd(-56.7078321025599, -95.4020521051286, 4.62810058462315, 1.61590465119415)
    pt3dadd(-56.3701784698627, -96.3430506953163, 4.65072087620375, 1.55234792836182)
    pt3dadd(-56.0325248371654, -97.284049285504, 4.67334116778434, 1.4887912055295)
    pt3dadd(-55.6948712044681, -98.2250478756916, 4.69596145936494, 1.42523448269717)
    pt3dadd(-55.3572175717708, -99.1660464658792, 4.71858175094553, 1.36167775986485)
    pt3dadd(-55.2014670628531, -100.139619929538, 4.85087654681283, 1.35)
    pt3dadd(-55.0866622644249, -101.120525874964, 5.00785866199218, 1.35)
    pt3dadd(-54.9718574659967, -102.10143182039, 5.16484077717153, 1.35)
    pt3dadd(-54.8570526675686, -103.082337765816, 5.32182289235087, 1.35)
    pt3dadd(-54.7422478691404, -104.063243711242, 5.47880500753022, 1.35)
    pt3dadd(-54.6274430707122, -105.044149656667, 5.63578712270957, 1.35)
    pt3dadd(-54.512638272284, -106.025055602093, 5.79276923788891, 1.35)
    pt3dadd(-54.4024100107899, -107.006884946178, 5.9471496580175, 1.35)
    pt3dadd(-54.2965963428342, -107.98960501393, 6.09902044557347, 1.35)
    pt3dadd(-54.1907826748784, -108.972325081681, 6.25089123312943, 1.35)
    pt3dadd(-54.0849690069226, -109.955045149432, 6.40276202068539, 1.35)
    pt3dadd(-53.9791553389668, -110.937765217183, 6.55463280824135, 1.35)
    pt3dadd(-53.873341671011, -111.920485284934, 6.70650359579732, 1.35)
    pt3dadd(-53.7675280030552, -112.903205352686, 6.85837438335328, 1.35)
    pt3dadd(-53.6380823295132, -113.885738141619, 6.98797138731526, 1.35)
    pt3dadd(-53.4844864757461, -114.868079545307, 7.09480621452817, 1.35)
    pt3dadd(-53.3308906219789, -115.850420948995, 7.20164104174107, 1.35)
    pt3dadd(-53.1772947682117, -116.832762352684, 7.30847586895398, 1.35)
  }
  adendMML[13] {pt3dclear()
    pt3dadd(-53.1772947682117, -116.832762352684, 7.30847586895398, 1.35)
    pt3dadd(-53.0236989144446, -117.815103756372, 7.41531069616689, 1.35)
    pt3dadd(-52.8701030606774, -118.79744516006, 7.52214552337979, 1.35)
    pt3dadd(-52.7165072069103, -119.779786563748, 7.6289803505927, 1.35)
    pt3dadd(-52.5629113531431, -120.762127967436, 7.73581517780561, 1.35)
    pt3dadd(-52.409315499376, -121.744469371124, 7.84265000501852, 1.35)
    pt3dadd(-52.3447571707536, -122.666412713038, 8.12407118404539, 1.35)
    pt3dadd(-52.4213149673115, -123.492630792687, 8.68219535360656, 1.35)
    pt3dadd(-52.4978727638694, -124.318848872335, 9.24031952316773, 1.35)
    pt3dadd(-52.5744305604274, -125.145066951983, 9.7984436927289, 1.35)
    pt3dadd(-52.6509883569853, -125.971285031632, 10.3565678622901, 1.35)
    pt3dadd(-52.7275461535432, -126.79750311128, 10.9146920318512, 1.35)
    pt3dadd(-52.8041039501011, -127.623721190928, 11.4728162014124, 1.35)
    pt3dadd(-52.880661746659, -128.449939270577, 12.0309403709736, 1.35)
    pt3dadd(-52.6763984493366, -129.2999334813, 12.3034799828559, 1.35)
    pt3dadd(-52.1903996849103, -130.173781239851, 12.2895051536629, 1.35)
    pt3dadd(-51.704400920484, -131.047628998402, 12.2755303244698, 1.35)
    pt3dadd(-51.2184021560577, -131.921476756953, 12.2615554952768, 1.35)
    pt3dadd(-51.1511895356424, -132.835929698127, 12.5508031061124, 1.35)
    pt3dadd(-51.2016749373514, -133.761794549056, 12.9252700633028, 1.35)
    pt3dadd(-51.2521603390605, -134.687659399986, 13.2997370204932, 1.35)
    pt3dadd(-51.3026457407695, -135.613524250915, 13.6742039776837, 1.35)
    pt3dadd(-51.3531311424785, -136.539389101845, 14.0486709348741, 1.35)
    pt3dadd(-51.4036165441876, -137.465253952775, 14.4231378920645, 1.35)
    pt3dadd(-51.303260692189, -138.420241978846, 14.6377634617093, 1.35)
    pt3dadd(-51.1051201000227, -139.394109469548, 14.7487698412121, 1.35)
    pt3dadd(-50.9069795078565, -140.36797696025, 14.8597762207149, 1.35)
    pt3dadd(-50.7088389156903, -141.341844450951, 14.9707826002177, 1.35)
    pt3dadd(-50.6036175405918, -142.223105438617, 15.3104684690454, 1.35)
    pt3dadd(-50.6279684869346, -142.975230172688, 15.96903920618, 1.35)
    pt3dadd(-50.6523194332775, -143.72735490676, 16.6276099433145, 1.35)
    pt3dadd(-50.6766703796203, -144.479479640831, 17.2861806804491, 1.35)
    pt3dadd(-50.7010213259631, -145.231604374903, 17.9447514175836, 1.35)
    pt3dadd(-50.725372272306, -145.983729108975, 18.6033221547182, 1.35)
    pt3dadd(-50.7497232186488, -146.735853843046, 19.2618928918528, 1.35)
    pt3dadd(-50.7238101153764, -147.536145084503, 19.7696365244513, 1.35)
    pt3dadd(-50.5138212365948, -148.512830533516, 19.7250248166471, 1.35)
    pt3dadd(-50.3038323578131, -149.48951598253, 19.6804131088429, 1.35)
    pt3dadd(-50.0938434790315, -150.466201431544, 19.6358014010387, 1.35)
    pt3dadd(-49.8838546002499, -151.442886880557, 19.5911896932344, 1.35)
    pt3dadd(-49.6738657214683, -152.419572329571, 19.5465779854302, 1.35)
    pt3dadd(-49.4677890883872, -153.380508005921, 19.6424185506517, 1.35)
    pt3dadd(-49.2665953021869, -154.321786499618, 19.9135566293107, 1.35)
    pt3dadd(-49.0654015159867, -155.263064993314, 20.1846947079697, 1.35)
    pt3dadd(-48.8642077297864, -156.204343487011, 20.4558327866287, 1.35)
    pt3dadd(-48.6630139435862, -157.145621980707, 20.7269708652876, 1.35)
    pt3dadd(-48.4618201573859, -158.086900474404, 20.9981089439466, 1.35)
    pt3dadd(-48.2606263711856, -159.0281789681, 21.2692470226056, 1.35)
    pt3dadd(-48.0594325849854, -159.969457461797, 21.5403851012646, 1.35)
    pt3dadd(-47.8582387987851, -160.910735955493, 21.8115231799236, 1.35)
    pt3dadd(-47.6570450125849, -161.85201444919, 22.0826612585826, 1.35)
    pt3dadd(-47.4558512263846, -162.793292942886, 22.3537993372416, 1.35)
    pt3dadd(-47.2546574401843, -163.734571436582, 22.6249374159006, 1.35)
    pt3dadd(-46.9785790680654, -164.511541141219, 23.1737461665756, 1.35)
    pt3dadd(-46.6895943904187, -165.260192342034, 23.7704112615857, 1.35)
    pt3dadd(-46.400609712772, -166.008843542849, 24.3670763565959, 1.35)
    pt3dadd(-46.1116250351253, -166.757494743664, 24.9637414516061, 1.35)
    pt3dadd(-45.8226403574786, -167.50614594448, 25.5604065466162, 1.35)
    pt3dadd(-45.5336556798319, -168.254797145295, 26.1570716416264, 1.35)
    pt3dadd(-45.245214647573, -169.006275067023, 26.7497010672328, 1.35)
    pt3dadd(-44.9760894690135, -169.858187074727, 27.1989421710909, 1.35)
    pt3dadd(-44.7069642904539, -170.710099082431, 27.648183274949, 1.35)
    pt3dadd(-44.4378391118943, -171.562011090134, 28.0974243788071, 1.35)
    pt3dadd(-44.1687139333347, -172.413923097838, 28.5466654826652, 1.35)
    pt3dadd(-43.8995887547751, -173.265835105542, 28.9959065865233, 1.35)
    pt3dadd(-43.6304635762155, -174.117747113245, 29.4451476903814, 1.35)
    pt3dadd(-43.8272882693764, -174.941397125959, 29.8759544890102, 1.35)
    pt3dadd(-44.2317721608897, -175.752451656669, 30.2985456977689, 1.35)
    pt3dadd(-44.636256052403, -176.56350618738, 30.7211369065275, 1.35)
    pt3dadd(-45.0407399439162, -177.37456071809, 31.1437281152862, 1.35)
    pt3dadd(-45.4452238354295, -178.185615248801, 31.5663193240449, 1.35)
    pt3dadd(-45.8497077269428, -178.996669779512, 31.9889105328036, 1.35)
    pt3dadd(-46.2541916184561, -179.807724310222, 32.4115017415623, 1.35)
    pt3dadd(-46.6586755099693, -180.618778840933, 32.834092950321, 1.35)
    pt3dadd(-46.8824119506338, -181.568637384963, 32.8977135188443, 1.35)
    pt3dadd(-47.0624969693815, -182.552017798987, 32.8746408654212, 1.35)
    pt3dadd(-47.2425819881292, -183.535398213011, 32.8515682119982, 1.35)
    pt3dadd(-47.4226670068769, -184.518778627036, 32.8284955585752, 1.35)
    pt3dadd(-47.6027520256246, -185.50215904106, 32.8054229051521, 1.35)
    pt3dadd(-47.7828370443722, -186.485539455084, 32.7823502517291, 1.35)
    pt3dadd(-47.9037631853534, -187.474527393877, 32.8373376724697, 1.35)
    pt3dadd(-47.9985285687585, -188.465995046648, 32.9268441840664, 1.35)
    pt3dadd(-48.0932939521636, -189.457462699418, 33.0163506956631, 1.35)
    pt3dadd(-48.1880593355687, -190.448930352188, 33.1058572072598, 1.35)
    pt3dadd(-48.2828247189738, -191.440398004959, 33.1953637188565, 1.35)
    pt3dadd(-48.3775901023788, -192.431865657729, 33.2848702304532, 1.35)
    pt3dadd(-48.4723554857839, -193.423333310499, 33.3743767420499, 1.35)
    pt3dadd(-48.4477856275681, -194.414377027371, 33.2850452109169, 1.35)
    pt3dadd(-48.3993391021724, -195.405335922893, 33.1599316562396, 1.35)
    pt3dadd(-48.3508925767767, -196.396294818414, 33.0348181015623, 1.35)
    pt3dadd(-48.302446051381, -197.387253713936, 32.909704546885, 1.35)
    pt3dadd(-48.2539995259853, -198.378212609457, 32.7845909922078, 1.35)
    pt3dadd(-48.2055530005896, -199.369171504979, 32.6594774375305, 1.35)
    pt3dadd(-48.3649198365713, -200.254830575783, 32.8607763007672, 1.35)
    pt3dadd(-48.7177170065594, -201.042477756828, 33.3658961628199, 1.35)
    pt3dadd(-49.0705141765475, -201.830124937873, 33.8710160248726, 1.35)
    pt3dadd(-49.4233113465357, -202.617772118918, 34.3761358869252, 1.35)
    pt3dadd(-49.7761085165238, -203.405419299963, 34.8812557489779, 1.35)
    pt3dadd(-50.274805751928, -204.215844955083, 34.9802074059195, 1.35)
    pt3dadd(-50.8396811152523, -205.036602591663, 34.8949271274043, 1.35)
    pt3dadd(-51.4045564785765, -205.857360228244, 34.8096468488891, 1.35)
    pt3dadd(-51.9694318419008, -206.678117864825, 34.724366570374, 1.35)
    pt3dadd(-52.534307205225, -207.498875501406, 34.6390862918588, 1.35)
    pt3dadd(-53.0991825685493, -208.319633137987, 34.5538060133436, 1.35)
    pt3dadd(-53.5235307972276, -209.21247402464, 34.4194802171305, 1.35)
    pt3dadd(-53.9236249802992, -210.117755999194, 34.2766894918768, 1.35)
    pt3dadd(-54.3237191633709, -211.023037973749, 34.1338987666232, 1.35)
    pt3dadd(-54.7238133464425, -211.928319948304, 33.9911080413695, 1.35)
    pt3dadd(-55.2013737970265, -212.766489037563, 34.0549987933891, 1.35)
    pt3dadd(-55.7740183791786, -213.52228200854, 34.3725758195616, 1.35)
    pt3dadd(-56.3466629613307, -214.278074979518, 34.6901528457341, 1.35)
    pt3dadd(-56.9193075434828, -215.033867950496, 35.0077298719066, 1.35)
    pt3dadd(-57.4919521256349, -215.789660921473, 35.3253068980791, 1.35)
    pt3dadd(-58.064596707787, -216.545453892451, 35.6428839242516, 1.35)
  }
  adendIML[11] {pt3dclear()
    pt3dadd(-54.0287942429641, -33.2043993098522, -2.77456198069768, 1.8)
    pt3dadd(-54.4507314410483, -34.0966713677512, -2.91707004721254, 1.8)
    pt3dadd(-54.8942443790086, -34.981470112268, -3.05999469716271, 1.8)
    pt3dadd(-55.3377573169689, -35.8662688567848, -3.20291934711287, 1.8)
    pt3dadd(-55.7812702549292, -36.7510676013016, -3.34584399706303, 1.8)
    pt3dadd(-56.2247831928895, -37.6358663458183, -3.48876864701319, 1.8)
    pt3dadd(-56.6682961308498, -38.5206650903351, -3.63169329696335, 1.8)
    pt3dadd(-56.948620660838, -39.4665678053928, -3.77205964898198, 1.8)
    pt3dadd(-57.1914213217241, -40.4265208897181, -3.91183774085455, 1.8)
    pt3dadd(-57.4342219826102, -41.3864739740435, -4.05161583272712, 1.8)
    pt3dadd(-57.6770226434963, -42.3464270583688, -4.19139392459969, 1.8)
    pt3dadd(-57.9198233043824, -43.3063801426942, -4.33117201647226, 1.8)
    pt3dadd(-58.1626239652686, -44.2663332270195, -4.47095010834483, 1.8)
    pt3dadd(-58.4304368030018, -45.2220474235298, -4.53413786138997, 1.8)
    pt3dadd(-58.7401077305467, -46.1706678053775, -4.46915103367277, 1.8)
    pt3dadd(-59.0497786580916, -47.1192881872251, -4.40416420595557, 1.8)
    pt3dadd(-59.3594495856365, -48.0679085690727, -4.33917737823837, 1.8)
    pt3dadd(-59.6691205131814, -49.0165289509203, -4.27419055052117, 1.8)
    pt3dadd(-59.9787914407262, -49.965149332768, -4.20920372280398, 1.8)
    pt3dadd(-60.2884623682711, -50.9137697146156, -4.14421689508678, 1.8)
    pt3dadd(-60.598133295816, -51.8623900964632, -4.07923006736958, 1.8)
    pt3dadd(-60.9078042233609, -52.8110104783109, -4.01424323965239, 1.8)
    pt3dadd(-61.2174751509057, -53.7596308601585, -3.94925641193519, 1.8)
    pt3dadd(-61.5400624293112, -54.6897285659034, -3.95533654981831, 1.8)
    pt3dadd(-61.9342386407446, -55.517164255624, -4.35530566577168, 1.8)
    pt3dadd(-62.328414852178, -56.3445999453446, -4.75527478172506, 1.8)
    pt3dadd(-62.7225910636115, -57.1720356350653, -5.15524389767843, 1.8)
    pt3dadd(-63.1167672750449, -57.9994713247859, -5.55521301363181, 1.8)
    pt3dadd(-63.5999262674369, -58.8307465606578, -5.44280994982207, 1.8)
    pt3dadd(-64.1037813082108, -59.6629148168651, -5.21123687010969, 1.8)
    pt3dadd(-64.6076363489847, -60.4950830730726, -4.97966379039731, 1.8)
    pt3dadd(-65.1114913897586, -61.32725132928, -4.74809071068493, 1.8)
    pt3dadd(-65.6153464305325, -62.1594195854873, -4.51651763097255, 1.8)
    pt3dadd(-66.1192014713063, -62.9915878416947, -4.28494455126018, 1.8)
    pt3dadd(-66.6027660130215, -63.8410569896227, -4.0865934133175, 1.8)
    pt3dadd(-67.0279171109446, -64.7403329295446, -3.98388349260725, 1.8)
    pt3dadd(-67.4530682088678, -65.6396088694665, -3.881173571897, 1.8)
    pt3dadd(-67.8782193067909, -66.5388848093885, -3.77846365118676, 1.8)
    pt3dadd(-68.303370404714, -67.4381607493104, -3.67575373047651, 1.8)
    pt3dadd(-68.7285215026371, -68.3374366892323, -3.57304380976627, 1.8)
    pt3dadd(-69.1536726005602, -69.2367126291543, -3.47033388905602, 1.8)
    pt3dadd(-69.6293752447295, -70.1022459212454, -3.35729852285095, 1.8)
    pt3dadd(-70.2617895018139, -70.863175790528, -3.21225390395783, 1.8)
    pt3dadd(-70.8942037588983, -71.6241056598107, -3.06720928506471, 1.8)
    pt3dadd(-71.5266180159827, -72.3850355290933, -2.92216466617158, 1.8)
    pt3dadd(-72.1590322730671, -73.1459653983759, -2.77712004727846, 1.8)
    pt3dadd(-72.7914465301516, -73.9068952676586, -2.63207542838533, 1.8)
    pt3dadd(-73.423860787236, -74.6678251369412, -2.48703080949221, 1.8)
    pt3dadd(-74.054050069506, -75.4041914167285, -2.27589575817831, 1.8)
    pt3dadd(-74.677063940467, -76.0613415828237, -1.85162299710218, 1.8)
    pt3dadd(-75.300077811428, -76.718491748919, -1.42735023602606, 1.8)
    pt3dadd(-75.923091682389, -77.3756419150143, -1.00307747494993, 1.8)
    pt3dadd(-76.54610555335, -78.0327920811095, -0.578804713873807, 1.8)
    pt3dadd(-77.169119424311, -78.6899422472048, -0.154531952797682, 1.8)
    pt3dadd(-77.792133295272, -79.3470924133001, 0.269740808278444, 1.8)
    pt3dadd(-78.3323672628046, -80.0436561268595, 0.741489112684368, 1.8)
    pt3dadd(-78.8694966303085, -80.7416980168304, 1.21501795278894, 1.8)
    pt3dadd(-79.4066259978125, -81.4397399068012, 1.68854679289351, 1.8)
    pt3dadd(-79.9437553653164, -82.137781796772, 2.16207563299808, 1.8)
    pt3dadd(-80.4808847328203, -82.8358236867429, 2.63560447310265, 1.8)
    pt3dadd(-81.0180141003242, -83.5338655767137, 3.10913331320721, 1.8)
    pt3dadd(-81.3823971816635, -84.2558096944343, 3.68558394216439, 1.8)
    pt3dadd(-81.6889545164725, -84.98575493446, 4.29648700079041, 1.8)
    pt3dadd(-81.9955118512815, -85.7157001744857, 4.90739005941643, 1.8)
    pt3dadd(-82.3020691860904, -86.4456454145114, 5.51829311804245, 1.8)
    pt3dadd(-82.6086265208994, -87.1755906545371, 6.12919617666847, 1.8)
    pt3dadd(-82.9151838557084, -87.9055358945628, 6.74009923529448, 1.8)
    pt3dadd(-83.5450760181948, -88.650638702728, 6.64832782185389, 1.8)
    pt3dadd(-84.1963800864552, -89.3967452766277, 6.51002384124854, 1.8)
    pt3dadd(-84.8476841547155, -90.1428518505273, 6.3717198606432, 1.8)
    pt3dadd(-85.4989882229758, -90.888958424427, 6.23341588003785, 1.8)
    pt3dadd(-86.1502922912361, -91.6350649983266, 6.09511189943251, 1.8)
    pt3dadd(-86.8404464505913, -92.3510138316568, 6.16534179761885, 1.8)
    pt3dadd(-87.5358242687222, -93.0629077518131, 6.26361049302032, 1.8)
    pt3dadd(-88.2312020868531, -93.7748016719694, 6.36187918842178, 1.8)
    pt3dadd(-88.926579904984, -94.4866955921258, 6.46014788382326, 1.8)
    pt3dadd(-89.621957723115, -95.1985895122821, 6.55841657922473, 1.8)
    pt3dadd(-90.3230711834246, -95.9012719547599, 6.67189780721675, 1.8)
    pt3dadd(-91.0537410383351, -96.5564866402459, 6.86377088778946, 1.8)
    pt3dadd(-91.7844108932457, -97.2117013257318, 7.05564396836217, 1.8)
    pt3dadd(-92.5150807481563, -97.8669160112178, 7.24751704893488, 1.8)
    pt3dadd(-93.2457506030668, -98.5221306967039, 7.43939012950759, 1.8)
    pt3dadd(-93.9764204579774, -99.1773453821898, 7.6312632100803, 1.8)
    pt3dadd(-94.7070903128879, -99.8325600676758, 7.82313629065301, 1.8)
    pt3dadd(-95.4377601677985, -100.487774753162, 8.01500937122572, 1.8)
    pt3dadd(-96.168430022709, -101.142989438648, 8.20688245179843, 1.8)
    pt3dadd(-96.8668958515682, -101.842723667954, 8.33993878805375, 1.8)
    pt3dadd(-97.5414341822288, -102.575535789535, 8.42929445342193, 1.8)
    pt3dadd(-98.2159725128892, -103.308347911116, 8.5186501187901, 1.8)
    pt3dadd(-98.8905108435497, -104.041160032697, 8.60800578415827, 1.8)
    pt3dadd(-99.5650491742102, -104.773972154279, 8.69736144952645, 1.8)
    pt3dadd(-100.239587504871, -105.50678427586, 8.78671711489462, 1.8)
    pt3dadd(-100.851495188247, -106.279165795607, 8.94432883464432, 1.74127975321341)
    pt3dadd(-101.437761593404, -107.067747210955, 9.12988490043693, 1.65851916435318)
    pt3dadd(-102.024027998561, -107.856328626303, 9.31544096622954, 1.57575857549294)
    pt3dadd(-102.610294403718, -108.644910041651, 9.50099703202215, 1.4929979866327)
    pt3dadd(-103.196560808875, -109.433491456999, 9.68655309781476, 1.41023739777246)
    pt3dadd(-103.830332900502, -110.180437229517, 9.7859513016643, 1.35)
    pt3dadd(-104.591157101274, -110.816030096096, 9.65492365773479, 1.35)
    pt3dadd(-105.351981302047, -111.451622962674, 9.52389601380528, 1.35)
    pt3dadd(-106.112805502819, -112.087215829253, 9.39286836987576, 1.35)
    pt3dadd(-106.636631930898, -112.912731216951, 9.53264542560138, 1.35)
    pt3dadd(-107.125257177282, -113.766455718591, 9.71264499197753, 1.35)
    pt3dadd(-107.613882423666, -114.620180220231, 9.89264455835368, 1.35)
    pt3dadd(-108.10250767005, -115.473904721871, 10.0726441247298, 1.35)
    pt3dadd(-108.591132916434, -116.327629223511, 10.252643691106, 1.35)
  }
  adendMML[14] {pt3dclear()
    pt3dadd(-108.591132916434, -116.327629223511, 10.252643691106, 1.35)
    pt3dadd(-109.079758162818, -117.181353725151, 10.4326432574821, 1.35)
    pt3dadd(-109.686485399595, -117.95219697403, 10.5108747073652, 1.35)
  }
}
proc shape3d_15() {
  adendMML[14] {
    pt3dadd(-110.412786270951, -118.639126204201, 10.4860699295531, 1.35)
    pt3dadd(-111.139087142308, -119.326055434373, 10.4612651517409, 1.35)
    pt3dadd(-111.865388013665, -120.012984664545, 10.4364603739288, 1.35)
    pt3dadd(-112.591688885021, -120.699913894716, 10.4116555961167, 1.35)
    pt3dadd(-113.312008017143, -121.382116053254, 10.5133800637592, 1.35)
    pt3dadd(-114.030319547384, -122.062731703665, 10.6575705001241, 1.35)
    pt3dadd(-114.748631077624, -122.743347354076, 10.8017609364889, 1.35)
    pt3dadd(-115.466942607865, -123.423963004487, 10.9459513728537, 1.35)
    pt3dadd(-116.185254138105, -124.104578654898, 11.0901418092186, 1.35)
    pt3dadd(-116.903565668346, -124.78519430531, 11.2343322455834, 1.35)
    pt3dadd(-117.621877198586, -125.465809955721, 11.3785226819482, 1.35)
    pt3dadd(-118.176051604725, -126.294562613971, 11.4551076394377, 1.35)
    pt3dadd(-118.729628787496, -127.123854278149, 11.5314466100914, 1.35)
    pt3dadd(-119.283205970267, -127.953145942327, 11.6077855807452, 1.35)
    pt3dadd(-119.836783153038, -128.782437606505, 11.6841245513989, 1.35)
    pt3dadd(-120.390360335809, -129.611729270683, 11.7604635220526, 1.35)
    pt3dadd(-121.03443773683, -130.288345341207, 11.9701209149868, 1.35)
    pt3dadd(-121.831691622312, -130.706549762002, 12.4054269045062, 1.35)
    pt3dadd(-122.628945507794, -131.124754182798, 12.8407328940255, 1.35)
    pt3dadd(-123.426199393276, -131.542958603593, 13.2760388835449, 1.35)
    pt3dadd(-124.223453278757, -131.961163024388, 13.7113448730642, 1.35)
    pt3dadd(-124.80573920825, -132.667463894854, 14.0278907550447, 1.35)
    pt3dadd(-125.295205615623, -133.498159932311, 14.2931580342305, 1.35)
    pt3dadd(-125.784672022995, -134.328855969768, 14.5584253134163, 1.35)
    pt3dadd(-126.274138430368, -135.159552007226, 14.8236925926021, 1.35)
    pt3dadd(-126.763604837741, -135.990248044683, 15.0889598717879, 1.35)
    pt3dadd(-127.329924547523, -136.760612074182, 15.2567645494379, 1.35)
    pt3dadd(-128.128930025742, -137.348311218858, 15.1294854815469, 1.35)
    pt3dadd(-128.927935503961, -137.936010363534, 15.0022064136558, 1.35)
    pt3dadd(-129.728016357771, -138.524739193353, 14.8986310804696, 1.35)
    pt3dadd(-130.532941674699, -139.118106655238, 14.9018387814561, 1.35)
    pt3dadd(-131.337866991626, -139.711474117123, 14.9050464824426, 1.35)
    pt3dadd(-132.142792308554, -140.304841579008, 14.9082541834291, 1.35)
    pt3dadd(-132.947717625481, -140.898209040893, 14.9114618844156, 1.35)
    pt3dadd(-133.635759213691, -141.574885381796, 15.1386423639398, 1.35)
    pt3dadd(-134.295561905621, -142.271688996354, 15.419934259415, 1.35)
    pt3dadd(-134.955364597551, -142.968492610913, 15.7012261548902, 1.35)
    pt3dadd(-135.645018877205, -143.655188956765, 15.8656280952257, 1.35)
    pt3dadd(-136.387215214489, -144.324095404815, 15.8242909366492, 1.35)
    pt3dadd(-137.129411551773, -144.993001852865, 15.7829537780726, 1.35)
    pt3dadd(-137.871607889057, -145.661908300915, 15.7416166194961, 1.35)
    pt3dadd(-138.613804226341, -146.330814748965, 15.7002794609196, 1.35)
    pt3dadd(-139.349776395453, -147.000815591939, 15.6733913826772, 1.35)
    pt3dadd(-139.867505231646, -147.70919014029, 16.1531437682075, 1.35)
    pt3dadd(-140.38523406784, -148.417564688641, 16.6328961537377, 1.35)
    pt3dadd(-140.902962904034, -149.125939236992, 17.112648539268, 1.35)
    pt3dadd(-141.420691740227, -149.834313785343, 17.5924009247982, 1.35)
    pt3dadd(-141.938420576421, -150.542688333694, 18.0721533103284, 1.35)
    pt3dadd(-142.456149412615, -151.251062882045, 18.5519056958587, 1.35)
    pt3dadd(-142.890003807656, -152.087529693329, 18.786026122583, 1.35)
    pt3dadd(-143.266510732262, -153.011577025696, 18.8522006136641, 1.35)
    pt3dadd(-143.643017656868, -153.935624358063, 18.9183751047453, 1.35)
    pt3dadd(-144.019524581473, -154.859671690429, 18.9845495958264, 1.35)
    pt3dadd(-144.396031506079, -155.783719022796, 19.0507240869075, 1.35)
    pt3dadd(-144.956971464329, -156.504050154044, 19.3699214973719, 1.35)
    pt3dadd(-145.603273608808, -157.130094161374, 19.8062269396112, 1.35)
    pt3dadd(-146.249575753287, -157.756138168705, 20.2425323818505, 1.35)
    pt3dadd(-146.895877897765, -158.382182176036, 20.6788378240899, 1.35)
    pt3dadd(-147.542180042244, -159.008226183366, 21.1151432663292, 1.35)
    pt3dadd(-148.088085867081, -159.746790860952, 21.4186727584504, 1.35)
    pt3dadd(-148.473886660892, -160.664795636211, 21.5104604487886, 1.35)
    pt3dadd(-148.859687454703, -161.582800411469, 21.6022481391267, 1.35)
    pt3dadd(-149.245488248514, -162.500805186728, 21.6940358294648, 1.35)
    pt3dadd(-149.631289042325, -163.418809961986, 21.7858235198029, 1.35)
    pt3dadd(-150.017089836136, -164.336814737244, 21.877611210141, 1.35)
    pt3dadd(-150.469151667091, -165.202436220699, 22.0394413849174, 1.35)
    pt3dadd(-151.032105708015, -165.980390815073, 22.3184922707761, 1.35)
    pt3dadd(-151.595059748939, -166.758345409448, 22.5975431566349, 1.35)
    pt3dadd(-152.158013789863, -167.536300003823, 22.8765940424936, 1.35)
    pt3dadd(-152.720967830788, -168.314254598197, 23.1556449283523, 1.35)
    pt3dadd(-153.283921871712, -169.092209192572, 23.4346958142111, 1.35)
    pt3dadd(-153.846875912636, -169.870163786947, 23.7137467000698, 1.35)
    pt3dadd(-154.41135077628, -170.643615023224, 23.9965512143441, 1.35)
    pt3dadd(-155.106956105104, -171.028771533037, 24.6030062328415, 1.35)
    pt3dadd(-155.802561433927, -171.41392804285, 25.209461251339, 1.35)
    pt3dadd(-156.498166762751, -171.799084552664, 25.8159162698364, 1.35)
    pt3dadd(-157.193772091575, -172.184241062477, 26.4223712883339, 1.35)
    pt3dadd(-157.889377420398, -172.56939757229, 27.0288263068314, 1.35)
    pt3dadd(-158.547141265128, -173.136145960859, 27.3746243810444, 1.35)
    pt3dadd(-159.158109913998, -173.927452866, 27.3980912081579, 1.35)
    pt3dadd(-159.769078562867, -174.718759771141, 27.4215580352714, 1.35)
    pt3dadd(-160.380047211737, -175.510066676282, 27.4450248623849, 1.35)
    pt3dadd(-160.992727304547, -176.293684436351, 27.4970295874817, 1.35)
    pt3dadd(-161.620758932212, -177.008331092097, 27.8050173016558, 1.35)
    pt3dadd(-162.248790559878, -177.722977747844, 28.1130050158299, 1.35)
    pt3dadd(-162.876822187544, -178.43762440359, 28.4209927300039, 1.35)
    pt3dadd(-163.504853815209, -179.152271059337, 28.728980444178, 1.35)
    pt3dadd(-164.132885442875, -179.866917715083, 29.0369681583521, 1.35)
    pt3dadd(-164.76091707054, -180.58156437083, 29.3449558725261, 1.35)
    pt3dadd(-165.172621959769, -181.464492312176, 29.5375679801191, 1.35)
    pt3dadd(-165.550474097937, -182.373754420584, 29.7121250764992, 1.35)
    pt3dadd(-165.928326236104, -183.283016528991, 29.8866821728794, 1.35)
    pt3dadd(-166.306178374272, -184.192278637399, 30.0612392692596, 1.35)
    pt3dadd(-166.684030512439, -185.101540745806, 30.2357963656397, 1.35)
    pt3dadd(-167.061882650607, -186.010802854213, 30.4103534620199, 1.35)
    pt3dadd(-167.467795780782, -186.906396584645, 30.5804927688876, 1.35)
    pt3dadd(-167.992277278456, -187.744236217771, 30.7319652342444, 1.35)
    pt3dadd(-168.516758776131, -188.582075850897, 30.8834376996012, 1.35)
    pt3dadd(-169.041240273805, -189.419915484022, 31.034910164958, 1.35)
    pt3dadd(-169.56572177148, -190.257755117148, 31.1863826303147, 1.35)
    pt3dadd(-170.090203269154, -191.095594750273, 31.3378550956715, 1.35)
    pt3dadd(-170.60711277949, -191.932984739603, 31.4996717114899, 1.35)
    pt3dadd(-170.875611404746, -192.755623461089, 32.0008443585365, 1.35)
    pt3dadd(-171.144110030003, -193.578262182575, 32.502017005583, 1.35)
    pt3dadd(-171.412608655259, -194.40090090406, 33.0031896526295, 1.35)
    pt3dadd(-171.681107280515, -195.223539625546, 33.504362299676, 1.35)
    pt3dadd(-171.949605905771, -196.046178347032, 34.0055349467225, 1.35)
    pt3dadd(-172.218104531028, -196.868817068518, 34.506707593769, 1.35)
    pt3dadd(-172.486603156284, -197.691455790004, 35.0078802408156, 1.35)
    pt3dadd(-172.75510178154, -198.51409451149, 35.5090528878621, 1.35)
    pt3dadd(-173.196377026148, -199.39193837643, 35.6926653431835, 1.35)
    pt3dadd(-173.638883108646, -200.270175515545, 35.8740155415048, 1.35)
    pt3dadd(-174.081389191144, -201.14841265466, 36.0553657398262, 1.35)
    pt3dadd(-174.523895273642, -202.026649793775, 36.2367159381475, 1.35)
    pt3dadd(-174.96640135614, -202.90488693289, 36.4180661364689, 1.35)
    pt3dadd(-175.408907438639, -203.783124072005, 36.5994163347903, 1.35)
    pt3dadd(-176.009010967841, -204.553484418765, 36.5845382379713, 1.35)
    pt3dadd(-176.706219144133, -205.257375808889, 36.4487528565026, 1.35)
    pt3dadd(-177.403427320426, -205.961267199013, 36.3129674750338, 1.35)
    pt3dadd(-178.100635496718, -206.665158589136, 36.1771820935651, 1.35)
    pt3dadd(-178.79784367301, -207.36904997926, 36.0413967120964, 1.35)
    pt3dadd(-179.495051849303, -208.072941369384, 35.9056113306276, 1.35)
    pt3dadd(-180.044208112187, -208.825986118447, 35.9735362000486, 1.35)
    pt3dadd(-180.308346141607, -209.673657159133, 36.4336284823097, 1.35)
    pt3dadd(-180.572484171028, -210.521328199819, 36.8937207645707, 1.35)
    pt3dadd(-180.836622200448, -211.368999240505, 37.3538130468317, 1.35)
    pt3dadd(-181.100760229868, -212.216670281191, 37.8139053290928, 1.35)
    pt3dadd(-181.364898259288, -213.064341321877, 38.2739976113538, 1.35)
    pt3dadd(-181.540951843959, -213.921850784362, 38.7572829172296, 1.35)
    pt3dadd(-181.715767418264, -214.779498524022, 39.2408941967062, 1.35)
    pt3dadd(-181.890582992569, -215.637146263681, 39.7245054761829, 1.35)
    pt3dadd(-182.065398566874, -216.494794003341, 40.2081167556595, 1.35)
    pt3dadd(-182.240214141179, -217.352441743001, 40.6917280351362, 1.35)
    pt3dadd(-182.436801397608, -218.206074548404, 41.1466837293249, 1.35)
    pt3dadd(-183.059763948075, -218.981079126356, 41.0404501900365, 1.35)
    pt3dadd(-183.682726498541, -219.756083704308, 40.934216650748, 1.35)
    pt3dadd(-184.305689049008, -220.53108828226, 40.8279831114596, 1.35)
    pt3dadd(-184.928651599474, -221.306092860212, 40.7217495721711, 1.35)
    pt3dadd(-185.55161414994, -222.081097438164, 40.6155160328827, 1.35)
    pt3dadd(-186.174576700407, -222.856102016116, 40.5092824935943, 1.35)
    pt3dadd(-186.804505026519, -223.559718830519, 40.6801497558368, 1.35)
    pt3dadd(-187.441143083691, -224.194571917971, 41.1179322834823, 1.35)
    pt3dadd(-188.077781140864, -224.829425005423, 41.5557148111277, 1.35)
    pt3dadd(-188.714419198037, -225.464278092875, 41.9934973387731, 1.35)
    pt3dadd(-189.35105725521, -226.099131180328, 42.4312798664186, 1.35)
    pt3dadd(-189.989324813713, -226.715212810822, 42.8899791649846, 1.35)
    pt3dadd(-190.633046909293, -227.268459507626, 43.4186945479049, 1.35)
    pt3dadd(-191.276769004874, -227.82170620443, 43.9474099308251, 1.35)
    pt3dadd(-191.920491100454, -228.374952901235, 44.4761253137454, 1.35)
    pt3dadd(-192.564213196035, -228.928199598039, 45.0048406966657, 1.35)
    pt3dadd(-193.10127474388, -229.624478325108, 45.310737992562, 1.35)
    pt3dadd(-193.463993774507, -230.554550753114, 45.2524269002763, 1.35)
    pt3dadd(-193.826712805134, -231.48462318112, 45.1941158079906, 1.35)
    pt3dadd(-194.189431835762, -232.414695609126, 45.1358047157048, 1.35)
    pt3dadd(-194.552150866389, -233.344768037133, 45.0774936234191, 1.35)
  }
  adendOML[12] {pt3dclear()
    pt3dadd(-194.552150866389, -233.344768037133, 45.0774936234191, 1.35)
    pt3dadd(-194.914869897016, -234.274840465139, 45.0191825311334, 1.35)
    pt3dadd(-195.277588927643, -235.204912893145, 44.9608714388476, 1.35)
    pt3dadd(-195.64030795827, -236.134985321151, 44.9025603465619, 1.35)
    pt3dadd(-196.074200095459, -236.997679894128, 45.0581126683486, 1.35)
    pt3dadd(-196.563776580735, -237.807659444338, 45.3809872466398, 1.35)
    pt3dadd(-197.053353066011, -238.617638994548, 45.7038618249311, 1.35)
    pt3dadd(-197.542929551287, -239.427618544757, 46.0267364032223, 1.35)
    pt3dadd(-198.032506036563, -240.237598094967, 46.3496109815135, 1.35)
    pt3dadd(-198.383757983533, -241.093407354468, 46.7038863179463, 1.35)
    pt3dadd(-198.61858868506, -241.987789320586, 47.0845901927673, 1.35)
    pt3dadd(-198.853419386587, -242.882171286704, 47.4652940675882, 1.35)
    pt3dadd(-199.088250088114, -243.776553252822, 47.8459979424092, 1.35)
    pt3dadd(-199.323080789641, -244.670935218939, 48.2267018172301, 1.35)
    pt3dadd(-199.557911491168, -245.565317185057, 48.6074056920511, 1.35)
    pt3dadd(-199.689528149685, -246.462532142492, 48.911214663582, 1.35)
    pt3dadd(-199.289427880687, -247.374341523273, 48.8188922509855, 1.35)
    pt3dadd(-198.889327611689, -248.286150904054, 48.7265698383889, 1.35)
    pt3dadd(-198.495135115649, -249.182647653105, 48.6711847247036, 1.35)
    pt3dadd(-198.23776977778, -249.724495721749, 49.4712870640149, 1.35)
    pt3dadd(-197.980404439912, -250.266343790392, 50.2713894033261, 1.35)
  }
  GCL[12] {pt3dclear()
    pt3dadd(-26.6754710536473, 66.6718910131885, -6.20619519410964, 2.7)
    pt3dadd(-26.6183592126821, 65.6646161614293, -6.33007368102935, 2.7)
    pt3dadd(-26.6305514437541, 64.6730568978843, -6.45915340979985, 2.7)
    pt3dadd(-26.6427436748262, 63.6814976343392, -6.58823313857035, 2.7)
    pt3dadd(-26.6549359058982, 62.6899383707942, -6.71731286734085, 2.7)
    pt3dadd(-26.6998110788996, 61.7025486241362, -6.84794891314434, 2.7)
    pt3dadd(-26.9243832928602, 60.7380836756332, -6.98714188647986, 2.7)
    pt3dadd(-27.1489555068207, 59.7736187271302, -7.12633485981538, 2.7)
    pt3dadd(-27.3735277207812, 58.8091537786272, -7.2655278331509, 2.7)
    pt3dadd(-27.5980999347417, 57.8446888301242, -7.40472080648641, 2.7)
    pt3dadd(-27.8226721487022, 56.8802238816212, -7.54391377982193, 2.7)
    pt3dadd(-27.9665658847092, 56.0101934826074, -7.92821369918861, 2.7)
    pt3dadd(-28.0306883726722, 55.2335357160764, -8.55486433568754, 2.7)
    pt3dadd(-28.0948108606351, 54.4568779495454, -9.18151497218647, 2.7)
    pt3dadd(-28.158933348598, 53.6802201830144, -9.80816560868541, 2.7)
    pt3dadd(-28.223055836561, 52.9035624164834, -10.4348162451843, 2.7)
    pt3dadd(-28.2475907083028, 51.9261395229836, -10.5966516875714, 2.61157442689217)
    pt3dadd(-28.2693856151276, 50.9348211374849, -10.7263160258015, 2.5170286831044)
    pt3dadd(-28.2911805219524, 49.9435027519861, -10.8559803640316, 2.42248293931663)
    pt3dadd(-28.3129754287772, 48.9521843664874, -10.9856447022617, 2.32793719552885)
    pt3dadd(-28.3197025852678, 47.961059845258, -11.1143177288966, 2.25)
    pt3dadd(-28.2557228873315, 46.9708450505887, -11.2383389313978, 2.25)
    pt3dadd(-28.1917431893953, 45.9806302559193, -11.362360133899, 2.25)
    pt3dadd(-28.127763491459, 44.9904154612499, -11.4863813364002, 2.25)
    pt3dadd(-28.0637837935228, 44.0002006665805, -11.6104025389014, 2.25)
    pt3dadd(-27.9998040955866, 43.0099858719111, -11.7344237414026, 2.25)
    pt3dadd(-27.9275323123362, 42.0354376630625, -11.9224971698447, 2.25)
    pt3dadd(-27.8371234313929, 41.0951566363262, -12.2506706377033, 2.25)
    pt3dadd(-27.7467145504496, 40.1548756095899, -12.5788441055619, 2.25)
    pt3dadd(-27.6563056695062, 39.2145945828537, -12.9070175734205, 2.25)
    pt3dadd(-27.5658967885629, 38.2743135561174, -13.2351910412791, 2.25)
    pt3dadd(-27.4754879076196, 37.3340325293811, -13.5633645091377, 2.25)
    pt3dadd(-27.3850790266762, 36.3937515026448, -13.8915379769963, 2.25)
    pt3dadd(-27.3286669965735, 35.431667463267, -14.150342710304, 2.25)
    pt3dadd(-27.2945852292229, 34.4552624797711, -14.3635837507693, 2.25)
    pt3dadd(-27.2605034618722, 33.4788574962753, -14.5768247912346, 2.25)
    pt3dadd(-27.2264216945216, 32.5024525127794, -14.7900658316999, 2.25)
    pt3dadd(-27.192339927171, 31.5260475292836, -15.0033068721652, 2.25)
    pt3dadd(-27.1582581598204, 30.5496425457877, -15.2165479126305, 2.25)
    pt3dadd(-27.130555462594, 29.5734812443436, -15.4278751529482, 2.25)
    pt3dadd(-27.3444989170131, 28.6065508854803, -15.5667055509876, 2.25)
    pt3dadd(-27.5584423714322, 27.6396205266171, -15.7055359490271, 2.25)
    pt3dadd(-27.7723858258512, 26.6726901677538, -15.8443663470665, 2.25)
    pt3dadd(-27.9863292802703, 25.7057598088906, -15.9831967451059, 2.25)
    pt3dadd(-28.2002727346894, 24.7388294500273, -16.1220271431454, 2.25)
    pt3dadd(-28.4142161891084, 23.771899091164, -16.2608575411848, 2.25)
    pt3dadd(-28.5013716508942, 22.7857789125261, -16.394040563491, 2.25)
    pt3dadd(-28.5713412358575, 21.7970575894735, -16.5264580945097, 2.25)
    pt3dadd(-28.6413108208208, 20.8083362664208, -16.6588756255284, 2.25)
    pt3dadd(-28.7112804057841, 19.8196149433682, -16.7912931565471, 2.25)
    pt3dadd(-28.7812499907475, 18.8308936203155, -16.9237106875658, 2.25)
    pt3dadd(-28.9355093106011, 17.8529472350973, -17.0601391729133, 2.25)
    pt3dadd(-29.1038872744059, 16.8768056664569, -17.197239498505, 2.25)
    pt3dadd(-29.2722652382107, 15.9006640978166, -17.3343398240967, 2.25)
    pt3dadd(-29.4406432020155, 14.9245225291763, -17.4714401496884, 2.25)
    pt3dadd(-29.6090211658203, 13.9483809605359, -17.6085404752801, 2.25)
    pt3dadd(-29.7773991296251, 12.9722393918956, -17.7456408008719, 2.25)
    pt3dadd(-29.9376174545614, 11.9958370111584, -17.8866272502101, 2.25)
    pt3dadd(-29.988910387305, 11.0159529738915, -18.0794906955803, 2.25)
    pt3dadd(-30.0402033200487, 10.0360689366245, -18.2723541409506, 2.25)
    pt3dadd(-30.0914962527924, 9.05618489935767, -18.4652175863208, 2.25)
    pt3dadd(-30.142789185536, 8.07630086209079, -18.658081031691, 2.25)
    pt3dadd(-30.1940821182797, 7.09641682482385, -18.8509444770613, 2.25)
    pt3dadd(-30.2441787584816, 6.12094450661675, -19.0601120138367, 2.25)
    pt3dadd(-30.2851252894376, 5.17921620164227, -19.3939850154594, 2.25)
    pt3dadd(-30.3260718203936, 4.23748789666783, -19.7278580170822, 2.25)
    pt3dadd(-30.3670183513497, 3.29575959169332, -20.0617310187049, 2.25)
    pt3dadd(-30.4079648823057, 2.35403128671885, -20.3956040203277, 2.25)
    pt3dadd(-30.4489114132617, 1.41230298174437, -20.7294770219504, 2.25)
    pt3dadd(-30.4898579442177, 0.470574676769927, -21.0633500235732, 2.25)
  }
  adendIML[12] {pt3dclear()
    pt3dadd(-30.4898579442177, 0.470574676769927, -21.0633500235732, 2.25)
    pt3dadd(-30.5308044751737, -0.47115362820452, -21.3972230251959, 2.25)
    pt3dadd(-30.5717510061298, -1.412881933179, -21.7310960268187, 2.25)
  }
}
proc shape3d_16() {
  adendIML[12] {
    pt3dadd(-30.6126975370858, -2.35461023815347, -22.0649690284414, 2.25)
    pt3dadd(-30.6536440680418, -3.29633854312795, -22.3988420300641, 2.25)
    pt3dadd(-30.6945905989978, -4.23806684810239, -22.7327150316869, 2.25)
    pt3dadd(-30.7507138144014, -5.19058337933822, -23.0174995011721, 2.25)
    pt3dadd(-30.8534189652196, -6.17621231142027, -23.1516160931293, 2.25)
    pt3dadd(-30.9561241160378, -7.16184124350235, -23.2857326850865, 2.25)
    pt3dadd(-31.0588292668559, -8.14747017558438, -23.4198492770438, 2.25)
    pt3dadd(-31.1615344176741, -9.13309910766643, -23.553965869001, 2.25)
    pt3dadd(-31.2642395684923, -10.1187280397485, -23.6880824609582, 2.25)
    pt3dadd(-31.3669447193105, -11.1043569718305, -23.8221990529154, 2.25)
    pt3dadd(-31.3328648846843, -12.0787973313678, -23.9460965451881, 2.25)
    pt3dadd(-31.0535657055861, -13.0331795360126, -24.0516738913015, 2.25)
    pt3dadd(-30.7742665264879, -13.9875617406575, -24.1572512374149, 2.25)
    pt3dadd(-30.4949673473897, -14.9419439453023, -24.2628285835283, 2.25)
    pt3dadd(-30.4536231207225, -15.9405042962312, -24.2742633702255, 2.25)
    pt3dadd(-30.4159384425345, -16.9397440701617, -24.2842503229667, 2.25)
    pt3dadd(-30.3782537643465, -17.9389838440923, -24.2942372757079, 2.25)
    pt3dadd(-30.3405690861584, -18.9382236180229, -24.3042242284491, 2.25)
    pt3dadd(-30.3028844079704, -19.9374633919534, -24.3142111811903, 2.25)
    pt3dadd(-30.2651997297824, -20.936703165884, -24.3241981339315, 2.25)
    pt3dadd(-30.3697228787596, -21.9215080924482, -24.4405183946646, 2.25)
    pt3dadd(-30.4998026102262, -22.9037188905823, -24.5759481236403, 2.25)
    pt3dadd(-30.6298823416929, -23.8859296887163, -24.711377852616, 2.25)
    pt3dadd(-30.7599620731595, -24.8681404868504, -24.8468075815917, 2.25)
    pt3dadd(-30.8900386999169, -25.8503517016664, -24.9822371653907, 2.25)
    pt3dadd(-31.011119642251, -26.8337702241425, -25.1172461097405, 2.25)
    pt3dadd(-31.1322005845851, -27.8171887466186, -25.2522550540902, 2.25)
    pt3dadd(-31.1614241955871, -28.7944468640287, -25.3805765032304, 2.22566496258441)
  }
  adendIML[13] {pt3dclear()
    pt3dadd(-31.1614241955871, -28.7944468640287, -25.3805765032304, 2.17433849004216)
    pt3dadd(-31.3761688613615, -29.7837905137792, -25.522358336039, 2.17433849004216)
    pt3dadd(-31.4984752052901, -30.7670494309406, -25.657425208578, 2.12301201749991)
    pt3dadd(-31.6207815492187, -31.750308348102, -25.792492081117, 2.07168554495767)
    pt3dadd(-31.7430878931473, -32.7335672652633, -25.9275589536559, 2.02035907241542)
    pt3dadd(-31.8653942370759, -33.7168261824247, -26.0626258261949, 1.96903259987317)
    pt3dadd(-31.9877005810045, -34.7000850995861, -26.1976926987339, 1.91770612733092)
    pt3dadd(-32.1100069249332, -35.6833440167474, -26.3327595712729, 1.86637965478868)
    pt3dadd(-32.2323132688618, -36.6666029339088, -26.4678264438119, 1.81505318224643)
    pt3dadd(-32.3586903722307, -37.6495541292112, -26.6013474816205, 1.8)
    pt3dadd(-32.4867568145937, -38.6323776219206, -26.7342270079553, 1.8)
    pt3dadd(-32.6148232569567, -39.61520111463, -26.8671065342901, 1.8)
    pt3dadd(-32.7428896993197, -40.5980246073394, -26.9999860606249, 1.8)
    pt3dadd(-32.8709561416827, -41.5808481000488, -27.1328655869597, 1.8)
    pt3dadd(-32.9990225840456, -42.5636715927583, -27.2657451132944, 1.8)
    pt3dadd(-33.1270890264086, -43.5464950854677, -27.3986246396292, 1.8)
    pt3dadd(-33.2551554687716, -44.5293185781771, -27.531504165964, 1.8)
    pt3dadd(-33.3958342308475, -45.5100775635824, -27.6664879407387, 1.8)
    pt3dadd(-33.544082083735, -46.4895975664992, -27.802734548037, 1.8)
    pt3dadd(-33.6923299366225, -47.4691175694159, -27.9389811553353, 1.8)
    pt3dadd(-33.84057778951, -48.4486375723326, -28.0752277626337, 1.8)
    pt3dadd(-33.9888256423975, -49.4281575752493, -28.211474369932, 1.8)
    pt3dadd(-34.1370734952849, -50.407677578166, -28.3477209772303, 1.8)
    pt3dadd(-34.2853213481724, -51.3871975810827, -28.4839675845286, 1.8)
    pt3dadd(-34.35123555508, -52.3758645477119, -28.6161180290967, 1.8)
    pt3dadd(-34.4084223560144, -53.365501096883, -28.7478342784503, 1.8)
    pt3dadd(-34.4656091569488, -54.3551376460539, -28.8795505278039, 1.8)
    pt3dadd(-34.5227959578832, -55.344774195225, -29.0112667771575, 1.8)
    pt3dadd(-34.5799827588176, -56.334410744396, -29.142983026511, 1.8)
    pt3dadd(-34.6350731692632, -57.3241790358317, -29.2745818898489, 1.8)
    pt3dadd(-34.6875513199972, -58.3141114880057, -29.406034481411, 1.8)
    pt3dadd(-34.7400294707311, -59.3040439401796, -29.537487072973, 1.8)
    pt3dadd(-34.792507621465, -60.2939763923536, -29.6689396645351, 1.8)
    pt3dadd(-34.8449857721989, -61.2839088445275, -29.8003922560971, 1.8)
    pt3dadd(-34.8974639229328, -62.2738412967015, -29.9318448476592, 1.8)
    pt3dadd(-34.8826233733284, -63.258456210584, -30.0582925553187, 1.8)
    pt3dadd(-34.6574754926884, -64.2264588416962, -30.1691047297549, 1.8)
    pt3dadd(-34.4323276120484, -65.1944614728083, -30.2799169041912, 1.8)
    pt3dadd(-34.2071797314084, -66.1624641039205, -30.3907290786274, 1.8)
    pt3dadd(-33.9820318507683, -67.1304667350326, -30.5015412530637, 1.8)
    pt3dadd(-33.7568839701283, -68.0984693661447, -30.6123534274999, 1.8)
    pt3dadd(-33.5317360894883, -69.0664719972569, -30.7231656019362, 1.8)
    pt3dadd(-33.3065882088483, -70.034474628369, -30.8339777763724, 1.8)
    pt3dadd(-33.2198151560642, -71.022787853951, -30.9562912987885, 1.8)
    pt3dadd(-33.1382897833505, -72.0118713316335, -31.0790409944271, 1.8)
    pt3dadd(-33.0567644106368, -73.000954809316, -31.2017906900656, 1.8)
    pt3dadd(-32.9752390379232, -73.9900382869985, -31.3245403857042, 1.8)
    pt3dadd(-32.8937136652095, -74.979121764681, -31.4472900813428, 1.8)
    pt3dadd(-32.8121882924959, -75.9682052423636, -31.5700397769813, 1.8)
    pt3dadd(-32.7306629197822, -76.9572887200461, -31.6927894726199, 1.8)
    pt3dadd(-32.6491375470686, -77.9463721977286, -31.8155391682585, 1.8)
    pt3dadd(-32.6026572450842, -78.9282407290255, -31.9683436771867, 1.8)
    pt3dadd(-32.7234901615072, -79.8756634488205, -32.264636769116, 1.8)
    pt3dadd(-32.8443230779301, -80.8230861686155, -32.5609298610453, 1.8)
    pt3dadd(-32.965155994353, -81.7705088884105, -32.8572229529747, 1.8)
    pt3dadd(-33.0859889107759, -82.7179316082054, -33.153516044904, 1.8)
    pt3dadd(-33.2068218271988, -83.6653543280004, -33.4498091368333, 1.8)
    pt3dadd(-33.3276547436217, -84.6127770477953, -33.7461022287626, 1.8)
    pt3dadd(-33.4484876600446, -85.5601997675903, -34.042395320692, 1.8)
    pt3dadd(-33.5693205764676, -86.5076224873853, -34.3386884126213, 1.8)
    pt3dadd(-33.6223693398128, -87.4861580052175, -34.5167201210596, 1.8)
    pt3dadd(-33.6478210771178, -88.4773605057978, -34.646603961131, 1.8)
    pt3dadd(-33.6732728144227, -89.468563006378, -34.7764878012023, 1.8)
    pt3dadd(-33.6987245517277, -90.4597655069582, -34.9063716412736, 1.8)
    pt3dadd(-33.7241762890327, -91.4509680075384, -35.0362554813449, 1.8)
    pt3dadd(-33.7496280263377, -92.4421705081187, -35.1661393214163, 1.8)
    pt3dadd(-33.7750797636427, -93.4333730086989, -35.2960231614876, 1.8)
    pt3dadd(-33.8005315009476, -94.4245755092792, -35.4259070015589, 1.8)
    pt3dadd(-33.8339418476478, -95.4154524302907, -35.5562590649283, 1.8)
    pt3dadd(-33.8742296099021, -96.4060480024035, -35.6870157424749, 1.8)
    pt3dadd(-33.9145173721563, -97.3966435745163, -35.8177724200216, 1.8)
    pt3dadd(-33.9548051344105, -98.3872391466291, -35.9485290975683, 1.8)
    pt3dadd(-34.0898595289394, -99.2585802833185, -36.3093475080641, 1.8)
    pt3dadd(-34.3398514412372, -99.9852839198508, -36.9491958248052, 1.8)
    pt3dadd(-34.5898433535349, -100.711987556383, -37.5890441415463, 1.8)
    pt3dadd(-34.8398352658326, -101.438691192915, -38.2288924582873, 1.8)
    pt3dadd(-35.0898271781303, -102.165394829448, -38.8687407750284, 1.8)
    pt3dadd(-35.2978478857953, -102.934770952868, -39.4501438698286, 1.8)
    pt3dadd(-35.3453919890806, -103.867305028413, -39.8080820714632, 1.8)
    pt3dadd(-35.392936092366, -104.799839103959, -40.1660202730977, 1.8)
    pt3dadd(-35.4404801956513, -105.732373179504, -40.5239584747323, 1.8)
    pt3dadd(-35.4880242989367, -106.664907255049, -40.8818966763669, 1.8)
    pt3dadd(-35.535568402222, -107.597441330595, -41.2398348780015, 1.8)
    pt3dadd(-35.5831125055074, -108.52997540614, -41.597773079636, 1.8)
    pt3dadd(-35.7245311598453, -109.475781387595, -41.8245193952061, 1.8)
    pt3dadd(-35.9879081425097, -110.438829736019, -41.8808260875235, 1.8)
    pt3dadd(-36.2512851251741, -111.401878084443, -41.9371327798408, 1.8)
    pt3dadd(-36.5146621078386, -112.364926432868, -41.9934394721582, 1.8)
    pt3dadd(-36.778039090503, -113.327974781292, -42.0497461644755, 1.8)
    pt3dadd(-37.0414160731674, -114.291023129716, -42.1060528567929, 1.8)
    pt3dadd(-37.3047930558319, -115.254071478141, -42.1623595491102, 1.8)
    pt3dadd(-37.5681700384963, -116.217119826565, -42.2186662414276, 1.8)
  }
  adendMML[15] {pt3dclear()
    pt3dadd(-37.5681700384963, -116.217119826565, -42.2186662414276, 1.8)
    pt3dadd(-37.7054676447791, -117.165742544849, -42.4663622602676, 1.8)
    pt3dadd(-37.7951609391579, -118.108918518263, -42.7863219391634, 1.8)
    pt3dadd(-37.8848542335368, -119.052094491676, -43.1062816180592, 1.8)
    pt3dadd(-37.9745475279156, -119.99527046509, -43.426241296955, 1.8)
    pt3dadd(-38.0642408222944, -120.938446438503, -43.7462009758508, 1.8)
    pt3dadd(-38.1539341166732, -121.881622411916, -44.0661606547466, 1.8)
    pt3dadd(-38.243627411052, -122.82479838533, -44.3861203336424, 1.8)
    pt3dadd(-38.3333207054309, -123.767974358743, -44.7060800125382, 1.8)
    pt3dadd(-38.4230139998097, -124.711150332157, -45.026039691434, 1.8)
    pt3dadd(-38.6043535577996, -125.532653984849, -45.5547784261163, 1.8)
    pt3dadd(-38.8030957598165, -126.331053366816, -46.1231620676936, 1.8)
    pt3dadd(-39.0018379618335, -127.129452748782, -46.6915457092708, 1.8)
    pt3dadd(-39.2005801638504, -127.927852130749, -47.2599293508481, 1.8)
    pt3dadd(-39.3993223658673, -128.726251512716, -47.8283129924253, 1.8)
    pt3dadd(-39.5980645678842, -129.524650894683, -48.3966966340026, 1.8)
    pt3dadd(-39.7968067699011, -130.323050276649, -48.9650802755799, 1.8)
    pt3dadd(-39.9695789927859, -131.209208524274, -49.3900490156038, 1.8)
    pt3dadd(-40.1385155607662, -132.108328381217, -49.7938359877203, 1.8)
    pt3dadd(-40.3074521287465, -133.007448238159, -50.1976229598369, 1.8)
    pt3dadd(-40.4763886967268, -133.906568095101, -50.6014099319535, 1.8)
    pt3dadd(-40.6453252647071, -134.805687952044, -51.0051969040701, 1.8)
    pt3dadd(-40.8142618326874, -135.704807808986, -51.4089838761866, 1.8)
    pt3dadd(-40.9450023590436, -136.641213972471, -51.7302111662726, 1.8)
    pt3dadd(-41.06442694229, -137.588666561335, -52.0269793599362, 1.8)
    pt3dadd(-41.1838515255363, -138.5361191502, -52.3237475535998, 1.8)
    pt3dadd(-41.3032761087827, -139.483571739064, -52.6205157472635, 1.8)
    pt3dadd(-41.422700692029, -140.431024327929, -52.9172839409271, 1.8)
    pt3dadd(-41.5421252752754, -141.378476916793, -53.2140521345907, 1.8)
    pt3dadd(-41.6615498585217, -142.325929505658, -53.5108203282543, 1.8)
    pt3dadd(-41.7809744417681, -143.273382094522, -53.8075885219179, 1.8)
    pt3dadd(-41.9003990250144, -144.220834683387, -54.1043567155816, 1.8)
    pt3dadd(-42.087407310421, -145.169518847524, -54.3344596177715, 1.8)
    pt3dadd(-42.3649855837828, -146.11985346516, -54.47522330869, 1.8)
    pt3dadd(-42.6425638571445, -147.070188082795, -54.6159869996085, 1.8)
    pt3dadd(-42.9201421305063, -148.020522700431, -54.756750690527, 1.8)
    pt3dadd(-43.1914478838227, -148.972272451265, -54.8972952569128, 1.8)
    pt3dadd(-43.3395879208604, -149.951809422034, -55.0335371459336, 1.8)
    pt3dadd(-43.4877279578982, -150.931346392802, -55.1697790349544, 1.8)
    pt3dadd(-43.635867994936, -151.910883363571, -55.3060209239752, 1.8)
    pt3dadd(-43.7840080319737, -152.890420334339, -55.442262812996, 1.8)
    pt3dadd(-43.9321480690115, -153.869957305108, -55.5785047020168, 1.8)
    pt3dadd(-44.0802881060493, -154.849494275877, -55.7147465910376, 1.8)
    pt3dadd(-44.228428143087, -155.829031246645, -55.8509884800584, 1.8)
    pt3dadd(-44.3765681801248, -156.808568217414, -55.9872303690792, 1.8)
    pt3dadd(-44.5247082171626, -157.788105188182, -56.1234722581, 1.8)
    pt3dadd(-44.6728482542003, -158.767642158951, -56.2597141471208, 1.8)
    pt3dadd(-44.8460184531586, -159.742662194977, -56.3969766621828, 1.8)
    pt3dadd(-45.0387743666678, -160.714147799431, -56.5350378013356, 1.8)
    pt3dadd(-45.2315302801771, -161.685633403886, -56.6730989404884, 1.8)
    pt3dadd(-45.4242861936864, -162.657119008341, -56.8111600796412, 1.8)
    pt3dadd(-45.7681130123044, -163.589287480544, -56.8784823845121, 1.8)
    pt3dadd(-46.1546950683847, -164.51032863922, -56.9257845825639, 1.8)
    pt3dadd(-46.541277124465, -165.431369797897, -56.9730867806158, 1.8)
    pt3dadd(-46.9278591805453, -166.352410956573, -57.0203889786677, 1.8)
    pt3dadd(-47.3144412366256, -167.27345211525, -57.0676911767195, 1.8)
    pt3dadd(-47.7010232927059, -168.194493273926, -57.1149933747714, 1.8)
    pt3dadd(-48.0876053487863, -169.115534432603, -57.1622955728232, 1.8)
    pt3dadd(-48.269668029287, -170.097324742201, -57.2097744135129, 1.8)
    pt3dadd(-48.4486451802091, -171.080031558128, -57.2572559191632, 1.8)
    pt3dadd(-48.6276223311312, -172.062738374055, -57.3047374248134, 1.8)
    pt3dadd(-48.8065994820534, -173.045445189981, -57.3522189304637, 1.8)
    pt3dadd(-48.9855766329755, -174.028152005908, -57.399700436114, 1.8)
    pt3dadd(-49.1645537838977, -175.010858821835, -57.4471819417642, 1.8)
    pt3dadd(-49.3048103088843, -175.996892233343, -57.5347849042216, 1.8)
    pt3dadd(-49.4402028164279, -176.983343525981, -57.627427854051, 1.8)
    pt3dadd(-49.5755953239715, -177.96979481862, -57.7200708038805, 1.8)
    pt3dadd(-49.7109878315151, -178.956246111258, -57.8127137537099, 1.8)
    pt3dadd(-49.8463803390587, -179.942697403897, -57.9053567035393, 1.8)
    pt3dadd(-49.9817728466023, -180.929148696535, -57.9979996533687, 1.8)
    pt3dadd(-50.3159019460181, -181.858325518688, -58.1341376939315, 1.8)
    pt3dadd(-50.6787485950663, -182.779226147548, -58.2765607996407, 1.8)
    pt3dadd(-51.0415952441146, -183.700126776408, -58.41898390535, 1.8)
    pt3dadd(-51.4044418931629, -184.621027405268, -58.5614070110593, 1.8)
    pt3dadd(-51.7672885422111, -185.541928034128, -58.7038301167685, 1.8)
    pt3dadd(-52.1472700192113, -186.464272151365, -58.6705001512425, 1.8)
    pt3dadd(-52.5293309400317, -187.386791447074, -58.615841191992, 1.8)
    pt3dadd(-52.9113918608521, -188.309310742783, -58.5611822327414, 1.8)
    pt3dadd(-53.2934527816725, -189.231830038492, -58.5065232734909, 1.8)
    pt3dadd(-53.6755137024928, -190.154349334201, -58.4518643142404, 1.8)
    pt3dadd(-54.0575746233132, -191.07686862991, -58.3972053549898, 1.8)
    pt3dadd(-54.4892192779287, -191.957553771182, -58.2512073114559, 1.8)
    pt3dadd(-54.9870776966641, -192.782373881282, -57.9832357068612, 1.8)
    pt3dadd(-55.4849361153995, -193.607193991381, -57.7152641022664, 1.8)
    pt3dadd(-55.9827945341349, -194.432014101481, -57.4472924976716, 1.8)
    pt3dadd(-56.4806529528704, -195.256834211581, -57.1793208930769, 1.8)
    pt3dadd(-56.9785113716058, -196.081654321681, -56.9113492884821, 1.8)
    pt3dadd(-57.4763697903412, -196.906474431781, -56.6433776838873, 1.8)
    pt3dadd(-57.9667110052607, -197.738782221458, -56.41168477126, 1.8)
    pt3dadd(-58.3878758860699, -198.639994651325, -56.5138429790858, 1.8)
    pt3dadd(-58.8090407668792, -199.541207081192, -56.6160011869116, 1.8)
    pt3dadd(-59.2302056476884, -200.442419511059, -56.7181593947374, 1.8)
    pt3dadd(-59.6513705284976, -201.343631940926, -56.8203176025632, 1.8)
    pt3dadd(-60.0725354093069, -202.244844370793, -56.922475810389, 1.8)
    pt3dadd(-60.4937002901162, -203.14605680066, -57.0246340182148, 1.8)
    pt3dadd(-60.9148651709254, -204.047269230527, -57.1267922260406, 1.8)
    pt3dadd(-61.3295620231661, -204.922283273248, -56.9976015773711, 1.8)
    pt3dadd(-61.7388118636884, -205.775234500339, -56.6735818677309, 1.8)
    pt3dadd(-62.1480617042107, -206.628185727431, -56.3495621580907, 1.8)
    pt3dadd(-62.5573115447331, -207.481136954522, -56.0255424484504, 1.8)
    pt3dadd(-62.9665613852554, -208.334088181614, -55.7015227388102, 1.8)
    pt3dadd(-63.3758112257778, -209.187039408706, -55.37750302917, 1.8)
    pt3dadd(-63.7850610663001, -210.039990635797, -55.0534833195298, 1.8)
    pt3dadd(-64.154885937472, -210.93723432732, -54.926650641168, 1.8)
    pt3dadd(-64.4855667324764, -211.87845491039, -54.9956000851206, 1.8)
    pt3dadd(-64.8162475274808, -212.81967549346, -55.0645495290731, 1.8)
    pt3dadd(-65.1469283224852, -213.760896076529, -55.1334989730256, 1.8)
    pt3dadd(-65.4776091174896, -214.702116659599, -55.2024484169781, 1.8)
    pt3dadd(-65.808289912494, -215.643337242668, -55.2713978609307, 1.8)
    pt3dadd(-66.1389707074985, -216.584557825738, -55.3403473048832, 1.8)
    pt3dadd(-66.4564128107017, -217.508339624786, -55.3285398740876, 1.8)
    pt3dadd(-66.6874035207191, -218.318242560518, -54.7893733630917, 1.8)
    pt3dadd(-66.9183942307365, -219.128145496249, -54.2502068520958, 1.8)
    pt3dadd(-67.1493849407539, -219.93804843198, -53.7110403411, 1.8)
    pt3dadd(-67.3803756507713, -220.747951367711, -53.1718738301041, 1.8)
    pt3dadd(-67.6113663607887, -221.557854303443, -52.6327073191083, 1.8)
    pt3dadd(-67.8423570708061, -222.367757239174, -52.0935408081124, 1.8)
    pt3dadd(-68.0733477808235, -223.177660174905, -51.5543742971165, 1.8)
    pt3dadd(-68.3877905642606, -224.105161987254, -51.5365929500038, 1.8)
    pt3dadd(-68.7137971146826, -225.048959212661, -51.5910587777959, 1.8)
    pt3dadd(-69.0398036651046, -225.992756438067, -51.645524605588, 1.8)
    pt3dadd(-69.4495988833869, -226.873575372939, -51.625679885428, 1.8)
  }
  adendMML[16] {pt3dclear()
    pt3dadd(-69.4495988833869, -226.873575372939, -51.625679885428, 1.8)
    pt3dadd(-70.3074146676072, -227.426629286727, -51.5054601029846, 1.8)
    pt3dadd(-71.0923317354144, -228.032190116864, -51.374306461521, 1.8)
    pt3dadd(-71.8772488032215, -228.637750947001, -51.2431528200575, 1.8)
    pt3dadd(-72.6621658710287, -229.243311777137, -51.1119991785939, 1.8)
    pt3dadd(-73.4099336951833, -229.820626463813, -50.8510439883383, 1.8)
    pt3dadd(-74.080668111953, -230.339369387987, -50.3209297357665, 1.8)
  }
}
proc shape3d_17() {
  adendMML[16] {
    pt3dadd(-74.7514025287227, -230.858112312161, -49.7908154831948, 1.8)
    pt3dadd(-75.4221369454924, -231.376855236336, -49.260701230623, 1.8)
    pt3dadd(-76.0928713622621, -231.89559816051, -48.7305869780512, 1.8)
    pt3dadd(-76.7636057790318, -232.414341084684, -48.2004727254795, 1.8)
    pt3dadd(-77.4343401958015, -232.933084008859, -47.6703584729077, 1.8)
    pt3dadd(-78.1050746125711, -233.451826933033, -47.1402442203359, 1.8)
    pt3dadd(-78.7758090293409, -233.970569857207, -46.6101299677642, 1.8)
  }
  adendOML[13] {pt3dclear()
    pt3dadd(-78.7758090293409, -233.970569857207, -46.6101299677642, 1.8)
    pt3dadd(-79.4475745172342, -234.625286019977, -46.3998734175288, 1.8)
    pt3dadd(-80.1199875899462, -235.365402891797, -46.3905098875431, 1.8)
    pt3dadd(-80.7924006626581, -236.105519763617, -46.3811463575574, 1.8)
    pt3dadd(-81.4648137353701, -236.845636635436, -46.3717828275717, 1.8)
    pt3dadd(-82.137226808082, -237.585753507256, -46.362419297586, 1.8)
    pt3dadd(-82.809639880794, -238.325870379076, -46.3530557676003, 1.8)
    pt3dadd(-83.4803013999429, -239.067198193415, -46.3362970979584, 1.8)
    pt3dadd(-84.1401575156501, -239.815996360217, -46.2739175182963, 1.8)
    pt3dadd(-84.8000136313574, -240.564794527018, -46.2115379386342, 1.8)
    pt3dadd(-85.4598697470646, -241.313592693819, -46.149158358972, 1.8)
    pt3dadd(-86.1197258627718, -242.062390860621, -46.0867787793099, 1.8)
    pt3dadd(-86.779581978479, -242.811189027422, -46.0243991996478, 1.8)
    pt3dadd(-87.4394380941863, -243.559987194223, -45.9620196199857, 1.8)
    pt3dadd(-88.1076160435456, -244.299367629862, -45.9135087795843, 1.8)
    pt3dadd(-88.8827364560245, -244.91772241062, -46.0432227390179, 1.8)
    pt3dadd(-89.6578568685035, -245.536077191378, -46.1729366984514, 1.8)
    pt3dadd(-90.4329772809824, -246.154431972136, -46.302650657885, 1.8)
    pt3dadd(-91.2080976934613, -246.772786752895, -46.4323646173185, 1.8)
    pt3dadd(-91.9832181059403, -247.391141533653, -46.5620785767521, 1.8)
    pt3dadd(-92.757818250847, -248.010079647477, -46.688536851396, 1.8)
    pt3dadd(-93.4897900773241, -248.676813374567, -46.5482393731455, 1.8)
    pt3dadd(-94.2217619038012, -249.343547101658, -46.407941894895, 1.8)
    pt3dadd(-94.9537337302783, -250.010280828749, -46.2676444166446, 1.8)
    pt3dadd(-95.6857055567554, -250.67701455584, -46.1273469383941, 1.8)
    pt3dadd(-96.4176773832325, -251.343748282931, -45.9870494601436, 1.8)
    pt3dadd(-97.1496492097096, -252.010482010021, -45.8467519818932, 1.8)
    pt3dadd(-97.8816210361866, -252.677215737112, -45.7064545036427, 1.8)
    pt3dadd(-98.6135928626637, -253.343949464203, -45.5661570253923, 1.8)
    pt3dadd(-99.3498556127595, -253.861349993048, -45.1679905645797, 1.8)
    pt3dadd(-100.08764878714, -254.325488526699, -44.6778511421519, 1.8)
    pt3dadd(-100.825441961521, -254.789627060349, -44.1877117197241, 1.8)
    pt3dadd(-101.563235135902, -255.253765594, -43.6975722972964, 1.8)
    pt3dadd(-102.301028310283, -255.71790412765, -43.2074328748686, 1.8)
    pt3dadd(-103.038821484663, -256.182042661301, -42.7172934524408, 1.8)
    pt3dadd(-103.776614659044, -256.646181194952, -42.227154030013, 1.8)
    pt3dadd(-104.60456256117, -257.180814026435, -42.1571007027769, 1.8)
    pt3dadd(-105.443811350234, -257.724283311752, -42.1397051294342, 1.8)
    pt3dadd(-106.283060139298, -258.267752597069, -42.1223095560916, 1.8)
    pt3dadd(-107.122308928362, -258.811221882386, -42.1049139827489, 1.8)
    pt3dadd(-107.961557717425, -259.354691167703, -42.0875184094063, 1.8)
    pt3dadd(-108.758144641268, -259.88121347196, -42.1583109010757, 1.8)
    pt3dadd(-109.195580958664, -260.265066943199, -42.9715181199568, 1.8)
    pt3dadd(-109.633017276061, -260.648920414438, -43.7847253388379, 1.8)
    pt3dadd(-110.070453593457, -261.032773885678, -44.597932557719, 1.8)
    pt3dadd(-110.507889910853, -261.416627356917, -45.4111397766001, 1.8)
  }
  adendMML[17] {pt3dclear()
    pt3dadd(-69.4495988833869, -226.873575372939, -51.625679885428, 1.8)
    pt3dadd(-69.7346015203888, -227.839210652818, -51.4195455834329, 1.8)
    pt3dadd(-70.0925028738038, -228.75233901635, -51.2243451404579, 1.8)
    pt3dadd(-70.4504042272189, -229.665467379882, -51.0291446974829, 1.8)
    pt3dadd(-70.8083055806339, -230.578595743413, -50.8339442545079, 1.8)
    pt3dadd(-71.1662069340489, -231.491724106945, -50.6387438115329, 1.8)
    pt3dadd(-71.524108287464, -232.404852470477, -50.4435433685579, 1.8)
    pt3dadd(-71.8924105516302, -233.315066011141, -50.3027707019527, 1.8)
  }
  adendOML[14] {pt3dclear()
    pt3dadd(-71.8924105516302, -233.315066011141, -50.3027707019527, 1.8)
    pt3dadd(-72.3149215477382, -234.210087723388, -50.4456713414641, 1.8)
    pt3dadd(-72.7374325438461, -235.105109435636, -50.5885719809755, 1.8)
    pt3dadd(-73.1599435399541, -236.000131147884, -50.7314726204869, 1.8)
    pt3dadd(-73.4719654651115, -236.931956853047, -50.8720501598858, 1.8)
    pt3dadd(-73.6652459969426, -237.903335405936, -51.0101310890603, 1.8)
    pt3dadd(-73.8585265287738, -238.874713958826, -51.1482120182348, 1.8)
    pt3dadd(-74.1266464530386, -239.808121350743, -51.0165366092845, 1.8)
    pt3dadd(-74.4318281709577, -240.722724750711, -50.75127308029, 1.8)
    pt3dadd(-74.7370098888768, -241.637328150679, -50.4860095512955, 1.8)
    pt3dadd(-75.0421916067959, -242.551931550647, -50.220746022301, 1.8)
    pt3dadd(-75.3473733247149, -243.466534950615, -49.9554824933065, 1.8)
    pt3dadd(-75.652555042634, -244.381138350584, -49.690218964312, 1.8)
    pt3dadd(-75.8948005616947, -245.270534769928, -49.3295764364627, 1.8)
    pt3dadd(-76.0440765841073, -246.122695379942, -48.8280398337377, 1.8)
    pt3dadd(-76.1933526065198, -246.974855989956, -48.3265032310128, 1.8)
    pt3dadd(-76.3426286289324, -247.82701659997, -47.8249666282879, 1.8)
    pt3dadd(-76.491904651345, -248.679177209985, -47.3234300255629, 1.8)
    pt3dadd(-76.6411806737576, -249.531337819999, -46.8218934228379, 1.8)
    pt3dadd(-76.7904566961701, -250.383498430013, -46.320356820113, 1.8)
    pt3dadd(-76.9503464289808, -251.242722933878, -45.8508529544101, 1.8)
    pt3dadd(-77.2507346899661, -252.195455424297, -45.8053810470123, 1.8)
    pt3dadd(-77.5511229509513, -253.148187914716, -45.7599091396145, 1.8)
    pt3dadd(-77.8515112119366, -254.100920405135, -45.7144372322167, 1.8)
    pt3dadd(-78.1518994729218, -255.053652895554, -45.6689653248188, 1.8)
    pt3dadd(-78.452287733907, -256.006385385973, -45.623493417421, 1.8)
    pt3dadd(-78.8009567279531, -256.940541924019, -45.5958280439168, 1.8)
    pt3dadd(-79.2305373401095, -257.843567817002, -45.5980038799164, 1.8)
    pt3dadd(-79.660117952266, -258.746593709985, -45.600179715916, 1.8)
    pt3dadd(-80.0896985644225, -259.649619602967, -45.6023555519156, 1.8)
    pt3dadd(-80.519279176579, -260.55264549595, -45.6045313879153, 1.8)
    pt3dadd(-80.9488597887354, -261.455671388932, -45.6067072239149, 1.8)
    pt3dadd(-81.3046698394143, -262.18318492064, -45.3063288091241, 1.8)
    pt3dadd(-81.5139059976244, -262.561974931025, -44.4048087826522, 1.8)
    pt3dadd(-81.7231421558346, -262.94076494141, -43.5032887561802, 1.8)
    pt3dadd(-81.9323783140448, -263.319554951795, -42.6017687297083, 1.8)
    pt3dadd(-82.141614472255, -263.69834496218, -41.7002487032363, 1.8)
  }
  adendIML[14] {pt3dclear()
    pt3dadd(-31.1614241955871, -28.7944468640287, -25.3805765032304, 2.14198190125614)
    pt3dadd(-30.801357909615, -29.745953706913, -25.4806025725587, 2.14198190125614)
    pt3dadd(-30.5337299454887, -30.7035452823867, -25.5873436021566, 2.06870570068425)
    pt3dadd(-30.2661019813624, -31.6611368578602, -25.6940846317545, 1.99542950011236)
    pt3dadd(-29.9984740172361, -32.6187284333338, -25.8008256613524, 1.92215329954047)
    pt3dadd(-29.7308460531098, -33.5763200088074, -25.9075666909503, 1.84887709896858)
    pt3dadd(-29.4921958435637, -34.5392402662475, -25.9322726965851, 1.8)
    pt3dadd(-29.3115948442519, -35.5128351181905, -25.7926433897841, 1.8)
    pt3dadd(-29.1309938449401, -36.4864299701335, -25.6530140829831, 1.8)
    pt3dadd(-28.9503928456283, -37.4600248220764, -25.5133847761821, 1.8)
    pt3dadd(-28.7697918463165, -38.4336196740194, -25.373755469381, 1.8)
    pt3dadd(-28.5891908470047, -39.4072145259623, -25.23412616258, 1.8)
    pt3dadd(-28.4085898476928, -40.3808093779053, -25.094496855779, 1.8)
    pt3dadd(-28.1064632091081, -41.3038088576405, -24.8718727782621, 1.8)
    pt3dadd(-27.7680544018515, -42.2117028021204, -24.6244701413563, 1.8)
    pt3dadd(-27.429645594595, -43.1195967466003, -24.3770675044506, 1.8)
    pt3dadd(-27.0912367873385, -44.0274906910802, -24.1296648675448, 1.8)
    pt3dadd(-26.752827980082, -44.9353846355602, -23.8822622306391, 1.8)
    pt3dadd(-26.4144191728254, -45.8432785800401, -23.6348595937334, 1.8)
    pt3dadd(-26.0760103655689, -46.75117252452, -23.3874569568276, 1.8)
    pt3dadd(-25.7376015583124, -47.6590664689999, -23.1400543199219, 1.8)
    pt3dadd(-25.5071122648291, -48.6121224875212, -22.9652739804516, 1.8)
    pt3dadd(-25.32221922698, -49.5842595915753, -22.8211767373263, 1.8)
    pt3dadd(-25.1373261891308, -50.5563966956293, -22.677079494201, 1.8)
    pt3dadd(-24.9524331512817, -51.5285337996834, -22.5329822510756, 1.8)
    pt3dadd(-24.7675401134326, -52.5006709037374, -22.3888850079503, 1.8)
    pt3dadd(-24.5826470755835, -53.4728080077915, -22.244787764825, 1.8)
    pt3dadd(-24.3977540377344, -54.4449451118456, -22.1006905216997, 1.8)
    pt3dadd(-24.1848762701112, -55.3824225112243, -21.829461219036, 1.8)
    pt3dadd(-23.9685228151127, -56.3155951951763, -21.5424421875484, 1.8)
    pt3dadd(-23.7521693601142, -57.2487678791283, -21.2554231560607, 1.8)
    pt3dadd(-23.5358159051157, -58.1819405630802, -20.9684041245731, 1.8)
    pt3dadd(-23.3194624501171, -59.1151132470322, -20.6813850930855, 1.8)
    pt3dadd(-23.1031089951186, -60.0482859309842, -20.3943660615979, 1.8)
    pt3dadd(-22.8867555401201, -60.9814586149361, -20.1073470301103, 1.8)
    pt3dadd(-22.6704020851216, -61.9146312988881, -19.8203279986226, 1.8)
    pt3dadd(-22.659318302481, -62.8006144568946, -19.3620597880813, 1.8)
    pt3dadd(-22.6618875643628, -63.6834589111106, -18.8924013286094, 1.8)
    pt3dadd(-22.6644568262446, -64.5663033653265, -18.4227428691375, 1.8)
    pt3dadd(-22.6670260881264, -65.4491478195425, -17.9530844096655, 1.8)
    pt3dadd(-22.6695953500082, -66.3319922737584, -17.4834259501936, 1.8)
    pt3dadd(-22.67216461189, -67.2148367279744, -17.0137674907217, 1.8)
    pt3dadd(-22.6700504679633, -68.0981609730727, -16.5467016730777, 1.8)
    pt3dadd(-22.411226959389, -69.0077837747334, -16.2217451373563, 1.8)
    pt3dadd(-22.1524034508147, -69.9174065763942, -15.8967886016349, 1.8)
    pt3dadd(-21.8935799422404, -70.827029378055, -15.5718320659134, 1.8)
    pt3dadd(-21.6347564336661, -71.7366521797158, -15.246875530192, 1.8)
    pt3dadd(-21.3759329250918, -72.6462749813766, -14.9219189944706, 1.8)
    pt3dadd(-21.0398716761586, -73.5784665278165, -14.9865940150452, 1.8)
    pt3dadd(-20.6970283517105, -74.5126397859257, -15.0854817226494, 1.8)
    pt3dadd(-20.3541850272624, -75.4468130440348, -15.1843694302536, 1.8)
    pt3dadd(-20.0113417028144, -76.3809863021439, -15.2832571378578, 1.8)
    pt3dadd(-19.6684983783663, -77.315159560253, -15.382144845462, 1.8)
    pt3dadd(-19.3256550539182, -78.2493328183621, -15.4810325530662, 1.8)
    pt3dadd(-18.9828117294702, -79.1835060764712, -15.5799202606704, 1.8)
    pt3dadd(-18.6496340161289, -80.1156903688688, -15.6187104735704, 1.8)
    pt3dadd(-18.3647190310436, -81.0379432755956, -15.3574193958277, 1.8)
    pt3dadd(-18.0798040459584, -81.9601961823223, -15.0961283180851, 1.8)
    pt3dadd(-17.7948890608731, -82.882449089049, -14.8348372403424, 1.8)
    pt3dadd(-17.5099740757879, -83.8047019957758, -14.5735461625997, 1.8)
    pt3dadd(-17.2250590907026, -84.7269549025025, -14.312255084857, 1.8)
    pt3dadd(-16.9401441056173, -85.6492078092293, -14.0509640071143, 1.8)
    pt3dadd(-16.6306156982058, -86.5685267315494, -13.8586997483832, 1.8)
    pt3dadd(-16.2200583073975, -87.4758027344421, -13.9497650185338, 1.8)
    pt3dadd(-15.8095009165891, -88.3830787373348, -14.0408302886844, 1.8)
    pt3dadd(-15.3989435257807, -89.2903547402275, -14.1318955588349, 1.8)
    pt3dadd(-15.0000598780325, -90.202911516861, -14.2085076758898, 1.8)
    pt3dadd(-14.6719762594197, -91.1474956332069, -14.1974629330154, 1.8)
    pt3dadd(-14.343892640807, -92.0920797495526, -14.1864181901409, 1.8)
    pt3dadd(-14.0158090221942, -93.0366638658984, -14.1753734472665, 1.8)
    pt3dadd(-13.6877254035815, -93.9812479822443, -14.1643287043921, 1.8)
    pt3dadd(-13.3596417849687, -94.9258320985901, -14.1532839615177, 1.8)
    pt3dadd(-13.0315581663559, -95.8704162149359, -14.1422392186432, 1.8)
    pt3dadd(-12.7034745477432, -96.8150003312817, -14.1311944757688, 1.8)
    pt3dadd(-12.3753909291304, -97.7595844476275, -14.1201497328944, 1.8)
    pt3dadd(-12.0473073105177, -98.7041685639733, -14.10910499002, 1.8)
    pt3dadd(-11.7192236919049, -99.6487526803191, -14.0980602471456, 1.8)
    pt3dadd(-11.3376561267562, -100.571909288621, -14.0938085847839, 1.8)
    pt3dadd(-10.9216066478196, -101.481251256589, -14.0939365247473, 1.8)
    pt3dadd(-10.5055571688829, -102.390593224557, -14.0940644647107, 1.8)
    pt3dadd(-10.0895076899462, -103.299935192525, -14.094192404674, 1.8)
    pt3dadd(-9.67345821100953, -104.209277160493, -14.0943203446374, 1.8)
    pt3dadd(-9.25740873207285, -105.118619128461, -14.0944482846007, 1.8)
    pt3dadd(-8.84135925313618, -106.027961096429, -14.0945762245641, 1.8)
    pt3dadd(-8.42530977419949, -106.937303064397, -14.0947041645275, 1.8)
    pt3dadd(-8.00926029526282, -107.846645032365, -14.0948321044908, 1.8)
    pt3dadd(-7.71867662642334, -108.671195083726, -13.6273927769181, 1.8)
    pt3dadd(-7.43701595537191, -109.489714822258, -13.126700552076, 1.8)
    pt3dadd(-7.15535528432048, -110.308234560789, -12.6260083272338, 1.8)
    pt3dadd(-6.87369461326906, -111.126754299321, -12.1253161023917, 1.8)
    pt3dadd(-6.59203394221763, -111.945274037852, -11.6246238775495, 1.8)
    pt3dadd(-6.3103732711662, -112.763793776383, -11.1239316527073, 1.8)
    pt3dadd(-6.02871260011478, -113.582313514915, -10.6232394278652, 1.8)
    pt3dadd(-5.74705192906336, -114.400833253446, -10.122547203023, 1.8)
    pt3dadd(-5.53637030098304, -115.285811835169, -9.73724040546807, 1.8)
    pt3dadd(-5.40039686696649, -116.240740925472, -9.47338124277923, 1.8)
  }
  adendMML[18] {pt3dclear()
    pt3dadd(-5.40039686696649, -116.240740925472, -9.47338124277923, 1.8)
    pt3dadd(-5.26442343294993, -117.195670015775, -9.20952208009039, 1.8)
    pt3dadd(-5.12844999893338, -118.150599106078, -8.94566291740155, 1.8)
    pt3dadd(-4.99247656491683, -119.105528196381, -8.68180375471271, 1.8)
    pt3dadd(-4.85650313090028, -120.060457286684, -8.41794459202386, 1.8)
    pt3dadd(-4.72052969688372, -121.015386376987, -8.15408542933502, 1.8)
    pt3dadd(-4.30046523833764, -121.882205330418, -8.02624768369119, 1.8)
    pt3dadd(-3.73213609069081, -122.70304035292, -7.96939835854609, 1.8)
    pt3dadd(-3.16380694304399, -123.523875375422, -7.91254903340099, 1.8)
    pt3dadd(-2.59547779539717, -124.344710397924, -7.85569970825589, 1.8)
    pt3dadd(-2.02714864775035, -125.165545420426, -7.79885038311078, 1.8)
    pt3dadd(-1.45881950010352, -125.986380442928, -7.74200105796568, 1.8)
    pt3dadd(-0.992239541714456, -126.850371984714, -7.71680028321896, 1.8)
    pt3dadd(-0.796538938552304, -127.829255941887, -7.77585510783686, 1.8)
    pt3dadd(-0.60083833539015, -128.80813989906, -7.83490993245476, 1.8)
    pt3dadd(-0.405137732227998, -129.787023856234, -7.89396475707266, 1.8)
    pt3dadd(-0.209437129065845, -130.765907813407, -7.95301958169056, 1.8)
    pt3dadd(-0.013736525903691, -131.74479177058, -8.01207440630846, 1.8)
    pt3dadd(0.181964077258463, -132.723675727754, -8.07112923092636, 1.8)
    pt3dadd(0.377664680420613, -133.702559684927, -8.13018405554426, 1.8)
    pt3dadd(0.573365283582765, -134.6814436421, -8.18923888016216, 1.8)
    pt3dadd(0.769065886744917, -135.660327599274, -8.24829370478006, 1.8)
    pt3dadd(0.891385654682177, -136.476685924923, -7.7918012848688, 1.8)
    pt3dadd(0.986528878090738, -137.232852988799, -7.14437627874951, 1.8)
    pt3dadd(1.0816721014993, -137.989020052675, -6.49695127263021, 1.8)
    pt3dadd(1.17681532490785, -138.745187116551, -5.84952626651091, 1.8)
    pt3dadd(1.27195854831642, -139.501354180427, -5.20210126039162, 1.8)
    pt3dadd(1.36710177172498, -140.257521244303, -4.55467625427232, 1.8)
    pt3dadd(1.46224499513353, -141.013688308179, -3.90725124815302, 1.8)
    pt3dadd(1.55738821854209, -141.769855372055, -3.25982624203373, 1.8)
    pt3dadd(1.65253144195066, -142.526022435931, -2.61240123591443, 1.8)
    pt3dadd(1.68802226525531, -143.377454000804, -2.28226095336992, 1.8)
    pt3dadd(1.6367421481851, -144.367458201841, -2.41364600397574, 1.8)
    pt3dadd(1.58546203111488, -145.357462402878, -2.54503105458155, 1.8)
    pt3dadd(1.53418191404466, -146.347466603915, -2.67641610518736, 1.8)
    pt3dadd(1.48290179697444, -147.337470804952, -2.80780115579318, 1.8)
    pt3dadd(1.43162167990423, -148.327475005988, -2.93918620639899, 1.8)
    pt3dadd(1.37438261639333, -149.303432058367, -2.80750256172903, 1.8)
    pt3dadd(1.3148358577262, -150.273949132851, -2.5739414526634, 1.8)
    pt3dadd(1.25528909905908, -151.244466207335, -2.34038034359777, 1.8)
    pt3dadd(1.19574234039195, -152.214983281818, -2.10681923453213, 1.8)
    pt3dadd(1.13619558172482, -153.185500356302, -1.8732581254665, 1.8)
    pt3dadd(1.07664882305769, -154.156017430785, -1.63969701640087, 1.8)
    pt3dadd(1.02094673430401, -155.129612712247, -1.46116925108619, 1.8)
    pt3dadd(0.986826377000712, -156.120487249883, -1.59156653587741, 1.8)
    pt3dadd(0.952706019697418, -157.11136178752, -1.72196382066863, 1.8)
    pt3dadd(0.918585662394125, -158.102236325157, -1.85236110545985, 1.8)
    pt3dadd(0.884465305090835, -159.093110862793, -1.98275839025107, 1.8)
    pt3dadd(0.850344947787542, -160.08398540043, -2.11315567504229, 1.8)
    pt3dadd(0.821311166182773, -161.073850860706, -2.19326664759208, 1.8)
    pt3dadd(0.817964270369923, -162.05862054409, -2.0194349215565, 1.8)
    pt3dadd(0.814617374557071, -163.043390227474, -1.84560319552093, 1.8)
    pt3dadd(0.811270478744215, -164.028159910858, -1.67177146948536, 1.8)
    pt3dadd(0.807923582931363, -165.012929594242, -1.49793974344978, 1.8)
    pt3dadd(0.804576687118511, -165.997699277626, -1.32410801741421, 1.8)
  }
}
proc shape3d_18() {
  adendMML[18] {
    pt3dadd(0.801229791305659, -166.982468961009, -1.15027629137863, 1.8)
    pt3dadd(0.79788289549281, -167.967238644393, -0.97644456534306, 1.8)
    pt3dadd(0.795458215388494, -168.960988196846, -0.900759134565512, 1.8)
    pt3dadd(0.793672225788988, -169.960956855148, -0.89304598650145, 1.8)
    pt3dadd(0.791886236189481, -170.960925513451, -0.885332838437388, 1.8)
    pt3dadd(0.790100246589978, -171.960894171754, -0.877619690373325, 1.8)
    pt3dadd(0.788314256990471, -172.960862830057, -0.869906542309263, 1.8)
    pt3dadd(0.786528267390964, -173.96083148836, -0.862193394245201, 1.8)
    pt3dadd(0.784742277791461, -174.960800146663, -0.854480246181138, 1.8)
    pt3dadd(0.782956288191956, -175.960768804966, -0.846767098117076, 1.8)
    pt3dadd(0.786058305967358, -176.939375308339, -0.71048852189889, 1.8)
    pt3dadd(0.795984801304222, -177.888156662977, -0.394711059463453, 1.8)
    pt3dadd(0.805911296641085, -178.836938017615, -0.0789335970280149, 1.8)
    pt3dadd(0.815837791977945, -179.785719372253, 0.236843865407423, 1.8)
    pt3dadd(0.825764287314811, -180.73450072689, 0.55262132784286, 1.8)
    pt3dadd(0.835690782651675, -181.683282081528, 0.868398790278298, 1.8)
    pt3dadd(0.766608864545502, -182.642699350314, 0.994529343218943, 1.8)
    pt3dadd(0.587685598688835, -183.616903185414, 0.857003517960788, 1.8)
    pt3dadd(0.408762332832164, -184.591107020513, 0.719477692702633, 1.8)
    pt3dadd(0.229839066975494, -185.565310855612, 0.581951867444478, 1.8)
    pt3dadd(0.162593301111367, -186.521792159697, 0.660632614603749, 1.8)
    pt3dadd(0.234975962468874, -187.45611529287, 1.00963266210232, 1.8)
    pt3dadd(0.307358623826383, -188.390438426042, 1.35863270960089, 1.8)
    pt3dadd(0.379741285183887, -189.324761559214, 1.70763275709945, 1.8)
    pt3dadd(0.452123946541394, -190.259084692386, 2.05663280459802, 1.8)
    pt3dadd(0.513006946189792, -191.197773951353, 2.36694715464062, 1.8)
    pt3dadd(0.442271738547981, -192.186435258577, 2.23448829311183, 1.8)
    pt3dadd(0.371536530906173, -193.175096565802, 2.10202943158303, 1.8)
    pt3dadd(0.300801323264362, -194.163757873026, 1.96957057005423, 1.8)
    pt3dadd(0.230066115622551, -195.15241918025, 1.83711170852544, 1.8)
    pt3dadd(0.159330907980735, -196.141080487474, 1.70465284699664, 1.8)
    pt3dadd(0.0885957003389271, -197.129741794698, 1.57219398546785, 1.8)
    pt3dadd(0.0999924324823125, -198.113935054949, 1.5785762197047, 1.8)
    pt3dadd(0.209764717052129, -199.092776601963, 1.7512587937504, 1.8)
    pt3dadd(0.319537001621948, -200.071618148978, 1.9239413677961, 1.8)
    pt3dadd(0.429309286191764, -201.050459695992, 2.09662394184179, 1.8)
    pt3dadd(0.539081570761575, -202.029301243006, 2.26930651588749, 1.8)
    pt3dadd(0.648853855331393, -203.008142790021, 2.44198908993319, 1.8)
    pt3dadd(0.758626139901211, -203.986984337035, 2.61467166397889, 1.8)
    pt3dadd(0.868398424471028, -204.965825884049, 2.78735423802458, 1.8)
    pt3dadd(1.06275736579842, -205.940023878619, 2.67710581027983, 1.8)
    pt3dadd(1.25809395054675, -206.914168203512, 2.56358729664821, 1.8)
    pt3dadd(1.45343053529508, -207.888312528405, 2.4500687830166, 1.8)
    pt3dadd(1.64876712004341, -208.862456853298, 2.33655026938498, 1.8)
    pt3dadd(1.84410370479174, -209.836601178192, 2.22303175575337, 1.8)
    pt3dadd(2.03944028954007, -210.810745503085, 2.10951324212175, 1.8)
    pt3dadd(2.2347768742884, -211.784889827978, 1.99599472849013, 1.8)
    pt3dadd(2.47764841657208, -212.735514206267, 1.81990698909352, 1.8)
    pt3dadd(2.76517318147903, -213.664044499145, 1.58504318861868, 1.8)
    pt3dadd(3.05269794638596, -214.592574792023, 1.35017938814384, 1.8)
    pt3dadd(3.34022271129291, -215.521105084901, 1.115315587669, 1.8)
    pt3dadd(3.62774747619984, -216.449635377778, 0.880451787194153, 1.8)
    pt3dadd(3.91527224110679, -217.378165670656, 0.645587986719311, 1.8)
    pt3dadd(4.20279700601372, -218.306695963534, 0.410724186244469, 1.8)
    pt3dadd(4.49032177092067, -219.235226256412, 0.175860385769627, 1.8)
    pt3dadd(4.77784653582761, -220.16375654929, -0.0590034147052145, 1.8)
    pt3dadd(5.03416698331767, -221.105373272298, -0.263125867472299, 1.8)
    pt3dadd(5.20102786151908, -222.084507444811, -0.379116037499512, 1.8)
    pt3dadd(5.3678887397205, -223.063641617324, -0.495106207526725, 1.8)
    pt3dadd(5.53474961792191, -224.042775789837, -0.611096377553939, 1.8)
    pt3dadd(5.70161049612332, -225.02190996235, -0.727086547581152, 1.8)
    pt3dadd(5.86847137432474, -226.001044134864, -0.843076717608365, 1.8)
    pt3dadd(6.03533225252615, -226.980178307377, -0.959066887635579, 1.8)
    pt3dadd(6.19328503746134, -227.9606550015, -1.07580200280095, 1.8)
    pt3dadd(6.34150429597994, -228.942598616677, -1.1933510904927, 1.8)
    pt3dadd(6.48972355449853, -229.924542231854, -1.31090017818445, 1.8)
    pt3dadd(6.63794281301712, -230.906485847031, -1.4284492658762, 1.8)
    pt3dadd(6.78616207153571, -231.888429462208, -1.54599835356794, 1.8)
    pt3dadd(6.9343813300543, -232.870373077386, -1.66354744125969, 1.8)
    pt3dadd(7.0826005885729, -233.852316692563, -1.78109652895144, 1.8)
  }
  adendOML[15] {pt3dclear()
    pt3dadd(7.0826005885729, -233.852316692563, -1.78109652895144, 1.8)
    pt3dadd(7.23081984709148, -234.83426030774, -1.89864561664319, 1.8)
    pt3dadd(7.37903910561008, -235.816203922917, -2.01619470433494, 1.8)
    pt3dadd(7.51363470775091, -236.799599777161, -2.13480532149909, 1.8)
    pt3dadd(7.59425657749621, -237.788749062101, -2.25762146954897, 1.8)
    pt3dadd(7.67487844724149, -238.777898347041, -2.38043761759885, 1.8)
    pt3dadd(7.75550031698678, -239.767047631981, -2.50325376564873, 1.8)
    pt3dadd(7.83612218673207, -240.75619691692, -2.62606991369861, 1.8)
    pt3dadd(7.91674405647736, -241.74534620186, -2.74888606174849, 1.8)
    pt3dadd(7.99736592622264, -242.7344954868, -2.87170220979837, 1.8)
    pt3dadd(8.07798779596793, -243.72364477174, -2.99451835784825, 1.8)
    pt3dadd(8.22330980124207, -244.699592510405, -3.12363082884568, 1.8)
    pt3dadd(8.511816516365, -245.646324551801, -3.26667738463274, 1.8)
    pt3dadd(8.80032323148793, -246.593056593198, -3.40972394041981, 1.8)
    pt3dadd(9.08882994661086, -247.539788634594, -3.55277049620687, 1.8)
    pt3dadd(9.37733666173379, -248.48652067599, -3.69581705199394, 1.8)
    pt3dadd(9.66479083893662, -249.436835081893, -3.81386087256418, 1.8)
    pt3dadd(9.95168787749073, -250.38904573655, -3.91867002496092, 1.8)
    pt3dadd(10.2385849160449, -251.341256391208, -4.02347917735766, 1.8)
    pt3dadd(10.525481954599, -252.293467045865, -4.1282883297544, 1.8)
    pt3dadd(10.8123789931531, -253.245677700522, -4.23309748215114, 1.8)
    pt3dadd(11.0992760317072, -254.197888355179, -4.33790663454788, 1.8)
  }
  soma[2] {pt3dclear()
    pt3dadd(-5.39861210110135, 168.883093029006, 0, 10.4043260233424)
    pt3dadd(-5.48812855896818, 169.808320015587, 0.368702898108815, 10.4043260233424)
    pt3dadd(-5.577645016835, 170.733547002167, 0.737405796217631, 10.1118742080783)
    pt3dadd(-5.66716147470183, 171.658773988748, 1.10610869432645, 9.60468635614927)
    pt3dadd(-5.75667793256865, 172.584000975329, 1.47481159243526, 8.84590300647707)
    pt3dadd(-5.84619439043547, 173.509227961909, 1.84351449054408, 7.76208734813001)
    pt3dadd(-5.9357108483023, 174.43445494849, 2.21221738865289, 6.18465843842649)
    pt3dadd(-6.02522730616912, 175.359681935071, 2.58092028676171, 3.5)
  }
  axonh[0] {pt3dclear()
    pt3dadd(-6.02522730616912, 175.359681935071, 2.58092028676171, 2.47906000584629)
    pt3dadd(-6.11474376403594, 176.284908921651, 2.94962318487052, 2.47906000584629)
    pt3dadd(-6.20426022190277, 177.210135908232, 3.31832608297934, 2.11125382662694)
    pt3dadd(-6.29377667976959, 178.135362894813, 3.68702898108815, 1.81011959652796)
    pt3dadd(-6.38329313763642, 179.060589881393, 4.05573187919697, 1.56357174154146)
    pt3dadd(-6.47280959550324, 179.985816867974, 4.42443477730578, 1.3617154305586)
    pt3dadd(-6.56232605337006, 180.911043854554, 4.7931376754146, 1.19644946105406)
    pt3dadd(-6.65184251123689, 181.836270841135, 5.16184057352342, 1.06114112938344)
    pt3dadd(-6.74135896910371, 182.761497827716, 5.53054347163223, 0.950360037097033)
    pt3dadd(-6.83087542697054, 183.686724814297, 5.89924636974105, 0.85966014998258)
    pt3dadd(-6.92039188483736, 184.611951800877, 6.26794926784986, 0.785401363101277)
    pt3dadd(-7.00990834270418, 185.537178787458, 6.63665216595868, 0.72460341059529)
    pt3dadd(-7.09942480057101, 186.462405774039, 7.00535506406749, 0.674826257154464)
    pt3dadd(-7.18894125843783, 187.387632760619, 7.37405796217631, 0.634072170831778)
    pt3dadd(-7.27845771630465, 188.3128597472, 7.74276086028512, 0.600705547045801)
    pt3dadd(-7.36797417417148, 189.23808673378, 8.11146375839394, 0.573387266025838)
    pt3dadd(-7.4574906320383, 190.163313720361, 8.48016665650275, 0.551020949233567)
    pt3dadd(-7.54700708990513, 191.088540706942, 8.84886955461157, 0.532708957842651)
    pt3dadd(-7.63652354777195, 192.013767693522, 9.21757245272038, 0.517716367340809)
    pt3dadd(-7.72604000563877, 192.938994680103, 9.5862753508292, 0.505441472428646)
    pt3dadd(-7.8155564635056, 193.864221666684, 9.95497824893801, 0.495391638473257)
    pt3dadd(-7.90507292137242, 194.789448653264, 10.3236811470468, 0.487163530350653)
    pt3dadd(-7.99458937923924, 195.714675639845, 10.6923840451556, 0.480426925191027)
    pt3dadd(-8.08410583710607, 196.639902626426, 11.0610869432645, 0.474911459375497)
    pt3dadd(-8.17362229497289, 197.565129613006, 11.4297898413733, 0.470395777894772)
  }
  axon[0] {pt3dclear()
    pt3dadd(-8.17362229497289, 197.565129613006, 11.4297898413733, 0.466698650595398)
    pt3dadd(-8.26313875283972, 198.490356599587, 11.7984927394821, 0.466698650595398)
    pt3dadd(-8.35265521070654, 199.415583586168, 12.1671956375909, 0.463671698777356)
    pt3dadd(-8.44217166857336, 200.340810572748, 12.5358985356997, 0.46119344023584)
    pt3dadd(-8.53168812644019, 201.266037559329, 12.9046014338085, 0.459164413753823)
    pt3dadd(-8.62120458430701, 202.19126454591, 13.2733043319174, 0.457503187374186)
    pt3dadd(-8.71072104217384, 203.11649153249, 13.6420072300262, 0.456143090249352)
    pt3dadd(-8.80023750004066, 204.041718519071, 14.010710128135, 0.455029536906078)
    pt3dadd(-8.88975395790748, 204.966945505652, 14.3794130262438, 0.454117836538747)
    pt3dadd(-8.97927041577431, 205.892172492232, 14.7481159243526, 0.45337139941042)
    pt3dadd(-9.06878687364113, 206.817399478813, 15.1168188224614, 0.45276026837822)
    pt3dadd(-9.15830333150796, 207.742626465394, 15.4855217205702, 0.452259916607997)
    pt3dadd(-9.24781978937478, 208.667853451974, 15.8542246186791, 0.451850263226359)
    pt3dadd(-9.3373362472416, 209.593080438555, 16.2229275167879, 0.45151486740471)
    pt3dadd(-9.42685270510843, 210.518307425136, 16.5916304148967, 0.451240268531071)
    pt3dadd(-9.51636916297525, 211.443534411716, 16.9603333130055, 0.451015445988463)
    pt3dadd(-9.60588562084207, 212.368761398297, 17.3290362111143, 0.450831376858844)
    pt3dadd(-9.6954020787089, 213.293988384878, 17.6977391092231, 0.450680673801733)
    pt3dadd(-9.78491853657572, 214.219215371458, 18.066442007332, 0.450557288574293)
    pt3dadd(-9.87443499444255, 215.144442358039, 18.4351449054408, 0.450456269294113)
    pt3dadd(-9.96395145230937, 216.06966934462, 18.8038478035496, 0.450373561702775)
    pt3dadd(-10.0534679101762, 216.9948963312, 19.1725507016584, 0.450305846454234)
    pt3dadd(-10.142984368043, 217.920123317781, 19.5412535997672, 0.450250405897802)
    pt3dadd(-10.2325008259098, 218.845350304362, 19.909956497876, 0.450205015009282)
    pt3dadd(-10.3220172837767, 219.770577290942, 20.2786593959848, 0.450167852092942)
    pt3dadd(-10.4115337416435, 220.695804277523, 20.6473622940937, 0.45013742567046)
    pt3dadd(-10.5010501995103, 221.621031264104, 21.0160651922025, 0.450112514622668)
    pt3dadd(-10.5905666573771, 222.546258250684, 21.3847680903113, 0.450092119181749)
    pt3dadd(-10.680083115244, 223.471485237265, 21.7534709884201, 0.450075420807047)
    pt3dadd(-10.7695995731108, 224.396712223846, 22.1221738865289, 0.450061749334151)
    pt3dadd(-10.8591160309776, 225.321939210426, 22.4908767846377, 0.450050556078851)
    pt3dadd(-10.9486324888444, 226.247166197007, 22.8595796827466, 0.450041391816511)
    pt3dadd(-11.0381489467113, 227.172393183588, 23.2282825808554, 0.450033888753103)
    pt3dadd(-11.1276654045781, 228.097620170168, 23.5969854789642, 0.450027745764349)
    pt3dadd(-11.2171818624449, 229.022847156749, 23.965688377073, 0.45002271631054)
    pt3dadd(-11.3066983203117, 229.94807414333, 24.3343912751818, 0.450018598542036)
    pt3dadd(-11.3962147781786, 230.87330112991, 24.7030941732906, 0.450015227198327)
    pt3dadd(-11.4857312360454, 231.798528116491, 25.0717970713994, 0.450012466975554)
    pt3dadd(-11.5752476939122, 232.723755103072, 25.4404999695083, 0.450010207096284)
    pt3dadd(-11.664764151779, 233.648982089652, 25.8092028676171, 0.450008356863627)
    pt3dadd(-11.7542806096458, 234.574209076233, 26.1779057657259, 0.450006842021251)
    pt3dadd(-11.8437970675127, 235.499436062814, 26.5466086638347, 0.450005601773211)
    pt3dadd(-11.9333135253795, 236.424663049394, 26.9153115619435, 0.450004586344)
    pt3dadd(-12.0228299832463, 237.349890035975, 27.2840144600523, 0.450003754980877)
    pt3dadd(-12.1123464411131, 238.275117022556, 27.6527173581612, 0.450003074318321)
    pt3dadd(-12.20186289898, 239.200344009136, 28.02142025627, 0.450002517038954)
    pt3dadd(-12.2913793568468, 240.125570995717, 28.3901231543788, 0.450002060777199)
    pt3dadd(-12.3808958147136, 241.050797982298, 28.7588260524876, 0.450001687221668)
    pt3dadd(-12.4704122725804, 241.976024968878, 29.1275289505964, 0.450001381380267)
    pt3dadd(-12.5599287304473, 242.901251955459, 29.4962318487052, 0.450001130978506)
    pt3dadd(-12.6494451883141, 243.82647894204, 29.864934746814, 0.450000925966884)
    pt3dadd(-12.7389616461809, 244.75170592862, 30.2336376449229, 0.450000758117564)
    pt3dadd(-12.8284781040477, 245.676932915201, 30.6023405430317, 0.450000620694164)
    pt3dadd(-12.9179945619146, 246.602159901782, 30.9710434411405, 0.450000508181401)
    pt3dadd(-13.0075110197814, 247.527386888362, 31.3397463392493, 0.450000416063741)
    pt3dadd(-13.0970274776482, 248.452613874943, 31.7084492373581, 0.45000034064418)
    pt3dadd(-13.186543935515, 249.377840861524, 32.0771521354669, 0.450000278895866)
    pt3dadd(-13.2760603933819, 250.303067848104, 32.4458550335758, 0.450000228340622)
    pt3dadd(-13.3655768512487, 251.228294834685, 32.8145579316846, 0.45000018694949)
    pt3dadd(-13.4550933091155, 252.153521821266, 33.1832608297934, 0.450000153061296)
    pt3dadd(-13.5446097669823, 253.078748807846, 33.5519637279022, 0.45000012531599)
    pt3dadd(-13.6341262248491, 254.003975794427, 33.920666626011, 0.450000102600055)
    pt3dadd(-13.723642682716, 254.929202781008, 34.2893695241198, 0.450000084001821)
    pt3dadd(-13.8131591405828, 255.854429767588, 34.6580724222286, 0.450000068774874)
    pt3dadd(-13.9026755984496, 256.779656754169, 35.0267753203375, 0.450000056308104)
    pt3dadd(-13.9921920563164, 257.70488374075, 35.3954782184463, 0.450000046101177)
    pt3dadd(-14.0817085141833, 258.63011072733, 35.7641811165551, 0.450000037744451)
    pt3dadd(-14.1712249720501, 259.555337713911, 36.1328840146639, 0.450000030902543)
    pt3dadd(-14.2607414299169, 260.480564700492, 36.5015869127727, 0.450000025300862)
    pt3dadd(-14.3502578877837, 261.405791687072, 36.8702898108815, 0.450000020714594)
    pt3dadd(-14.4397743456506, 262.331018673653, 37.2389927089904, 0.450000016959675)
    pt3dadd(-14.5292908035174, 263.256245660234, 37.6076956070992, 0.450000013885408)
    pt3dadd(-14.6188072613842, 264.181472646814, 37.976398505208, 0.45000001136841)
    pt3dadd(-14.708323719251, 265.106699633395, 38.3451014033168, 0.450000009307667)
    pt3dadd(-14.7978401771179, 266.031926619976, 38.7138043014256, 0.450000007620473)
    pt3dadd(-14.8873566349847, 266.957153606556, 39.0825071995344, 0.450000006239116)
    pt3dadd(-14.9768730928515, 267.882380593137, 39.4512100976432, 0.450000005108156)
    pt3dadd(-15.0663895507183, 268.807607579718, 39.8199129957521, 0.450000004182204)
    pt3dadd(-15.1559060085852, 269.732834566298, 40.1886158938609, 0.450000003424099)
    pt3dadd(-15.245422466452, 270.658061552879, 40.5573187919697, 0.450000002803415)
    pt3dadd(-15.3349389243188, 271.58328853946, 40.9260216900785, 0.450000002295242)
    pt3dadd(-15.4244553821856, 272.50851552604, 41.2947245881873, 0.450000001879186)
    pt3dadd(-15.5139718400524, 273.433742512621, 41.6634274862961, 0.450000001538547)
    pt3dadd(-15.6034882979193, 274.358969499202, 42.032130384405, 0.450000001259656)
    pt3dadd(-15.6930047557861, 275.284196485782, 42.4008332825138, 0.450000001031319)
    pt3dadd(-15.7825212136529, 276.209423472363, 42.7695361806226, 0.450000000844373)
    pt3dadd(-15.8720376715197, 277.134650458944, 43.1382390787314, 0.450000000691314)
    pt3dadd(-15.9615541293866, 278.059877445524, 43.5069419768402, 0.450000000566)
    pt3dadd(-16.0510705872534, 278.985104432105, 43.875644874949, 0.450000000463401)
    pt3dadd(-16.1405870451202, 279.910331418686, 44.2443477730578, 0.450000000379401)
    pt3dadd(-16.230103502987, 280.835558405266, 44.6130506711667, 0.450000000310627)
    pt3dadd(-16.3196199608539, 281.760785391847, 44.9817535692755, 0.45000000025432)
    pt3dadd(-16.4091364187207, 282.686012378428, 45.3504564673843, 0.45000000020822)
    pt3dadd(-16.4986528765875, 283.611239365008, 45.7191593654931, 0.450000000170476)
    pt3dadd(-16.5881693344543, 284.536466351589, 46.0878622636019, 0.450000000139574)
    pt3dadd(-16.6776857923212, 285.46169333817, 46.4565651617107, 0.450000000114273)
    pt3dadd(-16.767202250188, 286.38692032475, 46.8252680598196, 0.450000000093559)
    pt3dadd(-16.8567187080548, 287.312147311331, 47.1939709579284, 0.4500000000766)
    pt3dadd(-16.9462351659216, 288.237374297912, 47.5626738560372, 0.450000000062715)
    pt3dadd(-17.0357516237885, 289.162601284492, 47.931376754146, 0.450000000051346)
    pt3dadd(-17.1252680816553, 290.087828271073, 48.3000796522548, 0.450000000042039)
    pt3dadd(-17.2147845395221, 291.013055257654, 48.6687825503636, 0.450000000034418)
    pt3dadd(-17.3043009973889, 291.938282244234, 49.0374854484724, 0.450000000028179)
    pt3dadd(-17.3938174552557, 292.863509230815, 49.4061883465813, 0.450000000023071)
    pt3dadd(-17.4833339131226, 293.788736217396, 49.7748912446901, 0.450000000018889)
    pt3dadd(-17.5728503709894, 294.713963203976, 50.1435941427989, 0.450000000015465)
    pt3dadd(-17.6623668288562, 295.639190190557, 50.5122970409077, 0.450000000012662)
    pt3dadd(-17.751883286723, 296.564417177138, 50.8809999390165, 0.450000000010367)
    pt3dadd(-17.8413997445899, 297.489644163718, 51.2497028371253, 0.450000000008488)
    pt3dadd(-17.9309162024567, 298.414871150299, 51.6184057352341, 0.450000000006949)
    pt3dadd(-18.0204326603235, 299.34009813688, 51.987108633343, 0.450000000005689)
    pt3dadd(-18.1099491181903, 300.26532512346, 52.3558115314518, 0.450000000004658)
    pt3dadd(-18.1994655760572, 301.190552110041, 52.7245144295606, 0.450000000003814)
    pt3dadd(-18.288982033924, 302.115779096622, 53.0932173276694, 0.450000000003122)
    pt3dadd(-18.3784984917908, 303.041006083202, 53.4619202257782, 0.450000000002556)
    pt3dadd(-18.4680149496576, 303.966233069783, 53.830623123887, 0.450000000002093)
    pt3dadd(-18.5575314075245, 304.891460056364, 54.1993260219959, 0.450000000001714)
    pt3dadd(-18.6470478653913, 305.816687042944, 54.5680289201047, 0.450000000001403)
    pt3dadd(-18.7365643232581, 306.741914029525, 54.9367318182135, 0.450000000001149)
    pt3dadd(-18.8260807811249, 307.667141016106, 55.3054347163223, 0.45000000000094)
    pt3dadd(-18.9155972389918, 308.592368002686, 55.6741376144311, 0.45000000000077)
    pt3dadd(-19.0051136968586, 309.517594989267, 56.0428405125399, 0.45000000000063)
    pt3dadd(-19.0946301547254, 310.442821975848, 56.4115434106487, 0.450000000000516)
    pt3dadd(-19.1841466125922, 311.368048962428, 56.7802463087576, 0.450000000000423)
  }
}
proc shape3d_19() {
  axon[0] {
    pt3dadd(-19.273663070459, 312.293275949009, 57.1489492068664, 0.450000000000346)
    pt3dadd(-19.3631795283259, 313.21850293559, 57.5176521049752, 0.450000000000283)
    pt3dadd(-19.4526959861927, 314.14372992217, 57.886355003084, 0.450000000000232)
    pt3dadd(-19.5422124440595, 315.068956908751, 58.2550579011928, 0.45000000000019)
    pt3dadd(-19.6317289019263, 315.994183895332, 58.6237607993016, 0.450000000000155)
    pt3dadd(-19.7212453597932, 316.919410881912, 58.9924636974105, 0.450000000000127)
    pt3dadd(-19.81076181766, 317.844637868493, 59.3611665955193, 0.450000000000104)
    pt3dadd(-19.9002782755268, 318.769864855074, 59.7298694936281, 0.450000000000085)
    pt3dadd(-19.9897947333936, 319.695091841654, 60.0985723917369, 0.45000000000007)
    pt3dadd(-20.0793111912605, 320.620318828235, 60.4672752898457, 0.450000000000057)
    pt3dadd(-20.1688276491273, 321.545545814816, 60.8359781879545, 0.450000000000047)
    pt3dadd(-20.2583441069941, 322.470772801396, 61.2046810860633, 0.450000000000038)
    pt3dadd(-20.3478605648609, 323.395999787977, 61.5733839841722, 0.450000000000031)
    pt3dadd(-20.4373770227278, 324.321226774558, 61.942086882281, 0.450000000000026)
    pt3dadd(-20.5268934805946, 325.246453761138, 62.3107897803898, 0.450000000000021)
    pt3dadd(-20.6164099384614, 326.171680747719, 62.6794926784986, 0.450000000000017)
    pt3dadd(-20.7059263963282, 327.0969077343, 63.0481955766074, 0.450000000000014)
    pt3dadd(-20.7954428541951, 328.02213472088, 63.4168984747162, 0.450000000000012)
    pt3dadd(-20.8849593120619, 328.947361707461, 63.7856013728251, 0.450000000000009)
    pt3dadd(-20.9744757699287, 329.872588694042, 64.1543042709339, 0.450000000000008)
    pt3dadd(-21.0639922277955, 330.797815680622, 64.5230071690427, 0.450000000000006)
    pt3dadd(-21.1535086856623, 331.723042667203, 64.8917100671515, 0.450000000000005)
    pt3dadd(-21.2430251435292, 332.648269653784, 65.2604129652603, 0.450000000000004)
    pt3dadd(-21.332541601396, 333.573496640364, 65.6291158633691, 0.450000000000004)
    pt3dadd(-21.4220580592628, 334.498723626945, 65.9978187614779, 0.450000000000003)
    pt3dadd(-21.5115745171296, 335.423950613526, 66.3665216595868, 0.450000000000002)
    pt3dadd(-21.6010909749965, 336.349177600106, 66.7352245576956, 0.450000000000002)
    pt3dadd(-21.6906074328633, 337.274404586687, 67.1039274558044, 0.450000000000002)
    pt3dadd(-21.7801238907301, 338.199631573268, 67.4726303539132, 0.450000000000001)
    pt3dadd(-21.8696403485969, 339.124858559848, 67.841333252022, 0.450000000000001)
    pt3dadd(-21.9591568064638, 340.050085546429, 68.2100361501308, 0.450000000000001)
    pt3dadd(-22.0486732643306, 340.97531253301, 68.5787390482397, 0.450000000000001)
    pt3dadd(-22.1381897221974, 341.90053951959, 68.9474419463485, 0.450000000000001)
    pt3dadd(-22.2277061800642, 342.825766506171, 69.3161448444573, 0.45)
    pt3dadd(-22.3172226379311, 343.750993492751, 69.6848477425661, 0.45)
    pt3dadd(-22.4067390957979, 344.676220479332, 70.0535506406749, 0.45)
    pt3dadd(-22.4962555536647, 345.601447465913, 70.4222535387837, 0.45)
    pt3dadd(-22.5857720115315, 346.526674452493, 70.7909564368925, 0.45)
    pt3dadd(-22.6752884693984, 347.451901439074, 71.1596593350014, 0.45)
    pt3dadd(-22.7648049272652, 348.377128425655, 71.5283622331102, 0.45)
    pt3dadd(-22.854321385132, 349.302355412235, 71.897065131219, 0.45)
    pt3dadd(-22.9438378429988, 350.227582398816, 72.2657680293278, 0.45)
    pt3dadd(-23.0333543008656, 351.152809385397, 72.6344709274366, 0.45)
    pt3dadd(-23.1228707587325, 352.078036371977, 73.0031738255454, 0.45)
    pt3dadd(-23.2123872165993, 353.003263358558, 73.3718767236543, 0.45)
    pt3dadd(-23.3019036744661, 353.928490345139, 73.7405796217631, 0.45)
    pt3dadd(-23.3914201323329, 354.85371733172, 74.1092825198719, 0.45)
    pt3dadd(-23.4809365901998, 355.7789443183, 74.4779854179807, 0.45)
    pt3dadd(-23.5704530480666, 356.704171304881, 74.8466883160895, 0.45)
    pt3dadd(-23.6599695059334, 357.629398291461, 75.2153912141983, 0.45)
    pt3dadd(-23.7494859638002, 358.554625278042, 75.5840941123071, 0.45)
    pt3dadd(-23.8390024216671, 359.479852264623, 75.952797010416, 0.45)
    pt3dadd(-23.9285188795339, 360.405079251203, 76.3214999085248, 0.45)
    pt3dadd(-24.0180353374007, 361.330306237784, 76.6902028066336, 0.45)
    pt3dadd(-24.1075517952675, 362.255533224365, 77.0589057047424, 0.45)
    pt3dadd(-24.1970682531344, 363.180760210945, 77.4276086028512, 0.45)
    pt3dadd(-24.2865847110012, 364.105987197526, 77.79631150096, 0.45)
    pt3dadd(-24.376101168868, 365.031214184107, 78.1650143990689, 0.45)
    pt3dadd(-24.4656176267348, 365.956441170687, 78.5337172971777, 0.45)
    pt3dadd(-24.5551340846017, 366.881668157268, 78.9024201952865, 0.45)
    pt3dadd(-24.6446505424685, 367.806895143849, 79.2711230933953, 0.45)
    pt3dadd(-24.7341670003353, 368.732122130429, 79.6398259915041, 0.45)
    pt3dadd(-24.8236834582021, 369.65734911701, 80.0085288896129, 0.45)
    pt3dadd(-24.9131999160689, 370.582576103591, 80.3772317877217, 0.45)
    pt3dadd(-25.0027163739358, 371.507803090171, 80.7459346858306, 0.45)
    pt3dadd(-25.0922328318026, 372.433030076752, 81.1146375839394, 0.45)
    pt3dadd(-25.1817492896694, 373.358257063333, 81.4833404820482, 0.45)
    pt3dadd(-25.2712657475362, 374.283484049913, 81.852043380157, 0.45)
    pt3dadd(-25.3607822054031, 375.208711036494, 82.2207462782658, 0.45)
    pt3dadd(-25.4502986632699, 376.133938023075, 82.5894491763746, 0.45)
    pt3dadd(-25.5398151211367, 377.059165009655, 82.9581520744835, 0.45)
    pt3dadd(-25.6293315790035, 377.984391996236, 83.3268549725923, 0.45)
    pt3dadd(-25.7188480368704, 378.909618982817, 83.6955578707011, 0.45)
    pt3dadd(-25.8083644947372, 379.834845969397, 84.0642607688099, 0.45)
    pt3dadd(-25.897880952604, 380.760072955978, 84.4329636669187, 0.45)
    pt3dadd(-25.9873974104708, 381.685299942559, 84.8016665650275, 0.45)
    pt3dadd(-26.0769138683377, 382.610526929139, 85.1703694631363, 0.45)
    pt3dadd(-26.1664303262045, 383.53575391572, 85.5390723612452, 0.45)
    pt3dadd(-26.2559467840713, 384.460980902301, 85.907775259354, 0.45)
    pt3dadd(-26.3454632419381, 385.386207888881, 86.2764781574628, 0.45)
    pt3dadd(-26.434979699805, 386.311434875462, 86.6451810555716, 0.45)
    pt3dadd(-26.5244961576718, 387.236661862043, 87.0138839536804, 0.45)
    pt3dadd(-26.6140126155386, 388.161888848623, 87.3825868517892, 0.45)
    pt3dadd(-26.7035290734054, 389.087115835204, 87.751289749898, 0.45)
    pt3dadd(-26.7930455312722, 390.012342821785, 88.1199926480069, 0.45)
    pt3dadd(-26.8825619891391, 390.937569808365, 88.4886955461157, 0.45)
    pt3dadd(-26.9720784470059, 391.862796794946, 88.8573984442245, 0.45)
    pt3dadd(-27.0615949048727, 392.788023781527, 89.2261013423333, 0.45)
    pt3dadd(-27.1511113627395, 393.713250768107, 89.5948042404421, 0.45)
    pt3dadd(-27.2406278206064, 394.638477754688, 89.9635071385509, 0.45)
    pt3dadd(-27.3301442784732, 395.563704741269, 90.3322100366598, 0.45)
    pt3dadd(-27.41966073634, 396.488931727849, 90.7009129347686, 0.45)
    pt3dadd(-27.5091771942068, 397.41415871443, 91.0696158328774, 0.45)
    pt3dadd(-27.5986936520737, 398.339385701011, 91.4383187309862, 0.45)
    pt3dadd(-27.6882101099405, 399.264612687591, 91.807021629095, 0.45)
    pt3dadd(-27.7777265678073, 400.189839674172, 92.1757245272038, 0.45)
    pt3dadd(-27.8672430256741, 401.115066660753, 92.5444274253126, 0.45)
    pt3dadd(-27.956759483541, 402.040293647333, 92.9131303234215, 0.45)
    pt3dadd(-28.0462759414078, 402.965520633914, 93.2818332215303, 0.45)
    pt3dadd(-28.1357923992746, 403.890747620495, 93.6505361196391, 0.45)
    pt3dadd(-28.2253088571414, 404.815974607075, 94.0192390177479, 0.45)
    pt3dadd(-28.3148253150083, 405.741201593656, 94.3879419158567, 0.45)
    pt3dadd(-28.4043417728751, 406.666428580237, 94.7566448139656, 0.45)
    pt3dadd(-28.4938582307419, 407.591655566817, 95.1253477120744, 0.45)
    pt3dadd(-28.5833746886087, 408.516882553398, 95.4940506101832, 0.45)
    pt3dadd(-28.6728911464756, 409.442109539979, 95.862753508292, 0.45)
    pt3dadd(-28.7624076043424, 410.367336526559, 96.2314564064008, 0.45)
    pt3dadd(-28.8519240622092, 411.29256351314, 96.6001593045096, 0.45)
    pt3dadd(-28.941440520076, 412.217790499721, 96.9688622026184, 0.45)
    pt3dadd(-29.0309569779428, 413.143017486301, 97.3375651007272, 0.45)
    pt3dadd(-29.1204734358097, 414.068244472882, 97.7062679988361, 0.45)
    pt3dadd(-29.2099898936765, 414.993471459463, 98.0749708969449, 0.45)
    pt3dadd(-29.2995063515433, 415.918698446043, 98.4436737950537, 0.45)
    pt3dadd(-29.3890228094101, 416.843925432624, 98.8123766931625, 0.45)
    pt3dadd(-29.478539267277, 417.769152419205, 99.1810795912713, 0.45)
    pt3dadd(-29.5680557251438, 418.694379405785, 99.5497824893801, 0.45)
    pt3dadd(-29.6575721830106, 419.619606392366, 99.918485387489, 0.45)
    pt3dadd(-29.7470886408774, 420.544833378947, 100.287188285598, 0.45)
    pt3dadd(-29.8366050987443, 421.470060365527, 100.655891183707, 0.45)
    pt3dadd(-29.9261215566111, 422.395287352108, 101.024594081815, 0.45)
    pt3dadd(-30.0156380144779, 423.320514338689, 101.393296979924, 0.45)
    pt3dadd(-30.1051544723447, 424.245741325269, 101.761999878033, 0.45)
    pt3dadd(-30.1946709302116, 425.17096831185, 102.130702776142, 0.45)
    pt3dadd(-30.2841873880784, 426.096195298431, 102.499405674251, 0.45)
    pt3dadd(-30.3737038459452, 427.021422285011, 102.868108572359, 0.45)
    pt3dadd(-30.463220303812, 427.946649271592, 103.236811470468, 0.45)
    pt3dadd(-30.5527367616788, 428.871876258173, 103.605514368577, 0.45)
    pt3dadd(-30.6422532195457, 429.797103244753, 103.974217266686, 0.45)
    pt3dadd(-30.7317696774125, 430.722330231334, 104.342920164795, 0.45)
    pt3dadd(-30.8212861352793, 431.647557217915, 104.711623062904, 0.45)
    pt3dadd(-30.9108025931461, 432.572784204495, 105.080325961012, 0.45)
    pt3dadd(-31.000319051013, 433.498011191076, 105.449028859121, 0.45)
    pt3dadd(-31.0898355088798, 434.423238177657, 105.81773175723, 0.45)
    pt3dadd(-31.1793519667466, 435.348465164237, 106.186434655339, 0.45)
    pt3dadd(-31.2688684246134, 436.273692150818, 106.555137553448, 0.45)
    pt3dadd(-31.3583848824803, 437.198919137399, 106.923840451556, 0.45)
    pt3dadd(-31.4479013403471, 438.124146123979, 107.292543349665, 0.45)
    pt3dadd(-31.5374177982139, 439.04937311056, 107.661246247774, 0.45)
    pt3dadd(-31.6269342560807, 439.974600097141, 108.029949145883, 0.45)
    pt3dadd(-31.7164507139476, 440.899827083721, 108.398652043992, 0.45)
    pt3dadd(-31.8059671718144, 441.825054070302, 108.767354942101, 0.45)
    pt3dadd(-31.8954836296812, 442.750281056883, 109.136057840209, 0.45)
    pt3dadd(-31.985000087548, 443.675508043463, 109.504760738318, 0.45)
    pt3dadd(-32.0745165454149, 444.600735030044, 109.873463636427, 0.45)
    pt3dadd(-32.1640330032817, 445.525962016625, 110.242166534536, 0.45)
    pt3dadd(-32.2535494611485, 446.451189003205, 110.610869432645, 0.45)
    pt3dadd(-32.3430659190153, 447.376415989786, 110.979572330753, 0.45)
    pt3dadd(-32.4325823768822, 448.301642976367, 111.348275228862, 0.45)
    pt3dadd(-32.522098834749, 449.226869962947, 111.716978126971, 0.45)
    pt3dadd(-32.6116152926158, 450.152096949528, 112.08568102508, 0.45)
    pt3dadd(-32.7011317504826, 451.077323936109, 112.454383923189, 0.45)
    pt3dadd(-32.7906482083494, 452.002550922689, 112.823086821297, 0.45)
    pt3dadd(-32.8801646662163, 452.92777790927, 113.191789719406, 0.45)
    pt3dadd(-32.9696811240831, 453.853004895851, 113.560492617515, 0.45)
    pt3dadd(-33.0591975819499, 454.778231882431, 113.929195515624, 0.45)
    pt3dadd(-33.1487140398167, 455.703458869012, 114.297898413733, 0.45)
    pt3dadd(-33.2382304976836, 456.628685855593, 114.666601311842, 0.45)
    pt3dadd(-33.3277469555504, 457.553912842173, 115.03530420995, 0.45)
    pt3dadd(-33.4172634134172, 458.479139828754, 115.404007108059, 0.45)
    pt3dadd(-33.506779871284, 459.404366815335, 115.772710006168, 0.45)
    pt3dadd(-33.5962963291509, 460.329593801915, 116.141412904277, 0.45)
    pt3dadd(-33.6858127870177, 461.254820788496, 116.510115802386, 0.45)
    pt3dadd(-33.7753292448845, 462.180047775077, 116.878818700494, 0.45)
    pt3dadd(-33.8648457027513, 463.105274761657, 117.247521598603, 0.45)
    pt3dadd(-33.9543621606182, 464.030501748238, 117.616224496712, 0.45)
    pt3dadd(-34.043878618485, 464.955728734819, 117.984927394821, 0.45)
    pt3dadd(-34.1333950763518, 465.880955721399, 118.35363029293, 0.45)
    pt3dadd(-34.2229115342186, 466.80618270798, 118.722333191039, 0.45)
    pt3dadd(-34.3124279920855, 467.731409694561, 119.091036089147, 0.45)
    pt3dadd(-34.4019444499523, 468.656636681141, 119.459738987256, 0.45)
    pt3dadd(-34.4914609078191, 469.581863667722, 119.828441885365, 0.45)
    pt3dadd(-34.5809773656859, 470.507090654303, 120.197144783474, 0.45)
    pt3dadd(-34.6704938235527, 471.432317640883, 120.565847681583, 0.45)
    pt3dadd(-34.7600102814196, 472.357544627464, 120.934550579691, 0.45)
    pt3dadd(-34.8495267392864, 473.282771614045, 121.3032534778, 0.45)
    pt3dadd(-34.9390431971532, 474.207998600625, 121.671956375909, 0.45)
    pt3dadd(-35.02855965502, 475.133225587206, 122.040659274018, 0.45)
    pt3dadd(-35.1180761128869, 476.058452573787, 122.409362172127, 0.45)
    pt3dadd(-35.2075925707537, 476.983679560367, 122.778065070236, 0.45)
    pt3dadd(-35.2971090286205, 477.908906546948, 123.146767968344, 0.45)
    pt3dadd(-35.3866254864873, 478.834133533529, 123.515470866453, 0.45)
    pt3dadd(-35.4761419443542, 479.759360520109, 123.884173764562, 0.45)
    pt3dadd(-35.565658402221, 480.68458750669, 124.252876662671, 0.45)
    pt3dadd(-35.6551748600878, 481.609814493271, 124.62157956078, 0.45)
    pt3dadd(-35.7446913179546, 482.535041479851, 124.990282458888, 0.45)
    pt3dadd(-35.8342077758215, 483.460268466432, 125.358985356997, 0.45)
    pt3dadd(-35.9237242336883, 484.385495453013, 125.727688255106, 0.45)
    pt3dadd(-36.0132406915551, 485.310722439593, 126.096391153215, 0.45)
    pt3dadd(-36.1027571494219, 486.235949426174, 126.465094051324, 0.45)
    pt3dadd(-36.1922736072888, 487.161176412755, 126.833796949432, 0.45)
    pt3dadd(-36.2817900651556, 488.086403399335, 127.202499847541, 0.45)
    pt3dadd(-36.3713065230224, 489.011630385916, 127.57120274565, 0.45)
    pt3dadd(-36.4608229808892, 489.936857372496, 127.939905643759, 0.45)
    pt3dadd(-36.550339438756, 490.862084359077, 128.308608541868, 0.45)
    pt3dadd(-36.6398558966229, 491.787311345658, 128.677311439977, 0.45)
    pt3dadd(-36.7293723544897, 492.712538332239, 129.046014338085, 0.45)
    pt3dadd(-36.8188888123565, 493.637765318819, 129.414717236194, 0.45)
    pt3dadd(-36.9084052702233, 494.5629923054, 129.783420134303, 0.45)
    pt3dadd(-36.9979217280902, 495.488219291981, 130.152123032412, 0.45)
    pt3dadd(-37.087438185957, 496.413446278561, 130.520825930521, 0.45)
    pt3dadd(-37.1769546438238, 497.338673265142, 130.889528828629, 0.45)
    pt3dadd(-37.2664711016906, 498.263900251722, 131.258231726738, 0.45)
    pt3dadd(-37.3559875595575, 499.189127238303, 131.626934624847, 0.45)
    pt3dadd(-37.4455040174243, 500.114354224884, 131.995637522956, 0.45)
    pt3dadd(-37.5350204752911, 501.039581211465, 132.364340421065, 0.45)
    pt3dadd(-37.6245369331579, 501.964808198045, 132.733043319174, 0.45)
    pt3dadd(-37.7140533910248, 502.890035184626, 133.101746217282, 0.45)
    pt3dadd(-37.8035698488916, 503.815262171206, 133.470449115391, 0.45)
    pt3dadd(-37.8930863067584, 504.740489157787, 133.8391520135, 0.45)
    pt3dadd(-37.9826027646252, 505.665716144368, 134.207854911609, 0.45)
    pt3dadd(-38.0721192224921, 506.590943130948, 134.576557809718, 0.45)
    pt3dadd(-38.1616356803589, 507.516170117529, 134.945260707826, 0.45)
    pt3dadd(-38.2511521382257, 508.44139710411, 135.313963605935, 0.45)
    pt3dadd(-38.3406685960925, 509.36662409069, 135.682666504044, 0.45)
    pt3dadd(-38.4301850539593, 510.291851077271, 136.051369402153, 0.45)
    pt3dadd(-38.5197015118262, 511.217078063852, 136.420072300262, 0.45)
    pt3dadd(-38.609217969693, 512.142305050432, 136.788775198371, 0.45)
    pt3dadd(-38.6987344275598, 513.067532037013, 137.157478096479, 0.45)
    pt3dadd(-38.7882508854266, 513.992759023594, 137.526180994588, 0.45)
    pt3dadd(-38.8777673432935, 514.917986010174, 137.894883892697, 0.45)
    pt3dadd(-38.9672838011603, 515.843212996755, 138.263586790806, 0.45)
    pt3dadd(-39.0568002590271, 516.768439983336, 138.632289688915, 0.45)
    pt3dadd(-39.1463167168939, 517.693666969916, 139.000992587023, 0.45)
    pt3dadd(-39.2358331747608, 518.618893956497, 139.369695485132, 0.45)
    pt3dadd(-39.3253496326276, 519.544120943078, 139.738398383241, 0.45)
    pt3dadd(-39.4148660904944, 520.469347929658, 140.10710128135, 0.45)
    pt3dadd(-39.5043825483612, 521.394574916239, 140.475804179459, 0.45)
    pt3dadd(-39.5938990062281, 522.31980190282, 140.844507077567, 0.45)
    pt3dadd(-39.6834154640949, 523.2450288894, 141.213209975676, 0.45)
    pt3dadd(-39.7729319219617, 524.170255875981, 141.581912873785, 0.45)
    pt3dadd(-39.8624483798285, 525.095482862562, 141.950615771894, 0.45)
    pt3dadd(-39.9519648376954, 526.020709849142, 142.319318670003, 0.45)
    pt3dadd(-40.0414812955622, 526.945936835723, 142.688021568112, 0.45)
    pt3dadd(-40.130997753429, 527.871163822304, 143.05672446622, 0.45)
    pt3dadd(-40.2205142112958, 528.796390808884, 143.425427364329, 0.45)
    pt3dadd(-40.3100306691627, 529.721617795465, 143.794130262438, 0.45)
    pt3dadd(-40.3995471270295, 530.646844782046, 144.162833160547, 0.45)
    pt3dadd(-40.4890635848963, 531.572071768626, 144.531536058656, 0.45)
    pt3dadd(-40.5785800427631, 532.497298755207, 144.900238956764, 0.45)
    pt3dadd(-40.6680965006299, 533.422525741788, 145.268941854873, 0.45)
    pt3dadd(-40.7576129584968, 534.347752728369, 145.637644752982, 0.45)
    pt3dadd(-40.8471294163636, 535.272979714949, 146.006347651091, 0.45)
    pt3dadd(-40.9366458742304, 536.19820670153, 146.3750505492, 0.45)
    pt3dadd(-41.0261623320972, 537.12343368811, 146.743753447309, 0.45)
    pt3dadd(-41.1156787899641, 538.048660674691, 147.112456345417, 0.45)
    pt3dadd(-41.2051952478309, 538.973887661272, 147.481159243526, 0.45)
    pt3dadd(-41.2947117056977, 539.899114647852, 147.849862141635, 0.45)
    pt3dadd(-41.3842281635645, 540.824341634433, 148.218565039744, 0.45)
    pt3dadd(-41.4737446214314, 541.749568621014, 148.587267937853, 0.45)
  }
}
proc shape3d_20() {
  axon[0] {
    pt3dadd(-41.5632610792982, 542.674795607594, 148.955970835961, 0.45)
    pt3dadd(-41.652777537165, 543.600022594175, 149.32467373407, 0.45)
    pt3dadd(-41.7422939950318, 544.525249580756, 149.693376632179, 0.45)
    pt3dadd(-41.8318104528987, 545.450476567336, 150.062079530288, 0.45)
    pt3dadd(-41.9213269107655, 546.375703553917, 150.430782428397, 0.45)
    pt3dadd(-42.0108433686323, 547.300930540498, 150.799485326505, 0.45)
    pt3dadd(-42.1003598264991, 548.226157527078, 151.168188224614, 0.45)
    pt3dadd(-42.189876284366, 549.151384513659, 151.536891122723, 0.45)
    pt3dadd(-42.2793927422328, 550.07661150024, 151.905594020832, 0.45)
    pt3dadd(-42.3689092000996, 551.00183848682, 152.274296918941, 0.45)
    pt3dadd(-42.4584256579664, 551.927065473401, 152.64299981705, 0.45)
    pt3dadd(-42.5479421158332, 552.852292459982, 153.011702715158, 0.45)
    pt3dadd(-42.6374585737001, 553.777519446562, 153.380405613267, 0.45)
    pt3dadd(-42.7269750315669, 554.702746433143, 153.749108511376, 0.45)
    pt3dadd(-42.8164914894337, 555.627973419724, 154.117811409485, 0.45)
    pt3dadd(-42.9060079473005, 556.553200406304, 154.486514307594, 0.45)
    pt3dadd(-42.9955244051674, 557.478427392885, 154.855217205702, 0.45)
    pt3dadd(-43.0850408630342, 558.403654379466, 155.223920103811, 0.45)
    pt3dadd(-43.174557320901, 559.328881366046, 155.59262300192, 0.45)
    pt3dadd(-43.2640737787678, 560.254108352627, 155.961325900029, 0.45)
    pt3dadd(-43.3535902366347, 561.179335339208, 156.330028798138, 0.45)
    pt3dadd(-43.4431066945015, 562.104562325788, 156.698731696247, 0.45)
    pt3dadd(-43.5326231523683, 563.029789312369, 157.067434594355, 0.45)
    pt3dadd(-43.6221396102351, 563.95501629895, 157.436137492464, 0.45)
    pt3dadd(-43.711656068102, 564.88024328553, 157.804840390573, 0.45)
    pt3dadd(-43.8011725259688, 565.805470272111, 158.173543288682, 0.45)
    pt3dadd(-43.8906889838356, 566.730697258692, 158.542246186791, 0.45)
    pt3dadd(-43.9802054417024, 567.655924245272, 158.910949084899, 0.45)
    pt3dadd(-44.0697218995693, 568.581151231853, 159.279651983008, 0.45)
    pt3dadd(-44.1592383574361, 569.506378218434, 159.648354881117, 0.45)
    pt3dadd(-44.2487548153029, 570.431605205014, 160.017057779226, 0.45)
    pt3dadd(-44.3382712731697, 571.356832191595, 160.385760677335, 0.45)
    pt3dadd(-44.4277877310365, 572.282059178176, 160.754463575443, 0.45)
    pt3dadd(-44.5173041889034, 573.207286164756, 161.123166473552, 0.45)
    pt3dadd(-44.6068206467702, 574.132513151337, 161.491869371661, 0.45)
    pt3dadd(-44.696337104637, 575.057740137918, 161.86057226977, 0.45)
    pt3dadd(-44.7858535625038, 575.982967124498, 162.229275167879, 0.45)
    pt3dadd(-44.8753700203707, 576.908194111079, 162.597978065988, 0.45)
    pt3dadd(-44.9648864782375, 577.83342109766, 162.966680964096, 0.45)
    pt3dadd(-45.0544029361043, 578.75864808424, 163.335383862205, 0.45)
    pt3dadd(-45.1439193939711, 579.683875070821, 163.704086760314, 0.45)
    pt3dadd(-45.233435851838, 580.609102057402, 164.072789658423, 0.45)
    pt3dadd(-45.3229523097048, 581.534329043982, 164.441492556532, 0.45)
    pt3dadd(-45.4124687675716, 582.459556030563, 164.81019545464, 0.45)
    pt3dadd(-45.5019852254384, 583.384783017144, 165.178898352749, 0.45)
    pt3dadd(-45.5915016833053, 584.310010003724, 165.547601250858, 0.45)
    pt3dadd(-45.6810181411721, 585.235236990305, 165.916304148967, 0.45)
    pt3dadd(-45.7705345990389, 586.160463976886, 166.285007047076, 0.45)
    pt3dadd(-45.8600510569057, 587.085690963466, 166.653709945185, 0.45)
    pt3dadd(-45.9495675147726, 588.010917950047, 167.022412843293, 0.45)
    pt3dadd(-46.0390839726394, 588.936144936628, 167.391115741402, 0.45)
    pt3dadd(-46.1286004305062, 589.861371923208, 167.759818639511, 0.45)
    pt3dadd(-46.218116888373, 590.786598909789, 168.12852153762, 0.45)
    pt3dadd(-46.3076333462398, 591.71182589637, 168.497224435729, 0.45)
    pt3dadd(-46.3971498041067, 592.63705288295, 168.865927333837, 0.45)
    pt3dadd(-46.4866662619735, 593.562279869531, 169.234630231946, 0.45)
    pt3dadd(-46.5761827198403, 594.487506856112, 169.603333130055, 0.45)
    pt3dadd(-46.6656991777071, 595.412733842692, 169.972036028164, 0.45)
    pt3dadd(-46.755215635574, 596.337960829273, 170.340738926273, 0.45)
    pt3dadd(-46.8447320934408, 597.263187815854, 170.709441824382, 0.45)
    pt3dadd(-46.9342485513076, 598.188414802434, 171.07814472249, 0.45)
    pt3dadd(-47.0237650091744, 599.113641789015, 171.446847620599, 0.45)
    pt3dadd(-47.1132814670413, 600.038868775596, 171.815550518708, 0.45)
    pt3dadd(-47.2027979249081, 600.964095762176, 172.184253416817, 0.45)
    pt3dadd(-47.2923143827749, 601.889322748757, 172.552956314926, 0.45)
    pt3dadd(-47.3818308406417, 602.814549735338, 172.921659213034, 0.45)
    pt3dadd(-47.4713472985086, 603.739776721918, 173.290362111143, 0.45)
    pt3dadd(-47.5608637563754, 604.665003708499, 173.659065009252, 0.45)
    pt3dadd(-47.6503802142422, 605.59023069508, 174.027767907361, 0.45)
    pt3dadd(-47.739896672109, 606.51545768166, 174.39647080547, 0.45)
    pt3dadd(-47.8294131299759, 607.440684668241, 174.765173703578, 0.45)
    pt3dadd(-47.9189295878427, 608.365911654822, 175.133876601687, 0.45)
    pt3dadd(-48.0084460457095, 609.291138641402, 175.502579499796, 0.45)
    pt3dadd(-48.0979625035763, 610.216365627983, 175.871282397905, 0.45)
    pt3dadd(-48.1874789614431, 611.141592614564, 176.239985296014, 0.45)
    pt3dadd(-48.27699541931, 612.066819601144, 176.608688194123, 0.45)
    pt3dadd(-48.3665118771768, 612.992046587725, 176.977391092231, 0.45)
    pt3dadd(-48.4560283350436, 613.917273574306, 177.34609399034, 0.45)
    pt3dadd(-48.5455447929104, 614.842500560886, 177.714796888449, 0.45)
    pt3dadd(-48.6350612507773, 615.767727547467, 178.083499786558, 0.45)
    pt3dadd(-48.7245777086441, 616.692954534048, 178.452202684667, 0.45)
    pt3dadd(-48.8140941665109, 617.618181520628, 178.820905582775, 0.45)
    pt3dadd(-48.9036106243777, 618.543408507209, 179.189608480884, 0.45)
    pt3dadd(-48.9931270822446, 619.46863549379, 179.558311378993, 0.45)
    pt3dadd(-49.0826435401114, 620.39386248037, 179.927014277102, 0.45)
    pt3dadd(-49.1721599979782, 621.319089466951, 180.295717175211, 0.45)
    pt3dadd(-49.261676455845, 622.244316453532, 180.66442007332, 0.45)
    pt3dadd(-49.3511929137119, 623.169543440112, 181.033122971428, 0.45)
    pt3dadd(-49.4407093715787, 624.094770426693, 181.401825869537, 0.45)
    pt3dadd(-49.5302258294455, 625.019997413274, 181.770528767646, 0.45)
    pt3dadd(-49.6197422873123, 625.945224399854, 182.139231665755, 0.45)
    pt3dadd(-49.7092587451791, 626.870451386435, 182.507934563864, 0.45)
    pt3dadd(-49.798775203046, 627.795678373016, 182.876637461972, 0.45)
    pt3dadd(-49.8882916609128, 628.720905359596, 183.245340360081, 0.45)
    pt3dadd(-49.9778081187796, 629.646132346177, 183.61404325819, 0.45)
    pt3dadd(-50.0673245766464, 630.571359332758, 183.982746156299, 0.45)
    pt3dadd(-50.1568410345133, 631.496586319338, 184.351449054408, 0.45)
    pt3dadd(-50.2463574923801, 632.421813305919, 184.720151952516, 0.45)
    pt3dadd(-50.3358739502469, 633.3470402925, 185.088854850625, 0.45)
    pt3dadd(-50.4253904081137, 634.27226727908, 185.457557748734, 0.45)
    pt3dadd(-50.5149068659806, 635.197494265661, 185.826260646843, 0.45)
    pt3dadd(-50.6044233238474, 636.122721252241, 186.194963544952, 0.45)
    pt3dadd(-50.6939397817142, 637.047948238822, 186.563666443061, 0.45)
    pt3dadd(-50.783456239581, 637.973175225403, 186.932369341169, 0.45)
    pt3dadd(-50.8729726974479, 638.898402211983, 187.301072239278, 0.45)
    pt3dadd(-50.9624891553147, 639.823629198564, 187.669775137387, 0.45)
    pt3dadd(-51.0520056131815, 640.748856185145, 188.038478035496, 0.45)
    pt3dadd(-51.1415220710483, 641.674083171726, 188.407180933605, 0.45)
    pt3dadd(-51.2310385289152, 642.599310158306, 188.775883831713, 0.45)
    pt3dadd(-51.320554986782, 643.524537144887, 189.144586729822, 0.45)
    pt3dadd(-51.4100714446488, 644.449764131468, 189.513289627931, 0.45)
    pt3dadd(-51.4995879025156, 645.374991118048, 189.88199252604, 0.45)
    pt3dadd(-51.5891043603825, 646.300218104629, 190.250695424149, 0.45)
    pt3dadd(-51.6786208182493, 647.22544509121, 190.619398322258, 0.45)
    pt3dadd(-51.7681372761161, 648.15067207779, 190.988101220366, 0.45)
    pt3dadd(-51.8576537339829, 649.075899064371, 191.356804118475, 0.45)
    pt3dadd(-51.9471701918498, 650.001126050952, 191.725507016584, 0.45)
    pt3dadd(-52.0366866497166, 650.926353037532, 192.094209914693, 0.45)
    pt3dadd(-52.1262031075834, 651.851580024113, 192.462912812802, 0.45)
    pt3dadd(-52.2157195654502, 652.776807010694, 192.83161571091, 0.45)
    pt3dadd(-52.305236023317, 653.702033997274, 193.200318609019, 0.45)
    pt3dadd(-52.3947524811839, 654.627260983855, 193.569021507128, 0.45)
    pt3dadd(-52.4842689390507, 655.552487970436, 193.937724405237, 0.45)
    pt3dadd(-52.5737853969175, 656.477714957016, 194.306427303346, 0.45)
    pt3dadd(-52.6633018547843, 657.402941943597, 194.675130201454, 0.45)
    pt3dadd(-52.7528183126512, 658.328168930178, 195.043833099563, 0.45)
    pt3dadd(-52.842334770518, 659.253395916758, 195.412535997672, 0.45)
    pt3dadd(-52.9318512283848, 660.178622903339, 195.781238895781, 0.45)
    pt3dadd(-53.0213676862516, 661.10384988992, 196.14994179389, 0.45)
    pt3dadd(-53.1108841441185, 662.0290768765, 196.518644691999, 0.45)
    pt3dadd(-53.2004006019853, 662.954303863081, 196.887347590107, 0.45)
    pt3dadd(-53.2899170598521, 663.879530849661, 197.256050488216, 0.45)
    pt3dadd(-53.3794335177189, 664.804757836242, 197.624753386325, 0.45)
    pt3dadd(-53.4689499755858, 665.729984822823, 197.993456284434, 0.45)
    pt3dadd(-53.5584664334526, 666.655211809403, 198.362159182543, 0.45)
    pt3dadd(-53.6479828913194, 667.580438795984, 198.730862080651, 0.45)
    pt3dadd(-53.7374993491862, 668.505665782565, 199.09956497876, 0.45)
    pt3dadd(-53.8270158070531, 669.430892769145, 199.468267876869, 0.45)
    pt3dadd(-53.9165322649199, 670.356119755726, 199.836970774978, 0.45)
    pt3dadd(-54.0060487227867, 671.281346742307, 200.205673673087, 0.45)
    pt3dadd(-54.0955651806535, 672.206573728887, 200.574376571196, 0.45)
    pt3dadd(-54.1850816385203, 673.131800715468, 200.943079469304, 0.45)
    pt3dadd(-54.2745980963872, 674.057027702049, 201.311782367413, 0.45)
    pt3dadd(-54.364114554254, 674.982254688629, 201.680485265522, 0.45)
    pt3dadd(-54.4536310121208, 675.90748167521, 202.049188163631, 0.45)
    pt3dadd(-54.5431474699876, 676.832708661791, 202.41789106174, 0.45)
    pt3dadd(-54.6326639278545, 677.757935648371, 202.786593959848, 0.45)
    pt3dadd(-54.7221803857213, 678.683162634952, 203.155296857957, 0.45)
    pt3dadd(-54.8116968435881, 679.608389621533, 203.523999756066, 0.45)
    pt3dadd(-54.9012133014549, 680.533616608113, 203.892702654175, 0.45)
    pt3dadd(-54.9907297593218, 681.458843594694, 204.261405552284, 0.45)
    pt3dadd(-55.0802462171886, 682.384070581275, 204.630108450393, 0.45)
    pt3dadd(-55.1697626750554, 683.309297567855, 204.998811348501, 0.45)
    pt3dadd(-55.2592791329222, 684.234524554436, 205.36751424661, 0.45)
    pt3dadd(-55.3487955907891, 685.159751541017, 205.736217144719, 0.45)
    pt3dadd(-55.4383120486559, 686.084978527597, 206.104920042828, 0.45)
    pt3dadd(-55.5278285065227, 687.010205514178, 206.473622940937, 0.45)
    pt3dadd(-55.6173449643895, 687.935432500759, 206.842325839045, 0.45)
    pt3dadd(-55.7068614222563, 688.860659487339, 207.211028737154, 0.45)
    pt3dadd(-55.7963778801232, 689.78588647392, 207.579731635263, 0.45)
    pt3dadd(-55.88589433799, 690.711113460501, 207.948434533372, 0.45)
    pt3dadd(-55.9754107958568, 691.636340447081, 208.317137431481, 0.45)
    pt3dadd(-56.0649272537236, 692.561567433662, 208.68584032959, 0.45)
    pt3dadd(-56.1544437115905, 693.486794420243, 209.054543227698, 0.45)
    pt3dadd(-56.2439601694573, 694.412021406823, 209.423246125807, 0.45)
    pt3dadd(-56.3334766273241, 695.337248393404, 209.791949023916, 0.45)
    pt3dadd(-56.4229930851909, 696.262475379985, 210.160651922025, 0.45)
    pt3dadd(-56.5125095430578, 697.187702366565, 210.529354820134, 0.45)
    pt3dadd(-56.6020260009246, 698.112929353146, 210.898057718242, 0.45)
    pt3dadd(-56.6915424587914, 699.038156339727, 211.266760616351, 0.45)
    pt3dadd(-56.7810589166582, 699.963383326307, 211.63546351446, 0.45)
    pt3dadd(-56.8705753745251, 700.888610312888, 212.004166412569, 0.45)
    pt3dadd(-56.9600918323919, 701.813837299469, 212.372869310678, 0.45)
    pt3dadd(-57.0496082902587, 702.739064286049, 212.741572208786, 0.45)
    pt3dadd(-57.1391247481255, 703.66429127263, 213.110275106895, 0.45)
    pt3dadd(-57.2286412059924, 704.589518259211, 213.478978005004, 0.45)
    pt3dadd(-57.3181576638592, 705.514745245791, 213.847680903113, 0.45)
    pt3dadd(-57.407674121726, 706.439972232372, 214.216383801222, 0.45)
    pt3dadd(-57.4971905795928, 707.365199218953, 214.585086699331, 0.45)
    pt3dadd(-57.5867070374596, 708.290426205533, 214.953789597439, 0.45)
    pt3dadd(-57.6762234953265, 709.215653192114, 215.322492495548, 0.45)
    pt3dadd(-57.7657399531933, 710.140880178695, 215.691195393657, 0.45)
    pt3dadd(-57.8552564110601, 711.066107165275, 216.059898291766, 0.45)
    pt3dadd(-57.9447728689269, 711.991334151856, 216.428601189875, 0.45)
    pt3dadd(-58.0342893267938, 712.916561138437, 216.797304087983, 0.45)
    pt3dadd(-58.1238057846606, 713.841788125017, 217.166006986092, 0.45)
    pt3dadd(-58.2133222425274, 714.767015111598, 217.534709884201, 0.45)
    pt3dadd(-58.3028387003942, 715.692242098179, 217.90341278231, 0.45)
    pt3dadd(-58.3923551582611, 716.617469084759, 218.272115680419, 0.45)
    pt3dadd(-58.4818716161279, 717.54269607134, 218.640818578528, 0.45)
    pt3dadd(-58.5713880739947, 718.467923057921, 219.009521476636, 0.45)
    pt3dadd(-58.6609045318615, 719.393150044501, 219.378224374745, 0.45)
    pt3dadd(-58.7504209897284, 720.318377031082, 219.746927272854, 0.45)
    pt3dadd(-58.8399374475952, 721.243604017663, 220.115630170963, 0.45)
    pt3dadd(-58.929453905462, 722.168831004243, 220.484333069072, 0.45)
    pt3dadd(-59.0189703633288, 723.094057990824, 220.85303596718, 0.45)
    pt3dadd(-59.1084868211957, 724.019284977405, 221.221738865289, 0.45)
    pt3dadd(-59.1980032790625, 724.944511963985, 221.590441763398, 0.45)
    pt3dadd(-59.2875197369293, 725.869738950566, 221.959144661507, 0.45)
    pt3dadd(-59.3770361947961, 726.794965937147, 222.327847559616, 0.45)
    pt3dadd(-59.4665526526629, 727.720192923727, 222.696550457724, 0.45)
    pt3dadd(-59.5560691105298, 728.645419910308, 223.065253355833, 0.45)
    pt3dadd(-59.6455855683966, 729.570646896889, 223.433956253942, 0.45)
    pt3dadd(-59.7351020262634, 730.495873883469, 223.802659152051, 0.45)
    pt3dadd(-59.8246184841302, 731.42110087005, 224.17136205016, 0.45)
    pt3dadd(-59.9141349419971, 732.346327856631, 224.540064948269, 0.45)
    pt3dadd(-60.0036513998639, 733.271554843211, 224.908767846377, 0.45)
    pt3dadd(-60.0931678577307, 734.196781829792, 225.277470744486, 0.45)
    pt3dadd(-60.1826843155975, 735.122008816373, 225.646173642595, 0.45)
    pt3dadd(-60.2722007734644, 736.047235802953, 226.014876540704, 0.45)
    pt3dadd(-60.3617172313312, 736.972462789534, 226.383579438813, 0.45)
    pt3dadd(-60.451233689198, 737.897689776115, 226.752282336921, 0.45)
    pt3dadd(-60.5407501470648, 738.822916762695, 227.12098523503, 0.45)
    pt3dadd(-60.6302666049317, 739.748143749276, 227.489688133139, 0.45)
    pt3dadd(-60.7197830627985, 740.673370735857, 227.858391031248, 0.45)
    pt3dadd(-60.8092995206653, 741.598597722437, 228.227093929357, 0.45)
    pt3dadd(-60.8988159785321, 742.523824709018, 228.595796827466, 0.45)
    pt3dadd(-60.988332436399, 743.449051695599, 228.964499725574, 0.45)
    pt3dadd(-61.0778488942658, 744.374278682179, 229.333202623683, 0.45)
    pt3dadd(-61.1673653521326, 745.29950566876, 229.701905521792, 0.45)
    pt3dadd(-61.2568818099994, 746.224732655341, 230.070608419901, 0.45)
    pt3dadd(-61.3463982678662, 747.149959641921, 230.43931131801, 0.45)
    pt3dadd(-61.4359147257331, 748.075186628502, 230.808014216118, 0.45)
    pt3dadd(-61.5254311835999, 749.000413615083, 231.176717114227, 0.45)
    pt3dadd(-61.6149476414667, 749.925640601663, 231.545420012336, 0.45)
    pt3dadd(-61.7044640993335, 750.850867588244, 231.914122910445, 0.45)
    pt3dadd(-61.7939805572004, 751.776094574825, 232.282825808554, 0.45)
    pt3dadd(-61.8834970150672, 752.701321561405, 232.651528706662, 0.45)
    pt3dadd(-61.973013472934, 753.626548547986, 233.020231604771, 0.45)
    pt3dadd(-62.0625299308008, 754.551775534567, 233.38893450288, 0.45)
    pt3dadd(-62.1520463886677, 755.477002521147, 233.757637400989, 0.45)
    pt3dadd(-62.2415628465345, 756.402229507728, 234.126340299098, 0.45)
    pt3dadd(-62.3310793044013, 757.327456494309, 234.495043197207, 0.45)
    pt3dadd(-62.4205957622681, 758.252683480889, 234.863746095315, 0.45)
    pt3dadd(-62.510112220135, 759.17791046747, 235.232448993424, 0.45)
    pt3dadd(-62.5996286780018, 760.103137454051, 235.601151891533, 0.45)
    pt3dadd(-62.6891451358686, 761.028364440631, 235.969854789642, 0.45)
    pt3dadd(-62.7786615937354, 761.953591427212, 236.338557687751, 0.45)
    pt3dadd(-62.8681780516023, 762.878818413793, 236.707260585859, 0.45)
    pt3dadd(-62.9576945094691, 763.804045400373, 237.075963483968, 0.45)
    pt3dadd(-63.0472109673359, 764.729272386954, 237.444666382077, 0.45)
    pt3dadd(-63.1367274252027, 765.654499373535, 237.813369280186, 0.45)
    pt3dadd(-63.2262438830696, 766.579726360115, 238.182072178295, 0.45)
    pt3dadd(-63.3157603409364, 767.504953346696, 238.550775076404, 0.45)
    pt3dadd(-63.4052767988032, 768.430180333277, 238.919477974512, 0.45)
    pt3dadd(-63.49479325667, 769.355407319857, 239.288180872621, 0.45)
    pt3dadd(-63.5843097145368, 770.280634306438, 239.65688377073, 0.45)
    pt3dadd(-63.6738261724037, 771.205861293019, 240.025586668839, 0.45)
    pt3dadd(-63.7633426302705, 772.131088279599, 240.394289566948, 0.45)
  }
}
proc shape3d_21() {
  axon[0] {
    pt3dadd(-63.8528590881373, 773.05631526618, 240.762992465056, 0.45)
    pt3dadd(-63.9423755460041, 773.981542252761, 241.131695363165, 0.45)
    pt3dadd(-64.031892003871, 774.906769239341, 241.500398261274, 0.45)
    pt3dadd(-64.1214084617378, 775.831996225922, 241.869101159383, 0.45)
    pt3dadd(-64.2109249196046, 776.757223212503, 242.237804057492, 0.45)
    pt3dadd(-64.3004413774714, 777.682450199083, 242.606506955601, 0.45)
    pt3dadd(-64.3899578353383, 778.607677185664, 242.975209853709, 0.45)
    pt3dadd(-64.4794742932051, 779.532904172245, 243.343912751818, 0.45)
    pt3dadd(-64.5689907510719, 780.458131158825, 243.712615649927, 0.45)
    pt3dadd(-64.6585072089387, 781.383358145406, 244.081318548036, 0.45)
    pt3dadd(-64.7480236668056, 782.308585131987, 244.450021446145, 0.45)
    pt3dadd(-64.8375401246724, 783.233812118567, 244.818724344253, 0.45)
    pt3dadd(-64.9270565825392, 784.159039105148, 245.187427242362, 0.45)
    pt3dadd(-65.016573040406, 785.084266091729, 245.556130140471, 0.45)
    pt3dadd(-65.1060894982729, 786.009493078309, 245.92483303858, 0.45)
    pt3dadd(-65.1956059561397, 786.93472006489, 246.293535936689, 0.45)
    pt3dadd(-65.2851224140065, 787.859947051471, 246.662238834797, 0.45)
    pt3dadd(-65.3746388718733, 788.785174038051, 247.030941732906, 0.45)
    pt3dadd(-65.4641553297401, 789.710401024632, 247.399644631015, 0.45)
    pt3dadd(-65.553671787607, 790.635628011213, 247.768347529124, 0.45)
    pt3dadd(-65.6431882454738, 791.560854997793, 248.137050427233, 0.45)
    pt3dadd(-65.7327047033406, 792.486081984374, 248.505753325342, 0.45)
    pt3dadd(-65.8222211612074, 793.411308970955, 248.87445622345, 0.45)
    pt3dadd(-65.9117376190743, 794.336535957535, 249.243159121559, 0.45)
    pt3dadd(-66.0012540769411, 795.261762944116, 249.611862019668, 0.45)
    pt3dadd(-66.0907705348079, 796.186989930697, 249.980564917777, 0.45)
    pt3dadd(-66.1802869926747, 797.112216917277, 250.349267815886, 0.45)
    pt3dadd(-66.2698034505416, 798.037443903858, 250.717970713994, 0.45)
    pt3dadd(-66.3593199084084, 798.962670890439, 251.086673612103, 0.45)
    pt3dadd(-66.4488363662752, 799.887897877019, 251.455376510212, 0.45)
    pt3dadd(-66.538352824142, 800.8131248636, 251.824079408321, 0.45)
    pt3dadd(-66.6278692820088, 801.73835185018, 252.19278230643, 0.45)
    pt3dadd(-66.7173857398757, 802.663578836761, 252.561485204539, 0.45)
    pt3dadd(-66.8069021977425, 803.588805823342, 252.930188102647, 0.45)
    pt3dadd(-66.8964186556093, 804.514032809922, 253.298891000756, 0.45)
    pt3dadd(-66.9859351134761, 805.439259796503, 253.667593898865, 0.45)
    pt3dadd(-67.075451571343, 806.364486783084, 254.036296796974, 0.45)
    pt3dadd(-67.1649680292098, 807.289713769665, 254.404999695083, 0.45)
    pt3dadd(-67.2544844870766, 808.214940756245, 254.773702593191, 0.45)
    pt3dadd(-67.3440009449434, 809.140167742826, 255.1424054913, 0.45)
    pt3dadd(-67.4335174028103, 810.065394729407, 255.511108389409, 0.45)
    pt3dadd(-67.5230338606771, 810.990621715987, 255.879811287518, 0.45)
    pt3dadd(-67.6125503185439, 811.915848702568, 256.248514185627, 0.45)
    pt3dadd(-67.7020667764107, 812.841075689149, 256.617217083735, 0.45)
    pt3dadd(-67.7915832342776, 813.766302675729, 256.985919981844, 0.45)
    pt3dadd(-67.8810996921444, 814.69152966231, 257.354622879953, 0.45)
    pt3dadd(-67.9706161500112, 815.61675664889, 257.723325778062, 0.45)
    pt3dadd(-68.060132607878, 816.541983635471, 258.092028676171, 0.45)
    pt3dadd(-68.1496490657449, 817.467210622052, 258.46073157428, 0.45)
    pt3dadd(-68.2391655236117, 818.392437608632, 258.829434472388, 0.45)
    pt3dadd(-68.3286819814785, 819.317664595213, 259.198137370497, 0.45)
    pt3dadd(-68.4181984393453, 820.242891581794, 259.566840268606, 0.45)
    pt3dadd(-68.5077148972122, 821.168118568374, 259.935543166715, 0.45)
    pt3dadd(-68.597231355079, 822.093345554955, 260.304246064824, 0.45)
    pt3dadd(-68.6867478129458, 823.018572541536, 260.672948962932, 0.45)
    pt3dadd(-68.7762642708126, 823.943799528117, 261.041651861041, 0.45)
    pt3dadd(-68.8657807286795, 824.869026514697, 261.41035475915, 0.45)
    pt3dadd(-68.9552971865463, 825.794253501278, 261.779057657259, 0.45)
    pt3dadd(-69.0448136444131, 826.719480487859, 262.147760555368, 0.45)
    pt3dadd(-69.1343301022799, 827.644707474439, 262.516463453477, 0.45)
    pt3dadd(-69.2238465601467, 828.56993446102, 262.885166351585, 0.45)
    pt3dadd(-69.3133630180136, 829.4951614476, 263.253869249694, 0.45)
    pt3dadd(-69.4028794758804, 830.420388434181, 263.622572147803, 0.45)
    pt3dadd(-69.4923959337472, 831.345615420762, 263.991275045912, 0.45)
    pt3dadd(-69.581912391614, 832.270842407342, 264.359977944021, 0.45)
    pt3dadd(-69.6714288494809, 833.196069393923, 264.728680842129, 0.45)
    pt3dadd(-69.7609453073477, 834.121296380504, 265.097383740238, 0.45)
    pt3dadd(-69.8504617652145, 835.046523367084, 265.466086638347, 0.45)
    pt3dadd(-69.9399782230813, 835.971750353665, 265.834789536456, 0.45)
    pt3dadd(-70.0294946809481, 836.896977340246, 266.203492434565, 0.45)
    pt3dadd(-70.119011138815, 837.822204326826, 266.572195332674, 0.45)
    pt3dadd(-70.2085275966818, 838.747431313407, 266.940898230782, 0.45)
    pt3dadd(-70.2980440545486, 839.672658299988, 267.309601128891, 0.45)
    pt3dadd(-70.3875605124154, 840.597885286569, 267.678304027, 0.45)
    pt3dadd(-70.4770769702823, 841.523112273149, 268.047006925109, 0.45)
    pt3dadd(-70.5665934281491, 842.44833925973, 268.415709823218, 0.45)
    pt3dadd(-70.6561098860159, 843.37356624631, 268.784412721326, 0.45)
    pt3dadd(-70.7456263438827, 844.298793232891, 269.153115619435, 0.45)
    pt3dadd(-70.8351428017496, 845.224020219472, 269.521818517544, 0.45)
    pt3dadd(-70.9246592596164, 846.149247206052, 269.890521415653, 0.45)
    pt3dadd(-71.0141757174832, 847.074474192633, 270.259224313762, 0.45)
    pt3dadd(-71.10369217535, 847.999701179214, 270.62792721187, 0.45)
    pt3dadd(-71.1932086332169, 848.924928165794, 270.996630109979, 0.45)
    pt3dadd(-71.2827250910837, 849.850155152375, 271.365333008088, 0.45)
    pt3dadd(-71.3722415489505, 850.775382138956, 271.734035906197, 0.45)
    pt3dadd(-71.4617580068173, 851.700609125536, 272.102738804306, 0.45)
    pt3dadd(-71.5512744646842, 852.625836112117, 272.471441702415, 0.45)
    pt3dadd(-71.640790922551, 853.551063098698, 272.840144600523, 0.45)
    pt3dadd(-71.7303073804178, 854.476290085278, 273.208847498632, 0.45)
    pt3dadd(-71.8198238382846, 855.401517071859, 273.577550396741, 0.45)
    pt3dadd(-71.9093402961515, 856.32674405844, 273.94625329485, 0.45)
    pt3dadd(-71.9988567540183, 857.25197104502, 274.314956192959, 0.45)
    pt3dadd(-72.0883732118851, 858.177198031601, 274.683659091067, 0.45)
    pt3dadd(-72.1778896697519, 859.102425018182, 275.052361989176, 0.45)
    pt3dadd(-72.2674061276188, 860.027652004762, 275.421064887285, 0.45)
    pt3dadd(-72.3569225854856, 860.952878991343, 275.789767785394, 0.45)
    pt3dadd(-72.4464390433524, 861.878105977924, 276.158470683503, 0.45)
    pt3dadd(-72.5359555012192, 862.803332964504, 276.527173581612, 0.45)
    pt3dadd(-72.625471959086, 863.728559951085, 276.89587647972, 0.45)
    pt3dadd(-72.7149884169529, 864.653786937666, 277.264579377829, 0.45)
    pt3dadd(-72.8045048748197, 865.579013924246, 277.633282275938, 0.45)
    pt3dadd(-72.8940213326865, 866.504240910827, 278.001985174047, 0.45)
    pt3dadd(-72.9835377905533, 867.429467897408, 278.370688072156, 0.45)
    pt3dadd(-73.0730542484202, 868.354694883988, 278.739390970264, 0.45)
    pt3dadd(-73.162570706287, 869.279921870569, 279.108093868373, 0.45)
    pt3dadd(-73.2520871641538, 870.20514885715, 279.476796766482, 0.45)
    pt3dadd(-73.3416036220206, 871.13037584373, 279.845499664591, 0.45)
    pt3dadd(-73.4311200798875, 872.055602830311, 280.2142025627, 0.45)
    pt3dadd(-73.5206365377543, 872.980829816892, 280.582905460808, 0.45)
    pt3dadd(-73.6101529956211, 873.906056803472, 280.951608358917, 0.45)
    pt3dadd(-73.6996694534879, 874.831283790053, 281.320311257026, 0.45)
    pt3dadd(-73.7891859113548, 875.756510776634, 281.689014155135, 0.45)
    pt3dadd(-73.8787023692216, 876.681737763214, 282.057717053244, 0.45)
    pt3dadd(-73.9682188270884, 877.606964749795, 282.426419951353, 0.45)
    pt3dadd(-74.0577352849552, 878.532191736376, 282.795122849461, 0.45)
    pt3dadd(-74.1472517428221, 879.457418722956, 283.16382574757, 0.45)
    pt3dadd(-74.2367682006889, 880.382645709537, 283.532528645679, 0.45)
    pt3dadd(-74.3262846585557, 881.307872696118, 283.901231543788, 0.45)
    pt3dadd(-74.4158011164225, 882.233099682698, 284.269934441897, 0.45)
    pt3dadd(-74.5053175742894, 883.158326669279, 284.638637340005, 0.45)
    pt3dadd(-74.5948340321562, 884.08355365586, 285.007340238114, 0.45)
    pt3dadd(-74.684350490023, 885.00878064244, 285.376043136223, 0.45)
    pt3dadd(-74.7738669478898, 885.934007629021, 285.744746034332, 0.45)
    pt3dadd(-74.8633834057566, 886.859234615602, 286.113448932441, 0.45)
    pt3dadd(-74.9528998636235, 887.784461602182, 286.48215183055, 0.45)
    pt3dadd(-75.0424163214903, 888.709688588763, 286.850854728658, 0.45)
    pt3dadd(-75.1319327793571, 889.634915575344, 287.219557626767, 0.45)
    pt3dadd(-75.2214492372239, 890.560142561924, 287.588260524876, 0.45)
    pt3dadd(-75.3109656950908, 891.485369548505, 287.956963422985, 0.45)
    pt3dadd(-75.4004821529576, 892.410596535086, 288.325666321094, 0.45)
    pt3dadd(-75.4899986108244, 893.335823521666, 288.694369219202, 0.45)
    pt3dadd(-75.5795150686912, 894.261050508247, 289.063072117311, 0.45)
    pt3dadd(-75.6690315265581, 895.186277494828, 289.43177501542, 0.45)
    pt3dadd(-75.7585479844249, 896.111504481408, 289.800477913529, 0.45)
    pt3dadd(-75.8480644422917, 897.036731467989, 290.169180811638, 0.45)
    pt3dadd(-75.9375809001585, 897.96195845457, 290.537883709747, 0.45)
    pt3dadd(-76.0270973580253, 898.88718544115, 290.906586607855, 0.45)
    pt3dadd(-76.1166138158922, 899.812412427731, 291.275289505964, 0.45)
    pt3dadd(-76.206130273759, 900.737639414312, 291.643992404073, 0.45)
    pt3dadd(-76.2956467316258, 901.662866400892, 292.012695302182, 0.45)
    pt3dadd(-76.3851631894926, 902.588093387473, 292.381398200291, 0.45)
    pt3dadd(-76.4746796473595, 903.513320374054, 292.750101098399, 0.45)
    pt3dadd(-76.5641961052263, 904.438547360634, 293.118803996508, 0.45)
    pt3dadd(-76.6537125630931, 905.363774347215, 293.487506894617, 0.45)
    pt3dadd(-76.7432290209599, 906.289001333796, 293.856209792726, 0.45)
    pt3dadd(-76.8327454788268, 907.214228320376, 294.224912690835, 0.45)
    pt3dadd(-76.9222619366936, 908.139455306957, 294.593615588943, 0.45)
    pt3dadd(-77.0117783945604, 909.064682293538, 294.962318487052, 0.45)
    pt3dadd(-77.1012948524272, 909.989909280118, 295.331021385161, 0.45)
    pt3dadd(-77.1908113102941, 910.915136266699, 295.69972428327, 0.45)
    pt3dadd(-77.2803277681609, 911.84036325328, 296.068427181379, 0.45)
    pt3dadd(-77.3698442260277, 912.76559023986, 296.437130079488, 0.45)
    pt3dadd(-77.4593606838945, 913.690817226441, 296.805832977596, 0.45)
    pt3dadd(-77.5488771417614, 914.616044213022, 297.174535875705, 0.45)
    pt3dadd(-77.6383935996282, 915.541271199602, 297.543238773814, 0.45)
    pt3dadd(-77.727910057495, 916.466498186183, 297.911941671923, 0.45)
    pt3dadd(-77.8174265153618, 917.391725172764, 298.280644570032, 0.45)
    pt3dadd(-77.9069429732287, 918.316952159344, 298.64934746814, 0.45)
    pt3dadd(-77.9964594310955, 919.242179145925, 299.018050366249, 0.45)
    pt3dadd(-78.0859758889623, 920.167406132506, 299.386753264358, 0.45)
    pt3dadd(-78.1754923468291, 921.092633119086, 299.755456162467, 0.45)
    pt3dadd(-78.265008804696, 922.017860105667, 300.124159060576, 0.45)
    pt3dadd(-78.3545252625628, 922.943087092248, 300.492861958685, 0.45)
    pt3dadd(-78.4440417204296, 923.868314078828, 300.861564856793, 0.45)
    pt3dadd(-78.5335581782964, 924.793541065409, 301.230267754902, 0.45)
    pt3dadd(-78.6230746361632, 925.71876805199, 301.598970653011, 0.45)
    pt3dadd(-78.7125910940301, 926.64399503857, 301.96767355112, 0.45)
    pt3dadd(-78.8021075518969, 927.569222025151, 302.336376449229, 0.45)
    pt3dadd(-78.8916240097637, 928.494449011732, 302.705079347337, 0.45)
    pt3dadd(-78.9811404676305, 929.419675998312, 303.073782245446, 0.45)
    pt3dadd(-79.0706569254974, 930.344902984893, 303.442485143555, 0.45)
    pt3dadd(-79.1601733833642, 931.270129971474, 303.811188041664, 0.45)
    pt3dadd(-79.249689841231, 932.195356958054, 304.179890939773, 0.45)
    pt3dadd(-79.3392062990978, 933.120583944635, 304.548593837881, 0.45)
    pt3dadd(-79.4287227569647, 934.045810931216, 304.91729673599, 0.45)
    pt3dadd(-79.5182392148315, 934.971037917796, 305.285999634099, 0.45)
    pt3dadd(-79.6077556726983, 935.896264904377, 305.654702532208, 0.45)
    pt3dadd(-79.6972721305651, 936.821491890958, 306.023405430317, 0.45)
    pt3dadd(-79.7867885884319, 937.746718877538, 306.392108328426, 0.45)
    pt3dadd(-79.8763050462988, 938.671945864119, 306.760811226534, 0.45)
    pt3dadd(-79.9658215041656, 939.5971728507, 307.129514124643, 0.45)
    pt3dadd(-80.0553379620324, 940.52239983728, 307.498217022752, 0.45)
    pt3dadd(-80.1448544198992, 941.447626823861, 307.866919920861, 0.45)
    pt3dadd(-80.2343708777661, 942.372853810442, 308.23562281897, 0.45)
    pt3dadd(-80.3238873356329, 943.298080797022, 308.604325717078, 0.45)
    pt3dadd(-80.4134037934997, 944.223307783603, 308.973028615187, 0.45)
    pt3dadd(-80.5029202513665, 945.148534770184, 309.341731513296, 0.45)
    pt3dadd(-80.5924367092334, 946.073761756764, 309.710434411405, 0.45)
    pt3dadd(-80.6819531671002, 946.998988743345, 310.079137309514, 0.45)
    pt3dadd(-80.771469624967, 947.924215729926, 310.447840207623, 0.45)
    pt3dadd(-80.8609860828338, 948.849442716506, 310.816543105731, 0.45)
    pt3dadd(-80.9505025407007, 949.774669703087, 311.18524600384, 0.45)
    pt3dadd(-81.0400189985675, 950.699896689668, 311.553948901949, 0.45)
    pt3dadd(-81.1295354564343, 951.625123676248, 311.922651800058, 0.45)
    pt3dadd(-81.2190519143011, 952.550350662829, 312.291354698167, 0.45)
    pt3dadd(-81.308568372168, 953.47557764941, 312.660057596275, 0.45)
    pt3dadd(-81.3980848300348, 954.40080463599, 313.028760494384, 0.45)
    pt3dadd(-81.4876012879016, 955.326031622571, 313.397463392493, 0.45)
    pt3dadd(-81.5771177457684, 956.251258609151, 313.766166290602, 0.45)
    pt3dadd(-81.6666342036353, 957.176485595732, 314.134869188711, 0.45)
    pt3dadd(-81.7561506615021, 958.101712582313, 314.503572086819, 0.45)
    pt3dadd(-81.8456671193689, 959.026939568894, 314.872274984928, 0.45)
    pt3dadd(-81.9351835772357, 959.952166555474, 315.240977883037, 0.45)
    pt3dadd(-82.0247000351025, 960.877393542055, 315.609680781146, 0.45)
    pt3dadd(-82.1142164929694, 961.802620528636, 315.978383679255, 0.45)
    pt3dadd(-82.2037329508362, 962.727847515216, 316.347086577364, 0.45)
    pt3dadd(-82.293249408703, 963.653074501797, 316.715789475472, 0.45)
    pt3dadd(-82.3827658665698, 964.578301488378, 317.084492373581, 0.45)
    pt3dadd(-82.4722823244367, 965.503528474958, 317.45319527169, 0.45)
    pt3dadd(-82.5617987823035, 966.428755461539, 317.821898169799, 0.45)
    pt3dadd(-82.6513152401703, 967.35398244812, 318.190601067908, 0.45)
    pt3dadd(-82.7408316980371, 968.2792094347, 318.559303966016, 0.45)
    pt3dadd(-82.830348155904, 969.204436421281, 318.928006864125, 0.45)
    pt3dadd(-82.9198646137708, 970.129663407861, 319.296709762234, 0.45)
    pt3dadd(-83.0093810716376, 971.054890394442, 319.665412660343, 0.45)
    pt3dadd(-83.0988975295044, 971.980117381023, 320.034115558452, 0.45)
    pt3dadd(-83.1884139873713, 972.905344367603, 320.402818456561, 0.45)
    pt3dadd(-83.2779304452381, 973.830571354184, 320.771521354669, 0.45)
    pt3dadd(-83.3674469031049, 974.755798340765, 321.140224252778, 0.45)
    pt3dadd(-83.4569633609717, 975.681025327346, 321.508927150887, 0.45)
    pt3dadd(-83.5464798188385, 976.606252313926, 321.877630048996, 0.45)
    pt3dadd(-83.6359962767054, 977.531479300507, 322.246332947105, 0.45)
    pt3dadd(-83.7255127345722, 978.456706287088, 322.615035845213, 0.45)
    pt3dadd(-83.815029192439, 979.381933273668, 322.983738743322, 0.45)
    pt3dadd(-83.9045456503058, 980.307160260249, 323.352441641431, 0.45)
    pt3dadd(-83.9940621081727, 981.232387246829, 323.72114453954, 0.45)
    pt3dadd(-84.0835785660395, 982.15761423341, 324.089847437649, 0.45)
    pt3dadd(-84.1730950239063, 983.082841219991, 324.458550335757, 0.45)
    pt3dadd(-84.2626114817731, 984.008068206571, 324.827253233866, 0.45)
    pt3dadd(-84.35212793964, 984.933295193152, 325.195956131975, 0.45)
    pt3dadd(-84.4416443975068, 985.858522179733, 325.564659030084, 0.45)
    pt3dadd(-84.5311608553736, 986.783749166313, 325.933361928193, 0.45)
    pt3dadd(-84.6206773132404, 987.708976152894, 326.302064826302, 0.45)
    pt3dadd(-84.7101937711073, 988.634203139475, 326.67076772441, 0.45)
    pt3dadd(-84.7997102289741, 989.559430126055, 327.039470622519, 0.45)
    pt3dadd(-84.8892266868409, 990.484657112636, 327.408173520628, 0.45)
    pt3dadd(-84.9787431447077, 991.409884099217, 327.776876418737, 0.45)
    pt3dadd(-85.0682596025746, 992.335111085798, 328.145579316846, 0.45)
    pt3dadd(-85.1577760604414, 993.260338072378, 328.514282214954, 0.45)
    pt3dadd(-85.2472925183082, 994.185565058959, 328.882985113063, 0.45)
    pt3dadd(-85.336808976175, 995.110792045539, 329.251688011172, 0.45)
    pt3dadd(-85.4263254340419, 996.03601903212, 329.620390909281, 0.45)
    pt3dadd(-85.5158418919087, 996.961246018701, 329.98909380739, 0.45)
    pt3dadd(-85.6053583497755, 997.886473005281, 330.357796705499, 0.45)
    pt3dadd(-85.6948748076423, 998.811699991862, 330.726499603607, 0.45)
    pt3dadd(-85.7843912655091, 999.736926978443, 331.095202501716, 0.45)
    pt3dadd(-85.873907723376, 1000.66215396502, 331.463905399825, 0.45)
    pt3dadd(-85.9634241812428, 1001.5873809516, 331.832608297934, 0.45)
    pt3dadd(-86.0529406391096, 1002.51260793818, 332.201311196043, 0.45)
  }
}
proc shape3d_22() {
  axon[0] {
    pt3dadd(-86.1424570969764, 1003.43783492477, 332.570014094151, 0.45)
    pt3dadd(-86.2319735548433, 1004.36306191135, 332.93871699226, 0.45)
    pt3dadd(-86.3214900127101, 1005.28828889793, 333.307419890369, 0.45)
    pt3dadd(-86.4110064705769, 1006.21351588451, 333.676122788478, 0.45)
    pt3dadd(-86.5005229284437, 1007.13874287109, 334.044825686587, 0.45)
    pt3dadd(-86.5900393863106, 1008.06396985767, 334.413528584696, 0.45)
    pt3dadd(-86.6795558441774, 1008.98919684425, 334.782231482804, 0.45)
    pt3dadd(-86.7690723020442, 1009.91442383083, 335.150934380913, 0.45)
    pt3dadd(-86.858588759911, 1010.83965081741, 335.519637279022, 0.45)
    pt3dadd(-86.9481052177779, 1011.76487780399, 335.888340177131, 0.45)
    pt3dadd(-87.0376216756447, 1012.69010479057, 336.25704307524, 0.45)
    pt3dadd(-87.1271381335115, 1013.61533177715, 336.625745973348, 0.45)
    pt3dadd(-87.2166545913783, 1014.54055876373, 336.994448871457, 0.45)
    pt3dadd(-87.3061710492452, 1015.46578575031, 337.363151769566, 0.45)
    pt3dadd(-87.395687507112, 1016.39101273689, 337.731854667675, 0.45)
    pt3dadd(-87.4852039649788, 1017.31623972348, 338.100557565784, 0.45)
    pt3dadd(-87.5747204228456, 1018.24146671006, 338.469260463893, 0.45)
    pt3dadd(-87.6642368807125, 1019.16669369664, 338.837963362001, 0.45)
    pt3dadd(-87.7537533385793, 1020.09192068322, 339.20666626011, 0.45)
    pt3dadd(-87.8432697964461, 1021.0171476698, 339.575369158219, 0.45)
    pt3dadd(-87.9327862543129, 1021.94237465638, 339.944072056328, 0.45)
    pt3dadd(-88.0223027121797, 1022.86760164296, 340.312774954437, 0.45)
    pt3dadd(-88.1118191700466, 1023.79282862954, 340.681477852545, 0.45)
    pt3dadd(-88.2013356279134, 1024.71805561612, 341.050180750654, 0.45)
    pt3dadd(-88.2908520857802, 1025.6432826027, 341.418883648763, 0.45)
    pt3dadd(-88.380368543647, 1026.56850958928, 341.787586546872, 0.45)
    pt3dadd(-88.4698850015139, 1027.49373657586, 342.156289444981, 0.45)
    pt3dadd(-88.5594014593807, 1028.41896356244, 342.524992343089, 0.45)
    pt3dadd(-88.6489179172475, 1029.34419054902, 342.893695241198, 0.45)
    pt3dadd(-88.7384343751143, 1030.2694175356, 343.262398139307, 0.45)
    pt3dadd(-88.8279508329812, 1031.19464452219, 343.631101037416, 0.45)
    pt3dadd(-88.917467290848, 1032.11987150877, 343.999803935525, 0.45)
    pt3dadd(-89.0069837487148, 1033.04509849535, 344.368506833634, 0.45)
    pt3dadd(-89.0965002065816, 1033.97032548193, 344.737209731742, 0.45)
    pt3dadd(-89.1860166644485, 1034.89555246851, 345.105912629851, 0.45)
    pt3dadd(-89.2755331223153, 1035.82077945509, 345.47461552796, 0.45)
    pt3dadd(-89.3650495801821, 1036.74600644167, 345.843318426069, 0.45)
    pt3dadd(-89.4545660380489, 1037.67123342825, 346.212021324178, 0.45)
    pt3dadd(-89.5440824959157, 1038.59646041483, 346.580724222286, 0.45)
    pt3dadd(-89.6335989537826, 1039.52168740141, 346.949427120395, 0.45)
    pt3dadd(-89.7231154116494, 1040.44691438799, 347.318130018504, 0.45)
    pt3dadd(-89.8126318695162, 1041.37214137457, 347.686832916613, 0.45)
    pt3dadd(-89.902148327383, 1042.29736836115, 348.055535814722, 0.45)
    pt3dadd(-89.9916647852499, 1043.22259534773, 348.424238712831, 0.45)
    pt3dadd(-90.0811812431167, 1044.14782233431, 348.792941610939, 0.45)
    pt3dadd(-90.1706977009835, 1045.0730493209, 349.161644509048, 0.45)
    pt3dadd(-90.2602141588503, 1045.99827630748, 349.530347407157, 0.45)
    pt3dadd(-90.3497306167172, 1046.92350329406, 349.899050305266, 0.45)
    pt3dadd(-90.439247074584, 1047.84873028064, 350.267753203375, 0.45)
    pt3dadd(-90.5287635324508, 1048.77395726722, 350.636456101483, 0.45)
    pt3dadd(-90.6182799903176, 1049.6991842538, 351.005158999592, 0.45)
    pt3dadd(-90.7077964481845, 1050.62441124038, 351.373861897701, 0.45)
    pt3dadd(-90.7973129060513, 1051.54963822696, 351.74256479581, 0.45)
    pt3dadd(-90.8868293639181, 1052.47486521354, 352.111267693919, 0.45)
    pt3dadd(-90.9763458217849, 1053.40009220012, 352.479970592027, 0.45)
    pt3dadd(-91.0658622796518, 1054.3253191867, 352.848673490136, 0.45)
    pt3dadd(-91.1553787375186, 1055.25054617328, 353.217376388245, 0.45)
    pt3dadd(-91.2448951953854, 1056.17577315986, 353.586079286354, 0.45)
    pt3dadd(-91.3344116532522, 1057.10100014644, 353.954782184463, 0.45)
    pt3dadd(-91.4239281111191, 1058.02622713302, 354.323485082572, 0.45)
    pt3dadd(-91.5134445689859, 1058.95145411961, 354.69218798068, 0.45)
    pt3dadd(-91.6029610268527, 1059.87668110619, 355.060890878789, 0.45)
    pt3dadd(-91.6924774847195, 1060.80190809277, 355.429593776898, 0.45)
    pt3dadd(-91.7819939425863, 1061.72713507935, 355.798296675007, 0.45)
    pt3dadd(-91.8715104004532, 1062.65236206593, 356.166999573116, 0.45)
    pt3dadd(-91.96102685832, 1063.57758905251, 356.535702471224, 0.45)
    pt3dadd(-92.0505433161868, 1064.50281603909, 356.904405369333, 0.45)
    pt3dadd(-92.1400597740536, 1065.42804302567, 357.273108267442, 0.45)
    pt3dadd(-92.2295762319205, 1066.35327001225, 357.641811165551, 0.45)
    pt3dadd(-92.3190926897873, 1067.27849699883, 358.01051406366, 0.45)
    pt3dadd(-92.4086091476541, 1068.20372398541, 358.379216961769, 0.45)
    pt3dadd(-92.4981256055209, 1069.12895097199, 358.747919859877, 0.45)
    pt3dadd(-92.5876420633878, 1070.05417795857, 359.116622757986, 0.45)
    pt3dadd(-92.6771585212546, 1070.97940494515, 359.485325656095, 0.45)
    pt3dadd(-92.7666749791214, 1071.90463193173, 359.854028554204, 0.45)
    pt3dadd(-92.8561914369882, 1072.82985891832, 360.222731452313, 0.45)
    pt3dadd(-92.945707894855, 1073.7550859049, 360.591434350421, 0.45)
    pt3dadd(-93.0352243527219, 1074.68031289148, 360.96013724853, 0.45)
    pt3dadd(-93.1247408105887, 1075.60553987806, 361.328840146639, 0.45)
    pt3dadd(-93.2142572684555, 1076.53076686464, 361.697543044748, 0.45)
    pt3dadd(-93.3037737263223, 1077.45599385122, 362.066245942857, 0.45)
    pt3dadd(-93.3932901841892, 1078.3812208378, 362.434948840965, 0.45)
    pt3dadd(-93.482806642056, 1079.30644782438, 362.803651739074, 0.45)
    pt3dadd(-93.5723230999228, 1080.23167481096, 363.172354637183, 0.45)
    pt3dadd(-93.6618395577896, 1081.15690179754, 363.541057535292, 0.45)
    pt3dadd(-93.7513560156565, 1082.08212878412, 363.909760433401, 0.45)
    pt3dadd(-93.8408724735233, 1083.0073557707, 364.27846333151, 0.45)
    pt3dadd(-93.9303889313901, 1083.93258275728, 364.647166229618, 0.45)
    pt3dadd(-94.0199053892569, 1084.85780974386, 365.015869127727, 0.45)
    pt3dadd(-94.1094218471238, 1085.78303673044, 365.384572025836, 0.45)
    pt3dadd(-94.1989383049906, 1086.70826371703, 365.753274923945, 0.45)
    pt3dadd(-94.2884547628574, 1087.63349070361, 366.121977822054, 0.45)
    pt3dadd(-94.3779712207242, 1088.55871769019, 366.490680720162, 0.45)
    pt3dadd(-94.4674876785911, 1089.48394467677, 366.859383618271, 0.45)
    pt3dadd(-94.5570041364579, 1090.40917166335, 367.22808651638, 0.45)
    pt3dadd(-94.6465205943247, 1091.33439864993, 367.596789414489, 0.45)
    pt3dadd(-94.7360370521915, 1092.25962563651, 367.965492312598, 0.45)
    pt3dadd(-94.8255535100584, 1093.18485262309, 368.334195210707, 0.45)
    pt3dadd(-94.9150699679252, 1094.11007960967, 368.702898108815, 0.45)
    pt3dadd(-95.004586425792, 1095.03530659625, 369.071601006924, 0.45)
    pt3dadd(-95.0941028836588, 1095.96053358283, 369.440303905033, 0.45)
    pt3dadd(-95.1836193415257, 1096.88576056941, 369.809006803142, 0.45)
    pt3dadd(-95.2731357993925, 1097.81098755599, 370.177709701251, 0.45)
    pt3dadd(-95.3626522572593, 1098.73621454257, 370.546412599359, 0.45)
    pt3dadd(-95.4521687151261, 1099.66144152915, 370.915115497468, 0.45)
    pt3dadd(-95.5416851729929, 1100.58666851574, 371.283818395577, 0.45)
    pt3dadd(-95.6312016308598, 1101.51189550232, 371.652521293686, 0.45)
    pt3dadd(-95.7207180887266, 1102.4371224889, 372.021224191795, 0.45)
    pt3dadd(-95.8102345465934, 1103.36234947548, 372.389927089903, 0.45)
    pt3dadd(-95.8997510044602, 1104.28757646206, 372.758629988012, 0.45)
    pt3dadd(-95.9892674623271, 1105.21280344864, 373.127332886121, 0.45)
    pt3dadd(-96.0787839201939, 1106.13803043522, 373.49603578423, 0.45)
    pt3dadd(-96.1683003780607, 1107.0632574218, 373.864738682339, 0.45)
    pt3dadd(-96.2578168359275, 1107.98848440838, 374.233441580448, 0.45)
    pt3dadd(-96.3473332937944, 1108.91371139496, 374.602144478556, 0.45)
    pt3dadd(-96.4368497516612, 1109.83893838154, 374.970847376665, 0.45)
    pt3dadd(-96.526366209528, 1110.76416536812, 375.339550274774, 0.45)
    pt3dadd(-96.6158826673948, 1111.6893923547, 375.708253172883, 0.45)
    pt3dadd(-96.7053991252617, 1112.61461934128, 376.076956070992, 0.45)
    pt3dadd(-96.7949155831285, 1113.53984632786, 376.4456589691, 0.45)
    pt3dadd(-96.8844320409953, 1114.46507331445, 376.814361867209, 0.45)
    pt3dadd(-96.9739484988621, 1115.39030030103, 377.183064765318, 0.45)
    pt3dadd(-97.063464956729, 1116.31552728761, 377.551767663427, 0.45)
    pt3dadd(-97.1529814145958, 1117.24075427419, 377.920470561536, 0.45)
    pt3dadd(-97.2424978724626, 1118.16598126077, 378.289173459645, 0.45)
    pt3dadd(-97.3320143303294, 1119.09120824735, 378.657876357753, 0.45)
    pt3dadd(-97.4215307881963, 1120.01643523393, 379.026579255862, 0.45)
    pt3dadd(-97.5110472460631, 1120.94166222051, 379.395282153971, 0.45)
    pt3dadd(-97.6005637039299, 1121.86688920709, 379.76398505208, 0.45)
    pt3dadd(-97.6900801617967, 1122.79211619367, 380.132687950189, 0.45)
    pt3dadd(-97.7795966196635, 1123.71734318025, 380.501390848297, 0.45)
    pt3dadd(-97.8691130775304, 1124.64257016683, 380.870093746406, 0.45)
    pt3dadd(-97.9586295353972, 1125.56779715341, 381.238796644515, 0.45)
    pt3dadd(-98.048145993264, 1126.49302413999, 381.607499542624, 0.45)
    pt3dadd(-98.1376624511308, 1127.41825112657, 381.976202440733, 0.45)
    pt3dadd(-98.2271789089977, 1128.34347811316, 382.344905338842, 0.45)
    pt3dadd(-98.3166953668645, 1129.26870509974, 382.71360823695, 0.45)
    pt3dadd(-98.4062118247313, 1130.19393208632, 383.082311135059, 0.45)
    pt3dadd(-98.4957282825981, 1131.1191590729, 383.451014033168, 0.45)
    pt3dadd(-98.585244740465, 1132.04438605948, 383.819716931277, 0.45)
    pt3dadd(-98.6747611983318, 1132.96961304606, 384.188419829386, 0.45)
    pt3dadd(-98.7642776561986, 1133.89484003264, 384.557122727494, 0.45)
    pt3dadd(-98.8537941140654, 1134.82006701922, 384.925825625603, 0.45)
    pt3dadd(-98.9433105719322, 1135.7452940058, 385.294528523712, 0.45)
    pt3dadd(-99.0328270297991, 1136.67052099238, 385.663231421821, 0.45)
    pt3dadd(-99.1223434876659, 1137.59574797896, 386.03193431993, 0.45)
    pt3dadd(-99.2118599455327, 1138.52097496554, 386.400637218038, 0.45)
    pt3dadd(-99.3013764033995, 1139.44620195212, 386.769340116147, 0.45)
    pt3dadd(-99.3908928612664, 1140.3714289387, 387.138043014256, 0.45)
    pt3dadd(-99.4804093191332, 1141.29665592528, 387.506745912365, 0.45)
    pt3dadd(-99.569925777, 1142.22188291187, 387.875448810474, 0.45)
    pt3dadd(-99.6594422348668, 1143.14710989845, 388.244151708583, 0.45)
    pt3dadd(-99.7489586927337, 1144.07233688503, 388.612854606691, 0.45)
    pt3dadd(-99.8384751506005, 1144.99756387161, 388.9815575048, 0.45)
    pt3dadd(-99.9279916084673, 1145.92279085819, 389.350260402909, 0.45)
    pt3dadd(-100.017508066334, 1146.84801784477, 389.718963301018, 0.45)
    pt3dadd(-100.107024524201, 1147.77324483135, 390.087666199127, 0.45)
    pt3dadd(-100.196540982068, 1148.69847181793, 390.456369097235, 0.45)
    pt3dadd(-100.286057439935, 1149.62369880451, 390.825071995344, 0.45)
    pt3dadd(-100.375573897801, 1150.54892579109, 391.193774893453, 0.45)
    pt3dadd(-100.465090355668, 1151.47415277767, 391.562477791562, 0.45)
    pt3dadd(-100.554606813535, 1152.39937976425, 391.931180689671, 0.45)
    pt3dadd(-100.644123271402, 1153.32460675083, 392.29988358778, 0.45)
    pt3dadd(-100.733639729269, 1154.24983373741, 392.668586485888, 0.45)
    pt3dadd(-100.823156187136, 1155.17506072399, 393.037289383997, 0.45)
    pt3dadd(-100.912672645002, 1156.10028771058, 393.405992282106, 0.45)
    pt3dadd(-101.002189102869, 1157.02551469716, 393.774695180215, 0.45)
    pt3dadd(-101.091705560736, 1157.95074168374, 394.143398078324, 0.45)
    pt3dadd(-101.181222018603, 1158.87596867032, 394.512100976432, 0.45)
    pt3dadd(-101.27073847647, 1159.8011956569, 394.880803874541, 0.45)
    pt3dadd(-101.360254934337, 1160.72642264348, 395.24950677265, 0.45)
    pt3dadd(-101.449771392203, 1161.65164963006, 395.618209670759, 0.45)
    pt3dadd(-101.53928785007, 1162.57687661664, 395.986912568868, 0.45)
    pt3dadd(-101.628804307937, 1163.50210360322, 396.355615466976, 0.45)
    pt3dadd(-101.718320765804, 1164.4273305898, 396.724318365085, 0.45)
    pt3dadd(-101.807837223671, 1165.35255757638, 397.093021263194, 0.45)
    pt3dadd(-101.897353681537, 1166.27778456296, 397.461724161303, 0.45)
    pt3dadd(-101.986870139404, 1167.20301154954, 397.830427059412, 0.45)
    pt3dadd(-102.076386597271, 1168.12823853612, 398.199129957521, 0.45)
    pt3dadd(-102.165903055138, 1169.0534655227, 398.567832855629, 0.45)
    pt3dadd(-102.255419513005, 1169.97869250929, 398.936535753738, 0.45)
    pt3dadd(-102.344935970872, 1170.90391949587, 399.305238651847, 0.45)
    pt3dadd(-102.434452428738, 1171.82914648245, 399.673941549956, 0.45)
    pt3dadd(-102.523968886605, 1172.75437346903, 400.042644448065, 0.45)
    pt3dadd(-102.613485344472, 1173.67960045561, 400.411347346173, 0.45)
    pt3dadd(-102.703001802339, 1174.60482744219, 400.780050244282, 0.45)
    pt3dadd(-102.792518260206, 1175.53005442877, 401.148753142391, 0.45)
    pt3dadd(-102.882034718073, 1176.45528141535, 401.5174560405, 0.45)
    pt3dadd(-102.971551175939, 1177.38050840193, 401.886158938609, 0.45)
    pt3dadd(-103.061067633806, 1178.30573538851, 402.254861836718, 0.45)
    pt3dadd(-103.150584091673, 1179.23096237509, 402.623564734826, 0.45)
    pt3dadd(-103.24010054954, 1180.15618936167, 402.992267632935, 0.45)
    pt3dadd(-103.329617007407, 1181.08141634825, 403.360970531044, 0.45)
    pt3dadd(-103.419133465273, 1182.00664333483, 403.729673429153, 0.45)
    pt3dadd(-103.50864992314, 1182.93187032141, 404.098376327262, 0.45)
    pt3dadd(-103.598166381007, 1183.857097308, 404.46707922537, 0.45)
    pt3dadd(-103.687682838874, 1184.78232429458, 404.835782123479, 0.45)
    pt3dadd(-103.777199296741, 1185.70755128116, 405.204485021588, 0.45)
    pt3dadd(-103.866715754608, 1186.63277826774, 405.573187919697, 0.45)
    pt3dadd(-103.956232212474, 1187.55800525432, 405.941890817806, 0.45)
    pt3dadd(-104.045748670341, 1188.4832322409, 406.310593715915, 0.45)
    pt3dadd(-104.135265128208, 1189.40845922748, 406.679296614023, 0.45)
    pt3dadd(-104.224781586075, 1190.33368621406, 407.047999512132, 0.45)
    pt3dadd(-104.314298043942, 1191.25891320064, 407.416702410241, 0.45)
    pt3dadd(-104.403814501809, 1192.18414018722, 407.78540530835, 0.45)
    pt3dadd(-104.493330959675, 1193.1093671738, 408.154108206459, 0.45)
    pt3dadd(-104.582847417542, 1194.03459416038, 408.522811104567, 0.45)
    pt3dadd(-104.672363875409, 1194.95982114696, 408.891514002676, 0.45)
    pt3dadd(-104.761880333276, 1195.88504813354, 409.260216900785, 0.45)
    pt3dadd(-104.851396791143, 1196.81027512012, 409.628919798894, 0.45)
    pt3dadd(-104.940913249009, 1197.73550210671, 409.997622697003, 0.45)
    pt3dadd(-105.030429706876, 1198.66072909329, 410.366325595112, 0.45)
    pt3dadd(-105.119946164743, 1199.58595607987, 410.73502849322, 0.45)
    pt3dadd(-105.20946262261, 1200.51118306645, 411.103731391329, 0.45)
    pt3dadd(-105.298979080477, 1201.43641005303, 411.472434289438, 0.45)
    pt3dadd(-105.388495538344, 1202.36163703961, 411.841137187547, 0.45)
    pt3dadd(-105.47801199621, 1203.28686402619, 412.209840085656, 0.45)
    pt3dadd(-105.567528454077, 1204.21209101277, 412.578542983764, 0.45)
    pt3dadd(-105.657044911944, 1205.13731799935, 412.947245881873, 0.45)
    pt3dadd(-105.746561369811, 1206.06254498593, 413.315948779982, 0.45)
    pt3dadd(-105.836077827678, 1206.98777197251, 413.684651678091, 0.45)
    pt3dadd(-105.925594285545, 1207.91299895909, 414.0533545762, 0.45)
    pt3dadd(-106.015110743411, 1208.83822594567, 414.422057474308, 0.45)
    pt3dadd(-106.104627201278, 1209.76345293225, 414.790760372417, 0.45)
    pt3dadd(-106.194143659145, 1210.68867991883, 415.159463270526, 0.45)
    pt3dadd(-106.283660117012, 1211.61390690542, 415.528166168635, 0.45)
    pt3dadd(-106.373176574879, 1212.539133892, 415.896869066744, 0.45)
    pt3dadd(-106.462693032745, 1213.46436087858, 416.265571964853, 0.45)
    pt3dadd(-106.552209490612, 1214.38958786516, 416.634274862961, 0.45)
    pt3dadd(-106.641725948479, 1215.31481485174, 417.00297776107, 0.45)
    pt3dadd(-106.731242406346, 1216.24004183832, 417.371680659179, 0.45)
    pt3dadd(-106.820758864213, 1217.1652688249, 417.740383557288, 0.45)
    pt3dadd(-106.91027532208, 1218.09049581148, 418.109086455397, 0.45)
    pt3dadd(-106.999791779946, 1219.01572279806, 418.477789353505, 0.45)
    pt3dadd(-107.089308237813, 1219.94094978464, 418.846492251614, 0.45)
    pt3dadd(-107.17882469568, 1220.86617677122, 419.215195149723, 0.45)
    pt3dadd(-107.268341153547, 1221.7914037578, 419.583898047832, 0.45)
    pt3dadd(-107.357857611414, 1222.71663074438, 419.952600945941, 0.45)
    pt3dadd(-107.447374069281, 1223.64185773096, 420.32130384405, 0.45)
    pt3dadd(-107.536890527147, 1224.56708471754, 420.690006742158, 0.45)
    pt3dadd(-107.626406985014, 1225.49231170412, 421.058709640267, 0.45)
    pt3dadd(-107.715923442881, 1226.41753869071, 421.427412538376, 0.45)
    pt3dadd(-107.805439900748, 1227.34276567729, 421.796115436485, 0.45)
    pt3dadd(-107.894956358615, 1228.26799266387, 422.164818334594, 0.45)
    pt3dadd(-107.984472816481, 1229.19321965045, 422.533521232702, 0.45)
    pt3dadd(-108.073989274348, 1230.11844663703, 422.902224130811, 0.45)
    pt3dadd(-108.163505732215, 1231.04367362361, 423.27092702892, 0.45)
    pt3dadd(-108.253022190082, 1231.96890061019, 423.639629927029, 0.45)
    pt3dadd(-108.342538647949, 1232.89412759677, 424.008332825138, 0.45)
  }
}
proc shape3d_23() {
  axon[0] {
    pt3dadd(-108.432055105816, 1233.81935458335, 424.377035723246, 0.45)
    pt3dadd(-108.521571563682, 1234.74458156993, 424.745738621355, 0.45)
    pt3dadd(-108.611088021549, 1235.66980855651, 425.114441519464, 0.45)
    pt3dadd(-108.700604479416, 1236.59503554309, 425.483144417573, 0.45)
    pt3dadd(-108.790120937283, 1237.52026252967, 425.851847315682, 0.45)
    pt3dadd(-108.87963739515, 1238.44548951625, 426.220550213791, 0.45)
    pt3dadd(-108.969153853017, 1239.37071650284, 426.589253111899, 0.45)
    pt3dadd(-109.058670310883, 1240.29594348942, 426.957956010008, 0.45)
    pt3dadd(-109.14818676875, 1241.221170476, 427.326658908117, 0.45)
    pt3dadd(-109.237703226617, 1242.14639746258, 427.695361806226, 0.45)
    pt3dadd(-109.327219684484, 1243.07162444916, 428.064064704335, 0.45)
    pt3dadd(-109.416736142351, 1243.99685143574, 428.432767602443, 0.45)
    pt3dadd(-109.506252600217, 1244.92207842232, 428.801470500552, 0.45)
    pt3dadd(-109.595769058084, 1245.8473054089, 429.170173398661, 0.45)
    pt3dadd(-109.685285515951, 1246.77253239548, 429.53887629677, 0.45)
    pt3dadd(-109.774801973818, 1247.69775938206, 429.907579194879, 0.45)
    pt3dadd(-109.864318431685, 1248.62298636864, 430.276282092988, 0.45)
    pt3dadd(-109.953834889552, 1249.54821335522, 430.644984991096, 0.45)
    pt3dadd(-110.043351347418, 1250.4734403418, 431.013687889205, 0.45)
    pt3dadd(-110.132867805285, 1251.39866732838, 431.382390787314, 0.45)
    pt3dadd(-110.222384263152, 1252.32389431496, 431.751093685423, 0.45)
    pt3dadd(-110.311900721019, 1253.24912130155, 432.119796583532, 0.45)
    pt3dadd(-110.401417178886, 1254.17434828813, 432.48849948164, 0.45)
    pt3dadd(-110.490933636753, 1255.09957527471, 432.857202379749, 0.45)
    pt3dadd(-110.580450094619, 1256.02480226129, 433.225905277858, 0.45)
    pt3dadd(-110.669966552486, 1256.95002924787, 433.594608175967, 0.45)
    pt3dadd(-110.759483010353, 1257.87525623445, 433.963311074076, 0.45)
    pt3dadd(-110.84899946822, 1258.80048322103, 434.332013972184, 0.45)
    pt3dadd(-110.938515926087, 1259.72571020761, 434.700716870293, 0.45)
    pt3dadd(-111.028032383953, 1260.65093719419, 435.069419768402, 0.45)
    pt3dadd(-111.11754884182, 1261.57616418077, 435.438122666511, 0.45)
    pt3dadd(-111.207065299687, 1262.50139116735, 435.80682556462, 0.45)
    pt3dadd(-111.296581757554, 1263.42661815393, 436.175528462729, 0.45)
    pt3dadd(-111.386098215421, 1264.35184514051, 436.544231360837, 0.45)
    pt3dadd(-111.475614673288, 1265.27707212709, 436.912934258946, 0.45)
    pt3dadd(-111.565131131154, 1266.20229911367, 437.281637157055, 0.45)
    pt3dadd(-111.654647589021, 1267.12752610025, 437.650340055164, 0.45)
    pt3dadd(-111.744164046888, 1268.05275308684, 438.019042953273, 0.45)
    pt3dadd(-111.833680504755, 1268.97798007342, 438.387745851381, 0.45)
    pt3dadd(-111.923196962622, 1269.90320706, 438.75644874949, 0.45)
    pt3dadd(-112.012713420489, 1270.82843404658, 439.125151647599, 0.45)
    pt3dadd(-112.102229878355, 1271.75366103316, 439.493854545708, 0.45)
    pt3dadd(-112.191746336222, 1272.67888801974, 439.862557443817, 0.45)
    pt3dadd(-112.281262794089, 1273.60411500632, 440.231260341926, 0.45)
    pt3dadd(-112.370779251956, 1274.5293419929, 440.599963240034, 0.45)
    pt3dadd(-112.460295709823, 1275.45456897948, 440.968666138143, 0.45)
    pt3dadd(-112.549812167689, 1276.37979596606, 441.337369036252, 0.45)
    pt3dadd(-112.639328625556, 1277.30502295264, 441.706071934361, 0.45)
    pt3dadd(-112.728845083423, 1278.23024993922, 442.07477483247, 0.45)
    pt3dadd(-112.81836154129, 1279.1554769258, 442.443477730578, 0.45)
    pt3dadd(-112.907877999157, 1280.08070391238, 442.812180628687, 0.45)
    pt3dadd(-112.997394457024, 1281.00593089896, 443.180883526796, 0.45)
    pt3dadd(-113.08691091489, 1281.93115788555, 443.549586424905, 0.45)
    pt3dadd(-113.176427372757, 1282.85638487213, 443.918289323014, 0.45)
    pt3dadd(-113.265943830624, 1283.78161185871, 444.286992221122, 0.45)
    pt3dadd(-113.355460288491, 1284.70683884529, 444.655695119231, 0.45)
    pt3dadd(-113.444976746358, 1285.63206583187, 445.02439801734, 0.45)
    pt3dadd(-113.534493204225, 1286.55729281845, 445.393100915449, 0.45)
    pt3dadd(-113.624009662091, 1287.48251980503, 445.761803813558, 0.45)
    pt3dadd(-113.713526119958, 1288.40774679161, 446.130506711667, 0.45)
    pt3dadd(-113.803042577825, 1289.33297377819, 446.499209609775, 0.45)
    pt3dadd(-113.892559035692, 1290.25820076477, 446.867912507884, 0.45)
    pt3dadd(-113.982075493559, 1291.18342775135, 447.236615405993, 0.45)
    pt3dadd(-114.071591951425, 1292.10865473793, 447.605318304102, 0.45)
    pt3dadd(-114.161108409292, 1293.03388172451, 447.974021202211, 0.45)
    pt3dadd(-114.250624867159, 1293.95910871109, 448.342724100319, 0.45)
    pt3dadd(-114.340141325026, 1294.88433569767, 448.711426998428, 0.45)
    pt3dadd(-114.429657782893, 1295.80956268426, 449.080129896537, 0.45)
    pt3dadd(-114.51917424076, 1296.73478967084, 449.448832794646, 0.45)
    pt3dadd(-114.608690698626, 1297.66001665742, 449.817535692755, 0.45)
    pt3dadd(-114.698207156493, 1298.585243644, 450.186238590864, 0.45)
    pt3dadd(-114.78772361436, 1299.51047063058, 450.554941488972, 0.45)
    pt3dadd(-114.877240072227, 1300.43569761716, 450.923644387081, 0.45)
    pt3dadd(-114.966756530094, 1301.36092460374, 451.29234728519, 0.45)
    pt3dadd(-115.056272987961, 1302.28615159032, 451.661050183299, 0.45)
    pt3dadd(-115.145789445827, 1303.2113785769, 452.029753081408, 0.45)
    pt3dadd(-115.235305903694, 1304.13660556348, 452.398455979516, 0.45)
    pt3dadd(-115.324822361561, 1305.06183255006, 452.767158877625, 0.45)
    pt3dadd(-115.414338819428, 1305.98705953664, 453.135861775734, 0.45)
    pt3dadd(-115.503855277295, 1306.91228652322, 453.504564673843, 0.45)
    pt3dadd(-115.593371735161, 1307.8375135098, 453.873267571952, 0.45)
    pt3dadd(-115.682888193028, 1308.76274049638, 454.24197047006, 0.45)
    pt3dadd(-115.772404650895, 1309.68796748297, 454.610673368169, 0.45)
    pt3dadd(-115.861921108762, 1310.61319446955, 454.979376266278, 0.45)
    pt3dadd(-115.951437566629, 1311.53842145613, 455.348079164387, 0.45)
    pt3dadd(-116.040954024496, 1312.46364844271, 455.716782062496, 0.45)
    pt3dadd(-116.130470482362, 1313.38887542929, 456.085484960605, 0.45)
    pt3dadd(-116.219986940229, 1314.31410241587, 456.454187858713, 0.45)
    pt3dadd(-116.309503398096, 1315.23932940245, 456.822890756822, 0.45)
    pt3dadd(-116.399019855963, 1316.16455638903, 457.191593654931, 0.45)
    pt3dadd(-116.48853631383, 1317.08978337561, 457.56029655304, 0.45)
    pt3dadd(-116.578052771697, 1318.01501036219, 457.928999451149, 0.45)
    pt3dadd(-116.667569229563, 1318.94023734877, 458.297702349257, 0.45)
    pt3dadd(-116.75708568743, 1319.86546433535, 458.666405247366, 0.45)
    pt3dadd(-116.846602145297, 1320.79069132193, 459.035108145475, 0.45)
    pt3dadd(-116.936118603164, 1321.71591830851, 459.403811043584, 0.45)
    pt3dadd(-117.025635061031, 1322.64114529509, 459.772513941693, 0.45)
    pt3dadd(-117.115151518897, 1323.56637228168, 460.141216839802, 0.45)
    pt3dadd(-117.204667976764, 1324.49159926826, 460.50991973791, 0.45)
    pt3dadd(-117.294184434631, 1325.41682625484, 460.878622636019, 0.45)
    pt3dadd(-117.383700892498, 1326.34205324142, 461.247325534128, 0.45)
    pt3dadd(-117.473217350365, 1327.267280228, 461.616028432237, 0.45)
    pt3dadd(-117.562733808232, 1328.19250721458, 461.984731330346, 0.45)
    pt3dadd(-117.652250266098, 1329.11773420116, 462.353434228454, 0.45)
    pt3dadd(-117.741766723965, 1330.04296118774, 462.722137126563, 0.45)
    pt3dadd(-117.831283181832, 1330.96818817432, 463.090840024672, 0.45)
    pt3dadd(-117.920799639699, 1331.8934151609, 463.459542922781, 0.45)
    pt3dadd(-118.010316097566, 1332.81864214748, 463.82824582089, 0.45)
    pt3dadd(-118.099832555433, 1333.74386913406, 464.196948718999, 0.45)
    pt3dadd(-118.189349013299, 1334.66909612064, 464.565651617107, 0.45)
    pt3dadd(-118.278865471166, 1335.59432310722, 464.934354515216, 0.45)
    pt3dadd(-118.368381929033, 1336.5195500938, 465.303057413325, 0.45)
    pt3dadd(-118.4578983869, 1337.44477708039, 465.671760311434, 0.45)
    pt3dadd(-118.547414844767, 1338.37000406697, 466.040463209543, 0.45)
    pt3dadd(-118.636931302634, 1339.29523105355, 466.409166107651, 0.45)
    pt3dadd(-118.7264477605, 1340.22045804013, 466.77786900576, 0.45)
    pt3dadd(-118.815964218367, 1341.14568502671, 467.146571903869, 0.45)
    pt3dadd(-118.905480676234, 1342.07091201329, 467.515274801978, 0.45)
    pt3dadd(-118.994997134101, 1342.99613899987, 467.883977700087, 0.45)
    pt3dadd(-119.084513591968, 1343.92136598645, 468.252680598195, 0.45)
    pt3dadd(-119.174030049834, 1344.84659297303, 468.621383496304, 0.45)
    pt3dadd(-119.263546507701, 1345.77181995961, 468.990086394413, 0.45)
    pt3dadd(-119.353062965568, 1346.69704694619, 469.358789292522, 0.45)
    pt3dadd(-119.442579423435, 1347.62227393277, 469.727492190631, 0.45)
    pt3dadd(-119.532095881302, 1348.54750091935, 470.09619508874, 0.45)
    pt3dadd(-119.621612339169, 1349.47272790593, 470.464897986848, 0.45)
    pt3dadd(-119.711128797035, 1350.39795489251, 470.833600884957, 0.45)
    pt3dadd(-119.800645254902, 1351.3231818791, 471.202303783066, 0.45)
    pt3dadd(-119.890161712769, 1352.24840886568, 471.571006681175, 0.45)
    pt3dadd(-119.979678170636, 1353.17363585226, 471.939709579284, 0.45)
    pt3dadd(-120.069194628503, 1354.09886283884, 472.308412477392, 0.45)
    pt3dadd(-120.158711086369, 1355.02408982542, 472.677115375501, 0.45)
    pt3dadd(-120.248227544236, 1355.949316812, 473.04581827361, 0.45)
    pt3dadd(-120.337744002103, 1356.87454379858, 473.414521171719, 0.45)
    pt3dadd(-120.42726045997, 1357.79977078516, 473.783224069828, 0.45)
    pt3dadd(-120.516776917837, 1358.72499777174, 474.151926967937, 0.45)
    pt3dadd(-120.606293375704, 1359.65022475832, 474.520629866045, 0.45)
    pt3dadd(-120.69580983357, 1360.5754517449, 474.889332764154, 0.45)
    pt3dadd(-120.785326291437, 1361.50067873148, 475.258035662263, 0.45)
    pt3dadd(-120.874842749304, 1362.42590571806, 475.626738560372, 0.45)
    pt3dadd(-120.964359207171, 1363.35113270464, 475.995441458481, 0.45)
    pt3dadd(-121.053875665038, 1364.27635969122, 476.364144356589, 0.45)
    pt3dadd(-121.143392122905, 1365.20158667781, 476.732847254698, 0.45)
    pt3dadd(-121.232908580771, 1366.12681366439, 477.101550152807, 0.45)
    pt3dadd(-121.322425038638, 1367.05204065097, 477.470253050916, 0.45)
    pt3dadd(-121.411941496505, 1367.97726763755, 477.838955949025, 0.45)
    pt3dadd(-121.501457954372, 1368.90249462413, 478.207658847134, 0.45)
    pt3dadd(-121.590974412239, 1369.82772161071, 478.576361745242, 0.45)
    pt3dadd(-121.680490870106, 1370.75294859729, 478.945064643351, 0.45)
    pt3dadd(-121.770007327972, 1371.67817558387, 479.31376754146, 0.45)
    pt3dadd(-121.859523785839, 1372.60340257045, 479.682470439569, 0.45)
    pt3dadd(-121.949040243706, 1373.52862955703, 480.051173337678, 0.45)
    pt3dadd(-122.038556701573, 1374.45385654361, 480.419876235786, 0.45)
    pt3dadd(-122.12807315944, 1375.37908353019, 480.788579133895, 0.45)
    pt3dadd(-122.217589617306, 1376.30431051677, 481.157282032004, 0.45)
    pt3dadd(-122.307106075173, 1377.22953750335, 481.525984930113, 0.45)
    pt3dadd(-122.39662253304, 1378.15476448993, 481.894687828222, 0.45)
    pt3dadd(-122.486138990907, 1379.07999147652, 482.263390726331, 0.45)
    pt3dadd(-122.575655448774, 1380.0052184631, 482.632093624439, 0.45)
    pt3dadd(-122.665171906641, 1380.93044544968, 483.000796522548, 0.45)
    pt3dadd(-122.754688364507, 1381.85567243626, 483.369499420657, 0.45)
    pt3dadd(-122.844204822374, 1382.78089942284, 483.738202318766, 0.45)
    pt3dadd(-122.933721280241, 1383.70612640942, 484.106905216875, 0.45)
    pt3dadd(-123.023237738108, 1384.631353396, 484.475608114983, 0.45)
    pt3dadd(-123.112754195975, 1385.55658038258, 484.844311013092, 0.45)
    pt3dadd(-123.202270653842, 1386.48180736916, 485.213013911201, 0.45)
    pt3dadd(-123.291787111708, 1387.40703435574, 485.58171680931, 0.45)
    pt3dadd(-123.381303569575, 1388.33226134232, 485.950419707419, 0.45)
    pt3dadd(-123.470820027442, 1389.2574883289, 486.319122605527, 0.45)
    pt3dadd(-123.560336485309, 1390.18271531548, 486.687825503636, 0.45)
    pt3dadd(-123.649852943176, 1391.10794230206, 487.056528401745, 0.45)
    pt3dadd(-123.739369401042, 1392.03316928864, 487.425231299854, 0.45)
    pt3dadd(-123.828885858909, 1392.95839627523, 487.793934197963, 0.45)
    pt3dadd(-123.918402316776, 1393.88362326181, 488.162637096072, 0.45)
    pt3dadd(-124.007918774643, 1394.80885024839, 488.53133999418, 0.45)
    pt3dadd(-124.09743523251, 1395.73407723497, 488.900042892289, 0.45)
    pt3dadd(-124.186951690377, 1396.65930422155, 489.268745790398, 0.45)
    pt3dadd(-124.276468148243, 1397.58453120813, 489.637448688507, 0.45)
    pt3dadd(-124.36598460611, 1398.50975819471, 490.006151586616, 0.45)
    pt3dadd(-124.455501063977, 1399.43498518129, 490.374854484724, 0.45)
    pt3dadd(-124.545017521844, 1400.36021216787, 490.743557382833, 0.45)
    pt3dadd(-124.634533979711, 1401.28543915445, 491.112260280942, 0.45)
    pt3dadd(-124.724050437578, 1402.21066614103, 491.480963179051, 0.45)
    pt3dadd(-124.813566895444, 1403.13589312761, 491.84966607716, 0.45)
    pt3dadd(-124.903083353311, 1404.06112011419, 492.218368975269, 0.45)
    pt3dadd(-124.992599811178, 1404.98634710077, 492.587071873377, 0.45)
    pt3dadd(-125.082116269045, 1405.91157408735, 492.955774771486, 0.45)
    pt3dadd(-125.171632726912, 1406.83680107394, 493.324477669595, 0.45)
    pt3dadd(-125.261149184778, 1407.76202806052, 493.693180567704, 0.45)
    pt3dadd(-125.350665642645, 1408.6872550471, 494.061883465813, 0.45)
    pt3dadd(-125.440182100512, 1409.61248203368, 494.430586363921, 0.45)
    pt3dadd(-125.529698558379, 1410.53770902026, 494.79928926203, 0.45)
    pt3dadd(-125.619215016246, 1411.46293600684, 495.167992160139, 0.45)
    pt3dadd(-125.708731474113, 1412.38816299342, 495.536695058248, 0.45)
    pt3dadd(-125.798247931979, 1413.31338998, 495.905397956357, 0.45)
    pt3dadd(-125.887764389846, 1414.23861696658, 496.274100854465, 0.45)
    pt3dadd(-125.977280847713, 1415.16384395316, 496.642803752574, 0.45)
    pt3dadd(-126.06679730558, 1416.08907093974, 497.011506650683, 0.45)
    pt3dadd(-126.156313763447, 1417.01429792632, 497.380209548792, 0.45)
    pt3dadd(-126.245830221314, 1417.9395249129, 497.748912446901, 0.45)
  }
}
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()
}

objref allreg, allregobj, alladendreg, allaxonreg, sec
objref regaxon
objref regGCL
objref regadendIML
objref regadendMML
objref regadendOML
objref regsoma
objref regaxonh
proc subsets() { local ward
  allregobj = new List()
  allreg = new SectionList()
  alladendreg = new SectionList()
  allaxonreg = new SectionList()
  regaxon = new SectionList()
  for ward = 0, 0 axon[ward] {
    regaxon.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    allaxonreg.append()
  }
  regGCL = new SectionList()
  for ward = 0, 12 GCL[ward] {
    regGCL.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
  }
  regadendIML = new SectionList()
  for ward = 0, 14 adendIML[ward] {
    regadendIML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendMML = new SectionList()
  for ward = 0, 18 adendMML[ward] {
    regadendMML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendOML = new SectionList()
  for ward = 0, 15 adendOML[ward] {
    regadendOML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regsoma = new SectionList()
  for ward = 0, 2 soma[ward] {
    regsoma.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
  }
  regaxonh = new SectionList()
  for ward = 0, 0 axonh[ward] {
    regaxonh.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    allaxonreg.append()
  }
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access axon
proc init() {
  celldef()
}

endtemplate cell_rat_mGC_Claiborne_02