begintemplate BC
public init, morphology, geom_nseg_fixed, geom_nsec
public soma, dend, apic, axon, myelin
create soma[1], dend[57], axon[2],myelin[1]
objref this, CellRef, segCounts
public all, somatic, apical, axonal, basal, myelinated, APC
objref all, somatic, apical, axonal, basal, myelinated, APC
proc init() {
all = new SectionList()
apical = new SectionList()
axonal = new SectionList()
basal = new SectionList()
somatic = new SectionList()
myelinated = new SectionList()
//For compatibility with BBP CCells
CellRef = this
//load_morphology
topol()
subsets()
geom_nseg()
geom()
insertChannel()
biophys()
}
//create soma, axon[230], dend[57]
proc topol() { local i
connect axon[0](0), soma(0.5)
connect axon[1](0), axon[0](1)
connect myelin[0](0), axon[1](1)
connect dend[0](0), soma(0.5)
connect dend[1](0), soma(0.5)
for i = 2, 3 connect dend[i](0), dend[1](1)
for i = 4, 6 connect dend[i](0), dend[i-1](1)
connect dend[7](0), dend[5](1)
connect dend[8](0), dend[4](1)
connect dend[9](0), dend[3](1)
connect dend[10](0), soma(0.5)
for i = 11, 12 connect dend[i](0), dend[i-1](1)
connect dend[13](0), dend[11](1)
for i = 14, 15 connect dend[i](0), dend[i-1](1)
connect dend[16](0), dend[14](1)
connect dend[17](0), dend[13](1)
for i = 18, 19 connect dend[i](0), dend[17](1)
for i = 20, 21 connect dend[i](0), dend[19](1)
connect dend[22](0), dend[10](1)
for i = 23, 25 connect dend[i](0), dend[i-1](1)
connect dend[26](0), dend[24](1)
connect dend[27](0), dend[23](1)
for i = 28, 29 connect dend[i](0), dend[27](1)
connect dend[30](0), dend[22](1)
for i = 31, 32 connect dend[i](0), dend[i-1](1)
connect dend[33](0), dend[31](1)
for i = 34, 35 connect dend[i](0), dend[33](1)
connect dend[36](0), soma(0.5)
for i = 37, 38 connect dend[i](0), dend[36](1)
for i = 39, 40 connect dend[i](0), dend[38](1)
connect dend[41](0), soma(0.5)
for i = 42, 44 connect dend[i](0), dend[i-1](1)
connect dend[45](0), dend[43](1)
connect dend[46](0), dend[42](1)
connect dend[47](0), dend[41](1)
for i = 48, 49 connect dend[i](0), dend[47](1)
for i = 50, 51 connect dend[i](0), dend[49](1)
connect dend[52](0), soma(0.5)
for i = 53, 54 connect dend[i](0), dend[52](1)
for i = 55, 56 connect dend[i](0), dend[54](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(0.636547, -11.2268, 0, 2.0961)
pt3dadd(0.598333, -10.0461, 0, 3.03421)
pt3dadd(0.560118, -8.86534, 0, 4.26504)
pt3dadd(0.521904, -7.68461, 0, 5.45891)
pt3dadd(0.483689, -6.50388, 0, 6.32885)
pt3dadd(0.445475, -5.32315, 0, 7.1195)
pt3dadd(0.40726, -4.14242, 0, 7.67098)
pt3dadd(0.369046, -2.96169, 0, 8.08337)
pt3dadd(0.330831, -1.78096, 0, 8.48415)
pt3dadd(0.292617, -0.600232, 0, 8.88493)
pt3dadd(0.254403, 0.580499, 0, 9.09061)
pt3dadd(0.216188, 1.76123, 0, 8.76211)
pt3dadd(0.177974, 2.94196, 0, 8.30944)
pt3dadd(0.139759, 4.12269, 0, 7.83318)
pt3dadd(0.101545, 5.30342, 0, 7.35692)
pt3dadd(0.0633304, 6.48415, 0, 6.86553)
pt3dadd(0.0251159, 7.66488, 0, 6.11195)
pt3dadd(-0.0130985, 8.84561, 0, 5.27833)
pt3dadd(-0.051313, 10.0263, 0, 4.23957)
pt3dadd(-0.0895274, 11.2071, 0, 3.09571)
pt3dadd(-0.127742, 12.3878, 0, 1.86556)
}
axon[0] {pt3dclear()
pt3dstyle(1, 0.25338, 0.612098, 0)
pt3dadd(-2.67938, -45.5088, -9.01, 1.38)
pt3dadd(-0.739375, -50.4987, -9.01, 1.38)
pt3dadd(-1.31937, -55.4588, -9.01, 1.38)
pt3dadd(-0.909375, -60.5288, -9.05, 1.38)
pt3dadd(-0.999375, -65.2487, -11.63, 1.38)
pt3dadd(-0.729375, -67.5987, -12.63, 1.11)
pt3dadd(-0.699375, -71.3087, -14.51, 1.11)
pt3dadd(-0.199375, -72.3087, -15.6, 1.11)
pt3dadd(-0.619375, -75.1488, -14.85, 0.55)
pt3dadd(0.0606253, -82.5687, -17.76, 0.55)
pt3dadd(2.19062, -86.7687, -18.58, 0.55)
pt3dadd(0.480625, -90.1287, -18.79, 0.55)
pt3dadd(0.130625, -93.0987, -19.2, 0.55)
pt3dadd(-0.199375, -97.3187, -22.84, 0.55)
}
axon[1] {pt3dclear()
pt3dadd(-0.199375, -97.3187, -22.84, 0.28)
pt3dadd(2.34063, -99.4688, -21.28, 0.28)
}
myelin[0] {pt3dclear()
pt3dadd(2.34063, -99.4688, -21.28, 0.28)
pt3dadd(2.34063, -100.4688, -21.28, 0.28)
}
dend[0] {pt3dclear()
pt3dadd(-87.1094, -27.3888, -98.01, 0.28)
pt3dadd(-90.7094, -26.4288, -96.94, 0.28)
pt3dadd(-92.4494, -25.4388, -96.94, 0.28)
pt3dadd(-96.1994, -21.1287, -100.2, 0.28)
pt3dadd(-99.9194, -19.9188, -107.81, 0.28)
pt3dadd(-103.509, -18.9587, -107.53, 0.28)
pt3dadd(-106.999, -17.0088, -111.74, 0.28)
pt3dadd(-108.389, -14.2987, -113.3, 0.28)
pt3dadd(-110.889, -11.2087, -116.54, 0.28)
pt3dadd(-112.579, -10.3187, -118.22, 0.28)
pt3dadd(-116.679, -8.36875, -118.36, 0.28)
pt3dadd(-118.929, -7.02875, -127.09, 0.28)
pt3dadd(-120.309, -4.92875, -127.96, 0.28)
pt3dadd(-122.669, -3.94875, -127.91, 0.28)
pt3dadd(-125.899, -1.87875, -129.24, 0.28)
pt3dadd(-128.519, 0.21125, -130.7, 0.28)
pt3dadd(-131.989, 1.56125, -127.8, 0.28)
pt3dadd(-135.129, 5.85125, -133.09, 0.28)
pt3dadd(-138.609, 6.58125, -135.48, 0.28)
pt3dadd(-142.449, 7.41125, -151.42, 0.28)
pt3dadd(-144.809, 9.01125, -151.42, 0.28)
}
}
proc shape3d_2() {
dend[1] { pt3dadd(1.88063, 27.5212, -2.22, 0.83)
pt3dadd(2.96062, 30.8713, 0.780001, 0.83)
pt3dadd(4.19062, 33.3512, 1.97, 0.83)
pt3dadd(3.42062, 35.4512, 2.84, 0.83)
pt3dadd(3.65062, 39.3013, 3, 0.83)
pt3dadd(5.45062, 45.5112, 5.61, 0.83)
pt3dadd(5.68062, 48.7313, 4.31, 0.83)
pt3dadd(4.67062, 50.7113, 4.31, 0.83)
pt3dadd(6.01062, 54.8013, 4.31, 0.83)
}
dend[2] {pt3dclear()
pt3dadd(6.01062, 54.8013, 4.31, 0.55)
pt3dadd(6.98062, 55.9212, 5.49, 0.55)
pt3dadd(8.97062, 55.6912, 5.49, 0.55)
pt3dadd(9.70062, 56.6912, 5.49, 0.55)
pt3dadd(10.9206, 59.7912, 5.49, 0.55)
pt3dadd(12.3006, 61.6912, 5.49, 0.55)
pt3dadd(13.2706, 64.0513, 6.39, 0.55)
pt3dadd(15.6206, 64.9413, 6.39, 0.55)
pt3dadd(17.4606, 66.8113, 6.39, 0.55)
pt3dadd(18.9306, 69.4313, 6.39, 0.55)
pt3dadd(17.5506, 71.5213, 6.34, 0.55)
pt3dadd(19.0306, 73.5113, 6.17, 0.55)
pt3dadd(20.6306, 75.2613, 6.57, 0.55)
pt3dadd(20.6106, 77.7413, 8.51, 0.55)
pt3dadd(21.2106, 79.6012, 8.54, 0.55)
pt3dadd(21.5706, 81.3413, 10.1, 0.55)
pt3dadd(21.3006, 83.6913, 10.69, 0.55)
pt3dadd(22.6506, 85.9313, 10.71, 0.55)
pt3dadd(23.8606, 89.0312, 10.71, 0.55)
pt3dadd(23.3506, 90.0312, 10.78, 0.55)
pt3dadd(24.4706, 91.5213, 11.02, 0.55)
pt3dadd(23.9606, 93.1213, 11.28, 0.55)
pt3dadd(25.6806, 94.6213, 11.4, 0.55)
pt3dadd(27.1406, 97.8512, 12.67, 0.55)
pt3dadd(28.8506, 99.9713, 12.68, 0.55)
pt3dadd(28.1106, 102.071, 14.92, 0.55)
pt3dadd(29.0606, 104.441, 14.92, 0.55)
pt3dadd(29.4206, 106.791, 17.02, 0.55)
pt3dadd(30.8906, 110.021, 19.18, 0.55)
pt3dadd(31.7306, 113.251, 20.66, 0.55)
pt3dadd(34.6906, 115.371, 21.78, 0.55)
pt3dadd(37.0306, 118.131, 21.78, 0.55)
pt3dadd(38.4906, 120.121, 21.89, 0.55)
pt3dadd(40.9506, 122.001, 22.46, 0.55)
pt3dadd(42.3006, 124.861, 23.86, 0.55)
pt3dadd(43.9006, 126.611, 23.67, 0.55)
pt3dadd(43.8706, 129.071, 23.67, 0.55)
pt3dadd(44.7306, 130.451, 23.65, 0.55)
pt3dadd(45.9606, 132.931, 23.36, 0.55)
pt3dadd(47.8106, 134.191, 23.36, 0.55)
pt3dadd(47.4206, 136.161, 23.9, 0.28)
pt3dadd(47.9006, 137.031, 23.9, 0.55)
}
dend[3] {pt3dclear()
pt3dadd(6.01062, 54.8013, 4.31, 0.55)
pt3dadd(3.92062, 56.1713, 4.31, 0.55)
pt3dadd(3.64062, 60.3912, 4.31, 0.55)
pt3dadd(3.01063, 62.2512, 4.31, 0.55)
}
dend[4] {pt3dclear()
pt3dadd(3.01063, 62.2512, 4.31, 0.55)
pt3dadd(4.86062, 64.1213, 4.31, 0.55)
pt3dadd(4.22062, 65.3512, 4.31, 0.55)
pt3dadd(3.59063, 66.5813, 4.83, 0.55)
pt3dadd(4.56062, 69.5713, 4.83, 0.55)
pt3dadd(4.78062, 73.4013, 4.7, 0.55)
pt3dadd(3.89062, 75.1313, 4.38, 0.55)
pt3dadd(3.87062, 78.2313, 7.43, 0.55)
pt3dadd(4.46062, 81.9613, 8.66, 0.55)
pt3dadd(5.68062, 85.6713, 11.57, 0.55)
pt3dadd(4.80062, 87.4013, 11.75, 0.55)
pt3dadd(3.53063, 90.4913, 12.34, 0.55)
pt3dadd(5.62063, 93.1113, 13.07, 0.55)
pt3dadd(5.21062, 98.1913, 13.07, 0.55)
pt3dadd(4.08062, 100.401, 13.39, 0.55)
pt3dadd(3.92062, 104.371, 13.39, 0.55)
pt3dadd(2.42062, 106.701, 13.58, 0.55)
pt3dadd(3.63063, 111.051, 16.06, 0.55)
pt3dadd(1.88063, 113.891, 18.4, 0.55)
}
dend[5] {pt3dclear()
pt3dadd(1.88063, 113.891, 18.4, 0.55)
pt3dadd(1.98062, 116.121, 20.66, 0.55)
pt3dadd(1.10062, 117.851, 20.66, 0.55)
pt3dadd(0.830625, 120.211, 22.27, 0.55)
pt3dadd(0.950625, 123.861, 23.25, 0.55)
pt3dadd(0.330625, 125.711, 23.25, 0.55)
pt3dadd(2.64062, 130.311, 23.25, 0.55)
pt3dadd(1.15062, 132.041, 25.94, 0.55)
pt3dadd(0.980625, 136.621, 25.94, 0.55)
}
dend[6] {pt3dclear()
pt3dadd(0.980625, 136.621, 25.94, 0.55)
pt3dadd(2.96062, 137.011, 25.94, 0.55)
pt3dadd(3.70062, 138.631, 25.94, 0.55)
pt3dadd(4.79062, 140.121, 25.94, 0.55)
pt3dadd(4.17062, 142.591, 26.01, 0.55)
pt3dadd(4.75062, 146.311, 26.13, 0.55)
pt3dadd(4.13062, 146.931, 26.44, 0.28)
pt3dadd(3.51063, 148.161, 26.39, 0.55)
pt3dadd(5.09062, 150.531, 26.39, 0.55)
pt3dadd(5.08062, 151.761, 26.56, 0.55)
pt3dadd(6.20062, 152.651, 25.78, 0.55)
pt3dadd(6.68062, 154.141, 25.78, 0.55)
pt3dadd(6.54063, 155.621, 25.84, 0.83)
pt3dadd(6.78062, 156.371, 25.49, 0.28)
pt3dadd(6.65062, 157.221, 25.51, 0.55)
pt3dadd(6.39062, 157.721, 25.37, 0.28)
pt3dadd(6.15062, 158.831, 25.37, 0.55)
pt3dadd(6.38062, 160.201, 25, 0.28)
pt3dadd(6.62063, 160.941, 25, 0.55)
pt3dadd(7.61062, 162.691, 23.29, 0.28)
pt3dadd(6.98062, 162.681, 23.29, 0.55)
pt3dadd(7.60063, 163.301, 24.97, 0.28)
pt3dadd(8.34062, 164.301, 24.97, 0.55)
}
dend[7] {pt3dclear()
pt3dadd(0.980625, 136.621, 25.94, 0.55)
pt3dadd(0.120625, 137.731, 25.94, 0.55)
pt3dadd(0.370625, 137.851, 25.94, 0.55)
pt3dadd(-0.389376, 138.101, 25.94, 0.28)
pt3dadd(-0.399375, 139.331, 25.94, 0.55)
pt3dadd(-1.38938, 140.071, 25.94, 0.28)
pt3dadd(-3.12938, 141.041, 25.94, 0.55)
}
dend[8] {pt3dclear()
pt3dadd(1.88063, 113.891, 18.4, 0.28)
pt3dadd(0.790625, 113.831, 18.4, 0.28)
pt3dadd(-0.699375, 113.691, 18.4, 0.55)
pt3dadd(-1.94937, 114.921, 18.4, 0.28)
pt3dadd(-3.05938, 115.281, 18.4, 0.83)
pt3dadd(-3.55938, 116.271, 18.4, 0.28)
pt3dadd(-4.55938, 116.381, 18.45, 0.83)
pt3dadd(-5.55938, 117.741, 18.45, 0.55)
pt3dadd(-7.04938, 118.221, 18.45, 0.55)
pt3dadd(-8.04938, 119.581, 18.73, 0.28)
pt3dadd(-9.16937, 119.941, 19.2, 0.55)
pt3dadd(-9.29938, 120.811, 18.73, 0.28)
pt3dadd(-10.1694, 121.301, 18.73, 0.83)
pt3dadd(-10.7894, 122.531, 17.1, 0.28)
pt3dadd(-12.2894, 122.401, 16.44, 0.83)
pt3dadd(-13.6594, 124.491, 13.58, 0.28)
pt3dadd(-16.2794, 126.581, 13.58, 0.55)
pt3dadd(-18.0394, 130.651, 13.05, 0.55)
pt3dadd(-19.7894, 131.631, 13.05, 0.83)
pt3dadd(-20.5394, 133.111, 13.05, 0.28)
pt3dadd(-21.4194, 134.221, 13.05, 0.83)
pt3dadd(-22.4194, 135.581, 11.16, 0.28)
pt3dadd(-24.2894, 137.421, 11.16, 0.83)
pt3dadd(-26.2794, 138.891, 10.34, 0.28)
pt3dadd(-27.8894, 138.381, 10.36, 0.55)
pt3dadd(-28.8994, 139.731, 10.05, 0.28)
pt3dadd(-29.2594, 139.861, 10.05, 0.83)
pt3dadd(-30.8794, 140.601, 8.77, 0.28)
pt3dadd(-32.2494, 140.831, 8.14, 0.83)
}
dend[9] {pt3dclear()
pt3dadd(3.01063, 62.2512, 4.31, 0.55)
pt3dadd(1.67062, 63.2912, 4.5, 0.55)
pt3dadd(0.680625, 63.4113, 4.5, 0.83)
pt3dadd(-1.56937, 64.1313, 5.06, 0.28)
pt3dadd(-2.91938, 63.7413, 6.01, 0.55)
pt3dadd(-3.42938, 64.7413, 7.16, 0.28)
pt3dadd(-3.54938, 65.6012, 7.16, 0.55)
pt3dadd(-4.41938, 66.0913, 7.16, 0.28)
pt3dadd(-5.65938, 66.7013, 7.43, 0.55)
pt3dadd(-6.65938, 66.8213, 8.96, 0.28)
pt3dadd(-7.78938, 68.4213, 8.96, 0.83)
pt3dadd(-8.65938, 69.5312, 10.92, 0.83)
pt3dadd(-8.29938, 71.2613, 10.88, 0.55)
pt3dadd(-8.68937, 72.0113, 13.15, 0.28)
pt3dadd(-9.79938, 71.7413, 13.15, 0.55)
pt3dadd(-11.2794, 72.8512, 13.95, 0.28)
pt3dadd(-11.6694, 73.6012, 14.45, 0.83)
pt3dadd(-13.2794, 73.7113, 15.89, 0.55)
pt3dadd(-14.6394, 73.9413, 16.01, 0.28)
pt3dadd(-14.7694, 74.8113, 16.7, 0.83)
pt3dadd(-15.6494, 75.3013, 16.7, 0.83)
pt3dadd(-16.6394, 76.6513, 17.21, 0.28)
pt3dadd(-17.3994, 77.5113, 17.31, 0.83)
pt3dadd(-18.3894, 78.8713, 20.15, 0.28)
pt3dadd(-18.6494, 79.9713, 20.15, 0.55)
pt3dadd(-21.3794, 80.4613, 20.15, 0.55)
pt3dadd(-23.2294, 80.4413, 20.62, 0.28)
pt3dadd(-23.6194, 81.7913, 20.62, 0.55)
pt3dadd(-24.6194, 82.5312, 21.35, 0.28)
pt3dadd(-25.3594, 82.7812, 21.35, 0.55)
pt3dadd(-25.4994, 83.6413, 21.76, 0.28)
pt3dadd(-26.9794, 83.5113, 21.76, 0.55)
pt3dadd(-28.3394, 83.7413, 22.3, 0.28)
pt3dadd(-29.8394, 84.8512, 22.53, 0.55)
pt3dadd(-30.2094, 85.5913, 23.57, 0.28)
pt3dadd(-30.8394, 86.2113, 23.57, 0.55)
pt3dadd(-30.8594, 87.4513, 24.19, 0.28)
pt3dadd(-31.1094, 87.9413, 24.19, 0.55)
pt3dadd(-31.4794, 88.6813, 24.42, 0.28)
pt3dadd(-31.4894, 90.5413, 23.93, 0.55)
pt3dadd(-33.4794, 92.0113, 24.76, 0.55)
pt3dadd(-33.7294, 93.1213, 23.53, 0.28)
pt3dadd(-34.9794, 93.7313, 24.48, 0.55)
}
dend[10] {pt3dclear()
pt3dstyle(1, 0.25338, 0.612098, 0)
pt3dadd(0.640625, -11.6888, -8.79, 2.77)
pt3dadd(-0.799375, -16.7787, -8.79, 2.77)
pt3dadd(-0.999375, -24.3388, -8.79, 2.77)
pt3dadd(-0.349376, -28.0487, -8.79, 2.77)
}
dend[11] {pt3dclear()
pt3dadd(-0.349376, -28.0487, -8.79, 0.83)
pt3dadd(-2.32938, -32.7287, -8.79, 0.83)
pt3dadd(-4.04938, -34.2188, -10.24, 1.11)
}
dend[12] {pt3dclear()
pt3dadd(-4.04938, -34.2188, -10.24, 0.55)
pt3dadd(-3.47937, -35.9287, -10.24, 0.55)
pt3dadd(-3.23937, -35.8088, -10.24, 0.55)
pt3dadd(-5.81938, -38.0487, -7.99, 0.55)
pt3dadd(-5.18937, -39.2887, -3.24, 0.55)
pt3dadd(-3.81937, -41.3888, 0.14, 0.55)
pt3dadd(-4.79938, -41.8888, 3.03, 0.55)
}
}
proc shape3d_3() {
dend[12] { pt3dadd(-5.79938, -41.7687, 3.03, 0.83)
pt3dadd(-7.77938, -42.1587, 8.07, 0.28)
pt3dadd(-9.64938, -40.9287, 8.39, 0.55)
pt3dadd(-11.1194, -41.6888, 11.83, 0.55)
pt3dadd(-13.5994, -41.7088, 14.8, 0.28)
pt3dadd(-12.4694, -43.3188, 15.2, 0.55)
pt3dadd(-13.9494, -44.6888, 15.47, 0.55)
pt3dadd(-15.6894, -44.3188, 19.41, 0.55)
pt3dadd(-17.0394, -45.9588, 21.69, 0.28)
pt3dadd(-15.9094, -47.5588, 23.83, 0.55)
pt3dadd(-15.6494, -49.2887, 23.83, 0.55)
pt3dadd(-15.7594, -50.8888, 23.95, 0.55)
}
dend[13] {pt3dclear()
pt3dadd(-4.04938, -34.2188, -10.24, 0.83)
pt3dadd(-7.13938, -35.4787, -11.52, 0.83)
pt3dadd(-9.22938, -37.4787, -10.97, 1.11)
}
dend[14] {pt3dclear()
pt3dadd(-9.22938, -37.4787, -10.97, 0.55)
pt3dadd(-9.04938, -37.8387, -10.97, 0.55)
pt3dadd(-9.90938, -39.1987, -10.97, 0.55)
pt3dadd(-12.2594, -38.2287, -10.97, 0.55)
pt3dadd(-13.4994, -38.2487, -10.1, 0.55)
pt3dadd(-14.7494, -37.0187, -9.12, 0.83)
pt3dadd(-15.2494, -35.4087, -6.62, 0.55)
pt3dadd(-16.2394, -37.1488, -6.62, 0.55)
pt3dadd(-17.7194, -37.2788, -6.62, 0.55)
pt3dadd(-19.8394, -36.1787, -1.01, 0.55)
pt3dadd(-22.4394, -35.9587, 2.03, 0.55)
pt3dadd(-24.6694, -36.4688, 3.98, 0.55)
}
dend[15] {pt3dclear()
pt3dadd(-24.6694, -36.4688, 3.98, 0.55)
pt3dadd(-25.1694, -35.4787, 3.98, 0.55)
pt3dadd(-25.9194, -33.9987, 3.98, 0.28)
pt3dadd(-26.6694, -33.1387, 3.98, 0.55)
pt3dadd(-27.3194, -30.6688, 3.98, 0.55)
pt3dadd(-27.5694, -28.3188, 6.98, 0.55)
pt3dadd(-28.4594, -27.1987, 5.32, 0.55)
pt3dadd(-29.1994, -26.3488, 7.4, 0.28)
pt3dadd(-29.8394, -23.8687, 7.64, 0.28)
pt3dadd(-30.5994, -22.3988, 7.64, 0.28)
pt3dadd(-31.8394, -21.7687, 7.64, 0.55)
pt3dadd(-32.9594, -20.1787, 8.85, 0.55)
pt3dadd(-32.8494, -17.9387, 8.85, 0.55)
pt3dadd(-32.8694, -16.0888, 8.46, 0.55)
pt3dadd(-33.2594, -14.1187, 6.93, 0.55)
pt3dadd(-34.4994, -12.8687, 5.32, 0.28)
pt3dadd(-35.8794, -11.3988, 5.32, 0.55)
pt3dadd(-35.7694, -9.78875, 5.46, 0.55)
pt3dadd(-37.0194, -7.94875, 5.63, 0.28)
pt3dadd(-37.1594, -5.83875, 5.63, 0.55)
pt3dadd(-37.1794, -3.97875, 5.63, 0.28)
pt3dadd(-38.6794, -1.63875, 5.63, 0.55)
pt3dadd(-39.3294, 0.83125, 5.63, 0.55)
pt3dadd(-41.4394, 3.18125, 4.68, 0.55)
pt3dadd(-41.0894, 4.91125, 7.24, 0.28)
pt3dadd(-41.4594, 6.27125, 7.24, 0.55)
pt3dadd(-42.0894, 6.89125, 7.28, 0.28)
pt3dadd(-43.4594, 7.11125, 7.64, 0.55)
pt3dadd(-43.4594, 8.36125, 5.58, 0.28)
pt3dadd(-45.9494, 9.58125, 5.58, 0.83)
pt3dadd(-45.7294, 12.8013, 2.91, 0.55)
pt3dadd(-46.9994, 16.5112, 2.91, 0.55)
pt3dadd(-47.9994, 18.4812, 1.77, 0.28)
pt3dadd(-48.2494, 19.6012, 1.56, 0.55)
pt3dadd(-47.9094, 21.9513, -2.43, 0.28)
pt3dadd(-48.6594, 22.8112, -2.39, 0.55)
pt3dadd(-48.8094, 26.7712, -2.39, 0.55)
pt3dadd(-47.4694, 29.6413, -3.69, 0.28)
pt3dadd(-48.0994, 31.5013, -3.69, 0.55)
pt3dadd(-48.5694, 32.8913, -3.02, 0.28)
pt3dadd(-48.8294, 34.0112, -3.97, 0.55)
pt3dadd(-50.3294, 35.7313, -4.85, 0.28)
pt3dadd(-50.6994, 36.4712, -5.7, 0.55)
pt3dadd(-51.4594, 38.5713, -4.51, 0.28)
pt3dadd(-51.4794, 41.0513, -3.24, 0.55)
pt3dadd(-52.9694, 41.5312, 0.14, 0.28)
pt3dadd(-54.3394, 42.3913, -1.94, 0.55)
pt3dadd(-54.8494, 43.9912, -3.09, 0.28)
pt3dadd(-54.8594, 45.2412, -2.57, 0.28)
pt3dadd(-55.8494, 46.5913, -4.44, 0.55)
pt3dadd(-56.4994, 48.4512, -3.88, 0.28)
pt3dadd(-57.2394, 49.3013, -3.87, 0.55)
pt3dadd(-55.8894, 50.9312, -5.06, 0.28)
pt3dadd(-57.1294, 52.1512, -2.51, 0.55)
pt3dadd(-57.5294, 54.7612, -2.57, 0.28)
pt3dadd(-57.2794, 55.5013, -2.53, 0.55)
pt3dadd(-57.6694, 56.2413, -5.6, 0.28)
pt3dadd(-57.4394, 58.2212, -5.34, 0.55)
pt3dadd(-57.2094, 60.8413, -5.56, 0.28)
pt3dadd(-56.7194, 61.7013, -5.43, 0.55)
pt3dadd(-56.7494, 65.4213, -5.3, 0.28)
pt3dadd(-56.6294, 66.4013, -6.71, 0.55)
pt3dadd(-54.6694, 68.6513, -7.42, 0.28)
pt3dadd(-56.1594, 70.3713, -7.99, 0.55)
pt3dadd(-55.4294, 72.6113, -7.99, 0.55)
pt3dadd(-55.1994, 73.9813, -8.04, 0.55)
pt3dadd(-55.3394, 76.0813, -8.21, 0.28)
pt3dadd(-54.9794, 77.8213, -8.21, 1.11)
pt3dadd(-55.7594, 82.3913, -6.97, 0.55)
pt3dadd(-55.2794, 85.1213, -8.01, 0.28)
pt3dadd(-57.0294, 86.7213, -7.63, 0.55)
pt3dadd(-56.0594, 89.0813, -9.36, 0.28)
pt3dadd(-56.4394, 89.8313, -8.3, 0.55)
pt3dadd(-55.8294, 92.3113, -7.52, 0.55)
pt3dadd(-56.5894, 93.7913, -6.83, 0.28)
pt3dadd(-56.9594, 94.5312, -6.83, 0.55)
pt3dadd(-56.4794, 97.2513, -6.83, 0.28)
pt3dadd(-57.3594, 97.7513, -6.83, 0.55)
pt3dadd(-56.6294, 99.3613, -5.79, 0.28)
pt3dadd(-57.3794, 100.221, -7.9, 0.55)
pt3dadd(-56.5994, 102.131, -10.42, 0.55)
pt3dadd(-57.0994, 104.361, -8.7, 0.28)
pt3dadd(-57.6094, 105.961, -9.71, 0.55)
pt3dadd(-58.1294, 108.181, -7.38, 0.28)
pt3dadd(-58.6194, 109.181, -9.34, 0.55)
pt3dadd(-58.1494, 111.291, -10.88, 0.83)
pt3dadd(-58.0394, 113.521, -12.91, 0.28)
pt3dadd(-57.9294, 113.881, -12.91, 0.55)
pt3dadd(-57.6994, 116.491, -12.37, 0.55)
pt3dadd(-58.5694, 118.231, -12.37, 0.55)
pt3dadd(-57.9694, 120.081, -14.05, 0.28)
pt3dadd(-57.9894, 122.561, -13.12, 0.55)
pt3dadd(-58.6194, 124.421, -14.73, 0.28)
pt3dadd(-58.5194, 126.651, -15.03, 0.55)
pt3dadd(-58.6494, 128.751, -15.08, 0.28)
pt3dadd(-60.0194, 130.231, -15.79, 0.55)
pt3dadd(-58.4294, 133.211, -13.74, 0.55)
pt3dadd(-57.2294, 136.941, -13.28, 0.28)
pt3dadd(-57.6094, 138.291, -13.28, 0.28)
pt3dadd(-58.1094, 139.291, -13.28, 0.55)
}
dend[16] {pt3dclear()
pt3dadd(-24.6694, -36.4688, 3.98, 0.55)
pt3dadd(-27.6294, -36.1187, 6.01, 0.55)
pt3dadd(-28.7494, -36.9888, 5.65, 0.83)
pt3dadd(-30.8694, -36.5187, 5.65, 0.55)
pt3dadd(-32.3394, -37.2687, 5.65, 0.55)
pt3dadd(-33.4494, -38.1488, 7.99, 0.55)
pt3dadd(-35.3094, -38.1587, 7.59, 0.83)
pt3dadd(-36.5394, -38.1688, 12.6, 0.55)
pt3dadd(-37.5494, -37.4287, 12.84, 0.83)
pt3dadd(-39.1594, -36.6987, 14.68, 0.28)
pt3dadd(-41.7594, -36.4688, 15.14, 0.55)
pt3dadd(-41.7594, -35.2287, 17.47, 0.28)
pt3dadd(-42.3994, -34.6187, 17.48, 0.55)
pt3dadd(-44.6194, -35.7487, 19.79, 0.55)
pt3dadd(-47.3494, -35.2687, 19.79, 0.55)
pt3dadd(-49.6894, -37.3988, 19.79, 0.55)
pt3dadd(-51.1694, -38.1587, 19.89, 0.55)
pt3dadd(-53.7494, -40.3988, 21.5, 0.55)
}
dend[17] {pt3dclear()
pt3dadd(-9.22938, -37.4787, -10.97, 0.83)
pt3dadd(-11.7094, -37.4987, -9.46, 0.83)
pt3dadd(-11.5594, -40.2188, -9.25, 0.83)
pt3dadd(-13.2794, -41.0988, -9.88, 0.55)
pt3dadd(-16.1494, -39.7687, -9.88, 0.55)
pt3dadd(-19.8494, -40.3988, -9.88, 0.55)
pt3dadd(-21.4494, -42.7788, -9.88, 0.55)
pt3dadd(-24.0494, -42.5488, -9.77, 0.55)
pt3dadd(-29.5894, -48.1587, -8.2, 0.55)
pt3dadd(-35.3994, -49.5688, -8.2, 0.55)
pt3dadd(-37.7594, -48.5988, -7.5, 0.55)
pt3dadd(-39.2394, -48.7288, -10.17, 0.55)
pt3dadd(-41.3494, -48.8688, -10.17, 0.83)
pt3dadd(-46.7994, -49.1587, -12.88, 0.55)
pt3dadd(-49.1694, -48.1888, -12.88, 0.55)
pt3dadd(-50.2794, -48.4388, -12.88, 0.55)
pt3dadd(-52.2694, -46.9688, -12.88, 0.55)
pt3dadd(-55.3494, -48.8587, -13.55, 0.55)
pt3dadd(-59.0794, -45.7887, -14, 0.55)
pt3dadd(-61.6894, -45.5488, -12.63, 0.55)
pt3dadd(-63.4294, -45.1987, -12.63, 1.11)
}
dend[18] {pt3dclear()
pt3dadd(-63.4294, -45.1987, -12.63, 0.55)
pt3dadd(-64.0094, -43.4588, -12.63, 0.55)
pt3dadd(-64.5094, -41.8488, -13.43, 0.28)
pt3dadd(-64.1594, -40.7288, -13.43, 0.55)
pt3dadd(-64.4194, -38.9888, -15.09, 0.28)
pt3dadd(-65.6594, -37.7687, -15.09, 0.55)
pt3dadd(-66.5594, -34.1888, -18.25, 0.28)
pt3dadd(-67.1794, -33.5588, -18.23, 0.55)
pt3dadd(-67.5694, -31.5788, -20.38, 0.28)
pt3dadd(-68.4394, -31.0988, -20.38, 0.55)
pt3dadd(-71.0794, -26.5288, -21.9, 0.28)
pt3dadd(-71.0894, -25.2987, -21.9, 0.55)
pt3dadd(-72.3294, -23.4487, -23.52, 0.28)
pt3dadd(-72.5894, -22.3388, -24.37, 0.55)
}
dend[19] {pt3dclear()
pt3dadd(-63.4294, -45.1987, -12.63, 0.55)
pt3dadd(-66.5294, -44.6087, -15.34, 0.55)
pt3dadd(-68.0294, -43.4987, -15.34, 0.55)
pt3dadd(-69.4994, -44.8688, -15.23, 0.55)
pt3dadd(-72.1194, -44.0288, -15.32, 1.11)
pt3dadd(-73.5994, -44.1688, -15.48, 0.55)
pt3dadd(-74.9594, -44.5488, -17.85, 0.83)
}
dend[20] {pt3dclear()
pt3dadd(-74.9594, -44.5488, -17.85, 0.28)
pt3dadd(-79.4894, -43.5688, -17.85, 0.28)
pt3dadd(-80.7394, -42.9588, -17.85, 0.55)
pt3dadd(-82.3494, -42.2288, -18.82, 0.28)
pt3dadd(-82.7194, -41.4888, -18.82, 0.55)
pt3dadd(-83.5994, -41.6287, -19.51, 0.28)
pt3dadd(-84.5894, -40.8888, -19.65, 0.55)
pt3dadd(-86.8394, -38.9188, -21.11, 0.28)
pt3dadd(-87.8294, -38.7987, -21.19, 0.55)
pt3dadd(-89.9594, -35.2287, -25.09, 0.28)
pt3dadd(-90.9594, -33.8687, -25.11, 0.55)
pt3dadd(-92.4594, -31.5288, -23.27, 0.28)
pt3dadd(-93.2194, -30.6788, -23.27, 0.55)
}
}
proc shape3d_4() {
dend[20] { pt3dadd(-97.0794, -27.9788, -23.59, 0.28)
pt3dadd(-97.4494, -27.8488, -23.83, 0.55)
pt3dadd(-99.0694, -27.1287, -27.55, 0.28)
pt3dadd(-99.6894, -26.5088, -24.68, 0.55)
}
dend[21] {pt3dclear()
pt3dadd(-74.9594, -44.5488, -17.85, 0.55)
pt3dadd(-78.0594, -44.5688, -17.68, 0.55)
pt3dadd(-79.8994, -45.1987, -22.67, 0.28)
pt3dadd(-80.5094, -47.0588, -23.07, 0.55)
pt3dadd(-81.7394, -47.6888, -25.53, 1.38)
pt3dadd(-83.8494, -48.4487, -27.52, 0.55)
pt3dadd(-84.8294, -48.3387, -27.55, 0.28)
pt3dadd(-85.2094, -48.8288, -27.55, 0.55)
pt3dadd(-86.4294, -49.4688, -27.55, 0.28)
pt3dadd(-87.5594, -49.0988, -27.55, 0.55)
pt3dadd(-89.4194, -49.1188, -28.14, 0.55)
pt3dadd(-91.8994, -47.8988, -28.14, 0.55)
pt3dadd(-94.2494, -48.7788, -28.14, 0.55)
pt3dadd(-94.7394, -49.0288, -28.14, 1.11)
pt3dadd(-98.4394, -52.1587, -29.81, 0.28)
pt3dadd(-100.539, -51.6688, -29.77, 0.83)
pt3dadd(-102.399, -51.0688, -30.34, 0.28)
pt3dadd(-103.769, -51.4487, -30.34, 0.55)
pt3dadd(-104.129, -52.5688, -30.33, 0.28)
pt3dadd(-105.859, -52.8288, -30.33, 0.55)
pt3dadd(-107.589, -52.4688, -30.33, 0.28)
pt3dadd(-108.079, -52.2388, -29.34, 0.83)
pt3dadd(-111.179, -52.2487, -31.87, 0.28)
pt3dadd(-113.149, -52.6388, -31.87, 0.83)
pt3dadd(-115.509, -52.2788, -32.87, 0.28)
pt3dadd(-117.129, -51.5588, -32.04, 0.83)
pt3dadd(-118.869, -50.5688, -31.56, 0.55)
pt3dadd(-119.359, -50.2088, -29.24, 0.28)
pt3dadd(-120.359, -50.0988, -29.24, 0.55)
pt3dadd(-121.489, -49.1087, -29.22, 0.28)
pt3dadd(-122.469, -48.9888, -29.22, 0.55)
pt3dadd(-124.589, -47.8988, -27.73, 0.28)
pt3dadd(-125.839, -47.2788, -27.74, 0.55)
pt3dadd(-127.929, -47.4287, -27.22, 0.28)
pt3dadd(-128.309, -47.2988, -27.17, 0.55)
pt3dadd(-129.059, -46.4388, -27, 0.28)
pt3dadd(-132.289, -46.2288, -26.74, 0.55)
pt3dadd(-133.769, -46.3488, -27.47, 0.28)
pt3dadd(-135.379, -46.8587, -27.47, 0.83)
pt3dadd(-138.849, -46.7588, -25.94, 0.28)
pt3dadd(-139.449, -48.0088, -25.94, 0.55)
pt3dadd(-140.559, -49.5088, -26.88, 0.28)
pt3dadd(-142.669, -49.6388, -26.25, 0.83)
pt3dadd(-144.129, -51.6388, -26.72, 0.55)
pt3dadd(-145.609, -53.0088, -27.12, 0.28)
pt3dadd(-146.109, -53.2687, -26.22, 0.55)
pt3dadd(-147.469, -53.0288, -27.22, 0.28)
pt3dadd(-148.709, -53.6488, -26.98, 0.55)
pt3dadd(-150.679, -54.0387, -28.11, 0.28)
pt3dadd(-150.929, -54.7788, -26.57, 0.55)
pt3dadd(-152.399, -57.3888, -25.61, 0.28)
pt3dadd(-151.639, -58.2588, -25.6, 0.55)
pt3dadd(-152.479, -60.8587, -23.72, 0.28)
pt3dadd(-152.479, -61.4888, -23.69, 0.83)
pt3dadd(-153.339, -63.4788, -23.46, 0.28)
pt3dadd(-153.579, -64.2188, -23.46, 0.55)
pt3dadd(-155.179, -65.9587, -23.46, 0.28)
pt3dadd(-155.669, -66.2087, -23.46, 0.55)
pt3dadd(-157.009, -69.0887, -22.75, 0.28)
pt3dadd(-157.989, -70.1987, -21.33, 0.55)
pt3dadd(-158.219, -72.7887, -22.41, 0.28)
pt3dadd(-159.069, -74.7887, -21.89, 0.55)
pt3dadd(-160.549, -75.5487, -20.78, 0.28)
pt3dadd(-160.679, -75.9287, -20.78, 0.55)
pt3dadd(-161.529, -77.2887, -20.45, 0.28)
pt3dadd(-162.019, -78.7787, -20.45, 0.55)
pt3dadd(-162.759, -79.1587, -20.45, 0.28)
pt3dadd(-163.369, -79.7687, -20.9, 0.55)
pt3dadd(-163.109, -81.5087, -20, 0.28)
pt3dadd(-163.839, -82.5087, -20, 0.55)
pt3dadd(-164.219, -83.6187, -18.82, 0.28)
pt3dadd(-164.829, -84.2487, -18.82, 0.55)
pt3dadd(-165.069, -84.9887, -17.83, 0.28)
pt3dadd(-165.809, -85.3687, -17.83, 0.55)
pt3dadd(-166.539, -86.9887, -16.97, 0.28)
pt3dadd(-166.649, -88.5987, -16.97, 0.55)
pt3dadd(-167.999, -89.5987, -14.75, 0.28)
pt3dadd(-167.629, -90.3287, -14.64, 0.55)
pt3dadd(-168.239, -91.5887, -15.58, 0.28)
pt3dadd(-168.599, -92.0787, -15.51, 0.55)
pt3dadd(-169.839, -93.3387, -16.39, 0.28)
pt3dadd(-169.699, -94.8187, -16.5, 0.83)
pt3dadd(-171.299, -96.5687, -16.53, 0.28)
pt3dadd(-171.909, -97.1887, -16.48, 0.55)
pt3dadd(-172.399, -98.0587, -17.21, 0.28)
pt3dadd(-172.889, -98.9287, -17.21, 0.55)
pt3dadd(-173.249, -100.669, -17.21, 1.11)
pt3dadd(-173.359, -102.889, -17.92, 0.28)
pt3dadd(-173.859, -103.149, -17.92, 0.55)
pt3dadd(-174.689, -105.139, -17.75, 0.28)
pt3dadd(-175.789, -107.249, -17.75, 0.55)
pt3dadd(-175.419, -108.609, -18.61, 0.28)
pt3dadd(-176.029, -109.849, -18.18, 0.55)
pt3dadd(-175.889, -110.729, -17.64, 0.28)
pt3dadd(-176.889, -111.219, -17.64, 0.55)
pt3dadd(-177.119, -113.209, -19.65, 0.28)
pt3dadd(-177.479, -113.709, -19.88, 0.55)
pt3dadd(-177.719, -115.689, -23.48, 0.28)
pt3dadd(-177.949, -117.049, -23.48, 0.55)
pt3dadd(-178.139, -117.909, -24.92, 0.28)
pt3dadd(-178.869, -118.909, -24.92, 0.55)
pt3dadd(-178.499, -119.639, -23.1, 0.28)
pt3dadd(-179.109, -120.269, -23.1, 0.55)
pt3dadd(-178.969, -121.129, -23.55, 0.28)
pt3dadd(-179.099, -122.129, -23.55, 0.55)
pt3dadd(-179.339, -122.869, -26.03, 0.28)
pt3dadd(-180.079, -123.869, -26.03, 0.83)
pt3dadd(-181.289, -126.979, -26.83, 0.28)
pt3dadd(-181.149, -128.459, -26.83, 0.83)
pt3dadd(-183.489, -130.589, -28.89, 0.28)
pt3dadd(-183.109, -132.559, -30.31, 0.83)
pt3dadd(-183.329, -135.159, -29.74, 0.28)
pt3dadd(-183.949, -136.419, -29.06, 0.55)
pt3dadd(-183.429, -139.259, -28.13, 0.28)
pt3dadd(-183.169, -140.369, -28.35, 0.55)
pt3dadd(-184.039, -141.119, -28.98, 0.28)
pt3dadd(-184.029, -141.729, -28.98, 0.28)
pt3dadd(-183.759, -145.319, -30.07, 0.28)
pt3dadd(-183.259, -145.079, -30.07, 0.55)
pt3dadd(-182.879, -147.049, -31.97, 0.28)
pt3dadd(-182.859, -148.299, -31.61, 0.55)
pt3dadd(-182.609, -149.409, -30.78, 0.28)
pt3dadd(-182.849, -150.159, -30.78, 0.55)
pt3dadd(-182.219, -151.389, -32.28, 0.28)
pt3dadd(-182.219, -152.629, -30.08, 0.55)
pt3dadd(-180.849, -154.099, -28.73, 0.28)
pt3dadd(-180.719, -154.339, -27.85, 0.55)
}
dend[22] {pt3dclear()
pt3dadd(-0.349376, -28.0487, -8.79, 2.77)
pt3dadd(-0.189375, -29.5888, -8.79, 2.77)
}
dend[23] {pt3dclear()
pt3dadd(-0.189375, -29.5888, -8.79, 0.83)
pt3dadd(0.440624, -30.8288, -8.79, 0.83)
}
dend[24] {pt3dclear()
pt3dadd(0.440624, -30.8288, -8.79, 0.55)
pt3dadd(2.22063, -28.8188, -8.79, 0.55)
pt3dadd(2.95062, -27.8188, -11.46, 0.55)
pt3dadd(2.82063, -26.9487, -11.46, 0.55)
pt3dadd(4.67062, -25.6987, -11.46, 0.55)
pt3dadd(2.04062, -22.9988, -21.7, 0.55)
pt3dadd(4.65062, -22.5987, -21.63, 0.55)
pt3dadd(2.90062, -20.9988, -31.31, 0.55)
pt3dadd(1.52062, -20.1488, -33.45, 0.55)
pt3dadd(-0.329375, -20.1588, -43.06, 0.55)
pt3dadd(-2.30938, -19.9287, -47.07, 0.55)
}
dend[25] {pt3dclear()
pt3dadd(-2.30938, -19.9287, -47.07, 0.55)
pt3dadd(-3.98937, -18.6187, -47.07, 0.55)
pt3dadd(-4.72937, -18.3787, -47.17, 0.28)
pt3dadd(-5.70938, -19.5088, -48.5, 0.83)
pt3dadd(-7.07938, -19.2588, -49.7, 0.28)
pt3dadd(-7.08938, -18.0187, -51.12, 0.55)
pt3dadd(-8.44938, -17.7987, -53.56, 0.28)
pt3dadd(-9.43937, -17.6688, -53.7, 0.83)
pt3dadd(-11.4194, -16.8188, -61.03, 0.83)
pt3dadd(-10.3294, -14.6987, -73.72, 0.83)
pt3dadd(-8.34937, -14.3187, -85.35, 0.55)
pt3dadd(-7.36938, -12.5787, -87.17, 0.28)
pt3dadd(-7.13938, -11.8287, -87.17, 0.55)
pt3dadd(-6.40938, -9.58875, -88.88, 0.28)
pt3dadd(-6.15938, -8.84875, -89.3, 0.55)
pt3dadd(-3.81937, -7.34875, -91.32, 0.28)
pt3dadd(-4.08938, -5.61875, -91.32, 0.28)
pt3dadd(-2.59938, -4.22875, -91.32, 0.83)
pt3dadd(-2.48937, -2.62875, -93.13, 0.28)
pt3dadd(-1.49938, -2.73875, -93.23, 0.55)
pt3dadd(-0.519375, -2.23875, -96.09, 0.28)
pt3dadd(0.720625, -1.60875, -97.06, 0.55)
pt3dadd(1.07063, 0.12125, -100.06, 0.28)
pt3dadd(1.69062, 0.13125, -101.44, 0.55)
pt3dadd(2.43062, 1.13125, -102.45, 0.28)
pt3dadd(2.56062, 1.49125, -102.61, 0.55)
pt3dadd(0.950625, 1.61125, -103.52, 0.55)
pt3dadd(0.450625, 1.98125, -105.86, 0.55)
pt3dadd(0.190624, 3.08125, -107.93, 0.28)
pt3dadd(-1.17938, 3.33125, -109.17, 0.83)
pt3dadd(-3.03938, 3.94125, -113.96, 0.28)
pt3dadd(-3.02937, 2.69125, -114.58, 0.55)
pt3dadd(-4.99938, 1.69125, -114.58, 0.55)
pt3dadd(-5.12938, 1.32125, -117.41, 0.83)
pt3dadd(-5.60938, -0.16875, -119.4, 0.28)
pt3dadd(-5.85938, -0.29875, -119.4, 0.28)
pt3dadd(-8.20938, -1.18875, -124.98, 0.28)
pt3dadd(-9.55938, -0.94875, -126.95, 0.83)
pt3dadd(-10.3194, -0.0887498, -129.99, 0.28)
pt3dadd(-11.4294, -0.33875, -132.2, 0.55)
pt3dadd(-12.1794, 1.14125, -134.16, 0.55)
pt3dadd(-13.4194, 0.51125, -134.16, 0.55)
pt3dadd(-14.0394, 0.51125, -134.23, 0.83)
pt3dadd(-14.9094, 1.61125, -136.54, 0.28)
pt3dadd(-16.0294, 1.97125, -136.54, 0.55)
pt3dadd(-17.0294, 2.09125, -140.07, 0.28)
pt3dadd(-17.7794, 2.96125, -141.16, 0.55)
pt3dadd(-19.2494, 2.20125, -144.07, 0.28)
pt3dadd(-19.7494, 1.95125, -144.06, 0.55)
pt3dadd(-20.4994, 3.43125, -148.89, 0.28)
pt3dadd(-20.8794, 2.94125, -148.89, 0.83)
pt3dadd(-22.3694, 4.03125, -150.56, 0.28)
pt3dadd(-23.1094, 4.28125, -152.55, 0.55)
pt3dadd(-24.1094, 5.01125, -146.85, 0.28)
}
}
proc shape3d_5() {
dend[25] { pt3dadd(-25.5994, 6.12125, -145.46, 0.55)
}
dend[26] {pt3dclear()
pt3dadd(-2.30938, -19.9287, -47.07, 0.28)
pt3dadd(-3.45938, -15.2387, -48.5, 0.28)
pt3dadd(-3.97937, -13.0087, -48.5, 0.83)
pt3dadd(-5.10938, -10.7887, -47.5, 0.28)
pt3dadd(-5.48938, -9.42875, -47.5, 0.55)
pt3dadd(-5.74938, -7.06875, -45.8, 0.55)
pt3dadd(-6.13938, -5.71875, -45.8, 0.55)
pt3dadd(-6.27938, -2.98875, -45.8, 0.28)
pt3dadd(-6.04938, -1.00875, -45.8, 0.83)
pt3dadd(-5.56938, 1.73125, -50.34, 0.28)
pt3dadd(-5.21938, 2.84125, -50.34, 0.28)
pt3dadd(-4.34938, 3.59125, -50.34, 0.55)
pt3dadd(-3.86937, 5.70125, -50.34, 0.28)
pt3dadd(-3.50938, 6.82125, -50.34, 0.55)
pt3dadd(-2.02937, 7.57125, -50.34, 0.28)
pt3dadd(-1.29938, 9.20125, -50.34, 0.55)
pt3dadd(0.300625, 11.5513, -50.34, 0.28)
pt3dadd(1.04062, 11.3112, -50.34, 0.55)
pt3dadd(2.39062, 12.3212, -50.34, 0.28)
pt3dadd(2.77062, 12.8112, -50.34, 0.55)
pt3dadd(3.98062, 14.6713, -50.34, 0.28)
pt3dadd(4.48062, 16.1712, -50.34, 0.55)
pt3dadd(7.30062, 19.1612, -50.88, 0.28)
pt3dadd(8.65063, 21.4012, -50.88, 0.83)
pt3dadd(10.6106, 23.6412, -50.88, 0.28)
pt3dadd(12.3406, 25.7712, -49.41, 0.55)
pt3dadd(13.0706, 26.1413, -49.41, 0.55)
pt3dadd(14.2806, 28.6312, -49.72, 0.28)
pt3dadd(15.0206, 30.2412, -49.72, 0.55)
pt3dadd(15.7706, 30.0112, -49.72, 0.55)
pt3dadd(17.1206, 32.2513, -49.72, 0.28)
pt3dadd(18.0806, 33.9912, -49.86, 0.55)
pt3dadd(19.0706, 35.7313, -49.86, 0.55)
pt3dadd(19.9206, 37.1012, -49.86, 0.28)
pt3dadd(20.7806, 38.4712, -48.3, 0.55)
pt3dadd(22.1306, 40.0913, -48.3, 0.28)
pt3dadd(21.1406, 40.8213, -48.3, 0.55)
pt3dadd(21.9906, 41.5713, -48.3, 0.55)
pt3dadd(23.7106, 43.7012, -48.3, 0.55)
pt3dadd(24.8206, 45.8013, -48.3, 0.28)
pt3dadd(26.4206, 46.9412, -48.3, 0.28)
pt3dadd(26.0306, 48.3013, -48.3, 0.28)
pt3dadd(26.4706, 49.1213, -48.63, 0.28)
pt3dadd(26.8406, 49.6312, -48.63, 0.55)
pt3dadd(27.0806, 50.9912, -47.22, 0.28)
pt3dadd(29.0506, 51.9912, -46.82, 0.55)
pt3dadd(29.5506, 52.2513, -46.82, 0.55)
pt3dadd(31.0206, 53.6312, -46.82, 0.28)
pt3dadd(31.7506, 54.6213, -45.65, 0.55)
pt3dadd(32.1206, 55.7313, -45.65, 0.55)
pt3dadd(32.1006, 58.2112, -44.59, 0.28)
pt3dadd(32.6006, 58.4712, -43.95, 0.55)
pt3dadd(33.0806, 59.9513, -43.95, 0.28)
pt3dadd(33.3206, 60.6912, -43.95, 0.55)
pt3dadd(34.9206, 62.4412, -43.18, 0.28)
pt3dadd(35.3906, 63.9412, -40.88, 0.28)
pt3dadd(36.1506, 64.3213, -40.88, 0.55)
pt3dadd(37.1206, 66.0513, -39.25, 0.28)
pt3dadd(37.2306, 67.6713, -39.25, 0.28)
pt3dadd(37.7106, 69.7812, -37.97, 0.55)
pt3dadd(39.1806, 71.1513, -37.81, 0.28)
pt3dadd(40.7906, 72.8913, -39.58, 0.55)
pt3dadd(42.6406, 73.5312, -35.2, 0.55)
pt3dadd(43.3706, 75.1413, -35.33, 0.55)
pt3dadd(43.2306, 77.2513, -35.33, 0.55)
pt3dadd(44.4606, 78.5013, -31.25, 0.55)
pt3dadd(45.6906, 79.7613, -31.25, 0.55)
pt3dadd(47.2906, 81.4913, -31.25, 0.55)
pt3dadd(46.9106, 82.2313, -27.99, 0.55)
pt3dadd(48.1306, 84.7213, -27.99, 0.55)
pt3dadd(48.7406, 85.3413, -23.74, 0.55)
pt3dadd(50.4606, 87.4713, -23.74, 0.55)
pt3dadd(51.2006, 89.0813, -23.74, 0.55)
pt3dadd(53.4106, 90.8313, -23.74, 0.55)
pt3dadd(54.5206, 91.0913, -23.74, 0.55)
pt3dadd(55.1306, 91.7213, -23.27, 0.55)
pt3dadd(55.2506, 93.3313, -23.27, 0.83)
pt3dadd(55.8606, 94.5713, -22.98, 0.55)
pt3dadd(56.2306, 94.4513, -22.98, 0.55)
pt3dadd(56.9606, 95.4513, -22.98, 0.55)
pt3dadd(57.2106, 96.8113, -22.98, 0.55)
pt3dadd(57.6906, 98.3013, -22.98, 0.55)
pt3dadd(57.9306, 100.281, -22.98, 0.55)
pt3dadd(57.9206, 100.891, -22.98, 0.55)
pt3dadd(58.5006, 104.621, -23.88, 0.28)
pt3dadd(58.1206, 105.991, -23.88, 0.55)
pt3dadd(59.8506, 108.091, -25.23, 0.55)
pt3dadd(61.0706, 109.971, -25.23, 0.55)
pt3dadd(61.5706, 110.221, -25.23, 0.55)
pt3dadd(62.2906, 111.221, -23.83, 0.55)
pt3dadd(62.7806, 112.711, -23.83, 0.55)
pt3dadd(62.9106, 113.071, -23.83, 0.55)
pt3dadd(63.6406, 114.081, -23.83, 0.55)
pt3dadd(65.1306, 114.821, -23.83, 0.55)
pt3dadd(65.4806, 117.811, -19.72, 0.55)
pt3dadd(64.2206, 119.661, -19.72, 0.55)
pt3dadd(64.4506, 121.021, -19.72, 0.55)
pt3dadd(63.8206, 123.491, -23.12, 0.55)
pt3dadd(64.4206, 124.741, -23.12, 0.55)
pt3dadd(64.1606, 126.471, -23.12, 0.55)
pt3dadd(64.5306, 127.591, -23.34, 0.55)
pt3dadd(64.5106, 128.821, -23.34, 0.55)
pt3dadd(65.1206, 130.681, -23.34, 0.55)
pt3dadd(65.6206, 131.561, -21.64, 0.55)
}
dend[27] {pt3dclear()
pt3dadd(0.440624, -30.8288, -8.79, 0.55)
pt3dadd(0.590625, -33.5487, -9.36, 0.55)
pt3dadd(1.84063, -35.4087, -9.79, 0.83)
pt3dadd(2.72063, -37.1287, -12.43, 0.83)
pt3dadd(3.60062, -39.4688, -12.43, 1.11)
}
dend[28] {pt3dclear()
pt3dadd(3.60062, -39.4688, -12.43, 0.55)
pt3dadd(1.69062, -39.5687, -12.43, 0.55)
pt3dadd(0.590625, -40.4487, -12.43, 0.55)
pt3dadd(-1.49938, -43.0688, -12.43, 0.55)
pt3dadd(-3.46938, -44.6888, -19.05, 0.55)
pt3dadd(-5.81938, -44.3387, -19.05, 0.55)
pt3dadd(-6.93937, -44.5887, -19.05, 0.55)
pt3dadd(-8.53938, -46.3387, -21.45, 0.55)
pt3dadd(-10.2694, -46.5988, -21.45, 0.55)
pt3dadd(-11.8694, -47.7288, -22.08, 0.83)
pt3dadd(-12.8494, -48.8488, -28.99, 0.28)
pt3dadd(-13.9594, -49.1087, -28.99, 0.28)
pt3dadd(-15.4494, -49.8587, -28.98, 0.55)
pt3dadd(-17.7994, -50.7487, -29.75, 0.28)
pt3dadd(-20.9994, -51.7588, -29.49, 1.11)
pt3dadd(-23.9694, -52.6488, -34.26, 0.55)
pt3dadd(-25.3394, -51.1787, -35.56, 0.55)
pt3dadd(-25.7294, -49.8188, -35.56, 0.55)
pt3dadd(-27.1894, -52.4287, -35.56, 0.55)
pt3dadd(-28.6694, -53.7988, -38.96, 0.83)
pt3dadd(-30.0194, -55.4188, -38.64, 0.55)
pt3dadd(-31.8794, -55.4287, -38.64, 0.55)
pt3dadd(-33.8594, -55.1987, -45.39, 0.28)
pt3dadd(-35.4794, -55.0887, -45.39, 0.55)
pt3dadd(-37.2094, -55.9788, -48.18, 0.28)
pt3dadd(-39.4194, -56.4788, -48.18, 0.83)
pt3dadd(-41.1494, -57.9888, -47.24, 0.28)
pt3dadd(-42.9894, -59.2388, -47.24, 0.28)
pt3dadd(-44.9794, -60.2388, -47.24, 0.28)
pt3dadd(-45.9694, -60.1287, -47.26, 0.55)
pt3dadd(-47.3194, -60.5088, -47.26, 0.55)
pt3dadd(-49.2994, -62.1287, -46.89, 0.28)
pt3dadd(-51.0194, -63.6287, -46.72, 0.83)
pt3dadd(-54.5994, -65.1488, -46.72, 0.28)
pt3dadd(-56.0794, -65.2887, -46.72, 0.55)
pt3dadd(-58.5494, -66.5488, -48.33, 0.28)
pt3dadd(-60.5294, -66.9287, -48.33, 0.83)
pt3dadd(-62.4994, -67.9388, -48.33, 0.28)
pt3dadd(-62.9994, -68.1888, -48.49, 0.55)
pt3dadd(-66.3494, -67.7188, -51.43, 0.28)
pt3dadd(-69.4294, -68.3688, -48.47, 0.83)
pt3dadd(-71.0394, -69.4887, -48.47, 0.28)
pt3dadd(-72.0294, -69.3688, -48.47, 0.55)
pt3dadd(-73.6294, -69.8787, -47, 0.28)
pt3dadd(-75.2594, -69.7687, -47, 0.55)
pt3dadd(-78.0894, -70.8988, -49.72, 0.28)
pt3dadd(-79.2094, -71.1587, -49.72, 0.55)
pt3dadd(-83.2794, -71.6888, -54, 0.28)
pt3dadd(-84.4094, -71.3187, -54, 0.55)
pt3dadd(-87.1294, -70.8487, -53.77, 0.28)
pt3dadd(-89.9694, -70.8887, -53.77, 0.55)
pt3dadd(-91.3394, -70.0287, -57.43, 0.28)
pt3dadd(-94.1894, -69.9287, -57.43, 0.28)
pt3dadd(-96.5494, -69.5788, -57.43, 0.83)
pt3dadd(-98.0394, -69.0887, -57.43, 0.28)
pt3dadd(-98.4094, -68.3487, -57.43, 0.55)
pt3dadd(-98.7894, -66.9987, -58.87, 0.28)
pt3dadd(-98.5494, -66.8688, -58.87, 0.55)
pt3dadd(-99.6694, -65.8887, -58.87, 0.28)
pt3dadd(-100.669, -64.5287, -58.87, 0.55)
pt3dadd(-102.539, -62.6888, -59.6, 0.28)
pt3dadd(-104.529, -61.8387, -59.6, 0.55)
pt3dadd(-107.389, -59.8688, -58.99, 0.28)
pt3dadd(-107.769, -59.7487, -58.99, 0.55)
pt3dadd(-109.389, -59.0187, -58.99, 0.28)
pt3dadd(-112.129, -57.2988, -57.6, 0.55)
pt3dadd(-113.749, -54.0988, -56.61, 0.28)
pt3dadd(-113.879, -53.8488, -56.61, 0.55)
pt3dadd(-114.999, -53.4888, -56.61, 0.28)
pt3dadd(-115.999, -53.3787, -56.61, 0.83)
pt3dadd(-117.749, -51.1587, -56.75, 0.28)
pt3dadd(-118.369, -50.5387, -56.75, 0.55)
pt3dadd(-119.979, -49.8088, -56.75, 0.28)
pt3dadd(-120.099, -49.5688, -56.75, 0.55)
pt3dadd(-122.339, -49.4588, -56.75, 0.28)
pt3dadd(-123.079, -49.2088, -56.75, 0.55)
pt3dadd(-124.829, -48.2388, -56.75, 0.28)
pt3dadd(-126.689, -47.6287, -56.75, 0.55)
pt3dadd(-128.689, -45.5387, -56.75, 0.28)
pt3dadd(-129.559, -45.6688, -56.75, 0.55)
pt3dadd(-131.789, -43.7088, -53.15, 0.28)
pt3dadd(-132.789, -43.5887, -53.15, 0.55)
pt3dadd(-135.399, -42.1287, -53.15, 0.28)
pt3dadd(-136.399, -42.0088, -52.47, 0.83)
pt3dadd(-138.129, -41.6488, -52.47, 0.28)
pt3dadd(-138.509, -41.5187, -52.47, 0.55)
pt3dadd(-140.359, -42.1688, -52.47, 0.28)
pt3dadd(-141.599, -42.1688, -52.46, 0.55)
pt3dadd(-143.949, -43.0588, -52.46, 0.55)
}
dend[29] {pt3dclear()
pt3dadd(3.60062, -39.4688, -12.43, 0.55)
}
}
proc shape3d_6() {
dend[29] { pt3dadd(5.58062, -38.4688, -16.41, 0.55)
pt3dadd(6.82062, -39.6888, -16.45, 0.55)
pt3dadd(7.70062, -40.8088, -16.58, 0.83)
pt3dadd(10.5506, -40.9087, -17.4, 0.55)
pt3dadd(12.8006, -44.1087, -18.65, 1.11)
pt3dadd(16.0306, -44.9487, -19.65, 0.55)
pt3dadd(17.5306, -45.4388, -21.04, 0.55)
pt3dadd(20.1306, -46.2887, -22.37, 0.83)
pt3dadd(21.2406, -45.3988, -22.37, 0.55)
pt3dadd(22.3506, -45.1488, -22.37, 0.55)
pt3dadd(24.2006, -45.1388, -22.37, 0.55)
pt3dadd(25.4306, -42.6587, -23.31, 0.28)
pt3dadd(28.0406, -43.4987, -24.59, 0.83)
pt3dadd(29.7706, -43.2388, -26.81, 0.28)
pt3dadd(31.5106, -42.9788, -26.81, 0.55)
pt3dadd(32.5006, -43.0887, -26.81, 0.28)
pt3dadd(33.9706, -42.9688, -26.81, 0.55)
pt3dadd(35.6906, -41.4588, -27.17, 0.55)
pt3dadd(35.8206, -40.4688, -27.17, 0.28)
pt3dadd(36.8106, -39.9587, -27.17, 0.55)
pt3dadd(38.2906, -38.5887, -27.54, 0.55)
pt3dadd(39.3806, -37.0988, -27.8, 1.11)
pt3dadd(42.3506, -35.5887, -28.21, 0.55)
pt3dadd(44.0806, -35.3288, -28.21, 0.55)
pt3dadd(45.7006, -36.0588, -28.21, 0.55)
pt3dadd(46.1906, -33.9487, -28.94, 0.55)
pt3dadd(48.8906, -33.1787, -28.94, 1.11)
pt3dadd(52.8506, -32.4188, -25.63, 0.83)
pt3dadd(56.6906, -32.0088, -25.63, 1.11)
pt3dadd(59.1606, -31.9888, -25.67, 0.28)
pt3dadd(59.4106, -31.8588, -25.67, 0.55)
pt3dadd(60.5106, -30.3687, -25.67, 0.28)
pt3dadd(61.5006, -29.8588, -25.63, 0.55)
pt3dadd(62.6306, -30.2288, -25.63, 0.28)
pt3dadd(63.7406, -29.9788, -25.63, 0.55)
pt3dadd(66.3306, -28.9688, -25.63, 0.28)
pt3dadd(67.7006, -29.1987, -25.99, 0.83)
pt3dadd(70.5406, -28.6788, -27.73, 0.28)
pt3dadd(73.1306, -27.0588, -27.73, 1.11)
pt3dadd(75.2306, -26.2887, -27.73, 0.28)
pt3dadd(76.3406, -26.0387, -27.62, 0.83)
pt3dadd(77.6906, -23.7987, -30.95, 0.55)
pt3dadd(79.4206, -22.2987, -31.56, 0.55)
pt3dadd(80.7706, -21.9188, -31.56, 0.55)
pt3dadd(82.0006, -20.6688, -28.3, 0.28)
pt3dadd(82.7406, -19.6688, -26.79, 0.55)
pt3dadd(84.2206, -19.5387, -26.79, 0.55)
pt3dadd(85.5706, -18.5387, -26.79, 0.55)
pt3dadd(87.3006, -16.4088, -26.79, 0.55)
pt3dadd(89.2706, -15.4087, -25.91, 0.55)
pt3dadd(90.2506, -14.2787, -25.91, 0.55)
pt3dadd(90.4906, -12.9187, -25.91, 0.55)
pt3dadd(91.5006, -12.3488, -25.91, 0.28)
pt3dadd(92.3706, -11.5988, -25.91, 0.55)
pt3dadd(94.0806, -10.0988, -25.91, 0.28)
pt3dadd(96.1906, -9.33875, -25.91, 0.83)
pt3dadd(98.1606, -8.95875, -25.3, 0.28)
pt3dadd(99.2806, -8.69875, -25.3, 0.28)
pt3dadd(99.7706, -7.81875, -25.3, 0.28)
pt3dadd(100.261, -7.57875, -25.3, 0.28)
pt3dadd(101.261, -7.07875, -25.3, 0.28)
pt3dadd(102.491, -7.06875, -25.3, 0.28)
pt3dadd(103.601, -6.80875, -25.3, 0.55)
pt3dadd(103.971, -5.68875, -25.3, 0.55)
pt3dadd(105.811, -4.43875, -25.3, 0.55)
pt3dadd(107.051, -5.04875, -25.3, 0.55)
pt3dadd(108.161, -4.15875, -24.82, 0.28)
pt3dadd(109.781, -3.66875, -24.82, 0.28)
pt3dadd(111.131, -3.90875, -23.01, 0.28)
pt3dadd(112.371, -3.88875, -23.01, 0.55)
pt3dadd(113.611, -3.25875, -23.01, 0.28)
pt3dadd(113.851, -2.51875, -22.16, 0.28)
pt3dadd(114.591, -2.13875, -22.16, 0.28)
pt3dadd(116.831, -2.24875, -22.16, 0.55)
pt3dadd(119.191, -2.59875, -22.04, 0.28)
pt3dadd(120.781, -1.46875, -22.04, 0.83)
pt3dadd(122.401, -1.58875, -22.03, 0.28)
pt3dadd(123.881, -2.07875, -22.03, 0.83)
pt3dadd(126.351, -0.79875, -21.96, 0.28)
pt3dadd(128.341, -1.65875, -21.96, 0.83)
pt3dadd(130.811, -1.01875, -21.99, 0.55)
pt3dadd(131.661, -0.27875, -21.99, 0.55)
pt3dadd(133.771, -0.13875, -21.99, 0.83)
pt3dadd(136.371, 0.87125, -21.16, 0.28)
pt3dadd(137.861, 1.63125, -21.16, 0.28)
pt3dadd(139.211, 2.02125, -21.16, 0.55)
pt3dadd(140.451, 2.02125, -18.02, 0.55)
pt3dadd(141.811, 1.78125, -18.02, 0.83)
pt3dadd(143.061, 1.17125, -16.78, 0.28)
pt3dadd(144.551, 0.70125, -16.78, 0.28)
pt3dadd(145.771, 1.94125, -16.78, 0.83)
pt3dadd(148.511, 0.84125, -12.32, 0.28)
pt3dadd(149.631, 0.48125, -12.32, 0.55)
pt3dadd(152.341, 3.11125, -9.03, 0.28)
pt3dadd(153.191, 3.86125, -7.33, 0.55)
pt3dadd(155.041, 5.10125, -7.33, 0.28)
pt3dadd(155.291, 6.47125, -7.33, 0.55)
pt3dadd(157.021, 6.73125, -8.09, 0.28)
pt3dadd(157.141, 7.11125, -8.09, 0.55)
pt3dadd(158.611, 8.48125, -8.16, 0.28)
pt3dadd(158.981, 8.36125, -8.16, 0.55)
pt3dadd(159.221, 9.71125, -8.16, 0.28)
pt3dadd(159.471, 10.4712, -8.16, 0.55)
pt3dadd(160.051, 14.1813, -8.65, 0.28)
pt3dadd(159.921, 15.0513, -8.65, 0.55)
pt3dadd(160.031, 17.9012, -8.73, 0.28)
pt3dadd(160.261, 19.2712, -8.73, 0.55)
pt3dadd(162.601, 22.0012, -5.44, 0.28)
pt3dadd(162.721, 22.3813, -5.44, 0.55)
pt3dadd(163.441, 25.2313, -5.44, 0.28)
pt3dadd(163.681, 25.9813, -5.44, 0.55)
pt3dadd(164.051, 27.1012, -5.44, 0.28)
pt3dadd(163.901, 28.5913, -5.44, 0.55)
pt3dadd(164.761, 31.2012, -5.44, 0.28)
pt3dadd(166.231, 33.1812, -2.88, 0.55)
pt3dadd(165.351, 34.9113, -2.88, 0.28)
pt3dadd(165.831, 36.4113, -2.88, 0.55)
pt3dadd(165.581, 36.9012, 0.290001, 0.28)
}
dend[30] {pt3dclear()
pt3dadd(-0.189375, -29.5888, -8.79, 1.38)
pt3dadd(-1.04938, -32.1387, -8.13, 1.38)
pt3dadd(-0.0293749, -33.5487, -8.06, 1.38)
pt3dadd(-1.02937, -35.2388, -8.13, 1.38)
pt3dadd(-2.10937, -39.8288, -7.75, 1.38)
pt3dadd(-3.05938, -44.6787, -7.4, 1.94)
}
dend[31] {pt3dclear()
pt3dadd(-3.05938, -44.6787, -7.4, 1.94)
pt3dadd(-5.16938, -45.4287, -9.57, 1.38)
pt3dadd(-6.52938, -45.1888, -9.57, 1.38)
pt3dadd(-8.00937, -47.1888, -9.57, 1.38)
pt3dadd(-10.8394, -50.1787, -9.57, 1.38)
pt3dadd(-12.0494, -52.6587, -9.57, 1.11)
pt3dadd(-14.2494, -56.8888, -9.36, 1.66)
}
dend[32] {pt3dclear()
pt3dadd(-14.2494, -56.8888, -9.36, 0.55)
pt3dadd(-15.3294, -56.9888, -9.36, 0.55)
pt3dadd(-16.6894, -57.3688, -9.36, 0.28)
pt3dadd(-18.2894, -57.8787, -9.36, 0.55)
pt3dadd(-19.3994, -58.1287, -9.62, 0.28)
pt3dadd(-22.1394, -59.5887, -5.67, 0.55)
pt3dadd(-24.4894, -59.8488, -5.67, 0.55)
pt3dadd(-26.2194, -60.7388, -5.67, 0.55)
pt3dadd(-28.7094, -60.1287, -5.15, 0.55)
pt3dadd(-30.0794, -58.6488, -6.14, 0.55)
pt3dadd(-33.0394, -58.2988, -3.88, 0.28)
pt3dadd(-34.7794, -58.5588, -3.31, 0.55)
pt3dadd(-37.6394, -57.8488, -3.31, 0.55)
pt3dadd(-40.8494, -58.2388, -2.98, 0.83)
pt3dadd(-43.8094, -60.9888, -2.96, 0.55)
pt3dadd(-45.7894, -61.3787, -1.92, 0.28)
pt3dadd(-46.5394, -61.1388, -2.05, 0.55)
pt3dadd(-48.6394, -61.2788, -0.709999, 0.28)
pt3dadd(-48.8794, -62.6388, -0.0899992, 0.55)
pt3dadd(-51.0994, -63.1488, 2.89, 0.83)
pt3dadd(-52.0894, -63.6488, 5.41, 0.55)
pt3dadd(-53.4594, -62.7988, 5.44, 0.55)
pt3dadd(-55.3094, -62.8188, 8.49, 0.55)
pt3dadd(-57.9094, -63.1987, 9.89, 0.28)
pt3dadd(-60.3894, -63.2188, 9.58, 1.38)
pt3dadd(-61.6294, -63.2288, 9.58, 0.28)
pt3dadd(-63.3594, -63.4888, 9.58, 0.83)
pt3dadd(-65.5994, -63.3888, 14.12, 0.28)
pt3dadd(-68.6894, -63.4087, 15.04, 0.55)
pt3dadd(-69.7594, -61.9188, 15.04, 0.28)
pt3dadd(-71.1194, -61.6787, 15.04, 0.55)
pt3dadd(-72.0094, -61.1888, 15.26, 0.28)
pt3dadd(-73.7394, -60.8288, 16.49, 0.83)
pt3dadd(-74.7194, -60.7088, 18.92, 0.28)
pt3dadd(-77.8294, -60.7388, 18.92, 0.55)
pt3dadd(-80.0394, -62.4888, 18.92, 0.55)
pt3dadd(-81.0394, -61.7588, 18.92, 0.55)
pt3dadd(-82.2694, -63.0088, 21.83, 0.28)
pt3dadd(-83.8794, -62.2687, 21.85, 0.83)
pt3dadd(-83.9894, -63.8787, 24.95, 0.28)
pt3dadd(-84.1194, -63.6287, 24.41, 0.28)
pt3dadd(-85.8394, -65.7588, 24.41, 0.55)
pt3dadd(-86.8194, -66.2588, 27.78, 0.28)
pt3dadd(-88.7994, -66.6488, 29.25, 0.55)
pt3dadd(-90.1694, -67.0187, 33.29, 0.28)
pt3dadd(-92.0094, -67.6587, 35.49, 0.55)
pt3dadd(-94.7394, -67.1787, 38, 0.55)
}
dend[33] {pt3dclear()
pt3dadd(-14.2494, -56.8888, -9.36, 1.38)
pt3dadd(-15.3494, -59.0088, -10.21, 1.38)
pt3dadd(-17.0794, -59.2687, -11.78, 1.38)
pt3dadd(-17.9394, -60.0187, -12.01, 1.11)
pt3dadd(-20.2994, -60.2887, -12.79, 1.38)
pt3dadd(-19.7794, -62.5088, -16.86, 1.38)
pt3dadd(-22.2594, -63.1488, -17.5, 1.38)
pt3dadd(-24.9794, -63.9087, -23.48, 1.38)
pt3dadd(-26.3194, -65.5287, -26.25, 1.38)
pt3dadd(-27.1794, -67.5187, -26.25, 1.38)
pt3dadd(-29.7694, -68.5387, -26.25, 1.38)
pt3dadd(-28.7694, -70.5088, -24.21, 1.38)
pt3dadd(-27.5094, -72.3587, -30.85, 1.38)
pt3dadd(-28.6194, -74.4688, -30.85, 1.38)
pt3dadd(-30.7094, -76.4688, -30.85, 1.38)
pt3dadd(-33.6694, -77.9787, -33.17, 1.94)
pt3dadd(-35.3994, -78.8587, -33.17, 1.94)
pt3dadd(-36.7394, -79.8587, -35.37, 0.28)
pt3dadd(-37.3594, -80.4887, -35.37, 0.28)
pt3dadd(-40.0794, -81.2487, -35.37, 1.38)
pt3dadd(-39.8194, -82.9787, -35.37, 0.28)
pt3dadd(-39.4394, -84.9487, -35.37, 1.11)
}
}
proc shape3d_7() {
dend[33] { pt3dadd(-41.2894, -86.2188, -38.66, 0.28)
pt3dadd(-42.6294, -88.4487, -38.07, 1.38)
pt3dadd(-44.7194, -89.8287, -40.03, 0.55)
pt3dadd(-46.8094, -92.4487, -40.27, 0.83)
pt3dadd(-48.5394, -93.3387, -40.78, 0.83)
pt3dadd(-50.1494, -92.5987, -46.56, 0.28)
pt3dadd(-51.2594, -93.4688, -46.56, 0.83)
pt3dadd(-53.3694, -93.6087, -49.37, 0.83)
pt3dadd(-54.8594, -93.1387, -49.37, 0.83)
pt3dadd(-56.5694, -92.5187, -47.76, 0.55)
pt3dadd(-57.0494, -94.6287, -47.24, 0.28)
pt3dadd(-57.6494, -96.4887, -47.24, 1.66)
pt3dadd(-59.2694, -97.6187, -53.67, 0.28)
pt3dadd(-61.6094, -97.2687, -53.67, 0.83)
pt3dadd(-63.7294, -96.1687, -55.4, 0.28)
pt3dadd(-64.2194, -97.6488, -55.4, 0.83)
pt3dadd(-66.0694, -98.9087, -57.69, 0.28)
pt3dadd(-69.0294, -99.7987, -59.28, 1.94)
pt3dadd(-70.0094, -100.919, -60.53, 0.28)
pt3dadd(-70.9994, -102.039, -61.36, 0.83)
pt3dadd(-71.9694, -103.169, -62.97, 0.28)
pt3dadd(-71.8294, -104.649, -62.97, 0.28)
pt3dadd(-71.3294, -106.889, -62.26, 1.38)
pt3dadd(-73.5394, -108.009, -63.03, 0.28)
pt3dadd(-74.0294, -109.499, -63.03, 0.28)
pt3dadd(-75.8794, -110.749, -64.57, 0.55)
pt3dadd(-76.4894, -111.999, -64.57, 0.28)
pt3dadd(-77.8294, -114.229, -64.69, 0.83)
pt3dadd(-79.3094, -114.989, -65.21, 0.28)
pt3dadd(-80.3094, -115.499, -65.21, 0.55)
pt3dadd(-81.4194, -115.129, -65.21, 0.28)
pt3dadd(-83.8894, -116.389, -65.21, 1.11)
pt3dadd(-84.6194, -118.619, -70.08, 0.28)
pt3dadd(-84.5994, -120.479, -70.08, 0.28)
pt3dadd(-86.3294, -121.359, -70.08, 0.28)
pt3dadd(-86.8294, -121.619, -70.77, 0.83)
pt3dadd(-86.3094, -123.219, -70.95, 0.28)
pt3dadd(-86.7794, -127.189, -71.48, 0.83)
pt3dadd(-88.3594, -130.789, -77.22, 0.55)
pt3dadd(-89.2094, -133.399, -77.15, 0.55)
pt3dadd(-89.1894, -136.499, -79.25, 0.28)
pt3dadd(-91.0294, -138.359, -85.61, 0.83)
pt3dadd(-92.0194, -139.489, -88.03, 0.83)
pt3dadd(-93.4894, -140.859, -91.36, 0.83)
pt3dadd(-94.5994, -142.349, -94.05, 0.28)
pt3dadd(-95.3294, -143.969, -94.48, 0.83)
pt3dadd(-97.6794, -144.239, -94.98, 1.11)
pt3dadd(-98.1694, -145.729, -101.32, 0.28)
pt3dadd(-98.2794, -147.959, -99.78, 0.55)
pt3dadd(-99.1194, -150.559, -99.78, 0.55)
pt3dadd(-100.219, -152.069, -97.16, 0.55)
pt3dadd(-99.9494, -155.659, -98.74, 0.55)
pt3dadd(-100.419, -157.149, -98.74, 0.55)
pt3dadd(-99.7994, -158.389, -101.84, 0.28)
pt3dadd(-100.159, -160.119, -101.84, 0.83)
pt3dadd(-99.1494, -162.099, -101.31, 0.28)
pt3dadd(-99.7494, -163.959, -104.13, 0.55)
pt3dadd(-100.359, -165.819, -104.13, 0.55)
pt3dadd(-100.099, -168.169, -107.41, 0.55)
pt3dadd(-100.199, -170.399, -110.09, 0.55)
pt3dadd(-100.929, -172.629, -110.09, 1.11)
pt3dadd(-101.289, -174.369, -109.71, 0.28)
pt3dadd(-100.899, -176.349, -111.95, 0.83)
pt3dadd(-99.7794, -177.959, -112.99, 0.28)
pt3dadd(-100.139, -179.689, -112.99, 0.28)
pt3dadd(-100.979, -182.289, -113.75, 0.55)
pt3dadd(-102.089, -184.409, -114.11, 0.28)
pt3dadd(-103.059, -186.249, -115.93, 0.28)
pt3dadd(-104.409, -186.639, -116.07, 0.83)
pt3dadd(-105.159, -187.629, -118.69, 0.28)
pt3dadd(-105.519, -188.739, -121.3, 0.83)
pt3dadd(-105.619, -192.209, -121.3, 0.83)
pt3dadd(-105.479, -194.319, -121.79, 0.83)
pt3dadd(-105.089, -196.299, -124.25, 0.28)
pt3dadd(-104.079, -198.899, -123.7, 0.55)
}
dend[34] {pt3dclear()
pt3dadd(-104.079, -198.899, -123.7, 0.28)
pt3dadd(-104.779, -201.399, -123.7, 0.28)
pt3dadd(-106.249, -203.999, -123.7, 0.28)
pt3dadd(-107.229, -205.119, -123.61, 0.28)
pt3dadd(-107.719, -205.999, -123, 0.55)
pt3dadd(-107.079, -207.229, -127.14, 0.28)
pt3dadd(-107.459, -207.729, -127.14, 0.28)
pt3dadd(-107.569, -208.709, -125.55, 0.55)
pt3dadd(-108.069, -209.589, -126.36, 0.28)
pt3dadd(-108.679, -210.219, -126.36, 0.55)
pt3dadd(-109.649, -211.969, -126.36, 0.28)
pt3dadd(-110.019, -213.079, -125.12, 0.55)
pt3dadd(-111.729, -216.429, -124.53, 0.28)
pt3dadd(-111.969, -217.189, -124.53, 0.55)
pt3dadd(-111.939, -220.889, -126.75, 0.28)
pt3dadd(-112.309, -221.389, -126.75, 0.55)
pt3dadd(-111.799, -222.999, -126.75, 0.28)
pt3dadd(-112.289, -223.879, -126.75, 0.55)
pt3dadd(-111.649, -226.339, -128.62, 0.28)
pt3dadd(-111.649, -226.969, -128.62, 0.55)
pt3dadd(-110.629, -230.179, -128.41, 0.28)
pt3dadd(-110.869, -230.929, -128.43, 0.55)
pt3dadd(-109.879, -232.279, -127.23, 0.28)
pt3dadd(-109.749, -232.529, -127.23, 0.55)
pt3dadd(-108.989, -233.379, -127.23, 0.28)
pt3dadd(-108.739, -233.869, -127.23, 0.55)
pt3dadd(-108.109, -236.359, -127.51, 0.28)
pt3dadd(-107.979, -236.599, -127.51, 0.55)
pt3dadd(-107.219, -238.089, -127.51, 0.28)
pt3dadd(-107.469, -238.209, -127.51, 0.55)
pt3dadd(-107.339, -239.699, -127.51, 0.28)
pt3dadd(-107.089, -240.189, -127.51, 0.55)
pt3dadd(-106.579, -242.409, -126, 0.28)
pt3dadd(-106.069, -243.399, -126, 0.55)
pt3dadd(-105.679, -244.749, -126, 0.28)
pt3dadd(-105.559, -245.619, -126, 0.55)
pt3dadd(-105.049, -247.839, -129.08, 0.28)
pt3dadd(-105.039, -249.709, -129.08, 0.28)
pt3dadd(-105.029, -250.329, -129.08, 0.28)
pt3dadd(-104.899, -251.189, -129.08, 0.55)
pt3dadd(-104.999, -253.429, -128.36, 0.28)
pt3dadd(-104.999, -254.049, -128.36, 0.55)
pt3dadd(-104.729, -257.019, -127.87, 0.28)
pt3dadd(-105.089, -258.749, -127.87, 0.55)
pt3dadd(-103.919, -265.299, -126.38, 0.28)
pt3dadd(-103.809, -265.559, -126.38, 0.55)
pt3dadd(-102.789, -266.909, -126.71, 0.28)
pt3dadd(-102.539, -268.019, -126.94, 0.55)
pt3dadd(-102.519, -270.499, -125.41, 0.28)
pt3dadd(-102.629, -272.099, -125.41, 0.28)
pt3dadd(-103.749, -272.989, -125.41, 0.55)
pt3dadd(-102.979, -274.469, -124.28, 0.28)
pt3dadd(-105.199, -276.839, -124.28, 0.28)
pt3dadd(-106.179, -277.329, -124.28, 0.55)
}
dend[35] {pt3dclear()
pt3dadd(-104.079, -198.899, -123.7, 0.55)
pt3dadd(-102.209, -200.739, -122.55, 0.55)
pt3dadd(-100.699, -203.699, -122.81, 0.55)
pt3dadd(-99.5594, -206.539, -122.62, 0.28)
pt3dadd(-99.3094, -207.029, -122.62, 0.55)
pt3dadd(-98.5494, -208.509, -120.91, 0.28)
pt3dadd(-98.2994, -209.009, -121.6, 0.55)
pt3dadd(-97.0494, -210.859, -120.91, 0.28)
pt3dadd(-96.6694, -211.599, -120.71, 0.55)
pt3dadd(-94.5394, -213.939, -120.65, 0.55)
pt3dadd(-94.1694, -214.679, -120.65, 0.83)
pt3dadd(-91.9294, -216.649, -114.46, 0.28)
pt3dadd(-90.9294, -217.369, -110.68, 0.55)
pt3dadd(-90.8094, -217.619, -110.68, 0.28)
pt3dadd(-89.9294, -218.719, -110.68, 0.83)
pt3dadd(-88.6794, -219.339, -106.85, 0.28)
pt3dadd(-87.6794, -220.079, -108.43, 0.55)
pt3dadd(-86.9394, -220.319, -108.43, 0.28)
pt3dadd(-86.0394, -221.689, -108.34, 0.28)
pt3dadd(-85.6594, -223.049, -105.92, 0.28)
pt3dadd(-84.7894, -224.159, -103.14, 0.28)
pt3dadd(-83.7994, -224.889, -103.14, 0.83)
}
dend[36] {pt3dclear()
pt3dstyle(1, 0.25338, 0.612098, 0)
pt3dadd(-1.60937, 11.2212, -0.19, 1.11)
pt3dadd(-2.73937, 13.4313, -0.19, 1.11)
pt3dadd(-5.95938, 14.2813, -0.23, 1.11)
pt3dadd(-8.81938, 15.0013, -0.759999, 1.11)
pt3dadd(-10.9394, 17.3412, 0.330001, 0.83)
pt3dadd(-14.0494, 19.8013, 0.330001, 0.83)
}
dend[37] {pt3dclear()
pt3dadd(-14.0494, 19.8013, 0.330001, 0.83)
pt3dadd(-16.0294, 17.5513, -1.21, 0.83)
pt3dadd(-17.4994, 14.9413, 2.93, 0.83)
pt3dadd(-19.3494, 14.9213, 2.88, 0.83)
pt3dadd(-22.1994, 14.4113, 2.88, 0.83)
pt3dadd(-23.6894, 14.9012, 2.86, 0.83)
pt3dadd(-25.4294, 15.2513, 2.82, 0.83)
pt3dadd(-25.6694, 15.1213, 2.82, 0.83)
pt3dadd(-26.7694, 13.0113, 2.82, 0.83)
pt3dadd(-29.3794, 12.6213, -0.469999, 0.83)
pt3dadd(-31.7094, 11.7312, -0.469999, 0.83)
pt3dadd(-32.1894, 10.2413, -0.469999, 0.83)
pt3dadd(-34.6694, 8.98125, -0.469999, 0.83)
pt3dadd(-34.6594, 7.12125, -4.68, 0.83)
pt3dadd(-34.0094, 5.27125, -4.68, 0.83)
pt3dadd(-35.9894, 3.03125, -4.68, 0.83)
pt3dadd(-34.9794, -0.18875, -8.53, 0.83)
pt3dadd(-35.4494, -1.67875, -8.53, 0.83)
pt3dadd(-35.9294, -4.39875, -9.67, 0.83)
pt3dadd(-36.2794, -6.75875, -9.67, 0.83)
pt3dadd(-36.0094, -9.72875, -9.67, 0.83)
pt3dadd(-36.1194, -11.9587, -9.67, 0.83)
pt3dadd(-35.4694, -15.0487, -9.67, 0.83)
pt3dadd(-34.7294, -16.5287, -9.67, 0.83)
pt3dadd(-34.3194, -20.3687, -11.26, 0.83)
pt3dadd(-33.0794, -21.6087, -11.26, 0.83)
pt3dadd(-33.0494, -24.6987, -11.26, 0.83)
pt3dadd(-32.0394, -25.4288, -11.26, 0.83)
pt3dadd(-30.6694, -27.5288, -11.26, 0.83)
pt3dadd(-30.0494, -28.7588, -17.95, 0.83)
pt3dadd(-29.6694, -30.1287, -17.95, 0.83)
pt3dadd(-29.6494, -32.5988, -19.65, 0.28)
pt3dadd(-29.0194, -33.2087, -19.2, 1.38)
pt3dadd(-28.2594, -35.9287, -19.22, 0.28)
pt3dadd(-27.7394, -38.1587, -19.24, 1.11)
pt3dadd(-27.2394, -39.7588, -25.77, 0.28)
pt3dadd(-26.6094, -41.0088, -25.77, 1.11)
pt3dadd(-26.4894, -41.2487, -26.2, 1.11)
pt3dadd(-25.8594, -42.4788, -26.36, 0.28)
pt3dadd(-25.3494, -42.8387, -26.36, 0.28)
pt3dadd(-25.3394, -43.4688, -27.59, 0.28)
pt3dadd(-24.9694, -44.8288, -27.24, 1.66)
}
}
proc shape3d_8() {
dend[37] { pt3dadd(-24.4594, -46.4287, -28.78, 0.28)
pt3dadd(-24.4594, -47.0488, -27.9, 0.55)
pt3dadd(-23.4594, -48.4087, -27.85, 0.28)
pt3dadd(-23.0794, -49.7687, -27.94, 0.55)
pt3dadd(-22.5694, -50.7588, -31.54, 0.28)
pt3dadd(-21.8194, -50.9987, -31.54, 0.28)
pt3dadd(-22.0594, -52.3587, -32.49, 0.83)
pt3dadd(-21.3094, -53.8488, -32.49, 0.83)
pt3dadd(-20.3094, -53.9588, -32.49, 0.83)
pt3dadd(-19.9394, -54.6987, -38.78, 0.28)
pt3dadd(-19.8094, -56.1888, -38.8, 0.28)
pt3dadd(-19.8094, -56.8088, -38.92, 0.55)
pt3dadd(-20.7694, -58.5488, -38.7, 0.28)
pt3dadd(-21.1394, -60.2887, -38.77, 0.55)
pt3dadd(-21.8594, -61.9087, -38.89, 0.28)
pt3dadd(-21.9794, -63.5088, -39.56, 0.55)
pt3dadd(-22.4594, -65.0088, -39.49, 0.28)
pt3dadd(-22.4594, -65.6287, -41.52, 0.55)
pt3dadd(-22.9494, -66.4887, -42.23, 0.28)
pt3dadd(-22.2994, -68.3487, -43.39, 0.83)
pt3dadd(-20.7994, -70.6888, -43.55, 0.28)
pt3dadd(-22.8894, -72.6887, -45.7, 1.11)
pt3dadd(-23.2594, -74.4287, -47.78, 0.55)
pt3dadd(-23.9894, -75.4187, -47.52, 0.83)
pt3dadd(-24.9794, -75.9287, -50.32, 0.28)
pt3dadd(-24.5994, -76.6687, -50.32, 0.28)
pt3dadd(-25.8194, -78.5287, -50.32, 0.55)
pt3dadd(-26.1794, -80.2587, -53.08, 0.28)
pt3dadd(-25.7994, -81.6287, -53.08, 0.55)
pt3dadd(-25.7894, -82.8687, -56.68, 0.28)
pt3dadd(-26.2694, -84.9688, -53.76, 0.55)
pt3dadd(-25.2694, -86.3387, -56.08, 0.28)
pt3dadd(-24.6394, -87.5587, -56.6, 0.55)
pt3dadd(-25.6294, -88.6887, -59.82, 0.28)
pt3dadd(-26.0994, -90.7987, -59.96, 0.55)
pt3dadd(-25.8094, -90.7587, -61.97, 0.55)
pt3dadd(-26.7994, -92.4987, -63.27, 0.28)
pt3dadd(-26.9094, -93.4987, -63.27, 0.55)
pt3dadd(-27.1494, -94.2287, -62, 0.28)
pt3dadd(-27.7594, -96.0987, -62, 0.55)
pt3dadd(-28.3794, -97.3487, -62, 0.28)
pt3dadd(-29.2194, -98.7087, -62, 0.55)
pt3dadd(-28.4694, -100.199, -62, 0.28)
pt3dadd(-28.8294, -100.699, -62, 0.55)
pt3dadd(-29.8194, -102.439, -65.35, 0.28)
pt3dadd(-29.3194, -102.809, -65.35, 0.55)
pt3dadd(-29.6794, -103.929, -65.12, 0.28)
pt3dadd(-29.6594, -105.779, -64.69, 0.55)
pt3dadd(-30.2694, -107.649, -65.09, 0.28)
pt3dadd(-29.6394, -108.879, -68.29, 0.28)
pt3dadd(-29.3794, -110.609, -68.29, 0.28)
pt3dadd(-29.9894, -112.469, -68.29, 0.55)
pt3dadd(-30.9494, -116.069, -70.1, 0.28)
pt3dadd(-31.3094, -117.799, -70.1, 0.55)
pt3dadd(-31.2994, -119.669, -68.95, 0.28)
pt3dadd(-31.5294, -120.419, -68.95, 0.55)
pt3dadd(-32.4994, -124.629, -70.27, 0.28)
pt3dadd(-31.9894, -126.229, -70.25, 0.83)
pt3dadd(-32.9394, -131.699, -72.19, 0.28)
pt3dadd(-32.1794, -133.179, -72.23, 0.55)
pt3dadd(-32.2994, -135.409, -74.39, 0.28)
pt3dadd(-32.1594, -136.889, -74.33, 0.55)
pt3dadd(-31.5194, -138.749, -74.29, 0.28)
pt3dadd(-32.0094, -139.619, -74.26, 0.55)
pt3dadd(-32.1294, -140.609, -74.2, 0.55)
pt3dadd(-31.4994, -141.839, -75.23, 0.28)
pt3dadd(-32.7194, -143.089, -75.14, 0.55)
pt3dadd(-33.0594, -147.299, -75.33, 0.28)
pt3dadd(-33.5494, -149.409, -75.28, 0.55)
pt3dadd(-34.0294, -150.909, -76.56, 0.28)
pt3dadd(-34.1394, -152.519, -76.56, 0.55)
pt3dadd(-34.7494, -153.769, -75.76, 0.28)
pt3dadd(-34.8694, -154.749, -76.35, 0.55)
pt3dadd(-35.0994, -156.119, -75.88, 0.28)
pt3dadd(-34.8494, -156.609, -78.31, 0.55)
pt3dadd(-35.8294, -158.359, -78.31, 0.28)
pt3dadd(-35.6994, -159.839, -77.05, 0.83)
pt3dadd(-36.4994, -163.339, -79.3, 0.28)
pt3dadd(-36.8694, -163.819, -79.33, 0.55)
pt3dadd(-36.3594, -165.429, -79.33, 0.28)
pt3dadd(-36.7194, -167.179, -79.33, 0.55)
pt3dadd(-36.5794, -168.659, -81.34, 0.28)
pt3dadd(-36.3294, -169.759, -81.34, 0.55)
pt3dadd(-35.9294, -171.739, -81.05, 0.28)
pt3dadd(-34.9494, -172.489, -79.96, 0.28)
pt3dadd(-34.1794, -173.959, -79.77, 0.55)
pt3dadd(-33.6694, -176.809, -78.88, 0.28)
pt3dadd(-33.0394, -177.419, -81.98, 0.55)
pt3dadd(-31.6694, -179.519, -81.98, 0.28)
pt3dadd(-31.4194, -180.009, -81.98, 0.55)
}
dend[38] {pt3dclear()
pt3dadd(-14.0494, 19.8013, 0.330001, 0.83)
pt3dadd(-15.3894, 23.0212, -0.419999, 0.83)
pt3dadd(-13.9094, 24.4012, -0.419999, 0.83)
pt3dadd(-14.0494, 25.8812, -0.419999, 0.83)
pt3dadd(-16.6694, 27.9712, 5.34, 0.83)
pt3dadd(-17.4294, 30.6912, 5.09, 0.83)
pt3dadd(-18.4394, 33.9012, 5.04, 0.83)
pt3dadd(-21.6894, 35.9813, 12.01, 0.83)
pt3dadd(-23.3094, 37.9613, 14.26, 0.83)
pt3dadd(-27.2794, 39.0312, 15.28, 0.83)
pt3dadd(-30.2894, 43.1012, 16.74, 0.83)
pt3dadd(-31.7994, 46.0612, 20.34, 0.83)
pt3dadd(-31.8094, 47.3013, 20.36, 0.83)
pt3dadd(-33.1794, 48.1512, 20.43, 0.83)
}
dend[39] {pt3dclear()
pt3dadd(-33.1794, 48.1512, 20.43, 0.55)
pt3dadd(-37.0194, 48.3713, 23.64, 0.55)
pt3dadd(-38.7594, 49.3612, 23.64, 0.55)
pt3dadd(-40.8794, 50.4512, 23.64, 0.55)
pt3dadd(-43.0894, 48.7113, 23.64, 0.55)
pt3dadd(-44.7094, 50.0513, 23.64, 0.55)
pt3dadd(-46.6894, 50.2812, 23.64, 0.55)
pt3dadd(-48.8994, 47.3013, 27.41, 0.55)
pt3dadd(-51.3794, 46.6512, 30.79, 0.55)
pt3dadd(-52.9894, 46.7712, 30.79, 0.55)
pt3dadd(-53.7094, 45.1512, 30.79, 0.55)
pt3dadd(-56.3194, 44.7513, 30.79, 0.55)
pt3dadd(-58.9094, 44.9912, 31.62, 0.55)
}
dend[40] {pt3dclear()
pt3dadd(-33.1794, 48.1512, 20.43, 0.55)
pt3dadd(-31.8294, 51.0212, 24.73, 0.55)
pt3dadd(-32.6994, 51.5112, 24.73, 0.55)
pt3dadd(-32.0994, 52.7513, 24.73, 0.55)
pt3dadd(-31.7294, 52.6413, 24.73, 0.55)
pt3dadd(-32.8394, 53.6112, 27.1, 0.55)
pt3dadd(-34.2094, 55.0812, 27.1, 0.55)
pt3dadd(-34.5994, 55.8312, 26.77, 0.55)
pt3dadd(-34.9794, 57.1912, 26.77, 0.55)
pt3dadd(-34.3694, 58.4213, 26.77, 0.55)
}
dend[41] {pt3dclear()
pt3dstyle(1, 0.25338, 0.612098, 0)
pt3dadd(-1.99938, -4.52875, -13.53, 0.83)
pt3dadd(-3.25938, -5.15875, -13.53, 0.83)
pt3dadd(-3.12938, -4.78875, -16.24, 0.83)
pt3dadd(-3.25938, -3.28875, -16.24, 0.83)
pt3dadd(-2.52937, -1.67875, -16.24, 0.83)
pt3dadd(-1.67938, -0.29875, -16.24, 0.83)
pt3dadd(-2.79938, 0.67125, -16.24, 0.83)
pt3dadd(-5.16938, 2.26125, -16.24, 0.83)
pt3dadd(-6.91938, 4.48125, -29.32, 0.83)
pt3dadd(-6.79938, 4.86125, -29.32, 0.83)
}
dend[42] {pt3dclear()
pt3dadd(-6.79938, 4.86125, -29.32, 0.55)
pt3dadd(-8.53938, 6.72125, -28.37, 0.55)
pt3dadd(-8.89938, 4.99125, -34.21, 0.55)
pt3dadd(-9.00937, 3.38125, -34.21, 0.55)
pt3dadd(-10.1294, 4.36125, -34.21, 0.55)
pt3dadd(-11.3794, 4.97125, -34.21, 0.55)
pt3dadd(-12.2394, 4.22125, -39.36, 0.55)
pt3dadd(-13.4594, 2.34125, -39.36, 0.55)
pt3dadd(-14.1994, 1.35125, -39.36, 0.55)
pt3dadd(-15.8094, 1.47125, -42.84, 0.55)
pt3dadd(-17.5694, 4.30125, -47.53, 1.11)
pt3dadd(-18.4094, 2.31125, -54.02, 0.83)
pt3dadd(-19.2694, 0.94125, -54.02, 0.83)
pt3dadd(-20.1294, -0.41875, -54.02, 0.83)
pt3dadd(-20.8794, 0.43125, -60.9, 0.83)
pt3dadd(-22.1094, -0.18875, -60.9, 0.83)
pt3dadd(-23.5894, -1.55875, -60.9, 0.83)
pt3dadd(-23.2494, -1.89875, -60.96, 0.83)
}
dend[43] {pt3dclear()
pt3dadd(-23.2494, -1.89875, -60.96, 0.28)
pt3dadd(-23.1094, -4.00875, -61.07, 0.28)
pt3dadd(-21.3694, -4.99875, -61.07, 0.83)
pt3dadd(-21.4794, -6.59875, -61.07, 0.28)
pt3dadd(-21.9494, -9.32875, -60.86, 0.83)
pt3dadd(-20.5794, -12.0387, -64.72, 0.28)
pt3dadd(-20.8094, -14.0287, -64.85, 0.83)
pt3dadd(-21.4094, -15.2787, -68.19, 0.28)
pt3dadd(-20.1594, -17.7388, -68.33, 0.83)
pt3dadd(-19.1494, -19.6987, -70.7, 0.28)
pt3dadd(-19.1394, -21.5688, -71.03, 0.83)
pt3dadd(-18.6294, -23.1688, -72.73, 0.28)
pt3dadd(-18.7594, -22.9188, -72.73, 0.55)
pt3dadd(-17.8794, -23.4188, -72.7, 0.28)
pt3dadd(-18.1194, -24.1688, -72.7, 0.55)
pt3dadd(-17.1294, -24.8988, -72.68, 0.28)
pt3dadd(-15.9994, -26.4988, -72.68, 1.38)
pt3dadd(-14.6194, -28.5988, -74.07, 0.28)
pt3dadd(-13.1294, -29.6987, -74.27, 0.28)
pt3dadd(-11.6194, -32.6688, -73.7, 1.38)
pt3dadd(-10.6194, -34.0187, -74.81, 0.28)
pt3dadd(-10.4994, -34.2687, -74.81, 0.55)
pt3dadd(-9.85938, -35.4888, -75.21, 0.28)
pt3dadd(-8.84937, -36.8488, -75.21, 0.55)
pt3dadd(-6.36938, -38.0788, -73.16, 0.28)
pt3dadd(-5.74938, -39.3088, -73.16, 0.83)
pt3dadd(-4.85938, -41.6488, -75.54, 0.28)
pt3dadd(-4.22937, -42.8787, -75.54, 0.83)
pt3dadd(-3.23937, -43.6188, -77.12, 0.28)
pt3dadd(-3.48937, -44.3688, -77.12, 0.55)
pt3dadd(-2.09938, -46.4688, -78.48, 0.28)
pt3dadd(-1.45938, -48.9388, -77.6, 0.55)
pt3dadd(-0.439375, -51.5288, -77.6, 1.66)
pt3dadd(1.12062, -54.1688, -77.6, 0.28)
pt3dadd(4.48062, -56.4987, -77.6, 0.83)
pt3dadd(5.98062, -58.8488, -77.6, 0.28)
pt3dadd(6.61062, -60.0788, -77.6, 0.83)
pt3dadd(8.97062, -60.4388, -78.26, 0.28)
pt3dadd(9.73063, -61.9188, -78.26, 0.55)
pt3dadd(11.8406, -62.3888, -78.26, 0.55)
pt3dadd(14.0906, -64.9688, -78.26, 0.28)
pt3dadd(15.5706, -64.8387, -78.26, 0.83)
pt3dadd(17.9306, -65.8187, -79.15, 0.28)
pt3dadd(18.0506, -66.0687, -79.15, 0.83)
}
}
proc shape3d_9() {
dend[43] { }
dend[44] {pt3dclear()
pt3dadd(18.0506, -66.0687, -79.15, 0.28)
pt3dadd(19.6606, -65.5488, -79.2, 0.28)
pt3dadd(20.5306, -65.4187, -79.2, 0.55)
pt3dadd(22.1406, -66.1587, -79.15, 0.28)
pt3dadd(22.5206, -66.2687, -79.15, 0.55)
pt3dadd(23.8906, -67.1287, -79.6, 0.28)
pt3dadd(25.0006, -67.4987, -79.6, 0.55)
pt3dadd(26.0006, -68.8487, -79.72, 0.28)
pt3dadd(26.8806, -69.3487, -79.72, 0.55)
pt3dadd(28.9806, -69.8187, -79.48, 0.28)
pt3dadd(28.7406, -69.9287, -79.55, 0.55)
pt3dadd(30.6106, -71.1687, -80.34, 0.28)
pt3dadd(30.9806, -71.2887, -80.36, 0.55)
pt3dadd(32.3506, -72.1387, -80.31, 0.28)
pt3dadd(32.8606, -73.1287, -80.31, 0.83)
pt3dadd(34.2106, -73.3687, -79.6, 0.28)
pt3dadd(34.8406, -73.9787, -79.6, 0.55)
pt3dadd(36.9506, -74.4688, -77.76, 0.28)
pt3dadd(37.9406, -74.5787, -77.74, 0.55)
pt3dadd(39.0606, -74.9487, -78.07, 0.28)
pt3dadd(40.3106, -75.5487, -78.07, 0.55)
pt3dadd(42.3106, -77.6387, -78.56, 0.28)
pt3dadd(43.0506, -79.1187, -78.56, 0.55)
pt3dadd(44.3006, -80.3587, -74.59, 0.28)
pt3dadd(44.7906, -80.1087, -74.59, 0.55)
pt3dadd(46.4106, -80.2188, -74.55, 0.28)
pt3dadd(47.2906, -81.9487, -74.55, 0.83)
pt3dadd(49.0406, -82.9187, -71.21, 0.28)
pt3dadd(50.4006, -83.1587, -71.11, 0.55)
pt3dadd(51.2706, -84.8787, -69.72, 0.28)
pt3dadd(51.7706, -85.2487, -69.72, 0.83)
pt3dadd(54.2806, -88.3287, -68.77, 0.28)
pt3dadd(55.1306, -88.8988, -68.16, 0.83)
pt3dadd(56.3706, -90.7387, -67.71, 0.28)
pt3dadd(57.0006, -91.9688, -67.71, 0.55)
pt3dadd(58.3706, -92.8287, -69.03, 0.28)
pt3dadd(58.9906, -92.8287, -69.03, 0.83)
pt3dadd(60.7406, -95.0487, -68.97, 0.28)
pt3dadd(61.3706, -95.6488, -68.97, 0.55)
pt3dadd(62.1206, -96.5287, -68.94, 0.28)
pt3dadd(62.3706, -97.0187, -68.99, 0.55)
pt3dadd(64.1306, -99.2287, -71.26, 0.28)
pt3dadd(64.6206, -99.5987, -72.01, 0.55)
pt3dadd(64.8706, -100.709, -73.65, 0.28)
pt3dadd(65.3706, -101.079, -73.72, 0.83)
pt3dadd(67.4906, -102.799, -75.35, 0.28)
pt3dadd(67.3706, -103.169, -75.59, 0.55)
pt3dadd(68.0006, -105.659, -80.39, 0.28)
pt3dadd(69.3806, -107.119, -80.45, 0.55)
}
dend[45] {pt3dclear()
pt3dadd(18.0506, -66.0687, -79.15, 0.28)
pt3dadd(19.4206, -69.4688, -79.15, 0.28)
pt3dadd(19.6706, -70.5887, -79.15, 0.83)
pt3dadd(19.6906, -72.4387, -79.89, 0.28)
pt3dadd(20.4506, -73.2987, -80.62, 0.55)
pt3dadd(21.0706, -74.5387, -82.54, 0.28)
pt3dadd(19.4606, -75.6587, -82.73, 0.55)
pt3dadd(18.3406, -74.6787, -85.3, 0.28)
pt3dadd(18.3606, -76.5387, -85.3, 0.83)
pt3dadd(15.1406, -76.9387, -88.75, 0.28)
pt3dadd(13.9106, -78.1887, -88.75, 0.55)
pt3dadd(13.8006, -79.1687, -88.9, 0.28)
pt3dadd(12.8006, -79.0487, -88.9, 0.55)
pt3dadd(11.9506, -79.7987, -91.07, 0.28)
pt3dadd(11.4506, -80.0587, -91.07, 0.55)
pt3dadd(11.8406, -81.4187, -91.07, 0.28)
pt3dadd(11.1006, -83.0287, -91.07, 0.55)
pt3dadd(9.75062, -84.0387, -93.18, 0.28)
pt3dadd(9.13062, -84.6587, -92.14, 0.83)
pt3dadd(9.14062, -86.5187, -92.13, 0.28)
pt3dadd(8.42062, -87.5187, -92.13, 0.55)
pt3dadd(9.29062, -88.6287, -92.49, 0.28)
pt3dadd(8.92062, -89.7287, -92.46, 0.55)
pt3dadd(9.43062, -91.3387, -96.41, 0.28)
pt3dadd(8.56063, -92.0987, -96.87, 0.83)
pt3dadd(8.33062, -92.8487, -97.29, 0.28)
pt3dadd(8.22062, -93.8387, -97.29, 0.55)
pt3dadd(6.98062, -95.6987, -96.87, 0.28)
pt3dadd(6.87063, -96.6887, -96.87, 0.55)
pt3dadd(6.63062, -98.6787, -95.71, 0.28)
pt3dadd(5.65062, -99.1787, -95.71, 0.55)
pt3dadd(5.54062, -100.789, -98.1, 0.28)
pt3dadd(4.31062, -102.039, -98.1, 0.83)
pt3dadd(3.70062, -103.899, -98.26, 0.28)
pt3dadd(3.83062, -104.779, -98.26, 0.55)
pt3dadd(3.22063, -106.639, -100.72, 0.28)
pt3dadd(2.00062, -108.509, -100.72, 0.55)
pt3dadd(1.39062, -109.739, -102.07, 0.28)
pt3dadd(1.89062, -110.729, -101.15, 0.83)
pt3dadd(2.54062, -113.829, -100.06, 0.28)
pt3dadd(2.92062, -114.569, -100.06, 0.55)
pt3dadd(2.69062, -117.789, -100.1, 0.28)
pt3dadd(2.33062, -118.289, -100.44, 0.55)
pt3dadd(1.84063, -119.769, -102.99, 0.28)
pt3dadd(1.10062, -120.779, -102.99, 0.55)
pt3dadd(1.36063, -121.879, -102.19, 0.28)
pt3dadd(0.500625, -122.639, -102.19, 0.55)
pt3dadd(0.880625, -123.369, -102.8, 0.28)
pt3dadd(0.520625, -124.499, -102.8, 0.55)
pt3dadd(-0.349376, -125.869, -102.33, 0.28)
pt3dadd(-0.579375, -127.849, -102.33, 0.55)
pt3dadd(-0.189375, -130.449, -102.13, 0.28)
pt3dadd(-0.539375, -132.809, -102.13, 0.55)
pt3dadd(-0.149375, -135.399, -104.62, 0.28)
pt3dadd(-0.639376, -136.269, -104.62, 0.55)
pt3dadd(-1.60937, -138.019, -103.68, 0.28)
pt3dadd(-2.47937, -139.379, -103.65, 0.28)
pt3dadd(-2.70938, -140.129, -103.65, 0.55)
pt3dadd(-4.19938, -140.269, -104.43, 0.28)
pt3dadd(-5.30938, -141.139, -103.11, 0.55)
pt3dadd(-7.01937, -143.869, -103.08, 0.28)
pt3dadd(-7.99937, -144.379, -102.49, 0.83)
pt3dadd(-10.3494, -145.879, -101.67, 0.28)
pt3dadd(-11.0794, -148.119, -101.67, 0.28)
pt3dadd(-13.1794, -148.889, -101.67, 0.55)
pt3dadd(-13.0294, -152.219, -102.13, 0.28)
pt3dadd(-13.9994, -154.579, -102.13, 0.55)
pt3dadd(-15.2194, -156.449, -101.61, 0.28)
pt3dadd(-15.8294, -157.699, -101.61, 0.55)
pt3dadd(-17.0494, -159.349, -102.4, 0.28)
pt3dadd(-17.5294, -160.839, -102.4, 0.55)
pt3dadd(-17.7594, -162.199, -99.11, 0.28)
pt3dadd(-17.4994, -163.939, -99.09, 0.55)
pt3dadd(-16.6194, -165.659, -95.14, 0.28)
pt3dadd(-17.4694, -167.659, -93.13, 0.83)
}
dend[46] {pt3dclear()
pt3dadd(-23.2494, -1.89875, -60.96, 0.55)
pt3dadd(-23.7094, -2.56875, -70.15, 0.55)
pt3dadd(-24.5694, -3.30875, -70.17, 0.55)
pt3dadd(-26.4094, -4.56875, -70.17, 0.55)
pt3dadd(-26.1594, -6.29875, -74.95, 0.55)
pt3dadd(-27.6394, -7.04875, -74.97, 0.55)
pt3dadd(-27.9094, -4.69875, -82.56, 0.55)
pt3dadd(-28.1594, -2.96875, -82.56, 0.55)
pt3dadd(-28.9094, -1.47875, -88.26, 0.28)
pt3dadd(-29.0494, -0.61875, -89.14, 0.55)
pt3dadd(-29.0494, 0.0112501, -89.14, 0.55)
pt3dadd(-29.5494, 0.99125, -93.99, 0.55)
pt3dadd(-30.7894, 0.97125, -97.48, 0.55)
pt3dadd(-31.2894, 1.97125, -97.63, 0.55)
pt3dadd(-31.7994, 2.33125, -99.87, 0.55)
pt3dadd(-32.6594, 2.21125, -111.05, 0.28)
pt3dadd(-33.6594, 2.31125, -110.39, 0.55)
pt3dadd(-35.1294, 0.95125, -110.47, 0.28)
pt3dadd(-35.8694, 1.18125, -110.47, 0.55)
pt3dadd(-37.3594, 1.05125, -114.75, 0.28)
pt3dadd(-38.4794, 0.79125, -114.77, 0.55)
pt3dadd(-40.0894, 1.52125, -124.34, 0.28)
pt3dadd(-40.9594, 1.40125, -124.34, 0.55)
pt3dadd(-42.7094, 2.38125, -124.34, 0.28)
pt3dadd(-43.3194, 2.38125, -124.34, 0.55)
pt3dadd(-45.2994, 2.60125, -127.14, 0.28)
pt3dadd(-46.4094, 2.97125, -128.03, 0.55)
pt3dadd(-47.1594, 1.97125, -128.03, 0.55)
pt3dadd(-48.6494, 3.07125, -132.57, 0.55)
pt3dadd(-49.8894, 3.06125, -132.57, 0.55)
pt3dadd(-50.8794, 3.80125, -132.57, 0.55)
pt3dadd(-52.1294, 4.41125, -136.87, 0.28)
pt3dadd(-52.7494, 5.02125, -136.88, 0.55)
pt3dadd(-54.3794, 7.61125, -137.97, 0.28)
pt3dadd(-55.0094, 8.23125, -137.97, 0.55)
pt3dadd(-56.2594, 9.46125, -140.3, 0.28)
pt3dadd(-57.6294, 10.9313, -139.97, 0.28)
pt3dadd(-58.0094, 11.6713, -139.97, 0.55)
pt3dadd(-58.8794, 12.7913, -141.44, 0.28)
pt3dadd(-59.3794, 13.1512, -141.49, 0.55)
pt3dadd(-60.2594, 13.6313, -140.28, 0.28)
pt3dadd(-60.6294, 13.7613, -140.28, 0.55)
}
dend[47] {pt3dclear()
pt3dadd(-6.79938, 4.86125, -29.32, 0.83)
pt3dadd(-7.17938, 8.07125, -29.32, 0.83)
pt3dadd(-7.57938, 11.2913, -29.32, 0.83)
pt3dadd(-6.23938, 13.5313, -29.32, 0.83)
pt3dadd(-6.63938, 16.7512, -29.32, 0.83)
pt3dadd(-7.03938, 21.2013, -29.32, 0.83)
pt3dadd(-7.67937, 24.3013, -32.22, 0.83)
pt3dadd(-7.07938, 26.7812, -33.71, 0.83)
pt3dadd(-8.09937, 30.6112, -33.71, 0.83)
pt3dadd(-6.65938, 35.7012, -33.74, 0.83)
pt3dadd(-7.54938, 39.2812, -33.74, 0.83)
pt3dadd(-9.29938, 42.1213, -33.74, 0.83)
pt3dadd(-9.44938, 45.4712, -33.74, 0.83)
pt3dadd(-8.09937, 46.4613, -33.74, 0.83)
pt3dadd(-9.35938, 48.9412, -33.74, 0.83)
pt3dadd(-9.24937, 51.7912, -33.74, 0.83)
pt3dadd(-9.37938, 54.1312, -33.78, 0.55)
pt3dadd(-7.16938, 56.5012, -33.78, 1.11)
pt3dadd(-6.80938, 58.2313, -34.9, 0.83)
pt3dadd(-7.07938, 61.8312, -34.9, 0.83)
pt3dadd(-6.98938, 65.9113, -34.9, 0.83)
pt3dadd(-6.63938, 68.8913, -34.64, 0.83)
pt3dadd(-6.17938, 72.8713, -34.64, 0.83)
pt3dadd(-4.58938, 75.8512, -34.64, 0.83)
pt3dadd(-4.84938, 77.5713, -34.64, 0.83)
pt3dadd(-3.49938, 79.8213, -34.64, 0.83)
pt3dadd(-2.28938, 82.9313, -34.64, 0.83)
pt3dadd(-2.31937, 86.6413, -34.64, 0.83)
pt3dadd(-2.95938, 90.3613, -34.64, 0.83)
pt3dadd(-1.86937, 93.0813, -34.64, 0.83)
pt3dadd(-3.38938, 96.6713, -34.64, 0.83)
pt3dadd(-4.89937, 100.871, -39.06, 0.83)
pt3dadd(-4.90938, 101.491, -39.06, 0.83)
pt3dadd(-6.30938, 106.681, -40.22, 0.83)
}
}
proc shape3d_10() {
dend[47] { pt3dadd(-5.95938, 108.421, -41.05, 0.83)
pt3dadd(-5.96938, 110.891, -42.72, 0.83)
pt3dadd(-8.96938, 114.961, -42.72, 0.83)
pt3dadd(-7.69938, 117.961, -48.19, 0.83)
pt3dadd(-8.45938, 120.071, -48.19, 0.83)
pt3dadd(-6.86938, 121.811, -48.19, 0.83)
pt3dadd(-6.00938, 123.171, -48.19, 0.83)
pt3dadd(-6.65938, 126.271, -50.69, 0.83)
pt3dadd(-3.07938, 129.641, -48.16, 0.83)
pt3dadd(-2.59938, 131.131, -50.69, 0.83)
pt3dadd(-1.75938, 134.361, -49.96, 0.83)
pt3dadd(-1.78938, 138.061, -51.19, 0.83)
pt3dadd(-2.30938, 141.541, -49.87, 0.83)
pt3dadd(-2.83938, 145.621, -48.42, 0.83)
pt3dadd(-2.86937, 149.331, -48.45, 0.83)
pt3dadd(-6.09938, 150.791, -48.45, 0.83)
pt3dadd(-6.96938, 152.531, -48.45, 0.83)
pt3dadd(-8.60938, 155.731, -51.12, 0.83)
pt3dadd(-8.13938, 159.081, -52.94, 0.83)
pt3dadd(-10.8694, 158.941, -52.94, 0.83)
pt3dadd(-12.3694, 161.281, -52.94, 0.83)
pt3dadd(-13.1194, 162.761, -52.94, 0.83)
pt3dadd(-12.8894, 164.131, -52.94, 0.83)
pt3dadd(-13.7594, 166.471, -58.47, 0.83)
pt3dadd(-12.5594, 169.591, -59.01, 1.11)
pt3dadd(-10.9694, 171.951, -64.4, 0.83)
pt3dadd(-11.7194, 174.051, -64.4, 0.83)
}
dend[48] {pt3dclear()
pt3dadd(-11.7194, 174.051, -64.4, 0.28)
pt3dadd(-13.5794, 174.181, -64.76, 0.28)
pt3dadd(-13.9694, 176.151, -64.76, 0.28)
pt3dadd(-14.2294, 176.651, -64.4, 0.55)
pt3dadd(-14.7294, 177.641, -66.39, 0.28)
pt3dadd(-15.8494, 178.621, -67.03, 0.55)
pt3dadd(-17.3394, 179.111, -67.03, 0.55)
pt3dadd(-15.2394, 180.481, -69.44, 0.28)
pt3dadd(-16.5994, 180.731, -69.44, 0.28)
pt3dadd(-17.9794, 181.581, -69.47, 0.55)
pt3dadd(-19.4694, 182.691, -69.47, 0.55)
pt3dadd(-21.3394, 183.901, -74.79, 0.28)
pt3dadd(-22.3194, 183.401, -75.16, 0.55)
pt3dadd(-22.5894, 184.521, -74.84, 0.28)
pt3dadd(-22.9594, 185.261, -74.84, 0.55)
pt3dadd(-23.5794, 187.111, -77.86, 0.28)
pt3dadd(-24.0994, 188.711, -79.87, 0.55)
pt3dadd(-25.0994, 189.461, -79.87, 0.28)
pt3dadd(-24.8594, 190.211, -79.87, 0.55)
pt3dadd(-25.3594, 191.191, -79.87, 0.28)
pt3dadd(-26.6094, 192.411, -79.87, 0.55)
pt3dadd(-26.6194, 193.661, -79.87, 0.28)
pt3dadd(-27.4794, 194.141, -81.59, 0.28)
pt3dadd(-28.2494, 195.611, -83.11, 0.28)
pt3dadd(-27.7594, 197.121, -83.11, 0.28)
pt3dadd(-27.6394, 198.101, -82.99, 0.55)
pt3dadd(-29.5194, 199.951, -84.57, 0.55)
pt3dadd(-30.3894, 201.061, -85.99, 0.83)
pt3dadd(-30.8894, 202.051, -85.99, 0.83)
pt3dadd(-33.0694, 204.861, -87.51, 0.55)
pt3dadd(-34.1794, 205.841, -87.51, 0.83)
pt3dadd(-35.1894, 207.201, -85.36, 0.28)
pt3dadd(-35.8094, 208.441, -85.36, 0.28)
pt3dadd(-36.4494, 209.061, -85.36, 0.28)
pt3dadd(-36.4594, 210.911, -85.36, 0.28)
pt3dadd(-37.8194, 211.771, -86.13, 0.55)
pt3dadd(-38.6994, 212.261, -86.13, 0.55)
pt3dadd(-39.8194, 213.231, -86.13, 0.55)
pt3dadd(-40.6894, 214.351, -86.13, 0.55)
pt3dadd(-40.9394, 214.841, -85.62, 0.28)
pt3dadd(-42.4294, 215.321, -85.68, 0.55)
pt3dadd(-44.0494, 216.061, -85.68, 0.55)
pt3dadd(-45.7994, 217.031, -85.68, 0.83)
pt3dadd(-46.7794, 217.151, -85.71, 0.28)
pt3dadd(-47.6494, 217.641, -85.71, 0.55)
pt3dadd(-48.7694, 218.011, -85.71, 0.55)
pt3dadd(-49.3994, 218.611, -88.34, 0.55)
pt3dadd(-50.7794, 220.081, -88.34, 0.55)
pt3dadd(-51.1394, 220.211, -86.14, 0.28)
pt3dadd(-52.0194, 221.331, -86.14, 0.28)
pt3dadd(-53.2594, 221.931, -86.14, 0.28)
pt3dadd(-53.8894, 221.921, -86.06, 0.55)
pt3dadd(-56.1294, 222.651, -86.61, 0.28)
pt3dadd(-57.7394, 223.391, -86.61, 0.28)
pt3dadd(-59.1094, 224.241, -86.61, 0.83)
pt3dadd(-59.2494, 225.721, -87.27, 0.28)
pt3dadd(-60.2294, 226.471, -87.27, 0.28)
pt3dadd(-61.4794, 226.461, -87.27, 0.28)
pt3dadd(-62.3394, 226.951, -87.27, 0.55)
pt3dadd(-63.3394, 228.311, -85.4, 0.28)
pt3dadd(-64.3394, 229.031, -85.4, 0.55)
pt3dadd(-66.0794, 229.391, -85.29, 0.28)
pt3dadd(-67.1894, 229.751, -85.29, 0.55)
pt3dadd(-67.4594, 230.861, -85.29, 0.28)
pt3dadd(-68.9394, 230.731, -85.29, 0.28)
pt3dadd(-70.0594, 230.481, -85.29, 0.28)
pt3dadd(-70.9294, 232.211, -85.24, 0.55)
pt3dadd(-71.4394, 233.191, -85.24, 0.55)
pt3dadd(-73.0594, 233.931, -85.24, 0.55)
pt3dadd(-74.4194, 234.781, -84.13, 0.28)
pt3dadd(-75.5294, 235.141, -84.13, 0.55)
pt3dadd(-76.0394, 236.121, -82.54, 0.28)
pt3dadd(-76.1794, 237.621, -82.89, 0.28)
pt3dadd(-77.0494, 238.101, -82.89, 0.28)
pt3dadd(-78.4094, 237.731, -82.89, 0.28)
pt3dadd(-78.7894, 237.841, -80.34, 0.55)
pt3dadd(-79.6594, 239.571, -80.34, 0.28)
pt3dadd(-81.2594, 239.681, -79.58, 0.55)
pt3dadd(-81.9694, 241.051, -78.31, 0.55)
pt3dadd(-82.4594, 240.801, -78.31, 0.28)
pt3dadd(-84.4494, 240.421, -78.31, 0.55)
pt3dadd(-85.5694, 241.401, -78.31, 0.55)
pt3dadd(-87.2994, 241.131, -78.92, 0.28)
pt3dadd(-88.6694, 241.381, -78.92, 0.55)
pt3dadd(-89.5394, 242.481, -78.5, 0.28)
pt3dadd(-91.0294, 242.971, -78.5, 0.28)
pt3dadd(-91.5394, 243.961, -75.8, 0.55)
pt3dadd(-93.1394, 244.681, -75.17, 0.28)
pt3dadd(-93.6594, 246.291, -75.17, 0.28)
pt3dadd(-94.7794, 247.891, -73.77, 0.55)
pt3dadd(-97.0394, 251.101, -72.14, 0.28)
pt3dadd(-97.2894, 251.591, -72.14, 0.55)
pt3dadd(-99.2794, 253.681, -73.03, 0.28)
pt3dadd(-100.039, 253.931, -73.03, 0.55)
pt3dadd(-100.409, 254.671, -73.01, 0.28)
pt3dadd(-102.269, 255.271, -73.41, 0.55)
pt3dadd(-104.629, 256.241, -73.41, 0.28)
pt3dadd(-104.889, 257.361, -73.41, 0.55)
pt3dadd(-105.769, 258.461, -73.41, 0.28)
pt3dadd(-107.749, 258.691, -73.41, 0.55)
pt3dadd(-110.859, 261.151, -73.23, 0.28)
pt3dadd(-111.479, 261.151, -73.23, 0.55)
pt3dadd(-113.349, 262.991, -73.23, 0.28)
pt3dadd(-114.479, 263.361, -73.23, 0.55)
pt3dadd(-114.979, 264.341, -73.23, 0.28)
pt3dadd(-116.579, 264.451, -73.23, 0.55)
pt3dadd(-117.709, 265.441, -72.56, 0.28)
pt3dadd(-119.699, 265.671, -72.56, 0.28)
pt3dadd(-121.689, 267.141, -72.56, 0.28)
pt3dadd(-123.419, 266.881, -70.77, 0.55)
pt3dadd(-125.519, 267.361, -71.26, 0.28)
pt3dadd(-127.029, 267.231, -71.26, 0.28)
pt3dadd(-129.249, 267.951, -71.26, 0.28)
pt3dadd(-129.629, 268.691, -71.26, 0.28)
pt3dadd(-130.729, 268.431, -70.41, 0.55)
pt3dadd(-132.229, 268.301, -71.73, 0.28)
pt3dadd(-134.449, 268.411, -71.73, 0.28)
pt3dadd(-135.329, 268.281, -71.21, 0.55)
pt3dadd(-136.189, 268.141, -71.92, 0.28)
pt3dadd(-137.059, 268.641, -72.78, 0.55)
pt3dadd(-139.779, 268.481, -72.78, 0.55)
pt3dadd(-141.389, 268.601, -73.58, 0.28)
pt3dadd(-141.769, 268.731, -73.58, 0.55)
pt3dadd(-143.769, 270.821, -72.96, 0.28)
pt3dadd(-144.269, 271.171, -72.96, 0.55)
}
dend[49] {pt3dclear()
pt3dadd(-11.7194, 174.051, -64.4, 0.83)
pt3dadd(-11.4994, 177.271, -65.89, 0.83)
pt3dadd(-12.0194, 180.121, -65.89, 0.83)
pt3dadd(-10.4294, 183.101, -65.89, 0.83)
pt3dadd(-8.95938, 185.101, -64.55, 0.28)
pt3dadd(-9.21938, 186.831, -64.55, 0.55)
pt3dadd(-8.98938, 188.821, -64.57, 0.28)
pt3dadd(-9.25937, 191.781, -64.57, 0.55)
pt3dadd(-8.88938, 192.901, -64.59, 0.28)
pt3dadd(-9.03938, 195.001, -64.59, 0.55)
pt3dadd(-9.42937, 195.671, -64.59, 0.28)
pt3dadd(-9.18937, 197.051, -64.59, 0.83)
pt3dadd(-9.69938, 198.651, -65.18, 0.28)
pt3dadd(-9.83937, 200.751, -65.2, 0.83)
pt3dadd(-9.48938, 204.351, -65.2, 0.55)
pt3dadd(-8.52938, 206.711, -64.9, 0.28)
pt3dadd(-9.01937, 207.701, -63.93, 0.55)
pt3dadd(-8.65938, 208.201, -63.93, 0.28)
pt3dadd(-8.16937, 209.691, -63.24, 0.55)
pt3dadd(-7.93937, 211.051, -61.45, 0.28)
pt3dadd(-7.81938, 212.661, -61, 0.83)
}
dend[50] {pt3dclear()
pt3dadd(-7.81938, 212.661, -61, 0.28)
pt3dadd(-8.96938, 214.041, -61, 0.28)
pt3dadd(-9.21938, 215.151, -58.63, 0.55)
pt3dadd(-9.98938, 217.251, -57.88, 0.28)
pt3dadd(-11.3594, 218.101, -57.88, 0.28)
pt3dadd(-12.5894, 219.331, -57.88, 0.28)
pt3dadd(-13.7194, 220.311, -56.18, 0.55)
pt3dadd(-14.4794, 221.791, -55.86, 0.28)
pt3dadd(-14.8394, 221.911, -54.42, 0.55)
pt3dadd(-14.3594, 223.411, -53.67, 0.28)
pt3dadd(-14.8694, 224.391, -53.17, 0.55)
pt3dadd(-15.6194, 225.261, -53.17, 0.55)
pt3dadd(-15.8794, 226.371, -50.41, 0.28)
pt3dadd(-16.6194, 226.611, -49.34, 0.55)
pt3dadd(-17.7294, 226.971, -49.34, 0.55)
pt3dadd(-18.6094, 227.461, -49.34, 0.55)
pt3dadd(-19.5994, 228.201, -49.34, 0.55)
pt3dadd(-20.4794, 229.301, -48.77, 0.55)
pt3dadd(-23.0894, 230.771, -47.23, 0.28)
pt3dadd(-23.4694, 230.891, -47.23, 0.55)
pt3dadd(-25.4594, 231.751, -44.09, 0.28)
pt3dadd(-26.1994, 232.611, -42.49, 0.55)
pt3dadd(-26.5894, 233.961, -41.65, 0.55)
pt3dadd(-27.3294, 234.211, -41.65, 0.55)
pt3dadd(-28.8294, 235.321, -41.02, 0.28)
pt3dadd(-30.0794, 237.161, -38.25, 0.55)
pt3dadd(-30.7094, 239.021, -38.16, 0.28)
}
}
proc shape3d_11() {
dend[50] { pt3dadd(-31.0994, 240.371, -38.16, 0.28)
pt3dadd(-31.5894, 241.361, -38.16, 0.28)
}
dend[51] {pt3dclear()
pt3dadd(-7.81938, 212.661, -61, 0.55)
pt3dadd(-6.09938, 213.541, -60.95, 0.55)
pt3dadd(-5.22937, 213.671, -60.79, 0.55)
pt3dadd(-4.99938, 215.041, -59.44, 0.28)
pt3dadd(-4.63938, 216.161, -59.44, 0.83)
pt3dadd(-3.63938, 216.651, -59.44, 0.28)
pt3dadd(-2.65937, 217.781, -59.13, 0.55)
pt3dadd(-3.29938, 219.011, -58.51, 0.28)
pt3dadd(-1.31937, 221.261, -58.16, 0.83)
pt3dadd(-0.349376, 223.001, -57.33, 0.28)
pt3dadd(0.140625, 224.501, -57.33, 0.28)
pt3dadd(0.380625, 225.851, -56.43, 0.28)
pt3dadd(0.370625, 226.481, -56.43, 0.55)
pt3dadd(0.970625, 228.961, -55.09, 0.28)
pt3dadd(0.960625, 230.201, -55.08, 0.83)
pt3dadd(2.81062, 231.451, -53.95, 0.28)
pt3dadd(3.29062, 232.941, -53.62, 0.55)
pt3dadd(3.77062, 234.431, -52.08, 0.28)
pt3dadd(4.77062, 235.561, -52.08, 0.28)
pt3dadd(4.63062, 237.661, -51.7, 0.55)
pt3dadd(5.23062, 239.511, -51.06, 0.28)
pt3dadd(5.22062, 240.771, -51.06, 0.55)
pt3dadd(6.07062, 242.741, -50.07, 0.28)
pt3dadd(5.81062, 243.871, -50.29, 0.83)
pt3dadd(6.54063, 246.711, -50, 0.28)
pt3dadd(7.27062, 247.721, -49.6, 0.55)
pt3dadd(7.26062, 249.571, -49.6, 0.55)
pt3dadd(8.11063, 252.181, -48.63, 0.28)
pt3dadd(7.97062, 253.051, -48.54, 0.55)
pt3dadd(7.58063, 256.271, -46.31, 0.28)
pt3dadd(7.94062, 258.001, -46.31, 0.28)
pt3dadd(8.05062, 258.991, -46.31, 0.55)
pt3dadd(8.16062, 260.601, -46.31, 0.28)
pt3dadd(8.03062, 262.081, -44.5, 0.55)
pt3dadd(7.76062, 263.201, -44.56, 0.28)
pt3dadd(7.40062, 263.941, -44.61, 0.55)
pt3dadd(7.02062, 264.681, -44.64, 0.28)
pt3dadd(7.36062, 268.281, -44.12, 0.55)
pt3dadd(7.82062, 269.531, -46.08, 0.55)
pt3dadd(8.06063, 271.521, -45.77, 0.28)
pt3dadd(8.18062, 273.131, -45.79, 0.28)
pt3dadd(8.04062, 273.991, -45.8, 0.28)
pt3dadd(8.41062, 275.111, -44.26, 0.55)
pt3dadd(8.52063, 276.101, -44.28, 0.28)
pt3dadd(8.50062, 279.201, -42.55, 0.83)
pt3dadd(9.11063, 280.451, -40.83, 0.28)
pt3dadd(8.86063, 281.561, -39.65, 0.55)
pt3dadd(9.22062, 282.681, -39.65, 0.28)
pt3dadd(9.95062, 283.671, -39.65, 0.28)
pt3dadd(10.0706, 285.291, -39.65, 0.28)
pt3dadd(10.4106, 288.881, -38.35, 0.83)
pt3dadd(10.3906, 290.741, -37.14, 0.28)
pt3dadd(11.0206, 291.371, -37.14, 0.28)
pt3dadd(11.4906, 292.861, -37.14, 0.28)
pt3dadd(11.4806, 293.461, -37.14, 0.28)
pt3dadd(12.5906, 295.591, -35.1, 0.55)
pt3dadd(12.4606, 296.461, -35.1, 0.55)
pt3dadd(13.4406, 297.571, -35.1, 0.55)
pt3dadd(13.8006, 299.311, -34.26, 0.28)
pt3dadd(13.9106, 300.301, -33.36, 0.55)
pt3dadd(13.4106, 301.291, -33.36, 0.55)
pt3dadd(14.0306, 301.921, -33.31, 0.28)
pt3dadd(14.0206, 303.151, -33.35, 0.55)
pt3dadd(12.9006, 304.131, -32.89, 0.28)
pt3dadd(13.1306, 305.501, -31.87, 0.83)
pt3dadd(13.0006, 306.991, -30.95, 0.55)
pt3dadd(13.4706, 308.481, -30.95, 0.55)
pt3dadd(15.7106, 309.611, -30.95, 0.55)
pt3dadd(15.4306, 312.571, -26.69, 0.28)
pt3dadd(16.7906, 314.201, -25.03, 0.55)
}
dend[52] {pt3dclear()
pt3dstyle(1, 0.25338, 0.612098, 0)
pt3dadd(0.780625, -9.34875, 7.16, 0.83)
pt3dadd(-0.309376, -12.0887, 7.16, 0.83)
pt3dadd(0.810625, -13.0687, 6.36, 0.55)
pt3dadd(-0.289375, -14.5588, 7.12, 0.55)
pt3dadd(-1.02937, -16.1787, 6.84, 0.55)
pt3dadd(0.350625, -17.6588, 9.32, 0.28)
pt3dadd(0.970625, -18.2687, 9.32, 0.55)
pt3dadd(1.60062, -19.5088, 10.97, 0.55)
pt3dadd(2.85062, -20.7288, 10.97, 0.55)
pt3dadd(3.60062, -22.2188, 10.92, 0.28)
pt3dadd(4.35062, -23.0788, 10.92, 0.55)
pt3dadd(3.99063, -24.1987, 10.92, 0.55)
pt3dadd(4.38062, -26.1788, 10.88, 0.55)
pt3dadd(5.76062, -28.2688, 12.75, 0.55)
pt3dadd(7.25062, -29.9888, 12.75, 0.55)
pt3dadd(7.77063, -32.2087, 12.75, 0.55)
pt3dadd(7.53062, -32.9587, 13.83, 0.55)
pt3dadd(6.68062, -34.9487, 13.83, 0.55)
pt3dadd(6.93062, -36.0687, 13.83, 0.55)
pt3dadd(6.81063, -37.0588, 13.83, 0.55)
pt3dadd(7.07062, -38.7887, 13.83, 0.55)
pt3dadd(6.10063, -40.5387, 13.83, 0.55)
pt3dadd(5.90062, -40.7588, 13.74, 0.55)
}
dend[53] {pt3dclear()
pt3dadd(5.90062, -40.7588, 13.74, 0.55)
pt3dadd(5.43062, -42.3088, 13.74, 0.55)
pt3dadd(4.06062, -40.8288, 13.74, 0.55)
pt3dadd(3.32063, -41.8188, 13.74, 0.55)
pt3dadd(3.33062, -43.0488, 13.74, 0.55)
pt3dadd(1.84063, -42.5788, 13.74, 0.55)
pt3dadd(0.720625, -42.8288, 13.74, 0.55)
pt3dadd(0.580625, -41.3488, 10.14, 0.28)
pt3dadd(-0.649375, -40.7388, 10.14, 0.28)
pt3dadd(-1.62938, -41.8587, 10.36, 0.55)
pt3dadd(-3.48937, -41.8688, 8.78, 0.55)
pt3dadd(-4.23938, -41.6287, 8.78, 0.55)
pt3dadd(-6.22937, -41.3988, 8.78, 0.83)
pt3dadd(-7.21938, -41.2887, 7.45, 0.55)
pt3dadd(-8.56938, -41.6587, 7.4, 0.55)
pt3dadd(-9.94938, -40.8188, 12.75, 0.55)
pt3dadd(-10.6894, -40.5588, 12.75, 0.55)
pt3dadd(-11.0594, -41.0588, 12.75, 0.55)
pt3dadd(-13.1694, -41.1987, 15.98, 0.28)
pt3dadd(-12.7894, -42.5688, 15.98, 0.55)
pt3dadd(-13.3994, -43.8088, 15.98, 0.55)
pt3dadd(-15.2594, -43.8288, 19.27, 0.55)
pt3dadd(-16.3494, -45.9388, 23.29, 0.55)
pt3dadd(-15.7194, -47.1688, 25.85, 0.55)
pt3dadd(-15.2294, -48.1488, 25.85, 0.55)
pt3dadd(-15.8194, -48.7887, 25.85, 0.55)
pt3dadd(-15.5694, -50.5187, 25.85, 0.55)
pt3dadd(-15.3194, -51.6287, 25.4, 0.28)
pt3dadd(-15.3094, -52.8688, 25.4, 0.28)
}
dend[54] {pt3dclear()
pt3dadd(5.90062, -40.7588, 13.74, 0.55)
pt3dadd(5.73062, -41.6488, 13.83, 0.55)
pt3dadd(5.62063, -42.6388, 13.83, 0.55)
pt3dadd(5.01062, -43.8787, 16.31, 0.55)
pt3dadd(4.65062, -45.6287, 16.31, 0.55)
pt3dadd(5.03062, -46.9788, 18.78, 0.55)
pt3dadd(5.42062, -48.9588, 19.84, 0.28)
pt3dadd(4.44062, -50.0788, 19.74, 0.55)
pt3dadd(3.58062, -51.4388, 19.7, 0.55)
pt3dadd(4.09062, -52.4388, 19.7, 0.55)
pt3dadd(3.84063, -53.8088, 19.7, 0.55)
pt3dadd(4.35062, -54.7788, 19.7, 0.55)
pt3dadd(4.36062, -56.0288, 19.7, 0.55)
pt3dadd(4.25062, -57.6388, 19.7, 0.55)
pt3dadd(3.39062, -59.6287, 21.02, 0.55)
pt3dadd(3.78063, -61.6087, 21.02, 0.55)
pt3dadd(3.67062, -63.8387, 23.57, 0.55)
pt3dadd(2.57063, -64.7087, 23.57, 0.55)
pt3dadd(1.10062, -66.7087, 23.57, 0.55)
pt3dadd(1.23062, -68.1987, 23.57, 0.55)
pt3dadd(-0.119375, -70.4388, 23.57, 0.55)
pt3dadd(0.270625, -71.7887, 23.03, 0.55)
pt3dadd(0.390625, -72.6587, 23.03, 0.55)
pt3dadd(0.910625, -74.2587, 23.03, 0.55)
pt3dadd(1.53063, -75.4987, 21.24, 0.55)
pt3dadd(2.16062, -76.7287, 21.24, 0.55)
pt3dadd(1.37062, -78.2188, 21.24, 0.28)
pt3dadd(0.630625, -79.8287, 21.24, 0.55)
pt3dadd(0.630625, -80.4487, 21.24, 0.55)
pt3dadd(1.13063, -81.4387, 19.44, 0.28)
pt3dadd(0.520625, -82.6787, 19.62, 0.55)
pt3dadd(0.790625, -84.4087, 19.62, 0.55)
pt3dadd(0.660625, -85.3988, 19.62, 0.55)
pt3dadd(1.42062, -85.6387, 19.48, 0.28)
pt3dadd(1.31062, -87.2487, 19.48, 0.55)
pt3dadd(1.32063, -89.1087, 17.4, 0.28)
pt3dadd(1.82063, -90.7188, 17.4, 0.55)
pt3dadd(2.20062, -92.0787, 18.11, 0.28)
pt3dadd(2.47063, -94.4287, 18.11, 0.28)
pt3dadd(2.60062, -95.3087, 18.11, 0.55)
pt3dadd(2.74063, -96.1587, 18.11, 0.28)
pt3dadd(2.62062, -97.1587, 18.11, 0.55)
pt3dadd(2.76063, -99.8787, 18.73, 0.28)
pt3dadd(3.38063, -100.489, 18.73, 0.28)
pt3dadd(3.64062, -101.609, 19.96, 0.55)
pt3dadd(3.77062, -103.089, 19.96, 0.55)
pt3dadd(4.79062, -105.069, 19.96, 0.55)
pt3dadd(5.29062, -106.059, 19.96, 0.55)
pt3dadd(5.92062, -107.909, 19.96, 0.55)
pt3dadd(7.04063, -108.889, 20.08, 0.55)
pt3dadd(7.91062, -108.149, 20.08, 0.55)
pt3dadd(7.92062, -109.379, 20.08, 0.55)
pt3dadd(7.68062, -111.359, 20.08, 0.55)
pt3dadd(7.94062, -112.479, 20.08, 0.55)
pt3dadd(8.43062, -113.459, 20.93, 0.28)
pt3dadd(9.31063, -114.569, 22.3, 0.55)
pt3dadd(10.4306, -115.549, 22.3, 0.55)
pt3dadd(11.8106, -116.409, 22.3, 0.55)
pt3dadd(12.0606, -118.149, 23.19, 0.28)
pt3dadd(13.3206, -118.759, 22.96, 0.55)
pt3dadd(13.3206, -119.999, 22.96, 0.55)
pt3dadd(14.3306, -122.589, 21.68, 0.55)
pt3dadd(15.3206, -122.699, 21.68, 0.55)
pt3dadd(16.0706, -123.569, 21.68, 0.55)
pt3dadd(16.7106, -125.419, 20.34, 0.55)
pt3dadd(17.0806, -126.159, 20.34, 0.55)
pt3dadd(18.8306, -127.139, 19.13, 0.28)
pt3dadd(19.3306, -128.119, 17.97, 0.55)
pt3dadd(20.8306, -130.469, 18.07, 0.28)
pt3dadd(21.3306, -131.449, 18.07, 0.28)
pt3dadd(21.4806, -133.549, 18.35, 0.55)
pt3dadd(22.5506, -133.969, 18.33, 0.28)
pt3dadd(22.9306, -134.089, 18.28, 0.55)
pt3dadd(23.6906, -135.579, 18.94, 0.28)
pt3dadd(23.9406, -136.689, 18.9, 0.55)
}
}
proc shape3d_12() {
dend[54] { pt3dadd(24.9506, -138.659, 18.89, 0.28)
pt3dadd(24.9606, -139.889, 19.16, 0.55)
pt3dadd(25.5806, -140.519, 19.16, 0.55)
pt3dadd(26.2106, -141.119, 19.16, 0.55)
pt3dadd(27.8306, -143.089, 19.32, 0.28)
pt3dadd(28.3306, -143.469, 20.93, 0.55)
pt3dadd(30.2006, -144.689, 20, 0.28)
pt3dadd(31.4506, -147.159, 20, 0.28)
pt3dadd(31.5906, -148.639, 20.5, 0.55)
pt3dadd(32.3506, -150.749, 20.5, 0.55)
pt3dadd(32.2406, -152.359, 20.5, 0.28)
pt3dadd(32.0106, -154.969, 20.45, 0.55)
pt3dadd(31.8906, -155.329, 20.45, 0.55)
pt3dadd(31.1606, -158.189, 20.45, 0.28)
pt3dadd(31.1606, -158.189, 18.54, 0.55)
pt3dadd(31.4306, -159.919, 18.54, 0.28)
pt3dadd(31.1806, -160.659, 18.54, 0.55)
pt3dadd(31.2006, -162.519, 18.54, 0.55)
pt3dadd(31.3506, -166.489, 18.25, 0.28)
pt3dadd(32.2306, -166.979, 18.25, 0.55)
pt3dadd(33.2306, -168.949, 18.85, 0.55)
}
dend[55] {pt3dclear()
pt3dadd(33.2306, -168.949, 18.85, 0.28)
pt3dadd(36.1506, -171.629, 18.85, 0.28)
pt3dadd(37.0206, -172.129, 18.85, 0.55)
pt3dadd(38.5106, -172.609, 20.85, 0.28)
pt3dadd(39.3906, -173.099, 20.85, 0.55)
pt3dadd(41.7506, -174.069, 20.98, 0.28)
pt3dadd(42.8706, -174.429, 20.98, 0.55)
pt3dadd(45.8606, -177.249, 20.17, 0.28)
pt3dadd(46.4906, -178.499, 20.17, 0.55)
}
dend[56] {pt3dclear()
pt3dadd(33.2306, -168.949, 18.85, 0.28)
pt3dadd(33.7406, -171.169, 18.59, 0.28)
pt3dadd(34.3706, -173.019, 19.77, 0.55)
pt3dadd(34.4006, -176.119, 17.64, 0.28)
pt3dadd(34.5406, -178.229, 17.64, 0.55)
pt3dadd(34.0706, -181.569, 17.31, 0.28)
pt3dadd(34.2006, -181.819, 17.31, 0.55)
pt3dadd(33.1106, -185.169, 17.31, 0.28)
pt3dadd(32.7406, -186.909, 14.61, 0.55)
pt3dadd(32.5106, -188.279, 14.61, 0.55)
pt3dadd(32.5206, -190.139, 14.61, 0.55)
pt3dadd(33.0406, -192.359, 14.61, 0.55)
pt3dadd(33.9206, -194.719, 11.28, 0.28)
pt3dadd(34.3706, -196.799, 10.31, 0.28)
pt3dadd(35.7406, -198.269, 10.31, 0.28)
pt3dadd(35.5006, -199.019, 8.06, 0.55)
pt3dadd(35.2606, -200.379, 8.06, 0.55)
pt3dadd(36.5106, -202.239, 10.86, 0.28)
pt3dadd(37.0106, -203.219, 10.86, 0.55)
pt3dadd(37.4306, -207.679, 10.86, 0.28)
pt3dadd(38.0506, -210.159, 10.86, 0.28)
pt3dadd(39.6906, -212.739, 10.86, 0.28)
pt3dadd(39.3206, -213.849, 11.92, 0.55)
pt3dadd(38.9606, -214.349, 11.92, 0.55)
pt3dadd(39.1006, -216.459, 11.82, 0.28)
pt3dadd(38.7306, -216.959, 11.82, 0.55)
pt3dadd(38.0006, -219.199, 11.82, 0.28)
pt3dadd(38.2506, -219.689, 11.82, 0.55)
pt3dadd(38.7706, -222.539, 11.75, 0.28)
pt3dadd(38.2906, -224.029, 11.35, 0.55)
pt3dadd(39.4106, -224.379, 11.28, 0.55)
pt3dadd(39.0506, -226.119, 9.51, 0.28)
pt3dadd(39.4206, -226.859, 9.51, 0.55)
pt3dadd(40.5606, -229.089, 11.05, 0.28)
pt3dadd(40.8106, -229.579, 11.05, 0.55)
pt3dadd(39.9506, -230.949, 11.05, 0.28)
pt3dadd(39.9606, -231.569, 15.14, 0.28)
pt3dadd(39.0906, -231.689, 15.14, 0.55)
pt3dadd(38.5006, -236.039, 15.14, 0.28)
pt3dadd(38.6506, -238.149, 15.14, 0.55)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
}
objref all, somatic, axonal, basal
proc subsets() { local i
objref all, somatic, axonal, basal
all = new SectionList()
soma all.append()
//axon[0] all.append()
for i=0, 1 axon[i] all.append()
for i=0, 56 dend[i] all.append()
somatic = new SectionList()
soma somatic.append()
axonal = new SectionList()
//axon[0] all.append()
for i=0, 1 axon[i] axonal.append()
//dend axonal.append() //I don't understand why this is here???
basal = new SectionList()
for i=1, 56 dend[i] basal.append()
}
proc geom() {
myelin[0] {
L = 200
diam = 0.28
nseg = 1
}
}
proc geom_nseg() {
this.geom_nsec() //To count all sections
//TODO: geom_nseg_fixed depends on segCounts which is calculated by
// geom_nsec. Can this be collapsed?
this.geom_nseg_fixed(40)
this.geom_nsec() //To count all sections
}
proc insertChannel() {
forsec this.all {
insert pas
}
forsec this.apical {
}
forsec this.axonal {
insert Ca_LVAst
insert Ca_HVA
insert CaDynamics_E2
insert SKv3_1
insert Nav11
insert Nav11var
insert SK_E2
insert K_Tst
insert K_Pst
insert Nap_Et2
insert NaTa_t
insert Im
}
forsec this.basal {
insert NaTs2_t
insert Nap_Et2
insert Nav11
insert Nav11var
insert K_Tst
insert K_Pst
insert SKv3_1
insert Im
insert Ih
}
forsec this.somatic {
insert NaTs2_t
insert Nap_Et2
insert Nav11
insert SKv3_1
insert SK_E2
insert K_Tst
insert K_Pst
insert CaDynamics_E2
insert Ca_HVA
insert Ca_LVAst
insert Nav11var
insert Im
}
forsec this.myelinated {
}
}
proc biophys() {
forsec CellRef.all {
Ra = 100
g_pas = 1.1753712511359735e-07
e_pas = -62.605486758793134
}
forsec CellRef.apical {
}
forsec CellRef.axonal {
cm = 1
ena = 50
ek = -90
gNaTa_tbar_NaTa_t = 1.8952539630604903
gNav11bar_Nav11 = 2.9986708213550992
gNav11bar_Nav11var = 2.9986708213550992
gNap_Et2bar_Nap_Et2 = 9.9914521169257362e-07
gK_Pstbar_K_Pst = 4.9798348545652884e-06
gK_Tstbar_K_Tst = 0.0958123928067732
gSK_E2bar_SK_E2 = 0.037731878034846213
gSKv3_1bar_SKv3_1 = 0.356040135857974
gCa_HVAbar_Ca_HVA = 6.6928045008285222e-06
gCa_LVAstbar_Ca_LVAst = 0.00086252457600405862
decay_CaDynamics_E2 = 357.51087087210146
gamma_CaDynamics_E2 = 0.0033841884469849211
gImbar_Im = 0.00031319601262909993
//mh_Nav11m = -26.600000000000001
//ms_Nav11m = 6.7000000000000002
//hh_Nav11m = -60.200000000000003
//hs_Nav11m = 5.5999999999999996
//tmh_Nav11m = -40
//thh_Nav11m = -65
}
forsec CellRef.basal {
cm = 1
ena = 50
ek = -90
gNaTs2_tbar_NaTs2_t = 0.0020626919757689753
gNav11bar_Nav11 = 8.7937735030300143e-06
gNav11bar_Nav11var = 8.7937735030300143e-06
gNap_Et2bar_Nap_Et2 = 1.6389087983832434e-07
gSKv3_1bar_SKv3_1 = 8.1625882332958207e-05
gK_Pstbar_K_Pst = 4.7998069883951371e-08
gK_Tstbar_K_Tst = 1.6848144871536559e-05
//gNav11bar_Nav11m = 0
//mh_Nav11m = -26.600000000000001
//ms_Nav11m = 6.7000000000000002
//hh_Nav11m = -60.200000000000003
//hs_Nav11m = 5.5999999999999996
//tmh_Nav11m = -40
//thh_Nav11m = -65
}
forsec CellRef.somatic {
cm = 1
ena = 50
ek = -85
gNaTs2_tbar_NaTs2_t = 0.95585841724208476
gNav11bar_Nav11 = 0.21504623309972959
gNav11bar_Nav11var = 0.21504623309972959
gNap_Et2bar_Nap_Et2 = 7.9295968986726376e-07
gSKv3_1bar_SKv3_1 = 0.018497365407533689
gK_Pstbar_K_Pst = 1.8986651083545768e-05
gK_Tstbar_K_Tst = 0.019405714609111748
gSK_E2bar_SK_E2 = 1.6228971252382314e-08
gCa_HVAbar_Ca_HVA = 0.00033062469952363
gCa_LVAstbar_Ca_LVAst = 0.0011410752102358152
decay_CaDynamics_E2 = 103.86036962355075
gamma_CaDynamics_E2 = 0.032352264465451266
gImbar_Im = 0.00010335472123811204
//gNav11bar_Nav11m = 0
//mh_Nav11m = -26.600000000000001
//ms_Nav11m = 6.7000000000000002
//hh_Nav11m = -60.200000000000003
//hs_Nav11m = 5.5999999999999996
//tmh_Nav11m = -40
//thh_Nav11m = -65
}
forsec CellRef.myelinated {
cm = 0.02
}
distribute_distance(CellRef.basal, "gImbar_Im", "(-0.8696 + 2.087*exp((%.17g)*0.0031))*4.9053963032026885e-07")
distribute_distance(CellRef.basal, "gIhbar_Ih", "(-0.8696 + 2.087*exp((%.17g)*0.0031))*4.3100495575754699e-05")
}
proc distribute_distance(){local x localobj sl
strdef stmp, distfunc, mech
sl = $o1
mech = $s2
distfunc = $s3
this.soma[0] distance(0, 0.5)
sprint(distfunc, "%%s %s(%%f) = %s", mech, distfunc)
forsec sl for(x, 0) {
sprint(stmp, distfunc, secname(), x, distance(x))
execute(stmp)
}
}
func sec_count(/* SectionList */) { local nSec
nSec = 0
forsec $o1 {
nSec += 1
}
return nSec
}
/*
* Iterate over the section and compute how many segments should be allocate to
* each.
*/
proc geom_nseg_fixed(/* chunkSize */) { local secIndex, chunkSize
chunkSize = $1
soma area(.5) // make sure diam reflects 3d points
secIndex = 0
forsec all {
nseg = 1 + 2*int(L/chunkSize)
segCounts.x[secIndex] = nseg
secIndex += 1
}
}
/*
* Count up the number of sections
*/
proc geom_nsec() { local nSec
nSecAll = sec_count(all)
nSecSoma = sec_count(somatic)
nSecApical = sec_count(apical)
nSecBasal = sec_count(basal)
nSecMyelinated = sec_count(myelinated)
nSecAxonalOrig = nSecAxonal = sec_count(axonal)
segCounts = new Vector()
segCounts.resize(nSecAll)
nSec = 0
forsec all {
segCounts.x[nSec] = nseg
nSec += 1
}
}
access soma
//celldef()
endtemplate BC
objref BC_int
BC_int = new BC()