Effects of neural morphology on global and focal NMDA-spikes (Poleg-Polsky 2015)

 Download zip file 
Help downloading and running models
Accession:185123
This entry contains the NEURON files required to recreate figures 4-8 of the paper "Effects of Neural Morphology and Input Distribution on Synaptic Processing by Global and Focal NMDA-spikes" by Alon Poleg-Polsky
Reference:
1 . Poleg-Polsky A (2015) Effects of Neural Morphology and Input Distribution on Synaptic Processing by Global and Focal NMDA-Spikes. PLoS One 10:e0140254 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell; Synapse; Dendrite;
Brain Region(s)/Organism:
Cell Type(s): Neocortex L5/6 pyramidal GLU cell; Neocortex L2/3 pyramidal GLU cell; Neocortex layer 4 neuron;
Channel(s): I N; I K; I K,leak;
Gap Junctions:
Receptor(s): AMPA; NMDA;
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Action Potential Initiation; Dendritic Action Potentials; Ion Channel Kinetics; Active Dendrites; Detailed Neuronal Models; Synaptic Integration; Synaptic-input statistic; Dendritic Bistability;
Implementer(s): Polsky, Alon [alonpol at tx.technion.ac.il];
Search NeuronDB for information about:  Neocortex L5/6 pyramidal GLU cell; Neocortex L2/3 pyramidal GLU cell; AMPA; NMDA; I N; I K; I K,leak;
numdend=0
begintemplate celltemplate
public apcounter,apvec,FSsyn,FSsynnetcon
public all,dends,segdends,ccsyn,tcsyn,ccnetcon,tcnetcon,soma,fire ,Isyn,Inetcon
objref all,dends,segdends,ccsyn,tcsyn,ccnetcon,tcnetcon,fire,Isyn,Inetcon//,nil
objref apcounter,apvec,nil,FSsyn,FSsynnetcon
	public Esyn,Enetcon,Isyn,Inetcon,Esourse,numdend,Vvec,spikevec
	objref Esyn,Enetcon[2],Isyn,Inetcon,Esourse[2]
	objref apcounter,apvec,nil,Vvec[2],spikevec[2]
public        a1_1,a1_11 ,a1_112,a1_12, a1_121,a1_1211 ,a2_1,a2_11,a2_111,a2_1222,a2_1221,a2_122,a2_121,a2_12
public        a1_1212 ,a1_122,a1_1221,a1_1222 ,a2_112,a2_1121,a2_11211,a2_11212,a2_1122,a2_11221, a2_11222

public a3_1,a3_11,a3_111,a3_1111,a3_1112 ,a3_11121,a3_11122 ,a3_111221 ,a3_111222 ,a3_1112221,a3_1112222 ,a3_112  ,  a3_1121 , a3_1122 , a3_12  ,  a3_121 ,  a3_122 ,  a3_1221 ,  a3_1222 , a4_1   ,  a4_11  ,  a4_111 ,  a4_112 , a4_12  , a5_1  , a5_11 , a5_111, a5_1111 , a5_11111 ,a5_11112 ,a5_1112 , a5_11121 ,a5_11122 ,a5_111221 ,  a5_111222  ,a5_112    ,  a5_1121   ,  a5_11211   , a5_11212   , a5_112121  ,   a5_112122 , a5_1122 ,a5_12   ,a5_121  , a5_1211 ,a5_1212 ,a5_122 ,a6_1   ,a6_11  ,a6_111 ,a6_112  ,a6_1121 ,a6_1122 ,a6_12
// j3886d_sdt.hoc -- This file was automatically generated by
// from j3886d_sdt.txt by /home/dan/projects/neuron/tools/geometry_to_neuron on Wed 26 Mar, 97 11:31.
// DO NOT EDIT!  The file may be generated again and you'll lose your edits.
// 
// If you use this cell for publication, we would appreciate receiving a
// reprint.  Send reprints to John Anderson, Rodney Douglas, and Kevan Martin
// at
//	Institute of Neuroinformatics
//	ETH/UZ
//	Gloriastrasse 32
//	CH-8006 Zurich
//
strdef neuron_name
neuron_name = "j3886d_sdt"

create	soma
create        a1_1,a1_11 ,a1_112,a1_12, a1_121,a1_1211
create        a1_1212 ,a1_122,a1_1221,a1_1222 
create        a2_1
create        a2_11
create        a2_111
create        a2_112
create        a2_1121
create        a2_11211
create        a2_11212
create        a2_1122 
create        a2_11221
create        a2_11222
create        a2_12
create        a2_121
create        a2_122 
create        a2_1221
create        a2_1222 
create        a3_1 
create        a3_11 
create  		a3_111
create        a3_1111 
create        a3_1112 
create        a3_11121 
create        a3_11122 
create        a3_111221 
create        a3_111222 
create        a3_1112221 
create        a3_1112222 
create        a3_112
create        a3_1121
create        a3_1122 
create        a3_12
create        a3_121 
create        a3_122 
create        a3_1221
create        a3_1222 
create        a4_1
create        a4_11
create        a4_111
create        a4_112
create        a4_12 
create        a5_1 
create        a5_11
create        a5_111
create        a5_1111
create        a5_11111
create        a5_11112
create        a5_1112 
create        a5_11121
create        a5_11122
create        a5_111221
create        a5_111222
create        a5_112 
create        a5_1121
create        a5_11211 
create        a5_11212 
create        a5_112121
create        a5_112122
create        a5_1122 
create        a5_12 
create        a5_121
create        a5_1211
create        a5_1212
create        a5_122 
create        a6_1 
create        a6_11
create        a6_111 
create        a6_112 
create        a6_1121
create        a6_1122
create        a6_12 


