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 Scientific Reports 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[40]
strdef celltype
celltype="BE59D"
numTree=22
shortR=13.13

proc topol() { local i
    connect dend[0](0), soma(0.6) //dend4
    connect dend[1](0), soma(0.4) //dend3
    connect dend[2](0), soma(0.6) //dend2
    connect dend[3](0), soma(0.7) //dend1
    for i = 4, 5 connect dend[i](0), dend[0](1)
    for i = 6, 7 connect dend[i](0), dend[1](1)
    for i = 8, 9 connect dend[i](0), dend[2](1)
    for i = 10, 11 connect dend[i](0), dend[3](1)
    for i = 12, 13 connect dend[i](0), dend[4](1)
    for i = 14, 15 connect dend[i](0), dend[5](1)
    for i = 16, 17 connect dend[i](0), dend[6](1)
    for i = 18, 19 connect dend[i](0), dend[9](1)
    for i = 20, 21 connect dend[i](0), dend[11](1)
    for i = 22, 23 connect dend[i](0), dend[12](1)
    for i = 24, 25 connect dend[i](0), dend[19](1)
    for i = 26, 27 connect dend[i](0), dend[20](1)
    for i = 28, 29 connect dend[i](0), dend[21](1)
    for i = 30, 31 connect dend[i](0), dend[22](1)
    for i = 32, 33 connect dend[i](0), dend[23](1)
    for i = 34, 35 connect dend[i](0), dend[30](1)
    for i = 36, 37 connect dend[i](0), dend[10](1)
    for i = 38, 39 connect dend[i](0), dend[36](1)
    basic_shape()
}

proc shape3d_soma() {
    soma {pt3dclear()
	pt3dadd(0,0,2.05,6.368168557)
	pt3dadd(0,0,4,8.309116338)
	pt3dadd(0,0,6.05,10.58732383)
	pt3dadd(0,0,7.94,10.24187323)
	pt3dadd(0,0,9.94,11.04440559)
	pt3dadd(0,0,12.04,12.17337576)
	pt3dadd(0,0,13.99,12.2804258)
	pt3dadd(0,0,16.04,12.85109443)
	pt3dadd(0,0,17.98,12.22149763)
	pt3dadd(0,0,19.87,8.884200057)
	pt3dadd(0,0,22.14,6.95419449)
    }
}

proc shape3d_dend4_1() {
    dend[0] {pt3dclear()
//	pt3dstyle(1, -5.80278, 3.31302, -2.39662)
	pt3dadd(-1.04478, 0.220775, -2.4456, 2.23)
	pt3dadd(-1.20478, -0.779225, -2.4456, 2.23)
	pt3dadd(-0.634779, -1.07923, -1.0456, 1.91)
	pt3dadd(-1.94478, -1.46923, -0.445595, 1.91)
	pt3dadd(-1.94478, -1.46923, -0.285595, 1.91)
	pt3dadd(-1.94478, -1.46923, 2.0844, 1.91)
	pt3dadd(-1.94478, -1.46923, 2.25441, 1.91)
	pt3dadd(-1.94478, -1.46923, 1.0044, 1.91)
	pt3dadd(-1.94478, -1.46923, 1.2744, 1.91)
	pt3dadd(-1.79478, -1.18923, 3.4944, 1.91)
	pt3dadd(-1.79478, -1.18923, 5.2244, 1.91)
    }
}

proc shape3d_dend3_1() {
    dend[1] {pt3dclear()
//	pt3dstyle(1, -5.80278, 3.31302, -2.39662)
	pt3dadd(-8.91478, -3.79923, -6.76559, 2.55)
	pt3dadd(-8.91478, -3.79923, -7.1456, 2.55)
	pt3dadd(-8.90478, -5.42923, -10.2256, 2.55)
	pt3dadd(-8.90478, -5.42923, -10.6056, 2.55)
	pt3dadd(-8.43478, -7.60923, -11.4156, 2.55)
	pt3dadd(-8.43478, -7.60923, -11.5156, 2.55)
	pt3dadd(-8.74478, -9.30923, -13.6256, 2.55)
	pt3dadd(-8.74478, -9.30923, -13.7856, 2.55)
	pt3dadd(-9.12478, -10.6892, -14.4356, 2.55)
	pt3dadd(-9.12478, -10.6892, -15.1956, 2.55)
	pt3dadd(-8.85478, -11.9392, -15.7356, 2.55)
	pt3dadd(-8.78478, -12.2492, -15.7356, 2.55)
	pt3dadd(-9.29478, -13.0092, -16.4856, 2.55)
	pt3dadd(-9.29478, -13.0092, -16.6456, 2.55)
	pt3dadd(-11.0148, -14.3492, -17.5656, 2.55)
	pt3dadd(-11.7048, -15.7992, -17.5156, 2.55)
	pt3dadd(-11.7048, -15.7992, -17.6256, 2.55)
	pt3dadd(-11.4448, -17.0492, -19.1856, 2.55)
	pt3dadd(-11.4448, -17.0492, -19.2456, 2.55)
	pt3dadd(-10.3348, -19.0892, -19.2456, 2.55)
	pt3dadd(-11.4048, -21.9292, -19.2956, 2.55)
	pt3dadd(-10.5548, -24.3492, -19.1356, 2.55)
	pt3dadd(-10.1548, -26.2192, -19.1356, 2.55)
	pt3dadd(-9.75478, -28.0992, -19.1356, 2.55)
	pt3dadd(-10.0748, -28.1592, -19.1356, 2.55)
	pt3dadd(-10.5848, -28.9192, -18.7556, 2.55)
    }
}

proc shape3d_dend2_1() {
    dend[2] {pt3dclear()
//	pt3dstyle(1, -5.80278, 3.31302, -2.39662)
	pt3dadd(-8.54478, 10.0108, -1.6356, 3.19)
	pt3dadd(-10.3548, 12.2308, -1.6356, 3.19)
	pt3dadd(-12.9248, 13.3208, -3.3156, 2.55)
	pt3dadd(-12.9248, 13.3208, -3.3656, 2.55)
	pt3dadd(-14.8648, 16.1608, -6.0656, 2.55)
	pt3dadd(-16.0148, 16.8908, -7.7356, 1.59)
	pt3dadd(-16.0148, 16.8908, -7.9056, 1.59)
	pt3dadd(-16.0848, 17.2108, -8.7656, 1.59)
	pt3dadd(-16.0848, 17.2108, -9.03559, 1.59)
	pt3dadd(-16.2848, 18.1408, -9.73559, 1.59)
	pt3dadd(-18.7248, 20.2308, -10.4956, 1.59)
	pt3dadd(-19.6348, 21.3408, -10.4956, 1.59)
	pt3dadd(-20.2848, 22.8308, -11.5756, 1.59)
	pt3dadd(-20.6048, 22.7608, -11.5756, 1.59)
    }
}

proc shape3d_dend1_1() {
    dend[3] {pt3dclear()
//	pt3dstyle(1, -5.80278, 3.31302, -2.39662)
	pt3dadd(0.575221, 8.35077, 0.144405, 3.19)
	pt3dadd(1.21522, 8.48077, 0.144405, 3.19)
	pt3dadd(2.04522, 9.31077, 0.144405, 3.19)
	pt3dadd(3.43522, 10.5908, -0.615595, 2.87)
	pt3dadd(5.03522, 10.9308, -0.555595, 2.87)
	pt3dadd(6.36522, 12.5108, 0.0944049, 2.87)
	pt3dadd(8.53522, 13.3008, -0.615595, 2.87)
	pt3dadd(8.53522, 13.3008, -0.775595, 2.87)
	pt3dadd(11.7352, 13.9808, -0.665595, 2.87)
	pt3dadd(13.4452, 15.3208, -0.555595, 2.87)
    }
}

proc shape3d_dend4_2() {
    dend[4] {pt3dclear()
	pt3dadd(-1.79478, -1.18923, 5.2244, 1.91)
	pt3dadd(-2.93478, 0.140775, 6.3044, 1.91)
	pt3dadd(-2.93478, 0.140775, 6.5144, 1.91)
	pt3dadd(-1.76478, 0.960775, 7.75441, 1.91)
	pt3dadd(-2.61478, 2.14077, 9.43441, 1.91)
	pt3dadd(-2.89478, 3.01077, 11.1044, 1.91)
	pt3dadd(-2.89478, 3.01077, 11.1644, 1.91)
	pt3dadd(-2.88478, 3.72077, 12.4044, 1.91)
	pt3dadd(-2.73478, 4.01077, 12.4544, 1.91)
	pt3dadd(-3.00478, 4.88077, 13.9644, 1.91)
	pt3dadd(-1.54478, 5.54077, 14.9944, 1.91)
	pt3dadd(-0.684779, 5.08077, 16.3944, 1.91)
	pt3dadd(-0.684779, 5.08077, 16.4544, 1.91)
	pt3dadd(1.65522, 6.00077, 19.4744, 1.59)
	pt3dadd(1.65522, 6.00077, 19.5844, 1.59)
	pt3dadd(0.535221, 8.77077, 22.3944, 1.59)
	pt3dadd(0.535221, 8.77077, 22.3344, 1.59)
	pt3dadd(0.695221, 9.76077, 23.6844, 1.59)
    }
}

proc shape3d_dend4_3() {
    dend[5] {pt3dclear()
	pt3dadd(-1.79478, -1.18923, 5.2244, 1.59)
	pt3dadd(-1.96478, -2.89923, 5.5444, 1.59)
	pt3dadd(-1.82478, -3.32923, 5.5944, 1.59)
	pt3dadd(-0.974779, -4.50923, 6.94441, 1.59)
	pt3dadd(-0.684779, -4.65923, 7.92441, 1.59)
	pt3dadd(0.465221, -5.27923, 9.97441, 1.59)
	pt3dadd(0.175221, -5.11923, 9.97441, 1.59)
	pt3dadd(1.03522, -6.29923, 10.5144, 1.59)
	pt3dadd(1.03522, -6.29923, 10.4544, 1.59)
	pt3dadd(0.885221, -6.57923, 10.8344, 1.59)
	pt3dadd(2.33522, -6.62923, 12.1844, 1.59)
	pt3dadd(2.04522, -6.47923, 12.1844, 1.59)
	pt3dadd(4.37522, -6.26923, 13.1044, 1.59)
	pt3dadd(4.37522, -6.26923, 13.6944, 1.59)
	pt3dadd(5.36522, -7.87923, 16.1844, 1.59)
	pt3dadd(5.36522, -7.87923, 16.2344, 1.59)
	pt3dadd(6.84522, -6.49923, 16.4544, 1.59)
	pt3dadd(7.40522, -7.51923, 19.5344, 1.59)
	pt3dadd(7.42522, -6.08923, 21.9044, 1.59)
	pt3dadd(7.42522, -6.08923, 23.0944, 1.59)
	pt3dadd(6.85522, -5.77923, 24.7144, 1.59)
	pt3dadd(5.69522, -5.16923, 24.7144, 1.59)
	pt3dadd(6.13522, -5.03923, 25.9544, 1.59)
	pt3dadd(6.13522, -5.03923, 26.4944, 1.59)
	pt3dadd(6.43522, -4.47923, 26.7144, 1.59)
	pt3dadd(6.87522, -4.34923, 28.6044, 1.59)
	pt3dadd(6.87522, -4.34923, 29.1944, 1.59)
	pt3dadd(7.00522, -5.49923, 32.7644, 1.59)
	pt3dadd(7.00522, -5.49923, 32.7044, 1.59)
	pt3dadd(6.71522, -5.34923, 35.8944, 1.59)
	pt3dadd(6.42522, -5.19923, 36.1644, 1.59)
	pt3dadd(6.42522, -5.19923, 37.2444, 1.59)
	pt3dadd(7.32522, -3.50923, 38.3244, 1.59)
	pt3dadd(7.32522, -3.50923, 38.4844, 1.59)
	pt3dadd(6.78522, -1.04923, 39.9944, 1.27)
	pt3dadd(6.78522, -1.04923, 40.2144, 1.27)
	pt3dadd(6.07522, 0.410775, 41.7244, 1.27)
	pt3dadd(6.10522, 2.55077, 42.9644, 1.59)
	pt3dadd(6.71522, 4.40077, 42.9644, 1.59)
	pt3dadd(6.60522, 6.26077, 45.6644, 1.59)
	pt3dadd(6.77522, 7.98077, 47.0144, 1.59)
	pt3dadd(6.77522, 7.98077, 47.2344, 1.59)
	pt3dadd(6.66522, 10.5608, 47.3944, 1.59)
	pt3dadd(6.37522, 10.7108, 47.3944, 1.59)
	pt3dadd(5.53522, 12.6008, 47.9844, 1.59)
	pt3dadd(4.41522, 15.3708, 48.4244, 1.59)
	pt3dadd(3.87522, 17.8208, 49.7144, 1.59)
	pt3dadd(4.02522, 18.1008, 49.7144, 1.59)
	pt3dadd(3.01522, 19.0008, 51.3344, 1.27)
	pt3dadd(2.73522, 19.1508, 51.3944, 1.27)
	pt3dadd(1.86522, 19.6108, 51.5544, 1.27)
	pt3dadd(2.92522, 20.5708, 51.8244, 1.27)
	pt3dadd(2.92522, 20.5708, 52.2544, 1.27)
	pt3dadd(2.43522, 21.4808, 53.9244, 1.27)
	pt3dadd(2.65522, 21.7108, 54.6844, 1.27)
	pt3dadd(1.95522, 22.3908, 56.2544, 1.27)
	pt3dadd(1.72522, 22.6208, 56.2544, 1.27)
	pt3dadd(1.22522, 23.9908, 57.1144, 1.27)
	pt3dadd(1.22522, 23.9908, 57.3844, 1.27)
	pt3dadd(0.0352207, 25.5808, 57.7644, 1.27)
	pt3dadd(0.255221, 25.8008, 57.7644, 1.27)
	pt3dadd(-0.00477934, 26.9408, 57.7044, 1.27)
	pt3dadd(-0.0447793, 28.3108, 57.7044, 1.27)
	pt3dadd(-1.67478, 29.4408, 57.7044, 1.27)
	pt3dadd(-1.93478, 30.5808, 58.5744, 1.27)
	pt3dadd(-2.66478, 32.1808, 59.1144, 1.27)
	pt3dadd(-2.05478, 34.6908, 59.5944, 1.27)
	pt3dadd(-2.58478, 36.9708, 59.8144, 1.27)
	pt3dadd(-3.53478, 38.3308, 59.8144, 1.27)
	pt3dadd(-4.72478, 39.9208, 59.7644, 1.27)
	pt3dadd(-5.66478, 40.8308, 59.7644, 1.27)
	pt3dadd(-6.36478, 41.5108, 59.7644, 1.27)
	pt3dadd(-8.66478, 41.9508, 59.7644, 1.27)
	pt3dadd(-9.14478, 42.8608, 59.7644, 1.27)
	pt3dadd(-8.70478, 43.3208, 59.7644, 1.27)
	pt3dadd(-8.09478, 45.8308, 60.1344, 1.27)
	pt3dadd(-8.09478, 45.8308, 60.0344, 1.27)
	pt3dadd(-8.60478, 47.6508, 59.8644, 1.27)
	pt3dadd(-8.44478, 50.1608, 60.0344, 1.27)
	pt3dadd(-8.44478, 50.1608, 60.1944, 1.27)
	pt3dadd(-9.20478, 52.6708, 60.1944, 1.27)
	pt3dadd(-9.72478, 54.9408, 61.0544, 1.27)
	pt3dadd(-10.5148, 58.3608, 61.4344, 1.27)
	pt3dadd(-10.5148, 58.3608, 61.4844, 1.27)
	pt3dadd(-9.86478, 59.5108, 62.1344, 1.27)
	pt3dadd(-9.43478, 60.4208, 62.7844, 1.27)
	pt3dadd(-8.78478, 61.5608, 64.2444, 1.27)
	pt3dadd(-8.56478, 61.7908, 64.2444, 1.27)
	pt3dadd(-9.23478, 61.5608, 65.8644, 1.27)
	pt3dadd(-9.07478, 63.6108, 65.8644, 1.27)
	pt3dadd(-11.1448, 64.2908, 66.9444, 1.27)
	pt3dadd(-12.7648, 64.9608, 67.1544, 1.27)
	pt3dadd(-12.9948, 65.1908, 67.1544, 1.27)
	pt3dadd(-14.1848, 66.7808, 68.2344, 1.27)
	pt3dadd(-14.2148, 67.6908, 68.7744, 1.27)
	pt3dadd(-14.2148, 67.6908, 68.8344, 1.27)
	pt3dadd(-14.9148, 68.3708, 69.7544, 1.27)
	pt3dadd(-16.0848, 69.5108, 69.8544, 1.27)
	pt3dadd(-16.0848, 69.5108, 69.9144, 1.27)
	pt3dadd(-15.2548, 72.2508, 69.9144, 1.27)
	pt3dadd(-15.9648, 72.9308, 70.4544, 1.27)
	pt3dadd(-15.9648, 72.9308, 70.5044, 1.27)
	pt3dadd(-17.4148, 75.6608, 71.8544, 1.27)
	pt3dadd(-17.4348, 76.5708, 71.9144, 1.27)
	pt3dadd(-17.9048, 77.0208, 72.3944, 1.27)
	pt3dadd(-18.1448, 77.2508, 72.3944, 1.27)
	pt3dadd(-18.3948, 77.9308, 72.4544, 1.27)
	pt3dadd(-19.7748, 78.3808, 72.7244, 1.27)
	pt3dadd(-19.7748, 78.3808, 72.7744, 1.27)
	pt3dadd(-20.9448, 79.5208, 72.9944, 1.27)
	pt3dadd(-21.1648, 79.2908, 72.9944, 1.27)
	pt3dadd(-23.2148, 79.0508, 72.9944, 1.27)
	pt3dadd(-23.4548, 79.2708, 72.9944, 1.27)
	pt3dadd(-24.3948, 80.1808, 73.9044, 1.27)
	pt3dadd(-25.9948, 80.4008, 74.1744, 1.27)
	pt3dadd(-25.9948, 80.4008, 74.2844, 1.27)
	pt3dadd(-27.6148, 81.0808, 74.8844, 1.27)
	pt3dadd(-28.7548, 81.3008, 75.2044, 1.27)
	pt3dadd(-28.9748, 82.8908, 74.9844, 1.27)
	pt3dadd(-29.6848, 83.5708, 75.1544, 1.27)
	pt3dadd(-29.9748, 85.6208, 74.7144, 1.27)
	pt3dadd(-31.1048, 85.3908, 74.8844, 1.27)
	pt3dadd(-32.7548, 86.9808, 74.8844, 1.27)
	pt3dadd(-32.3248, 87.8908, 74.2844, 1.27)
	pt3dadd(-33.2648, 88.8008, 74.2844, 1.27)
	pt3dadd(-33.7248, 89.2508, 75.6944, 1.27)
	pt3dadd(-33.7248, 89.2508, 75.6344, 1.27)
	pt3dadd(-34.8748, 89.4708, 76.6644, 1.27)
	pt3dadd(-34.8748, 89.4708, 76.9344, 1.27)
	pt3dadd(-34.4348, 89.9308, 78.3944, 1.27)
	pt3dadd(-34.4348, 89.9308, 78.9344, 1.27)
	pt3dadd(-33.7748, 90.6208, 79.0944, 1.27)
	pt3dadd(-34.2548, 91.5308, 80.0644, 1.27)
	pt3dadd(-34.7048, 91.5308, 81.1444, 1.27)
	pt3dadd(-34.7048, 91.5308, 81.1944, 1.27)
	pt3dadd(-36.2948, 91.2908, 81.1944, 1.27)
	pt3dadd(-37.0048, 91.9708, 81.1944, 1.27)
	pt3dadd(-37.0548, 93.8008, 82.4444, 1.27)
	pt3dadd(-38.4548, 94.7008, 82.4944, 1.27)
	pt3dadd(-38.2348, 94.9308, 82.4944, 1.27)
	pt3dadd(-39.4048, 96.0608, 82.8744, 1.27)
	pt3dadd(-40.1148, 96.7408, 82.9844, 1.27)
	pt3dadd(-40.8248, 97.8808, 84.2244, 1.27)
	pt3dadd(-41.5648, 99.4708, 84.6544, 1.27)
	pt3dadd(-42.7048, 99.7008, 84.9244, 1.27)
	pt3dadd(-43.1748, 100.151, 86.7644, 1.27)
	pt3dadd(-43.1748, 100.151, 87.1344, 1.27)
	pt3dadd(-43.1748, 100.151, 87.3044, 1.27)
	pt3dadd(-43.1748, 100.151, 87.6744, 1.27)
	pt3dadd(-43.2048, 101.061, 88.9744, 1.27)
	pt3dadd(-43.2048, 101.061, 89.2944, 1.27)
	pt3dadd(-43.4748, 102.661, 91.0244, 1.27)
	pt3dadd(-43.4748, 102.661, 91.0844, 1.27)
	pt3dadd(-44.4148, 103.561, 91.1344, 1.27)
	pt3dadd(-45.1248, 104.241, 92.4844, 1.27)
	pt3dadd(-45.8248, 104.921, 93.7244, 1.27)
	pt3dadd(-45.8248, 104.921, 93.7844, 1.27)
	pt3dadd(-46.7648, 105.831, 94.1044, 1.27)
	pt3dadd(-46.7648, 105.831, 94.2144, 1.27)
	pt3dadd(-46.3548, 107.201, 94.4244, 1.27)
	pt3dadd(-46.6148, 108.341, 94.4244, 1.27)
	pt3dadd(-47.0948, 109.251, 94.5944, 1.27)
	pt3dadd(-47.5748, 110.161, 94.5944, 1.27)
	pt3dadd(-47.5748, 110.161, 94.6444, 1.27)
	pt3dadd(-49.0248, 112.891, 95.1344, 1.27)
	pt3dadd(-49.7348, 113.571, 95.1344, 1.27)
	pt3dadd(-49.7748, 114.941, 95.8344, 1.27)
	pt3dadd(-50.2848, 116.761, 97.0744, 1.27)
	pt3dadd(-49.6448, 118.361, 98.3744, 1.27)
	pt3dadd(-49.6848, 119.731, 97.7744, 1.27)
	pt3dadd(-50.8648, 120.861, 97.8344, 1.27)
	pt3dadd(-50.4148, 121.321, 98.5844, 1.27)
    }
}

