Four cortical interneuron subtypes (Kubota et al. 2011)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:140299
" ... Using electron microscopy and serial reconstructions, we analyzed the dendritic trees of four morphologically distinct neocortical interneuron subtypes to reveal two underlying organizational principles common to all. First, cross-sectional areas at any given point within a dendrite were proportional to the summed length of all dendritic segments distal to that point. ... Second, dendritic cross-sections became progressively more elliptical at more proximal, larger diameter, dendritic locations. Finally, computer simulations revealed that these conserved morphological features limit distance dependent filtering of somatic EPSPs and facilitate distribution of somatic depolarization into all dendritic compartments. ..."
Reference:
1 . Kubota Y, Karube F, Nomura M, Gulledge AT, Mochizuki A, Schertel A, Kawaguchi Y (2011) Conserved properties of dendritic trees in four cortical interneuron subtypes. Sci Rep 1:89 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Dendrite;
Brain Region(s)/Organism: Neocortex;
Cell Type(s):
Channel(s):
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s):
Implementer(s): Nomura, Masaki [nomura at rcai.riken.jp];
proc celldef() {
    topol()
    subsets()
    geomL()
    geom_nseg()
    geom()
    biophys()
    //    geom_nseg()
}

create soma, dend[57]
strdef celltype
celltype="BE17B"
numTree=31
shortR=11.84

proc topol() { local i
    connect dend[0](0), soma(0.449805879) //dend5
    connect dend[1](0), soma(0.33166944) //dend4
    connect dend[2](0), soma(0.109262341) //dend3
    connect dend[3](0), soma(0.109262341) //dend2
    connect dend[4](0), soma(0.226844149) //dend1
    for i = 5, 6 connect dend[i](0), dend[0](1)
    for i = 7, 8 connect dend[i](0), dend[2](1)
    for i = 9, 10 connect dend[i](0), dend[4](1)
    for i = 11, 12 connect dend[i](0), dend[5](1)
    for i = 13, 14 connect dend[i](0), dend[6](1)
    for i = 15, 16 connect dend[i](0), dend[8](1)
    for i = 17, 18 connect dend[i](0), dend[9](1)
    for i = 19, 20 connect dend[i](0), dend[10](1)
    for i = 21, 22 connect dend[i](0), dend[12](1)
    for i = 23, 24 connect dend[i](0), dend[14](1)
    for i = 25, 26 connect dend[i](0), dend[19](1)
    for i = 27, 28 connect dend[i](0), dend[20](1)
    for i = 29, 30 connect dend[i](0), dend[21](1)
    for i = 31, 32 connect dend[i](0), dend[23](1)
    for i = 33, 34 connect dend[i](0), dend[24](1)
    for i = 35, 36 connect dend[i](0), dend[26](1)
    for i = 37, 38 connect dend[i](0), dend[27](1)
    for i = 39, 40 connect dend[i](0), dend[28](1)
    for i = 41, 42 connect dend[i](0), dend[31](1)
    for i = 43, 44 connect dend[i](0), dend[39](1)
    for i = 45, 46 connect dend[i](0), dend[40](1)
    for i = 47, 48 connect dend[i](0), dend[35](1)
    for i = 49, 50 connect dend[i](0), dend[30](1)
    for i = 51, 52 connect dend[i](0), dend[13](1)
    for i = 53, 54 connect dend[i](0), dend[52](1)
    for i = 55, 56 connect dend[i](0), dend[53](1)
    basic_shape()
}

proc shape3d_soma() {
    soma {pt3dclear()
	pt3dadd(0,0,0,5.662518766) //0
	pt3dadd(0,0,1.97,8.89607294)
	pt3dadd(0,0,4.09,12.3293691)
	pt3dadd(0,0,5.98,14.68688545)
	pt3dadd(0,0,8.11,14.71663412)
	pt3dadd(0,0,10.07,13.07518337)
	pt3dadd(0,0,11.97,12.13272614)
	pt3dadd(0,0,14.01,9.597480065)
	pt3dadd(0,0,15.98,7.907281559)
	pt3dadd(0,0,18.03,5.035859009) //1
    }
}

proc shape3d_dend5_1() {
  dend[0] {pt3dclear()
//	pt3dstyle(1, 6.6089, 6.88196, 1.17491)
	pt3dadd(6.36742, -3.08492, 1.18443, 2.01)
	pt3dadd(5.94742, -5.33492, 1.18443, 2.01)
	pt3dadd(5.02743, -8.64492, 1.18443, 2.01)
	pt3dadd(5.39743, -10.7949, 1.18443, 2.01)
	pt3dadd(5.19742, -13.2149, 1.18443, 2.01)
	pt3dadd(4.14743, -14.9549, 1.18443, 2.01)
	pt3dadd(5.09742, -16.8249, 1.18443, 2.01)
    }
}

proc shape3d_dend4() {
    dend[1] {pt3dclear()
//	pt3dstyle(1, 6.6089, 6.88196, 1.17491)
	pt3dadd(-0.0925749, 0.665075, -1.18557, 2.01)
	pt3dadd(-2.39257, -0.424925, -4.42557, 2.01)
	pt3dadd(-6.22257, -2.12492, -8.09557, 2.01)
	pt3dadd(-8.91257, -3.26493, -10.4256, 1.72)
	pt3dadd(-9.99257, -4.60492, -13.1756, 1.72)
	pt3dadd(-11.3226, -5.37493, -15.2856, 1.72)
	pt3dadd(-12.8326, -6.36492, -15.6556, 1.72)
	pt3dadd(-14.2426, -8.54493, -17.6556, 1.72)
	pt3dadd(-15.8326, -10.9449, -18.1956, 1.72)
	pt3dadd(-15.6726, -12.9249, -18.5756, 1.72)
	pt3dadd(-16.3026, -15.0049, -20.0356, 1.72)
	pt3dadd(-16.6626, -15.4449, -19.3356, 1.72)
	pt3dadd(-17.3226, -17.1249, -20.3556, 1.72)
	pt3dadd(-17.5626, -17.8249, -21.8656, 1.43)
	pt3dadd(-17.7826, -20.6349, -23.3856, 1.43)
	pt3dadd(-17.6826, -22.2149, -25.4356, 1.43)
	pt3dadd(-17.5826, -23.8049, -26.1856, 1.43)
	pt3dadd(-19.2626, -25.3849, -27.6456, 1.43)
	pt3dadd(-18.9826, -26.7449, -28.5156, 1.43)
	pt3dadd(-19.1426, -27.3549, -30.5056, 0.86)
    }
}

proc shape3d_dend3_1() {
    dend[2] {pt3dclear()
//	pt3dstyle(1, 6.6089, 6.88196, 1.17491)
	pt3dadd(11.0774, 17.3651, -3.67557, 1.43)
	pt3dadd(11.1574, 18.7751, -3.67557, 1.43)
	pt3dadd(10.8174, 20.5251, -4.85557, 1.43)
	pt3dadd(11.7174, 21.6351, -4.85557, 1.43)
	pt3dadd(12.4074, 22.9251, -4.85557, 1.43)
	pt3dadd(13.6774, 24.4851, -5.39557, 1.43)
	pt3dadd(13.8274, 25.1051, -5.93557, 1.43)
	pt3dadd(13.0874, 26.8051, -5.77557, 1.43)
	pt3dadd(13.4374, 29.8451, -4.80557, 1.43)
	pt3dadd(13.8174, 32.4851, -6.80557, 1.43)
	pt3dadd(14.0174, 34.9051, -7.72557, 1.43)
	pt3dadd(15.4674, 36.6951, -7.72557, 1.43)
	pt3dadd(16.0074, 37.3651, -7.72557, 1.43)
	pt3dadd(16.0874, 38.7651, -7.72557, 1.43)
	pt3dadd(14.7574, 40.5951, -7.72557, 1.43)
	pt3dadd(14.9874, 42.6151, -8.20557, 1.43)
	pt3dadd(15.2174, 44.6451, -8.20557, 1.43)
	pt3dadd(15.5974, 47.2851, -7.99557, 1.43)
	pt3dadd(14.6574, 49.1651, -6.69557, 1.43)
	pt3dadd(14.8874, 51.1851, -6.69557, 1.43)
	pt3dadd(13.9374, 53.0651, -5.29557, 1.43)
	pt3dadd(13.3074, 53.5751, -6.20557, 1.43)
	pt3dadd(13.2374, 54.3651, -6.96557, 1.43)
	pt3dadd(12.5074, 56.0651, -6.96557, 1.43)
	pt3dadd(13.9074, 57.6051, -5.45557, 1.43)
	pt3dadd(14.8374, 58.3251, -5.23557, 1.43)
	pt3dadd(14.4674, 60.4751, -5.18557, 1.43)
	pt3dadd(15.1874, 61.3651, -4.04557, 1.43)
	pt3dadd(15.3074, 62.3851, -4.04557, 1.43)
	pt3dadd(14.3274, 64.6451, -3.99557, 1.43)
	pt3dadd(13.8374, 65.7851, -5.56557, 1.43)
	pt3dadd(13.6474, 68.1551, -6.20557, 1.43)
	pt3dadd(13.6974, 69.9551, -7.12557, 1.43)
	pt3dadd(14.7474, 71.6851, -8.85557, 1.43)
	pt3dadd(14.8674, 72.7051, -9.23557, 1.43)
    }
}

proc shape3d_dend2() {
    dend[3] {pt3dclear()
//	pt3dstyle(1, 6.6089, 6.88196, 1.17491)
	pt3dadd(11.1074, 14.0951, -4.75557, 1.72)
	pt3dadd(12.0374, 14.8151, -5.45557, 1.72)
	pt3dadd(13.3074, 16.3751, -5.88557, 1.72)
	pt3dadd(14.6674, 16.7451, -7.55557, 1.72)
	pt3dadd(15.7474, 18.0851, -8.09557, 1.72)
	pt3dadd(17.7974, 19.7451, -8.15557, 1.72)
	pt3dadd(17.8474, 21.5551, -8.15557, 1.72)
	pt3dadd(17.6874, 23.5251, -8.15557, 1.72)
	pt3dadd(18.3174, 25.6051, -10.0456, 1.72)
	pt3dadd(18.2474, 26.3951, -10.0456, 1.72)
	pt3dadd(19.2074, 29.3151, -11.7756, 1.72)
	pt3dadd(18.3574, 29.9951, -11.7756, 1.72)
	pt3dadd(18.1974, 31.9751, -13.6656, 1.72)
	pt3dadd(18.3474, 32.5951, -14.7456, 1.72)
	pt3dadd(18.8874, 33.2651, -14.7456, 1.72)
	pt3dadd(18.7274, 35.2351, -14.9056, 1.72)
	pt3dadd(18.2374, 36.3751, -15.6556, 1.72)
	pt3dadd(17.1774, 37.2351, -14.6856, 1.72)
	pt3dadd(16.6274, 39.1551, -14.2056, 1.72)
	pt3dadd(17.8174, 41.5051, -12.6856, 1.72)
	pt3dadd(17.0874, 43.2051, -13.3356, 1.72)
	pt3dadd(16.5674, 44.7351, -13.3356, 1.72)
	pt3dadd(16.7974, 46.7651, -14.1456, 1.72)
	pt3dadd(16.1674, 47.2751, -14.2056, 1.72)
	pt3dadd(15.6074, 49.2051, -14.2056, 1.72)
	pt3dadd(16.4774, 50.7151, -14.2056, 1.72)
	pt3dadd(17.7174, 52.6651, -14.3056, 1.72)
	pt3dadd(17.4074, 54.0251, -14.4156, 1.72)
	pt3dadd(16.7674, 54.5451, -15.3856, 1.72)
	pt3dadd(15.9974, 56.6351, -14.8456, 1.72)
	pt3dadd(15.4774, 58.1651, -15.3856, 1.72)
	pt3dadd(15.7474, 59.7951, -15.3856, 1.72)
	pt3dadd(15.6174, 61.3751, -15.3856, 1.72)
	pt3dadd(15.4874, 62.9551, -15.3856, 1.72)
	pt3dadd(15.6074, 63.9751, -15.3856, 1.72)
	pt3dadd(14.9674, 64.4851, -14.7456, 1.72)
	pt3dadd(16.6274, 66.0951, -14.9056, 1.72)
	pt3dadd(17.3474, 66.9951, -15.2856, 1.72)
	pt3dadd(18.3174, 67.3151, -16.6856, 1.72)
	pt3dadd(19.0674, 67.8151, -16.6856, 1.72)
	pt3dadd(18.9674, 68.9951, -16.0956, 1.72)
	pt3dadd(19.2974, 69.8351, -16.0356, 1.72)
	pt3dadd(18.8074, 70.9751, -15.3856, 1.72)
	pt3dadd(19.8674, 72.7051, -15.3856, 1.72)
	pt3dadd(21.4874, 74.7151, -15.3856, 1.72)
	pt3dadd(22.2074, 75.6051, -15.3856, 1.72)
	pt3dadd(22.2574, 77.1651, -15.3856, 1.72)
	pt3dadd(21.7374, 78.6951, -14.0356, 1.72)
	pt3dadd(21.6474, 79.8851, -14.0356, 1.72)
	pt3dadd(21.9374, 81.1151, -14.0356, 1.72)
	pt3dadd(21.3874, 83.0451, -14.0356, 1.72)
	pt3dadd(22.2874, 84.1551, -14.4756, 1.72)
	pt3dadd(23.1274, 86.0651, -14.4756, 1.72)
	pt3dadd(24.0974, 86.3851, -14.4756, 1.72)
	pt3dadd(24.9974, 87.5051, -14.2556, 1.72)
	pt3dadd(24.4774, 89.0351, -14.2556, 1.72)
	pt3dadd(24.5274, 90.8351, -14.2556, 1.72)
	pt3dadd(24.4074, 92.4151, -14.2556, 1.72)
	pt3dadd(25.3374, 93.1351, -14.2556, 1.72)
	pt3dadd(25.2074, 94.7151, -13.0656, 1.72)
	pt3dadd(24.7574, 95.4551, -13.0156, 1.72)
	pt3dadd(25.8374, 96.7951, -13.0156, 1.72)
	pt3dadd(25.2274, 96.9151, -12.2056, 1.72)
	pt3dadd(27.4274, 99.1951, -12.2556, 1.72)
	pt3dadd(27.8374, 101.445, -12.2556, 1.72)
	pt3dadd(28.1074, 103.075, -12.2556, 1.72)
	pt3dadd(27.7674, 104.825, -12.2056, 1.72)
	pt3dadd(27.6674, 106.015, -12.2056, 1.72)
	pt3dadd(28.7874, 106.955, -12.2056, 1.72)
	pt3dadd(29.2674, 108.415, -12.2056, 1.72)
	pt3dadd(29.9574, 109.695, -10.5856, 1.72)
	pt3dadd(30.8874, 110.415, -10.5856, 1.72)
	pt3dadd(31.1574, 112.045, -8.36557, 1.72)
	pt3dadd(31.8474, 113.335, -8.31557, 1.72)
	pt3dadd(32.4674, 115.415, -8.31557, 1.72)
	pt3dadd(33.7374, 116.975, -8.31557, 1.72)
	pt3dadd(34.2474, 118.035, -8.36557, 1.72)
	pt3dadd(35.1774, 118.755, -7.82557, 1.72)
	pt3dadd(36.0174, 120.665, -7.82557, 1.72)
	pt3dadd(36.4574, 122.515, -7.82557, 1.72)
	pt3dadd(37.2674, 124.815, -7.82557, 1.72)
	pt3dadd(38.1074, 126.715, -7.23557, 1.72)
	pt3dadd(39.4574, 127.485, -6.53557, 1.72)
	pt3dadd(40.2774, 127.195, -6.53557, 1.72)
	pt3dadd(40.8174, 127.855, -6.53557, 1.72)
	pt3dadd(41.5474, 128.755, -6.53557, 1.72)
	pt3dadd(41.1674, 130.895, -5.56557, 1.72)
	pt3dadd(41.4374, 132.525, -4.15557, 1.72)
	pt3dadd(42.3374, 133.645, -4.10557, 1.72)
	pt3dadd(43.0274, 134.935, -2.80557, 1.72)
	pt3dadd(44.0774, 136.665, -2.80557, 1.72)
	pt3dadd(45.3074, 138.615, -2.80557, 1.72)
	pt3dadd(45.2174, 139.805, -3.02557, 1.72)
	pt3dadd(46.0874, 141.315, -2.96557, 1.72)
	pt3dadd(47.0574, 141.635, -2.48557, 1.72)
	pt3dadd(49.5274, 142.955, -1.88557, 1.72)
	pt3dadd(52.4574, 143.535, -1.34557, 1.72)
	pt3dadd(53.6074, 144.085, -1.34557, 1.72)
	pt3dadd(54.1474, 144.755, -1.34557, 1.72)
	pt3dadd(54.7774, 146.825, -1.02557, 1.72)
	pt3dadd(56.4274, 148.435, -1.02557, 1.72)
	pt3dadd(56.9374, 149.505, -1.02557, 1.72)
	pt3dadd(56.0274, 150.985, -1.02557, 1.72)
	pt3dadd(55.3874, 151.495, -0.805571, 1.72)
	pt3dadd(56.2274, 153.405, -0.755571, 1.72)
	pt3dadd(58.1474, 156.645, -0.755571, 1.72)
	pt3dadd(58.5274, 159.285, -0.325571, 1.72)
	pt3dadd(58.8974, 159.735, 0.484429, 1.72)
	pt3dadd(59.3374, 161.585, 0.484429, 1.72)
	pt3dadd(59.2374, 162.775, 0.704429, 1.72)
	pt3dadd(58.3574, 163.855, 0.704429, 1.72)
	pt3dadd(57.6874, 164.765, 0.704429, 1.15)
	pt3dadd(58.1974, 165.835, 0.214429, 1.15)
	pt3dadd(58.5274, 166.675, 0.214429, 1.15)
	pt3dadd(58.5474, 168.875, -0.215571, 1.15)
	pt3dadd(58.6974, 169.485, -0.215571, 1.15)
	pt3dadd(58.7174, 171.685, -0.215571, 1.15)
	pt3dadd(58.8074, 173.095, -0.705571, 1.15)
	pt3dadd(58.4974, 174.455, -0.645571, 1.15)
	pt3dadd(59.8774, 177.025, -0.595571, 1.15)
	pt3dadd(60.3874, 178.085, 0.214429, 1.15)
	pt3dadd(61.6174, 180.045, 0.214429, 1.15)
	pt3dadd(60.7374, 181.125, 0.214429, 1.15)
	pt3dadd(60.0974, 181.645, 1.08443, 1.15)
	pt3dadd(59.5474, 183.565, 0.104429, 1.15)
	pt3dadd(60.1974, 185.255, 0.324429, 1.15)
	pt3dadd(59.6774, 186.775, 1.08443, 1.15)
	pt3dadd(58.6674, 189.445, 1.13443, 1.15)
	pt3dadd(60.1374, 192.265, 0.814429, 1.15)
	pt3dadd(59.4974, 195.365, 3.34443, 1.15)
	pt3dadd(59.2174, 196.335, 5.13443, 1.15)
    }
}

proc shape3d_dend1_1() {
    dend[4] {pt3dclear()
//	pt3dstyle(1, 6.6089, 6.88196, 1.17491)
	pt3dadd(3.45743, 13.0551, -3.23557, 2.01)
	pt3dadd(1.90743, 15.0551, -4.04557, 2.01)
	pt3dadd(0.537425, 17.2751, -5.39557, 2.01)
	pt3dadd(-0.382575, 18.7451, -5.45557, 2.01)
	pt3dadd(-0.442575, 19.5351, -7.88557, 2.01)
    }
}

proc shape3d_dend5_2() {
    dend[5] {pt3dclear()
	pt3dadd(5.09742, -16.8249, 1.18443, 1.72)
	pt3dadd(5.82743, -18.5249, -0.645571, 1.72)
	pt3dadd(6.88742, -19.3849, -0.645571, 1.72)
	pt3dadd(7.73743, -20.0749, -0.645571, 1.72)
	pt3dadd(9.22742, -21.2749, -0.645571, 1.72)
	pt3dadd(9.20742, -23.4749, -1.29557, 1.72)
	pt3dadd(9.54742, -25.2249, -1.29557, 1.72)
	pt3dadd(10.5274, -27.4949, -1.29557, 1.72)
	pt3dadd(11.3574, -30.3849, -1.29557, 1.72)
	pt3dadd(11.6074, -33.5449, -1.29557, 1.72)
	pt3dadd(11.1374, -35.0049, -1.29557, 1.72)
	pt3dadd(10.7874, -38.0449, -1.29557, 1.72)
	pt3dadd(11.6774, -41.7149, -1.24557, 1.72)
	pt3dadd(12.0474, -43.8649, -1.83557, 1.72)
	pt3dadd(12.9274, -44.9449, -1.83557, 1.72)
	pt3dadd(12.6374, -46.1849, -1.83557, 1.72)
	pt3dadd(11.4074, -48.1349, -1.83557, 1.72)
	pt3dadd(12.4674, -49.0049, -1.83557, 1.72)
    }
}

proc shape3d_dend5_3() {
    dend[6] {pt3dclear()
	pt3dadd(5.09742, -16.8249, 1.18443, 1.43)
	pt3dadd(4.37743, -18.4949, 2.32443, 1.43)
	pt3dadd(3.52743, -17.8049, 2.21443, 1.43)
	pt3dadd(2.85743, -16.8949, 2.21443, 1.43)
	pt3dadd(2.49743, -17.3449, 2.21443, 1.43)
	pt3dadd(3.44743, -19.2149, 2.21443, 1.43)
	pt3dadd(2.02743, -21.3949, 1.24443, 1.43)
	pt3dadd(0.437425, -23.7949, 2.75443, 1.43)
	pt3dadd(0.747425, -25.1549, 2.59443, 1.43)
	pt3dadd(-0.602575, -28.1149, 2.59443, 1.43)
	pt3dadd(-0.0825749, -29.6449, 2.59443, 1.43)
	pt3dadd(-1.67257, -32.0449, 1.35443, 1.43)
	pt3dadd(-1.87257, -34.4749, 1.35443, 1.43)
	pt3dadd(-4.01258, -37.5449, 1.29443, 1.43)
	pt3dadd(-6.24257, -39.4249, 2.10443, 1.43)
	pt3dadd(-6.80258, -42.2949, 2.10443, 1.43)
	pt3dadd(-6.49257, -43.6549, 2.10443, 1.43)
	pt3dadd(-6.45257, -46.6349, 3.51443, 1.43)
	pt3dadd(-5.96257, -47.7749, 3.51443, 1.43)
	pt3dadd(-8.19258, -49.6549, 3.61443, 1.43)
	pt3dadd(-9.03258, -51.5649, 2.48443, 1.43)
	pt3dadd(-9.47257, -53.4149, 1.67443, 1.43)
	pt3dadd(-11.3426, -54.8549, 1.67443, 1.43)
	pt3dadd(-12.3026, -57.7749, 1.40443, 1.43)
	pt3dadd(-12.8926, -60.2449, 1.40443, 1.15)
    }
}

proc shape3d_dend3_2() {
    dend[7] {pt3dclear()
	pt3dadd(14.89, 73.07, -9.29, 0.86)
	pt3dadd(13.98, 74.55, -11.18, 0.86)
	pt3dadd(13.91, 75.34, -14.04, 0.86)
	pt3dadd(12.37, 74.74, -16.96, 0.86)
	pt3dadd(11.95, 75.08, -18.58, 0.86)
	pt3dadd(11.34, 75.2, -19.98, 0.86)
	pt3dadd(11.25, 75.78, -21.17, 1.15)
	pt3dadd(10.44, 76.09, -25.11, 1.15)
	pt3dadd(9.28, 75.56, -27.05, 1.15)
	pt3dadd(8.7, 75.3, -29.11, 1.15)
	pt3dadd(8.33, 74.86, -31, 1.15)
	pt3dadd(7.61, 75.58, -31, 1.43)
	pt3dadd(6.9, 76.8, -31, 1.43)
	pt3dadd(5.64, 78.07, -32.18, 1.43)
	pt3dadd(5.78, 79.49, -32.18, 1.43)
	pt3dadd(5.64, 80.95, -32.18, 1.43)
	pt3dadd(5.83, 82.95, -32.72, 1.43)
	pt3dadd(5.61, 83.54, -33.26, 1.43)
	pt3dadd(4.06, 84.56, -33.1, 1.43)
	pt3dadd(2.67, 87.28, -32.13, 1.43)
	pt3dadd(1.52, 89.69, -34.13, 1.43)
	pt3dadd(0.35, 91.82, -35.05, 1.43)
	pt3dadd(0.57, 94.11, -35.05, 1.43)
	pt3dadd(0.65, 94.96, -35.05, 1.43)
	pt3dadd(-0.06, 96.18, -35.05, 1.43)
	pt3dadd(-2.19, 96.96, -35.05, 1.43)
	pt3dadd(-3.11, 98.78, -35.53, 1.43)
	pt3dadd(-4.04, 100.59, -35.53, 1.43)
	pt3dadd(-5.19, 103, -35.32, 1.43)
	pt3dadd(-7.01, 104.04, -34.02, 1.43)
	pt3dadd(-7.94, 105.86, -34.02, 1.43)
	pt3dadd(-9.76, 106.89, -32.62, 1.43)
	pt3dadd(-10.58, 106.97, -33.53, 1.43)
	pt3dadd(-11.07, 107.59, -34.29, 1.43)
	pt3dadd(-12.62, 108.6, -34.29, 1.43)
	pt3dadd(-12.31, 110.66, -32.78, 1.43)
	pt3dadd(-11.93, 111.78, -32.56, 1.43)
	pt3dadd(-13.43, 113.36, -32.51, 1.43)
    }
}

proc shape3d_dend3_3() {
    dend[8] {pt3dclear()
	pt3dadd(14.8674, 72.7051, -9.23557, 1.15)
	pt3dadd(15.4974, 74.7751, -8.80557, 1.15)
	pt3dadd(14.7874, 76.0851, -7.93557, 1.15)
	pt3dadd(13.9074, 77.1651, -7.99557, 1.15)
	pt3dadd(13.8974, 79.7651, -7.99557, 1.15)
	pt3dadd(13.6774, 82.5251, -8.47557, 1.15)
	pt3dadd(12.7974, 83.6051, -8.47557, 1.15)
    }
}

proc shape3d_dend1_2() {
    dend[9] {pt3dclear()
	pt3dadd(-0.442575, 19.5351, -7.88557, 1.43)
	pt3dadd(0.667425, 20.4851, -7.88557, 1.43)
	pt3dadd(1.39743, 21.3751, -8.42557, 1.43)
	pt3dadd(0.147425, 22.0151, -11.0656, 1.15)
	pt3dadd(-0.302575, 22.7451, -11.0656, 1.15)
	pt3dadd(-1.53257, 25.5851, -12.7456, 1.15)
	pt3dadd(-1.62257, 26.7751, -14.3056, 1.15)
	pt3dadd(-2.68257, 27.6351, -14.3056, 1.15)
	pt3dadd(-3.60257, 29.1051, -15.1756, 1.15)
	pt3dadd(-4.18257, 31.4251, -15.2256, 1.15)
	pt3dadd(-4.85257, 32.3351, -15.3856, 1.15)
	pt3dadd(-4.77257, 33.7451, -16.5756, 1.15)
	pt3dadd(-4.29257, 35.2051, -15.2256, 1.15)
	pt3dadd(-4.78258, 36.3451, -16.3656, 1.15)
	pt3dadd(-4.51257, 37.9751, -16.7356, 1.15)
	pt3dadd(-3.74257, 40.6651, -16.8456, 1.15)
	pt3dadd(-4.10257, 40.8951, -16.8456, 1.15)
	pt3dadd(-4.15258, 41.6851, -16.9056, 1.15)
	pt3dadd(-3.89257, 43.7051, -18.6256, 1.15)
    }
}

proc shape3d_dend1_3() {
    dend[10] {pt3dclear()
	pt3dadd(-0.442575, 19.5351, -7.88557, 1.15)
	pt3dadd(-1.99257, 21.5351, -7.93557, 1.15)
	pt3dadd(-2.45257, 22.2751, -7.99557, 1.15)
	pt3dadd(-3.15258, 23.5751, -7.99557, 1.15)
	pt3dadd(-3.82257, 24.4951, -8.53557, 1.15)
	pt3dadd(-5.24257, 24.9051, -9.34557, 1.15)
	pt3dadd(-5.24257, 24.9051, -9.34557, 1.15)
    }
}

