proc celldef() {
    topol()
    subsets()
    geomL()
    geom_nseg()
    geom()
    biophys()
    //    geom_nseg()
}

create soma, dend[43]
strdef celltype
celltype="BE77C"
numTree=26
shortR=11.01

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

proc shape3d_soma() {
  soma {pt3dclear()
      pt3dadd(0,0,0,4.048255856)
      pt3dadd(0,0,-2.02,6.742204799)
      pt3dadd(0,0,-3.98,10.55727613)
      pt3dadd(0,0,-5.94,12.11014246)
      pt3dadd(0,0,-7.9,12.67366226)
      pt3dadd(0,0,-9.97,10.52327766)
      pt3dadd(0,0,-11.98,10.18183861)
      pt3dadd(0,0,-13.89,8.264235462)
      pt3dadd(0,0,-15.96,6.345595526)
      pt3dadd(0,0,-17.97,4.984179916)
    }
}

proc shape3d_dend9_1() {
    dend[0] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-19.6949, -22.0093, -5.25, 1.97)
	pt3dadd(-19.9749, -23.0093, -7.47, 1.97)
	pt3dadd(-19.9749, -23.0093, -7.84, 1.97)
	pt3dadd(-20.5149, -23.8193, -10.81, 1.97)
	pt3dadd(-21.0649, -23.4593, -11.55, 1.97)
	pt3dadd(-21.5149, -23.5493, -12.88, 1.97)
	pt3dadd(-21.5149, -23.5493, -13.25, 1.97)
    }
}

proc shape3d_dend8_1() {
    dend[1] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-22.6749, -18.8193, -4.88, 1.97)
	pt3dadd(-25.1249, -19.5293, -5.25, 1.97)
	pt3dadd(-25.4049, -19.3493, -5.25, 1.97)
	pt3dadd(-27.2149, -19.6993, -7.31, 1.97)
	pt3dadd(-27.2149, -19.6993, -8.06, 1.97)
	pt3dadd(-28.8649, -20.9593, -8.37, 1.97)
	pt3dadd(-29.8549, -20.6793, -10.44, 1.97)
	pt3dadd(-29.8549, -20.6793, -10.65, 1.97)
	pt3dadd(-30.1349, -20.4993, -12.51, 1.97)
	pt3dadd(-30.1349, -20.4993, -12.61, 1.97)
    }
}

proc shape3d_dend7() {
    dend[2] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-11.7949, -15.7393, 1.22, 1.64)
	pt3dadd(-9.72495, -15.6193, 2.76, 1.64)
	pt3dadd(-9.72495, -15.6193, 3.18, 1.64)
	pt3dadd(-8.20495, -15.0093, 4.72, 1.64)
	pt3dadd(-8.20495, -15.0093, 4.82, 1.64)
	pt3dadd(-7.17495, -14.9493, 7, 1.64)
	pt3dadd(-7.17495, -14.9493, 7.53, 1.64)
	pt3dadd(-6.28495, -14.1693, 9.12, 1.64)
	pt3dadd(-6.28495, -14.1693, 9.75, 1.64)
	pt3dadd(-5.42495, -14.7393, 11.45, 1.64)
	pt3dadd(-5.42495, -14.7393, 11.82, 1.64)
	pt3dadd(-4.81495, -16.2593, 12.88, 1.64)
	pt3dadd(-4.58495, -16.6593, 12.88, 1.64)
	pt3dadd(-3.25495, -18.0293, 15.26, 1.64)
	pt3dadd(-3.25495, -18.0293, 15.79, 1.64)
	pt3dadd(-2.93495, -18.1193, 17.86, 1.64)
	pt3dadd(-2.93495, -18.1193, 18.28, 1.64)
	pt3dadd(-3.10495, -18.7493, 22.52, 1.64)
	pt3dadd(-3.10495, -18.7493, 22.79, 1.64)
	pt3dadd(-2.22495, -17.9693, 22.9, 1.64)
	pt3dadd(-0.324949, -18.4793, 24.91, 1.64)
	pt3dadd(-0.324949, -18.4793, 25.23, 1.64)
	pt3dadd(0.795051, -18.0993, 27.03, 1.64)
	pt3dadd(0.795051, -18.0993, 27.24, 1.64)
	pt3dadd(1.89505, -19.0693, 27.3, 1.64)
	pt3dadd(2.20505, -19.1593, 27.3, 1.64)
	pt3dadd(4.35505, -18.7193, 27.56, 1.64)
	pt3dadd(4.76505, -18.4793, 27.72, 1.64)
	pt3dadd(6.97505, -19.0793, 27.88, 1.64)
	pt3dadd(6.97505, -19.0793, 28.04, 1.64)
	pt3dadd(8.72505, -18.8693, 29.31, 1.64)
	pt3dadd(8.81505, -18.5493, 29.68, 1.64)
	pt3dadd(9.86505, -17.1393, 30.1, 1.64)
	pt3dadd(9.95505, -16.8193, 30.1, 1.64)
	pt3dadd(11.0951, -15.0993, 30.16, 1.64)
	pt3dadd(11.4151, -15.1793, 30.16, 1.64)
	pt3dadd(12.8451, -14.8893, 30.26, 1.64)
	pt3dadd(13.1651, -14.9693, 30.48, 1.64)
	pt3dadd(15.8251, -12.6293, 31.22, 1.64)
	pt3dadd(15.8251, -12.6293, 31.27, 1.64)
	pt3dadd(16.9451, -12.2493, 31.48, 1.64)
	pt3dadd(17.1951, -11.2993, 31.59, 1.64)
	pt3dadd(17.1951, -11.2993, 31.64, 1.64)
	pt3dadd(19.0951, -11.8093, 31.11, 1.64)
	pt3dadd(19.0951, -11.8093, 31.06, 1.64)
	pt3dadd(20.5251, -11.5193, 31.43, 1.64)
	pt3dadd(20.5251, -11.5193, 31.64, 1.64)
	pt3dadd(21.9651, -11.2293, 33.39, 1.64)
	pt3dadd(21.9651, -11.2293, 34.03, 1.64)
	pt3dadd(22.9351, -10.1293, 34.45, 1.64)
	pt3dadd(23.2551, -10.2193, 34.5, 1.64)
	pt3dadd(23.9651, -10.0693, 35.93, 1.64)
	pt3dadd(23.9651, -10.0693, 36.36, 1.64)
	pt3dadd(26.0351, -9.9393, 37.74, 1.64)
	pt3dadd(26.1251, -9.6293, 37.79, 1.64)
	pt3dadd(26.5451, -8.0493, 39.11, 1.64)
	pt3dadd(27.8951, -8.0693, 39.17, 1.31)
	pt3dadd(28.8951, -5.6193, 40.54, 1.31)
	pt3dadd(29.2951, -5.3893, 40.86, 1.31)
	pt3dadd(29.8651, -4.5293, 42.35, 1.31)
	pt3dadd(29.9451, -4.2093, 42.67, 1.31)
	pt3dadd(30.3751, -2.6293, 42.72, 1.31)
	pt3dadd(31.6551, -1.6193, 42.82, 1.31)
	pt3dadd(32.0651, -1.3893, 42.77, 1.31)
	pt3dadd(32.1451, -1.0693, 42.77, 1.31)
	pt3dadd(33.175, -1.0093, 42.82, 1.31)
	pt3dadd(34.6951, -0.3993, 44.52, 1.31)
	pt3dadd(34.6951, -0.3993, 44.73, 1.31)
	pt3dadd(36.5551, 1.4807, 45, 1.31)
	pt3dadd(36.8751, 1.3907, 45, 1.31)
	pt3dadd(38.7951, 2.2307, 45.47, 1.31)
	pt3dadd(39.1951, 2.4707, 45.47, 1.31)
	pt3dadd(40.6551, 4.1107, 45.79, 1.31)
	pt3dadd(41.0551, 4.3407, 45.95, 1.31)
	pt3dadd(41.6251, 5.2107, 46.43, 1.31)
	pt3dadd(42.285, 6.3907, 46.53, 1.31)
	pt3dadd(42.285, 6.3907, 46.59, 1.31)
	pt3dadd(45.0051, 6.2607, 48.81, 0.33)
	pt3dadd(45.0051, 6.2607, 48.92, 0.33)
	pt3dadd(44.385, 7.2707, 52.42, 0.33)
	pt3dadd(44.385, 7.2707, 52.79, 0.33)
	pt3dadd(44.4051, 7.9207, 56.55, 0.33)
	pt3dadd(44.4051, 7.9207, 57.08, 0.33)
    }
}

proc shape3d_dend6_1() {
    dend[3] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-20.1249, -14.6793, 5.88, 1.64)
	pt3dadd(-20.1249, -14.6793, 6.52, 1.64)
	pt3dadd(-20.9049, -13.7893, 9.59, 1.64)
	pt3dadd(-21.2149, -13.6993, 10.07, 1.64)
	pt3dadd(-22.2549, -13.7693, 12.67, 1.64)
	pt3dadd(-22.2549, -13.7693, 13.51, 1.64)
	pt3dadd(-22.9849, -12.4393, 14.05, 1.64)
    }
}

proc shape3d_dend5_1() {
    dend[4] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-25.8549, -16.4293, 0.05, 1.97)
	pt3dadd(-25.8549, -16.4293, 0, 1.97)
	pt3dadd(-27.3749, -17.0393, 0.05, 1.97)
	pt3dadd(-28.9849, -17.9593, 0, 1.97)
	pt3dadd(-28.9849, -17.9593, 0.05, 1.97)
	pt3dadd(-29.2149, -17.5593, 0.11, 1.97)
    }
}

proc shape3d_dend4_1() {
    dend[5] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-15.9749, -23.8193, 2.28, 1.64)
	pt3dadd(-15.8249, -24.5393, 2.28, 1.64)
	pt3dadd(-15.9949, -25.1693, 2.28, 1.64)
	pt3dadd(-15.9349, -26.2093, 2.28, 1.64)
	pt3dadd(-16.1049, -26.8393, 2.28, 1.64)
	pt3dadd(-15.8749, -27.2393, 2.28, 1.64)
	pt3dadd(-15.8049, -28.2693, 1.54, 1.64)
	pt3dadd(-15.8049, -28.2693, 1.38, 1.64)
	pt3dadd(-15.7449, -29.3093, 1.22, 1.64)
	pt3dadd(-15.7449, -29.3093, 1.17, 1.64)
	pt3dadd(-16.1749, -30.8893, 1.17, 1.64)
	pt3dadd(-16.2549, -31.2093, 1.17, 1.64)
	pt3dadd(-17.4549, -31.8993, 1.17, 1.64)
    }
}

proc shape3d_dend3_1() {
    dend[6] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-13.2049, -22.3593, 1.11, 1.64)
	pt3dadd(-12.7449, -23.1593, 1.11, 1.64)
	pt3dadd(-12.5149, -23.5593, 1.06, 1.64)
	pt3dadd(-11.9049, -25.0793, 1.11, 1.64)
	pt3dadd(-11.6049, -26.5193, 1.38, 1.64)
	pt3dadd(-11.2949, -26.5993, 1.38, 1.64)
	pt3dadd(-11.2349, -27.6393, 2.28, 1.64)
    }
}

proc shape3d_dend2_1() {
    dend[7] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-15.1149, -13.0293, 0.69, 1.31)
	pt3dadd(-14.7749, -11.7693, 0.53, 1.31)
	pt3dadd(-14.6949, -11.4493, 0.48, 1.31)
	pt3dadd(-14.4349, -10.4993, -0.69, 1.31)
	pt3dadd(-14.4349, -10.4993, -0.95, 1.31)
	pt3dadd(-13.6949, -8.9993, -1.8, 1.31)
	pt3dadd(-13.6949, -8.9993, -1.91, 1.31)
	pt3dadd(-13.3549, -7.7393, -2.12, 1.31)
	pt3dadd(-13.3549, -7.7393, -2.17, 1.31)
	pt3dadd(-13.1849, -7.1093, -2.33, 1.31)
	pt3dadd(-13.0849, -6.9893, -2.33, 1.31)
	pt3dadd(-14.4449, -6.0693, -3.44, 1.31)
	pt3dadd(-14.4449, -6.0693, -4.56, 1.31)
	pt3dadd(-13.7949, -4.5293, -6.36, 1.31)
	pt3dadd(-13.7949, -4.5293, -6.41, 1.31)
	pt3dadd(-14.2449, -3.4393, -6.47, 1.31)
	pt3dadd(-13.4249, -2.8093, -6.47, 1.31)
	pt3dadd(-13.2449, -2.5393, -6.52, 1.31)
	pt3dadd(-12.3249, -1.1793, -7.63, 1.31)
	pt3dadd(-12.3249, -1.1793, -7.47, 1.31)
	pt3dadd(-11.8649, 0.0906997, -6.09, 1.31)
	pt3dadd(-11.6849, 0.3607, -5.99, 1.31)
	pt3dadd(-11.7649, 2.0007, -5.83, 1.31)
	pt3dadd(-11.5749, 2.2707, -5.46, 1.31)
	pt3dadd(-12.2049, 4.2707, -5.09, 1.31)
	pt3dadd(-12.4749, 4.4507, -5.09, 1.31)
	pt3dadd(-12.4649, 5.6307, -5.03, 1.31)
	pt3dadd(-12.4649, 5.6307, -5.09, 1.31)
	pt3dadd(-11.7349, 6.7207, -5.03, 1.31)
	pt3dadd(-11.5549, 6.9907, -5.03, 1.31)
	pt3dadd(-9.82495, 7.8007, -5.03, 1.31)
	pt3dadd(-9.72495, 9.7107, -5.83, 1.31)
    }
}

proc shape3d_dend1_1() {
    dend[8] {pt3dclear()
//	pt3dstyle(1, -18.7282, -17.139, 0.53)
	pt3dadd(-12.3349, -17.8393, 1.22, 1.31)
	pt3dadd(-12.3349, -17.8393, 1.27, 1.31)
	pt3dadd(-10.6749, -17.9493, 1.32, 1.31)
	pt3dadd(-10.5849, -17.6393, 1.32, 1.31)
	pt3dadd(-9.23495, -17.6593, 1.32, 1.31)
	pt3dadd(-8.60495, -17.8293, 1.32, 1.31)
	pt3dadd(-6.53495, -17.6993, 1.38, 1.31)
	pt3dadd(-6.53495, -17.6993, 1.48, 1.31)
	pt3dadd(-5.52495, -18.9893, 2.76, 1.31)
	pt3dadd(-5.20495, -19.0793, 3.02, 1.31)
	pt3dadd(-4.42495, -19.9593, 1.64, 1.31)
	pt3dadd(-4.42495, -19.9593, 1.7, 1.31)
	pt3dadd(-3.33495, -20.9393, 1.75, 1.31)
	pt3dadd(-3.01495, -21.0193, 1.8, 1.31)
	pt3dadd(-1.11495, -21.5293, -0.16, 1.31)
	pt3dadd(-1.11495, -21.5293, 0.53, 1.31)
	pt3dadd(-0.974949, -22.2493, 1.27, 1.31)
	pt3dadd(-0.654949, -22.3293, 1.27, 1.31)
    }
}


proc shape3d_dend9_2() {
    dend[9] {pt3dclear()
	pt3dadd(-21.5149, -23.5493, -13.25, 1.31)
	pt3dadd(-23.4249, -23.4393, -14.95, 1.31)
	pt3dadd(-23.9649, -23.0793, -14.95, 1.31)
	pt3dadd(-25.0549, -22.3493, -16.32, 1.31)
	pt3dadd(-25.3249, -22.1593, -16.54, 1.31)
	pt3dadd(-25.7749, -22.2493, -17.54, 1.31)
	pt3dadd(-25.9649, -22.5193, -17.86, 1.31)
	pt3dadd(-26.0549, -23.2493, -19.34, 1.31)
	pt3dadd(-25.7849, -23.4293, -19.56, 1.31)
	pt3dadd(-26.6949, -23.6093, -19.82, 1.31)
	pt3dadd(-26.6949, -23.6093, -20.35, 1.31)
	pt3dadd(-26.9649, -23.4193, -23, 1.31)
    }
}

proc shape3d_dend9_3() {
    dend[10] {pt3dclear()
	pt3dadd(-21.5149, -23.5493, -13.25, 1.64)
	pt3dadd(-20.7949, -24.8193, -13.36, 1.64)
	pt3dadd(-22.7149, -27.0793, -15.53, 1.64)
	pt3dadd(-22.7149, -27.0793, -15.64, 1.64)
	pt3dadd(-22.0849, -27.8993, -17.44, 1.64)
	pt3dadd(-21.9949, -28.3593, -17.6, 1.64)
	pt3dadd(-21.5449, -29.4493, -17.86, 1.64)
	pt3dadd(-21.5449, -29.4493, -18.07, 1.64)
	pt3dadd(-22.2849, -30.5393, -18.18, 1.64)
	pt3dadd(-22.1949, -30.9893, -18.28, 1.64)
	pt3dadd(-21.6549, -31.3593, -19.34, 1.64)
	pt3dadd(-21.3749, -31.5393, -19.82, 1.64)
	pt3dadd(-19.2049, -33.0093, -21.25, 1.64)
	pt3dadd(-19.3849, -33.2793, -21.25, 1.64)
	pt3dadd(-20.1249, -34.3593, -21.31, 1.64)
	pt3dadd(-20.3049, -34.6293, -21.57, 1.64)
	pt3dadd(-21.2249, -35.9893, -22.15, 1.64)
	pt3dadd(-20.9449, -36.1793, -22.15, 1.64)
	pt3dadd(-20.3149, -36.9993, -22.15, 1.64)
	pt3dadd(-20.2249, -37.4493, -22.15, 1.64)
	pt3dadd(-19.8749, -38.0893, -22.15, 1.64)
	pt3dadd(-20.0549, -38.3593, -22.15, 1.64)
	pt3dadd(-19.3349, -39.6393, -23.27, 1.64)
	pt3dadd(-18.0749, -41.2793, -23.37, 1.64)
	pt3dadd(-17.5249, -41.6393, -23.58, 1.64)
	pt3dadd(-17.9049, -43.3693, -25.44, 1.64)
	pt3dadd(-17.6249, -43.5493, -26.08, 1.64)
	pt3dadd(-16.2749, -44.4693, -27.77, 1.64)
	pt3dadd(-16.4549, -44.7393, -27.77, 1.64)
	pt3dadd(-15.8249, -45.5593, -28.25, 1.64)
	pt3dadd(-15.5549, -45.7393, -28.62, 1.64)
	pt3dadd(-14.7349, -46.2893, -29.1, 1.64)
	pt3dadd(-14.4649, -46.4793, -29.15, 1.64)
	pt3dadd(-13.1049, -47.3893, -29.15, 1.64)
	pt3dadd(-12.8349, -47.5693, -29.2, 1.64)
	pt3dadd(-10.8449, -49.3093, -29.2, 1.64)
	pt3dadd(-10.5749, -49.4893, -29.2, 1.64)
	pt3dadd(-9.76495, -50.0393, -30.26, 1.64)
	pt3dadd(-9.76495, -50.0393, -30.69, 1.64)
	pt3dadd(-9.95495, -51.4993, -30.95, 1.64)
	pt3dadd(-9.95495, -51.4993, -31.16, 1.64)
	pt3dadd(-8.04495, -52.7793, -31.96, 1.31)
	pt3dadd(-7.51495, -54.3193, -31.96, 1.31)
	pt3dadd(-7.79495, -55.3193, -32.01, 1.31)
	pt3dadd(-7.61495, -56.2293, -32.54, 1.31)
	pt3dadd(-7.34495, -56.4193, -32.7, 1.31)
	pt3dadd(-5.44495, -57.6993, -33.13, 1.31)
	pt3dadd(-5.08495, -58.3393, -33.13, 1.31)
	pt3dadd(-5.17495, -59.0593, -33.13, 1.31)
	pt3dadd(-5.27495, -59.7893, -33.34, 1.31)
	pt3dadd(-4.99495, -59.9693, -33.34, 1.31)
	pt3dadd(-4.91495, -60.4293, -33.55, 1.31)
	pt3dadd(-5.00495, -61.1493, -33.76, 1.31)
	pt3dadd(-4.91495, -61.6093, -33.76, 1.31)
	pt3dadd(-4.65495, -62.9693, -34.4, 1.31)
	pt3dadd(-4.65495, -62.9693, -34.56, 1.31)
	pt3dadd(-4.48495, -65.0593, -32.81, 1.31)
	pt3dadd(-4.48495, -65.0593, -33.23, 1.31)
    }
}

proc shape3d_dend8_2() {
    dend[11] {pt3dclear()
	pt3dadd(-30.1349, -20.4993, -12.61, 1.31)
	pt3dadd(-30.7549, -18.4993, -14.2, 1.31)
	pt3dadd(-30.7549, -18.4993, -14.57, 1.31)
	pt3dadd(-31.6549, -17.4993, -16.16, 1.31)
	pt3dadd(-31.9349, -17.3093, -16.43, 1.31)
	pt3dadd(-33.0149, -16.5793, -16.54, 1.31)
	pt3dadd(-33.285, -16.3993, -16.54, 1.31)
	pt3dadd(-34.5549, -15.9393, -17.65, 1.31)
	pt3dadd(-34.5549, -15.9393, -18.18, 1.31)
	pt3dadd(-35.645, -15.1993, -19.29, 1.31)
	pt3dadd(-35.9149, -15.0193, -19.56, 1.31)
	pt3dadd(-35.2749, -14.6593, -21.78, 1.31)
	pt3dadd(-35.2749, -14.6593, -22.1, 1.31)
	pt3dadd(-35.3549, -13.0193, -23.21, 1.31)
	pt3dadd(-35.6349, -12.8393, -23.53, 1.31)
	pt3dadd(-35.715, -12.3893, -24.59, 1.31)
	pt3dadd(-35.535, -12.1093, -25.07, 1.31)
	pt3dadd(-34.7049, -10.2993, -26.02, 1.31)
	pt3dadd(-34.7049, -10.2993, -26.18, 1.31)
	pt3dadd(-35.5149, -8.5693, -28.3, 1.31)
	pt3dadd(-36.4149, -7.5693, -29.04, 1.31)
	pt3dadd(-36.4149, -7.5693, -29.47, 1.31)
	pt3dadd(-36.325, -6.8393, -32.54, 1.31)
	pt3dadd(-36.145, -6.5693, -32.7, 1.31)
	pt3dadd(-34.1349, -4.7593, -33.18, 1.31)
	pt3dadd(-34.1349, -4.7593, -34.08, 1.31)
	pt3dadd(-35.3049, -3.5793, -34.87, 1.31)
	pt3dadd(-35.3049, -3.5793, -35.3, 1.31)
	pt3dadd(-35.3849, -1.9393, -36.83, 1.31)
	pt3dadd(-35.3849, -1.9393, -37.31, 1.31)
	pt3dadd(-35.115, -0.9393, -38.74, 1.31)
	pt3dadd(-34.9249, -0.6693, -39.27, 1.31)
	pt3dadd(-34.9249, 0.5107, -40.17, 1.31)
	pt3dadd(-35.0149, 0.9607, -40.49, 1.31)
	pt3dadd(-35.3749, 1.6007, -41.6, 1.31)
	pt3dadd(-35.3749, 1.6007, -41.76, 1.31)
	pt3dadd(-36.545, 2.7907, -42.77, 1.31)
	pt3dadd(-36.8149, 2.9707, -43.09, 1.31)
	pt3dadd(-37.9049, 3.7007, -43.83, 1.31)
	pt3dadd(-37.9049, 3.7007, -44.1, 1.31)
	pt3dadd(-39.0849, 3.7107, -45.1, 1.31)
	pt3dadd(-39.0849, 3.7107, -45.47, 1.31)
	pt3dadd(-39.9949, 3.5307, -47.28, 1.31)
	pt3dadd(-39.9949, 3.5307, -48.18, 1.31)
    }
}

proc shape3d_dend8_3() {
    dend[12] {pt3dclear()
	pt3dadd(-30.1349, -20.4993, -12.61, 1.97)
	pt3dadd(-32.7749, -21.4893, -12.03, 1.97)
	pt3dadd(-32.7749, -21.4893, -12.4, 1.97)
	pt3dadd(-33.9549, -22.6593, -14.15, 1.97)
	pt3dadd(-34.145, -22.9293, -14.15, 1.97)
	pt3dadd(-35.145, -23.8293, -14.63, 1.97)
	pt3dadd(-35.4149, -23.6493, -15.58, 1.97)
	pt3dadd(-37.0549, -23.7293, -16.38, 1.97)
	pt3dadd(-37.2349, -24.0093, -16.38, 1.97)
	pt3dadd(-39.6049, -25.1693, -16.59, 1.97)
	pt3dadd(-39.6049, -25.1693, -17.12, 1.97)
	pt3dadd(-41.9749, -26.3393, -17.86, 1.97)
	pt3dadd(-42.1549, -26.6093, -17.97, 1.97)
	pt3dadd(-42.895, -28.8793, -18.18, 1.64)
	pt3dadd(-43.8049, -30.2393, -18.92, 1.64)
	pt3dadd(-43.8049, -30.2393, -18.97, 1.64)
	pt3dadd(-45.3549, -30.7693, -18.55, 1.64)
	pt3dadd(-45.6249, -30.5893, -18.23, 1.64)
	pt3dadd(-46.7249, -31.0393, -17.44, 1.64)
	pt3dadd(-47.4549, -32.1293, -17.44, 1.64)
	pt3dadd(-48.825, -34.7493, -16.48, 1.64)
	pt3dadd(-49.3749, -35.5693, -15.85, 1.64)
	pt3dadd(-49.3749, -35.5693, -15.21, 1.64)
	pt3dadd(-50.4749, -37.1993, -13.73, 1.64)
	pt3dadd(-50.6649, -37.4693, -13.67, 1.64)
	pt3dadd(-51.9449, -39.3693, -13.67, 1.64)
	pt3dadd(-53.2249, -41.2693, -13.67, 1.64)
	pt3dadd(-53.2249, -41.2693, -13.62, 1.64)
	pt3dadd(-53.6949, -44.8993, -12.51, 1.64)
	pt3dadd(-55.785, -45.0693, -10.92, 1.64)
	pt3dadd(-55.785, -45.0693, -10.86, 1.64)
	pt3dadd(-56.075, -47.2493, -10.28, 1.64)
	pt3dadd(-56.255, -47.5193, -10.07, 1.64)
	pt3dadd(-57.895, -48.7793, -8.96, 1.64)
	pt3dadd(-58.3549, -48.8693, -8.9, 1.64)
	pt3dadd(-60.4449, -49.0393, -8.8, 1.64)
	pt3dadd(-59.0949, -51.1393, -8.8, 1.64)
	pt3dadd(-59.2749, -51.4093, -8.8, 1.64)
	pt3dadd(-59.645, -53.1293, -8.8, 1.64)
	pt3dadd(-59.8349, -53.4093, -8.74, 1.64)
	pt3dadd(-60.7449, -54.7593, -8.37, 1.64)
	pt3dadd(-61.3849, -55.1193, -8.06, 1.64)
	pt3dadd(-62.2049, -55.7593, -7.9, 1.64)
	pt3dadd(-62.8449, -56.1093, -7.79, 1.64)
	pt3dadd(-63.0249, -56.3893, -7.79, 1.64)
	pt3dadd(-64.5849, -58.0993, -7.31, 1.64)
	pt3dadd(-64.9449, -58.6493, -7.21, 1.64)
	pt3dadd(-65.6749, -59.7293, -6.89, 1.64)
	pt3dadd(-65.8649, -59.9993, -6.73, 1.64)
	pt3dadd(-68.5949, -61.7193, -6.25, 1.31)
	pt3dadd(-68.0649, -64.4393, -5.35, 1.31)
	pt3dadd(-68.4349, -64.9893, -5.3, 1.31)
	pt3dadd(-69.3449, -65.1593, -5.3, 1.31)
	pt3dadd(-69.7949, -65.2493, -5.3, 1.31)
	pt3dadd(-69.7949, -65.2493, -5.3, 1.31)
	pt3dadd(-70.1649, -65.7993, -5.3, 1.31)
	pt3dadd(-70.0749, -66.2493, -5.25, 1.31)
	pt3dadd(-69.9049, -68.3393, -4.66, 1.31)
	pt3dadd(-69.9049, -68.3393, -4.56, 1.31)
	pt3dadd(-69.9949, -69.0693, -4.29, 1.31)
	pt3dadd(-69.9949, -69.0693, -4.19, 1.31)
	pt3dadd(-71.0049, -69.9693, -3.34, 1.31)
	pt3dadd(-71.0049, -69.9693, -3.23, 1.31)
	pt3dadd(-70.4149, -72.4893, -3.23, 1.31)
	pt3dadd(-74.3449, -74.4893, -3.23, 1.31)
	pt3dadd(-75.3149, -75.5793, -2.01, 1.31)
	pt3dadd(-75.4849, -76.2193, -1.48, 1.31)
	pt3dadd(-76.3649, -76.9993, -1.22, 1.31)
	pt3dadd(-76.3649, -76.9993, -1.01, 1.31)
	pt3dadd(-78.3549, -76.7993, -0.53, 1.31)
	pt3dadd(-78.4349, -77.1193, -0.53, 1.31)
	pt3dadd(-79.2349, -77.5793, -0.53, 1.31)
	pt3dadd(-81.8549, -77.2193, -0.27, 1.31)
	pt3dadd(-82.5949, -78.7193, -0.11, 1.31)
	pt3dadd(-83.0849, -79.2693, -0.05, 1.31)
	pt3dadd(-83.6549, -80.1293, 0.05, 1.31)
	pt3dadd(-83.8249, -80.7593, 0.05, 1.31)
	pt3dadd(-83.6149, -82.5093, -0.9, 1.31)
	pt3dadd(-85.3049, -83.7593, -2.28, 1.31)
	pt3dadd(-85.8749, -84.6193, -2.28, 1.31)
	pt3dadd(-86.9949, -84.9993, -2.12, 1.31)
	pt3dadd(-86.7549, -85.3993, -1.96, 1.31)
	pt3dadd(-86.8449, -85.7193, -1.96, 1.31)
	pt3dadd(-86.785, -86.7493, -1.17, 1.31)
	pt3dadd(-86.9549, -87.3793, -1.17, 1.31)
	pt3dadd(-86.5749, -88.4993, -0.64, 1.31)
	pt3dadd(-86.5749, -88.4993, -0.48, 1.31)
	pt3dadd(-86.6849, -90.1693, -0.37, 1.31)
	pt3dadd(-86.3649, -90.2493, -0.37, 1.31)
	pt3dadd(-87.2749, -92.3793, 0.16, 1.31)
	pt3dadd(-87.6749, -92.6193, 0.16, 1.31)
	pt3dadd(-87.6349, -94.9993, 0.58, 1.31)
	pt3dadd(-87.7249, -95.3193, 0.9, 1.31)
	pt3dadd(-87.9749, -96.2593, 1.85, 1.31)
	pt3dadd(-88.0549, -96.5793, 1.91, 1.31)
	pt3dadd(-90.7449, -100.269, 2.07, 1.31)
	pt3dadd(-90.8249, -100.589, 2.07, 1.31)
	pt3dadd(-91.4849, -101.769, 2.01, 1.31)
	pt3dadd(-91.4849, -101.769, 1.96, 1.31)
	pt3dadd(-93.4849, -102.929, 1.06, 1.31)
	pt3dadd(-93.4849, -102.929, 0.69, 1.31)
	pt3dadd(-95.2049, -105.519, -1.8, 1.31)
    }
}