proc shape3d_dend3_2() {
    dend[6] {pt3dclear()
	pt3dadd(-10.5848, -28.9192, -18.7556, 2.23)
	pt3dadd(-11.7348, -29.8192, -17.1356, 2.23)
	pt3dadd(-11.7348, -29.8192, -17.0856, 2.23)
	pt3dadd(-13.1248, -31.0892, -17.0256, 2.23)
	pt3dadd(-13.1248, -31.0892, -16.8156, 2.23)
	pt3dadd(-13.1848, -32.4092, -16.7556, 2.23)
	pt3dadd(-13.2448, -32.0992, -16.7556, 2.23)
	pt3dadd(-13.0548, -33.0292, -15.6756, 2.23)
	pt3dadd(-13.9248, -35.1692, -15.6256, 2.23)
	pt3dadd(-14.1048, -37.4892, -15.5156, 2.23)
	pt3dadd(-15.1848, -38.6992, -15.5156, 2.23)
	pt3dadd(-15.3048, -39.6992, -15.6756, 2.23)
	pt3dadd(-14.8548, -40.2592, -17.8956, 2.23)
	pt3dadd(-15.1548, -41.9492, -17.8956, 2.23)
	pt3dadd(-14.8948, -43.1992, -18.7556, 2.23)
	pt3dadd(-14.5648, -44.7592, -19.0756, 2.23)
	pt3dadd(-13.7748, -46.8692, -19.0756, 2.23)
	pt3dadd(-13.7748, -46.8692, -18.8656, 2.23)
	pt3dadd(-13.5148, -48.1192, -18.9756, 2.23)
	pt3dadd(-13.6348, -49.1192, -17.7856, 2.23)
	pt3dadd(-14.3948, -50.2592, -17.5156, 2.23)
	pt3dadd(-14.0648, -51.8192, -17.6756, 2.23)
	pt3dadd(-14.0648, -51.8192, -17.7256, 2.23)
	pt3dadd(-12.7048, -53.4892, -17.1856, 2.23)
	pt3dadd(-12.4448, -54.7292, -16.5456, 2.23)
	pt3dadd(-12.4448, -54.7292, -16.3256, 2.23)
	pt3dadd(-12.1748, -55.9792, -16.3256, 2.23)
	pt3dadd(-12.7348, -58.0592, -16.5456, 2.23)
	pt3dadd(-12.4048, -59.6092, -17.1856, 2.23)
	pt3dadd(-11.9448, -61.7992, -17.0856, 2.23)
	pt3dadd(-11.2248, -63.5992, -17.1856, 2.23)
	pt3dadd(-10.2548, -65.0192, -16.4856, 1.59)
	pt3dadd(-10.2548, -65.0192, -16.4356, 1.59)
	pt3dadd(-10.1748, -66.9592, -17.2456, 1.59)
	pt3dadd(-10.6148, -68.0292, -11.7356, 1.59)
	pt3dadd(-10.6148, -68.0292, -12.1656, 1.59)
	pt3dadd(-10.5548, -68.3392, -12.5956, 1.59)
	pt3dadd(-10.5548, -68.3392, -13.0856, 1.59)
	pt3dadd(-11.5748, -68.2392, -14.7556, 1.59)
	pt3dadd(-11.5748, -68.2392, -14.8156, 1.59)
	pt3dadd(-11.0548, -69.0992, -13.4056, 1.59)
	pt3dadd(-10.7248, -70.6592, -11.3556, 1.59)
	pt3dadd(-10.7248, -70.6592, -11.4156, 1.59)
	pt3dadd(-11.4148, -72.1092, -12.4956, 1.59)
	pt3dadd(-12.5648, -73.0092, -12.3856, 1.59)
	pt3dadd(-13.5748, -74.5292, -12.3856, 1.59)
	pt3dadd(-13.8848, -76.2192, -11.7356, 1.59)
	pt3dadd(-13.8848, -76.2192, -11.8956, 1.59)
	pt3dadd(-13.6148, -77.4692, -12.0056, 1.59)
	pt3dadd(-13.1648, -78.0192, -10.8156, 1.59)
	pt3dadd(-12.7148, -78.5792, -9.19559, 1.59)
	pt3dadd(-12.8248, -81.2092, -9.73559, 1.59)
	pt3dadd(-12.0548, -81.6992, -10.4956, 1.59)
	pt3dadd(-12.2348, -82.3892, -10.8156, 1.59)
	pt3dadd(-11.2048, -84.1192, -9.7956, 1.59)
	pt3dadd(-11.1348, -84.4392, -10.4956, 1.59)
	pt3dadd(-9.84478, -85.7892, -10.7656, 1.59)
	pt3dadd(-9.46478, -86.0392, -9.4656, 1.59)
	pt3dadd(-8.94478, -86.8992, -11.0856, 1.59)
	pt3dadd(-8.61478, -88.4592, -11.4656, 1.59)
	pt3dadd(-8.34478, -89.7092, -11.4656, 1.59)
	pt3dadd(-9.03478, -91.1792, -10.6056, 1.59)
	pt3dadd(-10.1148, -92.3892, -10.6056, 1.59)
	pt3dadd(-9.91478, -93.3192, -10.6056, 1.59)
	pt3dadd(-9.83478, -95.2592, -10.6556, 1.59)
	pt3dadd(-10.5448, -95.0892, -10.6556, 1.59)
	pt3dadd(-9.57478, -96.5092, -8.5456, 1.59)
	pt3dadd(-9.50478, -96.8192, -8.44559, 1.59)
	pt3dadd(-9.10478, -98.6892, -8.3856, 1.59)
	pt3dadd(-9.17478, -98.3792, -8.3856, 1.59)
	pt3dadd(-8.97478, -99.3092, -7.7956, 1.59)
	pt3dadd(-8.32478, -100.809, -8.3856, 1.59)
	pt3dadd(-6.90478, -102.779, -8.3856, 1.59)
	pt3dadd(-6.95478, -104.099, -8.65559, 1.59)
	pt3dadd(-6.69478, -105.349, -10.5456, 1.59)
	pt3dadd(-6.74478, -106.659, -11.3056, 1.59)
	pt3dadd(-7.06478, -106.729, -11.3056, 1.59)
	pt3dadd(-7.37478, -108.419, -11.3056, 1.59)
	pt3dadd(-8.44478, -111.259, -11.4656, 1.59)
	pt3dadd(-8.69478, -111.639, -12.9256, 1.59)
	pt3dadd(-8.61478, -113.579, -13.0356, 1.59)
	pt3dadd(-8.09478, -114.439, -12.9756, 1.59)
	pt3dadd(-7.39478, -114.619, -12.5956, 1.59)
	pt3dadd(-6.10478, -115.969, -11.7856, 1.59)
	pt3dadd(-5.58478, -116.839, -11.7356, 1.59)
	pt3dadd(-5.90478, -116.909, -11.7356, 1.59)
	pt3dadd(-5.38478, -117.779, -11.9556, 1.59)
	pt3dadd(-5.18478, -118.709, -12.1656, 1.59)
	pt3dadd(-4.92478, -119.959, -12.0056, 1.59)
	pt3dadd(-5.54478, -121.719, -11.7356, 1.59)
	pt3dadd(-5.03478, -122.589, -11.7856, 1.59)
	pt3dadd(-4.57478, -123.149, -12.0556, 1.59)
	pt3dadd(-4.38478, -124.079, -11.6256, 1.59)
	pt3dadd(-3.47478, -125.189, -11.6256, 1.59)
	pt3dadd(-3.91478, -126.259, -10.8156, 1.59)
	pt3dadd(-3.91478, -126.259, -10.8756, 1.59)
	pt3dadd(-5.43478, -128.539, -11.0356, 1.59)
	pt3dadd(-5.23478, -129.479, -11.3056, 1.59)
	pt3dadd(-5.62478, -129.229, -11.3056, 1.59)
	pt3dadd(-6.24478, -130.999, -10.8756, 1.59)
	pt3dadd(-5.91478, -132.549, -10.8756, 1.59)
	pt3dadd(-6.17478, -132.929, -10.8756, 1.59)
	pt3dadd(-7.31478, -133.829, -10.7656, 1.59)
	pt3dadd(-6.39478, -136.569, -9.19559, 1.59)
	pt3dadd(-6.39478, -136.569, -9.8456, 1.59)
	pt3dadd(-5.76478, -136.429, -10.8156, 1.59)
	pt3dadd(-5.36478, -138.299, -10.1656, 1.59)
	pt3dadd(-5.68478, -138.369, -10.1656, 1.59)
	pt3dadd(-5.09478, -139.549, -10.8156, 1.59)
	pt3dadd(-5.09478, -139.549, -10.7656, 1.59)
	pt3dadd(-4.07478, -139.659, -11.0356, 1.59)
	pt3dadd(-4.51478, -140.729, -11.1956, 1.59)
	pt3dadd(-5.39478, -142.869, -10.5456, 1.59)
	pt3dadd(-4.92478, -145.049, -11.0356, 1.59)
	pt3dadd(-5.31478, -144.809, -11.0356, 1.59)
	pt3dadd(-5.74478, -147.509, -10.0656, 1.59)
	pt3dadd(-6.05478, -149.199, -8.2256, 1.59)
	pt3dadd(-6.36478, -149.269, -8.2256, 1.59)
	pt3dadd(-6.10478, -150.519, -8.2256, 1.59)
	pt3dadd(-4.69478, -150.869, -8.44559, 1.59)
	pt3dadd(-5.33478, -152.329, -6.6556, 1.59)
	pt3dadd(-4.93478, -154.199, -6.0656, 1.59)
	pt3dadd(-4.43478, -153.439, -8.1756, 1.59)
	pt3dadd(-5.57478, -154.339, -8.49559, 1.59)
	pt3dadd(-5.89478, -154.399, -8.49559, 1.59)
	pt3dadd(-5.49478, -156.279, -8.49559, 1.59)
	pt3dadd(-4.91478, -157.449, -8.5456, 1.59)
	pt3dadd(-4.71478, -158.389, -8.5456, 1.59)
	pt3dadd(-5.02478, -160.079, -8.81559, 1.59)
	pt3dadd(-5.02478, -160.079, -8.44559, 1.59)
	pt3dadd(-5.01478, -161.709, -8.44559, 1.59)
	pt3dadd(-5.31478, -163.409, -7.36559, 1.59)
	pt3dadd(-5.31478, -163.409, -7.2556, 1.59)
	pt3dadd(-6.13478, -165.859, -7.09559, 1.59)
	pt3dadd(-5.86478, -167.109, -7.4156, 1.59)
	pt3dadd(-5.66478, -168.039, -5.36559, 1.59)
	pt3dadd(-5.59478, -169.979, -4.49559, 1.59)
	pt3dadd(-5.95478, -172.989, -4.3356, 1.59)
	pt3dadd(-6.39478, -174.059, -2.8756, 1.59)
	pt3dadd(-6.19478, -174.999, -3.5256, 1.59)
	pt3dadd(-5.72478, -177.179, -3.5256, 1.59)
	pt3dadd(-6.47478, -179.939, -3.47559, 1.59)
	pt3dadd(-5.75478, -181.749, -3.0456, 1.59)
	pt3dadd(-5.75478, -181.749, -2.98559, 1.59)
	pt3dadd(-5.37478, -181.989, -2.6656, 1.59)
	pt3dadd(-6.00478, -183.749, -2.9356, 1.59)
	pt3dadd(-6.57478, -184.199, -3.0456, 1.59)
	pt3dadd(-6.57478, -184.199, -2.98559, 1.59)
	pt3dadd(-6.94478, -185.579, -2.8756, 1.59)
	pt3dadd(-6.94478, -185.579, -2.8256, 1.59)
	pt3dadd(-8.02478, -186.789, -1.4756, 1.59)
	pt3dadd(-8.02478, -186.789, -1.4256, 1.59)
	pt3dadd(-7.50478, -187.659, -1.3656, 1.59)
	pt3dadd(-7.50478, -187.659, -1.2556, 1.59)
	pt3dadd(-6.03478, -188.319, -1.8556, 1.59)
	pt3dadd(-6.35478, -188.389, -1.8556, 1.59)
	pt3dadd(-5.44478, -189.499, -1.8556, 1.59)
	pt3dadd(-5.11478, -191.059, -1.9656, 1.59)
	pt3dadd(-5.10478, -192.689, -1.7456, 1.59)
	pt3dadd(-5.72478, -194.449, -1.4256, 1.59)
	pt3dadd(-6.04478, -194.519, -1.4256, 1.59)
	pt3dadd(-5.78478, -195.759, -1.2556, 1.59)
	pt3dadd(-5.45478, -197.319, -1.4756, 1.59)
	pt3dadd(-5.25478, -198.259, -2.1256, 1.59)
	pt3dadd(-5.30478, -199.569, -2.6056, 1.59)
	pt3dadd(-4.97478, -201.129, -2.6056, 1.59)
	pt3dadd(-5.08478, -203.759, -2.6656, 1.59)
	pt3dadd(-5.27478, -204.449, -2.7156, 1.59)
	pt3dadd(-5.57478, -206.149, -2.8256, 1.59)
	pt3dadd(-5.56478, -207.779, -2.01559, 1.59)
	pt3dadd(-5.56478, -207.779, -1.9656, 1.59)
	pt3dadd(-6.26478, -209.229, -0.885595, 1.59)
	pt3dadd(-6.56478, -210.919, -0.345595, 1.59)
	pt3dadd(-7.83478, -212.819, 1.1144, 1.59)
	pt3dadd(-7.83478, -212.819, 1.1744, 1.59)
	pt3dadd(-8.59478, -213.959, -0.825595, 1.59)
	pt3dadd(-8.19478, -215.829, -0.825595, 1.59)
	pt3dadd(-7.99478, -216.759, -0.825595, 1.59)
	pt3dadd(-8.31478, -216.829, -0.825595, 1.59)
	pt3dadd(-7.46478, -219.259, -0.665595, 1.59)
	pt3dadd(-7.77478, -220.949, -0.345595, 1.59)
	pt3dadd(-7.50478, -222.199, -0.345595, 1.59)
	pt3dadd(-7.17478, -223.759, 0.524405, 1.59)
	pt3dadd(-7.61478, -224.829, 1.0044, 1.59)
	pt3dadd(-6.64478, -226.249, 0.794405, 1.59)
	pt3dadd(-6.71478, -225.939, 0.734405, 1.59)
	pt3dadd(-7.03478, -226.009, 0.734405, 1.59)
	pt3dadd(-6.95478, -227.949, 1.1744, 1.59)
	pt3dadd(-6.94478, -229.569, 1.1744, 1.59)
	pt3dadd(-7.26478, -229.639, 1.1744, 1.59)
	pt3dadd(-6.80478, -230.199, 0.684405, 1.59)
	pt3dadd(-5.99478, -230.929, 0.734405, 1.27)
	pt3dadd(-6.15478, -231.929, 2.1444, 1.27)
	pt3dadd(-6.03478, -233.079, 2.3544, 1.27)
	pt3dadd(-6.31478, -232.929, 2.3544, 1.27)
	pt3dadd(-6.48478, -233.919, 2.0344, 1.27)
	pt3dadd(-7.21478, -234.619, 1.5444, 1.27)
	pt3dadd(-6.36478, -235.789, 1.5444, 1.27)
	pt3dadd(-6.67478, -237.069, 2.1444, 1.27)
	pt3dadd(-6.99478, -239.069, 1.6544, 1.27)
	pt3dadd(-5.56478, -240.549, 1.6544, 1.27)
	pt3dadd(-6.44478, -240.799, 2.4644, 1.27)
	pt3dadd(-6.88478, -241.649, 2.6244, 1.27)
	pt3dadd(-6.32478, -242.669, 2.6844, 1.27)
	pt3dadd(-6.19478, -243.819, 2.3544, 1.27)
	pt3dadd(-7.10478, -246.229, 2.3544, 1.27)
	pt3dadd(-7.27478, -247.939, 2.6844, 1.27)
	pt3dadd(-8.02478, -249.349, 3.6044, 1.27)
	pt3dadd(-7.16478, -249.809, 3.3344, 1.27)
	pt3dadd(-6.90478, -252.109, 3.3344, 1.27)
	pt3dadd(-7.18478, -251.239, 3.0644, 1.27)
	pt3dadd(-7.79478, -253.079, 2.6844, 1.27)
	pt3dadd(-8.81478, -253.619, 3.1644, 1.27)
	pt3dadd(-8.81478, -253.619, 3.1144, 1.27)
	pt3dadd(-9.41478, -254.749, 3.1144, 1.27)
	pt3dadd(-8.99478, -256.049, 3.1144, 1.27)
	pt3dadd(-9.14478, -256.329, 3.3844, 1.27)
	pt3dadd(-8.44478, -257.789, 3.6544, 1.27)
	pt3dadd(-8.75478, -259.069, 4.0844, 1.27)
	pt3dadd(-9.50478, -260.469, 4.1444, 1.27)
	pt3dadd(-9.96478, -262.029, 3.8144, 1.27)
	pt3dadd(-10.2748, -263.309, 3.8144, 1.27)
	pt3dadd(-10.4448, -265.029, 3.6044, 1.27)
	pt3dadd(-10.8948, -265.869, 3.9744, 1.27)
	pt3dadd(-10.1748, -266.609, 3.9744, 1.27)
	pt3dadd(-10.7748, -267.739, 3.9744, 1.27)
	pt3dadd(-11.0848, -269.019, 3.1644, 1.27)
	pt3dadd(-11.1148, -270.449, 3.1644, 1.27)
	pt3dadd(-11.1148, -270.449, 3.2244, 1.27)
	pt3dadd(-11.5548, -271.289, 3.1644, 1.27)
	pt3dadd(-10.9848, -271.599, 2.8944, 1.27)
	pt3dadd(-10.9948, -272.319, 4.0844, 1.27)
	pt3dadd(-11.1548, -273.309, 4.7844, 1.27)
	pt3dadd(-11.1548, -273.309, 4.8944, 1.27)
	pt3dadd(-10.8748, -274.179, 5.0544, 1.27)
	pt3dadd(-11.1748, -274.749, 5.27441, 1.27)
	pt3dadd(-11.4648, -274.589, 5.4944, 1.27)
	pt3dadd(-12.0748, -276.439, 5.2244, 1.27)
	pt3dadd(-12.0748, -276.439, 5.1644, 1.27)
	pt3dadd(-12.2448, -278.149, 5.1144, 1.27)
	pt3dadd(-12.5448, -278.709, 6.5744, 1.27)
	pt3dadd(-13.0048, -280.269, 6.6244, 1.27)
	pt3dadd(-12.3048, -281.729, 7.38441, 1.27)
	pt3dadd(-12.1848, -283.599, 8.6244, 1.27)
	pt3dadd(-12.4948, -284.879, 7.7044, 1.27)
	pt3dadd(-11.7948, -286.329, 7.97441, 1.27)
	pt3dadd(-11.7948, -286.329, 8.0844, 1.27)
	pt3dadd(-12.8148, -286.869, 8.89441, 1.27)
	pt3dadd(-12.6948, -288.739, 8.7844, 1.27)
	pt3dadd(-13.5848, -289.709, 8.6244, 1.27)
	pt3dadd(-14.4848, -291.399, 8.8344, 1.27)
	pt3dadd(-14.0648, -292.699, 8.6244, 1.27)
	pt3dadd(-14.2248, -293.699, 8.2444, 1.27)
	pt3dadd(-14.8248, -294.829, 8.3544, 1.27)
	pt3dadd(-13.3848, -295.589, 8.67441, 1.27)
	pt3dadd(-13.3848, -295.589, 8.6244, 1.27)
	pt3dadd(-13.3948, -296.309, 8.6244, 1.27)
	pt3dadd(-14.2948, -297.999, 9.1044, 1.27)
	pt3dadd(-14.1648, -299.149, 9.1644, 1.27)
	pt3dadd(-14.9148, -300.559, 9.64441, 1.27)
	pt3dadd(-15.0048, -302.709, 9.05441, 1.27)
	pt3dadd(-14.7448, -305.009, 9.05441, 1.27)
	pt3dadd(-15.1948, -305.849, 9.2744, 1.27)
	pt3dadd(-14.9248, -307.439, 8.1944, 1.27)
	pt3dadd(-15.2248, -307.999, 8.1944, 1.27)
	pt3dadd(-15.2248, -307.999, 8.2444, 1.27)
	pt3dadd(-15.4048, -309.709, 7.5944, 1.27)
	pt3dadd(-15.6848, -309.559, 7.5944, 1.27)
	pt3dadd(-15.4148, -310.429, 7.8144, 1.27)
	pt3dadd(-16.6048, -312.679, 7.92441, 1.27)
	pt3dadd(-16.6048, -312.679, 7.97441, 1.27)
	pt3dadd(-18.0748, -313.349, 8.0244, 1.27)
	pt3dadd(-18.3648, -313.189, 8.0244, 1.27)
	pt3dadd(-20.2648, -313.989, 8.0244, 1.27)
	pt3dadd(-21.7148, -313.939, 8.2444, 1.27)
	pt3dadd(-21.7148, -313.939, 8.0844, 1.27)
	pt3dadd(-22.1648, -314.779, 9.5444, 1.27)
	pt3dadd(-22.1648, -314.779, 9.59441, 1.27)
	pt3dadd(-22.4648, -315.339, 9.75441, 1.27)
	pt3dadd(-22.4648, -315.339, 9.9144, 1.27)
	pt3dadd(-22.4748, -316.059, 9.97441, 1.27)
	pt3dadd(-22.7848, -317.339, 11.3744, 1.27)
	pt3dadd(-24.1348, -319.869, 11.3744, 1.27)
	pt3dadd(-24.4448, -321.149, 11.2644, 1.27)
	pt3dadd(-25.1848, -322.559, 10.3544, 1.27)
	pt3dadd(-25.6548, -324.839, 10.1844, 1.27)
	pt3dadd(-26.8448, -326.369, 10.2944, 1.27)
	pt3dadd(-27.1348, -326.219, 10.2944, 1.27)
	pt3dadd(-26.7048, -326.809, 10.1344, 1.27)
	pt3dadd(-27.1448, -326.929, 11.5944, 1.27)
    }
}

proc shape3d_dend3_3() {
    dend[7] {pt3dclear()
	pt3dadd(-10.5848, -28.9192, -18.7556, 1.59)
	pt3dadd(-10.5048, -30.2192, -20.1056, 1.59)
	pt3dadd(-10.5048, -30.2192, -20.6456, 1.59)
	pt3dadd(-10.4348, -30.5292, -21.8356, 1.59)
	pt3dadd(-10.4348, -30.5292, -22.9656, 1.59)
	pt3dadd(-10.4348, -30.5292, -22.6956, 1.59)
	pt3dadd(-9.21478, -31.5792, -24.0456, 1.59)
	pt3dadd(-10.1048, -32.0892, -23.7756, 1.59)
	pt3dadd(-9.58478, -32.9592, -23.7756, 1.59)
	pt3dadd(-10.3448, -34.0992, -24.1056, 1.59)
	pt3dadd(-10.2648, -36.0392, -24.1056, 1.59)
	pt3dadd(-10.2548, -37.6692, -24.1056, 1.59)
	pt3dadd(-10.1948, -37.9792, -24.1556, 1.59)
	pt3dadd(-9.60478, -39.1592, -24.4256, 1.59)
	pt3dadd(-9.15478, -39.7092, -24.3756, 1.59)
	pt3dadd(-9.15478, -39.7092, -24.4256, 1.59)
	pt3dadd(-9.47478, -39.7792, -24.4756, 1.59)
	pt3dadd(-9.59478, -40.7792, -24.4256, 1.59)
	pt3dadd(-9.51478, -42.7192, -24.0456, 1.59)
	pt3dadd(-8.87478, -42.5892, -25.1256, 1.59)
	pt3dadd(-9.63478, -43.7192, -25.7256, 1.59)
	pt3dadd(-8.92478, -45.5292, -25.9356, 1.59)
	pt3dadd(-9.04478, -46.5292, -27.5556, 1.59)
	pt3dadd(-9.04478, -46.5292, -27.6156, 1.59)
	pt3dadd(-9.02478, -48.1592, -28.4756, 1.59)
	pt3dadd(-9.90478, -50.2992, -28.4756, 1.59)
	pt3dadd(-9.13478, -50.7892, -28.4756, 1.59)
	pt3dadd(-10.1648, -50.6792, -29.8756, 1.59)
	pt3dadd(-9.88478, -53.5492, -30.5856, 1.59)
	pt3dadd(-10.7048, -54.3792, -31.0656, 1.59)
	pt3dadd(-10.7048, -54.3792, -31.1756, 1.59)
	pt3dadd(-11.0848, -55.7592, -31.2856, 1.59)
	pt3dadd(-12.0948, -57.2792, -32.7456, 1.59)
	pt3dadd(-13.6948, -57.6192, -33.7656, 1.59)
	pt3dadd(-14.3348, -57.7592, -33.7656, 1.59)
	pt3dadd(-14.6348, -59.4492, -34.3056, 1.59)
	pt3dadd(-14.7548, -60.4492, -34.5256, 1.59)
	pt3dadd(-14.8748, -61.4592, -36.7356, 1.59)
	pt3dadd(-14.8748, -61.4592, -36.7956, 1.59)
	pt3dadd(-15.6348, -62.5992, -38.4156, 1.59)
	pt3dadd(-15.8948, -62.9792, -38.4156, 1.59)
	pt3dadd(-17.9248, -64.3892, -39.3256, 1.59)
	pt3dadd(-17.9248, -64.3892, -39.7056, 1.59)
	pt3dadd(-17.7948, -65.0092, -39.2256, 1.59)
	pt3dadd(-17.2748, -65.8792, -42.1956, 1.59)
	pt3dadd(-17.5948, -65.9492, -42.7356, 1.59)
	pt3dadd(-17.6548, -67.2592, -44.6756, 1.59)
	pt3dadd(-17.6548, -67.2592, -45.1056, 1.59)
	pt3dadd(-18.4748, -68.0892, -45.6456, 1.59)
	pt3dadd(-18.4748, -68.0892, -46.2456, 1.59)
	pt3dadd(-18.0148, -70.2692, -47.2656, 1.59)
	pt3dadd(-18.3948, -70.0292, -47.2656, 1.59)
	pt3dadd(-19.9148, -72.2992, -47.2656, 1.59)
	pt3dadd(-20.7448, -73.1292, -47.2656, 1.59)
	pt3dadd(-21.3148, -73.5792, -47.3256, 1.59)
	pt3dadd(-21.6348, -73.6492, -47.3256, 1.59)
	pt3dadd(-22.0748, -74.7192, -48.7256, 1.59)
	pt3dadd(-22.8348, -75.8592, -49.1056, 1.59)
	pt3dadd(-22.8348, -75.8592, -49.4256, 1.59)
	pt3dadd(-22.7148, -77.0292, -49.3756, 1.27)
	pt3dadd(-23.1948, -78.9092, -49.9156, 1.27)
	pt3dadd(-23.1948, -78.9092, -49.9656, 1.27)
	pt3dadd(-23.5848, -79.7892, -49.9656, 1.27)
	pt3dadd(-23.8848, -79.6492, -50.2956, 1.27)
	pt3dadd(-23.8848, -79.6492, -50.6156, 1.27)
	pt3dadd(-24.6648, -81.3992, -50.6656, 1.27)
	pt3dadd(-24.4948, -81.8192, -51.1556, 1.27)
	pt3dadd(-25.0148, -82.9892, -51.6956, 1.27)
	pt3dadd(-25.2348, -84.2892, -53.2656, 1.27)
	pt3dadd(-24.8948, -85.1292, -52.9356, 1.27)
	pt3dadd(-25.5848, -85.8792, -52.8856, 1.27)
	pt3dadd(-26.5248, -87.1992, -52.5556, 1.27)
	pt3dadd(-27.3448, -88.2292, -52.2856, 1.27)
	pt3dadd(-27.7348, -89.0992, -52.2356, 1.27)
	pt3dadd(-26.7148, -89.2092, -52.7756, 1.27)
	pt3dadd(-27.4848, -90.9592, -52.7256, 1.27)
	pt3dadd(-27.1148, -92.5192, -53.0456, 1.27)
	pt3dadd(-26.3448, -93.2092, -52.4556, 1.27)
	pt3dadd(-26.9948, -94.6692, -52.5056, 1.27)
	pt3dadd(-26.9948, -94.6692, -52.6156, 1.27)
	pt3dadd(-27.6448, -96.1192, -52.9956, 1.27)
	pt3dadd(-27.6048, -96.8392, -53.7456, 1.27)
	pt3dadd(-27.9548, -98.4292, -52.2356, 1.27)
	pt3dadd(-28.9448, -99.0292, -54.0756, 1.27)
	pt3dadd(-29.4548, -100.199, -54.0756, 1.27)
	pt3dadd(-29.7148, -100.779, -55.6356, 1.27)
	pt3dadd(-29.8448, -101.069, -55.8556, 1.27)
	pt3dadd(-30.6248, -102.819, -56.2856, 1.27)
	pt3dadd(-30.6248, -102.819, -56.3356, 1.27)
	pt3dadd(-31.3148, -103.559, -56.3356, 1.27)
	pt3dadd(-31.3148, -103.559, -56.7156, 1.27)
	pt3dadd(-31.9648, -105.019, -57.0956, 1.27)
	pt3dadd(-31.4948, -105.569, -58.5556, 1.27)
	pt3dadd(-31.4948, -105.569, -59.0956, 1.27)
	pt3dadd(-30.9848, -106.849, -60.2256, 1.27)
	pt3dadd(-31.1148, -107.139, -60.2256, 1.27)
	pt3dadd(-31.2948, -109.149, -60.2856, 1.27)
	pt3dadd(-31.1648, -108.859, -60.2856, 1.27)
	pt3dadd(-30.3648, -110.259, -60.9856, 1.27)
	pt3dadd(-30.6648, -110.129, -60.9856, 1.27)
	pt3dadd(-28.6248, -112.779, -61.5756, 1.27)
	pt3dadd(-27.8648, -113.469, -63.0356, 1.27)
	pt3dadd(-26.3848, -116.569, -64.0656, 1.27)
	pt3dadd(-26.3048, -117.999, -64.1156, 1.27)
	pt3dadd(-26.0948, -119.139, -65.1456, 1.27)
	pt3dadd(-25.3348, -119.829, -66.3856, 1.27)
	pt3dadd(-25.6348, -119.699, -66.2256, 1.27)
	pt3dadd(-25.8148, -121.709, -69.8956, 0.64)
	pt3dadd(-25.8148, -121.709, -70.0056, 0.64)
	pt3dadd(-25.1348, -123.409, -72.0556, 0.64)
	pt3dadd(-25.1348, -123.409, -72.8656, 0.64)
	pt3dadd(-25.4848, -124.999, -73.5156, 0.64)
	pt3dadd(-25.4848, -124.999, -74.7556, 0.64)
	pt3dadd(-25.5748, -125.999, -75.4556, 0.64)
	pt3dadd(-25.5748, -125.999, -76.1556, 0.64)
	pt3dadd(-26.3548, -127.749, -76.9156, 0.64)
	pt3dadd(-26.3548, -127.749, -77.1256, 0.64)
	pt3dadd(-27.1348, -129.499, -78.5856, 0.64)
	pt3dadd(-27.1348, -129.499, -78.8056, 0.64)
	pt3dadd(-27.4848, -131.079, -79.1256, 0.64)
	pt3dadd(-27.4848, -131.079, -79.5556, 0.64)
	pt3dadd(-27.4448, -131.799, -82.1556, 0.64)
    }
}