proc shape3d_dend5_4() {
    dend[11] {pt3dclear()
	pt3dadd(12.4674, -49.0049, -1.83557, 1.72)
	pt3dadd(13.9274, -50.1049, -2.75557, 1.72)
	pt3dadd(16.4074, -51.3749, -3.34557, 1.72)
	pt3dadd(17.2574, -52.0649, -3.34557, 1.72)
	pt3dadd(19.0774, -52.4249, -4.53557, 1.72)
	pt3dadd(20.3274, -55.6549, -4.48557, 1.43)
	pt3dadd(21.6674, -57.4849, -4.48557, 1.43)
	pt3dadd(22.4674, -59.9749, -4.48557, 1.43)
	pt3dadd(24.5574, -61.2949, -5.50557, 1.43)
	pt3dadd(25.2574, -62.6049, -5.45557, 1.43)
	pt3dadd(25.1774, -64.0149, -4.26557, 1.43)
	pt3dadd(24.7274, -65.8649, -4.21557, 0.86)
	pt3dadd(26.3674, -66.4549, -4.21557, 0.86)
	pt3dadd(26.4474, -69.8349, -3.29557, 0.86)
	pt3dadd(25.5374, -70.9549, -3.29557, 0.86)
	pt3dadd(28.3374, -73.5849, -3.29557, 0.86)
	pt3dadd(28.0674, -75.2149, -3.29557, 0.86)
	pt3dadd(29.4774, -77.8249, -3.29557, 0.86)
	pt3dadd(29.1874, -81.6549, -4.26557, 0.86)
	pt3dadd(29.7174, -85.7749, -4.42557, 0.86)
	pt3dadd(29.4274, -87.0149, -4.42557, 0.86)
	pt3dadd(30.5174, -88.2649, -5.72557, 0.86)
	pt3dadd(31.1574, -88.7849, -5.83557, 0.86)
	pt3dadd(34.2474, -90.1849, -5.83557, 0.86)
	pt3dadd(35.7974, -92.1749, -5.83557, 0.86)
	pt3dadd(37.2374, -95.1849, -5.88557, 0.86)
	pt3dadd(37.6274, -95.1349, -5.93557, 0.86)
	pt3dadd(37.4274, -97.5549, -5.72557, 0.86)
	pt3dadd(38.3374, -99.0349, -5.02557, 0.86)
	pt3dadd(39.6674, -98.2649, -5.02557, 0.86)
	pt3dadd(40.4974, -101.745, -4.15557, 0.86)
	pt3dadd(40.8974, -104.285, -2.75557, 0.86)
	pt3dadd(41.9674, -105.155, -2.75557, 0.86)
	pt3dadd(43.6774, -109.115, -1.94557, 0.86)
	pt3dadd(45.1074, -112.125, -1.94557, 0.86)
	pt3dadd(45.2074, -113.315, -1.94557, 0.86)
	pt3dadd(45.6974, -114.445, -1.94557, 0.86)
	pt3dadd(46.7074, -117.115, -1.94557, 0.86)
	pt3dadd(49.2274, -118.785, -1.94557, 0.86)
	pt3dadd(48.9574, -120.415, -1.94557, 0.86)
	pt3dadd(48.1574, -122.715, -1.78557, 0.86)
	pt3dadd(49.4874, -124.535, -1.18557, 0.86)
	pt3dadd(50.9774, -125.735, -1.18557, 0.86)
	pt3dadd(52.1674, -128.175, -1.18557, 0.86)
	pt3dadd(51.8374, -129.015, -1.18557, 0.86)
	pt3dadd(52.9774, -130.375, -1.88557, 0.86)
	pt3dadd(54.5374, -134.955, -0.105571, 0.86)
	pt3dadd(54.2374, -136.195, -0.105571, 0.86)
	pt3dadd(54.0074, -138.215, -0.105571, 0.86)
	pt3dadd(53.8074, -140.645, 0.164429, 0.86)
	pt3dadd(55.3574, -142.635, -0.535571, 0.86)
	pt3dadd(56.0574, -143.945, -0.535571, 0.86)
	pt3dadd(56.3674, -145.295, -0.535571, 0.86)
	pt3dadd(57.8674, -149.095, -0.485571, 0.86)
	pt3dadd(58.5674, -150.405, 0.914429, 0.86)
	pt3dadd(59.0074, -153.345, 0.914429, 0.86)
	pt3dadd(60.2774, -154.375, 0.914429, 0.86)
	pt3dadd(60.2874, -156.965, 0.914429, 0.86)
	pt3dadd(61.2074, -158.445, 0.914429, 0.86)
	pt3dadd(62.4274, -161.275, 0.914429, 0.86)
	pt3dadd(63.0974, -162.195, 0.914429, 0.86)
	pt3dadd(61.8674, -164.145, 0.914429, 0.86)
	pt3dadd(63.0074, -168.395, 0.974429, 0.86)
	pt3dadd(64.5574, -170.385, 1.99443, 0.86)
	pt3dadd(64.4474, -173.995, 1.99443, 0.86)
	pt3dadd(65.9374, -175.195, 4.37443, 0.86)
	pt3dadd(66.9974, -176.055, 4.37443, 0.86)
	pt3dadd(68.7974, -178.615, 4.32443, 0.86)
	pt3dadd(69.9574, -180.665, 4.32443, 0.86)
	pt3dadd(69.9374, -182.865, 4.37443, 0.86)
	pt3dadd(72.7774, -183.695, 4.37443, 0.86)
	pt3dadd(73.1174, -185.445, 4.37443, 0.86)
	pt3dadd(75.2174, -186.765, 5.07443, 0.86)
	pt3dadd(74.5874, -188.845, 5.23443, 0.86)
	pt3dadd(73.3574, -190.805, 5.34443, 0.86)
	pt3dadd(73.9974, -191.315, 7.34443, 0.86)
	pt3dadd(73.7274, -192.945, 8.31443, 0.86)
	pt3dadd(72.6174, -193.895, 9.12443, 0.86)
	pt3dadd(69.4674, -194.295, 10.4244, 0.86)
	pt3dadd(68.7474, -195.185, 12.1544, 0.86)
	pt3dadd(69.2374, -196.325, 14.6844, 0.86)
	pt3dadd(68.9374, -197.555, 15.2244, 0.86)
	pt3dadd(69.8274, -200.625, 15.2844, 0.29)
	pt3dadd(71.5474, -201.445, 16.6344, 0.29)
	pt3dadd(72.4074, -202.535, 17.9244, 0.29)
	pt3dadd(73.8374, -203.635, 19.1744, 0.29)
	pt3dadd(76.1374, -204.725, 19.9244, 0.29)
	pt3dadd(77.5674, -204.175, 22.4644, 0.29)
	pt3dadd(79.0074, -204.455, 23.8144, 0.29)
	pt3dadd(80.4374, -205.275, 23.1644, 0.29)
	pt3dadd(82.4474, -206.635, 26.4044, 0.29)
	pt3dadd(85.3174, -208.285, 27.0544, 0.29)
	pt3dadd(86.7474, -208.825, 28.9944, 0.29)
	pt3dadd(87.3274, -208.825, 31.8644, 0.29)
    }
}

proc shape3d_dend5_5() {
    dend[12] {pt3dclear()
	pt3dadd(12.4674, -49.0049, -1.83557, 0.86)
	pt3dadd(11.0374, -49.4149, -2.37557, 0.86)
	pt3dadd(10.2974, -52.5049, -2.37557, 0.86)
	pt3dadd(9.70742, -54.9749, -2.10557, 0.86)
	pt3dadd(10.8974, -57.4149, -3.88557, 0.86)
	pt3dadd(10.8774, -59.6149, -3.88557, 0.86)
	pt3dadd(10.2774, -62.0849, -3.88557, 0.86)
	pt3dadd(10.0474, -64.1049, -4.15557, 0.86)
	pt3dadd(8.96742, -65.4449, -4.15557, 0.86)
	pt3dadd(9.41742, -66.1849, -4.15557, 0.86)
	pt3dadd(9.12742, -67.4249, -5.18557, 0.86)
	pt3dadd(9.95742, -70.3049, -5.18557, 0.86)
    }
}

proc shape3d_dend5_6() {
    dend[13] {pt3dclear()
	pt3dadd(-12.87, -59.88, 1.35, 0.86)
	pt3dadd(-11.74, -61.53, -0.7, 0.86)
	pt3dadd(-11.13, -64.24, -0.7, 0.86)
	pt3dadd(-12.36, -66.2, -1.67, 0.86)
	pt3dadd(-11.87, -67.33, -1.67, 0.86)
	pt3dadd(-14.04, -70.01, -1.78, 0.86)
	pt3dadd(-14.24, -72.43, -2.81, 0.86)
	pt3dadd(-13.83, -74.97, -0.86, 0.86)
	pt3dadd(-14.82, -77.5, -4, 0.86)
	pt3dadd(-14.82, -77.5, -4.91, 0.86)
	pt3dadd(-14.35, -80.17, -4.91, 1.15)
	pt3dadd(-16.69, -81.3, -5.78, 1.15)
	pt3dadd(-16.23, -81.72, -5.83, 1.15)
	pt3dadd(-16.05, -82.24, -5.83, 1.15)
	pt3dadd(-15.12, -84.81, -5.18, 1.15)
	pt3dadd(-15.48, -85.52, -5.18, 1.15)
	pt3dadd(-15.19, -87.16, -3.83, 1.15)
	pt3dadd(-16.41, -87.88, -4.16, 1.15)
	pt3dadd(-17.22, -88.17, -3.4, 1.15)
	pt3dadd(-17.3, -88.78, -3.46, 1.15)
	pt3dadd(-17.74, -90.1, -4.43, 1.15)
	pt3dadd(-18.63, -91.87, -5.08, 1.15)
	pt3dadd(-19.98, -92.86, -5.08, 1.15)
    }
}

proc shape3d_dend5_7() {
    dend[14] {pt3dclear()
	pt3dadd(-12.8926, -60.2449, 1.40443, 0.86)
	pt3dadd(-15.0926, -61.4449, 1.83443, 0.86)
	pt3dadd(-15.2726, -61.6649, 1.83443, 0.86)
	pt3dadd(-16.3926, -62.6049, 1.83443, 0.86)
	pt3dadd(-16.8626, -64.0649, 1.83443, 0.86)
    }
}

proc shape3d_dend3_4() {
    dend[15] {pt3dclear()
	pt3dadd(12.82, 83.97, -8.53, 1.15)
	pt3dadd(11.3, 85.57, -8.53, 1.15)
	pt3dadd(10.81, 86.71, -9.94, 1.15)
	pt3dadd(10.38, 87.05, -9.94, 1.15)
	pt3dadd(9.56, 87.35, -11.72, 1.15)
	pt3dadd(9.55, 89.94, -11.72, 1.15)
	pt3dadd(8.46, 91.19, -11.72, 1.15)
	pt3dadd(7.69, 93.29, -13.18, 1.15)
	pt3dadd(8.14, 95.14, -14.09, 1.15)
	pt3dadd(7.95, 97.51, -14.15, 1.15)
	pt3dadd(7.69, 100.68, -14.15, 1.15)
	pt3dadd(7.4, 104.23, -13.77, 1.15)
	pt3dadd(7.82, 106.48, -13.82, 1.15)
	pt3dadd(9.05, 108.43, -12.85, 1.15)
	pt3dadd(8.53, 109.96, -12.85, 1.15)
	pt3dadd(7.4, 111.61, -12.85, 1.15)
	pt3dadd(6.76, 112.13, -12.85, 1.15)
	pt3dadd(6.67, 113.32, -12.85, 1.15)
	pt3dadd(7.47, 115.62, -12.26, 1.15)
	pt3dadd(8.43, 118.53, -12.26, 1.15)
	pt3dadd(7.79, 119.05, -12.26, 1.15)
	pt3dadd(6.21, 121.44, -13.45, 1.15)
	pt3dadd(5.69, 122.97, -15.17, 1.15)
	pt3dadd(6.82, 126.11, -15.28, 1.15)
	pt3dadd(7.51, 127.89, -16.31, 1.15)
	pt3dadd(8.38, 129.4, -16.31, 1.15)
	pt3dadd(8.16, 132.17, -18.36, 1.15)
	pt3dadd(8.06, 133.35, -18.36, 1.15)
	pt3dadd(7.18, 134.43, -18.36, 1.15)
	pt3dadd(8.26, 135.77, -18.41, 1.15)
	pt3dadd(8.1, 137.75, -18.41, 1.15)
	pt3dadd(8.52, 140, -18.41, 1.15)
	pt3dadd(9.44, 143.31, -19.01, 1.15)
	pt3dadd(9.56, 144.32, -19.01, 1.15)
	pt3dadd(8.91, 147.43, -18.95, 1.15)
	pt3dadd(10.02, 148.37, -18.95, 1.15)
	pt3dadd(10.14, 149.39, -18.95, 1.15)
	pt3dadd(9.16, 151.66, -19.01, 1.15)
	pt3dadd(9.79, 153.73, -19.06, 1.15)
	pt3dadd(10.99, 156.08, -20.52, 1.15)
	pt3dadd(10.91, 156.86, -21.11, 1.15)
	pt3dadd(11.88, 157.85, -21.11, 1.15)
	pt3dadd(12.81, 158.95, -21.01, 1.15)
	pt3dadd(12.57, 159.52, -20.9, 1.15)
	pt3dadd(12.24, 161.67, -20.9, 1.15)
	pt3dadd(12.35, 163.08, -20.3, 1.15)
	pt3dadd(12.75, 166.11, -20.3, 1.15)
	pt3dadd(14.36, 168.88, -21.92, 1.15)
	pt3dadd(15.36, 171.78, -22.03, 1.15)
	pt3dadd(15.05, 173.54, -22.19, 1.15)
	pt3dadd(15.4, 174.37, -22.19, 1.15)
	pt3dadd(15.93, 175.43, -22.19, 1.15)
	pt3dadd(16.11, 175.65, -22.19, 1.15)
	pt3dadd(16.82, 176.92, -22.19, 1.15)
	pt3dadd(17.56, 177.8, -22.14, 0.86)
	pt3dadd(17.3, 178.77, -22.46, 0.86)
	pt3dadd(17.02, 180.13, -22.79, 0.86)
	pt3dadd(18.44, 182.68, -22.79, 0.86)
	pt3dadd(19.05, 185.54, -25.11, 0.86)
	pt3dadd(19.13, 188.58, -24.84, 0.86)
	pt3dadd(19.95, 191.26, -24.84, 0.86)
	pt3dadd(19.66, 192.62, -24.84, 0.86)
	pt3dadd(19.24, 192.98, -24.84, 0.86)
	pt3dadd(19.35, 194.38, -24.84, 0.86)
	pt3dadd(19.46, 195.79, -24.52, 0.86)
	pt3dadd(20.52, 197.9, -24.52, 0.86)
	pt3dadd(20.37, 200.27, -24.14, 0.86)
	pt3dadd(20.03, 202.42, -24.3, 0.86)
	pt3dadd(20.67, 204.89, -24.3, 0.86)
	pt3dadd(21.52, 207.17, -25.97, 0.86)
	pt3dadd(21.21, 208.93, -26.19, 0.86)
	pt3dadd(22.24, 211.43, -27.05, 0.86)
	pt3dadd(22.3, 213.63, -27.05, 0.86)
	pt3dadd(22.33, 216.22, -28.19, 0.86)
	pt3dadd(22.82, 218.33, -28.19, 0.86)
	pt3dadd(23.31, 219.9, -29.43, 0.86)
	pt3dadd(23.45, 221.29, -29.7, 0.86)
	pt3dadd(24.34, 224.16, -31.21, 0.86)
	pt3dadd(26.26, 226.42, -32.83, 0.86)
	pt3dadd(26.78, 227.12, -32.83, 0.86)
	pt3dadd(28.72, 228.52, -32.83, 0.86)
	pt3dadd(28.96, 229.3, -32.83, 0.86)
	pt3dadd(30.55, 230.52, -32.83, 0.86)
	pt3dadd(30.49, 232.26, -32.83, 0.86)
	pt3dadd(30.52, 234.26, -32.83, 0.86)
	pt3dadd(31.28, 235.74, -32.83, 0.86)
	pt3dadd(30.98, 239.56, -32.83, 0.86)
	pt3dadd(32.92, 240.96, -32.13, 0.86)
	pt3dadd(33.54, 243.91, -32.18, 0.86)
	pt3dadd(34.5, 245.05, -32.18, 0.86)
	pt3dadd(34.96, 247.48, -32.89, 0.86)
	pt3dadd(35.45, 249.05, -34.24, 0.86)
	pt3dadd(36.1, 251.82, -34.18, 0.86)
	pt3dadd(37.06, 252.95, -34.18, 0.86)
	pt3dadd(39.27, 254.26, -35.05, 0.86)
	pt3dadd(39.33, 255.39, -35.05, 0.86)
	pt3dadd(40.01, 256.61, -35.42, 0.86)
	pt3dadd(42.52, 259.83, -35.75, 0.86)
	pt3dadd(43.64, 261.49, -36.5, 0.86)
	pt3dadd(44.3, 263.58, -37.85, 0.86)
	pt3dadd(44.76, 266.01, -37.85, 0.86)
	pt3dadd(46.32, 268.1, -38.66, 0.86)
	pt3dadd(47.16, 269.84, -39.37, 0.86)
	pt3dadd(47.95, 270.45, -40.18, 0.86)
	pt3dadd(48.3, 269.6, -41.15, 0.86)
	pt3dadd(50.45, 270.61, -41.15, 0.86)
	pt3dadd(51.32, 273.21, -40.77, 0.86)
	pt3dadd(53.55, 274.48, -40.77, 0.86)
	pt3dadd(54.8, 275.51, -40.77, 0.86)
    }
}

proc shape3d_dend3_5() {
    dend[16] {pt3dclear()
	pt3dadd(12.7974, 83.6051, -8.47557, 1.15)
	pt3dadd(14.8174, 85.5751, -8.80557, 1.15)
	pt3dadd(14.3274, 86.7051, -8.80557, 1.15)
	pt3dadd(15.1674, 88.6151, -8.85557, 1.15)
	pt3dadd(16.1874, 90.7451, -8.85557, 1.15)
	pt3dadd(16.4174, 92.7651, -9.34557, 1.15)
	pt3dadd(17.2874, 94.2751, -9.34557, 1.15)
	pt3dadd(17.2774, 96.8751, -9.34557, 1.15)
	pt3dadd(16.6374, 97.3851, -9.82557, 1.15)
	pt3dadd(16.5974, 100.375, -9.82557, 1.15)
	pt3dadd(16.5274, 101.165, -9.55557, 1.15)
	pt3dadd(16.9774, 103.015, -9.55557, 1.15)
	pt3dadd(16.4874, 104.155, -10.3656, 1.15)
	pt3dadd(17.5674, 105.495, -10.7456, 1.15)
	pt3dadd(17.8974, 106.335, -10.7456, 1.15)
	pt3dadd(18.7374, 108.235, -10.7456, 1.15)
	pt3dadd(19.4574, 109.125, -10.7456, 1.15)
	pt3dadd(19.9674, 110.195, -10.7456, 1.15)
	pt3dadd(20.5174, 110.865, -10.7456, 1.15)
	pt3dadd(21.3474, 112.765, -10.5256, 1.15)
	pt3dadd(21.8574, 113.825, -10.5256, 1.15)
	pt3dadd(21.4874, 115.975, -9.61557, 1.15)
	pt3dadd(21.8174, 116.815, -10.0456, 1.15)
	pt3dadd(22.9374, 117.755, -10.0456, 1.15)
	pt3dadd(22.3774, 119.685, -10.0956, 1.15)
	pt3dadd(22.0674, 121.045, -10.0956, 1.15)
	pt3dadd(21.9474, 122.625, -10.5256, 1.15)
	pt3dadd(22.1474, 125.045, -12.0456, 1.15)
	pt3dadd(22.4074, 126.675, -12.0456, 1.15)
	pt3dadd(22.9174, 127.735, -12.0456, 1.15)
	pt3dadd(22.9074, 130.335, -12.0456, 1.15)
	pt3dadd(23.1774, 131.965, -12.0456, 1.15)
	pt3dadd(23.6474, 133.415, -11.9856, 1.15)
	pt3dadd(22.5574, 134.675, -11.9856, 1.15)
	pt3dadd(22.0074, 136.595, -11.7756, 1.15)
	pt3dadd(22.0274, 138.795, -12.6356, 1.15)
	pt3dadd(21.8974, 140.375, -12.6356, 1.15)
	pt3dadd(21.6674, 143.145, -14.3656, 1.15)
	pt3dadd(21.9974, 143.985, -14.4156, 1.15)
	pt3dadd(22.6874, 145.275, -16.0956, 1.15)
	pt3dadd(22.4474, 145.835, -16.1956, 1.15)
	pt3dadd(23.7074, 149.015, -17.0056, 1.15)
	pt3dadd(24.9774, 150.575, -17.0056, 1.15)
	pt3dadd(24.4174, 152.505, -17.3856, 1.15)
	pt3dadd(25.6874, 154.065, -17.4956, 1.15)
	pt3dadd(26.0974, 156.315, -19.8756, 1.15)
	pt3dadd(27.1774, 157.645, -19.8756, 1.15)
	pt3dadd(27.6874, 158.715, -21.7056, 1.15)
	pt3dadd(28.7574, 159.975, -21.7056, 0.86)
	pt3dadd(28.7574, 159.975, -21.7056, 0.86)
	pt3dadd(29.2574, 161.425, -22.6256, 0.86)
	pt3dadd(30.7574, 162.795, -22.6256, 0.86)
	pt3dadd(33.4174, 164.685, -22.6756, 0.86)
	pt3dadd(36.3074, 166.005, -23.3256, 0.86)
	pt3dadd(37.4374, 166.925, -23.2756, 0.86)
	pt3dadd(38.9374, 168.285, -23.2156, 0.86)
	pt3dadd(39.2674, 172.505, -23.3256, 0.86)
	pt3dadd(40.6974, 175.055, -23.3256, 0.86)
	pt3dadd(41.3574, 177.115, -23.3256, 0.86)
	pt3dadd(41.1274, 180.675, -23.8156, 0.86)
    }
}

proc shape3d_dend1_4() {
    dend[17] {pt3dclear()
	pt3dadd(-3.87, 44.07, -18.68, 0.57)
	pt3dadd(-2.58, 45.61, -20.25, 0.57)
	pt3dadd(-2.39, 45.83, -22.3, 0.57)
	pt3dadd(-2.02, 46.27, -22.41, 0.57)
	pt3dadd(-1.79, 45.7, -22.95, 0.57)
	pt3dadd(-1.55, 45.13, -26.78, 0.57)
	pt3dadd(-1.39, 45.74, -28.3, 0.57)
	pt3dadd(-1.63, 46.31, -28.89, 0.57)
	pt3dadd(-2.05, 46.66, -29.7, 0.57)
	pt3dadd(-0.65, 47.91, -29.7, 1.15)
	pt3dadd(-0.35, 48.89, -29.7, 1.15)
	pt3dadd(0.17, 51.12, -29.7, 1.15)
	pt3dadd(-0.21, 52.5, -29, 1.15)
	pt3dadd(-0.14, 54.3, -28.08, 1.15)
	pt3dadd(2.64, 56.56, -27.59, 1.15)
	pt3dadd(3.01, 57.26, -27.43, 1.15)
	pt3dadd(2.86, 57.81, -26.14, 1.15)
	pt3dadd(2.44, 58.29, -26.14, 1.15)
	pt3dadd(3.19, 59.69, -25.11, 1.15)
	pt3dadd(4.2, 61.16, -25.11, 1.15)
	pt3dadd(5.48, 62.7, -24.95, 1.15)
	pt3dadd(5.93, 63.12, -24.95, 1.15)
	pt3dadd(5.5, 65.69, -24.52, 1.15)
	pt3dadd(6.7, 67.51, -24.46, 1.15)
	pt3dadd(7.3, 69.46, -22.57, 1.15)
	pt3dadd(7.1, 71.19, -22.57, 1.15)
	pt3dadd(7.36, 73.34, -22.14, 1.15)
	pt3dadd(6.9, 75, -22.14, 1.15)
	pt3dadd(7.68, 77.3, -20.14, 1.15)
	pt3dadd(7.52, 79.93, -19.6, 1.15)
	pt3dadd(7.77, 84.17, -18.85, 1.15)
	pt3dadd(7.84, 85.97, -18.85, 1.15)
	pt3dadd(9.79, 87.11, -18.2, 1.15)
	pt3dadd(9.33, 88.77, -18.2, 1.15)
	pt3dadd(8.77, 89.8, -18.2, 1.15)
	pt3dadd(7.78, 91.32, -18.2, 1.15)
	pt3dadd(8.15, 92.01, -18.2, 1.15)
	pt3dadd(8.71, 93.06, -18.2, 1.15)
	pt3dadd(8.86, 94.59, -18.2, 1.15)
	pt3dadd(9.53, 96.26, -17.44, 1.15)
	pt3dadd(11.75, 97.47, -17.44, 1.15)
	pt3dadd(9.97, 98.77, -17.44, 1.15)
	pt3dadd(10.38, 100.37, -17.44, 1.15)
	pt3dadd(11.39, 101.84, -15.93, 1.15)
	pt3dadd(12.59, 104.93, -15.82, 1.15)
	pt3dadd(13.31, 105.42, -15.82, 1.15)
	pt3dadd(13.38, 107.23, -15.82, 1.15)
	pt3dadd(13.03, 109.51, -15.77, 1.15)
	pt3dadd(13.67, 110.29, -15.77, 1.15)
	pt3dadd(14.83, 111.2, -15.77, 1.15)
	pt3dadd(15.5, 112.88, -16.2, 1.15)
	pt3dadd(16.36, 114.9, -16.96, 1.15)
	pt3dadd(15.94, 117.46, -16.96, 1.15)
	pt3dadd(15.81, 121, -17.12, 1.15)
	pt3dadd(16.14, 122.88, -15.61, 1.15)
	pt3dadd(16.82, 124.55, -15.12, 1.15)
	pt3dadd(16.42, 128.01, -14.85, 1.15)
	pt3dadd(15.74, 130.5, -14.85, 1.15)
	pt3dadd(15.17, 131.53, -14.85, 1.15)
	pt3dadd(13.73, 132.62, -14.85, 1.15)
	pt3dadd(13.24, 133.38, -14.85, 1.15)
	pt3dadd(13.15, 135.74, -14.15, 1.15)
	pt3dadd(13.11, 136.92, -14.15, 1.15)
	pt3dadd(12.5, 139.13, -14.15, 1.15)
	pt3dadd(11.81, 141.62, -14.15, 1.15)
	pt3dadd(11.28, 143.55, -14.15, 1.15)
	pt3dadd(10.89, 144.94, -14.15, 1.15)
	pt3dadd(11.46, 145.98, -14.15, 1.15)
	pt3dadd(11.74, 149.04, -14.15, 1.15)
	pt3dadd(10.23, 150.41, -14.15, 1.15)
	pt3dadd(9.51, 151.99, -14.15, 1.15)
	pt3dadd(8.79, 153.58, -14.15, 1.15)
	pt3dadd(8.63, 154.13, -14.15, 1.15)
	pt3dadd(7.95, 156.62, -14.15, 1.15)
	pt3dadd(8.16, 159.95, -14.69, 1.15)
	pt3dadd(6.15, 162.08, -16.15, 1.15)
	pt3dadd(4.87, 162.62, -16.15, 1.15)
	pt3dadd(3.2, 166.62, -16.15, 1.15)
	pt3dadd(3.65, 169.43, -16.42, 1.15)
	pt3dadd(4.13, 170.75, -16.42, 1.15)
	pt3dadd(3.15, 172.27, -16.42, 1.15)
	pt3dadd(1.77, 177.24, -15.5, 1.15)
	pt3dadd(1.23, 179.18, -16.04, 1.15)
	pt3dadd(-0.88, 180.68, -16.42, 1.15)
	pt3dadd(-1.9, 181.29, -16.42, 1.15)
	pt3dadd(-3.49, 182.93, -16.42, 1.15)
	pt3dadd(-5.38, 183.6, -16.42, 1.15)
	pt3dadd(-7.99, 185.86, -16.42, 1.15)
	pt3dadd(-9.31, 185.49, -16.42, 1.15)
	pt3dadd(-10.22, 186.73, -16.42, 1.15)
	pt3dadd(-12.33, 187.72, -16.63, 1.15)
	pt3dadd(-15.31, 189.27, -15.61, 1.15)
	pt3dadd(-17.8, 190.07, -15.55, 1.15)
	pt3dadd(-18.56, 190.75, -15.66, 1.15)
	pt3dadd(-19.2, 192.06, -15.28, 1.15)
	pt3dadd(-19.66, 193.72, -15.28, 1.15)
	pt3dadd(-22.05, 197.23, -15.5, 1.15)
	pt3dadd(-23.11, 199.02, -15.5, 1.15)
	pt3dadd(-23.5, 200.4, -15.71, 1.15)
	pt3dadd(-23.62, 201.86, -15.12, 1.15)
	pt3dadd(-21.55, 203.62, -15.82, 1.15)
	pt3dadd(-21.59, 204.8, -15.82, 1.15)
	pt3dadd(-21.15, 207.3, -17.28, 1.15)
	pt3dadd(-19.49, 207.46, -17.28, 1.15)
	pt3dadd(-19.19, 208.44, -17.28, 1.15)
	pt3dadd(-17.69, 209.15, -17.77, 1.15)
	pt3dadd(-16.86, 210.27, -18.95, 1.15)
	pt3dadd(-16.27, 212.22, -20.25, 1.15)
	pt3dadd(-16.05, 213.47, -20.25, 1.15)
	pt3dadd(-15.03, 214.94, -20.25, 1.15)
	pt3dadd(-13.95, 216.14, -20.25, 1.15)
	pt3dadd(-13.35, 218.09, -20.25, 1.15)
	pt3dadd(-12.83, 220.32, -20.25, 1.15)
	pt3dadd(-11.93, 221.16, -20.3, 1.15)
	pt3dadd(-9.97, 222.3, -20.52, 1.15)
	pt3dadd(-9.52, 222.72, -19.93, 1.15)
	pt3dadd(-9.04, 224.04, -19.87, 1.15)
	pt3dadd(-8.37, 225.72, -19.01, 1.15)
	pt3dadd(-6.22, 227.2, -19.06, 1.15)
	pt3dadd(-4.27, 228.34, -18.41, 1.15)
	pt3dadd(-3.07, 230.16, -18.04, 1.15)
	pt3dadd(-1.87, 231.98, -16.47, 1.15)
	pt3dadd(-1.61, 234.13, -15.82, 1.15)
	pt3dadd(-2.71, 235.02, -15.82, 1.15)
	pt3dadd(-1.25, 236.91, -16.04, 1.15)
	pt3dadd(0.4, 239.15, -16.04, 1.15)
	pt3dadd(-0.48, 243.37, -15.34, 1.15)
	pt3dadd(-2.04, 245.92, -16.58, 1.15)
	pt3dadd(-2.61, 246.95, -16.58, 1.15)
	pt3dadd(-1.88, 250.46, -16.58, 2.01)
	pt3dadd(-0.69, 252.41, -16.58, 2.01)
	pt3dadd(1.36, 255.17, -16.58, 2.01)
	pt3dadd(1.79, 257.31, -16.58, 2.01)
	pt3dadd(2.85, 259.5, -16.58, 2.01)
	pt3dadd(4.45, 260.73, -16.58, 2.01)
	pt3dadd(4.24, 262.82, -16.58, 2.01)
	pt3dadd(5.51, 264.12, -16.58, 1.43)
	pt3dadd(6.06, 263.18, -16.69, 1.43)
	pt3dadd(6.35, 262.08, -16.69, 1.43)
	pt3dadd(6.85, 262.37, -16.69, 1.43)
	pt3dadd(6.64, 264.46, -16.69, 1.43)
	pt3dadd(8.74, 265.98, -17.66, 1.43)
	pt3dadd(11.09, 267.65, -16.15, 1.43)
	pt3dadd(11.29, 269.03, -16.31, 1.43)
	pt3dadd(13.62, 271.31, -16.31, 1.43)
	pt3dadd(13.68, 272.93, -16.31, 1.43)
	pt3dadd(16.03, 274.6, -17.55, 1.43)
	pt3dadd(17.09, 276.78, -17.55, 1.43)
	pt3dadd(20.19, 278.88, -17.6, 1.43)
	pt3dadd(22.95, 279.84, -16.79, 1.43)
    }
}