proc shape3d_dend6_2() {
    dend[13] {pt3dclear()
	pt3dadd(-22.9849, -12.4393, 14.05, 1.95)
	pt3dadd(-21.9249, -15.0293, 14.37, 1.95)
	pt3dadd(-21.2349, -15.5993, 13.89, 1.95)
	pt3dadd(-21.9649, -16.4193, 14.37, 1.95)
	pt3dadd(-21.9649, -16.4193, 14.85, 1.95)
	pt3dadd(-22.3849, -16.7293, 16.01, 1.95)
    }
}

proc shape3d_dend6_3() {
    dend[14] {pt3dclear()
	pt3dadd(-22.9849, -12.4393, 14.05, 1.64)
	pt3dadd(-22.5949, -11.9793, 13.94, 1.64)
	pt3dadd(-21.8249, -12.1793, 14.52, 1.64)
	pt3dadd(-23.3849, -10.4093, 15.64, 1.64)
	pt3dadd(-23.7649, -9.2893, 15.64, 1.64)
	pt3dadd(-24.7149, -9.0393, 15.64, 1.64)
	pt3dadd(-25.6649, -8.7793, 15.64, 1.64)
	pt3dadd(-26.0649, -9.0193, 15.64, 1.64)
	pt3dadd(-26.4649, -9.2493, 15.64, 1.64)
	pt3dadd(-27.4149, -8.9893, 15.64, 1.64)
	pt3dadd(-27.6449, -8.5893, 15.69, 1.64)
	pt3dadd(-26.4449, -7.8993, 18.13, 1.31)
	pt3dadd(-26.4449, -7.8993, 18.28, 1.31)
	pt3dadd(-27.8549, -6.8393, 18.07, 1.31)
	pt3dadd(-27.8549, -6.8393, 18.02, 1.31)
	pt3dadd(-28.8049, -6.5893, 17.38, 1.31)
	pt3dadd(-29.1249, -6.4993, 17.6, 1.31)
	pt3dadd(-29.8149, -5.2993, 18.5, 1.31)
	pt3dadd(-30.0449, -4.8993, 18.5, 1.31)
	pt3dadd(-30.2749, -4.4993, 18.55, 1.31)
	pt3dadd(-30.1949, -4.1793, 18.55, 1.31)
	pt3dadd(-30.8249, -4.0093, 18.87, 1.31)
	pt3dadd(-30.9749, -3.2893, 18.92, 1.31)
	pt3dadd(-31.6649, -2.0893, 19.56, 1.31)
	pt3dadd(-31.9849, -1.9993, 20.19, 1.31)
	pt3dadd(-32.685, -0.7993, 17.81, 1.31)
	pt3dadd(-32.685, -0.7993, 17.54, 1.31)
	pt3dadd(-33.6249, -0.5493, 17.49, 1.31)
	pt3dadd(-33.9449, -0.4593, 17.7, 1.31)
	pt3dadd(-35.5249, -0.0393003, 18.6, 1.31)
	pt3dadd(-35.5249, -0.0393003, 18.97, 1.31)
	pt3dadd(-36.075, 0.4507, 15.37, 1.31)
	pt3dadd(-36.395, 0.5307, 15.16, 1.31)
	pt3dadd(-36.8549, 1.3407, 15.16, 1.31)
	pt3dadd(-37.1749, 1.4207, 15.05, 1.31)
	pt3dadd(-38.185, 2.7107, 14.89, 1.31)
	pt3dadd(-38.0149, 3.3407, 13.57, 1.31)
	pt3dadd(-38.0149, 3.3407, 13.51, 1.31)
	pt3dadd(-38.965, 3.6007, 12.45, 1.31)
	pt3dadd(-39.2749, 3.6807, 12.45, 1.31)
	pt3dadd(-39.9149, 3.8507, 12.72, 1.31)
	pt3dadd(-39.9149, 3.8507, 12.77, 1.31)
	pt3dadd(-40.285, 4.9707, 12.77, 1.31)
	pt3dadd(-40.6049, 5.0507, 12.77, 1.31)
	pt3dadd(-41.3049, 6.2607, 12.77, 1.31)
	pt3dadd(-41.7649, 7.0607, 11.55, 1.31)
	pt3dadd(-41.7649, 7.0607, 11.24, 1.31)
	pt3dadd(-42.2049, 9.2107, 11.08, 1.31)
	pt3dadd(-42.435, 9.6107, 10.49, 1.31)
	pt3dadd(-44.3349, 10.1207, 9.27, 1.31)
	pt3dadd(-44.5649, 10.5207, 9.22, 1.31)
	pt3dadd(-45.1949, 10.6907, 9.22, 1.31)
	pt3dadd(-45.5149, 10.7807, 9.12, 1.31)
	pt3dadd(-45.7449, 11.1807, 9.06, 1.31)
	pt3dadd(-46.3549, 12.7007, 7.05, 1.31)
	pt3dadd(-46.2749, 13.0107, 7.15, 1.31)
	pt3dadd(-47.285, 14.3007, 8.59, 1.31)
	pt3dadd(-47.1949, 14.6207, 8.59, 1.31)
	pt3dadd(-46.685, 16.5207, 8.59, 1.31)
	pt3dadd(-47.005, 16.6007, 8.59, 1.31)
	pt3dadd(-47.3849, 17.7207, 8.59, 1.31)
	pt3dadd(-47.295, 18.0407, 8.59, 1.31)
	pt3dadd(-47.7649, 18.8407, 8.59, 1.31)
	pt3dadd(-48.395, 19.0107, 8.59, 1.31)
	pt3dadd(-50.295, 19.5207, 8.59, 1.31)
	pt3dadd(-50.145, 18.8007, 8.59, 1.31)
	pt3dadd(-50.6949, 19.2907, 8.59, 1.31)
	pt3dadd(-51.075, 20.4007, 8.37, 1.31)
	pt3dadd(-51.3849, 20.4907, 8.43, 1.31)
	pt3dadd(-52.505, 20.1107, 7.63, 1.31)
	pt3dadd(-53.145, 20.2807, 9.01, 1.31)
	pt3dadd(-54.4049, 20.6207, 9.54, 1.31)
	pt3dadd(-54.7249, 20.7007, 9.54, 1.31)
	pt3dadd(-55.9049, 21.3607, 9.7, 1.31)
	pt3dadd(-55.8149, 21.6807, 9.75, 1.31)
	pt3dadd(-56.7649, 21.9307, 9.75, 1.31)
	pt3dadd(-57.8849, 21.5507, 10.55, 1.31)
	pt3dadd(-58.5149, 21.7207, 10.71, 1.31)
	pt3dadd(-58.755, 22.1207, 10.71, 1.31)
	pt3dadd(-59.535, 23.0107, 10.65, 1.31)
	pt3dadd(-61.0249, 23.7507, 10.65, 1.31)
	pt3dadd(-61.825, 23.2907, 8.9, 1.31)
	pt3dadd(-62.545, 23.1407, 8.27, 1.31)
	pt3dadd(-62.865, 23.2207, 8.27, 1.31)
	pt3dadd(-63.8149, 23.4807, 8.22, 1.31)
	pt3dadd(-64.1249, 23.5607, 8.22, 1.31)
	pt3dadd(-64.7649, 23.7307, 8.22, 1.31)
	pt3dadd(-65.3949, 23.9007, 8.22, 1.31)
	pt3dadd(-66.3449, 24.1607, 8.27, 1.31)
	pt3dadd(-66.9749, 24.3307, 8.06, 1.31)
	pt3dadd(-69.1249, 23.8907, 7.84, 1.31)
	pt3dadd(-70.5449, 24.9407, 7.84, 1.31)
	pt3dadd(-71.3249, 25.8307, 7.84, 1.31)
	pt3dadd(-72.7549, 25.5407, 7.26, 1.31)
	pt3dadd(-73.0749, 25.6207, 7.26, 1.31)
	pt3dadd(-75.285, 26.2107, 7.26, 1.31)
	pt3dadd(-77.7949, 28.2407, 7.26, 1.31)
	pt3dadd(-78.1149, 28.3307, 7.26, 1.31)
	pt3dadd(-78.4249, 28.4107, 7.26, 1.31)
	pt3dadd(-78.7249, 29.8507, 7.68, 1.31)
	pt3dadd(-78.7249, 29.8507, 6.2, 1.31)
	pt3dadd(-79.9849, 30.1907, 5.3, 1.31)
	pt3dadd(-79.9049, 30.5007, 5.62, 1.31)
	pt3dadd(-81.1649, 30.8407, 6.52, 1.31)
	pt3dadd(-81.4849, 30.9307, 6.52, 1.31)
	pt3dadd(-83.0649, 31.3507, 6.63, 1.31)
	pt3dadd(-83.0649, 31.3507, 6.68, 1.31)
	pt3dadd(-83.215, 32.0707, 6.52, 1.31)
	pt3dadd(-83.215, 32.0707, 6.57, 1.31)
	pt3dadd(-84.1649, 32.3207, 7.21, 1.31)
	pt3dadd(-84.4749, 32.4107, 7.21, 1.31)
	pt3dadd(-86.0549, 32.8307, 7.68, 1.31)
	pt3dadd(-86.0549, 32.8307, 7.84, 1.31)
	pt3dadd(-87.1549, 33.8007, 8.48, 1.31)
	pt3dadd(-88.1049, 34.0607, 8.48, 1.31)
	pt3dadd(-88.5949, 33.5107, 8.48, 1.31)
	pt3dadd(-88.9949, 33.2807, 8.48, 1.31)
	pt3dadd(-89.3949, 33.0507, 8.48, 1.31)
	pt3dadd(-90.1149, 32.9007, 8.48, 1.31)
	pt3dadd(-90.7449, 33.0707, 8.53, 1.31)
	pt3dadd(-91.1449, 32.8407, 8.53, 1.31)
	pt3dadd(-92.1749, 32.7707, 9.12, 1.31)
	pt3dadd(-92.5749, 32.5407, 9.22, 1.31)
	pt3dadd(-94.3349, 32.3307, 7.79, 1.31)
	pt3dadd(-95.0449, 32.1907, 7.74, 1.31)
	pt3dadd(-95.6849, 32.3607, 7.74, 1.31)
	pt3dadd(-95.6849, 32.3607, 8, 1.31)
	pt3dadd(-95.6849, 32.3607, 8.11, 1.31)
	pt3dadd(-96.4549, 33.2407, 9.54, 1.31)
	pt3dadd(-96.4549, 33.2407, 9.75, 1.31)
	pt3dadd(-97.3449, 32.4607, 10.07, 1.31)
	pt3dadd(-97.7449, 32.2307, 10.12, 1.31)
	pt3dadd(-98.465, 32.0907, 10.23, 1.31)
	pt3dadd(-98.465, 32.0907, 10.34, 1.31)
	pt3dadd(-99.1849, 31.9407, 11.13, 1.31)
	pt3dadd(-99.8149, 32.1107, 10.28, 1.31)
	pt3dadd(-100.535, 31.9607, 9.7, 1.31)
	pt3dadd(-100.845, 32.0507, 9.7, 1.31)
	pt3dadd(-102.195, 32.0707, 9.75, 1.31)
	pt3dadd(-102.515, 32.1507, 9.75, 1.31)
	pt3dadd(-103.865, 32.1807, 9.96, 1.31)
	pt3dadd(-104.265, 31.9407, 10.12, 1.31)
	pt3dadd(-105.675, 33.0007, 11.18, 1.31)
	pt3dadd(-106.315, 33.1707, 11.18, 1.31)
	pt3dadd(-108.215, 33.6807, 11.18, 1.31)
	pt3dadd(-108.925, 33.5307, 11.18, 1.31)
	pt3dadd(-110.955, 36.1107, 11.18, 1.31)
	pt3dadd(-110.955, 36.1107, 11.45, 1.31)
	pt3dadd(-112.535, 36.5307, 11.98, 1.31)
	pt3dadd(-112.535, 36.5307, 11.93, 1.31)
	pt3dadd(-113.315, 37.4207, 11.93, 1.31)
	pt3dadd(-113.945, 37.5907, 11.93, 1.31)
	pt3dadd(-115.215, 37.9307, 11.98, 1.31)
	pt3dadd(-115.295, 37.6107, 13.62, 1.31)
	pt3dadd(-116.735, 37.3207, 11.93, 1.31)
	pt3dadd(-116.735, 37.3207, 11.87, 1.31)
	pt3dadd(-118.485, 37.1107, 11.82, 1.31)
	pt3dadd(-118.795, 37.1907, 11.61, 1.31)
	pt3dadd(-119.605, 36.7307, 11.5, 1.31)
	pt3dadd(-120.405, 36.2707, 11.5, 1.31)
	pt3dadd(-120.805, 36.0407, 11.5, 1.31)
	pt3dadd(-121.605, 35.5707, 11.5, 1.31)
	pt3dadd(-122.005, 35.3407, 11.5, 1.31)
	pt3dadd(-122.405, 35.1107, 11.61, 1.31)
	pt3dadd(-122.805, 34.8807, 11.66, 1.31)
	pt3dadd(-123.525, 34.7307, 11.77, 1.31)
	pt3dadd(-124.325, 34.2707, 12.24, 1.31)
	pt3dadd(-124.645, 34.3507, 12.72, 1.31)
	pt3dadd(-125.675, 34.2907, 13.25, 1.31)
	pt3dadd(-126.315, 34.4607, 13.46, 1.31)
	pt3dadd(-128.145, 33.9407, 13.99, 1.31)
	pt3dadd(-128.145, 33.9407, 14.36, 1.31)
	pt3dadd(-129.875, 35.0807, 17.01, 1.31)
	pt3dadd(-129.565, 34.9907, 17.65, 1.31)
	pt3dadd(-129.155, 35.2207, 19.24, 1.31)
	pt3dadd(-129.155, 35.2207, 19.45, 1.31)
    }
}

proc shape3d_dend5_2() {
    dend[15] {pt3dclear()
	pt3dadd(-29.2149, -17.5593, 0.11, 1.31)
	pt3dadd(-31.4949, -15.9293, 0.11, 1.31)
	pt3dadd(-31.865, -14.8193, 0.11, 1.31)
	pt3dadd(-31.865, -14.8193, 0.37, 1.31)
	pt3dadd(-33.7649, -14.3093, -0.74, 1.31)
	pt3dadd(-34.0849, -14.2193, -1.59, 1.31)
	pt3dadd(-35.435, -14.1993, -1.64, 1.31)
	pt3dadd(-35.435, -14.1993, -0.95, 1.31)
	pt3dadd(-36.0649, -14.0293, -0.9, 1.31)
	pt3dadd(-36.935, -13.4593, -0.95, 1.31)
	pt3dadd(-37.2449, -13.3693, -0.95, 1.31)
	pt3dadd(-37.8849, -13.1993, -1.06, 1.31)
	pt3dadd(-37.2449, -13.3693, -1.27, 1.31)
	pt3dadd(-37.2449, -13.3693, -1.32, 1.31)
	pt3dadd(-39.075, -12.0993, -1.32, 1.31)
	pt3dadd(-39.075, -12.0993, -1.43, 1.31)
	pt3dadd(-39.6249, -12.9093, -4.56, 1.31)
	pt3dadd(-39.6249, -12.9093, -4.72, 1.31)
	pt3dadd(-40.6349, -13.8093, -7.74, 1.31)
	pt3dadd(-42.535, -12.5293, -8.43, 1.31)
	pt3dadd(-43.7049, -11.3393, -8.43, 1.31)
	pt3dadd(-45.615, -11.2393, -8.43, 1.31)
	pt3dadd(-46.785, -10.0593, -8.43, 1.31)
	pt3dadd(-46.785, -10.0593, -8.53, 1.31)
	pt3dadd(-47.2449, -10.1393, -9.43, 1.31)
	pt3dadd(-48.1549, -10.3193, -5.94, 1.31)
	pt3dadd(-48.1549, -10.3193, -5.67, 1.31)
	pt3dadd(-48.4149, -8.9593, -3.39, 1.31)
	pt3dadd(-48.4149, -8.9593, -3.23, 1.31)
	pt3dadd(-50.045, -7.8593, -3.76, 1.31)
    }
}

proc shape3d_dend5_3() {
    dend[16] {pt3dclear()
	pt3dadd(-29.2149, -17.5593, 0.11, 1.97)
	pt3dadd(-30.0149, -18.0193, -0.21, 1.97)
	pt3dadd(-31.2849, -17.6893, 3.71, 1.97)
	pt3dadd(-33.435, -18.1293, 1.91, 1.97)
	pt3dadd(-35.5249, -19.5993, 1.43, 1.97)
	pt3dadd(-35.5249, -19.5993, 1.38, 1.97)
	pt3dadd(-35.7749, -20.5493, 3.34, 1.97)
	pt3dadd(-35.7749, -20.5493, 4.08, 1.97)
	pt3dadd(-36.285, -22.4493, 4.98, 1.97)
	pt3dadd(-36.285, -22.4493, 5.03, 1.97)
	pt3dadd(-38.035, -22.6593, 5.72, 1.97)
    }
}

proc shape3d_dend4_2() {
    dend[17] {pt3dclear()
	pt3dadd(-17.4549, -31.8993, 1.17, 1.64)
	pt3dadd(-18.7249, -31.5593, 1.38, 1.64)
	pt3dadd(-19.0449, -31.4793, 1.38, 1.64)
	pt3dadd(-19.9249, -32.2593, 1.54, 1.64)
	pt3dadd(-20.9049, -33.3493, 1.54, 1.64)
	pt3dadd(-21.0649, -33.9793, 1.54, 1.64)
	pt3dadd(-21.5749, -35.8793, 2.49, 1.64)
	pt3dadd(-21.5749, -35.8793, 2.7, 1.64)
	pt3dadd(-23.1649, -35.4593, 3.34, 1.64)
	pt3dadd(-23.1649, -35.4593, 3.39, 1.64)
	pt3dadd(-23.9649, -35.9193, 3.5, 1.64)
	pt3dadd(-23.9649, -35.9193, 3.71, 1.64)
	pt3dadd(-24.3049, -37.1893, 3.76, 1.31)
	pt3dadd(-24.3049, -37.1893, 3.71, 1.31)
	pt3dadd(-24.6449, -38.4493, 2.76, 1.31)
	pt3dadd(-24.6449, -38.4493, 2.91, 1.31)
	pt3dadd(-25.3549, -38.5993, 4.08, 1.31)
	pt3dadd(-25.3549, -38.5993, 4.13, 1.31)
	pt3dadd(-25.9249, -39.4593, 4.24, 1.31)
	pt3dadd(-25.9249, -39.4593, 4.29, 1.31)
	pt3dadd(-26.5849, -40.6393, 4.29, 1.31)
	pt3dadd(-26.8349, -41.5893, 4.29, 1.31)
	pt3dadd(-26.9249, -41.9093, 4.29, 1.31)
	pt3dadd(-27.4949, -42.7693, 5.41, 1.31)
	pt3dadd(-27.5749, -43.0893, 5.46, 1.31)
	pt3dadd(-28.3849, -43.5493, 5.83, 1.31)
	pt3dadd(-28.3849, -43.5493, 5.88, 1.31)
	pt3dadd(-29.6049, -45.5993, 6.52, 1.31)
	pt3dadd(-29.6049, -45.5993, 6.47, 1.31)
	pt3dadd(-29.5449, -46.6293, 7.53, 1.31)
	pt3dadd(-29.5449, -46.6293, 7.58, 1.31)
	pt3dadd(-31.0649, -47.2393, 8.27, 1.31)
	pt3dadd(-31.0649, -47.2393, 8.37, 1.31)
	pt3dadd(-32.4949, -47.5393, 8.64, 1.31)
	pt3dadd(-32.4949, -47.5393, 8.69, 1.31)
	pt3dadd(-33.615, -47.9193, 8.85, 1.31)
	pt3dadd(-34.1049, -48.4593, 8.85, 1.31)
	pt3dadd(-34.755, -49.6393, 8.85, 1.31)
	pt3dadd(-34.8449, -49.9593, 8.85, 1.31)
	pt3dadd(-35.0949, -50.9093, 8.9, 1.31)
	pt3dadd(-34.4049, -52.1093, 9.12, 1.31)
	pt3dadd(-34.4849, -52.4293, 9.27, 1.31)
	pt3dadd(-35.2049, -52.5793, 9.43, 1.31)
	pt3dadd(-35.5249, -52.4893, 9.49, 1.31)
	pt3dadd(-36.8749, -52.4693, 9.49, 1.31)
	pt3dadd(-38.645, -54.0293, 10.97, 1.31)
	pt3dadd(-39.215, -54.8893, 11.39, 1.31)
	pt3dadd(-39.4049, -56.8693, 11.71, 1.31)
	pt3dadd(-39.575, -57.5093, 12.14, 1.31)
	pt3dadd(-39.575, -57.5093, 12.3, 1.31)
	pt3dadd(-39.8349, -58.4593, 12.61, 1.31)
	pt3dadd(-39.8349, -58.4593, 12.88, 1.31)
	pt3dadd(-41.295, -60.0993, 13.99, 1.31)
	pt3dadd(-41.295, -60.0993, 14.05, 1.31)
	pt3dadd(-41.545, -61.0493, 14.05, 1.31)
	pt3dadd(-41.545, -61.0493, 14.26, 1.31)
	pt3dadd(-42.5149, -62.1493, 15.42, 1.31)
	pt3dadd(-42.8349, -62.0593, 15.42, 1.31)
	pt3dadd(-43.4049, -62.9293, 15.74, 1.31)
	pt3dadd(-43.4849, -63.2393, 15.79, 1.31)
	pt3dadd(-43.825, -64.5093, 16.32, 1.31)
	pt3dadd(-43.825, -64.5093, 16.38, 1.31)
	pt3dadd(-44.3349, -66.4093, 17.01, 1.31)
	pt3dadd(-44.4249, -66.7193, 17.12, 1.31)
	pt3dadd(-44.6749, -67.6693, 17.17, 1.31)
	pt3dadd(-44.7649, -67.9893, 17.17, 1.31)
	pt3dadd(-45.0149, -68.9393, 17.44, 1.31)
	pt3dadd(-45.0149, -68.9393, 17.7, 1.31)
	pt3dadd(-44.7249, -70.3693, 18.55, 1.31)
	pt3dadd(-44.7249, -70.3693, 18.6, 1.31)
	pt3dadd(-45.145, -71.9493, 18.82, 1.31)
	pt3dadd(-45.395, -72.8993, 19.08, 1.31)
	pt3dadd(-47.0849, -74.1393, 19.34, 1.31)
	pt3dadd(-47.3449, -75.0893, 19.34, 1.31)
	pt3dadd(-47.3449, -75.0893, 19.4, 1.31)
	pt3dadd(-48.255, -77.2193, 19.56, 1.31)
	pt3dadd(-48.4449, -79.2093, 20.25, 1.31)
	pt3dadd(-48.4449, -79.2093, 20.41, 1.31)
	pt3dadd(-49.185, -80.6993, 20.99, 1.31)
	pt3dadd(-49.5249, -81.9693, 21.15, 1.31)
	pt3dadd(-49.5249, -81.9693, 21.25, 1.31)
	pt3dadd(-50.0949, -82.8293, 21.57, 1.31)
	pt3dadd(-50.1749, -83.1493, 21.57, 1.31)
	pt3dadd(-50.3449, -83.7793, 22.05, 1.31)
	pt3dadd(-50.3449, -83.7793, 22.15, 1.31)
	pt3dadd(-50.435, -84.0993, 22.47, 1.31)
	pt3dadd(-50.8349, -84.3293, 22.52, 1.31)
	pt3dadd(-51.3449, -86.2293, 25.6, 1.31)
	pt3dadd(-51.935, -88.4393, 26.76, 1.31)
	pt3dadd(-52.0249, -88.7593, 26.92, 1.31)
	pt3dadd(-52.365, -90.0193, 27.45, 1.31)
	pt3dadd(-52.365, -90.0193, 27.51, 1.31)
	pt3dadd(-53.4149, -91.4393, 27.98, 1.31)
	pt3dadd(-53.505, -91.7493, 28.14, 1.31)
	pt3dadd(-54.0949, -93.9693, 28.94, 1.31)
	pt3dadd(-54.0949, -93.9693, 29.1, 1.31)
	pt3dadd(-54.3549, -94.9193, 29.41, 1.31)
	pt3dadd(-54.075, -97.6993, 29.31, 1.31)
	pt3dadd(-54.6749, -99.9193, 29.36, 1.31)
	pt3dadd(-54.8449, -100.549, 29.41, 1.31)
	pt3dadd(-54.3149, -102.389, 30.05, 1.31)
	pt3dadd(-54.3149, -102.389, 30.32, 1.31)
	pt3dadd(-54.575, -103.329, 31.64, 1.31)
	pt3dadd(-54.575, -103.329, 31.91, 1.31)
	pt3dadd(-54.7449, -103.969, 32.49, 1.31)
	pt3dadd(-54.825, -104.279, 32.6, 1.31)
	pt3dadd(-55.1049, -106.579, 32.33, 1.31)
	pt3dadd(-55.5249, -108.159, 34.61, 1.31)
	pt3dadd(-55.5249, -108.159, 35.19, 1.31)
	pt3dadd(-56.6649, -109.889, 35.83, 1.31)
	pt3dadd(-57.0649, -110.129, 36.15, 1.31)
	pt3dadd(-58.045, -111.219, 36.25, 1.31)
	pt3dadd(-58.3549, -111.139, 36.25, 1.31)
	pt3dadd(-60.045, -112.379, 35.77, 1.31)
    }
}