proc shape3d_dend2_2() {
    dend[8] {pt3dclear()
	pt3dadd(-20.6048, 22.7608, -11.5756, 1.27)
	pt3dadd(-22.7948, 25.2308, -11.3056, 1.27)
	pt3dadd(-23.8948, 27.2808, -11.3056, 1.27)
	pt3dadd(-23.8948, 27.2808, -11.3556, 1.27)
	pt3dadd(-24.7448, 29.7008, -11.8456, 1.27)
	pt3dadd(-25.3948, 31.1908, -12.0556, 1.27)
	pt3dadd(-25.6648, 32.4408, -12.2756, 1.27)
	pt3dadd(-25.4748, 33.1308, -12.3256, 1.27)
	pt3dadd(-25.8648, 33.3708, -12.4356, 1.27)
	pt3dadd(-27.0948, 36.0508, -13.7856, 1.27)
	pt3dadd(-28.3248, 37.0908, -13.7856, 1.27)
	pt3dadd(-28.3848, 37.4008, -13.7856, 1.27)
	pt3dadd(-29.2948, 38.5108, -13.7856, 1.27)
	pt3dadd(-30.4448, 39.2408, -14.1156, 1.27)
	pt3dadd(-30.4448, 39.2408, -14.1656, 1.27)
	pt3dadd(-30.5248, 41.1808, -12.8156, 1.27)
	pt3dadd(-31.4948, 42.6008, -12.1156, 1.27)
	pt3dadd(-32.4048, 43.7208, -12.1156, 1.27)
	pt3dadd(-32.7248, 43.6508, -12.1156, 1.27)
	pt3dadd(-33.6248, 44.7608, -11.6256, 1.27)
	pt3dadd(-35.2848, 44.7308, -13.1956, 1.27)
	pt3dadd(-36.8248, 45.7108, -13.5756, 1.27)
	pt3dadd(-37.1448, 45.6408, -13.6256, 1.27)
	pt3dadd(-39.1948, 45.8608, -12.8156, 1.27)
	pt3dadd(-41.1848, 45.7608, -13.0856, 1.27)
	pt3dadd(-42.5348, 47.4308, -11.7356, 1.27)
	pt3dadd(-42.8548, 47.3608, -11.3056, 1.27)
	pt3dadd(-43.0548, 48.3008, -10.8756, 1.27)
	pt3dadd(-43.8948, 49.0908, -9.9556, 1.27)
	pt3dadd(-44.9848, 49.5108, -10.7656, 1.27)
	pt3dadd(-46.2048, 50.5608, -10.6056, 1.27)
	pt3dadd(-46.3348, 51.1808, -10.6056, 1.27)
	pt3dadd(-48.1948, 52.0908, -10.3856, 1.27)
	pt3dadd(-49.8748, 53.6908, -10.1156, 1.27)
	pt3dadd(-49.8748, 53.6908, -10.0056, 1.27)
	pt3dadd(-51.1648, 55.0408, -8.98559, 1.27)
	pt3dadd(-52.7048, 56.0208, -8.5456, 1.27)
	pt3dadd(-54.5048, 56.6208, -7.4156, 1.27)
	pt3dadd(-54.5648, 56.9308, -7.4156, 1.27)
	pt3dadd(-54.6348, 57.2408, -7.4156, 1.27)
	pt3dadd(-54.6348, 57.2408, -7.36559, 1.27)
	pt3dadd(-54.5648, 56.9308, -7.4656, 1.27)
	pt3dadd(-54.1448, 59.6208, -6.3856, 1.27)
	pt3dadd(-55.1748, 61.3608, -4.3356, 1.27)
	pt3dadd(-56.4548, 61.0908, -3.4156, 1.27)
	pt3dadd(-56.4548, 61.0908, -3.3656, 1.27)
	pt3dadd(-57.2948, 61.8908, -3.3156, 1.27)
	pt3dadd(-58.1948, 63.0008, -2.5556, 1.27)
	pt3dadd(-58.1948, 63.0008, -2.4456, 1.27)
	pt3dadd(-59.2348, 64.7308, -1.2556, 1.27)
	pt3dadd(-59.6648, 65.2508, -0.885595, 1.27)
	pt3dadd(-59.2048, 66.8108, -0.825595, 1.27)
	pt3dadd(-58.9948, 68.3108, -0.715595, 1.27)
	pt3dadd(-59.2848, 68.4608, -0.665595, 1.27)
	pt3dadd(-60.5748, 69.5108, -0.615595, 1.27)
	pt3dadd(-60.4248, 69.7908, -0.615595, 1.27)
	pt3dadd(-61.1448, 70.5408, 0.144405, 1.27)
	pt3dadd(-61.1448, 70.5408, 0.254405, 1.27)
	pt3dadd(-63.0348, 70.4608, 0.464405, 1.27)
	pt3dadd(-63.3248, 70.6108, 0.464405, 1.27)
	pt3dadd(-63.7548, 71.2008, 0.464405, 1.27)
	pt3dadd(-64.0148, 72.7808, 1.2744, 1.27)
	pt3dadd(-64.5948, 73.0908, 1.6544, 1.27)
	pt3dadd(-65.8848, 74.1408, 1.8144, 1.27)
	pt3dadd(-67.0248, 75.4708, 1.7144, 1.27)
	pt3dadd(-67.1648, 75.9008, 1.7144, 1.27)
	pt3dadd(-67.8648, 77.3608, 3.4944, 1.27)
	pt3dadd(-69.3148, 78.1308, 4.3044, 1.27)
	pt3dadd(-69.8748, 79.1508, 4.0844, 1.27)
	pt3dadd(-70.7048, 81.7608, 3.5444, 1.27)
	pt3dadd(-71.4148, 83.2108, 3.4944, 1.27)
	pt3dadd(-71.3748, 85.3608, 4.8444, 1.27)
	pt3dadd(-71.3748, 85.3608, 4.9544, 1.27)
	pt3dadd(-72.0948, 86.1008, 6.8944, 1.27)
	pt3dadd(-72.3848, 86.2608, 6.8944, 1.27)
	pt3dadd(-72.7948, 87.5608, 5.8144, 1.27)
	pt3dadd(-72.6348, 88.5608, 7.7044, 1.27)
	pt3dadd(-72.6348, 88.5608, 8.0244, 1.27)
	pt3dadd(-72.4648, 90.2708, 9.75441, 1.27)
	pt3dadd(-72.3148, 90.5508, 9.75441, 1.27)
	pt3dadd(-70.9548, 93.8008, 9.3744, 1.27)
	pt3dadd(-72.5348, 95.0008, 10.4044, 1.27)
	pt3dadd(-72.5348, 95.0008, 10.6244, 1.27)
	pt3dadd(-71.9448, 96.1308, 10.9444, 1.27)
	pt3dadd(-71.9448, 96.1308, 10.9944, 1.27)
	pt3dadd(-70.2048, 95.9308, 12.2444, 1.27)
	pt3dadd(-69.7548, 96.7708, 12.2444, 1.27)
	pt3dadd(-69.8748, 97.9208, 13.8044, 1.27)
	pt3dadd(-69.8748, 97.9208, 14.5644, 1.27)
	pt3dadd(-69.1348, 99.3308, 16.3444, 1.27)
	pt3dadd(-69.1348, 99.3308, 16.6644, 1.27)
	pt3dadd(-69.6948, 100.351, 16.8344, 1.27)
	pt3dadd(-69.6948, 100.351, 16.8844, 1.27)
	pt3dadd(-69.3848, 101.631, 16.9944, 1.27)
	pt3dadd(-70.5048, 104.391, 17.2644, 1.27)
	pt3dadd(-70.2048, 104.951, 17.2644, 1.27)
	pt3dadd(-70.4748, 106.541, 17.3144, 1.27)
	pt3dadd(-70.3248, 106.821, 17.3144, 1.27)
	pt3dadd(-71.3148, 108.431, 17.6444, 1.27)
	pt3dadd(-71.6048, 108.591, 17.6444, 1.27)
	pt3dadd(-72.0148, 109.891, 18.1844, 1.27)
	pt3dadd(-72.4448, 110.481, 19.9644, 1.27)
	pt3dadd(-72.4448, 110.481, 20.6144, 1.27)
	pt3dadd(-72.4348, 111.191, 20.9844, 1.27)
	pt3dadd(-72.4348, 111.191, 21.0444, 1.27)
	pt3dadd(-71.5348, 112.881, 21.7444, 1.27)
	pt3dadd(-72.4048, 113.341, 22.9844, 1.27)
	pt3dadd(-73.5348, 115.391, 23.3644, 1.27)
	pt3dadd(-74.6848, 116.001, 24.9344, 1.27)
	pt3dadd(-75.5548, 116.461, 24.9344, 1.27)
	pt3dadd(-76.3948, 118.351, 25.9544, 1.27)
	pt3dadd(-77.0948, 119.811, 26.2244, 1.27)
	pt3dadd(-77.0648, 121.961, 26.2844, 1.27)
	pt3dadd(-77.4848, 123.261, 27.3644, 1.27)
	pt3dadd(-77.7448, 124.851, 27.3044, 1.27)
	pt3dadd(-78.0248, 125.721, 29.3044, 1.27)
	pt3dadd(-79.6048, 126.921, 29.4144, 1.27)
	pt3dadd(-81.3448, 127.121, 29.7944, 1.27)
	pt3dadd(-81.3448, 127.121, 29.8944, 1.27)
	pt3dadd(-82.2148, 127.581, 30.5444, 1.27)
	pt3dadd(-82.2148, 127.581, 30.6544, 1.27)
	pt3dadd(-82.7848, 127.891, 30.9244, 1.27)
	pt3dadd(-82.9048, 129.761, 33.0844, 1.27)
	pt3dadd(-82.9048, 129.761, 33.1344, 1.27)
	pt3dadd(-83.3448, 129.631, 35.1344, 1.27)
	pt3dadd(-83.3448, 129.631, 35.5144, 1.27)
	pt3dadd(-83.4848, 130.061, 35.5644, 1.27)
	pt3dadd(-83.4848, 130.061, 35.7344, 1.27)
	pt3dadd(-82.6148, 129.601, 37.7244, 1.27)
	pt3dadd(-82.6148, 129.601, 38.0544, 1.27)
	pt3dadd(-82.6148, 129.601, 39.7244, 1.27)
	pt3dadd(-82.6148, 129.601, 40.1544, 1.27)
	pt3dadd(-82.3348, 128.731, 42.1044, 1.27)
	pt3dadd(-81.3248, 128.551, 42.1044, 1.27)
	pt3dadd(-81.0348, 128.401, 43.2344, 1.27)
	pt3dadd(-81.0348, 128.401, 43.2944, 1.27)
	pt3dadd(-80.3048, 128.381, 45.6144, 1.27)
	pt3dadd(-80.3048, 128.381, 45.7744, 1.27)
	pt3dadd(-79.0048, 128.041, 47.6644, 1.27)
	pt3dadd(-79.0048, 128.041, 47.7744, 1.27)
	pt3dadd(-78.4248, 127.741, 48.5844, 1.27)
	pt3dadd(-78.2848, 128.021, 48.6344, 1.27)
	pt3dadd(-78.1348, 128.301, 50.2544, 1.27)
	pt3dadd(-78.1348, 128.301, 50.3144, 1.27)
	pt3dadd(-77.9648, 129.551, 51.3344, 1.27)
	pt3dadd(-77.9948, 130.471, 53.9244, 1.27)
	pt3dadd(-78.6848, 130.691, 55.2744, 1.27)
	pt3dadd(-78.6848, 130.691, 55.8744, 1.27)
	pt3dadd(-78.9348, 131.371, 57.3344, 1.27)
	pt3dadd(-78.9348, 131.371, 57.6044, 1.27)
	pt3dadd(-79.1648, 131.601, 58.1944, 1.27)
	pt3dadd(-79.1648, 131.601, 58.5744, 1.27)
	pt3dadd(-80.0748, 131.601, 59.1644, 1.27)
	pt3dadd(-80.0748, 131.601, 59.2244, 1.27)
	pt3dadd(-80.9748, 131.131, 60.7844, 1.27)
	pt3dadd(-80.9748, 131.131, 61.1644, 1.27)
	pt3dadd(-81.6848, 131.811, 61.4844, 1.27)
	pt3dadd(-82.8148, 131.581, 61.5444, 1.27)
	pt3dadd(-81.9148, 132.041, 62.2944, 1.27)
	pt3dadd(-81.6948, 132.271, 64.0244, 1.27)
	pt3dadd(-82.1648, 132.721, 64.3544, 1.27)
	pt3dadd(-82.2048, 134.091, 65.8044, 1.27)
	pt3dadd(-82.2048, 134.091, 65.8644, 1.27)
	pt3dadd(-82.2148, 134.551, 66.9444, 1.27)
	pt3dadd(-82.2148, 134.551, 66.9944, 1.27)
	pt3dadd(-81.9948, 134.781, 67.8044, 1.27)
	pt3dadd(-81.9948, 134.781, 68.1344, 1.27)
	pt3dadd(-81.3348, 135.471, 68.1844, 1.27)
	pt3dadd(-80.6948, 137.071, 68.6144, 1.27)
	pt3dadd(-80.4748, 137.301, 68.6144, 1.27)
	pt3dadd(-80.7348, 138.431, 69.1044, 1.27)
	pt3dadd(-81.4548, 139.571, 69.8044, 1.27)
	pt3dadd(-81.4848, 140.481, 69.8044, 1.27)
	pt3dadd(-81.0748, 142.311, 70.3444, 1.27)
	pt3dadd(-80.8948, 143.911, 70.3944, 1.27)
	pt3dadd(-81.6048, 144.591, 71.9144, 1.27)
	pt3dadd(-82.3048, 145.271, 72.6144, 1.27)
	pt3dadd(-83.0148, 145.951, 72.6144, 1.27)
	pt3dadd(-83.4948, 146.861, 73.0944, 1.27)
	pt3dadd(-83.5348, 148.231, 73.5844, 1.27)
	pt3dadd(-83.5348, 148.231, 73.6344, 1.27)
	pt3dadd(-85.6248, 149.361, 74.4444, 1.27)
	pt3dadd(-85.6248, 149.361, 74.5044, 1.27)
	pt3dadd(-87.4548, 149.801, 74.8844, 1.27)
	pt3dadd(-87.6948, 150.031, 74.8844, 1.27)
	pt3dadd(-89.5448, 150.931, 76.6644, 1.27)
	pt3dadd(-90.4548, 150.931, 76.6644, 1.27)
	pt3dadd(-90.4948, 152.291, 76.6644, 1.27)
	pt3dadd(-91.2048, 152.971, 78.1744, 1.27)
	pt3dadd(-91.9048, 153.651, 77.9044, 1.27)
	pt3dadd(-91.9248, 154.111, 76.9844, 1.27)
	pt3dadd(-93.3148, 155.021, 76.9344, 1.27)
	pt3dadd(-94.9448, 156.151, 76.9344, 1.27)
	pt3dadd(-94.7648, 157.741, 78.6644, 1.27)
	pt3dadd(-94.3348, 158.661, 78.7144, 1.27)
	pt3dadd(-94.5848, 159.341, 79.9544, 1.27)
	pt3dadd(-94.5848, 159.341, 79.9044, 1.27)
	pt3dadd(-95.5148, 159.791, 80.1744, 1.27)
	pt3dadd(-96.2148, 160.471, 81.3044, 1.27)
	pt3dadd(-96.4548, 160.701, 81.3044, 1.27)
	pt3dadd(-96.4948, 162.071, 82.0644, 1.27)
	pt3dadd(-96.7248, 162.301, 82.0644, 1.27)
	pt3dadd(-97.2348, 164.121, 82.9244, 1.27)
	pt3dadd(-97.0148, 164.351, 82.9844, 1.27)
	pt3dadd(-97.9448, 164.801, 83.5744, 1.27)
	pt3dadd(-97.9648, 165.711, 85.2444, 1.27)
	pt3dadd(-99.8048, 166.161, 86.2244, 1.27)
	pt3dadd(-100.045, 166.381, 86.2244, 1.27)
	pt3dadd(-101.455, 167.741, 86.2244, 1.27)
	pt3dadd(-102.595, 167.971, 85.1944, 1.27)
	pt3dadd(-102.595, 167.971, 84.8144, 1.27)
	pt3dadd(-103.965, 167.961, 84.4344, 1.27)
	pt3dadd(-103.965, 167.961, 83.7944, 1.27)
	pt3dadd(-104.405, 167.501, 82.9844, 1.27)
	pt3dadd(-104.405, 167.501, 82.8144, 1.27)
    }
}

proc shape3d_dend2_3() {
    dend[9] {pt3dclear()
	pt3dadd(-20.6048, 22.7608, -11.5756, 1.59)
	pt3dadd(-22.9148, 24.2308, -11.9556, 1.59)
	pt3dadd(-22.9148, 24.2308, -12.1656, 1.59)
	pt3dadd(-24.7148, 24.8208, -13.6756, 1.59)
	pt3dadd(-24.7148, 24.8208, -13.9456, 1.59)
	pt3dadd(-25.4348, 26.6208, -15.3556, 1.59)
	pt3dadd(-25.8848, 27.1808, -16.1656, 1.59)
	pt3dadd(-26.7848, 28.2908, -16.3756, 1.59)
	pt3dadd(-27.9448, 29.0208, -17.2456, 1.59)
	pt3dadd(-28.5948, 30.5108, -18.9156, 1.59)
    }
}

proc shape3d_dend1_2() {
    dend[10] {pt3dclear()
	pt3dadd(13.7, 15.62, -0.43, 1.59)
	pt3dadd(13.69, 17.25, -0.43, 1.59)
	pt3dadd(15.15, 18.21, -1.51, 1.59)
	pt3dadd(16.69, 18.86, -2.16, 1.59)
	pt3dadd(18.08, 20.14, -2.81, 1.59)
	pt3dadd(19.67, 22.1, -2.81, 1.59)
	pt3dadd(21.07, 23.38, -4.05, 1.59)
	pt3dadd(21.07, 23.38, -4.1, 1.59)
	pt3dadd(23.68, 25.24, -5.08, 1.59)
	pt3dadd(23.29, 25.48, -5.08, 1.59)
	pt3dadd(24.69, 26.75, -5.56, 1.59)
	pt3dadd(26.47, 27.79, -6.37, 1.59)
	pt3dadd(28.06, 29.75, -5.99, 1.59)
	pt3dadd(28.62, 31.83, -7.29, 1.59)
	pt3dadd(28.62, 31.83, -7.34, 1.59)
	pt3dadd(29.06, 32.9, -7.72, 1.59)
	pt3dadd(29.06, 32.9, -7.67, 1.59)
	pt3dadd(29.18, 33.9, -7.67, 1.59)
	pt3dadd(29.94, 35.04, -7.61, 1.59)
	pt3dadd(31.72, 36.07, -7.34, 1.59)
	pt3dadd(31.72, 36.07, -7.51, 1.59)
	pt3dadd(32.55, 36.9, -10.58, 1.59)
	pt3dadd(33.11, 38.97, -12.1, 1.59)
	pt3dadd(33.11, 38.97, -12.15, 1.59)
	pt3dadd(32.91, 39.91, -12.58, 1.59)
	pt3dadd(31.75, 40.64, -12.91, 1.59)
	pt3dadd(32.83, 41.85, -14.8, 1.59)
	pt3dadd(33.08, 42.22, -14.85, 1.59)
	pt3dadd(32.76, 42.16, -14.85, 1.59)
	pt3dadd(33.2, 43.23, -16.52, 1.59)
	pt3dadd(33.46, 43.61, -18.2, 1.59)
	pt3dadd(33.46, 43.61, -18.31, 1.59)
	pt3dadd(34.99, 44.26, -24.03, 0.96)
	pt3dadd(34.99, 44.26, -24.14, 0.96)
	pt3dadd(36.84, 44.98, -25.49, 0.96)
	pt3dadd(36.77, 45.29, -25.76, 0.96)
	pt3dadd(37.66, 45.81, -26.03, 0.96)
	pt3dadd(37.66, 45.81, -26.68, 0.96)
	pt3dadd(39.26, 46.14, -28.13, 0.96)
	pt3dadd(39.26, 46.14, -28.19, 0.96)
	pt3dadd(40.28, 45.96, -28.19, 3.19)
	pt3dadd(40.85, 45.64, -28.19, 3.19)
	pt3dadd(42.01, 45.71, -28.19, 3.19)
	pt3dadd(43.91, 45.73, -28.94, 2.87)
	pt3dadd(45.32, 44.92, -28.89, 2.87)
	pt3dadd(47.37, 45.22, -28.24, 2.87)
	pt3dadd(49.52, 44.36, -28.94, 2.87)
	pt3dadd(49.52, 44.36, -29.11, 2.87)
	pt3dadd(52.35, 42.74, -29, 2.87)
	pt3dadd(54.53, 42.6, -28.89, 2.87)
    }
}

proc shape3d_dend1_3() {
    dend[11] {pt3dclear()
	pt3dadd(13.4452, 15.3208, -0.555595, 2.23)
	pt3dadd(15.6852, 15.8008, -0.555595, 2.23)
	pt3dadd(16.6452, 16.0008, -0.555595, 2.23)
    }
}

proc shape3d_dend4_4() {
    dend[12] {pt3dclear()
	pt3dadd(0.695221, 9.76077, 23.6844, 1.59)
	pt3dadd(1.73522, 11.7108, 24.8244, 1.59)
	pt3dadd(2.63522, 14.1108, 25.7444, 1.59)
	pt3dadd(2.63522, 14.1108, 25.7944, 1.59)
	pt3dadd(3.81522, 14.9308, 28.3844, 1.59)
	pt3dadd(3.81522, 14.9308, 28.4944, 1.59)
	pt3dadd(5.71522, 15.7208, 30.8144, 1.59)
	pt3dadd(5.71522, 15.7208, 31.1444, 1.59)
	pt3dadd(8.17522, 14.7808, 32.6544, 1.59)
	pt3dadd(8.32522, 15.0608, 32.6544, 1.59)
	pt3dadd(9.64522, 16.1608, 33.9444, 1.59)
	pt3dadd(9.64522, 16.1608, 34.0044, 1.59)
	pt3dadd(10.6752, 16.7008, 34.5444, 1.59)
	pt3dadd(12.4152, 16.5008, 36.4844, 1.59)
	pt3dadd(12.4152, 16.5008, 36.6444, 1.59)
	pt3dadd(13.4652, 18.4708, 39.9944, 1.59)
	pt3dadd(15.0852, 20.1308, 41.5644, 1.59)
	pt3dadd(17.2752, 20.7708, 42.7544, 1.59)
	pt3dadd(17.2752, 20.7708, 42.8544, 1.59)
	pt3dadd(20.7652, 21.0808, 44.2044, 1.59)
	pt3dadd(23.8452, 22.6908, 44.9644, 1.59)
	pt3dadd(23.8452, 22.6908, 45.0144, 1.59)
	pt3dadd(24.4152, 22.3908, 47.0144, 1.59)
	pt3dadd(24.9952, 22.0808, 48.7944, 1.59)
	pt3dadd(25.8752, 22.3308, 49.8244, 1.59)
	pt3dadd(25.8752, 22.3308, 49.9344, 1.59)
	pt3dadd(26.5452, 22.9908, 50.4744, 1.59)
	pt3dadd(26.3052, 23.2108, 50.4744, 1.59)
	pt3dadd(27.8852, 23.9108, 50.7444, 1.59)
	pt3dadd(29.2152, 25.2808, 52.9044, 1.59)
	pt3dadd(29.2152, 25.2808, 53.0644, 1.59)
	pt3dadd(29.4352, 25.5108, 54.7944, 1.59)
	pt3dadd(29.6552, 25.7408, 55.2744, 1.59)
	pt3dadd(30.7752, 26.4308, 56.5744, 1.59)
	pt3dadd(32.3552, 27.1208, 57.2744, 1.59)
	pt3dadd(33.4852, 27.3608, 58.9544, 1.59)
	pt3dadd(33.4752, 27.8108, 59.9244, 1.59)
	pt3dadd(32.7552, 28.9508, 62.3544, 1.59)
	pt3dadd(32.7552, 28.9508, 62.7844, 1.59)
	pt3dadd(33.9052, 28.7308, 62.8344, 1.59)
	pt3dadd(33.9052, 28.7308, 63.3244, 1.59)
	pt3dadd(36.3952, 29.4308, 64.8944, 1.59)
	pt3dadd(36.3952, 29.4308, 64.9944, 1.59)
	pt3dadd(38.1652, 31.2608, 66.9444, 1.59)
	pt3dadd(39.2952, 31.4908, 66.9444, 1.59)
	pt3dadd(40.8852, 31.7308, 68.2944, 1.59)
	pt3dadd(40.8852, 31.7308, 68.6744, 1.59)
	pt3dadd(41.5552, 32.4208, 69.8544, 1.59)
	pt3dadd(41.5552, 32.4208, 69.9144, 1.59)
	pt3dadd(44.0652, 32.2108, 69.4244, 1.59)
	pt3dadd(44.5152, 32.6608, 72.0744, 1.59)
	pt3dadd(44.5152, 32.6608, 72.7244, 1.59)
	pt3dadd(45.8652, 33.1308, 74.8244, 1.59)
	pt3dadd(45.8652, 33.1308, 75.5244, 1.59)
	pt3dadd(46.7652, 33.5908, 75.8544, 1.59)
	pt3dadd(46.7652, 33.5908, 75.9044, 1.59)
	pt3dadd(48.0852, 35.4208, 76.8244, 1.59)
	pt3dadd(49.8952, 35.8908, 76.8244, 1.59)
	pt3dadd(51.7152, 35.9008, 76.8744, 1.59)
	pt3dadd(52.6052, 36.8108, 77.5244, 1.59)
	pt3dadd(56.2252, 37.7508, 78.3944, 1.59)
	pt3dadd(56.2252, 37.7508, 78.4444, 1.59)
	pt3dadd(56.9052, 37.9808, 81.3044, 1.59)
	pt3dadd(56.9052, 37.9808, 81.3644, 1.59)
	pt3dadd(57.5552, 39.1208, 82.9844, 1.59)
	pt3dadd(58.6452, 40.7208, 82.9844, 1.59)
	pt3dadd(59.3152, 41.4108, 83.0844, 1.59)
	pt3dadd(61.5852, 41.8808, 82.6044, 1.59)
	pt3dadd(61.5852, 41.8808, 82.2744, 1.59)
	pt3dadd(64.7252, 43.7208, 81.8444, 1.59)
	pt3dadd(67.0052, 43.7308, 82.0644, 1.59)
	pt3dadd(68.8052, 44.6608, 82.0644, 1.59)
	pt3dadd(69.4652, 45.3408, 82.1144, 1.59)
	pt3dadd(69.4752, 44.8908, 82.1144, 1.59)
	pt3dadd(71.2552, 46.7208, 84.6544, 1.59)
	pt3dadd(71.4752, 46.9508, 84.6544, 1.59)
	pt3dadd(73.4652, 49.0108, 84.7644, 1.59)
	pt3dadd(74.5852, 49.7108, 86.3244, 1.59)
	pt3dadd(75.6952, 50.8508, 86.5944, 1.59)
	pt3dadd(77.4952, 51.7708, 86.0544, 1.59)
	pt3dadd(77.2552, 52.0008, 86.2744, 1.59)
	pt3dadd(77.6452, 54.2808, 88.1144, 1.59)
	pt3dadd(77.6452, 54.2808, 88.1644, 1.59)
	pt3dadd(77.3652, 55.8808, 89.5644, 1.59)
	pt3dadd(77.7752, 57.7108, 90.2744, 1.59)
	pt3dadd(78.3952, 59.7608, 91.6744, 1.59)
	pt3dadd(79.2452, 62.0508, 93.2444, 1.59)
	pt3dadd(81.0252, 63.4208, 93.2444, 1.59)
	pt3dadd(82.6052, 64.1208, 93.4544, 1.59)
	pt3dadd(84.4052, 65.0408, 93.5144, 1.59)
	pt3dadd(85.0552, 66.1808, 93.5144, 1.59)
	pt3dadd(84.8152, 66.4108, 93.5144, 1.59)
	pt3dadd(85.6852, 67.7808, 93.4544, 1.59)
	pt3dadd(85.6352, 69.6108, 94.0544, 1.59)
	pt3dadd(85.8252, 70.7508, 94.1044, 1.59)
	pt3dadd(87.1552, 72.1308, 94.1044, 1.59)
	pt3dadd(86.9252, 72.3508, 94.1044, 1.59)
	pt3dadd(88.0352, 73.5008, 94.1044, 1.59)
	pt3dadd(88.4552, 74.4108, 94.1544, 1.59)
	pt3dadd(89.7852, 75.7908, 94.8044, 1.59)
	pt3dadd(92.0552, 76.2608, 95.0244, 1.59)
	pt3dadd(92.0552, 76.2608, 95.0744, 1.59)
	pt3dadd(92.4952, 76.7208, 94.4844, 1.59)
	pt3dadd(93.1652, 77.4008, 96.2644, 1.59)
	pt3dadd(94.6752, 80.3808, 97.3944, 1.59)
	pt3dadd(94.4352, 80.6008, 97.4544, 1.59)
	pt3dadd(94.8552, 81.9708, 98.1544, 1.59)
	pt3dadd(94.8452, 82.4308, 98.6444, 1.59)
	pt3dadd(95.9652, 83.1208, 98.8544, 1.59)
    }
}

proc shape3d_dend4_5() {
    dend[13] {pt3dclear()
	pt3dadd(0.695221, 9.76077, 23.6844, 1.27)
	pt3dadd(-1.44478, 11.9908, 23.7444, 1.27)
	pt3dadd(-1.44478, 11.9908, 23.8544, 1.27)
	pt3dadd(-3.17478, 12.9108, 24.4944, 1.27)
	pt3dadd(-3.17478, 12.9108, 24.6644, 1.27)
	pt3dadd(-4.91478, 13.1108, 24.7144, 1.27)
	pt3dadd(-5.35478, 12.9808, 24.7644, 1.27)
	pt3dadd(-7.38478, 13.3408, 24.9344, 1.27)
	pt3dadd(-8.68478, 13.6708, 24.9344, 1.27)
	pt3dadd(-10.8848, 12.3108, 26.4944, 1.27)
	pt3dadd(-12.5048, 11.3708, 26.9244, 1.27)
	pt3dadd(-12.7848, 11.5208, 26.9244, 1.27)
	pt3dadd(-14.5148, 12.4408, 28.0044, 1.27)
	pt3dadd(-16.3948, 13.0808, 28.0044, 1.27)
	pt3dadd(-17.9848, 13.5608, 28.0644, 1.27)
	pt3dadd(-20.1648, 13.6408, 29.5244, 1.27)
	pt3dadd(-21.6248, 13.6908, 30.1144, 1.27)
	pt3dadd(-22.6048, 16.0108, 30.1644, 1.27)
	pt3dadd(-24.4948, 15.9408, 31.7344, 1.27)
	pt3dadd(-24.7848, 16.0908, 31.7344, 1.27)
	pt3dadd(-25.3448, 17.1108, 33.1344, 1.27)
	pt3dadd(-25.3448, 17.1108, 33.1944, 1.27)
	pt3dadd(-26.7848, 17.8808, 34.9244, 1.27)
	pt3dadd(-26.7848, 17.8808, 34.9744, 1.27)
	pt3dadd(-28.3848, 17.6508, 35.6244, 1.27)
	pt3dadd(-28.3848, 17.6508, 36.0044, 1.27)
	pt3dadd(-30.1148, 18.5708, 36.0544, 1.27)
	pt3dadd(-32.5848, 18.8008, 36.1044, 1.27)
	pt3dadd(-34.0248, 19.5608, 36.2144, 1.27)
	pt3dadd(-35.3248, 19.8908, 36.7044, 1.27)
	pt3dadd(-35.4748, 19.6108, 36.7044, 1.27)
	pt3dadd(-36.2048, 19.6408, 36.7044, 1.27)
	pt3dadd(-37.2148, 19.8208, 36.7544, 1.27)
	pt3dadd(-37.5048, 19.9708, 36.7544, 1.27)
	pt3dadd(-38.8148, 21.0108, 37.3544, 1.27)
	pt3dadd(-40.3948, 22.2108, 38.4344, 1.27)
	pt3dadd(-43.1448, 23.3108, 38.4344, 0.96)
	pt3dadd(-46.9148, 23.8708, 38.5944, 0.96)
	pt3dadd(-48.2348, 22.7708, 39.1344, 1.27)
	pt3dadd(-48.2348, 22.7708, 40.4244, 1.27)
	pt3dadd(-49.2648, 22.2308, 41.4044, 1.27)
	pt3dadd(-49.2648, 22.2308, 41.7244, 1.27)
	pt3dadd(-50.5748, 21.8508, 42.9144, 1.27)
	pt3dadd(-50.5748, 21.8508, 42.9644, 1.27)
	pt3dadd(-51.8848, 21.4708, 43.7244, 1.27)
	pt3dadd(-51.8848, 21.4708, 44.1044, 1.27)
	pt3dadd(-52.7548, 21.9308, 44.7444, 1.27)
	pt3dadd(-52.7548, 21.9308, 44.8044, 1.27)
	pt3dadd(-54.4948, 22.1308, 46.3644, 1.27)
	pt3dadd(-54.4948, 22.1308, 46.6944, 1.27)
	pt3dadd(-55.0848, 21.7208, 47.6144, 1.27)
	pt3dadd(-55.6748, 21.3108, 48.4244, 1.27)
	pt3dadd(-55.6748, 21.3108, 48.5244, 1.27)
	pt3dadd(-57.2748, 21.0808, 48.9044, 1.27)
	pt3dadd(-57.9948, 21.1008, 49.6044, 1.27)
	pt3dadd(-57.9948, 21.1008, 49.8744, 1.27)
	pt3dadd(-58.9248, 20.9608, 49.9844, 1.27)
	pt3dadd(-58.9448, 21.4108, 51.8744, 1.27)
	pt3dadd(-58.9448, 21.4108, 52.2044, 1.27)
	pt3dadd(-58.9148, 20.5008, 54.0344, 1.27)
	pt3dadd(-58.9148, 20.5008, 54.7944, 1.27)
	pt3dadd(-59.1448, 20.7308, 55.5444, 1.27)
	pt3dadd(-59.1448, 20.7308, 55.7644, 1.27)
	pt3dadd(-60.2848, 20.4908, 55.9844, 1.27)
	pt3dadd(-60.2848, 20.4908, 56.0344, 1.27)
	pt3dadd(-60.9448, 19.8108, 56.0344, 1.27)
	pt3dadd(-60.0348, 19.8108, 57.0044, 1.27)
	pt3dadd(-60.0348, 19.8108, 57.0644, 1.27)
	pt3dadd(-59.8148, 20.0408, 57.8744, 1.27)
	pt3dadd(-59.8148, 20.0408, 58.0344, 1.27)
	pt3dadd(-58.9248, 20.9608, 59.4344, 1.27)
	pt3dadd(-58.7348, 22.1008, 61.1144, 1.27)
	pt3dadd(-58.7348, 22.1008, 61.4344, 1.27)
	pt3dadd(-59.8848, 22.3208, 62.4044, 1.27)
	pt3dadd(-59.8848, 22.3208, 62.5644, 1.27)
	pt3dadd(-60.3248, 21.8608, 65.8044, 1.27)
	pt3dadd(-60.3248, 21.8608, 66.2444, 1.27)
	pt3dadd(-61.4748, 22.0808, 66.5144, 1.27)
	pt3dadd(-61.4748, 22.0808, 67.0544, 1.27)
	pt3dadd(-61.7048, 22.3108, 68.1844, 1.27)
	pt3dadd(-61.7048, 22.3108, 68.4544, 1.27)
	pt3dadd(-61.7348, 23.2208, 69.7544, 1.27)
	pt3dadd(-61.7748, 24.5908, 71.2644, 1.27)
	pt3dadd(-60.9048, 25.9708, 72.1244, 1.27)
	pt3dadd(-60.9048, 25.9708, 72.6144, 1.27)
	pt3dadd(-62.0748, 27.1008, 72.7744, 1.27)
	pt3dadd(-62.0748, 27.1008, 73.1544, 1.27)
	pt3dadd(-61.8548, 27.3308, 75.0944, 1.27)
	pt3dadd(-61.2148, 28.9308, 75.3144, 1.27)
	pt3dadd(-61.2148, 28.9308, 77.4744, 1.27)
	pt3dadd(-62.8248, 29.1508, 77.8544, 1.27)
	pt3dadd(-63.5148, 29.3708, 79.0944, 1.27)
	pt3dadd(-63.7748, 30.5108, 79.6344, 1.27)
	pt3dadd(-64.2448, 30.9608, 80.7644, 1.27)
	pt3dadd(-64.2448, 30.9608, 80.8244, 1.27)
	pt3dadd(-64.4748, 31.1908, 82.8144, 1.27)
	pt3dadd(-64.4748, 31.1908, 83.1444, 1.27)
	pt3dadd(-64.7148, 31.4208, 84.0044, 1.27)
	pt3dadd(-64.7148, 31.4208, 84.0644, 1.27)
	pt3dadd(-65.3948, 31.1908, 85.0344, 1.27)
	pt3dadd(-65.3948, 31.1908, 85.0844, 1.27)
	pt3dadd(-66.5248, 30.9508, 86.2744, 1.27)
	pt3dadd(-67.4548, 31.4008, 86.3244, 1.27)
	pt3dadd(-67.6848, 31.6308, 86.3844, 1.27)
	pt3dadd(-67.6748, 31.1708, 88.5444, 1.27)
	pt3dadd(-67.6748, 31.1708, 88.5944, 1.27)
	pt3dadd(-68.1948, 33.4508, 89.2944, 1.27)
	pt3dadd(-68.8948, 34.1308, 90.5444, 1.27)
	pt3dadd(-69.8348, 35.0408, 91.0844, 1.27)
	pt3dadd(-70.0748, 35.2708, 91.2944, 1.27)
	pt3dadd(-70.7948, 36.4008, 92.2644, 1.27)
	pt3dadd(-72.3848, 36.1708, 92.3244, 1.27)
	pt3dadd(-74.4548, 36.8408, 92.6444, 1.27)
	pt3dadd(-73.7948, 37.5308, 92.4844, 1.27)
	pt3dadd(-75.8648, 38.2008, 92.5344, 1.27)
	pt3dadd(-76.9948, 37.9708, 92.5344, 1.27)
	pt3dadd(-78.3648, 37.9608, 92.4844, 1.27)
	pt3dadd(-79.2848, 37.9508, 92.4844, 1.27)
	pt3dadd(-81.3448, 38.1708, 92.5344, 1.27)
	pt3dadd(-83.8548, 38.3808, 92.4844, 1.27)
	pt3dadd(-85.0448, 39.9708, 93.5144, 1.27)
	pt3dadd(-85.7648, 41.1108, 94.6444, 1.27)
	pt3dadd(-85.7648, 41.1108, 94.4844, 1.27)
	pt3dadd(-86.7048, 42.0208, 94.1044, 1.27)
	pt3dadd(-88.7348, 41.3208, 94.4844, 0.96)
	pt3dadd(-88.7348, 41.3208, 94.8044, 0.96)
	pt3dadd(-89.8548, 40.6308, 95.7744, 0.96)
	pt3dadd(-89.8548, 40.6308, 96.3744, 0.96)
	pt3dadd(-90.0448, 39.4908, 97.2944, 0.96)
	pt3dadd(-90.0448, 39.4908, 98.0444, 0.96)
	pt3dadd(-90.2448, 38.3508, 98.8044, 0.96)
	pt3dadd(-90.2448, 38.3508, 99.1844, 0.96)
	pt3dadd(-89.5348, 37.6708, 100.364, 0.96)
	pt3dadd(-88.8448, 37.4508, 101.444, 0.96)
	pt3dadd(-88.8448, 37.4508, 101.614, 0.96)
	pt3dadd(-88.8448, 37.4508, 101.824, 0.96)
	pt3dadd(-88.8448, 37.4508, 102.364, 0.96)
    }
}