proc shape3d_dend1_5() {
    dend[18] {pt3dclear()
	pt3dadd(-3.87, 44.07, -18.68, 1.15)
	pt3dadd(-4.57, 45.79, -17.93, 1.15)
	pt3dadd(-5.62, 46.66, -17.93, 1.15)
	pt3dadd(-6.27, 47.59, -17.93, 1.15)
	pt3dadd(-6.51, 48.16, -17.93, 1.15)
	pt3dadd(-6.79, 49.52, -19.87, 1.15)
	pt3dadd(-7.33, 51.85, -19.01, 1.15)
	pt3dadd(-7.46, 53.83, -22.19, 1.15)
	pt3dadd(-7.28, 54.05, -23.27, 1.15)
	pt3dadd(-8.74, 55.28, -23.71, 1.15)
	pt3dadd(-10.29, 54.71, -23.81, 1.15)
	pt3dadd(-11.76, 55.94, -26.46, 1.15)
	pt3dadd(-12.81, 56.82, -28.03, 1.15)
	pt3dadd(-14.11, 58.66, -28.57, 1.15)
	pt3dadd(-14.84, 60.77, -30.29, 1.15)
	pt3dadd(-14.58, 60.12, -30.29, 0.86)
	pt3dadd(-15.76, 61.49, -30.29, 0.86)
	pt3dadd(-15.29, 62.8, -30.24, 0.86)
	pt3dadd(-17.04, 63.24, -30.78, 0.86)
	pt3dadd(-19.73, 64.9, -30.08, 0.86)
	pt3dadd(-20.95, 65.65, -30.08, 0.86)
	pt3dadd(-21.15, 66.41, -30.62, 0.86)
	pt3dadd(-22.97, 69.47, -29.92, 0.86)
	pt3dadd(-23.07, 69.85, -29.92, 0.86)
	pt3dadd(-24.82, 70.29, -29.92, 0.86)
	pt3dadd(-26.06, 72.66, -29.81, 0.86)
	pt3dadd(-27.48, 74.18, -29.11, 0.86)
	pt3dadd(-29.58, 77.03, -29.11, 0.86)
	pt3dadd(-31.35, 79.08, -29.11, 0.86)
	pt3dadd(-32.28, 80.3, -29.11, 0.86)
	pt3dadd(-33.17, 82.14, -29.21, 0.86)
	pt3dadd(-33.19, 83.75, -30.78, 0.86)
	pt3dadd(-33.44, 85.52, -30.78, 0.86)
	pt3dadd(-34.48, 87.12, -29.05, 0.86)
	pt3dadd(-35.71, 89.49, -29.05, 0.86)
	pt3dadd(-35.77, 90.49, -29.11, 0.86)
	pt3dadd(-36.56, 91.94, -29.59, 0.86)
	pt3dadd(-36.28, 92.4, -29.59, 0.86)
	pt3dadd(-36.15, 94.25, -29.59, 0.86)
	pt3dadd(-37.47, 95.39, -28.67, 0.86)
	pt3dadd(-38.75, 97.14, -28.3, 0.86)
	pt3dadd(-38.95, 97.91, -28.3, 0.86)
	pt3dadd(-39.9, 100.74, -27.76, 0.86)
	pt3dadd(-39.72, 103.21, -24.52, 0.86)
	pt3dadd(-40.7, 103.81, -24.52, 0.86)
	pt3dadd(-41.68, 104.41, -24.52, 0.86)
	pt3dadd(-42.91, 106.78, -23.98, 0.86)
	pt3dadd(-43.23, 109.54, -23.98, 0.86)
	pt3dadd(-45.33, 110.52, -22.73, 0.86)
	pt3dadd(-45.53, 111.28, -22.73, 0.86)
	pt3dadd(-46.09, 114.2, -21.55, 0.86)
	pt3dadd(-46.95, 118.26, -20.2, 0.86)
	pt3dadd(-47.17, 120.65, -20.14, 0.86)
	pt3dadd(-47.86, 121.71, -18.79, 0.86)
	pt3dadd(-47.43, 122.41, -18.52, 0.86)
	pt3dadd(-48.56, 124.4, -18.47, 0.86)
	pt3dadd(-49.48, 124, -18.47, 0.86)
	pt3dadd(-49.68, 124.77, -18.47, 0.86)
	pt3dadd(-49.71, 128, -18.31, 0.86)
	pt3dadd(-50.64, 129.22, -18.31, 0.86)
	pt3dadd(-52.94, 130.95, -17.98, 0.86)
	pt3dadd(-55.33, 131.98, -18.41, 0.86)
	pt3dadd(-55.6, 135.36, -18.2, 0.86)
	pt3dadd(-56.9, 138.73, -17.28, 0.86)
	pt3dadd(-58.13, 141.1, -16.9, 0.86)
	pt3dadd(-58.48, 141.63, -16.04, 0.86)
	pt3dadd(-58.1, 143.33, -15.23, 0.86)
	pt3dadd(-59.42, 144.47, -14.15, 0.86)
	pt3dadd(-59.53, 144.85, -12.42, 0.86)
	pt3dadd(-60.11, 145.53, -12.42, 0.86)
	pt3dadd(-62.17, 147.12, -11.88, 0.86)
	pt3dadd(-62.96, 148.57, -12.1, 0.86)
	pt3dadd(-64.58, 150.86, -12.1, 0.86)
	pt3dadd(-65.33, 152.93, -12.1, 0.86)
	pt3dadd(-66.61, 154.68, -11.45, 0.86)
	pt3dadd(-68.23, 156.97, -11.45, 0.86)
	pt3dadd(-69.56, 162.14, -12.26, 0.86)
	pt3dadd(-71.1, 165.66, -13.5, 0.86)
	pt3dadd(-73.86, 169.93, -13.88, 0.86)
	pt3dadd(-74.99, 171.92, -13.82, 0.86)
	pt3dadd(-76.37, 174.05, -13.39, 0.86)
	pt3dadd(-76.62, 174.2, -14.96, 0.86)
	pt3dadd(-78.12, 174.49, -15.17, 0.86)
	pt3dadd(-80.57, 176, -17.28, 0.86)
	pt3dadd(-82.03, 176.9, -19.33, 0.86)
	pt3dadd(-82.62, 177.59, -18.79, 0.86)
	pt3dadd(-83.18, 180.5, -18.85, 0.86)
	pt3dadd(-84.37, 183.49, -19.28, 0.86)
	pt3dadd(-84.39, 187.77, -20.03, 0.86)
	pt3dadd(-85.12, 188.22, -21.76, 0.86)
	pt3dadd(-85.35, 192.21, -21.76, 0.86)
	pt3dadd(-85.03, 194.91, -21.98, 0.86)
	pt3dadd(-86.46, 196.43, -21.98, 0.86)
	pt3dadd(-87.98, 198.33, -23.71, 0.86)
	pt3dadd(-90.65, 198.37, -24.89, 0.86)
	pt3dadd(-92.79, 198.73, -27.43, 0.86)
	pt3dadd(-94.6, 200.17, -27.81, 0.86)
	pt3dadd(-96.74, 200.52, -29.32, 0.86)
	pt3dadd(-99.45, 199.95, -30.83, 0.86)
	pt3dadd(-101.15, 199.39, -32.24, 0.86)
	pt3dadd(-103.2, 200.98, -33.86, 0.86)
	pt3dadd(-104.75, 200.65, -33.86, 0.86)
	pt3dadd(-106.21, 199.94, -34.94, 0.86)
	pt3dadd(-108.68, 199.21, -35.53, 0.86)
	pt3dadd(-111.95, 201.55, -36.72, 0.86)
	pt3dadd(-114.58, 202.21, -39.04, 0.86)
	pt3dadd(-119.11, 203.07, -39.42, 0.86)
	pt3dadd(-121.55, 204.58, -40.34, 0.86)
	pt3dadd(-123.44, 204.78, -42.61, 0.86)
	pt3dadd(-124.62, 206.15, -42.61, 0.86)
	pt3dadd(-125.5, 206.37, -44.77, 0.86)
	pt3dadd(-126.07, 205.44, -46.12, 0.86)
	pt3dadd(-127.48, 205.34, -48.17, 0.86)
	pt3dadd(-128.7, 206.1, -49.63, 0.86)
	pt3dadd(-130.11, 206, -50, 0.86)
	pt3dadd(-131.47, 206.52, -50.6, 0.86)
	pt3dadd(-134.83, 209.09, -50.6, 1.72)
	pt3dadd(-136.13, 209.5, -50.6, 1.72)
	pt3dadd(-137.18, 209.82, -50.6, 1.72)
	pt3dadd(-139.01, 210.39, -50.6, 1.72)
	pt3dadd(-139.8, 212.44, -51.25, 1.72)
	pt3dadd(-140.77, 213.94, -51.25, 1.72)
	pt3dadd(-142.52, 215.68, -51.25, 1.72)
	pt3dadd(-144.36, 218.05, -51.25, 1.72)
	pt3dadd(-145.77, 220.89, -51.25, 1.72)
	pt3dadd(-145.87, 222.42, -51.25, 1.72)
	pt3dadd(-146.68, 225.38, -51.25, 1.72)
	pt3dadd(-148.87, 228.46, -51.19, 1.72)
	pt3dadd(-150.01, 230.31, -51.79, 1.72)
	pt3dadd(-151.24, 230.99, -51.79, 1.72)
	pt3dadd(-151.42, 232.25, -51.79, 1.72)
	pt3dadd(-151, 234.52, -51.79, 1.72)
	pt3dadd(-152.31, 234.93, -51.79, 1.72)
    }
}

proc shape3d_dend1_6() {
    dend[19] {pt3dclear()
	pt3dadd(-5.24257, 24.9051, -9.34557, 0.86)
	pt3dadd(-6.91257, 25.8851, -12.3156, 0.86)
	pt3dadd(-7.79257, 26.9651, -14.3656, 0.86)
	pt3dadd(-7.92257, 28.5451, -14.3656, 1.15)
	pt3dadd(-9.49257, 28.3451, -14.5756, 1.15)
	pt3dadd(-10.3826, 29.4251, -14.5756, 1.15)
    }
}

proc shape3d_dend1_7() {
    dend[20] {pt3dclear()
	pt3dadd(-5.24257, 24.9051, -9.34557, 1.43)
	pt3dadd(-4.39257, 26.3751, -9.44557, 1.43)
	pt3dadd(-5.34258, 28.2451, -9.17557, 1.15)
	pt3dadd(-6.22257, 29.3351, -7.50557, 1.15)
	pt3dadd(-7.89257, 30.3151, -7.50557, 1.15)
	pt3dadd(-8.41257, 31.8451, -6.80557, 1.15)
	pt3dadd(-8.72257, 33.1951, -6.58557, 1.15)
	pt3dadd(-10.3026, 35.5851, -6.85557, 1.15)
	pt3dadd(-11.0026, 36.8951, -6.85557, 1.15)
	pt3dadd(-10.4626, 37.5651, -6.85557, 1.15)
	pt3dadd(-10.0826, 40.2051, -6.53557, 1.15)
	pt3dadd(-11.7226, 40.7951, -6.69557, 1.15)
	pt3dadd(-13.3526, 41.3851, -6.96557, 1.15)
	pt3dadd(-14.6626, 42.8051, -6.96557, 1.15)
	pt3dadd(-15.8226, 44.8551, -6.96557, 1.15)
	pt3dadd(-14.7726, 46.5851, -7.77557, 1.15)
	pt3dadd(-15.0126, 47.1551, -6.31557, 1.15)
	pt3dadd(-15.8926, 48.2351, -5.61557, 1.15)
	pt3dadd(-16.4126, 49.7651, -5.61557, 1.15)
	pt3dadd(-17.6126, 52.2051, -5.61557, 1.15)
	pt3dadd(-17.1026, 53.2651, -5.61557, 1.15)
	pt3dadd(-17.2626, 55.2451, -5.61557, 1.15)
	pt3dadd(-17.1726, 56.6551, -5.61557, 1.15)
	pt3dadd(-17.3326, 58.6251, -5.99557, 1.15)
	pt3dadd(-16.8526, 60.0851, -5.99557, 1.15)
	pt3dadd(-16.4126, 61.9451, -5.29557, 1.15)
	pt3dadd(-18.0826, 62.9251, -4.80557, 1.15)
	pt3dadd(-19.2026, 64.5751, -5.39557, 1.15)
	pt3dadd(-20.4126, 64.8151, -7.45557, 1.15)
	pt3dadd(-20.6326, 64.9851, -6.96557, 1.15)
	pt3dadd(-20.6126, 67.1851, -7.88557, 1.15)
	pt3dadd(-21.6726, 68.0451, -7.88557, 1.15)
	pt3dadd(-21.9826, 69.4051, -7.12557, 1.15)
    }
}

proc shape3d_dend5_8() {
    dend[21] {pt3dclear()
	pt3dadd(9.95742, -70.3049, -5.18557, 0.86)
	pt3dadd(10.8374, -71.3949, -7.34557, 0.86)
	pt3dadd(12.1074, -72.4249, -8.58557, 0.86)
	pt3dadd(13.3574, -73.0649, -8.85557, 0.86)
	pt3dadd(15.6874, -74.9549, -10.3656, 0.86)
	pt3dadd(17.0974, -77.5649, -11.9856, 0.86)
	pt3dadd(17.5474, -78.3049, -11.9856, 0.86)
    }
}

proc shape3d_dend5_9() {
    dend[22] {pt3dclear()
	pt3dadd(9.95742, -70.3049, -5.18557, 1.15)
	pt3dadd(8.98742, -72.1549, -5.29557, 1.15)
	pt3dadd(8.69742, -73.3849, -5.29557, 1.15)
	pt3dadd(8.37742, -76.8249, -5.29557, 1.15)
	pt3dadd(8.35742, -79.0149, -5.18557, 1.15)
	pt3dadd(7.81742, -79.6849, -3.02557, 1.15)
	pt3dadd(7.36742, -81.5449, -3.02557, 1.15)
	pt3dadd(8.49743, -83.1949, -1.78557, 1.15)
	pt3dadd(7.31742, -83.3449, -1.40557, 1.15)
	pt3dadd(8.22742, -84.8249, 0.00442858, 1.15)
	pt3dadd(7.65742, -85.0949, 0.00442858, 1.15)
	pt3dadd(7.29742, -85.5449, 0.754429, 1.15)
	pt3dadd(7.84742, -87.4649, 1.08443, 1.15)
	pt3dadd(8.16742, -91.4149, 1.08443, 1.15)
	pt3dadd(8.78743, -94.1349, 1.89443, 1.15)
	pt3dadd(9.45742, -95.0449, 1.89443, 1.15)
	pt3dadd(8.87742, -95.3149, 4.32443, 1.15)
    }
}

proc shape3d_dend5_10() {
    dend[23] {pt3dclear()
	pt3dadd(-16.8626, -64.0649, 1.83443, 0.86)
	pt3dadd(-16.7026, -66.0449, 2.80443, 0.86)
	pt3dadd(-17.0726, -66.4849, 3.99443, 0.86)
	pt3dadd(-16.7626, -67.8449, 4.42443, 0.86)
	pt3dadd(-15.9326, -70.7349, 5.34443, 0.86)
	pt3dadd(-15.1626, -72.8249, 6.64443, 0.86)
	pt3dadd(-14.0726, -74.0849, 7.56443, 0.86)
	pt3dadd(-12.9126, -76.1249, 7.61443, 0.86)
	pt3dadd(-12.0026, -77.6049, 8.31443, 0.86)
	pt3dadd(-11.0526, -79.4849, 8.31443, 0.86)
	pt3dadd(-10.2026, -80.1649, 9.66443, 0.86)
	pt3dadd(-9.20258, -80.2349, 9.77443, 0.86)
	pt3dadd(-7.89258, -81.6649, 9.77443, 0.86)
	pt3dadd(-7.10258, -84.1549, 11.2844, 0.86)
	pt3dadd(-4.97258, -85.8749, 11.3444, 0.86)
	pt3dadd(-3.45258, -87.4749, 11.3444, 0.86)
	pt3dadd(-3.75258, -88.7149, 11.7744, 0.86)
	pt3dadd(-2.71258, -91.7749, 11.7744, 0.86)
	pt3dadd(-2.04258, -92.6849, 12.9044, 0.86)
	pt3dadd(-0.492575, -94.6749, 12.9044, 0.86)
	pt3dadd(0.607425, -95.9349, 12.9044, 0.86)
	pt3dadd(0.767425, -97.9149, 12.9044, 0.86)
	pt3dadd(0.497425, -99.5449, 12.9044, 0.86)
	pt3dadd(2.29742, -102.105, 13.7744, 0.86)
	pt3dadd(3.03742, -103.445, 14.2544, 0.86)
	pt3dadd(3.31742, -104.405, 14.2544, 0.86)
	pt3dadd(2.80742, -105.475, 15.0644, 0.86)
	pt3dadd(3.50742, -106.775, 17.6544, 0.86)
	pt3dadd(2.78742, -107.665, 18.9544, 0.86)
	pt3dadd(2.60742, -107.895, 21.8144, 0.86)
	pt3dadd(2.05742, -108.555, 23.9744, 0.86)
	pt3dadd(3.05742, -108.635, 23.3844, 0.86)
	pt3dadd(3.18742, -110.215, 25.8144, 0.86)
	pt3dadd(2.67742, -111.275, 28.2944, 0.86)
	pt3dadd(2.55742, -112.285, 30.7244, 0.86)
	pt3dadd(2.83742, -113.245, 31.2144, 0.86)
	pt3dadd(2.17742, -114.935, 33.4244, 0.86)
	pt3dadd(2.17742, -114.935, 34.8844, 0.86)
	pt3dadd(1.71742, -114.675, 39.0944, 0.57)
	pt3dadd(0.857425, -114.675, 40.9344, 0.57)
	pt3dadd(0.567425, -114.955, 44.4944, 0.57)
	pt3dadd(-0.0125754, -115.225, 45.8444, 0.57)
	pt3dadd(-0.0125754, -116.595, 45.9544, 0.57)
	pt3dadd(-0.0125754, -117.135, 45.9544, 0.57)
	pt3dadd(0.277425, -118.505, 49.3044, 0.57)
	pt3dadd(-0.0125754, -118.505, 49.5744, 0.57)
	pt3dadd(0.277425, -119.875, 52.8644, 0.57)
	pt3dadd(0.277425, -121.785, 53.4044, 0.57)
	pt3dadd(-0.582575, -123.425, 53.4044, 0.57)
	pt3dadd(-0.292575, -124.795, 54.8644, 0.57)
	pt3dadd(-0.292575, -126.435, 54.8644, 0.57)
	pt3dadd(-1.15258, -127.535, 54.8644, 0.57)
	pt3dadd(-2.01258, -128.625, 54.8644, 0.57)
	pt3dadd(-1.44258, -129.995, 56.8644, 0.57)
	pt3dadd(-1.15258, -131.085, 56.9144, 0.57)
	pt3dadd(-1.15258, -133.275, 56.9144, 0.57)
	pt3dadd(-0.0125754, -134.915, 56.9144, 0.57)
	pt3dadd(-1.15258, -136.005, 56.9144, 0.57)
	pt3dadd(-1.73258, -137.925, 56.9144, 0.57)
	pt3dadd(-1.73258, -139.835, 56.9144, 0.57)
	pt3dadd(-1.44258, -142.575, 56.9144, 0.57)
	pt3dadd(-1.73258, -144.755, 56.9144, 0.57)
	pt3dadd(-1.44258, -145.855, 58.0544, 0.57)
	pt3dadd(-0.872575, -147.765, 58.0544, 0.57)
	pt3dadd(-1.15258, -148.315, 58.4844, 0.57)
	pt3dadd(-1.44258, -148.865, 57.8344, 0.57)
	pt3dadd(-2.87258, -151.045, 58.1044, 0.57)
	pt3dadd(-2.30258, -152.965, 58.1044, 0.57)
	pt3dadd(-2.30258, -153.785, 58.1044, 0.57)
	pt3dadd(-2.01258, -155.695, 58.2644, 0.57)
	pt3dadd(-2.59258, -157.885, 58.9144, 0.57)
	pt3dadd(-2.59258, -158.975, 57.7844, 0.57)
	pt3dadd(-3.16258, -160.895, 57.9444, 0.57)
	pt3dadd(-3.16258, -162.805, 57.8844, 0.57)
	pt3dadd(-2.87258, -165.265, 57.8844, 0.57)
	pt3dadd(-2.59258, -166.365, 57.8844, 0.57)
	pt3dadd(-2.01258, -169.365, 57.0744, 0.57)
	pt3dadd(-2.01258, -169.645, 57.4044, 0.57)
	pt3dadd(-3.16258, -171.005, 57.4044, 0.57)
	pt3dadd(-3.45258, -171.555, 57.4044, 0.57)
	pt3dadd(-3.45258, -173.745, 57.4044, 0.57)
	pt3dadd(-2.30258, -176.205, 56.9744, 0.57)
	pt3dadd(-2.01258, -176.755, 56.9744, 0.57)
	pt3dadd(-3.45258, -178.395, 56.9744, 0.57)
	pt3dadd(-2.59258, -181.125, 57.9444, 0.57)
	pt3dadd(-2.65258, -183.065, 57.6144, 0.57)
	pt3dadd(-4.08258, -183.885, 57.8844, 0.57)
	pt3dadd(-3.51258, -184.985, 58.4844, 0.57)
	pt3dadd(-2.65258, -185.525, 58.4844, 0.57)
	pt3dadd(-2.65258, -186.625, 58.4844, 0.57)
	pt3dadd(-2.36258, -188.265, 59.4044, 0.57)
	pt3dadd(-2.36258, -188.815, 59.4044, 0.57)
	pt3dadd(-1.50258, -190.725, 58.5344, 0.57)
	pt3dadd(-1.50258, -191.815, 56.8644, 0.57)
	pt3dadd(-0.642575, -192.365, 55.5144, 0.57)
	pt3dadd(0.787425, -192.635, 54.1644, 0.57)
	pt3dadd(0.787425, -193.185, 53.0244, 0.57)
	pt3dadd(1.07742, -195.375, 53.0244, 0.57)
	pt3dadd(1.07742, -196.195, 53.0244, 0.57)
	pt3dadd(1.36742, -197.285, 53.0244, 0.57)
	pt3dadd(3.08742, -198.655, 52.2144, 0.57)
	pt3dadd(3.25742, -199.345, 52.2144, 0.57)
    }
}

proc shape3d_dend5_11() {
    dend[24] {pt3dclear()
	pt3dadd(-16.8626, -64.0649, 1.83443, 0.86)
	pt3dadd(-18.9026, -65.3249, 0.484429, 0.86)
	pt3dadd(-20.4126, -66.3149, 0.484429, 0.86)
	pt3dadd(-21.6526, -65.6749, 0.544429, 0.86)
	pt3dadd(-22.3126, -67.3549, 0.00442858, 0.86)
	pt3dadd(-24.2926, -69.8149, 0.704429, 0.86)
	pt3dadd(-25.2026, -70.9249, 0.704429, 0.86)
	pt3dadd(-25.9826, -71.0249, 0.164429, 0.86)
	pt3dadd(-29.2426, -72.4449, 0.864429, 0.86)
	pt3dadd(-29.6426, -72.4949, 0.864429, 0.86)
	pt3dadd(-30.3026, -74.1749, 0.864429, 0.86)
	pt3dadd(-32.8026, -75.1049, 0.974429, 0.86)
	pt3dadd(-34.4926, -76.3149, 1.67443, 0.86)
    }
}

proc shape3d_dend1_8() {
    dend[25] {pt3dclear()
	pt3dadd(-10.36, 29.79, -14.63, 0.86)
	pt3dadd(-12.2, 30.55, -13.66, 0.86)
	pt3dadd(-14.59, 30.64, -14.58, 1.15)
	pt3dadd(-16.35, 30.22, -15.12, 1.15)
	pt3dadd(-16.8, 30.96, -17.55, 1.15)
	pt3dadd(-17.87, 31.82, -19.39, 1.15)
	pt3dadd(-17.81, 32.56, -20.36, 1.15)
	pt3dadd(-19.97, 32.12, -24.95, 1.15)
	pt3dadd(-20.59, 32.64, -24.95, 1.15)
	pt3dadd(-22.56, 32.42, -25.6, 1.15)
	pt3dadd(-24.35, 32.42, -26.57, 1.15)
	pt3dadd(-26.01, 30.45, -27.65, 1.15)
	pt3dadd(-27.19, 30.31, -27.65, 1.15)
	pt3dadd(-29.05, 31.5, -27.38, 1.15)
	pt3dadd(-30.58, 30.53, -30.29, 1.15)
	pt3dadd(-32.08, 29.17, -32.67, 1.15)
	pt3dadd(-34.49, 29.7, -34.13, 1.15)
	pt3dadd(-35.65, 29.17, -34.61, 1.15)
	pt3dadd(-35.65, 29.17, -35.32, 1.15)
	pt3dadd(-37.04, 29.8, -35.32, 0.29)
	pt3dadd(-37.59, 29.65, -38.18, 0.29)
	pt3dadd(-39.12, 29.8, -40.12, 0.29)
	pt3dadd(-42.32, 30.64, -40.77, 0.29)
	pt3dadd(-44.61, 31.43, -44.01, 0.29)
	pt3dadd(-46.21, 31.85, -43.36, 0.29)
	pt3dadd(-47.67, 31.74, -44.71, 0.29)
	pt3dadd(-48.91, 30.84, -47.25, 0.29)
	pt3dadd(-51.41, 31.29, -48.01, 0.29)
	pt3dadd(-53.08, 31.98, -49.25, 0.29)
	pt3dadd(-54.2, 32.81, -49.25, 0.29)
	pt3dadd(-56.07, 33.15, -50.6, 0.29)
	pt3dadd(-57.73, 35.88, -50.65, 0.86)
	pt3dadd(-57.76, 37.15, -51.19, 0.86)
	pt3dadd(-58.53, 38.12, -53.73, 0.86)
	pt3dadd(-58.07, 39.16, -55.46, 0.86)
	pt3dadd(-55.14, 40.38, -56.75, 0.86)
	pt3dadd(-54.31, 41.58, -57.56, 0.86)
	pt3dadd(-54.48, 43.22, -58.54, 0.86)
	pt3dadd(-55.23, 43.55, -60.53, 0.86)
	pt3dadd(-54.55, 45.76, -60.64, 0.86)
	pt3dadd(-54.49, 47.93, -60.8, 0.86)
	pt3dadd(-56.85, 48.67, -61.51, 0.86)
	pt3dadd(-57.64, 50.27, -61.51, 0.86)
	pt3dadd(-60.6, 50.33, -61.51, 0.86)
	pt3dadd(-61.16, 52.45, -61.56, 0.86)
	pt3dadd(-62.81, 54.12, -61.56, 0.86)
	pt3dadd(-65.21, 56.13, -61.51, 0.86)
	pt3dadd(-66.46, 56.68, -61.51, 0.86)
	pt3dadd(-68.21, 57.46, -63.88, 0.86)
	pt3dadd(-69.05, 60.97, -63.88, 0.86)
	pt3dadd(-71.07, 62.49, -64.91, 0.86)
	pt3dadd(-73.28, 66.28, -64.96, 0.86)
	pt3dadd(-72.6, 68.49, -64.96, 0.86)
	pt3dadd(-73.48, 69.2, -64.96, 0.86)
	pt3dadd(-75.4, 71.62, -64.96, 0.86)
	pt3dadd(-76.67, 72.81, -64.96, 0.86)
	pt3dadd(-77.36, 75.31, -64.96, 0.86)
	pt3dadd(-78.86, 75.97, -64.96, 0.86)
	pt3dadd(-80.05, 78.69, -64.96, 0.86)
	pt3dadd(-81.07, 79.77, -66.37, 0.86)
	pt3dadd(-83.5, 83.04, -66.42, 0.86)
	pt3dadd(-84.16, 84.27, -66.42, 0.86)
	pt3dadd(-85.17, 85.35, -66.42, 0.86)
	pt3dadd(-87.19, 86.87, -65.72, 0.86)
	pt3dadd(-87.63, 89.26, -65.99, 0.86)
	pt3dadd(-87.93, 91.28, -65.99, 0.86)
	pt3dadd(-87.97, 92.55, -65.99, 0.86)
	pt3dadd(-90.68, 96.57, -67.77, 0.86)
	pt3dadd(-92.12, 97.58, -67.07, 0.86)
	pt3dadd(-92.03, 98.47, -67.07, 0.86)
	pt3dadd(-93.81, 100.52, -67.07, 0.86)
	pt3dadd(-95.56, 101.29, -67.07, 0.86)
	pt3dadd(-97.33, 102.7, -67.66, 0.86)
	pt3dadd(-97.15, 105.13, -67.82, 0.86)
	pt3dadd(-97.32, 106.78, -67.82, 0.86)
	pt3dadd(-100.19, 107.73, -67.82, 0.86)
	pt3dadd(-101.86, 110.04, -67.82, 0.86)
	pt3dadd(-102.63, 111.01, -67.82, 0.86)
	pt3dadd(-103.03, 112.13, -67.82, 0.86)
	pt3dadd(-105.2, 114.66, -67.82, 0.86)
	pt3dadd(-107.89, 118.04, -68.63, 0.86)
	pt3dadd(-109.14, 118.59, -68.63, 0.86)
	pt3dadd(-110.19, 120.94, -70.04, 0.86)
	pt3dadd(-111.9, 124.09, -70.9, 0.86)
	pt3dadd(-112.98, 123, -70.9, 0.86)
	pt3dadd(-114.25, 124.19, -71.6, 0.86)
	pt3dadd(-114.69, 126.58, -71.82, 0.86)
	pt3dadd(-115.06, 126.43, -71.77, 0.86)
	pt3dadd(-117.23, 128.96, -71.71, 0.86)
	pt3dadd(-119.25, 130.48, -71.71, 0.86)
	pt3dadd(-122.59, 131.02, -71.71, 0.86)
	pt3dadd(-123.34, 131.35, -71.6, 0.86)
	pt3dadd(-124.73, 132.27, -70.31, 0.86)
	pt3dadd(-124.76, 133.55, -70.31, 0.86)
	pt3dadd(-126.35, 137.39, -70.15, 0.86)
	pt3dadd(-127.92, 138.47, -70.15, 0.86)
	pt3dadd(-128.87, 141.72, -71.06, 0.86)
	pt3dadd(-130.61, 141.86, -71.06, 0.86)
    }
}