proc shape3d_dend4_3() {
    dend[18] {pt3dclear()
	pt3dadd(-17.4549, -31.8993, 1.17, 1.31)
	pt3dadd(-15.5849, -33.7593, 1.17, 1.31)
	pt3dadd(-15.5849, -33.7593, 1.22, 1.31)
	pt3dadd(-15.9249, -35.0193, 2.91, 1.31)
	pt3dadd(-15.9249, -35.0193, 3.5, 1.31)
	pt3dadd(-16.2649, -36.2893, 4.19, 1.31)
	pt3dadd(-15.9649, -37.7293, 4.24, 1.31)
	pt3dadd(-16.0549, -38.0393, 4.29, 1.31)
	pt3dadd(-15.0449, -39.3293, 4.82, 1.31)
    }
}

proc shape3d_dend3_2() {
    dend[19] {pt3dclear()
	pt3dadd(-11.43, -27.46, 2.28, 1.31)
	pt3dadd(-10.69, -28.5, 0.8, 1.31)
	pt3dadd(-10.63, -29.53, -0.05, 1.31)
	pt3dadd(-10.63, -29.53, -0.37, 1.31)
	pt3dadd(-11.05, -31.12, -1.06, 1.31)
	pt3dadd(-11.05, -31.12, -1.32, 1.31)
	pt3dadd(-11.71, -32.3, -2.7, 1.31)
	pt3dadd(-11.71, -32.3, -2.81, 1.31)
	pt3dadd(-12.42, -32.44, -3.13, 1.31)
	pt3dadd(-12.42, -32.44, -3.18, 1.31)
	pt3dadd(-12.91, -32.99, -3.82, 1.31)
	pt3dadd(-12.91, -32.99, -3.87, 1.31)
	pt3dadd(-12.91, -32.99, -3.92, 1.31)
	pt3dadd(-14.02, -33.16, -4.03, 1.31)
	pt3dadd(-14.2, -33.43, -4.08, 1.31)
	pt3dadd(-15.39, -34.61, -6.09, 1.31)
	pt3dadd(-15.39, -34.61, -6.68, 1.31)
	pt3dadd(-16.31, -35.97, -8.16, 1.31)
	pt3dadd(-17.49, -37.14, -8.16, 1.31)
	pt3dadd(-17.68, -37.41, -8.16, 1.31)
	pt3dadd(-18.41, -38.5, -8.48, 1.31)
	pt3dadd(-19.23, -39.13, -8.48, 1.31)
	pt3dadd(-20.6, -40.57, -8.53, 1.31)
	pt3dadd(-21.33, -40.48, -9.17, 1.31)
	pt3dadd(-22.05, -40.39, -10.28, 1.31)
	pt3dadd(-22.24, -40.66, -10.55, 1.31)
	pt3dadd(-23.24, -41.56, -11.61, 1.31)
	pt3dadd(-23.51, -41.38, -12.08, 1.31)
	pt3dadd(-24.88, -41.64, -12.24, 1.31)
	pt3dadd(-25.06, -41.91, -12.24, 1.31)
	pt3dadd(-26.33, -42.63, -12.14, 1.31)
	pt3dadd(-26.61, -42.45, -12.14, 1.31)
	pt3dadd(-28.34, -43.26, -12.14, 1.31)
	pt3dadd(-28.52, -43.53, -12.14, 1.31)
	pt3dadd(-29.34, -44.16, -12.14, 1.31)
	pt3dadd(-29.52, -44.43, -12.14, 1.31)
	pt3dadd(-29.63, -47.52, -12.83, 1.31)
	pt3dadd(-30.55, -48.88, -12.77, 1.31)
	pt3dadd(-30.55, -48.88, -12.61, 1.31)
	pt3dadd(-31.1, -49.69, -11.29, 1.31)
	pt3dadd(-31.28, -49.96, -11.24, 1.31)
	pt3dadd(-32.02, -52.23, -11.18, 1.31)
	pt3dadd(-32.2, -52.5, -11.18, 1.31)
	pt3dadd(-32.57, -53.05, -11.18, 1.31)
	pt3dadd(-33.94, -54.49, -11.98, 1.31)
	pt3dadd(-33.94, -54.49, -12.19, 1.31)
	pt3dadd(-35.03, -54.94, -14.31, 1.31)
	pt3dadd(-35.21, -55.21, -14.42, 1.31)
	pt3dadd(-35.76, -56.03, -14.52, 1.31)
	pt3dadd(-35.76, -56.03, -15.26, 1.31)
	pt3dadd(-35.95, -57.48, -16.32, 1.31)
	pt3dadd(-36.32, -58.02, -16.48, 1.31)
	pt3dadd(-37.05, -59.11, -16.59, 1.31)
	pt3dadd(-37.05, -59.11, -16.64, 1.31)
	pt3dadd(-39.51, -59.82, -17.54, 1.31)
	pt3dadd(-38.06, -61.19, -18.02, 1.31)
	pt3dadd(-39.43, -61.46, -21.73, 1.31)
	pt3dadd(-39.53, -63.36, -23, 1.31)
	pt3dadd(-40.72, -64.54, -23, 1.31)
	pt3dadd(-40.72, -64.54, -23.48, 1.31)
	pt3dadd(-40.82, -66.45, -25.33, 1.31)
	pt3dadd(-39.91, -67.45, -25.92, 1.31)
	pt3dadd(-40.83, -68.81, -26.61, 1.31)
	pt3dadd(-40.83, -68.81, -27.35, 1.31)
	pt3dadd(-40.83, -68.81, -27.82, 1.31)
	pt3dadd(-41.93, -70.44, -28.57, 1.31)
	pt3dadd(-40.84, -71.17, -29.41, 1.31)
	pt3dadd(-40.57, -71.35, -29.89, 1.31)
	pt3dadd(-41.21, -72.89, -31.11, 1.31)
	pt3dadd(-41.21, -72.89, -31.48, 1.31)
	pt3dadd(-41.86, -74.43, -31.75, 1.31)
	pt3dadd(-42.59, -75.52, -31.8, 1.31)
	pt3dadd(-43.14, -76.33, -31.8, 1.31)
	pt3dadd(-43.14, -76.33, -31.91, 1.31)
	pt3dadd(-41.97, -77.52, -33.23, 1.31)
	pt3dadd(-41.88, -77.98, -33.44, 1.31)
	pt3dadd(-42.61, -79.06, -34.08, 1.31)
	pt3dadd(-42.61, -79.06, -34.45, 1.31)
	pt3dadd(-42.89, -80.06, -35.03, 1.31)
	pt3dadd(-42.89, -80.06, -35.19, 1.31)
	pt3dadd(-42.89, -81.24, -35.88, 1.31)
	pt3dadd(-42.81, -81.7, -35.99, 1.31)
	pt3dadd(-42.9, -82.42, -36.46, 1.31)
	pt3dadd(-43.08, -82.69, -36.89, 1.31)
	pt3dadd(-43.45, -83.24, -37.36, 1.31)
	pt3dadd(-43.63, -83.51, -37.36, 1.31)
	pt3dadd(-43.91, -84.51, -38.9, 1.31)
	pt3dadd(-43.64, -84.69, -39.38, 1.31)
	pt3dadd(-43.01, -85.51, -40.23, 1.31)
	pt3dadd(-43.19, -85.78, -40.49, 1.31)
	pt3dadd(-44.11, -87.14, -41.02, 1.31)
	pt3dadd(-44.11, -87.14, -41.66, 1.31)
	pt3dadd(-44.02, -87.59, -42.93, 1.31)
	pt3dadd(-44.02, -87.59, -43.19, 1.31)
	pt3dadd(-44.3, -88.59, -43.57, 1.31)
	pt3dadd(-44.3, -88.59, -44.73, 1.31)
	pt3dadd(-44.3, -88.59, -46.22, 1.31)
	pt3dadd(-44.21, -89.05, -46.38, 1.31)
	pt3dadd(-43.58, -89.87, -46.96, 1.31)
	pt3dadd(-43.58, -89.87, -47.17, 1.31)
	pt3dadd(-42.95, -90.69, -48.39, 1.31)
	pt3dadd(-42.95, -90.69, -48.71, 1.31)
	pt3dadd(-43.59, -92.23, -49.4, 1.31)
	pt3dadd(-43.77, -92.5, -50.61, 1.31)
	pt3dadd(-44.05, -93.5, -51.62, 1.31)
	pt3dadd(-44.05, -93.5, -52.36, 1.31)
	pt3dadd(-44.05, -93.5, -54.11, 1.31)
	pt3dadd(-43.96, -93.95, -54.59, 1.31)
	pt3dadd(-43.87, -94.41, -54.64, 1.31)
	pt3dadd(-44.06, -94.68, -55.17, 1.31)
	pt3dadd(-44.15, -95.41, -56.82, 1.31)
	pt3dadd(-44.15, -95.41, -56.92, 1.31)
	pt3dadd(-46.35, -96.76, -56.92, 0.66)
	pt3dadd(-46.76, -97.12, -56.92, 1.31)
	pt3dadd(-47.5, -98.58, -57.61, 1.31)
	pt3dadd(-47.5, -98.58, -58.35, 1.31)
	pt3dadd(-47.5, -98.58, -58.83, 1.31)
	pt3dadd(-48.4, -100.33, -59.57, 1.31)
	pt3dadd(-47.23, -100.93, -60.42, 1.31)
	pt3dadd(-46.94, -101.08, -60.9, 1.31)
	pt3dadd(-47.39, -102.68, -62.12, 1.31)
	pt3dadd(-47.39, -102.68, -62.49, 1.31)
	pt3dadd(-47.84, -104.29, -62.75, 1.31)
	pt3dadd(-48.44, -105.46, -62.81, 1.31)
	pt3dadd(-48.89, -106.33, -62.81, 1.31)
	pt3dadd(-47.58, -107.37, -64.24, 1.31)
	pt3dadd(-47.43, -107.81, -64.45, 1.31)
	pt3dadd(-48.03, -108.98, -65.08, 1.31)
	pt3dadd(-48.03, -108.98, -65.46, 1.31)
	pt3dadd(-48.19, -110, -66.04, 1.31)
	pt3dadd(-48.19, -110, -66.2, 1.31)
	pt3dadd(-48.05, -111.17, -66.89, 1.31)
	pt3dadd(-47.91, -111.62, -66.99, 1.31)
	pt3dadd(-47.91, -112.35, -67.47, 1.31)
	pt3dadd(-48.06, -112.64, -67.89, 1.31)
	pt3dadd(-48.36, -113.22, -68.37, 1.31)
	pt3dadd(-48.51, -113.51, -68.37, 1.31)
	pt3dadd(-48.66, -114.54, -69.91, 1.31)
	pt3dadd(-48.37, -114.69, -70.38, 1.31)
	pt3dadd(-47.65, -115.43, -71.23, 1.31)
	pt3dadd(-47.8, -115.72, -71.5, 1.31)
	pt3dadd(-48.54, -117.18, -72.03, 1.31)
	pt3dadd(-48.54, -117.18, -72.66, 1.31)
	pt3dadd(-48.4, -117.62, -73.93, 1.31)
	pt3dadd(-48.4, -117.62, -74.2, 1.31)
	pt3dadd(-48.55, -118.64, -74.57, 1.31)
	pt3dadd(-48.55, -118.64, -75.74, 1.31)
	pt3dadd(-48.55, -118.64, -77.22, 1.31)
	pt3dadd(-48.41, -119.08, -77.38, 1.31)
	pt3dadd(-47.68, -119.82, -77.96, 1.31)
	pt3dadd(-47.68, -119.82, -78.18, 1.31)
	pt3dadd(-46.96, -120.56, -79.39, 1.31)
	pt3dadd(-46.96, -120.56, -79.71, 1.31)
	pt3dadd(-47.41, -122.17, -80.4, 1.31)
	pt3dadd(-47.56, -122.46, -81.62, 1.31)
	pt3dadd(-47.72, -123.48, -82.63, 1.31)
	pt3dadd(-47.72, -123.48, -83.37, 1.31)
	pt3dadd(-47.72, -123.48, -85.12, 1.31)
	pt3dadd(-47.57, -123.92, -85.6, 1.31)
	pt3dadd(-47.43, -124.36, -85.65, 1.31)
	pt3dadd(-47.58, -124.65, -86.18, 1.31)
	pt3dadd(-47.59, -125.39, -87.82, 1.31)
	pt3dadd(-47.59, -125.39, -87.93, 1.31)
	pt3dadd(-49.6, -127, -87.93, 0.66)
    }
}

proc shape3d_dend3_3() {
    dend[20] {pt3dclear()
	pt3dadd(-11.2349, -27.6393, 2.28, 1.31)
	pt3dadd(-9.12495, -29.8993, 3.5, 1.31)
	pt3dadd(-6.76495, -31.2093, 3.6, 1.31)
	pt3dadd(-6.76495, -31.2093, 3.66, 1.31)
	pt3dadd(-5.18495, -31.6293, 3.76, 1.31)
	pt3dadd(-3.28495, -32.1393, 3.82, 1.31)
	pt3dadd(-2.33495, -32.3893, 3.82, 1.31)
	pt3dadd(-0.664949, -32.4993, 5.14, 1.31)
	pt3dadd(0.975051, -33.9593, 3.29, 1.31)
	pt3dadd(1.61505, -34.1293, 4.03, 1.31)
	pt3dadd(1.61505, -34.1293, 4.29, 1.31)
	pt3dadd(1.84505, -34.5293, 4.72, 1.31)
	pt3dadd(1.84505, -34.5293, 4.77, 1.31)
	pt3dadd(1.58505, -35.4793, 4.77, 1.31)
	pt3dadd(2.36505, -36.3693, 4.77, 1.31)
	pt3dadd(4.18505, -37.1893, 6.36, 1.31)
	pt3dadd(4.18505, -37.1893, 6.41, 1.31)
	pt3dadd(6.33505, -36.7493, 6.78, 1.31)
	pt3dadd(6.33505, -36.7493, 6.84, 1.31)
	pt3dadd(7.21505, -35.9693, 7.42, 1.31)
	pt3dadd(7.21505, -35.9693, 7.53, 1.31)
	pt3dadd(8.16505, -36.2193, 7.63, 1.31)
	pt3dadd(8.16505, -36.2193, 7.74, 1.31)
	pt3dadd(9.51505, -36.2493, 8.43, 1.31)
	pt3dadd(9.51505, -36.2493, 8.69, 1.31)
	pt3dadd(10.7251, -35.5493, 9.06, 1.31)
	pt3dadd(10.7251, -35.5493, 9.12, 1.31)
	pt3dadd(11.7351, -36.8393, 9.43, 1.31)
	pt3dadd(12.0551, -36.9293, 9.49, 1.31)
	pt3dadd(13.0651, -38.2093, 9.81, 1.31)
	pt3dadd(13.0651, -38.2093, 9.86, 1.31)
	pt3dadd(13.9251, -38.7793, 10.28, 1.31)
	pt3dadd(13.9251, -38.7793, 10.55, 1.31)
	pt3dadd(14.8751, -39.0393, 11.55, 1.31)
	pt3dadd(14.9551, -38.7193, 11.71, 1.31)
	pt3dadd(16.2251, -39.0593, 12.98, 1.31)
	pt3dadd(16.2251, -39.0593, 13.51, 1.31)
	pt3dadd(17.7451, -38.4493, 15.26, 1.31)
	pt3dadd(18.4651, -38.2993, 15.32, 1.31)
	pt3dadd(19.6451, -38.9593, 15.32, 1.31)
	pt3dadd(19.4551, -40.9393, 16.16, 1.31)
	pt3dadd(20.9251, -43.0293, 17.17, 1.31)
	pt3dadd(21.1551, -43.4293, 17.33, 1.31)
	pt3dadd(23.3751, -44.0293, 17.49, 1.31)
	pt3dadd(24.2351, -44.5993, 17.33, 1.31)
	pt3dadd(24.9351, -45.7993, 17.33, 1.31)
	pt3dadd(26.5751, -47.2593, 17.33, 1.31)
	pt3dadd(29.1051, -47.9393, 17.54, 1.31)
	pt3dadd(29.9951, -47.1593, 17.81, 1.31)
	pt3dadd(31.5151, -46.5493, 17.65, 1.31)
	pt3dadd(32.3751, -47.1193, 17.75, 1.31)
	pt3dadd(32.2951, -47.4293, 17.75, 1.31)
	pt3dadd(32.565, -48.9293, 17.86, 1.31)
	pt3dadd(32.6651, -48.5493, 17.91, 1.31)
	pt3dadd(35.3751, -48.5993, 18.66, 1.31)
	pt3dadd(37.6451, -50.2293, 18.71, 1.31)
	pt3dadd(39.6651, -52.7993, 18.87, 1.31)
	pt3dadd(41.2251, -54.5793, 18.87, 1.31)
	pt3dadd(41.5451, -54.6593, 18.87, 1.31)
	pt3dadd(42.955, -55.7193, 18.87, 1.31)
	pt3dadd(43.2551, -57.1493, 19.61, 1.31)
	pt3dadd(43.1651, -57.4693, 19.72, 1.31)
	pt3dadd(45.5251, -58.7793, 20.35, 1.31)
	pt3dadd(45.8451, -58.8593, 20.51, 1.31)
	pt3dadd(49.0051, -59.7093, 21.47, 1.31)
	pt3dadd(50.5851, -60.1393, 21.52, 1.31)
	pt3dadd(50.5851, -60.1393, 21.62, 1.31)
	pt3dadd(51.3951, -59.6693, 22.84, 1.31)
	pt3dadd(51.3951, -59.6693, 23.06, 1.31)
	pt3dadd(52.8251, -59.3793, 23.64, 1.31)
	pt3dadd(52.8251, -59.3793, 23.9, 1.31)
	pt3dadd(54.3451, -58.7693, 25.12, 1.31)
	pt3dadd(54.3451, -58.7693, 25.33, 1.31)
	pt3dadd(55.1451, -58.3093, 26.08, 1.31)
	pt3dadd(55.1451, -58.3093, 26.18, 1.31)
	pt3dadd(57.8451, -58.3493, 26.24, 1.31)
	pt3dadd(57.8451, -58.3493, 26.5, 1.31)
	pt3dadd(60.065, -58.9493, 27.35, 1.31)
	pt3dadd(60.065, -58.9493, 27.51, 1.31)
	pt3dadd(62.5951, -59.6193, 27.67, 1.31)
	pt3dadd(65.2951, -59.6693, 27.77, 1.31)
	pt3dadd(65.3751, -59.3493, 27.88, 1.31)
	pt3dadd(67.0451, -59.4593, 27.93, 1.31)
	pt3dadd(67.3651, -59.5393, 27.98, 1.31)
	pt3dadd(68.6251, -59.8793, 28.2, 1.31)
	pt3dadd(68.6251, -59.8793, 28.25, 1.31)
	pt3dadd(70.3751, -59.6693, 28.3, 1.31)
	pt3dadd(70.6951, -59.7593, 28.3, 1.31)
	pt3dadd(73.2251, -60.4393, 28.3, 1.31)
	pt3dadd(73.4551, -60.8393, 28.3, 1.31)
	pt3dadd(74.465, -62.1293, 28.94, 1.31)
	pt3dadd(75.1051, -62.2993, 28.94, 1.31)
	pt3dadd(77.4051, -62.5693, 29.04, 1.31)
	pt3dadd(77.715, -62.6593, 29.15, 1.31)
	pt3dadd(79.6351, -61.8193, 29.31, 1.31)
	pt3dadd(79.6351, -61.8193, 29.36, 1.31)
	pt3dadd(80.8651, -62.3093, 28.73, 1.31)
	pt3dadd(80.8651, -62.3093, 28.94, 1.31)
	pt3dadd(82.8451, -62.5093, 29.41, 1.31)
	pt3dadd(82.8451, -62.5093, 29.47, 1.31)
	pt3dadd(84.1051, -62.8493, 29.68, 1.31)
	pt3dadd(84.1051, -62.8493, 29.84, 1.31)
	pt3dadd(85.5251, -63.8993, 30.42, 1.31)
	pt3dadd(86.0751, -64.3893, 30.53, 1.31)
	pt3dadd(87.3951, -65.7593, 31.16, 1.31)
	pt3dadd(87.3151, -66.0793, 31.22, 1.31)
	pt3dadd(87.0551, -67.0293, 31.32, 1.31)
	pt3dadd(87.0551, -67.0293, 31.43, 1.31)
	pt3dadd(87.6651, -68.5493, 31.75, 1.31)
	pt3dadd(87.9851, -68.6293, 31.85, 1.31)
	pt3dadd(88.7651, -69.5193, 32.06, 1.31)
	pt3dadd(89.0851, -69.5993, 32.12, 1.31)
	pt3dadd(90.6651, -70.0293, 32.28, 1.31)
	pt3dadd(91.5051, -71.9493, 32.33, 1.31)
	pt3dadd(91.7351, -72.3493, 32.33, 1.31)
	pt3dadd(91.965, -72.7493, 32.33, 1.31)
	pt3dadd(93.0651, -73.7193, 31.53, 1.31)
	pt3dadd(93.0651, -73.7193, 31.38, 1.31)
	pt3dadd(95.0251, -75.2593, 35.88, 1.31)
	pt3dadd(95.6951, -77.8193, 36.04, 1.31)
	pt3dadd(95.6951, -77.8193, 36.09, 1.31)
	pt3dadd(96.3951, -79.0193, 36.15, 1.31)
	pt3dadd(96.6251, -79.4193, 36.31, 1.31)
	pt3dadd(98.0951, -81.5093, 37.21, 1.31)
	pt3dadd(98.0951, -81.5093, 37.47, 1.31)
	pt3dadd(98.6451, -81.9993, 37.68, 1.31)
	pt3dadd(98.6451, -81.9993, 37.74, 1.31)
	pt3dadd(100.315, -82.1093, 37.9, 1.31)
	pt3dadd(100.925, -83.6293, 37.68, 1.31)
	pt3dadd(103.455, -84.2993, 35.51, 1.31)
	pt3dadd(103.455, -84.2993, 35.4, 1.31)
	pt3dadd(105.095, -85.7593, 36.25, 1.31)
	pt3dadd(106.905, -86.5893, 36.04, 1.31)
	pt3dadd(107.145, -86.9893, 36.04, 1.31)
	pt3dadd(107.375, -87.3893, 36.04, 1.31)
	pt3dadd(110.155, -87.1193, 36.25, 1.31)
	pt3dadd(110.475, -87.1993, 36.46, 1.31)
	pt3dadd(113.255, -86.9293, 39.11, 1.31)
	pt3dadd(113.345, -86.6193, 39.59, 1.31)
	pt3dadd(115.095, -86.4093, 40.44, 1.31)
	pt3dadd(115.175, -86.0893, 40.7, 1.31)
	pt3dadd(116.155, -84.9893, 41.6, 1.31)
	pt3dadd(116.235, -84.6793, 41.82, 1.31)
	pt3dadd(116.495, -83.7293, 41.98, 1.31)
	pt3dadd(116.895, -83.4993, 41.98, 1.31)
	pt3dadd(116.975, -83.1793, 41.98, 1.31)
	pt3dadd(117.865, -82.3993, 41.98, 1.31)
	pt3dadd(117.865, -82.3993, 42.08, 1.31)
	pt3dadd(118.435, -81.5393, 42.24, 1.31)
	pt3dadd(118.435, -81.5393, 42.29, 1.31)
	pt3dadd(119.635, -80.8393, 42.4, 1.31)
    }
}

proc shape3d_dend2_2() {
    dend[21] {pt3dclear()
	pt3dadd(-9.72495, 9.7107, -5.83, 1.31)
	pt3dadd(-11.5249, 11.7107, -5.78, 1.31)
	pt3dadd(-10.9749, 12.5307, -5.3, 1.31)
	pt3dadd(-10.7949, 12.8007, -5.35, 1.31)
	pt3dadd(-9.88495, 14.1607, -5.83, 1.31)
	pt3dadd(-9.69495, 14.4307, -5.83, 1.31)
	pt3dadd(-8.96495, 15.5207, -5.83, 1.31)
	pt3dadd(-8.78495, 15.7907, -5.83, 1.31)
	pt3dadd(-9.77495, 17.2507, -5.83, 1.31)
	pt3dadd(-9.77495, 17.2507, -5.88, 1.31)
	pt3dadd(-9.04495, 18.3307, -6.57, 1.31)
	pt3dadd(-9.12495, 18.7907, -6.57, 1.31)
	pt3dadd(-8.38495, 21.0507, -6.63, 1.31)
	pt3dadd(-6.19495, 23.1307, -6.68, 1.31)
	pt3dadd(-5.73495, 24.4007, -7.74, 1.31)
	pt3dadd(-5.82495, 24.8607, -7.95, 1.31)
	pt3dadd(-5.08495, 27.1207, -8.74, 1.31)
	pt3dadd(-5.08495, 27.1207, -8.96, 1.31)
	pt3dadd(-5.35495, 28.4907, -9.22, 1.31)
	pt3dadd(-5.62495, 28.6707, -9.33, 1.31)
	pt3dadd(-6.98495, 29.5907, -11.18, 1.31)
	pt3dadd(-7.25495, 29.7707, -11.55, 1.31)
	pt3dadd(-7.33495, 31.4007, -12.4, 1.31)
	pt3dadd(-7.33495, 31.4007, -12.67, 1.31)
	pt3dadd(-7.87495, 31.7707, -13.57, 1.31)
	pt3dadd(-7.87495, 31.7707, -13.78, 1.31)
	pt3dadd(-7.87495, 32.9507, -14.73, 1.31)
	pt3dadd(-7.95495, 33.4107, -14.89, 1.31)
	pt3dadd(-7.94495, 35.7707, -15, 1.31)
	pt3dadd(-8.03495, 36.2207, -15.05, 1.31)
	pt3dadd(-7.85495, 36.4907, -15.05, 1.31)
	pt3dadd(-7.75495, 37.2207, -15.74, 1.31)
	pt3dadd(-7.57495, 37.4907, -15.79, 1.31)
	pt3dadd(-6.65495, 38.8507, -16.06, 1.31)
	pt3dadd(-6.65495, 38.8507, -16.11, 1.31)
	pt3dadd(-7.92495, 40.4907, -16.59, 1.31)
	pt3dadd(-7.92495, 40.4907, -16.64, 1.31)
	pt3dadd(-7.27495, 42.0307, -16.64, 1.31)
	pt3dadd(-5.17495, 44.5607, -17.44, 0.98)
	pt3dadd(-5.17495, 44.5607, -17.7, 0.98)
	pt3dadd(-4.89495, 45.5607, -19.24, 0.98)
	pt3dadd(-4.89495, 45.5607, -19.29, 0.98)
	pt3dadd(-4.25495, 47.1007, -19.56, 0.98)
	pt3dadd(-4.52495, 47.2907, -19.56, 0.98)
	pt3dadd(-4.51495, 48.4707, -20.35, 0.98)
	pt3dadd(-4.33495, 48.7407, -20.67, 0.98)
	pt3dadd(-3.96495, 49.2807, -21.31, 0.98)
	pt3dadd(-3.96495, 49.2807, -21.47, 0.98)
	pt3dadd(-4.14495, 50.1907, -22.52, 0.98)
	pt3dadd(-4.14495, 50.1907, -22.74, 0.98)
    }
}