proc shape3d_dend4_6() {
    dend[14] {pt3dclear()
	pt3dadd(-50.4148, 121.321, 98.5844, 1.27)
	pt3dadd(-50.6948, 122.921, 99.0144, 1.27)
	pt3dadd(-51.2048, 124.741, 99.0744, 1.27)
	pt3dadd(-51.2448, 126.111, 99.9944, 1.27)
	pt3dadd(-51.2448, 126.111, 100.044, 1.27)
	pt3dadd(-51.2348, 125.651, 101.074, 1.27)
	pt3dadd(-51.2348, 125.651, 101.124, 1.27)
	pt3dadd(-51.0048, 125.881, 101.774, 1.27)
	pt3dadd(-51.0548, 124.661, 102.584, 1.59)
	pt3dadd(-50.3348, 124.771, 103.284, 1.59)
	pt3dadd(-50.2448, 125.081, 103.284, 1.59)
	pt3dadd(-51.4948, 125.461, 104.794, 1.59)
	pt3dadd(-51.4948, 125.461, 105.124, 1.59)
	pt3dadd(-51.6448, 127.171, 106.364, 1.59)
	pt3dadd(-51.5548, 127.481, 106.364, 1.59)
	pt3dadd(-51.4648, 127.781, 106.524, 1.59)
	pt3dadd(-51.4648, 127.781, 106.684, 1.59)
	pt3dadd(-49.9648, 129.331, 107.554, 1.59)
	pt3dadd(-49.3148, 131.461, 107.604, 1.27)
	pt3dadd(-49.3448, 132.471, 107.984, 1.27)
	pt3dadd(-49.1648, 133.081, 107.984, 1.27)
	pt3dadd(-47.9748, 134.721, 107.984, 1.27)
	pt3dadd(-46.9148, 137.061, 108.094, 1.27)
	pt3dadd(-47.3948, 138.871, 109.924, 1.27)
	pt3dadd(-47.5148, 139.581, 110.464, 1.27)
	pt3dadd(-48.8648, 142.991, 110.794, 1.27)
	pt3dadd(-48.8648, 142.991, 110.574, 1.27)
	pt3dadd(-49.2448, 145.101, 109.924, 1.27)
	pt3dadd(-50.2048, 146.401, 109.924, 1.27)
	pt3dadd(-50.1148, 146.701, 109.924, 1.27)
	pt3dadd(-50.4948, 148.821, 109.494, 1.27)
	pt3dadd(-51.0548, 150.331, 109.494, 1.27)
	pt3dadd(-51.6848, 150.521, 110.144, 1.27)
	pt3dadd(-51.9948, 150.611, 110.144, 1.27)
	pt3dadd(-52.5548, 152.121, 110.144, 1.27)
	pt3dadd(-53.2448, 154.331, 111.434, 1.27)
	pt3dadd(-53.1848, 155.641, 111.924, 1.27)
	pt3dadd(-53.9348, 156.541, 111.924, 1.27)
	pt3dadd(-54.6848, 157.431, 111.974, 1.27)
	pt3dadd(-55.7548, 158.431, 112.514, 1.27)
	pt3dadd(-55.7548, 158.431, 112.844, 1.27)
	pt3dadd(-56.2548, 161.251, 113.434, 0.64)
	pt3dadd(-56.1648, 161.551, 113.434, 0.64)
	pt3dadd(-56.1948, 162.561, 113.434, 0.64)
    }
}

proc shape3d_dend4_7() {
    dend[15] {pt3dclear()
	pt3dadd(-50.4148, 121.321, 98.5844, 1.27)
	pt3dadd(-51.5648, 121.541, 99.0744, 1.27)
	pt3dadd(-52.2748, 122.221, 99.0744, 1.27)
	pt3dadd(-53.9048, 123.351, 98.5844, 1.27)
	pt3dadd(-53.9048, 123.351, 98.7444, 1.27)
	pt3dadd(-55.0848, 124.941, 99.8244, 1.27)
	pt3dadd(-55.0848, 124.941, 100.094, 1.27)
	pt3dadd(-56.0248, 125.851, 101.074, 1.27)
	pt3dadd(-56.2348, 125.581, 101.124, 1.27)
	pt3dadd(-57.1748, 125.861, 101.554, 1.27)
	pt3dadd(-58.5448, 126.951, 101.774, 1.27)
	pt3dadd(-58.5448, 126.951, 102.314, 1.27)
	pt3dadd(-59.7948, 127.331, 103.014, 1.27)
	pt3dadd(-60.4548, 128.531, 103.284, 1.27)
	pt3dadd(-60.4548, 128.531, 103.334, 1.27)
	pt3dadd(-62.3248, 129.111, 102.904, 1.27)
	pt3dadd(-63.7948, 129.891, 102.694, 1.27)
	pt3dadd(-64.1048, 129.981, 102.744, 1.27)
	pt3dadd(-66.1048, 131.261, 102.744, 1.27)
	pt3dadd(-68.3248, 132.941, 102.044, 1.27)
	pt3dadd(-68.3248, 132.941, 102.254, 1.27)
	pt3dadd(-68.4448, 133.641, 102.314, 1.27)
	pt3dadd(-69.7648, 136.051, 103.604, 1.27)
	pt3dadd(-70.1048, 137.151, 103.604, 1.27)
	pt3dadd(-70.6348, 137.651, 103.874, 1.27)
	pt3dadd(-71.3248, 136.521, 105.284, 1.27)
	pt3dadd(-73.3848, 136.491, 106.034, 1.27)
	pt3dadd(-73.3848, 136.491, 106.414, 1.27)
	pt3dadd(-73.7648, 138.601, 106.474, 1.27)
	pt3dadd(-73.7648, 138.601, 106.904, 1.27)
	pt3dadd(-74.9848, 141.311, 107.874, 1.27)
	pt3dadd(-74.9848, 141.311, 107.984, 1.27)
	pt3dadd(-76.1348, 141.991, 108.464, 1.27)
	pt3dadd(-75.2948, 144.741, 108.254, 1.27)
	pt3dadd(-75.8648, 146.241, 110.144, 1.27)
	pt3dadd(-76.1748, 146.341, 110.144, 1.27)
	pt3dadd(-75.9648, 149.271, 110.684, 1.27)
	pt3dadd(-75.9648, 149.271, 110.844, 1.27)
	pt3dadd(-76.8048, 149.861, 111.064, 1.27)
	pt3dadd(-77.2448, 150.661, 111.814, 1.27)
	pt3dadd(-79.3348, 151.641, 112.244, 1.27)
	pt3dadd(-80.6148, 153.031, 112.954, 1.27)
	pt3dadd(-81.6548, 156.351, 113.704, 1.27)
	pt3dadd(-83.3348, 157.531, 113.704, 1.27)
	pt3dadd(-84.3048, 158.821, 114.894, 1.27)
	pt3dadd(-85.6848, 159.911, 117.054, 1.27)
    }
}

proc shape3d_dend3_4() {
    dend[16] {pt3dclear()
	pt3dadd(-27.1448, -326.929, 11.5944, 1.27)
	pt3dadd(-26.8648, -327.799, 10.1344, 1.27)
	pt3dadd(-26.6148, -330.099, 10.8344, 1.27)
	pt3dadd(-26.6148, -330.099, 10.7844, 1.27)
	pt3dadd(-27.0548, -330.229, 10.7844, 1.27)
	pt3dadd(-27.6448, -331.359, 10.7844, 1.27)
	pt3dadd(-28.3748, -331.329, 10.7844, 1.27)
	pt3dadd(-28.5248, -331.619, 10.5144, 1.27)
	pt3dadd(-28.5448, -333.049, 10.4544, 1.27)
	pt3dadd(-28.4048, -333.479, 9.8144, 1.27)
	pt3dadd(-28.4048, -333.479, 9.2744, 1.27)
	pt3dadd(-28.2848, -334.629, 8.3544, 1.27)
	pt3dadd(-28.2848, -334.629, 8.0844, 1.27)
	pt3dadd(-28.8948, -336.469, 7.38441, 1.27)
	pt3dadd(-29.5148, -339.029, 5.7644, 1.27)
	pt3dadd(-29.9548, -339.879, 5.7644, 1.27)
	pt3dadd(-30.8448, -340.849, 5.4944, 1.27)
	pt3dadd(-30.8448, -340.849, 5.8144, 1.27)
	pt3dadd(-31.4448, -341.979, 5.8644, 1.27)
	pt3dadd(-32.1848, -342.669, 6.67441, 1.27)
	pt3dadd(-32.1848, -342.669, 6.73441, 1.27)
	pt3dadd(-33.2148, -343.919, 6.13441, 1.27)
	pt3dadd(-34.5448, -345.019, 7.0544, 1.27)
	pt3dadd(-33.8348, -346.479, 6.0344, 1.27)
	pt3dadd(-33.9848, -346.759, 6.0344, 1.27)
	pt3dadd(-34.4348, -347.599, 6.0344, 1.27)
	pt3dadd(-34.4348, -347.599, 5.9744, 1.27)
	pt3dadd(-34.4748, -349.749, 5.7044, 1.27)
	pt3dadd(-35.9448, -351.129, 5.7044, 1.27)
	pt3dadd(-36.1048, -352.129, 5.65441, 1.27)
	pt3dadd(-37.2948, -353.669, 4.73441, 1.27)
	pt3dadd(-37.2948, -353.669, 4.6844, 1.27)
	pt3dadd(-38.9048, -354.609, 4.5744, 1.27)
	pt3dadd(-39.5048, -355.739, 4.5744, 1.27)
	pt3dadd(-40.1148, -357.579, 4.6244, 1.27)
	pt3dadd(-40.1148, -357.579, 4.6844, 1.27)
	pt3dadd(-42.4448, -357.789, 3.76441, 1.27)
	pt3dadd(-43.6148, -358.609, 3.76441, 1.27)
	pt3dadd(-44.9548, -360.419, 3.92441, 1.27)
	pt3dadd(-45.6848, -361.119, 3.00441, 1.27)
	pt3dadd(-47.4548, -362.339, 2.0344, 1.27)
	pt3dadd(-47.4548, -362.339, 1.9844, 1.27)
	pt3dadd(-47.9048, -363.189, 1.7644, 1.27)
	pt3dadd(-48.0448, -364.909, 2.52441, 1.27)
	pt3dadd(-48.0448, -364.909, 2.0844, 1.27)
	pt3dadd(-48.6348, -365.319, 1.4444, 1.27)
	pt3dadd(-49.3748, -366.009, 0.254405, 1.27)
	pt3dadd(-49.2248, -365.729, 0.254405, 1.27)
	pt3dadd(-49.3948, -367.439, -0.0155951, 1.27)
	pt3dadd(-49.5848, -370.589, -0.175595, 0.96)
	pt3dadd(-49.3148, -371.459, -0.175595, 0.96)
	pt3dadd(-48.1748, -373.509, -0.175595, 0.96)
	pt3dadd(-46.6248, -376.139, -0.175595, 0.96)
	pt3dadd(-46.7748, -376.419, -0.175595, 0.96)
	pt3dadd(-45.2048, -378.339, -0.175595, 0.96)
	pt3dadd(-44.6348, -379.359, -0.175595, 0.96)
	pt3dadd(-43.9348, -380.819, 0.524405, 0.96)
	pt3dadd(-43.9348, -380.819, 0.464405, 0.96)
    }
}

proc shape3d_dend3_5() {
    dend[17] {pt3dclear()
	pt3dadd(-27.1448, -326.929, 11.5944, 0.96)
	pt3dadd(-29.6148, -326.709, 12.0244, 0.96)
	pt3dadd(-32.1948, -324.609, 13.8044, 0.96)
	pt3dadd(-33.6348, -323.839, 13.8044, 0.96)
	pt3dadd(-36.2448, -323.179, 11.8644, 0.96)
	pt3dadd(-36.2448, -323.179, 11.2644, 0.96)
	pt3dadd(-37.9848, -322.979, 11.2644, 0.96)
	pt3dadd(-38.1348, -323.259, 11.2644, 0.96)
	pt3dadd(-40.9048, -324.309, 11.3244, 0.96)
	pt3dadd(-40.9048, -324.309, 11.4344, 0.96)
	pt3dadd(-42.6348, -323.389, 12.1344, 0.96)
	pt3dadd(-44.6648, -323.029, 12.5644, 0.96)
	pt3dadd(-44.8148, -323.309, 12.5644, 0.96)
	pt3dadd(-46.2748, -323.259, 12.9444, 0.96)
	pt3dadd(-46.2748, -323.259, 12.9944, 0.96)
	pt3dadd(-47.8648, -322.779, 13.6944, 0.96)
	pt3dadd(-47.8648, -322.779, 14.0244, 0.96)
    }
}

proc shape3d_dend2_4() {
    dend[18] {pt3dclear()
	pt3dadd(-28.5948, 30.5108, -18.9156, 1.27)
	pt3dadd(-29.9648, 30.8708, -19.5156, 1.27)
	pt3dadd(-31.4348, 31.5408, -21.0256, 1.27)
	pt3dadd(-31.4348, 31.5408, -21.4056, 1.27)
	pt3dadd(-31.7648, 33.1008, -25.9356, 1.27)
	pt3dadd(-31.7648, 33.1008, -26.1556, 1.27)
	pt3dadd(-32.0848, 33.0308, -29.3956, 1.27)
	pt3dadd(-32.0848, 33.0308, -30.9056, 1.27)
	pt3dadd(-32.7248, 32.8908, -31.4956, 1.27)
	pt3dadd(-32.7948, 33.2108, -31.4956, 1.27)
	pt3dadd(-33.3748, 34.3808, -31.6656, 1.27)
	pt3dadd(-33.4448, 34.7008, -31.6656, 1.27)
	pt3dadd(-33.6448, 35.6308, -31.6656, 1.27)
	pt3dadd(-33.9648, 35.5608, -31.6656, 1.27)
	pt3dadd(-34.8648, 36.6708, -34.1956, 1.27)
	pt3dadd(-34.8648, 36.6708, -34.7956, 1.27)
	pt3dadd(-36.1448, 36.4008, -36.7956, 1.27)
	pt3dadd(-36.1448, 36.4008, -38.0856, 1.27)
	pt3dadd(-37.4248, 36.1308, -38.1956, 1.27)
	pt3dadd(-37.4248, 36.1308, -38.5156, 1.27)
	pt3dadd(-38.0548, 36.0008, -38.8956, 1.27)
	pt3dadd(-38.3748, 35.9308, -39.0056, 1.27)
	pt3dadd(-38.8948, 36.8008, -39.0056, 1.27)
	pt3dadd(-40.1748, 36.5208, -41.7556, 1.27)
	pt3dadd(-40.1748, 36.5208, -42.2956, 1.27)
	pt3dadd(-41.3848, 35.9408, -43.8656, 1.27)
	pt3dadd(-41.3848, 35.9408, -43.9156, 1.27)
	pt3dadd(-42.6648, 35.6708, -45.7556, 1.27)
	pt3dadd(-44.0748, 36.0208, -46.5656, 1.27)
	pt3dadd(-44.3948, 35.9508, -46.5656, 1.27)
	pt3dadd(-46.2548, 36.8608, -45.7556, 1.27)
	pt3dadd(-47.7148, 35.9008, -45.7556, 1.27)
	pt3dadd(-50.6548, 35.6008, -45.9156, 1.27)
	pt3dadd(-52.5848, 36.8208, -44.4056, 1.27)
	pt3dadd(-54.3848, 37.4108, -44.5656, 1.27)
	pt3dadd(-57.0648, 37.4908, -44.5656, 1.27)
	pt3dadd(-59.2548, 38.3308, -44.6756, 1.27)
	pt3dadd(-61.6048, 36.8608, -44.6756, 1.27)
	pt3dadd(-61.9248, 36.7908, -45.0556, 1.27)
    }
}


proc shape3d_dend2_5() {
    dend[19] {pt3dclear()
	pt3dadd(-28.5948, 30.5108, -18.9156, 1.27)
	pt3dadd(-28.4848, 33.1408, -17.8956, 1.27)
	pt3dadd(-29.9748, 35.4308, -16.2756, 1.27)
	pt3dadd(-31.3248, 37.1008, -16.3756, 1.27)
	pt3dadd(-31.9648, 36.9708, -16.3756, 1.27)
	pt3dadd(-33.1248, 37.7008, -16.9756, 1.27)
	pt3dadd(-33.1248, 37.7008, -17.1856, 1.27)
	pt3dadd(-34.2148, 38.1208, -17.5656, 1.27)
	pt3dadd(-34.5348, 38.0508, -17.5656, 1.27)
	pt3dadd(-35.8848, 39.7208, -17.6756, 1.27)
	pt3dadd(-36.9148, 39.8208, -16.9156, 1.27)
	pt3dadd(-38.2648, 41.4908, -18.2656, 1.27)
	pt3dadd(-38.2648, 41.4908, -18.4856, 1.27)
	pt3dadd(-39.4248, 42.2208, -19.0256, 1.27)
	pt3dadd(-40.0148, 43.4008, -18.7556, 1.27)
	pt3dadd(-40.0148, 43.4008, -18.6456, 1.27)
	pt3dadd(-40.3448, 44.9608, -18.4356, 1.27)
	pt3dadd(-40.3448, 44.9608, -18.4856, 1.27)
	pt3dadd(-39.6448, 46.4108, -19.2456, 1.27)
	pt3dadd(-40.1748, 48.9108, -18.8656, 1.27)
	pt3dadd(-40.3748, 49.8408, -19.7856, 1.27)
    }
}

proc shape3d_dend1_4() {
    dend[20] {pt3dclear()
	pt3dadd(16.6452, 16.0008, -0.555595, 1.59)
	pt3dadd(17.9852, 15.9608, -0.555595, 1.59)
	pt3dadd(19.0052, 15.8508, -0.445595, 1.59)
	pt3dadd(20.2852, 16.1208, -0.555595, 1.59)
	pt3dadd(20.2852, 16.1208, -0.665595, 1.59)
	pt3dadd(20.9952, 15.9508, 0.254405, 1.59)
	pt3dadd(21.9452, 16.1508, 0.194405, 1.59)
	pt3dadd(23.6752, 15.8708, 0.0944049, 1.59)
	pt3dadd(26.2352, 16.4108, -0.775595, 1.59)
	pt3dadd(28.2152, 16.5108, -0.825595, 1.59)
	pt3dadd(28.2152, 16.5108, -0.885595, 1.59)
	pt3dadd(30.2552, 17.9208, -1.0456, 1.59)
	pt3dadd(31.0752, 18.7408, 0.0944049, 1.59)
	pt3dadd(32.3552, 18.9708, 0.0944049, 1.91)
	pt3dadd(34.2552, 19.7608, -0.0755951, 1.91)
	pt3dadd(34.2552, 19.7608, 0.364405, 1.91)
	pt3dadd(35.5752, 20.8608, 0.684405, 1.59)
	pt3dadd(35.5752, 20.8608, 0.904405, 1.59)
	pt3dadd(36.1752, 21.9908, 1.2244, 1.59)
	pt3dadd(37.6352, 21.9408, 1.2744, 1.59)
	pt3dadd(37.4952, 22.3708, 1.2744, 1.59)
	pt3dadd(39.8052, 21.8608, 1.4944, 1.59)
	pt3dadd(40.8352, 22.4008, 1.4944, 1.59)
	pt3dadd(41.4352, 23.5208, 2.3544, 1.59)
	pt3dadd(42.3052, 23.7808, 1.2244, 1.59)
	pt3dadd(42.3052, 23.7808, 1.2744, 1.59)
	pt3dadd(44.3552, 24.8608, 3.8144, 1.59)
	pt3dadd(47.0052, 27.0608, 4.3544, 1.27)
	pt3dadd(49.4852, 27.5508, 5.4944, 1.27)
	pt3dadd(49.4852, 27.5508, 5.5444, 1.27)
	pt3dadd(50.0652, 27.2408, 7.1144, 1.27)
	pt3dadd(50.0652, 27.2408, 7.1644, 1.27)
	pt3dadd(52.5452, 27.7308, 7.75441, 1.27)
	pt3dadd(52.5452, 27.7308, 7.8644, 1.27)
	pt3dadd(52.9952, 28.5708, 7.8644, 1.27)
	pt3dadd(54.4452, 28.5208, 8.8344, 1.27)
	pt3dadd(56.0452, 28.7508, 8.8344, 1.27)
	pt3dadd(57.7852, 28.5508, 7.65441, 1.27)
	pt3dadd(59.2252, 27.7808, 7.7044, 1.27)
	pt3dadd(61.5552, 27.9908, 6.46441, 1.27)
	pt3dadd(62.2552, 26.5308, 7.97441, 1.27)
	pt3dadd(63.1252, 26.0708, 7.97441, 1.27)
	pt3dadd(65.0152, 26.1508, 7.97441, 1.27)
	pt3dadd(67.9052, 25.3308, 8.2944, 1.27)
	pt3dadd(67.9052, 25.3308, 8.13441, 1.27)
	pt3dadd(69.4952, 24.8508, 7.97441, 1.27)
	pt3dadd(71.8252, 25.0508, 9.1044, 1.27)
	pt3dadd(72.8652, 26.3108, 10.3544, 1.27)
	pt3dadd(73.6052, 27.0008, 12.5144, 1.27)
	pt3dadd(75.3452, 26.7908, 14.2344, 1.27)
	pt3dadd(75.3452, 26.7908, 14.8844, 1.27)
	pt3dadd(74.6352, 28.2508, 16.0744, 1.27)
	pt3dadd(74.6352, 28.2508, 16.1844, 1.27)
	pt3dadd(75.0752, 28.3808, 15.7544, 1.27)
	pt3dadd(77.6952, 28.4308, 17.5344, 1.27)
	pt3dadd(77.6952, 28.4308, 17.5844, 1.27)
	pt3dadd(79.4252, 27.5108, 17.5844, 1.27)
	pt3dadd(79.5752, 27.7908, 17.5844, 1.27)
	pt3dadd(81.3152, 27.5908, 17.5844, 1.27)
	pt3dadd(84.0552, 26.4908, 17.6944, 1.27)
	pt3dadd(84.0552, 26.4908, 17.8044, 1.27)
	pt3dadd(85.5152, 27.1608, 17.1544, 1.27)
	pt3dadd(85.9652, 28.0008, 18.0744, 1.27)
	pt3dadd(87.4252, 27.9508, 20.0144, 1.27)
	pt3dadd(87.6952, 27.0808, 21.9044, 1.27)
	pt3dadd(87.6952, 27.0808, 22.0644, 1.27)
	pt3dadd(88.8552, 26.4708, 24.0144, 1.27)
	pt3dadd(90.2952, 25.7008, 24.0644, 1.27)
	pt3dadd(93.7852, 26.0108, 24.2244, 1.27)
	pt3dadd(96.5252, 24.9108, 23.5844, 1.27)
	pt3dadd(98.2752, 25.4308, 23.5844, 1.27)
	pt3dadd(99.1452, 24.9708, 23.5844, 1.27)
	pt3dadd(101.155, 23.1808, 22.5044, 1.27)
	pt3dadd(100.995, 22.1808, 22.5044, 1.27)
	pt3dadd(103.865, 19.9308, 22.5044, 1.27)
	pt3dadd(106.045, 19.8608, 22.9344, 1.27)
	pt3dadd(106.045, 19.8608, 22.8244, 1.27)
	pt3dadd(107.205, 19.9608, 22.3944, 1.27)
	pt3dadd(108.215, 19.7808, 23.4144, 1.27)
	pt3dadd(108.215, 19.7808, 23.3144, 1.27)
	pt3dadd(108.945, 19.7608, 23.3144, 1.27)
	pt3dadd(109.095, 20.0408, 23.3144, 1.27)
	pt3dadd(110.395, 19.7108, 24.1744, 1.27)
	pt3dadd(110.395, 19.7108, 24.2244, 1.27)
	pt3dadd(111.265, 19.2508, 24.2244, 1.27)
	pt3dadd(112.415, 18.6308, 24.2844, 1.27)
	pt3dadd(115.025, 17.9708, 24.2844, 1.27)
	pt3dadd(115.885, 17.5108, 24.2844, 1.27)
	pt3dadd(118.165, 16.9708, 24.7644, 1.27)
	pt3dadd(119.615, 16.9208, 24.7644, 1.27)
	pt3dadd(121.335, 15.2908, 23.9044, 1.27)
	pt3dadd(122.195, 14.8308, 24.5544, 1.27)
	pt3dadd(123.065, 14.3708, 24.5544, 1.27)
	pt3dadd(123.065, 14.3708, 24.6044, 1.27)
	pt3dadd(124.365, 14.0408, 25.5744, 1.27)
	pt3dadd(125.655, 12.9908, 25.6344, 1.27)
	pt3dadd(126.385, 12.9608, 26.4444, 1.27)
	pt3dadd(129.295, 13.5808, 25.6844, 1.27)
	pt3dadd(131.915, 13.6308, 24.4944, 1.27)
	pt3dadd(131.915, 13.6308, 24.3344, 1.27)
	pt3dadd(132.215, 14.1908, 23.4144, 1.27)
	pt3dadd(132.365, 14.4808, 23.4144, 1.27)
	pt3dadd(135.395, 13.2208, 23.9544, 1.27)
	pt3dadd(136.265, 12.7608, 24.3344, 1.27)
	pt3dadd(137.425, 12.8708, 23.3144, 1.27)
	pt3dadd(137.425, 12.8708, 23.9544, 1.27)
	pt3dadd(138.885, 13.5308, 25.4744, 1.27)
	pt3dadd(140.645, 14.0508, 25.5244, 1.27)
	pt3dadd(142.955, 13.5408, 25.7944, 1.27)
	pt3dadd(143.985, 14.0708, 25.5244, 1.27)
	pt3dadd(145.705, 12.4408, 23.9544, 1.27)
	pt3dadd(145.855, 12.7208, 23.9044, 1.27)
	pt3dadd(146.705, 11.5408, 25.2544, 1.27)
	pt3dadd(146.415, 11.7008, 25.2544, 1.27)
	pt3dadd(147.985, 9.78078, 25.6844, 1.27)
	pt3dadd(148.275, 9.63078, 25.6844, 1.27)
	pt3dadd(149.725, 9.58078, 25.6844, 1.27)
	pt3dadd(150.325, 10.7008, 25.7944, 1.27)
	pt3dadd(152.355, 10.3408, 26.0644, 1.27)
	pt3dadd(153.075, 10.3208, 26.1144, 1.27)
	pt3dadd(155.385, 9.09078, 26.1744, 1.27)
	pt3dadd(157.725, 10.0208, 27.5244, 1.27)
	pt3dadd(157.725, 10.0208, 27.8444, 1.27)
	pt3dadd(158.725, 9.12078, 29.0344, 1.27)
	pt3dadd(159.735, 8.23077, 29.0844, 1.27)
	pt3dadd(160.735, 7.33078, 29.5744, 1.27)
	pt3dadd(162.475, 7.13077, 28.3344, 1.27)
	pt3dadd(164.645, 6.34078, 28.7144, 1.27)
	pt3dadd(164.645, 6.34078, 28.8144, 1.27)
	pt3dadd(167.685, 5.80078, 29.3544, 1.27)
	pt3dadd(168.855, 5.90077, 28.6044, 1.27)
	pt3dadd(172.205, 6.65077, 27.5244, 1.27)
	pt3dadd(171.915, 6.80078, 27.5244, 1.27)
	pt3dadd(172.495, 6.50078, 27.7944, 1.27)
	pt3dadd(173.655, 6.60078, 27.7344, 1.27)
	pt3dadd(174.675, 6.42077, 27.7344, 1.27)
	pt3dadd(176.815, 4.20078, 28.6044, 1.27)
	pt3dadd(176.525, 4.35078, 28.6044, 1.27)
    }
}