proc shape3d_dend1_9() {
    dend[26] {pt3dclear()
	pt3dadd(-10.3826, 29.4251, -14.5756, 1.15)
	pt3dadd(-9.65257, 30.3251, -13.7156, 1.15)
	pt3dadd(-10.1126, 31.0651, -13.7156, 1.15)
	pt3dadd(-10.6026, 32.1951, -13.7156, 1.15)
	pt3dadd(-10.6426, 35.1851, -14.3056, 1.15)
	pt3dadd(-10.4626, 35.4051, -15.1156, 1.15)
	pt3dadd(-10.9026, 38.3451, -16.4156, 1.15)
	pt3dadd(-10.7226, 38.5651, -16.4656, 1.15)
	pt3dadd(-10.3926, 39.4051, -16.4656, 1.15)
	pt3dadd(-9.73257, 41.0851, -16.5756, 1.15)
	pt3dadd(-10.0426, 42.4451, -16.5256, 1.15)
	pt3dadd(-11.1726, 44.0951, -15.4456, 1.15)
	pt3dadd(-11.2926, 45.6751, -15.0156, 1.15)
	pt3dadd(-11.7526, 46.4151, -16.9056, 1.15)
	pt3dadd(-12.5226, 48.5151, -16.9056, 1.15)
	pt3dadd(-12.9426, 48.8551, -16.9056, 1.15)
	pt3dadd(-13.6426, 50.1651, -16.4656, 1.15)
	pt3dadd(-12.5626, 51.5051, -16.4656, 1.15)
	pt3dadd(-12.4826, 52.9051, -15.1756, 1.15)
	pt3dadd(-12.9026, 53.2551, -15.1756, 1.15)
	pt3dadd(-13.6726, 55.3451, -16.1956, 1.15)
	pt3dadd(-13.4326, 57.3751, -16.4656, 1.15)
	pt3dadd(-12.0226, 59.5551, -17.3356, 1.15)
	pt3dadd(-12.6326, 59.6751, -17.3856, 1.15)
	pt3dadd(-13.0526, 60.0151, -17.3856, 1.15)
	pt3dadd(-15.1826, 61.7351, -16.7356, 1.15)
	pt3dadd(-15.2426, 62.5251, -16.7356, 1.15)
	pt3dadd(-16.3326, 63.7851, -15.3856, 1.15)
	pt3dadd(-15.6726, 65.0351, -15.7156, 1.15)
	pt3dadd(-15.1226, 65.6951, -14.9556, 1.15)
	pt3dadd(-15.3726, 66.2651, -15.0156, 1.15)
	pt3dadd(-15.6826, 67.6251, -15.9856, 1.15)
	pt3dadd(-15.8426, 69.5951, -16.6356, 1.15)
	pt3dadd(-14.7926, 71.3351, -17.3356, 1.15)
	pt3dadd(-14.6426, 71.9451, -17.4456, 1.15)
	pt3dadd(-15.1926, 73.8751, -17.9256, 1.15)
	pt3dadd(-15.2326, 76.8651, -19.8756, 1.15)
	pt3dadd(-15.9026, 77.7651, -19.8756, 1.15)
	pt3dadd(-15.9326, 78.3651, -19.8756, 1.15)
	pt3dadd(-16.6626, 80.4751, -20.8956, 1.15)
	pt3dadd(-17.2926, 80.9951, -21.6556, 1.15)
	pt3dadd(-17.2026, 82.7951, -22.3056, 1.15)
    }
}

proc shape3d_dend1_10() {
    dend[27] {pt3dclear()
	pt3dadd(-21.9826, 69.4051, -7.12557, 0.86)
	pt3dadd(-24.2826, 70.9051, -7.12557, 0.86)
	pt3dadd(-25.1626, 71.9851, -7.01557, 0.86)
	pt3dadd(-27.6226, 72.8651, -5.07557, 0.86)
	pt3dadd(-28.5626, 74.7351, -3.61557, 0.86)
	pt3dadd(-29.0226, 75.4751, -2.48557, 0.86)
	pt3dadd(-29.1526, 77.0551, -0.975572, 0.86)
	pt3dadd(-29.2126, 77.8451, -0.975572, 0.86)
	pt3dadd(-30.9526, 79.6151, -0.165572, 0.86)
	pt3dadd(-31.4726, 81.1451, 0.434428, 0.86)
	pt3dadd(-30.7426, 82.0451, 1.94443, 0.86)
	pt3dadd(-30.1526, 84.5151, 3.40443, 0.86)
	pt3dadd(-31.0026, 85.2051, 4.05443, 0.86)
	pt3dadd(-32.1226, 84.2551, 5.07443, 0.86)
	pt3dadd(-33.0026, 85.3451, 6.48443, 0.86)
	pt3dadd(-32.7026, 86.5751, 6.69443, 0.86)
	pt3dadd(-32.4426, 88.2051, 6.69443, 0.86)
	pt3dadd(-34.0226, 90.5951, 6.53443, 0.86)
	pt3dadd(-36.1626, 91.2351, 6.48443, 0.86)
	pt3dadd(-35.1626, 91.1651, 7.72443, 0.86)
	pt3dadd(-34.7526, 93.4151, 8.31443, 0.86)
	pt3dadd(-35.4526, 94.7251, 8.31443, 0.86)
	pt3dadd(-36.1526, 96.0251, 8.31443, 0.86)
	pt3dadd(-34.3226, 97.8651, 9.18443, 0.86)
	pt3dadd(-37.0126, 99.3051, 11.1244, 0.86)
	pt3dadd(-39.3526, 101.205, 13.1744, 0.86)
	pt3dadd(-40.9426, 103.595, 15.6044, 0.86)
	pt3dadd(-41.0626, 105.175, 17.3844, 1.15)
	pt3dadd(-41.1926, 106.755, 17.3844, 1.15)
	pt3dadd(-41.7126, 108.275, 17.7644, 1.15)
	pt3dadd(-42.4126, 109.585, 17.7144, 1.15)
	pt3dadd(-44.4826, 110.515, 17.7144, 1.15)
	pt3dadd(-46.6226, 110.035, 15.9344, 1.15)
	pt3dadd(-48.2626, 110.625, 16.9044, 1.15)
	pt3dadd(-50.7126, 111.505, 17.6044, 1.15)
	pt3dadd(-53.3126, 111.765, 17.5544, 1.15)
	pt3dadd(-54.4126, 113.025, 18.4644, 1.15)
	pt3dadd(-55.4426, 113.485, 17.8244, 1.15)
	pt3dadd(-57.5326, 114.815, 19.1144, 1.15)
	pt3dadd(-60.0426, 115.845, 21.5444, 1.15)
	pt3dadd(-61.1426, 117.105, 21.5444, 1.15)
	pt3dadd(-60.8426, 118.335, 23.0044, 1.15)
	pt3dadd(-61.3026, 119.075, 23.8644, 1.15)
	pt3dadd(-62.1526, 119.765, 25.5944, 1.15)
	pt3dadd(-63.3626, 120.005, 25.6544, 1.15)
	pt3dadd(-63.8126, 120.745, 27.1644, 1.15)
	pt3dadd(-65.9126, 122.075, 27.1644, 1.15)
    }
}

proc shape3d_dend1_11() {
    dend[28] {pt3dclear()
	pt3dadd(-21.9826, 69.4051, -7.12557, 1.43)
	pt3dadd(-22.7126, 71.6151, -8.09557, 1.43)
	pt3dadd(-23.2926, 73.9351, -7.66557, 1.43)
	pt3dadd(-23.4926, 76.3051, -7.66557, 1.43)
    }
}

proc shape3d_dend5_12() {
    dend[29] {pt3dclear()
	pt3dadd(17.5474, -78.3049, -11.9856, 0.86)
	pt3dadd(17.9774, -78.6549, -13.6656, 0.86)
	pt3dadd(21.1874, -79.0349, -15.9856, 0.86)
	pt3dadd(21.7374, -80.9549, -17.7156, 0.86)
	pt3dadd(22.4074, -81.8649, -19.6556, 0.86)
	pt3dadd(23.0074, -82.1549, -19.6556, 0.86)
	pt3dadd(24.3374, -84.3949, -21.3856, 0.86)
	pt3dadd(26.2074, -85.5849, -22.5156, 0.86)
	pt3dadd(26.9074, -87.2949, -28.1356, 0.86)
    }
}

proc shape3d_dend5_13() {
    dend[30] {pt3dclear()
	pt3dadd(17.57, -77.94, -12.04, 0.86)
	pt3dadd(18.16, -80.26, -12.1, 0.86)
	pt3dadd(18.8, -80.78, -12.1, 0.86)
	pt3dadd(19.35, -82.7, -12.1, 0.86)
	pt3dadd(20.99, -83.29, -12.1, 0.86)
	pt3dadd(22.83, -84.05, -12.1, 0.86)
	pt3dadd(23.93, -85.3, -12.1, 0.86)
	pt3dadd(27.59, -86.42, -12.1, 0.86)
	pt3dadd(28.18, -88.74, -11.39, 0.86)
	pt3dadd(30.7, -90.41, -11.45, 0.86)
	pt3dadd(31.4, -91.72, -11.45, 0.86)
	pt3dadd(33.49, -93.05, -12.15, 0.86)
	pt3dadd(34.77, -94.08, -13.5, 0.86)
	pt3dadd(37.1, -95.7, -13.45, 0.86)
	pt3dadd(37.8, -97.01, -13.45, 0.86)
	pt3dadd(38.21, -99.55, -14.31, 0.86)
	pt3dadd(39.24, -100.02, -14.31, 0.86)
	pt3dadd(40.12, -101.1, -14.69, 0.86)
	pt3dadd(42.19, -104.62, -15.01, 0.86)
	pt3dadd(43.32, -106.27, -15.77, 0.86)
	pt3dadd(45.02, -107.65, -17.12, 0.86)
	pt3dadd(47.11, -108.98, -17.12, 0.86)
	pt3dadd(48.49, -111.19, -17.93, 0.86)
	pt3dadd(49.79, -112.62, -18.63, 0.86)
	pt3dadd(50.16, -112.42, -18.63, 0.86)
	pt3dadd(49.37, -111.96, -19.6, 0.86)
	pt3dadd(48.29, -114.08, -19.6, 0.86)
	pt3dadd(49.2, -116.66, -19.22, 0.86)
	pt3dadd(48.22, -119.04, -19.22, 0.86)
	pt3dadd(47.86, -120.61, -19.22, 0.86)
	pt3dadd(48.14, -121.46, -19.22, 1.15)
	pt3dadd(48.02, -123.44, -19.6, 1.15)
	pt3dadd(47.34, -124.82, -19.6, 1.15)
	pt3dadd(46.64, -126.59, -18.9, 1.15)
	pt3dadd(48.15, -127.8, -18.41, 1.15)
	pt3dadd(49.03, -129.59, -19.01, 1.15)
	pt3dadd(50.2, -130, -21.06, 1.15)
	pt3dadd(50.39, -130.2, -20.57, 1.15)
	pt3dadd(50.06, -132.38, -21.49, 1.15)
	pt3dadd(50.99, -133.38, -21.49, 1.15)
	pt3dadd(51.1, -134.76, -20.74, 1.15)
	pt3dadd(51.52, -137.06, -20.74, 1.43)
	pt3dadd(51.77, -139.44, -20.3, 1.43)
	pt3dadd(51.63, -141.81, -20.3, 1.43)
    }
}

proc shape3d_dend5_14() {
    dend[31] {pt3dclear()
	pt3dadd(3.25742, -199.345, 52.2144, 0.57)
	pt3dadd(3.37742, -199.475, 51.8944, 0.57)
	pt3dadd(3.94742, -200.295, 50.4944, 0.57)
	pt3dadd(5.09742, -200.845, 50.0544, 0.57)
	pt3dadd(5.37742, -201.665, 49.4644, 0.57)
	pt3dadd(4.80742, -202.485, 49.4644, 0.57)
    }
}

proc shape3d_dend5_15() {
    dend[32] {pt3dclear()
	pt3dadd(3.25742, -199.345, 52.2144, 0.69)
	pt3dadd(4.29742, -198.855, 54.6444, 0.69)
	pt3dadd(4.98742, -199.185, 53.9444, 0.69)
	pt3dadd(6.53742, -198.855, 56.5944, 0.69)
	pt3dadd(7.74742, -198.855, 57.2944, 0.69)
	pt3dadd(7.74742, -200.335, 57.2944, 0.69)
	pt3dadd(9.12742, -200.835, 58.2644, 0.69)
	pt3dadd(9.98742, -201.665, 59.9944, 0.69)
	pt3dadd(10.1674, -202.155, 63.1244, 0.69)
	pt3dadd(9.98742, -203.145, 64.4744, 0.69)
	pt3dadd(10.6774, -204.135, 65.3944, 0.69)
	pt3dadd(11.1974, -203.805, 65.5044, 0.69)
	pt3dadd(12.2374, -203.315, 67.5544, 0.69)
	pt3dadd(11.8874, -202.655, 69.0644, 0.69)
    }
}

proc shape3d_dend5_16() {
    dend[33] {pt3dclear()
	pt3dadd(-34.47, -75.95, 1.62, 0.86)
	pt3dadd(-35.7, -77.91, 0.76, 0.86)
	pt3dadd(-37.97, -79.4, 0.76, 0.86)
	pt3dadd(-39.29, -80.17, 0.76, 0.86)
	pt3dadd(-41.23, -80.82, 0.65, 0.86)
	pt3dadd(-42.83, -80.63, -0.92, 0.86)
	pt3dadd(-44.61, -80.66, -0.92, 0.86)
	pt3dadd(-46.34, -81.48, 0.81, 0.86)
	pt3dadd(-48.84, -82.4, 0.81, 0.86)
	pt3dadd(-49.84, -82.33, 0.76, 0.86)
	pt3dadd(-51.38, -82.93, 0.27, 0.86)
	pt3dadd(-51.81, -82.59, 0.27, 0.86)
	pt3dadd(-53.62, -82.22, 0.27, 0.86)
	pt3dadd(-54.92, -83.39, 1.19, 0.86)
	pt3dadd(-56.82, -84.43, 1.57, 0.86)
	pt3dadd(-57.61, -84.53, 1.57, 0.86)
	pt3dadd(-60.54, -85.11, 2.11, 0.86)
	pt3dadd(-62.96, -84.63, 5.35, 0.86)
	pt3dadd(-63.68, -85.52, 5.35, 0.86)
	pt3dadd(-64.4, -86.41, 5.35, 0.86)
	pt3dadd(-66.91, -87.33, 5.89, 0.86)
	pt3dadd(-69.69, -87.3, 5.89, 0.86)
	pt3dadd(-70.93, -89.25, 7.13, 0.86)
	pt3dadd(-71.71, -89.35, 7.13, 0.86)
	pt3dadd(-74.68, -89.54, 8.32, 0.86)
	pt3dadd(-78.82, -89.87, 9.67, 0.86)
	pt3dadd(-81.21, -89.78, 9.72, 0.86)
	pt3dadd(-82.36, -90.33, 11.07, 0.86)
	pt3dadd(-82.99, -89.81, 11.34, 0.86)
	pt3dadd(-85.11, -90.69, 11.39, 0.86)
	pt3dadd(-84.83, -91.65, 11.39, 0.86)
	pt3dadd(-85.62, -91.75, 11.39, 0.86)
	pt3dadd(-88.82, -91.37, 11.56, 0.86)
	pt3dadd(-90.15, -92.14, 11.56, 0.86)
	pt3dadd(-92.17, -94.19, 11.88, 0.86)
	pt3dadd(-93.49, -96.43, 11.45, 0.86)
	pt3dadd(-96.88, -96.27, 11.66, 0.86)
	pt3dadd(-100.39, -97.12, 12.58, 0.86)
	pt3dadd(-102.89, -98.04, 12.96, 0.86)
	pt3dadd(-103.47, -98.32, 13.82, 0.86)
	pt3dadd(-105.1, -97.73, 14.63, 0.86)
	pt3dadd(-106.4, -98.9, 15.71, 0.86)
	pt3dadd(-106.79, -98.95, 17.44, 0.86)
	pt3dadd(-107.55, -99.44, 17.44, 0.86)
	pt3dadd(-109.38, -101.28, 17.98, 0.86)
	pt3dadd(-110.92, -101.88, 17.77, 0.86)
	pt3dadd(-113.4, -103.2, 17.77, 0.86)
	pt3dadd(-115.54, -103.67, 17.77, 0.86)
	pt3dadd(-117.45, -104.72, 18.41, 0.86)
	pt3dadd(-119.92, -106.04, 18.41, 0.86)
	pt3dadd(-125.23, -106.69, 17.6, 0.86)
	pt3dadd(-128.91, -107.77, 16.36, 0.86)
	pt3dadd(-133.5, -109.96, 15.98, 0.86)
	pt3dadd(-135.61, -110.83, 16.04, 0.86)
	pt3dadd(-137.91, -111.93, 16.47, 0.86)
	pt3dadd(-138.09, -112.15, 14.9, 0.86)
	pt3dadd(-138.57, -113.61, 14.69, 0.86)
	pt3dadd(-140.37, -115.84, 12.58, 0.86)
	pt3dadd(-141.46, -117.18, 10.53, 0.86)
	pt3dadd(-142.21, -117.67, 11.07, 0.86)
	pt3dadd(-145.17, -117.86, 11.02, 0.86)
	pt3dadd(-148.29, -118.66, 10.58, 0.86)
	pt3dadd(-152.53, -118.12, 9.83, 0.86)
	pt3dadd(-153.07, -118.79, 8.1, 0.86)
	pt3dadd(-157.07, -118.51, 8.1, 0.86)
	pt3dadd(-159.7, -117.85, 7.88, 0.86)
	pt3dadd(-161.39, -119.07, 7.88, 0.86)
	pt3dadd(-163.47, -120.34, 6.16, 0.86)
	pt3dadd(-163.85, -122.98, 4.97, 0.86)
	pt3dadd(-164.48, -125.06, 2.43, 0.86)
	pt3dadd(-166.14, -126.67, 2.05, 0.86)
	pt3dadd(-166.76, -128.75, 0.54, 0.86)
	pt3dadd(-166.54, -131.51, -0.97, 0.86)
	pt3dadd(-166.2, -133.26, -2.38, 0.86)
	pt3dadd(-168.04, -135.1, -4, 0.86)
	pt3dadd(-167.91, -136.68, -4, 0.86)
	pt3dadd(-167.39, -138.22, -5.08, 0.86)
	pt3dadd(-166.99, -140.76, -5.67, 0.86)
	pt3dadd(-169.73, -143.71, -6.86, 0.86)
	pt3dadd(-170.71, -146.23, -9.18, 0.86)
	pt3dadd(-172.15, -150.61, -9.56, 0.86)
	pt3dadd(-173.95, -152.83, -10.48, 0.86)
	pt3dadd(-174.4, -154.69, -12.74, 0.86)
	pt3dadd(-175.91, -155.68, -12.74, 0.86)
	pt3dadd(-176.23, -156.52, -14.9, 0.86)
	pt3dadd(-175.38, -157.21, -16.25, 0.86)
	pt3dadd(-175.47, -158.62, -18.31, 0.86)
	pt3dadd(-176.37, -159.73, -19.76, 0.86)
	pt3dadd(-176.46, -161.14, -20.14, 0.86)
	pt3dadd(-177.15, -162.43, -20.74, 0.86)
	pt3dadd(-176.18, -164.03, -20.74, 1.15)
	pt3dadd(-179.06, -163.53, -20.68, 1.15)
	pt3dadd(-180.23, -163.38, -19.87, 1.15)
	pt3dadd(-182.47, -162.83, -19.87, 1.15)
	pt3dadd(-183.22, -164.01, -19.87, 1.15)
	pt3dadd(-183.51, -164.78, -19.01, 1.15)
	pt3dadd(-185.16, -165.92, -19.01, 1.15)
	pt3dadd(-186.97, -165.82, -18.79, 1.15)
	pt3dadd(-188.25, -166.8, -18.04, 1.15)
	pt3dadd(-190.46, -168.6, -17.98, 1.15)
	pt3dadd(-193.6, -168.1, -18.31, 1.15)
	pt3dadd(-196.34, -169.7, -15.77, 1.15)
	pt3dadd(-197.17, -170.26, -13.99, 1.15)
    }
}

proc shape3d_dend5_17() {
    dend[34] {pt3dclear()
	pt3dadd(-34.4926, -76.3149, 1.67443, 1.15)
	pt3dadd(-36.4726, -76.4249, 1.02443, 1.15)
	pt3dadd(-37.4426, -76.7549, 1.02443, 1.15)
	pt3dadd(-39.5526, -77.6249, 1.02443, 1.15)
	pt3dadd(-40.4626, -78.7349, 1.72443, 1.15)
	pt3dadd(-41.9626, -79.7349, 2.64443, 1.15)
	pt3dadd(-45.4226, -78.7849, 3.13443, 1.15)
	pt3dadd(-46.2026, -78.8849, 3.29443, 1.15)
	pt3dadd(-46.5626, -79.3249, 4.59443, 1.15)
	pt3dadd(-46.7126, -79.9449, 4.59443, 1.15)
	pt3dadd(-48.2926, -80.1549, 5.61443, 1.15)
	pt3dadd(-50.0726, -80.1849, 5.61443, 1.15)
	pt3dadd(-52.0726, -80.0449, 5.77443, 1.15)
	pt3dadd(-52.6726, -79.9149, 5.77443, 1.15)
	pt3dadd(-54.5126, -81.7549, 6.21443, 1.15)
	pt3dadd(-56.6926, -81.8349, 6.26443, 1.15)
	pt3dadd(-58.6226, -82.4849, 8.15443, 1.15)
	pt3dadd(-59.9226, -83.6549, 8.15443, 1.15)
	pt3dadd(-61.8226, -84.6949, 8.58443, 1.15)
	pt3dadd(-62.9026, -86.0349, 8.58443, 1.15)
	pt3dadd(-65.2326, -86.7349, 10.5844, 1.15)
	pt3dadd(-67.2826, -88.3949, 11.1244, 1.15)
	pt3dadd(-70.8726, -90.6549, 11.8844, 1.15)
	pt3dadd(-72.3726, -91.6449, 11.8844, 1.15)
	pt3dadd(-74.4426, -90.7149, 12.5244, 1.15)
	pt3dadd(-75.5226, -92.0549, 12.5244, 1.15)
	pt3dadd(-76.0326, -93.1149, 12.5244, 1.15)
	pt3dadd(-76.6926, -94.8049, 12.5244, 1.15)
	pt3dadd(-77.4726, -94.9049, 12.5244, 1.15)
	pt3dadd(-78.6526, -95.0549, 12.5244, 1.15)
	pt3dadd(-79.9826, -95.8249, 12.5244, 1.15)
	pt3dadd(-81.7326, -96.2549, 13.2844, 1.15)
	pt3dadd(-84.0126, -95.1449, 13.2844, 1.15)
	pt3dadd(-84.0326, -97.3449, 13.2844, 1.15)
	pt3dadd(-85.5726, -97.9449, 13.2844, 1.15)
	pt3dadd(-87.3526, -97.9749, 14.7944, 1.15)
	pt3dadd(-90.5626, -98.7949, 14.9044, 1.15)
	pt3dadd(-91.3826, -98.5049, 14.9044, 1.15)
	pt3dadd(-92.8926, -99.4949, 14.9044, 1.15)
	pt3dadd(-94.5526, -101.105, 14.9544, 1.15)
	pt3dadd(-95.5426, -101.035, 14.9544, 1.15)
	pt3dadd(-96.9726, -100.625, 14.9544, 1.15)
	pt3dadd(-98.7226, -101.055, 14.5244, 1.15)
	pt3dadd(-100.873, -101.525, 13.7744, 1.15)
	pt3dadd(-102.703, -103.365, 13.7744, 1.15)
	pt3dadd(-105.513, -105.525, 13.6044, 1.15)
	pt3dadd(-107.233, -106.345, 15.1244, 1.15)
	pt3dadd(-108.983, -106.765, 15.6044, 1.15)
	pt3dadd(-111.573, -109.095, 15.8744, 1.15)
	pt3dadd(-113.203, -111.105, 15.8744, 1.15)
	pt3dadd(-113.713, -112.165, 15.8744, 1.15)
	pt3dadd(-113.763, -113.975, 15.8744, 1.15)
	pt3dadd(-114.093, -114.815, 15.8744, 1.15)
	pt3dadd(-115.963, -116.255, 16.5744, 1.15)
	pt3dadd(-116.893, -116.975, 16.5744, 1.15)
	pt3dadd(-118.343, -118.755, 16.5744, 1.15)
	pt3dadd(-119.963, -120.765, 16.5744, 1.15)
	pt3dadd(-121.233, -122.325, 16.5744, 1.15)
	pt3dadd(-122.133, -123.435, 16.5744, 1.15)
	pt3dadd(-123.313, -123.595, 16.5744, 1.15)
	pt3dadd(-125.963, -125.135, 16.5744, 1.15)
	pt3dadd(-126.203, -127.155, 16.5744, 1.15)
	pt3dadd(-127.073, -128.665, 16.5744, 1.15)
	pt3dadd(-127.943, -130.175, 16.5744, 1.15)
	pt3dadd(-128.303, -130.625, 16.5744, 1.15)
	pt3dadd(-129.923, -132.625, 16.5744, 1.15)
	pt3dadd(-132.763, -134.395, 16.0344, 1.15)
	pt3dadd(-133.323, -137.255, 14.5844, 1.15)
	pt3dadd(-133.013, -138.615, 14.5844, 1.15)
	pt3dadd(-135.293, -142.305, 14.5844, 1.15)
	pt3dadd(-137.853, -143.575, 14.3144, 1.15)
	pt3dadd(-139.203, -143.945, 14.3144, 1.15)
	pt3dadd(-139.863, -145.635, 14.3144, 1.15)
	pt3dadd(-143.113, -149.645, 15.2244, 1.15)
	pt3dadd(-144.383, -151.205, 14.6844, 1.15)
	pt3dadd(-144.363, -153.795, 14.3144, 1.15)
	pt3dadd(-144.273, -154.985, 14.3144, 1.15)
	pt3dadd(-144.683, -157.235, 14.3144, 1.15)
	pt3dadd(-144.133, -159.155, 14.3144, 1.15)
	pt3dadd(-144.453, -162.585, 14.3144, 1.15)
	pt3dadd(-143.383, -163.445, 14.3144, 1.15)
	pt3dadd(-143.863, -164.905, 14.3144, 1.15)
	pt3dadd(-143.443, -167.205, 14.0944, 1.15)
	pt3dadd(-142.973, -170.535, 15.1244, 1.15)
	pt3dadd(-142.173, -173.025, 15.1744, 1.15)
	pt3dadd(-142.293, -174.035, 15.0644, 1.15)
	pt3dadd(-142.983, -175.325, 15.4444, 1.15)
	pt3dadd(-144.063, -176.665, 15.4444, 1.15)
	pt3dadd(-145.533, -180.645, 15.2244, 1.15)
	pt3dadd(-146.363, -182.545, 15.2244, 1.15)
	pt3dadd(-147.273, -183.665, 15.0144, 1.15)
	pt3dadd(-148.383, -184.605, 15.6044, 1.15)
	pt3dadd(-151.023, -183.945, 14.9044, 1.15)
	pt3dadd(-151.953, -184.665, 14.9044, 1.15)
	pt3dadd(-154.253, -185.765, 13.4444, 1.15)
	pt3dadd(-155.343, -184.505, 13.4444, 1.15)
	pt3dadd(-156.313, -184.835, 13.4444, 1.15)
	pt3dadd(-157.763, -184.025, 12.9644, 1.15)
	pt3dadd(-159.153, -184.005, 11.7744, 1.15)
	pt3dadd(-161.093, -184.655, 10.4744, 1.15)
	pt3dadd(-162.243, -185.205, 10.4744, 1.15)
	pt3dadd(-164.023, -185.235, 10.4744, 1.15)
	pt3dadd(-165.623, -185.035, 10.4744, 1.15)
	pt3dadd(-167.563, -185.685, 10.4744, 1.15)
	pt3dadd(-169.673, -186.565, 10.4744, 1.15)
	pt3dadd(-170.883, -186.315, 10.4244, 1.15)
	pt3dadd(-172.943, -185.385, 10.2044, 1.15)
	pt3dadd(-173.553, -185.265, 10.8044, 1.15)
	pt3dadd(-174.913, -185.645, 10.8544, 1.15)
	pt3dadd(-176.663, -186.065, 11.7144, 1.15)
	pt3dadd(-179.123, -185.185, 11.6644, 1.15)
	pt3dadd(-181.183, -184.255, 12.3144, 1.15)
	pt3dadd(-183.353, -184.335, 12.6944, 1.15)
	pt3dadd(-185.533, -184.425, 14.2544, 1.15)
	pt3dadd(-187.433, -185.465, 14.9044, 1.15)
	pt3dadd(-187.523, -186.875, 14.9044, 1.15)
	pt3dadd(-189.913, -186.785, 14.6844, 1.15)
	pt3dadd(-192.693, -186.745, 14.6844, 1.15)
	pt3dadd(-195.613, -189.915, 15.3944, 1.15)
	pt3dadd(-196.783, -192.665, 14.1444, 1.15)
	pt3dadd(-197.293, -193.725, 14.1444, 1.15)
    }
}