proc m1(){
create a1_1

a1_1 {

  pt3dclear()

  pt3dadd(-7.833,-0.466,-2.159,3.75)
  pt3dadd(-10.389,-1.311,-2.419,1.75)
  pt3dadd(-14.098,-2.596,-4.331,2)

  pt3dadd(-17.158,-4.356,-6.039,1)
  pt3dadd(-21.411,-4.775,-7.574,0.75)
  pt3dadd(-23.808,-5.993,-8.906,1.5)
  pt3dadd(-26.335,-5.765,-10.76,2)
  pt3dadd(-30.327,-7.14,-13.207,2.5)
  pt3dadd(-33.897,-7.908,-15.278,1.5)
  pt3dadd(-33.931,-8.034,-14.539,1.5)

}
create a1_11

a1_11 {
  pt3dclear()

  pt3dadd(-33.931,-8.034,-14.539,1.5)
  pt3dadd(-36.627,-8.436,-17.015,1.75)

  pt3dadd(-36.345,-8.347,-20.795,0.75)
  pt3dadd(-37.631,-8.318,-23.387,1)
  pt3dadd(-38.812,-7.897,-25.4,1)
  pt3dadd(-40.538,-6.611,-31.353,1)
  pt3dadd(-43.314,-6.347,-34.481,0.75)
  pt3dadd(-43.865,-6.47,-37.319,1)
  pt3dadd(-44.835,-8.159,-42.475,1)
  pt3dadd(-45.407,-9.326,-46.761,0.5)
  pt3dadd(-46.686,-11.203,-50.439,0.75)
  pt3dadd(-47.977,-13.122,-53.871,0.75)
  pt3dadd(-49.269,-14.081,-59.678,1)
  pt3dadd(-59.204,-23.148,-96.201,1)
  pt3dadd(-59.983,-24.124,-96.91,0.5)
  pt3dadd(-58.765,-24.406,-97.156,0.5)
  pt3dadd(-60.804,-25.254,-98.155,0.5)
  pt3dadd(-59.293,-26.378,-98.532,0.5)
  pt3dadd(-61.656,-27.47,-100.603,0.5)
  pt3dadd(-60.174,-27.732,-101.341,0.5)
  pt3dadd(-58.465,-30.049,-102.673,0.5)
  pt3dadd(-55.99,-28.538,-103.065,0.5)
  pt3dadd(-54.29,-27.99,-105.686,0.5)
  pt3dadd(-53.345,-29.293,-107.134,0.5)
  pt3dadd(-50.132,-28.894,-109.712,0.5)
}
create a1_112
a1_112 {
  pt3dclear()
  pt3dadd(-54.029,-18.324,-69.757,1.75)
  pt3dadd(-55.016,-19.109,-71.205,1)
  pt3dadd(-56.677,-20.479,-72.784,0.5)
  pt3dadd(-57.638,-23.1,-74.289,0.5)
  pt3dadd(-59.137,-26.762,-76.505,0.5)
  pt3dadd(-62.121,-31.135,-78.401,0.5)
  pt3dadd(-63.437,-33.151,-79.82,0.5)
  pt3dadd(-63.182,-37.028,-81.992,1)
  pt3dadd(-64.306,-39.291,-85.221,0.5)
  pt3dadd(-64.898,-41.502,-86.64,0.5)
  pt3dadd(-64.778,-43.948,-87.813,0.5)
  pt3dadd(-66.566,-45.793,-89.478,0.5)
  pt3dadd(-67.175,-47.1,-91.505,0.5)
  pt3dadd(-68.724,-49.983,-93.59,0.5)
  pt3dadd(-68.994,-50.991,-96.312,1)
  pt3dadd(-69.978,-53.696,-97.326,0.5)
  pt3dadd(-70.68,-55.352,-100.179,0.5)
  pt3dadd(-71.664,-58.057,-101.192,0.5)
}
//a1_11 connect a1_111(0),1
a1_11 connect a1_112(0),1
create a1_12
a1_12 {
  pt3dclear()
  pt3dadd(-33.931,-8.034,-14.539,1.5)
  pt3dadd(-35.281,-8.242,-17.175,1.5)
  pt3dadd(-38.153,-9.302,-17.232,1)
  pt3dadd(-40.417,-10.989,-17.623,1.5)
  pt3dadd(-41.896,-10.713,-18.405,1)
  pt3dadd(-44.377,-11.278,-18.868,2)
}
create a1_121
a1_121 {
  pt3dclear()
  pt3dadd(-44.377,-11.278,-18.868,2)
  pt3dadd(-44.01,-11.841,-19.201,1.5)
  pt3dadd(-45.768,-13.574,-20.084,1.5)
  pt3dadd(-48.301,-14.334,-20.837,1.5)
  pt3dadd(-48.614,-14.535,-22.155,2)
}
create a1_1211
a1_1211 {
  pt3dclear()
  pt3dadd(-48.614,-14.535,-22.155,2)
  pt3dadd(-49.339,-14.341,-22.155,0.5)
  pt3dadd(-52.008,-14.646,-22.329,0.5)
  pt3dadd(-52.943,-15.235,-23.487,1)
  pt3dadd(-56.064,-16.258,-24.819,0.5)
  pt3dadd(-58.633,-18.118,-25.254,0.5)
  pt3dadd(-61.837,-19.449,-27.657,1)
  pt3dadd(-63.722,-21.658,-28.627,0.5)
  pt3dadd(-66.477,-23.244,-30.292,0.75)
  pt3dadd(-68.115,-24.53,-32.363,0.5)
  pt3dadd(-70.001,-26.738,-33.333,0.5)
  pt3dadd(-71.79,-28.583,-34.998,0.5)
  pt3dadd(-73.271,-29.281,-36.2,0.5)
  pt3dadd(-75.077,-29.262,-36.533,0.5)
  pt3dadd(-76.087,-30.131,-37.489,0.5)
  pt3dadd(-78.616,-30.878,-39.762,0.5)
  pt3dadd(-80.775,-32.173,-39.574,0.5)
  pt3dadd(-82.071,-33.145,-39.545,0.5)
  pt3dadd(-84.625,-34.95,-41.745,0.5)
  pt3dadd(-86.6,-35.561,-42.701,1)
  pt3dadd(-90.326,-35.942,-45.221,0.5)
  pt3dadd(-94.564,-34.372,-46.162,0.5)
  pt3dadd(-96.674,-33.552,-46.119,1)
  pt3dadd(-99.607,-31.941,-47.755,0.5)
  pt3dadd(-102.198,-31.952,-49.652,1)
  pt3dadd(-104.372,-33.304,-52.013,0.5)
  pt3dadd(-106.905,-34.065,-52.766,0.5)
  pt3dadd(-110.861,-34.339,-55.532,0.25)
  pt3dadd(-110.921,-34.563,-57.096,1)
  pt3dadd(-114.936,-33.128,-59.065,0.5)
  pt3dadd(-117.211,-32.924,-61.165,1)
  pt3dadd(-119.418,-32.468,-64.742,1)
  pt3dadd(-120.534,-34.702,-66.697,0.5)
  pt3dadd(-123.448,-37.85,-69.651,0.5)
  pt3dadd(-125.54,-38.894,-70.939,0.5)
  pt3dadd(-127.729,-40.303,-75.849,0.5)
  pt3dadd(-127.802,-41.542,-77.586,0.5)
  pt3dadd(-129.542,-41.272,-79.396,1)
  pt3dadd(-131.105,-42.277,-81.67,1)
  pt3dadd(-133.049,-38.908,-81.439,0.5)
}
create a1_1212
a1_1212 {
  pt3dclear()
  pt3dadd(-48.614,-14.535,-22.155,2)
  pt3dadd(-47.671,-14.878,-21.663,1)
  pt3dadd(-48.409,-15.7,-21.836,1)
  pt3dadd(-49.057,-18.12,-22.024,1)
  pt3dadd(-51.262,-21.518,-23.211,0.5)
  pt3dadd(-52.903,-25.711,-23.747,0.5)
  pt3dadd(-55.763,-29.622,-24.036,1)
  pt3dadd(-60.272,-32.927,-23.789,0.5)
  pt3dadd(-66.189,-37.623,-21.051,0.5)
  pt3dadd(-68.799,-41.571,-20.065,1)
  pt3dadd(-72.945,-45.453,-18.631,1)
  pt3dadd(-77.648,-50.445,-18.934,1.5)
  pt3dadd(-81.295,-57.294,-19.252,1)
  pt3dadd(-85.076,-62.713,-18.57,1)
  pt3dadd(-88.122,-70.218,-16.18,0.5)
  pt3dadd(-91.879,-76.512,-13.615,0.5)
  pt3dadd(-95.441,-82.079,-12.441,1.5)
  pt3dadd(-100.687,-87.165,-9.993,0.5)
  pt3dadd(-103.827,-90.192,-10.398,0.5)
  pt3dadd(-105.24,-93.532,-13.062,0.5)
  pt3dadd(-107.708,-96.949,-13.757,0.5)
  pt3dadd(-112.035,-100.543,-15.074,1.5)
  pt3dadd(-116.913,-104.258,-14.914,0.5)
  pt3dadd(-119.507,-107.177,-15.276,1)
  pt3dadd(-123.478,-109.441,-14.319,0.5)
  pt3dadd(-128.573,-112.034,-14.232,0.5)
  pt3dadd(-129.871,-113.98,-14.623,0.5)
}
a1_121 connect a1_1211(0),1
a1_121 connect a1_1212(0),1
create a1_122
a1_122 {
  pt3dclear()
  pt3dadd(-44.377,-11.278,-18.868,2)
  pt3dadd(-44.577,-11.059,-18.333,1)
  pt3dadd(-49.002,-10.188,-16.609,1)
  pt3dadd(-52.184,-8.54,-15.204,1)
  pt3dadd(-57.938,-6.833,-14.669,1.5)
  pt3dadd(-61.319,-3.993,-12.308,1)
  pt3dadd(-67.148,-2.566,-11.57,1)
}
create a1_1221
a1_1221 {
  pt3dclear()
  pt3dadd(-67.148,-2.566,-11.57,1)
  pt3dadd(-67.704,-1.742,-10.947,0.75)
  pt3dadd(-70.286,0.209,-9.209,0.75)
  pt3dadd(-70.55,0.19,-8.717,0.5)
  pt3dadd(-74.234,1.897,-8.341,1)
  pt3dadd(-78.114,5.77,-6.589,0.5)
  pt3dadd(-83.104,8.397,-7.892,1)
  pt3dadd(-85.696,11.281,-5.488,1)
  pt3dadd(-90.202,12.818,-4.417,0.5)
  pt3dadd(-93.496,15.98,-2.505,0.5)
  pt3dadd(-98.538,18.411,0.217,0.5)
  pt3dadd(-101.805,18.776,0.13,1)
  pt3dadd(-104.345,19.922,0.463,0.5)
  pt3dadd(-107.983,23.73,2.215,0.5)
  pt3dadd(-111.133,28.398,2.866,0.5)
  pt3dadd(-114.935,33.525,4.835,1)
  pt3dadd(-119.575,38.426,4.951,0.5)
  pt3dadd(-123.056,40.888,5.211,0.5)
  pt3dadd(-124.078,42.871,4.487,0.5)
  pt3dadd(-126.584,44.143,4.081,1)
}
create a1_1222
a1_1222 {
  pt3dclear()
  pt3dadd(-67.148,-2.566,-11.57,1)
  pt3dadd(-67.067,-3.232,-10.918,0.5)
  pt3dadd(-68.588,-5.044,-10.28,1)
  pt3dadd(-70.702,-6.172,-11.077,0.5)
  pt3dadd(-76.206,-5.462,-11.207,1)
  pt3dadd(-81.755,-4.919,-10.352,0.5)
  pt3dadd(-85.989,-3.335,-8.499,1)
  pt3dadd(-91.293,-4.777,-7.209,1)
  pt3dadd(-95.825,-5.271,-6.485,1)
  pt3dadd(-101.408,-4.855,-4.892,0.5)
  pt3dadd(-106.41,-4.204,-3.994,1.5)
  pt3dadd(-112.338,-4.115,-2.98,1)
  pt3dadd(-118.292,-5.083,-1.893,0.75)
  pt3dadd(-123.371,-5.686,-1.213,1)
  pt3dadd(-129.957,-7.085,0.28,1.5)
  pt3dadd(-136.319,-7.644,1.163,0.5)
  pt3dadd(-143.267,-9.426,-0.473,0.5)
  pt3dadd(-149.269,-8.642,1.164,0.5)
  pt3dadd(-154.722,-8.71,0.903,1)
  pt3dadd(-162.211,-9.612,2.439,1)
  pt3dadd(-163.935,-9.285,3.177,1)
  pt3dadd(-169.363,-8.295,2.844,0.5)
  pt3dadd(-172.893,-8.909,1.31,0.5)
  pt3dadd(-177.225,-9.622,1.498,1)
  pt3dadd(-181.817,-10.341,0.658,0.5)
  pt3dadd(-185.522,-9.678,-0.413,1)
}
a1_122 connect a1_1221(0),1
a1_122 connect a1_1222(0),1
a1_12 connect a1_121(0),1
a1_12 connect a1_122(0),1
a1_1 connect a1_11(0),1
a1_1 connect a1_12(0),1
create a2_1
a2_1 {
  pt3dclear()
  pt3dadd(7.664,-0.586,-1.218,3.5)
  pt3dadd(9.788,-1.35,-3.028,2.5)
  pt3dadd(11.962,-1.932,-3.028,2.5)
  pt3dadd(14.427,-3.358,-3.158,2)
  pt3dadd(17.147,-3.832,-3.115,1.5)
  pt3dadd(19.271,-4.596,-4.925,1.5)
  pt3dadd(21.215,-5.072,-5.171,1.5)
}
create a2_11
a2_11 {
  pt3dclear()
  pt3dadd(21.215,-5.072,-5.171,1.5)
  pt3dadd(22.75,-5.138,-5.62,2.25)
  pt3dadd(24.187,-5.568,-5.374,1)
  pt3dadd(25.659,-5.873,-5.867,1)
  pt3dadd(26.722,-5.768,-6.562,1.75)
  pt3dadd(29.931,-5.384,-7.619,1.5)
  pt3dadd(31.741,-5.389,-8.807,1)
  pt3dadd(33.329,-5.26,-8.966,2)
  pt3dadd(34.637,-5.206,-11.182,2)
}
create a2_111
a2_111 {
  pt3dclear()
  pt3dadd(34.637,-5.206,-11.182,2)
  pt3dadd(34.598,-4.386,-11.298,1.5)
  pt3dadd(36.062,-2.785,-15.02,1)
  pt3dadd(36.36,-2.64,-16.251,1)
  pt3dadd(40.007,-2.553,-20.639,1.5)
  pt3dadd(43.055,-7.598,-23.39,1.5)
  pt3dadd(44.051,-7.745,-26.924,0.5)
  pt3dadd(46.165,-9.513,-34.744,0.5)
  pt3dadd(49.496,-9.641,-38.93,1)
  pt3dadd(52.3,-10.768,-44.071,1)
  pt3dadd(55.876,-11.907,-51.717,0.5)
  pt3dadd(59.431,-13.13,-54.556,0.5)
  pt3dadd(64.916,-13.911,-59.769,1)
  pt3dadd(69.663,-15.513,-65.157,0.5)
  pt3dadd(71.735,-16.475,-75.888,0.5)
  pt3dadd(74.414,-15.17,-82.651,1)
  pt3dadd(75.191,-15.168,-86.677,0.5)
  pt3dadd(74.962,-16.022,-88.864,0.5)
  pt3dadd(76.667,-16.419,-90.631,1)
  pt3dadd(78.621,-16.853,-91.123,1)
  pt3dadd(79.027,-18.236,-91.34,0.5)
  pt3dadd(81.337,-19.275,-91.92,0.5)
  pt3dadd(81.863,-20.211,-93.324,0.5)
  pt3dadd(84.794,-20.861,-94.063,1)
  pt3dadd(86.91,-20.694,-95.207,1.5)
  pt3dadd(89.667,-21.028,-97.423,1.5)
  pt3dadd(92.797,-22.871,-99.117,0.5)
  pt3dadd(97.302,-24.409,-100.189,0.5)
  pt3dadd(100.956,-26.227,-101.347,0.5)
  pt3dadd(104.063,-28.155,-102.549,0.5)
  pt3dadd(106.876,-30.213,-104.041,0.5)
  pt3dadd(108.694,-30.19,-103.954,0.5)
}
create a2_112
a2_112 {
  pt3dclear()
  pt3dadd(34.637,-5.206,-11.182,2)
  pt3dadd(34.697,-4.982,-9.618,1)
  pt3dadd(35.686,-5.157,-10.11,1)
  pt3dadd(38.164,-5.566,-10.067,1.5)
  pt3dadd(40.982,-5.676,-10.719,0.75)
  pt3dadd(44.806,-5.892,-10.835,1)
  pt3dadd(47.87,-4.119,-10.647,1)
  pt3dadd(51.696,-3.36,-10.343,1.5)
  pt3dadd(53.542,-4.199,-9.894,1)
  pt3dadd(55.573,-3.379,-10.169,1.5)
}
create a2_1121
a2_1121 {
  pt3dclear()
  pt3dadd(55.573,-3.379,-10.169,1.5)
  pt3dadd(56.328,-3.461,-9.387,1)
  pt3dadd(58.237,-4.063,-8.895,1)
  pt3dadd(61.068,-5.091,-7.418,1)
  pt3dadd(65.926,-5.313,-4.695,0.5)
  pt3dadd(70.131,-5.075,-4.97,0.75)
  pt3dadd(72.792,-6.732,-4.116,1)
  pt3dadd(76.078,-7.028,-3.001,0.5)
  pt3dadd(79.11,-7.301,-1.64,1)
  pt3dadd(82.905,-9.562,-0.582,1.5)
  pt3dadd(85.488,-9.579,0.04,1.5)
  pt3dadd(87.714,-9.965,0.33,1)
  pt3dadd(90.016,-11.032,2.792,1)
  pt3dadd(92.265,-11.334,2.589,1.5)
}
create a2_11211
a2_11211 {
  pt3dclear()
  pt3dadd(92.265,-11.334,2.589,1.5)
  pt3dadd(93.369,-11.076,2.43,0.75)
  pt3dadd(95.183,-11.067,4.037,1)
  pt3dadd(98.083,-10.869,4.457,1)
  pt3dadd(99.496,-12.357,4.776,1)
  pt3dadd(102.584,-11.46,6.847,0.5)
  pt3dadd(104.446,-13.203,7.904,1)
  pt3dadd(106.628,-14.718,7.238,1)
  pt3dadd(108.055,-15.19,7.73,1)
  pt3dadd(110.935,-16.996,9.077,0.75)
  pt3dadd(114.243,-17.208,9.7,1)
  pt3dadd(117.564,-20.271,10.091,1)
  pt3dadd(118.585,-24.188,12.771,1)
  pt3dadd(118.374,-26.905,13.568,1)
  pt3dadd(119.838,-29.171,18.072,1)
  pt3dadd(122.675,-32.105,18.463,1)
  pt3dadd(125.82,-33.892,19.318,0.5)
  pt3dadd(127.569,-36.055,18.522,0.5)
  pt3dadd(129.763,-39.461,19.565,0.5)
  pt3dadd(131.276,-42.505,19.623,1)
  pt3dadd(133.396,-47.152,18.928,0.5)
  pt3dadd(136.229,-52.034,18.48,0.5)
  pt3dadd(138.927,-55.486,19.031,0.5)
  pt3dadd(141.76,-60.368,18.582,0.5)
}
create a2_11212
a2_11212 {
  pt3dclear()
  pt3dadd(92.265,-11.334,2.589,1.5)
  pt3dadd(92.098,-10.99,2.386,0.25)
}
a2_1121 connect a2_11211(0),1
a2_1121 connect a2_11212(0),1
create a2_1122
a2_1122 {
  pt3dclear()
  pt3dadd(55.573,-3.379,-10.169,1.5)
  pt3dadd(57.639,-2.433,-11.183,1.5)
  pt3dadd(58.26,-2.045,-11.343,2.25)
  pt3dadd(59.406,-1.632,-10.966,2.5)
}
}
proc m2(){
create a2_11221
a2_11221 {
  pt3dclear()
  pt3dadd(59.406,-1.632,-10.966,2.5)
  pt3dadd(61.346,-0.188,-11.647,1)
  pt3dadd(64.261,1.999,-10.634,0.5)
  pt3dadd(67.819,3.685,-10.692,0.5)
  pt3dadd(71.189,4.671,-12.401,0.5)
  pt3dadd(73.78,6.615,-12.459,0.5)
  pt3dadd(78.098,9.206,-12.836,0.5)
  pt3dadd(81.345,11.665,-13.793,0.5)
  pt3dadd(84.661,13.415,-13.851,1)
  pt3dadd(88.221,16.074,-13.489,1)
  pt3dadd(90.168,17.547,-12.896,0.5)
  pt3dadd(92.749,19.449,-12.708,0.5)
  pt3dadd(94.823,21.397,-12.028,0.5)
  pt3dadd(97.538,21.869,-12.839,0.5)
  pt3dadd(100.416,21.983,-11.927,1)
  pt3dadd(103.707,22.675,-11.912,1)
  pt3dadd(107.916,24.861,-11.348,0.5)
  pt3dadd(112.827,24.835,-8.336,1)
  pt3dadd(115.212,26.01,-6.758,0.5)
  pt3dadd(118.953,26.447,-6.005,0.5)
  pt3dadd(121.982,28.094,-5.078,0.5)
  pt3dadd(126.26,29.572,-3.616,0.5)
  pt3dadd(129.47,31.891,-2.313,1)
  pt3dadd(132.569,32.83,-0.488,0.5)
  pt3dadd(136.325,35.257,0.858,0.5)
  pt3dadd(141.163,37.859,2.537,0.5)
  pt3dadd(144.496,38.705,3.087,0.75)
  pt3dadd(149.957,38.802,4.622,1)
  pt3dadd(153.561,39.695,5.954,0.5)
  pt3dadd(156.575,39.352,6.287,0.5)
  pt3dadd(158.922,38.454,7.765,0.5)
  pt3dadd(159.345,36.167,8.156,0.5)
}

create a2_11222
a2_11222 {
  pt3dclear()
  pt3dadd(59.406,-1.632,-10.966,2.5)
  pt3dadd(60.769,-2.342,-10.517,1)
  pt3dadd(62.929,-3.941,-10.691,1)
  pt3dadd(66.837,-4.808,-11.676,1)
  pt3dadd(71.461,-4.938,-11.994,1.5)
  pt3dadd(75.056,-5.046,-12.357,0.5)
  pt3dadd(78.999,-3.854,-11.72,1)
  pt3dadd(82.607,-2.946,-11.908,0.75)
  pt3dadd(87.719,-2.218,-13.328,1)
  pt3dadd(91.988,-1.742,-13.56,1)
  pt3dadd(96.903,0.179,-14.023,0.5)
  pt3dadd(101.345,0.339,-12.778,1)
  pt3dadd(104.307,-0.2,-12.735,0.5)
  pt3dadd(110.479,0.62,-13.329,0.5)
  pt3dadd(115.233,1.94,-13.141,1)
  pt3dadd(121.357,4.512,-13.185,0.5)
  pt3dadd(124.382,4.211,-13.098,0.5)
  pt3dadd(126.661,4.02,-12.519,1.5)
  pt3dadd(130.287,4.998,-11.679,0.5)
  pt3dadd(132.6,6.867,-9.478,0.5)
  pt3dadd(136.784,7.995,-8.841,0.5)
  pt3dadd(140.655,9.882,-7.582,1)
  pt3dadd(143.769,12.811,-5.164,0.5)
  pt3dadd(145.117,13.979,-4.903,0.5)
  pt3dadd(149.696,13.682,-4.237,0.5)
  pt3dadd(152.407,14.14,-3.528,0.75)
  pt3dadd(154.963,14.985,-3.267,0.5)
  pt3dadd(159.621,16.915,-1.964,1)
  pt3dadd(163.19,18.643,-2.269,1)
  pt3dadd(167.959,21.953,-1.487,0.5)
  pt3dadd(173.194,22.169,-1.719,0.5)
  pt3dadd(175.652,22.65,-5.079,1)
}
a2_1122 connect a2_11221(0),1
a2_1122 connect a2_11222(0),1
a2_112 connect a2_1121(0),1
a2_112 connect a2_1122(0),1
a2_11 connect a2_111(0),1
a2_11 connect a2_112(0),1
create a2_12
a2_12 {
  pt3dclear()
  pt3dadd(21.215,-5.072,-5.171,1.5)
  pt3dadd(21.598,-6.539,-4.896,2.75)
  pt3dadd(22.305,-7.763,-3.549,1.5)
  pt3dadd(23.472,-11.134,-4.07,1.5)
  pt3dadd(24.831,-13.792,-4.461,1.5)
  pt3dadd(25.401,-16.494,-4.895,1)
  pt3dadd(26.34,-18.784,-5.242,1.5)
  pt3dadd(26.441,-20.341,-5.503,1.5)
  pt3dadd(27.649,-23.558,-5.488,2.5)
}
create a2_121
a2_121 {
  pt3dclear()
  pt3dadd(27.649,-23.558,-5.488,2.5)
  pt3dadd(27.963,-24.317,-6.11,0.25)
  pt3dadd(26.358,-27.41,-6.964,0.5)
  pt3dadd(26.404,-30.137,-7.934,1)
  pt3dadd(26.723,-33.776,-10.063,0.5)
  pt3dadd(26.603,-36.157,-11.235,0.5)
  pt3dadd(26.104,-38.018,-11.829,0.5)
  pt3dadd(26.026,-41.206,-14.406,1)
  pt3dadd(25.51,-46.031,-16.013,0.5)
  pt3dadd(24.978,-48.017,-15.868,0.5)
  pt3dadd(25.302,-52.602,-17.142,1.5)
  pt3dadd(23.53,-57.285,-20.559,1.5)
  pt3dadd(23.127,-62.65,-22.253,0.5)
  pt3dadd(21.02,-65.684,-24.135,1)
  pt3dadd(19.347,-69.03,-27.827,0.5)
  pt3dadd(17.867,-72.621,-29.014,0.5)
  pt3dadd(17.197,-73.192,-30.665,0.5)
  pt3dadd(17.585,-82.367,-34.241,1)
  pt3dadd(18.246,-84.733,-36.645,0.5)
  pt3dadd(18.947,-86.945,-38.513,0.5)
  pt3dadd(18.619,-89.137,-40.424,0.5)
  pt3dadd(18.545,-90.377,-42.162,0.5)
  pt3dadd(18.149,-92.819,-42.596,0.5)
  pt3dadd(18.008,-94.311,-42.856,0.5)
  pt3dadd(16.403,-97.404,-43.71,0.5)
  pt3dadd(15.094,-99.392,-43.855,0.5)
  pt3dadd(13.225,-102.505,-44.216,0.5)
  pt3dadd(12.601,-103.867,-44.477,0.5)
  pt3dadd(11.437,-107.244,-45.867,0.5)
  pt3dadd(9.946,-110.877,-46.807,0.5)
  pt3dadd(9.206,-112.673,-47.401,0.5)
  pt3dadd(6.824,-115.768,-48.544,0.5)
  pt3dadd(4.334,-120.229,-50.687,0.5)
  pt3dadd(3.342,-122.002,-51.034,0.5)
  pt3dadd(1.686,-124.318,-51.758,0.5)
  pt3dadd(-0.136,-126.288,-52.685,0.5)
  pt3dadd(-2.567,-129.566,-55.639,0.5)
  pt3dadd(-5.893,-132.318,-57.275,0.5)
  pt3dadd(-10.198,-135.827,-59.084,0.5)
  pt3dadd(-11.035,-137.987,-58.982,1)
  pt3dadd(-13.579,-141.683,-59.474,0.25)
  pt3dadd(-14.944,-143.881,-58.388,1)
  pt3dadd(-16.297,-146.997,-59.488,1)
  pt3dadd(-19.183,-151.007,-57.764,0.5)
  pt3dadd(-20.629,-154.473,-59.69,0.5)
  pt3dadd(-23.148,-157.111,-60.254,0.5)
  pt3dadd(-24.14,-158.884,-60.601,1)
  pt3dadd(-25.025,-160.252,-61.89,0.5)
}
create a2_122
a2_122 {
  pt3dclear()
  pt3dadd(27.649,-23.558,-5.488,2.5)
  pt3dadd(29.139,-23.792,-4.952,1)
  pt3dadd(30.27,-25.37,-5.169,1.5)
  pt3dadd(32.343,-27.29,-4.894,1.5)
  pt3dadd(33.854,-28.414,-5.27,0.75)
}
create a2_1221
a2_1221 {
  pt3dclear()
  pt3dadd(33.854,-28.414,-5.27,0.75)
  pt3dadd(34.007,-29.775,-5.241,0.5)
  pt3dadd(35.248,-31.906,-4.024,1)
  pt3dadd(37.266,-36.929,-2.503,0.5)
  pt3dadd(38.192,-38.302,-0.664,1.5)
  pt3dadd(39.942,-42.399,0.495,0.5)
  pt3dadd(41.864,-43.918,3.117,1)
  pt3dadd(43.82,-45.311,5,0.5)
  pt3dadd(43.75,-46.537,6.057,1)
  pt3dadd(44.843,-48.254,8.099,1.5)
  pt3dadd(47.519,-51.79,9.142,1)
  pt3dadd(50.147,-55.507,12.691,0.5)
  pt3dadd(51.958,-58.405,15.834,1)
  pt3dadd(54.598,-60.147,17.181,0.5)
  pt3dadd(56.814,-61.535,20.092,1)
  pt3dadd(59.725,-63.229,22.221,1)
  pt3dadd(61.587,-64.972,23.278,1)
  pt3dadd(63.303,-65.327,25.581,0.5)
  pt3dadd(65.521,-67.675,26.551,1)
  pt3dadd(67.822,-69.716,28.593,0.5)
  pt3dadd(69.487,-73.16,30.621,0.5)
  pt3dadd(70.381,-75.619,31.259,0.5)
  pt3dadd(71.28,-79.023,32.751,0.5)
  pt3dadd(72.296,-81.994,34.576,0.5)
  pt3dadd(74.669,-86.662,37.951,1)
  pt3dadd(77.875,-89.185,38.429,0.5)
  pt3dadd(81.232,-94.042,42.832,1)
  pt3dadd(83.929,-96.534,45.323,0.5)
  pt3dadd(86.078,-100.108,47.351,0.5)
  pt3dadd(87.435,-104.699,48.916,0.5)
  pt3dadd(90.824,-110.405,52.16,1.5)
  pt3dadd(92.645,-114.236,54.637,0.75)
  pt3dadd(94.75,-117.003,58.07,1)
  pt3dadd(96.391,-119.571,62.531,1)
  pt3dadd(100.033,-123.366,63.574,0.5)
  pt3dadd(102.85,-125.41,64.877,0.5)
  pt3dadd(106.148,-130.491,67.716,0.5)
}
create a2_1222
a2_1222 {
  pt3dclear()
  pt3dadd(33.854,-28.414,-5.27,0.75)
  pt3dadd(34.039,-28.688,-4.039,0.5)
  pt3dadd(38.007,-31.266,-5.82,1)
  pt3dadd(39.77,-32.413,-6.443,0.5)
  pt3dadd(42.385,-33.279,-6.979,0.5)
  pt3dadd(43.311,-36.586,-7.5,1)
  pt3dadd(44.496,-36.993,-7.007,1)
  pt3dadd(46.745,-40.19,-7.195,0.5)
  pt3dadd(47.628,-42.69,-6.311,0.5)
  pt3dadd(50.465,-45.624,-5.92,0.5)
  pt3dadd(52.258,-48.593,-3.805,0.5)
  pt3dadd(52.905,-51.975,-2.067,0.75)
  pt3dadd(53.002,-53.545,-0.807,0.5)
  pt3dadd(52.814,-56.178,-0.503,0.5)
  pt3dadd(52.869,-59.836,2.177,0.5)
  pt3dadd(53.108,-62.808,3.713,0.5)
  pt3dadd(55.456,-66.601,5.205,0.5)
  pt3dadd(56.622,-69.012,6.624,1)
  pt3dadd(58.829,-71.402,7.841,1)
  pt3dadd(61.277,-73.857,9.058,1)
  pt3dadd(63.92,-75.585,8.884,1)
  pt3dadd(67.053,-77.414,9.985,0.5)
  pt3dadd(69.16,-76.314,13.822,0.5)
  pt3dadd(73.073,-80.061,15.648,0.5)
  pt3dadd(75.51,-82.557,17.11,0.5)
  pt3dadd(78.922,-86.245,17.907,0.75)
  pt3dadd(83.234,-89.47,16.286,0.5)
  pt3dadd(85.644,-92.065,15.446,0.5)
  pt3dadd(87.796,-97.559,13.593,0.5)
  pt3dadd(91.179,-102.32,11.667,0.5)
  pt3dadd(91.056,-105.675,10.075,0.25)
  pt3dadd(95.108,-110.839,9.38,0.5)
  pt3dadd(96.186,-112.612,8.873,0.5)
  pt3dadd(99.155,-117.951,7.846,1)
  pt3dadd(102.951,-121.172,6.963,0.5)
  pt3dadd(106.782,-123.293,5.761,0.5)
  pt3dadd(110.373,-121.482,4.964,0.5)
}
a2_122 connect a2_1221(0),1
a2_122 connect a2_1222(0),1
a2_12 connect a2_121(0),1
a2_12 connect a2_122(0),1
a2_1 connect a2_11(0),1
a2_1 connect a2_12(0),1
create a3_1
a3_1 {
  pt3dclear()
  pt3dadd(-3.868,-5.952,-2.404,5)
  pt3dadd(-3.905,-6.092,-4.461,4)
  pt3dadd(-5.236,-9.124,-6.053,3)
  pt3dadd(-6.485,-10.889,-8.95,0.5)
  pt3dadd(-6.658,-13.467,-10.412,2.5)
  pt3dadd(-8.061,-15.805,-11.382,3)
}
create a3_11
a3_11 {
  pt3dclear()
  pt3dadd(-8.061,-15.805,-11.382,3)
  pt3dadd(-6.891,-16.268,-13.438,2.75)
  pt3dadd(-6.431,-18.416,-15.306,2.5)
  pt3dadd(-5.627,-19.277,-18.97,3.25)
}
create a3_111
a3_111 {
  pt3dclear()
  pt3dadd(-5.627,-19.277,-18.97,3.25)
  pt3dadd(-5.704,-20.53,-19.187,3.25)
  pt3dadd(-4.983,-20.739,-21.982,2)
  pt3dadd(-4.095,-24.186,-24.56,1.5)
  pt3dadd(-3.91,-26.395,-30.005,1.5)
  pt3dadd(-3.494,-24.842,-30.483,1)
}
create a3_1111
a3_1111 {
  pt3dclear()
  pt3dadd(-3.494,-24.842,-30.483,1)
 
  pt3dadd(-4.826,-25.306,-30.611,0.5)
}
create a3_1112
a3_1112 {
  pt3dclear()
  pt3dadd(-3.494,-24.842,-30.483,1)
  pt3dadd(-3.257,-24.921,-28.962,1.5)
  pt3dadd(-2.54,-27.077,-32.597,1)
}
create a3_11121
a3_11121 {
  pt3dclear()
  pt3dadd(-2.54,-27.077,-32.597,1)
  pt3dadd(-1.296,-27.261,-34.856,0.5)
  pt3dadd(-0.025,-27.348,-39.128,1)
  pt3dadd(2.184,-26.831,-43.763,1)
  pt3dadd(3.888,-26.268,-47.905,1)
  pt3dadd(7.002,-25.274,-52.163,0.5)
  pt3dadd(9.81,-24.453,-56.464,1)
  pt3dadd(14.716,-19.667,-66.849,0.5)
  pt3dadd(18.956,-18.33,-76.074,0.5)
  pt3dadd(20.3,-17.177,-82.924,0.5)
  pt3dadd(21.699,-16.788,-87.11,1)
  pt3dadd(21,-16.496,-89.123,1)
  pt3dadd(23.868,-17.385,-89.905,0.5)
  pt3dadd(26.251,-19.118,-91.107,0.5)
  pt3dadd(30.884,-20.179,-92.091,0.5)
  pt3dadd(34.16,-21.477,-92.671,0.5)
  pt3dadd(37.695,-24.703,-94.582,0.5)
  pt3dadd(41.948,-26.218,-95.407,0.5)
  pt3dadd(45.962,-26.694,-95.813,1.5)
  pt3dadd(48.913,-28.235,-97.464,0.5)
  pt3dadd(51.568,-29.92,-97.884,1)
  pt3dadd(54.225,-31.592,-99.824,1)
  pt3dadd(53.212,-34.41,-101.62,0.5)
  pt3dadd(54.149,-37.674,-102.387,0.5)
  pt3dadd(55.707,-40.551,-103.313,0.5)
}
create a3_11122
a3_11122 {
  pt3dclear()
  pt3dadd(-2.54,-27.077,-32.597,1)
  pt3dadd(-2.844,-28.211,-34.581,1)
  pt3dadd(-1.582,-32.192,-36.217,1.5)
  pt3dadd(-1.91,-34.384,-38.128,1.5)
  pt3dadd(-1.503,-36.727,-40.286,1.5)
}


create a3_111221
a3_111221 {
  pt3dclear()
  pt3dadd(-1.503,-36.727,-40.286,1.5)
  pt3dadd(-1.965,-37.488,-41.198,1.5)
  pt3dadd(-1.512,-37.729,-41.98,1)
  pt3dadd(-1.83,-41.812,-42.182,0.5)
  pt3dadd(-1.794,-45.541,-44.846,0.5)
  pt3dadd(-1.154,-48.951,-48.698,0.5)
  pt3dadd(-1.507,-52.2,-50.537,0.5)
  pt3dadd(-1.742,-54.041,-51.623,0.5)
  pt3dadd(-2.082,-56.275,-53.288,0.5)
  pt3dadd(-2.124,-60.297,-54.229,0.5)
  pt3dadd(-1.621,-63.25,-57.501,0.5)
  pt3dadd(-0.701,-65.611,-58.877,1)
  pt3dadd(-0.77,-69.731,-62.12,0.5)
  pt3dadd(-1.319,-72.748,-64.944,0.5)
  pt3dadd(-0.425,-75.207,-68.622,0.5)
  pt3dadd(-3.171,-79.66,-73.313,0.5)
  pt3dadd(-4.398,-81.34,-76.702,0.5)
  pt3dadd(-4.745,-83.602,-79.641,1)
  pt3dadd(-1.511,-86.987,-83.117,0.5)
  pt3dadd(-0.445,-90.737,-85.738,0.5)
  pt3dadd(-0.168,-94.53,-88.402,1)
  pt3dadd(1.361,-97.519,-90.11,0.5)
  pt3dadd(1.774,-100.808,-91.413,0.5)
  pt3dadd(2.806,-104.683,-93.296,0.5)
  pt3dadd(3.475,-107.981,-96.365,1)
  pt3dadd(5.26,-112.913,-97.885,0.5)
  pt3dadd(8.436,-115.548,-98.189,0.5)
  pt3dadd(10.955,-117.737,-99.97,1.5)
  pt3dadd(13.916,-120.21,-102.287,0.5)
  pt3dadd(13.204,-120.934,-104.474,1)
  pt3dadd(16.405,-122.512,-104.85,0.5)
  pt3dadd(20.48,-123.724,-105.632,0.5)
  pt3dadd(23.975,-125.17,-105.719,0.5)
  pt3dadd(26.286,-127.169,-108.239,0.5)
  pt3dadd(26.529,-128.194,-110.179,0.5)
  pt3dadd(26.78,-129.191,-110.845,0.5)
}
create a3_111222
a3_111222 {
  pt3dclear()
  pt3dadd(-1.503,-36.727,-40.286,1.5)
  pt3dadd(-0.729,-36.74,-42.791,1)
  pt3dadd(-0.543,-39.909,-45.861,0.5)
  pt3dadd(0.006,-41.721,-49.698,0.5)
  pt3dadd(0.101,-44.265,-53.174,0.5)
  pt3dadd(0.289,-46.46,-55.824,0.5)
  pt3dadd(-0.073,-48.777,-56.996,0.5)
  pt3dadd(-0.747,-51.296,-59.487,0.5)
  pt3dadd(-0.832,-52.577,-60.978,0.5)
  pt3dadd(-1.623,-55.529,-63.802,1)
}

}
proc m3(){
create a3_1112221
a3_1112221 {
  pt3dclear()
  pt3dadd(-1.623,-55.529,-63.802,1)
  pt3dadd(-1.453,-55.86,-65.12,0.5)
  pt3dadd(-2.08,-57.237,-68.175,0.5)
  pt3dadd(-2.626,-58.305,-70.159,0.5)
  pt3dadd(-2.171,-59.507,-72.882,0.5)
  pt3dadd(-2.347,-60.165,-74.779,0.5)
  pt3dadd(-1.948,-62.536,-78.211,0.5)
  pt3dadd(-1.723,-63.631,-81.179,0.5)
  pt3dadd(1.878,-65.647,-86.943,0.5)
  pt3dadd(5.63,-68.062,-90.737,0.5)
  pt3dadd(6.798,-69.5,-93.214,0.5)
  pt3dadd(8.052,-70.616,-96.139,1)
  pt3dadd(7.837,-70.453,-98.152,0.5)
  pt3dadd(11.616,-72.771,-99.643,0.5)
  pt3dadd(15.68,-74.024,-100.179,0.5)
  pt3dadd(16.821,-75.56,-100.642,1)
  pt3dadd(20.238,-75.366,-100.961,0.5)
  pt3dadd(21.705,-77.618,-102.293,0.5)
  pt3dadd(24.9,-78.25,-103.524,0.5)
  pt3dadd(27.36,-78.729,-104.509,0.5)
  pt3dadd(28.872,-80.814,-106.826,0.5)
  pt3dadd(29.155,-85.553,-108.636,0.5)
}

create a3_1112222
a3_1112222 {
  pt3dclear()
  pt3dadd(-1.623,-55.529,-63.802,1)
  pt3dadd(-1.898,-55.591,-63.063,0.5)
  pt3dadd(-2.618,-58.277,-64.569,0.5)
  pt3dadd(-3.904,-63.075,-65.191,0.5)
  pt3dadd(-4.35,-66.674,-67.855,0.5)
  pt3dadd(-4.797,-70.273,-70.52,0.5)
  pt3dadd(-3.288,-75.266,-75.617,0.5)
  pt3dadd(-3.253,-78.034,-80.656,0.5)
  pt3dadd(-2.78,-79.166,-82.35,0.5)
  pt3dadd(-1.108,-79.689,-83.379,1)
  pt3dadd(0.696,-80.682,-83.465,0.5)
  pt3dadd(4.354,-80.553,-83.784,1)
  pt3dadd(6.357,-82.739,-84.827,0.5)
  pt3dadd(11.071,-85.427,-87.1,0.5)
  pt3dadd(14.231,-87.158,-88.012,0.5)
  pt3dadd(17.443,-88.694,-88.635,1)
  pt3dadd(21.361,-90.493,-90.286,0.5)
  pt3dadd(23.584,-91.854,-90.416,1)
  pt3dadd(25.726,-93.522,-91.618,0.5)
  pt3dadd(28.391,-95.166,-92.284,0.5)
  pt3dadd(31.803,-96.92,-93.442,0.5)
  pt3dadd(32.879,-99.667,-94.369,0.5)
}
a3_111222 connect a3_1112221(0),1
a3_111222 connect a3_1112222(0),1
a3_11122 connect a3_111221(0),1
a3_11122 connect a3_111222(0),1
a3_1112 connect a3_11121(0),1
a3_1112 connect a3_11122(0),1
a3_111 connect a3_1111(0),1
a3_111 connect a3_1112(0),1
create a3_112
a3_112 {
  pt3dclear()
  pt3dadd(-5.627,-19.277,-18.97,3.25)
  pt3dadd(-6.556,-20.812,-19.274,1.5)
  pt3dadd(-8.981,-23.101,-19.013,1.5)
  pt3dadd(-9.709,-24.855,-19.853,0.5)
  pt3dadd(-10.08,-26.24,-20.359,1.5)
  pt3dadd(-11.399,-29.23,-22.198,0.5)
  pt3dadd(-11.392,-31.136,-23.284,1.5)
  pt3dadd(-12.765,-33.362,-23.472,1)
  pt3dadd(-13.313,-37.338,-23.92,1)
  pt3dadd(-14.046,-41.04,-25.6,1.5)
  pt3dadd(-15.146,-44.179,-26.946,0.25)
  pt3dadd(-16.592,-49.575,-27,0.25)
}
create a3_1121
a3_1121 {
  pt3dclear()
  pt3dadd(-16.592,-49.575,-27,0.25)
  pt3dadd(-17.075,-49.446,-27,0.25)
  pt3dadd(-19.535,-47.036,-27.887,1.5)
  pt3dadd(-23.453,-51.999,-30.942,1)
  pt3dadd(-26.022,-51.926,-33.331,0.5)
  pt3dadd(-28.531,-53.563,-32.201,0.75)
  pt3dadd(-30.695,-53.912,-32.867,1)
  pt3dadd(-32.085,-55.234,-33.664,0.5)
  pt3dadd(-34.349,-54.028,-34.069,1)
  pt3dadd(-37.229,-55.115,-35.401,1)
  pt3dadd(-40.687,-55.463,-35.618,0.5)
  pt3dadd(-43.101,-57.71,-35.603,0.5)
  pt3dadd(-46.297,-59.013,-36.733,0.5)
  pt3dadd(-48.067,-60.788,-37.37,0.5)
  pt3dadd(-50.424,-62.825,-38.586,0.5)
  pt3dadd(-51.403,-63.582,-38.759,0.5)
  pt3dadd(-53.889,-66.095,-40.062,0.5)
  pt3dadd(-55.797,-68.387,-40.54,0.5)
  pt3dadd(-59.167,-71.308,-41.191,0.5)
  pt3dadd(-60.862,-72.803,-42.031,0.75)
  pt3dadd(-63.748,-74.878,-42.262,0.75)
  pt3dadd(-67.796,-76.463,-43.478,1.5)
  pt3dadd(-70.269,-78.933,-45.027,0.5)
  pt3dadd(-73.329,-80.693,-46.736,1)
  pt3dadd(-77.087,-82.16,-50.458,0.5)
  pt3dadd(-80.502,-83.314,-52.079,1)
  pt3dadd(-82.075,-83.388,-53.687,1)
  pt3dadd(-86.385,-85.952,-56.351,1)
  pt3dadd(-89.032,-86.172,-57.017,0.5)
  pt3dadd(-92.386,-88.062,-59.015,0.5)
  pt3dadd(-96.824,-91.102,-61.766,0.5)
  pt3dadd(-99.43,-93.102,-64.257,0.5)
  pt3dadd(-102.984,-94.774,-65.719,0.5)
  pt3dadd(-106.651,-93.971,-64.734,1)
}
create a3_1122
a3_1122 {
  pt3dclear()
  pt3dadd(-16.592,-49.575,-27,0.25)
  pt3dadd(-15.162,-46.169,-27.54,1.5)
  pt3dadd(-17.788,-58.87,-31.853,1)
  pt3dadd(-18.305,-63.694,-33.46,0.5)
  pt3dadd(-18.182,-65.167,-34.213,1)
  pt3dadd(-18.184,-68.075,-36.993,1)
  pt3dadd(-18.654,-71.758,-39.165,1)
  pt3dadd(-18.892,-75.547,-41.091,0.5)
  pt3dadd(-19.008,-80.809,-43.769,0.5)
  pt3dadd(-18.148,-83.394,-46.709,1)
  pt3dadd(-18.186,-85.468,-46.81,0.5)
  pt3dadd(-17.38,-87.288,-48.098,0.5)
  pt3dadd(-17.317,-90.918,-48.46,0.5)
  pt3dadd(-16.833,-93.942,-48.445,0.5)
  pt3dadd(-14.753,-97.768,-49.256,0.5)
  pt3dadd(-13.765,-101.811,-50.153,0.5)
  pt3dadd(-12.568,-105.07,-49.892,1)
  pt3dadd(-10.673,-110.556,-49.978,0.5)
  pt3dadd(-10.279,-111.981,-49.949,0.5)
  pt3dadd(-9.72,-114.724,-50.137,0.5)
  pt3dadd(-9.829,-118.998,-49.601,0.5)
  pt3dadd(-8.41,-124.326,-48.412,0.5)
  pt3dadd(-5.143,-129.519,-50.671,0.5)
  pt3dadd(-3.706,-133.817,-50.83,0.5)
  pt3dadd(-2.466,-137.883,-51.973,0.5)
  pt3dadd(-2.63,-139.459,-51.741,0.5)
}
a3_112 connect a3_1121(0),1
a3_112 connect a3_1122(0),1
a3_11 connect a3_111(0),1
a3_11 connect a3_112(0),1
create a3_12
a3_12 {
  pt3dclear()
  pt3dadd(-8.061,-15.805,-11.382,3)
  pt3dadd(-8.757,-16.473,-11.02,1.75)
  pt3dadd(-10.156,-16.862,-11.15,1.5)
  pt3dadd(-11.504,-18.031,-11.41,1.5)
  pt3dadd(-13.875,-21.084,-12.8,1.5)
  pt3dadd(-15.379,-21.865,-13.51,0.25)
  pt3dadd(-18.078,-25.175,-14.45,0.5)
  pt3dadd(-19.717,-28.395,-14.566,0.25)
  pt3dadd(-21.366,-29.722,-16.39,0.5)
  pt3dadd(-23.05,-33.109,-15.521,1)
  pt3dadd(-25.205,-34.391,-16.853,1)
  pt3dadd(-26.758,-37.288,-17.417,2)
  pt3dadd(-29.566,-41.004,-17.417,1.5)
  pt3dadd(-32.859,-42.67,-17.851,2)
  pt3dadd(-34.309,-46.15,-18.256,2)
  pt3dadd(-36.848,-47.898,-17.908,1)
  pt3dadd(-37.704,-50.128,-18.834,1.75)
  pt3dadd(-38.276,-51.294,-18.805,2.5)
}


create a3_121
a3_121 {
  pt3dclear()
  pt3dadd(-38.276,-51.294,-18.805,2.5)
  pt3dadd(-37.973,-52.095,-19.182,1)
  pt3dadd(-38.469,-52.982,-19.355,0.5)
  pt3dadd(-37.899,-55.683,-19.789,1)
  pt3dadd(-37.443,-57.845,-20.137,0.25)
  pt3dadd(-38.563,-60.093,-20.571,1)
  pt3dadd(-38.858,-64.093,-21.265,1.5)
  pt3dadd(-41.085,-67.574,-21.96,2)
  pt3dadd(-41.724,-70.926,-22.814,1.5)
  pt3dadd(-44.598,-75.854,-23.277,1.5)
  pt3dadd(-46.319,-79.381,-24.464,1)
  pt3dadd(-48.02,-83.798,-26.563,1)
  pt3dadd(-48.733,-86.456,-26.794,1)
  pt3dadd(-50.432,-89.899,-28.474,0.75)
  pt3dadd(-50.96,-91.872,-29.849,1.5)
  pt3dadd(-52.82,-95.916,-30.877,1)
  pt3dadd(-53.29,-99.599,-33.049,1)
  pt3dadd(-55.159,-102.711,-33.41,1)
  pt3dadd(-57.054,-105.922,-36.074,1)
  pt3dadd(-57.855,-109.876,-36.277,0.5)
  pt3dadd(-59.724,-112.988,-36.638,1.75)
  pt3dadd(-61.453,-114.609,-36.739,1)
  pt3dadd(-64.303,-119.453,-37.694,1)
  pt3dadd(-63.747,-123.17,-38.302,1)
  pt3dadd(-65.095,-124.338,-38.563,1)
  pt3dadd(-65.813,-127.984,-37.693,1.5)
  pt3dadd(-66.092,-129.993,-37.794,2)
  pt3dadd(-66.754,-133.429,-38.156,1.5)
  pt3dadd(-67.908,-135.804,-37.851,1.5)
  pt3dadd(-66.855,-138.635,-38.285,1)
  pt3dadd(-66.942,-142.824,-38.241,1)
  pt3dadd(-66.842,-144.381,-38.502,1)
  pt3dadd(-66.867,-147.372,-36.474,1.5)
  pt3dadd(-67.976,-149.579,-37.154,1.5)
  pt3dadd(-68.059,-151.821,-36.271,1.5)
  pt3dadd(-69.456,-155.105,-36.386,0.5)
  pt3dadd(-69.644,-157.738,-36.081,1.5)
  pt3dadd(-71.045,-159.102,-36.632,0.75)
  pt3dadd(-71.022,-161.912,-37.109,1)
  pt3dadd(-72.705,-165.299,-36.24,1.5)
  pt3dadd(-71.948,-167.301,-35.023,1)
  pt3dadd(-71.378,-170.002,-35.457,0.5)
  pt3dadd(-72.156,-173.872,-36.152,0.25)
  pt3dadd(-74.506,-177.815,-34.138,0.5)
  pt3dadd(-76.335,-177.879,-33.979,1)
}
create a3_122
a3_122 {
  pt3dclear()
  pt3dadd(-38.276,-51.294,-18.805,2.5)
  pt3dadd(-39.253,-51.077,-18.559,1.75)
  pt3dadd(-40.296,-52.072,-18.776,1)
  pt3dadd(-43.107,-53.868,-19.21,1.5)
  pt3dadd(-45.505,-54.125,-18.602,1.5)
  pt3dadd(-45.632,-54.601,-18.689,3)
}
create a3_1221
a3_1221 {
  pt3dclear()
  pt3dadd(-45.632,-54.601,-18.689,3)
  pt3dadd(-46.84,-54.277,-18.689,1.5)
  pt3dadd(-48.891,-54.207,-17.501,1)
  pt3dadd(-52.125,-55.649,-16.371,0.5)
  pt3dadd(-54.482,-55.752,-15.227,1)
  pt3dadd(-58.016,-55.42,-13.301,1.5)
  pt3dadd(-62.198,-55.573,-13.518,1)
  pt3dadd(-66.192,-55.988,-14.025,1)
  pt3dadd(-68.362,-57.325,-13.59,1)
  pt3dadd(-71.122,-59.899,-14.154,1.5)
  pt3dadd(-73.75,-62.943,-13.777,0.5)
  pt3dadd(-74.856,-64.176,-14.038,0.25)
  pt3dadd(-75.63,-66.098,-13.892,0.5)
  pt3dadd(-78.798,-68.263,-14.66,0.5)
  pt3dadd(-79.939,-69.621,-14.182,1)
  pt3dadd(-83.455,-71.153,-13.587,0.5)
  pt3dadd(-86.395,-72.464,-12.168,0.25)
  pt3dadd(-89.32,-75.653,-10.56,1)
  pt3dadd(-93.87,-79.112,-10.849,0.25)
  pt3dadd(-96.536,-79.402,-8.227,1)
  pt3dadd(-101.069,-81.83,-5.548,1.5)
  pt3dadd(-103.611,-83.592,-3.679,1)
  pt3dadd(-106.885,-88.082,-3.07,0.5)
  pt3dadd(-108.716,-89.121,-3.331,1)
  pt3dadd(-110.834,-90.263,-2.606,1)
  pt3dadd(-112.418,-90.378,0.348,1)
  pt3dadd(-113.637,-92.03,2.55,0.5)
  pt3dadd(-116.132,-92.65,3.853,1)
  pt3dadd(-118.713,-94.553,3.665,1)
  pt3dadd(-120.215,-96.295,1.015,1)
  pt3dadd(-122.804,-97.266,-2.822,0.75)
}
create a3_1222
a3_1222 {
  pt3dclear()
  pt3dadd(-45.632,-54.601,-18.689,3)
  pt3dadd(-45.582,-55.379,-18.819,1)
  pt3dadd(-47.973,-57.542,-19.296,1.5)
  pt3dadd(-50.168,-59.937,-18.789,0.5)
  pt3dadd(-51.738,-63.864,-18.007,0.5)
  pt3dadd(-54.529,-68.484,-17.398,0.5)
  pt3dadd(-55.43,-70.881,-17.339,0.25)
  pt3dadd(-57.424,-73.495,-17.368,1.5)
  pt3dadd(-59.797,-75.588,-16.817,2)
  pt3dadd(-60.904,-76.821,-17.078,0.5)
  pt3dadd(-63.012,-78.895,-17.019,0.5)
  pt3dadd(-64.343,-83.861,-16.657,1.5)
  pt3dadd(-66.362,-87.533,-16.613,0.5)
  pt3dadd(-67.874,-90.276,-16.641,0.25)
  pt3dadd(-69.213,-92.376,-17.568,1.5)
  pt3dadd(-69.401,-95.01,-17.263,1.5)
  pt3dadd(-70.648,-97.734,-17.784,0.5)
  pt3dadd(-72.482,-99.747,-18.464,1)
  pt3dadd(-72.913,-103.289,-18.58,1)
  pt3dadd(-74.402,-105.949,-19.101,0.5)
  pt3dadd(-76.122,-108.502,-19.868,0.5)
  pt3dadd(-77.162,-111.417,-19.65,1)
  pt3dadd(-79.516,-115.374,-20.432,1.5)
  pt3dadd(-80.636,-117.623,-20.866,0.5)
  pt3dadd(-81.579,-120.174,-21.343,0.5)
  pt3dadd(-83.465,-122.383,-22.313,0.5)
  pt3dadd(-85.198,-123.058,-23.269,0.75)
  pt3dadd(-85.396,-126.693,-24.659,1)
  pt3dadd(-87.469,-127.667,-24.919,0.5)
  pt3dadd(-90.332,-129.659,-25.643,1)
  pt3dadd(-93.716,-133.595,-26.468,0.5)
  pt3dadd(-96.599,-134.696,-26.279,0.75)
  pt3dadd(-98.288,-137.137,-26.264,0.5)
  pt3dadd(-99.833,-138.073,-27.51,0.25)
  pt3dadd(-102.588,-139.659,-29.175,0.5)
  pt3dadd(-103.225,-142.037,-29.609,1.5)
  pt3dadd(-104.817,-144.115,-30.289,0.5)
  pt3dadd(-105.465,-146.535,-30.477,0.5)
  pt3dadd(-106.125,-148.997,-30.419,0.5)
  pt3dadd(-106.668,-151.025,-30.028,0.5)
  pt3dadd(-106.241,-154.258,-33.097,1)

}
a3_122 connect a3_1221(0),1
a3_122 connect a3_1222(0),1
a3_12 connect a3_121(0),1
a3_12 connect a3_122(0),1
a3_1 connect a3_11(0),1
a3_1 connect a3_12(0),1
create a4_1
a4_1 {
  pt3dclear()
  pt3dadd(-2.29,4.765,-1.522,1.5)
  pt3dadd(-2.063,6.578,-1.711,1.5)
  pt3dadd(-2.066,10.432,-4.101,1)
  pt3dadd(-2.371,12.193,-6.1,0.5)
  pt3dadd(-2.406,14.96,-9.692,2.25)
}
create a4_11
a4_11 {
  pt3dclear()
  pt3dadd(-2.406,14.96,-9.692,2.25)
  pt3dadd(-2.323,15.267,-12.936,1)
  pt3dadd(-6.202,12.382,10.004,0.25)
  pt3dadd(-4.422,12.265,8.035,1)
  pt3dadd(-4.816,15.623,6.05,1)
  pt3dadd(-4.782,15.749,5.312,1.5)
}

}
proc m4(){

create a4_111
a4_111 {
  pt3dclear()
  pt3dadd(-4.782,15.749,5.312,1.5)
  pt3dadd(-4.346,16.412,3.921,0.5)
  pt3dadd(-2.374,18.941,0.127,0.5)
  pt3dadd(-0.588,21.745,-4.899,0.75)
  pt3dadd(2.992,23.514,-9.765,0.5)
  pt3dadd(5.194,25.937,-13.314,1)
  pt3dadd(6.896,27.46,-15.516,1)
  pt3dadd(9.767,29.479,-17.833,1)
  pt3dadd(11.061,31.411,-20.237,1)
  pt3dadd(14.721,32.514,-24.452,0.5)
  pt3dadd(19.821,34.16,-28.001,1)
  pt3dadd(21.076,34.978,-28.565,0.5)
  pt3dadd(25.103,37.452,-30.753,0.5)
  pt3dadd(29.359,38.845,-33.114,0.5)
  pt3dadd(31.905,40.621,-36.503,1)
  pt3dadd(35.037,41.686,-39.733,0.5)
  pt3dadd(37.25,42.217,-41.572,1)
  pt3dadd(41.193,43.409,-45.251,0.25)
  pt3dadd(41.638,43.139,-47.307,0.5)
  pt3dadd(44.289,43.374,-48.162,0.5)

  pt3dadd(43.071,40.76,-56.532,0.5)
  pt3dadd(46.705,41.765,-58.734,1)
  pt3dadd(48.954,41.463,-58.936,0.5)
  pt3dadd(51.73,41.198,-60.124,1)
  pt3dadd(51.151,40.004,-61.369,0.5)
  pt3dadd(53.172,37.888,-61.383,0.5)
  pt3dadd(54.27,35.225,-62.802,0.5)
  pt3dadd(54.358,32.652,-63.237,0.5)
}
create a4_112
a4_112 {
  pt3dclear()
  pt3dadd(-4.782,15.749,5.312,1.5)
  pt3dadd(-5.771,15.924,5.804,1)
  pt3dadd(-7.755,16.246,5.514,1)
  pt3dadd(-9.581,16.195,4.153,0.5)
  pt3dadd(-11.31,17.468,4.037,0.5)
  pt3dadd(-13.697,17.253,4.399,1)
  pt3dadd(-17.207,18.643,1.937,0.5)
  pt3dadd(-21.166,20.288,-1.263,1)
  pt3dadd(-22.783,21.98,-3.841,0.5)
  pt3dadd(-23.413,24.457,-9.287,1)
  pt3dadd(-24.708,27.353,-13.168,0.5)
  pt3dadd(-25.188,30.39,-14.704,0.5)
  pt3dadd(-25.894,32.588,-15.631,0.5)
  pt3dadd(-26.477,36.207,-17.326,1)
  pt3dadd(-28.588,37.987,-19.658,0.5)
  pt3dadd(-30.971,39.719,-22.771,0.5)
  pt3dadd(-33.455,41.074,-27.985,0.5)
  pt3dadd(-37.713,43.534,-32.33,0.5)
  pt3dadd(-39.592,46.181,-33.996,1)
  pt3dadd(-41.107,47.291,-36.414,0.5)
  pt3dadd(-43.094,49.533,-37.139,0.5)
  pt3dadd(-44.428,51.314,-39.181,0.5)
  pt3dadd(-46.871,52.823,-39.543,0.5)
  pt3dadd(-49.288,54.43,-41.918,1)
  pt3dadd(-53.075,54.785,-44.061,0.5)
  pt3dadd(-56.957,55.75,-45.09,0.5)
  pt3dadd(-60.92,57.381,-46.77,0.25)
  pt3dadd(-64.773,58.458,-47.016,0.5)
  pt3dadd(-68.459,59.191,-47.059,0.5)
}
a4_11 connect a4_111(0),1
a4_11 connect a4_112(0),1
create a4_12
a4_12 {
  pt3dclear()
  pt3dadd(-2.406,14.96,-9.692,2.25)
  pt3dadd(-1.881,14.985,-9.156,1)
  pt3dadd(-2.171,16.802,-8.606,0.5)
  pt3dadd(-1.295,18.141,-8.592,0.5)
  pt3dadd(-0.141,20.516,-8.896,0.5)
  pt3dadd(-0.862,23.617,-10.432,0.5)
  pt3dadd(-2.32,26.871,-11.721,0.25)
  pt3dadd(-2.157,28.447,-11.953,0.5)
  pt3dadd(4.688,35.638,-12.446,0.5)
  pt3dadd(6.533,37.693,-12.012,0.5)
  pt3dadd(7.958,40.115,-11.535,0.5)
  pt3dadd(9.675,41.694,-11.187,0.5)
  pt3dadd(11.101,44.116,-10.71,0.5)
  pt3dadd(11.277,46.707,-10.768,0.5)
  pt3dadd(12.167,49.062,-10.58,0.5)
  pt3dadd(13.748,53.032,-11.609,0.5)
  pt3dadd(13.684,55.688,-11.667,0.5)
  pt3dadd(15.124,58.165,-12.957,0.5)
  pt3dadd(18.184,61.858,-13.203,0.5)
  pt3dadd(22.895,65.918,-13.566,0.5)
  pt3dadd(27.481,70.477,-13.596,0.5)
  pt3dadd(33.374,78.943,-13.916,0.5)
  pt3dadd(36.689,85.521,-15.944,0.5)
  pt3dadd(41.097,90.382,-15.931,0.5)
  pt3dadd(48.04,95.043,-17.105,0.5)
  pt3dadd(52.02,99.269,-18.742,0.5)
  pt3dadd(55.051,99.956,-19.756,0.5)
  pt3dadd(57.369,100.879,-21.016,0.5)
  pt3dadd(60.666,102.56,-22.102,0.5)
  pt3dadd(61.973,105.507,-24.333,0.5)
  pt3dadd(64.073,108.513,-23.725,0.5)
  pt3dadd(66.106,110.307,-23.581,1)
  pt3dadd(68.049,112.725,-23.842,0.5)
  pt3dadd(70.706,115.882,-23.437,0.5)
}


a4_1 connect a4_11(0),1
a4_1 connect a4_12(0),1
create a5_1
a5_1 {
  pt3dclear()
  pt3dadd(1.869,0.969,11.729,4.5)
  pt3dadd(2.682,2.071,16.016,3.75)
  pt3dadd(3.931,3.836,23.227,3)
}
create a5_11
a5_11 {
  pt3dclear()
  pt3dadd(3.931,3.836,23.227,3)
  pt3dadd(2.422,4.001,25.979,2)
  pt3dadd(1.593,3.804,29.715,1.5)
  pt3dadd(0.178,4.319,33.293,2)
  pt3dadd(1.363,3.911,33.785,2.25)
}
create a5_111
a5_111 {
  pt3dclear()
  pt3dadd(1.363,3.911,33.785,2.25)
  pt3dadd(2.756,3.313,35.016,2)
  pt3dadd(3.149,2.849,36.986,2)
  pt3dadd(3.654,0.87,42.764,1.5)
}
create a5_1111
a5_1111 {
  pt3dclear()
  pt3dadd(3.654,0.87,42.764,1.5)
  pt3dadd(3.051,0.552,43.952,2)
  pt3dadd(1.422,-1.665,45.531,0.5)
  pt3dadd(0.236,-3.191,46.994,0.75)
  pt3dadd(-2.189,-7.414,49.21,1)
  pt3dadd(-3.657,-9.029,50.137,2)
  pt3dadd(-5.023,-11.227,51.224,1.5)
}
create a5_11111
a5_11111 {
  pt3dclear()
  pt3dadd(-5.023,-11.227,51.224,1.5)
  pt3dadd(-6.116,-11.444,51.137,0.5)
  pt3dadd(-8.767,-11.678,51.991,1)
  pt3dadd(-12.647,-14.567,53.353,0.75)
  pt3dadd(-15.738,-17.411,54.758,0.5)
  pt3dadd(-18.978,-19.841,56.989,1)
  pt3dadd(-20.687,-21.392,57.916,1)
  pt3dadd(-25.554,-25.065,62.146,0.75)
  pt3dadd(-29.596,-27.595,66.1,0.5)
  pt3dadd(-31.602,-30.25,70.633,1.5)
  pt3dadd(-32.295,-32.838,71.43,1)
  pt3dadd(-34.056,-35.544,74.443,1)
  pt3dadd(-35.538,-40.11,77.152,0.5)
  pt3dadd(-38.63,-44.888,80.512,1)
  pt3dadd(-42.111,-47.253,82.743,1)
  pt3dadd(-46.95,-48.895,87.32,1)
  pt3dadd(-50.373,-52.01,90.695,0.5)
  pt3dadd(-52.508,-54.182,92.766,1)
  pt3dadd(-55.863,-55.111,97.024,0.5)
  pt3dadd(-56.868,-55.966,98.863,1)
  pt3dadd(-59.731,-56.023,100.5,0.5)
  pt3dadd(-62.763,-55.75,103.454,1)
  pt3dadd(-64.616,-54.938,106.046,0.5)
  pt3dadd(-67.17,-54.808,110.522,1)
  pt3dadd(-69.076,-56.126,114.779,0.5)
  pt3dadd(-70.983,-56.484,120.978,0.5)
  pt3dadd(-71.186,-57.238,125.41,0.5)
}
create a5_11112
a5_11112 {
  pt3dclear()
  pt3dadd(-5.023,-11.227,51.224,1.5)
  pt3dadd(-4.351,-11.617,50.934,1)
  pt3dadd(-5.019,-13.147,51.658,0.5)
  pt3dadd(-6.035,-16.938,53.759,0.5)
  pt3dadd(-6.562,-19.87,54.758,0.75)
  pt3dadd(-6.259,-22.605,56.337,1)
  pt3dadd(-6.663,-27.009,56.584,1)
  pt3dadd(-8.309,-35.084,57.165,0.5)
  pt3dadd(-9.103,-42.878,57.832,1)
  pt3dadd(-11.914,-51.435,61.323,1)
  pt3dadd(-12.008,-60.479,66.379,0.5)
  pt3dadd(-9.504,-69.485,74.606,1)
  pt3dadd(-8.232,-74.399,76.619,0.5)
  pt3dadd(-8.695,-77.093,77.662,0.5)
  pt3dadd(-9.794,-83.125,80.647,1)
  pt3dadd(-9.116,-89.289,83.182,1.5)
  pt3dadd(-9.116,-89.289,83.182,0.5)
  pt3dadd(-7.46,-93.735,83.515,1)
  pt3dadd(-7.134,-97.346,82.661,0.5)
  pt3dadd(-6.511,-99.852,82.517,0.5)
  pt3dadd(-6.332,-103.049,82.488,0.5)
  pt3dadd(-7.097,-105.902,81.967,1)
  pt3dadd(-7.718,-115.946,81.752,0.5)
  pt3dadd(-8.382,-120.356,80.97,0.5)
  pt3dadd(-7.814,-124.032,80.116,0.5)
  pt3dadd(-7.694,-130.346,78.539,0.5)
  pt3dadd(-5.621,-136.134,78.409,0.5)
  pt3dadd(-5.192,-140.328,77.714,0.5)
}
a5_1111 connect a5_11111(0),1
a5_1111 connect a5_11112(0),1
create a5_1112
a5_1112 {
  pt3dclear()
  pt3dadd(3.654,0.87,42.764,1.5)
  pt3dadd(4.042,1.351,43.879,1.5)
  pt3dadd(3.533,1.383,45.892,1.5)
  pt3dadd(4.145,0.769,48.354,1.5)
}
create a5_11121
a5_11121 {
  pt3dclear()
  pt3dadd(4.145,0.769,48.354,1.5)
  pt3dadd(3.678,-0.005,48.963,0.5)
  pt3dadd(2.04,-1.29,51.208,1)
  pt3dadd(1.495,-2.358,53.539,1.5)
  pt3dadd(0.821,-2.942,57.725,1)
  pt3dadd(0.173,-3.427,59.897,1)
  pt3dadd(-0.229,-3.964,64.865,1)
  pt3dadd(0.056,-2.9,70.136,1)
  pt3dadd(-0.159,-2.737,72.439,1)
  pt3dadd(-0.822,-3.278,76.378,1)
  pt3dadd(-1.094,-3.325,79.911,0.5)
  pt3dadd(-0.848,-3.375,82.707,1)
  pt3dadd(0.067,-4.79,84.792,0.5)
  pt3dadd(1.75,-5.27,87.833,0.5)
  pt3dadd(2.817,-5.151,89.933,1)
  pt3dadd(6.247,-5.875,91.743,1)
  pt3dadd(8.742,-5.254,94.756,1)
  pt3dadd(10.145,-4.85,97.681,1)
  pt3dadd(11.223,-4.688,99.534,0.5)
  pt3dadd(12.96,-5.933,100.925,1)
  pt3dadd(13.969,-6.998,103.836,0.5)
  pt3dadd(14.032,-8.694,105.835,0.5)
  pt3dadd(15.442,-10.196,107.674,0.5)
  pt3dadd(16.911,-11.473,111.077,1)
  pt3dadd(17.448,-12.367,113.742,0.5)
  pt3dadd(17.028,-13.933,115.741,0.5)
  pt3dadd(18.487,-15.253,119.391,1)
  pt3dadd(19.888,-18.716,121.911,0.5)
  pt3dadd(20.442,-20.514,125.184,0.5)
  pt3dadd(20.615,-22.764,128.617,0.5)
  pt3dadd(19.37,-24.513,132.831,0.5)
  pt3dadd(20.89,-26.569,136.104,0.5)
  pt3dadd(20.85,-27.683,137.944,0.5)
  pt3dadd(24.144,-30.844,140.348,0.5)
  pt3dadd(26.435,-33.887,140.696,0.5)
  pt3dadd(28.531,-35.723,140.479,0.5)
  pt3dadd(29.231,-36.975,140.552,0.5)
}
create a5_11122
a5_11122 {
  pt3dclear()
  pt3dadd(4.145,0.769,48.354,1.5)
  pt3dadd(4.974,0.967,48.933,1)
  pt3dadd(6.391,1.427,50.092,1)
  pt3dadd(8.144,2.172,52.076,1.5)
  pt3dadd(9.591,2.744,54.016,1.5)
  pt3dadd(10.284,3.398,55.175,1)
}
create a5_111221
a5_111221 {
  pt3dclear()
  pt3dadd(10.284,3.398,55.175,1)
  pt3dadd(11.499,3.103,56.449,0.5)
  pt3dadd(13.415,3.49,60.156,0.75)
  pt3dadd(15.491,4.478,63.212,1)
  pt3dadd(17.943,6.865,65.254,0.5)
  pt3dadd(21.751,7.554,68.845,0.5)
  pt3dadd(23.735,5.299,71.09,0.5)
  pt3dadd(25.685,4.851,72.118,0.5)
  pt3dadd(27.679,5.532,74.102,0.5)
  pt3dadd(30.575,3.781,73.682,0.5)
  pt3dadd(31.286,2.571,73.508,0.5)
  pt3dadd(30.89,0.128,73.074,0.5)
  pt3dadd(31.857,-3.024,73.089,0.5)
  pt3dadd(31.982,-5.457,74.712,0.5)
  pt3dadd(33.619,-8.039,76.377,0.5)
  pt3dadd(34.482,-9.649,78.173,0.5)
  pt3dadd(35.082,-12.239,78.521,0.5)
  pt3dadd(35.619,-15.066,78.826,0.5)
  pt3dadd(36.219,-17.656,79.173,0.5)
  pt3dadd(36.274,-19.38,79.898,1)
  pt3dadd(37.498,-22.541,82.462,0.5)
  pt3dadd(37.476,-22.625,82.954,0.5)
  pt3dadd(37.654,-25.821,82.925,0.5)
  pt3dadd(37.865,-27.932,84.099,1)
  pt3dadd(39.003,-29.481,85.156,1)
  pt3dadd(42.198,-33.98,87.836,0.5)
  pt3dadd(42.034,-35.555,88.068,0.5)
  pt3dadd(44.99,-37.082,89.212,0.5)
  pt3dadd(46.867,-40.703,90.458,0.5)
  pt3dadd(50.374,-43.067,92.5,1)
  pt3dadd(52.589,-43.495,93.036,1)
  pt3dadd(55.878,-45.711,94.586,1)
  pt3dadd(61.763,-46.927,96.932,1)
  pt3dadd(65.931,-46.829,98.915,0.5)
  pt3dadd(71.142,-46.697,99.176,0.5)
  pt3dadd(77.06,-46.828,98.408,1)
}
create a5_111222
a5_111222 {
  pt3dclear()
  pt3dadd(10.284,3.398,55.175,1)
  pt3dadd(10.011,4.311,56.333,0.5)
  pt3dadd(10.853,6.485,59.027,0.5)
  pt3dadd(11.641,8.463,61.43,0.5)
  pt3dadd(12.393,10.301,61.778,0.5)
  pt3dadd(13.655,13.081,64.847,0.5)
  pt3dadd(15.051,15.392,68.859,0.5)
  pt3dadd(17.852,18.12,74.274,0.5)
  pt3dadd(18.619,20.014,77.171,0.5)
  pt3dadd(20.634,21.739,80.602,0.5)
  pt3dadd(23.407,23.395,83.296,0.5)
  pt3dadd(24.346,25.932,85.294,0.5)
  pt3dadd(27.076,28.395,89.392,0.5)
  pt3dadd(30.649,30.137,91.883,1)
  pt3dadd(33.516,32.143,95.401,0.5)
  pt3dadd(35.696,36.417,99.021,0.5)
  pt3dadd(37.547,39.46,102.67,0.5)
  pt3dadd(38.317,43.302,106.406,1)
  pt3dadd(40.741,48.485,110.446,0.5)
  pt3dadd(41.49,52.243,114.674,0.5)
}
a5_11122 connect a5_111221(0),1
a5_11122 connect a5_111222(0),1
a5_1112 connect a5_11121(0),1
a5_1112 connect a5_11122(0),1
a5_111 connect a5_1111(0),1
a5_111 connect a5_1112(0),1
create a5_112
a5_112 {
  pt3dclear()
  pt3dadd(1.363,3.911,33.785,2.25)
  pt3dadd(0.813,3.789,35.262,2.25)
  pt3dadd(-0.704,3.926,36.739,2.25)
  pt3dadd(-2.762,5.902,39.013,1.5)
  pt3dadd(-3.415,6.362,40.331,1.5)
  pt3dadd(-4.207,6.305,41.808,1.75)
}
create a5_1121
a5_1121 {
  pt3dclear()
  pt3dadd(-4.207,6.305,41.808,1.75)
  pt3dadd(-5.173,6.563,41.808,1.5)
  pt3dadd(-6.731,6.546,42.749,1)
  pt3dadd(-7.753,6.595,43.98,1)
  pt3dadd(-10.13,7.382,46.037,0.5)
  pt3dadd(-15.862,7.24,48.035,1.5)
  pt3dadd(-22.098,8.116,50.946,0.75)
  pt3dadd(-26.409,8.447,52.583,0.5)
  pt3dadd(-29,8.437,55.002,0.5)
  pt3dadd(-31.482,8.832,56.479,1.5)
}
create a5_11211
a5_11211 {
  pt3dclear()
  pt3dadd(-31.482,8.832,56.479,1.5)
  pt3dadd(-31.464,8.902,57.507,1.5)
  pt3dadd(-33.266,10.87,58.014,0.5)
  pt3dadd(-34.788,11.952,58.636,1)
  pt3dadd(-38.003,13.474,60.78,1)
  pt3dadd(-40.592,16.371,61.663,1)
  pt3dadd(-44.577,17.92,64.791,0.75)
  pt3dadd(-46.87,18.054,65.978,0.5)
  pt3dadd(-49.713,20.001,66.688,0.5)
  pt3dadd(-53.592,20.98,68.455,1)
  pt3dadd(-57.008,22.721,71.134,0.5)
  pt3dadd(-61.403,23.704,73.639,1)
  pt3dadd(-65.448,25.028,75.203,1)
  pt3dadd(-68.714,27.328,77.477,0.5)
  pt3dadd(-70.548,30.143,79.142,0.5)
  pt3dadd(-72.481,31.621,81.082,1)
  pt3dadd(-76.278,35.802,83.906,0.5)
  pt3dadd(-80.471,37.541,86.295,1)
  pt3dadd(-83.926,40.101,88.859,0.5)
  pt3dadd(-85.189,42.149,92.45,0.5)
  pt3dadd(-87.611,44.703,93.536,0.5)
  pt3dadd(-93.956,48.068,97.373,1)
  pt3dadd(-97.628,51.751,99.864,0.5)
  pt3dadd(-100.284,54.397,102.224,0.5)
  pt3dadd(-104.7,54.336,103.282,1)
}
}
proc m5(){
create a5_11212
a5_11212 {
  pt3dclear()
  pt3dadd(-31.482,8.832,56.479,1.5)
  pt3dadd(-31.236,7.822,57.333,1.5)
  pt3dadd(-32.615,7.502,58.231,1)
  pt3dadd(-35.454,6.569,61.751,1)
  pt3dadd(-37.874,6.228,62.852,1.5)
  pt3dadd(-43.152,4.884,66.444,1)
  pt3dadd(-50.141,2.949,68.587,1)
  pt3dadd(-52.642,1.34,70.992,1)
  pt3dadd(-55.03,-0.808,73.309,1)
}
create a5_112121
a5_112121 {
  pt3dclear()
  pt3dadd(-55.03,-0.808,73.309,1)
  pt3dadd(-55.468,-0.511,72.324,0.5)
  pt3dadd(-60.65,-0.531,77.162,0.5)
  pt3dadd(-63.921,-2.113,80.551,0.5)
  pt3dadd(-67.686,-3.608,84.186,0.5)
  pt3dadd(-71.17,-4.053,90.298,0.5)
  pt3dadd(-72.31,-5.411,90.776,0.5)
  pt3dadd(-70.199,-7.191,93.108,0.5)
}
create a5_112122
a5_112122 {
  pt3dclear()
  pt3dadd(-55.03,-0.808,73.309,1)
  pt3dadd(-54.996,-0.682,72.571,1)
  pt3dadd(-59.02,-3.142,73.237,0.5)
  pt3dadd(-61.589,-5.003,72.803,0.5)
  pt3dadd(-66.426,-8.565,73.499,0.75)
  pt3dadd(-68.027,-9.71,73.485,0.5)
  pt3dadd(-71.5,-12.048,72.674,0.5)
  pt3dadd(-75.972,-17.147,72.617,1)
  pt3dadd(-79.807,-19.867,72.994,0.5)
  pt3dadd(-81.307,-22.569,72.719,1)
  pt3dadd(-84.41,-25.455,74.371,0.5)
  pt3dadd(-90.014,-28.017,76.471,1)
  pt3dadd(-95.52,-30.214,77.877,1)
  pt3dadd(-97.374,-31.337,78.108,1)
  pt3dadd(-104.949,-34.494,82.048,0.5)
  pt3dadd(-107.468,-35.198,83.844,1)
  pt3dadd(-113.906,-37.011,84.511,1)
  pt3dadd(-118.89,-38.225,84.077,0.5)
  pt3dadd(-121.665,-38.921,83.324,0.5)
  pt3dadd(-128.71,-36.238,84.729,1.5)
  pt3dadd(-134.682,-33.409,85.192,0.5)
  pt3dadd(-137.036,-32.538,86.756,1)
  pt3dadd(-139.582,-32.38,88.19,1)
}
a5_11212 connect a5_112121(0),1
a5_11212 connect a5_112122(0),1
a5_1121 connect a5_11211(0),1
a5_1121 connect a5_11212(0),1
create a5_1122
a5_1122 {
  pt3dclear()
  pt3dadd(-4.207,6.305,41.808,1.75)
  pt3dadd(-3.786,6.911,42.184,0.5)
  pt3dadd(-3.278,7.84,42.112,0.25)
  pt3dadd(-3.51,8.907,43.806,1)
  pt3dadd(-4.489,10.084,45.993,0.5)
  pt3dadd(-5.112,10.656,48.093,1)
  pt3dadd(-6.256,14.112,52.437,1)
  pt3dadd(-6.853,16.716,54.884,0.5)
  pt3dadd(-7.073,17.825,56.332,0.75)
  pt3dadd(-7.524,19.04,57.534,0.5)
  pt3dadd(-6.932,21.25,58.953,1)
  pt3dadd(-6.246,23.811,61.197,0.5)
  pt3dadd(-6.423,26.047,63.601,1)
  pt3dadd(-5.887,28.048,66.251,0.5)
  pt3dadd(-4.937,30.628,68.003,0.5)
  pt3dadd(-4.539,34.044,68.857,0.5)
  pt3dadd(-3.994,35.113,70.841,0.5)
  pt3dadd(-3.281,37.772,75.388,1)
  pt3dadd(-2.839,39.422,77.212,0.5)
  pt3dadd(-2.151,42.957,79.876,1)
  pt3dadd(-1.556,46.141,81.715,0.5)
  pt3dadd(-1.078,48.892,83.221,0.5)
  pt3dadd(-0.508,51.018,85.132,0.5)
  pt3dadd(-0.708,53.171,88.028,1.5)
  pt3dadd(-0.797,56.704,90.403,0.5)
  pt3dadd(-1.294,60.645,92.575,0.5)
  pt3dadd(-0.605,64.18,95.239,0.5)
  pt3dadd(-0.179,68.669,98.815,0.5)
  pt3dadd(0.277,71.336,100.814,0.5)
  pt3dadd(0.508,75.097,101.465,1)
  pt3dadd(0.257,80.922,104.476,1)
  pt3dadd(-0.909,86.228,107.358,0.5)
  pt3dadd(-3.255,90.995,110.601,0.5)
  pt3dadd(-5.169,96.411,113.975,0.5)
  pt3dadd(-7.528,100.162,117.044,0.5)
}
a5_112 connect a5_1121(0),1
a5_112 connect a5_1122(0),1
a5_11 connect a5_111(0),1
a5_11 connect a5_112(0),1
create a5_12
a5_12 {
  pt3dclear()
  pt3dadd(3.931,3.836,23.227,3)
  pt3dadd(4.414,3.707,23.227,2)
  pt3dadd(5.088,4.291,23.358,1.5)
  pt3dadd(7.433,5.312,24.4,1)
  pt3dadd(8.264,6.484,25.399,1)
  pt3dadd(10.839,7.399,26.688,1)
  pt3dadd(12.303,9,27.281,2)
}
create a5_121
a5_121 {
  pt3dclear()
  pt3dadd(12.303,9,27.281,2)
  pt3dadd(13.327,7.991,28.426,1)
  pt3dadd(17.423,7.824,29.092,1)
  pt3dadd(21.568,7.838,31.568,1)
  pt3dadd(26.005,7.009,33.914,0.5)
  pt3dadd(28.442,6.446,33.422,0.5)
  pt3dadd(29.887,6.044,34.942,1)
  pt3dadd(30.992,6.303,34.783,1.5)
}
create a5_1211
a5_1211 {
  pt3dclear()
  pt3dadd(30.992,6.303,34.783,1)

  pt3dadd(40.476,6.179,35.359,.5)
}
create a5_1212
a5_1212 {
  pt3dclear()
  pt3dadd(30.992,6.303,34.783,1.5)
  pt3dadd(30.83,5.701,35.435,1)
  pt3dadd(34.215,4.809,33.914,0.5)
  pt3dadd(37.921,3.186,33.045,1)
  pt3dadd(41.864,2.445,31.322,1)
  pt3dadd(45.603,0.947,29.714,0.5)
  pt3dadd(47.58,0.598,28.729,0.5)
  pt3dadd(51.043,-1.935,27.441,1)
  pt3dadd(56.215,-2.916,25.225,1)
  pt3dadd(58.937,-4.35,23.328,0.5)
  pt3dadd(62.704,-6.709,22.083,1)
  pt3dadd(69.788,-9.253,18.419,1.5)
  pt3dadd(72.229,-9.802,16.406,1)
  pt3dadd(76.811,-10.086,15.551,0.5)
  pt3dadd(79.479,-10.755,15.305,0.75)
  pt3dadd(80.922,-10.198,14.45,1)
  pt3dadd(84.28,-13.122,12.582,0.5)
  pt3dadd(87.088,-14.234,10.236,1)
  pt3dadd(91.491,-15.189,9.005,1)
  pt3dadd(96.455,-15.98,6.051,1)
  pt3dadd(102.305,-16.364,2.445,0.5)
  pt3dadd(108.212,-19.432,-2.378,0.75)
  pt3dadd(111.576,-21.368,-5.346,0.5)
  pt3dadd(112.949,-23.97,-7.504,0.5)
  pt3dadd(113.856,-27.347,-9.053,1)
  pt3dadd(113.369,-29.165,-9.893,0.5)
  pt3dadd(111.306,-29.138,-12.775,0.5)
  pt3dadd(115.351,-30.462,-14.339,1)
  pt3dadd(116.337,-31.611,-15.251,0.5)
  pt3dadd(119.953,-35.503,-16.51,0.5)
  pt3dadd(122.113,-37.102,-16.684,0.5)
  pt3dadd(122.41,-38.89,-15.96,1)
  pt3dadd(122.014,-41.333,-16.394,0.5)
  pt3dadd(121.332,-43.879,-15.843,0.5)
  pt3dadd(121.937,-47.415,-14.641,0.5)
}
a5_121 connect a5_1211(0),1
a5_121 connect a5_1212(0),1
create a5_122
a5_122 {
  pt3dclear()
  pt3dadd(12.303,9,27.281,2)
  pt3dadd(12.249,9.765,28.932,1)
  pt3dadd(13.231,11.496,29.526,1)
  pt3dadd(15.547,13.379,30.206,0.5)
  pt3dadd(16.667,15.628,30.64,0.5)
  pt3dadd(17.04,17.987,31.567,1)
  pt3dadd(18.894,19.109,31.335,0.25)
  pt3dadd(20.003,21.316,32.015,1)
  pt3dadd(20.146,23.782,32.695,1)
  pt3dadd(21.166,27.587,33.39,1)
  pt3dadd(22.976,29.515,34.563,0.5)
  pt3dadd(23.457,33.24,36.488,1.5)
  pt3dadd(24.474,36.071,36.763,0.25)
  pt3dadd(24,40.097,38.442,1)
  pt3dadd(25.075,42.178,39.861,1)
  pt3dadd(26.15,44.259,41.28,1)
  pt3dadd(27.639,46.918,41.801,0.5)
  pt3dadd(29.385,49.57,44.871,0.5)
  pt3dadd(30.592,52.14,44.856,0.75)
  pt3dadd(33.011,55.375,48.056,0.5)
  pt3dadd(33.407,57.818,48.49,1)
  pt3dadd(34.194,58.822,50.474,1)
  pt3dadd(35.378,63.243,53.312,1)
  pt3dadd(34.969,64.612,55.05,1.5)
  pt3dadd(36.723,66.331,57.453,1)
  pt3dadd(36.359,67.868,58.206,0.5)
  pt3dadd(36.983,71.165,60.827,0.5)
  pt3dadd(37.633,72.625,63.39,0.5)
  pt3dadd(37.578,76.284,65.026,0.5)
  pt3dadd(36.135,80.554,68.226,0.5)
  pt3dadd(37.008,83.814,72.122,0.5)
  pt3dadd(36.166,86.469,76.089,0.5)
  pt3dadd(34.649,89.499,77.552,0.5)
  pt3dadd(31.842,92.546,82.258,0.5)
  pt3dadd(31.738,96.023,86.399,0.5)
  pt3dadd(33.303,98.963,91.033,0.5)
}

a5_12 connect a5_121(0),1
a5_12 connect a5_122(0),1
a5_1 connect a5_11(0),1
a5_1 connect a5_12(0),1
create a6_1
a6_1 {
  pt3dclear()
  pt3dadd(-2.461,7.99,4.096,2)
  pt3dadd(-2.279,9.636,4.892,1.5)
  pt3dadd(-2.803,11.546,6.717,1)
  pt3dadd(-2.946,13.908,8.382,1.5)
  pt3dadd(-3.034,16.48,8.816,1)
  pt3dadd(-2.64,17.949,8.83,2)
  pt3dadd(-2.529,21.263,10.669,1.5)
  pt3dadd(-2.982,24.398,11.436,1)
  pt3dadd(-1.769,26.997,12.696,1)
  pt3dadd(-1.764,28.945,13.536,1)
  pt3dadd(-1.878,29.485,13.622,2.5)
}
create a6_11
a6_11 {
  pt3dclear()
  pt3dadd(-1.878,29.485,13.622,2.5)
  pt3dadd(-2.095,30.608,13.55,1.5)
  pt3dadd(-1.239,32.838,14.476,1)
  pt3dadd(-1.315,35.452,14.664,1.5)
  pt3dadd(-1.174,36.943,14.925,1)
}
create a6_111
a6_111 {
  pt3dclear()
  pt3dadd(-1.174,36.943,14.925,1)
  pt3dadd(-0.519,37.457,14.027,1)
  pt3dadd(-0.436,39.699,13.143,1)
  pt3dadd(-1.193,41.701,11.926,1.5)
  pt3dadd(0.605,44.547,10.97,1.5)
  pt3dadd(1.665,46.572,9.84,1.5)
  pt3dadd(2.695,48.485,7.928,1.5)
  pt3dadd(5.069,49.617,5.437,1.5)
  pt3dadd(6.78,50.208,2.57,1)
  pt3dadd(11.465,52.236,-2.456,0.75)
  pt3dadd(16.881,54.097,-6.208,1)
  pt3dadd(19.804,56.312,-8.235,0.75)
  pt3dadd(21.45,57.625,-9.206,0.5)
  pt3dadd(25.175,58.006,-11.002,0.5)
  pt3dadd(30.1,60.929,-14.087,0.5)
  pt3dadd(31.399,61.915,-15.637,0.5)
  pt3dadd(34.727,65.641,-17.897,1)
  pt3dadd(37.322,67.599,-19.476,0.5)
  pt3dadd(39.85,71.239,-21.533,0.5)
  pt3dadd(42.627,72.909,-24.676,0.5)
  pt3dadd(47.687,73.441,-35.016,1)
  pt3dadd(49.702,75.164,-40.216,1)
  pt3dadd(51.012,76.192,-42.011,0.5)
  pt3dadd(54.577,77.905,-45.111,0.5)
  pt3dadd(58.669,80.617,-47.255,1)
  pt3dadd(61.32,82.784,-50.065,0.5)
  pt3dadd(63.745,85.073,-50.326,0.5)
  pt3dadd(65.573,88.032,-50.5,0.5)
  pt3dadd(67.781,91.443,-50.834,0.5)
  pt3dadd(68.969,93.943,-51.877,0.5)
  pt3dadd(68.998,96.949,-51.11,0.5)
}
create a6_112
a6_112 {
  pt3dclear()
  pt3dadd(-1.174,36.943,14.925,1)
  pt3dadd(-1.106,39.13,20.124,0.25)
  pt3dadd(-0.84,40.123,20.051,2)
  pt3dadd(-0.404,43.68,22.961,2)
  pt3dadd(1.017,46.088,24.96,1.5)
  pt3dadd(2.037,47.959,27.61,0.5)
  pt3dadd(2.123,50.215,29.521,0.5)
  pt3dadd(3.972,52.284,32.75,1.5)
  pt3dadd(4.794,54.388,34.415,0.5)
  pt3dadd(6.025,56.083,36.283,1)
  pt3dadd(7.636,58.23,37.992,1)
  pt3dadd(8.7,60.269,39.657,0.25)
  pt3dadd(11.572,63.263,42.075,0.25)
  pt3dadd(13.475,64.568,43.653,1.5)
  pt3dadd(14.559,65.716,44.406,1.75)
}
create a6_1121
a6_1121 {
  pt3dclear()
  pt3dadd(14.559,65.716,44.406,1.75)
  pt3dadd(15.261,65.438,44.898,1.5)
  pt3dadd(18.081,66.302,44.666,1)
  pt3dadd(23.136,67.782,46.418,1)
  pt3dadd(25.605,68.304,47.128,0.75)
  pt3dadd(28.178,68.245,47.997,1)
  pt3dadd(30.966,69.957,48.923,1)
  pt3dadd(33.604,71.109,50.255,0.5)
  pt3dadd(35.77,72.433,51.341,1)
  pt3dadd(39.548,73.01,54.151,1)
  pt3dadd(44.525,74.196,57.626,1.5)
  pt3dadd(45.783,75.029,59.856,1)
  pt3dadd(48.826,75.758,62.912,1)
  pt3dadd(50.313,77.444,63.013,0.5)
  pt3dadd(52.547,79.02,66.937,0.5)
  pt3dadd(56.177,80.012,70.572,1)
  pt3dadd(58.317,81.238,73.671,0.5)
  pt3dadd(58.382,83.41,76.074,1)
  pt3dadd(60.163,85.227,80.781,0.5)
  pt3dadd(62.716,85.098,84.937,0.5)
  pt3dadd(63.038,84.368,89.905,0.5)
  pt3dadd(63.488,84.113,90.643,0.5)
}
create a6_1122
a6_1122 {
  pt3dclear()
  pt3dadd(14.559,65.716,44.406,1.75)
  pt3dadd(14.423,66.173,44.985,1)
  pt3dadd(14.377,70.833,48.315,0.5)
  pt3dadd(14.877,76.562,53.63,1.5)
  pt3dadd(14.767,79.051,54.556,1.5)
  pt3dadd(14.266,81.044,55.888,2)
  pt3dadd(13.788,83.122,56.728,1)
  pt3dadd(14.78,84.895,57.075,1)
  pt3dadd(14.948,88.418,57.683,1.5)
  pt3dadd(14.724,91.447,58.696,0.5)
  pt3dadd(14.606,94.868,60.289,1.5)
  pt3dadd(13.033,101.556,63.387,0.5)
  pt3dadd(11.464,106.325,66.92,0.5)
  pt3dadd(10.934,110.141,69.831,0.5)
  pt3dadd(11.324,113.531,73.726,0.5)
  pt3dadd(9.072,118.648,77.795,0.5)
}
a6_112 connect a6_1121(0),1
a6_112 connect a6_1122(0),1
a6_11 connect a6_111(0),1
a6_11 connect a6_112(0),1
create a6_12
a6_12 {
  pt3dclear()
  pt3dadd(-1.878,29.485,13.622,2.5)
  pt3dadd(-4.598,29.959,13.579,0.5)
  pt3dadd(-5.38,32.838,14.795,1)
  pt3dadd(-6.962,38.524,16.199,1)
  pt3dadd(-9.215,41.707,17.908,1)
  pt3dadd(-13.08,45.637,22.209,0.5)
  pt3dadd(-13.639,48.38,22.397,0.25)
  pt3dadd(-15.4,50.502,23.439,0.75)
  pt3dadd(-18.954,51.724,26.277,1)
  pt3dadd(-22.499,55.883,28.855,1)
  pt3dadd(-23.745,58.961,31.099,1)
  pt3dadd(-28.061,62.172,34.242,1.5)
  pt3dadd(-31.135,65.185,36.645,1)
  pt3dadd(-34.779,68.006,39.498,0.5)
  pt3dadd(-39.174,70.923,40.048,1)
  pt3dadd(-41.929,74.165,40.728,1)
  pt3dadd(-45.601,77.848,43.219,1)
  pt3dadd(-46.824,81.01,44.971,0.25)
  pt3dadd(-50.051,82.489,47.36,1)
  pt3dadd(-56.075,85.124,51.85,0.5)
  pt3dadd(-59.549,85.68,55.34,1)
  pt3dadd(-60.528,86.857,57.527,1)
  pt3dadd(-66.766,91.588,62.363,0.5)
  pt3dadd(-69.588,94.579,64.521,0.5)
  pt3dadd(-75.265,97.54,69.589,1)
  pt3dadd(-76.075,101.28,70.443,0.5)
  pt3dadd(-75.602,104.977,71.094,0.5)
  pt3dadd(-77.966,106.779,69.009,0.5)
  pt3dadd(-80.961,107.192,69.704,0.5)
  pt3dadd(-82.957,107.472,69.661,0.5)
  pt3dadd(-84.592,109.095,70.37,0.5)
}
a6_1 connect a6_11(0),1
a6_1 connect a6_12(0),1
create soma
access soma
pt3dclear()
pt3dadd(0,0.1,0,10)
pt3dadd(0,0,10.4946,10)
// Soma as sphere: radius = 5


access soma
connect a1_1(0),1
connect a2_1(0),1
connect a3_1(0),1
connect a4_1(0),1
connect a5_1(0),1
connect a6_1(0),1
define_shape()
has_ais = 0
}