proc shape3d_dend2_3() {
    dend[22] {pt3dclear()
	pt3dadd(-9.72495, 9.7107, -5.83, 1.31)
	pt3dadd(-8.21495, 11.0607, -7.74, 1.31)
	pt3dadd(-8.03495, 11.3307, -7.74, 1.31)
	pt3dadd(-7.30495, 12.4207, -7.74, 1.31)
	pt3dadd(-6.20495, 12.8707, -7.74, 1.31)
	pt3dadd(-4.11495, 13.0407, -8.59, 1.31)
	pt3dadd(-4.11495, 13.0407, -8.64, 1.31)
	pt3dadd(-2.75495, 13.3007, -9.91, 1.31)
	pt3dadd(-2.75495, 13.3007, -10.18, 1.31)
	pt3dadd(-1.11495, 13.3807, -11.34, 1.31)
	pt3dadd(-1.11495, 13.3807, -11.45, 1.31)
	pt3dadd(0.795051, 14.4607, -13.73, 1.31)
	pt3dadd(1.24505, 14.5507, -13.78, 1.31)
	pt3dadd(2.61505, 14.8207, -13.83, 1.31)
	pt3dadd(3.97505, 15.0807, -15.37, 1.31)
	pt3dadd(4.79505, 14.5307, -17.12, 1.31)
	pt3dadd(4.79505, 14.5307, -17.33, 1.31)
	pt3dadd(5.06505, 14.3507, -19.13, 1.31)
	pt3dadd(5.06505, 14.3507, -19.29, 1.31)
	pt3dadd(6.33505, 15.0707, -19.56, 1.31)
	pt3dadd(6.52505, 15.3407, -19.56, 1.31)
	pt3dadd(7.98505, 16.3307, -19.61, 1.31)
	pt3dadd(7.98505, 16.3307, -20.35, 1.31)
	pt3dadd(8.98505, 17.2407, -22.42, 1.31)
	pt3dadd(8.98505, 17.2407, -22.9, 1.31)
	pt3dadd(9.45505, 19.6907, -22.15, 1.31)
	pt3dadd(10.6351, 19.6807, -26.5, 0.98)
	pt3dadd(12.1751, 19.0307, -27.45, 0.98)
	pt3dadd(12.7251, 19.8507, -27.56, 0.98)
	pt3dadd(13.3651, 20.2107, -27.61, 0.98)
	pt3dadd(14.1751, 19.6607, -27.93, 0.98)
	pt3dadd(14.1751, 19.6607, -28.41, 0.98)
	pt3dadd(15.0851, 19.8407, -29.47, 0.98)
	pt3dadd(15.0851, 19.8407, -29.94, 0.98)
	pt3dadd(15.9051, 20.4707, -30.85, 0.98)
	pt3dadd(15.9051, 20.4707, -31.32, 0.98)
	pt3dadd(17.0951, 21.6407, -33.44, 0.98)
	pt3dadd(17.0951, 21.6407, -33.65, 0.98)
	pt3dadd(17.8251, 22.7307, -34.03, 0.98)
	pt3dadd(17.8251, 22.7307, -34.08, 0.98)
    }
}

proc shape3d_dend1_2() {
    dend[23] {pt3dclear()
	pt3dadd(-0.654949, -22.3293, 1.27, 1.31)
	pt3dadd(1.58505, -21.5693, 2.7, 1.31)
	pt3dadd(1.58505, -21.5693, 2.81, 1.31)
	pt3dadd(2.06505, -21.0293, 3.34, 1.31)
	pt3dadd(2.06505, -21.0293, 3.6, 1.31)
	pt3dadd(2.57505, -19.1293, 4.13, 1.31)
	pt3dadd(2.66505, -18.8093, 4.13, 1.31)
	pt3dadd(4.58505, -17.9693, 4.29, 1.31)
	pt3dadd(4.58505, -17.9693, 4.4, 1.31)
	pt3dadd(5.72505, -16.2393, 4.56, 1.31)
	pt3dadd(7.56505, -15.7193, 4.72, 1.31)
	pt3dadd(8.13505, -14.8493, 4.77, 1.31)
	pt3dadd(8.47505, -13.5893, 4.77, 1.31)
	pt3dadd(9.18505, -13.4393, 5.62, 1.31)
	pt3dadd(9.18505, -13.4393, 4.61, 1.31)
	pt3dadd(11.1751, -13.6293, 3.76, 1.31)
	pt3dadd(13.4951, -12.5593, 3.71, 1.31)
	pt3dadd(13.8351, -11.2893, 4.51, 1.31)
	pt3dadd(13.8351, -11.2893, 4.88, 1.31)
	pt3dadd(14.4251, -9.0793, 2.12, 1.31)
	pt3dadd(16.4351, -7.9193, 0.9, 1.31)
	pt3dadd(16.4351, -7.9193, 0.21, 1.31)
	pt3dadd(16.7751, -6.6593, -0.16, 1.31)
	pt3dadd(18.4551, -5.4093, -1.32, 1.31)
	pt3dadd(18.4551, -5.4093, -1.38, 1.31)
	pt3dadd(18.6651, -5.0793, -1.38, 1.31)
	pt3dadd(18.8451, -4.8093, -1.38, 1.31)
	pt3dadd(19.5851, -3.7293, -3.07, 1.31)
	pt3dadd(19.8551, -3.9093, -3.5, 1.31)
	pt3dadd(21.1251, -3.1893, -4.88, 1.31)
	pt3dadd(21.3151, -2.9193, -5.83, 1.31)
	pt3dadd(22.7751, -1.9293, -6.09, 1.31)
	pt3dadd(22.9551, -1.6593, -6.15, 1.31)
	pt3dadd(23.7851, 0.1607, -6.15, 1.31)
	pt3dadd(24.1451, 0.7007, -6.15, 1.31)
	pt3dadd(24.9651, 1.3307, -6.15, 1.31)
	pt3dadd(25.3351, 1.8707, -6.15, 1.31)
	pt3dadd(26.2451, 2.0507, -6.15, 1.31)
	pt3dadd(26.6151, 2.5907, -6.15, 1.31)
	pt3dadd(27.7051, 4.2207, -6.15, 1.31)
	pt3dadd(27.8951, 4.4907, -6.15, 1.31)
	pt3dadd(29.4351, 3.8507, -6.15, 1.31)
	pt3dadd(30.4351, 4.7507, -6.15, 1.31)
	pt3dadd(30.8051, 5.3007, -6.15, 1.31)
	pt3dadd(31.1751, 5.8407, -6.15, 1.31)
	pt3dadd(32.815, 7.1007, -6.15, 1.31)
	pt3dadd(32.995, 7.3707, -6.15, 1.31)
	pt3dadd(33.7251, 8.4607, -7.42, 1.31)
	pt3dadd(33.8251, 9.1907, -7.47, 1.31)
	pt3dadd(34.0051, 9.4607, -7.47, 1.31)
	pt3dadd(34.3751, 11.1807, -7.47, 1.31)
	pt3dadd(34.565, 11.4507, -7.47, 1.31)
	pt3dadd(36.285, 11.0807, -7.47, 1.31)
	pt3dadd(36.285, 11.0807, -7.42, 1.31)
	pt3dadd(39.205, 13.0607, -6.84, 1.31)
	pt3dadd(39.205, 13.0607, -6.52, 1.31)
	pt3dadd(40.0251, 13.6907, -5.88, 1.31)
	pt3dadd(40.205, 13.9707, -5.67, 1.31)
	pt3dadd(40.5751, 14.5107, -5.41, 1.31)
	pt3dadd(40.5751, 14.5107, -5.25, 1.31)
	pt3dadd(41.9851, 16.7107, -5.25, 1.31)
	pt3dadd(41.925, 17.6307, -5.25, 1.31)
	pt3dadd(44.6451, 18.9307, -5.25, 1.31)
	pt3dadd(45.855, 19.6307, -5.14, 1.31)
	pt3dadd(45.855, 19.6307, -4.56, 1.31)
	pt3dadd(47.2251, 20.9607, -3.92, 1.31)
	pt3dadd(47.2251, 20.9607, -3.76, 1.31)
	pt3dadd(48.6851, 22.6007, -3.76, 1.31)
	pt3dadd(48.6851, 22.6007, -3.71, 1.31)
	pt3dadd(47.7351, 22.8507, -2.17, 1.31)
	pt3dadd(47.7351, 22.8507, -2.01, 1.31)
	pt3dadd(47.4451, 24.2907, -1.8, 1.31)
	pt3dadd(47.7551, 24.2007, -1.8, 1.31)
	pt3dadd(49.425, 24.1007, -1.8, 1.31)
	pt3dadd(50.565, 25.8307, -1.75, 1.31)
	pt3dadd(50.6451, 26.1407, -1.32, 1.31)
	pt3dadd(51.6251, 27.2407, -0.74, 1.31)
	pt3dadd(51.705, 27.5507, -0.58, 1.31)
	pt3dadd(52.425, 27.7007, -0.42, 1.31)
	pt3dadd(52.745, 27.6207, -0.32, 1.31)
	pt3dadd(53.3751, 27.4507, -0.16, 1.31)
	pt3dadd(53.455, 27.7607, -0.05, 1.31)
	pt3dadd(54.5551, 26.7907, 0.32, 1.31)
	pt3dadd(54.5551, 26.7907, 0.53, 1.31)
	pt3dadd(55.205, 27.9707, 0.69, 1.31)
	pt3dadd(55.2951, 28.2907, 0.74, 1.31)
	pt3dadd(56.0951, 28.7507, 0.74, 1.31)
	pt3dadd(56.2651, 29.3807, 0.74, 1.31)
	pt3dadd(56.355, 29.7007, 0.74, 1.31)
	pt3dadd(58.3351, 29.5107, 2.12, 1.31)
	pt3dadd(58.6451, 29.4207, 2.38, 1.31)
	pt3dadd(59.855, 30.1207, 3.34, 1.31)
	pt3dadd(60.1651, 30.0307, 3.55, 1.31)
	pt3dadd(60.6551, 30.5807, 4.08, 1.31)
	pt3dadd(60.6551, 30.5807, 4.35, 1.31)
	pt3dadd(61.285, 30.4107, 5.09, 1.31)
	pt3dadd(61.605, 30.3307, 5.25, 1.31)
	pt3dadd(62.955, 30.3007, 5.35, 1.31)
	pt3dadd(62.955, 30.3007, 5.41, 1.31)
	pt3dadd(63.2951, 31.5707, 6.36, 1.31)
	pt3dadd(63.6151, 31.4907, 6.36, 1.31)
	pt3dadd(65.0451, 31.7807, 6.41, 1.31)
	pt3dadd(66.0151, 32.8807, 6.84, 1.31)
	pt3dadd(66.0151, 32.8807, 7.63, 1.31)
	pt3dadd(67.1551, 34.6007, 4.72, 1.31)
	pt3dadd(68.1051, 34.3507, 2.92, 1.31)
	pt3dadd(68.4251, 34.2607, 2.92, 1.31)
	pt3dadd(69.3151, 35.0407, 2.81, 1.31)
	pt3dadd(69.3151, 35.0407, 2.76, 1.31)
	pt3dadd(71.465, 35.4807, 2.65, 1.31)
	pt3dadd(71.5451, 35.8007, 2.44, 1.31)
	pt3dadd(71.4851, 36.8307, 2.12, 1.31)
	pt3dadd(71.4851, 36.8307, 2.01, 1.31)
	pt3dadd(72.6051, 37.2107, 1.64, 1.31)
	pt3dadd(74.1451, 39.1707, 1.06, 1.31)
	pt3dadd(74.4051, 40.1207, 1.06, 1.31)
	pt3dadd(74.5051, 41.7907, 0.74, 1.31)
	pt3dadd(74.5951, 42.1107, 0.48, 1.31)
	pt3dadd(74.465, 44.1707, -0.42, 1.31)
	pt3dadd(74.5551, 44.4907, -0.48, 1.31)
	pt3dadd(75.7551, 45.1807, -0.74, 1.31)
	pt3dadd(75.6951, 46.2207, -0.74, 1.31)
	pt3dadd(76.2051, 48.1207, -1.7, 1.31)
	pt3dadd(76.2051, 48.1207, -1.86, 1.31)
	pt3dadd(77.3451, 49.8507, -1.91, 1.31)
	pt3dadd(77.6651, 49.7607, -1.91, 1.31)
	pt3dadd(79.9851, 50.8307, -2.12, 1.31)
	pt3dadd(79.9851, 50.8307, -2.33, 1.31)
	pt3dadd(80.8051, 52.6507, -2.91, 1.31)
	pt3dadd(80.8951, 52.9607, -2.97, 1.31)
	pt3dadd(81.3751, 53.5107, -3.34, 1.31)
	pt3dadd(81.3751, 53.5107, -3.44, 1.31)
	pt3dadd(81.0951, 54.8407, -5.29, 0.96)
	pt3dadd(81.0951, 54.8407, -5.99, 0.96)
	pt3dadd(80.3951, 56.8307, -7.07, 0.96)
	pt3dadd(80.2951, 57.2807, -7.24, 0.96)
	pt3dadd(79.6951, 58.8107, -7.94, 0.96)
	pt3dadd(79.6951, 58.8107, -7.99, 0.96)
    }
}

proc shape3d_dend1_3() {
    dend[24] {pt3dclear()
	pt3dadd(-0.654949, -22.3293, 1.27, 1.31)
	pt3dadd(0.0450512, -23.5293, -0.32, 1.31)
	pt3dadd(0.0450512, -23.5293, -0.69, 1.31)
	pt3dadd(0.275051, -23.9393, -1.86, 1.31)
	pt3dadd(0.275051, -23.9393, -2.7, 1.31)
	pt3dadd(0.125051, -23.7893, -2.97, 1.31)
	pt3dadd(0.125051, -23.7893, -3.07, 1.31)
	pt3dadd(1.48505, -23.5193, -5.88, 1.31)
	pt3dadd(2.30505, -24.0693, -6.89, 1.31)
	pt3dadd(2.30505, -24.0693, -7.1, 1.31)
	pt3dadd(2.84505, -24.4393, -7.9, 1.31)
	pt3dadd(2.84505, -24.4393, -8.37, 1.31)
	pt3dadd(4.11505, -24.8993, -9.7, 1.31)
	pt3dadd(4.11505, -24.8993, -10.39, 1.31)
	pt3dadd(4.65505, -25.2693, -11.71, 1.31)
	pt3dadd(4.65505, -25.2693, -12.45, 1.31)
	pt3dadd(6.11505, -25.4593, -13.62, 1.31)
	pt3dadd(6.11505, -25.4593, -13.83, 1.31)
	pt3dadd(7.92505, -25.0993, -14.84, 1.31)
	pt3dadd(9.19505, -25.5593, -16.43, 1.31)
	pt3dadd(9.47505, -25.7493, -16.48, 1.31)
	pt3dadd(11.6651, -23.6693, -16.69, 1.31)
	pt3dadd(11.6651, -23.6693, -16.8, 1.31)
	pt3dadd(11.2951, -24.2093, -16.8, 1.31)
	pt3dadd(12.4751, -24.2193, -16.85, 1.31)
	pt3dadd(13.6551, -25.4093, -18.39, 1.31)
	pt3dadd(13.8351, -25.1293, -18.5, 1.31)
	pt3dadd(15.0151, -25.1393, -18.66, 1.31)
	pt3dadd(16.1051, -24.6893, -18.66, 1.31)
	pt3dadd(16.4751, -24.1493, -18.66, 1.31)
	pt3dadd(18.3851, -24.2493, -21.47, 1.31)
	pt3dadd(18.3851, -24.2493, -22.05, 1.31)
	pt3dadd(19.8351, -23.2593, -22.26, 1.31)
	pt3dadd(19.8351, -23.2593, -22.52, 1.31)
	pt3dadd(20.9351, -22.8093, -23.21, 1.31)
	pt3dadd(21.1151, -22.5393, -23.27, 1.31)
	pt3dadd(22.2151, -20.9093, -24.06, 1.31)
	pt3dadd(22.2951, -22.5493, -25.17, 1.31)
	pt3dadd(23.6651, -22.2793, -25.17, 1.31)
	pt3dadd(24.7451, -23.0093, -25.55, 1.31)
	pt3dadd(24.7451, -23.0093, -25.7, 1.31)
	pt3dadd(26.4751, -23.3893, -27.77, 1.31)
	pt3dadd(26.4751, -23.3893, -27.93, 1.31)
	pt3dadd(27.1051, -24.2093, -28.51, 1.31)
	pt3dadd(27.9151, -24.7593, -28.99, 1.31)
	pt3dadd(27.9151, -24.7593, -29.79, 1.31)
	pt3dadd(28.8151, -25.7593, -30.85, 1.31)
	pt3dadd(28.8151, -25.7593, -31.22, 1.31)
	pt3dadd(29.6351, -26.3093, -31.38, 1.31)
	pt3dadd(29.6351, -26.3093, -31.64, 1.31)
	pt3dadd(30.5351, -27.3093, -33.39, 1.31)
	pt3dadd(30.5351, -27.3093, -33.6, 1.31)
	pt3dadd(31.3551, -27.8593, -34.93, 1.31)
	pt3dadd(31.6251, -28.0493, -35.24, 1.31)
	pt3dadd(31.8851, -29.4093, -35.3, 1.31)
	pt3dadd(31.8851, -29.4093, -35.35, 1.31)
	pt3dadd(32.4351, -29.7793, -36.73, 1.31)
	pt3dadd(32.4351, -29.7793, -37.1, 1.31)
	pt3dadd(34.965, -31.8793, -39.33, 1.31)
	pt3dadd(34.965, -31.8793, -39.38, 1.31)
	pt3dadd(37.5051, -32.7993, -43.41, 1.31)
	pt3dadd(37.5051, -32.7993, -43.72, 1.31)
	pt3dadd(38.315, -33.3493, -44.57, 1.31)
	pt3dadd(38.315, -33.3493, -44.94, 1.31)
    }
}

proc shape3d_dend9_4() {
    dend[25] {pt3dclear()
	pt3dadd(-26.9649, -23.4193, -23, 1.31)
	pt3dadd(-28.8749, -23.3193, -23, 1.31)
	pt3dadd(-30.6849, -22.4993, -23, 1.31)
	pt3dadd(-32.4149, -22.1193, -24.8, 1.31)
	pt3dadd(-32.4149, -22.1193, -25.17, 1.31)
	pt3dadd(-33.4049, -21.8493, -26.76, 1.31)
	pt3dadd(-33.4049, -21.8493, -26.87, 1.31)
	pt3dadd(-33.1349, -20.8493, -26.87, 1.31)
	pt3dadd(-33.215, -20.3893, -27.4, 1.31)
	pt3dadd(-33.6649, -19.2993, -28.14, 1.31)
	pt3dadd(-33.4849, -19.0293, -28.3, 1.31)
	pt3dadd(-33.295, -17.5793, -28.99, 1.31)
	pt3dadd(-33.3849, -17.1193, -29.41, 1.31)
	pt3dadd(-33.005, -15.3993, -30.63, 1.31)
	pt3dadd(-33.005, -15.3993, -31.06, 1.31)
	pt3dadd(-32.365, -13.8593, -33.13, 1.31)
	pt3dadd(-32.365, -13.8593, -33.5, 1.31)
	pt3dadd(-31.6349, -12.7693, -35.4, 1.31)
	pt3dadd(-31.6349, -12.7693, -35.62, 1.31)
	pt3dadd(-32.4449, -12.2193, -37.15, 1.31)
	pt3dadd(-32.535, -11.7693, -37.15, 1.31)
	pt3dadd(-33.435, -10.7593, -37.21, 1.31)
	pt3dadd(-33.715, -10.5793, -37.42, 1.31)
	pt3dadd(-34.5149, -8.8493, -38.74, 1.31)
	pt3dadd(-34.5149, -8.8493, -38.9, 1.31)
	pt3dadd(-34.615, -9.5793, -41.55, 1.31)
	pt3dadd(-36.1549, -8.9293, -42.45, 1.31)
	pt3dadd(-36.1549, -8.9293, -42.67, 1.31)
	pt3dadd(-36.5149, -8.2893, -43.41, 1.31)
	pt3dadd(-36.3349, -8.0193, -43.57, 1.31)
	pt3dadd(-34.965, -7.7593, -44.36, 1.31)
	pt3dadd(-34.965, -7.7593, -44.84, 1.31)
	pt3dadd(-34.2349, -6.6693, -46.59, 1.31)
	pt3dadd(-34.505, -6.4893, -47.01, 1.31)
	pt3dadd(-35.045, -6.1193, -48.02, 1.31)
	pt3dadd(-35.325, -5.9393, -48.18, 1.31)
	pt3dadd(-36.4049, -5.2093, -49.08, 1.31)
	pt3dadd(-36.2249, -4.9293, -49.29, 1.31)
	pt3dadd(-36.6749, -3.8393, -50.08, 1.31)
	pt3dadd(-36.6749, -3.8393, -50.51, 1.31)
	pt3dadd(-36.7449, -1.0293, -53, 1.31)
	pt3dadd(-36.8349, -0.5693, -53.42, 1.31)
	pt3dadd(-37.5549, 0.7007, -54.11, 1.31)
	pt3dadd(-37.825, 0.8907, -54.27, 1.31)
	pt3dadd(-38.185, 1.5307, -55.49, 1.31)
	pt3dadd(-38.185, 1.5307, -55.76, 1.31)
	pt3dadd(-38.7349, 1.8907, -56.23, 1.31)
	pt3dadd(-38.7349, 1.8907, -56.6, 1.31)
    }
}

proc shape3d_dend9_5() {
    dend[26] {pt3dclear()
	pt3dadd(-26.9649, -23.4193, -23, 1.31)
	pt3dadd(-29.3349, -24.5893, -23.69, 1.31)
	pt3dadd(-29.3349, -24.5893, -23.74, 1.31)
	pt3dadd(-31.7849, -24.1293, -24.01, 1.31)
	pt3dadd(-31.7849, -24.1293, -24.7, 1.31)
	pt3dadd(-32.7049, -25.4793, -25.55, 1.31)
	pt3dadd(-32.615, -25.9393, -25.97, 1.31)
	pt3dadd(-32.9849, -27.6593, -26.87, 1.31)
	pt3dadd(-33.4449, -28.9293, -27.4, 1.31)
	pt3dadd(-33.8149, -29.4693, -27.4, 1.31)
	pt3dadd(-36.545, -29.9993, -28.89, 1.31)
	pt3dadd(-36.9949, -30.0893, -29.04, 1.31)
	pt3dadd(-37.8149, -30.7193, -29.57, 1.31)
	pt3dadd(-38.185, -31.2693, -29.63, 1.31)
	pt3dadd(-37.9149, -31.4493, -29.68, 1.31)
	pt3dadd(-38.465, -32.2693, -31.11, 1.31)
	pt3dadd(-38.645, -32.5393, -31.16, 1.31)
	pt3dadd(-39.0949, -32.6293, -31.16, 1.31)
	pt3dadd(-39.3749, -32.4393, -31.16, 1.31)
	pt3dadd(-40.0949, -32.3493, -31.38, 1.31)
	pt3dadd(-40.2749, -32.6193, -31.75, 1.31)
	pt3dadd(-41.0149, -33.6993, -32.49, 1.31)
	pt3dadd(-41.1949, -33.9793, -32.81, 1.31)
	pt3dadd(-41.3749, -34.2493, -34.13, 1.31)
	pt3dadd(-41.3749, -34.2493, -34.45, 1.31)
	pt3dadd(-42.285, -34.4193, -34.45, 1.31)
	pt3dadd(-42.285, -34.4193, -34.87, 1.31)
	pt3dadd(-43.0149, -34.3293, -36.52, 1.31)
	pt3dadd(-44.7449, -35.1393, -36.52, 1.31)
	pt3dadd(-48.2049, -36.7493, -37.15, 1.31)
	pt3dadd(-48.2049, -36.7493, -37.36, 1.31)
	pt3dadd(-49.8449, -36.8393, -38.48, 1.31)
	pt3dadd(-50.2049, -37.3793, -38.48, 1.31)
	pt3dadd(-51.755, -37.9193, -38.48, 1.31)
	pt3dadd(-51.755, -37.9193, -38.9, 1.31)
	pt3dadd(-52.215, -39.1893, -40.12, 1.31)
	pt3dadd(-52.1249, -39.6393, -40.12, 1.31)
	pt3dadd(-51.865, -40.9993, -40.39, 1.31)
	pt3dadd(-52.2249, -41.5493, -40.76, 1.31)
	pt3dadd(-52.325, -42.2693, -41.55, 1.31)
	pt3dadd(-52.505, -42.5393, -42.19, 1.31)
	pt3dadd(-52.785, -43.5393, -43.19, 1.31)
	pt3dadd(-52.785, -43.5393, -43.3, 1.31)
	pt3dadd(-54.1549, -44.9893, -43.57, 1.31)
	pt3dadd(-54.1549, -44.9893, -44.26, 1.31)
	pt3dadd(-54.8849, -46.0693, -44.63, 1.31)
	pt3dadd(-54.8849, -46.0693, -44.89, 1.31)
	pt3dadd(-55.435, -46.8893, -45.26, 1.31)
	pt3dadd(-56.0649, -46.0693, -45.26, 1.31)
	pt3dadd(-56.3549, -48.2493, -45.26, 1.31)
	pt3dadd(-57.6349, -50.1493, -46.53, 1.31)
	pt3dadd(-57.8149, -50.4193, -46.53, 1.31)
	pt3dadd(-59.005, -51.5893, -46.53, 1.31)
	pt3dadd(-62.645, -53.4793, -46.64, 1.31)
	pt3dadd(-62.8349, -53.7493, -46.64, 1.31)
	pt3dadd(-63.5649, -54.8393, -47.01, 1.31)
	pt3dadd(-64.4749, -56.1993, -47.12, 1.31)
	pt3dadd(-64.6649, -56.4693, -47.12, 1.31)
	pt3dadd(-67.4749, -56.5393, -43.94, 1.31)
	pt3dadd(-67.4749, -56.5393, -43.99, 1.31)
	pt3dadd(-68.4849, -57.4493, -45.37, 1.31)
	pt3dadd(-68.6649, -57.7193, -45.47, 1.31)
	pt3dadd(-69.6749, -58.6193, -45.58, 1.31)
	pt3dadd(-69.6749, -58.6193, -46.16, 1.31)
	pt3dadd(-69.6749, -59.7993, -43.72, 1.31)
	pt3dadd(-69.6749, -59.7993, -43.04, 1.31)
	pt3dadd(-70.2249, -60.6193, -42.24, 1.31)
	pt3dadd(-70.4949, -60.4293, -42.08, 1.31)
	pt3dadd(-71.2249, -60.3393, -41.92, 1.31)
	pt3dadd(-75.4949, -60.2293, -41.92, 1.31)
	pt3dadd(-75.6049, -63.3093, -41.6, 1.31)
	pt3dadd(-75.6049, -63.3093, -41.29, 1.31)
	pt3dadd(-76.785, -63.3093, -41.29, 1.31)
	pt3dadd(-77.0549, -63.1193, -41.29, 1.31)
	pt3dadd(-78.1449, -63.5693, -41.29, 1.31)
	pt3dadd(-78.5149, -64.1193, -41.29, 1.31)
	pt3dadd(-79.8749, -64.3793, -41.29, 1.31)
	pt3dadd(-80.6049, -64.2893, -41.98, 1.31)
	pt3dadd(-80.785, -64.5593, -41.98, 1.31)
	pt3dadd(-81.9749, -65.7293, -43.78, 1.31)
	pt3dadd(-81.9749, -65.7293, -43.83, 1.31)
	pt3dadd(-83.3449, -67.1793, -44.94, 1.31)
	pt3dadd(-83.3449, -67.1793, -45.26, 1.31)
	pt3dadd(-85.4349, -68.5293, -45.69, 1.31)
	pt3dadd(-85.715, -68.3493, -45.69, 1.31)
	pt3dadd(-87.4349, -67.9693, -45.69, 1.31)
	pt3dadd(-88.715, -69.8693, -45.74, 1.31)
	pt3dadd(-88.9949, -70.8693, -45.9, 1.31)
	pt3dadd(-89.5449, -71.6893, -46.64, 1.31)
	pt3dadd(-89.5449, -71.6893, -45.37, 1.31)
	pt3dadd(-91.0949, -72.2193, -44.31, 1.31)
	pt3dadd(-91.3649, -72.0393, -44.2, 1.31)
	pt3dadd(-94.3649, -72.3893, -43.57, 1.31)
	pt3dadd(-94.3649, -72.3893, -43.72, 1.31)
	pt3dadd(-95.0949, -73.4693, -44.1, 1.31)
	pt3dadd(-95.465, -74.0193, -44.1, 1.31)
	pt3dadd(-96.5549, -74.4593, -44.04, 1.31)
	pt3dadd(-97.285, -74.3693, -43.99, 1.31)
	pt3dadd(-98.7349, -75.3593, -43.72, 1.31)
	pt3dadd(-99.6549, -76.7193, -43.67, 1.31)
	pt3dadd(-100.105, -76.8093, -43.67, 1.31)
	pt3dadd(-101.115, -77.7093, -43.67, 1.31)
	pt3dadd(-102.665, -78.2493, -43.67, 1.31)
	pt3dadd(-106.025, -79.1393, -43.46, 1.31)
	pt3dadd(-106.205, -79.4093, -43.46, 1.31)
	pt3dadd(-108.575, -80.5793, -44.26, 1.31)
	pt3dadd(-108.575, -80.5793, -44.52, 1.31)
	pt3dadd(-110.675, -81.9293, -44.57, 1.31)
	pt3dadd(-110.955, -84.1093, -45.16, 1.31)
	pt3dadd(-111.145, -84.3793, -45.21, 1.31)
	pt3dadd(-113.685, -84.6393, -46.11, 1.31)
	pt3dadd(-113.505, -84.3593, -46.22, 1.31)
	pt3dadd(-114.955, -84.1793, -46.32, 1.31)
	pt3dadd(-115.505, -84.9893, -46.32, 1.31)
	pt3dadd(-116.055, -85.7993, -46.69, 1.31)
	pt3dadd(-115.785, -85.9893, -47.01, 1.31)
	pt3dadd(-115.785, -87.1693, -45, 1.31)
	pt3dadd(-115.975, -87.4393, -44.52, 1.31)
	pt3dadd(-118.425, -86.9693, -43.78, 1.31)
	pt3dadd(-118.875, -87.0593, -43.78, 1.31)
	pt3dadd(-119.065, -87.3293, -43.78, 1.31)
	pt3dadd(-120.155, -87.7793, -43.72, 1.31)
	pt3dadd(-120.155, -87.7793, -43.51, 1.31)
	pt3dadd(-122.065, -87.6793, -42.77, 1.31)
	pt3dadd(-123.425, -87.9393, -42.72, 1.31)
	pt3dadd(-124.785, -88.2093, -42.72, 1.31)
	pt3dadd(-125.335, -87.8393, -42.72, 1.31)
	pt3dadd(-126.785, -87.6493, -42.56, 1.31)
	pt3dadd(-126.965, -87.9293, -42.08, 1.31)
	pt3dadd(-129.515, -88.1793, -40.81, 1.31)
	pt3dadd(-129.515, -88.1793, -40.44, 1.31)
	pt3dadd(-129.875, -88.7293, -39.22, 1.31)
	pt3dadd(-129.875, -88.7293, -39.17, 1.31)
	pt3dadd(-130.425, -89.5393, -38.16, 1.31)
	pt3dadd(-130.425, -89.5393, -38.05, 1.31)
	pt3dadd(-131.525, -89.9893, -36.89, 1.31)
	pt3dadd(-132.245, -89.8993, -36.52, 1.31)
	pt3dadd(-132.515, -89.7093, -36.09, 1.31)
	pt3dadd(-133.065, -90.5293, -35.83, 1.31)
	pt3dadd(-133.525, -90.6193, -35.77, 1.31)
	pt3dadd(-134.165, -90.9793, -35.51, 1.31)
	pt3dadd(-134.165, -90.9793, -35.24, 1.31)
	pt3dadd(-135.065, -91.1493, -34.5, 1.31)
	pt3dadd(-135.065, -91.1493, -34.34, 1.31)
	pt3dadd(-135.795, -91.0593, -33.71, 1.31)
	pt3dadd(-135.795, -91.0593, -33.5, 1.31)
    }
}

