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_01

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[10]
create adendIML[18]
create adendMML[23]
create adendOML[13]
create soma[4]
create axonh[1]

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

proc shape3d_1() {
  soma[0] {pt3dclear()
    pt3dadd(-12.463083157583, 59.9054786474927, 0, 10.5)
    pt3dadd(-12.462983157583, 59.9054786474927, 0, 10.5)
  }
  soma[1] {pt3dclear()
    pt3dadd(-12.462983157583, 59.9054786474927, 0, 10.2667572303772)
    pt3dadd(-12.3363223897037, 58.9196093275945, -0.109629986608052, 10.2667572303772)
    pt3dadd(-12.2096616218244, 57.9337400076962, -0.219259973216105, 9.58775356515897)
    pt3dadd(-12.0830008539451, 56.947870687798, -0.328889959824157, 8.52332145975836)
    pt3dadd(-11.9563400860659, 55.9620013678998, -0.43851994643221, 7.26548684593719)
    pt3dadd(-11.8296793181866, 54.9761320480016, -0.548149933040262, 7.05961355742149)
    pt3dadd(-11.7030185503073, 53.9902627281034, -0.657779919648315, 6.85374026890578)
    pt3dadd(-11.576357782428, 53.0043934082052, -0.767409906256367, 6.64786698039008)
    pt3dadd(-11.4496970145487, 52.018524088307, -0.87703989286442, 6.44199369187438)
    pt3dadd(-11.3230362466695, 51.0326547684088, -0.986669879472472, 6.23612040335868)
    pt3dadd(-11.1963754787902, 50.0467854485106, -1.09629986608052, 6.03024711484298)
  }
  GCL[0] {pt3dclear()
    pt3dadd(-11.1963754787902, 50.0467854485106, -1.09629986608052, 5.82437382632727)
    pt3dadd(-11.0697147109109, 49.0609161286124, -1.20592985268858, 5.82437382632727)
    pt3dadd(-10.9430539430316, 48.0750468087142, -1.31555983929663, 5.61850053781157)
    pt3dadd(-10.8163931751523, 47.089177488816, -1.42518982590468, 5.41262724929587)
    pt3dadd(-10.6897324072731, 46.1033081689178, -1.53481981251273, 5.20675396078017)
    pt3dadd(-10.5630716393938, 45.1174388490196, -1.64444979912079, 5.00088067226447)
    pt3dadd(-10.4364108715145, 44.1315695291214, -1.75407978572884, 4.79500738374876)
    pt3dadd(-10.3097501036352, 43.1457002092232, -1.86370977233689, 4.58913409523306)
    pt3dadd(-10.1830893357559, 42.159830889325, -1.97333975894494, 4.38326080671736)
    pt3dadd(-10.0564285678767, 41.1739615694268, -2.082969745553, 4.17738751820166)
    pt3dadd(-9.92976779999739, 40.1880922495286, -2.19259973216105, 3.97151422968595)
    pt3dadd(-9.80310703211811, 39.2022229296303, -2.3022297187691, 3.76564094117025)
    pt3dadd(-9.67644626423883, 38.2163536097321, -2.41185970537715, 3.55976765265455)
    pt3dadd(-9.54978549635955, 37.2304842898339, -2.52148969198521, 3.35389436413885)
    pt3dadd(-9.421490636516, 36.2453278510108, -2.62733379828025, 3.14885080948133)
    pt3dadd(-9.12483050415539, 35.3336216335374, -2.34310758751139, 3.02929716004583)
    pt3dadd(-8.82817037179478, 34.4219154160639, -2.05888137674253, 2.90974351061033)
    pt3dadd(-8.53151023943417, 33.5102091985905, -1.77465516597367, 2.79018986117483)
    pt3dadd(-8.24769010355442, 32.5858114180667, -1.58734157471943, 2.7)
    pt3dadd(-8.00330757326609, 31.6224319401055, -1.69769174614184, 2.7)
    pt3dadd(-7.75892504297777, 30.6590524621442, -1.80804191756426, 2.7)
    pt3dadd(-7.49336074960463, 29.7905078107044, -2.21452864622748, 2.56422492979949)
    pt3dadd(-7.22564330011124, 28.9316032532605, -2.65111807399565, 2.41464813203692)
    pt3dadd(-6.95792585061785, 28.0726986958167, -3.08770750176383, 2.26507133427436)
    pt3dadd(-6.6732163808405, 27.1756241130903, -2.83973142604769, 2.25)
    pt3dadd(-6.38660295555789, 26.2742725798567, -2.515049800474, 2.25)
    pt3dadd(-6.09998953027528, 25.3729210466231, -2.19036817490031, 2.25)
    pt3dadd(-5.80423423883282, 24.4614055226042, -1.91610378343947, 2.25)
    pt3dadd(-5.4868794031317, 23.5258754740922, -1.76096050582761, 2.25)
    pt3dadd(-5.16952456743058, 22.5903454255801, -1.60581722821575, 2.25)
    pt3dadd(-4.83802097009417, 21.6603988776012, -1.44774605869428, 2.25)
    pt3dadd(-4.48774822666275, 20.7378591642222, -1.2857908721529, 2.25)
    pt3dadd(-4.13747548323132, 19.8153194508432, -1.12383568561153, 2.25)
    pt3dadd(-3.87890753118015, 18.8709545725605, -1.03151518392034, 2.25)
    pt3dadd(-3.83929795029979, 17.8744789758964, -1.10545750167735, 2.25)
    pt3dadd(-3.79968836941942, 16.8780033792322, -1.17939981943435, 2.25)
  }
  GCL[1] {pt3dclear()
    pt3dadd(-3.79968836941942, 16.8780033792322, -1.17939981943435, 2.29926207244897)
    pt3dadd(-4.14650916140273, 17.4193844521592, -1.17203231746951, 2.29926207244897)
    pt3dadd(-4.58324374605948, 18.3185907258498, -1.14574582055452, 2.35998633855527)
    pt3dadd(-5.01997833071625, 19.2177969995405, -1.11945932363953, 2.42071060466157)
    pt3dadd(-5.45671291537301, 20.1170032732311, -1.09317282672455, 2.48143487076788)
    pt3dadd(-5.89344750002977, 21.0162095469218, -1.06688632980956, 2.54215913687418)
    pt3dadd(-6.33018208468653, 21.9154158206125, -1.04059983289457, 2.60288340298049)
    pt3dadd(-6.76691666934329, 22.8146220943031, -1.01431333597959, 2.66360766908679)
    pt3dadd(-7.20365125400005, 23.7138283679937, -0.988026839064602, 2.7243319351931)
    pt3dadd(-7.64038583865681, 24.6130346416844, -0.961740342149616, 2.7850562012994)
    pt3dadd(-8.07712042331357, 25.5122409153751, -0.93545384523463, 2.84578046740571)
    pt3dadd(-8.51385500797033, 26.4114471890657, -0.909167348319644, 2.90650473351201)
    pt3dadd(-8.95058959262709, 27.3106534627564, -0.882880851404657, 2.96722899961831)
    pt3dadd(-9.38732417728385, 28.209859736447, -0.856594354489671, 3.02795326572462)
    pt3dadd(-9.82405876194061, 29.1090660101377, -0.830307857574685, 3.08867753183092)
    pt3dadd(-10.2607933465974, 30.0082722838283, -0.804021360659699, 3.14940179793723)
    pt3dadd(-10.6975279312541, 30.907478557519, -0.777734863744712, 3.21012606404353)
    pt3dadd(-11.1342625159109, 31.8066848312096, -0.751448366829726, 3.27085033014984)
    pt3dadd(-11.5709971005677, 32.7058911049003, -0.72516186991474, 3.33157459625614)
    pt3dadd(-12.0077316852244, 33.6050973785909, -0.698875372999754, 3.39229886236245)
    pt3dadd(-12.4444662698812, 34.5043036522816, -0.672588876084768, 3.45302312846875)
    pt3dadd(-12.8812008545379, 35.4035099259722, -0.646302379169782, 3.51374739457506)
    pt3dadd(-13.3179354391947, 36.3027161996629, -0.620015882254795, 3.57447166068136)
    pt3dadd(-13.6256735537265, 36.1147692516899, -0.623310593566197, 3.51178857778948)
    pt3dadd(-13.8398478396901, 35.1382874115569, -0.648061171791245, 3.3595955723817)
    pt3dadd(-14.0540221256537, 34.1618055714239, -0.672811750016293, 3.20740256697392)
    pt3dadd(-14.3232061177052, 33.1998691467791, -0.686218425532635, 3.0245900495988)
    pt3dadd(-14.6257025238576, 32.2467410386747, -0.692755535449949, 2.82323517061577)
    pt3dadd(-14.9788662711632, 31.3138015385824, -0.688391170452162, 2.7)
    pt3dadd(-15.4119586121893, 30.4127099115157, -0.666829543083526, 2.7)
    pt3dadd(-15.8220867025118, 29.5226303714925, -0.594986848031658, 2.7)
    pt3dadd(-15.9836048353783, 28.751767196363, 0.0211964509829872, 2.7)
    pt3dadd(-16.1451229682449, 27.9809040212335, 0.637379749997632, 2.7)
    pt3dadd(-16.4430407119411, 27.1601582607727, 0.47547047276757, 2.7)
    pt3dadd(-16.7869837235733, 26.3225806388334, 0.0510097184264797, 2.7)
    pt3dadd(-17.0472958423102, 25.5107165318108, -0.0711190513013961, 2.6625212336616)
    pt3dadd(-17.0896247964083, 24.7658744684553, 0.594777757747285, 2.52735440241856)
    pt3dadd(-17.1319537505065, 24.0210324050997, 1.26067456679597, 2.39218757117551)
    pt3dadd(-17.1742827046046, 23.2761903417442, 1.92657137584465, 2.25702073993247)
    pt3dadd(-17.2808845897407, 22.4916040302551, 1.38535420274767, 2.25)
    pt3dadd(-17.3910077959635, 21.7048402506348, 0.778002875648681, 2.25)
    pt3dadd(-17.4636648100708, 20.7898324100321, 0.505887721461201, 2.25)
    pt3dadd(-17.5123188690401, 19.7926641931362, 0.448543761374035, 2.25)
    pt3dadd(-17.5608399828877, 18.7957961816423, 0.392259174675809, 2.25)
    pt3dadd(-17.5302562613534, 17.9775560025512, 0.966321580079592, 2.25)
    pt3dadd(-17.499672539819, 17.15931582346, 1.54038398548337, 2.25)
    pt3dadd(-17.7339364545162, 16.292773257614, 1.79677783633683, 2.25)
    pt3dadd(-18.1644587046773, 15.3904374856879, 1.81777180734852, 2.25)
    pt3dadd(-18.5949809548384, 14.4881017137619, 1.83876577836021, 2.25)
    pt3dadd(-19.1871292910527, 13.7030638127305, 2.00835424436479, 2.25)
    pt3dadd(-19.7905347103525, 12.9261955822683, 2.1882921571514, 2.25)
    pt3dadd(-20.3497693415011, 12.1814316520595, 2.0334463323449, 2.25)
    pt3dadd(-20.8673114870702, 11.4669707372912, 1.56260057328128, 2.25)
    pt3dadd(-21.3848536326392, 10.7525098225229, 1.09175481421766, 2.25)
    pt3dadd(-21.9823064647896, 10.0137373128339, 0.945094912982611, 2.25)
    pt3dadd(-22.6337751093483, 9.2585313246359, 1.01756918805145, 2.25)
    pt3dadd(-23.2743115990118, 8.516587599691, 1.05282446247877, 2.25)
    pt3dadd(-23.6677371062947, 8.0744247443449, 0.246779563250846, 2.25)
    pt3dadd(-24.0611626135776, 7.6322618889988, -0.559265335977079, 2.25)
    pt3dadd(-24.490652509313, 7.12267265963029, -1.05210498105027, 2.25)
    pt3dadd(-25.028728628638, 6.41006944223653, -0.60191530505554, 2.25)
    pt3dadd(-25.5541056583613, 5.67573390378285, -0.200436725598612, 2.2692793078098)
    pt3dadd(-25.9800248760841, 4.77119332149479, -0.180457862558825, 2.4395519412667)
    pt3dadd(-26.4059440938069, 3.86665273920672, -0.160478999519037, 2.60982457472359)
    pt3dadd(-26.8070295230233, 2.95119827297358, -0.145911279774297, 2.85215970980894)
    pt3dadd(-27.1611557023727, 2.01850611933961, -0.141348921509886, 3.17569439193266)
    pt3dadd(-27.2944319719475, 1.02827245854812, -0.182272423360269, 3.50004030318162)
  }
  GCL[2] {pt3dclear()
    pt3dadd(-27.2944319719475, 1.02827245854812, -0.182272423360269, 3.32916030056866)
    pt3dadd(-27.6550629922143, 0.272908802381138, 0.22203269987265, 3.32916030056866)
  }
  adendIML[0] {pt3dclear()
    pt3dadd(-27.6550629922143, 0.272908802381138, 0.22203269987265, 2.93766677973283)
    pt3dadd(-28.1169761345003, -0.377824832224207, 0.824678521045203, 2.93766677973283)
    pt3dadd(-28.5788892767864, -1.02855846682955, 1.42732434221776, 2.54617325889699)
    pt3dadd(-28.9932544973318, -1.74769831352872, 1.9433087371465, 2.25)
    pt3dadd(-29.2598817380475, -2.67938573775786, 2.19002407522187, 2.25)
    pt3dadd(-29.5265089787631, -3.61107316198698, 2.43673941329724, 2.25)
    pt3dadd(-29.7931362194788, -4.54276058621611, 2.68345475137262, 2.25)
    pt3dadd(-30.2066092772252, -5.37312643519287, 2.61238929482872, 2.25)
    pt3dadd(-30.7687722596177, -6.10089830026244, 2.21955231382934, 2.25)
    pt3dadd(-31.3309352420103, -6.82867016533203, 1.82671533282996, 2.25)
    pt3dadd(-31.8930982244028, -7.5564420304016, 1.43387835183058, 2.25)
    pt3dadd(-32.3905235375327, -8.30356513674256, 1.40979265826585, 2.25)
    pt3dadd(-32.7986819266382, -9.07737171507172, 1.89417898005588, 2.25)
    pt3dadd(-33.2209707002209, -9.91226990294361, 2.15335631197862, 2.25)
    pt3dadd(-33.6581121053963, -10.8113822791421, 2.17581353460261, 2.25)
    pt3dadd(-34.0863276773326, -11.6488701831235, 2.08023788885387, 2.25)
  }
  adendIML[1] {pt3dclear()
    pt3dadd(-34.0863276773326, -11.6488701831235, 2.08023788885387, 2.25)
    pt3dadd(-34.7274092067869, -12.4461221959458, 1.90342616533511, 2.25)
    pt3dadd(-35.3269104770514, -13.2091246711237, 1.66171259553868, 2.25)
    pt3dadd(-35.9264117473159, -13.9721271463015, 1.41999902574226, 2.25)
    pt3dadd(-36.5259130175805, -14.7351296214793, 1.17828545594583, 2.25)
    pt3dadd(-37.0155473031503, -15.5309832815365, 1.50257693614285, 2.25)
    pt3dadd(-37.4980296946377, -16.3289754201857, 1.86371304422207, 2.25)
    pt3dadd(-38.0535778823416, -17.0993106709136, 2.1263316681377, 2.25)
    pt3dadd(-38.7430695000653, -17.8189456128282, 2.20834910204216, 2.25)
    pt3dadd(-39.3861164216793, -18.5670171902713, 2.27971114914632, 2.25)
    pt3dadd(-39.7005511601812, -19.5162877347459, 2.27568267350755, 2.25)
    pt3dadd(-40.0149858986831, -20.4655582792206, 2.27165419786877, 2.25)
    pt3dadd(-40.3416079442099, -21.4006243364229, 2.32710952533, 2.25)
    pt3dadd(-40.7180439693717, -22.277631460813, 2.62569690404733, 2.25)
    pt3dadd(-41.0944799945335, -23.1546385852032, 2.92428428276466, 2.25)
    pt3dadd(-41.389584405566, -24.0956510533188, 2.9923855208326, 2.25)
    pt3dadd(-41.6556764741992, -25.0594952943856, 2.97826851077614, 2.25)
    pt3dadd(-41.9217685428323, -26.0233395354524, 2.96415150071968, 2.25)
    pt3dadd(-42.3230386645592, -26.8784325973611, 3.20220906020504, 2.25)
    pt3dadd(-42.79807408267, -27.6741812407117, 3.57787573179848, 2.25)
    pt3dadd(-43.2731095007807, -28.4699298840623, 3.95354240339192, 2.25)
    pt3dadd(-43.7885976277141, -29.2817676903384, 4.1696309909127, 2.25)
    pt3dadd(-44.3462190004415, -30.1103630556481, 4.21951210221573, 2.25)
    pt3dadd(-44.9020927869709, -30.9380177022907, 4.24764867284393, 2.25)
    pt3dadd(-45.4389042317339, -31.755411166534, 4.03859988097013, 2.25)
    pt3dadd(-45.9757156764969, -32.5728046307772, 3.82955108909633, 2.25)
    pt3dadd(-46.5346673451322, -33.3925378077383, 3.80137198654689, 2.25)
    pt3dadd(-47.1034969191675, -34.213314852233, 3.85388825957996, 2.25)
    pt3dadd(-47.6723264932027, -35.0340918967278, 3.90640453261303, 2.25)
    pt3dadd(-48.241156067238, -35.8548689412226, 3.95892080564609, 2.25)
    pt3dadd(-48.7899134479887, -36.6514093662216, 3.88212821445207, 2.25)
    pt3dadd(-49.2723816003119, -37.3679073771565, 3.37828788029832, 2.25)
    pt3dadd(-49.7548497526352, -38.0844053880914, 2.87444754614458, 2.25)
    pt3dadd(-50.2373179049584, -38.8009033990262, 2.37060721199084, 2.25)
    pt3dadd(-50.7154969078429, -39.5171794611162, 1.88907083195648, 2.25)
    pt3dadd(-50.9740594695636, -40.2220911219087, 2.54955925135166, 2.25)
    pt3dadd(-51.2326220312844, -40.9270027827012, 3.21004767074684, 2.25)
    pt3dadd(-51.4911845930051, -41.6319144434937, 3.87053609014203, 2.25)
    pt3dadd(-51.9693699616618, -42.3785911533193, 3.93353340348216, 2.25)
    pt3dadd(-52.560797235424, -43.146802756471, 3.68845237069222, 2.25)
    pt3dadd(-53.1522245091862, -43.9150143596226, 3.44337133790229, 2.25)
    pt3dadd(-53.7436517829483, -44.6832259627743, 3.19829030511235, 2.25)
    pt3dadd(-54.3697512389047, -45.4194230524226, 2.94455188850902, 2.25)
    pt3dadd(-55.0204029429349, -46.1329498563329, 2.6846829597312, 2.25)
    pt3dadd(-55.6710546469651, -46.8464766602432, 2.42481403095338, 2.25)
    pt3dadd(-56.3217063509953, -47.5600034641535, 2.16494510217555, 2.25)
    pt3dadd(-56.9397186706884, -48.34057069761, 2.20665901524139, 2.25)
    pt3dadd(-57.5553516487951, -49.1260250355639, 2.27035767501407, 2.25)
    pt3dadd(-58.1709846269019, -49.9114793735179, 2.33405633478676, 2.25)
    pt3dadd(-58.7423405978512, -50.7127873575529, 2.33851710240075, 2.22452095125602)
  }
  adendIML[2] {pt3dclear()
    pt3dadd(-58.7423405978512, -50.7127873575529, 2.33851710240075, 2.14270520358916)
    pt3dadd(-59.4934870403739, -51.40293000266, 2.2845712783569, 2.14270520358916)
    pt3dadd(-60.1786907638922, -52.1277950136218, 2.21339141350767, 2.0608894559223)
    pt3dadd(-60.8638944874105, -52.8526600245836, 2.14221154865843, 1.97907370825544)
    pt3dadd(-61.5490982109289, -53.5775250355454, 2.0710316838092, 1.89725796058858)
    pt3dadd(-62.2343019344472, -54.3023900465073, 1.99985181895997, 1.81544221292172)
    pt3dadd(-62.7564884821634, -55.0656228621107, 2.3201803623163, 1.8)
    pt3dadd(-63.2407480767905, -55.8377821845047, 2.73159575562527, 1.8)
    pt3dadd(-63.7250076714176, -56.6099415068988, 3.14301114893423, 1.8)
    pt3dadd(-64.190277501096, -57.4281027336116, 3.41645896840722, 1.8)
    pt3dadd(-64.6207997512572, -58.3304385055376, 3.43745293941892, 1.8)
    pt3dadd(-65.0513220014183, -59.2327742774637, 3.45844691043061, 1.8)
    pt3dadd(-65.4373300082189, -60.1546664243743, 3.4697419189875, 1.8)
    pt3dadd(-65.8054979977598, -61.0843961989951, 3.47714986478573, 1.8)
    pt3dadd(-66.1709100109283, -62.0121041561709, 3.53979269958733, 1.8)
    pt3dadd(-66.5346051433675, -62.9385525889749, 3.63684501535142, 1.8)
    pt3dadd(-66.9344797759581, -63.8501377269736, 3.70951573797814, 1.8)
    pt3dadd(-67.3996133467758, -64.7349131292523, 3.73820805090388, 1.8)
    pt3dadd(-68.1707948188862, -65.3100479553853, 3.84526968048336, 1.8)
    pt3dadd(-69.0405651832527, -65.7854365611693, 3.97757684869625, 1.8)
    pt3dadd(-69.8954708990009, -66.2773796360899, 4.06647604052584, 1.8)
    pt3dadd(-70.6302656560953, -66.903087942135, 3.80462535656116, 1.8)
    pt3dadd(-71.3650604131898, -67.52879624818, 3.54277467259649, 1.8)
    pt3dadd(-72.0998551702842, -68.154504554225, 3.28092398863182, 1.8)
    pt3dadd(-72.5480133548474, -68.7289287173649, 3.6436700904773, 1.8)
    pt3dadd(-72.7924066474846, -69.2668958863943, 4.45043104860581, 1.8)
    pt3dadd(-73.0367999401219, -69.8048630554237, 5.25719200673432, 1.8)
    pt3dadd(-73.281193232759, -70.3428302244531, 6.06395296486282, 1.8)
    pt3dadd(-73.5255865253963, -70.8807973934825, 6.87071392299133, 1.8)
    pt3dadd(-74.3151708939296, -71.4265691447436, 6.65816372647723, 1.8)
    pt3dadd(-75.1184278366416, -71.972536623217, 6.42005073557939, 1.8)
    pt3dadd(-75.9216847793536, -72.5185041016905, 6.18193774468155, 1.8)
    pt3dadd(-76.6954342660806, -73.1027142272982, 5.99359647919402, 1.8)
    pt3dadd(-77.3186668122827, -73.8819993280966, 6.05913978570138, 1.8)
    pt3dadd(-77.9418993584848, -74.6612844288952, 6.12468309220874, 1.8)
    pt3dadd(-78.565131904687, -75.4405695296936, 6.19022639871609, 1.8)
    pt3dadd(-79.1224509970674, -76.2060651927727, 6.34710792654543, 1.8)
    pt3dadd(-79.2764293966798, -76.8871798829222, 7.0629105748469, 1.8)
    pt3dadd(-79.4304077962922, -77.5682945730717, 7.77871322314837, 1.8)
    pt3dadd(-79.5843861959046, -78.2494092632211, 8.49451587144985, 1.8)
    pt3dadd(-79.738364595517, -78.9305239533706, 9.21031851975132, 1.8)
    pt3dadd(-79.8923429951294, -79.6116386435201, 9.9261211680528, 1.8)
    pt3dadd(-80.2565500441968, -80.2938496383078, 9.5174101109813, 1.8)
    pt3dadd(-80.6584899094899, -80.9762574029533, 8.90686610156035, 1.8)
    pt3dadd(-81.0604297747829, -81.6586651675987, 8.29632209213941, 1.8)
    pt3dadd(-81.4368867586124, -82.4028922144813, 7.94410376470802, 1.8)
    pt3dadd(-81.7487988639293, -83.3036995942215, 8.24619134002759, 1.8)
    pt3dadd(-82.0607109692462, -84.2045069739616, 8.54827891534717, 1.8)
    pt3dadd(-82.3726230745631, -85.1053143537018, 8.85036649066674, 1.8)
    pt3dadd(-82.7528807956828, -85.9946774868067, 9.04978199357747, 1.8)
    pt3dadd(-83.2430300421927, -86.8656396485412, 9.08411315977594, 1.8)
    pt3dadd(-83.7331792887027, -87.7366018102757, 9.11844432597441, 1.8)
    pt3dadd(-84.4133235202473, -88.4589021548569, 9.19852124706592, 1.8)
    pt3dadd(-85.1226919785689, -89.1583359661096, 9.28563458711784, 1.8)
    pt3dadd(-85.8320604368905, -89.8577697773623, 9.37274792716977, 1.8)
    pt3dadd(-86.2416092780162, -90.6293364154863, 9.70735408293592, 1.8)
    pt3dadd(-86.4114648940721, -91.4585702271859, 10.2398203778584, 1.8)
    pt3dadd(-86.5813205101279, -92.2878040388855, 10.7722866727808, 1.8)
    pt3dadd(-86.8503572661775, -93.0934047861779, 11.2857463922978, 1.8)
    pt3dadd(-87.257569345286, -93.8660808634219, 11.7727268870643, 1.8)
    pt3dadd(-87.6647814243946, -94.6387569406658, 12.2597073818308, 1.8)
    pt3dadd(-88.0719935035031, -95.4114330179097, 12.7466878765974, 1.8)
    pt3dadd(-88.483440396287, -96.1744885673755, 12.7055992865674, 1.8)
    pt3dadd(-88.8986333264232, -96.929033977041, 12.1973906133655, 1.8)
    pt3dadd(-89.5393180253826, -97.5447535223834, 12.0066144239283, 1.8)
  }
}
proc shape3d_2() {
  adendIML[2] {
    pt3dadd(-90.4096306424313, -98.0191007490472, 12.1390933171987, 1.8)
    pt3dadd(-91.27994325948, -98.4934479757109, 12.2715722104691, 1.8)
    pt3dadd(-92.1116653912021, -99.0180309555763, 12.4240823672411, 1.8)
    pt3dadd(-92.8577837425507, -99.6540499629382, 12.6210271007458, 1.8)
    pt3dadd(-93.6039020938993, -100.2900689703, 12.8179718342504, 1.8)
    pt3dadd(-94.3500204452479, -100.926087977662, 13.0149165677551, 1.8)
    pt3dadd(-95.057503882256, -101.601640094201, 12.8893433714408, 1.8)
    pt3dadd(-95.7551266858058, -102.287282086846, 12.6814552238963, 1.8)
    pt3dadd(-96.4527494893555, -102.972924079491, 12.4735670763519, 1.8)
    pt3dadd(-97.1265142176603, -103.661769260142, 12.3834483276385, 1.8)
    pt3dadd(-97.6955742391605, -104.364672107127, 12.8101780777513, 1.8)
    pt3dadd(-98.2646342606606, -105.067574954112, 13.236907827864, 1.8)
    pt3dadd(-98.8515248286916, -105.769468347787, 13.6219597412107, 1.8)
    pt3dadd(-99.5653819324983, -106.46417369541, 13.7102349660998, 1.8)
    pt3dadd(-100.279239036305, -107.158879043033, 13.7985101909889, 1.8)
    pt3dadd(-100.993096140112, -107.853584390655, 13.886785415878, 1.8)
    pt3dadd(-101.594071695025, -108.501029783908, 14.3218452377335, 1.8)
    pt3dadd(-102.169700775712, -109.137863405555, 14.834772230403, 1.8)
    pt3dadd(-102.745329856398, -109.774697027201, 15.3476992230726, 1.8)
    pt3dadd(-103.320958937084, -110.411530648847, 15.8606262157421, 1.8)
    pt3dadd(-103.957807064526, -111.112611341132, 16.0947125298305, 1.8)
    pt3dadd(-104.629054020499, -111.849792300957, 16.1721189673386, 1.8)
    pt3dadd(-105.300300976472, -112.586973260783, 16.2495254048467, 1.8)
    pt3dadd(-106.073697450756, -113.19606303147, 16.4064485434085, 1.8)
    pt3dadd(-106.866321733293, -113.78104194129, 16.5783392697386, 1.8)
    pt3dadd(-107.65894601583, -114.36602085111, 16.7502299960687, 1.8)
    pt3dadd(-108.393535936105, -114.92653890561, 16.9460161009892, 1.8)
  }
  adendIML[3] {pt3dclear()
    pt3dadd(-108.393535936105, -114.92653890561, 16.9460161009892, 1.8)
    pt3dadd(-108.760335627185, -115.959193787796, 16.761952408216, 1.8)
    pt3dadd(-109.196139819876, -116.85627120262, 16.6889673587459, 1.8)
  }
  adendMML[0] {pt3dclear()
    pt3dadd(-109.196139819876, -116.85627120262, 16.6889673587459, 1.8)
    pt3dadd(-109.560012789395, -117.648480229369, 16.9160920617312, 1.8)
    pt3dadd(-109.796313188042, -118.254701457219, 17.6754720354618, 1.8)
    pt3dadd(-110.03261358669, -118.860922685069, 18.4348520091923, 1.8)
    pt3dadd(-110.268913985337, -119.467143912919, 19.1942319829229, 1.8)
    pt3dadd(-110.814054728079, -120.184972005971, 19.2403361931794, 1.8)
    pt3dadd(-111.452067243933, -120.936361541565, 19.0719503404056, 1.8)
    pt3dadd(-112.090079759787, -121.687751077159, 18.9035644876318, 1.8)
    pt3dadd(-112.590238097303, -122.223491153618, 18.4861759925798, 1.8)
    pt3dadd(-112.778373878154, -122.271124910817, 17.5051887586471, 1.8)
    pt3dadd(-112.966509659004, -122.318758668015, 16.5242015247144, 1.8)
    pt3dadd(-113.154645439855, -122.366392425214, 15.5432142907817, 1.8)
    pt3dadd(-113.342781220705, -122.414026182413, 14.562227056849, 1.8)
  }
  adendMML[1] {pt3dclear()
    pt3dadd(-113.342781220705, -122.414026182413, 14.562227056849, 1.8)
    pt3dadd(-113.689273699219, -122.711705061309, 14.936762070997, 1.8)
    pt3dadd(-114.089322844934, -123.093949882572, 15.769738407774, 1.8)
    pt3dadd(-114.489371990648, -123.476194703836, 16.602714744551, 1.8)
    pt3dadd(-114.889421136363, -123.858439525099, 17.4356910813281, 1.8)
    pt3dadd(-115.289470282078, -124.240684346362, 18.2686674181051, 1.8)
    pt3dadd(-115.689519427793, -124.622929167625, 19.1016437548821, 1.8)
    pt3dadd(-116.059024467575, -125.025776268608, 19.9353874192972, 1.8)
    pt3dadd(-116.292412395489, -125.520435610542, 20.772550611597, 1.8)
    pt3dadd(-116.525800323404, -126.015094952476, 21.6097138038967, 1.8)
    pt3dadd(-116.759188251318, -126.50975429441, 22.4468769961964, 1.8)
    pt3dadd(-116.992576179232, -127.004413636344, 23.2840401884961, 1.8)
    pt3dadd(-117.543903633858, -127.360155439844, 22.817267414148, 1.8)
    pt3dadd(-118.156633038634, -127.689068846578, 22.0986725022594, 1.8)
    pt3dadd(-118.769362443411, -128.017982253313, 21.3800775903708, 1.8)
    pt3dadd(-119.382091848188, -128.346895660048, 20.6614826784823, 1.8)
    pt3dadd(-119.987211381323, -128.932184346006, 20.9207219016393, 1.8)
    pt3dadd(-120.590662443284, -129.573683541608, 21.3943521349011, 1.8)
    pt3dadd(-121.194113505245, -130.215182737211, 21.867982368163, 1.8)
    pt3dadd(-121.797564567206, -130.856681932813, 22.3416126014248, 1.8)
    pt3dadd(-122.488625467446, -131.518235263174, 22.5621865933253, 1.8)
    pt3dadd(-123.223578247374, -132.189835566425, 22.6559812837466, 1.8)
    pt3dadd(-123.958531027301, -132.861435869675, 22.7497759741679, 1.8)
    pt3dadd(-124.693483807228, -133.533036172926, 22.8435706645892, 1.8)
    pt3dadd(-125.424568394519, -134.208231689224, 22.9363960705999, 1.8)
    pt3dadd(-126.020158145941, -135.00936012762, 22.9952694363525, 1.8)
    pt3dadd(-126.615747897364, -135.810488566015, 23.0541428021052, 1.8)
    pt3dadd(-127.122787839656, -136.485558724962, 23.4034157444437, 1.8)
    pt3dadd(-127.494459842677, -136.967920964098, 24.1966285736552, 1.8)
    pt3dadd(-127.866131845698, -137.450283203235, 24.9898414028668, 1.8)
    pt3dadd(-128.237803848718, -137.932645442371, 25.7830542320783, 1.8)
    pt3dadd(-128.609475851739, -138.415007681507, 26.5762670612899, 1.8)
    pt3dadd(-129.118968482677, -138.8400789498, 26.5369229502023, 1.8)
    pt3dadd(-129.735990099879, -139.220451248787, 25.8480098656493, 1.8)
    pt3dadd(-130.353011717081, -139.600823547775, 25.1590967810963, 1.8)
    pt3dadd(-130.970033334284, -139.981195846762, 24.4701836965433, 1.8)
    pt3dadd(-131.631937917829, -140.378490911375, 23.9363050882212, 1.8)
    pt3dadd(-132.496664737907, -140.852258487777, 24.1030138468021, 1.8)
    pt3dadd(-133.361391557986, -141.326026064179, 24.2697226053829, 1.8)
    pt3dadd(-134.226118378064, -141.79979364058, 24.4364313639638, 1.8)
    pt3dadd(-134.28357534288, -142.163292664338, 25.3651249240611, 1.8)
    pt3dadd(-134.339673027464, -142.526606018009, 26.2951015134592, 1.8)
    pt3dadd(-134.395770712048, -142.88991937168, 27.2250781028572, 1.8)
    pt3dadd(-134.451868396632, -143.253232725352, 28.1550546922553, 1.8)
    pt3dadd(-134.507966081216, -143.616546079023, 29.0850312816534, 1.8)
    pt3dadd(-134.5640637658, -143.979859432694, 30.0150078710514, 1.8)
    pt3dadd(-134.620161450384, -144.343172786365, 30.9449844604495, 1.8)
    pt3dadd(-134.676259134968, -144.706486140037, 31.8749610498476, 1.8)
    pt3dadd(-135.148479386234, -145.180187762045, 32.3598389924357, 1.8)
    pt3dadd(-135.965255978511, -145.745292688931, 32.4761679222738, 1.8)
    pt3dadd(-136.590357061496, -146.463452348685, 32.5461411453474, 1.67779815876617)
    pt3dadd(-136.942931153576, -147.399227424965, 32.550205159037, 1.38184798527358)
    pt3dadd(-137.39817619273, -147.688611132424, 33.3165483647552, 1.35)
    pt3dadd(-137.865802283447, -147.900046743603, 34.1748145365259, 1.35)
    pt3dadd(-138.333428374164, -148.111482354782, 35.0330807082966, 1.35)
    pt3dadd(-139.128537042638, -147.668913254314, 35.2699848126413, 1.35)
    pt3dadd(-139.964822457254, -147.144111425093, 35.428760583295, 1.35)
    pt3dadd(-140.568366615097, -147.079894193549, 36.1218256925011, 1.35)
    pt3dadd(-141.108103440223, -147.141948836084, 36.9613692476207, 1.35)
    pt3dadd(-141.647840265349, -147.204003478619, 37.8009128027402, 1.35)
    pt3dadd(-142.187577090475, -147.266058121154, 38.6404563578597, 1.35)
    pt3dadd(-142.888448109972, -147.517468627476, 39.1075495751939, 1.35)
    pt3dadd(-143.772033356908, -147.983594641565, 39.1523117286978, 1.35)
    pt3dadd(-144.558201045628, -148.393263979958, 39.4323337749402, 1.35)
    pt3dadd(-145.150035502403, -148.690310825509, 40.1816635737092, 1.35)
    pt3dadd(-145.741869959177, -148.987357671059, 40.9309933724781, 1.35)
    pt3dadd(-146.133178197368, -149.411496435428, 41.7329646491024, 1.35)
    pt3dadd(-146.44369084354, -149.886842801946, 42.556146116584, 1.35)
    pt3dadd(-146.754203489711, -150.362189168464, 43.3793275840657, 1.35)
    pt3dadd(-147.064716135883, -150.837535534982, 44.2025090515474, 1.35)
    pt3dadd(-147.375228782055, -151.312881901501, 45.0256905190291, 1.35)
    pt3dadd(-147.699717072488, -151.786264080684, 45.8370611917633, 1.35)
    pt3dadd(-148.531542560965, -152.188343264447, 46.2196820049765, 1.35)
    pt3dadd(-149.363368049443, -152.590422448211, 46.6023028181898, 1.35)
    pt3dadd(-150.15280200132, -153.082353488415, 46.9122859544087, 1.35)
    pt3dadd(-150.833901224246, -153.803907639602, 47.0366380972717, 1.35)
    pt3dadd(-151.515000447172, -154.525461790789, 47.1609902401347, 1.35)
    pt3dadd(-151.934381455265, -155.154143227896, 47.6392737645641, 1.35)
    pt3dadd(-152.094973343329, -155.690991362661, 48.4675275455317, 1.35)
    pt3dadd(-152.255565231394, -156.227839497426, 49.2957813264993, 1.35)
    pt3dadd(-152.416157119459, -156.764687632191, 50.1240351074669, 1.35)
    pt3dadd(-152.576749007524, -157.301535766956, 50.9522888884345, 1.35)
    pt3dadd(-152.737340895589, -157.838383901721, 51.7805426694021, 1.35)
    pt3dadd(-152.924954098176, -158.376796003317, 52.5943318114776, 1.35)
    pt3dadd(-153.475814771945, -158.936232507551, 53.2136728450169, 1.35)
    pt3dadd(-154.026675445715, -159.495669011784, 53.8330138785562, 1.35)
    pt3dadd(-154.577536119484, -160.055105516018, 54.4523549120956, 1.35)
    pt3dadd(-155.128396793253, -160.614542020251, 55.0716959456349, 1.35)
    pt3dadd(-155.553130125958, -161.192845542338, 55.7576636658416, 1.35)
    pt3dadd(-155.888826876781, -161.784467784741, 56.4906649030715, 1.35)
    pt3dadd(-156.224523627604, -162.376090027145, 57.2236661403014, 1.35)
    pt3dadd(-156.560220378427, -162.967712269548, 57.9566673775313, 1.35)
    pt3dadd(-156.895917129249, -163.559334511952, 58.6896686147612, 1.35)
    pt3dadd(-157.371573603416, -164.20010764048, 58.9814908171292, 1.35)
    pt3dadd(-158.02682872805, -164.903952005551, 58.7071847264215, 1.35)
    pt3dadd(-158.682083852683, -165.607796370621, 58.4328786357137, 1.35)
    pt3dadd(-159.337338977317, -166.311640735692, 58.1585725450059, 1.35)
    pt3dadd(-159.992594101951, -167.015485100763, 57.8842664542982, 1.35)
    pt3dadd(-160.593209450193, -167.644507593431, 57.9142175392328, 1.35)
    pt3dadd(-161.062732629573, -168.094016878336, 58.6741447639127, 1.35)
    pt3dadd(-161.532255808953, -168.543526163241, 59.4340719885926, 1.35)
    pt3dadd(-162.001778988332, -168.993035448145, 60.1939992132724, 1.35)
    pt3dadd(-162.471302167712, -169.44254473305, 60.9539264379523, 1.35)
    pt3dadd(-162.940825347091, -169.892054017955, 61.7138536626322, 1.35)
    pt3dadd(-163.394554898141, -170.366125417159, 62.4591090065504, 1.35)
    pt3dadd(-163.641543603866, -171.16171839249, 63.0123073406486, 1.35)
    pt3dadd(-163.88853230959, -171.957311367821, 63.5655056747468, 1.35)
    pt3dadd(-164.135521015314, -172.752904343151, 64.118704008845, 1.35)
    pt3dadd(-164.411119407941, -173.543941923347, 64.6516882487306, 1.35)
    pt3dadd(-165.013030850687, -174.283022105825, 64.9541169162881, 1.35)
    pt3dadd(-165.614942293433, -175.022102288302, 65.2565455838457, 1.35)
    pt3dadd(-166.216853736179, -175.76118247078, 65.5589742514032, 1.35)
    pt3dadd(-166.818765178924, -176.500262653257, 65.8614029189608, 1.35)
    pt3dadd(-167.250282540708, -177.238297907504, 66.3243411851419, 1.35)
    pt3dadd(-167.511448341184, -177.975288494268, 66.9477489968376, 1.35)
    pt3dadd(-167.772614141659, -178.712279081032, 67.5711568085333, 1.35)
    pt3dadd(-168.033779942135, -179.449269667796, 68.1945646202289, 1.35)
    pt3dadd(-168.29494574261, -180.18626025456, 68.8179724319246, 1.35)
    pt3dadd(-168.556111543086, -180.923250841324, 69.4413802436202, 1.35)
    pt3dadd(-168.785855280211, -181.640063281837, 70.0994202713117, 1.35)
    pt3dadd(-169.010982882437, -182.353911402531, 70.7625480292117, 1.35)
    pt3dadd(-169.236110484662, -183.067759523225, 71.4256757871117, 1.35)
    pt3dadd(-169.461238086888, -183.781607643919, 72.0888035450117, 1.35)
    pt3dadd(-169.686365689113, -184.495455764614, 72.7519313029118, 1.35)
    pt3dadd(-169.911493291338, -185.209303885308, 73.4150590608118, 1.35)
    pt3dadd(-170.355595595156, -185.935354309885, 73.90880576364, 1.35)
    pt3dadd(-170.890489085179, -186.66646404787, 74.3323237742998, 1.35)
    pt3dadd(-171.425382575203, -187.397573785856, 74.7558417849596, 1.35)
    pt3dadd(-171.895220970764, -188.092619737459, 75.2751547839017, 1.35)
    pt3dadd(-172.24796010282, -188.722750821758, 75.9668988993933, 1.35)
    pt3dadd(-172.600699234876, -189.352881906056, 76.6586430148849, 1.35)
    pt3dadd(-172.953438366932, -189.983012990355, 77.3503871303765, 1.35)
    pt3dadd(-173.369808570213, -190.661958005246, 77.9442273336438, 1.35)
    pt3dadd(-173.837917201681, -191.380593630305, 78.4584618594602, 1.35)
    pt3dadd(-174.306025833149, -192.099229255364, 78.9726963852766, 1.35)
    pt3dadd(-174.774134464617, -192.817864880423, 79.486930911093, 1.35)
    pt3dadd(-175.242243096085, -193.536500505481, 80.0011654369094, 1.35)
    pt3dadd(-175.712522416537, -194.282539613493, 80.449393575274, 1.35)
    pt3dadd(-176.191868538728, -195.143040972315, 80.6219180854298, 1.35)
    pt3dadd(-176.67121466092, -196.003542331138, 80.7944425955855, 1.35)
    pt3dadd(-177.150560783111, -196.864043689961, 80.9669671057412, 1.35)
    pt3dadd(-177.629906905303, -197.724545048783, 81.139491615897, 1.35)
    pt3dadd(-178.033019427415, -198.242528233321, 81.8295864324795, 1.35)
    pt3dadd(-178.41800733273, -198.679077369774, 82.6427341215392, 1.35)
    pt3dadd(-178.802995238046, -199.115626506227, 83.455881810599, 1.35)
    pt3dadd(-179.187983143362, -199.552175642679, 84.2690294996587, 1.35)
    pt3dadd(-179.572971048677, -199.988724779132, 85.0821771887184, 1.35)
    pt3dadd(-180.241733489274, -200.689088574047, 85.213966523407, 1.35)
    pt3dadd(-180.931225106997, -201.408723515961, 85.2959839573115, 1.35)
    pt3dadd(-181.48171782861, -202.153222134694, 85.0154920867442, 1.35)
    pt3dadd(-181.973430519899, -202.908235136765, 84.5817018195306, 1.35)
    pt3dadd(-182.465143211188, -203.663248138835, 84.147911552317, 1.35)
    pt3dadd(-183.01084046214, -204.261650367028, 84.3387971892313, 1.35)
    pt3dadd(-183.596308256153, -204.74467709591, 84.9898829296374, 1.35)
    pt3dadd(-184.181776050165, -205.227703824791, 85.6409686700436, 1.35)
    pt3dadd(-184.772241938379, -205.711517258408, 86.2860530723804, 1.35)
    pt3dadd(-185.455238749447, -206.209895146429, 86.8200332562844, 1.35)
    pt3dadd(-186.138235560515, -206.708273034451, 87.3540134401884, 1.35)
    pt3dadd(-186.821232371583, -207.206650922472, 87.8879936240924, 1.35)
    pt3dadd(-187.504229182651, -207.705028810494, 88.4219738079964, 1.35)
    pt3dadd(-187.844138675344, -208.145113771007, 89.1891100812221, 1.35)
    pt3dadd(-187.984046973548, -208.551217134103, 90.0921636380921, 1.35)
    pt3dadd(-188.123955271753, -208.957320497198, 90.9952171949622, 1.35)
    pt3dadd(-188.263863569958, -209.363423860294, 91.8982707518323, 1.35)
    pt3dadd(-188.403771868163, -209.76952722339, 92.8013243087023, 1.35)
    pt3dadd(-188.623708806446, -210.197144317867, 93.5000990943563, 1.35)
    pt3dadd(-189.305541235413, -210.748930653544, 93.0198529298026, 1.35)
    pt3dadd(-189.98737366438, -211.300716989221, 92.5396067652489, 1.35)
    pt3dadd(-190.669206093348, -211.852503324898, 92.0593606006952, 1.35)
    pt3dadd(-191.249626049642, -212.439031895019, 91.7958953740212, 1.35)
    pt3dadd(-191.397101527098, -213.173880077006, 92.4578992508825, 1.35)
    pt3dadd(-191.544577004554, -213.908728258993, 93.1199031277439, 1.35)
    pt3dadd(-191.69205248201, -214.64357644098, 93.7819070046053, 1.35)
    pt3dadd(-191.839527959466, -215.378424622967, 94.4439108814666, 1.35)
    pt3dadd(-191.931422091712, -215.98963012335, 95.2112680248812, 1.35)
    pt3dadd(-191.968356744523, -216.478576304689, 96.0827997014002, 1.35)
    pt3dadd(-192.005291397334, -216.967522486028, 96.9543313779192, 1.35)
    pt3dadd(-192.042226050145, -217.456468667366, 97.8258630544383, 1.35)
    pt3dadd(-192.079160702956, -217.945414848705, 98.6973947309573, 1.35)
    pt3dadd(-192.116095355766, -218.434361030044, 99.5689264074763, 1.35)
    pt3dadd(-192.27946216313, -218.9473404752, 100.227839170015, 1.35)
    pt3dadd(-193.00775089444, -219.567704926037, 99.9367318496249, 1.35)
    pt3dadd(-193.73603962575, -220.188069376874, 99.6456245292344, 1.35)
    pt3dadd(-194.46432835706, -220.808433827711, 99.354517208844, 1.35)
    pt3dadd(-195.05755315124, -221.577407441124, 99.2703207624561, 1.35)
    pt3dadd(-195.570078387563, -222.435173769814, 99.3097518098533, 1.35)
    pt3dadd(-196.12188825213, -223.259336224286, 99.4051752192399, 1.35)
    pt3dadd(-196.722106748366, -224.042090177713, 99.5695954283661, 1.35)
    pt3dadd(-197.284351513235, -224.796880470475, 99.5826797189462, 1.35)
    pt3dadd(-197.674306180457, -225.42479722058, 98.909139881632, 1.35)
    pt3dadd(-198.06426084768, -226.052713970685, 98.2356000443178, 1.35)
    pt3dadd(-198.454215514902, -226.680630720789, 97.5620602070035, 1.35)
    pt3dadd(-198.748308331285, -227.273226839581, 96.8330046965744, 1.35)
    pt3dadd(-198.823879194531, -227.78530778708, 95.9773983923455, 1.35)
    pt3dadd(-198.899450057777, -228.29738873458, 95.1217920881165, 1.35)
    pt3dadd(-198.975020921023, -228.809469682079, 94.2661857838875, 1.35)
    pt3dadd(-199.050591784268, -229.321550629579, 93.4105794796585, 1.35)
    pt3dadd(-199.126162647514, -229.833631577078, 92.5549731754295, 1.35)
    pt3dadd(-199.123665267217, -230.256286203601, 91.6499949360804, 1.35)
    pt3dadd(-199.109968585538, -230.666112152615, 90.7379340321788, 1.35)
    pt3dadd(-199.096271903859, -231.075938101629, 89.8258731282772, 1.35)
    pt3dadd(-199.08257522218, -231.485764050643, 88.9138122243756, 1.35)
    pt3dadd(-199.0734440796, -232.104406562235, 88.310323178027, 1.35)
    pt3dadd(-199.072632312422, -233.103556903568, 88.2691171536119, 1.35)
  }
  adendOML[0] {pt3dclear()
    pt3dadd(-199.072632312422, -233.103556903568, 88.2691171536119, 1.35)
    pt3dadd(-199.071820545243, -234.102707244901, 88.2279111291967, 1.35)
  }
}
proc shape3d_3() {
  adendOML[0] {
    pt3dadd(-199.08842046598, -235.058848153594, 88.0828215613277, 1.35)
    pt3dadd(-199.191734727516, -235.800791873727, 87.420367276476, 1.35)
    pt3dadd(-199.295048989051, -236.54273559386, 86.7579129916242, 1.35)
    pt3dadd(-199.398363250587, -237.284679313994, 86.0954587067724, 1.35)
    pt3dadd(-199.501677512123, -238.026623034127, 85.4330044219206, 1.35)
    pt3dadd(-199.691358873322, -238.67185153762, 84.7007872431077, 1.35)
    pt3dadd(-199.92708879108, -239.265514153862, 83.9313744124698, 1.35)
    pt3dadd(-200.162818708838, -239.859176770105, 83.1619615818319, 1.35)
    pt3dadd(-200.398548626596, -240.452839386347, 82.392548751194, 1.35)
    pt3dadd(-200.634278544354, -241.046502002589, 81.6231359205562, 1.35)
    pt3dadd(-200.853382649347, -241.670992721138, 80.9859729331763, 1.35)
    pt3dadd(-200.93388977923, -242.55247428809, 81.4512780472267, 1.35)
    pt3dadd(-201.014396909113, -243.433955855042, 81.9165831612771, 1.35)
    pt3dadd(-201.094904038996, -244.315437421994, 82.3818882753275, 1.35)
    pt3dadd(-201.18501212733, -245.202042792042, 82.8155767151659, 1.35)
    pt3dadd(-201.42733628812, -246.169882258378, 82.7480062445405, 1.35)
    pt3dadd(-201.669660448911, -247.137721724713, 82.6804357739151, 1.35)
    pt3dadd(-201.911984609701, -248.105561191049, 82.6128653032897, 1.35)
    pt3dadd(-202.154308770492, -249.073400657384, 82.5452948326642, 1.35)
    pt3dadd(-202.376133969338, -250.045847093475, 82.48540920031, 1.35)
    pt3dadd(-202.534260545189, -251.03260926079, 82.4494034901264, 1.35)
    pt3dadd(-202.692387121041, -252.019371428104, 82.4133977799429, 1.35)
    pt3dadd(-202.878627613451, -252.996457515655, 82.3566517941232, 1.35)
    pt3dadd(-203.223113692901, -253.919079582891, 82.1831644397876, 1.35)
    pt3dadd(-203.588105898022, -254.79651823355, 81.9473752551093, 1.35)
    pt3dadd(-204.086557380094, -255.379891286289, 81.3061093185757, 1.35)
    pt3dadd(-204.585008862166, -255.963264339028, 80.6648433820421, 1.35)
    pt3dadd(-205.051863905048, -256.445752802861, 80.2789261772244, 1.35)
    pt3dadd(-205.353115072472, -256.399482984902, 81.2313477425366, 1.35)
    pt3dadd(-205.654366239896, -256.353213166942, 82.1837693078488, 1.35)
    pt3dadd(-205.95561740732, -256.306943348982, 83.1361908731611, 1.35)
    pt3dadd(-206.256868574743, -256.260673531022, 84.0886124384733, 1.35)
    pt3dadd(-206.558119742167, -256.214403713062, 85.0410340037855, 1.35)
    pt3dadd(-206.861197357496, -256.158399510507, 85.9922748589877, 1.35)
    pt3dadd(-207.166997964748, -256.087882629789, 86.9417554317949, 1.35)
    pt3dadd(-207.472798572, -256.017365749071, 87.8912360046021, 1.35)
    pt3dadd(-207.778599179252, -255.946848868353, 88.8407165774092, 1.35)
    pt3dadd(-208.084399786503, -255.876331987634, 89.7901971502164, 1.35)
    pt3dadd(-208.390200393755, -255.805815106916, 90.7396777230236, 1.35)
    pt3dadd(-208.696001001007, -255.735298226198, 91.6891582958307, 1.35)
    pt3dadd(-209.296562073265, -255.786572984169, 91.4040999309244, 1.35)
    pt3dadd(-209.997825034417, -255.879456606027, 90.6972740031978, 1.35)
    pt3dadd(-210.69908799557, -255.972340227885, 89.9904480754713, 1.35)
    pt3dadd(-211.472016373525, -256.237402864697, 89.6880785900362, 1.35)
    pt3dadd(-212.331975185346, -256.711559581226, 89.8768807355275, 1.35)
    pt3dadd(-213.191933997167, -257.185716297755, 90.0656828810187, 1.35)
    pt3dadd(-214.046237600344, -257.671651613559, 90.245296554076, 1.35)
    pt3dadd(-214.861284171985, -258.239350993659, 90.3611261698486, 1.35)
    pt3dadd(-215.676330743626, -258.807050373758, 90.4769557856213, 1.35)
    pt3dadd(-216.491377315268, -259.374749753858, 90.5927854013939, 1.35)
    pt3dadd(-217.229811304438, -259.917700518816, 90.8128622863586, 1.35)
    pt3dadd(-217.475941009697, -260.301619322417, 91.7028210047439, 1.35)
    pt3dadd(-217.722070714956, -260.685538126019, 92.5927797231293, 1.35)
    pt3dadd(-217.968200420215, -261.069456929621, 93.4827384415146, 1.35)
    pt3dadd(-218.214330125474, -261.453375733223, 94.3726971599, 1.35)
    pt3dadd(-218.558584047982, -262.071251831664, 94.9579166762747, 1.35)
    pt3dadd(-219.000966008605, -262.923094335027, 95.2383851243734, 1.35)
    pt3dadd(-219.443347969229, -263.77493683839, 95.5188535724721, 1.35)
    pt3dadd(-219.885729929852, -264.626779341754, 95.7993220205707, 1.35)
  }
  adendMML[2] {pt3dclear()
    pt3dadd(-113.342781220705, -122.414026182413, 14.562227056849, 1.61866533712692)
    pt3dadd(-113.346665907972, -123.068125201747, 13.9344799229348, 1.61866533712692)
    pt3dadd(-113.288236372689, -123.927332427379, 13.4261995546067, 1.37600279652719)
    pt3dadd(-113.385405875108, -124.240101110884, 12.5128022782374, 1.35)
    pt3dadd(-113.501249867033, -124.487288021059, 11.5507841905836, 1.35)
    pt3dadd(-113.617093858958, -124.734474931233, 10.5887661029297, 1.35)
    pt3dadd(-113.732937850883, -124.981661841408, 9.62674801527588, 1.35)
    pt3dadd(-113.848781842808, -125.228848751582, 8.66472992762204, 1.35)
    pt3dadd(-113.964625834733, -125.476035661757, 7.70271183996819, 1.35)
    pt3dadd(-114.2243590161, -126.40954911074, 7.64847720428934, 1.35)
    pt3dadd(-114.660016529226, -127.277609519688, 7.67272601051748, 1.35)
    pt3dadd(-115.343296991327, -127.998864703832, 7.75346407548981, 1.35)
    pt3dadd(-116.289803340249, -128.279209599064, 7.91325290854337, 1.35)
    pt3dadd(-117.23630968917, -128.559554494296, 8.07304174159693, 1.35)
    pt3dadd(-117.773092813006, -129.270480044357, 8.44210053873586, 1.35)
    pt3dadd(-118.237392556804, -130.05757882388, 8.84818089923359, 1.35)
    pt3dadd(-118.701692300602, -130.844677603403, 9.25426125973133, 1.35)
    pt3dadd(-119.173148225126, -131.503832503455, 8.96226410115067, 1.35)
    pt3dadd(-119.648269115108, -132.09746224185, 8.31275361347869, 1.35)
    pt3dadd(-120.12339000509, -132.691091980245, 7.66324312580671, 1.35)
    pt3dadd(-120.598510895072, -133.28472171864, 7.01373263813473, 1.35)
    pt3dadd(-121.073631785054, -133.878351457035, 6.36422215046275, 1.35)
    pt3dadd(-121.58731539815, -134.47399731784, 5.75990788928839, 1.35)
    pt3dadd(-122.277118759522, -135.078851007935, 5.36200923860102, 1.35)
    pt3dadd(-122.966922120894, -135.68370469803, 4.96411058791366, 1.35)
    pt3dadd(-123.656725482266, -136.288558388124, 4.56621193722629, 1.35)
    pt3dadd(-124.3329269828, -136.890184202894, 4.15057165171672, 1.35)
    pt3dadd(-124.79475294092, -137.440936278252, 3.45530987663129, 1.35)
    pt3dadd(-125.25657889904, -137.991688353611, 2.76004810154586, 1.35)
    pt3dadd(-125.71840485716, -138.54244042897, 2.06478632646042, 1.35)
    pt3dadd(-126.18023081528, -139.093192504328, 1.36952455137499, 1.35)
    pt3dadd(-126.617077649079, -139.600067306572, 1.9565544843486, 1.35)
    pt3dadd(-127.050775002337, -140.101409864525, 2.7052615334419, 1.35)
    pt3dadd(-127.484472355594, -140.602752422479, 3.45396858253519, 1.35)
    pt3dadd(-127.901432891609, -141.108316329448, 3.9350954034619, 1.35)
    pt3dadd(-128.239462780307, -141.633788072272, 3.15431679089571, 1.35)
    pt3dadd(-128.577492669004, -142.159259815096, 2.37353817832951, 1.35)
    pt3dadd(-128.915522557702, -142.684731557919, 1.59275956576331, 1.35)
    pt3dadd(-129.2535524464, -143.210203300743, 0.811980953197109, 1.35)
    pt3dadd(-129.571877976315, -143.75004874943, 0.0334051430052524, 1.35)
    pt3dadd(-129.855525362711, -144.315190805855, -0.741293905819906, 1.35)
    pt3dadd(-130.139172749107, -144.88033286228, -1.51599295464507, 1.35)
    pt3dadd(-130.422820135503, -145.445474918705, -2.29069200347023, 1.35)
    pt3dadd(-130.706467521899, -146.01061697513, -3.06539105229539, 1.35)
    pt3dadd(-130.926333682277, -146.631023078965, -3.57391255298529, 1.35)
    pt3dadd(-130.894125704691, -147.469841997682, -3.03045559260876, 1.35)
    pt3dadd(-130.861917727105, -148.3086609164, -2.48699863223222, 1.35)
    pt3dadd(-130.881657279148, -149.076419351813, -2.20493796843817, 1.35)
    pt3dadd(-131.127141755355, -149.535374971591, -3.05880980367808, 1.35)
    pt3dadd(-131.372626231562, -149.994330591369, -3.91268163891798, 1.35)
    pt3dadd(-131.618110707769, -150.453286211146, -4.76655347415788, 1.35)
    pt3dadd(-131.863595183976, -150.912241830924, -5.62042530939778, 1.35)
    pt3dadd(-132.512679385009, -151.573294053214, -5.81155740409239, 1.35)
    pt3dadd(-133.227779926857, -152.267402983347, -5.89428592491961, 1.35)
    pt3dadd(-133.769291891855, -152.778787183007, -6.41599937225279, 1.35)
    pt3dadd(-134.193556071552, -153.166752720237, -7.2342185652246, 1.35)
    pt3dadd(-134.617820251249, -153.554718257468, -8.05243775819642, 1.35)
    pt3dadd(-135.042084430946, -153.942683794698, -8.87065695116824, 1.35)
    pt3dadd(-135.466348610643, -154.330649331929, -9.68887614414005, 1.35)
    pt3dadd(-135.89061279034, -154.71861486916, -10.5070953371119, 1.35)
    pt3dadd(-136.343661796658, -155.383828795798, -11.026687070855, 1.35)
    pt3dadd(-136.810900476661, -156.185714178809, -11.3990683921124, 1.35)
    pt3dadd(-137.27513883602, -156.937045253905, -11.6111053120001, 1.35)
    pt3dadd(-137.720804994011, -157.375441513756, -10.8305988130076, 1.35)
    pt3dadd(-138.166471152003, -157.813837773607, -10.0500923140152, 1.35)
    pt3dadd(-138.615003651593, -158.255292888689, -9.29522283278379, 1.35)
    pt3dadd(-139.208410303531, -158.851352416164, -9.83613094433455, 1.35)
    pt3dadd(-139.802373936571, -159.431759518757, -10.3895398128689, 1.35)
    pt3dadd(-140.401987335378, -159.853395463936, -11.0697507372914, 1.35)
    pt3dadd(-141.001600734185, -160.275031409116, -11.749961661714, 1.35)
    pt3dadd(-141.601214132991, -160.696667354296, -12.4301725861365, 1.35)
    pt3dadd(-142.200827531798, -161.118303299476, -13.1103835105591, 1.35)
    pt3dadd(-142.846287247209, -161.664584842682, -13.5730865723927, 1.35)
    pt3dadd(-143.541769354658, -162.346865773228, -13.7984692914108, 1.35)
    pt3dadd(-144.237251462106, -163.029146703775, -14.0238520104289, 1.35)
    pt3dadd(-144.932733569554, -163.711427634321, -14.2492347294471, 1.35)
    pt3dadd(-145.395929027842, -164.324076772398, -14.8779026298574, 1.35)
    pt3dadd(-145.843507906313, -164.932044580537, -15.5336833034163, 1.35)
    pt3dadd(-146.291086784784, -165.540012388676, -16.1894639769753, 1.35)
    pt3dadd(-146.738665663255, -166.147980196815, -16.8452446505342, 1.35)
    pt3dadd(-147.186244541726, -166.755948004954, -17.5010253240932, 1.35)
    pt3dadd(-147.6211524092, -167.392041235195, -18.0484600117199, 1.35)
    pt3dadd(-147.949667656047, -168.264290630451, -17.6861635515324, 1.35)
    pt3dadd(-148.278182902894, -169.136540025708, -17.3238670913448, 1.35)
    pt3dadd(-148.606698149741, -170.008789420964, -16.9615706311572, 1.35)
    pt3dadd(-149.178325973659, -170.558462681426, -17.497763918538, 1.35)
    pt3dadd(-149.770896452797, -171.080347989268, -18.1113565787885, 1.35)
    pt3dadd(-150.363466931934, -171.60223329711, -18.724949239039, 1.35)
    pt3dadd(-150.956037411072, -172.124118604952, -19.3385418992895, 1.35)
    pt3dadd(-151.516390517057, -172.686844516778, -19.9196090949435, 1.35)
    pt3dadd(-151.805357825226, -173.593594748746, -20.2266952581554, 1.35)
    pt3dadd(-152.094325133395, -174.500344980713, -20.5337814213673, 1.35)
    pt3dadd(-152.383292441564, -175.407095212681, -20.8408675845792, 1.35)
    pt3dadd(-152.672259749733, -176.313845444649, -21.1479537477911, 1.35)
    pt3dadd(-153.121884786288, -177.12348848485, -21.5237801765282, 1.35)
    pt3dadd(-153.575810957048, -177.930531767988, -21.9014469220078, 1.35)
    pt3dadd(-154.029737127808, -178.737575051125, -22.2791136674874, 1.35)
    pt3dadd(-154.543964964995, -179.533533620962, -22.5229418606463, 1.35)
    pt3dadd(-155.176635982146, -180.307719845685, -22.5038873728156, 1.35)
    pt3dadd(-155.803831660788, -181.085447154734, -22.4846642402023, 1.35)
    pt3dadd(-156.25134083268, -181.979383730407, -22.459906620211, 1.35)
    pt3dadd(-156.716559223654, -182.852054187408, -22.4697673542427, 1.35)
    pt3dadd(-157.379406724963, -183.4874016945, -22.8659576308013, 1.35)
    pt3dadd(-158.042254226272, -184.122749201593, -23.2621479073599, 1.35)
    pt3dadd(-158.613645467307, -184.753855639653, -23.7781770767102, 1.35)
    pt3dadd(-159.149125050458, -185.383296759015, -24.3412627658223, 1.35)
    pt3dadd(-159.68460463361, -186.012737878378, -24.9043484549344, 1.35)
    pt3dadd(-160.220084216762, -186.642178997741, -25.4674341440465, 1.35)
    pt3dadd(-160.743452849796, -187.305896474099, -25.9572702443852, 1.35)
    pt3dadd(-161.184189800681, -188.203477768647, -25.9473324476976, 1.35)
    pt3dadd(-161.624926751566, -189.101059063194, -25.93739465101, 1.35)
    pt3dadd(-162.08157864807, -189.616176091563, -26.576019577092, 1.35)
    pt3dadd(-162.541549585929, -190.051530691177, -27.3499014213809, 1.35)
    pt3dadd(-163.001520523788, -190.486885290791, -28.1237832656698, 1.35)
    pt3dadd(-163.461491461647, -190.922239890405, -28.8976651099587, 1.35)
    pt3dadd(-163.926720221597, -191.4007092851, -29.5708276301278, 1.35)
    pt3dadd(-164.43629902282, -192.242854534199, -29.3944166759205, 1.35)
    pt3dadd(-164.945877824044, -193.084999783298, -29.2180057217131, 1.35)
    pt3dadd(-165.487752735805, -193.884564149464, -29.1512923733598, 1.35)
    pt3dadd(-166.165446668701, -194.505057607627, -29.5459045902165, 1.35)
    pt3dadd(-166.843140601596, -195.125551065791, -29.9405168070732, 1.35)
    pt3dadd(-167.520834534492, -195.746044523954, -30.33512902393, 1.35)
    pt3dadd(-168.154344290833, -196.444684464326, -30.5797860102555, 1.35)
    pt3dadd(-168.714501452242, -197.273059701396, -30.5754940256914, 1.35)
    pt3dadd(-169.274658613651, -198.101434938466, -30.5712020411273, 1.35)
    pt3dadd(-169.840018444365, -198.907124809362, -30.6024847933649, 1.35)
    pt3dadd(-170.492471034127, -199.333061324005, -31.2292891516827, 1.35)
    pt3dadd(-171.144923623889, -199.758997838649, -31.8560935100004, 1.35)
    pt3dadd(-171.560100727975, -200.252062601311, -31.9562407363492, 1.35)
    pt3dadd(-171.572196800579, -200.859164106438, -31.1617085170527, 1.35)
    pt3dadd(-171.584292873184, -201.466265611565, -30.3671762977562, 1.35)
    pt3dadd(-171.631166854846, -202.09289175938, -29.6477534310713, 1.35)
    pt3dadd(-172.099163573769, -202.955940141763, -29.8378233149119, 1.35)
    pt3dadd(-172.567160292692, -203.818988524146, -30.0278931987525, 1.35)
    pt3dadd(-173.136315532459, -204.570422824169, -30.3391624623957, 1.35)
    pt3dadd(-173.744765732012, -205.278500708525, -30.6975115440891, 1.35)
    pt3dadd(-174.353215931565, -205.98657859288, -31.0558606257825, 1.35)
    pt3dadd(-174.961666131118, -206.694656477236, -31.4142097074759, 1.35)
    pt3dadd(-175.509508829693, -207.51176980746, -31.4536172419916, 1.35)
    pt3dadd(-176.041517643894, -208.357368962289, -31.4097003777381, 1.35)
    pt3dadd(-176.573526458095, -209.202968117117, -31.3657835134845, 1.35)
    pt3dadd(-177.10947632219, -210.046155617644, -31.326409675796, 1.35)
    pt3dadd(-177.668167715832, -210.875426849913, -31.3132510283862, 1.35)
    pt3dadd(-178.226859109474, -211.704698082182, -31.3000923809764, 1.35)
    pt3dadd(-178.785550503115, -212.533969314451, -31.2869337335666, 1.35)
    pt3dadd(-179.454659521236, -213.270394202691, -31.2161725955612, 1.35)
    pt3dadd(-180.14648471481, -213.987717848253, -31.1335609193011, 1.35)
    pt3dadd(-180.883668259885, -214.608691510562, -31.2432041026527, 1.35)
    pt3dadd(-181.676190209747, -215.112115610375, -31.5874033686522, 1.35)
    pt3dadd(-182.468712159609, -215.615539710187, -31.9316026346517, 1.35)
    pt3dadd(-183.261234109471, -216.11896381, -32.2758019006513, 1.35)
    pt3dadd(-184.053756059333, -216.622387909813, -32.6200011666508, 1.35)
    pt3dadd(-184.823102278643, -217.188278361276, -32.8107195408255, 1.35)
    pt3dadd(-185.549814182898, -217.869082563171, -32.7190928695024, 1.35)
    pt3dadd(-186.276526087152, -218.549886765065, -32.6274661981793, 1.35)
    pt3dadd(-187.003237991407, -219.23069096696, -32.5358395268563, 1.35)
    pt3dadd(-187.55798180697, -220.013463121694, -32.2855553637993, 1.35)
    pt3dadd(-188.068151741516, -220.822665223008, -31.9941474072935, 1.35)
    pt3dadd(-188.578321676061, -221.631867324322, -31.7027394507876, 1.35)
    pt3dadd(-189.034055311616, -222.446271103149, -31.3472706203925, 1.35)
    pt3dadd(-189.469107244373, -223.262651128532, -30.9674634720136, 1.35)
    pt3dadd(-189.904159177131, -224.079031153915, -30.5876563236347, 1.35)
    pt3dadd(-190.096863376658, -225.025329394427, -30.3529188726687, 1.35)
    pt3dadd(-190.258770108026, -225.988137597877, -30.1366168298968, 1.35)
    pt3dadd(-190.420676839394, -226.950945801327, -29.9203147871249, 1.35)
    pt3dadd(-190.32190790477, -227.894675829621, -29.8772562299018, 1.35)
    pt3dadd(-189.963960600604, -228.819437265998, -30.0064460639799, 1.35)
    pt3dadd(-189.610061650606, -229.742014791905, -30.1400254196126, 1.35)
    pt3dadd(-189.833255080457, -230.353276153636, -30.8993305233265, 1.35)
    pt3dadd(-190.056448510309, -230.964537515367, -31.6586356270405, 1.35)
    pt3dadd(-189.930990012814, -231.819133866032, -31.2582421616248, 1.35)
    pt3dadd(-189.784139340928, -232.688660478402, -30.7866932770457, 1.35)
    pt3dadd(-189.637288669042, -233.558187090772, -30.3151443924666, 1.35)
  }
  adendOML[1] {pt3dclear()
    pt3dadd(-189.637288669042, -233.558187090772, -30.3151443924666, 1.35)
    pt3dadd(-189.834777471343, -234.485330048234, -30.2126368715404, 1.35)
    pt3dadd(-190.15354296202, -235.432765536914, -30.240106067816, 1.35)
    pt3dadd(-190.472308452697, -236.380201025593, -30.2675752640916, 1.35)
    pt3dadd(-190.47802428659, -237.343105816759, -30.473794355673, 1.35)
    pt3dadd(-190.410989759038, -238.309605556276, -30.7215535646447, 1.35)
    pt3dadd(-190.555337426334, -239.033237358249, -31.2866958071897, 1.35)
    pt3dadd(-190.840470916241, -239.595113046386, -32.0632230790957, 1.35)
    pt3dadd(-191.125604406148, -240.156988734523, -32.8397503510018, 1.35)
    pt3dadd(-191.410737896055, -240.71886442266, -33.6162776229079, 1.35)
    pt3dadd(-191.670947117336, -241.366064276565, -34.2438108157187, 1.35)
    pt3dadd(-191.832102701674, -242.352358090074, -34.2792140793013, 1.35)
    pt3dadd(-191.993258286012, -243.338651903582, -34.3146173428838, 1.35)
    pt3dadd(-192.162843063022, -244.28802432664, -34.4237475801707, 1.35)
    pt3dadd(-192.403621246023, -244.925556738188, -35.1555797267833, 1.35)
    pt3dadd(-192.644399429025, -245.563089149737, -35.887411873396, 1.35)
    pt3dadd(-192.885177612026, -246.200621561285, -36.6192440200087, 1.35)
  }
}
proc shape3d_4() {
  adendOML[1] {
    pt3dadd(-193.125955795027, -246.838153972834, -37.3510761666213, 1.35)
    pt3dadd(-193.454598825663, -247.623935463591, -37.3918117000134, 1.35)
    pt3dadd(-193.830504081249, -248.489459667376, -37.0608085406843, 1.35)
    pt3dadd(-194.206409336835, -249.354983871161, -36.7298053813551, 1.35)
    pt3dadd(-194.582314592421, -250.220508074945, -36.3988022220261, 1.35)
    pt3dadd(-195.04441465261, -250.98433542514, -36.7541513283309, 1.35)
    pt3dadd(-195.520048828206, -251.732194562876, -37.2172699320512, 1.35)
    pt3dadd(-195.995683003801, -252.480053700611, -37.6803885357715, 1.35)
    pt3dadd(-196.471317179396, -253.227912838346, -38.1435071394918, 1.35)
    pt3dadd(-196.946951354991, -253.975771976081, -38.6066257432121, 1.35)
    pt3dadd(-197.279162419917, -254.918639459741, -38.6080466971834, 1.35)
    pt3dadd(-197.611038523006, -255.861962381532, -38.6083893654337, 1.35)
    pt3dadd(-197.942914626096, -256.805285303323, -38.6087320336841, 1.35)
    pt3dadd(-198.275872674154, -257.747991793621, -38.6066662679499, 1.35)
    pt3dadd(-198.673464124175, -258.653873800565, -38.4607250867703, 1.35)
    pt3dadd(-199.071055574197, -259.55975580751, -38.3147839055907, 1.35)
    pt3dadd(-199.468647024218, -260.465637814454, -38.1688427244111, 1.35)
    pt3dadd(-199.86623847424, -261.371519821399, -38.0229015432315, 1.35)
    pt3dadd(-200.209536145402, -262.303377922412, -37.9565744610237, 1.35)
    pt3dadd(-200.501663640221, -263.259717673847, -37.9652811592837, 1.35)
    pt3dadd(-200.793791135041, -264.216057425283, -37.9739878575437, 1.35)
    pt3dadd(-201.08591862986, -265.172397176719, -37.9826945558037, 1.35)
    pt3dadd(-201.515566040111, -266.052787305453, -37.960401611579, 1.35)
    pt3dadd(-202.158775431441, -266.815231231012, -37.889967675986, 1.35)
    pt3dadd(-202.801984822771, -267.577675156571, -37.8195337403931, 1.35)
    pt3dadd(-203.391428637416, -268.351031780363, -37.8716243537154, 1.35)
    pt3dadd(-203.826449812027, -269.155731277698, -38.2756234832057, 1.35)
    pt3dadd(-204.261470986639, -269.960430775032, -38.679622612696, 1.35)
    pt3dadd(-204.69649216125, -270.765130272367, -39.0836217421863, 1.35)
    pt3dadd(-205.139757236417, -271.587039419323, -39.3900125720736, 1.35)
    pt3dadd(-205.611447402442, -272.468287692317, -39.359848543486, 1.35)
    pt3dadd(-206.083137568466, -273.349535965311, -39.3296845148984, 1.35)
    pt3dadd(-206.554827734491, -274.230784238305, -39.2995204863108, 1.35)
    pt3dadd(-207.026517900516, -275.112032511299, -39.2693564577232, 1.35)
    pt3dadd(-207.33515879289, -276.013686135277, -39.0105081229857, 1.35)
    pt3dadd(-207.59289105572, -276.921710891311, -38.6802580311981, 1.35)
    pt3dadd(-207.85062331855, -277.829735647346, -38.3500079394105, 1.35)
    pt3dadd(-208.094044984923, -278.718090971204, -37.983903885937, 1.35)
    pt3dadd(-208.203762890951, -279.422674985901, -37.2828166250839, 1.35)
    pt3dadd(-208.313480796979, -280.127259000597, -36.5817293642309, 1.35)
    pt3dadd(-208.423198703007, -280.831843015294, -35.8806421033778, 1.35)
  }
  adendIML[4] {pt3dclear()
    pt3dadd(-108.393535936105, -114.92653890561, 16.9460161009892, 1.8)
    pt3dadd(-109.285977071601, -114.926433111169, 17.6080934156276, 1.8)
    pt3dadd(-110.109413705485, -115.061904784091, 18.1590920869629, 1.8)
    pt3dadd(-110.93285033937, -115.197376457013, 18.7100907582981, 1.8)
    pt3dadd(-111.773344947223, -115.374102708492, 18.9507813924341, 1.8)
    pt3dadd(-112.649315621496, -115.636627553145, 18.5461135239872, 1.8)
    pt3dadd(-113.52528629577, -115.899152397798, 18.1414456555404, 1.8)
    pt3dadd(-114.401256970043, -116.161677242452, 17.7367777870935, 1.8)
    pt3dadd(-115.293074834627, -116.421874393839, 17.3802251593302, 1.8)
    pt3dadd(-116.245459429986, -116.673175282317, 17.207565245123, 1.8)
    pt3dadd(-117.197844025344, -116.924476170794, 17.0349053309158, 1.8)
  }
  adendMML[3] {pt3dclear()
    pt3dadd(-117.197844025344, -116.924476170794, 17.0349053309158, 1.8)
    pt3dadd(-118.150228620703, -117.175777059272, 16.8622454167087, 1.8)
    pt3dadd(-119.007612016861, -117.388087129371, 16.5169934995961, 1.8)
    pt3dadd(-119.627997689378, -117.503127530492, 15.7411795248276, 1.8)
    pt3dadd(-120.248383361894, -117.618167931613, 14.9653655500591, 1.8)
    pt3dadd(-120.868769034411, -117.733208332734, 14.1895515752906, 1.8)
    pt3dadd(-121.489154706927, -117.848248733855, 13.4137376005221, 1.8)
    pt3dadd(-122.109540379444, -117.963289134976, 12.6379236257536, 1.8)
    pt3dadd(-122.729926051961, -118.078329536097, 11.8621096509851, 1.8)
    pt3dadd(-123.581392963619, -118.290739800099, 11.4285962794882, 1.8)
    pt3dadd(-124.486702685729, -118.525837613684, 11.0748402546632, 1.8)
    pt3dadd(-125.392012407839, -118.76093542727, 10.7210842298382, 1.8)
    pt3dadd(-126.297322129949, -118.996033240855, 10.3673282050132, 1.8)
    pt3dadd(-127.218665641137, -119.267454199029, 10.2385024135956, 1.8)
    pt3dadd(-128.158713899493, -119.581249123367, 10.3720764283621, 1.8)
    pt3dadd(-129.09876215785, -119.895044047706, 10.5056504431287, 1.8)
    pt3dadd(-130.038810416206, -120.208838972045, 10.6392244578952, 1.8)
    pt3dadd(-130.966949813682, -120.559916336987, 10.6788735960532, 1.8)
    pt3dadd(-131.879297022057, -120.960433472706, 10.5939701487437, 1.8)
    pt3dadd(-132.791644230433, -121.360950608425, 10.5090667014343, 1.8)
    pt3dadd(-133.669962862572, -121.770106418613, 10.381582946045, 1.8)
    pt3dadd(-134.046668266313, -122.306604417896, 9.62642538926781, 1.8)
    pt3dadd(-134.423373670054, -122.843102417179, 8.87126783249058, 1.8)
    pt3dadd(-134.800079073795, -123.379600416462, 8.11611027571334, 1.8)
    pt3dadd(-135.060815301384, -123.984850452324, 7.60990290604026, 1.8)
    pt3dadd(-134.873828290943, -124.855532092167, 8.06481975554884, 1.8)
    pt3dadd(-134.686841280502, -125.72621373201, 8.51973660505742, 1.8)
    pt3dadd(-134.968509402475, -126.566023742515, 8.72505239206779, 1.8)
    pt3dadd(-135.538739680297, -127.288964742606, 8.65849762462295, 1.8)
    pt3dadd(-136.118809585181, -127.402846635436, 7.8519309380233, 1.8)
    pt3dadd(-136.698879490066, -127.516728528266, 7.04536425142365, 1.8)
    pt3dadd(-137.278949394951, -127.630610421096, 6.238797564824, 1.8)
    pt3dadd(-137.859019299836, -127.744492313926, 5.43223087822435, 1.8)
    pt3dadd(-138.590026891445, -127.76769642657, 4.81373312386414, 1.8)
    pt3dadd(-139.508755564282, -127.678124655938, 4.42913655131989, 1.8)
    pt3dadd(-140.427484237119, -127.588552885306, 4.04453997877563, 1.8)
    pt3dadd(-141.346212909957, -127.498981114675, 3.65994340623137, 1.8)
    pt3dadd(-142.179686462811, -127.5909195311, 3.20317456829715, 1.8)
    pt3dadd(-142.847557971233, -128.035428656093, 2.60621620623646, 1.8)
    pt3dadd(-143.515429479656, -128.479937781087, 2.00925784417578, 1.8)
    pt3dadd(-144.06858817945, -128.921215860571, 2.37668049301011, 1.71107112160478)
    pt3dadd(-144.577441656143, -129.361246021937, 3.11657345577235, 1.58779547893391)
    pt3dadd(-145.086295132836, -129.801276183304, 3.8564664185346, 1.46451983626303)
    pt3dadd(-145.595014258393, -130.22825481189, 4.4853536298674, 1.35)
    pt3dadd(-146.101976164868, -130.484528501683, 3.66236309450015, 1.35)
    pt3dadd(-146.608938071342, -130.740802191475, 2.8393725591329, 1.35)
    pt3dadd(-147.115899977817, -130.997075881267, 2.01638202376565, 1.35)
    pt3dadd(-147.622861884291, -131.253349571059, 1.1933914883984, 1.35)
    pt3dadd(-148.129823790766, -131.509623260851, 0.370400953031142, 1.35)
    pt3dadd(-148.662090378887, -131.772767328878, -0.431805916543012, 1.35)
    pt3dadd(-149.282774231915, -132.059917233485, -1.16139243428721, 1.35)
    pt3dadd(-149.903458084943, -132.347067138093, -1.89097895203141, 1.35)
    pt3dadd(-150.524141937971, -132.634217042701, -2.62056546977561, 1.35)
    pt3dadd(-151.144825790999, -132.921366947309, -3.35015198751981, 1.35)
    pt3dadd(-151.765509644027, -133.208516851917, -4.07973850526401, 1.35)
    pt3dadd(-152.364807271298, -133.456850936297, -4.83600151349805, 1.35)
    pt3dadd(-152.906246353712, -133.600172247436, -5.66443541056405, 1.35)
    pt3dadd(-153.447685436126, -133.743493558576, -6.49286930763005, 1.35)
    pt3dadd(-153.98912451854, -133.886814869715, -7.32130320469605, 1.35)
    pt3dadd(-154.530563600954, -134.030136180854, -8.14973710176205, 1.35)
    pt3dadd(-155.072002683368, -134.173457491994, -8.97817099882805, 1.35)
    pt3dadd(-155.748342921839, -134.706512458491, -9.16689377907195, 1.35)
    pt3dadd(-156.476564551385, -135.389454385042, -9.10959122048687, 1.35)
    pt3dadd(-157.370490069885, -135.633371895928, -8.96931567461193, 1.35)
    pt3dadd(-158.353237812652, -135.64195923229, -8.78456413404723, 1.35)
    pt3dadd(-159.335985555418, -135.650546568652, -8.59981259348253, 1.35)
    pt3dadd(-160.318733298185, -135.659133905014, -8.41506105291784, 1.35)
    pt3dadd(-161.15730528453, -135.820740426813, -8.80613694963528, 1.35)
    pt3dadd(-161.950703739748, -136.030291326418, -9.37763262917519, 1.35)
    pt3dadd(-162.744102194966, -136.239842226023, -9.94912830871508, 1.35)
    pt3dadd(-163.537500650183, -136.449393125628, -10.520623988255, 1.35)
    pt3dadd(-164.330899105401, -136.658944025233, -11.0921196677949, 1.35)
    pt3dadd(-165.209893738876, -136.913319786285, -11.4926164816896, 1.35)
    pt3dadd(-166.093911232655, -137.170325910302, -11.8830789291916, 1.35)
    pt3dadd(-166.977928726435, -137.42733203432, -12.2735413766937, 1.35)
    pt3dadd(-167.866291417974, -137.70973945431, -12.6105645197977, 1.35)
    pt3dadd(-168.776224367957, -138.118242980695, -12.6823063867002, 1.35)
    pt3dadd(-169.68615731794, -138.526746507079, -12.7540482536027, 1.35)
    pt3dadd(-170.615258261308, -138.88333918669, -12.7947484837442, 1.35)
    pt3dadd(-171.582243464877, -139.137333540704, -12.7740969896624, 1.35)
    pt3dadd(-172.549228668446, -139.391327894719, -12.7534454955805, 1.35)
    pt3dadd(-173.519493993363, -139.540149540505, -12.6807723596571, 1.35)
    pt3dadd(-174.497176428678, -139.451151451916, -12.4904663011531, 1.35)
    pt3dadd(-175.474858863994, -139.362153363326, -12.3001602426491, 1.35)
    pt3dadd(-176.452541299309, -139.273155274737, -12.1098541841451, 1.35)
    pt3dadd(-177.425273033649, -139.260473862714, -11.9466687906798, 1.35)
    pt3dadd(-178.377701514525, -139.560773750807, -11.8947075933614, 1.35)
    pt3dadd(-179.330129995402, -139.8610736389, -11.8427463960431, 1.35)
    pt3dadd(-180.282558476278, -140.161373526992, -11.7907851987248, 1.35)
    pt3dadd(-181.245866817021, -140.416191874728, -11.7294097996421, 1.35)
    pt3dadd(-182.225133286813, -140.604299777717, -11.6542260382721, 1.35)
    pt3dadd(-183.204399756605, -140.792407680707, -11.579042276902, 1.35)
    pt3dadd(-184.183666226397, -140.980515583696, -11.5038585155319, 1.35)
    pt3dadd(-185.135964458057, -141.192995431839, -11.6173951189156, 1.35)
    pt3dadd(-186.062642855579, -141.428628635027, -11.9102161241724, 1.35)
    pt3dadd(-186.989321253102, -141.664261838215, -12.2030371294292, 1.35)
    pt3dadd(-187.915999650625, -141.899895041404, -12.495858134686, 1.35)
    pt3dadd(-188.842678048148, -142.135528244592, -12.7886791399429, 1.35)
    pt3dadd(-189.741152493099, -142.434739186012, -13.1024345207327, 1.35)
    pt3dadd(-190.614105513455, -142.791480874159, -13.4351331714491, 1.35)
    pt3dadd(-191.487058533812, -143.148222562306, -13.7678318221655, 1.35)
    pt3dadd(-192.360011554168, -143.504964250453, -14.1005304728819, 1.35)
    pt3dadd(-193.232964574525, -143.8617059386, -14.4332291235983, 1.35)
    pt3dadd(-194.105917594881, -144.218447626747, -14.7659277743146, 1.35)
    pt3dadd(-194.995808265203, -144.63455435282, -14.7019836976541, 1.35)
    pt3dadd(-195.88894284175, -145.06203069725, -14.5620744301621, 1.35)
    pt3dadd(-196.782077418296, -145.489507041681, -14.4221651626702, 1.35)
    pt3dadd(-197.675211994842, -145.916983386111, -14.2822558951783, 1.35)
    pt3dadd(-198.486513939365, -146.444416572224, -14.0631870863247, 1.35)
    pt3dadd(-199.242157567092, -147.039835223582, -13.7902780584585, 1.35)
    pt3dadd(-199.997801194818, -147.63525387494, -13.5173690305923, 1.35)
    pt3dadd(-200.753444822545, -148.230672526298, -13.244460002726, 1.35)
    pt3dadd(-201.481832990425, -148.860190249958, -13.0060879596769, 1.35)
    pt3dadd(-202.066512223911, -149.669500990199, -12.9498178996097, 1.35)
    pt3dadd(-202.651191457397, -150.478811730441, -12.8935478395425, 1.35)
    pt3dadd(-203.235870690883, -151.288122470682, -12.8372777794753, 1.35)
    pt3dadd(-203.833056075992, -152.082043661648, -12.7802695668434, 1.35)
    pt3dadd(-204.741756669018, -152.492627213129, -12.7048747428404, 1.35)
    pt3dadd(-205.650457262045, -152.90321076461, -12.6294799188374, 1.35)
    pt3dadd(-206.559157855072, -153.313794316091, -12.5540850948343, 1.35)
    pt3dadd(-207.441980229447, -153.768388634961, -12.4645048224767, 1.35)
    pt3dadd(-208.270020234885, -154.316150653227, -12.3448949535792, 1.35)
    pt3dadd(-209.098060240324, -154.863912671493, -12.2252850846817, 1.35)
    pt3dadd(-209.609493914601, -155.57229888817, -11.852872800803, 1.35)
    pt3dadd(-209.957691909356, -156.363499621156, -11.3501208176425, 1.35)
    pt3dadd(-210.548332783977, -156.915784897026, -10.9770796619833, 1.35)
    pt3dadd(-211.517143471963, -157.095402541336, -10.8063654191825, 1.35)
    pt3dadd(-212.482355572086, -157.278352246715, -10.6223192016784, 1.35)
    pt3dadd(-213.4293424258, -157.478177358864, -10.3707524641175, 1.35)
    pt3dadd(-214.376329279514, -157.678002471013, -10.1191857265566, 1.35)
    pt3dadd(-215.323316133228, -157.877827583163, -9.86761898899565, 1.35)
    pt3dadd(-216.238360092436, -158.163309819081, -9.73870706220039, 1.35)
    pt3dadd(-217.065258744905, -158.685159909745, -9.94825682101168, 1.35)
    pt3dadd(-217.892157397375, -159.20701000041, -10.157806579823, 1.35)
    pt3dadd(-218.719056049844, -159.728860091074, -10.3673563386343, 1.35)
    pt3dadd(-219.543644572403, -160.25240930858, -10.5561499668483, 1.35)
    pt3dadd(-220.314000316648, -160.815847351786, -10.2576711589296, 1.35)
    pt3dadd(-221.084356060893, -161.379285394993, -9.95919235101086, 1.35)
    pt3dadd(-221.854711805138, -161.942723438199, -9.66071354309212, 1.35)
    pt3dadd(-222.625067549383, -162.506161481405, -9.36223473517338, 1.35)
    pt3dadd(-223.314393535013, -163.207329147912, -9.23413454155612, 1.35)
    pt3dadd(-223.978794768451, -163.950862443897, -9.1584428064199, 1.35)
    pt3dadd(-224.643196001889, -164.694395739881, -9.08275107128367, 1.35)
    pt3dadd(-225.307597235328, -165.437929035866, -9.00705933614745, 1.35)
    pt3dadd(-226.140198978199, -165.961134162993, -8.88495108540781, 1.35)
    pt3dadd(-227.011385723341, -166.433796263083, -8.75219493968837, 1.35)
    pt3dadd(-227.844976250233, -166.867994141932, -8.89086766468928, 1.35)
    pt3dadd(-228.630756078461, -167.253277492228, -9.37471350949304, 1.35)
    pt3dadd(-229.416535906689, -167.638560842524, -9.85855935429679, 1.35)
    pt3dadd(-230.189078040827, -167.961112556689, -9.7055739832349, 1.35)
    pt3dadd(-230.952710227238, -168.241441237522, -9.12395407764321, 1.35)
    pt3dadd(-231.716342413648, -168.521769918356, -8.54233417205151, 1.35)
    pt3dadd(-232.479974600058, -168.802098599189, -7.96071426645983, 1.35)
    pt3dadd(-233.243606786468, -169.082427280023, -7.37909436086814, 1.35)
    pt3dadd(-234.073448833345, -169.484039673658, -7.44154394372953, 1.35)
    pt3dadd(-234.925594297342, -169.926507631972, -7.72095441964917, 1.35)
    pt3dadd(-235.77773976134, -170.368975590287, -8.00036489556882, 1.35)
    pt3dadd(-236.629885225337, -170.811443548601, -8.27977537148847, 1.35)
    pt3dadd(-237.482030689335, -171.253911506915, -8.55918584740811, 1.35)
    pt3dadd(-238.308909385674, -171.758375273349, -8.79642707999053, 1.35)
    pt3dadd(-239.113571050024, -172.317351863538, -8.99658895834582, 1.35)
    pt3dadd(-239.918232714374, -172.876328453726, -9.19675083670112, 1.35)
    pt3dadd(-240.722894378724, -173.435305043914, -9.3969127150564, 1.35)
    pt3dadd(-241.523557620088, -173.998949983792, -9.587022192889, 1.35)
    pt3dadd(-242.177305322934, -174.734125827455, -9.40777259060646, 1.35)
    pt3dadd(-242.83105302578, -175.469301671118, -9.22852298832392, 1.35)
    pt3dadd(-243.484800728626, -176.20447751478, -9.04927338604139, 1.35)
    pt3dadd(-244.138548431472, -176.939653358443, -8.87002378375886, 1.35)
    pt3dadd(-244.804093329981, -177.646112166187, -8.73834143218812, 1.35)
    pt3dadd(-245.618180458366, -177.990985672418, -9.20559341142166, 1.35)
    pt3dadd(-246.432267586751, -178.335859178649, -9.6728453906552, 1.35)
    pt3dadd(-247.246354715136, -178.68073268488, -10.1400973698887, 1.35)
    pt3dadd(-248.060441843521, -179.025606191111, -10.6073493491223, 1.35)
    pt3dadd(-248.874528971906, -179.370479697342, -11.0746013283558, 1.35)
    pt3dadd(-249.643783178898, -179.716830107338, -11.3155759215879, 1.35)
    pt3dadd(-250.219074622516, -180.069570115123, -10.5775960832395, 1.35)
    pt3dadd(-250.794366066133, -180.422310122907, -9.83961624489103, 1.35)
    pt3dadd(-251.36965750975, -180.775050130692, -9.10163640654257, 1.35)
    pt3dadd(-251.944948953367, -181.127790138476, -8.36365656819412, 1.35)
    pt3dadd(-252.8512664947, -181.160828051244, -8.07417768266812, 1.35)
    pt3dadd(-253.832696034251, -181.121323456467, -7.8864666124342, 1.35)
    pt3dadd(-254.814125573802, -181.08181886169, -7.69875554220026, 1.35)
    pt3dadd(-255.795555113353, -181.042314266913, -7.51104447196634, 1.35)
    pt3dadd(-256.75760796935, -180.861086340696, -7.31753334260105, 1.35)
    pt3dadd(-257.715723784588, -180.651062437557, -7.12284373142049, 1.35)
    pt3dadd(-258.673839599825, -180.441038534417, -6.92815412023993, 1.35)
    pt3dadd(-259.631955415063, -180.231014631277, -6.73346450905938, 1.35)
    pt3dadd(-260.5900712303, -180.020990728137, -6.53877489787883, 1.35)
    pt3dadd(-261.545676523019, -179.736628063356, -6.46887461267572, 1.35)
    pt3dadd(-262.501154493041, -179.448495262466, -6.4053030950419, 1.35)
    pt3dadd(-263.052518121429, -179.64178826532, -5.80224473369141, 1.35)
    pt3dadd(-263.430158102106, -180.042040136277, -4.9672677970099, 1.35)
    pt3dadd(-263.807798082783, -180.442292007233, -4.13229086032839, 1.35)
    pt3dadd(-264.18543806346, -180.84254387819, -3.29731392364688, 1.35)
    pt3dadd(-264.918471079734, -181.30407083268, -2.82094205146646, 1.35)
    pt3dadd(-265.682728587492, -181.770981357281, -2.37607687655075, 1.35)
    pt3dadd(-266.511834052487, -182.190330997258, -2.16618179269282, 1.35)
  }
}
proc shape3d_5() {
  adendMML[3] {
    pt3dadd(-267.43837620912, -182.538218474869, -2.30933882152464, 1.35)
    pt3dadd(-268.364918365752, -182.886105952481, -2.45249585035644, 1.35)
    pt3dadd(-269.291460522385, -183.233993430093, -2.59565287918825, 1.35)
    pt3dadd(-269.97372337772, -183.575863150274, -2.36782043302782, 1.35)
    pt3dadd(-270.2032617398, -183.906580119612, -1.4524306654833, 1.35)
    pt3dadd(-270.432800101879, -184.237297088951, -0.537040897938794, 1.35)
    pt3dadd(-270.662338463959, -184.56801405829, 0.378348869605712, 1.35)
    pt3dadd(-270.891876826038, -184.898731027629, 1.29373863715022, 1.35)
    pt3dadd(-271.472922362247, -185.54363660172, 1.7393965051225, 1.35)
    pt3dadd(-272.091959726184, -186.222500513576, 2.13428450345816, 1.35)
    pt3dadd(-272.710997090121, -186.901364425432, 2.52917250179381, 1.35)
    pt3dadd(-273.330034454058, -187.580228337288, 2.92406050012947, 1.35)
    pt3dadd(-274.041849053411, -188.203522204869, 2.98309316372037, 1.35)
    pt3dadd(-274.829185359912, -188.781581434975, 2.76873582898725, 1.35)
    pt3dadd(-275.616521666414, -189.359640665081, 2.55437849425411, 1.35)
    pt3dadd(-276.182456177001, -189.746874247752, 3.13165536016615, 1.35)
    pt3dadd(-276.687291513438, -190.081446606891, 3.92739565673635, 1.35)
    pt3dadd(-277.192126849874, -190.416018966029, 4.72313595330654, 1.35)
    pt3dadd(-277.696962186311, -190.750591325167, 5.51887624987673, 1.35)
    pt3dadd(-278.207480843607, -191.11950298382, 6.29261447032555, 1.35)
    pt3dadd(-278.733431587187, -191.581657140338, 7.00660981410614, 1.35)
    pt3dadd(-279.259382330767, -192.043811296857, 7.72060515788672, 1.35)
    pt3dadd(-279.785333074347, -192.505965453376, 8.4346005016673, 1.35)
    pt3dadd(-280.242823406141, -192.941437986866, 9.20865877917191, 1.35)
    pt3dadd(-280.685870688315, -193.371281515282, 9.9953884956795, 1.35)
    pt3dadd(-281.12891797049, -193.801125043699, 10.7821182121871, 1.35)
    pt3dadd(-282.043604228713, -193.987665222385, 10.8014823433059, 1.35)
    pt3dadd(-283.027737820086, -194.138379759758, 10.7078543423861, 1.35)
    pt3dadd(-284.011871411459, -194.289094297132, 10.6142263414663, 1.35)
    pt3dadd(-284.937445899239, -194.525336640885, 10.5184154694222, 1.35)
    pt3dadd(-285.436331909137, -195.384773796076, 10.4066991975289, 1.35)
    pt3dadd(-285.935217919034, -196.244210951267, 10.2949829256356, 1.35)
    pt3dadd(-286.321865802354, -197.087720096246, 10.3534203834703, 1.35)
    pt3dadd(-286.344492133821, -197.87956997737, 10.9637168809926, 1.35)
    pt3dadd(-286.367118465288, -198.671419858494, 11.5740133785149, 1.35)
    pt3dadd(-286.389744796755, -199.463269739618, 12.1843098760372, 1.35)
  }
  adendIML[5] {pt3dclear()
    pt3dadd(-58.7423405978512, -50.7127873575529, 2.33851710240075, 2.08798759623395)
    pt3dadd(-58.9381044056885, -51.6953686421655, 2.13942277472711, 2.08798759623395)
    pt3dadd(-59.1998109325302, -52.6432275609232, 1.95756248785885, 1.96444790569138)
    pt3dadd(-59.461517459372, -53.591086479681, 1.77570220099059, 1.8409082151488)
    pt3dadd(-59.5455959672472, -54.4719981400194, 2.07021695372258, 1.8)
    pt3dadd(-59.5417364928741, -55.3197663421538, 2.60056983615777, 1.8)
    pt3dadd(-59.5378770185011, -56.1675345442883, 3.13092271859296, 1.8)
    pt3dadd(-59.6024786369441, -57.0473248213086, 3.51492775883852, 1.8)
    pt3dadd(-59.854662536263, -58.0148550627145, 3.49794209166205, 1.8)
    pt3dadd(-60.1068464355819, -58.9823853041203, 3.48095642448559, 1.8)
    pt3dadd(-60.4434593524381, -59.9118242623641, 3.38603148572314, 1.8)
    pt3dadd(-60.8597219683029, -60.8053281910743, 3.21757922538518, 1.8)
    pt3dadd(-61.2759845841677, -61.6988321197844, 3.04912696504721, 1.8)
    pt3dadd(-61.6922472000325, -62.5923360484945, 2.88067470470924, 1.8)
    pt3dadd(-62.0008281026749, -63.5403472672112, 2.85079463618441, 1.8)
    pt3dadd(-62.2929555974943, -64.4966870186468, 2.84208793792444, 1.8)
    pt3dadd(-62.5850830923138, -65.4530267700824, 2.83338123966448, 1.8)
    pt3dadd(-62.8772105871333, -66.409366521518, 2.82467454140451, 1.8)
    pt3dadd(-63.1586092465508, -67.3688718089297, 2.81373345684781, 1.8)
    pt3dadd(-63.4363230449614, -68.3294643122083, 2.80202496346897, 1.8)
    pt3dadd(-63.7140368433721, -69.290056815487, 2.79031647009012, 1.8)
    pt3dadd(-64.0254754587059, -70.2180676538908, 2.88556032793413, 1.8)
    pt3dadd(-64.4178534358334, -71.0678826886779, 3.23748919818382, 1.8)
    pt3dadd(-64.8102314129609, -71.9176977234649, 3.5894180684335, 1.8)
    pt3dadd(-65.2026093900885, -72.7675127582519, 3.94134693868319, 1.8)
    pt3dadd(-65.594987367216, -73.617327793039, 4.29327580893287, 1.8)
    pt3dadd(-66.0024706982897, -74.498101032907, 4.46534925791327, 1.8)
    pt3dadd(-66.4228306026578, -75.4052646240511, 4.48410478249366, 1.8)
    pt3dadd(-66.8431905070258, -76.3124282151952, 4.50286030707406, 1.8)
    pt3dadd(-67.2931264854527, -77.196396813428, 4.4200835630151, 1.8)
    pt3dadd(-67.7665414002689, -78.0619520900676, 4.25670553049265, 1.8)
    pt3dadd(-68.2399563150851, -78.9275073667073, 4.0933274979702, 1.8)
    pt3dadd(-68.7133712299013, -79.7930626433469, 3.92994946544776, 1.8)
    pt3dadd(-69.2038015002833, -80.5739393944021, 4.13965714042195, 1.8)
    pt3dadd(-69.7064993297999, -81.2937654776636, 4.61834837917162, 1.8)
    pt3dadd(-70.2091971593165, -82.0135915609251, 5.09703961792129, 1.8)
    pt3dadd(-70.7118949888331, -82.7334176441867, 5.57573085667096, 1.8)
    pt3dadd(-71.2145928183496, -83.4532437274482, 6.05442209542063, 1.8)
    pt3dadd(-71.7076695877759, -84.1964497462238, 5.89631105951337, 1.8)
    pt3dadd(-72.1964938505708, -84.9499896918099, 5.45673354586069, 1.8)
    pt3dadd(-72.6853181133658, -85.703529637396, 5.01715603220801, 1.8)
    pt3dadd(-73.1741423761608, -86.4570695829821, 4.57757851855533, 1.8)
    pt3dadd(-73.6748836335605, -87.2212842509306, 4.17194547242223, 1.8)
    pt3dadd(-74.1815145926105, -87.9907746559254, 3.78308870193587, 1.8)
    pt3dadd(-74.6881455516605, -88.7602650609201, 3.39423193144951, 1.8)
    pt3dadd(-75.0144827709562, -89.5926036310902, 3.42334004031663, 1.8)
    pt3dadd(-75.1701587976282, -90.4844325797817, 3.84808243400411, 1.8)
    pt3dadd(-75.3258348243003, -91.3762615284733, 4.27282482769158, 1.8)
    pt3dadd(-75.4937477951551, -92.2658365915244, 4.64853359430656, 1.8)
    pt3dadd(-75.8496024900585, -93.1207952383579, 4.27115692793751, 1.8)
    pt3dadd(-76.2054571849619, -93.9757538851914, 3.89378026156847, 1.8)
    pt3dadd(-76.5613118798653, -94.830712532025, 3.51640359519943, 1.8)
    pt3dadd(-76.9171665747687, -95.6856711788585, 3.13902692883038, 1.8)
    pt3dadd(-77.273021269672, -96.540629825692, 2.76165026246134, 1.8)
    pt3dadd(-77.4262442161721, -97.4276008591723, 3.16077926110411, 1.8)
    pt3dadd(-77.5698856632738, -98.3160856073879, 3.59662554921824, 1.8)
    pt3dadd(-77.7135271103754, -99.2045703556034, 4.03247183733236, 1.8)
    pt3dadd(-77.8571685574771, -100.093055103819, 4.46831812544649, 1.8)
    pt3dadd(-78.0050160973846, -100.992683411422, 4.84918460357153, 1.8)
    pt3dadd(-78.1844304214861, -101.975944285062, 4.81742685369375, 1.8)
    pt3dadd(-78.3638447455875, -102.959205158701, 4.78566910381596, 1.8)
    pt3dadd(-78.543259069689, -103.94246603234, 4.75391135393818, 1.8)
    pt3dadd(-78.8446211895634, -104.879582291102, 4.61900882923881, 1.8)
    pt3dadd(-79.2024373767616, -105.795336530333, 4.43635683908198, 1.8)
    pt3dadd(-79.5602535639598, -106.711090769565, 4.25370484892516, 1.8)
    pt3dadd(-79.918069751158, -107.626845008797, 4.07105285876833, 1.8)
    pt3dadd(-80.3088766415727, -108.534574316471, 3.96468987734522, 1.8)
    pt3dadd(-80.7563858134645, -109.428510892143, 3.98944749733652, 1.8)
    pt3dadd(-81.2038949853563, -110.322447467816, 4.01420511732782, 1.8)
    pt3dadd(-81.6514041572481, -111.216384043488, 4.03896273731912, 1.8)
    pt3dadd(-81.9561491821946, -112.06422981328, 4.32963809321781, 1.8)
    pt3dadd(-82.1019303341522, -112.860754763603, 4.91640538886996, 1.8)
    pt3dadd(-82.2477114861099, -113.657279713926, 5.50317268452211, 1.8)
    pt3dadd(-82.3934926380675, -114.453804664249, 6.08993998017426, 1.8)
    pt3dadd(-82.6386734116586, -115.253236593228, 6.31501004590047, 1.8)
    pt3dadd(-83.0605511283369, -116.057836089587, 5.89711192119764, 1.8)
    pt3dadd(-83.4824288450151, -116.862435585945, 5.47921379649481, 1.8)
  }
  adendMML[4] {pt3dclear()
    pt3dadd(-83.4824288450151, -116.862435585945, 5.47921379649481, 1.8)
    pt3dadd(-83.9043065616934, -117.667035082303, 5.06131567179198, 1.8)
    pt3dadd(-84.3261842783717, -118.471634578662, 4.64341754708915, 1.8)
    pt3dadd(-84.7480619950499, -119.27623407502, 4.22551942238632, 1.8)
    pt3dadd(-84.9829829548652, -120.237480742239, 4.20086741385682, 1.8)
    pt3dadd(-85.200259521089, -121.213511279182, 4.21332874302351, 1.8)
    pt3dadd(-85.4175360873128, -122.189541816125, 4.2257900721902, 1.8)
    pt3dadd(-85.6348126535366, -123.165572353068, 4.2382514013569, 1.8)
    pt3dadd(-85.9388948617288, -124.096792136101, 4.35964946076336, 1.8)
    pt3dadd(-86.3468751022582, -124.974377742216, 4.61143434370435, 1.8)
    pt3dadd(-86.7548553427875, -125.85196334833, 4.86321922664534, 1.8)
    pt3dadd(-87.1628355833169, -126.729548954445, 5.11500410958633, 1.8)
    pt3dadd(-87.5708158238462, -127.60713456056, 5.36678899252732, 1.8)
    pt3dadd(-87.9153976152044, -128.537393808749, 5.42111057786118, 1.8)
    pt3dadd(-88.242075097792, -129.482528580932, 5.41966670051512, 1.8)
    pt3dadd(-88.5687525803796, -130.427663353114, 5.41822282316906, 1.8)
    pt3dadd(-88.8954300629672, -131.372798125297, 5.41677894582299, 1.8)
    pt3dadd(-89.2901550440712, -132.290732910993, 5.42998176941217, 1.8)
    pt3dadd(-89.7021038729078, -133.201782970053, 5.44689189381616, 1.8)
    pt3dadd(-90.1140527017444, -134.112833029113, 5.46380201822014, 1.8)
    pt3dadd(-90.5533343440305, -135.006091965074, 5.48705331292046, 1.8)
    pt3dadd(-91.2050620181163, -135.761068264651, 5.55959175725549, 1.8)
    pt3dadd(-91.8567896922021, -136.516044564229, 5.63213020159051, 1.8)
    pt3dadd(-92.5082160681009, -137.271020038309, 5.70503722024392, 1.8)
    pt3dadd(-92.707250461888, -138.024756046268, 6.33134971444787, 1.8)
    pt3dadd(-92.9062848556752, -138.778492054226, 6.95766220865181, 1.8)
    pt3dadd(-93.3254405825095, -139.565397094742, 7.25577962719153, 1.8)
    pt3dadd(-93.9072599067339, -140.376813136, 7.3113699316426, 1.8)
  }
  adendMML[5] {pt3dclear()
    pt3dadd(-93.9072599067339, -140.376813136, 7.3113699316426, 1.8)
    pt3dadd(-94.338401680368, -141.081192573152, 6.95244048124225, 1.8)
    pt3dadd(-94.6311923548186, -141.687291730509, 6.21290181936868, 1.8)
    pt3dadd(-94.9239830292693, -142.293390887866, 5.47336315749511, 1.8)
    pt3dadd(-95.2167737037199, -142.899490045223, 4.73382449562154, 1.8)
    pt3dadd(-95.5095643781706, -143.50558920258, 3.99428583374798, 1.8)
    pt3dadd(-95.785286631337, -144.148558683162, 3.42405600437418, 1.8)
    pt3dadd(-95.9566232900685, -145.017016540362, 3.88927068561406, 1.8)
    pt3dadd(-96.1279599488001, -145.885474397563, 4.35448536685396, 1.8)
    pt3dadd(-96.213920505059, -146.74907737379, 4.84554401333142, 1.8)
    pt3dadd(-96.2393079882953, -147.609235884279, 5.35493856819767, 1.8)
    pt3dadd(-96.2646954715316, -148.469394394769, 5.86433312306391, 1.8)
    pt3dadd(-96.5758319633423, -148.992671069001, 5.19256248531897, 1.8)
    pt3dadd(-96.9189700066143, -149.47821973335, 4.38851100823067, 1.8)
    pt3dadd(-97.2621080498864, -149.9637683977, 3.58445953114238, 1.8)
    pt3dadd(-97.6052460931585, -150.449317062049, 2.78040805405408, 1.8)
    pt3dadd(-97.9483841364305, -150.934865726399, 1.97635657696578, 1.8)
    pt3dadd(-98.2915221797026, -151.420414390748, 1.17230509987748, 1.8)
    pt3dadd(-98.6100933070589, -152.128973941596, 0.744702913632365, 1.8)
    pt3dadd(-98.9013395065544, -153.085580760837, 0.735812207117651, 1.8)
    pt3dadd(-99.1925857060499, -154.042187580077, 0.726921500602937, 1.8)
    pt3dadd(-99.4838319055453, -154.998794399317, 0.718030794088224, 1.8)
    pt3dadd(-99.8121832764805, -155.934029600549, 0.64324967140985, 1.8)
    pt3dadd(-100.212209891117, -156.827981717251, 0.441189480805068, 1.8)
    pt3dadd(-100.612236505753, -157.721933833953, 0.239129290200284, 1.8)
    pt3dadd(-101.012263120389, -158.615885950654, 0.0370690995955005, 1.8)
    pt3dadd(-101.182910476186, -159.362108092015, 0.542319093410015, 1.8)
    pt3dadd(-101.290197322571, -160.067523376904, 1.24294653252218, 1.8)
    pt3dadd(-101.397484168957, -160.772938661794, 1.94357397163434, 1.8)
    pt3dadd(-101.504771015343, -161.478353946683, 2.6442014107465, 1.8)
    pt3dadd(-101.612057861728, -162.183769231573, 3.34482884985866, 1.8)
    pt3dadd(-101.874749250149, -162.978358155828, 3.43294670503626, 1.8)
    pt3dadd(-102.248806158313, -163.836850416275, 3.08212984653573, 1.8)
    pt3dadd(-102.622863066476, -164.695342676722, 2.7313129880352, 1.8)
    pt3dadd(-102.996919974639, -165.553834937168, 2.38049612953468, 1.8)
    pt3dadd(-103.350324033806, -166.441691391844, 2.16233524070621, 1.8)
    pt3dadd(-103.660837313608, -167.39052990164, 2.21966747767013, 1.8)
    pt3dadd(-103.971350593409, -168.339368411436, 2.27699971463404, 1.8)
    pt3dadd(-104.281611630623, -169.288355235742, 2.33184787882834, 1.8)
    pt3dadd(-104.585672683708, -170.240987549165, 2.32563889999046, 1.8)
    pt3dadd(-104.889733736792, -171.193619862589, 2.31942992115258, 1.8)
    pt3dadd(-105.193794789877, -172.146252176013, 2.31322094231469, 1.8)
    pt3dadd(-105.465749419415, -173.096018145639, 2.42166354317279, 1.8)
    pt3dadd(-105.710030899491, -174.043313557925, 2.62892656532823, 1.8)
    pt3dadd(-105.954312379567, -174.990608970212, 2.83618958748368, 1.8)
    pt3dadd(-106.198593859643, -175.937904382498, 3.04345260963912, 1.8)
    pt3dadd(-106.444153880696, -176.891779804556, 3.18086940772094, 1.8)
    pt3dadd(-106.692554488914, -177.860274305415, 3.16310597216268, 1.8)
    pt3dadd(-106.940955097132, -178.828768806274, 3.14534253660443, 1.8)
    pt3dadd(-107.189355705349, -179.797263307133, 3.12757910104617, 1.8)
    pt3dadd(-107.501691949509, -180.692004535098, 2.93904869010446, 1.8)
    pt3dadd(-107.923660324296, -181.460279069975, 2.45769961745599, 1.8)
    pt3dadd(-108.345628699083, -182.228553604852, 1.97635054480752, 1.8)
    pt3dadd(-108.76759707387, -182.996828139729, 1.49500147215906, 1.8)
    pt3dadd(-109.189565448657, -183.765102674605, 1.01365239951059, 1.8)
    pt3dadd(-109.52622181088, -184.600908743837, 0.667700667152082, 1.8)
    pt3dadd(-109.669446851409, -185.589831748818, 0.628740713550634, 1.8)
    pt3dadd(-109.812671891937, -186.578754753799, 0.589780759949184, 1.8)
    pt3dadd(-109.955896932466, -187.567677758781, 0.550820806347738, 1.8)
    pt3dadd(-109.985802947915, -188.48170881953, 0.865613552374664, 1.8)
    pt3dadd(-109.964760829202, -189.362068527922, 1.33945320149783, 1.8)
    pt3dadd(-109.943718710488, -190.242428236313, 1.81329285062099, 1.8)
    pt3dadd(-109.978189939747, -191.081410869047, 2.02148376815354, 1.8)
    pt3dadd(-110.197975465337, -191.782268817542, 1.34288782153091, 1.8)
    pt3dadd(-110.417760990927, -192.483126766037, 0.664291874908286, 1.8)
    pt3dadd(-110.637546516518, -193.183984714532, -0.0143040717143412, 1.8)
    pt3dadd(-110.857332042108, -193.884842663027, -0.692900018336964, 1.8)
    pt3dadd(-111.077117567698, -194.585700611521, -1.37149596495959, 1.8)
    pt3dadd(-111.09440561802, -195.322882877708, -1.24435078861906, 1.8)
    pt3dadd(-110.982824483522, -196.083181902283, -0.604432791017538, 1.8)
    pt3dadd(-110.871243349024, -196.843480926858, 0.0354852065839772, 1.8)
    pt3dadd(-110.759662214526, -197.603779951433, 0.675403204185495, 1.8)
    pt3dadd(-110.648081080028, -198.364078976008, 1.31532120178701, 1.8)
    pt3dadd(-110.53649994553, -199.124378000583, 1.95523919938853, 1.8)
    pt3dadd(-110.46556803621, -199.923220080881, 1.99365232048264, 1.8)
    pt3dadd(-110.434215883695, -200.759591161188, 1.44638596982723, 1.8)
    pt3dadd(-110.402863731179, -201.595962241494, 0.899119619171819, 1.8)
    pt3dadd(-110.371511578664, -202.432333321801, 0.351853268516409, 1.8)
    pt3dadd(-110.348832301809, -203.379076314718, 0.107632604873088, 1.8)
    pt3dadd(-110.329778985775, -204.371963660052, -0.00989054444084236, 1.8)
    pt3dadd(-110.310725669741, -205.364851005385, -0.127413693754774, 1.8)
    pt3dadd(-110.291672353707, -206.357738350719, -0.244936843068702, 1.8)
    pt3dadd(-110.272619037673, -207.350625696052, -0.362459992382631, 1.8)
    pt3dadd(-110.262234960738, -208.307749983448, -0.559577681149639, 1.8)
    pt3dadd(-110.302528328785, -209.05581550797, -1.22197817595092, 1.8)
    pt3dadd(-110.342821696832, -209.803881032492, -1.8843786707522, 1.8)
    pt3dadd(-110.38311506488, -210.551946557015, -2.54677916555347, 1.8)
    pt3dadd(-110.423408432927, -211.300012081537, -3.20917966035475, 1.8)
    pt3dadd(-110.463701800974, -212.048077606059, -3.87158015515604, 1.8)
    pt3dadd(-110.501873069917, -212.796472266795, -4.51899758821192, 1.8)
    pt3dadd(-110.361284717877, -213.572592430418, -3.90428431611889, 1.8)
    pt3dadd(-110.220696365837, -214.348712594042, -3.28957104402586, 1.8)
    pt3dadd(-110.080108013797, -215.124832757666, -2.67485777193283, 1.8)
    pt3dadd(-109.939519661756, -215.900952921289, -2.0601444998398, 1.8)
    pt3dadd(-109.798931309716, -216.677073084913, -1.44543122774677, 1.8)
    pt3dadd(-109.704916855347, -217.583664725863, -1.1142375375492, 1.8)
    pt3dadd(-109.638761822108, -218.568301366569, -0.952638659591462, 1.8)
    pt3dadd(-109.572606788869, -219.552938007274, -0.791039781633728, 1.8)
    pt3dadd(-109.622576895508, -220.396153544714, -1.06937789327131, 1.8)
    pt3dadd(-109.779459506462, -221.109167436506, -1.75275117083791, 1.8)
    pt3dadd(-109.936342117417, -221.822181328298, -2.4361244484045, 1.8)
    pt3dadd(-110.093224728371, -222.53519522009, -3.1194977259711, 1.8)
    pt3dadd(-110.250107339326, -223.248209111881, -3.8028710035377, 1.8)
    pt3dadd(-110.281049347946, -224.019993451923, -3.59544321443628, 1.8)
    pt3dadd(-110.256156839398, -224.817833087406, -2.99308760595332, 1.8)
    pt3dadd(-110.23126433085, -225.615672722888, -2.39073199747037, 1.8)
    pt3dadd(-110.300449248572, -226.519980718033, -2.14580157463746, 1.8)
    pt3dadd(-110.444322834234, -227.508814622059, -2.184633283299, 1.8)
  }
}
proc shape3d_6() {
  adendMML[5] {
    pt3dadd(-110.588196419896, -228.497648526085, -2.22346499196054, 1.8)
    pt3dadd(-110.732070005557, -229.486482430111, -2.26229670062208, 1.8)
    pt3dadd(-110.85968415181, -230.422840303511, -1.94563856152273, 1.8)
    pt3dadd(-110.98645936088, -231.35649057475, -1.61063823707514, 1.8)
    pt3dadd(-111.113234569951, -232.29014084599, -1.27563791262756, 1.8)
    pt3dadd(-111.240009779021, -233.223791117229, -0.940637588179978, 1.8)
  }
  adendOML[2] {pt3dclear()
    pt3dadd(-111.240009779021, -233.223791117229, -0.940637588179978, 1.8)
    pt3dadd(-111.483774248908, -234.040692795765, -1.1026249830105, 1.8)
    pt3dadd(-111.832883835755, -234.75246607134, -1.71213404820049, 1.8)
    pt3dadd(-112.181993422602, -235.464239346915, -2.32164311339048, 1.8)
    pt3dadd(-112.497875155622, -236.186677246099, -2.79278549098495, 1.8)
    pt3dadd(-112.558668193275, -236.990986966954, -2.20169321433847, 1.8)
    pt3dadd(-112.619461230928, -237.795296687809, -1.61060093769199, 1.8)
    pt3dadd(-112.680254268581, -238.599606408664, -1.01950866104551, 1.8)
    pt3dadd(-112.741047306234, -239.403916129519, -0.42841638439903, 1.8)
    pt3dadd(-112.801840343887, -240.208225850374, 0.162675892247451, 1.8)
    pt3dadd(-112.962788001282, -241.077854752255, 0.495549746926995, 1.8)
    pt3dadd(-113.256125719792, -242.033826255111, 0.487095835062492, 1.8)
    pt3dadd(-113.549463438303, -242.989797757968, 0.478641923197989, 1.8)
    pt3dadd(-113.842801156813, -243.945769260824, 0.470188011333486, 1.8)
    pt3dadd(-114.118886375239, -244.874568671291, 0.332885329470378, 1.8)
    pt3dadd(-114.353638527585, -245.738269928751, -0.113109698337966, 1.8)
    pt3dadd(-114.588390679931, -246.601971186212, -0.559104726146314, 1.8)
    pt3dadd(-114.823142832277, -247.465672443673, -1.00509975395466, 1.8)
    pt3dadd(-115.057894984623, -248.329373701133, -1.451094781763, 1.8)
    pt3dadd(-115.25966751227, -249.21701642037, -1.8272432363695, 1.8)
    pt3dadd(-115.310695094323, -250.214091990523, -1.88413342247835, 1.8)
    pt3dadd(-115.361722676375, -251.211167560675, -1.9410236085872, 1.8)
    pt3dadd(-115.412750258428, -252.208243130827, -1.99791379469604, 1.8)
    pt3dadd(-115.463777840481, -253.205318700979, -2.05480398080489, 1.8)
    pt3dadd(-115.580052582426, -254.182684274974, -2.23118370642141, 1.8)
    pt3dadd(-115.696764909933, -255.159917662224, -2.40836479867768, 1.8)
    pt3dadd(-115.758022874212, -256.082125987388, -2.22040230075201, 1.8)
    pt3dadd(-115.775353585248, -256.960747123084, -1.74319736955001, 1.8)
    pt3dadd(-115.792684296283, -257.83936825878, -1.26599243834801, 1.8)
    pt3dadd(-115.810015007319, -258.717989394476, -0.788787507146018, 1.8)
    pt3dadd(-115.821748368916, -259.597217852436, -0.313450688936757, 1.8)
    pt3dadd(-115.69437020101, -260.491540156159, 0.11545771550853, 1.8)
    pt3dadd(-115.566992033104, -261.385862459883, 0.544366119953814, 1.8)
    pt3dadd(-115.504504303816, -262.28682310824, 0.878708012080306, 1.8)
    pt3dadd(-115.798882285985, -263.224291409052, 0.692980285052021, 1.8)
    pt3dadd(-116.093260268155, -264.161759709864, 0.507252558023731, 1.8)
    pt3dadd(-116.383349150863, -265.100170555703, 0.323931708534505, 1.8)
    pt3dadd(-116.395171281563, -266.099731520814, 0.296763450359544, 1.8)
    pt3dadd(-116.406993412264, -267.099292485925, 0.269595192184581, 1.8)
    pt3dadd(-116.418815542964, -268.098853451036, 0.242426934009617, 1.8)
    pt3dadd(-116.293126264733, -269.077960205965, 0.260777428297357, 1.8)
    pt3dadd(-116.005406405924, -270.032965633034, 0.332762962368583, 1.8)
    pt3dadd(-115.717686547115, -270.987971060103, 0.404748496439809, 1.8)
    pt3dadd(-115.429966688306, -271.942976487172, 0.47673403051104, 1.8)
    pt3dadd(-115.319312058521, -272.912942879819, 0.647780621079341, 1.8)
    pt3dadd(-115.284224507848, -273.889294244127, 0.861104030957136, 1.8)
    pt3dadd(-115.249136957176, -274.865645608435, 1.07442744083493, 1.8)
    pt3dadd(-115.156235205743, -275.836493815273, 1.21411351317517, 1.8)
    pt3dadd(-114.870662759611, -276.789002286219, 1.10839695446182, 1.8)
    pt3dadd(-114.58509031348, -277.741510757166, 1.00268039574847, 1.8)
    pt3dadd(-114.511104656423, -278.352635487302, 0.401432886452973, 1.8)
    pt3dadd(-114.572098725563, -278.745977793195, -0.515933754495039, 1.8)
    pt3dadd(-114.633092794703, -279.139320099089, -1.43330039544305, 1.8)
    pt3dadd(-114.694086863842, -279.532662404982, -2.35066703639106, 1.8)
    pt3dadd(-114.749292724273, -279.975201224743, -3.0759762120401, 1.8)
    pt3dadd(-114.764031264815, -280.76168947068, -2.45854685217348, 1.8)
    pt3dadd(-114.778769805356, -281.548177716617, -1.84111749230686, 1.8)
    pt3dadd(-114.793508345898, -282.334665962554, -1.22368813244025, 1.8)
    pt3dadd(-114.808246886439, -283.121154208492, -0.60625877257363, 1.8)
    pt3dadd(-114.918438816428, -283.878530033996, -0.731583640167818, 1.8)
    pt3dadd(-115.096363043516, -284.615248121504, -1.3839557954238, 1.8)
    pt3dadd(-115.274287270605, -285.351966209012, -2.03632795067978, 1.8)
    pt3dadd(-115.461850190463, -286.039464705764, -2.72590254397736, 1.8)
    pt3dadd(-115.690575295114, -286.516770187925, -3.57435071752795, 1.8)
    pt3dadd(-115.919300399765, -286.994075670086, -4.42279889107854, 1.8)
    pt3dadd(-116.148025504416, -287.471381152248, -5.27124706462912, 1.8)
    pt3dadd(-116.333132067183, -288.252199710907, -5.64002434953194, 1.8)
    pt3dadd(-116.488622629164, -289.239096765635, -5.68311597871257, 1.8)
    pt3dadd(-116.644113191145, -290.225993820362, -5.72620760789321, 1.8)
    pt3dadd(-116.620214274956, -291.10129660355, -6.05238004865788, 1.8)
    pt3dadd(-116.413882384656, -291.86311182293, -6.66643600911072, 1.8)
    pt3dadd(-116.207550494357, -292.624927042309, -7.28049196956356, 1.8)
    pt3dadd(-116.001218604059, -293.386742261688, -7.8945479300164, 1.8)
    pt3dadd(-115.603946127572, -294.235624157585, -8.06004083182275, 1.8)
    pt3dadd(-115.133343841921, -295.117943589739, -8.05326525920408, 1.8)
    pt3dadd(-114.662741556271, -296.000263021893, -8.04648968658542, 1.8)
    pt3dadd(-114.207631002425, -296.867978064615, -8.09643814094178, 1.8)
    pt3dadd(-113.910565607898, -297.586700529635, -8.72507966808606, 1.8)
    pt3dadd(-113.613500213372, -298.305422994655, -9.35372119523034, 1.8)
    pt3dadd(-113.316434818846, -299.024145459675, -9.98236272237462, 1.8)
    pt3dadd(-112.656604945064, -299.263862101116, -9.36145601653405, 1.8)
    pt3dadd(-111.97382218755, -299.473271020593, -8.66148772404814, 1.8)
    pt3dadd(-111.291039430037, -299.682679940071, -7.96151943156224, 1.8)
    pt3dadd(-110.608256672523, -299.892088859548, -7.26155113907633, 1.8)
    pt3dadd(-109.962609077978, -300.034884937417, -6.52056537532123, 1.8)
    pt3dadd(-109.384749946354, -300.05608246064, -5.70470418062682, 1.8)
    pt3dadd(-108.806890814731, -300.077279983863, -4.8888429859324, 1.8)
    pt3dadd(-108.229031683107, -300.098477507086, -4.07298179123798, 1.8)
    pt3dadd(-107.651172551483, -300.119675030308, -3.25712059654355, 1.8)
    pt3dadd(-107.073313419859, -300.140872553531, -2.44125940184914, 1.8)
    pt3dadd(-106.495454288235, -300.162070076754, -1.62539820715471, 1.8)
    pt3dadd(-105.917595156611, -300.183267599977, -0.809537012460292, 1.8)
    pt3dadd(-105.327713057041, -300.223243291695, -0.156048676824592, 1.8)
    pt3dadd(-104.637844068726, -300.419384304039, -0.852905536041196, 1.8)
    pt3dadd(-103.94797508041, -300.615525316382, -1.54976239525781, 1.8)
    pt3dadd(-103.253563574177, -300.821724792925, -2.23076156059658, 1.8)
    pt3dadd(-102.419026569953, -301.338203134834, -2.42258989770806, 1.8)
    pt3dadd(-101.584489565728, -301.854681476743, -2.61441823481953, 1.8)
    pt3dadd(-101.089272771421, -302.589450216295, -2.18901467654209, 1.8)
    pt3dadd(-100.615214680197, -303.337830705382, -1.72512291147337, 1.8)
  }
  adendMML[6] {pt3dclear()
    pt3dadd(-93.9072599067339, -140.376813136, 7.3113699316426, 1.8)
    pt3dadd(-94.3409117731904, -141.02418663522, 7.76300086691303, 1.8)
    pt3dadd(-94.6385172905719, -141.520937391272, 8.57827360801619, 1.8)
    pt3dadd(-94.9361228079533, -142.017688147324, 9.39354634911934, 1.8)
    pt3dadd(-95.2337283253347, -142.514438903376, 10.2088190902225, 1.8)
    pt3dadd(-95.5313338427161, -143.011189659428, 11.0240918313257, 1.8)
    pt3dadd(-95.8289393600975, -143.50794041548, 11.8393645724288, 1.8)
    pt3dadd(-96.4070861784431, -144.033235385097, 12.1356404023441, 1.8)
    pt3dadd(-97.2281057561583, -144.583241910158, 11.9826055193941, 1.8)
    pt3dadd(-98.0491253338735, -145.133248435218, 11.829570636444, 1.8)
    pt3dadd(-98.8701449115886, -145.683254960278, 11.676535753494, 1.8)
    pt3dadd(-99.6911644893038, -146.233261485339, 11.5235008705439, 1.8)
    pt3dadd(-100.345556059996, -146.761397959838, 11.6445621500222, 1.8)
    pt3dadd(-100.551529217136, -147.230679182137, 12.5032531264132, 1.8)
    pt3dadd(-100.757502374275, -147.699960404436, 13.3619441028042, 1.8)
    pt3dadd(-100.963475531414, -148.169241626736, 14.2206350791952, 1.8)
    pt3dadd(-101.169448688553, -148.638522849035, 15.0793260555863, 1.8)
    pt3dadd(-101.375421845693, -149.107804071334, 15.9380170319773, 1.8)
    pt3dadd(-102.086921901404, -149.578989604401, 16.2455191956138, 1.8)
    pt3dadd(-102.958560055228, -150.050778374814, 16.3784187249995, 1.8)
    pt3dadd(-103.830198209052, -150.522567145226, 16.5113182543852, 1.8)
    pt3dadd(-104.489434731215, -151.104977435437, 16.2473926602852, 1.8)
    pt3dadd(-104.993886144489, -151.768001814407, 15.6942855779432, 1.8)
    pt3dadd(-105.498337557764, -152.431026193377, 15.1411784956011, 1.8)
    pt3dadd(-105.874341002723, -153.235855884456, 14.829152588369, 1.8)
    pt3dadd(-106.096427774743, -154.210608090708, 14.8060095094774, 1.8)
    pt3dadd(-106.318514546763, -155.18536029696, 14.7828664305858, 1.8)
    pt3dadd(-106.563535715309, -156.093056187976, 14.9000655258385, 1.77249052823813)
    pt3dadd(-106.903489268084, -156.723185766078, 15.598183207005, 1.63111105601069)
    pt3dadd(-107.243442820858, -157.35331534418, 16.2963008881716, 1.48973158378325)
    pt3dadd(-107.588801848677, -157.982910380684, 16.9875937503682, 1.35)
    pt3dadd(-108.392514469452, -158.567179324706, 17.1001807134668, 1.35)
    pt3dadd(-109.068528812816, -159.212577475235, 17.1846088161252, 1.35)
    pt3dadd(-109.013173442979, -160.208082542933, 17.1077619344846, 1.35)
    pt3dadd(-108.957818073143, -161.203587610631, 17.030915052844, 1.35)
    pt3dadd(-108.902462703306, -162.199092678329, 16.9540681712034, 1.35)
    pt3dadd(-109.064140035606, -162.64486863254, 17.7799828915648, 1.35)
    pt3dadd(-109.243155081618, -163.046729333913, 18.6780149566901, 1.35)
    pt3dadd(-109.42217012763, -163.448590035286, 19.5760470218154, 1.35)
    pt3dadd(-109.601185173642, -163.850450736659, 20.4740790869407, 1.35)
    pt3dadd(-109.780200219654, -164.252311438033, 21.372111152066, 1.35)
    pt3dadd(-109.959215265666, -164.654172139406, 22.2701432171912, 1.35)
    pt3dadd(-110.152887977441, -165.40330600249, 22.3844868904394, 1.35)
    pt3dadd(-110.354302826401, -166.335868557607, 22.0848885936967, 1.35)
    pt3dadd(-110.555717675361, -167.268431112725, 21.7852902969541, 1.35)
    pt3dadd(-110.797887290099, -168.059825756837, 21.9345317824913, 1.35)
    pt3dadd(-111.093552444338, -168.665920512328, 22.672929550591, 1.35)
    pt3dadd(-111.389217598577, -169.27201526782, 23.4113273186908, 1.35)
    pt3dadd(-111.561677150842, -170.048976586799, 23.9846391909381, 1.35)
    pt3dadd(-111.668942176272, -170.916352339698, 24.4705954828026, 1.35)
    pt3dadd(-111.776207201703, -171.783728092597, 24.956551774667, 1.35)
    pt3dadd(-111.990592291199, -172.30904385836, 25.75524342448, 1.35)
    pt3dadd(-112.223995343485, -172.773630719933, 26.6094577203315, 1.35)
    pt3dadd(-112.457398395771, -173.238217581507, 27.4636720161829, 1.35)
    pt3dadd(-112.690801448057, -173.70280444308, 28.3178863120344, 1.35)
    pt3dadd(-113.342850617666, -174.174891405303, 27.9260344368913, 1.35)
    pt3dadd(-114.042970849579, -174.647839566976, 27.3911029485333, 1.35)
    pt3dadd(-114.743091081492, -175.120787728648, 26.8561714601754, 1.35)
    pt3dadd(-115.407476809361, -175.598224720915, 26.4253141753034, 1.35)
    pt3dadd(-115.644624788792, -176.129329671576, 27.2387564702664, 1.35)
    pt3dadd(-115.881772768223, -176.660434622238, 28.0521987652294, 1.35)
    pt3dadd(-116.118920747654, -177.191539572899, 28.8656410601924, 1.35)
    pt3dadd(-116.356068727085, -177.722644523561, 29.6790833551554, 1.35)
    pt3dadd(-116.75189723732, -178.333199673017, 30.0709767904893, 1.35)
    pt3dadd(-117.388150172808, -179.064133600415, 29.8241614833037, 1.35)
    pt3dadd(-118.024403108296, -179.795067527813, 29.5773461761181, 1.35)
    pt3dadd(-118.689010175548, -180.517775317057, 29.4889676005112, 1.35)
    pt3dadd(-119.384379866467, -181.231558213294, 29.5724838862811, 1.35)
    pt3dadd(-120.079749557387, -181.945341109532, 29.656000172051, 1.35)
    pt3dadd(-120.606153229906, -182.483920792501, 30.0887453684269, 1.35)
    pt3dadd(-120.903581961862, -182.785073176628, 30.9947494473036, 1.35)
    pt3dadd(-121.201010693818, -183.086225560756, 31.9007535261803, 1.35)
    pt3dadd(-121.473376464243, -183.474405049947, 32.7727706717167, 1.35)
    pt3dadd(-121.70631514659, -183.999488764612, 33.5913222356764, 1.35)
    pt3dadd(-121.939253828936, -184.524572479276, 34.409873799636, 1.35)
    pt3dadd(-122.172192511283, -185.049656193941, 35.2284253635957, 1.35)
    pt3dadd(-122.639066595961, -185.725929646067, 35.5973687299945, 1.35)
    pt3dadd(-123.263633608805, -186.504118208823, 35.6632368350442, 1.35)
    pt3dadd(-123.861156264543, -187.222650243403, 35.5220987210729, 1.35)
    pt3dadd(-124.39743373128, -187.806082917738, 34.912170206254, 1.35)
    pt3dadd(-124.933711198016, -188.389515592073, 34.3022416914351, 1.35)
    pt3dadd(-125.469988664752, -188.972948266408, 33.6923131766162, 1.35)
    pt3dadd(-125.873280649015, -189.579015259464, 33.9797632911279, 1.35)
    pt3dadd(-126.214009308411, -190.195730619611, 34.6893872374714, 1.35)
    pt3dadd(-126.554737967808, -190.812445979758, 35.3990111838148, 1.35)
    pt3dadd(-126.784829171497, -191.553334030149, 35.9950752506861, 1.35)
    pt3dadd(-126.898021438776, -192.425422272444, 36.4711525640276, 1.35)
    pt3dadd(-127.011213706055, -193.29751051474, 36.947229877369, 1.35)
    pt3dadd(-127.124405973335, -194.169598757035, 37.4233071907105, 1.35)
    pt3dadd(-127.259329785506, -195.06800293197, 37.8216672936731, 1.35)
    pt3dadd(-127.442437843963, -196.024756082359, 38.0477089892697, 1.35)
    pt3dadd(-127.62554590242, -196.981509232749, 38.2737506848664, 1.35)
    pt3dadd(-128.051913853772, -197.874094124884, 38.2907407303419, 1.35)
    pt3dadd(-128.526512749388, -198.753956427815, 38.2662822724688, 1.35)
    pt3dadd(-129.001111645004, -199.633818730746, 38.2418238145956, 1.35)
    pt3dadd(-129.562242093487, -200.45913298175, 38.2860623399178, 1.35)
    pt3dadd(-130.079515287304, -200.95357848024, 38.6735747151476, 1.35)
    pt3dadd(-130.51142807276, -200.949813730529, 39.5754822339207, 1.35)
    pt3dadd(-130.943340858215, -200.946048980818, 40.4773897526939, 1.35)
    pt3dadd(-131.375253643671, -200.942284231108, 41.379297271467, 1.35)
    pt3dadd(-131.807166429127, -200.938519481397, 42.2812047902402, 1.35)
    pt3dadd(-132.404964519739, -201.249596642312, 42.3997257357198, 1.35)
    pt3dadd(-133.121926208985, -201.786840280335, 41.9555014572783, 1.35)
    pt3dadd(-133.838887898231, -202.324083918358, 41.5112771788368, 1.35)
    pt3dadd(-134.487872068701, -202.835359959444, 41.4597846610148, 1.35)
    pt3dadd(-135.002734339961, -203.295401070486, 42.1831649329209, 1.35)
    pt3dadd(-135.517596611222, -203.755442181528, 42.9065452048271, 1.35)
    pt3dadd(-136.032458882483, -204.215483292571, 43.6299254767332, 1.35)
    pt3dadd(-136.859185947115, -204.686258512148, 43.8366887148345, 1.35)
    pt3dadd(-137.73055392968, -205.158570232377, 43.9695024110218, 1.35)
    pt3dadd(-138.585303376879, -205.657256188562, 44.0411173849946, 1.35)
    pt3dadd(-139.385138735771, -206.2430928527, 43.9105080376399, 1.35)
    pt3dadd(-140.184974094664, -206.828929516839, 43.7798986902851, 1.35)
    pt3dadd(-140.984809453556, -207.414766180978, 43.6492893429303, 1.35)
    pt3dadd(-141.78192331151, -208.0056354664, 43.595155907442, 1.35)
    pt3dadd(-142.573228623815, -208.607245960856, 43.7042463088493, 1.35)
    pt3dadd(-143.364533936119, -209.208856455312, 43.8133367102565, 1.35)
    pt3dadd(-144.095627698394, -209.685552369793, 44.1537156289898, 1.35)
    pt3dadd(-144.725375882138, -209.951997254882, 44.8833897674109, 1.35)
    pt3dadd(-145.355124065883, -210.218442139972, 45.6130639058319, 1.35)
    pt3dadd(-145.984872249627, -210.484887025061, 46.342738044253, 1.35)
    pt3dadd(-146.688860661655, -210.678128900833, 46.7916098446006, 1.35)
    pt3dadd(-147.61260021099, -210.654689808299, 46.409306491312, 1.35)
    pt3dadd(-148.536339760325, -210.631250715764, 46.0270031380235, 1.35)
    pt3dadd(-148.870871373054, -211.163396611001, 46.5856602294714, 1.35)
    pt3dadd(-149.093463177828, -211.801094507443, 47.3230843145958, 1.35)
    pt3dadd(-149.316054982602, -212.438792403884, 48.0605083997202, 1.35)
    pt3dadd(-149.538646787376, -213.076490300326, 48.7979324848447, 1.35)
    pt3dadd(-149.691434637235, -213.832854937435, 49.3628053761607, 1.35)
    pt3dadd(-149.721761161274, -214.797403858811, 49.6249612080875, 1.35)
    pt3dadd(-149.752087685314, -215.761952780186, 49.8871170400144, 1.35)
    pt3dadd(-149.781117906322, -216.693807233958, 50.2456244675383, 1.35)
    pt3dadd(-149.809863063959, -217.618472014533, 50.6253200817816, 1.35)
    pt3dadd(-149.838608221596, -218.543136795109, 51.0050156960249, 1.35)
    pt3dadd(-149.875531620688, -219.479300582396, 51.2793488583742, 1.35)
    pt3dadd(-149.946451794164, -220.463265494044, 51.115692567203, 1.35)
    pt3dadd(-150.038873494869, -221.442576308231, 50.9502421859656, 1.35)
    pt3dadd(-150.353494453829, -222.373791143345, 50.7662514713981, 1.35)
    pt3dadd(-150.66811541279, -223.305005978458, 50.5822607568305, 1.35)
    pt3dadd(-150.946417389409, -224.15640502854, 50.6152708954753, 1.35)
    pt3dadd(-151.094386335839, -224.721379943102, 51.4270027088274, 1.35)
    pt3dadd(-151.242355282268, -225.286354857664, 52.2387345221795, 1.35)
    pt3dadd(-151.390324228698, -225.851329772226, 53.0504663355316, 1.35)
  }
}
proc shape3d_7() {
  adendMML[6] {
    pt3dadd(-151.538293175127, -226.416304686789, 53.8621981488837, 1.35)
    pt3dadd(-151.686262121557, -226.981279601351, 54.6739299622359, 1.35)
    pt3dadd(-152.139199821599, -227.535454132587, 55.1778725921978, 1.35)
    pt3dadd(-152.971658316715, -228.076188040749, 55.2987845207779, 1.35)
    pt3dadd(-153.804116811831, -228.61692194891, 55.4196964493581, 1.35)
    pt3dadd(-154.48909146682, -229.086313197845, 55.0991506812159, 1.35)
    pt3dadd(-155.035890672236, -229.48886455433, 54.36500966319, 1.35)
    pt3dadd(-155.582689877653, -229.891415910814, 53.6308686451641, 1.35)
    pt3dadd(-155.788643546734, -230.220790919386, 54.5124039404266, 1.35)
    pt3dadd(-155.985615426475, -230.548237621813, 55.436514721481, 1.35)
    pt3dadd(-156.182587306215, -230.875684324241, 56.3606255025353, 1.35)
    pt3dadd(-156.312811275441, -231.130212639136, 57.3115498257807, 1.35)
    pt3dadd(-156.3539646634, -231.287436287674, 58.2982550112336, 1.35)
    pt3dadd(-156.39511805136, -231.444659936212, 59.2849601966866, 1.35)
    pt3dadd(-156.436271439319, -231.60188358475, 60.2716653821396, 1.35)
  }
  adendIML[6] {pt3dclear()
    pt3dadd(-34.0863276773326, -11.6488701831235, 2.08023788885387, 2.1670176437708)
    pt3dadd(-34.2307693467326, -12.0370413986113, 1.12823032767697, 2.1670176437708)
    pt3dadd(-34.4167912753223, -12.4594621517436, 0.241124612777731, 2.09793037795905)
    pt3dadd(-34.602813203912, -12.8818829048759, -0.64598110212151, 2.0288431121473)
    pt3dadd(-34.7888351325017, -13.3043036580082, -1.53308681702075, 1.95975584633555)
    pt3dadd(-34.9748570610914, -13.7267244111406, -2.42019253191999, 1.8906685805238)
    pt3dadd(-35.1608789896811, -14.1491451642729, -3.30729824681923, 1.82158131471205)
    pt3dadd(-35.2802105298796, -14.9651427241477, -3.61849609420702, 1.8)
    pt3dadd(-35.3692455235018, -15.9599369344012, -3.66806674234499, 1.8)
    pt3dadd(-35.4582805171239, -16.9547311446547, -3.71763739048296, 1.8)
    pt3dadd(-35.5387259547208, -17.8026789292792, -4.17325492331648, 1.8)
    pt3dadd(-35.616089213565, -18.5979340099228, -4.77457370972807, 1.8)
    pt3dadd(-35.6934524724093, -19.3931890905664, -5.37589249613966, 1.8)
    pt3dadd(-35.7904381062286, -20.2102765563404, -5.91781233305859, 1.8)
    pt3dadd(-36.0183226152056, -21.1730056510807, -6.06348779670557, 1.8)
    pt3dadd(-36.2462071241826, -22.1357347458211, -6.20916326035255, 1.8)
    pt3dadd(-36.4870982926982, -23.096770995524, -6.32279585582568, 1.8)
    pt3dadd(-36.7873209691104, -24.050085120387, -6.29026089148544, 1.8)
    pt3dadd(-37.0875436455226, -25.0033992452499, -6.25772592714521, 1.8)
    pt3dadd(-37.4122578754824, -25.7643875614434, -6.66131284971567, 1.8)
    pt3dadd(-37.7533765909175, -26.3965557140354, -7.35701497622406, 1.8)
    pt3dadd(-38.0944953063526, -27.0287238666275, -8.05271710273245, 1.8)
    pt3dadd(-38.3401613904788, -27.7512213024194, -8.20052642132681, 1.8)
    pt3dadd(-38.4668193868772, -28.5863391564443, -7.66523591904123, 1.8)
    pt3dadd(-38.5934773832755, -29.4214570104693, -7.12994541675564, 1.8)
    pt3dadd(-38.7201353796739, -30.2565748644942, -6.59465491447006, 1.8)
    pt3dadd(-38.8467933760723, -31.0916927185191, -6.05936441218447, 1.8)
    pt3dadd(-38.9680173873113, -31.7621557775497, -6.77508840566762, 1.8)
    pt3dadd(-39.089161115649, -32.4301861901358, -7.50929516465622, 1.8)
    pt3dadd(-39.2103048439866, -33.0982166027218, -8.24350192364482, 1.8)
    pt3dadd(-39.3314485723242, -33.7662470153079, -8.97770868263342, 1.8)
    pt3dadd(-39.4584715675327, -34.4532629967799, -9.66814709170094, 1.8)
    pt3dadd(-39.6749779239197, -35.4292423056694, -9.69242437044882, 1.8)
    pt3dadd(-39.8914842803068, -36.4052216145591, -9.71670164919671, 1.8)
    pt3dadd(-40.1079906366938, -37.3812009234486, -9.74097892794459, 1.8)
    pt3dadd(-40.1865336596374, -38.3744337825266, -9.69980423673626, 1.8)
    pt3dadd(-40.2322201988357, -39.3717756390981, -9.64304191413855, 1.8)
    pt3dadd(-40.2779067380339, -40.3691174956695, -9.58627959154085, 1.8)
    pt3dadd(-40.3235932772322, -41.366459352241, -9.52951726894314, 1.8)
    pt3dadd(-40.3692798164305, -42.3638012088124, -9.47275494634543, 1.8)
    pt3dadd(-40.4982174326336, -43.3504820096235, -9.45370351917052, 1.8)
    pt3dadd(-40.7203042046534, -44.3252342158756, -9.47684659806209, 1.8)
    pt3dadd(-40.9423909766731, -45.2999864221277, -9.49998967695365, 1.8)
    pt3dadd(-41.1640217439225, -46.2558655379888, -9.60481865109098, 1.8)
    pt3dadd(-41.3839537098961, -47.1414347972164, -10.0139604571364, 1.8)
    pt3dadd(-41.6038856758698, -48.0270040564439, -10.4231022631819, 1.8)
    pt3dadd(-41.8238176418434, -48.9125733156714, -10.8322440692273, 1.8)
    pt3dadd(-42.0437496078171, -49.798142574899, -11.2413858752728, 1.8)
    pt3dadd(-42.1581294249799, -50.6586667691387, -10.795249918332, 1.8)
    pt3dadd(-42.265781044522, -51.5175945188858, -10.2945960962908, 1.8)
    pt3dadd(-42.3734326640641, -52.3765222686329, -9.79394227424969, 1.8)
    pt3dadd(-42.6043971684765, -53.1797279004237, -9.89235161640663, 1.8)
    pt3dadd(-42.9307693721187, -53.9398210944833, -10.4542586559016, 1.8)
    pt3dadd(-43.2571415757609, -54.6999142885429, -11.0161656953966, 1.8)
    pt3dadd(-43.5835137794031, -55.4600074826025, -11.5780727348915, 1.8)
  }
  adendIML[7] {pt3dclear()
    pt3dadd(-43.5835137794031, -55.4600074826025, -11.5780727348915, 1.8)
    pt3dadd(-43.9006498591678, -56.3758923610798, -11.6815930698132, 1.8)
    pt3dadd(-44.2158217950173, -57.324907727309, -11.6876333937944, 1.8)
    pt3dadd(-44.5309937308668, -58.2739230935382, -11.6936737177757, 1.8)
    pt3dadd(-44.8461656667163, -59.2229384597674, -11.6997140417569, 1.8)
    pt3dadd(-45.1138980602285, -60.1645873031717, -11.6504109291289, 1.8)
    pt3dadd(-45.0353039415319, -61.0524577576769, -11.197079901597, 1.8)
    pt3dadd(-44.9567098228354, -61.9403282121821, -10.7437488740651, 1.8)
    pt3dadd(-44.8781157041388, -62.8281986666872, -10.2904178465333, 1.8)
    pt3dadd(-44.7995215854423, -63.7160691211924, -9.83708681900136, 1.8)
    pt3dadd(-44.9936850603629, -64.473129046168, -10.0566957512808, 1.8)
    pt3dadd(-45.3586778127335, -65.1482617626429, -10.6977699325282, 1.8)
    pt3dadd(-45.7236705651042, -65.8233944791178, -11.3388441137756, 1.8)
    pt3dadd(-46.0886633174748, -66.4985271955928, -11.979918295023, 1.8)
    pt3dadd(-46.426537717258, -67.2496641633481, -12.4982245211482, 1.8)
    pt3dadd(-46.6978315013368, -68.1874057498797, -12.7151125097724, 1.8)
    pt3dadd(-46.9691252854156, -69.1251473364113, -12.9320004983966, 1.8)
    pt3dadd(-47.3421431438968, -70.0316066887419, -13.0329569531994, 1.8)
    pt3dadd(-47.8342608310924, -70.9014404069045, -12.9981793066911, 1.8)
    pt3dadd(-48.326378518288, -71.7712741250671, -12.9634016601829, 1.8)
    pt3dadd(-48.7519583850227, -72.6391712680229, -12.7122938851893, 1.8)
    pt3dadd(-49.1741857432286, -73.506970836624, -12.4502863152256, 1.8)
    pt3dadd(-49.5964131014345, -74.374770405225, -12.1882787452619, 1.8)
    pt3dadd(-50.0186404596404, -75.2425699738261, -11.9262711752982, 1.8)
    pt3dadd(-50.3856641545213, -75.8906894908734, -12.3843560090767, 1.8)
    pt3dadd(-50.7298839769046, -76.4480622062744, -13.1399010904616, 1.8)
    pt3dadd(-51.0741037992879, -77.0054349216755, -13.8954461718465, 1.8)
    pt3dadd(-51.4183236216711, -77.5628076370765, -14.6509912532313, 1.8)
    pt3dadd(-51.762314599776, -78.1754796227405, -15.3180356306224, 1.8)
    pt3dadd(-52.1050163044007, -79.0996991949179, -15.4864806485108, 1.8)
    pt3dadd(-52.4477180090253, -80.0239187670954, -15.6549256663992, 1.8)
    pt3dadd(-52.79041971365, -80.9481383392729, -15.8233706842877, 1.8)
    pt3dadd(-53.0474437199616, -81.8095849621217, -15.5203365521086, 1.8)
    pt3dadd(-53.2677796435803, -82.6441515543301, -15.0154101377345, 1.8)
    pt3dadd(-53.488115567199, -83.4787181465385, -14.5104837233605, 1.8)
    pt3dadd(-53.7084514908178, -84.313284738747, -14.0055573089864, 1.8)
    pt3dadd(-53.9287874144365, -85.1478513309554, -13.5006308946123, 1.8)
    pt3dadd(-54.2024197241222, -85.9548262212064, -13.8690190829295, 1.8)
    pt3dadd(-54.485664620846, -86.7568246457687, -14.3949191261693, 1.8)
    pt3dadd(-54.7689095175698, -87.558823070331, -14.9208191694091, 1.8)
    pt3dadd(-55.0432588250883, -88.3696523118734, -15.4249014239697, 1.8)
    pt3dadd(-55.1322938187104, -89.3644465221269, -15.4744720721076, 1.8)
    pt3dadd(-55.2213288123326, -90.3592407323804, -15.5240427202456, 1.8)
    pt3dadd(-55.3189381719092, -91.3458002556461, -15.5331907777919, 1.8)
    pt3dadd(-55.499083627419, -92.2530934029701, -15.1532345175749, 1.8)
    pt3dadd(-55.6792290829289, -93.1603865502941, -14.7732782573578, 1.8)
    pt3dadd(-55.8593745384387, -94.0676796976181, -14.3933219971408, 1.8)
    pt3dadd(-56.0825729899773, -94.8405298981777, -14.6148654389028, 1.8)
    pt3dadd(-56.3400355537669, -95.5063824761741, -15.3151178024278, 1.8)
    pt3dadd(-56.5974981175566, -96.1722350541704, -16.0153701659529, 1.8)
    pt3dadd(-56.8549606813462, -96.8380876321668, -16.715622529478, 1.8)
    pt3dadd(-57.1124232451359, -97.5039402101632, -17.415874893003, 1.8)
    pt3dadd(-57.3956618327864, -98.3239052458108, -17.8955365236581, 1.8)
    pt3dadd(-57.6850231337913, -99.1804774171301, -18.3228000872838, 1.8)
    pt3dadd(-57.9743844347963, -100.037049588449, -18.7500636509095, 1.8)
    pt3dadd(-58.2637457358013, -100.893621759769, -19.1773272145351, 1.8)
    pt3dadd(-58.5274216570496, -101.839180850846, -19.3184525048207, 1.8)
    pt3dadd(-58.7864188281436, -102.80094945755, -19.4074559458961, 1.8)
    pt3dadd(-59.0454159992375, -103.762718064254, -19.4964593869715, 1.8)
    pt3dadd(-59.3044131703314, -104.724486670959, -19.5854628280468, 1.8)
    pt3dadd(-59.5235660608583, -105.698276651755, -19.6316443209324, 1.8)
    pt3dadd(-59.7251494554792, -106.677367505849, -19.6589433033876, 1.8)
    pt3dadd(-59.9267328501002, -107.656458359943, -19.6862422858427, 1.8)
    pt3dadd(-60.2902352540078, -108.539791343108, -19.9382552873444, 1.8)
    pt3dadd(-60.699133137358, -109.396277728826, -20.2532689252572, 1.8)
    pt3dadd(-61.1080310207082, -110.252764114544, -20.56828256317, 1.8)
    pt3dadd(-61.5169289040584, -111.109250500262, -20.8832962010828, 1.8)
    pt3dadd(-61.7698586664248, -112.029733396592, -20.7730449719897, 1.8)
    pt3dadd(-61.9657123282522, -112.973635638176, -20.507169246353, 1.8)
    pt3dadd(-62.1615659900796, -113.917537879759, -20.2412935207163, 1.8)
    pt3dadd(-62.357419651907, -114.861440121342, -19.9754177950796, 1.8)
    pt3dadd(-62.6285597145496, -115.710210538179, -20.0291071364388, 1.8)
    pt3dadd(-63.0306258231092, -116.393542927431, -20.6385328416297, 1.8)
  }
  adendMML[7] {pt3dclear()
    pt3dadd(-63.0306258231092, -116.393542927431, -20.6385328416297, 1.8)
    pt3dadd(-63.4326919316688, -117.076875316683, -21.2479585468206, 1.8)
    pt3dadd(-63.8347580402284, -117.760207705934, -21.8573842520115, 1.8)
    pt3dadd(-64.236824148788, -118.443540095186, -22.4668099572024, 1.8)
    pt3dadd(-64.6378792666548, -119.130641927996, -23.0713516391591, 1.8)
    pt3dadd(-64.9981885207034, -119.969663293806, -23.4790529871586, 1.8)
    pt3dadd(-65.3584977747519, -120.808684659617, -23.8867543351582, 1.8)
    pt3dadd(-65.7188070288004, -121.647706025427, -24.2944556831578, 1.8)
    pt3dadd(-65.8335127290059, -122.611981732753, -24.4243004553381, 1.8)
    pt3dadd(-65.8838491043375, -123.609084886078, -24.48132282769, 1.8)
    pt3dadd(-66.1164308985901, -124.55797165293, -24.3588792675361, 1.8)
    pt3dadd(-66.4311344542405, -125.485131593349, -24.1555664126943, 1.8)
    pt3dadd(-66.7458380098909, -126.412291533768, -23.9522535578525, 1.8)
    pt3dadd(-67.060138851113, -127.335921627718, -23.7663184483836, 1.8)
    pt3dadd(-67.3570942724378, -128.107516768748, -24.3288648163248, 1.8)
    pt3dadd(-67.6540496937627, -128.879111909779, -24.8914111842661, 1.8)
    pt3dadd(-67.9510051150876, -129.650707050809, -25.4539575522074, 1.8)
    pt3dadd(-68.2479605364125, -130.42230219184, -26.0165039201487, 1.8)
    pt3dadd(-68.4933601909958, -131.333794584439, -26.2076084308106, 1.8)
    pt3dadd(-68.7154469630156, -132.308546790691, -26.2307515097022, 1.8)
    pt3dadd(-68.9375337350353, -133.283298996943, -26.2538945885937, 1.8)
    pt3dadd(-69.2319218210542, -134.229415513744, -26.2022713274291, 1.8)
    pt3dadd(-69.6228208753742, -135.137307855021, -26.0508466729561, 1.8)
    pt3dadd(-70.0137199296941, -136.045200196298, -25.899422018483, 1.8)
    pt3dadd(-70.4046189840141, -136.953092537575, -25.74799736401, 1.8)
    pt3dadd(-70.6580976042386, -137.879730888825, -25.8973269632834, 1.8)
    pt3dadd(-70.8429334454616, -138.815733045598, -26.1968860965387, 1.8)
    pt3dadd(-71.0277692866845, -139.75173520237, -26.496445229794, 1.8)
    pt3dadd(-71.2126051279074, -140.687737359143, -26.7960043630492, 1.8)
    pt3dadd(-71.5462200660991, -141.618722052487, -26.9280598102194, 1.8)
    pt3dadd(-71.8932557081366, -142.549254142664, -27.0450054912341, 1.8)
    pt3dadd(-72.2402913501741, -143.47978623284, -27.1619511722489, 1.8)
    pt3dadd(-72.5596159274917, -144.41086604658, -27.3192147904379, 1.8)
    pt3dadd(-72.8049627792366, -145.343408068426, -27.5841115624627, 1.8)
    pt3dadd(-73.0503096309815, -146.275950090273, -27.8490083344875, 1.8)
    pt3dadd(-73.2956564827264, -147.208492112119, -28.1139051065122, 1.8)
    pt3dadd(-73.5410033344713, -148.141034133966, -28.378801878537, 1.8)
    pt3dadd(-73.7474262657597, -149.114977433563, -28.4323753669451, 1.8)
    pt3dadd(-73.9490096603806, -150.094068287657, -28.4596743494002, 1.8)
    pt3dadd(-74.1505930550016, -151.073159141751, -28.4869733318554, 1.8)
    pt3dadd(-74.3923808053238, -151.724495718757, -29.1965161578182, 1.8)
    pt3dadd(-74.6351376887266, -152.367931721144, -29.9225045918806, 1.8)
    pt3dadd(-74.8778945721294, -153.011367723532, -30.648493025943, 1.8)
    pt3dadd(-75.1206514555322, -153.654803725919, -31.3744814600055, 1.8)
    pt3dadd(-75.2996768748976, -154.457142887134, -31.5060236516595, 1.8)
    pt3dadd(-75.4275912478838, -155.386918422881, -31.1608347666867, 1.8)
    pt3dadd(-75.5555056208702, -156.316693958629, -30.8156458817139, 1.8)
    pt3dadd(-75.6834199938564, -157.246469494377, -30.4704569967411, 1.8)
    pt3dadd(-76.1200391255908, -158.005786561958, -30.8974577125977, 1.8)
    pt3dadd(-76.5782793745728, -158.753165029885, -31.3785411771774, 1.8)
    pt3dadd(-77.0365196235548, -159.500543497812, -31.8596246417571, 1.8)
    pt3dadd(-77.5188019700098, -160.12745988077, -32.4464860713057, 1.75380040868604)
    pt3dadd(-78.028507128526, -160.616975227055, -33.1539995885852, 1.65490480316921)
    pt3dadd(-78.5382122870422, -161.10649057334, -33.8615131058648, 1.55600919765238)
    pt3dadd(-79.0479174455583, -161.596005919626, -34.5690266231444, 1.45711359213554)
    pt3dadd(-79.5576226040745, -162.085521265911, -35.276540140424, 1.35821798661871)
    pt3dadd(-79.6829790656144, -162.846740151286, -34.7744041083815, 1.35)
    pt3dadd(-79.7735025387383, -163.632583150921, -34.1626392182982, 1.35)
    pt3dadd(-79.8640260118622, -164.418426150556, -33.5508743282149, 1.35)
    pt3dadd(-79.954549484986, -165.204269150191, -32.9391094381316, 1.35)
    pt3dadd(-80.5137611447572, -165.92463946396, -33.2109012885205, 1.35)
    pt3dadd(-81.1170496048588, -166.638852535912, -33.565785384756, 1.35)
    pt3dadd(-81.7203380649603, -167.353065607864, -33.9206694809916, 1.35)
    pt3dadd(-82.3023847989157, -168.089130699432, -34.2342785367907, 1.35)
    pt3dadd(-82.7143336277523, -169.000180758491, -34.2173684123867, 1.35)
    pt3dadd(-83.1262824565889, -169.911230817551, -34.2004582879827, 1.35)
    pt3dadd(-83.5382312854255, -170.822280876611, -34.1835481635787, 1.35)
    pt3dadd(-84.0296436123812, -171.672078567471, -34.272279418998, 1.35)
    pt3dadd(-84.6276912493115, -172.439679206548, -34.5027751518218, 1.35)
    pt3dadd(-85.2257388862417, -173.207279845626, -34.7332708846456, 1.35)
    pt3dadd(-85.8241360376135, -173.957031040996, -35.0072791921669, 1.35)
    pt3dadd(-86.4232779288501, -174.668748922964, -35.3740034082376, 1.35)
    pt3dadd(-87.0224198200867, -175.380466804932, -35.7407276243082, 1.35)
    pt3dadd(-87.6215617113232, -176.0921846869, -36.1074518403788, 1.35)
    pt3dadd(-88.2207036025599, -176.803902568867, -36.4741760564494, 1.35)
    pt3dadd(-88.4465939769593, -177.760182174567, -36.468893879302, 1.35)
    pt3dadd(-88.634359246784, -178.741442097483, -36.4256137784915, 1.35)
    pt3dadd(-88.8221245166087, -179.722702020399, -36.3823336776809, 1.35)
    pt3dadd(-89.2223676891726, -180.407143625537, -36.9856376564973, 1.35)
    pt3dadd(-89.6254510233311, -181.087617702871, -37.5975844317973, 1.35)
    pt3dadd(-90.0285343574897, -181.768091780205, -38.2095312070973, 1.35)
    pt3dadd(-90.4316176916481, -182.448565857538, -38.8214779823973, 1.35)
    pt3dadd(-90.8057826574179, -183.254653457327, -39.1965901744551, 1.35)
    pt3dadd(-91.1522986389843, -184.180840720117, -39.3452637388966, 1.35)
    pt3dadd(-91.4988146205508, -185.107027982908, -39.4939373033381, 1.35)
    pt3dadd(-91.8453306021173, -186.033215245698, -39.6426108677796, 1.35)
    pt3dadd(-92.210751603553, -186.79388450918, -40.1344052530485, 1.35)
    pt3dadd(-92.5821484918552, -187.502233444776, -40.7346603128349, 1.35)
    pt3dadd(-92.9535453801574, -188.210582380372, -41.3349153726214, 1.35)
    pt3dadd(-93.3249422684596, -188.918931315968, -41.9351704324078, 1.35)
    pt3dadd(-93.7301099688967, -189.648078474078, -42.4355090570709, 1.35)
    pt3dadd(-94.2926272381737, -190.474131544074, -42.4703034145755, 1.35)
    pt3dadd(-94.8551445074506, -191.300184614071, -42.50509777208, 1.35)
    pt3dadd(-95.4176617767275, -192.126237684068, -42.5398921295846, 1.35)
    pt3dadd(-95.9846474088678, -192.82374474083, -42.9452426726216, 1.35)
    pt3dadd(-96.5524375806531, -193.498106774012, -43.4173127617254, 1.35)
    pt3dadd(-97.1202277524383, -194.172468807194, -43.8893828508291, 1.35)
    pt3dadd(-97.6880179242235, -194.846830840376, -44.3614529399329, 1.35)
    pt3dadd(-98.2558080960087, -195.521192873559, -44.8335230290366, 1.35)
    pt3dadd(-98.7189456495471, -196.351656719085, -44.986180863277, 1.35)
    pt3dadd(-99.1268180178125, -197.264555153685, -44.9701627700616, 1.35)
    pt3dadd(-99.5346903860779, -198.177453588285, -44.9541446768462, 1.35)
    pt3dadd(-99.9425627543434, -199.090352022886, -44.9381265836307, 1.35)
    pt3dadd(-100.473769177878, -199.835212580635, -45.2234485134489, 1.35)
    pt3dadd(-101.079932900822, -200.477946719044, -45.6919123522984, 1.35)
    pt3dadd(-101.686096623765, -201.120680857454, -46.1603761911479, 1.35)
  }
}
proc shape3d_8() {
  adendMML[7] {
    pt3dadd(-102.292260346709, -201.763414995864, -46.6288400299974, 1.35)
    pt3dadd(-102.957785394494, -202.446869467065, -46.4867106945767, 1.35)
    pt3dadd(-103.634266305465, -203.137839376916, -46.2318888729598, 1.35)
    pt3dadd(-104.310747216437, -203.828809286766, -45.9770670513429, 1.35)
    pt3dadd(-104.987228127408, -204.519779196617, -45.722245229726, 1.35)
    pt3dadd(-105.47665170791, -205.368228125149, -45.6390569767971, 1.35)
    pt3dadd(-105.895487333389, -206.27610333684, -45.6206363680786, 1.35)
    pt3dadd(-106.314322958868, -207.183978548532, -45.60221575936, 1.35)
    pt3dadd(-106.872661375296, -208.007742424658, -45.5937287470446, 1.35)
    pt3dadd(-107.481277719172, -208.801191899199, -45.5888218827381, 1.35)
    pt3dadd(-108.089894063049, -209.59464137374, -45.5839150184317, 1.35)
    pt3dadd(-108.634333187209, -210.430071806377, -45.5806492656404, 1.35)
    pt3dadd(-109.117348589124, -211.305682021205, -45.578954213143, 1.35)
    pt3dadd(-109.600363991039, -212.181292236032, -45.5772591606457, 1.35)
    pt3dadd(-110.083379392954, -213.05690245086, -45.5755641081483, 1.35)
    pt3dadd(-110.528988395085, -213.808376695872, -45.7790282851209, 1.35)
    pt3dadd(-110.850550555383, -214.148192104356, -46.6628400666794, 1.35)
    pt3dadd(-111.172112715681, -214.488007512839, -47.5466518482379, 1.35)
    pt3dadd(-111.493674875979, -214.827822921323, -48.4304636297964, 1.35)
    pt3dadd(-111.815237036277, -215.167638329806, -49.3142754113549, 1.35)
    pt3dadd(-112.136799196575, -215.50745373829, -50.1980871929134, 1.35)
    pt3dadd(-112.561280265929, -216.11838099726, -50.6800505582623, 1.35)
    pt3dadd(-113.075570607835, -216.965886337902, -50.8113522787609, 1.35)
    pt3dadd(-113.58986094974, -217.813391678544, -50.9426539992595, 1.35)
    pt3dadd(-114.358032125832, -218.443287824893, -50.8431145354163, 1.35)
    pt3dadd(-115.131179189577, -219.068918982486, -50.7390507450222, 1.35)
    pt3dadd(-115.744827161314, -219.547641924592, -51.1303028497622, 1.35)
    pt3dadd(-116.22689631977, -219.905172899948, -51.9301659181231, 1.35)
    pt3dadd(-116.708965478225, -220.262703875303, -52.730028986484, 1.35)
    pt3dadd(-117.19103463668, -220.620234850658, -53.5298920548449, 1.35)
    pt3dadd(-117.825325357836, -221.121282437045, -54.0131230946728, 1.35)
    pt3dadd(-118.579168466594, -221.735045680826, -54.2476763891744, 1.35)
    pt3dadd(-119.333011575352, -222.348808924607, -54.4822296836759, 1.35)
    pt3dadd(-120.08685468411, -222.962572168388, -54.7167829781775, 1.35)
    pt3dadd(-120.88245240048, -223.536981836266, -54.7660447810786, 1.35)
    pt3dadd(-121.716504308036, -224.075148559516, -54.6446611187153, 1.35)
    pt3dadd(-122.550556215591, -224.613315282767, -54.5232774563519, 1.35)
    pt3dadd(-123.396787044286, -225.133940300965, -54.5368138322725, 1.35)
    pt3dadd(-124.251280815263, -225.64266392866, -54.6418884057256, 1.35)
    pt3dadd(-125.104508272772, -226.152862653458, -54.7460465219952, 1.35)
    pt3dadd(-125.724379748401, -226.934891964872, -54.681320099331, 1.35)
    pt3dadd(-126.344251224029, -227.716921276287, -54.6165936766668, 1.35)
    pt3dadd(-126.918205885778, -228.485232535576, -54.8343886472872, 1.35)
    pt3dadd(-127.473797593454, -229.248057700778, -55.1651689697009, 1.35)
    pt3dadd(-128.029389301131, -230.01088286598, -55.4959492921147, 1.35)
    pt3dadd(-128.584981008807, -230.773708031181, -55.8267296145285, 1.35)
    pt3dadd(-129.140572716484, -231.536533196383, -56.1575099369423, 1.35)
    pt3dadd(-129.666853650979, -232.300600072282, -56.177784359055, 1.35)
    pt3dadd(-130.151305607268, -233.066438975462, -55.7549403258425, 1.35)
    pt3dadd(-130.635757563558, -233.832277878642, -55.3320962926299, 1.35)
  }
  adendOML[3] {pt3dclear()
    pt3dadd(-130.635757563558, -233.832277878642, -55.3320962926299, 1.35)
    pt3dadd(-131.120209519847, -234.598116781822, -54.9092522594174, 1.35)
    pt3dadd(-131.718992710935, -235.298488407354, -55.2513099134172, 1.35)
    pt3dadd(-132.324216148687, -235.995172279341, -55.6364542667566, 1.35)
    pt3dadd(-132.929439586438, -236.691856151328, -56.021598620096, 1.35)
    pt3dadd(-133.53466302419, -237.388540023315, -56.4067429734354, 1.35)
    pt3dadd(-134.001390225631, -237.992382794805, -55.8518126781546, 1.35)
    pt3dadd(-134.451466417031, -238.585063543862, -55.1838598717132, 1.35)
    pt3dadd(-134.90154260843, -239.177744292919, -54.5159070652719, 1.35)
    pt3dadd(-135.304226853334, -239.884559075875, -54.6631855087975, 1.35)
    pt3dadd(-135.684844172462, -240.644517640435, -55.1900568750067, 1.35)
    pt3dadd(-136.065461491591, -241.404476204995, -55.7169282412159, 1.35)
    pt3dadd(-136.44607881072, -242.164434769555, -56.2437996074251, 1.35)
    pt3dadd(-136.826696129848, -242.924393334115, -56.7706709736343, 1.35)
    pt3dadd(-137.294725442588, -243.731383287242, -56.975042750158, 1.35)
    pt3dadd(-137.830274406986, -244.574701698763, -56.9303061485721, 1.35)
    pt3dadd(-138.365823371384, -245.418020110284, -56.8855695469861, 1.35)
    pt3dadd(-138.901372335782, -246.261338521805, -56.8408329454001, 1.35)
    pt3dadd(-139.337206685364, -247.094982442917, -56.5153594818837, 1.35)
    pt3dadd(-139.762768489052, -247.92762970324, -56.1609646581091, 1.35)
    pt3dadd(-140.18833029274, -248.760276963564, -55.8065698343346, 1.35)
    pt3dadd(-140.613892096428, -249.592924223887, -55.4521750105601, 1.35)
    pt3dadd(-141.019689700543, -250.45034834431, -55.1960127921672, 1.35)
    pt3dadd(-141.361426035756, -251.38808116085, -55.2582497745752, 1.35)
    pt3dadd(-141.703162370968, -252.32581397739, -55.3204867569833, 1.35)
    pt3dadd(-142.044898706181, -253.263546793931, -55.3827237393913, 1.35)
    pt3dadd(-142.453156905747, -254.165366487778, -55.4133466685565, 1.35)
    pt3dadd(-143.050732886032, -254.964979294415, -55.3539976395142, 1.35)
    pt3dadd(-143.648308866317, -255.764592101052, -55.2946486104719, 1.35)
    pt3dadd(-144.241264035955, -256.564535716464, -55.2250306047089, 1.35)
    pt3dadd(-144.701408856294, -257.373987366769, -54.8602638708459, 1.35)
    pt3dadd(-145.161553676633, -258.183439017074, -54.4954971369829, 1.35)
    pt3dadd(-145.621698496972, -258.99289066738, -54.1307304031199, 1.35)
    pt3dadd(-146.08184331731, -259.802342317685, -53.7659636692569, 1.35)
    pt3dadd(-146.541988137649, -260.611793967991, -53.4011969353939, 1.35)
    pt3dadd(-147.040707436167, -261.421465391835, -53.6168110171822, 1.35)
    pt3dadd(-147.545038729484, -262.231168789358, -53.9168616039534, 1.35)
    pt3dadd(-148.0493700228, -263.04087218688, -54.2169121907247, 1.35)
    pt3dadd(-148.553701316117, -263.850575584403, -54.5169627774959, 1.35)
    pt3dadd(-149.049559991238, -264.66836034973, -54.7563118237666, 1.35)
    pt3dadd(-149.483201962829, -265.54548876223, -54.5499132083165, 1.35)
    pt3dadd(-149.91684393442, -266.42261717473, -54.3435145928664, 1.35)
    pt3dadd(-150.390300193321, -267.278024614022, -54.2131326857242, 1.35)
    pt3dadd(-151.001549198006, -268.058258221464, -54.3458360093099, 1.35)
    pt3dadd(-151.612798202691, -268.838491828905, -54.4785393328955, 1.35)
    pt3dadd(-152.224047207375, -269.618725436347, -54.6112426564813, 1.35)
    pt3dadd(-152.917797906391, -270.331020221872, -54.5591177271569, 1.35)
    pt3dadd(-153.627166364712, -271.030454033125, -54.472004387105, 1.35)
    pt3dadd(-154.336534823034, -271.729887844377, -54.384891047053, 1.35)
    pt3dadd(-154.95834796973, -272.405379429307, -54.6222449779933, 1.35)
    pt3dadd(-155.50247485716, -273.059627505796, -55.1474929049626, 1.35)
    pt3dadd(-156.046601744591, -273.713875582285, -55.6727408319319, 1.35)
    pt3dadd(-156.532757911377, -274.345542062778, -55.9579970063628, 1.35)
    pt3dadd(-156.751746725503, -274.873137640679, -55.1372127439238, 1.35)
    pt3dadd(-156.970735539628, -275.400733218579, -54.3164284814848, 1.35)
    pt3dadd(-157.189724353754, -275.92832879648, -53.4956442190458, 1.35)
    pt3dadd(-157.408713167879, -276.455924374381, -52.6748599566068, 1.35)
    pt3dadd(-157.627701982005, -276.983519952281, -51.8540756941678, 1.35)
    pt3dadd(-158.024216655571, -277.540048789665, -52.1776952546347, 1.35)
    pt3dadd(-158.477391194359, -278.105812082174, -52.8665673285666, 1.35)
    pt3dadd(-158.930565733147, -278.671575374683, -53.5554394024985, 1.35)
    pt3dadd(-159.383740271935, -279.237338667192, -54.2443114764304, 1.35)
    pt3dadd(-159.804452391821, -279.847958399521, -54.8561855192363, 1.35)
    pt3dadd(-159.951757207073, -280.836371245276, -54.8195612410935, 1.35)
    pt3dadd(-160.099062022326, -281.824784091032, -54.7829369629506, 1.35)
    pt3dadd(-160.246366837578, -282.813196936787, -54.7463126848077, 1.35)
    pt3dadd(-160.378979555835, -283.762590701478, -54.6121836448487, 1.35)
    pt3dadd(-160.429186134305, -284.493131306584, -53.9311625557708, 1.35)
    pt3dadd(-160.479392712775, -285.223671911691, -53.2501414666928, 1.35)
    pt3dadd(-160.529599291245, -285.954212516797, -52.5691203776149, 1.35)
    pt3dadd(-160.588554823301, -286.748632332016, -52.0149284094958, 1.35)
    pt3dadd(-160.672704584642, -287.727004142202, -51.8259643422794, 1.35)
    pt3dadd(-160.756854345983, -288.705375952388, -51.637000275063, 1.35)
    pt3dadd(-160.710356499049, -289.692301065139, -51.6378777529777, 1.35)
    pt3dadd(-160.605351690393, -290.683056540745, -51.7237705798997, 1.35)
    pt3dadd(-160.500346881737, -291.673812016351, -51.8096634068216, 1.35)
    pt3dadd(-160.637192845118, -292.453665690269, -52.3493445417444, 1.35)
    pt3dadd(-160.838120240077, -293.177638255101, -53.0092626482731, 1.35)
    pt3dadd(-161.039047635037, -293.901610819934, -53.6691807548018, 1.35)
  }
  adendIML[8] {pt3dclear()
    pt3dadd(-43.5835137794031, -55.4600074826025, -11.5780727348915, 1.8)
    pt3dadd(-43.6884904192005, -56.3369622944681, -12.0297569870573, 1.8)
    pt3dadd(-43.7463853226159, -57.2387687690643, -12.4580013828582, 1.8)
    pt3dadd(-43.8042802260313, -58.1405752436605, -12.8862457786591, 1.8)
    pt3dadd(-43.8385539725086, -59.0221680045727, -13.1660415092638, 1.8)
    pt3dadd(-43.7256456411702, -59.7778102716891, -12.5208620978893, 1.8)
    pt3dadd(-43.6127373098318, -60.5334525388055, -11.8756826865148, 1.8)
    pt3dadd(-43.4998289784934, -61.2890948059219, -11.2305032751403, 1.8)
    pt3dadd(-43.3402290276178, -62.2435236731281, -11.2386810566646, 1.8)
    pt3dadd(-43.1742988714204, -63.2249029868222, -11.3354375857342, 1.8)
    pt3dadd(-43.0451819527946, -64.1963893199248, -11.4946282797198, 1.8)
    pt3dadd(-43.0137646263462, -65.1416204189604, -11.8195145998607, 1.8)
    pt3dadd(-42.9823472998978, -66.0868515179961, -12.1444009200016, 1.8)
    pt3dadd(-42.9832903056922, -67.0581884999975, -12.3019071347765, 1.8)
    pt3dadd(-43.0187157233934, -68.057343299284, -12.2810570306195, 1.8)
    pt3dadd(-43.0541411410946, -69.0564980985706, -12.2602069264626, 1.8)
    pt3dadd(-43.0895665587958, -70.0556528978571, -12.2393568223056, 1.8)
    pt3dadd(-43.0635239130268, -71.0016138544879, -12.1005990257768, 1.8)
    pt3dadd(-42.7820625046015, -71.7265379880105, -11.4718984005156, 1.8)
    pt3dadd(-42.5006010961762, -72.451462121533, -10.8431977752543, 1.8)
    pt3dadd(-42.2191396877509, -73.1763862550556, -10.2144971499931, 1.8)
    pt3dadd(-41.9376782793256, -73.9013103885781, -9.58579652473192, 1.8)
    pt3dadd(-41.6371639181886, -74.8133932216946, -9.59387507708179, 1.8)
    pt3dadd(-41.3332903584212, -75.7584737353724, -9.71422324840488, 1.8)
    pt3dadd(-41.0294167986539, -76.7035542490502, -9.83457141972798, 1.8)
    pt3dadd(-40.9035525224929, -77.5247585825695, -10.3042713864914, 1.8)
    pt3dadd(-40.8715610253547, -78.2806371024537, -10.9582012048118, 1.8)
    pt3dadd(-40.8395695282164, -79.0365156223378, -11.6121310231322, 1.8)
    pt3dadd(-40.7692390809653, -79.8225949759732, -11.9567191358807, 1.8)
    pt3dadd(-40.5978986954792, -80.6882431321677, -11.4862983221632, 1.8)
    pt3dadd(-40.4265583099932, -81.5538912883621, -11.0158775084457, 1.8)
    pt3dadd(-40.2552179245071, -82.4195394445565, -10.5454566947281, 1.8)
    pt3dadd(-40.0478527759891, -83.2949715902002, -10.1840238519462, 1.8)
    pt3dadd(-39.6776675852851, -84.2146241398325, -10.3151806761611, 1.8)
    pt3dadd(-39.3074823945812, -85.1342766894649, -10.446337500376, 1.8)
    pt3dadd(-38.9952167270848, -86.0709776312621, -10.5368996148, 1.8)
    pt3dadd(-38.86765455817, -87.0620453479158, -10.4980065039901, 1.8)
    pt3dadd(-38.7400923892552, -88.0531130645695, -10.4591133931802, 1.8)
    pt3dadd(-38.6253676105525, -89.0237669540006, -10.5480108069714, 1.8)
    pt3dadd(-38.538551274098, -89.9500412531337, -10.9147243825179, 1.8)
    pt3dadd(-38.4517349376434, -90.8763155522667, -11.2814379580645, 1.8)
    pt3dadd(-38.3649186011889, -91.8025898513998, -11.6481515336111, 1.8)
    pt3dadd(-38.2330071016894, -92.7088580095161, -11.6454431225881, 1.8)
    pt3dadd(-38.0487402189792, -93.5918990827573, -11.2138366132473, 1.8)
    pt3dadd(-37.864473336269, -94.4749401559985, -10.7822301039066, 1.8)
    pt3dadd(-37.6802064535588, -95.3579812292397, -10.3506235945659, 1.8)
    pt3dadd(-37.4959395708486, -96.2410223024809, -9.91901708522518, 1.8)
    pt3dadd(-37.3038174128915, -97.1186186397177, -9.48007208889281, 1.8)
    pt3dadd(-37.0986556588761, -97.9871768266785, -9.02894535442369, 1.8)
    pt3dadd(-36.8934939048607, -98.8557350136393, -8.57781861995456, 1.8)
    pt3dadd(-36.6883321508453, -99.7242932006, -8.12669188548544, 1.8)
    pt3dadd(-36.4831703968299, -100.592851387561, -7.67556515101632, 1.8)
    pt3dadd(-36.4961196574144, -101.450966154679, -8.02839589225207, 1.8)
    pt3dadd(-36.5527464354036, -102.306989589304, -8.54222201788943, 1.8)
    pt3dadd(-36.6093732133929, -103.163013023929, -9.05604814352678, 1.8)
    pt3dadd(-36.6659999913821, -104.019036458554, -9.56987426916413, 1.8)
    pt3dadd(-36.6943666874696, -104.889866836456, -10.0100928323197, 1.8)
    pt3dadd(-36.516105649629, -105.86896035197, -9.91211890585331, 1.8)
    pt3dadd(-36.3378446117883, -106.848053867483, -9.81414497938692, 1.8)
    pt3dadd(-36.1595835739477, -107.827147382997, -9.71617105292053, 1.8)
    pt3dadd(-35.981322536107, -108.80624089851, -9.61819712645414, 1.8)
    pt3dadd(-35.768988551663, -109.777783624882, -9.71850383169551, 1.8)
    pt3dadd(-35.5558496121999, -110.749147967926, -9.82349481010938, 1.8)
    pt3dadd(-35.3427106727367, -111.720512310969, -9.92848578852325, 1.8)
    pt3dadd(-35.053934123358, -112.461056893499, -10.5180247247089, 1.8)
    pt3dadd(-34.6513961796681, -113.274632697643, -10.6550186488511, 1.8)
    pt3dadd(-34.1823579211419, -114.142938840143, -10.4936260996536, 1.8)
    pt3dadd(-33.7133196626158, -115.011244982642, -10.332233550456, 1.8)
    pt3dadd(-33.2442814040896, -115.879551125142, -10.1708410012585, 1.8)
    pt3dadd(-32.761539605779, -116.641617827272, -10.5201674857757, 1.8)
  }
  adendMML[8] {pt3dclear()
    pt3dadd(-32.761539605779, -116.641617827272, -10.5201674857757, 1.8)
    pt3dadd(-32.2755677531709, -117.378642885686, -10.9898752904183, 1.8)
    pt3dadd(-31.7895959005628, -118.1156679441, -11.4595830950608, 1.8)
    pt3dadd(-31.3036240479547, -118.852693002515, -11.9292908997033, 1.8)
    pt3dadd(-30.6810477692404, -119.62854064486, -11.9036183755831, 1.8)
    pt3dadd(-30.0534304707961, -120.405820930475, -11.8596651699189, 1.8)
    pt3dadd(-29.4258131723518, -121.18310121609, -11.8157119642547, 1.8)
    pt3dadd(-28.9195065492122, -121.780237483283, -11.219776075855, 1.8)
    pt3dadd(-28.4242128817697, -122.361019723191, -10.5737295041598, 1.8)
    pt3dadd(-27.9289192143272, -122.941801963099, -9.92768293246463, 1.8)
    pt3dadd(-27.3549939180892, -123.53004589244, -9.65126930728695, 1.8)
    pt3dadd(-26.6444776971307, -124.131251515125, -10.0169447084377, 1.8)
    pt3dadd(-26.2640511556982, -124.476227873179, -10.7499551363112, 1.8)
    pt3dadd(-26.0957907333084, -124.656512112595, -11.7190712404368, 1.8)
    pt3dadd(-25.9275303109187, -124.836796352011, -12.6881873445623, 1.8)
    pt3dadd(-25.7592698885289, -125.017080591427, -13.6573034486878, 1.8)
    pt3dadd(-25.6174037500566, -125.529595997012, -14.2643428322988, 1.8)
    pt3dadd(-25.513542648472, -126.52048989413, -14.3500292152979, 1.8)
    pt3dadd(-25.5047760493903, -127.494600751917, -14.3590766730251, 1.8)
    pt3dadd(-25.8147981065891, -128.412449234741, -14.1112047572536, 1.8)
    pt3dadd(-26.3711607851237, -129.135171174143, -13.9140052837719, 1.8)
    pt3dadd(-27.2417428906378, -129.608999730351, -13.78144097153, 1.8)
    pt3dadd(-28.1036140812704, -130.05087326012, -13.8123090683212, 1.8)
    pt3dadd(-28.9463847724306, -130.422678723109, -14.2015368420126, 1.8)
    pt3dadd(-29.7891554635909, -130.794484186098, -14.5907646157041, 1.8)
    pt3dadd(-30.4815390417575, -131.23401842594, -14.7192350882903, 1.8)
    pt3dadd(-30.6827680692594, -131.89475045527, -13.996089139047, 1.8)
    pt3dadd(-30.8839970967613, -132.555482484601, -13.2729431898037, 1.8)
    pt3dadd(-31.0852261242633, -133.216214513932, -12.5497972405605, 1.8)
    pt3dadd(-31.2956633759627, -133.810467880515, -12.0778979534997, 1.8)
    pt3dadd(-31.5578256149918, -134.031293329343, -13.0173164340382, 1.8)
    pt3dadd(-31.8199878540209, -134.252118778171, -13.9567349145767, 1.8)
    pt3dadd(-32.08215009305, -134.472944226999, -14.8961533951152, 1.8)
    pt3dadd(-32.3443123320791, -134.693769675826, -15.8355718756537, 1.8)
    pt3dadd(-32.6064745711081, -134.914595124654, -16.7749903561922, 1.8)
    pt3dadd(-32.8686368101372, -135.135420573482, -17.7144088367307, 1.8)
    pt3dadd(-33.0165735766572, -135.930846760958, -17.9888432821662, 1.8)
    pt3dadd(-33.1252292733273, -136.923872759184, -18.0345959479767, 1.8)
    pt3dadd(-33.2338849699974, -137.916898757409, -18.0803486137871, 1.8)
    pt3dadd(-33.3425406666675, -138.909924755635, -18.1261012795976, 1.8)
    pt3dadd(-33.4519010645396, -139.864217669599, -17.962512886286, 1.8)
    pt3dadd(-33.5620482527841, -140.775265563243, -17.5651977312658, 1.8)
    pt3dadd(-33.6721954410287, -141.686313456887, -17.1678825762455, 1.8)
    pt3dadd(-33.7823426292733, -142.597361350531, -16.7705674212252, 1.8)
    pt3dadd(-33.8924898175178, -143.508409244175, -16.3732522662049, 1.8)
    pt3dadd(-34.1523563788929, -144.052048626832, -17.0962027953629, 1.8)
    pt3dadd(-34.4243357628625, -144.565963371853, -17.9097867489567, 1.8)
    pt3dadd(-34.6963151468321, -145.079878116874, -18.7233707025505, 1.8)
    pt3dadd(-34.9682945308017, -145.593792861895, -19.5369546561443, 1.8)
    pt3dadd(-35.2402739147713, -146.107707606916, -20.3505386097381, 1.8)
  }
}
proc shape3d_9() {
  adendMML[8] {
    pt3dadd(-35.4230049662071, -146.721996792152, -21.0526827395141, 1.8)
    pt3dadd(-35.3237085382518, -147.653472299702, -21.4026735940099, 1.8)
    pt3dadd(-35.2244121102965, -148.584947807251, -21.7526644485057, 1.8)
    pt3dadd(-35.1251156823412, -149.516423314801, -22.1026553030014, 1.8)
    pt3dadd(-34.9737142573066, -150.329291178918, -21.6990621668194, 1.8)
    pt3dadd(-34.8086388578644, -151.111032702535, -21.0977051158487, 1.8)
    pt3dadd(-34.6435634584222, -151.892774226151, -20.4963480648781, 1.8)
    pt3dadd(-34.47848805898, -152.674515749768, -19.8949910139074, 1.8)
    pt3dadd(-34.4186483886508, -153.499639978406, -19.7869041205407, 1.8)
    pt3dadd(-34.4836050598208, -154.376210639891, -20.2637736061388, 1.8)
    pt3dadd(-34.5485617309908, -155.252781301376, -20.7406430917369, 1.8)
    pt3dadd(-34.6135184021608, -156.12935196286, -21.217512577335, 1.8)
    pt3dadd(-34.6123144056545, -157.018633864216, -21.6702696630981, 1.8)
    pt3dadd(-34.5570047601216, -157.918310912828, -22.1033078269022, 1.8)
    pt3dadd(-34.5016951145886, -158.817987961441, -22.5363459907063, 1.8)
    pt3dadd(-34.4420536289816, -159.739062894196, -22.8459878426611, 1.8)
    pt3dadd(-34.3680163982743, -160.731248135859, -22.7455541098042, 1.8)
    pt3dadd(-34.2939791675671, -161.723433377522, -22.6451203769473, 1.8)
    pt3dadd(-34.2199419368599, -162.715618619185, -22.5446866440903, 1.8)
    pt3dadd(-34.1459047061527, -163.707803860848, -22.4442529112334, 1.8)
    pt3dadd(-34.1177545880851, -164.599873054852, -22.7890873376007, 1.8)
    pt3dadd(-34.1080361544574, -165.451728182386, -23.3127746429102, 1.8)
    pt3dadd(-34.0983177208297, -166.303583309919, -23.8364619482197, 1.8)
    pt3dadd(-34.088599287202, -167.155438437453, -24.3601492535292, 1.8)
    pt3dadd(-34.0662127888478, -168.059381850828, -24.7775460139594, 1.8)
    pt3dadd(-34.0365273422294, -168.993336928315, -25.1337014399957, 1.8)
    pt3dadd(-34.006841895611, -169.927292005802, -25.489856866032, 1.8)
    pt3dadd(-33.9771564489926, -170.861247083289, -25.8460122920683, 1.8)
    pt3dadd(-33.9316105048641, -171.780518063281, -25.9445672802881, 1.8)
    pt3dadd(-33.8520880888038, -172.66833266392, -25.4912887563796, 1.8)
    pt3dadd(-33.7725656727434, -173.556147264558, -25.0380102324711, 1.8)
    pt3dadd(-33.6930432566831, -174.443961865197, -24.5847317085626, 1.8)
    pt3dadd(-33.6135208406227, -175.331776465836, -24.1314531846541, 1.8)
    pt3dadd(-33.6212349678724, -176.152864297748, -24.582622267803, 1.8)
    pt3dadd(-33.6417916539453, -176.964128924613, -25.1669399278598, 1.8)
    pt3dadd(-33.6623483400182, -177.775393551479, -25.7512575879167, 1.8)
    pt3dadd(-33.6829050260911, -178.586658178344, -26.3355752479736, 1.8)
    pt3dadd(-33.6229707630558, -179.477654825394, -26.4174117138696, 1.8)
    pt3dadd(-33.5036259800656, -180.427501825541, -26.1283658713384, 1.8)
    pt3dadd(-33.3842811970754, -181.377348825688, -25.8393200288072, 1.8)
    pt3dadd(-33.2678116558878, -182.33253899265, -25.5914353610685, 1.8)
    pt3dadd(-33.1722700126989, -183.326620236525, -25.6431487538418, 1.8)
    pt3dadd(-33.0767283695101, -184.3207014804, -25.694862146615, 1.8)
    pt3dadd(-32.9811867263212, -185.314782724276, -25.7465755393883, 1.8)
    pt3dadd(-32.9376320317299, -186.174969103104, -26.0648357890665, 1.8)
    pt3dadd(-32.9830452900274, -186.80601427694, -26.8392514555853, 1.8)
    pt3dadd(-33.0284585483249, -187.437059450775, -27.6136671221041, 1.8)
    pt3dadd(-33.0738718066224, -188.068104624611, -28.3880827886229, 1.8)
    pt3dadd(-33.1192850649199, -188.699149798446, -29.1624984551417, 1.8)
    pt3dadd(-33.0083781700231, -189.415501206426, -29.8458220523542, 1.8)
    pt3dadd(-32.8677426687108, -190.148075957384, -30.5118219697938, 1.8)
    pt3dadd(-32.7271071673985, -190.880650708342, -31.1778218872334, 1.8)
    pt3dadd(-32.5864716660861, -191.613225459299, -31.8438218046731, 1.8)
    pt3dadd(-32.3386153124448, -192.511125552172, -31.6028937413021, 1.8)
    pt3dadd(-32.0815105218994, -193.423285940128, -31.2837377397562, 1.8)
    pt3dadd(-31.824405731354, -194.335446328083, -30.9645817382103, 1.8)
    pt3dadd(-31.6557615468803, -195.246850152432, -30.9198145553452, 1.8)
    pt3dadd(-31.6349486764397, -196.156989642323, -31.3335934013043, 1.8)
    pt3dadd(-31.614135805999, -197.067129132215, -31.7473722472635, 1.8)
    pt3dadd(-31.5933229355584, -197.977268622107, -32.1611510932226, 1.8)
    pt3dadd(-31.5793991879225, -198.821746361123, -32.6811146696326, 1.8)
    pt3dadd(-31.5726585775863, -199.59776003218, -33.3117947363115, 1.8)
    pt3dadd(-31.5659179672502, -200.373773703236, -33.9424748029904, 1.8)
    pt3dadd(-31.5591773569141, -201.149787374292, -34.5731548696693, 1.8)
    pt3dadd(-31.5267134163562, -202.029359277838, -35.0254952594897, 1.8)
    pt3dadd(-31.4819285820215, -202.95853323412, -35.3924149749321, 1.8)
    pt3dadd(-31.4371437476867, -203.887707190402, -35.7593346903745, 1.8)
    pt3dadd(-31.3923589133519, -204.816881146684, -36.1262544058169, 1.8)
    pt3dadd(-31.1692851089544, -205.588522193059, -35.6200393132852, 1.8)
    pt3dadd(-30.9247560429394, -206.341205758249, -35.0087513397682, 1.8)
    pt3dadd(-30.6802269769243, -207.09388932344, -34.3974633662512, 1.8)
    pt3dadd(-30.4356979109093, -207.84657288863, -33.7861753927341, 1.8)
    pt3dadd(-30.1922457577297, -208.600898785136, -33.178370696046, 1.8)
    pt3dadd(-30.1034886221137, -209.591140220411, -33.0709273586957, 1.8)
    pt3dadd(-30.0147314864977, -210.581381655687, -32.9634840213454, 1.8)
    pt3dadd(-29.9259743508817, -211.571623090962, -32.8560406839951, 1.8)
    pt3dadd(-29.9524443590083, -212.449089353521, -33.2276800527953, 1.8)
    pt3dadd(-30.0200582793957, -213.286287223922, -33.7703844691816, 1.8)
    pt3dadd(-30.0876721997831, -214.123485094324, -34.313088885568, 1.8)
    pt3dadd(-30.0848431906689, -214.999469532878, -34.74365686948, 1.8)
    pt3dadd(-29.9071960898424, -215.971710528003, -34.8959360701844, 1.8)
    pt3dadd(-29.7337721664032, -216.903100686966, -34.8035339064422, 1.8)
    pt3dadd(-29.5667903771175, -217.772176019273, -34.3378890322923, 1.8)
    pt3dadd(-29.3998085878318, -218.64125135158, -33.8722441581425, 1.8)
    pt3dadd(-29.232826798546, -219.510326683887, -33.4065992839927, 1.8)
    pt3dadd(-29.0658450092603, -220.379402016194, -32.9409544098429, 1.8)
    pt3dadd(-28.9113431532277, -221.276652005651, -32.6045194217144, 1.8)
    pt3dadd(-28.7977813744339, -222.266328181729, -32.6919539051926, 1.8)
    pt3dadd(-28.68421959564, -223.256004357807, -32.7793883886709, 1.8)
    pt3dadd(-28.5791408158231, -224.245357099342, -32.8739503740739, 1.8)
    pt3dadd(-28.5567491070112, -225.231557199328, -33.0379868766078, 1.8)
    pt3dadd(-28.5343573981992, -226.217757299314, -33.2020233791417, 1.8)
    pt3dadd(-28.4276321656222, -227.204007007818, -33.253514791565, 1.8)
    pt3dadd(-28.2643256653247, -228.190289999797, -33.2294971585945, 1.8)
    pt3dadd(-28.1010191650273, -229.176572991776, -33.2054795256241, 1.8)
    pt3dadd(-27.9377126647298, -230.162855983755, -33.1814618926536, 1.8)
    pt3dadd(-27.643085613459, -230.978872934681, -32.7187167851516, 1.8)
    pt3dadd(-27.330206940816, -231.771225415037, -32.1949950240232, 1.8)
    pt3dadd(-27.0173282681731, -232.563577895392, -31.6712732628949, 1.8)
    pt3dadd(-26.7044495955301, -233.355930375748, -31.1475515017665, 1.8)
  }
  adendOML[4] {pt3dclear()
    pt3dadd(-26.7044495955301, -233.355930375748, -31.1475515017665, 1.8)
    pt3dadd(-26.3656459139074, -234.162386273295, -30.7112645430052, 1.8)
    pt3dadd(-25.8913862317851, -235.042531344393, -30.7318171032736, 1.8)
    pt3dadd(-25.4171265496628, -235.922676415492, -30.7523696635421, 1.8)
    pt3dadd(-25.0697209332023, -236.824770294486, -30.7764172586223, 1.8)
    pt3dadd(-25.2191310883447, -237.812825264857, -30.8141529322655, 1.8)
    pt3dadd(-25.3685412434871, -238.800880235228, -30.8518886059087, 1.8)
    pt3dadd(-25.2933523167716, -239.786812342187, -30.7100490348926, 1.8)
    pt3dadd(-25.2122805427772, -240.772688845708, -30.5635059106355, 1.8)
    pt3dadd(-25.1312087687828, -241.758565349229, -30.4169627863784, 1.8)
    pt3dadd(-25.0501369947884, -242.74444185275, -30.2704196621212, 1.8)
    pt3dadd(-24.9631730119437, -243.720550766015, -30.0913675871819, 1.8)
    pt3dadd(-24.8385361614475, -244.634208882933, -29.7044638512361, 1.8)
    pt3dadd(-24.7138993109515, -245.547866999851, -29.3175601152904, 1.8)
    pt3dadd(-24.5955985575807, -246.468744907704, -29.1469702398074, 1.8)
    pt3dadd(-24.4920133780423, -247.406390766627, -29.4787689043998, 1.8)
    pt3dadd(-24.388428198504, -248.344036625549, -29.8105675689922, 1.8)
    pt3dadd(-24.2848430189656, -249.281682484472, -30.1423662335846, 1.8)
    pt3dadd(-23.9391542641297, -250.199326569664, -30.3011012523245, 1.8)
    pt3dadd(-23.5574574126373, -251.113995788414, -30.4340964922117, 1.8)
    pt3dadd(-23.175760561145, -252.028665007164, -30.5670917320991, 1.8)
    pt3dadd(-22.8714937893709, -252.845584124637, -30.3174594602001, 1.8)
    pt3dadd(-22.6522083268552, -253.555220237667, -29.6478846152319, 1.8)
    pt3dadd(-22.4329228643396, -254.264856350696, -28.9783097702636, 1.8)
    pt3dadd(-22.5520925138479, -255.192376979527, -28.7901342834594, 1.8)
    pt3dadd(-22.7487000822936, -256.169749192432, -28.7121021011868, 1.8)
    pt3dadd(-22.9314464663577, -257.12621030654, -28.5716010476051, 1.8)
    pt3dadd(-23.0161766526825, -257.93480336419, -27.9893656462036, 1.8)
    pt3dadd(-23.1009068390074, -258.743396421841, -27.4071302448021, 1.8)
    pt3dadd(-23.1856370253321, -259.551989479491, -26.8248948434005, 1.8)
    pt3dadd(-23.2703672116569, -260.360582537141, -26.242659441999, 1.8)
    pt3dadd(-23.3604425286457, -261.193756188018, -25.7149149093621, 1.8)
    pt3dadd(-23.4789999562218, -262.157910205629, -25.477530902546, 1.8)
    pt3dadd(-23.5975573837979, -263.122064223239, -25.2401468957298, 1.8)
    pt3dadd(-23.7161148113739, -264.08621824085, -25.0027628889137, 1.8)
    pt3dadd(-23.7891704857992, -264.858299360871, -25.3516827334914, 1.8)
    pt3dadd(-23.8293158033397, -265.491458633495, -26.1246624802963, 1.8)
    pt3dadd(-23.8694611208802, -266.124617906118, -26.8976422271012, 1.8)
    pt3dadd(-23.8613673347714, -266.766438948642, -27.4926703759833, 1.8)
    pt3dadd(-23.5220280366595, -267.467738136249, -26.8657506919577, 1.8)
    pt3dadd(-23.1826887385476, -268.169037323856, -26.2388310079322, 1.8)
    pt3dadd(-22.8433494404358, -268.870336511463, -25.6119113239066, 1.8)
    pt3dadd(-22.5040101423239, -269.57163569907, -24.9849916398811, 1.8)
    pt3dadd(-22.2016192717549, -270.297713236912, -24.7941371141649, 1.8)
    pt3dadd(-21.965564064175, -271.068276789451, -25.3861757535069, 1.8)
    pt3dadd(-21.7295088565951, -271.838840341989, -25.9782143928489, 1.8)
    pt3dadd(-21.4934536490153, -272.609403894527, -26.570253032191, 1.8)
    pt3dadd(-21.4180368527884, -273.57475700018, -26.8150046934173, 1.8)
    pt3dadd(-21.3448004450729, -274.542754037008, -27.0550425347619, 1.8)
    pt3dadd(-21.0809916843996, -275.448096913417, -26.8485814198984, 1.8)
    pt3dadd(-20.7629925376004, -276.335623705316, -26.5151556616009, 1.8)
    pt3dadd(-20.4449933908013, -277.223150497215, -26.1817299033034, 1.8)
    pt3dadd(-20.1269942440021, -278.110677289114, -25.8483041450058, 1.8)
    pt3dadd(-19.7842707358532, -279.033994553926, -25.9102466608436, 1.8)
    pt3dadd(-19.4374544906674, -279.963236380024, -26.0376363021247, 1.8)
    pt3dadd(-19.2299407063026, -280.677966405807, -26.5588431863534, 1.8)
    pt3dadd(-19.1326259132881, -281.223001051564, -27.3915898861274, 1.8)
    pt3dadd(-19.0353111202736, -281.768035697322, -28.2243365859014, 1.8)
    pt3dadd(-18.9379963272591, -282.313070343079, -29.0570832856755, 1.8)
    pt3dadd(-18.7274879745808, -282.838034143599, -29.3064485122211, 1.8)
    pt3dadd(-18.3191455860816, -283.327919125787, -28.5362088105819, 1.8)
    pt3dadd(-17.9108031975823, -283.817804107975, -27.7659691089427, 1.8)
    pt3dadd(-17.502460809083, -284.307689090163, -26.9957294073035, 1.8)
    pt3dadd(-17.0941184205838, -284.797574072351, -26.2254897056643, 1.8)
    pt3dadd(-16.6857760320845, -285.28745905454, -25.4552500040251, 1.8)
    pt3dadd(-16.6804230009609, -286.113996969287, -25.8846936003507, 1.8)
    pt3dadd(-16.7061780457225, -286.966522232785, -26.4067447020318, 1.8)
    pt3dadd(-16.7319330904842, -287.819047496283, -26.9287958037129, 1.8)
  }
  GCL[3] {pt3dclear()
    pt3dadd(-27.2944319719475, 1.02827245854812, -0.182272423360269, 3.1954633178754)
    pt3dadd(-26.889277070532, 0.207888645342449, -0.313401745270683, 3.1954633178754)
  }
  adendIML[9] {pt3dclear()
    pt3dadd(-26.889277070532, 0.207888645342449, -0.313401745270683, 2.61071340741273)
    pt3dadd(-26.2442615486843, -0.536830362374091, -0.484716006560449, 2.61071340741273)
    pt3dadd(-25.7482654679535, -1.31195805712127, -0.783984170221538, 2.18648051656799)
    pt3dadd(-25.4922004236576, -2.13604572474988, -1.28926647661288, 2.02069051474304)
    pt3dadd(-25.2361353793616, -2.96013339237847, -1.79454878300423, 1.85490051291809)
    pt3dadd(-25.0999966074156, -3.89771559812957, -2.01589288732332, 1.8)
    pt3dadd(-25.0232323887232, -4.89148805615572, -2.09666142325916, 1.8)
    pt3dadd(-24.9464681700309, -5.88526051418187, -2.177429959195, 1.8)
    pt3dadd(-24.8085140736193, -6.87137104550064, -2.26922643488482, 1.8)
    pt3dadd(-24.668562771285, -7.85723149549925, -2.3613828568176, 1.8)
    pt3dadd(-24.5789609848375, -8.56349999575491, -2.90296881276215, 1.8)
    pt3dadd(-24.5249521340821, -9.07212015497009, -3.76226420881638, 1.8)
    pt3dadd(-24.4709432833266, -9.58074031418526, -4.62155960487061, 1.8)
    pt3dadd(-24.3526545143259, -10.145286613972, -5.24737138871059, 1.8)
    pt3dadd(-23.9475298091728, -10.9593918323781, -4.83131049576508, 1.8)
    pt3dadd(-23.5424051040198, -11.7734970507842, -4.41524960281956, 1.8)
    pt3dadd(-23.1688318973422, -12.5291490670923, -4.2811235618696, 1.8)
    pt3dadd(-22.8973384308161, -13.0956852578615, -5.05915186609918, 1.8)
    pt3dadd(-22.62584496429, -13.6622214486307, -5.83718017032875, 1.8)
    pt3dadd(-22.3543514977639, -14.2287576393999, -6.61520847455833, 1.8)
    pt3dadd(-22.0828580312378, -14.7952938301691, -7.39323677878791, 1.8)
    pt3dadd(-21.8319024777838, -15.5043095477037, -7.93438916631328, 1.8)
    pt3dadd(-21.6187635383207, -16.4756738907471, -8.03938014472715, 1.8)
    pt3dadd(-21.4056245988576, -17.4470382337906, -8.14437112314102, 1.8)
    pt3dadd(-21.275234708792, -18.2356744330507, -8.50245808075183, 1.8)
    pt3dadd(-21.3295722013167, -18.6163918468689, -9.42555162298997, 1.8)
    pt3dadd(-21.3839096938415, -18.997109260687, -10.3486451652281, 1.8)
    pt3dadd(-21.4382471863663, -19.3778266745051, -11.2717387074663, 1.8)
    pt3dadd(-21.492584678891, -19.7585440883232, -12.1948322497044, 1.8)
    pt3dadd(-21.5421887516422, -20.2726972992856, -12.9832088944951, 1.8)
    pt3dadd(-21.5771031605686, -21.2009542863734, -13.353506004897, 1.8)
    pt3dadd(-21.6120175694951, -22.1292112734612, -13.7238031152989, 1.8)
    pt3dadd(-21.6299814960036, -23.0600448965826, -14.0563783788085, 1.8)
    pt3dadd(-21.4246261985642, -24.0248251853637, -13.8919758356616, 1.8)
    pt3dadd(-21.2192709011249, -24.9896054741447, -13.7275732925146, 1.8)
    pt3dadd(-21.0139156036856, -25.9543857629257, -13.5631707493677, 1.8)
    pt3dadd(-21.014804376866, -26.9244191499084, -13.4904211292352, 1.8)
    pt3dadd(-21.2331771072021, -27.8999919183664, -13.5143193318605, 1.8)
    pt3dadd(-21.4515498375382, -28.8755646868244, -13.5382175344859, 1.8)
    pt3dadd(-21.6493421998943, -29.8545900852587, -13.5662270549636, 1.8)
    pt3dadd(-21.7742113908756, -30.8458493138997, -13.6088043585161, 1.8)
    pt3dadd(-21.5761478397089, -31.5825130117667, -14.1776766044933, 1.8)
    pt3dadd(-21.3096873068802, -32.2652535127051, -14.8580178371282, 1.8)
    pt3dadd(-21.0432267740516, -32.9479940136434, -15.538359069763, 1.8)
    pt3dadd(-20.7767662412229, -33.6307345145817, -16.2187003023979, 1.8)
    pt3dadd(-20.5207264547447, -34.4246943109384, -16.507869466263, 1.8)
    pt3dadd(-20.2785680327324, -35.3668081380563, -16.2759625120726, 1.8)
    pt3dadd(-20.0364096107202, -36.3089219651741, -16.0440555578822, 1.8)
    pt3dadd(-19.8782138616296, -37.1581711339196, -16.2088821073744, 1.8)
    pt3dadd(-19.8299408537399, -37.8858432082996, -16.8931065361087, 1.8)
    pt3dadd(-19.7816678458501, -38.6135152826796, -17.5773309648431, 1.8)
    pt3dadd(-19.7333948379603, -39.3411873570596, -18.2615553935774, 1.8)
    pt3dadd(-19.6721206661172, -40.1102784395065, -18.7666007894017, 1.8)
    pt3dadd(-19.5535958957475, -41.0617580381433, -18.4826316851196, 1.8)
    pt3dadd(-19.4350711253778, -42.0132376367801, -18.1986625808374, 1.8)
    pt3dadd(-19.3165463550082, -42.9647172354168, -17.9146934765553, 1.8)
    pt3dadd(-19.2747631016208, -43.5897351821894, -18.4752378372357, 1.8)
    pt3dadd(-19.2602494910464, -44.0987469176109, -19.3358750478601, 1.8)
    pt3dadd(-19.245735880472, -44.6077586530323, -20.1965122584845, 1.8)
    pt3dadd(-19.2312222698975, -45.1167703884538, -21.0571494691089, 1.8)
    pt3dadd(-19.1960232377453, -45.6489935889528, -21.8229945116911, 1.8)
    pt3dadd(-18.8927407852639, -46.4820377770942, -21.3603314219371, 1.8)
    pt3dadd(-18.5894583327826, -47.3150819652357, -20.8976683321831, 1.8)
    pt3dadd(-18.3990315399977, -48.0886744174772, -20.7524202453554, 1.8)
    pt3dadd(-18.540542306452, -48.6874040036448, -21.5407714270156, 1.8)
    pt3dadd(-18.6820530729063, -49.2861335898124, -22.3291226086758, 1.8)
    pt3dadd(-18.8235638393607, -49.88486317598, -23.117473790336, 1.8)
    pt3dadd(-18.9645447073453, -50.4899724142431, -23.8959190004611, 1.8)
    pt3dadd(-19.0750888279408, -51.4615213958935, -24.1053768092335, 1.8)
    pt3dadd(-19.1856329485362, -52.433070377544, -24.3148346180058, 1.8)
    pt3dadd(-19.2961770691317, -53.4046193591945, -24.5242924267781, 1.8)
    pt3dadd(-19.2774886990692, -54.3829348919139, -24.675055741347, 1.8)
    pt3dadd(-19.1319485957441, -55.3678923203898, -24.7682058482405, 1.8)
    pt3dadd(-18.9864084924191, -56.3528497488657, -24.861355955134, 1.8)
    pt3dadd(-18.8408683890941, -57.3378071773416, -24.9545060620276, 1.8)
    pt3dadd(-18.72383704502, -58.2564690374582, -25.2506493819153, 1.8)
    pt3dadd(-18.6403812677847, -59.0970527438755, -25.7858635126628, 1.8)
    pt3dadd(-18.5569254905494, -59.9376364502928, -26.3210776434103, 1.8)
    pt3dadd(-18.500438465423, -60.8235305501921, -26.7242827387959, 1.8)
  }
}
proc shape3d_10() {
  adendIML[9] {
    pt3dadd(-18.5099181388772, -61.8202557726188, -26.8045881979487, 1.8)
    pt3dadd(-18.5193978123314, -62.8169809950454, -26.8848936571015, 1.8)
    pt3dadd(-18.3210597341391, -63.7459551953421, -26.6892975367006, 1.8)
    pt3dadd(-18.023071364355, -64.6424422329331, -26.3614043789421, 1.8)
    pt3dadd(-17.7627540933867, -65.5185643289489, -26.1404310688177, 1.8)
    pt3dadd(-17.8313232872689, -66.2168908773956, -26.85291847038, 1.8)
    pt3dadd(-17.8998924811511, -66.9152174258422, -27.5654058719423, 1.8)
    pt3dadd(-17.9684616750333, -67.6135439742888, -28.2778932735046, 1.8)
    pt3dadd(-17.895718662106, -68.4492999046651, -28.6067893717438, 1.8)
    pt3dadd(-17.6801062792336, -69.4239995940526, -28.5478672548437, 1.8)
    pt3dadd(-17.4644938963611, -70.3986992834401, -28.4889451379435, 1.8)
    pt3dadd(-17.2488815134886, -71.3733989728276, -28.4300230210434, 1.8)
    pt3dadd(-17.2232555035526, -72.2312517260785, -28.9070607612743, 1.8)
    pt3dadd(-17.217849709269, -73.0766684808391, -29.44114061313, 1.8)
    pt3dadd(-17.2124439149854, -73.9220852355998, -29.9752204649856, 1.8)
    pt3dadd(-17.2070381207018, -74.7675019903604, -30.5093003168412, 1.8)
    pt3dadd(-17.2016323264182, -75.6129187451211, -31.0433801686969, 1.8)
    pt3dadd(-17.0546440508173, -76.5508360268562, -31.3554062857636, 1.8)
    pt3dadd(-16.9052109740542, -77.4903505782092, -31.6635980497108, 1.8)
    pt3dadd(-16.7557778972911, -78.4298651295624, -31.971789813658, 1.8)
    pt3dadd(-16.585437162523, -79.3701331830704, -32.2545519135909, 1.8)
    pt3dadd(-16.2815636027556, -80.3152136967482, -32.374900084914, 1.8)
    pt3dadd(-15.9776900429882, -81.260294210426, -32.4952482562371, 1.8)
    pt3dadd(-15.6738164832208, -82.2053747241037, -32.6155964275602, 1.8)
    pt3dadd(-15.627208876364, -83.0281080839894, -33.1668689325185, 1.8)
    pt3dadd(-15.5970255585651, -83.8430305967865, -33.7456523682379, 1.8)
    pt3dadd(-15.5668422407661, -84.6579531095836, -34.3244358039573, 1.8)
    pt3dadd(-15.5366589229672, -85.4728756223807, -34.9032192396767, 1.8)
    pt3dadd(-15.5298615394561, -86.0826850967934, -35.683445695942, 1.8)
    pt3dadd(-15.528498419287, -86.6448318072673, -36.5104821025209, 1.8)
    pt3dadd(-15.527135299118, -87.2069785177411, -37.3375185090997, 1.8)
    pt3dadd(-15.5257721789489, -87.7691252282149, -38.1645549156785, 1.8)
    pt3dadd(-15.5244090587798, -88.3312719386888, -38.9915913222574, 1.8)
    pt3dadd(-15.3781025212892, -89.1484649359414, -39.3655571069568, 1.8)
    pt3dadd(-15.1467496353535, -90.1153077467272, -39.4736812088074, 1.8)
    pt3dadd(-14.9153967494178, -91.082150557513, -39.581805310658, 1.8)
    pt3dadd(-14.684043863482, -92.0489933682988, -39.6899294125086, 1.8)
    pt3dadd(-14.4495509129086, -93.0149989083485, -39.798589808163, 1.8)
    pt3dadd(-14.203691198431, -93.9779736003489, -39.9091915412588, 1.8)
    pt3dadd(-13.9578314839535, -94.9409482923493, -40.0197932743546, 1.8)
    pt3dadd(-13.711971769476, -95.9039229843497, -40.1303950074504, 1.8)
    pt3dadd(-13.3516581045066, -96.8138882074765, -40.0006966799059, 1.8)
    pt3dadd(-12.9520052522433, -97.7056334441774, -39.7884043566836, 1.8)
    pt3dadd(-12.7940507582372, -98.3293532304596, -40.2405069573702, 1.8)
    pt3dadd(-12.7974439881869, -98.7741504262074, -41.1361318457277, 1.8)
    pt3dadd(-12.8008372181365, -99.2189476219552, -42.0317567340852, 1.8)
    pt3dadd(-12.8042304480862, -99.663744817703, -42.9273816224427, 1.8)
    pt3dadd(-12.8076236780358, -100.108542013451, -43.8230065108002, 1.8)
    pt3dadd(-12.8110169079855, -100.553339209199, -44.7186313991577, 1.8)
    pt3dadd(-12.4315097879981, -101.352352639389, -44.4870375448543, 1.8)
    pt3dadd(-12.0113185427618, -102.18900243541, -44.1356738639711, 1.8)
    pt3dadd(-11.5911272975255, -103.025652231432, -43.7843101830878, 1.8)
    pt3dadd(-11.3253125386882, -103.757125127994, -43.7966402694807, 1.8)
    pt3dadd(-11.4234778898364, -104.24061790578, -44.6664668600504, 1.8)
    pt3dadd(-11.5216432409846, -104.724110683567, -45.53629345062, 1.8)
    pt3dadd(-11.6198085921327, -105.207603461354, -46.4061200411896, 1.8)
    pt3dadd(-11.7179739432809, -105.691096239141, -47.2759466317592, 1.8)
    pt3dadd(-11.8161392944291, -106.174589016928, -48.1457732223289, 1.8)
    pt3dadd(-11.6360118785223, -107.131662536282, -48.2769458837699, 1.8)
    pt3dadd(-11.4446001235516, -108.107939018469, -48.3781672767128, 1.8)
    pt3dadd(-11.2700370668414, -109.064822756911, -48.5404030216607, 1.8)
    pt3dadd(-11.2015045217664, -109.899666055826, -49.0866080715479, 1.8)
    pt3dadd(-11.1329719766914, -110.734509354741, -49.6328131214351, 1.8)
    pt3dadd(-11.0644394316164, -111.569352653656, -50.1790181713224, 1.8)
    pt3dadd(-10.9923274033077, -112.409494137944, -50.7099407528921, 1.8)
    pt3dadd(-10.8278272529687, -113.386384243429, -50.84641574087, 1.8)
    pt3dadd(-10.6633271026298, -114.363274348915, -50.9828907288478, 1.8)
    pt3dadd(-10.4988269522908, -115.3401644544, -51.1193657168256, 1.8)
    pt3dadd(-10.5031022875433, -116.114835014495, -51.5853771606239, 1.8)
    pt3dadd(-10.68063716326, -116.681913427044, -52.3896802390251, 1.8)
  }
  adendMML[9] {pt3dclear()
    pt3dadd(-10.68063716326, -116.681913427044, -52.3896802390251, 1.8)
    pt3dadd(-10.8581720389767, -117.248991839592, -53.1939833174263, 1.8)
    pt3dadd(-11.0357069146934, -117.816070252141, -53.9982863958275, 1.8)
    pt3dadd(-11.1347216870533, -118.50128475249, -54.6229136541887, 1.8)
    pt3dadd(-11.0381769832677, -119.480724940994, -54.8000464781195, 1.8)
    pt3dadd(-10.9416322794822, -120.460165129498, -54.9771793020504, 1.8)
    pt3dadd(-10.8450875756966, -121.439605318002, -55.1543121259813, 1.8)
    pt3dadd(-10.7244361793481, -122.412466522369, -55.3506276082513, 1.8)
    pt3dadd(-10.5929859981355, -123.38238061841, -55.5555361150509, 1.8)
    pt3dadd(-10.461535816923, -124.352294714452, -55.7604446218506, 1.8)
    pt3dadd(-10.3055889841157, -125.32332485063, -55.9316063269774, 1.8)
    pt3dadd(-10.1005872685281, -126.296589872579, -56.0351895961753, 1.8)
    pt3dadd(-9.89558555294047, -127.269854894527, -56.1387728653731, 1.8)
    pt3dadd(-9.69058383735285, -128.243119916476, -56.2423561345709, 1.8)
    pt3dadd(-9.48787690037963, -129.12600177997, -56.5464584888582, 1.8)
    pt3dadd(-9.28929407448853, -129.846449592929, -57.2109280593154, 1.8)
    pt3dadd(-9.09071124859742, -130.566897405888, -57.8753976297725, 1.8)
    pt3dadd(-8.87666438308995, -131.292962277326, -58.4729105627048, 1.8)
    pt3dadd(-8.43493827080174, -132.101727896777, -58.0846114325006, 1.8)
    pt3dadd(-7.99321215851353, -132.910493516228, -57.6963123022964, 1.8)
    pt3dadd(-7.55148604622531, -133.719259135678, -57.3080131720923, 1.8)
    pt3dadd(-7.35498786657256, -134.322737255387, -57.7747630069158, 1.8)
    pt3dadd(-7.27011414715049, -134.832771263307, -58.630719642801, 1.8)
    pt3dadd(-7.18524042772842, -135.342805271228, -59.4866762786863, 1.8)
    pt3dadd(-7.10036670830635, -135.852839279149, -60.3426329145715, 1.8)
    pt3dadd(-7.01549298888428, -136.362873287069, -61.1985895504568, 1.8)
    pt3dadd(-6.91959352768304, -136.891243801119, -62.0421257469449, 1.8)
    pt3dadd(-6.82235060302945, -137.421848579886, -62.8841485390085, 1.8)
    pt3dadd(-6.72510767837586, -137.952453358653, -63.7261713310721, 1.8)
    pt3dadd(-6.62786475372227, -138.48305813742, -64.5681941231357, 1.8)
    pt3dadd(-6.53062182906868, -139.013662916187, -65.4102169151992, 1.8)
    pt3dadd(-6.52774613699788, -139.969753627583, -65.5449768100365, 1.8)
    pt3dadd(-6.53413018652401, -140.967594951787, -65.610336856111, 1.8)
    pt3dadd(-6.54889973478939, -141.93283108714, -65.741000947876, 1.8)
    pt3dadd(-6.64293794583021, -142.589848260191, -66.4889884138001, 1.8)
    pt3dadd(-6.73697615687103, -143.246865433243, -67.2369758797242, 1.8)
    pt3dadd(-6.83101436791185, -143.903882606295, -67.9849633456482, 1.8)
    pt3dadd(-6.92505257895267, -144.560899779346, -68.7329508115723, 1.8)
    pt3dadd(-6.84920375665867, -145.334063317704, -68.8291323730813, 1.8)
    pt3dadd(-6.63255373988848, -146.203488157752, -68.38510172353, 1.8)
    pt3dadd(-6.41590372311827, -147.0729129978, -67.9410710739788, 1.8)
    pt3dadd(-6.19925370634808, -147.942337837848, -67.4970404244275, 1.8)
    pt3dadd(-6.30933472245849, -148.668332938011, -68.1142232319833, 1.8)
    pt3dadd(-6.44024173716923, -149.385185755191, -68.7990483133001, 1.8)
    pt3dadd(-6.57114875187997, -150.102038572371, -69.483873394617, 1.8)
    pt3dadd(-6.70205576659071, -150.818891389551, -70.1686984759338, 1.8)
    pt3dadd(-6.74625434453587, -151.693596579483, -70.5078559460362, 1.8)
    pt3dadd(-6.72315679201401, -152.690814113858, -70.578733955336, 1.8)
    pt3dadd(-6.70005923949216, -153.688031648233, -70.6496119646359, 1.8)
    pt3dadd(-6.70483360938274, -154.589513929701, -70.9946581192091, 1.8)
    pt3dadd(-6.73195851958789, -155.414225954782, -71.5595601593303, 1.8)
    pt3dadd(-6.75908342979305, -156.238937979864, -72.1244621994514, 1.8)
    pt3dadd(-6.78891600242255, -157.094536359298, -72.6362992011282, 1.8)
    pt3dadd(-6.82239323761791, -157.991709470683, -73.0767077420656, 1.8)
    pt3dadd(-6.85587047281327, -158.888882582069, -73.517116283003, 1.8)
    pt3dadd(-6.88934770800862, -159.786055693454, -73.9575248239405, 1.8)
    pt3dadd(-6.93921197511454, -160.717683025253, -74.3171957565576, 1.8)
    pt3dadd(-6.98953017264547, -161.650264759229, -74.6746302099234, 1.8)
    pt3dadd(-7.06788956997668, -162.478029508848, -75.2012702483571, 1.8)
    pt3dadd(-7.16798292978867, -163.224553497673, -75.859056880503, 1.8)
    pt3dadd(-7.26807628960067, -163.971077486498, -76.516843512649, 1.8)
    pt3dadd(-7.38868889174882, -164.635302688696, -77.2404637643178, 1.8)
    pt3dadd(-7.54602336094337, -165.152243451677, -78.0819018858523, 1.8)
    pt3dadd(-7.70335783013792, -165.669184214659, -78.9233400073868, 1.8)
    pt3dadd(-7.86069229933247, -166.18612497764, -79.7647781289213, 1.8)
    pt3dadd(-8.01802676852702, -166.703065740622, -80.6062162504558, 1.8)
    pt3dadd(-8.0668957939083, -167.410151153818, -80.9605925591711, 1.8)
    pt3dadd(-7.97424020421588, -168.365335385254, -80.6794555361471, 1.8)
    pt3dadd(-7.88158461452347, -169.32051961669, -80.3983185131231, 1.8)
    pt3dadd(-7.5228907186, -170.21926632168, -80.4287595291317, 1.8)
    pt3dadd(-7.06672592375764, -171.097335491494, -80.5733562544368, 1.8)
    pt3dadd(-6.62512650410662, -171.977165526644, -80.7196989383698, 1.8)
    pt3dadd(-6.81557740049408, -172.93340660358, -80.9418058019417, 1.8)
    pt3dadd(-7.00602829688154, -173.889647680516, -81.1639126655135, 1.8)
    pt3dadd(-7.196479193269, -174.845888757451, -81.3860195290854, 1.8)
    pt3dadd(-7.20698873456534, -175.463392191231, -82.1322143434832, 1.8)
    pt3dadd(-7.1911453636266, -176.031286554455, -82.9551632968312, 1.8)
    pt3dadd(-7.17530199268786, -176.599180917678, -83.7781122501794, 1.8)
    pt3dadd(-7.12397211594781, -177.248816705958, -84.2708134458647, 1.8)
    pt3dadd(-6.9717722316742, -178.13080160766, -83.8247889752393, 1.8)
    pt3dadd(-6.81957234740059, -179.012786509362, -83.3787645046138, 1.8)
  }
  adendMML[10] {pt3dclear()
    pt3dadd(-6.81957234740059, -179.012786509362, -83.3787645046138, 1.64693418563208)
    pt3dadd(-6.61817710633583, -179.622798147453, -84.0919964569338, 1.64693418563208)
    pt3dadd(-6.41405840807143, -180.217753333243, -84.8694048977934, 1.48539464078732)
    pt3dadd(-6.19148177439127, -180.868563326543, -85.5408511833018, 1.35)
    pt3dadd(-5.87331842408745, -181.808624394633, -85.6635592546903, 1.35)
    pt3dadd(-5.647920968888, -182.681107525954, -85.9730539957347, 1.35)
    pt3dadd(-5.60044874645882, -183.423975995371, -86.6408060644268, 1.35)
    pt3dadd(-5.55297652402964, -184.166844464789, -87.3085581331189, 1.35)
    pt3dadd(-5.50550430160045, -184.909712934207, -87.976310201811, 1.35)
    pt3dadd(-5.3485050944002, -185.865252371765, -88.1339443492855, 1.35)
    pt3dadd(-5.17858565313527, -186.845879313492, -88.2314029796808, 1.35)
    pt3dadd(-5.02072164427108, -187.828542941528, -88.3267240865823, 1.35)
    pt3dadd(-4.89142397212332, -188.816032664965, -88.4169801560938, 1.35)
    pt3dadd(-4.76212629997556, -189.803522388401, -88.5072362256053, 1.35)
    pt3dadd(-4.63797670367139, -190.74670756339, -88.4642796898245, 1.35)
    pt3dadd(-4.53812450406746, -191.480788361911, -87.7925990220392, 1.35)
    pt3dadd(-4.43827230446353, -192.214869160432, -87.1209183542538, 1.35)
    pt3dadd(-4.25425152821215, -192.995605738672, -87.5814265764154, 1.35)
    pt3dadd(-4.06080945862897, -193.78156466715, -88.1686647976344, 1.35)
    pt3dadd(-3.86736738904578, -194.567523595629, -88.7559030188534, 1.35)
    pt3dadd(-3.68191652444477, -195.364428456407, -89.3164525507534, 1.35)
    pt3dadd(-3.64215880090653, -196.360896119311, -89.3904222756787, 1.35)
    pt3dadd(-3.60240107736829, -197.357363782215, -89.4643920006039, 1.35)
    pt3dadd(-3.56264335383004, -198.353831445119, -89.5383617255291, 1.35)
    pt3dadd(-3.55116582933351, -199.3505077352, -89.6070123504925, 1.35)
    pt3dadd(-3.60087673536979, -200.347635421306, -89.6641543089845, 1.35)
    pt3dadd(-3.65058764140607, -201.344763107413, -89.7212962674765, 1.35)
    pt3dadd(-3.70933292628668, -202.293378937439, -89.8910403948635, 1.35)
    pt3dadd(-3.80864308840715, -203.024173761668, -90.5663746947326, 1.35)
    pt3dadd(-3.90795325052763, -203.754968585897, -91.2417089946017, 1.35)
    pt3dadd(-4.00726341264811, -204.485763410126, -91.9170432944708, 1.35)
    pt3dadd(-4.07849250778811, -205.247403583251, -92.5557822001034, 1.35)
    pt3dadd(-4.08731379754323, -206.077594945413, -93.113190925402, 1.35)
    pt3dadd(-4.09613508729834, -206.907786307574, -93.6705996507005, 1.35)
    pt3dadd(-4.10495637705345, -207.737977669736, -94.228008375999, 1.35)
    pt3dadd(-4.19999613297817, -208.7120408413, -94.3968436605831, 1.35)
    pt3dadd(-4.30161244098768, -209.697078233238, -94.5360394307435, 1.35)
    pt3dadd(-4.40322874899719, -210.682115625176, -94.6752352009039, 1.35)
    pt3dadd(-4.30385178378222, -211.672228291588, -94.7639930047367, 1.35)
    pt3dadd(-4.19547869055925, -212.662568118931, -94.8504932882343, 1.35)
    pt3dadd(-4.09818362216442, -213.631554524383, -94.9766594819482, 1.35)
    pt3dadd(-4.18456062137321, -214.246504248238, -95.7604807952201, 1.35)
    pt3dadd(-4.27093762058201, -214.861453972092, -96.544302108492, 1.35)
    pt3dadd(-4.3573146197908, -215.476403695946, -97.3281234217639, 1.35)
    pt3dadd(-4.44273990072003, -216.096289930925, -98.1032180668133, 1.35)
    pt3dadd(-4.37610428108179, -217.074986762868, -98.2211937997182, 1.35)
    pt3dadd(-4.02222766937467, -218.001404965296, -98.349726511109, 1.35)
    pt3dadd(-3.66835105766756, -218.927823167723, -98.4782592224998, 1.35)
    pt3dadd(-3.59274901902713, -219.650972796891, -99.1470429023852, 1.35)
    pt3dadd(-3.53345702421367, -220.362208583907, -99.8474914119982, 1.35)
    pt3dadd(-3.4741650294002, -221.073444370923, -100.547939921611, 1.35)
    pt3dadd(-3.41487303458674, -221.784680157938, -101.248388431224, 1.35)
    pt3dadd(-3.38472873118835, -222.657219558972, -101.705633792258, 1.35)
    pt3dadd(-3.36430741484076, -223.583566066991, -102.081752280131, 1.35)
    pt3dadd(-3.34388609849316, -224.509912575009, -102.457870768004, 1.35)
    pt3dadd(-3.3331437953222, -225.401739327868, -102.887230108425, 1.35)
    pt3dadd(-3.36981165984429, -226.124479899005, -103.577376132498, 1.35)
    pt3dadd(-3.40647952436639, -226.847220470141, -104.267522156572, 1.35)
    pt3dadd(-3.44314738888848, -227.569961041278, -104.957668180646, 1.35)
    pt3dadd(-3.36854851761465, -228.371676408719, -105.253202543932, 1.35)
    pt3dadd(-3.12523478108524, -229.293142050328, -104.950383295946, 1.35)
    pt3dadd(-2.88192104455585, -230.214607691937, -104.647564047961, 1.35)
    pt3dadd(-2.76135532998847, -230.941317320616, -105.160205028668, 1.35)
    pt3dadd(-2.67405189103104, -231.615251938543, -105.89381953255, 1.35)
    pt3dadd(-2.58674845207359, -232.28918655647, -106.627434036431, 1.35)
    pt3dadd(-2.45174518952243, -232.989996767123, -107.284116198762, 1.35)
    pt3dadd(-1.99892143099238, -233.869877120317, -107.428203699175, 1.35)
  }
  adendOML[5] {pt3dclear()
    pt3dadd(-1.99892143099238, -233.869877120317, -107.428203699175, 1.35)
    pt3dadd(-1.54609767246233, -234.74975747351, -107.572291199588, 1.35)
    pt3dadd(-1.50331500265045, -235.710842467407, -107.794466208171, 1.35)
    pt3dadd(-1.51851244350975, -236.642330263704, -108.082454804752, 1.35)
    pt3dadd(-1.54428779181356, -237.145599966031, -108.946199696569, 1.35)
    pt3dadd(-1.57006314011736, -237.648869668357, -109.809944588386, 1.35)
    pt3dadd(-1.59583848842117, -238.152139370684, -110.673689480203, 1.35)
    pt3dadd(-1.46819315081467, -238.820450937123, -111.123499822716, 1.35)
    pt3dadd(-1.1093398406968, -239.73748381878, -110.949502708436, 1.35)
    pt3dadd(-0.762565208119204, -240.650040015853, -110.807038598543, 1.35)
    pt3dadd(-0.693666907316885, -241.459607728754, -111.390007845052, 1.35)
    pt3dadd(-0.624768606514559, -242.269175441654, -111.972977091562, 1.35)
    pt3dadd(-0.555870305712226, -243.078743154554, -112.555946338071, 1.35)
    pt3dadd(-0.490686545347842, -243.743483717886, -113.291743238338, 1.35)
    pt3dadd(-0.426547663088494, -244.367485266493, -114.070529647515, 1.35)
    pt3dadd(-0.36240878082916, -244.991486815099, -114.849316056692, 1.35)
    pt3dadd(-0.29826989856981, -245.615488363706, -115.628102465869, 1.35)
    pt3dadd(-0.0594200762307455, -245.899070591539, -114.914613859349, 1.35)
    pt3dadd(0.205450272597259, -246.131952560134, -113.978873677988, 1.35)
    pt3dadd(0.426132606960604, -246.434560471031, -113.431910705241, 1.35)
  }
  adendOML[6] {pt3dclear()
    pt3dadd(0.426132606960604, -246.434560471031, -113.431910705241, 1.35)
    pt3dadd(0.641990078504639, -246.840126792055, -114.329240833965, 1.35)
    pt3dadd(0.830598017722661, -247.271363012884, -115.211545977954, 1.35)
    pt3dadd(1.01920595694068, -247.702599233713, -116.093851121942, 1.35)
    pt3dadd(1.2078138961587, -248.133835454542, -116.976156265931, 1.35)
    pt3dadd(1.36551397578953, -249.072825321262, -117.248890430697, 1.35)
    pt3dadd(1.52228022882495, -250.027156071005, -117.503207480859, 1.35)
    pt3dadd(1.6532315366582, -250.927792114232, -117.830890310986, 1.35)
    pt3dadd(1.5982588023003, -251.441708882954, -118.68696714942, 1.35)
    pt3dadd(1.54328606794241, -251.955625651676, -119.543043987854, 1.35)
    pt3dadd(1.48831333358451, -252.469542420398, -120.399120826289, 1.35)
  }
}
proc shape3d_11() {
  adendOML[6] {
    pt3dadd(1.43334059922663, -252.98345918912, -121.255197664723, 1.35)
    pt3dadd(1.47833229873528, -253.78899502159, -121.640216285624, 1.35)
    pt3dadd(1.58667449739223, -254.779338715565, -121.726711001028, 1.35)
    pt3dadd(1.7331652074346, -255.763919529555, -121.740259200291, 1.35)
    pt3dadd(1.9298367001377, -256.740919816348, -121.657853110923, 1.35)
    pt3dadd(2.12650819284083, -257.71792010314, -121.575447021555, 1.35)
    pt3dadd(2.25786873757632, -258.445486007157, -122.139174769526, 1.35)
    pt3dadd(2.37092991800762, -259.103163312363, -122.883941667082, 1.35)
    pt3dadd(2.48399109843892, -259.76084061757, -123.628708564639, 1.35)
    pt3dadd(2.59705227887023, -260.418517922776, -124.373475462195, 1.35)
    pt3dadd(2.69500492637215, -261.210422976679, -124.853057162821, 1.35)
    pt3dadd(2.77021967589909, -262.204336847025, -124.933542936632, 1.35)
    pt3dadd(2.80761745650086, -263.199857584426, -125.007004461319, 1.35)
    pt3dadd(2.79032591913314, -264.197702105717, -125.070307810862, 1.35)
    pt3dadd(2.77303438176543, -265.195546627009, -125.133611160405, 1.35)
    pt3dadd(2.76296479330882, -266.165674438752, -125.132999463306, 1.35)
    pt3dadd(2.83938809398355, -266.803856079788, -124.366916130921, 1.35)
    pt3dadd(2.91581139465829, -267.442037720824, -123.600832798535, 1.35)
    pt3dadd(2.99223469533303, -268.080219361859, -122.83474946615, 1.35)
    pt3dadd(3.06865799600778, -268.718401002895, -122.068666133764, 1.35)
    pt3dadd(3.16288183977553, -269.333431085899, -121.287294286236, 1.35)
    pt3dadd(3.2950774854931, -269.899074677052, -120.473309250107, 1.35)
    pt3dadd(3.42727313121067, -270.464718268204, -119.659324213979, 1.35)
    pt3dadd(3.55946877692824, -271.030361859357, -118.84533917785, 1.35)
    pt3dadd(3.69166442264581, -271.596005450509, -118.031354141722, 1.35)
    pt3dadd(3.72401115914757, -272.217900565046, -117.296270635965, 1.35)
    pt3dadd(3.38577048767719, -273.048572184091, -116.854028723121, 1.35)
    pt3dadd(3.04752981620681, -273.879243803137, -116.411786810278, 1.35)
    pt3dadd(2.8579285772251, -274.478735290808, -115.723634743557, 1.35)
    pt3dadd(2.81160992863316, -274.855378187661, -114.798434921334, 1.35)
    pt3dadd(2.76529128004121, -275.232021084514, -113.87323509911, 1.35)
    pt3dadd(2.71897263144926, -275.608663981367, -112.948035276886, 1.35)
    pt3dadd(2.17786518764213, -275.659930007957, -112.949222551633, 1.35)
    pt3dadd(1.34837912845801, -275.521556066484, -113.490337631759, 1.35)
    pt3dadd(0.518893069273883, -275.383182125011, -114.031452711886, 1.35)
  }
  adendOML[7] {pt3dclear()
    pt3dadd(0.426132606960604, -246.434560471031, -113.431910705241, 1.35)
    pt3dadd(0.342118969425313, -247.122614624593, -114.163896387587, 1.35)
    pt3dadd(0.324665278828533, -247.796699395466, -114.63710145356, 1.35)
    pt3dadd(0.472030618993672, -248.51984159576, -113.962306066297, 1.35)
    pt3dadd(0.619395959158815, -249.242983796055, -113.287510679035, 1.35)
    pt3dadd(0.271838537765301, -249.969654061285, -112.968847300648, 1.35)
    pt3dadd(-0.407993175281009, -250.698692949195, -112.889278827922, 1.35)
  }
  adendMML[11] {pt3dclear()
    pt3dadd(-6.81957234740059, -179.012786509362, -83.3787645046138, 1.8)
    pt3dadd(-7.08669030852352, -179.754419379202, -83.9372807603839, 1.8)
    pt3dadd(-7.37702172472585, -180.488282354146, -84.5514084366638, 1.8)
    pt3dadd(-7.66735314092817, -181.22214532909, -85.1655361129438, 1.8)
    pt3dadd(-7.9576845571305, -181.956008304033, -85.7796637892237, 1.8)
    pt3dadd(-8.25363424994475, -182.723837955668, -86.2955461516156, 1.8)
    pt3dadd(-8.57898669656027, -183.669429205952, -86.2972703520112, 1.8)
    pt3dadd(-8.9043391431758, -184.615020456236, -86.2989945524069, 1.8)
    pt3dadd(-9.22969158979131, -185.560611706521, -86.3007187528025, 1.8)
    pt3dadd(-9.50750244399613, -186.519967248288, -86.3123264284652, 1.8)
    pt3dadd(-9.74195238168505, -187.491876687887, -86.332948453968, 1.8)
    pt3dadd(-9.97640231937397, -188.463786127486, -86.3535704794708, 1.8)
    pt3dadd(-10.2108522570629, -189.435695567085, -86.3741925049736, 1.8)
    pt3dadd(-10.3807551382008, -190.419874457652, -86.3306905482016, 1.8)
    pt3dadd(-10.5458143398794, -191.404974060808, -86.282376659912, 1.8)
    pt3dadd(-10.7108735415581, -192.390073663965, -86.2340627716224, 1.8)
    pt3dadd(-10.9768128461134, -193.34997758975, -86.215514458289, 1.8)
    pt3dadd(-11.3075761310609, -194.293691166306, -86.2160930390834, 1.8)
    pt3dadd(-11.6383394160083, -195.237404742861, -86.2166716198778, 1.8)
    pt3dadd(-11.9691027009558, -196.181118319416, -86.2172502006722, 1.8)
    pt3dadd(-12.1214469584363, -197.15899624562, -86.2537536782022, 1.8)
    pt3dadd(-12.1738222375029, -198.156016609606, -86.3103860359155, 1.8)
    pt3dadd(-12.2287426226765, -199.146609725364, -86.383987265204, 1.8)
    pt3dadd(-12.3616839616885, -199.940173712986, -86.9777740938988, 1.8)
    pt3dadd(-12.4946253007005, -200.733737700607, -87.5715609225936, 1.8)
    pt3dadd(-12.6275666397125, -201.527301688229, -88.1653477512885, 1.8)
    pt3dadd(-12.4215234242805, -202.467829095484, -88.3359739310967, 1.8)
    pt3dadd(-12.1683867595018, -203.428773404534, -88.4478124926417, 1.8)
    pt3dadd(-11.9152500947231, -204.389717713585, -88.5596510541865, 1.8)
    pt3dadd(-11.6927355507105, -205.341518059211, -88.7270251457498, 1.8)
    pt3dadd(-11.5936583004555, -206.25645923013, -89.1182620972769, 1.8)
    pt3dadd(-11.4945810502006, -207.171400401048, -89.5094990488041, 1.8)
    pt3dadd(-11.3955037999456, -208.086341571967, -89.9007360003312, 1.8)
    pt3dadd(-11.2964265496907, -209.001282742885, -90.2919729518583, 1.8)
    pt3dadd(-11.1903553193536, -209.829562113363, -89.9765454210567, 1.8)
    pt3dadd(-11.0814805078416, -210.623102552725, -89.3778469606316, 1.8)
    pt3dadd(-10.9726056963296, -211.416642992087, -88.7791485002066, 1.8)
    pt3dadd(-10.8637308848175, -212.210183431449, -88.1804500397815, 1.8)
    pt3dadd(-10.8113836080271, -213.007034044906, -87.9177744632246, 1.8)
    pt3dadd(-10.9018137354465, -213.812245505286, -88.5038264200747, 1.8)
    pt3dadd(-10.9922438628659, -214.617456965666, -89.0898783769247, 1.8)
    pt3dadd(-11.0605055448172, -215.438878500636, -89.6312712238437, 1.8)
    pt3dadd(-10.9069669227142, -216.422485493224, -89.7258395888307, 1.8)
    pt3dadd(-10.7534283006111, -217.406092485811, -89.8204079538177, 1.8)
    pt3dadd(-10.5998896785081, -218.389699478398, -89.9149763188048, 1.8)
    pt3dadd(-10.6642537706835, -219.330617385881, -90.2043036497047, 1.8)
    pt3dadd(-10.7956121725469, -220.258410510604, -90.5535097320927, 1.8)
    pt3dadd(-10.9269705744102, -221.186203635327, -90.9027158144808, 1.8)
    pt3dadd(-11.0583289762736, -222.11399676005, -91.2519218968688, 1.8)
    pt3dadd(-11.1786356391061, -223.034790385982, -91.622353059653, 1.8)
    pt3dadd(-11.2910103017751, -223.950560365827, -92.0080177834817, 1.8)
    pt3dadd(-11.4033849644441, -224.866330345671, -92.3936825073104, 1.8)
    pt3dadd(-11.4922261627978, -225.78594238735, -92.773974744211, 1.8)
    pt3dadd(-11.5102148005327, -226.717121783305, -93.1380919526227, 1.8)
    pt3dadd(-11.5282034382675, -227.64830117926, -93.5022091610344, 1.8)
    pt3dadd(-11.5461920760024, -228.579480575215, -93.866326369446, 1.8)
    pt3dadd(-11.5493495552466, -229.368766267444, -93.4603082609305, 1.8)
    pt3dadd(-11.5473776415176, -230.108977670074, -92.7879369416637, 1.8)
    pt3dadd(-11.5454057277886, -230.849189072704, -92.115565622397, 1.8)
    pt3dadd(-11.5612856291915, -231.602289936687, -91.5558263768708, 1.8)
    pt3dadd(-11.738837048492, -232.472121719419, -92.0161177663773, 1.8)
    pt3dadd(-11.9163884677925, -233.34195350215, -92.4764091558839, 1.8)
  }
  adendOML[8] {pt3dclear()
    pt3dadd(-11.9163884677925, -233.34195350215, -92.4764091558839, 1.8)
    pt3dadd(-12.0939398870929, -234.211785284882, -92.9367005453905, 1.8)
    pt3dadd(-12.3169095818812, -235.160543354921, -93.0554948903124, 1.8)
    pt3dadd(-12.5529800177699, -236.132067433686, -93.0757856192419, 1.8)
    pt3dadd(-12.7890504536587, -237.10359151245, -93.0960763481715, 1.8)
    pt3dadd(-13.0462454930063, -238.062909448809, -93.0709411922002, 1.8)
    pt3dadd(-13.4061578180945, -238.962875652502, -92.8249250332576, 1.8)
    pt3dadd(-13.7660701431827, -239.862841856195, -92.578908874315, 1.8)
    pt3dadd(-14.1259824682709, -240.762808059887, -92.3328927153724, 1.8)
    pt3dadd(-14.4710818438549, -241.664293428887, -92.0719735338803, 1.8)
    pt3dadd(-14.8111171653332, -242.566298149911, -91.805959505308, 1.8)
    pt3dadd(-15.1511524868115, -243.468302870935, -91.5399454767357, 1.8)
    pt3dadd(-15.4713183612482, -244.35309736244, -91.2046977101731, 1.8)
    pt3dadd(-15.783363508206, -245.230857959972, -90.8411538205532, 1.8)
    pt3dadd(-16.0954086551638, -246.108618557504, -90.4776099309334, 1.8)
    pt3dadd(-16.4074538021216, -246.986379155037, -90.1140660413135, 1.8)
    pt3dadd(-16.716094630894, -247.858910731331, -89.7420611727497, 1.8)
    pt3dadd(-16.8694325289409, -248.492897530432, -88.9840715767867, 1.8)
    pt3dadd(-17.0227704269878, -249.126884329533, -88.2260819808237, 1.8)
    pt3dadd(-17.1761083250347, -249.760871128634, -87.4680923848607, 1.8)
    pt3dadd(-17.5175726450672, -250.465957140379, -87.007494951164, 1.8)
    pt3dadd(-18.1131623964896, -251.267085578774, -86.9486215854114, 1.8)
    pt3dadd(-18.7087521479119, -252.06821401717, -86.8897482196588, 1.8)
    pt3dadd(-19.2094433487342, -252.849858741176, -87.2049870273619, 1.8)
    pt3dadd(-19.6853754157474, -253.626420143166, -87.6178321030604, 1.8)
    pt3dadd(-20.1613074827606, -254.402981545155, -88.0306771787588, 1.8)
    pt3dadd(-20.4954573274419, -255.252746163529, -88.3255575165959, 1.8)
    pt3dadd(-20.5441113864112, -256.249914380425, -88.3829014766831, 1.8)
    pt3dadd(-20.5927654453804, -257.247082597321, -88.4402454367702, 1.8)
    pt3dadd(-20.779526332549, -258.195753799896, -88.6575487942168, 1.8)
    pt3dadd(-21.0189377127541, -259.125936476247, -88.9358335039008, 1.8)
    pt3dadd(-21.2583490929592, -260.056119152599, -89.2141182135847, 1.8)
    pt3dadd(-21.5296935357766, -261.00529424921, -89.3097156181984, 1.8)
    pt3dadd(-21.8160144298501, -261.963376698672, -89.3196335641049, 1.8)
    pt3dadd(-22.0030587184454, -262.940793919774, -89.2466235565721, 1.8)
    pt3dadd(-22.1649190096388, -263.923115889949, -89.1525767966856, 1.8)
    pt3dadd(-22.2717189426852, -264.909341190001, -89.1307167830158, 1.8)
    pt3dadd(-22.2753328013733, -265.902881540305, -89.2441386166397, 1.8)
    pt3dadd(-22.2789466600614, -266.896421890609, -89.3575604502636, 1.8)
    pt3dadd(-22.2825605187495, -267.889962240913, -89.4709822838876, 1.8)
    pt3dadd(-22.2529756633271, -268.88255467574, -89.5764193266855, 1.8)
    pt3dadd(-22.1446334646701, -269.872898369716, -89.6629140420897, 1.8)
    pt3dadd(-22.0950164019428, -270.850915089995, -89.7106920918281, 1.8)
    pt3dadd(-22.4915021889493, -271.735290509875, -89.4643607348829, 1.8)
    pt3dadd(-22.8778657997593, -272.60319383292, -89.3215990487387, 1.8)
    pt3dadd(-23.1939369583592, -273.356708307459, -89.8980667055608, 1.8)
    pt3dadd(-23.5100081169591, -274.110222781998, -90.4745343623829, 1.8)
    pt3dadd(-23.8426162219777, -274.856330048839, -91.0062813358647, 1.8)
    pt3dadd(-24.5299376569435, -275.443554578729, -90.5787809305639, 1.8)
    pt3dadd(-25.2172590919093, -276.030779108619, -90.1512805252631, 1.8)
    pt3dadd(-25.9045805268752, -276.618003638508, -89.7237801199623, 1.8)
  }
  GCL[4] {pt3dclear()
    pt3dadd(-3.79968836941942, 16.8780033792322, -1.17939981943435, 2.15674885469498)
    pt3dadd(-3.34014065174264, 16.2981452390417, -0.645392477864163, 2.15674885469498)
    pt3dadd(-2.78288262654583, 15.815224757576, 0.0300712901757228, 2.04180023234284)
    pt3dadd(-2.22562460134901, 15.3323042761103, 0.705535058215608, 1.9268516099907)
    pt3dadd(-1.66836657615219, 14.8493837946445, 1.38099882625549, 1.81190298763856)
    pt3dadd(-1.31494290542941, 13.9605152024424, 1.33921859806785, 1.8)
    pt3dadd(-0.985064509655567, 13.0247548097538, 1.21458821863742, 1.8)
    pt3dadd(-0.655186113881722, 12.0889944170652, 1.08995783920698, 1.8)
    pt3dadd(-0.324208880831188, 11.1540940537433, 0.975393497600596, 1.8)
    pt3dadd(0.0417788064367208, 10.2465953989416, 1.18154684901977, 1.8)
    pt3dadd(0.407766493704633, 9.33909674413987, 1.38770020043894, 1.8)
    pt3dadd(0.773754180972542, 8.43159808933815, 1.59385355185811, 1.8)
    pt3dadd(1.14847793503614, 7.53067134005897, 1.81026620122382, 1.8)
    pt3dadd(1.56512735366055, 6.66128412829795, 2.07591472462706, 1.8)
    pt3dadd(1.98177677228496, 5.79189691653692, 2.34156324803031, 1.8)
    pt3dadd(2.39842619090937, 4.92250970477589, 2.60721177143356, 1.8)
    pt3dadd(2.58788420064771, 4.15988107536015, 2.0039967090739, 1.8)
    pt3dadd(2.77216617516699, 3.39968469540694, 1.38098658253234, 1.8)
    pt3dadd(2.95644814968627, 2.63948831545373, 0.757976455990791, 1.8)
    pt3dadd(3.14073012420555, 1.87929193550053, 0.134966329449238, 1.8)
    pt3dadd(3.32501209872483, 1.11909555554732, -0.488043797092315, 1.8)
    pt3dadd(3.53293433348833, 0.343874913387134, -1.01169501787408, 1.8)
  }
  adendIML[10] {pt3dclear()
    pt3dadd(3.53293433348833, 0.343874913387134, -1.01169501787408, 1.8)
    pt3dadd(3.92185166325565, -0.546374824790781, -0.774632337806542, 1.8)
    pt3dadd(4.31076899302297, -1.4366245629687, -0.537569657739001, 1.8)
    pt3dadd(4.69968632279029, -2.32687430114662, -0.300506977671459, 1.8)
    pt3dadd(5.08860365255761, -3.21712403932452, -0.0634442976039176, 1.8)
    pt3dadd(5.57414938587583, -4.03883067453935, 0.206426513537156, 1.8)
    pt3dadd(6.16336823786811, -4.7869970567163, 0.51149733980078, 1.8)
    pt3dadd(6.75258708986038, -5.53516343889325, 0.816568166064404, 1.8)
    pt3dadd(7.34180594185265, -6.2833298210702, 1.12163899232803, 1.8)
    pt3dadd(7.88014914632311, -6.99990636736493, 1.3000155465906, 1.8)
    pt3dadd(7.99131858581246, -7.45124109785478, 0.414612634478105, 1.8)
    pt3dadd(8.10248802530181, -7.90257582834464, -0.470790277634387, 1.8)
    pt3dadd(8.21365746479116, -8.35391055883448, -1.35619318974688, 1.8)
    pt3dadd(8.38418237282761, -8.79784474790669, -1.9333369995639, 1.8)
    pt3dadd(8.82002619371497, -9.20869852077631, -1.13256278599735, 1.8)
    pt3dadd(9.25587001460232, -9.61955229364592, -0.331788572430809, 1.8)
    pt3dadd(9.69171383548968, -10.0304060665155, 0.468985641135734, 1.8)
    pt3dadd(10.127557656377, -10.4412598393851, 1.26975985470228, 1.8)
    pt3dadd(10.5634014772644, -10.8521136122547, 2.07053406826882, 1.8)
    pt3dadd(10.9108077321533, -11.3502270870013, 2.13657016168283, 1.8)
    pt3dadd(11.158379922811, -11.9468449765133, 1.37318617945164, 1.8)
    pt3dadd(11.4059521134688, -12.5434628660253, 0.609802197220448, 1.8)
    pt3dadd(11.6535243041266, -13.1400807555373, -0.153581785010744, 1.8)
    pt3dadd(11.9010964947844, -13.7366986450493, -0.916965767241935, 1.8)
    pt3dadd(12.1486686854422, -14.3333165345613, -1.68034974947313, 1.8)
    pt3dadd(12.6411199182308, -15.0820728901943, -1.99598626501095, 1.8)
    pt3dadd(13.217528432365, -15.8829902306648, -2.15811164416987, 1.8)
    pt3dadd(13.7939369464991, -16.6839075711352, -2.3202370233288, 1.8)
    pt3dadd(14.3656059543307, -17.4803481647256, -2.42555375356885, 1.8)
    pt3dadd(14.8969998340781, -18.2387464934701, -2.04812492647086, 1.8)
    pt3dadd(15.4283937138254, -18.9971448222146, -1.67069609937288, 1.8)
    pt3dadd(15.9597875935728, -19.7555431509591, -1.29326727227489, 1.8)
    pt3dadd(16.4911814733202, -20.5139414797037, -0.915838445176908, 1.8)
    pt3dadd(17.0320681543355, -21.2725748711309, -0.562963318341112, 1.8)
    pt3dadd(17.6742601185108, -22.0337168046591, -0.472120387005219, 1.8)
    pt3dadd(18.3164520826861, -22.7948587381873, -0.381277455669326, 1.8)
    pt3dadd(18.9586440468613, -23.5560006717154, -0.290434524333433, 1.8)
    pt3dadd(19.6008360110366, -24.3171426052436, -0.199591592997541, 1.8)
    pt3dadd(20.2272224072094, -25.0801131068795, -0.330407983501215, 1.8)
    pt3dadd(20.8509194418482, -25.8433947444853, -0.498940326618237, 1.8)
    pt3dadd(21.474616476487, -26.6066763820912, -0.667472669735259, 1.8)
    pt3dadd(22.0983135111258, -27.369958019697, -0.836005012852282, 1.8)
    pt3dadd(22.542238424456, -28.2167281393314, -0.568482657426866, 1.8)
    pt3dadd(22.9749249768348, -29.0687174981308, -0.27370056861704, 1.8)
    pt3dadd(23.4076115292135, -29.9207068569303, 0.0210815201927852, 1.8)
    pt3dadd(23.8402980815923, -30.7726962157297, 0.315863609002611, 1.8)
    pt3dadd(24.2657432410816, -31.6106430317488, 0.656247926960183, 1.8)
    pt3dadd(24.6881414058427, -32.4426811014153, 1.01582050799513, 1.8)
    pt3dadd(25.1105395706037, -33.2747191710818, 1.37539308903007, 1.8)
    pt3dadd(25.5197211668773, -34.0879192078519, 1.64902258482516, 1.8)
    pt3dadd(25.7679432811506, -34.6716981191786, 0.875984445613438, 1.8)
    pt3dadd(26.0161653954238, -35.2554770305053, 0.102946306401714, 1.8)
    pt3dadd(26.2643875096971, -35.8392559418321, -0.67009183281001, 1.8)
    pt3dadd(26.5126096239704, -36.4230348531587, -1.44312997202174, 1.8)
    pt3dadd(26.7608317382436, -37.0068137644855, -2.21616811123346, 1.8)
    pt3dadd(27.0090538525169, -37.5905926758121, -2.98920625044518, 1.8)
    pt3dadd(27.411710240836, -38.3978703345937, -3.28750951806581, 1.8)
    pt3dadd(27.864533999366, -39.2777506877869, -3.43159701847874, 1.8)
    pt3dadd(28.2252755622286, -40.1990136796205, -3.48442317113423, 1.8)
    pt3dadd(28.4947844631955, -41.161277521315, -3.44682993680889, 1.8)
    pt3dadd(28.7642933641623, -42.1235413630094, -3.40923670248355, 1.8)
    pt3dadd(29.0338022651292, -43.0858052047039, -3.3716434681582, 1.8)
    pt3dadd(29.5144571755652, -43.9182018996017, -3.10443961236117, 1.8)
    pt3dadd(30.0037834306256, -44.7452652103259, -2.82780610722723, 1.8)
    pt3dadd(30.4931096856859, -45.57232852105, -2.55117260209328, 1.8)
    pt3dadd(30.9824359407463, -46.3993918317741, -2.27453909695934, 1.8)
    pt3dadd(31.4391910060627, -47.1693343535962, -2.57210552904463, 1.8)
    pt3dadd(31.8852182611801, -47.9204632862748, -3.05879332854818, 1.8)
    pt3dadd(32.3312455162976, -48.6715922189534, -3.54548112805173, 1.8)
    pt3dadd(32.7915544624263, -49.426983948792, -3.6681569403579, 1.8)
    pt3dadd(33.2736474188988, -50.1888777670286, -3.2356015207265, 1.8)
  }
  adendIML[11] {pt3dclear()
    pt3dadd(33.2736474188988, -50.1888777670286, -3.2356015207265, 1.8)
  }
}
proc shape3d_12() {
  adendIML[11] {
    pt3dadd(33.6095658792276, -50.9859519801453, -3.52353014564364, 1.8)
    pt3dadd(33.8999001317363, -51.7939971250847, -4.03614019778858, 1.8)
    pt3dadd(34.1902343842449, -52.6020422700242, -4.54875024993351, 1.8)
    pt3dadd(34.4805686367535, -53.4100874149636, -5.06136030207845, 1.8)
    pt3dadd(34.7709028892622, -54.2181325599031, -5.57397035422339, 1.8)
    pt3dadd(35.0974986938632, -55.0501461689868, -5.93867397486863, 1.8)
    pt3dadd(35.5279702252973, -55.9508204252403, -5.87968122322059, 1.8)
    pt3dadd(35.9584417567313, -56.8514946814938, -5.82068847157255, 1.8)
    pt3dadd(36.3889132881653, -57.7521689377473, -5.76169571992451, 1.8)
    pt3dadd(36.8193848195993, -58.6528431940009, -5.70270296827647, 1.8)
    pt3dadd(37.0839882090164, -59.4203599620953, -6.23764825310082, 1.8)
    pt3dadd(37.3257802128763, -60.1695639501388, -6.85427618886852, 1.8)
    pt3dadd(37.5675722167363, -60.9187679381822, -7.47090412463623, 1.8)
    pt3dadd(37.8093642205962, -61.6679719262257, -8.08753206040393, 1.8)
    pt3dadd(38.0200657458689, -62.3901207417941, -8.74298432804686, 1.8)
    pt3dadd(38.1872407978311, -63.0743924870774, -9.45279041467085, 1.8)
    pt3dadd(38.3544158497932, -63.7586642323606, -10.1625965012948, 1.8)
    pt3dadd(38.5215909017553, -64.4429359776439, -10.8724025879188, 1.8)
    pt3dadd(38.6887659537175, -65.1272077229271, -11.5822086745428, 1.8)
    pt3dadd(38.8559410056796, -65.8114794682104, -12.2920147611668, 1.8)
    pt3dadd(39.1298942910132, -66.6476501890316, -12.7246176458528, 1.8)
    pt3dadd(39.4408958247751, -67.5365244506783, -13.0610408807516, 1.8)
    pt3dadd(39.7518973585371, -68.425398712325, -13.3974641156505, 1.8)
    pt3dadd(40.062898892299, -69.3142729739716, -13.7338873505493, 1.8)
    pt3dadd(40.373900426061, -70.2031472356183, -14.0703105854481, 1.8)
    pt3dadd(40.7789837579387, -71.0854585866993, -14.281026752049, 1.8)
    pt3dadd(41.2337156169639, -71.964306580894, -14.4254052112716, 1.8)
    pt3dadd(41.6884474759891, -72.8431545750886, -14.5697836704943, 1.8)
    pt3dadd(42.0746437111977, -73.637804375323, -14.8899270322838, 1.8)
    pt3dadd(42.2731329088356, -74.2018501089866, -15.6914595947894, 1.8)
    pt3dadd(42.4716221064736, -74.7658958426503, -16.492992157295, 1.8)
    pt3dadd(42.6701113041116, -75.329941576314, -17.2945247198006, 1.8)
    pt3dadd(42.8686005017496, -75.8939873099777, -18.0960572823063, 1.8)
    pt3dadd(43.2311415628838, -76.5774100587909, -18.5975546445133, 1.8)
    pt3dadd(43.7812605051607, -77.3973292001577, -18.7559899656021, 1.8)
    pt3dadd(44.3313794474376, -78.2172483415245, -18.914425286691, 1.8)
    pt3dadd(44.8814983897146, -79.0371674828912, -19.0728606077798, 1.8)
    pt3dadd(45.3743412959583, -79.8887900193735, -19.2283275564946, 1.8)
    pt3dadd(45.7648219025354, -80.7970720710042, -19.3784895043132, 1.8)
    pt3dadd(46.1553025091124, -81.705354122635, -19.5286514521318, 1.8)
    pt3dadd(46.5457831156894, -82.6136361742657, -19.6788133999503, 1.8)
    pt3dadd(46.9571071878522, -83.4178996201161, -20.0416690014791, 1.8)
    pt3dadd(47.3877309050538, -84.1258488440942, -20.6014645985074, 1.8)
    pt3dadd(47.8183546222554, -84.8337980680724, -21.1612601955356, 1.8)
    pt3dadd(48.2159469860845, -85.544625286682, -21.733140186628, 1.8)
    pt3dadd(48.3589649746268, -86.2776333610724, -22.398155237459, 1.8)
    pt3dadd(48.501982963169, -87.0106414354628, -23.06317028829, 1.8)
    pt3dadd(48.6450009517113, -87.7436495098533, -23.728185339121, 1.8)
    pt3dadd(48.8237865827585, -88.5126169135108, -24.3009600208179, 1.8)
    pt3dadd(49.159623780405, -89.4394775580911, -24.4687179482168, 1.8)
    pt3dadd(49.4954609780514, -90.3663382026714, -24.6364758756157, 1.8)
    pt3dadd(49.8312981756979, -91.2931988472516, -24.8042338030146, 1.8)
    pt3dadd(50.1671353733444, -92.2200594918319, -24.9719917304135, 1.8)
    pt3dadd(50.5153677861983, -93.1479033881808, -25.1048289876594, 1.8)
    pt3dadd(50.865351632722, -94.0758862171924, -25.2327319830592, 1.8)
    pt3dadd(51.2392059414375, -94.9760378226986, -25.4438527062633, 1.8)
    pt3dadd(51.6286131864528, -95.8580558351962, -25.7091944164401, 1.8)
    pt3dadd(52.018020431468, -96.7400738476937, -25.9745361266169, 1.8)
    pt3dadd(52.407348928421, -97.6289484076974, -26.2092520558882, 1.8)
    pt3dadd(52.7964188829268, -98.5403341066311, -26.3434186623145, 1.8)
    pt3dadd(53.1854888374326, -99.4517198055648, -26.4775852687408, 1.8)
    pt3dadd(53.5745587919385, -100.363105504499, -26.6117518751671, 1.8)
    pt3dadd(53.8746807256397, -101.051996035361, -27.1607381415207, 1.8)
    pt3dadd(54.1228772164012, -101.610999919512, -27.9518848785288, 1.8)
    pt3dadd(54.3710737071628, -102.170003803662, -28.7430316155369, 1.8)
    pt3dadd(54.6192701979243, -102.729007687812, -29.534178352545, 1.8)
    pt3dadd(54.8674666886858, -103.288011571963, -30.3253250895531, 1.8)
    pt3dadd(55.1563076279253, -103.994122033219, -30.968583145761, 1.8)
    pt3dadd(55.4489265275524, -104.713906264003, -31.5980947347692, 1.8)
    pt3dadd(55.7415454271796, -105.433690494787, -32.2276063237774, 1.8)
    pt3dadd(56.0707372817465, -106.10076526555, -32.8919941321494, 1.8)
    pt3dadd(56.4358202812425, -106.716113210524, -33.5906079812068, 1.8)
    pt3dadd(56.8009032807385, -107.331461155498, -34.2892218302643, 1.8)
    pt3dadd(57.1659862802345, -107.946809100473, -34.9878356793218, 1.8)
    pt3dadd(57.5310692797305, -108.562157045447, -35.6864495283792, 1.8)
    pt3dadd(57.8826077217052, -109.356864277595, -36.0974426903662, 1.8)
    pt3dadd(58.2252074964447, -110.269938830424, -36.3186219283736, 1.8)
    pt3dadd(58.5678072711843, -111.183013383252, -36.5398011663811, 1.8)
    pt3dadd(58.9261356752427, -112.059406544684, -36.8422289345287, 1.8)
    pt3dadd(59.3076383276461, -112.881754076542, -37.2643666644891, 1.8)
    pt3dadd(59.6891409800495, -113.7041016084, -37.6865043944495, 1.8)
    pt3dadd(60.0706436324529, -114.526449140258, -38.1086421244098, 1.8)
    pt3dadd(60.4540627371615, -115.406854276836, -38.3477776374957, 1.8)
    pt3dadd(60.83855749111, -116.319845467457, -38.4841993001237, 1.8)
  }
  adendMML[12] {pt3dclear()
    pt3dadd(60.83855749111, -116.319845467457, -38.4841993001237, 1.8)
    pt3dadd(61.2230522450585, -117.232836658078, -38.6206209627516, 1.8)
    pt3dadd(61.580403920353, -118.102051151376, -38.8776422757255, 1.8)
    pt3dadd(61.8577251880733, -118.842191600654, -39.4902473930835, 1.8)
    pt3dadd(62.1350464557936, -119.582332049931, -40.1028525104414, 1.8)
    pt3dadd(62.4123677235139, -120.322472499209, -40.7154576277994, 1.8)
    pt3dadd(62.6896889912341, -121.062612948487, -41.3280627451573, 1.8)
    pt3dadd(62.9780954007216, -121.804569306396, -41.8994701294414, 1.8)
    pt3dadd(63.5085549326486, -122.586177512121, -41.5712913706372, 1.8)
    pt3dadd(64.0390144645756, -123.367785717847, -41.2431126118331, 1.8)
    pt3dadd(64.5694739965026, -124.149393923573, -40.9149338530289, 1.8)
    pt3dadd(65.0999335284295, -124.931002129298, -40.5867550942247, 1.8)
    pt3dadd(65.3137526516843, -125.420130142434, -41.38226956968, 1.8)
    pt3dadd(65.5096046284955, -125.892661933773, -42.2415458403595, 1.8)
    pt3dadd(65.7054566053068, -126.365193725112, -43.100822111039, 1.8)
    pt3dadd(65.901308582118, -126.837725516452, -43.9600983817185, 1.8)
    pt3dadd(66.3114922178755, -127.540552822666, -44.369676772923, 1.8)
    pt3dadd(66.8426660924221, -128.373381965631, -44.5254006748363, 1.8)
    pt3dadd(67.3738399669687, -129.206211108596, -44.6811245767495, 1.8)
    pt3dadd(68.0100183932298, -129.967226849215, -44.7666167214172, 1.8)
    pt3dadd(68.6900728904762, -130.698235415025, -44.8227625804618, 1.8)
    pt3dadd(69.3701273877228, -131.429243980834, -44.8789084395063, 1.8)
    pt3dadd(69.9609197180243, -132.221244566899, -44.992787449696, 1.8)
    pt3dadd(70.4879422641488, -133.056818461805, -45.1479116000653, 1.8)
    pt3dadd(71.0149648102733, -133.892392356711, -45.3030357504347, 1.8)
    pt3dadd(71.5542855203659, -134.641688100884, -45.6207766631561, 1.8)
    pt3dadd(72.1104893367731, -135.272539889094, -46.1617603375184, 1.8)
    pt3dadd(72.6666931531803, -135.903391677304, -46.7027440118807, 1.8)
    pt3dadd(73.1064724350287, -136.584475179204, -47.2605593082132, 1.8)
    pt3dadd(73.3216632000381, -137.362458068494, -47.8508436114317, 1.8)
    pt3dadd(73.5368539650475, -138.140440957784, -48.4411279146501, 1.8)
    pt3dadd(73.9645940729846, -138.944011635333, -48.3764068488144, 1.8)
    pt3dadd(74.4671388489015, -139.756587685368, -48.0811630324395, 1.8)
    pt3dadd(74.9696836248184, -140.569163735403, -47.7859192160646, 1.8)
    pt3dadd(75.4722284007353, -141.381739785439, -47.4906753996897, 1.8)
    pt3dadd(75.9704515377874, -142.188756980323, -47.2085031211518, 1.8)
    pt3dadd(76.0594184135188, -142.46935437304, -48.1641965857226, 1.8)
    pt3dadd(76.1483852892503, -142.749951765756, -49.1198900502933, 1.8)
    pt3dadd(76.2373521649817, -143.030549158473, -50.075583514864, 1.8)
    pt3dadd(76.3263190407131, -143.311146551189, -51.0312769794348, 1.8)
    pt3dadd(76.4152859164446, -143.591743943906, -51.9869704440055, 1.8)
    pt3dadd(76.504252792176, -143.872341336623, -52.9426639085762, 1.8)
    pt3dadd(76.5932196679075, -144.152938729339, -53.898357373147, 1.8)
    pt3dadd(76.9647563564797, -144.686349948132, -54.0887193047025, 1.8)
    pt3dadd(77.5459255946266, -145.407318381176, -53.7112980080251, 1.8)
    pt3dadd(78.1270948327735, -146.12828681422, -53.3338767113477, 1.8)
    pt3dadd(78.7082640709204, -146.849255247264, -52.9564554146703, 1.8)
    pt3dadd(79.2873516552858, -147.572525792688, -52.6063387146786, 1.8)
    pt3dadd(79.8141877542961, -148.353581543495, -52.9415933028808, 1.8)
    pt3dadd(80.3410238533063, -149.134637294303, -53.2768478910829, 1.8)
    pt3dadd(80.8678599523166, -149.91569304511, -53.6121024792851, 1.8)
    pt3dadd(81.3665782264419, -150.647692545828, -54.0059301854256, 1.8)
    pt3dadd(81.6092447717365, -150.932966963912, -54.9331472334686, 1.8)
    pt3dadd(81.8519113170311, -151.218241381996, -55.8603642815116, 1.8)
    pt3dadd(82.0945778623257, -151.50351580008, -56.7875813295546, 1.8)
    pt3dadd(82.3372444076202, -151.788790218164, -57.7147983775976, 1.8)
    pt3dadd(82.5799109529148, -152.074064636248, -58.6420154256406, 1.8)
    pt3dadd(82.8404717513009, -152.389118575823, -59.5259327917592, 1.8)
    pt3dadd(83.4002827017715, -153.202183038078, -59.6857385487011, 1.8)
    pt3dadd(83.9600936522421, -154.015247500332, -59.8455443056429, 1.8)
    pt3dadd(84.5199046027127, -154.828311962587, -60.0053500625848, 1.8)
    pt3dadd(85.0797155531833, -155.641376424842, -60.1651558195267, 1.8)
    pt3dadd(85.6010456873959, -156.212136111899, -59.674234432832, 1.8)
    pt3dadd(86.1095304450342, -156.70201144187, -58.9660922067678, 1.8)
    pt3dadd(86.6180152026724, -157.191886771841, -58.2579499807036, 1.8)
    pt3dadd(87.1264999603107, -157.681762101813, -57.5498077546394, 1.8)
    pt3dadd(87.7402309070441, -158.181667814706, -57.1344188050311, 1.8)
    pt3dadd(88.5721855991426, -158.702371123669, -57.3260420142989, 1.8)
    pt3dadd(89.4041402912411, -159.223074432632, -57.5176652235668, 1.8)
    pt3dadd(90.2486628886387, -159.718900112471, -57.719110478873, 1.8)
    pt3dadd(91.0983415665152, -160.204519552302, -57.9245853046314, 1.8)
    pt3dadd(91.7331581878463, -160.721640666793, -58.3217930055385, 1.8)
    pt3dadd(91.9280591753228, -161.30325934497, -59.1115608944001, 1.8)
    pt3dadd(92.1229601627993, -161.884878023146, -59.9013287832617, 1.8)
    pt3dadd(92.3178611502758, -162.466496701323, -60.6910966721233, 1.8)
    pt3dadd(92.5127621377523, -163.048115379499, -61.4808645609849, 1.8)
    pt3dadd(92.7171874690023, -163.643367861195, -62.2579389681093, 1.8)
    pt3dadd(92.9224860522817, -164.23987037616, -63.0338495566073, 1.8)
    pt3dadd(93.1277846355611, -164.836372891126, -63.8097601451053, 1.8)
    pt3dadd(93.3330832188404, -165.432875406091, -64.5856707336034, 1.8)
    pt3dadd(93.7052805308567, -166.312857306867, -64.766466820043, 1.8)
    pt3dadd(94.0971189411027, -167.226199836, -64.8772282065104, 1.8)
    pt3dadd(94.4889573513487, -168.139542365133, -64.9879895929778, 1.8)
    pt3dadd(94.869893066621, -169.056062076701, -65.109020363921, 1.8)
    pt3dadd(95.240078257325, -169.975714626333, -65.2401771881359, 1.8)
    pt3dadd(95.610263448029, -170.895367175966, -65.3713340123508, 1.8)
    pt3dadd(95.9305734004331, -171.583443071038, -65.8860665475061, 1.8)
    pt3dadd(96.2118648565828, -172.090351454203, -66.7008788005892, 1.8)
    pt3dadd(96.4931563127325, -172.597259837367, -67.5156910536724, 1.8)
    pt3dadd(96.7744477688822, -173.104168220532, -68.3305033067556, 1.8)
    pt3dadd(97.0557392250319, -173.611076603697, -69.1453155598388, 1.8)
    pt3dadd(97.4312442395006, -174.198438020914, -69.769555485084, 1.8)
    pt3dadd(98.0334580590057, -174.9793958964, -69.9352157166204, 1.8)
    pt3dadd(98.6356718785108, -175.760353771887, -70.1008759481569, 1.8)
    pt3dadd(99.2260534507883, -176.550324845597, -70.2649061326788, 1.8)
    pt3dadd(99.7905717480551, -177.359997233849, -70.4253733123541, 1.8)
    pt3dadd(100.355090045322, -178.169669622101, -70.5858404920293, 1.8)
    pt3dadd(100.919608342589, -178.979342010353, -70.7463076717046, 1.8)
    pt3dadd(101.549952837177, -179.718553312425, -70.8312316572824, 1.8)
    pt3dadd(102.395352698485, -180.227566982787, -70.6693546734777, 1.8)
    pt3dadd(103.240752559792, -180.73658065315, -70.5074776896731, 1.8)
    pt3dadd(104.0861524211, -181.245594323512, -70.3456007058685, 1.8)
    pt3dadd(104.648409279195, -181.612337226154, -70.7812893546589, 1.8)
    pt3dadd(104.98814623893, -181.86727063178, -71.6866002166756, 1.8)
    pt3dadd(105.327883198665, -182.122204037407, -72.5919110786923, 1.8)
    pt3dadd(105.667620158401, -182.377137443033, -73.497221940709, 1.8)
    pt3dadd(106.066298682754, -182.674706482189, -74.3089312054692, 1.8)
    pt3dadd(106.857704587756, -183.256356556295, -74.4969734475863, 1.8)
    pt3dadd(107.649110492758, -183.838006630401, -74.6850156897033, 1.8)
    pt3dadd(108.388737950043, -184.446637620062, -74.9070815933849, 1.8)
    pt3dadd(108.751854570584, -185.251462345523, -75.3765530847174, 1.8)
    pt3dadd(109.114971191124, -186.056287070984, -75.8460245760499, 1.8)
    pt3dadd(109.566185751514, -186.823338658703, -76.1457368547922, 1.8)
    pt3dadd(110.291409019883, -187.472905448405, -75.9174515141929, 1.8)
    pt3dadd(111.016632288251, -188.122472238107, -75.6891661735935, 1.8)
    pt3dadd(111.74185555662, -188.772039027809, -75.4608808329941, 1.8)
    pt3dadd(112.467078824989, -189.421605817511, -75.2325954923948, 1.8)
    pt3dadd(113.134129394393, -190.142908869569, -75.3445039250705, 1.8)
    pt3dadd(113.790767492035, -190.877052168329, -75.5173044621351, 1.8)
    pt3dadd(114.510903396186, -191.544612818724, -75.6976376832592, 1.8)
    pt3dadd(115.255232855034, -192.186804546416, -75.8808409626395, 1.8)
    pt3dadd(115.707257456993, -193.010627325073, -76.0210382747471, 1.69361857219542)
    pt3dadd(115.922742340138, -193.981430069035, -76.126434182888, 1.50115088059149)
    pt3dadd(116.095832763579, -194.934291016063, -76.1102450991122, 1.35)
    pt3dadd(116.113829902723, -195.821514796536, -75.6492569578928, 1.35)
    pt3dadd(116.131827041867, -196.70873857701, -75.1882688166734, 1.35)
    pt3dadd(116.149824181012, -197.595962357483, -74.727280675454, 1.35)
    pt3dadd(116.230209167798, -198.318972758731, -75.2015995646527, 1.35)
    pt3dadd(116.327527618582, -198.997411958209, -75.9297818026596, 1.35)
    pt3dadd(116.424846069367, -199.675851157687, -76.6579640406665, 1.35)
    pt3dadd(116.522164520152, -200.354290357164, -77.3861462786733, 1.35)
    pt3dadd(116.935702443733, -201.044307647245, -77.6205301722285, 1.35)
    pt3dadd(117.623134691663, -201.744353330818, -77.4272093367813, 1.35)
    pt3dadd(118.310566939592, -202.44439901439, -77.2338885013341, 1.35)
    pt3dadd(118.932609488419, -203.194659722049, -77.1352561535909, 1.35)
    pt3dadd(119.386882626588, -204.073756394896, -77.2795646970942, 1.35)
    pt3dadd(119.841155764757, -204.952853067743, -77.4238732405975, 1.35)
    pt3dadd(120.295428902925, -205.83194974059, -77.5681817841008, 1.35)
    pt3dadd(120.922083687872, -206.590030953901, -77.736924983619, 1.35)
    pt3dadd(121.564621826422, -207.336961726482, -77.9079196077459, 1.35)
    pt3dadd(122.207159964971, -208.083892499063, -78.0789142318728, 1.35)
    pt3dadd(122.849698103521, -208.830823271645, -78.2499088559997, 1.35)
  }
  adendIML[12] {pt3dclear()
    pt3dadd(33.2736474188988, -50.1888777670286, -3.2356015207265, 1.8)
    pt3dadd(33.7938416623454, -50.7719853051929, -2.62782803801826, 1.8)
    pt3dadd(34.3259177116437, -51.2993387196132, -1.9654131724979, 1.8)
    pt3dadd(34.857993760942, -51.8266921340335, -1.30299830697754, 1.8)
    pt3dadd(35.3900698102403, -52.3540455484538, -0.640583441457176, 1.8)
    pt3dadd(35.9221458595386, -52.8813989628741, 0.0218314240631834, 1.8)
    pt3dadd(36.4542219088369, -53.4087523772944, 0.684246289583545, 1.8)
    pt3dadd(37.0115048626466, -54.0665927162161, 0.944630817839948, 1.8)
    pt3dadd(37.5953431539428, -54.8619003239223, 0.781478561523359, 1.8)
    pt3dadd(38.1791814452389, -55.6572079316284, 0.61832630520677, 1.8)
    pt3dadd(38.7620808787841, -56.4526644739757, 0.452858171545334, 1.8)
    pt3dadd(39.3303832173364, -57.250436610036, 0.251383431387065, 1.8)
    pt3dadd(39.8986855558886, -58.0482087460963, 0.0499086912287983, 1.8)
    pt3dadd(40.4669878944409, -58.8459808821565, -0.151566048929469, 1.8)
    pt3dadd(40.9973197024192, -59.670918793154, -0.333829744192695, 1.8)
    pt3dadd(41.4530817194019, -60.5492071875043, -0.478365138561225, 1.8)
    pt3dadd(41.9088437363847, -61.4274955818547, -0.622900532929757, 1.8)
    pt3dadd(42.3646057533675, -62.305783976205, -0.767435927298287, 1.8)
    pt3dadd(42.7854510472438, -63.2001911357169, -0.841913025571187, 1.8)
    pt3dadd(43.1112946108325, -64.1384543746146, -0.72577488971128, 1.8)
    pt3dadd(43.4371381744212, -65.0767176135123, -0.609636753851372, 1.8)
    pt3dadd(43.775204451817, -66.0080252830593, -0.479570772686126, 1.8)
    pt3dadd(44.1588238295394, -66.9134100885463, -0.297596799192366, 1.8)
  }
}
proc shape3d_13() {
  adendIML[12] {
    pt3dadd(44.5424432072618, -67.8187948940333, -0.115622825698607, 1.8)
    pt3dadd(44.9260625849842, -68.7241796995203, 0.0663511477951525, 1.8)
    pt3dadd(45.3096819627066, -69.6295645050073, 0.248325121288911, 1.8)
    pt3dadd(45.7764966293626, -70.4991896750848, 0.394119827720224, 1.8)
    pt3dadd(46.2833819000294, -71.3515913916658, 0.522488967121914, 1.8)
    pt3dadd(46.7902671706962, -72.2039931082469, 0.650858106523605, 1.8)
    pt3dadd(47.297152441363, -73.0563948248279, 0.779227245925295, 1.8)
    pt3dadd(47.8040377120298, -73.908796541409, 0.907596385326986, 1.8)
    pt3dadd(48.3109229826966, -74.7611982579901, 1.03596552472868, 1.8)
    pt3dadd(48.7419861805737, -75.6517724241005, 0.984330518346185, 1.8)
    pt3dadd(49.1378333508648, -76.5600760189405, 0.84909148044213, 1.8)
    pt3dadd(49.5336805211558, -77.4683796137806, 0.713852442538075, 1.8)
    pt3dadd(49.9295276914469, -78.3766832086206, 0.578613404634019, 1.8)
    pt3dadd(50.3699215336164, -79.2685847141595, 0.490076095978697, 1.8)
    pt3dadd(50.8377005718058, -80.1504029876251, 0.430248811125675, 1.8)
    pt3dadd(51.3054796099952, -81.0322212610906, 0.370421526272652, 1.8)
    pt3dadd(51.7732586481845, -81.9140395345561, 0.310594241419631, 1.8)
    pt3dadd(52.1387856526761, -82.6891557132151, -0.203467446141286, 1.8)
    pt3dadd(52.5037186472668, -83.4636520303567, -0.720167905007942, 1.8)
    pt3dadd(52.8686516418576, -84.2381483474984, -1.2368683638746, 1.8)
    pt3dadd(53.2946961292296, -85.0826493895678, -1.50273710725444, 1.8)
    pt3dadd(53.7503073157892, -85.9610198160928, -1.64724953055429, 1.8)
    pt3dadd(54.2059185023489, -86.8393902426178, -1.79176195385414, 1.8)
    pt3dadd(54.6615296889086, -87.7177606691428, -1.93627437715399, 1.8)
    pt3dadd(55.2276749471987, -88.4598644884152, -1.64123965751417, 1.8)
    pt3dadd(55.8144062910146, -89.1765897435283, -1.26434280310022, 1.8)
    pt3dadd(56.4011376348304, -89.8933149986414, -0.887445948686281, 1.8)
    pt3dadd(56.9878689786462, -90.6100402537545, -0.510549094272337, 1.8)
    pt3dadd(57.5008337486221, -91.4171908858175, -0.423913883396267, 1.8)
    pt3dadd(57.9551068867908, -92.2962875586643, -0.568222426899577, 1.8)
    pt3dadd(58.4823586298891, -93.0711118173726, -0.517059246348827, 1.8)
    pt3dadd(59.1692755054037, -93.6178052584684, -0.0382362230970363, 1.8)
    pt3dadd(59.8561923809183, -94.1644986995644, 0.440586800154754, 1.8)
    pt3dadd(60.5431092564329, -94.7111921406603, 0.919409823406546, 1.8)
    pt3dadd(61.2296221848324, -95.2601660001258, 1.39044453099209, 1.8)
    pt3dadd(61.8827651525493, -95.9975245973176, 1.21808861183251, 1.8)
    pt3dadd(62.5359081202663, -96.7348831945093, 1.04573269267294, 1.8)
    pt3dadd(63.1890510879832, -97.472241791701, 0.873376773513365, 1.8)
    pt3dadd(63.9233535452818, -98.023740455019, 1.26534345070267, 1.8)
    pt3dadd(64.6583356403672, -98.5736827084241, 1.66203582247668, 1.8)
    pt3dadd(65.375979347067, -99.1458270273525, 2.05252757805919, 1.8)
    pt3dadd(65.9862045865121, -99.8555222994245, 2.40460395889558, 1.8)
    pt3dadd(66.5964298259572, -100.565217571496, 2.75668033973197, 1.8)
    pt3dadd(67.2066550654024, -101.274912843568, 3.10875672056835, 1.8)
    pt3dadd(67.8168803048475, -101.98460811564, 3.46083310140474, 1.8)
    pt3dadd(68.4271055442927, -102.694303387712, 3.81290948224112, 1.8)
    pt3dadd(68.9377214767203, -103.495922602177, 4.11678819520233, 1.8)
    pt3dadd(69.427468675036, -104.316800421783, 4.4105692140241, 1.8)
    pt3dadd(69.9172158733517, -105.13767824139, 4.70435023284587, 1.8)
    pt3dadd(70.4468875729065, -105.883539745641, 5.07460462064117, 1.8)
    pt3dadd(71.0561364511836, -106.479879363611, 5.5972850816855, 1.8)
    pt3dadd(71.6653853294606, -107.076218981581, 6.11996554272982, 1.8)
    pt3dadd(72.2746342077377, -107.672558599551, 6.64264600377414, 1.8)
    pt3dadd(72.8838830860147, -108.268898217521, 7.16532646481847, 1.8)
    pt3dadd(73.4931319642918, -108.865237835491, 7.68800692586279, 1.8)
    pt3dadd(74.0986699996844, -109.471561056968, 8.18311652166781, 1.8)
    pt3dadd(74.6168637416282, -110.312874231285, 8.02927443207091, 1.8)
    pt3dadd(75.135057483572, -111.154187405602, 7.87543234247401, 1.8)
    pt3dadd(75.6532512255158, -111.995500579918, 7.72159025287711, 1.8)
    pt3dadd(76.1775610764797, -112.776468181892, 7.83672825369086, 1.8)
    pt3dadd(76.710070759786, -113.476530820565, 8.31248632153608, 1.8)
    pt3dadd(77.2425804430924, -114.176593459237, 8.78824438938129, 1.8)
    pt3dadd(77.7750901263987, -114.87665609791, 9.2640024572265, 1.8)
    pt3dadd(78.3494368458105, -115.640278015989, 9.28498166900967, 1.8)
    pt3dadd(78.9408178144, -116.429778550332, 9.12079440926389, 1.8)
  }
  adendMML[13] {pt3dclear()
    pt3dadd(78.9408178144, -116.429778550332, 9.12079440926389, 1.8)
    pt3dadd(79.5321987829896, -117.219279084674, 8.95660714951811, 1.8)
    pt3dadd(80.1526274984231, -117.984418102058, 8.78856723679655, 1.8)
    pt3dadd(80.8009233822503, -118.726185719963, 8.61683125326387, 1.8)
    pt3dadd(81.4492192660775, -119.467953337868, 8.4450952697312, 1.8)
    pt3dadd(82.0975151499047, -120.209720955773, 8.27335928619852, 1.8)
    pt3dadd(82.5576871267294, -121.084517054654, 8.20417780571306, 1.8)
    pt3dadd(82.964065893264, -121.997352067173, 8.16432133785635, 1.8)
    pt3dadd(83.3704446597986, -122.910187079691, 8.12446486999964, 1.8)
    pt3dadd(83.7768234263332, -123.82302209221, 8.08460840214292, 1.8)
    pt3dadd(84.2565668842579, -124.621954888793, 8.42556465301022, 1.8)
    pt3dadd(84.7431815839727, -125.410219751642, 8.80218732893202, 1.8)
    pt3dadd(85.2297962836875, -126.198484614491, 9.17881000485382, 1.8)
    pt3dadd(85.7762624027664, -126.839144716494, 9.70430540509078, 1.8)
    pt3dadd(86.3413440862612, -127.433895365339, 10.2761046326842, 1.8)
    pt3dadd(86.9064257697561, -128.028646014185, 10.8479038602777, 1.8)
    pt3dadd(87.4715074532509, -128.62339666303, 11.4197030878711, 1.8)
    pt3dadd(88.0365891367458, -129.218147311876, 11.9915023154646, 1.8)
    pt3dadd(88.6016708202406, -129.812897960721, 12.563301543058, 1.8)
    pt3dadd(88.8106277013531, -130.345240707499, 11.9103921972044, 1.8)
    pt3dadd(88.9657153088941, -130.868143313273, 11.0722271186776, 1.8)
    pt3dadd(89.1208029164351, -131.391045919047, 10.2340620401507, 1.8)
    pt3dadd(89.275890523976, -131.913948524822, 9.39589696162389, 1.8)
    pt3dadd(89.5145358973589, -132.72917873044, 9.04796499357005, 1.8)
    pt3dadd(89.7927023880943, -133.682673922712, 8.93190327831445, 1.8)
    pt3dadd(90.0708688788296, -134.636169114983, 8.81584156305884, 1.8)
    pt3dadd(90.4003792721136, -135.176479651306, 9.54515963487736, 1.8)
    pt3dadd(90.7337971614333, -135.68534502423, 10.3388148139823, 1.8)
    pt3dadd(91.0672150507531, -136.194210397155, 11.1324699930872, 1.8)
    pt3dadd(91.4006329400729, -136.703075770079, 11.9261251721921, 1.8)
    pt3dadd(91.8338069462143, -137.245840104472, 12.4803259312776, 1.8)
    pt3dadd(92.5739922681783, -137.892932525171, 12.2975772288966, 1.8)
    pt3dadd(93.3141775901424, -138.540024945871, 12.1148285265157, 1.8)
    pt3dadd(94.0543629121065, -139.187117366571, 11.9320798241347, 1.8)
    pt3dadd(94.7166201140992, -139.894308497486, 11.7002126754617, 1.8)
    pt3dadd(95.3303465867152, -140.638926865739, 11.4377563886795, 1.8)
    pt3dadd(95.9440730593312, -141.383545233991, 11.1753001018972, 1.8)
    pt3dadd(96.5577995319471, -142.128163602244, 10.9128438151149, 1.8)
    pt3dadd(97.0379069860161, -142.792115216078, 10.3903246960408, 1.8)
    pt3dadd(97.4372002337906, -143.407278717236, 9.71051680470308, 1.8)
    pt3dadd(97.8364934815651, -144.022442218394, 9.03070891336534, 1.8)
    pt3dadd(98.2422492005199, -144.639251983781, 8.36168824589534, 1.79591951522154)
    pt3dadd(98.9420968224475, -145.330979372285, 8.18356883068181, 1.60614574066616)
    pt3dadd(99.641944444375, -146.022706760789, 8.00544941546828, 1.41637196611077)
    pt3dadd(100.264367739138, -146.77221709117, 7.792924497597, 1.35)
    pt3dadd(100.845148169153, -147.552806118926, 7.56189449551985, 1.35)
    pt3dadd(101.425928599167, -148.333395146681, 7.33086449344269, 1.35)
    pt3dadd(102.006709029182, -149.113984174437, 7.09983449136554, 1.35)
    pt3dadd(102.590587165819, -149.896351830978, 6.8850551912318, 1.35)
    pt3dadd(103.184054826947, -150.6842255623, 6.72058294832012, 1.35)
    pt3dadd(103.777522488076, -151.472099293621, 6.55611070540844, 1.35)
    pt3dadd(104.365823673221, -152.250582010088, 6.42509565285087, 1.35)
    pt3dadd(104.825612809278, -152.79547057726, 7.12630204167581, 1.35)
    pt3dadd(105.285401945335, -153.340359144432, 7.82750843050074, 1.35)
    pt3dadd(105.745191081392, -153.885247711605, 8.52871481932568, 1.35)
    pt3dadd(106.204980217449, -154.430136278777, 9.22992120815061, 1.35)
    pt3dadd(106.664769353506, -154.975024845949, 9.93112759697555, 1.35)
    pt3dadd(107.091349636478, -155.72477739663, 9.94396163876317, 1.35)
    pt3dadd(107.501500786749, -156.575880558913, 9.61624309933577, 1.35)
    pt3dadd(107.911651937019, -157.426983721195, 9.28852455990838, 1.35)
    pt3dadd(108.32180308729, -158.278086883478, 8.96080602048098, 1.35)
    pt3dadd(108.83733745022, -159.113537315685, 8.96560802142941, 1.35)
    pt3dadd(109.384182241363, -159.944337162006, 9.06920526923011, 1.35)
    pt3dadd(109.931027032506, -160.775137008328, 9.1728025170308, 1.35)
    pt3dadd(110.477871823649, -161.605936854649, 9.27639976483149, 1.35)
    pt3dadd(111.024716614791, -162.436736700971, 9.37999701263218, 1.35)
    pt3dadd(111.52423573002, -163.289854867274, 9.23259480296857, 1.35)
    pt3dadd(112.023076234251, -164.143293059803, 9.08159346895714, 1.35)
    pt3dadd(112.521916738481, -164.996731252331, 8.93059213494571, 1.35)
    pt3dadd(113.000679169614, -165.828234070865, 8.71197214966176, 1.35)
    pt3dadd(113.363184591958, -166.532725649088, 8.10182345058544, 1.35)
    pt3dadd(113.725690014303, -167.23721722731, 7.49167475150911, 1.35)
    pt3dadd(114.088195436647, -167.941708805533, 6.88152605243279, 1.35)
    pt3dadd(114.451643668706, -168.645526521053, 6.27683322751529, 1.35)
    pt3dadd(115.023979695837, -169.200044020547, 6.8809373698639, 1.35)
    pt3dadd(115.596315722969, -169.754561520041, 7.48504151221251, 1.35)
    pt3dadd(116.1686517501, -170.309079019534, 8.08914565456112, 1.35)
    pt3dadd(116.740987777232, -170.863596519028, 8.69324979690973, 1.35)
    pt3dadd(117.313323804363, -171.418114018521, 9.29735393925834, 1.35)
    pt3dadd(117.881825112426, -172.094351109087, 9.53697454166063, 1.35)
    pt3dadd(118.446117443761, -172.904187276114, 9.37653904879409, 1.35)
    pt3dadd(119.010409775097, -173.714023443141, 9.21610355592755, 1.35)
    pt3dadd(119.574702106432, -174.523859610167, 9.05566806306101, 1.35)
    pt3dadd(120.023249694942, -175.23920525194, 8.65934828406976, 1.35)
    pt3dadd(120.278782782392, -175.796979662905, 7.8696707880683, 1.35)
    pt3dadd(120.534315869842, -176.35475407387, 7.07999329206684, 1.35)
    pt3dadd(120.789848957292, -176.912528484835, 6.29031579606538, 1.35)
    pt3dadd(121.156338612418, -177.53003240916, 5.81121880277775, 1.35)
    pt3dadd(121.774532035344, -178.28303208535, 6.03667030423282, 1.35)
    pt3dadd(122.39272545827, -179.036031761541, 6.26212180568789, 1.35)
    pt3dadd(123.010918881196, -179.789031437731, 6.48757330714296, 1.35)
    pt3dadd(123.69753017844, -180.482775451167, 6.34203434666924, 1.35)
    pt3dadd(124.396388133645, -181.165912823559, 6.13008886101503, 1.35)
    pt3dadd(125.09524608885, -181.84905019595, 5.91814337536082, 1.35)
    pt3dadd(125.793350685178, -182.533061683409, 5.70679841476668, 1.35)
    pt3dadd(126.441788676939, -183.274700855089, 5.53504420121855, 1.35)
    pt3dadd(127.0902266687, -184.016340026768, 5.36328998767042, 1.35)
    pt3dadd(127.738664660461, -184.757979198448, 5.19153577412228, 1.35)
    pt3dadd(128.387102652222, -185.499618370127, 5.01978156057415, 1.35)
    pt3dadd(128.965299030267, -186.291295581709, 5.15759458916532, 1.35)
    pt3dadd(129.529930149652, -187.092636280762, 5.35519211714441, 1.35)
    pt3dadd(130.094561269037, -187.893976979815, 5.5527896451235, 1.35)
    pt3dadd(130.683971408426, -188.682274017734, 5.49612527577864, 1.35)
    pt3dadd(131.283974542036, -189.464994909906, 5.33076432326699, 1.35)
    pt3dadd(131.883977675646, -190.247715802078, 5.16540337075533, 1.35)
    pt3dadd(132.618031297596, -190.857660248306, 4.90519593903919, 1.35)
    pt3dadd(133.402633992866, -191.402452457178, 4.60922286639985, 1.35)
    pt3dadd(134.187236688137, -191.947244666049, 4.31324979376051, 1.35)
    pt3dadd(134.915717471655, -192.444819864407, 4.28294944381581, 1.35)
    pt3dadd(135.481053623372, -192.805136698708, 5.02495134036443, 1.35)
    pt3dadd(136.046389775088, -193.165453533009, 5.76695323691304, 1.35)
    pt3dadd(136.611725926805, -193.525770367309, 6.50895513346165, 1.35)
    pt3dadd(137.177062078521, -193.88608720161, 7.25095703001027, 1.35)
    pt3dadd(137.742398230238, -194.246404035911, 7.99295892655888, 1.35)
    pt3dadd(138.360794296083, -194.670763727701, 8.62181742098046, 1.35)
    pt3dadd(139.092321624838, -195.231671875461, 9.00943813386987, 1.35)
    pt3dadd(139.823848953593, -195.792580023221, 9.39705884675928, 1.35)
    pt3dadd(140.555376282348, -196.353488170981, 9.78467955964869, 1.35)
    pt3dadd(141.234694229656, -196.974467139807, 10.0716090202368, 1.35)
    pt3dadd(141.690305416216, -197.852837566332, 9.92709659693694, 1.35)
    pt3dadd(142.145916602775, -198.731207992857, 9.78258417363708, 1.35)
    pt3dadd(142.601527789335, -199.609578419382, 9.63807175033723, 1.35)
    pt3dadd(143.02957065689, -200.393613397415, 9.79312073575226, 1.35)
    pt3dadd(143.408235994995, -201.008684450403, 10.4847132179947, 1.35)
    pt3dadd(143.7869013331, -201.623755503391, 11.1763057002371, 1.35)
    pt3dadd(144.165566671206, -202.238826556378, 11.8678981824796, 1.35)
    pt3dadd(144.544232009311, -202.853897609366, 12.559490664722, 1.35)
    pt3dadd(144.85561963653, -203.483732429454, 12.9368754581289, 1.35)
    pt3dadd(144.93037854902, -204.165494272436, 12.2091310699977, 1.35)
    pt3dadd(145.005137461509, -204.847256115418, 11.4813866818664, 1.35)
    pt3dadd(145.079896373999, -205.529017958401, 10.7536422937351, 1.35)
    pt3dadd(144.911911748774, -206.02427704992, 9.91125395229022, 1.35)
    pt3dadd(144.705575843601, -206.490070396234, 9.05075290478022, 1.35)
    pt3dadd(144.499239938428, -206.955863742548, 8.1902518572702, 1.35)
    pt3dadd(144.292904033255, -207.421657088862, 7.32975080976019, 1.35)
    pt3dadd(144.086568128082, -207.887450435177, 6.46924976225018, 1.35)
  }
  soma[2] {pt3dclear()
    pt3dadd(-12.462983157583, 59.9054786474927, 0, 10.4043260233424)
    pt3dadd(-12.7148674436836, 60.8284962569777, -0.29084841240089, 10.4043260233424)
    pt3dadd(-12.9667517297842, 61.7515138664627, -0.58169682480178, 10.1118742080783)
    pt3dadd(-13.2186360158849, 62.6745314759477, -0.87254523720267, 9.60468635614927)
    pt3dadd(-13.4705203019855, 63.5975490854328, -1.16339364960356, 8.84590300647707)
    pt3dadd(-13.7224045880861, 64.5205666949178, -1.45424206200445, 7.76208734813001)
    pt3dadd(-13.9742888741868, 65.4435843044028, -1.74509047440534, 6.18465843842649)
    pt3dadd(-14.2261731602874, 66.3666019138878, -2.03593888680623, 3.5)
  }
  axonh[0] {pt3dclear()
    pt3dadd(-14.2261731602874, 66.3666019138878, -2.03593888680623, 2.47906000584629)
    pt3dadd(-14.4780574463881, 67.2896195233729, -2.32678729920712, 2.47906000584629)
    pt3dadd(-14.7299417324887, 68.2126371328579, -2.61763571160801, 2.11125382662694)
    pt3dadd(-14.9818260185893, 69.1356547423429, -2.9084841240089, 1.81011959652796)
    pt3dadd(-15.23371030469, 70.058672351828, -3.19933253640979, 1.56357174154146)
    pt3dadd(-15.4855945907906, 70.981689961313, -3.49018094881068, 1.3617154305586)
    pt3dadd(-15.7374788768912, 71.904707570798, -3.78102936121157, 1.19644946105406)
    pt3dadd(-15.9893631629919, 72.827725180283, -4.07187777361246, 1.06114112938344)
    pt3dadd(-16.2412474490925, 73.7507427897681, -4.36272618601335, 0.950360037097033)
    pt3dadd(-16.4931317351931, 74.6737603992531, -4.65357459841424, 0.85966014998258)
    pt3dadd(-16.7450160212938, 75.5967780087381, -4.94442301081513, 0.785401363101277)
    pt3dadd(-16.9969003073944, 76.5197956182232, -5.23527142321602, 0.72460341059529)
    pt3dadd(-17.2487845934951, 77.4428132277082, -5.52611983561691, 0.674826257154464)
    pt3dadd(-17.5006688795957, 78.3658308371932, -5.8169682480178, 0.634072170831778)
    pt3dadd(-17.7525531656963, 79.2888484466782, -6.10781666041869, 0.600705547045801)
    pt3dadd(-18.004437451797, 80.2118660561633, -6.39866507281958, 0.573387266025838)
    pt3dadd(-18.2563217378976, 81.1348836656483, -6.68951348522047, 0.551020949233567)
    pt3dadd(-18.5082060239982, 82.0579012751333, -6.98036189762136, 0.532708957842651)
    pt3dadd(-18.7600903100989, 82.9809188846183, -7.27121031002225, 0.517716367340809)
    pt3dadd(-19.0119745961995, 83.9039364941034, -7.56205872242314, 0.505441472428646)
    pt3dadd(-19.2638588823001, 84.8269541035884, -7.85290713482403, 0.495391638473257)
    pt3dadd(-19.5157431684008, 85.7499717130734, -8.14375554722492, 0.487163530350653)
    pt3dadd(-19.7676274545014, 86.6729893225585, -8.43460395962581, 0.480426925191027)
    pt3dadd(-20.0195117406021, 87.5960069320435, -8.7254523720267, 0.474911459375497)
    pt3dadd(-20.2713960267027, 88.5190245415285, -9.01630078442759, 0.470395777894772)
  }
  axon[0] {pt3dclear()
    pt3dadd(-20.2713960267027, 88.5190245415285, -9.01630078442759, 0.466698650595398)
    pt3dadd(-20.5232803128033, 89.4420421510135, -9.30714919682848, 0.466698650595398)
    pt3dadd(-20.775164598904, 90.3650597604986, -9.59799760922937, 0.463671698777356)
    pt3dadd(-21.0270488850046, 91.2880773699836, -9.88884602163026, 0.46119344023584)
    pt3dadd(-21.2789331711052, 92.2110949794686, -10.1796944340312, 0.459164413753823)
    pt3dadd(-21.5308174572059, 93.1341125889536, -10.470542846432, 0.457503187374186)
    pt3dadd(-21.7827017433065, 94.0571301984387, -10.7613912588329, 0.456143090249352)
    pt3dadd(-22.0345860294072, 94.9801478079237, -11.0522396712338, 0.455029536906078)
    pt3dadd(-22.2864703155078, 95.9031654174087, -11.3430880836347, 0.454117836538747)
    pt3dadd(-22.5383546016084, 96.8261830268937, -11.6339364960356, 0.45337139941042)
    pt3dadd(-22.7902388877091, 97.7492006363788, -11.9247849084365, 0.45276026837822)
    pt3dadd(-23.0421231738097, 98.6722182458638, -12.2156333208374, 0.452259916607997)
    pt3dadd(-23.2940074599103, 99.5952358553488, -12.5064817332383, 0.451850263226359)
    pt3dadd(-23.545891746011, 100.518253464834, -12.7973301456392, 0.45151486740471)
    pt3dadd(-23.7977760321116, 101.441271074319, -13.0881785580401, 0.451240268531071)
  }
}
proc shape3d_14() {
  axon[0] {
    pt3dadd(-24.0496603182122, 102.364288683804, -13.3790269704409, 0.451015445988463)
    pt3dadd(-24.3015446043129, 103.287306293289, -13.6698753828418, 0.450831376858844)
    pt3dadd(-24.5534288904135, 104.210323902774, -13.9607237952427, 0.450680673801733)
    pt3dadd(-24.8053131765142, 105.133341512259, -14.2515722076436, 0.450557288574293)
    pt3dadd(-25.0571974626148, 106.056359121744, -14.5424206200445, 0.450456269294113)
    pt3dadd(-25.3090817487154, 106.979376731229, -14.8332690324454, 0.450373561702775)
    pt3dadd(-25.5609660348161, 107.902394340714, -15.1241174448463, 0.450305846454234)
    pt3dadd(-25.8128503209167, 108.825411950199, -15.4149658572472, 0.450250405897802)
    pt3dadd(-26.0647346070173, 109.748429559684, -15.7058142696481, 0.450205015009282)
    pt3dadd(-26.316618893118, 110.671447169169, -15.996662682049, 0.450167852092942)
    pt3dadd(-26.5685031792186, 111.594464778654, -16.2875110944498, 0.45013742567046)
    pt3dadd(-26.8203874653192, 112.517482388139, -16.5783595068507, 0.450112514622668)
    pt3dadd(-27.0722717514199, 113.440499997624, -16.8692079192516, 0.450092119181749)
    pt3dadd(-27.3241560375205, 114.363517607109, -17.1600563316525, 0.450075420807047)
    pt3dadd(-27.5760403236212, 115.286535216594, -17.4509047440534, 0.450061749334151)
    pt3dadd(-27.8279246097218, 116.209552826079, -17.7417531564543, 0.450050556078851)
    pt3dadd(-28.0798088958224, 117.132570435564, -18.0326015688552, 0.450041391816511)
    pt3dadd(-28.3316931819231, 118.055588045049, -18.3234499812561, 0.450033888753103)
    pt3dadd(-28.5835774680237, 118.978605654534, -18.614298393657, 0.450027745764349)
    pt3dadd(-28.8354617541243, 119.901623264019, -18.9051468060579, 0.45002271631054)
    pt3dadd(-29.087346040225, 120.824640873504, -19.1959952184587, 0.450018598542036)
    pt3dadd(-29.3392303263256, 121.747658482989, -19.4868436308596, 0.450015227198327)
    pt3dadd(-29.5911146124262, 122.670676092475, -19.7776920432605, 0.450012466975554)
    pt3dadd(-29.8429988985269, 123.59369370196, -20.0685404556614, 0.450010207096284)
    pt3dadd(-30.0948831846275, 124.516711311445, -20.3593888680623, 0.450008356863627)
    pt3dadd(-30.3467674707282, 125.43972892093, -20.6502372804632, 0.450006842021251)
    pt3dadd(-30.5986517568288, 126.362746530415, -20.9410856928641, 0.450005601773211)
    pt3dadd(-30.8505360429294, 127.2857641399, -21.231934105265, 0.450004586344)
    pt3dadd(-31.1024203290301, 128.208781749385, -21.5227825176659, 0.450003754980877)
    pt3dadd(-31.3543046151307, 129.13179935887, -21.8136309300668, 0.450003074318321)
    pt3dadd(-31.6061889012313, 130.054816968355, -22.1044793424676, 0.450002517038954)
    pt3dadd(-31.858073187332, 130.97783457784, -22.3953277548685, 0.450002060777199)
    pt3dadd(-32.1099574734326, 131.900852187325, -22.6861761672694, 0.450001687221668)
    pt3dadd(-32.3618417595332, 132.82386979681, -22.9770245796703, 0.450001381380267)
    pt3dadd(-32.6137260456339, 133.746887406295, -23.2678729920712, 0.450001130978506)
    pt3dadd(-32.8656103317345, 134.66990501578, -23.5587214044721, 0.450000925966884)
    pt3dadd(-33.1174946178351, 135.592922625265, -23.849569816873, 0.450000758117564)
    pt3dadd(-33.3693789039358, 136.51594023475, -24.1404182292739, 0.450000620694164)
    pt3dadd(-33.6212631900364, 137.438957844235, -24.4312666416748, 0.450000508181401)
    pt3dadd(-33.8731474761371, 138.36197545372, -24.7221150540757, 0.450000416063741)
    pt3dadd(-34.1250317622377, 139.284993063205, -25.0129634664765, 0.45000034064418)
    pt3dadd(-34.3769160483383, 140.20801067269, -25.3038118788774, 0.450000278895866)
    pt3dadd(-34.628800334439, 141.131028282175, -25.5946602912783, 0.450000228340622)
    pt3dadd(-34.8806846205396, 142.05404589166, -25.8855087036792, 0.45000018694949)
    pt3dadd(-35.1325689066402, 142.977063501145, -26.1763571160801, 0.450000153061296)
    pt3dadd(-35.3844531927409, 143.90008111063, -26.467205528481, 0.45000012531599)
    pt3dadd(-35.6363374788415, 144.823098720115, -26.7580539408819, 0.450000102600055)
    pt3dadd(-35.8882217649422, 145.7461163296, -27.0489023532828, 0.450000084001821)
    pt3dadd(-36.1401060510428, 146.669133939085, -27.3397507656837, 0.450000068774874)
    pt3dadd(-36.3919903371434, 147.59215154857, -27.6305991780846, 0.450000056308104)
    pt3dadd(-36.6438746232441, 148.515169158055, -27.9214475904854, 0.450000046101177)
    pt3dadd(-36.8957589093447, 149.43818676754, -28.2122960028863, 0.450000037744451)
    pt3dadd(-37.1476431954453, 150.361204377025, -28.5031444152872, 0.450000030902543)
    pt3dadd(-37.399527481546, 151.28422198651, -28.7939928276881, 0.450000025300862)
    pt3dadd(-37.6514117676466, 152.207239595995, -29.084841240089, 0.450000020714594)
    pt3dadd(-37.9032960537472, 153.13025720548, -29.3756896524899, 0.450000016959675)
    pt3dadd(-38.1551803398479, 154.053274814965, -29.6665380648908, 0.450000013885408)
    pt3dadd(-38.4070646259485, 154.97629242445, -29.9573864772917, 0.45000001136841)
    pt3dadd(-38.6589489120492, 155.899310033936, -30.2482348896926, 0.450000009307667)
    pt3dadd(-38.9108331981498, 156.822327643421, -30.5390833020935, 0.450000007620473)
    pt3dadd(-39.1627174842504, 157.745345252906, -30.8299317144943, 0.450000006239116)
    pt3dadd(-39.4146017703511, 158.668362862391, -31.1207801268952, 0.450000005108156)
    pt3dadd(-39.6664860564517, 159.591380471876, -31.4116285392961, 0.450000004182204)
    pt3dadd(-39.9183703425523, 160.514398081361, -31.702476951697, 0.450000003424099)
    pt3dadd(-40.170254628653, 161.437415690846, -31.9933253640979, 0.450000002803415)
    pt3dadd(-40.4221389147536, 162.360433300331, -32.2841737764988, 0.450000002295242)
    pt3dadd(-40.6740232008543, 163.283450909816, -32.5750221888997, 0.450000001879186)
    pt3dadd(-40.9259074869549, 164.206468519301, -32.8658706013006, 0.450000001538547)
    pt3dadd(-41.1777917730555, 165.129486128786, -33.1567190137015, 0.450000001259656)
    pt3dadd(-41.4296760591562, 166.052503738271, -33.4475674261024, 0.450000001031319)
    pt3dadd(-41.6815603452568, 166.975521347756, -33.7384158385032, 0.450000000844373)
    pt3dadd(-41.9334446313574, 167.898538957241, -34.0292642509041, 0.450000000691314)
    pt3dadd(-42.1853289174581, 168.821556566726, -34.320112663305, 0.450000000566)
    pt3dadd(-42.4372132035587, 169.744574176211, -34.6109610757059, 0.450000000463401)
    pt3dadd(-42.6890974896593, 170.667591785696, -34.9018094881068, 0.450000000379401)
    pt3dadd(-42.94098177576, 171.590609395181, -35.1926579005077, 0.450000000310627)
    pt3dadd(-43.1928660618606, 172.513627004666, -35.4835063129086, 0.45000000025432)
    pt3dadd(-43.4447503479612, 173.436644614151, -35.7743547253095, 0.45000000020822)
    pt3dadd(-43.6966346340619, 174.359662223636, -36.0652031377104, 0.450000000170476)
    pt3dadd(-43.9485189201625, 175.282679833121, -36.3560515501113, 0.450000000139574)
    pt3dadd(-44.2004032062632, 176.205697442606, -36.6468999625121, 0.450000000114273)
    pt3dadd(-44.4522874923638, 177.128715052091, -36.937748374913, 0.450000000093559)
    pt3dadd(-44.7041717784644, 178.051732661576, -37.2285967873139, 0.4500000000766)
    pt3dadd(-44.9560560645651, 178.974750271061, -37.5194451997148, 0.450000000062715)
    pt3dadd(-45.2079403506657, 179.897767880546, -37.8102936121157, 0.450000000051346)
    pt3dadd(-45.4598246367663, 180.820785490031, -38.1011420245166, 0.450000000042039)
    pt3dadd(-45.711708922867, 181.743803099516, -38.3919904369175, 0.450000000034418)
    pt3dadd(-45.9635932089676, 182.666820709001, -38.6828388493184, 0.450000000028179)
    pt3dadd(-46.2154774950683, 183.589838318486, -38.9736872617193, 0.450000000023071)
    pt3dadd(-46.4673617811689, 184.512855927971, -39.2645356741202, 0.450000000018889)
    pt3dadd(-46.7192460672695, 185.435873537456, -39.555384086521, 0.450000000015465)
    pt3dadd(-46.9711303533702, 186.358891146941, -39.8462324989219, 0.450000000012662)
    pt3dadd(-47.2230146394708, 187.281908756426, -40.1370809113228, 0.450000000010367)
    pt3dadd(-47.4748989255714, 188.204926365911, -40.4279293237237, 0.450000000008488)
    pt3dadd(-47.7267832116721, 189.127943975397, -40.7187777361246, 0.450000000006949)
    pt3dadd(-47.9786674977727, 190.050961584882, -41.0096261485255, 0.450000000005689)
    pt3dadd(-48.2305517838733, 190.973979194367, -41.3004745609264, 0.450000000004658)
    pt3dadd(-48.482436069974, 191.896996803852, -41.5913229733273, 0.450000000003814)
    pt3dadd(-48.7343203560746, 192.820014413337, -41.8821713857282, 0.450000000003122)
    pt3dadd(-48.9862046421753, 193.743032022822, -42.1730197981291, 0.450000000002556)
    pt3dadd(-49.2380889282759, 194.666049632307, -42.4638682105299, 0.450000000002093)
    pt3dadd(-49.4899732143765, 195.589067241792, -42.7547166229308, 0.450000000001714)
    pt3dadd(-49.7418575004772, 196.512084851277, -43.0455650353317, 0.450000000001403)
    pt3dadd(-49.9937417865778, 197.435102460762, -43.3364134477326, 0.450000000001149)
    pt3dadd(-50.2456260726784, 198.358120070247, -43.6272618601335, 0.45000000000094)
    pt3dadd(-50.4975103587791, 199.281137679732, -43.9181102725344, 0.45000000000077)
    pt3dadd(-50.7493946448797, 200.204155289217, -44.2089586849353, 0.45000000000063)
    pt3dadd(-51.0012789309803, 201.127172898702, -44.4998070973362, 0.450000000000516)
    pt3dadd(-51.253163217081, 202.050190508187, -44.7906555097371, 0.450000000000423)
    pt3dadd(-51.5050475031816, 202.973208117672, -45.081503922138, 0.450000000000346)
    pt3dadd(-51.7569317892822, 203.896225727157, -45.3723523345388, 0.450000000000283)
    pt3dadd(-52.0088160753829, 204.819243336642, -45.6632007469397, 0.450000000000232)
    pt3dadd(-52.2607003614835, 205.742260946127, -45.9540491593406, 0.45000000000019)
    pt3dadd(-52.5125846475842, 206.665278555612, -46.2448975717415, 0.450000000000155)
    pt3dadd(-52.7644689336848, 207.588296165097, -46.5357459841424, 0.450000000000127)
    pt3dadd(-53.0163532197854, 208.511313774582, -46.8265943965433, 0.450000000000104)
    pt3dadd(-53.2682375058861, 209.434331384067, -47.1174428089442, 0.450000000000085)
    pt3dadd(-53.5201217919867, 210.357348993552, -47.4082912213451, 0.45000000000007)
    pt3dadd(-53.7720060780873, 211.280366603037, -47.699139633746, 0.450000000000057)
    pt3dadd(-54.023890364188, 212.203384212522, -47.9899880461469, 0.450000000000047)
    pt3dadd(-54.2757746502886, 213.126401822007, -48.2808364585477, 0.450000000000038)
    pt3dadd(-54.5276589363893, 214.049419431492, -48.5716848709486, 0.450000000000031)
    pt3dadd(-54.7795432224899, 214.972437040977, -48.8625332833495, 0.450000000000026)
    pt3dadd(-55.0314275085905, 215.895454650462, -49.1533816957504, 0.450000000000021)
    pt3dadd(-55.2833117946912, 216.818472259947, -49.4442301081513, 0.450000000000017)
    pt3dadd(-55.5351960807918, 217.741489869432, -49.7350785205522, 0.450000000000014)
    pt3dadd(-55.7870803668924, 218.664507478917, -50.0259269329531, 0.450000000000012)
    pt3dadd(-56.0389646529931, 219.587525088402, -50.316775345354, 0.450000000000009)
    pt3dadd(-56.2908489390937, 220.510542697887, -50.6076237577549, 0.450000000000008)
    pt3dadd(-56.5427332251943, 221.433560307372, -50.8984721701558, 0.450000000000006)
    pt3dadd(-56.794617511295, 222.356577916857, -51.1893205825566, 0.450000000000005)
    pt3dadd(-57.0465017973956, 223.279595526343, -51.4801689949575, 0.450000000000004)
    pt3dadd(-57.2983860834963, 224.202613135828, -51.7710174073584, 0.450000000000004)
    pt3dadd(-57.5502703695969, 225.125630745313, -52.0618658197593, 0.450000000000003)
    pt3dadd(-57.8021546556975, 226.048648354798, -52.3527142321602, 0.450000000000002)
    pt3dadd(-58.0540389417982, 226.971665964283, -52.6435626445611, 0.450000000000002)
    pt3dadd(-58.3059232278988, 227.894683573768, -52.934411056962, 0.450000000000002)
    pt3dadd(-58.5578075139994, 228.817701183253, -53.2252594693629, 0.450000000000001)
    pt3dadd(-58.8096918001001, 229.740718792738, -53.5161078817638, 0.450000000000001)
    pt3dadd(-59.0615760862007, 230.663736402223, -53.8069562941647, 0.450000000000001)
    pt3dadd(-59.3134603723014, 231.586754011708, -54.0978047065655, 0.450000000000001)
    pt3dadd(-59.565344658402, 232.509771621193, -54.3886531189664, 0.450000000000001)
    pt3dadd(-59.8172289445026, 233.432789230678, -54.6795015313673, 0.45)
    pt3dadd(-60.0691132306033, 234.355806840163, -54.9703499437682, 0.45)
    pt3dadd(-60.3209975167039, 235.278824449648, -55.2611983561691, 0.45)
    pt3dadd(-60.5728818028045, 236.201842059133, -55.55204676857, 0.45)
    pt3dadd(-60.8247660889052, 237.124859668618, -55.8428951809709, 0.45)
    pt3dadd(-61.0766503750058, 238.047877278103, -56.1337435933718, 0.45)
    pt3dadd(-61.3285346611064, 238.970894887588, -56.4245920057727, 0.45)
    pt3dadd(-61.5804189472071, 239.893912497073, -56.7154404181736, 0.45)
    pt3dadd(-61.8323032333077, 240.816930106558, -57.0062888305744, 0.45)
    pt3dadd(-62.0841875194083, 241.739947716043, -57.2971372429753, 0.45)
    pt3dadd(-62.336071805509, 242.662965325528, -57.5879856553762, 0.45)
    pt3dadd(-62.5879560916096, 243.585982935013, -57.8788340677771, 0.45)
    pt3dadd(-62.8398403777103, 244.509000544498, -58.169682480178, 0.45)
    pt3dadd(-63.0917246638109, 245.432018153983, -58.4605308925789, 0.45)
    pt3dadd(-63.3436089499115, 246.355035763468, -58.7513793049798, 0.45)
    pt3dadd(-63.5954932360122, 247.278053372953, -59.0422277173807, 0.45)
    pt3dadd(-63.8473775221128, 248.201070982438, -59.3330761297816, 0.45)
    pt3dadd(-64.0992618082134, 249.124088591923, -59.6239245421825, 0.45)
    pt3dadd(-64.3511460943141, 250.047106201408, -59.9147729545833, 0.45)
    pt3dadd(-64.6030303804147, 250.970123810893, -60.2056213669842, 0.45)
    pt3dadd(-64.8549146665153, 251.893141420378, -60.4964697793851, 0.45)
    pt3dadd(-65.106798952616, 252.816159029863, -60.787318191786, 0.45)
    pt3dadd(-65.3586832387166, 253.739176639348, -61.0781666041869, 0.45)
    pt3dadd(-65.6105675248173, 254.662194248833, -61.3690150165878, 0.45)
    pt3dadd(-65.8624518109179, 255.585211858318, -61.6598634289887, 0.45)
    pt3dadd(-66.1143360970185, 256.508229467804, -61.9507118413896, 0.45)
    pt3dadd(-66.3662203831192, 257.431247077289, -62.2415602537905, 0.45)
    pt3dadd(-66.6181046692198, 258.354264686774, -62.5324086661914, 0.45)
    pt3dadd(-66.8699889553204, 259.277282296259, -62.8232570785922, 0.45)
    pt3dadd(-67.1218732414211, 260.200299905744, -63.1141054909931, 0.45)
    pt3dadd(-67.3737575275217, 261.123317515229, -63.404953903394, 0.45)
    pt3dadd(-67.6256418136224, 262.046335124714, -63.6958023157949, 0.45)
    pt3dadd(-67.877526099723, 262.969352734199, -63.9866507281958, 0.45)
    pt3dadd(-68.1294103858236, 263.892370343684, -64.2774991405967, 0.45)
    pt3dadd(-68.3812946719243, 264.815387953169, -64.5683475529976, 0.45)
    pt3dadd(-68.6331789580249, 265.738405562654, -64.8591959653985, 0.45)
    pt3dadd(-68.8850632441255, 266.661423172139, -65.1500443777994, 0.45)
    pt3dadd(-69.1369475302262, 267.584440781624, -65.4408927902003, 0.45)
    pt3dadd(-69.3888318163268, 268.507458391109, -65.7317412026012, 0.45)
    pt3dadd(-69.6407161024274, 269.430476000594, -66.022589615002, 0.45)
    pt3dadd(-69.8926003885281, 270.353493610079, -66.3134380274029, 0.45)
    pt3dadd(-70.1444846746287, 271.276511219564, -66.6042864398038, 0.45)
    pt3dadd(-70.3963689607293, 272.199528829049, -66.8951348522047, 0.45)
    pt3dadd(-70.64825324683, 273.122546438534, -67.1859832646056, 0.45)
    pt3dadd(-70.9001375329306, 274.045564048019, -67.4768316770065, 0.45)
    pt3dadd(-71.1520218190313, 274.968581657504, -67.7676800894074, 0.45)
    pt3dadd(-71.4039061051319, 275.891599266989, -68.0585285018083, 0.45)
    pt3dadd(-71.6557903912325, 276.814616876474, -68.3493769142092, 0.45)
    pt3dadd(-71.9076746773332, 277.737634485959, -68.6402253266101, 0.45)
    pt3dadd(-72.1595589634338, 278.660652095444, -68.9310737390109, 0.45)
    pt3dadd(-72.4114432495344, 279.583669704929, -69.2219221514118, 0.45)
    pt3dadd(-72.6633275356351, 280.506687314414, -69.5127705638127, 0.45)
    pt3dadd(-72.9152118217357, 281.429704923899, -69.8036189762136, 0.45)
    pt3dadd(-73.1670961078364, 282.352722533384, -70.0944673886145, 0.45)
    pt3dadd(-73.418980393937, 283.275740142869, -70.3853158010154, 0.45)
    pt3dadd(-73.6708646800376, 284.198757752354, -70.6761642134163, 0.45)
    pt3dadd(-73.9227489661383, 285.121775361839, -70.9670126258172, 0.45)
    pt3dadd(-74.1746332522389, 286.044792971324, -71.2578610382181, 0.45)
    pt3dadd(-74.4265175383395, 286.967810580809, -71.548709450619, 0.45)
    pt3dadd(-74.6784018244402, 287.890828190294, -71.8395578630198, 0.45)
    pt3dadd(-74.9302861105408, 288.813845799779, -72.1304062754207, 0.45)
    pt3dadd(-75.1821703966414, 289.736863409265, -72.4212546878216, 0.45)
    pt3dadd(-75.4340546827421, 290.65988101875, -72.7121031002225, 0.45)
    pt3dadd(-75.6859389688427, 291.582898628235, -73.0029515126234, 0.45)
    pt3dadd(-75.9378232549434, 292.50591623772, -73.2937999250243, 0.45)
    pt3dadd(-76.189707541044, 293.428933847205, -73.5846483374252, 0.45)
    pt3dadd(-76.4415918271446, 294.35195145669, -73.8754967498261, 0.45)
    pt3dadd(-76.6934761132453, 295.274969066175, -74.166345162227, 0.45)
    pt3dadd(-76.9453603993459, 296.19798667566, -74.4571935746279, 0.45)
    pt3dadd(-77.1972446854465, 297.121004285145, -74.7480419870287, 0.45)
    pt3dadd(-77.4491289715472, 298.04402189463, -75.0388903994296, 0.45)
    pt3dadd(-77.7010132576478, 298.967039504115, -75.3297388118305, 0.45)
    pt3dadd(-77.9528975437484, 299.8900571136, -75.6205872242314, 0.45)
    pt3dadd(-78.2047818298491, 300.813074723085, -75.9114356366323, 0.45)
    pt3dadd(-78.4566661159497, 301.73609233257, -76.2022840490332, 0.45)
    pt3dadd(-78.7085504020504, 302.659109942055, -76.4931324614341, 0.45)
    pt3dadd(-78.960434688151, 303.58212755154, -76.783980873835, 0.45)
    pt3dadd(-79.2123189742516, 304.505145161025, -77.0748292862359, 0.45)
    pt3dadd(-79.4642032603523, 305.42816277051, -77.3656776986367, 0.45)
    pt3dadd(-79.7160875464529, 306.351180379995, -77.6565261110376, 0.45)
    pt3dadd(-79.9679718325535, 307.27419798948, -77.9473745234385, 0.45)
    pt3dadd(-80.2198561186542, 308.197215598965, -78.2382229358394, 0.45)
    pt3dadd(-80.4717404047548, 309.12023320845, -78.5290713482403, 0.45)
    pt3dadd(-80.7236246908554, 310.043250817935, -78.8199197606412, 0.45)
    pt3dadd(-80.9755089769561, 310.96626842742, -79.1107681730421, 0.45)
    pt3dadd(-81.2273932630567, 311.889286036905, -79.401616585443, 0.45)
    pt3dadd(-81.4792775491574, 312.81230364639, -79.6924649978439, 0.45)
    pt3dadd(-81.731161835258, 313.735321255875, -79.9833134102448, 0.45)
    pt3dadd(-81.9830461213586, 314.65833886536, -80.2741618226457, 0.45)
    pt3dadd(-82.2349304074593, 315.581356474845, -80.5650102350465, 0.45)
    pt3dadd(-82.4868146935599, 316.50437408433, -80.8558586474474, 0.45)
    pt3dadd(-82.7386989796605, 317.427391693815, -81.1467070598483, 0.45)
    pt3dadd(-82.9905832657612, 318.3504093033, -81.4375554722492, 0.45)
    pt3dadd(-83.2424675518618, 319.273426912785, -81.7284038846501, 0.45)
    pt3dadd(-83.4943518379625, 320.19644452227, -82.019252297051, 0.45)
    pt3dadd(-83.7462361240631, 321.119462131755, -82.3101007094519, 0.45)
    pt3dadd(-83.9981204101637, 322.04247974124, -82.6009491218528, 0.45)
    pt3dadd(-84.2500046962644, 322.965497350725, -82.8917975342537, 0.45)
    pt3dadd(-84.501888982365, 323.888514960211, -83.1826459466545, 0.45)
    pt3dadd(-84.7537732684656, 324.811532569696, -83.4734943590554, 0.45)
    pt3dadd(-85.0056575545663, 325.734550179181, -83.7643427714563, 0.45)
    pt3dadd(-85.2575418406669, 326.657567788666, -84.0551911838572, 0.45)
    pt3dadd(-85.5094261267675, 327.580585398151, -84.3460395962581, 0.45)
    pt3dadd(-85.7613104128682, 328.503603007636, -84.636888008659, 0.45)
    pt3dadd(-86.0131946989688, 329.426620617121, -84.9277364210599, 0.45)
    pt3dadd(-86.2650789850695, 330.349638226606, -85.2185848334608, 0.45)
    pt3dadd(-86.5169632711701, 331.272655836091, -85.5094332458617, 0.45)
  }
}
proc shape3d_15() {
  axon[0] {
    pt3dadd(-86.7688475572707, 332.195673445576, -85.8002816582626, 0.45)
    pt3dadd(-87.0207318433714, 333.118691055061, -86.0911300706635, 0.45)
    pt3dadd(-87.272616129472, 334.041708664546, -86.3819784830643, 0.45)
    pt3dadd(-87.5245004155726, 334.964726274031, -86.6728268954652, 0.45)
    pt3dadd(-87.7763847016733, 335.887743883516, -86.9636753078661, 0.45)
    pt3dadd(-88.0282689877739, 336.810761493001, -87.254523720267, 0.45)
    pt3dadd(-88.2801532738745, 337.733779102486, -87.5453721326679, 0.45)
    pt3dadd(-88.5320375599752, 338.656796711971, -87.8362205450688, 0.45)
    pt3dadd(-88.7839218460758, 339.579814321456, -88.1270689574697, 0.45)
    pt3dadd(-89.0358061321764, 340.502831930941, -88.4179173698706, 0.45)
    pt3dadd(-89.2876904182771, 341.425849540426, -88.7087657822715, 0.45)
    pt3dadd(-89.5395747043777, 342.348867149911, -88.9996141946723, 0.45)
    pt3dadd(-89.7914589904784, 343.271884759396, -89.2904626070732, 0.45)
    pt3dadd(-90.043343276579, 344.194902368881, -89.5813110194741, 0.45)
    pt3dadd(-90.2952275626796, 345.117919978366, -89.872159431875, 0.45)
    pt3dadd(-90.5471118487803, 346.040937587851, -90.1630078442759, 0.45)
    pt3dadd(-90.7989961348809, 346.963955197336, -90.4538562566768, 0.45)
    pt3dadd(-91.0508804209815, 347.886972806821, -90.7447046690777, 0.45)
    pt3dadd(-91.3027647070822, 348.809990416306, -91.0355530814786, 0.45)
    pt3dadd(-91.5546489931828, 349.733008025791, -91.3264014938795, 0.45)
    pt3dadd(-91.8065332792835, 350.656025635276, -91.6172499062804, 0.45)
    pt3dadd(-92.0584175653841, 351.579043244761, -91.9080983186813, 0.45)
    pt3dadd(-92.3103018514847, 352.502060854246, -92.1989467310821, 0.45)
    pt3dadd(-92.5621861375854, 353.425078463731, -92.489795143483, 0.45)
    pt3dadd(-92.814070423686, 354.348096073216, -92.7806435558839, 0.45)
    pt3dadd(-93.0659547097866, 355.271113682701, -93.0714919682848, 0.45)
    pt3dadd(-93.3178389958873, 356.194131292186, -93.3623403806857, 0.45)
    pt3dadd(-93.5697232819879, 357.117148901672, -93.6531887930866, 0.45)
    pt3dadd(-93.8216075680885, 358.040166511157, -93.9440372054875, 0.45)
    pt3dadd(-94.0734918541892, 358.963184120642, -94.2348856178884, 0.45)
    pt3dadd(-94.3253761402898, 359.886201730127, -94.5257340302893, 0.45)
    pt3dadd(-94.5772604263905, 360.809219339612, -94.8165824426901, 0.45)
    pt3dadd(-94.8291447124911, 361.732236949097, -95.107430855091, 0.45)
    pt3dadd(-95.0810289985917, 362.655254558582, -95.3982792674919, 0.45)
    pt3dadd(-95.3329132846924, 363.578272168067, -95.6891276798928, 0.45)
    pt3dadd(-95.584797570793, 364.501289777552, -95.9799760922937, 0.45)
    pt3dadd(-95.8366818568936, 365.424307387037, -96.2708245046946, 0.45)
    pt3dadd(-96.0885661429943, 366.347324996522, -96.5616729170955, 0.45)
    pt3dadd(-96.3404504290949, 367.270342606007, -96.8525213294964, 0.45)
    pt3dadd(-96.5923347151955, 368.193360215492, -97.1433697418973, 0.45)
    pt3dadd(-96.8442190012962, 369.116377824977, -97.4342181542982, 0.45)
    pt3dadd(-97.0961032873968, 370.039395434462, -97.7250665666991, 0.45)
    pt3dadd(-97.3479875734974, 370.962413043947, -98.0159149790999, 0.45)
    pt3dadd(-97.5998718595981, 371.885430653432, -98.3067633915008, 0.45)
    pt3dadd(-97.8517561456987, 372.808448262917, -98.5976118039017, 0.45)
    pt3dadd(-98.1036404317994, 373.731465872402, -98.8884602163026, 0.45)
    pt3dadd(-98.3555247179, 374.654483481887, -99.1793086287035, 0.45)
    pt3dadd(-98.6074090040006, 375.577501091372, -99.4701570411044, 0.45)
    pt3dadd(-98.8592932901013, 376.500518700857, -99.7610054535053, 0.45)
    pt3dadd(-99.1111775762019, 377.423536310342, -100.051853865906, 0.45)
    pt3dadd(-99.3630618623025, 378.346553919827, -100.342702278307, 0.45)
    pt3dadd(-99.6149461484032, 379.269571529312, -100.633550690708, 0.45)
    pt3dadd(-99.8668304345038, 380.192589138797, -100.924399103109, 0.45)
    pt3dadd(-100.118714720604, 381.115606748282, -101.21524751551, 0.45)
    pt3dadd(-100.370599006705, 382.038624357767, -101.506095927911, 0.45)
    pt3dadd(-100.622483292806, 382.961641967252, -101.796944340312, 0.45)
    pt3dadd(-100.874367578906, 383.884659576737, -102.087792752712, 0.45)
    pt3dadd(-101.126251865007, 384.807677186222, -102.378641165113, 0.45)
    pt3dadd(-101.378136151108, 385.730694795707, -102.669489577514, 0.45)
    pt3dadd(-101.630020437208, 386.653712405192, -102.960337989915, 0.45)
    pt3dadd(-101.881904723309, 387.576730014677, -103.251186402316, 0.45)
    pt3dadd(-102.13378900941, 388.499747624162, -103.542034814717, 0.45)
    pt3dadd(-102.38567329551, 389.422765233647, -103.832883227118, 0.45)
    pt3dadd(-102.637557581611, 390.345782843133, -104.123731639519, 0.45)
    pt3dadd(-102.889441867711, 391.268800452617, -104.41458005192, 0.45)
    pt3dadd(-103.141326153812, 392.191818062103, -104.70542846432, 0.45)
    pt3dadd(-103.393210439913, 393.114835671588, -104.996276876721, 0.45)
    pt3dadd(-103.645094726013, 394.037853281073, -105.287125289122, 0.45)
    pt3dadd(-103.896979012114, 394.960870890558, -105.577973701523, 0.45)
    pt3dadd(-104.148863298215, 395.883888500043, -105.868822113924, 0.45)
    pt3dadd(-104.400747584315, 396.806906109528, -106.159670526325, 0.45)
    pt3dadd(-104.652631870416, 397.729923719013, -106.450518938726, 0.45)
    pt3dadd(-104.904516156517, 398.652941328498, -106.741367351127, 0.45)
    pt3dadd(-105.156400442617, 399.575958937983, -107.032215763528, 0.45)
    pt3dadd(-105.408284728718, 400.498976547468, -107.323064175928, 0.45)
    pt3dadd(-105.660169014818, 401.421994156953, -107.613912588329, 0.45)
    pt3dadd(-105.912053300919, 402.345011766438, -107.90476100073, 0.45)
    pt3dadd(-106.16393758702, 403.268029375923, -108.195609413131, 0.45)
    pt3dadd(-106.41582187312, 404.191046985408, -108.486457825532, 0.45)
    pt3dadd(-106.667706159221, 405.114064594893, -108.777306237933, 0.45)
    pt3dadd(-106.919590445322, 406.037082204378, -109.068154650334, 0.45)
    pt3dadd(-107.171474731422, 406.960099813863, -109.359003062735, 0.45)
    pt3dadd(-107.423359017523, 407.883117423348, -109.649851475136, 0.45)
    pt3dadd(-107.675243303624, 408.806135032833, -109.940699887536, 0.45)
    pt3dadd(-107.927127589724, 409.729152642318, -110.231548299937, 0.45)
    pt3dadd(-108.179011875825, 410.652170251803, -110.522396712338, 0.45)
    pt3dadd(-108.430896161925, 411.575187861288, -110.813245124739, 0.45)
    pt3dadd(-108.682780448026, 412.498205470773, -111.10409353714, 0.45)
    pt3dadd(-108.934664734127, 413.421223080258, -111.394941949541, 0.45)
    pt3dadd(-109.186549020227, 414.344240689743, -111.685790361942, 0.45)
    pt3dadd(-109.438433306328, 415.267258299228, -111.976638774343, 0.45)
    pt3dadd(-109.690317592429, 416.190275908713, -112.267487186744, 0.45)
    pt3dadd(-109.942201878529, 417.113293518198, -112.558335599144, 0.45)
    pt3dadd(-110.19408616463, 418.036311127683, -112.849184011545, 0.45)
    pt3dadd(-110.445970450731, 418.959328737168, -113.140032423946, 0.45)
    pt3dadd(-110.697854736831, 419.882346346653, -113.430880836347, 0.45)
    pt3dadd(-110.949739022932, 420.805363956138, -113.721729248748, 0.45)
    pt3dadd(-111.201623309032, 421.728381565623, -114.012577661149, 0.45)
    pt3dadd(-111.453507595133, 422.651399175108, -114.30342607355, 0.45)
    pt3dadd(-111.705391881234, 423.574416784593, -114.594274485951, 0.45)
    pt3dadd(-111.957276167334, 424.497434394078, -114.885122898352, 0.45)
    pt3dadd(-112.209160453435, 425.420452003564, -115.175971310752, 0.45)
    pt3dadd(-112.461044739536, 426.343469613049, -115.466819723153, 0.45)
    pt3dadd(-112.712929025636, 427.266487222534, -115.757668135554, 0.45)
    pt3dadd(-112.964813311737, 428.189504832019, -116.048516547955, 0.45)
    pt3dadd(-113.216697597838, 429.112522441504, -116.339364960356, 0.45)
    pt3dadd(-113.468581883938, 430.035540050989, -116.630213372757, 0.45)
    pt3dadd(-113.720466170039, 430.958557660474, -116.921061785158, 0.45)
    pt3dadd(-113.972350456139, 431.881575269959, -117.211910197559, 0.45)
    pt3dadd(-114.22423474224, 432.804592879444, -117.50275860996, 0.45)
    pt3dadd(-114.476119028341, 433.727610488929, -117.79360702236, 0.45)
    pt3dadd(-114.728003314441, 434.650628098414, -118.084455434761, 0.45)
    pt3dadd(-114.979887600542, 435.573645707899, -118.375303847162, 0.45)
    pt3dadd(-115.231771886643, 436.496663317384, -118.666152259563, 0.45)
    pt3dadd(-115.483656172743, 437.419680926869, -118.957000671964, 0.45)
    pt3dadd(-115.735540458844, 438.342698536354, -119.247849084365, 0.45)
    pt3dadd(-115.987424744945, 439.265716145839, -119.538697496766, 0.45)
    pt3dadd(-116.239309031045, 440.188733755324, -119.829545909167, 0.45)
    pt3dadd(-116.491193317146, 441.111751364809, -120.120394321568, 0.45)
    pt3dadd(-116.743077603246, 442.034768974294, -120.411242733968, 0.45)
    pt3dadd(-116.994961889347, 442.957786583779, -120.702091146369, 0.45)
    pt3dadd(-117.246846175448, 443.880804193264, -120.99293955877, 0.45)
    pt3dadd(-117.498730461548, 444.803821802749, -121.283787971171, 0.45)
    pt3dadd(-117.750614747649, 445.726839412234, -121.574636383572, 0.45)
    pt3dadd(-118.00249903375, 446.649857021719, -121.865484795973, 0.45)
    pt3dadd(-118.25438331985, 447.572874631204, -122.156333208374, 0.45)
    pt3dadd(-118.506267605951, 448.495892240689, -122.447181620775, 0.45)
    pt3dadd(-118.758151892052, 449.418909850174, -122.738030033176, 0.45)
    pt3dadd(-119.010036178152, 450.341927459659, -123.028878445577, 0.45)
    pt3dadd(-119.261920464253, 451.264945069144, -123.319726857977, 0.45)
    pt3dadd(-119.513804750353, 452.187962678629, -123.610575270378, 0.45)
    pt3dadd(-119.765689036454, 453.110980288114, -123.901423682779, 0.45)
    pt3dadd(-120.017573322555, 454.033997897599, -124.19227209518, 0.45)
    pt3dadd(-120.269457608655, 454.957015507084, -124.483120507581, 0.45)
    pt3dadd(-120.521341894756, 455.880033116569, -124.773968919982, 0.45)
    pt3dadd(-120.773226180857, 456.803050726054, -125.064817332383, 0.45)
    pt3dadd(-121.025110466957, 457.726068335539, -125.355665744784, 0.45)
    pt3dadd(-121.276994753058, 458.649085945025, -125.646514157185, 0.45)
    pt3dadd(-121.528879039159, 459.57210355451, -125.937362569585, 0.45)
    pt3dadd(-121.780763325259, 460.495121163995, -126.228210981986, 0.45)
    pt3dadd(-122.03264761136, 461.41813877348, -126.519059394387, 0.45)
    pt3dadd(-122.28453189746, 462.341156382965, -126.809907806788, 0.45)
    pt3dadd(-122.536416183561, 463.26417399245, -127.100756219189, 0.45)
    pt3dadd(-122.788300469662, 464.187191601935, -127.39160463159, 0.45)
    pt3dadd(-123.040184755762, 465.11020921142, -127.682453043991, 0.45)
    pt3dadd(-123.292069041863, 466.033226820905, -127.973301456392, 0.45)
    pt3dadd(-123.543953327964, 466.95624443039, -128.264149868793, 0.45)
    pt3dadd(-123.795837614064, 467.879262039875, -128.554998281193, 0.45)
    pt3dadd(-124.047721900165, 468.80227964936, -128.845846693594, 0.45)
    pt3dadd(-124.299606186266, 469.725297258845, -129.136695105995, 0.45)
    pt3dadd(-124.551490472366, 470.64831486833, -129.427543518396, 0.45)
    pt3dadd(-124.803374758467, 471.571332477815, -129.718391930797, 0.45)
    pt3dadd(-125.055259044567, 472.4943500873, -130.009240343198, 0.45)
    pt3dadd(-125.307143330668, 473.417367696785, -130.300088755599, 0.45)
    pt3dadd(-125.559027616769, 474.34038530627, -130.590937168, 0.45)
    pt3dadd(-125.810911902869, 475.263402915755, -130.881785580401, 0.45)
    pt3dadd(-126.06279618897, 476.18642052524, -131.172633992801, 0.45)
    pt3dadd(-126.314680475071, 477.109438134725, -131.463482405202, 0.45)
    pt3dadd(-126.566564761171, 478.03245574421, -131.754330817603, 0.45)
    pt3dadd(-126.818449047272, 478.955473353695, -132.045179230004, 0.45)
    pt3dadd(-127.070333333373, 479.87849096318, -132.336027642405, 0.45)
    pt3dadd(-127.322217619473, 480.801508572665, -132.626876054806, 0.45)
    pt3dadd(-127.574101905574, 481.72452618215, -132.917724467207, 0.45)
    pt3dadd(-127.825986191674, 482.647543791635, -133.208572879608, 0.45)
    pt3dadd(-128.077870477775, 483.57056140112, -133.499421292009, 0.45)
    pt3dadd(-128.329754763876, 484.493579010605, -133.790269704409, 0.45)
    pt3dadd(-128.581639049976, 485.41659662009, -134.08111811681, 0.45)
    pt3dadd(-128.833523336077, 486.339614229575, -134.371966529211, 0.45)
    pt3dadd(-129.085407622178, 487.26263183906, -134.662814941612, 0.45)
    pt3dadd(-129.337291908278, 488.185649448545, -134.953663354013, 0.45)
    pt3dadd(-129.589176194379, 489.10866705803, -135.244511766414, 0.45)
    pt3dadd(-129.84106048048, 490.031684667515, -135.535360178815, 0.45)
    pt3dadd(-130.09294476658, 490.954702277, -135.826208591216, 0.45)
    pt3dadd(-130.344829052681, 491.877719886485, -136.117057003617, 0.45)
    pt3dadd(-130.596713338781, 492.800737495971, -136.407905416017, 0.45)
    pt3dadd(-130.848597624882, 493.723755105456, -136.698753828418, 0.45)
    pt3dadd(-131.100481910983, 494.646772714941, -136.989602240819, 0.45)
    pt3dadd(-131.352366197083, 495.569790324426, -137.28045065322, 0.45)
    pt3dadd(-131.604250483184, 496.492807933911, -137.571299065621, 0.45)
    pt3dadd(-131.856134769285, 497.415825543396, -137.862147478022, 0.45)
    pt3dadd(-132.108019055385, 498.338843152881, -138.152995890423, 0.45)
    pt3dadd(-132.359903341486, 499.261860762366, -138.443844302824, 0.45)
    pt3dadd(-132.611787627587, 500.184878371851, -138.734692715225, 0.45)
    pt3dadd(-132.863671913687, 501.107895981336, -139.025541127625, 0.45)
    pt3dadd(-133.115556199788, 502.030913590821, -139.316389540026, 0.45)
    pt3dadd(-133.367440485888, 502.953931200306, -139.607237952427, 0.45)
    pt3dadd(-133.619324771989, 503.876948809791, -139.898086364828, 0.45)
    pt3dadd(-133.87120905809, 504.799966419276, -140.188934777229, 0.45)
    pt3dadd(-134.12309334419, 505.722984028761, -140.47978318963, 0.45)
    pt3dadd(-134.374977630291, 506.646001638246, -140.770631602031, 0.45)
    pt3dadd(-134.626861916392, 507.569019247731, -141.061480014432, 0.45)
    pt3dadd(-134.878746202492, 508.492036857216, -141.352328426833, 0.45)
    pt3dadd(-135.130630488593, 509.415054466701, -141.643176839233, 0.45)
    pt3dadd(-135.382514774694, 510.338072076186, -141.934025251634, 0.45)
    pt3dadd(-135.634399060794, 511.261089685671, -142.224873664035, 0.45)
    pt3dadd(-135.886283346895, 512.184107295156, -142.515722076436, 0.45)
    pt3dadd(-136.138167632995, 513.107124904641, -142.806570488837, 0.45)
    pt3dadd(-136.390051919096, 514.030142514126, -143.097418901238, 0.45)
    pt3dadd(-136.641936205197, 514.953160123611, -143.388267313639, 0.45)
    pt3dadd(-136.893820491297, 515.876177733096, -143.67911572604, 0.45)
    pt3dadd(-137.145704777398, 516.799195342581, -143.969964138441, 0.45)
    pt3dadd(-137.397589063499, 517.722212952066, -144.260812550841, 0.45)
    pt3dadd(-137.649473349599, 518.645230561551, -144.551660963242, 0.45)
    pt3dadd(-137.9013576357, 519.568248171036, -144.842509375643, 0.45)
    pt3dadd(-138.153241921801, 520.491265780521, -145.133357788044, 0.45)
    pt3dadd(-138.405126207901, 521.414283390006, -145.424206200445, 0.45)
    pt3dadd(-138.657010494002, 522.337300999491, -145.715054612846, 0.45)
    pt3dadd(-138.908894780102, 523.260318608976, -146.005903025247, 0.45)
    pt3dadd(-139.160779066203, 524.183336218461, -146.296751437648, 0.45)
    pt3dadd(-139.412663352304, 525.106353827946, -146.587599850049, 0.45)
    pt3dadd(-139.664547638404, 526.029371437432, -146.878448262449, 0.45)
    pt3dadd(-139.916431924505, 526.952389046917, -147.16929667485, 0.45)
    pt3dadd(-140.168316210606, 527.875406656402, -147.460145087251, 0.45)
    pt3dadd(-140.420200496706, 528.798424265887, -147.750993499652, 0.45)
    pt3dadd(-140.672084782807, 529.721441875372, -148.041841912053, 0.45)
    pt3dadd(-140.923969068908, 530.644459484857, -148.332690324454, 0.45)
    pt3dadd(-141.175853355008, 531.567477094342, -148.623538736855, 0.45)
    pt3dadd(-141.427737641109, 532.490494703827, -148.914387149256, 0.45)
    pt3dadd(-141.679621927209, 533.413512313312, -149.205235561657, 0.45)
    pt3dadd(-141.93150621331, 534.336529922797, -149.496083974057, 0.45)
    pt3dadd(-142.183390499411, 535.259547532282, -149.786932386458, 0.45)
    pt3dadd(-142.435274785511, 536.182565141767, -150.077780798859, 0.45)
    pt3dadd(-142.687159071612, 537.105582751252, -150.36862921126, 0.45)
    pt3dadd(-142.939043357713, 538.028600360737, -150.659477623661, 0.45)
    pt3dadd(-143.190927643813, 538.951617970222, -150.950326036062, 0.45)
    pt3dadd(-143.442811929914, 539.874635579707, -151.241174448463, 0.45)
    pt3dadd(-143.694696216015, 540.797653189192, -151.532022860864, 0.45)
    pt3dadd(-143.946580502115, 541.720670798677, -151.822871273265, 0.45)
    pt3dadd(-144.198464788216, 542.643688408162, -152.113719685666, 0.45)
    pt3dadd(-144.450349074316, 543.566706017647, -152.404568098066, 0.45)
    pt3dadd(-144.702233360417, 544.489723627132, -152.695416510467, 0.45)
    pt3dadd(-144.954117646518, 545.412741236617, -152.986264922868, 0.45)
    pt3dadd(-145.206001932618, 546.335758846102, -153.277113335269, 0.45)
    pt3dadd(-145.457886218719, 547.258776455587, -153.56796174767, 0.45)
    pt3dadd(-145.70977050482, 548.181794065072, -153.858810160071, 0.45)
    pt3dadd(-145.96165479092, 549.104811674557, -154.149658572472, 0.45)
    pt3dadd(-146.213539077021, 550.027829284042, -154.440506984873, 0.45)
    pt3dadd(-146.465423363122, 550.950846893527, -154.731355397273, 0.45)
    pt3dadd(-146.717307649222, 551.873864503012, -155.022203809674, 0.45)
    pt3dadd(-146.969191935323, 552.796882112497, -155.313052222075, 0.45)
    pt3dadd(-147.221076221423, 553.719899721982, -155.603900634476, 0.45)
    pt3dadd(-147.472960507524, 554.642917331467, -155.894749046877, 0.45)
    pt3dadd(-147.724844793625, 555.565934940952, -156.185597459278, 0.45)
    pt3dadd(-147.976729079725, 556.488952550437, -156.476445871679, 0.45)
    pt3dadd(-148.228613365826, 557.411970159922, -156.76729428408, 0.45)
    pt3dadd(-148.480497651927, 558.334987769407, -157.058142696481, 0.45)
    pt3dadd(-148.732381938027, 559.258005378892, -157.348991108882, 0.45)
    pt3dadd(-148.984266224128, 560.181022988378, -157.639839521282, 0.45)
    pt3dadd(-149.236150510229, 561.104040597863, -157.930687933683, 0.45)
  }
}
proc shape3d_16() {
  axon[0] {
    pt3dadd(-149.488034796329, 562.027058207348, -158.221536346084, 0.45)
    pt3dadd(-149.73991908243, 562.950075816833, -158.512384758485, 0.45)
    pt3dadd(-149.99180336853, 563.873093426318, -158.803233170886, 0.45)
    pt3dadd(-150.243687654631, 564.796111035803, -159.094081583287, 0.45)
    pt3dadd(-150.495571940732, 565.719128645288, -159.384929995688, 0.45)
    pt3dadd(-150.747456226832, 566.642146254773, -159.675778408089, 0.45)
    pt3dadd(-150.999340512933, 567.565163864258, -159.96662682049, 0.45)
    pt3dadd(-151.251224799034, 568.488181473743, -160.25747523289, 0.45)
    pt3dadd(-151.503109085134, 569.411199083228, -160.548323645291, 0.45)
    pt3dadd(-151.754993371235, 570.334216692713, -160.839172057692, 0.45)
    pt3dadd(-152.006877657336, 571.257234302198, -161.130020470093, 0.45)
    pt3dadd(-152.258761943436, 572.180251911683, -161.420868882494, 0.45)
    pt3dadd(-152.510646229537, 573.103269521168, -161.711717294895, 0.45)
    pt3dadd(-152.762530515637, 574.026287130653, -162.002565707296, 0.45)
    pt3dadd(-153.014414801738, 574.949304740138, -162.293414119697, 0.45)
    pt3dadd(-153.266299087839, 575.872322349623, -162.584262532098, 0.45)
    pt3dadd(-153.518183373939, 576.795339959108, -162.875110944498, 0.45)
    pt3dadd(-153.77006766004, 577.718357568593, -163.165959356899, 0.45)
    pt3dadd(-154.021951946141, 578.641375178078, -163.4568077693, 0.45)
    pt3dadd(-154.273836232241, 579.564392787563, -163.747656181701, 0.45)
    pt3dadd(-154.525720518342, 580.487410397048, -164.038504594102, 0.45)
    pt3dadd(-154.777604804443, 581.410428006533, -164.329353006503, 0.45)
    pt3dadd(-155.029489090543, 582.333445616018, -164.620201418904, 0.45)
    pt3dadd(-155.281373376644, 583.256463225503, -164.911049831305, 0.45)
    pt3dadd(-155.533257662744, 584.179480834988, -165.201898243706, 0.45)
    pt3dadd(-155.785141948845, 585.102498444473, -165.492746656106, 0.45)
    pt3dadd(-156.037026234946, 586.025516053958, -165.783595068507, 0.45)
    pt3dadd(-156.288910521046, 586.948533663443, -166.074443480908, 0.45)
    pt3dadd(-156.540794807147, 587.871551272928, -166.365291893309, 0.45)
    pt3dadd(-156.792679093248, 588.794568882413, -166.65614030571, 0.45)
    pt3dadd(-157.044563379348, 589.717586491898, -166.946988718111, 0.45)
    pt3dadd(-157.296447665449, 590.640604101383, -167.237837130512, 0.45)
    pt3dadd(-157.54833195155, 591.563621710868, -167.528685542913, 0.45)
    pt3dadd(-157.80021623765, 592.486639320354, -167.819533955314, 0.45)
    pt3dadd(-158.052100523751, 593.409656929839, -168.110382367714, 0.45)
    pt3dadd(-158.303984809851, 594.332674539324, -168.401230780115, 0.45)
    pt3dadd(-158.555869095952, 595.255692148809, -168.692079192516, 0.45)
    pt3dadd(-158.807753382053, 596.178709758294, -168.982927604917, 0.45)
    pt3dadd(-159.059637668153, 597.101727367779, -169.273776017318, 0.45)
    pt3dadd(-159.311521954254, 598.024744977264, -169.564624429719, 0.45)
    pt3dadd(-159.563406240355, 598.947762586749, -169.85547284212, 0.45)
    pt3dadd(-159.815290526455, 599.870780196234, -170.146321254521, 0.45)
    pt3dadd(-160.067174812556, 600.793797805719, -170.437169666922, 0.45)
    pt3dadd(-160.319059098657, 601.716815415204, -170.728018079322, 0.45)
    pt3dadd(-160.570943384757, 602.639833024689, -171.018866491723, 0.45)
    pt3dadd(-160.822827670858, 603.562850634174, -171.309714904124, 0.45)
    pt3dadd(-161.074711956958, 604.485868243659, -171.600563316525, 0.45)
    pt3dadd(-161.326596243059, 605.408885853144, -171.891411728926, 0.45)
    pt3dadd(-161.57848052916, 606.331903462629, -172.182260141327, 0.45)
    pt3dadd(-161.83036481526, 607.254921072114, -172.473108553728, 0.45)
    pt3dadd(-162.082249101361, 608.177938681599, -172.763956966129, 0.45)
    pt3dadd(-162.334133387462, 609.100956291084, -173.05480537853, 0.45)
    pt3dadd(-162.586017673562, 610.023973900569, -173.34565379093, 0.45)
    pt3dadd(-162.837901959663, 610.946991510054, -173.636502203331, 0.45)
    pt3dadd(-163.089786245764, 611.870009119539, -173.927350615732, 0.45)
    pt3dadd(-163.341670531864, 612.793026729024, -174.218199028133, 0.45)
    pt3dadd(-163.593554817965, 613.716044338509, -174.509047440534, 0.45)
    pt3dadd(-163.845439104065, 614.639061947994, -174.799895852935, 0.45)
    pt3dadd(-164.097323390166, 615.562079557479, -175.090744265336, 0.45)
    pt3dadd(-164.349207676267, 616.485097166964, -175.381592677737, 0.45)
    pt3dadd(-164.601091962367, 617.408114776449, -175.672441090138, 0.45)
    pt3dadd(-164.852976248468, 618.331132385934, -175.963289502538, 0.45)
    pt3dadd(-165.104860534569, 619.254149995419, -176.254137914939, 0.45)
    pt3dadd(-165.356744820669, 620.177167604904, -176.54498632734, 0.45)
    pt3dadd(-165.60862910677, 621.100185214389, -176.835834739741, 0.45)
    pt3dadd(-165.860513392871, 622.023202823874, -177.126683152142, 0.45)
    pt3dadd(-166.112397678971, 622.946220433359, -177.417531564543, 0.45)
    pt3dadd(-166.364281965072, 623.869238042844, -177.708379976944, 0.45)
    pt3dadd(-166.616166251172, 624.792255652329, -177.999228389345, 0.45)
    pt3dadd(-166.868050537273, 625.715273261814, -178.290076801746, 0.45)
    pt3dadd(-167.119934823374, 626.638290871299, -178.580925214146, 0.45)
    pt3dadd(-167.371819109474, 627.561308480784, -178.871773626547, 0.45)
    pt3dadd(-167.623703395575, 628.48432609027, -179.162622038948, 0.45)
    pt3dadd(-167.875587681676, 629.407343699755, -179.453470451349, 0.45)
    pt3dadd(-168.127471967776, 630.33036130924, -179.74431886375, 0.45)
    pt3dadd(-168.379356253877, 631.253378918725, -180.035167276151, 0.45)
    pt3dadd(-168.631240539978, 632.17639652821, -180.326015688552, 0.45)
    pt3dadd(-168.883124826078, 633.099414137695, -180.616864100953, 0.45)
    pt3dadd(-169.135009112179, 634.02243174718, -180.907712513354, 0.45)
    pt3dadd(-169.386893398279, 634.945449356665, -181.198560925754, 0.45)
    pt3dadd(-169.63877768438, 635.86846696615, -181.489409338155, 0.45)
    pt3dadd(-169.890661970481, 636.791484575635, -181.780257750556, 0.45)
    pt3dadd(-170.142546256581, 637.71450218512, -182.071106162957, 0.45)
    pt3dadd(-170.394430542682, 638.637519794605, -182.361954575358, 0.45)
    pt3dadd(-170.646314828783, 639.56053740409, -182.652802987759, 0.45)
    pt3dadd(-170.898199114883, 640.483555013575, -182.94365140016, 0.45)
    pt3dadd(-171.150083400984, 641.40657262306, -183.234499812561, 0.45)
    pt3dadd(-171.401967687085, 642.329590232545, -183.525348224962, 0.45)
    pt3dadd(-171.653851973185, 643.25260784203, -183.816196637363, 0.45)
    pt3dadd(-171.905736259286, 644.175625451515, -184.107045049763, 0.45)
    pt3dadd(-172.157620545386, 645.098643061, -184.397893462164, 0.45)
    pt3dadd(-172.409504831487, 646.021660670485, -184.688741874565, 0.45)
    pt3dadd(-172.661389117588, 646.94467827997, -184.979590286966, 0.45)
    pt3dadd(-172.913273403688, 647.867695889455, -185.270438699367, 0.45)
    pt3dadd(-173.165157689789, 648.79071349894, -185.561287111768, 0.45)
    pt3dadd(-173.41704197589, 649.713731108425, -185.852135524169, 0.45)
    pt3dadd(-173.66892626199, 650.63674871791, -186.14298393657, 0.45)
    pt3dadd(-173.920810548091, 651.559766327395, -186.433832348971, 0.45)
    pt3dadd(-174.172694834192, 652.48278393688, -186.724680761371, 0.45)
    pt3dadd(-174.424579120292, 653.405801546365, -187.015529173772, 0.45)
    pt3dadd(-174.676463406393, 654.32881915585, -187.306377586173, 0.45)
    pt3dadd(-174.928347692493, 655.251836765335, -187.597225998574, 0.45)
    pt3dadd(-175.180231978594, 656.17485437482, -187.888074410975, 0.45)
    pt3dadd(-175.432116264695, 657.097871984305, -188.178922823376, 0.45)
    pt3dadd(-175.684000550795, 658.02088959379, -188.469771235777, 0.45)
    pt3dadd(-175.935884836896, 658.943907203276, -188.760619648178, 0.45)
    pt3dadd(-176.187769122997, 659.866924812761, -189.051468060579, 0.45)
    pt3dadd(-176.439653409097, 660.789942422246, -189.342316472979, 0.45)
    pt3dadd(-176.691537695198, 661.712960031731, -189.63316488538, 0.45)
    pt3dadd(-176.943421981299, 662.635977641216, -189.924013297781, 0.45)
    pt3dadd(-177.195306267399, 663.5589952507, -190.214861710182, 0.45)
    pt3dadd(-177.4471905535, 664.482012860186, -190.505710122583, 0.45)
    pt3dadd(-177.6990748396, 665.405030469671, -190.796558534984, 0.45)
    pt3dadd(-177.950959125701, 666.328048079156, -191.087406947385, 0.45)
    pt3dadd(-178.202843411802, 667.251065688641, -191.378255359786, 0.45)
    pt3dadd(-178.454727697902, 668.174083298126, -191.669103772187, 0.45)
    pt3dadd(-178.706611984003, 669.097100907611, -191.959952184587, 0.45)
    pt3dadd(-178.958496270104, 670.020118517096, -192.250800596988, 0.45)
    pt3dadd(-179.210380556204, 670.943136126581, -192.541649009389, 0.45)
    pt3dadd(-179.462264842305, 671.866153736066, -192.83249742179, 0.45)
    pt3dadd(-179.714149128406, 672.789171345551, -193.123345834191, 0.45)
    pt3dadd(-179.966033414506, 673.712188955036, -193.414194246592, 0.45)
    pt3dadd(-180.217917700607, 674.635206564521, -193.705042658993, 0.45)
    pt3dadd(-180.469801986707, 675.558224174006, -193.995891071394, 0.45)
    pt3dadd(-180.721686272808, 676.481241783491, -194.286739483795, 0.45)
    pt3dadd(-180.973570558909, 677.404259392976, -194.577587896195, 0.45)
    pt3dadd(-181.225454845009, 678.327277002461, -194.868436308596, 0.45)
    pt3dadd(-181.47733913111, 679.250294611946, -195.159284720997, 0.45)
    pt3dadd(-181.729223417211, 680.173312221431, -195.450133133398, 0.45)
    pt3dadd(-181.981107703311, 681.096329830916, -195.740981545799, 0.45)
    pt3dadd(-182.232991989412, 682.019347440401, -196.0318299582, 0.45)
    pt3dadd(-182.484876275513, 682.942365049886, -196.322678370601, 0.45)
    pt3dadd(-182.736760561613, 683.865382659371, -196.613526783002, 0.45)
    pt3dadd(-182.988644847714, 684.788400268856, -196.904375195403, 0.45)
    pt3dadd(-183.240529133814, 685.711417878341, -197.195223607803, 0.45)
    pt3dadd(-183.492413419915, 686.634435487826, -197.486072020204, 0.45)
    pt3dadd(-183.744297706016, 687.557453097311, -197.776920432605, 0.45)
    pt3dadd(-183.996181992116, 688.480470706796, -198.067768845006, 0.45)
    pt3dadd(-184.248066278217, 689.403488316281, -198.358617257407, 0.45)
    pt3dadd(-184.499950564318, 690.326505925766, -198.649465669808, 0.45)
    pt3dadd(-184.751834850418, 691.249523535251, -198.940314082209, 0.45)
    pt3dadd(-185.003719136519, 692.172541144736, -199.23116249461, 0.45)
    pt3dadd(-185.25560342262, 693.095558754221, -199.522010907011, 0.45)
    pt3dadd(-185.50748770872, 694.018576363706, -199.812859319411, 0.45)
    pt3dadd(-185.759371994821, 694.941593973192, -200.103707731812, 0.45)
    pt3dadd(-186.011256280921, 695.864611582677, -200.394556144213, 0.45)
    pt3dadd(-186.263140567022, 696.787629192162, -200.685404556614, 0.45)
    pt3dadd(-186.515024853123, 697.710646801647, -200.976252969015, 0.45)
    pt3dadd(-186.766909139223, 698.633664411132, -201.267101381416, 0.45)
    pt3dadd(-187.018793425324, 699.556682020617, -201.557949793817, 0.45)
    pt3dadd(-187.270677711425, 700.479699630102, -201.848798206218, 0.45)
    pt3dadd(-187.522561997525, 701.402717239587, -202.139646618619, 0.45)
    pt3dadd(-187.774446283626, 702.325734849072, -202.430495031019, 0.45)
    pt3dadd(-188.026330569727, 703.248752458557, -202.72134344342, 0.45)
    pt3dadd(-188.278214855827, 704.171770068042, -203.012191855821, 0.45)
    pt3dadd(-188.530099141928, 705.094787677527, -203.303040268222, 0.45)
    pt3dadd(-188.781983428028, 706.017805287012, -203.593888680623, 0.45)
    pt3dadd(-189.033867714129, 706.940822896497, -203.884737093024, 0.45)
    pt3dadd(-189.28575200023, 707.863840505982, -204.175585505425, 0.45)
    pt3dadd(-189.53763628633, 708.786858115467, -204.466433917826, 0.45)
    pt3dadd(-189.789520572431, 709.709875724952, -204.757282330227, 0.45)
    pt3dadd(-190.041404858532, 710.632893334437, -205.048130742627, 0.45)
    pt3dadd(-190.293289144632, 711.555910943922, -205.338979155028, 0.45)
    pt3dadd(-190.545173430733, 712.478928553407, -205.629827567429, 0.45)
    pt3dadd(-190.797057716834, 713.401946162892, -205.92067597983, 0.45)
    pt3dadd(-191.048942002934, 714.324963772377, -206.211524392231, 0.45)
    pt3dadd(-191.300826289035, 715.247981381862, -206.502372804632, 0.45)
    pt3dadd(-191.552710575135, 716.170998991347, -206.793221217033, 0.45)
    pt3dadd(-191.804594861236, 717.094016600832, -207.084069629434, 0.45)
    pt3dadd(-192.056479147337, 718.017034210317, -207.374918041835, 0.45)
    pt3dadd(-192.308363433437, 718.940051819802, -207.665766454236, 0.45)
    pt3dadd(-192.560247719538, 719.863069429287, -207.956614866636, 0.45)
    pt3dadd(-192.812132005639, 720.786087038772, -208.247463279037, 0.45)
    pt3dadd(-193.064016291739, 721.709104648257, -208.538311691438, 0.45)
    pt3dadd(-193.31590057784, 722.632122257742, -208.829160103839, 0.45)
    pt3dadd(-193.567784863941, 723.555139867227, -209.12000851624, 0.45)
    pt3dadd(-193.819669150041, 724.478157476712, -209.410856928641, 0.45)
    pt3dadd(-194.071553436142, 725.401175086197, -209.701705341042, 0.45)
    pt3dadd(-194.323437722242, 726.324192695683, -209.992553753443, 0.45)
    pt3dadd(-194.575322008343, 727.247210305168, -210.283402165844, 0.45)
    pt3dadd(-194.827206294444, 728.170227914653, -210.574250578244, 0.45)
    pt3dadd(-195.079090580544, 729.093245524138, -210.865098990645, 0.45)
    pt3dadd(-195.330974866645, 730.016263133622, -211.155947403046, 0.45)
    pt3dadd(-195.582859152746, 730.939280743108, -211.446795815447, 0.45)
    pt3dadd(-195.834743438846, 731.862298352593, -211.737644227848, 0.45)
    pt3dadd(-196.086627724947, 732.785315962078, -212.028492640249, 0.45)
    pt3dadd(-196.338512011048, 733.708333571563, -212.31934105265, 0.45)
    pt3dadd(-196.590396297148, 734.631351181048, -212.610189465051, 0.45)
    pt3dadd(-196.842280583249, 735.554368790533, -212.901037877452, 0.45)
    pt3dadd(-197.094164869349, 736.477386400018, -213.191886289852, 0.45)
    pt3dadd(-197.34604915545, 737.400404009503, -213.482734702253, 0.45)
    pt3dadd(-197.597933441551, 738.323421618988, -213.773583114654, 0.45)
    pt3dadd(-197.849817727651, 739.246439228473, -214.064431527055, 0.45)
    pt3dadd(-198.101702013752, 740.169456837958, -214.355279939456, 0.45)
    pt3dadd(-198.353586299853, 741.092474447443, -214.646128351857, 0.45)
    pt3dadd(-198.605470585953, 742.015492056928, -214.936976764258, 0.45)
    pt3dadd(-198.857354872054, 742.938509666413, -215.227825176659, 0.45)
    pt3dadd(-199.109239158155, 743.861527275898, -215.51867358906, 0.45)
    pt3dadd(-199.361123444255, 744.784544885383, -215.80952200146, 0.45)
    pt3dadd(-199.613007730356, 745.707562494868, -216.100370413861, 0.45)
    pt3dadd(-199.864892016456, 746.630580104353, -216.391218826262, 0.45)
    pt3dadd(-200.116776302557, 747.553597713838, -216.682067238663, 0.45)
    pt3dadd(-200.368660588658, 748.476615323323, -216.972915651064, 0.45)
    pt3dadd(-200.620544874758, 749.399632932808, -217.263764063465, 0.45)
    pt3dadd(-200.872429160859, 750.322650542293, -217.554612475866, 0.45)
    pt3dadd(-201.12431344696, 751.245668151778, -217.845460888267, 0.45)
    pt3dadd(-201.37619773306, 752.168685761263, -218.136309300668, 0.45)
    pt3dadd(-201.628082019161, 753.091703370748, -218.427157713068, 0.45)
    pt3dadd(-201.879966305262, 754.014720980233, -218.718006125469, 0.45)
    pt3dadd(-202.131850591362, 754.937738589718, -219.00885453787, 0.45)
    pt3dadd(-202.383734877463, 755.860756199203, -219.299702950271, 0.45)
    pt3dadd(-202.635619163563, 756.783773808688, -219.590551362672, 0.45)
    pt3dadd(-202.887503449664, 757.706791418173, -219.881399775073, 0.45)
    pt3dadd(-203.139387735765, 758.629809027658, -220.172248187474, 0.45)
    pt3dadd(-203.391272021865, 759.552826637143, -220.463096599875, 0.45)
    pt3dadd(-203.643156307966, 760.475844246628, -220.753945012276, 0.45)
    pt3dadd(-203.895040594067, 761.398861856113, -221.044793424676, 0.45)
    pt3dadd(-204.146924880167, 762.321879465599, -221.335641837077, 0.45)
    pt3dadd(-204.398809166268, 763.244897075084, -221.626490249478, 0.45)
    pt3dadd(-204.650693452369, 764.167914684569, -221.917338661879, 0.45)
    pt3dadd(-204.902577738469, 765.090932294054, -222.20818707428, 0.45)
    pt3dadd(-205.15446202457, 766.013949903539, -222.499035486681, 0.45)
    pt3dadd(-205.40634631067, 766.936967513024, -222.789883899082, 0.45)
    pt3dadd(-205.658230596771, 767.859985122509, -223.080732311483, 0.45)
    pt3dadd(-205.910114882872, 768.783002731994, -223.371580723884, 0.45)
    pt3dadd(-206.161999168972, 769.706020341479, -223.662429136284, 0.45)
    pt3dadd(-206.413883455073, 770.629037950964, -223.953277548685, 0.45)
    pt3dadd(-206.665767741174, 771.552055560449, -224.244125961086, 0.45)
    pt3dadd(-206.917652027274, 772.475073169934, -224.534974373487, 0.45)
    pt3dadd(-207.169536313375, 773.398090779419, -224.825822785888, 0.45)
    pt3dadd(-207.421420599476, 774.321108388904, -225.116671198289, 0.45)
    pt3dadd(-207.673304885576, 775.244125998389, -225.40751961069, 0.45)
    pt3dadd(-207.925189171677, 776.167143607874, -225.698368023091, 0.45)
    pt3dadd(-208.177073457777, 777.090161217359, -225.989216435492, 0.45)
    pt3dadd(-208.428957743878, 778.013178826844, -226.280064847892, 0.45)
    pt3dadd(-208.680842029979, 778.936196436329, -226.570913260293, 0.45)
    pt3dadd(-208.932726316079, 779.859214045814, -226.861761672694, 0.45)
    pt3dadd(-209.18461060218, 780.782231655299, -227.152610085095, 0.45)
    pt3dadd(-209.436494888281, 781.705249264784, -227.443458497496, 0.45)
    pt3dadd(-209.688379174381, 782.628266874269, -227.734306909897, 0.45)
    pt3dadd(-209.940263460482, 783.551284483754, -228.025155322298, 0.45)
    pt3dadd(-210.192147746583, 784.474302093239, -228.316003734699, 0.45)
    pt3dadd(-210.444032032683, 785.397319702724, -228.6068521471, 0.45)
    pt3dadd(-210.695916318784, 786.320337312209, -228.8977005595, 0.45)
    pt3dadd(-210.947800604884, 787.243354921694, -229.188548971901, 0.45)
    pt3dadd(-211.199684890985, 788.166372531179, -229.479397384302, 0.45)
    pt3dadd(-211.451569177086, 789.089390140664, -229.770245796703, 0.45)
    pt3dadd(-211.703453463186, 790.012407750149, -230.061094209104, 0.45)
    pt3dadd(-211.955337749287, 790.935425359634, -230.351942621505, 0.45)
  }
}
proc shape3d_17() {
  axon[0] {
    pt3dadd(-212.207222035388, 791.858442969119, -230.642791033906, 0.45)
    pt3dadd(-212.459106321488, 792.781460578605, -230.933639446307, 0.45)
    pt3dadd(-212.710990607589, 793.70447818809, -231.224487858708, 0.45)
    pt3dadd(-212.96287489369, 794.627495797575, -231.515336271108, 0.45)
    pt3dadd(-213.21475917979, 795.55051340706, -231.806184683509, 0.45)
    pt3dadd(-213.466643465891, 796.473531016544, -232.09703309591, 0.45)
    pt3dadd(-213.718527751991, 797.396548626029, -232.387881508311, 0.45)
    pt3dadd(-213.970412038092, 798.319566235515, -232.678729920712, 0.45)
    pt3dadd(-214.222296324193, 799.242583845, -232.969578333113, 0.45)
    pt3dadd(-214.474180610293, 800.165601454485, -233.260426745514, 0.45)
    pt3dadd(-214.726064896394, 801.08861906397, -233.551275157915, 0.45)
    pt3dadd(-214.977949182495, 802.011636673455, -233.842123570316, 0.45)
    pt3dadd(-215.229833468595, 802.93465428294, -234.132971982717, 0.45)
    pt3dadd(-215.481717754696, 803.857671892425, -234.423820395117, 0.45)
    pt3dadd(-215.733602040797, 804.78068950191, -234.714668807518, 0.45)
    pt3dadd(-215.985486326897, 805.703707111395, -235.005517219919, 0.45)
    pt3dadd(-216.237370612998, 806.62672472088, -235.29636563232, 0.45)
    pt3dadd(-216.489254899098, 807.549742330365, -235.587214044721, 0.45)
    pt3dadd(-216.741139185199, 808.47275993985, -235.878062457122, 0.45)
    pt3dadd(-216.9930234713, 809.395777549335, -236.168910869523, 0.45)
    pt3dadd(-217.2449077574, 810.31879515882, -236.459759281924, 0.45)
    pt3dadd(-217.496792043501, 811.241812768305, -236.750607694324, 0.45)
    pt3dadd(-217.748676329602, 812.16483037779, -237.041456106725, 0.45)
    pt3dadd(-218.000560615702, 813.087847987275, -237.332304519126, 0.45)
    pt3dadd(-218.252444901803, 814.01086559676, -237.623152931527, 0.45)
    pt3dadd(-218.504329187904, 814.933883206245, -237.914001343928, 0.45)
    pt3dadd(-218.756213474004, 815.85690081573, -238.204849756329, 0.45)
    pt3dadd(-219.008097760105, 816.779918425215, -238.49569816873, 0.45)
    pt3dadd(-219.259982046205, 817.7029360347, -238.786546581131, 0.45)
    pt3dadd(-219.511866332306, 818.625953644185, -239.077394993532, 0.45)
    pt3dadd(-219.763750618407, 819.54897125367, -239.368243405933, 0.45)
    pt3dadd(-220.015634904507, 820.471988863155, -239.659091818333, 0.45)
    pt3dadd(-220.267519190608, 821.39500647264, -239.949940230734, 0.45)
    pt3dadd(-220.519403476709, 822.318024082125, -240.240788643135, 0.45)
    pt3dadd(-220.771287762809, 823.24104169161, -240.531637055536, 0.45)
    pt3dadd(-221.02317204891, 824.164059301095, -240.822485467937, 0.45)
    pt3dadd(-221.275056335011, 825.08707691058, -241.113333880338, 0.45)
    pt3dadd(-221.526940621111, 826.010094520065, -241.404182292739, 0.45)
    pt3dadd(-221.778824907212, 826.93311212955, -241.69503070514, 0.45)
    pt3dadd(-222.030709193312, 827.856129739035, -241.985879117541, 0.45)
    pt3dadd(-222.282593479413, 828.779147348521, -242.276727529941, 0.45)
    pt3dadd(-222.534477765514, 829.702164958006, -242.567575942342, 0.45)
    pt3dadd(-222.786362051614, 830.625182567491, -242.858424354743, 0.45)
    pt3dadd(-223.038246337715, 831.548200176976, -243.149272767144, 0.45)
    pt3dadd(-223.290130623816, 832.471217786461, -243.440121179545, 0.45)
    pt3dadd(-223.542014909916, 833.394235395946, -243.730969591946, 0.45)
    pt3dadd(-223.793899196017, 834.317253005431, -244.021818004347, 0.45)
    pt3dadd(-224.045783482118, 835.240270614916, -244.312666416748, 0.45)
    pt3dadd(-224.297667768218, 836.163288224401, -244.603514829149, 0.45)
    pt3dadd(-224.549552054319, 837.086305833886, -244.894363241549, 0.45)
    pt3dadd(-224.801436340419, 838.009323443371, -245.18521165395, 0.45)
    pt3dadd(-225.05332062652, 838.932341052856, -245.476060066351, 0.45)
    pt3dadd(-225.305204912621, 839.855358662341, -245.766908478752, 0.45)
    pt3dadd(-225.557089198721, 840.778376271826, -246.057756891153, 0.45)
    pt3dadd(-225.808973484822, 841.701393881311, -246.348605303554, 0.45)
    pt3dadd(-226.060857770923, 842.624411490796, -246.639453715955, 0.45)
    pt3dadd(-226.312742057023, 843.547429100281, -246.930302128356, 0.45)
    pt3dadd(-226.564626343124, 844.470446709766, -247.221150540757, 0.45)
    pt3dadd(-226.816510629225, 845.393464319251, -247.511998953157, 0.45)
    pt3dadd(-227.068394915325, 846.316481928736, -247.802847365558, 0.45)
    pt3dadd(-227.320279201426, 847.239499538221, -248.093695777959, 0.45)
    pt3dadd(-227.572163487527, 848.162517147706, -248.38454419036, 0.45)
    pt3dadd(-227.824047773627, 849.085534757191, -248.675392602761, 0.45)
    pt3dadd(-228.075932059728, 850.008552366676, -248.966241015162, 0.45)
    pt3dadd(-228.327816345828, 850.931569976161, -249.257089427563, 0.45)
    pt3dadd(-228.579700631929, 851.854587585646, -249.547937839964, 0.45)
    pt3dadd(-228.83158491803, 852.777605195131, -249.838786252365, 0.45)
    pt3dadd(-229.08346920413, 853.700622804616, -250.129634664765, 0.45)
    pt3dadd(-229.335353490231, 854.623640414101, -250.420483077166, 0.45)
    pt3dadd(-229.587237776332, 855.546658023586, -250.711331489567, 0.45)
    pt3dadd(-229.839122062432, 856.469675633071, -251.002179901968, 0.45)
    pt3dadd(-230.091006348533, 857.392693242556, -251.293028314369, 0.45)
    pt3dadd(-230.342890634633, 858.315710852041, -251.58387672677, 0.45)
    pt3dadd(-230.594774920734, 859.238728461526, -251.874725139171, 0.45)
    pt3dadd(-230.846659206835, 860.161746071012, -252.165573551572, 0.45)
    pt3dadd(-231.098543492935, 861.084763680497, -252.456421963973, 0.45)
    pt3dadd(-231.350427779036, 862.007781289981, -252.747270376373, 0.45)
    pt3dadd(-231.602312065137, 862.930798899466, -253.038118788774, 0.45)
    pt3dadd(-231.854196351237, 863.853816508951, -253.328967201175, 0.45)
    pt3dadd(-232.106080637338, 864.776834118437, -253.619815613576, 0.45)
    pt3dadd(-232.357964923439, 865.699851727922, -253.910664025977, 0.45)
    pt3dadd(-232.609849209539, 866.622869337407, -254.201512438378, 0.45)
    pt3dadd(-232.86173349564, 867.545886946892, -254.492360850779, 0.45)
    pt3dadd(-233.11361778174, 868.468904556377, -254.78320926318, 0.45)
    pt3dadd(-233.365502067841, 869.391922165862, -255.074057675581, 0.45)
    pt3dadd(-233.617386353942, 870.314939775347, -255.364906087981, 0.45)
    pt3dadd(-233.869270640042, 871.237957384832, -255.655754500382, 0.45)
    pt3dadd(-234.121154926143, 872.160974994317, -255.946602912783, 0.45)
    pt3dadd(-234.373039212244, 873.083992603802, -256.237451325184, 0.45)
    pt3dadd(-234.624923498344, 874.007010213287, -256.528299737585, 0.45)
    pt3dadd(-234.876807784445, 874.930027822772, -256.819148149986, 0.45)
    pt3dadd(-235.128692070546, 875.853045432257, -257.109996562387, 0.45)
    pt3dadd(-235.380576356646, 876.776063041742, -257.400844974788, 0.45)
    pt3dadd(-235.632460642747, 877.699080651227, -257.691693387189, 0.45)
    pt3dadd(-235.884344928848, 878.622098260712, -257.982541799589, 0.45)
    pt3dadd(-236.136229214948, 879.545115870197, -258.27339021199, 0.45)
    pt3dadd(-236.388113501049, 880.468133479682, -258.564238624391, 0.45)
    pt3dadd(-236.639997787149, 881.391151089167, -258.855087036792, 0.45)
    pt3dadd(-236.89188207325, 882.314168698652, -259.145935449193, 0.45)
    pt3dadd(-237.143766359351, 883.237186308137, -259.436783861594, 0.45)
    pt3dadd(-237.395650645451, 884.160203917622, -259.727632273995, 0.45)
    pt3dadd(-237.647534931552, 885.083221527107, -260.018480686396, 0.45)
    pt3dadd(-237.899419217653, 886.006239136592, -260.309329098797, 0.45)
    pt3dadd(-238.151303503753, 886.929256746077, -260.600177511198, 0.45)
    pt3dadd(-238.403187789854, 887.852274355562, -260.891025923598, 0.45)
    pt3dadd(-238.655072075954, 888.775291965047, -261.181874335999, 0.45)
    pt3dadd(-238.906956362055, 889.698309574532, -261.4727227484, 0.45)
    pt3dadd(-239.158840648156, 890.621327184017, -261.763571160801, 0.45)
    pt3dadd(-239.410724934256, 891.544344793502, -262.054419573202, 0.45)
    pt3dadd(-239.662609220357, 892.467362402987, -262.345267985603, 0.45)
    pt3dadd(-239.914493506458, 893.390380012472, -262.636116398004, 0.45)
    pt3dadd(-240.166377792558, 894.313397621957, -262.926964810405, 0.45)
    pt3dadd(-240.418262078659, 895.236415231442, -263.217813222805, 0.45)
    pt3dadd(-240.67014636476, 896.159432840928, -263.508661635206, 0.45)
    pt3dadd(-240.92203065086, 897.082450450413, -263.799510047607, 0.45)
    pt3dadd(-241.173914936961, 898.005468059898, -264.090358460008, 0.45)
    pt3dadd(-241.425799223061, 898.928485669383, -264.381206872409, 0.45)
    pt3dadd(-241.677683509162, 899.851503278868, -264.67205528481, 0.45)
    pt3dadd(-241.929567795263, 900.774520888353, -264.962903697211, 0.45)
    pt3dadd(-242.181452081363, 901.697538497838, -265.253752109612, 0.45)
    pt3dadd(-242.433336367464, 902.620556107323, -265.544600522013, 0.45)
    pt3dadd(-242.685220653565, 903.543573716808, -265.835448934413, 0.45)
    pt3dadd(-242.937104939665, 904.466591326293, -266.126297346814, 0.45)
    pt3dadd(-243.188989225766, 905.389608935778, -266.417145759215, 0.45)
    pt3dadd(-243.440873511867, 906.312626545263, -266.707994171616, 0.45)
    pt3dadd(-243.692757797967, 907.235644154748, -266.998842584017, 0.45)
    pt3dadd(-243.944642084068, 908.158661764233, -267.289690996418, 0.45)
    pt3dadd(-244.196526370169, 909.081679373718, -267.580539408819, 0.45)
    pt3dadd(-244.448410656269, 910.004696983203, -267.87138782122, 0.45)
    pt3dadd(-244.70029494237, 910.927714592688, -268.162236233621, 0.45)
    pt3dadd(-244.95217922847, 911.850732202173, -268.453084646022, 0.45)
    pt3dadd(-245.204063514571, 912.773749811658, -268.743933058422, 0.45)
    pt3dadd(-245.455947800672, 913.696767421143, -269.034781470823, 0.45)
    pt3dadd(-245.707832086772, 914.619785030628, -269.325629883224, 0.45)
    pt3dadd(-245.959716372873, 915.542802640113, -269.616478295625, 0.45)
    pt3dadd(-246.211600658974, 916.465820249598, -269.907326708026, 0.45)
    pt3dadd(-246.463484945074, 917.388837859083, -270.198175120427, 0.45)
    pt3dadd(-246.715369231175, 918.311855468568, -270.489023532828, 0.45)
    pt3dadd(-246.967253517276, 919.234873078053, -270.779871945229, 0.45)
    pt3dadd(-247.219137803376, 920.157890687538, -271.07072035763, 0.45)
    pt3dadd(-247.471022089477, 921.080908297023, -271.36156877003, 0.45)
    pt3dadd(-247.722906375577, 922.003925906508, -271.652417182431, 0.45)
    pt3dadd(-247.974790661678, 922.926943515993, -271.943265594832, 0.45)
    pt3dadd(-248.226674947779, 923.849961125478, -272.234114007233, 0.45)
    pt3dadd(-248.478559233879, 924.772978734963, -272.524962419634, 0.45)
    pt3dadd(-248.73044351998, 925.695996344448, -272.815810832035, 0.45)
    pt3dadd(-248.982327806081, 926.619013953934, -273.106659244436, 0.45)
    pt3dadd(-249.234212092181, 927.542031563419, -273.397507656837, 0.45)
    pt3dadd(-249.486096378282, 928.465049172903, -273.688356069238, 0.45)
    pt3dadd(-249.737980664382, 929.388066782388, -273.979204481638, 0.45)
    pt3dadd(-249.989864950483, 930.311084391873, -274.270052894039, 0.45)
    pt3dadd(-250.241749236584, 931.234102001358, -274.56090130644, 0.45)
    pt3dadd(-250.493633522684, 932.157119610844, -274.851749718841, 0.45)
    pt3dadd(-250.745517808785, 933.080137220329, -275.142598131242, 0.45)
    pt3dadd(-250.997402094886, 934.003154829814, -275.433446543643, 0.45)
    pt3dadd(-251.249286380986, 934.926172439299, -275.724294956044, 0.45)
    pt3dadd(-251.501170667087, 935.849190048784, -276.015143368445, 0.45)
    pt3dadd(-251.753054953188, 936.772207658269, -276.305991780846, 0.45)
    pt3dadd(-252.004939239288, 937.695225267754, -276.596840193246, 0.45)
    pt3dadd(-252.256823525389, 938.618242877239, -276.887688605647, 0.45)
    pt3dadd(-252.50870781149, 939.541260486724, -277.178537018048, 0.45)
    pt3dadd(-252.76059209759, 940.464278096209, -277.469385430449, 0.45)
    pt3dadd(-253.012476383691, 941.387295705694, -277.76023384285, 0.45)
    pt3dadd(-253.264360669791, 942.310313315179, -278.051082255251, 0.45)
    pt3dadd(-253.516244955892, 943.233330924664, -278.341930667652, 0.45)
    pt3dadd(-253.768129241993, 944.156348534149, -278.632779080053, 0.45)
    pt3dadd(-254.020013528093, 945.079366143634, -278.923627492454, 0.45)
    pt3dadd(-254.271897814194, 946.002383753119, -279.214475904854, 0.45)
    pt3dadd(-254.523782100295, 946.925401362604, -279.505324317255, 0.45)
    pt3dadd(-254.775666386395, 947.848418972089, -279.796172729656, 0.45)
    pt3dadd(-255.027550672496, 948.771436581574, -280.087021142057, 0.45)
    pt3dadd(-255.279434958597, 949.694454191059, -280.377869554458, 0.45)
    pt3dadd(-255.531319244697, 950.617471800544, -280.668717966859, 0.45)
    pt3dadd(-255.783203530798, 951.540489410029, -280.95956637926, 0.45)
    pt3dadd(-256.035087816898, 952.463507019514, -281.250414791661, 0.45)
    pt3dadd(-256.286972102999, 953.386524628999, -281.541263204062, 0.45)
    pt3dadd(-256.5388563891, 954.309542238484, -281.832111616462, 0.45)
    pt3dadd(-256.7907406752, 955.232559847969, -282.122960028863, 0.45)
    pt3dadd(-257.042624961301, 956.155577457454, -282.413808441264, 0.45)
    pt3dadd(-257.294509247402, 957.078595066939, -282.704656853665, 0.45)
    pt3dadd(-257.546393533502, 958.001612676424, -282.995505266066, 0.45)
    pt3dadd(-257.798277819603, 958.924630285909, -283.286353678467, 0.45)
    pt3dadd(-258.050162105704, 959.847647895394, -283.577202090868, 0.45)
    pt3dadd(-258.302046391804, 960.770665504879, -283.868050503269, 0.45)
    pt3dadd(-258.553930677905, 961.693683114364, -284.15889891567, 0.45)
    pt3dadd(-258.805814964005, 962.61670072385, -284.44974732807, 0.45)
    pt3dadd(-259.057699250106, 963.539718333335, -284.740595740471, 0.45)
    pt3dadd(-259.309583536207, 964.46273594282, -285.031444152872, 0.45)
    pt3dadd(-259.561467822307, 965.385753552305, -285.322292565273, 0.45)
    pt3dadd(-259.813352108408, 966.30877116179, -285.613140977674, 0.45)
    pt3dadd(-260.065236394509, 967.231788771275, -285.903989390075, 0.45)
    pt3dadd(-260.317120680609, 968.15480638076, -286.194837802476, 0.45)
    pt3dadd(-260.56900496671, 969.077823990245, -286.485686214877, 0.45)
    pt3dadd(-260.820889252811, 970.00084159973, -286.776534627278, 0.45)
    pt3dadd(-261.072773538911, 970.923859209215, -287.067383039678, 0.45)
    pt3dadd(-261.324657825012, 971.8468768187, -287.358231452079, 0.45)
    pt3dadd(-261.576542111112, 972.769894428185, -287.64907986448, 0.45)
    pt3dadd(-261.828426397213, 973.69291203767, -287.939928276881, 0.45)
    pt3dadd(-262.080310683314, 974.615929647155, -288.230776689282, 0.45)
    pt3dadd(-262.332194969414, 975.53894725664, -288.521625101683, 0.45)
    pt3dadd(-262.584079255515, 976.461964866125, -288.812473514084, 0.45)
    pt3dadd(-262.835963541616, 977.38498247561, -289.103321926485, 0.45)
    pt3dadd(-263.087847827716, 978.308000085095, -289.394170338886, 0.45)
    pt3dadd(-263.339732113817, 979.23101769458, -289.685018751286, 0.45)
    pt3dadd(-263.591616399918, 980.154035304065, -289.975867163687, 0.45)
    pt3dadd(-263.843500686018, 981.07705291355, -290.266715576088, 0.45)
    pt3dadd(-264.095384972119, 982.000070523035, -290.557563988489, 0.45)
    pt3dadd(-264.347269258219, 982.92308813252, -290.84841240089, 0.45)
    pt3dadd(-264.59915354432, 983.846105742005, -291.139260813291, 0.45)
    pt3dadd(-264.851037830421, 984.76912335149, -291.430109225692, 0.45)
    pt3dadd(-265.102922116521, 985.692140960975, -291.720957638093, 0.45)
    pt3dadd(-265.354806402622, 986.61515857046, -292.011806050494, 0.45)
    pt3dadd(-265.606690688723, 987.538176179945, -292.302654462895, 0.45)
    pt3dadd(-265.858574974823, 988.46119378943, -292.593502875295, 0.45)
    pt3dadd(-266.110459260924, 989.384211398915, -292.884351287696, 0.45)
    pt3dadd(-266.362343547025, 990.3072290084, -293.175199700097, 0.45)
    pt3dadd(-266.614227833125, 991.230246617885, -293.466048112498, 0.45)
    pt3dadd(-266.866112119226, 992.15326422737, -293.756896524899, 0.45)
    pt3dadd(-267.117996405326, 993.076281836855, -294.0477449373, 0.45)
    pt3dadd(-267.369880691427, 993.999299446341, -294.338593349701, 0.45)
    pt3dadd(-267.621764977528, 994.922317055825, -294.629441762102, 0.45)
    pt3dadd(-267.873649263628, 995.84533466531, -294.920290174503, 0.45)
    pt3dadd(-268.125533549729, 996.768352274795, -295.211138586903, 0.45)
    pt3dadd(-268.37741783583, 997.69136988428, -295.501986999304, 0.45)
    pt3dadd(-268.62930212193, 998.614387493765, -295.792835411705, 0.45)
    pt3dadd(-268.881186408031, 999.537405103251, -296.083683824106, 0.45)
    pt3dadd(-269.133070694132, 1000.46042271274, -296.374532236507, 0.45)
    pt3dadd(-269.384954980232, 1001.38344032222, -296.665380648908, 0.45)
    pt3dadd(-269.636839266333, 1002.30645793171, -296.956229061309, 0.45)
    pt3dadd(-269.888723552433, 1003.22947554119, -297.24707747371, 0.45)
    pt3dadd(-270.140607838534, 1004.15249315068, -297.537925886111, 0.45)
    pt3dadd(-270.392492124635, 1005.07551076016, -297.828774298511, 0.45)
    pt3dadd(-270.644376410735, 1005.99852836965, -298.119622710912, 0.45)
    pt3dadd(-270.896260696836, 1006.92154597913, -298.410471123313, 0.45)
    pt3dadd(-271.148144982937, 1007.84456358862, -298.701319535714, 0.45)
    pt3dadd(-271.400029269037, 1008.7675811981, -298.992167948115, 0.45)
    pt3dadd(-271.651913555138, 1009.69059880759, -299.283016360516, 0.45)
    pt3dadd(-271.903797841239, 1010.61361641707, -299.573864772917, 0.45)
    pt3dadd(-272.155682127339, 1011.53663402656, -299.864713185318, 0.45)
    pt3dadd(-272.40756641344, 1012.45965163604, -300.155561597719, 0.45)
    pt3dadd(-272.65945069954, 1013.38266924553, -300.446410010119, 0.45)
    pt3dadd(-272.911334985641, 1014.30568685501, -300.73725842252, 0.45)
    pt3dadd(-273.163219271742, 1015.2287044645, -301.028106834921, 0.45)
    pt3dadd(-273.415103557842, 1016.15172207398, -301.318955247322, 0.45)
    pt3dadd(-273.666987843943, 1017.07473968347, -301.609803659723, 0.45)
    pt3dadd(-273.918872130044, 1017.99775729295, -301.900652072124, 0.45)
    pt3dadd(-274.170756416144, 1018.92077490244, -302.191500484525, 0.45)
    pt3dadd(-274.422640702245, 1019.84379251192, -302.482348896926, 0.45)
    pt3dadd(-274.674524988346, 1020.76681012141, -302.773197309327, 0.45)
  }
}
proc shape3d_18() {
  axon[0] {
    pt3dadd(-274.926409274446, 1021.68982773089, -303.064045721727, 0.45)
    pt3dadd(-275.178293560547, 1022.61284534038, -303.354894134128, 0.45)
    pt3dadd(-275.430177846647, 1023.53586294986, -303.645742546529, 0.45)
    pt3dadd(-275.682062132748, 1024.45888055935, -303.93659095893, 0.45)
    pt3dadd(-275.933946418849, 1025.38189816883, -304.227439371331, 0.45)
    pt3dadd(-276.185830704949, 1026.30491577832, -304.518287783732, 0.45)
    pt3dadd(-276.43771499105, 1027.2279333878, -304.809136196133, 0.45)
    pt3dadd(-276.689599277151, 1028.15095099729, -305.099984608534, 0.45)
    pt3dadd(-276.941483563251, 1029.07396860677, -305.390833020935, 0.45)
    pt3dadd(-277.193367849352, 1029.99698621626, -305.681681433335, 0.45)
    pt3dadd(-277.445252135453, 1030.92000382574, -305.972529845736, 0.45)
    pt3dadd(-277.697136421553, 1031.84302143523, -306.263378258137, 0.45)
    pt3dadd(-277.949020707654, 1032.76603904471, -306.554226670538, 0.45)
    pt3dadd(-278.200904993754, 1033.6890566542, -306.845075082939, 0.45)
    pt3dadd(-278.452789279855, 1034.61207426368, -307.13592349534, 0.45)
    pt3dadd(-278.704673565956, 1035.53509187317, -307.426771907741, 0.45)
    pt3dadd(-278.956557852056, 1036.45810948265, -307.717620320142, 0.45)
    pt3dadd(-279.208442138157, 1037.38112709214, -308.008468732543, 0.45)
    pt3dadd(-279.460326424258, 1038.30414470162, -308.299317144943, 0.45)
    pt3dadd(-279.712210710358, 1039.22716231111, -308.590165557344, 0.45)
    pt3dadd(-279.964094996459, 1040.15017992059, -308.881013969745, 0.45)
    pt3dadd(-280.21597928256, 1041.07319753008, -309.171862382146, 0.45)
    pt3dadd(-280.46786356866, 1041.99621513956, -309.462710794547, 0.45)
    pt3dadd(-280.719747854761, 1042.91923274905, -309.753559206948, 0.45)
    pt3dadd(-280.971632140861, 1043.84225035853, -310.044407619349, 0.45)
    pt3dadd(-281.223516426962, 1044.76526796802, -310.33525603175, 0.45)
    pt3dadd(-281.475400713063, 1045.6882855775, -310.626104444151, 0.45)
    pt3dadd(-281.727284999163, 1046.61130318699, -310.916952856551, 0.45)
    pt3dadd(-281.979169285264, 1047.53432079647, -311.207801268952, 0.45)
    pt3dadd(-282.231053571365, 1048.45733840596, -311.498649681353, 0.45)
    pt3dadd(-282.482937857465, 1049.38035601544, -311.789498093754, 0.45)
    pt3dadd(-282.734822143566, 1050.30337362493, -312.080346506155, 0.45)
    pt3dadd(-282.986706429667, 1051.22639123441, -312.371194918556, 0.45)
    pt3dadd(-283.238590715767, 1052.1494088439, -312.662043330957, 0.45)
    pt3dadd(-283.490475001868, 1053.07242645338, -312.952891743358, 0.45)
    pt3dadd(-283.742359287968, 1053.99544406287, -313.243740155759, 0.45)
    pt3dadd(-283.994243574069, 1054.91846167235, -313.534588568159, 0.45)
    pt3dadd(-284.24612786017, 1055.84147928184, -313.82543698056, 0.45)
    pt3dadd(-284.49801214627, 1056.76449689132, -314.116285392961, 0.45)
    pt3dadd(-284.749896432371, 1057.68751450081, -314.407133805362, 0.45)
    pt3dadd(-285.001780718472, 1058.61053211029, -314.697982217763, 0.45)
    pt3dadd(-285.253665004572, 1059.53354971978, -314.988830630164, 0.45)
    pt3dadd(-285.505549290673, 1060.45656732926, -315.279679042565, 0.45)
    pt3dadd(-285.757433576774, 1061.37958493875, -315.570527454966, 0.45)
    pt3dadd(-286.009317862874, 1062.30260254823, -315.861375867367, 0.45)
    pt3dadd(-286.261202148975, 1063.22562015772, -316.152224279767, 0.45)
    pt3dadd(-286.513086435075, 1064.1486377672, -316.443072692168, 0.45)
    pt3dadd(-286.764970721176, 1065.07165537669, -316.733921104569, 0.45)
    pt3dadd(-287.016855007277, 1065.99467298617, -317.02476951697, 0.45)
    pt3dadd(-287.268739293377, 1066.91769059566, -317.315617929371, 0.45)
    pt3dadd(-287.520623579478, 1067.84070820514, -317.606466341772, 0.45)
    pt3dadd(-287.772507865579, 1068.76372581463, -317.897314754173, 0.45)
    pt3dadd(-288.024392151679, 1069.68674342411, -318.188163166574, 0.45)
    pt3dadd(-288.27627643778, 1070.6097610336, -318.479011578975, 0.45)
    pt3dadd(-288.528160723881, 1071.53277864308, -318.769859991375, 0.45)
    pt3dadd(-288.780045009981, 1072.45579625257, -319.060708403776, 0.45)
    pt3dadd(-289.031929296082, 1073.37881386205, -319.351556816177, 0.45)
    pt3dadd(-289.283813582182, 1074.30183147154, -319.642405228578, 0.45)
    pt3dadd(-289.535697868283, 1075.22484908102, -319.933253640979, 0.45)
    pt3dadd(-289.787582154384, 1076.14786669051, -320.22410205338, 0.45)
    pt3dadd(-290.039466440484, 1077.07088429999, -320.514950465781, 0.45)
    pt3dadd(-290.291350726585, 1077.99390190948, -320.805798878182, 0.45)
    pt3dadd(-290.543235012686, 1078.91691951896, -321.096647290583, 0.45)
    pt3dadd(-290.795119298786, 1079.83993712845, -321.387495702983, 0.45)
    pt3dadd(-291.047003584887, 1080.76295473793, -321.678344115384, 0.45)
    pt3dadd(-291.298887870988, 1081.68597234742, -321.969192527785, 0.45)
    pt3dadd(-291.550772157088, 1082.6089899569, -322.260040940186, 0.45)
    pt3dadd(-291.802656443189, 1083.53200756639, -322.550889352587, 0.45)
    pt3dadd(-292.054540729289, 1084.45502517587, -322.841737764988, 0.45)
    pt3dadd(-292.30642501539, 1085.37804278536, -323.132586177389, 0.45)
    pt3dadd(-292.558309301491, 1086.30106039484, -323.42343458979, 0.45)
    pt3dadd(-292.810193587591, 1087.22407800433, -323.714283002191, 0.45)
    pt3dadd(-293.062077873692, 1088.14709561381, -324.005131414592, 0.45)
    pt3dadd(-293.313962159793, 1089.0701132233, -324.295979826992, 0.45)
    pt3dadd(-293.565846445893, 1089.99313083278, -324.586828239393, 0.45)
    pt3dadd(-293.817730731994, 1090.91614844227, -324.877676651794, 0.45)
    pt3dadd(-294.069615018095, 1091.83916605175, -325.168525064195, 0.45)
    pt3dadd(-294.321499304195, 1092.76218366124, -325.459373476596, 0.45)
    pt3dadd(-294.573383590296, 1093.68520127072, -325.750221888997, 0.45)
    pt3dadd(-294.825267876396, 1094.60821888021, -326.041070301398, 0.45)
    pt3dadd(-295.077152162497, 1095.53123648969, -326.331918713799, 0.45)
    pt3dadd(-295.329036448598, 1096.45425409918, -326.6227671262, 0.45)
    pt3dadd(-295.580920734698, 1097.37727170866, -326.9136155386, 0.45)
    pt3dadd(-295.832805020799, 1098.30028931815, -327.204463951001, 0.45)
    pt3dadd(-296.0846893069, 1099.22330692763, -327.495312363402, 0.45)
    pt3dadd(-296.336573593, 1100.14632453712, -327.786160775803, 0.45)
    pt3dadd(-296.588457879101, 1101.0693421466, -328.077009188204, 0.45)
    pt3dadd(-296.840342165202, 1101.99235975609, -328.367857600605, 0.45)
    pt3dadd(-297.092226451302, 1102.91537736557, -328.658706013006, 0.45)
    pt3dadd(-297.344110737403, 1103.83839497506, -328.949554425407, 0.45)
    pt3dadd(-297.595995023503, 1104.76141258454, -329.240402837808, 0.45)
    pt3dadd(-297.847879309604, 1105.68443019403, -329.531251250208, 0.45)
    pt3dadd(-298.099763595705, 1106.60744780351, -329.822099662609, 0.45)
    pt3dadd(-298.351647881805, 1107.530465413, -330.11294807501, 0.45)
    pt3dadd(-298.603532167906, 1108.45348302248, -330.403796487411, 0.45)
    pt3dadd(-298.855416454007, 1109.37650063197, -330.694644899812, 0.45)
    pt3dadd(-299.107300740107, 1110.29951824145, -330.985493312213, 0.45)
    pt3dadd(-299.359185026208, 1111.22253585094, -331.276341724614, 0.45)
    pt3dadd(-299.611069312309, 1112.14555346042, -331.567190137015, 0.45)
    pt3dadd(-299.862953598409, 1113.06857106991, -331.858038549416, 0.45)
    pt3dadd(-300.11483788451, 1113.99158867939, -332.148886961816, 0.45)
    pt3dadd(-300.36672217061, 1114.91460628888, -332.439735374217, 0.45)
    pt3dadd(-300.618606456711, 1115.83762389836, -332.730583786618, 0.45)
    pt3dadd(-300.870490742812, 1116.76064150785, -333.021432199019, 0.45)
    pt3dadd(-301.122375028912, 1117.68365911733, -333.31228061142, 0.45)
    pt3dadd(-301.374259315013, 1118.60667672682, -333.603129023821, 0.45)
    pt3dadd(-301.626143601114, 1119.5296943363, -333.893977436222, 0.45)
    pt3dadd(-301.878027887214, 1120.45271194579, -334.184825848623, 0.45)
    pt3dadd(-302.129912173315, 1121.37572955527, -334.475674261024, 0.45)
    pt3dadd(-302.381796459416, 1122.29874716476, -334.766522673424, 0.45)
    pt3dadd(-302.633680745516, 1123.22176477424, -335.057371085825, 0.45)
    pt3dadd(-302.885565031617, 1124.14478238373, -335.348219498226, 0.45)
    pt3dadd(-303.137449317717, 1125.06779999321, -335.639067910627, 0.45)
    pt3dadd(-303.389333603818, 1125.9908176027, -335.929916323028, 0.45)
    pt3dadd(-303.641217889919, 1126.91383521218, -336.220764735429, 0.45)
    pt3dadd(-303.893102176019, 1127.83685282167, -336.51161314783, 0.45)
    pt3dadd(-304.14498646212, 1128.75987043115, -336.802461560231, 0.45)
    pt3dadd(-304.396870748221, 1129.68288804064, -337.093309972632, 0.45)
    pt3dadd(-304.648755034321, 1130.60590565012, -337.384158385032, 0.45)
    pt3dadd(-304.900639320422, 1131.52892325961, -337.675006797433, 0.45)
    pt3dadd(-305.152523606523, 1132.45194086909, -337.965855209834, 0.45)
    pt3dadd(-305.404407892623, 1133.37495847858, -338.256703622235, 0.45)
    pt3dadd(-305.656292178724, 1134.29797608806, -338.547552034636, 0.45)
    pt3dadd(-305.908176464824, 1135.22099369755, -338.838400447037, 0.45)
    pt3dadd(-306.160060750925, 1136.14401130703, -339.129248859438, 0.45)
    pt3dadd(-306.411945037026, 1137.06702891652, -339.420097271839, 0.45)
    pt3dadd(-306.663829323126, 1137.990046526, -339.71094568424, 0.45)
    pt3dadd(-306.915713609227, 1138.91306413549, -340.00179409664, 0.45)
    pt3dadd(-307.167597895328, 1139.83608174497, -340.292642509041, 0.45)
    pt3dadd(-307.419482181428, 1140.75909935446, -340.583490921442, 0.45)
    pt3dadd(-307.671366467529, 1141.68211696394, -340.874339333843, 0.45)
    pt3dadd(-307.92325075363, 1142.60513457343, -341.165187746244, 0.45)
    pt3dadd(-308.17513503973, 1143.52815218291, -341.456036158645, 0.45)
    pt3dadd(-308.427019325831, 1144.4511697924, -341.746884571046, 0.45)
    pt3dadd(-308.678903611931, 1145.37418740188, -342.037732983447, 0.45)
    pt3dadd(-308.930787898032, 1146.29720501137, -342.328581395848, 0.45)
    pt3dadd(-309.182672184133, 1147.22022262085, -342.619429808248, 0.45)
    pt3dadd(-309.434556470233, 1148.14324023034, -342.910278220649, 0.45)
    pt3dadd(-309.686440756334, 1149.06625783982, -343.20112663305, 0.45)
    pt3dadd(-309.938325042435, 1149.98927544931, -343.491975045451, 0.45)
    pt3dadd(-310.190209328535, 1150.9122930588, -343.782823457852, 0.45)
    pt3dadd(-310.442093614636, 1151.83531066828, -344.073671870253, 0.45)
    pt3dadd(-310.693977900737, 1152.75832827777, -344.364520282654, 0.45)
    pt3dadd(-310.945862186837, 1153.68134588725, -344.655368695055, 0.45)
    pt3dadd(-311.197746472938, 1154.60436349674, -344.946217107456, 0.45)
    pt3dadd(-311.449630759038, 1155.52738110622, -345.237065519856, 0.45)
    pt3dadd(-311.701515045139, 1156.45039871571, -345.527913932257, 0.45)
    pt3dadd(-311.95339933124, 1157.37341632519, -345.818762344658, 0.45)
    pt3dadd(-312.20528361734, 1158.29643393468, -346.109610757059, 0.45)
    pt3dadd(-312.457167903441, 1159.21945154416, -346.40045916946, 0.45)
    pt3dadd(-312.709052189542, 1160.14246915365, -346.691307581861, 0.45)
    pt3dadd(-312.960936475642, 1161.06548676313, -346.982155994262, 0.45)
    pt3dadd(-313.212820761743, 1161.98850437262, -347.273004406663, 0.45)
    pt3dadd(-313.464705047844, 1162.9115219821, -347.563852819064, 0.45)
    pt3dadd(-313.716589333944, 1163.83453959159, -347.854701231465, 0.45)
    pt3dadd(-313.968473620045, 1164.75755720107, -348.145549643865, 0.45)
    pt3dadd(-314.220357906145, 1165.68057481056, -348.436398056266, 0.45)
    pt3dadd(-314.472242192246, 1166.60359242004, -348.727246468667, 0.45)
    pt3dadd(-314.724126478347, 1167.52661002953, -349.018094881068, 0.45)
    pt3dadd(-314.976010764447, 1168.44962763901, -349.308943293469, 0.45)
    pt3dadd(-315.227895050548, 1169.3726452485, -349.59979170587, 0.45)
    pt3dadd(-315.479779336649, 1170.29566285798, -349.890640118271, 0.45)
    pt3dadd(-315.731663622749, 1171.21868046747, -350.181488530672, 0.45)
    pt3dadd(-315.98354790885, 1172.14169807695, -350.472336943072, 0.45)
    pt3dadd(-316.235432194951, 1173.06471568644, -350.763185355473, 0.45)
    pt3dadd(-316.487316481051, 1173.98773329592, -351.054033767874, 0.45)
    pt3dadd(-316.739200767152, 1174.91075090541, -351.344882180275, 0.45)
    pt3dadd(-316.991085053252, 1175.83376851489, -351.635730592676, 0.45)
    pt3dadd(-317.242969339353, 1176.75678612438, -351.926579005077, 0.45)
    pt3dadd(-317.494853625454, 1177.67980373386, -352.217427417478, 0.45)
    pt3dadd(-317.746737911554, 1178.60282134335, -352.508275829879, 0.45)
    pt3dadd(-317.998622197655, 1179.52583895283, -352.79912424228, 0.45)
    pt3dadd(-318.250506483756, 1180.44885656232, -353.089972654681, 0.45)
    pt3dadd(-318.502390769856, 1181.3718741718, -353.380821067081, 0.45)
    pt3dadd(-318.754275055957, 1182.29489178129, -353.671669479482, 0.45)
    pt3dadd(-319.006159342058, 1183.21790939077, -353.962517891883, 0.45)
    pt3dadd(-319.258043628158, 1184.14092700026, -354.253366304284, 0.45)
    pt3dadd(-319.509927914259, 1185.06394460974, -354.544214716685, 0.45)
    pt3dadd(-319.761812200359, 1185.98696221923, -354.835063129086, 0.45)
    pt3dadd(-320.01369648646, 1186.90997982871, -355.125911541487, 0.45)
    pt3dadd(-320.265580772561, 1187.8329974382, -355.416759953888, 0.45)
    pt3dadd(-320.517465058661, 1188.75601504768, -355.707608366289, 0.45)
    pt3dadd(-320.769349344762, 1189.67903265717, -355.998456778689, 0.45)
    pt3dadd(-321.021233630863, 1190.60205026665, -356.28930519109, 0.45)
    pt3dadd(-321.273117916963, 1191.52506787614, -356.580153603491, 0.45)
    pt3dadd(-321.525002203064, 1192.44808548562, -356.871002015892, 0.45)
    pt3dadd(-321.776886489165, 1193.37110309511, -357.161850428293, 0.45)
    pt3dadd(-322.028770775265, 1194.29412070459, -357.452698840694, 0.45)
    pt3dadd(-322.280655061366, 1195.21713831408, -357.743547253095, 0.45)
    pt3dadd(-322.532539347466, 1196.14015592356, -358.034395665496, 0.45)
    pt3dadd(-322.784423633567, 1197.06317353305, -358.325244077897, 0.45)
    pt3dadd(-323.036307919668, 1197.98619114253, -358.616092490297, 0.45)
    pt3dadd(-323.288192205768, 1198.90920875202, -358.906940902698, 0.45)
    pt3dadd(-323.540076491869, 1199.8322263615, -359.197789315099, 0.45)
    pt3dadd(-323.79196077797, 1200.75524397099, -359.4886377275, 0.45)
    pt3dadd(-324.04384506407, 1201.67826158047, -359.779486139901, 0.45)
    pt3dadd(-324.295729350171, 1202.60127918996, -360.070334552302, 0.45)
    pt3dadd(-324.547613636272, 1203.52429679944, -360.361182964703, 0.45)
    pt3dadd(-324.799497922372, 1204.44731440893, -360.652031377104, 0.45)
    pt3dadd(-325.051382208473, 1205.37033201841, -360.942879789505, 0.45)
    pt3dadd(-325.303266494573, 1206.2933496279, -361.233728201905, 0.45)
    pt3dadd(-325.555150780674, 1207.21636723738, -361.524576614306, 0.45)
    pt3dadd(-325.807035066775, 1208.13938484687, -361.815425026707, 0.45)
    pt3dadd(-326.058919352875, 1209.06240245635, -362.106273439108, 0.45)
    pt3dadd(-326.310803638976, 1209.98542006584, -362.397121851509, 0.45)
    pt3dadd(-326.562687925077, 1210.90843767532, -362.68797026391, 0.45)
    pt3dadd(-326.814572211177, 1211.83145528481, -362.978818676311, 0.45)
    pt3dadd(-327.066456497278, 1212.75447289429, -363.269667088712, 0.45)
    pt3dadd(-327.318340783379, 1213.67749050378, -363.560515501113, 0.45)
    pt3dadd(-327.570225069479, 1214.60050811326, -363.851363913513, 0.45)
    pt3dadd(-327.82210935558, 1215.52352572275, -364.142212325914, 0.45)
    pt3dadd(-328.07399364168, 1216.44654333223, -364.433060738315, 0.45)
    pt3dadd(-328.325877927781, 1217.36956094172, -364.723909150716, 0.45)
    pt3dadd(-328.577762213882, 1218.2925785512, -365.014757563117, 0.45)
    pt3dadd(-328.829646499982, 1219.21559616069, -365.305605975518, 0.45)
    pt3dadd(-329.081530786083, 1220.13861377017, -365.596454387919, 0.45)
    pt3dadd(-329.333415072184, 1221.06163137966, -365.88730280032, 0.45)
    pt3dadd(-329.585299358284, 1221.98464898914, -366.178151212721, 0.45)
    pt3dadd(-329.837183644385, 1222.90766659863, -366.468999625121, 0.45)
    pt3dadd(-330.089067930486, 1223.83068420811, -366.759848037522, 0.45)
    pt3dadd(-330.340952216586, 1224.7537018176, -367.050696449923, 0.45)
    pt3dadd(-330.592836502687, 1225.67671942708, -367.341544862324, 0.45)
    pt3dadd(-330.844720788787, 1226.59973703657, -367.632393274725, 0.45)
    pt3dadd(-331.096605074888, 1227.52275464605, -367.923241687126, 0.45)
    pt3dadd(-331.348489360989, 1228.44577225554, -368.214090099527, 0.45)
    pt3dadd(-331.600373647089, 1229.36878986502, -368.504938511928, 0.45)
    pt3dadd(-331.85225793319, 1230.29180747451, -368.795786924329, 0.45)
    pt3dadd(-332.104142219291, 1231.21482508399, -369.086635336729, 0.45)
    pt3dadd(-332.356026505391, 1232.13784269348, -369.37748374913, 0.45)
    pt3dadd(-332.607910791492, 1233.06086030296, -369.668332161531, 0.45)
    pt3dadd(-332.859795077593, 1233.98387791245, -369.959180573932, 0.45)
    pt3dadd(-333.111679363693, 1234.90689552193, -370.250028986333, 0.45)
    pt3dadd(-333.363563649794, 1235.82991313142, -370.540877398734, 0.45)
    pt3dadd(-333.615447935894, 1236.7529307409, -370.831725811135, 0.45)
    pt3dadd(-333.867332221995, 1237.67594835039, -371.122574223536, 0.45)
    pt3dadd(-334.119216508096, 1238.59896595987, -371.413422635937, 0.45)
    pt3dadd(-334.371100794196, 1239.52198356936, -371.704271048337, 0.45)
    pt3dadd(-334.622985080297, 1240.44500117884, -371.995119460738, 0.45)
    pt3dadd(-334.874869366398, 1241.36801878833, -372.285967873139, 0.45)
    pt3dadd(-335.126753652498, 1242.29103639781, -372.57681628554, 0.45)
    pt3dadd(-335.378637938599, 1243.2140540073, -372.867664697941, 0.45)
    pt3dadd(-335.6305222247, 1244.13707161678, -373.158513110342, 0.45)
    pt3dadd(-335.8824065108, 1245.06008922627, -373.449361522743, 0.45)
    pt3dadd(-336.134290796901, 1245.98310683575, -373.740209935144, 0.45)
    pt3dadd(-336.386175083001, 1246.90612444524, -374.031058347545, 0.45)
    pt3dadd(-336.638059369102, 1247.82914205472, -374.321906759945, 0.45)
    pt3dadd(-336.889943655203, 1248.75215966421, -374.612755172346, 0.45)
    pt3dadd(-337.141827941303, 1249.67517727369, -374.903603584747, 0.45)
    pt3dadd(-337.393712227404, 1250.59819488318, -375.194451997148, 0.45)
  }
}
proc shape3d_19() {
  axon[0] {
    pt3dadd(-337.645596513505, 1251.52121249266, -375.485300409549, 0.45)
    pt3dadd(-337.897480799605, 1252.44423010215, -375.77614882195, 0.45)
    pt3dadd(-338.149365085706, 1253.36724771163, -376.066997234351, 0.45)
    pt3dadd(-338.401249371807, 1254.29026532112, -376.357845646752, 0.45)
    pt3dadd(-338.653133657907, 1255.2132829306, -376.648694059153, 0.45)
    pt3dadd(-338.905017944008, 1256.13630054009, -376.939542471554, 0.45)
    pt3dadd(-339.156902230108, 1257.05931814957, -377.230390883954, 0.45)
    pt3dadd(-339.408786516209, 1257.98233575906, -377.521239296355, 0.45)
    pt3dadd(-339.66067080231, 1258.90535336854, -377.812087708756, 0.45)
    pt3dadd(-339.91255508841, 1259.82837097803, -378.102936121157, 0.45)
    pt3dadd(-340.164439374511, 1260.75138858751, -378.393784533558, 0.45)
    pt3dadd(-340.416323660612, 1261.674406197, -378.684632945959, 0.45)
    pt3dadd(-340.668207946712, 1262.59742380648, -378.97548135836, 0.45)
    pt3dadd(-340.920092232813, 1263.52044141597, -379.266329770761, 0.45)
    pt3dadd(-341.171976518914, 1264.44345902545, -379.557178183162, 0.45)
    pt3dadd(-341.423860805014, 1265.36647663494, -379.848026595562, 0.45)
    pt3dadd(-341.675745091115, 1266.28949424442, -380.138875007963, 0.45)
    pt3dadd(-341.927629377215, 1267.21251185391, -380.429723420364, 0.45)
    pt3dadd(-342.179513663316, 1268.13552946339, -380.720571832765, 0.45)
    pt3dadd(-342.431397949417, 1269.05854707288, -381.011420245166, 0.45)
    pt3dadd(-342.683282235517, 1269.98156468236, -381.302268657567, 0.45)
    pt3dadd(-342.935166521618, 1270.90458229185, -381.593117069968, 0.45)
    pt3dadd(-343.187050807719, 1271.82759990133, -381.883965482369, 0.45)
    pt3dadd(-343.438935093819, 1272.75061751082, -382.17481389477, 0.45)
    pt3dadd(-343.69081937992, 1273.6736351203, -382.46566230717, 0.45)
    pt3dadd(-343.942703666021, 1274.59665272979, -382.756510719571, 0.45)
    pt3dadd(-344.194587952121, 1275.51967033927, -383.047359131972, 0.45)
    pt3dadd(-344.446472238222, 1276.44268794876, -383.338207544373, 0.45)
    pt3dadd(-344.698356524322, 1277.36570555824, -383.629055956774, 0.45)
    pt3dadd(-344.950240810423, 1278.28872316773, -383.919904369175, 0.45)
    pt3dadd(-345.202125096524, 1279.21174077721, -384.210752781576, 0.45)
    pt3dadd(-345.454009382624, 1280.1347583867, -384.501601193977, 0.45)
    pt3dadd(-345.705893668725, 1281.05777599618, -384.792449606378, 0.45)
    pt3dadd(-345.957777954826, 1281.98079360567, -385.083298018778, 0.45)
    pt3dadd(-346.209662240926, 1282.90381121515, -385.374146431179, 0.45)
    pt3dadd(-346.461546527027, 1283.82682882464, -385.66499484358, 0.45)
    pt3dadd(-346.713430813128, 1284.74984643412, -385.955843255981, 0.45)
    pt3dadd(-346.965315099228, 1285.67286404361, -386.246691668382, 0.45)
    pt3dadd(-347.217199385329, 1286.59588165309, -386.537540080783, 0.45)
    pt3dadd(-347.469083671429, 1287.51889926258, -386.828388493184, 0.45)
    pt3dadd(-347.72096795753, 1288.44191687206, -387.119236905585, 0.45)
    pt3dadd(-347.972852243631, 1289.36493448155, -387.410085317986, 0.45)
    pt3dadd(-348.224736529731, 1290.28795209103, -387.700933730386, 0.45)
    pt3dadd(-348.476620815832, 1291.21096970052, -387.991782142787, 0.45)
    pt3dadd(-348.728505101933, 1292.13398731, -388.282630555188, 0.45)
    pt3dadd(-348.980389388033, 1293.05700491949, -388.573478967589, 0.45)
    pt3dadd(-349.232273674134, 1293.98002252897, -388.86432737999, 0.45)
    pt3dadd(-349.484157960235, 1294.90304013846, -389.155175792391, 0.45)
    pt3dadd(-349.736042246335, 1295.82605774794, -389.446024204792, 0.45)
    pt3dadd(-349.987926532436, 1296.74907535743, -389.736872617193, 0.45)
    pt3dadd(-350.239810818536, 1297.67209296691, -390.027721029594, 0.45)
    pt3dadd(-350.491695104637, 1298.5951105764, -390.318569441994, 0.45)
    pt3dadd(-350.743579390738, 1299.51812818588, -390.609417854395, 0.45)
    pt3dadd(-350.995463676838, 1300.44114579537, -390.900266266796, 0.45)
    pt3dadd(-351.247347962939, 1301.36416340485, -391.191114679197, 0.45)
    pt3dadd(-351.49923224904, 1302.28718101434, -391.481963091598, 0.45)
    pt3dadd(-351.75111653514, 1303.21019862382, -391.772811503999, 0.45)
    pt3dadd(-352.003000821241, 1304.13321623331, -392.0636599164, 0.45)
    pt3dadd(-352.254885107342, 1305.05623384279, -392.354508328801, 0.45)
    pt3dadd(-352.506769393442, 1305.97925145228, -392.645356741202, 0.45)
  }
  soma[3] {pt3dclear()
    pt3dadd(-12.462983157583, 59.9054786474927, 0, 10.2667572303772)
    pt3dadd(-12.2110988714823, 58.9824610380076, 0.290848412400891, 10.2667572303772)
    pt3dadd(-11.9592145853817, 58.0594434285226, 0.581696824801781, 9.58775356515898)
    pt3dadd(-11.7073302992811, 57.1364258190376, 0.872545237202672, 8.52332145975835)
    pt3dadd(-11.4554460131804, 56.2134082095525, 1.16339364960356, 7.37559768255329)
    pt3dadd(-11.2035617270798, 55.2903906000675, 1.45424206200445, 7.19725210319162)
    pt3dadd(-10.9516774409791, 54.3673729905825, 1.74509047440534, 7.01890652382994)
    pt3dadd(-10.6997931548785, 53.4443553810975, 2.03593888680623, 6.84056094446827)
    pt3dadd(-10.4479088687779, 52.5213377716124, 2.32678729920712, 6.66221536510659)
    pt3dadd(-10.1960245826772, 51.5983201621274, 2.61763571160802, 6.48386978574491)
    pt3dadd(-9.94414029657659, 50.6753025526424, 2.90848412400891, 6.30552420638324)
  }
  GCL[5] {pt3dclear()
    pt3dadd(-9.94414029657659, 50.6753025526424, 2.90848412400891, 6.12717862702156)
    pt3dadd(-9.69225601047596, 49.7522849431574, 3.1993325364098, 6.12717862702156)
    pt3dadd(-9.44037172437532, 48.8292673336723, 3.49018094881069, 5.94883304765989)
    pt3dadd(-9.18848743827468, 47.9062497241873, 3.78102936121158, 5.77048746829821)
    pt3dadd(-8.93660315217404, 46.9832321147023, 4.07187777361247, 5.59214188893653)
    pt3dadd(-8.68471886607341, 46.0602145052173, 4.36272618601336, 5.41379630957486)
    pt3dadd(-8.43283457997277, 45.1371968957322, 4.65357459841425, 5.23545073021318)
    pt3dadd(-8.18095029387213, 44.2141792862472, 4.94442301081514, 5.0571051508515)
    pt3dadd(-7.9290660077715, 43.2911616767622, 5.23527142321603, 4.87875957148983)
    pt3dadd(-7.67718172167086, 42.3681440672771, 5.52611983561692, 4.70041399212815)
    pt3dadd(-7.42529743557022, 41.4451264577921, 5.81696824801781, 4.52206841276648)
    pt3dadd(-7.17341314946959, 40.5221088483071, 6.1078166604187, 4.3437228334048)
    pt3dadd(-6.92152886336895, 39.5990912388221, 6.39866507281959, 4.16537725404312)
    pt3dadd(-6.66964457726831, 38.676073629337, 6.68951348522048, 3.98703167468145)
    pt3dadd(-6.41776029116767, 37.753056019852, 6.98036189762137, 3.80868609531977)
    pt3dadd(-6.16587600506704, 36.830038410367, 7.27121031002227, 3.6303405159581)
    pt3dadd(-5.9139917189664, 35.907020800882, 7.56205872242316, 3.45199493659642)
    pt3dadd(-5.66210743286576, 34.9840031913969, 7.85290713482404, 3.27364935723474)
    pt3dadd(-5.33026302127161, 34.084950247875, 8.0076250791812, 3.1141189876127)
    pt3dadd(-4.8176562510133, 33.2400731766061, 7.85459882806888, 2.99712333976985)
    pt3dadd(-4.305049480755, 32.3951961053372, 7.70157257695656, 2.880127691927)
    pt3dadd(-3.79244271049668, 31.5503190340684, 7.54854632584424, 2.76313204408414)
    pt3dadd(-3.27427878795777, 30.7090171987581, 7.39471061592611, 2.7)
    pt3dadd(-2.74960148053034, 29.8719057988884, 7.23992616167144, 2.7)
    pt3dadd(-2.22492417310292, 29.0347943990187, 7.08514170741677, 2.7)
    pt3dadd(-1.70353535404132, 28.2743449785228, 7.16767018966559, 2.7)
    pt3dadd(-1.18970938317544, 27.6902023737706, 7.79596971137243, 2.7)
    pt3dadd(-0.675883412309561, 27.1060597690184, 8.42426923307928, 2.7)
    pt3dadd(-0.162057441443686, 26.5219171642661, 9.05256875478612, 2.7)
    pt3dadd(0.351768529422195, 25.937774559514, 9.68086827649297, 2.7)
  }
  GCL[6] {pt3dclear()
    pt3dadd(0.351768529422195, 25.937774559514, 9.68086827649297, 2.59382826872505)
    pt3dadd(0.972019660801738, 25.2212148489874, 9.65443322632208, 2.59382826872505)
    pt3dadd(1.61579447740866, 24.4753863236437, 9.48327892083604, 2.46418886895421)
    pt3dadd(2.25956929401558, 23.7295577983001, 9.31212461535001, 2.33454946918337)
    pt3dadd(2.87679726805774, 23.0614831528344, 8.97909176762512, 2.25)
    pt3dadd(3.44424646847792, 22.5392071188322, 8.34251565336272, 2.25)
    pt3dadd(4.01169566889809, 22.01693108483, 7.70593953910032, 2.25)
    pt3dadd(4.57914486931826, 21.4946550508278, 7.06936342483792, 2.25)
    pt3dadd(5.16060573801892, 20.9433631474306, 6.49878082676796, 2.25)
    pt3dadd(5.82628117569605, 20.2176766690509, 6.32484018525438, 2.25)
    pt3dadd(6.49195661337318, 19.4919901906711, 6.1508995437408, 2.25)
    pt3dadd(7.16358722233537, 18.8034987051682, 5.97979152712803, 2.25)
  }
  GCL[7] {pt3dclear()
    pt3dadd(7.16358722233537, 18.8034987051682, 5.97979152712803, 2.25)
    pt3dadd(8.11686208245564, 18.6559265330011, 6.35526504871522, 2.25)
    pt3dadd(9.04732956293406, 18.4852611980186, 6.67946191977887, 2.25)
    pt3dadd(9.97779704341247, 18.3145958630361, 7.00365879084252, 2.25)
    pt3dadd(10.8205611051571, 17.8312494827939, 6.86572972988141, 2.25)
    pt3dadd(11.6531257093233, 17.3115399014046, 6.67405779426818, 2.25)
    pt3dadd(12.4856903134895, 16.7918303200153, 6.48238585865494, 2.25)
    pt3dadd(13.0779255014765, 16.3576163736226, 7.00328714643749, 2.25)
    pt3dadd(13.5907075607866, 15.9516673637353, 7.75976580510619, 2.25)
    pt3dadd(14.1034896200967, 15.545718353848, 8.51624446377489, 2.25)
    pt3dadd(14.6162716794068, 15.1397693439607, 9.27272312244359, 2.25)
    pt3dadd(15.1290537387169, 14.7338203340733, 10.0292017811123, 2.25)
    pt3dadd(15.7407323599165, 14.2400786343641, 10.0090252536086, 2.25)
    pt3dadd(16.4132231677434, 13.6923525965145, 9.51127802774997, 2.25)
    pt3dadd(17.0857139755703, 13.144626558665, 9.01353080189129, 2.25)
    pt3dadd(17.611899069346, 12.4958806003417, 9.24259082333994, 2.25)
    pt3dadd(18.072807707495, 11.8020631121812, 9.79592663494282, 2.25)
    pt3dadd(18.5190924320251, 11.1881183117352, 10.4187042344956, 2.25)
    pt3dadd(18.9191959752332, 10.8264052441982, 11.2607735971287, 2.25)
    pt3dadd(19.3192995184413, 10.4646921766611, 12.1028429597617, 2.25)
    pt3dadd(19.7194030616494, 10.1029791091241, 12.9449123223948, 2.25)
    pt3dadd(20.1195066048576, 9.74126604158701, 13.7869816850279, 2.25)
    pt3dadd(20.5196101480657, 9.37955297404995, 14.6290510476609, 2.25)
    pt3dadd(20.9197136912738, 9.01783990651289, 15.471120410294, 2.25)
    pt3dadd(21.3383108427069, 8.62683101514642, 16.274576470806, 2.25)
    pt3dadd(21.9379572079077, 7.94902109466452, 16.7000150073747, 2.25)
    pt3dadd(22.5376035731085, 7.27121117418261, 17.1254535439435, 2.25)
    pt3dadd(23.1372499383093, 6.5934012537007, 17.5508920805122, 2.25)
    pt3dadd(23.7512030319688, 5.93866860663952, 17.9905276850692, 2.25)
    pt3dadd(24.3820306152662, 5.31115512518517, 18.4469084370123, 2.25)
    pt3dadd(25.0128581985637, 4.68364164373081, 18.9032891889554, 2.25)
    pt3dadd(25.6436857818611, 4.05612816227646, 19.3596699408985, 2.25)
    pt3dadd(26.2745133651585, 3.42861468082212, 19.8160506928417, 2.25)
    pt3dadd(26.9053409484559, 2.80110119936777, 20.2724314447848, 2.25)
    pt3dadd(27.5379652079798, 2.14486697309578, 20.6679152714301, 2.25)
    pt3dadd(28.1756333904767, 1.40800318071087, 20.8924393024452, 2.25)
    pt3dadd(28.8133015729736, 0.67113938832595, 21.1169633334603, 2.25)
  }
  adendIML[13] {pt3dclear()
    pt3dadd(28.8133015729736, 0.67113938832595, 21.1169633334603, 2.25)
    pt3dadd(29.4509697554705, -0.0657244040589663, 21.3414873644753, 2.25)
    pt3dadd(30.0886379379673, -0.802588196443897, 21.5660113954904, 2.25)
    pt3dadd(30.7498683785842, -1.43053703486207, 21.9601139073054, 2.25)
    pt3dadd(31.4186169550991, -2.02373379556911, 22.4083247332524, 2.25)
    pt3dadd(32.0873655316139, -2.61693055627616, 22.8565355591993, 2.25)
    pt3dadd(32.8166010864272, -3.19113836976244, 22.9646844857597, 2.25)
    pt3dadd(33.609934474551, -3.7452236641886, 22.712471040859, 2.25)
    pt3dadd(34.4032678626748, -4.29930895861476, 22.4602575959583, 2.25)
    pt3dadd(35.1966012507986, -4.85339425304092, 22.2080441510576, 2.25)
    pt3dadd(35.9307680511449, -5.48104925314248, 22.0207613807963, 2.25)
    pt3dadd(36.5208465326221, -6.28786846751813, 21.9916042030905, 2.25)
    pt3dadd(37.1109250140993, -7.09468768189379, 21.9624470253847, 2.25)
    pt3dadd(37.7010034955766, -7.90150689626944, 21.9332898476789, 2.25)
    pt3dadd(38.3173168474492, -8.62195662696099, 22.100630615268, 2.25)
    pt3dadd(38.9746477378195, -9.20736991307932, 22.5751908169297, 2.25)
    pt3dadd(39.6319786281897, -9.79278319919761, 23.0497510185914, 2.25)
    pt3dadd(40.28930951856, -10.3781964853159, 23.5243112202531, 2.25)
    pt3dadd(40.9466404089302, -10.9636097714342, 23.9988714219149, 2.25)
    pt3dadd(41.7648260008089, -11.5032190461385, 24.0723677649688, 2.25)
    pt3dadd(42.6119688911351, -12.0345826157675, 24.0736640060594, 2.25)
    pt3dadd(43.4591117814612, -12.5659461853966, 24.07496024715, 2.25)
    pt3dadd(44.3062546717873, -13.0973097550256, 24.0762564882406, 2.25)
    pt3dadd(45.1478948996351, -13.6342805600057, 24.0639442979167, 2.25)
    pt3dadd(45.9192783083067, -14.2428433482654, 23.8778825620014, 2.25)
    pt3dadd(46.6906617169783, -14.8514061365251, 23.691820826086, 2.25)
    pt3dadd(47.4620451256499, -15.4599689247847, 23.5057590901707, 2.25)
    pt3dadd(48.2334285343215, -16.0685317130444, 23.3196973542553, 2.25)
    pt3dadd(49.004811942993, -16.6770945013041, 23.13363561834, 2.25)
    pt3dadd(49.6321151166326, -17.227367007333, 23.6263894324404, 2.25)
    pt3dadd(50.2413291869163, -17.7703212372662, 24.2043677371943, 2.25)
    pt3dadd(50.8505432572, -18.3132754671993, 24.7823460419481, 2.25)
    pt3dadd(51.4597573274836, -18.8562296971324, 25.3603243467019, 2.25)
    pt3dadd(52.0689713977673, -19.3991839270655, 25.9383026514558, 2.25)
    pt3dadd(52.6978579363778, -19.9093636795324, 25.9271175198581, 2.25)
    pt3dadd(53.3461640218794, -20.3871903235119, 25.3343436019056, 2.25)
    pt3dadd(53.994470107381, -20.8650169674915, 24.741569683953, 2.25)
    pt3dadd(54.6427761928827, -21.3428436114711, 24.1487957660005, 2.25)
    pt3dadd(55.2910822783843, -21.8206702554506, 23.556021848048, 2.25)
    pt3dadd(55.7954209770375, -22.6687135598863, 23.4012253696512, 2.25)
    pt3dadd(56.2987289248871, -23.5194074724118, 23.2495646403129, 2.25)
    pt3dadd(56.8020368727368, -24.3701013849373, 23.0979039109746, 2.25)
    pt3dadd(57.3053448205864, -25.2207952974628, 22.9462431816362, 2.25)
    pt3dadd(57.7951499004148, -25.995148855876, 23.0153457071074, 2.25)
    pt3dadd(58.2465545293041, -26.5524000906828, 23.7122710419342, 2.25)
    pt3dadd(58.6979591581934, -27.1096513254897, 24.4091963767611, 2.25)
    pt3dadd(59.1493637870827, -27.6669025602966, 25.106121711588, 2.25)
    pt3dadd(59.600768415972, -28.2241537951034, 25.8030470464148, 2.25)
    pt3dadd(60.0521730448613, -28.7814050299103, 26.4999723812417, 2.25)
    pt3dadd(60.5035776737505, -29.3386562647172, 27.1968977160686, 2.25)
    pt3dadd(60.9985717195221, -29.9636559098575, 27.4161391397227, 2.25)
    pt3dadd(61.5523153732967, -30.6799665390527, 26.9915604680889, 2.25)
    pt3dadd(62.1060590270712, -31.396277168248, 26.5669817964552, 2.25)
    pt3dadd(62.6598026808458, -32.1125877974433, 26.1424031248215, 2.25)
    pt3dadd(63.1234885349018, -32.9144237960603, 25.833204627627, 2.19974512384562)
    pt3dadd(63.4416070803643, -33.8545009895776, 25.7105039297419, 2.06825944826738)
    pt3dadd(63.7597256258268, -34.7945781830949, 25.5878032318569, 1.93677377268913)
    pt3dadd(64.0778441712893, -35.7346553766122, 25.4651025339719, 1.80528809711088)
    pt3dadd(64.1862099684703, -36.6081930697386, 24.9979952251258, 1.8)
    pt3dadd(64.2857864297888, -37.4789425370999, 24.5164561369498, 1.8)
    pt3dadd(64.3853628911073, -38.3496920044612, 24.0349170487739, 1.8)
    pt3dadd(64.4849393524259, -39.2204414718225, 23.553377960598, 1.8)
    pt3dadd(64.8009903663078, -39.9636348999161, 24.0161783532256, 1.8)
    pt3dadd(65.1473260196395, -40.68898332677, 24.6110911828837, 1.8)
    pt3dadd(65.4936616729711, -41.4143317536239, 25.2060040125419, 1.8)
    pt3dadd(65.8399973263028, -42.1396801804779, 25.8009168422001, 1.8)
    pt3dadd(66.1863329796344, -42.8650286073318, 26.3958296718582, 1.8)
    pt3dadd(66.532668632966, -43.5903770341857, 26.9907425015164, 1.8)
    pt3dadd(66.8929182867309, -44.3533027061603, 27.4289366938222, 1.8)
    pt3dadd(67.304296047687, -45.254308970104, 27.2912557215528, 1.8)
    pt3dadd(67.7156738086431, -46.1553152340477, 27.1535747492834, 1.8)
    pt3dadd(68.1270515695991, -47.0563214979914, 27.015893777014, 1.8)
    pt3dadd(68.5384293305552, -47.957327761935, 26.8782128047446, 1.8)
    pt3dadd(68.9498070915112, -48.8583340258787, 26.7405318324753, 1.8)
    pt3dadd(69.5355433028851, -49.5686614933615, 27.0391597635195, 1.8)
    pt3dadd(70.1641151757148, -50.2321437844136, 27.4449782576121, 1.8)
    pt3dadd(70.7926870485446, -50.8956260754657, 27.8507967517048, 1.8)
    pt3dadd(71.4212589213743, -51.5591083665177, 28.2566152457974, 1.8)
    pt3dadd(72.049830794204, -52.2225906575698, 28.6624337398901, 1.8)
    pt3dadd(72.8836999841006, -52.6676520557463, 28.6306363501649, 1.8)
    pt3dadd(73.7945998672871, -53.0307585942706, 28.4346387877011, 1.8)
    pt3dadd(74.7054997504736, -53.3938651327949, 28.2386412252373, 1.8)
    pt3dadd(75.58793538231, -53.4870126590507, 28.358357065214, 1.8)
    pt3dadd(76.4378125570873, -53.2713711432003, 28.8391975007374, 1.8)
    pt3dadd(77.2876897318646, -53.0557296273499, 29.3200379362608, 1.8)
    pt3dadd(78.1375669066418, -52.8400881114995, 29.8008783717842, 1.8)
    pt3dadd(78.9706661613288, -52.9785673617414, 30.2895533283674, 1.8)
    pt3dadd(79.7973653828205, -53.2521279954877, 30.7812168076389, 1.8)
    pt3dadd(80.6240646043122, -53.525688629234, 31.2728802869105, 1.8)
    pt3dadd(81.1472561068769, -54.0784900472302, 31.5716896124809, 1.8)
    pt3dadd(81.185218719883, -55.0777239188722, 31.5621759498323, 1.8)
    pt3dadd(81.2231813328892, -56.0769577905143, 31.5526622871837, 1.8)
    pt3dadd(81.2379856707475, -57.0756518490434, 31.5236657783788, 1.8)
    pt3dadd(81.213605255052, -58.0734325215947, 31.4617034929658, 1.8)
    pt3dadd(81.1892248393565, -59.071213194146, 31.3997412075527, 1.8)
    pt3dadd(81.1648444236611, -60.0689938666973, 31.3377789221397, 1.8)
    pt3dadd(81.1404640079656, -61.0667745392487, 31.2758166367266, 1.8)
    pt3dadd(81.3502273608621, -61.9823269736015, 30.9328096126536, 1.8)
    pt3dadd(81.5601726993566, -62.8978154969856, 30.5895841497338, 1.8)
  }
}
proc shape3d_20() {
  adendIML[13] {
    pt3dadd(81.770118037851, -63.8133040203696, 30.2463586868139, 1.8)
    pt3dadd(82.0181813424911, -64.7253968730259, 30.1148450936079, 1.8)
    pt3dadd(82.3397485795995, -65.6309417595369, 30.3915813769759, 1.8)
    pt3dadd(82.6613158167079, -66.5364866460478, 30.668317660344, 1.8)
    pt3dadd(82.9828830538163, -67.4420315325588, 30.9450539437121, 1.8)
    pt3dadd(83.3044502909247, -68.3475764190697, 31.2217902270801, 1.8)
    pt3dadd(83.6260175280331, -69.2531213055806, 31.4985265104482, 1.8)
    pt3dadd(83.9419430858899, -70.1740818543318, 31.7220012826674, 1.8)
    pt3dadd(84.2540877348308, -71.1053735850252, 31.9097815544734, 1.8)
    pt3dadd(84.5662323837716, -72.0366653157187, 32.0975618262795, 1.8)
    pt3dadd(84.8783770327125, -72.9679570464122, 32.2853420980855, 1.8)
    pt3dadd(85.2608432636827, -73.8544546667551, 32.526516041379, 1.8)
    pt3dadd(85.7127283152094, -74.6967332263394, 32.8203982087036, 1.8)
    pt3dadd(86.1646133667361, -75.5390117859236, 33.1142803760282, 1.8)
    pt3dadd(86.6164984182628, -76.3812903455078, 33.4081625433528, 1.8)
    pt3dadd(87.0683834697895, -77.2235689050921, 33.7020447106774, 1.8)
    pt3dadd(87.5202685213163, -78.0658474646764, 33.9959268780021, 1.8)
    pt3dadd(87.9699595280759, -78.9098852719412, 34.2703666649031, 1.8)
    pt3dadd(88.3624507690039, -79.7997874831084, 34.0379345665288, 1.8)
    pt3dadd(88.7549420099318, -80.6896896942755, 33.8055024681544, 1.8)
    pt3dadd(89.1474332508598, -81.5795919054426, 33.5730703697801, 1.8)
    pt3dadd(89.5399244917878, -82.4694941166098, 33.3406382714058, 1.8)
    pt3dadd(89.9324157327157, -83.3593963277769, 33.1082061730315, 1.8)
    pt3dadd(90.3709676182008, -84.2317482785846, 32.9053432388587, 1.8)
    pt3dadd(90.8864879619234, -85.0747733171331, 32.7518910978228, 1.8)
    pt3dadd(91.402008305646, -85.9177983556816, 32.5984389567869, 1.8)
    pt3dadd(91.9175286493686, -86.76082339423, 32.444986815751, 1.8)
    pt3dadd(92.4160526716767, -87.5566301006282, 32.6097260204137, 1.8)
    pt3dadd(92.8996667767949, -88.3110148189954, 33.0535966029316, 1.8)
    pt3dadd(93.3832808819132, -89.0653995373625, 33.4974671854495, 1.8)
    pt3dadd(93.8668949870313, -89.8197842557297, 33.9413377679674, 1.8)
    pt3dadd(94.3505090921496, -90.5741689740969, 34.3852083504853, 1.8)
    pt3dadd(94.8341231972678, -91.328553692464, 34.8290789330032, 1.8)
    pt3dadd(95.3177373023861, -92.0829384108312, 35.2729495155211, 1.8)
    pt3dadd(95.8013514075043, -92.8373231291984, 35.7168200980391, 1.8)
    pt3dadd(96.2849655126225, -93.5917078475655, 36.160690680557, 1.8)
    pt3dadd(96.5010757565746, -94.2219953125193, 35.5249016633401, 1.8)
    pt3dadd(96.6847669977945, -94.8372433340052, 34.7582678524781, 1.8)
    pt3dadd(96.8684582390145, -95.452491355491, 33.991634041616, 1.8)
    pt3dadd(97.0521494802344, -96.0677393769768, 33.225000230754, 1.8)
    pt3dadd(97.2358407214543, -96.6829873984627, 32.458366419892, 1.8)
    pt3dadd(97.4195319626743, -97.2982354199486, 31.69173260903, 1.8)
    pt3dadd(97.6032232038942, -97.9134834414344, 30.925098798168, 1.8)
    pt3dadd(97.7869144451141, -98.5287314629203, 30.1584649873059, 1.8)
    pt3dadd(97.9724737135533, -99.1457144127673, 29.3979468028836, 1.8)
    pt3dadd(98.4351235858807, -100.020044976384, 29.5445795453455, 1.8)
    pt3dadd(98.8977734582081, -100.89437554, 29.6912122878074, 1.8)
    pt3dadd(99.3604233305355, -101.768706103616, 29.8378450302694, 1.8)
    pt3dadd(99.8230732028629, -102.643036667232, 29.9844777727313, 1.8)
    pt3dadd(100.28572307519, -103.517367230849, 30.1311105151932, 1.8)
    pt3dadd(100.748372947518, -104.391697794465, 30.2777432576551, 1.8)
    pt3dadd(101.20169001484, -105.269281080645, 30.3794463301282, 1.8)
    pt3dadd(101.593235308082, -106.168393418727, 30.183769844959, 1.8)
    pt3dadd(101.984780601325, -107.067505756809, 29.9880933597898, 1.8)
    pt3dadd(102.376325894568, -107.966618094891, 29.7924168746206, 1.8)
    pt3dadd(102.76787118781, -108.865730432973, 29.5967403894514, 1.8)
    pt3dadd(103.210121793729, -109.671966180379, 29.6649245605019, 1.8)
    pt3dadd(103.746323471849, -110.306112361313, 30.2220119697914, 1.8)
    pt3dadd(104.282525149969, -110.940258542246, 30.779099379081, 1.8)
    pt3dadd(104.818726828088, -111.57440472318, 31.3361867883706, 1.8)
    pt3dadd(105.354928506208, -112.208550904113, 31.8932741976601, 1.8)
    pt3dadd(105.891130184328, -112.842697085047, 32.4503616069497, 1.8)
    pt3dadd(106.427331862448, -113.47684326598, 33.0074490162393, 1.8)
    pt3dadd(106.958874749432, -114.170665767582, 33.3584274441686, 1.8)
    pt3dadd(107.479000550529, -115.010734292793, 33.2043040391265, 1.8)
    pt3dadd(107.999126351627, -115.850802818005, 33.0501806340843, 1.8)
    pt3dadd(108.519252152724, -116.690871343216, 32.8960572290422, 1.8)
  }
  adendMML[14] {pt3dclear()
    pt3dadd(108.519252152724, -116.690871343216, 32.8960572290422, 1.8)
    pt3dadd(108.965509387654, -117.583808645171, 32.8878640848985, 1.8)
    pt3dadd(109.403140771057, -118.482919590968, 32.8967116500744, 1.8)
    pt3dadd(109.840772154459, -119.382030536765, 32.9055592152503, 1.8)
    pt3dadd(110.278403537862, -120.281141482561, 32.9144067804262, 1.8)
    pt3dadd(110.716034921264, -121.180252428358, 32.923254345602, 1.8)
    pt3dadd(111.153666304667, -122.079363374155, 32.9321019107779, 1.8)
    pt3dadd(111.684327084347, -122.580563350096, 33.5999768069996, 1.8)
    pt3dadd(112.218258618739, -123.067773455834, 34.2910219787862, 1.8)
    pt3dadd(112.75219015313, -123.554983561571, 34.9820671505728, 1.8)
    pt3dadd(113.286121687522, -124.042193667309, 35.6731123223594, 1.8)
    pt3dadd(113.820053221913, -124.529403773047, 36.364157494146, 1.8)
    pt3dadd(114.223106502718, -125.013534400408, 36.3503792119829, 1.8)
    pt3dadd(114.472600423342, -125.494051878019, 35.5096320815798, 1.8)
    pt3dadd(114.722094343967, -125.974569355631, 34.6688849511766, 1.8)
    pt3dadd(114.971588264591, -126.455086833243, 33.8281378207735, 1.8)
    pt3dadd(115.221082185216, -126.935604310854, 32.9873906903703, 1.8)
    pt3dadd(115.521613347406, -127.503396256462, 33.5066436765496, 1.8)
    pt3dadd(115.830862001801, -128.086095247807, 34.2581935120498, 1.8)
    pt3dadd(116.140110656195, -128.668794239152, 35.00974334755, 1.8)
    pt3dadd(116.449359310589, -129.251493230498, 35.7612931830502, 1.8)
    pt3dadd(116.758607964984, -129.834192221843, 36.5128430185503, 1.8)
    pt3dadd(117.341882602772, -130.567157188378, 36.4764946007652, 1.8)
    pt3dadd(117.971396369642, -131.325478027147, 36.3071962758734, 1.8)
    pt3dadd(118.600910136512, -132.083798865915, 36.1378979509816, 1.8)
    pt3dadd(119.205254958748, -132.851237699672, 35.9417542699698, 1.8)
    pt3dadd(119.681194975911, -133.665193953457, 35.6086532087491, 1.8)
    pt3dadd(120.157134993073, -134.479150207243, 35.2755521475284, 1.8)
    pt3dadd(120.633075010236, -135.293106461029, 34.9424510863078, 1.8)
    pt3dadd(120.810063809215, -135.771163505487, 34.2874314861493, 1.8)
    pt3dadd(120.682965498542, -135.907550693842, 33.3049628839657, 1.8)
    pt3dadd(120.55586718787, -136.043937882198, 32.322494281782, 1.8)
    pt3dadd(120.428768877198, -136.180325070554, 31.3400256795984, 1.8)
    pt3dadd(120.301670566525, -136.316712258909, 30.3575570774147, 1.8)
    pt3dadd(120.174572255853, -136.453099447265, 29.3750884752311, 1.8)
    pt3dadd(120.047473945181, -136.589486635621, 28.3926198730475, 1.8)
    pt3dadd(119.939646133923, -136.758068873666, 27.4817669084334, 1.8)
  }
  adendMML[15] {pt3dclear()
    pt3dadd(119.939646133923, -136.758068873666, 27.4817669084334, 1.8)
    pt3dadd(119.876960264161, -137.660702574912, 26.985911722063, 1.8)
    pt3dadd(119.828663866067, -138.548960120225, 26.5291119944739, 1.8)
    pt3dadd(119.780367467973, -139.437217665538, 26.0723122668847, 1.8)
    pt3dadd(119.732071069879, -140.325475210851, 25.6155125392956, 1.8)
    pt3dadd(119.704183580392, -141.191591619947, 25.2990768497081, 1.78733185315797)
    pt3dadd(119.823784529874, -141.897701353501, 25.9970056835182, 1.68311519491159)
    pt3dadd(119.943385479355, -142.603811087055, 26.6949345173283, 1.57889853666521)
    pt3dadd(120.062986428836, -143.309920820609, 27.3928633511384, 1.47468187841883)
    pt3dadd(120.182587378317, -144.016030554163, 28.0907921849485, 1.37046522017245)
    pt3dadd(120.358867116162, -144.76377438656, 28.7293328820616, 1.35)
    pt3dadd(120.548996692405, -145.521691787543, 29.3533616935153, 1.35)
    pt3dadd(120.739126268648, -146.279609188526, 29.9773905049691, 1.35)
    pt3dadd(120.929255844891, -147.03752658951, 30.6014193164228, 1.35)
    pt3dadd(121.119385421133, -147.795443990493, 31.2254481278765, 1.35)
    pt3dadd(121.310780734615, -148.550293480963, 31.8520608206646, 1.35)
    pt3dadd(121.568473925241, -149.144449307641, 32.6140142793023, 1.35)
    pt3dadd(121.826167115868, -149.738605134318, 33.3759677379401, 1.35)
    pt3dadd(122.083860306494, -150.332760960995, 34.1379211965779, 1.35)
    pt3dadd(122.341553497121, -150.926916787673, 34.8998746552156, 1.35)
    pt3dadd(122.599246687747, -151.52107261435, 35.6618281138534, 1.35)
    pt3dadd(122.856939878373, -152.115228441028, 36.4237815724912, 1.35)
    pt3dadd(123.093884771986, -153.048635087554, 36.3453209473675, 1.35)
    pt3dadd(123.329151935038, -154.00947393577, 36.198903497085, 1.35)
    pt3dadd(123.56441909809, -154.970312783987, 36.0524860468024, 1.35)
    pt3dadd(123.771436737857, -155.93970593514, 35.9272332719604, 1.35)
    pt3dadd(123.941356179122, -156.920332876868, 35.8297746415651, 1.35)
    pt3dadd(124.111275620387, -157.900959818595, 35.7323160111698, 1.35)
    pt3dadd(124.489062377652, -158.462367059371, 36.3603207864263, 1.35)
    pt3dadd(124.90804852174, -158.940684784412, 37.1321127046097, 1.35)
    pt3dadd(125.327034665829, -159.419002509454, 37.9039046227931, 1.35)
    pt3dadd(125.746020809917, -159.897320234495, 38.6756965409765, 1.35)
    pt3dadd(126.165006954005, -160.375637959536, 39.4474884591599, 1.35)
    pt3dadd(126.583993098094, -160.853955684578, 40.2192803773433, 1.35)
    pt3dadd(127.002979242182, -161.332273409619, 40.9910722955267, 1.35)
    pt3dadd(127.42196538627, -161.81059113466, 41.7628642137101, 1.35)
    pt3dadd(127.877635809302, -162.426506191538, 42.1851802563325, 1.35)
    pt3dadd(128.393753435286, -163.269149811239, 42.0316409248004, 1.35)
    pt3dadd(128.909871061269, -164.111793430939, 41.8781015932683, 1.35)
    pt3dadd(129.425988687252, -164.95443705064, 41.7245622617362, 1.35)
    pt3dadd(129.889024192659, -165.68218045995, 42.1235869311401, 1.35)
    pt3dadd(130.336075109025, -166.375324033687, 42.6890048866064, 1.35)
    pt3dadd(130.783126025391, -167.068467607423, 43.2544228420728, 1.35)
    pt3dadd(131.230176941757, -167.76161118116, 43.8198407975391, 1.35)
    pt3dadd(131.697195642443, -168.46205417268, 44.3407552937748, 1.35)
    pt3dadd(132.327739310534, -169.222275306631, 44.4972113902555, 1.35)
    pt3dadd(132.958282978624, -169.982496440582, 44.6536674867363, 1.35)
    pt3dadd(133.588826646714, -170.742717574532, 44.8101235832171, 1.35)
    pt3dadd(133.982595207275, -171.595781884752, 45.0607302221831, 1.35)
    pt3dadd(134.201152092582, -172.517549398698, 45.38100750536, 1.35)
    pt3dadd(134.41970897789, -173.439316912643, 45.7012847885369, 1.35)
    pt3dadd(134.638265863198, -174.361084426589, 46.0215620717139, 1.35)
    pt3dadd(134.835148694172, -175.086669325276, 46.6666616546101, 1.35)
    pt3dadd(135.029239472488, -175.786981970609, 47.3536048608213, 1.35)
    pt3dadd(135.223330250803, -176.487294615942, 48.0405480670325, 1.35)
    pt3dadd(135.417421029119, -177.187607261275, 48.7274912732437, 1.35)
    pt3dadd(135.611511807435, -177.887919906608, 49.4144344794549, 1.35)
    pt3dadd(135.805602585751, -178.58823255194, 50.1013776856661, 1.35)
    pt3dadd(135.992790032419, -179.337980474035, 50.7329435275422, 1.35)
    pt3dadd(136.17505473797, -180.122980515251, 51.3250199688925, 1.35)
    pt3dadd(136.35731944352, -180.907980556466, 51.9170964102429, 1.35)
    pt3dadd(136.539584149071, -181.692980597682, 52.5091728515933, 1.35)
    pt3dadd(136.721848854621, -182.477980638897, 53.1012492929436, 1.35)
    pt3dadd(136.904113560172, -183.262980680113, 53.693325734294, 1.35)
    pt3dadd(137.086378265723, -184.047980721328, 54.2854021756444, 1.35)
    pt3dadd(137.26788689622, -184.834613823638, 54.8660088840664, 1.35)
    pt3dadd(137.386804048391, -185.756439467637, 54.4970967089001, 1.35)
    pt3dadd(137.505721200562, -186.678265111636, 54.1281845337338, 1.35)
    pt3dadd(137.624638352733, -187.600090755634, 53.7592723585674, 1.35)
    pt3dadd(137.743555504904, -188.521916399633, 53.3903601834011, 1.35)
    pt3dadd(137.857780329755, -189.447279091671, 53.0936196449077, 1.35)
    pt3dadd(137.933879967494, -190.401380319864, 53.3832740795298, 1.35)
    pt3dadd(138.009979605232, -191.355481548057, 53.6729285141519, 1.35)
    pt3dadd(138.086079242971, -192.309582776251, 53.9625829487741, 1.35)
    pt3dadd(138.162178880709, -193.263684004444, 54.2522373833962, 1.35)
    pt3dadd(138.238278518448, -194.217785232637, 54.5418918180184, 1.35)
    pt3dadd(138.300249288321, -195.099396130969, 54.9684338153438, 1.35)
    pt3dadd(138.340621009209, -195.870189786146, 55.6042382391182, 1.35)
    pt3dadd(138.380992730097, -196.640983441323, 56.2400426628926, 1.35)
    pt3dadd(138.421364450985, -197.4117770965, 56.875847086667, 1.35)
    pt3dadd(138.461736171873, -198.182570751678, 57.5116515104413, 1.35)
    pt3dadd(138.84862644952, -198.87666185384, 58.1112425484119, 1.35)
    pt3dadd(139.260141016701, -199.565302321869, 58.7082601920299, 1.35)
    pt3dadd(139.671655583882, -200.253942789897, 59.3052778356479, 1.35)
    pt3dadd(140.083170151063, -200.942583257926, 59.9022954792659, 1.35)
    pt3dadd(140.498667217036, -201.633895947918, 60.4869836366652, 1.35)
    pt3dadd(141.08684455254, -202.441075593067, 60.5370679900712, 1.35)
    pt3dadd(141.675021888044, -203.248255238216, 60.5871523434773, 1.35)
    pt3dadd(142.263199223549, -204.055434883365, 60.6372366968833, 1.35)
    pt3dadd(142.851376559053, -204.862614528514, 60.6873210502893, 1.35)
    pt3dadd(143.239817429944, -205.771268709805, 60.5866571522991, 1.35)
    pt3dadd(143.591749591402, -206.698470853092, 60.4584388259352, 1.35)
    pt3dadd(143.94368175286, -207.625672996379, 60.3302204995714, 1.35)
    pt3dadd(144.295613914318, -208.552875139666, 60.2020021732076, 1.35)
    pt3dadd(144.691668740408, -209.359588248711, 60.3198226731757, 1.35)
    pt3dadd(145.18999301226, -209.887026593752, 61.0079227474848, 1.35)
    pt3dadd(145.688317284111, -210.414464938793, 61.6960228217939, 1.35)
    pt3dadd(146.186641555963, -210.941903283834, 62.384122896103, 1.35)
    pt3dadd(146.684965827815, -211.469341628874, 63.0722229704121, 1.35)
    pt3dadd(147.183290099666, -211.996779973915, 63.7603230447213, 1.35)
    pt3dadd(147.68377944593, -212.544750899806, 64.4262498555088, 1.35)
    pt3dadd(148.197901247937, -213.222005834641, 64.9525620498795, 1.35)
    pt3dadd(148.712023049944, -213.899260769475, 65.4788742442503, 1.35)
    pt3dadd(149.226144851951, -214.57651570431, 66.005186438621, 1.35)
    pt3dadd(149.740266653958, -215.253770639144, 66.5314986329917, 1.35)
    pt3dadd(150.233226235998, -216.001194891306, 66.8254995986711, 1.35)
    pt3dadd(150.686275340563, -216.880953603791, 66.6813777174046, 1.35)
    pt3dadd(151.139324445128, -217.760712316276, 66.5372558361381, 1.35)
    pt3dadd(151.661606912674, -218.456668300879, 66.7303299177043, 1.35)
    pt3dadd(152.277360619603, -218.904474144604, 67.3786487426116, 1.35)
    pt3dadd(152.893114326531, -219.35227998833, 68.0269675675189, 1.35)
    pt3dadd(153.508868033459, -219.800085832055, 68.6752863924262, 1.35)
    pt3dadd(154.124621740388, -220.247891675781, 69.3236052173335, 1.35)
    pt3dadd(154.740375447316, -220.695697519506, 69.9719240422408, 1.35)
    pt3dadd(155.356129154245, -221.143503363232, 70.6202428671481, 1.35)
    pt3dadd(155.971882861173, -221.591309206957, 71.2685616920555, 1.35)
    pt3dadd(156.503026786218, -222.063528805105, 71.9714532863209, 1.35)
    pt3dadd(157.027563169844, -222.537654978238, 72.6786067026345, 1.35)
    pt3dadd(157.552099553469, -223.01178115137, 73.3857601189482, 1.35)
    pt3dadd(158.076635937095, -223.485907324502, 74.0929135352618, 1.35)
    pt3dadd(158.60117232072, -223.960033497634, 74.8000669515755, 1.35)
    pt3dadd(159.100365400029, -224.405826485007, 75.5373779629099, 1.35)
    pt3dadd(159.508634345139, -224.749968545091, 76.3828853318548, 1.35)
    pt3dadd(159.916903290249, -225.094110605175, 77.2283927007998, 1.35)
    pt3dadd(160.325172235358, -225.438252665259, 78.0739000697448, 1.35)
    pt3dadd(160.733441180468, -225.782394725344, 78.9194074386897, 1.35)
    pt3dadd(161.141710125577, -226.126536785428, 79.7649148076347, 1.35)
    pt3dadd(161.549979070687, -226.470678845512, 80.6104221765797, 1.35)
  }
  adendMML[16] {pt3dclear()
    pt3dadd(119.939646133923, -136.758068873666, 27.4817669084334, 1.8)
    pt3dadd(120.370361802275, -137.167757620902, 28.3250869106671, 1.8)
    pt3dadd(120.78668799896, -137.59182252407, 29.1293514541194, 1.8)
    pt3dadd(121.203014195645, -138.015887427239, 29.9336159975718, 1.8)
    pt3dadd(121.61934039233, -138.439952330407, 30.7378805410241, 1.8)
    pt3dadd(122.035666589015, -138.864017233576, 31.5421450844765, 1.8)
    pt3dadd(122.451992785699, -139.288082136744, 32.3464096279288, 1.8)
    pt3dadd(122.868318982384, -139.712147039913, 33.1506741713812, 1.8)
    pt3dadd(123.284645179069, -140.136211943081, 33.9549387148335, 1.8)
    pt3dadd(123.700971375754, -140.56027684625, 34.7592032582859, 1.8)
    pt3dadd(124.158231156722, -141.17896771186, 35.1256707814463, 1.8)
    pt3dadd(124.663968858624, -142.028155422166, 34.9736523301339, 1.8)
    pt3dadd(125.169706560527, -142.877343132472, 34.8216338788215, 1.8)
    pt3dadd(125.67544426243, -143.726530842778, 34.6696154275091, 1.8)
    pt3dadd(126.181181964333, -144.575718553084, 34.5175969761967, 1.8)
    pt3dadd(126.769766970274, -145.217832914609, 34.980200944551, 1.8)
    pt3dadd(127.36363369356, -145.846745845979, 35.4819885886091, 1.8)
  }
}
proc shape3d_21() {
  adendMML[16] {
    pt3dadd(127.957500416846, -146.475658777349, 35.9837762326673, 1.8)
    pt3dadd(128.551367140132, -147.104571708719, 36.4855638767255, 1.8)
    pt3dadd(129.145233863418, -147.733484640089, 36.9873515207837, 1.8)
    pt3dadd(129.739100586703, -148.362397571459, 37.4891391648419, 1.8)
    pt3dadd(130.291870548021, -149.053545109651, 37.954079730672, 1.8)
    pt3dadd(130.841132212605, -149.750005413555, 38.4158747814293, 1.8)
    pt3dadd(131.390393877189, -150.44646571746, 38.8776698321866, 1.8)
    pt3dadd(131.939655541772, -151.142926021365, 39.3394648829439, 1.8)
    pt3dadd(132.488917206356, -151.839386325269, 39.8012599337012, 1.8)
    pt3dadd(133.038178870939, -152.535846629174, 40.2630549844585, 1.8)
    pt3dadd(133.54208924415, -153.382497765327, 40.1293944609751, 1.8)
    pt3dadd(134.044637211268, -154.233660810592, 39.977845752236, 1.8)
    pt3dadd(134.547185178386, -155.084823855857, 39.8262970434969, 1.8)
    pt3dadd(135.049733145505, -155.935986901122, 39.6747483347579, 1.8)
    pt3dadd(135.556280643528, -156.787091970264, 39.5749651616187, 1.8)
    pt3dadd(136.076289799524, -157.63800190284, 39.6494149052323, 1.8)
    pt3dadd(136.596298955521, -158.488911835415, 39.7238646488459, 1.8)
    pt3dadd(137.116308111517, -159.339821767991, 39.7983143924595, 1.8)
    pt3dadd(137.636317267514, -160.190731700566, 39.872764136073, 1.8)
    pt3dadd(138.147494779059, -161.030012293335, 40.01883658204, 1.8)
    pt3dadd(138.637236411655, -161.841066532368, 40.3387493117773, 1.8)
    pt3dadd(139.126978044252, -162.652120771401, 40.6586620415146, 1.8)
    pt3dadd(139.616719676849, -163.463175010434, 40.9785747712519, 1.8)
    pt3dadd(140.106461309446, -164.274229249467, 41.2984875009891, 1.8)
    pt3dadd(140.331510949845, -165.074343422628, 40.7545240345016, 1.8)
    pt3dadd(140.552257341015, -165.874279736877, 40.1965160382041, 1.8)
    pt3dadd(140.773003732186, -166.674216051125, 39.6385080419066, 1.8)
    pt3dadd(140.993750123356, -167.474152365374, 39.0805000456091, 1.8)
    pt3dadd(141.214496514527, -168.274088679622, 38.5224920493116, 1.8)
    pt3dadd(141.597161086002, -169.091669854363, 38.5035641598154, 1.8)
    pt3dadd(142.074162780354, -169.919531316155, 38.7987162962889, 1.8)
    pt3dadd(142.551164474705, -170.747392777948, 39.0938684327624, 1.8)
    pt3dadd(143.028166169056, -171.57525423974, 39.3890205692358, 1.8)
    pt3dadd(143.503575054374, -172.406676234919, 39.6537169552652, 1.8)
    pt3dadd(143.957595356505, -173.285909840237, 39.509446956537, 1.8)
    pt3dadd(144.411615658636, -174.165143445554, 39.3651769578089, 1.8)
    pt3dadd(144.865635960767, -175.044377050872, 39.2209069590807, 1.8)
    pt3dadd(145.319656262898, -175.92361065619, 39.0766369603526, 1.8)
    pt3dadd(145.773634133014, -176.644822113457, 39.4905878939325, 1.8)
    pt3dadd(146.227599093468, -177.317956366473, 40.0743738924776, 1.8)
    pt3dadd(146.681564053921, -177.991090619489, 40.6581598910227, 1.8)
    pt3dadd(147.135529014374, -178.664224872505, 41.2419458895677, 1.8)
    pt3dadd(147.589493974828, -179.33735912552, 41.8257318881128, 1.8)
    pt3dadd(148.041700747292, -180.025286769025, 42.3345105677, 1.8)
    pt3dadd(148.474843902296, -180.873615654533, 42.0300025886802, 1.8)
    pt3dadd(148.907987057301, -181.72194454004, 41.7254946096605, 1.8)
    pt3dadd(149.341130212305, -182.570273425547, 41.4209866306407, 1.8)
    pt3dadd(149.727386581144, -183.419320652911, 41.2878594699677, 1.8)
    pt3dadd(149.947005474876, -184.270920895377, 41.7638264525918, 1.8)
    pt3dadd(150.166624368607, -185.122521137842, 42.239793435216, 1.8)
    pt3dadd(150.386243262338, -185.974121380308, 42.7157604178401, 1.8)
    pt3dadd(150.60586215607, -186.825721622774, 43.1917274004643, 1.8)
    pt3dadd(150.825481049801, -187.67732186524, 43.6676943830884, 1.8)
    pt3dadd(151.195050351487, -188.515240602042, 43.9100973291718, 1.8)
    pt3dadd(151.763748825061, -189.334990752775, 43.8423349758503, 1.8)
    pt3dadd(152.332447298635, -190.154740903508, 43.7745726225288, 1.8)
    pt3dadd(152.90114577221, -190.974491054241, 43.7068102692073, 1.8)
    pt3dadd(153.469844245784, -191.794241204974, 43.6390479158857, 1.8)
    pt3dadd(153.910210274884, -192.388316350073, 44.256048152443, 1.8)
    pt3dadd(154.333236365372, -192.951898888565, 44.9655716891017, 1.8)
    pt3dadd(154.75626245586, -193.515481427058, 45.6750952257605, 1.8)
    pt3dadd(155.179288546348, -194.07906396555, 46.3846187624193, 1.8)
    pt3dadd(155.602314636836, -194.642646504043, 47.0941422990781, 1.8)
    pt3dadd(156.025340727324, -195.206229042536, 47.8036658357368, 1.8)
    pt3dadd(156.509753348901, -195.743009319893, 48.0323414003763, 1.8)
    pt3dadd(157.104832639032, -196.231470904261, 47.3941518368026, 1.8)
    pt3dadd(157.699911929163, -196.719932488629, 46.7559622732289, 1.8)
    pt3dadd(158.294991219294, -197.208394072997, 46.1177727096552, 1.8)
    pt3dadd(158.890070509425, -197.696855657364, 45.4795831460815, 1.8)
    pt3dadd(159.485149799556, -198.185317241732, 44.8413935825078, 1.8)
    pt3dadd(160.138806963094, -198.780282776951, 44.8618837529234, 1.8)
    pt3dadd(160.820971180414, -199.427078699279, 45.2029218966382, 1.8)
    pt3dadd(161.503135397734, -200.073874621607, 45.543960040353, 1.8)
    pt3dadd(162.216270682819, -200.663863950571, 45.9130575366415, 1.8)
    pt3dadd(162.973729197492, -201.17255638339, 46.3223112566534, 1.8)
    pt3dadd(163.731187712164, -201.681248816208, 46.7315649766654, 1.8)
    pt3dadd(164.488646226837, -202.189941249026, 47.1408186966773, 1.8)
    pt3dadd(165.246104741509, -202.698633681845, 47.5500724166892, 1.8)
    pt3dadd(166.003563256182, -203.207326114663, 47.9593261367011, 1.8)
    pt3dadd(166.761021770854, -203.716018547481, 48.368579856713, 1.8)
    pt3dadd(167.372931724042, -204.42025242518, 48.6741308717329, 1.8)
    pt3dadd(167.909636813985, -205.225522462021, 48.9260987549951, 1.8)
    pt3dadd(168.446341903927, -206.030792498862, 49.1780666382574, 1.8)
    pt3dadd(168.983046993869, -206.836062535703, 49.4300345215196, 1.8)
    pt3dadd(169.519752083812, -207.641332572545, 49.6820024047819, 1.8)
    pt3dadd(169.949067253333, -208.356025004015, 49.2866818974659, 1.8)
    pt3dadd(170.342001934398, -209.0400324558, 48.6720794712431, 1.8)
    pt3dadd(170.734936615463, -209.724039907585, 48.0574770450202, 1.8)
    pt3dadd(171.127871296528, -210.408047359371, 47.4428746187974, 1.8)
    pt3dadd(171.54137974047, -211.088776183643, 46.8944099572257, 1.8)
    pt3dadd(172.23218215128, -211.725315540286, 47.2373526297881, 1.8)
    pt3dadd(172.922984562091, -212.361854896928, 47.5802953023504, 1.8)
    pt3dadd(173.613786972901, -212.99839425357, 47.9232379749128, 1.8)
    pt3dadd(174.304589383711, -213.634933610212, 48.2661806474752, 1.8)
    pt3dadd(174.995391794522, -214.271472966854, 48.6091233200375, 1.8)
    pt3dadd(175.64117221526, -214.987405782214, 48.6504654056247, 1.8)
    pt3dadd(176.255802960034, -215.758269099508, 48.4831370050812, 1.8)
    pt3dadd(176.870433704808, -216.529132416803, 48.3158086045376, 1.8)
    pt3dadd(177.368612636502, -217.008935816805, 48.9303219435389, 1.8)
    pt3dadd(177.843161621157, -217.429678475295, 49.7034835543872, 1.8)
    pt3dadd(178.317710605812, -217.850421133786, 50.4766451652355, 1.8)
    pt3dadd(178.792259590467, -218.271163792276, 51.2498067760838, 1.8)
    pt3dadd(179.266808575121, -218.691906450766, 52.0229683869322, 1.8)
  }
  adendMML[17] {pt3dclear()
    pt3dadd(108.519252152724, -116.690871343216, 32.8960572290422, 1.8)
    pt3dadd(109.292224042541, -117.265872425135, 32.6605884762182, 1.8)
    pt3dadd(110.094721519949, -117.809920795647, 32.415620785905, 1.8)
    pt3dadd(110.897218997357, -118.353969166158, 32.1706530955918, 1.8)
    pt3dadd(111.699716474765, -118.898017536669, 31.9256854052786, 1.8)
    pt3dadd(112.509145395706, -119.453368250831, 31.735013462489, 1.8)
    pt3dadd(113.318695505244, -120.008916573927, 31.545290820582, 1.8)
    pt3dadd(114.128245614782, -120.564464897024, 31.3555681786749, 1.8)
    pt3dadd(114.93779572432, -121.12001322012, 31.1658455367679, 1.8)
    pt3dadd(115.747345833858, -121.675561543216, 30.9761228948609, 1.8)
    pt3dadd(116.459700184069, -122.089872423435, 31.4738601601315, 1.8)
    pt3dadd(117.157890295138, -122.483600914767, 32.0717802584035, 1.8)
    pt3dadd(117.856080406208, -122.877329406099, 32.6697003566755, 1.8)
    pt3dadd(118.554270517278, -123.271057897432, 33.2676204549476, 1.8)
    pt3dadd(119.252460628347, -123.664786388764, 33.8655405532196, 1.8)
    pt3dadd(119.950650739417, -124.058514880096, 34.4634606514916, 1.8)
    pt3dadd(120.658170359719, -124.458726103047, 35.0188422128343, 1.8)
    pt3dadd(121.513907235758, -124.961928026402, 34.8984170355704, 1.8)
    pt3dadd(122.369644111797, -125.465129949757, 34.7779918583064, 1.8)
    pt3dadd(123.225380987836, -125.968331873111, 34.6575666810425, 1.8)
    pt3dadd(124.081117863875, -126.471533796466, 34.5371415037786, 1.8)
    pt3dadd(124.936854739914, -126.974735719821, 34.4167163265147, 1.8)
    pt3dadd(125.745745542101, -127.376671748257, 34.8441613415172, 1.8)
    pt3dadd(126.554421474641, -127.778143298769, 35.2741192816227, 1.8)
    pt3dadd(127.363097407181, -128.179614849282, 35.7040772217281, 1.8)
    pt3dadd(128.171773339721, -128.581086399795, 36.1340351618336, 1.8)
    pt3dadd(128.980449272261, -128.982557950307, 36.563993101939, 1.8)
    pt3dadd(129.789125204801, -129.38402950082, 36.9939510420445, 1.8)
    pt3dadd(130.597801137341, -129.785501051332, 37.4239089821499, 1.8)
    pt3dadd(131.43004230333, -130.255220971228, 37.4303190231557, 1.8)
    pt3dadd(132.273350440804, -130.756992462332, 37.2378177089131, 1.8)
    pt3dadd(133.116658578279, -131.258763953435, 37.0453163946705, 1.8)
    pt3dadd(133.959966715753, -131.760535444539, 36.8528150804278, 1.8)
    pt3dadd(134.803274853228, -132.262306935642, 36.6603137661852, 1.8)
    pt3dadd(135.646582990702, -132.764078426746, 36.4678124519426, 1.8)
    pt3dadd(136.538796412455, -133.169889767467, 36.2904409839779, 1.8)
    pt3dadd(137.463306319385, -133.512330132633, 36.1230610918373, 1.8)
    pt3dadd(138.387816226315, -133.854770497799, 35.9556811996967, 1.8)
    pt3dadd(139.312326133245, -134.197210862965, 35.7883013075561, 1.8)
    pt3dadd(140.236836040175, -134.539651228131, 35.6209214154155, 1.8)
    pt3dadd(141.161345947105, -134.882091593297, 35.453541523275, 1.8)
    pt3dadd(142.080342319271, -135.235731553302, 35.28343335896, 1.8)
    pt3dadd(142.95045310628, -135.688672373937, 35.0891350539444, 1.8)
    pt3dadd(143.82056389329, -136.141613194573, 34.8948367489287, 1.8)
    pt3dadd(144.690674680299, -136.594554015209, 34.7005384439131, 1.8)
    pt3dadd(145.560785467308, -137.047494835845, 34.5062401388975, 1.8)
    pt3dadd(146.430896254317, -137.50043565648, 34.3119418338818, 1.8)
    pt3dadd(147.299763906937, -137.955679581067, 34.1177243210723, 1.8)
    pt3dadd(148.150222773842, -138.445028705769, 33.9247032086066, 1.8)
    pt3dadd(149.000681640746, -138.934377830471, 33.731682096141, 1.8)
    pt3dadd(149.85114050765, -139.423726955173, 33.5386609836753, 1.8)
    pt3dadd(150.745533755703, -139.839228369587, 33.5261180861245, 1.8)
    pt3dadd(151.669903345146, -140.204343637286, 33.6367151177619, 1.8)
    pt3dadd(152.594272934588, -140.569458904985, 33.7473121493994, 1.8)
    pt3dadd(153.518642524031, -140.934574172684, 33.8579091810368, 1.8)
    pt3dadd(154.443012113473, -141.299689440383, 33.9685062126743, 1.8)
    pt3dadd(155.344831851648, -141.702275087785, 33.9721728322646, 1.8)
    pt3dadd(156.205033657244, -142.1740159468, 33.7784890291589, 1.8)
    pt3dadd(157.06523546284, -142.645756805815, 33.5848052260532, 1.8)
    pt3dadd(157.925437268436, -143.11749766483, 33.3911214229475, 1.8)
    pt3dadd(158.785637972672, -143.588789734603, 33.206765203994, 1.8)
    pt3dadd(159.645788773718, -144.039746913942, 33.4450470158544, 1.8)
    pt3dadd(160.505939574763, -144.490704093281, 33.6833288277147, 1.8)
    pt3dadd(161.366090375808, -144.941661272621, 33.921610639575, 1.8)
    pt3dadd(162.226241176854, -145.39261845196, 34.1598924514353, 1.8)
    pt3dadd(163.086391977899, -145.8435756313, 34.3981742632956, 1.8)
    pt3dadd(163.927352663083, -146.342844755261, 34.3285107153242, 1.8)
    pt3dadd(164.760706284857, -146.861264989559, 34.1367759982093, 1.8)
    pt3dadd(165.59405990663, -147.379685223857, 33.9450412810943, 1.8)
    pt3dadd(166.427413528404, -147.898105458155, 33.7533065639794, 1.8)
    pt3dadd(167.260767150178, -148.416525692454, 33.5615718468645, 1.8)
    pt3dadd(168.089242348139, -148.85815380213, 33.674071110335, 1.8)
    pt3dadd(168.912469659196, -149.217174003887, 34.1138452444752, 1.8)
    pt3dadd(169.735696970254, -149.576194205645, 34.5536193786154, 1.8)
    pt3dadd(170.558924281312, -149.935214407402, 34.9933935127556, 1.8)
    pt3dadd(171.382151592369, -150.29423460916, 35.4331676468958, 1.8)
    pt3dadd(172.205378903427, -150.653254810917, 35.8729417810359, 1.8)
    pt3dadd(173.028606214485, -151.012275012675, 36.3127159151761, 1.8)
    pt3dadd(173.874399045477, -151.366487986856, 36.6047639901197, 1.8)
    pt3dadd(174.794762147222, -151.70481494277, 36.4086348697723, 1.8)
    pt3dadd(175.715125248967, -152.043141898683, 36.2125057494249, 1.8)
    pt3dadd(176.635488350712, -152.381468854597, 36.0163766290775, 1.8)
    pt3dadd(177.555851452457, -152.719795810511, 35.8202475087301, 1.8)
    pt3dadd(178.470610509806, -153.060537937306, 35.6738934172248, 1.8)
    pt3dadd(179.328118568748, -153.425953484673, 36.0360417384855, 1.8)
    pt3dadd(180.18562662769, -153.791369032041, 36.3981900597463, 1.8)
    pt3dadd(181.043134686631, -154.156784579408, 36.760338381007, 1.8)
    pt3dadd(181.900642745573, -154.522200126775, 37.1224867022677, 1.8)
    pt3dadd(182.758150804515, -154.887615674143, 37.4846350235284, 1.8)
    pt3dadd(183.621192776777, -155.263354622148, 37.8162749049777, 1.8)
    pt3dadd(184.504929560611, -155.677699312349, 38.0338243811928, 1.8)
    pt3dadd(185.388666344445, -156.09204400255, 38.2513738574079, 1.8)
    pt3dadd(186.272403128279, -156.50638869275, 38.4689233336231, 1.8)
    pt3dadd(187.156139912112, -156.920733382951, 38.6864728098382, 1.8)
    pt3dadd(188.039876695946, -157.335078073152, 38.9040222860533, 1.8)
    pt3dadd(188.98458648426, -157.545288301088, 38.6596674984869, 1.8)
    pt3dadd(189.930150694865, -157.752637967427, 38.4088399890476, 1.8)
    pt3dadd(190.875714905471, -157.959987633765, 38.1580124796084, 1.8)
    pt3dadd(191.824176723222, -158.149460137133, 37.9887852273684, 1.8)
    pt3dadd(192.787520384252, -158.247117178935, 38.2386493763385, 1.8)
    pt3dadd(193.750864045282, -158.344774220737, 38.4885135253085, 1.8)
    pt3dadd(194.714207706311, -158.442431262539, 38.7383776742785, 1.8)
    pt3dadd(195.677551367341, -158.540088304341, 38.9882418232486, 1.8)
    pt3dadd(196.64089502837, -158.637745346143, 39.2381059722186, 1.8)
    pt3dadd(197.6042386894, -158.735402387945, 39.4879701211887, 1.8)
    pt3dadd(198.569674728503, -158.82320200447, 39.690423004993, 1.8)
    pt3dadd(199.552243719948, -158.830286381424, 39.5046597452944, 1.8)
    pt3dadd(200.534812711394, -158.837370758379, 39.3188964855958, 1.8)
    pt3dadd(201.517381702839, -158.844455135334, 39.1331332258972, 1.8)
    pt3dadd(202.499950694284, -158.851539512289, 38.9473699661986, 1.8)
    pt3dadd(203.470298216673, -158.88578665145, 38.7091306642183, 1.8)
    pt3dadd(204.438984660494, -158.923725612108, 38.4637590912466, 1.8)
    pt3dadd(205.407671104314, -158.961664572765, 38.2183875182749, 1.8)
    pt3dadd(206.376357548135, -158.999603533423, 37.9730159453031, 1.8)
    pt3dadd(207.345043991955, -159.03754249408, 37.7276443723314, 1.8)
    pt3dadd(208.296605285505, -159.17016676518, 37.4964576135753, 1.8)
    pt3dadd(209.20563408321, -159.537954086491, 37.3005006508889, 1.8)
    pt3dadd(210.114662880916, -159.905741407802, 37.1045436882025, 1.8)
    pt3dadd(211.023691678621, -160.273528729112, 36.9085867255161, 1.8)
    pt3dadd(211.932262082598, -160.642443837025, 36.7126409733824, 1.8)
    pt3dadd(212.838752178173, -161.016477130027, 36.5167460976142, 1.8)
    pt3dadd(213.745242273747, -161.390510423028, 36.3208512218461, 1.8)
    pt3dadd(214.651732369321, -161.76454371603, 36.124956346078, 1.8)
    pt3dadd(215.558222464895, -162.138577009032, 35.9290614703098, 1.8)
    pt3dadd(216.457261789663, -162.511370512164, 35.8369034816294, 1.8)
    pt3dadd(217.325818525722, -162.879091787786, 36.1691537783972, 1.8)
    pt3dadd(218.194375261781, -163.246813063407, 36.501404075165, 1.8)
    pt3dadd(219.062931997839, -163.614534339029, 36.8336543719328, 1.8)
    pt3dadd(219.931488733898, -163.982255614651, 37.1659046687006, 1.8)
    pt3dadd(220.800045469957, -164.349976890272, 37.4981549654684, 1.8)
    pt3dadd(221.495788497865, -164.693472161856, 38.0585277904977, 1.8)
    pt3dadd(222.015693639104, -165.012317482935, 38.8510152070152, 1.8)
    pt3dadd(222.535598780344, -165.331162804014, 39.6435026235327, 1.8)
    pt3dadd(223.058877337947, -165.646994458538, 40.4105137030707, 1.8)
    pt3dadd(223.774249594453, -165.791217780837, 39.7268162788201, 1.8)
    pt3dadd(224.489621850958, -165.935441103135, 39.0431188545695, 1.8)
    pt3dadd(225.204994107464, -166.079664425434, 38.359421430319, 1.8)
    pt3dadd(225.92036636397, -166.223887747733, 37.6757240060684, 1.8)
    pt3dadd(226.635738620476, -166.368111070032, 36.9920265818179, 1.8)
  }
  GCL[8] {pt3dclear()
    pt3dadd(7.16358722233537, 18.8034987051682, 5.97979152712803, 2.16264995353772)
    pt3dadd(7.65131150721051, 18.1845424721502, 5.30859179984881, 2.16264995353772)
    pt3dadd(8.1618431717275, 17.5886794019476, 4.68866872309312, 2.08385848600256)
    pt3dadd(8.67237483624449, 16.992816331745, 4.06874564633743, 2.00506701846739)
    pt3dadd(9.18290650076149, 16.3969532615424, 3.44882256958174, 1.92627555093223)
    pt3dadd(9.69343816527848, 15.8010901913398, 2.82889949282605, 1.84748408339707)
    pt3dadd(10.2344820595142, 15.1270389302377, 2.3902816330297, 1.8)
  }
}
proc shape3d_22() {
  GCL[8] {
    pt3dadd(10.821804022023, 14.3343992057571, 2.2266504027277, 1.8)
    pt3dadd(11.4091259845317, 13.5417594812765, 2.06301917242571, 1.8)
    pt3dadd(11.9964479470405, 12.7491197567959, 1.89938794212372, 1.8)
    pt3dadd(12.5837699095493, 11.9564800323153, 1.73575671182173, 1.8)
    pt3dadd(13.1568881677694, 11.178031076746, 1.76685897523292, 1.8)
    pt3dadd(13.7060698626556, 10.4234968853749, 2.12613271495492, 1.8)
    pt3dadd(14.2552515575418, 9.66896269400378, 2.48540645467692, 1.8)
    pt3dadd(14.804433252428, 8.91442850263265, 2.84468019439892, 1.8)
    pt3dadd(15.3536149473143, 8.15989431126153, 3.20395393412091, 1.8)
    pt3dadd(15.9027966422005, 7.40536011989041, 3.56322767384291, 1.8)
    pt3dadd(16.5102036997292, 6.63504877305116, 3.44481313247162, 1.8)
    pt3dadd(17.1235519848106, 5.86312754923535, 3.27765600456384, 1.8)
    pt3dadd(17.736900269892, 5.09120632541953, 3.11049887665606, 1.8)
    pt3dadd(18.3502485549735, 4.31928510160371, 2.94334174874828, 1.8)
    pt3dadd(19.008789440354, 3.5777455357613, 2.82118938100599, 1.8)
    pt3dadd(19.6811101388558, 2.84546973359746, 2.71275955147898, 1.8)
    pt3dadd(20.3534308373577, 2.11319393143362, 2.60432972195198, 1.8)
    pt3dadd(21.0257515358596, 1.38091812926978, 2.49589989242498, 1.8)
    pt3dadd(21.6872420431418, 0.656819979549235, 2.35535368375802, 1.8)
    pt3dadd(22.1851704172971, 0.0562241993124125, 1.72977231976705, 1.8)
  }
  adendIML[14] {pt3dclear()
    pt3dadd(22.1851704172971, 0.0562241993124125, 1.72977231976705, 1.8)
    pt3dadd(22.6830987914523, -0.54437158092441, 1.10419095577608, 1.8)
    pt3dadd(23.1810271656076, -1.14496736116123, 0.478609591785114, 1.8)
    pt3dadd(23.6789555397629, -1.74556314139804, -0.146971772205856, 1.8)
    pt3dadd(24.3026664276861, -2.37029179316938, -0.54264181166589, 1.8)
    pt3dadd(25.0428640136035, -3.017369803639, -0.72539186547921, 1.8)
    pt3dadd(25.7830615995208, -3.66444781410862, -0.908141919292529, 1.8)
    pt3dadd(26.5232591854382, -4.31152582457822, -1.09089197310585, 1.8)
    pt3dadd(27.2831451374835, -4.93568444612251, -1.25058598208063, 1.8)
    pt3dadd(28.1452159533466, -5.44088882733466, -1.29061649096111, 1.8)
    pt3dadd(29.0072867692096, -5.94609320854682, -1.33064699984158, 1.8)
    pt3dadd(29.8693575850727, -6.45129758975899, -1.37067750872206, 1.8)
    pt3dadd(30.5521199731911, -7.13830575970921, -1.20107579001774, 1.8)
    pt3dadd(31.1805220696874, -7.88043073090593, -0.967920622274504, 1.8)
    pt3dadd(31.8089241661837, -8.62255570210261, -0.734765454531263, 1.8)
    pt3dadd(32.43732626268, -9.36468067329931, -0.501610286788022, 1.8)
    pt3dadd(33.0595168014194, -10.1039272666325, -0.300062754894446, 1.8)
    pt3dadd(33.5286501068439, -10.7722485672346, -0.877350015192981, 1.8)
    pt3dadd(33.9977834122685, -11.4405698678367, -1.45463727549152, 1.8)
    pt3dadd(34.466916717693, -12.1088911684387, -2.03192453579005, 1.8)
    pt3dadd(34.9360500231176, -12.7772124690408, -2.60921179608858, 1.8)
    pt3dadd(35.5444017474813, -13.4345291882763, -2.53179109835666, 1.8)
    pt3dadd(36.2123522273413, -14.0871348975807, -2.17409297893456, 1.8)
    pt3dadd(36.8803027072013, -14.7397406068852, -1.81639485951247, 1.8)
    pt3dadd(37.5482531870612, -15.3923463161896, -1.45869674009037, 1.8)
    pt3dadd(38.2212875949413, -16.0281040426377, -1.15310097911327, 1.8)
    pt3dadd(38.9774438888038, -16.3883983666776, -1.69937532348316, 1.8)
    pt3dadd(39.7336001826662, -16.7486926907176, -2.24564966785305, 1.8)
    pt3dadd(40.4897564765287, -17.1089870147576, -2.79192401222294, 1.8)
    pt3dadd(41.2070462177186, -17.5823282982361, -3.28274154901385, 1.8)
    pt3dadd(41.8783613012237, -18.1893911213188, -3.70796006635447, 1.8)
    pt3dadd(42.5496763847288, -18.7964539444015, -4.1331785836951, 1.8)
    pt3dadd(43.2209914682339, -19.4035167674842, -4.55839710103572, 1.8)
    pt3dadd(43.892306551739, -20.010579590567, -4.98361561837634, 1.8)
    pt3dadd(44.5011429271804, -20.4697795659436, -5.62775572245278, 1.8)
    pt3dadd(45.1069804258419, -20.9218823641487, -6.28240370806841, 1.8)
    pt3dadd(45.7696705959719, -21.405089572908, -6.64117339613493, 1.8)
    pt3dadd(46.5554541002806, -21.9556418246332, -6.35932857628457, 1.8)
    pt3dadd(47.3412376045894, -22.5061940763585, -6.07748375643421, 1.8)
    pt3dadd(48.1270211088981, -23.0567463280838, -5.79563893658386, 1.8)
    pt3dadd(48.9128046132069, -23.6072985798091, -5.5137941167335, 1.8)
    pt3dadd(49.6022830725545, -24.2977457168208, -5.59334338800275, 1.8)
    pt3dadd(50.2666516290539, -25.0246680663194, -5.76712002318229, 1.8)
    pt3dadd(50.9310198631972, -25.7516082443854, -5.94079964827972, 1.8)
    pt3dadd(51.5951159096723, -26.4936023198356, -6.03256692487074, 1.8)
    pt3dadd(52.2592119561474, -27.2355963952858, -6.12433420146176, 1.8)
    pt3dadd(52.9233080026225, -27.9775904707361, -6.21610147805279, 1.8)
    pt3dadd(53.5874040490976, -28.7195845461863, -6.3078687546438, 1.8)
    pt3dadd(54.2383736476958, -29.4650526555971, -6.44517598463445, 1.8)
    pt3dadd(54.8796791298523, -30.2130784614261, -6.61601120456836, 1.8)
    pt3dadd(55.5893526695618, -30.8476883258565, -6.81380492516532, 1.8)
    pt3dadd(56.5030786938057, -31.143795014147, -7.092059452117, 1.8)
    pt3dadd(57.3472957075724, -31.5013283760995, -7.34362490291343, 1.8)
  }
  adendIML[15] {pt3dclear()
    pt3dadd(57.3472957075724, -31.5013283760995, -7.34362490291343, 1.8)
    pt3dadd(58.1892296685688, -32.0902519246204, -7.41528019037708, 1.8)
    pt3dadd(58.9769369519984, -32.7022891497847, -7.48547755959398, 1.8)
    pt3dadd(59.764644235428, -33.3143263749491, -7.55567492881087, 1.8)
    pt3dadd(60.5523515188577, -33.9263636001135, -7.62587229802777, 1.8)
    pt3dadd(61.3400588022873, -34.5384008252779, -7.69606966724466, 1.8)
    pt3dadd(61.9377899694933, -35.33217422242, -7.76730434688945, 1.8)
    pt3dadd(62.5147236384964, -36.1458430558159, -7.83865258534463, 1.8)
    pt3dadd(63.0916573074996, -36.9595118892118, -7.9100008237998, 1.8)
    pt3dadd(63.6685909765028, -37.7731807226077, -7.98134906225497, 1.8)
    pt3dadd(64.2830098663858, -38.4503454229959, -7.64431879801871, 1.8)
    pt3dadd(64.9075314832496, -39.0907205845958, -7.19722551639207, 1.8)
    pt3dadd(65.5320531001135, -39.7310957461956, -6.75013223476543, 1.8)
    pt3dadd(66.1565747169774, -40.3714709077955, -6.3030389531388, 1.8)
    pt3dadd(66.7810963338413, -41.0118460693954, -5.85594567151216, 1.8)
    pt3dadd(67.4284200541318, -41.6743503908626, -5.48677592613919, 1.8)
    pt3dadd(68.0943343408255, -42.3548966275103, -5.1811372791034, 1.8)
    pt3dadd(68.7602486275192, -43.035442864158, -4.8754986320676, 1.8)
    pt3dadd(69.4261629142129, -43.7159891008057, -4.5698599850318, 1.8)
    pt3dadd(70.0920772009065, -44.3965353374534, -4.264221337996, 1.8)
    pt3dadd(70.7579914876002, -45.0770815741011, -3.95858269096021, 1.8)
    pt3dadd(71.3914723101479, -45.6908064609615, -4.07907187949821, 1.8)
    pt3dadd(71.9889792034943, -46.2304157215798, -4.67220538745282, 1.8)
    pt3dadd(72.5864860968406, -46.7700249821981, -5.26533889540742, 1.8)
    pt3dadd(73.183992990187, -47.3096342428164, -5.85847240336203, 1.8)
    pt3dadd(73.7814998835334, -47.8492435034347, -6.45160591131663, 1.8)
    pt3dadd(74.5938785377319, -48.3823172265935, -6.5362139325058, 1.8)
    pt3dadd(75.4405979652807, -48.9143464411126, -6.53954948487636, 1.8)
    pt3dadd(76.2873173928295, -49.4463756556318, -6.54288503724692, 1.8)
    pt3dadd(77.1340368203782, -49.9784048701509, -6.54622058961748, 1.8)
    pt3dadd(77.980756247927, -50.5104340846701, -6.54955614198804, 1.8)
    pt3dadd(78.8274756754757, -51.0424632991892, -6.55289169435861, 1.8)
    pt3dadd(79.6289532454861, -51.6402688694056, -6.551060964629, 1.8)
    pt3dadd(80.4286009831717, -52.2407348012518, -6.54902128171976, 1.8)
    pt3dadd(81.2282487208573, -52.841200733098, -6.54698159881052, 1.8)
    pt3dadd(81.9817407384602, -53.4565744439241, -6.44922430939949, 1.8)
    pt3dadd(82.5588245913932, -54.1289260098124, -5.98563224892866, 1.8)
    pt3dadd(83.1359084443262, -54.8012775757007, -5.52204018845784, 1.8)
    pt3dadd(83.7129922972592, -55.473629141589, -5.05844812798701, 1.8)
    pt3dadd(84.2900761501922, -56.1459807074772, -4.59485606751618, 1.8)
    pt3dadd(84.8671600031252, -56.8183322733655, -4.13126400704535, 1.8)
    pt3dadd(85.4442438560581, -57.4906838392538, -3.66767194657453, 1.8)
    pt3dadd(85.7889835438975, -58.2253652814046, -4.13212748175935, 1.8)
    pt3dadd(86.1019536485515, -58.9685694001977, -4.72347961999993, 1.8)
    pt3dadd(86.4149237532054, -59.711773518991, -5.31483175824052, 1.8)
    pt3dadd(86.7278938578594, -60.4549776377842, -5.9061838964811, 1.8)
    pt3dadd(87.0408639625133, -61.1981817565774, -6.49753603472169, 1.8)
    pt3dadd(87.3538340671672, -61.9413858753706, -7.08888817296227, 1.8)
    pt3dadd(87.768236492175, -62.7000447803609, -7.58437063451486, 1.8)
    pt3dadd(88.2196988777353, -63.4643503447673, -8.04482553854103, 1.8)
    pt3dadd(88.6711612632955, -64.2286559091737, -8.50528044256719, 1.8)
    pt3dadd(89.1226236488557, -64.99296147358, -8.96573534659336, 1.8)
    pt3dadd(89.574086034416, -65.7572670379864, -9.42619025061952, 1.8)
    pt3dadd(90.0406381198656, -66.5656761137133, -9.47511506800871, 1.8)
    pt3dadd(90.5183106802715, -67.4065876246592, -9.22075949839393, 1.8)
    pt3dadd(90.9959832406774, -68.247499135605, -8.96640392877916, 1.8)
    pt3dadd(91.4736558010833, -69.0884106465508, -8.71204835916438, 1.8)
    pt3dadd(91.9513283614892, -69.9293221574967, -8.45769278954961, 1.8)
    pt3dadd(92.4379033612724, -70.7431502644706, -8.14091022653154, 1.8)
    pt3dadd(92.9255697182509, -71.5536581951939, -7.81647468824066, 1.8)
    pt3dadd(93.4132360752293, -72.3641661259172, -7.49203914994979, 1.8)
    pt3dadd(93.9009024322077, -73.1746740566404, -7.16760361165891, 1.8)
    pt3dadd(94.2634766815155, -73.964779762989, -7.35981528392938, 1.8)
    pt3dadd(94.5344039917182, -74.739938072178, -7.93054112729159, 1.8)
    pt3dadd(94.8053313019209, -75.515096381367, -8.50126697065379, 1.8)
    pt3dadd(95.0762586121236, -76.2902546905561, -9.07199281401601, 1.8)
    pt3dadd(95.3471859223264, -77.0654129997451, -9.64271865737822, 1.8)
    pt3dadd(95.618113232529, -77.8405713089342, -10.2134445007404, 1.8)
    pt3dadd(96.0972604965414, -78.6068433144319, -10.5496990407917, 1.8)
    pt3dadd(96.7248913007315, -79.3667784160593, -10.718749964913, 1.8)
    pt3dadd(97.3525221049216, -80.1267135176866, -10.8878008890344, 1.8)
    pt3dadd(97.9580494261511, -80.9018504997658, -11.0536976735688, 1.8)
    pt3dadd(98.4127812851764, -81.7806984939605, -11.1980761327914, 1.8)
    pt3dadd(98.8675131442016, -82.6595464881551, -11.342454592014, 1.8)
    pt3dadd(99.3222450032268, -83.5383944823498, -11.4868330512366, 1.8)
    pt3dadd(99.8175756659832, -84.3605348910033, -11.2939278501158, 1.8)
    pt3dadd(100.327116515187, -85.162826799468, -10.9829683405255, 1.8)
    pt3dadd(100.836657364391, -85.9651187079326, -10.6720088309352, 1.8)
    pt3dadd(101.346198213595, -86.7674106163973, -10.3610493213448, 1.8)
    pt3dadd(101.855739062799, -87.569702524862, -10.0500898117545, 1.8)
    pt3dadd(102.365279912003, -88.3719944333267, -9.73913030216415, 1.8)
    pt3dadd(102.788084854285, -89.2624474350472, -9.80947182128472, 1.8)
    pt3dadd(103.198268807442, -90.165728805533, -9.93529666106519, 1.8)
    pt3dadd(103.608452760599, -91.0690101760187, -10.0611215008457, 1.8)
    pt3dadd(104.018636713756, -91.9722915465045, -10.1869463406261, 1.8)
    pt3dadd(104.428820666913, -92.8755729169902, -10.3127711804066, 1.8)
    pt3dadd(104.897480191505, -93.7544227264912, -10.3794196338845, 1.8)
    pt3dadd(105.39366773212, -94.6217711109393, -10.4182101550597, 1.8)
    pt3dadd(105.889855272736, -95.4891194953874, -10.4570006762349, 1.8)
    pt3dadd(106.386042813352, -96.3564678798355, -10.4957911974101, 1.8)
    pt3dadd(106.882230353967, -97.2238162642836, -10.5345817185853, 1.8)
    pt3dadd(107.406414636921, -98.0559221667804, -10.7081174305176, 1.8)
    pt3dadd(107.934366516115, -98.8832853945446, -10.8997861619245, 1.8)
    pt3dadd(108.46231839531, -99.7106486223087, -11.0914548933315, 1.8)
    pt3dadd(108.990270274504, -100.538011850073, -11.2831236247384, 1.8)
    pt3dadd(109.518222153698, -101.365375077837, -11.4747923561454, 1.8)
    pt3dadd(110.117308436169, -101.961833229668, -10.9912154040786, 1.8)
    pt3dadd(110.723515521114, -102.535176976089, -10.4400439982511, 1.8)
    pt3dadd(111.329722606058, -103.108520722511, -9.88887259242355, 1.8)
    pt3dadd(111.935929691003, -103.681864468933, -9.33770118659601, 1.8)
    pt3dadd(112.542136775948, -104.255208215354, -8.78652978076847, 1.8)
    pt3dadd(113.148343860893, -104.828551961776, -8.23535837494093, 1.8)
    pt3dadd(113.754550945837, -105.401895708198, -7.68418696911339, 1.8)
    pt3dadd(114.360615812525, -105.977234401571, -7.13596071298859, 1.8)
    pt3dadd(114.954126982269, -106.728668344248, -6.84770471360071, 1.8)
    pt3dadd(115.547638152012, -107.480102286924, -6.55944871421282, 1.8)
    pt3dadd(116.141149321756, -108.231536229601, -6.27119271482494, 1.8)
    pt3dadd(116.734660491499, -108.982970172277, -5.98293671543706, 1.8)
    pt3dadd(117.328171661243, -109.734404114954, -5.69468071604917, 1.8)
    pt3dadd(117.921682830987, -110.48583805763, -5.40642471666129, 1.8)
    pt3dadd(118.496283138357, -111.13754389242, -5.68874988841842, 1.8)
    pt3dadd(119.061570274435, -111.740135893419, -6.25207336042805, 1.8)
    pt3dadd(119.626857410512, -112.342727894418, -6.81539683243766, 1.8)
    pt3dadd(120.19214454659, -112.945319895417, -7.37872030444728, 1.8)
    pt3dadd(120.757431682668, -113.547911896416, -7.9420437764569, 1.8)
    pt3dadd(121.322718818745, -114.150503897416, -8.50536724846652, 1.8)
    pt3dadd(121.929656773095, -114.878784160863, -8.54582417758984, 1.8)
    pt3dadd(122.550853935569, -115.650093953317, -8.40727711194443, 1.8)
    pt3dadd(123.172051098043, -116.421403745771, -8.26873004629901, 1.8)
  }
  adendMML[18] {pt3dclear()
    pt3dadd(123.172051098043, -116.421403745771, -8.26873004629901, 1.8)
    pt3dadd(123.793248260516, -117.192713538225, -8.1301829806536, 1.8)
    pt3dadd(124.41444542299, -117.96402333068, -7.99163591500819, 1.8)
    pt3dadd(125.069195387783, -118.685341645291, -7.77526666145302, 1.8)
    pt3dadd(125.73845550536, -119.385040782629, -7.52524263814732, 1.8)
    pt3dadd(126.407715622936, -120.084739919967, -7.27521861484161, 1.8)
    pt3dadd(127.076975740513, -120.784439057305, -7.02519459153591, 1.8)
    pt3dadd(127.74623585809, -121.484138194642, -6.77517056823021, 1.8)
    pt3dadd(128.494096315616, -122.12569129167, -6.61370631637331, 1.8)
    pt3dadd(129.255704328605, -122.757074382885, -6.46773156965839, 1.8)
    pt3dadd(130.017312341594, -123.3884574741, -6.32175682294347, 1.8)
    pt3dadd(130.778920354583, -124.019840565315, -6.17578207622855, 1.8)
    pt3dadd(131.540528367573, -124.65122365653, -6.02980732951363, 1.8)
    pt3dadd(132.27793980192, -125.304973965419, -5.87105743037633, 1.8)
    pt3dadd(132.944961026506, -126.023792694404, -5.67514336550916, 1.8)
    pt3dadd(133.611982251093, -126.742611423388, -5.47922930064199, 1.8)
    pt3dadd(134.279003475679, -127.461430152372, -5.28331523577482, 1.8)
    pt3dadd(134.964612998713, -128.164655749316, -5.28628641806081, 1.8)
    pt3dadd(135.666616241106, -128.854129176781, -5.46466197829796, 1.8)
    pt3dadd(136.368619483499, -129.543602604246, -5.6430375385351, 1.8)
    pt3dadd(137.070622725892, -130.23307603171, -5.82141309877225, 1.8)
    pt3dadd(137.764872346962, -130.935987265686, -5.957616452798, 1.8)
    pt3dadd(138.438455608804, -131.674715381222, -5.98141478643189, 1.8)
    pt3dadd(139.112038870646, -132.413443496757, -6.00521312006576, 1.8)
    pt3dadd(139.785622132488, -133.152171612292, -6.02901145369965, 1.8)
    pt3dadd(140.459205394331, -133.890899727827, -6.05280978733352, 1.8)
    pt3dadd(141.132788656173, -134.629627843363, -6.0766081209674, 1.8)
    pt3dadd(141.812573151245, -135.354214637094, -6.15982774818539, 1.8)
    pt3dadd(142.502132534016, -136.056510730347, -6.33671204662401, 1.8)
    pt3dadd(143.191691916787, -136.7588068236, -6.51359634506262, 1.8)
    pt3dadd(143.881251299559, -137.461102916853, -6.69048064350123, 1.8)
    pt3dadd(144.57081068233, -138.163399010106, -6.86736494193985, 1.8)
    pt3dadd(145.262203986915, -138.881700640359, -6.93692867448737, 1.8)
    pt3dadd(145.953780875063, -139.601604494591, -6.99574915086342, 1.8)
    pt3dadd(146.645357763211, -140.321508348823, -7.05456962723948, 1.8)
    pt3dadd(147.33693465136, -141.041412203055, -7.11339010361553, 1.8)
    pt3dadd(148.028511539508, -141.761316057287, -7.17221057999158, 1.8)
    pt3dadd(148.771788855018, -142.313201406289, -7.5439380857104, 1.8)
    pt3dadd(149.516984680751, -142.858851889615, -7.92727701062685, 1.8)
    pt3dadd(150.262180506484, -143.404502372941, -8.3106159355433, 1.8)
    pt3dadd(151.007376332217, -143.950152856267, -8.69395486045975, 1.8)
    pt3dadd(151.75257215795, -144.495803339593, -9.0772937853762, 1.8)
    pt3dadd(152.681869335182, -144.722587235288, -9.30359265474075, 1.8)
    pt3dadd(153.649961281308, -144.882177949216, -9.49679924850505, 1.8)
    pt3dadd(154.618053227434, -145.041768663144, -9.69000584226935, 1.8)
    pt3dadd(155.465929355704, -145.077273346667, -9.45615421390691, 1.8)
    pt3dadd(156.186264946372, -144.981131468958, -8.76922381265319, 1.8)
    pt3dadd(156.906600537041, -144.884989591248, -8.08229341139946, 1.8)
    pt3dadd(157.549097101617, -144.551774196544, -7.60953469573117, 1.8)
    pt3dadd(158.009712850695, -143.664606282542, -7.63721544835866, 1.8)
    pt3dadd(158.528474815936, -143.053886922621, -7.16726905672911, 1.8)
    pt3dadd(159.071575528778, -142.558882944144, -6.48902671287138, 1.8)
    pt3dadd(159.614676241621, -142.063878965666, -5.81078436901365, 1.8)
    pt3dadd(160.157776954464, -141.568874987189, -5.13254202515592, 1.8)
    pt3dadd(160.700877667306, -141.073871008712, -4.45429968129818, 1.8)
    pt3dadd(161.06913569151, -140.478754501722, -3.74085422949748, 1.8)
    pt3dadd(161.43230305871, -139.880723154263, -3.02638381663371, 1.8)
  }
}
proc shape3d_23() {
  adendMML[18] {
    pt3dadd(161.79547042591, -139.282691806804, -2.31191340376993, 1.8)
    pt3dadd(162.158637793109, -138.684660459345, -1.59744299090616, 1.8)
    pt3dadd(162.49915880397, -138.260082336889, -1.27806835151758, 1.8)
    pt3dadd(162.766685022245, -138.394586743773, -2.23218484705898, 1.8)
    pt3dadd(163.034211240521, -138.529091150656, -3.18630134260037, 1.8)
    pt3dadd(163.301737458796, -138.66359555754, -4.14041783814177, 1.8)
    pt3dadd(163.72846046913, -139.270055505829, -4.61584470437093, 1.8)
    pt3dadd(164.22993434239, -140.098122205904, -4.86650282744641, 1.8)
    pt3dadd(164.731408215651, -140.926188905979, -5.1171609505219, 1.8)
    pt3dadd(165.232882088911, -141.754255606054, -5.36781907359738, 1.8)
    pt3dadd(165.648429274723, -142.640818249258, -5.25239110560361, 1.8)
    pt3dadd(166.047361442778, -143.538691826965, -5.06617573634875, 1.8)
    pt3dadd(166.446293610833, -144.436565404672, -4.87996036709388, 1.8)
    pt3dadd(166.845225778888, -145.334438982379, -4.69374499783901, 1.8)
    pt3dadd(167.244157946943, -146.232312560086, -4.50752962858414, 1.8)
    pt3dadd(167.668465100901, -147.11540832694, -4.55769651428519, 1.8)
    pt3dadd(168.109582782777, -147.988714027195, -4.76446291541784, 1.8)
    pt3dadd(168.550700464653, -148.862019727451, -4.97122931655048, 1.8)
    pt3dadd(168.991818146529, -149.735325427706, -5.17799571768313, 1.8)
    pt3dadd(169.439406771686, -150.606296680675, -5.36122224696444, 1.8)
    pt3dadd(169.967703956704, -151.448151640942, -5.25084874391406, 1.8)
    pt3dadd(170.496001141722, -152.290006601209, -5.14047524086368, 1.8)
    pt3dadd(171.02429832674, -153.131861561476, -5.0301017378133, 1.8)
    pt3dadd(171.552595511758, -153.973716521743, -4.91972823476292, 1.8)
    pt3dadd(172.080892696776, -154.815571482011, -4.80935473171254, 1.8)
    pt3dadd(172.662709519558, -155.556028526529, -4.96286024132737, 1.8)
    pt3dadd(173.30248811673, -156.186671615613, -5.40214675465496, 1.8)
    pt3dadd(173.942266713902, -156.817314704696, -5.84143326798256, 1.8)
    pt3dadd(174.582045311075, -157.44795779378, -6.28071978131016, 1.8)
    pt3dadd(175.191121145673, -158.111189673258, -6.48788710989572, 1.8)
    pt3dadd(175.719856993143, -158.859696713061, -6.08766765139017, 1.8)
    pt3dadd(176.248592840612, -159.608203752863, -5.68744819288462, 1.8)
    pt3dadd(176.777328688082, -160.356710792666, -5.28722873437907, 1.8)
    pt3dadd(177.306064535551, -161.105217832469, -4.88700927587352, 1.8)
    pt3dadd(177.858141090212, -161.829839643774, -4.47632247659171, 1.8)
    pt3dadd(178.438249964586, -162.525775162236, -4.05306434256965, 1.8)
    pt3dadd(179.018358838959, -163.221710680699, -3.62980620854759, 1.8)
    pt3dadd(179.598467713332, -163.917646199161, -3.20654807452553, 1.8)
    pt3dadd(180.178666828763, -164.615121065751, -2.79321054845602, 1.8)
    pt3dadd(180.764282300764, -165.404989113564, -2.97531762134648, 1.8)
    pt3dadd(181.349897772765, -166.194857161377, -3.15742469423695, 1.8)
    pt3dadd(181.935513244765, -166.984725209191, -3.33953176712742, 1.8)
    pt3dadd(182.521128716766, -167.774593257004, -3.52163884001789, 1.8)
    pt3dadd(183.106744188767, -168.564461304817, -3.70374591290835, 1.8)
    pt3dadd(183.700794835889, -169.350386002949, -3.87495524319669, 1.8)
    pt3dadd(184.299507742016, -170.13413114733, -4.0401412132301, 1.8)
    pt3dadd(184.898220648142, -170.917876291712, -4.2053271832635, 1.8)
    pt3dadd(185.496933554268, -171.701621436094, -4.3705131532969, 1.8)
    pt3dadd(186.094997752696, -172.482912012126, -4.50753074322742, 1.8)
    pt3dadd(186.682413400737, -173.223910797532, -4.18216378660091, 1.8)
    pt3dadd(187.269829048778, -173.964909582937, -3.8567968299744, 1.8)
    pt3dadd(187.857244696819, -174.705908368342, -3.53142987334789, 1.8)
    pt3dadd(188.44466034486, -175.446907153748, -3.20606291672138, 1.8)
    pt3dadd(189.0320759929, -176.187905939153, -2.88069596009488, 1.8)
    pt3dadd(189.619491640941, -176.928904724558, -2.55532900346837, 1.8)
    pt3dadd(190.180961670821, -177.728028301822, -2.59639726574659, 1.8)
    pt3dadd(190.734091241895, -178.545836630751, -2.75525951657672, 1.8)
    pt3dadd(191.287220812968, -179.36364495968, -2.91412176740684, 1.8)
    pt3dadd(191.840350384041, -180.181453288609, -3.07298401823696, 1.8)
    pt3dadd(192.404718361362, -180.985055068257, -3.14012793744752, 1.8)
    pt3dadd(193.009209381316, -181.737937024303, -2.87982164275575, 1.8)
    pt3dadd(193.61370040127, -182.490818980348, -2.61951534806398, 1.8)
    pt3dadd(194.218191421223, -183.243700936394, -2.35920905337222, 1.8)
    pt3dadd(194.822682441177, -183.99658289244, -2.09890275868045, 1.8)
    pt3dadd(195.427173461131, -184.749464848485, -1.83859646398868, 1.8)
    pt3dadd(196.031664481084, -185.502346804531, -1.57829016929692, 1.8)
    pt3dadd(196.538313905936, -186.225094158322, -1.96234488253894, 1.8)
    pt3dadd(197.02808234033, -186.942642272132, -2.45757370342766, 1.8)
    pt3dadd(197.517850774725, -187.660190385942, -2.95280252431638, 1.8)
    pt3dadd(198.007619209119, -188.377738499752, -3.4480313452051, 1.8)
    pt3dadd(198.497387643513, -189.095286613562, -3.94326016609381, 1.8)
    pt3dadd(199.131983175778, -189.819308693005, -4.10861342311538, 1.8)
    pt3dadd(199.817599151428, -190.545611454737, -4.15775640058608, 1.8)
    pt3dadd(200.503215127078, -191.271914216468, -4.20689937805679, 1.8)
    pt3dadd(201.22403608648, -191.926141346786, -4.10542624388176, 1.8)
    pt3dadd(201.995763950004, -192.476146095304, -3.78616008333709, 1.8)
    pt3dadd(202.767491813528, -193.026150843821, -3.46689392279243, 1.8)
    pt3dadd(203.539219677052, -193.576155592339, -3.14762776224776, 1.8)
    pt3dadd(204.313753128715, -194.126394972194, -2.83654057709744, 1.8)
    pt3dadd(205.10925931852, -194.67838830215, -2.58659405148523, 1.8)
    pt3dadd(205.904765508326, -195.230381632105, -2.33664752587301, 1.8)
    pt3dadd(206.700271698132, -195.78237496206, -2.08670100026079, 1.8)
    pt3dadd(207.45181491077, -196.267694088468, -2.41020803020654, 1.8)
    pt3dadd(208.190900593891, -196.734120139107, -2.8962112115639, 1.8)
    pt3dadd(208.929986277013, -197.200546189746, -3.38221439292126, 1.8)
    pt3dadd(209.669071960135, -197.666972240385, -3.86821757427862, 1.8)
    pt3dadd(210.406269008808, -198.157517291925, -4.31874860791886, 1.8)
    pt3dadd(211.130222170136, -198.817194771872, -4.52053424331859, 1.8)
    pt3dadd(211.854175331465, -199.476872251818, -4.72231987871832, 1.8)
    pt3dadd(212.578128492793, -200.136549731765, -4.92410551411806, 1.8)
    pt3dadd(213.290822670061, -200.745504045155, -4.91130259444288, 1.8)
    pt3dadd(213.975552285399, -201.228474422087, -4.36551420240324, 1.8)
    pt3dadd(214.660281900737, -201.71144479902, -3.81972581036359, 1.8)
    pt3dadd(215.345011516074, -202.194415175952, -3.27393741832395, 1.8)
    pt3dadd(216.029741131412, -202.677385552885, -2.72814902628431, 1.8)
    pt3dadd(216.714938773331, -202.94593065866, -3.2111802195812, 1.8)
    pt3dadd(217.400231791461, -203.17077937912, -3.90386812348185, 1.8)
    pt3dadd(218.08552480959, -203.39562809958, -4.5965560273825, 1.8)
    pt3dadd(218.775555744179, -203.622858646608, -5.27682907195869, 1.8)
    pt3dadd(219.711313330994, -203.973619921525, -5.31321954786096, 1.8)
    pt3dadd(220.64707091781, -204.324381196441, -5.34961002376324, 1.8)
    pt3dadd(221.495566243747, -204.567165917341, -5.01646908191208, 1.8)
    pt3dadd(222.282390329789, -204.733639895214, -4.42216758240617, 1.8)
    pt3dadd(223.069214415832, -204.900113873087, -3.82786608290026, 1.8)
    pt3dadd(223.856038501874, -205.066587850959, -3.23356458339436, 1.8)
    pt3dadd(224.642862587916, -205.233061828832, -2.63926308388845, 1.8)
    pt3dadd(225.429686673958, -205.399535806705, -2.04496158438254, 1.8)
    pt3dadd(226.216510760001, -205.566009784578, -1.45066008487664, 1.8)
    pt3dadd(227.003334846043, -205.732483762451, -0.856358585370726, 1.8)
  }
  adendIML[16] {pt3dclear()
    pt3dadd(57.3472957075724, -31.5013283760995, -7.34362490291343, 1.8)
    pt3dadd(57.1864655212913, -32.5176719195362, -7.38832024716997, 1.8)
    pt3dadd(57.0798620125768, -33.5109017863294, -7.43447350967327, 1.8)
    pt3dadd(57.2196838874771, -34.4562578658679, -7.46825915022205, 1.8)
    pt3dadd(57.693468577735, -35.3367340026874, -7.48528383138171, 1.8)
    pt3dadd(58.167253267993, -36.2172101395069, -7.50230851254138, 1.8)
    pt3dadd(58.641037958251, -37.0976862763264, -7.51933319370105, 1.8)
    pt3dadd(59.114822648509, -37.9781624131458, -7.53635787486072, 1.8)
    pt3dadd(59.5886073387669, -38.8586385499653, -7.55338255602038, 1.8)
    pt3dadd(59.7869802862881, -39.7357933691941, -7.98415757432177, 1.8)
    pt3dadd(59.9790206762785, -40.6128718211826, -8.42444597715539, 1.8)
    pt3dadd(60.1710610662689, -41.4899502731711, -8.86473437998901, 1.8)
    pt3dadd(60.3631014562593, -42.3670287251596, -9.30502278282262, 1.8)
    pt3dadd(60.7979772274691, -43.2194071041841, -9.2159560320259, 1.8)
    pt3dadd(61.287453209964, -44.0662318064921, -9.00786666151058, 1.8)
    pt3dadd(61.776929192459, -44.9130565088002, -8.79977729099526, 1.8)
    pt3dadd(62.0749062995842, -45.5658161483644, -9.08874794889396, 1.8)
    pt3dadd(62.1335942521747, -45.9760800307129, -9.99882446823784, 1.8)
    pt3dadd(62.1922822047651, -46.3863439130614, -10.9089009875817, 1.8)
    pt3dadd(62.2509701573555, -46.7966077954099, -11.8189775069256, 1.8)
    pt3dadd(62.3096581099459, -47.2068716777584, -12.7290540262695, 1.8)
    pt3dadd(62.3683460625363, -47.6171355601069, -13.6391305456134, 1.8)
    pt3dadd(62.4270340151267, -48.0273994424554, -14.5492070649573, 1.8)
    pt3dadd(62.6359205005636, -48.7096422406803, -14.8014709126508, 1.8)
    pt3dadd(62.9660653596161, -49.6114592276268, -14.5226690222411, 1.8)
    pt3dadd(63.2962102186686, -50.5132762145732, -14.2438671318314, 1.8)
    pt3dadd(63.6263550777212, -51.4150932015197, -13.9650652414218, 1.8)
    pt3dadd(63.9482780040529, -52.3203932091094, -13.6912425184044, 1.8)
    pt3dadd(64.1271448529701, -53.2862954239536, -13.5040539457898, 1.8)
    pt3dadd(64.3060117018873, -54.2521976387978, -13.3168653731751, 1.8)
    pt3dadd(64.4848785508045, -55.218099853642, -13.1296768005604, 1.8)
    pt3dadd(64.533314199243, -55.9379904966501, -13.6956729855744, 1.8)
    pt3dadd(64.5495760384216, -56.5971968144438, -14.447459247199, 1.8)
    pt3dadd(64.5658378776003, -57.2564031322375, -15.1992455088235, 1.8)
    pt3dadd(64.582099716779, -57.9156094500312, -15.9510317704481, 1.8)
    pt3dadd(64.5983615559577, -58.5748157678249, -16.7028180320726, 1.8)
    pt3dadd(64.6146233951364, -59.2340220856185, -17.4546042936972, 1.8)
    pt3dadd(64.8609217399531, -60.0052854486015, -18.0414911667752, 1.8)
    pt3dadd(65.1073535122658, -60.7766138077507, -18.6282823936754, 1.8)
    pt3dadd(65.3537852845785, -61.5479421668998, -19.2150736205756, 1.8)
    pt3dadd(65.6002170568912, -62.3192705260489, -19.8018648474759, 1.8)
    pt3dadd(65.7778778977048, -63.0922814057185, -20.4038448396331, 1.8)
    pt3dadd(65.837604902098, -63.8681776047444, -21.0318717286141, 1.8)
    pt3dadd(65.8973319064912, -64.6440738037704, -21.6598986175952, 1.8)
    pt3dadd(65.9570589108843, -65.4199700027964, -22.2879255065763, 1.8)
    pt3dadd(66.1246033820786, -66.3540720524661, -22.0097076348205, 1.8)
    pt3dadd(66.2949097316833, -67.2922267416223, -21.7082751772142, 1.8)
    pt3dadd(66.4652160812879, -68.2303814307785, -21.4068427196079, 1.8)
    pt3dadd(66.6355224308926, -69.1685361199347, -21.1054102620016, 1.8)
    pt3dadd(66.8646040307234, -70.0888479968748, -20.7934308617619, 1.8)
    pt3dadd(67.1423585086284, -70.9943839090993, -20.4727173421288, 1.8)
    pt3dadd(67.4201129865334, -71.8999198213239, -20.1520038224957, 1.8)
    pt3dadd(67.6978674644384, -72.8054557335484, -19.8312903028626, 1.8)
    pt3dadd(67.9756219423434, -73.7109916457729, -19.5105767832296, 1.8)
    pt3dadd(68.1317896129751, -74.378591388218, -20.1674710022527, 1.8)
    pt3dadd(68.2763075250236, -75.0233934357627, -20.9180340526217, 1.8)
    pt3dadd(68.4208254370721, -75.6681954833074, -21.6685971029908, 1.8)
    pt3dadd(68.5653433491206, -76.3129975308521, -22.4191601533599, 1.8)
    pt3dadd(68.7675911113659, -77.163938464201, -22.7823873743384, 1.8)
    pt3dadd(69.0002170413895, -78.1233522523591, -22.9417936470275, 1.8)
    pt3dadd(69.232842971413, -79.0827660405173, -23.1011999197167, 1.8)
    pt3dadd(69.4240643131514, -79.872703560132, -23.6182298661963, 1.8)
    pt3dadd(69.5964276250474, -80.5854518439122, -24.2981421933979, 1.8)
    pt3dadd(69.7687909369434, -81.2982001276923, -24.9780545205995, 1.8)
    pt3dadd(69.9411542488394, -82.0109484114725, -25.6579668478011, 1.8)
    pt3dadd(70.1135175607354, -82.7236966952526, -26.3378791750027, 1.8)
    pt3dadd(70.2858808726314, -83.4364449790328, -27.0177915022043, 1.8)
    pt3dadd(70.5386347506926, -84.2577270514693, -27.4345913406761, 1.8)
    pt3dadd(70.872164024827, -85.1880624641703, -27.5870191700578, 1.8)
    pt3dadd(71.2056932989615, -86.1183978768711, -27.7394469994396, 1.8)
    pt3dadd(71.5392225730959, -87.048733289572, -27.8918748288214, 1.8)
    pt3dadd(71.8082086059262, -87.9203577611858, -28.2252068438879, 1.8)
    pt3dadd(71.9863024448876, -88.709303301099, -28.8132948641494, 1.8)
    pt3dadd(72.1643962838489, -89.4982488410121, -29.4013828844109, 1.8)
    pt3dadd(72.3424901228103, -90.2871943809253, -29.9894709046725, 1.8)
    pt3dadd(72.5205839617716, -91.0761399208385, -30.577558924934, 1.8)
    pt3dadd(72.8159247425506, -91.9293525231016, -30.9218152758364, 1.8)
    pt3dadd(73.2117719128417, -92.8376561179416, -31.0570543137405, 1.8)
    pt3dadd(73.6076190831327, -93.7459597127817, -31.1922933516445, 1.8)
    pt3dadd(74.0034662534238, -94.6542633076217, -31.3275323895486, 1.8)
    pt3dadd(74.4248389085934, -95.5471751630856, -31.4817205986849, 1.8)
    pt3dadd(74.8744373284701, -96.423067023978, -31.6568625664332, 1.8)
    pt3dadd(75.3240357483467, -97.2989588848705, -31.8320045341816, 1.8)
    pt3dadd(75.7736341682234, -98.1748507457629, -32.0071465019299, 1.8)
    pt3dadd(76.2724360910645, -99.0339497436209, -32.0492652316206, 1.8)
    pt3dadd(76.7986679736252, -99.8836870593045, -32.0172261911958, 1.8)
    pt3dadd(77.324899856186, -100.733424374988, -31.9851871507711, 1.8)
    pt3dadd(77.8511317387467, -101.583161690672, -31.9531481103464, 1.8)
    pt3dadd(78.3773636213075, -102.432899006355, -31.9211090699217, 1.8)
    pt3dadd(78.7923158977217, -103.332599899864, -32.0344616741743, 1.8)
    pt3dadd(79.1902630730303, -104.239935936252, -32.1700321825269, 1.8)
    pt3dadd(79.588210248339, -105.147271972641, -32.3056026908795, 1.8)
    pt3dadd(79.9861574236476, -106.054608009029, -32.4411731992322, 1.8)
    pt3dadd(80.1847409886472, -106.904449369677, -32.8916657791075, 1.8)
    pt3dadd(80.3337165960382, -107.739984240627, -33.4205209084464, 1.8)
    pt3dadd(80.4826922034293, -108.575519111578, -33.9493760377853, 1.8)
    pt3dadd(80.6316678108204, -109.411053982529, -34.4782311671242, 1.8)
    pt3dadd(80.9267384343172, -110.298835906168, -34.7827015923867, 1.8)
    pt3dadd(81.2847729861849, -111.209135228214, -34.9904668540403, 1.8)
    pt3dadd(81.6428075380525, -112.119434550261, -35.1982321156939, 1.8)
    pt3dadd(82.0008420899202, -113.029733872308, -35.4059973773475, 1.8)
    pt3dadd(82.3588766417878, -113.940033194355, -35.613762639001, 1.8)
    pt3dadd(82.7169111936554, -114.850332516402, -35.8215279006546, 1.8)
    pt3dadd(83.0785156430843, -115.76956836565, -35.9747600269983, 1.8)
    pt3dadd(83.4410137007282, -116.691041185004, -36.1143415494042, 1.8)
  }
  adendMML[19] {pt3dclear()
    pt3dadd(83.4410137007282, -116.691041185004, -36.1143415494042, 1.8)
    pt3dadd(83.8035117583721, -117.612514004357, -36.2539230718101, 1.8)
    pt3dadd(84.166009816016, -118.533986823711, -36.393504594216, 1.8)
    pt3dadd(84.5285078736599, -119.455459643064, -36.533086116622, 1.8)
    pt3dadd(84.9074021361831, -120.370621117572, -36.6697642553148, 1.8)
    pt3dadd(85.2985871470802, -121.281051549014, -36.8042659904488, 1.8)
    pt3dadd(85.6897721579774, -122.191481980456, -36.9387677255828, 1.8)
    pt3dadd(86.0809571688746, -123.101912411897, -37.0732694607169, 1.8)
    pt3dadd(86.4411301183977, -123.922275494589, -37.4819219772906, 1.8)
    pt3dadd(86.7901537213833, -124.710257882854, -37.9891362124457, 1.8)
    pt3dadd(87.1391773243689, -125.498240271118, -38.4963504476007, 1.8)
    pt3dadd(87.4882009273546, -126.286222659383, -39.0035646827557, 1.8)
    pt3dadd(87.8372245303402, -127.074205047647, -39.5107789179107, 1.8)
    pt3dadd(88.2568165480552, -127.923745199331, -39.7734751400521, 1.8)
    pt3dadd(88.7105971707734, -128.803108524264, -39.9177085938974, 1.8)
    pt3dadd(89.1643777934917, -129.682471849197, -40.0619420477428, 1.8)
    pt3dadd(89.6181584162099, -130.56183517413, -40.2061755015881, 1.8)
    pt3dadd(90.0719390389282, -131.441198499063, -40.3504089554335, 1.8)
    pt3dadd(90.628607987907, -132.270425298205, -40.3790655824439, 1.8)
    pt3dadd(91.1918155245427, -133.09646590431, -40.4003772633285, 1.8)
    pt3dadd(91.7550230611785, -133.922506510415, -40.421688944213, 1.8)
    pt3dadd(92.3182305978142, -134.74854711652, -40.4430006250975, 1.8)
    pt3dadd(92.8355456705506, -135.596923406063, -40.5165016594763, 1.8)
    pt3dadd(93.2905045866946, -136.475648194155, -40.6609147178006, 1.8)
    pt3dadd(93.7454635028386, -137.354372982247, -40.8053277761248, 1.8)
    pt3dadd(94.2004224189825, -138.233097770338, -40.9497408344491, 1.8)
    pt3dadd(94.596518052128, -139.087571530222, -41.2223026715212, 1.8)
    pt3dadd(94.8813766444409, -139.896216847017, -41.73703399368, 1.8)
    pt3dadd(95.1662352367537, -140.704862163812, -42.2517653158389, 1.8)
    pt3dadd(95.4510938290665, -141.513507480607, -42.7664966379977, 1.8)
    pt3dadd(95.7771498727015, -142.325257746702, -43.2231380957498, 1.8)
    pt3dadd(96.3158497659685, -143.153034450138, -43.3799441997216, 1.8)
    pt3dadd(96.8545496592355, -143.980811153574, -43.5367503036935, 1.8)
    pt3dadd(97.3928293815256, -144.815452344586, -43.6290640714976, 1.8)
    pt3dadd(97.9305989734699, -145.658427722428, -43.6430775768535, 1.8)
  }
}
proc shape3d_24() {
  adendMML[19] {
    pt3dadd(98.4683685654142, -146.50140310027, -43.6570910822095, 1.8)
    pt3dadd(99.0061381573585, -147.344378478111, -43.6711045875654, 1.8)
    pt3dadd(99.5439077493027, -148.187353855953, -43.6851180929213, 1.8)
    pt3dadd(100.081677341247, -149.030329233795, -43.6991315982772, 1.8)
    pt3dadd(100.455746668501, -149.948887194271, -43.5904195313594, 1.8)
    pt3dadd(100.814313500944, -150.874602862142, -43.4700852929625, 1.8)
    pt3dadd(101.172880333386, -151.800318530013, -43.3497510545657, 1.8)
    pt3dadd(101.50659320786, -152.673275095841, -43.3706327096441, 1.8)
    pt3dadd(101.705995278666, -153.261121442805, -44.1546451371726, 1.8)
    pt3dadd(101.905397349472, -153.848967789769, -44.9386575647011, 1.8)
    pt3dadd(102.104799420278, -154.436814136733, -45.7226699922295, 1.8)
    pt3dadd(102.304201491085, -155.024660483698, -46.506682419758, 1.8)
    pt3dadd(102.651629180636, -155.725941883607, -47.004347011395, 1.8)
    pt3dadd(103.176306488063, -156.563053283477, -47.1591314656497, 1.8)
    pt3dadd(103.700983795491, -157.400164683346, -47.3139159199044, 1.8)
    pt3dadd(104.193154041964, -158.214035599726, -47.5718404044046, 1.8)
    pt3dadd(104.608651038651, -158.97309001337, -48.0730376139665, 1.8)
    pt3dadd(105.024148035338, -159.732144427013, -48.5742348235283, 1.8)
    pt3dadd(105.439645032025, -160.491198840657, -49.0754320330902, 1.8)
    pt3dadd(105.855142028712, -161.2502532543, -49.576629242652, 1.8)
    pt3dadd(106.270639025399, -162.009307667943, -50.0778264522139, 1.8)
    pt3dadd(106.735151847621, -162.810939562982, -50.0664700264067, 1.8)
    pt3dadd(107.225645640079, -163.635139766616, -49.7834331668102, 1.8)
    pt3dadd(107.716139432536, -164.45933997025, -49.5003963072137, 1.8)
    pt3dadd(108.206633224993, -165.283540173885, -49.2173594476173, 1.8)
    pt3dadd(108.69712701745, -166.107740377519, -48.9343225880208, 1.8)
    pt3dadd(109.129120928001, -166.944349580144, -49.0713734446661, 1.8)
    pt3dadd(109.530351336541, -167.78748433894, -49.4293370430559, 1.8)
    pt3dadd(109.931581745081, -168.630619097737, -49.7873006414458, 1.8)
    pt3dadd(110.33281215362, -169.473753856533, -50.1452642398356, 1.8)
    pt3dadd(110.784037551043, -170.344081843373, -50.2900810275012, 1.8)
    pt3dadd(111.253704429875, -171.224440503699, -50.3562750764636, 1.8)
    pt3dadd(111.738685590103, -172.097001704637, -50.3727252486438, 1.8)
    pt3dadd(112.241136456865, -172.960667984315, -50.3324302881779, 1.8)
    pt3dadd(112.743587323626, -173.824334263992, -50.2921353277119, 1.8)
    pt3dadd(113.246038190388, -174.688000543669, -50.251840367246, 1.8)
    pt3dadd(113.748489057149, -175.551666823347, -50.2115454067801, 1.8)
    pt3dadd(114.250939923911, -176.415333103024, -50.1712504463142, 1.8)
    pt3dadd(114.64512879808, -177.324539888041, -50.2989285879214, 1.8)
    pt3dadd(115.035048879258, -178.235542344699, -50.4332299440437, 1.8)
    pt3dadd(115.424968960436, -179.146544801358, -50.567531300166, 1.8)
    pt3dadd(115.76901899965, -179.98811092353, -50.8799908591018, 1.82681736396964)
    pt3dadd(116.023187402441, -180.693617624269, -51.5415486556964, 1.90618293707366)
    pt3dadd(116.277355805233, -181.399124325008, -52.203106452291, 1.98554851017769)
    pt3dadd(116.531524208024, -182.104631025747, -52.8646642488855, 2.06491408328172)
    pt3dadd(116.785692610816, -182.810137726485, -53.5262220454801, 2.14427965638574)
    pt3dadd(117.039861013607, -183.515644427224, -54.1877798420746, 2.22364522948977)
    pt3dadd(117.353570687503, -184.371511646558, -54.4921695784626, 2.18034645307537)
    pt3dadd(117.696881809764, -185.302131874098, -54.618990181773, 2.07606405401867)
    pt3dadd(118.040192932025, -186.232752101639, -54.7458107850833, 1.97178165496197)
    pt3dadd(118.383504054286, -187.163372329179, -54.8726313883936, 1.86749925590528)
    pt3dadd(118.770170314071, -188.015118342432, -54.7671513200482, 1.8)
    pt3dadd(119.236395830399, -188.722125480252, -54.23538569969, 1.8)
    pt3dadd(119.702621346728, -189.429132618073, -53.7036200793319, 1.8)
    pt3dadd(120.06139213322, -190.157711081163, -53.5983876899068, 1.8)
    pt3dadd(120.237666652777, -190.922925310223, -54.2175601032131, 1.8)
    pt3dadd(120.413941172333, -191.688139539283, -54.8367325165193, 1.8)
    pt3dadd(120.546445636471, -192.444668885153, -55.4704495066106, 1.8)
    pt3dadd(120.509879971199, -193.167651224726, -56.1603476793792, 1.8)
    pt3dadd(120.473314305926, -193.890633564298, -56.8502458521477, 1.8)
    pt3dadd(120.436748640654, -194.613615903871, -57.5401440249163, 1.8)
    pt3dadd(120.360350114244, -195.219271528841, -58.3144807512699, 1.8)
    pt3dadd(120.234790269076, -195.680123696292, -59.1930306958018, 1.8)
    pt3dadd(120.109230423908, -196.140975863743, -60.0715806403337, 1.8)
    pt3dadd(119.98367057874, -196.601828031194, -60.9501305848656, 1.8)
    pt3dadd(119.858110733572, -197.062680198645, -61.8286805293975, 1.8)
    pt3dadd(119.732550888404, -197.523532366097, -62.7072304739293, 1.8)
    pt3dadd(119.606991043236, -197.984384533548, -63.5857804184612, 1.8)
    pt3dadd(119.481431198068, -198.445236700999, -64.4643303629931, 1.8)
    pt3dadd(119.44690143605, -199.299373971302, -64.9365553282701, 1.8)
    pt3dadd(119.425208134554, -200.208969706784, -65.3514830312046, 1.8)
    pt3dadd(119.403514833058, -201.118565442267, -65.7664107341391, 1.8)
    pt3dadd(119.355538666044, -202.016231330741, -66.2025453488522, 1.8)
    pt3dadd(119.27312553056, -202.898266208016, -66.6664661937925, 1.8)
    pt3dadd(119.190712395075, -203.780301085291, -67.1303870387327, 1.8)
    pt3dadd(119.033144001251, -204.560567782219, -67.6948662204129, 1.8)
    pt3dadd(118.738256942451, -205.154890461771, -68.4430788740896, 1.8)
    pt3dadd(118.443369883651, -205.749213141323, -69.1912915277663, 1.8)
    pt3dadd(118.14848282485, -206.343535820875, -69.9395041814431, 1.8)
    pt3dadd(117.853595766049, -206.937858500428, -70.6877168351198, 1.8)
    pt3dadd(117.558708707249, -207.53218117998, -71.4359294887965, 1.8)
    pt3dadd(117.357428256305, -207.804340716184, -72.3690431882694, 1.8)
    pt3dadd(117.165534124329, -208.044195631031, -73.3206976749069, 1.8)
    pt3dadd(116.973639992354, -208.284050545878, -74.2723521615443, 1.8)
    pt3dadd(116.781745860378, -208.523905460725, -75.2240066481817, 1.8)
    pt3dadd(116.589851728403, -208.763760375572, -76.1756611348192, 1.8)
    pt3dadd(116.397957596427, -209.003615290419, -77.1273156214566, 1.8)
    pt3dadd(116.222012774712, -209.258855884833, -78.0204265121085, 1.79324586797232)
    pt3dadd(116.478532534093, -209.931278248271, -77.3261313456305, 1.603353855346)
    pt3dadd(116.735052293475, -210.60370061171, -76.6318361791525, 1.41346184271967)
    pt3dadd(117.010549575529, -211.299314701818, -76.8305464334454, 1.35)
    pt3dadd(117.295572657951, -212.00656991929, -77.4775023050827, 1.35)
    pt3dadd(117.580595740374, -212.713825136761, -78.1244581767201, 1.35)
    pt3dadd(117.822177124961, -213.43499677066, -78.7668758757349, 1.35)
    pt3dadd(117.88082069138, -214.214771980961, -79.3901828254139, 1.35)
    pt3dadd(117.939464257798, -214.994547191262, -80.0134897750929, 1.35)
    pt3dadd(117.998107824217, -215.774322401563, -80.636796724772, 1.35)
    pt3dadd(118.214043514089, -216.676491281492, -80.9737066185002, 1.35)
    pt3dadd(118.463512501609, -217.604753415577, -81.2495591781941, 1.35)
  }
  GCL[9] {pt3dclear()
    pt3dadd(0.351768529422195, 25.937774559514, 9.68086827649297, 2.61374482587408)
    pt3dadd(0.532652532559389, 25.1633761713349, 10.2592581552522, 2.61374482587408)
    pt3dadd(0.639944708256245, 24.3469245962926, 10.826616256142, 2.50842423943798)
    pt3dadd(0.747236883953098, 23.5304730212504, 11.3939743570318, 2.40310365300187)
    pt3dadd(0.854529059649954, 22.7140214462081, 11.9613324579216, 2.29778306656577)
    pt3dadd(0.901505065840972, 21.8436593113448, 11.9984994415046, 2.19141296298957)
    pt3dadd(0.89839042598078, 20.9285261840172, 11.5953596911869, 2.08417126905842)
    pt3dadd(0.895275786120587, 20.0133930566896, 11.1922199408692, 1.97692957512727)
    pt3dadd(0.892161146260399, 19.0982599293621, 10.7890801905516, 1.86968788119612)
    pt3dadd(0.810965638499278, 18.1625650957759, 10.5192927036707, 1.8)
    pt3dadd(0.584876980091581, 17.1887143030853, 10.4969644230542, 1.8)
    pt3dadd(0.358788321683885, 16.2148635103947, 10.4746361424378, 1.8)
    pt3dadd(0.13269966327619, 15.2410127177041, 10.4523078618214, 1.8)
    pt3dadd(-0.0933889951315034, 14.2671619250135, 10.4299795812049, 1.8)
    pt3dadd(-0.144334507697227, 13.348766756239, 10.7929206944209, 1.8)
    pt3dadd(-0.173910348497389, 12.4371378726933, 11.2028695306507, 1.8)
    pt3dadd(-0.203486189297553, 11.5255089891476, 11.6128183668805, 1.8)
    pt3dadd(-0.381216614654273, 10.774135449522, 12.2302348585798, 1.8)
    pt3dadd(-0.595949706553647, 10.0627868275898, 12.8994678802683, 1.8)
    pt3dadd(-0.810682798453019, 9.35143820565752, 13.5687009019569, 1.8)
    pt3dadd(-0.914559623457391, 8.49162563787862, 13.7173520262232, 1.8)
    pt3dadd(-0.935718062091702, 7.52103270216442, 13.4775569603519, 1.8)
    pt3dadd(-0.956876500726011, 6.5504397664502, 13.2377618944806, 1.8)
    pt3dadd(-0.978034939360322, 5.57984683073599, 12.9979668286093, 1.8)
    pt3dadd(-1.1129476300827, 4.75753330526973, 12.4470743915869, 1.8)
    pt3dadd(-1.24968835229113, 3.93760263077996, 11.8911826180188, 1.8)
    pt3dadd(-1.38642907449956, 3.11767195629019, 11.3352908444508, 1.8)
    pt3dadd(-1.46683968832459, 2.19664452210368, 10.9589572385987, 1.8)
    pt3dadd(-1.54278730121432, 1.2676072518627, 10.5968499194245, 1.8)
    pt3dadd(-1.61873491410405, 0.338569981621718, 10.2347426002503, 1.8)
  }
  adendIML[17] {pt3dclear()
    pt3dadd(-1.61873491410405, 0.338569981621718, 10.2347426002503, 1.8)
    pt3dadd(-1.69468252699378, -0.590467288619265, 9.87263528107608, 1.8)
    pt3dadd(-1.62246899259447, -1.36939743206091, 10.390840157105, 1.8)
    pt3dadd(-1.52864572509911, -2.12643401565032, 11.0374411202839, 1.8)
    pt3dadd(-1.43482245760375, -2.88347059923972, 11.6840420834627, 1.8)
    pt3dadd(-1.34099919010839, -3.64050718282912, 12.3306430466415, 1.8)
    pt3dadd(-1.28190443909605, -4.51587412478146, 12.6237277909235, 1.8)
    pt3dadd(-1.2585687987375, -5.51308296517689, 12.5528054635063, 1.8)
    pt3dadd(-1.23523315837895, -6.51029180557231, 12.4818831360891, 1.8)
    pt3dadd(-1.18897857562788, -7.43016335707402, 12.704109280537, 1.8)
    pt3dadd(-1.11735800704183, -8.26444035796359, 13.2507832052327, 1.8)
    pt3dadd(-1.04573743845578, -9.09871735885316, 13.7974571299283, 1.8)
    pt3dadd(-0.97411686986973, -9.93299435974275, 14.3441310546239, 1.8)
    pt3dadd(-0.976694448460028, -10.812463388529, 14.7160595674838, 1.8)
    pt3dadd(-1.15110528548447, -11.7965912761177, 14.6833004344273, 1.8)
    pt3dadd(-1.32551612250892, -12.7807191637064, 14.6505413013708, 1.8)
    pt3dadd(-1.49992695953337, -13.7648470512951, 14.6177821683143, 1.8)
    pt3dadd(-1.78846457935549, -14.4344020635423, 13.9991773938732, 1.8)
    pt3dadd(-2.09850652052347, -15.0446837305483, 13.2701847453278, 1.8)
    pt3dadd(-2.40854846169145, -15.6549653975543, 12.5411920967825, 1.8)
    pt3dadd(-2.67409358150512, -16.3456634854995, 12.1034116529564, 1.8)
    pt3dadd(-2.81520671956599, -17.2612399876414, 12.4799840244764, 1.8)
    pt3dadd(-2.95631985762687, -18.1768164897834, 12.8565563959964, 1.8)
    pt3dadd(-3.041092734143, -18.9710638504617, 13.4302682157255, 1.8)
    pt3dadd(-3.09326841557689, -19.6951129269112, 14.1180404404915, 1.8)
    pt3dadd(-3.14544409701078, -20.4191620033607, 14.8058126652575, 1.8)
    pt3dadd(-3.19761977844466, -21.1432110798101, 15.4935848900236, 1.8)
    pt3dadd(-3.24979545987854, -21.8672601562595, 16.1813571147896, 1.8)
    pt3dadd(-3.30197114131243, -22.591309232709, 16.8691293395556, 1.8)
    pt3dadd(-3.58463782090726, -23.5469586985842, 16.8670993248927, 1.8)
    pt3dadd(-3.87000646734505, -24.5053231363153, 16.8569829953888, 1.8)
    pt3dadd(-4.15537511378283, -25.4636875740464, 16.8468666658849, 1.8)
    pt3dadd(-4.37293892067499, -26.3583710899075, 16.9988872082743, 1.8)
    pt3dadd(-4.33998381782743, -27.0177723571123, 17.7499557337798, 1.8)
    pt3dadd(-4.30702871497986, -27.6771736243172, 18.5010242592853, 1.8)
    pt3dadd(-4.2740736121323, -28.336574891522, 19.2520927847908, 1.8)
    pt3dadd(-4.25735537838527, -29.0018145653556, 19.9575720079838, 1.8)
    pt3dadd(-4.64705810443181, -29.8131939174134, 19.5219169467645, 1.8)
    pt3dadd(-5.03676083047834, -30.6245732694713, 19.0862618855451, 1.8)
    pt3dadd(-5.39011896225523, -31.4331820333293, 18.7355470934042, 1.8)
    pt3dadd(-5.32534707535727, -32.2099162882255, 19.3620361195958, 1.8)
    pt3dadd(-5.26057518845931, -32.9866505431218, 19.9885251457873, 1.8)
    pt3dadd(-5.19580330156135, -33.7633847980181, 20.6150141719789, 1.8)
    pt3dadd(-5.13103141466339, -34.5401190529143, 21.2415031981704, 1.8)
    pt3dadd(-5.06787724024469, -35.3521605133375, 21.8162035949701, 1.8)
    pt3dadd(-5.00732359687048, -36.2209595776266, 22.307651905746, 1.8)
    pt3dadd(-4.94676995349627, -37.0897586419157, 22.799100216522, 1.8)
    pt3dadd(-4.88621631012207, -37.9585577062047, 23.2905485272979, 1.8)
    pt3dadd(-4.74215942495276, -38.7900017773904, 23.8214438438854, 1.8)
    pt3dadd(-4.54678912811377, -39.598490905776, 24.3765796618574, 1.8)
    pt3dadd(-4.35141883127479, -40.4069800341615, 24.9317154798294, 1.8)
    pt3dadd(-4.1560485344358, -41.2154691625471, 25.4868512978014, 1.8)
    pt3dadd(-4.14425812748657, -42.1261694803407, 25.7069878990375, 1.8)
    pt3dadd(-4.27572426939992, -43.1166302896485, 25.6657078947289, 1.8)
    pt3dadd(-4.40719041131327, -44.1070910989563, 25.6244278904204, 1.8)
    pt3dadd(-4.48932331475483, -45.0934620296359, 25.7418444687756, 1.8)
    pt3dadd(-4.55978137558832, -46.0788650796178, 25.8968170171509, 1.8)
    pt3dadd(-4.6302394364218, -47.0642681295997, 26.0517895655261, 1.8)
    pt3dadd(-4.70069749725528, -48.0496711795816, 26.2067621139014, 1.8)
    pt3dadd(-4.82162909139707, -48.9917268239039, 25.9209705957289, 1.8)
    pt3dadd(-4.94668339992617, -49.9302418210542, 25.5991771525978, 1.8)
    pt3dadd(-5.07173770845526, -50.8687568182046, 25.2773837094666, 1.8)
    pt3dadd(-5.19679201698435, -51.8072718153549, 24.9555902663355, 1.8)
    pt3dadd(-5.28947056498188, -52.7187701613521, 24.8169816965016, 1.8)
    pt3dadd(-5.25261861254617, -53.5221789895604, 25.4112679813497, 1.8)
    pt3dadd(-5.21576666011046, -54.3255878177688, 26.0055542661978, 1.8)
    pt3dadd(-5.17891470767475, -55.1289966459772, 26.5998405510459, 1.8)
    pt3dadd(-5.14206275523904, -55.9324054741855, 27.194126835894, 1.8)
    pt3dadd(-5.13008704091355, -56.7774040739929, 27.6486292977641, 1.8)
    pt3dadd(-5.20819366174345, -57.7730083935082, 27.5969437606683, 1.8)
    pt3dadd(-5.28630028257335, -58.7686127130236, 27.5452582235725, 1.8)
    pt3dadd(-5.36440690340325, -59.764217032539, 27.4935726864767, 1.8)
    pt3dadd(-5.40466310920095, -60.721038525414, 27.5794509231652, 1.8)
    pt3dadd(-5.31420017809381, -61.5439207306788, 28.1404155694255, 1.8)
    pt3dadd(-5.22373724698668, -62.3668029359436, 28.7013802156858, 1.8)
    pt3dadd(-5.13327431587954, -63.1896851412085, 29.2623448619461, 1.8)
    pt3dadd(-5.0428113847724, -64.0125673464733, 29.8233095082065, 1.8)
    pt3dadd(-4.95234845366527, -64.8354495517382, 30.3842741544668, 1.8)
    pt3dadd(-5.15978785758656, -65.6955494227363, 29.9930760530708, 1.8)
    pt3dadd(-5.38640343949221, -66.5580450204488, 29.5405865814096, 1.8)
    pt3dadd(-5.61301902139785, -67.4205406181612, 29.0880971097483, 1.8)
    pt3dadd(-5.8396346033035, -68.2830362158736, 28.6356076380871, 1.8)
    pt3dadd(-5.92300943370374, -68.9976928873437, 28.8839344529621, 1.8)
    pt3dadd(-5.8934471085619, -69.5957870049824, 29.6848149030783, 1.8)
    pt3dadd(-5.86388478342006, -70.193881122621, 30.4856953531944, 1.8)
    pt3dadd(-5.83432245827823, -70.7919752402597, 31.2865758033106, 1.8)
    pt3dadd(-5.80476013313638, -71.3900693578983, 32.0874562534267, 1.8)
    pt3dadd(-5.77519780799454, -71.988163475537, 32.8883367035429, 1.8)
    pt3dadd(-5.82808629099004, -72.8451701061696, 32.9261690397758, 1.8)
    pt3dadd(-5.91381442662768, -73.8053000073135, 32.6600839787719, 1.8)
    pt3dadd(-5.99954256226533, -74.7654299084574, 32.3939989177681, 1.8)
    pt3dadd(-6.08527069790297, -75.7255598096014, 32.1279138567642, 1.8)
    pt3dadd(-6.00494423828147, -76.7047378789437, 32.1306883043128, 1.8)
    pt3dadd(-5.86704140498827, -77.6905205499127, 32.2266848364743, 1.8)
    pt3dadd(-5.72913857169507, -78.6763032208816, 32.3226813686358, 1.8)
    pt3dadd(-5.59321698894601, -79.6551953538337, 32.4397612662067, 1.8)
    pt3dadd(-5.49560021642228, -80.5008682168325, 32.9644596314695, 1.8)
    pt3dadd(-5.39798344389856, -81.3465410798313, 33.4891579967323, 1.8)
    pt3dadd(-5.30036667137483, -82.1922139428301, 34.0138563619951, 1.8)
    pt3dadd(-5.19868551825062, -83.0899124146441, 34.4301134406015, 1.8)
    pt3dadd(-5.09404969472714, -84.0254317850106, 34.7675372869795, 1.8)
    pt3dadd(-4.98941387120366, -84.9609511553772, 35.1049611333575, 1.8)
    pt3dadd(-4.88477804768017, -85.8964705257438, 35.4423849797355, 1.8)
    pt3dadd(-4.7801422241567, -86.8319898961103, 35.7798088261135, 1.8)
    pt3dadd(-4.69417618872203, -87.776929034373, 36.079596215581, 1.8)
    pt3dadd(-4.7071828770806, -88.77180446981, 36.179864326274, 1.8)
    pt3dadd(-4.72018956543916, -89.7666799052471, 36.2801324369671, 1.8)
    pt3dadd(-4.69816052362666, -90.7595422202031, 36.3911481535523, 1.8)
    pt3dadd(-4.63933782315148, -91.7502904057415, 36.513450740447, 1.8)
    pt3dadd(-4.5805151226763, -92.74103859128, 36.6357533273418, 1.8)
    pt3dadd(-4.51798593524791, -93.6319671039957, 36.9816705284144, 1.8)
    pt3dadd(-4.45034774543562, -94.3853046976422, 37.6358169533667, 1.8)
    pt3dadd(-4.38270955562333, -95.1386422912887, 38.2899633783189, 1.8)
    pt3dadd(-4.31507136581103, -95.8919798849352, 38.9441098032711, 1.8)
    pt3dadd(-4.25139175381771, -96.6479119182468, 39.5900899219518, 1.8)
    pt3dadd(-4.50858192038927, -97.614141012504, 39.5741351223634, 1.8)
    pt3dadd(-4.76577208696083, -98.5803701067612, 39.558180322775, 1.8)
    pt3dadd(-5.02296225353238, -99.5465992010183, 39.5422255231866, 1.8)
    pt3dadd(-5.28015242010394, -100.512828295275, 39.5262707235982, 1.8)
    pt3dadd(-5.39928155368436, -101.40477240584, 39.8806611527262, 1.8)
  }
}
proc shape3d_25() {
  adendIML[17] {
    pt3dadd(-5.4632225544962, -102.267022043938, 40.3830923520107, 1.8)
    pt3dadd(-5.52716355530804, -103.129271682036, 40.8855235512951, 1.8)
    pt3dadd(-5.59110455611988, -103.991521320135, 41.3879547505796, 1.8)
    pt3dadd(-5.70647211359066, -104.844773578487, 41.6636737652495, 1.8)
    pt3dadd(-5.99536747035819, -105.66766612372, 41.1744015180926, 1.8)
    pt3dadd(-6.28426282712572, -106.490558668953, 40.6851292709356, 1.8)
    pt3dadd(-6.57315818389325, -107.313451214186, 40.1958570237787, 1.8)
    pt3dadd(-6.86205354066079, -108.136343759419, 39.7065847766218, 1.8)
    pt3dadd(-7.11582968755984, -108.963940554727, 39.3992107401287, 1.8)
    pt3dadd(-7.20987041459954, -109.812934054679, 39.919178410948, 1.8)
    pt3dadd(-7.30391114163925, -110.661927554631, 40.4391460817674, 1.8)
    pt3dadd(-7.39795186867895, -111.510921054583, 40.9591137525867, 1.8)
    pt3dadd(-7.49199259571866, -112.359914554535, 41.4790814234061, 1.8)
    pt3dadd(-7.41298275276846, -113.270549742739, 41.8758595471343, 1.8)
    pt3dadd(-7.30897095741961, -114.190090781732, 42.2548395255424, 1.8)
    pt3dadd(-7.20495916207076, -115.109631820726, 42.6338195039506, 1.8)
    pt3dadd(-7.18657059355609, -116.003681958088, 43.0689678740727, 1.8)
    pt3dadd(-7.25262191443032, -116.872593485357, 43.5595083726959, 1.8)
  }
  adendMML[20] {pt3dclear()
    pt3dadd(-7.25262191443032, -116.872593485357, 43.5595083726959, 1.8)
    pt3dadd(-7.31867323530456, -117.741505012627, 44.0500488713191, 1.8)
    pt3dadd(-7.3847245561788, -118.610416539896, 44.5405893699423, 1.8)
    pt3dadd(-7.45692706810881, -119.482484681536, 44.9697593414835, 1.8)
    pt3dadd(-7.60992276734961, -120.396013563686, 44.5928544496454, 1.8)
    pt3dadd(-7.7629184665904, -121.309542445837, 44.2159495578073, 1.8)
    pt3dadd(-7.9159141658312, -122.223071327987, 43.8390446659692, 1.8)
    pt3dadd(-8.068909865072, -123.136600210137, 43.4621397741311, 1.8)
    pt3dadd(-8.12995894984668, -124.040264931737, 43.4629225366103, 1.8)
    pt3dadd(-8.08175263660803, -124.93220858244, 43.912491969885, 1.8)
    pt3dadd(-8.03354632336939, -125.824152233143, 44.3620614031596, 1.8)
    pt3dadd(-7.98534001013073, -126.716095883845, 44.8116308364342, 1.8)
    pt3dadd(-7.9562063631352, -127.622686950132, 45.1140527189761, 1.8)
    pt3dadd(-8.00067117068653, -128.585800116494, 44.8486550745445, 1.8)
    pt3dadd(-8.04513597823786, -129.548913282856, 44.5832574301129, 1.8)
    pt3dadd(-8.03298598100174, -130.486928164258, 44.4937329546822, 1.8)
    pt3dadd(-7.83850765792127, -131.344113865105, 44.9706090980519, 1.8)
    pt3dadd(-7.6440293348408, -132.201299565952, 45.4474852414216, 1.8)
    pt3dadd(-7.44955101176035, -133.058485266799, 45.9243613847913, 1.8)
    pt3dadd(-7.25507268867988, -133.915670967646, 46.401237528161, 1.8)
    pt3dadd(-7.06059436559941, -134.772856668493, 46.8781136715308, 1.8)
    pt3dadd(-6.89153263353217, -135.667337652236, 46.7558924012108, 1.8)
    pt3dadd(-6.73348265771933, -136.577976843997, 46.3741117474638, 1.8)
    pt3dadd(-6.57543268190651, -137.488616035757, 45.9923310937169, 1.8)
    pt3dadd(-6.41738270609368, -138.399255227518, 45.6105504399699, 1.8)
    pt3dadd(-6.30905024690821, -139.331600669609, 45.2848256384131, 1.8)
    pt3dadd(-6.30610810349413, -140.30995863871, 45.0779270446782, 1.8)
    pt3dadd(-6.30316596008006, -141.28831660781, 44.8710284509433, 1.8)
    pt3dadd(-6.30022381666599, -142.266674576911, 44.6641298572084, 1.8)
    pt3dadd(-6.27423355626301, -143.215343500822, 44.6461287536276, 1.8)
    pt3dadd(-6.18671457129953, -144.084755230539, 45.1324040578535, 1.8)
    pt3dadd(-6.09919558633605, -144.954166960257, 45.6186793620794, 1.8)
    pt3dadd(-6.01167660137257, -145.823578689975, 46.1049546663053, 1.8)
    pt3dadd(-5.94043484384645, -146.712148756566, 46.551556950925, 1.8)
    pt3dadd(-5.91283327038042, -147.652083427518, 46.891793585467, 1.8)
    pt3dadd(-5.94347532028307, -148.241373397949, 47.5765424443213, 1.8)
    pt3dadd(-6.0175963506687, -148.568906403264, 48.5184703626273, 1.8)
    pt3dadd(-6.09171738105432, -148.896439408578, 49.4603982809333, 1.8)
    pt3dadd(-6.16583841143994, -149.223972413893, 50.4023261992393, 1.8)
    pt3dadd(-6.42847145238447, -149.833549136102, 50.2326430260084, 1.8)
    pt3dadd(-6.76516141315766, -150.553926697306, 49.6262635741557, 1.8)
    pt3dadd(-6.71569302608601, -150.996767622185, 49.9632630017857, 1.8)
    pt3dadd(-6.42822885835372, -151.268558124894, 50.8816824456715, 1.8)
    pt3dadd(-6.14076469062143, -151.540348627602, 51.8001018895574, 1.8)
    pt3dadd(-5.85330052288913, -151.81213913031, 52.7185213334432, 1.8)
    pt3dadd(-5.56583635515684, -152.083929633019, 53.636940777329, 1.8)
    pt3dadd(-5.27837218742454, -152.355720135727, 54.5553602212148, 1.8)
    pt3dadd(-4.99090801969225, -152.627510638435, 55.4737796651006, 1.8)
    pt3dadd(-4.70344385195996, -152.899301141144, 56.3921991089865, 1.8)
  }
  adendMML[21] {pt3dclear()
    pt3dadd(-4.70344385195996, -152.899301141144, 56.3921991089865, 1.8)
    pt3dadd(-4.715516964486, -153.8511940336, 56.6448826709602, 1.8)
    pt3dadd(-4.73658859121958, -154.823518142536, 56.8775666062207, 1.8)
    pt3dadd(-4.75766021795316, -155.795842251472, 57.1102505414813, 1.8)
    pt3dadd(-4.67337836904824, -156.580296027958, 57.6359310627448, 1.8)
    pt3dadd(-4.50848199445746, -157.220994910271, 58.3858071377388, 1.8)
    pt3dadd(-4.34358561986669, -157.861693792585, 59.1356832127328, 1.8)
    pt3dadd(-4.17868924527591, -158.502392674899, 59.8855592877268, 1.8)
    pt3dadd(-4.01379287068514, -159.143091557213, 60.6354353627209, 1.8)
    pt3dadd(-4.0231302220851, -159.821930797701, 60.7293027419724, 1.8)
    pt3dadd(-4.23238230228073, -160.544532055657, 60.0704696910907, 1.8)
    pt3dadd(-4.44163438247637, -161.267133313613, 59.4116366402089, 1.8)
    pt3dadd(-4.65088646267201, -161.989734571569, 58.7528035893272, 1.8)
    pt3dadd(-4.79159662774372, -162.71635404295, 58.3552330180421, 1.8)
    pt3dadd(-4.65600362363749, -163.459171560472, 59.0108523228978, 1.8)
    pt3dadd(-4.52041061953126, -164.201989077995, 59.6664716277535, 1.8)
    pt3dadd(-4.38481761542504, -164.944806595517, 60.3220909326092, 1.8)
    pt3dadd(-4.2492246113188, -165.687624113039, 60.977710237465, 1.8)
    pt3dadd(-4.11363160721257, -166.430441630562, 61.6333295423207, 1.8)
    pt3dadd(-4.02024903536526, -167.245049892871, 62.0864234121914, 1.8)
    pt3dadd(-4.03460953470174, -168.242905634823, 62.0225665855072, 1.8)
    pt3dadd(-4.04897003403822, -169.240761376774, 61.9587097588231, 1.8)
    pt3dadd(-4.06333053337471, -170.238617118725, 61.8948529321389, 1.8)
    pt3dadd(-4.23784542978812, -171.214108038492, 62.0166340562523, 1.8)
    pt3dadd(-4.42063444819587, -172.188443515321, 62.1480058695988, 1.8)
    pt3dadd(-4.5216537318524, -173.180622548299, 62.1215645424998, 1.8)
    pt3dadd(-4.61068872547459, -174.175416758552, 62.0719938943618, 1.8)
    pt3dadd(-4.69972371909677, -175.170210968806, 62.0224232462238, 1.8)
    pt3dadd(-4.65388765866836, -175.727667041073, 62.8031234856923, 1.8)
    pt3dadd(-4.59639990928509, -176.247340892479, 63.6555519265809, 1.8)
    pt3dadd(-4.53891215990179, -176.767014743885, 64.5079803674695, 1.8)
    pt3dadd(-4.48142441051851, -177.286688595291, 65.360408808358, 1.8)
    pt3dadd(-4.53764487970047, -178.010924403419, 65.6441580815248, 1.8)
    pt3dadd(-4.71167391663183, -178.947098727878, 65.3387214620305, 1.8)
    pt3dadd(-4.88570295356321, -179.883273052337, 65.0332848425363, 1.8)
    pt3dadd(-4.90870208656721, -180.623309389094, 65.422315406677, 1.72423948011618)
    pt3dadd(-4.84821470812405, -181.254924307775, 66.1952344655366, 1.60659995914682)
    pt3dadd(-4.7877273296809, -181.886539226456, 66.9681535243962, 1.48896043817746)
    pt3dadd(-4.72723995123774, -182.518154145137, 67.7410725832558, 1.3713209172081)
    pt3dadd(-4.82325603431371, -183.443659906545, 67.847227508946, 1.35)
    pt3dadd(-4.95391544916077, -184.434220829481, 67.8057886954675, 1.35)
    pt3dadd(-5.07821491643576, -185.420917393899, 67.7883840739135, 1.35)
    pt3dadd(-5.09524731947659, -186.342437573018, 68.1763408456346, 1.35)
    pt3dadd(-5.11227972251743, -187.263957752136, 68.5642976173556, 1.35)
    pt3dadd(-5.00090776327104, -188.215859330394, 68.8472973072201, 1.35)
    pt3dadd(-4.88325329850338, -189.169247394815, 69.1251617085747, 1.35)
    pt3dadd(-4.76559883373572, -190.122635459235, 69.4030261099294, 1.35)
    pt3dadd(-4.70598172964735, -190.991840838283, 69.8521975330649, 1.35)
    pt3dadd(-4.70348579118363, -191.778192464892, 70.4699716743337, 1.35)
    pt3dadd(-4.70098985271992, -192.564544091501, 71.0877458156025, 1.35)
    pt3dadd(-4.69849391425621, -193.35089571811, 71.7055199568714, 1.35)
    pt3dadd(-4.75874301332408, -194.174413174484, 71.8977715619881, 1.35)
    pt3dadd(-4.91366406461708, -195.05400776139, 71.4479795761191, 1.35)
    pt3dadd(-5.06858511591008, -195.933602348296, 70.9981875902501, 1.35)
    pt3dadd(-5.19018334397077, -196.796824818253, 70.7319786028589, 1.35)
    pt3dadd(-5.15106834008016, -197.581085916586, 71.3511752970624, 1.35)
    pt3dadd(-5.11195333618957, -198.365347014918, 71.9703719912659, 1.35)
    pt3dadd(-5.07283833229896, -199.149608113251, 72.5895686854694, 1.35)
    pt3dadd(-5.03372332840836, -199.933869211584, 73.2087653796729, 1.35)
    pt3dadd(-5.04804349221062, -200.784190689425, 73.6165808872304, 1.35)
    pt3dadd(-5.17606223301264, -201.77507448737, 73.5746225629868, 1.35)
    pt3dadd(-5.30408097381466, -202.765958285315, 73.5326642387432, 1.35)
    pt3dadd(-5.60420403685671, -203.706464161906, 73.526521572081, 1.35)
    pt3dadd(-6.03472628701785, -204.608799933832, 73.5475155430927, 1.35)
    pt3dadd(-6.46524853717898, -205.511135705758, 73.5685095141043, 1.35)
    pt3dadd(-6.44050747802458, -206.139344277189, 74.3062785273751, 1.35)
    pt3dadd(-6.38120682750121, -206.746743519517, 75.0984588056371, 1.35)
    pt3dadd(-6.32190617697784, -207.354142761845, 75.8906390838991, 1.35)
    pt3dadd(-6.26260552645447, -207.961542004172, 76.6828193621612, 1.35)
    pt3dadd(-6.20330487593111, -208.5689412465, 77.4749996404232, 1.35)
    pt3dadd(-6.22287950158748, -209.302113460771, 77.9916340313455, 1.35)
    pt3dadd(-6.39958704134404, -210.285846745047, 77.959334328556, 1.35)
    pt3dadd(-6.5762945811006, -211.269580029324, 77.9270346257665, 1.35)
    pt3dadd(-6.75300212085715, -212.2533133136, 77.8947349229769, 1.35)
    pt3dadd(-6.80727916812269, -212.996158598781, 78.5199634252042, 1.35)
    pt3dadd(-6.84839541032748, -213.713109354479, 79.2158736697989, 1.35)
    pt3dadd(-6.88951165253227, -214.430060110176, 79.9117839143936, 1.35)
    pt3dadd(-6.93062789473706, -215.147010865874, 80.6076941589884, 1.35)
    pt3dadd(-7.13096569410019, -216.081518979225, 80.4549566763834, 1.35)
    pt3dadd(-7.34400100724813, -217.033376737921, 80.2345416983007, 1.35)
    pt3dadd(-7.55703632039606, -217.985234496616, 80.014126720218, 1.35)
    pt3dadd(-7.75610330892089, -218.943056029192, 79.8200310262635, 1.35)
    pt3dadd(-7.87534193047413, -219.934960269803, 79.776348895031, 1.35)
    pt3dadd(-7.99458055202737, -220.926864510413, 79.7326667637985, 1.35)
    pt3dadd(-8.11381917358061, -221.918768751024, 79.688984632566, 1.35)
    pt3dadd(-8.00744047913407, -222.905434151391, 79.603105561797, 1.35)
    pt3dadd(-7.8676768909872, -223.891324353615, 79.5109825538787, 1.35)
    pt3dadd(-7.80580400141962, -224.850927419407, 79.6373345983966, 1.35)
    pt3dadd(-7.82879695197365, -225.781889325749, 80.0017262189975, 1.35)
    pt3dadd(-7.85178990252767, -226.712851232092, 80.3661178395983, 1.35)
    pt3dadd(-7.85936464282442, -227.581075635179, 80.8274858316916, 1.35)
    pt3dadd(-7.82916231379924, -228.295583169057, 81.5264613701428, 1.35)
    pt3dadd(-7.79895998477406, -229.010090702935, 82.225436908594, 1.35)
    pt3dadd(-7.76875765574888, -229.724598236812, 82.9244124470453, 1.35)
    pt3dadd(-7.73855532672369, -230.43910577069, 83.6233879854965, 1.35)
    pt3dadd(-7.66533907151551, -231.311756688851, 84.0606467299015, 1.35)
    pt3dadd(-7.57321100919553, -232.25393804622, 84.3828372169735, 1.35)
    pt3dadd(-7.48108294687554, -233.196119403589, 84.7050277040456, 1.35)
  }
  adendOML[9] {pt3dclear()
    pt3dadd(-7.48108294687554, -233.196119403589, 84.7050277040456, 1.35)
    pt3dadd(-7.38895488455554, -234.138300760958, 85.0272181911177, 1.35)
    pt3dadd(-7.29682682223556, -235.080482118327, 85.3494086781897, 1.35)
    pt3dadd(-7.22204078697983, -236.030067541272, 85.6526905318302, 1.35)
    pt3dadd(-7.16463540252796, -236.987073519948, 85.9370216391921, 1.35)
    pt3dadd(-7.10723001807607, -237.944079498625, 86.221352746554, 1.35)
    pt3dadd(-7.21961806202191, -238.85469332369, 86.1225172212538, 1.35)
    pt3dadd(-7.47370818173044, -239.726590311903, 85.7039077934911, 1.35)
    pt3dadd(-7.72779830143897, -240.598487300116, 85.2852983657285, 1.35)
    pt3dadd(-7.93247648734999, -241.360288362862, 85.2996197442116, 1.35)
    pt3dadd(-8.04479439345146, -241.916299251038, 86.123170944926, 1.35)
    pt3dadd(-8.15711229955294, -242.472310139215, 86.9467221456405, 1.35)
    pt3dadd(-8.26943020565441, -243.028321027391, 87.7702733463549, 1.35)
    pt3dadd(-8.38174811175587, -243.584331915568, 88.5938245470693, 1.35)
    pt3dadd(-8.49406601785734, -244.140342803744, 89.4173757477838, 1.35)
    pt3dadd(-8.63557332020828, -244.770646706726, 90.1776206319806, 1.35)
    pt3dadd(-8.79035580856933, -245.434738687486, 90.9090741317923, 1.35)
    pt3dadd(-8.94513829693038, -246.098830668246, 91.6405276316039, 1.35)
    pt3dadd(-9.09992078529145, -246.762922649006, 92.3719811314156, 1.35)
    pt3dadd(-9.39900909403322, -247.547176675921, 92.1265350482022, 1.35)
    pt3dadd(-9.73240197078483, -248.359995781318, 91.6488591207853, 1.35)
    pt3dadd(-10.0657948475364, -249.172814886714, 91.1711831933683, 1.35)
    pt3dadd(-10.411209703744, -249.998675802329, 90.762131995125, 1.35)
    pt3dadd(-10.8315696081121, -250.905839393473, 90.7808875197054, 1.35)
    pt3dadd(-11.2519295124802, -251.813002984617, 90.7996430442858, 1.35)
    pt3dadd(-11.6097373391154, -252.648440825757, 90.9548753384594, 1.35)
    pt3dadd(-11.6287911258036, -253.095444126225, 91.8492046975794, 1.35)
    pt3dadd(-11.6478449124918, -253.542447426692, 92.7435340566994, 1.35)
    pt3dadd(-11.66689869918, -253.98945072716, 93.6378634158194, 1.35)
    pt3dadd(-11.7118212876594, -254.443117254378, 94.5046104573947, 1.35)
    pt3dadd(-12.4746772877799, -255.081707426389, 94.60586911278, 1.35)
  }
  adendOML[10] {pt3dclear()
    pt3dadd(-12.4746772877799, -255.081707426389, 94.60586911278, 1.35)
    pt3dadd(-13.3261881415644, -254.999780287168, 95.1007713595039, 1.35)
    pt3dadd(-14.180726563361, -254.893247443088, 95.6091165560048, 1.35)
    pt3dadd(-15.0537728024149, -254.768469051767, 96.0615475809163, 1.35)
    pt3dadd(-16.0121416906285, -254.559577098902, 96.2562094059685, 1.35)
    pt3dadd(-16.857259612462, -254.407819245107, 96.6744869361698, 1.35)
    pt3dadd(-17.5519524335274, -254.331949508511, 97.3897810487061, 1.35)
    pt3dadd(-18.2466452545929, -254.256079771915, 98.1050751612423, 1.35)
    pt3dadd(-18.93796920441, -254.695466344925, 98.4101896567304, 1.35)
    pt3dadd(-19.6274608221338, -255.41510128684, 98.4922070906348, 1.35)
    pt3dadd(-20.1497682260167, -256.217113697428, 98.4245006205121, 1.35)
    pt3dadd(-20.4398561810947, -257.133548695711, 98.148827132049, 1.35)
    pt3dadd(-20.7299441361727, -258.049983693993, 97.8731536435857, 1.35)
    pt3dadd(-20.7875021324766, -258.826807659599, 98.1782287207877, 1.35)
    pt3dadd(-20.6751691167065, -259.501629028365, 98.9076102490875, 1.35)
    pt3dadd(-20.5628361009364, -260.176450397131, 99.6369917773874, 1.35)
    pt3dadd(-20.4469269794698, -260.777696386848, 99.982206939935, 1.35)
    pt3dadd(-20.319194223597, -261.135681003154, 99.0572575588523, 1.35)
    pt3dadd(-20.1914614677241, -261.49366561946, 98.1323081777695, 1.35)
    pt3dadd(-20.0637287118513, -261.851650235766, 97.2073587966867, 1.35)
    pt3dadd(-19.8405775929625, -262.26901653476, 96.630714866981, 1.35)
    pt3dadd(-19.3015030855076, -262.882991346207, 97.2072854232193, 1.35)
    pt3dadd(-18.7624285780528, -263.496966157653, 97.7838559794576, 1.35)
    pt3dadd(-18.5593522430587, -264.055987047122, 97.4135871574955, 1.35)
    pt3dadd(-18.5252529976276, -264.587371019021, 96.5671426431474, 1.35)
    pt3dadd(-18.4911537521965, -265.11875499092, 95.7206981287992, 1.35)
    pt3dadd(-18.4570545067654, -265.650138962819, 94.8742536144511, 1.35)
    pt3dadd(-18.4229552613343, -266.181522934718, 94.0278091001029, 1.35)
  }
  adendOML[11] {pt3dclear()
    pt3dadd(-12.4746772877799, -255.081707426389, 94.60586911278, 1.35)
    pt3dadd(-12.5511561653674, -255.655659237112, 95.4008925809411, 1.35)
    pt3dadd(-12.6041952273724, -256.227403644327, 96.2196081547032, 1.35)
    pt3dadd(-12.6572342893773, -256.799148051541, 97.0383237284652, 1.35)
    pt3dadd(-12.7102733513822, -257.370892458755, 97.8570393022273, 1.35)
    pt3dadd(-12.7633124133871, -257.94263686597, 98.6757548759894, 1.35)
    pt3dadd(-12.9558991243995, -258.58658473237, 99.0945798389797, 1.35)
    pt3dadd(-13.4303240034316, -259.376358707675, 98.7057635557728, 1.35)
    pt3dadd(-13.9047488824637, -260.166132682979, 98.316947272566, 1.35)
    pt3dadd(-13.799307581367, -261.099062694302, 98.1561682747081, 1.35)
    pt3dadd(-13.5520691989842, -261.565115374464, 98.7360883266763, 1.35)
    pt3dadd(-13.2993371452573, -261.765446604384, 99.682657873692, 1.35)
    pt3dadd(-13.0466050915303, -261.965777834304, 100.629227420708, 1.35)
    pt3dadd(-12.7938730378034, -262.166109064225, 101.575796967723, 1.35)
    pt3dadd(-12.4643894411816, -262.303202213363, 102.497994292361, 1.35)
    pt3dadd(-11.972395066915, -262.30639747202, 103.368586806693, 1.35)
    pt3dadd(-11.4804006926484, -262.309592730678, 104.239179321026, 1.35)
  }
  adendMML[22] {pt3dclear()
    pt3dadd(-4.70344385195996, -152.899301141144, 56.3921991089865, 1.8)
    pt3dadd(-4.33284857465515, -153.333072443785, 55.6252724624856, 1.8)
    pt3dadd(-3.959755923835, -153.771709873703, 54.8077156883229, 1.8)
    pt3dadd(-3.58666327301484, -154.21034730362, 53.9901589141601, 1.8)
    pt3dadd(-3.21357062219468, -154.648984733538, 53.1726021399974, 1.8)
    pt3dadd(-2.76990483756555, -155.165544440191, 52.708266585419, 1.8)
    pt3dadd(-2.15958798315186, -155.86610944854, 53.078025975153, 1.8)
    pt3dadd(-1.54927112873817, -156.566674456888, 53.447785364887, 1.8)
  }
}
proc shape3d_26() {
  adendMML[22] {
    pt3dadd(-0.938954274324473, -157.267239465236, 53.8175447546209, 1.8)
    pt3dadd(-0.478123854428263, -158.091262280312, 54.1319219282134, 1.8)
    pt3dadd(-0.0532858760150479, -158.945010520967, 54.4329645060608, 1.8)
    pt3dadd(0.371552102398176, -159.798758761622, 54.7340070839081, 1.8)
    pt3dadd(0.77778924437664, -160.639506213962, 54.9727071239949, 1.8)
    pt3dadd(0.883405250767439, -161.270138827632, 54.2038457803381, 1.8)
    pt3dadd(0.989021257158239, -161.900771441302, 53.4349844366813, 1.8)
    pt3dadd(1.09463726354904, -162.531404054972, 52.6661230930244, 1.8)
    pt3dadd(1.20025326993983, -163.162036668642, 51.8972617493676, 1.8)
    pt3dadd(1.30586927633063, -163.792669282312, 51.1284004057107, 1.8)
    pt3dadd(1.53326879207498, -164.481009589175, 50.8392597681359, 1.8)
    pt3dadd(1.9523854857831, -165.260195989606, 51.3053174367115, 1.8)
    pt3dadd(2.37150217949123, -166.039382390037, 51.771375105287, 1.8)
    pt3dadd(2.79061887319936, -166.818568790469, 52.2374327738626, 1.8)
    pt3dadd(3.22334723540471, -167.609512670113, 52.6576746575412, 1.8)
    pt3dadd(3.71535593861047, -168.451661688731, 52.8783836659923, 1.8)
    pt3dadd(4.20736464181623, -169.293810707348, 53.0990926744433, 1.8)
    pt3dadd(4.699373345022, -170.135959725965, 53.3198016828944, 1.8)
    pt3dadd(5.02915677443771, -171.019903372161, 53.0944083114009, 1.8)
    pt3dadd(5.31672887947203, -171.91472205984, 52.75293825329, 1.8)
    pt3dadd(5.60430098450635, -172.80954074752, 52.4114681951792, 1.8)
    pt3dadd(5.90027386694622, -173.697087056007, 52.1285248249539, 1.8)
    pt3dadd(6.30183460779527, -174.493228140027, 52.5811928553503, 1.8)
    pt3dadd(6.70339534864432, -175.289369224048, 53.0338608857467, 1.8)
    pt3dadd(7.10375292231385, -176.088158986357, 53.4809855318668, 1.8)
    pt3dadd(7.45105380456102, -177.003748898324, 53.6836606667377, 1.8)
    pt3dadd(7.79835468680818, -177.919338810291, 53.8863358016086, 1.8)
    pt3dadd(8.14565556905534, -178.834928722258, 54.0890109364796, 1.8)
    pt3dadd(8.44787878239176, -179.775135293046, 54.0858543534299, 1.8)
    pt3dadd(8.72539922365499, -180.728831907279, 53.9699010323036, 1.8)
    pt3dadd(9.00291966491821, -181.682528521513, 53.8539477111773, 1.8)
    pt3dadd(9.49660826939925, -182.389952253479, 54.3026020887766, 1.8)
    pt3dadd(10.0179582242764, -183.065862369434, 54.8235049009202, 1.8)
    pt3dadd(10.5393081791536, -183.741772485389, 55.3444077130639, 1.8)
    pt3dadd(11.0606581340308, -184.417682601344, 55.8653105252075, 1.8)
    pt3dadd(11.5815849745339, -185.099659270405, 56.3623171901019, 1.8)
    pt3dadd(12.0910103354476, -185.946542501395, 56.2097570553138, 1.8)
    pt3dadd(12.6004356963612, -186.793425732385, 56.0571969205256, 1.8)
    pt3dadd(13.1098610572748, -187.640308963374, 55.9046367857375, 1.8)
    pt3dadd(13.6192864181884, -188.487192194364, 55.7520766509493, 1.8)
    pt3dadd(14.08875895699, -189.301211888807, 55.4115405553952, 1.8)
    pt3dadd(14.5571776407327, -190.114364725731, 55.0660461263183, 1.8)
    pt3dadd(15.0255963244754, -190.927517562655, 54.7205516972414, 1.8)
    pt3dadd(15.4959476531949, -191.726616191147, 54.4297203683184, 1.8)
    pt3dadd(16.0000082940478, -192.280580454829, 55.0923261824392, 1.8)
    pt3dadd(16.5040689349007, -192.83454471851, 55.7549319965601, 1.8)
    pt3dadd(17.0081295757536, -193.388508982192, 56.4175378106809, 1.8)
    pt3dadd(17.5121902166065, -193.942473245874, 57.0801436248017, 1.8)
    pt3dadd(18.0162508574594, -194.496437509555, 57.7427494389225, 1.8)
    pt3dadd(18.4432158861085, -195.334507926915, 57.846882627896, 1.8)
    pt3dadd(18.8499674395827, -196.247067313495, 57.8045914974864, 1.8)
    pt3dadd(19.2567189930568, -197.159626700075, 57.7623003670768, 1.8)
    pt3dadd(19.6634705465309, -198.072186086655, 57.7200092366671, 1.8)
    pt3dadd(19.9893674647928, -199.000705014265, 57.888366911207, 1.8)
    pt3dadd(20.3100502952054, -199.930253127756, 58.0703087342804, 1.8)
    pt3dadd(20.6381887438462, -200.8547354733, 58.2242155204058, 1.8)
    pt3dadd(21.0864326842955, -201.697611366896, 57.9264948495635, 1.8)
    pt3dadd(21.5346766247448, -202.540487260491, 57.6287741787212, 1.8)
    pt3dadd(21.982920565194, -203.383363154086, 57.3310535078789, 1.8)
    pt3dadd(22.4336953194978, -204.218957092516, 57.0603741306005, 1.8)
    pt3dadd(22.9655084045061, -204.821378018315, 57.6555748284938, 1.8)
    pt3dadd(23.4973214895144, -205.423798944115, 58.250775526387, 1.8)
    pt3dadd(24.0291345745227, -206.026219869915, 58.8459762242803, 1.8)
    pt3dadd(24.560947659531, -206.628640795714, 59.4411769221736, 1.8)
    pt3dadd(25.0927607445393, -207.231061721514, 60.0363776200668, 1.8)
    pt3dadd(25.4726279657154, -208.083216161443, 60.0577633919679, 1.8)
    pt3dadd(25.8052037244044, -209.013097383908, 59.9005556413952, 1.8)
    pt3dadd(26.1377794830934, -209.942978606372, 59.7433478908225, 1.8)
    pt3dadd(26.4703552417824, -210.872859828837, 59.5861401402497, 1.8)
    pt3dadd(26.8740860486133, -211.597620553991, 59.9725772662128, 1.8)
    pt3dadd(27.3115351989891, -212.22518053827, 60.6166321605872, 1.8)
    pt3dadd(27.748984349365, -212.852740522549, 61.2606870549615, 1.8)
    pt3dadd(28.1864334997408, -213.480300506827, 61.9047419493359, 1.8)
    pt3dadd(28.6238826501166, -214.107860491106, 62.5487968437102, 1.8)
    pt3dadd(29.1673006642439, -214.908967431067, 62.5653146631344, 1.8)
    pt3dadd(29.725975757025, -215.735061140341, 62.4914815797395, 1.8)
    pt3dadd(30.284650849806, -216.561154849616, 62.4176484963446, 1.8)
    pt3dadd(30.8320893040069, -217.39295541635, 62.3362848915294, 1.8)
    pt3dadd(31.2857451471276, -218.272386241003, 62.1920704655761, 1.8)
    pt3dadd(31.7394009902484, -219.151817065656, 62.0478560396227, 1.8)
    pt3dadd(32.1930568333691, -220.031247890309, 61.9036416136694, 1.8)
    pt3dadd(32.6467126764898, -220.910678714961, 61.759427187716, 1.8)
    pt3dadd(33.0841380130245, -221.460445879244, 62.3643533783165, 1.8)
    pt3dadd(33.5181610641317, -221.94110799978, 63.1263165775526, 1.8)
    pt3dadd(33.9521841152388, -222.421770120315, 63.8882797767888, 1.8)
    pt3dadd(34.3862071663459, -222.90243224085, 64.650242976025, 1.8)
    pt3dadd(34.820230217453, -223.383094361386, 65.4122061752611, 1.8)
    pt3dadd(35.3316452657166, -224.012883779536, 65.915033657814, 1.8)
    pt3dadd(35.9152630829906, -224.781801327449, 66.1761007906989, 1.8)
    pt3dadd(36.4988809002646, -225.550718875361, 66.4371679235837, 1.8)
    pt3dadd(37.0824987175385, -226.319636423274, 66.6982350564686, 1.8)
    pt3dadd(37.5494024089743, -227.171331956796, 66.5767356012395, 1.64074116966751)
    pt3dadd(37.9870256737326, -228.043794254587, 66.3592605059408, 1.44152859362696)
    pt3dadd(38.2710875204737, -228.976335607615, 66.2082224120023, 1.35)
    pt3dadd(38.4246261425767, -229.959942600202, 66.1136540470153, 1.35)
    pt3dadd(38.7685765737818, -230.641453251433, 66.6933160782421, 1.35)
    pt3dadd(39.1390991176725, -231.280806128616, 67.3670674737192, 1.35)
    pt3dadd(39.5096216615631, -231.920159005798, 68.0408188691964, 1.35)
    pt3dadd(39.8801442054538, -232.559511882981, 68.7145702646735, 1.35)
    pt3dadd(40.5174004162271, -233.310954725512, 68.8282180880579, 1.35)
  }
  adendOML[12] {pt3dclear()
    pt3dadd(40.5174004162271, -233.310954725512, 68.8282180880579, 1.35)
    pt3dadd(41.1656113926139, -234.067001108768, 68.9188624285178, 1.35)
    pt3dadd(41.640850193596, -234.758231091655, 69.4422100649502, 1.35)
    pt3dadd(42.0985407996139, -235.442885387858, 70.0094558704474, 1.35)
    pt3dadd(42.5076463095764, -236.165483077492, 70.4978885466393, 1.35)
    pt3dadd(42.5677428377315, -237.160645528399, 70.4201704431648, 1.35)
    pt3dadd(42.6818674590422, -238.092065229597, 70.4606107643456, 1.35)
    pt3dadd(43.0998738391093, -238.664962951605, 71.1656347826178, 1.35)
    pt3dadd(43.5178802191764, -239.237860673614, 71.8706588008899, 1.35)
    pt3dadd(43.9358865992436, -239.810758395622, 72.5756828191621, 1.35)
    pt3dadd(44.3538929793107, -240.383656117631, 73.2807068374342, 1.35)
    pt3dadd(44.7718993593779, -240.956553839639, 73.9857308557063, 1.35)
    pt3dadd(45.2872959811094, -241.623137231717, 74.5147671362236, 1.35)
    pt3dadd(45.8227775566625, -242.309041577567, 75.0075091687181, 1.35)
    pt3dadd(46.3582591322155, -242.994945923418, 75.5002512012126, 1.35)
    pt3dadd(46.8659910716527, -243.674274987116, 75.643841575581, 1.35)
    pt3dadd(47.3149083961953, -244.339667915365, 75.0474143069539, 1.35)
    pt3dadd(47.7638257207378, -245.005060843614, 74.4509870383268, 1.35)
    pt3dadd(48.2127430452804, -245.670453771863, 73.8545597696997, 1.35)
    pt3dadd(48.6618185475162, -246.359094766653, 73.3055811103909, 1.35)
    pt3dadd(49.1121816954095, -247.236986668613, 73.1428578990992, 1.35)
    pt3dadd(49.5625448433027, -248.114878570572, 72.9801346878075, 1.35)
    pt3dadd(50.012907991196, -248.992770472532, 72.8174114765159, 1.35)
    pt3dadd(50.5671167559238, -249.800972869456, 72.9897922231351, 1.35)
    pt3dadd(51.129399068452, -250.60375720862, 73.1882258538796, 1.35)
    pt3dadd(51.6916813809801, -251.406541547785, 73.3866594846241, 1.35)
    pt3dadd(52.2213387956527, -252.238386905937, 73.3048452681926, 1.35)
    pt3dadd(52.742559833258, -253.077747068127, 73.1505625793209, 1.35)
    pt3dadd(53.2637808708632, -253.917107230318, 72.9962798904492, 1.35)
    pt3dadd(53.7973552620483, -254.748142475813, 72.840222971645, 1.35)
    pt3dadd(54.3487703612293, -255.567154880152, 72.6816037107257, 1.35)
    pt3dadd(54.90816934742, -256.377406112725, 72.5758034561484, 1.35)
    pt3dadd(55.5203484205039, -257.129738764221, 72.8191804558245, 1.35)
    pt3dadd(56.1325274935879, -257.882071415717, 73.0625574555006, 1.35)
    pt3dadd(56.7447065666718, -258.634404067212, 73.3059344551768, 1.35)
    pt3dadd(57.1499903920326, -259.528823920384, 73.2352297098352, 1.35)
    pt3dadd(57.5159038956524, -260.450281701718, 73.1047580075898, 1.35)
    pt3dadd(57.8961179736942, -261.364309599033, 72.9720851670523, 1.35)
    pt3dadd(58.4054255350193, -262.211266791344, 72.8195423128415, 1.35)
    pt3dadd(58.9147330963444, -263.058223983654, 72.6669994586307, 1.35)
    pt3dadd(59.4240406576696, -263.905181175964, 72.5144566044199, 1.35)
    pt3dadd(59.6148881625948, -264.877511031411, 72.4136048878228, 1.35)
    pt3dadd(59.7845218115594, -265.858192444812, 72.316196517811, 1.35)
    pt3dadd(60.0479909200083, -266.805395583841, 72.203326132115, 1.35)
    pt3dadd(60.5020904342706, -267.68458629916, 72.0590440568426, 1.35)
    pt3dadd(60.9426346677633, -268.448990333676, 72.3217180012026, 1.35)
    pt3dadd(61.3716203563483, -269.115516129638, 72.9314020524176, 1.35)
    pt3dadd(61.8006060449334, -269.782041925601, 73.5410861036326, 1.35)
    pt3dadd(62.1646943090276, -270.388514386646, 73.5760445087588, 1.35)
    pt3dadd(62.4331221095666, -270.906466696062, 72.7638426120187, 1.35)
    pt3dadd(62.7015499101056, -271.424419005478, 71.9516407152787, 1.35)
    pt3dadd(62.9699777106446, -271.942371314895, 71.1394388185387, 1.35)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
  shape3d_18()
  shape3d_19()
  shape3d_20()
  shape3d_21()
  shape3d_22()
  shape3d_23()
  shape3d_24()
  shape3d_25()
  shape3d_26()
}

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, 9 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, 22 adendMML[ward] {
    regadendMML.append()
    sec = new SectionRef()
    allregobj.append(sec)
    allreg.append()
    alladendreg.append()
  }
  regadendOML = new SectionList()
  for ward = 0, 12 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_01