proc shape3d_dend1_12() {
    dend[35] {pt3dclear()
	pt3dadd(-17.18, 83.16, -22.36, 0.86)
	pt3dadd(-17.65, 84.31, -23.44, 0.86)
	pt3dadd(-17.89, 84.88, -24.3, 0.86)
	pt3dadd(-18.52, 85.41, -24.95, 0.86)
	pt3dadd(-19.33, 85.71, -24.95, 0.86)
	pt3dadd(-20.01, 87.03, -26.19, 0.86)
	pt3dadd(-22.24, 87.78, -26.19, 0.86)
	pt3dadd(-25.09, 89.05, -26.68, 0.86)
	pt3dadd(-26.35, 90.11, -26.62, 0.86)
	pt3dadd(-28.03, 91.51, -27.7, 0.86)
	pt3dadd(-28.86, 92.22, -28.89, 0.86)
	pt3dadd(-31.87, 95.86, -26.03, 0.86)
	pt3dadd(-32.94, 97.14, -26.03, 0.86)
	pt3dadd(-34.15, 97.4, -26.03, 0.86)
	pt3dadd(-35.64, 98.6, -27.81, 0.86)
	pt3dadd(-35.56, 100.4, -27.81, 0.86)
	pt3dadd(-36.82, 101.45, -27.81, 0.86)
	pt3dadd(-38.02, 101.72, -27.81, 0.86)
	pt3dadd(-38.63, 101.85, -27.81, 0.86)
	pt3dadd(-40.12, 103.47, -27.92, 0.86)
	pt3dadd(-42, 105.06, -27.92, 0.86)
	pt3dadd(-43.47, 106.29, -27.49, 0.86)
	pt3dadd(-42.99, 108.13, -25.92, 0.86)
	pt3dadd(-43.67, 109.45, -25.92, 0.86)
	pt3dadd(-45.21, 111.87, -25.92, 0.86)
	pt3dadd(-46.31, 113.54, -25.92, 0.86)
	pt3dadd(-47.25, 115.82, -23.98, 0.86)
	pt3dadd(-48.37, 117.89, -23.98, 0.86)
	pt3dadd(-49.31, 120.17, -23.98, 0.86)
	pt3dadd(-48.99, 121.4, -24.57, 0.86)
	pt3dadd(-48.49, 122.85, -26.35, 0.86)
	pt3dadd(-48.93, 123.6, -27.81, 0.86)
	pt3dadd(-49.48, 125.93, -28.03, 0.86)
	pt3dadd(-51.55, 127.29, -29.81, 0.86)
	pt3dadd(-51.09, 129.53, -31.21, 0.86)
	pt3dadd(-51.24, 131.91, -33.32, 0.86)
	pt3dadd(-51.87, 132.43, -34.56, 0.86)
	pt3dadd(-53.55, 133.84, -34.18, 0.86)
	pt3dadd(-54.57, 134.32, -35.21, 0.86)
	pt3dadd(-56.01, 135.16, -35.59, 0.86)
	pt3dadd(-56.96, 134.46, -38.34, 0.86)
	pt3dadd(-56.96, 134.46, -39.42, 0.86)
	pt3dadd(-57.3, 134.2, -39.42, 1.15)
	pt3dadd(-58.24, 135.35, -38.56, 1.15)
	pt3dadd(-59.32, 136.24, -38.61, 1.15)
	pt3dadd(-59.84, 138.78, -38.61, 1.15)
	pt3dadd(-60.6, 141.45, -39.1, 1.15)
	pt3dadd(-61.68, 142.33, -39.1, 1.15)
    }
}

proc shape3d_dend1_13() {
    dend[36] {pt3dclear()
	pt3dadd(-17.2026, 82.7951, -22.3056, 1.15)
	pt3dadd(-16.1926, 84.2451, -22.3556, 1.15)
	pt3dadd(-16.0626, 85.2551, -22.3556, 1.15)
	pt3dadd(-16.9226, 86.3551, -22.3556, 1.15)
	pt3dadd(-17.0226, 87.9451, -23.0556, 1.15)
	pt3dadd(-16.7026, 89.1751, -23.0556, 1.15)
	pt3dadd(-16.8026, 90.7551, -24.3556, 1.15)
	pt3dadd(-17.5626, 93.2551, -23.8156, 1.15)
	pt3dadd(-17.7626, 96.4251, -23.8156, 1.15)
	pt3dadd(-18.4126, 97.3451, -23.2756, 1.15)
	pt3dadd(-20.1326, 102.535, -22.8956, 1.15)
	pt3dadd(-19.9726, 103.145, -22.8956, 1.15)
	pt3dadd(-19.1526, 105.825, -22.8956, 1.15)
	pt3dadd(-18.4626, 107.495, -22.8956, 1.15)
	pt3dadd(-17.9826, 109.345, -22.4656, 1.15)
	pt3dadd(-18.1126, 111.315, -22.4056, 1.15)
	pt3dadd(-17.8426, 113.345, -22.6756, 1.15)
	pt3dadd(-19.0726, 114.005, -22.0356, 1.15)
	pt3dadd(-18.9926, 115.805, -22.0356, 1.15)
	pt3dadd(-19.3026, 117.565, -22.3556, 1.15)
	pt3dadd(-17.7126, 120.725, -23.3256, 1.15)
	pt3dadd(-17.6326, 122.525, -23.3256, 1.15)
	pt3dadd(-15.3926, 124.765, -23.7056, 1.15)
	pt3dadd(-14.8626, 125.825, -23.7056, 1.15)
	pt3dadd(-15.8926, 126.305, -23.6556, 1.15)
	pt3dadd(-15.7826, 127.715, -22.3556, 1.15)
	pt3dadd(-15.1626, 130.565, -22.3556, 1.15)
	pt3dadd(-15.3226, 132.945, -22.3556, 1.15)
	pt3dadd(-15.5426, 135.305, -22.1356, 1.15)
	pt3dadd(-15.0626, 137.155, -22.8456, 1.15)
	pt3dadd(-14.1426, 138.255, -22.8456, 1.15)
	pt3dadd(-14.2226, 139.435, -22.1356, 1.15)
	pt3dadd(-13.3926, 142.115, -21.8656, 1.15)
	pt3dadd(-13.6326, 142.685, -21.8656, 1.15)
	pt3dadd(-14.4926, 143.785, -21.8156, 1.15)
	pt3dadd(-16.0126, 145.805, -21.0556, 1.15)
	pt3dadd(-15.2726, 146.685, -22.6256, 1.15)
	pt3dadd(-13.9826, 148.225, -22.6256, 1.15)
	pt3dadd(-14.0026, 148.625, -22.6256, 1.15)
	pt3dadd(-13.5326, 150.465, -23.7056, 1.15)
	pt3dadd(-13.8126, 151.835, -24.0856, 1.15)
	pt3dadd(-12.5226, 153.365, -24.0856, 1.15)
	pt3dadd(-12.6026, 154.555, -24.0856, 1.15)
	pt3dadd(-13.3526, 157.065, -23.3856, 1.15)
	pt3dadd(-13.2926, 159.255, -23.2756, 1.15)
	pt3dadd(-14.0226, 161.365, -24.4656, 1.15)
	pt3dadd(-13.1026, 162.465, -24.4656, 1.15)
	pt3dadd(-13.3826, 163.825, -24.5656, 1.15)
	pt3dadd(-12.4326, 167.515, -24.5656, 1.15)
	pt3dadd(-11.6926, 168.395, -24.5656, 1.15)
	pt3dadd(-11.5826, 169.805, -24.5656, 1.15)
	pt3dadd(-11.6326, 170.595, -24.5656, 1.15)
	pt3dadd(-12.0726, 171.345, -24.5656, 1.15)
	pt3dadd(-12.7526, 172.665, -24.5156, 1.15)
	pt3dadd(-12.4626, 174.285, -24.5156, 1.15)
	pt3dadd(-12.1426, 175.515, -24.5156, 1.15)
	pt3dadd(-11.6426, 176.965, -25.1056, 1.15)
	pt3dadd(-11.3426, 178.595, -26.3556, 1.15)
	pt3dadd(-11.4726, 180.575, -26.3556, 1.15)
	pt3dadd(-11.6526, 183.345, -26.9456, 1.15)
	pt3dadd(-12.1626, 185.275, -27.0556, 1.15)
	pt3dadd(-10.6926, 187.035, -26.6256, 1.15)
	pt3dadd(-10.5826, 188.435, -26.2456, 1.15)
	pt3dadd(-10.7826, 191.605, -23.4356, 1.15)
	pt3dadd(-10.8626, 192.785, -24.0256, 1.15)
	pt3dadd(-10.6126, 195.205, -24.0256, 1.15)
	pt3dadd(-10.7126, 196.785, -24.0256, 1.15)
	pt3dadd(-11.8426, 198.855, -24.0856, 1.15)
	pt3dadd(-10.6726, 201.325, -23.2156, 1.15)
	pt3dadd(-10.7726, 202.905, -22.7856, 1.15)
	pt3dadd(-12.0526, 204.355, -21.4956, 1.15)
	pt3dadd(-12.7026, 205.275, -21.4956, 1.15)
	pt3dadd(-14.1326, 206.485, -21.0056, 1.15)
	pt3dadd(-15.1826, 207.485, -21.0056, 0.86)
	pt3dadd(-13.8026, 210.055, -21.0056, 0.86)
	pt3dadd(-11.8426, 212.905, -19.2256, 0.86)
	pt3dadd(-11.6726, 215.715, -18.5756, 0.86)
	pt3dadd(-11.1126, 218.585, -18.1956, 0.86)
	pt3dadd(-11.2126, 219.765, -17.7156, 0.86)
    }
}


proc shape3d_dend1_14() {
    dend[37] {pt3dclear()
	pt3dadd(-65.9126, 122.075, 27.1644, 1.15)
	pt3dadd(-66.6726, 124.175, 27.2144, 1.15)
	pt3dadd(-66.7026, 124.565, 27.5944, 1.15)
	pt3dadd(-69.5826, 125.795, 28.9444, 1.15)
	pt3dadd(-70.5026, 127.265, 28.9444, 1.15)
	pt3dadd(-71.6226, 128.915, 30.6144, 1.15)
	pt3dadd(-72.4126, 128.815, 30.6144, 1.15)
	pt3dadd(-74.1126, 130.195, 31.8644, 1.15)
	pt3dadd(-74.8426, 129.575, 34.1244, 1.43)
	pt3dadd(-75.7026, 130.125, 35.3144, 1.43)
	pt3dadd(-76.2726, 131.765, 37.6944, 1.43)
	pt3dadd(-76.5626, 133.125, 37.6944, 1.43)
	pt3dadd(-77.4226, 135.045, 39.2544, 1.43)
	pt3dadd(-77.1326, 136.685, 39.3644, 1.43)
	pt3dadd(-77.1326, 138.595, 39.3644, 1.43)
	pt3dadd(-76.8526, 140.785, 39.3644, 1.15)
	pt3dadd(-76.2726, 141.875, 39.3644, 1.15)
	pt3dadd(-76.2726, 143.795, 39.3644, 1.15)
	pt3dadd(-76.8526, 145.165, 39.3644, 1.15)
	pt3dadd(-77.7126, 146.525, 39.4744, 1.15)
	pt3dadd(-77.4226, 147.345, 39.4744, 1.15)
	pt3dadd(-76.8526, 148.165, 39.5844, 1.15)
	pt3dadd(-76.8526, 149.265, 38.8244, 1.15)
	pt3dadd(-77.4226, 153.095, 38.8244, 1.15)
	pt3dadd(-77.4226, 154.185, 38.8244, 1.15)
	pt3dadd(-77.7126, 154.455, 38.8244, 1.15)
	pt3dadd(-76.8526, 156.095, 37.6944, 1.15)
	pt3dadd(-75.9926, 158.015, 36.7244, 1.15)
	pt3dadd(-75.9926, 159.655, 36.6644, 1.15)
	pt3dadd(-75.7026, 161.845, 35.3144, 1.15)
	pt3dadd(-76.2726, 162.935, 35.3144, 1.15)
	pt3dadd(-77.4226, 164.575, 35.3144, 1.15)
	pt3dadd(-78.2826, 165.945, 35.3144, 1.15)
	pt3dadd(-78.0026, 167.585, 36.3444, 1.15)
	pt3dadd(-79.1426, 168.675, 36.3944, 1.15)
	pt3dadd(-80.2926, 170.595, 36.8844, 1.15)
	pt3dadd(-79.7226, 171.415, 37.7444, 1.15)
	pt3dadd(-78.5726, 172.775, 38.6644, 1.15)
	pt3dadd(-77.7126, 173.595, 38.7744, 1.15)
	pt3dadd(-77.1326, 174.145, 40.3344, 1.15)
	pt3dadd(-76.2726, 174.965, 40.5544, 1.15)
	pt3dadd(-76.5626, 176.885, 40.6044, 1.15)
	pt3dadd(-76.2726, 177.155, 42.4944, 1.15)
	pt3dadd(-74.8426, 176.885, 45.5244, 1.15)
	pt3dadd(-74.2726, 177.975, 47.8944, 1.15)
    }
}

proc shape3d_dend1_15() {
    dend[38] {pt3dclear()
	pt3dadd(-65.9126, 122.075, 27.1644, 0.86)
	pt3dadd(-68.3526, 120.365, 27.2744, 0.86)
	pt3dadd(-67.9626, 120.415, 27.2744, 0.86)
	pt3dadd(-70.4326, 119.095, 27.2744, 0.86)
	pt3dadd(-71.9726, 118.495, 29.1644, 0.86)
	pt3dadd(-73.6326, 116.885, 31.2644, 0.86)
	pt3dadd(-74.8926, 115.325, 31.2644, 0.86)
	pt3dadd(-76.7026, 113.595, 32.2944, 1.43)
	pt3dadd(-77.2726, 113.595, 32.2944, 1.43)
	pt3dadd(-76.9926, 112.225, 34.1244, 1.43)
	pt3dadd(-77.2726, 111.135, 33.8544, 1.43)
	pt3dadd(-78.4226, 109.765, 33.8044, 1.43)
	pt3dadd(-78.7126, 108.945, 32.2944, 1.43)
	pt3dadd(-79.5126, 110.735, 32.3444, 1.15)
	pt3dadd(-81.1326, 108.725, 32.2944, 1.15)
	pt3dadd(-82.4926, 108.355, 31.9644, 1.15)
	pt3dadd(-84.5426, 106.685, 31.9144, 1.15)
	pt3dadd(-85.0526, 105.625, 31.9144, 1.15)
	pt3dadd(-85.9226, 104.115, 30.0744, 1.15)
	pt3dadd(-87.7026, 104.085, 28.1844, 1.15)
	pt3dadd(-88.7626, 102.355, 28.1844, 1.15)
	pt3dadd(-89.9026, 101.805, 27.8644, 1.15)
	pt3dadd(-91.3826, 100.415, 27.8644, 1.15)
	pt3dadd(-91.5526, 97.6051, 27.8644, 1.15)
	pt3dadd(-92.5726, 95.4751, 27.1044, 1.15)
	pt3dadd(-93.0826, 94.4051, 26.3544, 1.15)
	pt3dadd(-93.7426, 92.7251, 26.2944, 1.15)
	pt3dadd(-95.3026, 89.9351, 25.7044, 1.15)
	pt3dadd(-94.6826, 87.2151, 25.7044, 1.15)
	pt3dadd(-94.5826, 86.0351, 25.7044, 1.15)
	pt3dadd(-93.8826, 84.7251, 25.7044, 1.15)
	pt3dadd(-93.3626, 83.1951, 25.6544, 1.15)
	pt3dadd(-93.2326, 81.6151, 23.4944, 1.15)
	pt3dadd(-93.5326, 80.3851, 23.4944, 1.15)
	pt3dadd(-93.2226, 79.0251, 23.8644, 1.15)
    }
}

proc shape3d_dend1_16() {
    dend[39] {pt3dclear()
	pt3dadd(-23.4926, 76.3051, -7.66557, 1.15)
	pt3dadd(-22.6526, 78.2151, -7.66557, 1.15)
	pt3dadd(-21.3226, 78.9851, -7.66557, 1.15)
	pt3dadd(-20.5726, 79.4751, -8.15557, 1.15)
	pt3dadd(-21.4826, 80.9551, -8.09557, 1.15)
	pt3dadd(-21.5826, 82.1451, -8.09557, 1.15)
	pt3dadd(-21.8326, 85.3051, -8.09557, 1.15)
	pt3dadd(-20.9926, 87.2051, -7.18557, 1.15)
	pt3dadd(-20.4826, 88.2751, -7.18557, 1.15)
	pt3dadd(-19.2226, 89.8351, -7.01557, 1.15)
	pt3dadd(-18.7126, 90.8951, -7.07557, 1.15)
	pt3dadd(-18.8426, 92.4751, -7.23557, 1.15)
	pt3dadd(-17.8226, 94.6051, -7.23557, 1.15)
	pt3dadd(-18.0626, 95.1751, -7.28557, 1.15)
	pt3dadd(-19.7626, 96.5451, -6.64557, 1.15)
	pt3dadd(-19.1126, 98.2251, -5.88557, 1.15)
	pt3dadd(-19.0526, 100.035, -5.88557, 1.15)
	pt3dadd(-19.3326, 100.995, -5.23557, 1.15)
	pt3dadd(-20.0926, 103.095, -4.75557, 1.15)
	pt3dadd(-19.9826, 104.105, -4.10557, 1.15)
	pt3dadd(-19.6826, 105.345, -4.10557, 1.15)
	pt3dadd(-19.6926, 107.935, -3.34557, 1.15)
	pt3dadd(-19.0326, 109.615, -4.48557, 1.15)
	pt3dadd(-18.0826, 112.535, -4.53557, 1.15)
	pt3dadd(-20.4226, 114.425, -5.93557, 1.15)
	pt3dadd(-20.5126, 115.615, -5.93557, 1.15)
	pt3dadd(-20.6126, 116.795, -5.93557, 1.15)
	pt3dadd(-19.8226, 116.895, -5.93557, 1.15)
	pt3dadd(-17.9526, 118.335, -5.93557, 1.15)
	pt3dadd(-18.0226, 119.125, -6.26557, 1.15)
	pt3dadd(-18.7226, 120.435, -6.26557, 1.15)
	pt3dadd(-18.6326, 121.845, -6.96557, 1.15)
    }
}

proc shape3d_dend1_17() {
    dend[40] {pt3dclear()
	pt3dadd(-23.4926, 76.3051, -7.66557, 1.15)
	pt3dadd(-24.9726, 77.5151, -7.61557, 1.15)
	pt3dadd(-27.2426, 78.6151, -7.66557, 1.15)
	pt3dadd(-27.0426, 81.0351, -8.36557, 1.15)
	pt3dadd(-28.6426, 81.2251, -9.77557, 1.15)
	pt3dadd(-28.9826, 82.9751, -9.77557, 1.15)
	pt3dadd(-29.2626, 83.9451, -9.77557, 1.15)
	pt3dadd(-29.3226, 84.7351, -9.77557, 1.15)
	pt3dadd(-30.3326, 87.3951, -10.2556, 1.15)
	pt3dadd(-29.8926, 89.2451, -10.2556, 1.15)
	pt3dadd(-29.7726, 90.2651, -10.2556, 1.15)
	pt3dadd(-29.9626, 92.6351, -10.2556, 1.15)
	pt3dadd(-28.9426, 94.7551, -10.2556, 1.15)
	pt3dadd(-29.2226, 95.7251, -10.2556, 1.15)
	pt3dadd(-30.1726, 97.5951, -9.34557, 1.15)
	pt3dadd(-29.0826, 98.9351, -8.09557, 1.15)
	pt3dadd(-29.8226, 100.635, -7.34557, 1.15)
	pt3dadd(-30.0726, 103.795, -7.34557, 1.15)
	pt3dadd(-31.6926, 106.575, -7.50557, 1.15)
	pt3dadd(-29.9126, 109.205, -6.96557, 1.15)
	pt3dadd(-31.2526, 111.025, -8.63557, 1.15)
	pt3dadd(-30.2926, 111.345, -7.99557, 1.15)
	pt3dadd(-30.6626, 113.495, -7.99557, 1.15)
	pt3dadd(-31.1226, 114.235, -7.99557, 1.15)
	pt3dadd(-31.1526, 114.635, -7.99557, 1.15)
	pt3dadd(-30.4626, 115.915, -7.99557, 1.15)
	pt3dadd(-29.8326, 117.995, -8.69557, 1.15)
	pt3dadd(-30.3926, 119.915, -8.74557, 1.15)
	pt3dadd(-30.1826, 122.335, -9.07557, 1.15)
	pt3dadd(-29.7126, 123.795, -7.61557, 1.15)
	pt3dadd(-30.0826, 125.945, -7.61557, 1.15)
	pt3dadd(-30.1726, 127.135, -8.47557, 1.15)
	pt3dadd(-30.4826, 128.485, -8.47557, 1.15)
	pt3dadd(-29.2826, 130.835, -8.47557, 1.15)
	pt3dadd(-29.4126, 132.415, -8.47557, 1.15)
	pt3dadd(-28.6426, 135.115, -8.42557, 1.15)
	pt3dadd(-30.3726, 137.515, -7.34557, 1.15)
	pt3dadd(-29.6526, 138.405, -7.34557, 1.15)
	pt3dadd(-30.4526, 140.895, -6.80557, 1.15)
    }
}

proc shape3d_dend5_18() {
    dend[41] {pt3dclear()
	pt3dadd(4.80742, -202.485, 49.4644, 0.29)
	pt3dadd(5.37742, -204.675, 49.4644, 0.29)
	pt3dadd(6.23742, -206.315, 49.4644, 0.29)
	pt3dadd(6.23742, -207.675, 49.4644, 0.29)
	pt3dadd(5.95742, -209.315, 48.4344, 0.29)
	pt3dadd(5.95742, -210.135, 46.1144, 0.29)
	pt3dadd(5.09742, -210.965, 42.6644, 0.29)
	pt3dadd(3.65742, -212.055, 42.0644, 0.29)
	pt3dadd(2.50742, -212.055, 42.0644, 0.29)
	pt3dadd(1.64742, -212.055, 41.9044, 0.29)
    }
}

proc shape3d_dend5_19() {
    dend[42] {pt3dclear()
	pt3dadd(4.80742, -202.485, 49.4644, 0.57)
	pt3dadd(4.23742, -203.035, 50.1644, 0.57)
	pt3dadd(3.94742, -202.755, 47.8944, 0.57)
	pt3dadd(3.65742, -203.575, 44.7644, 0.57)
	pt3dadd(2.50742, -203.575, 42.9344, 0.57)
	pt3dadd(1.36742, -203.575, 42.7144, 0.57)
	pt3dadd(-0.0725754, -205.495, 41.6344, 0.57)
	pt3dadd(-0.932575, -204.395, 40.9344, 0.57)
	pt3dadd(-2.07258, -204.945, 40.9344, 0.57)
	pt3dadd(-2.65258, -206.585, 40.9344, 0.57)
	pt3dadd(-3.22258, -208.225, 40.8744, 0.57)
	pt3dadd(-3.80258, -209.315, 40.8744, 0.57)
	pt3dadd(-5.23258, -210.965, 40.0644, 0.57)
	pt3dadd(-6.66258, -212.605, 39.4744, 0.57)
	pt3dadd(-8.64258, -214.845, 40.0144, 0.57)
    }
}

proc shape3d_dend1_18() {
    dend[43] {pt3dclear()
	pt3dadd(-18.6326, 121.845, -6.96557, 0.86)
	pt3dadd(-18.5226, 122.855, -7.72557, 0.86)
	pt3dadd(-17.5826, 123.575, -8.85557, 0.86)
	pt3dadd(-15.8326, 123.995, -9.93557, 0.86)
	pt3dadd(-14.7226, 124.945, -12.3156, 0.86)
	pt3dadd(-15.0626, 126.695, -15.0156, 0.86)
	pt3dadd(-14.8826, 126.915, -16.6856, 0.86)
	pt3dadd(-12.6826, 129.195, -17.7156, 0.86)
	pt3dadd(-11.9526, 130.085, -19.4356, 0.86)
	pt3dadd(-11.3326, 132.165, -21.4356, 0.86)
	pt3dadd(-11.7926, 132.945, -20.6256, 0.86)
	pt3dadd(-10.3526, 134.725, -22.8956, 0.86)
	pt3dadd(-9.04258, 136.825, -22.8956, 1.15)
	pt3dadd(-9.30258, 137.795, -26.5156, 1.15)
	pt3dadd(-8.01258, 139.335, -26.7256, 1.15)
	pt3dadd(-7.64258, 139.775, -29.9656, 1.15)
	pt3dadd(-7.71258, 140.955, -30.1856, 1.15)
    }
}