proc shape3d_dend6_4() {
    dend[27] {pt3dclear()
	pt3dadd(-22.3849, -16.7293, 16.01, 1.31)
	pt3dadd(-23.2849, -17.4993, 16.01, 1.31)
	pt3dadd(-23.7749, -18.0393, 17.86, 1.31)
	pt3dadd(-24.0949, -17.9493, 17.97, 1.31)
	pt3dadd(-24.1849, -18.2593, 19.29, 1.31)
	pt3dadd(-24.1849, -18.2593, 19.66, 1.31)
	pt3dadd(-24.9949, -18.7093, 22.31, 1.31)
	pt3dadd(-26.3449, -18.6593, 22.68, 1.31)
	pt3dadd(-26.3449, -18.6593, 23.16, 1.31)
	pt3dadd(-27.0649, -18.7993, 24.22, 1.31)
	pt3dadd(-28.2349, -18.1193, 26.18, 1.31)
	pt3dadd(-28.2349, -18.1193, 26.45, 1.31)
	pt3dadd(-28.8649, -17.9393, 27.51, 1.31)
	pt3dadd(-28.8649, -17.9393, 27.77, 1.31)
	pt3dadd(-29.6749, -18.3893, 29.94, 1.31)
	pt3dadd(-30.6149, -18.1193, 30.42, 1.31)
	pt3dadd(-30.9349, -18.0293, 30.74, 1.31)
	pt3dadd(-31.1149, -18.6593, 31.8, 1.31)
	pt3dadd(-31.1149, -18.6593, 32.38, 1.31)
	pt3dadd(-32.2349, -19.0193, 34.08, 1.31)
	pt3dadd(-32.645, -19.2393, 34.13, 1.31)
	pt3dadd(-33.005, -20.4993, 34.29, 1.31)
	pt3dadd(-33.005, -20.4993, 34.72, 1.31)
	pt3dadd(-33.4549, -22.0793, 37.84, 0.66)
    }
}

proc shape3d_dend6_5() {
    dend[28] {pt3dclear()
	pt3dadd(-22.3849, -16.7293, 16.01, 1.46)
	pt3dadd(-22.3449, -17.8293, 15.98, 1.46)
	pt3dadd(-22.3449, -17.8293, 16.22, 1.46)
	pt3dadd(-22.7549, -21.2493, 9.64, 1.95)
	pt3dadd(-22.2449, -19.3693, 9.64, 1.95)
	pt3dadd(-19.7749, -19.5293, 9.64, 1.95)
	pt3dadd(-16.9149, -18.2693, 27.3, 1.95)
	pt3dadd(-16.9149, -18.2693, 27.78, 1.95)
	pt3dadd(-15.8549, -18.0493, 29.55, 1.95)
	pt3dadd(-15.8549, -18.0493, 30.27, 1.95)
	pt3dadd(-14.9149, -18.3093, 30.67, 1.95)
	pt3dadd(-14.9149, -18.3093, 30.75, 1.95)
	pt3dadd(-13.7149, -17.6093, 32.44, 1.95)
	pt3dadd(-13.7149, -17.6093, 32.68, 1.95)
	pt3dadd(-12.9949, -16.7993, 34.77, 1.95)
	pt3dadd(-12.9949, -16.7993, 34.93, 1.95)
	pt3dadd(-12.4949, -14.9093, 37.58, 1.95)
	pt3dadd(-12.4949, -14.9093, 37.98, 1.95)
	pt3dadd(-10.8249, -14.3493, 40.79, 1.95)
	pt3dadd(-10.2349, -13.9993, 40.79, 1.95)
	pt3dadd(-9.16495, -13.7793, 41.91, 1.95)
	pt3dadd(-9.16495, -13.7793, 42.07, 1.95)
	pt3dadd(-7.28495, -14.2893, 46.09, 1.95)
	pt3dadd(-7.28495, -14.2893, 45.13, 1.95)
	pt3dadd(-6.42495, -13.8993, 45.16, 1.31)
	pt3dadd(-4.06495, -15.4393, 46.32, 1.31)
	pt3dadd(-3.72495, -15.1193, 46.8, 1.31)
	pt3dadd(-3.05495, -14.8193, 46.8, 1.31)
	pt3dadd(-1.08495, -14.5593, 48.02, 1.31)
	pt3dadd(-0.104949, -14.5893, 48.39, 1.31)
	pt3dadd(1.86505, -14.6593, 48.92, 1.31)
	pt3dadd(2.19505, -14.6693, 49.13, 1.31)
	pt3dadd(3.84505, -14.0693, 50.56, 1.31)
	pt3dadd(4.18505, -13.7593, 51.36, 1.31)
	pt3dadd(4.51505, -13.7693, 51.36, 1.31)
	pt3dadd(5.50505, -13.4793, 52.15, 1.31)
	pt3dadd(5.83505, -13.4893, 52.74, 1.31)
	pt3dadd(6.45505, -14.4893, 54.43, 1.31)
	pt3dadd(6.77505, -14.8293, 55.23, 1.31)
	pt3dadd(8.37505, -15.8693, 56.02, 1.31)
	pt3dadd(10.0151, -15.9293, 56.07, 1.31)
	pt3dadd(10.3351, -15.9393, 56.07, 1.31)
	pt3dadd(11.2851, -16.9593, 56.97, 1.31)
	pt3dadd(11.2851, -16.9593, 57.03, 1.31)
	pt3dadd(13.8551, -18.3593, 57.88, 1.31)
	pt3dadd(13.8551, -18.3593, 58.09, 1.31)
	pt3dadd(15.1651, -18.3993, 58.46, 1.31)
	pt3dadd(15.4851, -18.7393, 58.88, 1.31)
	pt3dadd(16.7351, -20.4193, 60.63, 1.31)
	pt3dadd(16.7351, -20.4193, 61.22, 1.31)
	pt3dadd(17.0151, -21.7393, 61.74, 1.31)
	pt3dadd(17.6751, -21.7693, 61.8, 1.31)
	pt3dadd(19.2851, -22.4793, 62.01, 1.31)
	pt3dadd(19.9251, -22.8293, 63.02, 1.31)
	pt3dadd(20.2451, -23.1693, 63.44, 1.31)
	pt3dadd(21.1951, -24.1793, 64.92, 1.31)
	pt3dadd(21.5051, -24.5193, 65.35, 1.31)
	pt3dadd(22.4551, -25.5393, 67.1, 1.31)
	pt3dadd(22.7851, -25.5493, 67.68, 1.31)
	pt3dadd(23.7451, -26.2393, 68.85, 1.31)
	pt3dadd(24.3951, -26.2593, 69.22, 1.31)
	pt3dadd(24.7251, -26.2693, 69.75, 1.31)
	pt3dadd(24.7251, -26.2693, 69.91, 1.31)
	pt3dadd(25.3851, -26.2993, 72.13, 1.31)
	pt3dadd(25.7051, -26.3093, 72.66, 1.31)
	pt3dadd(27.0151, -26.3493, 73.14, 1.31)
	pt3dadd(27.9951, -26.3893, 73.62, 1.31)
	pt3dadd(29.3051, -26.4293, 74.2, 1.31)
	pt3dadd(29.6351, -26.4393, 74.57, 1.31)
	pt3dadd(30.9251, -27.1393, 75.37, 1.31)
	pt3dadd(30.9251, -27.1393, 75.63, 1.31)
	pt3dadd(32.855, -28.1993, 75.9, 0.98)
	pt3dadd(32.8351, -28.5193, 76.53, 0.98)
	pt3dadd(33.815, -28.8793, 79.18, 0.98)
	pt3dadd(34.465, -28.9093, 80.08, 0.98)
	pt3dadd(35.105, -29.2593, 80.29, 0.98)
	pt3dadd(35.4351, -29.2693, 80.29, 0.98)
	pt3dadd(36.4051, -29.6293, 80.51, 0.98)
	pt3dadd(36.7251, -29.9693, 80.51, 0.98)
	pt3dadd(37.6951, -30.3293, 80.51, 0.98)
	pt3dadd(38.6651, -30.6893, 80.51, 0.98)
	pt3dadd(40.925, -31.7493, 82.26, 0.98)
	pt3dadd(40.925, -31.7493, 82.57, 0.98)
	pt3dadd(43.215, -31.8293, 84.85, 0.98)
	pt3dadd(43.8651, -31.8593, 85.54, 0.98)
	pt3dadd(44.205, -31.5393, 86.87, 0.98)
	pt3dadd(44.2551, -30.2293, 88.93, 0.98)
	pt3dadd(44.2551, -30.2293, 89.2, 0.98)
	pt3dadd(44.5751, -30.2393, 90.42, 0.98)
    }
}

proc shape3d_dend5_4() {
    dend[29] {pt3dclear()
	pt3dadd(-50.045, -7.8593, -3.76, 1.31)
	pt3dadd(-50.755, -8.3493, -3.76, 1.31)
	pt3dadd(-51.145, -8.2893, -3.6, 1.31)
	pt3dadd(-51.465, -8.2093, -3.6, 1.31)
	pt3dadd(-53.045, -7.7893, -2.6, 1.31)
	pt3dadd(-53.3549, -7.6993, -2.38, 1.31)
	pt3dadd(-54.2249, -7.1293, -0.32, 1.31)
	pt3dadd(-54.2249, -7.1293, 0.16, 1.31)
	pt3dadd(-54.285, -6.0993, 0.21, 1.31)
	pt3dadd(-54.6049, -6.0093, 0.26, 1.31)
	pt3dadd(-55.0649, -5.2093, 1.48, 1.31)
	pt3dadd(-55.0649, -5.2093, 1.8, 1.31)
	pt3dadd(-55.955, -5.9893, 3.29, 1.31)
	pt3dadd(-56.2649, -5.8993, 3.39, 1.31)
	pt3dadd(-56.5649, -4.4693, 3.6, 1.31)
	pt3dadd(-57.7449, -3.8093, 4.13, 1.31)
	pt3dadd(-58.055, -3.7293, 4.29, 1.31)
	pt3dadd(-58.695, -3.5593, 4.72, 1.31)
	pt3dadd(-58.695, -3.5593, 4.82, 1.31)
	pt3dadd(-59.555, -2.9893, 5.3, 1.31)
	pt3dadd(-59.555, -2.9893, 5.56, 1.31)
	pt3dadd(-60.3349, -2.0993, 6.41, 1.31)
	pt3dadd(-60.3349, -2.0993, 6.52, 1.31)
	pt3dadd(-61.375, -2.1593, 7.05, 1.31)
	pt3dadd(-61.375, -2.1593, 7.1, 1.31)
	pt3dadd(-62.0849, -2.3093, 8.27, 1.31)
	pt3dadd(-62.0849, -2.3093, 8.43, 1.31)
	pt3dadd(-63.035, -2.0593, 9.91, 1.31)
	pt3dadd(-63.035, -2.0593, 10.07, 1.31)
	pt3dadd(-63.525, -2.5993, 10.76, 1.31)
	pt3dadd(-63.525, -2.5993, 11.18, 1.31)
	pt3dadd(-65.825, -2.3293, 11.93, 1.31)
	pt3dadd(-66.435, -0.8093, 13.46, 1.31)
	pt3dadd(-66.435, -0.8093, 13.57, 1.31)
	pt3dadd(-67.6949, -0.4693, 14.68, 1.31)
	pt3dadd(-67.6949, -0.4693, 15.1, 1.31)
	pt3dadd(-68.565, 0.1007, 17.44, 1.31)
	pt3dadd(-68.565, 0.1007, 17.6, 1.31)
	pt3dadd(-70.1449, 0.5307, 18.97, 1.31)
	pt3dadd(-70.465, 0.6107, 19.24, 1.31)
	pt3dadd(-72.6149, 0.1707, 20.4, 1.31)
	pt3dadd(-72.6149, 0.1707, 20.62, 1.31)
	pt3dadd(-74.1049, 0.9107, 21.25, 1.31)
	pt3dadd(-74.1049, 0.9107, 21.52, 1.31)
	pt3dadd(-74.2549, 1.6307, 22.68, 1.31)
	pt3dadd(-74.575, 1.7107, 23, 1.31)
	pt3dadd(-75.125, 2.2007, 23.64, 1.31)
	pt3dadd(-75.125, 2.2007, 23.8, 1.31)
	pt3dadd(-77.015, 2.7107, 25.17, 1.31)
	pt3dadd(-77.015, 2.7107, 26.08, 1.31)
	pt3dadd(-78.035, 4.0007, 26.76, 1.31)
	pt3dadd(-78.035, 4.0007, 26.5, 1.31)
	pt3dadd(-79.065, 3.9307, 26.55, 1.31)
	pt3dadd(-79.065, 3.9307, 26.82, 1.31)
	pt3dadd(-80.325, 4.2707, 27.08, 1.31)
	pt3dadd(-80.325, 4.2707, 27.14, 1.31)
	pt3dadd(-81.1049, 5.1607, 27.77, 1.31)
	pt3dadd(-81.1049, 5.1607, 27.93, 1.31)
	pt3dadd(-82.6949, 5.5807, 28.2, 1.31)
	pt3dadd(-84.2749, 6.0107, 28.67, 1.31)
	pt3dadd(-84.2749, 6.0107, 29.26, 1.31)
	pt3dadd(-85.075, 5.5407, 30.85, 1.31)
	pt3dadd(-85.155, 5.2307, 31.27, 1.31)
	pt3dadd(-86.425, 5.5707, 31.85, 1.31)
	pt3dadd(-86.5049, 5.2507, 32.17, 1.31)
	pt3dadd(-88.1149, 4.3207, 32.33, 1.31)
	pt3dadd(-89.545, 4.0307, 34.13, 1.31)
	pt3dadd(-89.545, 4.0307, 34.45, 1.31)
	pt3dadd(-91.535, 4.2207, 35.4, 1.31)
	pt3dadd(-91.935, 3.9907, 36.09, 1.31)
	pt3dadd(-92.2449, 4.0807, 36.09, 1.31)
	pt3dadd(-92.965, 3.9307, 37.1, 1.31)
	pt3dadd(-92.965, 3.9307, 37.52, 1.31)
	pt3dadd(-92.905, 2.9007, 38.8, 1.31)
	pt3dadd(-92.905, 2.9007, 39.22, 1.31)
	pt3dadd(-93.155, 1.9507, 39.8, 1.31)
	pt3dadd(-93.155, 1.9507, 39.96, 1.31)
	pt3dadd(-93.735, 1.0807, 40.49, 1.31)
	pt3dadd(-93.735, 1.0807, 40.65, 1.31)
	pt3dadd(-94.215, 0.5307, 41.23, 1.31)
	pt3dadd(-94.215, 0.5307, 41.34, 1.31)
	pt3dadd(-95.1649, 0.7907, 41.66, 1.31)
	pt3dadd(-95.5249, -1.6093, 41.71, 0.33)
	pt3dadd(-98.455, -1.1793, 44.73, 0.98)
	pt3dadd(-100.105, -1.4493, 46.8, 0.98)
	pt3dadd(-100.435, -1.4393, 47.17, 0.98)
	pt3dadd(-102.435, -2.3493, 47.59, 0.98)
	pt3dadd(-102.445, -2.6793, 48.23, 0.98)
	pt3dadd(-104.105, -3.2693, 49.13, 0.98)
	pt3dadd(-104.105, -3.2693, 49.66, 0.98)
	pt3dadd(-105.425, -3.5593, 51.41, 0.98)
	pt3dadd(-105.425, -3.5593, 51.89, 0.98)
	pt3dadd(-106.725, -3.1793, 53.53, 0.98)
	pt3dadd(-106.725, -3.1793, 54.06, 0.98)
	pt3dadd(-107.675, -2.1693, 55.76, 0.98)
	pt3dadd(-107.675, -2.1693, 56.13, 0.98)
	pt3dadd(-107.625, -0.8593, 57.82, 0.98)
	pt3dadd(-107.625, -0.8593, 58.41, 0.98)
	pt3dadd(-107.915, 0.1407, 60.42, 0.98)
	pt3dadd(-107.905, 0.4607, 61, 0.98)
	pt3dadd(-108.845, 1.8107, 62.06, 0.98)
	pt3dadd(-108.845, 1.8107, 62.27, 0.98)
    }
}

proc shape3d_dend5_5() {
    dend[30] {pt3dclear()
	pt3dadd(-50.045, -7.8593, -3.76, 1.31)
	pt3dadd(-50.945, -5.6693, -4.77, 1.31)
	pt3dadd(-50.945, -5.6693, -5.14, 1.31)
	pt3dadd(-52.125, -5.6693, -6.89, 1.31)
	pt3dadd(-52.395, -5.4793, -6.89, 1.31)
	pt3dadd(-53.7649, -5.7493, -6.94, 1.31)
	pt3dadd(-54.035, -5.5593, -6.94, 1.31)
	pt3dadd(-55.115, -4.8293, -7.58, 1.31)
	pt3dadd(-55.385, -4.6493, -7.63, 1.31)
	pt3dadd(-55.935, -4.2793, -8.69, 1.31)
	pt3dadd(-56.025, -3.8293, -9.12, 1.31)
	pt3dadd(-56.465, -2.7393, -10.28, 1.31)
	pt3dadd(-56.7449, -2.5493, -10.28, 1.31)
	pt3dadd(-57.825, -0.6393, -10.44, 1.31)
	pt3dadd(-58.365, -0.2693, -10.55, 1.31)
	pt3dadd(-58.9049, 0.0906997, -10.65, 1.31)
	pt3dadd(-59.8149, -0.0793003, -11.08, 1.31)
	pt3dadd(-60.3549, 0.2807, -11.08, 1.31)
	pt3dadd(-61.625, 0.7407, -11.08, 1.31)
	pt3dadd(-61.895, 0.9307, -11.08, 1.31)
	pt3dadd(-63.165, 1.3907, -11.39, 1.31)
	pt3dadd(-63.165, 1.3907, -11.82, 1.31)
	pt3dadd(-63.805, 2.2107, -12.88, 1.31)
	pt3dadd(-63.885, 2.6607, -12.98, 1.31)
	pt3dadd(-64.705, 3.2107, -12.98, 1.31)
	pt3dadd(-65.785, 3.9507, -12.72, 1.31)
	pt3dadd(-66.065, 4.1307, -12.08, 1.31)
	pt3dadd(-66.685, 6.1307, -14.68, 1.31)
	pt3dadd(-67.955, 6.5907, -14.73, 1.31)
	pt3dadd(-68.405, 6.5007, -14.73, 1.31)
	pt3dadd(-70.405, 7.0607, -14.73, 1.31)
	pt3dadd(-71.4949, 7.7907, -14.73, 1.31)
	pt3dadd(-71.845, 9.6107, -13.2, 1.31)
	pt3dadd(-71.845, 9.6107, -12.98, 1.31)
	pt3dadd(-73.295, 10.9807, -12.93, 1.31)
	pt3dadd(-73.565, 11.1607, -12.93, 1.31)
	pt3dadd(-73.375, 12.6207, -12.08, 1.31)
	pt3dadd(-73.375, 12.6207, -11.61, 1.31)
	pt3dadd(-73.095, 13.6107, -11.39, 1.31)
	pt3dadd(-73.3649, 13.8007, -11.34, 1.31)
	pt3dadd(-74.455, 14.5307, -10.49, 1.31)
	pt3dadd(-74.9949, 14.9007, -10.44, 1.31)
	pt3dadd(-76.8049, 15.7207, -10.39, 1.31)
	pt3dadd(-77.075, 17.0907, -10.34, 0.98)
	pt3dadd(-77.435, 17.7307, -10.34, 0.98)
	pt3dadd(-76.425, 19.8107, -10.34, 0.98)
	pt3dadd(-79.955, 21.0107, -9.43, 0.98)
	pt3dadd(-80.685, 21.1007, -9.43, 0.98)
	pt3dadd(-81.2249, 22.6507, -9.43, 0.98)
	pt3dadd(-82.3049, 23.3807, -9.59, 0.98)
	pt3dadd(-82.575, 23.5707, -9.59, 0.98)
	pt3dadd(-82.845, 24.9307, -11.45, 0.98)
	pt3dadd(-83.8349, 26.3907, -11.45, 0.98)
	pt3dadd(-83.655, 26.6607, -11.45, 0.98)
	pt3dadd(-83.375, 27.6607, -11.45, 0.98)
	pt3dadd(-84.6349, 29.3007, -12.03, 0.98)
	pt3dadd(-84.905, 29.4807, -12.14, 0.98)
	pt3dadd(-85.3549, 30.5807, -13.3, 0.98)
	pt3dadd(-85.435, 32.2107, -13.3, 0.98)
	pt3dadd(-86.795, 33.1307, -13.3, 0.98)
	pt3dadd(-87.8849, 33.8607, -13.73, 0.98)
	pt3dadd(-87.9749, 34.3207, -13.99, 0.98)
	pt3dadd(-88.065, 34.7707, -13.99, 0.98)
	pt3dadd(-88.235, 35.6807, -14.36, 0.98)
	pt3dadd(-88.325, 36.1307, -14.42, 0.98)
	pt3dadd(-89.4949, 37.3207, -15.1, 0.98)
	pt3dadd(-89.4949, 37.3207, -15.16, 0.98)
	pt3dadd(-89.675, 38.2307, -14.47, 0.98)
	pt3dadd(-89.765, 38.6907, -14.47, 0.98)
	pt3dadd(-89.5849, 38.9607, -14.47, 0.98)
	pt3dadd(-89.7549, 39.8707, -14.36, 0.98)
	pt3dadd(-90.0249, 40.0507, -12.93, 0.98)
	pt3dadd(-90.575, 40.4207, -12.03, 0.98)
	pt3dadd(-90.6649, 40.8707, -12.03, 0.98)
	pt3dadd(-93.1949, 42.9707, -11.98, 0.98)
	pt3dadd(-93.735, 43.3407, -11.98, 0.98)
	pt3dadd(-96.095, 43.3507, -13.25, 0.98)
	pt3dadd(-96.095, 43.3507, -12.3, 0.98)
    }
}

proc shape3d_dend5_6() {
    dend[31] {pt3dclear()
	pt3dadd(-38.035, -22.6593, 5.72, 1.64)
	pt3dadd(-39.365, -21.2793, 6.52, 1.64)
	pt3dadd(-40.0849, -21.4293, 7.68, 1.64)
	pt3dadd(-41.685, -22.3593, 6.84, 1.64)
	pt3dadd(-41.685, -22.3593, 6.78, 1.64)
	pt3dadd(-41.9249, -21.9593, 8.85, 1.64)
    }
}