proc shape3d_dend1_5() {
    dend[21] {pt3dclear()
	pt3dadd(16.6452, 16.0008, -0.555595, 1.59)
	pt3dadd(18.7452, 17.1008, -0.555595, 1.59)
	pt3dadd(19.8252, 18.3108, -2.5056, 1.59)
	pt3dadd(19.8252, 18.3108, -2.6056, 1.59)
	pt3dadd(20.3952, 18.7508, -2.6656, 1.59)
	pt3dadd(20.3952, 18.7508, -2.7156, 1.59)
	pt3dadd(21.5352, 19.6508, -3.0456, 1.59)
	pt3dadd(23.5752, 21.0608, -2.5556, 1.59)
	pt3dadd(23.5752, 21.0608, -2.8756, 1.59)
	pt3dadd(28.0352, 23.6408, -4.0156, 1.59)
	pt3dadd(28.9952, 23.8408, -3.2056, 1.59)
	pt3dadd(32.0452, 26.7708, -4.3956, 1.59)
	pt3dadd(32.0452, 26.7708, -4.3356, 1.59)
	pt3dadd(33.5052, 27.7308, -5.2556, 1.59)
	pt3dadd(33.1852, 27.6608, -5.2556, 1.59)
	pt3dadd(34.8352, 29.3208, -4.9356, 1.59)
	pt3dadd(34.5152, 29.2508, -4.9356, 1.59)
	pt3dadd(36.6752, 31.6608, -5.74559, 1.59)
	pt3dadd(37.5652, 32.1808, -5.74559, 1.59)
	pt3dadd(38.9652, 33.4508, -6.4456, 1.59)
	pt3dadd(40.4152, 36.0408, -5.9056, 1.59)
	pt3dadd(41.1152, 37.4908, -6.55559, 1.59)
	pt3dadd(41.6852, 37.9408, -8.44559, 1.59)
	pt3dadd(41.9352, 38.3208, -8.44559, 1.59)
    }
}

proc shape3d_dend4_8() {
    dend[22] {pt3dclear()
	pt3dadd(95.9652, 83.1208, 98.8544, 1.27)
	pt3dadd(98.4752, 82.9108, 98.9144, 1.27)
	pt3dadd(99.3652, 83.8208, 100.044, 1.27)
	pt3dadd(100.715, 84.2908, 101.014, 1.27)
	pt3dadd(100.485, 84.5108, 101.014, 1.27)
	pt3dadd(101.145, 85.2008, 101.774, 1.27)
	pt3dadd(102.165, 86.1008, 101.774, 1.27)
	pt3dadd(103.075, 86.8208, 102.044, 1.27)
	pt3dadd(103.665, 87.6408, 103.664, 1.27)
	pt3dadd(105.375, 88.7908, 105.124, 1.27)
	pt3dadd(105.375, 88.7908, 105.284, 1.27)
	pt3dadd(105.755, 90.0108, 106.364, 1.27)
	pt3dadd(106.215, 91.5308, 108.094, 1.27)
	pt3dadd(106.215, 91.5308, 108.304, 1.27)
	pt3dadd(105.285, 91.8208, 108.684, 1.27)
	pt3dadd(105.565, 92.7308, 109.764, 1.27)
	pt3dadd(106.115, 94.5608, 111.164, 1.27)
	pt3dadd(105.805, 94.6508, 111.164, 1.27)
	pt3dadd(105.555, 96.0608, 113.494, 1.27)
	pt3dadd(105.555, 96.0608, 113.764, 1.27)
	pt3dadd(104.615, 96.3508, 113.974, 1.27)
	pt3dadd(104.895, 97.2708, 114.624, 1.27)
	pt3dadd(104.805, 96.9608, 114.624, 1.27)
	pt3dadd(104.895, 97.2708, 114.624, 1.27)
	pt3dadd(103.615, 98.6608, 115.654, 1.27)
	pt3dadd(103.615, 98.6608, 115.754, 1.27)
	pt3dadd(102.645, 99.9508, 115.924, 1.27)
	pt3dadd(100.995, 100.131, 117.324, 1.27)
	pt3dadd(99.8352, 100.811, 118.084, 1.27)
	pt3dadd(98.9052, 101.101, 118.294, 1.27)
	pt3dadd(97.7452, 101.791, 119.324, 1.27)
	pt3dadd(96.1852, 102.261, 120.184, 1.27)
	pt3dadd(95.4352, 103.161, 120.184, 1.27)
	pt3dadd(95.5252, 103.461, 120.344, 1.27)
	pt3dadd(96.0852, 105.291, 120.834, 1.27)
	pt3dadd(95.7752, 105.391, 120.834, 1.27)
	pt3dadd(95.7452, 106.401, 122.344, 1.27)
	pt3dadd(95.4252, 106.491, 122.344, 1.27)
	pt3dadd(95.5852, 108.111, 122.504, 1.27)
	pt3dadd(95.2752, 108.211, 122.504, 1.27)
	pt3dadd(94.6452, 108.401, 122.504, 1.27)
	pt3dadd(94.6152, 109.411, 122.504, 1.27)
	pt3dadd(94.5452, 111.431, 122.344, 1.27)
	pt3dadd(94.2352, 111.521, 123.584, 1.27)
	pt3dadd(95.5452, 112.461, 124.774, 1.27)
	pt3dadd(96.3852, 111.871, 124.774, 1.27)
	pt3dadd(97.2052, 112.281, 124.884, 1.27)
	pt3dadd(98.8552, 112.111, 125.264, 1.27)
	pt3dadd(100.075, 112.741, 124.834, 1.27)
	pt3dadd(100.885, 113.161, 124.774, 1.27)
	pt3dadd(100.975, 113.461, 124.774, 1.27)
	pt3dadd(104.035, 114.531, 124.774, 1.27)
	pt3dadd(105.625, 116.381, 124.834, 1.27)
	pt3dadd(106.435, 116.791, 123.644, 1.27)
	pt3dadd(106.115, 116.891, 123.644, 1.27)
	pt3dadd(106.175, 118.211, 123.584, 1.27)
	pt3dadd(107.765, 120.051, 124.614, 1.27)
	pt3dadd(107.825, 121.371, 126.184, 1.27)
	pt3dadd(106.675, 122.051, 126.884, 1.27)
	pt3dadd(106.705, 124.381, 127.904, 1.27)
	pt3dadd(106.705, 124.381, 127.964, 1.27)
	pt3dadd(106.075, 124.571, 128.234, 1.27)
	pt3dadd(106.075, 124.571, 128.344, 1.27)
	pt3dadd(104.575, 126.361, 128.504, 1.27)
	pt3dadd(104.515, 128.381, 128.504, 1.27)
	pt3dadd(103.665, 128.971, 128.504, 1.27)
	pt3dadd(104.165, 129.491, 128.714, 1.27)
	pt3dadd(104.855, 130.611, 128.934, 1.27)
	pt3dadd(105.665, 131.031, 128.934, 1.27)
	pt3dadd(105.505, 132.741, 128.014, 0.96)
    }
}

proc shape3d_dend4_9() {
    dend[23] {pt3dclear()
	pt3dadd(95.9652, 83.1208, 98.8544, 1.59)
	pt3dadd(97.0652, 84.2708, 99.1244, 1.59)
	pt3dadd(94.9952, 84.9408, 99.8844, 1.59)
	pt3dadd(93.1152, 86.7508, 100.204, 1.27)
	pt3dadd(93.1152, 86.7508, 100.364, 1.27)
	pt3dadd(92.8452, 88.3508, 100.854, 1.27)
	pt3dadd(93.6852, 90.6308, 101.284, 1.27)
	pt3dadd(93.6852, 90.6308, 101.394, 1.27)
	pt3dadd(94.4852, 91.1608, 101.344, 1.27)
	pt3dadd(95.8852, 92.4008, 101.934, 1.27)
	pt3dadd(95.9452, 93.7208, 102.044, 1.27)
	pt3dadd(96.2252, 94.6308, 102.044, 1.27)
	pt3dadd(96.1652, 96.6508, 102.904, 1.27)
	pt3dadd(96.0052, 98.3608, 102.904, 1.27)
	pt3dadd(96.0052, 98.3608, 103.394, 1.27)
	pt3dadd(95.6252, 100.481, 103.714, 1.27)
	pt3dadd(95.4052, 100.881, 103.714, 1.27)
	pt3dadd(94.2152, 102.581, 103.714, 1.27)
	pt3dadd(92.7152, 104.371, 103.774, 1.27)
	pt3dadd(93.3652, 106.501, 104.254, 1.27)
	pt3dadd(92.8952, 108.311, 104.254, 1.27)
	pt3dadd(93.2752, 109.531, 104.524, 1.27)
	pt3dadd(92.8052, 111.341, 105.124, 1.27)
	pt3dadd(93.0452, 113.271, 104.414, 1.27)
	pt3dadd(92.7352, 113.361, 104.414, 1.27)
	pt3dadd(94.9452, 115.021, 104.904, 1.27)
	pt3dadd(93.7952, 115.711, 104.204, 1.27)
	pt3dadd(93.3252, 117.521, 105.334, 1.27)
	pt3dadd(93.3252, 117.521, 105.284, 1.27)
	pt3dadd(93.1652, 119.231, 104.854, 1.27)
	pt3dadd(93.5052, 121.461, 105.064, 1.27)
	pt3dadd(94.3452, 124.201, 105.984, 1.27)
	pt3dadd(94.3052, 125.211, 106.524, 1.27)
	pt3dadd(94.0552, 126.621, 106.574, 1.27)
	pt3dadd(92.6852, 127.711, 106.794, 1.27)
	pt3dadd(92.3752, 127.811, 106.794, 1.27)
	pt3dadd(91.0852, 129.201, 106.904, 1.27)
	pt3dadd(91.0552, 130.211, 108.094, 1.27)
	pt3dadd(90.5552, 133.031, 108.684, 1.27)
	pt3dadd(90.2452, 133.121, 108.684, 1.27)
	pt3dadd(90.2352, 136.461, 109.764, 1.27)
	pt3dadd(90.7952, 138.291, 111.274, 1.27)
	pt3dadd(90.4552, 139.391, 111.974, 1.27)
	pt3dadd(89.4852, 140.691, 111.494, 1.27)
	pt3dadd(87.6052, 141.261, 111.494, 1.27)
	pt3dadd(87.5752, 142.271, 111.114, 1.27)
	pt3dadd(87.5752, 142.271, 111.274, 1.27)
	pt3dadd(85.9852, 143.761, 111.164, 1.27)
	pt3dadd(85.5452, 144.561, 111.224, 1.27)
	pt3dadd(85.5452, 144.561, 111.274, 1.27)
	pt3dadd(85.1652, 146.671, 112.304, 1.27)
	pt3dadd(85.0752, 146.371, 112.894, 1.27)
	pt3dadd(85.2552, 146.981, 113.324, 1.27)
	pt3dadd(85.1952, 149.001, 115.164, 1.27)
	pt3dadd(85.1052, 148.691, 114.574, 1.27)
    }
}

proc shape3d_dend2_6() {
    dend[24] {pt3dclear()
	pt3dadd(-40.3748, 49.8408, -19.7856, 1.27)
	pt3dadd(-39.6148, 50.9808, -19.9456, 1.27)
	pt3dadd(-38.1048, 53.2608, -20.0556, 1.27)
	pt3dadd(-36.7048, 54.5308, -20.1556, 1.27)
	pt3dadd(-36.5848, 55.5408, -20.3256, 1.27)
	pt3dadd(-36.9048, 55.4708, -20.3756, 1.27)
	pt3dadd(-36.5248, 56.8508, -21.7256, 1.27)
	pt3dadd(-36.8548, 58.4108, -22.9656, 1.27)
	pt3dadd(-36.8548, 58.4108, -23.3456, 1.27)
	pt3dadd(-35.8448, 59.9308, -24.3756, 1.27)
	pt3dadd(-35.8448, 59.9308, -24.6956, 1.27)
	pt3dadd(-35.9748, 60.5508, -24.8056, 1.27)
	pt3dadd(-36.5748, 63.3608, -25.7756, 1.27)
	pt3dadd(-36.5748, 63.3608, -25.9356, 1.27)
	pt3dadd(-35.4548, 67.5108, -26.4256, 1.27)
	pt3dadd(-36.0548, 70.3108, -25.8856, 1.27)
	pt3dadd(-36.3748, 70.2408, -25.8856, 1.27)
	pt3dadd(-38.1748, 72.4708, -24.1056, 1.27)
	pt3dadd(-38.0048, 74.7908, -22.4856, 1.27)
	pt3dadd(-38.0048, 74.7908, -21.9956, 1.27)
	pt3dadd(-38.1348, 75.4108, -21.8356, 1.27)
	pt3dadd(-38.2048, 75.7208, -21.5056, 1.27)
	pt3dadd(-39.2348, 77.4608, -20.9656, 1.27)
	pt3dadd(-40.9048, 77.4308, -19.8356, 1.27)
	pt3dadd(-41.1648, 78.6808, -17.6756, 1.27)
	pt3dadd(-41.9348, 79.1608, -17.1356, 1.27)
	pt3dadd(-41.5248, 80.5208, -15.2956, 1.27)
	pt3dadd(-42.1748, 82.0108, -15.2456, 1.27)
	pt3dadd(-42.3148, 82.6308, -15.2456, 1.27)
	pt3dadd(-43.4748, 84.9908, -15.2956, 1.27)
	pt3dadd(-43.7948, 84.9208, -15.2956, 1.27)
	pt3dadd(-43.8648, 85.2308, -14.5456, 1.27)
	pt3dadd(-44.7848, 87.9708, -14.4856, 1.27)
	pt3dadd(-44.7848, 87.9708, -14.4356, 1.27)
	pt3dadd(-45.2348, 88.5308, -14.4356, 1.27)
	pt3dadd(-47.0448, 90.7508, -12.7656, 1.27)
	pt3dadd(-49.7348, 92.4608, -12.3256, 1.27)
	pt3dadd(-49.1748, 94.5308, -12.1656, 1.27)
	pt3dadd(-49.8248, 96.0208, -13.4056, 1.27)
	pt3dadd(-50.0948, 97.2708, -13.4056, 1.27)
	pt3dadd(-49.9848, 99.9008, -13.7356, 1.27)
	pt3dadd(-50.2548, 101.151, -13.5756, 1.27)
	pt3dadd(-50.7148, 103.331, -14.2156, 1.27)
	pt3dadd(-50.7148, 103.331, -14.1656, 1.27)
	pt3dadd(-50.9648, 102.951, -14.1656, 1.27)
	pt3dadd(-51.1748, 105.511, -14.5956, 1.27)
	pt3dadd(-49.9648, 106.101, -14.2156, 1.27)
	pt3dadd(-49.2748, 107.551, -13.6756, 1.27)
	pt3dadd(-49.5348, 108.791, -13.6756, 1.27)
	pt3dadd(-49.1648, 110.181, -13.6256, 1.27)
	pt3dadd(-48.7948, 111.561, -13.3056, 1.27)
	pt3dadd(-47.7248, 114.391, -11.9556, 1.27)
	pt3dadd(-46.9648, 115.531, -12.8156, 1.27)
	pt3dadd(-45.9448, 115.421, -12.3256, 1.27)
	pt3dadd(-45.3748, 115.871, -11.6856, 1.27)
	pt3dadd(-44.2248, 116.771, -11.1456, 1.27)
	pt3dadd(-42.6948, 117.421, -10.1156, 1.27)
	pt3dadd(-42.6948, 117.421, -9.6256, 1.27)
	pt3dadd(-42.3248, 118.801, -8.81559, 1.27)
	pt3dadd(-42.5848, 120.051, -7.4156, 1.27)
	pt3dadd(-41.5748, 121.571, -7.1456, 1.27)
	pt3dadd(-41.8348, 122.811, -7.03559, 1.27)
	pt3dadd(-39.3648, 125.301, -6.3856, 1.27)
	pt3dadd(-39.3648, 125.301, -6.3356, 1.27)
	pt3dadd(-39.6348, 128.171, -6.1756, 1.27)
	pt3dadd(-40.1648, 130.661, -7.4656, 0.96)
	pt3dadd(-40.1648, 130.661, -7.7356, 0.96)
	pt3dadd(-38.7748, 131.941, -9.35559, 0.96)
	pt3dadd(-38.7748, 131.941, -9.6856, 0.96)
	pt3dadd(-39.0348, 133.191, -10.2256, 0.96)
	pt3dadd(-39.0348, 133.191, -10.3856, 0.96)
	pt3dadd(-38.4848, 133.151, -10.3356, 1.27)
	pt3dadd(-38.3248, 134.151, -8.7156, 1.27)
	pt3dadd(-38.1748, 134.431, -8.7156, 1.27)
	pt3dadd(-38.4648, 134.581, -8.7156, 1.27)
	pt3dadd(-36.9848, 135.971, -8.27559, 1.27)
	pt3dadd(-37.2648, 136.841, -6.6056, 1.27)
	pt3dadd(-37.2648, 136.841, -6.3356, 1.27)
	pt3dadd(-36.2448, 137.371, -3.5256, 1.27)
	pt3dadd(-36.8048, 138.401, -2.7156, 1.27)
	pt3dadd(-37.0648, 140.701, -2.23559, 1.27)
	pt3dadd(-37.0648, 140.701, -2.1756, 1.27)
	pt3dadd(-37.0448, 142.131, -1.8556, 1.27)
	pt3dadd(-36.7148, 144.121, -0.715595, 1.27)
	pt3dadd(-35.0948, 145.791, 0.144405, 1.27)
	pt3dadd(-34.3448, 147.201, 0.194405, 1.27)
	pt3dadd(-34.8948, 149.651, 0.734405, 1.27)
	pt3dadd(-34.8748, 150.371, 1.8744, 1.27)
	pt3dadd(-35.7448, 150.831, 2.1944, 1.27)
	pt3dadd(-35.7448, 150.831, 2.1444, 1.27)
	pt3dadd(-36.0148, 152.411, 2.1944, 1.27)
	pt3dadd(-36.7248, 153.151, 3.3844, 1.27)
	pt3dadd(-36.7248, 153.151, 3.5444, 1.27)
	pt3dadd(-36.2748, 154.001, 4.46441, 1.27)
	pt3dadd(-36.5648, 154.151, 4.6244, 1.27)
	pt3dadd(-36.5548, 154.871, 5.00441, 1.27)
	pt3dadd(-36.8448, 155.021, 5.00441, 1.27)
	pt3dadd(-36.2448, 156.151, 5.9744, 1.27)
	pt3dadd(-35.7648, 159.141, 5.0544, 1.27)
	pt3dadd(-35.4648, 159.701, 6.3044, 1.27)
	pt3dadd(-35.8748, 161.011, 7.92441, 1.27)
	pt3dadd(-36.1648, 161.161, 7.92441, 1.27)
	pt3dadd(-36.8948, 161.181, 7.92441, 1.27)
	pt3dadd(-37.7548, 161.641, 7.92441, 1.27)
	pt3dadd(-39.3548, 161.411, 7.92441, 0.96)
	pt3dadd(-40.2348, 161.161, 9.3744, 0.96)
	pt3dadd(-40.2348, 161.161, 9.4844, 0.96)
	pt3dadd(-40.3648, 162.311, 10.7244, 0.96)
	pt3dadd(-40.6548, 162.461, 11.2144, 0.96)
	pt3dadd(-41.9548, 162.791, 11.2144, 0.96)
	pt3dadd(-41.9548, 162.791, 11.2644, 0.96)
	pt3dadd(-42.6848, 162.821, 12.7244, 0.96)
	pt3dadd(-44.7048, 163.171, 13.8044, 0.96)
	pt3dadd(-44.7048, 163.171, 13.9144, 0.96)
	pt3dadd(-45.2948, 162.761, 14.3444, 0.96)
	pt3dadd(-45.5848, 162.921, 14.5044, 0.96)
	pt3dadd(-46.7448, 162.811, 16.5644, 0.96)
	pt3dadd(-46.6148, 162.381, 16.2944, 1.27)
	pt3dadd(-46.6148, 162.381, 17.3144, 1.27)
	pt3dadd(-46.6148, 162.381, 19.4744, 1.27)
	pt3dadd(-46.6148, 162.381, 20.6144, 1.27)
	pt3dadd(-46.8948, 162.531, 21.6944, 1.27)
	pt3dadd(-46.8948, 162.531, 22.2344, 1.27)
	pt3dadd(-47.3448, 161.691, 22.7144, 1.27)
	pt3dadd(-48.6648, 161.301, 23.1444, 1.27)
	pt3dadd(-50.1048, 162.071, 24.4944, 1.27)
	pt3dadd(-51.5448, 162.841, 24.4944, 1.27)
	pt3dadd(-52.8548, 162.451, 25.9544, 1.27)
	pt3dadd(-52.7048, 162.731, 26.0144, 1.27)
	pt3dadd(-52.8548, 162.451, 27.2544, 1.27)
	pt3dadd(-52.8548, 162.451, 27.4144, 1.27)
	pt3dadd(-53.5848, 162.481, 27.5744, 1.27)
	pt3dadd(-53.5848, 162.481, 28.1144, 1.27)
	pt3dadd(-55.3348, 161.971, 28.4444, 1.27)
	pt3dadd(-55.3348, 161.971, 28.4944, 1.27)
	pt3dadd(-56.2048, 162.421, 28.4444, 1.27)
	pt3dadd(-57.9348, 163.341, 30.3344, 1.27)
	pt3dadd(-59.2448, 162.961, 30.8744, 1.27)
	pt3dadd(-59.2448, 162.961, 30.9244, 1.27)
	pt3dadd(-60.4048, 162.861, 33.3044, 1.27)
	pt3dadd(-60.4048, 162.861, 33.3544, 1.27)
	pt3dadd(-60.4048, 162.861, 35.0844, 1.27)
	pt3dadd(-60.4048, 162.861, 35.1944, 1.27)
	pt3dadd(-60.8348, 163.451, 36.7044, 1.27)
	pt3dadd(-60.8348, 163.451, 36.7544, 1.27)
	pt3dadd(-61.9848, 164.061, 38.9744, 1.27)
	pt3dadd(-61.9848, 164.061, 39.2444, 1.27)
	pt3dadd(-61.9848, 164.061, 39.7844, 1.27)
	pt3dadd(-61.9848, 164.061, 39.8344, 1.27)
	pt3dadd(-63.8848, 163.261, 39.8344, 1.27)
	pt3dadd(-63.5948, 163.831, 39.9444, 1.27)
	pt3dadd(-64.1648, 164.131, 41.7244, 1.27)
	pt3dadd(-64.1648, 164.131, 41.9444, 1.27)
	pt3dadd(-64.3448, 162.931, 43.0244, 1.27)
	pt3dadd(-65.0248, 162.701, 43.4544, 1.27)
	pt3dadd(-65.0248, 162.701, 43.5044, 1.27)
	pt3dadd(-65.7148, 162.921, 44.6444, 1.27)
	pt3dadd(-65.4948, 163.151, 44.5844, 1.27)
	pt3dadd(-65.2748, 163.381, 45.2344, 1.27)
	pt3dadd(-64.7848, 162.471, 46.6344, 1.27)
	pt3dadd(-64.7748, 162.011, 47.5044, 1.59)
	pt3dadd(-64.7848, 162.471, 49.0144, 1.59)
	pt3dadd(-64.7848, 162.471, 49.3344, 1.59)
	pt3dadd(-64.0948, 162.241, 50.9544, 1.59)
	pt3dadd(-64.0848, 161.791, 51.9344, 1.59)
	pt3dadd(-63.3748, 161.111, 52.9544, 1.59)
	pt3dadd(-63.4148, 162.481, 53.9244, 1.59)
	pt3dadd(-63.4148, 162.481, 53.9844, 1.59)
	pt3dadd(-64.0848, 161.791, 55.1144, 1.59)
	pt3dadd(-64.0848, 161.791, 55.1744, 1.59)
	pt3dadd(-62.7548, 163.161, 57.8144, 1.59)
	pt3dadd(-62.9748, 162.941, 59.2244, 1.59)
	pt3dadd(-62.9748, 162.941, 59.2744, 1.59)
	pt3dadd(-63.4148, 162.481, 60.0844, 1.59)
    }
}