//  spine area adjustment.
//  
//  Stratford, K. and Mason, A. and Larkman, A. and Major, G. and Jack, J.J.B.
//  The modelling of pyramidal neurones in the visual cortex
//  in: The Computing Neuron
//  Addison-Wessley, London,1989
//
//  F=(area(shafts)+area(spines))/area(shaft)
//  orig. area:14237.052 (w/out soma)
//  nof spines assumed: 2000
//  spine area: 1mu^2
//  => F=1.1404785, F^(2/3)=1.0915863, F^(1/3)= 1.0447901
//  L=L*F^(2/3), diam=diam*F^(1/3)

proc adjust_for_spines(){
        a1_1 { L=34.390147 diam=1.819205}
        a1_11 { L=68.483703 diam=0.997934}
       // a1_111 { L=62.535396 diam=0.696510}
        a1_112 { L=61.669519 diam=0.632935}
        a1_12 { L=14.368626 diam=1.416220}
        a1_121 { L=8.177001 diam=1.641090}
        a1_1211 { L=133.240552 diam=0.666859}
        a1_1212 { L=148.813174 diam=0.847775}
        a1_122 { L=28.782990 diam=1.166198}
        a1_1221 { L=89.338622 diam=0.706548}
        a1_1222 { L=136.433770 diam=0.878420}
        a2_1 { L=17.100449 diam=2.195357}
        a2_11 { L=17.156943 diam=1.634364}
        a2_111 { L=149.477843 diam=0.833264}
        a2_112 { L=25.848190 diam=1.192623}
        a2_1121 { L=45.472266 diam=1.014417}
        a2_11211 { L=90.803134 diam=0.829245}
        a2_11212 { L=0.472587 diam=0.914191}
        a2_1122 { L=4.926266 diam=1.890565}
        a2_11221 { L=129.078262 diam=0.692439}
        a2_11222 { L=139.902779 diam=0.810705}
        a2_12 { L=22.292680 diam=1.699071}
        a2_121 { L=184.847341 diam=0.689598}
        a2_122 { L=9.074902 diam=1.465595}
        a2_1221 { L=165.525230 diam=0.811253}
        a2_1222 { L=155.351865 diam=0.632135}
        a3_1 { L=16.607333 diam=2.807134}
        a3_11 { L=9.980110 diam=2.921392}
        a3_111 { L=17.595634 diam=1.966757}
        a3_1111 { L=126.370449 diam=0.767816}
        a3_1112 { L=6.361833 diam=1.305988}
        a3_11121 { L=123.452911 diam=0.732198}
        a3_11122 { L=14.112429 diam=1.383416}
        a3_111221 { L=148.188587 diam=0.658382}
        a3_111222 { L=34.306294 diam=0.659052}
        a3_1112221 { L=79.704822 diam=0.565962}
        a3_1112222 { L=84.832306 diam=0.608136}
        a3_112 { L=60.696733 diam=0.772810}
        a3_1121 { L=154.393086 diam=0.788591}
        a3_1122 { L=142.068702 diam=0.771678}
        a3_12 { L=54.800488 diam=1.316529}
        a3_121 { L=158.006912 diam=1.154380}
        a3_122 { L=9.649263 diam=1.566729}
        a3_1221 { L=113.530285 diam=0.931563}
        a3_1222 { L=137.782564 diam=0.836840}
        a4_1 { L=14.832008 diam=1.281789}
        a4_11 { L=37.147109 diam=0.812587}
        a4_111 { L=129.399290 diam=0.707799}
        a4_112 { L=114.670626 diam=0.658302}
        a4_12 { L=148.454640 diam=0.538586}
        a5_1 { L=13.130268 diam=3.819342}
        a5_11 { L=13.320815 diam=2.073422}
        a5_111 { L=11.071810 diam=1.956908}
        a5_1111 { L=19.096291 diam=1.255808}
        a5_11111 { L=130.633861 diam=0.828932}
        a5_11112 { L=153.867169 diam=0.766397}
        a5_1112 { L=6.507576 diam=1.567185}
        a5_11121 { L=130.638751 diam=0.786940}
        a5_11122 { L=10.539854 diam=1.322201}
        a5_111221 { L=130.232168 diam=0.684420}
        a5_111222 { L=93.850676 diam=0.594004}
        a5_112 { L=11.536949 diam=1.997661}
        a5_1121 { L=34.661888 diam=0.966842}
        a5_11211 { L=112.201944 diam=0.783928}
        a5_11212 { L=35.139205 diam=1.154912}
        a5_112121 { L=33.968985 diam=0.531780}
        a5_112122 { L=111.568374 diam=0.830948}
        a5_1122 { L=138.183518 diam=0.712056}
        a5_12 { L=12.207728 diam=1.347562}
        a5_121 { L=23.727630 diam=0.954680}
        a5_1211 { L=145.285949 diam=0.869737}
        a5_1212 { L=149.127617 diam=0.811201}
        a5_122 { L=135.856439 diam=0.743729}
        a6_1 { L=26.654631 diam=1.398432}
        a6_11 { L=8.568921 diam=1.420386}
        a6_111 { L=137.065073 diam=0.830436}
        a6_112 { L=50.564019 diam=1.024597}
        a6_1121 { L=84.821278 diam=0.891053}
        a6_1122 { L=70.867878 diam=0.924500}
        a6_12 { L=153.180765 diam=0.849273}
}
proc init(){
		objref all,dends,segdends,Esyn,Esourse[2]
		all=new SectionList()
		dends = new SectionList()
		segdends = new SectionList()
		Esyn=new List()
		Enetcon=new List()
		Esourse[0]=new Vector()
		Esourse[1]=new Vector()
		Isyn=new List()
		Inetcon=new List()
		//makecell()
		m1()
		m2()
		m3()
		m4()
		m5()

		access soma
		//dends.append()

		distance()
		numdend=-1
		forall{
			numdend=numdend+1
			dends.append()
			segdends.append()
			all.append()
			for i=0,n3d()-1{
				pt3dchange(i,x3d(i)+$1,y3d(i)+$2,z3d(i),diam3d(i))	
			}
			if (diam<=2){diam=1}
			nseg=9

			//insert pas
			//e_pas=-60
			//g_pas=1/10000
			cm=1
			Ra=100

		}


		soma dends.remove()
		soma segdends.remove()					
		objref apcounter,apvec,nil
		numdend=0
		forsec dends{numdend=numdend+1}
		apvec=new Vector()
		access soma
		apcounter=new NetCon(&v(.5), nil)
		apcounter.threshold = -20 
		apcounter.record(apvec)
		//saving voltage vectors
		objref Vvec[numdend+1],spikevec[numdend+1]
		i=0
		forsec dends {
			Vvec[i]=new Vector()
			Vvec[i].record(&v(0.9))
			spikevec[i]=new Vector()
			i=i+1
		}
		Vvec[numdend]=new Vector()
		Vvec[numdend].record(&soma.v(0.5))
		//dends = new SectionList()
}

endtemplate celltemplate



Loading data, please wait...