proc shape3d_dend5_7() {
    dend[32] {pt3dclear()
	pt3dadd(-38.035, -22.6593, 5.72, 1.64)
	pt3dadd(-38.0849, -25.3593, 6.47, 1.64)
	pt3dadd(-38.4049, -25.2693, 6.36, 1.64)
	pt3dadd(-38.885, -25.8193, 5.83, 1.64)
	pt3dadd(-39.145, -26.7693, 5.88, 1.64)
	pt3dadd(-39.2249, -27.0893, 5.94, 1.64)
	pt3dadd(-39.6549, -28.6693, 6.52, 1.64)
	pt3dadd(-39.735, -28.9793, 6.68, 1.64)
	pt3dadd(-41.6549, -29.8193, 7.21, 1.64)
	pt3dadd(-42.055, -30.0593, 7.21, 1.64)
	pt3dadd(-42.455, -30.2893, 7.21, 1.64)
	pt3dadd(-43.4949, -30.3493, 7.31, 1.64)
	pt3dadd(-44.4049, -32.4793, 7.31, 1.64)
	pt3dadd(-43.645, -34.7193, 7.84, 1.64)
	pt3dadd(-42.635, -36.0093, 9.86, 1.64)
	pt3dadd(-44.635, -37.1593, 9.91, 1.64)
	pt3dadd(-46.735, -38.6393, 9.91, 1.64)
	pt3dadd(-47.135, -38.8693, 9.91, 1.64)
	pt3dadd(-48.415, -39.8793, 10.02, 1.64)
	pt3dadd(-47.895, -41.7193, 10.02, 1.64)
	pt3dadd(-48.215, -41.6293, 10.02, 1.64)
	pt3dadd(-49.4749, -41.2893, 10.44, 1.64)
	pt3dadd(-49.795, -41.2093, 10.44, 1.64)
	pt3dadd(-50.445, -42.3893, 10.49, 1.64)
	pt3dadd(-50.535, -42.6993, 10.49, 1.64)
	pt3dadd(-51.185, -43.8893, 10.55, 1.64)
	pt3dadd(-51.9049, -44.0293, 10.92, 1.64)
	pt3dadd(-53.1049, -44.7293, 11.66, 1.64)
	pt3dadd(-53.1049, -44.7293, 11.77, 1.64)
	pt3dadd(-53.9949, -45.5093, 12.35, 1.64)
	pt3dadd(-52.895, -46.4793, 11.71, 1.64)
	pt3dadd(-52.285, -47.9993, 11.71, 1.31)
	pt3dadd(-52.285, -47.9993, 11.66, 1.31)
	pt3dadd(-52.715, -49.5793, 11.34, 1.31)
	pt3dadd(-53.035, -49.4993, 11.08, 1.31)
	pt3dadd(-54.145, -49.8693, 12.93, 1.31)
	pt3dadd(-54.235, -50.1893, 13.04, 1.31)
	pt3dadd(-54.885, -51.3693, 13.67, 1.31)
	pt3dadd(-54.885, -51.3693, 14.47, 1.31)
	pt3dadd(-56.2649, -52.6993, 15.85, 1.31)
	pt3dadd(-56.345, -53.0093, 15.85, 1.31)
	pt3dadd(-58.205, -54.8893, 15.9, 1.31)
	pt3dadd(-58.295, -55.2093, 15.9, 1.31)
	pt3dadd(-58.255, -57.5893, 16.06, 1.31)
	pt3dadd(-58.255, -57.5893, 16.11, 1.31)
	pt3dadd(-58.755, -59.4893, 16.38, 1.31)
	pt3dadd(-58.755, -59.4893, 16.48, 1.31)
	pt3dadd(-59.9049, -61.2193, 16.96, 1.31)
	pt3dadd(-59.9049, -61.2193, 17.23, 1.31)
	pt3dadd(-60.8149, -63.3493, 18.97, 1.31)
	pt3dadd(-61.215, -63.5793, 19.29, 1.31)
	pt3dadd(-62.185, -64.6693, 19.5, 1.31)
	pt3dadd(-62.185, -64.6693, 19.56, 1.31)
	pt3dadd(-63.705, -65.2793, 20.56, 1.31)
	pt3dadd(-64.015, -65.1993, 20.72, 1.31)
	pt3dadd(-65.3949, -66.5293, 20.93, 1.31)
	pt3dadd(-65.795, -66.7593, 20.93, 1.31)
	pt3dadd(-66.9949, -67.4493, 20.99, 1.31)
	pt3dadd(-67.0849, -67.7693, 20.99, 1.31)
	pt3dadd(-67.565, -68.3193, 20.99, 1.31)
	pt3dadd(-68.7749, -69.0093, 21.41, 1.31)
	pt3dadd(-69.175, -69.2393, 21.57, 1.31)
	pt3dadd(-69.2549, -69.5593, 21.57, 1.31)
	pt3dadd(-70.2249, -70.6593, 22.31, 1.31)
	pt3dadd(-70.2249, -70.6593, 22.58, 1.31)
	pt3dadd(-72.235, -71.8093, 23.43, 1.31)
	pt3dadd(-72.315, -72.1293, 23.58, 1.31)
	pt3dadd(-73.435, -72.5093, 24.22, 1.31)
	pt3dadd(-73.6049, -73.1393, 24.33, 1.31)
	pt3dadd(-74.175, -74.0093, 24.49, 1.31)
	pt3dadd(-74.265, -74.3193, 24.49, 1.31)
	pt3dadd(-74.6649, -74.5493, 24.49, 1.31)
	pt3dadd(-75.175, -76.4493, 24.49, 1.31)
	pt3dadd(-76.6949, -77.0593, 24.54, 1.31)
	pt3dadd(-78.595, -76.5493, 26.29, 1.31)
	pt3dadd(-78.595, -76.5493, 26.5, 1.31)
	pt3dadd(-79.565, -77.6493, 27.14, 1.31)
	pt3dadd(-79.565, -77.6493, 27.24, 1.31)
	pt3dadd(-80.535, -78.7493, 28.57, 1.31)
	pt3dadd(-80.935, -78.9793, 28.57, 1.31)
	pt3dadd(-81.0249, -79.2893, 28.57, 1.31)
	pt3dadd(-81.425, -79.5293, 28.67, 1.31)
	pt3dadd(-81.735, -79.4393, 28.89, 1.31)
	pt3dadd(-82.7749, -79.4993, 30.05, 1.31)
	pt3dadd(-82.7749, -79.4993, 30.21, 1.31)
	pt3dadd(-83.8949, -79.8793, 30.95, 1.31)
	pt3dadd(-83.8949, -79.8793, 31.11, 1.31)
	pt3dadd(-85.985, -81.3593, 32.17, 1.31)
	pt3dadd(-85.985, -81.3593, 32.28, 1.31)
	pt3dadd(-86.955, -82.4493, 32.75, 0.98)
	pt3dadd(-87.035, -82.7693, 32.75, 0.98)
	pt3dadd(-88.5549, -83.3793, 33.5, 0.98)
	pt3dadd(-88.955, -83.6093, 33.55, 0.98)
	pt3dadd(-89.215, -84.5593, 33.92, 0.98)
	pt3dadd(-89.295, -84.8793, 34.24, 0.98)
	pt3dadd(-89.5549, -85.8193, 35.14, 0.98)
	pt3dadd(-89.5549, -85.8193, 35.35, 0.98)
    }
}

proc shape3d_dend4_4() {
    dend[33] {pt3dclear()
	pt3dadd(-60.045, -112.379, 35.77, 1.31)
	pt3dadd(-59.695, -114.849, 35.77, 1.31)
	pt3dadd(-60.285, -117.059, 37.1, 1.31)
	pt3dadd(-60.285, -117.059, 37.15, 1.31)
	pt3dadd(-61.4249, -118.789, 37.52, 1.31)
	pt3dadd(-61.825, -119.019, 37.52, 1.31)
	pt3dadd(-61.915, -119.339, 37.52, 1.31)
	pt3dadd(-63.055, -121.069, 34.72, 1.31)
	pt3dadd(-63.135, -121.379, 34.66, 1.31)
	pt3dadd(-62.845, -122.819, 34.72, 1.31)
	pt3dadd(-64.9949, -123.259, 34.56, 1.31)
	pt3dadd(-65.315, -123.169, 34.56, 1.31)
	pt3dadd(-66.535, -125.219, 34.56, 1.31)
	pt3dadd(-66.935, -125.449, 34.56, 1.31)
	pt3dadd(-67.0249, -125.769, 34.56, 1.31)
	pt3dadd(-68.1049, -128.529, 34.56, 1.31)
	pt3dadd(-69.705, -129.459, 34.56, 1.31)
	pt3dadd(-69.795, -129.769, 34.29, 1.31)
	pt3dadd(-70.705, -131.899, 32.97, 1.31)
	pt3dadd(-71.185, -132.449, 32.97, 1.31)
	pt3dadd(-72.015, -134.259, 32.97, 1.31)
	pt3dadd(-73.325, -136.629, 32.97, 1.31)
	pt3dadd(-73.405, -136.939, 32.97, 1.31)
	pt3dadd(-75.295, -140.169, 32.97, 1.31)
	pt3dadd(-75.375, -140.479, 32.97, 1.31)
	pt3dadd(-77.485, -143.309, 31.96, 1.31)
	pt3dadd(-77.485, -143.309, 31.27, 1.31)
	pt3dadd(-79.325, -143.829, 30.1, 1.31)
	pt3dadd(-79.325, -143.829, 29.63, 1.31)
	pt3dadd(-80.925, -144.759, 28.2, 1.31)
	pt3dadd(-80.925, -144.759, 27.45, 1.31)
	pt3dadd(-82.045, -145.139, 25.28, 1.31)
	pt3dadd(-82.045, -145.139, 24.59, 1.31)
    }
}

proc shape3d_dend4_5() {
    dend[34] {pt3dclear()
	pt3dadd(-60.045, -112.379, 35.77, 1.31)
	pt3dadd(-60.7649, -112.529, 37.79, 1.31)
	pt3dadd(-60.7649, -112.529, 38.11, 1.31)
	pt3dadd(-62.8349, -112.649, 38.64, 1.31)
	pt3dadd(-62.8349, -112.649, 38.74, 1.31)
	pt3dadd(-64.6649, -113.179, 39.01, 1.31)
	pt3dadd(-64.3549, -113.259, 39.06, 1.31)
	pt3dadd(-66.435, -113.389, 39.06, 0.33)
	pt3dadd(-68.7549, -113.969, 40.39, 0.33)
	pt3dadd(-68.765, -114.289, 40.65, 0.33)
	pt3dadd(-70.095, -114.899, 41.45, 0.33)
	pt3dadd(-70.1049, -115.229, 41.92, 0.33)
	pt3dadd(-70.155, -116.539, 43.41, 0.33)
	pt3dadd(-70.485, -116.529, 43.72, 0.33)
	pt3dadd(-71.485, -117.149, 44.94, 0.33)
	pt3dadd(-71.485, -117.149, 45.1, 0.33)
	pt3dadd(-72.185, -118.429, 46.11, 0.33)
	pt3dadd(-72.5249, -118.749, 46.48, 0.33)
	pt3dadd(-73.1949, -119.049, 47.01, 0.33)
	pt3dadd(-73.1949, -119.049, 47.17, 0.33)
	pt3dadd(-73.8649, -119.689, 47.38, 0.33)
	pt3dadd(-73.8649, -119.689, 47.43, 0.33)
    }
}

proc shape3d_dend4_6() {
    dend[35] {pt3dclear()
	pt3dadd(-15.0449, -39.3293, 4.82, 1.64)
	pt3dadd(-14.2849, -41.5693, 3.76, 1.64)
	pt3dadd(-14.2849, -41.5693, 3.97, 1.64)
	pt3dadd(-14.4749, -43.5493, 4.29, 1.64)
	pt3dadd(-12.9849, -44.2893, 4.29, 1.64)
	pt3dadd(-13.0649, -44.6093, 4.29, 1.64)
	pt3dadd(-12.7049, -47.0793, 4.35, 1.64)
	pt3dadd(-10.6649, -48.2993, 4.77, 1.64)
	pt3dadd(-10.7449, -48.6193, 4.82, 1.64)
	pt3dadd(-9.25495, -49.3593, 4.88, 1.64)
	pt3dadd(-9.25495, -49.3593, 4.98, 1.64)
	pt3dadd(-8.00495, -51.0493, 5.35, 1.64)
	pt3dadd(-8.00495, -51.0493, 5.3, 1.64)
	pt3dadd(-5.18495, -53.1593, 4.24, 1.64)
	pt3dadd(-3.34495, -52.6393, 3.92, 1.64)
	pt3dadd(-3.34495, -52.6393, 3.87, 1.64)
	pt3dadd(-2.63495, -52.4893, 3.87, 1.64)
	pt3dadd(-0.504949, -53.3993, 3.87, 1.64)
	pt3dadd(0.505051, -54.6893, 3.97, 1.64)
	pt3dadd(0.425051, -54.9993, 4.03, 1.64)
	pt3dadd(0.885051, -55.7993, 4.45, 1.64)
	pt3dadd(0.885051, -55.7993, 4.93, 1.64)
	pt3dadd(1.09505, -57.5593, 5.57, 1.64)
	pt3dadd(1.41505, -57.6393, 5.57, 1.64)
	pt3dadd(2.50505, -58.6093, 5.57, 1.64)
	pt3dadd(4.15505, -60.0693, 7.74, 1.64)
	pt3dadd(5.96505, -60.8993, 1.7, 1.64)
	pt3dadd(7.44505, -62.9893, 1.7, 1.64)
	pt3dadd(7.44505, -62.9893, 1.64, 1.64)
	pt3dadd(9.71505, -64.6093, 0.69, 1.64)
	pt3dadd(9.60505, -66.2793, -0.69, 1.64)
	pt3dadd(9.60505, -66.2793, -0.85, 1.64)
	pt3dadd(9.60505, -66.2793, -4.29, 1.64)
	pt3dadd(9.13505, -65.9493, -4.29, 1.31)
	pt3dadd(9.13505, -67.1293, -7.53, 1.31)
	pt3dadd(9.40505, -67.3193, -7.95, 1.31)
	pt3dadd(10.0351, -68.1393, -12.56, 1.31)
	pt3dadd(10.0351, -68.1393, -12.61, 1.31)
	pt3dadd(10.9351, -69.1393, -12.67, 1.31)
	pt3dadd(10.7551, -69.4093, -12.67, 1.31)
	pt3dadd(10.3851, -71.1393, -14.26, 1.31)
	pt3dadd(10.3851, -71.1393, -14.95, 1.31)
	pt3dadd(11.4651, -71.8693, -15.85, 1.31)
	pt3dadd(11.7451, -72.0493, -16.43, 1.31)
	pt3dadd(12.5551, -72.5993, -18.76, 1.31)
	pt3dadd(12.5551, -72.5993, -19.4, 1.31)
	pt3dadd(13.6451, -73.3293, -21.2, 1.31)
	pt3dadd(13.6451, -73.3293, -21.47, 1.31)
	pt3dadd(14.7251, -74.0693, -21.52, 1.31)
	pt3dadd(14.9951, -74.2493, -21.52, 1.31)
	pt3dadd(15.9851, -75.7093, -22.05, 1.31)
	pt3dadd(16.0751, -76.1593, -22.1, 1.31)
	pt3dadd(16.6151, -77.7093, -22.37, 1.31)
	pt3dadd(16.6151, -77.7093, -22.79, 1.31)
	pt3dadd(19.6051, -79.7293, -21.2, 1.31)
	pt3dadd(20.1351, -81.2693, -21.2, 1.31)
	pt3dadd(20.4151, -81.4593, -21.2, 1.31)
	pt3dadd(21.6651, -84.2793, -21.2, 0.98)
	pt3dadd(21.8351, -86.3693, -21.2, 0.98)
	pt3dadd(22.9251, -87.0993, -22.42, 0.98)
	pt3dadd(23.1951, -87.2793, -22.47, 0.98)
	pt3dadd(24.5451, -89.3793, -20.3, 0.98)
	pt3dadd(26.3551, -91.3893, -19.24, 0.98)
	pt3dadd(26.3551, -91.3893, -18.92, 0.98)
	pt3dadd(27.1551, -94.2993, -17.38, 0.98)
	pt3dadd(27.1551, -94.2993, -17.17, 0.98)
	pt3dadd(29.3251, -95.7693, -16.27, 0.98)
	pt3dadd(29.3251, -95.7693, -16.22, 0.98)
	pt3dadd(31.9351, -99.4993, -17.7, 0.98)
	pt3dadd(31.7551, -99.7793, -17.7, 0.98)
	pt3dadd(32.385, -101.779, -16.91, 0.98)
	pt3dadd(32.6551, -101.959, -16.8, 0.98)
	pt3dadd(34.5451, -104.419, -16.69, 0.98)
	pt3dadd(36.9851, -107.249, -17.38, 0.98)
	pt3dadd(36.9851, -107.249, -18.39, 0.98)
	pt3dadd(38.0751, -107.989, -18.66, 0.98)
	pt3dadd(39.6151, -107.449, -18.66, 0.98)
	pt3dadd(41.9751, -108.639, -19.29, 0.98)
	pt3dadd(41.9751, -108.639, -19.82, 0.98)
	pt3dadd(44.5151, -109.559, -20.56, 0.98)
	pt3dadd(44.785, -109.749, -20.83, 0.98)
	pt3dadd(46.2351, -109.939, -22.26, 0.98)
	pt3dadd(46.2351, -109.939, -22.42, 0.98)
	pt3dadd(47.3251, -109.489, -22.79, 0.98)
	pt3dadd(47.3251, -109.489, -22.84, 0.98)
    }
}

proc shape3d_dend4_7() {
    dend[36] {pt3dclear()
	pt3dadd(-15.0449, -39.3293, 4.82, 1.31)
	pt3dadd(-14.0349, -40.6193, 7.68, 1.31)
	pt3dadd(-14.0349, -40.6193, 7.9, 1.31)
	pt3dadd(-14.6049, -41.4793, 9.75, 1.31)
	pt3dadd(-14.6049, -41.4793, 10.07, 1.31)
	pt3dadd(-13.6549, -41.7393, 12.03, 1.31)
	pt3dadd(-13.6549, -41.7393, 12.08, 1.31)
	pt3dadd(-14.2249, -42.5993, 13.51, 1.31)
	pt3dadd(-14.3049, -42.9193, 13.62, 1.31)
	pt3dadd(-14.7049, -43.1493, 14.79, 1.31)
	pt3dadd(-14.7049, -43.1493, 15, 1.31)
	pt3dadd(-14.8749, -43.7793, 16.22, 1.31)
	pt3dadd(-14.8749, -43.7793, 16.38, 1.31)
	pt3dadd(-14.2449, -43.9493, 17.54, 1.31)
	pt3dadd(-14.2449, -43.9493, 17.65, 1.31)
	pt3dadd(-13.6949, -44.4393, 17.65, 1.31)
	pt3dadd(-12.6049, -45.4093, 19.82, 1.31)
	pt3dadd(-12.0549, -45.8893, 20.03, 1.31)
	pt3dadd(-12.6249, -46.7593, 20.72, 1.31)
	pt3dadd(-12.6249, -46.7593, 20.93, 1.31)
	pt3dadd(-12.9649, -48.0193, 21.84, 1.31)
	pt3dadd(-13.0449, -48.3393, 21.94, 1.31)
	pt3dadd(-11.7849, -48.6793, 23.32, 1.31)
	pt3dadd(-11.8649, -48.9993, 23.58, 1.31)
	pt3dadd(-12.1249, -49.9493, 24.27, 1.31)
	pt3dadd(-12.1249, -49.9493, 24.54, 1.31)
	pt3dadd(-12.4649, -51.2093, 25.65, 1.31)
	pt3dadd(-12.4649, -51.2093, 25.81, 1.31)
	pt3dadd(-12.4849, -52.5593, 26.39, 1.31)
	pt3dadd(-12.4849, -52.5593, 26.61, 1.31)
	pt3dadd(-11.6149, -53.1293, 27.14, 1.31)
	pt3dadd(-11.6149, -53.1293, 27.56, 1.31)
	pt3dadd(-10.6949, -54.7393, 28.94, 1.31)
	pt3dadd(-10.6949, -54.7393, 29.1, 1.31)
	pt3dadd(-9.45495, -56.4293, 29.94, 1.31)
	pt3dadd(-9.53495, -56.7393, 30.21, 1.31)
	pt3dadd(-8.20495, -58.1093, 32.06, 1.31)
	pt3dadd(-8.20495, -58.1093, 32.33, 1.31)
	pt3dadd(-5.99495, -58.7093, 32.97, 1.31)
	pt3dadd(-5.99495, -58.7093, 33.28, 1.31)
	pt3dadd(-5.36495, -58.8793, 33.87, 1.31)
	pt3dadd(-5.36495, -58.8793, 34.34, 1.31)
	pt3dadd(-4.47495, -59.5193, 37.58, 1.31)
	pt3dadd(-4.17495, -59.5293, 35.77, 1.31)
	pt3dadd(-4.17495, -59.5293, 35.88, 1.31)
	pt3dadd(-1.24495, -59.9793, 36.89, 1.31)
	pt3dadd(-1.24495, -59.9793, 37.26, 1.31)
	pt3dadd(-0.214949, -59.9193, 38.48, 1.31)
	pt3dadd(-0.214949, -59.9193, 38.69, 1.31)
	pt3dadd(2.33505, -59.2493, 39.22, 1.31)
	pt3dadd(2.33505, -59.2493, 39.43, 1.31)
	pt3dadd(3.60505, -59.5793, 39.96, 1.31)
	pt3dadd(4.40505, -59.1193, 40.39, 1.31)
	pt3dadd(4.80505, -58.8893, 40.44, 1.31)
	pt3dadd(5.61505, -58.4293, 41.02, 1.31)
	pt3dadd(5.61505, -58.4293, 41.08, 1.31)
	pt3dadd(5.92505, -58.5093, 41.13, 1.31)
	pt3dadd(6.31505, -60.2193, 41.13, 1.31)
	pt3dadd(6.31505, -60.2193, 41.18, 1.31)
	pt3dadd(8.26505, -60.6193, 43.09, 1.31)
	pt3dadd(8.26505, -60.6193, 43.25, 1.31)
	pt3dadd(10.1651, -62.6493, 45.63, 1.31)
	pt3dadd(10.1651, -62.6493, 45.85, 1.31)
	pt3dadd(11.4451, -63.3493, 46, 1.31)
	pt3dadd(11.4451, -63.3493, 46.22, 1.31)
	pt3dadd(11.3951, -64.9893, 50.67, 1.31)
	pt3dadd(11.3951, -64.9893, 51.25, 1.31)
	pt3dadd(11.3351, -66.6193, 52.05, 1.31)
	pt3dadd(11.3151, -67.2793, 52.42, 1.31)
	pt3dadd(11.2651, -68.5893, 51.52, 1.31)
	pt3dadd(11.3751, -69.2693, 53.89, 0.57)
	pt3dadd(11.3251, -70.0893, 56.21, 0.57)
	pt3dadd(10.6951, -70.8693, 58.81, 0.57)
	pt3dadd(10.0051, -72.4593, 56.32, 0.57)
	pt3dadd(10.2151, -73.5693, 58.97, 0.57)
	pt3dadd(10.1751, -74.1193, 61.83, 0.57)
	pt3dadd(10.3651, -75.4993, 65.45, 0.57)
	pt3dadd(10.5751, -76.6093, 65.66, 0.57)
	pt3dadd(10.8251, -77.1793, 68.9, 0.57)
	pt3dadd(11.1151, -77.1993, 72.52, 0.57)
	pt3dadd(11.3951, -77.2193, 75.55, 0.57)
	pt3dadd(12.2551, -77.2793, 78.62, 0.57)
	pt3dadd(12.7751, -78.1393, 78.95, 0.57)
	pt3dadd(13.5151, -79.8293, 81.97, 0.57)
	pt3dadd(13.5751, -83.1293, 82.73, 0.57)
	pt3dadd(13.7851, -84.2393, 83.43, 0.57)
	pt3dadd(14.0551, -84.5293, 84.73, 0.57)
	pt3dadd(15.3051, -86.0693, 85.32, 0.57)
	pt3dadd(16.4551, -87.1593, 86.56, 0.57)
	pt3dadd(17.8851, -88.5293, 87.16, 0.57)
	pt3dadd(19.8951, -90.9893, 89.69, 0.57)
	pt3dadd(24.1951, -92.8993, 91.42, 0.57)
	pt3dadd(27.0651, -93.4493, 93.53, 0.57)
	pt3dadd(28.5051, -94.5393, 96.71, 0.57)
    }
}

proc shape3d_dend6_6() {
    dend[37] {pt3dclear()
	pt3dadd(-33.4549, -22.0793, 37.84, 0.66)
	pt3dadd(-33.2849, -21.0293, 37.9, 0.66)
	pt3dadd(-31.5249, -20.1293, 37.9, 0.66)
	pt3dadd(-30.3649, -19.6193, 38, 0.66)
	pt3dadd(-30.6049, -19.1493, 41.13, 0.66)
	pt3dadd(-30.6049, -19.1493, 41.45, 0.66)
	pt3dadd(-30.2649, -18.8393, 43.78, 0.66)
	pt3dadd(-30.2549, -18.5093, 44.41, 0.66)
	pt3dadd(-29.8949, -17.5393, 47.75, 0.66)
	pt3dadd(-29.8949, -17.5393, 48.71, 0.66)
	pt3dadd(-29.2349, -17.5593, 51.2, 0.66)
	pt3dadd(-29.2349, -17.5593, 51.73, 0.66)
	pt3dadd(-28.5649, -17.2593, 53.53, 0.66)
	pt3dadd(-28.5649, -17.2593, 54.27, 0.66)
	pt3dadd(-27.9349, -17.9393, 55.28, 0.66)
	pt3dadd(-27.9349, -17.9393, 56.07, 0.66)
	pt3dadd(-27.2749, -17.6293, 57.24, 0.66)
	pt3dadd(-26.6149, -17.6493, 57.72, 0.66)
	pt3dadd(-25.9549, -17.3493, 58.09, 0.66)
	pt3dadd(-25.9649, -17.6793, 58.09, 0.66)
	pt3dadd(-25.0049, -18.3693, 58.78, 0.66)
	pt3dadd(-25.0149, -18.6893, 59.31, 0.66)
	pt3dadd(-23.7049, -18.7393, 60.9, 0.66)
	pt3dadd(-23.6949, -18.4093, 61.53, 0.66)
	pt3dadd(-23.9649, -16.7593, 62.86, 0.66)
	pt3dadd(-23.9649, -16.7593, 63.23, 0.66)
	pt3dadd(-24.9149, -15.7493, 66.83, 0.66)
	pt3dadd(-24.9149, -15.7493, 66.99, 0.66)
	pt3dadd(-24.8649, -14.4393, 67.73, 0.66)
	pt3dadd(-24.8649, -14.4393, 68.26, 0.66)
    }
}