proc shape3d_dend2_7() {
    dend[25] {pt3dclear()
	pt3dadd(-40.3748, 49.8408, -19.7856, 1.27)
	pt3dadd(-40.5548, 52.3808, -19.6756, 1.27)
	pt3dadd(-40.5648, 54.0008, -19.6756, 1.27)
	pt3dadd(-40.0648, 56.3908, -20.4856, 1.27)
	pt3dadd(-40.0648, 56.3908, -20.8656, 1.27)
	pt3dadd(-39.8148, 56.7708, -21.4556, 1.27)
	pt3dadd(-40.4648, 58.2608, -20.9156, 1.27)
	pt3dadd(-42.5848, 58.7908, -20.9156, 1.27)
	pt3dadd(-43.7348, 59.5208, -20.9656, 1.27)
	pt3dadd(-45.2848, 60.4908, -21.3456, 1.27)
	pt3dadd(-45.2848, 60.4908, -21.5056, 1.27)
	pt3dadd(-45.3448, 60.8108, -22.0456, 1.27)
	pt3dadd(-45.1048, 62.8108, -21.9456, 1.27)
	pt3dadd(-46.4648, 64.4808, -22.3756, 1.27)
	pt3dadd(-46.4648, 64.4808, -22.2656, 1.27)
	pt3dadd(-47.8148, 66.1508, -22.2156, 0.96)
	pt3dadd(-52.1648, 66.2008, -22.3756, 0.96)
	pt3dadd(-52.4848, 66.1308, -22.3756, 0.96)
	pt3dadd(-53.4448, 65.9308, -22.3756, 0.96)
	pt3dadd(-55.2548, 68.1508, -20.8056, 0.96)
	pt3dadd(-57.5648, 69.6108, -20.4856, 0.96)
	pt3dadd(-57.4548, 72.2408, -20.3256, 1.27)
	pt3dadd(-57.4548, 72.2408, -19.7256, 1.27)
	pt3dadd(-57.5948, 72.8708, -19.2956, 1.27)
	pt3dadd(-57.5948, 72.8708, -18.8656, 1.27)
	pt3dadd(-58.8648, 72.6008, -18.4856, 1.27)
	pt3dadd(-59.2548, 72.8408, -18.4856, 1.27)
	pt3dadd(-60.2748, 72.9508, -18.4356, 1.27)
	pt3dadd(-61.2448, 74.3708, -16.6456, 1.27)
	pt3dadd(-63.4948, 75.5208, -16.2756, 1.27)
	pt3dadd(-63.9648, 77.7008, -14.8156, 1.27)
	pt3dadd(-63.9648, 77.7008, -14.7556, 1.27)
	pt3dadd(-65.0648, 79.7508, -14.1656, 1.27)
	pt3dadd(-65.0648, 79.7508, -13.6256, 1.27)
	pt3dadd(-64.7548, 81.4508, -12.2256, 1.27)
	pt3dadd(-63.4748, 81.7208, -11.6856, 1.27)
	pt3dadd(-63.5448, 82.0308, -11.5756, 1.27)
	pt3dadd(-63.6848, 84.2808, -11.4656, 1.27)
	pt3dadd(-64.1548, 86.4608, -11.3056, 1.27)
	pt3dadd(-65.5748, 88.4408, -10.8756, 1.27)
	pt3dadd(-65.5248, 89.7608, -10.0656, 1.27)
	pt3dadd(-65.5248, 89.7608, -9.6856, 1.27)
	pt3dadd(-65.6548, 90.3808, -9.35559, 1.27)
	pt3dadd(-65.6548, 90.3808, -9.19559, 1.27)
	pt3dadd(-66.2348, 91.5608, -8.8756, 1.27)
	pt3dadd(-66.2448, 93.1908, -8.8756, 1.27)
	pt3dadd(-66.1248, 94.1908, -8.65559, 1.27)
	pt3dadd(-67.2348, 96.2408, -8.3356, 1.27)
	pt3dadd(-67.2348, 96.2408, -8.0656, 1.27)
	pt3dadd(-67.4348, 97.1708, -7.9056, 1.27)
	pt3dadd(-67.6948, 98.4208, -9.35559, 1.27)
	pt3dadd(-67.6948, 98.4208, -9.57559, 1.27)
	pt3dadd(-67.6448, 99.7308, -10.2256, 1.27)
	pt3dadd(-67.6448, 99.7308, -10.7056, 1.27)
	pt3dadd(-67.7748, 100.361, -10.8756, 1.27)
	pt3dadd(-67.5948, 102.671, -10.8756, 1.27)
	pt3dadd(-67.4148, 103.371, -10.8756, 1.27)
	pt3dadd(-67.9348, 104.231, -10.9756, 1.27)
	pt3dadd(-67.3648, 106.311, -11.3556, 1.27)
	pt3dadd(-67.5048, 106.931, -11.3556, 1.27)
	pt3dadd(-67.1248, 108.311, -11.3556, 1.27)
	pt3dadd(-67.0748, 109.631, -10.7656, 1.27)
	pt3dadd(-68.0948, 109.741, -10.5456, 1.27)
	pt3dadd(-71.1848, 111.691, -10.7056, 1.27)
	pt3dadd(-71.1848, 111.691, -10.8756, 1.27)
	pt3dadd(-70.6748, 112.451, -10.8756, 1.27)
	pt3dadd(-72.1648, 114.741, -10.3856, 1.27)
	pt3dadd(-72.1748, 116.371, -8.7156, 1.27)
	pt3dadd(-72.1148, 116.051, -8.7156, 1.27)
	pt3dadd(-71.5548, 118.131, -8.2256, 1.27)
	pt3dadd(-72.0648, 119.001, -8.27559, 1.27)
	pt3dadd(-73.8148, 120.911, -8.0656, 1.27)
	pt3dadd(-74.7848, 122.331, -7.9556, 1.27)
	pt3dadd(-74.9148, 122.951, -7.9556, 1.27)
	pt3dadd(-76.9648, 123.171, -9.73559, 1.27)
	pt3dadd(-78.5748, 124.461, -9.1456, 1.27)
	pt3dadd(-80.1648, 124.121, -8.7656, 1.27)
	pt3dadd(-80.1648, 124.121, -8.7156, 1.27)
	pt3dadd(-81.3948, 125.161, -8.49559, 1.27)
	pt3dadd(-83.8348, 127.251, -8.2256, 1.27)
	pt3dadd(-84.3048, 129.431, -8.49559, 1.27)
	pt3dadd(-85.4548, 130.161, -7.30559, 1.27)
	pt3dadd(-85.4548, 130.161, -7.2556, 1.27)
	pt3dadd(-87.5048, 130.381, -7.09559, 1.27)
	pt3dadd(-88.6648, 131.111, -5.2056, 1.27)
	pt3dadd(-89.6248, 130.911, -5.74559, 1.27)
	pt3dadd(-89.6848, 131.221, -5.74559, 1.27)
	pt3dadd(-89.9548, 132.461, -5.7956, 1.27)
	pt3dadd(-90.0148, 132.781, -5.7956, 1.27)
	pt3dadd(-91.6948, 134.381, -5.7956, 1.27)
	pt3dadd(-92.8548, 135.111, -6.3356, 1.27)
	pt3dadd(-94.7148, 136.011, -6.49559, 1.27)
	pt3dadd(-94.7148, 136.011, -6.4456, 1.27)
	pt3dadd(-96.0048, 137.371, -6.82559, 1.27)
	pt3dadd(-97.2248, 138.411, -6.6056, 0.96)
	pt3dadd(-98.4448, 139.461, -5.6856, 0.96)
	pt3dadd(-98.7648, 139.391, -5.6856, 0.96)
	pt3dadd(-101.385, 139.161, -5.9556, 0.96)
	pt3dadd(-102.505, 142.831, -4.3356, 0.96)
	pt3dadd(-102.505, 142.831, -4.22559, 0.96)
	pt3dadd(-105.965, 143.401, -2.4456, 0.96)
	pt3dadd(-105.985, 143.891, -2.4456, 0.96)
	pt3dadd(-105.065, 145.551, -1.2056, 0.96)
	pt3dadd(-103.405, 148.141, -1.2056, 1.27)
	pt3dadd(-103.695, 148.291, -1.2056, 1.27)
	pt3dadd(-104.835, 149.621, -0.395595, 1.27)
	pt3dadd(-105.705, 150.081, 0.904405, 1.27)
	pt3dadd(-105.705, 150.081, 1.5444, 1.27)
	pt3dadd(-105.985, 150.241, 3.1144, 1.27)
	pt3dadd(-105.985, 150.241, 3.2244, 1.27)
	pt3dadd(-106.565, 150.541, 1.9844, 1.27)
	pt3dadd(-106.715, 150.261, 3.6544, 1.27)
	pt3dadd(-106.715, 150.261, 3.7044, 1.27)
	pt3dadd(-107.865, 150.871, 4.8944, 1.27)
	pt3dadd(-110.475, 151.541, 5.4944, 1.27)
	pt3dadd(-111.335, 152.001, 5.4944, 1.27)
	pt3dadd(-111.335, 152.001, 5.7044, 1.27)
	pt3dadd(-112.495, 152.611, 5.8144, 1.27)
	pt3dadd(-112.645, 152.331, 5.8144, 1.27)
	pt3dadd(-114.085, 153.101, 7.1144, 1.27)
	pt3dadd(-114.085, 153.101, 7.48441, 1.27)
	pt3dadd(-114.945, 153.551, 8.2944, 1.27)
	pt3dadd(-115.815, 154.011, 8.2944, 1.27)
	pt3dadd(-117.395, 155.221, 8.89441, 1.27)
	pt3dadd(-118.865, 153.831, 9.00441, 1.27)
	pt3dadd(-119.895, 153.301, 9.05441, 1.27)
	pt3dadd(-121.335, 154.061, 9.21441, 1.27)
	pt3dadd(-122.485, 154.681, 9.2744, 1.27)
	pt3dadd(-123.215, 154.701, 10.1344, 1.27)
	pt3dadd(-124.815, 154.471, 11.7044, 1.27)
	pt3dadd(-125.685, 154.211, 11.7544, 1.27)
	pt3dadd(-126.415, 154.241, 12.2444, 1.27)
	pt3dadd(-126.415, 154.241, 12.1344, 1.27)
	pt3dadd(-127.985, 156.161, 13.8044, 0.64)
	pt3dadd(-128.275, 156.311, 13.8044, 0.64)
	pt3dadd(-129.715, 157.081, 13.8044, 0.64)
	pt3dadd(-130.545, 159.681, 14.0744, 0.64)
    }
}

proc shape3d_dend1_6() {
    dend[26] {pt3dclear()
	pt3dadd(176.525, 4.35078, 28.6044, 1.27)
	pt3dadd(177.415, 5.32078, 32.0044, 1.27)
	pt3dadd(177.415, 5.32078, 32.7044, 1.27)
	pt3dadd(177.125, 5.47078, 34.4844, 1.27)
	pt3dadd(177.125, 5.47078, 34.8144, 1.27)
	pt3dadd(177.415, 5.32078, 37.5144, 1.27)
	pt3dadd(177.415, 5.32078, 38.1044, 1.27)
	pt3dadd(177.415, 5.32078, 40.8644, 1.27)
	pt3dadd(177.415, 5.32078, 41.0244, 1.27)
	pt3dadd(176.965, 4.48078, 42.8544, 1.27)
	pt3dadd(178.995, 4.12078, 42.9144, 1.27)
	pt3dadd(178.995, 4.12078, 42.9644, 1.27)
	pt3dadd(179.145, 4.40077, 44.2644, 1.27)
	pt3dadd(179.145, 4.40077, 43.7744, 1.27)
	pt3dadd(180.595, 4.35078, 45.2344, 1.27)
	pt3dadd(180.595, 4.35078, 45.9344, 1.27)
	pt3dadd(182.035, 3.59078, 48.2544, 1.27)
	pt3dadd(182.615, 3.28078, 50.2044, 1.27)
	pt3dadd(182.615, 3.28078, 50.5244, 1.27)
	pt3dadd(182.765, 3.56078, 51.2844, 1.27)
	pt3dadd(182.765, 3.56078, 51.4944, 1.27)
	pt3dadd(182.085, 4.42077, 52.5744, 1.27)
	pt3dadd(182.085, 4.42077, 52.8444, 1.27)
	pt3dadd(181.395, 4.64078, 54.6344, 1.27)
	pt3dadd(181.395, 4.64078, 54.9044, 1.27)
	pt3dadd(182.955, 5.79078, 55.6044, 1.27)
	pt3dadd(182.955, 5.79078, 55.9244, 1.27)
	pt3dadd(185.195, 7.17077, 56.7944, 1.27)
	pt3dadd(185.365, 9.22078, 56.7944, 1.27)
	pt3dadd(186.455, 10.8308, 56.6244, 1.27)
	pt3dadd(186.415, 12.1908, 58.0344, 1.27)
	pt3dadd(185.025, 13.1008, 59.2244, 1.27)
	pt3dadd(185.025, 13.1008, 59.3244, 1.27)
	pt3dadd(184.085, 14.0108, 60.4644, 1.27)
	pt3dadd(183.835, 14.6908, 61.5444, 1.27)
	pt3dadd(182.905, 15.1408, 61.9244, 1.27)
	pt3dadd(182.905, 15.1408, 62.4044, 1.27)
	pt3dadd(182.205, 15.8208, 62.9444, 1.27)
	pt3dadd(183.575, 15.8308, 63.5444, 1.27)
	pt3dadd(183.555, 16.2808, 63.3744, 1.27)
	pt3dadd(183.515, 17.6508, 63.4844, 1.27)
	pt3dadd(183.505, 18.1108, 63.6444, 1.27)
	pt3dadd(184.625, 18.8008, 66.9444, 1.27)
	pt3dadd(184.625, 18.8008, 67.1544, 1.27)
	pt3dadd(184.405, 18.5708, 68.5644, 1.27)
	pt3dadd(184.405, 18.5708, 68.6144, 1.27)
	pt3dadd(184.665, 17.4308, 69.9144, 1.27)
	pt3dadd(184.665, 17.4308, 70.7244, 1.27)
	pt3dadd(185.775, 18.5808, 70.8844, 1.27)
	pt3dadd(185.755, 19.0308, 70.8844, 1.27)
	pt3dadd(185.935, 20.6308, 72.3444, 1.27)
	pt3dadd(185.935, 20.6308, 72.3944, 1.27)
	pt3dadd(187.265, 22.0108, 73.6944, 1.27)
	pt3dadd(188.835, 23.1508, 75.2044, 1.27)
	pt3dadd(188.835, 23.1508, 75.5844, 1.27)
	pt3dadd(188.565, 24.2908, 76.9844, 1.27)
	pt3dadd(187.385, 25.8808, 77.3144, 1.27)
	pt3dadd(186.665, 27.0208, 78.4944, 1.27)
	pt3dadd(186.425, 27.2508, 78.8744, 1.27)
	pt3dadd(186.155, 28.8408, 79.5744, 1.27)
	pt3dadd(186.365, 29.5308, 79.5744, 1.27)
	pt3dadd(185.165, 31.5708, 80.3844, 1.27)
	pt3dadd(184.925, 31.8008, 80.3844, 1.27)
	pt3dadd(185.315, 34.0808, 80.9244, 1.27)
	pt3dadd(185.975, 34.7708, 80.9244, 1.27)
	pt3dadd(187.325, 35.6908, 82.4944, 1.27)
	pt3dadd(187.325, 35.6908, 82.5444, 1.27)
	pt3dadd(186.835, 36.6008, 84.2244, 1.27)
    }
}

proc shape3d_dend1_7() {
    dend[27] {pt3dclear()
	pt3dadd(176.525, 4.35078, 28.6044, 0.64)
	pt3dadd(180.605, 5.07078, 29.7344, 0.64)
	pt3dadd(180.725, 3.20078, 29.3544, 0.64)
	pt3dadd(180.725, 3.20078, 28.9844, 0.64)
	pt3dadd(181.855, 1.16078, 28.4944, 0.64)
	pt3dadd(182.005, 1.44078, 28.4944, 0.64)
	pt3dadd(185.045, 0.900775, 27.0344, 0.64)
	pt3dadd(185.045, 0.900775, 26.7144, 0.64)
	pt3dadd(187.645, -0.479225, 24.6044, 0.64)
    }
}

proc shape3d_dend1_8() {
    dend[28] {pt3dclear()
	pt3dadd(41.9352, 38.3208, -8.44559, 1.27)
	pt3dadd(39.4352, 39.0908, -6.9256, 1.27)
	pt3dadd(42.2452, 40.0208, -10.1156, 1.27)
	pt3dadd(42.2452, 40.0208, -9.8956, 1.27)
	pt3dadd(42.5552, 41.7108, -9.6856, 1.27)
	pt3dadd(42.2352, 41.6408, -9.6856, 1.27)
	pt3dadd(43.2452, 43.1608, -9.2556, 1.27)
	pt3dadd(42.3252, 45.9008, -8.44559, 1.27)
	pt3dadd(40.3352, 47.4308, -7.4156, 1.27)
	pt3dadd(39.5652, 47.9208, -7.09559, 1.27)
	pt3dadd(39.2452, 47.8508, -7.09559, 1.27)
	pt3dadd(39.3152, 47.5408, -6.9856, 1.27)
	pt3dadd(39.3152, 47.5408, -6.9256, 1.27)
	pt3dadd(38.1452, 49.9008, -5.6356, 1.27)
	pt3dadd(37.8052, 51.4608, -5.47559, 1.27)
	pt3dadd(37.6752, 52.0808, -5.30559, 1.27)
	pt3dadd(37.6152, 52.3908, -5.30559, 1.27)
	pt3dadd(37.7152, 55.0208, -4.28559, 1.27)
	pt3dadd(36.1752, 56.0008, -2.5556, 1.27)
	pt3dadd(34.7652, 57.2908, -1.5256, 1.27)
	pt3dadd(35.2052, 57.4208, -1.4756, 1.27)
	pt3dadd(35.8152, 58.7308, -1.0456, 1.27)
	pt3dadd(37.6152, 58.7708, -0.985595, 1.27)
	pt3dadd(38.9552, 60.5808, 1.7144, 1.27)
	pt3dadd(38.9552, 60.5808, 2.3544, 1.27)
	pt3dadd(38.5152, 60.4508, 1.7644, 1.59)
	pt3dadd(38.5152, 60.4508, 4.46441, 1.59)
	pt3dadd(38.2252, 60.6108, 4.8444, 1.59)
	pt3dadd(38.0752, 60.3308, 5.8644, 1.59)
	pt3dadd(38.0752, 60.3308, 6.5144, 1.59)
	pt3dadd(37.6352, 60.2008, 10.0244, 1.59)
	pt3dadd(37.3452, 60.3508, 13.2644, 1.59)
	pt3dadd(37.3452, 60.3508, 13.5344, 1.59)
	pt3dadd(36.9352, 61.6608, 15.5344, 1.59)
	pt3dadd(36.7852, 61.3708, 16.6644, 1.59)
	pt3dadd(35.7652, 61.5508, 17.4244, 1.59)
	pt3dadd(35.7652, 61.5508, 17.8544, 1.59)
	pt3dadd(34.7552, 61.7308, 19.1544, 1.59)
	pt3dadd(34.9152, 62.7308, 22.0644, 1.59)
	pt3dadd(33.4652, 62.7808, 22.7744, 1.59)
	pt3dadd(33.4652, 62.7808, 23.1444, 1.59)
	pt3dadd(34.2152, 64.1908, 24.0144, 1.59)
	pt3dadd(34.5152, 64.7508, 25.6344, 1.59)
	pt3dadd(34.5152, 64.7508, 25.9044, 1.59)
	pt3dadd(33.9552, 66.4908, 27.7344, 1.59)
	pt3dadd(34.8252, 66.0308, 29.5744, 1.59)
	pt3dadd(34.8252, 66.0308, 29.6244, 1.59)
	pt3dadd(36.0052, 67.5608, 30.4344, 1.59)
	pt3dadd(37.4852, 68.9508, 31.4644, 1.59)
	pt3dadd(37.6452, 69.9408, 31.8944, 1.59)
	pt3dadd(37.6452, 69.9408, 32.2744, 1.59)
	pt3dadd(38.2552, 71.7808, 33.6744, 1.59)
	pt3dadd(38.2552, 71.7808, 34.0544, 1.59)
	pt3dadd(39.2752, 72.3208, 36.2144, 1.59)
	pt3dadd(39.2752, 72.3208, 36.3244, 1.59)
	pt3dadd(39.2852, 73.0408, 37.9444, 1.59)
	pt3dadd(39.2852, 73.0408, 38.2144, 1.59)
	pt3dadd(37.4152, 74.3908, 39.2944, 1.59)
	pt3dadd(37.0052, 75.7008, 40.8044, 1.59)
	pt3dadd(37.0052, 75.7008, 41.2944, 1.59)
	pt3dadd(36.1352, 76.1608, 43.7244, 1.59)
	pt3dadd(36.1352, 76.1608, 43.7744, 1.59)
	pt3dadd(35.7052, 76.0308, 45.0744, 1.59)
	pt3dadd(35.7052, 76.0308, 45.6144, 1.59)
	pt3dadd(34.3852, 75.6408, 46.9644, 1.59)
	pt3dadd(34.3852, 75.6408, 47.3944, 1.59)
	pt3dadd(33.5252, 76.1008, 47.5044, 1.59)
	pt3dadd(33.6852, 77.1008, 48.7944, 1.59)
	pt3dadd(33.6852, 77.1008, 48.9644, 1.59)
	pt3dadd(32.8052, 76.8508, 49.3944, 1.59)
	pt3dadd(32.9552, 77.1308, 49.7744, 1.59)
	pt3dadd(33.5452, 77.5408, 50.6344, 1.59)
	pt3dadd(33.5452, 77.5408, 50.6844, 1.59)
	pt3dadd(34.1252, 77.2308, 52.5244, 1.59)
	pt3dadd(34.7752, 76.6308, 52.4744, 1.27)
	pt3dadd(36.0852, 78.4608, 55.5444, 1.27)
	pt3dadd(36.3152, 78.6908, 55.5444, 1.27)
	pt3dadd(36.0252, 80.7408, 56.4644, 1.27)
	pt3dadd(35.5352, 81.6508, 56.4644, 1.27)
	pt3dadd(35.7552, 81.8808, 56.4644, 1.27)
	pt3dadd(35.2452, 83.7008, 58.3044, 1.27)
	pt3dadd(35.9052, 84.8508, 60.2444, 1.27)
	pt3dadd(35.8852, 85.3008, 60.2444, 1.27)
	pt3dadd(36.0852, 86.4408, 60.3044, 1.27)
	pt3dadd(36.0852, 86.4408, 60.6244, 1.27)
	pt3dadd(36.9252, 88.7308, 61.3244, 1.27)
	pt3dadd(38.4552, 91.2508, 60.7344, 1.27)
	pt3dadd(37.7352, 92.3808, 60.8444, 1.27)
	pt3dadd(38.1752, 92.8408, 60.8944, 1.27)
	pt3dadd(38.3652, 93.9808, 62.5144, 1.27)
	pt3dadd(39.0252, 95.1308, 64.4544, 1.27)
	pt3dadd(38.7852, 95.3508, 64.4544, 1.27)
	pt3dadd(38.3552, 94.4408, 65.9144, 1.27)
	pt3dadd(38.1252, 94.6708, 66.2944, 1.27)
	pt3dadd(38.1452, 93.7508, 69.3744, 1.27)
	pt3dadd(38.3852, 93.5308, 69.3744, 1.27)
	pt3dadd(39.3252, 92.6208, 70.7744, 1.27)
	pt3dadd(39.3252, 92.6208, 70.8844, 1.27)
	pt3dadd(39.2952, 93.5308, 72.7244, 1.27)
	pt3dadd(39.2952, 93.5308, 72.9344, 1.27)
	pt3dadd(39.0752, 93.3008, 74.0744, 1.27)
	pt3dadd(39.0752, 93.3008, 74.7144, 1.27)
	pt3dadd(38.6052, 93.7608, 74.8244, 1.27)
	pt3dadd(38.8252, 93.9908, 74.8244, 1.27)
	pt3dadd(39.2652, 94.4408, 74.8244, 1.27)
	pt3dadd(40.8352, 95.5908, 76.7144, 1.27)
	pt3dadd(40.8352, 95.5908, 76.9844, 1.27)
	pt3dadd(41.0552, 95.8208, 77.2044, 1.27)
	pt3dadd(41.0552, 95.8208, 78.2244, 1.27)
	pt3dadd(40.8052, 96.5008, 78.6644, 1.27)
	pt3dadd(41.0252, 96.7308, 79.2544, 1.27)
	pt3dadd(41.2452, 96.9608, 80.3844, 1.27)
	pt3dadd(41.2452, 96.9608, 80.7644, 1.27)
	pt3dadd(42.8252, 97.6608, 81.1444, 1.27)
	pt3dadd(42.8252, 97.6608, 81.5244, 1.27)
	pt3dadd(43.4852, 98.3408, 83.3544, 1.27)
	pt3dadd(43.4852, 98.3408, 83.8944, 1.27)
	pt3dadd(43.0052, 99.2508, 84.6544, 1.27)
	pt3dadd(43.2252, 99.4808, 85.0344, 1.27)
	pt3dadd(43.6752, 99.9408, 86.8144, 1.27)
	pt3dadd(43.6752, 99.9408, 87.1944, 1.27)
	pt3dadd(43.4052, 101.081, 87.3544, 1.27)
	pt3dadd(43.6252, 101.311, 87.9444, 1.27)
	pt3dadd(42.8952, 102.901, 88.5444, 1.27)
	pt3dadd(42.6352, 104.041, 91.5644, 1.27)
	pt3dadd(42.6352, 104.041, 91.6244, 1.27)
	pt3dadd(43.2852, 105.191, 93.5144, 1.27)
	pt3dadd(43.4652, 106.781, 96.3144, 1.27)
	pt3dadd(43.4652, 106.781, 96.4844, 1.27)
	pt3dadd(43.6852, 107.011, 98.0444, 1.27)
	pt3dadd(46.3652, 109.311, 100.854, 1.27)
	pt3dadd(47.5252, 108.631, 102.524, 1.27)
	pt3dadd(49.4152, 110.181, 103.394, 0.64)
	pt3dadd(49.4152, 110.181, 103.444, 0.64)
	pt3dadd(50.7552, 110.111, 104.254, 0.64)
	pt3dadd(52.5052, 110.241, 105.224, 0.64)
	pt3dadd(52.5052, 110.241, 105.284, 0.64)
    }
}

proc shape3d_dend1_9() {
    dend[29] {pt3dclear()
	pt3dadd(41.9352, 38.3208, -8.44559, 1.27)
	pt3dadd(42.7652, 39.1508, -9.8456, 1.27)
	pt3dadd(42.4452, 39.0808, -9.8456, 1.27)
	pt3dadd(43.0152, 39.5308, -12.0556, 1.27)
	pt3dadd(43.3252, 41.2208, -14.3856, 1.27)
	pt3dadd(44.1452, 42.0508, -14.9756, 1.27)
	pt3dadd(43.5052, 41.9108, -17.5656, 1.27)
	pt3dadd(43.1952, 41.8508, -17.5656, 1.27)
	pt3dadd(42.8552, 43.4108, -17.8956, 1.27)
	pt3dadd(44.0752, 43.9908, -17.9956, 0.64)
	pt3dadd(45.9852, 44.4008, -18.7556, 0.64)
	pt3dadd(44.6352, 46.0608, -21.7756, 0.64)
	pt3dadd(46.1452, 48.3408, -23.7256, 0.64)
	pt3dadd(46.1452, 48.3408, -23.7756, 0.64)
	pt3dadd(46.9052, 49.4808, -24.3756, 0.64)
	pt3dadd(48.1052, 51.6908, -24.9156, 1.27)
	pt3dadd(48.4252, 51.7608, -24.9156, 1.27)
	pt3dadd(48.3452, 53.7008, -26.3656, 1.27)
	pt3dadd(49.4252, 54.9008, -26.0456, 1.27)
	pt3dadd(49.1052, 54.8408, -26.0456, 1.27)
	pt3dadd(49.7152, 56.9008, -25.5056, 1.27)
	pt3dadd(51.8852, 57.6808, -25.5056, 1.27)
	pt3dadd(52.9552, 58.8908, -25.9356, 1.27)
	pt3dadd(54.1052, 59.7808, -24.8056, 1.27)
	pt3dadd(56.7852, 61.3308, -25.6656, 1.27)
	pt3dadd(56.7852, 61.3308, -26.2056, 1.27)
	pt3dadd(57.5352, 62.4708, -27.0156, 1.27)
	pt3dadd(57.5352, 62.4708, -27.1256, 1.27)
	pt3dadd(58.8752, 64.0608, -27.6656, 1.27)
	pt3dadd(58.5552, 63.9908, -27.6656, 1.27)
	pt3dadd(58.4152, 64.6108, -28.3656, 1.27)
	pt3dadd(58.4152, 64.6108, -28.0456, 1.27)
	pt3dadd(56.8752, 65.5908, -27.7756, 1.27)
	pt3dadd(56.9952, 66.5908, -28.9656, 1.27)
	pt3dadd(58.3852, 69.4908, -29.1756, 1.27)
	pt3dadd(58.3852, 69.4908, -29.2356, 1.27)
	pt3dadd(59.4652, 70.7008, -29.4456, 1.27)
	pt3dadd(59.3952, 71.0108, -29.5056, 1.27)
	pt3dadd(60.4052, 72.5308, -30.2056, 1.27)
	pt3dadd(61.3652, 72.7308, -30.3656, 1.27)
	pt3dadd(63.6552, 74.5208, -29.7156, 1.27)
	pt3dadd(63.3352, 74.4608, -29.7156, 1.27)
	pt3dadd(65.1152, 75.4908, -29.8756, 1.27)
	pt3dadd(65.1152, 75.4908, -30.3656, 1.27)
	pt3dadd(69.2052, 76.6808, -31.0156, 1.27)
	pt3dadd(71.0452, 79.0308, -31.0156, 1.27)
	pt3dadd(71.2252, 79.7208, -31.0156, 1.27)
	pt3dadd(71.6652, 80.7908, -30.0956, 1.27)
	pt3dadd(72.2952, 82.5508, -31.7156, 1.27)
	pt3dadd(72.7252, 85.2508, -31.6656, 1.27)
	pt3dadd(72.1252, 88.0608, -31.5556, 1.27)
	pt3dadd(73.2052, 89.2608, -31.5556, 1.27)
	pt3dadd(74.9752, 91.9208, -30.6356, 1.27)
	pt3dadd(77.1352, 94.3308, -28.4756, 1.27)
	pt3dadd(79.3552, 96.4408, -28.9656, 1.27)
	pt3dadd(79.3552, 96.4408, -29.5556, 1.27)
	pt3dadd(81.0852, 96.1508, -30.4156, 1.27)
	pt3dadd(81.0852, 96.1508, -30.9056, 1.27)
	pt3dadd(82.8852, 95.5608, -30.4156, 1.27)
	pt3dadd(83.5252, 95.6908, -31.7656, 1.27)
	pt3dadd(83.5252, 95.6908, -31.7156, 1.27)
	pt3dadd(84.0852, 97.7708, -34.5756, 1.27)
	pt3dadd(84.0852, 97.7708, -34.7956, 1.27)
	pt3dadd(83.8852, 98.7008, -35.0656, 1.27)
	pt3dadd(83.1652, 100.501, -36.4656, 1.27)
	pt3dadd(83.1652, 100.501, -37.1656, 1.27)
	pt3dadd(82.5852, 101.681, -38.8956, 1.27)
	pt3dadd(84.7552, 102.471, -39.0556, 1.27)
	pt3dadd(85.5152, 103.611, -38.9556, 1.27)
	pt3dadd(85.1952, 103.541, -38.9556, 1.27)
	pt3dadd(86.0752, 105.681, -37.2256, 1.27)
	pt3dadd(85.7552, 105.611, -37.2256, 1.27)
	pt3dadd(86.1252, 107.001, -37.1656, 1.27)
	pt3dadd(86.8152, 108.451, -37.1656, 1.27)
	pt3dadd(87.9552, 110.971, -36.2556, 1.27)
	pt3dadd(88.2052, 111.351, -36.2556, 1.27)
	pt3dadd(88.8352, 113.111, -36.1956, 1.27)
	pt3dadd(90.9852, 115.531, -35.4456, 1.27)
	pt3dadd(91.4152, 118.221, -35.4456, 1.27)
	pt3dadd(92.2952, 120.371, -34.4156, 1.27)
	pt3dadd(92.7952, 122.751, -34.1456, 1.27)
	pt3dadd(93.4152, 124.511, -33.3356, 1.27)
	pt3dadd(95.7052, 126.301, -34.0356, 1.27)
	pt3dadd(95.7052, 126.301, -34.0956, 1.27)
	pt3dadd(97.1752, 127.271, -35.1756, 1.27)
	pt3dadd(98.9052, 126.981, -37.3856, 1.27)
	pt3dadd(101.285, 128.171, -37.9256, 1.27)
	pt3dadd(102.545, 130.071, -38.9556, 1.27)
	pt3dadd(104.075, 130.721, -38.7356, 1.27)
	pt3dadd(105.865, 131.751, -39.9256, 1.27)
	pt3dadd(106.485, 133.511, -40.7856, 1.27)
	pt3dadd(108.335, 134.231, -40.0856, 1.27)
	pt3dadd(109.295, 134.441, -40.8956, 1.27)
	pt3dadd(111.905, 136.291, -41.1656, 1.27)
	pt3dadd(111.905, 136.291, -40.8956, 1.27)
	pt3dadd(112.665, 137.431, -39.5956, 1.27)
	pt3dadd(113.495, 138.261, -40.5156, 1.27)
	pt3dadd(115.525, 139.671, -42.3556, 1.27)
	pt3dadd(115.325, 140.611, -43.0056, 1.27)
	pt3dadd(115.005, 140.541, -43.0056, 1.27)
	pt3dadd(116.595, 142.501, -43.0056, 1.27)
	pt3dadd(117.285, 143.951, -43.9156, 1.27)
	pt3dadd(117.285, 143.951, -43.9756, 1.27)
	pt3dadd(120.095, 144.881, -44.0256, 1.27)
	pt3dadd(120.025, 145.191, -44.0256, 1.27)
	pt3dadd(121.875, 145.911, -43.8156, 1.27)
	pt3dadd(121.555, 145.841, -43.8156, 1.27)
	pt3dadd(123.345, 146.871, -41.9256, 1.27)
	pt3dadd(123.345, 146.871, -42.1356, 1.27)
	pt3dadd(125.715, 146.721, -40.8456, 1.27)
	pt3dadd(127.815, 147.821, -41.8656, 0.96)
	pt3dadd(130.025, 151.551, -42.0856, 0.96)
	pt3dadd(129.705, 151.481, -42.0856, 0.96)
    }
}