proc shape3d_dend1_19() {
    dend[44] {pt3dclear()
	pt3dadd(-18.6326, 121.845, -6.96557, 1.15)
	pt3dadd(-20.1026, 122.685, -7.07557, 1.15)
	pt3dadd(-19.5326, 125.555, -7.07557, 1.15)
	pt3dadd(-18.8126, 126.445, -7.07557, 1.15)
	pt3dadd(-18.2226, 128.915, -7.55557, 1.15)
	pt3dadd(-18.3526, 130.495, -5.56557, 1.15)
	pt3dadd(-18.0326, 133.925, -5.56557, 1.15)
	pt3dadd(-17.5526, 135.385, -5.56557, 1.15)
	pt3dadd(-18.0426, 136.525, -5.66557, 1.15)
	pt3dadd(-19.2326, 138.965, -5.66557, 1.15)
	pt3dadd(-18.5126, 139.855, -6.96557, 1.15)
	pt3dadd(-18.6026, 141.045, -7.45557, 1.15)
	pt3dadd(-18.0126, 143.515, -8.31557, 1.15)
	pt3dadd(-17.7126, 144.745, -8.31557, 1.15)
	pt3dadd(-16.8726, 146.655, -8.31557, 1.15)
	pt3dadd(-17.0326, 148.625, -8.74557, 1.15)
	pt3dadd(-18.7026, 149.605, -8.63557, 1.15)
	pt3dadd(-19.2226, 151.135, -8.04557, 1.15)
	pt3dadd(-18.4826, 154.225, -7.72557, 1.15)
	pt3dadd(-19.3126, 157.115, -7.55557, 1.15)
	pt3dadd(-18.9226, 157.165, -7.07557, 1.15)
	pt3dadd(-20.3426, 157.585, -6.47557, 1.15)
	pt3dadd(-20.6526, 158.935, -5.18557, 1.15)
	pt3dadd(-20.6926, 161.925, -5.18557, 1.15)
	pt3dadd(-21.2426, 163.845, -5.07557, 1.15)
	pt3dadd(-21.0826, 166.665, -5.07557, 1.15)
	pt3dadd(-20.8426, 168.695, -5.07557, 1.15)
	pt3dadd(-20.0726, 171.385, -5.07557, 1.15)
	pt3dadd(-21.1126, 174.455, -4.85557, 1.15)
	pt3dadd(-21.6026, 175.585, -4.85557, 1.15)
	pt3dadd(-20.4326, 178.335, -3.94557, 1.15)
	pt3dadd(-21.7726, 180.155, -3.29557, 1.15)
	pt3dadd(-22.5926, 180.445, -3.02557, 1.15)
	pt3dadd(-25.2626, 181.495, -2.42557, 1.15)
	pt3dadd(-26.3526, 182.755, -1.72557, 1.15)
	pt3dadd(-27.0526, 184.065, -1.67557, 1.15)
	pt3dadd(-27.4626, 186.605, -0.595572, 1.15)
	pt3dadd(-29.0426, 188.995, 1.18443, 1.15)
	pt3dadd(-29.5326, 190.125, 3.83443, 1.15)
	pt3dadd(-30.4126, 191.215, 4.59443, 1.15)
	pt3dadd(-29.5426, 192.725, 4.75443, 1.15)
	pt3dadd(-29.5926, 195.705, 4.69443, 1.15)
	pt3dadd(-30.2326, 198.815, 4.69443, 1.15)
	pt3dadd(-29.2826, 201.735, 4.69443, 1.15)
	pt3dadd(-29.2626, 203.935, 4.69443, 1.15)
	pt3dadd(-29.9926, 205.635, 4.69443, 1.15)
	pt3dadd(-30.5126, 207.165, 3.83443, 1.15)
	pt3dadd(-29.2826, 209.115, 3.99443, 1.15)
	pt3dadd(-28.2926, 211.645, 3.67443, 1.15)
	pt3dadd(-29.1726, 214.165, 3.88443, 1.15)
	pt3dadd(-27.4326, 217.175, 3.88443, 1.15)
	pt3dadd(-25.8126, 219.185, 5.29443, 1.15)
	pt3dadd(-26.0826, 220.145, 6.10443, 1.15)
	pt3dadd(-25.4926, 222.615, 6.75443, 1.15)
	pt3dadd(-25.4026, 224.025, 6.75443, 1.15)
	pt3dadd(-24.8626, 224.695, 6.37443, 1.15)
	pt3dadd(-25.0226, 226.675, 6.37443, 1.15)
	pt3dadd(-25.2726, 227.235, 6.31443, 1.15)
	pt3dadd(-24.1026, 229.985, 5.72443, 1.15)
	pt3dadd(-23.2926, 232.285, 5.72443, 1.15)
	pt3dadd(-21.8226, 233.675, 6.26443, 1.15)
	pt3dadd(-22.3426, 235.205, 6.96443, 1.15)
	pt3dadd(-22.1426, 237.625, 7.39443, 1.15)
	pt3dadd(-21.1526, 240.145, 8.31443, 1.15)
	pt3dadd(-20.5526, 242.615, 8.37443, 1.15)
	pt3dadd(-21.2226, 243.525, 8.37443, 1.15)
	pt3dadd(-19.3926, 245.365, 10.2644, 0.86)
	pt3dadd(-17.9726, 247.545, 10.8544, 0.86)
	pt3dadd(-18.7126, 249.245, 10.9044, 0.86)
	pt3dadd(-17.4626, 253.395, 12.2544, 0.86)
	pt3dadd(-16.8026, 255.075, 12.9044, 0.86)
	pt3dadd(-15.3026, 258.665, 12.9044, 0.86)
	pt3dadd(-13.8626, 260.445, 13.1744, 0.86)
	pt3dadd(-13.7526, 264.055, 14.0944, 0.86)
	pt3dadd(-13.2226, 267.315, 14.5844, 0.86)
	pt3dadd(-12.5026, 268.205, 15.1244, 0.86)
	pt3dadd(-12.0926, 270.865, 14.8544, 1.15)
	pt3dadd(-11.6626, 275.315, 15.7144, 1.15)
	pt3dadd(-11.5126, 275.925, 15.7144, 1.15)
	pt3dadd(-11.2826, 277.955, 15.7144, 1.15)
	pt3dadd(-11.0426, 279.985, 15.7144, 1.15)
	pt3dadd(-10.1726, 281.495, 16.6344, 1.15)
	pt3dadd(-9.48258, 282.775, 16.7444, 1.15)
	pt3dadd(-8.79258, 284.065, 16.8444, 1.15)
	pt3dadd(-10.4626, 285.045, 17.3344, 1.15)
    }
}

proc shape3d_dend1_20() {
    dend[45] {pt3dclear()
	pt3dadd(-30.4526, 140.895, -6.80557, 0.86)
	pt3dadd(-32.5126, 141.825, -7.72557, 0.86)
	pt3dadd(-33.5726, 142.685, -7.72557, 0.86)
	pt3dadd(-32.8126, 143.185, -7.72557, 0.86)
	pt3dadd(-33.7926, 145.455, -7.72557, 0.86)
	pt3dadd(-34.7126, 146.925, -7.77557, 0.86)
	pt3dadd(-35.8026, 148.185, -7.77557, 0.86)
	pt3dadd(-37.3826, 150.575, -8.90557, 0.86)
	pt3dadd(-37.7326, 152.325, -8.90557, 0.86)
	pt3dadd(-38.9426, 152.565, -8.90557, 0.86)
    }
}

proc shape3d_dend1_21() {
    dend[46] {pt3dclear()
	pt3dadd(-30.4526, 140.895, -6.80557, 1.15)
	pt3dadd(-30.1826, 142.525, -6.85557, 1.15)
	pt3dadd(-30.6726, 143.655, -8.96557, 1.15)
	pt3dadd(-30.8026, 145.235, -9.82557, 1.15)
	pt3dadd(-30.4726, 146.085, -9.82557, 1.15)
	pt3dadd(-30.2026, 147.715, -11.0656, 1.15)
	pt3dadd(-29.7626, 149.565, -11.0656, 1.15)
	pt3dadd(-29.1026, 151.245, -10.4756, 1.15)
	pt3dadd(-30.1126, 153.915, -9.98557, 1.15)
	pt3dadd(-30.9126, 156.405, -9.55557, 1.15)
	pt3dadd(-31.5826, 157.315, -9.55557, 1.15)
	pt3dadd(-30.8526, 158.205, -9.55557, 1.15)
	pt3dadd(-31.1026, 158.775, -9.55557, 1.15)
	pt3dadd(-30.1626, 159.495, -9.55557, 1.15)
	pt3dadd(-29.3326, 161.395, -9.55557, 1.15)
	pt3dadd(-30.7326, 164.005, -9.28557, 1.15)
	pt3dadd(-30.8926, 165.985, -9.23557, 1.15)
	pt3dadd(-31.2026, 167.345, -9.23557, 1.15)
	pt3dadd(-31.6226, 167.685, -9.23557, 1.15)
	pt3dadd(-32.1126, 168.815, -9.23557, 0.86)
	pt3dadd(-30.7026, 170.995, -9.23557, 0.86)
	pt3dadd(-31.4326, 172.695, -9.12557, 0.86)
	pt3dadd(-31.5626, 174.275, -9.44557, 0.86)
	pt3dadd(-31.4426, 175.295, -9.44557, 0.86)
	pt3dadd(-31.3926, 177.095, -9.44557, 0.86)
	pt3dadd(-29.9826, 179.275, -9.39557, 0.86)
	pt3dadd(-31.6426, 182.315, -9.44557, 0.86)
	pt3dadd(-31.2926, 185.345, -9.66557, 0.86)
	pt3dadd(-30.6026, 186.635, -10.0956, 0.86)
	pt3dadd(-29.7926, 188.935, -10.0956, 0.86)
	pt3dadd(-28.8126, 191.455, -9.28557, 0.86)
	pt3dadd(-29.7826, 193.725, -8.63557, 0.86)
	pt3dadd(-30.0626, 194.685, -8.63557, 0.86)
	pt3dadd(-28.9826, 196.025, -7.82557, 0.86)
	pt3dadd(-28.7426, 198.055, -7.82557, 0.86)
	pt3dadd(-28.4226, 198.895, -7.82557, 0.86)
	pt3dadd(-28.7626, 200.645, -7.82557, 0.86)
	pt3dadd(-27.7126, 202.375, -7.82557, 0.86)
	pt3dadd(-27.4126, 203.615, -7.82557, 0.86)
	pt3dadd(-27.9626, 205.535, -7.88557, 0.86)
	pt3dadd(-26.6326, 206.305, -7.93557, 0.86)
	pt3dadd(-26.3026, 207.145, -7.93557, 0.86)
	pt3dadd(-26.6426, 208.905, -7.93557, 1.15)
	pt3dadd(-26.2626, 211.545, -7.93557, 1.15)
	pt3dadd(-26.3626, 212.735, -7.93557, 1.15)
	pt3dadd(-24.8326, 215.925, -7.93557, 1.15)
	pt3dadd(-25.8426, 218.585, -7.93557, 1.15)
	pt3dadd(-24.9426, 219.705, -7.93557, 1.15)
	pt3dadd(-24.5926, 222.735, -7.93557, 1.15)
	pt3dadd(-23.2926, 223.905, -8.09557, 1.15)
	pt3dadd(-23.0326, 225.535, -8.09557, 1.15)
	pt3dadd(-21.6126, 227.715, -8.09557, 1.15)
	pt3dadd(-21.1126, 228.775, -7.45557, 1.15)
	pt3dadd(-22.2026, 230.035, -7.45557, 0.86)
	pt3dadd(-22.6226, 230.375, -5.93557, 0.86)
	pt3dadd(-22.0326, 232.845, -5.93557, 0.86)
	pt3dadd(-21.7726, 234.485, -4.21557, 0.86)
	pt3dadd(-21.9626, 236.855, -4.21557, 0.86)
	pt3dadd(-22.5426, 239.165, -3.29557, 0.86)
	pt3dadd(-21.5626, 241.695, -3.29557, 0.86)
	pt3dadd(-22.2226, 242.605, -1.29557, 0.86)
	pt3dadd(-22.5026, 243.565, -0.975572, 0.86)
	pt3dadd(-22.5026, 243.565, -0.215572, 0.86)
    }
}

proc shape3d_dend1_22() {
    dend[47] {pt3dclear()
	pt3dadd(-61.68, 142.33, -39.1, 1.15)
	pt3dadd(-63.48, 143.61, -39.1, 1.15)
	pt3dadd(-64.18, 144.62, -40.5, 1.15)
	pt3dadd(-64.67, 144.88, -40.5, 1.15)
	pt3dadd(-65.53, 145, -42.28, 1.15)
	pt3dadd(-66.05, 147.54, -42.28, 1.15)
	pt3dadd(-67.37, 148.56, -42.28, 1.15)
	pt3dadd(-68.53, 150.46, -43.74, 1.15)
	pt3dadd(-68.46, 152.37, -44.66, 1.15)
	pt3dadd(-69.11, 154.66, -44.71, 1.15)
	pt3dadd(-69.98, 157.7, -44.71, 1.15)
	pt3dadd(-70.96, 161.13, -44.33, 1.15)
	pt3dadd(-70.99, 163.42, -44.39, 1.15)
	pt3dadd(-70.17, 165.58, -43.42, 1.15)
	pt3dadd(-70.98, 166.98, -43.42, 1.15)
	pt3dadd(-72.41, 168.37, -43.42, 1.15)
	pt3dadd(-73.14, 168.76, -43.42, 1.15)
	pt3dadd(-73.46, 169.9, -43.42, 1.15)
	pt3dadd(-73.12, 172.31, -42.82, 1.15)
	pt3dadd(-72.76, 175.36, -42.82, 1.15)
	pt3dadd(-73.49, 175.74, -42.82, 1.15)
	pt3dadd(-75.51, 177.77, -44.01, 1.15)
	pt3dadd(-76.32, 179.17, -45.74, 1.15)
	pt3dadd(-75.82, 182.47, -45.85, 1.15)
	pt3dadd(-75.49, 184.36, -46.87, 1.15)
	pt3dadd(-74.93, 186.01, -46.87, 1.15)
	pt3dadd(-75.7, 188.68, -48.92, 1.15)
	pt3dadd(-76.02, 189.82, -48.92, 1.15)
	pt3dadd(-77.1, 190.71, -48.92, 1.15)
	pt3dadd(-76.3, 192.23, -48.98, 1.15)
	pt3dadd(-76.85, 194.14, -48.98, 1.15)
	pt3dadd(-76.88, 196.42, -48.98, 1.15)
	pt3dadd(-76.63, 199.85, -49.57, 1.15)
	pt3dadd(-76.71, 200.87, -49.57, 1.15)
	pt3dadd(-77.96, 203.79, -49.52, 1.15)
	pt3dadd(-77.05, 204.94, -49.52, 1.15)
	pt3dadd(-77.13, 205.95, -49.52, 1.15)
	pt3dadd(-78.54, 207.98, -49.57, 1.15)
	pt3dadd(-78.33, 210.14, -49.63, 1.15)
	pt3dadd(-77.61, 212.68, -51.08, 1.15)
	pt3dadd(-77.85, 213.43, -51.68, 1.15)
	pt3dadd(-77.08, 214.59, -51.68, 1.15)
	pt3dadd(-76.39, 215.85, -51.57, 1.15)
	pt3dadd(-76.74, 216.36, -51.46, 1.15)
	pt3dadd(-77.49, 218.41, -51.46, 1.15)
	pt3dadd(-77.66, 219.81, -50.87, 1.15)
	pt3dadd(-77.86, 222.86, -50.87, 1.15)
	pt3dadd(-76.82, 225.89, -52.49, 1.15)
	pt3dadd(-76.4, 228.93, -52.6, 1.15)
    }
}

proc shape3d_dend1_23() {
    dend[48] {pt3dclear()
	pt3dadd(-61.68, 142.33, -39.1, 1.15)
	pt3dadd(-60.08, 144.66, -39.42, 1.15)
	pt3dadd(-60.78, 145.68, -39.42, 1.15)
	pt3dadd(-60.33, 147.71, -39.47, 1.15)
	pt3dadd(-59.75, 149.99, -39.47, 1.15)
	pt3dadd(-59.92, 152.03, -39.96, 1.15)
	pt3dadd(-59.36, 153.68, -39.96, 1.15)
	pt3dadd(-59.88, 156.22, -39.96, 1.15)
	pt3dadd(-60.61, 156.6, -40.45, 1.15)
	pt3dadd(-61.24, 159.52, -40.45, 1.15)
	pt3dadd(-61.45, 160.28, -40.18, 1.15)
	pt3dadd(-61.38, 162.19, -40.18, 1.15)
	pt3dadd(-62.08, 163.2, -40.99, 1.15)
	pt3dadd(-61.28, 164.73, -41.36, 1.15)
	pt3dadd(-61.13, 165.62, -41.36, 1.15)
	pt3dadd(-60.68, 167.65, -41.36, 1.15)
	pt3dadd(-60.14, 168.67, -41.36, 1.15)
	pt3dadd(-59.85, 169.81, -41.36, 1.15)
	pt3dadd(-59.45, 170.57, -41.36, 1.15)
	pt3dadd(-59, 172.6, -41.15, 1.15)
	pt3dadd(-58.71, 173.75, -41.15, 1.15)
	pt3dadd(-59.5, 175.78, -40.23, 1.15)
	pt3dadd(-59.34, 176.67, -40.66, 1.15)
	pt3dadd(-58.43, 177.81, -40.66, 1.15)
	pt3dadd(-59.35, 179.59, -40.72, 1.15)
	pt3dadd(-59.92, 180.86, -40.72, 1.15)
	pt3dadd(-60.36, 182.38, -41.15, 1.15)
	pt3dadd(-60.64, 184.8, -42.66, 1.15)
	pt3dadd(-60.7, 186.45, -42.66, 1.15)
	pt3dadd(-60.4, 187.59, -42.66, 1.15)
	pt3dadd(-60.92, 190.13, -42.66, 1.15)
	pt3dadd(-60.98, 191.78, -42.66, 1.15)
	pt3dadd(-60.8, 193.31, -42.61, 1.15)
	pt3dadd(-62.12, 194.32, -42.61, 1.15)
	pt3dadd(-63.04, 196.1, -42.39, 1.15)
	pt3dadd(-63.45, 198.26, -43.25, 1.15)
	pt3dadd(-63.89, 199.79, -43.25, 1.15)
	pt3dadd(-64.65, 202.45, -44.98, 1.15)
	pt3dadd(-64.49, 203.34, -45.04, 1.15)
	pt3dadd(-64.07, 204.74, -46.71, 1.15)
	pt3dadd(-64.42, 205.25, -46.82, 1.15)
	pt3dadd(-63.8, 208.61, -47.63, 1.15)
	pt3dadd(-62.87, 210.39, -47.63, 1.15)
	pt3dadd(-63.79, 212.17, -48.01, 1.15)
	pt3dadd(-62.86, 213.95, -48.11, 1.15)
	pt3dadd(-62.89, 216.23, -50.49, 1.15)
	pt3dadd(-62.09, 217.76, -50.49, 1.15)
	pt3dadd(-61.8, 218.9, -52.33, 1.15)
	pt3dadd(-61, 220.35, -52.33, 0.86)
	pt3dadd(-61, 220.35, -52.33, 0.86)
	pt3dadd(-60.8, 221.87, -53.24, 0.86)
	pt3dadd(-59.59, 223.5, -53.24, 0.86)
	pt3dadd(-57.36, 225.88, -53.3, 0.86)
	pt3dadd(-54.78, 227.74, -53.95, 0.86)
	pt3dadd(-53.85, 228.86, -53.89, 0.86)
	pt3dadd(-52.65, 230.5, -53.84, 0.86)
	pt3dadd(-53.15, 234.7, -53.95, 0.86)
	pt3dadd(-52.26, 237.48, -53.95, 0.86)
    }
}

proc shape3d_dend5_20() {
    dend[49] {pt3dclear()
	pt3dadd(51.63, -141.81, -20.3, 1.15)
	pt3dadd(52.92, -143.21, -20.25, 1.15)
	pt3dadd(55.02, -144.62, -20.3, 1.15)
	pt3dadd(54.48, -146.99, -21.01, 1.15)
	pt3dadd(56.04, -147.4, -22.41, 1.15)
	pt3dadd(56.13, -149.19, -22.41, 1.15)
	pt3dadd(56.27, -150.18, -22.41, 1.15)
	pt3dadd(56.22, -150.97, -22.41, 1.15)
	pt3dadd(56.85, -153.75, -22.9, 1.15)
	pt3dadd(56.15, -155.52, -22.9, 1.15)
	pt3dadd(55.89, -156.51, -22.9, 1.15)
	pt3dadd(55.75, -158.88, -22.9, 1.15)
	pt3dadd(54.44, -160.85, -22.9, 1.15)
	pt3dadd(54.58, -161.84, -22.9, 1.15)
	pt3dadd(55.25, -163.82, -21.98, 1.15)
	pt3dadd(53.99, -165, -20.74, 1.15)
	pt3dadd(54.48, -166.78, -19.98, 1.15)
	pt3dadd(54.29, -169.95, -19.98, 1.15)
	pt3dadd(55.5, -172.93, -20.14, 1.15)
	pt3dadd(53.37, -175.28, -19.6, 1.15)
	pt3dadd(54.44, -177.27, -21.28, 1.15)
	pt3dadd(53.44, -177.46, -20.63, 1.15)
	pt3dadd(53.51, -179.64, -20.63, 1.15)
	pt3dadd(53.86, -180.43, -20.63, 1.15)
	pt3dadd(53.83, -180.83, -20.63, 1.15)
	pt3dadd(52.97, -182.01, -20.63, 1.15)
	pt3dadd(52.06, -183.98, -21.33, 1.15)
	pt3dadd(52.34, -185.96, -21.38, 1.15)
	pt3dadd(51.8, -188.33, -21.71, 1.15)
	pt3dadd(51.12, -189.7, -20.25, 1.15)
	pt3dadd(51.19, -191.88, -20.25, 1.15)
	pt3dadd(51.12, -193.07, -21.11, 1.15)
	pt3dadd(51.23, -194.46, -21.11, 1.15)
	pt3dadd(49.71, -196.62, -21.11, 1.15)
	pt3dadd(49.62, -198.2, -21.11, 1.15)
	pt3dadd(48.47, -200.76, -21.06, 1.15)
	pt3dadd(49.85, -203.37, -19.98, 1.15)
	pt3dadd(49.01, -204.16, -19.98, 1.15)
	pt3dadd(49.45, -206.73, -19.44, 1.15)
	pt3dadd(51.36, -207.95, -19.44, 0.86)
	pt3dadd(52.29, -208.95, -19.44, 0.86)
	pt3dadd(51.48, -209.33, -19.44, 0.86)
	pt3dadd(52.13, -211.72, -19.44, 0.86)
	pt3dadd(52.82, -213.31, -19.49, 0.86)
	pt3dadd(53.73, -214.7, -19.49, 0.86)
	pt3dadd(54.96, -217.29, -20.63, 0.86)
	pt3dadd(55.05, -219.08, -20.63, 0.86)
	pt3dadd(56.22, -219.49, -20.63, 0.86)
	pt3dadd(56.65, -220.97, -20.63, 1.15)
	pt3dadd(56.98, -222.16, -22.73, 1.15)
	pt3dadd(56.88, -223.74, -23.6, 1.15)
	pt3dadd(56.36, -224.24, -23.6, 1.15)
	pt3dadd(55.95, -226.11, -24.84, 1.15)
    }
}

proc shape3d_dend5_21() {
    dend[50] {pt3dclear()
	pt3dadd(51.63, -141.81, -20.3, 1.15)
	pt3dadd(50.53, -143.58, -20.3, 1.15)
	pt3dadd(49.11, -144.16, -20.3, 1.15)
	pt3dadd(48.29, -144.54, -20.79, 1.15)
	pt3dadd(48.99, -146.13, -20.74, 1.15)
	pt3dadd(48.92, -147.32, -20.74, 1.15)
	pt3dadd(48.73, -150.49, -20.74, 1.15)
	pt3dadd(47.63, -152.25, -19.82, 1.15)
	pt3dadd(46.98, -153.24, -19.82, 1.15)
	pt3dadd(45.51, -154.6, -19.66, 1.15)
	pt3dadd(44.85, -155.58, -19.71, 1.15)
	pt3dadd(44.76, -157.17, -19.87, 1.15)
	pt3dadd(43.45, -159.13, -19.87, 1.15)
	pt3dadd(43.61, -159.73, -19.93, 1.15)
	pt3dadd(45.1, -161.33, -19.28, 1.15)
	pt3dadd(44.21, -162.9, -18.52, 1.15)
	pt3dadd(43.91, -164.68, -18.52, 1.15)
	pt3dadd(44.05, -165.67, -17.87, 1.15)
	pt3dadd(44.51, -167.85, -17.39, 1.15)
	pt3dadd(44.25, -168.84, -16.74, 1.15)
	pt3dadd(43.78, -170.02, -16.74, 1.15)
	pt3dadd(43.43, -172.59, -15.98, 1.15)
	pt3dadd(42.54, -174.16, -17.12, 1.15)
	pt3dadd(41.19, -176.92, -17.17, 1.15)
	pt3dadd(43.24, -179.12, -18.58, 1.15)
	pt3dadd(43.17, -180.31, -18.58, 1.15)
	pt3dadd(43.1, -181.49, -18.58, 1.15)
	pt3dadd(42.3, -181.48, -18.58, 1.15)
	pt3dadd(40.25, -182.65, -18.58, 1.15)
	pt3dadd(40.2, -183.44, -18.9, 1.15)
	pt3dadd(40.71, -184.83, -18.9, 1.15)
	pt3dadd(40.43, -186.21, -19.6, 1.15)
	pt3dadd(41.76, -187.25, -19.6, 1.15)
	pt3dadd(40.8, -190.01, -19.6, 1.15)
	pt3dadd(39.96, -190.79, -19.6, 1.15)
	pt3dadd(39.03, -193.16, -20.09, 1.15)
	pt3dadd(38.93, -194.74, -18.09, 1.15)
	pt3dadd(38.13, -198.1, -18.09, 1.15)
	pt3dadd(37.46, -199.47, -18.09, 1.15)
	pt3dadd(37.78, -200.67, -18.2, 1.15)
	pt3dadd(38.62, -203.25, -18.2, 1.15)
	pt3dadd(37.78, -204.03, -19.49, 1.15)
	pt3dadd(37.71, -205.22, -19.98, 1.15)
	pt3dadd(36.77, -207.58, -20.84, 1.15)
	pt3dadd(36.3, -208.76, -20.84, 1.15)
	pt3dadd(35.21, -210.53, -20.84, 1.15)
	pt3dadd(35.09, -212.51, -21.28, 1.15)
	pt3dadd(36.6, -213.72, -21.17, 1.15)
	pt3dadd(36.9, -215.3, -20.57, 1.15)
	pt3dadd(35.73, -218.26, -20.25, 1.15)
	pt3dadd(36.15, -221.23, -20.09, 1.15)
	pt3dadd(35.75, -221.23, -19.6, 1.15)
	pt3dadd(37.1, -221.84, -19.01, 1.15)
	pt3dadd(37.22, -223.22, -17.71, 1.15)
	pt3dadd(36.84, -226.19, -17.71, 1.15)
	pt3dadd(37.12, -228.17, -17.6, 1.15)
	pt3dadd(36.56, -230.94, -17.6, 1.15)
	pt3dadd(36.04, -232.91, -17.6, 1.15)
	pt3dadd(34.9, -235.47, -17.6, 1.15)
	pt3dadd(35.5, -238.65, -17.39, 1.15)
	pt3dadd(35.82, -239.84, -17.39, 1.15)
	pt3dadd(34.28, -242.4, -16.47, 1.15)
	pt3dadd(35.35, -244.39, -15.82, 1.15)
	pt3dadd(36.12, -244.79, -15.55, 1.15)
    }
}

proc shape3d_dend5_22() {
    dend[51] {pt3dclear()
	pt3dadd(-19.98, -92.86, -5.08, 0.86)
	pt3dadd(-15.54, -91.93, -5.08, 0.86)
	pt3dadd(-13.54, -93.24, -5.99, 1.15)
	pt3dadd(-11.82, -93.79, -6.53, 1.15)
	pt3dadd(-11.82, -94.66, -8.96, 1.15)
	pt3dadd(-11.35, -95.94, -10.8, 1.15)
	pt3dadd(-11.78, -96.55, -11.77, 1.15)
	pt3dadd(-9.71, -97.29, -16.36, 1.15)
	pt3dadd(-9.45, -98.06, -16.36, 1.15)
	pt3dadd(-7.65, -98.9, -17.01, 1.15)
	pt3dadd(-6.12, -99.82, -17.98, 1.15)
	pt3dadd(-3.68, -98.99, -19.06, 1.15)
	pt3dadd(-2.6, -99.49, -19.06, 1.15)
	pt3dadd(-1.62, -101.47, -18.79, 1.15)
	pt3dadd(0.18, -101.43, -21.71, 1.15)
	pt3dadd(2.17, -101.04, -24.08, 1.15)
	pt3dadd(3.96, -102.74, -25.54, 1.15)
	pt3dadd(5.22, -102.89, -26.03, 1.15)
	pt3dadd(5.22, -102.89, -26.73, 1.15)
	pt3dadd(6.09, -104.15, -26.73, 0.29)
	pt3dadd(6.64, -104.31, -29.59, 0.29)
	pt3dadd(7.87, -105.23, -31.54, 0.29)
	pt3dadd(10.17, -107.6, -32.18, 0.29)
	pt3dadd(11.72, -109.47, -35.42, 0.29)
	pt3dadd(12.87, -110.66, -34.78, 0.29)
	pt3dadd(14.18, -111.32, -36.13, 0.29)
	pt3dadd(15.71, -111.19, -38.66, 0.29)
	pt3dadd(17.61, -112.87, -39.42, 0.29)
	pt3dadd(18.68, -114.32, -40.66, 0.29)
	pt3dadd(19.21, -115.61, -40.66, 0.29)
	pt3dadd(20.63, -116.88, -42.01, 0.29)
	pt3dadd(20.63, -120.07, -42.07, 0.86)
	pt3dadd(20.01, -121.17, -42.61, 0.86)
	pt3dadd(20.16, -122.4, -45.14, 0.86)
	pt3dadd(19.22, -123.05, -46.87, 0.86)
	pt3dadd(16.09, -122.57, -48.17, 0.86)
	pt3dadd(14.76, -123.17, -48.98, 0.86)
	pt3dadd(14.05, -124.67, -49.95, 0.86)
	pt3dadd(14.52, -125.34, -51.95, 0.86)
	pt3dadd(12.79, -126.88, -52.06, 0.86)
	pt3dadd(11.62, -128.7, -52.22, 0.86)
	pt3dadd(13.26, -130.55, -52.92, 0.86)
	pt3dadd(13.1, -132.33, -52.92, 0.86)
	pt3dadd(15.61, -133.91, -52.92, 0.86)
	pt3dadd(14.98, -136.02, -52.97, 0.86)
	pt3dadd(15.53, -138.31, -52.97, 0.86)
	pt3dadd(16.54, -141.27, -52.92, 0.86)
	pt3dadd(17.33, -142.39, -52.92, 0.86)
	pt3dadd(18.42, -143.96, -55.3, 0.86)
	pt3dadd(17.32, -147.39, -55.3, 0.86)
	pt3dadd(18.26, -149.74, -56.32, 0.86)
	pt3dadd(18.18, -154.13, -56.38, 0.86)
	pt3dadd(16.46, -155.67, -56.38, 0.86)
	pt3dadd(16.85, -156.73, -56.38, 0.86)
	pt3dadd(17.24, -159.79, -56.38, 0.86)
	pt3dadd(17.71, -161.47, -56.38, 0.86)
	pt3dadd(17, -163.96, -56.38, 0.86)
	pt3dadd(17.94, -165.31, -56.38, 0.86)
	pt3dadd(17.54, -168.25, -56.38, 0.86)
	pt3dadd(17.86, -169.7, -57.78, 0.86)
	pt3dadd(18.25, -173.76, -57.83, 0.86)
	pt3dadd(18.17, -175.15, -57.83, 0.86)
	pt3dadd(18.48, -176.6, -57.83, 0.86)
	pt3dadd(19.42, -178.95, -57.13, 0.86)
	pt3dadd(18.55, -181.22, -57.4, 0.86)
	pt3dadd(17.77, -183.1, -57.4, 0.86)
	pt3dadd(17.14, -184.21, -57.4, 0.86)
	pt3dadd(17.37, -189.05, -59.18, 0.86)
	pt3dadd(18.09, -190.66, -58.48, 0.86)
	pt3dadd(17.54, -191.38, -58.48, 0.86)
	pt3dadd(18.01, -194.05, -58.48, 0.86)
	pt3dadd(19.1, -195.62, -58.48, 0.86)
	pt3dadd(19.89, -197.74, -59.08, 0.86)
	pt3dadd(18.47, -199.73, -59.24, 0.86)
	pt3dadd(17.77, -201.22, -59.24, 0.86)
	pt3dadd(19.72, -203.53, -59.24, 0.86)
	pt3dadd(19.96, -206.37, -59.24, 0.86)
	pt3dadd(20.11, -207.59, -59.24, 0.86)
	pt3dadd(19.88, -208.76, -59.24, 0.86)
	pt3dadd(20.42, -212.04, -59.24, 0.86)
	pt3dadd(20.97, -216.33, -60.05, 0.86)
	pt3dadd(21.75, -217.45, -60.05, 0.86)
	pt3dadd(21.44, -220.01, -61.45, 0.86)
	pt3dadd(21.27, -223.59, -62.32, 0.86)
	pt3dadd(22.76, -223.21, -62.32, 0.86)
	pt3dadd(23.23, -224.89, -63.02, 0.86)
	pt3dadd(22.36, -227.16, -63.23, 0.86)
	pt3dadd(22.76, -227.22, -63.18, 0.86)
	pt3dadd(23.3, -230.51, -63.13, 0.86)
    }
}