proc shape3d_dend6_7() {
    dend[38] {pt3dclear()
	pt3dadd(-33.4549, -22.0793, 37.84, 0.66)
	pt3dadd(-34.3249, -22.6293, 38.16, 0.66)
	pt3dadd(-34.3249, -22.6293, 38.37, 0.66)
	pt3dadd(-35.6749, -23.5693, 39.01, 0.66)
	pt3dadd(-35.6749, -23.5693, 39.22, 0.66)
	pt3dadd(-36.3749, -24.8493, 41.45, 0.66)
	pt3dadd(-36.6949, -24.8393, 41.45, 0.66)
	pt3dadd(-37.3749, -25.4693, 42.29, 0.66)
	pt3dadd(-37.3749, -25.4693, 42.51, 0.66)
	pt3dadd(-38.3749, -25.7693, 44.31, 0.66)
	pt3dadd(-38.3849, -26.0893, 45.05, 0.66)
	pt3dadd(-38.7249, -26.4093, 46.27, 0.66)
	pt3dadd(-38.7249, -26.4093, 46.96, 0.66)
	pt3dadd(-40.3949, -27.3293, 49.77, 0.66)
	pt3dadd(-40.3949, -27.3293, 50.3, 0.66)
	pt3dadd(-41.0149, -26.3293, 50.99, 0.66)
	pt3dadd(-41.0149, -26.3293, 51.36, 0.66)
	pt3dadd(-42.6449, -26.2693, 52.42, 0.66)
	pt3dadd(-42.6449, -26.2693, 52.58, 0.66)
	pt3dadd(-43.0049, -27.2393, 53.48, 0.66)
	pt3dadd(-43.3349, -27.2293, 54.27, 0.66)
	pt3dadd(-44.0049, -27.5293, 55.7, 0.66)
	pt3dadd(-44.6649, -27.8393, 56.07, 0.66)
	pt3dadd(-45.6649, -28.1293, 57.03, 0.66)
	pt3dadd(-45.6949, -29.1093, 57.82, 0.66)
	pt3dadd(-45.6949, -29.1093, 59.1, 0.66)
	pt3dadd(-46.6749, -29.0793, 59.57, 0.66)
	pt3dadd(-47.6749, -29.3693, 60.21, 0.66)
	pt3dadd(-47.9949, -29.3593, 60.58, 0.66)
	pt3dadd(-48.0249, -30.0193, 61.59, 0.66)
	pt3dadd(-48.0249, -30.0193, 61.96, 0.66)
	pt3dadd(-49.6849, -30.6093, 64.24, 0.66)
	pt3dadd(-49.6949, -30.9393, 64.55, 0.66)
	pt3dadd(-51.0349, -31.8793, 65.46, 0.66)
	pt3dadd(-51.3749, -32.1893, 65.67, 0.66)
	pt3dadd(-52.0349, -32.1693, 65.83, 0.66)
	pt3dadd(-53.0249, -32.4593, 66.14, 0.66)
	pt3dadd(-53.3549, -32.4493, 66.14, 0.66)
	pt3dadd(-54.3449, -32.7393, 66.46, 0.66)
	pt3dadd(-55.0249, -33.3793, 66.67, 0.66)
	pt3dadd(-55.3749, -34.0193, 67.73, 0.66)
	pt3dadd(-55.3849, -34.3493, 68.53, 0.66)
	pt3dadd(-56.0649, -34.9793, 71.18, 0.66)
	pt3dadd(-56.3849, -34.9693, 71.92, 0.66)
	pt3dadd(-56.7349, -35.6093, 72.5, 0.66)
	pt3dadd(-56.7549, -35.9393, 72.98, 0.66)
	pt3dadd(-57.1049, -36.5793, 74.04, 0.66)
	pt3dadd(-57.4349, -36.8993, 74.52, 0.66)
	pt3dadd(-57.8049, -37.8693, 76.27, 0.66)
	pt3dadd(-58.1349, -38.1793, 76.8, 0.66)
	pt3dadd(-59.5049, -39.7693, 77.59, 0.66)
	pt3dadd(-59.8449, -40.0893, 77.96, 0.66)
	pt3dadd(-59.8649, -40.7393, 78.33, 0.66)
	pt3dadd(-60.2049, -41.0593, 78.55, 0.66)
	pt3dadd(-60.2249, -41.7193, 78.6, 0.66)
	pt3dadd(-60.5549, -41.6993, 78.71, 0.66)
	pt3dadd(-60.8949, -42.0193, 79.02, 0.66)
	pt3dadd(-61.5449, -41.9993, 79.08, 0.66)
	pt3dadd(-62.5549, -42.6193, 79.5, 0.66)
	pt3dadd(-62.5649, -42.9393, 79.87, 0.66)
	pt3dadd(-63.2549, -43.8993, 80.82, 0.66)
	pt3dadd(-63.5949, -44.2193, 81.09, 0.66)
	pt3dadd(-63.9249, -44.2093, 81.09, 0.66)
	pt3dadd(-64.9449, -45.4793, 81.94, 0.66)
	pt3dadd(-65.285, -45.7993, 82.42, 0.66)
	pt3dadd(-65.2949, -46.1293, 82.42, 0.66)
	pt3dadd(-65.965, -46.4293, 82.94, 0.66)
	pt3dadd(-66.3049, -46.7493, 82.94, 0.66)
	pt3dadd(-66.6649, -47.7193, 83, 0.66)
	pt3dadd(-66.6749, -48.0393, 83, 0.66)
	pt3dadd(-66.715, -49.0293, 83.05, 0.66)
	pt3dadd(-67.3049, -48.3293, 83.05, 0.33)
	pt3dadd(-67.3049, -48.3293, 83.1, 0.33)
	pt3dadd(-67.9449, -49.3293, 84.11, 0.33)
	pt3dadd(-68.2649, -49.6593, 84.59, 0.33)
	pt3dadd(-68.5849, -49.9893, 84.59, 0.33)
	pt3dadd(-69.5549, -50.6593, 85.86, 0.33)
	pt3dadd(-69.8749, -50.9993, 86.5, 0.33)
	pt3dadd(-70.8449, -51.6693, 88.09, 0.33)
	pt3dadd(-71.1649, -51.9993, 88.83, 0.33)
	pt3dadd(-71.4949, -52.0093, 88.83, 0.33)
	pt3dadd(-74.1049, -52.7093, 89.94, 0.33)
	pt3dadd(-74.4249, -53.0393, 89.94, 0.33)
	pt3dadd(-74.7449, -53.3793, 89.94, 0.33)
	pt3dadd(-76.3549, -55.0393, 89.99, 0.33)
	pt3dadd(-76.3549, -55.3693, 89.99, 0.33)
	pt3dadd(-77.3249, -55.7093, 90.52, 0.33)
	pt3dadd(-77.6549, -56.0493, 91.53, 0.33)
	pt3dadd(-78.6249, -56.7193, 92.43, 0.33)
	pt3dadd(-78.6149, -57.3693, 92.8, 0.33)
	pt3dadd(-80.215, -59.0393, 93.81, 0.33)
	pt3dadd(-80.215, -59.0393, 94.02, 0.33)
	pt3dadd(-81.1849, -59.7093, 95.45, 0.33)
	pt3dadd(-81.1849, -59.7093, 96.46, 0.33)
    }
}

proc shape3d_dend5_8() {
    dend[39] {pt3dclear()
	pt3dadd(-41.9249, -21.9593, 8.85, 1.31)
	pt3dadd(-42.4249, -23.8493, 7.63, 1.31)
	pt3dadd(-42.4249, -23.8493, 7.58, 1.31)
	pt3dadd(-43.485, -25.2693, 6.73, 1.31)
	pt3dadd(-43.485, -25.2693, 6.25, 1.31)
	pt3dadd(-44.145, -26.4493, 6.04, 1.31)
	pt3dadd(-45.195, -27.8593, 6.04, 1.31)
	pt3dadd(-47.205, -29.0193, 6.04, 1.31)
	pt3dadd(-47.775, -29.8793, 6.04, 1.31)
	pt3dadd(-48.285, -31.7793, 6.04, 1.31)
	pt3dadd(-48.8549, -32.6393, 6.04, 1.31)
	pt3dadd(-48.935, -32.9593, 6.04, 1.31)
	pt3dadd(-49.9749, -33.0193, 5.99, 1.31)
	pt3dadd(-52.045, -33.1493, 5.99, 1.31)
	pt3dadd(-52.125, -33.4593, 5.99, 1.31)
	pt3dadd(-52.615, -34.0093, 5.99, 1.31)
	pt3dadd(-52.615, -34.0093, 5.94, 1.31)
	pt3dadd(-52.545, -35.0393, 5.88, 1.31)
	pt3dadd(-52.715, -35.6793, 5.83, 1.31)
	pt3dadd(-52.715, -35.6793, 5.46, 1.31)
	pt3dadd(-53.525, -36.1393, 5.09, 1.31)
	pt3dadd(-53.525, -36.1393, 5.3, 1.31)
	pt3dadd(-54.465, -35.8893, 5.72, 1.31)
	pt3dadd(-54.785, -35.7993, 6.04, 1.31)
	pt3dadd(-55.9049, -36.1793, 7.05, 1.31)
	pt3dadd(-55.985, -36.4993, 7.1, 1.31)
	pt3dadd(-56.4749, -37.0393, 7.1, 1.31)
	pt3dadd(-57.7649, -38.0493, 7.1, 1.31)
	pt3dadd(-59.055, -39.0693, 7.1, 1.31)
	pt3dadd(-59.055, -39.0693, 7.05, 1.31)
	pt3dadd(-60.1049, -40.4793, 7, 1.31)
	pt3dadd(-61.485, -41.8093, 6.2, 1.31)
	pt3dadd(-61.5649, -42.1193, 6.2, 1.31)
	pt3dadd(-62.795, -44.1693, 6.04, 1.31)
	pt3dadd(-62.795, -44.1693, 6.09, 1.31)
	pt3dadd(-63.195, -44.3993, 5.14, 1.31)
	pt3dadd(-63.505, -44.3093, 4.45, 1.31)
	pt3dadd(-64.455, -44.0593, 4.24, 1.31)
	pt3dadd(-65.095, -43.8893, 4.24, 1.31)
	pt3dadd(-65.875, -42.9993, 4.4, 1.31)
	pt3dadd(-66.3549, -43.5493, 4.4, 1.31)
	pt3dadd(-66.4449, -43.8693, 4.4, 1.31)
	pt3dadd(-68.4449, -45.0293, 4.4, 1.31)
	pt3dadd(-69.735, -46.0393, 4.4, 1.31)
	pt3dadd(-70.535, -46.4993, 4.4, 1.31)
	pt3dadd(-71.425, -47.2793, 4.45, 1.31)
	pt3dadd(-71.425, -47.2793, 4.51, 1.31)
	pt3dadd(-72.375, -47.0193, 4.29, 1.31)
	pt3dadd(-72.375, -47.0193, 4.19, 1.31)
	pt3dadd(-73.175, -47.4893, 3.55, 1.31)
	pt3dadd(-73.265, -47.7993, 3.5, 1.31)
	pt3dadd(-73.8349, -48.6693, 3.5, 1.31)
	pt3dadd(-74.785, -48.4093, 3.82, 1.31)
	pt3dadd(-75.095, -48.3293, 4.03, 1.31)
	pt3dadd(-76.3649, -47.9893, 4.4, 1.31)
	pt3dadd(-76.3649, -47.9893, 4.56, 1.31)
	pt3dadd(-77.655, -48.9993, 5.57, 1.31)
	pt3dadd(-77.655, -48.9993, 5.62, 1.31)
	pt3dadd(-78.765, -49.3793, 6.04, 1.31)
	pt3dadd(-80.035, -49.0393, 6.04, 1.31)
	pt3dadd(-81.6149, -48.6193, 6.04, 1.31)
	pt3dadd(-81.935, -48.5293, 6.04, 1.31)
	pt3dadd(-82.8849, -48.2793, 6.04, 1.31)
	pt3dadd(-85.265, -48.3193, 6.31, 1.31)
	pt3dadd(-86.765, -47.5793, 6.31, 1.31)
	pt3dadd(-87.075, -47.4893, 6.31, 1.31)
	pt3dadd(-89.3549, -45.8693, 6.31, 1.31)
	pt3dadd(-90.4749, -46.2393, 4.03, 1.31)
	pt3dadd(-90.4749, -46.2393, 4.19, 1.31)
	pt3dadd(-92.285, -45.4193, 4.35, 1.31)
	pt3dadd(-92.6049, -45.3293, 4.4, 1.31)
	pt3dadd(-93.785, -44.6793, 5.09, 1.31)
	pt3dadd(-93.785, -44.6793, 5.14, 1.31)
	pt3dadd(-94.735, -44.4193, 5.14, 1.31)
	pt3dadd(-96.8849, -44.8593, 5.14, 1.31)
	pt3dadd(-97.285, -45.0993, 5.14, 1.31)
	pt3dadd(-98.325, -45.1593, 5.14, 1.31)
	pt3dadd(-99.125, -45.6193, 5.19, 1.31)
	pt3dadd(-99.125, -45.6193, 5.14, 1.31)
	pt3dadd(-100.185, -47.0293, 5.19, 1.31)
	pt3dadd(-100.495, -46.9493, 5.19, 1.31)
	pt3dadd(-101.105, -45.4293, 5.19, 0.98)
	pt3dadd(-101.735, -45.2593, 5.19, 0.98)
	pt3dadd(-103.085, -45.2393, 5.19, 0.98)
	pt3dadd(-103.575, -45.7893, 5.19, 0.98)
	pt3dadd(-103.975, -46.0193, 5.19, 0.98)
	pt3dadd(-105.645, -45.9093, 5.14, 0.98)
	pt3dadd(-105.955, -45.8193, 5.14, 0.98)
	pt3dadd(-106.825, -45.2493, 6.68, 0.98)
	pt3dadd(-106.825, -45.2493, 6.89, 0.98)
	pt3dadd(-108.635, -44.4293, 3.71, 0.98)
	pt3dadd(-108.635, -44.4293, 2.81, 0.98)
	pt3dadd(-110.215, -43.9993, 6.04, 0.98)
    }
}

proc shape3d_dend5_9() {
    dend[40] {pt3dclear()
	pt3dadd(-41.9249, -21.9593, 8.85, 1.31)
	pt3dadd(-43.525, -22.8793, 10.55, 1.31)
	pt3dadd(-43.525, -22.8793, 11.13, 1.31)
	pt3dadd(-43.985, -22.0793, 12.83, 1.31)
	pt3dadd(-43.985, -22.0793, 13.46, 1.31)
	pt3dadd(-44.625, -21.9093, 13.83, 1.31)
	pt3dadd(-45.575, -21.6593, 14.47, 1.31)
	pt3dadd(-45.575, -21.6593, 14.52, 1.31)
	pt3dadd(-45.3349, -22.0593, 17.86, 1.31)
	pt3dadd(-45.3349, -22.0593, 18.39, 1.31)
	pt3dadd(-46.6049, -21.7193, 19.77, 1.31)
	pt3dadd(-46.6049, -21.7193, 20.72, 1.31)
	pt3dadd(-48.6749, -21.8393, 21.2, 1.31)
	pt3dadd(-49.555, -22.6193, 22.9, 1.31)
	pt3dadd(-49.555, -22.6193, 23.32, 1.31)
	pt3dadd(-51.145, -22.1993, 23.96, 1.31)
	pt3dadd(-51.455, -22.1093, 24.01, 1.31)
	pt3dadd(-52.345, -22.8893, 24.49, 1.31)
	pt3dadd(-52.4249, -23.2093, 24.49, 1.31)
	pt3dadd(-53.4049, -24.2993, 25.23, 1.31)
	pt3dadd(-53.4049, -24.2993, 25.7, 1.31)
	pt3dadd(-55.0649, -24.1993, 27.14, 1.31)
	pt3dadd(-55.385, -24.1093, 27.4, 1.31)
	pt3dadd(-56.415, -24.1693, 27.82, 1.31)
	pt3dadd(-57.625, -24.8693, 27.82, 1.31)
	pt3dadd(-59.455, -25.3893, 27.88, 1.31)
	pt3dadd(-60.025, -26.2593, 27.88, 1.31)
	pt3dadd(-61.145, -26.6393, 29.1, 1.31)
	pt3dadd(-61.145, -26.6393, 29.47, 1.31)
	pt3dadd(-62.185, -26.6993, 29.79, 1.31)
	pt3dadd(-63.385, -27.3893, 29.84, 1.31)
	pt3dadd(-63.465, -27.7093, 29.84, 1.31)
	pt3dadd(-64.185, -27.8593, 31.11, 1.31)
	pt3dadd(-64.2749, -28.1693, 31.43, 1.31)
	pt3dadd(-65.705, -28.4693, 31.69, 1.31)
	pt3dadd(-67.545, -28.9893, 31.75, 1.31)
	pt3dadd(-68.9749, -29.2893, 31.75, 1.31)
	pt3dadd(-70.2449, -28.9493, 31.75, 1.31)
	pt3dadd(-71.765, -29.5593, 31.75, 1.31)
	pt3dadd(-73.1349, -30.8793, 31.85, 1.31)
	pt3dadd(-73.765, -30.7093, 31.96, 1.31)
	pt3dadd(-75.6049, -31.2393, 32.33, 1.31)
	pt3dadd(-75.6049, -31.2393, 32.6, 1.31)
	pt3dadd(-77.295, -32.4793, 33.65, 1.31)
	pt3dadd(-77.295, -32.4793, 33.76, 1.31)
	pt3dadd(-79.045, -32.6893, 34.5, 1.31)
	pt3dadd(-79.675, -32.5193, 34.61, 1.31)
	pt3dadd(-80.625, -32.2693, 35.14, 1.31)
	pt3dadd(-80.9449, -32.1793, 35.4, 1.31)
	pt3dadd(-82.205, -31.8393, 35.83, 1.31)
	pt3dadd(-82.205, -31.8393, 35.88, 1.31)
	pt3dadd(-82.405, -31.7993, 35.88, 1.31)
    }
}

proc shape3d_dend5_10() {
    dend[41] {pt3dclear()
	pt3dadd(-82.405, -31.7993, 35.88, 1.31)
	pt3dadd(-83.815, -32.7693, 35.99, 1.31)
	pt3dadd(-84.295, -33.3193, 35.99, 1.31)
	pt3dadd(-86.285, -33.1293, 37.31, 1.31)
	pt3dadd(-86.685, -33.3593, 37.36, 1.31)
	pt3dadd(-89.555, -33.9393, 37.21, 1.31)
	pt3dadd(-90.905, -33.9193, 37.21, 1.31)
	pt3dadd(-92.165, -33.5793, 37.26, 1.31)
	pt3dadd(-92.485, -33.4993, 37.26, 1.31)
	pt3dadd(-93.755, -33.1593, 37.26, 1.31)
	pt3dadd(-94.865, -33.5393, 37.26, 1.31)
	pt3dadd(-95.905, -33.5993, 37.36, 1.31)
	pt3dadd(-95.905, -33.5993, 37.63, 1.31)
	pt3dadd(-97.335, -33.8893, 38.69, 1.31)
	pt3dadd(-97.335, -33.8893, 38.9, 1.31)
	pt3dadd(-98.915, -33.4693, 39.49, 1.31)
	pt3dadd(-98.915, -33.4693, 39.59, 1.31)
	pt3dadd(-101.555, -34.4593, 40.6, 1.31)
	pt3dadd(-104.115, -35.1293, 42.72, 1.31)
	pt3dadd(-103.875, -35.5293, 43.04, 1.31)
	pt3dadd(-104.535, -36.7093, 43.62, 1.31)
	pt3dadd(-104.855, -36.6293, 43.62, 1.31)
	pt3dadd(-105.565, -36.7693, 43.78, 1.31)
	pt3dadd(-105.485, -36.4593, 44.52, 1.31)
	pt3dadd(-104.645, -37.6693, 44.57, 0.98)
	pt3dadd(-104.635, -37.3393, 45.74, 0.98)
	pt3dadd(-104.635, -37.3393, 46.06, 0.98)
	pt3dadd(-105.935, -36.9693, 49.02, 0.98)
	pt3dadd(-106.595, -36.9393, 49.29, 0.98)
	pt3dadd(-107.235, -36.5893, 49.29, 0.98)
	pt3dadd(-108.875, -36.5393, 49.4, 0.98)
	pt3dadd(-110.165, -36.1593, 51.78, 0.98)
	pt3dadd(-110.165, -36.1593, 51.83, 0.98)
	pt3dadd(-111.185, -37.1093, 52.68, 1.31)
	pt3dadd(-111.185, -37.1093, 53.11, 1.31)
	pt3dadd(-113.455, -36.3793, 55.54, 1.31)
	pt3dadd(-113.785, -36.3593, 55.97, 1.31)
	pt3dadd(-115.415, -36.3093, 57.45, 1.31)
	pt3dadd(-115.755, -36.6193, 57.77, 1.31)
	pt3dadd(-116.415, -36.5993, 57.77, 1.31)
	pt3dadd(-117.745, -37.2093, 57.93, 1.31)
	pt3dadd(-118.085, -37.5193, 57.93, 1.31)
	pt3dadd(-118.405, -37.5093, 57.93, 1.31)
	pt3dadd(-119.745, -38.1193, 58.78, 1.31)
	pt3dadd(-120.395, -38.0993, 59.25, 1.31)
	pt3dadd(-123.025, -38.3393, 60.31, 1.31)
	pt3dadd(-123.685, -38.3093, 60.53, 1.31)
	pt3dadd(-127.935, -38.1593, 61.22, 1.31)
	pt3dadd(-128.585, -38.1393, 61.37, 1.31)
	pt3dadd(-130.615, -39.7093, 62.06, 1.31)
	pt3dadd(-130.615, -39.7093, 62.54, 1.31)
	pt3dadd(-133.605, -40.9193, 63.02, 1.31)
	pt3dadd(-134.585, -40.8793, 63.02, 1.31)
	pt3dadd(-137.205, -40.7893, 64.82, 1.31)
	pt3dadd(-137.855, -40.7693, 64.98, 1.31)
	pt3dadd(-141.135, -40.6493, 65.88, 1.31)
	pt3dadd(-141.135, -40.6493, 66.2, 1.31)
	pt3dadd(-143.745, -40.5593, 66.73, 1.31)
	pt3dadd(-143.745, -40.5593, 66.83, 1.31)
	pt3dadd(-146.965, -38.8093, 68.05, 1.31)
	pt3dadd(-147.945, -38.7793, 68.48, 1.31)
	pt3dadd(-148.945, -39.0693, 68.95, 1.31)
	pt3dadd(-149.615, -39.6993, 69.17, 1.31)
	pt3dadd(-151.595, -39.9593, 69.75, 1.31)
	pt3dadd(-152.245, -39.9393, 69.91, 1.31)
	pt3dadd(-152.585, -40.2493, 70.01, 1.31)
	pt3dadd(-153.895, -40.2093, 70.44, 1.31)
	pt3dadd(-154.875, -40.1693, 70.81, 1.31)
	pt3dadd(-156.195, -40.4493, 71.5, 1.31)
	pt3dadd(-156.855, -40.4293, 71.92, 1.31)
	pt3dadd(-157.845, -40.7193, 72.77, 1.31)
	pt3dadd(-157.845, -40.7193, 73.09, 1.31)
	pt3dadd(-159.475, -40.3393, 73.62, 1.31)
	pt3dadd(-159.475, -40.3393, 73.78, 1.31)
    }
}

proc shape3d_dend5_11() {
    dend[42] {pt3dclear()
	pt3dadd(-82.405, -31.7993, 35.88, 1.29)
	pt3dadd(-83.795, -33.1393, 36.4, 1.29)
	pt3dadd(-83.795, -33.1393, 36.83, 1.29)
	pt3dadd(-84.995, -33.8293, 39.74, 1.29)
	pt3dadd(-85.085, -34.1593, 41.47, 1.29)
	pt3dadd(-85.085, -34.1593, 41.53, 1.29)
	pt3dadd(-85.175, -34.4793, 43.79, 1.29)
	pt3dadd(-85.175, -34.4793, 43.9, 1.29)
	pt3dadd(-84.935, -35.3793, 43.9, 1.31)
	pt3dadd(-84.915, -35.0493, 43.9, 1.31)
	pt3dadd(-85.915, -35.3393, 46.87, 1.31)
	pt3dadd(-85.915, -35.3393, 47.14, 1.31)
	pt3dadd(-87.255, -36.2793, 47.72, 1.31)
	pt3dadd(-87.265, -36.6093, 47.88, 1.31)
	pt3dadd(-89.265, -37.5193, 48.35, 1.31)
	pt3dadd(-89.265, -37.5193, 48.62, 1.31)
	pt3dadd(-89.305, -38.4993, 49.26, 1.31)
	pt3dadd(-89.305, -38.4993, 49.41, 1.31)
	pt3dadd(-90.635, -39.1093, 50.32, 1.31)
	pt3dadd(-90.965, -39.0993, 51, 1.31)
	pt3dadd(-91.635, -39.7293, 52.38, 1.31)
	pt3dadd(-91.975, -40.0493, 52.7, 1.31)
	pt3dadd(-93.325, -40.9793, 53.28, 1.31)
	pt3dadd(-93.325, -40.9793, 53.55, 1.31)
	pt3dadd(-94.345, -42.2593, 55.03, 1.31)
	pt3dadd(-94.685, -42.5693, 55.24, 1.31)
	pt3dadd(-96.695, -43.8093, 55.88, 1.31)
	pt3dadd(-96.695, -43.8093, 56.36, 1.31)
	pt3dadd(-97.055, -44.7893, 57.05, 1.31)
	pt3dadd(-97.065, -45.1093, 57.26, 1.31)
	pt3dadd(-99.075, -46.3493, 57.74, 1.31)
	pt3dadd(-99.095, -46.6793, 57.95, 1.31)
	pt3dadd(-98.505, -48.6693, 58.69, 1.31)
	pt3dadd(-98.515, -48.9893, 59.17, 1.31)
	pt3dadd(-98.265, -51.2993, 60.01, 1.31)
	pt3dadd(-98.295, -51.9493, 60.39, 1.31)
	pt3dadd(-99.705, -54.8493, 61.82, 1.31)
	pt3dadd(-99.715, -55.1793, 62.51, 1.31)
	pt3dadd(-99.785, -57.1393, 62.45, 1.31)
	pt3dadd(-99.785, -57.1393, 62.08, 1.31)
    }
}

proc shape3d_dend1() {
    shape3d_dend1_1()
    shape3d_dend1_2()
    shape3d_dend1_3()
}

proc shape3d_dend2() {
    shape3d_dend2_1()
    shape3d_dend2_2()
    shape3d_dend2_3()
}

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

proc shape3d_dend4() {
    shape3d_dend4_1()
    shape3d_dend4_2()
    shape3d_dend4_3()
    shape3d_dend4_4()
    shape3d_dend4_5()
    shape3d_dend4_6()
    shape3d_dend4_7()
}

proc shape3d_dend5() {
    shape3d_dend5_1()
    shape3d_dend5_2()
    shape3d_dend5_3()
    shape3d_dend5_4()
    shape3d_dend5_5()
    shape3d_dend5_6()
    shape3d_dend5_7()
    shape3d_dend5_8()
    shape3d_dend5_9()
    shape3d_dend5_10()
    shape3d_dend5_11()
}

proc shape3d_dend6() {
    shape3d_dend6_1()
    shape3d_dend6_2()
    shape3d_dend6_3()
    shape3d_dend6_4()
    shape3d_dend6_5()
    shape3d_dend6_6()
    shape3d_dend6_7()
}

proc shape3d_dend8() {
    shape3d_dend8_1()
    shape3d_dend8_2()
    shape3d_dend8_3()
}

proc shape3d_dend9() {
    shape3d_dend9_1()
    shape3d_dend9_2()
    shape3d_dend9_3()
    shape3d_dend9_4()
    shape3d_dend9_5()
}

proc basic_shape() {
    shape3d_soma()
    shape3d_dend1()
    shape3d_dend2()
    shape3d_dend3()
    shape3d_dend4()
    shape3d_dend5()
    shape3d_dend6()
    shape3d_dend7()
    shape3d_dend8()
    shape3d_dend9()
}

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

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

objref dend1
proc subset_dend1() {
    objref dend1
    dend1 = new SectionList()
    dend[8] dend1.append()
    dend[23] dend1.append()
    dend[24] dend1.append()
}

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

objref dend3
proc subset_dend3() {
    objref dend3
    dend3 = new SectionList()
    dend[6] dend3.append()
    dend[19] dend3.append()
    dend[20] dend3.append()
}

objref dend4
proc subset_dend4() {
    objref dend4
    dend4 = new SectionList()
    dend[5] dend4.append()
    dend[17] dend4.append()
    dend[18] dend4.append()
    dend[33] dend4.append()
    dend[34] dend4.append()
    dend[35] dend4.append()
    dend[36] dend4.append()
}

objref dend5
proc subset_dend5() {
    objref dend5
    dend5 = new SectionList()
    dend[4] dend5.append()
    dend[15] dend5.append()
    dend[16] dend5.append()
    dend[29] dend5.append()
    dend[30] dend5.append()
    dend[31] dend5.append()
    dend[32] dend5.append()
    dend[39] dend5.append()
    dend[40] dend5.append()
    dend[41] dend5.append()
    dend[42] dend5.append()
}

objref dend6
proc subset_dend6() {
    objref dend6
    dend6 = new SectionList()
    dend[3] dend6.append()
    dend[13] dend6.append()
    dend[14] dend6.append()
    dend[27] dend6.append()
    dend[28] dend6.append()
    dend[37] dend6.append()
    dend[38] dend6.append()
}

objref dend7
proc subset_dend7() {
    objref dend7
    dend7 = new SectionList()
    dend[2] dend7.append()
}