proc shape3d_dend4_10() {
    dend[30] {pt3dclear()
	pt3dadd(105.505, 132.741, 128.014, 0.96)
	pt3dadd(105.875, 133.961, 128.444, 0.96)
	pt3dadd(105.565, 134.061, 128.444, 0.96)
    }
}

proc shape3d_dend4_11() {
    dend[31] {pt3dclear()
	pt3dadd(105.505, 132.741, 128.014, 0.96)
	pt3dadd(106.535, 132.761, 126.074, 0.96)
	pt3dadd(106.535, 132.761, 126.014, 0.96)
	pt3dadd(107.475, 132.481, 124.564, 0.96)
	pt3dadd(108.185, 132.591, 124.124, 0.96)
	pt3dadd(108.185, 132.591, 124.024, 0.96)
	pt3dadd(109.715, 133.121, 123.804, 0.96)
	pt3dadd(109.055, 134.321, 123.424, 0.96)
	pt3dadd(109.055, 134.321, 123.534, 0.96)
	pt3dadd(109.245, 134.931, 123.854, 0.96)
	pt3dadd(109.335, 135.241, 124.504, 0.96)
	pt3dadd(108.365, 136.531, 125.154, 0.96)
	pt3dadd(108.055, 136.631, 125.374, 0.96)
	pt3dadd(107.935, 137.331, 125.914, 0.96)
	pt3dadd(108.025, 137.641, 126.994, 0.96)
    }
}

proc shape3d_dend4_12() {
    dend[32] {pt3dclear()
	pt3dadd(85.1052, 148.691, 114.574, 1.27)
	pt3dadd(83.7552, 148.771, 114.624, 1.27)
	pt3dadd(83.4452, 148.871, 114.624, 1.27)
	pt3dadd(83.5052, 150.181, 113.594, 1.27)
	pt3dadd(82.7552, 151.081, 113.384, 1.27)
	pt3dadd(81.6952, 152.071, 111.974, 1.27)
	pt3dadd(81.5652, 152.771, 111.874, 1.27)
	pt3dadd(80.8552, 152.661, 110.354, 1.27)
	pt3dadd(80.7252, 153.361, 109.714, 1.27)
	pt3dadd(78.9452, 154.241, 108.794, 0.64)
	pt3dadd(76.4452, 155.011, 108.794, 0.64)
	pt3dadd(74.2652, 155.671, 107.714, 0.64)
	pt3dadd(74.2652, 155.671, 107.554, 0.64)
	pt3dadd(74.2652, 155.671, 106.574, 0.64)
	pt3dadd(74.2652, 155.671, 106.474, 0.64)
    }
}

proc shape3d_dend4_13() {
    dend[33] {pt3dclear()
	pt3dadd(85.1052, 148.691, 114.574, 0.96)
	pt3dadd(85.8452, 151.131, 114.784, 0.96)
	pt3dadd(85.0952, 152.031, 113.384, 0.96)
	pt3dadd(85.0952, 152.031, 113.274, 0.96)
	pt3dadd(84.1552, 152.311, 112.084, 0.96)
	pt3dadd(83.8452, 152.411, 111.974, 0.96)
	pt3dadd(82.6952, 153.101, 111.974, 0.96)
	pt3dadd(80.2252, 156.181, 110.794, 0.96)
	pt3dadd(80.2252, 156.181, 111.064, 0.96)
	pt3dadd(78.7252, 157.981, 110.794, 0.96)
	pt3dadd(78.7252, 157.981, 110.684, 0.96)
	pt3dadd(78.3752, 159.081, 110.464, 0.96)
	pt3dadd(78.1552, 159.481, 109.654, 0.96)
	pt3dadd(79.0852, 162.531, 110.954, 0.96)
	pt3dadd(78.9652, 163.241, 110.954, 0.96)
    }
}

proc shape3d_dend4_14() {
    dend[34] {pt3dclear()
	pt3dadd(105.565, 134.061, 128.444, 1.27)
	pt3dadd(105.215, 135.161, 129.744, 1.27)
	pt3dadd(104.155, 136.161, 130.394, 1.27)
	pt3dadd(105.125, 138.191, 131.584, 1.27)
	pt3dadd(105.125, 138.191, 131.634, 1.27)
	pt3dadd(106.525, 139.431, 132.394, 1.27)
	pt3dadd(107.205, 140.561, 133.204, 1.27)
	pt3dadd(107.805, 141.371, 133.744, 1.27)
	pt3dadd(107.985, 141.981, 135.684, 1.27)
	pt3dadd(109.385, 143.221, 135.414, 1.27)
	pt3dadd(109.985, 144.041, 135.364, 1.27)
	pt3dadd(111.295, 144.971, 135.684, 1.27)
	pt3dadd(113.155, 147.731, 135.464, 1.27)
	pt3dadd(116.995, 146.891, 136.874, 1.27)
	pt3dadd(117.275, 147.811, 137.734, 1.27)
	pt3dadd(117.465, 148.421, 138.334, 1.27)
	pt3dadd(117.275, 151.141, 140.384, 1.27)
	pt3dadd(118.085, 151.561, 142.544, 1.27)
	pt3dadd(118.085, 151.561, 142.704, 1.27)
	pt3dadd(118.865, 152.991, 142.924, 1.27)
	pt3dadd(119.675, 153.411, 143.734, 1.27)
	pt3dadd(119.795, 152.701, 146.644, 1.27)
	pt3dadd(119.795, 152.701, 146.704, 1.27)
	pt3dadd(119.795, 152.701, 147.944, 1.27)
	pt3dadd(120.425, 152.511, 148.754, 1.27)
	pt3dadd(120.735, 152.421, 150.914, 1.27)
	pt3dadd(120.425, 152.511, 151.994, 1.27)
	pt3dadd(119.615, 152.091, 151.994, 1.27)
	pt3dadd(118.615, 151.071, 151.994, 1.27)
	pt3dadd(118.305, 151.161, 151.994, 1.27)
	pt3dadd(118.025, 150.251, 152.044, 1.27)
	pt3dadd(117.745, 149.331, 152.104, 1.27)
	pt3dadd(117.555, 148.721, 152.104, 1.27)
	pt3dadd(117.185, 147.501, 152.154, 1.27)
	pt3dadd(117.095, 147.201, 152.314, 1.27)
    }
}

proc shape3d_dend4_15() {
    dend[35] {pt3dclear()
	pt3dadd(105.565, 134.061, 128.444, 0.96)
	pt3dadd(104.565, 136.361, 127.964, 0.96)
	pt3dadd(105.435, 138.101, 127.964, 0.96)
	pt3dadd(105.275, 139.811, 128.504, 0.96)
	pt3dadd(105.055, 140.211, 128.504, 0.96)
	pt3dadd(104.395, 141.411, 128.504, 0.96)
	pt3dadd(103.705, 143.621, 129.794, 0.96)
	pt3dadd(102.865, 144.221, 130.984, 0.96)
	pt3dadd(102.425, 145.021, 131.044, 0.96)
    }
}

proc shape3d_dend1_10() {
    dend[36] {pt3dclear()
	pt3dadd(54.53, 42.6, -28.89, 2.23)
	pt3dadd(56.51, 41.47, -28.89, 2.23)
	pt3dadd(57.36, 40.99, -28.89, 2.23)
	pt3dadd(59.66, 40.41, -28.89, 1.59)
	pt3dadd(61.27, 40.59, -30.83, 1.59)
	pt3dadd(61.27, 40.59, -30.94, 1.59)
	pt3dadd(62, 40.54, -31, 1.59)
	pt3dadd(62, 40.54, -31.05, 1.59)
	pt3dadd(63.45, 40.45, -31.37, 1.59)
	pt3dadd(65.91, 40.15, -30.89, 1.59)
	pt3dadd(65.91, 40.15, -31.21, 1.59)
	pt3dadd(70.95, 39.1, -32.35, 1.59)
	pt3dadd(71.8, 38.62, -31.54, 1.59)
	pt3dadd(76.02, 38.77, -32.72, 1.59)
	pt3dadd(76.02, 38.77, -32.67, 1.59)
	pt3dadd(77.76, 38.52, -33.59, 1.59)
	pt3dadd(77.47, 38.68, -33.59, 1.59)
	pt3dadd(79.81, 38.82, -33.26, 1.59)
	pt3dadd(79.52, 38.98, -33.26, 1.59)
	pt3dadd(82.74, 39.35, -34.07, 1.59)
	pt3dadd(83.75, 39.14, -34.07, 1.59)
	pt3dadd(85.64, 39.16, -34.78, 1.59)
	pt3dadd(88.45, 40.12, -34.24, 1.59)
	pt3dadd(89.93, 40.75, -34.88, 1.59)
	pt3dadd(90.66, 40.7, -36.77, 1.59)
	pt3dadd(91.1, 40.81, -36.77, 1.59)
    }
}

proc shape3d_dend1_11() {
    dend[37] {pt3dclear()
	pt3dadd(54.53, 42.6, -28.89, 1.59)
	pt3dadd(55.6, 43.83, -28.89, 1.59)
	pt3dadd(57.33, 43.57, -29.97, 1.59)
	pt3dadd(58.91, 43.04, -30.62, 1.59)
	pt3dadd(60.8, 43.06, -31.27, 1.59)
	pt3dadd(63.29, 43.47, -31.27, 1.59)
	pt3dadd(65.18, 43.49, -32.51, 1.59)
	pt3dadd(65.18, 43.49, -32.56, 1.59)
	pt3dadd(68.37, 43.14, -33.53, 1.59)
	pt3dadd(68.24, 43.58, -33.53, 1.59)
	pt3dadd(70.13, 43.6, -34.02, 1.59)
	pt3dadd(72.15, 43.19, -34.83, 1.59)
	pt3dadd(74.64, 43.6, -34.45, 1.59)
	pt3dadd(76.44, 44.78, -35.75, 1.59)
	pt3dadd(76.44, 44.78, -35.8, 1.59)
	pt3dadd(77.48, 45.28, -36.18, 1.59)
	pt3dadd(77.48, 45.28, -36.13, 1.59)
	pt3dadd(78.24, 45.95, -36.13, 1.59)
	pt3dadd(79.57, 46.3, -36.07, 1.59)
	pt3dadd(81.58, 45.88, -35.8, 1.59)
	pt3dadd(81.58, 45.88, -35.96, 1.59)
	pt3dadd(82.75, 45.95, -39.04, 1.59)
	pt3dadd(84.55, 47.12, -40.55, 1.59)
	pt3dadd(84.55, 47.12, -40.61, 1.59)
	pt3dadd(85.02, 47.95, -41.04, 1.59)
	pt3dadd(84.65, 49.27, -41.36, 1.59)
	pt3dadd(86.25, 49.45, -43.25, 1.59)
	pt3dadd(86.7, 49.57, -43.31, 1.59)
	pt3dadd(86.41, 49.73, -43.31, 1.59)
	pt3dadd(87.45, 50.24, -44.98, 1.59)
	pt3dadd(87.89, 50.35, -46.66, 1.59)
	pt3dadd(87.89, 50.35, -46.76, 1.59)
	pt3dadd(89.47, 49.82, -52.49, 0.96)
	pt3dadd(89.47, 49.82, -52.6, 0.96)
	pt3dadd(91.33, 49.12, -53.95, 0.96)
	pt3dadd(91.49, 49.4, -54.22, 0.96)
	pt3dadd(92.5, 49.19, -54.49, 0.96)
	pt3dadd(92.5, 49.19, -55.13, 0.96)
	pt3dadd(93.91, 48.38, -56.59, 0.96)
	pt3dadd(93.91, 48.38, -56.65, 0.96)
    }
}

proc shape3d_dend1_12() {
    dend[38] {pt3dclear()
	pt3dadd(91.1, 40.81, -36.77, 1.27)
	pt3dadd(92.26, 40.88, -38.18, 1.27)
	pt3dadd(91.98, 41.04, -38.18, 1.27)
	pt3dadd(92.71, 41, -40.39, 1.27)
	pt3dadd(94.06, 42.06, -42.71, 1.27)
	pt3dadd(95.23, 42.13, -43.31, 1.27)
	pt3dadd(94.66, 42.45, -45.9, 1.27)
	pt3dadd(94.38, 42.61, -45.9, 1.27)
	pt3dadd(95.17, 44, -46.22, 1.27)
	pt3dadd(96.46, 43.62, -46.33, 0.64)
	pt3dadd(98.16, 42.65, -47.09, 0.64)
	pt3dadd(98.26, 44.8, -50.11, 0.64)
	pt3dadd(100.91, 45.49, -52.06, 0.64)
	pt3dadd(100.91, 45.49, -52.11, 0.64)
	pt3dadd(102.23, 45.84, -52.7, 0.64)
	pt3dadd(104.6, 46.69, -53.24, 1.27)
	pt3dadd(104.88, 46.52, -53.24, 1.27)
	pt3dadd(106.11, 48.02, -54.7, 1.27)
	pt3dadd(107.72, 48.21, -54.38, 1.27)
	pt3dadd(107.44, 48.37, -54.38, 1.27)
	pt3dadd(109.26, 49.5, -53.84, 1.27)
	pt3dadd(111.4, 48.65, -53.84, 1.27)
	pt3dadd(113.01, 48.83, -54.27, 1.27)
	pt3dadd(114.46, 48.74, -53.14, 1.27)
	pt3dadd(117.49, 48.11, -54, 1.27)
	pt3dadd(117.49, 48.11, -54.54, 1.27)
	pt3dadd(118.81, 48.46, -55.35, 1.27)
	pt3dadd(118.81, 48.46, -55.46, 1.27)
	pt3dadd(120.86, 48.75, -56, 1.27)
	pt3dadd(120.58, 48.92, -56, 1.27)
	pt3dadd(120.9, 49.47, -56.7, 1.27)
	pt3dadd(120.9, 49.47, -56.38, 1.27)
	pt3dadd(120.39, 51.23, -56.11, 1.27)
	pt3dadd(121.15, 51.89, -57.29, 1.27)
	pt3dadd(124.12, 53.14, -57.51, 1.27)
	pt3dadd(124.12, 53.14, -57.56, 1.27)
	pt3dadd(125.72, 53.32, -57.78, 1.27)
	pt3dadd(125.88, 53.6, -57.83, 1.27)
	pt3dadd(127.65, 54.06, -58.54, 1.27)
	pt3dadd(128.5, 53.57, -58.7, 1.27)
	pt3dadd(131.4, 53.38, -58.05, 1.27)
	pt3dadd(131.12, 53.55, -58.05, 1.27)
	pt3dadd(133.13, 53.13, -58.21, 1.27)
	pt3dadd(133.13, 53.13, -58.7, 1.27)
	pt3dadd(136.98, 51.3, -59.35, 1.27)
	pt3dadd(139.91, 51.83, -59.35, 1.27)
	pt3dadd(140.51, 52.22, -59.35, 1.27)
	pt3dadd(141.55, 52.73, -58.43, 1.27)
	pt3dadd(143.19, 53.63, -60.05, 1.27)
	pt3dadd(145.31, 55.36, -59.99, 1.27)
	pt3dadd(146.73, 57.85, -59.89, 1.27)
	pt3dadd(148.34, 58.03, -59.89, 1.27)
	pt3dadd(151.43, 58.83, -58.97, 1.27)
	pt3dadd(154.64, 59.2, -56.81, 1.27)
	pt3dadd(157.7, 59.29, -57.29, 1.27)
	pt3dadd(157.7, 59.29, -57.89, 1.27)
	pt3dadd(158.8, 57.93, -58.75, 1.27)
	pt3dadd(158.8, 57.93, -59.24, 1.27)
	pt3dadd(159.75, 56.29, -58.75, 1.27)
	pt3dadd(160.32, 55.96, -60.1, 1.27)
	pt3dadd(160.32, 55.96, -60.05, 1.27)
	pt3dadd(162.11, 57.14, -62.91, 1.27)
	pt3dadd(162.11, 57.14, -63.13, 1.27)
	pt3dadd(162.59, 57.97, -63.4, 1.27)
	pt3dadd(163.25, 59.79, -64.8, 1.27)
	pt3dadd(163.25, 59.79, -65.5, 1.27)
	pt3dadd(163.6, 61.06, -67.23, 1.27)
	pt3dadd(165.74, 60.21, -67.39, 1.27)
	pt3dadd(167.07, 60.55, -67.28, 1.27)
	pt3dadd(166.79, 60.71, -67.28, 1.27)
	pt3dadd(168.87, 61.73, -65.56, 1.27)
	pt3dadd(168.58, 61.89, -65.56, 1.27)
	pt3dadd(169.78, 62.67, -65.5, 1.27)
	pt3dadd(171.27, 63.29, -65.5, 1.27)
	pt3dadd(173.79, 64.42, -64.58, 1.27)
	pt3dadd(174.23, 64.54, -64.58, 1.27)
	pt3dadd(175.87, 65.44, -64.53, 1.27)
	pt3dadd(179.09, 65.8, -63.77, 1.27)
	pt3dadd(181.2, 67.53, -63.77, 1.27)
	pt3dadd(183.29, 68.54, -62.75, 1.27)
	pt3dadd(185.24, 70, -62.48, 1.27)
	pt3dadd(186.88, 70.89, -61.67, 1.27)
	pt3dadd(189.78, 70.71, -62.37, 1.27)
	pt3dadd(189.78, 70.71, -62.42, 1.27)
	pt3dadd(191.52, 70.45, -63.5, 1.27)
	pt3dadd(192.62, 69.09, -65.72, 1.27)
	pt3dadd(195.19, 68.39, -66.26, 1.27)
	pt3dadd(197.39, 68.96, -67.28, 1.27)
    }
}

proc shape3d_dend1_13() {
    dend[39] {pt3dclear()
	pt3dadd(91.1, 40.81, -36.77, 1.27)
	pt3dadd(89.74, 43.05, -35.26, 1.27)
	pt3dadd(92.45, 41.87, -38.45, 1.27)
	pt3dadd(92.45, 41.87, -38.23, 1.27)
	pt3dadd(93.81, 42.94, -38.02, 1.27)
	pt3dadd(93.53, 43.1, -38.02, 1.27)
	pt3dadd(95.29, 43.56, -37.58, 1.27)
	pt3dadd(96.43, 46.21, -36.77, 1.27)
	pt3dadd(95.96, 48.68, -35.75, 1.27)
	pt3dadd(95.71, 49.56, -35.42, 1.27)
	pt3dadd(95.43, 49.72, -35.42, 1.27)
	pt3dadd(95.27, 49.44, -35.32, 1.27)
	pt3dadd(95.27, 49.44, -35.26, 1.27)
	pt3dadd(95.97, 51.98, -33.97, 1.27)
	pt3dadd(96.76, 53.36, -33.8, 1.27)
	pt3dadd(97.07, 53.92, -33.64, 1.27)
	pt3dadd(97.23, 54.2, -33.64, 1.27)
	pt3dadd(99.06, 56.09, -32.62, 1.27)
	pt3dadd(98.56, 57.84, -30.89, 1.27)
	pt3dadd(98.37, 59.74, -29.86, 1.27)
	pt3dadd(98.78, 59.55, -29.81, 1.27)
	pt3dadd(100.11, 60.13, -29.38, 1.27)
	pt3dadd(101.48, 58.95, -29.32, 1.27)
	pt3dadd(103.68, 59.42, -26.62, 1.27)
	pt3dadd(103.68, 59.42, -25.97, 1.27)
	pt3dadd(103.27, 59.61, -26.57, 1.59)
	pt3dadd(103.27, 59.61, -23.87, 1.59)
	pt3dadd(103.16, 59.92, -23.49, 1.59)
	pt3dadd(102.86, 59.81, -22.46, 1.59)
	pt3dadd(102.86, 59.81, -21.82, 1.59)
	pt3dadd(102.45, 60.01, -18.31, 1.59)
	pt3dadd(102.33, 60.31, -15.07, 1.59)
	pt3dadd(102.33, 60.31, -14.8, 1.59)
	pt3dadd(102.89, 61.56, -12.8, 1.59)
	pt3dadd(102.59, 61.45, -11.66, 1.59)
	pt3dadd(101.95, 62.26, -10.91, 1.59)
	pt3dadd(101.95, 62.26, -10.48, 1.59)
	pt3dadd(101.31, 63.07, -9.18, 1.59)
	pt3dadd(102.1, 63.71, -6.26, 1.59)
	pt3dadd(101.05, 64.71, -5.56, 1.59)
	pt3dadd(101.05, 64.71, -5.18, 1.59)
	pt3dadd(102.54, 65.26, -4.32, 1.59)
	pt3dadd(103.14, 65.48, -2.7, 1.59)
	pt3dadd(103.14, 65.48, -2.43, 1.59)
	pt3dadd(103.88, 67.15, -0.59, 1.59)
	pt3dadd(104.22, 66.23, 1.24, 1.59)
	pt3dadd(104.22, 66.23, 1.3, 1.59)
	pt3dadd(106.13, 66.59, 2.11, 1.59)
	pt3dadd(108.15, 66.64, 3.13, 1.59)
	pt3dadd(108.93, 67.28, 3.56, 1.59)
	pt3dadd(108.93, 67.28, 3.94, 1.59)
	pt3dadd(110.61, 68.25, 5.35, 1.59)
	pt3dadd(110.61, 68.25, 5.72, 1.59)
	pt3dadd(111.74, 67.96, 7.88, 1.59)
	pt3dadd(111.74, 67.96, 7.99, 1.59)
	pt3dadd(112.22, 68.49, 9.61, 1.59)
	pt3dadd(112.22, 68.49, 9.88, 1.59)
	pt3dadd(111.73, 70.75, 10.96, 1.59)
	pt3dadd(112.29, 72, 12.47, 1.59)
	pt3dadd(112.29, 72, 12.96, 1.59)
	pt3dadd(111.95, 72.91, 15.39, 1.59)
	pt3dadd(111.95, 72.91, 15.44, 1.59)
	pt3dadd(111.54, 73.11, 16.74, 1.59)
	pt3dadd(111.54, 73.11, 17.28, 1.59)
	pt3dadd(110.3, 73.7, 18.63, 1.59)
	pt3dadd(110.3, 73.7, 19.06, 1.59)
	pt3dadd(109.96, 74.62, 19.17, 1.59)
	pt3dadd(110.74, 75.25, 20.47, 1.59)
	pt3dadd(110.74, 75.25, 20.63, 1.59)
	pt3dadd(109.92, 75.65, 21.06, 1.59)
	pt3dadd(110.22, 75.76, 21.44, 1.59)
	pt3dadd(110.93, 75.67, 22.3, 1.59)
	pt3dadd(110.93, 75.67, 22.36, 1.59)
	pt3dadd(111.16, 75.06, 24.19, 1.59)
	pt3dadd(111.24, 74.18, 24.14, 1.27)
	pt3dadd(113.44, 74.67, 27.22, 1.27)
	pt3dadd(113.76, 74.69, 27.22, 1.27)
	pt3dadd(114.91, 76.41, 28.13, 1.27)
	pt3dadd(115.16, 77.42, 28.13, 1.27)
	pt3dadd(115.47, 77.44, 28.13, 1.27)
	pt3dadd(116.31, 79.14, 29.97, 1.27)
	pt3dadd(117.55, 79.56, 31.91, 1.27)
	pt3dadd(117.85, 79.91, 31.91, 1.27)
	pt3dadd(118.75, 80.63, 31.97, 1.27)
	pt3dadd(118.75, 80.63, 32.29, 1.27)
	pt3dadd(120.9, 81.77, 32.99, 1.27)
	pt3dadd(123.71, 82.64, 32.4, 1.27)
	pt3dadd(123.93, 83.97, 32.51, 1.27)
	pt3dadd(124.57, 84.01, 32.56, 1.27)
	pt3dadd(125.47, 84.74, 34.18, 1.27)
	pt3dadd(126.72, 85.16, 36.13, 1.27)
	pt3dadd(126.7, 85.48, 36.13, 1.27)
	pt3dadd(125.77, 85.09, 37.58, 1.27)
	pt3dadd(125.74, 85.41, 37.96, 1.27)
	pt3dadd(125.16, 84.71, 41.04, 1.27)
	pt3dadd(125.18, 84.39, 41.04, 1.27)
	pt3dadd(125.28, 83.08, 42.44, 1.27)
	pt3dadd(125.28, 83.08, 42.55, 1.27)
	pt3dadd(125.87, 83.78, 44.39, 1.27)
	pt3dadd(125.87, 83.78, 44.6, 1.27)
	pt3dadd(125.55, 83.76, 45.74, 1.27)
	pt3dadd(125.55, 83.76, 46.39, 1.27)
	pt3dadd(125.5, 84.41, 46.49, 1.27)
	pt3dadd(125.82, 84.43, 46.49, 1.27)
	pt3dadd(126.45, 84.48, 46.49, 1.27)
	pt3dadd(128.38, 84.3, 48.38, 1.27)
	pt3dadd(128.38, 84.3, 48.65, 1.27)
	pt3dadd(128.7, 84.32, 48.87, 1.27)
	pt3dadd(128.7, 84.32, 49.9, 1.27)
	pt3dadd(128.97, 85, 50.33, 1.27)
	pt3dadd(129.29, 85.02, 50.92, 1.27)
	pt3dadd(129.61, 85.05, 52.06, 1.27)
	pt3dadd(129.61, 85.05, 52.43, 1.27)
	pt3dadd(131.24, 84.51, 52.81, 1.27)
	pt3dadd(131.24, 84.51, 53.19, 1.27)
	pt3dadd(132.2, 84.58, 55.03, 1.27)
	pt3dadd(132.2, 84.58, 55.57, 1.27)
	pt3dadd(132.44, 85.59, 56.32, 1.27)
	pt3dadd(132.76, 85.61, 56.7, 1.27)
	pt3dadd(133.4, 85.66, 58.48, 1.27)
	pt3dadd(133.4, 85.66, 58.86, 1.27)
	pt3dadd(133.96, 86.68, 59.02, 1.27)
	pt3dadd(134.28, 86.7, 59.62, 1.27)
	pt3dadd(134.79, 88.38, 60.21, 1.27)
	pt3dadd(135.35, 89.4, 63.23, 1.27)
	pt3dadd(135.35, 89.4, 63.29, 1.27)
	pt3dadd(136.6, 89.83, 65.18, 1.27)
	pt3dadd(137.8, 90.9, 67.99, 1.27)
	pt3dadd(137.8, 90.9, 68.15, 1.27)
	pt3dadd(138.12, 90.92, 69.71, 1.27)
	pt3dadd(141.64, 90.86, 72.52, 1.27)
	pt3dadd(142.05, 89.58, 74.2, 1.27)
	pt3dadd(144.5, 89.48, 75.06, 0.64)
	pt3dadd(144.5, 89.48, 75.11, 0.64)
	pt3dadd(145.45, 88.53, 75.92, 0.64)
	pt3dadd(146.84, 87.46, 76.9, 0.64)
	pt3dadd(146.84, 87.46, 76.95, 0.64)
    }
}

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()
}

proc shape3d_dend2() {
    shape3d_dend2_1()
    shape3d_dend2_2()
    shape3d_dend2_3()
    shape3d_dend2_4()
    shape3d_dend2_5()
    shape3d_dend2_6()
    shape3d_dend2_7()
}

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

proc shape3d_dend4() {
    shape3d_dend4_1()
    shape3d_dend4_2()
    shape3d_dend4_3()
    shape3d_dend4_4()
    shape3d_dend4_5()
    shape3d_dend4_6()
    shape3d_dend4_7()
    shape3d_dend4_8()
    shape3d_dend4_9()
    shape3d_dend4_10()
    shape3d_dend4_11()
    shape3d_dend4_12()
    shape3d_dend4_13()
    shape3d_dend4_14()
    shape3d_dend4_15()
}

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

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

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