proc shape3d_dend5_23() {
    dend[52] {pt3dclear()
	pt3dadd(-19.98, -92.86, -5.08, 1.15)
	pt3dadd(-20.43, -92.81, -5.78, 1.15)
	pt3dadd(-20.87, -93.26, -5.89, 1.15)
	pt3dadd(-21.4, -95.19, -6.37, 1.15)
	pt3dadd(-22.91, -97.77, -8.32, 1.15)
	pt3dadd(-22.8, -98.89, -8.32, 1.15)
	pt3dadd(-23.09, -99.42, -8.32, 1.15)
	pt3dadd(-23.56, -101.6, -9.34, 1.15)
	pt3dadd(-23.29, -102.37, -10.1, 1.15)
	pt3dadd(-24.3, -103.87, -10.75, 1.15)
    }
}

proc shape3d_dend5_24() {
    dend[53] {pt3dclear()
	pt3dadd(-24.3, -103.87, -10.75, 0.86)
	pt3dadd(-24.49, -105.09, -11.83, 0.86)
	pt3dadd(-24.58, -105.7, -12.69, 0.86)
	pt3dadd(-24.32, -106.48, -13.34, 0.86)
	pt3dadd(-23.78, -107.16, -13.34, 0.86)
	pt3dadd(-23.89, -108.64, -14.58, 0.86)
	pt3dadd(-22.37, -110.44, -14.58, 0.86)
	pt3dadd(-20.58, -113.01, -15.07, 0.86)
	pt3dadd(-20.06, -114.56, -15.01, 0.86)
	pt3dadd(-19.35, -116.63, -16.09, 0.86)
	pt3dadd(-19, -117.67, -17.28, 0.86)
	pt3dadd(-18.32, -122.34, -14.42, 0.86)
	pt3dadd(-18.06, -123.99, -14.42, 0.86)
	pt3dadd(-17.16, -124.84, -14.42, 0.86)
	pt3dadd(-16.5, -126.64, -16.2, 0.86)
	pt3dadd(-17.51, -128.13, -16.2, 0.86)
	pt3dadd(-16.98, -129.69, -16.2, 0.86)
	pt3dadd(-16.09, -130.54, -16.2, 0.86)
	pt3dadd(-15.64, -130.96, -16.2, 0.86)
	pt3dadd(-15.2, -133.13, -16.31, 0.86)
	pt3dadd(-14.41, -135.46, -16.31, 0.86)
	pt3dadd(-13.8, -137.27, -15.88, 0.86)
	pt3dadd(-15.16, -138.6, -14.31, 0.86)
	pt3dadd(-15.26, -140.08, -14.31, 0.86)
	pt3dadd(-15.2, -142.94, -14.31, 0.86)
	pt3dadd(-15.12, -144.94, -14.31, 0.86)
	pt3dadd(-15.5, -147.38, -12.37, 0.86)
	pt3dadd(-15.61, -149.73, -12.37, 0.86)
	pt3dadd(-16, -152.17, -12.37, 0.86)
	pt3dadd(-16.91, -153.06, -12.96, 0.86)
	pt3dadd(-18.09, -154.04, -14.74, 0.86)
	pt3dadd(-18.1, -154.91, -16.2, 0.86)
	pt3dadd(-18.84, -157.18, -16.42, 0.86)
	pt3dadd(-17.77, -159.42, -18.2, 0.86)
	pt3dadd(-19.32, -161.1, -19.6, 0.86)
	pt3dadd(-20.42, -163.21, -21.71, 0.86)
	pt3dadd(-20.16, -163.98, -22.95, 0.86)
	pt3dadd(-19.45, -166.06, -22.57, 0.86)
	pt3dadd(-18.83, -167, -23.6, 0.86)
	pt3dadd(-18.03, -168.46, -23.98, 0.86)
	pt3dadd(-16.85, -168.35, -26.73, 0.86)
	pt3dadd(-16.85, -168.35, -27.81, 0.86)
	pt3dadd(-16.43, -168.31, -27.81, 1.15)
	pt3dadd(-16.22, -169.78, -26.95, 1.15)
	pt3dadd(-15.76, -171.1, -27, 1.15)
	pt3dadd(-16.63, -173.54, -27, 1.15)
	pt3dadd(-17.36, -176.21, -27.49, 1.15)
	pt3dadd(-16.9, -177.53, -27.49, 1.15)
    }
}

proc shape3d_dend5_25() {
    dend[54] {pt3dclear()
	pt3dadd(-24.3, -103.87, -10.75, 1.15)
	pt3dadd(-25.91, -104.59, -10.8, 1.15)
	pt3dadd(-26.55, -105.38, -10.8, 1.15)
	pt3dadd(-26.38, -106.77, -10.8, 1.15)
	pt3dadd(-27.12, -108.17, -11.5, 1.15)
	pt3dadd(-28.03, -109.06, -11.5, 1.15)
	pt3dadd(-28.76, -110.47, -12.8, 1.15)
	pt3dadd(-29.41, -113, -12.26, 1.15)
	pt3dadd(-30.88, -115.81, -12.26, 1.15)
	pt3dadd(-30.8, -116.94, -11.72, 1.15)
	pt3dadd(-32.02, -122.26, -11.34, 1.15)
	pt3dadd(-32.47, -122.71, -11.34, 1.15)
	pt3dadd(-34.57, -124.57, -11.34, 1.15)
	pt3dadd(-36.02, -125.65, -11.34, 1.15)
	pt3dadd(-37.38, -126.98, -10.91, 1.15)
	pt3dadd(-38.3, -128.73, -10.85, 1.15)
	pt3dadd(-39.58, -130.32, -11.12, 1.15)
	pt3dadd(-38.87, -131.53, -10.48, 1.15)
	pt3dadd(-39.87, -133.02, -10.48, 1.15)
	pt3dadd(-40.52, -134.69, -10.8, 1.15)
	pt3dadd(-43.51, -136.57, -11.77, 1.15)
	pt3dadd(-44.52, -138.07, -11.77, 1.15)
	pt3dadd(-47.59, -138.83, -12.15, 1.15)
	pt3dadd(-48.59, -139.46, -12.15, 1.15)
	pt3dadd(-47.97, -140.4, -12.1, 1.15)
	pt3dadd(-48.79, -141.55, -10.8, 1.15)
	pt3dadd(-50.79, -143.67, -10.8, 1.15)
	pt3dadd(-51.89, -145.78, -10.8, 1.15)
	pt3dadd(-52.93, -147.92, -10.58, 1.15)
	pt3dadd(-54.29, -149.25, -11.29, 1.15)
	pt3dadd(-55.65, -149.71, -11.29, 1.15)
	pt3dadd(-56.2, -150.77, -10.58, 1.15)
	pt3dadd(-58.29, -152.63, -10.31, 1.15)
	pt3dadd(-58.39, -153.24, -10.31, 1.15)
	pt3dadd(-58.22, -154.63, -10.26, 1.15)
	pt3dadd(-57.97, -157.14, -9.5, 1.15)
	pt3dadd(-59.05, -157.51, -11.07, 1.15)
	pt3dadd(-60.96, -158.16, -11.07, 1.15)
	pt3dadd(-61.14, -158.51, -11.07, 1.15)
	pt3dadd(-62.5, -159.84, -12.15, 1.15)
	pt3dadd(-62.97, -161.16, -12.53, 1.15)
	pt3dadd(-64.87, -161.8, -12.53, 1.15)
	pt3dadd(-65.42, -162.86, -12.53, 1.15)
	pt3dadd(-66.07, -165.39, -11.83, 1.15)
	pt3dadd(-67.26, -167.24, -11.72, 1.15)
	pt3dadd(-67.73, -169.42, -12.91, 1.15)
	pt3dadd(-69.09, -169.88, -12.91, 1.15)
	pt3dadd(-69.55, -171.2, -13.01, 1.15)
	pt3dadd(-72.28, -173.86, -13.01, 1.15)
	pt3dadd(-73.37, -174.23, -13.01, 1.15)
	pt3dadd(-74.19, -175.37, -13.01, 1.15)
	pt3dadd(-74.55, -176.08, -13.01, 1.15)
	pt3dadd(-74.56, -176.95, -13.01, 1.15)
	pt3dadd(-74.66, -178.42, -12.96, 1.15)
	pt3dadd(-75.76, -179.66, -12.96, 1.15)
	pt3dadd(-76.67, -180.55, -12.96, 1.15)
	pt3dadd(-77.85, -181.53, -13.55, 1.15)
	pt3dadd(-78.94, -182.77, -14.8, 1.15)
	pt3dadd(-79.86, -184.53, -14.8, 1.15)
	pt3dadd(-81.14, -186.99, -15.39, 1.15)
	pt3dadd(-81.7, -188.91, -15.5, 1.15)
	pt3dadd(-83.87, -189.65, -15.07, 1.15)
	pt3dadd(-84.7, -190.79, -14.69, 1.15)
	pt3dadd(-86.16, -193.6, -11.88, 1.15)
	pt3dadd(-86.71, -194.66, -12.47, 1.15)
	pt3dadd(-88.18, -196.6, -12.47, 1.15)
	pt3dadd(-88.91, -198, -12.47, 1.15)
	pt3dadd(-89.02, -200.35, -12.53, 1.15)
	pt3dadd(-91.3, -201.86, -11.66, 1.15)
	pt3dadd(-92.03, -203.26, -11.23, 1.15)
	pt3dadd(-91.69, -205.17, -9.94, 1.15)
	pt3dadd(-91.6, -206.3, -9.94, 1.15)
	pt3dadd(-91.01, -208.07, -9.45, 1.15)
    }
}

proc shape3d_dend5_26() {
    dend[55] {pt3dclear()
	pt3dadd(-16.9, -177.53, -27.49, 1.15)
	pt3dadd(-16.01, -179.55, -27.49, 1.15)
	pt3dadd(-15.94, -180.79, -28.89, 1.15)
	pt3dadd(-15.66, -181.26, -28.89, 1.15)
	pt3dadd(-14.99, -181.81, -30.67, 1.15)
	pt3dadd(-15.86, -184.25, -30.67, 1.15)
	pt3dadd(-15.26, -185.81, -30.67, 1.15)
	pt3dadd(-15.25, -188.04, -32.13, 1.15)
	pt3dadd(-16.3, -189.63, -33.05, 1.15)
	pt3dadd(-16.93, -191.92, -33.1, 1.15)
	pt3dadd(-17.76, -194.98, -33.1, 1.15)
	pt3dadd(-18.7, -198.42, -32.72, 1.15)
	pt3dadd(-19.86, -200.4, -32.78, 1.15)
	pt3dadd(-21.68, -201.82, -31.81, 1.15)
	pt3dadd(-21.71, -203.43, -31.81, 1.15)
	pt3dadd(-21.21, -205.37, -31.81, 1.15)
	pt3dadd(-20.79, -206.07, -31.81, 1.15)
	pt3dadd(-21.1, -207.22, -31.81, 1.15)
	pt3dadd(-22.64, -209.1, -31.21, 1.15)
	pt3dadd(-24.53, -211.52, -31.21, 1.15)
	pt3dadd(-24.11, -212.22, -31.21, 1.15)
	pt3dadd(-23.43, -215.01, -32.4, 1.15)
	pt3dadd(-23.46, -216.63, -34.13, 1.15)
	pt3dadd(-25.6, -219.19, -34.24, 1.15)
	pt3dadd(-26.86, -220.63, -35.26, 1.15)
	pt3dadd(-28.19, -221.76, -35.26, 1.15)
	pt3dadd(-28.92, -224.43, -37.31, 1.15)
	pt3dadd(-29.23, -225.58, -37.31, 1.15)
	pt3dadd(-28.77, -226.9, -37.31, 1.15)
	pt3dadd(-30.25, -227.79, -37.37, 1.15)
	pt3dadd(-30.77, -229.7, -37.37, 1.15)
	pt3dadd(-31.92, -231.67, -37.37, 1.15)
    }
}

proc shape3d_dend5_27() {
    dend[56] {pt3dclear()
	pt3dadd(-16.9, -177.53, -27.49, 1.15)
	pt3dadd(-19.47, -178.69, -27.81, 1.15)
	pt3dadd(-19.4, -179.93, -27.81, 1.15)
	pt3dadd(-20.83, -181.43, -27.86, 1.15)
	pt3dadd(-22.52, -183.09, -27.86, 1.15)
	pt3dadd(-23.42, -184.91, -28.35, 1.15)
	pt3dadd(-24.76, -186.03, -28.35, 1.15)
	pt3dadd(-25.63, -188.48, -28.35, 1.15)
	pt3dadd(-25.2, -189.18, -28.84, 1.15)
	pt3dadd(-26.18, -192, -28.84, 1.15)
	pt3dadd(-26.39, -192.77, -28.57, 1.15)
	pt3dadd(-27.44, -194.36, -28.57, 1.15)
	pt3dadd(-27.37, -195.59, -29.38, 1.15)
	pt3dadd(-28.84, -196.48, -29.75, 1.15)
	pt3dadd(-29.43, -197.16, -29.75, 1.15)
	pt3dadd(-30.87, -198.67, -29.75, 1.15)
	pt3dadd(-31.85, -199.26, -29.75, 1.15)
	pt3dadd(-32.69, -200.09, -29.75, 1.15)
	pt3dadd(-33.43, -200.53, -29.75, 1.15)
	pt3dadd(-34.87, -202.04, -29.54, 1.15)
	pt3dadd(-35.71, -202.86, -29.54, 1.15)
	pt3dadd(-36.09, -205.01, -28.62, 1.15)
	pt3dadd(-36.69, -205.69, -29.05, 1.15)
	pt3dadd(-38.05, -206.2, -29.05, 1.15)
	pt3dadd(-38.19, -208.19, -29.11, 1.15)
	pt3dadd(-38.36, -209.57, -29.11, 1.15)
	pt3dadd(-38.78, -211.1, -29.54, 1.15)
	pt3dadd(-39.79, -213.31, -31.05, 1.15)
	pt3dadd(-40.6, -214.75, -31.05, 1.15)
	pt3dadd(-41.44, -215.58, -31.05, 1.15)
	pt3dadd(-42.31, -218.02, -31.05, 1.15)
	pt3dadd(-43.11, -219.47, -31.05, 1.15)
	pt3dadd(-44.06, -220.68, -31, 1.15)
	pt3dadd(-43.46, -222.23, -31, 1.15)
	pt3dadd(-43.59, -224.23, -30.78, 1.15)
    }
}

proc shape3d_dend1() {
    shape3d_dend1_1()
    shape3d_dend1_2()
    shape3d_dend1_3()
    shape3d_dend1_4()
    shape3d_dend1_5()
    shape3d_dend1_6()
    shape3d_dend1_7()
    shape3d_dend1_8()
    shape3d_dend1_9()
    shape3d_dend1_10()
    shape3d_dend1_11()
    shape3d_dend1_12()
    shape3d_dend1_13()
    shape3d_dend1_14()
    shape3d_dend1_15()
    shape3d_dend1_16()
    shape3d_dend1_17()
    shape3d_dend1_18()
    shape3d_dend1_19()
    shape3d_dend1_20()
    shape3d_dend1_21()
    shape3d_dend1_22()
    shape3d_dend1_23()
}

proc shape3d_dend3() {
    shape3d_dend3_1()
    shape3d_dend3_2()
    shape3d_dend3_3()
    shape3d_dend3_4()
    shape3d_dend3_5()
}

proc shape3d_dend5() {
    shape3d_dend5_1()
    shape3d_dend5_2()
    shape3d_dend5_3()
    shape3d_dend5_4()
    shape3d_dend5_5()
    shape3d_dend5_6()
    shape3d_dend5_7()
    shape3d_dend5_8()
    shape3d_dend5_9()
    shape3d_dend5_10()
    shape3d_dend5_11()
    shape3d_dend5_12()
    shape3d_dend5_13()
    shape3d_dend5_14()
    shape3d_dend5_15()
    shape3d_dend5_16()
    shape3d_dend5_17()
    shape3d_dend5_18()
    shape3d_dend5_19()
    shape3d_dend5_20()
    shape3d_dend5_21()
    shape3d_dend5_22()
    shape3d_dend5_23()
    shape3d_dend5_24()
    shape3d_dend5_25()
    shape3d_dend5_26()
    shape3d_dend5_27()
}

proc basic_shape() {
    shape3d_soma()
    shape3d_dend1()
    shape3d_dend2()
    shape3d_dend3()
    shape3d_dend4()
    shape3d_dend5()
}

objref all
proc subset_all() { local i
    objref all
    all = new SectionList()
    soma all.append()
    for i=0, 56 dend[i] all.append()
}

objref dendall
proc subset_dendall() {local i
    objref dendall
    dendall = new SectionList()
    for i=0, 56 dend[i] dendall.append()
}

objref dend1
proc subset_dend1() {
    objref dend1
    dend1 = new SectionList()
    dend[4] dend1.append()
    dend[9] dend1.append()
    dend[10] dend1.append()
    dend[17] dend1.append()
    dend[18] dend1.append()
    dend[19] dend1.append()
    dend[20] dend1.append()
    dend[25] dend1.append()
    dend[26] dend1.append()
    dend[27] dend1.append()
    dend[28] dend1.append()
    dend[35] dend1.append()
    dend[36] dend1.append()
    dend[37] dend1.append()
    dend[38] dend1.append()
    dend[39] dend1.append()
    dend[40] dend1.append()
    dend[43] dend1.append()
    dend[44] dend1.append()
    dend[45] dend1.append()
    dend[46] dend1.append()
    dend[47] dend1.append()
    dend[48] dend1.append()
}

objref dend2
proc subset_dend2() {
    objref dend2
    dend2 = new SectionList()
    dend[3] dend2.append()
}

objref dend3
proc subset_dend3() {
    objref dend3
    dend3 = new SectionList()
    dend[2] dend3.append()
    dend[7] dend3.append()
    dend[8] dend3.append()
    dend[15] dend3.append()
    dend[16] dend3.append()
}

objref dend4
proc subset_dend4() {
    objref dend4
    dend4 = new SectionList()
    dend[1] dend4.append()
}

objref dend5
proc subset_dend5() {
    objref dend5
    dend5 = new SectionList()
    dend[0] dend5.append()
    dend[5] dend5.append()
    dend[6] dend5.append()
    dend[11] dend5.append()
    dend[12] dend5.append()
    dend[13] dend5.append()
    dend[14] dend5.append()
    dend[21] dend5.append()
    dend[22] dend5.append()
    dend[23] dend5.append()
    dend[24] dend5.append()
    dend[29] dend5.append()
    dend[30] dend5.append()
    dend[31] dend5.append()
    dend[32] dend5.append()
    dend[33] dend5.append()
    dend[34] dend5.append()
    dend[41] dend5.append()
    dend[42] dend5.append()
    dend[49] dend5.append()
    dend[50] dend5.append()
    dend[51] dend5.append()
    dend[52] dend5.append()
    dend[53] dend5.append()
    dend[54] dend5.append()
    dend[55] dend5.append()
    dend[56] dend5.append()
}

proc subsets() {
    subset_all()
    subset_dendall()
    subset_dend1()
    subset_dend2()
    subset_dend3()
    subset_dend4()
    subset_dend5()
}    

proc geomL() {
    soma.L=shortR
}

proc geom() {
    //soma
    soma.diam(0:0.109262341)=5.662518766:8.89607294
    soma.diam(0.109262341:0.226844149)=8.89607294:12.3293691
    soma.diam(0.226844149:0.33166944)=12.3293691:14.68688545
    soma.diam(0.33166944:0.449805879)=14.68688545:14.71663412
    soma.diam(0.449805879:0.558513588)=14.71663412:13.07518337
    soma.diam(0.558513588:0.663893511)=13.07518337:12.13272614
    soma.diam(0.663893511:0.77703827)=12.13272614:9.597480065
    soma.diam(0.77703827:0.88630061)=9.597480065:7.907281559
    soma.diam(0.88630061:1)=7.907281559:5.035859009
    //dend1
    dend[4].diam(0:1)=1.098180246:1.177040645
    dend[9].diam(0:1)=0.678133349:0.66681377
    dend[10].diam(0:1)=0.900720145:1.145463261
    dend[17].diam(0:1)=0.548871528:0.394125899
    dend[18].diam(0:1)=0.546549059:0.394125899
    dend[19].diam(0:1)=0.664900716:0.753702383
    dend[20].diam(0:0.547296349)=0.695447827:0.732313733
    dend[20].diam(0.547296349:1)=0.732313733:0.688149415
    dend[25].diam(0:1)=0.512258044:0.394125899
    dend[26].diam(0:1)=0.634949696:0.609458659
    dend[27].diam(0:0.235825466)=0.332593468:0.492857627
    dend[27].diam(0.235825466:0.742068619)=0.492857627:0.419638736
    dend[27].diam(0.742068619:1)=0.419638736:0.487897112
    dend[28].diam(0:1)=0.61708621:0.732776069
    dend[35].diam(0:1)=0.546374701:0.503957603
    dend[36].diam(0:1)=0.477754923:0.394125899
    dend[37].diam(0:1)=0.231929547:0.394125899
    dend[38].diam(0:1)=0.444605734:0.394125899
    dend[39].diam(0:0.292108257)=0.554612996:0.518753838
    dend[39].diam(0.292108257:1)=0.518753838:0.527833052
    dend[40].diam(0:0.207093736)=0.477761656:0.440108379
    dend[40].diam(0.207093736:0.855800203)=0.440108379:0.474988661
    dend[40].diam(0.855800203:1)=0.474988661:0.573921421
    dend[43].diam(0:0.295789243)=0.305779096:0.294073883
    dend[43].diam(0.295789243:1)=0.294073883:0.394125899
    dend[44].diam(0:0.059222818)=0.590768729:0.469802939
    dend[44].diam(0.059222818:0.320859763)=0.469802939:0.522268929
    dend[44].diam(0.320859763:0.582496707)=0.522268929:0.420440498
    dend[44].diam(0.582496707:0.844133651)=0.420440498:0.528805479
    dend[44].diam(0.844133651:1)=0.528805479:0.394125899
    dend[45].diam(0:1)=0.423137674:0.394125899
    dend[46].diam(0:0.326612476)=0.524753335:0.375177165
    dend[46].diam(0.326612476:0.74657843)=0.375177165:0.487436292
    dend[46].diam(0.74657843:1)=0.487436292:0.394125899
    dend[47].diam(0:1)=0.450411981:0.394125899
    dend[48].diam(0:1)=0.454353978:0.394125899
    //dend2
    dend[3].diam(0:0.216794817)=0.512602679:0.503636465
    dend[3].diam(0.216794817:0.433589634)=0.503636465:0.563845323
    dend[3].diam(0.433589634:0.650384451)=0.563845323:0.369421413
    dend[3].diam(0.650384451:0.867179268)=0.369421413:0.396730798
    dend[3].diam(0.867179268:1)=0.396730798:0.394125899
    //dend3
    dend[2].diam(0:1)=0.622324877:0.675809636
    dend[7].diam(0:1)=0.43756676:0.394125899
    dend[8].diam(0:1)=0.613528092:0.666048684
    dend[15].diam(0:1)=0.511873884:0.394125899
    dend[16].diam(0:1)=0.447056079:0.394125899
    //dend4
    dend[1].diam(0:1)=0.422991338:0.394125899
    //dend5
    dend[0].diam(0:1)=1.079807935:1.258362862
    dend[5].diam(0:1)=0.684561704:0.671250219
    dend[6].diam(0:1)=0.921112025:0.906028981
    dend[11].diam(0:1)=0.510142604:0.394125899
    dend[12].diam(0:1)=0.587934185:0.578117486
    dend[13].diam(0:1)=0.6708744:0.655133024
    dend[14].diam(0:1)=0.725362859:0.723490883
    dend[21].diam(0:1)=0.564587385:0.558923523
    dend[22].diam(0:1)=0.413274892:0.394125899
    dend[23].diam(0:1)=0.529840085:0.436340636
    dend[24].diam(0:1)=0.630907098:0.62192585
    dend[29].diam(0:1)=0.407394816:0.394125899
    dend[30].diam(0:1)=0.549327036:0.510245143
    dend[31].diam(0:1)=0.423013504:0.41998514
    dend[32].diam(0:1)=0.408396805:0.394125899
    dend[33].diam(0:1)=0.519620452:0.394125899
    dend[34].diam(0:1)=0.521652733:0.394125899
    dend[41].diam(0:1)=0.404318081:0.394125899
    dend[42].diam(0:1)=0.410182438:0.394125899
    dend[49].diam(0:1)=0.450580467:0.394125899
    dend[50].diam(0:1)=0.461153524:0.394125899
    dend[51].diam(0:1)=0.503682768:0.394125899
    dend[52].diam(0:1)=0.575185338:0.569358221
    dend[53].diam(0:1)=0.508354202:0.462467194
    dend[54].diam(0:1)=0.470191464:0.394125899
    dend[55].diam(0:1)=0.431552975:0.394125899
    dend[56].diam(0:1)=0.42775362:0.394125899
}

proc geom_nseg() {
    soma area(0.5) // make sure diam reflects 3d points
    //    forsec all { nseg = int((L/(0.1*lambda_f(100))+.9)/2)*2 + 1  }
    forsec dendall { nseg = int((L/1 + .9)/2)*2 + 1  }
    soma {nseg = (int((L/1 + .9)/2)*2 + 1)*10 }
}

