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_11

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[6]
create adendIML[18]
create adendMML[21]
create adendOML[16]
create soma[4]
create axonh[1]

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

proc shape3d_1() {
  soma[0] {pt3dclear()
    pt3dadd(-7.1667017309238, 49.6406721294704, 0, 10.5)
    pt3dadd(-7.1666017309238, 49.6406721294704, 0, 10.5)
  }
  soma[1] {pt3dclear()
    pt3dadd(-7.1666017309238, 49.6406721294704, 0, 10.4043260233424)
    pt3dadd(-7.07067384565557, 50.4860616091378, -0.525465953697948, 10.4043260233424)
    pt3dadd(-6.97474596038735, 51.3314510888052, -1.0509319073959, 10.1118742080783)
    pt3dadd(-6.87881807511913, 52.1768405684725, -1.57639786109385, 9.60468635614927)
    pt3dadd(-6.78289018985091, 53.0222300481399, -2.10186381479179, 8.84590300647707)
    pt3dadd(-6.68696230458269, 53.8676195278073, -2.62732976848974, 7.76208734813001)
    pt3dadd(-6.59103441931447, 54.7130090074747, -3.15279572218769, 6.18465843842649)
    pt3dadd(-6.49510653404624, 55.558398487142, -3.67826167588564, 3.5)
  }
  axonh[0] {pt3dclear()
    pt3dadd(-6.49510653404624, 55.558398487142, -3.67826167588564, 2.47906000584629)
    pt3dadd(-6.39917864877802, 56.4037879668094, -4.20372762958359, 2.47906000584629)
    pt3dadd(-6.3032507635098, 57.2491774464768, -4.72919358328154, 2.11125382662694)
    pt3dadd(-6.20732287824158, 58.0945669261442, -5.25465953697949, 1.81011959652796)
    pt3dadd(-6.11139499297336, 58.9399564058115, -5.78012549067743, 1.56357174154146)
    pt3dadd(-6.01546710770513, 59.7853458854789, -6.30559144437538, 1.3617154305586)
    pt3dadd(-5.91953922243691, 60.6307353651463, -6.83105739807333, 1.19644946105406)
    pt3dadd(-5.82361133716869, 61.4761248448137, -7.35652335177128, 1.06114112938344)
    pt3dadd(-5.72768345190047, 62.321514324481, -7.88198930546923, 0.950360037097033)
    pt3dadd(-5.63175556663225, 63.1669038041484, -8.40745525916718, 0.85966014998258)
    pt3dadd(-5.53582768136403, 64.0122932838158, -8.93292121286512, 0.785401363101277)
    pt3dadd(-5.4398997960958, 64.8576827634832, -9.45838716656307, 0.72460341059529)
    pt3dadd(-5.34397191082758, 65.7030722431505, -9.98385312026102, 0.674826257154464)
    pt3dadd(-5.24804402555936, 66.5484617228179, -10.509319073959, 0.634072170831778)
    pt3dadd(-5.15211614029114, 67.3938512024853, -11.0347850276569, 0.600705547045801)
    pt3dadd(-5.05618825502292, 68.2392406821527, -11.5602509813549, 0.573387266025838)
    pt3dadd(-4.9602603697547, 69.08463016182, -12.0857169350528, 0.551020949233567)
    pt3dadd(-4.86433248448647, 69.9300196414874, -12.6111828887508, 0.532708957842651)
    pt3dadd(-4.76840459921825, 70.7754091211548, -13.1366488424487, 0.517716367340809)
    pt3dadd(-4.67247671395003, 71.6207986008221, -13.6621147961467, 0.505441472428646)
    pt3dadd(-4.57654882868181, 72.4661880804895, -14.1875807498446, 0.495391638473257)
    pt3dadd(-4.48062094341359, 73.3115775601569, -14.7130467035426, 0.487163530350653)
    pt3dadd(-4.38469305814537, 74.1569670398243, -15.2385126572405, 0.480426925191027)
    pt3dadd(-4.28876517287714, 75.0023565194916, -15.7639786109385, 0.474911459375497)
    pt3dadd(-4.19283728760892, 75.847745999159, -16.2894445646364, 0.470395777894772)
  }
  axon[0] {pt3dclear()
    pt3dadd(-4.19283728760892, 75.847745999159, -16.2894445646364, 0.466698650595398)
    pt3dadd(-4.0969094023407, 76.6931354788264, -16.8149105183344, 0.466698650595398)
    pt3dadd(-4.00098151707248, 77.5385249584938, -17.3403764720323, 0.463671698777356)
    pt3dadd(-3.90505363180426, 78.3839144381611, -17.8658424257302, 0.46119344023584)
    pt3dadd(-3.80912574653604, 79.2293039178285, -18.3913083794282, 0.459164413753823)
    pt3dadd(-3.71319786126781, 80.0746933974959, -18.9167743331261, 0.457503187374186)
    pt3dadd(-3.61726997599959, 80.9200828771633, -19.4422402868241, 0.456143090249352)
    pt3dadd(-3.52134209073137, 81.7654723568306, -19.967706240522, 0.455029536906078)
    pt3dadd(-3.42541420546315, 82.610861836498, -20.49317219422, 0.454117836538747)
    pt3dadd(-3.32948632019493, 83.4562513161654, -21.0186381479179, 0.45337139941042)
    pt3dadd(-3.2335584349267, 84.3016407958327, -21.5441041016159, 0.45276026837822)
    pt3dadd(-3.13763054965848, 85.1470302755001, -22.0695700553138, 0.452259916607997)
    pt3dadd(-3.04170266439026, 85.9924197551675, -22.5950360090118, 0.451850263226359)
    pt3dadd(-2.94577477912204, 86.8378092348349, -23.1205019627097, 0.45151486740471)
    pt3dadd(-2.84984689385382, 87.6831987145022, -23.6459679164077, 0.451240268531071)
    pt3dadd(-2.7539190085856, 88.5285881941696, -24.1714338701056, 0.451015445988463)
    pt3dadd(-2.65799112331737, 89.373977673837, -24.6968998238036, 0.450831376858844)
    pt3dadd(-2.56206323804915, 90.2193671535044, -25.2223657775015, 0.450680673801733)
    pt3dadd(-2.46613535278093, 91.0647566331717, -25.7478317311995, 0.450557288574293)
    pt3dadd(-2.37020746751271, 91.9101461128391, -26.2732976848974, 0.450456269294113)
    pt3dadd(-2.27427958224449, 92.7555355925065, -26.7987636385954, 0.450373561702775)
    pt3dadd(-2.17835169697627, 93.6009250721739, -27.3242295922933, 0.450305846454234)
    pt3dadd(-2.08242381170804, 94.4463145518412, -27.8496955459913, 0.450250405897802)
    pt3dadd(-1.98649592643982, 95.2917040315086, -28.3751614996892, 0.450205015009282)
    pt3dadd(-1.8905680411716, 96.137093511176, -28.9006274533872, 0.450167852092942)
    pt3dadd(-1.79464015590338, 96.9824829908434, -29.4260934070851, 0.45013742567046)
    pt3dadd(-1.69871227063516, 97.8278724705107, -29.9515593607831, 0.450112514622668)
    pt3dadd(-1.60278438536694, 98.6732619501781, -30.477025314481, 0.450092119181749)
    pt3dadd(-1.50685650009871, 99.5186514298455, -31.002491268179, 0.450075420807047)
    pt3dadd(-1.41092861483049, 100.364040909513, -31.5279572218769, 0.450061749334151)
    pt3dadd(-1.31500072956227, 101.20943038918, -32.0534231755749, 0.450050556078851)
    pt3dadd(-1.21907284429405, 102.054819868848, -32.5788891292728, 0.450041391816511)
    pt3dadd(-1.12314495902583, 102.900209348515, -33.1043550829708, 0.450033888753103)
    pt3dadd(-1.0272170737576, 103.745598828182, -33.6298210366687, 0.450027745764349)
    pt3dadd(-0.931289188489383, 104.59098830785, -34.1552869903666, 0.45002271631054)
    pt3dadd(-0.835361303221161, 105.436377787517, -34.6807529440646, 0.450018598542036)
    pt3dadd(-0.73943341795294, 106.281767267184, -35.2062188977625, 0.450015227198327)
    pt3dadd(-0.643505532684718, 107.127156746852, -35.7316848514605, 0.450012466975554)
    pt3dadd(-0.547577647416496, 107.972546226519, -36.2571508051584, 0.450010207096284)
    pt3dadd(-0.451649762148274, 108.817935706187, -36.7826167588564, 0.450008356863627)
    pt3dadd(-0.355721876880053, 109.663325185854, -37.3080827125543, 0.450006842021251)
    pt3dadd(-0.259793991611831, 110.508714665521, -37.8335486662523, 0.450005601773211)
    pt3dadd(-0.163866106343609, 111.354104145189, -38.3590146199502, 0.450004586344)
    pt3dadd(-0.0679382210753872, 112.199493624856, -38.8844805736482, 0.450003754980877)
    pt3dadd(0.0279896641928348, 113.044883104523, -39.4099465273461, 0.450003074318321)
    pt3dadd(0.123917549461056, 113.890272584191, -39.9354124810441, 0.450002517038954)
    pt3dadd(0.219845434729278, 114.735662063858, -40.460878434742, 0.450002060777199)
    pt3dadd(0.3157733199975, 115.581051543526, -40.98634438844, 0.450001687221668)
    pt3dadd(0.411701205265722, 116.426441023193, -41.5118103421379, 0.450001381380267)
    pt3dadd(0.507629090533943, 117.27183050286, -42.0372762958359, 0.450001130978506)
    pt3dadd(0.603556975802165, 118.117219982528, -42.5627422495338, 0.450000925966884)
    pt3dadd(0.699484861070387, 118.962609462195, -43.0882082032318, 0.450000758117564)
    pt3dadd(0.795412746338608, 119.807998941862, -43.6136741569297, 0.450000620694164)
    pt3dadd(0.89134063160683, 120.65338842153, -44.1391401106277, 0.450000508181401)
    pt3dadd(0.987268516875051, 121.498777901197, -44.6646060643256, 0.450000416063741)
    pt3dadd(1.08319640214327, 122.344167380865, -45.1900720180236, 0.45000034064418)
    pt3dadd(1.1791242874115, 123.189556860532, -45.7155379717215, 0.450000278895866)
    pt3dadd(1.27505217267972, 124.034946340199, -46.2410039254195, 0.450000228340622)
    pt3dadd(1.37098005794794, 124.880335819867, -46.7664698791174, 0.45000018694949)
    pt3dadd(1.46690794321616, 125.725725299534, -47.2919358328154, 0.450000153061296)
    pt3dadd(1.56283582848438, 126.571114779201, -47.8174017865133, 0.45000012531599)
    pt3dadd(1.6587637137526, 127.416504258869, -48.3428677402113, 0.450000102600055)
    pt3dadd(1.75469159902083, 128.261893738536, -48.8683336939092, 0.450000084001821)
    pt3dadd(1.85061948428905, 129.107283218204, -49.3937996476072, 0.450000068774874)
    pt3dadd(1.94654736955727, 129.952672697871, -49.9192656013051, 0.450000056308104)
    pt3dadd(2.04247525482549, 130.798062177538, -50.4447315550031, 0.450000046101177)
    pt3dadd(2.13840314009371, 131.643451657206, -50.970197508701, 0.450000037744451)
    pt3dadd(2.23433102536193, 132.488841136873, -51.495663462399, 0.450000030902543)
    pt3dadd(2.33025891063016, 133.33423061654, -52.0211294160969, 0.450000025300862)
    pt3dadd(2.42618679589838, 134.179620096208, -52.5465953697948, 0.450000020714594)
    pt3dadd(2.5221146811666, 135.025009575875, -53.0720613234928, 0.450000016959675)
    pt3dadd(2.61804256643482, 135.870399055543, -53.5975272771907, 0.450000013885408)
    pt3dadd(2.71397045170304, 136.71578853521, -54.1229932308887, 0.45000001136841)
    pt3dadd(2.80989833697127, 137.561178014877, -54.6484591845866, 0.450000009307667)
    pt3dadd(2.90582622223949, 138.406567494545, -55.1739251382846, 0.450000007620473)
    pt3dadd(3.00175410750771, 139.251956974212, -55.6993910919825, 0.450000006239116)
    pt3dadd(3.09768199277593, 140.097346453879, -56.2248570456805, 0.450000005108156)
    pt3dadd(3.19360987804415, 140.942735933547, -56.7503229993784, 0.450000004182204)
    pt3dadd(3.28953776331237, 141.788125413214, -57.2757889530764, 0.450000003424099)
    pt3dadd(3.3854656485806, 142.633514892882, -57.8012549067743, 0.450000002803415)
    pt3dadd(3.48139353384882, 143.478904372549, -58.3267208604723, 0.450000002295242)
    pt3dadd(3.57732141911704, 144.324293852216, -58.8521868141702, 0.450000001879186)
    pt3dadd(3.67324930438526, 145.169683331884, -59.3776527678682, 0.450000001538547)
    pt3dadd(3.76917718965348, 146.015072811551, -59.9031187215661, 0.450000001259656)
    pt3dadd(3.8651050749217, 146.860462291218, -60.4285846752641, 0.450000001031319)
    pt3dadd(3.96103296018993, 147.705851770886, -60.954050628962, 0.450000000844373)
    pt3dadd(4.05696084545815, 148.551241250553, -61.47951658266, 0.450000000691314)
    pt3dadd(4.15288873072637, 149.39663073022, -62.0049825363579, 0.450000000566)
    pt3dadd(4.24881661599459, 150.242020209888, -62.5304484900559, 0.450000000463401)
    pt3dadd(4.34474450126281, 151.087409689555, -63.0559144437538, 0.450000000379401)
    pt3dadd(4.44067238653103, 151.932799169223, -63.5813803974518, 0.450000000310627)
    pt3dadd(4.53660027179926, 152.77818864889, -64.1068463511497, 0.45000000025432)
    pt3dadd(4.63252815706748, 153.623578128557, -64.6323123048477, 0.45000000020822)
    pt3dadd(4.7284560423357, 154.468967608225, -65.1577782585456, 0.450000000170476)
    pt3dadd(4.82438392760392, 155.314357087892, -65.6832442122436, 0.450000000139574)
    pt3dadd(4.92031181287214, 156.159746567559, -66.2087101659415, 0.450000000114273)
    pt3dadd(5.01623969814037, 157.005136047227, -66.7341761196395, 0.450000000093559)
    pt3dadd(5.11216758340859, 157.850525526894, -67.2596420733374, 0.4500000000766)
    pt3dadd(5.20809546867681, 158.695915006562, -67.7851080270353, 0.450000000062715)
    pt3dadd(5.30402335394503, 159.541304486229, -68.3105739807333, 0.450000000051346)
    pt3dadd(5.39995123921325, 160.386693965896, -68.8360399344313, 0.450000000042039)
    pt3dadd(5.49587912448147, 161.232083445564, -69.3615058881292, 0.450000000034418)
    pt3dadd(5.5918070097497, 162.077472925231, -69.8869718418271, 0.450000000028179)
    pt3dadd(5.68773489501792, 162.922862404898, -70.4124377955251, 0.450000000023071)
    pt3dadd(5.78366278028614, 163.768251884566, -70.937903749223, 0.450000000018889)
    pt3dadd(5.87959066555436, 164.613641364233, -71.463369702921, 0.450000000015465)
    pt3dadd(5.97551855082258, 165.459030843901, -71.9888356566189, 0.450000000012662)
    pt3dadd(6.0714464360908, 166.304420323568, -72.5143016103169, 0.450000000010367)
    pt3dadd(6.16737432135903, 167.149809803235, -73.0397675640148, 0.450000000008488)
    pt3dadd(6.26330220662725, 167.995199282903, -73.5652335177128, 0.450000000006949)
    pt3dadd(6.35923009189547, 168.84058876257, -74.0906994714107, 0.450000000005689)
    pt3dadd(6.45515797716369, 169.685978242237, -74.6161654251087, 0.450000000004658)
    pt3dadd(6.55108586243191, 170.531367721905, -75.1416313788066, 0.450000000003814)
    pt3dadd(6.64701374770013, 171.376757201572, -75.6670973325046, 0.450000000003122)
    pt3dadd(6.74294163296836, 172.22214668124, -76.1925632862025, 0.450000000002556)
    pt3dadd(6.83886951823658, 173.067536160907, -76.7180292399005, 0.450000000002093)
    pt3dadd(6.9347974035048, 173.912925640574, -77.2434951935984, 0.450000000001714)
    pt3dadd(7.03072528877302, 174.758315120242, -77.7689611472964, 0.450000000001403)
    pt3dadd(7.12665317404124, 175.603704599909, -78.2944271009943, 0.450000000001149)
    pt3dadd(7.22258105930947, 176.449094079576, -78.8198930546923, 0.45000000000094)
    pt3dadd(7.31850894457769, 177.294483559244, -79.3453590083902, 0.45000000000077)
    pt3dadd(7.41443682984591, 178.139873038911, -79.8708249620882, 0.45000000000063)
    pt3dadd(7.51036471511413, 178.985262518579, -80.3962909157861, 0.450000000000516)
    pt3dadd(7.60629260038235, 179.830651998246, -80.9217568694841, 0.450000000000423)
    pt3dadd(7.70222048565057, 180.676041477913, -81.447222823182, 0.450000000000346)
    pt3dadd(7.7981483709188, 181.521430957581, -81.97268877688, 0.450000000000283)
    pt3dadd(7.89407625618702, 182.366820437248, -82.4981547305779, 0.450000000000232)
    pt3dadd(7.99000414145524, 183.212209916915, -83.0236206842759, 0.45000000000019)
    pt3dadd(8.08593202672346, 184.057599396583, -83.5490866379738, 0.450000000000155)
    pt3dadd(8.18185991199168, 184.90298887625, -84.0745525916718, 0.450000000000127)
    pt3dadd(8.2777877972599, 185.748378355918, -84.6000185453697, 0.450000000000104)
    pt3dadd(8.37371568252813, 186.593767835585, -85.1254844990677, 0.450000000000085)
    pt3dadd(8.46964356779635, 187.439157315252, -85.6509504527656, 0.45000000000007)
    pt3dadd(8.56557145306457, 188.28454679492, -86.1764164064635, 0.450000000000057)
    pt3dadd(8.66149933833279, 189.129936274587, -86.7018823601615, 0.450000000000047)
    pt3dadd(8.75742722360101, 189.975325754254, -87.2273483138595, 0.450000000000038)
    pt3dadd(8.85335510886924, 190.820715233922, -87.7528142675574, 0.450000000000031)
    pt3dadd(8.94928299413746, 191.666104713589, -88.2782802212553, 0.450000000000026)
    pt3dadd(9.04521087940568, 192.511494193257, -88.8037461749533, 0.450000000000021)
    pt3dadd(9.1411387646739, 193.356883672924, -89.3292121286512, 0.450000000000017)
    pt3dadd(9.23706664994212, 194.202273152591, -89.8546780823492, 0.450000000000014)
    pt3dadd(9.33299453521034, 195.047662632259, -90.3801440360471, 0.450000000000012)
    pt3dadd(9.42892242047857, 195.893052111926, -90.9056099897451, 0.450000000000009)
    pt3dadd(9.52485030574679, 196.738441591593, -91.431075943443, 0.450000000000008)
    pt3dadd(9.62077819101501, 197.583831071261, -91.956541897141, 0.450000000000006)
    pt3dadd(9.71670607628323, 198.429220550928, -92.4820078508389, 0.450000000000005)
    pt3dadd(9.81263396155145, 199.274610030596, -93.0074738045369, 0.450000000000004)
    pt3dadd(9.90856184681967, 200.119999510263, -93.5329397582348, 0.450000000000004)
    pt3dadd(10.0044897320879, 200.96538898993, -94.0584057119328, 0.450000000000003)
    pt3dadd(10.1004176173561, 201.810778469598, -94.5838716656307, 0.450000000000002)
    pt3dadd(10.1963455026243, 202.656167949265, -95.1093376193287, 0.450000000000002)
    pt3dadd(10.2922733878926, 203.501557428932, -95.6348035730266, 0.450000000000002)
    pt3dadd(10.3882012731608, 204.3469469086, -96.1602695267246, 0.450000000000001)
    pt3dadd(10.484129158429, 205.192336388267, -96.6857354804225, 0.450000000000001)
    pt3dadd(10.5800570436972, 206.037725867935, -97.2112014341205, 0.450000000000001)
    pt3dadd(10.6759849289654, 206.883115347602, -97.7366673878184, 0.450000000000001)
    pt3dadd(10.7719128142337, 207.728504827269, -98.2621333415164, 0.450000000000001)
    pt3dadd(10.8678406995019, 208.573894306937, -98.7875992952143, 0.45)
    pt3dadd(10.9637685847701, 209.419283786604, -99.3130652489123, 0.45)
    pt3dadd(11.0596964700383, 210.264673266271, -99.8385312026102, 0.45)
    pt3dadd(11.1556243553066, 211.110062745939, -100.363997156308, 0.45)
    pt3dadd(11.2515522405748, 211.955452225606, -100.889463110006, 0.45)
    pt3dadd(11.347480125843, 212.800841705274, -101.414929063704, 0.45)
    pt3dadd(11.4434080111112, 213.646231184941, -101.940395017402, 0.45)
    pt3dadd(11.5393358963794, 214.491620664608, -102.4658609711, 0.45)
    pt3dadd(11.6352637816477, 215.337010144276, -102.991326924798, 0.45)
    pt3dadd(11.7311916669159, 216.182399623943, -103.516792878496, 0.45)
    pt3dadd(11.8271195521841, 217.02778910361, -104.042258832194, 0.45)
    pt3dadd(11.9230474374523, 217.873178583278, -104.567724785892, 0.45)
    pt3dadd(12.0189753227206, 218.718568062945, -105.09319073959, 0.45)
    pt3dadd(12.1149032079888, 219.563957542612, -105.618656693288, 0.45)
    pt3dadd(12.210831093257, 220.40934702228, -106.144122646986, 0.45)
    pt3dadd(12.3067589785252, 221.254736501947, -106.669588600684, 0.45)
    pt3dadd(12.4026868637934, 222.100125981615, -107.195054554381, 0.45)
    pt3dadd(12.4986147490617, 222.945515461282, -107.720520508079, 0.45)
    pt3dadd(12.5945426343299, 223.790904940949, -108.245986461777, 0.45)
    pt3dadd(12.6904705195981, 224.636294420617, -108.771452415475, 0.45)
    pt3dadd(12.7863984048663, 225.481683900284, -109.296918369173, 0.45)
    pt3dadd(12.8823262901345, 226.327073379951, -109.822384322871, 0.45)
    pt3dadd(12.9782541754028, 227.172462859619, -110.347850276569, 0.45)
    pt3dadd(13.074182060671, 228.017852339286, -110.873316230267, 0.45)
    pt3dadd(13.1701099459392, 228.863241818954, -111.398782183965, 0.45)
    pt3dadd(13.2660378312074, 229.708631298621, -111.924248137663, 0.45)
    pt3dadd(13.3619657164757, 230.554020778288, -112.449714091361, 0.45)
    pt3dadd(13.4578936017439, 231.399410257956, -112.975180045059, 0.45)
    pt3dadd(13.5538214870121, 232.244799737623, -113.500645998757, 0.45)
    pt3dadd(13.6497493722803, 233.09018921729, -114.026111952455, 0.45)
    pt3dadd(13.7456772575485, 233.935578696958, -114.551577906153, 0.45)
    pt3dadd(13.8416051428168, 234.780968176625, -115.077043859851, 0.45)
    pt3dadd(13.937533028085, 235.626357656293, -115.602509813549, 0.45)
    pt3dadd(14.0334609133532, 236.47174713596, -116.127975767247, 0.45)
    pt3dadd(14.1293887986214, 237.317136615627, -116.653441720945, 0.45)
    pt3dadd(14.2253166838897, 238.162526095295, -117.178907674643, 0.45)
    pt3dadd(14.3212445691579, 239.007915574962, -117.70437362834, 0.45)
    pt3dadd(14.4171724544261, 239.853305054629, -118.229839582038, 0.45)
    pt3dadd(14.5131003396943, 240.698694534297, -118.755305535736, 0.45)
    pt3dadd(14.6090282249625, 241.544084013964, -119.280771489434, 0.45)
    pt3dadd(14.7049561102308, 242.389473493632, -119.806237443132, 0.45)
    pt3dadd(14.800883995499, 243.234862973299, -120.33170339683, 0.45)
    pt3dadd(14.8968118807672, 244.080252452966, -120.857169350528, 0.45)
    pt3dadd(14.9927397660354, 244.925641932634, -121.382635304226, 0.45)
    pt3dadd(15.0886676513036, 245.771031412301, -121.908101257924, 0.45)
    pt3dadd(15.1845955365719, 246.616420891968, -122.433567211622, 0.45)
    pt3dadd(15.2805234218401, 247.461810371636, -122.95903316532, 0.45)
    pt3dadd(15.3764513071083, 248.307199851303, -123.484499119018, 0.45)
    pt3dadd(15.4723791923765, 249.152589330971, -124.009965072716, 0.45)
    pt3dadd(15.5683070776448, 249.997978810638, -124.535431026414, 0.45)
    pt3dadd(15.664234962913, 250.843368290305, -125.060896980112, 0.45)
    pt3dadd(15.7601628481812, 251.688757769973, -125.58636293381, 0.45)
    pt3dadd(15.8560907334494, 252.53414724964, -126.111828887508, 0.45)
    pt3dadd(15.9520186187176, 253.379536729307, -126.637294841206, 0.45)
    pt3dadd(16.0479465039859, 254.224926208975, -127.162760794904, 0.45)
    pt3dadd(16.1438743892541, 255.070315688642, -127.688226748601, 0.45)
    pt3dadd(16.2398022745223, 255.91570516831, -128.213692702299, 0.45)
  }
}
proc shape3d_2() {
  axon[0] {
    pt3dadd(16.3357301597905, 256.761094647977, -128.739158655997, 0.45)
    pt3dadd(16.4316580450588, 257.606484127644, -129.264624609695, 0.45)
    pt3dadd(16.527585930327, 258.451873607312, -129.790090563393, 0.45)
    pt3dadd(16.6235138155952, 259.297263086979, -130.315556517091, 0.45)
    pt3dadd(16.7194417008634, 260.142652566646, -130.841022470789, 0.45)
    pt3dadd(16.8153695861316, 260.988042046314, -131.366488424487, 0.45)
    pt3dadd(16.9112974713999, 261.833431525981, -131.891954378185, 0.45)
    pt3dadd(17.0072253566681, 262.678821005649, -132.417420331883, 0.45)
    pt3dadd(17.1031532419363, 263.524210485316, -132.942886285581, 0.45)
    pt3dadd(17.1990811272045, 264.369599964983, -133.468352239279, 0.45)
    pt3dadd(17.2950090124727, 265.214989444651, -133.993818192977, 0.45)
    pt3dadd(17.390936897741, 266.060378924318, -134.519284146675, 0.45)
    pt3dadd(17.4868647830092, 266.905768403985, -135.044750100373, 0.45)
    pt3dadd(17.5827926682774, 267.751157883653, -135.570216054071, 0.45)
    pt3dadd(17.6787205535456, 268.59654736332, -136.095682007769, 0.45)
    pt3dadd(17.7746484388139, 269.441936842988, -136.621147961467, 0.45)
    pt3dadd(17.8705763240821, 270.287326322655, -137.146613915165, 0.45)
    pt3dadd(17.9665042093503, 271.132715802322, -137.672079868863, 0.45)
    pt3dadd(18.0624320946185, 271.97810528199, -138.19754582256, 0.45)
    pt3dadd(18.1583599798867, 272.823494761657, -138.723011776258, 0.45)
    pt3dadd(18.254287865155, 273.668884241324, -139.248477729956, 0.45)
    pt3dadd(18.3502157504232, 274.514273720992, -139.773943683654, 0.45)
    pt3dadd(18.4461436356914, 275.359663200659, -140.299409637352, 0.45)
    pt3dadd(18.5420715209596, 276.205052680327, -140.82487559105, 0.45)
    pt3dadd(18.6379994062279, 277.050442159994, -141.350341544748, 0.45)
    pt3dadd(18.7339272914961, 277.895831639661, -141.875807498446, 0.45)
    pt3dadd(18.8298551767643, 278.741221119329, -142.401273452144, 0.45)
    pt3dadd(18.9257830620325, 279.586610598996, -142.926739405842, 0.45)
    pt3dadd(19.0217109473007, 280.432000078663, -143.45220535954, 0.45)
    pt3dadd(19.117638832569, 281.277389558331, -143.977671313238, 0.45)
    pt3dadd(19.2135667178372, 282.122779037998, -144.503137266936, 0.45)
    pt3dadd(19.3094946031054, 282.968168517666, -145.028603220634, 0.45)
    pt3dadd(19.4054224883736, 283.813557997333, -145.554069174332, 0.45)
    pt3dadd(19.5013503736418, 284.658947477, -146.07953512803, 0.45)
    pt3dadd(19.5972782589101, 285.504336956668, -146.605001081728, 0.45)
    pt3dadd(19.6932061441783, 286.349726436335, -147.130467035426, 0.45)
    pt3dadd(19.7891340294465, 287.195115916002, -147.655932989124, 0.45)
    pt3dadd(19.8850619147147, 288.04050539567, -148.181398942821, 0.45)
    pt3dadd(19.980989799983, 288.885894875337, -148.706864896519, 0.45)
    pt3dadd(20.0769176852512, 289.731284355005, -149.232330850217, 0.45)
    pt3dadd(20.1728455705194, 290.576673834672, -149.757796803915, 0.45)
    pt3dadd(20.2687734557876, 291.422063314339, -150.283262757613, 0.45)
    pt3dadd(20.3647013410558, 292.267452794007, -150.808728711311, 0.45)
    pt3dadd(20.4606292263241, 293.112842273674, -151.334194665009, 0.45)
    pt3dadd(20.5565571115923, 293.958231753341, -151.859660618707, 0.45)
    pt3dadd(20.6524849968605, 294.803621233009, -152.385126572405, 0.45)
    pt3dadd(20.7484128821287, 295.649010712676, -152.910592526103, 0.45)
    pt3dadd(20.844340767397, 296.494400192344, -153.436058479801, 0.45)
    pt3dadd(20.9402686526652, 297.339789672011, -153.961524433499, 0.45)
    pt3dadd(21.0361965379334, 298.185179151678, -154.486990387197, 0.45)
    pt3dadd(21.1321244232016, 299.030568631346, -155.012456340895, 0.45)
    pt3dadd(21.2280523084698, 299.875958111013, -155.537922294593, 0.45)
    pt3dadd(21.3239801937381, 300.72134759068, -156.063388248291, 0.45)
    pt3dadd(21.4199080790063, 301.566737070348, -156.588854201989, 0.45)
    pt3dadd(21.5158359642745, 302.412126550015, -157.114320155687, 0.45)
    pt3dadd(21.6117638495427, 303.257516029682, -157.639786109385, 0.45)
    pt3dadd(21.707691734811, 304.10290550935, -158.165252063082, 0.45)
    pt3dadd(21.8036196200792, 304.948294989017, -158.69071801678, 0.45)
    pt3dadd(21.8995475053474, 305.793684468685, -159.216183970478, 0.45)
    pt3dadd(21.9954753906156, 306.639073948352, -159.741649924176, 0.45)
    pt3dadd(22.0914032758838, 307.484463428019, -160.267115877874, 0.45)
    pt3dadd(22.1873311611521, 308.329852907687, -160.792581831572, 0.45)
    pt3dadd(22.2832590464203, 309.175242387354, -161.31804778527, 0.45)
    pt3dadd(22.3791869316885, 310.020631867021, -161.843513738968, 0.45)
    pt3dadd(22.4751148169567, 310.866021346689, -162.368979692666, 0.45)
    pt3dadd(22.5710427022249, 311.711410826356, -162.894445646364, 0.45)
    pt3dadd(22.6669705874932, 312.556800306024, -163.419911600062, 0.45)
    pt3dadd(22.7628984727614, 313.402189785691, -163.94537755376, 0.45)
    pt3dadd(22.8588263580296, 314.247579265358, -164.470843507458, 0.45)
    pt3dadd(22.9547542432978, 315.092968745026, -164.996309461156, 0.45)
    pt3dadd(23.0506821285661, 315.938358224693, -165.521775414854, 0.45)
    pt3dadd(23.1466100138343, 316.78374770436, -166.047241368552, 0.45)
    pt3dadd(23.2425378991025, 317.629137184028, -166.57270732225, 0.45)
    pt3dadd(23.3384657843707, 318.474526663695, -167.098173275948, 0.45)
    pt3dadd(23.4343936696389, 319.319916143363, -167.623639229646, 0.45)
    pt3dadd(23.5303215549072, 320.16530562303, -168.149105183344, 0.45)
    pt3dadd(23.6262494401754, 321.010695102697, -168.674571137041, 0.45)
    pt3dadd(23.7221773254436, 321.856084582365, -169.200037090739, 0.45)
    pt3dadd(23.8181052107118, 322.701474062032, -169.725503044437, 0.45)
    pt3dadd(23.91403309598, 323.546863541699, -170.250968998135, 0.45)
    pt3dadd(24.0099609812483, 324.392253021367, -170.776434951833, 0.45)
    pt3dadd(24.1058888665165, 325.237642501034, -171.301900905531, 0.45)
    pt3dadd(24.2018167517847, 326.083031980702, -171.827366859229, 0.45)
    pt3dadd(24.2977446370529, 326.928421460369, -172.352832812927, 0.45)
    pt3dadd(24.3936725223212, 327.773810940036, -172.878298766625, 0.45)
    pt3dadd(24.4896004075894, 328.619200419704, -173.403764720323, 0.45)
    pt3dadd(24.5855282928576, 329.464589899371, -173.929230674021, 0.45)
    pt3dadd(24.6814561781258, 330.309979379038, -174.454696627719, 0.45)
    pt3dadd(24.777384063394, 331.155368858706, -174.980162581417, 0.45)
    pt3dadd(24.8733119486623, 332.000758338373, -175.505628535115, 0.45)
    pt3dadd(24.9692398339305, 332.846147818041, -176.031094488813, 0.45)
    pt3dadd(25.0651677191987, 333.691537297708, -176.556560442511, 0.45)
    pt3dadd(25.1610956044669, 334.536926777375, -177.082026396209, 0.45)
    pt3dadd(25.2570234897352, 335.382316257043, -177.607492349907, 0.45)
    pt3dadd(25.3529513750034, 336.22770573671, -178.132958303605, 0.45)
    pt3dadd(25.4488792602716, 337.073095216377, -178.658424257302, 0.45)
    pt3dadd(25.5448071455398, 337.918484696045, -179.183890211, 0.45)
    pt3dadd(25.640735030808, 338.763874175712, -179.709356164698, 0.45)
    pt3dadd(25.7366629160763, 339.609263655379, -180.234822118396, 0.45)
    pt3dadd(25.8325908013445, 340.454653135047, -180.760288072094, 0.45)
    pt3dadd(25.9285186866127, 341.300042614714, -181.285754025792, 0.45)
    pt3dadd(26.0244465718809, 342.145432094382, -181.81121997949, 0.45)
    pt3dadd(26.1203744571491, 342.990821574049, -182.336685933188, 0.45)
    pt3dadd(26.2163023424174, 343.836211053716, -182.862151886886, 0.45)
    pt3dadd(26.3122302276856, 344.681600533384, -183.387617840584, 0.45)
    pt3dadd(26.4081581129538, 345.526990013051, -183.913083794282, 0.45)
    pt3dadd(26.504085998222, 346.372379492718, -184.43854974798, 0.45)
    pt3dadd(26.6000138834903, 347.217768972386, -184.964015701678, 0.45)
    pt3dadd(26.6959417687585, 348.063158452053, -185.489481655376, 0.45)
    pt3dadd(26.7918696540267, 348.908547931721, -186.014947609074, 0.45)
    pt3dadd(26.8877975392949, 349.753937411388, -186.540413562772, 0.45)
    pt3dadd(26.9837254245631, 350.599326891055, -187.06587951647, 0.45)
    pt3dadd(27.0796533098314, 351.444716370723, -187.591345470168, 0.45)
    pt3dadd(27.1755811950996, 352.29010585039, -188.116811423866, 0.45)
    pt3dadd(27.2715090803678, 353.135495330057, -188.642277377563, 0.45)
    pt3dadd(27.367436965636, 353.980884809725, -189.167743331261, 0.45)
    pt3dadd(27.4633648509043, 354.826274289392, -189.693209284959, 0.45)
    pt3dadd(27.5592927361725, 355.67166376906, -190.218675238657, 0.45)
    pt3dadd(27.6552206214407, 356.517053248727, -190.744141192355, 0.45)
    pt3dadd(27.7511485067089, 357.362442728394, -191.269607146053, 0.45)
    pt3dadd(27.8470763919771, 358.207832208062, -191.795073099751, 0.45)
    pt3dadd(27.9430042772454, 359.053221687729, -192.320539053449, 0.45)
    pt3dadd(28.0389321625136, 359.898611167397, -192.846005007147, 0.45)
    pt3dadd(28.1348600477818, 360.744000647064, -193.371470960845, 0.45)
    pt3dadd(28.23078793305, 361.589390126731, -193.896936914543, 0.45)
    pt3dadd(28.3267158183182, 362.434779606399, -194.422402868241, 0.45)
    pt3dadd(28.4226437035865, 363.280169086066, -194.947868821939, 0.45)
    pt3dadd(28.5185715888547, 364.125558565733, -195.473334775637, 0.45)
    pt3dadd(28.6144994741229, 364.970948045401, -195.998800729335, 0.45)
    pt3dadd(28.7104273593911, 365.816337525068, -196.524266683033, 0.45)
    pt3dadd(28.8063552446594, 366.661727004736, -197.049732636731, 0.45)
    pt3dadd(28.9022831299276, 367.507116484403, -197.575198590429, 0.45)
    pt3dadd(28.9982110151958, 368.35250596407, -198.100664544127, 0.45)
    pt3dadd(29.094138900464, 369.197895443738, -198.626130497825, 0.45)
    pt3dadd(29.1900667857322, 370.043284923405, -199.151596451522, 0.45)
    pt3dadd(29.2859946710005, 370.888674403072, -199.67706240522, 0.45)
    pt3dadd(29.3819225562687, 371.73406388274, -200.202528358918, 0.45)
    pt3dadd(29.4778504415369, 372.579453362407, -200.727994312616, 0.45)
    pt3dadd(29.5737783268051, 373.424842842074, -201.253460266314, 0.45)
    pt3dadd(29.6697062120734, 374.270232321742, -201.778926220012, 0.45)
    pt3dadd(29.7656340973416, 375.115621801409, -202.30439217371, 0.45)
    pt3dadd(29.8615619826098, 375.961011281077, -202.829858127408, 0.45)
    pt3dadd(29.957489867878, 376.806400760744, -203.355324081106, 0.45)
    pt3dadd(30.0534177531462, 377.651790240411, -203.880790034804, 0.45)
    pt3dadd(30.1493456384145, 378.497179720079, -204.406255988502, 0.45)
    pt3dadd(30.2452735236827, 379.342569199746, -204.9317219422, 0.45)
    pt3dadd(30.3412014089509, 380.187958679413, -205.457187895898, 0.45)
    pt3dadd(30.4371292942191, 381.033348159081, -205.982653849596, 0.45)
    pt3dadd(30.5330571794874, 381.878737638748, -206.508119803294, 0.45)
    pt3dadd(30.6289850647556, 382.724127118416, -207.033585756992, 0.45)
    pt3dadd(30.7249129500238, 383.569516598083, -207.55905171069, 0.45)
    pt3dadd(30.820840835292, 384.41490607775, -208.084517664388, 0.45)
    pt3dadd(30.9167687205602, 385.260295557418, -208.609983618086, 0.45)
    pt3dadd(31.0126966058285, 386.105685037085, -209.135449571783, 0.45)
    pt3dadd(31.1086244910967, 386.951074516752, -209.660915525481, 0.45)
    pt3dadd(31.2045523763649, 387.79646399642, -210.186381479179, 0.45)
    pt3dadd(31.3004802616331, 388.641853476087, -210.711847432877, 0.45)
    pt3dadd(31.3964081469013, 389.487242955755, -211.237313386575, 0.45)
    pt3dadd(31.4923360321696, 390.332632435422, -211.762779340273, 0.45)
    pt3dadd(31.5882639174378, 391.178021915089, -212.288245293971, 0.45)
    pt3dadd(31.684191802706, 392.023411394757, -212.813711247669, 0.45)
    pt3dadd(31.7801196879742, 392.868800874424, -213.339177201367, 0.45)
    pt3dadd(31.8760475732425, 393.714190354091, -213.864643155065, 0.45)
    pt3dadd(31.9719754585107, 394.559579833759, -214.390109108763, 0.45)
    pt3dadd(32.0679033437789, 395.404969313426, -214.915575062461, 0.45)
    pt3dadd(32.1638312290471, 396.250358793094, -215.441041016159, 0.45)
    pt3dadd(32.2597591143153, 397.095748272761, -215.966506969857, 0.45)
    pt3dadd(32.3556869995836, 397.941137752428, -216.491972923555, 0.45)
    pt3dadd(32.4516148848518, 398.786527232096, -217.017438877253, 0.45)
    pt3dadd(32.54754277012, 399.631916711763, -217.542904830951, 0.45)
    pt3dadd(32.6434706553882, 400.47730619143, -218.068370784649, 0.45)
    pt3dadd(32.7393985406565, 401.322695671098, -218.593836738347, 0.45)
    pt3dadd(32.8353264259247, 402.168085150765, -219.119302692045, 0.45)
    pt3dadd(32.9312543111929, 403.013474630433, -219.644768645742, 0.45)
    pt3dadd(33.0271821964611, 403.8588641101, -220.17023459944, 0.45)
    pt3dadd(33.1231100817293, 404.704253589767, -220.695700553138, 0.45)
    pt3dadd(33.2190379669976, 405.549643069435, -221.221166506836, 0.45)
    pt3dadd(33.3149658522658, 406.395032549102, -221.746632460534, 0.45)
    pt3dadd(33.410893737534, 407.240422028769, -222.272098414232, 0.45)
    pt3dadd(33.5068216228022, 408.085811508437, -222.79756436793, 0.45)
    pt3dadd(33.6027495080704, 408.931200988104, -223.323030321628, 0.45)
    pt3dadd(33.6986773933387, 409.776590467772, -223.848496275326, 0.45)
    pt3dadd(33.7946052786069, 410.621979947439, -224.373962229024, 0.45)
    pt3dadd(33.8905331638751, 411.467369427106, -224.899428182722, 0.45)
    pt3dadd(33.9864610491433, 412.312758906774, -225.42489413642, 0.45)
    pt3dadd(34.0823889344116, 413.158148386441, -225.950360090118, 0.45)
    pt3dadd(34.1783168196798, 414.003537866108, -226.475826043816, 0.45)
    pt3dadd(34.274244704948, 414.848927345776, -227.001291997514, 0.45)
    pt3dadd(34.3701725902162, 415.694316825443, -227.526757951212, 0.45)
    pt3dadd(34.4661004754844, 416.53970630511, -228.05222390491, 0.45)
    pt3dadd(34.5620283607527, 417.385095784778, -228.577689858608, 0.45)
    pt3dadd(34.6579562460209, 418.230485264445, -229.103155812306, 0.45)
    pt3dadd(34.7538841312891, 419.075874744113, -229.628621766003, 0.45)
    pt3dadd(34.8498120165573, 419.92126422378, -230.154087719701, 0.45)
    pt3dadd(34.9457399018255, 420.766653703447, -230.679553673399, 0.45)
    pt3dadd(35.0416677870938, 421.612043183115, -231.205019627097, 0.45)
    pt3dadd(35.137595672362, 422.457432662782, -231.730485580795, 0.45)
    pt3dadd(35.2335235576302, 423.302822142449, -232.255951534493, 0.45)
    pt3dadd(35.3294514428984, 424.148211622117, -232.781417488191, 0.45)
    pt3dadd(35.4253793281667, 424.993601101784, -233.306883441889, 0.45)
    pt3dadd(35.5213072134349, 425.838990581452, -233.832349395587, 0.45)
    pt3dadd(35.6172350987031, 426.684380061119, -234.357815349285, 0.45)
    pt3dadd(35.7131629839713, 427.529769540786, -234.883281302983, 0.45)
    pt3dadd(35.8090908692395, 428.375159020454, -235.408747256681, 0.45)
    pt3dadd(35.9050187545078, 429.220548500121, -235.934213210379, 0.45)
    pt3dadd(36.000946639776, 430.065937979788, -236.459679164077, 0.45)
    pt3dadd(36.0968745250442, 430.911327459456, -236.985145117775, 0.45)
    pt3dadd(36.1928024103124, 431.756716939123, -237.510611071473, 0.45)
    pt3dadd(36.2887302955807, 432.602106418791, -238.036077025171, 0.45)
    pt3dadd(36.3846581808489, 433.447495898458, -238.561542978869, 0.45)
    pt3dadd(36.4805860661171, 434.292885378125, -239.087008932567, 0.45)
    pt3dadd(36.5765139513853, 435.138274857793, -239.612474886264, 0.45)
    pt3dadd(36.6724418366535, 435.98366433746, -240.137940839962, 0.45)
    pt3dadd(36.7683697219218, 436.829053817127, -240.66340679366, 0.45)
    pt3dadd(36.86429760719, 437.674443296795, -241.188872747358, 0.45)
    pt3dadd(36.9602254924582, 438.519832776462, -241.714338701056, 0.45)
    pt3dadd(37.0561533777264, 439.36522225613, -242.239804654754, 0.45)
    pt3dadd(37.1520812629946, 440.210611735797, -242.765270608452, 0.45)
    pt3dadd(37.2480091482629, 441.056001215464, -243.29073656215, 0.45)
    pt3dadd(37.3439370335311, 441.901390695132, -243.816202515848, 0.45)
    pt3dadd(37.4398649187993, 442.746780174799, -244.341668469546, 0.45)
    pt3dadd(37.5357928040675, 443.592169654466, -244.867134423244, 0.45)
    pt3dadd(37.6317206893358, 444.437559134134, -245.392600376942, 0.45)
    pt3dadd(37.727648574604, 445.282948613801, -245.91806633064, 0.45)
    pt3dadd(37.8235764598722, 446.128338093469, -246.443532284338, 0.45)
    pt3dadd(37.9195043451404, 446.973727573136, -246.968998238036, 0.45)
    pt3dadd(38.0154322304086, 447.819117052803, -247.494464191734, 0.45)
    pt3dadd(38.1113601156769, 448.664506532471, -248.019930145432, 0.45)
    pt3dadd(38.2072880009451, 449.509896012138, -248.54539609913, 0.45)
    pt3dadd(38.3032158862133, 450.355285491805, -249.070862052828, 0.45)
    pt3dadd(38.3991437714815, 451.200674971473, -249.596328006526, 0.45)
    pt3dadd(38.4950716567498, 452.04606445114, -250.121793960223, 0.45)
    pt3dadd(38.590999542018, 452.891453930808, -250.647259913921, 0.45)
    pt3dadd(38.6869274272862, 453.736843410475, -251.172725867619, 0.45)
    pt3dadd(38.7828553125544, 454.582232890142, -251.698191821317, 0.45)
    pt3dadd(38.8787831978226, 455.42762236981, -252.223657775015, 0.45)
    pt3dadd(38.9747110830909, 456.273011849477, -252.749123728713, 0.45)
    pt3dadd(39.0706389683591, 457.118401329144, -253.274589682411, 0.45)
    pt3dadd(39.1665668536273, 457.963790808812, -253.800055636109, 0.45)
    pt3dadd(39.2624947388955, 458.809180288479, -254.325521589807, 0.45)
    pt3dadd(39.3584226241638, 459.654569768147, -254.850987543505, 0.45)
    pt3dadd(39.454350509432, 460.499959247814, -255.376453497203, 0.45)
    pt3dadd(39.5502783947002, 461.345348727481, -255.901919450901, 0.45)
    pt3dadd(39.6462062799684, 462.190738207149, -256.427385404599, 0.45)
    pt3dadd(39.7421341652366, 463.036127686816, -256.952851358297, 0.45)
    pt3dadd(39.8380620505049, 463.881517166483, -257.478317311995, 0.45)
    pt3dadd(39.9339899357731, 464.726906646151, -258.003783265693, 0.45)
    pt3dadd(40.0299178210413, 465.572296125818, -258.529249219391, 0.45)
    pt3dadd(40.1258457063095, 466.417685605486, -259.054715173089, 0.45)
  }
}
proc shape3d_3() {
  axon[0] {
    pt3dadd(40.2217735915777, 467.263075085153, -259.580181126787, 0.45)
    pt3dadd(40.317701476846, 468.10846456482, -260.105647080485, 0.45)
    pt3dadd(40.4136293621142, 468.953854044488, -260.631113034182, 0.45)
    pt3dadd(40.5095572473824, 469.799243524155, -261.15657898788, 0.45)
    pt3dadd(40.6054851326506, 470.644633003822, -261.682044941578, 0.45)
    pt3dadd(40.7014130179189, 471.49002248349, -262.207510895276, 0.45)
    pt3dadd(40.7973409031871, 472.335411963157, -262.732976848974, 0.45)
    pt3dadd(40.8932687884553, 473.180801442825, -263.258442802672, 0.45)
    pt3dadd(40.9891966737235, 474.026190922492, -263.78390875637, 0.45)
    pt3dadd(41.0851245589917, 474.871580402159, -264.309374710068, 0.45)
    pt3dadd(41.18105244426, 475.716969881827, -264.834840663766, 0.45)
    pt3dadd(41.2769803295282, 476.562359361494, -265.360306617464, 0.45)
    pt3dadd(41.3729082147964, 477.407748841161, -265.885772571162, 0.45)
    pt3dadd(41.4688361000646, 478.253138320829, -266.41123852486, 0.45)
    pt3dadd(41.5647639853329, 479.098527800496, -266.936704478558, 0.45)
    pt3dadd(41.6606918706011, 479.943917280164, -267.462170432256, 0.45)
    pt3dadd(41.7566197558693, 480.789306759831, -267.987636385954, 0.45)
    pt3dadd(41.8525476411375, 481.634696239498, -268.513102339652, 0.45)
    pt3dadd(41.9484755264057, 482.480085719166, -269.03856829335, 0.45)
    pt3dadd(42.044403411674, 483.325475198833, -269.564034247048, 0.45)
    pt3dadd(42.1403312969422, 484.1708646785, -270.089500200746, 0.45)
    pt3dadd(42.2362591822104, 485.016254158168, -270.614966154443, 0.45)
    pt3dadd(42.3321870674786, 485.861643637835, -271.140432108141, 0.45)
    pt3dadd(42.4281149527468, 486.707033117502, -271.665898061839, 0.45)
    pt3dadd(42.5240428380151, 487.55242259717, -272.191364015537, 0.45)
    pt3dadd(42.6199707232833, 488.397812076837, -272.716829969235, 0.45)
    pt3dadd(42.7158986085515, 489.243201556505, -273.242295922933, 0.45)
    pt3dadd(42.8118264938197, 490.088591036172, -273.767761876631, 0.45)
    pt3dadd(42.907754379088, 490.933980515839, -274.293227830329, 0.45)
    pt3dadd(43.0036822643562, 491.779369995507, -274.818693784027, 0.45)
    pt3dadd(43.0996101496244, 492.624759475174, -275.344159737725, 0.45)
    pt3dadd(43.1955380348926, 493.470148954841, -275.869625691423, 0.45)
    pt3dadd(43.2914659201608, 494.315538434509, -276.395091645121, 0.45)
    pt3dadd(43.3873938054291, 495.160927914176, -276.920557598819, 0.45)
    pt3dadd(43.4833216906973, 496.006317393844, -277.446023552517, 0.45)
    pt3dadd(43.5792495759655, 496.851706873511, -277.971489506215, 0.45)
    pt3dadd(43.6751774612337, 497.697096353178, -278.496955459913, 0.45)
    pt3dadd(43.7711053465019, 498.542485832846, -279.022421413611, 0.45)
    pt3dadd(43.8670332317702, 499.387875312513, -279.547887367309, 0.45)
    pt3dadd(43.9629611170384, 500.23326479218, -280.073353321007, 0.45)
    pt3dadd(44.0588890023066, 501.078654271848, -280.598819274704, 0.45)
    pt3dadd(44.1548168875748, 501.924043751515, -281.124285228402, 0.45)
    pt3dadd(44.2507447728431, 502.769433231183, -281.6497511821, 0.45)
    pt3dadd(44.3466726581113, 503.61482271085, -282.175217135798, 0.45)
    pt3dadd(44.4426005433795, 504.460212190517, -282.700683089496, 0.45)
    pt3dadd(44.5385284286477, 505.305601670185, -283.226149043194, 0.45)
    pt3dadd(44.6344563139159, 506.150991149852, -283.751614996892, 0.45)
    pt3dadd(44.7303841991842, 506.996380629519, -284.27708095059, 0.45)
    pt3dadd(44.8263120844524, 507.841770109187, -284.802546904288, 0.45)
    pt3dadd(44.9222399697206, 508.687159588854, -285.328012857986, 0.45)
    pt3dadd(45.0181678549888, 509.532549068522, -285.853478811684, 0.45)
    pt3dadd(45.1140957402571, 510.377938548189, -286.378944765382, 0.45)
    pt3dadd(45.2100236255253, 511.223328027856, -286.90441071908, 0.45)
    pt3dadd(45.3059515107935, 512.068717507524, -287.429876672778, 0.45)
    pt3dadd(45.4018793960617, 512.914106987191, -287.955342626476, 0.45)
    pt3dadd(45.4978072813299, 513.759496466858, -288.480808580174, 0.45)
    pt3dadd(45.5937351665982, 514.604885946526, -289.006274533872, 0.45)
    pt3dadd(45.6896630518664, 515.450275426193, -289.53174048757, 0.45)
    pt3dadd(45.7855909371346, 516.295664905861, -290.057206441268, 0.45)
    pt3dadd(45.8815188224028, 517.141054385528, -290.582672394966, 0.45)
    pt3dadd(45.977446707671, 517.986443865195, -291.108138348663, 0.45)
    pt3dadd(46.0733745929393, 518.831833344863, -291.633604302361, 0.45)
    pt3dadd(46.1693024782075, 519.67722282453, -292.159070256059, 0.45)
    pt3dadd(46.2652303634757, 520.522612304197, -292.684536209757, 0.45)
    pt3dadd(46.3611582487439, 521.368001783865, -293.210002163455, 0.45)
    pt3dadd(46.4570861340122, 522.213391263532, -293.735468117153, 0.45)
    pt3dadd(46.5530140192804, 523.0587807432, -294.260934070851, 0.45)
    pt3dadd(46.6489419045486, 523.904170222867, -294.786400024549, 0.45)
    pt3dadd(46.7448697898168, 524.749559702534, -295.311865978247, 0.45)
    pt3dadd(46.840797675085, 525.594949182202, -295.837331931945, 0.45)
    pt3dadd(46.9367255603533, 526.440338661869, -296.362797885643, 0.45)
    pt3dadd(47.0326534456215, 527.285728141536, -296.888263839341, 0.45)
    pt3dadd(47.1285813308897, 528.131117621204, -297.413729793039, 0.45)
    pt3dadd(47.2245092161579, 528.976507100871, -297.939195746737, 0.45)
    pt3dadd(47.3204371014262, 529.821896580539, -298.464661700435, 0.45)
    pt3dadd(47.4163649866944, 530.667286060206, -298.990127654133, 0.45)
    pt3dadd(47.5122928719626, 531.512675539873, -299.515593607831, 0.45)
    pt3dadd(47.6082207572308, 532.358065019541, -300.041059561529, 0.45)
    pt3dadd(47.704148642499, 533.203454499208, -300.566525515227, 0.45)
    pt3dadd(47.8000765277673, 534.048843978875, -301.091991468924, 0.45)
    pt3dadd(47.8960044130355, 534.894233458543, -301.617457422622, 0.45)
    pt3dadd(47.9919322983037, 535.73962293821, -302.14292337632, 0.45)
    pt3dadd(48.0878601835719, 536.585012417878, -302.668389330018, 0.45)
    pt3dadd(48.1837880688402, 537.430401897545, -303.193855283716, 0.45)
    pt3dadd(48.2797159541084, 538.275791377212, -303.719321237414, 0.45)
    pt3dadd(48.3756438393766, 539.12118085688, -304.244787191112, 0.45)
    pt3dadd(48.4715717246448, 539.966570336547, -304.77025314481, 0.45)
    pt3dadd(48.567499609913, 540.811959816214, -305.295719098508, 0.45)
    pt3dadd(48.6634274951813, 541.657349295882, -305.821185052206, 0.45)
    pt3dadd(48.7593553804495, 542.502738775549, -306.346651005904, 0.45)
    pt3dadd(48.8552832657177, 543.348128255217, -306.872116959602, 0.45)
    pt3dadd(48.9512111509859, 544.193517734884, -307.3975829133, 0.45)
    pt3dadd(49.0471390362541, 545.038907214551, -307.923048866998, 0.45)
    pt3dadd(49.1430669215224, 545.884296694219, -308.448514820696, 0.45)
    pt3dadd(49.2389948067906, 546.729686173886, -308.973980774394, 0.45)
    pt3dadd(49.3349226920588, 547.575075653553, -309.499446728092, 0.45)
    pt3dadd(49.430850577327, 548.420465133221, -310.02491268179, 0.45)
    pt3dadd(49.5267784625953, 549.265854612888, -310.550378635488, 0.45)
    pt3dadd(49.6227063478635, 550.111244092556, -311.075844589185, 0.45)
    pt3dadd(49.7186342331317, 550.956633572223, -311.601310542883, 0.45)
    pt3dadd(49.8145621183999, 551.80202305189, -312.126776496581, 0.45)
    pt3dadd(49.9104900036681, 552.647412531558, -312.652242450279, 0.45)
    pt3dadd(50.0064178889364, 553.492802011225, -313.177708403977, 0.45)
    pt3dadd(50.1023457742046, 554.338191490892, -313.703174357675, 0.45)
    pt3dadd(50.1982736594728, 555.18358097056, -314.228640311373, 0.45)
    pt3dadd(50.294201544741, 556.028970450227, -314.754106265071, 0.45)
    pt3dadd(50.3901294300093, 556.874359929894, -315.279572218769, 0.45)
    pt3dadd(50.4860573152775, 557.719749409562, -315.805038172467, 0.45)
    pt3dadd(50.5819852005457, 558.565138889229, -316.330504126165, 0.45)
    pt3dadd(50.6779130858139, 559.410528368897, -316.855970079863, 0.45)
    pt3dadd(50.7738409710821, 560.255917848564, -317.381436033561, 0.45)
    pt3dadd(50.8697688563504, 561.101307328231, -317.906901987259, 0.45)
    pt3dadd(50.9656967416186, 561.946696807899, -318.432367940957, 0.45)
    pt3dadd(51.0616246268868, 562.792086287566, -318.957833894655, 0.45)
    pt3dadd(51.157552512155, 563.637475767233, -319.483299848353, 0.45)
    pt3dadd(51.2534803974232, 564.482865246901, -320.008765802051, 0.45)
    pt3dadd(51.3494082826915, 565.328254726568, -320.534231755749, 0.45)
    pt3dadd(51.4453361679597, 566.173644206236, -321.059697709447, 0.45)
    pt3dadd(51.5412640532279, 567.019033685903, -321.585163663144, 0.45)
    pt3dadd(51.6371919384961, 567.86442316557, -322.110629616842, 0.45)
    pt3dadd(51.7331198237644, 568.709812645238, -322.63609557054, 0.45)
    pt3dadd(51.8290477090326, 569.555202124905, -323.161561524238, 0.45)
    pt3dadd(51.9249755943008, 570.400591604572, -323.687027477936, 0.45)
    pt3dadd(52.020903479569, 571.24598108424, -324.212493431634, 0.45)
    pt3dadd(52.1168313648372, 572.091370563907, -324.737959385332, 0.45)
    pt3dadd(52.2127592501055, 572.936760043575, -325.26342533903, 0.45)
    pt3dadd(52.3086871353737, 573.782149523242, -325.788891292728, 0.45)
    pt3dadd(52.4046150206419, 574.627539002909, -326.314357246426, 0.45)
    pt3dadd(52.5005429059101, 575.472928482577, -326.839823200124, 0.45)
    pt3dadd(52.5964707911783, 576.318317962244, -327.365289153822, 0.45)
    pt3dadd(52.6923986764466, 577.163707441911, -327.89075510752, 0.45)
    pt3dadd(52.7883265617148, 578.009096921579, -328.416221061218, 0.45)
    pt3dadd(52.884254446983, 578.854486401246, -328.941687014916, 0.45)
    pt3dadd(52.9801823322512, 579.699875880914, -329.467152968614, 0.45)
    pt3dadd(53.0761102175195, 580.545265360581, -329.992618922312, 0.45)
    pt3dadd(53.1720381027877, 581.390654840248, -330.51808487601, 0.45)
    pt3dadd(53.2679659880559, 582.236044319916, -331.043550829708, 0.45)
    pt3dadd(53.3638938733241, 583.081433799583, -331.569016783405, 0.45)
    pt3dadd(53.4598217585923, 583.92682327925, -332.094482737103, 0.45)
    pt3dadd(53.5557496438606, 584.772212758918, -332.619948690801, 0.45)
    pt3dadd(53.6516775291288, 585.617602238585, -333.145414644499, 0.45)
    pt3dadd(53.747605414397, 586.462991718253, -333.670880598197, 0.45)
    pt3dadd(53.8435332996652, 587.30838119792, -334.196346551895, 0.45)
    pt3dadd(53.9394611849335, 588.153770677587, -334.721812505593, 0.45)
    pt3dadd(54.0353890702017, 588.999160157255, -335.247278459291, 0.45)
    pt3dadd(54.1313169554699, 589.844549636922, -335.772744412989, 0.45)
    pt3dadd(54.2272448407381, 590.689939116589, -336.298210366687, 0.45)
    pt3dadd(54.3231727260063, 591.535328596257, -336.823676320385, 0.45)
    pt3dadd(54.4191006112746, 592.380718075924, -337.349142274083, 0.45)
    pt3dadd(54.5150284965428, 593.226107555592, -337.874608227781, 0.45)
    pt3dadd(54.610956381811, 594.071497035259, -338.400074181479, 0.45)
    pt3dadd(54.7068842670792, 594.916886514926, -338.925540135177, 0.45)
    pt3dadd(54.8028121523475, 595.762275994594, -339.451006088875, 0.45)
    pt3dadd(54.8987400376157, 596.607665474261, -339.976472042573, 0.45)
    pt3dadd(54.9946679228839, 597.453054953928, -340.501937996271, 0.45)
    pt3dadd(55.0905958081521, 598.298444433596, -341.027403949969, 0.45)
    pt3dadd(55.1865236934203, 599.143833913263, -341.552869903666, 0.45)
    pt3dadd(55.2824515786886, 599.989223392931, -342.078335857364, 0.45)
    pt3dadd(55.3783794639568, 600.834612872598, -342.603801811062, 0.45)
    pt3dadd(55.474307349225, 601.680002352265, -343.12926776476, 0.45)
    pt3dadd(55.5702352344932, 602.525391831933, -343.654733718458, 0.45)
    pt3dadd(55.6661631197614, 603.3707813116, -344.180199672156, 0.45)
    pt3dadd(55.7620910050297, 604.216170791267, -344.705665625854, 0.45)
    pt3dadd(55.8580188902979, 605.061560270935, -345.231131579552, 0.45)
    pt3dadd(55.9539467755661, 605.906949750602, -345.75659753325, 0.45)
    pt3dadd(56.0498746608343, 606.75233923027, -346.282063486948, 0.45)
    pt3dadd(56.1458025461026, 607.597728709937, -346.807529440646, 0.45)
    pt3dadd(56.2417304313708, 608.443118189604, -347.332995394344, 0.45)
    pt3dadd(56.337658316639, 609.288507669272, -347.858461348042, 0.45)
    pt3dadd(56.4335862019072, 610.133897148939, -348.38392730174, 0.45)
    pt3dadd(56.5295140871754, 610.979286628606, -348.909393255438, 0.45)
    pt3dadd(56.6254419724437, 611.824676108274, -349.434859209136, 0.45)
    pt3dadd(56.7213698577119, 612.670065587941, -349.960325162834, 0.45)
    pt3dadd(56.8172977429801, 613.515455067609, -350.485791116532, 0.45)
    pt3dadd(56.9132256282483, 614.360844547276, -351.01125707023, 0.45)
    pt3dadd(57.0091535135165, 615.206234026943, -351.536723023927, 0.45)
    pt3dadd(57.1050813987848, 616.051623506611, -352.062188977625, 0.45)
    pt3dadd(57.201009284053, 616.897012986278, -352.587654931323, 0.45)
    pt3dadd(57.2969371693212, 617.742402465945, -353.113120885021, 0.45)
    pt3dadd(57.3928650545894, 618.587791945613, -353.638586838719, 0.45)
    pt3dadd(57.4887929398577, 619.43318142528, -354.164052792417, 0.45)
    pt3dadd(57.5847208251259, 620.278570904948, -354.689518746115, 0.45)
    pt3dadd(57.6806487103941, 621.123960384615, -355.214984699813, 0.45)
    pt3dadd(57.7765765956623, 621.969349864282, -355.740450653511, 0.45)
    pt3dadd(57.8725044809306, 622.81473934395, -356.265916607209, 0.45)
    pt3dadd(57.9684323661988, 623.660128823617, -356.791382560907, 0.45)
    pt3dadd(58.064360251467, 624.505518303284, -357.316848514605, 0.45)
    pt3dadd(58.1602881367352, 625.350907782952, -357.842314468303, 0.45)
    pt3dadd(58.2562160220034, 626.196297262619, -358.367780422001, 0.45)
    pt3dadd(58.3521439072717, 627.041686742287, -358.893246375699, 0.45)
    pt3dadd(58.4480717925399, 627.887076221954, -359.418712329397, 0.45)
    pt3dadd(58.5439996778081, 628.732465701621, -359.944178283095, 0.45)
    pt3dadd(58.6399275630763, 629.577855181289, -360.469644236793, 0.45)
    pt3dadd(58.7358554483445, 630.423244660956, -360.995110190491, 0.45)
    pt3dadd(58.8317833336128, 631.268634140623, -361.520576144189, 0.45)
    pt3dadd(58.927711218881, 632.114023620291, -362.046042097886, 0.45)
    pt3dadd(59.0236391041492, 632.959413099958, -362.571508051584, 0.45)
    pt3dadd(59.1195669894174, 633.804802579626, -363.096974005282, 0.45)
    pt3dadd(59.2154948746857, 634.650192059293, -363.62243995898, 0.45)
    pt3dadd(59.3114227599539, 635.49558153896, -364.147905912678, 0.45)
    pt3dadd(59.4073506452221, 636.340971018628, -364.673371866376, 0.45)
    pt3dadd(59.5032785304903, 637.186360498295, -365.198837820074, 0.45)
    pt3dadd(59.5992064157585, 638.031749977962, -365.724303773772, 0.45)
    pt3dadd(59.6951343010268, 638.87713945763, -366.24976972747, 0.45)
    pt3dadd(59.791062186295, 639.722528937297, -366.775235681168, 0.45)
    pt3dadd(59.8869900715632, 640.567918416965, -367.300701634866, 0.45)
    pt3dadd(59.9829179568314, 641.413307896632, -367.826167588564, 0.45)
    pt3dadd(60.0788458420996, 642.258697376299, -368.351633542262, 0.45)
    pt3dadd(60.1747737273679, 643.104086855967, -368.87709949596, 0.45)
    pt3dadd(60.2707016126361, 643.949476335634, -369.402565449658, 0.45)
    pt3dadd(60.3666294979043, 644.794865815301, -369.928031403356, 0.45)
    pt3dadd(60.4625573831725, 645.640255294969, -370.453497357054, 0.45)
    pt3dadd(60.5584852684408, 646.485644774636, -370.978963310752, 0.45)
    pt3dadd(60.654413153709, 647.331034254303, -371.50442926445, 0.45)
    pt3dadd(60.7503410389772, 648.176423733971, -372.029895218147, 0.45)
    pt3dadd(60.8462689242454, 649.021813213638, -372.555361171845, 0.45)
    pt3dadd(60.9421968095136, 649.867202693306, -373.080827125543, 0.45)
    pt3dadd(61.0381246947819, 650.712592172973, -373.606293079241, 0.45)
    pt3dadd(61.1340525800501, 651.55798165264, -374.131759032939, 0.45)
    pt3dadd(61.2299804653183, 652.403371132308, -374.657224986637, 0.45)
    pt3dadd(61.3259083505865, 653.248760611975, -375.182690940335, 0.45)
    pt3dadd(61.4218362358547, 654.094150091642, -375.708156894033, 0.45)
    pt3dadd(61.517764121123, 654.93953957131, -376.233622847731, 0.45)
    pt3dadd(61.6136920063912, 655.784929050977, -376.759088801429, 0.45)
    pt3dadd(61.7096198916594, 656.630318530645, -377.284554755127, 0.45)
    pt3dadd(61.8055477769276, 657.475708010312, -377.810020708825, 0.45)
    pt3dadd(61.9014756621959, 658.321097489979, -378.335486662523, 0.45)
    pt3dadd(61.9974035474641, 659.166486969647, -378.860952616221, 0.45)
    pt3dadd(62.0933314327323, 660.011876449314, -379.386418569919, 0.45)
    pt3dadd(62.1892593180005, 660.857265928981, -379.911884523617, 0.45)
    pt3dadd(62.2851872032687, 661.702655408649, -380.437350477315, 0.45)
    pt3dadd(62.381115088537, 662.548044888316, -380.962816431013, 0.45)
    pt3dadd(62.4770429738052, 663.393434367984, -381.488282384711, 0.45)
    pt3dadd(62.5729708590734, 664.238823847651, -382.013748338409, 0.45)
    pt3dadd(62.6688987443416, 665.084213327318, -382.539214292106, 0.45)
    pt3dadd(62.7648266296099, 665.929602806986, -383.064680245804, 0.45)
    pt3dadd(62.8607545148781, 666.774992286653, -383.590146199502, 0.45)
    pt3dadd(62.9566824001463, 667.62038176632, -384.1156121532, 0.45)
    pt3dadd(63.0526102854145, 668.465771245988, -384.641078106898, 0.45)
    pt3dadd(63.1485381706827, 669.311160725655, -385.166544060596, 0.45)
    pt3dadd(63.244466055951, 670.156550205323, -385.692010014294, 0.45)
    pt3dadd(63.3403939412192, 671.00193968499, -386.217475967992, 0.45)
    pt3dadd(63.4363218264874, 671.847329164657, -386.74294192169, 0.45)
    pt3dadd(63.5322497117556, 672.692718644325, -387.268407875388, 0.45)
    pt3dadd(63.6281775970239, 673.538108123992, -387.793873829086, 0.45)
    pt3dadd(63.7241054822921, 674.383497603659, -388.319339782784, 0.45)
    pt3dadd(63.8200333675603, 675.228887083327, -388.844805736482, 0.45)
    pt3dadd(63.9159612528285, 676.074276562994, -389.37027169018, 0.45)
    pt3dadd(64.0118891380967, 676.919666042662, -389.895737643878, 0.45)
  }
}
proc shape3d_4() {
  axon[0] {
    pt3dadd(64.107817023365, 677.765055522329, -390.421203597576, 0.45)
    pt3dadd(64.2037449086332, 678.610445001996, -390.946669551274, 0.45)
    pt3dadd(64.2996727939014, 679.455834481664, -391.472135504972, 0.45)
    pt3dadd(64.3956006791696, 680.301223961331, -391.99760145867, 0.45)
    pt3dadd(64.4915285644378, 681.146613440998, -392.523067412367, 0.45)
    pt3dadd(64.5874564497061, 681.992002920666, -393.048533366065, 0.45)
    pt3dadd(64.6833843349743, 682.837392400333, -393.573999319763, 0.45)
    pt3dadd(64.7793122202425, 683.682781880001, -394.099465273461, 0.45)
    pt3dadd(64.8752401055107, 684.528171359668, -394.624931227159, 0.45)
    pt3dadd(64.971167990779, 685.373560839335, -395.150397180857, 0.45)
    pt3dadd(65.0670958760472, 686.218950319003, -395.675863134555, 0.45)
    pt3dadd(65.1630237613154, 687.06433979867, -396.201329088253, 0.45)
    pt3dadd(65.2589516465836, 687.909729278337, -396.726795041951, 0.45)
    pt3dadd(65.3548795318518, 688.755118758005, -397.252260995649, 0.45)
    pt3dadd(65.4508074171201, 689.600508237672, -397.777726949347, 0.45)
    pt3dadd(65.5467353023883, 690.445897717339, -398.303192903045, 0.45)
    pt3dadd(65.6426631876565, 691.291287197007, -398.828658856743, 0.45)
    pt3dadd(65.7385910729247, 692.136676676674, -399.354124810441, 0.45)
    pt3dadd(65.8345189581929, 692.982066156342, -399.879590764139, 0.45)
    pt3dadd(65.9304468434612, 693.827455636009, -400.405056717837, 0.45)
    pt3dadd(66.0263747287294, 694.672845115676, -400.930522671535, 0.45)
    pt3dadd(66.1223026139976, 695.518234595344, -401.455988625233, 0.45)
    pt3dadd(66.2182304992658, 696.363624075011, -401.981454578931, 0.45)
    pt3dadd(66.3141583845341, 697.209013554678, -402.506920532629, 0.45)
    pt3dadd(66.4100862698023, 698.054403034346, -403.032386486326, 0.45)
    pt3dadd(66.5060141550705, 698.899792514013, -403.557852440024, 0.45)
    pt3dadd(66.6019420403387, 699.745181993681, -404.083318393722, 0.45)
    pt3dadd(66.6978699256069, 700.590571473348, -404.60878434742, 0.45)
    pt3dadd(66.7937978108752, 701.435960953015, -405.134250301118, 0.45)
    pt3dadd(66.8897256961434, 702.281350432683, -405.659716254816, 0.45)
    pt3dadd(66.9856535814116, 703.12673991235, -406.185182208514, 0.45)
    pt3dadd(67.0815814666798, 703.972129392017, -406.710648162212, 0.45)
    pt3dadd(67.177509351948, 704.817518871685, -407.23611411591, 0.45)
    pt3dadd(67.2734372372163, 705.662908351352, -407.761580069608, 0.45)
    pt3dadd(67.3693651224845, 706.50829783102, -408.287046023306, 0.45)
    pt3dadd(67.4652930077527, 707.353687310687, -408.812511977004, 0.45)
    pt3dadd(67.5612208930209, 708.199076790354, -409.337977930702, 0.45)
    pt3dadd(67.6571487782892, 709.044466270022, -409.8634438844, 0.45)
    pt3dadd(67.7530766635574, 709.889855749689, -410.388909838098, 0.45)
    pt3dadd(67.8490045488256, 710.735245229356, -410.914375791796, 0.45)
    pt3dadd(67.9449324340938, 711.580634709024, -411.439841745494, 0.45)
    pt3dadd(68.040860319362, 712.426024188691, -411.965307699192, 0.45)
    pt3dadd(68.1367882046303, 713.271413668359, -412.49077365289, 0.45)
    pt3dadd(68.2327160898985, 714.116803148026, -413.016239606587, 0.45)
    pt3dadd(68.3286439751667, 714.962192627693, -413.541705560285, 0.45)
    pt3dadd(68.4245718604349, 715.807582107361, -414.067171513983, 0.45)
    pt3dadd(68.5204997457031, 716.652971587028, -414.592637467681, 0.45)
    pt3dadd(68.6164276309714, 717.498361066695, -415.118103421379, 0.45)
    pt3dadd(68.7123555162396, 718.343750546363, -415.643569375077, 0.45)
    pt3dadd(68.8082834015078, 719.18914002603, -416.169035328775, 0.45)
    pt3dadd(68.904211286776, 720.034529505698, -416.694501282473, 0.45)
    pt3dadd(69.0001391720443, 720.879918985365, -417.219967236171, 0.45)
    pt3dadd(69.0960670573125, 721.725308465032, -417.745433189869, 0.45)
    pt3dadd(69.1919949425807, 722.5706979447, -418.270899143567, 0.45)
    pt3dadd(69.2879228278489, 723.416087424367, -418.796365097265, 0.45)
    pt3dadd(69.3838507131171, 724.261476904034, -419.321831050963, 0.45)
    pt3dadd(69.4797785983854, 725.106866383702, -419.847297004661, 0.45)
    pt3dadd(69.5757064836536, 725.952255863369, -420.372762958359, 0.45)
    pt3dadd(69.6716343689218, 726.797645343037, -420.898228912057, 0.45)
    pt3dadd(69.76756225419, 727.643034822704, -421.423694865755, 0.45)
    pt3dadd(69.8634901394583, 728.488424302371, -421.949160819453, 0.45)
    pt3dadd(69.9594180247265, 729.333813782039, -422.474626773151, 0.45)
    pt3dadd(70.0553459099947, 730.179203261706, -423.000092726848, 0.45)
    pt3dadd(70.1512737952629, 731.024592741373, -423.525558680546, 0.45)
    pt3dadd(70.2472016805311, 731.869982221041, -424.051024634244, 0.45)
    pt3dadd(70.3431295657994, 732.715371700708, -424.576490587942, 0.45)
    pt3dadd(70.4390574510676, 733.560761180375, -425.10195654164, 0.45)
    pt3dadd(70.5349853363358, 734.406150660043, -425.627422495338, 0.45)
    pt3dadd(70.630913221604, 735.25154013971, -426.152888449036, 0.45)
    pt3dadd(70.7268411068723, 736.096929619378, -426.678354402734, 0.45)
    pt3dadd(70.8227689921405, 736.942319099045, -427.203820356432, 0.45)
    pt3dadd(70.9186968774087, 737.787708578712, -427.72928631013, 0.45)
    pt3dadd(71.0146247626769, 738.63309805838, -428.254752263828, 0.45)
    pt3dadd(71.1105526479451, 739.478487538047, -428.780218217526, 0.45)
    pt3dadd(71.2064805332134, 740.323877017714, -429.305684171224, 0.45)
    pt3dadd(71.3024084184816, 741.169266497382, -429.831150124922, 0.45)
    pt3dadd(71.3983363037498, 742.014655977049, -430.35661607862, 0.45)
    pt3dadd(71.494264189018, 742.860045456717, -430.882082032318, 0.45)
    pt3dadd(71.5901920742863, 743.705434936384, -431.407547986016, 0.45)
    pt3dadd(71.6861199595545, 744.550824416051, -431.933013939714, 0.45)
    pt3dadd(71.7820478448227, 745.396213895719, -432.458479893412, 0.45)
    pt3dadd(71.8779757300909, 746.241603375386, -432.98394584711, 0.45)
    pt3dadd(71.9739036153591, 747.086992855054, -433.509411800807, 0.45)
    pt3dadd(72.0698315006274, 747.932382334721, -434.034877754505, 0.45)
    pt3dadd(72.1657593858956, 748.777771814388, -434.560343708203, 0.45)
    pt3dadd(72.2616872711638, 749.623161294056, -435.085809661901, 0.45)
    pt3dadd(72.357615156432, 750.468550773723, -435.611275615599, 0.45)
    pt3dadd(72.4535430417002, 751.31394025339, -436.136741569297, 0.45)
    pt3dadd(72.5494709269685, 752.159329733058, -436.662207522995, 0.45)
    pt3dadd(72.6453988122367, 753.004719212725, -437.187673476693, 0.45)
    pt3dadd(72.7413266975049, 753.850108692393, -437.713139430391, 0.45)
    pt3dadd(72.8372545827731, 754.69549817206, -438.238605384089, 0.45)
    pt3dadd(72.9331824680414, 755.540887651727, -438.764071337787, 0.45)
    pt3dadd(73.0291103533096, 756.386277131395, -439.289537291485, 0.45)
    pt3dadd(73.1250382385778, 757.231666611062, -439.815003245183, 0.45)
    pt3dadd(73.220966123846, 758.077056090729, -440.340469198881, 0.45)
    pt3dadd(73.3168940091142, 758.922445570397, -440.865935152579, 0.45)
    pt3dadd(73.4128218943825, 759.767835050064, -441.391401106277, 0.45)
    pt3dadd(73.5087497796507, 760.613224529732, -441.916867059975, 0.45)
    pt3dadd(73.6046776649189, 761.458614009399, -442.442333013673, 0.45)
    pt3dadd(73.7006055501871, 762.304003489066, -442.967798967371, 0.45)
    pt3dadd(73.7965334354553, 763.149392968734, -443.493264921068, 0.45)
    pt3dadd(73.8924613207236, 763.994782448401, -444.018730874766, 0.45)
    pt3dadd(73.9883892059918, 764.840171928068, -444.544196828464, 0.45)
    pt3dadd(74.08431709126, 765.685561407736, -445.069662782162, 0.45)
    pt3dadd(74.1802449765282, 766.530950887403, -445.59512873586, 0.45)
    pt3dadd(74.2761728617965, 767.376340367071, -446.120594689558, 0.45)
    pt3dadd(74.3721007470647, 768.221729846738, -446.646060643256, 0.45)
    pt3dadd(74.4680286323329, 769.067119326405, -447.171526596954, 0.45)
    pt3dadd(74.5639565176011, 769.912508806073, -447.696992550652, 0.45)
    pt3dadd(74.6598844028693, 770.75789828574, -448.22245850435, 0.45)
    pt3dadd(74.7558122881376, 771.603287765407, -448.747924458048, 0.45)
    pt3dadd(74.8517401734058, 772.448677245075, -449.273390411746, 0.45)
    pt3dadd(74.947668058674, 773.294066724742, -449.798856365444, 0.45)
    pt3dadd(75.0435959439422, 774.13945620441, -450.324322319142, 0.45)
    pt3dadd(75.1395238292104, 774.984845684077, -450.84978827284, 0.45)
    pt3dadd(75.2354517144787, 775.830235163744, -451.375254226538, 0.45)
    pt3dadd(75.3313795997469, 776.675624643412, -451.900720180236, 0.45)
    pt3dadd(75.4273074850151, 777.521014123079, -452.426186133934, 0.45)
    pt3dadd(75.5232353702833, 778.366403602746, -452.951652087632, 0.45)
    pt3dadd(75.6191632555516, 779.211793082414, -453.47711804133, 0.45)
    pt3dadd(75.7150911408198, 780.057182562081, -454.002583995027, 0.45)
    pt3dadd(75.811019026088, 780.902572041749, -454.528049948725, 0.45)
    pt3dadd(75.9069469113562, 781.747961521416, -455.053515902423, 0.45)
    pt3dadd(76.0028747966245, 782.593351001083, -455.578981856121, 0.45)
    pt3dadd(76.0988026818927, 783.438740480751, -456.104447809819, 0.45)
    pt3dadd(76.1947305671609, 784.284129960418, -456.629913763517, 0.45)
    pt3dadd(76.2906584524291, 785.129519440085, -457.155379717215, 0.45)
    pt3dadd(76.3865863376973, 785.974908919753, -457.680845670913, 0.45)
    pt3dadd(76.4825142229656, 786.82029839942, -458.206311624611, 0.45)
    pt3dadd(76.5784421082338, 787.665687879087, -458.731777578309, 0.45)
    pt3dadd(76.674369993502, 788.511077358755, -459.257243532007, 0.45)
    pt3dadd(76.7702978787702, 789.356466838422, -459.782709485705, 0.45)
    pt3dadd(76.8662257640384, 790.20185631809, -460.308175439403, 0.45)
    pt3dadd(76.9621536493067, 791.047245797757, -460.833641393101, 0.45)
    pt3dadd(77.0580815345749, 791.892635277424, -461.359107346799, 0.45)
    pt3dadd(77.1540094198431, 792.738024757092, -461.884573300497, 0.45)
    pt3dadd(77.2499373051113, 793.583414236759, -462.410039254195, 0.45)
    pt3dadd(77.3458651903796, 794.428803716426, -462.935505207893, 0.45)
    pt3dadd(77.4417930756478, 795.274193196094, -463.460971161591, 0.45)
    pt3dadd(77.537720960916, 796.119582675761, -463.986437115288, 0.45)
    pt3dadd(77.6336488461842, 796.964972155429, -464.511903068986, 0.45)
    pt3dadd(77.7295767314524, 797.810361635096, -465.037369022684, 0.45)
    pt3dadd(77.8255046167207, 798.655751114763, -465.562834976382, 0.45)
    pt3dadd(77.9214325019889, 799.501140594431, -466.08830093008, 0.45)
    pt3dadd(78.0173603872571, 800.346530074098, -466.613766883778, 0.45)
    pt3dadd(78.1132882725253, 801.191919553765, -467.139232837476, 0.45)
    pt3dadd(78.2092161577935, 802.037309033433, -467.664698791174, 0.45)
    pt3dadd(78.3051440430618, 802.8826985131, -468.190164744872, 0.45)
    pt3dadd(78.40107192833, 803.728087992768, -468.71563069857, 0.45)
    pt3dadd(78.4969998135982, 804.573477472435, -469.241096652268, 0.45)
    pt3dadd(78.5929276988664, 805.418866952102, -469.766562605966, 0.45)
    pt3dadd(78.6888555841347, 806.26425643177, -470.292028559664, 0.45)
    pt3dadd(78.7847834694029, 807.109645911437, -470.817494513362, 0.45)
    pt3dadd(78.8807113546711, 807.955035391104, -471.34296046706, 0.45)
    pt3dadd(78.9766392399393, 808.800424870772, -471.868426420758, 0.45)
    pt3dadd(79.0725671252075, 809.645814350439, -472.393892374456, 0.45)
    pt3dadd(79.1684950104758, 810.491203830107, -472.919358328154, 0.45)
    pt3dadd(79.264422895744, 811.336593309774, -473.444824281852, 0.45)
    pt3dadd(79.3603507810122, 812.181982789441, -473.97029023555, 0.45)
    pt3dadd(79.4562786662804, 813.027372269109, -474.495756189247, 0.45)
    pt3dadd(79.5522065515487, 813.872761748776, -475.021222142945, 0.45)
    pt3dadd(79.6481344368169, 814.718151228443, -475.546688096643, 0.45)
    pt3dadd(79.7440623220851, 815.563540708111, -476.072154050341, 0.45)
    pt3dadd(79.8399902073533, 816.408930187778, -476.597620004039, 0.45)
    pt3dadd(79.9359180926215, 817.254319667446, -477.123085957737, 0.45)
    pt3dadd(80.0318459778898, 818.099709147113, -477.648551911435, 0.45)
    pt3dadd(80.127773863158, 818.94509862678, -478.174017865133, 0.45)
    pt3dadd(80.2237017484262, 819.790488106448, -478.699483818831, 0.45)
    pt3dadd(80.3196296336944, 820.635877586115, -479.224949772529, 0.45)
    pt3dadd(80.4155575189626, 821.481267065782, -479.750415726227, 0.45)
    pt3dadd(80.5114854042309, 822.32665654545, -480.275881679925, 0.45)
    pt3dadd(80.6074132894991, 823.172046025117, -480.801347633623, 0.45)
    pt3dadd(80.7033411747673, 824.017435504785, -481.326813587321, 0.45)
    pt3dadd(80.7992690600355, 824.862824984452, -481.852279541019, 0.45)
    pt3dadd(80.8951969453038, 825.708214464119, -482.377745494717, 0.45)
    pt3dadd(80.991124830572, 826.553603943787, -482.903211448415, 0.45)
    pt3dadd(81.0870527158402, 827.398993423454, -483.428677402113, 0.45)
    pt3dadd(81.1829806011084, 828.244382903121, -483.954143355811, 0.45)
    pt3dadd(81.2789084863767, 829.089772382789, -484.479609309508, 0.45)
    pt3dadd(81.3748363716449, 829.935161862456, -485.005075263206, 0.45)
    pt3dadd(81.4707642569131, 830.780551342123, -485.530541216904, 0.45)
    pt3dadd(81.5666921421813, 831.625940821791, -486.056007170602, 0.45)
    pt3dadd(81.6626200274495, 832.471330301458, -486.5814731243, 0.45)
    pt3dadd(81.7585479127178, 833.316719781126, -487.106939077998, 0.45)
    pt3dadd(81.854475797986, 834.162109260793, -487.632405031696, 0.45)
    pt3dadd(81.9504036832542, 835.00749874046, -488.157870985394, 0.45)
    pt3dadd(82.0463315685224, 835.852888220128, -488.683336939092, 0.45)
    pt3dadd(82.1422594537906, 836.698277699795, -489.20880289279, 0.45)
    pt3dadd(82.2381873390589, 837.543667179462, -489.734268846488, 0.45)
    pt3dadd(82.3341152243271, 838.38905665913, -490.259734800186, 0.45)
    pt3dadd(82.4300431095953, 839.234446138797, -490.785200753884, 0.45)
    pt3dadd(82.5259709948635, 840.079835618465, -491.310666707582, 0.45)
    pt3dadd(82.6218988801318, 840.925225098132, -491.83613266128, 0.45)
    pt3dadd(82.7178267654, 841.770614577799, -492.361598614978, 0.45)
    pt3dadd(82.8137546506682, 842.616004057467, -492.887064568676, 0.45)
    pt3dadd(82.9096825359364, 843.461393537134, -493.412530522374, 0.45)
    pt3dadd(83.0056104212046, 844.306783016801, -493.937996476072, 0.45)
    pt3dadd(83.1015383064729, 845.152172496469, -494.463462429769, 0.45)
    pt3dadd(83.1974661917411, 845.997561976136, -494.988928383467, 0.45)
    pt3dadd(83.2933940770093, 846.842951455804, -495.514394337165, 0.45)
    pt3dadd(83.3893219622775, 847.688340935471, -496.039860290863, 0.45)
    pt3dadd(83.4852498475457, 848.533730415138, -496.565326244561, 0.45)
    pt3dadd(83.581177732814, 849.379119894806, -497.090792198259, 0.45)
    pt3dadd(83.6771056180822, 850.224509374473, -497.616258151957, 0.45)
    pt3dadd(83.7730335033504, 851.06989885414, -498.141724105655, 0.45)
    pt3dadd(83.8689613886186, 851.915288333808, -498.667190059353, 0.45)
    pt3dadd(83.9648892738869, 852.760677813475, -499.192656013051, 0.45)
    pt3dadd(84.0608171591551, 853.606067293143, -499.718121966749, 0.45)
    pt3dadd(84.1567450444233, 854.45145677281, -500.243587920447, 0.45)
    pt3dadd(84.2526729296915, 855.296846252477, -500.769053874145, 0.45)
    pt3dadd(84.3486008149597, 856.142235732145, -501.294519827843, 0.45)
    pt3dadd(84.444528700228, 856.987625211812, -501.819985781541, 0.45)
    pt3dadd(84.5404565854962, 857.833014691479, -502.345451735239, 0.45)
    pt3dadd(84.6363844707644, 858.678404171147, -502.870917688937, 0.45)
    pt3dadd(84.7323123560326, 859.523793650814, -503.396383642635, 0.45)
    pt3dadd(84.8282402413008, 860.369183130482, -503.921849596333, 0.45)
    pt3dadd(84.9241681265691, 861.214572610149, -504.447315550031, 0.45)
    pt3dadd(85.0200960118373, 862.059962089816, -504.972781503728, 0.45)
    pt3dadd(85.1160238971055, 862.905351569484, -505.498247457426, 0.45)
    pt3dadd(85.2119517823737, 863.750741049151, -506.023713411124, 0.45)
    pt3dadd(85.307879667642, 864.596130528818, -506.549179364822, 0.45)
    pt3dadd(85.4038075529102, 865.441520008486, -507.07464531852, 0.45)
    pt3dadd(85.4997354381784, 866.286909488153, -507.600111272218, 0.45)
    pt3dadd(85.5956633234466, 867.132298967821, -508.125577225916, 0.45)
    pt3dadd(85.6915912087148, 867.977688447488, -508.651043179614, 0.45)
    pt3dadd(85.7875190939831, 868.823077927155, -509.176509133312, 0.45)
    pt3dadd(85.8834469792513, 869.668467406823, -509.70197508701, 0.45)
    pt3dadd(85.9793748645195, 870.51385688649, -510.227441040708, 0.45)
    pt3dadd(86.0753027497877, 871.359246366157, -510.752906994406, 0.45)
    pt3dadd(86.1712306350559, 872.204635845825, -511.278372948104, 0.45)
    pt3dadd(86.2671585203242, 873.050025325492, -511.803838901802, 0.45)
    pt3dadd(86.3630864055924, 873.895414805159, -512.3293048555, 0.45)
    pt3dadd(86.4590142908606, 874.740804284827, -512.854770809198, 0.45)
    pt3dadd(86.5549421761288, 875.586193764494, -513.380236762896, 0.45)
    pt3dadd(86.6508700613971, 876.431583244162, -513.905702716594, 0.45)
    pt3dadd(86.7467979466653, 877.276972723829, -514.431168670292, 0.45)
    pt3dadd(86.8427258319335, 878.122362203496, -514.95663462399, 0.45)
    pt3dadd(86.9386537172017, 878.967751683164, -515.482100577687, 0.45)
    pt3dadd(87.0345816024699, 879.813141162831, -516.007566531385, 0.45)
    pt3dadd(87.1305094877382, 880.658530642498, -516.533032485083, 0.45)
    pt3dadd(87.2264373730064, 881.503920122166, -517.058498438781, 0.45)
    pt3dadd(87.3223652582746, 882.349309601833, -517.583964392479, 0.45)
    pt3dadd(87.4182931435428, 883.194699081501, -518.109430346177, 0.45)
    pt3dadd(87.5142210288111, 884.040088561168, -518.634896299875, 0.45)
    pt3dadd(87.6101489140793, 884.885478040835, -519.160362253573, 0.45)
    pt3dadd(87.7060767993475, 885.730867520503, -519.685828207271, 0.45)
    pt3dadd(87.8020046846157, 886.57625700017, -520.211294160969, 0.45)
    pt3dadd(87.8979325698839, 887.421646479837, -520.736760114667, 0.45)
  }
}
proc shape3d_5() {
  axon[0] {
    pt3dadd(87.9938604551522, 888.267035959505, -521.262226068365, 0.45)
    pt3dadd(88.0897883404204, 889.112425439172, -521.787692022063, 0.45)
    pt3dadd(88.1857162256886, 889.95781491884, -522.313157975761, 0.45)
    pt3dadd(88.2816441109568, 890.803204398507, -522.838623929459, 0.45)
    pt3dadd(88.3775719962251, 891.648593878174, -523.364089883157, 0.45)
    pt3dadd(88.4734998814933, 892.493983357842, -523.889555836855, 0.45)
    pt3dadd(88.5694277667615, 893.339372837509, -524.415021790553, 0.45)
    pt3dadd(88.6653556520297, 894.184762317176, -524.940487744251, 0.45)
    pt3dadd(88.7612835372979, 895.030151796844, -525.465953697948, 0.45)
    pt3dadd(88.8572114225662, 895.875541276511, -525.991419651646, 0.45)
    pt3dadd(88.9531393078344, 896.720930756179, -526.516885605344, 0.45)
    pt3dadd(89.0490671931026, 897.566320235846, -527.042351559042, 0.45)
    pt3dadd(89.1449950783708, 898.411709715513, -527.56781751274, 0.45)
    pt3dadd(89.2409229636391, 899.257099195181, -528.093283466438, 0.45)
    pt3dadd(89.3368508489073, 900.102488674848, -528.618749420136, 0.45)
    pt3dadd(89.4327787341755, 900.947878154515, -529.144215373834, 0.45)
    pt3dadd(89.5287066194437, 901.793267634183, -529.669681327532, 0.45)
    pt3dadd(89.6246345047119, 902.63865711385, -530.19514728123, 0.45)
    pt3dadd(89.7205623899802, 903.484046593518, -530.720613234928, 0.45)
    pt3dadd(89.8164902752484, 904.329436073185, -531.246079188626, 0.45)
    pt3dadd(89.9124181605166, 905.174825552852, -531.771545142324, 0.45)
    pt3dadd(90.0083460457848, 906.02021503252, -532.297011096022, 0.45)
    pt3dadd(90.104273931053, 906.865604512187, -532.82247704972, 0.45)
    pt3dadd(90.2002018163213, 907.710993991854, -533.347943003418, 0.45)
    pt3dadd(90.2961297015895, 908.556383471522, -533.873408957116, 0.45)
    pt3dadd(90.3920575868577, 909.401772951189, -534.398874910814, 0.45)
    pt3dadd(90.4879854721259, 910.247162430857, -534.924340864512, 0.45)
    pt3dadd(90.5839133573942, 911.092551910524, -535.449806818209, 0.45)
    pt3dadd(90.6798412426624, 911.937941390191, -535.975272771907, 0.45)
    pt3dadd(90.7757691279306, 912.783330869859, -536.500738725605, 0.45)
    pt3dadd(90.8716970131988, 913.628720349526, -537.026204679303, 0.45)
    pt3dadd(90.967624898467, 914.474109829193, -537.551670633001, 0.45)
    pt3dadd(91.0635527837353, 915.319499308861, -538.077136586699, 0.45)
    pt3dadd(91.1594806690035, 916.164888788528, -538.602602540397, 0.45)
    pt3dadd(91.2554085542717, 917.010278268196, -539.128068494095, 0.45)
    pt3dadd(91.3513364395399, 917.855667747863, -539.653534447793, 0.45)
    pt3dadd(91.4472643248081, 918.70105722753, -540.179000401491, 0.45)
    pt3dadd(91.5431922100764, 919.546446707198, -540.704466355189, 0.45)
    pt3dadd(91.6391200953446, 920.391836186865, -541.229932308887, 0.45)
    pt3dadd(91.7350479806128, 921.237225666532, -541.755398262585, 0.45)
    pt3dadd(91.830975865881, 922.0826151462, -542.280864216283, 0.45)
    pt3dadd(91.9269037511493, 922.928004625867, -542.806330169981, 0.45)
    pt3dadd(92.0228316364175, 923.773394105535, -543.331796123679, 0.45)
    pt3dadd(92.1187595216857, 924.618783585202, -543.857262077377, 0.45)
    pt3dadd(92.2146874069539, 925.464173064869, -544.382728031075, 0.45)
    pt3dadd(92.3106152922221, 926.309562544537, -544.908193984773, 0.45)
    pt3dadd(92.4065431774904, 927.154952024204, -545.433659938471, 0.45)
    pt3dadd(92.5024710627586, 928.000341503871, -545.959125892168, 0.45)
    pt3dadd(92.5983989480268, 928.845730983539, -546.484591845866, 0.45)
    pt3dadd(92.694326833295, 929.691120463206, -547.010057799564, 0.45)
    pt3dadd(92.7902547185632, 930.536509942874, -547.535523753262, 0.45)
    pt3dadd(92.8861826038315, 931.381899422541, -548.06098970696, 0.45)
    pt3dadd(92.9821104890997, 932.227288902208, -548.586455660658, 0.45)
    pt3dadd(93.0780383743679, 933.072678381876, -549.111921614356, 0.45)
    pt3dadd(93.1739662596361, 933.918067861543, -549.637387568054, 0.45)
    pt3dadd(93.2698941449044, 934.76345734121, -550.162853521752, 0.45)
    pt3dadd(93.3658220301726, 935.608846820878, -550.68831947545, 0.45)
    pt3dadd(93.4617499154408, 936.454236300545, -551.213785429148, 0.45)
    pt3dadd(93.557677800709, 937.299625780213, -551.739251382846, 0.45)
    pt3dadd(93.6536056859773, 938.14501525988, -552.264717336544, 0.45)
    pt3dadd(93.7495335712455, 938.990404739547, -552.790183290242, 0.45)
    pt3dadd(93.8454614565137, 939.835794219215, -553.31564924394, 0.45)
    pt3dadd(93.9413893417819, 940.681183698882, -553.841115197638, 0.45)
    pt3dadd(94.0373172270501, 941.526573178549, -554.366581151336, 0.45)
    pt3dadd(94.1332451123184, 942.371962658217, -554.892047105034, 0.45)
    pt3dadd(94.2291729975866, 943.217352137884, -555.417513058732, 0.45)
    pt3dadd(94.3251008828548, 944.062741617552, -555.942979012429, 0.45)
    pt3dadd(94.421028768123, 944.908131097219, -556.468444966127, 0.45)
    pt3dadd(94.5169566533912, 945.753520576886, -556.993910919825, 0.45)
    pt3dadd(94.6128845386595, 946.598910056554, -557.519376873523, 0.45)
    pt3dadd(94.7088124239277, 947.444299536221, -558.044842827221, 0.45)
    pt3dadd(94.8047403091959, 948.289689015888, -558.570308780919, 0.45)
    pt3dadd(94.9006681944641, 949.135078495556, -559.095774734617, 0.45)
    pt3dadd(94.9965960797324, 949.980467975223, -559.621240688315, 0.45)
    pt3dadd(95.0925239650006, 950.825857454891, -560.146706642013, 0.45)
    pt3dadd(95.1884518502688, 951.671246934558, -560.672172595711, 0.45)
    pt3dadd(95.284379735537, 952.516636414225, -561.197638549409, 0.45)
    pt3dadd(95.3803076208052, 953.362025893893, -561.723104503107, 0.45)
    pt3dadd(95.4762355060735, 954.20741537356, -562.248570456805, 0.45)
    pt3dadd(95.5721633913417, 955.052804853227, -562.774036410503, 0.45)
    pt3dadd(95.6680912766099, 955.898194332895, -563.299502364201, 0.45)
    pt3dadd(95.7640191618781, 956.743583812562, -563.824968317899, 0.45)
    pt3dadd(95.8599470471463, 957.58897329223, -564.350434271597, 0.45)
    pt3dadd(95.9558749324146, 958.434362771897, -564.875900225295, 0.45)
    pt3dadd(96.0518028176828, 959.279752251564, -565.401366178993, 0.45)
    pt3dadd(96.147730702951, 960.125141731232, -565.92683213269, 0.45)
    pt3dadd(96.2436585882192, 960.970531210899, -566.452298086388, 0.45)
    pt3dadd(96.3395864734875, 961.815920690566, -566.977764040086, 0.45)
    pt3dadd(96.4355143587557, 962.661310170234, -567.503229993784, 0.45)
    pt3dadd(96.5314422440239, 963.506699649901, -568.028695947482, 0.45)
    pt3dadd(96.6273701292921, 964.352089129569, -568.55416190118, 0.45)
    pt3dadd(96.7232980145603, 965.197478609236, -569.079627854878, 0.45)
    pt3dadd(96.8192258998286, 966.042868088903, -569.605093808576, 0.45)
    pt3dadd(96.9151537850968, 966.888257568571, -570.130559762274, 0.45)
    pt3dadd(97.011081670365, 967.733647048238, -570.656025715972, 0.45)
    pt3dadd(97.1070095556332, 968.579036527905, -571.18149166967, 0.45)
    pt3dadd(97.2029374409015, 969.424426007573, -571.706957623368, 0.45)
    pt3dadd(97.2988653261697, 970.26981548724, -572.232423577066, 0.45)
    pt3dadd(97.3947932114379, 971.115204966908, -572.757889530764, 0.45)
    pt3dadd(97.4907210967061, 971.960594446575, -573.283355484462, 0.45)
    pt3dadd(97.5866489819743, 972.805983926242, -573.80882143816, 0.45)
    pt3dadd(97.6825768672426, 973.65137340591, -574.334287391858, 0.45)
    pt3dadd(97.7785047525108, 974.496762885577, -574.859753345556, 0.45)
    pt3dadd(97.874432637779, 975.342152365244, -575.385219299254, 0.45)
    pt3dadd(97.9703605230472, 976.187541844912, -575.910685252952, 0.45)
    pt3dadd(98.0662884083154, 977.032931324579, -576.436151206649, 0.45)
    pt3dadd(98.1622162935837, 977.878320804246, -576.961617160347, 0.45)
    pt3dadd(98.2581441788519, 978.723710283914, -577.487083114045, 0.45)
    pt3dadd(98.3540720641201, 979.569099763581, -578.012549067743, 0.45)
    pt3dadd(98.4499999493883, 980.414489243249, -578.538015021441, 0.45)
    pt3dadd(98.5459278346566, 981.259878722916, -579.063480975139, 0.45)
    pt3dadd(98.6418557199248, 982.105268202583, -579.588946928837, 0.45)
    pt3dadd(98.737783605193, 982.950657682251, -580.114412882535, 0.45)
    pt3dadd(98.8337114904612, 983.796047161918, -580.639878836233, 0.45)
    pt3dadd(98.9296393757295, 984.641436641585, -581.165344789931, 0.45)
    pt3dadd(99.0255672609977, 985.486826121253, -581.690810743629, 0.45)
    pt3dadd(99.1214951462659, 986.33221560092, -582.216276697327, 0.45)
    pt3dadd(99.2174230315341, 987.177605080588, -582.741742651025, 0.45)
    pt3dadd(99.3133509168023, 988.022994560255, -583.267208604723, 0.45)
    pt3dadd(99.4092788020705, 988.868384039922, -583.792674558421, 0.45)
    pt3dadd(99.5052066873388, 989.71377351959, -584.318140512119, 0.45)
    pt3dadd(99.601134572607, 990.559162999257, -584.843606465817, 0.45)
    pt3dadd(99.6970624578752, 991.404552478924, -585.369072419515, 0.45)
    pt3dadd(99.7929903431434, 992.249941958592, -585.894538373213, 0.45)
    pt3dadd(99.8889182284117, 993.095331438259, -586.42000432691, 0.45)
    pt3dadd(99.9848461136799, 993.940720917927, -586.945470280608, 0.45)
    pt3dadd(100.080773998948, 994.786110397594, -587.470936234306, 0.45)
    pt3dadd(100.176701884216, 995.631499877261, -587.996402188004, 0.45)
    pt3dadd(100.272629769485, 996.476889356929, -588.521868141702, 0.45)
    pt3dadd(100.368557654753, 997.322278836596, -589.0473340954, 0.45)
    pt3dadd(100.464485540021, 998.167668316263, -589.572800049098, 0.45)
    pt3dadd(100.560413425289, 999.013057795931, -590.098266002796, 0.45)
    pt3dadd(100.656341310557, 999.858447275598, -590.623731956494, 0.45)
    pt3dadd(100.752269195826, 1000.70383675527, -591.149197910192, 0.45)
    pt3dadd(100.848197081094, 1001.54922623493, -591.67466386389, 0.45)
    pt3dadd(100.944124966362, 1002.3946157146, -592.200129817588, 0.45)
    pt3dadd(101.04005285163, 1003.24000519427, -592.725595771286, 0.45)
    pt3dadd(101.135980736899, 1004.08539467394, -593.251061724984, 0.45)
    pt3dadd(101.231908622167, 1004.9307841536, -593.776527678682, 0.45)
    pt3dadd(101.327836507435, 1005.77617363327, -594.30199363238, 0.45)
    pt3dadd(101.423764392703, 1006.62156311294, -594.827459586078, 0.45)
    pt3dadd(101.519692277971, 1007.4669525926, -595.352925539776, 0.45)
    pt3dadd(101.61562016324, 1008.31234207227, -595.878391493474, 0.45)
    pt3dadd(101.711548048508, 1009.15773155194, -596.403857447172, 0.45)
    pt3dadd(101.807475933776, 1010.00312103161, -596.929323400869, 0.45)
    pt3dadd(101.903403819044, 1010.84851051127, -597.454789354567, 0.45)
    pt3dadd(101.999331704313, 1011.69389999094, -597.980255308265, 0.45)
    pt3dadd(102.095259589581, 1012.53928947061, -598.505721261963, 0.45)
    pt3dadd(102.191187474849, 1013.38467895028, -599.031187215661, 0.45)
    pt3dadd(102.287115360117, 1014.23006842994, -599.556653169359, 0.45)
    pt3dadd(102.383043245385, 1015.07545790961, -600.082119123057, 0.45)
    pt3dadd(102.478971130654, 1015.92084738928, -600.607585076755, 0.45)
    pt3dadd(102.574899015922, 1016.76623686895, -601.133051030453, 0.45)
    pt3dadd(102.67082690119, 1017.61162634861, -601.658516984151, 0.45)
    pt3dadd(102.766754786458, 1018.45701582828, -602.183982937849, 0.45)
    pt3dadd(102.862682671727, 1019.30240530795, -602.709448891547, 0.45)
    pt3dadd(102.958610556995, 1020.14779478762, -603.234914845245, 0.45)
    pt3dadd(103.054538442263, 1020.99318426728, -603.760380798943, 0.45)
    pt3dadd(103.150466327531, 1021.83857374695, -604.285846752641, 0.45)
    pt3dadd(103.246394212799, 1022.68396322662, -604.811312706339, 0.45)
    pt3dadd(103.342322098068, 1023.52935270628, -605.336778660037, 0.45)
    pt3dadd(103.438249983336, 1024.37474218595, -605.862244613735, 0.45)
    pt3dadd(103.534177868604, 1025.22013166562, -606.387710567433, 0.45)
    pt3dadd(103.630105753872, 1026.06552114529, -606.91317652113, 0.45)
    pt3dadd(103.726033639141, 1026.91091062495, -607.438642474828, 0.45)
    pt3dadd(103.821961524409, 1027.75630010462, -607.964108428526, 0.45)
    pt3dadd(103.917889409677, 1028.60168958429, -608.489574382224, 0.45)
    pt3dadd(104.013817294945, 1029.44707906396, -609.015040335922, 0.45)
    pt3dadd(104.109745180213, 1030.29246854362, -609.54050628962, 0.45)
    pt3dadd(104.205673065482, 1031.13785802329, -610.065972243318, 0.45)
    pt3dadd(104.30160095075, 1031.98324750296, -610.591438197016, 0.45)
    pt3dadd(104.397528836018, 1032.82863698263, -611.116904150714, 0.45)
    pt3dadd(104.493456721286, 1033.67402646229, -611.642370104412, 0.45)
    pt3dadd(104.589384606555, 1034.51941594196, -612.16783605811, 0.45)
    pt3dadd(104.685312491823, 1035.36480542163, -612.693302011808, 0.45)
    pt3dadd(104.781240377091, 1036.2101949013, -613.218767965506, 0.45)
    pt3dadd(104.877168262359, 1037.05558438096, -613.744233919204, 0.45)
    pt3dadd(104.973096147627, 1037.90097386063, -614.269699872902, 0.45)
    pt3dadd(105.069024032896, 1038.7463633403, -614.7951658266, 0.45)
    pt3dadd(105.164951918164, 1039.59175281996, -615.320631780298, 0.45)
    pt3dadd(105.260879803432, 1040.43714229963, -615.846097733996, 0.45)
    pt3dadd(105.3568076887, 1041.2825317793, -616.371563687694, 0.45)
    pt3dadd(105.452735573969, 1042.12792125897, -616.897029641391, 0.45)
    pt3dadd(105.548663459237, 1042.97331073863, -617.422495595089, 0.45)
    pt3dadd(105.644591344505, 1043.8187002183, -617.947961548787, 0.45)
    pt3dadd(105.740519229773, 1044.66408969797, -618.473427502485, 0.45)
    pt3dadd(105.836447115041, 1045.50947917764, -618.998893456183, 0.45)
    pt3dadd(105.93237500031, 1046.3548686573, -619.524359409881, 0.45)
    pt3dadd(106.028302885578, 1047.20025813697, -620.049825363579, 0.45)
    pt3dadd(106.124230770846, 1048.04564761664, -620.575291317277, 0.45)
    pt3dadd(106.220158656114, 1048.89103709631, -621.100757270975, 0.45)
    pt3dadd(106.316086541383, 1049.73642657597, -621.626223224673, 0.45)
    pt3dadd(106.412014426651, 1050.58181605564, -622.151689178371, 0.45)
    pt3dadd(106.507942311919, 1051.42720553531, -622.677155132069, 0.45)
    pt3dadd(106.603870197187, 1052.27259501498, -623.202621085767, 0.45)
    pt3dadd(106.699798082455, 1053.11798449464, -623.728087039465, 0.45)
    pt3dadd(106.795725967724, 1053.96337397431, -624.253552993163, 0.45)
    pt3dadd(106.891653852992, 1054.80876345398, -624.779018946861, 0.45)
    pt3dadd(106.98758173826, 1055.65415293364, -625.304484900559, 0.45)
    pt3dadd(107.083509623528, 1056.49954241331, -625.829950854257, 0.45)
    pt3dadd(107.179437508797, 1057.34493189298, -626.355416807955, 0.45)
    pt3dadd(107.275365394065, 1058.19032137265, -626.880882761653, 0.45)
    pt3dadd(107.371293279333, 1059.03571085231, -627.40634871535, 0.45)
    pt3dadd(107.467221164601, 1059.88110033198, -627.931814669048, 0.45)
    pt3dadd(107.563149049869, 1060.72648981165, -628.457280622746, 0.45)
    pt3dadd(107.659076935138, 1061.57187929132, -628.982746576444, 0.45)
    pt3dadd(107.755004820406, 1062.41726877098, -629.508212530142, 0.45)
    pt3dadd(107.850932705674, 1063.26265825065, -630.03367848384, 0.45)
    pt3dadd(107.946860590942, 1064.10804773032, -630.559144437538, 0.45)
    pt3dadd(108.042788476211, 1064.95343720999, -631.084610391236, 0.45)
    pt3dadd(108.138716361479, 1065.79882668965, -631.610076344934, 0.45)
    pt3dadd(108.234644246747, 1066.64421616932, -632.135542298632, 0.45)
    pt3dadd(108.330572132015, 1067.48960564899, -632.66100825233, 0.45)
    pt3dadd(108.426500017283, 1068.33499512866, -633.186474206028, 0.45)
    pt3dadd(108.522427902552, 1069.18038460832, -633.711940159726, 0.45)
    pt3dadd(108.61835578782, 1070.02577408799, -634.237406113424, 0.45)
    pt3dadd(108.714283673088, 1070.87116356766, -634.762872067122, 0.45)
    pt3dadd(108.810211558356, 1071.71655304732, -635.28833802082, 0.45)
    pt3dadd(108.906139443625, 1072.56194252699, -635.813803974518, 0.45)
    pt3dadd(109.002067328893, 1073.40733200666, -636.339269928216, 0.45)
    pt3dadd(109.097995214161, 1074.25272148633, -636.864735881914, 0.45)
    pt3dadd(109.193923099429, 1075.09811096599, -637.390201835611, 0.45)
    pt3dadd(109.289850984697, 1075.94350044566, -637.915667789309, 0.45)
    pt3dadd(109.385778869966, 1076.78888992533, -638.441133743007, 0.45)
    pt3dadd(109.481706755234, 1077.634279405, -638.966599696705, 0.45)
    pt3dadd(109.577634640502, 1078.47966888466, -639.492065650403, 0.45)
    pt3dadd(109.67356252577, 1079.32505836433, -640.017531604101, 0.45)
    pt3dadd(109.769490411039, 1080.170447844, -640.542997557799, 0.45)
    pt3dadd(109.865418296307, 1081.01583732367, -641.068463511497, 0.45)
    pt3dadd(109.961346181575, 1081.86122680333, -641.593929465195, 0.45)
    pt3dadd(110.057274066843, 1082.706616283, -642.119395418893, 0.45)
    pt3dadd(110.153201952111, 1083.55200576267, -642.644861372591, 0.45)
    pt3dadd(110.24912983738, 1084.39739524234, -643.170327326289, 0.45)
    pt3dadd(110.345057722648, 1085.242784722, -643.695793279987, 0.45)
    pt3dadd(110.440985607916, 1086.08817420167, -644.221259233685, 0.45)
    pt3dadd(110.536913493184, 1086.93356368134, -644.746725187383, 0.45)
    pt3dadd(110.632841378453, 1087.77895316101, -645.272191141081, 0.45)
    pt3dadd(110.728769263721, 1088.62434264067, -645.797657094779, 0.45)
    pt3dadd(110.824697148989, 1089.46973212034, -646.323123048477, 0.45)
    pt3dadd(110.920625034257, 1090.31512160001, -646.848589002175, 0.45)
    pt3dadd(111.016552919525, 1091.16051107967, -647.374054955872, 0.45)
    pt3dadd(111.112480804794, 1092.00590055934, -647.89952090957, 0.45)
    pt3dadd(111.208408690062, 1092.85129003901, -648.424986863268, 0.45)
    pt3dadd(111.30433657533, 1093.69667951868, -648.950452816966, 0.45)
    pt3dadd(111.400264460598, 1094.54206899834, -649.475918770664, 0.45)
    pt3dadd(111.496192345866, 1095.38745847801, -650.001384724362, 0.45)
    pt3dadd(111.592120231135, 1096.23284795768, -650.52685067806, 0.45)
    pt3dadd(111.688048116403, 1097.07823743735, -651.052316631758, 0.45)
    pt3dadd(111.783976001671, 1097.92362691701, -651.577782585456, 0.45)
  }
}
proc shape3d_6() {
  axon[0] {
    pt3dadd(111.879903886939, 1098.76901639668, -652.103248539154, 0.45)
    pt3dadd(111.975831772208, 1099.61440587635, -652.628714492852, 0.45)
    pt3dadd(112.071759657476, 1100.45979535602, -653.15418044655, 0.45)
    pt3dadd(112.167687542744, 1101.30518483568, -653.679646400248, 0.45)
    pt3dadd(112.263615428012, 1102.15057431535, -654.205112353946, 0.45)
    pt3dadd(112.35954331328, 1102.99596379502, -654.730578307644, 0.45)
    pt3dadd(112.455471198549, 1103.84135327469, -655.256044261342, 0.45)
    pt3dadd(112.551399083817, 1104.68674275435, -655.78151021504, 0.45)
    pt3dadd(112.647326969085, 1105.53213223402, -656.306976168738, 0.45)
    pt3dadd(112.743254854353, 1106.37752171369, -656.832442122436, 0.45)
    pt3dadd(112.839182739622, 1107.22291119335, -657.357908076134, 0.45)
    pt3dadd(112.93511062489, 1108.06830067302, -657.883374029831, 0.45)
    pt3dadd(113.031038510158, 1108.91369015269, -658.408839983529, 0.45)
    pt3dadd(113.126966395426, 1109.75907963236, -658.934305937227, 0.45)
    pt3dadd(113.222894280694, 1110.60446911202, -659.459771890925, 0.45)
    pt3dadd(113.318822165963, 1111.44985859169, -659.985237844623, 0.45)
    pt3dadd(113.414750051231, 1112.29524807136, -660.510703798321, 0.45)
    pt3dadd(113.510677936499, 1113.14063755103, -661.036169752019, 0.45)
    pt3dadd(113.606605821767, 1113.98602703069, -661.561635705717, 0.45)
    pt3dadd(113.702533707036, 1114.83141651036, -662.087101659415, 0.45)
    pt3dadd(113.798461592304, 1115.67680599003, -662.612567613113, 0.45)
    pt3dadd(113.894389477572, 1116.5221954697, -663.138033566811, 0.45)
    pt3dadd(113.99031736284, 1117.36758494936, -663.663499520509, 0.45)
    pt3dadd(114.086245248108, 1118.21297442903, -664.188965474207, 0.45)
    pt3dadd(114.182173133377, 1119.0583639087, -664.714431427905, 0.45)
    pt3dadd(114.278101018645, 1119.90375338837, -665.239897381603, 0.45)
    pt3dadd(114.374028903913, 1120.74914286803, -665.765363335301, 0.45)
    pt3dadd(114.469956789181, 1121.5945323477, -666.290829288999, 0.45)
    pt3dadd(114.56588467445, 1122.43992182737, -666.816295242697, 0.45)
    pt3dadd(114.661812559718, 1123.28531130703, -667.341761196395, 0.45)
    pt3dadd(114.757740444986, 1124.1307007867, -667.867227150093, 0.45)
    pt3dadd(114.853668330254, 1124.97609026637, -668.39269310379, 0.45)
    pt3dadd(114.949596215522, 1125.82147974604, -668.918159057488, 0.45)
    pt3dadd(115.045524100791, 1126.6668692257, -669.443625011186, 0.45)
    pt3dadd(115.141451986059, 1127.51225870537, -669.969090964884, 0.45)
    pt3dadd(115.237379871327, 1128.35764818504, -670.494556918582, 0.45)
    pt3dadd(115.333307756595, 1129.20303766471, -671.02002287228, 0.45)
    pt3dadd(115.429235641864, 1130.04842714437, -671.545488825978, 0.45)
    pt3dadd(115.525163527132, 1130.89381662404, -672.070954779676, 0.45)
    pt3dadd(115.6210914124, 1131.73920610371, -672.596420733374, 0.45)
    pt3dadd(115.717019297668, 1132.58459558338, -673.121886687072, 0.45)
    pt3dadd(115.812947182936, 1133.42998506304, -673.64735264077, 0.45)
    pt3dadd(115.908875068205, 1134.27537454271, -674.172818594468, 0.45)
    pt3dadd(116.004802953473, 1135.12076402238, -674.698284548166, 0.45)
    pt3dadd(116.100730838741, 1135.96615350205, -675.223750501864, 0.45)
    pt3dadd(116.196658724009, 1136.81154298171, -675.749216455562, 0.45)
    pt3dadd(116.292586609278, 1137.65693246138, -676.27468240926, 0.45)
    pt3dadd(116.388514494546, 1138.50232194105, -676.800148362958, 0.45)
    pt3dadd(116.484442379814, 1139.34771142071, -677.325614316656, 0.45)
    pt3dadd(116.580370265082, 1140.19310090038, -677.851080270353, 0.45)
    pt3dadd(116.67629815035, 1141.03849038005, -678.376546224051, 0.45)
    pt3dadd(116.772226035619, 1141.88387985972, -678.902012177749, 0.45)
    pt3dadd(116.868153920887, 1142.72926933938, -679.427478131447, 0.45)
    pt3dadd(116.964081806155, 1143.57465881905, -679.952944085145, 0.45)
    pt3dadd(117.060009691423, 1144.42004829872, -680.478410038843, 0.45)
    pt3dadd(117.155937576692, 1145.26543777839, -681.003875992541, 0.45)
    pt3dadd(117.25186546196, 1146.11082725805, -681.529341946239, 0.45)
    pt3dadd(117.347793347228, 1146.95621673772, -682.054807899937, 0.45)
    pt3dadd(117.443721232496, 1147.80160621739, -682.580273853635, 0.45)
    pt3dadd(117.539649117764, 1148.64699569706, -683.105739807333, 0.45)
    pt3dadd(117.635577003033, 1149.49238517672, -683.631205761031, 0.45)
    pt3dadd(117.731504888301, 1150.33777465639, -684.156671714729, 0.45)
    pt3dadd(117.827432773569, 1151.18316413606, -684.682137668427, 0.45)
    pt3dadd(117.923360658837, 1152.02855361573, -685.207603622125, 0.45)
    pt3dadd(118.019288544106, 1152.87394309539, -685.733069575823, 0.45)
    pt3dadd(118.115216429374, 1153.71933257506, -686.258535529521, 0.45)
    pt3dadd(118.211144314642, 1154.56472205473, -686.784001483219, 0.45)
    pt3dadd(118.30707219991, 1155.41011153439, -687.309467436917, 0.45)
    pt3dadd(118.403000085178, 1156.25550101406, -687.834933390615, 0.45)
    pt3dadd(118.498927970447, 1157.10089049373, -688.360399344312, 0.45)
    pt3dadd(118.594855855715, 1157.9462799734, -688.88586529801, 0.45)
    pt3dadd(118.690783740983, 1158.79166945306, -689.411331251708, 0.45)
    pt3dadd(118.786711626251, 1159.63705893273, -689.936797205406, 0.45)
    pt3dadd(118.88263951152, 1160.4824484124, -690.462263159104, 0.45)
    pt3dadd(118.978567396788, 1161.32783789207, -690.987729112802, 0.45)
    pt3dadd(119.074495282056, 1162.17322737173, -691.5131950665, 0.45)
    pt3dadd(119.170423167324, 1163.0186168514, -692.038661020198, 0.45)
    pt3dadd(119.266351052592, 1163.86400633107, -692.564126973896, 0.45)
    pt3dadd(119.362278937861, 1164.70939581074, -693.089592927594, 0.45)
    pt3dadd(119.458206823129, 1165.5547852904, -693.615058881292, 0.45)
    pt3dadd(119.554134708397, 1166.40017477007, -694.14052483499, 0.45)
    pt3dadd(119.650062593665, 1167.24556424974, -694.665990788688, 0.45)
    pt3dadd(119.745990478934, 1168.09095372941, -695.191456742386, 0.45)
    pt3dadd(119.841918364202, 1168.93634320907, -695.716922696084, 0.45)
    pt3dadd(119.93784624947, 1169.78173268874, -696.242388649782, 0.45)
    pt3dadd(120.033774134738, 1170.62712216841, -696.76785460348, 0.45)
    pt3dadd(120.129702020006, 1171.47251164807, -697.293320557178, 0.45)
    pt3dadd(120.225629905275, 1172.31790112774, -697.818786510876, 0.45)
    pt3dadd(120.321557790543, 1173.16329060741, -698.344252464574, 0.45)
    pt3dadd(120.417485675811, 1174.00868008708, -698.869718418271, 0.45)
    pt3dadd(120.513413561079, 1174.85406956674, -699.395184371969, 0.45)
    pt3dadd(120.609341446348, 1175.69945904641, -699.920650325667, 0.45)
    pt3dadd(120.705269331616, 1176.54484852608, -700.446116279365, 0.45)
    pt3dadd(120.801197216884, 1177.39023800575, -700.971582233063, 0.45)
    pt3dadd(120.897125102152, 1178.23562748541, -701.497048186761, 0.45)
    pt3dadd(120.99305298742, 1179.08101696508, -702.022514140459, 0.45)
    pt3dadd(121.088980872689, 1179.92640644475, -702.547980094157, 0.45)
    pt3dadd(121.184908757957, 1180.77179592442, -703.073446047855, 0.45)
    pt3dadd(121.280836643225, 1181.61718540408, -703.598912001553, 0.45)
    pt3dadd(121.376764528493, 1182.46257488375, -704.124377955251, 0.45)
    pt3dadd(121.472692413762, 1183.30796436342, -704.649843908949, 0.45)
    pt3dadd(121.56862029903, 1184.15335384309, -705.175309862647, 0.45)
    pt3dadd(121.664548184298, 1184.99874332275, -705.700775816345, 0.45)
    pt3dadd(121.760476069566, 1185.84413280242, -706.226241770043, 0.45)
    pt3dadd(121.856403954834, 1186.68952228209, -706.751707723741, 0.45)
    pt3dadd(121.952331840103, 1187.53491176176, -707.277173677439, 0.45)
    pt3dadd(122.048259725371, 1188.38030124142, -707.802639631137, 0.45)
    pt3dadd(122.144187610639, 1189.22569072109, -708.328105584834, 0.45)
    pt3dadd(122.240115495907, 1190.07108020076, -708.853571538532, 0.45)
    pt3dadd(122.336043381176, 1190.91646968042, -709.37903749223, 0.45)
  }
  soma[2] {pt3dclear()
    pt3dadd(-7.1666017309238, 49.6406721294704, 0, 10.2667572303772)
    pt3dadd(-6.87536408046079, 48.6988573702566, -0.167826071513814, 10.2667572303772)
    pt3dadd(-6.58412642999778, 47.7570426110427, -0.335652143027627, 9.58775356515898)
    pt3dadd(-6.29288877953478, 46.8152278518289, -0.503478214541441, 8.52332145975836)
    pt3dadd(-6.00165112907177, 45.8734130926151, -0.671304286055255, 7.16804037792357)
    pt3dadd(-5.71041347860876, 44.9315983334012, -0.839130357569069, 5.64233299132873)
    pt3dadd(-5.41917582814576, 43.9897835741874, -1.00695642908288, 5.33856968541031)
    pt3dadd(-5.12793817768275, 43.0479688149735, -1.1747825005967, 5.14869129964536)
    pt3dadd(-4.83670052721974, 42.1061540557597, -1.34260857211051, 4.95881291388041)
    pt3dadd(-4.54546287675674, 41.1643392965458, -1.51043464362432, 4.76893452811547)
    pt3dadd(-4.25422522629373, 40.222524537332, -1.67826071513814, 4.57905614235052)
  }
  GCL[0] {pt3dclear()
    pt3dadd(-4.25422522629373, 40.222524537332, -1.67826071513814, 4.38917775658557)
    pt3dadd(-3.96298757583072, 39.2807097781182, -1.84608678665195, 4.38917775658557)
    pt3dadd(-3.67174992536772, 38.3388950189043, -2.01391285816576, 4.19929937082062)
    pt3dadd(-3.38051227490471, 37.3970802596905, -2.18173892967958, 4.00942098505567)
    pt3dadd(-3.0892746244417, 36.4552655004766, -2.34956500119339, 3.81954259929073)
    pt3dadd(-2.79803697397869, 35.5134507412628, -2.51739107270721, 3.62966421352578)
    pt3dadd(-2.50679932351569, 34.571635982049, -2.68521714422102, 3.43978582776083)
    pt3dadd(-2.21556167305268, 33.6298212228351, -2.85304321573483, 3.24990744199588)
    pt3dadd(-1.92432402258967, 32.6880064636213, -3.02086928724865, 3.06002905623093)
    pt3dadd(-1.63308637212667, 31.7461917044074, -3.18869535876246, 2.87015067046599)
    pt3dadd(-1.34184872166366, 30.8043769451936, -3.35652143027627, 2.68027228470104)
    pt3dadd(-1.05061107120065, 29.8625621859797, -3.52434750179009, 2.49039389893609)
    pt3dadd(-0.759373420737648, 28.9207474267659, -3.6921735733039, 2.30051551317114)
    pt3dadd(-0.392197030882375, 28.0056580095926, -3.85160422831148, 2.31453097685446)
    pt3dadd(0.00250522951914256, 27.1002558523238, -4.00799175737593, 2.40245279913688)
    pt3dadd(0.39720748992066, 26.1948536950549, -4.16437928644039, 2.49037462141931)
    pt3dadd(0.791909750322179, 25.2894515377861, -4.32076681550485, 2.57829644370173)
    pt3dadd(1.1866120107237, 24.3840493805173, -4.4771543445693, 2.66621826598415)
  }
  GCL[1] {pt3dclear()
    pt3dadd(1.1866120107237, 24.3840493805173, -4.4771543445693, 2.65016916143715)
    pt3dadd(1.57028589002439, 23.5450714753418, -4.82735765355063, 2.65016916143715)
    pt3dadd(1.94707840195199, 22.747540240984, -5.29849599117447, 2.56924542687035)
    pt3dadd(2.3238709138796, 21.9500090066262, -5.76963432879831, 2.48832169230356)
    pt3dadd(2.70066342580721, 21.1524777722683, -6.24077266642214, 2.40739795773676)
    pt3dadd(3.07745593773481, 20.3549465379105, -6.71191100404598, 2.32647422316997)
    pt3dadd(3.45351177495253, 19.5530593990485, -7.1398221730515, 2.25)
    pt3dadd(3.81690630598554, 18.6763068685841, -6.82478342124536, 2.25)
    pt3dadd(4.18030083701855, 17.7995543381197, -6.50974466943922, 2.25)
    pt3dadd(4.54369536805156, 16.9228018076553, -6.19470591763309, 2.25)
    pt3dadd(4.86366351673606, 16.0330541203222, -5.87643347151956, 2.25)
    pt3dadd(5.08538760331444, 15.11390732283, -5.5508453972743, 2.25)
    pt3dadd(5.30711168989282, 14.1947605253377, -5.22525732302904, 2.25)
    pt3dadd(5.5687365179766, 13.3255458085877, -4.99214357601429, 2.23337551928052)
  }
  GCL[2] {pt3dclear()
    pt3dadd(5.5687365179766, 13.3255458085877, -4.99214357601429, 2.16690289921631)
    pt3dadd(5.4169484854412, 12.3491432653259, -5.45271158845406, 2.16690289921631)
    pt3dadd(5.37180378666225, 11.4241379818184, -5.82997433728502, 2.10043027915209)
    pt3dadd(5.32665908788331, 10.499132698311, -6.20723708611599, 2.03395765908788)
    pt3dadd(5.28151438910436, 9.57412741480356, -6.58449983494695, 1.96748503902367)
    pt3dadd(5.23636969032542, 8.64912213129612, -6.96176258377791, 1.90101241895946)
    pt3dadd(5.19122499154647, 7.72411684778869, -7.33902533260888, 1.83453979889525)
    pt3dadd(5.14268557448718, 6.80229883897049, -7.723493630332, 1.8)
    pt3dadd(5.09047429623877, 5.88392831217108, -8.11575573394367, 1.8)
    pt3dadd(5.03826301799036, 4.96555778537168, -8.50801783755534, 1.8)
    pt3dadd(4.98605173974196, 4.04718725857228, -8.90027994116701, 1.8)
    pt3dadd(4.93384046149355, 3.12881673177287, -9.29254204477868, 1.8)
    pt3dadd(4.88162918324515, 2.21044620497347, -9.68480414839035, 1.8)
    pt3dadd(4.82941790499674, 1.29207567817407, -10.077066252002, 1.8)
    pt3dadd(4.81549326645388, 0.332879746655167, -10.2876940177463, 1.8)
  }
  adendIML[0] {pt3dclear()
    pt3dadd(4.81549326645388, 0.332879746655167, -10.2876940177463, 1.8)
    pt3dadd(4.83907265394361, -0.66630708124866, -10.3204002163805, 1.8)
    pt3dadd(4.86265204143333, -1.66549390915249, -10.3531064150147, 1.8)
    pt3dadd(4.88623142892305, -2.66468073705631, -10.385812613649, 1.8)
    pt3dadd(4.90981081641278, -3.66386756496013, -10.4185188122832, 1.8)
    pt3dadd(4.93339020390251, -4.66305439286396, -10.4512250109174, 1.8)
    pt3dadd(4.95696959139223, -5.66224122076779, -10.4839312095516, 1.8)
    pt3dadd(4.93710933980792, -6.65689356113013, -10.5289751089213, 1.8)
    pt3dadd(4.74340177432784, -7.63339868628113, -10.6233950201139, 1.8)
    pt3dadd(4.54969420884776, -8.60990381143213, -10.7178149313065, 1.8)
    pt3dadd(4.35598664336768, -9.58640893658313, -10.8122348424991, 1.8)
    pt3dadd(4.30739159113674, -10.5666233216487, -10.9367162433488, 1.8)
    pt3dadd(4.39960071644523, -11.5504368401029, -11.090366619582, 1.8)
    pt3dadd(4.49180984175372, -12.5342503585571, -11.2440169958153, 1.8)
    pt3dadd(4.58401896706222, -13.5180638770113, -11.3976673720485, 1.8)
    pt3dadd(4.67622809237071, -14.5018773954655, -11.5513177482817, 1.8)
    pt3dadd(4.7684372176792, -15.4856909139197, -11.7049681245149, 1.8)
    pt3dadd(4.8606463429877, -16.4695044323739, -11.8586185007481, 1.8)
    pt3dadd(4.95285546829619, -17.4533179508281, -12.0122688769813, 1.8)
    pt3dadd(5.04506459360468, -18.4371314692823, -12.1659192532145, 1.8)
    pt3dadd(5.13727371891317, -19.4209449877365, -12.3195696294477, 1.8)
    pt3dadd(5.22948284422167, -20.4047585061907, -12.473220005681, 1.8)
    pt3dadd(5.37341285397534, -21.2260574352901, -13.0090575545445, 1.8)
    pt3dadd(5.52254892079188, -22.0309981710832, -13.5833648289502, 1.8)
    pt3dadd(5.67168498760841, -22.8359389068763, -14.157672103356, 1.8)
    pt3dadd(5.82082105442495, -23.6408796426694, -14.7319793777617, 1.8)
    pt3dadd(5.96995712124149, -24.4458203784625, -15.3062866521675, 1.8)
    pt3dadd(6.11909318805803, -25.2507611142555, -15.8805939265733, 1.8)
    pt3dadd(6.24106902207358, -26.1087279631088, -16.325757028407, 1.8)
    pt3dadd(6.29477444085878, -27.099982136235, -16.4463011790454, 1.8)
    pt3dadd(6.34847985964398, -28.0912363093611, -16.5668453296838, 1.8)
    pt3dadd(6.40218527842918, -29.0824904824872, -16.6873894803222, 1.8)
    pt3dadd(6.45589069721437, -30.0737446556133, -16.8079336309607, 1.8)
    pt3dadd(6.50959611599957, -31.0649988287395, -16.9284777815991, 1.8)
    pt3dadd(6.56330153478476, -32.0562530018656, -17.0490219322375, 1.8)
    pt3dadd(6.62597707421002, -33.0454155732506, -17.1729218740481, 1.8018181062668)
    pt3dadd(6.90128531848885, -33.984997659207, -17.3763693473229, 1.84673360985216)
    pt3dadd(7.17659356276767, -34.9245797451634, -17.5798168205977, 1.89164911343752)
    pt3dadd(7.4519018070465, -35.8641618311198, -17.7832642938726, 1.93656461702289)
    pt3dadd(7.72721005132533, -36.8037439170763, -17.9867117671475, 1.98148012060825)
    pt3dadd(8.00251829560415, -37.7433260030327, -18.1901592404223, 2.02639562419362)
    pt3dadd(8.27782653988298, -38.6829080889891, -18.3936067136972, 2.07131112777898)
    pt3dadd(8.55313478416181, -39.6224901749455, -18.597054186972, 2.11622663136434)
    pt3dadd(8.82844302844064, -40.5620722609019, -18.8005016602469, 2.16114213494971)
    pt3dadd(9.10375127271947, -41.5016543468583, -19.0039491335217, 2.20605763853507)
    pt3dadd(9.37943231760509, -42.4411607552828, -19.2072217462007, 2.25)
    pt3dadd(9.67194722331577, -43.3772499347238, -19.4025985054907, 2.25)
    pt3dadd(9.96446212902645, -44.3133391141647, -19.5979752647808, 2.25)
    pt3dadd(10.2569770347371, -45.2494282936056, -19.7933520240708, 2.25)
    pt3dadd(10.5494919404478, -46.1855174730466, -19.9887287833608, 2.25)
    pt3dadd(10.8420068461585, -47.1216066524875, -20.1841055426508, 2.25)
    pt3dadd(11.1345217518692, -48.0576958319284, -20.3794823019409, 2.25)
    pt3dadd(11.4270366575799, -48.9937850113694, -20.5748590612309, 2.25)
    pt3dadd(11.7195515632905, -49.9298741908103, -20.7702358205209, 2.25)
    pt3dadd(11.9903406561212, -50.8646336680852, -20.990158770997, 2.25)
    pt3dadd(12.1696502973981, -51.7937942558938, -21.3134367544853, 2.25)
    pt3dadd(12.348959938675, -52.7229548437024, -21.6367147379737, 2.25)
    pt3dadd(12.5282695799518, -53.6521154315111, -21.959992721462, 2.25)
    pt3dadd(12.7075792212287, -54.5812760193197, -22.2832707049503, 2.25)
    pt3dadd(12.8868888625056, -55.5104366071283, -22.6065486884387, 2.25)
    pt3dadd(13.0661985037824, -56.4395971949369, -22.929826671927, 2.25)
    pt3dadd(13.2455081450593, -57.3687577827456, -23.2531046554154, 2.25)
    pt3dadd(13.4248177863362, -58.2979183705542, -23.5763826389037, 2.25)
    pt3dadd(13.604127427613, -59.2270789583628, -23.8996606223921, 2.25)
    pt3dadd(13.7834370688899, -60.1562395461714, -24.2229386058804, 2.25)
    pt3dadd(13.9099455366323, -61.1195348917536, -24.4446298576509, 2.25)
    pt3dadd(14.0108888511717, -62.0993575274246, -24.6171350746058, 2.25)
    pt3dadd(14.111832165711, -63.0791801630955, -24.7896402915607, 2.25)
    pt3dadd(14.2127754802504, -64.0590027987664, -24.9621455085157, 2.25)
    pt3dadd(14.3137187947898, -65.0388254344374, -25.1346507254706, 2.25)
    pt3dadd(14.410043531372, -66.0227970721897, -25.2652375197228, 2.25)
    pt3dadd(14.4923032963824, -67.0194036804605, -25.2681699950229, 2.25)
    pt3dadd(14.5745630613929, -68.0160102887313, -25.271102470323, 2.25)
  }
  adendIML[1] {pt3dclear()
    pt3dadd(14.5745630613929, -68.0160102887313, -25.271102470323, 2.25)
    pt3dadd(14.7246633248019, -68.9635536578786, -25.5418924766693, 2.25)
    pt3dadd(14.8801939907937, -69.9071696805772, -25.8341235729657, 2.25)
    pt3dadd(15.0357246567856, -70.8507857032758, -26.126354669262, 2.25)
    pt3dadd(15.1912553227774, -71.7944017259744, -26.4185857655584, 2.25)
    pt3dadd(15.3467859887692, -72.738017748673, -26.7108168618548, 2.25)
    pt3dadd(15.5023166547611, -73.6816337713716, -27.0030479581512, 2.25)
    pt3dadd(15.6569691939269, -74.6260213230992, -27.2909090458222, 2.25)
  }
}
proc shape3d_7() {
  adendIML[1] {
    pt3dadd(15.7536585784787, -75.6213357512967, -27.2903158030887, 2.25)
    pt3dadd(15.8503479630304, -76.6166501794941, -27.2897225603551, 2.25)
    pt3dadd(15.9470373475822, -77.6119646076916, -27.2891293176215, 2.25)
    pt3dadd(16.0279045344496, -78.6083993627302, -27.2923952507496, 2.25)
    pt3dadd(16.0750712501179, -79.6072203565959, -27.3038810309285, 2.25)
    pt3dadd(16.1222379657862, -80.6060413504615, -27.3153668111075, 2.25)
    pt3dadd(16.2291492789604, -81.5413867497001, -27.4867364229275, 2.25)
    pt3dadd(16.48799461982, -82.3153099759889, -28.0647000284651, 2.25)
    pt3dadd(16.6905452894598, -83.0814888013997, -28.5718446634229, 2.21282358625351)
  }
  adendIML[2] {pt3dclear()
    pt3dadd(16.6905452894598, -83.0814888013997, -28.5718446634229, 2.08150093972047)
    pt3dadd(17.2288861268696, -84.0217709241232, -28.3709194476911, 2.08150093972047)
    pt3dadd(17.661686877582, -84.9193130910782, -28.2866486418304, 1.95017829318742)
    pt3dadd(18.0944876282945, -85.8168552580333, -28.2023778359698, 1.81885564665438)
    pt3dadd(18.232617920019, -86.7681940556978, -28.4166053995271, 1.8)
    pt3dadd(18.3213452574533, -87.7285521235567, -28.6808776854184, 1.8)
  }
  adendIML[3] {pt3dclear()
    pt3dadd(18.3213452574533, -87.7285521235567, -28.6808776854184, 1.8)
    pt3dadd(18.072365405322, -88.6835359703918, -28.788095113992, 1.8)
    pt3dadd(17.7880444080529, -89.6379574036003, -28.8788767109382, 1.8)
    pt3dadd(17.5037234107837, -90.5923788368087, -28.9696583078844, 1.8)
    pt3dadd(17.2194024135146, -91.5468002700173, -29.0604399048306, 1.8)
    pt3dadd(17.1816216698015, -92.5108993131003, -28.8078440347748, 1.8)
    pt3dadd(17.151123314791, -93.4752842166697, -28.5451053659249, 1.8)
    pt3dadd(17.1206249597805, -94.4396691202392, -28.282366697075, 1.8)
    pt3dadd(17.09012660477, -95.4040540238086, -28.0196280282251, 1.8)
    pt3dadd(17.0596282497595, -96.368438927378, -27.7568893593753, 1.8)
    pt3dadd(17.029129894749, -97.3328238309475, -27.4941506905254, 1.8)
    pt3dadd(16.9986315397385, -98.2972087345169, -27.2314120216755, 1.8)
    pt3dadd(16.793491728591, -99.2238276656637, -26.9228430373601, 1.8)
    pt3dadd(16.5674101489917, -100.145917968458, -26.6087784057009, 1.8)
    pt3dadd(16.3413285693925, -101.068008271252, -26.2947137740416, 1.8)
    pt3dadd(16.1152469897932, -101.990098574046, -25.9806491423824, 1.8)
    pt3dadd(15.8891654101939, -102.912188876839, -25.6665845107231, 1.8)
    pt3dadd(15.7012614014009, -103.842049912641, -25.3635441892074, 1.8)
    pt3dadd(15.7047079105861, -104.810858784948, -25.1157590191264, 1.8)
    pt3dadd(15.7081544197714, -105.779667657256, -24.8679738490455, 1.8)
    pt3dadd(15.7116009289566, -106.748476529564, -24.6201886789645, 1.8)
    pt3dadd(15.6480850777568, -107.739466139775, -24.5909986281536, 1.8)
    pt3dadd(15.568002099963, -108.735943476085, -24.6158910946402, 1.8)
    pt3dadd(15.4879191221691, -109.732420812395, -24.6407835611269, 1.8)
    pt3dadd(15.4078361443753, -110.728898148705, -24.6656760276135, 1.8)
    pt3dadd(15.0307903784768, -111.619309170224, -24.5848907024679, 1.8)
    pt3dadd(14.4967358228134, -112.453641301097, -24.4482319048409, 1.8)
    pt3dadd(13.96268126715, -113.287973431969, -24.3115731072139, 1.8)
    pt3dadd(13.4286267114866, -114.122305562842, -24.1749143095868, 1.8)
    pt3dadd(12.8945721558232, -114.956637693714, -24.0382555119598, 1.8)
    pt3dadd(12.3946250314393, -115.799650368407, -23.8822927762996, 1.8)
    pt3dadd(12.2134209419605, -116.723785038454, -23.5459295952383, 1.8)
  }
  adendMML[0] {pt3dclear()
    pt3dadd(12.2134209419605, -116.723785038454, -23.5459295952383, 1.8)
    pt3dadd(12.0322168524816, -117.6479197085, -23.2095664141769, 1.8)
    pt3dadd(11.8510127630028, -118.572054378547, -22.8732032331156, 1.8)
    pt3dadd(11.669808673524, -119.496189048594, -22.5368400520542, 1.8)
    pt3dadd(11.4886045840452, -120.420323718641, -22.2004768709928, 1.8)
    pt3dadd(11.3074004945664, -121.344458388687, -21.8641136899315, 1.8)
    pt3dadd(11.1214840185515, -122.265298411279, -21.5213960645695, 1.8)
    pt3dadd(10.9334278539169, -123.18464247856, -21.1757931639757, 1.8)
    pt3dadd(10.7453716892823, -124.10398654584, -20.8301902633819, 1.8)
    pt3dadd(10.5573155246476, -125.023330613121, -20.4845873627881, 1.8)
    pt3dadd(10.369259360013, -125.942674680401, -20.1389844621942, 1.8)
    pt3dadd(10.1836060799944, -126.863627094473, -19.7999141410388, 1.8)
    pt3dadd(10.11146148032, -127.860555408759, -19.7694331155761, 1.8)
    pt3dadd(10.0393168806456, -128.857483723045, -19.7389520901134, 1.8)
    pt3dadd(9.96717228097123, -129.85441203733, -19.7084710646507, 1.8)
    pt3dadd(9.89502768129682, -130.851340351616, -19.677990039188, 1.8)
    pt3dadd(9.82288308162244, -131.848268665902, -19.6475090137253, 1.8)
    pt3dadd(9.75073848194805, -132.845196980188, -19.6170279882626, 1.8)
    pt3dadd(9.67859388227366, -133.842125294473, -19.5865469627999, 1.8)
    pt3dadd(9.55876381349991, -134.834425875634, -19.5762378077049, 1.8)
    pt3dadd(9.42350991256438, -135.825229619699, -19.5724532301975, 1.8)
    pt3dadd(9.28825601162884, -136.816033363765, -19.5686686526901, 1.8)
    pt3dadd(9.15300211069331, -137.806837107831, -19.5648840751827, 1.8)
    pt3dadd(9.01774820975777, -138.797640851897, -19.5610994976753, 1.8)
    pt3dadd(8.88249430882223, -139.788444595963, -19.5573149201679, 1.8)
    pt3dadd(8.7472404078867, -140.779248340028, -19.5535303426605, 1.8)
    pt3dadd(8.591041248854, -141.766393710287, -19.5477700273451, 1.8)
    pt3dadd(8.38373376591909, -142.74461231762, -19.5371887331062, 1.8)
    pt3dadd(8.17642628298417, -143.722830924952, -19.5266074388673, 1.8)
    pt3dadd(7.96911880004926, -144.701049532285, -19.5160261446283, 1.8)
    pt3dadd(7.76181131711434, -145.679268139617, -19.5054448503894, 1.8)
    pt3dadd(7.55450383417943, -146.65748674695, -19.4948635561505, 1.8)
    pt3dadd(7.50043360702198, -147.609352652663, -19.7650622152184, 1.8)
    pt3dadd(7.47316953080919, -148.556608618752, -20.0843783671073, 1.8)
    pt3dadd(7.44590545459641, -149.503864584841, -20.4036945189963, 1.8)
    pt3dadd(7.4186413783836, -150.45112055093, -20.7230106708853, 1.8)
    pt3dadd(7.28958497749777, -151.350401255865, -20.474359551009, 1.8)
    pt3dadd(7.12627557695635, -152.233538340845, -20.034588100335, 1.8)
    pt3dadd(6.96296617641492, -153.116675425824, -19.5948166496611, 1.8)
    pt3dadd(6.79965677587348, -153.999812510804, -19.1550451989871, 1.8)
    pt3dadd(6.63634737533205, -154.882949595784, -18.7152737483131, 1.8)
    pt3dadd(6.47303797479062, -155.766086680764, -18.2755022976392, 1.8)
    pt3dadd(6.26551951730459, -156.729962744813, -18.1279383590128, 1.8)
    pt3dadd(6.05512600743118, -157.699089515631, -17.9993775831586, 1.8)
    pt3dadd(5.84473249755777, -158.668216286448, -17.8708168073045, 1.8)
    pt3dadd(5.63433898768436, -159.637343057265, -17.7422560314503, 1.8)
    pt3dadd(5.42394547781095, -160.606469828083, -17.6136952555961, 1.8)
    pt3dadd(5.21355196793754, -161.5755965989, -17.485134479742, 1.8)
    pt3dadd(5.02633364754113, -162.551186376092, -17.3751700755426, 1.8)
    pt3dadd(4.86622617916625, -163.534336721865, -17.2869601204522, 1.8)
    pt3dadd(4.70611871079137, -164.517487067638, -17.1987501653618, 1.8)
    pt3dadd(4.5460112424165, -165.500637413411, -17.1105402102714, 1.8)
    pt3dadd(4.38590377404162, -166.483787759184, -17.022330255181, 1.8)
    pt3dadd(4.22579630566675, -167.466938104957, -16.9341203000906, 1.8)
    pt3dadd(4.06568883729187, -168.45008845073, -16.8459103450003, 1.8)
    pt3dadd(3.98808191164237, -169.417636607524, -16.9971243145683, 1.8)
    pt3dadd(3.95528201956628, -170.376711028482, -17.27837228726, 1.8)
    pt3dadd(3.9224821274902, -171.335785449441, -17.5596202599517, 1.8)
    pt3dadd(3.88968223541413, -172.294859870399, -17.8408682326434, 1.8)
    pt3dadd(3.85688234333802, -173.253934291358, -18.1221162053351, 1.8)
    pt3dadd(3.82408245126196, -174.213008712316, -18.4033641780268, 1.8)
    pt3dadd(3.79128255918588, -175.172083133274, -18.6846121507185, 1.8)
    pt3dadd(3.65225405424453, -176.151461183134, -18.6846189367097, 1.8)
    pt3dadd(3.4880824981845, -177.135644860833, -18.6180592737645, 1.8)
    pt3dadd(3.32391094212445, -178.119828538532, -18.5514996108192, 1.8)
    pt3dadd(3.15973938606442, -179.104012216231, -18.4849399478739, 1.8)
    pt3dadd(2.99556783000439, -180.08819589393, -18.4183802849286, 1.8)
    pt3dadd(2.83139627394436, -181.072379571629, -18.3518206219834, 1.8)
    pt3dadd(2.66722471788431, -182.056563249329, -18.2852609590381, 1.8)
    pt3dadd(2.50305316182429, -183.040746927028, -18.2187012960928, 1.8)
    pt3dadd(2.33888160576426, -184.024930604727, -18.1521416331475, 1.8)
    pt3dadd(2.0324964235014, -184.970486775609, -18.0972674309759, 1.8)
    pt3dadd(1.66727916297123, -185.900063208368, -18.0472273643311, 1.8)
    pt3dadd(1.30206190244104, -186.829639641128, -17.9971872976862, 1.8)
    pt3dadd(0.93684464191085, -187.759216073887, -17.9471472310414, 1.8)
    pt3dadd(0.571627381380656, -188.688792506646, -17.8971071643966, 1.8)
    pt3dadd(0.206410120850468, -189.618368939405, -17.8470670977517, 1.8)
    pt3dadd(-0.158807139679707, -190.547945372164, -17.7970270311069, 1.8)
    pt3dadd(-0.524024400209894, -191.477521804923, -17.7469869644621, 1.8)
    pt3dadd(-0.889241660740083, -192.407098237682, -17.6969468978172, 1.8)
    pt3dadd(-1.18259914888918, -193.346466448514, -17.5468468399832, 1.8)
    pt3dadd(-1.43361388946899, -194.291604379644, -17.3377873002537, 1.8)
    pt3dadd(-1.6846286300488, -195.236742310773, -17.1287277605242, 1.8)
    pt3dadd(-1.93564337062861, -196.181880241903, -16.9196682207948, 1.8)
    pt3dadd(-2.18665811120843, -197.127018173032, -16.7106086810653, 1.8)
    pt3dadd(-2.43767285178823, -198.072156104162, -16.5015491413358, 1.8)
    pt3dadd(-2.68868759236805, -199.017294035291, -16.2924896016063, 1.8)
    pt3dadd(-2.74465966426028, -200.010254052374, -16.295889794982, 1.8)
    pt3dadd(-2.7757892764682, -201.00930513789, -16.3263508483721, 1.8)
    pt3dadd(-2.80691888867612, -202.008356223406, -16.3568119017622, 1.8)
    pt3dadd(-2.93958312883655, -202.997603275861, -16.383233390213, 1.8)
    pt3dadd(-3.10237512740958, -203.983941236655, -16.4084562428974, 1.8)
    pt3dadd(-3.26516712598262, -204.970279197449, -16.4336790955818, 1.8)
    pt3dadd(-3.42795912455566, -205.956617158243, -16.4589019482662, 1.8)
    pt3dadd(-3.59075112312869, -206.942955119036, -16.4841248009506, 1.8)
    pt3dadd(-3.75354312170173, -207.92929307983, -16.509347653635, 1.8)
    pt3dadd(-3.91633512027477, -208.915631040624, -16.5345705063194, 1.8)
    pt3dadd(-4.0791271188478, -209.901969001418, -16.5597933590038, 1.8)
    pt3dadd(-4.43319683063779, -210.814026925416, -16.4468125177211, 1.8)
    pt3dadd(-4.88108602544956, -211.689651359417, -16.2660443796246, 1.8)
    pt3dadd(-5.32897522026134, -212.565275793418, -16.0852762415282, 1.8)
    pt3dadd(-5.7768644150731, -213.44090022742, -15.9045081034317, 1.8)
    pt3dadd(-6.22475360988488, -214.316524661421, -15.7237399653352, 1.8)
    pt3dadd(-6.67264280469664, -215.192149095422, -15.5429718272388, 1.8)
    pt3dadd(-7.12053199950841, -216.067773529423, -15.3622036891423, 1.8)
    pt3dadd(-7.56842119432019, -216.943397963425, -15.1814355510459, 1.8)
    pt3dadd(-7.71785366127677, -217.907902476251, -15.1509680214361, 1.8)
    pt3dadd(-7.75128281719692, -218.906952645002, -15.1789189043064, 1.8)
    pt3dadd(-7.78471197311706, -219.906002813753, -15.2068697871766, 1.8)
    pt3dadd(-7.81814112903721, -220.905052982504, -15.2348206700468, 1.8)
    pt3dadd(-7.85157028495735, -221.904103151255, -15.262771552917, 1.8)
    pt3dadd(-7.88499944087749, -222.903153320006, -15.2907224357872, 1.8)
    pt3dadd(-7.91842859679764, -223.902203488756, -15.3186733186575, 1.8)
    pt3dadd(-7.95185775271779, -224.901253657507, -15.3466242015277, 1.8)
    pt3dadd(-7.98528690863793, -225.900303826258, -15.3745750843979, 1.8)
    pt3dadd(-8.01871606455806, -226.899353995009, -15.4025259672681, 1.8)
    pt3dadd(-8.15535410010077, -227.851903415263, -15.2029736185629, 1.8)
    pt3dadd(-8.34658941184942, -228.779854039185, -14.8830725477565, 1.8)
    pt3dadd(-8.53782472359808, -229.707804663107, -14.5631714769501, 1.8)
    pt3dadd(-8.72906003534674, -230.635755287029, -14.2432704061437, 1.8)
    pt3dadd(-8.92029534709541, -231.563705910951, -13.9233693353373, 1.8)
    pt3dadd(-9.11153065884406, -232.491656534873, -13.6034682645309, 1.8)
    pt3dadd(-9.30276597059271, -233.419607158795, -13.2835671937245, 1.8)
  }
  adendOML[0] {pt3dclear()
    pt3dadd(-9.30276597059271, -233.419607158795, -13.2835671937245, 1.8)
    pt3dadd(-9.49400128234137, -234.347557782718, -12.9636661229181, 1.8)
    pt3dadd(-9.7407621503606, -235.30921288932, -13.0166798786606, 1.8)
    pt3dadd(-9.99198649575891, -236.273577364476, -13.0996707657354, 1.8)
  }
  adendOML[1] {pt3dclear()
    pt3dadd(-9.99198649575891, -236.273577364476, -13.0996707657354, 1.8)
    pt3dadd(-9.92865285447242, -237.219096757562, -13.1622120814867, 1.8)
    pt3dadd(-9.55596454698833, -238.146082798073, -13.2046420963699, 1.8)
    pt3dadd(-9.18327623950423, -239.073068838584, -13.2470721112532, 1.8)
    pt3dadd(-8.81058793202012, -240.000054879094, -13.2895021261364, 1.8)
    pt3dadd(-8.43789962453601, -240.927040919605, -13.3319321410197, 1.8)
    pt3dadd(-8.25276784312579, -241.866253485437, -13.1916558371053, 1.8)
    pt3dadd(-8.24214442733177, -242.816841986811, -12.8813839497336, 1.8)
    pt3dadd(-8.23152101153778, -243.767430488184, -12.571112062362, 1.8)
    pt3dadd(-8.22089759574378, -244.718018989558, -12.2608401749904, 1.8)
    pt3dadd(-8.21027417994978, -245.668607490932, -11.9505682876188, 1.8)
    pt3dadd(-8.19965076415578, -246.619195992305, -11.6402964002471, 1.8)
    pt3dadd(-8.20730746515957, -247.577184880737, -11.3997290866138, 1.8)
    pt3dadd(-8.29970346874373, -248.569479000643, -11.4822842688916, 1.8)
    pt3dadd(-8.3920994723279, -249.56177312055, -11.5648394511694, 1.8)
    pt3dadd(-8.48449547591207, -250.554067240456, -11.6473946334472, 1.8)
    pt3dadd(-8.57689147949626, -251.546361360362, -11.729949815725, 1.8)
    pt3dadd(-8.66928748308044, -252.538655480269, -11.8125049980028, 1.8)
    pt3dadd(-8.76168348666461, -253.530949600175, -11.8950601802806, 1.8)
    pt3dadd(-8.85068434351081, -254.523393831612, -11.9759111620328, 1.8)
    pt3dadd(-8.79959024348017, -255.522032160085, -11.9864412069948, 1.8)
    pt3dadd(-8.74849614344951, -256.520670488557, -11.9969712519569, 1.8)
    pt3dadd(-8.69740204341885, -257.51930881703, -12.007501296919, 1.8)
    pt3dadd(-8.64630794338821, -258.517947145503, -12.0180313418811, 1.8)
    pt3dadd(-8.59521384335758, -259.516585473976, -12.0285613868431, 1.8)
    pt3dadd(-8.54411974332692, -260.515223802449, -12.0390914318052, 1.8)
    pt3dadd(-8.49302564329629, -261.513862130922, -12.0496214767673, 1.8)
    pt3dadd(-8.44193154326562, -262.512500459395, -12.0601515217293, 1.8)
    pt3dadd(-8.55195059429788, -263.488409332368, -11.8991361099205, 1.8)
    pt3dadd(-8.68955598835873, -264.460426390477, -11.7087481001315, 1.8)
    pt3dadd(-8.82716138241958, -265.432443448586, -11.5183600903425, 1.8)
    pt3dadd(-8.96476677648046, -266.404460506694, -11.3279720805535, 1.8)
    pt3dadd(-9.10237217054131, -267.376477564802, -11.1375840707645, 1.8)
    pt3dadd(-9.23997756460219, -268.348494622911, -10.9471960609755, 1.8)
    pt3dadd(-9.37758295866305, -269.32051168102, -10.7568080511865, 1.8)
    pt3dadd(-9.4648104053019, -270.294101995706, -10.6026938970501, 1.8)
    pt3dadd(-9.28079919809862, -271.276162842004, -10.6438809070209, 1.8)
    pt3dadd(-9.09678799089537, -272.258223688303, -10.6850679169918, 1.8)
    pt3dadd(-8.91277678369207, -273.240284534602, -10.7262549269626, 1.8)
    pt3dadd(-8.7287655764888, -274.222345380901, -10.7674419369335, 1.8)
    pt3dadd(-8.5447543692855, -275.2044062272, -10.8086289469043, 1.8)
    pt3dadd(-8.36737755938281, -276.187976738707, -10.8223215833731, 1.8)
    pt3dadd(-8.19776641051169, -277.173314335864, -10.8038316454163, 1.8)
    pt3dadd(-8.02815526164058, -278.158651933022, -10.7853417074595, 1.8)
    pt3dadd(-7.85854411276948, -279.14398953018, -10.7668517695028, 1.8)
    pt3dadd(-7.68893296389837, -280.129327127338, -10.748361831546, 1.8)
    pt3dadd(-7.51932181502726, -281.114664724496, -10.7298718935893, 1.8)
    pt3dadd(-7.34971066615616, -282.100002321654, -10.7113819556325, 1.8)
    pt3dadd(-7.18009951728503, -283.085339918812, -10.6928920176758, 1.8)
    pt3dadd(-7.01048836841392, -284.07067751597, -10.674402079719, 1.8)
    pt3dadd(-6.84087721954282, -285.056015113128, -10.6559121417622, 1.8)
    pt3dadd(-6.808366830616, -286.049989804511, -10.7446213892186, 1.8)
    pt3dadd(-6.7898002739831, -287.04484293153, -10.8442333294393, 1.8)
    pt3dadd(-6.77123371735018, -288.039696058549, -10.94384526966, 1.8)
    pt3dadd(-6.75266716071725, -289.034549185569, -11.0434572098807, 1.8)
  }
  adendOML[2] {pt3dclear()
    pt3dadd(-9.99198649575891, -236.273577364476, -13.0996707657354, 1.8)
    pt3dadd(-10.1454791792106, -237.205817458089, -13.3579895988926, 1.8)
    pt3dadd(-10.2028568475038, -238.106464561698, -13.7887361577201, 1.8)
    pt3dadd(-10.2602345157969, -239.007111665307, -14.2194827165476, 1.8)
    pt3dadd(-10.3176121840901, -239.907758768916, -14.6502292753751, 1.8)
    pt3dadd(-10.3749898523833, -240.808405872525, -15.0809758342025, 1.8)
    pt3dadd(-10.4323675206765, -241.709052976134, -15.51172239303, 1.8)
    pt3dadd(-10.4897451889697, -242.609700079743, -15.9424689518575, 1.8)
    pt3dadd(-10.5471228572629, -243.510347183353, -16.373215510685, 1.8)
    pt3dadd(-10.6045005255561, -244.410994286962, -16.8039620695124, 1.8)
    pt3dadd(-10.6443991690417, -245.33182169723, -17.1500351578186, 1.8)
    pt3dadd(-10.6161801716309, -246.331293934506, -17.1661266183189, 1.8)
    pt3dadd(-10.5879611742201, -247.330766171781, -17.1822180788193, 1.8)
    pt3dadd(-10.5597421768093, -248.330238409056, -17.1983095393196, 1.8)
    pt3dadd(-10.5315231793985, -249.329710646332, -17.2144009998199, 1.8)
    pt3dadd(-10.5033041819877, -250.329182883607, -17.2304924603203, 1.8)
    pt3dadd(-10.4750851845769, -251.328655120882, -17.2465839208206, 1.8)
    pt3dadd(-10.4468661871661, -252.328127358158, -17.262675381321, 1.8)
    pt3dadd(-10.4186471897553, -253.327599595433, -17.2787668418213, 1.8)
    pt3dadd(-10.3904281923445, -254.327071832708, -17.2948583023217, 1.8)
  }
}
proc shape3d_8() {
  adendOML[2] {
    pt3dadd(-10.5473139249484, -255.011369471116, -17.9199665132063, 1.8)
    pt3dadd(-10.7468941972986, -255.62297186053, -18.6855448776809, 1.8)
    pt3dadd(-10.9464744696489, -256.234574249944, -19.4511232421556, 1.8)
    pt3dadd(-11.1460547419991, -256.846176639358, -20.2167016066302, 1.8)
    pt3dadd(-11.0994218509463, -257.611881010002, -20.5986806232076, 1.8)
    pt3dadd(-10.7703139212665, -258.554383251639, -20.5405644023212, 1.8)
    pt3dadd(-10.4412059915868, -259.496885493277, -20.4824481814349, 1.8)
    pt3dadd(-10.1120980619071, -260.439387734914, -20.4243319605485, 1.8)
    pt3dadd(-9.78299013222733, -261.381889976552, -20.3662157396622, 1.8)
    pt3dadd(-9.45388220254758, -262.324392218189, -20.3080995187759, 1.8)
    pt3dadd(-9.12477427286783, -263.266894459827, -20.2499832978895, 1.8)
    pt3dadd(-8.7956663431881, -264.209396701464, -20.1918670770032, 1.8)
    pt3dadd(-8.46655841350836, -265.151898943102, -20.1337508561168, 1.8)
    pt3dadd(-8.40708003603392, -266.145731304897, -20.1421392679997, 1.8)
    pt3dadd(-8.37697640453383, -267.145155817954, -20.1577730158545, 1.8)
    pt3dadd(-8.34687277303372, -268.144580331011, -20.1734067637094, 1.8)
    pt3dadd(-8.31348810491588, -269.14387095126, -20.1882424953267, 1.8)
    pt3dadd(-8.25607843731797, -270.142181157386, -20.1972348481812, 1.8)
    pt3dadd(-8.19866876972004, -271.140491363513, -20.2062272010358, 1.8)
    pt3dadd(-8.14125910212211, -272.138801569639, -20.2152195538903, 1.8)
    pt3dadd(-8.08384943452418, -273.137111775766, -20.2242119067448, 1.8)
    pt3dadd(-8.41011373562006, -273.907253917803, -20.7418351407357, 1.8)
    pt3dadd(-8.76360454595994, -274.661204656688, -21.295552153604, 1.8)
    pt3dadd(-9.11709535629986, -275.415155395573, -21.8492691664723, 1.8)
    pt3dadd(-9.47058616663976, -276.169106134459, -22.4029861793406, 1.8)
  }
  adendIML[4] {pt3dclear()
    pt3dadd(18.3213452574533, -87.7285521235567, -28.6808776854184, 1.8)
    pt3dadd(18.7507377304149, -88.6197874084282, -28.7491023985404, 1.8)
    pt3dadd(19.2157808983278, -89.5037889760992, -28.7968106822311, 1.8)
    pt3dadd(19.6808240662408, -90.3877905437702, -28.8445189659218, 1.8)
    pt3dadd(20.1458672341537, -91.2717921114412, -28.8922272496124, 1.8)
    pt3dadd(20.6109104020666, -92.1557936791122, -28.9399355333031, 1.8)
    pt3dadd(21.2137783870385, -92.836893966611, -29.2459009339427, 1.8)
    pt3dadd(21.9025146495933, -93.3915817268196, -29.7127669204065, 1.8)
    pt3dadd(22.5912509121481, -93.9462694870282, -30.1796329068703, 1.8)
    pt3dadd(23.2799871747029, -94.5009572472368, -30.6464988933341, 1.8)
    pt3dadd(23.9687234372577, -95.0556450074453, -31.113364879798, 1.8)
    pt3dadd(24.6574596998125, -95.6103327676539, -31.5802308662618, 1.8)
    pt3dadd(25.3461959623673, -96.1650205278625, -32.0470968527256, 1.8)
    pt3dadd(26.1577978521731, -96.6856821402087, -32.3086996812228, 1.8)
    pt3dadd(26.9731408800535, -97.2053076896611, -32.5640524474951, 1.8)
    pt3dadd(27.788483907934, -97.7249332391136, -32.8194052137674, 1.8)
    pt3dadd(28.6038269358145, -98.2445587885661, -33.0747579800397, 1.8)
    pt3dadd(29.3145499527669, -98.6480969114359, -33.5534605716879, 1.8)
    pt3dadd(29.8804323851518, -98.8909184507573, -34.3413785704414, 1.8)
    pt3dadd(30.4463148175368, -99.1337399900786, -35.1292965691949, 1.8)
    pt3dadd(31.0121972499218, -99.3765615294, -35.9172145679483, 1.8)
    pt3dadd(31.5780796823067, -99.6193830687214, -36.7051325667018, 1.8)
    pt3dadd(32.2592662448928, -99.9988745213791, -37.1161895985596, 1.8)
    pt3dadd(33.0882315622945, -100.553528039596, -37.0442453335055, 1.8)
    pt3dadd(33.9171968796962, -101.108181557814, -36.9723010684514, 1.8)
    pt3dadd(34.7461621970979, -101.662835076031, -36.9003568033973, 1.8)
    pt3dadd(35.2919017019235, -102.412182404113, -37.2682873754599, 1.8)
    pt3dadd(35.8328475836735, -103.164824942936, -37.6436628698281, 1.8)
    pt3dadd(36.3954047674531, -103.906684807115, -37.9696898364512, 1.8)
    pt3dadd(37.1504049784854, -104.552527756279, -37.8562809904271, 1.8)
    pt3dadd(37.9054051895176, -105.198370705443, -37.7428721444029, 1.8)
    pt3dadd(38.6604054005499, -105.844213654606, -37.6294632983787, 1.8)
    pt3dadd(39.4154056115822, -106.49005660377, -37.5160544523546, 1.8)
    pt3dadd(40.1126383643087, -107.062921088008, -37.7883678486402, 1.8)
    pt3dadd(40.7689470196739, -107.584085568618, -38.333937764456, 1.8)
    pt3dadd(41.425255675039, -108.105250049228, -38.8795076802718, 1.8)
    pt3dadd(42.0815643304041, -108.626414529838, -39.4250775960876, 1.8)
    pt3dadd(42.7378729857693, -109.147579010448, -39.9706475119035, 1.8)
    pt3dadd(43.3941816411344, -109.668743491058, -40.5162174277193, 1.8)
    pt3dadd(44.064523783893, -110.338689806499, -40.8069927387751, 1.8)
    pt3dadd(44.7376424531478, -111.038072618728, -41.0473569188419, 1.8)
    pt3dadd(45.4107611224027, -111.737455430957, -41.2877210989087, 1.8)
    pt3dadd(46.0838797916575, -112.436838243186, -41.5280852789755, 1.8)
    pt3dadd(46.7569984609124, -113.136221055415, -41.7684494590422, 1.8)
    pt3dadd(47.4301171301672, -113.835603867644, -42.008813639109, 1.8)
    pt3dadd(48.1028159569783, -114.502975656174, -42.3248148761258, 1.8)
    pt3dadd(48.7753757208817, -115.159744548068, -42.6658691043919, 1.8)
    pt3dadd(49.447935484785, -115.816513439962, -43.0069233326581, 1.8)
    pt3dadd(50.1204952486884, -116.473282331857, -43.3479775609243, 1.8)
  }
  adendMML[1] {pt3dclear()
    pt3dadd(50.1204952486884, -116.473282331857, -43.3479775609243, 1.8)
    pt3dadd(50.7930550125918, -117.130051223751, -43.6890317891904, 1.8)
    pt3dadd(51.4656147764951, -117.786820115645, -44.0300860174566, 1.8)
    pt3dadd(52.1381745403985, -118.443589007539, -44.3711402457227, 1.8)
    pt3dadd(52.7674450148733, -119.202240268323, -44.4851552937725, 1.8)
    pt3dadd(53.3862206749961, -119.985591323474, -44.5441282268224, 1.8)
    pt3dadd(54.0049963351189, -120.768942378626, -44.6031011598723, 1.8)
    pt3dadd(54.6237719952417, -121.552293433778, -44.6620740929223, 1.8)
    pt3dadd(55.2425476553645, -122.335644488929, -44.7210470259722, 1.8)
    pt3dadd(55.8613233154873, -123.118995544081, -44.7800199590221, 1.8)
    pt3dadd(56.4770302245028, -123.87477294826, -45.0019060173389, 1.8)
    pt3dadd(57.0926840863111, -124.63007370734, -45.2266082331128, 1.8)
    pt3dadd(57.7083379481194, -125.38537446642, -45.4513104488867, 1.8)
    pt3dadd(58.3239918099276, -126.1406752255, -45.6760126646606, 1.8)
    pt3dadd(58.9396456717359, -126.89597598458, -45.9007148804345, 1.8)
    pt3dadd(59.5112599684596, -127.663531539676, -46.1795441451018, 1.8)
    pt3dadd(60.0269864142002, -128.446638888081, -46.5270626540178, 1.8)
    pt3dadd(60.5427128599408, -129.229746236485, -46.8745811629339, 1.8)
    pt3dadd(61.0584393056814, -130.012853584889, -47.2220996718499, 1.8)
    pt3dadd(61.5741657514219, -130.795960933293, -47.569618180766, 1.8)
    pt3dadd(62.0898921971625, -131.579068281697, -47.917136689682, 1.8)
    pt3dadd(62.6056186429031, -132.362175630101, -48.2646551985981, 1.8)
    pt3dadd(63.0958022634479, -133.135379476591, -48.6657468269291, 1.8)
    pt3dadd(63.5789215907967, -133.905844344889, -49.0816549925875, 1.8)
    pt3dadd(64.0620409181457, -134.676309213186, -49.497563158246, 1.8)
    pt3dadd(64.5451602454946, -135.446774081483, -49.9134713239044, 1.8)
    pt3dadd(65.0282795728435, -136.217238949781, -50.3293794895628, 1.8)
    pt3dadd(65.5113989001924, -136.987703818078, -50.7452876552212, 1.8)
    pt3dadd(65.9945182275413, -137.758168686376, -51.1611958208796, 1.8)
    pt3dadd(66.3952345076602, -138.668112392467, -51.138285618385, 1.8)
    pt3dadd(66.7918442952643, -139.585006919221, -51.0935072398369, 1.8)
    pt3dadd(67.1884540828685, -140.501901445975, -51.0487288612889, 1.8)
    pt3dadd(67.5850638704726, -141.418795972728, -51.0039504827409, 1.8)
    pt3dadd(67.9816736580768, -142.335690499482, -50.9591721041929, 1.8)
    pt3dadd(68.2962395624106, -143.273586495863, -51.0212115343525, 1.8)
    pt3dadd(68.5333171645089, -144.231317831101, -51.1841375914652, 1.8)
    pt3dadd(68.7703947666072, -145.189049166339, -51.3470636485779, 1.8)
    pt3dadd(69.0074723687056, -146.146780501577, -51.5099897056906, 1.8)
    pt3dadd(69.2445499708038, -147.104511836816, -51.6729157628033, 1.8)
    pt3dadd(69.4816275729022, -148.062243172054, -51.835841819916, 1.8)
    pt3dadd(69.7187051750005, -149.019974507292, -51.9987678770287, 1.8)
    pt3dadd(69.9734300046165, -149.977665036131, -52.0939916582482, 1.8)
    pt3dadd(70.2601559787146, -150.935281567429, -52.0664454286854, 1.8)
    pt3dadd(70.5468819528128, -151.892898098726, -52.0388991991226, 1.8)
    pt3dadd(70.833607926911, -152.850514630024, -52.0113529695597, 1.8)
    pt3dadd(71.1203339010091, -153.808131161322, -51.9838067399969, 1.8)
    pt3dadd(71.4070598751073, -154.765747692619, -51.9562605104341, 1.8)
    pt3dadd(71.6937858492055, -155.723364223917, -51.9287142808713, 1.8)
    pt3dadd(71.9805118233037, -156.680980755214, -51.9011680513085, 1.8)
    pt3dadd(72.2672377974018, -157.638597286512, -51.8736218217457, 1.8)
    pt3dadd(72.5590638972977, -158.594485360959, -51.8496599524545, 1.8)
    pt3dadd(72.9168675696024, -159.528013322832, -51.8720670157617, 1.8)
    pt3dadd(73.274671241907, -160.461541284706, -51.8944740790689, 1.8)
    pt3dadd(73.6324749142116, -161.395069246579, -51.9168811423761, 1.8)
    pt3dadd(73.9902785865163, -162.328597208452, -51.9392882056833, 1.8)
    pt3dadd(74.3480822588209, -163.262125170326, -51.9616952689905, 1.8)
    pt3dadd(74.7058859311255, -164.195653132199, -51.9841023322978, 1.8)
    pt3dadd(75.049246743525, -165.134734782711, -51.9925099420791, 1.8)
    pt3dadd(75.3873561990197, -166.075835728665, -51.9958274154595, 1.8)
    pt3dadd(75.7254656545144, -167.016936674618, -51.9991448888399, 1.8)
    pt3dadd(76.0635751100091, -167.958037620572, -52.0024623622203, 1.8)
    pt3dadd(76.4016845655038, -168.899138566526, -52.0057798356007, 1.8)
    pt3dadd(76.7397940209985, -169.84023951248, -52.0090973089811, 1.8)
    pt3dadd(77.0779034764932, -170.781340458434, -52.0124147823615, 1.8)
    pt3dadd(77.4160129319879, -171.722441404388, -52.0157322557419, 1.8)
    pt3dadd(77.7541223874826, -172.663542350342, -52.0190497291223, 1.8)
    pt3dadd(78.0922318429773, -173.604643296296, -52.0223672025027, 1.8)
    pt3dadd(78.430341298472, -174.54574424225, -52.0256846758832, 1.8)
    pt3dadd(78.6937448096395, -175.510060937534, -52.0307703760026, 1.8)
    pt3dadd(78.9487781722749, -176.476978754749, -52.0360541904833, 1.8)
    pt3dadd(79.2038115349104, -177.443896571963, -52.0413380049641, 1.8)
    pt3dadd(79.4588448975458, -178.410814389178, -52.0466218194448, 1.8)
    pt3dadd(79.7138782601812, -179.377732206393, -52.0519056339255, 1.8)
    pt3dadd(79.9689116228167, -180.344650023608, -52.0571894484063, 1.8)
    pt3dadd(80.2853516456085, -181.283378129815, -52.0965673705823, 1.8)
    pt3dadd(80.7851657423263, -182.137925429951, -52.2377579529657, 1.8)
    pt3dadd(81.2849798390442, -182.992472730086, -52.3789485353492, 1.8)
    pt3dadd(81.784793935762, -183.847020030221, -52.5201391177326, 1.8)
    pt3dadd(82.2846080324799, -184.701567330356, -52.661329700116, 1.8)
    pt3dadd(82.7844221291977, -185.556114630491, -52.8025202824994, 1.8)
    pt3dadd(83.2842362259156, -186.410661930627, -52.9437108648829, 1.8)
    pt3dadd(83.7840503226334, -187.265209230762, -53.0849014472663, 1.8)
    pt3dadd(84.2838644193513, -188.119756530897, -53.2260920296497, 1.8)
    pt3dadd(84.7836785160691, -188.974303831032, -53.3672826120331, 1.8)
    pt3dadd(85.1334341393418, -189.88788279629, -53.2201178560711, 1.8)
    pt3dadd(85.4537873748735, -190.813028398653, -53.0164528887542, 1.8)
    pt3dadd(85.7741406104051, -191.738174001017, -52.8127879214373, 1.8)
    pt3dadd(86.0944938459367, -192.66331960338, -52.6091229541203, 1.8)
    pt3dadd(86.4148470814683, -193.588465205743, -52.4054579868034, 1.8)
    pt3dadd(86.7352003169999, -194.513610808107, -52.2017930194865, 1.8)
    pt3dadd(87.0555535525315, -195.43875641047, -51.9981280521695, 1.8)
    pt3dadd(87.3759067880631, -196.363902012833, -51.7944630848526, 1.8)
    pt3dadd(87.6952095420747, -197.291472703596, -51.6489831851748, 1.8)
    pt3dadd(88.0094049498242, -198.230833955099, -51.7863938285871, 1.8)
    pt3dadd(88.3236003575737, -199.170195206603, -51.9238044719995, 1.8)
    pt3dadd(88.6377957653232, -200.109556458106, -52.0612151154118, 1.8)
    pt3dadd(88.9519911730727, -201.048917709609, -52.1986257588241, 1.8)
    pt3dadd(89.2661865808222, -201.988278961113, -52.3360364022365, 1.8)
    pt3dadd(89.5803819885717, -202.927640212616, -52.4734470456488, 1.8)
    pt3dadd(89.8945773963213, -203.86700146412, -52.6108576890611, 1.8)
    pt3dadd(90.2087728040708, -204.806362715623, -52.7482683324734, 1.8)
    pt3dadd(90.5229682118203, -205.745723967127, -52.8856789758858, 1.8)
    pt3dadd(90.8371636195698, -206.68508521863, -53.0230896192981, 1.8)
    pt3dadd(91.1513590273193, -207.624446470134, -53.1605002627105, 1.8)
    pt3dadd(91.465308832, -208.564444100942, -53.2425927003242, 1.8)
    pt3dadd(91.778367824605, -209.506749904739, -53.1240438104961, 1.8)
    pt3dadd(92.09142681721, -210.449055708536, -53.005494920668, 1.8)
    pt3dadd(92.4044858098149, -211.391361512333, -52.88694603084, 1.8)
    pt3dadd(92.7175448024199, -212.33366731613, -52.7683971410119, 1.8)
    pt3dadd(93.0306037950248, -213.275973119927, -52.6498482511839, 1.8)
    pt3dadd(93.3436627876298, -214.218278923724, -52.5312993613558, 1.8)
    pt3dadd(93.6567217802347, -215.160584727521, -52.4127504715277, 1.8)
    pt3dadd(93.9697807728397, -216.102890531318, -52.2942015816996, 1.8)
    pt3dadd(94.2632895446231, -217.053808351271, -52.2072828431895, 1.8)
    pt3dadd(94.5292474969373, -218.016862509966, -52.1649383627758, 1.8)
    pt3dadd(94.7952054492516, -218.979916668661, -52.1225938823622, 1.8)
    pt3dadd(95.0611634015658, -219.942970827356, -52.0802494019485, 1.8)
    pt3dadd(95.32712135388, -220.90602498605, -52.0379049215348, 1.8)
    pt3dadd(95.5822802457811, -221.872008198521, -51.998244081434, 1.8)
    pt3dadd(95.8213392883086, -222.842358209841, -51.962584163928, 1.8)
    pt3dadd(96.0603983308362, -223.812708221161, -51.926924246422, 1.8)
    pt3dadd(96.2994573733637, -224.783058232481, -51.891264328916, 1.8)
    pt3dadd(96.5018180588187, -225.760555644066, -51.8646598239341, 1.8)
    pt3dadd(96.6337218271471, -226.751775299047, -51.855440741643, 1.8)
    pt3dadd(96.7656255954754, -227.742994954029, -51.846221659352, 1.8)
    pt3dadd(96.9844883433313, -228.710570979676, -51.8153913562114, 1.8)
    pt3dadd(97.3546822560643, -229.637000961651, -51.7469519269825, 1.8)
    pt3dadd(97.7248761687974, -230.563430943626, -51.6785124977535, 1.8)
    pt3dadd(98.0950700815304, -231.489860925601, -51.6100730685245, 1.8)
    pt3dadd(98.4652639942635, -232.416290907576, -51.5416336392955, 1.8)
    pt3dadd(98.8354579069965, -233.342720889551, -51.4731942100666, 1.8)
  }
  adendOML[3] {pt3dclear()
    pt3dadd(98.8354579069965, -233.342720889551, -51.4731942100666, 1.8)
    pt3dadd(99.2056518197296, -234.269150871526, -51.4047547808376, 1.8)
    pt3dadd(99.5358270322403, -235.209062224745, -51.3392288030876, 1.8)
    pt3dadd(99.7932492593032, -236.173482370117, -51.2789994064829, 1.8)
    pt3dadd(100.050671486366, -237.137902515488, -51.2187700098782, 1.8)
    pt3dadd(100.308093713429, -238.10232266086, -51.1585406132735, 1.8)
    pt3dadd(100.565515940492, -239.066742806232, -51.0983112166687, 1.8)
    pt3dadd(100.822938167555, -240.031162951603, -51.038081820064, 1.8)
    pt3dadd(101.080360394618, -240.995583096975, -50.9778524234593, 1.8)
    pt3dadd(101.337782621681, -241.960003242346, -50.9176230268546, 1.8)
    pt3dadd(101.595204848744, -242.924423387718, -50.8573936302499, 1.8)
    pt3dadd(101.863271766641, -243.885161539823, -50.7961975498505, 1.8)
    pt3dadd(102.246061435152, -244.806217149539, -50.72458307162, 1.8)
    pt3dadd(102.628851103664, -245.727272759255, -50.6529685933895, 1.8)
    pt3dadd(103.011640772175, -246.64832836897, -50.5813541151589, 1.8)
    pt3dadd(103.394430440686, -247.569383978686, -50.5097396369284, 1.8)
    pt3dadd(103.777220109198, -248.490439588402, -50.4381251586979, 1.8)
    pt3dadd(104.160009777709, -249.411495198117, -50.3665106804674, 1.8)
    pt3dadd(104.54279944622, -250.332550807833, -50.2948962022369, 1.8)
    pt3dadd(104.925589114732, -251.253606417549, -50.2232817240064, 1.8)
    pt3dadd(105.244594115218, -252.193021295888, -50.1675424613609, 1.8)
    pt3dadd(105.390652027607, -253.182215880644, -50.1548475915667, 1.8)
    pt3dadd(105.536709939996, -254.171410465399, -50.1421527217725, 1.8)
    pt3dadd(105.682767852385, -255.160605050155, -50.1294578519783, 1.8)
    pt3dadd(105.88205487911, -256.106029676829, -49.919547860375, 1.8)
    pt3dadd(106.108655658459, -257.028994380539, -49.6084397722398, 1.8)
    pt3dadd(106.335256437809, -257.95195908425, -49.2973316841046, 1.8)
    pt3dadd(106.561857217158, -258.87492378796, -48.9862235959694, 1.8)
    pt3dadd(106.788457996507, -259.79788849167, -48.6751155078342, 1.8)
    pt3dadd(107.015058775856, -260.720853195381, -48.364007419699, 1.8)
    pt3dadd(107.053895605924, -261.640603502387, -48.094851811763, 1.8)
    pt3dadd(106.686498274459, -262.553399344731, -47.91646192687, 1.8)
    pt3dadd(106.319100942994, -263.466195187075, -47.738072041977, 1.8)
    pt3dadd(105.95170361153, -264.378991029419, -47.559682157084, 1.8)
    pt3dadd(105.584306280065, -265.291786871763, -47.381292272191, 1.8)
    pt3dadd(105.2169089486, -266.204582714107, -47.202902387298, 1.8)
    pt3dadd(104.849511617136, -267.117378556451, -47.0245125024051, 1.8)
    pt3dadd(104.482114285671, -268.030174398795, -46.8461226175121, 1.8)
    pt3dadd(104.114716954206, -268.942970241139, -46.6677327326191, 1.8)
    pt3dadd(103.747319622742, -269.855766083483, -46.4893428477261, 1.8)
    pt3dadd(103.379922291277, -270.768561925827, -46.3109529628331, 1.8)
  }
  adendIML[5] {pt3dclear()
    pt3dadd(16.6905452894598, -83.0814888013997, -28.5718446634229, 2.14172245293936)
    pt3dadd(16.2721824732261, -83.6343402035328, -29.4283726261923, 2.14172245293936)
    pt3dadd(15.9593597436897, -84.2299315614345, -30.1682461790905, 2.05733448058794)
  }
}
proc shape3d_9() {
  adendIML[5] {
    pt3dadd(15.6465370141533, -84.8255229193362, -30.9081197319887, 1.97294650823653)
    pt3dadd(15.3337142846169, -85.4211142772378, -31.6479932848869, 1.88855853588511)
    pt3dadd(15.0208915550805, -86.0167056351395, -32.3878668377852, 1.80417056353369)
    pt3dadd(15.062136164502, -86.9949924618003, -32.4324609019401, 1.8)
    pt3dadd(15.1217890016897, -87.9931759142688, -32.440906861535, 1.8)
    pt3dadd(15.1814418388774, -88.9913593667373, -32.44935282113, 1.8)
    pt3dadd(15.2410946760651, -89.9895428192058, -32.4577987807249, 1.8)
    pt3dadd(14.9327549651366, -90.7273795670478, -32.9382917205573, 1.8)
    pt3dadd(14.5124264912989, -91.3859867067691, -33.5624396273786, 1.8)
    pt3dadd(14.0920980174612, -92.0445938464904, -34.1865875341999, 1.8)
    pt3dadd(13.6717695436236, -92.7032009862117, -34.8107354410213, 1.8)
    pt3dadd(13.2514410697859, -93.361808125933, -35.4348833478426, 1.8)
    pt3dadd(12.8311125959482, -94.0204152656542, -36.0590312546639, 1.8)
    pt3dadd(12.6340259954523, -94.8861874808935, -36.516836433596, 1.8)
    pt3dadd(12.4406650819166, -95.7554170771739, -36.9718655162566, 1.8)
    pt3dadd(12.2473041683809, -96.6246466734542, -37.4268945989173, 1.8)
    pt3dadd(12.0539432548452, -97.4938762697345, -37.8819236815779, 1.8)
    pt3dadd(11.8605823413095, -98.3631058660148, -38.3369527642386, 1.8)
    pt3dadd(11.6672214277738, -99.2323354622951, -38.7919818468992, 1.8)
    pt3dadd(11.4738605142381, -100.101565058575, -39.2470109295598, 1.8)
    pt3dadd(11.3159885462839, -101.001739421775, -39.6508950111807, 1.8)
    pt3dadd(11.1701610506321, -101.912416023967, -40.0374211651898, 1.8)
    pt3dadd(11.0243335549802, -102.823092626158, -40.4239473191988, 1.8)
    pt3dadd(10.8785060593284, -103.733769228349, -40.8104734732078, 1.8)
    pt3dadd(10.7326785636765, -104.644445830541, -41.1969996272169, 1.8)
    pt3dadd(10.5868510680246, -105.555122432732, -41.5835257812259, 1.8)
    pt3dadd(10.4410235723728, -106.465799034924, -41.9700519352349, 1.8)
    pt3dadd(10.2951960767209, -107.376475637115, -42.356578089244, 1.8)
    pt3dadd(10.149368581069, -108.287152239306, -42.743104243253, 1.8)
    pt3dadd(9.76231983822147, -109.123839742261, -43.1054066434472, 1.8)
    pt3dadd(9.30437045719018, -109.938780096424, -43.4605891086248, 1.8)
    pt3dadd(8.84642107615888, -110.753720450587, -43.8157715738023, 1.8)
    pt3dadd(8.38847169512759, -111.568660804751, -44.1709540389799, 1.8)
    pt3dadd(7.93052231409631, -112.383601158914, -44.5261365041574, 1.8)
    pt3dadd(7.47257293306501, -113.198541513077, -44.881318969335, 1.8)
    pt3dadd(7.05097029740309, -114.025410325979, -45.237317854313, 1.8)
    pt3dadd(6.92241703676178, -114.948453565038, -45.5998992079515, 1.8)
    pt3dadd(6.79386377612047, -115.871496804097, -45.9624805615899, 1.8)
    pt3dadd(6.66531051547916, -116.794540043156, -46.3250619152283, 1.8)
  }
  adendMML[2] {pt3dclear()
    pt3dadd(6.66531051547916, -116.794540043156, -46.3250619152283, 1.8)
    pt3dadd(6.53675725483785, -117.717583282215, -46.6876432688667, 1.8)
    pt3dadd(6.40820399419654, -118.640626521273, -47.0502246225051, 1.8)
    pt3dadd(6.27965073355523, -119.563669760332, -47.4128059761435, 1.8)
    pt3dadd(6.15109747291392, -120.486712999391, -47.7753873297819, 1.8)
    pt3dadd(6.18461125495557, -121.402152616632, -48.1756805149, 1.8)
    pt3dadd(6.22170274113406, -122.317424380442, -48.5768062059567, 1.8)
    pt3dadd(6.25879422731256, -123.232696144252, -48.9779318970135, 1.8)
    pt3dadd(6.29588571349105, -124.147967908061, -49.3790575880702, 1.8)
    pt3dadd(6.33297719966955, -125.063239671871, -49.7801832791269, 1.8)
    pt3dadd(6.37006868584805, -125.978511435681, -50.1813089701837, 1.8)
    pt3dadd(6.40716017202655, -126.89378319949, -50.5824346612404, 1.8)
    pt3dadd(6.38989824898728, -127.805319901042, -50.9710286894488, 1.8)
    pt3dadd(6.06311030111181, -128.695586566548, -51.2882587343877, 1.8)
    pt3dadd(5.73632235323634, -129.585853232054, -51.6054887793267, 1.8)
    pt3dadd(5.40953440536086, -130.47611989756, -51.9227188242656, 1.8)
    pt3dadd(5.08274645748539, -131.366386563066, -52.2399488692046, 1.8)
    pt3dadd(4.7938763843157, -132.257651549859, -52.5775479764249, 1.8)
    pt3dadd(4.67330836811253, -133.153347679674, -53.005557084391, 1.8)
    pt3dadd(4.55274035190938, -134.04904380949, -53.4335661923571, 1.8)
    pt3dadd(4.43217233570621, -134.944739939306, -53.8615753003232, 1.8)
    pt3dadd(4.31160431950304, -135.840436069122, -54.2895844082893, 1.8)
    pt3dadd(4.19103630329989, -136.736132198937, -54.7175935162554, 1.8)
    pt3dadd(4.07046828709671, -137.631828328753, -55.1456026242215, 1.8)
    pt3dadd(3.94990027089355, -138.527524458569, -55.5736117321876, 1.8)
    pt3dadd(3.82933225469038, -139.423220588385, -56.0016208401537, 1.8)
    pt3dadd(3.50787626480899, -140.30683538811, -56.3395786323122, 1.8)
    pt3dadd(3.17949634520965, -141.190033785206, -56.6744326598686, 1.8)
    pt3dadd(2.85111642561031, -142.073232182302, -57.0092866874251, 1.8)
    pt3dadd(2.52273650601097, -142.956430579398, -57.3441407149816, 1.8)
    pt3dadd(2.19435658641164, -143.839628976494, -57.678994742538, 1.8)
    pt3dadd(1.86597666681231, -144.722827373591, -58.0138487700945, 1.8)
    pt3dadd(1.55204705833377, -145.633111427155, -58.2640384419758, 1.8)
    pt3dadd(1.25635520901228, -146.577580328032, -58.4073731046408, 1.8)
    pt3dadd(0.960663359690797, -147.522049228909, -58.5507077673058, 1.8)
    pt3dadd(0.664971510369311, -148.466518129786, -58.6940424299707, 1.8)
    pt3dadd(0.369279661047825, -149.410987030663, -58.8373770926357, 1.8)
    pt3dadd(0.0735878117263375, -150.355455931539, -58.9807117553007, 1.8)
    pt3dadd(0.144204669993689, -151.272703457634, -59.3419867145314, 1.8)
    pt3dadd(0.261308931331836, -152.186496381107, -59.7309199799993, 1.8)
    pt3dadd(0.378413192669979, -153.10028930458, -60.1198532454672, 1.8)
    pt3dadd(0.495517454008119, -154.014082228052, -60.508786510935, 1.8)
    pt3dadd(0.418003812399244, -154.990467115083, -60.6250540319181, 1.8)
  }
  adendMML[3] {pt3dclear()
    pt3dadd(0.418003812399244, -154.990467115083, -60.6250540319181, 1.8)
    pt3dadd(0.776302872554787, -155.803569113085, -60.7299053614104, 1.8)
    pt3dadd(1.4955099348735, -156.48326173388, -60.8739856957655, 1.8)
    pt3dadd(2.21471699719221, -157.162954354675, -61.0180660301206, 1.8)
    pt3dadd(2.93392405951094, -157.84264697547, -61.1621463644757, 1.8)
    pt3dadd(3.65313112182966, -158.522339596265, -61.3062266988308, 1.8)
    pt3dadd(4.41806200031083, -159.14126495541, -61.2640297714474, 1.8)
    pt3dadd(5.21691263296461, -159.715110731312, -61.0836449267723, 1.8)
    pt3dadd(6.01576326561838, -160.288956507213, -60.9032600820972, 1.8)
    pt3dadd(6.81461389827215, -160.862802283115, -60.7228752374222, 1.8)
    pt3dadd(7.61346453092592, -161.436648059017, -60.5424903927471, 1.8)
    pt3dadd(8.36715574045636, -162.046345199998, -60.6983071363221, 1.8)
    pt3dadd(9.10689810901821, -162.66711610932, -60.9579698142236, 1.8)
    pt3dadd(9.84664047758006, -163.287887018641, -61.217632492125, 1.8)
    pt3dadd(10.5863828461419, -163.908657927962, -61.4772951700265, 1.8)
    pt3dadd(11.3261252147038, -164.529428837284, -61.736957847928, 1.8)
    pt3dadd(12.0658675832656, -165.150199746605, -61.9966205258294, 1.8)
    pt3dadd(12.8056099518275, -165.770970655926, -62.2562832037309, 1.8)
    pt3dadd(13.4142119582426, -166.436519759442, -62.6364583006647, 1.8)
    pt3dadd(13.8590548232524, -167.157984818311, -63.1671210883932, 1.8)
    pt3dadd(14.3038976882621, -167.879449877181, -63.6977838761217, 1.8)
    pt3dadd(14.7487405532718, -168.600914936051, -64.2284466638502, 1.8)
    pt3dadd(15.2316354825932, -169.332224903783, -64.5967035538533, 1.8)
    pt3dadd(15.845890658552, -170.097520666492, -64.4043159908804, 1.8)
    pt3dadd(16.4601458345108, -170.862816429202, -64.2119284279076, 1.8)
    pt3dadd(17.0744010104696, -171.628112191911, -64.0195408649347, 1.8)
    pt3dadd(17.6886561864284, -172.393407954621, -63.8271533019618, 1.8)
    pt3dadd(18.1660547366852, -173.213951484424, -63.8055550094237, 1.8)
    pt3dadd(18.3793281321072, -174.141119921592, -64.1135698595913, 1.8)
    pt3dadd(18.5926015275291, -175.068288358761, -64.4215847097588, 1.8)
    pt3dadd(18.8058749229511, -175.995456795929, -64.7295995599264, 1.8)
    pt3dadd(19.019148318373, -176.922625233098, -65.0376144100939, 1.8)
    pt3dadd(19.2324217137949, -177.849793670266, -65.3456292602615, 1.8)
    pt3dadd(19.4456951092169, -178.776962107435, -65.653644110429, 1.8)
    pt3dadd(19.6589685046388, -179.704130544603, -65.9616589605966, 1.8)
    pt3dadd(19.8722419000608, -180.631298981772, -66.2696738107641, 1.8)
    pt3dadd(20.0855152954827, -181.55846741894, -66.5776886609317, 1.8)
    pt3dadd(20.2618630974599, -182.498357250592, -66.8445337997462, 1.8)
    pt3dadd(20.2742131895505, -183.49474663627, -66.9285318195647, 1.8)
    pt3dadd(20.2865632816411, -184.491136021948, -67.0125298393832, 1.8)
    pt3dadd(20.2989133737317, -185.487525407626, -67.0965278592017, 1.8)
    pt3dadd(20.3112634658223, -186.483914793304, -67.1805258790202, 1.8)
    pt3dadd(20.3236135579129, -187.480304178982, -67.2645238988388, 1.8)
    pt3dadd(20.3492972053153, -188.459290825245, -67.4195006751901, 1.8)
    pt3dadd(20.4158315679122, -189.3849597828, -67.79193880376, 1.8)
    pt3dadd(20.482365930509, -190.310628740355, -68.1643769323299, 1.8)
    pt3dadd(20.5489002931059, -191.23629769791, -68.5368150608999, 1.8)
    pt3dadd(20.6154346557028, -192.161966655465, -68.9092531894698, 1.8)
    pt3dadd(20.8293249599272, -193.10506675153, -68.9468545052533, 1.8)
    pt3dadd(21.1128643451438, -194.056405828423, -68.8261922584323, 1.8)
    pt3dadd(21.3964037303603, -195.007744905316, -68.7055300116112, 1.8)
    pt3dadd(21.6799431155769, -195.959083982208, -68.5848677647902, 1.8)
    pt3dadd(21.9634825007935, -196.910423059101, -68.4642055179691, 1.8)
    pt3dadd(22.3621363107118, -197.772352324585, -68.7561680975934, 1.8)
    pt3dadd(22.7685509469181, -198.628253726779, -69.0759491683276, 1.8)
    pt3dadd(23.1749655831245, -199.484155128973, -69.3957302390617, 1.8)
    pt3dadd(23.5813802193309, -200.340056531166, -69.7155113097959, 1.8)
    pt3dadd(23.9877948555372, -201.19595793336, -70.0352923805301, 1.8)
    pt3dadd(24.3942094917436, -202.051859335554, -70.3550734512643, 1.8)
    pt3dadd(24.89573892311, -202.885452403809, -70.4367860975088, 1.8)
    pt3dadd(25.464651797658, -203.703241281456, -70.3498407539219, 1.8)
    pt3dadd(26.033564672206, -204.521030159102, -70.2628954103349, 1.8)
    pt3dadd(26.6024775467541, -205.338819036748, -70.175950066748, 1.8)
    pt3dadd(27.1638688686239, -206.161652630474, -70.1029648905364, 1.8)
    pt3dadd(27.6584994629969, -207.029262739086, -70.1538890944523, 1.8)
    pt3dadd(28.1531300573699, -207.896872847698, -70.2048132983681, 1.8)
    pt3dadd(28.6477606517429, -208.76448295631, -70.255737502284, 1.8)
    pt3dadd(29.1423912461158, -209.632093064922, -70.3066617061999, 1.8)
    pt3dadd(29.6370218404888, -210.499703173534, -70.3575859101157, 1.8)
    pt3dadd(30.1316524348618, -211.367313282146, -70.4085101140316, 1.8)
    pt3dadd(30.6262830292348, -212.234923390758, -70.4594343179475, 1.8)
    pt3dadd(31.1209136236078, -213.10253349937, -70.5103585218634, 1.8)
    pt3dadd(31.6155442179808, -213.970143607982, -70.5612827257792, 1.8)
    pt3dadd(32.1460069786277, -214.781975526602, -70.6940492722702, 1.8)
    pt3dadd(32.8118458532686, -215.38307403466, -71.1360211906401, 1.8)
    pt3dadd(33.4776847279095, -215.984172542718, -71.57799310901, 1.8)
    pt3dadd(34.1435236025503, -216.585271050776, -72.0199650273799, 1.8)
    pt3dadd(34.8093624771912, -217.186369558834, -72.4619369457498, 1.8)
    pt3dadd(35.475201351832, -217.787468066891, -72.9039088641197, 1.8)
    pt3dadd(36.1410402264729, -218.388566574949, -73.3458807824896, 1.8)
    pt3dadd(36.8068791011138, -218.989665083007, -73.7878527008595, 1.8)
    pt3dadd(37.354165343757, -219.810420672599, -73.6254434533988, 1.8)
    pt3dadd(37.9013236937047, -220.63141322476, -73.4623822091406, 1.8)
    pt3dadd(38.4484820436524, -221.452405776921, -73.2993209648824, 1.8)
    pt3dadd(38.9956403936001, -222.273398329081, -73.1362597206243, 1.8)
    pt3dadd(39.5427987435478, -223.094390881242, -72.9731984763661, 1.8)
    pt3dadd(39.796578432884, -224.010855664344, -72.9926661172122, 1.8)
    pt3dadd(39.8327622056877, -224.998131213135, -73.1475135432313, 1.8)
    pt3dadd(39.8689459784914, -225.985406761926, -73.3023609692504, 1.8)
    pt3dadd(39.9051297512951, -226.972682310717, -73.4572083952695, 1.8)
    pt3dadd(40.008076693686, -227.930573449741, -73.63133203758, 1.8)
    pt3dadd(40.5980826864956, -228.674095756266, -73.9460819512396, 1.8)
    pt3dadd(41.1880886793053, -229.417618062791, -74.2608318648992, 1.8)
    pt3dadd(41.7780946721149, -230.161140369315, -74.5755817785589, 1.8)
    pt3dadd(42.3681006649245, -230.90466267584, -74.8903316922186, 1.8)
    pt3dadd(42.9581066577342, -231.648184982365, -75.2050816058782, 1.8)
    pt3dadd(43.5481126505438, -232.39170728889, -75.5198315195378, 1.8)
    pt3dadd(44.1381186433534, -233.135229595415, -75.8345814331975, 1.8)
    pt3dadd(44.6012690029998, -233.921024200585, -76.2248168239121, 1.8)
  }
  adendOML[4] {pt3dclear()
    pt3dadd(44.6012690029998, -233.921024200585, -76.2248168239121, 1.8)
    pt3dadd(44.9797591672035, -234.735030253492, -76.665429285642, 1.8)
    pt3dadd(45.3582493314073, -235.549036306399, -77.1060417473719, 1.8)
    pt3dadd(45.736739495611, -236.363042359306, -77.5466542091018, 1.8)
    pt3dadd(46.1152296598147, -237.177048412213, -77.9872666708317, 1.8)
    pt3dadd(46.4937198240185, -237.99105446512, -78.4278791325616, 1.8)
    pt3dadd(46.7952491908801, -238.868043371556, -78.717517468263, 1.8)
    pt3dadd(46.9647229635864, -239.853103379534, -78.7481021220472, 1.8)
    pt3dadd(47.1341967362928, -240.838163387512, -78.7786867758313, 1.8)
    pt3dadd(47.3036705089991, -241.82322339549, -78.8092714296155, 1.8)
    pt3dadd(47.4731442817055, -242.808283403468, -78.8398560833997, 1.8)
    pt3dadd(47.6426180544119, -243.793343411446, -78.8704407371838, 1.8)
  }
  adendMML[4] {pt3dclear()
    pt3dadd(0.418003812399244, -154.990467115083, -60.6250540319181, 1.8)
    pt3dadd(0.197631986826189, -155.961460054997, -60.6445066932404, 1.8)
    pt3dadd(-0.0957529703527271, -156.917439442025, -60.6391514641391, 1.8)
    pt3dadd(-0.389137927531649, -157.873418829053, -60.6337962350378, 1.8)
    pt3dadd(-0.68252288471057, -158.829398216081, -60.6284410059365, 1.8)
    pt3dadd(-0.975907841889486, -159.785377603109, -60.6230857768352, 1.8)
    pt3dadd(-1.26929279906841, -160.741356990137, -60.6177305477338, 1.8)
    pt3dadd(-1.56267775624733, -161.697336377165, -60.6123753186326, 1.8)
    pt3dadd(-1.85606271342626, -162.653315764193, -60.6070200895312, 1.8)
    pt3dadd(-2.14944767060517, -163.609295151221, -60.6016648604299, 1.8)
    pt3dadd(-2.44283262778409, -164.565274538249, -60.5963096313286, 1.8)
    pt3dadd(-2.4379836329268, -165.541821333554, -60.7529149428672, 1.8)
    pt3dadd(-2.37687252083338, -166.52224818989, -60.9400742636422, 1.8)
    pt3dadd(-2.31576140873995, -167.502675046227, -61.1272335844172, 1.8)
    pt3dadd(-2.25465029664653, -168.483101902563, -61.3143929051921, 1.8)
    pt3dadd(-2.19353918455311, -169.4635287589, -61.5015522259671, 1.8)
    pt3dadd(-2.13242807245968, -170.443955615236, -61.688711546742, 1.8)
    pt3dadd(-2.07131696036625, -171.424382471572, -61.875870867517, 1.8)
    pt3dadd(-2.01020584827283, -172.404809327909, -62.063030188292, 1.8)
    pt3dadd(-1.95274348890375, -173.32999843488, -62.3983071788122, 1.8)
    pt3dadd(-1.89941279048446, -174.192639139904, -62.9013050422684, 1.8)
    pt3dadd(-1.84608209206516, -175.055279844928, -63.4043029057246, 1.8)
    pt3dadd(-1.79275139364584, -175.917920549952, -63.9073007691809, 1.8)
    pt3dadd(-1.73942069522654, -176.780561254976, -64.4102986326371, 1.8)
    pt3dadd(-1.68608999680724, -177.64320196, -64.9132964960934, 1.8)
    pt3dadd(-1.63275929838794, -178.505842665025, -65.4162943595496, 1.8)
    pt3dadd(-1.65898754158152, -179.386622395682, -65.8522723071635, 1.8)
    pt3dadd(-1.92397408444384, -180.321837779077, -66.0871218734032, 1.8)
    pt3dadd(-2.18896062730615, -181.257053162472, -66.321971439643, 1.8)
    pt3dadd(-2.45394717016847, -182.192268545867, -66.5568210058827, 1.8)
    pt3dadd(-2.71893371303077, -183.127483929262, -66.7916705721224, 1.8)
    pt3dadd(-2.98392025589309, -184.062699312658, -67.0265201383621, 1.8)
    pt3dadd(-3.2489067987554, -184.997914696053, -67.2613697046018, 1.8)
    pt3dadd(-3.51182954853222, -185.927833350193, -67.5118518946982, 1.8)
    pt3dadd(-3.74952974786934, -186.79301827606, -67.9533874643711, 1.8)
    pt3dadd(-3.98722994720642, -187.658203201928, -68.394923034044, 1.8)
    pt3dadd(-4.22493014654353, -188.523388127796, -68.8364586037169, 1.8)
    pt3dadd(-4.46263034588063, -189.388573053663, -69.2779941733899, 1.8)
    pt3dadd(-4.70033054521773, -190.253757979531, -69.7195297430628, 1.8)
    pt3dadd(-4.93803074455483, -191.118942905399, -70.1610653127357, 1.8)
    pt3dadd(-5.15776402431783, -192.008888276111, -70.5489359811319, 1.8)
    pt3dadd(-5.33384500815087, -192.958991441891, -70.8064227992569, 1.8)
    pt3dadd(-5.50992599198391, -193.90909460767, -71.0639096173819, 1.8)
    pt3dadd(-5.68600697581695, -194.85919777345, -71.3213964355069, 1.8)
    pt3dadd(-5.86208795964999, -195.809300939229, -71.5788832536319, 1.8)
    pt3dadd(-6.03816894348303, -196.759404105009, -71.8363700717569, 1.8)
    pt3dadd(-6.21424992731607, -197.709507270788, -72.0938568898818, 1.8)
    pt3dadd(-6.39902132664482, -198.658109588757, -72.3456229917144, 1.8)
    pt3dadd(-6.79039212125242, -199.571031880798, -72.4613890913419, 1.8)
    pt3dadd(-7.18176291586002, -200.483954172839, -72.5771551909694, 1.8)
    pt3dadd(-7.57313371046761, -201.396876464879, -72.6929212905968, 1.8)
    pt3dadd(-7.96450450507521, -202.30979875692, -72.8086873902243, 1.8)
    pt3dadd(-8.3558752996828, -203.222721048961, -72.9244534898518, 1.8)
    pt3dadd(-8.74724609429041, -204.135643341002, -73.0402195894793, 1.8)
    pt3dadd(-8.87620828404035, -205.065297924951, -73.2174677863041, 1.8)
    pt3dadd(-8.68958836787202, -206.015075370039, -73.4686565832106, 1.8)
  }
}
proc shape3d_10() {
  adendMML[4] {
    pt3dadd(-8.5029684517037, -206.964852815127, -73.7198453801172, 1.8)
    pt3dadd(-8.31634853553538, -207.914630260215, -73.9710341770237, 1.8)
    pt3dadd(-8.12972861936706, -208.864407705303, -74.2222229739303, 1.8)
    pt3dadd(-7.94310870319873, -209.814185150391, -74.4734117708369, 1.8)
    pt3dadd(-7.7564887870304, -210.76396259548, -74.7246005677434, 1.8)
    pt3dadd(-7.56986887086208, -211.713740040568, -74.97578936465, 1.8)
    pt3dadd(-7.38324895469375, -212.663517485656, -75.2269781615566, 1.8)
    pt3dadd(-7.24086433137142, -213.633070540337, -75.3734663925313, 1.8)
    pt3dadd(-7.15908182857521, -214.629716077038, -75.3765153941592, 1.8)
    pt3dadd(-7.07729932577899, -215.626361613738, -75.3795643957871, 1.8)
    pt3dadd(-6.99551682298276, -216.623007150439, -75.3826133974151, 1.8)
    pt3dadd(-6.91373432018654, -217.61965268714, -75.385662399043, 1.8)
    pt3dadd(-6.83195181739033, -218.616298223841, -75.388711400671, 1.8)
    pt3dadd(-6.75016931459412, -219.612943760541, -75.3917604022989, 1.8)
    pt3dadd(-6.6683868117979, -220.609589297242, -75.3948094039269, 1.8)
    pt3dadd(-6.58660430900167, -221.606234833943, -75.3978584055548, 1.8)
    pt3dadd(-6.54603333458782, -222.600791731438, -75.3999879579964, 1.8)
    pt3dadd(-6.72816451943099, -223.584061873034, -75.397148917251, 1.8)
    pt3dadd(-6.91029570427416, -224.567332014631, -75.3943098765057, 1.8)
    pt3dadd(-7.09242688911731, -225.550602156227, -75.3914708357603, 1.8)
    pt3dadd(-7.27455807396047, -226.533872297824, -75.388631795015, 1.8)
    pt3dadd(-7.45668925880364, -227.51714243942, -75.3857927542696, 1.8)
    pt3dadd(-7.63882044364682, -228.500412581017, -75.3829537135242, 1.8)
    pt3dadd(-7.82095162848996, -229.483682722613, -75.3801146727789, 1.8)
    pt3dadd(-8.00308281333313, -230.46695286421, -75.3772756320335, 1.8)
    pt3dadd(-8.17962149955596, -231.450128496636, -75.3992684065266, 1.8)
    pt3dadd(-8.3413474852202, -232.433053805167, -75.4870325416272, 1.8)
    pt3dadd(-8.50307347088442, -233.415979113698, -75.5747966767278, 1.8)
  }
  adendOML[5] {pt3dclear()
    pt3dadd(-8.50307347088442, -233.415979113698, -75.5747966767278, 1.8)
    pt3dadd(-8.66479945654866, -234.39890442223, -75.6625608118284, 1.8)
    pt3dadd(-8.82652544221287, -235.381829730761, -75.750324946929, 1.8)
    pt3dadd(-8.98825142787709, -236.364755039292, -75.8380890820296, 1.8)
    pt3dadd(-9.1499774135413, -237.347680347823, -75.9258532171302, 1.8)
    pt3dadd(-9.31170339920554, -238.330605656354, -76.0136173522307, 1.8)
    pt3dadd(-9.45038769845375, -239.316323276326, -76.0342861844294, 1.8)
    pt3dadd(-9.5493004830115, -240.306860615371, -75.9391439697781, 1.8)
    pt3dadd(-9.64821326756924, -241.297397954416, -75.8440017551267, 1.8)
    pt3dadd(-9.74712605212701, -242.287935293461, -75.7488595404754, 1.8)
    pt3dadd(-9.84603883668477, -243.278472632506, -75.6537173258241, 1.8)
    pt3dadd(-9.94495162124251, -244.269009971551, -75.5585751111728, 1.8)
    pt3dadd(-10.0438644058002, -245.259547310596, -75.4634328965215, 1.8)
    pt3dadd(-10.142777190358, -246.250084649641, -75.3682906818702, 1.8)
  }
  adendIML[6] {pt3dclear()
    pt3dadd(14.5745630613929, -68.0160102887313, -25.271102470323, 2.16945790908971)
    pt3dadd(13.8959860933521, -68.6943114901326, -25.4234408695569, 2.16945790908971)
    pt3dadd(13.1565067166057, -69.3471334196478, -25.5877387079809, 2.08246869604986)
    pt3dadd(12.4170273398592, -69.9999553491629, -25.7520365464049, 1.99547948301002)
    pt3dadd(11.6775479631127, -70.652777278678, -25.9163343848288, 1.90849026997017)
    pt3dadd(10.9380685863662, -71.3055992081931, -26.0806322232528, 1.82150105693032)
    pt3dadd(10.3500597358338, -71.9828556961224, -26.4905506468388, 1.8)
    pt3dadd(9.81178165496845, -72.6681345328661, -26.9811111666231, 1.8)
    pt3dadd(9.27350357410305, -73.3534133696098, -27.4716716864074, 1.8)
    pt3dadd(8.73522549323765, -74.0386922063536, -27.9622322061916, 1.8)
    pt3dadd(8.19694741237225, -74.7239710430973, -28.4527927259759, 1.8)
    pt3dadd(7.65866933150685, -75.409249879841, -28.9433532457602, 1.8)
    pt3dadd(7.12039125064144, -76.0945287165848, -29.4339137655445, 1.8)
    pt3dadd(6.58211316977604, -76.7798075533285, -29.9244742853287, 1.8)
    pt3dadd(6.03829072498025, -77.4646593031438, -30.4031653915373, 1.8)
    pt3dadd(5.29793495971216, -78.1343719291156, -30.4611165731325, 1.8)
    pt3dadd(4.55757919444408, -78.8040845550873, -30.5190677547278, 1.8)
    pt3dadd(3.81722342917599, -79.4737971810592, -30.577018936323, 1.8)
    pt3dadd(3.0768676639079, -80.1435098070309, -30.6349701179183, 1.8)
    pt3dadd(2.33651189863981, -80.8132224330027, -30.6929212995136, 1.8)
    pt3dadd(1.59615613337173, -81.4829350589745, -30.7508724811088, 1.8)
    pt3dadd(0.855800368103639, -82.1526476849463, -30.8088236627041, 1.8)
    pt3dadd(0.115444602835555, -82.822360310918, -30.8667748442993, 1.8)
    pt3dadd(-0.624911162432531, -83.4920729368899, -30.9247260258946, 1.8)
    pt3dadd(-1.36526692770063, -84.1617855628616, -30.9826772074898, 1.8)
    pt3dadd(-2.06440630086252, -84.8506192395999, -31.1127106594113, 1.8)
    pt3dadd(-2.65112088565667, -85.5916088663364, -31.4393608837474, 1.8)
    pt3dadd(-3.23783547045081, -86.3325984930728, -31.7660111080835, 1.8)
    pt3dadd(-3.82455005524497, -87.0735881198093, -32.0926613324196, 1.8)
    pt3dadd(-4.41126464003912, -87.8145777465457, -32.4193115567557, 1.8)
    pt3dadd(-4.99797922483326, -88.5555673732821, -32.7459617810917, 1.8)
    pt3dadd(-5.58469380962741, -89.2965570000186, -33.0726120054278, 1.8)
    pt3dadd(-6.17140839442157, -90.0375466267551, -33.3992622297639, 1.8)
    pt3dadd(-6.75812297921572, -90.7785362534915, -33.7259124541, 1.8)
    pt3dadd(-7.36186587703634, -91.5201265243236, -34.0152741890577, 1.8)
    pt3dadd(-7.98392796514817, -92.2623629726995, -34.2645206799784, 1.8)
    pt3dadd(-8.60599005326001, -93.0045994210754, -34.5137671708992, 1.8)
    pt3dadd(-9.22805214137188, -93.7468358694512, -34.7630136618199, 1.8)
    pt3dadd(-9.85011422948371, -94.4890723178271, -35.0122601527407, 1.8)
    pt3dadd(-10.4721763175955, -95.231308766203, -35.2615066436614, 1.8)
    pt3dadd(-11.0942384057074, -95.9735452145788, -35.5107531345822, 1.8)
    pt3dadd(-11.7163004938192, -96.7157816629547, -35.7599996255029, 1.8)
    pt3dadd(-12.3383625819311, -97.4580181113306, -36.0092461164236, 1.8)
    pt3dadd(-12.9604246700429, -98.2002545597064, -36.2584926073444, 1.8)
    pt3dadd(-13.5824867581548, -98.9424910080823, -36.5077390982651, 1.8)
    pt3dadd(-14.2085638008325, -99.6754025895942, -36.7728138964222, 1.8)
    pt3dadd(-14.841493148226, -100.392399463196, -37.0649027946247, 1.8)
    pt3dadd(-15.4744224956195, -101.109396336798, -37.3569916928271, 1.8)
    pt3dadd(-16.107351843013, -101.8263932104, -37.6490805910295, 1.8)
    pt3dadd(-16.7402811904065, -102.543390084002, -37.941169489232, 1.8)
    pt3dadd(-17.3732105378, -103.260386957604, -38.2332583874344, 1.8)
    pt3dadd(-18.0061398851936, -103.977383831206, -38.5253472856369, 1.8)
    pt3dadd(-18.6390692325871, -104.694380704807, -38.8174361838393, 1.8)
    pt3dadd(-19.2719985799806, -105.411377578409, -39.1095250820418, 1.8)
    pt3dadd(-19.9049279273741, -106.128374452011, -39.4016139802442, 1.8)
    pt3dadd(-20.5378572747676, -106.845371325613, -39.6937028784467, 1.8)
    pt3dadd(-21.1970990004045, -107.566334996374, -39.8915465802554, 1.8)
    pt3dadd(-21.87409114029, -108.289974681145, -40.0258121721164, 1.8)
    pt3dadd(-22.5510832801756, -109.013614365916, -40.1600777639773, 1.8)
    pt3dadd(-23.2280754200612, -109.737254050687, -40.2943433558382, 1.8)
    pt3dadd(-23.9050675599468, -110.460893735458, -40.4286089476992, 1.8)
    pt3dadd(-24.5820596998323, -111.184533420229, -40.5628745395601, 1.8)
    pt3dadd(-25.2590518397179, -111.908173105, -40.6971401314211, 1.8)
    pt3dadd(-25.9321020797218, -112.631429376791, -40.8426256891429, 1.8)
    pt3dadd(-26.5289252679842, -113.347271345342, -41.2050789385592, 1.8)
    pt3dadd(-27.1257484562467, -114.063113313894, -41.5675321879755, 1.8)
    pt3dadd(-27.7225716445091, -114.778955282446, -41.9299854373918, 1.8)
    pt3dadd(-28.3193948327715, -115.494797250997, -42.2924386868081, 1.8)
    pt3dadd(-28.916218021034, -116.210639219549, -42.6548919362244, 1.8)
    pt3dadd(-29.5130412092964, -116.9264811881, -43.0173451856407, 1.8)
  }
  adendMML[5] {pt3dclear()
    pt3dadd(-29.5130412092964, -116.9264811881, -43.0173451856407, 1.8)
    pt3dadd(-30.1098643975588, -117.642323156652, -43.379798435057, 1.8)
    pt3dadd(-30.7066875858213, -118.358165125204, -43.7422516844733, 1.8)
    pt3dadd(-31.3710882534238, -119.067162593596, -43.9447421466464, 1.8)
    pt3dadd(-32.068810299292, -119.772785148023, -44.068357507318, 1.8)
    pt3dadd(-32.7665323451602, -120.47840770245, -44.1919728679896, 1.8)
    pt3dadd(-33.4642543910284, -121.184030256876, -44.3155882286612, 1.8)
    pt3dadd(-34.1619764368966, -121.889652811303, -44.4392035893328, 1.8)
    pt3dadd(-34.8596984827648, -122.595275365729, -44.5628189500044, 1.8)
    pt3dadd(-35.5574205286331, -123.300897920156, -44.686434310676, 1.8)
    pt3dadd(-36.2551425745013, -124.006520474583, -44.8100496713476, 1.8)
    pt3dadd(-36.9528646203695, -124.712143029009, -44.9336650320192, 1.8)
    pt3dadd(-37.6505866662377, -125.417765583436, -45.0572803926909, 1.8)
    pt3dadd(-38.2625158376661, -126.194980808844, -45.1282749179198, 1.8)
    pt3dadd(-38.7819929143931, -127.049345709452, -45.1425641923527, 1.8)
    pt3dadd(-39.3014699911201, -127.90371061006, -45.1568534667857, 1.8)
    pt3dadd(-39.8209470678471, -128.758075510669, -45.1711427412186, 1.8)
    pt3dadd(-40.3404241445741, -129.612440411277, -45.1854320156516, 1.8)
    pt3dadd(-40.8599012213011, -130.466805311885, -45.1997212900845, 1.8)
    pt3dadd(-41.3793782980281, -131.321170212493, -45.2140105645175, 1.8)
    pt3dadd(-41.8988553747551, -132.175535113102, -45.2282998389504, 1.8)
    pt3dadd(-42.4183324514821, -133.02990001371, -45.2425891133834, 1.8)
    pt3dadd(-42.9378095282091, -133.884264914318, -45.2568783878164, 1.8)
    pt3dadd(-43.4203233406899, -134.758892688937, -45.2485964135693, 1.8)
    pt3dadd(-43.8682705413601, -135.652469517823, -45.2192066825505, 1.8)
    pt3dadd(-44.3162177420304, -136.546046346709, -45.1898169515317, 1.8)
    pt3dadd(-44.7641649427007, -137.439623175596, -45.1604272205129, 1.8)
    pt3dadd(-45.2121121433709, -138.333200004482, -45.131037489494, 1.8)
    pt3dadd(-45.6600593440412, -139.226776833368, -45.1016477584752, 1.8)
    pt3dadd(-46.1080065447115, -140.120353662254, -45.0722580274564, 1.8)
    pt3dadd(-46.5559537453817, -141.01393049114, -45.0428682964376, 1.8)
    pt3dadd(-47.003900946052, -141.907507320027, -45.0134785654188, 1.8)
    pt3dadd(-47.4518481467222, -142.801084148913, -44.9840888343999, 1.8)
    pt3dadd(-47.8997953473925, -143.694660977799, -44.9546991033811, 1.8)
    pt3dadd(-48.3621855788187, -144.566981542571, -45.0001600184081, 1.8)
    pt3dadd(-48.8780429958376, -145.360612763143, -45.3227132869377, 1.8)
    pt3dadd(-49.3939004128566, -146.154243983716, -45.6452665554674, 1.8)
    pt3dadd(-49.9097578298755, -146.947875204288, -45.967819823997, 1.8)
    pt3dadd(-50.4256152468944, -147.741506424861, -46.2903730925267, 1.8)
    pt3dadd(-50.9414726639134, -148.535137645433, -46.6129263610563, 1.8)
    pt3dadd(-51.4573300809323, -149.328768866006, -46.935479629586, 1.8)
    pt3dadd(-51.9731874979512, -150.122400086578, -47.2580328981156, 1.8)
    pt3dadd(-52.4890449149702, -150.916031307151, -47.5805861666453, 1.8)
    pt3dadd(-53.0049023319891, -151.709662527723, -47.9031394351749, 1.8)
    pt3dadd(-53.5207597490081, -152.503293748296, -48.2256927037046, 1.8)
    pt3dadd(-53.9704345961133, -153.369419412321, -48.4372184354766, 1.8)
    pt3dadd(-54.4114436901879, -154.245037287723, -48.6342065448143, 1.8)
    pt3dadd(-54.8524527842625, -155.120655163124, -48.831194654152, 1.8)
    pt3dadd(-55.2934618783371, -155.996273038526, -49.0281827634896, 1.8)
    pt3dadd(-55.7344709724117, -156.871890913928, -49.2251708728273, 1.8)
    pt3dadd(-56.1743793419578, -157.748074081781, -49.4213836496046, 1.8)
    pt3dadd(-56.4675638867341, -158.69960931861, -49.5142465365801, 1.8)
    pt3dadd(-56.7607484315105, -159.651144555439, -49.6071094235556, 1.8)
    pt3dadd(-57.0539329762869, -160.602679792268, -49.6999723105311, 1.8)
    pt3dadd(-57.3471175210632, -161.554215029096, -49.7928351975065, 1.8)
    pt3dadd(-57.6403020658396, -162.505750265925, -49.885698084482, 1.8)
    pt3dadd(-57.933486610616, -163.457285502754, -49.9785609714575, 1.8)
  }
  GCL[3] {pt3dclear()
    pt3dadd(5.5687365179766, 13.3255458085877, -4.99214357601429, 2.09484396042835)
    pt3dadd(6.48305719615526, 12.8629594074223, -4.61991253713693, 2.09484396042835)
    pt3dadd(7.29073454057747, 12.3489757465025, -4.33098676186837, 1.97072857767918)
    pt3dadd(8.09841188499967, 11.8349920855827, -4.04206098659981, 1.84661319493002)
    pt3dadd(8.9211490160535, 11.339936336831, -3.76348035426919, 1.8)
    pt3dadd(9.75294375940986, 10.8562646597339, -3.49112174196038, 1.8)
    pt3dadd(10.5847385027662, 10.3725929826368, -3.21876312965157, 1.8)
    pt3dadd(11.4165332461226, 9.88892130553967, -2.94640451734276, 1.8)
    pt3dadd(12.248327989479, 9.40524962844255, -2.67404590503395, 1.8)
    pt3dadd(13.0285160209476, 8.79485083548159, -2.79446341508722, 1.8)
    pt3dadd(13.8074453057747, 8.18136102343324, -2.92446118334352, 1.8)
    pt3dadd(14.5863745906018, 7.56787121138488, -3.05445895159981, 1.8)
    pt3dadd(15.3653038754289, 6.95438139933653, -3.1844567198561, 1.8)
    pt3dadd(16.144233160256, 6.34089158728816, -3.3144544881124, 1.8)
    pt3dadd(16.9191043406984, 5.79270237341156, -3.09737183238111, 1.8)
    pt3dadd(17.6922859102178, 5.27170137193304, -2.73578060320953, 1.8)
    pt3dadd(18.4654674797373, 4.75070037045453, -2.37418937403795, 1.8)
    pt3dadd(19.2386490492567, 4.22969936897602, -2.01259814486636, 1.8)
    pt3dadd(20.0118306187762, 3.70869836749749, -1.65100691569478, 1.8)
    pt3dadd(20.7850121882956, 3.18769736601898, -1.2894156865232, 1.8)
    pt3dadd(21.5581937578151, 2.66669636454046, -0.927824457351615, 1.8)
    pt3dadd(22.3727443585901, 2.18125790822481, -0.610542223215064, 1.8)
    pt3dadd(23.1888762911599, 1.69717883069233, -0.294953701029616, 1.8)
    pt3dadd(24.0050082237297, 1.21309975315984, 0.0206348211558334, 1.8)
    pt3dadd(24.8211401562995, 0.729020675627355, 0.336223343341282, 1.8)
    pt3dadd(25.6372720888693, 0.244941598094871, 0.651811865526731, 1.8)
  }
  adendIML[7] {pt3dclear()
    pt3dadd(25.6372720888693, 0.244941598094871, 0.651811865526731, 1.8)
    pt3dadd(26.4534040214391, -0.239137479437607, 0.967400387712178, 1.8)
    pt3dadd(27.2817812785367, -0.749484404754005, 1.19110530471524, 1.8)
    pt3dadd(28.1145029116117, -1.26915059364994, 1.38221190828286, 1.8)
    pt3dadd(28.9472245446868, -1.78881678254588, 1.57331851185048, 1.8)
    pt3dadd(29.7799461777619, -2.30848297144182, 1.7644251154181, 1.8)
    pt3dadd(30.612667810837, -2.82814916033776, 1.95553171898571, 1.8)
    pt3dadd(31.445389443912, -3.34781534923371, 2.14663832255333, 1.8)
    pt3dadd(32.2781110769871, -3.86748153812964, 2.33774492612095, 1.8)
    pt3dadd(33.1108327100622, -4.38714772702559, 2.52885152968857, 1.8)
    pt3dadd(33.8930419327878, -4.86330869452332, 2.90402847868367, 1.8)
    pt3dadd(34.6480197551298, -5.31601585939171, 3.37843833381795, 1.8)
    pt3dadd(35.4029975774718, -5.76872302426009, 3.85284818895224, 1.8)
    pt3dadd(36.1579753998138, -6.22143018912848, 4.32725804408652, 1.8)
    pt3dadd(36.9129532221558, -6.67413735399688, 4.8016678992208, 1.8)
    pt3dadd(37.6679310444978, -7.12684451886527, 5.27607775435509, 1.8)
    pt3dadd(38.4362818342967, -7.69202137130591, 5.53454303771329, 1.8)
    pt3dadd(39.2098971917827, -8.30147443131932, 5.70799691141477, 1.8)
    pt3dadd(39.9835125492687, -8.91092749133274, 5.88145078511626, 1.8)
    pt3dadd(40.7571279067548, -9.52038055134614, 6.05490465881774, 1.8)
    pt3dadd(41.5307432642408, -10.1298336113596, 6.22835853251923, 1.8)
    pt3dadd(42.3003096640223, -10.7446641803984, 6.4007080428442, 1.8)
    pt3dadd(43.065823389385, -11.3648771947122, 6.57195217604948, 1.8)
    pt3dadd(43.8313371147476, -11.985090209026, 6.74319630925477, 1.8)
    pt3dadd(44.5968508401102, -12.6053032233398, 6.91444044246005, 1.8)
    pt3dadd(45.3623645654729, -13.2255162376536, 7.08568457566533, 1.8)
    pt3dadd(46.1278782908355, -13.8457292519673, 7.25692870887062, 1.8)
    pt3dadd(46.8901277994888, -14.4701867765401, 7.42728460102772, 1.8)
    pt3dadd(47.65156218668, -15.0957042158538, 7.59741868672823, 1.8)
    pt3dadd(48.4129965738712, -15.7212216551675, 7.76755277242874, 1.8)
    pt3dadd(49.1744309610624, -16.3467390944812, 7.93768685812924, 1.8)
    pt3dadd(49.9358653482537, -16.9722565337949, 8.10782094382975, 1.8)
    pt3dadd(50.6972997354449, -17.5977739731087, 8.27795502953026, 1.8)
    pt3dadd(51.4587341226361, -18.2232914124224, 8.44808911523077, 1.8)
    pt3dadd(52.2201685098273, -18.8488088517361, 8.61822320093128, 1.8)
    pt3dadd(52.9952686049838, -19.4535713600426, 8.79214440776398, 1.8)
    pt3dadd(53.8403033082149, -19.9521199810553, 8.98544630330923, 1.8)
    pt3dadd(54.685338011446, -20.450668602068, 9.17874819885447, 1.8)
    pt3dadd(55.4492190799223, -21.0525975361341, 9.35001621213668, 1.8)
    pt3dadd(56.0996126093799, -21.7990964250376, 9.49047142103104, 1.8)
    pt3dadd(56.7500061388374, -22.5455953139411, 9.63092662992541, 1.8)
    pt3dadd(57.400399668295, -23.2920942028446, 9.77138183881978, 1.8)
    pt3dadd(58.0507931977525, -24.0385930917482, 9.91183704771415, 1.8)
    pt3dadd(58.7011867272101, -24.7850919806517, 10.0522922566085, 1.8)
    pt3dadd(59.3593489033264, -25.5238608823664, 10.1972521372073, 1.8)
    pt3dadd(60.019154088256, -26.2609949514474, 10.3431647211064, 1.8)
    pt3dadd(60.6789592731856, -26.9981290205283, 10.4890773050055, 1.8)
    pt3dadd(61.3387644581153, -27.7352630896092, 10.6349898889047, 1.8)
    pt3dadd(61.9985696430449, -28.4723971586902, 10.7809024728038, 1.8)
    pt3dadd(62.6583748279746, -29.2095312277711, 10.926815056703, 1.8)
    pt3dadd(63.3181800129042, -29.9466652968521, 11.0727276406021, 1.8)
    pt3dadd(63.8839940100779, -30.736850840981, 11.3025807704697, 1.8)
    pt3dadd(64.4365909670035, -31.5344964832071, 11.5442376193988, 1.8)
    pt3dadd(64.989187923929, -32.3321421254332, 11.7858944683279, 1.8)
  }
}
proc shape3d_11() {
  adendIML[7] {
    pt3dadd(65.5417848808545, -33.1297877676594, 12.0275513172569, 1.8)
    pt3dadd(66.2446023938593, -33.8094859785872, 12.2113488098154, 1.8)
    pt3dadd(66.9861820299162, -34.4587496540228, 12.3802165780412, 1.8)
    pt3dadd(67.7277616659731, -35.1080133294584, 12.5490843462671, 1.8)
    pt3dadd(68.46934130203, -35.757277004894, 12.7179521144929, 1.8)
    pt3dadd(69.210920938087, -36.4065406803295, 12.8868198827187, 1.8)
    pt3dadd(69.9013929959432, -37.0717646805885, 13.1628867341593, 1.8)
    pt3dadd(70.5758032667925, -37.7420045972125, 13.4726434786168, 1.8)
    pt3dadd(71.2502135376417, -38.4122445138365, 13.7824002230742, 1.8)
    pt3dadd(71.924623808491, -39.0824844304604, 14.0921569675316, 1.8)
    pt3dadd(72.5172786830792, -39.8310246058873, 14.3708374326368, 1.8)
    pt3dadd(73.045950016614, -40.6408442570762, 14.6251969295045, 1.8)
    pt3dadd(73.5746213501488, -41.4506639082651, 14.8795564263722, 1.8)
  }
  adendIML[8] {pt3dclear()
    pt3dadd(73.5746213501488, -41.4506639082651, 14.8795564263722, 1.8)
    pt3dadd(73.9111341026827, -42.3863671492518, 14.9494698636414, 1.8)
    pt3dadd(74.2336305452055, -43.3312525116442, 15.0059295527708, 1.8)
    pt3dadd(74.5561269877282, -44.2761378740368, 15.0623892419002, 1.8)
    pt3dadd(74.8786234302509, -45.2210232364293, 15.1188489310296, 1.8)
    pt3dadd(75.2011198727737, -46.1659085988217, 15.175308620159, 1.8)
    pt3dadd(75.5236163152964, -47.1107939612142, 15.2317683092884, 1.8)
    pt3dadd(75.9029830398457, -48.0237296316814, 15.3468378249738, 1.8)
    pt3dadd(76.3517788802005, -48.8976600645872, 15.5334601497943, 1.8)
    pt3dadd(76.8005747205553, -49.7715904974929, 15.7200824746148, 1.8)
    pt3dadd(77.2493705609101, -50.6455209303986, 15.9067047994353, 1.8)
    pt3dadd(77.698166401265, -51.5194513633043, 16.0933271242558, 1.8)
    pt3dadd(78.1469622416198, -52.3933817962101, 16.2799494490763, 1.8)
    pt3dadd(78.5957580819746, -53.2673122291158, 16.4665717738968, 1.8)
    pt3dadd(79.0445539223294, -54.1412426620216, 16.6531940987173, 1.8)
    pt3dadd(79.4957337999887, -55.0161519965592, 16.825856174408, 1.8)
    pt3dadd(79.9606145806327, -55.8966870133229, 16.9182896317744, 1.8)
    pt3dadd(80.4254953612766, -56.7772220300867, 17.0107230891407, 1.8)
    pt3dadd(80.8903761419207, -57.6577570468504, 17.1031565465071, 1.8)
    pt3dadd(81.3552569225646, -58.5382920636142, 17.1955900038734, 1.8)
    pt3dadd(81.8201377032086, -59.418827080378, 17.2880234612398, 1.8)
    pt3dadd(82.2850184838526, -60.2993620971417, 17.3804569186061, 1.8)
    pt3dadd(82.7498992644966, -61.1798971139055, 17.4728903759725, 1.8)
    pt3dadd(83.2147800451406, -62.0604321306692, 17.5653238333388, 1.8)
    pt3dadd(83.6031840765674, -62.9739723816317, 17.6384709920746, 1.8)
    pt3dadd(83.8949615510336, -63.9292139624093, 17.6872503703769, 1.8)
    pt3dadd(84.1867390254998, -64.884455543187, 17.7360297486792, 1.8)
    pt3dadd(84.478516499966, -65.8396971239646, 17.7848091269815, 1.8)
    pt3dadd(84.7702939744323, -66.7949387047422, 17.8335885052838, 1.8)
    pt3dadd(85.0620714488985, -67.7501802855198, 17.8823678835861, 1.8)
    pt3dadd(85.3538489233647, -68.7054218662975, 17.9311472618884, 1.8)
    pt3dadd(85.6456263978309, -69.6606634470751, 17.9799266401906, 1.8)
    pt3dadd(85.9374038722972, -70.6159050278527, 18.0287060184929, 1.8)
    pt3dadd(86.2291813467634, -71.5711466086304, 18.0774853967952, 1.8)
    pt3dadd(86.5267143429721, -72.5245236684222, 18.1277020226253, 1.8)
    pt3dadd(86.827907192681, -73.4767151061345, 18.1788325734877, 1.8)
    pt3dadd(87.12910004239, -74.4289065438469, 18.2299631243502, 1.8)
    pt3dadd(87.4302928920989, -75.3810979815592, 18.2810936752127, 1.8)
    pt3dadd(87.7314857418079, -76.3332894192716, 18.3322242260752, 1.8)
    pt3dadd(88.0326785915168, -77.2854808569839, 18.3833547769376, 1.8)
    pt3dadd(88.3338714412258, -78.2376722946962, 18.4344853278001, 1.8)
    pt3dadd(88.6350642909348, -79.1898637324086, 18.4856158786626, 1.8)
    pt3dadd(88.9031613513318, -80.1522672639127, 18.5284935578061, 1.8)
    pt3dadd(89.1695637582117, -81.1151937006269, 18.5709486527365, 1.8)
    pt3dadd(89.4359661650916, -82.078120137341, 18.6134037476669, 1.8)
    pt3dadd(89.7023685719715, -83.0410465740552, 18.6558588425972, 1.8)
    pt3dadd(89.9687709788515, -84.0039730107693, 18.6983139375276, 1.8)
    pt3dadd(90.2351733857314, -84.9668994474835, 18.740769032458, 1.8)
    pt3dadd(90.5015757926113, -85.9298258841977, 18.7832241273883, 1.8)
    pt3dadd(90.7867935738344, -86.881221241385, 18.8916797358496, 1.8)
    pt3dadd(91.0787521542499, -87.8284854720722, 19.0237806994437, 1.8)
    pt3dadd(91.3707107346654, -88.7757497027594, 19.1558816630379, 1.8)
    pt3dadd(91.6626693150808, -89.7230139334465, 19.287982626632, 1.8)
    pt3dadd(91.9546278954962, -90.6702781641336, 19.4200835902261, 1.8)
    pt3dadd(92.2465864759117, -91.6175423948208, 19.5521845538202, 1.8)
    pt3dadd(92.5385450563272, -92.5648066255079, 19.6842855174143, 1.8)
    pt3dadd(92.8305036367426, -93.512070856195, 19.8163864810084, 1.8)
    pt3dadd(93.1224622171581, -94.4593350868822, 19.9484874446026, 1.8)
    pt3dadd(93.4144207975735, -95.4065993175693, 20.0805884081967, 1.8)
    pt3dadd(93.706379377989, -96.3538635482565, 20.2126893717908, 1.8)
    pt3dadd(94.0952406415585, -97.2638521543841, 20.3265104653774, 1.8)
    pt3dadd(94.5516964823572, -98.1478391060576, 20.4275804147773, 1.8)
    pt3dadd(95.008152323156, -99.0318260577311, 20.5286503641772, 1.8)
    pt3dadd(95.4646081639548, -99.9158130094046, 20.6297203135772, 1.8)
    pt3dadd(95.9210640047536, -100.799799961078, 20.7307902629771, 1.8)
    pt3dadd(96.3775198455523, -101.683786912752, 20.831860212377, 1.8)
    pt3dadd(96.8339756863511, -102.567773864425, 20.932930161777, 1.8)
    pt3dadd(97.2904315271499, -103.451760816099, 21.0340001111769, 1.8)
    pt3dadd(97.7468873679487, -104.335747767772, 21.1350700605768, 1.8)
    pt3dadd(98.2033432087475, -105.219734719445, 21.2361400099768, 1.8)
    pt3dadd(98.6569986211227, -106.105440341544, 21.331524881591, 1.8)
    pt3dadd(99.0701220475183, -107.016021130951, 21.3446268099349, 1.8)
    pt3dadd(99.483245473914, -107.926601920358, 21.3577287382789, 1.8)
    pt3dadd(99.8963689003096, -108.837182709765, 21.3708306666228, 1.8)
    pt3dadd(100.309492326705, -109.747763499171, 21.3839325949668, 1.8)
    pt3dadd(100.722615753101, -110.658344288578, 21.3970345233108, 1.8)
    pt3dadd(101.135739179497, -111.568925077985, 21.4101364516547, 1.8)
    pt3dadd(101.548862605892, -112.479505867392, 21.4232383799987, 1.8)
    pt3dadd(101.961986032288, -113.390086656799, 21.4363403083426, 1.8)
    pt3dadd(102.375109458683, -114.300667446206, 21.4494422366866, 1.8)
    pt3dadd(102.788232885079, -115.211248235612, 21.4625441650306, 1.8)
    pt3dadd(103.201356311475, -116.121829025019, 21.4756460933745, 1.8)
  }
  adendMML[6] {pt3dclear()
    pt3dadd(103.201356311475, -116.121829025019, 21.4756460933745, 1.8)
    pt3dadd(103.616242569145, -117.02656460018, 21.5315483777586, 1.8)
    pt3dadd(104.036974171046, -117.911918122234, 21.7293716831279, 1.8)
    pt3dadd(104.457705772947, -118.797271644289, 21.9271949884971, 1.8)
    pt3dadd(104.878437374848, -119.682625166344, 22.1250182938664, 1.8)
    pt3dadd(105.299168976749, -120.567978688398, 22.3228415992356, 1.8)
    pt3dadd(105.71990057865, -121.453332210453, 22.5206649046049, 1.8)
    pt3dadd(106.140632180551, -122.338685732508, 22.7184882099741, 1.8)
    pt3dadd(106.561363782452, -123.224039254562, 22.9163115153433, 1.8)
    pt3dadd(106.982095384353, -124.109392776617, 23.1141348207126, 1.8)
    pt3dadd(107.402826986254, -124.994746298672, 23.3119581260818, 1.8)
    pt3dadd(107.881404149357, -125.857895847659, 23.4572272441106, 1.8)
    pt3dadd(108.402338780388, -126.704786515971, 23.56401350782, 1.8)
    pt3dadd(108.923273411419, -127.551677184284, 23.6707997715293, 1.8)
    pt3dadd(109.444208042451, -128.398567852597, 23.7775860352387, 1.8)
    pt3dadd(109.965142673482, -129.24545852091, 23.8843722989481, 1.8)
    pt3dadd(110.486077304513, -130.092349189223, 23.9911585626575, 1.8)
    pt3dadd(111.007011935544, -130.939239857535, 24.0979448263669, 1.8)
    pt3dadd(111.527946566576, -131.786130525848, 24.2047310900762, 1.8)
    pt3dadd(112.048881197607, -132.633021194161, 24.3115173537856, 1.8)
    pt3dadd(112.58677991391, -133.468656108969, 24.4226719678696, 1.8)
    pt3dadd(113.125614253569, -134.303670233107, 24.5340675103956, 1.8)
    pt3dadd(113.664448593227, -135.138684357245, 24.6454630529216, 1.8)
    pt3dadd(114.203282932886, -135.973698481383, 24.7568585954476, 1.8)
    pt3dadd(114.742117272544, -136.808712605521, 24.8682541379736, 1.8)
    pt3dadd(115.280951612203, -137.643726729659, 24.9796496804996, 1.8)
    pt3dadd(115.819785951861, -138.478740853797, 25.0910452230256, 1.8)
    pt3dadd(116.358613231147, -139.313844242137, 25.2017435535084, 1.8)
    pt3dadd(116.897249420241, -140.15136358104, 25.2935717232638, 1.8)
    pt3dadd(117.435885609335, -140.988882919944, 25.3853998930191, 1.8)
    pt3dadd(117.974521798429, -141.826402258848, 25.4772280627745, 1.8)
    pt3dadd(118.513157987524, -142.663921597751, 25.5690562325298, 1.8)
    pt3dadd(119.051794176618, -143.501440936655, 25.6608844022852, 1.8)
    pt3dadd(119.590430365712, -144.338960275558, 25.7527125720406, 1.8)
    pt3dadd(120.129066554806, -145.176479614462, 25.8445407417959, 1.8)
    pt3dadd(120.667702743901, -146.013998953365, 25.9363689115513, 1.8)
    pt3dadd(121.206338932995, -146.851518292269, 26.0281970813067, 1.8)
    pt3dadd(121.744975122089, -147.689037631172, 26.120025251062, 1.8)
    pt3dadd(122.288658059542, -148.513718423444, 26.2757768346198, 1.8)
    pt3dadd(122.832402243138, -149.338243410155, 26.4323041775812, 1.8)
    pt3dadd(123.376146426733, -150.162768396867, 26.5888315205426, 1.8)
    pt3dadd(123.919890610329, -150.987293383578, 26.745358863504, 1.8)
    pt3dadd(124.463634793924, -151.81181837029, 26.9018862064654, 1.8)
    pt3dadd(125.007378977519, -152.636343357001, 27.0584135494268, 1.8)
    pt3dadd(125.551123161115, -153.460868343713, 27.2149408923882, 1.8)
    pt3dadd(126.09486734471, -154.285393330424, 27.3714682353497, 1.8)
    pt3dadd(126.638611528306, -155.109918317136, 27.5279955783111, 1.8)
    pt3dadd(127.182355711901, -155.934443303847, 27.6845229212725, 1.8)
    pt3dadd(127.813390898738, -156.69593899586, 27.826002795158, 1.8)
    pt3dadd(128.458476365777, -157.44728955013, 27.9650606421563, 1.8)
    pt3dadd(129.103561832816, -158.198640104401, 28.1041184891547, 1.8)
    pt3dadd(129.748647299855, -158.949990658672, 28.243176336153, 1.8)
    pt3dadd(130.393732766895, -159.701341212942, 28.3822341831513, 1.8)
    pt3dadd(131.038818233934, -160.452691767213, 28.5212920301496, 1.8)
    pt3dadd(131.683903700973, -161.204042321484, 28.660349877148, 1.8)
    pt3dadd(132.217438051676, -162.028035830576, 28.7613197577382, 1.8)
    pt3dadd(132.598635347056, -162.95123241527, 28.8102757380069, 1.8)
    pt3dadd(132.979832642436, -163.874428999964, 28.8592317182756, 1.8)
    pt3dadd(133.361029937816, -164.797625584658, 28.9081876985442, 1.8)
    pt3dadd(133.742227233196, -165.720822169353, 28.9571436788129, 1.8)
    pt3dadd(134.123424528575, -166.644018754047, 29.0060996590816, 1.8)
    pt3dadd(134.504621823955, -167.567215338741, 29.0550556393502, 1.8)
    pt3dadd(134.885819119335, -168.490411923435, 29.1040116196189, 1.8)
    pt3dadd(135.267016414715, -169.413608508129, 29.1529675998876, 1.8)
    pt3dadd(135.648213710094, -170.336805092824, 29.2019235801562, 1.8)
    pt3dadd(136.153819285166, -171.188388061151, 29.2981652617777, 1.8)
    pt3dadd(136.713383297677, -172.008910726675, 29.4149157275776, 1.8)
    pt3dadd(137.272947310187, -172.829433392199, 29.5316661933774, 1.8)
    pt3dadd(137.832511322698, -173.649956057723, 29.6484166591772, 1.8)
    pt3dadd(138.392075335209, -174.470478723247, 29.7651671249771, 1.8)
    pt3dadd(138.951639347719, -175.291001388771, 29.8819175907769, 1.8)
    pt3dadd(139.51120336023, -176.111524054295, 29.9986680565768, 1.8)
    pt3dadd(140.070767372741, -176.932046719819, 30.1154185223766, 1.8)
    pt3dadd(140.630331385251, -177.752569385343, 30.2321689881764, 1.8)
    pt3dadd(141.189895397762, -178.573092050866, 30.3489194539763, 1.8)
    pt3dadd(141.632621200371, -179.44265881283, 30.5536161658279, 1.8)
    pt3dadd(142.046142321605, -180.324484554207, 30.7802957726263, 1.8)
    pt3dadd(142.45966344284, -181.206310295584, 31.0069753794247, 1.8)
    pt3dadd(142.873184564074, -182.088136036961, 31.2336549862231, 1.8)
    pt3dadd(143.286705685308, -182.969961778338, 31.4603345930215, 1.8)
    pt3dadd(143.700226806543, -183.851787519715, 31.6870141998199, 1.8)
    pt3dadd(144.113747927777, -184.733613261091, 31.9136938066183, 1.8)
    pt3dadd(144.527269049011, -185.615439002468, 32.1403734134167, 1.8)
    pt3dadd(144.940790170246, -186.497264743845, 32.3670530202151, 1.8)
    pt3dadd(145.244065028882, -187.427680924798, 32.5598197428239, 1.8)
    pt3dadd(145.510807210574, -188.37419868407, 32.7413486382887, 1.8)
    pt3dadd(145.777549392266, -189.320716443342, 32.9228775337534, 1.8)
    pt3dadd(146.044291573958, -190.267234202614, 33.1044064292181, 1.8)
    pt3dadd(146.31103375565, -191.213751961887, 33.2859353246829, 1.8)
    pt3dadd(146.577775937341, -192.160269721159, 33.4674642201476, 1.8)
    pt3dadd(146.844518119033, -193.106787480431, 33.6489931156123, 1.8)
    pt3dadd(147.129302045338, -194.049757322813, 33.8198938989189, 1.8)
    pt3dadd(147.434042289671, -194.988802746615, 33.979038724538, 1.8)
    pt3dadd(147.738782534004, -195.927848170416, 34.1381835501572, 1.8)
    pt3dadd(148.043522778338, -196.866893594218, 34.2973283757763, 1.8)
    pt3dadd(148.348263022671, -197.805939018019, 34.4564732013955, 1.8)
    pt3dadd(148.653003267004, -198.74498444182, 34.6156180270146, 1.8)
    pt3dadd(148.957743511338, -199.684029865622, 34.7747628526338, 1.8)
    pt3dadd(149.262483755671, -200.623075289423, 34.933907678253, 1.8)
    pt3dadd(149.553293957341, -201.566708229178, 35.0794054588213, 1.8)
    pt3dadd(149.711628812988, -202.553968656521, 35.0951192136718, 1.8)
    pt3dadd(149.869963668634, -203.541229083863, 35.1108329685223, 1.8)
    pt3dadd(150.028298524281, -204.528489511205, 35.1265467233729, 1.8)
    pt3dadd(150.186633379927, -205.515749938547, 35.1422604782234, 1.8)
    pt3dadd(150.344968235574, -206.503010365889, 35.1579742330739, 1.8)
    pt3dadd(150.503303091221, -207.490270793231, 35.1736879879244, 1.8)
    pt3dadd(150.7144048224, -208.45709671181, 35.184970222113, 1.8)
    pt3dadd(151.262207049256, -209.29353194191, 35.1679753375899, 1.8)
    pt3dadd(151.810009276111, -210.12996717201, 35.1509804530667, 1.8)
    pt3dadd(152.357811502967, -210.96640240211, 35.1339855685436, 1.8)
    pt3dadd(152.905613729822, -211.802837632209, 35.1169906840205, 1.8)
    pt3dadd(153.453415956678, -212.639272862309, 35.0999957994974, 1.8)
    pt3dadd(154.001218183533, -213.475708092409, 35.0830009149743, 1.8)
    pt3dadd(154.549020410388, -214.312143322509, 35.0660060304512, 1.8)
    pt3dadd(155.096822637244, -215.148578552609, 35.0490111459281, 1.8)
    pt3dadd(155.644624864099, -215.985013782709, 35.032016261405, 1.8)
    pt3dadd(156.187915404015, -216.81891366095, 35.0930132139709, 1.8)
    pt3dadd(156.726977649024, -217.650437440075, 35.2271031120077, 1.8)
    pt3dadd(157.266039894034, -218.481961219199, 35.3611930100444, 1.8)
    pt3dadd(157.805102139043, -219.313484998324, 35.4952829080812, 1.8)
    pt3dadd(158.344164384052, -220.145008777449, 35.6293728061179, 1.8)
    pt3dadd(158.883226629062, -220.976532556574, 35.7634627041547, 1.8)
    pt3dadd(159.422288874071, -221.808056335698, 35.8975526021914, 1.8)
    pt3dadd(159.961351119081, -222.639580114823, 36.0316425002282, 1.8)
    pt3dadd(160.50041336409, -223.471103893948, 36.1657323982649, 1.8)
    pt3dadd(160.733987673327, -224.379952619887, 36.4757315278739, 1.8)
    pt3dadd(160.912824462552, -225.302656478315, 36.8172501839713, 1.8)
    pt3dadd(161.091661251777, -226.225360336742, 37.1587688400687, 1.8)
    pt3dadd(161.270498041001, -227.14806419517, 37.5002874961661, 1.8)
    pt3dadd(161.449334830226, -228.070768053598, 37.8418061522635, 1.8)
    pt3dadd(161.628171619451, -228.993471912025, 38.1833248083609, 1.8)
    pt3dadd(161.807008408676, -229.916175770453, 38.5248434644583, 1.8)
    pt3dadd(161.985845197901, -230.83887962888, 38.8663621205557, 1.8)
    pt3dadd(162.164681987126, -231.761583487308, 39.2078807766532, 1.8)
    pt3dadd(162.343518776351, -232.684287345736, 39.5493994327506, 1.8)
    pt3dadd(162.543415187556, -233.655045036287, 39.6210055744307, 1.8)
  }
  adendOML[6] {pt3dclear()
    pt3dadd(162.543415187556, -233.655045036287, 39.6210055744307, 1.8)
    pt3dadd(162.746805542789, -234.633775206114, 39.6478312723376, 1.8)
    pt3dadd(162.950195898023, -235.612505375941, 39.6746569702445, 1.8)
    pt3dadd(163.153586253257, -236.591235545768, 39.7014826681514, 1.8)
    pt3dadd(163.35697660849, -237.569965715595, 39.7283083660584, 1.8)
    pt3dadd(163.560366963724, -238.548695885422, 39.7551340639653, 1.8)
    pt3dadd(163.763757318958, -239.527426055249, 39.7819597618722, 1.8)
    pt3dadd(163.967147674191, -240.506156225076, 39.8087854597791, 1.8)
    pt3dadd(164.170538029425, -241.484886394903, 39.8356111576861, 1.8)
    pt3dadd(164.373928384658, -242.46361656473, 39.862436855593, 1.8)
    pt3dadd(164.554171462087, -243.443754424622, 39.9365394272748, 1.8)
    pt3dadd(164.723136601727, -244.424578146631, 40.0336764847304, 1.8)
    pt3dadd(164.892101741368, -245.40540186864, 40.1308135421859, 1.8)
    pt3dadd(165.061066881008, -246.386225590648, 40.2279505996414, 1.8)
    pt3dadd(165.230032020648, -247.367049312657, 40.3250876570969, 1.8)
    pt3dadd(165.398997160288, -248.347873034666, 40.4222247145525, 1.8)
    pt3dadd(165.567962299928, -249.328696756675, 40.519361772008, 1.8)
    pt3dadd(165.736927439568, -250.309520478684, 40.6164988294635, 1.8)
  }
}
proc shape3d_12() {
  adendOML[6] {
    pt3dadd(165.905892579208, -251.290344200693, 40.7136358869191, 1.8)
    pt3dadd(166.074857718848, -252.271167922701, 40.8107729443746, 1.8)
    pt3dadd(166.243822858488, -253.25199164471, 40.9079100018301, 1.8)
    pt3dadd(166.412787998128, -254.232815366719, 41.0050470592857, 1.8)
  }
  adendIML[9] {pt3dclear()
    pt3dadd(73.5746213501488, -41.4506639082651, 14.8795564263722, 1.8)
    pt3dadd(74.4079089901993, -41.9522897543146, 15.0797887646756, 1.8)
    pt3dadd(75.2634157607426, -42.4314355222231, 15.2760729939197, 1.8)
    pt3dadd(76.1189225312859, -42.9105812901316, 15.4723572231637, 1.8)
    pt3dadd(76.9744293018292, -43.38972705804, 15.6686414524078, 1.8)
    pt3dadd(77.8299360723725, -43.8688728259485, 15.8649256816519, 1.8)
    pt3dadd(78.5524807360515, -44.4657178783485, 16.2093393647886, 1.8)
    pt3dadd(79.267356132654, -45.0693518367664, 16.5622971690329, 1.8)
    pt3dadd(79.9822315292566, -45.6729857951844, 16.9152549732772, 1.8)
    pt3dadd(80.6971069258592, -46.2766197536024, 17.2682127775215, 1.8)
    pt3dadd(81.4119823224618, -46.8802537120203, 17.6211705817658, 1.8)
    pt3dadd(82.1268577190643, -47.4838876704383, 17.9741283860101, 1.8)
    pt3dadd(82.8417331156669, -48.0875216288563, 18.3270861902544, 1.8)
    pt3dadd(83.5566085122695, -48.6911555872742, 18.6800439944987, 1.8)
    pt3dadd(84.295679550774, -49.3468783415617, 18.6527128449347, 1.8)
    pt3dadd(85.0385217420153, -50.0107196986081, 18.5661095448436, 1.8)
    pt3dadd(85.7813639332566, -50.6745610556545, 18.4795062447525, 1.8)
    pt3dadd(86.5242061244979, -51.3384024127009, 18.3929029446615, 1.8)
    pt3dadd(87.2670483157392, -52.0022437697472, 18.3062996445704, 1.8)
    pt3dadd(88.0098905069805, -52.6660851267936, 18.2196963444793, 1.8)
    pt3dadd(88.7527326982218, -53.32992648384, 18.1330930443883, 1.8)
    pt3dadd(89.4492697785416, -54.0352319367111, 18.1484244612104, 1.8)
    pt3dadd(90.0901097566086, -54.7904115814155, 18.2863658499777, 1.8)
    pt3dadd(90.7309497346757, -55.5455912261199, 18.4243072387451, 1.8)
    pt3dadd(91.3717897127429, -56.3007708708244, 18.5622486275124, 1.8)
    pt3dadd(92.0126296908099, -57.0559505155288, 18.7001900162797, 1.8)
    pt3dadd(92.653469668877, -57.8111301602332, 18.838131405047, 1.8)
    pt3dadd(93.2943096469441, -58.5663098049377, 18.9760727938144, 1.8)
    pt3dadd(94.0113421857154, -59.2449935138729, 19.1342293293384, 1.8)
    pt3dadd(94.729885694051, -59.9221602370331, 19.2927867500829, 1.8)
    pt3dadd(95.4484292023867, -60.5993269601933, 19.4513441708273, 1.8)
    pt3dadd(96.1669727107223, -61.2764936833536, 19.6099015915717, 1.8)
    pt3dadd(96.885516219058, -61.9536604065138, 19.7684590123162, 1.8)
    pt3dadd(97.6040597273936, -62.630827129674, 19.9270164330606, 1.8)
    pt3dadd(98.3226032357293, -63.3079938528343, 20.0855738538051, 1.8)
    pt3dadd(99.0411467440649, -63.9851605759945, 20.2441312745495, 1.8)
    pt3dadd(99.7357563874938, -64.6870705711597, 20.3963222629056, 1.8)
    pt3dadd(100.397603086722, -65.422851503727, 20.5397982748084, 1.8)
    pt3dadd(101.059449785949, -66.1586324362944, 20.6832742867113, 1.8)
    pt3dadd(101.721296485177, -66.8944133688618, 20.8267502986141, 1.8)
    pt3dadd(102.383143184405, -67.6301943014292, 20.9702263105169, 1.8)
    pt3dadd(103.044989883633, -68.3659752339966, 21.1137023224197, 1.8)
    pt3dadd(103.706836582861, -69.1017561665639, 21.2571783343226, 1.8)
    pt3dadd(104.233229058952, -69.860384459533, 21.5676585837969, 1.8)
    pt3dadd(104.611897056111, -70.6439297638152, 22.0602713161383, 1.8)
    pt3dadd(104.99056505327, -71.4274750680974, 22.5528840484798, 1.8)
    pt3dadd(105.369233050429, -72.2110203723796, 23.0454967808212, 1.8)
    pt3dadd(105.747901047588, -72.9945656766618, 23.5381095131627, 1.8)
    pt3dadd(106.126569044747, -73.778110980944, 24.0307222455041, 1.8)
    pt3dadd(106.594279756983, -74.6389355888704, 24.1762839798764, 1.8)
    pt3dadd(107.074609655311, -75.5107122652834, 24.2726614421488, 1.8)
    pt3dadd(107.55493955364, -76.3824889416965, 24.3690389044212, 1.8)
    pt3dadd(108.035269451968, -77.2542656181096, 24.4654163666936, 1.8)
    pt3dadd(108.515599350296, -78.1260422945227, 24.561793828966, 1.8)
    pt3dadd(109.10771494148, -78.9214284662287, 24.592999495884, 1.8)
    pt3dadd(109.77798611221, -79.6634057980842, 24.5786399450539, 1.8)
    pt3dadd(110.448257282941, -80.4053831299397, 24.5642803942239, 1.8)
    pt3dadd(111.118528453672, -81.1473604617951, 24.5499208433939, 1.8)
    pt3dadd(111.788799624402, -81.8893377936507, 24.5355612925638, 1.8)
    pt3dadd(112.459070795133, -82.6313151255061, 24.5212017417338, 1.8)
    pt3dadd(113.129341965863, -83.3732924573616, 24.5068421909037, 1.8)
    pt3dadd(113.799613136594, -84.1152697892171, 24.4924826400737, 1.8)
    pt3dadd(114.469884307325, -84.8572471210726, 24.4781230892437, 1.8)
    pt3dadd(115.140155478055, -85.5992244529281, 24.4637635384136, 1.8)
    pt3dadd(115.79466897394, -86.3476150166665, 24.5222406341018, 1.8)
    pt3dadd(116.426356680291, -87.1052954713705, 24.6862252986417, 1.8)
    pt3dadd(117.058044386642, -87.8629759260745, 24.8502099631817, 1.8)
    pt3dadd(117.689732092994, -88.6206563807785, 25.0141946277216, 1.8)
    pt3dadd(118.321419799345, -89.3783368354824, 25.1781792922615, 1.8)
    pt3dadd(118.953107505696, -90.1360172901864, 25.3421639568014, 1.8)
    pt3dadd(119.584795212047, -90.8936977448904, 25.5061486213414, 1.8)
    pt3dadd(120.216482918399, -91.6513781995944, 25.6701332858813, 1.8)
    pt3dadd(120.84817062475, -92.4090586542984, 25.8341179504212, 1.8)
    pt3dadd(121.510909335989, -93.1373053441684, 25.9971698895163, 1.8)
    pt3dadd(122.238894553186, -93.8037037840532, 26.1582619217899, 1.8)
    pt3dadd(122.966879770383, -94.4701022239379, 26.3193539540636, 1.8)
    pt3dadd(123.694864987579, -95.1365006638228, 26.4804459863372, 1.8)
    pt3dadd(124.422850204776, -95.8028991037075, 26.6415380186109, 1.8)
    pt3dadd(125.150835421973, -96.4692975435923, 26.8026300508845, 1.8)
    pt3dadd(125.87882063917, -97.1356959834771, 26.9637220831582, 1.8)
    pt3dadd(126.6065548984, -97.8022214436066, 27.1251737847549, 1.8)
    pt3dadd(127.237978858754, -98.5174935441376, 27.4246560120971, 1.8)
    pt3dadd(127.869402819107, -99.2327656446686, 27.7241382394393, 1.8)
    pt3dadd(128.50082677946, -99.9480377451996, 28.0236204667814, 1.8)
    pt3dadd(129.132250739813, -100.663309845731, 28.3231026941236, 1.8)
    pt3dadd(129.763674700167, -101.378581946262, 28.6225849214657, 1.8)
    pt3dadd(130.39509866052, -102.093854046793, 28.9220671488079, 1.8)
    pt3dadd(131.026522620873, -102.809126147324, 29.22154937615, 1.8)
    pt3dadd(131.657946581226, -103.524398247855, 29.5210316034922, 1.8)
    pt3dadd(132.28937054158, -104.239670348386, 29.8205138308343, 1.8)
    pt3dadd(132.920794501933, -104.954942448917, 30.1199960581765, 1.8)
    pt3dadd(133.552218462286, -105.670214549448, 30.4194782855186, 1.8)
    pt3dadd(134.183642422639, -106.385486649979, 30.7189605128608, 1.8)
    pt3dadd(134.881795165745, -107.074147959097, 30.9033431747407, 1.8)
    pt3dadd(135.595648459009, -107.75654804108, 31.0606441722132, 1.8)
    pt3dadd(136.309501752273, -108.438948123063, 31.2179451696857, 1.8)
    pt3dadd(137.023355045537, -109.121348205045, 31.3752461671582, 1.8)
    pt3dadd(137.737208338801, -109.803748287028, 31.5325471646307, 1.8)
    pt3dadd(138.500150132651, -110.421406654667, 31.7032267635467, 1.8)
    pt3dadd(139.315845885682, -110.969489017437, 31.8882839495966, 1.8)
    pt3dadd(140.131541638712, -111.517571380207, 32.0733411356465, 1.8)
    pt3dadd(140.947237391743, -112.065653742977, 32.2583983216963, 1.8)
    pt3dadd(141.762933144773, -112.613736105747, 32.4434555077462, 1.8)
    pt3dadd(142.578628897803, -113.161818468517, 32.628512693796, 1.8)
    pt3dadd(143.394324650834, -113.709900831287, 32.8135698798459, 1.8)
    pt3dadd(144.210020403864, -114.257983194057, 32.9986270658957, 1.8)
    pt3dadd(145.023962786609, -114.808718228799, 33.1831985834439, 1.8)
    pt3dadd(145.817218592297, -115.390749963157, 33.3620400969166, 1.8)
    pt3dadd(146.610474397986, -115.972781697515, 33.5408816103893, 1.8)
    pt3dadd(147.403730203674, -116.554813431874, 33.719723123862, 1.8)
  }
  adendMML[7] {pt3dclear()
    pt3dadd(147.403730203674, -116.554813431874, 33.719723123862, 1.8)
    pt3dadd(148.196986009363, -117.136845166232, 33.8985646373348, 1.8)
    pt3dadd(148.990241815052, -117.71887690059, 34.0774061508075, 1.8)
    pt3dadd(149.78349762074, -118.300908634949, 34.2562476642802, 1.8)
    pt3dadd(150.576753426429, -118.882940369307, 34.4350891777529, 1.8)
    pt3dadd(151.370009232117, -119.464972103665, 34.6139306912256, 1.8)
    pt3dadd(152.145079573448, -120.072025981094, 34.7877921237905, 1.8)
    pt3dadd(152.910446785653, -120.692430800816, 34.9589963589829, 1.8)
    pt3dadd(153.675813997857, -121.312835620538, 35.1302005941753, 1.8)
    pt3dadd(154.441181210062, -121.93324044026, 35.3014048293677, 1.8)
    pt3dadd(155.206548422266, -122.553645259982, 35.4726090645601, 1.8)
    pt3dadd(155.971915634471, -123.174050079704, 35.6438132997525, 1.8)
    pt3dadd(156.737282846675, -123.794454899426, 35.8150175349449, 1.8)
    pt3dadd(157.498662063283, -124.413081674169, 35.9993228046056, 1.8)
    pt3dadd(158.184043111581, -124.997824720018, 36.4332909934918, 1.8)
    pt3dadd(158.869424159878, -125.582567765868, 36.8672591823779, 1.8)
    pt3dadd(159.554805208176, -126.167310811718, 37.301227371264, 1.8)
    pt3dadd(160.240186256473, -126.752053857567, 37.7351955601502, 1.8)
    pt3dadd(160.925567304771, -127.336796903417, 38.1691637490363, 1.8)
    pt3dadd(161.610948353068, -127.921539949266, 38.6031319379224, 1.8)
    pt3dadd(162.296329401366, -128.506282995116, 39.0371001268086, 1.8)
    pt3dadd(162.981710449664, -129.091026040965, 39.4710683156947, 1.8)
    pt3dadd(163.785132921773, -129.674606535925, 39.5674671723983, 1.8)
    pt3dadd(164.59285050285, -130.258144729778, 39.6515830777534, 1.8)
    pt3dadd(165.400568083926, -130.841682923632, 39.7356989831086, 1.8)
    pt3dadd(166.208285665003, -131.425221117485, 39.8198148884638, 1.8)
    pt3dadd(167.01600324608, -132.008759311339, 39.903930793819, 1.8)
    pt3dadd(167.823720827157, -132.592297505192, 39.9880466991742, 1.8)
    pt3dadd(168.631438408233, -133.175835699046, 40.0721626045294, 1.8)
    pt3dadd(169.43915598931, -133.759373892899, 40.1562785098846, 1.8)
    pt3dadd(170.246873570387, -134.342912086753, 40.2403944152398, 1.8)
    pt3dadd(171.005373974539, -134.994014243032, 40.2505843221546, 1.8)
    pt3dadd(171.761347627709, -135.648585052312, 40.2569789567523, 1.8)
    pt3dadd(172.51732128088, -136.303155861591, 40.2633735913499, 1.8)
    pt3dadd(173.27329493405, -136.95772667087, 40.2697682259476, 1.8)
    pt3dadd(174.029268587221, -137.612297480149, 40.2761628605453, 1.8)
    pt3dadd(174.785242240391, -138.266868289428, 40.282557495143, 1.8)
    pt3dadd(175.534274739379, -138.927376829789, 40.2999617949221, 1.8)
    pt3dadd(176.202723862586, -139.656819498735, 40.4451828760492, 1.8)
    pt3dadd(176.871172985793, -140.386262167682, 40.5904039571763, 1.8)
    pt3dadd(177.539622109, -141.115704836628, 40.7356250383034, 1.8)
    pt3dadd(178.208071232207, -141.845147505575, 40.8808461194305, 1.8)
    pt3dadd(178.876520355414, -142.574590174522, 41.0260672005577, 1.8)
    pt3dadd(179.544969478621, -143.304032843468, 41.1712882816848, 1.8)
    pt3dadd(180.213418601828, -144.033475512415, 41.3165093628119, 1.8)
    pt3dadd(180.874410185445, -144.771371580897, 41.4418100169831, 1.8)
    pt3dadd(181.494131580673, -145.556048948642, 41.4568705895256, 1.8)
    pt3dadd(182.113852975901, -146.340726316387, 41.471931162068, 1.8)
    pt3dadd(182.733574371129, -147.125403684132, 41.4869917346104, 1.8)
    pt3dadd(183.353295766357, -147.910081051877, 41.5020523071528, 1.8)
    pt3dadd(183.973017161585, -148.694758419622, 41.5171128796952, 1.8)
    pt3dadd(184.592738556813, -149.479435787367, 41.5321734522376, 1.8)
    pt3dadd(185.212459952041, -150.264113155112, 41.5472340247801, 1.8)
    pt3dadd(185.832181347269, -151.048790522857, 41.5622945973225, 1.8)
    pt3dadd(186.451902742497, -151.833467890602, 41.5773551698649, 1.8)
    pt3dadd(187.083823555312, -152.539431624733, 41.8547488700106, 1.8)
    pt3dadd(187.719857841655, -153.218854219029, 42.2205976433544, 1.8)
    pt3dadd(188.355892127997, -153.898276813326, 42.5864464166982, 1.8)
    pt3dadd(188.991926414339, -154.577699407622, 42.952295190042, 1.8)
    pt3dadd(189.627960700681, -155.257122001918, 43.3181439633857, 1.8)
    pt3dadd(190.263994987023, -155.936544596214, 43.6839927367295, 1.8)
    pt3dadd(190.900029273365, -156.61596719051, 44.0498415100733, 1.8)
    pt3dadd(191.474868671108, -157.424698486132, 44.04251776159, 1.8)
    pt3dadd(192.043784975671, -158.245945655291, 43.9990744013338, 1.8)
    pt3dadd(192.612701280234, -159.06719282445, 43.9556310410777, 1.8)
    pt3dadd(193.181617584797, -159.888439993609, 43.9121876808215, 1.8)
    pt3dadd(193.75053388936, -160.709687162769, 43.8687443205654, 1.8)
    pt3dadd(194.319450193923, -161.530934331928, 43.8253009603093, 1.8)
    pt3dadd(194.888366498487, -162.352181501087, 43.7818576000531, 1.8)
    pt3dadd(195.45728280305, -163.173428670246, 43.738414239797, 1.8)
    pt3dadd(196.026199107613, -163.994675839405, 43.6949708795409, 1.8)
    pt3dadd(196.582702983879, -164.822407286193, 43.6779175229337, 1.8)
    pt3dadd(197.071435464737, -165.685542646913, 43.8049526016696, 1.8)
    pt3dadd(197.560167945595, -166.548678007633, 43.9319876804055, 1.8)
    pt3dadd(198.048900426453, -167.411813368353, 44.0590227591414, 1.8)
    pt3dadd(198.53763290731, -168.274948729072, 44.1860578378773, 1.8)
    pt3dadd(199.026365388168, -169.138084089792, 44.3130929166132, 1.8)
    pt3dadd(199.515097869026, -170.001219450512, 44.4401279953491, 1.8)
    pt3dadd(200.003830349884, -170.864354811232, 44.567163074085, 1.8)
    pt3dadd(200.492562830742, -171.727490171952, 44.6941981528209, 1.8)
    pt3dadd(200.9812953116, -172.590625532672, 44.8212332315568, 1.8)
    pt3dadd(201.470027792457, -173.453760893392, 44.9482683102927, 1.8)
    pt3dadd(201.958760273315, -174.316896254112, 45.0753033890286, 1.8)
    pt3dadd(202.447492754173, -175.180031614832, 45.2023384677645, 1.8)
    pt3dadd(202.936225235031, -176.043166975552, 45.3293735465004, 1.8)
    pt3dadd(203.409791259311, -176.920726443415, 45.3256906690306, 1.8)
    pt3dadd(203.878501460981, -177.802904056937, 45.2801560113433, 1.8)
    pt3dadd(204.347211662651, -178.68508167046, 45.2346213536559, 1.8)
    pt3dadd(204.815921864321, -179.567259283982, 45.1890866959686, 1.8)
    pt3dadd(205.284632065991, -180.449436897504, 45.1435520382812, 1.8)
    pt3dadd(205.753342267661, -181.331614511026, 45.0980173805938, 1.8)
    pt3dadd(206.222052469331, -182.213792124548, 45.0524827229065, 1.8)
    pt3dadd(206.690762671001, -183.095969738071, 45.0069480652191, 1.8)
    pt3dadd(207.159472872671, -183.978147351593, 44.9614134075318, 1.8)
    pt3dadd(207.628183074341, -184.860324965115, 44.9158787498444, 1.8)
    pt3dadd(208.096893276011, -185.742502578637, 44.8703440921571, 1.8)
    pt3dadd(208.565603477681, -186.62468019216, 44.8248094344697, 1.8)
    pt3dadd(209.034313679351, -187.506857805682, 44.7792747767824, 1.8)
    pt3dadd(209.503023881021, -188.389035419204, 44.733740119095, 1.8)
    pt3dadd(209.971734082691, -189.271213032726, 44.6882054614077, 1.8)
    pt3dadd(210.482470078486, -190.124762216626, 44.7831894501758, 1.8)
    pt3dadd(210.996180602901, -190.976285119166, 44.8881191578612, 1.8)
    pt3dadd(211.509891127316, -191.827808021706, 44.9930488655466, 1.8)
    pt3dadd(212.023601651732, -192.679330924246, 45.0979785732321, 1.8)
    pt3dadd(212.537312176147, -193.530853826786, 45.2029082809175, 1.8)
    pt3dadd(213.051022700562, -194.382376729326, 45.3078379886029, 1.8)
    pt3dadd(213.564733224978, -195.233899631866, 45.4127676962883, 1.8)
    pt3dadd(214.078443749393, -196.085422534406, 45.5176974039737, 1.8)
    pt3dadd(214.592154273808, -196.936945436946, 45.6226271116592, 1.8)
    pt3dadd(215.105864798224, -197.788468339486, 45.7275568193446, 1.8)
    pt3dadd(215.667006280165, -198.607752085292, 45.8447179032573, 1.8)
    pt3dadd(216.230460387844, -199.425463923054, 45.9624753612885, 1.8)
    pt3dadd(216.793914495524, -200.243175760817, 46.0802328193197, 1.8)
    pt3dadd(217.357368603204, -201.060887598579, 46.1979902773509, 1.8)
    pt3dadd(217.920822710883, -201.878599436342, 46.3157477353821, 1.8)
    pt3dadd(218.484276818563, -202.696311274104, 46.4335051934133, 1.8)
    pt3dadd(219.047730926243, -203.514023111867, 46.5512626514445, 1.8)
    pt3dadd(219.611185033922, -204.331734949629, 46.6690201094757, 1.8)
    pt3dadd(220.211525925089, -205.121089935845, 46.7963651903097, 1.8)
    pt3dadd(220.816652023169, -205.906766276507, 46.9249540434271, 1.8)
    pt3dadd(221.421778121249, -206.692442617169, 47.0535428965445, 1.8)
    pt3dadd(222.02690421933, -207.478118957831, 47.1821317496619, 1.8)
    pt3dadd(222.63203031741, -208.263795298493, 47.3107206027793, 1.8)
    pt3dadd(223.388411576376, -208.832435923144, 47.534230731609, 1.8)
    pt3dadd(224.249299649697, -209.251119937068, 47.8233248714636, 1.8)
    pt3dadd(225.110187723018, -209.669803950992, 48.1124190113183, 1.8)
    pt3dadd(225.971075796339, -210.088487964916, 48.401513151173, 1.8)
    pt3dadd(226.83196386966, -210.50717197884, 48.6906072910277, 1.8)
  }
  GCL[4] {pt3dclear()
    pt3dadd(1.1866120107237, 24.3840493805173, -4.4771543445693, 2.67135932950467)
    pt3dadd(0.972959124467093, 23.6833119074816, -4.18907572697427, 2.67135932950467)
    pt3dadd(0.379711516266394, 23.1102788425208, -3.62366403464224, 2.62484776991981)
    pt3dadd(-0.213536091934306, 22.53724577756, -3.05825234231021, 2.57833621033495)
    pt3dadd(-0.806783700135005, 21.9642127125992, -2.49284064997817, 2.5318246507501)
    pt3dadd(-1.4000313083357, 21.3911796476384, -1.92742895764614, 2.48531309116524)
    pt3dadd(-1.9932789165364, 20.8181465826776, -1.36201726531411, 2.43880153158038)
  }
}
proc shape3d_13() {
  GCL[4] {
    pt3dadd(-2.5865265247371, 20.2451135177168, -0.796605572982079, 2.39228997199553)
    pt3dadd(-3.1797741329378, 19.672080452756, -0.231193880650048, 2.34577841241067)
    pt3dadd(-3.7730217411385, 19.0990473877951, 0.334217811681983, 2.29926685282581)
    pt3dadd(-4.3662693493392, 18.5260143228343, 0.899629504014015, 2.25275529324096)
    pt3dadd(-4.84731147715306, 17.6734574749315, 0.806310028122203, 2.25)
    pt3dadd(-5.32128812549301, 16.803299262603, 0.671510835447672, 2.25)
    pt3dadd(-5.79526477383295, 15.9331410502745, 0.536711642773141, 2.25)
    pt3dadd(-6.26924142217289, 15.062982837946, 0.40191245009861, 2.25)
    pt3dadd(-6.88045038394059, 14.2744733470572, 0.451334289250603, 2.17748671035907)
    pt3dadd(-7.49681709442621, 13.4890325473375, 0.507679904348533, 2.1022480762469)
    pt3dadd(-8.11318380491183, 12.7035917476178, 0.564025519446462, 2.02700944213472)
    pt3dadd(-8.72955051539744, 11.918150947898, 0.620371134544392, 1.95177080802255)
    pt3dadd(-9.34591722588306, 11.1327101481783, 0.676716749642322, 1.87653217391037)
    pt3dadd(-9.96228393636867, 10.3472693484586, 0.733062364740251, 1.80129353979819)
    pt3dadd(-10.3931785673348, 9.45378171269451, 0.612012056155203, 1.8)
    pt3dadd(-10.820828689405, 8.55840398694153, 0.487858516862968, 1.8)
    pt3dadd(-11.2484788114751, 7.66302626118856, 0.363704977570733, 1.8)
    pt3dadd(-11.6761289335453, 6.76764853543558, 0.239551438278498, 1.8)
    pt3dadd(-12.1037790556155, 5.8722708096826, 0.115397898986264, 1.8)
    pt3dadd(-12.5314291776857, 4.97689308392962, -0.00875564030597098, 1.8)
    pt3dadd(-12.9590792997558, 4.08151535817665, -0.132909179598206, 1.8)
    pt3dadd(-13.3297919394794, 3.16456068139941, -0.276082443941893, 1.8)
    pt3dadd(-13.6827668371105, 2.24088413395572, -0.425180925975697, 1.8)
    pt3dadd(-14.0357417347416, 1.31720758651202, -0.574279408009502, 1.8)
    pt3dadd(-14.3887166323727, 0.393531039068314, -0.723377890043307, 1.8)
  }
  adendIML[10] {pt3dclear()
    pt3dadd(-14.3887166323727, 0.393531039068314, -0.723377890043307, 1.8)
    pt3dadd(-14.7070633436157, -0.543093807846539, -0.866852776628043, 1.8)
    pt3dadd(-15.0054951922012, -1.48716529382956, -1.00709350218122, 1.8)
    pt3dadd(-15.3039270407867, -2.43123677981257, -1.14733422773441, 1.8)
    pt3dadd(-15.6023588893721, -3.37530826579558, -1.28757495328759, 1.8)
    pt3dadd(-15.9007907379576, -4.3193797517786, -1.42781567884077, 1.8)
    pt3dadd(-16.2679220428797, -5.23114606136172, -1.57019595046223, 1.8)
    pt3dadd(-16.7973342708481, -6.0666015218507, -1.71763022875818, 1.8)
    pt3dadd(-17.3267464988165, -6.90205698233969, -1.86506450705414, 1.8)
    pt3dadd(-17.8561587267849, -7.73751244282868, -2.01249878535009, 1.8)
    pt3dadd(-18.3855709547533, -8.57296790331767, -2.15993306364605, 1.8)
    pt3dadd(-18.9149831827218, -9.40842336380666, -2.30736734194201, 1.8)
    pt3dadd(-19.4443954106902, -10.2438788242956, -2.45480162023796, 1.8)
    pt3dadd(-19.7536481906714, -11.1875670408359, -2.5513775778878, 1.8)
    pt3dadd(-20.047158797932, -12.1389942790504, -2.64431698723046, 1.8)
    pt3dadd(-20.3406694051926, -13.0904215172649, -2.73725639657311, 1.8)
    pt3dadd(-20.6341800124532, -14.0418487554795, -2.83019580591577, 1.8)
    pt3dadd(-20.9276906197138, -14.993275993694, -2.92313521525842, 1.8)
    pt3dadd(-21.2835057428901, -15.9256947714273, -2.98347350778683, 1.8)
    pt3dadd(-21.6434319664494, -16.8568592951468, -3.04166064863949, 1.8)
    pt3dadd(-22.0033581900087, -17.7880238188663, -3.09984778949214, 1.8)
    pt3dadd(-22.363284413568, -18.7191883425858, -3.1580349303448, 1.8)
    pt3dadd(-22.7232106371272, -19.6503528663053, -3.21622207119745, 1.8)
    pt3dadd(-23.0831368606865, -20.5815173900248, -3.27440921205011, 1.8)
    pt3dadd(-23.4430630842458, -21.5126819137442, -3.33259635290276, 1.8)
    pt3dadd(-23.7890523123443, -22.4475956826882, -3.40660604877663, 1.8)
    pt3dadd(-24.1122432804858, -23.3886425000004, -3.50649841954799, 1.8)
    pt3dadd(-24.4354342486273, -24.3296893173126, -3.60639079031935, 1.8)
    pt3dadd(-24.7586252167688, -25.2707361346248, -3.70628316109071, 1.8)
    pt3dadd(-25.0818161849103, -26.211782951937, -3.80617553186207, 1.8)
    pt3dadd(-25.4050071530518, -27.1528297692492, -3.90606790263343, 1.8)
    pt3dadd(-25.9223270549821, -27.8652305005055, -4.29736421949945, 1.8)
    pt3dadd(-26.5192966127735, -28.4838194453736, -4.80822140537165, 1.8)
    pt3dadd(-27.116266170565, -29.1024083902416, -5.31907859124386, 1.8)
    pt3dadd(-27.7132357283565, -29.7209973351097, -5.82993577711606, 1.8)
    pt3dadd(-28.310205286148, -30.3395862799778, -6.34079296298826, 1.8)
    pt3dadd(-28.7583876123722, -31.1441585504973, -6.61118295728751, 1.8)
    pt3dadd(-29.1043684965644, -32.0764821332448, -6.71639685763528, 1.8)
    pt3dadd(-29.4503493807567, -33.0088057159923, -6.82161075798305, 1.8)
    pt3dadd(-29.796330264949, -33.9411292987399, -6.92682465833083, 1.8)
    pt3dadd(-30.1423111491412, -34.8734528814874, -7.0320385586786, 1.8)
    pt3dadd(-30.4882920333335, -35.8057764642349, -7.13725245902637, 1.8)
    pt3dadd(-30.8342729175257, -36.7381000469824, -7.24246635937415, 1.8)
    pt3dadd(-31.180253801718, -37.6704236297299, -7.34768025972192, 1.8)
    pt3dadd(-31.5262346859103, -38.6027472124774, -7.45289416006969, 1.8)
    pt3dadd(-31.8722155701026, -39.5350707952249, -7.55810806041747, 1.8)
    pt3dadd(-32.245434724577, -40.4555108900871, -7.66964875998816, 1.8)
    pt3dadd(-32.6498162736471, -41.3623554836631, -7.78842773907767, 1.8)
    pt3dadd(-33.0541978227172, -42.2692000772392, -7.90720671816719, 1.8)
    pt3dadd(-33.4585793717873, -43.1760446708152, -8.0259856972567, 1.8)
    pt3dadd(-33.8629609208575, -44.0828892643913, -8.14476467634622, 1.8)
    pt3dadd(-34.2673424699276, -44.9897338579673, -8.26354365543573, 1.8)
    pt3dadd(-34.6717240189977, -45.8965784515434, -8.38232263452525, 1.8)
    pt3dadd(-35.0164890145069, -46.8262865228405, -8.487181942373, 1.8)
    pt3dadd(-35.2805039719968, -47.7869629508264, -8.57318719182839, 1.8)
    pt3dadd(-35.5445189294868, -48.7476393788122, -8.65919244128378, 1.8)
    pt3dadd(-35.8085338869767, -49.7083158067981, -8.74519769073917, 1.8)
    pt3dadd(-36.2033749434103, -50.6129054668138, -8.86161342583057, 1.8)
    pt3dadd(-36.6739567452655, -51.4850241317555, -8.99563507342183, 1.8)
    pt3dadd(-37.1445385471206, -52.3571427966972, -9.12965672101309, 1.8)
    pt3dadd(-37.6151203489758, -53.2292614616389, -9.26367836860435, 1.8)
    pt3dadd(-38.0857021508309, -54.1013801265806, -9.39770001619561, 1.8)
    pt3dadd(-38.556283952686, -54.9734987915223, -9.53172166378687, 1.8)
    pt3dadd(-39.0268657545412, -55.845617456464, -9.66574331137813, 1.8)
    pt3dadd(-39.4974475563963, -56.7177361214057, -9.79976495896939, 1.8)
    pt3dadd(-39.9680293582515, -57.5898547863474, -9.93378660656066, 1.8)
    pt3dadd(-40.3078585087888, -58.521255635535, -10.0374888684996, 1.8)
    pt3dadd(-40.6097039413744, -59.4698779922275, -10.1323833320385, 1.8)
    pt3dadd(-40.91154937396, -60.41850034892, -10.2272777955773, 1.8)
    pt3dadd(-41.2133948065456, -61.3671227056126, -10.3221722591162, 1.8)
    pt3dadd(-41.5152402391312, -62.3157450623051, -10.4170667226551, 1.8)
    pt3dadd(-41.8170856717168, -63.2643674189976, -10.5119611861939, 1.8)
    pt3dadd(-42.1189311043024, -64.2129897756902, -10.6068556497328, 1.8)
    pt3dadd(-42.420776536888, -65.1616121323827, -10.7017501132716, 1.8)
    pt3dadd(-42.7596760603363, -66.0963208266775, -10.805303024819, 1.8)
    pt3dadd(-43.1153596347567, -67.0247271771972, -10.9127778739804, 1.8)
    pt3dadd(-43.4710432091771, -67.9531335277168, -11.0202527231419, 1.8)
    pt3dadd(-43.8267267835975, -68.8815398782365, -11.1277275723034, 1.8)
    pt3dadd(-44.182410358018, -69.8099462287561, -11.2352024214649, 1.8)
    pt3dadd(-44.5380939324384, -70.7383525792758, -11.3426772706264, 1.8)
    pt3dadd(-44.8937775068588, -71.6667589297954, -11.4501521197879, 1.8)
    pt3dadd(-45.2494610812793, -72.5951652803151, -11.5576269689494, 1.8)
    pt3dadd(-45.6051446556997, -73.5235716308347, -11.6651018181109, 1.8)
    pt3dadd(-45.9608282301201, -74.4519779813544, -11.7725766672724, 1.8)
    pt3dadd(-46.3165118045406, -75.380384331874, -11.8800515164339, 1.8)
    pt3dadd(-46.7226752539269, -76.2861304903575, -11.9992370237794, 1.8)
    pt3dadd(-47.135939432216, -77.1886891631223, -12.12006980559, 1.8)
    pt3dadd(-47.549203610505, -78.0912478358871, -12.2409025874007, 1.8)
    pt3dadd(-47.9624677887941, -78.9938065086519, -12.3617353692113, 1.8)
    pt3dadd(-48.3757319670832, -79.8963651814167, -12.482568151022, 1.8)
    pt3dadd(-48.7889961453722, -80.7989238541815, -12.6034009328326, 1.8)
    pt3dadd(-49.2022603236613, -81.7014825269463, -12.7242337146432, 1.8)
    pt3dadd(-49.6155245019504, -82.6040411997111, -12.8450664964539, 1.8)
    pt3dadd(-49.9779036319087, -83.5277033115808, -12.9540547399719, 1.8)
    pt3dadd(-50.2817640713826, -84.4756347454153, -13.0494215584738, 1.8)
    pt3dadd(-50.5856245108565, -85.4235661792498, -13.1447883769757, 1.8)
    pt3dadd(-50.8894849503304, -86.3714976130843, -13.2401551954776, 1.8)
    pt3dadd(-51.1933453898043, -87.3194290469188, -13.3355220139796, 1.8)
    pt3dadd(-51.4972058292782, -88.2673604807534, -13.4308888324815, 1.8)
    pt3dadd(-51.8010662687521, -89.2152919145879, -13.5262556509834, 1.8)
    pt3dadd(-52.0841502875799, -90.1700233711976, -13.6167446592198, 1.8)
    pt3dadd(-52.3604830792093, -91.1269644720714, -13.7056486396069, 1.8)
    pt3dadd(-52.6368158708388, -92.0839055729452, -13.7945526199941, 1.8)
    pt3dadd(-52.9131486624682, -93.0408466738191, -13.8834566003812, 1.8)
    pt3dadd(-53.1894814540976, -93.9977877746929, -13.9723605807684, 1.8)
    pt3dadd(-53.465814245727, -94.9547288755667, -14.0612645611555, 1.8)
    pt3dadd(-53.7421470373565, -95.9116699764406, -14.1501685415426, 1.8)
    pt3dadd(-54.0184798289859, -96.8686110773144, -14.2390725219298, 1.8)
    pt3dadd(-54.4192884938918, -97.7814327554334, -14.2834716211607, 1.8)
    pt3dadd(-54.8466166023227, -98.6848548406089, -14.318389005973, 1.8)
    pt3dadd(-55.2739447107536, -99.5882769257843, -14.3533063907853, 1.8)
    pt3dadd(-55.7012728191845, -100.49169901096, -14.3882237755977, 1.8)
    pt3dadd(-56.1286009276154, -101.395121096135, -14.42314116041, 1.8)
    pt3dadd(-56.5559290360464, -102.298543181311, -14.4580585452223, 1.8)
    pt3dadd(-56.9832571444773, -103.201965266486, -14.4929759300347, 1.8)
    pt3dadd(-57.4038658230096, -104.105175232358, -14.5666301527565, 1.8)
    pt3dadd(-57.8163230855643, -105.008127873916, -14.6872764691872, 1.8)
    pt3dadd(-58.2287803481189, -105.911080515475, -14.807922785618, 1.8)
    pt3dadd(-58.6412376106735, -106.814033157033, -14.9285691020487, 1.8)
    pt3dadd(-59.0536948732281, -107.716985798592, -15.0492154184795, 1.8)
    pt3dadd(-59.4661521357828, -108.619938440151, -15.1698617349102, 1.8)
    pt3dadd(-59.7832312070373, -109.548331390621, -15.2679829999156, 1.8)
    pt3dadd(-59.8405532333252, -110.546009566318, -15.3047585766014, 1.8)
  }
  adendIML[11] {pt3dclear()
    pt3dadd(-59.8405532333252, -110.546009566318, -15.3047585766014, 1.8)
    pt3dadd(-60.1125530370089, -111.497802103618, -15.224879221739, 1.8)
    pt3dadd(-60.4322344760699, -112.439403077052, -15.1190898822545, 1.8)
    pt3dadd(-60.7519159151308, -113.381004050485, -15.0133005427701, 1.8)
    pt3dadd(-61.0715973541918, -114.322605023919, -14.9075112032856, 1.8)
    pt3dadd(-61.3912787932528, -115.264205997353, -14.8017218638011, 1.8)
    pt3dadd(-61.7109602323138, -116.205806970787, -14.6959325243166, 1.8)
  }
  adendMML[8] {pt3dclear()
    pt3dadd(-61.7109602323138, -116.205806970787, -14.6959325243166, 1.8)
    pt3dadd(-62.0306416713747, -117.14740794422, -14.5901431848321, 1.8)
    pt3dadd(-62.3503231104357, -118.089008917654, -14.4843538453476, 1.8)
    pt3dadd(-62.6700045494967, -119.030609891088, -14.3785645058631, 1.8)
    pt3dadd(-62.9896859885576, -119.972210864521, -14.2727751663786, 1.8)
    pt3dadd(-63.2492510287309, -120.930093366138, -14.2281394429952, 1.8)
    pt3dadd(-63.4054919260095, -121.915959495778, -14.2886105637585, 1.8)
    pt3dadd(-63.5617328232881, -122.901825625418, -14.3490816845218, 1.8)
    pt3dadd(-63.7179737205667, -123.887691755058, -14.409552805285, 1.8)
    pt3dadd(-63.8742146178453, -124.873557884698, -14.4700239260483, 1.8)
    pt3dadd(-64.0304555151239, -125.859424014338, -14.5304950468116, 1.8)
    pt3dadd(-64.1866964124025, -126.845290143978, -14.5909661675748, 1.8)
    pt3dadd(-64.342937309681, -127.831156273618, -14.6514372883381, 1.8)
    pt3dadd(-64.4991782069597, -128.817022403258, -14.7119084091014, 1.8)
    pt3dadd(-64.6554191042383, -129.802888532898, -14.7723795298646, 1.8)
    pt3dadd(-64.8116600015169, -130.788754662538, -14.8328506506279, 1.8)
    pt3dadd(-65.157036262085, -131.719926749636, -14.943856830236, 1.8)
    pt3dadd(-65.5084156614474, -132.649362852923, -15.0564669878995, 1.8)
    pt3dadd(-65.8597950608098, -133.578798956211, -15.1690771455631, 1.8)
    pt3dadd(-66.2111744601722, -134.508235059499, -15.2816873032266, 1.8)
    pt3dadd(-66.5625538595347, -135.437671162787, -15.3942974608902, 1.8)
    pt3dadd(-66.749762194626, -136.41682765891, -15.4624099653184, 1.8)
    pt3dadd(-66.9287825355125, -137.39846394823, -15.5283031594898, 1.8)
    pt3dadd(-67.107802876399, -138.38010023755, -15.5941963536612, 1.8)
    pt3dadd(-67.2868232172855, -139.361736526871, -15.6600895478326, 1.8)
    pt3dadd(-67.465843558172, -140.343372816191, -15.725982742004, 1.8)
    pt3dadd(-67.6448638990585, -141.325009105512, -15.7918759361754, 1.8)
    pt3dadd(-67.823884239945, -142.306645394832, -15.8577691303468, 1.8)
    pt3dadd(-68.1396960744035, -143.247676946838, -15.7990553578246, 1.8)
    pt3dadd(-68.4984852306404, -144.175951251915, -15.7011924133505, 1.8)
    pt3dadd(-68.8572743868772, -145.104225556991, -15.6033294688764, 1.8)
    pt3dadd(-69.2160635431141, -146.032499862068, -15.5054665244023, 1.8)
    pt3dadd(-69.574852699351, -146.960774167145, -15.4076035799281, 1.8)
    pt3dadd(-69.9336418555879, -147.889048472222, -15.309740635454, 1.8)
    pt3dadd(-70.2924310118248, -148.817322777298, -15.2118776909799, 1.8)
    pt3dadd(-70.6512201680616, -149.745597082375, -15.1140147465058, 1.8)
    pt3dadd(-71.0100093242985, -150.673871387452, -15.0161518020316, 1.8)
    pt3dadd(-71.3106023381809, -151.595482132766, -15.2167001895976, 1.8)
    pt3dadd(-71.5985733675649, -152.515647638848, -15.4819701043096, 1.8)
    pt3dadd(-71.8865443969488, -153.435813144931, -15.7472400190217, 1.8)
    pt3dadd(-72.1745154263328, -154.355978651013, -16.0125099337337, 1.8)
    pt3dadd(-72.4624864557167, -155.276144157096, -16.2777798484457, 1.8)
    pt3dadd(-72.7504574851007, -156.196309663178, -16.5430497631577, 1.8)
    pt3dadd(-73.0384285144846, -157.116475169261, -16.8083196778697, 1.8)
    pt3dadd(-73.3263995438686, -158.036640675344, -17.0735895925817, 1.8)
    pt3dadd(-73.8464586810624, -158.888664047385, -17.0771054114444, 1.8)
    pt3dadd(-74.3730631507831, -159.738765679745, -17.0732392596676, 1.8)
    pt3dadd(-74.8996676205038, -160.588867312104, -17.0693731078909, 1.8)
    pt3dadd(-75.4262720902244, -161.438968944464, -17.0655069561142, 1.8)
    pt3dadd(-75.9528765599451, -162.289070576824, -17.0616408043375, 1.8)
    pt3dadd(-76.4794810296658, -163.139172209184, -17.0577746525608, 1.8)
    pt3dadd(-77.0060854993864, -163.989273841543, -17.0539085007841, 1.8)
    pt3dadd(-77.5326899691071, -164.839375473903, -17.0500423490074, 1.8)
    pt3dadd(-78.0592944388278, -165.689477106263, -17.0461761972306, 1.8)
    pt3dadd(-78.5858989085485, -166.539578738622, -17.0423100454539, 1.8)
    pt3dadd(-79.0766431651189, -167.401821661349, -16.9658154285533, 1.8)
    pt3dadd(-79.5147015153301, -168.281902595373, -16.7826149062384, 1.8)
    pt3dadd(-79.9527598655413, -169.161983529398, -16.5994143839235, 1.8)
    pt3dadd(-80.3908182157525, -170.042064463423, -16.4162138616087, 1.8)
    pt3dadd(-80.8288765659637, -170.922145397448, -16.2330133392938, 1.8)
    pt3dadd(-81.2669349161749, -171.802226331472, -16.0498128169789, 1.8)
    pt3dadd(-81.7049932663861, -172.682307265497, -15.8666122946641, 1.8)
    pt3dadd(-82.1430516165973, -173.562388199522, -15.6834117723492, 1.8)
    pt3dadd(-82.5477144228447, -174.467549398636, -15.7579918322319, 1.8)
    pt3dadd(-82.9468097479527, -175.376891811358, -15.8755473421043, 1.8)
    pt3dadd(-83.3459050730607, -176.286234224081, -15.9931028519767, 1.8)
    pt3dadd(-83.7450003981687, -177.195576636803, -16.1106583618491, 1.8)
    pt3dadd(-84.1440957232766, -178.104919049525, -16.2282138717215, 1.8)
    pt3dadd(-84.5431910483846, -179.014261462248, -16.3457693815939, 1.8)
    pt3dadd(-84.9422863734926, -179.92360387497, -16.4633248914662, 1.8)
    pt3dadd(-85.3413816986006, -180.832946287692, -16.5808804013386, 1.8)
    pt3dadd(-85.7404770237086, -181.742288700415, -16.698435911211, 1.8)
    pt3dadd(-86.194103374618, -182.620544966064, -16.8284903143092, 1.8)
    pt3dadd(-86.7272712784275, -183.453457496188, -16.9767761986991, 1.8)
    pt3dadd(-87.2604391822371, -184.286370026313, -17.125062083089, 1.8)
    pt3dadd(-87.7936070860466, -185.119282556437, -17.2733479674789, 1.8)
    pt3dadd(-88.3267749898562, -185.952195086561, -17.4216338518687, 1.8)
    pt3dadd(-88.8449710130873, -186.786987392757, -17.5414896866374, 1.8)
  }
  adendMML[9] {pt3dclear()
    pt3dadd(-88.8449710130873, -186.786987392757, -17.5414896866374, 1.8)
    pt3dadd(-89.024481704132, -187.631802841035, -17.021219230206, 1.8)
    pt3dadd(-89.2157180747884, -188.477499868782, -16.5229972035968, 1.8)
    pt3dadd(-89.4069544454448, -189.323196896528, -16.0247751769876, 1.8)
    pt3dadd(-89.5981908161012, -190.168893924275, -15.5265531503784, 1.8)
    pt3dadd(-89.7894271867577, -191.014590952022, -15.0283311237693, 1.8)
    pt3dadd(-89.980663557414, -191.860287979768, -14.5301090971601, 1.8)
    pt3dadd(-90.1718999280705, -192.705985007515, -14.0318870705509, 1.8)
    pt3dadd(-90.3631362987269, -193.551682035262, -13.5336650439417, 1.8)
    pt3dadd(-90.5543726693833, -194.397379063008, -13.0354430173325, 1.8)
    pt3dadd(-90.7456090400397, -195.243076090755, -12.5372209907234, 1.8)
    pt3dadd(-90.9368454106962, -196.088773118502, -12.0389989641142, 1.8)
    pt3dadd(-91.124334569682, -196.986069599721, -11.6890101112943, 1.8)
    pt3dadd(-91.3061663939898, -197.961268106009, -11.5628155749546, 1.8)
    pt3dadd(-91.4879982182976, -198.936466612298, -11.4366210386149, 1.8)
    pt3dadd(-91.6698300426054, -199.911665118586, -11.3104265022752, 1.8)
  }
}
proc shape3d_14() {
  adendMML[9] {
    pt3dadd(-91.8516618669131, -200.886863624874, -11.1842319659355, 1.8)
    pt3dadd(-91.9799340319595, -201.873067417931, -11.1486074964326, 1.8)
    pt3dadd(-92.0618888147411, -202.868788375234, -11.1913063110068, 1.8)
    pt3dadd(-92.1438435975227, -203.864509332538, -11.2340051255809, 1.8)
    pt3dadd(-92.2407034786651, -204.857818163722, -11.2802598803932, 1.8)
    pt3dadd(-92.4640217204444, -205.816634254477, -11.3195059432668, 1.8)
  }
  adendMML[10] {pt3dclear()
    pt3dadd(-92.4640217204444, -205.816634254477, -11.3195059432668, 1.8)
    pt3dadd(-92.5515188824668, -206.760439230539, -10.973585233125, 1.8)
    pt3dadd(-92.660268414554, -207.691175730319, -10.6244389783149, 1.8)
    pt3dadd(-92.7690179466413, -208.621912230099, -10.2752927235047, 1.8)
    pt3dadd(-92.8777674787285, -209.552648729879, -9.9261464686945, 1.8)
    pt3dadd(-92.9865170108157, -210.483385229659, -9.57700021388432, 1.8)
    pt3dadd(-93.0952665429029, -211.414121729439, -9.22785395907414, 1.8)
    pt3dadd(-93.2040160749902, -212.344858229219, -8.87870770426395, 1.8)
    pt3dadd(-93.3127656070774, -213.275594728999, -8.52956144945378, 1.8)
    pt3dadd(-93.4215151391646, -214.206331228779, -8.1804151946436, 1.8)
    pt3dadd(-93.5192932633538, -215.140878011226, -7.84212986294191, 1.8)
    pt3dadd(-93.5031793062172, -216.114978607312, -7.61658969115458, 1.8)
    pt3dadd(-93.4870653490806, -217.089079203399, -7.39104951936726, 1.8)
    pt3dadd(-93.470951391944, -218.063179799485, -7.16550934757993, 1.8)
    pt3dadd(-93.4548374348074, -219.037280395571, -6.9399691757926, 1.8)
    pt3dadd(-93.4387234776708, -220.011380991657, -6.71442900400527, 1.8)
    pt3dadd(-93.4226095205341, -220.985481587744, -6.48888883221794, 1.8)
    pt3dadd(-93.3908795290134, -221.954747698502, -6.2495548313063, 1.8)
    pt3dadd(-93.2828395936396, -222.900389418146, -5.94281534830467, 1.8)
    pt3dadd(-93.1747996582658, -223.846031137791, -5.63607586530304, 1.8)
    pt3dadd(-93.0667597228919, -224.791672857436, -5.32933638230141, 1.8)
    pt3dadd(-92.9587197875181, -225.73731457708, -5.02259689929979, 1.8)
    pt3dadd(-92.8506798521443, -226.682956296725, -4.71585741629816, 1.8)
    pt3dadd(-92.7426399167705, -227.628598016369, -4.40911793329653, 1.8)
    pt3dadd(-92.6345999813967, -228.574239736014, -4.1023784502949, 1.8)
    pt3dadd(-92.5265600460229, -229.519881455658, -3.79563896729328, 1.8)
    pt3dadd(-92.4004706065634, -230.466671059576, -3.50549580993818, 1.8)
    pt3dadd(-92.1693012077303, -231.420143375233, -3.31197254952988, 1.8)
    pt3dadd(-91.9381318088971, -232.37361569089, -3.11844928912156, 1.8)
    pt3dadd(-91.7069624100638, -233.327088006547, -2.92492602871324, 1.8)
  }
  adendOML[7] {pt3dclear()
    pt3dadd(-91.7069624100638, -233.327088006547, -2.92492602871324, 1.8)
    pt3dadd(-91.4757930112307, -234.280560322204, -2.73140276830493, 1.8)
    pt3dadd(-91.2446236123975, -235.234032637861, -2.53787950789662, 1.8)
    pt3dadd(-91.0134542135643, -236.187504953518, -2.3443562474883, 1.8)
    pt3dadd(-90.7822848147311, -237.140977269174, -2.15083298707998, 1.8)
    pt3dadd(-90.5511154158979, -238.094449584831, -1.95730972667167, 1.8)
    pt3dadd(-90.3199460170647, -239.047921900488, -1.76378646626336, 1.8)
    pt3dadd(-90.0267204759401, -239.992750516075, -1.67169938957889, 1.8)
    pt3dadd(-89.677451626137, -240.929772949498, -1.67121999499769, 1.8)
    pt3dadd(-89.328182776334, -241.866795382921, -1.6707406004165, 1.8)
    pt3dadd(-88.9789139265309, -242.803817816344, -1.6702612058353, 1.8)
    pt3dadd(-88.6296450767279, -243.740840249768, -1.66978181125411, 1.8)
    pt3dadd(-88.2803762269248, -244.677862683191, -1.66930241667291, 1.8)
    pt3dadd(-87.9311073771218, -245.614885116614, -1.66882302209172, 1.8)
    pt3dadd(-87.6064163601233, -246.554701400394, -1.61433660972619, 1.8)
    pt3dadd(-87.3399014338147, -247.501130768942, -1.43201479423505, 1.8)
    pt3dadd(-87.0733865075062, -248.447560137491, -1.24969297874391, 1.8)
    pt3dadd(-86.8068715811977, -249.393989506039, -1.06737116325277, 1.8)
    pt3dadd(-86.5403566548892, -250.340418874587, -0.885049347761621, 1.8)
    pt3dadd(-86.2738417285807, -251.286848243136, -0.702727532270487, 1.8)
    pt3dadd(-86.0165137141592, -252.225547148552, -0.476207724085802, 1.8)
    pt3dadd(-85.7649468810635, -253.159398222577, -0.221971023296057, 1.8)
    pt3dadd(-85.513380047968, -254.093249296602, 0.0322656774936885, 1.8)
    pt3dadd(-85.2618132148723, -255.027100370627, 0.286502378283434, 1.8)
    pt3dadd(-85.0102463817767, -255.960951444652, 0.540739079073184, 1.8)
    pt3dadd(-84.7586795486811, -256.894802518677, 0.794975779862929, 1.8)
    pt3dadd(-84.5071127155855, -257.828653592702, 1.04921248065267, 1.8)
    pt3dadd(-84.2555458824899, -258.762504666727, 1.30344918144242, 1.8)
    pt3dadd(-84.0039790493942, -259.696355740753, 1.55768588223216, 1.8)
    pt3dadd(-83.79570247864, -260.642333989298, 1.80275403603138, 1.8)
    pt3dadd(-83.6221297083239, -261.598034032578, 2.04047218990316, 1.8)
    pt3dadd(-83.4485569380078, -262.553734075858, 2.27819034377494, 1.8)
    pt3dadd(-83.2749841676918, -263.509434119137, 2.51590849764671, 1.8)
    pt3dadd(-83.1014113973758, -264.465134162417, 2.75362665151849, 1.8)
    pt3dadd(-82.9278386270597, -265.420834205696, 2.99134480539028, 1.8)
    pt3dadd(-82.7542658567436, -266.376534248976, 3.22906295926206, 1.8)
    pt3dadd(-82.5806930864276, -267.332234292256, 3.46678111313384, 1.8)
    pt3dadd(-82.4071203161115, -268.287934335535, 3.70449926700562, 1.8)
    pt3dadd(-82.2335475457954, -269.243634378815, 3.9422174208774, 1.8)
    pt3dadd(-82.057967054296, -270.202495785364, 4.12908514384787, 1.8)
    pt3dadd(-81.8709287002251, -271.179398773671, 4.02575457943394, 1.8)
    pt3dadd(-81.6838903461542, -272.156301761979, 3.92242401502, 1.8)
    pt3dadd(-81.4968519920833, -273.133204750286, 3.81909345060607, 1.8)
    pt3dadd(-81.3098136380123, -274.110107738594, 3.71576288619214, 1.8)
    pt3dadd(-81.1227752839415, -275.087010726902, 3.6124323217782, 1.8)
    pt3dadd(-80.9111971563384, -276.044576357654, 3.75369916382644, 1.8)
    pt3dadd(-80.6922146269029, -276.996307314932, 3.96876854045148, 1.8)
    pt3dadd(-80.4732320974674, -277.948038272209, 4.18383791707651, 1.8)
    pt3dadd(-80.254249568032, -278.899769229486, 4.39890729370156, 1.8)
    pt3dadd(-80.0352670385964, -279.851500186764, 4.6139766703266, 1.8)
    pt3dadd(-79.816284509161, -280.803231144041, 4.82904604695164, 1.8)
    pt3dadd(-79.5973019797255, -281.754962101319, 5.04411542357668, 1.8)
    pt3dadd(-79.4203039405681, -282.68419532926, 5.35859810212044, 1.8)
    pt3dadd(-79.2650652304813, -283.601768644392, 5.72460377727807, 1.8)
    pt3dadd(-79.1098265203945, -284.519341959524, 6.0906094524357, 1.8)
    pt3dadd(-78.9545878103077, -285.436915274657, 6.45661512759333, 1.8)
    pt3dadd(-78.7993491002209, -286.354488589789, 6.82262080275097, 1.8)
    pt3dadd(-78.5075061399303, -287.277740133505, 6.94330566076198, 1.8)
    pt3dadd(-78.1327579923096, -288.204437796969, 6.91510519294186, 1.8)
    pt3dadd(-77.7580098446889, -289.131135460432, 6.88690472512173, 1.8)
    pt3dadd(-77.3832616970682, -290.057833123897, 6.8587042573016, 1.8)
    pt3dadd(-77.0085135494474, -290.98453078736, 6.83050378948147, 1.8)
  }
  adendMML[11] {pt3dclear()
    pt3dadd(-92.4640217204444, -205.816634254477, -11.3195059432668, 1.8)
    pt3dadd(-93.180090144236, -206.373919110634, -10.8781848295039, 1.8)
    pt3dadd(-93.8749061979627, -206.944272443072, -10.4400892604094, 1.8)
    pt3dadd(-94.5697222516894, -207.51462577551, -10.0019936913148, 1.8)
    pt3dadd(-95.2645383054161, -208.084979107948, -9.56389812222028, 1.8)
    pt3dadd(-95.8046867910028, -208.848058959516, -9.28791618579861, 1.8)
    pt3dadd(-96.2566831246605, -209.720982507467, -9.10433025552743, 1.8)
    pt3dadd(-96.7086794583181, -210.593906055417, -8.92074432525625, 1.8)
    pt3dadd(-97.1606757919757, -211.466829603368, -8.73715839498507, 1.8)
    pt3dadd(-97.5731796556123, -212.358513021035, -8.56016642979328, 1.8)
    pt3dadd(-97.9166985546725, -213.282965950135, -8.39469272231428, 1.8)
    pt3dadd(-98.2602174537328, -214.207418879235, -8.22921901483528, 1.8)
    pt3dadd(-98.603736352793, -215.131871808335, -8.06374530735627, 1.8)
    pt3dadd(-98.9472552518533, -216.056324737435, -7.89827159987727, 1.8)
    pt3dadd(-99.2907741509135, -216.980777666535, -7.73279789239827, 1.8)
    pt3dadd(-99.6342930499738, -217.905230595635, -7.56732418491927, 1.8)
    pt3dadd(-100.020909196658, -218.777420240243, -7.2778987289282, 1.8)
    pt3dadd(-100.420584604066, -219.63377314594, -6.95091360752668, 1.8)
    pt3dadd(-100.820260011474, -220.490126051637, -6.62392848612516, 1.8)
    pt3dadd(-101.219935418881, -221.346478957334, -6.29694336472364, 1.8)
    pt3dadd(-101.619610826289, -222.202831863031, -5.96995824332212, 1.8)
    pt3dadd(-102.018054921405, -223.060489234159, -5.64525038632436, 1.8)
    pt3dadd(-102.382660952996, -223.953995012253, -5.38312471753195, 1.8)
    pt3dadd(-102.747266984587, -224.847500790347, -5.12099904873953, 1.8)
    pt3dadd(-103.111873016179, -225.741006568441, -4.85887337994712, 1.8)
    pt3dadd(-103.47647904777, -226.634512346535, -4.59674771115471, 1.8)
    pt3dadd(-103.841085079361, -227.528018124629, -4.33462204236229, 1.8)
    pt3dadd(-104.205691110953, -228.421523902723, -4.07249637356988, 1.8)
    pt3dadd(-104.621113631107, -229.31559400839, -3.91865222049942, 1.8)
    pt3dadd(-105.052145137221, -230.209837455061, -3.79806822976044, 1.8)
    pt3dadd(-105.483176643336, -231.104080901732, -3.67748423902146, 1.8)
    pt3dadd(-105.914208149451, -231.998324348403, -3.55690024828249, 1.8)
    pt3dadd(-106.345239655565, -232.892567795074, -3.43631625754352, 1.8)
    pt3dadd(-106.77627116168, -233.786811241745, -3.31573226680454, 1.8)
  }
  adendOML[8] {pt3dclear()
    pt3dadd(-106.77627116168, -233.786811241745, -3.31573226680454, 1.8)
    pt3dadd(-107.207302667795, -234.681054688416, -3.19514827606556, 1.8)
    pt3dadd(-107.665418347142, -235.559518824014, -3.16565157700534, 1.8)
    pt3dadd(-108.174789082069, -236.408121628455, -3.30853171801208, 1.8)
    pt3dadd(-108.684159816997, -237.256724432897, -3.4514118590188, 1.8)
    pt3dadd(-109.193530551924, -238.105327237338, -3.59429200002553, 1.8)
    pt3dadd(-109.659864179356, -238.966320995662, -3.72518605450473, 1.8)
    pt3dadd(-109.643857377391, -239.966186959027, -3.72174547408477, 1.8)
    pt3dadd(-109.627850575425, -240.966052922393, -3.71830489366481, 1.8)
    pt3dadd(-109.611843773459, -241.965918885759, -3.71486431324486, 1.8)
    pt3dadd(-109.595836971493, -242.965784849124, -3.71142373282491, 1.8)
    pt3dadd(-109.579830169528, -243.96565081249, -3.70798315240494, 1.8)
    pt3dadd(-109.563823367562, -244.965516775856, -3.70454257198499, 1.8)
    pt3dadd(-109.547816565596, -245.965382739222, -3.70110199156503, 1.8)
    pt3dadd(-109.53180976363, -246.965248702587, -3.69766141114507, 1.8)
    pt3dadd(-109.756374784301, -247.8945953716, -3.44548084140672, 1.8)
    pt3dadd(-110.023935644827, -248.811338585007, -3.14884458841758, 1.8)
    pt3dadd(-110.291496505352, -249.728081798414, -2.85220833542843, 1.8)
    pt3dadd(-110.559057365877, -250.644825011821, -2.55557208243929, 1.8)
    pt3dadd(-110.826618226403, -251.561568225227, -2.25893582945014, 1.8)
    pt3dadd(-111.094179086928, -252.478311438634, -1.962299576461, 1.8)
    pt3dadd(-111.361739947454, -253.395054652041, -1.66566332347185, 1.8)
    pt3dadd(-111.629300807979, -254.311797865448, -1.36902707048271, 1.8)
    pt3dadd(-111.829270183455, -255.238152270531, -1.53678929530376, 1.8)
    pt3dadd(-112.006619088661, -256.167723200233, -1.85996920259526, 1.8)
    pt3dadd(-112.183967993867, -257.097294129934, -2.18314910988675, 1.8)
    pt3dadd(-112.361316899072, -258.026865059635, -2.50632901717825, 1.8)
    pt3dadd(-112.538665804278, -258.956435989336, -2.82950892446974, 1.8)
    pt3dadd(-112.716014709483, -259.886006919037, -3.15268883176124, 1.8)
    pt3dadd(-112.911819555493, -260.827918438049, -3.35680356574537, 1.8)
    pt3dadd(-113.14889124143, -261.797423084344, -3.29469272499021, 1.8)
    pt3dadd(-113.385962927368, -262.766927730639, -3.23258188423503, 1.8)
    pt3dadd(-113.623034613306, -263.736432376934, -3.17047104347986, 1.8)
    pt3dadd(-113.860106299243, -264.705937023229, -3.10836020272469, 1.8)
    pt3dadd(-114.097177985181, -265.675441669524, -3.04624936196952, 1.8)
  }
  adendMML[12] {pt3dclear()
    pt3dadd(-88.8449710130873, -186.786987392757, -17.5414896866374, 1.8)
    pt3dadd(-89.3482885698771, -187.656147825228, -17.630090800276, 1.8)
    pt3dadd(-89.839880447055, -188.524426678229, -17.6966434840924, 1.8)
    pt3dadd(-90.331472324233, -189.392705531231, -17.7631961679087, 1.8)
    pt3dadd(-90.8230642014109, -190.260984384232, -17.829748851725, 1.8)
    pt3dadd(-91.3146560785889, -191.129263237234, -17.8963015355413, 1.8)
    pt3dadd(-91.8062479557669, -191.997542090235, -17.9628542193577, 1.8)
    pt3dadd(-92.2978398329448, -192.865820943237, -18.029406903174, 1.8)
    pt3dadd(-92.7894317101228, -193.734099796238, -18.0959595869903, 1.8)
    pt3dadd(-93.2547818780029, -194.614057542553, -18.1821065788906, 1.8)
    pt3dadd(-93.6831823086669, -195.510459798409, -18.2958434097916, 1.8)
    pt3dadd(-94.1115827393308, -196.406862054265, -18.4095802406927, 1.8)
    pt3dadd(-94.5399831699948, -197.303264310121, -18.5233170715938, 1.8)
    pt3dadd(-94.9683836006588, -198.199666565977, -18.6370539024948, 1.8)
    pt3dadd(-95.3967840313227, -199.096068821832, -18.7507907333959, 1.8)
    pt3dadd(-95.8251844619867, -199.992471077688, -18.8645275642969, 1.8)
    pt3dadd(-96.2535848926507, -200.888873333544, -18.978264395198, 1.8)
    pt3dadd(-96.6819853233146, -201.7852755894, -19.092001226099, 1.8)
    pt3dadd(-97.1103857539786, -202.681677845256, -19.2057380570001, 1.8)
    pt3dadd(-97.5387861846425, -203.578080101112, -19.3194748879011, 1.8)
    pt3dadd(-97.9922462643529, -204.467289460479, -19.3315074147098, 1.8)
    pt3dadd(-98.453744466208, -205.354191629492, -19.3109173131081, 1.8)
    pt3dadd(-98.915242668063, -206.241093798506, -19.2903272115064, 1.8)
    pt3dadd(-99.3767408699181, -207.127995967519, -19.2697371099047, 1.8)
    pt3dadd(-99.8382390717731, -208.014898136532, -19.249147008303, 1.8)
    pt3dadd(-100.299737273628, -208.901800305546, -19.2285569067014, 1.8)
    pt3dadd(-100.761235475483, -209.788702474559, -19.2079668050997, 1.8)
    pt3dadd(-101.222733677338, -210.675604643572, -19.187376703498, 1.8)
    pt3dadd(-101.684231879193, -211.562506812586, -19.1667866018963, 1.8)
    pt3dadd(-102.178242526048, -212.428007774737, -19.1473151954728, 1.8)
    pt3dadd(-102.811247138179, -213.202016429762, -19.1326263232065, 1.8)
    pt3dadd(-103.44425175031, -213.976025084787, -19.1179374509402, 1.8)
    pt3dadd(-104.07725636244, -214.750033739811, -19.1032485786739, 1.8)
    pt3dadd(-104.710260974571, -215.524042394836, -19.0885597064076, 1.8)
    pt3dadd(-105.343265586702, -216.29805104986, -19.0738708341413, 1.8)
    pt3dadd(-105.976270198832, -217.072059704885, -19.059181961875, 1.8)
    pt3dadd(-106.609274810963, -217.846068359909, -19.0444930896087, 1.8)
    pt3dadd(-107.242279423094, -218.620077014934, -19.0298042173424, 1.8)
    pt3dadd(-107.865786878784, -219.400206363328, -19.0170731494137, 1.8)
    pt3dadd(-108.310565400037, -220.295522295302, -19.0411864027595, 1.8)
    pt3dadd(-108.755343921289, -221.190838227275, -19.0652996561054, 1.8)
    pt3dadd(-109.200122442542, -222.086154159248, -19.0894129094512, 1.8)
    pt3dadd(-109.644900963795, -222.981470091222, -19.1135261627971, 1.8)
    pt3dadd(-110.089679485048, -223.876786023195, -19.1376394161429, 1.8)
    pt3dadd(-110.534458006301, -224.772101955168, -19.1617526694888, 1.8)
    pt3dadd(-110.979236527553, -225.667417887142, -19.1858659228346, 1.8)
    pt3dadd(-111.424015048806, -226.562733819115, -19.2099791761804, 1.8)
    pt3dadd(-111.868793570059, -227.458049751088, -19.2340924295263, 1.8)
    pt3dadd(-112.313572091312, -228.353365683062, -19.2582056828721, 1.8)
    pt3dadd(-112.743792052939, -229.252420671044, -19.3314242709529, 1.8)
    pt3dadd(-113.167111878718, -230.153247811976, -19.4279166916958, 1.8)
    pt3dadd(-113.590431704497, -231.054074952909, -19.5244091124388, 1.8)
    pt3dadd(-114.013751530277, -231.954902093842, -19.6209015331817, 1.8)
    pt3dadd(-114.437071356056, -232.855729234775, -19.7173939539246, 1.8)
    pt3dadd(-114.860391181835, -233.756556375708, -19.8138863746676, 1.8)
  }
  adendOML[9] {pt3dclear()
    pt3dadd(-114.860391181835, -233.756556375708, -19.8138863746676, 1.8)
    pt3dadd(-115.283711007615, -234.657383516641, -19.9103787954105, 1.8)
    pt3dadd(-115.707030833394, -235.558210657574, -20.0068712161534, 1.8)
    pt3dadd(-116.130350659173, -236.459037798507, -20.1033636368964, 1.8)
    pt3dadd(-116.562733063265, -237.35479504356, -20.1956050426844, 1.8)
    pt3dadd(-117.150298401372, -238.163737996851, -20.215054252868, 1.8)
    pt3dadd(-117.737863739479, -238.972680950141, -20.2345034630515, 1.8)
    pt3dadd(-118.325429077586, -239.781623903432, -20.2539526732351, 1.8)
    pt3dadd(-118.912994415693, -240.590566856722, -20.2734018834186, 1.8)
    pt3dadd(-119.5005597538, -241.399509810013, -20.2928510936021, 1.8)
    pt3dadd(-120.088125091907, -242.208452763304, -20.3123003037857, 1.8)
    pt3dadd(-120.675690430014, -243.017395716594, -20.3317495139692, 1.8)
    pt3dadd(-121.263255768121, -243.826338669885, -20.3511987241528, 1.8)
    pt3dadd(-121.850821106228, -244.635281623175, -20.3706479343363, 1.8)
    pt3dadd(-122.438386444335, -245.444224576466, -20.3900971445198, 1.8)
    pt3dadd(-123.025951782442, -246.253167529757, -20.4095463547034, 1.8)
    pt3dadd(-123.61316012779, -247.061475584035, -20.4366328866267, 1.8)
    pt3dadd(-124.19375274887, -247.858017806376, -20.6052528628299, 1.8)
    pt3dadd(-124.774345369951, -248.654560028717, -20.7738728390331, 1.8)
    pt3dadd(-125.354937991032, -249.451102251058, -20.9424928152363, 1.8)
    pt3dadd(-125.935530612112, -250.247644473399, -21.1111127914395, 1.8)
    pt3dadd(-126.516123233193, -251.044186695739, -21.2797327676427, 1.8)
    pt3dadd(-127.096715854273, -251.840728918081, -21.4483527438459, 1.8)
    pt3dadd(-127.677308475354, -252.637271140422, -21.6169727200492, 1.8)
    pt3dadd(-128.391111473919, -253.2706452865, -21.5098575151821, 1.8)
    pt3dadd(-129.191047188997, -253.798516318464, -21.2244542472344, 1.8)
    pt3dadd(-129.990982904075, -254.326387350429, -20.9390509792866, 1.8)
  }
}
proc shape3d_15() {
  adendOML[9] {
    pt3dadd(-130.790918619153, -254.854258382393, -20.6536477113389, 1.8)
    pt3dadd(-131.590854334231, -255.382129414358, -20.3682444433912, 1.8)
    pt3dadd(-132.390790049309, -255.910000446323, -20.0828411754434, 1.8)
  }
  adendIML[12] {pt3dclear()
    pt3dadd(-59.8405532333252, -110.546009566318, -15.3047585766014, 1.8)
    pt3dadd(-59.8111066310536, -111.429437027952, -15.7297748906471, 1.8)
    pt3dadd(-59.7623880288604, -112.287488500719, -16.2410225487191, 1.8)
    pt3dadd(-59.7136694266672, -113.145539973485, -16.752270206791, 1.8)
    pt3dadd(-59.6649508244739, -114.003591446251, -17.2635178648629, 1.8)
    pt3dadd(-59.6162322222807, -114.861642919017, -17.7747655229348, 1.8)
    pt3dadd(-59.6080646722669, -115.734748921531, -18.2534530762417, 1.8)
    pt3dadd(-59.7171767506638, -116.651394846188, -18.6379720005581, 1.8)
  }
  adendMML[13] {pt3dclear()
    pt3dadd(-59.7171767506638, -116.651394846188, -18.6379720005581, 1.8)
    pt3dadd(-59.8262888290607, -117.568040770845, -19.0224909248745, 1.8)
    pt3dadd(-59.9354009074576, -118.484686695503, -19.4070098491909, 1.8)
    pt3dadd(-60.0445129858545, -119.40133262016, -19.7915287735073, 1.8)
    pt3dadd(-60.1536250642514, -120.317978544817, -20.1760476978237, 1.8)
    pt3dadd(-60.2627371426483, -121.234624469474, -20.5605666221401, 1.8)
    pt3dadd(-60.3718492210452, -122.151270394131, -20.9450855464565, 1.8)
    pt3dadd(-60.4809612994421, -123.067916318788, -21.3296044707729, 1.8)
    pt3dadd(-60.590073377839, -123.984562243445, -21.7141233950892, 1.8)
    pt3dadd(-60.6925464991522, -124.882775014516, -22.1401738952062, 1.8)
    pt3dadd(-60.7912603707651, -125.770550178261, -22.5897412763504, 1.8)
    pt3dadd(-60.889974242378, -126.658325342006, -23.0393086574946, 1.8)
    pt3dadd(-60.9886881139909, -127.546100505751, -23.4888760386388, 1.8)
    pt3dadd(-61.0874019856038, -128.433875669496, -23.9384434197829, 1.8)
    pt3dadd(-61.1861158572167, -129.321650833241, -24.3880108009271, 1.8)
    pt3dadd(-61.2848297288296, -130.209425996986, -24.8375781820713, 1.8)
    pt3dadd(-61.3835436004425, -131.097201160731, -25.2871455632155, 1.8)
    pt3dadd(-61.593589178744, -132.03449628485, -25.5010215793461, 1.8)
    pt3dadd(-61.8536342772375, -132.994031023651, -25.6090476492705, 1.8)
    pt3dadd(-62.113679375731, -133.953565762452, -25.7170737191948, 1.8)
    pt3dadd(-62.3737244742244, -134.913100501253, -25.8250997891191, 1.8)
    pt3dadd(-62.6337695727178, -135.872635240055, -25.9331258590434, 1.8)
    pt3dadd(-62.8938146712113, -136.832169978856, -26.0411519289678, 1.8)
    pt3dadd(-63.1538597697047, -137.791704717657, -26.1491779988921, 1.8)
    pt3dadd(-63.4032853350993, -138.739637379349, -26.2951157340377, 1.8)
    pt3dadd(-63.5397961612458, -139.564208166337, -26.8441583658889, 1.8)
    pt3dadd(-63.6763069873923, -140.388778953325, -27.3932009977401, 1.8)
    pt3dadd(-63.8128178135388, -141.213349740314, -27.9422436295913, 1.8)
    pt3dadd(-63.9493286396853, -142.037920527302, -28.4912862614426, 1.8)
    pt3dadd(-64.1825826122698, -142.821887858042, -29.0495791349342, 1.8)
    pt3dadd(-64.584119806908, -143.535226098292, -29.6239626621347, 1.8)
    pt3dadd(-64.9856570015462, -144.248564338542, -30.1983461893352, 1.8)
    pt3dadd(-65.3871941961843, -144.961902578792, -30.7727297165356, 1.8)
    pt3dadd(-65.7887313908225, -145.675240819042, -31.3471132437361, 1.8)
    pt3dadd(-66.1902685854607, -146.388579059292, -31.9214967709366, 1.8)
    pt3dadd(-66.5918057800988, -147.101917299542, -32.495880298137, 1.8)
    pt3dadd(-66.9875404945654, -147.935022477418, -32.7899515293808, 1.8)
    pt3dadd(-67.3793517438989, -148.849110509171, -32.8944838932786, 1.8)
    pt3dadd(-67.7711629932325, -149.763198540923, -32.9990162571764, 1.8)
    pt3dadd(-68.162974242566, -150.677286572676, -33.1035486210741, 1.8)
    pt3dadd(-68.5547854918995, -151.591374604429, -33.2080809849719, 1.8)
    pt3dadd(-68.9465967412331, -152.505462636182, -33.3126133488697, 1.8)
    pt3dadd(-69.3384079905666, -153.419550667935, -33.4171457127674, 1.8)
    pt3dadd(-69.7302192399002, -154.333638699687, -33.5216780766652, 1.8)
    pt3dadd(-70.1220304892337, -155.24772673144, -33.626210440563, 1.8)
    pt3dadd(-70.5138417385673, -156.161814763193, -33.7307428044607, 1.8)
    pt3dadd(-70.8054936390016, -157.041754329257, -34.0568134610574, 1.8)
    pt3dadd(-71.040112143679, -157.902248851204, -34.5090339105757, 1.8)
    pt3dadd(-71.2747306483565, -158.76274337315, -34.961254360094, 1.8)
    pt3dadd(-71.509349153034, -159.623237895097, -35.4134748096124, 1.8)
    pt3dadd(-71.7439676577115, -160.483732417044, -35.8656952591306, 1.8)
    pt3dadd(-71.978586162389, -161.344226938991, -36.317915708649, 1.8)
    pt3dadd(-72.2132046670664, -162.204721460937, -36.7701361581673, 1.8)
    pt3dadd(-72.5519147161949, -163.122029902072, -36.9014262877236, 1.8)
    pt3dadd(-72.9142635080842, -164.052240540288, -36.9598345197369, 1.8)
    pt3dadd(-73.2766122999736, -164.982451178503, -37.0182427517503, 1.8)
    pt3dadd(-73.638961091863, -165.912661816719, -37.0766509837636, 1.8)
    pt3dadd(-74.0013098837524, -166.842872454935, -37.1350592157769, 1.8)
    pt3dadd(-74.3636586756417, -167.77308309315, -37.1934674477902, 1.8)
    pt3dadd(-74.7350675683734, -168.688453324342, -37.29237790692, 1.8)
    pt3dadd(-75.1734891191931, -169.494057103808, -37.6908614000371, 1.8)
    pt3dadd(-75.6119106700127, -170.299660883275, -38.0893448931541, 1.8)
    pt3dadd(-76.0503322208323, -171.105264662741, -38.4878283862712, 1.8)
    pt3dadd(-76.488753771652, -171.910868442207, -38.8863118793882, 1.8)
    pt3dadd(-76.9271753224716, -172.716472221673, -39.2847953725053, 1.8)
    pt3dadd(-77.3655968732912, -173.522076001139, -39.6832788656224, 1.8)
    pt3dadd(-77.8040184241109, -174.327679780605, -40.0817623587394, 1.8)
    pt3dadd(-78.2424399749305, -175.133283560071, -40.4802458518565, 1.8)
    pt3dadd(-78.6386413304006, -175.965367797998, -40.8589976514091, 1.8)
    pt3dadd(-78.9289302157302, -176.863880216625, -41.1882510441411, 1.8)
    pt3dadd(-79.2192191010598, -177.762392635253, -41.517504436873, 1.8)
    pt3dadd(-79.5095079863893, -178.660905053881, -41.846757829605, 1.8)
    pt3dadd(-79.7997968717189, -179.559417472509, -42.176011222337, 1.8)
    pt3dadd(-80.0900857570484, -180.457929891137, -42.5052646150689, 1.8)
    pt3dadd(-80.3635506579409, -181.355320928197, -42.8496474719883, 1.8)
    pt3dadd(-80.594178303382, -182.249856701756, -43.2325529942528, 1.8)
    pt3dadd(-80.8248059488232, -183.144392475316, -43.6154585165173, 1.8)
    pt3dadd(-81.0554335942643, -184.038928248875, -43.9983640387819, 1.8)
    pt3dadd(-81.2860612397054, -184.933464022435, -44.3812695610464, 1.8)
    pt3dadd(-81.5166888851464, -185.827999795994, -44.7641750833109, 1.8)
    pt3dadd(-81.7473165305875, -186.722535569554, -45.1470806055755, 1.8)
    pt3dadd(-81.9779441760286, -187.617071343113, -45.52998612784, 1.8)
    pt3dadd(-82.0625755435003, -188.53707155798, -45.9080008621671, 1.8)
    pt3dadd(-82.1236879225506, -189.461173917837, -46.2852277244575, 1.8)
    pt3dadd(-82.1848003016009, -190.385276277694, -46.6624545867479, 1.8)
    pt3dadd(-82.2145253318627, -191.31579870294, -47.0034661119025, 1.8)
    pt3dadd(-82.0166174365512, -192.292881870757, -47.0818303138191, 1.8)
    pt3dadd(-81.8187095412398, -193.269965038575, -47.1601945157357, 1.8)
    pt3dadd(-81.6208016459284, -194.247048206392, -47.2385587176523, 1.8)
    pt3dadd(-81.4228937506169, -195.224131374209, -47.316922919569, 1.8)
    pt3dadd(-81.2249858553055, -196.201214542026, -47.3952871214856, 1.8)
    pt3dadd(-81.0300672307633, -197.164944312234, -47.5294100315202, 1.8)
    pt3dadd(-80.8489716241205, -198.066925158232, -47.9213729566892, 1.8)
    pt3dadd(-80.6678760174779, -198.96890600423, -48.3133358818583, 1.8)
    pt3dadd(-80.4867804108351, -199.870886850228, -48.7052988070272, 1.8)
    pt3dadd(-80.2867129791783, -200.776495573575, -49.0694770512833, 1.8)
    pt3dadd(-79.9670225714407, -201.704979138166, -49.2584646526898, 1.8)
    pt3dadd(-79.6473321637031, -202.633462702757, -49.4474522540963, 1.8)
    pt3dadd(-79.3276417559655, -203.561946267347, -49.6364398555027, 1.8)
    pt3dadd(-79.0079513482278, -204.490429831938, -49.8254274569092, 1.8)
    pt3dadd(-78.6882609404903, -205.418913396529, -50.0144150583156, 1.8)
    pt3dadd(-78.3685705327526, -206.34739696112, -50.2034026597221, 1.8)
    pt3dadd(-78.048880125015, -207.275880525711, -50.3923902611286, 1.8)
    pt3dadd(-77.7291897172774, -208.204364090301, -50.581377862535, 1.8)
    pt3dadd(-77.6445575101303, -209.186430812619, -50.563681082152, 1.8)
    pt3dadd(-77.6253533118369, -210.183412306298, -50.4884540921118, 1.8)
    pt3dadd(-77.6061491135434, -211.180393799976, -50.4132271020715, 1.8)
    pt3dadd(-77.58694491525, -212.177375293655, -50.3380001120313, 1.8)
    pt3dadd(-77.5677407169565, -213.174356787333, -50.2627731219911, 1.8)
    pt3dadd(-77.5485365186631, -214.171338281012, -50.1875461319508, 1.8)
    pt3dadd(-77.5293323203696, -215.16831977469, -50.1123191419106, 1.8)
    pt3dadd(-77.5101281220762, -216.165301268369, -50.0370921518703, 1.8)
    pt3dadd(-77.4191951373251, -217.159464961321, -50.0082245890488, 1.8)
    pt3dadd(-77.3033471185816, -218.152649889618, -49.995459999135, 1.8)
    pt3dadd(-77.187499099838, -219.145834817916, -49.9826954092212, 1.8)
    pt3dadd(-76.942521819592, -219.789313532264, -50.7034556425742, 1.8)
    pt3dadd(-76.6963189173252, -220.429473032735, -51.4311780792706, 1.8)
    pt3dadd(-76.4501160150584, -221.069632533207, -52.158900515967, 1.8)
    pt3dadd(-76.2368212980767, -221.747901035755, -52.7225473753051, 1.8)
  }
  adendMML[14] {pt3dclear()
    pt3dadd(-76.2368212980767, -221.747901035755, -52.7225473753051, 1.8)
    pt3dadd(-76.4388158643784, -222.543072346812, -52.1220613006339, 1.8)
    pt3dadd(-76.6093140534007, -223.350499998764, -51.5572684586079, 1.8)
    pt3dadd(-76.779812242423, -224.157927650715, -50.9924756165819, 1.8)
    pt3dadd(-76.9503104314453, -224.965355302667, -50.4276827745558, 1.8)
    pt3dadd(-77.1208086204677, -225.772782954619, -49.8628899325298, 1.8)
    pt3dadd(-77.29130680949, -226.58021060657, -49.2980970905038, 1.8)
    pt3dadd(-77.4618049985123, -227.387638258522, -48.7333042484778, 1.8)
    pt3dadd(-77.6323031875347, -228.195065910474, -48.1685114064517, 1.8)
    pt3dadd(-77.8601566723026, -229.058039426873, -47.7908456945683, 1.8)
    pt3dadd(-78.1721596966282, -230.002507753069, -47.6877258922747, 1.8)
    pt3dadd(-78.4841627209538, -230.946976079264, -47.5846060899811, 1.8)
    pt3dadd(-78.7961657452794, -231.89144440546, -47.4814862876875, 1.8)
    pt3dadd(-79.108168769605, -232.835912731655, -47.3783664853939, 1.8)
    pt3dadd(-79.3999186810737, -233.783788730762, -47.285855310025, 1.8)
  }
  adendOML[10] {pt3dclear()
    pt3dadd(-79.3999186810737, -233.783788730762, -47.285855310025, 1.8)
    pt3dadd(-79.3939513078185, -234.7817569371, -47.3492891306169, 1.8)
    pt3dadd(-79.3879839345634, -235.779725143438, -47.4127229512089, 1.8)
    pt3dadd(-79.3820165613082, -236.777693349776, -47.4761567718009, 1.8)
    pt3dadd(-79.376049188053, -237.775661556114, -47.5395905923928, 1.8)
    pt3dadd(-79.3700818147978, -238.773629762452, -47.6030244129848, 1.8)
    pt3dadd(-79.3641144415427, -239.77159796879, -47.6664582335767, 1.8)
    pt3dadd(-79.3581470682875, -240.769566175128, -47.7298920541687, 1.8)
    pt3dadd(-79.3026816083122, -241.746631217073, -47.6330971044353, 1.8)
    pt3dadd(-79.1901998935791, -242.699618153675, -47.3517365483576, 1.8)
    pt3dadd(-79.077718178846, -243.652605090277, -47.0703759922799, 1.8)
    pt3dadd(-78.965236464113, -244.605592026879, -46.7890154362022, 1.8)
    pt3dadd(-78.85275474938, -245.558578963481, -46.5076548801246, 1.8)
    pt3dadd(-78.7402730346469, -246.511565900084, -46.2262943240469, 1.8)
    pt3dadd(-78.6277913199139, -247.464552836686, -45.9449337679692, 1.8)
    pt3dadd(-78.5153096051808, -248.417539773288, -45.6635732118915, 1.8)
    pt3dadd(-78.4028278904478, -249.37052670989, -45.3822126558139, 1.8)
    pt3dadd(-78.4822639661855, -250.325728915903, -45.1213403360416, 1.8)
    pt3dadd(-78.6298206219913, -251.281717424411, -44.8677402474589, 1.8)
    pt3dadd(-78.7773772777971, -252.237705932918, -44.6141401588762, 1.8)
    pt3dadd(-78.9249339336029, -253.193694441426, -44.3605400702934, 1.8)
    pt3dadd(-79.0724905894087, -254.149682949933, -44.1069399817107, 1.8)
    pt3dadd(-79.2200472452145, -255.10567145844, -43.853339893128, 1.8)
    pt3dadd(-79.3676039010203, -256.061659966948, -43.5997398045453, 1.8)
    pt3dadd(-79.5151605568261, -257.017648475455, -43.3461397159626, 1.8)
    pt3dadd(-79.6627172126319, -257.973636983963, -43.0925396273799, 1.8)
    pt3dadd(-79.7723533425118, -258.934507089656, -42.8458278549455, 1.8)
    pt3dadd(-79.7854608451707, -259.907803549244, -42.6166506415771, 1.8)
    pt3dadd(-79.7985683478296, -260.881100008833, -42.3874734282087, 1.8)
    pt3dadd(-79.8116758504886, -261.854396468421, -42.1582962148404, 1.8)
    pt3dadd(-79.8247833531475, -262.827692928009, -41.929119001472, 1.8)
    pt3dadd(-79.8378908558064, -263.800989387597, -41.6999417881036, 1.8)
    pt3dadd(-79.8509983584653, -264.774285847185, -41.4707645747353, 1.8)
    pt3dadd(-79.8718754567778, -265.748012884691, -41.2491731185308, 1.8)
    pt3dadd(-80.0451914687761, -266.730187830304, -41.1764136779318, 1.8)
    pt3dadd(-80.2185074807744, -267.712362775916, -41.1036542373327, 1.8)
    pt3dadd(-80.3918234927728, -268.694537721528, -41.0308947967337, 1.8)
    pt3dadd(-80.5651395047712, -269.676712667141, -40.9581353561347, 1.8)
    pt3dadd(-80.7384555167695, -270.658887612753, -40.8853759155357, 1.8)
    pt3dadd(-80.9117715287679, -271.641062558365, -40.8126164749367, 1.8)
    pt3dadd(-81.1822611616166, -272.592546304157, -40.8246493476003, 1.8)
    pt3dadd(-81.5709071780287, -273.506711679527, -40.9397837924953, 1.8)
    pt3dadd(-81.9595531944409, -274.420877054897, -41.0549182373903, 1.8)
    pt3dadd(-82.3481992108531, -275.335042430268, -41.1700526822854, 1.8)
    pt3dadd(-82.7368452272652, -276.249207805638, -41.2851871271804, 1.8)
    pt3dadd(-83.0599837094622, -277.184145278643, -41.376887862125, 1.8)
    pt3dadd(-83.2207850865131, -278.170559001491, -41.4105164885439, 1.8)
    pt3dadd(-83.381586463564, -279.15697272434, -41.4441451149629, 1.8)
    pt3dadd(-83.542387840615, -280.143386447188, -41.4777737413818, 1.8)
    pt3dadd(-83.6779102914426, -281.130828624312, -41.4737313132466, 1.8)
    pt3dadd(-83.7327137341733, -282.121554794126, -41.3494001461547, 1.8)
    pt3dadd(-83.7875171769041, -283.11228096394, -41.2250689790628, 1.8)
    pt3dadd(-83.8423206196348, -284.103007133754, -41.1007378119709, 1.8)
    pt3dadd(-83.8971240623656, -285.093733303568, -40.9764066448791, 1.8)
    pt3dadd(-83.9519275050963, -286.084459473382, -40.8520754777872, 1.8)
    pt3dadd(-84.0067309478271, -287.075185643196, -40.7277443106953, 1.8)
    pt3dadd(-84.1171280186061, -288.064021194482, -40.6376918984732, 1.8)
    pt3dadd(-84.2523616845517, -289.052012107117, -40.5629536074445, 1.8)
    pt3dadd(-84.3875953504972, -290.040003019751, -40.4882153164158, 1.8)
    pt3dadd(-84.5228290164428, -291.027993932386, -40.4134770253871, 1.8)
    pt3dadd(-84.6580626823883, -292.015984845021, -40.3387387343584, 1.8)
    pt3dadd(-84.7932963483339, -293.003975757656, -40.2640004433297, 1.8)
    pt3dadd(-84.9792823327201, -293.977480122434, -40.2282754985374, 1.8)
    pt3dadd(-85.3587508208774, -294.895757580613, -40.3412807032678, 1.8)
    pt3dadd(-85.7382193090347, -295.814035038792, -40.4542859079982, 1.8)
    pt3dadd(-86.117687797192, -296.732312496971, -40.5672911127286, 1.8)
    pt3dadd(-86.4971562853493, -297.65058995515, -40.680296317459, 1.8)
    pt3dadd(-86.8766247735066, -298.568867413329, -40.7933015221894, 1.8)
    pt3dadd(-87.2560932616639, -299.487144871508, -40.9063067269198, 1.8)
    pt3dadd(-87.6188850985624, -300.408269867132, -41.0241509436777, 1.8)
    pt3dadd(-87.6572535180859, -301.384790146549, -41.2361320944224, 1.8)
    pt3dadd(-87.6956219376095, -302.361310425966, -41.448113245167, 1.8)
    pt3dadd(-87.733990357133, -303.337830705382, -41.6600943959116, 1.8)
  }
  adendMML[15] {pt3dclear()
    pt3dadd(-76.2368212980767, -221.747901035755, -52.7225473753051, 1.8)
    pt3dadd(-75.9682564946193, -222.726183439113, -52.6553221550248, 1.8)
    pt3dadd(-75.7311880684411, -223.692209501575, -52.5524037020994, 1.8)
    pt3dadd(-75.494119642263, -224.658235564038, -52.4494852491739, 1.8)
    pt3dadd(-75.2570512160847, -225.6242616265, -52.3465667962485, 1.8)
    pt3dadd(-75.0199827899066, -226.590287688963, -52.2436483433231, 1.8)
    pt3dadd(-74.8067064426688, -227.549242938971, -52.0706782078408, 1.8)
    pt3dadd(-74.6149652698156, -228.501798110212, -51.8343014569223, 1.8)
    pt3dadd(-74.4232240969624, -229.454353281453, -51.5979247060038, 1.8)
    pt3dadd(-74.2314829241092, -230.406908452694, -51.3615479550853, 1.8)
    pt3dadd(-74.039741751256, -231.359463623935, -51.1251712041668, 1.8)
    pt3dadd(-73.9519420623478, -232.205427516687, -51.597887055465, 1.8)
    pt3dadd(-73.874670809125, -233.040594570895, -52.1424282797916, 1.8)
    pt3dadd(-73.7973995559022, -233.875761625103, -52.6869695041183, 1.8)
  }
  adendOML[11] {pt3dclear()
    pt3dadd(-73.7973995559022, -233.875761625103, -52.6869695041183, 1.8)
    pt3dadd(-73.7201283026795, -234.710928679311, -53.2315107284449, 1.8)
    pt3dadd(-73.5581637474849, -235.63609736019, -53.4427056318146, 1.8)
    pt3dadd(-73.3471312482128, -236.613409418192, -53.4607728821784, 1.8)
    pt3dadd(-73.1360987489408, -237.590721476194, -53.4788401325422, 1.8)
    pt3dadd(-72.9250662496688, -238.568033534195, -53.496907382906, 1.8)
    pt3dadd(-72.7140337503968, -239.545345592197, -53.5149746332698, 1.8)
    pt3dadd(-72.5030012511247, -240.522657650198, -53.5330418836336, 1.8)
    pt3dadd(-72.2919687518527, -241.4999697082, -53.5511091339974, 1.8)
    pt3dadd(-72.0660863202111, -242.473083066196, -53.5583489986876, 1.8)
    pt3dadd(-71.7576724947667, -243.422861330467, -53.5054135569429, 1.8)
    pt3dadd(-71.4492586693221, -244.372639594738, -53.4524781151983, 1.8)
    pt3dadd(-71.1408448438777, -245.322417859009, -53.3995426734536, 1.8)
    pt3dadd(-70.8324310184333, -246.272196123281, -53.3466072317089, 1.8)
    pt3dadd(-70.5240171929888, -247.221974387552, -53.2936717899643, 1.8)
    pt3dadd(-70.2156033675443, -248.171752651823, -53.2407363482196, 1.8)
    pt3dadd(-69.7007158254961, -248.956957557542, -53.4985862878127, 1.8)
  }
}
proc shape3d_16() {
  adendOML[11] {
    pt3dadd(-69.1214446850902, -249.690844430187, -53.8533467761026, 1.8)
    pt3dadd(-68.5421735446842, -250.424731302832, -54.2081072643925, 1.8)
    pt3dadd(-67.9629024042782, -251.158618175477, -54.5628677526824, 1.8)
    pt3dadd(-67.3836312638723, -251.892505048123, -54.9176282409722, 1.8)
    pt3dadd(-66.8043601234663, -252.626391920768, -55.2723887292621, 1.8)
    pt3dadd(-66.4436683728179, -253.549916566544, -55.1761715148138, 1.8)
    pt3dadd(-66.0888734609267, -254.478557263617, -55.0677878156887, 1.8)
    pt3dadd(-65.7340785490355, -255.40719796069, -54.9594041165636, 1.8)
    pt3dadd(-65.3792836371443, -256.335838657763, -54.8510204174385, 1.8)
    pt3dadd(-65.0244887252532, -257.264479354836, -54.7426367183134, 1.8)
    pt3dadd(-64.669693813362, -258.193120051909, -54.6342530191883, 1.8)
    pt3dadd(-64.3148989014708, -259.121760748982, -54.5258693200631, 1.8)
    pt3dadd(-63.9601039895796, -260.050401446055, -54.417485620938, 1.8)
    pt3dadd(-63.6053090776884, -260.979042143128, -54.3091019218129, 1.8)
    pt3dadd(-63.2505141657972, -261.9076828402, -54.2007182226878, 1.8)
    pt3dadd(-62.8957192539061, -262.836323537273, -54.0923345235627, 1.8)
    pt3dadd(-62.6700365241105, -263.804039027549, -54.050901267205, 1.8)
    pt3dadd(-62.5062782570284, -264.790495472671, -54.0415786152032, 1.8)
    pt3dadd(-62.3425199899463, -265.776951917792, -54.0322559632015, 1.8)
    pt3dadd(-62.1787617228642, -266.763408362914, -54.0229333111997, 1.8)
    pt3dadd(-62.0150034557821, -267.749864808035, -54.0136106591979, 1.8)
    pt3dadd(-61.8512451887, -268.736321253157, -54.0042880071962, 1.8)
    pt3dadd(-61.6843035270551, -269.721823743636, -53.9948733865327, 1.8)
    pt3dadd(-61.279255002442, -270.635973738275, -53.9785798292214, 1.8)
    pt3dadd(-60.874206477829, -271.550123732915, -53.96228627191, 1.8)
    pt3dadd(-60.4691579532159, -272.464273727554, -53.9459927145986, 1.8)
    pt3dadd(-60.0641094286029, -273.378423722193, -53.9296991572872, 1.8)
    pt3dadd(-59.6590609039898, -274.292573716832, -53.9134055999758, 1.8)
    pt3dadd(-59.2540123793768, -275.206723711472, -53.8971120426645, 1.8)
    pt3dadd(-58.8489638547637, -276.120873706111, -53.8808184853531, 1.8)
    pt3dadd(-58.4439153301506, -277.03502370075, -53.8645249280417, 1.8)
    pt3dadd(-58.0388668055376, -277.949173695389, -53.8482313707303, 1.8)
    pt3dadd(-57.6338182809246, -278.863323690029, -53.8319378134189, 1.8)
    pt3dadd(-57.2956996831404, -279.799483826874, -53.8103551625114, 1.8)
    pt3dadd(-57.0757560832437, -280.77450622806, -53.7794338098576, 1.8)
    pt3dadd(-56.8558124833469, -281.749528629246, -53.7485124572037, 1.8)
    pt3dadd(-56.6358688834502, -282.724551030432, -53.7175911045499, 1.8)
    pt3dadd(-56.4159252835534, -283.699573431618, -53.6866697518961, 1.8)
    pt3dadd(-56.1959816836566, -284.674595832804, -53.6557483992423, 1.8)
    pt3dadd(-56.091513379575, -285.642930156511, -53.6829843371444, 1.8)
    pt3dadd(-56.3361480092269, -286.591045199096, -53.8860403983701, 1.8)
    pt3dadd(-56.5807826388787, -287.53916024168, -54.0890964595957, 1.8)
    pt3dadd(-56.8254172685306, -288.487275284264, -54.2921525208214, 1.8)
  }
  soma[3] {pt3dclear()
    pt3dadd(-7.1666017309238, 49.6406721294704, 0, 10.2667572303772)
    pt3dadd(-7.26252961619202, 48.7952826498031, 0.525465953697949, 10.2667572303772)
    pt3dadd(-7.35845750146024, 47.9498931701357, 1.0509319073959, 9.58775356515897)
    pt3dadd(-7.45438538672846, 47.1045036904683, 1.57639786109385, 8.52332145975835)
    pt3dadd(-7.55031327199668, 46.2591142108009, 2.1018638147918, 7.16804037792357)
    pt3dadd(-7.6462411572649, 45.4137247311336, 2.62732976848975, 5.8008287338053)
    pt3dadd(-7.74216904253312, 44.5683352514662, 3.1527957221877, 5.66542648056637)
    pt3dadd(-7.83809692780135, 43.7229457717988, 3.67826167588565, 5.53002422732743)
    pt3dadd(-7.93402481306957, 42.8775562921315, 4.2037276295836, 5.39462197408849)
    pt3dadd(-8.02995269833779, 42.0321668124641, 4.72919358328154, 5.25921972084955)
    pt3dadd(-8.12588058360601, 41.1867773327967, 5.25465953697949, 5.12381746761061)
  }
  GCL[5] {pt3dclear()
    pt3dadd(-8.12588058360601, 41.1867773327967, 5.25465953697949, 4.98841521437167)
    pt3dadd(-8.22180846887423, 40.3413878531293, 5.78012549067744, 4.98841521437167)
    pt3dadd(-8.31773635414245, 39.495998373462, 6.30559144437539, 4.85301296113273)
    pt3dadd(-8.41366423941067, 38.6506088937946, 6.83105739807334, 4.71761070789379)
    pt3dadd(-8.50959212467889, 37.8052194141272, 7.35652335177129, 4.58220845465485)
    pt3dadd(-8.60552000994712, 36.9598299344598, 7.88198930546924, 4.44680620141591)
    pt3dadd(-8.70144789521534, 36.1144404547925, 8.40745525916719, 4.31140394817698)
    pt3dadd(-8.79737578048356, 35.2690509751251, 8.93292121286514, 4.17600169493804)
    pt3dadd(-8.89330366575178, 34.4236614954577, 9.45838716656309, 4.0405994416991)
    pt3dadd(-8.98923155102, 33.5782720157903, 9.98385312026104, 3.90519718846016)
    pt3dadd(-9.08515943628822, 32.732882536123, 10.509319073959, 3.76979493522122)
    pt3dadd(-9.18108732155644, 31.8874930564556, 11.0347850276569, 3.63439268198228)
    pt3dadd(-9.27701520682466, 31.0421035767882, 11.5602509813549, 3.49899042874334)
    pt3dadd(-9.37294309209289, 30.1967140971209, 12.0857169350528, 3.3635881755044)
    pt3dadd(-9.46887097736111, 29.3513246174535, 12.6111828887508, 3.22818592226546)
    pt3dadd(-9.56479886262933, 28.5059351377861, 13.1366488424487, 3.09278366902652)
    pt3dadd(-9.66072674789755, 27.6605456581187, 13.6621147961467, 2.95738141578759)
    pt3dadd(-9.75665463316577, 26.8151561784514, 14.1875807498446, 2.82197916254865)
    pt3dadd(-9.85258251843399, 25.969766698784, 14.7130467035426, 2.68657690930971)
    pt3dadd(-9.94851040370221, 25.1243772191166, 15.2385126572405, 2.55117465607077)
    pt3dadd(-10.0444382889704, 24.2789877394493, 15.7639786109385, 2.41577240283183)
    pt3dadd(-10.1403661742387, 23.4335982597819, 16.2894445646364, 2.28037014959289)
    pt3dadd(-10.2362940595069, 22.5882087801145, 16.8149105183344, 2.14496789635395)
    pt3dadd(-10.3322219447751, 21.7428193004471, 17.3403764720323, 2.00956564311501)
    pt3dadd(-10.4281498300433, 20.8974298207798, 17.8658424257303, 1.87416338987607)
    pt3dadd(-10.7565900265897, 20.083925329255, 18.0787683621048, 1.8)
    pt3dadd(-11.3666145022258, 19.3090351861515, 17.9131923818242, 1.8)
    pt3dadd(-11.9766389778619, 18.534145043048, 17.7476164015436, 1.8)
    pt3dadd(-12.5866634534981, 17.7592548999445, 17.5820404212629, 1.8)
    pt3dadd(-13.1966879291342, 16.984364756841, 17.4164644409823, 1.8)
    pt3dadd(-13.7736612020201, 16.1929622070487, 17.2585174538064, 1.8)
    pt3dadd(-13.9828698016654, 15.2178241394836, 17.1854591824069, 1.8)
    pt3dadd(-14.1920784013107, 14.2426860719185, 17.1124009110073, 1.8)
    pt3dadd(-14.401287000956, 13.2675480043534, 17.0393426396078, 1.8)
    pt3dadd(-14.6104956006013, 12.2924099367883, 16.9662843682082, 1.8)
    pt3dadd(-14.7804376547143, 11.3162405478828, 16.8529294931783, 1.8)
    pt3dadd(-14.8838716709363, 10.3383243498843, 16.6713219107916, 1.8)
    pt3dadd(-14.9873056871582, 9.36040815188581, 16.489714328405, 1.8)
    pt3dadd(-15.0907397033802, 8.3824919538873, 16.3081067460183, 1.8)
    pt3dadd(-15.1941737196021, 7.40457575588878, 16.1264991636317, 1.8)
    pt3dadd(-15.2976077358241, 6.42665955789027, 15.944891581245, 1.8)
    pt3dadd(-15.4286321354448, 5.46769879388378, 15.9275557648682, 1.8)
    pt3dadd(-15.6214290014985, 4.55117759634045, 16.278010131218, 1.8)
    pt3dadd(-15.8142258675522, 3.63465639879713, 16.6284644975678, 1.8)
    pt3dadd(-16.0070227336059, 2.71813520125379, 16.9789188639175, 1.8)
    pt3dadd(-16.1998195996596, 1.80161400371047, 17.3293732302673, 1.8)
    pt3dadd(-16.3926164657132, 0.885092806167129, 17.679827596617, 1.8)
  }
  adendIML[13] {pt3dclear()
    pt3dadd(-16.3926164657132, 0.885092806167129, 17.679827596617, 1.8)
    pt3dadd(-16.5854133317669, -0.0314283913762031, 18.0302819629668, 1.8)
    pt3dadd(-16.87495933151, -0.922020989247884, 18.2449120671, 1.8)
    pt3dadd(-17.4258753538735, -1.74256687533769, 18.092609785028, 1.8)
    pt3dadd(-17.976791376237, -2.56311276142748, 17.940307502956, 1.8)
    pt3dadd(-18.3462636692921, -3.45326214215981, 18.1020397616716, 1.8)
    pt3dadd(-18.6559124727015, -4.36636036745637, 18.3673117909309, 1.8)
    pt3dadd(-18.9655612761109, -5.27945859275294, 18.6325838201903, 1.8)
    pt3dadd(-19.2752100795203, -6.1925568180495, 18.8978558494497, 1.8)
    pt3dadd(-19.5848588829297, -7.10565504334606, 19.1631278787091, 1.8)
    pt3dadd(-19.8945076863391, -8.01875326864263, 19.4283999079684, 1.8)
    pt3dadd(-20.2041564897485, -8.93185149393919, 19.6936719372278, 1.8)
    pt3dadd(-20.4376370766244, -9.8605004421802, 19.9808775142576, 1.8)
    pt3dadd(-20.6639858720831, -10.7906054375426, 20.2701367758143, 1.8)
    pt3dadd(-20.8903346675419, -11.720710432905, 20.5593960373709, 1.8)
    pt3dadd(-21.1166834630006, -12.6508154282674, 20.8486552989276, 1.8)
    pt3dadd(-21.3430322584594, -13.5809204236297, 21.1379145604843, 1.8)
    pt3dadd(-21.5693810539181, -14.5110254189921, 21.4271738220409, 1.8)
    pt3dadd(-21.8856302623885, -15.4210596918527, 21.687241872885, 1.8)
    pt3dadd(-22.2422094790665, -16.3220900861313, 21.9342145248518, 1.8)
    pt3dadd(-22.5987886957445, -17.2231204804099, 22.1811871768186, 1.8)
    pt3dadd(-22.9553679124225, -18.1241508746885, 22.4281598287854, 1.8)
    pt3dadd(-23.3119471291004, -19.0251812689671, 22.6751324807521, 1.8)
    pt3dadd(-23.6417108956025, -19.9407308283189, 22.9001312114335, 1.8)
    pt3dadd(-23.925911236884, -20.8809506015862, 23.0877929922326, 1.8)
    pt3dadd(-24.2101115781655, -21.8211703748535, 23.2754547730316, 1.8)
    pt3dadd(-24.494311919447, -22.7613901481208, 23.4631165538307, 1.8)
    pt3dadd(-24.7785122607285, -23.7016099213881, 23.6507783346298, 1.8)
    pt3dadd(-25.06271260201, -24.6418296946553, 23.8384401154289, 1.8)
    pt3dadd(-25.51984720225, -25.4909993006189, 24.0478173948033, 1.8)
    pt3dadd(-26.093708955274, -26.278711871673, 24.2718521997325, 1.8)
    pt3dadd(-26.667570708298, -27.066424442727, 24.4958870046618, 1.8)
    pt3dadd(-27.241432461322, -27.854137013781, 24.719921809591, 1.8)
    pt3dadd(-27.5153185555698, -28.7665258139214, 25.0200988707563, 1.8)
    pt3dadd(-27.782665493774, -29.6816324256344, 25.3219357535786, 1.8)
    pt3dadd(-28.0500124319782, -30.5967390373475, 25.6237726364009, 1.8)
    pt3dadd(-28.3173593701824, -31.5118456490606, 25.9256095192233, 1.8)
    pt3dadd(-28.5847063083866, -32.4269522607736, 26.2274464020456, 1.8)
    pt3dadd(-28.8520532465908, -33.3420588724867, 26.5292832848679, 1.8)
    pt3dadd(-29.1194001847949, -34.2571654841997, 26.8311201676903, 1.8)
    pt3dadd(-29.3690613246175, -35.1703657597108, 27.1518529385717, 1.8)
    pt3dadd(-29.5960055392364, -36.0811173984131, 27.4968569618122, 1.8)
    pt3dadd(-29.8229497538554, -36.9918690371154, 27.8418609850527, 1.8)
    pt3dadd(-30.0498939684743, -37.9026206758176, 28.1868650082932, 1.8)
    pt3dadd(-30.2768381830932, -38.8133723145199, 28.5318690315338, 1.8)
    pt3dadd(-30.5037823977121, -39.7241239532221, 28.8768730547743, 1.8)
    pt3dadd(-30.7307266123311, -40.6348755919244, 29.2218770780148, 1.8)
    pt3dadd(-30.9561204618651, -41.5573710451927, 29.5282181341131, 1.8)
    pt3dadd(-31.1773852006278, -42.5111439773554, 29.7315875252565, 1.8)
    pt3dadd(-31.3986499393905, -43.4649169095181, 29.9349569163998, 1.8)
    pt3dadd(-31.6199146781532, -44.4186898416808, 30.1383263075432, 1.8)
    pt3dadd(-31.8411794169158, -45.3724627738435, 30.3416956986865, 1.8)
    pt3dadd(-32.0624441556785, -46.3262357060063, 30.5450650898299, 1.8)
    pt3dadd(-32.2837088944412, -47.280008638169, 30.7484344809732, 1.8)
    pt3dadd(-32.5049736332039, -48.2337815703317, 30.9518038721166, 1.8)
    pt3dadd(-32.8350951600348, -49.1339302238593, 31.213490306091, 1.8)
    pt3dadd(-33.2389182823921, -49.9977725067463, 31.514660351325, 1.8)
    pt3dadd(-33.6427414047495, -50.8616147896332, 31.8158303965589, 1.8)
    pt3dadd(-34.0465645271068, -51.7254570725202, 32.1170004417929, 1.8)
    pt3dadd(-34.4503876494642, -52.5892993554072, 32.4181704870268, 1.8)
    pt3dadd(-34.8041595508811, -53.4671105076262, 32.7397505024334, 1.8)
    pt3dadd(-35.1438110181687, -54.3488625527057, 33.0670885719691, 1.8)
    pt3dadd(-35.4834624854563, -55.2306145977853, 33.3944266415048, 1.8)
    pt3dadd(-35.8231139527439, -56.1123666428649, 33.7217647110406, 1.8)
    pt3dadd(-36.1627654200315, -56.9941186879445, 34.0491027805763, 1.8)
    pt3dadd(-36.5024168873191, -57.875870733024, 34.376440850112, 1.8)
    pt3dadd(-36.8123734812662, -58.7725304621913, 34.6905833463509, 1.8)
    pt3dadd(-37.093458005322, -59.6836848043498, 34.9918959001915, 1.8)
    pt3dadd(-37.3745425293779, -60.5948391465083, 35.2932084540321, 1.8)
    pt3dadd(-37.6556270534338, -61.5059934886669, 35.5945210078728, 1.8)
    pt3dadd(-37.9367115774897, -62.4171478308254, 35.8958335617134, 1.8)
    pt3dadd(-38.2177961015456, -63.3283021729839, 36.1971461155541, 1.8)
    pt3dadd(-38.4988806256015, -64.2394565151424, 36.4984586693947, 1.8)
    pt3dadd(-38.9865572557893, -64.9680548403116, 36.9410663463309, 1.8)
    pt3dadd(-39.5504685603419, -65.6292880624811, 37.4358134195887, 1.8)
    pt3dadd(-40.1143798648945, -66.2905212846506, 37.9305604928465, 1.8)
    pt3dadd(-40.6782911694471, -66.95175450682, 38.4253075661043, 1.8)
    pt3dadd(-41.2422024739997, -67.6129877289895, 38.9200546393621, 1.8)
    pt3dadd(-41.5994042260994, -68.4678765789508, 39.2223383871739, 1.8)
    pt3dadd(-41.8681282052979, -69.405655737819, 39.4422421665782, 1.8)
    pt3dadd(-42.1368521844965, -70.3434348966871, 39.6621459459825, 1.8)
    pt3dadd(-42.405576163695, -71.2812140555552, 39.8820497253869, 1.8)
    pt3dadd(-42.6743001428936, -72.2189932144233, 40.1019535047912, 1.8)
    pt3dadd(-42.9430241220921, -73.1567723732914, 40.3218572841955, 1.8)
    pt3dadd(-43.2117481012907, -74.0945515321595, 40.5417610635998, 1.8)
    pt3dadd(-43.4459151511288, -75.0540582288717, 40.5910963012072, 1.8)
    pt3dadd(-43.6552780530991, -76.0291604391743, 40.5180014673169, 1.8)
    pt3dadd(-43.8646409550694, -77.004262649477, 40.4449066334267, 1.8)
    pt3dadd(-44.0740038570397, -77.9793648597797, 40.3718117995365, 1.8)
    pt3dadd(-44.28336675901, -78.9544670700823, 40.2987169656463, 1.8)
    pt3dadd(-44.5351524194079, -79.8925933550413, 40.3826195472774, 1.8)
    pt3dadd(-44.8624087042097, -80.764939000621, 40.7458225190381, 1.8)
    pt3dadd(-45.1896649890115, -81.6372846462008, 41.1090254907988, 1.8)
    pt3dadd(-45.5169212738133, -82.5096302917805, 41.4722284625594, 1.8)
    pt3dadd(-45.8441775586152, -83.3819759373603, 41.8354314343201, 1.8)
    pt3dadd(-46.171433843417, -84.25432158294, 42.1986344060808, 1.8)
    pt3dadd(-46.4029586899404, -85.1344798097731, 42.5291454939618, 1.8)
  }
  adendIML[14] {pt3dclear()
    pt3dadd(-46.4029586899404, -85.1344798097731, 42.5291454939618, 1.8)
    pt3dadd(-46.9296870724023, -86.0175647511461, 42.7413207107463, 1.8)
    pt3dadd(-47.333693786437, -86.9036356278444, 42.9686024224653, 1.8)
    pt3dadd(-47.7377005004718, -87.7897065045428, 43.1958841341843, 1.8)
    pt3dadd(-48.1417072145065, -88.675777381241, 43.4231658459034, 1.8)
    pt3dadd(-48.5457139285413, -89.5618482579393, 43.6504475576224, 1.8)
    pt3dadd(-48.9497206425761, -90.4479191346377, 43.8777292693414, 1.8)
    pt3dadd(-49.3537273566108, -91.333990011336, 44.1050109810604, 1.8)
    pt3dadd(-49.7384747535283, -92.2308397799514, 44.3122760334252, 1.8)
    pt3dadd(-50.0218867287414, -93.1844041013871, 44.4142208086261, 1.8)
    pt3dadd(-50.3052987039546, -94.1379684228227, 44.516165583827, 1.8)
    pt3dadd(-50.5887106791677, -95.0915327442584, 44.618110359028, 1.8)
    pt3dadd(-50.8721226543808, -96.045097065694, 44.7200551342289, 1.8)
    pt3dadd(-51.155534629594, -96.9986613871297, 44.8219999094298, 1.8)
    pt3dadd(-51.4389466048071, -97.9522257085653, 44.9239446846308, 1.8)
    pt3dadd(-51.7402404319154, -98.9008869067125, 45.0190279416774, 1.8)
    pt3dadd(-52.051742127937, -99.8467491531578, 45.1101942958061, 1.8)
    pt3dadd(-52.3632438239586, -100.792611399603, 45.2013606499348, 1.8)
    pt3dadd(-52.6747455199801, -101.738473646048, 45.2925270040636, 1.8)
    pt3dadd(-52.9862472160016, -102.684335892494, 45.3836933581923, 1.8)
    pt3dadd(-53.2977489120232, -103.630198138939, 45.474859712321, 1.8)
    pt3dadd(-53.6092506080447, -104.576060385384, 45.5660260664497, 1.8)
    pt3dadd(-54.4088166721945, -105.128793707168, 45.3653156217193, 1.8)
    pt3dadd(-54.9612291484048, -105.855038535939, 45.3257514452884, 1.8)
  }
  adendIML[15] {pt3dclear()
    pt3dadd(-54.9612291484048, -105.855038535939, 45.3257514452884, 1.8)
    pt3dadd(-55.005440163231, -106.884834441616, 45.1804783140594, 1.8)
    pt3dadd(-55.1315101288589, -107.875424528377, 45.1272087751215, 1.8)
    pt3dadd(-55.2575800944868, -108.866014615137, 45.0739392361835, 1.8)
    pt3dadd(-55.3836500601147, -109.856604701897, 45.0206696972456, 1.8)
    pt3dadd(-55.5097200257426, -110.847194788658, 44.9674001583077, 1.8)
    pt3dadd(-55.6357899913706, -111.837784875418, 44.9141306193698, 1.8)
    pt3dadd(-55.7618599569985, -112.828374962178, 44.8608610804319, 1.8)
    pt3dadd(-55.937766682125, -113.793880031652, 44.9637073920524, 1.8)
    pt3dadd(-56.1613239618713, -114.735400496219, 45.2158211708769, 1.8)
    pt3dadd(-56.3848812416174, -115.676920960787, 45.4679349497015, 1.8)
    pt3dadd(-56.6084385213636, -116.618441425354, 45.720048728526, 1.8)
  }
  adendMML[16] {pt3dclear()
    pt3dadd(-56.6084385213636, -116.618441425354, 45.720048728526, 1.8)
    pt3dadd(-56.8319958011098, -117.559961889922, 45.9721625073505, 1.8)
    pt3dadd(-57.055553080856, -118.501482354489, 46.224276286175, 1.8)
    pt3dadd(-57.2791103606022, -119.443002819056, 46.4763900649996, 1.8)
    pt3dadd(-57.4735104844875, -120.399149513288, 46.6943815021268, 1.8)
    pt3dadd(-57.6617370978556, -121.358393052188, 46.9051481387164, 1.8)
    pt3dadd(-57.8499637112237, -122.317636591087, 47.115914775306, 1.8)
    pt3dadd(-58.0381903245918, -123.276880129987, 47.3266814118956, 1.8)
    pt3dadd(-58.2264169379599, -124.236123668887, 47.5374480484852, 1.8)
    pt3dadd(-58.414643551328, -125.195367207786, 47.7482146850748, 1.8)
    pt3dadd(-58.6028701646962, -126.154610746686, 47.9589813216644, 1.8)
    pt3dadd(-58.7910967780643, -127.113854285586, 48.169747958254, 1.8)
    pt3dadd(-58.9793233914324, -128.073097824485, 48.3805145948436, 1.8)
    pt3dadd(-59.1675500048005, -129.032341363385, 48.5912812314333, 1.8)
    pt3dadd(-59.3557766181686, -129.991584902284, 48.8020478680229, 1.8)
  }
}
proc shape3d_17() {
  adendMML[16] {
    pt3dadd(-59.5543316139363, -130.956756515214, 48.898489473035, 1.8)
    pt3dadd(-59.7683015114894, -131.930775658706, 48.8243032812441, 1.8)
    pt3dadd(-59.9822714090425, -132.904794802197, 48.7501170894533, 1.8)
    pt3dadd(-60.1962413065956, -133.878813945689, 48.6759308976625, 1.8)
    pt3dadd(-60.4102112041487, -134.852833089181, 48.6017447058716, 1.8)
    pt3dadd(-60.6241811017018, -135.826852232673, 48.5275585140808, 1.8)
    pt3dadd(-60.8381509992548, -136.800871376165, 48.45337232229, 1.8)
    pt3dadd(-61.0521208968079, -137.774890519657, 48.3791861304991, 1.8)
    pt3dadd(-61.266090794361, -138.748909663149, 48.3049999387083, 1.8)
    pt3dadd(-61.4584262232165, -139.726734547032, 48.2359681396384, 1.8)
    pt3dadd(-61.5615132798482, -140.720259198714, 48.1881996850296, 1.8)
    pt3dadd(-61.6646003364799, -141.713783850395, 48.1404312304208, 1.8)
    pt3dadd(-61.7676873931116, -142.707308502077, 48.092662775812, 1.8)
    pt3dadd(-61.8707744497433, -143.700833153759, 48.0448943212032, 1.8)
    pt3dadd(-61.973861506375, -144.69435780544, 47.9971258665944, 1.8)
    pt3dadd(-62.0769485630066, -145.687882457122, 47.9493574119855, 1.8)
    pt3dadd(-62.1800356196383, -146.681407108804, 47.9015889573767, 1.8)
    pt3dadd(-62.28312267627, -147.674931760486, 47.8538205027679, 1.8)
    pt3dadd(-62.3862097329017, -148.668456412167, 47.8060520481591, 1.8)
    pt3dadd(-62.4892967895334, -149.661981063849, 47.7582835935503, 1.8)
    pt3dadd(-62.6257345554378, -150.652152981294, 47.7663646919888, 1.8)
    pt3dadd(-62.7690819737831, -151.641630273983, 47.7860167887343, 1.8)
    pt3dadd(-62.9124293921283, -152.631107566672, 47.8056688854798, 1.8)
    pt3dadd(-63.0557768104736, -153.620584859362, 47.8253209822253, 1.8)
    pt3dadd(-63.1991242288188, -154.610062152051, 47.8449730789708, 1.8)
    pt3dadd(-63.342471647164, -155.59953944474, 47.8646251757162, 1.8)
    pt3dadd(-63.4858190655093, -156.589016737429, 47.8842772724617, 1.8)
    pt3dadd(-63.6291664838545, -157.578494030118, 47.9039293692072, 1.8)
    pt3dadd(-63.8146910212347, -158.559297084998, 47.9580241469275, 1.8)
    pt3dadd(-64.009645307624, -159.538160797238, 48.0198194467371, 1.8)
    pt3dadd(-64.2045995940132, -160.517024509477, 48.0816147465467, 1.8)
    pt3dadd(-64.3995538804025, -161.495888221717, 48.1434100463563, 1.8)
    pt3dadd(-64.5945081667918, -162.474751933957, 48.2052053461659, 1.8)
    pt3dadd(-64.7894624531811, -163.453615646197, 48.2670006459755, 1.8)
    pt3dadd(-64.7771173772205, -164.430336717937, 48.1781546420653, 1.8)
    pt3dadd(-64.6449140243969, -165.405818937829, 48.0022094455499, 1.8)
    pt3dadd(-64.5127106715733, -166.381301157721, 47.8262642490344, 1.8)
    pt3dadd(-64.3805073187498, -167.356783377613, 47.650319052519, 1.8)
    pt3dadd(-64.2483039659262, -168.332265597505, 47.4743738560035, 1.8)
    pt3dadd(-64.1161006131026, -169.307747817397, 47.2984286594881, 1.8)
    pt3dadd(-63.983897260279, -170.283230037289, 47.1224834629726, 1.8)
    pt3dadd(-63.8516939074554, -171.258712257181, 46.9465382664572, 1.8)
    pt3dadd(-63.7194905546318, -172.234194477073, 46.7705930699417, 1.8)
    pt3dadd(-63.5872872018082, -173.209676696965, 46.5946478734263, 1.8)
    pt3dadd(-63.4550838489846, -174.185158916857, 46.4187026769108, 1.8)
    pt3dadd(-63.4332540500569, -175.159139701764, 46.2134304044127, 1.8)
    pt3dadd(-63.4854444817553, -176.132113573694, 45.9884904048984, 1.8)
    pt3dadd(-63.5376349134537, -177.105087445623, 45.7635504053842, 1.8)
    pt3dadd(-63.589825345152, -178.078061317553, 45.5386104058699, 1.8)
    pt3dadd(-63.6420157768504, -179.051035189482, 45.3136704063556, 1.8)
    pt3dadd(-63.6942062085487, -180.024009061412, 45.0887304068414, 1.8)
    pt3dadd(-63.7463966402471, -180.996982933342, 44.8637904073271, 1.8)
    pt3dadd(-63.7985870719455, -181.969956805271, 44.6388504078128, 1.8)
    pt3dadd(-63.8272575383404, -182.953829674318, 44.4703730685487, 1.8)
    pt3dadd(-63.8389426801646, -183.945573430977, 44.3426711555284, 1.8)
    pt3dadd(-63.8506278219888, -184.937317187636, 44.214969242508, 1.8)
    pt3dadd(-63.8623129638129, -185.929060944294, 44.0872673294876, 1.8)
    pt3dadd(-63.873998105637, -186.920804700953, 43.9595654164673, 1.8)
    pt3dadd(-63.8856832474612, -187.912548457612, 43.8318635034469, 1.8)
    pt3dadd(-63.8973683892853, -188.90429221427, 43.7041615904265, 1.8)
    pt3dadd(-63.9090535311095, -189.896035970929, 43.5764596774061, 1.8)
    pt3dadd(-63.9207386729336, -190.887779727588, 43.4487577643858, 1.8)
    pt3dadd(-63.9324238147577, -191.879523484246, 43.3210558513654, 1.8)
    pt3dadd(-63.9441089565819, -192.871267240905, 43.193353938345, 1.8)
    pt3dadd(-63.9275976080451, -193.853802680622, 43.0322310654778, 1.8)
    pt3dadd(-63.7925993926692, -194.797643069668, 42.7306671388369, 1.8)
    pt3dadd(-63.6576011772932, -195.741483458714, 42.4291032121959, 1.8)
    pt3dadd(-63.5226029619172, -196.68532384776, 42.1275392855549, 1.8)
    pt3dadd(-63.3876047465413, -197.629164236805, 41.8259753589139, 1.8)
    pt3dadd(-63.2526065311653, -198.573004625851, 41.5244114322729, 1.8)
    pt3dadd(-63.1176083157893, -199.516845014897, 41.2228475056319, 1.8)
    pt3dadd(-62.9826101004133, -200.460685403943, 40.9212835789909, 1.8)
    pt3dadd(-62.8476118850373, -201.404525792989, 40.61971965235, 1.8)
    pt3dadd(-62.7126136696613, -202.348366182035, 40.318155725709, 1.8)
    pt3dadd(-62.5776154542854, -203.29220657108, 40.016591799068, 1.8)
    pt3dadd(-62.9355476182935, -204.216054144055, 40.0499846195518, 1.8)
    pt3dadd(-63.3174280879171, -205.138930395137, 40.0996508264683, 1.8)
    pt3dadd(-63.6993085575407, -206.061806646219, 40.1493170333847, 1.8)
    pt3dadd(-64.0811890271643, -206.9846828973, 40.1989832403012, 1.8)
    pt3dadd(-64.4630694967879, -207.907559148382, 40.2486494472177, 1.8)
    pt3dadd(-64.8449499664115, -208.830435399464, 40.2983156541342, 1.8)
    pt3dadd(-65.2268304360351, -209.753311650545, 40.3479818610506, 1.8)
    pt3dadd(-65.479344930693, -210.52575123579, 39.9131397198555, 1.8)
    pt3dadd(-65.6608390872524, -211.215602931344, 39.2123084211277, 1.8)
    pt3dadd(-65.8423332438118, -211.905454626897, 38.5114771224, 1.8)
    pt3dadd(-66.0238274003711, -212.595306322451, 37.8106458236722, 1.8)
    pt3dadd(-66.2053215569305, -213.285158018005, 37.1098145249444, 1.8)
    pt3dadd(-66.3868157134899, -213.975009713559, 36.4089832262166, 1.8)
    pt3dadd(-66.5968069905381, -214.707265155253, 35.7763328232896, 1.8)
    pt3dadd(-66.8831922228858, -215.553194885145, 35.3264590734681, 1.8)
    pt3dadd(-67.1695774552336, -216.399124615037, 34.8765853236466, 1.8)
    pt3dadd(-67.4559626875813, -217.245054344928, 34.426711573825, 1.8)
    pt3dadd(-67.7423479199291, -218.09098407482, 33.9768378240035, 1.8)
    pt3dadd(-68.0287331522768, -218.936913804712, 33.526964074182, 1.8)
    pt3dadd(-68.3151183846246, -219.782843534603, 33.0770903243604, 1.8)
    pt3dadd(-68.6015036169723, -220.628773264495, 32.6272165745389, 1.8)
    pt3dadd(-68.8878888493201, -221.474702994387, 32.1773428247174, 1.8)
    pt3dadd(-69.1742740816678, -222.320632724278, 31.7274690748958, 1.8)
    pt3dadd(-69.4606593140156, -223.16656245417, 31.2775953250743, 1.8)
    pt3dadd(-69.8159955158295, -224.007306688722, 30.9084580595929, 1.8)
    pt3dadd(-70.3581969924278, -224.833997618162, 30.7581262068294, 1.8)
    pt3dadd(-70.9003984690261, -225.660688547603, 30.6077943540659, 1.8)
    pt3dadd(-71.4425999456245, -226.487379477043, 30.4574625013024, 1.8)
    pt3dadd(-71.8520082088681, -227.194152738672, 30.1134997542031, 1.8)
    pt3dadd(-71.8515271740375, -227.530779307976, 29.1718616488548, 1.8)
    pt3dadd(-71.851046139207, -227.867405877281, 28.2302235435066, 1.8)
    pt3dadd(-71.8505651043765, -228.204032446585, 27.2885854381584, 1.8)
    pt3dadd(-71.8500840695459, -228.54065901589, 26.3469473328101, 1.8)
    pt3dadd(-71.8496030347154, -228.877285585194, 25.4053092274619, 1.8)
    pt3dadd(-71.8491219998849, -229.213912154498, 24.4636711221137, 1.8)
    pt3dadd(-71.8486409650543, -229.550538723803, 23.5220330167654, 1.8)
  }
  adendMML[17] {pt3dclear()
    pt3dadd(-71.8486409650543, -229.550538723803, 23.5220330167654, 1.8)
    pt3dadd(-72.1505792244358, -230.196152029437, 23.7877118375999, 1.8)
    pt3dadd(-72.5300155560739, -230.920946382302, 24.3627781088139, 1.8)
    pt3dadd(-72.9094518877119, -231.645740735167, 24.9378443800279, 1.8)
    pt3dadd(-73.28888821935, -232.370535088032, 25.5129106512419, 1.8)
    pt3dadd(-73.668324550988, -233.095329440898, 26.0879769224559, 1.8)
    pt3dadd(-74.0477608826261, -233.820123793763, 26.6630431936699, 1.8)
  }
  adendOML[12] {pt3dclear()
    pt3dadd(-74.0477608826261, -233.820123793763, 26.6630431936699, 1.8)
    pt3dadd(-74.4271972142641, -234.544918146628, 27.2381094648839, 1.8)
    pt3dadd(-74.8066335459022, -235.269712499493, 27.8131757360979, 1.8)
    pt3dadd(-75.1860698775402, -235.994506852358, 28.3882420073119, 1.8)
    pt3dadd(-75.5469538721215, -236.751284554202, 28.8798737325728, 1.8)
    pt3dadd(-75.7845442949863, -237.720614524744, 28.8170231226111, 1.8)
    pt3dadd(-76.022134717851, -238.689944495285, 28.7541725126495, 1.8)
    pt3dadd(-76.2597251407158, -239.659274465827, 28.6913219026878, 1.8)
    pt3dadd(-76.4973155635806, -240.628604436369, 28.6284712927262, 1.8)
    pt3dadd(-76.7349059864454, -241.59793440691, 28.5656206827645, 1.8)
    pt3dadd(-76.9724964093102, -242.567264377452, 28.5027700728029, 1.8)
    pt3dadd(-77.210086832175, -243.536594347994, 28.4399194628412, 1.8)
    pt3dadd(-77.4476772550398, -244.505924318535, 28.3770688528796, 1.8)
    pt3dadd(-77.5255956756384, -245.439289411374, 28.0957966086806, 1.8)
    pt3dadd(-77.5099694037639, -246.351584289167, 27.6865608873899, 1.8)
    pt3dadd(-77.4943431318894, -247.26387916696, 27.2773251660992, 1.8)
    pt3dadd(-77.478716860015, -248.176174044752, 26.8680894448084, 1.8)
    pt3dadd(-77.4630905881405, -249.088468922545, 26.4588537235177, 1.8)
    pt3dadd(-77.4474643162661, -250.000763800338, 26.049618002227, 1.8)
    pt3dadd(-77.4318380443916, -250.913058678131, 25.6403822809363, 1.8)
    pt3dadd(-77.4238349615921, -251.845271783387, 25.3184281794852, 1.8)
    pt3dadd(-77.4415734516931, -252.844743682735, 25.2912019350878, 1.8)
    pt3dadd(-77.459311941794, -253.844215582082, 25.2639756906904, 1.8)
    pt3dadd(-77.477050431895, -254.843687481429, 25.236749446293, 1.8)
    pt3dadd(-77.494788921996, -255.843159380777, 25.2095232018956, 1.8)
    pt3dadd(-77.5125274120969, -256.842631280124, 25.1822969574982, 1.8)
    pt3dadd(-77.5302659021979, -257.842103179471, 25.1550707131008, 1.8)
    pt3dadd(-77.5480043922989, -258.841575078819, 25.1278444687034, 1.8)
    pt3dadd(-77.6420277565817, -259.8352411844, 25.0753373017942, 1.8)
    pt3dadd(-77.7481570674307, -260.827985945746, 25.0188182059102, 1.8)
    pt3dadd(-77.8542863782797, -261.820730707091, 24.9622991100262, 1.8)
    pt3dadd(-77.9604156891287, -262.813475468437, 24.9057800141422, 1.8)
    pt3dadd(-78.0665449999778, -263.806220229783, 24.8492609182582, 1.8)
    pt3dadd(-78.1726743108268, -264.798964991128, 24.7927418223741, 1.8)
    pt3dadd(-78.2788036216758, -265.791709752474, 24.7362227264901, 1.8)
    pt3dadd(-78.3170312874984, -266.777228979401, 24.7107309916354, 1.8)
    pt3dadd(-78.0336994756215, -267.728530492269, 24.8321744599426, 1.8)
    pt3dadd(-77.7503676637446, -268.679832005136, 24.9536179282499, 1.8)
    pt3dadd(-77.4670358518676, -269.631133518004, 25.0750613965571, 1.8)
    pt3dadd(-77.1837040399907, -270.582435030871, 25.1965048648643, 1.8)
    pt3dadd(-76.9003722281137, -271.533736543739, 25.3179483331715, 1.8)
    pt3dadd(-76.6366903309284, -272.459724027717, 25.5600337332293, 1.8)
    pt3dadd(-76.3911857466541, -273.362294564019, 25.9137199304433, 1.8)
    pt3dadd(-76.1456811623799, -274.264865100321, 26.2674061276574, 1.8)
    pt3dadd(-75.9001765781057, -275.167435636623, 26.6210923248714, 1.8)
    pt3dadd(-75.6546719938314, -276.070006172925, 26.9747785220854, 1.8)
    pt3dadd(-75.4091674095572, -276.972576709227, 27.3284647192994, 1.8)
    pt3dadd(-75.163662825283, -277.875147245529, 27.6821509165134, 1.8)
    pt3dadd(-75.1800066275827, -278.81268432902, 27.9681610006102, 1.8)
    pt3dadd(-75.3335127441212, -279.768537708426, 28.2187207524926, 1.8)
    pt3dadd(-75.4870188606596, -280.724391087832, 28.469280504375, 1.8)
    pt3dadd(-75.6405249771981, -281.680244467238, 28.7198402562574, 1.8)
    pt3dadd(-75.7940310937365, -282.636097846644, 28.9704000081398, 1.8)
    pt3dadd(-75.947537210275, -283.59195122605, 29.2209597600222, 1.8)
    pt3dadd(-76.1010433268134, -284.547804605456, 29.4715195119046, 1.8)
    pt3dadd(-76.2545494433519, -285.503657984862, 29.722079263787, 1.8)
    pt3dadd(-76.4080555598904, -286.459511364268, 29.9726390156694, 1.8)
  }
  adendMML[18] {pt3dclear()
    pt3dadd(-71.8486409650543, -229.550538723803, 23.5220330167654, 1.8)
    pt3dadd(-71.8372754763434, -230.404956250808, 23.2030383779471, 1.8)
    pt3dadd(-71.8231207337407, -231.392063066564, 23.0436025678237, 1.8)
    pt3dadd(-71.8089659911381, -232.37916988232, 22.8841667577002, 1.8)
    pt3dadd(-71.7948112485355, -233.366276698076, 22.7247309475767, 1.8)
  }
  adendOML[13] {pt3dclear()
    pt3dadd(-71.7948112485355, -233.366276698076, 22.7247309475767, 1.8)
    pt3dadd(-71.7806565059328, -234.353383513832, 22.5652951374533, 1.8)
    pt3dadd(-71.7665017633302, -235.340490329588, 22.4058593273298, 1.8)
    pt3dadd(-71.7523470207276, -236.327597145344, 22.2464235172064, 1.8)
    pt3dadd(-71.7381922781249, -237.3147039611, 22.0869877070829, 1.8)
    pt3dadd(-71.7240375355223, -238.301810776856, 21.9275518969595, 1.8)
    pt3dadd(-71.6862972721186, -239.275323404023, 21.7274965884217, 1.8)
    pt3dadd(-71.5417601790782, -240.187280627978, 21.3435134502353, 1.8)
    pt3dadd(-71.3972230860379, -241.099237851933, 20.9595303120489, 1.8)
    pt3dadd(-71.2526859929975, -242.011195075888, 20.5755471738625, 1.8)
    pt3dadd(-71.1081488999572, -242.923152299843, 20.1915640356761, 1.8)
    pt3dadd(-71.0204477024901, -243.802900582241, 19.7307054752029, 1.8)
    pt3dadd(-70.9660344330254, -244.663784572683, 19.2248221377567, 1.8)
    pt3dadd(-70.9116211635607, -245.524668563126, 18.7189388003105, 1.8)
    pt3dadd(-70.857207894096, -246.385552553569, 18.2130554628643, 1.8)
    pt3dadd(-70.8027946246313, -247.246436544011, 17.7071721254181, 1.8)
    pt3dadd(-70.7483813551666, -248.107320534454, 17.2012887879719, 1.8)
    pt3dadd(-70.6939680857019, -248.968204524897, 16.6954054505257, 1.8)
    pt3dadd(-70.6395548162372, -249.829088515339, 16.1895221130795, 1.8)
    pt3dadd(-70.7407014871337, -250.754087465764, 15.9297847463112, 1.8)
    pt3dadd(-70.9585350809661, -251.727179629498, 15.8546837058669, 1.8)
    pt3dadd(-71.1763686747985, -252.700271793233, 15.7795826654225, 1.8)
    pt3dadd(-71.3942022686309, -253.673363956968, 15.7044816249782, 1.8)
    pt3dadd(-71.6120358624634, -254.646456120703, 15.6293805845338, 1.8)
    pt3dadd(-71.7069140501636, -255.639742873761, 15.6345269505333, 1.8)
    pt3dadd(-71.7774252270653, -256.63703174264, 15.6555765572352, 1.8)
    pt3dadd(-71.847936403967, -257.634320611519, 15.6766261639371, 1.8)
    pt3dadd(-71.9184475808686, -258.631609480398, 15.6976757706389, 1.8)
    pt3dadd(-71.9889587577703, -259.628898349277, 15.7187253773408, 1.8)
    pt3dadd(-72.0594699346721, -260.626187218155, 15.7397749840427, 1.8)
    pt3dadd(-72.1299811115737, -261.623476087034, 15.7608245907445, 1.8)
    pt3dadd(-72.2004922884754, -262.620764955913, 15.7818741974464, 1.8)
    pt3dadd(-72.2710034653771, -263.618053824792, 15.8029238041483, 1.8)
    pt3dadd(-72.3061123334419, -264.613684416494, 15.7707223596386, 1.8)
    pt3dadd(-72.285413625016, -265.606700929242, 15.6545768953368, 1.8)
    pt3dadd(-72.2647149165901, -266.599717441991, 15.538431431035, 1.8)
    pt3dadd(-72.2440162081642, -267.59273395474, 15.4222859667332, 1.8)
    pt3dadd(-72.2233174997383, -268.585750467488, 15.3061405024314, 1.8)
    pt3dadd(-72.2026187913124, -269.578766980237, 15.1899950381296, 1.8)
    pt3dadd(-72.2553595478105, -270.565929134241, 15.0662489390275, 1.8)
    pt3dadd(-72.4073896432959, -271.545176260398, 14.9322268662921, 1.8)
    pt3dadd(-72.5594197387813, -272.524423386555, 14.7982047935567, 1.8)
    pt3dadd(-72.7114498342667, -273.503670512712, 14.6641827208213, 1.8)
    pt3dadd(-72.8634799297522, -274.482917638868, 14.5301606480859, 1.8)
    pt3dadd(-73.0155100252375, -275.462164765025, 14.3961385753505, 1.8)
    pt3dadd(-73.167540120723, -276.441411891182, 14.2621165026151, 1.8)
    pt3dadd(-73.2778359911989, -277.426187193963, 14.1386886711834, 1.8)
    pt3dadd(-73.3257258901632, -278.419228883212, 14.0311026080087, 1.8)
    pt3dadd(-73.3736157891273, -279.412270572462, 13.9235165448339, 1.8)
    pt3dadd(-73.4215056880916, -280.405312261712, 13.8159304816591, 1.8)
    pt3dadd(-73.4693955870558, -281.398353950961, 13.7083444184844, 1.8)
    pt3dadd(-73.51728548602, -282.391395640211, 13.6007583553096, 1.8)
    pt3dadd(-73.5651753849842, -283.384437329461, 13.4931722921349, 1.8)
    pt3dadd(-73.6130652839485, -284.37747901871, 13.3855862289601, 1.8)
    pt3dadd(-73.6609551829127, -285.37052070796, 13.2780001657854, 1.8)
    pt3dadd(-73.7088450818769, -286.363562397209, 13.1704141026106, 1.8)
    pt3dadd(-73.7567349808412, -287.356604086459, 13.0628280394359, 1.8)
  }
  adendIML[16] {pt3dclear()
    pt3dadd(-54.9612291484048, -105.855038535939, 45.3257514452884, 1.8)
    pt3dadd(-55.4967177571369, -106.649540192227, 45.7326391102681, 1.8)
    pt3dadd(-55.9503474150673, -107.483247667432, 46.0475231829566, 1.8)
    pt3dadd(-56.4039770729977, -108.316955142637, 46.3624072556451, 1.8)
    pt3dadd(-56.8576067309281, -109.150662617843, 46.6772913283336, 1.8)
    pt3dadd(-57.3112363888586, -109.984370093048, 46.9921754010221, 1.8)
    pt3dadd(-57.7648660467889, -110.818077568253, 47.3070594737106, 1.8)
    pt3dadd(-58.2184957047194, -111.651785043458, 47.6219435463991, 1.8)
    pt3dadd(-58.6721253626498, -112.485492518663, 47.9368276190877, 1.8)
    pt3dadd(-59.0103460335411, -113.391431071343, 48.1423437845571, 1.8)
    pt3dadd(-59.2628735257, -114.351002454455, 48.2666523780569, 1.8)
    pt3dadd(-59.515401017859, -115.310573837566, 48.3909609715567, 1.8)
  }
}
proc shape3d_18() {
  adendIML[16] {
    pt3dadd(-59.7679285100179, -116.270145220677, 48.5152695650565, 1.8)
  }
  adendMML[19] {pt3dclear()
    pt3dadd(-59.7679285100179, -116.270145220677, 48.5152695650565, 1.8)
    pt3dadd(-60.0579837515162, -117.211682950932, 48.668803786656, 1.8)
    pt3dadd(-60.4321808371792, -118.112787006504, 48.8878654722911, 1.8)
    pt3dadd(-60.8063779228422, -119.013891062076, 49.1069271579262, 1.8)
    pt3dadd(-61.1805750085051, -119.914995117647, 49.3259888435612, 1.8)
    pt3dadd(-61.5547720941681, -120.816099173219, 49.5450505291963, 1.8)
    pt3dadd(-61.9289691798311, -121.717203228791, 49.7641122148313, 1.8)
    pt3dadd(-62.303166265494, -122.618307284363, 49.9831739004664, 1.8)
    pt3dadd(-62.677363351157, -123.519411339935, 50.2022355861015, 1.8)
    pt3dadd(-63.05156043682, -124.420515395507, 50.4212972717365, 1.8)
    pt3dadd(-63.4257575224829, -125.321619451079, 50.6403589573716, 1.8)
    pt3dadd(-63.7999546081459, -126.222723506651, 50.8594206430067, 1.8)
    pt3dadd(-64.1741516938089, -127.123827562222, 51.0784823286417, 1.8)
    pt3dadd(-64.6762674802851, -127.974677001252, 51.1654946079636, 1.8)
    pt3dadd(-65.2360073829018, -128.802888015705, 51.193021993542, 1.8)
    pt3dadd(-65.7957472855185, -129.631099030159, 51.2205493791203, 1.8)
    pt3dadd(-66.3554871881353, -130.459310044612, 51.2480767646987, 1.8)
    pt3dadd(-66.915227090752, -131.287521059065, 51.2756041502771, 1.8)
    pt3dadd(-67.4749669933687, -132.115732073519, 51.3031315358554, 1.8)
    pt3dadd(-68.0347068959855, -132.943943087972, 51.3306589214338, 1.8)
    pt3dadd(-68.5944467986022, -133.772154102425, 51.3581863070122, 1.8)
    pt3dadd(-69.1541867012189, -134.600365116879, 51.3857136925906, 1.8)
    pt3dadd(-69.7139266038357, -135.428576131332, 51.4132410781689, 1.8)
    pt3dadd(-70.1279260583807, -136.287972028112, 51.6677317080486, 1.8)
    pt3dadd(-70.4919563905744, -137.15806009183, 52.0000398160122, 1.8)
    pt3dadd(-70.8559867227681, -138.028148155548, 52.3323479239758, 1.8)
    pt3dadd(-71.2200170549618, -138.898236219266, 52.6646560319394, 1.8)
    pt3dadd(-71.5840473871555, -139.768324282984, 52.9969641399029, 1.8)
    pt3dadd(-71.9480777193492, -140.638412346702, 53.3292722478665, 1.8)
    pt3dadd(-72.312108051543, -141.50850041042, 53.6615803558301, 1.8)
    pt3dadd(-72.6761383837366, -142.378588474138, 53.9938884637937, 1.8)
    pt3dadd(-73.0409737830321, -143.256158271032, 54.2983216101715, 1.8)
    pt3dadd(-73.4097559584602, -144.170406657654, 54.4661000195244, 1.8)
    pt3dadd(-73.7785381338883, -145.084655044277, 54.6338784288774, 1.8)
    pt3dadd(-74.1473203093163, -145.998903430899, 54.8016568382303, 1.8)
    pt3dadd(-74.5161024847444, -146.913151817521, 54.9694352475832, 1.8)
    pt3dadd(-74.8848846601724, -147.827400204144, 55.1372136569362, 1.8)
    pt3dadd(-75.2536668356005, -148.741648590766, 55.3049920662891, 1.8)
    pt3dadd(-75.6224490110286, -149.655896977388, 55.4727704756421, 1.8)
    pt3dadd(-75.9912311864566, -150.570145364011, 55.640548884995, 1.8)
    pt3dadd(-76.2153976536395, -151.539714983034, 55.7312875195178, 1.8)
    pt3dadd(-76.4325500194914, -152.51196777344, 55.8182895973848, 1.8)
    pt3dadd(-76.6497023853433, -153.484220563846, 55.9052916752518, 1.8)
    pt3dadd(-76.8668547511952, -154.456473354251, 55.9922937531188, 1.8)
    pt3dadd(-77.0840071170471, -155.428726144657, 56.0792958309858, 1.8)
    pt3dadd(-77.301159482899, -156.400978935063, 56.1662979088528, 1.8)
    pt3dadd(-77.5183118487508, -157.373231725468, 56.2532999867198, 1.8)
    pt3dadd(-77.7354642146027, -158.345484515874, 56.3403020645868, 1.8)
    pt3dadd(-77.9526165804546, -159.31773730628, 56.4273041424538, 1.8)
    pt3dadd(-78.1697689463065, -160.289990096686, 56.5143062203207, 1.8)
    pt3dadd(-78.3642011326446, -161.248699842036, 56.7027928443756, 1.8)
    pt3dadd(-78.5430484939992, -162.1981197846, 56.9608924259294, 1.8)
    pt3dadd(-78.7218958553539, -163.147539727164, 57.2189920074831, 1.8)
    pt3dadd(-78.9007432167085, -164.096959669728, 57.4770915890369, 1.8)
    pt3dadd(-79.0795905780631, -165.046379612292, 57.7351911705907, 1.8)
    pt3dadd(-79.2584379394178, -165.995799554856, 57.9932907521445, 1.8)
    pt3dadd(-79.4372853007724, -166.94521949742, 58.2513903336982, 1.8)
    pt3dadd(-79.616132662127, -167.894639439984, 58.509489915252, 1.8)
    pt3dadd(-79.7949800234817, -168.844059382548, 58.7675894968058, 1.8)
    pt3dadd(-80.0151134746916, -169.776762938304, 59.0378741292708, 1.8)
    pt3dadd(-80.4008122113845, -170.642430517448, 59.3570231962182, 1.8)
    pt3dadd(-80.7865109480775, -171.508098096591, 59.6761722631654, 1.8)
    pt3dadd(-81.1722096847704, -172.373765675735, 59.9953213301127, 1.8)
    pt3dadd(-81.5579084214634, -173.239433254878, 60.31447039706, 1.8)
    pt3dadd(-81.9436071581563, -174.105100834022, 60.6336194640073, 1.8)
    pt3dadd(-82.3293058948493, -174.970768413165, 60.9527685309546, 1.8)
    pt3dadd(-82.7150046315422, -175.836435992309, 61.2719175979019, 1.8)
    pt3dadd(-83.1007033682352, -176.702103571452, 61.5910666648491, 1.8)
    pt3dadd(-83.4815000815967, -177.594327056306, 61.6991954378432, 1.8)
    pt3dadd(-83.8571802646471, -178.514268503177, 61.5870699082215, 1.8)
    pt3dadd(-84.2328604476975, -179.434209950047, 61.4749443785998, 1.8)
    pt3dadd(-84.608540630748, -180.354151396918, 61.3628188489782, 1.8)
    pt3dadd(-84.9842208137984, -181.274092843788, 61.2506933193565, 1.8)
    pt3dadd(-85.3599009968488, -182.194034290659, 61.1385677897348, 1.8)
    pt3dadd(-85.7355811798992, -183.113975737529, 61.0264422601132, 1.8)
    pt3dadd(-86.0835060079988, -184.042035268363, 61.0078944254114, 1.8)
    pt3dadd(-86.381348774943, -184.984743157261, 61.1581991904352, 1.8)
    pt3dadd(-86.6791915418873, -185.927451046159, 61.3085039554591, 1.8)
    pt3dadd(-86.9770343088315, -186.870158935056, 61.4588087204829, 1.8)
    pt3dadd(-87.2748770757757, -187.812866823954, 61.6091134855068, 1.8)
    pt3dadd(-87.5727198427199, -188.755574712852, 61.7594182505306, 1.8)
    pt3dadd(-87.8705626096642, -189.69828260175, 61.9097230155545, 1.8)
    pt3dadd(-88.1684053766084, -190.640990490648, 62.0600277805783, 1.8)
    pt3dadd(-88.4662481435526, -191.583698379545, 62.2103325456021, 1.8)
    pt3dadd(-88.7640909104968, -192.526406268443, 62.360637310626, 1.8)
    pt3dadd(-89.061933677441, -193.469114157341, 62.5109420756498, 1.8)
    pt3dadd(-89.3577859506869, -194.416030868162, 62.6072897277022, 1.8)
    pt3dadd(-89.6492017222945, -195.372328390073, 62.5833753461251, 1.8)
    pt3dadd(-89.9406174939021, -196.328625911983, 62.5594609645481, 1.8)
    pt3dadd(-90.2320332655097, -197.284923433894, 62.535546582971, 1.8)
    pt3dadd(-90.5234490371173, -198.241220955804, 62.5116322013939, 1.8)
    pt3dadd(-90.8148648087249, -199.197518477715, 62.4877178198168, 1.8)
    pt3dadd(-91.1062805803325, -200.153815999625, 62.4638034382398, 1.8)
    pt3dadd(-91.3976963519401, -201.110113521536, 62.4398890566627, 1.8)
    pt3dadd(-91.7808662204463, -202.02375522783, 62.4237627958817, 1.8)
    pt3dadd(-92.3259991286465, -202.862101489112, 62.4213840162515, 1.8)
    pt3dadd(-92.8711320368468, -203.700447750393, 62.4190052366214, 1.8)
    pt3dadd(-93.4162649450471, -204.538794011675, 62.4166264569913, 1.8)
    pt3dadd(-93.9613978532473, -205.377140272956, 62.4142476773612, 1.8)
    pt3dadd(-94.5065307614476, -206.215486534238, 62.4118688977311, 1.8)
    pt3dadd(-94.9747840452332, -207.038168513503, 62.6456356677239, 1.8)
    pt3dadd(-95.3818441909336, -207.848382344286, 63.067364948412, 1.8)
    pt3dadd(-95.788904336634, -208.65859617507, 63.4890942291001, 1.8)
    pt3dadd(-96.1959644823344, -209.468810005853, 63.9108235097882, 1.8)
    pt3dadd(-96.6030246280347, -210.279023836636, 64.3325527904763, 1.8)
    pt3dadd(-96.9369648312412, -211.158094775359, 64.638547491608, 1.8)
    pt3dadd(-97.2021346508386, -212.101926838962, 64.8356921148885, 1.8)
    pt3dadd(-97.467304470436, -213.045758902566, 65.0328367381692, 1.8)
    pt3dadd(-97.7324742900334, -213.989590966169, 65.2299813614497, 1.8)
    pt3dadd(-97.9976441096309, -214.933423029773, 65.4271259847303, 1.8)
    pt3dadd(-98.2628139292283, -215.877255093377, 65.6242706080109, 1.8)
    pt3dadd(-98.5279837488257, -216.82108715698, 65.8214152312915, 1.8)
    pt3dadd(-98.7931535684231, -217.764919220584, 66.0185598545721, 1.8)
    pt3dadd(-99.0583233880205, -218.708751284187, 66.2157044778527, 1.8)
    pt3dadd(-99.3234932076179, -219.652583347791, 66.4128491011333, 1.8)
    pt3dadd(-99.5979238626874, -220.596501117858, 66.5543496736179, 1.8)
    pt3dadd(-99.9121816819315, -221.540787477279, 66.4565473502593, 1.8)
    pt3dadd(-100.226439501176, -222.485073836701, 66.3587450269007, 1.8)
    pt3dadd(-100.54069732042, -223.429360196122, 66.2609427035421, 1.8)
    pt3dadd(-100.854955139664, -224.373646555544, 66.1631403801835, 1.8)
    pt3dadd(-101.169212958908, -225.317932914965, 66.0653380568249, 1.8)
    pt3dadd(-101.483470778152, -226.262219274387, 65.9675357334663, 1.8)
    pt3dadd(-101.808647379187, -227.20208147488, 65.9009837515806, 1.8)
    pt3dadd(-102.197357221402, -228.116200770933, 66.0162684910207, 1.8)
    pt3dadd(-102.586067063616, -229.030320066987, 66.1315532304608, 1.8)
    pt3dadd(-102.974776905831, -229.944439363041, 66.2468379699009, 1.8)
    pt3dadd(-103.363486748046, -230.858558659094, 66.3621227093409, 1.8)
    pt3dadd(-103.75219659026, -231.772677955148, 66.477407448781, 1.8)
    pt3dadd(-104.093440445097, -232.701517741707, 66.556279064346, 1.8)
    pt3dadd(-104.252248114824, -233.686935939021, 66.4951963299719, 1.8)
  }
  adendOML[14] {pt3dclear()
    pt3dadd(-104.252248114824, -233.686935939021, 66.4951963299719, 1.8)
    pt3dadd(-104.411055784552, -234.672354136335, 66.4341135955978, 1.8)
    pt3dadd(-104.569863454279, -235.657772333649, 66.3730308612236, 1.8)
    pt3dadd(-104.728671124006, -236.643190530962, 66.3119481268495, 1.8)
    pt3dadd(-104.887478793733, -237.628608728276, 66.2508653924754, 1.8)
    pt3dadd(-105.04628646346, -238.61402692559, 66.1897826581013, 1.8)
    pt3dadd(-105.205094133187, -239.599445122904, 66.1286999237271, 1.8)
    pt3dadd(-105.363901802915, -240.584863320218, 66.067617189353, 1.8)
    pt3dadd(-105.522709472642, -241.570281517532, 66.0065344549789, 1.8)
    pt3dadd(-105.681517142369, -242.555699714845, 65.9454517206048, 1.8)
    pt3dadd(-105.844010435362, -243.540444304877, 65.883491469411, 1.8)
    pt3dadd(-106.015202662401, -244.523599023972, 65.8194600730166, 1.8)
    pt3dadd(-106.18639488944, -245.506753743066, 65.7554286766221, 1.8)
    pt3dadd(-106.357587116478, -246.48990846216, 65.6913972802276, 1.8)
    pt3dadd(-106.528779343517, -247.473063181254, 65.6273658838332, 1.8)
    pt3dadd(-106.699971570556, -248.456217900348, 65.5633344874387, 1.8)
    pt3dadd(-106.871163797595, -249.439372619443, 65.4993030910442, 1.8)
    pt3dadd(-107.042356024634, -250.422527338537, 65.4352716946498, 1.8)
    pt3dadd(-107.213548251673, -251.405682057631, 65.3712402982553, 1.8)
    pt3dadd(-107.384740478712, -252.388836776725, 65.3072089018608, 1.8)
    pt3dadd(-107.555932705751, -253.37199149582, 65.2431775054664, 1.8)
    pt3dadd(-107.72712493279, -254.355146214914, 65.1791461090719, 1.8)
    pt3dadd(-107.907309803901, -255.334108617537, 65.2107729369957, 1.8)
    pt3dadd(-108.095434165682, -256.309369677458, 65.3268551901886, 1.8)
    pt3dadd(-108.283558527462, -257.284630737379, 65.4429374433814, 1.8)
    pt3dadd(-108.471682889243, -258.2598917973, 65.5590196965743, 1.8)
    pt3dadd(-108.659807251024, -259.235152857221, 65.6751019497672, 1.8)
    pt3dadd(-108.847931612805, -260.210413917142, 65.7911842029601, 1.8)
    pt3dadd(-109.036055974586, -261.185674977063, 65.907266456153, 1.8)
    pt3dadd(-109.224180336366, -262.160936036984, 66.0233487093459, 1.8)
    pt3dadd(-109.412304698147, -263.136197096905, 66.1394309625388, 1.8)
    pt3dadd(-109.600429059928, -264.111458156826, 66.2555132157316, 1.8)
    pt3dadd(-109.791277861579, -265.085937642921, 66.3717602861543, 1.8)
    pt3dadd(-110.135266975912, -266.016484994101, 66.4972717056897, 1.8)
    pt3dadd(-110.479256090244, -266.94703234528, 66.6227831252252, 1.8)
    pt3dadd(-110.823245204576, -267.87757969646, 66.7482945447607, 1.8)
    pt3dadd(-111.167234318909, -268.808127047639, 66.8738059642961, 1.8)
    pt3dadd(-111.511223433241, -269.738674398819, 66.9993173838316, 1.8)
    pt3dadd(-111.855212547573, -270.669221749998, 67.1248288033671, 1.8)
    pt3dadd(-112.199201661905, -271.599769101178, 67.2503402229025, 1.8)
    pt3dadd(-112.543190776238, -272.530316452357, 67.375851642438, 1.8)
    pt3dadd(-112.783201785773, -273.49591222965, 67.4012736090395, 1.8)
    pt3dadd(-112.979028249827, -274.476401515346, 67.3841634772353, 1.8)
    pt3dadd(-113.174854713882, -275.456890801042, 67.3670533454312, 1.8)
    pt3dadd(-113.370681177936, -276.437380086739, 67.3499432136271, 1.8)
    pt3dadd(-113.566507641991, -277.417869372435, 67.3328330818229, 1.8)
    pt3dadd(-113.762334106046, -278.398358658132, 67.3157229500188, 1.8)
    pt3dadd(-113.9581605701, -279.378847943828, 67.2986128182146, 1.8)
    pt3dadd(-114.153987034155, -280.359337229525, 67.2815026864105, 1.8)
    pt3dadd(-114.349813498209, -281.339826515221, 67.2643925546064, 1.8)
    pt3dadd(-114.603018626196, -282.283447526099, 67.4686913905876, 1.8)
    pt3dadd(-114.860209676511, -283.224507409378, 67.6883708382402, 1.8)
    pt3dadd(-115.117400726825, -284.165567292657, 67.9080502858927, 1.8)
    pt3dadd(-115.374591777139, -285.106627175936, 68.1277297335452, 1.8)
    pt3dadd(-115.631782827454, -286.047687059215, 68.3474091811977, 1.8)
    pt3dadd(-115.888973877768, -286.988746942495, 68.5670886288503, 1.8)
    pt3dadd(-116.146164928082, -287.929806825774, 68.7867680765028, 1.8)
    pt3dadd(-116.403355978397, -288.870866709053, 69.0064475241553, 1.8)
    pt3dadd(-116.644882525054, -289.828614794177, 69.1573341611738, 1.8)
    pt3dadd(-116.881590937565, -290.791495885548, 69.2870613029958, 1.8)
    pt3dadd(-117.118299350077, -291.75437697692, 69.4167884448177, 1.8)
    pt3dadd(-117.355007762589, -292.717258068291, 69.5465155866396, 1.8)
    pt3dadd(-117.5917161751, -293.680139159663, 69.6762427284616, 1.8)
    pt3dadd(-117.828424587612, -294.643020251035, 69.8059698702835, 1.8)
    pt3dadd(-118.065133000123, -295.605901342406, 69.9356970121054, 1.8)
  }
  adendIML[17] {pt3dclear()
    pt3dadd(-46.4029586899404, -85.1344798097731, 42.5291454939618, 1.8)
    pt3dadd(-45.9862918710354, -86.0405184568246, 42.8574484900811, 1.8)
    pt3dadd(-45.6923467205575, -86.9435711685508, 43.170644991266, 1.8)
    pt3dadd(-45.3984015700797, -87.8466238802771, 43.4838414924508, 1.8)
    pt3dadd(-45.1044564196018, -88.7496765920033, 43.7970379936356, 1.8)
    pt3dadd(-44.8105112691239, -89.6527293037296, 44.1102344948204, 1.8)
    pt3dadd(-44.5165661186461, -90.5557820154558, 44.4234309960053, 1.8)
    pt3dadd(-44.3288354150954, -91.4627726348331, 44.7957622874426, 1.8)
    pt3dadd(-44.1661945761107, -92.3706934625999, 45.1820623366291, 1.8)
    pt3dadd(-44.003553737126, -93.2786142903668, 45.5683623858155, 1.8)
    pt3dadd(-43.8409128981413, -94.1865351181337, 45.954662435002, 1.8)
    pt3dadd(-43.6782720591566, -95.0944559459006, 46.3409624841884, 1.8)
    pt3dadd(-43.5156312201719, -96.0023767736675, 46.7272625333749, 1.8)
    pt3dadd(-43.3529903811873, -96.9102976014344, 47.1135625825613, 1.8)
    pt3dadd(-43.2902621201673, -97.7284821856061, 47.6751173165478, 1.8)
    pt3dadd(-43.2506840431032, -98.5258744872737, 48.2772793321691, 1.8)
    pt3dadd(-43.2111059660392, -99.3232667889414, 48.8794413477903, 1.8)
    pt3dadd(-43.1715278889752, -100.120659090609, 49.4816033634116, 1.8)
    pt3dadd(-43.1319498119112, -100.918051392277, 50.0837653790328, 1.8)
    pt3dadd(-43.0923717348472, -101.715443693944, 50.6859273946541, 1.8)
    pt3dadd(-43.0527936577832, -102.512835995612, 51.2880894102754, 1.8)
    pt3dadd(-43.0132155807192, -103.31022829728, 51.8902514258966, 1.8)
    pt3dadd(-42.8850278088802, -104.224086495111, 52.2700074179175, 1.8)
    pt3dadd(-42.7515688968137, -105.144872919836, 52.6365331043738, 1.8)
    pt3dadd(-42.6181099847472, -106.065659344561, 53.0030587908302, 1.8)
    pt3dadd(-42.4846510726807, -106.986445769286, 53.3695844772866, 1.8)
    pt3dadd(-42.3511921606142, -107.90723219401, 53.736110163743, 1.8)
    pt3dadd(-42.2177332485476, -108.828018618735, 54.1026358501994, 1.8)
    pt3dadd(-42.0842743364811, -109.74880504346, 54.4691615366558, 1.8)
    pt3dadd(-41.8565537192939, -110.672066364714, 54.7660705673468, 1.8)
    pt3dadd(-41.5768447268943, -111.596692671348, 55.0245837636285, 1.8)
    pt3dadd(-41.2971357344946, -112.521318977981, 55.2830969599102, 1.8)
    pt3dadd(-41.017426742095, -113.445945284615, 55.5416101561918, 1.8)
    pt3dadd(-40.7377177496953, -114.370571591249, 55.8001233524735, 1.8)
    pt3dadd(-40.4580087572957, -115.295197897882, 56.0586365487552, 1.8)
    pt3dadd(-40.178299764896, -116.219824204516, 56.3171497450369, 1.8)
  }
  adendMML[20] {pt3dclear()
    pt3dadd(-40.178299764896, -116.219824204516, 56.3171497450369, 1.8)
    pt3dadd(-40.1192707135759, -117.114445122798, 56.6859703133607, 1.8)
    pt3dadd(-40.27510766677, -117.979851161479, 57.1621921442697, 1.8)
    pt3dadd(-40.430944619964, -118.845257200159, 57.6384139751787, 1.8)
    pt3dadd(-40.5867815731581, -119.71066323884, 58.1146358060877, 1.8)
    pt3dadd(-40.7426185263521, -120.57606927752, 58.5908576369967, 1.8)
    pt3dadd(-40.8653265443023, -121.455319180706, 59.0399931451804, 1.8)
    pt3dadd(-40.8219737975646, -122.403962280775, 59.3533568444838, 1.8)
    pt3dadd(-40.7786210508269, -123.352605380845, 59.6667205437873, 1.8)
    pt3dadd(-40.7352683040892, -124.301248480914, 59.9800842430908, 1.8)
    pt3dadd(-40.6919155573515, -125.249891580983, 60.2934479423942, 1.8)
    pt3dadd(-40.6485628106138, -126.198534681053, 60.6068116416977, 1.8)
    pt3dadd(-40.6052100638762, -127.147177781122, 60.9201753410012, 1.8)
    pt3dadd(-40.5618573171385, -128.095820881191, 61.2335390403046, 1.8)
    pt3dadd(-40.4979263820848, -129.040123856111, 61.5539296360389, 1.8)
    pt3dadd(-40.3689307979707, -129.970704110865, 61.8965380549962, 1.8)
    pt3dadd(-40.2399352138567, -130.901284365619, 62.2391464739536, 1.8)
  }
}
proc shape3d_19() {
  adendMML[20] {
    pt3dadd(-40.1109396297425, -131.831864620374, 62.5817548929109, 1.8)
    pt3dadd(-39.9819440456284, -132.762444875128, 62.9243633118682, 1.8)
    pt3dadd(-39.8529484615143, -133.693025129882, 63.2669717308256, 1.8)
    pt3dadd(-39.726551400939, -134.622236574051, 63.6129716887271, 1.8)
    pt3dadd(-39.7129725007478, -135.492019388909, 64.1062195660145, 1.8)
    pt3dadd(-39.6993936005567, -136.361802203766, 64.599467443302, 1.8)
    pt3dadd(-39.6858147003655, -137.231585018623, 65.0927153205894, 1.8)
    pt3dadd(-39.6722358001744, -138.10136783348, 65.5859631978769, 1.8)
    pt3dadd(-39.6586568999833, -138.971150648338, 66.0792110751643, 1.8)
    pt3dadd(-39.7253037435816, -139.825546933627, 66.5747203512464, 1.8)
    pt3dadd(-40.0326477089824, -140.633779815417, 67.0770143843829, 1.8)
    pt3dadd(-40.3399916743832, -141.442012697208, 67.5793084175193, 1.8)
    pt3dadd(-40.647335639784, -142.250245578998, 68.0816024506558, 1.8)
    pt3dadd(-40.9546796051848, -143.058478460789, 68.5838964837922, 1.8)
    pt3dadd(-41.2620235705855, -143.866711342579, 69.0861905169286, 1.8)
    pt3dadd(-41.5693675359863, -144.674944224369, 69.5884845500651, 1.8)
    pt3dadd(-41.3645314697981, -145.529601206904, 70.0581456394923, 1.8)
    pt3dadd(-41.1461514595552, -146.385485815244, 70.5269437925754, 1.8)
    pt3dadd(-40.9277714493122, -147.241370423583, 70.9957419456586, 1.8)
    pt3dadd(-40.7093914390693, -148.097255031922, 71.4645400987417, 1.8)
    pt3dadd(-40.4910114288263, -148.953139640262, 71.9333382518249, 1.8)
    pt3dadd(-40.3014951804938, -149.836644381243, 72.3573438879375, 1.8)
    pt3dadd(-40.1418028016843, -150.748687995108, 72.7350670544993, 1.8)
    pt3dadd(-39.9821104228748, -151.660731608974, 73.1127902210612, 1.8)
    pt3dadd(-39.8224180440653, -152.572775222839, 73.4905133876231, 1.8)
    pt3dadd(-39.6627256652559, -153.484818836704, 73.8682365541849, 1.8)
    pt3dadd(-39.5030332864464, -154.39686245057, 74.2459597207467, 1.8)
    pt3dadd(-39.4164405217764, -155.30493969206, 74.6328556869599, 1.8)
    pt3dadd(-39.5743749385336, -156.199748931129, 75.0504357938616, 1.8)
    pt3dadd(-39.7323093552907, -157.094558170198, 75.4680159007634, 1.8)
    pt3dadd(-39.8902437720479, -157.989367409268, 75.8855960076651, 1.8)
    pt3dadd(-40.048178188805, -158.884176648337, 76.3031761145668, 1.8)
    pt3dadd(-40.255826799105, -159.796023412156, 76.5581689258131, 1.8)
    pt3dadd(-40.5663150630822, -160.74311429883, 76.4768308024514, 1.8)
    pt3dadd(-40.8768033270595, -161.690205185503, 76.3954926790897, 1.8)
    pt3dadd(-41.1872915910368, -162.637296072177, 76.314154555728, 1.8)
    pt3dadd(-41.4157868862174, -163.597717460644, 76.3225327580792, 1.8)
    pt3dadd(-41.5054634603967, -164.580708140556, 76.4828057603282, 1.8)
    pt3dadd(-41.595140034576, -165.563698820468, 76.6430787625773, 1.8)
    pt3dadd(-41.6848166087552, -166.546689500379, 76.8033517648263, 1.8)
    pt3dadd(-41.7744931829345, -167.529680180291, 76.9636247670754, 1.8)
    pt3dadd(-41.8641697571138, -168.512670860203, 77.1238977693245, 1.8)
    pt3dadd(-41.9711709963136, -169.48389926732, 77.3217913046467, 1.8)
    pt3dadd(-42.1352195785645, -170.416396396784, 77.643563221077, 1.8)
    pt3dadd(-42.2992681608153, -171.348893526248, 77.9653351375073, 1.8)
    pt3dadd(-42.4633167430661, -172.281390655712, 78.2871070539376, 1.8)
    pt3dadd(-42.627365325317, -173.213887785176, 78.6088789703679, 1.8)
    pt3dadd(-42.7914139075678, -174.14638491464, 78.9306508867982, 1.8)
    pt3dadd(-42.9554624898186, -175.078882044103, 79.2524228032285, 1.8)
    pt3dadd(-43.1231238312164, -176.025563581418, 79.5249050060698, 1.8)
    pt3dadd(-43.2927491526104, -176.979956093127, 79.7705921728802, 1.8)
    pt3dadd(-43.4623744740044, -177.934348604836, 80.0162793396906, 1.8)
    pt3dadd(-43.6319997953985, -178.888741116545, 80.261966506501, 1.8)
    pt3dadd(-43.8016251167925, -179.843133628254, 80.5076536733114, 1.8)
    pt3dadd(-43.9712504381866, -180.797526139964, 80.7533408401217, 1.8)
    pt3dadd(-44.1408757595806, -181.751918651673, 80.9990280069321, 1.8)
    pt3dadd(-44.3105010809746, -182.706311163382, 81.2447151737425, 1.8)
    pt3dadd(-44.4801264023687, -183.660703675091, 81.4904023405529, 1.8)
    pt3dadd(-44.6424690907101, -184.62564816692, 81.6958313783544, 1.8)
    pt3dadd(-44.8034822527017, -185.592519041077, 81.8939108431476, 1.8)
    pt3dadd(-44.9644954146933, -186.559389915234, 82.0919903079408, 1.8)
    pt3dadd(-45.1255085766848, -187.526260789391, 82.2900697727339, 1.8)
    pt3dadd(-45.2865217386764, -188.493131663548, 82.4881492375271, 1.8)
    pt3dadd(-45.4475349006679, -189.460002537704, 82.6862287023203, 1.8)
    pt3dadd(-45.6085480626595, -190.426873411861, 82.8843081671134, 1.8)
    pt3dadd(-45.7695612246511, -191.393744286018, 83.0823876319066, 1.8)
    pt3dadd(-45.9305743866427, -192.360615160175, 83.2804670966998, 1.8)
    pt3dadd(-45.9474688508621, -193.322948736956, 83.5514999657886, 1.8)
    pt3dadd(-45.9634259168757, -194.285252801575, 83.823007349228, 1.8)
    pt3dadd(-45.9793829828892, -195.247556866194, 84.0945147326675, 1.8)
    pt3dadd(-45.9953400489028, -196.209860930813, 84.366022116107, 1.8)
    pt3dadd(-46.0112971149164, -197.172164995432, 84.6375294995464, 1.8)
    pt3dadd(-46.02725418093, -198.134469060051, 84.9090368829859, 1.8)
    pt3dadd(-46.0432112469436, -199.09677312467, 85.1805442664254, 1.8)
    pt3dadd(-46.0950222842465, -200.067945821733, 85.4031734996506, 1.8)
    pt3dadd(-46.1905416225076, -201.049929953125, 85.5662171187017, 1.8)
    pt3dadd(-46.2860609607686, -202.031914084517, 85.7292607377529, 1.8)
    pt3dadd(-46.3815802990297, -203.013898215908, 85.892304356804, 1.8)
    pt3dadd(-46.4770996372908, -203.9958823473, 86.0553479758552, 1.8)
    pt3dadd(-46.5726189755519, -204.977866478691, 86.2183915949063, 1.8)
    pt3dadd(-46.668138313813, -205.959850610083, 86.3814352139575, 1.8)
    pt3dadd(-46.7636576520741, -206.941834741474, 86.5444788330086, 1.8)
    pt3dadd(-46.8591769903352, -207.923818872866, 86.7075224520598, 1.8)
    pt3dadd(-46.9546963285963, -208.905803004258, 86.870566071111, 1.8)
    pt3dadd(-47.1817710613512, -209.864581543224, 86.8794516377369, 1.8)
    pt3dadd(-47.5008549198197, -210.807130217357, 86.780519902914, 1.8)
    pt3dadd(-47.8199387782882, -211.74967889149, 86.6815881680912, 1.8)
    pt3dadd(-48.1390226367567, -212.692227565622, 86.5826564332683, 1.8)
    pt3dadd(-48.2345310452943, -213.670292107204, 86.4000544415155, 1.8)
    pt3dadd(-48.3264912648899, -214.648920292997, 86.2161245853639, 1.8)
    pt3dadd(-48.4184514844855, -215.627548478789, 86.0321947292123, 1.8)
    pt3dadd(-48.5104117040812, -216.606176664582, 85.8482648730607, 1.8)
    pt3dadd(-48.6023719236768, -217.584804850375, 85.6643350169091, 1.8)
    pt3dadd(-48.6943321432725, -218.563433036168, 85.4804051607575, 1.8)
    pt3dadd(-48.7862923628681, -219.54206122196, 85.2964753046059, 1.8)
    pt3dadd(-48.8782525824638, -220.520689407753, 85.1125454484543, 1.8)
    pt3dadd(-48.9702128020595, -221.499317593546, 84.9286155923027, 1.8)
    pt3dadd(-49.0621730216551, -222.477945779338, 84.7446857361511, 1.8)
    pt3dadd(-49.1873462517495, -223.457562451659, 84.672684827418, 1.8)
    pt3dadd(-49.3600255455653, -224.438593000748, 84.7607809297204, 1.8)
    pt3dadd(-49.5327048393811, -225.419623549837, 84.8488770320228, 1.8)
    pt3dadd(-49.7053841331969, -226.400654098927, 84.9369731343251, 1.8)
    pt3dadd(-49.8780634270128, -227.381684648016, 85.0250692366275, 1.8)
    pt3dadd(-50.0507427208286, -228.362715197105, 85.1131653389298, 1.8)
    pt3dadd(-50.2234220146444, -229.343745746194, 85.2012614412322, 1.8)
    pt3dadd(-50.3961013084602, -230.324776295284, 85.2893575435346, 1.8)
    pt3dadd(-50.568780602276, -231.305806844373, 85.3774536458369, 1.8)
    pt3dadd(-50.7414598960918, -232.286837393462, 85.4655497481393, 1.8)
    pt3dadd(-51.0306211307333, -233.218601939526, 85.310436807481, 1.8)
  }
  adendOML[15] {pt3dclear()
    pt3dadd(-51.0306211307333, -233.218601939526, 85.310436807481, 1.8)
    pt3dadd(-51.3572021764489, -234.134539787369, 85.0771929876956, 1.8)
    pt3dadd(-51.6837832221645, -235.050477635212, 84.8439491679102, 1.8)
    pt3dadd(-52.0103642678802, -235.966415483055, 84.6107053481249, 1.8)
    pt3dadd(-52.3369453135958, -236.882353330898, 84.3774615283395, 1.8)
    pt3dadd(-52.6635263593114, -237.798291178741, 84.1442177085541, 1.8)
    pt3dadd(-52.990107405027, -238.714229026584, 83.9109738887687, 1.8)
    pt3dadd(-53.3166884507427, -239.630166874427, 83.6777300689834, 1.8)
    pt3dadd(-53.6432694964583, -240.54610472227, 83.444486249198, 1.8)
    pt3dadd(-53.7902877773832, -241.506087431179, 83.2865135144005, 1.8)
    pt3dadd(-53.7937249674379, -242.501289074295, 83.1887286727118, 1.8)
    pt3dadd(-53.7971621574926, -243.496490717411, 83.0909438310232, 1.8)
    pt3dadd(-53.8005993475473, -244.491692360526, 82.9931589893345, 1.8)
    pt3dadd(-53.8040365376019, -245.486894003642, 82.8953741476458, 1.8)
    pt3dadd(-53.8074737276566, -246.482095646758, 82.7975893059572, 1.8)
    pt3dadd(-53.8109109177113, -247.477297289874, 82.6998044642685, 1.8)
    pt3dadd(-53.814348107766, -248.47249893299, 82.6020196225798, 1.8)
    pt3dadd(-53.8177852978206, -249.467700576106, 82.5042347808912, 1.8)
    pt3dadd(-53.8212224878753, -250.462902219221, 82.4064499392025, 1.8)
    pt3dadd(-53.82465967793, -251.458103862337, 82.3086650975138, 1.8)
    pt3dadd(-53.7924570810247, -252.448971107234, 82.1924750030138, 1.8)
    pt3dadd(-53.6804469386855, -253.430132410758, 82.0350703509855, 1.8)
    pt3dadd(-53.5684367963463, -254.411293714282, 81.877665698957, 1.8)
    pt3dadd(-53.4564266540071, -255.392455017806, 81.7202610469286, 1.8)
    pt3dadd(-53.3444165116679, -256.37361632133, 81.5628563949003, 1.8)
    pt3dadd(-53.2324063693288, -257.354777624854, 81.4054517428719, 1.8)
    pt3dadd(-53.1203962269896, -258.335938928378, 81.2480470908435, 1.8)
    pt3dadd(-53.0083860846504, -259.317100231902, 81.0906424388151, 1.8)
    pt3dadd(-52.8963759423112, -260.298261535426, 80.9332377867867, 1.8)
    pt3dadd(-52.7807909030961, -261.280960173583, 80.8056257340074, 1.8)
    pt3dadd(-52.6467574190644, -262.271592308601, 80.8317599688182, 1.8)
    pt3dadd(-52.5127239350327, -263.262224443618, 80.857894203629, 1.8)
    pt3dadd(-52.378690451001, -264.252856578636, 80.8840284384398, 1.8)
    pt3dadd(-52.2446569669692, -265.243488713653, 80.9101626732506, 1.8)
    pt3dadd(-52.1106234829375, -266.234120848671, 80.9362969080614, 1.8)
    pt3dadd(-51.9765899989058, -267.224752983688, 80.9624311428722, 1.8)
    pt3dadd(-51.8425565148741, -268.215385118705, 80.988565377683, 1.8)
    pt3dadd(-51.7085230308424, -269.206017253723, 81.0146996124938, 1.8)
    pt3dadd(-51.5744895468107, -270.19664938874, 81.0408338473046, 1.8)
    pt3dadd(-51.3821297842209, -271.153000463891, 80.8617871050282, 1.8)
    pt3dadd(-51.1693609797426, -272.097356198277, 80.6109451572348, 1.8)
    pt3dadd(-50.9565921752642, -273.041711932663, 80.3601032094413, 1.8)
    pt3dadd(-50.7438233707859, -273.986067667049, 80.1092612616479, 1.8)
    pt3dadd(-50.5310545663075, -274.930423401435, 79.8584193138545, 1.8)
    pt3dadd(-50.3182857618292, -275.874779135822, 79.6075773660611, 1.8)
    pt3dadd(-50.1055169573508, -276.819134870208, 79.3567354182676, 1.8)
    pt3dadd(-49.8927481528725, -277.763490604594, 79.1058934704742, 1.8)
    pt3dadd(-49.6799793483941, -278.70784633898, 78.8550515226808, 1.8)
    pt3dadd(-49.4672105439158, -279.652202073366, 78.6042095748873, 1.8)
    pt3dadd(-49.2949501886261, -280.595652254088, 78.3638818471283, 1.8)
    pt3dadd(-49.6421510484349, -281.527490042433, 78.258383509885, 1.8)
    pt3dadd(-49.9893519082436, -282.459327830778, 78.1528851726417, 1.8)
    pt3dadd(-50.3365527680524, -283.391165619122, 78.0473868353985, 1.8)
    pt3dadd(-50.6837536278612, -284.323003407467, 77.9418884981552, 1.8)
    pt3dadd(-51.0309544876699, -285.254841195812, 77.8363901609119, 1.8)
    pt3dadd(-51.3781553474786, -286.186678984156, 77.7308918236687, 1.8)
    pt3dadd(-51.7253562072874, -287.118516772501, 77.6253934864254, 1.8)
    pt3dadd(-52.0725570670961, -288.050354560845, 77.5198951491821, 1.8)
    pt3dadd(-52.4197579269049, -288.98219234919, 77.4143968119389, 1.8)
    pt3dadd(-52.8670581285603, -289.801941620802, 77.6640757765979, 1.8)
    pt3dadd(-53.3585035561367, -290.572258270751, 78.0703929563061, 1.8)
    pt3dadd(-53.8499489837131, -291.3425749207, 78.4767101360142, 1.8)
    pt3dadd(-54.3413944112895, -292.112891570649, 78.8830273157224, 1.8)
    pt3dadd(-54.8328398388659, -292.883208220597, 79.2893444954306, 1.8)
  }
}
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()
}

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, 5 GCL[ward] {
    regGCL.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
  }
  regadendIML = new SectionList()
  for ward = 0, 17 adendIML[ward] {
    regadendIML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendMML = new SectionList()
  for ward = 0, 20 adendMML[ward] {
    regadendMML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendOML = new SectionList()
  for ward = 0, 15 adendOML[ward] {
    regadendOML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regsoma = new SectionList()
  for ward = 0, 3 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_11