objref dend1
proc subset_dend1() {
    objref dend1
    dend1 = new SectionList()
    dend[3] dend1.append()
    dend[10] dend1.append()
    dend[11] dend1.append()
    dend[20] dend1.append()
    dend[21] dend1.append()
    dend[26] dend1.append()
    dend[27] dend1.append()
    dend[28] dend1.append()
    dend[29] dend1.append()
    dend[36] dend1.append()
    dend[37] dend1.append()
    dend[38] dend1.append()
    dend[39] dend1.append()
}

objref dend2
proc subset_dend2() {
    objref dend2
    dend2 = new SectionList()
    dend[2] dend2.append()
    dend[8] dend2.append()
    dend[9] dend2.append()
    dend[18] dend2.append()
    dend[19] dend2.append()
    dend[24] dend2.append()
    dend[25] dend2.append()
}

objref dend3
proc subset_dend3() {
    objref dend3
    dend3 = new SectionList()
    dend[1] dend3.append()
    dend[6] dend3.append()
    dend[7] dend3.append()
    dend[16] dend3.append()
    dend[17] dend3.append()
}

objref dend4
proc subset_dend4() {
    objref dend4
    dend4 = new SectionList()
    dend[0] dend4.append()
    dend[4] dend4.append()
    dend[5] dend4.append()
    dend[12] dend4.append()
    dend[13] dend4.append()
    dend[14] dend4.append()
    dend[15] dend4.append()
    dend[22] dend4.append()
    dend[23] dend4.append()
    dend[30] dend4.append()
    dend[31] dend4.append()
    dend[32] dend4.append()
    dend[33] dend4.append()
    dend[34] dend4.append()
    dend[35] dend4.append()
}

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

proc geomL() {
    soma.L=shortR
}

proc geom() {
    //soma
    soma.diam(0:0.097063216)=6.368168557:8.309116338
    soma.diam(0.097063216:0.199104032)=8.309116338:10.58732383
    soma.diam(0.199104032:0.293180687)=10.58732383:10.24187323
    soma.diam(0.293180687:0.392732703)=10.24187323:11.04440559
    soma.diam(0.392732703:0.49726232)=11.04440559:12.17337576
    soma.diam(0.49726232:0.594325535)=12.17337576:12.2804258
    soma.diam(0.594325535:0.696366351)=12.2804258:12.85109443
    soma.diam(0.696366351:0.792931807)=12.85109443:12.22149763
    soma.diam(0.792931807:0.887008462)=12.22149763:8.884200057
    soma.diam(0.887008462:1)=8.884200057:6.95419449
    //dend1
    dend[3].diam(0:1)=1.578186857:1.320208448
    dend[10].diam(0:1)=(1.00650473):(0.932999626)
    dend[11].diam(0:1)=0.944373146:1.065494696
    dend[20].diam(0:1)=0.701350968:0.464099274
    dend[21].diam(0:1)=(0.790737817):(0.870335232)
    dend[26].diam(0:1)=0.428293343:0.094124004
    dend[27].diam(0:1)=0.202020484:0.094124004
    dend[28].diam(0:1)=(0.612429623):(0.094124004)
    dend[29].diam(0:1)=(0.625517946):(0.094124004)
    dend[36].diam(0:1)=(0.869337976):(0.820465315)
    dend[37].diam(0:1)=(0.351566655):(0.094124004)
    dend[38].diam(0:1)=(0.553966143):(0.094124004)
    dend[39].diam(0:1)=(0.612490141):(0.094124004)
    //dend2
    dend[2].diam(0:0.449288614)=1.267509746:1.636332657
    dend[2].diam(0.449288614:0.62900406)=1.636332657:1.345343157
    dend[2].diam(0.62900406:1)=1.345343157:1.340275076
    dend[8].diam(0:1)=0.615804595:0.094124004
    dend[9].diam(0:1)=(1.216333077):(1.262716285)
    dend[18].diam(0:1)=(0.752786218):(0.094124004)
    dend[19].diam(0:0.462582128)=(0.871483545):(0.865221103)
    dend[19].diam(0.462582128:1)=(0.865221103):(0.788020781)
    dend[24].diam(0:1)=(0.590488484):(0.094124004)
    dend[25].diam(0:0.172394292)=(0.478936812):(0.6179048)
    dend[25].diam(0.172394292:0.421035765)=(0.6179048):(0.528794644)
    dend[25].diam(0.421035765:0.669677238)=(0.528794644):(0.378791021)
    dend[25].diam(0.669677238:1)=(0.378791021):(0.094124004)
    //dend3
    dend[1].diam(0:1)=1.155446206:1.350033881
    dend[6].diam(0:0.039858677)=(0.873111772):(0.967199996)
    dend[6].diam(0.039858677:0.166182296)=(0.967199996):(0.882509379)
    dend[6].diam(0.166182296:0.292505914)=(0.882509379):(0.739651468)
    dend[6].diam(0.292505914:0.418829533)=(0.739651468):(0.732217231)
    dend[6].diam(0.418829533:0.545153152)=(0.732217231):(0.745546169)
    dend[6].diam(0.545153152:0.671476771)=(0.745546169):(0.673396607)
    dend[6].diam(0.671476771:1)=(0.673396607):(0.447798153)
    dend[7].diam(0:1)=0.638519053:0.094124004
    dend[16].diam(0:1)=(0.390071176):(0.094124004)
    dend[17].diam(0:1)=(0.239221637):(0.094124004)
    //dend4
    dend[0].diam(0:1)=1.41672535:1.408403392
    dend[4].diam(0:1)=(1.136387132):(1.1146934)
    dend[5].diam(0:1)=0.837307428:0.498740939
    dend[12].diam(0:1)=(0.955812856):(0.760109489)
    dend[13].diam(0:1)=(0.58122499):(0.094124004)
    dend[14].diam(0:1)=0.343747187:0.094124004
    dend[15].diam(0:1)=(0.373416288):(0.094124004)
    dend[22].diam(0:1)=(0.582220521):(0.402746205)
    dend[23].diam(0:1)=(0.497639456):(0.290536237)
    dend[30].diam(0:1)=(0.368609364):(0.364228856)
    dend[31].diam(0:1)=(0.187592565):(0.094124004)
    dend[32].diam(0:1)=(0.210624112):(0.094124004)
    dend[33].diam(0:1)=(0.221151796):(0.094124004)
    dend[34].diam(0:1)=(0.327383004):(0.094124004)
    dend[35].diam(0:1)=(0.185316908):(0.094124004)
}

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 = -58
    forsec all {
	Ra = Ra_default
	insert pas
	e_pas=e_pas_default
    }
    //soma
    soma.g_pas(0:0.097063216)=g_pas_default*1.166773828:g_pas_default*1.166773828
    soma.cm(0:0.097063216)=cm_default*1.166773828:cm_default*1.166773828
    soma.g_pas(0.097063216:0.199104032)=g_pas_default*1.126928204:g_pas_default*1.126928204
    soma.cm(0.097063216:0.199104032)=cm_default*1.126928204:cm_default*1.126928204
    soma.g_pas(0.199104032:0.293180687)=g_pas_default*1.095712849:g_pas_default*1.095712849
    soma.cm(0.199104032:0.293180687)=cm_default*1.095712849:cm_default*1.095712849
    soma.g_pas(0.293180687:0.392732703)=g_pas_default*1.066203026:g_pas_default*1.066203026
    soma.cm(0.293180687:0.392732703)=cm_default*1.066203026:cm_default*1.066203026
    soma.g_pas(0.392732703:0.49726232)=g_pas_default*1.063876294:g_pas_default*1.063876294
    soma.cm(0.392732703:0.49726232)=cm_default*1.063876294:cm_default*1.063876294
    soma.g_pas(0.49726232:0.594325535)=g_pas_default*1.051756257:g_pas_default*1.051756257
    soma.cm(0.49726232:0.594325535)=cm_default*1.051756257:cm_default*1.051756257
    soma.g_pas(0.594325535:0.696366351)=g_pas_default*1.030993131:g_pas_default*1.030993131
    soma.cm(0.594325535:0.696366351)=cm_default*1.030993131:cm_default*1.030993131
    soma.g_pas(0.696366351:0.792931807)=g_pas_default*1.048650915:g_pas_default*1.048650915
    soma.cm(0.696366351:0.792931807)=cm_default*1.048650915:cm_default*1.048650915
    soma.g_pas(0.792931807:0.887008462)=g_pas_default*1.084374521:g_pas_default*1.084374521
    soma.cm(0.792931807:0.887008462)=cm_default*1.084374521:cm_default*1.084374521
    soma.g_pas(0.887008462:1)=g_pas_default*1.139520202:g_pas_default*1.139520202
    soma.cm(0.887008462:1)=cm_default*1.139520202:cm_default*1.139520202
    //dend1
    dend[3].g_pas(0:1)=g_pas_default*1.394688385:g_pas_default*1.259871726
    dend[10].g_pas(0:1)=g_pas_default*1.204565603:g_pas_default*1.221870659
    dend[11].g_pas(0:1)=g_pas_default*1.227712055:g_pas_default*1.160655337
    dend[20].g_pas(0:1)=g_pas_default*1.310657926:g_pas_default*1.376876974
    dend[21].g_pas(0:1)=g_pas_default*1.467903171:g_pas_default*1.21054821
    dend[26].g_pas(0:1)=g_pas_default*1.434930375:g_pas_default*5.110935702
    dend[27].g_pas(0:1)=g_pas_default*2.502212627:g_pas_default*5.110935702
    dend[28].g_pas(0:1)=g_pas_default*1.242798532:g_pas_default*5.110935702
    dend[29].g_pas(0:1)=g_pas_default*1.236603772:g_pas_default*5.110935702
    dend[36].g_pas(0:1)=g_pas_default*1.210410677:g_pas_default*1.205532695
    dend[37].g_pas(0:1)=g_pas_default*1.617931115:g_pas_default*5.110935702
    dend[38].g_pas(0:1)=g_pas_default*1.279818584:g_pas_default*5.110935702
    dend[39].g_pas(0:1)=g_pas_default*1.242768295:g_pas_default*5.110935702
    dend[3].cm(0:1)=cm_default*1.394688385:cm_default*1.259871726
    dend[10].cm(0:1)=cm_default*1.204565603:cm_default*1.221870659
    dend[11].cm(0:1)=cm_default*1.227712055:cm_default*1.160655337
    dend[20].cm(0:1)=cm_default*1.310657926:cm_default*1.376876974
    dend[21].cm(0:1)=cm_default*1.467903171:cm_default*1.21054821
    dend[26].cm(0:1)=cm_default*1.434930375:cm_default*5.110935702
    dend[27].cm(0:1)=cm_default*2.502212627:cm_default*5.110935702
    dend[28].cm(0:1)=cm_default*1.242798532:cm_default*5.110935702
    dend[29].cm(0:1)=cm_default*1.236603772:cm_default*5.110935702
    dend[36].cm(0:1)=cm_default*1.210410677:cm_default*1.205532695
    dend[37].cm(0:1)=cm_default*1.617931115:cm_default*5.110935702
    dend[38].cm(0:1)=cm_default*1.279818584:cm_default*5.110935702
    dend[39].cm(0:1)=cm_default*1.242768295:cm_default*5.110935702
    //dend2
    dend[2].g_pas(0:0.449288614)=g_pas_default*1.34353389:g_pas_default*1.330970965
    dend[2].g_pas(0.449288614:0.62900406)=g_pas_default*1.330970965:g_pas_default*1.369689427
    dend[2].g_pas(0.62900406:1)=g_pas_default*1.369689427:g_pas_default*1.166442299
    dend[8].g_pas(0:1)=g_pas_default*1.156513843:g_pas_default*5.110935702
    dend[9].g_pas(0:1)=g_pas_default*1.362453832:g_pas_default*1.3777823
    dend[18].g_pas(0:1)=g_pas_default*1.238987255:g_pas_default*5.110935702
    dend[19].g_pas(0:0.462582128)=g_pas_default*1.272953123:g_pas_default*1.229005994
    dend[19].g_pas(0.462582128:1)=g_pas_default*1.229005994:g_pas_default*1.187571556
    dend[24].g_pas(0:1)=g_pas_default*1.191386254:g_pas_default*5.110935702
    dend[25].g_pas(0:0.172394292)=g_pas_default*1.20558329:g_pas_default*1.244206446
    dend[25].g_pas(0.172394292:0.421035541)=g_pas_default*1.244206446:g_pas_default*1.068901202
    dend[25].g_pas(0.421035765:0.669677238)=g_pas_default*1.068901202:g_pas_default*1.142262103
    dend[25].g_pas(0.669677238:1)=g_pas_default*1.142262103:g_pas_default*5.110935702
    dend[2].cm(0:0.449288614)=cm_default*1.34353389:cm_default*1.330970965
    dend[2].cm(0.449288614:0.62900406)=cm_default*1.330970965:cm_default*1.369689427
    dend[2].cm(0.62900406:1)=cm_default*1.369689427:cm_default*1.166442299
    dend[8].cm(0:1)=cm_default*1.156513843:cm_default*5.110935702
    dend[9].cm(0:1)=cm_default*1.362453832:cm_default*1.3777823
    dend[18].cm(0:1)=cm_default*1.238987255:cm_default*5.110935702
    dend[19].cm(0:0.462582128)=cm_default*1.272953123:cm_default*1.229005994
    dend[19].cm(0.462582128:1)=cm_default*1.229005994:cm_default*1.187571556
    dend[24].cm(0:1)=cm_default*1.191386254:cm_default*5.110935702
    dend[25].cm(0:0.172394292)=cm_default*1.20558329:cm_default*1.244206446
    dend[25].cm(0.172394292:0.421035541)=cm_default*1.244206446:cm_default*1.068901202
    dend[25].cm(0.421035765:0.669677238)=cm_default*1.068901202:cm_default*1.142262103
    dend[25].cm(0.669677238:1)=cm_default*1.142262103:cm_default*5.110935702
    //dend3
    dend[1].g_pas(0:1)=g_pas_default*1.294123111:g_pas_default*1.486014809
    dend[6].g_pas(0:0.039858677)=g_pas_default*1.401784152:g_pas_default*1.16369053
    dend[6].g_pas(0.039858677:0.166182296)=g_pas_default*1.16369053:g_pas_default*1.182942386
    dend[6].g_pas(0.166182296:0.292505914)=g_pas_default*1.182942386:g_pas_default*1.148796669
    dend[6].g_pas(0.292505914:0.418829533)=g_pas_default*1.148796669:g_pas_default*1.543992672
    dend[6].g_pas(0.418829533:0.545153152)=g_pas_default*1.543992672:g_pas_default*1.288146594
    dend[6].g_pas(0.545153152:0.671476771)=g_pas_default*1.288146594:g_pas_default*1.106966731
    dend[6].g_pas(0.671476771:1)=g_pas_default*1.106966731:g_pas_default*1.401612346
    dend[7].g_pas(0:1)=g_pas_default*1.195124486:g_pas_default*5.110935702
    dend[16].g_pas(0:1)=g_pas_default*1.514209689:g_pas_default*5.110935702
    dend[17].g_pas(0:1)=g_pas_default*2.165571655:g_pas_default*5.110935702
    dend[1].cm(0:1)=cm_default*1.294123111:cm_default*1.486014809
    dend[6].cm(0:0.039858677)=cm_default*1.401784152:cm_default*1.16369053
    dend[6].cm(0.039858677:0.166182296)=cm_default*1.16369053:cm_default*1.182942386
    dend[6].cm(0.166182296:0.292505914)=cm_default*1.182942386:cm_default*1.148796669
    dend[6].cm(0.292505914:0.418829533)=cm_default*1.148796669:cm_default*1.543992672
    dend[6].cm(0.418829533:0.545153152)=cm_default*1.543992672:cm_default*1.288146594
    dend[6].cm(0.545153152:0.671476771)=cm_default*1.288146594:cm_default*1.106966731
    dend[6].cm(0.671476771:1)=cm_default*1.106966731:cm_default*1.401612346
    dend[7].cm(0:1)=cm_default*1.195124486:cm_default*5.110935702
    dend[16].cm(0:1)=cm_default*1.514209689:cm_default*5.110935702
    dend[17].cm(0:1)=cm_default*2.165571655:cm_default*5.110935702
    //dend4
    dend[0].g_pas(0:1)=g_pas_default*1.41823762:g_pas_default*1.413851408
    dend[4].g_pas(0:1)=g_pas_default*1.286431816:g_pas_default*1.277963789
    dend[5].g_pas(0:1)=g_pas_default*1.206785289:g_pas_default*1.332386816
    dend[12].g_pas(0:1)=g_pas_default*1.227184266:g_pas_default*1.205275855
    dend[13].g_pas(0:1)=g_pas_default*1.260511931:g_pas_default*5.110935702
    dend[14].g_pas(0:1)=g_pas_default*1.642639239:g_pas_default*5.110935702
    dend[15].g_pas(0:1)=g_pas_default*1.555703337:g_pas_default*5.110935702
    dend[22].g_pas(0:1)=g_pas_default*1.25987799:g_pas_default*1.485636987
    dend[23].g_pas(0:1)=g_pas_default*1.333649327:g_pas_default*1.854643662
    dend[30].g_pas(0:1)=g_pas_default*1.568590528:g_pas_default*1.58071525
    dend[31].g_pas(0:1)=g_pas_default*2.671743587:g_pas_default*5.110935702
    dend[32].g_pas(0:1)=g_pas_default*2.412892334:g_pas_default*5.110935702
    dend[33].g_pas(0:1)=g_pas_default*2.313748417:g_pas_default*5.110935702
    dend[34].g_pas(0:1)=g_pas_default*1.699091243:g_pas_default*5.110935702
    dend[35].g_pas(0:1)=g_pas_default*2.701050045:g_pas_default*5.110935702
    dend[0].cm(0:1)=cm_default*1.41823762:cm_default*1.413851408
    dend[4].cm(0:1)=cm_default*1.286431816:cm_default*1.277963789
    dend[5].cm(0:1)=cm_default*1.206785289:cm_default*1.332386816
    dend[12].cm(0:1)=cm_default*1.227184266:cm_default*1.205275855
    dend[13].cm(0:1)=cm_default*1.260511931:cm_default*5.110935702
    dend[14].cm(0:1)=cm_default*1.642639239:cm_default*5.110935702
    dend[15].cm(0:1)=cm_default*1.555703337:cm_default*5.110935702
    dend[22].cm(0:1)=cm_default*1.25987799:cm_default*1.485636987
    dend[23].cm(0:1)=cm_default*1.333649327:cm_default*1.854643662
    dend[30].cm(0:1)=cm_default*1.568590528:cm_default*1.58071525
    dend[31].cm(0:1)=cm_default*2.671743587:cm_default*5.110935702
    dend[32].cm(0:1)=cm_default*2.412892334:cm_default*5.110935702
    dend[33].cm(0:1)=cm_default*2.313748417:cm_default*5.110935702
    dend[34].cm(0:1)=cm_default*1.699091243:cm_default*5.110935702
    dend[35].cm(0:1)=cm_default*2.701050045:cm_default*5.110935702
}

proc setall() {
    forsec all {
	Ra = $1
	e_pas = $4
    }
    //soma
    soma.g_pas(0:0.097063216)=$3*1.166773828:$3*1.166773828
    soma.cm(0:0.097063216)=$2*1.166773828:$2*1.166773828
    soma.g_pas(0.097063216:0.199104032)=$3*1.126928204:$3*1.126928204
    soma.cm(0.097063216:0.199104032)=$2*1.126928204:$2*1.126928204
    soma.g_pas(0.199104032:0.293180687)=$3*1.095712849:$3*1.095712849
    soma.cm(0.199104032:0.293180687)=$2*1.095712849:$2*1.095712849
    soma.g_pas(0.293180687:0.392732703)=$3*1.066203026:$3*1.066203026
    soma.cm(0.293180687:0.392732703)=$2*1.066203026:$2*1.066203026
    soma.g_pas(0.392732703:0.49726232)=$3*1.063876294:$3*1.063876294
    soma.cm(0.392732703:0.49726232)=$2*1.063876294:$2*1.063876294
    soma.g_pas(0.49726232:0.594325535)=$3*1.051756257:$3*1.051756257
    soma.cm(0.49726232:0.594325535)=$2*1.051756257:$2*1.051756257
    soma.g_pas(0.594325535:0.696366351)=$3*1.030993131:$3*1.030993131
    soma.cm(0.594325535:0.696366351)=$2*1.030993131:$2*1.030993131
    soma.g_pas(0.696366351:0.792931807)=$3*1.048650915:$3*1.048650915
    soma.cm(0.696366351:0.792931807)=$2*1.048650915:$2*1.048650915
    soma.g_pas(0.792931807:0.887008462)=$3*1.084374521:$3*1.084374521
    soma.cm(0.792931807:0.887008462)=$2*1.084374521:$2*1.084374521
    soma.g_pas(0.887008462:1)=$3*1.139520202:$3*1.139520202
    soma.cm(0.887008462:1)=$2*1.139520202:$2*1.139520202
    //dend1
    dend[3].g_pas(0:1)=$3*1.394688385:$3*1.259871726
    dend[10].g_pas(0:1)=$3*1.204565603:$3*1.221870659
    dend[11].g_pas(0:1)=$3*1.227712055:$3*1.160655337
    dend[20].g_pas(0:1)=$3*1.310657926:$3*1.376876974
    dend[21].g_pas(0:1)=$3*1.467903171:$3*1.21054821
    dend[26].g_pas(0:1)=$3*1.434930375:$3*5.110935702
    dend[27].g_pas(0:1)=$3*2.502212627:$3*5.110935702
    dend[28].g_pas(0:1)=$3*1.242798532:$3*5.110935702
    dend[29].g_pas(0:1)=$3*1.236603772:$3*5.110935702
    dend[36].g_pas(0:1)=$3*1.210410677:$3*1.205532695
    dend[37].g_pas(0:1)=$3*1.617931115:$3*5.110935702
    dend[38].g_pas(0:1)=$3*1.279818584:$3*5.110935702
    dend[39].g_pas(0:1)=$3*1.242768295:$3*5.110935702
    dend[3].cm(0:1)=$2*1.394688385:$2*1.259871726
    dend[10].cm(0:1)=$2*1.204565603:$2*1.221870659
    dend[11].cm(0:1)=$2*1.227712055:$2*1.160655337
    dend[20].cm(0:1)=$2*1.310657926:$2*1.376876974
    dend[21].cm(0:1)=$2*1.467903171:$2*1.21054821
    dend[26].cm(0:1)=$2*1.434930375:$2*5.110935702
    dend[27].cm(0:1)=$2*2.502212627:$2*5.110935702
    dend[28].cm(0:1)=$2*1.242798532:$2*5.110935702
    dend[29].cm(0:1)=$2*1.236603772:$2*5.110935702
    dend[36].cm(0:1)=$2*1.210410677:$2*1.205532695
    dend[37].cm(0:1)=$2*1.617931115:$2*5.110935702
    dend[38].cm(0:1)=$2*1.279818584:$2*5.110935702
    dend[39].cm(0:1)=$2*1.242768295:$2*5.110935702
    //dend2
    dend[2].g_pas(0:0.449288614)=$3*1.34353389:$3*1.330970965
    dend[2].g_pas(0.449288614:0.62900406)=$3*1.330970965:$3*1.369689427
    dend[2].g_pas(0.62900406:1)=$3*1.369689427:$3*1.166442299
    dend[8].g_pas(0:1)=$3*1.156513843:$3*5.110935702
    dend[9].g_pas(0:1)=$3*1.362453832:$3*1.3777823
    dend[18].g_pas(0:1)=$3*1.238987255:$3*5.110935702
    dend[19].g_pas(0:0.462582128)=$3*1.272953123:$3*1.229005994
    dend[19].g_pas(0.462582128:1)=$3*1.229005994:$3*1.187571556
    dend[24].g_pas(0:1)=$3*1.191386254:$3*5.110935702
    dend[25].g_pas(0:0.172394292)=$3*1.20558329:$3*1.244206446
    dend[25].g_pas(0.172394292:0.421035541)=$3*1.244206446:$3*1.068901202
    dend[25].g_pas(0.421035765:0.669677238)=$3*1.068901202:$3*1.142262103
    dend[25].g_pas(0.669677238:1)=$3*1.142262103:$3*5.110935702
    dend[2].cm(0:0.449288614)=$2*1.34353389:$2*1.330970965
    dend[2].cm(0.449288614:0.62900406)=$2*1.330970965:$2*1.369689427
    dend[2].cm(0.62900406:1)=$2*1.369689427:$2*1.166442299
    dend[8].cm(0:1)=$2*1.156513843:$2*5.110935702
    dend[9].cm(0:1)=$2*1.362453832:$2*1.3777823
    dend[18].cm(0:1)=$2*1.238987255:$2*5.110935702
    dend[19].cm(0:0.462582128)=$2*1.272953123:$2*1.229005994
    dend[19].cm(0.462582128:1)=$2*1.229005994:$2*1.187571556
    dend[24].cm(0:1)=$2*1.191386254:$2*5.110935702
    dend[25].cm(0:0.172394292)=$2*1.20558329:$2*1.244206446
    dend[25].cm(0.172394292:0.421035541)=$2*1.244206446:$2*1.068901202
    dend[25].cm(0.421035765:0.669677238)=$2*1.068901202:$2*1.142262103
    dend[25].cm(0.669677238:1)=$2*1.142262103:$2*5.110935702
    //dend3
    dend[1].g_pas(0:1)=$3*1.294123111:$3*1.486014809
    dend[6].g_pas(0:0.039858677)=$3*1.401784152:$3*1.16369053
    dend[6].g_pas(0.039858677:0.166182296)=$3*1.16369053:$3*1.182942386
    dend[6].g_pas(0.166182296:0.292505914)=$3*1.182942386:$3*1.148796669
    dend[6].g_pas(0.292505914:0.418829533)=$3*1.148796669:$3*1.543992672
    dend[6].g_pas(0.418829533:0.545153152)=$3*1.543992672:$3*1.288146594
    dend[6].g_pas(0.545153152:0.671476771)=$3*1.288146594:$3*1.106966731
    dend[6].g_pas(0.671476771:1)=$3*1.106966731:$3*1.401612346
    dend[7].g_pas(0:1)=$3*1.195124486:$3*5.110935702
    dend[16].g_pas(0:1)=$3*1.514209689:$3*5.110935702
    dend[17].g_pas(0:1)=$3*2.165571655:$3*5.110935702
    dend[1].cm(0:1)=$2*1.294123111:$2*1.486014809
    dend[6].cm(0:0.039858677)=$2*1.401784152:$2*1.16369053
    dend[6].cm(0.039858677:0.166182296)=$2*1.16369053:$2*1.182942386
    dend[6].cm(0.166182296:0.292505914)=$2*1.182942386:$2*1.148796669
    dend[6].cm(0.292505914:0.418829533)=$2*1.148796669:$2*1.543992672
    dend[6].cm(0.418829533:0.545153152)=$2*1.543992672:$2*1.288146594
    dend[6].cm(0.545153152:0.671476771)=$2*1.288146594:$2*1.106966731
    dend[6].cm(0.671476771:1)=$2*1.106966731:$2*1.401612346
    dend[7].cm(0:1)=$2*1.195124486:$2*5.110935702
    dend[16].cm(0:1)=$2*1.514209689:$2*5.110935702
    dend[17].cm(0:1)=$2*2.165571655:$2*5.110935702
    //dend4
    dend[0].g_pas(0:1)=$3*1.41823762:$3*1.413851408
    dend[4].g_pas(0:1)=$3*1.286431816:$3*1.277963789
    dend[5].g_pas(0:1)=$3*1.206785289:$3*1.332386816
    dend[12].g_pas(0:1)=$3*1.227184266:$3*1.205275855
    dend[13].g_pas(0:1)=$3*1.260511931:$3*5.110935702
    dend[14].g_pas(0:1)=$3*1.642639239:$3*5.110935702
    dend[15].g_pas(0:1)=$3*1.555703337:$3*5.110935702
    dend[22].g_pas(0:1)=$3*1.25987799:$3*1.485636987
    dend[23].g_pas(0:1)=$3*1.333649327:$3*1.854643662
    dend[30].g_pas(0:1)=$3*1.568590528:$3*1.58071525
    dend[31].g_pas(0:1)=$3*2.671743587:$3*5.110935702
    dend[32].g_pas(0:1)=$3*2.412892334:$3*5.110935702
    dend[33].g_pas(0:1)=$3*2.313748417:$3*5.110935702
    dend[34].g_pas(0:1)=$3*1.699091243:$3*5.110935702
    dend[35].g_pas(0:1)=$3*2.701050045:$3*5.110935702
    dend[0].cm(0:1)=$2*1.41823762:$2*1.413851408
    dend[4].cm(0:1)=$2*1.286431816:$2*1.277963789
    dend[5].cm(0:1)=$2*1.206785289:$2*1.332386816
    dend[12].cm(0:1)=$2*1.227184266:$2*1.205275855
    dend[13].cm(0:1)=$2*1.260511931:$2*5.110935702
    dend[14].cm(0:1)=$2*1.642639239:$2*5.110935702
    dend[15].cm(0:1)=$2*1.555703337:$2*5.110935702
    dend[22].cm(0:1)=$2*1.25987799:$2*1.485636987
    dend[23].cm(0:1)=$2*1.333649327:$2*1.854643662
    dend[30].cm(0:1)=$2*1.568590528:$2*1.58071525
    dend[31].cm(0:1)=$2*2.671743587:$2*5.110935702
    dend[32].cm(0:1)=$2*2.412892334:$2*5.110935702
    dend[33].cm(0:1)=$2*2.313748417:$2*5.110935702
    dend[34].cm(0:1)=$2*1.699091243:$2*5.110935702
    dend[35].cm(0:1)=$2*2.701050045:$2*5.110935702
}

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...