objref dend8
proc subset_dend8() {
    objref dend8
    dend8 = new SectionList()
    dend[1] dend8.append()
    dend[11] dend8.append()
    dend[12] dend8.append()
}

objref dend9
proc subset_dend9() {
    objref dend9
    dend9 = new SectionList()
    dend[0] dend9.append()
    dend[9] dend9.append()
    dend[10] dend9.append()
    dend[25] dend9.append()
    dend[26] dend9.append()
}

proc subsets() {
    subset_all()
    subset_dendall()
    subset_dend1()
    subset_dend2()
    subset_dend3()
    subset_dend4()
    subset_dend5()
    subset_dend6()
    subset_dend7()
    subset_dend8()
    subset_dend9()
}

proc geomL() {
    soma.L=shortR
}

proc geom() {
    //soma
    soma.diam(0:0.112409572)=4.048255856:6.742204799
    soma.diam(0.112409572:0.221480245)=6.742204799:10.55727613
    soma.diam(0.221480245:0.330550918)=10.55727613:12.11014246
    soma.diam(0.330550918:0.439621592)=12.11014246:12.67366226
    soma.diam(0.439621592:0.554813578)=12.67366226:10.52327766
    soma.diam(0.554813578:0.666666667)=10.52327766:10.18183861
    soma.diam(0.666666667:0.772954925)=10.18183861:8.264235462
    soma.diam(0.772954925:0.888146912)=8.264235462:6.345595526
    soma.diam(0.888146912:1)=6.345595526:4.984179916
    //dend1
    dend[8].diam(0:1)=0.609521393:0.665087395
    dend[23].diam(0:1)=0.444784683:0.325403893
    dend[24].diam(0:1)=0.543912702:0.325403893
    //dend2
    dend[7].diam(0:1)=0.501001748:0.466346565
    dend[21].diam(0:1)=0.404184902:0.325403893
    dend[22].diam(0:1)=0.400001721:0.325403893
    //dend3
    dend[6].diam(0:1)=0.708274606:0.935960422
    dend[19].diam(0:1)=0.541908721:0.325403893
    dend[20].diam(0:1)=0.648925944:0.325403893
    //dend4
    dend[5].diam(0:1)=0.792652568:0.856599589
    dend[17].diam(0:0.782279128)=0.489469501:0.574104417
    dend[17].diam(0.782279128:1)=0.574104417:0.42833398
    dend[18].diam(0:1)=0.65108358:0.637988218
    dend[33].diam(0:0.494698174)=0.416329099:0.392194148
    dend[33].diam(0.494698174:1)=0.392194148:0.325403893
    dend[34].diam(0:1)=0.368795329:0.325403893
    dend[35].diam(0:0.222744948)=0.499269159:0.523020481
    dend[35].diam(0.222744948:1)=0.523020481:0.325403893
    dend[36].diam(0:1)=0.513465642:0.325403893
    //dend5
    dend[4].diam(0:1)=0.914944795:0.823786347
    dend[15].diam(0:1)=0.539088978:0.566012069
    dend[16].diam(0:1)=0.581792999:0.746903224
    dend[29].diam(0:0.511423908)=0.472082268:0.427609554
    dend[29].diam(0.511423908:1)=0.427609554:0.325403893
    dend[30].diam(0:1)=0.450994111:0.325403893
    dend[31].diam(0:1)=0.666270677:0.660150187
    dend[32].diam(0:0.727868553)=0.468866191:0.409749264
    dend[32].diam(0.727868553:1)=0.409749264:0.325403893
    dend[39].diam(0:1)=0.461152856:0.325403893
    dend[40].diam(0:0.341234291)=0.573606142:0.544096431
    dend[40].diam(0.341234291:1)=0.544096431:0.458634428
    dend[41].diam(0:0.101274898)=0.427552977:0.382716872
    dend[41].diam(0.101274898:1)=0.382716872:0.325403893
    dend[42].diam(0:0.203481936)=0.251881174:0.262992483
    dend[42].diam(0.203481936:1)=0.262992483:0.325403893
    //dend6
    dend[3].diam(0:1)=0.794630012:0.788098274
    dend[13].diam(0:1)=0.660089209:0.640492109
    dend[14].diam(0:1)=0.539693263:0.325403893
    dend[27].diam(0:1)=0.349622417:0.502124987
    dend[28].diam(0:0.243130141)=0.524713299:0.468604878
    dend[28].diam(0.243130141:1)=0.468604878:0.325403893
    dend[37].diam(0:1)=0.384984458:0.325403893
    dend[38].diam(0:1)=0.458043844:0.325403893
    //dend7
    dend[2].diam(0:1)=0.469603205:0.325403893
    //dend8
    dend[1].diam(0:1)=0.564999802:0.55264647
    dend[11].diam(0:1)=0.402147563:0.325403893
    dend[12].diam(0:1)=0.499582978:0.325403893
    //dend9
    dend[0].diam(0:1)=0.664263652:0.65728025
    dend[9].diam(0:1)=0.604679738:0.592943072
    dend[10].diam(0:1)=0.415051124:0.325403893
    dend[25].diam(0:1)=0.404993249:0.325403893
    dend[26].diam(0:1)=0.54170993:0.325403893
}

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 = -72
    forsec all {
	Ra = Ra_default
	insert pas
	e_pas=e_pas_default
    }
    //soma
    soma.g_pas(0:0.112409572)=g_pas_default*1.091470157:g_pas_default*1.091470157
    soma.cm(0:0.112409572)=cm_default*1.091470157:cm_default*1.091470157
    soma.g_pas(0.112409572:0.221480245)=g_pas_default*1.065358116:g_pas_default*1.065358116
    soma.cm(0.112409572:0.221480245)=cm_default*1.065358116:cm_default*1.065358116
    soma.g_pas(0.221480245:0.330550918)=g_pas_default*1.041962209:g_pas_default*1.041962209
    soma.cm(0.221480245:0.330550918)=cm_default*1.041962209:cm_default*1.041962209
    soma.g_pas(0.330550918:0.439621592)=g_pas_default*1.030045756:g_pas_default*1.030045756
    soma.cm(0.330550918:0.439621592)=cm_default*1.030045756:cm_default*1.030045756
    soma.g_pas(0.439621592:0.554813578)=g_pas_default*1.04562125:g_pas_default*1.04562125
    soma.cm(0.439621592:0.554813578)=cm_default*1.04562125:cm_default*1.04562125
    soma.g_pas(0.554813578:0.666666667)=g_pas_default*1.063845468:g_pas_default*1.063845468
    soma.cm(0.554813578:0.666666667)=cm_default*1.063845468:cm_default*1.063845468
    soma.g_pas(0.666666667:0.772954925)=g_pas_default*1.056081904:g_pas_default*1.056081904
    soma.cm(0.666666667:0.772954925)=cm_default*1.056081904:cm_default*1.056081904
    soma.g_pas(0.772954925:0.888146912)=g_pas_default*1.052330278:g_pas_default*1.052330278
    soma.cm(0.772954925:0.888146912)=cm_default*1.052330278:cm_default*1.052330278
    soma.g_pas(0.888146912:1)=g_pas_default*1.050752489:g_pas_default*1.050752489
    soma.cm(0.888146912:1)=cm_default*1.050752489:cm_default*1.050752489
    //dend1
    dend[8].g_pas(0:1)=g_pas_default*1.263551358:g_pas_default*1.091750376
    dend[23].g_pas(0:1)=g_pas_default*1.193223695:g_pas_default*1.565510287
    dend[24].g_pas(0:1)=g_pas_default*1.359781756:g_pas_default*1.565510287
    dend[8].cm(0:1)=cm_default*1.263551358:cm_default*1.091750376
    dend[23].cm(0:1)=cm_default*1.193223695:cm_default*1.565510287
    dend[24].cm(0:1)=cm_default*1.359781756:cm_default*1.565510287
    //dend2
    dend[7].g_pas(0:1)=g_pas_default*1.301126494:g_pas_default*1.327253652
    dend[21].g_pas(0:1)=g_pas_default*1.399960072:g_pas_default*1.565510287
    dend[22].g_pas(0:1)=g_pas_default*1.406345445:g_pas_default*1.565510287
    dend[7].cm(0:1)=cm_default*1.301126494:cm_default*1.327253652
    dend[21].cm(0:1)=cm_default*1.399960072:cm_default*1.565510287
    dend[22].cm(0:1)=cm_default*1.406345445:cm_default*1.565510287
    //dend3
    dend[6].g_pas(0:1)=g_pas_default*1.267731986:g_pas_default*1.409669092
    dend[19].g_pas(0:1)=g_pas_default*1.285477812:g_pas_default*1.565510287
    dend[20].g_pas(0:1)=g_pas_default*1.231661383:g_pas_default*1.565510287
    dend[6].cm(0:1)=cm_default*1.267731986:cm_default*1.409669092
    dend[19].cm(0:1)=cm_default*1.285477812:cm_default*1.565510287
    dend[20].cm(0:1)=cm_default*1.231661383:cm_default*1.565510287
    //dend4
    dend[5].g_pas(0:1)=g_pas_default*1.289614224:g_pas_default*1.416442513
    dend[17].g_pas(0:0.782279128)=g_pas_default*1.576197092:g_pas_default*1.169470728
    dend[17].g_pas(0.782279128:1)=g_pas_default*1.169470728:g_pas_default*1.746233012
    dend[18].g_pas(0:1)=g_pas_default*1.121729644:g_pas_default*1.261810823
    dend[33].g_pas(0:0.494698174)=g_pas_default*1.406138665:g_pas_default*1.24020966
    dend[33].g_pas(0.494698174:1)=g_pas_default*1.24020966:g_pas_default*1.565510287
    dend[34].g_pas(0:1)=g_pas_default*1.446999141:g_pas_default*1.565510287
    dend[35].g_pas(0:0.222744948)=g_pas_default*1.302234443:g_pas_default*1.333958324
    dend[35].g_pas(0.222744948:1)=g_pas_default*1.333958324:g_pas_default*1.565510287
    dend[36].g_pas(0:1)=g_pas_default*1.293714767:g_pas_default*1.565510287
    dend[5].cm(0:1)=cm_default*1.289614224:cm_default*1.416442513
    dend[17].cm(0:0.782279128)=cm_default*1.576197092:cm_default*1.169470728
    dend[17].cm(0.782279128:1)=cm_default*1.169470728:cm_default*1.746233012
    dend[18].cm(0:1)=cm_default*1.121729644:cm_default*1.261810823
    dend[33].cm(0:0.494698174)=cm_default*1.406138665:cm_default*1.24020966
    dend[33].cm(0.494698174:1)=cm_default*1.24020966:cm_default*1.565510287
    dend[34].cm(0:1)=cm_default*1.446999141:cm_default*1.565510287
    dend[35].cm(0:0.222744948)=cm_default*1.302234443:cm_default*1.333958324
    dend[35].cm(0.222744948:1)=cm_default*1.333958324:cm_default*1.565510287
    dend[36].cm(0:1)=cm_default*1.293714767:cm_default*1.565510287
    //dend5
    dend[4].g_pas(0:1)=g_pas_default*1.341280323:g_pas_default*1.110397504
    dend[15].g_pas(0:1)=g_pas_default*1.375350017:g_pas_default*1.271980867
    dend[16].g_pas(0:1)=g_pas_default*1.424730177:g_pas_default*1.276040863
    dend[29].g_pas(0:0.511423908)=g_pas_default*1.322319606:g_pas_default*1.479155075
    dend[29].g_pas(0.511423908:1)=g_pas_default*1.479155075:g_pas_default*1.565510287
    dend[30].g_pas(0:1)=g_pas_default*1.341782544:g_pas_default*1.565510287
    dend[31].g_pas(0:1)=g_pas_default*1.262593445:g_pas_default*1.262228078
    dend[32].g_pas(0:0.727868553)=g_pas_default*1.325054353:g_pas_default*1.231564331
    dend[32].g_pas(0.727868553:1)=g_pas_default*1.231564331:g_pas_default*1.565510287
    dend[39].g_pas(0:1)=g_pas_default*1.33194817:g_pas_default*1.565510287
    dend[40].g_pas(0:0.341234291)=g_pas_default*1.269950733:g_pas_default*1.360241078
    dend[40].g_pas(0.341234291:1)=g_pas_default*1.360241078:g_pas_default*1.54642851
    dend[41].g_pas(0:0.101274898)=g_pas_default*1.531681172:g_pas_default*1.384017241
    dend[41].g_pas(0.101274898:1)=g_pas_default*1.384017241:g_pas_default*1.565510287
    dend[42].g_pas(0:0.203481936)=g_pas_default*1.352873896:g_pas_default*1.106237144
    dend[42].g_pas(0.203481936:1)=g_pas_default*1.106237144:g_pas_default*1.565510287
    dend[4].cm(0:1)=cm_default*1.341280323:cm_default*1.110397504
    dend[15].cm(0:1)=cm_default*1.375350017:cm_default*1.271980867
    dend[16].cm(0:1)=cm_default*1.424730177:cm_default*1.276040863
    dend[29].cm(0:0.511423908)=cm_default*1.322319606:cm_default*1.479155075
    dend[29].cm(0.511423908:1)=cm_default*1.479155075:cm_default*1.565510287
    dend[30].cm(0:1)=cm_default*1.341782544:cm_default*1.565510287
    dend[31].cm(0:1)=cm_default*1.262593445:cm_default*1.262228078
    dend[32].cm(0:0.727868553)=cm_default*1.325054353:cm_default*1.231564331
    dend[32].cm(0.727868553:1)=cm_default*1.231564331:cm_default*1.565510287
    dend[39].cm(0:1)=cm_default*1.33194817:cm_default*1.565510287
    dend[40].cm(0:0.341234291)=cm_default*1.269950733:cm_default*1.360241078
    dend[40].cm(0.341234291:1)=cm_default*1.360241078:cm_default*1.54642851
    dend[41].cm(0:0.101274898)=cm_default*1.531681172:cm_default*1.384017241
    dend[41].cm(0.101274898:1)=cm_default*1.384017241:cm_default*1.565510287
    dend[42].cm(0:0.203481936)=cm_default*1.352873896:cm_default*1.106237144
    dend[42].cm(0.203481936:1)=cm_default*1.106237144:cm_default*1.565510287
    //dend6
    dend[3].g_pas(0:1)=g_pas_default*1.290282256:g_pas_default*1.288099964
    dend[13].g_pas(0:1)=g_pas_default*1.262224964:g_pas_default*1.347523483
    dend[14].g_pas(0:1)=g_pas_default*1.281082178:g_pas_default*1.565510287
    dend[27].g_pas(0:1)=g_pas_default*1.390932297:g_pas_default*1.300418567
    dend[28].g_pas(0:0.243130141)=g_pas_default*1.418636082:g_pas_default*1.398748852
    dend[28].g_pas(0.243130141:1)=g_pas_default*1.398748852:g_pas_default*1.565510287
    dend[37].g_pas(0:1)=g_pas_default*1.431146804:g_pas_default*1.565510287
    dend[38].g_pas(0:1)=g_pas_default*1.334864618:g_pas_default*1.565510287
    dend[3].cm(0:1)=cm_default*1.290282256:cm_default*1.288099964
    dend[13].cm(0:1)=cm_default*1.262224964:cm_default*1.347523483
    dend[14].cm(0:1)=cm_default*1.281082178:cm_default*1.565510287
    dend[27].cm(0:1)=cm_default*1.390932297:cm_default*1.300418567
    dend[28].cm(0:0.243130141)=cm_default*1.418636082:cm_default*1.398748852
    dend[28].cm(0.243130141:1)=cm_default*1.398748852:cm_default*1.565510287
    dend[37].cm(0:1)=cm_default*1.431146804:cm_default*1.565510287
    dend[38].cm(0:1)=cm_default*1.334864618:cm_default*1.565510287
    //dend7
    dend[2].g_pas(0:1)=g_pas_default*1.324420516:g_pas_default*1.565510287
    dend[2].cm(0:1)=cm_default*1.324420516:cm_default*1.565510287
    //dend8
    dend[1].g_pas(0:1)=g_pas_default*1.272270735:g_pas_default*1.276186993
    dend[11].g_pas(0:1)=g_pas_default*1.403042682:g_pas_default*1.565510287
    dend[12].g_pas(0:1)=g_pas_default*1.302032319:g_pas_default*1.565510287
    dend[1].cm(0:1)=cm_default*1.272270735:cm_default*1.276186993
    dend[11].cm(0:1)=cm_default*1.403042682:cm_default*1.565510287
    dend[12].cm(0:1)=cm_default*1.302032319:cm_default*1.565510287
    //dend9
    dend[0].g_pas(0:1)=g_pas_default*1.262462177:g_pas_default*1.262092944
    dend[9].g_pas(0:1)=g_pas_default*1.264125487:g_pas_default*1.265878253
    dend[10].g_pas(0:1)=g_pas_default*1.384361606:g_pas_default*1.565510287
    dend[25].g_pas(0:1)=g_pas_default*1.398751167:g_pas_default*1.565510287
    dend[26].g_pas(0:1)=g_pas_default*1.280264702:g_pas_default*1.565510287
    dend[0].cm(0:1)=cm_default*1.262462177:cm_default*1.262092944
    dend[9].cm(0:1)=cm_default*1.264125487:cm_default*1.265878253
    dend[10].cm(0:1)=cm_default*1.384361606:cm_default*1.565510287
    dend[25].cm(0:1)=cm_default*1.398751167:cm_default*1.565510287
    dend[26].cm(0:1)=cm_default*1.280264702:cm_default*1.565510287
}

proc setall() {
    forsec all {
	Ra = $1
	e_pas = $4
    }
    //soma
    soma.g_pas(0:0.112409572)=$3*1.091470157:$3*1.091470157
    soma.cm(0:0.112409572)=$2*1.091470157:$2*1.091470157
    soma.g_pas(0.112409572:0.221480245)=$3*1.065358116:$3*1.065358116
    soma.cm(0.112409572:0.221480245)=$2*1.065358116:$2*1.065358116
    soma.g_pas(0.221480245:0.330550918)=$3*1.041962209:$3*1.041962209
    soma.cm(0.221480245:0.330550918)=$2*1.041962209:$2*1.041962209
    soma.g_pas(0.330550918:0.439621592)=$3*1.030045756:$3*1.030045756
    soma.cm(0.330550918:0.439621592)=$2*1.030045756:$2*1.030045756
    soma.g_pas(0.439621592:0.554813578)=$3*1.04562125:$3*1.04562125
    soma.cm(0.439621592:0.554813578)=$2*1.04562125:$2*1.04562125
    soma.g_pas(0.554813578:0.666666667)=$3*1.063845468:$3*1.063845468
    soma.cm(0.554813578:0.666666667)=$2*1.063845468:$2*1.063845468
    soma.g_pas(0.666666667:0.772954925)=$3*1.056081904:$3*1.056081904
    soma.cm(0.666666667:0.772954925)=$2*1.056081904:$2*1.056081904
    soma.g_pas(0.772954925:0.888146912)=$3*1.052330278:$3*1.052330278
    soma.cm(0.772954925:0.888146912)=$2*1.052330278:$2*1.052330278
    soma.g_pas(0.888146912:1)=$3*1.050752489:$3*1.050752489
    soma.cm(0.888146912:1)=$2*1.050752489:$2*1.050752489
    //dend1
    dend[8].g_pas(0:1)=$3*1.263551358:$3*1.091750376
    dend[23].g_pas(0:1)=$3*1.193223695:$3*1.565510287
    dend[24].g_pas(0:1)=$3*1.359781756:$3*1.565510287
    dend[8].cm(0:1)=$2*1.263551358:$2*1.091750376
    dend[23].cm(0:1)=$2*1.193223695:$2*1.565510287
    dend[24].cm(0:1)=$2*1.359781756:$2*1.565510287
    //dend2
    dend[7].g_pas(0:1)=$3*1.301126494:$3*1.327253652
    dend[21].g_pas(0:1)=$3*1.399960072:$3*1.565510287
    dend[22].g_pas(0:1)=$3*1.406345445:$3*1.565510287
    dend[7].cm(0:1)=$2*1.301126494:$2*1.327253652
    dend[21].cm(0:1)=$2*1.399960072:$2*1.565510287
    dend[22].cm(0:1)=$2*1.406345445:$2*1.565510287
    //dend3
    dend[6].g_pas(0:1)=$3*1.267731986:$3*1.409669092
    dend[19].g_pas(0:1)=$3*1.285477812:$3*1.565510287
    dend[20].g_pas(0:1)=$3*1.231661383:$3*1.565510287
    dend[6].cm(0:1)=$2*1.267731986:$2*1.409669092
    dend[19].cm(0:1)=$2*1.285477812:$2*1.565510287
    dend[20].cm(0:1)=$2*1.231661383:$2*1.565510287
    //dend4
    dend[5].g_pas(0:1)=$3*1.289614224:$3*1.416442513
    dend[17].g_pas(0:0.782279128)=$3*1.576197092:$3*1.169470728
    dend[17].g_pas(0.782279128:1)=$3*1.169470728:$3*1.746233012
    dend[18].g_pas(0:1)=$3*1.121729644:$3*1.261810823
    dend[33].g_pas(0:0.494698174)=$3*1.406138665:$3*1.24020966
    dend[33].g_pas(0.494698174:1)=$3*1.24020966:$3*1.565510287
    dend[34].g_pas(0:1)=$3*1.446999141:$3*1.565510287
    dend[35].g_pas(0:0.222744948)=$3*1.302234443:$3*1.333958324
    dend[35].g_pas(0.222744948:1)=$3*1.333958324:$3*1.565510287
    dend[36].g_pas(0:1)=$3*1.293714767:$3*1.565510287
    dend[5].cm(0:1)=$2*1.289614224:$2*1.416442513
    dend[17].cm(0:0.782279128)=$2*1.576197092:$2*1.169470728
    dend[17].cm(0.782279128:1)=$2*1.169470728:$2*1.746233012
    dend[18].cm(0:1)=$2*1.121729644:$2*1.261810823
    dend[33].cm(0:0.494698174)=$2*1.406138665:$2*1.24020966
    dend[33].cm(0.494698174:1)=$2*1.24020966:$2*1.565510287
    dend[34].cm(0:1)=$2*1.446999141:$2*1.565510287
    dend[35].cm(0:0.222744948)=$2*1.302234443:$2*1.333958324
    dend[35].cm(0.222744948:1)=$2*1.333958324:$2*1.565510287
    dend[36].cm(0:1)=$2*1.293714767:$2*1.565510287
    //dend5
    dend[4].g_pas(0:1)=$3*1.341280323:$3*1.110397504
    dend[15].g_pas(0:1)=$3*1.375350017:$3*1.271980867
    dend[16].g_pas(0:1)=$3*1.424730177:$3*1.276040863
    dend[29].g_pas(0:0.511423908)=$3*1.322319606:$3*1.479155075
    dend[29].g_pas(0.511423908:1)=$3*1.479155075:$3*1.565510287
    dend[30].g_pas(0:1)=$3*1.341782544:$3*1.565510287
    dend[31].g_pas(0:1)=$3*1.262593445:$3*1.262228078
    dend[32].g_pas(0:0.727868553)=$3*1.325054353:$3*1.231564331
    dend[32].g_pas(0.727868553:1)=$3*1.231564331:$3*1.565510287
    dend[39].g_pas(0:1)=$3*1.33194817:$3*1.565510287
    dend[40].g_pas(0:0.341234291)=$3*1.269950733:$3*1.360241078
    dend[40].g_pas(0.341234291:1)=$3*1.360241078:$3*1.54642851
    dend[41].g_pas(0:0.101274898)=$3*1.531681172:$3*1.384017241
    dend[41].g_pas(0.101274898:1)=$3*1.384017241:$3*1.565510287
    dend[42].g_pas(0:0.203481936)=$3*1.352873896:$3*1.106237144
    dend[42].g_pas(0.203481936:1)=$3*1.106237144:$3*1.565510287
    dend[4].cm(0:1)=$2*1.341280323:$2*1.110397504
    dend[15].cm(0:1)=$2*1.375350017:$2*1.271980867
    dend[16].cm(0:1)=$2*1.424730177:$2*1.276040863
    dend[29].cm(0:0.511423908)=$2*1.322319606:$2*1.479155075
    dend[29].cm(0.511423908:1)=$2*1.479155075:$2*1.565510287
    dend[30].cm(0:1)=$2*1.341782544:$2*1.565510287
    dend[31].cm(0:1)=$2*1.262593445:$2*1.262228078
    dend[32].cm(0:0.727868553)=$2*1.325054353:$2*1.231564331
    dend[32].cm(0.727868553:1)=$2*1.231564331:$2*1.565510287
    dend[39].cm(0:1)=$2*1.33194817:$2*1.565510287
    dend[40].cm(0:0.341234291)=$2*1.269950733:$2*1.360241078
    dend[40].cm(0.341234291:1)=$2*1.360241078:$2*1.54642851
    dend[41].cm(0:0.101274898)=$2*1.531681172:$2*1.384017241
    dend[41].cm(0.101274898:1)=$2*1.384017241:$2*1.565510287
    dend[42].cm(0:0.203481936)=$2*1.352873896:$2*1.106237144
    dend[42].cm(0.203481936:1)=$2*1.106237144:$2*1.565510287
    //dend6
    dend[3].g_pas(0:1)=$3*1.290282256:$3*1.288099964
    dend[13].g_pas(0:1)=$3*1.262224964:$3*1.347523483
    dend[14].g_pas(0:1)=$3*1.281082178:$3*1.565510287
    dend[27].g_pas(0:1)=$3*1.390932297:$3*1.300418567
    dend[28].g_pas(0:0.243130141)=$3*1.418636082:$3*1.398748852
    dend[28].g_pas(0.243130141:1)=$3*1.398748852:$3*1.565510287
    dend[37].g_pas(0:1)=$3*1.431146804:$3*1.565510287
    dend[38].g_pas(0:1)=$3*1.334864618:$3*1.565510287
    dend[3].cm(0:1)=$2*1.290282256:$2*1.288099964
    dend[13].cm(0:1)=$2*1.262224964:$2*1.347523483
    dend[14].cm(0:1)=$2*1.281082178:$2*1.565510287
    dend[27].cm(0:1)=$2*1.390932297:$2*1.300418567
    dend[28].cm(0:0.243130141)=$2*1.418636082:$2*1.398748852
    dend[28].cm(0.243130141:1)=$2*1.398748852:$2*1.565510287
    dend[37].cm(0:1)=$2*1.431146804:$2*1.565510287
    dend[38].cm(0:1)=$2*1.334864618:$2*1.565510287
    //dend7
    dend[2].g_pas(0:1)=$3*1.324420516:$3*1.565510287
    dend[2].cm(0:1)=$2*1.324420516:$2*1.565510287
    //dend8
    dend[1].g_pas(0:1)=$3*1.272270735:$3*1.276186993
    dend[11].g_pas(0:1)=$3*1.403042682:$3*1.565510287
    dend[12].g_pas(0:1)=$3*1.302032319:$3*1.565510287
    dend[1].cm(0:1)=$2*1.272270735:$2*1.276186993
    dend[11].cm(0:1)=$2*1.403042682:$2*1.565510287
    dend[12].cm(0:1)=$2*1.302032319:$2*1.565510287
    //dend9
    dend[0].g_pas(0:1)=$3*1.262462177:$3*1.262092944
    dend[9].g_pas(0:1)=$3*1.264125487:$3*1.265878253
    dend[10].g_pas(0:1)=$3*1.384361606:$3*1.565510287
    dend[25].g_pas(0:1)=$3*1.398751167:$3*1.565510287
    dend[26].g_pas(0:1)=$3*1.280264702:$3*1.565510287
    dend[0].cm(0:1)=$2*1.262462177:$2*1.262092944
    dend[9].cm(0:1)=$2*1.264125487:$2*1.265878253
    dend[10].cm(0:1)=$2*1.384361606:$2*1.565510287
    dend[25].cm(0:1)=$2*1.398751167:$2*1.565510287
    dend[26].cm(0:1)=$2*1.280264702:$2*1.565510287
}

access soma

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