proc biophys() {
    e_pas_default = -62
    forsec all {
	Ra = Ra_default
	insert pas
	e_pas=e_pas_default
    }
    //soma
    soma.g_pas(0:0.109262341)=g_pas_default*1.202523162:g_pas_default*1.202523162
    soma.cm(0:0.109262341)=cm_default*1.202523162:cm_default*1.202523162
    soma.g_pas(0.109262341:0.226844149)=g_pas_default*1.103751223:g_pas_default*1.103751223
    soma.cm(0.109262341:0.226844149)=cm_default*1.103751223:cm_default*1.103751223
    soma.g_pas(0.226844149:0.33166944)=g_pas_default*1.053325278:g_pas_default*1.053325278
    soma.cm(0.226844149:0.33166944)=cm_default*1.053325278:cm_default*1.053325278
    soma.g_pas(0.33166944:0.449805879)=g_pas_default*1.038172251:g_pas_default*1.038172251
    soma.cm(0.33166944:0.449805879)=cm_default*1.038172251:cm_default*1.038172251
    soma.g_pas(0.449805879:0.558513588)=g_pas_default*1.054855104:g_pas_default*1.054855104
    soma.cm(0.449805879:0.558513588)=cm_default*1.054855104:cm_default*1.054855104
    soma.g_pas(0.558513588:0.663893511)=g_pas_default*1.085954795:g_pas_default*1.085954795
    soma.cm(0.558513588:0.663893511)=cm_default*1.085954795:cm_default*1.085954795
    soma.g_pas(0.663893511:0.77703827)=g_pas_default*1.133775951:g_pas_default*1.133775951
    soma.cm(0.663893511:0.77703827)=cm_default*1.133775951:cm_default*1.133775951
    soma.g_pas(0.77703827:0.88630061)=g_pas_default*1.161969649:g_pas_default*1.161969649
    soma.cm(0.77703827:0.88630061)=cm_default*1.161969649:cm_default*1.161969649
    soma.g_pas(0.88630061:1)=g_pas_default*1.138653146:g_pas_default*1.138653146
    soma.cm(0.88630061:1)=cm_default*1.138653146:cm_default*1.138653146
    //dend1
    dend[4].g_pas(0:1)=g_pas_default*1.44009657:g_pas_default*1.187052052
    dend[9].g_pas(0:1)=g_pas_default*1.164667746:g_pas_default*1.186082493
    dend[10].g_pas(0:1)=g_pas_default*1.162612608:g_pas_default*1.529039671
    dend[17].g_pas(0:1)=g_pas_default*1.169692295:g_pas_default*1.244484832
    dend[18].g_pas(0:1)=g_pas_default*1.169829193:g_pas_default*1.244484832
    dend[19].g_pas(0:1)=g_pas_default*1.418629374:g_pas_default*1.395288413
    dend[20].g_pas(0:0.547296349)=g_pas_default*1.182128206:g_pas_default*1.296313675
    dend[20].g_pas(0.547296349:1)=g_pas_default*1.296313675:g_pas_default*1.152336887
    dend[25].g_pas(0:1)=g_pas_default*1.09670248:g_pas_default*1.244484832
    dend[26].g_pas(0:1)=g_pas_default*1.243742773:g_pas_default*1.172983675
    dend[27].g_pas(0:0.235825466)=g_pas_default*1.133477253:g_pas_default*1.106016897
    dend[27].g_pas(0.235825466:0.742068619)=g_pas_default*1.106016897:g_pas_default*1.152242175
    dend[27].g_pas(0.742068619:1)=g_pas_default*1.152242175:g_pas_default*1.218953362
    dend[28].g_pas(0:1)=g_pas_default*1.119102707:g_pas_default*1.046603899
    dend[35].g_pas(0:1)=g_pas_default*1.169840344:g_pas_default*1.176505062
    dend[36].g_pas(0:1)=g_pas_default*1.185121417:g_pas_default*1.244484832
    dend[37].g_pas(0:1)=g_pas_default*1.389199666:g_pas_default*1.244484832
    dend[38].g_pas(0:1)=g_pas_default*1.297364533:g_pas_default*1.244484832
    dend[39].g_pas(0:0.292108257)=g_pas_default*1.214008672:g_pas_default*1.121221789
    dend[39].g_pas(0.292108257:1)=g_pas_default*1.121221789:g_pas_default*1.31958263
    dend[40].g_pas(0:0.207093736)=g_pas_default*1.296387406:g_pas_default*1.199834013
    dend[40].g_pas(0.207093736:0.855800203)=g_pas_default*1.199834013:g_pas_default*1.28312103
    dend[40].g_pas(0.855800203:1)=g_pas_default*1.28312103:g_pas_default*1.277457072
    dend[43].g_pas(0:0.295789243)=g_pas_default*1.030501377:g_pas_default*1.175036899
    dend[43].g_pas(0.295789243:1)=g_pas_default*1.175036899:g_pas_default*1.244484832
    dend[44].g_pas(0:0.059222818)=g_pas_default*1.315059037:g_pas_default*1.347144325
    dend[44].g_pas(0.059222818:0.320859763)=g_pas_default*1.347144325:g_pas_default*1.138091061
    dend[44].g_pas(0.320859763:0.582496707)=g_pas_default*1.138091061:g_pas_default*1.421854146
    dend[44].g_pas(0.582496707:0.844131341)=g_pas_default*1.421854146:g_pas_default*1.129867999
    dend[44].g_pas(0.844133651:1)=g_pas_default*1.129867999:g_pas_default*1.244484832
    dend[45].g_pas(0:1)=g_pas_default*1.184788196:g_pas_default*1.244484832
    dend[46].g_pas(0:0.326612476)=g_pas_default*1.307352114:g_pas_default*1.128253243
    dend[46].g_pas(0.326612476:0.74657843)=g_pas_default*1.128253243:g_pas_default*1.166590054
    dend[46].g_pas(0.74657843:1)=g_pas_default*1.166590054:g_pas_default*1.244484832
    dend[47].g_pas(0:1)=g_pas_default*1.198556995:g_pas_default*1.244484832
    dend[48].g_pas(0:1)=g_pas_default*1.19630942:g_pas_default*1.244484832
    dend[4].cm(0:1)=cm_default*1.44009657:cm_default*1.187052052
    dend[9].cm(0:1)=cm_default*1.164667746:cm_default*1.186082493
    dend[10].cm(0:1)=cm_default*1.162612608:cm_default*1.529039671
    dend[17].cm(0:1)=cm_default*1.169692295:cm_default*1.244484832
    dend[18].cm(0:1)=cm_default*1.169829193:cm_default*1.244484832
    dend[19].cm(0:1)=cm_default*1.418629374:cm_default*1.395288413
    dend[20].cm(0:0.547296349)=cm_default*1.182128206:cm_default*1.296313675
    dend[20].cm(0.547296349:1)=cm_default*1.296313675:cm_default*1.152336887
    dend[25].cm(0:1)=cm_default*1.09670248:cm_default*1.244484832
    dend[26].cm(0:1)=cm_default*1.243742773:cm_default*1.172983675
    dend[27].cm(0:0.235825466)=cm_default*1.133477253:cm_default*1.106016897
    dend[27].cm(0.235825466:0.742068619)=cm_default*1.106016897:cm_default*1.152242175
    dend[27].cm(0.742068619:1)=cm_default*1.152242175:cm_default*1.218953362
    dend[28].cm(0:1)=cm_default*1.119102707:cm_default*1.046603899
    dend[35].cm(0:1)=cm_default*1.169840344:cm_default*1.176505062
    dend[36].cm(0:1)=cm_default*1.185121417:cm_default*1.244484832
    dend[37].cm(0:1)=cm_default*1.389199666:cm_default*1.244484832
    dend[38].cm(0:1)=cm_default*1.297364533:cm_default*1.244484832
    dend[39].cm(0:0.292108257)=cm_default*1.214008672:cm_default*1.121221789
    dend[39].cm(0.292108257:1)=cm_default*1.121221789:cm_default*1.31958263
    dend[40].cm(0:0.207093736)=cm_default*1.296387406:cm_default*1.199834013
    dend[40].cm(0.207093736:0.855800203)=cm_default*1.199834013:cm_default*1.28312103
    dend[40].cm(0.855800203:1)=cm_default*1.28312103:cm_default*1.277457072
    dend[43].cm(0:0.295789243)=cm_default*1.030501377:cm_default*1.175036899
    dend[43].cm(0.295789243:1)=cm_default*1.175036899:cm_default*1.244484832
    dend[44].cm(0:0.059222818)=cm_default*1.315059037:cm_default*1.347144325
    dend[44].cm(0.059222818:0.320859763)=cm_default*1.347144325:cm_default*1.138091061
    dend[44].cm(0.320859763:0.582496707)=cm_default*1.138091061:cm_default*1.421854146
    dend[44].cm(0.582496707:0.844131341)=cm_default*1.421854146:cm_default*1.129867999
    dend[44].cm(0.844133651:1)=cm_default*1.129867999:cm_default*1.244484832
    dend[45].cm(0:1)=cm_default*1.184788196:cm_default*1.244484832
    dend[46].cm(0:0.326612476)=cm_default*1.307352114:cm_default*1.128253243
    dend[46].cm(0.326612476:0.74657843)=cm_default*1.128253243:cm_default*1.166590054
    dend[46].cm(0.74657843:1)=cm_default*1.166590054:cm_default*1.244484832
    dend[47].cm(0:1)=cm_default*1.198556995:cm_default*1.244484832
    dend[48].cm(0:1)=cm_default*1.19630942:cm_default*1.244484832    
    //dend2
    dend[3].g_pas(0:0.216794817)=g_pas_default*1.174465792:g_pas_default*1.270941597
    dend[3].g_pas(0.216794817:0.433589634)=g_pas_default*1.270941597:g_pas_default*1.187858685
    dend[3].g_pas(0.433589634:0.650384451)=g_pas_default*1.187858685:g_pas_default*1.112055475
    dend[3].g_pas(0.650384451:0.867179268)=g_pas_default*1.112055475:g_pas_default*1.118218383
    dend[3].g_pas(0.867179268:1)=g_pas_default*1.118218383:g_pas_default*1.244484832
    dend[3].cm(0:0.216794817)=cm_default*1.174465792:cm_default*1.270941597
    dend[3].cm(0.216794817:0.433589634)=cm_default*1.270941597:cm_default*1.187858685
    dend[3].cm(0.433589634:0.650384451)=cm_default*1.187858685:cm_default*1.112055475
    dend[3].cm(0.650384451:0.867179268)=cm_default*1.112055475:cm_default*1.118218383
    dend[3].cm(0.867179268:1)=cm_default*1.118218383:cm_default*1.244484832
    //dend3
    dend[2].g_pas(0:1)=g_pas_default*1.17517704:g_pas_default*1.330090564
    dend[7].g_pas(0:1)=g_pas_default*1.308523238:g_pas_default*1.244484832
    dend[8].g_pas(0:1)=g_pas_default*1.190564547:g_pas_default*1.362983595
    dend[15].g_pas(0:1)=g_pas_default*1.11062176:g_pas_default*1.244484832
    dend[16].g_pas(0:1)=g_pas_default*1.335680039:g_pas_default*1.244484832
    dend[2].cm(0:1)=cm_default*1.17517704:cm_default*1.330090564
    dend[7].cm(0:1)=cm_default*1.308523238:cm_default*1.244484832
    dend[8].cm(0:1)=cm_default*1.190564547:cm_default*1.362983595
    dend[15].cm(0:1)=cm_default*1.11062176:cm_default*1.244484832
    dend[16].cm(0:1)=cm_default*1.335680039:cm_default*1.244484832
    //dend4
    dend[1].g_pas(0:1)=g_pas_default*1.21746154:g_pas_default*1.244484832
    dend[1].cm(0:1)=cm_default*1.21746154:cm_default*1.244484832
    //dend5
    dend[0].g_pas(0:1)=g_pas_default*1.426119062:g_pas_default*1.205522974
    dend[5].g_pas(0:1)=g_pas_default*1.157004453:g_pas_default*1.187426498
    dend[6].g_pas(0:1)=g_pas_default*1.878014179:g_pas_default*1.304140419
    dend[11].g_pas(0:1)=g_pas_default*1.175008088:g_pas_default*1.244484832
    dend[12].g_pas(0:1)=g_pas_default*1.170407051:g_pas_default*1.16972084
    dend[13].g_pas(0:1)=g_pas_default*1.187310972:g_pas_default*1.182755196
    dend[14].g_pas(0:1)=g_pas_default*1.207031999:g_pas_default*1.20626238
    dend[21].g_pas(0:1)=g_pas_default*1.169316918:g_pas_default*1.169343995
    dend[22].g_pas(0:1)=g_pas_default*1.225668926:g_pas_default*1.244484832
    dend[23].g_pas(0:1)=g_pas_default*1.17147269:g_pas_default*1.207514349
    dend[24].g_pas(0:1)=g_pas_default*1.176893318:g_pas_default*1.175102074
    dend[29].g_pas(0:1)=g_pas_default*1.23105967:g_pas_default*1.244484832
    dend[30].g_pas(0:1)=g_pas_default*1.169667973:g_pas_default*1.174984888
    dend[31].g_pas(0:1)=g_pas_default*1.217443777:g_pas_default*1.219910399
    dend[32].g_pas(0:1)=g_pas_default*1.230117665:g_pas_default*1.244484832
    dend[33].g_pas(0:1)=g_pas_default*1.173079939:g_pas_default*1.244484832
    dend[34].g_pas(0:1)=g_pas_default*1.172722183:g_pas_default*1.244484832
    dend[41].g_pas(0:1)=g_pas_default*1.234013625:g_pas_default*1.244484832
    dend[42].g_pas(0:1)=g_pas_default*1.22846294:g_pas_default*1.244484832
    dend[49].g_pas(0:1)=g_pas_default*1.198458661:g_pas_default*1.244484832
    dend[50].g_pas(0:1)=g_pas_default*1.192687344:g_pas_default*1.244484832
    dend[51].g_pas(0:1)=g_pas_default*1.176576095:g_pas_default*1.244484832
    dend[52].g_pas(0:1)=g_pas_default*1.169578818:g_pas_default*1.169385321
    dend[53].g_pas(0:1)=g_pas_default*1.175421135:g_pas_default*1.192023768
    dend[54].g_pas(0:1)=g_pas_default*1.188351168:g_pas_default*1.244484832
    dend[55].g_pas(0:1)=g_pas_default*1.210912454:g_pas_default*1.244484832
    dend[56].g_pas(0:1)=g_pas_default*1.213742431:g_pas_default*1.244484832
    dend[0].cm(0:1)=cm_default*1.426119062:cm_default*1.205522974
    dend[5].cm(0:1)=cm_default*1.157004453:cm_default*1.187426498
    dend[6].cm(0:1)=cm_default*1.878014179:cm_default*1.304140419
    dend[11].cm(0:1)=cm_default*1.175008088:cm_default*1.244484832
    dend[12].cm(0:1)=cm_default*1.170407051:cm_default*1.16972084
    dend[13].cm(0:1)=cm_default*1.187310972:cm_default*1.182755196
    dend[14].cm(0:1)=cm_default*1.207031999:cm_default*1.20626238
    dend[21].cm(0:1)=cm_default*1.169316918:cm_default*1.169343995
    dend[22].cm(0:1)=cm_default*1.225668926:cm_default*1.244484832
    dend[23].cm(0:1)=cm_default*1.17147269:cm_default*1.207514349
    dend[24].cm(0:1)=cm_default*1.176893318:cm_default*1.175102074
    dend[29].cm(0:1)=cm_default*1.23105967:cm_default*1.244484832
    dend[30].cm(0:1)=cm_default*1.169667973:cm_default*1.174984888
    dend[31].cm(0:1)=cm_default*1.217443777:cm_default*1.219910399
    dend[32].cm(0:1)=cm_default*1.230117665:cm_default*1.244484832
    dend[33].cm(0:1)=cm_default*1.173079939:cm_default*1.244484832
    dend[34].cm(0:1)=cm_default*1.172722183:cm_default*1.244484832
    dend[41].cm(0:1)=cm_default*1.234013625:cm_default*1.244484832
    dend[42].cm(0:1)=cm_default*1.22846294:cm_default*1.244484832
    dend[49].cm(0:1)=cm_default*1.198458661:cm_default*1.244484832
    dend[50].cm(0:1)=cm_default*1.192687344:cm_default*1.244484832
    dend[51].cm(0:1)=cm_default*1.176576095:cm_default*1.244484832
    dend[52].cm(0:1)=cm_default*1.169578818:cm_default*1.169385321
    dend[53].cm(0:1)=cm_default*1.175421135:cm_default*1.192023768
    dend[54].cm(0:1)=cm_default*1.188351168:cm_default*1.244484832
    dend[55].cm(0:1)=cm_default*1.210912454:cm_default*1.244484832
    dend[56].cm(0:1)=cm_default*1.213742431:cm_default*1.244484832
}

proc setall() {
    forsec all {
	Ra = $1
	e_pas = $4
    }
    //soma
    soma.g_pas(0:0.109262341)=$3*1.202523162:$3*1.202523162
    soma.cm(0:0.109262341)=$2*1.202523162:$2*1.202523162
    soma.g_pas(0.109262341:0.226844149)=$3*1.103751223:$3*1.103751223
    soma.cm(0.109262341:0.226844149)=$2*1.103751223:$2*1.103751223
    soma.g_pas(0.226844149:0.33166944)=$3*1.053325278:$3*1.053325278
    soma.cm(0.226844149:0.33166944)=$2*1.053325278:$2*1.053325278
    soma.g_pas(0.33166944:0.449805879)=$3*1.038172251:$3*1.038172251
    soma.cm(0.33166944:0.449805879)=$2*1.038172251:$2*1.038172251
    soma.g_pas(0.449805879:0.558513588)=$3*1.054855104:$3*1.054855104
    soma.cm(0.449805879:0.558513588)=$2*1.054855104:$2*1.054855104
    soma.g_pas(0.558513588:0.663893511)=$3*1.085954795:$3*1.085954795
    soma.cm(0.558513588:0.663893511)=$2*1.085954795:$2*1.085954795
    soma.g_pas(0.663893511:0.77703827)=$3*1.133775951:$3*1.133775951
    soma.cm(0.663893511:0.77703827)=$2*1.133775951:$2*1.133775951
    soma.g_pas(0.77703827:0.88630061)=$3*1.161969649:$3*1.161969649
    soma.cm(0.77703827:0.88630061)=$2*1.161969649:$2*1.161969649
    soma.g_pas(0.88630061:1)=$3*1.138653146:$3*1.138653146
    soma.cm(0.88630061:1)=$2*1.138653146:$2*1.138653146
    //dend1
    dend[4].g_pas(0:1)=$3*1.44009657:$3*1.187052052
    dend[9].g_pas(0:1)=$3*1.164667746:$3*1.186082493
    dend[10].g_pas(0:1)=$3*1.162612608:$3*1.529039671
    dend[17].g_pas(0:1)=$3*1.169692295:$3*1.244484832
    dend[18].g_pas(0:1)=$3*1.169829193:$3*1.244484832
    dend[19].g_pas(0:1)=$3*1.418629374:$3*1.395288413
    dend[20].g_pas(0:0.547296349)=$3*1.182128206:$3*1.296313675
    dend[20].g_pas(0.547296349:1)=$3*1.296313675:$3*1.152336887
    dend[25].g_pas(0:1)=$3*1.09670248:$3*1.244484832
    dend[26].g_pas(0:1)=$3*1.243742773:$3*1.172983675
    dend[27].g_pas(0:0.235825466)=$3*1.133477253:$3*1.106016897
    dend[27].g_pas(0.235825466:0.742068619)=$3*1.106016897:$3*1.152242175
    dend[27].g_pas(0.742068619:1)=$3*1.152242175:$3*1.218953362
    dend[28].g_pas(0:1)=$3*1.119102707:$3*1.046603899
    dend[35].g_pas(0:1)=$3*1.169840344:$3*1.176505062
    dend[36].g_pas(0:1)=$3*1.185121417:$3*1.244484832
    dend[37].g_pas(0:1)=$3*1.389199666:$3*1.244484832
    dend[38].g_pas(0:1)=$3*1.297364533:$3*1.244484832
    dend[39].g_pas(0:0.292108257)=$3*1.214008672:$3*1.121221789
    dend[39].g_pas(0.292108257:1)=$3*1.121221789:$3*1.31958263
    dend[40].g_pas(0:0.207093736)=$3*1.296387406:$3*1.199834013
    dend[40].g_pas(0.207093736:0.855800203)=$3*1.199834013:$3*1.28312103
    dend[40].g_pas(0.855800203:1)=$3*1.28312103:$3*1.277457072
    dend[43].g_pas(0:0.295789243)=$3*1.030501377:$3*1.175036899
    dend[43].g_pas(0.295789243:1)=$3*1.175036899:$3*1.244484832
    dend[44].g_pas(0:0.059222818)=$3*1.315059037:$3*1.347144325
    dend[44].g_pas(0.059222818:0.320859763)=$3*1.347144325:$3*1.138091061
    dend[44].g_pas(0.320859763:0.582496707)=$3*1.138091061:$3*1.421854146
    dend[44].g_pas(0.582496707:0.844131341)=$3*1.421854146:$3*1.129867999
    dend[44].g_pas(0.844133651:1)=$3*1.129867999:$3*1.244484832
    dend[45].g_pas(0:1)=$3*1.184788196:$3*1.244484832
    dend[46].g_pas(0:0.326612476)=$3*1.307352114:$3*1.128253243
    dend[46].g_pas(0.326612476:0.74657843)=$3*1.128253243:$3*1.166590054
    dend[46].g_pas(0.74657843:1)=$3*1.166590054:$3*1.244484832
    dend[47].g_pas(0:1)=$3*1.198556995:$3*1.244484832
    dend[48].g_pas(0:1)=$3*1.19630942:$3*1.244484832
    dend[4].cm(0:1)=$2*1.44009657:$2*1.187052052
    dend[9].cm(0:1)=$2*1.164667746:$2*1.186082493
    dend[10].cm(0:1)=$2*1.162612608:$2*1.529039671
    dend[17].cm(0:1)=$2*1.169692295:$2*1.244484832
    dend[18].cm(0:1)=$2*1.169829193:$2*1.244484832
    dend[19].cm(0:1)=$2*1.418629374:$2*1.395288413
    dend[20].cm(0:0.547296349)=$2*1.182128206:$2*1.296313675
    dend[20].cm(0.547296349:1)=$2*1.296313675:$2*1.152336887
    dend[25].cm(0:1)=$2*1.09670248:$2*1.244484832
    dend[26].cm(0:1)=$2*1.243742773:$2*1.172983675
    dend[27].cm(0:0.235825466)=$2*1.133477253:$2*1.106016897
    dend[27].cm(0.235825466:0.742068619)=$2*1.106016897:$2*1.152242175
    dend[27].cm(0.742068619:1)=$2*1.152242175:$2*1.218953362
    dend[28].cm(0:1)=$2*1.119102707:$2*1.046603899
    dend[35].cm(0:1)=$2*1.169840344:$2*1.176505062
    dend[36].cm(0:1)=$2*1.185121417:$2*1.244484832
    dend[37].cm(0:1)=$2*1.389199666:$2*1.244484832
    dend[38].cm(0:1)=$2*1.297364533:$2*1.244484832
    dend[39].cm(0:0.292108257)=$2*1.214008672:$2*1.121221789
    dend[39].cm(0.292108257:1)=$2*1.121221789:$2*1.31958263
    dend[40].cm(0:0.207093736)=$2*1.296387406:$2*1.199834013
    dend[40].cm(0.207093736:0.855800203)=$2*1.199834013:$2*1.28312103
    dend[40].cm(0.855800203:1)=$2*1.28312103:$2*1.277457072
    dend[43].cm(0:0.295789243)=$2*1.030501377:$2*1.175036899
    dend[43].cm(0.295789243:1)=$2*1.175036899:$2*1.244484832
    dend[44].cm(0:0.059222818)=$2*1.315059037:$2*1.347144325
    dend[44].cm(0.059222818:0.320859763)=$2*1.347144325:$2*1.138091061
    dend[44].cm(0.320859763:0.582496707)=$2*1.138091061:$2*1.421854146
    dend[44].cm(0.582496707:0.844131341)=$2*1.421854146:$2*1.129867999
    dend[44].cm(0.844133651:1)=$2*1.129867999:$2*1.244484832
    dend[45].cm(0:1)=$2*1.184788196:$2*1.244484832
    dend[46].cm(0:0.326612476)=$2*1.307352114:$2*1.128253243
    dend[46].cm(0.326612476:0.74657843)=$2*1.128253243:$2*1.166590054
    dend[46].cm(0.74657843:1)=$2*1.166590054:$2*1.244484832
    dend[47].cm(0:1)=$2*1.198556995:$2*1.244484832
    dend[48].cm(0:1)=$2*1.19630942:$2*1.244484832    
    //dend2
    dend[3].g_pas(0:0.216794817)=$3*1.174465792:$3*1.270941597
    dend[3].g_pas(0.216794817:0.433589634)=$3*1.270941597:$3*1.187858685
    dend[3].g_pas(0.433589634:0.650384451)=$3*1.187858685:$3*1.112055475
    dend[3].g_pas(0.650384451:0.867179268)=$3*1.112055475:$3*1.118218383
    dend[3].g_pas(0.867179268:1)=$3*1.118218383:$3*1.244484832
    dend[3].cm(0:0.216794817)=$2*1.174465792:$2*1.270941597
    dend[3].cm(0.216794817:0.433589634)=$2*1.270941597:$2*1.187858685
    dend[3].cm(0.433589634:0.650384451)=$2*1.187858685:$2*1.112055475
    dend[3].cm(0.650384451:0.867179268)=$2*1.112055475:$2*1.118218383
    dend[3].cm(0.867179268:1)=$2*1.118218383:$2*1.244484832
    //dend3
    dend[2].g_pas(0:1)=$3*1.17517704:$3*1.330090564
    dend[7].g_pas(0:1)=$3*1.308523238:$3*1.244484832
    dend[8].g_pas(0:1)=$3*1.190564547:$3*1.362983595
    dend[15].g_pas(0:1)=$3*1.11062176:$3*1.244484832
    dend[16].g_pas(0:1)=$3*1.335680039:$3*1.244484832
    dend[2].cm(0:1)=$2*1.17517704:$2*1.330090564
    dend[7].cm(0:1)=$2*1.308523238:$2*1.244484832
    dend[8].cm(0:1)=$2*1.190564547:$2*1.362983595
    dend[15].cm(0:1)=$2*1.11062176:$2*1.244484832
    dend[16].cm(0:1)=$2*1.335680039:$2*1.244484832
    //dend4
    dend[1].g_pas(0:1)=$3*1.21746154:$3*1.244484832
    dend[1].cm(0:1)=$2*1.21746154:$2*1.244484832
    //dend5
    dend[0].g_pas(0:1)=$3*1.426119062:$3*1.205522974
    dend[5].g_pas(0:1)=$3*1.157004453:$3*1.187426498
    dend[6].g_pas(0:1)=$3*1.878014179:$3*1.304140419
    dend[11].g_pas(0:1)=$3*1.175008088:$3*1.244484832
    dend[12].g_pas(0:1)=$3*1.170407051:$3*1.16972084
    dend[13].g_pas(0:1)=$3*1.187310972:$3*1.182755196
    dend[14].g_pas(0:1)=$3*1.207031999:$3*1.20626238
    dend[21].g_pas(0:1)=$3*1.169316918:$3*1.169343995
    dend[22].g_pas(0:1)=$3*1.225668926:$3*1.244484832
    dend[23].g_pas(0:1)=$3*1.17147269:$3*1.207514349
    dend[24].g_pas(0:1)=$3*1.176893318:$3*1.175102074
    dend[29].g_pas(0:1)=$3*1.23105967:$3*1.244484832
    dend[30].g_pas(0:1)=$3*1.169667973:$3*1.174984888
    dend[31].g_pas(0:1)=$3*1.217443777:$3*1.219910399
    dend[32].g_pas(0:1)=$3*1.230117665:$3*1.244484832
    dend[33].g_pas(0:1)=$3*1.173079939:$3*1.244484832
    dend[34].g_pas(0:1)=$3*1.172722183:$3*1.244484832
    dend[41].g_pas(0:1)=$3*1.234013625:$3*1.244484832
    dend[42].g_pas(0:1)=$3*1.22846294:$3*1.244484832
    dend[49].g_pas(0:1)=$3*1.198458661:$3*1.244484832
    dend[50].g_pas(0:1)=$3*1.192687344:$3*1.244484832
    dend[51].g_pas(0:1)=$3*1.176576095:$3*1.244484832
    dend[52].g_pas(0:1)=$3*1.169578818:$3*1.169385321
    dend[53].g_pas(0:1)=$3*1.175421135:$3*1.192023768
    dend[54].g_pas(0:1)=$3*1.188351168:$3*1.244484832
    dend[55].g_pas(0:1)=$3*1.210912454:$3*1.244484832
    dend[56].g_pas(0:1)=$3*1.213742431:$3*1.244484832
    dend[0].cm(0:1)=$2*1.426119062:$2*1.205522974
    dend[5].cm(0:1)=$2*1.157004453:$2*1.187426498
    dend[6].cm(0:1)=$2*1.878014179:$2*1.304140419
    dend[11].cm(0:1)=$2*1.175008088:$2*1.244484832
    dend[12].cm(0:1)=$2*1.170407051:$2*1.16972084
    dend[13].cm(0:1)=$2*1.187310972:$2*1.182755196
    dend[14].cm(0:1)=$2*1.207031999:$2*1.20626238
    dend[21].cm(0:1)=$2*1.169316918:$2*1.169343995
    dend[22].cm(0:1)=$2*1.225668926:$2*1.244484832
    dend[23].cm(0:1)=$2*1.17147269:$2*1.207514349
    dend[24].cm(0:1)=$2*1.176893318:$2*1.175102074
    dend[29].cm(0:1)=$2*1.23105967:$2*1.244484832
    dend[30].cm(0:1)=$2*1.169667973:$2*1.174984888
    dend[31].cm(0:1)=$2*1.217443777:$2*1.219910399
    dend[32].cm(0:1)=$2*1.230117665:$2*1.244484832
    dend[33].cm(0:1)=$2*1.173079939:$2*1.244484832
    dend[34].cm(0:1)=$2*1.172722183:$2*1.244484832
    dend[41].cm(0:1)=$2*1.234013625:$2*1.244484832
    dend[42].cm(0:1)=$2*1.22846294:$2*1.244484832
    dend[49].cm(0:1)=$2*1.198458661:$2*1.244484832
    dend[50].cm(0:1)=$2*1.192687344:$2*1.244484832
    dend[51].cm(0:1)=$2*1.176576095:$2*1.244484832
    dend[52].cm(0:1)=$2*1.169578818:$2*1.169385321
    dend[53].cm(0:1)=$2*1.175421135:$2*1.192023768
    dend[54].cm(0:1)=$2*1.188351168:$2*1.244484832
    dend[55].cm(0:1)=$2*1.210912454:$2*1.244484832
    dend[56].cm(0:1)=$2*1.213742431:$2*1.244484832
}

access soma

celldef()
setall( Ra_default, cm_default, g_pas_default, e_pas_default )
//forsec dend4 delete_section() // delete non-well-defined section

Loading data, please wait...