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_08

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[11]
create adendIML[14]
create adendMML[20]
create adendOML[15]
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 adendIML[0](0),GCL[3](1)
  connect adendIML[1](0),adendIML[0](1)
  connect adendMML[0](0),adendIML[1](1)
  connect adendMML[1](0),adendMML[0](1)
  connect adendOML[0](0),adendMML[1](1)
  connect adendMML[2](0),adendMML[0](1)
  connect adendOML[1](0),adendMML[2](1)
  connect adendIML[2](0),adendIML[0](1)
  connect adendMML[3](0),adendIML[2](1)
  connect adendMML[4](0),adendMML[3](1)
  connect adendOML[2](0),adendMML[4](1)
  connect adendMML[5](0),adendMML[3](1)
  connect adendOML[3](0),adendMML[5](1)
  connect GCL[4](0),GCL[2](1)
  connect GCL[5](0),GCL[4](1)
  connect adendIML[3](0),GCL[5](1)
  connect adendMML[6](0),adendIML[3](1)
  connect adendMML[7](0),adendMML[6](1)
  connect adendOML[4](0),adendMML[7](1)
  connect adendMML[8](0),adendMML[6](1)
  connect adendOML[5](0),adendMML[8](1)
  connect GCL[6](0),GCL[4](1)
  connect adendIML[4](0),GCL[6](1)
  connect adendMML[9](0),adendIML[4](1)
  connect adendOML[6](0),adendMML[9](1)
  connect GCL[7](0),GCL[1](1)
  connect GCL[8](0),GCL[7](1)
  connect adendIML[5](0),GCL[8](1)
  connect adendIML[6](0),adendIML[5](1)
  connect adendIML[7](0),adendIML[6](1)
  connect adendMML[10](0),adendIML[7](1)
  connect adendMML[11](0),adendMML[10](1)
  connect adendOML[7](0),adendMML[11](1)
  connect adendMML[12](0),adendMML[10](1)
  connect adendOML[8](0),adendMML[12](1)
  connect adendIML[8](0),adendIML[6](1)
  connect adendMML[13](0),adendIML[8](1)
  connect adendOML[9](0),adendMML[13](1)
  connect adendIML[9](0),adendIML[5](1)
  connect adendMML[14](0),adendIML[9](1)
  connect adendOML[10](0),adendMML[14](1)
  connect GCL[9](0),GCL[7](1)
  connect adendIML[10](0),GCL[9](1)
  connect adendMML[15](0),adendIML[10](1)
  connect adendMML[16](0),adendMML[15](1)
  connect adendOML[11](0),adendMML[16](1)
  connect adendMML[17](0),adendMML[15](1)
  connect adendOML[12](0),adendMML[17](1)
  connect GCL[10](0),GCL[0](1)
  connect adendIML[11](0),GCL[10](1)
  connect adendIML[12](0),adendIML[11](1)
  connect adendMML[18](0),adendIML[12](1)
  connect adendOML[13](0),adendMML[18](1)
  connect adendIML[13](0),adendIML[11](1)
  connect adendMML[19](0),adendIML[13](1)
  connect adendOML[14](0),adendMML[19](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(2.38881078564095, 79.5182148651208, 0, 10.5)
    pt3dadd(2.38891078564095, 79.5182148651208, 0, 10.5)
  }
  soma[1] {pt3dclear()
    pt3dadd(2.38891078564095, 79.5182148651208, 0, 10.2667572303772)
    pt3dadd(2.27667847707535, 78.5290555389943, -0.0946981333026757, 10.2667572303772)
    pt3dadd(2.16444616850975, 77.5398962128678, -0.189396266605351, 9.58775356515897)
    pt3dadd(2.05221385994415, 76.5507368867413, -0.284094399908027, 8.52332145975835)
    pt3dadd(1.93998155137856, 75.5615775606148, -0.378792533210703, 7.16804037792357)
    pt3dadd(1.82774924281296, 74.5724182344883, -0.473490666513378, 5.64233299132872)
    pt3dadd(1.71551693424736, 73.5832589083618, -0.568188799816054, 4.08176509672935)
    pt3dadd(1.60328462568176, 72.5940995822353, -0.66288693311873, 4.11933318394401)
    pt3dadd(1.49105231711616, 71.6049402561088, -0.757585066421406, 4.20739221022173)
    pt3dadd(1.37882000855056, 70.6157809299823, -0.852283199724081, 4.29545123649944)
    pt3dadd(1.26658769998496, 69.6266216038558, -0.946981333026757, 4.38351026277716)
  }
  GCL[0] {pt3dclear()
    pt3dadd(1.26658769998496, 69.6266216038558, -0.946981333026757, 4.47156928905487)
    pt3dadd(1.15435539141937, 68.6374622777293, -1.04167946632943, 4.47156928905487)
    pt3dadd(1.00970129339075, 67.6508413044992, -1.06021783733545, 4.3949310295434)
    pt3dadd(0.839940713088329, 66.6661859572587, -1.01978032348909, 4.19075602530879)
    pt3dadd(0.670180132785903, 65.6815306100182, -0.979342809642723, 3.98658102107419)
    pt3dadd(0.500419552483478, 64.6968752627777, -0.93890529579636, 3.78240601683959)
    pt3dadd(0.346228394232801, 63.7107244151691, -0.907631539855007, 3.55792945397468)
    pt3dadd(0.322496049220462, 62.7120425177521, -0.953142456916771, 3.16334270737945)
    pt3dadd(0.298763704208122, 61.7133606203352, -0.998653373978535, 2.76875596078421)
    pt3dadd(0.275031359195784, 60.7146787229182, -1.0441642910403, 2.37416921418898)
    pt3dadd(0.401212248649314, 59.7303536411115, -1.00537107250785, 2.25)
    pt3dadd(0.596229682666047, 58.7526208630536, -0.927867426524687, 2.25)
    pt3dadd(0.802507674187724, 57.8064041972852, -0.893756745556298, 2.25)
  }
  GCL[1] {pt3dclear()
    pt3dadd(0.802507674187724, 57.8064041972852, -0.893756745556298, 2.25)
    pt3dadd(0.641504067269936, 56.7855369589566, -0.966046414639617, 2.25)
    pt3dadd(0.524008438461752, 55.7972725634799, -1.06365923062266, 2.25)
    pt3dadd(0.40505119815754, 54.8092829509084, -1.16208059925812, 2.25)
    pt3dadd(0.266234986314255, 53.8250268242244, -1.2714878038396, 2.25)
    pt3dadd(0.12741877447097, 52.8407706975403, -1.38089500842107, 2.25)
    pt3dadd(-0.111102356694331, 51.9121366119501, -1.37108698728422, 2.25)
    pt3dadd(-0.644745059918825, 51.1481409847267, -1.00840786343118, 2.25)
    pt3dadd(-1.17838776314332, 50.3841453575033, -0.645728739578149, 2.25)
    pt3dadd(-1.52280284854268, 49.5784348174681, -0.54169718979452, 2.19982052211133)
  }
  GCL[2] {pt3dclear()
    pt3dadd(-1.52280284854268, 49.5784348174681, -0.54169718979452, 2.07260743511271)
    pt3dadd(-1.84354659509266, 48.8764929536205, -1.28370156398481, 2.07260743511271)
    pt3dadd(-2.08881327230512, 48.1270828755033, -1.89870464679464, 1.9453943481141)
    pt3dadd(-2.33407994951759, 47.3776727973862, -2.51370772960446, 1.81818126111549)
    pt3dadd(-2.85235597053934, 46.5946102582115, -2.39145007546878, 1.8)
    pt3dadd(-3.4161568108197, 45.8059361081452, -2.14625281301202, 1.8)
    pt3dadd(-3.97995765110005, 45.0172619580788, -1.90105555055526, 1.8)
    pt3dadd(-4.54375849138041, 44.2285878080125, -1.65585828809849, 1.8)
    pt3dadd(-5.05976634250045, 43.4152023949613, -1.53429657424268, 1.8)
    pt3dadd(-5.42497907441653, 42.523848687544, -1.80282632812475, 1.8)
    pt3dadd(-5.79019180633261, 41.6324949801268, -2.07135608200682, 1.8)
    pt3dadd(-6.15540453824869, 40.7411412727096, -2.33988583588889, 1.8)
    pt3dadd(-6.52061727016477, 39.8497875652924, -2.60841558977096, 1.8)
    pt3dadd(-6.90317485758493, 38.9500909447322, -2.78006421456265, 1.8)
    pt3dadd(-7.31192365108534, 38.0377962972018, -2.8054196853586, 1.8)
    pt3dadd(-7.72067244458575, 37.1255016496713, -2.83077515615454, 1.8)
    pt3dadd(-8.12942123808616, 36.2132070021409, -2.85613062695049, 1.8)
    pt3dadd(-8.53817003158656, 35.3009123546105, -2.88148609774643, 1.8)
    pt3dadd(-8.94691882508697, 34.38861770708, -2.90684156854238, 1.8)
    pt3dadd(-9.35566761858738, 33.4763230595496, -2.93219703933832, 1.8)
    pt3dadd(-9.75530161154128, 32.5617086919097, -2.96621143888531, 1.8)
    pt3dadd(-10.009029251167, 31.6099611033966, -3.13883476479868, 1.8)
    pt3dadd(-10.2627568907927, 30.6582135148835, -3.31145809071205, 1.8)
    pt3dadd(-10.5164845304184, 29.7064659263703, -3.48408141662541, 1.8)
  }
  GCL[3] {pt3dclear()
    pt3dadd(-10.5164845304184, 29.7064659263703, -3.48408141662541, 1.8)
    pt3dadd(-10.9661559466937, 28.834778520171, -3.65656301970061, 1.8)
    pt3dadd(-11.4517188281195, 27.9777559188079, -3.82901866308271, 1.8)
    pt3dadd(-11.9372817095454, 27.1207333174448, -4.00147430646481, 1.8)
    pt3dadd(-12.4228445909712, 26.2637107160817, -4.17392994984691, 1.8)
    pt3dadd(-12.8916942332613, 25.4244566548601, -4.44633569453601, 1.8)
    pt3dadd(-13.3579737595843, 24.587934990893, -4.73411149102657, 1.8)
    pt3dadd(-13.8242532859073, 23.7514133269259, -5.02188728751713, 1.8)
    pt3dadd(-14.2905328122303, 22.9148916629589, -5.30966308400768, 1.8)
    pt3dadd(-14.7568123385532, 22.0783699989918, -5.59743888049824, 1.8)
    pt3dadd(-15.2289977800397, 21.2448885278869, -5.86799574199019, 1.8)
    pt3dadd(-15.8598096872893, 20.4930633345345, -5.67607071414685, 1.8)
    pt3dadd(-16.4906215945389, 19.741238141182, -5.4841456863035, 1.8)
    pt3dadd(-17.1023915352402, 18.978697168016, -5.3243507087564, 1.8)
    pt3dadd(-17.4778734888046, 18.0831862079351, -5.56325115438686, 1.8)
    pt3dadd(-17.8533554423691, 17.1876752478542, -5.80215160001732, 1.8)
    pt3dadd(-18.2288373959335, 16.2921642877733, -6.04105204564777, 1.8)
    pt3dadd(-18.6043193494979, 15.3966533276924, -6.27995249127823, 1.8)
    pt3dadd(-18.9798013030624, 14.5011423676115, -6.51885293690869, 1.8)
    pt3dadd(-19.4606173784461, 13.6442113402321, -6.49451002670749, 1.8)
    pt3dadd(-19.9850339420563, 12.8032495341505, -6.3612039558664, 1.8)
    pt3dadd(-20.5094505056666, 11.9622877280688, -6.2278978850253, 1.8)
    pt3dadd(-21.0338670692768, 11.1213259219871, -6.09459181418421, 1.8)
    pt3dadd(-21.558283632887, 10.2803641159055, -5.96128574334311, 1.8)
    pt3dadd(-22.0213894064588, 9.41386631319233, -5.89419803607094, 1.8)
    pt3dadd(-22.2738948685628, 8.45965330014096, -6.05456797505909, 1.8)
    pt3dadd(-22.5264003306668, 7.50544028708958, -6.21493791404724, 1.8)
    pt3dadd(-22.7789057927709, 6.55122727403821, -6.37530785303539, 1.8)
    pt3dadd(-23.0985279256716, 5.62667900122037, -6.43125220913734, 1.8)
    pt3dadd(-23.5826415796199, 4.77483395078494, -6.23126725943, 1.8)
    pt3dadd(-24.0667552335682, 3.92298890034948, -6.03128230972267, 1.8)
    pt3dadd(-24.5508688875165, 3.07114384991401, -5.83129736001533, 1.8)
    pt3dadd(-25.0349825414648, 2.21929879947856, -5.63131241030799, 1.8)
    pt3dadd(-25.5190961954131, 1.36745374904312, -5.43132746060065, 1.8)
    pt3dadd(-26.0032098493614, 0.515608698607648, -5.23134251089332, 1.8)
  }
  adendIML[0] {pt3dclear()
    pt3dadd(-26.0032098493614, 0.515608698607648, -5.23134251089332, 1.8)
    pt3dadd(-26.4041937318341, -0.376480841961625, -5.16949274554379, 1.8)
    pt3dadd(-26.6860662163737, -1.32623417005083, -5.30556815935156, 1.8)
    pt3dadd(-26.9679387009133, -2.27598749814004, -5.44164357315933, 1.8)
    pt3dadd(-27.2498111854528, -3.22574082622926, -5.5777189869671, 1.8)
    pt3dadd(-27.5316836699924, -4.17549415431846, -5.71379440077488, 1.8)
    pt3dadd(-27.813556154532, -5.12524748240766, -5.84986981458265, 1.8)
    pt3dadd(-28.1867512526658, -6.04456567630852, -5.82386938833022, 1.8)
    pt3dadd(-28.5982475787258, -6.95111920036877, -5.7298934251637, 1.8)
    pt3dadd(-29.0097439047858, -7.85767272442902, -5.63591746199719, 1.8)
    pt3dadd(-29.4212402308457, -8.7642262484893, -5.54194149883067, 1.8)
    pt3dadd(-29.8327365569057, -9.67077977254954, -5.44796553566415, 1.8)
    pt3dadd(-30.2442328829657, -10.5773332966098, -5.35398957249764, 1.8)
    pt3dadd(-30.4702700233622, -11.5388975143376, -5.48700673096844, 1.8)
    pt3dadd(-30.6825293651126, -12.5045484871, -5.63688725219346, 1.8)
    pt3dadd(-30.8947887068631, -13.4701994598624, -5.78676777341847, 1.8)
    pt3dadd(-31.1070480486136, -14.4358504326248, -5.93664829464349, 1.8)
    pt3dadd(-31.3193073903641, -15.4015014053872, -6.08652881586851, 1.8)
    pt3dadd(-31.5315667321145, -16.3671523781496, -6.23640933709353, 1.8)
    pt3dadd(-31.7593271115458, -17.3207696816953, -6.23065416231133, 1.8)
    pt3dadd(-32.0114696355687, -18.255458790313, -5.98009395435546, 1.8)
    pt3dadd(-32.2636121595916, -19.1901478989306, -5.72953374639959, 1.8)
    pt3dadd(-32.5157546836146, -20.1248370075483, -5.47897353844373, 1.8)
    pt3dadd(-32.7678972076375, -21.0595261161659, -5.22841333048786, 1.8)
    pt3dadd(-33.0200397316604, -21.9942152247836, -4.97785312253199, 1.8)
    pt3dadd(-33.2721822556833, -22.9289043334012, -4.72729291457612, 1.8)
    pt3dadd(-33.5243247797062, -23.8635934420189, -4.47673270662026, 1.8)
    pt3dadd(-33.7401982019709, -24.7971088260136, -4.35644201091349, 1.8)
  }
  adendIML[1] {pt3dclear()
    pt3dadd(-33.7401982019709, -24.7971088260136, -4.35644201091349, 1.8)
    pt3dadd(-33.464184640033, -25.8166621755733, -4.30628682554209, 1.8)
    pt3dadd(-33.3349314049661, -26.8079029914759, -4.27917140348276, 1.8)
    pt3dadd(-33.2056781698992, -27.7991438073786, -4.25205598142343, 1.8)
    pt3dadd(-33.0764249348323, -28.7903846232812, -4.2249405593641, 1.8)
    pt3dadd(-32.9471716997655, -29.7816254391838, -4.19782513730477, 1.8)
    pt3dadd(-32.8179184646986, -30.7728662550864, -4.17070971524545, 1.8)
    pt3dadd(-32.6886652296317, -31.764107070989, -4.14359429318612, 1.8)
    pt3dadd(-32.5594119945649, -32.7553478868917, -4.11647887112679, 1.8)
    pt3dadd(-32.3787344951635, -33.7324280216735, -4.20590083629208, 1.8)
    pt3dadd(-32.1834249675733, -34.7054789401309, -4.32848182389524, 1.8)
    pt3dadd(-31.9881154399832, -35.6785298585883, -4.45106281149841, 1.8)
    pt3dadd(-31.792805912393, -36.6515807770457, -4.57364379910157, 1.8)
    pt3dadd(-31.5974963848029, -37.624631695503, -4.69622478670473, 1.8)
    pt3dadd(-31.4021868572127, -38.5976826139604, -4.8188057743079, 1.8)
    pt3dadd(-31.2068773296225, -39.5707335324178, -4.94138676191106, 1.8)
    pt3dadd(-31.0115678020324, -40.5437844508752, -5.06396774951422, 1.8)
    pt3dadd(-30.8383754554399, -41.5088198933407, -5.13612638665618, 1.8)
    pt3dadd(-30.9045427724522, -42.3871091253724, -4.66259717841603, 1.8)
    pt3dadd(-30.9707100894646, -43.2653983574041, -4.18906797017588, 1.8)
    pt3dadd(-31.0368774064769, -44.1436875894358, -3.71553876193574, 1.8)
    pt3dadd(-31.1030447234893, -45.0219768214676, -3.24200955369559, 1.8)
    pt3dadd(-31.1692120405016, -45.9002660534993, -2.76848034545544, 1.8)
    pt3dadd(-31.235379357514, -46.778555285531, -2.2949511372153, 1.8)
    pt3dadd(-31.3000341518085, -47.6593357994624, -1.82859626297422, 1.8)
    pt3dadd(-31.3001532167773, -48.6464133577006, -1.66835307327196, 1.8)
    pt3dadd(-31.3002722817461, -49.6334909159389, -1.5081098835697, 1.8)
    pt3dadd(-31.3003913467149, -50.6205684741771, -1.34786669386745, 1.8)
    pt3dadd(-31.3005104116837, -51.6076460324153, -1.18762350416519, 1.8)
    pt3dadd(-31.3006294766525, -52.5947235906536, -1.02738031446293, 1.8)
    pt3dadd(-31.3007485416213, -53.5818011488918, -0.867137124760674, 1.8)
    pt3dadd(-31.30086760659, -54.56887870713, -0.706893935058416, 1.8)
    pt3dadd(-31.3009866715588, -55.5559562653683, -0.546650745356158, 1.8)
    pt3dadd(-31.3137504613129, -56.5277318136741, -0.314235188802691, 1.8)
    pt3dadd(-31.3298371463396, -57.4954861612556, -0.0628535241928683, 1.8)
    pt3dadd(-31.3459238313663, -58.4632405088371, 0.188528140416953, 1.8)
    pt3dadd(-31.3620105163929, -59.4309948564186, 0.439909805026777, 1.8)
    pt3dadd(-31.3780972014196, -60.398749204, 0.6912914696366, 1.8)
    pt3dadd(-31.3941838864463, -61.3665035515815, 0.942673134246422, 1.8)
    pt3dadd(-31.4465333039504, -62.3393093127587, 1.14260206467474, 1.8)
    pt3dadd(-31.5983344822288, -63.3259687452445, 1.20142014488833, 1.8)
    pt3dadd(-31.7501356605072, -64.3126281777304, 1.26023822510192, 1.8)
    pt3dadd(-31.9019368387857, -65.2992876102162, 1.31905630531551, 1.8)
    pt3dadd(-32.0537380170641, -66.285947042702, 1.3778743855291, 1.8)
    pt3dadd(-32.2055391953426, -67.2726064751878, 1.43669246574268, 1.8)
    pt3dadd(-32.357340373621, -68.2592659076737, 1.49551054595627, 1.8)
    pt3dadd(-32.5091415518994, -69.2459253401595, 1.55432862616986, 1.8)
    pt3dadd(-32.6609427301779, -70.2325847726453, 1.61314670638344, 1.8)
    pt3dadd(-32.7674550844182, -71.2234864191156, 1.6477077941832, 1.8)
    pt3dadd(-32.778965243402, -72.2232869418498, 1.63138508054666, 1.8)
    pt3dadd(-32.7904754023857, -73.2230874645841, 1.61506236691012, 1.8)
    pt3dadd(-32.8019855613695, -74.2228879873184, 1.59873965327359, 1.8)
    pt3dadd(-32.8134957203533, -75.2226885100526, 1.58241693963705, 1.8)
    pt3dadd(-32.825005879337, -76.2224890327869, 1.56609422600052, 1.8)
    pt3dadd(-32.8507299190771, -77.2149318394094, 1.60099028377685, 1.8)
    pt3dadd(-32.9415019677122, -78.1737029984862, 1.87028250369615, 1.8)
    pt3dadd(-33.0322740163472, -79.1324741575631, 2.13957472361546, 1.8)
    pt3dadd(-33.1230460649822, -80.0912453166399, 2.40886694353476, 1.8)
    pt3dadd(-33.2138181136172, -81.0500164757167, 2.67815916345407, 1.8)
    pt3dadd(-33.361825689186, -82.0026295514332, 2.93565489241634, 1.8)
    pt3dadd(-33.5814075792125, -82.9475418053261, 3.17839884396886, 1.8)
    pt3dadd(-33.800989469239, -83.8924540592191, 3.42114279552139, 1.8)
    pt3dadd(-34.0205713592655, -84.837366313112, 3.66388674707391, 1.8)
    pt3dadd(-34.240153249292, -85.782278567005, 3.90663069862643, 1.8)
    pt3dadd(-34.3558552485144, -86.754102797103, 4.01040185631463, 1.8)
    pt3dadd(-34.36574477943, -87.7533396727789, 3.97261477561384, 1.8)
    pt3dadd(-34.3756343103457, -88.7525765484546, 3.93482769491306, 1.8)
    pt3dadd(-34.3855238412614, -89.7518134241305, 3.89704061421227, 1.8)
    pt3dadd(-34.395413372177, -90.7510502998063, 3.85925353351149, 1.8)
    pt3dadd(-34.4053029030927, -91.7502871754822, 3.82146645281071, 1.8)
    pt3dadd(-34.4151924340084, -92.7495240511579, 3.78367937210992, 1.8)
    pt3dadd(-34.4250819649241, -93.7487609268338, 3.74589229140914, 1.8)
    pt3dadd(-34.4349714958397, -94.7479978025096, 3.70810521070836, 1.8)
    pt3dadd(-34.4448610267554, -95.7472346781855, 3.67031813000757, 1.8)
    pt3dadd(-34.5230924257123, -96.7277119198765, 3.84221218644841, 1.8)
    pt3dadd(-34.6055043252856, -97.7070416269201, 4.02693252563831, 1.8)
    pt3dadd(-34.687916224859, -98.6863713339638, 4.21165286482823, 1.8)
    pt3dadd(-34.7703281244324, -99.6657010410075, 4.39637320401814, 1.8)
    pt3dadd(-34.8527400240058, -100.645030748051, 4.58109354320805, 1.8)
    pt3dadd(-34.9368020402001, -101.624941518719, 4.76156851327886, 1.8)
    pt3dadd(-35.0316054853248, -102.608634721214, 4.91440826648044, 1.8)
    pt3dadd(-35.1264089304495, -103.592327923708, 5.06724801968202, 1.8)
    pt3dadd(-35.2212123755742, -104.576021126202, 5.2200877728836, 1.8)
    pt3dadd(-35.3160158206988, -105.559714328697, 5.37292752608518, 1.8)
    pt3dadd(-35.4108192658235, -106.543407531191, 5.52576727928676, 1.8)
    pt3dadd(-35.5056227109482, -107.527100733686, 5.67860703248834, 1.8)
    pt3dadd(-35.5704370645684, -108.523266863022, 5.70705545558938, 1.8)
    pt3dadd(-35.6304561937386, -109.521427400351, 5.71561383475951, 1.8)
    pt3dadd(-35.6904753229088, -110.519587937679, 5.72417221392964, 1.8)
    pt3dadd(-35.7504944520789, -111.517748475008, 5.73273059309977, 1.8)
    pt3dadd(-35.8105135812491, -112.515909012336, 5.7412889722699, 1.8)
    pt3dadd(-35.8705327104193, -113.514069549664, 5.74984735144003, 1.8)
    pt3dadd(-35.8794314668856, -114.50068559115, 5.6927859164648, 1.8)
    pt3dadd(-35.719776156068, -115.449237126725, 5.41936286314411, 1.8)
    pt3dadd(-35.5601208452504, -116.397788662299, 5.14593980982342, 1.8)
  }
  adendMML[0] {pt3dclear()
    pt3dadd(-35.5601208452504, -116.397788662299, 5.14593980982342, 1.8)
    pt3dadd(-35.4004655344328, -117.346340197873, 4.87251675650273, 1.8)
    pt3dadd(-35.2408102236152, -118.294891733448, 4.59909370318204, 1.8)
    pt3dadd(-35.0899047815024, -119.240152530389, 4.34299448761939, 1.8)
    pt3dadd(-35.3482121559555, -120.031512455209, 4.89709445124692, 1.8)
    pt3dadd(-35.6065195304086, -120.822872380029, 5.45119441487444, 1.8)
    pt3dadd(-35.8648269048617, -121.614232304849, 6.00529437850196, 1.8)
    pt3dadd(-36.1231342793148, -122.405592229669, 6.55939434212949, 1.8)
    pt3dadd(-36.381441653768, -123.196952154489, 7.11349430575701, 1.8)
    pt3dadd(-36.6397490282211, -123.988312079309, 7.66759426938453, 1.8)
    pt3dadd(-36.7082295648265, -124.909601452448, 7.87047435011426, 1.8)
    pt3dadd(-36.6632305418209, -125.908563386236, 7.86339319412005, 1.8)
    pt3dadd(-36.6182315188153, -126.907525320024, 7.85631203812584, 1.8)
    pt3dadd(-36.5732324958098, -127.906487253813, 7.84923088213163, 1.8)
    pt3dadd(-36.5282334728042, -128.905449187601, 7.84214972613742, 1.8)
    pt3dadd(-36.4940437187895, -129.9045105532, 7.83656126300686, 1.8)
    pt3dadd(-36.5212372452966, -130.904136568515, 7.83944944939435, 1.8)
    pt3dadd(-36.5484307718038, -131.903762583831, 7.84233763578184, 1.8)
    pt3dadd(-36.5756242983109, -132.903388599146, 7.84522582216933, 1.8)
    pt3dadd(-36.6120945741335, -133.901999486511, 7.82881343302086, 1.8)
    pt3dadd(-36.6723187801559, -134.898011049729, 7.76298022753864, 1.8)
  }
  adendMML[1] {pt3dclear()
    pt3dadd(-36.6723187801559, -134.898011049729, 7.76298022753864, 1.8)
    pt3dadd(-36.739024338985, -135.881260951082, 7.91671825520012, 1.8)
    pt3dadd(-36.8064172533296, -136.863157462344, 8.09374208486385, 1.8)
    pt3dadd(-36.8738101676742, -137.845053973605, 8.27076591452759, 1.8)
    pt3dadd(-36.9412030820188, -138.826950484867, 8.44778974419133, 1.8)
    pt3dadd(-37.0085959963635, -139.808846996128, 8.62481357385506, 1.8)
    pt3dadd(-37.0759889107081, -140.790743507389, 8.8018374035188, 1.8)
    pt3dadd(-37.1433818250527, -141.772640018651, 8.97886123318254, 1.8)
    pt3dadd(-37.2107747393973, -142.754536529912, 9.15588506284628, 1.8)
    pt3dadd(-37.278167653742, -143.736433041174, 9.33290889251002, 1.8)
  }
}
proc shape3d_2() {
  adendMML[1] {
    pt3dadd(-37.3455605680866, -144.718329552435, 9.50993272217375, 1.8)
    pt3dadd(-37.4129534824312, -145.700226063696, 9.68695655183749, 1.8)
    pt3dadd(-37.4260405928009, -146.692723111664, 9.74601838523262, 1.8)
    pt3dadd(-37.4030122690492, -147.692269921482, 9.72663098496862, 1.8)
    pt3dadd(-37.3799839452975, -148.691816731299, 9.70724358470461, 1.8)
    pt3dadd(-37.3569556215458, -149.691363541117, 9.68785618444061, 1.8)
    pt3dadd(-37.3339272977941, -150.690910350934, 9.6684687841766, 1.8)
    pt3dadd(-37.2596890653999, -151.68541587473, 9.67788384611516, 1.8)
    pt3dadd(-37.1065355921864, -152.672152700809, 9.73168393628657, 1.8)
    pt3dadd(-36.953382118973, -153.658889526888, 9.78548402645797, 1.8)
    pt3dadd(-36.8002286457596, -154.645626352967, 9.83928411662936, 1.8)
    pt3dadd(-36.6470751725462, -155.632363179046, 9.89308420680076, 1.8)
    pt3dadd(-36.4939216993328, -156.619100005125, 9.94688429697217, 1.8)
    pt3dadd(-36.3168098936787, -157.563274782586, 10.222505539245, 1.8)
    pt3dadd(-36.1391415872992, -158.506460934858, 10.5032792115689, 1.8)
    pt3dadd(-35.9614732809197, -159.44964708713, 10.7840528838928, 1.8)
    pt3dadd(-35.7838049745402, -160.392833239402, 11.0648265562167, 1.8)
    pt3dadd(-35.6061366681607, -161.336019391674, 11.3456002285406, 1.8)
    pt3dadd(-35.4284683617812, -162.279205543946, 11.6263739008644, 1.8)
    pt3dadd(-35.3209082656718, -163.197328460782, 11.9518844092666, 1.8)
    pt3dadd(-35.5806200039684, -163.984154052817, 12.5117551985645, 1.8)
    pt3dadd(-35.840331742265, -164.770979644853, 13.0716259878624, 1.8)
    pt3dadd(-36.1000434805616, -165.557805236888, 13.6314967771603, 1.8)
    pt3dadd(-36.3597552188582, -166.344630828924, 14.1913675664581, 1.8)
    pt3dadd(-36.6194669571548, -167.131456420959, 14.751238355756, 1.8)
    pt3dadd(-36.8791786954514, -167.918282012995, 15.3111091450539, 1.8)
    pt3dadd(-36.9593602664596, -168.790430024326, 15.6551902851998, 1.8)
    pt3dadd(-36.8006506943112, -169.776111992596, 15.7121317387635, 1.8)
    pt3dadd(-36.6419411221628, -170.761793960867, 15.7690731923272, 1.8)
    pt3dadd(-36.4832315500144, -171.747475929138, 15.8260146458909, 1.8)
    pt3dadd(-36.324521977866, -172.733157897409, 15.8829560994546, 1.8)
    pt3dadd(-36.3230235493324, -173.70450704307, 16.0255897074524, 1.8)
    pt3dadd(-36.49759505638, -174.659804024133, 16.2641949607428, 1.8)
    pt3dadd(-36.6721665634277, -175.615101005197, 16.5028002140332, 1.8)
    pt3dadd(-36.8467380704753, -176.570397986261, 16.7414054673236, 1.8)
    pt3dadd(-37.021309577523, -177.525694967324, 16.980010720614, 1.8)
    pt3dadd(-37.1958810845706, -178.480991948388, 17.2186159739044, 1.8)
    pt3dadd(-37.3704525916183, -179.436288929452, 17.4572212271947, 1.8)
    pt3dadd(-37.5411176418979, -180.391461637688, 17.6919838721478, 1.8)
    pt3dadd(-37.2690071392855, -181.332548699233, 17.4912078353292, 1.8)
    pt3dadd(-36.9968966366731, -182.273635760778, 17.2904317985106, 1.8)
    pt3dadd(-36.7247861340606, -183.214722822323, 17.089655761692, 1.8)
    pt3dadd(-36.4526756314482, -184.155809883868, 16.8888797248734, 1.8)
    pt3dadd(-36.1805651288358, -185.096896945413, 16.6881036880548, 1.8)
    pt3dadd(-35.9084546262233, -186.037984006958, 16.4873276512362, 1.8)
    pt3dadd(-35.6363441236109, -186.979071068503, 16.2865516144176, 1.8)
    pt3dadd(-35.3642336209985, -187.920158130048, 16.085775577599, 1.8)
    pt3dadd(-35.0921231183861, -188.861245191593, 15.8849995407804, 1.8)
    pt3dadd(-34.8200126157736, -189.802332253138, 15.6842235039618, 1.8)
    pt3dadd(-34.8927080283384, -190.650347598422, 16.2019527052077, 1.8)
    pt3dadd(-34.9694426656567, -191.497272656202, 16.7280988274387, 1.8)
    pt3dadd(-35.0461773029751, -192.344197713983, 17.2542449496696, 1.8)
    pt3dadd(-35.1229119402934, -193.191122771764, 17.7803910719005, 1.8)
    pt3dadd(-35.1996465776118, -194.038047829545, 18.3065371941314, 1.8)
    pt3dadd(-35.3510791496496, -194.839312366304, 18.873851915817, 1.8)
    pt3dadd(-35.6078390350407, -195.576193596839, 19.4992161403616, 1.8)
    pt3dadd(-35.8645989204317, -196.313074827373, 20.1245803649062, 1.8)
    pt3dadd(-36.1213588058228, -197.049956057907, 20.7499445894508, 1.8)
    pt3dadd(-36.3781186912139, -197.786837288442, 21.3753088139954, 1.8)
    pt3dadd(-36.6348785766049, -198.523718518976, 22.00067303854, 1.8)
    pt3dadd(-36.891638461996, -199.26059974951, 22.6260372630846, 1.8)
    pt3dadd(-36.8056227802693, -200.080738447667, 23.0699681856776, 1.8)
    pt3dadd(-36.451871588723, -200.965907978468, 23.3721849890158, 1.8)
    pt3dadd(-36.0981203971768, -201.85107750927, 23.6744017923539, 1.8)
    pt3dadd(-36.0156769628842, -202.688254840057, 24.0632983957348, 1.8)
    pt3dadd(-36.3920986392359, -203.444262555967, 24.5987972800084, 1.8)
    pt3dadd(-36.7685203155875, -204.200270271876, 25.1342961642819, 1.8)
    pt3dadd(-37.1449419919392, -204.956277987785, 25.6697950485554, 1.8)
    pt3dadd(-37.5213636682908, -205.712285703695, 26.2052939328289, 1.8)
    pt3dadd(-37.8762019963266, -206.488866227175, 26.6829020206733, 1.8)
    pt3dadd(-38.0126684592234, -207.473594360313, 26.5747937031852, 1.8)
    pt3dadd(-38.1491349221202, -208.458322493451, 26.4666853856972, 1.8)
    pt3dadd(-38.2856013850171, -209.44305062659, 26.3585770682091, 1.8)
    pt3dadd(-38.4220678479139, -210.427778759728, 26.2504687507211, 1.8)
    pt3dadd(-38.5471653345619, -211.414553762198, 26.1486525880237, 1.8)
    pt3dadd(-38.6552336284676, -212.404394698802, 26.0562612243888, 1.8)
    pt3dadd(-38.7633019223734, -213.394235635407, 25.963869860754, 1.8)
    pt3dadd(-38.8713702162792, -214.384076572012, 25.8714784971192, 1.8)
    pt3dadd(-38.979438510185, -215.373917508616, 25.7790871334844, 1.8)
    pt3dadd(-39.0875068040908, -216.36375844522, 25.6866957698495, 1.8)
    pt3dadd(-39.1955750979966, -217.353599381825, 25.5943044062147, 1.8)
    pt3dadd(-39.3036433919023, -218.343440318429, 25.5019130425799, 1.8)
    pt3dadd(-39.3650456765544, -219.335325837947, 25.6042462872456, 1.8)
    pt3dadd(-39.4242126439403, -220.327309293662, 25.7159069050047, 1.8)
    pt3dadd(-39.4833796113263, -221.319292749377, 25.8275675227637, 1.8)
    pt3dadd(-39.5425465787122, -222.311276205092, 25.9392281405227, 1.8)
    pt3dadd(-39.6017135460981, -223.303259660806, 26.0508887582817, 1.8)
    pt3dadd(-39.660880513484, -224.295243116521, 26.1625493760407, 1.8)
    pt3dadd(-39.72004748087, -225.287226572236, 26.2742099937997, 1.8)
    pt3dadd(-39.7792144482559, -226.279210027951, 26.3858706115587, 1.8)
    pt3dadd(-39.8383814156418, -227.271193483666, 26.4975312293177, 1.8)
    pt3dadd(-39.9261471012919, -228.262106169217, 26.4841411726674, 1.8)
    pt3dadd(-40.0316557810668, -229.252354535878, 26.3931681502053, 1.8)
    pt3dadd(-40.1371644608418, -230.24260290254, 26.3021951277431, 1.8)
    pt3dadd(-40.2426731406167, -231.232851269202, 26.211222105281, 1.8)
    pt3dadd(-40.3481818203917, -232.223099635864, 26.1202490828189, 1.8)
    pt3dadd(-40.3946927209398, -233.214169577927, 26.0622447196025, 1.8)
  }
  adendOML[0] {pt3dclear()
    pt3dadd(-40.3946927209398, -233.214169577927, 26.0622447196025, 1.8)
    pt3dadd(-40.2829677359751, -234.207443038715, 26.0926644472296, 1.8)
    pt3dadd(-40.2688072722891, -235.189404190132, 26.1548051081885, 1.8)
    pt3dadd(-40.5448790674799, -236.137713794257, 26.3113083305977, 1.8)
    pt3dadd(-40.8209508626707, -237.086023398382, 26.4678115530069, 1.8)
    pt3dadd(-41.0970226578615, -238.034333002507, 26.624314775416, 1.8)
    pt3dadd(-41.3730944530524, -238.982642606632, 26.7808179978252, 1.8)
    pt3dadd(-41.6491662482432, -239.930952210757, 26.9373212202344, 1.8)
    pt3dadd(-41.9239338940016, -240.878017544284, 26.9769468123403, 1.8)
    pt3dadd(-42.196219941879, -241.822715220237, 26.7941720625004, 1.8)
    pt3dadd(-42.4685059897564, -242.767412896191, 26.6113973126604, 1.8)
    pt3dadd(-42.7407920376337, -243.712110572145, 26.4286225628204, 1.8)
    pt3dadd(-43.0130780855111, -244.656808248098, 26.2458478129805, 1.8)
    pt3dadd(-43.2853641333885, -245.601505924052, 26.0630730631405, 1.8)
    pt3dadd(-43.5576501812658, -246.546203600006, 25.8802983133006, 1.8)
    pt3dadd(-43.8448526331654, -247.484765306477, 25.6893794690182, 1.8)
    pt3dadd(-44.1396700884456, -248.420194526843, 25.4943029667225, 1.8)
    pt3dadd(-44.4344875437259, -249.355623747209, 25.2992264644268, 1.8)
    pt3dadd(-44.7293049990062, -250.291052967575, 25.1041499621311, 1.8)
    pt3dadd(-45.0241224542864, -251.226482187941, 24.9090734598355, 1.8)
    pt3dadd(-45.3189399095667, -252.161911408306, 24.7139969575398, 1.8)
    pt3dadd(-45.5960183848415, -253.104658260432, 24.5286049623731, 1.8)
    pt3dadd(-45.8698064007012, -254.048762483178, 24.3450093770143, 1.8)
    pt3dadd(-46.143594416561, -254.992866705925, 24.1614137916554, 1.8)
    pt3dadd(-46.4173824324208, -255.936970928672, 23.9778182062966, 1.8)
    pt3dadd(-46.6911704482805, -256.881075151419, 23.7942226209377, 1.8)
    pt3dadd(-46.9391762411566, -257.833947591412, 23.6247629918323, 1.8)
    pt3dadd(-47.137594488961, -258.803684146196, 23.4824913739504, 1.8)
    pt3dadd(-47.3360127367654, -259.77342070098, 23.3402197560686, 1.8)
    pt3dadd(-47.5344309845697, -260.743157255763, 23.1979481381868, 1.8)
    pt3dadd(-47.7328492323741, -261.712893810547, 23.055676520305, 1.8)
    pt3dadd(-47.9238966676987, -262.684083262307, 22.9174802125108, 1.8)
    pt3dadd(-47.9944945894484, -263.679015108084, 22.8458802425114, 1.8)
    pt3dadd(-48.0650925111981, -264.673946953861, 22.774280272512, 1.8)
    pt3dadd(-48.1356904329477, -265.668878799637, 22.7026803025126, 1.8)
    pt3dadd(-48.2062883546974, -266.663810645414, 22.6310803325131, 1.8)
    pt3dadd(-48.2768862764471, -267.658742491191, 22.5594803625137, 1.8)
    pt3dadd(-48.2902465942983, -268.657765471654, 22.5197591093892, 1.8)
    pt3dadd(-48.3009927333468, -269.656975304062, 22.481493833808, 1.8)
    pt3dadd(-48.3117388723952, -270.65618513647, 22.4432285582268, 1.8)
    pt3dadd(-48.3224850114437, -271.655394968877, 22.4049632826457, 1.8)
    pt3dadd(-48.3332311504921, -272.654604801285, 22.3666980070645, 1.8)
    pt3dadd(-48.2997948284392, -273.650070599752, 22.3532631371158, 1.8)
    pt3dadd(-48.1337873333914, -274.634302280451, 22.4143328537969, 1.8)
    pt3dadd(-47.9677798383436, -275.618533961151, 22.475402570478, 1.8)
    pt3dadd(-47.8017723432958, -276.60276564185, 22.5364722871591, 1.8)
    pt3dadd(-47.635764848248, -277.58699732255, 22.5975420038401, 1.8)
    pt3dadd(-47.4742210007751, -278.572124240116, 22.6560864757074, 1.8)
    pt3dadd(-47.3128560855096, -279.557287044635, 22.7145297192359, 1.8)
    pt3dadd(-47.1514911702442, -280.542449849153, 22.7729729627644, 1.8)
    pt3dadd(-46.9901262549787, -281.527612653672, 22.8314162062929, 1.8)
    pt3dadd(-46.8077863063358, -282.428476525041, 23.1166246070562, 1.8)
    pt3dadd(-46.5991771553616, -283.223764129074, 23.6858344532479, 1.8)
    pt3dadd(-46.3905680043874, -284.019051733106, 24.2550442994396, 1.8)
    pt3dadd(-46.1819588534132, -284.814339337139, 24.8242541456314, 1.8)
    pt3dadd(-45.9733497024391, -285.609626941172, 25.3934639918231, 1.8)
    pt3dadd(-45.7285507769824, -286.439423994666, 25.8542396287851, 1.8)
    pt3dadd(-45.3842679047956, -287.364085862353, 26.0169348480318, 1.8)
    pt3dadd(-45.0399850326088, -288.288747730039, 26.1796300672785, 1.8)
    pt3dadd(-44.6957021604221, -289.213409597725, 26.3423252865252, 1.8)
    pt3dadd(-44.3514192882352, -290.138071465411, 26.5050205057719, 1.8)
    pt3dadd(-44.0071364160485, -291.062733333098, 26.6677157250186, 1.8)
    pt3dadd(-43.6628535438617, -291.987395200784, 26.8304109442653, 1.8)
    pt3dadd(-43.3699567547971, -292.931852081201, 26.9637289104106, 1.8)
    pt3dadd(-43.1356169034522, -293.898866340136, 27.0635700696909, 1.8)
    pt3dadd(-42.9627227486017, -294.80784263746, 27.3962138464831, 1.8)
    pt3dadd(-42.8231030893874, -295.685389819148, 27.8549264958317, 1.8)
    pt3dadd(-42.6834834301731, -296.562937000836, 28.3136391451804, 1.8)
    pt3dadd(-42.3805053977203, -297.205482951655, 28.2783518133454, 1.8)
    pt3dadd(-41.829897431819, -297.491797764723, 27.4942251043856, 1.8)
    pt3dadd(-41.2792894659176, -297.77811257779, 26.7100983954258, 1.8)
    pt3dadd(-40.7286815000163, -298.064427390858, 25.925971686466, 1.8)
    pt3dadd(-40.2664426449373, -298.460826055469, 25.4175941269184, 1.8)
    pt3dadd(-40.1456125537865, -299.282527083478, 25.9745568811857, 1.8)
    pt3dadd(-40.0247824626358, -300.104228111488, 26.531519635453, 1.8)
  }
  adendMML[2] {pt3dclear()
    pt3dadd(-36.6723187801559, -134.898011049729, 7.76298022753864, 1.8)
    pt3dadd(-36.7821647102685, -135.887389433515, 7.6696096322086, 1.8)
    pt3dadd(-36.8972730858556, -136.876064360384, 7.57331866248126, 1.8)
    pt3dadd(-37.0123814614427, -137.864739287253, 7.47702769275393, 1.8)
    pt3dadd(-37.1274898370298, -138.853414214121, 7.38073672302658, 1.8)
    pt3dadd(-37.2425982126169, -139.84208914099, 7.28444575329925, 1.8)
    pt3dadd(-37.3422672964557, -140.835071973376, 7.22434380807816, 1.8)
    pt3dadd(-37.4376105853987, -141.829261798673, 7.17438133687222, 1.8)
    pt3dadd(-37.5329538743417, -142.82345162397, 7.12441886566626, 1.8)
    pt3dadd(-37.6282971632847, -143.817641449267, 7.07445639446031, 1.8)
    pt3dadd(-37.7236404522277, -144.811831274565, 7.02449392325436, 1.8)
    pt3dadd(-37.5686538902762, -145.764614724334, 6.77828947707667, 1.8)
    pt3dadd(-37.3952588701828, -146.714353281424, 6.51765402249521, 1.8)
    pt3dadd(-37.2218638500894, -147.664091838513, 6.25701856791376, 1.8)
    pt3dadd(-37.0484688299959, -148.613830395602, 5.9963831133323, 1.8)
    pt3dadd(-36.8750738099025, -149.563568952691, 5.73574765875085, 1.8)
    pt3dadd(-36.7412054860174, -150.507164274496, 5.52253823117557, 1.8)
    pt3dadd(-37.0822423617591, -151.376949876316, 5.8791428529233, 1.8)
    pt3dadd(-37.4232792375008, -152.246735478135, 6.23574747467102, 1.8)
    pt3dadd(-37.7643161132425, -153.116521079954, 6.59235209641875, 1.8)
    pt3dadd(-38.1053529889842, -153.986306681774, 6.94895671816648, 1.8)
    pt3dadd(-38.3713247645621, -154.886552170947, 7.21060227280564, 1.8)
    pt3dadd(-38.3946631586647, -155.88525333995, 7.16531105517622, 1.8)
    pt3dadd(-38.4180015527673, -156.883954508952, 7.1200198375468, 1.8)
    pt3dadd(-38.4413399468698, -157.882655677954, 7.07472861991738, 1.8)
    pt3dadd(-38.4646783409724, -158.881356846956, 7.02943740228797, 1.8)
    pt3dadd(-38.488016735075, -159.880058015958, 6.98414618465855, 1.8)
    pt3dadd(-38.5113551291775, -160.878759184961, 6.93885496702913, 1.8)
    pt3dadd(-38.6099289266017, -161.852030857526, 7.01847573983241, 1.8)
    pt3dadd(-38.8344763175137, -162.78272357251, 7.30724820997213, 1.8)
    pt3dadd(-39.0590237084256, -163.713416287494, 7.59602068011185, 1.8)
    pt3dadd(-39.2835710993375, -164.644109002478, 7.88479315025157, 1.8)
    pt3dadd(-39.5081184902494, -165.574801717462, 8.17356562039129, 1.8)
    pt3dadd(-39.7326658811613, -166.505494432446, 8.46233809053101, 1.8)
    pt3dadd(-39.9572132720733, -167.43618714743, 8.75111056067072, 1.8)
    pt3dadd(-40.1404860208667, -168.404213658543, 8.85499846207331, 1.8)
    pt3dadd(-40.3032285983248, -169.390810148505, 8.86692404282051, 1.8)
    pt3dadd(-40.4659711757829, -170.377406638468, 8.87884962356772, 1.8)
    pt3dadd(-40.628713753241, -171.36400312843, 8.89077520431493, 1.8)
    pt3dadd(-40.7914563306991, -172.350599618393, 8.90270078506213, 1.8)
    pt3dadd(-40.9541989081572, -173.337196108355, 8.91462636580934, 1.8)
    pt3dadd(-41.0939231562691, -174.319173121864, 8.88714238498019, 1.8)
    pt3dadd(-41.0647216003981, -175.267248944628, 8.57044141651563, 1.8)
    pt3dadd(-41.0355200445272, -176.215324767391, 8.25374044805108, 1.8)
    pt3dadd(-41.0063184886562, -177.163400590154, 7.93703947958652, 1.8)
    pt3dadd(-40.9771169327853, -178.111476412918, 7.62033851112197, 1.8)
    pt3dadd(-40.9479153769143, -179.059552235681, 7.30363754265741, 1.8)
    pt3dadd(-40.9187138210434, -180.007628058444, 6.98693657419286, 1.8)
    pt3dadd(-40.9807101422289, -180.963138008693, 6.83705853832736, 1.8)
    pt3dadd(-41.1956016204717, -181.93111142987, 6.96686265410584, 1.8)
    pt3dadd(-41.4104930987145, -182.899084851047, 7.09666676988432, 1.8)
    pt3dadd(-41.6253845769573, -183.867058272225, 7.22647088566281, 1.8)
    pt3dadd(-41.8402760552001, -184.835031693402, 7.35627500144129, 1.8)
    pt3dadd(-42.0551675334429, -185.803005114579, 7.48607911721977, 1.8)
    pt3dadd(-42.0938742226636, -186.789674349988, 7.53751669300785, 1.8)
    pt3dadd(-42.0277120433146, -187.787471724758, 7.54230886638553, 1.8)
    pt3dadd(-41.9615498639656, -188.785269099529, 7.54710103976321, 1.8)
    pt3dadd(-41.8953876846166, -189.783066474299, 7.55189321314089, 1.8)
    pt3dadd(-41.8292255052676, -190.780863849069, 7.55668538651857, 1.8)
    pt3dadd(-41.7762888285415, -191.779401421686, 7.55405715258516, 1.8)
    pt3dadd(-41.7298647662501, -192.778303488821, 7.547774898601, 1.8)
    pt3dadd(-41.6834407039586, -193.777205555955, 7.54149264461683, 1.8)
    pt3dadd(-41.6370166416672, -194.776107623089, 7.53521039063267, 1.8)
    pt3dadd(-41.5905925793758, -195.775009690224, 7.52892813664851, 1.8)
    pt3dadd(-41.5441685170844, -196.773911757358, 7.52264588266434, 1.8)
    pt3dadd(-41.497744454793, -197.772813824492, 7.51636362868017, 1.8)
    pt3dadd(-41.4513203925015, -198.771715891627, 7.51008137469602, 1.8)
    pt3dadd(-41.4048963302101, -199.770617958761, 7.50379912071185, 1.8)
    pt3dadd(-41.3584722679187, -200.769520025895, 7.49751686672768, 1.8)
    pt3dadd(-41.3120482056273, -201.76842209303, 7.49123461274352, 1.8)
    pt3dadd(-41.3619080411624, -202.764536366111, 7.43119448401305, 1.8)
    pt3dadd(-41.4249467571077, -203.760269059248, 7.36379623395199, 1.8)
    pt3dadd(-41.487985473053, -204.756001752384, 7.29639798389094, 1.8)
    pt3dadd(-41.5510241889983, -205.75173444552, 7.22899973382988, 1.8)
    pt3dadd(-41.6140629049437, -206.747467138657, 7.16160148376884, 1.8)
    pt3dadd(-41.677101620889, -207.743199831793, 7.09420323370778, 1.8)
    pt3dadd(-41.7295341053809, -208.739642933994, 7.03271370683394, 1.8)
  }
}
proc shape3d_3() {
  adendMML[2] {
    pt3dadd(-41.7410204583217, -209.738828622299, 6.99403523759026, 1.8)
    pt3dadd(-41.7525068112626, -210.738014310603, 6.95535676834657, 1.8)
    pt3dadd(-41.7639931642034, -211.737199998908, 6.91667829910287, 1.8)
    pt3dadd(-41.7754795171442, -212.736385687213, 6.87799982985919, 1.8)
    pt3dadd(-41.7869658700851, -213.735571375518, 6.8393213606155, 1.8)
    pt3dadd(-41.7984522230259, -214.734757063822, 6.80064289137181, 1.8)
    pt3dadd(-41.8099385759667, -215.733942752127, 6.76196442212812, 1.8)
    pt3dadd(-41.8347204350438, -216.732569148831, 6.71586834397643, 1.8)
    pt3dadd(-41.8598649406638, -217.731180290369, 6.66956994406279, 1.8)
    pt3dadd(-41.8850094462838, -218.729791431906, 6.62327154414916, 1.8)
    pt3dadd(-41.9101539519037, -219.728402573444, 6.57697314423553, 1.8)
    pt3dadd(-41.9352984575237, -220.727013714981, 6.5306747443219, 1.8)
    pt3dadd(-41.9604429631437, -221.725624856518, 6.48437634440827, 1.8)
    pt3dadd(-41.9855874687637, -222.724235998056, 6.43807794449464, 1.8)
    pt3dadd(-42.0107319743837, -223.722847139593, 6.391779544581, 1.8)
    pt3dadd(-42.0306108615434, -224.721693256765, 6.34841841658223, 1.8)
    pt3dadd(-42.0459953827561, -225.720739932809, 6.3075643397439, 1.8)
    pt3dadd(-42.0613799039688, -226.719786608852, 6.26671026290557, 1.8)
    pt3dadd(-42.0767644251815, -227.718833284895, 6.22585618606723, 1.8)
    pt3dadd(-42.0921489463942, -228.717879960938, 6.1850021092289, 1.8)
    pt3dadd(-42.1075334676069, -229.716926636981, 6.14414803239056, 1.8)
    pt3dadd(-42.1229179888196, -230.715973313024, 6.10329395555223, 1.8)
    pt3dadd(-42.1676780790316, -231.711634890702, 6.04612053092198, 1.8)
    pt3dadd(-42.2996286418734, -232.697249060403, 5.94050917996511, 1.8)
    pt3dadd(-42.4315792047153, -233.682863230104, 5.83489782900824, 1.8)
  }
  adendOML[1] {pt3dclear()
    pt3dadd(-42.4315792047153, -233.682863230104, 5.83489782900824, 1.8)
    pt3dadd(-42.5635297675571, -234.668477399804, 5.72928647805136, 1.8)
    pt3dadd(-42.695480330399, -235.654091569505, 5.62367512709449, 1.8)
    pt3dadd(-42.8274308932408, -236.639705739206, 5.51806377613761, 1.8)
    pt3dadd(-42.9593814560826, -237.625319908907, 5.41245242518074, 1.8)
    pt3dadd(-43.0913320189245, -238.610934078607, 5.30684107422387, 1.8)
    pt3dadd(-43.2232825817663, -239.596548248308, 5.20122972326699, 1.8)
    pt3dadd(-43.3478029262806, -240.58302045242, 5.09974610848356, 1.8)
    pt3dadd(-43.3635565444141, -241.582052932678, 5.0586860682382, 1.8)
    pt3dadd(-43.3793101625475, -242.581085412936, 5.01762602799284, 1.8)
    pt3dadd(-43.3950637806809, -243.580117893194, 4.97656598774748, 1.8)
    pt3dadd(-43.4108173988144, -244.579150373452, 4.93550594750212, 1.8)
    pt3dadd(-43.4265710169478, -245.578182853711, 4.89444590725676, 1.8)
    pt3dadd(-43.4423246350813, -246.577215333969, 4.85338586701141, 1.8)
    pt3dadd(-43.4580782532147, -247.576247814227, 4.81232582676605, 1.8)
    pt3dadd(-43.4738318713481, -248.575280294485, 4.77126578652068, 1.8)
    pt3dadd(-43.4895854894816, -249.574312774743, 4.73020574627532, 1.8)
    pt3dadd(-43.4769322538947, -250.564927084756, 4.85990769118654, 1.8)
    pt3dadd(-43.4626707467684, -251.555064794869, 4.99927743118212, 1.8)
    pt3dadd(-43.448409239642, -252.545202504982, 5.13864717117771, 1.8)
    pt3dadd(-43.4341477325156, -253.535340215095, 5.27801691117329, 1.8)
    pt3dadd(-43.4198862253892, -254.525477925208, 5.41738665116887, 1.8)
    pt3dadd(-43.4056247182629, -255.515615635321, 5.55675639116446, 1.8)
    pt3dadd(-43.3913632111365, -256.505753345434, 5.69612613116005, 1.8)
    pt3dadd(-43.3771017040101, -257.495891055547, 5.83549587115562, 1.8)
    pt3dadd(-43.3709676939373, -258.448702180567, 6.10875803173747, 1.8)
    pt3dadd(-43.3721456081479, -259.367932344294, 6.50247686366275, 1.8)
    pt3dadd(-43.3733235223584, -260.287162508021, 6.89619569558804, 1.8)
    pt3dadd(-43.3745014365689, -261.206392671748, 7.28991452751333, 1.8)
    pt3dadd(-43.3756793507794, -262.125622835474, 7.68363335943862, 1.8)
    pt3dadd(-43.37685726499, -263.044852999201, 8.0773521913639, 1.8)
    pt3dadd(-43.3750468343789, -263.975918533892, 8.40990181115067, 1.8)
    pt3dadd(-43.3559358742544, -264.975502996913, 8.3883223651537, 1.8)
    pt3dadd(-43.3368249141299, -265.975087459935, 8.36674291915671, 1.8)
    pt3dadd(-43.3177139540054, -266.974671922956, 8.34516347315974, 1.8)
    pt3dadd(-43.2986029938809, -267.974256385977, 8.32358402716276, 1.8)
    pt3dadd(-43.2946884034606, -268.972994304732, 8.29353316541291, 1.8)
    pt3dadd(-43.3711198471134, -269.967256386442, 8.21869235238, 1.8)
    pt3dadd(-43.4475512907663, -270.961518468152, 8.14385153934709, 1.8)
    pt3dadd(-43.5239827344191, -271.955780549861, 8.06901072631418, 1.8)
    pt3dadd(-43.5825154959552, -272.95171935323, 8.0041258291903, 1.8)
    pt3dadd(-43.6211375295663, -273.949523363686, 7.95031602304891, 1.8)
    pt3dadd(-43.6597595631773, -274.947327374142, 7.89650621690751, 1.8)
    pt3dadd(-43.6983815967883, -275.945131384599, 7.84269641076613, 1.8)
    pt3dadd(-43.7370036303994, -276.942935395055, 7.78888660462474, 1.8)
    pt3dadd(-43.7756256640104, -277.940739405511, 7.73507679848335, 1.8)
    pt3dadd(-43.7819656489032, -278.938126937671, 7.71247489711227, 1.8)
    pt3dadd(-43.7135810222723, -279.934550430059, 7.76211124123746, 1.8)
    pt3dadd(-43.6451963956414, -280.930973922447, 7.81174758536264, 1.8)
    pt3dadd(-43.5768117690105, -281.927397414835, 7.86138392948782, 1.8)
    pt3dadd(-43.5084271423795, -282.923820907223, 7.91102027361301, 1.8)
    pt3dadd(-43.4400425157486, -283.920244399611, 7.96065661773819, 1.8)
    pt3dadd(-43.3716578891177, -284.916667891999, 8.01029296186337, 1.8)
    pt3dadd(-43.3032732624867, -285.913091384387, 8.05992930598856, 1.8)
    pt3dadd(-43.3813159532518, -286.906070758598, 7.9871311919697, 1.8)
    pt3dadd(-43.4698123648939, -287.898804250753, 7.9055922523048, 1.8)
    pt3dadd(-43.5583087765361, -288.891537742907, 7.82405331263992, 1.8)
    pt3dadd(-43.6468051881782, -289.884271235061, 7.74251437297503, 1.8)
    pt3dadd(-43.7353015998204, -290.877004727215, 7.66097543331014, 1.8)
    pt3dadd(-43.8641320975337, -291.856100711117, 7.55731942712307, 1.8)
    pt3dadd(-44.2387741870629, -292.75208442105, 7.31887342424395, 1.8)
    pt3dadd(-44.6134162765921, -293.648068130982, 7.08042742136482, 1.8)
    pt3dadd(-44.8660426516241, -294.549401725031, 6.82657063681141, 1.8)
    pt3dadd(-44.6409236120477, -295.471682478353, 6.51237383531214, 1.8)
    pt3dadd(-44.4158045724714, -296.393963231675, 6.19817703381288, 1.8)
    pt3dadd(-44.1906855328951, -297.316243984997, 5.88398023231361, 1.8)
    pt3dadd(-43.9655664933188, -298.238524738318, 5.56978343081434, 1.8)
    pt3dadd(-43.3960013931959, -298.963047778548, 5.22099056793547, 1.8)
    pt3dadd(-42.7635803621924, -299.651483179612, 4.86588447377917, 1.8)
    pt3dadd(-42.1311593311887, -300.339918580675, 4.51077837962288, 1.8)
    pt3dadd(-41.4987383001851, -301.028353981738, 4.1556722854666, 1.8)
    pt3dadd(-40.8709874572256, -301.792896928636, 4.03237125848422, 1.8)
    pt3dadd(-40.2437228511607, -302.565363817009, 3.93320462929156, 1.8)
    pt3dadd(-39.6164582450957, -303.337830705382, 3.83403800009889, 1.8)
  }
  adendIML[2] {pt3dclear()
    pt3dadd(-33.7401982019709, -24.7971088260136, -4.35644201091349, 1.8)
    pt3dadd(-34.3693420856335, -25.6420420913184, -4.4483866269763, 1.8)
    pt3dadd(-34.8517256424251, -26.5152878902803, -4.51729147972703, 1.8)
    pt3dadd(-35.3341091992166, -27.3885336892421, -4.58619633247777, 1.8)
    pt3dadd(-35.8164927560082, -28.261779488204, -4.6551011852285, 1.8)
    pt3dadd(-36.2988763127998, -29.1350252871658, -4.72400603797924, 1.8)
    pt3dadd(-36.7812598695913, -30.0082710861277, -4.79291089072997, 1.8)
    pt3dadd(-37.2636434263829, -30.8815168850896, -4.86181574348071, 1.8)
    pt3dadd(-37.7460269831744, -31.7547626840514, -4.93072059623144, 1.8)
    pt3dadd(-38.2014076753468, -32.6403639987152, -4.94489971289016, 1.8)
    pt3dadd(-38.6001061871464, -33.5519009901856, -4.84420308995815, 1.8)
    pt3dadd(-38.9988046989459, -34.463437981656, -4.74350646702615, 1.8)
    pt3dadd(-39.3975032107455, -35.3749749731264, -4.64280984409414, 1.8)
    pt3dadd(-39.7962017225451, -36.2865119645968, -4.54211322116214, 1.8)
    pt3dadd(-40.1949002343446, -37.1980489560672, -4.44141659823013, 1.8)
    pt3dadd(-40.5935987461442, -38.1095859475376, -4.34071997529812, 1.8)
    pt3dadd(-40.9924141160806, -39.0211681786389, -4.24140192959606, 1.8)
    pt3dadd(-41.3973317962771, -39.9351128148871, -4.21407293149223, 1.8)
    pt3dadd(-41.8022494764735, -40.8490574511354, -4.18674393338842, 1.8)
    pt3dadd(-42.2071671566699, -41.7630020873837, -4.1594149352846, 1.8)
    pt3dadd(-42.6120848368664, -42.6769467236319, -4.13208593718078, 1.8)
    pt3dadd(-43.0170025170628, -43.5908913598802, -4.10475693907697, 1.8)
    pt3dadd(-43.4219201972592, -44.5048359961285, -4.07742794097315, 1.8)
    pt3dadd(-43.8268378774557, -45.4187806323768, -4.05009894286933, 1.8)
    pt3dadd(-44.2317555576521, -46.332725268625, -4.02276994476551, 1.8)
    pt3dadd(-44.6366732378485, -47.2466699048733, -3.9954409466617, 1.8)
    pt3dadd(-45.1062941571524, -48.1268069872137, -4.04593397816631, 1.8)
    pt3dadd(-45.5887887610326, -49.0002175471834, -4.11191087533344, 1.8)
    pt3dadd(-46.0712833649128, -49.8736281071532, -4.17788777250057, 1.8)
    pt3dadd(-46.5537779687929, -50.747038667123, -4.2438646696677, 1.8)
    pt3dadd(-47.0362725726731, -51.6204492270928, -4.30984156683484, 1.8)
    pt3dadd(-47.5187671765533, -52.4938597870625, -4.37581846400197, 1.8)
    pt3dadd(-48.0012617804335, -53.3672703470323, -4.4417953611691, 1.8)
    pt3dadd(-48.4837563843137, -54.2406809070021, -4.50777225833624, 1.8)
    pt3dadd(-48.9662509881939, -55.1140914669718, -4.57374915550337, 1.8)
    pt3dadd(-49.448745592074, -55.9875020269416, -4.6397260526705, 1.8)
    pt3dadd(-49.9312401959542, -56.8609125869114, -4.70570294983763, 1.8)
    pt3dadd(-50.4043478586609, -57.740479769613, -4.69395112844759, 1.8)
    pt3dadd(-50.8738141345149, -58.6224352324433, -4.65204674419415, 1.8)
    pt3dadd(-51.3432804103689, -59.5043906952735, -4.6101423599407, 1.8)
    pt3dadd(-51.8127466862229, -60.3863461581038, -4.56823797568726, 1.8)
    pt3dadd(-52.2822129620769, -61.268301620934, -4.52633359143381, 1.8)
    pt3dadd(-52.7516792379309, -62.1502570837643, -4.48442920718037, 1.8)
    pt3dadd(-53.2211455137849, -63.0322125465945, -4.44252482292692, 1.8)
    pt3dadd(-53.6891895274281, -63.9038771372193, -4.31368376666765, 1.8)
    pt3dadd(-54.156392043044, -64.7694530132635, -4.13340561432404, 1.8)
    pt3dadd(-54.6235945586599, -65.6350288893078, -3.95312746198042, 1.8)
    pt3dadd(-55.0907970742758, -66.500604765352, -3.7728493096368, 1.8)
    pt3dadd(-55.5579995898917, -67.3661806413962, -3.59257115729318, 1.8)
    pt3dadd(-56.0252021055076, -68.2317565174405, -3.41229300494956, 1.8)
    pt3dadd(-56.4924046211235, -69.0973323934847, -3.23201485260595, 1.8)
    pt3dadd(-56.9596071367394, -69.962908269529, -3.05173670026233, 1.8)
    pt3dadd(-57.4268096523553, -70.8284841455732, -2.87145854791871, 1.8)
    pt3dadd(-57.8940121679712, -71.6940600216174, -2.6911803955751, 1.8)
    pt3dadd(-58.4506281229673, -72.5223013205669, -2.64241612524746, 1.8)
    pt3dadd(-59.0133326589437, -73.3480003328358, -2.60260725274618, 1.8)
    pt3dadd(-59.57603719492, -74.1736993451047, -2.5627983802449, 1.8)
    pt3dadd(-60.1387417308964, -74.9993983573736, -2.52298950774362, 1.8)
    pt3dadd(-60.7014462668727, -75.8250973696425, -2.48318063524233, 1.8)
    pt3dadd(-61.264150802849, -76.6507963819113, -2.44337176274106, 1.8)
    pt3dadd(-61.8268553388254, -77.4764953941802, -2.40356289023978, 1.8)
    pt3dadd(-62.3895598748017, -78.3021944064492, -2.3637540177385, 1.8)
    pt3dadd(-62.9637702258496, -79.0922782418164, -2.56379351039549, 1.8)
    pt3dadd(-63.5391587672022, -79.8787150990367, -2.78839336811041, 1.8)
    pt3dadd(-64.1145473085548, -80.665151956257, -3.01299322582532, 1.8)
    pt3dadd(-64.6899358499074, -81.4515888134773, -3.23759308354023, 1.8)
    pt3dadd(-65.2653243912601, -82.2380256706976, -3.46219294125515, 1.8)
    pt3dadd(-65.8625806652973, -83.012891678771, -3.63379681763618, 1.8)
    pt3dadd(-66.5456271713105, -83.7423635965292, -3.59748990610024, 1.8)
    pt3dadd(-67.2286736773237, -84.4718355142874, -3.56118299456429, 1.8)
    pt3dadd(-67.911720183337, -85.2013074320456, -3.52487608302835, 1.8)
    pt3dadd(-68.5947666893502, -85.9307793498039, -3.48856917149241, 1.8)
    pt3dadd(-69.2612013877942, -86.6742624331002, -3.48705295859474, 1.8)
    pt3dadd(-69.8970771857116, -87.4435203041286, -3.54953733651281, 1.8)
    pt3dadd(-70.5329529836289, -88.212778175157, -3.61202171443088, 1.8)
    pt3dadd(-71.1688287815463, -88.9820360461854, -3.67450609234895, 1.8)
    pt3dadd(-71.8047045794637, -89.7512939172138, -3.73699047026703, 1.8)
    pt3dadd(-72.440580377381, -90.5205517882422, -3.7994748481851, 1.8)
    pt3dadd(-73.0716510532733, -91.290634946033, -3.87320671779641, 1.8)
    pt3dadd(-73.5976720996194, -92.0787605319263, -4.19283137213521, 1.8)
    pt3dadd(-74.1236931459656, -92.8668861178197, -4.51245602647399, 1.8)
    pt3dadd(-74.6497141923118, -93.655011703713, -4.83208068081278, 1.8)
    pt3dadd(-75.1757352386579, -94.4431372896063, -5.15170533515157, 1.8)
    pt3dadd(-75.7017562850041, -95.2312628754997, -5.47132998949036, 1.8)
    pt3dadd(-76.2277773313502, -96.019388461393, -5.79095464382915, 1.8)
    pt3dadd(-76.7537983776964, -96.8075140472863, -6.11057929816794, 1.8)
    pt3dadd(-77.3028591372184, -97.5759221019134, -6.43766129202225, 1.8)
    pt3dadd(-77.8778771198373, -98.3221158019567, -6.77314494539536, 1.8)
    pt3dadd(-78.4528951024563, -99.0683095019999, -7.10862859876848, 1.8)
    pt3dadd(-79.0279130850753, -99.8145032020432, -7.4441122521416, 1.8)
    pt3dadd(-79.6029310676942, -100.560696902086, -7.77959590551471, 1.8)
    pt3dadd(-80.1779490503132, -101.30689060213, -8.11507955888782, 1.8)
    pt3dadd(-80.7529670329322, -102.053084302173, -8.45056321226094, 1.8)
    pt3dadd(-81.3223274886639, -102.854431582098, -8.51659246292364, 1.8)
    pt3dadd(-81.8894967365875, -103.677140307986, -8.47825975420893, 1.8)
    pt3dadd(-82.456665984511, -104.499849033874, -8.4399270454942, 1.8)
    pt3dadd(-83.0238352324345, -105.322557759762, -8.40159433677948, 1.8)
    pt3dadd(-83.5910044803581, -106.14526648565, -8.36326162806477, 1.8)
    pt3dadd(-84.1581737282816, -106.967975211538, -8.32492891935004, 1.8)
    pt3dadd(-84.7237236299701, -107.791420274633, -8.30355890348079, 1.8)
    pt3dadd(-85.2801727185966, -108.619003592487, -8.37752013505056, 1.8)
    pt3dadd(-85.836621807223, -109.446586910342, -8.45148136662034, 1.8)
    pt3dadd(-86.3930708958494, -110.274170228197, -8.52544259819011, 1.8)
    pt3dadd(-86.9495199844759, -111.101753546052, -8.59940382975988, 1.8)
    pt3dadd(-87.5059690731023, -111.929336863906, -8.67336506132965, 1.8)
    pt3dadd(-88.0624181617288, -112.756920181761, -8.74732629289943, 1.8)
    pt3dadd(-88.6188672503552, -113.584503499616, -8.8212875244692, 1.8)
    pt3dadd(-89.1753163389817, -114.412086817471, -8.89524875603898, 1.8)
    pt3dadd(-89.7244080741139, -115.241202323291, -8.98889860385651, 1.8)
    pt3dadd(-90.2354730473321, -116.078237000999, -9.18430981505876, 1.8)
    pt3dadd(-90.7465380205502, -116.915271678707, -9.37972102626101, 1.8)
  }
  adendMML[3] {pt3dclear()
    pt3dadd(-90.7465380205502, -116.915271678707, -9.37972102626101, 1.8)
    pt3dadd(-91.2576029937684, -117.752306356415, -9.57513223746327, 1.8)
    pt3dadd(-91.7686679669866, -118.589341034123, -9.77054344866552, 1.8)
    pt3dadd(-92.2797329402048, -119.426375711831, -9.96595465986778, 1.8)
    pt3dadd(-92.8250722453087, -120.246135913177, -10.1165933580095, 1.8)
    pt3dadd(-93.4483308095325, -121.026624323482, -10.1654462340893, 1.8)
    pt3dadd(-94.0715893737563, -121.807112733787, -10.2142991101691, 1.8)
    pt3dadd(-94.69484793798, -122.587601144092, -10.2631519862489, 1.8)
    pt3dadd(-95.3181065022038, -123.368089554397, -10.3120048623287, 1.8)
    pt3dadd(-95.9413650664276, -124.148577964702, -10.3608577384085, 1.8)
    pt3dadd(-96.5646236306513, -124.929066375007, -10.4097106144883, 1.8)
    pt3dadd(-97.1878821948751, -125.709554785312, -10.4585634905681, 1.8)
    pt3dadd(-97.8925521768084, -126.411520250265, -10.4943050332193, 1.8)
    pt3dadd(-98.6562906454899, -127.05651297494, -10.5205335782262, 1.8)
    pt3dadd(-99.4200291141714, -127.701505699614, -10.5467621232331, 1.8)
    pt3dadd(-100.183767582853, -128.346498424289, -10.57299066824, 1.8)
    pt3dadd(-100.947506051534, -128.991491148963, -10.5992192132469, 1.8)
    pt3dadd(-101.711244520216, -129.636483873637, -10.6254477582539, 1.8)
    pt3dadd(-102.442836865412, -130.250818408783, -10.3483087454425, 1.8)
    pt3dadd(-103.170818207191, -130.861709081492, -10.0370921777294, 1.8)
    pt3dadd(-103.89879954897, -131.472599754201, -9.72587561001623, 1.8)
    pt3dadd(-104.626780890749, -132.083490426909, -9.41465904230311, 1.8)
    pt3dadd(-105.354762232527, -132.694381099618, -9.10344247458998, 1.8)
    pt3dadd(-106.064647497834, -133.382091309982, -8.95799857520515, 1.8)
    pt3dadd(-106.773478622221, -134.074276447175, -8.82221134108786, 1.8)
    pt3dadd(-107.482309746608, -134.766461584369, -8.68642410697057, 1.8)
    pt3dadd(-108.191140870995, -135.458646721562, -8.55063687285328, 1.8)
    pt3dadd(-108.899971995382, -136.150831858755, -8.41484963873599, 1.8)
    pt3dadd(-109.477820920936, -136.923161537977, -8.44478948822967, 1.8)
    pt3dadd(-109.879381693688, -137.803357273787, -8.69778042175895, 1.8)
    pt3dadd(-110.280942466441, -138.683553009597, -8.95077135528824, 1.8)
    pt3dadd(-110.682503239193, -139.563748745407, -9.20376228881753, 1.8)
    pt3dadd(-111.084064011946, -140.443944481218, -9.45675322234681, 1.8)
    pt3dadd(-111.485624784698, -141.324140217028, -9.7097441558761, 1.8)
    pt3dadd(-111.98734754082, -142.154157292773, -9.84762363149079, 1.8)
    pt3dadd(-112.645655567459, -142.905729046288, -9.8055470182702, 1.8)
    pt3dadd(-113.303963594098, -143.657300799804, -9.76347040504962, 1.8)
    pt3dadd(-113.962271620738, -144.408872553319, -9.72139379182904, 1.8)
    pt3dadd(-114.620579647377, -145.160444306835, -9.67931717860846, 1.8)
  }
}
proc shape3d_4() {
  adendMML[3] {
    pt3dadd(-115.278887674016, -145.91201606035, -9.63724056538788, 1.8)
    pt3dadd(-115.937195700655, -146.663587813866, -9.5951639521673, 1.8)
    pt3dadd(-116.553558625262, -147.407514965648, -9.36674461961125, 1.8)
    pt3dadd(-117.153284502524, -148.148409973154, -9.06441456818631, 1.8)
    pt3dadd(-117.753010379786, -148.889304980661, -8.76208451676138, 1.8)
    pt3dadd(-118.352736257048, -149.630199988167, -8.45975446533645, 1.8)
    pt3dadd(-118.950339370906, -150.374686251721, -8.16368860301034, 1.8)
    pt3dadd(-119.512125686618, -151.179766782508, -7.9733166659346, 1.8)
    pt3dadd(-120.07391200233, -151.984847313295, -7.78294472885886, 1.8)
    pt3dadd(-120.635698318043, -152.789927844082, -7.59257279178312, 1.8)
    pt3dadd(-121.197484633755, -153.595008374869, -7.40220085470738, 1.8)
    pt3dadd(-121.762287032749, -154.377512799379, -7.15639364909305, 1.8)
    pt3dadd(-122.334028645833, -155.108075543188, -6.78304447576217, 1.8)
    pt3dadd(-122.905770258917, -155.838638286997, -6.40969530243129, 1.8)
    pt3dadd(-123.477511872001, -156.569201030805, -6.03634612910041, 1.8)
    pt3dadd(-124.085008870889, -157.256318904942, -5.63802464862976, 1.8)
    pt3dadd(-124.693981759409, -157.941643487488, -5.2386723760605, 1.8)
    pt3dadd(-125.302954647929, -158.626968070033, -4.83932010349125, 1.8)
    pt3dadd(-125.881453839713, -159.408772523966, -4.77710050979953, 1.8)
    pt3dadd(-126.447593587186, -160.229707038419, -4.85161432939334, 1.8)
    pt3dadd(-127.116241761239, -160.843065902149, -4.60357562862357, 1.8)
    pt3dadd(-127.859788211987, -161.304758614696, -4.11986237186782, 1.8)
    pt3dadd(-128.603334662734, -161.766451327243, -3.63614911511207, 1.8)
    pt3dadd(-129.346881113482, -162.228144039791, -3.15243585835632, 1.8)
    pt3dadd(-130.09042756423, -162.689836752338, -2.66872260160057, 1.8)
    pt3dadd(-130.818381932043, -163.334763320083, -2.44398264700365, 1.8)
    pt3dadd(-131.545773090678, -163.986308566638, -2.22859719245508, 1.8)
    pt3dadd(-132.273164249313, -164.637853813192, -2.01321173790653, 1.8)
    pt3dadd(-132.944371064594, -165.349700141315, -1.83636232835052, 1.8)
    pt3dadd(-133.537656867772, -166.145176908565, -1.71295783688062, 1.8)
    pt3dadd(-134.130942670949, -166.940653675814, -1.58955334541072, 1.8)
    pt3dadd(-134.721028132488, -167.737650566432, -1.46555644714675, 1.8)
    pt3dadd(-135.008568614277, -168.67835264413, -1.28555624617993, 1.8)
    pt3dadd(-135.296109096065, -169.619054721827, -1.1055560452131, 1.8)
    pt3dadd(-135.583649577854, -170.559756799525, -0.92555584424629, 1.8)
    pt3dadd(-135.871190059642, -171.500458877223, -0.745555643279463, 1.8)
    pt3dadd(-136.158730541431, -172.44116095492, -0.565555442312636, 1.8)
    pt3dadd(-136.458455749236, -173.37694545068, -0.38981065253617, 1.8)
    pt3dadd(-136.987233551174, -174.220287580634, -0.294060519260682, 1.8)
    pt3dadd(-137.516011353113, -175.063629710588, -0.198310385985206, 1.8)
    pt3dadd(-138.044789155051, -175.906971840542, -0.102560252709726, 1.8)
    pt3dadd(-138.573566956989, -176.750313970496, -0.00681011943423826, 1.8)
    pt3dadd(-139.102344758927, -177.59365610045, 0.0889400138412562, 1.8)
    pt3dadd(-139.573727069864, -178.457129522001, 0.0669304785579037, 1.8)
    pt3dadd(-139.941445887162, -179.356962594495, -0.16776786624121, 1.8)
    pt3dadd(-140.30916470446, -180.256795666989, -0.402466211040327, 1.8)
    pt3dadd(-140.676883521758, -181.156628739482, -0.637164555839451, 1.8)
    pt3dadd(-141.298760301044, -181.843380349489, -0.992731544123679, 1.8)
    pt3dadd(-141.95166738121, -182.504116713541, -1.36305545894639, 1.8)
    pt3dadd(-142.604574461377, -183.164853077592, -1.73337937376909, 1.8)
    pt3dadd(-143.143711166598, -183.740144603839, -2.26915515272094, 1.8)
    pt3dadd(-143.464677729393, -184.151584051348, -3.12220734725603, 1.8)
    pt3dadd(-143.785644292188, -184.563023498857, -3.97525954179113, 1.8)
    pt3dadd(-144.116049867464, -185.019325208446, -4.7805450194851, 1.8)
    pt3dadd(-144.519963170648, -185.824998524521, -5.21384001285117, 1.8)
    pt3dadd(-144.923876473832, -186.630671840596, -5.64713500621725, 1.8)
    pt3dadd(-145.327789777015, -187.436345156671, -6.08042999958332, 1.8)
    pt3dadd(-145.731703080199, -188.242018472746, -6.5137249929494, 1.8)
    pt3dadd(-146.174542007853, -189.050463809445, -6.8730890702058, 1.8)
    pt3dadd(-146.7352788778, -189.867305042985, -7.008531168054, 1.8)
    pt3dadd(-147.296015747748, -190.684146276526, -7.1439732659022, 1.8)
    pt3dadd(-147.856752617695, -191.500987510067, -7.2794153637504, 1.8)
    pt3dadd(-148.417489487642, -192.317828743607, -7.41485746159859, 1.8)
    pt3dadd(-148.737351829216, -193.167877190959, -7.7753918173465, 1.8)
    pt3dadd(-148.958221107585, -194.031572925294, -8.22843314036792, 1.8)
    pt3dadd(-149.179090385954, -194.895268659628, -8.68147446338935, 1.8)
    pt3dadd(-149.399959664323, -195.758964393963, -9.13451578641078, 1.8)
    pt3dadd(-149.630506174943, -196.611815783013, -9.54860969821144, 1.8)
    pt3dadd(-150.129948097463, -197.16334189472, -8.88049540100233, 1.8)
    pt3dadd(-150.629390019982, -197.714868006427, -8.21238110379322, 1.8)
    pt3dadd(-151.128831942502, -198.266394118135, -7.54426680658411, 1.8)
    pt3dadd(-151.628273865021, -198.817920229842, -6.87615250937501, 1.8)
    pt3dadd(-152.127715787541, -199.369446341549, -6.20803821216592, 1.8)
    pt3dadd(-152.62715771006, -199.920972453256, -5.53992391495681, 1.8)
    pt3dadd(-153.126599632579, -200.472498564964, -4.8718096177477, 1.8)
  }
  adendMML[4] {pt3dclear()
    pt3dadd(-153.126599632579, -200.472498564964, -4.8718096177477, 1.8)
    pt3dadd(-153.776215760428, -201.212948562176, -4.73431651657952, 1.8)
    pt3dadd(-154.430617410518, -201.959418897262, -4.61373244136498, 1.8)
    pt3dadd(-155.085019060608, -202.705889232349, -4.49314836615043, 1.8)
    pt3dadd(-155.739420710699, -203.452359567435, -4.37256429093588, 1.8)
    pt3dadd(-156.393822360789, -204.198829902521, -4.25198021572134, 1.8)
    pt3dadd(-157.048224010879, -204.945300237608, -4.13139614050679, 1.8)
    pt3dadd(-157.691444488532, -205.700871146943, -4.07398243705777, 1.8)
    pt3dadd(-158.302483216782, -206.482635409572, -4.19838625634867, 1.8)
    pt3dadd(-158.913521945031, -207.264399672202, -4.32279007563956, 1.8)
    pt3dadd(-159.524560673281, -208.046163934831, -4.44719389493044, 1.8)
    pt3dadd(-160.135599401531, -208.827928197461, -4.57159771422133, 1.8)
    pt3dadd(-160.746638129781, -209.60969246009, -4.69600153351222, 1.8)
    pt3dadd(-161.35767685803, -210.39145672272, -4.82040535280311, 1.8)
    pt3dadd(-161.934753483831, -211.186965177508, -4.9788777133742, 1.8)
    pt3dadd(-162.389232706664, -212.032087824088, -5.26033170295706, 1.8)
    pt3dadd(-162.843711929497, -212.877210470667, -5.54178569253992, 1.8)
    pt3dadd(-163.298191152329, -213.722333117246, -5.82323968212278, 1.8)
    pt3dadd(-163.752670375162, -214.567455763826, -6.10469367170565, 1.8)
    pt3dadd(-164.207149597995, -215.412578410405, -6.38614766128851, 1.8)
    pt3dadd(-164.661628820828, -216.257701056984, -6.66760165087137, 1.8)
    pt3dadd(-165.050429122362, -217.167575082736, -6.79491943058493, 1.8)
    pt3dadd(-165.429552445937, -218.086989424571, -6.89952714325895, 1.8)
    pt3dadd(-165.808675769512, -219.006403766405, -7.00413485593297, 1.8)
    pt3dadd(-166.187799093086, -219.925818108239, -7.10874256860698, 1.8)
    pt3dadd(-166.566922416661, -220.845232450074, -7.21335028128101, 1.8)
    pt3dadd(-166.829322613637, -221.72453747405, -6.83663512836632, 1.8)
    pt3dadd(-167.084133114402, -222.601234466983, -6.42862288433052, 1.8)
    pt3dadd(-167.338943615167, -223.477931459915, -6.02061064029473, 1.8)
    pt3dadd(-167.593754115932, -224.354628452848, -5.61259839625893, 1.8)
    pt3dadd(-167.846187457103, -225.237810879681, -5.27608514653984, 1.8)
    pt3dadd(-168.078798898987, -226.175071971612, -5.53576487747212, 1.8)
    pt3dadd(-168.311410340871, -227.112333063543, -5.7954446084044, 1.8)
    pt3dadd(-168.544021782756, -228.049594155474, -6.05512433933668, 1.8)
    pt3dadd(-168.77663322464, -228.986855247405, -6.31480407026895, 1.8)
    pt3dadd(-169.064845074392, -229.898256549406, -6.60694848614283, 1.8)
    pt3dadd(-169.363835355721, -230.804644795083, -6.90538635198805, 1.8)
    pt3dadd(-169.662825637049, -231.71103304076, -7.20382421783329, 1.8)
    pt3dadd(-169.961815918378, -232.617421286436, -7.50226208367852, 1.8)
    pt3dadd(-170.29973619391, -233.486193341529, -7.70686462762709, 1.8)
  }
  adendOML[2] {pt3dclear()
    pt3dadd(-170.29973619391, -233.486193341529, -7.70686462762709, 1.8)
    pt3dadd(-170.933498947543, -234.069106966212, -7.19838013595858, 1.8)
    pt3dadd(-171.567261701176, -234.652020590894, -6.68989564429009, 1.8)
    pt3dadd(-172.201024454809, -235.234934215576, -6.18141115262157, 1.8)
    pt3dadd(-172.834787208442, -235.817847840259, -5.67292666095308, 1.8)
    pt3dadd(-173.387871431838, -236.571627770381, -5.34262638618531, 1.8)
    pt3dadd(-173.920843548575, -237.368002444722, -5.05674511563978, 1.8)
    pt3dadd(-174.453815665312, -238.164377119063, -4.77086384509427, 1.8)
    pt3dadd(-174.986787782049, -238.960751793405, -4.48498257454876, 1.8)
    pt3dadd(-175.519759898785, -239.757126467746, -4.19910130400324, 1.8)
    pt3dadd(-176.052732015522, -240.553501142087, -3.91322003345774, 1.8)
    pt3dadd(-176.645860752491, -241.327280876037, -3.69098448698714, 1.8)
    pt3dadd(-177.239537998876, -242.100854588812, -3.46932926366035, 1.8)
    pt3dadd(-177.833215245262, -242.874428301587, -3.24767404033355, 1.8)
    pt3dadd(-178.426892491647, -243.648002014362, -3.02601881700676, 1.8)
    pt3dadd(-179.010889801495, -244.426958148902, -2.82158880442653, 1.8)
    pt3dadd(-179.355234604697, -245.339170412017, -3.04361457664506, 1.8)
    pt3dadd(-179.6995794079, -246.251382675133, -3.26564034886357, 1.8)
    pt3dadd(-179.970971619157, -247.177916177434, -3.51003968030591, 1.8)
    pt3dadd(-180.143715233991, -248.123815271925, -3.78469318306097, 1.8)
    pt3dadd(-180.316458848825, -249.069714366416, -4.05934668581602, 1.8)
    pt3dadd(-180.489202463659, -250.015613460907, -4.33400018857107, 1.8)
    pt3dadd(-180.661946078493, -250.961512555397, -4.60865369132613, 1.8)
    pt3dadd(-180.834689693327, -251.907411649888, -4.88330719408118, 1.8)
    pt3dadd(-181.074651548474, -252.863572724295, -5.05046493954722, 1.8)
    pt3dadd(-181.315579764553, -253.819881329735, -5.21607727561788, 1.8)
    pt3dadd(-181.556507980631, -254.776189935174, -5.38168961168854, 1.8)
    pt3dadd(-181.797436196709, -255.732498540614, -5.5473019477592, 1.8)
    pt3dadd(-182.09178422267, -256.66739630236, -5.59257481307373, 1.8)
    pt3dadd(-182.49804076062, -257.557440747262, -5.38574998025448, 1.8)
    pt3dadd(-182.904297298571, -258.447485192164, -5.17892514743524, 1.8)
    pt3dadd(-183.310553836522, -259.337529637067, -4.97210031461599, 1.8)
    pt3dadd(-183.716810374473, -260.227574081969, -4.76527548179675, 1.8)
    pt3dadd(-184.034695942946, -261.131972333721, -4.95699113305465, 1.8)
    pt3dadd(-184.329140730357, -262.040177994691, -5.25442136781389, 1.8)
    pt3dadd(-184.623585517768, -262.948383655661, -5.55185160257313, 1.8)
    pt3dadd(-184.98333101083, -263.836154299854, -5.75987659850911, 1.8)
    pt3dadd(-185.544887121309, -264.660770904415, -5.6915963651633, 1.8)
    pt3dadd(-186.106443231788, -265.485387508976, -5.62331613181748, 1.8)
    pt3dadd(-186.667999342268, -266.310004113537, -5.55503589847167, 1.8)
    pt3dadd(-187.229555452747, -267.134620718098, -5.48675566512585, 1.8)
    pt3dadd(-187.791111563226, -267.959237322659, -5.41847543178005, 1.8)
    pt3dadd(-188.398870101557, -268.735864180019, -5.25757103232606, 1.8)
    pt3dadd(-189.012272413467, -269.506628937055, -5.08535229625226, 1.8)
    pt3dadd(-189.625674725376, -270.277393694091, -4.91313356017847, 1.8)
    pt3dadd(-190.239077037286, -271.048158451128, -4.74091482410469, 1.8)
    pt3dadd(-190.852479349196, -271.818923208164, -4.56869608803089, 1.8)
    pt3dadd(-191.417307372638, -272.606105130936, -4.60617450890679, 1.8)
    pt3dadd(-191.91969046692, -273.414392226501, -4.91323020047228, 1.8)
    pt3dadd(-192.422073561203, -274.222679322065, -5.22028589203777, 1.8)
    pt3dadd(-192.924456655485, -275.03096641763, -5.52734158360326, 1.8)
    pt3dadd(-193.426839749768, -275.839253513195, -5.83439727516875, 1.8)
    pt3dadd(-193.92922284405, -276.647540608759, -6.14145296673425, 1.8)
    pt3dadd(-194.45302798261, -277.458346889971, -5.91425341621743, 1.8)
    pt3dadd(-194.978077088477, -278.269299459022, -5.65602993320993, 1.8)
    pt3dadd(-195.503126194345, -279.080252028074, -5.39780645020243, 1.8)
    pt3dadd(-196.028175300212, -279.891204597125, -5.13958296719493, 1.8)
    pt3dadd(-196.55322440608, -280.702157166177, -4.88135948418744, 1.8)
    pt3dadd(-197.077893074387, -281.521726148415, -4.65908147392935, 1.8)
    pt3dadd(-197.601553352759, -282.36413384386, -4.53208073570089, 1.8)
    pt3dadd(-198.125213631132, -283.206541539305, -4.40507999747242, 1.8)
    pt3dadd(-198.648873909504, -284.048949234749, -4.27807925924395, 1.8)
    pt3dadd(-199.172534187877, -284.891356930194, -4.15107852101549, 1.8)
    pt3dadd(-199.721818447312, -285.653321656427, -3.88187380627974, 1.8)
    pt3dadd(-200.313474550556, -286.282265798597, -3.37752043658317, 1.8)
    pt3dadd(-200.9051306538, -286.911209940766, -2.87316706688659, 1.8)
    pt3dadd(-201.496786757044, -287.540154082936, -2.36881369718999, 1.8)
    pt3dadd(-201.941631586173, -288.19569269866, -2.62902288999221, 1.8)
    pt3dadd(-202.312764725053, -288.864583991886, -3.27310722536362, 1.8)
    pt3dadd(-202.884996404905, -289.355554475756, -3.84625114934089, 1.8)
    pt3dadd(-203.725793045002, -289.608913613164, -4.32465490924851, 1.8)
    pt3dadd(-204.590324698393, -289.784854308978, -4.02608170992236, 1.8)
    pt3dadd(-205.46000916975, -289.94398763537, -3.55882856149763, 1.8)
    pt3dadd(-206.329693641106, -290.103120961762, -3.09157541307287, 1.8)
    pt3dadd(-207.293205149813, -290.049086931157, -3.22741633863362, 1.8)
  }
  adendMML[5] {pt3dclear()
    pt3dadd(-153.126599632579, -200.472498564964, -4.8718096177477, 1.8)
    pt3dadd(-153.154290114981, -201.44716446019, -4.7029313548992, 1.8)
    pt3dadd(-153.16694754291, -202.435314327854, -4.5499619836008, 1.8)
    pt3dadd(-153.179604970839, -203.423464195517, -4.39699261230238, 1.8)
    pt3dadd(-153.192262398768, -204.41161406318, -4.24402324100397, 1.8)
    pt3dadd(-153.204919826697, -205.399763930843, -4.09105386970556, 1.8)
    pt3dadd(-153.301322354952, -206.268498061209, -3.70228535567876, 1.8)
    pt3dadd(-153.490176262455, -207.005401797034, -3.05320363066403, 1.8)
    pt3dadd(-153.679030169957, -207.742305532859, -2.40412190564931, 1.8)
    pt3dadd(-153.86788407746, -208.479209268684, -1.75504018063459, 1.8)
    pt3dadd(-153.493900583657, -209.193291500828, -1.25040913318937, 1.8)
    pt3dadd(-152.960854586402, -209.90092418733, -0.78660104162131, 1.8)
    pt3dadd(-152.516770156431, -210.61400906261, -0.288347163881856, 1.8)
    pt3dadd(-152.521294072852, -211.354587803686, 0.383607196508052, 1.8)
    pt3dadd(-152.525817989273, -212.095166544762, 1.05556155689795, 1.8)
    pt3dadd(-152.530341905694, -212.835745285837, 1.72751591728785, 1.8)
    pt3dadd(-152.854367848471, -213.508709236763, 2.38170076094814, 1.8)
    pt3dadd(-153.220714365811, -214.172717073073, 3.03353189134316, 1.8)
    pt3dadd(-153.587060883151, -214.836724909383, 3.68536302173818, 1.8)
    pt3dadd(-153.72646776225, -215.606267020518, 4.06536317299355, 1.8)
    pt3dadd(-153.46035119907, -216.564390653759, 3.95962255532095, 1.8)
    pt3dadd(-153.19423463589, -217.522514287, 3.85388193764835, 1.8)
    pt3dadd(-152.928118072709, -218.480637920241, 3.74814131997575, 1.8)
    pt3dadd(-152.512198260296, -219.228109135992, 3.35563446075557, 1.8)
    pt3dadd(-151.981465536604, -219.814131134559, 2.74334286911185, 1.8)
    pt3dadd(-151.450732812912, -220.400153133126, 2.13105127746811, 1.8)
    pt3dadd(-150.920000089219, -220.986175131693, 1.51875968582437, 1.8)
    pt3dadd(-150.389267365527, -221.57219713026, 0.906468094180635, 1.8)
    pt3dadd(-149.858534641835, -222.158219128827, 0.294176502536885, 1.8)
    pt3dadd(-149.327801918143, -222.744241127394, -0.318115089106829, 1.8)
    pt3dadd(-148.79706919445, -223.330263125961, -0.930406680750568, 1.8)
    pt3dadd(-148.274027565512, -223.976457534865, -1.32801684902181, 1.8)
    pt3dadd(-147.774285224549, -224.804937348065, -1.07527430853981, 1.8)
    pt3dadd(-147.274542883586, -225.633417161265, -0.822531768057811, 1.8)
    pt3dadd(-146.576310528992, -226.242102941515, -0.451686280005738, 1.8)
    pt3dadd(-145.869395459522, -226.841174087334, -0.0756745158225414, 1.8)
    pt3dadd(-145.162480390052, -227.440245233152, 0.300337248360659, 1.8)
    pt3dadd(-144.407395951625, -227.949917255236, 0.706174163692829, 1.8)
    pt3dadd(-143.629184436866, -228.416666972058, 1.12633072991827, 1.8)
    pt3dadd(-142.850972922107, -228.883416688881, 1.54648729614371, 1.8)
    pt3dadd(-142.180903024899, -229.502183452905, 1.90125718588862, 1.8)
    pt3dadd(-141.627810936392, -230.285388492123, 2.18529769034995, 1.8)
    pt3dadd(-141.074718847885, -231.068593531341, 2.46933819481126, 1.8)
    pt3dadd(-140.521626759378, -231.851798570559, 2.75337869927259, 1.8)
    pt3dadd(-139.968534670871, -232.635003609777, 3.0374192037339, 1.8)
    pt3dadd(-139.336139809538, -233.402839953817, 3.13233131525235, 1.8)
  }
  adendOML[3] {pt3dclear()
    pt3dadd(-139.336139809538, -233.402839953817, 3.13233131525235, 1.8)
    pt3dadd(-138.700940353114, -234.170132773771, 3.2205547758739, 1.8)
    pt3dadd(-138.06574089669, -234.937425593726, 3.30877823649545, 1.8)
    pt3dadd(-137.430541440265, -235.704718413681, 3.397001697117, 1.8)
  }
  GCL[4] {pt3dclear()
    pt3dadd(-10.5164845304184, 29.7064659263703, -3.48408141662541, 1.8)
    pt3dadd(-10.5161676095258, 28.7268903706514, -3.65279803755231, 1.8)
    pt3dadd(-10.4693167713717, 27.7422175031819, -3.82079905848276, 1.8)
    pt3dadd(-10.4224659332177, 26.7575446357124, -3.98880007941322, 1.8)
    pt3dadd(-10.3756150950637, 25.772871768243, -4.15680110034367, 1.8)
    pt3dadd(-10.3287642569096, 24.7881989007735, -4.32480212127412, 1.8)
    pt3dadd(-10.2819134187556, 23.803526033304, -4.49280314220457, 1.8)
    pt3dadd(-10.2350625806016, 22.8188531658345, -4.66080416313502, 1.8)
    pt3dadd(-10.1882117424475, 21.834180298365, -4.82880518406547, 1.8)
  }
}
proc shape3d_5() {
  GCL[4] {
    pt3dadd(-10.1488656843024, 20.8482353467302, -4.98574802175551, 1.8)
    pt3dadd(-10.1817005041062, 19.8500555058965, -5.036333394755, 1.8)
    pt3dadd(-10.21453532391, 18.8518756650627, -5.08691876775448, 1.8)
    pt3dadd(-10.2473701437137, 17.8536958242289, -5.13750414075397, 1.8)
    pt3dadd(-10.2802049635175, 16.8555159833951, -5.18808951375345, 1.8)
    pt3dadd(-10.3130397833213, 15.8573361425613, -5.23867488675294, 1.8)
    pt3dadd(-10.3458746031251, 14.8591563017276, -5.28926025975242, 1.8)
    pt3dadd(-10.3787094229288, 13.8609764608938, -5.33984563275191, 1.8)
    pt3dadd(-10.417395000386, 12.8633706041714, -5.39368457993612, 1.8)
    pt3dadd(-10.5062789048862, 11.8706894159873, -5.4754385409798, 1.8)
    pt3dadd(-10.5951628093864, 10.8780082278033, -5.55719250202348, 1.8)
  }
  GCL[5] {pt3dclear()
    pt3dadd(-10.5951628093864, 10.8780082278033, -5.55719250202348, 1.8)
    pt3dadd(-10.4525086644624, 9.93983280744601, -5.32098216258919, 1.8)
    pt3dadd(-10.2457134505008, 9.01675666872218, -4.99668880527011, 1.8)
    pt3dadd(-10.0389182365392, 8.09368052999834, -4.67239544795103, 1.8)
    pt3dadd(-9.83212302257755, 7.17060439127452, -4.34810209063196, 1.8)
    pt3dadd(-9.62532780861593, 6.24752825255069, -4.02380873331288, 1.8)
    pt3dadd(-9.41853259465432, 5.32445211382686, -3.6995153759938, 1.8)
    pt3dadd(-9.2117373806927, 4.40137597510305, -3.37522201867472, 1.8)
    pt3dadd(-9.00494216673109, 3.47829983637919, -3.05092866135564, 1.8)
    pt3dadd(-8.79814695276947, 2.55522369765538, -2.72663530403657, 1.8)
    pt3dadd(-8.59135173880786, 1.63214755893153, -2.40234194671749, 1.8)
    pt3dadd(-8.45109085327431, 0.714989318068646, -2.03518592635505, 1.8)
  }
  adendIML[3] {pt3dclear()
    pt3dadd(-8.45109085327431, 0.714989318068646, -2.03518592635505, 1.8)
    pt3dadd(-8.35671499412899, -0.19808767772986, -1.63846991085508, 1.8)
    pt3dadd(-8.26233913498367, -1.11116467352835, -1.2417538953551, 1.8)
    pt3dadd(-8.16796327583834, -2.02424166932684, -0.845037879855127, 1.8)
    pt3dadd(-8.07358741669302, -2.93731866512535, -0.448321864355152, 1.8)
    pt3dadd(-7.9792115575477, -3.85039566092385, -0.0516058488551765, 1.8)
    pt3dadd(-7.88483569840237, -4.76347265672231, 0.3451101666448, 1.8)
    pt3dadd(-7.79045983925705, -5.67654965252082, 0.741826182144775, 1.8)
    pt3dadd(-7.69608398011172, -6.58962664831933, 1.13854219764475, 1.8)
    pt3dadd(-7.54355960740045, -7.52060867249369, 1.43489012575175, 1.8)
    pt3dadd(-7.29738241053641, -8.48042817455188, 1.56958723490011, 1.8)
    pt3dadd(-7.05120521367237, -9.44024767661008, 1.70428434404847, 1.8)
    pt3dadd(-6.80502801680834, -10.4000671786683, 1.83898145319682, 1.8)
    pt3dadd(-6.5588508199443, -11.3598866807265, 1.97367856234518, 1.8)
    pt3dadd(-6.31267362308026, -12.3197061827847, 2.10837567149354, 1.8)
    pt3dadd(-6.06649642621622, -13.2795256848429, 2.2430727806419, 1.8)
    pt3dadd(-5.82031922935218, -14.239345186901, 2.37776988979026, 1.8)
    pt3dadd(-5.62679628137811, -15.1738433600312, 2.6508875047692, 1.8)
    pt3dadd(-5.46748875650827, -16.091887400758, 3.0139525840675, 1.8)
    pt3dadd(-5.30818123163843, -17.0099314414847, 3.37701766336581, 1.8)
    pt3dadd(-5.14887370676859, -17.9279754822115, 3.74008274266412, 1.8)
    pt3dadd(-4.98956618189874, -18.8460195229383, 4.10314782196243, 1.8)
    pt3dadd(-4.8302586570289, -19.7640635636651, 4.46621290126074, 1.8)
    pt3dadd(-4.6174882921, -20.6945854826251, 4.71797214357344, 1.8)
    pt3dadd(-4.31629554473808, -21.6457446090338, 4.78564226390727, 1.8)
    pt3dadd(-4.01510279737615, -22.5969037354426, 4.85331238424109, 1.8)
    pt3dadd(-3.71391005001422, -23.5480628618513, 4.92098250457492, 1.8)
    pt3dadd(-3.4127173026523, -24.49922198826, 4.98865262490874, 1.8)
    pt3dadd(-3.11152455529038, -25.4503811146687, 5.05632274524257, 1.8)
    pt3dadd(-2.81033180792845, -26.4015402410774, 5.12399286557639, 1.8)
    pt3dadd(-2.50913906056653, -27.3526993674861, 5.19166298591021, 1.8)
    pt3dadd(-2.2079463132046, -28.3038584938948, 5.25933310624404, 1.8)
    pt3dadd(-1.91404420790577, -29.2512613162239, 5.38405676286532, 1.8)
    pt3dadd(-1.6212249437376, -30.198106234253, 5.51725428436804, 1.8)
    pt3dadd(-1.32840567956942, -31.1449511522821, 5.65045180587076, 1.8)
    pt3dadd(-1.03558641540125, -32.0917960703112, 5.78364932737348, 1.8)
    pt3dadd(-0.742767151233076, -33.0386409883403, 5.9168468488762, 1.8)
    pt3dadd(-0.449947887064901, -33.9854859063694, 6.05004437037891, 1.8)
    pt3dadd(-0.157128622896727, -34.9323308243985, 6.18324189188164, 1.8)
    pt3dadd(0.135690641271448, -35.8791757424276, 6.31643941338435, 1.8)
    pt3dadd(0.428509905439622, -36.8260206604567, 6.44963693488707, 1.8)
    pt3dadd(0.664432816353278, -37.760520925475, 6.67778675505847, 1.8)
    pt3dadd(0.813227063718107, -38.67611711216, 7.05134250040194, 1.8)
    pt3dadd(0.962021311082936, -39.5917132988449, 7.42489824574542, 1.8)
    pt3dadd(1.11081555844776, -40.5073094855299, 7.79845399108889, 1.8)
    pt3dadd(1.25960980581259, -41.4229056722148, 8.17200973643237, 1.8)
    pt3dadd(1.40840405317742, -42.3385018588998, 8.54556548177585, 1.8)
    pt3dadd(1.55719830054225, -43.2540980455847, 8.91912122711932, 1.8)
    pt3dadd(1.70599254790708, -44.1696942322696, 9.2926769724628, 1.8)
    pt3dadd(1.85478679527191, -45.0852904189546, 9.66623271780628, 1.8)
    pt3dadd(2.12077341733438, -46.0056886104335, 9.8366577490113, 1.8)
    pt3dadd(2.49980822474041, -46.930718996877, 9.81113523089718, 1.8)
    pt3dadd(2.87884303214644, -47.8557493833205, 9.78561271278307, 1.8)
    pt3dadd(3.25787783955247, -48.7807797697639, 9.76009019466895, 1.8)
    pt3dadd(3.63691264695849, -49.7058101562074, 9.73456767655484, 1.8)
    pt3dadd(4.01594745436452, -50.6308405426509, 9.70904515844073, 1.8)
    pt3dadd(4.39498226177055, -51.5558709290944, 9.68352264032661, 1.8)
    pt3dadd(4.77406577668715, -52.4808462217245, 9.65835099750561, 1.8)
    pt3dadd(5.18452355062478, -53.3703336080444, 9.85919074803308, 1.8)
    pt3dadd(5.5949813245624, -54.2598209943643, 10.0600304985605, 1.8)
    pt3dadd(6.00543909850003, -55.1493083806842, 10.260870249088, 1.8)
    pt3dadd(6.41589687243766, -56.0387957670041, 10.4617099996155, 1.8)
    pt3dadd(6.82635464637529, -56.9282831533241, 10.6625497501429, 1.8)
    pt3dadd(7.23681242031291, -57.817770539644, 10.8633895006704, 1.8)
    pt3dadd(7.64727019425054, -58.7072579259639, 11.0642292511979, 1.8)
    pt3dadd(7.88471263817522, -59.6316738066065, 11.3450312692152, 1.8)
    pt3dadd(8.07503287680775, -60.5656027614946, 11.6476116948685, 1.8)
    pt3dadd(8.26535311544028, -61.4995317163826, 11.9501921205218, 1.8)
    pt3dadd(8.45567335407281, -62.4334606712707, 12.2527725461751, 1.8)
    pt3dadd(8.64599359270534, -63.3673896261588, 12.5553529718284, 1.8)
    pt3dadd(8.83631383133786, -64.3013185810469, 12.8579333974817, 1.8)
    pt3dadd(9.02663406997039, -65.2352475359349, 13.160513823135, 1.8)
    pt3dadd(9.21695430860292, -66.169176490823, 13.4630942487883, 1.8)
    pt3dadd(9.40727454723545, -67.1031054457111, 13.7656746744416, 1.8)
    pt3dadd(9.8555945909362, -67.9783072679903, 13.7878051350585, 1.8)
    pt3dadd(10.3603880013931, -68.8406543561449, 13.7485481317272, 1.8)
    pt3dadd(10.86518141185, -69.7030014442996, 13.7092911283959, 1.8)
    pt3dadd(11.3699748223069, -70.5653485324542, 13.6700341250646, 1.8)
    pt3dadd(11.8747682327638, -71.4276956206088, 13.6307771217334, 1.8)
    pt3dadd(12.3795616432207, -72.2900427087634, 13.5915201184021, 1.8)
    pt3dadd(12.8843550536776, -73.152389796918, 13.5522631150708, 1.8)
    pt3dadd(13.259008172574, -74.0104418448284, 13.7281102061744, 1.8)
    pt3dadd(13.4433447426228, -74.8622128461342, 14.2185245108977, 1.8)
    pt3dadd(13.6276813126716, -75.7139838474399, 14.7089388156211, 1.8)
    pt3dadd(13.8733105569198, -76.551790360153, 15.1733117490428, 1.8)
    pt3dadd(14.4115630759252, -77.3229276593643, 15.5133580569913, 1.8)
    pt3dadd(14.9498155949305, -78.0940649585757, 15.8534043649397, 1.8)
    pt3dadd(15.4880681139358, -78.8652022577871, 16.1934506728882, 1.8)
    pt3dadd(16.0263206329412, -79.6363395569985, 16.5334969808367, 1.8)
    pt3dadd(16.4038121802181, -80.4828079661721, 16.7600365764322, 1.8)
    pt3dadd(16.4566467845628, -81.4814076271359, 16.7573492530896, 1.8)
    pt3dadd(16.5094813889074, -82.4800072880996, 16.7546619297469, 1.8)
    pt3dadd(16.562315993252, -83.4786069490634, 16.7519746064043, 1.8)
    pt3dadd(16.4933991207157, -84.4635481824293, 16.6816372881181, 1.8)
    pt3dadd(16.2989551379685, -85.4344074268918, 16.5415520818505, 1.8)
    pt3dadd(16.1045111552212, -86.4052666713544, 16.401466875583, 1.8)
    pt3dadd(15.9100671724739, -87.3761259158169, 16.2613816693154, 1.8)
    pt3dadd(15.6321519932353, -88.3042229434264, 16.3905548561012, 1.8)
    pt3dadd(15.3083271663986, -89.2088005009819, 16.6678217381678, 1.8)
    pt3dadd(14.9845023395619, -90.1133780585375, 16.9450886202343, 1.8)
    pt3dadd(14.6606775127251, -91.0179556160932, 17.2223555023009, 1.8)
    pt3dadd(14.3368526858884, -91.9225331736488, 17.4996223843674, 1.8)
    pt3dadd(14.0130278590517, -92.8271107312044, 17.776889266434, 1.8)
    pt3dadd(13.6892030322149, -93.73168828876, 18.0541561485005, 1.8)
    pt3dadd(13.407580616559, -94.6399912188529, 18.3443125530213, 1.8)
    pt3dadd(13.373093062963, -95.5701097135633, 18.7099492503652, 1.8)
    pt3dadd(13.338605509367, -96.5002282082738, 19.0755859477091, 1.8)
    pt3dadd(13.304117955771, -97.4303467029842, 19.4412226450529, 1.8)
    pt3dadd(13.2696304021751, -98.3604651976947, 19.8068593423968, 1.8)
    pt3dadd(13.2351428485791, -99.2905836924051, 20.1724960397406, 1.8)
    pt3dadd(13.2026342363088, -100.221556969978, 20.5335956794492, 1.8)
    pt3dadd(13.3143592212735, -101.214830430766, 20.5640154070764, 1.8)
    pt3dadd(13.4260842062382, -102.208103891554, 20.5944351347036, 1.8)
    pt3dadd(13.537809191203, -103.201377352342, 20.6248548623308, 1.8)
    pt3dadd(13.6495341761677, -104.19465081313, 20.655274589958, 1.8)
    pt3dadd(13.7612591611324, -105.187924273918, 20.6856943175852, 1.8)
    pt3dadd(13.8729841460971, -106.181197734706, 20.7161140452124, 1.8)
    pt3dadd(13.9847091310618, -107.174471195494, 20.7465337728396, 1.8)
    pt3dadd(14.0964341160265, -108.167744656282, 20.7769535004668, 1.8)
    pt3dadd(14.1960595031632, -109.151730021831, 20.8692488721238, 1.8)
    pt3dadd(14.2559737791985, -110.105231681458, 21.164621288941, 1.8)
    pt3dadd(14.3158880552339, -111.058733341084, 21.4599937057581, 1.8)
    pt3dadd(14.3758023312692, -112.012235000711, 21.7553661225753, 1.8)
    pt3dadd(14.4357166073046, -112.965736660338, 22.0507385393925, 1.8)
    pt3dadd(14.4956308833399, -113.919238319964, 22.3461109562096, 1.8)
    pt3dadd(14.5555451593753, -114.872739979591, 22.6414833730268, 1.8)
    pt3dadd(14.6154594354106, -115.826241639218, 22.936855789844, 1.8)
    pt3dadd(14.675373711446, -116.779743298844, 23.2322282066611, 1.8)
  }
  adendMML[6] {pt3dclear()
    pt3dadd(14.675373711446, -116.779743298844, 23.2322282066611, 1.8)
    pt3dadd(14.7215163476928, -117.70706927868, 23.5908170697082, 1.8)
    pt3dadd(14.7412207820581, -118.584144314015, 24.0707661479017, 1.8)
    pt3dadd(14.7609252164233, -119.461219349349, 24.5507152260951, 1.8)
    pt3dadd(14.7806296507886, -120.338294384684, 25.0306643042886, 1.8)
    pt3dadd(14.8003340851539, -121.215369420019, 25.5106133824821, 1.8)
    pt3dadd(14.8200385195191, -122.092444455354, 25.9905624606756, 1.8)
    pt3dadd(14.8397429538844, -122.969519490689, 26.4705115388691, 1.8)
    pt3dadd(14.8594473882497, -123.846594526023, 26.9504606170626, 1.8)
    pt3dadd(14.9199717709277, -124.769945524801, 27.2980866631304, 1.8)
    pt3dadd(15.024377526451, -125.743043103121, 27.5034656817345, 1.8)
    pt3dadd(15.1287832819742, -126.71614068144, 27.7088447003387, 1.8)
    pt3dadd(15.2331890374974, -127.689238259759, 27.9142237189428, 1.8)
    pt3dadd(15.3375947930207, -128.662335838078, 28.1196027375469, 1.8)
    pt3dadd(15.4420005485439, -129.635433416398, 28.3249817561511, 1.8)
    pt3dadd(15.5464063040671, -130.608530994717, 28.5303607747552, 1.8)
    pt3dadd(15.6508120595904, -131.581628573036, 28.7357397933594, 1.8)
    pt3dadd(15.7552178151136, -132.554726151355, 28.9411188119635, 1.8)
    pt3dadd(15.8596235706368, -133.527823729675, 29.1464978305677, 1.8)
    pt3dadd(15.96402932616, -134.500921307994, 29.3518768491718, 1.8)
    pt3dadd(16.0684350816833, -135.474018886313, 29.557255867776, 1.8)
    pt3dadd(16.1728408372065, -136.447116464633, 29.7626348863801, 1.8)
    pt3dadd(16.3030679609564, -137.403899935714, 30.0148553385738, 1.8)
    pt3dadd(16.4662519080379, -138.33986107293, 30.3268613465855, 1.8)
    pt3dadd(16.6294358551193, -139.275822210147, 30.6388673545972, 1.8)
    pt3dadd(16.7926198022008, -140.211783347363, 30.9508733626089, 1.8)
    pt3dadd(16.9558037492823, -141.14774448458, 31.2628793706205, 1.8)
    pt3dadd(17.1189876963638, -142.083705621796, 31.5748853786322, 1.8)
    pt3dadd(17.2821716434453, -143.019666759012, 31.8868913866439, 1.8)
    pt3dadd(17.4453555905268, -143.955627896229, 32.1988973946556, 1.8)
    pt3dadd(17.6085395376082, -144.891589033445, 32.5109034026673, 1.8)
    pt3dadd(17.7717234846897, -145.827550170662, 32.8229094106789, 1.8)
    pt3dadd(17.9349074317712, -146.763511307878, 33.1349154186906, 1.8)
    pt3dadd(18.0980913788527, -147.699472445095, 33.4469214267023, 1.8)
    pt3dadd(18.2612753259342, -148.635433582311, 33.758927434714, 1.8)
    pt3dadd(18.4220311068941, -149.601869619656, 33.9379040308368, 1.8)
    pt3dadd(18.5817278119071, -150.581597677437, 34.0588581345453, 1.8)
    pt3dadd(18.7414245169201, -151.561325735219, 34.1798122382537, 1.8)
    pt3dadd(18.9011212219331, -152.541053793, 34.3007663419622, 1.8)
    pt3dadd(19.0608179269461, -153.520781850781, 34.4217204456707, 1.8)
    pt3dadd(19.2205146319591, -154.500509908563, 34.5426745493791, 1.8)
    pt3dadd(19.3802113369721, -155.480237966344, 34.6636286530876, 1.8)
    pt3dadd(19.5399080419851, -156.459966024125, 34.784582756796, 1.8)
    pt3dadd(19.6996047469982, -157.439694081907, 34.9055368605045, 1.8)
    pt3dadd(19.7657645929806, -158.424176647386, 35.0508044778313, 1.8)
    pt3dadd(19.7788339919924, -159.411357816831, 35.2098721662617, 1.8)
    pt3dadd(19.7919033910042, -160.398538986276, 35.3689398546921, 1.8)
    pt3dadd(19.8049727900159, -161.385720155721, 35.5280075431225, 1.8)
    pt3dadd(19.8180421890277, -162.372901325166, 35.6870752315529, 1.8)
    pt3dadd(19.8311115880394, -163.360082494611, 35.8461429199833, 1.8)
    pt3dadd(19.8441809870512, -164.347263664056, 36.0052106084137, 1.8)
    pt3dadd(19.857250386063, -165.334444833501, 36.1642782968441, 1.8)
    pt3dadd(19.8703197850747, -166.321626002946, 36.3233459852745, 1.8)
    pt3dadd(19.8833891840865, -167.308807172391, 36.4824136737048, 1.8)
    pt3dadd(19.8964585830982, -168.295988341836, 36.6414813621352, 1.8)
    pt3dadd(19.9514521869607, -169.286813896822, 36.7591488256276, 1.8)
    pt3dadd(20.0232254759905, -170.279098075585, 36.8602463209405, 1.8)
    pt3dadd(20.0949987650204, -171.271382254348, 36.9613438162535, 1.8)
    pt3dadd(20.1667720540503, -172.263666433111, 37.0624413115664, 1.8)
    pt3dadd(20.2385453430801, -173.255950611874, 37.1635388068794, 1.8)
    pt3dadd(20.31031863211, -174.248234790637, 37.2646363021923, 1.8)
    pt3dadd(20.3820919211399, -175.2405189694, 37.3657337975053, 1.8)
    pt3dadd(20.4538652101698, -176.232803148163, 37.4668312928182, 1.8)
    pt3dadd(20.5256384991996, -177.225087326926, 37.5679287881311, 1.8)
    pt3dadd(20.5769779575996, -178.210355310788, 37.7081223797598, 1.8)
    pt3dadd(20.5570697762913, -179.171159583684, 37.9846342484037, 1.8)
    pt3dadd(20.5371615949831, -180.131963856581, 38.2611461170476, 1.8)
    pt3dadd(20.5172534136749, -181.092768129477, 38.5376579856916, 1.8)
    pt3dadd(20.4973452323666, -182.053572402373, 38.8141698543355, 1.8)
    pt3dadd(20.4774370510584, -183.01437667527, 39.0906817229794, 1.8)
    pt3dadd(20.4575288697502, -183.975180948166, 39.3671935916233, 1.8)
    pt3dadd(20.4370968109738, -184.937005798011, 39.6334017892161, 1.8)
    pt3dadd(20.3990756250498, -185.933096404255, 39.5536653886616, 1.8)
    pt3dadd(20.3610544391259, -186.929187010499, 39.4739289881071, 1.8)
    pt3dadd(20.3230332532019, -187.925277616743, 39.3941925875526, 1.8)
    pt3dadd(20.2850120672779, -188.921368222987, 39.3144561869981, 1.8)
    pt3dadd(20.0541068803928, -189.590357075095, 39.8248912284218, 1.8)
    pt3dadd(19.7297589907493, -190.100881400175, 40.6212349732864, 1.8)
    pt3dadd(19.4054111011057, -190.611405725256, 41.417578718151, 1.8)
    pt3dadd(19.0810632114621, -191.121930050336, 42.2139224630156, 1.8)
    pt3dadd(18.7567153218186, -191.632454375416, 43.0102662078803, 1.8)
    pt3dadd(18.7396796015937, -192.483184874322, 43.26684289762, 1.8)
    pt3dadd(18.878407951196, -193.424682488845, 43.3444268851388, 1.8)
  }
  adendMML[7] {pt3dclear()
    pt3dadd(18.878407951196, -193.424682488845, 43.3444268851388, 1.8)
    pt3dadd(18.6333963169291, -194.450799820366, 43.0781911857223, 1.8)
    pt3dadd(18.501726622745, -195.430098524147, 42.924447436559, 1.8)
    pt3dadd(18.3700569285608, -196.409397227928, 42.7707036873958, 1.8)
    pt3dadd(18.6450007749792, -197.322491013331, 42.5481262615416, 1.8)
    pt3dadd(19.0157967007551, -198.2199781392, 42.3093224920421, 1.8)
    pt3dadd(19.386592626531, -199.117465265069, 42.0705187225426, 1.8)
    pt3dadd(19.7573885523069, -200.014952390938, 41.8317149530432, 1.8)
    pt3dadd(20.1281844780827, -200.912439516808, 41.5929111835437, 1.8)
    pt3dadd(20.1177968804861, -201.730327185668, 41.9378899427859, 1.8)
    pt3dadd(19.9433511671581, -202.513955931648, 42.5341236902157, 1.8)
    pt3dadd(19.7689054538301, -203.297584677629, 43.1303574376455, 1.8)
    pt3dadd(19.5944597405021, -204.08121342361, 43.7265911850753, 1.8)
    pt3dadd(19.4200140271741, -204.864842169591, 44.3228249325051, 1.8)
    pt3dadd(19.1540528729942, -205.64316142742, 44.8824799356252, 1.8)
  }
}
proc shape3d_6() {
  adendMML[7] {
    pt3dadd(18.7916083732896, -206.415882972174, 45.4035705217109, 1.8)
    pt3dadd(18.429163873585, -207.188604516928, 45.9246611077967, 1.8)
    pt3dadd(18.0667193738805, -207.961326061681, 46.4457516938824, 1.8)
    pt3dadd(17.7042748741759, -208.734047606435, 46.9668422799681, 1.8)
    pt3dadd(17.3439702824011, -209.509708121908, 47.4836657979379, 1.8)
    pt3dadd(17.0806907948946, -210.418623875357, 47.8070171000685, 1.8)
    pt3dadd(16.8174113073881, -211.327539628807, 48.130368402199, 1.8)
    pt3dadd(16.5541318198815, -212.236455382256, 48.4537197043295, 1.8)
    pt3dadd(16.290852332375, -213.145371135706, 48.7770710064601, 1.8)
    pt3dadd(15.9925325300523, -214.016901097541, 49.1565147365635, 1.8)
    pt3dadd(15.6489041800726, -214.84008971513, 49.6084882501274, 1.8)
    pt3dadd(15.3052758300929, -215.663278332718, 50.0604617636914, 1.8)
    pt3dadd(14.9616474801131, -216.486466950306, 50.5124352772552, 1.8)
    pt3dadd(14.6180191301334, -217.309655567894, 50.9644087908191, 1.8)
    pt3dadd(14.2743907801537, -218.132844185483, 51.416382304383, 1.8)
    pt3dadd(13.9281235144622, -218.966099916418, 51.8436244201657, 1.8)
    pt3dadd(13.5699508701782, -219.844773087248, 52.1592916749627, 1.8)
    pt3dadd(13.2117782258942, -220.723446258077, 52.4749589297596, 1.8)
    pt3dadd(12.8536055816103, -221.602119428907, 52.7906261845565, 1.8)
    pt3dadd(12.4954329373263, -222.480792599736, 53.1062934393534, 1.8)
    pt3dadd(12.1372602930424, -223.359465770566, 53.4219606941503, 1.8)
    pt3dadd(11.8154688006822, -224.232314471196, 53.7822441347393, 1.8)
    pt3dadd(11.5456308215615, -225.096845631737, 54.206240994961, 1.8)
    pt3dadd(11.2757928424408, -225.961376792278, 54.6302378551827, 1.8)
    pt3dadd(11.0059548633201, -226.825907952818, 55.0542347154045, 1.8)
    pt3dadd(10.7571251568884, -227.689490533902, 55.4886705484867, 1.8)
    pt3dadd(10.6445246264032, -228.546922004914, 55.9907984137296, 1.8)
    pt3dadd(10.5319240959179, -229.404353475925, 56.4929262789726, 1.8)
    pt3dadd(10.4193235654326, -230.261784946937, 56.9950541442156, 1.8)
    pt3dadd(10.3067230349474, -231.119216417949, 57.4971820094585, 1.8)
    pt3dadd(10.1941225044621, -231.97664788896, 57.9993098747015, 1.8)
    pt3dadd(10.4306393378198, -232.901322748511, 57.9095656560514, 1.8)
    pt3dadd(10.7264623643516, -233.837420555767, 57.7192773689101, 1.8)
  }
  adendOML[4] {pt3dclear()
    pt3dadd(10.7264623643516, -233.837420555767, 57.7192773689101, 1.8)
    pt3dadd(11.0222853908833, -234.773518363024, 57.5289890817689, 1.8)
    pt3dadd(11.3181084174151, -235.70961617028, 57.3387007946276, 1.8)
    pt3dadd(11.4812480914421, -236.666132151053, 57.2732126623437, 1.8)
    pt3dadd(11.4304397884247, -237.655571832021, 57.4089610843264, 1.8)
    pt3dadd(11.3796314854072, -238.645011512989, 57.544709506309, 1.8)
    pt3dadd(11.3288231823898, -239.634451193956, 57.6804579282916, 1.8)
    pt3dadd(11.2780148793724, -240.623890874924, 57.8162063502743, 1.8)
    pt3dadd(11.2272065763549, -241.613330555892, 57.9519547722569, 1.8)
    pt3dadd(11.1192660341673, -242.578174972926, 58.1626198181049, 1.8)
    pt3dadd(10.9327250475603, -243.509182125679, 58.4763524141791, 1.8)
    pt3dadd(10.7461840609534, -244.440189278431, 58.7900850102533, 1.8)
    pt3dadd(10.5596430743465, -245.371196431184, 59.1038176063275, 1.8)
    pt3dadd(10.3731020877395, -246.302203583936, 59.4175502024017, 1.8)
    pt3dadd(10.1811464985223, -247.224736348214, 59.7406066835467, 1.8)
    pt3dadd(9.76690222250829, -247.799365338008, 60.4464417945162, 1.8)
    pt3dadd(9.35265794649428, -248.373994327803, 61.1522769054857, 1.8)
    pt3dadd(8.93841367048026, -248.948623317597, 61.8581120164552, 1.8)
    pt3dadd(8.71067256073971, -249.612732956596, 62.5588241992192, 1.8)
    pt3dadd(8.55303844064413, -250.310478587266, 63.2576106609253, 1.8)
    pt3dadd(8.39540432054856, -251.008224217935, 63.9563971226314, 1.8)
    pt3dadd(8.23777020045299, -251.705969848604, 64.6551835843376, 1.8)
    pt3dadd(8.04744697169542, -252.391704803876, 65.3569119499518, 1.8)
    pt3dadd(7.8270987161412, -253.066407924222, 66.0613424615495, 1.8)
    pt3dadd(7.60675046058698, -253.741111044568, 66.7657729731472, 1.8)
    pt3dadd(7.37662494729295, -254.437969865357, 67.4381844163106, 1.8)
    pt3dadd(7.09012452253773, -255.26257674026, 67.9259763888534, 1.8)
    pt3dadd(6.80362409778251, -256.087183615163, 68.4137683613963, 1.8)
    pt3dadd(6.40770049717517, -256.888231354706, 68.8522330052714, 1.8)
    pt3dadd(5.9436452407626, -257.674610146021, 69.2599842965829, 1.8)
    pt3dadd(5.47958998435002, -258.460988937335, 69.6677355878944, 1.8)
    pt3dadd(5.01553472793745, -259.24736772865, 70.075486879206, 1.8)
    pt3dadd(4.64172304097414, -260.016591839066, 70.5932206914506, 1.8)
    pt3dadd(4.27015615665, -260.785389227964, 71.1136903114071, 1.8)
    pt3dadd(3.89858927232586, -261.554186616861, 71.6341599313636, 1.8)
    pt3dadd(3.5270223880017, -262.322984005759, 72.1546295513201, 1.8)
    pt3dadd(3.15545550367756, -263.091781394657, 72.6750991712766, 1.8)
    pt3dadd(3.17369086476125, -263.927074039691, 73.1842699636157, 1.8)
    pt3dadd(3.29828150754473, -264.780509529672, 73.6903579363756, 1.8)
    pt3dadd(3.42287215032822, -265.633945019653, 74.1964459091355, 1.8)
    pt3dadd(3.5474627931117, -266.487380509633, 74.7025338818954, 1.8)
    pt3dadd(3.67205343589519, -267.340815999614, 75.2086218546553, 1.8)
    pt3dadd(3.79664407867867, -268.194251489595, 75.7147098274152, 1.8)
    pt3dadd(3.89276596640235, -269.057914397055, 76.2079686377634, 1.8)
    pt3dadd(3.94820915582456, -269.936191151491, 76.682895995749, 1.8)
    pt3dadd(4.00365234524677, -270.814467905928, 77.1578233537345, 1.8)
    pt3dadd(4.05909553466898, -271.692744660364, 77.6327507117201, 1.8)
    pt3dadd(4.11453872409119, -272.571021414801, 78.1076780697057, 1.8)
    pt3dadd(4.1699819135134, -273.449298169238, 78.5826054276912, 1.8)
    pt3dadd(4.47318068137389, -274.332318435648, 78.7365050802258, 1.8)
    pt3dadd(4.93404454678348, -275.218357347624, 78.6861111914607, 1.8)
    pt3dadd(5.39490841219308, -276.104396259599, 78.6357173026955, 1.8)
    pt3dadd(5.85577227760268, -276.990435171575, 78.5853234139305, 1.8)
    pt3dadd(6.31663614301228, -277.87647408355, 78.5349295251654, 1.8)
    pt3dadd(6.61032888085028, -278.822654953686, 78.6050664726948, 1.8)
    pt3dadd(6.85481377454041, -279.786538977153, 78.710682409291, 1.8)
    pt3dadd(7.09929866823055, -280.750423000619, 78.8162983458871, 1.8)
    pt3dadd(7.48012964462838, -281.621632810189, 79.0011589885379, 1.8)
    pt3dadd(8.11275088640242, -282.321701179923, 79.3323608033799, 1.8)
    pt3dadd(8.74537212817646, -283.021769549657, 79.663562618222, 1.8)
    pt3dadd(8.98182215334725, -283.922542577711, 79.7667222416315, 1.8)
    pt3dadd(9.02425766611709, -284.92160547335, 79.7582041541843, 1.8)
    pt3dadd(9.06669317888693, -285.920668368989, 79.7496860667371, 1.8)
    pt3dadd(9.10912869165676, -286.919731264627, 79.7411679792898, 1.8)
  }
  adendMML[8] {pt3dclear()
    pt3dadd(18.878407951196, -193.424682488845, 43.3444268851388, 1.8)
    pt3dadd(19.4991184253322, -194.093192379639, 43.9374209490438, 1.8)
    pt3dadd(20.0064869593859, -194.808520898173, 44.4179230626956, 1.8)
    pt3dadd(20.5138554934395, -195.523849416707, 44.8984251763474, 1.8)
    pt3dadd(21.0212240274931, -196.239177935242, 45.3789272899992, 1.8)
    pt3dadd(21.5285925615467, -196.954506453776, 45.8594294036509, 1.8)
    pt3dadd(22.0698068727108, -197.655896446237, 46.3148119004265, 1.8)
    pt3dadd(22.7443893658793, -198.302362130823, 46.6712113653015, 1.8)
    pt3dadd(23.4189718590478, -198.948827815409, 47.0276108301764, 1.8)
    pt3dadd(24.0935543522164, -199.595293499995, 47.3840102950513, 1.8)
    pt3dadd(24.7681368453849, -200.241759184581, 47.7404097599263, 1.8)
    pt3dadd(25.3773467299759, -200.898174220336, 48.1759357794387, 1.8)
    pt3dadd(25.9355320940175, -201.562354907245, 48.6732215267786, 1.8)
    pt3dadd(26.4937174580591, -202.226535594154, 49.1705072741184, 1.8)
    pt3dadd(27.0519028221006, -202.890716281062, 49.6677930214583, 1.8)
    pt3dadd(27.6100881861422, -203.554896967971, 50.1650787687981, 1.8)
    pt3dadd(27.9009657628004, -204.111111519706, 50.8998298662964, 1.8)
    pt3dadd(28.0650753235381, -204.616124223277, 51.7471965055419, 1.8)
    pt3dadd(28.2291848842758, -205.121136926848, 52.5945631447875, 1.8)
    pt3dadd(28.3932944450136, -205.626149630419, 53.441929784033, 1.8)
    pt3dadd(28.5574040057513, -206.13116233399, 54.2892964232785, 1.8)
    pt3dadd(28.721513566489, -206.636175037561, 55.1366630625241, 1.8)
    pt3dadd(28.8856231272268, -207.141187741132, 55.9840297017696, 1.8)
    pt3dadd(29.1175632310662, -207.73090349171, 56.6874505414407, 1.8)
    pt3dadd(29.5658327995426, -208.590759565127, 56.9317903191775, 1.8)
    pt3dadd(30.014102368019, -209.450615638545, 57.1761300969143, 1.8)
    pt3dadd(30.4623719364954, -210.310471711963, 57.4204698746511, 1.8)
    pt3dadd(30.9106415049718, -211.170327785381, 57.6648096523879, 1.8)
    pt3dadd(31.3589110734482, -212.030183858799, 57.9091494301247, 1.8)
    pt3dadd(31.8071806419247, -212.890039932216, 58.1534892078615, 1.8)
    pt3dadd(32.1281314141446, -213.680977979556, 58.6545658112828, 1.8)
    pt3dadd(32.4192874927137, -214.455788074587, 59.2157230571157, 1.8)
    pt3dadd(32.7104435712828, -215.230598169617, 59.7768803029486, 1.8)
    pt3dadd(33.0015996498519, -216.005408264648, 60.3380375487816, 1.8)
    pt3dadd(33.292755728421, -216.780218359679, 60.8991947946145, 1.8)
    pt3dadd(33.5839118069902, -217.555028454709, 61.4603520404474, 1.8)
    pt3dadd(33.8750678855593, -218.32983854974, 62.0215092862803, 1.8)
    pt3dadd(34.1870066267991, -219.148089241113, 62.4980056326336, 1.8)
    pt3dadd(34.5123337218566, -219.994324704366, 62.9199627654746, 1.8)
    pt3dadd(34.837660816914, -220.840560167618, 63.3419198983157, 1.8)
    pt3dadd(35.1629879119715, -221.68679563087, 63.7638770311568, 1.8)
    pt3dadd(35.4883150070289, -222.533031094123, 64.1858341639979, 1.8)
    pt3dadd(35.8136421020864, -223.379266557375, 64.607791296839, 1.8)
    pt3dadd(36.1389691971438, -224.225502020628, 65.0297484296801, 1.8)
    pt3dadd(36.4642962922013, -225.07173748388, 65.4517055625211, 1.8)
    pt3dadd(36.591462638544, -225.901791248668, 65.9517465502297, 1.8)
    pt3dadd(36.5240649251572, -226.71595701865, 66.5284541427067, 1.8)
    pt3dadd(36.4566672117704, -227.530122788631, 67.1051617351838, 1.8)
    pt3dadd(36.3892694983835, -228.344288558613, 67.6818693276608, 1.8)
    pt3dadd(36.3218717849967, -229.158454328594, 68.2585769201378, 1.8)
    pt3dadd(36.25447407161, -229.972620098576, 68.8352845126148, 1.8)
    pt3dadd(36.3072459990864, -230.846828977034, 69.2507035072448, 1.8)
    pt3dadd(36.5247564754234, -231.803349947702, 69.445014663271, 1.8)
    pt3dadd(36.7422669517603, -232.75987091837, 69.6393258192972, 1.8)
    pt3dadd(36.9597774280973, -233.716391889038, 69.8336369753234, 1.8)
  }
  adendOML[5] {pt3dclear()
    pt3dadd(36.9597774280973, -233.716391889038, 69.8336369753234, 1.8)
    pt3dadd(37.1772879044342, -234.672912859706, 70.0279481313495, 1.8)
    pt3dadd(37.3947983807712, -235.629433830374, 70.2222592873757, 1.8)
    pt3dadd(37.554401448284, -236.554376039413, 70.5330298405723, 1.8)
    pt3dadd(37.6414947071591, -237.439776331291, 70.9896271329433, 1.8)
    pt3dadd(37.7285879660342, -238.325176623169, 71.4462244253143, 1.8)
    pt3dadd(37.8156812249094, -239.210576915047, 71.9028217176852, 1.8)
    pt3dadd(37.9027744837845, -240.095977206925, 72.3594190100562, 1.8)
    pt3dadd(37.9898677426597, -240.981377498804, 72.8160163024272, 1.8)
    pt3dadd(38.0769610015348, -241.866777790682, 73.2726135947982, 1.8)
    pt3dadd(38.2677034489139, -242.733617828498, 73.7302521414104, 1.8)
    pt3dadd(38.4843623798795, -243.595817053138, 74.1881510436399, 1.8)
    pt3dadd(38.6711465318608, -244.495333218432, 74.5243462803894, 1.8)
    pt3dadd(38.7828715168255, -245.48860667922, 74.5547660080167, 1.8)
  }
  GCL[6] {pt3dclear()
    pt3dadd(-10.5951628093864, 10.8780082278033, -5.55719250202348, 1.8)
    pt3dadd(-10.9093198269596, 9.96189609056549, -5.76246130245856, 1.8)
    pt3dadd(-11.2858823901173, 9.06699524363223, -6.00194639632907, 1.8)
    pt3dadd(-11.6624449532751, 8.17209439669895, -6.24143149019958, 1.8)
    pt3dadd(-12.0390075164329, 7.2771935497657, -6.48091658407009, 1.8)
    pt3dadd(-12.4155700795907, 6.3822927028324, -6.7204016779406, 1.8)
    pt3dadd(-12.7921326427484, 5.48739185589915, -6.95988677181112, 1.8)
    pt3dadd(-13.1256691495804, 4.56999415726909, -7.17603527153613, 1.8)
    pt3dadd(-13.453057246716, 3.64938166572229, -7.38884897941689, 1.8)
    pt3dadd(-13.7804453438515, 2.7287691741755, -7.60166268729765, 1.8)
    pt3dadd(-14.1078334409871, 1.80815668262868, -7.81447639517841, 1.8)
    pt3dadd(-14.4352215381226, 0.8875441910819, -8.02729010305918, 1.8)
  }
  adendIML[4] {pt3dclear()
    pt3dadd(-14.4352215381226, 0.8875441910819, -8.02729010305918, 1.8)
    pt3dadd(-14.7626096352582, -0.0330683004649199, -8.24010381093994, 1.8)
    pt3dadd(-14.9871634322788, -0.974032900385937, -8.46037499219918, 1.8)
    pt3dadd(-15.0660805510203, -1.94382069895069, -8.69120764613811, 1.8)
    pt3dadd(-15.1449976697617, -2.91360849751544, -8.92204030007703, 1.8)
    pt3dadd(-15.2239147885032, -3.88339629608017, -9.15287295401596, 1.8)
    pt3dadd(-15.3028319072446, -4.85318409464492, -9.38370560795488, 1.8)
    pt3dadd(-15.3817490259861, -5.82297189320967, -9.61453826189381, 1.8)
    pt3dadd(-15.4606661447276, -6.79275969177442, -9.84537091583273, 1.8)
    pt3dadd(-15.4513722333861, -7.67402435254746, -10.3176261626889, 1.8)
    pt3dadd(-15.4417665465231, -8.55497613467674, -10.7907347002817, 1.8)
    pt3dadd(-15.4321608596601, -9.43592791680601, -11.2638432378744, 1.8)
    pt3dadd(-15.4225551727971, -10.3168796989353, -11.7369517754672, 1.8)
    pt3dadd(-15.4129494859341, -11.1978314810646, -12.2100603130599, 1.8)
    pt3dadd(-15.4311010162254, -12.1050530890848, -12.5913214311472, 1.8)
    pt3dadd(-15.5369273408158, -13.0952513719088, -12.6824704833421, 1.8)
    pt3dadd(-15.6427536654063, -14.0854496547329, -12.773619535537, 1.8)
    pt3dadd(-15.7485799899967, -15.0756479375569, -12.8647685877319, 1.8)
    pt3dadd(-15.8544063145871, -16.0658462203809, -12.9559176399269, 1.8)
    pt3dadd(-15.9602326391776, -17.0560445032049, -13.0470666921218, 1.8)
    pt3dadd(-16.066058963768, -18.046242786029, -13.1382157443167, 1.8)
    pt3dadd(-16.2337329381563, -19.0234714817972, -13.2635351298213, 1.8)
    pt3dadd(-16.4158421481863, -19.9976730771673, -13.3968298679043, 1.8)
    pt3dadd(-16.5979513582163, -20.9718746725374, -13.5301246059872, 1.8)
    pt3dadd(-16.7800605682462, -21.9460762679075, -13.6634193440702, 1.8)
    pt3dadd(-16.9621697782762, -22.9202778632776, -13.7967140821532, 1.8)
    pt3dadd(-17.1442789883062, -23.8944794586477, -13.9300088202362, 1.8)
    pt3dadd(-17.3263881983362, -24.8686810540178, -14.0633035583192, 1.8)
    pt3dadd(-17.5022571688816, -25.8141909537214, -14.320453514036, 1.8)
    pt3dadd(-17.6746771432719, -26.7438428806216, -14.646058561973, 1.8)
    pt3dadd(-17.8470971176623, -27.6734948075217, -14.9716636099099, 1.8)
    pt3dadd(-18.0195170920526, -28.6031467344219, -15.2972686578468, 1.8)
    pt3dadd(-18.191937066443, -29.5327986613221, -15.6228737057837, 1.8)
    pt3dadd(-18.3643570408333, -30.4624505882223, -15.9484787537207, 1.8)
    pt3dadd(-18.5367770152236, -31.3921025151225, -16.2740838016576, 1.8)
    pt3dadd(-18.7330178988655, -32.3417071789985, -16.5010610838134, 1.8)
    pt3dadd(-18.9475746266496, -33.3066534579574, -16.6522036962232, 1.8)
    pt3dadd(-19.1621313544338, -34.2715997369162, -16.803346308633, 1.8)
    pt3dadd(-19.3766880822179, -35.236546015875, -16.9544889210428, 1.8)
    pt3dadd(-19.591244810002, -36.2014922948339, -17.1056315334526, 1.8)
    pt3dadd(-19.8124704826907, -37.1642277674549, -17.2604324625267, 1.8)
    pt3dadd(-20.0588096250766, -38.1186379324346, -17.4290096374699, 1.8)
    pt3dadd(-20.3051487674625, -39.0730480974144, -17.5975868124131, 1.8)
    pt3dadd(-20.5514879098484, -40.0274582623942, -17.7661639873563, 1.8)
    pt3dadd(-20.7978270522343, -40.981868427374, -17.9347411622994, 1.8)
    pt3dadd(-21.0441661946202, -41.9362785923538, -18.1033183372426, 1.8)
    pt3dadd(-21.2394969612474, -42.8765391138731, -18.345349463406, 1.8)
    pt3dadd(-21.3155010399764, -43.7836985992595, -18.759215441822, 1.8)
    pt3dadd(-21.3915051187054, -44.6908580846458, -19.1730814202379, 1.8)
    pt3dadd(-21.4675091974345, -45.5980175700321, -19.5869473986539, 1.8)
    pt3dadd(-21.5435132761635, -46.5051770554184, -20.0008133770699, 1.8)
    pt3dadd(-21.6195173548925, -47.4123365408047, -20.4146793554858, 1.8)
    pt3dadd(-21.6955214336215, -48.319496026191, -20.8285453339018, 1.8)
    pt3dadd(-21.7829102149591, -49.2336780498982, -21.1608352353049, 1.8)
    pt3dadd(-21.9472976090589, -50.1953558868353, -20.9413984047476, 1.8)
    pt3dadd(-22.1116850031587, -51.1570337237724, -20.7219615741903, 1.8)
    pt3dadd(-22.2760723972585, -52.1187115607095, -20.502524743633, 1.8)
    pt3dadd(-22.4404597913582, -53.0803893976467, -20.2830879130757, 1.8)
    pt3dadd(-22.604847185458, -54.0420672345838, -20.0636510825184, 1.8)
    pt3dadd(-22.7692345795578, -55.0037450715209, -19.8442142519612, 1.8)
    pt3dadd(-22.9336219736576, -55.965422908458, -19.6247774214039, 1.8)
    pt3dadd(-22.9839239232657, -56.9545896867622, -19.5927190351087, 1.8)
    pt3dadd(-22.9922364740004, -57.9538738304219, -19.6296256975228, 1.8)
    pt3dadd(-23.0005490247352, -58.9531579740816, -19.666532359937, 1.8)
    pt3dadd(-23.0088615754699, -59.9524421177414, -19.7034390223511, 1.8)
    pt3dadd(-23.0171741262047, -60.9517262614011, -19.7403456847652, 1.8)
    pt3dadd(-23.0254866769394, -61.9510104050608, -19.7772523471793, 1.8)
    pt3dadd(-23.0337992276741, -62.9502945487205, -19.8141590095935, 1.8)
    pt3dadd(-23.0421117784089, -63.9495786923802, -19.8510656720076, 1.8)
    pt3dadd(-23.0664877319138, -64.948139171151, -19.896932614953, 1.8)
    pt3dadd(-23.0993497818108, -65.946317346739, -19.9475331629368, 1.8)
  }
}
proc shape3d_7() {
  adendIML[4] {
    pt3dadd(-23.1322118317077, -66.9444955223271, -19.9981337109206, 1.8)
    pt3dadd(-23.1650738816047, -67.9426736979151, -20.0487342589045, 1.8)
    pt3dadd(-23.1979359315016, -68.9408518735032, -20.0993348068883, 1.8)
    pt3dadd(-23.2307979813986, -69.9390300490913, -20.1499353548721, 1.8)
    pt3dadd(-23.2636600312955, -70.9372082246793, -20.200535902856, 1.8)
    pt3dadd(-23.2965220811925, -71.9353864002674, -20.2511364508398, 1.8)
    pt3dadd(-23.3293841310894, -72.9335645758554, -20.3017369988237, 1.8)
    pt3dadd(-23.3640554457019, -73.9315647094326, -20.3533436513665, 1.8)
    pt3dadd(-23.4533672818056, -74.9241879027304, -20.4353350659104, 1.8)
    pt3dadd(-23.5426791179092, -75.9168110960283, -20.5173264804543, 1.8)
    pt3dadd(-23.6319909540128, -76.9094342893262, -20.5993178949982, 1.8)
    pt3dadd(-23.7213027901165, -77.9020574826241, -20.6813093095421, 1.8)
    pt3dadd(-23.7519362976624, -78.8969603226124, -20.7305577890952, 1.8)
    pt3dadd(-23.6942427207187, -79.8952946602386, -20.7305191117632, 1.8)
    pt3dadd(-23.636549143775, -80.8936289978648, -20.7304804344311, 1.8)
    pt3dadd(-23.5788555668313, -81.8919633354909, -20.7304417570991, 1.8)
    pt3dadd(-23.5211619898875, -82.8902976731171, -20.7304030797671, 1.8)
    pt3dadd(-23.4634684129438, -83.8886320107433, -20.730364402435, 1.8)
    pt3dadd(-23.4743225764323, -84.8799497650307, -20.8229666692739, 1.8)
    pt3dadd(-23.5293798966187, -85.8667428605786, -20.9753086466562, 1.8)
    pt3dadd(-23.5844372168051, -86.8535359561266, -21.1276506240386, 1.8)
    pt3dadd(-23.6394945369915, -87.8403290516746, -21.2799926014209, 1.8)
    pt3dadd(-23.6945518571779, -88.8271221472225, -21.4323345788032, 1.8)
    pt3dadd(-23.7496091773643, -89.8139152427705, -21.5846765561856, 1.8)
    pt3dadd(-23.8046664975507, -90.8007083383185, -21.7370185335679, 1.8)
    pt3dadd(-23.8597238177371, -91.7875014338664, -21.8893605109503, 1.8)
    pt3dadd(-23.9147811379235, -92.7742945294144, -22.0417024883326, 1.8)
    pt3dadd(-23.96983845811, -93.7610876249623, -22.1940444657149, 1.8)
    pt3dadd(-24.0230970079022, -94.7517717813566, -22.3109890889489, 1.8)
    pt3dadd(-24.0734800343552, -95.7486762070604, -22.3713473249867, 1.8)
    pt3dadd(-24.1238630608082, -96.7455806327642, -22.4317055610244, 1.8)
    pt3dadd(-24.1742460872612, -97.742485058468, -22.4920637970621, 1.8)
    pt3dadd(-24.2246291137142, -98.7393894841718, -22.5524220330999, 1.8)
    pt3dadd(-24.2750121401672, -99.7362939098756, -22.6127802691376, 1.8)
    pt3dadd(-24.3253951666201, -100.733198335579, -22.6731385051753, 1.8)
    pt3dadd(-24.3757781930731, -101.730102761283, -22.7334967412131, 1.8)
    pt3dadd(-24.4261612195261, -102.727007186987, -22.7938549772508, 1.8)
    pt3dadd(-24.4765442459791, -103.723911612691, -22.8542132132886, 1.8)
    pt3dadd(-24.5269272724321, -104.720816038395, -22.9145714493263, 1.8)
    pt3dadd(-24.5773102988851, -105.717720464099, -22.974929685364, 1.8)
    pt3dadd(-24.5625916279146, -106.717104118363, -22.9989590868451, 1.8)
    pt3dadd(-24.5427452337619, -107.716683048608, -23.0201270543772, 1.8)
    pt3dadd(-24.5228988396092, -108.716261978853, -23.0412950219093, 1.8)
    pt3dadd(-24.5030524454566, -109.715840909098, -23.0624629894415, 1.8)
    pt3dadd(-24.4832060513039, -110.715419839343, -23.0836309569736, 1.8)
    pt3dadd(-24.4633596571512, -111.714998769588, -23.1047989245057, 1.8)
    pt3dadd(-24.4435132629985, -112.714577699833, -23.1259668920379, 1.8)
    pt3dadd(-24.4315456926663, -113.713450014908, -23.1515183714248, 1.8)
    pt3dadd(-24.5600262892222, -114.699726185228, -23.2552104741533, 1.8)
    pt3dadd(-24.6885068857781, -115.686002355547, -23.3589025768819, 1.8)
    pt3dadd(-24.8169874823339, -116.672278525867, -23.4625946796104, 1.8)
  }
  adendMML[9] {pt3dclear()
    pt3dadd(-24.8169874823339, -116.672278525867, -23.4625946796104, 1.8)
    pt3dadd(-24.9454680788898, -117.658554696187, -23.5662867823389, 1.8)
    pt3dadd(-25.0739486754457, -118.644830866506, -23.6699788850675, 1.8)
    pt3dadd(-25.2024292720016, -119.631107036826, -23.773670987796, 1.8)
    pt3dadd(-25.3026140108761, -120.584798101465, -23.9837044424143, 1.8)
    pt3dadd(-25.3247654333055, -121.448627113095, -24.4870023195726, 1.8)
    pt3dadd(-25.346916855735, -122.312456124724, -24.990300196731, 1.8)
    pt3dadd(-25.3690682781645, -123.176285136353, -25.4935980738893, 1.8)
    pt3dadd(-25.3912197005939, -124.040114147982, -25.9968959510477, 1.8)
    pt3dadd(-25.4133711230234, -124.903943159611, -26.500193828206, 1.8)
    pt3dadd(-25.4355225454528, -125.767772171241, -27.0034917053644, 1.8)
    pt3dadd(-25.4576739678823, -126.63160118287, -27.5067895825228, 1.8)
    pt3dadd(-25.4945598124332, -127.499101359395, -28.0017903947048, 1.8)
    pt3dadd(-25.5834638119995, -128.379562154469, -28.4674993888189, 1.8)
    pt3dadd(-25.6723678115659, -129.260022949543, -28.9332083829331, 1.8)
    pt3dadd(-25.7612718111323, -130.140483744617, -29.3989173770473, 1.8)
    pt3dadd(-25.8501758106986, -131.020944539691, -29.8646263711615, 1.8)
    pt3dadd(-25.939079810265, -131.901405334765, -30.3303353652756, 1.8)
    pt3dadd(-26.0217763318647, -132.765865928959, -30.8242688456623, 1.8)
    pt3dadd(-26.0936703427893, -133.602482309812, -31.3673197479548, 1.8)
    pt3dadd(-26.1655643537139, -134.439098690666, -31.9103706502474, 1.8)
    pt3dadd(-26.2374583646385, -135.275715071519, -32.4534215525399, 1.8)
    pt3dadd(-26.3093523755631, -136.112331452373, -32.9964724548325, 1.8)
    pt3dadd(-26.3543707653209, -136.968293542703, -33.507335446985, 1.8)
    pt3dadd(-26.3449320186411, -137.863455171301, -33.9529771963149, 1.8)
    pt3dadd(-26.3354932719614, -138.7586167999, -34.3986189456447, 1.8)
    pt3dadd(-26.3260545252817, -139.653778428499, -34.8442606949746, 1.8)
    pt3dadd(-26.3166157786019, -140.548940057097, -35.2899024443045, 1.8)
    pt3dadd(-26.2976452172081, -141.445399739685, -35.7321425441498, 1.8)
    pt3dadd(-26.2398696461028, -142.347143935157, -36.160534174922, 1.8)
    pt3dadd(-26.1820940749975, -143.24888813063, -36.5889258056942, 1.8)
    pt3dadd(-26.1243185038922, -144.150632326102, -37.0173174364663, 1.8)
    pt3dadd(-26.0665429327869, -145.052376521574, -37.4457090672385, 1.8)
    pt3dadd(-26.067632064544, -145.950435067448, -37.8530991565789, 1.8)
    pt3dadd(-26.4820515638638, -146.822614082313, -38.1130226926665, 1.8)
    pt3dadd(-26.8964710631837, -147.694793097179, -38.3729462287542, 1.8)
    pt3dadd(-27.3108905625035, -148.566972112044, -38.6328697648418, 1.8)
    pt3dadd(-27.7253100618233, -149.439151126909, -38.8927933009294, 1.8)
    pt3dadd(-28.0767068942399, -150.308807930649, -39.1883283590848, 1.8)
    pt3dadd(-28.0331747975721, -151.162659402949, -39.7070215437426, 1.8)
    pt3dadd(-27.9896427009043, -152.016510875249, -40.2257147284004, 1.8)
    pt3dadd(-27.9461106042365, -152.87036234755, -40.7444079130581, 1.8)
    pt3dadd(-27.9025785075688, -153.72421381985, -41.2631010977159, 1.8)
    pt3dadd(-27.859046410901, -154.57806529215, -41.7817942823736, 1.8)
    pt3dadd(-27.8155143142332, -155.43191676445, -42.3004874670314, 1.8)
    pt3dadd(-27.7607655599136, -156.255315721608, -42.8641960092911, 1.8)
    pt3dadd(-27.7014660743183, -157.066359731563, -43.4461678169626, 1.8)
    pt3dadd(-27.6421665887229, -157.877403741518, -44.028139624634, 1.8)
    pt3dadd(-27.5828671031276, -158.688447751473, -44.6101114323054, 1.8)
    pt3dadd(-27.5235676175323, -159.499491761428, -45.1920832399768, 1.8)
    pt3dadd(-27.464268131937, -160.310535771383, -45.7740550476483, 1.8)
    pt3dadd(-27.4329088727676, -161.129814872411, -46.3428104557611, 1.8)
    pt3dadd(-27.5194016682349, -161.983829640509, -46.855819005594, 1.8)
    pt3dadd(-27.6058944637023, -162.837844408608, -47.3688275554269, 1.8)
    pt3dadd(-27.6923872591696, -163.691859176706, -47.8818361052598, 1.8)
    pt3dadd(-27.778880054637, -164.545873944805, -48.3948446550927, 1.8)
    pt3dadd(-27.8653728501043, -165.399888712904, -48.9078532049256, 1.8)
    pt3dadd(-27.9518656455717, -166.253903481002, -49.4208617547585, 1.8)
    pt3dadd(-28.0348685044428, -167.130310406236, -49.894982341284, 1.8)
    pt3dadd(-28.1174732556179, -168.00927167303, -50.3646668594028, 1.8)
    pt3dadd(-28.200078006793, -168.888232939823, -50.8343513775217, 1.8)
    pt3dadd(-28.2826827579682, -169.767194206616, -51.3040358956405, 1.8)
    pt3dadd(-28.3652875091433, -170.646155473409, -51.7737204137593, 1.8)
    pt3dadd(-28.4804377601278, -171.531272489477, -52.2234584065385, 1.8)
    pt3dadd(-28.6183164969536, -172.420688436611, -52.6592665373883, 1.8)
    pt3dadd(-28.7561952337793, -173.310104383745, -53.0950746682382, 1.8)
    pt3dadd(-28.8940739706051, -174.199520330879, -53.530882799088, 1.8)
    pt3dadd(-29.0319527074309, -175.088936278013, -53.9666909299379, 1.8)
    pt3dadd(-29.1698314442566, -175.978352225147, -54.4024990607878, 1.8)
    pt3dadd(-29.3077101810824, -176.867768172281, -54.8383071916376, 1.8)
    pt3dadd(-29.6575931945388, -177.756621935399, -55.1121211526402, 1.8)
    pt3dadd(-30.0448415212098, -178.645376614751, -55.3573839778287, 1.8)
    pt3dadd(-30.4320898478807, -179.534131294104, -55.6026468030172, 1.8)
    pt3dadd(-30.8073296276079, -180.424706187701, -55.8494644036331, 1.8)
    pt3dadd(-30.7698958448107, -181.377832720577, -56.1497118419787, 1.8)
    pt3dadd(-30.7324620620135, -182.330959253453, -56.4499592803244, 1.8)
    pt3dadd(-30.6950282792163, -183.284085786329, -56.75020671867, 1.8)
    pt3dadd(-30.657594496419, -184.237212319205, -57.0504541570156, 1.8)
    pt3dadd(-30.6201607136218, -185.190338852081, -57.3507015953613, 1.8)
    pt3dadd(-30.5827269308246, -186.143465384957, -57.6509490337069, 1.8)
    pt3dadd(-30.5452931480273, -187.096591917833, -57.9511964720526, 1.8)
    pt3dadd(-30.5078593652301, -188.049718450709, -58.2514439103982, 1.8)
    pt3dadd(-30.5017331496365, -188.985909256254, -58.6002292460148, 1.8)
    pt3dadd(-30.5116632386171, -189.913414455714, -58.9739075813625, 1.8)
    pt3dadd(-30.5215933275977, -190.840919655173, -59.3475859167102, 1.8)
    pt3dadd(-30.5315234165783, -191.768424854633, -59.7212642520578, 1.8)
    pt3dadd(-30.541453505559, -192.695930054093, -60.0949425874055, 1.8)
    pt3dadd(-30.5513835945396, -193.623435253552, -60.4686209227532, 1.8)
    pt3dadd(-30.5613136835202, -194.550940453012, -60.8422992581008, 1.8)
    pt3dadd(-30.6152044820632, -195.483236247678, -61.1963314973197, 1.8)
    pt3dadd(-30.7175627861346, -196.420813763271, -61.5287035476513, 1.8)
    pt3dadd(-30.819921090206, -197.358391278865, -61.861075597983, 1.8)
    pt3dadd(-30.9222793942774, -198.295968794458, -62.1934476483146, 1.8)
    pt3dadd(-31.0246376983488, -199.233546310051, -62.5258196986463, 1.8)
    pt3dadd(-31.1269960024202, -200.171123825644, -62.8581917489779, 1.8)
    pt3dadd(-31.2293543064916, -201.108701341237, -63.1905637993096, 1.8)
    pt3dadd(-31.3076385381633, -202.039071058948, -63.547550435534, 1.8)
    pt3dadd(-31.3694963101214, -202.96452268056, -63.9213323399964, 1.8)
    pt3dadd(-31.4313540820795, -203.889974302173, -64.2951142444588, 1.8)
    pt3dadd(-31.4932118540376, -204.815425923785, -64.6688961489212, 1.8)
    pt3dadd(-31.5550696259956, -205.740877545397, -65.0426780533837, 1.8)
    pt3dadd(-31.6169273979537, -206.66632916701, -65.4164599578461, 1.8)
    pt3dadd(-31.6787851699118, -207.591780788622, -65.7902418623085, 1.8)
    pt3dadd(-31.820336410324, -208.501320804541, -66.1750012362398, 1.8)
    pt3dadd(-32.0171174762719, -209.3998336281, -66.567368306703, 1.8)
    pt3dadd(-32.2138985422198, -210.298346451659, -66.9597353771663, 1.8)
    pt3dadd(-32.4106796081676, -211.196859275219, -67.3521024476296, 1.8)
    pt3dadd(-32.6074606741155, -212.095372098778, -67.7444695180928, 1.8)
    pt3dadd(-32.8042417400634, -212.993884922337, -68.1368365885561, 1.8)
    pt3dadd(-33.0223360124629, -213.906848864729, -68.4653516305821, 1.8)
    pt3dadd(-33.2899326913793, -214.853377215212, -68.6455628931751, 1.8)
    pt3dadd(-33.5575293702957, -215.799905565695, -68.825774155768, 1.8)
    pt3dadd(-33.8251260492121, -216.746433916177, -69.005985418361, 1.8)
    pt3dadd(-34.0927227281284, -217.69296226666, -69.186196680954, 1.8)
    pt3dadd(-34.3603194070448, -218.639490617143, -69.3664079435469, 1.8)
    pt3dadd(-34.6137111568491, -219.583972221956, -69.5623885407467, 1.8)
    pt3dadd(-34.7002983462628, -220.504419457513, -69.9435440801089, 1.8)
    pt3dadd(-34.7868855356764, -221.424866693069, -70.3246996194711, 1.8)
    pt3dadd(-34.87347272509, -222.345313928625, -70.7058551588333, 1.8)
    pt3dadd(-34.9600599145037, -223.265761164181, -71.0870106981954, 1.8)
    pt3dadd(-35.0466471039173, -224.186208399737, -71.4681662375576, 1.8)
    pt3dadd(-35.1332342933309, -225.106655635293, -71.8493217769198, 1.8)
    pt3dadd(-35.2198214827446, -226.02710287085, -72.2304773162819, 1.8)
    pt3dadd(-35.3064086721582, -226.947550106406, -72.6116328556441, 1.8)
    pt3dadd(-35.3732425866187, -227.923706142985, -72.8034003067151, 1.8)
    pt3dadd(-35.4371267392644, -228.908181189673, -72.9668863840721, 1.8)
    pt3dadd(-35.5010108919101, -229.892656236361, -73.130372461429, 1.8)
    pt3dadd(-35.5648950445558, -230.877131283049, -73.293858538786, 1.8)
    pt3dadd(-35.6287791972015, -231.861606329737, -73.457344616143, 1.8)
    pt3dadd(-35.6408504793899, -232.853349967925, -73.5444862320591, 1.8)
    pt3dadd(-35.60026632299, -233.852480397658, -73.5540418917161, 1.8)
  }
  adendOML[6] {pt3dclear()
    pt3dadd(-35.60026632299, -233.852480397658, -73.5540418917161, 1.8)
    pt3dadd(-35.5596821665901, -234.851610827391, -73.563597551373, 1.8)
    pt3dadd(-35.409976197396, -235.824503769047, -73.6040868431087, 1.8)
    pt3dadd(-35.023328178804, -236.740425844508, -73.7117439905862, 1.8)
    pt3dadd(-34.6366801602121, -237.656347919968, -73.8194011380636, 1.8)
    pt3dadd(-34.2500321416202, -238.572269995429, -73.9270582855411, 1.8)
    pt3dadd(-33.8633841230282, -239.48819207089, -74.0347154330186, 1.8)
    pt3dadd(-33.4767361044363, -240.40411414635, -74.142372580496, 1.8)
    pt3dadd(-33.0900880858443, -241.320036221811, -74.2500297279735, 1.8)
    pt3dadd(-32.7034400672524, -242.235958297271, -74.357686875451, 1.8)
    pt3dadd(-32.2541855060562, -243.116551164869, -74.5073523464792, 1.8)
    pt3dadd(-31.8019797379261, -243.995478650561, -74.6589980459401, 1.8)
    pt3dadd(-31.3497739697961, -244.874406136253, -74.8106437454011, 1.8)
    pt3dadd(-30.8975682016661, -245.753333621945, -74.962289444862, 1.8)
    pt3dadd(-30.4453624335361, -246.632261107637, -75.1139351443229, 1.8)
    pt3dadd(-29.993156665406, -247.511188593329, -75.2655808437839, 1.8)
    pt3dadd(-29.540950897276, -248.390116079021, -75.4172265432448, 1.8)
    pt3dadd(-29.088745129146, -249.269043564713, -75.5688722427058, 1.8)
    pt3dadd(-28.7613833635057, -250.177187965588, -75.6355711555387, 1.8)
    pt3dadd(-28.7699875273972, -251.163957593719, -75.4736709722113, 1.8)
    pt3dadd(-28.7785916912888, -252.15072722185, -75.3117707888838, 1.8)
    pt3dadd(-28.7871958551803, -253.137496849981, -75.1498706055564, 1.8)
    pt3dadd(-28.7958000190718, -254.124266478112, -74.9879704222289, 1.8)
    pt3dadd(-28.8044041829634, -255.111036106244, -74.8260702389015, 1.8)
    pt3dadd(-28.8130083468549, -256.097805734375, -74.664170055574, 1.8)
    pt3dadd(-28.8645927526921, -257.086341237334, -74.5411918896074, 1.8)
    pt3dadd(-28.9802000710616, -258.077507168707, -74.476191547875, 1.8)
    pt3dadd(-29.095807389431, -259.06867310008, -74.4111912061426, 1.8)
    pt3dadd(-29.2114147078005, -260.059839031452, -74.3461908644102, 1.8)
    pt3dadd(-29.3254268586567, -261.050875485133, -74.2825254039051, 1.8)
    pt3dadd(-29.1475693889093, -262.018221257667, -74.463104685153, 1.8)
    pt3dadd(-28.9697119191619, -262.9855670302, -74.6436839664011, 1.8)
    pt3dadd(-28.7918544494145, -263.952912802734, -74.824263247649, 1.8)
    pt3dadd(-28.6139969796671, -264.920258575268, -75.0048425288971, 1.8)
    pt3dadd(-28.4361395099197, -265.887604347802, -75.1854218101451, 1.8)
    pt3dadd(-28.2582820401723, -266.854950120336, -75.3660010913931, 1.8)
    pt3dadd(-28.7290010087778, -267.577165307016, -74.9334447907512, 1.8)
    pt3dadd(-29.2525069270041, -268.279429574851, -74.4509860342721, 1.8)
    pt3dadd(-29.7760128452304, -268.981693842687, -73.968527277793, 1.8)
    pt3dadd(-30.2995187634567, -269.683958110523, -73.4860685213139, 1.8)
    pt3dadd(-30.5719145803401, -270.456706807946, -73.4412255739706, 1.8)
    pt3dadd(-30.528261107406, -271.318167802467, -73.9471695720768, 1.8)
    pt3dadd(-30.484607634472, -272.179628796988, -74.453113570183, 1.8)
    pt3dadd(-30.440954161538, -273.041089791509, -74.9590575682892, 1.8)
  }
  GCL[7] {pt3dclear()
    pt3dadd(-1.52280284854268, 49.5784348174681, -0.54169718979452, 2.25)
    pt3dadd(-1.30989931603321, 48.5408773340807, -0.385761379275871, 2.25)
    pt3dadd(-1.17247285286125, 47.5507880649629, -0.35682686013768, 2.25)
    pt3dadd(-1.03504638968928, 46.560698795845, -0.327892340999489, 2.25)
    pt3dadd(-0.897619926517324, 45.5706095267272, -0.298957821861298, 2.25)
    pt3dadd(-0.760193463345363, 44.5805202576094, -0.270023302723107, 2.25)
    pt3dadd(-0.622767000173403, 43.5904309884915, -0.241088783584916, 2.25)
    pt3dadd(-0.485340537001442, 42.6003417193737, -0.212154264446724, 2.25)
    pt3dadd(-0.347914073829481, 41.6102524502559, -0.183219745308533, 2.25)
    pt3dadd(-0.210487610657521, 40.620163181138, -0.154285226170343, 2.25)
    pt3dadd(-0.0878647176469021, 39.6288620224222, -0.114099785966672, 2.25)
    pt3dadd(0.00615838180642569, 38.6352195506355, -0.0521781013101352, 2.25)
    pt3dadd(0.100181481259752, 37.6415770788487, 0.0097435833464013, 2.25)
    pt3dadd(0.19420458071308, 36.647934607062, 0.071665268002938, 2.25)
    pt3dadd(0.288227680166407, 35.6542921352752, 0.133586952659474, 2.25)
    pt3dadd(0.382250779619735, 34.6606496634885, 0.195508637316011, 2.25)
    pt3dadd(0.476273879073062, 33.6670071917017, 0.257430321972548, 2.25)
    pt3dadd(0.570296978526389, 32.673364719915, 0.319352006629085, 2.25)
    pt3dadd(0.664320077979717, 31.6797222481282, 0.381273691285621, 2.25)
    pt3dadd(0.758343177433044, 30.6860797763415, 0.443195375942157, 2.25)
    pt3dadd(0.852366276886372, 29.6924373045547, 0.505117060598694, 2.25)
    pt3dadd(0.946389376339699, 28.698794832768, 0.567038745255231, 2.25)
    pt3dadd(1.03012005020003, 27.7203066549798, 0.667863543469309, 2.2440426470702)
  }
}
proc shape3d_8() {
  GCL[7] {
  }
  GCL[8] {pt3dclear()
    pt3dadd(1.03012005020003, 27.7203066549798, 0.667863543469309, 2.20752096783497)
    pt3dadd(1.42038782193889, 26.8145770041963, 0.916326569327055, 2.20752096783497)
    pt3dadd(1.76026059587931, 25.9095472884434, 1.1720758824021, 2.17099928859973)
    pt3dadd(2.10013336981972, 25.0045175726905, 1.42782519547714, 2.13447760936449)
    pt3dadd(2.44000614376014, 24.0994878569377, 1.68357450855218, 2.09795593012925)
    pt3dadd(2.77987891770055, 23.1944581411848, 1.93932382162723, 2.06143425089402)
    pt3dadd(3.11975169164097, 22.289428425432, 2.19507313470227, 2.02491257165878)
    pt3dadd(3.45962446558138, 21.3843987096791, 2.45082244777731, 1.98839089242354)
    pt3dadd(3.7994972395218, 20.4793689939263, 2.70657176085235, 1.95186921318831)
    pt3dadd(4.13937001346221, 19.5743392781734, 2.9623210739274, 1.91534753395307)
    pt3dadd(4.47924278740263, 18.6693095624206, 3.21807038700244, 1.87882585471783)
    pt3dadd(4.81911556134304, 17.7642798466677, 3.47381970007748, 1.8423041754826)
    pt3dadd(5.15898833528346, 16.8592501309149, 3.72956901315252, 1.80578249624736)
    pt3dadd(5.48700635205794, 15.9305680044876, 3.89806161678545, 1.8)
    pt3dadd(5.81279431317829, 14.997436508797, 4.05013993917009, 1.8)
    pt3dadd(6.13858227429864, 14.0643050131065, 4.20221826155472, 1.8)
    pt3dadd(6.46437023541899, 13.1311735174159, 4.35429658393936, 1.8)
    pt3dadd(6.79015819653934, 12.1980420217253, 4.50637490632399, 1.8)
    pt3dadd(7.11594615765969, 11.2649105260347, 4.65845322870863, 1.8)
    pt3dadd(7.44173411878004, 10.3317790303442, 4.81053155109326, 1.8)
    pt3dadd(7.79699245435577, 9.41895186258536, 4.98685231320627, 1.8)
    pt3dadd(8.30128626266699, 8.60880629177969, 5.28577020996544, 1.8)
    pt3dadd(8.8055800709782, 7.79866072097403, 5.58468810672461, 1.8)
    pt3dadd(9.30987387928942, 6.98851515016835, 5.88360600348378, 1.8)
    pt3dadd(9.81416768760064, 6.1783695793627, 6.18252390024295, 1.8)
    pt3dadd(10.3184614959119, 5.36822400855702, 6.48144179700213, 1.8)
    pt3dadd(10.8182846543181, 4.55431038152356, 6.76199910196871, 1.8)
    pt3dadd(11.2096333659627, 3.64896982029482, 6.59706076777033, 1.8)
    pt3dadd(11.6009820776073, 2.74362925906608, 6.43212243357196, 1.8)
    pt3dadd(11.9923307892519, 1.83828869783734, 6.26718409937359, 1.8)
    pt3dadd(12.3836795008965, 0.932948136608602, 6.10224576517521, 1.8)
    pt3dadd(12.7750282125411, 0.0276075753798472, 5.93730743097684, 1.8)
  }
  adendIML[5] {pt3dclear()
    pt3dadd(12.7750282125411, 0.0276075753798472, 5.93730743097684, 1.8)
    pt3dadd(12.9901475007685, -0.948182735129677, 5.90010509626373, 1.8)
    pt3dadd(13.2046844314583, -1.92420584979717, 5.86332487053046, 1.8)
    pt3dadd(13.419221362148, -2.90022896446467, 5.82654464479719, 1.8)
    pt3dadd(13.6337582928378, -3.87625207913217, 5.78976441906392, 1.8)
    pt3dadd(13.8482952235275, -4.85227519379966, 5.75298419333065, 1.8)
    pt3dadd(14.0087786461429, -5.81638986356107, 5.83799712424672, 1.8)
    pt3dadd(14.0560012021373, -6.75555220667023, 6.17820900453757, 1.8)
    pt3dadd(14.1032237581318, -7.69471454977942, 6.51842088482843, 1.8)
    pt3dadd(14.1504463141262, -8.63387689288858, 6.85863276511929, 1.8)
    pt3dadd(14.1976688701207, -9.57303923599775, 7.19884464541015, 1.8)
    pt3dadd(14.2847763199961, -10.5048936204963, 7.48984376061714, 1.8)
    pt3dadd(14.7581588082361, -11.3659722872231, 7.30422978071335, 1.8)
    pt3dadd(15.2315412964762, -12.2270509539499, 7.11861580080955, 1.8)
    pt3dadd(15.7049237847162, -13.0881296206766, 6.93300182090575, 1.8)
    pt3dadd(16.1783062729562, -13.9492082874034, 6.74738784100196, 1.8)
    pt3dadd(16.6516887611962, -14.8102869541302, 6.56177386109816, 1.8)
    pt3dadd(17.1250712494362, -15.671365620857, 6.37615988119436, 1.8)
    pt3dadd(17.5984537376763, -16.5324442875837, 6.19054590129056, 1.8)
    pt3dadd(18.0350643533102, -17.4182852312467, 6.25924862930869, 1.8)
    pt3dadd(18.4606741802716, -18.3115341352967, 6.40403354084048, 1.8)
    pt3dadd(18.886284007233, -19.2047830393468, 6.54881845237228, 1.8)
    pt3dadd(19.3118938341944, -20.0980319433968, 6.69360336390407, 1.8)
    pt3dadd(19.7375036611558, -20.9912808474469, 6.83838827543586, 1.8)
    pt3dadd(20.1631134881172, -21.884529751497, 6.98317318696765, 1.8)
    pt3dadd(20.2865547994918, -22.8276447600037, 6.99220122219906, 1.8)
  }
  adendIML[6] {pt3dclear()
    pt3dadd(20.2865547994918, -22.8276447600037, 6.99220122219906, 1.8)
    pt3dadd(20.4872412718204, -23.7657420219359, 6.97293265706898, 1.8)
    pt3dadd(20.9064833525238, -24.6728354512949, 7.010583529319, 1.8)
    pt3dadd(21.3257254332272, -25.5799288806539, 7.04823440156902, 1.8)
    pt3dadd(21.7449675139306, -26.4870223100129, 7.08588527381903, 1.8)
    pt3dadd(22.164209594634, -27.394115739372, 7.12353614606904, 1.8)
    pt3dadd(22.5834516753374, -28.301209168731, 7.16118701831906, 1.8)
    pt3dadd(23.0026937560408, -29.20830259809, 7.19883789056908, 1.8)
    pt3dadd(23.4219358367442, -30.115396027449, 7.23648876281909, 1.8)
    pt3dadd(23.8411779174476, -31.022489456808, 7.2741396350691, 1.8)
    pt3dadd(24.210026442964, -31.9460145082913, 7.33282453198032, 1.8)
    pt3dadd(24.4609727910529, -32.907983444512, 7.44072122390017, 1.8)
    pt3dadd(24.7119191391418, -33.8699523807327, 7.54861791582002, 1.8)
    pt3dadd(24.9628654872307, -34.8319213169534, 7.65651460773987, 1.8)
    pt3dadd(25.2138118353196, -35.7938902531741, 7.76441129965971, 1.8)
    pt3dadd(25.4647581834084, -36.7558591893948, 7.87230799157956, 1.8)
    pt3dadd(25.7157045314973, -37.7178281256156, 7.98020468349941, 1.8)
    pt3dadd(25.9666508795862, -38.6797970618363, 8.08810137541926, 1.8)
    pt3dadd(26.2148722313925, -39.6394507396149, 8.21039804254505, 1.8)
    pt3dadd(26.4322161810736, -40.5728698252965, 8.49586330842241, 1.8)
    pt3dadd(26.6495601307547, -41.506288910978, 8.78132857429976, 1.8)
    pt3dadd(26.8669040804358, -42.4397079966596, 9.06679384017711, 1.8)
    pt3dadd(27.0842480301169, -43.3731270823412, 9.35225910605447, 1.8)
    pt3dadd(27.301591979798, -44.3065461680227, 9.63772437193182, 1.8)
    pt3dadd(27.518935929479, -45.2399652537043, 9.92318963780918, 1.8)
    pt3dadd(27.7362798791601, -46.1733843393858, 10.2086549036865, 1.8)
    pt3dadd(27.9536238288412, -47.1068034250674, 10.4941201695639, 1.8)
    pt3dadd(28.2195905937788, -48.0492246182193, 10.6777081367604, 1.8)
    pt3dadd(28.5136122283157, -48.9968399357728, 10.8025139393593, 1.8)
    pt3dadd(28.7992449704874, -49.9300699415946, 10.8821738599446, 1.8)
  }
  adendIML[7] {pt3dclear()
    pt3dadd(28.7992449704874, -49.9300699415946, 10.8821738599446, 1.8)
    pt3dadd(28.9937828541909, -50.9249354899086, 11.0006611304523, 1.8)
    pt3dadd(29.1895633882117, -51.9024813414515, 11.0785975829626, 1.8)
    pt3dadd(29.3853439222325, -52.8800271929944, 11.1565340354728, 1.8)
    pt3dadd(29.5811244562534, -53.8575730445372, 11.2344704879831, 1.8)
    pt3dadd(29.7769049902742, -54.83511889608, 11.3124069404933, 1.8)
    pt3dadd(29.972685524295, -55.8126647476229, 11.3903433930035, 1.8)
    pt3dadd(30.1684660583159, -56.7902105991657, 11.4682798455138, 1.8)
    pt3dadd(30.3642465923367, -57.7677564507086, 11.546216298024, 1.8)
    pt3dadd(30.7504198619088, -58.66379986981, 11.7332630281953, 1.8)
    pt3dadd(31.1817266564579, -59.540522740469, 11.9461748809398, 1.8)
    pt3dadd(31.613033451007, -60.4172456111281, 12.1590867336843, 1.8)
    pt3dadd(32.0443402455562, -61.2939684817872, 12.3719985864287, 1.8)
    pt3dadd(32.4756470401053, -62.1706913524463, 12.5849104391732, 1.8)
    pt3dadd(32.9019457090518, -63.0489442035762, 12.8012333901596, 1.8)
    pt3dadd(33.3095551204604, -63.932906615791, 13.030285832894, 1.8)
    pt3dadd(33.7171645318691, -64.8168690280057, 13.2593382756284, 1.8)
    pt3dadd(34.1247739432777, -65.7008314402205, 13.4883907183628, 1.8)
    pt3dadd(34.5323833546863, -66.5847938524352, 13.7174431610971, 1.8)
    pt3dadd(34.939992766095, -67.46875626465, 13.9464956038315, 1.8)
    pt3dadd(35.3668222245292, -68.2701656701024, 14.3160033169223, 1.8)
    pt3dadd(35.8215215329482, -68.9518698578101, 14.8891768852113, 1.8)
    pt3dadd(36.2762208413672, -69.6335740455177, 15.4623504535003, 1.8)
    pt3dadd(36.7309201497863, -70.3152782332253, 16.0355240217893, 1.8)
    pt3dadd(37.1856194582053, -70.996982420933, 16.6086975900783, 1.8)
    pt3dadd(37.6425972003775, -71.6819885760415, 17.1734343806303, 1.8)
    pt3dadd(38.1781635038296, -72.4808873852907, 17.4471667813192, 1.8)
    pt3dadd(38.7137298072817, -73.2797861945399, 17.720899182008, 1.8)
    pt3dadd(39.2492961107339, -74.078685003789, 17.9946315826968, 1.8)
    pt3dadd(39.784862414186, -74.8775838130382, 18.2683639833857, 1.8)
    pt3dadd(40.3204287176381, -75.6764826222874, 18.5420963840745, 1.8)
    pt3dadd(40.7380247948902, -76.5127166204279, 18.8903765407397, 1.8)
    pt3dadd(41.1272019259792, -77.3579446398334, 19.2566152004265, 1.8)
    pt3dadd(41.5163790570681, -78.2031726592389, 19.6228538601132, 1.8)
    pt3dadd(41.9048710190726, -79.0501395077694, 19.9845131767918, 1.8)
    pt3dadd(42.2674922591655, -79.9627613395174, 20.1732649408907, 1.8)
    pt3dadd(42.6301134992584, -80.8753831712654, 20.3620167049895, 1.8)
    pt3dadd(42.9927347393513, -81.7880050030134, 20.5507684690883, 1.8)
    pt3dadd(43.3553559794443, -82.7006268347614, 20.7395202331872, 1.8)
    pt3dadd(43.7179772195372, -83.6132486665094, 20.928271997286, 1.8)
    pt3dadd(44.1325528162661, -84.5186016273067, 20.9279786112332, 1.8)
    pt3dadd(44.5585518513347, -85.4223563487169, 20.8861190167622, 1.8)
    pt3dadd(44.9845508864032, -86.3261110701272, 20.8442594222913, 1.8)
    pt3dadd(45.4105499214718, -87.2298657915375, 20.8023998278203, 1.8)
    pt3dadd(45.8365489565403, -88.1336205129478, 20.7605402333493, 1.8)
    pt3dadd(46.2625479916089, -89.0373752343581, 20.7186806388784, 1.8)
    pt3dadd(46.6601449448937, -89.9063875253879, 20.8693644503089, 1.8)
    pt3dadd(47.011215864714, -90.7184875277053, 21.335457569216, 1.8)
    pt3dadd(47.3622867845344, -91.5305875300228, 21.801550688123, 1.8)
    pt3dadd(47.7133577043548, -92.3426875323402, 22.2676438070301, 1.8)
    pt3dadd(48.0644286241751, -93.1547875346577, 22.7337369259371, 1.8)
    pt3dadd(48.4154995439955, -93.9668875369751, 23.1998300448442, 1.8)
    pt3dadd(48.7665704638159, -94.7789875392925, 23.6659231637512, 1.8)
    pt3dadd(49.1176413836362, -95.59108754161, 24.1320162826583, 1.8)
    pt3dadd(49.4687123034566, -96.4031875439274, 24.5981094015653, 1.8)
    pt3dadd(49.819783223277, -97.2152875462448, 25.0642025204724, 1.8)
    pt3dadd(50.1945810742582, -98.0612822558671, 25.4163818583224, 1.8)
    pt3dadd(50.6013460055382, -98.9529429988576, 25.615086186636, 1.8)
    pt3dadd(51.0081109368182, -99.8446037418479, 25.8137905149497, 1.8)
    pt3dadd(51.4148758680981, -100.736264484838, 26.0124948432633, 1.8)
    pt3dadd(51.8216407993781, -101.627925227829, 26.211199171577, 1.8)
    pt3dadd(52.2284057306581, -102.519585970819, 26.4099034998906, 1.8)
    pt3dadd(52.6351706619381, -103.41124671381, 26.6086078282043, 1.8)
    pt3dadd(53.041935593218, -104.3029074568, 26.8073121565179, 1.8)
    pt3dadd(53.448700524498, -105.19456819979, 27.0060164848316, 1.8)
    pt3dadd(53.855465455778, -106.086228942781, 27.2047208131452, 1.8)
    pt3dadd(54.262230387058, -106.977889685771, 27.4034251414589, 1.8)
    pt3dadd(54.668995318338, -107.869550428762, 27.6021294697725, 1.8)
    pt3dadd(55.0757602496179, -108.761211171752, 27.8008337980862, 1.8)
    pt3dadd(55.4825251808979, -109.652871914742, 27.9995381263998, 1.8)
    pt3dadd(55.8882359266531, -110.544213952717, 28.2003796696499, 1.8)
    pt3dadd(56.1898448372398, -111.40408356364, 28.6122732448191, 1.8)
    pt3dadd(56.4914537478265, -112.263953174563, 29.0241668199883, 1.8)
    pt3dadd(56.7930626584132, -113.123822785486, 29.4360603951575, 1.8)
    pt3dadd(57.0946715689999, -113.983692396409, 29.8479539703267, 1.8)
    pt3dadd(57.3962804795866, -114.843562007333, 30.2598475454959, 1.8)
    pt3dadd(57.6978893901733, -115.703431618256, 30.6717411206651, 1.8)
    pt3dadd(57.99949830076, -116.563301229179, 31.0836346958343, 1.8)
  }
  adendMML[10] {pt3dclear()
    pt3dadd(57.99949830076, -116.563301229179, 31.0836346958343, 1.8)
    pt3dadd(58.3011072113468, -117.423170840102, 31.4955282710036, 1.8)
    pt3dadd(58.6027161219335, -118.283040451025, 31.9074218461728, 1.8)
    pt3dadd(58.9043250325202, -119.142910061948, 32.319315421342, 1.8)
    pt3dadd(59.2174633078606, -120.031729729226, 32.652103048006, 1.8)
    pt3dadd(59.5325097752254, -120.925340837128, 32.971798076487, 1.8)
    pt3dadd(59.8475562425903, -121.81895194503, 33.2914931049679, 1.8)
    pt3dadd(60.1626027099552, -122.712563052932, 33.6111881334489, 1.8)
    pt3dadd(60.47764917732, -123.606174160833, 33.9308831619298, 1.8)
    pt3dadd(60.7926956446849, -124.499785268735, 34.2505781904108, 1.8)
    pt3dadd(61.1077421120497, -125.393396376637, 34.5702732188918, 1.8)
    pt3dadd(61.4898628453953, -126.273737635828, 34.8433756399377, 1.8)
    pt3dadd(61.9150746638185, -127.145553834455, 35.0865451801445, 1.8)
    pt3dadd(62.3402864822418, -128.017370033083, 35.3297147203513, 1.8)
    pt3dadd(62.7552441207393, -128.886008585798, 35.5954045091358, 1.8)
    pt3dadd(63.1259471982357, -129.740933187144, 35.9582862451712, 1.8)
    pt3dadd(63.4966502757321, -130.59585778849, 36.3211679812067, 1.8)
    pt3dadd(63.8673533532285, -131.450782389836, 36.6840497172422, 1.8)
    pt3dadd(64.2380564307249, -132.305706991182, 37.0469314532777, 1.8)
    pt3dadd(64.6087595082213, -133.160631592528, 37.4098131893131, 1.8)
    pt3dadd(64.9794625857177, -134.015556193874, 37.7726949253486, 1.8)
    pt3dadd(65.3501656632141, -134.87048079522, 38.1355766613841, 1.8)
    pt3dadd(65.7208687407105, -135.725405396566, 38.4984583974196, 1.8)
    pt3dadd(66.0915718182069, -136.580329997912, 38.861340133455, 1.8)
    pt3dadd(66.4622748957033, -137.435254599258, 39.2242218694905, 1.8)
    pt3dadd(66.9295987423204, -138.292884477294, 39.4252363171359, 1.8)
    pt3dadd(67.4123427156416, -139.150946102144, 39.6004176636899, 1.8)
    pt3dadd(67.8950866889627, -140.009007726995, 39.775599010244, 1.8)
    pt3dadd(68.3778306622838, -140.867069351846, 39.950780356798, 1.8)
    pt3dadd(68.8605746356049, -141.725130976697, 40.125961703352, 1.8)
    pt3dadd(69.3433186089261, -142.583192601548, 40.3011430499061, 1.8)
    pt3dadd(69.8260625822472, -143.441254226399, 40.4763243964601, 1.8)
    pt3dadd(70.3433363443048, -144.276446868739, 40.6608849541669, 1.8)
    pt3dadd(70.8762832395888, -145.101259238778, 40.8497027526891, 1.8)
    pt3dadd(71.4092301348728, -145.926071608816, 41.0385205512112, 1.8)
    pt3dadd(71.9421770301569, -146.750883978855, 41.2273383497334, 1.8)
    pt3dadd(72.4219171582811, -147.550298482343, 41.4833908204931, 1.8)
    pt3dadd(72.4676800410807, -148.142557077832, 42.2878381553923, 1.8)
    pt3dadd(72.5134429238803, -148.734815673322, 43.0922854902915, 1.8)
    pt3dadd(72.55920580668, -149.327074268812, 43.8967328251907, 1.8)
    pt3dadd(72.6049686894796, -149.919332864301, 44.7011801600899, 1.8)
    pt3dadd(72.6507315722792, -150.511591459791, 45.5056274949892, 1.8)
    pt3dadd(72.6964944550788, -151.103850055281, 46.3100748298884, 1.8)
    pt3dadd(72.8291665150751, -151.752786013311, 46.9957709192935, 1.8)
    pt3dadd(73.2802284174553, -152.609358231493, 47.2464244555946, 1.8)
    pt3dadd(73.7312903198355, -153.465930449674, 47.4970779918958, 1.8)
    pt3dadd(74.1823522222156, -154.322502667856, 47.747731528197, 1.8)
    pt3dadd(74.6062249945535, -155.106631949864, 48.123818488763, 1.8)
    pt3dadd(74.9499455821508, -155.677203107932, 48.8696768608705, 1.8)
    pt3dadd(75.293666169748, -156.247774266, 49.6155352329779, 1.8)
    pt3dadd(75.6373867573452, -156.818345424068, 50.3613936050853, 1.8)
    pt3dadd(75.9811073449425, -157.388916582136, 51.1072519771928, 1.8)
    pt3dadd(76.3248279325398, -157.959487740204, 51.8531103493002, 1.8)
    pt3dadd(76.668548520137, -158.530058898272, 52.5989687214076, 1.8)
    pt3dadd(77.0122691077343, -159.10063005634, 53.3448270935151, 1.8)
    pt3dadd(77.4297311190926, -159.85651962953, 53.7980684614507, 1.8)
    pt3dadd(77.8759643810034, -160.68471378109, 54.1371412018556, 1.8)
    pt3dadd(78.3221976429143, -161.51290793265, 54.4762139422605, 1.8)
    pt3dadd(78.7684309048252, -162.341102084211, 54.8152866826653, 1.8)
    pt3dadd(79.214664166736, -163.169296235771, 55.1543594230702, 1.8)
    pt3dadd(79.6608974286469, -163.997490387331, 55.4934321634751, 1.8)
    pt3dadd(80.1071306905578, -164.825684538892, 55.8325049038799, 1.8)
    pt3dadd(80.5533639524686, -165.653878690452, 56.1715776442848, 1.8)
    pt3dadd(81.0046055569713, -166.476060416175, 56.5157175457767, 1.8)
    pt3dadd(81.5691401097588, -167.162235980777, 56.9744809196983, 1.8)
    pt3dadd(82.1336746625465, -167.848411545379, 57.4332442936198, 1.8)
    pt3dadd(82.698209215334, -168.534587109981, 57.8920076675414, 1.8)
    pt3dadd(83.2627437681216, -169.220762674583, 58.350771041463, 1.8)
    pt3dadd(83.8272783209092, -169.906938239185, 58.8095344153845, 1.8)
    pt3dadd(84.3918128736968, -170.593113803787, 59.2682977893061, 1.8)
    pt3dadd(84.9563474264844, -171.27928936839, 59.7270611632277, 1.8)
    pt3dadd(85.4747565937448, -172.038006928574, 60.0900021010677, 1.8)
    pt3dadd(85.9267172682871, -172.901228900161, 60.3149006925205, 1.8)
    pt3dadd(86.3786779428294, -173.764450871747, 60.5397992839733, 1.8)
    pt3dadd(86.8306386173717, -174.627672843334, 60.7646978754261, 1.8)
    pt3dadd(87.2783397693799, -175.493730024135, 60.9871227573018, 1.8)
    pt3dadd(87.721318695287, -176.362930397358, 61.2068052153876, 1.8)
    pt3dadd(88.164297621194, -177.232130770581, 61.4264876734733, 1.8)
    pt3dadd(88.607276547101, -178.101331143805, 61.646170131559, 1.8)
    pt3dadd(89.0502554730081, -178.970531517028, 61.8658525896447, 1.8)
    pt3dadd(89.481844358503, -179.846484769914, 62.0662723964787, 1.8)
    pt3dadd(89.7827517978901, -180.799915893622, 62.0456858652874, 1.8)
    pt3dadd(90.0836592372773, -181.75334701733, 62.0250993340961, 1.8)
  }
}
proc shape3d_9() {
  adendMML[10] {
    pt3dadd(90.3845666766644, -182.706778141038, 62.0045128029048, 1.8)
    pt3dadd(90.6854741160516, -183.660209264746, 61.9839262717135, 1.8)
    pt3dadd(90.9863815554387, -184.613640388454, 61.9633397405222, 1.8)
    pt3dadd(91.250610725783, -185.557465377022, 62.1018790898686, 1.8)
    pt3dadd(91.4871732601438, -186.494044400852, 62.3604480351376, 1.8)
    pt3dadd(91.7237357945047, -187.430623424683, 62.6190169804066, 1.8)
    pt3dadd(91.9602983288656, -188.367202448513, 62.8775859256756, 1.8)
    pt3dadd(92.1968608632265, -189.303781472344, 63.1361548709445, 1.8)
    pt3dadd(92.4334233975873, -190.240360496174, 63.3947238162135, 1.8)
    pt3dadd(92.6699859319482, -191.176939520005, 63.6532927614825, 1.8)
    pt3dadd(92.9065484663091, -192.113518543835, 63.9118617067515, 1.8)
    pt3dadd(93.14311100067, -193.050097567666, 64.1704306520205, 1.8)
    pt3dadd(93.4447843159874, -193.980031888483, 64.3546363729507, 1.8)
    pt3dadd(93.8146878998349, -194.903003155497, 64.460916093135, 1.8)
    pt3dadd(94.1845914836824, -195.825974422512, 64.5671958133193, 1.8)
    pt3dadd(94.5544950675299, -196.748945689526, 64.6734755335035, 1.8)
    pt3dadd(94.9243986513773, -197.671916956541, 64.7797552536878, 1.8)
    pt3dadd(95.2943022352248, -198.594888223555, 64.8860349738721, 1.8)
    pt3dadd(95.6642058190723, -199.51785949057, 64.9923146940563, 1.8)
    pt3dadd(96.0341094029198, -200.440830757584, 65.0985944142406, 1.8)
    pt3dadd(96.4040129867672, -201.363802024599, 65.2048741344249, 1.8)
  }
  adendMML[11] {pt3dclear()
    pt3dadd(96.4040129867672, -201.363802024599, 65.2048741344249, 1.8)
    pt3dadd(96.473552807456, -201.943154906694, 65.7928652015393, 1.8)
    pt3dadd(96.3290559783805, -202.277648265351, 66.724119656241, 1.8)
    pt3dadd(96.1845591493049, -202.612141624007, 67.6553741109427, 1.8)
    pt3dadd(96.0400623202294, -202.946634982664, 68.5866285656444, 1.8)
    pt3dadd(95.8955654911539, -203.28112834132, 69.5178830203461, 1.8)
    pt3dadd(95.979121555882, -203.897046888654, 70.0827681666889, 1.8)
    pt3dadd(96.315760443039, -204.825278425597, 70.2410731681174, 1.8)
    pt3dadd(96.652399330196, -205.753509962541, 70.3993781695458, 1.8)
    pt3dadd(96.989038217353, -206.681741499484, 70.5576831709742, 1.8)
    pt3dadd(97.1738741592967, -207.565315126902, 70.9090725172209, 1.8)
    pt3dadd(97.208517699878, -208.404704640092, 71.4514976920083, 1.8)
    pt3dadd(97.2431612404594, -209.244094153282, 71.9939228667957, 1.8)
    pt3dadd(97.5944911416437, -210.099694847953, 71.8010253317708, 1.8)
    pt3dadd(97.998814396425, -210.958008273513, 71.4850810817099, 1.8)
    pt3dadd(98.4031376512064, -211.816321699073, 71.169136831649, 1.8)
    pt3dadd(98.8074609059877, -212.674635124633, 70.8531925815881, 1.8)
    pt3dadd(99.211784160769, -213.532948550193, 70.5372483315272, 1.8)
    pt3dadd(99.4208545449902, -214.435982312891, 70.5651507450107, 1.8)
    pt3dadd(99.4572523291962, -215.378564671547, 70.8971352302737, 1.8)
    pt3dadd(99.4936501134021, -216.321147030203, 71.2291197155367, 1.8)
    pt3dadd(99.6689727783894, -217.253360213253, 71.4956135552005, 1.8)
    pt3dadd(100.015610853842, -218.172786632944, 71.6813475139179, 1.8)
    pt3dadd(100.362248929294, -219.092213052635, 71.8670814726352, 1.8)
    pt3dadd(100.708887004746, -220.011639472326, 72.0528154313525, 1.8)
    pt3dadd(101.055525080198, -220.931065892018, 72.2385493900699, 1.8)
    pt3dadd(101.40216315565, -221.850492311709, 72.4242833487872, 1.8)
    pt3dadd(101.748801231102, -222.7699187314, 72.6100173075045, 1.8)
    pt3dadd(102.094869170232, -223.689170527347, 72.7965305372098, 1.8)
    pt3dadd(102.188718154455, -224.531171644277, 73.3277804663853, 1.8)
    pt3dadd(102.282567138678, -225.373172761207, 73.8590303955608, 1.8)
    pt3dadd(102.376416122901, -226.215173878137, 74.3902803247363, 1.8)
    pt3dadd(102.470265107124, -227.057174995067, 74.9215302539118, 1.8)
    pt3dadd(102.564114091347, -227.899176111997, 75.4527801830873, 1.8)
    pt3dadd(102.65796307557, -228.741177228927, 75.9840301122628, 1.8)
    pt3dadd(102.751812059793, -229.583178345857, 76.5152800414383, 1.8)
    pt3dadd(102.92309408398, -230.418849507169, 77.0291884184313, 1.8)
    pt3dadd(103.194754129442, -231.24631501854, 77.5206165893684, 1.8)
    pt3dadd(103.466414174904, -232.073780529911, 78.0120447603056, 1.8)
    pt3dadd(103.738074220366, -232.901246041282, 78.5034729312428, 1.8)
    pt3dadd(104.00594968868, -233.744115910042, 78.9672667960982, 1.8)
  }
  adendOML[7] {pt3dclear()
    pt3dadd(104.00594968868, -233.744115910042, 78.9672667960982, 1.8)
    pt3dadd(104.26372931156, -234.628078879847, 79.3573426016045, 1.8)
    pt3dadd(104.52150893444, -235.512041849651, 79.7474184071108, 1.8)
    pt3dadd(104.779288557321, -236.396004819456, 80.137494212617, 1.8)
    pt3dadd(105.037068180201, -237.279967789261, 80.5275700181233, 1.8)
    pt3dadd(105.294847803081, -238.163930759066, 80.9176458236296, 1.8)
    pt3dadd(105.632302815759, -239.027461525517, 81.2752538583254, 1.8)
    pt3dadd(106.097682131441, -239.858186988102, 81.5807326601221, 1.8)
    pt3dadd(106.563061447124, -240.688912450688, 81.8862114619189, 1.8)
    pt3dadd(107.028440762807, -241.519637913273, 82.1916902637156, 1.8)
    pt3dadd(107.49382007849, -242.350363375858, 82.4971690655123, 1.8)
    pt3dadd(107.959199394173, -243.181088838443, 82.8026478673091, 1.8)
    pt3dadd(108.424578709856, -244.011814301028, 83.1081266691058, 1.8)
    pt3dadd(108.889958025539, -244.842539763613, 83.4136054709025, 1.8)
    pt3dadd(109.06899955906, -245.689470396166, 83.9018810581216, 1.8)
    pt3dadd(109.217741461057, -246.538115824003, 84.4094997973351, 1.8)
    pt3dadd(109.366483363053, -247.386761251841, 84.9171185365487, 1.8)
    pt3dadd(109.51522526505, -248.235406679679, 85.4247372757622, 1.8)
    pt3dadd(109.663967167047, -249.084052107516, 85.9323560149758, 1.8)
    pt3dadd(109.795554046681, -249.912426877351, 86.4719937855432, 1.8)
    pt3dadd(109.874883028465, -250.679052851249, 87.1091684309854, 1.8)
    pt3dadd(109.95421201025, -251.445678825147, 87.7463430764276, 1.8)
    pt3dadd(110.033540992035, -252.212304799045, 88.3835177218698, 1.8)
    pt3dadd(110.11286997382, -252.978930772942, 89.0206923673119, 1.8)
    pt3dadd(110.192198955605, -253.74555674684, 89.6578670127541, 1.8)
    pt3dadd(109.998841433358, -254.375940967153, 90.39526764979, 1.8)
    pt3dadd(109.7486269144, -254.977917852226, 91.1535660899443, 1.8)
    pt3dadd(109.498412395443, -255.579894737299, 91.9118645300987, 1.8)
    pt3dadd(109.231166487583, -256.334494711441, 92.4995200031615, 1.8)
    pt3dadd(108.959454675209, -257.129114918019, 93.0424301415034, 1.8)
    pt3dadd(108.687742862834, -257.923735124597, 93.5853402798453, 1.8)
    pt3dadd(108.416031050459, -258.718355331174, 94.1282504181871, 1.8)
    pt3dadd(108.390750205907, -259.441213235487, 94.7472393439515, 1.8)
    pt3dadd(108.687632126085, -260.07025524521, 95.4656871677184, 1.8)
    pt3dadd(108.984514046263, -260.699297254933, 96.1841349914853, 1.8)
    pt3dadd(109.28139596644, -261.328339264656, 96.9025828152522, 1.8)
    pt3dadd(109.578277886618, -261.957381274379, 97.6210306390192, 1.8)
    pt3dadd(109.874378933145, -262.570634885628, 98.3488896273866, 1.8)
    pt3dadd(110.155562954886, -262.882282813053, 99.2565300381495, 1.8)
    pt3dadd(110.436746976627, -263.193930740477, 100.164170448912, 1.8)
    pt3dadd(110.448108571114, -263.547788216368, 101.07331847659, 1.8)
    pt3dadd(110.285447848695, -263.928868794114, 101.98343884371, 1.8)
    pt3dadd(110.122787126276, -264.30994937186, 102.89355921083, 1.8)
    pt3dadd(109.960126403858, -264.691029949606, 103.803679577951, 1.8)
    pt3dadd(110.081872560466, -265.175694711502, 104.617951034033, 1.8)
    pt3dadd(110.449756230008, -265.750005523991, 105.349270865805, 1.8)
    pt3dadd(110.817639899549, -266.324316336479, 106.080590697578, 1.8)
    pt3dadd(111.185523569091, -266.898627148967, 106.81191052935, 1.8)
    pt3dadd(111.783772534603, -267.148110101423, 106.640285793646, 1.8)
    pt3dadd(112.512214182202, -267.214014142238, 105.958355134819, 1.8)
  }
  adendMML[12] {pt3dclear()
    pt3dadd(96.4040129867672, -201.363802024599, 65.2048741344249, 1.8)
    pt3dadd(96.8456820814072, -202.139692930296, 64.9256772573111, 1.8)
    pt3dadd(97.3384906655017, -202.810775627935, 64.3717930524701, 1.8)
    pt3dadd(97.8312992495963, -203.481858325574, 63.8179088476291, 1.8)
    pt3dadd(98.4033661578409, -204.153039628283, 63.5616016878121, 1.8)
    pt3dadd(99.1062808992951, -204.824383718435, 63.7965654698407, 1.8)
    pt3dadd(99.8606568113353, -205.435454039935, 63.9851596338712, 1.8)
    pt3dadd(100.748959043997, -205.889663489956, 64.0530781067671, 1.8)
    pt3dadd(101.637261276658, -206.343872939977, 64.120996579663, 1.8)
    pt3dadd(102.52556350932, -206.798082389997, 64.1889150525589, 1.8)
    pt3dadd(103.413865741981, -207.252291840018, 64.2568335254548, 1.8)
    pt3dadd(104.302167974642, -207.706501290039, 64.3247519983506, 1.8)
    pt3dadd(105.104623733934, -208.23258644739, 64.0450210140432, 1.8)
    pt3dadd(105.906403937826, -208.759237219381, 63.7625542566936, 1.8)
    pt3dadd(106.708184141719, -209.285887991371, 63.480087499344, 1.8)
    pt3dadd(107.503681447172, -209.828579034821, 63.2135820338977, 1.8)
    pt3dadd(108.280435757507, -210.419121039502, 62.9946919197231, 1.8)
    pt3dadd(109.057190067843, -211.009663044182, 62.7758018055485, 1.8)
    pt3dadd(109.833944378178, -211.600205048863, 62.5569116913739, 1.8)
    pt3dadd(110.383033024756, -212.349621747722, 62.6246496197451, 1.8)
    pt3dadd(110.742975836719, -213.231032380729, 62.9305196381157, 1.8)
    pt3dadd(111.102918648681, -214.112443013737, 63.2363896564863, 1.8)
    pt3dadd(111.54904518383, -214.961222813472, 63.509507605657, 1.8)
    pt3dadd(112.048787524792, -215.789702626672, 63.7622501461389, 1.8)
    pt3dadd(112.633597204148, -216.508265442441, 63.7940027451501, 1.8)
    pt3dadd(113.393967749037, -216.999982989857, 63.3696791798973, 1.8)
    pt3dadd(114.154338293926, -217.491700537273, 62.9453556146444, 1.8)
    pt3dadd(114.914708838815, -217.983418084689, 62.5210320493915, 1.8)
    pt3dadd(115.725594891101, -218.441158028228, 62.2127724542537, 1.8)
    pt3dadd(116.647980520046, -218.823901428266, 62.1606932718181, 1.8)
    pt3dadd(117.570366148991, -219.206644828304, 62.1086140893826, 1.8)
    pt3dadd(118.47962047878, -219.600555532561, 62.0821978539565, 1.8)
    pt3dadd(119.14990055059, -220.197698088258, 62.5228171834341, 1.8)
    pt3dadd(119.8201806224, -220.794840643956, 62.9634365129117, 1.8)
    pt3dadd(120.49046069421, -221.391983199654, 63.4040558423893, 1.8)
    pt3dadd(121.233039247774, -221.959839794087, 63.7004058355579, 1.8)
    pt3dadd(122.078542265605, -222.486004754054, 63.7913733118387, 1.8)
    pt3dadd(122.924045283437, -223.012169714021, 63.8823407881195, 1.8)
    pt3dadd(123.769548301268, -223.538334673988, 63.9733082644003, 1.8)
    pt3dadd(124.615051319099, -224.064499633955, 64.0642757406811, 1.8)
    pt3dadd(125.437986922344, -224.610522736118, 64.1684967847695, 1.8)
    pt3dadd(125.972920816316, -225.409972249768, 64.4418577260252, 1.8)
    pt3dadd(126.507854710288, -226.209421763419, 64.7152186672809, 1.8)
    pt3dadd(127.04278860426, -227.008871277069, 64.9885796085365, 1.8)
    pt3dadd(127.577722498232, -227.808320790719, 65.2619405497922, 1.8)
    pt3dadd(128.095149457634, -228.632308099417, 65.3889924573386, 1.8)
    pt3dadd(128.583413475239, -229.497170313197, 65.2723236942209, 1.8)
    pt3dadd(129.071677492844, -230.362032526978, 65.1556549311033, 1.8)
    pt3dadd(129.576777699653, -231.206140445553, 64.9896060311997, 1.8)
    pt3dadd(130.107423092626, -232.01875832037, 64.7486337165184, 1.8)
    pt3dadd(130.638068485599, -232.831376195188, 64.5076614018371, 1.8)
    pt3dadd(131.168713878572, -233.643994070006, 64.2666890871558, 1.8)
  }
  adendOML[8] {pt3dclear()
    pt3dadd(131.168713878572, -233.643994070006, 64.2666890871558, 1.8)
    pt3dadd(131.532440452449, -234.434434862636, 64.210591109399, 1.8)
    pt3dadd(131.256171556203, -235.139844906678, 64.8633331462956, 1.8)
    pt3dadd(130.979902659957, -235.845254950719, 65.5160751831922, 1.8)
    pt3dadd(131.257058148115, -236.573582934119, 65.6886910537245, 1.8)
    pt3dadd(131.908014692122, -237.317390448547, 65.5370138988965, 1.8)
    pt3dadd(132.558971236128, -238.061197962974, 65.3853367440685, 1.8)
    pt3dadd(133.209927780134, -238.805005477401, 65.2336595892404, 1.8)
    pt3dadd(133.95570524591, -239.426529474905, 65.3480622063468, 1.8)
    pt3dadd(134.745955327244, -239.990700435383, 65.5872607354107, 1.8)
    pt3dadd(135.536205408578, -240.55487139586, 65.8264592644747, 1.8)
    pt3dadd(136.326455489911, -241.119042356337, 66.0656577935386, 1.8)
    pt3dadd(137.116705571245, -241.683213316814, 66.3048563226025, 1.8)
    pt3dadd(137.906177820275, -242.248737868578, 66.2338229458603, 1.8)
    pt3dadd(138.695230873718, -242.814991908552, 65.995596916498, 1.8)
    pt3dadd(139.484283927161, -243.381245948526, 65.7573708871358, 1.8)
    pt3dadd(140.273336980603, -243.947499988501, 65.5191448577735, 1.8)
    pt3dadd(140.963262780558, -244.57642419669, 65.5708835713034, 1.8)
    pt3dadd(141.525745185642, -245.28592058572, 65.9954167477733, 1.8)
    pt3dadd(142.088227590726, -245.99541697475, 66.4199499242431, 1.8)
  }
  adendIML[8] {pt3dclear()
    pt3dadd(28.7992449704874, -49.9300699415946, 10.8821738599446, 1.8)
    pt3dadd(29.0216180574848, -50.5369765654271, 10.0923281529753, 1.8)
    pt3dadd(29.242748494165, -51.1612028860307, 9.34303326400344, 1.8)
    pt3dadd(29.4638789308452, -51.7854292066343, 8.59373837503162, 1.8)
    pt3dadd(29.6850093675253, -52.409655527238, 7.84444348605981, 1.8)
    pt3dadd(29.6930842723269, -53.2758374869424, 7.90780981774024, 1.8)
    pt3dadd(29.6326872774931, -54.2197792780423, 8.23234964276983, 1.8)
    pt3dadd(29.5722902826593, -55.1637210691421, 8.55688946779943, 1.8)
    pt3dadd(29.5118932878254, -56.107662860242, 8.88142929282902, 1.8)
    pt3dadd(29.4514962929916, -57.0516046513418, 9.20596911785862, 1.8)
    pt3dadd(29.3910992981578, -57.9955464424417, 9.53050894288821, 1.8)
    pt3dadd(29.644844503893, -58.8336730561237, 9.23518478745852, 1.8)
    pt3dadd(29.991374382214, -59.640546222884, 8.75677833245091, 1.8)
    pt3dadd(30.3379042605349, -60.4474193896444, 8.27837187744329, 1.8)
    pt3dadd(30.6844341388559, -61.2542925564047, 7.79996542243568, 1.8)
    pt3dadd(31.0309640171769, -62.0611657231651, 7.32155896742807, 1.8)
    pt3dadd(31.2739584041435, -62.9961826604999, 7.27840901925378, 1.8)
    pt3dadd(31.4859597648242, -63.9695590357224, 7.36555174831444, 1.8)
    pt3dadd(31.6979611255049, -64.942935410945, 7.45269447737509, 1.8)
    pt3dadd(31.9099624861856, -65.9163117861675, 7.53983720643574, 1.8)
    pt3dadd(32.1220137011316, -66.889674760481, 7.62700824965565, 1.8)
    pt3dadd(32.334233163849, -67.862992509515, 7.7142748472711, 1.8)
    pt3dadd(32.5464526265664, -68.836310258549, 7.80154144488654, 1.8)
    pt3dadd(32.7586720892837, -69.809628007583, 7.88880804250199, 1.8)
    pt3dadd(32.9708915520011, -70.782945756617, 7.97607464011744, 1.8)
    pt3dadd(33.3226327396233, -71.6681739601419, 7.76842877597109, 1.8)
    pt3dadd(33.7348894628326, -72.5151945939874, 7.43286888562544, 1.8)
    pt3dadd(34.147146186042, -73.3622152278328, 7.0973089952798, 1.8)
    pt3dadd(34.5594029092513, -74.2092358616782, 6.76174910493415, 1.8)
    pt3dadd(34.9716596324606, -75.0562564955237, 6.42618921458851, 1.8)
    pt3dadd(35.370196894352, -75.890190557463, 6.32774621916687, 1.8)
    pt3dadd(35.7357517703729, -76.6926637366222, 6.79934608064639, 1.8)
    pt3dadd(36.1013066463937, -77.4951369157814, 7.27094594212591, 1.8)
    pt3dadd(36.4668615224145, -78.2976100949406, 7.74254580360543, 1.8)
    pt3dadd(36.8428953510639, -79.1760295005993, 7.97466317009253, 1.8)
    pt3dadd(37.2244147110044, -80.0942053033595, 8.08141603055145, 1.8)
    pt3dadd(37.6059340709449, -81.0123811061198, 8.18816889101037, 1.8)
    pt3dadd(37.7613153474472, -81.9779829488436, 8.36505858513416, 1.8)
    pt3dadd(37.8694584028392, -82.9534916667303, 8.55659923590472, 1.8)
    pt3dadd(37.9776014582312, -83.9290003846169, 8.74813988667529, 1.8)
    pt3dadd(38.0857445136232, -84.9045091025036, 8.93968053744585, 1.8)
    pt3dadd(38.1938875690152, -85.8800178203902, 9.13122118821641, 1.8)
    pt3dadd(38.3020306244072, -86.8555265382769, 9.32276183898698, 1.8)
    pt3dadd(38.4101736797992, -87.8310352561635, 9.51430248975755, 1.8)
    pt3dadd(38.4883387688045, -88.8045366631383, 9.30430365066284, 1.8)
    pt3dadd(38.5661182229256, -89.7780122481776, 9.08913943001053, 1.8)
    pt3dadd(38.6438976770467, -90.751487833217, 8.87397520935822, 1.8)
    pt3dadd(38.7216771311677, -91.7249634182564, 8.6588109887059, 1.8)
    pt3dadd(38.7994565852888, -92.6984390032957, 8.44364676805359, 1.8)
    pt3dadd(38.8772360394098, -93.6719145883351, 8.22848254740127, 1.8)
    pt3dadd(38.9550154935309, -94.6453901733744, 8.01331832674896, 1.8)
    pt3dadd(39.119411206495, -95.613747615764, 7.83243254292574, 1.8)
    pt3dadd(39.3090670245681, -96.5806124420672, 7.66154346097864, 1.8)
    pt3dadd(39.4987228426413, -97.5474772683704, 7.49065437903154, 1.8)
    pt3dadd(39.6883786607144, -98.5143420946736, 7.31976529708444, 1.8)
    pt3dadd(39.8780344787876, -99.4812069209767, 7.14887621513734, 1.8)
    pt3dadd(40.0676902968607, -100.44807174728, 6.97798713319024, 1.8)
    pt3dadd(40.2268887740292, -101.422635629067, 6.87948317329427, 1.8)
    pt3dadd(40.3118431496081, -102.415967053932, 6.95742824655428, 1.8)
    pt3dadd(40.3967975251869, -103.409298478797, 7.03537331981429, 1.8)
    pt3dadd(40.4817519007659, -104.402629903662, 7.1133183930743, 1.8)
    pt3dadd(40.5667062763447, -105.395961328527, 7.19126346633431, 1.8)
    pt3dadd(40.6516606519236, -106.389292753392, 7.26920853959432, 1.8)
    pt3dadd(40.7366150275025, -107.382624178257, 7.34715361285433, 1.8)
    pt3dadd(40.8215694030814, -108.375955603122, 7.42509868611434, 1.8)
  }
}
proc shape3d_10() {
  adendIML[8] {
    pt3dadd(40.9065237786603, -109.369287027987, 7.50304375937435, 1.8)
    pt3dadd(41.0410633368932, -110.349110583112, 7.45473326641056, 1.8)
    pt3dadd(41.227668143955, -111.314750655157, 7.27385237399216, 1.8)
    pt3dadd(41.4142729510168, -112.280390727203, 7.09297148157376, 1.8)
    pt3dadd(41.6008777580786, -113.246030799248, 6.91209058915536, 1.8)
    pt3dadd(41.7874825651404, -114.211670871293, 6.73120969673696, 1.8)
    pt3dadd(41.9740873722022, -115.177310943338, 6.55032880431856, 1.8)
    pt3dadd(42.160692179264, -116.142951015383, 6.36944791190017, 1.8)
  }
  adendMML[13] {pt3dclear()
    pt3dadd(42.160692179264, -116.142951015383, 6.36944791190017, 1.8)
    pt3dadd(42.3519395405265, -117.108648924535, 6.19609151763375, 1.8)
    pt3dadd(42.5906700273228, -118.074938380169, 6.09969420125506, 1.8)
    pt3dadd(42.8294005141191, -119.041227835803, 6.00329688487638, 1.8)
    pt3dadd(43.0681310009155, -120.007517291436, 5.90689956849769, 1.8)
    pt3dadd(43.3068614877118, -120.97380674707, 5.810502252119, 1.8)
    pt3dadd(43.5455919745081, -121.940096202704, 5.71410493574032, 1.8)
    pt3dadd(43.7843224613045, -122.906385658338, 5.61770761936164, 1.8)
    pt3dadd(44.0230529481008, -123.872675113971, 5.52131030298295, 1.8)
    pt3dadd(44.2617834348971, -124.838964569605, 5.42491298660427, 1.8)
    pt3dadd(44.4980357921073, -125.805911227034, 5.34516384558933, 1.8)
    pt3dadd(44.7094919002624, -126.779433868008, 5.43199691437337, 1.8)
    pt3dadd(44.9209480084175, -127.752956508982, 5.51882998315742, 1.8)
    pt3dadd(45.1324041165726, -128.726479149956, 5.60566305194146, 1.8)
    pt3dadd(45.3438602247277, -129.700001790931, 5.6924961207255, 1.8)
    pt3dadd(45.5553163328828, -130.673524431905, 5.77932918950955, 1.8)
    pt3dadd(45.7667724410379, -131.647047072879, 5.8661622582936, 1.8)
    pt3dadd(45.9590256455167, -132.62480039175, 5.94211931432841, 1.8)
    pt3dadd(46.1030687395684, -133.613175096431, 5.99077144895742, 1.8)
    pt3dadd(46.2471118336201, -134.601549801111, 6.03942358358644, 1.8)
    pt3dadd(46.3911549276718, -135.589924505792, 6.08807571821545, 1.8)
    pt3dadd(46.5351980217235, -136.578299210472, 6.13672785284446, 1.8)
    pt3dadd(46.6792411157752, -137.566673915152, 6.18537998747347, 1.8)
    pt3dadd(46.8232842098269, -138.555048619833, 6.23403212210249, 1.8)
    pt3dadd(46.9651498412116, -139.543755035293, 6.28145577800203, 1.8)
    pt3dadd(47.0779975708505, -140.536881986168, 6.31250814285338, 1.8)
    pt3dadd(47.1908453004895, -141.530008937042, 6.34356050770473, 1.8)
    pt3dadd(47.3036930301285, -142.523135887916, 6.37461287255608, 1.8)
    pt3dadd(47.4165407597674, -143.51626283879, 6.40566523740743, 1.8)
    pt3dadd(47.5293884894064, -144.509389789664, 6.43671760225878, 1.8)
    pt3dadd(47.6422362190453, -145.502516740538, 6.46776996711013, 1.8)
    pt3dadd(47.7550839486843, -146.495643691412, 6.49882233196148, 1.8)
    pt3dadd(47.828032104238, -147.491067978335, 6.50748624523986, 1.8)
    pt3dadd(47.829984336368, -148.490580065641, 6.47631292140759, 1.8)
    pt3dadd(47.831936568498, -149.490092152947, 6.44513959757532, 1.8)
    pt3dadd(47.8338888006281, -150.489604240254, 6.41396627374305, 1.8)
    pt3dadd(47.8358410327581, -151.48911632756, 6.38279294991078, 1.8)
    pt3dadd(47.8377932648881, -152.488628414866, 6.35161962607851, 1.8)
    pt3dadd(47.8397454970182, -153.488140502172, 6.32044630224624, 1.8)
    pt3dadd(47.9962708406768, -154.474230711625, 6.37615302274809, 1.8)
    pt3dadd(48.1529070355006, -155.460311295659, 6.43192204874443, 1.8)
    pt3dadd(48.3095432303244, -156.446391879694, 6.48769107474076, 1.8)
    pt3dadd(48.4661794251481, -157.432472463729, 6.5434601007371, 1.8)
    pt3dadd(48.6228156199719, -158.418553047764, 6.59922912673344, 1.8)
    pt3dadd(48.8609270420711, -159.38762930088, 6.56930393772941, 1.8)
    pt3dadd(49.1178711229914, -160.352775073856, 6.51957088849559, 1.8)
    pt3dadd(49.3748152039118, -161.317920846832, 6.46983783926178, 1.8)
    pt3dadd(49.6317592848322, -162.283066619809, 6.42010479002796, 1.8)
    pt3dadd(49.8887033657526, -163.248212392785, 6.37037174079414, 1.8)
    pt3dadd(50.1480787052171, -164.21220620993, 6.32532701640961, 1.8)
    pt3dadd(50.5248902706933, -165.120557509874, 6.50674079761981, 1.8)
    pt3dadd(50.9017018361694, -166.028908809818, 6.68815457883001, 1.8)
    pt3dadd(51.2785134016455, -166.937260109763, 6.86956836004021, 1.8)
    pt3dadd(51.6553249671217, -167.845611409707, 7.05098214125042, 1.8)
    pt3dadd(52.0321365325978, -168.753962709651, 7.23239592246062, 1.8)
    pt3dadd(52.4089480980739, -169.662314009595, 7.41380970367083, 1.8)
    pt3dadd(52.7857596635501, -170.57066530954, 7.59522348488103, 1.8)
    pt3dadd(53.1562491906278, -171.488693091757, 7.69131522951793, 1.8)
    pt3dadd(53.5175893531321, -172.420724848408, 7.66392743012799, 1.8)
    pt3dadd(53.8789295156364, -173.352756605059, 7.63653963073806, 1.8)
    pt3dadd(54.2402696781407, -174.28478836171, 7.60915183134812, 1.8)
    pt3dadd(54.601609840645, -175.216820118361, 7.58176403195819, 1.8)
    pt3dadd(54.9629500031493, -176.148851875012, 7.55437623256826, 1.8)
    pt3dadd(55.3242901656536, -177.080883631663, 7.52698843317832, 1.8)
    pt3dadd(55.6856303281579, -178.012915388314, 7.49960063378839, 1.8)
    pt3dadd(56.0466024608248, -178.944984418672, 7.46927713457554, 1.8)
    pt3dadd(56.4064426774149, -179.8771680884, 7.42992456899845, 1.8)
    pt3dadd(56.766282894005, -180.809351758127, 7.39057200342136, 1.8)
    pt3dadd(57.1261231105951, -181.741535427855, 7.35121943784427, 1.8)
    pt3dadd(57.4859633271852, -182.673719097582, 7.31186687226718, 1.8)
    pt3dadd(57.8458035437753, -183.60590276731, 7.27251430669009, 1.8)
    pt3dadd(58.2056437603654, -184.538086437038, 7.233161741113, 1.8)
    pt3dadd(58.5654839769555, -185.470270106765, 7.19380917553591, 1.8)
    pt3dadd(58.9253241935457, -186.402453776493, 7.15445660995881, 1.8)
    pt3dadd(59.2851644101358, -187.334637446221, 7.11510404438172, 1.8)
    pt3dadd(59.5756401927577, -188.272988384989, 7.12499572951962, 1.8)
    pt3dadd(59.5321549873226, -189.24103216697, 7.37197806305018, 1.8)
    pt3dadd(59.4886697818874, -190.209075948951, 7.61896039658074, 1.8)
    pt3dadd(59.4451845764523, -191.177119730932, 7.8659427301113, 1.8)
    pt3dadd(59.4016993710172, -192.145163512913, 8.11292506364187, 1.8)
    pt3dadd(59.3582141655821, -193.113207294894, 8.35990739717243, 1.8)
    pt3dadd(59.3147289601469, -194.081251076875, 8.60688973070299, 1.8)
    pt3dadd(59.2712437547118, -195.049294858856, 8.85387206423356, 1.8)
    pt3dadd(59.2277585492767, -196.017338640837, 9.10085439776412, 1.8)
    pt3dadd(59.1842733438415, -196.985382422818, 9.34783673129468, 1.8)
    pt3dadd(59.1542227679128, -197.957435686149, 9.56213488111885, 1.8)
    pt3dadd(59.2121811354546, -198.955754669523, 9.56232214125939, 1.8)
    pt3dadd(59.2701395029963, -199.954073652898, 9.56250940139992, 1.8)
    pt3dadd(59.328097870538, -200.952392636272, 9.56269666154046, 1.8)
    pt3dadd(59.3860562380797, -201.950711619646, 9.56288392168099, 1.8)
    pt3dadd(59.4440146056214, -202.94903060302, 9.56307118182153, 1.8)
    pt3dadd(59.5019729731631, -203.947349586395, 9.56325844196206, 1.8)
    pt3dadd(59.5599313407048, -204.945668569769, 9.56344570210259, 1.8)
    pt3dadd(59.6178897082465, -205.943987553143, 9.56363296224313, 1.8)
    pt3dadd(59.7158532889571, -206.907017000997, 9.35163717465742, 1.8)
    pt3dadd(59.8288898008517, -207.85675026322, 9.05969629433383, 1.8)
    pt3dadd(59.9419263127462, -208.806483525444, 8.76775541401025, 1.8)
    pt3dadd(60.0549628246408, -209.756216787668, 8.47581453368667, 1.8)
    pt3dadd(60.1679993365354, -210.705950049892, 8.18387365336308, 1.8)
    pt3dadd(60.2810358484299, -211.655683312116, 7.8919327730395, 1.8)
    pt3dadd(60.3940723603245, -212.60541657434, 7.59999189271592, 1.8)
    pt3dadd(60.5071088722191, -213.555149836564, 7.30805101239234, 1.8)
    pt3dadd(60.6201453841136, -214.504883098788, 7.01611013206875, 1.8)
    pt3dadd(60.9330225649062, -215.402775963885, 6.7116012918594, 1.8)
    pt3dadd(61.2607103532694, -216.296826829341, 6.40616101400597, 1.8)
    pt3dadd(61.5883981416326, -217.190877694797, 6.10072073615253, 1.8)
    pt3dadd(61.9160859299958, -218.084928560253, 5.7952804582991, 1.8)
    pt3dadd(62.243773718359, -218.978979425709, 5.48984018044566, 1.8)
    pt3dadd(62.5714615067222, -219.873030291165, 5.18439990259222, 1.8)
    pt3dadd(62.8991492950854, -220.767081156621, 4.87895962473879, 1.8)
    pt3dadd(63.2149489999575, -221.666302648732, 4.59538743628437, 1.8)
    pt3dadd(63.3236591415775, -222.655596086982, 4.69275579945055, 1.8)
    pt3dadd(63.4323692831975, -223.644889525231, 4.79012416261672, 1.8)
    pt3dadd(63.5410794248175, -224.634182963481, 4.8874925257829, 1.8)
    pt3dadd(63.6497895664374, -225.62347640173, 4.98486088894907, 1.8)
    pt3dadd(63.7584997080574, -226.612769839979, 5.08222925211525, 1.8)
    pt3dadd(63.8672098496774, -227.602063278229, 5.17959761528143, 1.8)
    pt3dadd(63.9759199912974, -228.591356716478, 5.2769659784476, 1.8)
    pt3dadd(64.0846301329174, -229.580650154728, 5.37433434161378, 1.8)
    pt3dadd(64.3268147036479, -230.548175413492, 5.36231950496249, 1.8)
    pt3dadd(64.5914868858677, -231.512033195524, 5.33187591819525, 1.8)
    pt3dadd(64.8561590680875, -232.475890977556, 5.30143233142801, 1.8)
    pt3dadd(65.1208312503073, -233.439748759588, 5.27098874466077, 1.8)
  }
  adendOML[9] {pt3dclear()
    pt3dadd(65.1208312503073, -233.439748759588, 5.27098874466077, 1.8)
    pt3dadd(65.3855034325271, -234.40360654162, 5.24054515789354, 1.8)
    pt3dadd(65.6501756147469, -235.367464323652, 5.2101015711263, 1.8)
    pt3dadd(65.9148477969667, -236.331322105684, 5.17965798435906, 1.8)
    pt3dadd(66.2245087814402, -237.278751390798, 5.17392201534399, 1.8)
    pt3dadd(66.6341573141926, -238.18966836515, 5.22309869123374, 1.8)
    pt3dadd(67.0438058469451, -239.100585339502, 5.27227536712349, 1.8)
    pt3dadd(67.4534543796975, -240.011502313854, 5.32145204301325, 1.8)
    pt3dadd(67.86310291245, -240.922419288205, 5.370628718903, 1.8)
    pt3dadd(68.2727514452024, -241.833336262557, 5.41980539479276, 1.8)
    pt3dadd(68.6823999779548, -242.744253236909, 5.46898207068251, 1.8)
    pt3dadd(69.0920485107072, -243.655170211261, 5.51815874657226, 1.8)
    pt3dadd(69.1531322010673, -244.635550361593, 5.33084072654975, 1.8)
    pt3dadd(69.2141479905581, -245.615944043439, 5.14347663706335, 1.8)
    pt3dadd(69.275163780049, -246.596337725285, 4.95611254757695, 1.8)
    pt3dadd(69.3361795695398, -247.576731407131, 4.76874845809055, 1.8)
    pt3dadd(69.3971953590307, -248.557125088977, 4.58138436860415, 1.8)
    pt3dadd(69.4399668429085, -249.526296380783, 4.34175764735562, 1.8)
    pt3dadd(69.4744079433603, -250.4903435087, 4.07826771252858, 1.8)
    pt3dadd(69.5088490438121, -251.454390636616, 3.81477777770154, 1.8)
    pt3dadd(69.5432901442639, -252.418437764533, 3.55128784287449, 1.8)
    pt3dadd(69.5777312447156, -253.38248489245, 3.28779790804744, 1.8)
    pt3dadd(69.6121723451674, -254.346532020366, 3.0243079732204, 1.8)
    pt3dadd(69.6472834875986, -255.321433471826, 2.83626671687173, 1.8)
    pt3dadd(69.6838907654759, -256.32057152143, 2.81669466946168, 1.8)
    pt3dadd(69.7204980433532, -257.319709571034, 2.79712262205162, 1.8)
    pt3dadd(69.7571053212305, -258.318847620638, 2.77755057464157, 1.8)
    pt3dadd(69.7937125991078, -259.317985670242, 2.75797852723152, 1.8)
    pt3dadd(69.8303198769852, -260.317123719846, 2.73840647982147, 1.8)
    pt3dadd(70.0011863053196, -261.286294706018, 2.67784825231115, 1.8)
    pt3dadd(70.3535004169034, -262.214966000249, 2.56189828875072, 1.8)
    pt3dadd(70.7058145284872, -263.14363729448, 2.44594832519029, 1.8)
    pt3dadd(71.058128640071, -264.072308588712, 2.32999836162986, 1.8)
    pt3dadd(71.4104427516548, -265.000979882943, 2.21404839806944, 1.8)
    pt3dadd(71.7627568632386, -265.929651177174, 2.09809843450901, 1.8)
    pt3dadd(72.1150709748223, -266.858322471406, 1.98214847094858, 1.8)
    pt3dadd(72.4673850864061, -267.786993765637, 1.86619850738816, 1.8)
    pt3dadd(72.7580707458023, -268.742965803958, 1.87727766316259, 1.8)
    pt3dadd(73.0442964584435, -269.700913550912, 1.89754970125766, 1.8)
    pt3dadd(73.3305221710848, -270.658861297866, 1.91782173935274, 1.8)
    pt3dadd(73.616747883726, -271.616809044821, 1.93809377744781, 1.8)
    pt3dadd(73.9029735963672, -272.574756791775, 1.95836581554288, 1.8)
    pt3dadd(74.3940865978852, -273.426172876167, 1.89493755106036, 1.8)
    pt3dadd(74.9866542113483, -274.224837379216, 1.79006317362346, 1.8)
    pt3dadd(75.5792218248115, -275.023501882266, 1.68518879618656, 1.8)
    pt3dadd(76.1717894382747, -275.822166385316, 1.58031441874965, 1.8)
    pt3dadd(76.7643570517378, -276.620830888366, 1.47544004131274, 1.8)
    pt3dadd(77.1336047017393, -277.430969631842, 1.78750494438152, 1.8)
    pt3dadd(77.3931617961551, -278.246744305881, 2.30436256107616, 1.8)
    pt3dadd(77.6527188905709, -279.06251897992, 2.8212201777708, 1.8)
    pt3dadd(77.8513788304161, -279.832435470415, 3.40183897221933, 1.8)
    pt3dadd(77.8610961978348, -280.460070055842, 4.18028640136678, 1.8)
    pt3dadd(77.8708135652535, -281.087704641269, 4.95873383051423, 1.8)
    pt3dadd(77.8805309326722, -281.715339226696, 5.73718125966168, 1.8)
    pt3dadd(77.8902483000909, -282.342973812123, 6.51562868880914, 1.8)
  }
  adendIML[9] {pt3dclear()
    pt3dadd(20.2865547994918, -22.8276447600037, 6.99220122219906, 1.8)
    pt3dadd(20.4447264611208, -23.7216934376415, 6.69213341293607, 1.8)
    pt3dadd(20.7936020791699, -24.5558818484734, 6.26503213880479, 1.8)
    pt3dadd(21.281654265879, -25.3042174196371, 5.84860197336535, 1.8)
    pt3dadd(21.9168131600621, -25.9618083439649, 5.4434509454982, 1.8)
    pt3dadd(22.5519720542452, -26.6193992682927, 5.03829991763104, 1.8)
    pt3dadd(22.6383709455785, -27.4768937992903, 4.79898103712033, 1.8)
    pt3dadd(22.4270679560347, -28.4428358836639, 4.64962596942673, 1.8)
    pt3dadd(22.2157649664909, -29.4087779680375, 4.50027090173312, 1.8)
    pt3dadd(22.630931502584, -30.0306739001354, 4.02809730001617, 1.8)
    pt3dadd(23.2680809732086, -30.53066067086, 3.44153632178517, 1.8)
    pt3dadd(23.9052304438331, -31.0306474415845, 2.85497534355416, 1.8)
    pt3dadd(24.5423799144577, -31.530634212309, 2.26841436532315, 1.8)
    pt3dadd(25.1795293850822, -32.0306209830336, 1.68185338709215, 1.8)
    pt3dadd(24.8653909668405, -32.8583943629999, 1.7057555448591, 1.8)
    pt3dadd(24.4032170735249, -33.7371765353517, 1.82465544348893, 1.8)
    pt3dadd(23.9410431802094, -34.6159587077035, 1.94355534211875, 1.8)
    pt3dadd(24.2663406247637, -35.3913369844788, 1.54407839424515, 1.8)
    pt3dadd(24.708411091075, -36.151381642407, 1.06773206984435, 1.8)
    pt3dadd(25.1504815573863, -36.9114263003351, 0.591385745443552, 1.8)
    pt3dadd(25.5925520236977, -37.6714709582633, 0.115039421042756, 1.8)
    pt3dadd(25.9596429485005, -38.3780804101148, -0.486894309997771, 1.8)
    pt3dadd(26.3155311532531, -39.0767060887603, -1.10759210027506, 1.8)
    pt3dadd(26.6714193580058, -39.7753317674057, -1.72828989055235, 1.8)
    pt3dadd(27.0273075627584, -40.4739574460512, -2.34898768082963, 1.8)
    pt3dadd(27.3831957675111, -41.1725831246967, -2.96968547110692, 1.8)
    pt3dadd(27.7390839722637, -41.8712088033421, -3.59038326138421, 1.8)
    pt3dadd(28.0949721770164, -42.5698344819876, -4.2110810516615, 1.8)
    pt3dadd(28.3550072708399, -43.425812695375, -4.29925300918205, 1.8)
    pt3dadd(28.55711092544, -44.3768912003931, -4.06557847036823, 1.8)
    pt3dadd(28.7592145800401, -45.3279697054111, -3.83190393155441, 1.8)
    pt3dadd(28.9613182346402, -46.2790482104292, -3.59822939274059, 1.8)
    pt3dadd(29.1799901927002, -47.2131836864812, -3.50921368776404, 1.8)
    pt3dadd(29.4539082169059, -48.0908235954863, -3.90255464181878, 1.8)
    pt3dadd(29.7278262411116, -48.9684635044915, -4.29589559587351, 1.8)
    pt3dadd(30.0017442653173, -49.8461034134966, -4.68923654992825, 1.8)
    pt3dadd(30.275662289523, -50.7237433225018, -5.08257750398298, 1.8)
    pt3dadd(30.5846767448928, -51.59376156822, -5.45530792378653, 1.8)
    pt3dadd(31.0707522231268, -52.425328625235, -5.72405847568761, 1.8)
    pt3dadd(31.5568277013608, -53.2568956822499, -5.99280902758869, 1.8)
    pt3dadd(32.0429031795948, -54.0884627392648, -6.26155957948977, 1.8)
    pt3dadd(32.5289786578288, -54.9200297962797, -6.53031013139085, 1.8)
    pt3dadd(33.0150541360627, -55.7515968532947, -6.79906068329193, 1.8)
    pt3dadd(33.5526043046743, -56.5444028531611, -7.07550114760169, 1.8)
    pt3dadd(34.16446146595, -57.2812547993352, -7.36304249004687, 1.8)
    pt3dadd(34.7763186272257, -58.0181067455092, -7.65058383249204, 1.8)
    pt3dadd(35.3881757885014, -58.7549586916832, -7.93812517493722, 1.8)
    pt3dadd(35.8755909266467, -59.6268010465588, -7.96684781149325, 1.8)
    pt3dadd(36.3611617148594, -60.5006440885408, -7.99173450701636, 1.8)
    pt3dadd(36.8467325030721, -61.3744871305229, -8.01662120253947, 1.8)
    pt3dadd(37.3351358157592, -62.2289781726758, -8.15942384757509, 1.8)
    pt3dadd(37.8257031044232, -63.0686847837981, -8.39231125069143, 1.8)
    pt3dadd(38.3162703930873, -63.9083913949205, -8.62519865380777, 1.8)
    pt3dadd(38.8068376817513, -64.7480980060429, -8.85808605692411, 1.8)
    pt3dadd(39.2974049704153, -65.5878046171652, -9.09097346004045, 1.8)
    pt3dadd(39.7879722590794, -66.4275112282875, -9.32386086315679, 1.8)
    pt3dadd(40.2114422447341, -67.2911079087617, -9.58322566415442, 1.8)
    pt3dadd(40.5465485383263, -68.1861665800593, -9.87745983438246, 1.8)
    pt3dadd(40.8816548319186, -69.081225251357, -10.1716940046105, 1.8)
    pt3dadd(41.2167611255108, -69.9762839226546, -10.4659281748386, 1.8)
    pt3dadd(41.5518674191031, -70.8713425939522, -10.7601623450666, 1.8)
    pt3dadd(41.8869737126953, -71.7664012652498, -11.0543965152946, 1.8)
    pt3dadd(42.231757956604, -72.6759641245861, -11.2837199607122, 1.8)
  }
}
proc shape3d_11() {
  adendIML[9] {
    pt3dadd(42.5791772697, -73.589476119611, -11.4953698032196, 1.8)
    pt3dadd(42.926596582796, -74.502988114636, -11.707019645727, 1.8)
    pt3dadd(43.274015895892, -75.416500109661, -11.9186694882344, 1.8)
    pt3dadd(43.621435208988, -76.330012104686, -12.1303193307418, 1.8)
    pt3dadd(43.9010414192467, -77.2575433968534, -12.3678736031611, 1.8)
    pt3dadd(44.1176996275785, -78.1980882027314, -12.6294738495263, 1.8)
    pt3dadd(44.3343578359103, -79.1386330086094, -12.8910740958914, 1.8)
    pt3dadd(44.5510160442422, -80.0791778144875, -13.1526743422565, 1.8)
    pt3dadd(44.767674252574, -81.0197226203655, -13.4142745886217, 1.8)
    pt3dadd(44.9843324609058, -81.9602674262435, -13.6758748349868, 1.8)
    pt3dadd(45.0488112786612, -82.9477533017773, -13.6671723348189, 1.8)
    pt3dadd(45.0813803283766, -83.9450820255351, -13.6017913454693, 1.8)
    pt3dadd(45.113949378092, -84.9424107492928, -13.5364103561197, 1.8)
    pt3dadd(45.1465184278074, -85.9397394730506, -13.4710293667702, 1.8)
    pt3dadd(45.1790874775227, -86.9370681968084, -13.4056483774206, 1.8)
    pt3dadd(45.315972326867, -87.8824287054719, -13.602285139357, 1.8)
    pt3dadd(45.5148740065607, -88.7968935685044, -13.9546941859125, 1.8)
    pt3dadd(45.7137756862544, -89.7113584315368, -14.3071032324679, 1.8)
    pt3dadd(45.9126773659481, -90.6258232945692, -14.6595122790234, 1.8)
    pt3dadd(46.1115790456418, -91.5402881576016, -15.0119213255788, 1.8)
    pt3dadd(46.3668426681975, -92.4342496973374, -15.3741357778594, 1.8)
    pt3dadd(46.6903830799859, -93.3033735360963, -15.7482284867443, 1.8)
    pt3dadd(47.0139234917743, -94.1724973748551, -16.1223211956292, 1.8)
    pt3dadd(47.3374639035628, -95.041621213614, -16.4964139045142, 1.8)
    pt3dadd(47.6610043153512, -95.9107450523728, -16.8705066133991, 1.8)
    pt3dadd(47.9845447271396, -96.7798688911317, -17.244599322284, 1.8)
    pt3dadd(48.2318231404666, -97.6640966060289, -17.6378484036813, 1.8)
    pt3dadd(48.4511483423142, -98.5538605231286, -18.0381190966653, 1.8)
    pt3dadd(48.6704735441617, -99.4436244402283, -18.4383897896492, 1.8)
    pt3dadd(48.8897987460093, -100.333388357328, -18.8386604826332, 1.8)
    pt3dadd(49.1091239478569, -101.223152274428, -19.2389311756172, 1.8)
    pt3dadd(49.1891348831908, -102.177016365906, -19.2263062429, 1.8)
    pt3dadd(49.2091242664679, -103.158497097443, -19.0357911564155, 1.8)
    pt3dadd(49.229113649745, -104.13997782898, -18.8452760699309, 1.8)
    pt3dadd(49.3608103127943, -105.063687215359, -18.9653989124108, 1.8)
    pt3dadd(49.6068753443384, -105.92824902868, -19.4035596947701, 1.8)
    pt3dadd(49.8529403758826, -106.792810842002, -19.8417204771294, 1.8)
    pt3dadd(50.0990054074268, -107.657372655323, -20.2798812594886, 1.8)
    pt3dadd(50.3450704389709, -108.521934468644, -20.7180420418479, 1.8)
    pt3dadd(50.5973511192117, -109.386365909035, -21.1521345817451, 1.8)
    pt3dadd(50.9257945502669, -110.249199839415, -21.5363773711143, 1.8)
    pt3dadd(51.2542379813221, -111.112033769794, -21.9206201604836, 1.8)
    pt3dadd(51.5826814123772, -111.974867700174, -22.3048629498528, 1.8)
    pt3dadd(51.9111248434324, -112.837701630554, -22.6891057392221, 1.8)
    pt3dadd(52.2395682744876, -113.700535560933, -23.0733485285913, 1.8)
    pt3dadd(52.5680117055427, -114.563369491313, -23.4575913179606, 1.8)
    pt3dadd(53.0137190749004, -115.402178106473, -23.7682808830218, 1.8)
    pt3dadd(53.4666568762084, -116.239505333498, -24.0744351954658, 1.8)
  }
  adendMML[14] {pt3dclear()
    pt3dadd(53.4666568762084, -116.239505333498, -24.0744351954658, 1.8)
    pt3dadd(53.9195946775163, -117.076832560524, -24.3805895079099, 1.8)
    pt3dadd(54.3725324788243, -117.914159787549, -24.6867438203539, 1.8)
    pt3dadd(54.8254702801323, -118.751487014575, -24.992898132798, 1.8)
    pt3dadd(55.2784080814402, -119.5888142416, -25.299052445242, 1.8)
    pt3dadd(55.7313458827482, -120.426141468626, -25.6052067576861, 1.8)
    pt3dadd(56.1842836840561, -121.263468695651, -25.9113610701302, 1.8)
    pt3dadd(56.6372214853641, -122.100795922677, -26.2175153825742, 1.8)
    pt3dadd(57.0300525053355, -122.989083578276, -26.4411811313515, 1.8)
    pt3dadd(57.3923895845035, -123.903224960487, -26.6229980018243, 1.8)
    pt3dadd(57.7547266636714, -124.817366342699, -26.8048148722972, 1.8)
    pt3dadd(58.1170637428393, -125.73150772491, -26.98663174277, 1.8)
    pt3dadd(58.4794008220073, -126.645649107122, -27.1684486132428, 1.8)
    pt3dadd(58.8417379011752, -127.559790489333, -27.3502654837157, 1.8)
    pt3dadd(59.1955650884626, -128.472229880814, -27.551518589545, 1.8)
    pt3dadd(59.516375650077, -129.378065899225, -27.8281802806149, 1.8)
    pt3dadd(59.8371862116914, -130.283901917636, -28.1048419716849, 1.8)
    pt3dadd(60.1579967733057, -131.189737936047, -28.3815036627548, 1.8)
    pt3dadd(60.4788073349201, -132.095573954458, -28.6581653538248, 1.8)
    pt3dadd(60.7996178965345, -133.001409972869, -28.9348270448948, 1.8)
    pt3dadd(61.1204284581489, -133.907245991281, -29.2114887359647, 1.8)
    pt3dadd(61.4769454362244, -134.804819570021, -29.4688426912296, 1.8)
    pt3dadd(61.8548166400091, -135.697451795943, -29.7146496532879, 1.8)
    pt3dadd(62.2326878437937, -136.590084021865, -29.9604566153461, 1.8)
    pt3dadd(62.6105590475783, -137.482716247787, -30.2062635774043, 1.8)
    pt3dadd(62.9884302513629, -138.375348473708, -30.4520705394625, 1.8)
    pt3dadd(63.3663014551475, -139.26798069963, -30.6978775015207, 1.8)
    pt3dadd(63.7441726589321, -140.160612925552, -30.943684463579, 1.8)
    pt3dadd(64.0462960538556, -141.092668918456, -30.9521503963091, 1.8)
    pt3dadd(64.3008899055761, -142.049462176559, -30.8116917478935, 1.8)
    pt3dadd(64.5554837572965, -143.006255434662, -30.671233099478, 1.8)
    pt3dadd(64.8100776090169, -143.963048692765, -30.5307744510625, 1.8)
    pt3dadd(65.0793076331955, -144.887236736938, -30.5469026669937, 1.8)
    pt3dadd(65.3900299064132, -145.718991895381, -31.0069407364301, 1.8)
    pt3dadd(65.7007521796309, -146.550747053823, -31.4669788058664, 1.8)
    pt3dadd(66.0114744528486, -147.382502212266, -31.9270168753027, 1.8)
    pt3dadd(66.3221967260663, -148.214257370709, -32.387054944739, 1.8)
    pt3dadd(66.632918999284, -149.046012529151, -32.8470930141754, 1.8)
    pt3dadd(67.1418577448663, -149.813974438635, -33.2315717095133, 1.8)
    pt3dadd(67.6644987168292, -150.577526474771, -33.6108271676666, 1.8)
    pt3dadd(68.1871396887922, -151.341078510906, -33.9900826258198, 1.8)
    pt3dadd(68.7097806607552, -152.104630547042, -34.369338083973, 1.8)
    pt3dadd(69.2324216327182, -152.868182583177, -34.7485935421263, 1.8)
    pt3dadd(69.7550626046812, -153.631734619312, -35.1278490002795, 1.8)
    pt3dadd(70.2777035766442, -154.395286655448, -35.5071044584328, 1.8)
    pt3dadd(70.4674964855858, -155.314297920927, -35.5697504801435, 1.8)
    pt3dadd(70.4938741229896, -156.30963353676, -35.4769537555214, 1.8)
    pt3dadd(70.5202517603935, -157.304969152592, -35.3841570308992, 1.8)
    pt3dadd(70.5466293977973, -158.300304768425, -35.291360306277, 1.8)
    pt3dadd(70.5730070352012, -159.295640384257, -35.1985635816548, 1.8)
    pt3dadd(70.599384672605, -160.290976000089, -35.1057668570326, 1.8)
    pt3dadd(70.8199179290567, -161.197625620313, -35.4473667347028, 1.8)
    pt3dadd(71.0509446423273, -162.099482061385, -35.8124442846174, 1.8)
    pt3dadd(71.2819713555978, -163.001338502458, -36.177521834532, 1.8)
    pt3dadd(71.5129980688684, -163.90319494353, -36.5425993844466, 1.8)
    pt3dadd(71.744024782139, -164.805051384603, -36.9076769343612, 1.8)
    pt3dadd(71.9750514954096, -165.706907825675, -37.2727544842758, 1.8)
    pt3dadd(72.1237321657403, -166.627968478847, -37.5985957811471, 1.8)
    pt3dadd(72.0509498313486, -167.600677303116, -37.8189143572806, 1.8)
    pt3dadd(71.9781674969569, -168.573386127385, -38.0392329334141, 1.8)
    pt3dadd(71.9053851625652, -169.546094951654, -38.2595515095476, 1.8)
    pt3dadd(71.8326028281735, -170.518803775923, -38.4798700856811, 1.8)
    pt3dadd(71.7598204937818, -171.491512600193, -38.7001886618146, 1.8)
    pt3dadd(71.6870381593901, -172.464221424462, -38.920507237948, 1.8)
    pt3dadd(71.6142558249984, -173.436930248731, -39.1408258140815, 1.8)
    pt3dadd(71.8336750343591, -174.366392518271, -39.3625371805099, 1.8)
    pt3dadd(72.1830273623804, -175.276624363306, -39.5848678783229, 1.8)
    pt3dadd(72.5323796904016, -176.186856208341, -39.8071985761358, 1.8)
    pt3dadd(72.8817320184229, -177.097088053376, -40.0295292739488, 1.8)
    pt3dadd(73.2310843464441, -178.007319898411, -40.2518599717618, 1.8)
    pt3dadd(73.5804366744654, -178.917551743447, -40.4741906695747, 1.8)
    pt3dadd(73.9297890024866, -179.827783588482, -40.6965213673877, 1.8)
    pt3dadd(74.2791413305079, -180.738015433517, -40.9188520652006, 1.8)
    pt3dadd(74.6031334987275, -181.660242269012, -41.113972335008, 1.8)
    pt3dadd(74.8199549343864, -182.633159318002, -41.1941027338742, 1.8)
    pt3dadd(75.0367763700452, -183.606076366993, -41.2742331327404, 1.8)
    pt3dadd(75.2535978057041, -184.578993415983, -41.3543635316065, 1.8)
    pt3dadd(75.470419241363, -185.551910464974, -41.4344939304727, 1.8)
    pt3dadd(75.6872406770219, -186.524827513964, -41.5146243293388, 1.8)
    pt3dadd(75.9040621126808, -187.497744562955, -41.594754728205, 1.8)
    pt3dadd(76.1105244079488, -188.474139243343, -41.6553151650361, 1.8)
    pt3dadd(76.3095804537444, -189.453020250273, -41.7018840914204, 1.8)
    pt3dadd(76.50863649954, -190.431901257202, -41.7484530178047, 1.8)
    pt3dadd(76.7076925453356, -191.410782264132, -41.7950219441889, 1.8)
    pt3dadd(76.9067485911311, -192.389663271062, -41.8415908705732, 1.8)
    pt3dadd(77.1058046369267, -193.368544277991, -41.8881597969575, 1.8)
    pt3dadd(77.3048606827223, -194.347425284921, -41.9347287233417, 1.8)
    pt3dadd(77.6679382059158, -195.197645655003, -42.2656056616935, 1.8)
    pt3dadd(78.0782877552906, -196.010785216584, -42.6784219655387, 1.8)
    pt3dadd(78.4886373046654, -196.823924778164, -43.0912382693839, 1.8)
    pt3dadd(78.8989868540402, -197.637064339745, -43.5040545732291, 1.8)
    pt3dadd(79.2168240745391, -198.441048321772, -43.9900067985766, 1.8)
    pt3dadd(79.425959237988, -199.234274490836, -44.5618937875189, 1.8)
    pt3dadd(79.6350944014369, -200.0275006599, -45.1337807764612, 1.8)
    pt3dadd(79.8442295648857, -200.820726828964, -45.7056677654035, 1.8)
    pt3dadd(80.0533647283346, -201.613952998028, -46.2775547543459, 1.8)
    pt3dadd(80.2624998917834, -202.407179167092, -46.8494417432882, 1.8)
    pt3dadd(80.5674490164059, -203.293447752405, -47.1648349681197, 1.8)
    pt3dadd(80.8976744747857, -204.204261520257, -47.412563502869, 1.8)
    pt3dadd(81.2278999331655, -205.115075288109, -47.6602920376184, 1.8)
    pt3dadd(81.5581253915454, -206.025889055962, -47.9080205723677, 1.8)
    pt3dadd(81.8883508499252, -206.936702823813, -48.1557491071171, 1.8)
    pt3dadd(82.218576308305, -207.847516591665, -48.4034776418664, 1.8)
    pt3dadd(82.5488017666849, -208.758330359517, -48.6512061766158, 1.8)
    pt3dadd(82.8790272250647, -209.669144127369, -48.8989347113651, 1.8)
    pt3dadd(83.2194520716606, -210.582063032796, -49.1207543994825, 1.8)
    pt3dadd(83.579315138742, -211.498993956144, -49.2931964325198, 1.8)
    pt3dadd(83.9391782058234, -212.415924879493, -49.465638465557, 1.8)
    pt3dadd(84.2990412729048, -213.332855802841, -49.6380804985943, 1.8)
    pt3dadd(84.6589043399863, -214.24978672619, -49.8105225316316, 1.8)
    pt3dadd(85.0187674070677, -215.166717649538, -49.9829645646688, 1.8)
    pt3dadd(85.3786304741491, -216.083648572887, -50.1554065977061, 1.8)
    pt3dadd(85.7969891800328, -216.982172582245, -50.2862570204222, 1.8)
    pt3dadd(86.2207683338704, -217.878990930782, -50.4132533924143, 1.8)
    pt3dadd(86.6445474877081, -218.77580927932, -50.5402497644065, 1.8)
    pt3dadd(87.0683266415458, -219.672627627857, -50.6672461363987, 1.8)
    pt3dadd(87.4921057953835, -220.569445976395, -50.7942425083909, 1.8)
    pt3dadd(87.9158849492211, -221.466264324932, -50.921238880383, 1.8)
    pt3dadd(88.3396641030588, -222.363082673469, -51.0482352523752, 1.8)
    pt3dadd(88.7666424034486, -223.253847386977, -51.2030755194621, 1.8)
    pt3dadd(89.1946022334564, -224.142754785734, -51.3664585673417, 1.8)
    pt3dadd(89.6225620634642, -225.031662184491, -51.5298416152212, 1.8)
    pt3dadd(90.050521893472, -225.920569583248, -51.6932246631008, 1.8)
    pt3dadd(90.4784817234798, -226.809476982006, -51.8566077109803, 1.8)
    pt3dadd(90.9064415534876, -227.698384380763, -52.0199907588598, 1.8)
    pt3dadd(91.3344013834955, -228.58729177952, -52.1833738067394, 1.8)
    pt3dadd(91.7623612135033, -229.476199178277, -52.3467568546189, 1.8)
    pt3dadd(92.2349053875192, -230.337696138583, -52.3356356936908, 1.8)
    pt3dadd(92.7536599328301, -231.170782979454, -52.1436460135334, 1.8)
    pt3dadd(93.272414478141, -232.003869820325, -51.951656333376, 1.8)
    pt3dadd(93.791169023452, -232.836956661196, -51.7596666532185, 1.8)
    pt3dadd(94.3099235687629, -233.670043502067, -51.5676769730611, 1.8)
  }
  adendOML[10] {pt3dclear()
    pt3dadd(94.3099235687629, -233.670043502067, -51.5676769730611, 1.8)
    pt3dadd(94.8286781140738, -234.503130342938, -51.3756872929037, 1.8)
    pt3dadd(95.3474326593847, -235.336217183809, -51.1836976127463, 1.8)
    pt3dadd(96.0146910467681, -236.022119094815, -51.0750953681259, 1.8)
    pt3dadd(96.8944620213281, -236.49739581389, -51.0858225591397, 1.8)
    pt3dadd(97.7742329958881, -236.972672532965, -51.0965497501535, 1.8)
    pt3dadd(98.6540039704481, -237.44794925204, -51.1072769411673, 1.8)
    pt3dadd(99.5337749450081, -237.923225971114, -51.1180041321811, 1.8)
    pt3dadd(100.413545919568, -238.398502690189, -51.1287313231949, 1.8)
    pt3dadd(101.293316894128, -238.873779409264, -51.1394585142087, 1.8)
    pt3dadd(102.173087868688, -239.349056128339, -51.1501857052225, 1.8)
    pt3dadd(102.970367069772, -239.947074155233, -51.1143877723765, 1.8)
    pt3dadd(103.748979332399, -240.57286712674, -51.0680617397307, 1.8)
    pt3dadd(104.527591595026, -241.198660098246, -51.0217357070849, 1.8)
    pt3dadd(105.306203857653, -241.824453069752, -50.9754096744392, 1.8)
    pt3dadd(106.084816120279, -242.450246041258, -50.9290836417934, 1.8)
    pt3dadd(106.863428382906, -243.076039012764, -50.8827576091476, 1.8)
    pt3dadd(107.715283259105, -243.542119670117, -50.7556527340973, 1.8)
    pt3dadd(108.647350415787, -243.833290007986, -50.5400822125041, 1.8)
    pt3dadd(109.579417572469, -244.124460345855, -50.3245116909109, 1.8)
    pt3dadd(110.511484729151, -244.415630683723, -50.1089411693177, 1.8)
    pt3dadd(111.443551885833, -244.706801021592, -49.8933706477246, 1.8)
    pt3dadd(112.344680613338, -244.993182891812, -50.1968255100619, 1.8)
    pt3dadd(113.244222458447, -245.27931915373, -50.5269020292397, 1.8)
    pt3dadd(114.143764303557, -245.565455415649, -50.8569785484175, 1.8)
    pt3dadd(115.003403523066, -245.909138534867, -50.9244559997271, 1.8)
    pt3dadd(115.788302235401, -246.360611084884, -50.5000663816224, 1.8)
    pt3dadd(116.573200947737, -246.812083634901, -50.0756767635177, 1.8)
    pt3dadd(117.153895739687, -247.393175979838, -49.5689469951983, 1.8)
    pt3dadd(117.520784102897, -248.109983375659, -48.9760051040845, 1.8)
    pt3dadd(117.887672466107, -248.82679077148, -48.3830632129707, 1.8)
    pt3dadd(118.254560829317, -249.543598167301, -47.7901213218569, 1.8)
    pt3dadd(118.510099837575, -250.172085452633, -47.0562142866198, 1.8)
    pt3dadd(118.762626541085, -250.798183437298, -46.3184937584975, 1.8)
    pt3dadd(119.015153244595, -251.424281421963, -45.5807732303753, 1.8)
    pt3dadd(119.267679948105, -252.050379406628, -44.843052702253, 1.8)
    pt3dadd(119.419305983467, -252.542695181997, -44.0345901060571, 1.8)
    pt3dadd(119.323818571769, -252.707368103247, -43.0528747790839, 1.8)
  }
  GCL[9] {pt3dclear()
    pt3dadd(1.03012005020003, 27.7203066549798, 0.667863543469309, 2.16913251214951)
    pt3dadd(0.701702607997766, 26.8245588075347, 1.02023662223632, 2.16913251214951)
    pt3dadd(0.42368016359395, 25.928111025059, 1.36532341378604, 2.09960605871335)
    pt3dadd(0.145657719190136, 25.0316632425833, 1.71041020533576, 2.0300796052772)
    pt3dadd(-0.13236472521368, 24.1352154601075, 2.05549699688548, 1.96055315184105)
    pt3dadd(-0.410387169617495, 23.2387676776318, 2.40058378843519, 1.89102669840489)
    pt3dadd(-0.688409614021311, 22.3423198951561, 2.74567057998491, 1.82150024496874)
    pt3dadd(-0.958487380749329, 21.4139317511983, 2.99106696682515, 1.8)
    pt3dadd(-1.22500849535597, 20.4712446313654, 3.19183421905983, 1.8)
    pt3dadd(-1.49152960996261, 19.5285575115324, 3.39260147129451, 1.8)
    pt3dadd(-1.75805072456925, 18.5858703916994, 3.59336872352919, 1.8)
    pt3dadd(-2.02457183917589, 17.6431832718665, 3.79413597576387, 1.8)
    pt3dadd(-2.29109295378253, 16.7004961520335, 3.99490322799855, 1.8)
    pt3dadd(-2.55809506610877, 15.7574126026805, 4.19194985390496, 1.8)
    pt3dadd(-2.84118222511689, 14.8010720521468, 4.26457499975406, 1.8)
    pt3dadd(-3.12426938412501, 13.8447315016131, 4.33720014560316, 1.8)
    pt3dadd(-3.40735654313312, 12.8883909510794, 4.40982529145225, 1.8)
    pt3dadd(-3.69044370214125, 11.9320504005456, 4.48245043730136, 1.8)
    pt3dadd(-3.97353086114936, 10.9757098500119, 4.55507558315045, 1.8)
    pt3dadd(-4.25847376384113, 10.0200502228881, 4.62917607658248, 1.8)
    pt3dadd(-4.55297468945811, 9.06789769732107, 4.71087535973132, 1.8)
    pt3dadd(-4.8474756150751, 8.11574517175403, 4.79257464288015, 1.8)
    pt3dadd(-5.14197654069209, 7.16359264618697, 4.87427392602899, 1.8)
    pt3dadd(-5.43647746630907, 6.21144012061993, 4.95597320917782, 1.8)
    pt3dadd(-5.73097839192606, 5.25928759505288, 5.03767249232665, 1.8)
    pt3dadd(-6.02547931754305, 4.30713506948584, 5.11937177547549, 1.8)
    pt3dadd(-6.31998024316004, 3.35498254391879, 5.20107105862432, 1.8)
    pt3dadd(-6.61448116877702, 2.40283001835175, 5.28277034177316, 1.8)
    pt3dadd(-6.90898209439401, 1.45067749278469, 5.36446962492199, 1.8)
    pt3dadd(-7.17627908648645, 0.494512952587697, 5.47107643084385, 1.8)
  }
  adendIML[10] {pt3dclear()
    pt3dadd(-7.17627908648645, 0.494512952587697, 5.47107643084385, 1.8)
  }
}
proc shape3d_12() {
  adendIML[10] {
    pt3dadd(-7.38553961481163, -0.47021075944727, 5.63082057227805, 1.8)
    pt3dadd(-7.59480014313682, -1.43493447148222, 5.79056471371225, 1.8)
    pt3dadd(-7.804060671462, -2.39965818351719, 5.95030885514644, 1.8)
    pt3dadd(-8.01332119978718, -3.36438189555214, 6.11005299658064, 1.8)
    pt3dadd(-8.22258172811237, -4.32910560758711, 6.26979713801483, 1.8)
    pt3dadd(-8.43184225643755, -5.29382931962206, 6.42954127944903, 1.8)
    pt3dadd(-8.64110278476273, -6.25855303165705, 6.58928542088322, 1.8)
    pt3dadd(-8.85036331308791, -7.223276743692, 6.74902956231742, 1.8)
    pt3dadd(-9.0596238414131, -8.18800045572696, 6.90877370375161, 1.8)
    pt3dadd(-9.22229920589227, -9.16357452283667, 7.05222704903677, 1.8)
    pt3dadd(-9.36284138709564, -10.1443037268537, 7.18794043706714, 1.8)
    pt3dadd(-9.50338356829901, -11.1250329308708, 7.32365382509751, 1.8)
    pt3dadd(-9.64392574950237, -12.1057621348878, 7.45936721312788, 1.8)
    pt3dadd(-9.78446793070574, -13.0864913389049, 7.59508060115825, 1.8)
    pt3dadd(-9.9250101119091, -14.0672205429219, 7.73079398918861, 1.8)
    pt3dadd(-10.0655522931125, -15.047949746939, 7.86650737721898, 1.8)
    pt3dadd(-10.2060944743158, -16.028678950956, 8.00222076524935, 1.8)
    pt3dadd(-10.3466366555192, -17.0094081549731, 8.13793415327972, 1.8)
    pt3dadd(-10.4871788367226, -17.9901373589901, 8.27364754131009, 1.8)
    pt3dadd(-10.6277210179259, -18.9708665630072, 8.40936092934046, 1.8)
    pt3dadd(-10.7178714653198, -19.9600377570628, 8.48204766155019, 1.8)
    pt3dadd(-10.7457886019835, -20.9596347283152, 8.4768970748297, 1.8)
    pt3dadd(-10.7737057386472, -21.9592316995676, 8.47174648810921, 1.8)
    pt3dadd(-10.8016228753108, -22.95882867082, 8.46659590138872, 1.8)
    pt3dadd(-10.8295400119745, -23.9584256420724, 8.46144531466823, 1.8)
    pt3dadd(-10.8574571486381, -24.9580226133247, 8.45629472794774, 1.8)
    pt3dadd(-10.931691723651, -25.9527722404963, 8.49541189391324, 1.8)
    pt3dadd(-11.044433191454, -26.9434919349795, 8.57133190708914, 1.8)
    pt3dadd(-11.1571746592571, -27.9342116294628, 8.64725192026503, 1.8)
    pt3dadd(-11.2699161270601, -28.924931323946, 8.72317193344092, 1.8)
    pt3dadd(-11.3826575948632, -29.9156510184293, 8.79909194661682, 1.8)
    pt3dadd(-11.4953990626662, -30.9063707129125, 8.87501195979271, 1.8)
    pt3dadd(-11.6081405304692, -31.8970904073958, 8.9509319729686, 1.8)
    pt3dadd(-11.7208819982723, -32.887810101879, 9.0268519861445, 1.8)
    pt3dadd(-11.8336234660753, -33.8785297963623, 9.10277199932039, 1.8)
    pt3dadd(-11.9213857436717, -34.8674612288552, 9.10582272016293, 1.8)
    pt3dadd(-11.9489704428809, -35.8520845442632, 8.93332341255694, 1.8)
    pt3dadd(-11.9765551420901, -36.8367078596712, 8.76082410495096, 1.8)
    pt3dadd(-12.0041398412994, -37.8213311750791, 8.58832479734498, 1.8)
    pt3dadd(-12.0317245405086, -38.8059544904871, 8.415825489739, 1.8)
    pt3dadd(-12.0593092397178, -39.7905778058951, 8.24332618213302, 1.8)
    pt3dadd(-12.0868939389271, -40.7752011213031, 8.07082687452704, 1.8)
    pt3dadd(-12.1144786381363, -41.759824436711, 7.89832756692106, 1.8)
    pt3dadd(-12.1420633373455, -42.744447752119, 7.72582825931508, 1.8)
    pt3dadd(-12.1696480365548, -43.729071067527, 7.5533289517091, 1.8)
    pt3dadd(-12.197232735764, -44.713694382935, 7.38082964410312, 1.8)
    pt3dadd(-12.2248174349732, -45.6983176983429, 7.20833033649714, 1.8)
    pt3dadd(-12.2947123557171, -46.6705335408447, 7.13850616088767, 1.8)
    pt3dadd(-12.5172121723622, -47.5979979960319, 7.43901159504328, 1.8)
    pt3dadd(-12.7397119890073, -48.5254624512192, 7.7395170291989, 1.8)
    pt3dadd(-12.9622118056525, -49.4529269064065, 8.04002246335451, 1.8)
    pt3dadd(-13.1847116222976, -50.3803913615938, 8.34052789751013, 1.8)
    pt3dadd(-13.4072114389427, -51.307855816781, 8.64103333166574, 1.8)
    pt3dadd(-13.6297112555879, -52.2353202719683, 8.94153876582136, 1.8)
    pt3dadd(-13.852211072233, -53.1627847271556, 9.24204419997697, 1.8)
    pt3dadd(-14.0747108888781, -54.0902491823429, 9.54254963413259, 1.8)
    pt3dadd(-14.2972107055233, -55.0177136375301, 9.84305506828821, 1.8)
    pt3dadd(-14.5197105221684, -55.9451780927174, 10.1435605024438, 1.8)
    pt3dadd(-14.7422103388135, -56.8726425479047, 10.4440659365994, 1.8)
    pt3dadd(-14.8987078977539, -57.8321156462126, 10.6411187258919, 1.8)
    pt3dadd(-14.989175355219, -58.8236108908355, 10.7346752276972, 1.8)
    pt3dadd(-15.0796428126841, -59.8151061354583, 10.8282317295026, 1.8)
    pt3dadd(-15.1701102701492, -60.8066013800812, 10.921788231308, 1.8)
    pt3dadd(-15.2605777276142, -61.798096624704, 11.0153447331133, 1.8)
    pt3dadd(-15.3510451850793, -62.7895918693269, 11.1089012349187, 1.8)
    pt3dadd(-15.4415126425444, -63.7810871139497, 11.2024577367241, 1.8)
    pt3dadd(-15.5319801000095, -64.7725823585726, 11.2960142385294, 1.8)
    pt3dadd(-15.6224475574745, -65.7640776031955, 11.3895707403348, 1.8)
    pt3dadd(-15.7129150149396, -66.7555728478183, 11.4831272421402, 1.8)
    pt3dadd(-15.8033824724047, -67.7470680924412, 11.5766837439456, 1.8)
    pt3dadd(-15.8938499298698, -68.7385633370641, 11.6702402457509, 1.8)
    pt3dadd(-15.9843173873348, -69.7300585816869, 11.7637967475563, 1.8)
    pt3dadd(-16.0747848447999, -70.7215538263098, 11.8573532493617, 1.8)
    pt3dadd(-16.165252302265, -71.7130490709326, 11.950909751167, 1.8)
    pt3dadd(-16.2557197597301, -72.7045443155555, 12.0444662529724, 1.8)
    pt3dadd(-16.3461872171952, -73.6960395601783, 12.1380227547778, 1.8)
    pt3dadd(-16.413664658693, -74.6921625373516, 12.1925659448103, 1.8)
    pt3dadd(-16.4788025981962, -75.6887564402322, 12.2431390758035, 1.8)
    pt3dadd(-16.5439405376995, -76.6853503431128, 12.2937122067966, 1.8)
    pt3dadd(-16.6090784772028, -77.6819442459934, 12.3442853377898, 1.8)
    pt3dadd(-16.6742164167061, -78.6785381488741, 12.394858468783, 1.8)
    pt3dadd(-16.7393543562093, -79.6751320517546, 12.4454315997762, 1.8)
    pt3dadd(-16.8044922957126, -80.6717259546353, 12.4960047307693, 1.8)
    pt3dadd(-16.8696302352159, -81.6683198575159, 12.5465778617625, 1.8)
    pt3dadd(-16.9347681747192, -82.6649137603965, 12.5971509927557, 1.8)
    pt3dadd(-16.9999061142224, -83.6615076632771, 12.6477241237488, 1.8)
    pt3dadd(-17.0650440537257, -84.6581015661577, 12.698297254742, 1.8)
    pt3dadd(-17.130181993229, -85.6546954690384, 12.7488703857352, 1.8)
    pt3dadd(-17.1861294930341, -86.6499643463441, 12.7472865926542, 1.8)
    pt3dadd(-17.2214231929486, -87.6422554756886, 12.6284898360887, 1.8)
    pt3dadd(-17.256716892863, -88.6345466050332, 12.5096930795232, 1.8)
    pt3dadd(-17.2920105927774, -89.6268377343777, 12.3908963229577, 1.8)
    pt3dadd(-17.3273042926918, -90.6191288637223, 12.2720995663922, 1.8)
    pt3dadd(-17.3625979926062, -91.6114199930668, 12.1533028098267, 1.8)
    pt3dadd(-17.3978916925206, -92.6037111224113, 12.0345060532612, 1.8)
    pt3dadd(-17.433185392435, -93.5960022517559, 11.9157092966958, 1.8)
    pt3dadd(-17.4684790923495, -94.5882933811004, 11.7969125401303, 1.8)
    pt3dadd(-17.5037727922639, -95.580584510445, 11.6781157835648, 1.8)
    pt3dadd(-17.5390664921783, -96.5728756397895, 11.5593190269993, 1.8)
    pt3dadd(-17.560258770155, -97.5704249391143, 11.5359771540956, 1.8)
    pt3dadd(-17.5755595228807, -98.5701710836473, 11.5525160010161, 1.8)
    pt3dadd(-17.5908602756065, -99.5699172281803, 11.5690548479365, 1.8)
    pt3dadd(-17.6061610283322, -100.569663372713, 11.5855936948569, 1.8)
    pt3dadd(-17.621461781058, -101.569409517246, 11.6021325417774, 1.8)
    pt3dadd(-17.6367625337837, -102.569155661779, 11.6186713886978, 1.8)
    pt3dadd(-17.6520632865095, -103.568901806312, 11.6352102356182, 1.8)
    pt3dadd(-17.6673640392353, -104.568647950845, 11.6517490825387, 1.8)
    pt3dadd(-17.682664791961, -105.568394095378, 11.6682879294591, 1.8)
    pt3dadd(-17.6979655446868, -106.568140239911, 11.6848267763795, 1.8)
    pt3dadd(-17.9256743175716, -107.527107389776, 11.8349646696253, 1.8)
    pt3dadd(-18.1730675414086, -108.482295435067, 11.9974835637046, 1.8)
    pt3dadd(-18.4204607652456, -109.437483480358, 12.1600024577838, 1.8)
    pt3dadd(-18.6678539890825, -110.392671525649, 12.3225213518631, 1.8)
    pt3dadd(-18.9152472129195, -111.34785957094, 12.4850402459424, 1.8)
    pt3dadd(-19.1626404367565, -112.303047616231, 12.6475591400217, 1.8)
    pt3dadd(-19.4232763095681, -113.256004109594, 12.7057920856261, 1.8)
    pt3dadd(-19.7085288979775, -114.204812378593, 12.5701682326889, 1.8)
    pt3dadd(-19.9937814863868, -115.153620647592, 12.4345443797517, 1.8)
    pt3dadd(-20.2790340747962, -116.10242891659, 12.2989205268144, 1.8)
  }
  adendMML[15] {pt3dclear()
    pt3dadd(-20.2790340747962, -116.10242891659, 12.2989205268144, 1.8)
    pt3dadd(-20.5642866632055, -117.051237185589, 12.1632966738772, 1.8)
    pt3dadd(-20.8495392516149, -118.000045454588, 12.02767282094, 1.8)
    pt3dadd(-21.1347918400243, -118.948853723586, 11.8920489680027, 1.8)
    pt3dadd(-21.4200444284336, -119.897661992585, 11.7564251150655, 1.8)
    pt3dadd(-21.7096976822012, -120.843120474376, 11.6101153905179, 1.8)
    pt3dadd(-22.0237508054773, -121.77000577141, 11.4045569270507, 1.8)
    pt3dadd(-22.3378039287534, -122.696891068443, 11.1989984635835, 1.8)
    pt3dadd(-22.6518570520296, -123.623776365477, 10.9934400001163, 1.8)
    pt3dadd(-22.9659101753057, -124.550661662511, 10.7878815366491, 1.8)
    pt3dadd(-23.2799632985819, -125.477546959545, 10.5823230731819, 1.8)
    pt3dadd(-23.594016421858, -126.404432256579, 10.3767646097147, 1.8)
    pt3dadd(-23.9080695451341, -127.331317553613, 10.1712061462475, 1.8)
    pt3dadd(-24.2221226684103, -128.258202850646, 9.96564768278033, 1.8)
    pt3dadd(-24.5361757916864, -129.18508814768, 9.76008921931314, 1.8)
    pt3dadd(-24.8384001950911, -130.125430896166, 9.66729597355258, 1.8)
    pt3dadd(-25.1262841292349, -131.082088695727, 9.71121288373363, 1.8)
    pt3dadd(-25.4141680633787, -132.038746495289, 9.75512979391468, 1.8)
    pt3dadd(-25.7020519975225, -132.99540429485, 9.79904670409574, 1.8)
    pt3dadd(-25.9899359316663, -133.952062094412, 9.84296361427679, 1.8)
    pt3dadd(-26.2778198658102, -134.908719893974, 9.88688052445784, 1.8)
    pt3dadd(-26.565703799954, -135.865377693535, 9.93079743463889, 1.8)
    pt3dadd(-26.8535877340978, -136.822035493097, 9.97471434481995, 1.8)
    pt3dadd(-27.0490419591296, -137.795868325558, 9.93364951718778, 1.8)
    pt3dadd(-27.1768092862417, -138.782278550177, 9.83035199113366, 1.8)
    pt3dadd(-27.3045766133538, -139.768688774796, 9.72705446507953, 1.8)
    pt3dadd(-27.432343940466, -140.755098999416, 9.62375693902541, 1.8)
    pt3dadd(-27.5601112675781, -141.741509224035, 9.52045941297128, 1.8)
    pt3dadd(-27.6878785946902, -142.727919448655, 9.41716188691715, 1.8)
    pt3dadd(-27.8630647365914, -143.700261399316, 9.50964364561004, 1.8)
    pt3dadd(-28.0560527909975, -144.667321856056, 9.67562462002276, 1.8)
    pt3dadd(-28.2490408454037, -145.634382312796, 9.84160559443548, 1.8)
    pt3dadd(-28.4420288998098, -146.601442769535, 10.0075865688482, 1.8)
  }
  adendMML[16] {pt3dclear()
    pt3dadd(-28.4420288998098, -146.601442769535, 10.0075865688482, 1.8)
    pt3dadd(-28.664035478035, -147.562415546878, 10.1713210260943, 1.8)
    pt3dadd(-28.9003326486887, -148.520390358313, 10.3339491534178, 1.8)
    pt3dadd(-29.1366298193425, -149.478365169748, 10.4965772807413, 1.8)
    pt3dadd(-29.3729269899962, -150.436339981184, 10.6592054080648, 1.8)
    pt3dadd(-29.6092241606499, -151.394314792619, 10.8218335353883, 1.8)
    pt3dadd(-29.8455213313036, -152.352289604054, 10.9844616627118, 1.8)
    pt3dadd(-30.0818185019574, -153.310264415489, 11.1470897900353, 1.8)
    pt3dadd(-30.3181156726111, -154.268239226924, 11.3097179173588, 1.8)
    pt3dadd(-30.568796475177, -155.200778019892, 11.5615369054559, 1.8)
    pt3dadd(-30.8262009336663, -156.121426697952, 11.8550483299978, 1.8)
    pt3dadd(-31.0836053921555, -157.042075376012, 12.1485597545396, 1.8)
    pt3dadd(-31.3410098506448, -157.962724054072, 12.4420711790815, 1.8)
    pt3dadd(-31.598414309134, -158.883372732131, 12.7355826036234, 1.8)
    pt3dadd(-31.8558187676232, -159.804021410191, 13.0290940281653, 1.8)
    pt3dadd(-31.9438765189293, -160.788695884263, 12.9699303821746, 1.8)
    pt3dadd(-32.0112863821417, -161.781176813466, 12.8677662225577, 1.8)
    pt3dadd(-32.078696245354, -162.773657742669, 12.7656020629408, 1.8)
    pt3dadd(-32.1461061085664, -163.766138671872, 12.6634379033239, 1.8)
    pt3dadd(-32.2135159717787, -164.758619601075, 12.561273743707, 1.8)
    pt3dadd(-32.2809258349911, -165.751100530278, 12.4591095840901, 1.8)
    pt3dadd(-32.501605781921, -166.663382788415, 12.7639091719665, 1.8)
    pt3dadd(-32.7427736669805, -167.564944719589, 13.1231084696717, 1.8)
    pt3dadd(-32.98394155204, -168.466506650764, 13.482307767377, 1.8)
    pt3dadd(-33.2251094370995, -169.36806858194, 13.8415070650822, 1.8)
    pt3dadd(-33.466277322159, -170.269630513114, 14.2007063627875, 1.8)
    pt3dadd(-33.7074452072186, -171.171192444289, 14.5599056604927, 1.8)
    pt3dadd(-33.9486130922781, -172.072754375464, 14.9191049581979, 1.8)
    pt3dadd(-34.1897809773376, -172.974316306639, 15.2783042559032, 1.8)
    pt3dadd(-34.4735309843275, -173.90609388933, 15.4907288784621, 1.8)
    pt3dadd(-34.7680756488317, -174.845531203262, 15.6659458120159, 1.8)
    pt3dadd(-35.0626203133359, -175.784968517195, 15.8411627455696, 1.8)
    pt3dadd(-35.3571649778401, -176.724405831127, 16.0163796791234, 1.8)
    pt3dadd(-35.6517096423443, -177.663843145059, 16.1915966126771, 1.8)
    pt3dadd(-35.9462543068485, -178.603280458991, 16.3668135462309, 1.8)
    pt3dadd(-36.2407989713527, -179.542717772923, 16.5420304797846, 1.8)
    pt3dadd(-36.5307517311737, -180.484780137403, 16.7059126511657, 1.8)
    pt3dadd(-36.7740810652429, -181.453495679099, 16.7547084958436, 1.8)
    pt3dadd(-37.0174103993122, -182.422211220795, 16.8035043405215, 1.8)
    pt3dadd(-37.2607397333814, -183.390926762491, 16.8523001851994, 1.8)
    pt3dadd(-37.5040690674507, -184.359642304187, 16.9010960298773, 1.8)
    pt3dadd(-37.7473984015199, -185.328357845883, 16.9498918745552, 1.8)
    pt3dadd(-37.9907277355892, -186.297073387579, 16.9986877192332, 1.8)
    pt3dadd(-38.0686593553614, -187.277541078606, 17.1558610198164, 1.8)
    pt3dadd(-38.1132657600878, -188.26037665546, 17.3348707891776, 1.8)
    pt3dadd(-38.1578721648141, -189.243212232314, 17.5138805585387, 1.8)
    pt3dadd(-38.2024785695404, -190.226047809169, 17.6928903278999, 1.8)
    pt3dadd(-38.3885693470149, -191.017394775643, 18.2639343837806, 1.8)
    pt3dadd(-38.5834358803304, -191.796864407126, 18.859294886156, 1.8)
    pt3dadd(-38.7783024136459, -192.576334038609, 19.4546553885314, 1.8)
    pt3dadd(-38.9731689469613, -193.355803670093, 20.0500158909069, 1.8)
    pt3dadd(-39.1680354802768, -194.135273301576, 20.6453763932823, 1.8)
    pt3dadd(-39.3629020135922, -194.914742933059, 21.2407368956577, 1.8)
    pt3dadd(-39.5577685469077, -195.694212564543, 21.8360973980332, 1.8)
    pt3dadd(-39.7285347536778, -196.476215147654, 22.3967486763485, 1.8)
    pt3dadd(-39.294348951704, -197.321798370329, 22.0861497341477, 1.8)
    pt3dadd(-38.8601631497302, -198.167381593003, 21.7755507919469, 1.8)
    pt3dadd(-38.4259773477564, -199.012964815677, 21.4649518497461, 1.8)
    pt3dadd(-37.9917915457826, -199.858548038351, 21.1543529075453, 1.8)
    pt3dadd(-37.9519557840711, -200.848380804813, 21.0894067327354, 1.8)
    pt3dadd(-37.9361580883484, -201.847006470218, 21.0394346084644, 1.8)
    pt3dadd(-37.9203603926257, -202.845632135623, 20.9894624841933, 1.8)
    pt3dadd(-37.904562696903, -203.844257801028, 20.9394903599223, 1.8)
    pt3dadd(-37.9869697254635, -204.83254721155, 20.9994570844246, 1.8)
    pt3dadd(-38.1273758065959, -205.814732099151, 21.1243529568496, 1.8)
    pt3dadd(-38.2677818877283, -206.796916986753, 21.2492488292746, 1.8)
    pt3dadd(-38.4081879688607, -207.779101874354, 21.3741447016996, 1.8)
    pt3dadd(-38.5485940499931, -208.761286761955, 21.4990405741246, 1.8)
    pt3dadd(-38.5471022122615, -209.734976773657, 21.723319719432, 1.8)
    pt3dadd(-38.5379485812888, -210.708208103629, 21.9529650751428, 1.8)
    pt3dadd(-38.5287949503162, -211.681439433602, 22.1826104308536, 1.8)
    pt3dadd(-38.5196413193436, -212.654670763575, 22.4122557865644, 1.8)
    pt3dadd(-38.510487688371, -213.627902093548, 22.6419011422752, 1.8)
    pt3dadd(-38.4682758034555, -214.606115703311, 22.827108769937, 1.8)
    pt3dadd(-38.3510781710571, -215.595630574628, 22.9115186888044, 1.8)
    pt3dadd(-38.2338805386587, -216.585145445945, 22.9959286076718, 1.8)
    pt3dadd(-38.1166829062604, -217.574660317262, 23.0803385265391, 1.8)
    pt3dadd(-37.999485273862, -218.564175188578, 23.1647484454065, 1.8)
    pt3dadd(-37.8822876414636, -219.553690059895, 23.2491583642738, 1.8)
    pt3dadd(-37.7650900090653, -220.543204931212, 23.3335682831412, 1.8)
    pt3dadd(-37.6478923766669, -221.532719802529, 23.4179782020086, 1.8)
    pt3dadd(-37.5306947442685, -222.522234673845, 23.5023881208759, 1.8)
    pt3dadd(-37.3774144231546, -223.507816060424, 23.5698476674458, 1.8)
    pt3dadd(-37.2110100103047, -224.491966749447, 23.6311419794141, 1.8)
    pt3dadd(-37.0446055974549, -225.47611743847, 23.6924362913823, 1.8)
    pt3dadd(-36.8782011846051, -226.460268127493, 23.7537306033506, 1.8)
    pt3dadd(-36.7117967717552, -227.444418816516, 23.8150249153188, 1.8)
    pt3dadd(-36.5453923589054, -228.428569505539, 23.8763192272871, 1.8)
    pt3dadd(-36.3789879460556, -229.412720194562, 23.9376135392553, 1.8)
    pt3dadd(-36.2125835332058, -230.396870883585, 23.9989078512236, 1.8)
    pt3dadd(-36.1661660597199, -231.318953890372, 24.2452331777838, 1.8)
    pt3dadd(-36.3184830693025, -232.138234135376, 24.7980255517702, 1.8)
    pt3dadd(-36.4708000788851, -232.95751438038, 25.3508179257566, 1.8)
    pt3dadd(-36.6231170884677, -233.776794625385, 25.903610299743, 1.8)
  }
  adendOML[11] {pt3dclear()
    pt3dadd(-36.6231170884677, -233.776794625385, 25.903610299743, 1.8)
    pt3dadd(-36.7754340980503, -234.596074870389, 26.4564026737294, 1.8)
    pt3dadd(-36.9277511076329, -235.415355115393, 27.0091950477158, 1.8)
  }
}
proc shape3d_13() {
  adendOML[11] {
    pt3dadd(-36.9198023344656, -236.312538657344, 27.3070704905096, 1.8)
    pt3dadd(-36.7357958345423, -237.295301772998, 27.3249105155912, 1.8)
    pt3dadd(-36.5517893346191, -238.278064888653, 27.3427505406727, 1.8)
    pt3dadd(-36.3677828346958, -239.260828004307, 27.3605905657542, 1.8)
    pt3dadd(-36.1837763347725, -240.243591119962, 27.3784305908357, 1.8)
    pt3dadd(-36.2442336700741, -241.142262816596, 27.8028104495485, 1.8)
    pt3dadd(-36.3137865229825, -242.037805809217, 28.2423160229145, 1.8)
    pt3dadd(-36.3833393758908, -242.933348801838, 28.6818215962805, 1.8)
    pt3dadd(-36.4528922287992, -243.828891794459, 29.1213271696464, 1.8)
    pt3dadd(-36.5224450817075, -244.72443478708, 29.5608327430124, 1.8)
    pt3dadd(-36.5368851709574, -245.671179968707, 29.8799684123505, 1.8)
    pt3dadd(-36.5469008391821, -246.622035632671, 30.1894408548999, 1.8)
    pt3dadd(-36.5569165074067, -247.572891296635, 30.4989132974492, 1.8)
    pt3dadd(-36.5669321756314, -248.523746960599, 30.8083857399985, 1.8)
    pt3dadd(-36.576947843856, -249.474602624563, 31.1178581825479, 1.8)
    pt3dadd(-36.5869635120807, -250.425458288527, 31.4273306250973, 1.8)
    pt3dadd(-36.5969791803053, -251.376313952491, 31.7368030676466, 1.8)
    pt3dadd(-36.6220413993672, -252.314087777461, 32.0815569820698, 1.8)
    pt3dadd(-36.657152974919, -253.24312444632, 32.4498748409602, 1.8)
    pt3dadd(-36.6922645504708, -254.172161115179, 32.8181926998506, 1.8)
    pt3dadd(-36.7273761260226, -255.101197784038, 33.186510558741, 1.8)
    pt3dadd(-36.7624877015744, -256.030234452897, 33.5548284176314, 1.8)
    pt3dadd(-36.7975992771262, -256.959271121756, 33.9231462765218, 1.8)
    pt3dadd(-36.8327108526781, -257.888307790615, 34.2914641354122, 1.8)
    pt3dadd(-36.8681185468444, -258.819445093525, 34.6477278193171, 1.8)
    pt3dadd(-36.9130259437618, -259.817972280391, 34.6172847118864, 1.8)
    pt3dadd(-36.9579333406793, -260.816499467258, 34.5868416044558, 1.8)
    pt3dadd(-37.0028407375968, -261.815026654125, 34.5563984970251, 1.8)
    pt3dadd(-37.0477481345142, -262.813553840992, 34.5259553895944, 1.8)
    pt3dadd(-37.0926555314317, -263.812081027859, 34.4955122821637, 1.8)
    pt3dadd(-37.1375629283491, -264.810608214725, 34.4650691747331, 1.8)
    pt3dadd(-37.2170809812701, -265.799084318714, 34.5537872500727, 1.8)
    pt3dadd(-37.316074619137, -266.781904629344, 34.7095579041632, 1.8)
    pt3dadd(-37.4150682570038, -267.764724939973, 34.8653285582537, 1.8)
    pt3dadd(-37.5140618948707, -268.747545250603, 35.0210992123441, 1.8)
    pt3dadd(-37.6130555327375, -269.730365561233, 35.1768698664346, 1.8)
    pt3dadd(-37.7120491706044, -270.713185871862, 35.3326405205251, 1.8)
    pt3dadd(-37.8110428084713, -271.696006182492, 35.4884111746156, 1.8)
    pt3dadd(-37.9100364463381, -272.678826493122, 35.6441818287061, 1.8)
    pt3dadd(-38.009030084205, -273.661646803751, 35.7999524827966, 1.8)
    pt3dadd(-38.2215052337133, -274.612666174718, 36.0154335068569, 1.8)
    pt3dadd(-38.4598849054368, -275.55642631785, 36.2445446683994, 1.8)
    pt3dadd(-38.6982645771603, -276.500186460983, 36.4736558299418, 1.8)
    pt3dadd(-38.9366442488838, -277.443946604116, 36.7027669914843, 1.8)
    pt3dadd(-39.1750239206073, -278.387706747248, 36.9318781530268, 1.8)
    pt3dadd(-39.4134035923308, -279.331466890381, 37.1609893145693, 1.8)
    pt3dadd(-39.5203200523888, -280.295168629105, 37.1975370990501, 1.8)
    pt3dadd(-39.4867679030195, -281.280177988167, 37.0283306694068, 1.8)
    pt3dadd(-39.4532157536502, -282.26518734723, 36.8591242397636, 1.8)
    pt3dadd(-39.4196636042809, -283.250196706292, 36.6899178101203, 1.8)
    pt3dadd(-39.3861114549117, -284.235206065354, 36.5207113804771, 1.8)
    pt3dadd(-39.3525593055424, -285.220215424416, 36.3515049508339, 1.8)
    pt3dadd(-39.3237029016639, -286.205280533881, 36.1856936088753, 1.8)
    pt3dadd(-39.4795225068022, -287.19253821574, 36.1534055264535, 1.8)
    pt3dadd(-39.6353421119405, -288.179795897598, 36.1211174440317, 1.8)
    pt3dadd(-39.7911617170788, -289.167053579456, 36.0888293616099, 1.8)
    pt3dadd(-39.946981322217, -290.154311261314, 36.0565412791881, 1.8)
    pt3dadd(-40.1028009273553, -291.141568943172, 36.0242531967662, 1.8)
    pt3dadd(-40.2586205324937, -292.128826625031, 35.9919651143444, 1.8)
    pt3dadd(-40.5401014459762, -293.057382070914, 35.7573166068234, 1.8)
    pt3dadd(-40.8288760239254, -293.982530307225, 35.5109226458972, 1.8)
    pt3dadd(-41.1176506018746, -294.907678543536, 35.264528684971, 1.8)
    pt3dadd(-41.6000142840234, -295.701488078206, 35.3890407096767, 1.8)
    pt3dadd(-42.2048835468604, -296.412184857238, 35.7482666318323, 1.8)
    pt3dadd(-42.8097528096974, -297.12288163627, 36.1074925539878, 1.8)
    pt3dadd(-43.2540677547704, -297.945121690768, 35.9775313625897, 1.8)
    pt3dadd(-43.6349673428201, -298.811418839064, 35.654352225457, 1.8)
    pt3dadd(-44.0158669308699, -299.67771598736, 35.3311730883244, 1.8)
    pt3dadd(-44.4091468420537, -300.539713082544, 35.0147571184577, 1.8)
    pt3dadd(-44.9261059257484, -301.358752735909, 34.7659050499489, 1.8)
    pt3dadd(-45.4430650094431, -302.177792389274, 34.5170529814401, 1.8)
  }
  adendMML[17] {pt3dclear()
    pt3dadd(-28.4420288998098, -146.601442769535, 10.0075865688482, 1.8)
    pt3dadd(-28.4757372590269, -147.584626872907, 10.1462334504693, 1.8)
    pt3dadd(-28.431006024959, -148.575751299636, 10.2714192621227, 1.8)
    pt3dadd(-28.3862747908912, -149.566875726366, 10.396605073776, 1.8)
    pt3dadd(-28.3415435568233, -150.558000153095, 10.5217908854294, 1.8)
    pt3dadd(-28.2968123227554, -151.549124579824, 10.6469766970827, 1.8)
    pt3dadd(-28.2520810886875, -152.540249006553, 10.7721625087361, 1.8)
    pt3dadd(-28.1526934737415, -153.48408675354, 10.5907596559349, 1.8)
    pt3dadd(-28.0167367398393, -154.396286250998, 10.2042265482409, 1.8)
    pt3dadd(-27.8807800059371, -155.308485748457, 9.81769344054694, 1.8)
    pt3dadd(-27.7448232720349, -156.220685245915, 9.43116033285295, 1.8)
    pt3dadd(-27.6088665381327, -157.132884743373, 9.04462722515897, 1.8)
    pt3dadd(-27.4729098042306, -158.045084240831, 8.65809411746498, 1.8)
    pt3dadd(-27.3369530703284, -158.95728373829, 8.27156100977099, 1.8)
    pt3dadd(-27.2009963364262, -159.869483235748, 7.88502790207701, 1.8)
    pt3dadd(-27.3834901033771, -160.819985871629, 8.0565713957389, 1.8)
    pt3dadd(-27.591972876543, -161.773614458011, 8.27365997795359, 1.8)
    pt3dadd(-27.8004556497089, -162.727243044394, 8.49074856016827, 1.8)
    pt3dadd(-28.0089384228748, -163.680871630776, 8.70783714238296, 1.8)
    pt3dadd(-28.2174211960407, -164.634500217158, 8.92492572459765, 1.8)
    pt3dadd(-28.4259039692066, -165.58812880354, 9.14201430681233, 1.8)
    pt3dadd(-28.6343867423725, -166.541757389922, 9.35910288902702, 1.8)
    pt3dadd(-28.6505430106764, -167.511694013529, 9.55806485599004, 1.8)
    pt3dadd(-28.5675472931887, -168.490038080908, 9.74768182966068, 1.8)
    pt3dadd(-28.4845515757011, -169.468382148286, 9.93729880333132, 1.8)
    pt3dadd(-28.4015558582134, -170.446726215665, 10.126915777002, 1.8)
    pt3dadd(-28.3262073530842, -171.426531076511, 10.3020645607034, 1.8)
    pt3dadd(-28.3536350181282, -172.425968549999, 10.2827653436593, 1.8)
    pt3dadd(-28.3810626831722, -173.425406023487, 10.2634661266152, 1.8)
    pt3dadd(-28.4084903482163, -174.424843496975, 10.2441669095712, 1.8)
    pt3dadd(-28.4359180132603, -175.424280970462, 10.2248676925271, 1.8)
    pt3dadd(-28.4633456783043, -176.42371844395, 10.205568475483, 1.8)
    pt3dadd(-28.4907733433484, -177.423155917438, 10.1862692584389, 1.8)
    pt3dadd(-28.5182010083924, -178.422593390926, 10.1669700413948, 1.8)
    pt3dadd(-28.5604181294552, -179.421289715639, 10.1397046804559, 1.8)
    pt3dadd(-28.6068181183366, -180.419776422949, 10.1101862733674, 1.8)
    pt3dadd(-28.6532181072181, -181.418263130259, 10.080667866279, 1.8)
    pt3dadd(-28.6996180960995, -182.416749837569, 10.0511494591905, 1.8)
    pt3dadd(-28.746018084981, -183.415236544879, 10.0216310521021, 1.8)
    pt3dadd(-28.7567362342111, -184.411152647198, 9.93251367307525, 1.8)
    pt3dadd(-28.7667577729618, -185.407018564034, 9.84223275346808, 1.8)
    pt3dadd(-28.7767793117125, -186.402884480871, 9.7519518338609, 1.8)
    pt3dadd(-28.7868008504631, -187.398750397707, 9.66167091425373, 1.8)
    pt3dadd(-28.8007788623834, -188.394845994529, 9.60001367295101, 1.8)
    pt3dadd(-28.8327456287424, -189.391985869089, 9.66849868159485, 1.8)
    pt3dadd(-28.8647123951014, -190.38912574365, 9.7369836902387, 1.8)
    pt3dadd(-28.8966791614603, -191.386265618212, 9.80546869888254, 1.8)
    pt3dadd(-28.9286459278193, -192.383405492773, 9.87395370752639, 1.8)
    pt3dadd(-28.9606126941783, -193.380545367334, 9.94243871617024, 1.8)
    pt3dadd(-28.9925794605372, -194.377685241895, 10.0109237248141, 1.8)
    pt3dadd(-29.0425893670616, -195.369020627707, 10.1024214608551, 1.8)
    pt3dadd(-29.2221390361537, -196.318682996102, 10.3591378459635, 1.8)
    pt3dadd(-29.4016887052459, -197.268345364497, 10.6158542310719, 1.8)
    pt3dadd(-29.581238374338, -198.218007732892, 10.8725706161803, 1.8)
    pt3dadd(-29.7607880434301, -199.167670101287, 11.1292870012887, 1.8)
    pt3dadd(-29.9403377125222, -200.117332469682, 11.3860033863971, 1.8)
    pt3dadd(-30.1198873816144, -201.066994838077, 11.6427197715055, 1.8)
    pt3dadd(-30.2994370507065, -202.016657206472, 11.8994361566138, 1.8)
    pt3dadd(-30.3556223994875, -202.978452423538, 12.0133537257205, 1.8)
    pt3dadd(-30.208890942745, -203.960204455409, 11.892387501016, 1.8)
    pt3dadd(-30.0621594860025, -204.94195648728, 11.7714212763115, 1.8)
    pt3dadd(-29.9154280292601, -205.923708519151, 11.650455051607, 1.8)
    pt3dadd(-29.7686965725176, -206.905460551022, 11.5294888269025, 1.8)
    pt3dadd(-29.6219651157751, -207.887212582893, 11.408522602198, 1.8)
    pt3dadd(-29.5033608313109, -208.869990940909, 11.3510715988678, 1.8)
    pt3dadd(-29.4825419081179, -209.856337367264, 11.5144340782035, 1.8)
    pt3dadd(-29.4617229849249, -210.842683793618, 11.6777965575392, 1.8)
    pt3dadd(-29.4409040617319, -211.829030219973, 11.8411590368749, 1.8)
    pt3dadd(-29.4200851385388, -212.815376646327, 12.0045215162106, 1.8)
    pt3dadd(-29.3992662153458, -213.801723072682, 12.1678839955463, 1.8)
    pt3dadd(-29.3652689638876, -214.778831584036, 12.2710916462448, 1.8)
    pt3dadd(-29.2175850740763, -215.676246565179, 11.8553563695236, 1.8)
    pt3dadd(-29.0699011842649, -216.573661546322, 11.4396210928024, 1.8)
    pt3dadd(-28.9222172944536, -217.471076527465, 11.0238858160812, 1.8)
    pt3dadd(-28.7745334046423, -218.368491508608, 10.60815053936, 1.8)
    pt3dadd(-28.626849514831, -219.265906489751, 10.1924152626388, 1.8)
    pt3dadd(-28.5052421350462, -220.168396051329, 9.81591531377423, 1.8)
    pt3dadd(-28.720133613289, -221.136369472506, 9.9457194295527, 1.8)
    pt3dadd(-28.9350250915318, -222.104342893684, 10.0755235453312, 1.8)
    pt3dadd(-29.1499165697746, -223.072316314861, 10.2053276611096, 1.8)
    pt3dadd(-29.3648080480175, -224.040289736038, 10.3351317768881, 1.8)
    pt3dadd(-29.5796995262603, -225.008263157215, 10.4649358926666, 1.8)
    pt3dadd(-29.7881859512985, -225.97821605614, 10.5897555850583, 1.8)
    pt3dadd(-29.9833800792537, -226.95227693129, 10.7042311890674, 1.8)
    pt3dadd(-30.1785742072089, -227.926337806441, 10.8187067930766, 1.8)
    pt3dadd(-30.373768335164, -228.900398681591, 10.9331823970857, 1.8)
    pt3dadd(-30.5689624631192, -229.874459556741, 11.0476580010948, 1.8)
    pt3dadd(-30.7641565910744, -230.848520431891, 11.1621336051039, 1.8)
    pt3dadd(-30.8603667471685, -231.832172807644, 11.2312165173017, 1.8)
    pt3dadd(-30.8041774689977, -232.830592617336, 11.230411139287, 1.8)
    pt3dadd(-30.7479881908268, -233.829012427027, 11.2296057612723, 1.8)
  }
  adendOML[12] {pt3dclear()
    pt3dadd(-30.7479881908268, -233.829012427027, 11.2296057612723, 1.8)
    pt3dadd(-30.6917989126559, -234.827432236719, 11.2288003832576, 1.8)
    pt3dadd(-30.6356096344851, -235.825852046411, 11.2279950052428, 1.8)
    pt3dadd(-30.4695792690719, -236.788221516343, 11.0339712976891, 1.8)
    pt3dadd(-30.2848432911135, -237.744451719953, 10.8070430796307, 1.8)
    pt3dadd(-30.1001073131551, -238.700681923564, 10.5801148615723, 1.8)
    pt3dadd(-29.9153713351967, -239.656912127174, 10.353186643514, 1.8)
    pt3dadd(-29.7306353572383, -240.613142330784, 10.1262584254556, 1.8)
    pt3dadd(-29.5458993792799, -241.569372534395, 9.89933020739725, 1.8)
    pt3dadd(-29.3611634013215, -242.525602738005, 9.67240198933888, 1.8)
    pt3dadd(-29.1764274233631, -243.481832941615, 9.44547377128051, 1.8)
    pt3dadd(-28.9916914454047, -244.438063145226, 9.21854555322215, 1.8)
    pt3dadd(-29.0418159614428, -245.392061973453, 9.36197017246413, 1.8)
    pt3dadd(-29.1735178425856, -246.345285747004, 9.63403459873306, 1.8)
    pt3dadd(-29.3052197237283, -247.298509520555, 9.90609902500201, 1.8)
    pt3dadd(-29.436921604871, -248.251733294106, 10.178163451271, 1.8)
    pt3dadd(-29.5686234860138, -249.204957067656, 10.4502278775399, 1.8)
    pt3dadd(-29.7003253671565, -250.158180841207, 10.7222923038088, 1.8)
    pt3dadd(-29.6710288279161, -251.133041847744, 10.6672436582534, 1.8)
    pt3dadd(-29.586504941493, -252.115325082247, 10.4999852957167, 1.8)
    pt3dadd(-29.5019810550699, -253.09760831675, 10.33272693318, 1.8)
    pt3dadd(-29.4174571686468, -254.079891551253, 10.1654685706434, 1.8)
    pt3dadd(-29.3329332822237, -255.062174785756, 9.99821020810668, 1.8)
    pt3dadd(-29.2709906232819, -256.042690946335, 9.82518698151786, 1.8)
    pt3dadd(-29.4080508925245, -257.007634309307, 9.60135939418688, 1.8)
    pt3dadd(-29.545111161767, -257.97257767228, 9.3775318068559, 1.8)
    pt3dadd(-29.6821714310095, -258.937521035252, 9.15370421952493, 1.8)
    pt3dadd(-29.8192317002521, -259.902464398225, 8.92987663219395, 1.8)
    pt3dadd(-29.9562919694946, -260.867407761197, 8.70604904486297, 1.8)
    pt3dadd(-30.0193066573828, -261.851798802418, 8.5856559447967, 1.8)
    pt3dadd(-30.02638835807, -262.850880345336, 8.54339579671075, 1.8)
    pt3dadd(-30.0334700587572, -263.849961888254, 8.5011356486248, 1.8)
    pt3dadd(-30.0405517594445, -264.849043431172, 8.45887550053885, 1.8)
    pt3dadd(-30.0476334601317, -265.848124974089, 8.41661535245289, 1.8)
    pt3dadd(-30.0547151608189, -266.847206517007, 8.37435520436694, 1.8)
    pt3dadd(-30.0425941126894, -267.846749110015, 8.34816897004463, 1.8)
    pt3dadd(-30.0279640547482, -268.846351943315, 8.32408293542451, 1.8)
    pt3dadd(-30.0133339968069, -269.845954776614, 8.29999690080437, 1.8)
    pt3dadd(-29.9987039388656, -270.845557609914, 8.27591086618424, 1.8)
    pt3dadd(-29.9761725931408, -271.844822314417, 8.25625463190313, 1.8)
    pt3dadd(-29.8982508262069, -272.841716633614, 8.26765264009106, 1.8)
    pt3dadd(-29.820329059273, -273.838610952811, 8.27905064827899, 1.8)
    pt3dadd(-29.7424072923391, -274.835505272008, 8.29044865646691, 1.8)
    pt3dadd(-29.6644855254052, -275.832399591205, 8.30184666465484, 1.8)
    pt3dadd(-29.5865637584712, -276.829293910402, 8.31324467284277, 1.8)
    pt3dadd(-29.5086419915373, -277.826188229599, 8.3246426810307, 1.8)
    pt3dadd(-29.4307202246034, -278.823082548796, 8.33604068921863, 1.8)
    pt3dadd(-29.3100497866808, -279.81370626246, 8.38617022857527, 1.8)
    pt3dadd(-29.1691873060968, -280.801368098444, 8.45459434204632, 1.8)
    pt3dadd(-29.0283248255129, -281.789029934428, 8.52301845551738, 1.8)
    pt3dadd(-28.8874623449289, -282.776691770412, 8.59144256898844, 1.8)
    pt3dadd(-28.746599864345, -283.764353606396, 8.6598666824595, 1.8)
    pt3dadd(-28.605737383761, -284.752015442381, 8.72829079593055, 1.8)
    pt3dadd(-28.4888370400124, -285.744292174689, 8.76546080624079, 1.8)
    pt3dadd(-28.3771120550477, -286.737565635476, 8.79588053386798, 1.8)
    pt3dadd(-28.2644048728437, -287.725579084579, 8.78922613917926, 1.8)
    pt3dadd(-28.1439400383951, -288.67204757731, 8.48975057101214, 1.8)
    pt3dadd(-28.0234752039465, -289.618516070041, 8.19027500284501, 1.8)
    pt3dadd(-27.903010369498, -290.564984562772, 7.89079943467789, 1.8)
    pt3dadd(-27.8817464778219, -291.537607660527, 7.71444104248882, 1.8)
    pt3dadd(-27.9471964490416, -292.533093109896, 7.64570225168164, 1.8)
    pt3dadd(-28.0126464202613, -293.528578559265, 7.57696346087446, 1.8)
    pt3dadd(-28.0522016418919, -294.525103261565, 7.52267305589349, 1.8)
    pt3dadd(-28.0203867142228, -295.524492314282, 7.50820475654871, 1.8)
    pt3dadd(-27.9885717865537, -296.523881367, 7.49373645720392, 1.8)
    pt3dadd(-28.0722116930983, -297.475940776682, 7.61610573045572, 1.8)
    pt3dadd(-28.3969422567708, -298.329167298, 8.02421670107159, 1.8)
    pt3dadd(-28.7216728204432, -299.182393819317, 8.43232767168746, 1.8)
    pt3dadd(-29.0464033841157, -300.035620340635, 8.84043864230333, 1.8)
    pt3dadd(-29.2751191063476, -300.919655462575, 9.16546219445863, 1.8)
    pt3dadd(-29.1633941213829, -301.912928923363, 9.19588192208584, 1.8)
    pt3dadd(-29.0516691364182, -302.906202384151, 9.22630164971304, 1.8)
  }
  GCL[10] {pt3dclear()
    pt3dadd(0.802507674187724, 57.8064041972852, -0.893756745556298, 2.13495387872861)
    pt3dadd(1.57180058617619, 57.4826576372665, -1.50751113978077, 2.13495387872861)
    pt3dadd(2.29758552005505, 57.1263082343958, -2.09594238710551, 2.03066867943026)
    pt3dadd(3.02337045393391, 56.7699588315251, -2.68437363443026, 1.92638348013192)
    pt3dadd(3.74915538781276, 56.4136094286544, -3.27280488175501, 1.82209828083357)
    pt3dadd(4.15664510584718, 55.6515294339658, -3.68966013046942, 1.8)
    pt3dadd(4.47855213993261, 54.7803572780398, -4.06038231235988, 1.8)
    pt3dadd(4.84986319701948, 54.1353786665641, -4.64990270005433, 1.8)
    pt3dadd(5.26917589178582, 53.7101728571093, -5.45201047561424, 1.8)
    pt3dadd(5.68848858655216, 53.2849670476544, -6.25411825117415, 1.8)
    pt3dadd(6.1078012813185, 52.8597612381996, -7.05622602673406, 1.8)
    pt3dadd(6.68415819195314, 52.7197165400485, -7.85822665103637, 1.8)
    pt3dadd(7.26791713997723, 52.5931124719532, -8.6602222249291, 1.8)
    pt3dadd(7.94202968844287, 52.4605125901512, -9.33643315421176, 1.8)
    pt3dadd(8.88217719159321, 52.3102587795632, -9.64228681975129, 1.8)
  }
}
proc shape3d_14() {
  GCL[10] {
    pt3dadd(9.82232469474356, 52.1600049689753, -9.94814048529082, 1.8)
    pt3dadd(10.7624721978939, 52.0097511583873, -10.2539941508303, 1.8)
    pt3dadd(11.6887876401359, 51.7974253045422, -10.5604661664006, 1.8)
    pt3dadd(12.6050749477196, 51.5400977107235, -10.867386480848, 1.8)
    pt3dadd(13.5213622553033, 51.2827701169048, -11.1743067952954, 1.8)
    pt3dadd(14.437649562887, 51.0254425230861, -11.4812271097429, 1.8)
    pt3dadd(15.2472202339637, 50.572530629412, -11.8252720957301, 1.8)
    pt3dadd(16.012658421917, 50.0387351819162, -12.1846699263517, 1.8)
    pt3dadd(16.7780966098703, 49.5049397344204, -12.5440677569734, 1.8)
    pt3dadd(17.5435347978236, 48.9711442869245, -12.903465587595, 1.8)
    pt3dadd(18.1731729740823, 48.2316117852501, -13.139383879452, 1.8)
    pt3dadd(18.8010425523403, 47.4893998571295, -13.3736940295814, 1.8)
    pt3dadd(19.4289121305983, 46.7471879290089, -13.6080041797109, 1.8)
    pt3dadd(20.0567817088563, 46.0049760008884, -13.8423143298404, 1.8)
    pt3dadd(20.6846512871143, 45.2627640727678, -14.0766244799699, 1.8)
    pt3dadd(21.3841427881414, 44.5740315310473, -14.2488461268878, 1.8)
    pt3dadd(22.1241403399644, 43.9155444596842, -14.3859533846956, 1.8)
    pt3dadd(22.8641378917874, 43.2570573883211, -14.5230606425033, 1.8)
    pt3dadd(23.6041354436105, 42.598570316958, -14.6601679003111, 1.8)
    pt3dadd(24.3441329954335, 41.9400832455948, -14.7972751581189, 1.8)
    pt3dadd(25.0841305472565, 41.2815961742318, -14.9343824159266, 1.8)
    pt3dadd(25.7515985752414, 40.5421054641605, -14.9373213375258, 1.8)
    pt3dadd(26.4005074876012, 39.7818872514491, -14.9059287823256, 1.8)
    pt3dadd(27.049416399961, 39.0216690387378, -14.8745362271254, 1.8)
    pt3dadd(27.6983253123208, 38.2614508260264, -14.8431436719252, 1.8)
    pt3dadd(28.3409828582937, 37.4978560548702, -14.812522322236, 1.8)
    pt3dadd(28.6193159543454, 36.5374782571022, -14.826846190312, 1.8)
    pt3dadd(28.897649050397, 35.5771004593343, -14.841170058388, 1.8)
    pt3dadd(29.568060040939, 35.3308912405098, -15.5036976659244, 1.8)
    pt3dadd(30.2569140971255, 35.1182760043298, -16.196716316914, 1.8)
    pt3dadd(30.945768153312, 34.9056607681497, -16.8897349679036, 1.8)
    pt3dadd(31.433194286563, 34.2682161820685, -17.1702430731332, 1.8)
    pt3dadd(31.7777968448241, 33.3295440122977, -17.1582583104038, 1.8)
    pt3dadd(32.1223994030852, 32.3908718425269, -17.1462735476744, 1.8)
    pt3dadd(32.4670019613462, 31.4521996727561, -17.1342887849449, 1.8)
    pt3dadd(32.8116045196073, 30.5135275029853, -17.1223040222155, 1.8)
    pt3dadd(33.1948482914803, 29.6093729513724, -17.1965786704319, 1.8)
    pt3dadd(33.6930087674328, 28.8078717726901, -17.5273837501536, 1.8)
    pt3dadd(34.1911692433853, 28.0063705940078, -17.8581888298752, 1.8)
    pt3dadd(34.6893297193377, 27.2048694153255, -18.1889939095968, 1.8)
    pt3dadd(35.1874901952902, 26.4033682366431, -18.5197989893184, 1.8)
    pt3dadd(35.6856506712427, 25.6018670579608, -18.85060406904, 1.8)
    pt3dadd(36.1658274399065, 24.7688054406474, -19.0303565939053, 1.8)
    pt3dadd(36.6138703143374, 23.8793505680036, -18.9402033232937, 1.8)
    pt3dadd(37.0619131887682, 22.9898956953598, -18.8500500526822, 1.8)
    pt3dadd(37.5099560631991, 22.100440822716, -18.7598967820706, 1.8)
    pt3dadd(37.9579989376299, 21.2109859500722, -18.6697435114591, 1.8)
    pt3dadd(38.2434076669326, 20.2643703295349, -18.5855503559855, 1.8)
    pt3dadd(38.4447888193065, 19.2882216786665, -18.5044365909613, 1.8)
    pt3dadd(38.6461699716803, 18.3120730277981, -18.4233228259372, 1.8)
    pt3dadd(38.8475511240541, 17.3359243769297, -18.342209060913, 1.8)
    pt3dadd(39.048932276428, 16.3597757260613, -18.2610952958888, 1.8)
    pt3dadd(39.2876352217536, 15.4105771131266, -18.3961035069195, 1.8)
    pt3dadd(39.5445417626942, 14.4745233025595, -18.6365245811719, 1.8)
    pt3dadd(39.8014483036349, 13.5384694919923, -18.8769456554243, 1.8)
    pt3dadd(40.0583548445755, 12.6024156814252, -19.1173667296767, 1.8)
    pt3dadd(40.3152613855162, 11.6663618708581, -19.3577878039291, 1.8)
    pt3dadd(40.5595853773655, 10.7296256047614, -19.6078523391516, 1.8)
    pt3dadd(40.7889830270566, 9.79207975988466, -19.8693566547386, 1.8)
    pt3dadd(41.0183806767476, 8.85453391500794, -20.1308609703255, 1.8)
    pt3dadd(41.2477783264387, 7.91698807013121, -20.3923652859125, 1.8)
    pt3dadd(41.4771759761298, 6.97944222525449, -20.6538696014995, 1.8)
    pt3dadd(41.7065736258208, 6.04189638037777, -20.9153739170865, 1.8)
    pt3dadd(41.9359712755119, 5.10435053550106, -21.1768782326735, 1.8)
    pt3dadd(42.165368925203, 4.16680469062433, -21.4383825482605, 1.8)
    pt3dadd(42.5031014200967, 3.29452320257907, -21.7869952780351, 1.8)
    pt3dadd(42.8570536838886, 2.43201301926144, -22.1486497797766, 1.8)
    pt3dadd(43.2110059476805, 1.56950283594377, -22.5103042815182, 1.8)
    pt3dadd(43.5649582114725, 0.706992652626115, -22.8719587832597, 1.8)
  }
  adendIML[11] {pt3dclear()
    pt3dadd(43.5649582114725, 0.706992652626115, -22.8719587832597, 1.8)
    pt3dadd(43.9189104752644, -0.155517530691538, -23.2336132850013, 1.8)
    pt3dadd(44.2728627390563, -1.01802771400918, -23.5952677867428, 1.8)
    pt3dadd(44.539438250102, -1.90806263717907, -23.9549999198158, 1.8)
    pt3dadd(44.7293340874391, -2.82225259019901, -24.3130450297663, 1.8)
    pt3dadd(44.9192299247762, -3.73644254321893, -24.6710901397168, 1.8)
    pt3dadd(45.1091257621133, -4.65063249623888, -25.0291352496673, 1.8)
    pt3dadd(45.2990215994504, -5.56482244925881, -25.3871803596177, 1.8)
    pt3dadd(45.2669712325154, -6.54642264086496, -25.5065759287431, 1.8)
    pt3dadd(45.1924814793149, -7.54091266387415, -25.5803381874076, 1.8)
    pt3dadd(45.1179917261143, -8.53540268688336, -25.654100446072, 1.8)
    pt3dadd(45.0435019729138, -9.52989270989255, -25.7278627047365, 1.8)
    pt3dadd(44.9690122197132, -10.5243827329018, -25.8016249634009, 1.8)
    pt3dadd(44.8945224665127, -11.518872755911, -25.8753872220653, 1.8)
    pt3dadd(44.9278255141664, -12.4900859709386, -26.072223329294, 1.8)
    pt3dadd(45.027803066624, -13.4469014744931, -26.3451859295936, 1.8)
    pt3dadd(45.1277806190815, -14.4037169780477, -26.6181485298932, 1.8)
    pt3dadd(45.2277581715391, -15.3605324816022, -26.8911111301928, 1.8)
    pt3dadd(45.3277357239967, -16.3173479851567, -27.1640737304924, 1.8)
    pt3dadd(45.4392376062952, -17.2890226135195, -27.3275053076473, 1.8)
    pt3dadd(45.5663276506512, -18.2807961499091, -27.3427818629768, 1.8)
    pt3dadd(45.6934176950072, -19.2725696862988, -27.3580584183063, 1.8)
    pt3dadd(45.8205077393632, -20.2643432226884, -27.3733349736358, 1.8)
    pt3dadd(45.9475977837191, -21.2561167590781, -27.3886115289653, 1.8)
    pt3dadd(46.0746878280751, -22.2478902954678, -27.4038880842948, 1.8)
    pt3dadd(46.2017778724311, -23.2396638318574, -27.4191646396243, 1.8)
    pt3dadd(46.3288679167871, -24.2314373682471, -27.4344411949538, 1.8)
    pt3dadd(46.4559579611431, -25.2232109046367, -27.4497177502834, 1.8)
    pt3dadd(46.6075221821167, -26.2032407129456, -27.532688387522, 1.8)
    pt3dadd(46.8036498638287, -27.1618871189267, -27.7389188429975, 1.8)
    pt3dadd(46.9997775455408, -28.1205335249079, -27.9451492984731, 1.8)
    pt3dadd(47.1959052272529, -29.0791799308891, -28.1513797539486, 1.8)
    pt3dadd(47.3920329089649, -30.0378263368702, -28.3576102094242, 1.8)
    pt3dadd(47.588160590677, -30.9964727428514, -28.5638406648997, 1.8)
    pt3dadd(47.784288272389, -31.9551191488326, -28.7700711203753, 1.8)
    pt3dadd(47.9735755150316, -32.9249763402367, -28.9144749010784, 1.8)
    pt3dadd(48.1582483999812, -33.9023959956049, -29.0171722372872, 1.8)
    pt3dadd(48.3429212849308, -34.879815650973, -29.119869573496, 1.8)
    pt3dadd(48.5275941698804, -35.8572353063412, -29.2225669097049, 1.8)
    pt3dadd(48.71226705483, -36.8346549617093, -29.3252642459137, 1.8)
    pt3dadd(48.8969399397796, -37.8120746170775, -29.4279615821225, 1.8)
    pt3dadd(49.0953533213248, -38.780762544046, -29.5619214297986, 1.8)
    pt3dadd(49.3416618878632, -39.7190143259958, -29.8048528681056, 1.8)
    pt3dadd(49.5879704544016, -40.6572661079456, -30.0477843064125, 1.8)
    pt3dadd(49.8342790209399, -41.5955178898953, -30.2907157447194, 1.8)
    pt3dadd(50.0805875874783, -42.5337696718451, -30.5336471830263, 1.8)
    pt3dadd(50.3268961540166, -43.4720214537949, -30.7765786213332, 1.8)
    pt3dadd(50.573204720555, -44.4102732357447, -31.0195100596402, 1.8)
    pt3dadd(50.7552682245018, -45.3739017744971, -31.2032933625584, 1.8)
    pt3dadd(50.9023996101663, -46.3513284766334, -31.3549159113544, 1.8)
    pt3dadd(51.0495309958309, -47.3287551787697, -31.5065384601504, 1.8)
    pt3dadd(51.1966623814955, -48.306181880906, -31.6581610089464, 1.8)
    pt3dadd(51.34379376716, -49.2836085830423, -31.8097835577425, 1.8)
    pt3dadd(51.4909251528246, -50.2610352851785, -31.9614061065385, 1.8)
    pt3dadd(51.6380565384891, -51.2384619873148, -32.1130286553345, 1.8)
    pt3dadd(51.7851879241537, -52.2158886894511, -32.2646512041305, 1.8)
    pt3dadd(51.9323193098182, -53.1933153915874, -32.4162737529266, 1.8)
    pt3dadd(52.0386568645377, -54.17257607626, -32.4886542864088, 1.8)
    pt3dadd(52.0192171888354, -55.1574913719045, -32.3167125537959, 1.8)
    pt3dadd(51.999777513133, -56.1424066675491, -32.144770821183, 1.8)
    pt3dadd(51.9803378374307, -57.1273219631937, -31.9728290885701, 1.8)
    pt3dadd(51.9608981617283, -58.1122372588383, -31.8008873559571, 1.8)
    pt3dadd(51.941458486026, -59.0971525544829, -31.6289456233442, 1.8)
    pt3dadd(51.9352307882779, -60.0789404586055, -31.480220491837, 1.8)
    pt3dadd(52.183518560781, -61.0004823097428, -31.7787398356455, 1.8)
    pt3dadd(52.4318063332841, -61.9220241608801, -32.077259179454, 1.8)
    pt3dadd(52.6800941057872, -62.8435660120174, -32.3757785232625, 1.8)
    pt3dadd(52.9283818782903, -63.7651078631547, -32.674297867071, 1.8)
    pt3dadd(53.1766696507934, -64.686649714292, -32.9728172108795, 1.8)
    pt3dadd(53.4249574232965, -65.6081915654293, -33.271336554688, 1.8)
    pt3dadd(53.6732451957996, -66.5297334165666, -33.5698558984965, 1.8)
    pt3dadd(53.8991760601169, -67.4613775992654, -33.8395625952866, 1.8)
    pt3dadd(53.9962685247571, -68.4512395024364, -33.9432277580022, 1.8)
    pt3dadd(54.0933609893972, -69.4411014056073, -34.0468929207179, 1.8)
    pt3dadd(54.1904534540374, -70.4309633087783, -34.1505580834335, 1.8)
    pt3dadd(54.2875459186776, -71.4208252119493, -34.2542232461492, 1.8)
    pt3dadd(54.3846383833178, -72.4106871151202, -34.3578884088648, 1.8)
    pt3dadd(54.4817308479579, -73.4005490182912, -34.4615535715805, 1.8)
    pt3dadd(54.6094036358273, -74.3773036297861, -34.6123945242284, 1.8)
    pt3dadd(54.8003666302867, -75.3269308891011, -34.8608722960975, 1.8)
    pt3dadd(54.991329624746, -76.2765581484161, -35.1093500679665, 1.8)
    pt3dadd(55.1822926192053, -77.226185407731, -35.3578278398356, 1.8)
    pt3dadd(55.3732556136646, -78.175812667046, -35.6063056117046, 1.8)
    pt3dadd(55.5642186081239, -79.1254399263611, -35.8547833835737, 1.8)
    pt3dadd(55.7551816025832, -80.0750671856761, -36.1032611554428, 1.8)
    pt3dadd(55.9461445970425, -81.024694444991, -36.3517389273118, 1.8)
    pt3dadd(56.1371075915018, -81.9743217043061, -36.6002166991809, 1.8)
    pt3dadd(56.3730419067795, -82.8719805552325, -36.9679657675691, 1.8)
    pt3dadd(56.6168181338104, -83.760577371397, -37.3565128682362, 1.8)
    pt3dadd(56.8605943608413, -84.6491741875615, -37.7450599689034, 1.8)
    pt3dadd(57.1043705878722, -85.5377710037261, -38.1336070695705, 1.8)
    pt3dadd(57.2272829221913, -86.4827559970759, -38.341178552661, 1.8)
    pt3dadd(57.233468298777, -87.4821991104422, -38.3739688600864, 1.8)
    pt3dadd(57.2396536753627, -88.4816422238086, -38.4067591675117, 1.8)
    pt3dadd(57.2458390519483, -89.4810853371749, -38.4395494749371, 1.8)
    pt3dadd(57.252024428534, -90.4805284505413, -38.4723397823624, 1.8)
    pt3dadd(57.2582098051197, -91.4799715639076, -38.5051300897877, 1.8)
    pt3dadd(57.2643951817054, -92.479414677274, -38.5379203972131, 1.8)
    pt3dadd(57.2705805582911, -93.4788577906403, -38.5707107046384, 1.8)
    pt3dadd(57.2767659348767, -94.4783009040067, -38.6035010120638, 1.8)
  }
  adendIML[12] {pt3dclear()
    pt3dadd(57.2767659348767, -94.4783009040067, -38.6035010120638, 1.8)
    pt3dadd(57.7578239327981, -95.3124680738937, -38.7934326602089, 1.8)
    pt3dadd(58.3016378695194, -96.1247934981671, -39.0041310401429, 1.8)
    pt3dadd(58.8454518062406, -96.9371189224404, -39.2148294200769, 1.8)
    pt3dadd(59.3892657429619, -97.7494443467138, -39.4255278000109, 1.8)
    pt3dadd(59.9330796796832, -98.5617697709872, -39.6362261799449, 1.8)
    pt3dadd(60.4768936164044, -99.3740951952605, -39.8469245598789, 1.8)
    pt3dadd(61.0207075531257, -100.186420619534, -40.0576229398129, 1.8)
    pt3dadd(61.564521489847, -100.998746043807, -40.2683213197469, 1.8)
    pt3dadd(61.956595428087, -101.890306535945, -40.4771458874997, 1.8)
    pt3dadd(62.3083343597386, -102.802929022391, -40.6854723649175, 1.8)
    pt3dadd(62.6600732913901, -103.715551508838, -40.8937988423352, 1.8)
    pt3dadd(63.0118122230416, -104.628173995284, -41.102125319753, 1.8)
    pt3dadd(63.3635511546931, -105.54079648173, -41.3104517971707, 1.8)
    pt3dadd(63.563483873677, -106.477739776731, -41.2728048169568, 1.8)
    pt3dadd(63.6177315450042, -107.438023211052, -40.9991025774247, 1.8)
    pt3dadd(63.6719792163314, -108.398306645372, -40.7254003378927, 1.8)
    pt3dadd(63.7262268876586, -109.358590079693, -40.4516980983607, 1.8)
    pt3dadd(64.1114022209766, -110.194062729274, -40.6834799583546, 1.8)
    pt3dadd(64.5834406442819, -110.996774592522, -41.0479431135903, 1.8)
    pt3dadd(65.0554790675873, -111.79948645577, -41.4124062688261, 1.8)
    pt3dadd(65.5233650349866, -112.605477457803, -41.7724924802395, 1.8)
    pt3dadd(65.8328128880044, -113.536584915634, -41.9655751781516, 1.8)
    pt3dadd(66.1422607410222, -114.467692373466, -42.1586578760636, 1.8)
    pt3dadd(66.45170859404, -115.398799831297, -42.3517405739757, 1.8)
    pt3dadd(66.7611564470578, -116.329907289129, -42.5448232718878, 1.8)
  }
  adendMML[18] {pt3dclear()
    pt3dadd(66.7611564470578, -116.329907289129, -42.5448232718878, 1.8)
    pt3dadd(66.9442665700683, -117.301425673815, -42.4747169620685, 1.8)
    pt3dadd(67.1016215088454, -118.281182221923, -42.3509569940592, 1.8)
    pt3dadd(67.2589764476225, -119.260938770031, -42.2271970260498, 1.8)
    pt3dadd(67.4163313863996, -120.24069531814, -42.1034370580404, 1.8)
    pt3dadd(67.5736863251766, -121.220451866248, -41.9796770900309, 1.8)
    pt3dadd(67.7310412639537, -122.200208414356, -41.8559171220215, 1.8)
    pt3dadd(67.9096976672171, -123.181734851882, -41.8225119147475, 1.8)
    pt3dadd(68.0971797827863, -124.163994597432, -41.826542871744, 1.8)
    pt3dadd(68.2846618983556, -125.146254342982, -41.8305738287405, 1.8)
    pt3dadd(68.4721440139248, -126.128514088531, -41.834604785737, 1.8)
    pt3dadd(68.6596261294941, -127.110773834081, -41.8386357427335, 1.8)
    pt3dadd(68.842559660763, -128.063135836804, -42.0133518788004, 1.8)
    pt3dadd(69.0211007964507, -128.986626721657, -42.3528922275979, 1.8)
    pt3dadd(69.1996419321383, -129.91011760651, -42.6924325763955, 1.8)
    pt3dadd(69.378183067826, -130.833608491362, -43.0319729251931, 1.8)
    pt3dadd(69.5567242035136, -131.757099376215, -43.3715132739907, 1.8)
    pt3dadd(69.5037484290173, -132.743137327831, -43.4775408999448, 1.8)
    pt3dadd(69.4225029228051, -133.736812686131, -43.5550550923802, 1.8)
    pt3dadd(69.3412574165929, -134.73048804443, -43.6325692848156, 1.8)
    pt3dadd(69.2600119103807, -135.724163402729, -43.7100834772509, 1.8)
    pt3dadd(69.1787664041686, -136.717838761029, -43.7875976696863, 1.8)
    pt3dadd(69.0975208979564, -137.711514119328, -43.8651118621217, 1.8)
    pt3dadd(68.8064481836929, -138.655822287406, -43.7522314471636, 1.8)
    pt3dadd(68.4879359303671, -139.593674605659, -43.6144527346237, 1.8)
    pt3dadd(68.1694236770413, -140.531526923912, -43.4766740220838, 1.8)
    pt3dadd(67.8509114237155, -141.469379242165, -43.3388953095439, 1.8)
    pt3dadd(67.5323991703898, -142.407231560418, -43.201116597004, 1.8)
    pt3dadd(67.213886917064, -143.345083878671, -43.0633378844641, 1.8)
    pt3dadd(66.9112992413447, -144.277778413623, -42.9945957345086, 1.8)
    pt3dadd(66.7153629996731, -145.175929804071, -43.3882111166223, 1.8)
    pt3dadd(66.5194267580016, -146.074081194519, -43.781826498736, 1.8)
    pt3dadd(66.3234905163301, -146.972232584967, -44.1754418808497, 1.8)
    pt3dadd(66.1275542746585, -147.870383975414, -44.5690572629635, 1.8)
    pt3dadd(65.931618032987, -148.768535365862, -44.9626726450772, 1.8)
    pt3dadd(65.7356817913155, -149.66668675631, -45.3562880271909, 1.8)
    pt3dadd(65.4402855566632, -150.606585557023, -45.3792719662649, 1.8)
    pt3dadd(65.1256631675676, -151.554554357878, -45.330610843321, 1.8)
    pt3dadd(64.811040778472, -152.502523158732, -45.2819497203771, 1.8)
    pt3dadd(64.4964183893765, -153.450491959587, -45.2332885974331, 1.8)
    pt3dadd(64.1817960002809, -154.398460760441, -45.1846274744892, 1.8)
    pt3dadd(64.0243965649471, -155.215670708493, -45.5873027694293, 1.8)
    pt3dadd(63.9600072884147, -155.955526164895, -46.2569802475483, 1.8)
    pt3dadd(63.8956180118822, -156.695381621297, -46.9266577256673, 1.8)
    pt3dadd(63.8312287353498, -157.435237077699, -47.5963352037863, 1.8)
    pt3dadd(63.7668394588174, -158.175092534101, -48.2660126819053, 1.8)
    pt3dadd(63.7500334562316, -159.008861661185, -48.8049013460626, 1.8)
    pt3dadd(63.7571048039393, -159.889756793401, -49.2781600090362, 1.8)
    pt3dadd(63.7641761516471, -160.770651925617, -49.7514186720098, 1.8)
    pt3dadd(63.7712474993548, -161.651547057833, -50.2246773349833, 1.8)
    pt3dadd(63.7783188470626, -162.532442190049, -50.6979359979569, 1.8)
    pt3dadd(63.7853901947703, -163.413337322265, -51.1711946609304, 1.8)
    pt3dadd(63.5443306623902, -164.356221058144, -51.3727245994673, 1.8)
    pt3dadd(63.2814491186484, -165.304556417025, -51.5503572008011, 1.8)
  }
}
proc shape3d_15() {
  adendMML[18] {
    pt3dadd(63.0185675749066, -166.252891775905, -51.7279898021348, 1.8)
    pt3dadd(62.7556860311648, -167.201227134786, -51.9056224034686, 1.8)
    pt3dadd(62.492804487423, -168.149562493667, -52.0832550048024, 1.8)
    pt3dadd(62.2299229436812, -169.097897852547, -52.2608876061363, 1.8)
    pt3dadd(61.9670413999394, -170.046233211428, -52.43852020747, 1.8)
    pt3dadd(61.7041598561976, -170.994568570309, -52.6161528088038, 1.8)
    pt3dadd(61.4412783124558, -171.942903929189, -52.7937854101376, 1.8)
    pt3dadd(61.307166628766, -172.826199019068, -53.1664691230886, 1.8)
    pt3dadd(61.310693994393, -173.639974108, -53.747638343132, 1.8)
    pt3dadd(61.31422136002, -174.453749196931, -54.3288075631753, 1.8)
    pt3dadd(61.317748725647, -175.267524285863, -54.9099767832187, 1.8)
    pt3dadd(61.321276091274, -176.081299374795, -55.4911460032621, 1.8)
    pt3dadd(61.324803456901, -176.895074463727, -56.0723152233055, 1.8)
    pt3dadd(61.1778935219361, -177.832859720943, -56.3062427762615, 1.8)
    pt3dadd(60.9890035178562, -178.805250461076, -56.4432712946924, 1.8)
    pt3dadd(60.8001135137763, -179.777641201208, -56.5802998131233, 1.8)
    pt3dadd(60.6112235096964, -180.750031941341, -56.7173283315542, 1.8)
    pt3dadd(60.4223335056165, -181.722422681473, -56.8543568499851, 1.8)
    pt3dadd(60.2334435015366, -182.694813421605, -56.9913853684161, 1.8)
    pt3dadd(60.0445534974567, -183.667204161738, -57.128413886847, 1.8)
    pt3dadd(59.876651065043, -184.618084664718, -57.3556323583649, 1.8)
    pt3dadd(59.7459212911518, -185.530866777227, -57.7425930040415, 1.8)
    pt3dadd(59.6151915172607, -186.443648889736, -58.1295536497181, 1.8)
    pt3dadd(59.4844617433695, -187.356431002245, -58.5165142953947, 1.8)
    pt3dadd(59.3537319694784, -188.269213114753, -58.9034749410713, 1.8)
    pt3dadd(59.2230021955872, -189.181995227262, -59.2904355867479, 1.8)
    pt3dadd(59.0897861853975, -190.12909183616, -59.5444518866734, 1.8)
    pt3dadd(58.9538361622508, -191.113922701373, -59.6522746956274, 1.8)
    pt3dadd(58.817886139104, -192.098753566586, -59.7600975045814, 1.8)
    pt3dadd(58.6819361159572, -193.083584431799, -59.8679203135354, 1.8)
    pt3dadd(58.5459860928104, -194.068415297011, -59.9757431224894, 1.8)
    pt3dadd(58.5653584388462, -195.036909801178, -60.2008998064098, 1.8)
    pt3dadd(58.629291609366, -196.000717525706, -60.4597187003257, 1.8)
    pt3dadd(58.6932247798858, -196.964525250233, -60.7185375942415, 1.8)
    pt3dadd(58.7571579504056, -197.928332974761, -60.9773564881573, 1.8)
    pt3dadd(58.8210911209254, -198.892140699289, -61.2361753820732, 1.8)
    pt3dadd(58.8850242914452, -199.855948423817, -61.494994275989, 1.8)
    pt3dadd(59.3268022116583, -200.678361714742, -61.8135024392417, 1.8)
    pt3dadd(59.8299660402368, -201.477803598094, -62.1417079187092, 1.8)
    pt3dadd(60.3331298688153, -202.277245481446, -62.4699133981768, 1.8)
    pt3dadd(60.8362936973939, -203.076687364798, -62.7981188776443, 1.8)
    pt3dadd(61.3394575259724, -203.876129248151, -63.1263243571118, 1.8)
    pt3dadd(61.7962554133306, -204.724976959738, -63.3466023495223, 1.8)
    pt3dadd(62.1894653757811, -205.64158160698, -63.4188646916119, 1.8)
    pt3dadd(62.5826753382315, -206.558186254222, -63.4911270337014, 1.8)
    pt3dadd(62.975885300682, -207.474790901464, -63.563389375791, 1.8)
    pt3dadd(63.3690952631324, -208.391395548706, -63.6356517178805, 1.8)
    pt3dadd(63.7623052255829, -209.308000195947, -63.7079140599701, 1.8)
    pt3dadd(64.1555151880334, -210.224604843189, -63.7801764020596, 1.8)
    pt3dadd(64.5487251504838, -211.141209490431, -63.8524387441492, 1.8)
    pt3dadd(64.9344276272046, -212.056247839905, -63.9656588797871, 1.8)
    pt3dadd(65.3152892050502, -212.97027622554, -64.1052889939262, 1.8)
    pt3dadd(65.6961507828958, -213.884304611175, -64.2449191080653, 1.8)
    pt3dadd(66.0770123607414, -214.79833299681, -64.3845492222044, 1.8)
    pt3dadd(66.457873938587, -215.712361382445, -64.5241793363434, 1.8)
    pt3dadd(66.8387355164326, -216.62638976808, -64.6638094504825, 1.8)
    pt3dadd(67.2195970942782, -217.540418153715, -64.8034395646216, 1.8)
    pt3dadd(67.6814995472712, -218.425651226542, -64.7764583281401, 1.8)
    pt3dadd(68.1486590412705, -219.309016376054, -64.7386691789758, 1.8)
    pt3dadd(68.6158185352698, -220.192381525565, -64.7008800298115, 1.8)
    pt3dadd(69.082978029269, -221.075746675077, -64.6630908806472, 1.8)
    pt3dadd(69.5501375232683, -221.959111824589, -64.6253017314829, 1.8)
    pt3dadd(70.0172970172676, -222.8424769741, -64.5875125823186, 1.8)
    pt3dadd(70.4844565112669, -223.725842123612, -64.5497234331543, 1.8)
    pt3dadd(70.9516160052662, -224.609207273124, -64.5119342839899, 1.8)
    pt3dadd(71.4644209941121, -225.459309552522, -64.5609576320063, 1.8)
    pt3dadd(72.028095180795, -226.272342335223, -64.7067283613065, 1.8)
    pt3dadd(72.591769367478, -227.085375117924, -64.8524990906067, 1.8)
    pt3dadd(73.155443554161, -227.898407900625, -64.998269819907, 1.8)
    pt3dadd(73.719117740844, -228.711440683326, -65.1440405492072, 1.8)
    pt3dadd(74.282791927527, -229.524473466027, -65.2898112785074, 1.8)
    pt3dadd(74.84646611421, -230.337506248728, -65.4355820078076, 1.8)
    pt3dadd(75.2367217880536, -231.256843518533, -65.4449192616044, 1.8)
    pt3dadd(75.6199460160307, -232.180491021625, -65.4487246688776, 1.8)
    pt3dadd(76.0031702440078, -233.104138524716, -65.4525300761508, 1.8)
  }
  adendOML[13] {pt3dclear()
    pt3dadd(76.0031702440078, -233.104138524716, -65.4525300761508, 1.8)
    pt3dadd(76.3863944719849, -234.027786027807, -65.456335483424, 1.8)
    pt3dadd(76.7793933836298, -234.938654371895, -65.394592901453, 1.8)
    pt3dadd(77.1982668502252, -235.815695017503, -65.1593383054638, 1.8)
    pt3dadd(77.6171403168207, -236.692735663111, -64.9240837094745, 1.8)
    pt3dadd(78.0360137834162, -237.569776308719, -64.6888291134853, 1.8)
    pt3dadd(78.4548872500116, -238.446816954327, -64.453574517496, 1.8)
    pt3dadd(79.0458830791554, -239.246723011388, -64.5367551356092, 1.8)
    pt3dadd(79.6418489520523, -240.044401802484, -64.6291305900189, 1.8)
    pt3dadd(80.2378148249493, -240.842080593581, -64.7215060444286, 1.8)
    pt3dadd(80.8337806978462, -241.639759384677, -64.8138814988383, 1.8)
    pt3dadd(81.4297465707431, -242.437438175773, -64.9062569532479, 1.8)
    pt3dadd(81.939055731124, -243.226730921849, -64.7558878223906, 1.8)
    pt3dadd(82.3245648598401, -244.004043146061, -64.2587274682109, 1.8)
    pt3dadd(82.7100739885563, -244.781355370272, -63.7615671140312, 1.8)
    pt3dadd(83.1601208921836, -245.518900600753, -63.3938275694896, 1.8)
    pt3dadd(83.9494126960807, -246.047409343061, -63.706392694872, 1.8)
    pt3dadd(84.7387044999778, -246.575918085368, -64.0189578202544, 1.8)
    pt3dadd(85.527996303875, -247.104426827676, -64.3315229456368, 1.8)
    pt3dadd(86.3172881077721, -247.632935569984, -64.6440880710191, 1.8)
    pt3dadd(87.1065799116693, -248.161444312291, -64.9566531964015, 1.8)
    pt3dadd(87.8219981635444, -248.768850382326, -64.9001302215892, 1.8)
    pt3dadd(88.4794597032766, -249.43815451448, -64.5540430902838, 1.8)
    pt3dadd(89.1369212430088, -250.107458646633, -64.2079559589784, 1.8)
    pt3dadd(89.794382782741, -250.776762778787, -63.861868827673, 1.8)
    pt3dadd(90.7093823472283, -251.16456848541, -63.8451532852258, 1.8)
    pt3dadd(91.6366510679996, -251.53896355809, -63.8441290625479, 1.8)
    pt3dadd(92.5639197887709, -251.91335863077, -63.84310483987, 1.8)
    pt3dadd(93.4911885095423, -252.28775370345, -63.8420806171921, 1.8)
    pt3dadd(94.4184572303136, -252.66214877613, -63.8410563945142, 1.8)
    pt3dadd(94.7002640382031, -252.845721943085, -63.1078364204699, 1.8)
    pt3dadd(94.7541534863934, -252.961914488415, -62.1160727289669, 1.8)
    pt3dadd(94.8080429345837, -253.078107033744, -61.1243090374639, 1.8)
    pt3dadd(94.861932382774, -253.194299579073, -60.1325453459609, 1.8)
  }
  adendIML[13] {pt3dclear()
    pt3dadd(57.2767659348767, -94.4783009040067, -38.6035010120638, 1.8)
    pt3dadd(57.3601511672022, -95.4302688353957, -38.882286619152, 1.8)
    pt3dadd(57.4537386078768, -96.3759627693362, -39.1935812934661, 1.8)
    pt3dadd(57.5473260485514, -97.3216567032766, -39.5048759677802, 1.8)
    pt3dadd(57.640913489226, -98.267350637217, -39.8161706420942, 1.8)
    pt3dadd(57.7345009299006, -99.2130445711574, -40.1274653164083, 1.8)
    pt3dadd(57.8280883705752, -100.158738505098, -40.4387599907224, 1.8)
    pt3dadd(57.9941515453078, -101.107602235334, -40.2366345199895, 1.8)
    pt3dadd(58.1686321018789, -102.056834107903, -39.9748800788072, 1.8)
    pt3dadd(58.34311265845, -103.006065980471, -39.7131256376248, 1.8)
    pt3dadd(58.5175932150212, -103.95529785304, -39.4513711964425, 1.8)
    pt3dadd(58.6690950253202, -104.900276525631, -39.3419995491759, 1.8)
    pt3dadd(58.750886665437, -105.832352349186, -39.6949085838464, 1.8)
    pt3dadd(58.8326783055538, -106.76442817274, -40.0478176185168, 1.8)
    pt3dadd(58.9144699456706, -107.696503996295, -40.4007266531873, 1.8)
    pt3dadd(58.9962615857874, -108.62857981985, -40.7536356878578, 1.8)
    pt3dadd(59.0852726711888, -109.562365460948, -41.0960373382065, 1.8)
    pt3dadd(59.3000635793252, -110.525940170201, -41.2553754864016, 1.8)
    pt3dadd(59.5148544874616, -111.489514879454, -41.4147136345967, 1.8)
    pt3dadd(59.7296453955981, -112.453089588707, -41.5740517827918, 1.8)
    pt3dadd(59.9444363037345, -113.41666429796, -41.7333899309869, 1.8)
    pt3dadd(60.1592272118709, -114.380239007212, -41.892728079182, 1.8)
    pt3dadd(60.3740181200073, -115.343813716465, -42.0520662273771, 1.8)
    pt3dadd(60.5888090281438, -116.307388425718, -42.2114043755722, 1.8)
  }
  adendMML[19] {pt3dclear()
    pt3dadd(60.5888090281438, -116.307388425718, -42.2114043755722, 1.8)
    pt3dadd(60.8035999362802, -117.270963134971, -42.3707425237673, 1.8)
    pt3dadd(61.0119531945739, -118.243583225404, -42.4666222486178, 1.8)
    pt3dadd(61.2181252861839, -119.219268018726, -42.5410013634361, 1.8)
    pt3dadd(61.424297377794, -120.194952812048, -42.6153804782545, 1.8)
    pt3dadd(61.630469469404, -121.17063760537, -42.6897595930728, 1.8)
    pt3dadd(61.8366415610141, -122.146322398692, -42.7641387078911, 1.8)
    pt3dadd(62.0428136526242, -123.122007192015, -42.8385178227094, 1.8)
    pt3dadd(62.2489857442342, -124.097691985337, -42.9128969375278, 1.8)
    pt3dadd(62.4551578358443, -125.073376778659, -42.9872760523461, 1.8)
    pt3dadd(62.6952545853829, -126.005748035096, -43.2385729428988, 1.8)
    pt3dadd(62.9451227558157, -126.925643563694, -43.540827990613, 1.8)
    pt3dadd(63.1949909262485, -127.845539092293, -43.8430830383272, 1.8)
    pt3dadd(63.4448590966813, -128.765434620892, -44.1453380860414, 1.8)
    pt3dadd(63.6947272671142, -129.68533014949, -44.4475931337556, 1.8)
    pt3dadd(63.944595437547, -130.605225678089, -44.7498481814699, 1.8)
    pt3dadd(64.1944636079798, -131.525121206688, -45.0521032291841, 1.8)
    pt3dadd(64.4443317784126, -132.445016735286, -45.3543582768983, 1.8)
    pt3dadd(64.5134217605295, -133.4012357904, -45.6346066883948, 1.8)
    pt3dadd(64.5702839423086, -134.359911761549, -45.9133665754389, 1.8)
    pt3dadd(64.6271461240877, -135.318587732698, -46.1921264624831, 1.8)
    pt3dadd(64.6840083058669, -136.277263703847, -46.4708863495272, 1.8)
    pt3dadd(64.740870487646, -137.235939674996, -46.7496462365713, 1.8)
    pt3dadd(64.6757577173226, -138.182092251755, -47.0401922721824, 1.8)
    pt3dadd(64.4809127993343, -139.11492498848, -47.3432740156577, 1.8)
    pt3dadd(64.286067881346, -140.047757725206, -47.646355759133, 1.8)
    pt3dadd(64.0912229633577, -140.980590461931, -47.9494375026083, 1.8)
    pt3dadd(63.8963780453694, -141.913423198656, -48.2525192460835, 1.8)
    pt3dadd(63.7015331273811, -142.846255935381, -48.5556009895588, 1.8)
    pt3dadd(63.5066882093928, -143.779088672106, -48.8586827330341, 1.8)
    pt3dadd(63.3118432914046, -144.711921408831, -49.1617644765093, 1.8)
    pt3dadd(63.275366927142, -145.52955511695, -49.729883141993, 1.8)
    pt3dadd(63.2496614461965, -146.339353966025, -50.3160273668097, 1.8)
    pt3dadd(63.223955965251, -147.1491528151, -50.9021715916263, 1.8)
    pt3dadd(63.1982504843055, -147.958951664175, -51.488315816443, 1.8)
    pt3dadd(63.17254500336, -148.768750513251, -52.0744600412597, 1.8)
    pt3dadd(63.1468395224146, -149.578549362326, -52.6606042660763, 1.8)
    pt3dadd(63.1211340414691, -150.388348211401, -53.246748490893, 1.8)
    pt3dadd(63.0488648195797, -151.252426538317, -53.7145226021714, 1.8)
    pt3dadd(62.9051813959079, -152.199752591995, -54.0007540151643, 1.8)
    pt3dadd(62.7614979722361, -153.147078645673, -54.2869854281573, 1.8)
    pt3dadd(62.6178145485644, -154.094404699352, -54.5732168411502, 1.8)
    pt3dadd(62.4741311248926, -155.04173075303, -54.8594482541431, 1.8)
    pt3dadd(62.3304477012208, -155.989056806709, -55.1456796671361, 1.8)
    pt3dadd(62.186764277549, -156.936382860387, -55.431911080129, 1.8)
    pt3dadd(62.0251353814354, -157.874963051451, -55.7338617504871, 1.8)
    pt3dadd(61.8143329819083, -158.789578161263, -56.0788857340838, 1.8)
    pt3dadd(61.6035305823812, -159.704193271075, -56.4239097176806, 1.8)
    pt3dadd(61.3927281828542, -160.618808380887, -56.7689337012773, 1.8)
    pt3dadd(61.1819257833271, -161.533423490699, -57.113957684874, 1.8)
    pt3dadd(60.9711233838, -162.448038600511, -57.4589816684707, 1.8)
    pt3dadd(60.760320984273, -163.362653710324, -57.8040056520674, 1.8)
    pt3dadd(60.6885123340109, -164.330446015184, -58.0291182190729, 1.8)
    pt3dadd(60.6454185338768, -165.309224247067, -58.2294581731064, 1.8)
    pt3dadd(60.6023247337428, -166.28800247895, -58.4297981271399, 1.8)
    pt3dadd(60.5592309336088, -167.266780710833, -58.6301380811735, 1.8)
    pt3dadd(60.5161371334748, -168.245558942715, -58.830478035207, 1.8)
    pt3dadd(60.5750912586394, -169.212204714722, -59.0500618132205, 1.8)
    pt3dadd(60.7638383292961, -170.163419426286, -59.2941214694999, 1.8)
    pt3dadd(60.9525853999527, -171.11463413785, -59.5381811257792, 1.8)
    pt3dadd(61.1413324706094, -172.065848849414, -59.7822407820586, 1.8)
    pt3dadd(61.3300795412661, -173.017063560977, -60.0263004383379, 1.8)
    pt3dadd(61.5188266119228, -173.968278272541, -60.2703600946173, 1.8)
    pt3dadd(61.7075736825795, -174.919492984105, -60.5144197508966, 1.8)
    pt3dadd(61.8963207532362, -175.870707695669, -60.758479407176, 1.8)
    pt3dadd(62.0850678238929, -176.821922407232, -61.0025390634553, 1.8)
    pt3dadd(62.2934987976702, -177.743176326024, -61.3303857770449, 1.8)
    pt3dadd(62.5027931189881, -178.663116146865, -61.6619074401305, 1.8)
    pt3dadd(62.712087440306, -179.583055967706, -61.9934291032161, 1.8)
    pt3dadd(62.9213817616238, -180.502995788547, -62.3249507663017, 1.8)
    pt3dadd(63.1306760829417, -181.422935609388, -62.6564724293873, 1.8)
    pt3dadd(63.3399704042596, -182.342875430229, -62.9879940924729, 1.8)
    pt3dadd(63.5197697342668, -183.288991839209, -63.250553387503, 1.8)
    pt3dadd(63.6827508361421, -184.250034302121, -63.4737899098542, 1.8)
    pt3dadd(63.8457319380175, -185.211076765033, -63.6970264322054, 1.8)
    pt3dadd(64.0087130398928, -186.172119227945, -63.9202629545566, 1.8)
    pt3dadd(64.1716941417682, -187.133161690857, -64.1434994769078, 1.8)
    pt3dadd(64.3346752436435, -188.094204153769, -64.366735999259, 1.8)
    pt3dadd(64.4976563455188, -189.055246616681, -64.5899725216102, 1.8)
    pt3dadd(64.7113967483283, -190.018629411433, -64.7362734192045, 1.8)
    pt3dadd(64.953825539225, -190.983334926293, -64.8390914669537, 1.8)
    pt3dadd(65.1962543301217, -191.948040441153, -64.9419095147029, 1.8)
    pt3dadd(65.4386831210185, -192.912745956013, -65.044727562452, 1.8)
    pt3dadd(65.6811119119152, -193.877451470873, -65.1475456102012, 1.8)
    pt3dadd(65.8037717380628, -194.765515451644, -65.5518974205598, 1.8)
    pt3dadd(65.8910890399059, -195.630963345794, -66.0452285784145, 1.8)
    pt3dadd(65.978406341749, -196.496411239944, -66.5385597362692, 1.8)
    pt3dadd(66.0657236435921, -197.361859134094, -67.0318908941239, 1.8)
    pt3dadd(66.1530409454352, -198.227307028244, -67.5252220519786, 1.8)
    pt3dadd(66.2403582472783, -199.092754922394, -68.0185532098334, 1.8)
    pt3dadd(66.5042802704518, -199.948852662693, -68.4461611002382, 1.8)
    pt3dadd(66.8406046451402, -200.801117135565, -68.8468245291543, 1.8)
    pt3dadd(67.1769290198287, -201.653381608437, -69.2474879580704, 1.8)
    pt3dadd(67.5132533945172, -202.505646081309, -69.6481513869866, 1.8)
    pt3dadd(67.8349111484523, -203.36253120279, -70.0454450820888, 1.8)
    pt3dadd(67.8936810209776, -204.302237891984, -70.3823388937989, 1.8)
    pt3dadd(67.9524508935028, -205.241944581177, -70.7192327055091, 1.8)
    pt3dadd(68.0112207660281, -206.18165127037, -71.0561265172193, 1.8)
    pt3dadd(68.0699906385533, -207.121357959564, -71.3930203289294, 1.8)
    pt3dadd(68.1287605110786, -208.061064648757, -71.7299141406396, 1.8)
    pt3dadd(68.1875303836038, -209.000771337951, -72.0668079523497, 1.8)
    pt3dadd(68.2463002561291, -209.940478027144, -72.4037017640599, 1.8)
    pt3dadd(68.3328844928589, -210.817160628671, -72.8708671907944, 1.8)
    pt3dadd(68.4267529700747, -211.677337995436, -73.3721491540554, 1.8)
    pt3dadd(68.5206214472906, -212.537515362201, -73.8734311173164, 1.8)
    pt3dadd(68.6144899245064, -213.397692728966, -74.3747130805774, 1.8)
    pt3dadd(68.7083584017223, -214.257870095731, -74.8759950438384, 1.8)
    pt3dadd(68.8106030219591, -215.090488915863, -75.4165446679961, 1.8)
    pt3dadd(68.9273214313175, -215.87548717944, -76.0249479381202, 1.8)
    pt3dadd(69.0440398406759, -216.660485443017, -76.6333512082443, 1.8)
    pt3dadd(69.1607582500342, -217.445483706595, -77.2417544783684, 1.8)
    pt3dadd(69.2774766593926, -218.230481970172, -77.8501577484925, 1.8)
    pt3dadd(69.425648432485, -218.93952828347, -78.5359179523077, 1.8)
    pt3dadd(69.5862399927089, -219.618583939404, -79.2522235902363, 1.8)
    pt3dadd(69.7468315529328, -220.297639595339, -79.9685292281649, 1.8)
    pt3dadd(69.9081009099038, -220.982220033571, -80.6686021844037, 1.8)
  }
}
proc shape3d_16() {
  adendMML[19] {
    pt3dadd(70.1044467097475, -221.95271171503, -80.5286228177017, 1.8)
    pt3dadd(70.3007925095911, -222.923203396489, -80.3886434509997, 1.8)
    pt3dadd(70.4971383094348, -223.893695077948, -80.2486640842976, 1.8)
    pt3dadd(70.6934841092785, -224.864186759408, -80.1086847175956, 1.8)
    pt3dadd(71.1372034400884, -225.437620000412, -80.7425842048217, 1.8)
    pt3dadd(71.6028422942654, -225.975870286597, -81.4450563301781, 1.8)
    pt3dadd(72.0684811484424, -226.514120572782, -82.1475284555345, 1.8)
    pt3dadd(72.5341200026194, -227.052370858967, -82.8500005808909, 1.8)
    pt3dadd(72.9902207241342, -227.619911104202, -83.528800408297, 1.8)
    pt3dadd(73.3888053281462, -228.364073418561, -84.0648533565511, 1.8)
    pt3dadd(73.7873899321581, -229.10823573292, -84.6009063048053, 1.8)
    pt3dadd(74.1174567902326, -229.813774783067, -85.1976999901582, 1.8)
    pt3dadd(74.1900736710267, -230.374189991822, -86.0227221610243, 1.8)
    pt3dadd(74.2626905518209, -230.934605200576, -86.8477443318903, 1.8)
    pt3dadd(74.3353074326151, -231.495020409331, -87.6727665027563, 1.8)
    pt3dadd(74.675756027979, -232.130792640353, -88.3534986360002, 1.8)
    pt3dadd(75.0611708784479, -232.779216558621, -89.0100059209982, 1.8)
    pt3dadd(75.4465857289169, -233.42764047689, -89.6665132059963, 1.8)
  }
  adendOML[14] {pt3dclear()
    pt3dadd(75.4465857289169, -233.42764047689, -89.6665132059963, 1.8)
    pt3dadd(75.8320005793858, -234.076064395158, -90.3230204909944, 1.8)
    pt3dadd(76.2043177422405, -234.687489778882, -91.0188558855197, 1.8)
    pt3dadd(76.562413367086, -235.258741959459, -91.7573939479466, 1.8)
    pt3dadd(76.9205089919315, -235.829994140035, -92.4959320103735, 1.8)
    pt3dadd(77.278604616777, -236.401246320611, -93.2344700728004, 1.8)
    pt3dadd(77.6367002416225, -236.972498501188, -93.9730081352274, 1.8)
    pt3dadd(77.2970462890893, -237.787919056872, -93.9093456099616, 1.8)
    pt3dadd(76.8309343881614, -238.647591924245, -93.7002947622811, 1.8)
    pt3dadd(76.3648224872334, -239.507264791618, -93.4912439146006, 1.8)
    pt3dadd(76.1618175539445, -240.319289668126, -93.712171625862, 1.8)
    pt3dadd(76.2159861977099, -241.084741075448, -94.3533813427734, 1.8)
    pt3dadd(76.2701548414754, -241.85019248277, -94.9945910596847, 1.8)
    pt3dadd(76.427797624131, -242.710292963841, -95.2620878417961, 1.8)
    pt3dadd(76.6918336021885, -243.667712615731, -95.1453290628286, 1.8)
    pt3dadd(76.9558695802461, -244.625132267621, -95.0285702838611, 1.8)
    pt3dadd(77.1413898286607, -245.601034419749, -94.9563189529445, 1.8)
    pt3dadd(77.2531148136254, -246.594307880537, -94.9258992253173, 1.8)
    pt3dadd(77.2308572301244, -247.486854468475, -94.7217813758894, 1.8)
    pt3dadd(76.8379324435406, -248.100736834178, -94.0371219326859, 1.8)
    pt3dadd(76.4450076569567, -248.71461919988, -93.3524624894823, 1.8)
    pt3dadd(76.0520828703728, -249.328501565582, -92.6678030462788, 1.8)
    pt3dadd(75.901993991843, -250.247173082646, -92.6014988460906, 1.8)
    pt3dadd(75.8105970056161, -251.239510196327, -92.6846471697028, 1.8)
  }
  soma[2] {pt3dclear()
    pt3dadd(2.38891078564095, 79.5182148651208, 0, 10.4043260233424)
    pt3dadd(2.50114309420655, 80.5073741912473, 0.0946981333026757, 10.4043260233424)
    pt3dadd(2.61337540277215, 81.4965335173738, 0.189396266605351, 10.1118742080783)
    pt3dadd(2.72560771133774, 82.4856928435003, 0.284094399908027, 9.60468635614927)
    pt3dadd(2.83784001990334, 83.4748521696268, 0.378792533210703, 8.84590300647707)
    pt3dadd(2.95007232846894, 84.4640114957533, 0.473490666513378, 7.76208734813001)
    pt3dadd(3.06230463703454, 85.4531708218798, 0.568188799816054, 6.18465843842649)
  }
  axonh[0] {pt3dclear()
    pt3dadd(3.06230463703454, 85.4531708218798, 0.568188799816054, 3.5)
    pt3dadd(3.17453694560014, 86.4423301480063, 0.66288693311873, 3.5)
    pt3dadd(3.28676925416574, 87.4314894741328, 0.757585066421405, 2.47906000584629)
    pt3dadd(3.39900156273134, 88.4206488002593, 0.852283199724081, 2.11125382662694)
    pt3dadd(3.51123387129693, 89.4098081263858, 0.946981333026756, 1.81011959652796)
    pt3dadd(3.62346617986253, 90.3989674525123, 1.04167946632943, 1.56357174154146)
    pt3dadd(3.73569848842813, 91.3881267786388, 1.13637759963211, 1.3617154305586)
    pt3dadd(3.84793079699373, 92.3772861047653, 1.23107573293478, 1.19644946105406)
    pt3dadd(3.96016310555933, 93.3664454308918, 1.32577386623746, 1.06114112938344)
    pt3dadd(4.07239541412493, 94.3556047570183, 1.42047199954013, 0.950360037097033)
    pt3dadd(4.18462772269052, 95.3447640831448, 1.51517013284281, 0.85966014998258)
    pt3dadd(4.29686003125612, 96.3339234092713, 1.60986826614549, 0.785401363101277)
    pt3dadd(4.40909233982172, 97.3230827353977, 1.70456639944816, 0.72460341059529)
    pt3dadd(4.52132464838732, 98.3122420615242, 1.79926453275084, 0.674826257154464)
    pt3dadd(4.63355695695292, 99.3014013876507, 1.89396266605351, 0.634072170831778)
    pt3dadd(4.74578926551852, 100.290560713777, 1.98866079935619, 0.600705547045801)
    pt3dadd(4.85802157408411, 101.279720039904, 2.08335893265886, 0.573387266025838)
    pt3dadd(4.97025388264971, 102.26887936603, 2.17805706596154, 0.551020949233567)
    pt3dadd(5.08248619121531, 103.258038692157, 2.27275519926422, 0.532708957842651)
    pt3dadd(5.19471849978091, 104.247198018283, 2.36745333256689, 0.517716367340809)
    pt3dadd(5.30695080834651, 105.23635734441, 2.46215146586957, 0.505441472428646)
    pt3dadd(5.41918311691211, 106.225516670536, 2.55684959917224, 0.495391638473257)
    pt3dadd(5.53141542547771, 107.214675996663, 2.65154773247492, 0.487163530350653)
    pt3dadd(5.6436477340433, 108.203835322789, 2.74624586577759, 0.480426925191027)
    pt3dadd(5.7558800426089, 109.192994648916, 2.84094399908027, 0.474911459375497)
    pt3dadd(5.8681123511745, 110.182153975042, 2.93564213238295, 0.470395777894772)
  }
  axon[0] {pt3dclear()
    pt3dadd(5.8681123511745, 110.182153975042, 2.93564213238295, 0.466698650595398)
    pt3dadd(5.9803446597401, 111.171313301169, 3.03034026568562, 0.466698650595398)
    pt3dadd(6.0925769683057, 112.160472627295, 3.1250383989883, 0.463671698777356)
    pt3dadd(6.2048092768713, 113.149631953422, 3.21973653229097, 0.46119344023584)
    pt3dadd(6.3170415854369, 114.138791279548, 3.31443466559365, 0.459164413753823)
    pt3dadd(6.42927389400249, 115.127950605675, 3.40913279889632, 0.457503187374186)
    pt3dadd(6.54150620256809, 116.117109931801, 3.503830932199, 0.456143090249352)
    pt3dadd(6.65373851113369, 117.106269257928, 3.59852906550167, 0.455029536906078)
    pt3dadd(6.76597081969929, 118.095428584054, 3.69322719880435, 0.454117836538747)
    pt3dadd(6.87820312826489, 119.084587910181, 3.78792533210703, 0.45337139941042)
    pt3dadd(6.99043543683049, 120.073747236307, 3.8826234654097, 0.45276026837822)
    pt3dadd(7.10266774539608, 121.062906562434, 3.97732159871238, 0.452259916607997)
    pt3dadd(7.21490005396168, 122.05206588856, 4.07201973201505, 0.451850263226359)
    pt3dadd(7.32713236252728, 123.041225214687, 4.16671786531773, 0.45151486740471)
    pt3dadd(7.43936467109288, 124.030384540813, 4.2614159986204, 0.451240268531071)
    pt3dadd(7.55159697965848, 125.01954386694, 4.35611413192308, 0.451015445988463)
    pt3dadd(7.66382928822408, 126.008703193066, 4.45081226522576, 0.450831376858844)
    pt3dadd(7.77606159678967, 126.997862519193, 4.54551039852843, 0.450680673801733)
    pt3dadd(7.88829390535527, 127.987021845319, 4.64020853183111, 0.450557288574293)
    pt3dadd(8.00052621392087, 128.976181171446, 4.73490666513378, 0.450456269294113)
    pt3dadd(8.11275852248647, 129.965340497572, 4.82960479843646, 0.450373561702775)
    pt3dadd(8.22499083105207, 130.954499823699, 4.92430293173913, 0.450305846454234)
    pt3dadd(8.33722313961767, 131.943659149825, 5.01900106504181, 0.450250405897802)
    pt3dadd(8.44945544818327, 132.932818475952, 5.11369919834449, 0.450205015009282)
    pt3dadd(8.56168775674886, 133.921977802078, 5.20839733164716, 0.450167852092942)
    pt3dadd(8.67392006531446, 134.911137128205, 5.30309546494984, 0.45013742567046)
    pt3dadd(8.78615237388006, 135.900296454331, 5.39779359825251, 0.450112514622668)
    pt3dadd(8.89838468244566, 136.889455780458, 5.49249173155519, 0.450092119181749)
    pt3dadd(9.01061699101126, 137.878615106584, 5.58718986485786, 0.450075420807047)
    pt3dadd(9.12284929957686, 138.867774432711, 5.68188799816054, 0.450061749334151)
    pt3dadd(9.23508160814245, 139.856933758837, 5.77658613146321, 0.450050556078851)
    pt3dadd(9.34731391670805, 140.846093084964, 5.87128426476589, 0.450041391816511)
    pt3dadd(9.45954622527365, 141.83525241109, 5.96598239806857, 0.450033888753103)
    pt3dadd(9.57177853383925, 142.824411737217, 6.06068053137124, 0.450027745764349)
    pt3dadd(9.68401084240485, 143.813571063343, 6.15537866467392, 0.45002271631054)
    pt3dadd(9.79624315097045, 144.80273038947, 6.25007679797659, 0.450018598542036)
    pt3dadd(9.90847545953605, 145.791889715596, 6.34477493127927, 0.450015227198327)
    pt3dadd(10.0207077681016, 146.781049041723, 6.43947306458194, 0.450012466975554)
    pt3dadd(10.1329400766672, 147.770208367849, 6.53417119788462, 0.450010207096284)
    pt3dadd(10.2451723852328, 148.759367693976, 6.6288693311873, 0.450008356863627)
    pt3dadd(10.3574046937984, 149.748527020102, 6.72356746448997, 0.450006842021251)
    pt3dadd(10.469637002364, 150.737686346229, 6.81826559779265, 0.450005601773211)
    pt3dadd(10.5818693109296, 151.726845672355, 6.91296373109532, 0.450004586344)
    pt3dadd(10.6941016194952, 152.716004998482, 7.007661864398, 0.450003754980877)
    pt3dadd(10.8063339280608, 153.705164324608, 7.10235999770067, 0.450003074318321)
    pt3dadd(10.9185662366264, 154.694323650735, 7.19705813100335, 0.450002517038954)
    pt3dadd(11.030798545192, 155.683482976861, 7.29175626430603, 0.450002060777199)
    pt3dadd(11.1430308537576, 156.672642302988, 7.3864543976087, 0.450001687221668)
    pt3dadd(11.2552631623232, 157.661801629114, 7.48115253091138, 0.450001381380267)
    pt3dadd(11.3674954708888, 158.650960955241, 7.57585066421405, 0.450001130978506)
    pt3dadd(11.4797277794544, 159.640120281367, 7.67054879751673, 0.450000925966884)
    pt3dadd(11.59196008802, 160.629279607494, 7.7652469308194, 0.450000758117564)
    pt3dadd(11.7041923965856, 161.61843893362, 7.85994506412208, 0.450000620694164)
    pt3dadd(11.8164247051512, 162.607598259747, 7.95464319742475, 0.450000508181401)
    pt3dadd(11.9286570137168, 163.596757585873, 8.04934133072743, 0.450000416063741)
    pt3dadd(12.0408893222824, 164.585916912, 8.14403946403011, 0.45000034064418)
    pt3dadd(12.153121630848, 165.575076238126, 8.23873759733278, 0.450000278895866)
    pt3dadd(12.2653539394136, 166.564235564253, 8.33343573063546, 0.450000228340622)
    pt3dadd(12.3775862479792, 167.553394890379, 8.42813386393813, 0.45000018694949)
    pt3dadd(12.4898185565448, 168.542554216505, 8.52283199724081, 0.450000153061296)
    pt3dadd(12.6020508651104, 169.531713542632, 8.61753013054348, 0.45000012531599)
    pt3dadd(12.714283173676, 170.520872868758, 8.71222826384616, 0.450000102600055)
    pt3dadd(12.8265154822416, 171.510032194885, 8.80692639714884, 0.450000084001821)
    pt3dadd(12.9387477908072, 172.499191521011, 8.90162453045151, 0.450000068774874)
    pt3dadd(13.0509800993728, 173.488350847138, 8.99632266375419, 0.450000056308104)
    pt3dadd(13.1632124079384, 174.477510173264, 9.09102079705686, 0.450000046101177)
    pt3dadd(13.275444716504, 175.466669499391, 9.18571893035954, 0.450000037744451)
    pt3dadd(13.3876770250696, 176.455828825517, 9.28041706366221, 0.450000030902543)
    pt3dadd(13.4999093336352, 177.444988151644, 9.37511519696489, 0.450000025300862)
    pt3dadd(13.6121416422008, 178.43414747777, 9.46981333026756, 0.450000020714594)
    pt3dadd(13.7243739507664, 179.423306803897, 9.56451146357024, 0.450000016959675)
    pt3dadd(13.836606259332, 180.412466130023, 9.65920959687292, 0.450000013885408)
    pt3dadd(13.9488385678976, 181.40162545615, 9.75390773017559, 0.45000001136841)
    pt3dadd(14.0610708764632, 182.390784782276, 9.84860586347827, 0.450000009307667)
    pt3dadd(14.1733031850288, 183.379944108403, 9.94330399678094, 0.450000007620473)
    pt3dadd(14.2855354935944, 184.369103434529, 10.0380021300836, 0.450000006239116)
    pt3dadd(14.39776780216, 185.358262760656, 10.1327002633863, 0.450000005108156)
    pt3dadd(14.5100001107256, 186.347422086782, 10.227398396689, 0.450000004182204)
    pt3dadd(14.6222324192912, 187.336581412909, 10.3220965299916, 0.450000003424099)
    pt3dadd(14.7344647278568, 188.325740739035, 10.4167946632943, 0.450000002803415)
    pt3dadd(14.8466970364224, 189.314900065162, 10.511492796597, 0.450000002295242)
    pt3dadd(14.958929344988, 190.304059391288, 10.6061909298997, 0.450000001879186)
    pt3dadd(15.0711616535536, 191.293218717415, 10.7008890632023, 0.450000001538547)
    pt3dadd(15.1833939621192, 192.282378043541, 10.795587196505, 0.450000001259656)
    pt3dadd(15.2956262706848, 193.271537369668, 10.8902853298077, 0.450000001031319)
    pt3dadd(15.4078585792504, 194.260696695794, 10.9849834631104, 0.450000000844373)
    pt3dadd(15.520090887816, 195.249856021921, 11.0796815964131, 0.450000000691314)
    pt3dadd(15.6323231963816, 196.239015348047, 11.1743797297157, 0.450000000566)
    pt3dadd(15.7445555049472, 197.228174674174, 11.2690778630184, 0.450000000463401)
    pt3dadd(15.8567878135128, 198.2173340003, 11.3637759963211, 0.450000000379401)
    pt3dadd(15.9690201220784, 199.206493326427, 11.4584741296238, 0.450000000310627)
    pt3dadd(16.081252430644, 200.195652652553, 11.5531722629264, 0.45000000025432)
    pt3dadd(16.1934847392096, 201.18481197868, 11.6478703962291, 0.45000000020822)
    pt3dadd(16.3057170477752, 202.173971304806, 11.7425685295318, 0.450000000170476)
    pt3dadd(16.4179493563408, 203.163130630933, 11.8372666628345, 0.450000000139574)
    pt3dadd(16.5301816649064, 204.152289957059, 11.9319647961371, 0.450000000114273)
    pt3dadd(16.642413973472, 205.141449283186, 12.0266629294398, 0.450000000093559)
    pt3dadd(16.7546462820376, 206.130608609312, 12.1213610627425, 0.4500000000766)
    pt3dadd(16.8668785906032, 207.119767935439, 12.2160591960452, 0.450000000062715)
    pt3dadd(16.9791108991687, 208.108927261565, 12.3107573293478, 0.450000000051346)
    pt3dadd(17.0913432077343, 209.098086587692, 12.4054554626505, 0.450000000042039)
    pt3dadd(17.2035755162999, 210.087245913818, 12.5001535959532, 0.450000000034418)
    pt3dadd(17.3158078248655, 211.076405239945, 12.5948517292559, 0.450000000028179)
    pt3dadd(17.4280401334311, 212.065564566071, 12.6895498625585, 0.450000000023071)
    pt3dadd(17.5402724419967, 213.054723892198, 12.7842479958612, 0.450000000018889)
    pt3dadd(17.6525047505623, 214.043883218324, 12.8789461291639, 0.450000000015465)
    pt3dadd(17.7647370591279, 215.033042544451, 12.9736442624666, 0.450000000012662)
    pt3dadd(17.8769693676935, 216.022201870577, 13.0683423957692, 0.450000000010367)
    pt3dadd(17.9892016762591, 217.011361196704, 13.1630405290719, 0.450000000008488)
    pt3dadd(18.1014339848247, 218.00052052283, 13.2577386623746, 0.450000000006949)
    pt3dadd(18.2136662933903, 218.989679848957, 13.3524367956773, 0.450000000005689)
    pt3dadd(18.3258986019559, 219.978839175083, 13.4471349289799, 0.450000000004658)
    pt3dadd(18.4381309105215, 220.96799850121, 13.5418330622826, 0.450000000003814)
    pt3dadd(18.5503632190871, 221.957157827336, 13.6365311955853, 0.450000000003122)
    pt3dadd(18.6625955276527, 222.946317153463, 13.731229328888, 0.450000000002556)
    pt3dadd(18.7748278362183, 223.935476479589, 13.8259274621906, 0.450000000002093)
    pt3dadd(18.8870601447839, 224.924635805716, 13.9206255954933, 0.450000000001714)
    pt3dadd(18.9992924533495, 225.913795131842, 14.015323728796, 0.450000000001403)
    pt3dadd(19.1115247619151, 226.902954457969, 14.1100218620987, 0.450000000001149)
    pt3dadd(19.2237570704807, 227.892113784095, 14.2047199954013, 0.45000000000094)
    pt3dadd(19.3359893790463, 228.881273110222, 14.299418128704, 0.45000000000077)
    pt3dadd(19.4482216876119, 229.870432436348, 14.3941162620067, 0.45000000000063)
    pt3dadd(19.5604539961775, 230.859591762475, 14.4888143953094, 0.450000000000516)
    pt3dadd(19.6726863047431, 231.848751088601, 14.5835125286121, 0.450000000000423)
    pt3dadd(19.7849186133087, 232.837910414728, 14.6782106619147, 0.450000000000346)
    pt3dadd(19.8971509218743, 233.827069740854, 14.7729087952174, 0.450000000000283)
    pt3dadd(20.0093832304399, 234.816229066981, 14.8676069285201, 0.450000000000232)
    pt3dadd(20.1216155390055, 235.805388393107, 14.9623050618228, 0.45000000000019)
    pt3dadd(20.2338478475711, 236.794547719234, 15.0570031951254, 0.450000000000155)
    pt3dadd(20.3460801561367, 237.78370704536, 15.1517013284281, 0.450000000000127)
    pt3dadd(20.4583124647023, 238.772866371487, 15.2463994617308, 0.450000000000104)
    pt3dadd(20.5705447732679, 239.762025697613, 15.3410975950335, 0.450000000000085)
    pt3dadd(20.6827770818335, 240.75118502374, 15.4357957283361, 0.45000000000007)
    pt3dadd(20.7950093903991, 241.740344349866, 15.5304938616388, 0.450000000000057)
    pt3dadd(20.9072416989647, 242.729503675993, 15.6251919949415, 0.450000000000047)
    pt3dadd(21.0194740075303, 243.718663002119, 15.7198901282442, 0.450000000000038)
    pt3dadd(21.1317063160959, 244.707822328246, 15.8145882615468, 0.450000000000031)
    pt3dadd(21.2439386246615, 245.696981654372, 15.9092863948495, 0.450000000000026)
    pt3dadd(21.3561709332271, 246.686140980499, 16.0039845281522, 0.450000000000021)
    pt3dadd(21.4684032417927, 247.675300306625, 16.0986826614549, 0.450000000000017)
    pt3dadd(21.5806355503583, 248.664459632752, 16.1933807947575, 0.450000000000014)
    pt3dadd(21.6928678589239, 249.653618958878, 16.2880789280602, 0.450000000000012)
    pt3dadd(21.8051001674895, 250.642778285005, 16.3827770613629, 0.450000000000009)
    pt3dadd(21.9173324760551, 251.631937611131, 16.4774751946656, 0.450000000000008)
    pt3dadd(22.0295647846207, 252.621096937258, 16.5721733279682, 0.450000000000006)
    pt3dadd(22.1417970931863, 253.610256263384, 16.6668714612709, 0.450000000000005)
    pt3dadd(22.2540294017519, 254.599415589511, 16.7615695945736, 0.450000000000004)
    pt3dadd(22.3662617103175, 255.588574915637, 16.8562677278763, 0.450000000000004)
    pt3dadd(22.4784940188831, 256.577734241764, 16.9509658611789, 0.450000000000003)
    pt3dadd(22.5907263274487, 257.56689356789, 17.0456639944816, 0.450000000000002)
    pt3dadd(22.7029586360143, 258.556052894017, 17.1403621277843, 0.450000000000002)
    pt3dadd(22.8151909445799, 259.545212220143, 17.235060261087, 0.450000000000002)
    pt3dadd(22.9274232531455, 260.53437154627, 17.3297583943896, 0.450000000000001)
    pt3dadd(23.0396555617111, 261.523530872396, 17.4244565276923, 0.450000000000001)
    pt3dadd(23.1518878702767, 262.512690198523, 17.519154660995, 0.450000000000001)
    pt3dadd(23.2641201788423, 263.501849524649, 17.6138527942977, 0.450000000000001)
    pt3dadd(23.3763524874079, 264.491008850776, 17.7085509276003, 0.450000000000001)
    pt3dadd(23.4885847959735, 265.480168176902, 17.803249060903, 0.45)
    pt3dadd(23.6008171045391, 266.469327503029, 17.8979471942057, 0.45)
    pt3dadd(23.7130494131047, 267.458486829155, 17.9926453275084, 0.45)
    pt3dadd(23.8252817216703, 268.447646155282, 18.087343460811, 0.45)
    pt3dadd(23.9375140302359, 269.436805481408, 18.1820415941137, 0.45)
    pt3dadd(24.0497463388015, 270.425964807535, 18.2767397274164, 0.45)
    pt3dadd(24.1619786473671, 271.415124133661, 18.3714378607191, 0.45)
    pt3dadd(24.2742109559326, 272.404283459788, 18.4661359940218, 0.45)
    pt3dadd(24.3864432644982, 273.393442785914, 18.5608341273244, 0.45)
    pt3dadd(24.4986755730638, 274.382602112041, 18.6555322606271, 0.45)
    pt3dadd(24.6109078816294, 275.371761438167, 18.7502303939298, 0.45)
    pt3dadd(24.723140190195, 276.360920764294, 18.8449285272325, 0.45)
    pt3dadd(24.8353724987606, 277.35008009042, 18.9396266605351, 0.45)
    pt3dadd(24.9476048073262, 278.339239416547, 19.0343247938378, 0.45)
    pt3dadd(25.0598371158918, 279.328398742673, 19.1290229271405, 0.45)
    pt3dadd(25.1720694244574, 280.3175580688, 19.2237210604432, 0.45)
    pt3dadd(25.284301733023, 281.306717394926, 19.3184191937458, 0.45)
  }
}
proc shape3d_17() {
  axon[0] {
    pt3dadd(25.3965340415886, 282.295876721053, 19.4131173270485, 0.45)
    pt3dadd(25.5087663501542, 283.285036047179, 19.5078154603512, 0.45)
    pt3dadd(25.6209986587198, 284.274195373306, 19.6025135936539, 0.45)
    pt3dadd(25.7332309672854, 285.263354699432, 19.6972117269565, 0.45)
    pt3dadd(25.845463275851, 286.252514025559, 19.7919098602592, 0.45)
    pt3dadd(25.9576955844166, 287.241673351685, 19.8866079935619, 0.45)
    pt3dadd(26.0699278929822, 288.230832677812, 19.9813061268646, 0.45)
    pt3dadd(26.1821602015478, 289.219992003938, 20.0760042601672, 0.45)
    pt3dadd(26.2943925101134, 290.209151330065, 20.1707023934699, 0.45)
    pt3dadd(26.406624818679, 291.198310656191, 20.2654005267726, 0.45)
    pt3dadd(26.5188571272446, 292.187469982318, 20.3600986600753, 0.45)
    pt3dadd(26.6310894358102, 293.176629308444, 20.4547967933779, 0.45)
    pt3dadd(26.7433217443758, 294.165788634571, 20.5494949266806, 0.45)
    pt3dadd(26.8555540529414, 295.154947960697, 20.6441930599833, 0.45)
    pt3dadd(26.967786361507, 296.144107286824, 20.738891193286, 0.45)
    pt3dadd(27.0800186700726, 297.13326661295, 20.8335893265886, 0.45)
    pt3dadd(27.1922509786382, 298.122425939077, 20.9282874598913, 0.45)
    pt3dadd(27.3044832872038, 299.111585265203, 21.022985593194, 0.45)
    pt3dadd(27.4167155957694, 300.10074459133, 21.1176837264967, 0.45)
    pt3dadd(27.528947904335, 301.089903917456, 21.2123818597993, 0.45)
    pt3dadd(27.6411802129006, 302.079063243583, 21.307079993102, 0.45)
    pt3dadd(27.7534125214662, 303.068222569709, 21.4017781264047, 0.45)
    pt3dadd(27.8656448300318, 304.057381895836, 21.4964762597074, 0.45)
    pt3dadd(27.9778771385974, 305.046541221962, 21.5911743930101, 0.45)
    pt3dadd(28.090109447163, 306.035700548089, 21.6858725263127, 0.45)
    pt3dadd(28.2023417557286, 307.024859874215, 21.7805706596154, 0.45)
    pt3dadd(28.3145740642942, 308.014019200342, 21.8752687929181, 0.45)
    pt3dadd(28.4268063728598, 309.003178526468, 21.9699669262208, 0.45)
    pt3dadd(28.5390386814254, 309.992337852595, 22.0646650595234, 0.45)
    pt3dadd(28.651270989991, 310.981497178721, 22.1593631928261, 0.45)
    pt3dadd(28.7635032985566, 311.970656504848, 22.2540613261288, 0.45)
    pt3dadd(28.8757356071222, 312.959815830974, 22.3487594594315, 0.45)
    pt3dadd(28.9879679156878, 313.948975157101, 22.4434575927341, 0.45)
    pt3dadd(29.1002002242534, 314.938134483227, 22.5381557260368, 0.45)
    pt3dadd(29.212432532819, 315.927293809354, 22.6328538593395, 0.45)
    pt3dadd(29.3246648413846, 316.91645313548, 22.7275519926422, 0.45)
    pt3dadd(29.4368971499502, 317.905612461607, 22.8222501259448, 0.45)
    pt3dadd(29.5491294585158, 318.894771787733, 22.9169482592475, 0.45)
    pt3dadd(29.6613617670814, 319.883931113859, 23.0116463925502, 0.45)
    pt3dadd(29.773594075647, 320.873090439986, 23.1063445258529, 0.45)
    pt3dadd(29.8858263842126, 321.862249766113, 23.2010426591555, 0.45)
    pt3dadd(29.9980586927782, 322.851409092239, 23.2957407924582, 0.45)
    pt3dadd(30.1102910013438, 323.840568418365, 23.3904389257609, 0.45)
    pt3dadd(30.2225233099094, 324.829727744492, 23.4851370590636, 0.45)
    pt3dadd(30.334755618475, 325.818887070619, 23.5798351923662, 0.45)
    pt3dadd(30.4469879270406, 326.808046396745, 23.6745333256689, 0.45)
    pt3dadd(30.5592202356062, 327.797205722871, 23.7692314589716, 0.45)
    pt3dadd(30.6714525441718, 328.786365048998, 23.8639295922743, 0.45)
    pt3dadd(30.7836848527374, 329.775524375125, 23.9586277255769, 0.45)
    pt3dadd(30.895917161303, 330.764683701251, 24.0533258588796, 0.45)
    pt3dadd(31.0081494698686, 331.753843027377, 24.1480239921823, 0.45)
    pt3dadd(31.1203817784342, 332.743002353504, 24.242722125485, 0.45)
    pt3dadd(31.2326140869998, 333.732161679631, 24.3374202587876, 0.45)
    pt3dadd(31.3448463955654, 334.721321005757, 24.4321183920903, 0.45)
    pt3dadd(31.457078704131, 335.710480331883, 24.526816525393, 0.45)
    pt3dadd(31.5693110126965, 336.69963965801, 24.6215146586957, 0.45)
    pt3dadd(31.6815433212621, 337.688798984136, 24.7162127919983, 0.45)
    pt3dadd(31.7937756298277, 338.677958310263, 24.810910925301, 0.45)
    pt3dadd(31.9060079383933, 339.667117636389, 24.9056090586037, 0.45)
    pt3dadd(32.0182402469589, 340.656276962516, 25.0003071919064, 0.45)
    pt3dadd(32.1304725555245, 341.645436288642, 25.095005325209, 0.45)
    pt3dadd(32.2427048640901, 342.634595614769, 25.1897034585117, 0.45)
    pt3dadd(32.3549371726557, 343.623754940895, 25.2844015918144, 0.45)
    pt3dadd(32.4671694812213, 344.612914267022, 25.3790997251171, 0.45)
    pt3dadd(32.5794017897869, 345.602073593148, 25.4737978584198, 0.45)
    pt3dadd(32.6916340983525, 346.591232919275, 25.5684959917224, 0.45)
    pt3dadd(32.8038664069181, 347.580392245401, 25.6631941250251, 0.45)
    pt3dadd(32.9160987154837, 348.569551571528, 25.7578922583278, 0.45)
    pt3dadd(33.0283310240493, 349.558710897654, 25.8525903916305, 0.45)
    pt3dadd(33.1405633326149, 350.547870223781, 25.9472885249331, 0.45)
    pt3dadd(33.2527956411805, 351.537029549907, 26.0419866582358, 0.45)
    pt3dadd(33.3650279497461, 352.526188876034, 26.1366847915385, 0.45)
    pt3dadd(33.4772602583117, 353.51534820216, 26.2313829248412, 0.45)
    pt3dadd(33.5894925668773, 354.504507528287, 26.3260810581438, 0.45)
    pt3dadd(33.7017248754429, 355.493666854413, 26.4207791914465, 0.45)
    pt3dadd(33.8139571840085, 356.48282618054, 26.5154773247492, 0.45)
    pt3dadd(33.9261894925741, 357.471985506666, 26.6101754580519, 0.45)
    pt3dadd(34.0384218011397, 358.461144832793, 26.7048735913545, 0.45)
    pt3dadd(34.1506541097053, 359.450304158919, 26.7995717246572, 0.45)
    pt3dadd(34.2628864182709, 360.439463485046, 26.8942698579599, 0.45)
    pt3dadd(34.3751187268365, 361.428622811172, 26.9889679912626, 0.45)
    pt3dadd(34.4873510354021, 362.417782137299, 27.0836661245652, 0.45)
    pt3dadd(34.5995833439677, 363.406941463425, 27.1783642578679, 0.45)
    pt3dadd(34.7118156525333, 364.396100789552, 27.2730623911706, 0.45)
    pt3dadd(34.8240479610989, 365.385260115678, 27.3677605244733, 0.45)
    pt3dadd(34.9362802696645, 366.374419441805, 27.4624586577759, 0.45)
    pt3dadd(35.0485125782301, 367.363578767931, 27.5571567910786, 0.45)
    pt3dadd(35.1607448867957, 368.352738094058, 27.6518549243813, 0.45)
    pt3dadd(35.2729771953613, 369.341897420184, 27.746553057684, 0.45)
    pt3dadd(35.3852095039269, 370.331056746311, 27.8412511909866, 0.45)
    pt3dadd(35.4974418124925, 371.320216072437, 27.9359493242893, 0.45)
    pt3dadd(35.6096741210581, 372.309375398564, 28.030647457592, 0.45)
    pt3dadd(35.7219064296237, 373.29853472469, 28.1253455908947, 0.45)
    pt3dadd(35.8341387381893, 374.287694050817, 28.2200437241973, 0.45)
    pt3dadd(35.9463710467549, 375.276853376943, 28.3147418575, 0.45)
    pt3dadd(36.0586033553205, 376.26601270307, 28.4094399908027, 0.45)
    pt3dadd(36.1708356638861, 377.255172029196, 28.5041381241054, 0.45)
    pt3dadd(36.2830679724517, 378.244331355323, 28.598836257408, 0.45)
    pt3dadd(36.3953002810173, 379.233490681449, 28.6935343907107, 0.45)
    pt3dadd(36.5075325895829, 380.222650007576, 28.7882325240134, 0.45)
    pt3dadd(36.6197648981485, 381.211809333702, 28.8829306573161, 0.45)
    pt3dadd(36.7319972067141, 382.200968659829, 28.9776287906187, 0.45)
    pt3dadd(36.8442295152797, 383.190127985955, 29.0723269239214, 0.45)
    pt3dadd(36.9564618238453, 384.179287312082, 29.1670250572241, 0.45)
    pt3dadd(37.0686941324109, 385.168446638208, 29.2617231905268, 0.45)
    pt3dadd(37.1809264409765, 386.157605964335, 29.3564213238295, 0.45)
    pt3dadd(37.2931587495421, 387.146765290461, 29.4511194571321, 0.45)
    pt3dadd(37.4053910581077, 388.135924616588, 29.5458175904348, 0.45)
    pt3dadd(37.5176233666733, 389.125083942714, 29.6405157237375, 0.45)
    pt3dadd(37.6298556752389, 390.114243268841, 29.7352138570402, 0.45)
    pt3dadd(37.7420879838045, 391.103402594967, 29.8299119903428, 0.45)
    pt3dadd(37.8543202923701, 392.092561921094, 29.9246101236455, 0.45)
    pt3dadd(37.9665526009357, 393.08172124722, 30.0193082569482, 0.45)
    pt3dadd(38.0787849095013, 394.070880573347, 30.1140063902509, 0.45)
    pt3dadd(38.1910172180669, 395.060039899473, 30.2087045235535, 0.45)
    pt3dadd(38.3032495266325, 396.0491992256, 30.3034026568562, 0.45)
    pt3dadd(38.4154818351981, 397.038358551726, 30.3981007901589, 0.45)
    pt3dadd(38.5277141437636, 398.027517877853, 30.4927989234616, 0.45)
    pt3dadd(38.6399464523293, 399.016677203979, 30.5874970567642, 0.45)
    pt3dadd(38.7521787608949, 400.005836530106, 30.6821951900669, 0.45)
    pt3dadd(38.8644110694604, 400.994995856232, 30.7768933233696, 0.45)
    pt3dadd(38.976643378026, 401.984155182359, 30.8715914566723, 0.45)
    pt3dadd(39.0888756865916, 402.973314508485, 30.9662895899749, 0.45)
    pt3dadd(39.2011079951572, 403.962473834612, 31.0609877232776, 0.45)
    pt3dadd(39.3133403037228, 404.951633160738, 31.1556858565803, 0.45)
    pt3dadd(39.4255726122884, 405.940792486865, 31.250383989883, 0.45)
    pt3dadd(39.537804920854, 406.929951812991, 31.3450821231856, 0.45)
    pt3dadd(39.6500372294196, 407.919111139118, 31.4397802564883, 0.45)
    pt3dadd(39.7622695379852, 408.908270465244, 31.534478389791, 0.45)
    pt3dadd(39.8745018465508, 409.897429791371, 31.6291765230937, 0.45)
    pt3dadd(39.9867341551164, 410.886589117497, 31.7238746563963, 0.45)
    pt3dadd(40.098966463682, 411.875748443624, 31.818572789699, 0.45)
    pt3dadd(40.2111987722476, 412.86490776975, 31.9132709230017, 0.45)
    pt3dadd(40.3234310808132, 413.854067095877, 32.0079690563044, 0.45)
    pt3dadd(40.4356633893788, 414.843226422003, 32.102667189607, 0.45)
    pt3dadd(40.5478956979444, 415.83238574813, 32.1973653229097, 0.45)
    pt3dadd(40.66012800651, 416.821545074256, 32.2920634562124, 0.45)
    pt3dadd(40.7723603150756, 417.810704400383, 32.3867615895151, 0.45)
    pt3dadd(40.8845926236412, 418.799863726509, 32.4814597228177, 0.45)
    pt3dadd(40.9968249322068, 419.789023052636, 32.5761578561204, 0.45)
    pt3dadd(41.1090572407724, 420.778182378762, 32.6708559894231, 0.45)
    pt3dadd(41.221289549338, 421.767341704889, 32.7655541227258, 0.45)
    pt3dadd(41.3335218579036, 422.756501031015, 32.8602522560285, 0.45)
    pt3dadd(41.4457541664692, 423.745660357142, 32.9549503893311, 0.45)
    pt3dadd(41.5579864750348, 424.734819683268, 33.0496485226338, 0.45)
    pt3dadd(41.6702187836004, 425.723979009395, 33.1443466559365, 0.45)
    pt3dadd(41.782451092166, 426.713138335521, 33.2390447892392, 0.45)
    pt3dadd(41.8946834007316, 427.702297661648, 33.3337429225418, 0.45)
    pt3dadd(42.0069157092972, 428.691456987774, 33.4284410558445, 0.45)
    pt3dadd(42.1191480178628, 429.680616313901, 33.5231391891472, 0.45)
    pt3dadd(42.2313803264284, 430.669775640027, 33.6178373224499, 0.45)
    pt3dadd(42.343612634994, 431.658934966154, 33.7125354557525, 0.45)
    pt3dadd(42.4558449435596, 432.64809429228, 33.8072335890552, 0.45)
    pt3dadd(42.5680772521252, 433.637253618407, 33.9019317223579, 0.45)
    pt3dadd(42.6803095606908, 434.626412944533, 33.9966298556606, 0.45)
    pt3dadd(42.7925418692564, 435.61557227066, 34.0913279889632, 0.45)
    pt3dadd(42.904774177822, 436.604731596786, 34.1860261222659, 0.45)
    pt3dadd(43.0170064863876, 437.593890922913, 34.2807242555686, 0.45)
    pt3dadd(43.1292387949532, 438.583050249039, 34.3754223888713, 0.45)
    pt3dadd(43.2414711035188, 439.572209575166, 34.4701205221739, 0.45)
    pt3dadd(43.3537034120844, 440.561368901292, 34.5648186554766, 0.45)
    pt3dadd(43.46593572065, 441.550528227419, 34.6595167887793, 0.45)
    pt3dadd(43.5781680292156, 442.539687553545, 34.754214922082, 0.45)
    pt3dadd(43.6904003377812, 443.528846879672, 34.8489130553846, 0.45)
    pt3dadd(43.8026326463468, 444.518006205798, 34.9436111886873, 0.45)
    pt3dadd(43.9148649549124, 445.507165531925, 35.03830932199, 0.45)
    pt3dadd(44.027097263478, 446.496324858051, 35.1330074552927, 0.45)
    pt3dadd(44.1393295720436, 447.485484184178, 35.2277055885953, 0.45)
    pt3dadd(44.2515618806092, 448.474643510304, 35.322403721898, 0.45)
    pt3dadd(44.3637941891748, 449.463802836431, 35.4171018552007, 0.45)
    pt3dadd(44.4760264977404, 450.452962162557, 35.5117999885034, 0.45)
    pt3dadd(44.588258806306, 451.442121488684, 35.606498121806, 0.45)
    pt3dadd(44.7004911148716, 452.43128081481, 35.7011962551087, 0.45)
    pt3dadd(44.8127234234372, 453.420440140937, 35.7958943884114, 0.45)
    pt3dadd(44.9249557320028, 454.409599467063, 35.8905925217141, 0.45)
    pt3dadd(45.0371880405684, 455.39875879319, 35.9852906550167, 0.45)
    pt3dadd(45.149420349134, 456.387918119316, 36.0799887883194, 0.45)
    pt3dadd(45.2616526576996, 457.377077445443, 36.1746869216221, 0.45)
    pt3dadd(45.3738849662652, 458.366236771569, 36.2693850549248, 0.45)
    pt3dadd(45.4861172748308, 459.355396097696, 36.3640831882275, 0.45)
    pt3dadd(45.5983495833964, 460.344555423822, 36.4587813215301, 0.45)
    pt3dadd(45.710581891962, 461.333714749949, 36.5534794548328, 0.45)
    pt3dadd(45.8228142005275, 462.322874076075, 36.6481775881355, 0.45)
    pt3dadd(45.9350465090932, 463.312033402202, 36.7428757214382, 0.45)
    pt3dadd(46.0472788176588, 464.301192728328, 36.8375738547408, 0.45)
    pt3dadd(46.1595111262243, 465.290352054455, 36.9322719880435, 0.45)
    pt3dadd(46.2717434347899, 466.279511380581, 37.0269701213462, 0.45)
    pt3dadd(46.3839757433555, 467.268670706708, 37.1216682546489, 0.45)
    pt3dadd(46.4962080519211, 468.257830032834, 37.2163663879515, 0.45)
    pt3dadd(46.6084403604867, 469.246989358961, 37.3110645212542, 0.45)
    pt3dadd(46.7206726690523, 470.236148685087, 37.4057626545569, 0.45)
    pt3dadd(46.8329049776179, 471.225308011214, 37.5004607878596, 0.45)
    pt3dadd(46.9451372861835, 472.21446733734, 37.5951589211622, 0.45)
    pt3dadd(47.0573695947491, 473.203626663467, 37.6898570544649, 0.45)
    pt3dadd(47.1696019033147, 474.192785989593, 37.7845551877676, 0.45)
    pt3dadd(47.2818342118803, 475.18194531572, 37.8792533210703, 0.45)
    pt3dadd(47.3940665204459, 476.171104641846, 37.9739514543729, 0.45)
    pt3dadd(47.5062988290115, 477.160263967973, 38.0686495876756, 0.45)
    pt3dadd(47.6185311375771, 478.149423294099, 38.1633477209783, 0.45)
    pt3dadd(47.7307634461427, 479.138582620226, 38.258045854281, 0.45)
    pt3dadd(47.8429957547083, 480.127741946352, 38.3527439875836, 0.45)
    pt3dadd(47.9552280632739, 481.116901272479, 38.4474421208863, 0.45)
    pt3dadd(48.0674603718395, 482.106060598605, 38.542140254189, 0.45)
    pt3dadd(48.1796926804051, 483.095219924732, 38.6368383874917, 0.45)
    pt3dadd(48.2919249889707, 484.084379250858, 38.7315365207943, 0.45)
    pt3dadd(48.4041572975363, 485.073538576985, 38.826234654097, 0.45)
    pt3dadd(48.5163896061019, 486.062697903111, 38.9209327873997, 0.45)
    pt3dadd(48.6286219146675, 487.051857229238, 39.0156309207024, 0.45)
    pt3dadd(48.7408542232331, 488.041016555364, 39.110329054005, 0.45)
    pt3dadd(48.8530865317987, 489.03017588149, 39.2050271873077, 0.45)
    pt3dadd(48.9653188403643, 490.019335207617, 39.2997253206104, 0.45)
    pt3dadd(49.0775511489299, 491.008494533743, 39.3944234539131, 0.45)
    pt3dadd(49.1897834574955, 491.99765385987, 39.4891215872157, 0.45)
    pt3dadd(49.3020157660611, 492.986813185996, 39.5838197205184, 0.45)
    pt3dadd(49.4142480746267, 493.975972512123, 39.6785178538211, 0.45)
    pt3dadd(49.5264803831923, 494.965131838249, 39.7732159871238, 0.45)
    pt3dadd(49.6387126917579, 495.954291164376, 39.8679141204264, 0.45)
    pt3dadd(49.7509450003235, 496.943450490502, 39.9626122537291, 0.45)
    pt3dadd(49.8631773088891, 497.932609816629, 40.0573103870318, 0.45)
    pt3dadd(49.9754096174547, 498.921769142755, 40.1520085203345, 0.45)
    pt3dadd(50.0876419260203, 499.910928468882, 40.2467066536372, 0.45)
    pt3dadd(50.1998742345859, 500.900087795008, 40.3414047869398, 0.45)
    pt3dadd(50.3121065431515, 501.889247121135, 40.4361029202425, 0.45)
    pt3dadd(50.4243388517171, 502.878406447261, 40.5308010535452, 0.45)
    pt3dadd(50.5365711602827, 503.867565773388, 40.6254991868479, 0.45)
    pt3dadd(50.6488034688483, 504.856725099514, 40.7201973201505, 0.45)
    pt3dadd(50.7610357774139, 505.845884425641, 40.8148954534532, 0.45)
    pt3dadd(50.8732680859795, 506.835043751767, 40.9095935867559, 0.45)
    pt3dadd(50.9855003945451, 507.824203077894, 41.0042917200586, 0.45)
    pt3dadd(51.0977327031107, 508.81336240402, 41.0989898533612, 0.45)
    pt3dadd(51.2099650116763, 509.802521730147, 41.1936879866639, 0.45)
    pt3dadd(51.3221973202419, 510.791681056273, 41.2883861199666, 0.45)
    pt3dadd(51.4344296288075, 511.7808403824, 41.3830842532693, 0.45)
    pt3dadd(51.5466619373731, 512.769999708526, 41.4777823865719, 0.45)
    pt3dadd(51.6588942459387, 513.759159034653, 41.5724805198746, 0.45)
    pt3dadd(51.7711265545043, 514.748318360779, 41.6671786531773, 0.45)
    pt3dadd(51.8833588630699, 515.737477686906, 41.76187678648, 0.45)
    pt3dadd(51.9955911716355, 516.726637013032, 41.8565749197826, 0.45)
    pt3dadd(52.1078234802011, 517.715796339159, 41.9512730530853, 0.45)
    pt3dadd(52.2200557887667, 518.704955665285, 42.045971186388, 0.45)
    pt3dadd(52.3322880973323, 519.694114991412, 42.1406693196907, 0.45)
    pt3dadd(52.4445204058979, 520.683274317538, 42.2353674529933, 0.45)
    pt3dadd(52.5567527144635, 521.672433643665, 42.330065586296, 0.45)
    pt3dadd(52.6689850230291, 522.661592969791, 42.4247637195987, 0.45)
    pt3dadd(52.7812173315947, 523.650752295918, 42.5194618529014, 0.45)
    pt3dadd(52.8934496401603, 524.639911622044, 42.614159986204, 0.45)
    pt3dadd(53.0056819487259, 525.629070948171, 42.7088581195067, 0.45)
    pt3dadd(53.1179142572914, 526.618230274297, 42.8035562528094, 0.45)
    pt3dadd(53.2301465658571, 527.607389600424, 42.8982543861121, 0.45)
  }
}
proc shape3d_18() {
  axon[0] {
    pt3dadd(53.3423788744227, 528.59654892655, 42.9929525194147, 0.45)
    pt3dadd(53.4546111829882, 529.585708252677, 43.0876506527174, 0.45)
    pt3dadd(53.5668434915538, 530.574867578803, 43.1823487860201, 0.45)
    pt3dadd(53.6790758001194, 531.56402690493, 43.2770469193228, 0.45)
    pt3dadd(53.791308108685, 532.553186231056, 43.3717450526255, 0.45)
    pt3dadd(53.9035404172506, 533.542345557183, 43.4664431859281, 0.45)
    pt3dadd(54.0157727258162, 534.531504883309, 43.5611413192308, 0.45)
    pt3dadd(54.1280050343818, 535.520664209436, 43.6558394525335, 0.45)
    pt3dadd(54.2402373429474, 536.509823535562, 43.7505375858361, 0.45)
    pt3dadd(54.352469651513, 537.498982861689, 43.8452357191388, 0.45)
    pt3dadd(54.4647019600786, 538.488142187815, 43.9399338524415, 0.45)
    pt3dadd(54.5769342686442, 539.477301513942, 44.0346319857442, 0.45)
    pt3dadd(54.6891665772098, 540.466460840068, 44.1293301190469, 0.45)
    pt3dadd(54.8013988857754, 541.455620166195, 44.2240282523495, 0.45)
    pt3dadd(54.913631194341, 542.444779492321, 44.3187263856522, 0.45)
    pt3dadd(55.0258635029066, 543.433938818448, 44.4134245189549, 0.45)
    pt3dadd(55.1380958114722, 544.423098144574, 44.5081226522576, 0.45)
    pt3dadd(55.2503281200378, 545.412257470701, 44.6028207855602, 0.45)
    pt3dadd(55.3625604286034, 546.401416796827, 44.6975189188629, 0.45)
    pt3dadd(55.474792737169, 547.390576122954, 44.7922170521656, 0.45)
    pt3dadd(55.5870250457346, 548.37973544908, 44.8869151854683, 0.45)
    pt3dadd(55.6992573543002, 549.368894775207, 44.9816133187709, 0.45)
    pt3dadd(55.8114896628658, 550.358054101333, 45.0763114520736, 0.45)
    pt3dadd(55.9237219714314, 551.34721342746, 45.1710095853763, 0.45)
    pt3dadd(56.035954279997, 552.336372753586, 45.265707718679, 0.45)
    pt3dadd(56.1481865885626, 553.325532079713, 45.3604058519816, 0.45)
    pt3dadd(56.2604188971282, 554.314691405839, 45.4551039852843, 0.45)
    pt3dadd(56.3726512056938, 555.303850731966, 45.549802118587, 0.45)
    pt3dadd(56.4848835142594, 556.293010058092, 45.6445002518897, 0.45)
    pt3dadd(56.597115822825, 557.282169384219, 45.7391983851923, 0.45)
    pt3dadd(56.7093481313906, 558.271328710345, 45.833896518495, 0.45)
    pt3dadd(56.8215804399562, 559.260488036472, 45.9285946517977, 0.45)
    pt3dadd(56.9338127485218, 560.249647362598, 46.0232927851004, 0.45)
    pt3dadd(57.0460450570874, 561.238806688725, 46.117990918403, 0.45)
    pt3dadd(57.158277365653, 562.227966014851, 46.2126890517057, 0.45)
    pt3dadd(57.2705096742186, 563.217125340978, 46.3073871850084, 0.45)
    pt3dadd(57.3827419827842, 564.206284667104, 46.4020853183111, 0.45)
    pt3dadd(57.4949742913498, 565.195443993231, 46.4967834516137, 0.45)
    pt3dadd(57.6072065999154, 566.184603319357, 46.5914815849164, 0.45)
    pt3dadd(57.719438908481, 567.173762645484, 46.6861797182191, 0.45)
    pt3dadd(57.8316712170466, 568.16292197161, 46.7808778515218, 0.45)
    pt3dadd(57.9439035256122, 569.152081297737, 46.8755759848245, 0.45)
    pt3dadd(58.0561358341778, 570.141240623863, 46.9702741181271, 0.45)
    pt3dadd(58.1683681427434, 571.13039994999, 47.0649722514298, 0.45)
    pt3dadd(58.280600451309, 572.119559276116, 47.1596703847325, 0.45)
    pt3dadd(58.3928327598746, 573.108718602243, 47.2543685180352, 0.45)
    pt3dadd(58.5050650684402, 574.097877928369, 47.3490666513378, 0.45)
    pt3dadd(58.6172973770058, 575.087037254496, 47.4437647846405, 0.45)
    pt3dadd(58.7295296855714, 576.076196580622, 47.5384629179432, 0.45)
    pt3dadd(58.841761994137, 577.065355906749, 47.6331610512459, 0.45)
    pt3dadd(58.9539943027026, 578.054515232875, 47.7278591845485, 0.45)
    pt3dadd(59.0662266112682, 579.043674559002, 47.8225573178512, 0.45)
    pt3dadd(59.1784589198338, 580.032833885128, 47.9172554511539, 0.45)
    pt3dadd(59.2906912283994, 581.021993211255, 48.0119535844566, 0.45)
    pt3dadd(59.402923536965, 582.011152537381, 48.1066517177592, 0.45)
    pt3dadd(59.5151558455306, 583.000311863508, 48.2013498510619, 0.45)
    pt3dadd(59.6273881540962, 583.989471189634, 48.2960479843646, 0.45)
    pt3dadd(59.7396204626618, 584.978630515761, 48.3907461176673, 0.45)
    pt3dadd(59.8518527712274, 585.967789841887, 48.4854442509699, 0.45)
    pt3dadd(59.964085079793, 586.956949168014, 48.5801423842726, 0.45)
    pt3dadd(60.0763173883586, 587.94610849414, 48.6748405175753, 0.45)
    pt3dadd(60.1885496969242, 588.935267820267, 48.769538650878, 0.45)
    pt3dadd(60.3007820054898, 589.924427146393, 48.8642367841806, 0.45)
    pt3dadd(60.4130143140553, 590.91358647252, 48.9589349174833, 0.45)
    pt3dadd(60.525246622621, 591.902745798646, 49.053633050786, 0.45)
    pt3dadd(60.6374789311866, 592.891905124773, 49.1483311840887, 0.45)
    pt3dadd(60.7497112397521, 593.881064450899, 49.2430293173913, 0.45)
    pt3dadd(60.8619435483177, 594.870223777026, 49.337727450694, 0.45)
    pt3dadd(60.9741758568833, 595.859383103152, 49.4324255839967, 0.45)
    pt3dadd(61.0864081654489, 596.848542429279, 49.5271237172994, 0.45)
    pt3dadd(61.1986404740145, 597.837701755405, 49.621821850602, 0.45)
    pt3dadd(61.3108727825801, 598.826861081532, 49.7165199839047, 0.45)
    pt3dadd(61.4231050911457, 599.816020407658, 49.8112181172074, 0.45)
    pt3dadd(61.5353373997113, 600.805179733785, 49.9059162505101, 0.45)
    pt3dadd(61.6475697082769, 601.794339059911, 50.0006143838127, 0.45)
    pt3dadd(61.7598020168425, 602.783498386038, 50.0953125171154, 0.45)
    pt3dadd(61.8720343254081, 603.772657712164, 50.1900106504181, 0.45)
    pt3dadd(61.9842666339737, 604.761817038291, 50.2847087837208, 0.45)
    pt3dadd(62.0964989425393, 605.750976364417, 50.3794069170234, 0.45)
    pt3dadd(62.2087312511049, 606.740135690544, 50.4741050503261, 0.45)
    pt3dadd(62.3209635596705, 607.72929501667, 50.5688031836288, 0.45)
    pt3dadd(62.4331958682361, 608.718454342797, 50.6635013169315, 0.45)
    pt3dadd(62.5454281768017, 609.707613668923, 50.7581994502342, 0.45)
    pt3dadd(62.6576604853673, 610.69677299505, 50.8528975835368, 0.45)
    pt3dadd(62.7698927939329, 611.685932321176, 50.9475957168395, 0.45)
    pt3dadd(62.8821251024985, 612.675091647303, 51.0422938501422, 0.45)
    pt3dadd(62.9943574110641, 613.664250973429, 51.1369919834449, 0.45)
    pt3dadd(63.1065897196297, 614.653410299556, 51.2316901167475, 0.45)
    pt3dadd(63.2188220281953, 615.642569625682, 51.3263882500502, 0.45)
    pt3dadd(63.3310543367609, 616.631728951809, 51.4210863833529, 0.45)
    pt3dadd(63.4432866453265, 617.620888277935, 51.5157845166556, 0.45)
    pt3dadd(63.5555189538921, 618.610047604061, 51.6104826499582, 0.45)
    pt3dadd(63.6677512624577, 619.599206930188, 51.7051807832609, 0.45)
    pt3dadd(63.7799835710233, 620.588366256315, 51.7998789165636, 0.45)
    pt3dadd(63.8922158795889, 621.577525582441, 51.8945770498663, 0.45)
    pt3dadd(64.0044481881545, 622.566684908568, 51.9892751831689, 0.45)
    pt3dadd(64.1166804967201, 623.555844234694, 52.0839733164716, 0.45)
    pt3dadd(64.2289128052857, 624.545003560821, 52.1786714497743, 0.45)
    pt3dadd(64.3411451138513, 625.534162886947, 52.273369583077, 0.45)
    pt3dadd(64.4533774224169, 626.523322213073, 52.3680677163796, 0.45)
    pt3dadd(64.5656097309825, 627.5124815392, 52.4627658496823, 0.45)
    pt3dadd(64.6778420395481, 628.501640865327, 52.557463982985, 0.45)
    pt3dadd(64.7900743481137, 629.490800191453, 52.6521621162877, 0.45)
    pt3dadd(64.9023066566793, 630.47995951758, 52.7468602495903, 0.45)
    pt3dadd(65.0145389652449, 631.469118843706, 52.841558382893, 0.45)
    pt3dadd(65.1267712738105, 632.458278169833, 52.9362565161957, 0.45)
    pt3dadd(65.2390035823761, 633.447437495959, 53.0309546494984, 0.45)
    pt3dadd(65.3512358909417, 634.436596822085, 53.125652782801, 0.45)
    pt3dadd(65.4634681995073, 635.425756148212, 53.2203509161037, 0.45)
    pt3dadd(65.5757005080729, 636.414915474339, 53.3150490494064, 0.45)
    pt3dadd(65.6879328166385, 637.404074800465, 53.4097471827091, 0.45)
    pt3dadd(65.8001651252041, 638.393234126592, 53.5044453160117, 0.45)
    pt3dadd(65.9123974337697, 639.382393452718, 53.5991434493144, 0.45)
    pt3dadd(66.0246297423353, 640.371552778844, 53.6938415826171, 0.45)
    pt3dadd(66.1368620509009, 641.360712104971, 53.7885397159198, 0.45)
    pt3dadd(66.2490943594665, 642.349871431097, 53.8832378492224, 0.45)
    pt3dadd(66.3613266680321, 643.339030757224, 53.9779359825251, 0.45)
    pt3dadd(66.4735589765977, 644.328190083351, 54.0726341158278, 0.45)
    pt3dadd(66.5857912851633, 645.317349409477, 54.1673322491305, 0.45)
    pt3dadd(66.6980235937289, 646.306508735604, 54.2620303824331, 0.45)
    pt3dadd(66.8102559022945, 647.29566806173, 54.3567285157358, 0.45)
    pt3dadd(66.9224882108601, 648.284827387856, 54.4514266490385, 0.45)
    pt3dadd(67.0347205194257, 649.273986713983, 54.5461247823412, 0.45)
    pt3dadd(67.1469528279913, 650.263146040109, 54.6408229156439, 0.45)
    pt3dadd(67.2591851365569, 651.252305366236, 54.7355210489465, 0.45)
    pt3dadd(67.3714174451224, 652.241464692362, 54.8302191822492, 0.45)
    pt3dadd(67.4836497536881, 653.230624018489, 54.9249173155519, 0.45)
    pt3dadd(67.5958820622537, 654.219783344616, 55.0196154488546, 0.45)
    pt3dadd(67.7081143708192, 655.208942670742, 55.1143135821572, 0.45)
    pt3dadd(67.8203466793848, 656.198101996868, 55.2090117154599, 0.45)
    pt3dadd(67.9325789879505, 657.187261322995, 55.3037098487626, 0.45)
    pt3dadd(68.044811296516, 658.176420649121, 55.3984079820653, 0.45)
    pt3dadd(68.1570436050816, 659.165579975248, 55.4931061153679, 0.45)
    pt3dadd(68.2692759136472, 660.154739301374, 55.5878042486706, 0.45)
    pt3dadd(68.3815082222128, 661.143898627501, 55.6825023819733, 0.45)
    pt3dadd(68.4937405307784, 662.133057953627, 55.777200515276, 0.45)
    pt3dadd(68.605972839344, 663.122217279754, 55.8718986485786, 0.45)
    pt3dadd(68.7182051479096, 664.11137660588, 55.9665967818813, 0.45)
    pt3dadd(68.8304374564752, 665.100535932007, 56.061294915184, 0.45)
    pt3dadd(68.9426697650408, 666.089695258133, 56.1559930484867, 0.45)
    pt3dadd(69.0549020736064, 667.07885458426, 56.2506911817893, 0.45)
    pt3dadd(69.167134382172, 668.068013910386, 56.345389315092, 0.45)
    pt3dadd(69.2793666907376, 669.057173236513, 56.4400874483947, 0.45)
    pt3dadd(69.3915989993032, 670.046332562639, 56.5347855816974, 0.45)
    pt3dadd(69.5038313078688, 671.035491888766, 56.629483715, 0.45)
    pt3dadd(69.6160636164344, 672.024651214892, 56.7241818483027, 0.45)
    pt3dadd(69.728295925, 673.013810541019, 56.8188799816054, 0.45)
    pt3dadd(69.8405282335656, 674.002969867145, 56.9135781149081, 0.45)
    pt3dadd(69.9527605421312, 674.992129193272, 57.0082762482107, 0.45)
    pt3dadd(70.0649928506968, 675.981288519398, 57.1029743815134, 0.45)
    pt3dadd(70.1772251592624, 676.970447845525, 57.1976725148161, 0.45)
    pt3dadd(70.289457467828, 677.959607171651, 57.2923706481188, 0.45)
    pt3dadd(70.4016897763936, 678.948766497778, 57.3870687814214, 0.45)
    pt3dadd(70.5139220849592, 679.937925823904, 57.4817669147241, 0.45)
    pt3dadd(70.6261543935248, 680.927085150031, 57.5764650480268, 0.45)
    pt3dadd(70.7383867020904, 681.916244476157, 57.6711631813295, 0.45)
    pt3dadd(70.850619010656, 682.905403802284, 57.7658613146321, 0.45)
    pt3dadd(70.9628513192216, 683.89456312841, 57.8605594479348, 0.45)
    pt3dadd(71.0750836277872, 684.883722454537, 57.9552575812375, 0.45)
    pt3dadd(71.1873159363528, 685.872881780663, 58.0499557145402, 0.45)
    pt3dadd(71.2995482449184, 686.86204110679, 58.1446538478429, 0.45)
    pt3dadd(71.411780553484, 687.851200432916, 58.2393519811455, 0.45)
    pt3dadd(71.5240128620496, 688.840359759043, 58.3340501144482, 0.45)
    pt3dadd(71.6362451706152, 689.829519085169, 58.4287482477509, 0.45)
    pt3dadd(71.7484774791808, 690.818678411296, 58.5234463810536, 0.45)
    pt3dadd(71.8607097877464, 691.807837737422, 58.6181445143562, 0.45)
    pt3dadd(71.972942096312, 692.796997063549, 58.7128426476589, 0.45)
    pt3dadd(72.0851744048776, 693.786156389675, 58.8075407809616, 0.45)
    pt3dadd(72.1974067134432, 694.775315715802, 58.9022389142643, 0.45)
    pt3dadd(72.3096390220088, 695.764475041928, 58.9969370475669, 0.45)
    pt3dadd(72.4218713305744, 696.753634368055, 59.0916351808696, 0.45)
    pt3dadd(72.53410363914, 697.742793694181, 59.1863333141723, 0.45)
    pt3dadd(72.6463359477056, 698.731953020308, 59.281031447475, 0.45)
    pt3dadd(72.7585682562712, 699.721112346434, 59.3757295807776, 0.45)
    pt3dadd(72.8708005648368, 700.710271672561, 59.4704277140803, 0.45)
    pt3dadd(72.9830328734024, 701.699430998687, 59.565125847383, 0.45)
    pt3dadd(73.095265181968, 702.688590324814, 59.6598239806857, 0.45)
    pt3dadd(73.2074974905336, 703.67774965094, 59.7545221139883, 0.45)
    pt3dadd(73.3197297990992, 704.666908977067, 59.849220247291, 0.45)
    pt3dadd(73.4319621076648, 705.656068303193, 59.9439183805937, 0.45)
    pt3dadd(73.5441944162304, 706.64522762932, 60.0386165138964, 0.45)
    pt3dadd(73.656426724796, 707.634386955446, 60.133314647199, 0.45)
    pt3dadd(73.7686590333616, 708.623546281573, 60.2280127805017, 0.45)
    pt3dadd(73.8808913419272, 709.612705607699, 60.3227109138044, 0.45)
    pt3dadd(73.9931236504928, 710.601864933826, 60.4174090471071, 0.45)
    pt3dadd(74.1053559590584, 711.591024259952, 60.5121071804097, 0.45)
    pt3dadd(74.217588267624, 712.580183586079, 60.6068053137124, 0.45)
    pt3dadd(74.3298205761896, 713.569342912205, 60.7015034470151, 0.45)
    pt3dadd(74.4420528847552, 714.558502238332, 60.7962015803178, 0.45)
    pt3dadd(74.5542851933208, 715.547661564458, 60.8908997136204, 0.45)
    pt3dadd(74.6665175018863, 716.536820890585, 60.9855978469231, 0.45)
    pt3dadd(74.778749810452, 717.525980216711, 61.0802959802258, 0.45)
    pt3dadd(74.8909821190176, 718.515139542838, 61.1749941135285, 0.45)
    pt3dadd(75.0032144275831, 719.504298868964, 61.2696922468311, 0.45)
    pt3dadd(75.1154467361487, 720.493458195091, 61.3643903801338, 0.45)
    pt3dadd(75.2276790447144, 721.482617521217, 61.4590885134365, 0.45)
    pt3dadd(75.3399113532799, 722.471776847344, 61.5537866467392, 0.45)
    pt3dadd(75.4521436618455, 723.46093617347, 61.6484847800418, 0.45)
    pt3dadd(75.5643759704111, 724.450095499597, 61.7431829133445, 0.45)
    pt3dadd(75.6766082789767, 725.439254825723, 61.8378810466472, 0.45)
    pt3dadd(75.7888405875423, 726.42841415185, 61.9325791799499, 0.45)
    pt3dadd(75.9010728961079, 727.417573477976, 62.0272773132526, 0.45)
    pt3dadd(76.0133052046735, 728.406732804103, 62.1219754465552, 0.45)
    pt3dadd(76.1255375132391, 729.395892130229, 62.2166735798579, 0.45)
    pt3dadd(76.2377698218047, 730.385051456356, 62.3113717131606, 0.45)
    pt3dadd(76.3500021303703, 731.374210782482, 62.4060698464633, 0.45)
    pt3dadd(76.4622344389359, 732.363370108609, 62.5007679797659, 0.45)
    pt3dadd(76.5744667475015, 733.352529434735, 62.5954661130686, 0.45)
    pt3dadd(76.6866990560671, 734.341688760862, 62.6901642463713, 0.45)
    pt3dadd(76.7989313646327, 735.330848086988, 62.784862379674, 0.45)
    pt3dadd(76.9111636731983, 736.320007413115, 62.8795605129766, 0.45)
    pt3dadd(77.0233959817639, 737.309166739241, 62.9742586462793, 0.45)
    pt3dadd(77.1356282903295, 738.298326065368, 63.068956779582, 0.45)
    pt3dadd(77.2478605988951, 739.287485391494, 63.1636549128847, 0.45)
    pt3dadd(77.3600929074607, 740.276644717621, 63.2583530461873, 0.45)
    pt3dadd(77.4723252160263, 741.265804043747, 63.35305117949, 0.45)
    pt3dadd(77.5845575245919, 742.254963369874, 63.4477493127927, 0.45)
    pt3dadd(77.6967898331575, 743.244122696, 63.5424474460954, 0.45)
    pt3dadd(77.8090221417231, 744.233282022127, 63.637145579398, 0.45)
    pt3dadd(77.9212544502887, 745.222441348253, 63.7318437127007, 0.45)
    pt3dadd(78.0334867588543, 746.21160067438, 63.8265418460034, 0.45)
    pt3dadd(78.1457190674199, 747.200760000506, 63.9212399793061, 0.45)
    pt3dadd(78.2579513759855, 748.189919326633, 64.0159381126087, 0.45)
    pt3dadd(78.3701836845511, 749.179078652759, 64.1106362459114, 0.45)
    pt3dadd(78.4824159931167, 750.168237978886, 64.2053343792141, 0.45)
    pt3dadd(78.5946483016823, 751.157397305012, 64.3000325125168, 0.45)
    pt3dadd(78.7068806102479, 752.146556631139, 64.3947306458195, 0.45)
    pt3dadd(78.8191129188135, 753.135715957265, 64.4894287791221, 0.45)
    pt3dadd(78.9313452273791, 754.124875283392, 64.5841269124248, 0.45)
    pt3dadd(79.0435775359447, 755.114034609518, 64.6788250457275, 0.45)
    pt3dadd(79.1558098445103, 756.103193935645, 64.7735231790302, 0.45)
    pt3dadd(79.2680421530759, 757.092353261771, 64.8682213123328, 0.45)
    pt3dadd(79.3802744616415, 758.081512587898, 64.9629194456355, 0.45)
    pt3dadd(79.4925067702071, 759.070671914024, 65.0576175789382, 0.45)
    pt3dadd(79.6047390787727, 760.059831240151, 65.1523157122408, 0.45)
    pt3dadd(79.7169713873383, 761.048990566277, 65.2470138455435, 0.45)
    pt3dadd(79.8292036959039, 762.038149892404, 65.3417119788462, 0.45)
    pt3dadd(79.9414360044695, 763.02730921853, 65.4364101121489, 0.45)
    pt3dadd(80.0536683130351, 764.016468544657, 65.5311082454515, 0.45)
    pt3dadd(80.1659006216007, 765.005627870783, 65.6258063787542, 0.45)
    pt3dadd(80.2781329301663, 765.99478719691, 65.7205045120569, 0.45)
    pt3dadd(80.3903652387319, 766.983946523036, 65.8152026453596, 0.45)
    pt3dadd(80.5025975472975, 767.973105849162, 65.9099007786622, 0.45)
    pt3dadd(80.6148298558631, 768.962265175289, 66.0045989119649, 0.45)
    pt3dadd(80.7270621644287, 769.951424501416, 66.0992970452676, 0.45)
    pt3dadd(80.8392944729943, 770.940583827542, 66.1939951785703, 0.45)
    pt3dadd(80.9515267815599, 771.929743153669, 66.288693311873, 0.45)
    pt3dadd(81.0637590901255, 772.918902479795, 66.3833914451756, 0.45)
    pt3dadd(81.1759913986911, 773.908061805922, 66.4780895784783, 0.45)
  }
}
proc shape3d_19() {
  axon[0] {
    pt3dadd(81.2882237072567, 774.897221132048, 66.572787711781, 0.45)
    pt3dadd(81.4004560158223, 775.886380458174, 66.6674858450837, 0.45)
    pt3dadd(81.5126883243879, 776.875539784301, 66.7621839783863, 0.45)
    pt3dadd(81.6249206329535, 777.864699110428, 66.856882111689, 0.45)
    pt3dadd(81.7371529415191, 778.853858436554, 66.9515802449917, 0.45)
    pt3dadd(81.8493852500847, 779.843017762681, 67.0462783782944, 0.45)
    pt3dadd(81.9616175586502, 780.832177088807, 67.140976511597, 0.45)
    pt3dadd(82.0738498672159, 781.821336414934, 67.2356746448997, 0.45)
    pt3dadd(82.1860821757815, 782.81049574106, 67.3303727782024, 0.45)
    pt3dadd(82.298314484347, 783.799655067186, 67.4250709115051, 0.45)
    pt3dadd(82.4105467929126, 784.788814393313, 67.5197690448077, 0.45)
    pt3dadd(82.5227791014783, 785.77797371944, 67.6144671781104, 0.45)
    pt3dadd(82.6350114100438, 786.767133045566, 67.7091653114131, 0.45)
    pt3dadd(82.7472437186094, 787.756292371693, 67.8038634447158, 0.45)
    pt3dadd(82.859476027175, 788.745451697819, 67.8985615780184, 0.45)
    pt3dadd(82.9717083357406, 789.734611023945, 67.9932597113211, 0.45)
    pt3dadd(83.0839406443062, 790.723770350072, 68.0879578446238, 0.45)
    pt3dadd(83.1961729528718, 791.712929676198, 68.1826559779265, 0.45)
    pt3dadd(83.3084052614374, 792.702089002325, 68.2773541112291, 0.45)
    pt3dadd(83.420637570003, 793.691248328452, 68.3720522445318, 0.45)
    pt3dadd(83.5328698785686, 794.680407654578, 68.4667503778345, 0.45)
    pt3dadd(83.6451021871342, 795.669566980705, 68.5614485111372, 0.45)
    pt3dadd(83.7573344956998, 796.658726306831, 68.6561466444398, 0.45)
    pt3dadd(83.8695668042654, 797.647885632957, 68.7508447777425, 0.45)
    pt3dadd(83.981799112831, 798.637044959084, 68.8455429110452, 0.45)
    pt3dadd(84.0940314213966, 799.62620428521, 68.9402410443479, 0.45)
    pt3dadd(84.2062637299622, 800.615363611337, 69.0349391776506, 0.45)
    pt3dadd(84.3184960385278, 801.604522937464, 69.1296373109532, 0.45)
    pt3dadd(84.4307283470934, 802.59368226359, 69.2243354442559, 0.45)
    pt3dadd(84.542960655659, 803.582841589717, 69.3190335775586, 0.45)
    pt3dadd(84.6551929642246, 804.572000915843, 69.4137317108613, 0.45)
    pt3dadd(84.7674252727902, 805.561160241969, 69.5084298441639, 0.45)
    pt3dadd(84.8796575813558, 806.550319568096, 69.6031279774666, 0.45)
    pt3dadd(84.9918898899214, 807.539478894222, 69.6978261107693, 0.45)
    pt3dadd(85.104122198487, 808.528638220349, 69.792524244072, 0.45)
    pt3dadd(85.2163545070526, 809.517797546476, 69.8872223773746, 0.45)
    pt3dadd(85.3285868156182, 810.506956872602, 69.9819205106773, 0.45)
    pt3dadd(85.4408191241838, 811.496116198728, 70.07661864398, 0.45)
    pt3dadd(85.5530514327494, 812.485275524855, 70.1713167772827, 0.45)
    pt3dadd(85.665283741315, 813.474434850981, 70.2660149105853, 0.45)
    pt3dadd(85.7775160498806, 814.463594177108, 70.360713043888, 0.45)
    pt3dadd(85.8897483584462, 815.452753503234, 70.4554111771907, 0.45)
    pt3dadd(86.0019806670118, 816.441912829361, 70.5501093104934, 0.45)
    pt3dadd(86.1142129755774, 817.431072155488, 70.644807443796, 0.45)
    pt3dadd(86.226445284143, 818.420231481614, 70.7395055770987, 0.45)
    pt3dadd(86.3386775927086, 819.40939080774, 70.8342037104014, 0.45)
    pt3dadd(86.4509099012742, 820.398550133867, 70.9289018437041, 0.45)
    pt3dadd(86.5631422098398, 821.387709459993, 71.0235999770067, 0.45)
    pt3dadd(86.6753745184054, 822.37686878612, 71.1182981103094, 0.45)
    pt3dadd(86.787606826971, 823.366028112246, 71.2129962436121, 0.45)
    pt3dadd(86.8998391355366, 824.355187438373, 71.3076943769148, 0.45)
    pt3dadd(87.0120714441022, 825.3443467645, 71.4023925102174, 0.45)
    pt3dadd(87.1243037526678, 826.333506090626, 71.4970906435201, 0.45)
    pt3dadd(87.2365360612334, 827.322665416752, 71.5917887768228, 0.45)
    pt3dadd(87.348768369799, 828.311824742879, 71.6864869101255, 0.45)
    pt3dadd(87.4610006783646, 829.300984069005, 71.7811850434281, 0.45)
    pt3dadd(87.5732329869302, 830.290143395132, 71.8758831767308, 0.45)
    pt3dadd(87.6854652954958, 831.279302721258, 71.9705813100335, 0.45)
    pt3dadd(87.7976976040614, 832.268462047385, 72.0652794433362, 0.45)
    pt3dadd(87.909929912627, 833.257621373511, 72.1599775766389, 0.45)
    pt3dadd(88.0221622211926, 834.246780699638, 72.2546757099415, 0.45)
    pt3dadd(88.1343945297582, 835.235940025764, 72.3493738432442, 0.45)
    pt3dadd(88.2466268383238, 836.225099351891, 72.4440719765469, 0.45)
    pt3dadd(88.3588591468894, 837.214258678017, 72.5387701098496, 0.45)
    pt3dadd(88.471091455455, 838.203418004144, 72.6334682431522, 0.45)
    pt3dadd(88.5833237640206, 839.19257733027, 72.7281663764549, 0.45)
    pt3dadd(88.6955560725862, 840.181736656397, 72.8228645097576, 0.45)
    pt3dadd(88.8077883811518, 841.170895982523, 72.9175626430603, 0.45)
    pt3dadd(88.9200206897174, 842.16005530865, 73.0122607763629, 0.45)
    pt3dadd(89.032252998283, 843.149214634776, 73.1069589096656, 0.45)
    pt3dadd(89.1444853068486, 844.138373960903, 73.2016570429683, 0.45)
    pt3dadd(89.2567176154141, 845.127533287029, 73.296355176271, 0.45)
    pt3dadd(89.3689499239798, 846.116692613156, 73.3910533095736, 0.45)
    pt3dadd(89.4811822325454, 847.105851939282, 73.4857514428763, 0.45)
    pt3dadd(89.5934145411109, 848.095011265409, 73.580449576179, 0.45)
    pt3dadd(89.7056468496765, 849.084170591535, 73.6751477094817, 0.45)
    pt3dadd(89.8178791582422, 850.073329917662, 73.7698458427843, 0.45)
    pt3dadd(89.9301114668077, 851.062489243788, 73.864543976087, 0.45)
    pt3dadd(90.0423437753733, 852.051648569915, 73.9592421093897, 0.45)
    pt3dadd(90.1545760839389, 853.040807896041, 74.0539402426924, 0.45)
    pt3dadd(90.2668083925045, 854.029967222168, 74.148638375995, 0.45)
    pt3dadd(90.3790407010701, 855.019126548294, 74.2433365092977, 0.45)
    pt3dadd(90.4912730096357, 856.008285874421, 74.3380346426004, 0.45)
    pt3dadd(90.6035053182013, 856.997445200547, 74.4327327759031, 0.45)
    pt3dadd(90.7157376267669, 857.986604526674, 74.5274309092057, 0.45)
    pt3dadd(90.8279699353325, 858.9757638528, 74.6221290425084, 0.45)
    pt3dadd(90.9402022438981, 859.964923178927, 74.7168271758111, 0.45)
    pt3dadd(91.0524345524637, 860.954082505053, 74.8115253091138, 0.45)
    pt3dadd(91.1646668610293, 861.94324183118, 74.9062234424164, 0.45)
    pt3dadd(91.2768991695949, 862.932401157306, 75.0009215757191, 0.45)
    pt3dadd(91.3891314781605, 863.921560483433, 75.0956197090218, 0.45)
    pt3dadd(91.5013637867261, 864.910719809559, 75.1903178423245, 0.45)
    pt3dadd(91.6135960952917, 865.899879135686, 75.2850159756271, 0.45)
    pt3dadd(91.7258284038573, 866.889038461812, 75.3797141089298, 0.45)
    pt3dadd(91.8380607124229, 867.878197787939, 75.4744122422325, 0.45)
    pt3dadd(91.9502930209885, 868.867357114065, 75.5691103755352, 0.45)
    pt3dadd(92.0625253295541, 869.856516440192, 75.6638085088378, 0.45)
    pt3dadd(92.1747576381197, 870.845675766318, 75.7585066421405, 0.45)
    pt3dadd(92.2869899466853, 871.834835092445, 75.8532047754432, 0.45)
    pt3dadd(92.3992222552509, 872.823994418571, 75.9479029087459, 0.45)
    pt3dadd(92.5114545638165, 873.813153744698, 76.0426010420485, 0.45)
    pt3dadd(92.6236868723821, 874.802313070824, 76.1372991753512, 0.45)
    pt3dadd(92.7359191809477, 875.791472396951, 76.2319973086539, 0.45)
    pt3dadd(92.8481514895133, 876.780631723077, 76.3266954419566, 0.45)
    pt3dadd(92.9603837980789, 877.769791049204, 76.4213935752592, 0.45)
    pt3dadd(93.0726161066445, 878.75895037533, 76.5160917085619, 0.45)
    pt3dadd(93.1848484152101, 879.748109701457, 76.6107898418646, 0.45)
    pt3dadd(93.2970807237757, 880.737269027583, 76.7054879751673, 0.45)
    pt3dadd(93.4093130323413, 881.72642835371, 76.80018610847, 0.45)
    pt3dadd(93.5215453409069, 882.715587679836, 76.8948842417726, 0.45)
    pt3dadd(93.6337776494725, 883.704747005963, 76.9895823750753, 0.45)
    pt3dadd(93.7460099580381, 884.693906332089, 77.084280508378, 0.45)
    pt3dadd(93.8582422666037, 885.683065658216, 77.1789786416807, 0.45)
    pt3dadd(93.9704745751693, 886.672224984342, 77.2736767749833, 0.45)
    pt3dadd(94.0827068837349, 887.661384310469, 77.368374908286, 0.45)
    pt3dadd(94.1949391923005, 888.650543636595, 77.4630730415887, 0.45)
    pt3dadd(94.3071715008661, 889.639702962722, 77.5577711748914, 0.45)
    pt3dadd(94.4194038094317, 890.628862288848, 77.652469308194, 0.45)
    pt3dadd(94.5316361179973, 891.618021614975, 77.7471674414967, 0.45)
    pt3dadd(94.6438684265629, 892.607180941101, 77.8418655747994, 0.45)
    pt3dadd(94.7561007351285, 893.596340267228, 77.9365637081021, 0.45)
    pt3dadd(94.8683330436941, 894.585499593354, 78.0312618414047, 0.45)
    pt3dadd(94.9805653522597, 895.574658919481, 78.1259599747074, 0.45)
    pt3dadd(95.0927976608253, 896.563818245607, 78.2206581080101, 0.45)
    pt3dadd(95.2050299693909, 897.552977571734, 78.3153562413128, 0.45)
    pt3dadd(95.3172622779565, 898.54213689786, 78.4100543746154, 0.45)
    pt3dadd(95.4294945865221, 899.531296223987, 78.5047525079181, 0.45)
    pt3dadd(95.5417268950877, 900.520455550113, 78.5994506412208, 0.45)
    pt3dadd(95.6539592036533, 901.50961487624, 78.6941487745235, 0.45)
    pt3dadd(95.7661915122189, 902.498774202366, 78.7888469078261, 0.45)
    pt3dadd(95.8784238207845, 903.487933528493, 78.8835450411288, 0.45)
    pt3dadd(95.9906561293501, 904.477092854619, 78.9782431744315, 0.45)
    pt3dadd(96.1028884379157, 905.466252180746, 79.0729413077342, 0.45)
    pt3dadd(96.2151207464813, 906.455411506872, 79.1676394410368, 0.45)
    pt3dadd(96.3273530550469, 907.444570832999, 79.2623375743395, 0.45)
    pt3dadd(96.4395853636125, 908.433730159125, 79.3570357076422, 0.45)
    pt3dadd(96.551817672178, 909.422889485252, 79.4517338409449, 0.45)
    pt3dadd(96.6640499807437, 910.412048811378, 79.5464319742476, 0.45)
    pt3dadd(96.7762822893093, 911.401208137505, 79.6411301075502, 0.45)
    pt3dadd(96.8885145978748, 912.390367463631, 79.7358282408529, 0.45)
    pt3dadd(97.0007469064404, 913.379526789758, 79.8305263741556, 0.45)
    pt3dadd(97.1129792150061, 914.368686115884, 79.9252245074583, 0.45)
    pt3dadd(97.2252115235716, 915.357845442011, 80.0199226407609, 0.45)
    pt3dadd(97.3374438321372, 916.347004768137, 80.1146207740636, 0.45)
    pt3dadd(97.4496761407028, 917.336164094263, 80.2093189073663, 0.45)
    pt3dadd(97.5619084492684, 918.32532342039, 80.304017040669, 0.45)
    pt3dadd(97.674140757834, 919.314482746517, 80.3987151739716, 0.45)
    pt3dadd(97.7863730663996, 920.303642072643, 80.4934133072743, 0.45)
    pt3dadd(97.8986053749652, 921.29280139877, 80.588111440577, 0.45)
    pt3dadd(98.0108376835308, 922.281960724896, 80.6828095738797, 0.45)
    pt3dadd(98.1230699920964, 923.271120051023, 80.7775077071823, 0.45)
    pt3dadd(98.235302300662, 924.260279377149, 80.872205840485, 0.45)
    pt3dadd(98.3475346092276, 925.249438703275, 80.9669039737877, 0.45)
    pt3dadd(98.4597669177932, 926.238598029402, 81.0616021070904, 0.45)
    pt3dadd(98.5719992263588, 927.227757355529, 81.156300240393, 0.45)
    pt3dadd(98.6842315349244, 928.216916681655, 81.2509983736957, 0.45)
    pt3dadd(98.79646384349, 929.206076007782, 81.3456965069984, 0.45)
    pt3dadd(98.9086961520556, 930.195235333908, 81.4403946403011, 0.45)
    pt3dadd(99.0209284606212, 931.184394660035, 81.5350927736037, 0.45)
    pt3dadd(99.1331607691868, 932.173553986161, 81.6297909069064, 0.45)
    pt3dadd(99.2453930777524, 933.162713312287, 81.7244890402091, 0.45)
    pt3dadd(99.357625386318, 934.151872638414, 81.8191871735118, 0.45)
    pt3dadd(99.4698576948836, 935.141031964541, 81.9138853068144, 0.45)
    pt3dadd(99.5820900034492, 936.130191290667, 82.0085834401171, 0.45)
    pt3dadd(99.6943223120148, 937.119350616794, 82.1032815734198, 0.45)
    pt3dadd(99.8065546205804, 938.10850994292, 82.1979797067225, 0.45)
    pt3dadd(99.918786929146, 939.097669269046, 82.2926778400251, 0.45)
    pt3dadd(100.031019237712, 940.086828595173, 82.3873759733278, 0.45)
    pt3dadd(100.143251546277, 941.075987921299, 82.4820741066305, 0.45)
    pt3dadd(100.255483854843, 942.065147247426, 82.5767722399332, 0.45)
    pt3dadd(100.367716163408, 943.054306573553, 82.6714703732358, 0.45)
    pt3dadd(100.479948471974, 944.043465899679, 82.7661685065385, 0.45)
    pt3dadd(100.59218078054, 945.032625225806, 82.8608666398412, 0.45)
    pt3dadd(100.704413089105, 946.021784551932, 82.9555647731439, 0.45)
    pt3dadd(100.816645397671, 947.010943878058, 83.0502629064465, 0.45)
    pt3dadd(100.928877706236, 948.000103204185, 83.1449610397492, 0.45)
    pt3dadd(101.041110014802, 948.989262530311, 83.2396591730519, 0.45)
    pt3dadd(101.153342323368, 949.978421856438, 83.3343573063546, 0.45)
    pt3dadd(101.265574631933, 950.967581182565, 83.4290554396572, 0.45)
    pt3dadd(101.377806940499, 951.956740508691, 83.5237535729599, 0.45)
    pt3dadd(101.490039249064, 952.945899834818, 83.6184517062626, 0.45)
    pt3dadd(101.60227155763, 953.935059160944, 83.7131498395653, 0.45)
    pt3dadd(101.714503866196, 954.92421848707, 83.8078479728679, 0.45)
    pt3dadd(101.826736174761, 955.913377813197, 83.9025461061706, 0.45)
    pt3dadd(101.938968483327, 956.902537139323, 83.9972442394733, 0.45)
    pt3dadd(102.051200791892, 957.89169646545, 84.091942372776, 0.45)
    pt3dadd(102.163433100458, 958.880855791577, 84.1866405060787, 0.45)
    pt3dadd(102.275665409024, 959.870015117703, 84.2813386393813, 0.45)
    pt3dadd(102.387897717589, 960.859174443829, 84.376036772684, 0.45)
    pt3dadd(102.500130026155, 961.848333769956, 84.4707349059867, 0.45)
    pt3dadd(102.61236233472, 962.837493096082, 84.5654330392894, 0.45)
    pt3dadd(102.724594643286, 963.826652422209, 84.660131172592, 0.45)
    pt3dadd(102.836826951852, 964.815811748335, 84.7548293058947, 0.45)
    pt3dadd(102.949059260417, 965.804971074462, 84.8495274391974, 0.45)
    pt3dadd(103.061291568983, 966.794130400589, 84.9442255725001, 0.45)
    pt3dadd(103.173523877548, 967.783289726715, 85.0389237058027, 0.45)
    pt3dadd(103.285756186114, 968.772449052841, 85.1336218391054, 0.45)
    pt3dadd(103.39798849468, 969.761608378968, 85.2283199724081, 0.45)
    pt3dadd(103.510220803245, 970.750767705094, 85.3230181057108, 0.45)
    pt3dadd(103.622453111811, 971.739927031221, 85.4177162390134, 0.45)
    pt3dadd(103.734685420376, 972.729086357347, 85.5124143723161, 0.45)
    pt3dadd(103.846917728942, 973.718245683474, 85.6071125056188, 0.45)
    pt3dadd(103.959150037508, 974.707405009601, 85.7018106389215, 0.45)
    pt3dadd(104.071382346073, 975.696564335727, 85.7965087722241, 0.45)
    pt3dadd(104.183614654639, 976.685723661853, 85.8912069055268, 0.45)
    pt3dadd(104.295846963204, 977.67488298798, 85.9859050388295, 0.45)
    pt3dadd(104.40807927177, 978.664042314106, 86.0806031721322, 0.45)
    pt3dadd(104.520311580336, 979.653201640233, 86.1753013054348, 0.45)
    pt3dadd(104.632543888901, 980.642360966359, 86.2699994387375, 0.45)
    pt3dadd(104.744776197467, 981.631520292486, 86.3646975720402, 0.45)
    pt3dadd(104.857008506032, 982.620679618612, 86.4593957053429, 0.45)
    pt3dadd(104.969240814598, 983.609838944739, 86.5540938386455, 0.45)
    pt3dadd(105.081473123164, 984.598998270865, 86.6487919719482, 0.45)
    pt3dadd(105.193705431729, 985.588157596992, 86.7434901052509, 0.45)
    pt3dadd(105.305937740295, 986.577316923118, 86.8381882385536, 0.45)
    pt3dadd(105.41817004886, 987.566476249245, 86.9328863718562, 0.45)
    pt3dadd(105.530402357426, 988.555635575371, 87.0275845051589, 0.45)
    pt3dadd(105.642634665992, 989.544794901498, 87.1222826384616, 0.45)
    pt3dadd(105.754866974557, 990.533954227624, 87.2169807717643, 0.45)
    pt3dadd(105.867099283123, 991.523113553751, 87.311678905067, 0.45)
    pt3dadd(105.979331591688, 992.512272879877, 87.4063770383696, 0.45)
    pt3dadd(106.091563900254, 993.501432206004, 87.5010751716723, 0.45)
    pt3dadd(106.20379620882, 994.49059153213, 87.595773304975, 0.45)
    pt3dadd(106.316028517385, 995.479750858257, 87.6904714382777, 0.45)
    pt3dadd(106.428260825951, 996.468910184383, 87.7851695715803, 0.45)
    pt3dadd(106.540493134516, 997.45806951051, 87.879867704883, 0.45)
    pt3dadd(106.652725443082, 998.447228836636, 87.9745658381857, 0.45)
    pt3dadd(106.764957751648, 999.436388162763, 88.0692639714884, 0.45)
    pt3dadd(106.877190060213, 1000.42554748889, 88.163962104791, 0.45)
    pt3dadd(106.989422368779, 1001.41470681502, 88.2586602380937, 0.45)
    pt3dadd(107.101654677344, 1002.40386614114, 88.3533583713964, 0.45)
    pt3dadd(107.21388698591, 1003.39302546727, 88.4480565046991, 0.45)
    pt3dadd(107.326119294476, 1004.3821847934, 88.5427546380017, 0.45)
    pt3dadd(107.438351603041, 1005.37134411952, 88.6374527713044, 0.45)
    pt3dadd(107.550583911607, 1006.36050344565, 88.7321509046071, 0.45)
    pt3dadd(107.662816220172, 1007.34966277177, 88.8268490379098, 0.45)
    pt3dadd(107.775048528738, 1008.3388220979, 88.9215471712124, 0.45)
    pt3dadd(107.887280837303, 1009.32798142403, 89.0162453045151, 0.45)
    pt3dadd(107.999513145869, 1010.31714075015, 89.1109434378178, 0.45)
    pt3dadd(108.111745454435, 1011.30630007628, 89.2056415711205, 0.45)
    pt3dadd(108.223977763, 1012.29545940241, 89.3003397044231, 0.45)
    pt3dadd(108.336210071566, 1013.28461872853, 89.3950378377258, 0.45)
    pt3dadd(108.448442380132, 1014.27377805466, 89.4897359710285, 0.45)
    pt3dadd(108.560674688697, 1015.26293738079, 89.5844341043312, 0.45)
    pt3dadd(108.672906997263, 1016.25209670691, 89.6791322376338, 0.45)
    pt3dadd(108.785139305828, 1017.24125603304, 89.7738303709365, 0.45)
    pt3dadd(108.897371614394, 1018.23041535917, 89.8685285042392, 0.45)
    pt3dadd(109.009603922959, 1019.21957468529, 89.9632266375419, 0.45)
    pt3dadd(109.121836231525, 1020.20873401142, 90.0579247708446, 0.45)
  }
}
proc shape3d_20() {
  axon[0] {
    pt3dadd(109.234068540091, 1021.19789333755, 90.1526229041472, 0.45)
    pt3dadd(109.346300848656, 1022.18705266367, 90.2473210374499, 0.45)
    pt3dadd(109.458533157222, 1023.1762119898, 90.3420191707526, 0.45)
    pt3dadd(109.570765465787, 1024.16537131593, 90.4367173040553, 0.45)
    pt3dadd(109.682997774353, 1025.15453064205, 90.5314154373579, 0.45)
    pt3dadd(109.795230082919, 1026.14368996818, 90.6261135706606, 0.45)
    pt3dadd(109.907462391484, 1027.1328492943, 90.7208117039633, 0.45)
    pt3dadd(110.01969470005, 1028.12200862043, 90.8155098372659, 0.45)
    pt3dadd(110.131927008615, 1029.11116794656, 90.9102079705686, 0.45)
    pt3dadd(110.244159317181, 1030.10032727268, 91.0049061038713, 0.45)
    pt3dadd(110.356391625747, 1031.08948659881, 91.099604237174, 0.45)
    pt3dadd(110.468623934312, 1032.07864592494, 91.1943023704766, 0.45)
    pt3dadd(110.580856242878, 1033.06780525106, 91.2890005037793, 0.45)
    pt3dadd(110.693088551443, 1034.05696457719, 91.383698637082, 0.45)
    pt3dadd(110.805320860009, 1035.04612390332, 91.4783967703847, 0.45)
    pt3dadd(110.917553168575, 1036.03528322944, 91.5730949036874, 0.45)
    pt3dadd(111.02978547714, 1037.02444255557, 91.66779303699, 0.45)
    pt3dadd(111.142017785706, 1038.0136018817, 91.7624911702927, 0.45)
    pt3dadd(111.254250094271, 1039.00276120782, 91.8571893035954, 0.45)
    pt3dadd(111.366482402837, 1039.99192053395, 91.9518874368981, 0.45)
    pt3dadd(111.478714711403, 1040.98107986008, 92.0465855702007, 0.45)
    pt3dadd(111.590947019968, 1041.9702391862, 92.1412837035034, 0.45)
    pt3dadd(111.703179328534, 1042.95939851233, 92.2359818368061, 0.45)
    pt3dadd(111.815411637099, 1043.94855783846, 92.3306799701088, 0.45)
    pt3dadd(111.927643945665, 1044.93771716458, 92.4253781034114, 0.45)
    pt3dadd(112.039876254231, 1045.92687649071, 92.5200762367141, 0.45)
    pt3dadd(112.152108562796, 1046.91603581683, 92.6147743700168, 0.45)
    pt3dadd(112.264340871362, 1047.90519514296, 92.7094725033195, 0.45)
    pt3dadd(112.376573179927, 1048.89435446909, 92.8041706366221, 0.45)
    pt3dadd(112.488805488493, 1049.88351379521, 92.8988687699248, 0.45)
    pt3dadd(112.601037797059, 1050.87267312134, 92.9935669032275, 0.45)
    pt3dadd(112.713270105624, 1051.86183244747, 93.0882650365302, 0.45)
    pt3dadd(112.82550241419, 1052.85099177359, 93.1829631698328, 0.45)
    pt3dadd(112.937734722755, 1053.84015109972, 93.2776613031355, 0.45)
    pt3dadd(113.049967031321, 1054.82931042585, 93.3723594364382, 0.45)
    pt3dadd(113.162199339887, 1055.81846975197, 93.4670575697409, 0.45)
    pt3dadd(113.274431648452, 1056.8076290781, 93.5617557030435, 0.45)
    pt3dadd(113.386663957018, 1057.79678840423, 93.6564538363462, 0.45)
    pt3dadd(113.498896265583, 1058.78594773035, 93.7511519696489, 0.45)
    pt3dadd(113.611128574149, 1059.77510705648, 93.8458501029516, 0.45)
    pt3dadd(113.723360882715, 1060.76426638261, 93.9405482362542, 0.45)
    pt3dadd(113.83559319128, 1061.75342570873, 94.0352463695569, 0.45)
    pt3dadd(113.947825499846, 1062.74258503486, 94.1299445028596, 0.45)
    pt3dadd(114.060057808411, 1063.73174436099, 94.2246426361623, 0.45)
    pt3dadd(114.172290116977, 1064.72090368711, 94.3193407694649, 0.45)
    pt3dadd(114.284522425543, 1065.71006301324, 94.4140389027676, 0.45)
    pt3dadd(114.396754734108, 1066.69922233936, 94.5087370360703, 0.45)
    pt3dadd(114.508987042674, 1067.68838166549, 94.603435169373, 0.45)
    pt3dadd(114.621219351239, 1068.67754099162, 94.6981333026757, 0.45)
    pt3dadd(114.733451659805, 1069.66670031774, 94.7928314359783, 0.45)
    pt3dadd(114.845683968371, 1070.65585964387, 94.887529569281, 0.45)
    pt3dadd(114.957916276936, 1071.64501897, 94.9822277025837, 0.45)
    pt3dadd(115.070148585502, 1072.63417829612, 95.0769258358864, 0.45)
    pt3dadd(115.182380894067, 1073.62333762225, 95.171623969189, 0.45)
    pt3dadd(115.294613202633, 1074.61249694838, 95.2663221024917, 0.45)
    pt3dadd(115.406845511199, 1075.6016562745, 95.3610202357944, 0.45)
    pt3dadd(115.519077819764, 1076.59081560063, 95.4557183690971, 0.45)
    pt3dadd(115.63131012833, 1077.57997492676, 95.5504165023997, 0.45)
    pt3dadd(115.743542436895, 1078.56913425288, 95.6451146357024, 0.45)
    pt3dadd(115.855774745461, 1079.55829357901, 95.7398127690051, 0.45)
    pt3dadd(115.968007054027, 1080.54745290514, 95.8345109023078, 0.45)
    pt3dadd(116.080239362592, 1081.53661223126, 95.9292090356104, 0.45)
    pt3dadd(116.192471671158, 1082.52577155739, 96.0239071689131, 0.45)
    pt3dadd(116.304703979723, 1083.51493088352, 96.1186053022158, 0.45)
    pt3dadd(116.416936288289, 1084.50409020964, 96.2133034355185, 0.45)
    pt3dadd(116.529168596855, 1085.49324953577, 96.3080015688211, 0.45)
    pt3dadd(116.64140090542, 1086.48240886189, 96.4026997021238, 0.45)
    pt3dadd(116.753633213986, 1087.47156818802, 96.4973978354265, 0.45)
    pt3dadd(116.865865522551, 1088.46072751415, 96.5920959687292, 0.45)
    pt3dadd(116.978097831117, 1089.44988684027, 96.6867941020318, 0.45)
    pt3dadd(117.090330139683, 1090.4390461664, 96.7814922353345, 0.45)
    pt3dadd(117.202562448248, 1091.42820549253, 96.8761903686372, 0.45)
    pt3dadd(117.314794756814, 1092.41736481865, 96.9708885019399, 0.45)
    pt3dadd(117.427027065379, 1093.40652414478, 97.0655866352425, 0.45)
    pt3dadd(117.539259373945, 1094.39568347091, 97.1602847685452, 0.45)
    pt3dadd(117.651491682511, 1095.38484279703, 97.2549829018479, 0.45)
    pt3dadd(117.763723991076, 1096.37400212316, 97.3496810351506, 0.45)
    pt3dadd(117.875956299642, 1097.36316144929, 97.4443791684533, 0.45)
    pt3dadd(117.988188608207, 1098.35232077541, 97.5390773017559, 0.45)
    pt3dadd(118.100420916773, 1099.34148010154, 97.6337754350586, 0.45)
    pt3dadd(118.212653225339, 1100.33063942767, 97.7284735683613, 0.45)
    pt3dadd(118.324885533904, 1101.31979875379, 97.823171701664, 0.45)
    pt3dadd(118.43711784247, 1102.30895807992, 97.9178698349666, 0.45)
    pt3dadd(118.549350151035, 1103.29811740605, 98.0125679682693, 0.45)
    pt3dadd(118.661582459601, 1104.28727673217, 98.107266101572, 0.45)
    pt3dadd(118.773814768167, 1105.2764360583, 98.2019642348747, 0.45)
    pt3dadd(118.886047076732, 1106.26559538442, 98.2966623681773, 0.45)
    pt3dadd(118.998279385298, 1107.25475471055, 98.39136050148, 0.45)
    pt3dadd(119.110511693863, 1108.24391403668, 98.4860586347827, 0.45)
    pt3dadd(119.222744002429, 1109.2330733628, 98.5807567680854, 0.45)
    pt3dadd(119.334976310995, 1110.22223268893, 98.675454901388, 0.45)
    pt3dadd(119.44720861956, 1111.21139201506, 98.7701530346907, 0.45)
    pt3dadd(119.559440928126, 1112.20055134118, 98.8648511679934, 0.45)
    pt3dadd(119.671673236691, 1113.18971066731, 98.9595493012961, 0.45)
    pt3dadd(119.783905545257, 1114.17886999344, 99.0542474345987, 0.45)
    pt3dadd(119.896137853823, 1115.16802931956, 99.1489455679014, 0.45)
    pt3dadd(120.008370162388, 1116.15718864569, 99.2436437012041, 0.45)
    pt3dadd(120.120602470954, 1117.14634797182, 99.3383418345068, 0.45)
    pt3dadd(120.232834779519, 1118.13550729794, 99.4330399678094, 0.45)
    pt3dadd(120.345067088085, 1119.12466662407, 99.5277381011121, 0.45)
    pt3dadd(120.457299396651, 1120.1138259502, 99.6224362344148, 0.45)
    pt3dadd(120.569531705216, 1121.10298527632, 99.7171343677175, 0.45)
    pt3dadd(120.681764013782, 1122.09214460245, 99.8118325010201, 0.45)
    pt3dadd(120.793996322347, 1123.08130392857, 99.9065306343228, 0.45)
    pt3dadd(120.906228630913, 1124.0704632547, 100.001228767625, 0.45)
    pt3dadd(121.018460939479, 1125.05962258083, 100.095926900928, 0.45)
    pt3dadd(121.130693248044, 1126.04878190695, 100.190625034231, 0.45)
    pt3dadd(121.24292555661, 1127.03794123308, 100.285323167534, 0.45)
    pt3dadd(121.355157865175, 1128.02710055921, 100.380021300836, 0.45)
    pt3dadd(121.467390173741, 1129.01625988533, 100.474719434139, 0.45)
    pt3dadd(121.579622482307, 1130.00541921146, 100.569417567442, 0.45)
    pt3dadd(121.691854790872, 1130.99457853759, 100.664115700744, 0.45)
    pt3dadd(121.804087099438, 1131.98373786371, 100.758813834047, 0.45)
    pt3dadd(121.916319408003, 1132.97289718984, 100.85351196735, 0.45)
    pt3dadd(122.028551716569, 1133.96205651597, 100.948210100652, 0.45)
    pt3dadd(122.140784025135, 1134.95121584209, 101.042908233955, 0.45)
    pt3dadd(122.2530163337, 1135.94037516822, 101.137606367258, 0.45)
    pt3dadd(122.365248642266, 1136.92953449435, 101.23230450056, 0.45)
    pt3dadd(122.477480950831, 1137.91869382047, 101.327002633863, 0.45)
    pt3dadd(122.589713259397, 1138.9078531466, 101.421700767166, 0.45)
    pt3dadd(122.701945567963, 1139.89701247273, 101.516398900468, 0.45)
    pt3dadd(122.814177876528, 1140.88617179885, 101.611097033771, 0.45)
    pt3dadd(122.926410185094, 1141.87533112498, 101.705795167074, 0.45)
    pt3dadd(123.038642493659, 1142.86449045111, 101.800493300376, 0.45)
    pt3dadd(123.150874802225, 1143.85364977723, 101.895191433679, 0.45)
    pt3dadd(123.26310711079, 1144.84280910336, 101.989889566982, 0.45)
    pt3dadd(123.375339419356, 1145.83196842948, 102.084587700284, 0.45)
    pt3dadd(123.487571727922, 1146.82112775561, 102.179285833587, 0.45)
    pt3dadd(123.599804036487, 1147.81028708174, 102.27398396689, 0.45)
    pt3dadd(123.712036345053, 1148.79944640786, 102.368682100192, 0.45)
    pt3dadd(123.824268653618, 1149.78860573399, 102.463380233495, 0.45)
    pt3dadd(123.936500962184, 1150.77776506012, 102.558078366798, 0.45)
    pt3dadd(124.04873327075, 1151.76692438624, 102.6527765001, 0.45)
    pt3dadd(124.160965579315, 1152.75608371237, 102.747474633403, 0.45)
    pt3dadd(124.273197887881, 1153.7452430385, 102.842172766706, 0.45)
    pt3dadd(124.385430196446, 1154.73440236462, 102.936870900008, 0.45)
    pt3dadd(124.497662505012, 1155.72356169075, 103.031569033311, 0.45)
    pt3dadd(124.609894813578, 1156.71272101688, 103.126267166614, 0.45)
    pt3dadd(124.722127122143, 1157.701880343, 103.220965299916, 0.45)
    pt3dadd(124.834359430709, 1158.69103966913, 103.315663433219, 0.45)
    pt3dadd(124.946591739274, 1159.68019899526, 103.410361566522, 0.45)
    pt3dadd(125.05882404784, 1160.66935832138, 103.505059699824, 0.45)
    pt3dadd(125.171056356406, 1161.65851764751, 103.599757833127, 0.45)
    pt3dadd(125.283288664971, 1162.64767697363, 103.69445596643, 0.45)
    pt3dadd(125.395520973537, 1163.63683629976, 103.789154099733, 0.45)
    pt3dadd(125.507753282102, 1164.62599562589, 103.883852233035, 0.45)
    pt3dadd(125.619985590668, 1165.61515495201, 103.978550366338, 0.45)
    pt3dadd(125.732217899234, 1166.60431427814, 104.073248499641, 0.45)
    pt3dadd(125.844450207799, 1167.59347360427, 104.167946632943, 0.45)
    pt3dadd(125.956682516365, 1168.58263293039, 104.262644766246, 0.45)
    pt3dadd(126.06891482493, 1169.57179225652, 104.357342899549, 0.45)
    pt3dadd(126.181147133496, 1170.56095158265, 104.452041032851, 0.45)
    pt3dadd(126.293379442062, 1171.55011090877, 104.546739166154, 0.45)
    pt3dadd(126.405611750627, 1172.5392702349, 104.641437299457, 0.45)
    pt3dadd(126.517844059193, 1173.52842956103, 104.736135432759, 0.45)
    pt3dadd(126.630076367758, 1174.51758888715, 104.830833566062, 0.45)
    pt3dadd(126.742308676324, 1175.50674821328, 104.925531699365, 0.45)
    pt3dadd(126.85454098489, 1176.49590753941, 105.020229832667, 0.45)
    pt3dadd(126.966773293455, 1177.48506686553, 105.11492796597, 0.45)
    pt3dadd(127.079005602021, 1178.47422619166, 105.209626099273, 0.45)
    pt3dadd(127.191237910586, 1179.46338551779, 105.304324232575, 0.45)
    pt3dadd(127.303470219152, 1180.45254484391, 105.399022365878, 0.45)
    pt3dadd(127.415702527718, 1181.44170417004, 105.493720499181, 0.45)
    pt3dadd(127.527934836283, 1182.43086349616, 105.588418632483, 0.45)
    pt3dadd(127.640167144849, 1183.42002282229, 105.683116765786, 0.45)
    pt3dadd(127.752399453414, 1184.40918214842, 105.777814899089, 0.45)
    pt3dadd(127.86463176198, 1185.39834147454, 105.872513032391, 0.45)
    pt3dadd(127.976864070546, 1186.38750080067, 105.967211165694, 0.45)
    pt3dadd(128.089096379111, 1187.3766601268, 106.061909298997, 0.45)
    pt3dadd(128.201328687677, 1188.36581945292, 106.156607432299, 0.45)
    pt3dadd(128.313560996242, 1189.35497877905, 106.251305565602, 0.45)
    pt3dadd(128.425793304808, 1190.34413810518, 106.346003698905, 0.45)
    pt3dadd(128.538025613374, 1191.3332974313, 106.440701832207, 0.45)
    pt3dadd(128.650257921939, 1192.32245675743, 106.53539996551, 0.45)
    pt3dadd(128.762490230505, 1193.31161608356, 106.630098098813, 0.45)
    pt3dadd(128.87472253907, 1194.30077540968, 106.724796232115, 0.45)
    pt3dadd(128.986954847636, 1195.28993473581, 106.819494365418, 0.45)
    pt3dadd(129.099187156202, 1196.27909406194, 106.914192498721, 0.45)
    pt3dadd(129.211419464767, 1197.26825338806, 107.008890632023, 0.45)
    pt3dadd(129.323651773333, 1198.25741271419, 107.103588765326, 0.45)
    pt3dadd(129.435884081898, 1199.24657204032, 107.198286898629, 0.45)
    pt3dadd(129.548116390464, 1200.23573136644, 107.292985031932, 0.45)
    pt3dadd(129.66034869903, 1201.22489069257, 107.387683165234, 0.45)
    pt3dadd(129.772581007595, 1202.21405001869, 107.482381298537, 0.45)
    pt3dadd(129.884813316161, 1203.20320934482, 107.57707943184, 0.45)
    pt3dadd(129.997045624726, 1204.19236867095, 107.671777565142, 0.45)
    pt3dadd(130.109277933292, 1205.18152799707, 107.766475698445, 0.45)
    pt3dadd(130.221510241858, 1206.1706873232, 107.861173831748, 0.45)
    pt3dadd(130.333742550423, 1207.15984664933, 107.95587196505, 0.45)
    pt3dadd(130.445974858989, 1208.14900597545, 108.050570098353, 0.45)
    pt3dadd(130.558207167554, 1209.13816530158, 108.145268231656, 0.45)
    pt3dadd(130.67043947612, 1210.12732462771, 108.239966364958, 0.45)
    pt3dadd(130.782671784686, 1211.11648395383, 108.334664498261, 0.45)
    pt3dadd(130.894904093251, 1212.10564327996, 108.429362631564, 0.45)
    pt3dadd(131.007136401817, 1213.09480260609, 108.524060764866, 0.45)
    pt3dadd(131.119368710382, 1214.08396193221, 108.618758898169, 0.45)
    pt3dadd(131.231601018948, 1215.07312125834, 108.713457031472, 0.45)
    pt3dadd(131.343833327514, 1216.06228058447, 108.808155164774, 0.45)
    pt3dadd(131.456065636079, 1217.05143991059, 108.902853298077, 0.45)
    pt3dadd(131.568297944645, 1218.04059923672, 108.99755143138, 0.45)
    pt3dadd(131.68053025321, 1219.02975856285, 109.092249564682, 0.45)
    pt3dadd(131.792762561776, 1220.01891788897, 109.186947697985, 0.45)
    pt3dadd(131.904994870342, 1221.0080772151, 109.281645831288, 0.45)
    pt3dadd(132.017227178907, 1221.99723654122, 109.37634396459, 0.45)
    pt3dadd(132.129459487473, 1222.98639586735, 109.471042097893, 0.45)
    pt3dadd(132.241691796038, 1223.97555519348, 109.565740231196, 0.45)
    pt3dadd(132.353924104604, 1224.9647145196, 109.660438364498, 0.45)
    pt3dadd(132.46615641317, 1225.95387384573, 109.755136497801, 0.45)
    pt3dadd(132.578388721735, 1226.94303317186, 109.849834631104, 0.45)
    pt3dadd(132.690621030301, 1227.93219249798, 109.944532764406, 0.45)
    pt3dadd(132.802853338866, 1228.92135182411, 110.039230897709, 0.45)
    pt3dadd(132.915085647432, 1229.91051115024, 110.133929031012, 0.45)
    pt3dadd(133.027317955998, 1230.89967047636, 110.228627164314, 0.45)
    pt3dadd(133.139550264563, 1231.88882980249, 110.323325297617, 0.45)
    pt3dadd(133.251782573129, 1232.87798912862, 110.41802343092, 0.45)
    pt3dadd(133.364014881694, 1233.86714845474, 110.512721564222, 0.45)
    pt3dadd(133.47624719026, 1234.85630778087, 110.607419697525, 0.45)
    pt3dadd(133.588479498826, 1235.845467107, 110.702117830828, 0.45)
    pt3dadd(133.700711807391, 1236.83462643312, 110.796815964131, 0.45)
    pt3dadd(133.812944115957, 1237.82378575925, 110.891514097433, 0.45)
    pt3dadd(133.925176424522, 1238.81294508538, 110.986212230736, 0.45)
    pt3dadd(134.037408733088, 1239.8021044115, 111.080910364039, 0.45)
    pt3dadd(134.149641041654, 1240.79126373763, 111.175608497341, 0.45)
    pt3dadd(134.261873350219, 1241.78042306375, 111.270306630644, 0.45)
    pt3dadd(134.374105658785, 1242.76958238988, 111.365004763947, 0.45)
    pt3dadd(134.48633796735, 1243.75874171601, 111.459702897249, 0.45)
    pt3dadd(134.598570275916, 1244.74790104213, 111.554401030552, 0.45)
    pt3dadd(134.710802584482, 1245.73706036826, 111.649099163855, 0.45)
    pt3dadd(134.823034893047, 1246.72621969439, 111.743797297157, 0.45)
    pt3dadd(134.935267201613, 1247.71537902051, 111.83849543046, 0.45)
    pt3dadd(135.047499510178, 1248.70453834664, 111.933193563763, 0.45)
    pt3dadd(135.159731818744, 1249.69369767277, 112.027891697065, 0.45)
    pt3dadd(135.27196412731, 1250.68285699889, 112.122589830368, 0.45)
    pt3dadd(135.384196435875, 1251.67201632502, 112.217287963671, 0.45)
    pt3dadd(135.496428744441, 1252.66117565115, 112.311986096973, 0.45)
    pt3dadd(135.608661053006, 1253.65033497727, 112.406684230276, 0.45)
    pt3dadd(135.720893361572, 1254.6394943034, 112.501382363579, 0.45)
    pt3dadd(135.833125670138, 1255.62865362953, 112.596080496881, 0.45)
    pt3dadd(135.945357978703, 1256.61781295565, 112.690778630184, 0.45)
    pt3dadd(136.057590287269, 1257.60697228178, 112.785476763487, 0.45)
    pt3dadd(136.169822595834, 1258.59613160791, 112.880174896789, 0.45)
    pt3dadd(136.2820549044, 1259.58529093403, 112.974873030092, 0.45)
    pt3dadd(136.394287212966, 1260.57445026016, 113.069571163395, 0.45)
    pt3dadd(136.506519521531, 1261.56360958628, 113.164269296697, 0.45)
    pt3dadd(136.618751830097, 1262.55276891241, 113.25896743, 0.45)
    pt3dadd(136.730984138662, 1263.54192823854, 113.353665563303, 0.45)
    pt3dadd(136.843216447228, 1264.53108756466, 113.448363696605, 0.45)
    pt3dadd(136.955448755794, 1265.52024689079, 113.543061829908, 0.45)
    pt3dadd(137.067681064359, 1266.50940621692, 113.637759963211, 0.45)
  }
}
proc shape3d_21() {
  axon[0] {
    pt3dadd(137.179913372925, 1267.49856554304, 113.732458096513, 0.45)
    pt3dadd(137.29214568149, 1268.48772486917, 113.827156229816, 0.45)
    pt3dadd(137.404377990056, 1269.4768841953, 113.921854363119, 0.45)
    pt3dadd(137.516610298621, 1270.46604352142, 114.016552496421, 0.45)
    pt3dadd(137.628842607187, 1271.45520284755, 114.111250629724, 0.45)
    pt3dadd(137.741074915753, 1272.44436217368, 114.205948763027, 0.45)
    pt3dadd(137.853307224318, 1273.4335214998, 114.30064689633, 0.45)
    pt3dadd(137.965539532884, 1274.42268082593, 114.395345029632, 0.45)
    pt3dadd(138.077771841449, 1275.41184015206, 114.490043162935, 0.45)
    pt3dadd(138.190004150015, 1276.40099947818, 114.584741296238, 0.45)
    pt3dadd(138.302236458581, 1277.39015880431, 114.67943942954, 0.45)
    pt3dadd(138.414468767146, 1278.37931813044, 114.774137562843, 0.45)
    pt3dadd(138.526701075712, 1279.36847745656, 114.868835696146, 0.45)
    pt3dadd(138.638933384277, 1280.35763678269, 114.963533829448, 0.45)
    pt3dadd(138.751165692843, 1281.34679610881, 115.058231962751, 0.45)
    pt3dadd(138.863398001409, 1282.33595543494, 115.152930096054, 0.45)
    pt3dadd(138.975630309974, 1283.32511476107, 115.247628229356, 0.45)
    pt3dadd(139.08786261854, 1284.31427408719, 115.342326362659, 0.45)
    pt3dadd(139.200094927105, 1285.30343341332, 115.437024495962, 0.45)
    pt3dadd(139.312327235671, 1286.29259273945, 115.531722629264, 0.45)
    pt3dadd(139.424559544237, 1287.28175206557, 115.626420762567, 0.45)
    pt3dadd(139.536791852802, 1288.2709113917, 115.72111889587, 0.45)
    pt3dadd(139.649024161368, 1289.26007071783, 115.815817029172, 0.45)
    pt3dadd(139.761256469933, 1290.24923004395, 115.910515162475, 0.45)
    pt3dadd(139.873488778499, 1291.23838937008, 116.005213295778, 0.45)
    pt3dadd(139.985721087065, 1292.22754869621, 116.09991142908, 0.45)
    pt3dadd(140.09795339563, 1293.21670802233, 116.194609562383, 0.45)
    pt3dadd(140.210185704196, 1294.20586734846, 116.289307695686, 0.45)
    pt3dadd(140.322418012761, 1295.19502667459, 116.384005828988, 0.45)
    pt3dadd(140.434650321327, 1296.18418600071, 116.478703962291, 0.45)
    pt3dadd(140.546882629893, 1297.17334532684, 116.573402095594, 0.45)
    pt3dadd(140.659114938458, 1298.16250465297, 116.668100228896, 0.45)
    pt3dadd(140.771347247024, 1299.15166397909, 116.762798362199, 0.45)
    pt3dadd(140.883579555589, 1300.14082330522, 116.857496495502, 0.45)
    pt3dadd(140.995811864155, 1301.12998263134, 116.952194628804, 0.45)
    pt3dadd(141.108044172721, 1302.11914195747, 117.046892762107, 0.45)
    pt3dadd(141.220276481286, 1303.1083012836, 117.14159089541, 0.45)
    pt3dadd(141.332508789852, 1304.09746060972, 117.236289028712, 0.45)
    pt3dadd(141.444741098417, 1305.08661993585, 117.330987162015, 0.45)
    pt3dadd(141.556973406983, 1306.07577926198, 117.425685295318, 0.45)
    pt3dadd(141.669205715549, 1307.0649385881, 117.52038342862, 0.45)
    pt3dadd(141.781438024114, 1308.05409791423, 117.615081561923, 0.45)
    pt3dadd(141.89367033268, 1309.04325724036, 117.709779695226, 0.45)
    pt3dadd(142.005902641245, 1310.03241656648, 117.804477828529, 0.45)
    pt3dadd(142.118134949811, 1311.02157589261, 117.899175961831, 0.45)
    pt3dadd(142.230367258377, 1312.01073521874, 117.993874095134, 0.45)
    pt3dadd(142.342599566942, 1312.99989454486, 118.088572228437, 0.45)
    pt3dadd(142.454831875508, 1313.98905387099, 118.183270361739, 0.45)
    pt3dadd(142.567064184073, 1314.97821319712, 118.277968495042, 0.45)
    pt3dadd(142.679296492639, 1315.96737252324, 118.372666628345, 0.45)
    pt3dadd(142.791528801205, 1316.95653184937, 118.467364761647, 0.45)
    pt3dadd(142.90376110977, 1317.94569117549, 118.56206289495, 0.45)
    pt3dadd(143.015993418336, 1318.93485050162, 118.656761028253, 0.45)
    pt3dadd(143.128225726901, 1319.92400982775, 118.751459161555, 0.45)
    pt3dadd(143.240458035467, 1320.91316915387, 118.846157294858, 0.45)
    pt3dadd(143.352690344033, 1321.90232848, 118.940855428161, 0.45)
    pt3dadd(143.464922652598, 1322.89148780613, 119.035553561463, 0.45)
    pt3dadd(143.577154961164, 1323.88064713225, 119.130251694766, 0.45)
    pt3dadd(143.689387269729, 1324.86980645838, 119.224949828069, 0.45)
    pt3dadd(143.801619578295, 1325.85896578451, 119.319647961371, 0.45)
    pt3dadd(143.913851886861, 1326.84812511063, 119.414346094674, 0.45)
    pt3dadd(144.026084195426, 1327.83728443676, 119.509044227977, 0.45)
    pt3dadd(144.138316503992, 1328.82644376289, 119.603742361279, 0.45)
    pt3dadd(144.250548812557, 1329.81560308901, 119.698440494582, 0.45)
    pt3dadd(144.362781121123, 1330.80476241514, 119.793138627885, 0.45)
    pt3dadd(144.475013429689, 1331.79392174127, 119.887836761187, 0.45)
    pt3dadd(144.587245738254, 1332.78308106739, 119.98253489449, 0.45)
    pt3dadd(144.69947804682, 1333.77224039352, 120.077233027793, 0.45)
    pt3dadd(144.811710355385, 1334.76139971965, 120.171931161095, 0.45)
    pt3dadd(144.923942663951, 1335.75055904577, 120.266629294398, 0.45)
    pt3dadd(145.036174972517, 1336.7397183719, 120.361327427701, 0.45)
    pt3dadd(145.148407281082, 1337.72887769802, 120.456025561003, 0.45)
    pt3dadd(145.260639589648, 1338.71803702415, 120.550723694306, 0.45)
    pt3dadd(145.372871898213, 1339.70719635028, 120.645421827609, 0.45)
    pt3dadd(145.485104206779, 1340.6963556764, 120.740119960911, 0.45)
    pt3dadd(145.597336515345, 1341.68551500253, 120.834818094214, 0.45)
    pt3dadd(145.70956882391, 1342.67467432866, 120.929516227517, 0.45)
    pt3dadd(145.821801132476, 1343.66383365478, 121.024214360819, 0.45)
    pt3dadd(145.934033441041, 1344.65299298091, 121.118912494122, 0.45)
    pt3dadd(146.046265749607, 1345.64215230704, 121.213610627425, 0.45)
    pt3dadd(146.158498058173, 1346.63131163316, 121.308308760728, 0.45)
    pt3dadd(146.270730366738, 1347.62047095929, 121.40300689403, 0.45)
    pt3dadd(146.382962675304, 1348.60963028542, 121.497705027333, 0.45)
    pt3dadd(146.495194983869, 1349.59878961154, 121.592403160636, 0.45)
    pt3dadd(146.607427292435, 1350.58794893767, 121.687101293938, 0.45)
    pt3dadd(146.719659601001, 1351.5771082638, 121.781799427241, 0.45)
    pt3dadd(146.831891909566, 1352.56626758992, 121.876497560544, 0.45)
    pt3dadd(146.944124218132, 1353.55542691605, 121.971195693846, 0.45)
    pt3dadd(147.056356526697, 1354.54458624218, 122.065893827149, 0.45)
    pt3dadd(147.168588835263, 1355.5337455683, 122.160591960452, 0.45)
    pt3dadd(147.280821143829, 1356.52290489443, 122.255290093754, 0.45)
    pt3dadd(147.393053452394, 1357.51206422055, 122.349988227057, 0.45)
    pt3dadd(147.50528576096, 1358.50122354668, 122.44468636036, 0.45)
    pt3dadd(147.617518069525, 1359.49038287281, 122.539384493662, 0.45)
    pt3dadd(147.729750378091, 1360.47954219893, 122.634082626965, 0.45)
    pt3dadd(147.841982686657, 1361.46870152506, 122.728780760268, 0.45)
    pt3dadd(147.954214995222, 1362.45786085119, 122.82347889357, 0.45)
    pt3dadd(148.066447303788, 1363.44702017731, 122.918177026873, 0.45)
    pt3dadd(148.178679612353, 1364.43617950344, 123.012875160176, 0.45)
    pt3dadd(148.290911920919, 1365.42533882957, 123.107573293478, 0.45)
    pt3dadd(148.403144229485, 1366.41449815569, 123.202271426781, 0.45)
    pt3dadd(148.51537653805, 1367.40365748182, 123.296969560084, 0.45)
    pt3dadd(148.627608846616, 1368.39281680795, 123.391667693386, 0.45)
    pt3dadd(148.739841155181, 1369.38197613407, 123.486365826689, 0.45)
    pt3dadd(148.852073463747, 1370.3711354602, 123.581063959992, 0.45)
    pt3dadd(148.964305772313, 1371.36029478633, 123.675762093294, 0.45)
    pt3dadd(149.076538080878, 1372.34945411245, 123.770460226597, 0.45)
    pt3dadd(149.188770389444, 1373.33861343858, 123.8651583599, 0.45)
    pt3dadd(149.301002698009, 1374.32777276471, 123.959856493202, 0.45)
    pt3dadd(149.413235006575, 1375.31693209083, 124.054554626505, 0.45)
    pt3dadd(149.525467315141, 1376.30609141696, 124.149252759808, 0.45)
    pt3dadd(149.637699623706, 1377.29525074308, 124.24395089311, 0.45)
    pt3dadd(149.749931932272, 1378.28441006921, 124.338649026413, 0.45)
    pt3dadd(149.862164240837, 1379.27356939534, 124.433347159716, 0.45)
    pt3dadd(149.974396549403, 1380.26272872146, 124.528045293018, 0.45)
    pt3dadd(150.086628857969, 1381.25188804759, 124.622743426321, 0.45)
    pt3dadd(150.198861166534, 1382.24104737372, 124.717441559624, 0.45)
    pt3dadd(150.3110934751, 1383.23020669984, 124.812139692927, 0.45)
    pt3dadd(150.423325783665, 1384.21936602597, 124.906837826229, 0.45)
    pt3dadd(150.535558092231, 1385.2085253521, 125.001535959532, 0.45)
    pt3dadd(150.647790400797, 1386.19768467822, 125.096234092835, 0.45)
    pt3dadd(150.760022709362, 1387.18684400435, 125.190932226137, 0.45)
    pt3dadd(150.872255017928, 1388.17600333048, 125.28563035944, 0.45)
    pt3dadd(150.984487326493, 1389.1651626566, 125.380328492743, 0.45)
    pt3dadd(151.096719635059, 1390.15432198273, 125.475026626045, 0.45)
    pt3dadd(151.208951943625, 1391.14348130886, 125.569724759348, 0.45)
    pt3dadd(151.32118425219, 1392.13264063498, 125.664422892651, 0.45)
    pt3dadd(151.433416560756, 1393.12179996111, 125.759121025953, 0.45)
    pt3dadd(151.545648869321, 1394.11095928724, 125.853819159256, 0.45)
    pt3dadd(151.657881177887, 1395.10011861336, 125.948517292559, 0.45)
    pt3dadd(151.770113486452, 1396.08927793949, 126.043215425861, 0.45)
    pt3dadd(151.882345795018, 1397.07843726561, 126.137913559164, 0.45)
    pt3dadd(151.994578103584, 1398.06759659174, 126.232611692467, 0.45)
    pt3dadd(152.106810412149, 1399.05675591787, 126.327309825769, 0.45)
    pt3dadd(152.219042720715, 1400.04591524399, 126.422007959072, 0.45)
    pt3dadd(152.33127502928, 1401.03507457012, 126.516706092375, 0.45)
    pt3dadd(152.443507337846, 1402.02423389625, 126.611404225677, 0.45)
    pt3dadd(152.555739646412, 1403.01339322237, 126.70610235898, 0.45)
    pt3dadd(152.667971954977, 1404.0025525485, 126.800800492283, 0.45)
    pt3dadd(152.780204263543, 1404.99171187463, 126.895498625585, 0.45)
    pt3dadd(152.892436572108, 1405.98087120075, 126.990196758888, 0.45)
    pt3dadd(153.004668880674, 1406.97003052688, 127.084894892191, 0.45)
    pt3dadd(153.11690118924, 1407.95918985301, 127.179593025493, 0.45)
    pt3dadd(153.229133497805, 1408.94834917913, 127.274291158796, 0.45)
    pt3dadd(153.341365806371, 1409.93750850526, 127.368989292099, 0.45)
    pt3dadd(153.453598114936, 1410.92666783139, 127.463687425401, 0.45)
    pt3dadd(153.565830423502, 1411.91582715751, 127.558385558704, 0.45)
    pt3dadd(153.678062732068, 1412.90498648364, 127.653083692007, 0.45)
    pt3dadd(153.790295040633, 1413.89414580977, 127.747781825309, 0.45)
    pt3dadd(153.902527349199, 1414.88330513589, 127.842479958612, 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()
}

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, 10 GCL[ward] {
    regGCL.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
  }
  regadendIML = new SectionList()
  for ward = 0, 13 adendIML[ward] {
    regadendIML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendMML = new SectionList()
  for ward = 0, 19 adendMML[ward] {
    regadendMML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendOML = new SectionList()
  for ward = 0, 14 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_08