proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend_0[15], apic[21], dend_5[23], dend_7[50]
proc topol() { local i
connect dend_0(0), soma(0.5)
for i = 1, 3 connect dend_0[i](0), dend_0[i-1](1)
connect dend_0[4](0), dend_0[2](1)
connect dend_0[5](0), dend_0[1](1)
connect dend_0[6](0), dend_0(1)
for i = 7, 8 connect dend_0[i](0), dend_0[6](1)
for i = 9, 10 connect dend_0[i](0), dend_0[8](1)
connect dend_0[11](0), dend_0(1)
for i = 12, 13 connect dend_0[i](0), dend_0[11](1)
connect dend_0[14](0), soma(0.5)
connect apic(0), dend_0[3](1)
for i = 1, 5 connect apic[i](0), apic[i-1](1)
connect apic[6](0), apic[4](1)
connect apic[7](0), apic[3](1)
connect apic[8](0), apic[2](1)
connect apic[9](0), apic[1](1)
for i = 10, 11 connect apic[i](0), apic[i-1](1)
connect apic[12](0), apic[10](1)
connect apic[13](0), apic[9](1)
connect apic[14](0), apic(1)
for i = 15, 16 connect apic[i](0), apic[i-1](1)
connect apic[17](0), apic[15](1)
connect apic[18](0), apic[14](1)
for i = 19, 20 connect apic[i](0), apic[18](1)
connect dend_5(0), apic[7](1)
for i = 1, 4 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[5](0), dend_5[3](1)
connect dend_5[6](0), dend_5[2](1)
for i = 7, 8 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[9](0), dend_5[7](1)
connect dend_5[10](0), dend_5[6](1)
connect dend_5[11](0), dend_5[1](1)
connect dend_5[12](0), dend_5(1)
for i = 13, 14 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[15](0), dend_5[13](1)
connect dend_5[16](0), dend_5[12](1)
for i = 17, 18 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[19](0), dend_5[17](1)
connect dend_5[20](0), dend_5[16](1)
for i = 21, 22 connect dend_5[i](0), dend_5[20](1)
connect dend_7(0), dend_0[4](1)
for i = 1, 2 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[3](0), dend_7[1](1)
connect dend_7[4](0), dend_7(1)
for i = 5, 6 connect dend_7[i](0), dend_7[4](1)
connect dend_7[7](0), dend_0[5](1)
for i = 8, 9 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[10](0), dend_7[8](1)
connect dend_7[11](0), dend_7[7](1)
for i = 12, 13 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[14](0), dend_7[12](1)
connect dend_7[15](0), dend_7[11](1)
connect dend_7[16](0), dend_0[7](1)
for i = 17, 18 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[19](0), dend_7[17](1)
connect dend_7[20](0), dend_7[16](1)
connect dend_7[21](0), dend_0[9](1)
for i = 22, 23 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[24](0), dend_7[22](1)
connect dend_7[25](0), dend_7[21](1)
for i = 26, 27 connect dend_7[i](0), dend_7[25](1)
connect dend_7[28](0), dend_0[10](1)
for i = 29, 30 connect dend_7[i](0), dend_7[28](1)
connect dend_7[31](0), dend_0[12](1)
for i = 32, 33 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[34](0), dend_7[32](1)
connect dend_7[35](0), dend_7[31](1)
for i = 36, 37 connect dend_7[i](0), dend_0[i-23](1)
for i = 38, 40 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[41](0), dend_7[39](1)
for i = 42, 43 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[44](0), dend_7[42](1)
connect dend_7[45](0), dend_7[41](1)
connect dend_7[46](0), dend_7[38](1)
connect dend_7[47](0), dend_7[37](1)
for i = 48, 49 connect dend_7[i](0), dend_7[47](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(87.212, 105.973, 12.877, 13.694)
pt3dadd(94.059, 105.973, 12.877, 13.694)
pt3dadd(100.906, 105.973, 12.877, 13.694)
}
dend_0 {pt3dclear()
pt3dstyle(1, 94.059, 105.973, 12.877)
pt3dadd(94.169, 106.019, 12.877, 13.83)
pt3dadd(94.28, 106.066, 12.877, 13.968)
pt3dadd(94.315, 106.081, 12.877, 14.012)
pt3dadd(94.315, 106.081, 12.905, 13.998)
}
dend_0[1] {pt3dclear()
pt3dadd(94.315, 106.081, 12.905, 13.998)
pt3dadd(94.315, 106.11, 12.927, 13.972)
pt3dadd(94.315, 106.199, 12.995, 13.888)
pt3dadd(94.315, 106.288, 13.062, 13.804)
pt3dadd(94.315, 106.377, 13.129, 13.72)
pt3dadd(94.315, 106.465, 13.197, 13.636)
}
dend_0[2] {pt3dclear()
pt3dadd(94.315, 106.465, 13.197, 13.636)
pt3dadd(94.315, 106.483, 13.19, 13.63)
pt3dadd(94.315, 106.59, 13.145, 13.588)
pt3dadd(94.315, 106.697, 13.1, 13.544)
pt3dadd(94.315, 106.805, 13.056, 13.502)
pt3dadd(94.315, 106.912, 13.011, 13.46)
pt3dadd(94.315, 107.02, 12.966, 13.418)
pt3dadd(94.315, 107.127, 12.922, 13.376)
pt3dadd(94.315, 107.234, 12.877, 13.334)
}
dend_0[3] {pt3dclear()
pt3dadd(94.315, 107.234, 12.877, 13.334)
pt3dadd(94.273, 107.347, 12.877, 13.236)
pt3dadd(94.231, 107.459, 12.877, 13.136)
pt3dadd(94.189, 107.572, 12.877, 13.036)
pt3dadd(94.148, 107.684, 12.877, 12.938)
pt3dadd(94.106, 107.796, 12.877, 12.838)
pt3dadd(94.064, 107.909, 12.877, 12.738)
pt3dadd(94.015, 108.018, 12.877, 12.636)
pt3dadd(93.961, 108.126, 12.877, 12.53)
pt3dadd(93.908, 108.233, 12.877, 12.424)
pt3dadd(93.854, 108.34, 12.877, 12.318)
pt3dadd(93.8, 108.447, 12.877, 12.212)
pt3dadd(93.746, 108.555, 12.877, 12.106)
pt3dadd(93.692, 108.662, 12.877, 12)
pt3dadd(93.638, 108.769, 12.877, 11.894)
pt3dadd(93.585, 108.876, 12.877, 11.79)
pt3dadd(93.531, 108.984, 12.877, 11.684)
pt3dadd(93.468, 109.086, 12.877, 11.574)
pt3dadd(93.399, 109.184, 12.877, 11.462)
pt3dadd(93.33, 109.282, 12.877, 11.35)
pt3dadd(93.261, 109.38, 12.877, 11.24)
pt3dadd(93.192, 109.478, 12.877, 11.128)
pt3dadd(93.123, 109.576, 12.877, 11.016)
pt3dadd(93.054, 109.674, 12.877, 10.904)
pt3dadd(92.984, 109.772, 12.877, 10.794)
pt3dadd(92.915, 109.871, 12.877, 10.682)
pt3dadd(92.846, 109.969, 12.877, 10.57)
pt3dadd(92.777, 110.066, 12.877, 10.45)
pt3dadd(92.706, 110.164, 12.877, 10.324)
pt3dadd(92.636, 110.261, 12.876, 10.198)
pt3dadd(92.566, 110.358, 12.876, 10.072)
pt3dadd(92.496, 110.456, 12.876, 9.946)
pt3dadd(92.426, 110.553, 12.876, 9.822)
pt3dadd(92.355, 110.65, 12.876, 9.696)
pt3dadd(92.285, 110.748, 12.876, 9.57)
pt3dadd(92.215, 110.845, 12.876, 9.444)
pt3dadd(92.145, 110.942, 12.876, 9.318)
pt3dadd(92.079, 111.043, 12.876, 9.176)
pt3dadd(92.016, 111.144, 12.876, 9.022)
pt3dadd(91.952, 111.246, 12.876, 8.868)
pt3dadd(91.889, 111.348, 12.875, 8.714)
pt3dadd(91.826, 111.45, 12.875, 8.56)
pt3dadd(91.762, 111.552, 12.875, 8.406)
pt3dadd(91.699, 111.654, 12.875, 8.252)
pt3dadd(91.636, 111.756, 12.875, 8.098)
pt3dadd(91.572, 111.858, 12.875, 7.944)
pt3dadd(91.509, 111.96, 12.874, 7.79)
pt3dadd(91.44, 112.058, 12.874, 7.66)
pt3dadd(91.368, 112.154, 12.874, 7.548)
pt3dadd(91.296, 112.25, 12.874, 7.436)
pt3dadd(91.224, 112.346, 12.873, 7.322)
pt3dadd(91.152, 112.442, 12.873, 7.21)
pt3dadd(91.08, 112.538, 12.873, 7.096)
pt3dadd(91.008, 112.634, 12.873, 6.984)
pt3dadd(90.936, 112.73, 12.873, 6.87)
pt3dadd(90.864, 112.826, 12.872, 6.758)
pt3dadd(90.792, 112.922, 12.872, 6.646)
pt3dadd(90.716, 113.015, 12.872, 6.558)
pt3dadd(90.637, 113.105, 12.871, 6.486)
pt3dadd(90.558, 113.195, 12.871, 6.412)
pt3dadd(90.479, 113.286, 12.87, 6.34)
}
apic {pt3dclear()
pt3dadd(90.479, 113.286, 12.87, 6.34)
pt3dadd(90.4, 113.376, 12.87, 6.268)
pt3dadd(90.321, 113.466, 12.869, 6.196)
pt3dadd(90.242, 113.556, 12.869, 6.124)
pt3dadd(90.163, 113.646, 12.868, 6.05)
pt3dadd(90.084, 113.737, 12.868, 5.978)
pt3dadd(90.004, 113.827, 12.867, 5.906)
pt3dadd(89.923, 113.915, 12.866, 5.844)
pt3dadd(89.84, 114.002, 12.866, 5.786)
pt3dadd(89.758, 114.089, 12.865, 5.73)
pt3dadd(89.675, 114.176, 12.864, 5.672)
pt3dadd(89.592, 114.263, 12.863, 5.616)
pt3dadd(89.51, 114.35, 12.862, 5.558)
pt3dadd(89.427, 114.437, 12.861, 5.502)
pt3dadd(89.344, 114.524, 12.86, 5.446)
pt3dadd(89.261, 114.611, 12.859, 5.388)
pt3dadd(89.179, 114.698, 12.859, 5.332)
pt3dadd(89.095, 114.784, 12.857, 5.276)
pt3dadd(89.011, 114.87, 12.856, 5.22)
pt3dadd(88.927, 114.955, 12.855, 5.164)
pt3dadd(88.843, 115.041, 12.853, 5.108)
pt3dadd(88.759, 115.127, 12.852, 5.052)
pt3dadd(88.675, 115.212, 12.85, 4.996)
pt3dadd(88.591, 115.298, 12.849, 4.94)
pt3dadd(88.507, 115.384, 12.848, 4.884)
pt3dadd(88.423, 115.469, 12.846, 4.828)
pt3dadd(88.339, 115.555, 12.845, 4.772)
pt3dadd(88.256, 115.641, 12.843, 4.708)
pt3dadd(88.172, 115.727, 12.841, 4.642)
pt3dadd(88.089, 115.813, 12.838, 4.574)
pt3dadd(88.005, 115.899, 12.836, 4.506)
pt3dadd(87.921, 115.986, 12.834, 4.438)
pt3dadd(87.838, 116.072, 12.832, 4.372)
pt3dadd(87.754, 116.158, 12.83, 4.304)
pt3dadd(87.671, 116.244, 12.828, 4.236)
pt3dadd(87.588, 116.33, 12.826, 4.17)
pt3dadd(87.504, 116.416, 12.823, 4.102)
pt3dadd(87.422, 116.503, 12.819, 4.066)
pt3dadd(87.34, 116.591, 12.814, 4.048)
pt3dadd(87.259, 116.679, 12.809, 4.03)
pt3dadd(87.177, 116.767, 12.803, 4.012)
pt3dadd(87.096, 116.855, 12.798, 3.994)
pt3dadd(87.014, 116.943, 12.793, 3.976)
pt3dadd(86.933, 117.031, 12.787, 3.958)
pt3dadd(86.851, 117.118, 12.782, 3.94)
pt3dadd(86.77, 117.206, 12.777, 3.922)
pt3dadd(86.688, 117.294, 12.771, 3.904)
pt3dadd(86.608, 117.383, 12.764, 3.864)
pt3dadd(86.528, 117.472, 12.756, 3.812)
pt3dadd(86.449, 117.561, 12.748, 3.758)
pt3dadd(86.369, 117.651, 12.74, 3.704)
pt3dadd(86.29, 117.74, 12.732, 3.652)
pt3dadd(86.21, 117.829, 12.725, 3.598)
pt3dadd(86.13, 117.918, 12.717, 3.546)
pt3dadd(86.051, 118.008, 12.709, 3.492)
pt3dadd(85.971, 118.097, 12.701, 3.44)
pt3dadd(85.891, 118.186, 12.693, 3.386)
pt3dadd(85.817, 118.278, 12.678, 3.344)
pt3dadd(85.746, 118.372, 12.659, 3.308)
pt3dadd(85.675, 118.466, 12.64, 3.272)
pt3dadd(85.604, 118.56, 12.621, 3.236)
pt3dadd(85.533, 118.654, 12.602, 3.2)
pt3dadd(85.461, 118.748, 12.582, 3.164)
pt3dadd(85.39, 118.842, 12.564, 3.128)
pt3dadd(85.319, 118.936, 12.545, 3.094)
pt3dadd(85.248, 119.03, 12.525, 3.058)
pt3dadd(85.177, 119.124, 12.506, 3.022)
pt3dadd(85.114, 119.22, 12.478, 3.024)
pt3dadd(85.055, 119.317, 12.447, 3.04)
pt3dadd(84.995, 119.414, 12.415, 3.054)
pt3dadd(84.936, 119.511, 12.384, 3.07)
pt3dadd(84.876, 119.609, 12.353, 3.084)
pt3dadd(84.816, 119.706, 12.322, 3.1)
pt3dadd(84.757, 119.803, 12.29, 3.116)
pt3dadd(84.697, 119.9, 12.259, 3.13)
pt3dadd(84.638, 119.997, 12.228, 3.146)
pt3dadd(84.578, 120.095, 12.196, 3.16)
pt3dadd(84.512, 120.19, 12.172, 3.164)
pt3dadd(84.443, 120.284, 12.151, 3.164)
pt3dadd(84.374, 120.379, 12.129, 3.164)
pt3dadd(84.306, 120.474, 12.107, 3.164)
pt3dadd(84.237, 120.569, 12.085, 3.164)
pt3dadd(84.168, 120.664, 12.063, 3.164)
pt3dadd(84.1, 120.76, 12.042, 3.164)
pt3dadd(84.031, 120.854, 12.02, 3.164)
pt3dadd(83.962, 120.949, 11.998, 3.164)
pt3dadd(83.894, 121.044, 11.976, 3.164)
pt3dadd(83.82, 121.136, 11.96, 3.178)
pt3dadd(83.745, 121.229, 11.946, 3.196)
pt3dadd(83.67, 121.32, 11.932, 3.214)
pt3dadd(83.595, 121.412, 11.918, 3.232)
pt3dadd(83.52, 121.505, 11.904, 3.25)
pt3dadd(83.445, 121.596, 11.89, 3.268)
pt3dadd(83.37, 121.688, 11.876, 3.286)
pt3dadd(83.294, 121.781, 11.862, 3.304)
pt3dadd(83.219, 121.873, 11.847, 3.322)
pt3dadd(83.144, 121.964, 11.833, 3.34)
pt3dadd(83.067, 122.056, 11.822, 3.336)
pt3dadd(82.989, 122.146, 11.812, 3.328)
pt3dadd(82.911, 122.236, 11.802, 3.32)
pt3dadd(82.833, 122.327, 11.792, 3.312)
pt3dadd(82.755, 122.417, 11.781, 3.304)
pt3dadd(82.677, 122.507, 11.771, 3.296)
pt3dadd(82.598, 122.597, 11.761, 3.286)
pt3dadd(82.52, 122.688, 11.75, 3.278)
pt3dadd(82.442, 122.778, 11.74, 3.27)
pt3dadd(82.364, 122.868, 11.73, 3.262)
pt3dadd(82.292, 122.962, 11.712, 3.246)
pt3dadd(82.222, 123.056, 11.692, 3.228)
pt3dadd(82.152, 123.15, 11.672, 3.208)
pt3dadd(82.082, 123.245, 11.652, 3.19)
pt3dadd(82.012, 123.338, 11.632, 3.172)
pt3dadd(81.942, 123.433, 11.611, 3.154)
pt3dadd(81.872, 123.528, 11.591, 3.134)
pt3dadd(81.801, 123.622, 11.571, 3.116)
pt3dadd(81.731, 123.716, 11.551, 3.098)
pt3dadd(81.661, 123.81, 11.531, 3.08)
}
}
proc shape3d_2() {
apic { pt3dadd(81.599, 123.907, 11.502, 3.07)
pt3dadd(81.538, 124.004, 11.472, 3.06)
pt3dadd(81.477, 124.1, 11.443, 3.052)
pt3dadd(81.415, 124.198, 11.413, 3.042)
pt3dadd(81.354, 124.295, 11.383, 3.034)
pt3dadd(81.293, 124.392, 11.353, 3.024)
pt3dadd(81.232, 124.488, 11.323, 3.016)
pt3dadd(81.171, 124.585, 11.294, 3.006)
pt3dadd(81.11, 124.682, 11.264, 2.998)
pt3dadd(81.048, 124.778, 11.234, 2.988)
pt3dadd(80.979, 124.873, 11.213, 3.002)
pt3dadd(80.909, 124.968, 11.193, 3.018)
pt3dadd(80.839, 125.062, 11.173, 3.034)
pt3dadd(80.769, 125.156, 11.153, 3.05)
pt3dadd(80.698, 125.251, 11.133, 3.066)
pt3dadd(80.628, 125.345, 11.113, 3.082)
pt3dadd(80.558, 125.44, 11.093, 3.098)
pt3dadd(80.488, 125.534, 11.073, 3.114)
pt3dadd(80.418, 125.628, 11.052, 3.128)
pt3dadd(80.348, 125.723, 11.032, 3.144)
pt3dadd(80.271, 125.813, 11.021, 3.114)
pt3dadd(80.193, 125.904, 11.01, 3.078)
pt3dadd(80.115, 125.994, 11, 3.042)
pt3dadd(80.037, 126.085, 10.989, 3.006)
pt3dadd(79.96, 126.175, 10.978, 2.972)
pt3dadd(79.882, 126.265, 10.968, 2.936)
pt3dadd(79.804, 126.356, 10.957, 2.9)
pt3dadd(79.726, 126.446, 10.946, 2.866)
pt3dadd(79.649, 126.538, 10.936, 2.83)
pt3dadd(79.571, 126.628, 10.925, 2.794)
pt3dadd(79.49, 126.716, 10.918, 2.784)
pt3dadd(79.41, 126.805, 10.912, 2.776)
pt3dadd(79.329, 126.894, 10.905, 2.768)
pt3dadd(79.249, 126.982, 10.899, 2.76)
pt3dadd(79.168, 127.07, 10.892, 2.752)
pt3dadd(79.087, 127.159, 10.886, 2.744)
pt3dadd(79.007, 127.248, 10.879, 2.736)
pt3dadd(78.926, 127.337, 10.872, 2.728)
pt3dadd(78.846, 127.426, 10.866, 2.72)
pt3dadd(78.765, 127.513, 10.859, 2.712)
pt3dadd(78.685, 127.602, 10.852, 2.712)
pt3dadd(78.605, 127.691, 10.845, 2.712)
pt3dadd(78.524, 127.78, 10.838, 2.712)
pt3dadd(78.444, 127.868, 10.831, 2.712)
pt3dadd(78.364, 127.957, 10.824, 2.712)
pt3dadd(78.284, 128.046, 10.816, 2.712)
pt3dadd(78.204, 128.135, 10.809, 2.712)
pt3dadd(78.123, 128.224, 10.802, 2.712)
pt3dadd(78.043, 128.314, 10.795, 2.712)
pt3dadd(77.963, 128.402, 10.788, 2.712)
pt3dadd(77.887, 128.494, 10.775, 2.718)
pt3dadd(77.812, 128.586, 10.761, 2.726)
pt3dadd(77.736, 128.677, 10.747, 2.732)
pt3dadd(77.661, 128.77, 10.733, 2.74)
pt3dadd(77.586, 128.861, 10.72, 2.746)
pt3dadd(77.51, 128.953, 10.706, 2.754)
pt3dadd(77.435, 129.044, 10.692, 2.76)
pt3dadd(77.359, 129.137, 10.679, 2.768)
pt3dadd(77.284, 129.229, 10.665, 2.774)
pt3dadd(77.209, 129.32, 10.651, 2.782)
pt3dadd(77.152, 129.418, 10.617, 2.82)
pt3dadd(77.095, 129.516, 10.583, 2.858)
pt3dadd(77.038, 129.613, 10.55, 2.896)
pt3dadd(76.981, 129.71, 10.516, 2.934)
pt3dadd(76.924, 129.809, 10.482, 2.972)
pt3dadd(76.867, 129.906, 10.448, 3.01)
pt3dadd(76.81, 130.003, 10.415, 3.05)
pt3dadd(76.753, 130.1, 10.381, 3.088)
pt3dadd(76.696, 130.199, 10.347, 3.126)
pt3dadd(76.639, 130.296, 10.314, 3.164)
}
apic[1] {pt3dclear()
pt3dadd(76.639, 130.296, 10.314, 3.164)
pt3dadd(76.612, 130.333, 10.305, 3.172)
pt3dadd(76.543, 130.429, 10.283, 3.19)
pt3dadd(76.475, 130.524, 10.261, 3.208)
pt3dadd(76.406, 130.619, 10.24, 3.228)
pt3dadd(76.338, 130.714, 10.218, 3.246)
pt3dadd(76.269, 130.808, 10.196, 3.264)
pt3dadd(76.201, 130.903, 10.174, 3.284)
pt3dadd(76.132, 130.999, 10.152, 3.302)
pt3dadd(76.06, 131.093, 10.135, 3.33)
pt3dadd(75.988, 131.186, 10.117, 3.358)
pt3dadd(75.916, 131.28, 10.099, 3.386)
pt3dadd(75.844, 131.374, 10.081, 3.414)
pt3dadd(75.772, 131.467, 10.064, 3.442)
pt3dadd(75.7, 131.561, 10.046, 3.47)
pt3dadd(75.628, 131.654, 10.028, 3.496)
pt3dadd(75.556, 131.748, 10.011, 3.524)
pt3dadd(75.484, 131.842, 9.993, 3.552)
pt3dadd(75.412, 131.935, 9.975, 3.58)
pt3dadd(75.337, 132.026, 9.963, 3.592)
pt3dadd(75.261, 132.119, 9.95, 3.604)
pt3dadd(75.185, 132.21, 9.938, 3.614)
pt3dadd(75.109, 132.302, 9.925, 3.626)
pt3dadd(75.033, 132.394, 9.913, 3.638)
pt3dadd(74.958, 132.486, 9.9, 3.648)
pt3dadd(74.882, 132.577, 9.888, 3.66)
pt3dadd(74.806, 132.67, 9.875, 3.672)
pt3dadd(74.73, 132.761, 9.863, 3.684)
pt3dadd(74.654, 132.853, 9.85, 3.694)
pt3dadd(74.576, 132.943, 9.841, 3.642)
pt3dadd(74.497, 133.033, 9.833, 3.588)
pt3dadd(74.419, 133.123, 9.824, 3.536)
pt3dadd(74.341, 133.214, 9.815, 3.482)
pt3dadd(74.262, 133.304, 9.806, 3.43)
pt3dadd(74.184, 133.394, 9.798, 3.376)
pt3dadd(74.106, 133.484, 9.789, 3.324)
pt3dadd(74.027, 133.576, 9.78, 3.27)
pt3dadd(73.949, 133.666, 9.771, 3.218)
pt3dadd(73.87, 133.756, 9.762, 3.164)
}
apic[2] {pt3dclear()
pt3dadd(73.87, 133.756, 9.762, 3.164)
pt3dadd(73.859, 133.776, 9.756, 3.156)
pt3dadd(73.803, 133.874, 9.723, 3.118)
pt3dadd(73.747, 133.973, 9.69, 3.08)
pt3dadd(73.691, 134.071, 9.657, 3.04)
pt3dadd(73.635, 134.17, 9.624, 3.002)
pt3dadd(73.579, 134.268, 9.591, 2.964)
pt3dadd(73.523, 134.366, 9.559, 2.924)
pt3dadd(73.467, 134.465, 9.526, 2.886)
pt3dadd(73.412, 134.564, 9.493, 2.848)
pt3dadd(73.352, 134.662, 9.465, 2.816)
pt3dadd(73.289, 134.76, 9.441, 2.792)
pt3dadd(73.226, 134.858, 9.417, 2.766)
pt3dadd(73.163, 134.956, 9.393, 2.74)
pt3dadd(73.1, 135.054, 9.369, 2.716)
pt3dadd(73.037, 135.152, 9.345, 2.69)
pt3dadd(72.974, 135.25, 9.321, 2.666)
pt3dadd(72.911, 135.348, 9.296, 2.64)
pt3dadd(72.848, 135.446, 9.272, 2.616)
pt3dadd(72.785, 135.544, 9.248, 2.59)
pt3dadd(72.718, 135.641, 9.23, 2.568)
pt3dadd(72.649, 135.738, 9.216, 2.55)
pt3dadd(72.579, 135.834, 9.201, 2.53)
pt3dadd(72.51, 135.93, 9.187, 2.512)
pt3dadd(72.441, 136.027, 9.173, 2.494)
pt3dadd(72.372, 136.123, 9.158, 2.474)
pt3dadd(72.303, 136.22, 9.144, 2.456)
pt3dadd(72.234, 136.316, 9.13, 2.436)
pt3dadd(72.164, 136.414, 9.115, 2.418)
pt3dadd(72.095, 136.51, 9.101, 2.398)
pt3dadd(72.026, 136.607, 9.092, 2.386)
pt3dadd(71.958, 136.705, 9.085, 2.38)
pt3dadd(71.889, 136.804, 9.079, 2.372)
pt3dadd(71.82, 136.902, 9.073, 2.366)
pt3dadd(71.752, 136.999, 9.067, 2.358)
pt3dadd(71.683, 137.098, 9.06, 2.352)
pt3dadd(71.615, 137.196, 9.054, 2.344)
pt3dadd(71.546, 137.294, 9.048, 2.338)
pt3dadd(71.478, 137.393, 9.042, 2.33)
pt3dadd(71.409, 137.491, 9.035, 2.324)
pt3dadd(71.345, 137.592, 9.033, 2.334)
pt3dadd(71.284, 137.695, 9.033, 2.354)
pt3dadd(71.223, 137.798, 9.033, 2.374)
pt3dadd(71.162, 137.902, 9.033, 2.394)
pt3dadd(71.101, 138.005, 9.033, 2.414)
pt3dadd(71.04, 138.109, 9.033, 2.436)
pt3dadd(70.979, 138.212, 9.033, 2.456)
pt3dadd(70.918, 138.316, 9.033, 2.476)
pt3dadd(70.857, 138.419, 9.033, 2.496)
pt3dadd(70.795, 138.522, 9.033, 2.516)
pt3dadd(70.73, 138.623, 9.033, 2.536)
pt3dadd(70.662, 138.721, 9.033, 2.554)
pt3dadd(70.595, 138.821, 9.033, 2.572)
pt3dadd(70.527, 138.919, 9.033, 2.59)
pt3dadd(70.459, 139.019, 9.033, 2.608)
pt3dadd(70.391, 139.117, 9.033, 2.626)
pt3dadd(70.324, 139.217, 9.033, 2.646)
pt3dadd(70.256, 139.315, 9.032, 2.664)
pt3dadd(70.188, 139.415, 9.032, 2.682)
pt3dadd(70.121, 139.514, 9.032, 2.7)
pt3dadd(70.049, 139.61, 9.032, 2.694)
pt3dadd(69.976, 139.705, 9.032, 2.676)
pt3dadd(69.903, 139.8, 9.032, 2.658)
pt3dadd(69.829, 139.896, 9.032, 2.638)
pt3dadd(69.756, 139.991, 9.032, 2.62)
pt3dadd(69.683, 140.086, 9.032, 2.602)
pt3dadd(69.61, 140.18, 9.032, 2.582)
pt3dadd(69.536, 140.275, 9.032, 2.564)
pt3dadd(69.463, 140.371, 9.031, 2.546)
pt3dadd(69.39, 140.466, 9.031, 2.526)
pt3dadd(69.323, 140.566, 9.031, 2.54)
pt3dadd(69.259, 140.666, 9.031, 2.568)
pt3dadd(69.195, 140.768, 9.031, 2.598)
pt3dadd(69.132, 140.87, 9.031, 2.628)
pt3dadd(69.068, 140.971, 9.03, 2.658)
pt3dadd(69.004, 141.073, 9.03, 2.688)
pt3dadd(68.94, 141.175, 9.03, 2.716)
pt3dadd(68.877, 141.277, 9.03, 2.746)
pt3dadd(68.813, 141.378, 9.029, 2.776)
pt3dadd(68.749, 141.48, 9.029, 2.806)
pt3dadd(68.682, 141.58, 9.029, 2.814)
pt3dadd(68.613, 141.678, 9.028, 2.814)
pt3dadd(68.545, 141.776, 9.028, 2.814)
pt3dadd(68.476, 141.875, 9.027, 2.812)
pt3dadd(68.407, 141.973, 9.027, 2.812)
pt3dadd(68.339, 142.072, 9.026, 2.81)
pt3dadd(68.27, 142.17, 9.026, 2.81)
pt3dadd(68.201, 142.268, 9.026, 2.808)
pt3dadd(68.133, 142.367, 9.025, 2.808)
pt3dadd(68.064, 142.465, 9.025, 2.806)
pt3dadd(67.991, 142.56, 9.024, 2.8)
}
}
proc shape3d_3() {
apic[2] { pt3dadd(67.915, 142.654, 9.023, 2.79)
pt3dadd(67.84, 142.747, 9.023, 2.782)
pt3dadd(67.765, 142.841, 9.022, 2.772)
pt3dadd(67.689, 142.933, 9.021, 2.762)
pt3dadd(67.614, 143.027, 9.02, 2.752)
pt3dadd(67.539, 143.12, 9.019, 2.744)
pt3dadd(67.463, 143.214, 9.018, 2.734)
pt3dadd(67.388, 143.308, 9.018, 2.724)
pt3dadd(67.313, 143.401, 9.017, 2.716)
pt3dadd(67.234, 143.491, 9.016, 2.712)
pt3dadd(67.154, 143.581, 9.014, 2.712)
pt3dadd(67.074, 143.67, 9.013, 2.712)
pt3dadd(66.994, 143.76, 9.012, 2.712)
pt3dadd(66.914, 143.849, 9.01, 2.712)
pt3dadd(66.834, 143.939, 9.009, 2.712)
pt3dadd(66.754, 144.029, 9.008, 2.712)
pt3dadd(66.675, 144.118, 9.007, 2.712)
pt3dadd(66.594, 144.208, 9.005, 2.712)
pt3dadd(66.515, 144.296, 9.004, 2.712)
pt3dadd(66.432, 144.384, 9.002, 2.712)
pt3dadd(66.349, 144.47, 9, 2.712)
pt3dadd(66.265, 144.557, 8.998, 2.712)
pt3dadd(66.182, 144.643, 8.996, 2.712)
pt3dadd(66.099, 144.728, 8.994, 2.712)
pt3dadd(66.015, 144.815, 8.991, 2.712)
pt3dadd(65.932, 144.901, 8.989, 2.712)
pt3dadd(65.848, 144.988, 8.987, 2.712)
pt3dadd(65.765, 145.074, 8.985, 2.712)
pt3dadd(65.682, 145.16, 8.983, 2.712)
pt3dadd(65.6, 145.248, 8.979, 2.712)
pt3dadd(65.518, 145.336, 8.974, 2.712)
pt3dadd(65.436, 145.423, 8.969, 2.712)
pt3dadd(65.355, 145.511, 8.964, 2.712)
pt3dadd(65.274, 145.598, 8.96, 2.712)
pt3dadd(65.192, 145.687, 8.955, 2.712)
pt3dadd(65.111, 145.775, 8.95, 2.712)
pt3dadd(65.029, 145.862, 8.945, 2.712)
pt3dadd(64.947, 145.95, 8.94, 2.712)
pt3dadd(64.866, 146.039, 8.935, 2.712)
pt3dadd(64.786, 146.128, 8.928, 2.704)
pt3dadd(64.706, 146.216, 8.921, 2.694)
pt3dadd(64.627, 146.306, 8.913, 2.684)
pt3dadd(64.547, 146.395, 8.906, 2.674)
pt3dadd(64.468, 146.485, 8.899, 2.664)
pt3dadd(64.388, 146.574, 8.891, 2.654)
pt3dadd(64.309, 146.664, 8.884, 2.644)
pt3dadd(64.229, 146.753, 8.877, 2.634)
pt3dadd(64.15, 146.843, 8.869, 2.624)
pt3dadd(64.07, 146.932, 8.862, 2.614)
pt3dadd(63.996, 147.024, 8.848, 2.61)
pt3dadd(63.923, 147.119, 8.832, 2.608)
pt3dadd(63.851, 147.212, 8.815, 2.608)
pt3dadd(63.779, 147.306, 8.799, 2.606)
pt3dadd(63.707, 147.4, 8.782, 2.606)
pt3dadd(63.634, 147.493, 8.766, 2.606)
pt3dadd(63.562, 147.587, 8.749, 2.604)
pt3dadd(63.49, 147.68, 8.733, 2.604)
pt3dadd(63.418, 147.774, 8.716, 2.602)
pt3dadd(63.345, 147.869, 8.7, 2.602)
pt3dadd(63.285, 147.966, 8.671, 2.63)
pt3dadd(63.228, 148.064, 8.639, 2.666)
pt3dadd(63.172, 148.163, 8.607, 2.702)
pt3dadd(63.115, 148.261, 8.575, 2.738)
pt3dadd(63.058, 148.36, 8.543, 2.774)
pt3dadd(63.001, 148.458, 8.512, 2.81)
pt3dadd(62.944, 148.556, 8.48, 2.846)
pt3dadd(62.887, 148.655, 8.448, 2.884)
pt3dadd(62.83, 148.753, 8.416, 2.92)
pt3dadd(62.774, 148.853, 8.384, 2.956)
pt3dadd(62.71, 148.95, 8.361, 2.978)
pt3dadd(62.645, 149.047, 8.339, 2.996)
pt3dadd(62.58, 149.146, 8.318, 3.016)
pt3dadd(62.515, 149.243, 8.297, 3.036)
pt3dadd(62.45, 149.34, 8.276, 3.054)
pt3dadd(62.385, 149.437, 8.254, 3.074)
pt3dadd(62.32, 149.536, 8.233, 3.092)
pt3dadd(62.255, 149.633, 8.212, 3.112)
pt3dadd(62.19, 149.73, 8.191, 3.13)
pt3dadd(62.124, 149.828, 8.17, 3.15)
pt3dadd(62.055, 149.924, 8.156, 3.126)
pt3dadd(61.984, 150.02, 8.144, 3.092)
pt3dadd(61.914, 150.116, 8.132, 3.058)
pt3dadd(61.843, 150.212, 8.121, 3.022)
pt3dadd(61.772, 150.308, 8.109, 2.988)
pt3dadd(61.701, 150.404, 8.097, 2.954)
pt3dadd(61.631, 150.5, 8.086, 2.918)
pt3dadd(61.56, 150.596, 8.074, 2.884)
pt3dadd(61.489, 150.692, 8.062, 2.85)
pt3dadd(61.419, 150.787, 8.05, 2.816)
pt3dadd(61.357, 150.89, 8.042, 2.8)
pt3dadd(61.297, 150.994, 8.035, 2.79)
pt3dadd(61.238, 151.098, 8.027, 2.782)
pt3dadd(61.178, 151.201, 8.019, 2.772)
pt3dadd(61.119, 151.306, 8.012, 2.762)
pt3dadd(61.059, 151.409, 8.004, 2.752)
pt3dadd(61, 151.513, 7.997, 2.742)
pt3dadd(60.94, 151.616, 7.989, 2.734)
pt3dadd(60.881, 151.721, 7.982, 2.724)
pt3dadd(60.821, 151.824, 7.974, 2.714)
pt3dadd(60.761, 151.927, 7.966, 2.68)
pt3dadd(60.7, 152.03, 7.957, 2.64)
pt3dadd(60.64, 152.134, 7.948, 2.602)
pt3dadd(60.58, 152.237, 7.939, 2.562)
pt3dadd(60.519, 152.34, 7.931, 2.522)
pt3dadd(60.459, 152.443, 7.922, 2.484)
pt3dadd(60.398, 152.546, 7.913, 2.444)
pt3dadd(60.338, 152.65, 7.904, 2.404)
pt3dadd(60.278, 152.753, 7.896, 2.366)
pt3dadd(60.217, 152.856, 7.887, 2.326)
pt3dadd(60.161, 152.959, 7.866, 2.314)
pt3dadd(60.106, 153.061, 7.843, 2.306)
pt3dadd(60.051, 153.164, 7.82, 2.298)
pt3dadd(59.996, 153.268, 7.797, 2.29)
pt3dadd(59.941, 153.371, 7.774, 2.282)
pt3dadd(59.886, 153.474, 7.751, 2.274)
pt3dadd(59.831, 153.577, 7.728, 2.268)
pt3dadd(59.776, 153.679, 7.705, 2.26)
pt3dadd(59.721, 153.782, 7.682, 2.252)
pt3dadd(59.666, 153.886, 7.66, 2.244)
pt3dadd(59.611, 153.986, 7.631, 2.28)
pt3dadd(59.557, 154.088, 7.602, 2.32)
pt3dadd(59.502, 154.189, 7.572, 2.36)
pt3dadd(59.448, 154.29, 7.543, 2.398)
pt3dadd(59.393, 154.391, 7.514, 2.438)
pt3dadd(59.338, 154.492, 7.485, 2.478)
pt3dadd(59.284, 154.592, 7.456, 2.518)
pt3dadd(59.229, 154.694, 7.426, 2.558)
pt3dadd(59.175, 154.795, 7.397, 2.596)
pt3dadd(59.12, 154.896, 7.368, 2.636)
pt3dadd(59.053, 154.993, 7.35, 2.662)
pt3dadd(58.986, 155.09, 7.331, 2.688)
pt3dadd(58.919, 155.186, 7.313, 2.716)
pt3dadd(58.852, 155.284, 7.294, 2.742)
pt3dadd(58.785, 155.381, 7.276, 2.768)
pt3dadd(58.718, 155.478, 7.257, 2.794)
pt3dadd(58.651, 155.575, 7.239, 2.82)
pt3dadd(58.584, 155.671, 7.22, 2.846)
pt3dadd(58.517, 155.768, 7.202, 2.872)
pt3dadd(58.449, 155.866, 7.183, 2.898)
pt3dadd(58.377, 155.96, 7.173, 2.88)
pt3dadd(58.306, 156.056, 7.163, 2.862)
pt3dadd(58.234, 156.151, 7.153, 2.842)
pt3dadd(58.162, 156.247, 7.143, 2.824)
pt3dadd(58.09, 156.342, 7.132, 2.806)
pt3dadd(58.018, 156.437, 7.122, 2.786)
pt3dadd(57.946, 156.533, 7.112, 2.768)
pt3dadd(57.874, 156.628, 7.102, 2.75)
pt3dadd(57.802, 156.724, 7.092, 2.73)
pt3dadd(57.73, 156.818, 7.081, 2.712)
}
apic[3] {pt3dclear()
pt3dadd(57.73, 156.818, 7.081, 2.712)
pt3dadd(57.699, 156.874, 7.08, 2.702)
pt3dadd(57.64, 156.978, 7.077, 2.68)
pt3dadd(57.581, 157.084, 7.074, 2.66)
pt3dadd(57.522, 157.188, 7.071, 2.64)
pt3dadd(57.463, 157.292, 7.068, 2.62)
pt3dadd(57.404, 157.397, 7.065, 2.598)
pt3dadd(57.345, 157.501, 7.062, 2.578)
pt3dadd(57.286, 157.606, 7.059, 2.558)
pt3dadd(57.227, 157.71, 7.056, 2.538)
pt3dadd(57.164, 157.812, 7.05, 2.536)
pt3dadd(57.099, 157.913, 7.044, 2.548)
pt3dadd(57.034, 158.014, 7.038, 2.558)
pt3dadd(56.969, 158.113, 7.032, 2.57)
pt3dadd(56.904, 158.214, 7.026, 2.58)
pt3dadd(56.84, 158.315, 7.02, 2.592)
pt3dadd(56.775, 158.416, 7.014, 2.602)
pt3dadd(56.71, 158.516, 7.007, 2.614)
pt3dadd(56.645, 158.617, 7.001, 2.624)
pt3dadd(56.58, 158.718, 6.995, 2.636)
pt3dadd(56.512, 158.816, 6.986, 2.636)
pt3dadd(56.442, 158.912, 6.977, 2.632)
pt3dadd(56.373, 159.01, 6.967, 2.628)
pt3dadd(56.304, 159.107, 6.957, 2.622)
pt3dadd(56.234, 159.204, 6.947, 2.618)
pt3dadd(56.165, 159.301, 6.937, 2.614)
pt3dadd(56.095, 159.398, 6.927, 2.61)
pt3dadd(56.026, 159.496, 6.917, 2.606)
pt3dadd(55.956, 159.593, 6.907, 2.6)
pt3dadd(55.887, 159.69, 6.898, 2.596)
pt3dadd(55.821, 159.787, 6.879, 2.592)
pt3dadd(55.757, 159.886, 6.856, 2.59)
pt3dadd(55.693, 159.983, 6.833, 2.588)
pt3dadd(55.63, 160.081, 6.81, 2.584)
pt3dadd(55.566, 160.178, 6.786, 2.582)
pt3dadd(55.502, 160.277, 6.763, 2.578)
pt3dadd(55.438, 160.374, 6.74, 2.576)
pt3dadd(55.375, 160.472, 6.717, 2.574)
pt3dadd(55.311, 160.57, 6.694, 2.57)
pt3dadd(55.247, 160.668, 6.671, 2.568)
pt3dadd(55.191, 160.765, 6.637, 2.568)
pt3dadd(55.136, 160.864, 6.601, 2.568)
pt3dadd(55.082, 160.961, 6.565, 2.568)
pt3dadd(55.028, 161.059, 6.529, 2.57)
pt3dadd(54.974, 161.156, 6.493, 2.57)
pt3dadd(54.919, 161.255, 6.456, 2.57)
pt3dadd(54.865, 161.352, 6.42, 2.572)
pt3dadd(54.811, 161.45, 6.384, 2.572)
pt3dadd(54.757, 161.548, 6.347, 2.572)
pt3dadd(54.702, 161.646, 6.311, 2.574)
pt3dadd(54.643, 161.743, 6.28, 2.532)
}
}
proc shape3d_4() {
apic[3] { pt3dadd(54.582, 161.839, 6.25, 2.48)
pt3dadd(54.521, 161.936, 6.22, 2.426)
pt3dadd(54.46, 162.034, 6.19, 2.374)
pt3dadd(54.399, 162.131, 6.16, 2.32)
pt3dadd(54.338, 162.227, 6.13, 2.268)
pt3dadd(54.277, 162.324, 6.1, 2.214)
pt3dadd(54.216, 162.421, 6.07, 2.162)
pt3dadd(54.156, 162.518, 6.04, 2.108)
pt3dadd(54.095, 162.616, 6.01, 2.056)
pt3dadd(54.044, 162.713, 5.971, 2.06)
pt3dadd(53.996, 162.811, 5.929, 2.078)
pt3dadd(53.948, 162.908, 5.887, 2.098)
pt3dadd(53.901, 163.007, 5.845, 2.116)
pt3dadd(53.853, 163.104, 5.803, 2.136)
pt3dadd(53.805, 163.202, 5.762, 2.156)
pt3dadd(53.757, 163.301, 5.72, 2.174)
pt3dadd(53.709, 163.398, 5.678, 2.194)
pt3dadd(53.661, 163.496, 5.636, 2.212)
pt3dadd(53.613, 163.595, 5.594, 2.232)
pt3dadd(53.55, 163.69, 5.568, 2.238)
pt3dadd(53.481, 163.786, 5.546, 2.24)
pt3dadd(53.413, 163.88, 5.523, 2.242)
pt3dadd(53.345, 163.975, 5.501, 2.246)
pt3dadd(53.277, 164.07, 5.479, 2.248)
pt3dadd(53.208, 164.165, 5.456, 2.25)
pt3dadd(53.14, 164.26, 5.434, 2.252)
pt3dadd(53.072, 164.356, 5.412, 2.254)
pt3dadd(53.004, 164.45, 5.39, 2.258)
pt3dadd(52.935, 164.545, 5.367, 2.26)
pt3dadd(52.86, 164.636, 5.353, 2.278)
pt3dadd(52.784, 164.729, 5.341, 2.302)
pt3dadd(52.707, 164.82, 5.329, 2.324)
pt3dadd(52.631, 164.911, 5.317, 2.348)
pt3dadd(52.554, 165.002, 5.304, 2.37)
pt3dadd(52.478, 165.094, 5.292, 2.394)
pt3dadd(52.401, 165.185, 5.28, 2.416)
pt3dadd(52.325, 165.276, 5.267, 2.438)
pt3dadd(52.248, 165.367, 5.255, 2.462)
pt3dadd(52.172, 165.458, 5.243, 2.484)
pt3dadd(52.091, 165.547, 5.237, 2.496)
pt3dadd(52.009, 165.635, 5.231, 2.508)
pt3dadd(51.928, 165.722, 5.226, 2.518)
pt3dadd(51.847, 165.81, 5.22, 2.528)
pt3dadd(51.765, 165.899, 5.215, 2.538)
pt3dadd(51.684, 165.986, 5.209, 2.548)
pt3dadd(51.602, 166.074, 5.204, 2.56)
pt3dadd(51.521, 166.162, 5.198, 2.57)
pt3dadd(51.44, 166.25, 5.193, 2.58)
pt3dadd(51.358, 166.338, 5.188, 2.59)
pt3dadd(51.274, 166.423, 5.187, 2.564)
pt3dadd(51.189, 166.508, 5.186, 2.53)
pt3dadd(51.104, 166.594, 5.186, 2.498)
pt3dadd(51.02, 166.679, 5.186, 2.464)
pt3dadd(50.935, 166.763, 5.186, 2.432)
pt3dadd(50.85, 166.848, 5.186, 2.398)
pt3dadd(50.766, 166.933, 5.185, 2.366)
pt3dadd(50.681, 167.018, 5.185, 2.332)
pt3dadd(50.596, 167.104, 5.185, 2.298)
pt3dadd(50.511, 167.188, 5.185, 2.266)
pt3dadd(50.427, 167.273, 5.184, 2.29)
pt3dadd(50.342, 167.358, 5.184, 2.324)
pt3dadd(50.257, 167.443, 5.183, 2.356)
pt3dadd(50.173, 167.528, 5.183, 2.39)
pt3dadd(50.088, 167.614, 5.183, 2.424)
pt3dadd(50.004, 167.699, 5.182, 2.458)
pt3dadd(49.919, 167.784, 5.182, 2.49)
pt3dadd(49.835, 167.869, 5.181, 2.524)
pt3dadd(49.75, 167.954, 5.181, 2.558)
pt3dadd(49.665, 168.04, 5.18, 2.59)
pt3dadd(49.581, 168.125, 5.18, 2.596)
pt3dadd(49.497, 168.21, 5.179, 2.596)
pt3dadd(49.412, 168.295, 5.178, 2.598)
pt3dadd(49.328, 168.38, 5.177, 2.598)
pt3dadd(49.244, 168.466, 5.176, 2.598)
pt3dadd(49.159, 168.552, 5.176, 2.6)
pt3dadd(49.075, 168.637, 5.175, 2.6)
pt3dadd(48.991, 168.722, 5.174, 2.602)
pt3dadd(48.907, 168.808, 5.173, 2.602)
pt3dadd(48.822, 168.893, 5.172, 2.604)
pt3dadd(48.738, 168.979, 5.171, 2.588)
pt3dadd(48.654, 169.064, 5.17, 2.572)
pt3dadd(48.57, 169.15, 5.169, 2.556)
pt3dadd(48.486, 169.236, 5.167, 2.538)
pt3dadd(48.402, 169.321, 5.166, 2.522)
pt3dadd(48.318, 169.406, 5.165, 2.504)
pt3dadd(48.234, 169.493, 5.164, 2.488)
pt3dadd(48.15, 169.578, 5.162, 2.472)
pt3dadd(48.066, 169.663, 5.161, 2.454)
pt3dadd(47.982, 169.75, 5.16, 2.438)
pt3dadd(47.898, 169.835, 5.158, 2.42)
pt3dadd(47.814, 169.921, 5.156, 2.404)
pt3dadd(47.731, 170.008, 5.154, 2.388)
pt3dadd(47.647, 170.094, 5.152, 2.37)
pt3dadd(47.564, 170.179, 5.15, 2.354)
pt3dadd(47.48, 170.266, 5.148, 2.336)
pt3dadd(47.397, 170.352, 5.146, 2.32)
pt3dadd(47.313, 170.438, 5.144, 2.302)
pt3dadd(47.23, 170.524, 5.142, 2.286)
pt3dadd(47.146, 170.61, 5.14, 2.268)
pt3dadd(47.064, 170.698, 5.136, 2.266)
pt3dadd(46.983, 170.785, 5.131, 2.266)
pt3dadd(46.901, 170.873, 5.126, 2.264)
pt3dadd(46.819, 170.96, 5.121, 2.264)
pt3dadd(46.738, 171.049, 5.116, 2.264)
pt3dadd(46.656, 171.137, 5.111, 2.262)
pt3dadd(46.574, 171.224, 5.106, 2.262)
pt3dadd(46.493, 171.312, 5.101, 2.262)
pt3dadd(46.411, 171.4, 5.096, 2.26)
pt3dadd(46.329, 171.487, 5.092, 2.26)
pt3dadd(46.249, 171.576, 5.085, 2.26)
pt3dadd(46.169, 171.666, 5.077, 2.26)
pt3dadd(46.089, 171.755, 5.07, 2.26)
pt3dadd(46.009, 171.844, 5.063, 2.26)
pt3dadd(45.929, 171.932, 5.056, 2.26)
pt3dadd(45.849, 172.021, 5.048, 2.26)
pt3dadd(45.77, 172.111, 5.041, 2.26)
pt3dadd(45.69, 172.2, 5.034, 2.26)
pt3dadd(45.61, 172.289, 5.027, 2.26)
pt3dadd(45.53, 172.378, 5.019, 2.26)
pt3dadd(45.457, 172.471, 5.003, 2.278)
pt3dadd(45.385, 172.565, 4.986, 2.3)
pt3dadd(45.313, 172.658, 4.969, 2.322)
pt3dadd(45.241, 172.752, 4.952, 2.344)
pt3dadd(45.169, 172.846, 4.934, 2.366)
pt3dadd(45.097, 172.94, 4.917, 2.386)
pt3dadd(45.025, 173.034, 4.9, 2.408)
pt3dadd(44.953, 173.128, 4.882, 2.43)
pt3dadd(44.881, 173.221, 4.865, 2.452)
pt3dadd(44.809, 173.315, 4.848, 2.474)
pt3dadd(44.748, 173.412, 4.819, 2.518)
pt3dadd(44.688, 173.509, 4.789, 2.566)
pt3dadd(44.627, 173.608, 4.76, 2.612)
pt3dadd(44.567, 173.705, 4.73, 2.658)
pt3dadd(44.506, 173.802, 4.701, 2.706)
pt3dadd(44.446, 173.899, 4.671, 2.752)
pt3dadd(44.385, 173.996, 4.642, 2.798)
pt3dadd(44.325, 174.095, 4.613, 2.844)
pt3dadd(44.264, 174.192, 4.583, 2.892)
pt3dadd(44.204, 174.289, 4.554, 2.938)
pt3dadd(44.134, 174.384, 4.536, 2.938)
pt3dadd(44.064, 174.479, 4.517, 2.938)
pt3dadd(43.994, 174.574, 4.499, 2.938)
pt3dadd(43.923, 174.668, 4.481, 2.938)
pt3dadd(43.853, 174.764, 4.463, 2.938)
pt3dadd(43.783, 174.859, 4.445, 2.938)
pt3dadd(43.713, 174.954, 4.427, 2.938)
pt3dadd(43.643, 175.049, 4.408, 2.938)
pt3dadd(43.573, 175.144, 4.39, 2.938)
pt3dadd(43.503, 175.238, 4.372, 2.938)
}
apic[4] {pt3dclear()
pt3dadd(43.503, 175.238, 4.372, 2.938)
pt3dadd(43.477, 175.267, 4.37, 2.902)
pt3dadd(43.399, 175.358, 4.365, 2.792)
pt3dadd(43.321, 175.45, 4.36, 2.682)
pt3dadd(43.243, 175.54, 4.354, 2.572)
pt3dadd(43.165, 175.631, 4.349, 2.462)
pt3dadd(43.086, 175.722, 4.344, 2.352)
pt3dadd(43.008, 175.812, 4.338, 2.242)
pt3dadd(42.93, 175.903, 4.333, 2.132)
pt3dadd(42.852, 175.994, 4.328, 2.022)
pt3dadd(42.772, 176.083, 4.327, 1.988)
pt3dadd(42.691, 176.172, 4.33, 2.02)
pt3dadd(42.61, 176.261, 4.333, 2.052)
pt3dadd(42.529, 176.348, 4.336, 2.084)
pt3dadd(42.448, 176.437, 4.339, 2.116)
pt3dadd(42.367, 176.526, 4.342, 2.148)
pt3dadd(42.286, 176.615, 4.345, 2.18)
pt3dadd(42.205, 176.702, 4.349, 2.212)
pt3dadd(42.124, 176.791, 4.352, 2.244)
pt3dadd(42.043, 176.88, 4.355, 2.276)
pt3dadd(41.962, 176.968, 4.362, 2.304)
pt3dadd(41.882, 177.056, 4.373, 2.328)
pt3dadd(41.801, 177.144, 4.384, 2.352)
pt3dadd(41.721, 177.232, 4.395, 2.376)
pt3dadd(41.64, 177.32, 4.406, 2.4)
pt3dadd(41.56, 177.408, 4.417, 2.424)
pt3dadd(41.479, 177.496, 4.428, 2.448)
pt3dadd(41.399, 177.583, 4.439, 2.472)
pt3dadd(41.318, 177.672, 4.451, 2.496)
pt3dadd(41.238, 177.76, 4.462, 2.52)
pt3dadd(41.161, 177.848, 4.482, 2.476)
pt3dadd(41.089, 177.938, 4.51, 2.38)
pt3dadd(41.016, 178.027, 4.538, 2.284)
pt3dadd(40.944, 178.117, 4.566, 2.188)
pt3dadd(40.871, 178.206, 4.594, 2.092)
pt3dadd(40.798, 178.296, 4.622, 1.996)
pt3dadd(40.726, 178.385, 4.65, 1.9)
pt3dadd(40.653, 178.475, 4.678, 1.802)
pt3dadd(40.581, 178.564, 4.707, 1.706)
pt3dadd(40.508, 178.654, 4.734, 1.61)
pt3dadd(40.462, 178.74, 4.789, 1.522)
pt3dadd(40.423, 178.826, 4.851, 1.434)
pt3dadd(40.385, 178.912, 4.913, 1.348)
pt3dadd(40.346, 178.998, 4.975, 1.262)
pt3dadd(40.307, 179.083, 5.037, 1.174)
pt3dadd(40.268, 179.17, 5.098, 1.088)
pt3dadd(40.23, 179.256, 5.16, 1.002)
pt3dadd(40.191, 179.341, 5.222, 0.914)
pt3dadd(40.152, 179.428, 5.284, 0.828)
pt3dadd(40.113, 179.514, 5.346, 0.74)
pt3dadd(40.093, 179.612, 5.399, 0.706)
}
}
proc shape3d_5() {
apic[4] { pt3dadd(40.076, 179.713, 5.452, 0.678)
pt3dadd(40.058, 179.814, 5.504, 0.65)
pt3dadd(40.04, 179.915, 5.557, 0.62)
pt3dadd(40.022, 180.016, 5.609, 0.592)
pt3dadd(40.005, 180.115, 5.662, 0.564)
pt3dadd(39.987, 180.216, 5.714, 0.534)
pt3dadd(39.969, 180.317, 5.767, 0.506)
pt3dadd(39.951, 180.418, 5.819, 0.478)
pt3dadd(39.933, 180.518, 5.871, 0.45)
pt3dadd(39.912, 180.632, 5.894, 0.474)
pt3dadd(39.89, 180.748, 5.918, 0.496)
pt3dadd(39.868, 180.862, 5.941, 0.52)
pt3dadd(39.846, 180.977, 5.965, 0.542)
pt3dadd(39.825, 181.091, 5.988, 0.566)
pt3dadd(39.803, 181.206, 6.011, 0.588)
pt3dadd(39.781, 181.321, 6.035, 0.612)
pt3dadd(39.759, 181.435, 6.058, 0.634)
pt3dadd(39.738, 181.55, 6.082, 0.658)
pt3dadd(39.713, 181.664, 6.103, 0.676)
pt3dadd(39.665, 181.774, 6.108, 0.666)
pt3dadd(39.618, 181.884, 6.113, 0.654)
pt3dadd(39.57, 181.994, 6.118, 0.644)
pt3dadd(39.522, 182.104, 6.123, 0.634)
pt3dadd(39.475, 182.214, 6.128, 0.622)
pt3dadd(39.427, 182.324, 6.133, 0.612)
pt3dadd(39.38, 182.434, 6.138, 0.6)
pt3dadd(39.332, 182.544, 6.144, 0.59)
pt3dadd(39.285, 182.654, 6.149, 0.578)
pt3dadd(39.231, 182.76, 6.153, 0.572)
pt3dadd(39.161, 182.858, 6.153, 0.574)
pt3dadd(39.091, 182.956, 6.153, 0.576)
pt3dadd(39.021, 183.053, 6.153, 0.58)
pt3dadd(38.952, 183.151, 6.153, 0.582)
pt3dadd(38.882, 183.248, 6.153, 0.584)
pt3dadd(38.812, 183.346, 6.154, 0.588)
pt3dadd(38.742, 183.444, 6.154, 0.59)
pt3dadd(38.672, 183.541, 6.154, 0.592)
pt3dadd(38.602, 183.638, 6.154, 0.596)
pt3dadd(38.53, 183.734, 6.154, 0.606)
pt3dadd(38.451, 183.824, 6.154, 0.634)
pt3dadd(38.373, 183.916, 6.155, 0.662)
pt3dadd(38.294, 184.006, 6.155, 0.69)
pt3dadd(38.215, 184.097, 6.155, 0.718)
pt3dadd(38.136, 184.187, 6.155, 0.746)
pt3dadd(38.058, 184.278, 6.156, 0.774)
pt3dadd(37.979, 184.368, 6.156, 0.804)
pt3dadd(37.9, 184.459, 6.156, 0.832)
pt3dadd(37.822, 184.549, 6.157, 0.86)
pt3dadd(37.742, 184.639, 6.157, 0.874)
pt3dadd(37.661, 184.728, 6.157, 0.856)
pt3dadd(37.579, 184.816, 6.158, 0.84)
pt3dadd(37.497, 184.903, 6.158, 0.822)
pt3dadd(37.416, 184.992, 6.159, 0.804)
pt3dadd(37.334, 185.08, 6.159, 0.788)
pt3dadd(37.253, 185.167, 6.16, 0.77)
pt3dadd(37.171, 185.256, 6.16, 0.752)
pt3dadd(37.089, 185.344, 6.161, 0.734)
pt3dadd(37.008, 185.431, 6.161, 0.718)
pt3dadd(36.927, 185.52, 6.162, 0.704)
pt3dadd(36.847, 185.61, 6.163, 0.702)
pt3dadd(36.768, 185.7, 6.164, 0.7)
pt3dadd(36.688, 185.79, 6.165, 0.696)
pt3dadd(36.609, 185.88, 6.166, 0.694)
pt3dadd(36.529, 185.969, 6.167, 0.69)
pt3dadd(36.45, 186.059, 6.168, 0.688)
pt3dadd(36.37, 186.149, 6.169, 0.686)
pt3dadd(36.291, 186.239, 6.17, 0.682)
pt3dadd(36.211, 186.329, 6.171, 0.68)
pt3dadd(36.135, 186.421, 6.172, 0.678)
pt3dadd(36.067, 186.52, 6.174, 0.678)
pt3dadd(35.998, 186.618, 6.176, 0.678)
pt3dadd(35.93, 186.718, 6.178, 0.678)
pt3dadd(35.862, 186.816, 6.18, 0.678)
pt3dadd(35.793, 186.914, 6.182, 0.678)
pt3dadd(35.725, 187.013, 6.184, 0.678)
pt3dadd(35.657, 187.111, 6.186, 0.678)
pt3dadd(35.588, 187.21, 6.188, 0.678)
pt3dadd(35.52, 187.309, 6.189, 0.678)
pt3dadd(35.453, 187.408, 6.192, 0.678)
pt3dadd(35.388, 187.508, 6.197, 0.678)
pt3dadd(35.323, 187.609, 6.201, 0.678)
pt3dadd(35.258, 187.71, 6.206, 0.678)
pt3dadd(35.193, 187.811, 6.21, 0.678)
pt3dadd(35.129, 187.913, 6.214, 0.678)
pt3dadd(35.064, 188.014, 6.219, 0.678)
pt3dadd(34.999, 188.114, 6.223, 0.678)
pt3dadd(34.934, 188.215, 6.227, 0.678)
pt3dadd(34.869, 188.316, 6.232, 0.678)
pt3dadd(34.802, 188.414, 6.237, 0.678)
pt3dadd(34.729, 188.509, 6.245, 0.678)
pt3dadd(34.657, 188.605, 6.253, 0.678)
pt3dadd(34.585, 188.7, 6.261, 0.678)
pt3dadd(34.513, 188.796, 6.269, 0.678)
pt3dadd(34.441, 188.891, 6.276, 0.678)
pt3dadd(34.368, 188.987, 6.284, 0.678)
pt3dadd(34.296, 189.082, 6.292, 0.678)
pt3dadd(34.224, 189.178, 6.3, 0.678)
pt3dadd(34.152, 189.272, 6.307, 0.678)
pt3dadd(34.079, 189.366, 6.32, 0.68)
pt3dadd(34.004, 189.457, 6.341, 0.69)
pt3dadd(33.929, 189.547, 6.363, 0.698)
pt3dadd(33.854, 189.637, 6.384, 0.706)
pt3dadd(33.779, 189.727, 6.405, 0.714)
pt3dadd(33.705, 189.818, 6.426, 0.722)
pt3dadd(33.63, 189.908, 6.447, 0.73)
pt3dadd(33.555, 189.998, 6.468, 0.738)
pt3dadd(33.48, 190.09, 6.489, 0.746)
pt3dadd(33.405, 190.18, 6.51, 0.754)
pt3dadd(33.333, 190.268, 6.539, 0.76)
pt3dadd(33.264, 190.356, 6.576, 0.764)
pt3dadd(33.195, 190.444, 6.613, 0.766)
pt3dadd(33.126, 190.53, 6.65, 0.77)
pt3dadd(33.056, 190.618, 6.687, 0.774)
pt3dadd(32.987, 190.705, 6.724, 0.778)
pt3dadd(32.918, 190.793, 6.761, 0.782)
pt3dadd(32.848, 190.88, 6.798, 0.784)
pt3dadd(32.779, 190.968, 6.835, 0.788)
pt3dadd(32.71, 191.054, 6.872, 0.792)
pt3dadd(32.647, 191.152, 6.898, 0.802)
pt3dadd(32.59, 191.254, 6.917, 0.816)
pt3dadd(32.532, 191.357, 6.936, 0.83)
pt3dadd(32.475, 191.46, 6.955, 0.844)
pt3dadd(32.417, 191.562, 6.974, 0.858)
pt3dadd(32.359, 191.665, 6.993, 0.872)
pt3dadd(32.302, 191.768, 7.012, 0.886)
pt3dadd(32.244, 191.87, 7.03, 0.9)
pt3dadd(32.187, 191.974, 7.049, 0.914)
pt3dadd(32.129, 192.077, 7.068, 0.928)
pt3dadd(32.082, 192.186, 7.078, 0.946)
pt3dadd(32.041, 192.298, 7.084, 0.966)
pt3dadd(31.999, 192.41, 7.09, 0.986)
pt3dadd(31.958, 192.523, 7.095, 1.006)
pt3dadd(31.916, 192.635, 7.101, 1.026)
pt3dadd(31.875, 192.748, 7.107, 1.046)
pt3dadd(31.833, 192.86, 7.113, 1.064)
pt3dadd(31.792, 192.972, 7.118, 1.084)
pt3dadd(31.75, 193.085, 7.124, 1.104)
pt3dadd(31.709, 193.198, 7.13, 1.124)
pt3dadd(31.658, 193.306, 7.133, 1.122)
pt3dadd(31.604, 193.414, 7.135, 1.108)
pt3dadd(31.551, 193.52, 7.137, 1.096)
pt3dadd(31.497, 193.627, 7.139, 1.084)
pt3dadd(31.443, 193.734, 7.141, 1.072)
pt3dadd(31.389, 193.842, 7.143, 1.06)
pt3dadd(31.335, 193.949, 7.146, 1.048)
pt3dadd(31.281, 194.056, 7.148, 1.036)
pt3dadd(31.227, 194.162, 7.15, 1.022)
pt3dadd(31.173, 194.27, 7.152, 1.01)
pt3dadd(31.105, 194.369, 7.156, 0.992)
pt3dadd(31.034, 194.466, 7.16, 0.972)
pt3dadd(30.963, 194.562, 7.164, 0.952)
pt3dadd(30.891, 194.658, 7.168, 0.932)
pt3dadd(30.82, 194.754, 7.172, 0.914)
pt3dadd(30.749, 194.851, 7.176, 0.894)
pt3dadd(30.677, 194.947, 7.181, 0.874)
pt3dadd(30.606, 195.043, 7.185, 0.854)
pt3dadd(30.534, 195.14, 7.189, 0.834)
pt3dadd(30.463, 195.236, 7.193, 0.814)
pt3dadd(30.385, 195.326, 7.2, 0.804)
pt3dadd(30.305, 195.415, 7.207, 0.796)
pt3dadd(30.225, 195.504, 7.214, 0.79)
pt3dadd(30.144, 195.594, 7.221, 0.782)
pt3dadd(30.064, 195.683, 7.228, 0.774)
pt3dadd(29.984, 195.772, 7.235, 0.768)
pt3dadd(29.904, 195.86, 7.242, 0.76)
pt3dadd(29.824, 195.949, 7.249, 0.752)
pt3dadd(29.744, 196.038, 7.256, 0.746)
pt3dadd(29.664, 196.127, 7.263, 0.738)
pt3dadd(29.581, 196.213, 7.275, 0.754)
pt3dadd(29.499, 196.298, 7.289, 0.778)
pt3dadd(29.416, 196.384, 7.303, 0.8)
pt3dadd(29.333, 196.469, 7.316, 0.824)
pt3dadd(29.25, 196.554, 7.33, 0.846)
pt3dadd(29.167, 196.639, 7.344, 0.87)
pt3dadd(29.085, 196.724, 7.358, 0.892)
pt3dadd(29.002, 196.81, 7.372, 0.916)
pt3dadd(28.919, 196.895, 7.385, 0.938)
pt3dadd(28.836, 196.98, 7.399, 0.96)
pt3dadd(28.761, 197.063, 7.436, 0.98)
pt3dadd(28.687, 197.143, 7.476, 0.996)
pt3dadd(28.613, 197.225, 7.516, 1.014)
pt3dadd(28.539, 197.306, 7.556, 1.032)
pt3dadd(28.465, 197.387, 7.596, 1.048)
pt3dadd(28.391, 197.468, 7.636, 1.066)
pt3dadd(28.317, 197.55, 7.677, 1.084)
pt3dadd(28.243, 197.63, 7.717, 1.102)
pt3dadd(28.169, 197.712, 7.757, 1.118)
pt3dadd(28.095, 197.794, 7.797, 1.136)
pt3dadd(28.019, 197.882, 7.821, 1.08)
pt3dadd(27.944, 197.971, 7.843, 1.016)
pt3dadd(27.868, 198.061, 7.865, 0.952)
pt3dadd(27.793, 198.15, 7.887, 0.89)
pt3dadd(27.717, 198.24, 7.909, 0.826)
pt3dadd(27.642, 198.329, 7.931, 0.762)
pt3dadd(27.566, 198.419, 7.954, 0.698)
pt3dadd(27.491, 198.508, 7.976, 0.636)
pt3dadd(27.415, 198.598, 7.998, 0.572)
pt3dadd(27.34, 198.686, 8.02, 0.508)
pt3dadd(27.269, 198.782, 8.032, 0.516)
pt3dadd(27.199, 198.878, 8.043, 0.53)
}
}
proc shape3d_6() {
apic[4] { pt3dadd(27.128, 198.976, 8.055, 0.546)
pt3dadd(27.058, 199.072, 8.066, 0.56)
pt3dadd(26.988, 199.168, 8.078, 0.574)
pt3dadd(26.917, 199.264, 8.089, 0.588)
pt3dadd(26.847, 199.36, 8.1, 0.602)
pt3dadd(26.776, 199.456, 8.112, 0.616)
pt3dadd(26.706, 199.553, 8.123, 0.63)
pt3dadd(26.636, 199.649, 8.135, 0.644)
pt3dadd(26.586, 199.758, 8.142, 0.63)
pt3dadd(26.538, 199.867, 8.148, 0.616)
pt3dadd(26.489, 199.976, 8.155, 0.6)
pt3dadd(26.44, 200.086, 8.162, 0.586)
pt3dadd(26.392, 200.195, 8.169, 0.57)
pt3dadd(26.343, 200.304, 8.176, 0.556)
pt3dadd(26.294, 200.414, 8.183, 0.54)
pt3dadd(26.246, 200.524, 8.189, 0.524)
pt3dadd(26.197, 200.633, 8.196, 0.51)
pt3dadd(26.148, 200.742, 8.203, 0.494)
pt3dadd(26.102, 200.851, 8.215, 0.534)
pt3dadd(26.055, 200.962, 8.226, 0.576)
pt3dadd(26.008, 201.071, 8.238, 0.62)
pt3dadd(25.961, 201.18, 8.25, 0.662)
pt3dadd(25.914, 201.29, 8.262, 0.704)
pt3dadd(25.867, 201.4, 8.273, 0.746)
pt3dadd(25.821, 201.509, 8.285, 0.788)
pt3dadd(25.774, 201.619, 8.297, 0.83)
pt3dadd(25.727, 201.728, 8.309, 0.872)
pt3dadd(25.68, 201.838, 8.321, 0.914)
pt3dadd(25.666, 201.948, 8.357, 0.934)
pt3dadd(25.652, 202.06, 8.394, 0.956)
pt3dadd(25.638, 202.17, 8.431, 0.978)
pt3dadd(25.623, 202.28, 8.468, 1)
pt3dadd(25.609, 202.391, 8.505, 1.022)
pt3dadd(25.595, 202.501, 8.542, 1.044)
pt3dadd(25.581, 202.612, 8.579, 1.064)
pt3dadd(25.566, 202.723, 8.616, 1.086)
pt3dadd(25.552, 202.834, 8.653, 1.108)
pt3dadd(25.538, 202.944, 8.69, 1.13)
}
apic[5] {pt3dclear()
pt3dadd(25.538, 202.944, 8.69, 1.13)
pt3dadd(25.564, 203.033, 8.708, 1.06)
pt3dadd(25.597, 203.146, 8.731, 0.972)
pt3dadd(25.63, 203.257, 8.754, 0.884)
pt3dadd(25.662, 203.37, 8.774, 0.824)
pt3dadd(25.694, 203.484, 8.794, 0.764)
pt3dadd(25.726, 203.597, 8.814, 0.704)
pt3dadd(25.758, 203.71, 8.834, 0.644)
pt3dadd(25.79, 203.824, 8.854, 0.584)
pt3dadd(25.822, 203.936, 8.874, 0.524)
pt3dadd(25.854, 204.049, 8.894, 0.464)
pt3dadd(25.886, 204.163, 8.914, 0.404)
pt3dadd(25.918, 204.276, 8.934, 0.346)
pt3dadd(25.95, 204.389, 8.954, 0.286)
pt3dadd(25.976, 204.505, 8.962, 0.312)
pt3dadd(26.002, 204.623, 8.97, 0.342)
pt3dadd(26.028, 204.739, 8.978, 0.37)
pt3dadd(26.053, 204.856, 8.986, 0.398)
pt3dadd(26.079, 204.973, 8.994, 0.428)
pt3dadd(26.105, 205.09, 9.002, 0.456)
pt3dadd(26.131, 205.206, 9.01, 0.486)
pt3dadd(26.157, 205.324, 9.018, 0.514)
pt3dadd(26.183, 205.44, 9.026, 0.544)
pt3dadd(26.208, 205.556, 9.034, 0.572)
pt3dadd(26.22, 205.676, 9.034, 0.606)
pt3dadd(26.233, 205.795, 9.034, 0.64)
pt3dadd(26.245, 205.915, 9.034, 0.672)
pt3dadd(26.257, 206.034, 9.034, 0.706)
pt3dadd(26.269, 206.154, 9.034, 0.738)
pt3dadd(26.281, 206.273, 9.034, 0.772)
pt3dadd(26.293, 206.393, 9.034, 0.804)
pt3dadd(26.305, 206.512, 9.034, 0.838)
pt3dadd(26.317, 206.632, 9.034, 0.872)
pt3dadd(26.33, 206.75, 9.034, 0.904)
pt3dadd(26.335, 206.87, 9.034, 0.88)
pt3dadd(26.34, 206.99, 9.034, 0.858)
pt3dadd(26.346, 207.11, 9.034, 0.834)
pt3dadd(26.351, 207.23, 9.034, 0.812)
pt3dadd(26.356, 207.35, 9.034, 0.788)
pt3dadd(26.361, 207.47, 9.034, 0.766)
pt3dadd(26.367, 207.59, 9.034, 0.742)
pt3dadd(26.372, 207.709, 9.034, 0.718)
pt3dadd(26.377, 207.829, 9.034, 0.696)
pt3dadd(26.383, 207.949, 9.034, 0.672)
pt3dadd(26.399, 208.068, 9.034, 0.628)
pt3dadd(26.415, 208.187, 9.034, 0.582)
pt3dadd(26.43, 208.307, 9.034, 0.538)
pt3dadd(26.446, 208.426, 9.034, 0.492)
pt3dadd(26.462, 208.544, 9.034, 0.448)
pt3dadd(26.478, 208.663, 9.034, 0.402)
pt3dadd(26.494, 208.782, 9.034, 0.358)
pt3dadd(26.51, 208.901, 9.034, 0.314)
pt3dadd(26.526, 209.02, 9.034, 0.268)
pt3dadd(26.542, 209.138, 9.034, 0.226)
pt3dadd(26.557, 209.258, 9.034, 0.226)
pt3dadd(26.572, 209.377, 9.034, 0.226)
pt3dadd(26.587, 209.496, 9.034, 0.226)
pt3dadd(26.602, 209.615, 9.034, 0.226)
pt3dadd(26.617, 209.734, 9.034, 0.226)
pt3dadd(26.632, 209.854, 9.034, 0.226)
pt3dadd(26.647, 209.972, 9.034, 0.226)
pt3dadd(26.662, 210.091, 9.034, 0.226)
pt3dadd(26.677, 210.21, 9.034, 0.226)
pt3dadd(26.684, 210.329, 9.034, 0.226)
pt3dadd(26.668, 210.449, 9.034, 0.226)
pt3dadd(26.652, 210.568, 9.034, 0.226)
pt3dadd(26.636, 210.686, 9.034, 0.226)
pt3dadd(26.62, 210.805, 9.034, 0.226)
pt3dadd(26.604, 210.924, 9.034, 0.226)
pt3dadd(26.588, 211.043, 9.034, 0.226)
pt3dadd(26.572, 211.162, 9.034, 0.226)
pt3dadd(26.556, 211.28, 9.034, 0.226)
pt3dadd(26.54, 211.399, 9.034, 0.226)
pt3dadd(26.526, 211.519, 9.034, 0.226)
pt3dadd(26.514, 211.638, 9.034, 0.226)
pt3dadd(26.502, 211.758, 9.034, 0.226)
pt3dadd(26.49, 211.877, 9.034, 0.226)
pt3dadd(26.479, 211.997, 9.034, 0.226)
pt3dadd(26.467, 212.116, 9.034, 0.226)
pt3dadd(26.455, 212.236, 9.034, 0.226)
pt3dadd(26.444, 212.354, 9.034, 0.226)
pt3dadd(26.432, 212.474, 9.034, 0.226)
pt3dadd(26.42, 212.593, 9.034, 0.226)
pt3dadd(26.412, 212.713, 9.034, 0.23)
pt3dadd(26.412, 212.833, 9.034, 0.24)
pt3dadd(26.413, 212.953, 9.034, 0.25)
pt3dadd(26.413, 213.073, 9.034, 0.262)
pt3dadd(26.414, 213.193, 9.034, 0.272)
pt3dadd(26.414, 213.313, 9.034, 0.284)
pt3dadd(26.415, 213.433, 9.034, 0.294)
pt3dadd(26.415, 213.553, 9.034, 0.306)
pt3dadd(26.416, 213.673, 9.034, 0.316)
pt3dadd(26.416, 213.793, 9.034, 0.328)
pt3dadd(26.421, 213.913, 9.034, 0.346)
pt3dadd(26.436, 214.032, 9.034, 0.38)
pt3dadd(26.451, 214.151, 9.034, 0.416)
pt3dadd(26.466, 214.27, 9.034, 0.45)
pt3dadd(26.482, 214.39, 9.034, 0.484)
pt3dadd(26.497, 214.508, 9.034, 0.52)
pt3dadd(26.512, 214.627, 9.034, 0.554)
pt3dadd(26.527, 214.746, 9.034, 0.59)
pt3dadd(26.542, 214.865, 9.034, 0.624)
pt3dadd(26.557, 214.985, 9.034, 0.66)
pt3dadd(26.58, 215.101, 9.034, 0.688)
pt3dadd(26.618, 215.215, 9.034, 0.698)
pt3dadd(26.656, 215.329, 9.034, 0.71)
pt3dadd(26.694, 215.443, 9.034, 0.72)
pt3dadd(26.732, 215.557, 9.034, 0.732)
pt3dadd(26.77, 215.671, 9.034, 0.742)
pt3dadd(26.808, 215.785, 9.034, 0.754)
pt3dadd(26.846, 215.898, 9.034, 0.766)
pt3dadd(26.884, 216.012, 9.034, 0.776)
pt3dadd(26.922, 216.126, 9.034, 0.788)
pt3dadd(26.966, 216.238, 9.034, 0.78)
pt3dadd(27.018, 216.346, 9.035, 0.75)
pt3dadd(27.07, 216.454, 9.035, 0.718)
pt3dadd(27.122, 216.562, 9.035, 0.688)
pt3dadd(27.173, 216.671, 9.035, 0.656)
pt3dadd(27.225, 216.779, 9.035, 0.626)
pt3dadd(27.277, 216.887, 9.035, 0.596)
pt3dadd(27.329, 216.995, 9.035, 0.564)
pt3dadd(27.381, 217.103, 9.035, 0.534)
pt3dadd(27.433, 217.211, 9.035, 0.502)
pt3dadd(27.486, 217.319, 9.035, 0.482)
pt3dadd(27.542, 217.424, 9.036, 0.47)
pt3dadd(27.598, 217.531, 9.036, 0.46)
pt3dadd(27.654, 217.637, 9.036, 0.45)
pt3dadd(27.71, 217.744, 9.036, 0.44)
pt3dadd(27.766, 217.849, 9.036, 0.428)
pt3dadd(27.822, 217.956, 9.036, 0.418)
pt3dadd(27.877, 218.062, 9.037, 0.408)
pt3dadd(27.933, 218.168, 9.037, 0.398)
pt3dadd(27.989, 218.274, 9.037, 0.386)
pt3dadd(28.05, 218.377, 9.037, 0.396)
pt3dadd(28.117, 218.477, 9.038, 0.424)
pt3dadd(28.184, 218.576, 9.038, 0.454)
pt3dadd(28.251, 218.676, 9.038, 0.484)
pt3dadd(28.318, 218.776, 9.038, 0.514)
pt3dadd(28.385, 218.875, 9.039, 0.544)
pt3dadd(28.452, 218.975, 9.039, 0.574)
pt3dadd(28.519, 219.074, 9.039, 0.602)
pt3dadd(28.586, 219.174, 9.04, 0.632)
pt3dadd(28.653, 219.274, 9.04, 0.662)
pt3dadd(28.72, 219.373, 9.041, 0.678)
pt3dadd(28.789, 219.472, 9.041, 0.676)
pt3dadd(28.858, 219.57, 9.042, 0.674)
pt3dadd(28.927, 219.667, 9.042, 0.674)
pt3dadd(28.996, 219.766, 9.043, 0.672)
pt3dadd(29.065, 219.864, 9.043, 0.67)
pt3dadd(29.134, 219.962, 9.044, 0.67)
pt3dadd(29.203, 220.061, 9.045, 0.668)
pt3dadd(29.272, 220.159, 9.045, 0.666)
pt3dadd(29.341, 220.258, 9.046, 0.666)
pt3dadd(29.401, 220.361, 9.046, 0.654)
pt3dadd(29.453, 220.469, 9.048, 0.634)
pt3dadd(29.504, 220.577, 9.049, 0.612)
pt3dadd(29.556, 220.686, 9.05, 0.59)
pt3dadd(29.607, 220.794, 9.052, 0.57)
pt3dadd(29.658, 220.902, 9.053, 0.548)
pt3dadd(29.71, 221.011, 9.054, 0.526)
pt3dadd(29.761, 221.119, 9.056, 0.506)
pt3dadd(29.813, 221.227, 9.057, 0.484)
}
}
proc shape3d_7() {
apic[5] { pt3dadd(29.864, 221.335, 9.058, 0.464)
pt3dadd(29.917, 221.443, 9.06, 0.452)
pt3dadd(29.972, 221.55, 9.063, 0.452)
pt3dadd(30.027, 221.657, 9.065, 0.452)
pt3dadd(30.082, 221.764, 9.068, 0.452)
pt3dadd(30.136, 221.87, 9.07, 0.452)
pt3dadd(30.191, 221.977, 9.073, 0.452)
pt3dadd(30.246, 222.084, 9.075, 0.452)
pt3dadd(30.3, 222.191, 9.078, 0.452)
pt3dadd(30.355, 222.298, 9.081, 0.452)
pt3dadd(30.41, 222.404, 9.083, 0.452)
pt3dadd(30.453, 222.515, 9.088, 0.442)
pt3dadd(30.484, 222.631, 9.094, 0.42)
pt3dadd(30.516, 222.746, 9.101, 0.4)
pt3dadd(30.547, 222.862, 9.107, 0.378)
pt3dadd(30.578, 222.978, 9.114, 0.358)
pt3dadd(30.609, 223.093, 9.12, 0.336)
pt3dadd(30.64, 223.21, 9.127, 0.316)
pt3dadd(30.671, 223.325, 9.134, 0.294)
pt3dadd(30.702, 223.44, 9.14, 0.274)
pt3dadd(30.733, 223.556, 9.147, 0.252)
pt3dadd(30.756, 223.673, 9.156, 0.274)
pt3dadd(30.771, 223.792, 9.167, 0.338)
pt3dadd(30.785, 223.909, 9.178, 0.4)
pt3dadd(30.8, 224.028, 9.19, 0.464)
pt3dadd(30.815, 224.146, 9.201, 0.528)
pt3dadd(30.829, 224.264, 9.212, 0.59)
pt3dadd(30.844, 224.383, 9.224, 0.654)
pt3dadd(30.859, 224.501, 9.235, 0.716)
pt3dadd(30.874, 224.62, 9.246, 0.78)
pt3dadd(30.888, 224.737, 9.257, 0.842)
pt3dadd(30.896, 224.852, 9.282, 0.854)
pt3dadd(30.898, 224.964, 9.318, 0.816)
pt3dadd(30.899, 225.076, 9.355, 0.776)
pt3dadd(30.901, 225.187, 9.391, 0.738)
pt3dadd(30.902, 225.3, 9.428, 0.698)
pt3dadd(30.904, 225.412, 9.464, 0.66)
pt3dadd(30.905, 225.523, 9.501, 0.62)
pt3dadd(30.907, 225.635, 9.538, 0.582)
pt3dadd(30.908, 225.746, 9.574, 0.542)
pt3dadd(30.909, 225.858, 9.611, 0.502)
pt3dadd(30.911, 225.972, 9.642, 0.472)
pt3dadd(30.913, 226.087, 9.668, 0.446)
pt3dadd(30.915, 226.204, 9.693, 0.422)
pt3dadd(30.917, 226.319, 9.719, 0.398)
pt3dadd(30.919, 226.435, 9.745, 0.372)
pt3dadd(30.921, 226.552, 9.771, 0.348)
pt3dadd(30.924, 226.667, 9.797, 0.324)
pt3dadd(30.926, 226.783, 9.823, 0.298)
pt3dadd(30.928, 226.898, 9.849, 0.274)
pt3dadd(30.93, 227.015, 9.874, 0.25)
pt3dadd(30.933, 227.132, 9.893, 0.238)
pt3dadd(30.937, 227.251, 9.907, 0.236)
pt3dadd(30.942, 227.37, 9.92, 0.236)
pt3dadd(30.946, 227.489, 9.934, 0.234)
pt3dadd(30.951, 227.608, 9.947, 0.234)
pt3dadd(30.955, 227.726, 9.96, 0.234)
pt3dadd(30.96, 227.845, 9.974, 0.232)
pt3dadd(30.964, 227.964, 9.987, 0.232)
pt3dadd(30.968, 228.083, 10, 0.23)
pt3dadd(30.973, 228.202, 10.014, 0.23)
pt3dadd(30.981, 228.32, 10.022, 0.256)
pt3dadd(30.994, 228.44, 10.025, 0.306)
pt3dadd(31.006, 228.559, 10.029, 0.358)
pt3dadd(31.018, 228.679, 10.032, 0.408)
pt3dadd(31.031, 228.798, 10.036, 0.458)
pt3dadd(31.043, 228.917, 10.04, 0.51)
pt3dadd(31.056, 229.037, 10.043, 0.56)
pt3dadd(31.068, 229.156, 10.047, 0.61)
pt3dadd(31.08, 229.276, 10.05, 0.66)
pt3dadd(31.093, 229.394, 10.054, 0.712)
pt3dadd(31.117, 229.511, 10.061, 0.744)
pt3dadd(31.152, 229.625, 10.071, 0.762)
pt3dadd(31.186, 229.74, 10.081, 0.78)
pt3dadd(31.221, 229.854, 10.091, 0.798)
pt3dadd(31.256, 229.968, 10.101, 0.816)
pt3dadd(31.29, 230.082, 10.11, 0.834)
pt3dadd(31.325, 230.197, 10.12, 0.852)
pt3dadd(31.36, 230.311, 10.13, 0.87)
pt3dadd(31.395, 230.425, 10.14, 0.888)
pt3dadd(31.429, 230.539, 10.15, 0.906)
pt3dadd(31.487, 230.639, 10.175, 0.864)
pt3dadd(31.551, 230.734, 10.204, 0.804)
pt3dadd(31.616, 230.83, 10.233, 0.746)
pt3dadd(31.68, 230.924, 10.262, 0.686)
pt3dadd(31.744, 231.019, 10.291, 0.628)
pt3dadd(31.809, 231.114, 10.32, 0.568)
pt3dadd(31.873, 231.21, 10.349, 0.51)
pt3dadd(31.937, 231.305, 10.378, 0.452)
pt3dadd(32.001, 231.4, 10.407, 0.392)
pt3dadd(32.066, 231.496, 10.436, 0.334)
pt3dadd(32.126, 231.592, 10.467, 0.32)
pt3dadd(32.186, 231.689, 10.498, 0.308)
pt3dadd(32.247, 231.786, 10.529, 0.298)
pt3dadd(32.307, 231.882, 10.56, 0.288)
pt3dadd(32.367, 231.979, 10.591, 0.278)
pt3dadd(32.427, 232.076, 10.622, 0.268)
pt3dadd(32.487, 232.172, 10.654, 0.258)
pt3dadd(32.548, 232.27, 10.685, 0.246)
pt3dadd(32.608, 232.367, 10.716, 0.236)
pt3dadd(32.668, 232.464, 10.747, 0.226)
pt3dadd(32.723, 232.568, 10.764, 0.25)
pt3dadd(32.779, 232.673, 10.78, 0.272)
pt3dadd(32.834, 232.777, 10.797, 0.296)
pt3dadd(32.89, 232.882, 10.813, 0.318)
pt3dadd(32.945, 232.986, 10.83, 0.342)
pt3dadd(33.001, 233.09, 10.846, 0.364)
pt3dadd(33.056, 233.195, 10.863, 0.388)
pt3dadd(33.112, 233.299, 10.879, 0.412)
pt3dadd(33.167, 233.405, 10.896, 0.434)
pt3dadd(33.223, 233.509, 10.912, 0.456)
pt3dadd(33.278, 233.616, 10.918, 0.458)
pt3dadd(33.332, 233.722, 10.924, 0.462)
pt3dadd(33.387, 233.828, 10.93, 0.464)
pt3dadd(33.442, 233.935, 10.937, 0.466)
pt3dadd(33.497, 234.042, 10.943, 0.468)
pt3dadd(33.551, 234.148, 10.949, 0.47)
pt3dadd(33.606, 234.254, 10.955, 0.474)
pt3dadd(33.661, 234.361, 10.961, 0.476)
pt3dadd(33.716, 234.468, 10.968, 0.478)
pt3dadd(33.771, 234.574, 10.973, 0.478)
pt3dadd(33.83, 234.678, 10.975, 0.46)
pt3dadd(33.889, 234.782, 10.977, 0.444)
pt3dadd(33.948, 234.887, 10.978, 0.426)
pt3dadd(34.007, 234.991, 10.98, 0.408)
pt3dadd(34.066, 235.097, 10.982, 0.392)
pt3dadd(34.125, 235.201, 10.984, 0.374)
pt3dadd(34.184, 235.306, 10.985, 0.356)
pt3dadd(34.243, 235.41, 10.987, 0.34)
pt3dadd(34.302, 235.514, 10.989, 0.322)
pt3dadd(34.361, 235.619, 10.991, 0.308)
pt3dadd(34.418, 235.724, 10.995, 0.316)
pt3dadd(34.476, 235.829, 10.999, 0.324)
pt3dadd(34.533, 235.934, 11.003, 0.33)
pt3dadd(34.59, 236.04, 11.006, 0.338)
pt3dadd(34.648, 236.146, 11.01, 0.346)
pt3dadd(34.705, 236.25, 11.014, 0.354)
pt3dadd(34.762, 236.356, 11.018, 0.36)
pt3dadd(34.82, 236.461, 11.022, 0.368)
pt3dadd(34.877, 236.567, 11.026, 0.376)
pt3dadd(34.937, 236.67, 11.03, 0.38)
pt3dadd(35.008, 236.766, 11.037, 0.364)
pt3dadd(35.08, 236.862, 11.044, 0.348)
pt3dadd(35.151, 236.958, 11.051, 0.332)
pt3dadd(35.223, 237.054, 11.059, 0.316)
pt3dadd(35.294, 237.15, 11.066, 0.302)
pt3dadd(35.366, 237.246, 11.073, 0.286)
pt3dadd(35.437, 237.342, 11.08, 0.27)
pt3dadd(35.508, 237.438, 11.087, 0.254)
pt3dadd(35.58, 237.534, 11.094, 0.238)
pt3dadd(35.652, 237.63, 11.102, 0.228)
pt3dadd(35.728, 237.721, 11.117, 0.234)
pt3dadd(35.805, 237.811, 11.132, 0.24)
pt3dadd(35.881, 237.902, 11.146, 0.248)
pt3dadd(35.957, 237.994, 11.161, 0.254)
pt3dadd(36.034, 238.085, 11.176, 0.262)
pt3dadd(36.11, 238.175, 11.19, 0.268)
pt3dadd(36.186, 238.266, 11.205, 0.276)
pt3dadd(36.262, 238.357, 11.22, 0.282)
pt3dadd(36.339, 238.448, 11.234, 0.288)
pt3dadd(36.414, 238.537, 11.255, 0.302)
pt3dadd(36.485, 238.621, 11.295, 0.334)
pt3dadd(36.556, 238.705, 11.335, 0.366)
pt3dadd(36.627, 238.789, 11.375, 0.398)
pt3dadd(36.699, 238.873, 11.414, 0.43)
pt3dadd(36.77, 238.957, 11.454, 0.462)
pt3dadd(36.841, 239.041, 11.494, 0.494)
pt3dadd(36.912, 239.125, 11.533, 0.526)
pt3dadd(36.983, 239.209, 11.573, 0.558)
pt3dadd(37.054, 239.293, 11.613, 0.59)
pt3dadd(37.124, 239.381, 11.647, 0.606)
pt3dadd(37.192, 239.478, 11.667, 0.582)
pt3dadd(37.259, 239.574, 11.688, 0.558)
pt3dadd(37.326, 239.67, 11.708, 0.534)
pt3dadd(37.393, 239.767, 11.729, 0.512)
pt3dadd(37.46, 239.863, 11.75, 0.488)
pt3dadd(37.527, 239.959, 11.77, 0.464)
pt3dadd(37.595, 240.055, 11.791, 0.44)
pt3dadd(37.662, 240.152, 11.811, 0.416)
pt3dadd(37.729, 240.248, 11.832, 0.392)
pt3dadd(37.792, 240.348, 11.847, 0.378)
pt3dadd(37.849, 240.454, 11.855, 0.376)
pt3dadd(37.905, 240.559, 11.862, 0.376)
pt3dadd(37.962, 240.665, 11.869, 0.374)
pt3dadd(38.019, 240.77, 11.876, 0.374)
pt3dadd(38.075, 240.875, 11.884, 0.372)
pt3dadd(38.132, 240.98, 11.891, 0.372)
pt3dadd(38.188, 241.086, 11.898, 0.37)
pt3dadd(38.245, 241.192, 11.905, 0.37)
pt3dadd(38.302, 241.297, 11.912, 0.37)
pt3dadd(38.361, 241.4, 11.917, 0.382)
pt3dadd(38.425, 241.502, 11.917, 0.412)
pt3dadd(38.49, 241.603, 11.917, 0.444)
pt3dadd(38.554, 241.705, 11.917, 0.474)
pt3dadd(38.618, 241.806, 11.917, 0.504)
pt3dadd(38.682, 241.908, 11.917, 0.536)
pt3dadd(38.746, 242.009, 11.917, 0.566)
pt3dadd(38.81, 242.111, 11.917, 0.598)
pt3dadd(38.874, 242.213, 11.917, 0.628)
pt3dadd(38.939, 242.314, 11.917, 0.66)
}
}
proc shape3d_8() {
apic[5] { pt3dadd(39.002, 242.416, 11.917, 0.676)
pt3dadd(39.066, 242.518, 11.917, 0.674)
pt3dadd(39.129, 242.62, 11.917, 0.67)
pt3dadd(39.192, 242.72, 11.917, 0.666)
pt3dadd(39.256, 242.822, 11.917, 0.662)
pt3dadd(39.319, 242.924, 11.917, 0.66)
pt3dadd(39.383, 243.026, 11.917, 0.656)
pt3dadd(39.446, 243.128, 11.917, 0.652)
pt3dadd(39.509, 243.23, 11.917, 0.648)
pt3dadd(39.573, 243.332, 11.917, 0.646)
pt3dadd(39.626, 243.439, 11.917, 0.626)
pt3dadd(39.665, 243.553, 11.917, 0.588)
pt3dadd(39.704, 243.666, 11.917, 0.548)
pt3dadd(39.743, 243.78, 11.917, 0.51)
pt3dadd(39.782, 243.893, 11.917, 0.47)
pt3dadd(39.821, 244.007, 11.917, 0.432)
pt3dadd(39.86, 244.121, 11.917, 0.392)
pt3dadd(39.898, 244.234, 11.917, 0.354)
pt3dadd(39.937, 244.348, 11.917, 0.314)
pt3dadd(39.976, 244.46, 11.917, 0.276)
pt3dadd(40.003, 244.577, 11.917, 0.27)
pt3dadd(40.016, 244.697, 11.917, 0.308)
pt3dadd(40.028, 244.816, 11.917, 0.346)
pt3dadd(40.04, 244.934, 11.918, 0.384)
pt3dadd(40.052, 245.054, 11.918, 0.422)
pt3dadd(40.064, 245.173, 11.918, 0.46)
pt3dadd(40.076, 245.293, 11.918, 0.498)
pt3dadd(40.088, 245.412, 11.918, 0.536)
pt3dadd(40.1, 245.532, 11.918, 0.574)
pt3dadd(40.112, 245.651, 11.918, 0.614)
pt3dadd(40.118, 245.771, 11.918, 0.616)
pt3dadd(40.118, 245.891, 11.918, 0.576)
pt3dadd(40.118, 246.011, 11.919, 0.534)
pt3dadd(40.118, 246.131, 11.919, 0.494)
pt3dadd(40.118, 246.251, 11.919, 0.452)
pt3dadd(40.118, 246.371, 11.92, 0.412)
pt3dadd(40.118, 246.491, 11.92, 0.372)
pt3dadd(40.118, 246.611, 11.92, 0.33)
pt3dadd(40.118, 246.731, 11.92, 0.29)
pt3dadd(40.118, 246.851, 11.92, 0.248)
pt3dadd(40.118, 246.971, 11.921, 0.23)
pt3dadd(40.118, 247.091, 11.921, 0.238)
pt3dadd(40.118, 247.211, 11.922, 0.246)
pt3dadd(40.118, 247.331, 11.922, 0.256)
pt3dadd(40.118, 247.451, 11.923, 0.264)
pt3dadd(40.118, 247.571, 11.923, 0.272)
pt3dadd(40.118, 247.691, 11.924, 0.28)
pt3dadd(40.118, 247.811, 11.924, 0.288)
pt3dadd(40.118, 247.931, 11.925, 0.298)
pt3dadd(40.118, 248.051, 11.925, 0.306)
pt3dadd(40.118, 248.171, 11.926, 0.322)
pt3dadd(40.118, 248.291, 11.927, 0.348)
pt3dadd(40.118, 248.411, 11.929, 0.374)
pt3dadd(40.118, 248.531, 11.93, 0.4)
pt3dadd(40.118, 248.651, 11.931, 0.426)
pt3dadd(40.118, 248.771, 11.932, 0.45)
pt3dadd(40.118, 248.891, 11.934, 0.476)
pt3dadd(40.118, 249.011, 11.935, 0.502)
pt3dadd(40.118, 249.131, 11.936, 0.528)
pt3dadd(40.118, 249.251, 11.937, 0.554)
pt3dadd(40.118, 249.371, 11.939, 0.554)
pt3dadd(40.118, 249.491, 11.942, 0.52)
pt3dadd(40.118, 249.611, 11.944, 0.484)
pt3dadd(40.118, 249.731, 11.947, 0.45)
pt3dadd(40.118, 249.851, 11.95, 0.416)
pt3dadd(40.118, 249.971, 11.953, 0.382)
pt3dadd(40.118, 250.091, 11.955, 0.348)
pt3dadd(40.118, 250.211, 11.958, 0.314)
pt3dadd(40.118, 250.331, 11.961, 0.28)
pt3dadd(40.118, 250.451, 11.964, 0.244)
pt3dadd(40.118, 250.571, 11.968, 0.226)
pt3dadd(40.118, 250.69, 11.976, 0.226)
pt3dadd(40.118, 250.81, 11.983, 0.226)
pt3dadd(40.118, 250.93, 11.99, 0.226)
pt3dadd(40.118, 251.05, 11.997, 0.226)
pt3dadd(40.118, 251.168, 12.004, 0.226)
pt3dadd(40.118, 251.288, 12.011, 0.226)
pt3dadd(40.118, 251.408, 12.018, 0.226)
pt3dadd(40.118, 251.528, 12.026, 0.226)
pt3dadd(40.118, 251.647, 12.033, 0.226)
pt3dadd(40.118, 251.767, 12.044, 0.234)
pt3dadd(40.118, 251.885, 12.059, 0.248)
pt3dadd(40.118, 252.004, 12.075, 0.264)
pt3dadd(40.118, 252.122, 12.091, 0.28)
pt3dadd(40.118, 252.241, 12.106, 0.296)
pt3dadd(40.118, 252.359, 12.122, 0.312)
pt3dadd(40.118, 252.478, 12.138, 0.328)
pt3dadd(40.118, 252.596, 12.153, 0.342)
pt3dadd(40.118, 252.715, 12.169, 0.358)
pt3dadd(40.118, 252.834, 12.184, 0.374)
pt3dadd(40.118, 252.936, 12.226, 0.386)
pt3dadd(40.118, 253.019, 12.299, 0.394)
pt3dadd(40.118, 253.102, 12.371, 0.4)
pt3dadd(40.118, 253.184, 12.443, 0.408)
pt3dadd(40.118, 253.267, 12.516, 0.416)
pt3dadd(40.118, 253.35, 12.588, 0.422)
pt3dadd(40.118, 253.433, 12.66, 0.43)
pt3dadd(40.118, 253.516, 12.733, 0.438)
pt3dadd(40.118, 253.598, 12.805, 0.444)
pt3dadd(40.118, 253.681, 12.877, 0.452)
}
apic[6] {pt3dclear()
pt3dadd(25.538, 202.944, 8.69, 1.13)
pt3dadd(25.489, 202.98, 8.7, 1.122)
pt3dadd(25.395, 203.05, 8.721, 1.11)
pt3dadd(25.3, 203.119, 8.742, 1.096)
pt3dadd(25.206, 203.189, 8.763, 1.082)
pt3dadd(25.111, 203.258, 8.783, 1.068)
pt3dadd(25.017, 203.328, 8.804, 1.054)
pt3dadd(24.923, 203.398, 8.825, 1.04)
pt3dadd(24.828, 203.467, 8.846, 1.028)
pt3dadd(24.734, 203.537, 8.867, 1.014)
pt3dadd(24.638, 203.605, 8.888, 1)
pt3dadd(24.536, 203.662, 8.912, 0.984)
pt3dadd(24.434, 203.718, 8.935, 0.966)
pt3dadd(24.332, 203.774, 8.959, 0.95)
pt3dadd(24.23, 203.831, 8.983, 0.934)
pt3dadd(24.128, 203.887, 9.007, 0.918)
pt3dadd(24.026, 203.944, 9.031, 0.9)
pt3dadd(23.924, 204, 9.054, 0.884)
pt3dadd(23.822, 204.056, 9.078, 0.868)
pt3dadd(23.72, 204.113, 9.102, 0.85)
pt3dadd(23.615, 204.155, 9.131, 0.834)
pt3dadd(23.505, 204.174, 9.167, 0.818)
pt3dadd(23.395, 204.193, 9.203, 0.802)
pt3dadd(23.284, 204.211, 9.239, 0.786)
pt3dadd(23.174, 204.23, 9.275, 0.768)
pt3dadd(23.064, 204.25, 9.312, 0.752)
pt3dadd(22.954, 204.269, 9.348, 0.736)
pt3dadd(22.843, 204.288, 9.384, 0.72)
pt3dadd(22.733, 204.306, 9.42, 0.704)
pt3dadd(22.623, 204.325, 9.457, 0.688)
pt3dadd(22.52, 204.354, 9.5, 0.668)
pt3dadd(22.424, 204.394, 9.551, 0.646)
pt3dadd(22.329, 204.433, 9.602, 0.626)
pt3dadd(22.234, 204.473, 9.653, 0.604)
pt3dadd(22.138, 204.512, 9.704, 0.582)
pt3dadd(22.043, 204.552, 9.755, 0.56)
pt3dadd(21.948, 204.592, 9.806, 0.54)
pt3dadd(21.852, 204.631, 9.857, 0.518)
pt3dadd(21.757, 204.671, 9.908, 0.496)
pt3dadd(21.662, 204.71, 9.959, 0.474)
pt3dadd(21.573, 204.762, 10.011, 0.476)
pt3dadd(21.488, 204.818, 10.063, 0.49)
pt3dadd(21.403, 204.876, 10.115, 0.504)
pt3dadd(21.318, 204.932, 10.167, 0.518)
pt3dadd(21.233, 204.99, 10.219, 0.532)
pt3dadd(21.148, 205.046, 10.272, 0.546)
pt3dadd(21.063, 205.104, 10.324, 0.558)
pt3dadd(20.978, 205.16, 10.376, 0.572)
pt3dadd(20.893, 205.218, 10.428, 0.586)
pt3dadd(20.808, 205.274, 10.48, 0.6)
pt3dadd(20.719, 205.332, 10.527, 0.618)
pt3dadd(20.628, 205.391, 10.571, 0.636)
pt3dadd(20.538, 205.448, 10.615, 0.654)
pt3dadd(20.447, 205.506, 10.66, 0.674)
pt3dadd(20.357, 205.565, 10.704, 0.692)
pt3dadd(20.266, 205.622, 10.748, 0.71)
pt3dadd(20.176, 205.68, 10.793, 0.728)
pt3dadd(20.085, 205.739, 10.837, 0.748)
pt3dadd(19.995, 205.796, 10.882, 0.766)
pt3dadd(19.904, 205.855, 10.926, 0.784)
pt3dadd(19.81, 205.912, 10.966, 0.78)
pt3dadd(19.715, 205.967, 11.006, 0.768)
pt3dadd(19.62, 206.023, 11.045, 0.756)
pt3dadd(19.525, 206.08, 11.085, 0.746)
pt3dadd(19.43, 206.136, 11.124, 0.734)
pt3dadd(19.336, 206.191, 11.164, 0.724)
pt3dadd(19.241, 206.248, 11.204, 0.712)
pt3dadd(19.146, 206.304, 11.243, 0.702)
pt3dadd(19.051, 206.36, 11.282, 0.69)
pt3dadd(18.956, 206.416, 11.322, 0.68)
pt3dadd(18.86, 206.47, 11.362, 0.666)
pt3dadd(18.764, 206.521, 11.403, 0.654)
pt3dadd(18.667, 206.574, 11.443, 0.64)
pt3dadd(18.571, 206.627, 11.484, 0.628)
pt3dadd(18.475, 206.68, 11.524, 0.614)
pt3dadd(18.378, 206.732, 11.565, 0.602)
pt3dadd(18.282, 206.784, 11.605, 0.59)
pt3dadd(18.186, 206.837, 11.646, 0.576)
pt3dadd(18.089, 206.89, 11.686, 0.564)
pt3dadd(17.993, 206.942, 11.727, 0.55)
pt3dadd(17.9, 207.01, 11.755, 0.522)
pt3dadd(17.808, 207.079, 11.782, 0.494)
pt3dadd(17.715, 207.148, 11.809, 0.466)
pt3dadd(17.622, 207.216, 11.837, 0.438)
pt3dadd(17.529, 207.286, 11.864, 0.408)
pt3dadd(17.437, 207.354, 11.891, 0.38)
pt3dadd(17.344, 207.424, 11.919, 0.352)
pt3dadd(17.252, 207.492, 11.946, 0.324)
pt3dadd(17.159, 207.56, 11.973, 0.294)
pt3dadd(17.066, 207.63, 12.001, 0.266)
pt3dadd(16.978, 207.704, 12.027, 0.286)
pt3dadd(16.89, 207.78, 12.052, 0.306)
pt3dadd(16.801, 207.854, 12.078, 0.328)
pt3dadd(16.713, 207.93, 12.104, 0.35)
pt3dadd(16.625, 208.006, 12.13, 0.37)
pt3dadd(16.537, 208.08, 12.156, 0.392)
pt3dadd(16.448, 208.156, 12.182, 0.414)
pt3dadd(16.36, 208.231, 12.208, 0.434)
pt3dadd(16.272, 208.306, 12.233, 0.456)
pt3dadd(16.184, 208.381, 12.26, 0.478)
}
}
proc shape3d_9() {
apic[6] { pt3dadd(16.108, 208.45, 12.312, 0.504)
pt3dadd(16.032, 208.518, 12.365, 0.532)
pt3dadd(15.956, 208.586, 12.417, 0.558)
pt3dadd(15.881, 208.655, 12.47, 0.586)
pt3dadd(15.805, 208.723, 12.522, 0.612)
pt3dadd(15.729, 208.792, 12.575, 0.64)
pt3dadd(15.653, 208.86, 12.627, 0.666)
pt3dadd(15.577, 208.928, 12.68, 0.694)
pt3dadd(15.502, 208.997, 12.732, 0.72)
pt3dadd(15.426, 209.065, 12.785, 0.746)
pt3dadd(15.346, 209.126, 12.84, 0.726)
pt3dadd(15.267, 209.186, 12.895, 0.704)
pt3dadd(15.187, 209.248, 12.95, 0.684)
pt3dadd(15.107, 209.309, 13.005, 0.662)
pt3dadd(15.028, 209.369, 13.06, 0.642)
pt3dadd(14.948, 209.43, 13.115, 0.62)
pt3dadd(14.869, 209.491, 13.17, 0.6)
pt3dadd(14.789, 209.551, 13.226, 0.58)
pt3dadd(14.709, 209.612, 13.281, 0.558)
pt3dadd(14.627, 209.668, 13.336, 0.534)
pt3dadd(14.533, 209.704, 13.39, 0.502)
pt3dadd(14.438, 209.738, 13.445, 0.47)
pt3dadd(14.344, 209.774, 13.499, 0.438)
pt3dadd(14.25, 209.809, 13.554, 0.406)
pt3dadd(14.156, 209.845, 13.608, 0.374)
pt3dadd(14.062, 209.881, 13.662, 0.342)
pt3dadd(13.968, 209.916, 13.717, 0.31)
pt3dadd(13.873, 209.952, 13.771, 0.278)
pt3dadd(13.779, 209.987, 13.826, 0.246)
pt3dadd(13.68, 210.019, 13.874, 0.228)
pt3dadd(13.572, 210.044, 13.913, 0.236)
pt3dadd(13.464, 210.07, 13.951, 0.242)
pt3dadd(13.357, 210.096, 13.99, 0.248)
pt3dadd(13.249, 210.122, 14.028, 0.254)
pt3dadd(13.141, 210.148, 14.067, 0.262)
pt3dadd(13.034, 210.174, 14.105, 0.268)
pt3dadd(12.926, 210.199, 14.144, 0.274)
pt3dadd(12.818, 210.226, 14.182, 0.282)
pt3dadd(12.711, 210.251, 14.221, 0.288)
pt3dadd(12.617, 210.293, 14.269, 0.314)
pt3dadd(12.538, 210.352, 14.326, 0.364)
pt3dadd(12.459, 210.409, 14.383, 0.412)
pt3dadd(12.379, 210.468, 14.44, 0.46)
pt3dadd(12.3, 210.527, 14.498, 0.508)
pt3dadd(12.221, 210.584, 14.555, 0.558)
pt3dadd(12.142, 210.643, 14.612, 0.606)
pt3dadd(12.063, 210.702, 14.669, 0.654)
pt3dadd(11.984, 210.76, 14.727, 0.702)
pt3dadd(11.904, 210.818, 14.784, 0.752)
pt3dadd(11.821, 210.871, 14.841, 0.748)
pt3dadd(11.734, 210.917, 14.898, 0.696)
pt3dadd(11.647, 210.962, 14.955, 0.646)
pt3dadd(11.559, 211.008, 15.012, 0.594)
pt3dadd(11.472, 211.055, 15.069, 0.542)
pt3dadd(11.385, 211.1, 15.126, 0.49)
pt3dadd(11.298, 211.146, 15.183, 0.438)
pt3dadd(11.21, 211.193, 15.24, 0.386)
pt3dadd(11.123, 211.238, 15.297, 0.336)
pt3dadd(11.036, 211.284, 15.354, 0.284)
pt3dadd(10.942, 211.337, 15.396, 0.272)
pt3dadd(10.844, 211.394, 15.427, 0.288)
pt3dadd(10.745, 211.452, 15.459, 0.306)
pt3dadd(10.647, 211.508, 15.491, 0.322)
pt3dadd(10.549, 211.566, 15.522, 0.338)
pt3dadd(10.45, 211.624, 15.554, 0.356)
pt3dadd(10.352, 211.681, 15.585, 0.372)
pt3dadd(10.254, 211.739, 15.617, 0.39)
pt3dadd(10.155, 211.795, 15.648, 0.406)
pt3dadd(10.057, 211.853, 15.68, 0.422)
pt3dadd(9.949, 211.897, 15.699, 0.42)
pt3dadd(9.836, 211.934, 15.712, 0.404)
pt3dadd(9.723, 211.972, 15.725, 0.39)
pt3dadd(9.61, 212.009, 15.737, 0.376)
pt3dadd(9.497, 212.046, 15.75, 0.362)
pt3dadd(9.383, 212.082, 15.762, 0.346)
pt3dadd(9.27, 212.119, 15.775, 0.332)
pt3dadd(9.157, 212.156, 15.788, 0.318)
pt3dadd(9.044, 212.194, 15.8, 0.302)
pt3dadd(8.931, 212.231, 15.813, 0.288)
pt3dadd(8.816, 212.264, 15.822, 0.322)
pt3dadd(8.701, 212.297, 15.829, 0.384)
pt3dadd(8.586, 212.328, 15.836, 0.446)
pt3dadd(8.47, 212.36, 15.843, 0.508)
pt3dadd(8.355, 212.393, 15.85, 0.57)
pt3dadd(8.24, 212.425, 15.857, 0.634)
pt3dadd(8.124, 212.456, 15.864, 0.696)
pt3dadd(8.009, 212.489, 15.871, 0.758)
pt3dadd(7.894, 212.521, 15.878, 0.82)
pt3dadd(7.778, 212.554, 15.885, 0.882)
pt3dadd(7.668, 212.598, 15.895, 0.904)
pt3dadd(7.56, 212.65, 15.905, 0.902)
pt3dadd(7.453, 212.701, 15.916, 0.9)
pt3dadd(7.345, 212.753, 15.927, 0.9)
pt3dadd(7.238, 212.804, 15.938, 0.898)
pt3dadd(7.13, 212.856, 15.948, 0.898)
pt3dadd(7.023, 212.908, 15.959, 0.896)
pt3dadd(6.915, 212.959, 15.97, 0.894)
pt3dadd(6.808, 213.011, 15.981, 0.894)
pt3dadd(6.7, 213.062, 15.991, 0.892)
pt3dadd(6.594, 213.107, 16.018, 0.852)
pt3dadd(6.489, 213.148, 16.053, 0.79)
pt3dadd(6.384, 213.188, 16.088, 0.728)
pt3dadd(6.279, 213.229, 16.123, 0.666)
pt3dadd(6.175, 213.269, 16.157, 0.604)
pt3dadd(6.07, 213.31, 16.192, 0.542)
pt3dadd(5.965, 213.35, 16.227, 0.48)
pt3dadd(5.86, 213.391, 16.262, 0.418)
pt3dadd(5.755, 213.432, 16.297, 0.356)
pt3dadd(5.65, 213.472, 16.331, 0.294)
pt3dadd(5.546, 213.523, 16.358, 0.27)
pt3dadd(5.444, 213.58, 16.379, 0.264)
pt3dadd(5.341, 213.636, 16.401, 0.26)
pt3dadd(5.238, 213.692, 16.422, 0.256)
pt3dadd(5.136, 213.749, 16.444, 0.25)
pt3dadd(5.033, 213.805, 16.466, 0.246)
pt3dadd(4.93, 213.862, 16.487, 0.242)
pt3dadd(4.827, 213.918, 16.509, 0.236)
pt3dadd(4.725, 213.973, 16.53, 0.232)
pt3dadd(4.622, 214.03, 16.552, 0.228)
pt3dadd(4.514, 214.078, 16.567, 0.238)
pt3dadd(4.403, 214.121, 16.578, 0.256)
pt3dadd(4.292, 214.165, 16.588, 0.276)
pt3dadd(4.18, 214.208, 16.599, 0.294)
pt3dadd(4.069, 214.252, 16.61, 0.312)
pt3dadd(3.958, 214.295, 16.621, 0.33)
pt3dadd(3.847, 214.339, 16.632, 0.348)
pt3dadd(3.736, 214.382, 16.643, 0.368)
pt3dadd(3.625, 214.426, 16.654, 0.386)
pt3dadd(3.514, 214.469, 16.665, 0.404)
pt3dadd(3.401, 214.508, 16.667, 0.412)
pt3dadd(3.287, 214.546, 16.666, 0.416)
pt3dadd(3.172, 214.582, 16.664, 0.422)
pt3dadd(3.058, 214.619, 16.662, 0.426)
pt3dadd(2.944, 214.656, 16.66, 0.43)
pt3dadd(2.83, 214.693, 16.659, 0.434)
pt3dadd(2.716, 214.73, 16.657, 0.438)
pt3dadd(2.602, 214.768, 16.656, 0.442)
pt3dadd(2.488, 214.804, 16.654, 0.446)
pt3dadd(2.374, 214.841, 16.652, 0.45)
pt3dadd(2.266, 214.894, 16.645, 0.438)
pt3dadd(2.162, 214.951, 16.636, 0.418)
pt3dadd(2.057, 215.009, 16.626, 0.4)
pt3dadd(1.953, 215.066, 16.617, 0.38)
pt3dadd(1.848, 215.124, 16.607, 0.36)
pt3dadd(1.743, 215.182, 16.598, 0.34)
pt3dadd(1.639, 215.239, 16.588, 0.322)
pt3dadd(1.534, 215.298, 16.579, 0.302)
pt3dadd(1.43, 215.356, 16.569, 0.282)
pt3dadd(1.325, 215.413, 16.56, 0.264)
pt3dadd(1.23, 215.484, 16.547, 0.27)
pt3dadd(1.138, 215.558, 16.533, 0.288)
pt3dadd(1.046, 215.634, 16.519, 0.304)
pt3dadd(0.954, 215.708, 16.505, 0.32)
pt3dadd(0.861, 215.784, 16.491, 0.338)
pt3dadd(0.769, 215.858, 16.477, 0.354)
pt3dadd(0.677, 215.934, 16.463, 0.37)
pt3dadd(0.585, 216.008, 16.449, 0.388)
pt3dadd(0.493, 216.084, 16.435, 0.404)
pt3dadd(0.401, 216.16, 16.421, 0.42)
pt3dadd(0.331, 216.224, 16.366, 0.408)
pt3dadd(0.267, 216.286, 16.299, 0.388)
pt3dadd(0.204, 216.348, 16.232, 0.368)
pt3dadd(0.14, 216.409, 16.164, 0.348)
pt3dadd(0.077, 216.472, 16.097, 0.328)
pt3dadd(0.013, 216.534, 16.03, 0.308)
pt3dadd(-0.05, 216.595, 15.962, 0.288)
pt3dadd(-0.114, 216.658, 15.895, 0.266)
pt3dadd(-0.177, 216.719, 15.828, 0.246)
pt3dadd(-0.241, 216.781, 15.76, 0.226)
}
apic[7] {pt3dclear()
pt3dadd(43.503, 175.238, 4.372, 2.938)
pt3dadd(43.529, 175.26, 4.355, 2.752)
pt3dadd(43.546, 175.334, 4.339, 2.548)
pt3dadd(43.563, 175.409, 4.323, 2.344)
pt3dadd(43.565, 175.482, 4.306, 2.174)
pt3dadd(43.543, 175.553, 4.286, 2.052)
pt3dadd(43.521, 175.622, 4.267, 1.932)
pt3dadd(43.499, 175.693, 4.248, 1.81)
pt3dadd(43.477, 175.764, 4.228, 1.688)
pt3dadd(43.455, 175.832, 4.209, 1.568)
pt3dadd(43.433, 175.903, 4.189, 1.446)
pt3dadd(43.411, 175.973, 4.17, 1.326)
pt3dadd(43.389, 176.044, 4.15, 1.204)
pt3dadd(43.339, 176.095, 4.13, 1.168)
pt3dadd(43.255, 176.122, 4.11, 1.234)
pt3dadd(43.265, 176.078, 4.108, 1.234)
pt3dadd(43.181, 176.106, 4.087, 1.3)
pt3dadd(43.096, 176.134, 4.067, 1.366)
pt3dadd(43.012, 176.161, 4.046, 1.432)
pt3dadd(42.928, 176.189, 4.026, 1.498)
pt3dadd(42.844, 176.216, 4.005, 1.564)
pt3dadd(42.759, 176.245, 3.985, 1.632)
pt3dadd(42.675, 176.272, 3.964, 1.698)
pt3dadd(42.591, 176.299, 3.944, 1.764)
pt3dadd(42.505, 176.317, 3.914, 1.838)
pt3dadd(42.417, 176.326, 3.873, 1.926)
pt3dadd(42.328, 176.333, 3.832, 2.012)
pt3dadd(42.24, 176.339, 3.791, 2.098)
pt3dadd(42.152, 176.347, 3.75, 2.184)
pt3dadd(42.063, 176.353, 3.709, 2.27)
pt3dadd(41.975, 176.362, 3.668, 2.356)
}
}
proc shape3d_10() {
apic[7] { pt3dadd(41.887, 176.369, 3.627, 2.442)
pt3dadd(41.798, 176.376, 3.586, 2.528)
pt3dadd(41.71, 176.383, 3.546, 2.616)
pt3dadd(41.623, 176.398, 3.511, 2.656)
pt3dadd(41.536, 176.417, 3.483, 2.644)
pt3dadd(41.45, 176.438, 3.455, 2.63)
pt3dadd(41.363, 176.459, 3.427, 2.618)
pt3dadd(41.277, 176.48, 3.399, 2.606)
pt3dadd(41.19, 176.502, 3.371, 2.592)
pt3dadd(41.104, 176.522, 3.343, 2.58)
pt3dadd(41.017, 176.544, 3.315, 2.568)
pt3dadd(40.931, 176.564, 3.287, 2.554)
pt3dadd(40.845, 176.585, 3.259, 2.542)
pt3dadd(40.759, 176.61, 3.234, 2.546)
pt3dadd(40.674, 176.635, 3.213, 2.568)
pt3dadd(40.59, 176.663, 3.192, 2.59)
pt3dadd(40.506, 176.69, 3.17, 2.612)
pt3dadd(40.421, 176.717, 3.149, 2.634)
pt3dadd(40.337, 176.744, 3.127, 2.656)
pt3dadd(40.252, 176.771, 3.106, 2.68)
pt3dadd(40.168, 176.798, 3.084, 2.702)
pt3dadd(40.083, 176.825, 3.063, 2.724)
pt3dadd(39.999, 176.851, 3.041, 2.746)
pt3dadd(39.914, 176.876, 3.017, 2.762)
pt3dadd(39.828, 176.898, 2.99, 2.77)
pt3dadd(39.742, 176.92, 2.963, 2.778)
pt3dadd(39.655, 176.942, 2.936, 2.786)
pt3dadd(39.569, 176.964, 2.909, 2.794)
pt3dadd(39.483, 176.986, 2.882, 2.804)
pt3dadd(39.397, 177.008, 2.855, 2.812)
pt3dadd(39.311, 177.03, 2.828, 2.82)
pt3dadd(39.225, 177.052, 2.8, 2.828)
pt3dadd(39.139, 177.073, 2.773, 2.836)
pt3dadd(39.052, 177.095, 2.745, 2.824)
pt3dadd(38.966, 177.114, 2.715, 2.794)
pt3dadd(38.879, 177.132, 2.684, 2.762)
pt3dadd(38.792, 177.152, 2.654, 2.73)
pt3dadd(38.706, 177.17, 2.624, 2.7)
pt3dadd(38.619, 177.191, 2.594, 2.668)
pt3dadd(38.532, 177.21, 2.564, 2.638)
pt3dadd(38.445, 177.229, 2.534, 2.606)
pt3dadd(38.359, 177.248, 2.504, 2.576)
pt3dadd(38.272, 177.269, 2.474, 2.544)
pt3dadd(38.187, 177.292, 2.449, 2.504)
pt3dadd(38.103, 177.32, 2.429, 2.456)
pt3dadd(38.02, 177.349, 2.409, 2.408)
pt3dadd(37.936, 177.378, 2.389, 2.36)
pt3dadd(37.852, 177.407, 2.369, 2.312)
pt3dadd(37.769, 177.434, 2.349, 2.264)
pt3dadd(37.685, 177.463, 2.329, 2.218)
pt3dadd(37.602, 177.492, 2.309, 2.17)
pt3dadd(37.518, 177.521, 2.289, 2.122)
pt3dadd(37.434, 177.55, 2.269, 2.074)
pt3dadd(37.353, 177.582, 2.255, 2.064)
pt3dadd(37.274, 177.619, 2.245, 2.082)
pt3dadd(37.195, 177.656, 2.235, 2.098)
pt3dadd(37.117, 177.692, 2.225, 2.116)
pt3dadd(37.038, 177.73, 2.214, 2.134)
pt3dadd(36.959, 177.766, 2.204, 2.152)
pt3dadd(36.88, 177.803, 2.194, 2.17)
pt3dadd(36.801, 177.84, 2.184, 2.188)
pt3dadd(36.722, 177.876, 2.174, 2.206)
pt3dadd(36.643, 177.913, 2.164, 2.222)
pt3dadd(36.567, 177.952, 2.158, 2.192)
pt3dadd(36.493, 177.995, 2.155, 2.124)
pt3dadd(36.418, 178.037, 2.151, 2.056)
pt3dadd(36.344, 178.079, 2.148, 1.988)
pt3dadd(36.27, 178.121, 2.145, 1.92)
pt3dadd(36.196, 178.163, 2.142, 1.852)
pt3dadd(36.121, 178.205, 2.139, 1.784)
pt3dadd(36.047, 178.248, 2.136, 1.716)
pt3dadd(35.973, 178.289, 2.133, 1.648)
pt3dadd(35.898, 178.332, 2.13, 1.58)
pt3dadd(35.826, 178.375, 2.127, 1.508)
pt3dadd(35.754, 178.42, 2.125, 1.43)
pt3dadd(35.682, 178.464, 2.124, 1.352)
pt3dadd(35.61, 178.507, 2.122, 1.274)
pt3dadd(35.538, 178.553, 2.12, 1.198)
pt3dadd(35.466, 178.597, 2.118, 1.12)
pt3dadd(35.394, 178.642, 2.117, 1.042)
pt3dadd(35.323, 178.686, 2.115, 0.964)
pt3dadd(35.251, 178.729, 2.113, 0.888)
pt3dadd(35.179, 178.775, 2.111, 0.81)
pt3dadd(35.108, 178.82, 2.11, 0.756)
pt3dadd(35.039, 178.866, 2.108, 0.72)
pt3dadd(34.969, 178.913, 2.106, 0.686)
pt3dadd(34.899, 178.961, 2.104, 0.65)
pt3dadd(34.83, 179.006, 2.102, 0.614)
pt3dadd(34.761, 179.053, 2.101, 0.58)
pt3dadd(34.691, 179.099, 2.099, 0.544)
pt3dadd(34.621, 179.146, 2.097, 0.508)
pt3dadd(34.552, 179.192, 2.095, 0.472)
pt3dadd(34.482, 179.238, 2.093, 0.438)
pt3dadd(34.415, 179.287, 2.092, 0.476)
pt3dadd(34.349, 179.336, 2.09, 0.568)
pt3dadd(34.284, 179.387, 2.088, 0.66)
pt3dadd(34.218, 179.437, 2.086, 0.75)
pt3dadd(34.152, 179.486, 2.084, 0.842)
pt3dadd(34.087, 179.536, 2.082, 0.934)
pt3dadd(34.021, 179.586, 2.081, 1.026)
pt3dadd(33.955, 179.635, 2.079, 1.118)
pt3dadd(33.89, 179.686, 2.077, 1.21)
pt3dadd(33.824, 179.735, 2.075, 1.302)
pt3dadd(33.772, 179.794, 2.073, 1.354)
pt3dadd(33.731, 179.858, 2.071, 1.376)
pt3dadd(33.689, 179.923, 2.069, 1.398)
pt3dadd(33.648, 179.988, 2.067, 1.422)
pt3dadd(33.606, 180.053, 2.064, 1.444)
pt3dadd(33.564, 180.118, 2.062, 1.466)
pt3dadd(33.523, 180.184, 2.06, 1.49)
pt3dadd(33.481, 180.247, 2.058, 1.512)
pt3dadd(33.44, 180.313, 2.056, 1.534)
pt3dadd(33.398, 180.378, 2.054, 1.558)
pt3dadd(33.365, 180.445, 2.052, 1.506)
pt3dadd(33.337, 180.516, 2.049, 1.402)
pt3dadd(33.31, 180.586, 2.047, 1.3)
pt3dadd(33.282, 180.656, 2.044, 1.196)
pt3dadd(33.255, 180.727, 2.042, 1.092)
pt3dadd(33.227, 180.797, 2.039, 0.988)
pt3dadd(33.199, 180.868, 2.036, 0.884)
pt3dadd(33.172, 180.938, 2.034, 0.78)
pt3dadd(33.144, 181.009, 2.031, 0.678)
pt3dadd(33.117, 181.08, 2.029, 0.574)
pt3dadd(33.126, 181.036, 2.027, 0.574)
pt3dadd(33.087, 181.102, 2.024, 0.56)
pt3dadd(33.039, 181.163, 2.02, 0.612)
pt3dadd(32.991, 181.224, 2.017, 0.662)
pt3dadd(32.944, 181.286, 2.013, 0.714)
pt3dadd(32.896, 181.348, 2.01, 0.764)
pt3dadd(32.849, 181.41, 2.006, 0.816)
pt3dadd(32.801, 181.472, 2.003, 0.866)
pt3dadd(32.753, 181.532, 1.999, 0.918)
pt3dadd(32.706, 181.595, 1.996, 0.968)
pt3dadd(32.658, 181.656, 1.992, 1.02)
pt3dadd(32.602, 181.714, 1.988, 1.034)
pt3dadd(32.541, 181.768, 1.983, 1.026)
pt3dadd(32.551, 181.723, 1.981, 1.026)
pt3dadd(32.49, 181.776, 1.977, 1.018)
pt3dadd(32.429, 181.83, 1.972, 1.012)
pt3dadd(32.368, 181.883, 1.967, 1.004)
pt3dadd(32.307, 181.937, 1.962, 0.996)
pt3dadd(32.246, 181.988, 1.957, 0.988)
pt3dadd(32.185, 182.042, 1.952, 0.98)
pt3dadd(32.124, 182.096, 1.947, 0.972)
pt3dadd(32.063, 182.149, 1.943, 0.964)
pt3dadd(32.007, 182.206, 1.934, 0.948)
pt3dadd(31.955, 182.264, 1.924, 0.926)
pt3dadd(31.903, 182.323, 1.914, 0.904)
pt3dadd(31.85, 182.382, 1.904, 0.88)
pt3dadd(31.798, 182.44, 1.894, 0.858)
pt3dadd(31.746, 182.498, 1.884, 0.836)
pt3dadd(31.693, 182.558, 1.873, 0.814)
pt3dadd(31.641, 182.616, 1.863, 0.792)
pt3dadd(31.589, 182.675, 1.853, 0.77)
pt3dadd(31.536, 182.732, 1.843, 0.748)
pt3dadd(31.483, 182.79, 1.829, 0.712)
pt3dadd(31.428, 182.848, 1.813, 0.668)
pt3dadd(31.374, 182.903, 1.796, 0.626)
pt3dadd(31.319, 182.959, 1.78, 0.582)
pt3dadd(31.265, 183.016, 1.764, 0.54)
pt3dadd(31.211, 183.072, 1.748, 0.496)
pt3dadd(31.156, 183.128, 1.732, 0.454)
pt3dadd(31.102, 183.184, 1.716, 0.41)
pt3dadd(31.047, 183.241, 1.7, 0.368)
pt3dadd(30.993, 183.298, 1.684, 0.324)
pt3dadd(30.947, 183.334, 1.632, 0.32)
pt3dadd(30.905, 183.36, 1.561, 0.334)
pt3dadd(30.863, 183.386, 1.49, 0.348)
pt3dadd(30.822, 183.413, 1.419, 0.364)
pt3dadd(30.78, 183.439, 1.349, 0.378)
pt3dadd(30.739, 183.466, 1.278, 0.394)
pt3dadd(30.697, 183.492, 1.207, 0.408)
pt3dadd(30.655, 183.517, 1.136, 0.422)
pt3dadd(30.614, 183.545, 1.065, 0.438)
pt3dadd(30.572, 183.571, 0.995, 0.452)
pt3dadd(30.548, 183.642, 0.993, 1.43)
pt3dadd(30.525, 183.714, 0.991, 1.488)
pt3dadd(30.501, 183.786, 0.989, 1.546)
pt3dadd(30.479, 183.858, 0.988, 1.604)
pt3dadd(30.455, 183.929, 0.986, 1.662)
pt3dadd(30.443, 184.003, 0.984, 1.67)
pt3dadd(30.438, 184.079, 0.983, 1.65)
pt3dadd(30.433, 184.154, 0.981, 1.63)
pt3dadd(30.427, 184.23, 0.979, 1.61)
pt3dadd(30.422, 184.306, 0.977, 1.59)
pt3dadd(30.418, 184.38, 0.976, 1.57)
pt3dadd(30.395, 184.45, 0.974, 1.542)
pt3dadd(30.339, 184.506, 0.972, 1.504)
pt3dadd(30.282, 184.562, 0.971, 1.464)
pt3dadd(30.226, 184.619, 0.969, 1.424)
pt3dadd(30.169, 184.675, 0.967, 1.384)
pt3dadd(30.112, 184.732, 0.966, 1.34)
pt3dadd(30.052, 184.786, 0.964, 1.284)
pt3dadd(29.993, 184.841, 0.962, 1.23)
pt3dadd(29.933, 184.895, 0.96, 1.174)
pt3dadd(29.874, 184.949, 0.959, 1.12)
pt3dadd(29.808, 184.998, 0.957, 1.076)
pt3dadd(29.727, 185.033, 0.955, 1.06)
pt3dadd(29.645, 185.066, 0.954, 1.046)
pt3dadd(29.564, 185.101, 0.952, 1.03)
}
}
proc shape3d_11() {
apic[7] { pt3dadd(29.482, 185.135, 0.95, 1.014)
pt3dadd(29.393, 185.158, 0.948, 1.014)
pt3dadd(29.289, 185.154, 0.947, 1.046)
pt3dadd(29.186, 185.149, 0.945, 1.078)
pt3dadd(29.092, 185.166, 0.943, 1.134)
pt3dadd(28.998, 185.183, 0.942, 1.192)
pt3dadd(28.98, 185.245, 0.94, 1.212)
pt3dadd(28.984, 185.321, 0.938, 1.22)
pt3dadd(28.989, 185.398, 0.937, 1.23)
pt3dadd(28.952, 185.464, 0.935, 1.2)
pt3dadd(28.908, 185.527, 0.933, 1.168)
pt3dadd(28.85, 185.581, 0.931, 1.144)
pt3dadd(28.801, 185.638, 0.93, 1.134)
pt3dadd(28.808, 185.713, 0.928, 1.152)
pt3dadd(28.815, 185.79, 0.926, 1.17)
pt3dadd(28.824, 185.866, 0.925, 1.188)
pt3dadd(28.831, 185.942, 0.923, 1.206)
pt3dadd(28.839, 186.019, 0.921, 1.226)
pt3dadd(28.847, 186.095, 0.919, 1.244)
pt3dadd(28.855, 186.172, 0.918, 1.266)
pt3dadd(28.865, 186.247, 0.916, 1.298)
pt3dadd(28.875, 186.324, 0.914, 1.33)
pt3dadd(28.884, 186.401, 0.913, 1.364)
pt3dadd(28.894, 186.476, 0.911, 1.396)
pt3dadd(28.903, 186.553, 0.909, 1.428)
pt3dadd(28.913, 186.63, 0.908, 1.46)
pt3dadd(28.908, 186.703, 0.906, 1.496)
pt3dadd(28.873, 186.77, 0.904, 1.544)
pt3dadd(28.839, 186.839, 0.902, 1.59)
pt3dadd(28.804, 186.906, 0.901, 1.636)
pt3dadd(28.768, 186.974, 0.899, 1.684)
pt3dadd(28.733, 187.042, 0.897, 1.73)
pt3dadd(28.722, 187.116, 0.896, 1.764)
pt3dadd(28.712, 187.19, 0.894, 1.796)
pt3dadd(28.702, 187.266, 0.892, 1.83)
pt3dadd(28.691, 187.34, 0.89, 1.862)
pt3dadd(28.682, 187.415, 0.889, 1.896)
pt3dadd(28.671, 187.489, 0.887, 1.928)
pt3dadd(28.627, 187.552, 0.885, 1.958)
pt3dadd(28.576, 187.613, 0.884, 1.988)
pt3dadd(28.526, 187.673, 0.882, 2.018)
pt3dadd(28.476, 187.733, 0.88, 2.046)
pt3dadd(28.425, 187.793, 0.879, 2.076)
pt3dadd(28.39, 187.86, 0.877, 2.1)
pt3dadd(28.362, 187.93, 0.875, 2.122)
pt3dadd(28.332, 188, 0.873, 2.134)
pt3dadd(28.302, 188.069, 0.872, 2.134)
pt3dadd(28.271, 188.138, 0.87, 2.134)
pt3dadd(28.212, 188.194, 0.868, 2.146)
pt3dadd(28.154, 188.249, 0.867, 2.158)
pt3dadd(28.062, 188.266, 0.865, 2.198)
pt3dadd(27.965, 188.275, 0.863, 2.244)
pt3dadd(27.865, 188.276, 0.846, 2.306)
pt3dadd(27.773, 188.284, 0.82, 2.364)
pt3dadd(27.7, 188.323, 0.795, 2.376)
pt3dadd(27.626, 188.362, 0.771, 2.386)
pt3dadd(27.555, 188.401, 0.746, 2.398)
pt3dadd(27.481, 188.44, 0.722, 2.41)
pt3dadd(27.451, 188.504, 0.697, 2.406)
pt3dadd(27.425, 188.573, 0.672, 2.4)
pt3dadd(27.399, 188.64, 0.647, 2.396)
pt3dadd(27.372, 188.707, 0.622, 2.39)
pt3dadd(27.349, 188.767, 0.59, 2.384)
pt3dadd(27.359, 188.77, 0.496, 2.362)
pt3dadd(27.369, 188.772, 0.402, 2.34)
pt3dadd(27.364, 188.833, 0.368, 2.3)
pt3dadd(27.357, 188.905, 0.347, 2.256)
pt3dadd(27.341, 188.977, 0.336, 2.214)
pt3dadd(27.317, 189.049, 0.334, 2.172)
pt3dadd(27.296, 189.121, 0.332, 2.132)
pt3dadd(27.291, 189.197, 0.331, 2.114)
pt3dadd(27.285, 189.272, 0.329, 2.096)
pt3dadd(27.295, 189.228, 0.327, 2.096)
pt3dadd(27.256, 189.284, 0.322, 2.088)
pt3dadd(27.171, 189.312, 0.31, 2.094)
pt3dadd(27.085, 189.341, 0.298, 2.102)
pt3dadd(26.998, 189.366, 0.284, 2.112)
pt3dadd(26.907, 189.342, 0.232, 2.164)
pt3dadd(26.815, 189.317, 0.18, 2.224)
pt3dadd(26.727, 189.301, 0.137, 2.346)
pt3dadd(26.66, 189.341, 0.101, 2.376)
pt3dadd(26.594, 189.379, 0.065, 2.406)
pt3dadd(26.527, 189.419, 0.028, 2.436)
}
dend_5 {pt3dclear()
pt3dadd(26.527, 189.419, 0.028, 2.436)
pt3dadd(26.465, 189.458, -0.011, 2.462)
pt3dadd(26.426, 189.502, -0.069, 2.468)
pt3dadd(26.387, 189.545, -0.127, 2.474)
pt3dadd(26.348, 189.587, -0.185, 2.48)
pt3dadd(26.32, 189.587, -0.244, 2.486)
}
dend_5[1] {pt3dclear()
pt3dadd(26.32, 189.587, -0.244, 2.486)
pt3dadd(26.371, 189.607, -0.332, 2.462)
pt3dadd(26.424, 189.629, -0.42, 2.438)
pt3dadd(26.476, 189.65, -0.508, 2.414)
pt3dadd(26.528, 189.671, -0.597, 2.39)
pt3dadd(26.58, 189.692, -0.685, 2.366)
pt3dadd(26.633, 189.714, -0.773, 2.34)
pt3dadd(26.684, 189.734, -0.862, 2.316)
pt3dadd(26.737, 189.756, -0.95, 2.292)
pt3dadd(26.789, 189.778, -1.038, 2.268)
pt3dadd(26.842, 189.798, -1.126, 2.244)
pt3dadd(26.893, 189.82, -1.215, 2.22)
pt3dadd(26.946, 189.841, -1.303, 2.196)
pt3dadd(26.998, 189.862, -1.391, 2.172)
pt3dadd(27.05, 189.883, -1.48, 2.148)
pt3dadd(27.103, 189.905, -1.568, 2.122)
pt3dadd(27.155, 189.925, -1.656, 2.098)
pt3dadd(27.208, 189.947, -1.744, 2.074)
pt3dadd(27.233, 190.003, -1.8, 2.036)
pt3dadd(27.212, 190.122, -1.8, 1.974)
pt3dadd(27.193, 190.241, -1.8, 1.912)
pt3dadd(27.174, 190.358, -1.8, 1.85)
pt3dadd(27.154, 190.477, -1.8, 1.788)
pt3dadd(27.134, 190.596, -1.8, 1.726)
pt3dadd(27.109, 190.714, -1.8, 1.664)
pt3dadd(27.073, 190.828, -1.8, 1.602)
pt3dadd(27.038, 190.942, -1.8, 1.538)
pt3dadd(27.002, 191.057, -1.8, 1.476)
pt3dadd(26.966, 191.171, -1.8, 1.412)
pt3dadd(26.93, 191.286, -1.8, 1.35)
pt3dadd(26.864, 191.383, -1.8, 1.314)
pt3dadd(26.788, 191.476, -1.8, 1.288)
pt3dadd(26.71, 191.567, -1.8, 1.262)
pt3dadd(26.632, 191.658, -1.8, 1.238)
pt3dadd(26.554, 191.749, -1.8, 1.212)
pt3dadd(26.47, 191.834, -1.8, 1.212)
pt3dadd(26.383, 191.918, -1.8, 1.222)
pt3dadd(26.298, 192.002, -1.8, 1.234)
pt3dadd(26.212, 192.085, -1.8, 1.244)
pt3dadd(26.125, 192.169, -1.8, 1.254)
pt3dadd(26.018, 192.221, -1.8, 1.306)
pt3dadd(25.907, 192.264, -1.8, 1.364)
pt3dadd(25.796, 192.311, -1.8, 1.396)
pt3dadd(25.686, 192.358, -1.8, 1.43)
pt3dadd(25.591, 192.431, -1.8, 1.454)
pt3dadd(25.498, 192.505, -1.8, 1.478)
pt3dadd(25.463, 192.616, -1.8, 1.474)
pt3dadd(25.442, 192.733, -1.8, 1.464)
pt3dadd(25.409, 192.846, -1.8, 1.442)
pt3dadd(25.327, 192.934, -1.8, 1.37)
pt3dadd(25.247, 193.022, -1.8, 1.302)
pt3dadd(25.181, 193.122, -1.8, 1.258)
pt3dadd(25.115, 193.223, -1.8, 1.212)
pt3dadd(25.05, 193.324, -1.8, 1.168)
pt3dadd(24.984, 193.423, -1.8, 1.122)
pt3dadd(24.919, 193.524, -1.8, 1.078)
pt3dadd(24.878, 193.637, -1.814, 1.044)
pt3dadd(24.839, 193.748, -1.827, 1.008)
pt3dadd(24.799, 193.86, -1.841, 0.972)
pt3dadd(24.758, 193.972, -1.854, 0.938)
pt3dadd(24.72, 194.084, -1.868, 0.902)
pt3dadd(24.712, 194.2, -1.89, 0.856)
pt3dadd(24.678, 194.315, -1.895, 0.868)
pt3dadd(24.643, 194.429, -1.9, 0.878)
pt3dadd(24.599, 194.54, -1.9, 0.868)
pt3dadd(24.553, 194.652, -1.9, 0.854)
pt3dadd(24.509, 194.764, -1.9, 0.84)
pt3dadd(24.463, 194.872, -1.896, 0.824)
pt3dadd(24.401, 194.948, -1.839, 0.768)
pt3dadd(24.34, 195.025, -1.781, 0.704)
pt3dadd(24.278, 195.102, -1.724, 0.632)
pt3dadd(24.241, 195.203, -1.703, 0.584)
pt3dadd(24.22, 195.32, -1.707, 0.554)
pt3dadd(24.196, 195.437, -1.715, 0.522)
pt3dadd(24.149, 195.538, -1.754, 0.48)
pt3dadd(24.108, 195.642, -1.787, 0.444)
pt3dadd(24.074, 195.754, -1.812, 0.424)
pt3dadd(24.041, 195.864, -1.837, 0.402)
pt3dadd(24.007, 195.976, -1.861, 0.382)
pt3dadd(23.977, 196.091, -1.871, 0.37)
pt3dadd(23.948, 196.207, -1.877, 0.36)
pt3dadd(23.92, 196.324, -1.883, 0.352)
pt3dadd(23.891, 196.44, -1.89, 0.342)
pt3dadd(23.862, 196.555, -1.896, 0.332)
pt3dadd(23.828, 196.67, -1.9, 0.324)
pt3dadd(23.784, 196.782, -1.9, 0.314)
pt3dadd(23.74, 196.894, -1.9, 0.306)
pt3dadd(23.694, 197.005, -1.9, 0.296)
pt3dadd(23.65, 197.117, -1.9, 0.286)
pt3dadd(23.605, 197.227, -1.9, 0.278)
pt3dadd(23.584, 197.336, -1.935, 0.276)
pt3dadd(23.563, 197.446, -1.975, 0.276)
pt3dadd(23.544, 197.554, -2.014, 0.276)
pt3dadd(23.525, 197.663, -2.053, 0.276)
pt3dadd(23.504, 197.772, -2.09, 0.278)
pt3dadd(23.484, 197.89, -2.098, 0.286)
pt3dadd(23.462, 198.007, -2.105, 0.294)
pt3dadd(23.441, 198.125, -2.113, 0.304)
pt3dadd(23.42, 198.242, -2.121, 0.312)
pt3dadd(23.399, 198.36, -2.129, 0.322)
pt3dadd(23.386, 198.474, -2.152, 0.346)
pt3dadd(23.382, 198.582, -2.196, 0.392)
pt3dadd(23.378, 198.69, -2.239, 0.438)
pt3dadd(23.375, 198.798, -2.283, 0.484)
pt3dadd(23.36, 198.896, -2.337, 0.534)
pt3dadd(23.339, 198.988, -2.399, 0.586)
pt3dadd(23.317, 199.08, -2.46, 0.638)
pt3dadd(23.296, 199.172, -2.522, 0.69)
pt3dadd(23.28, 199.27, -2.578, 0.738)
pt3dadd(23.28, 199.378, -2.62, 0.776)
pt3dadd(23.28, 199.487, -2.662, 0.814)
}
}
proc shape3d_12() {
dend_5[1] { pt3dadd(23.28, 199.596, -2.705, 0.852)
pt3dadd(23.28, 199.704, -2.747, 0.89)
pt3dadd(23.28, 199.813, -2.789, 0.93)
}
dend_5[2] {pt3dclear()
pt3dadd(23.28, 199.813, -2.789, 0.93)
pt3dadd(23.238, 199.807, -2.813, 0.966)
pt3dadd(23.138, 199.794, -2.868, 1.052)
pt3dadd(23.04, 199.78, -2.924, 1.136)
pt3dadd(22.942, 199.765, -2.979, 1.222)
pt3dadd(22.842, 199.752, -3.035, 1.308)
pt3dadd(22.744, 199.738, -3.09, 1.394)
pt3dadd(22.645, 199.723, -3.146, 1.478)
pt3dadd(22.546, 199.71, -3.201, 1.564)
pt3dadd(22.447, 199.696, -3.257, 1.65)
pt3dadd(22.349, 199.682, -3.312, 1.736)
pt3dadd(22.249, 199.668, -3.368, 1.82)
pt3dadd(22.151, 199.655, -3.423, 1.906)
pt3dadd(22.051, 199.64, -3.479, 1.992)
pt3dadd(21.953, 199.626, -3.534, 2.076)
pt3dadd(21.854, 199.613, -3.59, 2.162)
pt3dadd(21.755, 199.598, -3.645, 2.248)
pt3dadd(21.656, 199.585, -3.701, 2.334)
pt3dadd(21.558, 199.571, -3.756, 2.418)
pt3dadd(21.469, 199.547, -3.816, 2.448)
pt3dadd(21.419, 199.487, -3.892, 2.268)
pt3dadd(21.368, 199.427, -3.967, 2.086)
pt3dadd(21.296, 199.375, -4.032, 1.902)
pt3dadd(21.199, 199.338, -4.078, 1.706)
pt3dadd(21.085, 199.325, -4.1, 1.5)
pt3dadd(20.968, 199.346, -4.1, 1.32)
pt3dadd(20.866, 199.404, -4.1, 1.234)
pt3dadd(20.795, 199.499, -4.1, 1.29)
pt3dadd(20.768, 199.615, -4.1, 1.34)
pt3dadd(20.76, 199.735, -4.1, 1.356)
pt3dadd(20.76, 199.855, -4.1, 1.356)
pt3dadd(20.76, 199.975, -4.1, 1.356)
pt3dadd(20.76, 200.095, -4.1, 1.356)
pt3dadd(20.76, 200.215, -4.1, 1.378)
pt3dadd(20.748, 200.334, -4.1, 1.414)
pt3dadd(20.72, 200.45, -4.1, 1.432)
pt3dadd(20.693, 200.567, -4.1, 1.448)
pt3dadd(20.665, 200.683, -4.1, 1.466)
pt3dadd(20.638, 200.801, -4.1, 1.484)
pt3dadd(20.61, 200.917, -4.1, 1.5)
pt3dadd(20.578, 201.032, -4.1, 1.518)
pt3dadd(20.542, 201.148, -4.1, 1.536)
pt3dadd(20.506, 201.262, -4.1, 1.554)
pt3dadd(20.47, 201.377, -4.1, 1.572)
pt3dadd(20.434, 201.491, -4.1, 1.59)
pt3dadd(20.399, 201.606, -4.1, 1.606)
pt3dadd(20.387, 201.725, -4.1, 1.604)
pt3dadd(20.374, 201.845, -4.1, 1.598)
pt3dadd(20.362, 201.964, -4.1, 1.596)
pt3dadd(20.348, 202.084, -4.1, 1.592)
pt3dadd(20.336, 202.202, -4.1, 1.588)
pt3dadd(20.323, 202.321, -4.1, 1.584)
pt3dadd(20.31, 202.441, -4.1, 1.544)
pt3dadd(20.294, 202.56, -4.1, 1.488)
pt3dadd(20.28, 202.679, -4.1, 1.432)
pt3dadd(20.242, 202.789, -4.121, 1.334)
pt3dadd(20.202, 202.9, -4.143, 1.236)
pt3dadd(20.124, 202.919, -4.213, 1.146)
pt3dadd(20.044, 202.933, -4.286, 1.058)
pt3dadd(19.974, 203.014, -4.331, 0.986)
pt3dadd(19.912, 203.102, -4.372, 0.918)
pt3dadd(19.873, 203.212, -4.396, 0.862)
pt3dadd(19.781, 203.281, -4.405, 0.844)
pt3dadd(19.679, 203.345, -4.41, 0.832)
pt3dadd(19.609, 203.393, -4.471, 0.84)
pt3dadd(19.55, 203.437, -4.55, 0.852)
pt3dadd(19.495, 203.536, -4.577, 0.878)
pt3dadd(19.44, 203.639, -4.6, 0.904)
pt3dadd(19.373, 203.738, -4.6, 0.962)
pt3dadd(19.306, 203.837, -4.6, 1.02)
pt3dadd(19.223, 203.924, -4.6, 1.074)
pt3dadd(19.153, 204.019, -4.6, 1.108)
pt3dadd(19.106, 204.13, -4.6, 1.118)
pt3dadd(19.058, 204.24, -4.6, 1.128)
pt3dadd(19.012, 204.35, -4.6, 1.138)
pt3dadd(18.964, 204.461, -4.6, 1.146)
pt3dadd(18.917, 204.571, -4.6, 1.154)
pt3dadd(18.881, 204.685, -4.6, 1.14)
pt3dadd(18.845, 204.8, -4.6, 1.126)
pt3dadd(18.81, 204.914, -4.6, 1.114)
pt3dadd(18.774, 205.028, -4.6, 1.1)
pt3dadd(18.738, 205.144, -4.6, 1.086)
pt3dadd(18.706, 205.259, -4.6, 1.076)
pt3dadd(18.679, 205.376, -4.6, 1.066)
pt3dadd(18.652, 205.493, -4.6, 1.058)
pt3dadd(18.624, 205.609, -4.6, 1.05)
pt3dadd(18.596, 205.727, -4.6, 1.04)
pt3dadd(18.569, 205.843, -4.6, 1.032)
pt3dadd(18.515, 205.949, -4.6, 1.016)
pt3dadd(18.449, 206.048, -4.6, 0.996)
pt3dadd(18.383, 206.149, -4.6, 0.976)
pt3dadd(18.317, 206.249, -4.6, 0.956)
pt3dadd(18.251, 206.35, -4.6, 0.936)
pt3dadd(18.193, 206.454, -4.6, 0.92)
pt3dadd(18.139, 206.562, -4.6, 0.906)
pt3dadd(18.086, 206.669, -4.6, 0.892)
pt3dadd(18.032, 206.777, -4.6, 0.876)
pt3dadd(17.978, 206.884, -4.6, 0.862)
pt3dadd(17.929, 206.993, -4.6, 0.848)
pt3dadd(17.885, 207.104, -4.6, 0.834)
pt3dadd(17.84, 207.216, -4.6, 0.82)
pt3dadd(17.795, 207.328, -4.6, 0.806)
pt3dadd(17.75, 207.438, -4.6, 0.792)
pt3dadd(17.706, 207.55, -4.6, 0.778)
pt3dadd(17.634, 207.646, -4.6, 0.778)
pt3dadd(17.562, 207.742, -4.6, 0.778)
pt3dadd(17.49, 207.838, -4.6, 0.778)
pt3dadd(17.418, 207.934, -4.6, 0.778)
pt3dadd(17.346, 208.03, -4.6, 0.778)
pt3dadd(17.286, 208.134, -4.6, 0.788)
pt3dadd(17.226, 208.237, -4.6, 0.798)
pt3dadd(17.166, 208.342, -4.6, 0.808)
pt3dadd(17.106, 208.446, -4.6, 0.818)
pt3dadd(17.046, 208.549, -4.6, 0.828)
pt3dadd(16.975, 208.646, -4.6, 0.846)
pt3dadd(16.903, 208.742, -4.6, 0.866)
pt3dadd(16.831, 208.838, -4.6, 0.886)
pt3dadd(16.759, 208.934, -4.6, 0.906)
pt3dadd(16.687, 209.03, -4.6, 0.928)
pt3dadd(16.655, 209.146, -4.6, 0.944)
pt3dadd(16.628, 209.262, -4.6, 0.962)
pt3dadd(16.601, 209.378, -4.6, 0.98)
pt3dadd(16.573, 209.496, -4.6, 0.996)
pt3dadd(16.546, 209.612, -4.6, 1.014)
pt3dadd(16.517, 209.729, -4.6, 1.032)
pt3dadd(16.472, 209.84, -4.6, 1.054)
pt3dadd(16.428, 209.952, -4.6, 1.078)
pt3dadd(16.384, 210.064, -4.6, 1.102)
pt3dadd(16.339, 210.174, -4.6, 1.124)
pt3dadd(16.295, 210.286, -4.6, 1.148)
pt3dadd(16.224, 210.382, -4.6, 1.162)
pt3dadd(16.144, 210.47, -4.6, 1.172)
pt3dadd(16.063, 210.559, -4.6, 1.182)
pt3dadd(15.982, 210.648, -4.6, 1.192)
pt3dadd(15.901, 210.736, -4.6, 1.202)
pt3dadd(15.827, 210.83, -4.6, 1.202)
pt3dadd(15.755, 210.926, -4.6, 1.196)
pt3dadd(15.683, 211.022, -4.6, 1.192)
pt3dadd(15.611, 211.118, -4.6, 1.186)
pt3dadd(15.539, 211.214, -4.6, 1.182)
pt3dadd(15.499, 211.326, -4.6, 1.168)
pt3dadd(15.472, 211.442, -4.6, 1.15)
pt3dadd(15.445, 211.559, -4.6, 1.132)
pt3dadd(15.418, 211.676, -4.6, 1.116)
pt3dadd(15.39, 211.793, -4.6, 1.098)
pt3dadd(15.362, 211.909, -4.6, 1.082)
pt3dadd(15.36, 212.028, -4.615, 1.064)
pt3dadd(15.36, 212.147, -4.631, 1.048)
pt3dadd(15.36, 212.264, -4.648, 1.032)
pt3dadd(15.36, 212.383, -4.664, 1.016)
pt3dadd(15.36, 212.501, -4.681, 0.998)
pt3dadd(15.36, 212.62, -4.697, 0.982)
pt3dadd(15.316, 212.729, -4.7, 0.972)
pt3dadd(15.262, 212.837, -4.7, 0.962)
pt3dadd(15.209, 212.944, -4.7, 0.952)
pt3dadd(15.155, 213.052, -4.7, 0.942)
pt3dadd(15.101, 213.158, -4.7, 0.932)
pt3dadd(15.042, 213.263, -4.704, 0.92)
pt3dadd(14.978, 213.364, -4.711, 0.904)
pt3dadd(14.915, 213.466, -4.718, 0.888)
pt3dadd(14.852, 213.568, -4.725, 0.874)
pt3dadd(14.789, 213.668, -4.732, 0.858)
pt3dadd(14.75, 213.772, -4.767, 0.846)
pt3dadd(14.722, 213.875, -4.811, 0.834)
pt3dadd(14.692, 213.979, -4.855, 0.824)
pt3dadd(14.663, 214.082, -4.9, 0.812)
pt3dadd(14.634, 214.186, -4.944, 0.802)
pt3dadd(14.608, 214.291, -4.988, 0.796)
pt3dadd(14.581, 214.396, -5.031, 0.792)
pt3dadd(14.555, 214.5, -5.075, 0.786)
pt3dadd(14.528, 214.604, -5.119, 0.78)
pt3dadd(14.478, 214.706, -5.143, 0.796)
pt3dadd(14.416, 214.807, -5.157, 0.824)
pt3dadd(14.352, 214.908, -5.172, 0.85)
pt3dadd(14.29, 215.009, -5.186, 0.878)
pt3dadd(14.226, 215.108, -5.2, 0.904)
pt3dadd(14.14, 215.192, -5.2, 0.95)
pt3dadd(14.053, 215.275, -5.2, 0.996)
pt3dadd(13.967, 215.359, -5.2, 1.042)
pt3dadd(13.88, 215.442, -5.2, 1.088)
pt3dadd(13.793, 215.525, -5.202, 1.134)
pt3dadd(13.694, 215.587, -5.224, 1.202)
pt3dadd(13.596, 215.65, -5.246, 1.27)
pt3dadd(13.496, 215.712, -5.269, 1.338)
pt3dadd(13.398, 215.776, -5.291, 1.404)
pt3dadd(13.31, 215.854, -5.3, 1.462)
pt3dadd(13.23, 215.942, -5.3, 1.512)
pt3dadd(13.15, 216.031, -5.3, 1.564)
pt3dadd(13.068, 216.12, -5.3, 1.614)
pt3dadd(12.988, 216.209, -5.3, 1.664)
pt3dadd(12.912, 216.3, -5.315, 1.712)
pt3dadd(12.839, 216.391, -5.338, 1.758)
pt3dadd(12.766, 216.482, -5.36, 1.804)
pt3dadd(12.692, 216.574, -5.383, 1.85)
pt3dadd(12.625, 216.668, -5.405, 1.892)
pt3dadd(12.574, 216.774, -5.424, 1.924)
pt3dadd(12.522, 216.88, -5.443, 1.956)
}
}
proc shape3d_13() {
dend_5[2] { pt3dadd(12.472, 216.986, -5.462, 1.99)
pt3dadd(12.42, 217.092, -5.481, 2.022)
pt3dadd(12.389, 217.205, -5.501, 2.068)
pt3dadd(12.372, 217.321, -5.52, 2.122)
pt3dadd(12.338, 217.428, -5.545, 2.164)
pt3dadd(12.272, 217.518, -5.582, 2.178)
pt3dadd(12.204, 217.596, -5.63, 2.162)
pt3dadd(12.134, 217.666, -5.688, 2.118)
pt3dadd(12.059, 217.729, -5.746, 2.018)
pt3dadd(11.981, 217.787, -5.801, 1.902)
pt3dadd(11.867, 217.796, -5.831, 1.77)
pt3dadd(11.761, 217.811, -5.874, 1.682)
pt3dadd(11.664, 217.831, -5.931, 1.632)
pt3dadd(11.568, 217.853, -5.987, 1.582)
pt3dadd(11.471, 217.873, -6.044, 1.532)
pt3dadd(11.374, 217.894, -6.1, 1.482)
}
dend_5[3] {pt3dclear()
pt3dadd(11.374, 217.894, -6.1, 1.482)
pt3dadd(11.34, 217.948, -6.103, 1.444)
pt3dadd(11.276, 218.048, -6.108, 1.372)
pt3dadd(11.201, 218.119, -6.136, 1.308)
pt3dadd(11.108, 218.147, -6.196, 1.254)
pt3dadd(11.024, 218.202, -6.247, 1.238)
pt3dadd(10.949, 218.278, -6.291, 1.252)
pt3dadd(10.93, 218.389, -6.3, 1.276)
pt3dadd(10.925, 218.509, -6.3, 1.302)
pt3dadd(10.92, 218.629, -6.3, 1.328)
pt3dadd(10.898, 218.74, -6.332, 1.35)
pt3dadd(10.876, 218.849, -6.368, 1.372)
pt3dadd(10.852, 218.958, -6.404, 1.396)
pt3dadd(10.795, 219.04, -6.447, 1.4)
pt3dadd(10.705, 219.092, -6.497, 1.386)
pt3dadd(10.609, 219.12, -6.549, 1.304)
pt3dadd(10.546, 219.126, -6.634, 1.268)
pt3dadd(10.482, 219.133, -6.719, 1.232)
pt3dadd(10.393, 219.184, -6.77, 1.258)
pt3dadd(10.308, 219.241, -6.819, 1.296)
pt3dadd(10.24, 219.325, -6.863, 1.382)
pt3dadd(10.2, 219.421, -6.903, 1.462)
pt3dadd(10.2, 219.534, -6.936, 1.538)
pt3dadd(10.2, 219.646, -6.971, 1.61)
pt3dadd(10.193, 219.737, -7.036, 1.646)
pt3dadd(10.186, 219.827, -7.101, 1.682)
pt3dadd(10.114, 219.84, -7.178, 1.696)
pt3dadd(10.012, 219.84, -7.229, 1.794)
pt3dadd(9.919, 219.84, -7.292, 1.94)
pt3dadd(9.854, 219.84, -7.375, 1.912)
pt3dadd(9.768, 219.86, -7.438, 1.836)
pt3dadd(9.671, 219.888, -7.491, 1.77)
pt3dadd(9.62, 219.986, -7.5, 1.722)
pt3dadd(9.582, 220.099, -7.5, 1.68)
pt3dadd(9.526, 220.204, -7.5, 1.592)
pt3dadd(9.466, 220.307, -7.505, 1.526)
pt3dadd(9.413, 220.414, -7.512, 1.486)
pt3dadd(9.359, 220.522, -7.518, 1.446)
pt3dadd(9.306, 220.628, -7.525, 1.406)
pt3dadd(9.252, 220.735, -7.532, 1.366)
pt3dadd(9.18, 220.818, -7.567, 1.318)
pt3dadd(9.102, 220.892, -7.61, 1.27)
pt3dadd(9.024, 220.967, -7.653, 1.22)
pt3dadd(8.945, 221.042, -7.697, 1.172)
pt3dadd(8.896, 221.135, -7.74, 1.14)
pt3dadd(8.86, 221.238, -7.782, 1.118)
pt3dadd(8.824, 221.34, -7.825, 1.094)
pt3dadd(8.788, 221.442, -7.868, 1.072)
pt3dadd(8.741, 221.539, -7.908, 1.062)
pt3dadd(8.658, 221.618, -7.939, 1.092)
pt3dadd(8.576, 221.696, -7.971, 1.122)
pt3dadd(8.494, 221.776, -8.002, 1.152)
pt3dadd(8.413, 221.855, -8.034, 1.18)
pt3dadd(8.378, 221.942, -8.097, 1.216)
pt3dadd(8.345, 222.029, -8.159, 1.252)
pt3dadd(8.31, 222.116, -8.221, 1.286)
pt3dadd(8.275, 222.204, -8.284, 1.322)
pt3dadd(8.248, 222.305, -8.332, 1.334)
pt3dadd(8.221, 222.409, -8.376, 1.34)
pt3dadd(8.195, 222.514, -8.42, 1.346)
pt3dadd(8.168, 222.618, -8.463, 1.352)
pt3dadd(8.143, 222.724, -8.507, 1.352)
pt3dadd(8.12, 222.827, -8.553, 1.324)
pt3dadd(8.096, 222.931, -8.599, 1.298)
pt3dadd(8.074, 223.036, -8.645, 1.27)
pt3dadd(8.051, 223.14, -8.69, 1.242)
pt3dadd(8.011, 223.225, -8.748, 1.218)
pt3dadd(7.96, 223.297, -8.816, 1.192)
pt3dadd(7.908, 223.369, -8.884, 1.168)
pt3dadd(7.855, 223.44, -8.951, 1.144)
pt3dadd(7.776, 223.495, -8.993, 1.13)
pt3dadd(7.662, 223.532, -9.003, 1.13)
pt3dadd(7.558, 223.565, -9.029, 1.132)
pt3dadd(7.489, 223.585, -9.109, 1.146)
pt3dadd(7.44, 223.622, -9.187, 1.148)
pt3dadd(7.44, 223.704, -9.26, 1.124)
pt3dadd(7.44, 223.787, -9.333, 1.1)
pt3dadd(7.44, 223.874, -9.401, 1.064)
pt3dadd(7.44, 223.963, -9.469, 1.03)
pt3dadd(7.423, 224.057, -9.53, 1.022)
pt3dadd(7.408, 224.15, -9.591, 1.014)
pt3dadd(7.391, 224.244, -9.652, 1.006)
pt3dadd(7.301, 224.285, -9.682, 1.022)
pt3dadd(7.186, 224.309, -9.702, 1.044)
pt3dadd(7.096, 224.358, -9.743, 1.102)
pt3dadd(6.991, 224.394, -9.78, 1.11)
pt3dadd(6.884, 224.43, -9.817, 1.116)
pt3dadd(6.779, 224.465, -9.854, 1.122)
pt3dadd(6.673, 224.5, -9.89, 1.126)
pt3dadd(6.575, 224.552, -9.924, 1.138)
pt3dadd(6.488, 224.628, -9.952, 1.156)
pt3dadd(6.401, 224.702, -9.981, 1.172)
pt3dadd(6.313, 224.777, -10.009, 1.19)
pt3dadd(6.233, 224.856, -10.039, 1.21)
pt3dadd(6.182, 224.954, -10.078, 1.238)
pt3dadd(6.133, 225.054, -10.117, 1.268)
pt3dadd(6.084, 225.152, -10.156, 1.298)
pt3dadd(6.034, 225.252, -10.194, 1.326)
pt3dadd(5.951, 225.325, -10.229, 1.362)
pt3dadd(5.863, 225.396, -10.263, 1.398)
pt3dadd(5.774, 225.466, -10.298, 1.432)
pt3dadd(5.686, 225.535, -10.332, 1.468)
pt3dadd(5.65, 225.614, -10.389, 1.498)
pt3dadd(5.642, 225.698, -10.46, 1.522)
pt3dadd(5.615, 225.8, -10.492, 1.532)
pt3dadd(5.574, 225.912, -10.497, 1.532)
pt3dadd(5.512, 226.008, -10.502, 1.532)
pt3dadd(5.41, 226.072, -10.507, 1.532)
pt3dadd(5.312, 226.136, -10.522, 1.532)
pt3dadd(5.23, 226.204, -10.566, 1.532)
pt3dadd(5.164, 226.289, -10.606, 1.528)
pt3dadd(5.117, 226.391, -10.641, 1.52)
pt3dadd(5.071, 226.493, -10.677, 1.512)
pt3dadd(5.022, 226.596, -10.7, 1.492)
pt3dadd(4.968, 226.704, -10.7, 1.446)
pt3dadd(4.91, 226.807, -10.7, 1.384)
pt3dadd(4.843, 226.898, -10.706, 1.23)
pt3dadd(4.82, 227.015, -10.72, 1.164)
pt3dadd(4.794, 227.129, -10.737, 1.1)
pt3dadd(4.727, 227.218, -10.774, 1.044)
pt3dadd(4.649, 227.297, -10.807, 1.008)
pt3dadd(4.546, 227.352, -10.83, 1.022)
pt3dadd(4.457, 227.396, -10.874, 1.044)
pt3dadd(4.393, 227.424, -10.956, 1.084)
pt3dadd(4.34, 227.465, -11.037, 1.124)
pt3dadd(4.295, 227.519, -11.118, 1.152)
pt3dadd(4.243, 227.57, -11.198, 1.138)
pt3dadd(4.201, 227.608, -11.284, 1.112)
pt3dadd(4.171, 227.626, -11.38, 1.066)
pt3dadd(4.128, 227.646, -11.468, 1.022)
pt3dadd(4.036, 227.674, -11.527, 0.982)
pt3dadd(3.956, 227.725, -11.578, 0.95)
pt3dadd(3.907, 227.826, -11.614, 0.936)
pt3dadd(3.865, 227.915, -11.667, 0.938)
pt3dadd(3.828, 227.999, -11.726, 0.956)
pt3dadd(3.778, 228.106, -11.742, 0.96)
pt3dadd(3.727, 228.212, -11.759, 0.966)
pt3dadd(3.676, 228.319, -11.775, 0.972)
pt3dadd(3.625, 228.426, -11.792, 0.976)
pt3dadd(3.6, 228.536, -11.817, 0.976)
pt3dadd(3.6, 228.649, -11.852, 0.972)
pt3dadd(3.6, 228.761, -11.887, 0.968)
pt3dadd(3.6, 228.874, -11.921, 0.964)
pt3dadd(3.6, 228.986, -11.956, 0.958)
pt3dadd(3.6, 229.094, -11.994, 0.952)
pt3dadd(3.6, 229.138, -12.086, 0.888)
pt3dadd(3.6, 229.213, -12.163, 0.836)
pt3dadd(3.598, 229.302, -12.229, 0.854)
pt3dadd(3.568, 229.396, -12.283, 0.836)
pt3dadd(3.488, 229.481, -12.3, 0.746)
pt3dadd(3.389, 229.546, -12.3, 0.76)
pt3dadd(3.282, 229.598, -12.3, 0.926)
pt3dadd(3.173, 229.648, -12.3, 1.158)
pt3dadd(3.058, 229.681, -12.3, 1.36)
pt3dadd(2.946, 229.726, -12.3, 1.514)
pt3dadd(2.893, 229.83, -12.3, 1.542)
pt3dadd(2.846, 229.94, -12.3, 1.552)
pt3dadd(2.78, 230.038, -12.3, 1.53)
pt3dadd(2.698, 230.125, -12.3, 1.482)
pt3dadd(2.646, 230.227, -12.3, 1.368)
pt3dadd(2.615, 230.342, -12.3, 1.262)
pt3dadd(2.57, 230.454, -12.3, 1.23)
pt3dadd(2.526, 230.566, -12.3, 1.198)
pt3dadd(2.482, 230.676, -12.3, 1.164)
pt3dadd(2.437, 230.788, -12.3, 1.132)
pt3dadd(2.388, 230.898, -12.3, 1.102)
pt3dadd(2.322, 230.998, -12.3, 1.082)
pt3dadd(2.256, 231.097, -12.3, 1.062)
pt3dadd(2.19, 231.198, -12.3, 1.042)
pt3dadd(2.124, 231.298, -12.3, 1.022)
pt3dadd(2.057, 231.396, -12.301, 1.004)
pt3dadd(1.972, 231.481, -12.306, 1.004)
pt3dadd(1.889, 231.565, -12.316, 1.004)
pt3dadd(1.828, 231.635, -12.38, 1.004)
pt3dadd(1.769, 231.71, -12.439, 1.004)
pt3dadd(1.717, 231.8, -12.489, 1.004)
pt3dadd(1.69, 231.902, -12.53, 1.01)
pt3dadd(1.684, 232.015, -12.565, 1.022)
pt3dadd(1.666, 232.126, -12.596, 1.038)
pt3dadd(1.616, 232.231, -12.62, 1.07)
pt3dadd(1.568, 232.337, -12.644, 1.1)
pt3dadd(1.518, 232.441, -12.667, 1.132)
pt3dadd(1.408, 232.487, -12.683, 1.18)
pt3dadd(1.298, 232.531, -12.699, 1.228)
}
}
proc shape3d_14() {
dend_5[3] { pt3dadd(1.254, 232.633, -12.733, 1.24)
pt3dadd(1.212, 232.738, -12.768, 1.25)
pt3dadd(1.168, 232.842, -12.801, 1.24)
pt3dadd(1.118, 232.946, -12.829, 1.2)
pt3dadd(1.085, 233.018, -12.889, 1.112)
pt3dadd(1.08, 233.074, -12.977, 1.044)
pt3dadd(1.08, 233.135, -13.063, 0.998)
pt3dadd(1.064, 233.22, -13.126, 0.956)
pt3dadd(1.037, 233.323, -13.172, 0.918)
pt3dadd(0.973, 233.414, -13.192, 0.896)
pt3dadd(0.888, 233.498, -13.198, 0.884)
pt3dadd(0.851, 233.604, -13.202, 0.884)
pt3dadd(0.846, 233.724, -13.206, 0.894)
pt3dadd(0.841, 233.843, -13.21, 0.902)
pt3dadd(0.769, 233.927, -13.234, 0.93)
pt3dadd(0.683, 234.001, -13.264, 0.964)
pt3dadd(0.595, 234.076, -13.293, 0.996)
pt3dadd(0.5, 234.145, -13.313, 1.044)
pt3dadd(0.404, 234.214, -13.33, 1.096)
pt3dadd(0.335, 234.283, -13.384, 1.132)
pt3dadd(0.271, 234.352, -13.447, 1.164)
pt3dadd(0.236, 234.428, -13.513, 1.192)
pt3dadd(0.23, 234.514, -13.584, 1.218)
pt3dadd(0.185, 234.59, -13.637, 1.236)
pt3dadd(0.092, 234.655, -13.668, 1.246)
pt3dadd(-0.001, 234.721, -13.701, 1.256)
pt3dadd(-0.09, 234.787, -13.738, 1.284)
pt3dadd(-0.184, 234.84, -13.776, 1.306)
pt3dadd(-0.29, 234.85, -13.821, 1.3)
pt3dadd(-0.396, 234.869, -13.865, 1.288)
pt3dadd(-0.5, 234.906, -13.894, 1.264)
pt3dadd(-0.605, 234.965, -13.905, 1.228)
pt3dadd(-0.697, 235.03, -13.929, 1.2)
pt3dadd(-0.774, 235.106, -13.973, 1.186)
pt3dadd(-0.827, 235.206, -13.992, 1.188)
pt3dadd(-0.868, 235.319, -13.997, 1.198)
pt3dadd(-0.931, 235.414, -14.003, 1.22)
pt3dadd(-1.028, 235.482, -14.012, 1.256)
pt3dadd(-1.062, 235.586, -14.053, 1.256)
pt3dadd(-1.1, 235.691, -14.09, 1.254)
pt3dadd(-1.163, 235.793, -14.095, 1.23)
pt3dadd(-1.226, 235.894, -14.1, 1.206)
pt3dadd(-1.28, 235.97, -14.164, 1.176)
pt3dadd(-1.334, 236.03, -14.233, 1.156)
pt3dadd(-1.393, 236.042, -14.319, 1.156)
pt3dadd(-1.458, 236.064, -14.398, 1.16)
pt3dadd(-1.547, 236.12, -14.445, 1.18)
pt3dadd(-1.559, 236.156, -14.54, 1.192)
pt3dadd(-1.571, 236.192, -14.635, 1.202)
pt3dadd(-1.61, 236.284, -14.673, 1.206)
pt3dadd(-1.657, 236.39, -14.695, 1.206)
pt3dadd(-1.717, 236.494, -14.704, 1.214)
pt3dadd(-1.781, 236.596, -14.71, 1.226)
pt3dadd(-1.854, 236.632, -14.764, 1.238)
pt3dadd(-1.932, 236.638, -14.84, 1.252)
pt3dadd(-1.984, 236.705, -14.894, 1.25)
pt3dadd(-2.022, 236.807, -14.936, 1.242)
pt3dadd(-2.06, 236.909, -14.979, 1.234)
pt3dadd(-2.096, 237.018, -15, 1.21)
pt3dadd(-2.129, 237.133, -15, 1.168)
pt3dadd(-2.16, 237.247, -15.003, 1.126)
pt3dadd(-2.165, 237.356, -15.045, 1.076)
pt3dadd(-2.17, 237.466, -15.086, 1.024)
pt3dadd(-2.185, 237.568, -15.128, 0.976)
pt3dadd(-2.281, 237.618, -15.171, 0.948)
pt3dadd(-2.37, 237.683, -15.2, 0.94)
pt3dadd(-2.443, 237.767, -15.228, 0.972)
pt3dadd(-2.515, 237.846, -15.274, 1.004)
pt3dadd(-2.587, 237.924, -15.321, 1.034)
pt3dadd(-2.658, 238.003, -15.367, 1.066)
pt3dadd(-2.729, 238.088, -15.404, 1.088)
pt3dadd(-2.796, 238.182, -15.432, 1.106)
pt3dadd(-2.864, 238.274, -15.46, 1.124)
pt3dadd(-2.933, 238.367, -15.489, 1.142)
pt3dadd(-2.989, 238.464, -15.519, 1.162)
pt3dadd(-3.001, 238.574, -15.555, 1.198)
pt3dadd(-3.018, 238.685, -15.59, 1.232)
pt3dadd(-3.106, 238.765, -15.601, 1.27)
pt3dadd(-3.19, 238.847, -15.615, 1.308)
pt3dadd(-3.217, 238.939, -15.675, 1.348)
pt3dadd(-3.241, 239.026, -15.739, 1.386)
pt3dadd(-3.247, 239.089, -15.823, 1.41)
pt3dadd(-3.258, 239.15, -15.908, 1.432)
pt3dadd(-3.313, 239.194, -15.989, 1.432)
pt3dadd(-3.378, 239.238, -16.064, 1.444)
pt3dadd(-3.445, 239.281, -16.139, 1.458)
pt3dadd(-3.505, 239.302, -16.224, 1.484)
pt3dadd(-3.568, 239.327, -16.306, 1.506)
pt3dadd(-3.637, 239.395, -16.363, 1.49)
pt3dadd(-3.706, 239.467, -16.419, 1.46)
pt3dadd(-3.775, 239.544, -16.47, 1.402)
pt3dadd(-3.806, 239.646, -16.503, 1.352)
pt3dadd(-3.817, 239.762, -16.526, 1.308)
pt3dadd(-3.827, 239.879, -16.549, 1.262)
pt3dadd(-3.838, 239.995, -16.572, 1.218)
pt3dadd(-3.84, 240.086, -16.631, 1.18)
pt3dadd(-3.84, 240.168, -16.705, 1.144)
pt3dadd(-3.84, 240.22, -16.792, 1.112)
pt3dadd(-3.846, 240.306, -16.855, 1.108)
pt3dadd(-3.854, 240.406, -16.911, 1.114)
pt3dadd(-3.863, 240.505, -16.966, 1.12)
pt3dadd(-3.871, 240.605, -17.021, 1.124)
pt3dadd(-3.88, 240.704, -17.077, 1.13)
pt3dadd(-3.896, 240.793, -17.143, 1.124)
pt3dadd(-3.914, 240.881, -17.209, 1.12)
pt3dadd(-3.932, 240.97, -17.275, 1.114)
pt3dadd(-3.95, 241.057, -17.341, 1.108)
pt3dadd(-3.96, 241.144, -17.41, 1.094)
pt3dadd(-3.96, 241.225, -17.484, 1.07)
pt3dadd(-3.96, 241.286, -17.565, 1.042)
pt3dadd(-3.96, 241.307, -17.663, 1.004)
pt3dadd(-3.96, 241.327, -17.762, 0.964)
pt3dadd(-3.955, 241.363, -17.857, 0.922)
pt3dadd(-3.95, 241.405, -17.951, 0.878)
pt3dadd(-3.896, 241.429, -18.022, 0.832)
pt3dadd(-3.791, 241.436, -18.069, 0.784)
pt3dadd(-3.698, 241.44, -18.128, 0.748)
pt3dadd(-3.631, 241.44, -18.211, 0.734)
pt3dadd(-3.565, 241.44, -18.294, 0.72)
pt3dadd(-3.498, 241.44, -18.377, 0.706)
pt3dadd(-3.469, 241.44, -18.472, 0.696)
pt3dadd(-3.455, 241.44, -18.571, 0.688)
pt3dadd(-3.438, 241.44, -18.67, 0.678)
pt3dadd(-3.384, 241.44, -18.76, 0.678)
pt3dadd(-3.326, 241.451, -18.847, 0.678)
pt3dadd(-3.268, 241.528, -18.894, 0.726)
pt3dadd(-3.234, 241.643, -18.9, 0.81)
pt3dadd(-3.202, 241.758, -18.9, 0.902)
pt3dadd(-3.155, 241.865, -18.909, 0.954)
pt3dadd(-3.136, 241.975, -18.946, 0.954)
pt3dadd(-3.121, 242.081, -18.99, 0.948)
pt3dadd(-3.127, 242.165, -19.06, 0.912)
pt3dadd(-3.146, 242.246, -19.123, 0.876)
pt3dadd(-3.256, 242.293, -19.129, 0.85)
pt3dadd(-3.348, 242.353, -19.131, 0.832)
pt3dadd(-3.353, 242.472, -19.118, 0.852)
pt3dadd(-3.358, 242.591, -19.105, 0.872)
pt3dadd(-3.358, 242.711, -19.1, 0.91)
pt3dadd(-3.355, 242.831, -19.1, 0.96)
pt3dadd(-3.352, 242.951, -19.1, 1.012)
pt3dadd(-3.348, 243.071, -19.1, 1.064)
pt3dadd(-3.289, 243.168, -19.1, 1.17)
pt3dadd(-3.208, 243.256, -19.1, 1.3)
pt3dadd(-3.162, 243.353, -19.126, 1.416)
pt3dadd(-3.142, 243.458, -19.172, 1.518)
pt3dadd(-3.122, 243.563, -19.218, 1.622)
pt3dadd(-3.12, 243.662, -19.273, 1.726)
pt3dadd(-3.12, 243.762, -19.33, 1.832)
pt3dadd(-3.12, 243.802, -19.417, 1.88)
pt3dadd(-3.12, 243.82, -19.516, 1.908)
pt3dadd(-3.12, 243.839, -19.615, 1.938)
pt3dadd(-3.12, 243.863, -19.713, 1.954)
pt3dadd(-3.12, 243.904, -19.807, 1.932)
pt3dadd(-3.12, 243.943, -19.901, 1.91)
pt3dadd(-3.102, 243.96, -19.999, 1.728)
pt3dadd(-3.061, 243.96, -20.092, 1.692)
pt3dadd(-3.019, 243.96, -20.186, 1.656)
pt3dadd(-2.977, 243.96, -20.28, 1.618)
pt3dadd(-2.936, 243.96, -20.374, 1.582)
pt3dadd(-2.894, 243.96, -20.468, 1.544)
pt3dadd(-2.88, 243.97, -20.565, 1.44)
pt3dadd(-2.864, 244.003, -20.659, 1.356)
pt3dadd(-2.81, 244.06, -20.733, 1.374)
pt3dadd(-2.771, 244.08, -20.824, 1.438)
pt3dadd(-2.76, 244.084, -20.924, 1.482)
pt3dadd(-2.754, 244.106, -21.021, 1.47)
pt3dadd(-2.701, 244.163, -21.09, 1.49)
pt3dadd(-2.586, 244.192, -21.1, 1.674)
pt3dadd(-2.467, 244.2, -21.1, 1.85)
pt3dadd(-2.347, 244.206, -21.1, 1.958)
pt3dadd(-2.232, 244.234, -21.109, 1.946)
pt3dadd(-2.19, 244.292, -21.179, 1.9)
pt3dadd(-2.162, 244.355, -21.261, 1.86)
pt3dadd(-2.136, 244.396, -21.352, 1.836)
pt3dadd(-2.111, 244.435, -21.444, 1.81)
pt3dadd(-2.01, 244.477, -21.47, 1.816)
pt3dadd(-1.9, 244.522, -21.486, 1.824)
pt3dadd(-1.795, 244.57, -21.5, 1.834)
pt3dadd(-1.741, 244.678, -21.5, 1.834)
pt3dadd(-1.687, 244.784, -21.5, 1.834)
pt3dadd(-1.591, 244.844, -21.522, 1.834)
pt3dadd(-1.487, 244.896, -21.548, 1.834)
pt3dadd(-1.39, 244.949, -21.583, 1.834)
pt3dadd(-1.307, 245.002, -21.64, 1.834)
pt3dadd(-1.212, 245.048, -21.685, 1.812)
pt3dadd(-1.151, 245.092, -21.76, 1.792)
pt3dadd(-1.094, 245.136, -21.841, 1.774)
pt3dadd(-1.038, 245.179, -21.921, 1.758)
pt3dadd(-0.982, 245.224, -22.002, 1.74)
pt3dadd(-0.952, 245.244, -22.094, 1.712)
pt3dadd(-0.938, 245.251, -22.193, 1.68)
pt3dadd(-0.925, 245.257, -22.292, 1.646)
pt3dadd(-0.912, 245.264, -22.391, 1.612)
pt3dadd(-0.899, 245.27, -22.491, 1.58)
pt3dadd(-0.886, 245.278, -22.59, 1.546)
pt3dadd(-0.88, 245.28, -22.69, 1.516)
pt3dadd(-0.88, 245.28, -22.79, 1.488)
pt3dadd(-0.88, 245.28, -22.89, 1.46)
pt3dadd(-0.88, 245.28, -22.99, 1.432)
pt3dadd(-0.88, 245.28, -23.09, 1.406)
}
}
proc shape3d_15() {
dend_5[3] { pt3dadd(-0.88, 245.28, -23.19, 1.378)
pt3dadd(-0.883, 245.275, -23.289, 1.348)
pt3dadd(-0.898, 245.254, -23.387, 1.316)
pt3dadd(-0.912, 245.231, -23.484, 1.284)
pt3dadd(-0.928, 245.209, -23.582, 1.252)
pt3dadd(-0.942, 245.188, -23.679, 1.22)
pt3dadd(-0.956, 245.165, -23.777, 1.188)
pt3dadd(-0.96, 245.185, -23.873, 1.156)
pt3dadd(-0.96, 245.219, -23.969, 1.126)
pt3dadd(-0.96, 245.245, -24.067, 1.102)
pt3dadd(-0.96, 245.26, -24.166, 1.092)
pt3dadd(-0.96, 245.275, -24.265, 1.084)
pt3dadd(-0.938, 245.28, -24.362, 1.1)
pt3dadd(-0.906, 245.28, -24.458, 1.13)
pt3dadd(-0.87, 245.291, -24.552, 1.164)
pt3dadd(-0.828, 245.341, -24.635, 1.204)
pt3dadd(-0.782, 245.412, -24.695, 1.238)
pt3dadd(-0.733, 245.52, -24.711, 1.256)
pt3dadd(-0.731, 245.61, -24.777, 1.25)
pt3dadd(-0.727, 245.7, -24.843, 1.246)
pt3dadd(-0.725, 245.79, -24.909, 1.24)
pt3dadd(-0.722, 245.88, -24.975, 1.234)
pt3dadd(-0.72, 245.97, -25.041, 1.23)
pt3dadd(-0.72, 246.059, -25.108, 1.23)
pt3dadd(-0.72, 246.148, -25.176, 1.23)
pt3dadd(-0.72, 246.236, -25.243, 1.23)
pt3dadd(-0.72, 246.325, -25.31, 1.23)
pt3dadd(-0.72, 246.413, -25.379, 1.232)
pt3dadd(-0.72, 246.494, -25.452, 1.244)
pt3dadd(-0.72, 246.576, -25.525, 1.256)
pt3dadd(-0.72, 246.658, -25.598, 1.256)
pt3dadd(-0.72, 246.739, -25.672, 1.256)
pt3dadd(-0.72, 246.782, -25.764, 1.246)
pt3dadd(-0.72, 246.822, -25.859, 1.236)
pt3dadd(-0.72, 246.84, -25.956, 1.23)
pt3dadd(-0.72, 246.84, -26.056, 1.23)
pt3dadd(-0.72, 246.84, -26.156, 1.23)
pt3dadd(-0.72, 246.84, -26.256, 1.244)
pt3dadd(-0.72, 246.84, -26.356, 1.27)
pt3dadd(-0.72, 246.84, -26.456, 1.324)
pt3dadd(-0.72, 246.848, -26.556, 1.404)
pt3dadd(-0.72, 246.875, -26.653, 1.494)
pt3dadd(-0.72, 246.924, -26.744, 1.56)
pt3dadd(-0.72, 246.956, -26.84, 1.582)
pt3dadd(-0.72, 247, -26.933, 1.598)
pt3dadd(-0.72, 247.093, -26.989, 1.658)
}
dend_5[4] {pt3dclear()
pt3dadd(-0.72, 247.093, -26.989, 1.658)
pt3dadd(-0.72, 247.124, -26.992, 1.68)
pt3dadd(-0.72, 247.244, -27, 1.752)
pt3dadd(-0.72, 247.364, -27, 1.792)
pt3dadd(-0.72, 247.483, -27.005, 1.808)
pt3dadd(-0.72, 247.597, -27.032, 1.808)
pt3dadd(-0.72, 247.681, -27.101, 1.808)
pt3dadd(-0.72, 247.789, -27.145, 1.786)
pt3dadd(-0.72, 247.896, -27.19, 1.762)
pt3dadd(-0.72, 248.012, -27.203, 1.73)
pt3dadd(-0.72, 248.132, -27.207, 1.696)
pt3dadd(-0.72, 248.252, -27.211, 1.662)
pt3dadd(-0.72, 248.339, -27.276, 1.584)
pt3dadd(-0.72, 248.42, -27.349, 1.502)
pt3dadd(-0.72, 248.48, -27.435, 1.43)
pt3dadd(-0.72, 248.534, -27.524, 1.362)
pt3dadd(-0.72, 248.599, -27.608, 1.294)
pt3dadd(-0.72, 248.67, -27.688, 1.23)
pt3dadd(-0.72, 248.711, -27.782, 1.23)
pt3dadd(-0.72, 248.75, -27.876, 1.23)
pt3dadd(-0.725, 248.786, -27.972, 1.23)
pt3dadd(-0.73, 248.82, -28.067, 1.23)
pt3dadd(-0.756, 248.873, -28.149, 1.218)
pt3dadd(-0.809, 248.948, -28.212, 1.19)
pt3dadd(-0.863, 249.03, -28.271, 1.122)
pt3dadd(-0.916, 249.113, -28.328, 1.038)
pt3dadd(-0.96, 249.209, -28.375, 0.936)
pt3dadd(-1.007, 249.316, -28.392, 0.88)
pt3dadd(-1.055, 249.425, -28.397, 0.846)
pt3dadd(-1.115, 249.528, -28.403, 0.84)
pt3dadd(-1.186, 249.625, -28.408, 0.864)
pt3dadd(-1.272, 249.691, -28.428, 0.9)
pt3dadd(-1.379, 249.718, -28.467, 0.95)
pt3dadd(-1.487, 249.754, -28.491, 1.008)
pt3dadd(-1.597, 249.803, -28.496, 1.078)
pt3dadd(-1.704, 249.856, -28.5, 1.15)
pt3dadd(-1.805, 249.92, -28.5, 1.238)
pt3dadd(-1.897, 249.997, -28.5, 1.264)
pt3dadd(-1.986, 250.078, -28.5, 1.274)
pt3dadd(-2.075, 250.159, -28.5, 1.284)
pt3dadd(-2.164, 250.24, -28.5, 1.294)
pt3dadd(-2.252, 250.32, -28.5, 1.304)
pt3dadd(-2.34, 250.402, -28.5, 1.296)
pt3dadd(-2.428, 250.483, -28.5, 1.284)
pt3dadd(-2.537, 250.522, -28.5, 1.26)
pt3dadd(-2.656, 250.542, -28.5, 1.232)
pt3dadd(-2.772, 250.56, -28.505, 1.206)
pt3dadd(-2.88, 250.56, -28.55, 1.206)
pt3dadd(-2.987, 250.56, -28.595, 1.206)
pt3dadd(-3.078, 250.56, -28.66, 1.246)
pt3dadd(-3.166, 250.56, -28.728, 1.294)
pt3dadd(-3.234, 250.597, -28.801, 1.364)
pt3dadd(-3.296, 250.646, -28.876, 1.44)
pt3dadd(-3.36, 250.696, -28.95, 1.516)
pt3dadd(-3.415, 250.771, -29.011, 1.61)
pt3dadd(-3.467, 250.855, -29.068, 1.71)
pt3dadd(-3.505, 250.938, -29.125, 1.774)
pt3dadd(-3.576, 250.986, -29.195, 1.75)
pt3dadd(-3.647, 251.034, -29.265, 1.726)
pt3dadd(-3.718, 251.083, -29.335, 1.702)
pt3dadd(-3.797, 251.125, -29.399, 1.668)
pt3dadd(-3.902, 251.144, -29.443, 1.606)
pt3dadd(-4.006, 251.165, -29.491, 1.544)
pt3dadd(-4.096, 251.185, -29.555, 1.478)
pt3dadd(-4.166, 251.224, -29.62, 1.424)
pt3dadd(-4.187, 251.308, -29.689, 1.398)
pt3dadd(-4.214, 251.368, -29.768, 1.372)
pt3dadd(-4.252, 251.386, -29.861, 1.348)
pt3dadd(-4.286, 251.4, -29.956, 1.32)
pt3dadd(-4.309, 251.4, -30.054, 1.276)
pt3dadd(-4.32, 251.407, -30.153, 1.18)
pt3dadd(-4.32, 251.434, -30.25, 1.032)
pt3dadd(-4.32, 251.504, -30.329, 0.926)
pt3dadd(-4.327, 251.605, -30.379, 0.918)
pt3dadd(-4.376, 251.708, -30.4, 0.982)
pt3dadd(-4.487, 251.752, -30.4, 1.07)
pt3dadd(-4.607, 251.76, -30.4, 1.114)
pt3dadd(-4.727, 251.76, -30.405, 1.13)
pt3dadd(-4.842, 251.75, -30.426, 1.13)
pt3dadd(-4.91, 251.71, -30.493, 1.168)
pt3dadd(-4.93, 251.66, -30.582, 1.242)
pt3dadd(-4.966, 251.64, -30.676, 1.248)
pt3dadd(-5.014, 251.646, -30.766, 1.168)
pt3dadd(-5.04, 251.692, -30.854, 1.08)
pt3dadd(-5.044, 251.801, -30.892, 1.022)
pt3dadd(-5.068, 251.917, -30.9, 0.976)
pt3dadd(-5.119, 252.024, -30.889, 0.93)
pt3dadd(-5.194, 252.097, -30.846, 0.92)
pt3dadd(-5.294, 252.139, -30.806, 1)
pt3dadd(-5.392, 252.193, -30.77, 1.184)
pt3dadd(-5.488, 252.239, -30.731, 1.39)
pt3dadd(-5.599, 252.28, -30.725, 1.418)
pt3dadd(-5.712, 252.322, -30.719, 1.448)
pt3dadd(-5.825, 252.362, -30.712, 1.476)
pt3dadd(-5.938, 252.403, -30.706, 1.506)
pt3dadd(-6.049, 252.444, -30.7, 1.534)
pt3dadd(-6.163, 252.482, -30.7, 1.552)
pt3dadd(-6.277, 252.521, -30.7, 1.57)
pt3dadd(-6.391, 252.559, -30.7, 1.588)
pt3dadd(-6.504, 252.598, -30.7, 1.606)
pt3dadd(-6.618, 252.636, -30.7, 1.624)
pt3dadd(-6.714, 252.702, -30.7, 1.626)
pt3dadd(-6.798, 252.788, -30.7, 1.616)
pt3dadd(-6.881, 252.875, -30.7, 1.606)
pt3dadd(-6.965, 252.961, -30.7, 1.596)
pt3dadd(-7.048, 253.048, -30.7, 1.586)
pt3dadd(-7.145, 253.117, -30.7, 1.566)
pt3dadd(-7.248, 253.177, -30.7, 1.542)
pt3dadd(-7.352, 253.237, -30.7, 1.518)
pt3dadd(-7.456, 253.297, -30.7, 1.494)
pt3dadd(-7.56, 253.357, -30.7, 1.468)
pt3dadd(-7.668, 253.408, -30.7, 1.436)
pt3dadd(-7.781, 253.448, -30.7, 1.394)
pt3dadd(-7.894, 253.49, -30.7, 1.354)
pt3dadd(-8.006, 253.531, -30.7, 1.312)
pt3dadd(-8.119, 253.573, -30.7, 1.27)
pt3dadd(-8.231, 253.616, -30.7, 1.228)
pt3dadd(-8.314, 253.703, -30.7, 1.182)
pt3dadd(-8.398, 253.789, -30.7, 1.138)
pt3dadd(-8.48, 253.874, -30.7, 1.092)
pt3dadd(-8.564, 253.961, -30.7, 1.046)
pt3dadd(-8.65, 254.044, -30.7, 1)
pt3dadd(-8.761, 254.088, -30.7, 0.958)
pt3dadd(-8.873, 254.132, -30.7, 0.916)
pt3dadd(-8.984, 254.178, -30.7, 0.874)
pt3dadd(-9.096, 254.222, -30.7, 0.832)
pt3dadd(-9.206, 254.267, -30.7, 0.79)
pt3dadd(-9.324, 254.28, -30.7, 0.754)
pt3dadd(-9.444, 254.28, -30.7, 0.722)
pt3dadd(-9.564, 254.28, -30.7, 0.688)
pt3dadd(-9.684, 254.284, -30.7, 0.69)
pt3dadd(-9.804, 254.287, -30.7, 0.708)
pt3dadd(-9.924, 254.292, -30.7, 0.724)
pt3dadd(-10.036, 254.33, -30.713, 0.778)
pt3dadd(-10.145, 254.375, -30.729, 0.838)
pt3dadd(-10.226, 254.392, -30.793, 0.908)
pt3dadd(-10.297, 254.398, -30.873, 0.98)
pt3dadd(-10.356, 254.4, -30.96, 1.06)
pt3dadd(-10.41, 254.411, -31.047, 1.136)
pt3dadd(-10.465, 254.468, -31.122, 1.172)
pt3dadd(-10.519, 254.526, -31.196, 1.21)
pt3dadd(-10.574, 254.584, -31.271, 1.246)
pt3dadd(-10.63, 254.641, -31.346, 1.282)
pt3dadd(-10.723, 254.668, -31.404, 1.298)
pt3dadd(-10.817, 254.695, -31.462, 1.316)
pt3dadd(-10.91, 254.723, -31.52, 1.332)
pt3dadd(-11.005, 254.75, -31.578, 1.35)
pt3dadd(-11.108, 254.786, -31.613, 1.352)
pt3dadd(-11.218, 254.828, -31.634, 1.348)
pt3dadd(-11.327, 254.87, -31.655, 1.342)
pt3dadd(-11.437, 254.912, -31.676, 1.336)
pt3dadd(-11.546, 254.956, -31.697, 1.332)
pt3dadd(-11.656, 254.97, -31.735, 1.314)
pt3dadd(-11.765, 254.98, -31.775, 1.294)
}
}
proc shape3d_16() {
dend_5[4] { pt3dadd(-11.874, 254.99, -31.815, 1.274)
pt3dadd(-11.984, 255.001, -31.855, 1.252)
pt3dadd(-12.094, 255.012, -31.895, 1.232)
pt3dadd(-12.184, 255.035, -31.957, 1.21)
pt3dadd(-12.271, 255.059, -32.023, 1.188)
pt3dadd(-12.359, 255.083, -32.088, 1.166)
pt3dadd(-12.446, 255.107, -32.154, 1.142)
pt3dadd(-12.516, 255.12, -32.231, 1.124)
pt3dadd(-12.568, 255.12, -32.321, 1.11)
pt3dadd(-12.618, 255.12, -32.412, 1.094)
pt3dadd(-12.668, 255.12, -32.503, 1.08)
pt3dadd(-12.719, 255.12, -32.593, 1.066)
pt3dadd(-12.77, 255.12, -32.684, 1.05)
pt3dadd(-12.823, 255.12, -32.773, 1.028)
pt3dadd(-12.877, 255.12, -32.863, 1.006)
pt3dadd(-12.928, 255.161, -32.946, 0.978)
pt3dadd(-12.98, 255.203, -33.029, 0.952)
pt3dadd(-13.056, 255.223, -33.104, 0.926)
pt3dadd(-13.138, 255.24, -33.174, 0.896)
pt3dadd(-13.246, 255.24, -33.219, 0.852)
pt3dadd(-13.352, 255.24, -33.264, 0.806)
pt3dadd(-13.415, 255.254, -33.347, 0.79)
pt3dadd(-13.475, 255.27, -33.433, 0.774)
pt3dadd(-13.535, 255.286, -33.519, 0.76)
pt3dadd(-13.576, 255.346, -33.589, 0.746)
pt3dadd(-13.604, 255.438, -33.648, 0.732)
pt3dadd(-13.69, 255.47, -33.692, 0.74)
pt3dadd(-13.801, 255.474, -33.729, 0.756)
pt3dadd(-13.913, 255.479, -33.767, 0.774)
pt3dadd(-14.015, 255.48, -33.817, 0.778)
pt3dadd(-14.114, 255.48, -33.874, 0.778)
pt3dadd(-14.218, 255.48, -33.924, 0.778)
pt3dadd(-14.32, 255.521, -33.959, 0.774)
pt3dadd(-14.42, 255.572, -33.993, 0.768)
pt3dadd(-14.521, 255.625, -34.026, 0.762)
pt3dadd(-14.622, 255.677, -34.059, 0.756)
pt3dadd(-14.724, 255.715, -34.098, 0.756)
pt3dadd(-14.827, 255.736, -34.146, 0.76)
pt3dadd(-14.93, 255.756, -34.194, 0.766)
pt3dadd(-15.034, 255.776, -34.242, 0.772)
pt3dadd(-15.137, 255.796, -34.29, 0.778)
pt3dadd(-15.244, 255.842, -34.3, 0.804)
pt3dadd(-15.35, 255.896, -34.3, 0.838)
pt3dadd(-15.455, 255.954, -34.309, 0.868)
pt3dadd(-15.557, 256.014, -34.326, 0.894)
pt3dadd(-15.662, 256.051, -34.355, 0.904)
pt3dadd(-15.772, 256.07, -34.392, 0.904)
pt3dadd(-15.868, 256.08, -34.448, 0.886)
pt3dadd(-15.949, 256.08, -34.521, 0.85)
pt3dadd(-16.022, 256.086, -34.599, 0.826)
pt3dadd(-16.082, 256.102, -34.685, 0.818)
pt3dadd(-16.141, 256.117, -34.771, 0.81)
pt3dadd(-16.201, 256.134, -34.856, 0.804)
pt3dadd(-16.264, 256.232, -34.879, 0.816)
pt3dadd(-16.332, 256.326, -34.9, 0.828)
pt3dadd(-16.441, 256.373, -34.906, 0.82)
pt3dadd(-16.554, 256.411, -34.921, 0.796)
pt3dadd(-16.663, 256.451, -34.942, 0.762)
pt3dadd(-16.763, 256.502, -34.977, 0.696)
pt3dadd(-16.841, 256.576, -35, 0.642)
pt3dadd(-16.88, 256.688, -35, 0.61)
pt3dadd(-16.92, 256.802, -35, 0.578)
pt3dadd(-16.934, 256.921, -35, 0.55)
pt3dadd(-16.95, 257.04, -35, 0.522)
pt3dadd(-16.985, 257.15, -35.002, 0.498)
pt3dadd(-17.064, 257.24, -35.007, 0.486)
pt3dadd(-17.138, 257.33, -35.021, 0.478)
pt3dadd(-17.221, 257.388, -35.069, 0.536)
pt3dadd(-17.336, 257.4, -35.093, 0.624)
pt3dadd(-17.456, 257.4, -35.1, 0.652)
pt3dadd(-17.575, 257.4, -35.106, 0.626)
pt3dadd(-17.69, 257.4, -35.131, 0.598)
pt3dadd(-17.803, 257.4, -35.166, 0.588)
pt3dadd(-17.916, 257.4, -35.2, 0.58)
pt3dadd(-18.029, 257.4, -35.235, 0.57)
pt3dadd(-18.142, 257.4, -35.27, 0.56)
pt3dadd(-18.254, 257.4, -35.302, 0.552)
pt3dadd(-18.373, 257.4, -35.316, 0.556)
pt3dadd(-18.492, 257.4, -35.33, 0.56)
pt3dadd(-18.611, 257.4, -35.345, 0.566)
pt3dadd(-18.73, 257.4, -35.359, 0.57)
pt3dadd(-18.848, 257.4, -35.374, 0.574)
pt3dadd(-18.967, 257.4, -35.388, 0.578)
pt3dadd(-19.087, 257.4, -35.392, 0.618)
pt3dadd(-19.207, 257.4, -35.396, 0.662)
pt3dadd(-19.327, 257.4, -35.4, 0.706)
pt3dadd(-19.447, 257.4, -35.4, 0.774)
pt3dadd(-19.567, 257.4, -35.4, 0.84)
pt3dadd(-19.686, 257.4, -35.403, 0.908)
pt3dadd(-19.793, 257.4, -35.447, 0.998)
pt3dadd(-19.901, 257.4, -35.492, 1.088)
pt3dadd(-19.96, 257.405, -35.575, 1.162)
pt3dadd(-20.009, 257.411, -35.666, 1.23)
pt3dadd(-20.054, 257.455, -35.747, 1.296)
pt3dadd(-20.116, 257.508, -35.817, 1.33)
pt3dadd(-20.201, 257.543, -35.882, 1.33)
pt3dadd(-20.285, 257.578, -35.947, 1.33)
pt3dadd(-20.369, 257.611, -36.012, 1.33)
pt3dadd(-20.448, 257.64, -36.081, 1.328)
pt3dadd(-20.502, 257.64, -36.171, 1.304)
pt3dadd(-20.556, 257.64, -36.26, 1.282)
pt3dadd(-20.629, 257.64, -36.339, 1.226)
pt3dadd(-20.705, 257.64, -36.417, 1.168)
pt3dadd(-20.76, 257.674, -36.499, 1.092)
pt3dadd(-20.809, 257.717, -36.583, 1.01)
pt3dadd(-20.911, 257.772, -36.594, 0.928)
pt3dadd(-21.017, 257.828, -36.599, 0.846)
pt3dadd(-21.125, 257.882, -36.6, 0.802)
pt3dadd(-21.226, 257.944, -36.6, 0.786)
pt3dadd(-21.313, 258.025, -36.6, 0.81)
pt3dadd(-21.401, 258.108, -36.601, 0.844)
pt3dadd(-21.486, 258.192, -36.606, 0.93)
pt3dadd(-21.571, 258.272, -36.617, 1.016)
pt3dadd(-21.661, 258.325, -36.667, 1.116)
pt3dadd(-21.745, 258.36, -36.727, 1.2)
pt3dadd(-21.821, 258.36, -36.805, 1.26)
pt3dadd(-21.898, 258.373, -36.876, 1.31)
pt3dadd(-21.984, 258.437, -36.922, 1.326)
pt3dadd(-22.07, 258.5, -36.967, 1.344)
pt3dadd(-22.157, 258.569, -37, 1.35)
pt3dadd(-22.244, 258.65, -37, 1.326)
pt3dadd(-22.331, 258.733, -37, 1.296)
pt3dadd(-22.422, 258.805, -37, 1.248)
pt3dadd(-22.535, 258.846, -37, 1.23)
pt3dadd(-22.646, 258.888, -37, 1.21)
pt3dadd(-22.759, 258.929, -37, 1.192)
pt3dadd(-22.872, 258.971, -37, 1.174)
pt3dadd(-22.985, 259.012, -37, 1.156)
pt3dadd(-23.089, 259.072, -37, 1.136)
pt3dadd(-23.192, 259.132, -37, 1.116)
pt3dadd(-23.297, 259.192, -37, 1.096)
pt3dadd(-23.401, 259.252, -37, 1.078)
pt3dadd(-23.504, 259.312, -37, 1.058)
pt3dadd(-23.617, 259.34, -37.021, 1.024)
pt3dadd(-23.731, 259.364, -37.045, 0.99)
pt3dadd(-23.845, 259.388, -37.069, 0.956)
pt3dadd(-23.959, 259.412, -37.094, 0.92)
pt3dadd(-24.073, 259.435, -37.118, 0.886)
pt3dadd(-24.179, 259.464, -37.159, 0.848)
pt3dadd(-24.282, 259.494, -37.203, 0.808)
pt3dadd(-24.385, 259.523, -37.247, 0.77)
pt3dadd(-24.488, 259.553, -37.292, 0.73)
pt3dadd(-24.589, 259.58, -37.341, 0.694)
pt3dadd(-24.682, 259.604, -37.401, 0.666)
pt3dadd(-24.775, 259.628, -37.461, 0.638)
pt3dadd(-24.868, 259.652, -37.521, 0.61)
pt3dadd(-24.961, 259.676, -37.581, 0.582)
pt3dadd(-25.067, 259.715, -37.613, 0.566)
pt3dadd(-25.175, 259.756, -37.641, 0.554)
pt3dadd(-25.238, 259.799, -37.715, 0.576)
pt3dadd(-25.301, 259.842, -37.789, 0.604)
pt3dadd(-25.416, 259.877, -37.794, 0.626)
pt3dadd(-25.53, 259.912, -37.799, 0.648)
pt3dadd(-25.649, 259.92, -37.809, 0.666)
pt3dadd(-25.768, 259.92, -37.821, 0.686)
pt3dadd(-25.886, 259.92, -37.835, 0.704)
pt3dadd(-25.997, 259.93, -37.874, 0.722)
pt3dadd(-26.108, 259.958, -37.89, 0.732)
pt3dadd(-26.22, 260.002, -37.892, 0.736)
pt3dadd(-26.333, 260.044, -37.894, 0.74)
pt3dadd(-26.444, 260.086, -37.896, 0.746)
pt3dadd(-26.557, 260.129, -37.898, 0.75)
pt3dadd(-26.67, 260.165, -37.902, 0.752)
pt3dadd(-26.789, 260.186, -37.907, 0.748)
pt3dadd(-26.906, 260.207, -37.913, 0.744)
pt3dadd(-27.024, 260.227, -37.919, 0.74)
pt3dadd(-27.143, 260.249, -37.925, 0.734)
pt3dadd(-27.26, 260.269, -37.93, 0.73)
pt3dadd(-27.373, 260.281, -37.954, 0.728)
pt3dadd(-27.482, 260.284, -37.998, 0.728)
pt3dadd(-27.59, 260.286, -38.041, 0.728)
pt3dadd(-27.698, 260.288, -38.084, 0.728)
pt3dadd(-27.806, 260.292, -38.127, 0.728)
pt3dadd(-27.917, 260.306, -38.158, 0.73)
pt3dadd(-28.028, 260.348, -38.167, 0.734)
pt3dadd(-28.14, 260.39, -38.176, 0.74)
pt3dadd(-28.253, 260.432, -38.184, 0.744)
pt3dadd(-28.364, 260.473, -38.193, 0.75)
pt3dadd(-28.477, 260.507, -38.203, 0.756)
pt3dadd(-28.596, 260.509, -38.218, 0.768)
pt3dadd(-28.715, 260.512, -38.232, 0.78)
pt3dadd(-28.834, 260.514, -38.247, 0.794)
pt3dadd(-28.952, 260.516, -38.262, 0.806)
pt3dadd(-29.071, 260.518, -38.276, 0.818)
pt3dadd(-29.189, 260.525, -38.29, 0.83)
pt3dadd(-29.304, 260.56, -38.294, 0.842)
pt3dadd(-29.419, 260.594, -38.299, 0.852)
pt3dadd(-29.537, 260.612, -38.304, 0.854)
pt3dadd(-29.656, 260.628, -38.308, 0.854)
pt3dadd(-29.766, 260.64, -38.328, 0.852)
pt3dadd(-29.848, 260.64, -38.402, 0.84)
pt3dadd(-29.929, 260.64, -38.475, 0.83)
pt3dadd(-30.011, 260.64, -38.548, 0.842)
pt3dadd(-30.092, 260.64, -38.621, 0.854)
pt3dadd(-30.193, 260.64, -38.675, 0.888)
pt3dadd(-30.296, 260.654, -38.724, 0.912)
pt3dadd(-30.402, 260.681, -38.767, 0.93)
pt3dadd(-30.506, 260.706, -38.811, 0.946)
pt3dadd(-30.611, 260.732, -38.855, 0.962)
pt3dadd(-30.715, 260.759, -38.898, 0.978)
}
}
proc shape3d_17() {
dend_5[4] { pt3dadd(-30.83, 260.795, -38.9, 0.992)
pt3dadd(-30.944, 260.831, -38.9, 1.006)
pt3dadd(-31.058, 260.867, -38.9, 1.02)
pt3dadd(-31.174, 260.902, -38.9, 1.032)
pt3dadd(-31.288, 260.938, -38.9, 1.046)
pt3dadd(-31.398, 260.974, -38.916, 1.06)
pt3dadd(-31.5, 261.01, -38.959, 1.07)
pt3dadd(-31.603, 261.046, -39.001, 1.082)
pt3dadd(-31.705, 261.082, -39.044, 1.092)
pt3dadd(-31.807, 261.118, -39.086, 1.104)
pt3dadd(-31.915, 261.127, -39.129, 1.11)
pt3dadd(-32.024, 261.136, -39.17, 1.114)
pt3dadd(-32.134, 261.143, -39.212, 1.12)
pt3dadd(-32.242, 261.151, -39.254, 1.124)
pt3dadd(-32.351, 261.158, -39.296, 1.13)
pt3dadd(-32.454, 261.175, -39.345, 1.126)
pt3dadd(-32.556, 261.192, -39.395, 1.12)
pt3dadd(-32.659, 261.21, -39.445, 1.114)
pt3dadd(-32.761, 261.227, -39.495, 1.108)
pt3dadd(-32.855, 261.24, -39.553, 1.1)
pt3dadd(-32.915, 261.24, -39.639, 1.076)
pt3dadd(-32.977, 261.242, -39.724, 1.052)
pt3dadd(-33.072, 261.294, -39.767, 0.998)
pt3dadd(-33.169, 261.347, -39.8, 0.944)
pt3dadd(-33.274, 261.408, -39.8, 0.898)
pt3dadd(-33.377, 261.469, -39.8, 0.852)
pt3dadd(-33.475, 261.536, -39.8, 0.806)
pt3dadd(-33.575, 261.605, -39.8, 0.76)
pt3dadd(-33.624, 261.712, -39.8, 0.74)
pt3dadd(-33.69, 261.799, -39.8, 0.73)
pt3dadd(-33.803, 261.838, -39.8, 0.734)
pt3dadd(-33.917, 261.876, -39.8, 0.738)
pt3dadd(-34.031, 261.916, -39.8, 0.744)
pt3dadd(-34.145, 261.954, -39.8, 0.748)
pt3dadd(-34.258, 261.992, -39.8, 0.752)
pt3dadd(-34.373, 262.027, -39.804, 0.78)
pt3dadd(-34.487, 262.062, -39.809, 0.812)
pt3dadd(-34.589, 262.08, -39.844, 0.84)
pt3dadd(-34.676, 262.08, -39.912, 0.864)
pt3dadd(-34.769, 262.103, -39.964, 0.884)
pt3dadd(-34.867, 262.166, -39.987, 0.896)
pt3dadd(-34.962, 262.236, -40.002, 0.904)
pt3dadd(-35.053, 262.313, -40.008, 0.904)
pt3dadd(-35.119, 262.369, -40.05, 0.906)
pt3dadd(-35.148, 262.391, -40.145, 0.914)
pt3dadd(-35.177, 262.412, -40.24, 0.92)
pt3dadd(-35.207, 262.435, -40.335, 0.928)
pt3dadd(-35.29, 262.489, -40.374, 0.95)
pt3dadd(-35.388, 262.553, -40.397, 0.976)
pt3dadd(-35.455, 262.644, -40.422, 1.03)
pt3dadd(-35.524, 262.721, -40.473, 1.03)
pt3dadd(-35.58, 262.781, -40.542, 1.016)
pt3dadd(-35.622, 262.822, -40.629, 0.99)
pt3dadd(-35.654, 262.862, -40.719, 0.966)
pt3dadd(-35.681, 262.901, -40.811, 0.94)
pt3dadd(-35.753, 262.928, -40.866, 0.918)
pt3dadd(-35.869, 262.946, -40.885, 0.896)
pt3dadd(-35.981, 262.976, -40.9, 0.876)
pt3dadd(-36.074, 263.051, -40.9, 0.858)
pt3dadd(-36.17, 263.123, -40.895, 0.842)
pt3dadd(-36.268, 263.194, -40.889, 0.828)
pt3dadd(-36.364, 263.264, -40.883, 0.814)
pt3dadd(-36.456, 263.339, -40.874, 0.804)
pt3dadd(-36.529, 263.431, -40.856, 0.804)
pt3dadd(-36.604, 263.524, -40.838, 0.804)
pt3dadd(-36.677, 263.616, -40.82, 0.804)
pt3dadd(-36.75, 263.708, -40.802, 0.804)
pt3dadd(-36.853, 263.767, -40.8, 0.8)
pt3dadd(-36.96, 263.82, -40.8, 0.794)
pt3dadd(-37.068, 263.874, -40.8, 0.79)
pt3dadd(-37.175, 263.928, -40.8, 0.784)
pt3dadd(-37.283, 263.981, -40.8, 0.78)
pt3dadd(-37.387, 264.04, -40.8, 0.782)
pt3dadd(-37.492, 264.098, -40.8, 0.786)
pt3dadd(-37.596, 264.158, -40.8, 0.792)
pt3dadd(-37.699, 264.218, -40.8, 0.796)
pt3dadd(-37.804, 264.278, -40.8, 0.802)
pt3dadd(-37.91, 264.33, -40.813, 0.806)
pt3dadd(-38.018, 264.372, -40.836, 0.812)
pt3dadd(-38.126, 264.415, -40.86, 0.818)
pt3dadd(-38.236, 264.457, -40.884, 0.822)
pt3dadd(-38.344, 264.5, -40.908, 0.828)
pt3dadd(-38.431, 264.533, -40.968, 0.838)
pt3dadd(-38.515, 264.564, -41.035, 0.85)
pt3dadd(-38.598, 264.594, -41.102, 0.862)
pt3dadd(-38.682, 264.625, -41.169, 0.874)
pt3dadd(-38.77, 264.654, -41.233, 0.876)
pt3dadd(-38.861, 264.682, -41.294, 0.87)
pt3dadd(-38.952, 264.709, -41.354, 0.864)
pt3dadd(-39.043, 264.737, -41.415, 0.858)
pt3dadd(-39.136, 264.767, -41.473, 0.846)
pt3dadd(-39.236, 264.81, -41.515, 0.792)
pt3dadd(-39.328, 264.848, -41.567, 0.738)
pt3dadd(-39.398, 264.876, -41.644, 0.684)
pt3dadd(-39.446, 264.942, -41.691, 0.648)
pt3dadd(-39.462, 265.061, -41.695, 0.64)
pt3dadd(-39.478, 265.18, -41.699, 0.63)
pt3dadd(-39.502, 265.292, -41.727, 0.628)
pt3dadd(-39.527, 265.403, -41.759, 0.628)
pt3dadd(-39.618, 265.439, -41.796, 0.622)
pt3dadd(-39.728, 265.453, -41.834, 0.616)
pt3dadd(-39.839, 265.469, -41.872, 0.608)
pt3dadd(-39.944, 265.499, -41.9, 0.596)
pt3dadd(-40.038, 265.574, -41.9, 0.574)
pt3dadd(-40.134, 265.644, -41.9, 0.56)
pt3dadd(-40.25, 265.67, -41.9, 0.61)
pt3dadd(-40.37, 265.68, -41.9, 0.634)
pt3dadd(-40.49, 265.691, -41.9, 0.656)
pt3dadd(-40.609, 265.7, -41.9, 0.68)
pt3dadd(-40.729, 265.711, -41.9, 0.704)
pt3dadd(-40.848, 265.721, -41.9, 0.726)
pt3dadd(-40.968, 265.732, -41.9, 0.75)
pt3dadd(-41.078, 265.766, -41.922, 0.79)
pt3dadd(-41.188, 265.807, -41.948, 0.832)
pt3dadd(-41.296, 265.847, -41.974, 0.876)
pt3dadd(-41.405, 265.888, -42.001, 0.918)
pt3dadd(-41.514, 265.926, -42.025, 0.958)
pt3dadd(-41.628, 265.957, -42.04, 0.978)
pt3dadd(-41.743, 265.987, -42.055, 0.996)
pt3dadd(-41.857, 266.018, -42.07, 1.016)
pt3dadd(-41.971, 266.05, -42.086, 1.036)
pt3dadd(-42.084, 266.084, -42.1, 1.056)
pt3dadd(-42.166, 266.172, -42.1, 1.068)
pt3dadd(-42.247, 266.261, -42.1, 1.078)
pt3dadd(-42.364, 266.276, -42.112, 1.062)
pt3dadd(-42.481, 266.287, -42.126, 1.04)
pt3dadd(-42.559, 266.334, -42.16, 1.024)
pt3dadd(-42.588, 266.428, -42.219, 1.01)
pt3dadd(-42.623, 266.482, -42.297, 0.984)
pt3dadd(-42.661, 266.508, -42.389, 0.946)
pt3dadd(-42.726, 266.543, -42.462, 0.908)
pt3dadd(-42.815, 266.587, -42.518, 0.866)
pt3dadd(-42.905, 266.632, -42.573, 0.824)
pt3dadd(-42.983, 266.705, -42.6, 0.754)
pt3dadd(-43.05, 266.804, -42.6, 0.662)
pt3dadd(-43.136, 266.868, -42.591, 0.58)
pt3dadd(-43.253, 266.873, -42.567, 0.518)
pt3dadd(-43.368, 266.876, -42.543, 0.454)
pt3dadd(-43.482, 266.88, -42.513, 0.392)
pt3dadd(-43.582, 266.88, -42.457, 0.334)
pt3dadd(-43.68, 266.88, -42.4, 0.276)
}
dend_5[5] {pt3dclear()
pt3dadd(-0.72, 247.093, -26.989, 1.658)
pt3dadd(-0.643, 247.129, -27.03, 1.696)
pt3dadd(-0.548, 247.174, -27.079, 1.744)
pt3dadd(-0.455, 247.218, -27.129, 1.79)
pt3dadd(-0.36, 247.262, -27.179, 1.838)
pt3dadd(-0.301, 247.348, -27.2, 1.888)
pt3dadd(-0.268, 247.463, -27.2, 1.94)
pt3dadd(-0.24, 247.578, -27.2, 1.982)
pt3dadd(-0.24, 247.698, -27.2, 1.964)
pt3dadd(-0.24, 247.818, -27.2, 1.948)
pt3dadd(-0.238, 247.938, -27.2, 1.92)
pt3dadd(-0.223, 248.058, -27.2, 1.826)
pt3dadd(-0.209, 248.177, -27.2, 1.732)
pt3dadd(-0.166, 248.284, -27.2, 1.552)
pt3dadd(-0.092, 248.377, -27.202, 1.278)
pt3dadd(-0.048, 248.477, -27.246, 1.19)
pt3dadd(-0.005, 248.575, -27.289, 1.102)
pt3dadd(0.038, 248.674, -27.333, 1.016)
pt3dadd(0.082, 248.772, -27.377, 0.928)
pt3dadd(0.118, 248.876, -27.417, 0.872)
pt3dadd(0.149, 248.982, -27.457, 0.828)
pt3dadd(0.181, 249.088, -27.496, 0.784)
pt3dadd(0.214, 249.193, -27.535, 0.74)
pt3dadd(0.245, 249.296, -27.578, 0.704)
pt3dadd(0.269, 249.39, -27.638, 0.704)
pt3dadd(0.293, 249.482, -27.698, 0.704)
pt3dadd(0.317, 249.576, -27.757, 0.704)
pt3dadd(0.341, 249.668, -27.817, 0.704)
pt3dadd(0.349, 249.751, -27.888, 0.722)
pt3dadd(0.352, 249.83, -27.964, 0.748)
pt3dadd(0.354, 249.91, -28.039, 0.774)
pt3dadd(0.356, 249.989, -28.114, 0.8)
pt3dadd(0.36, 250.068, -28.189, 0.824)
pt3dadd(0.36, 250.154, -28.258, 0.868)
pt3dadd(0.36, 250.243, -28.326, 0.916)
pt3dadd(0.392, 250.309, -28.402, 0.95)
pt3dadd(0.437, 250.368, -28.481, 0.976)
pt3dadd(0.457, 250.472, -28.523, 0.98)
pt3dadd(0.476, 250.582, -28.561, 0.98)
pt3dadd(0.48, 250.699, -28.577, 0.986)
pt3dadd(0.48, 250.818, -28.589, 0.996)
pt3dadd(0.481, 250.937, -28.603, 1.012)
pt3dadd(0.49, 251.054, -28.624, 1.058)
pt3dadd(0.521, 251.159, -28.657, 1.102)
pt3dadd(0.574, 251.255, -28.7, 1.144)
pt3dadd(0.592, 251.342, -28.763, 1.174)
pt3dadd(0.598, 251.426, -28.834, 1.198)
pt3dadd(0.619, 251.516, -28.896, 1.186)
pt3dadd(0.648, 251.609, -28.955, 1.16)
pt3dadd(0.731, 251.682, -28.981, 1.114)
pt3dadd(0.827, 251.75, -28.998, 1.062)
pt3dadd(0.87, 251.858, -29.016, 1.018)
pt3dadd(0.904, 251.971, -29.035, 0.976)
pt3dadd(0.937, 252.084, -29.054, 0.932)
pt3dadd(0.96, 252.199, -29.071, 0.892)
pt3dadd(0.96, 252.318, -29.083, 0.854)
pt3dadd(0.96, 252.437, -29.095, 0.818)
pt3dadd(0.96, 252.557, -29.1, 0.788)
pt3dadd(0.977, 252.667, -29.126, 0.786)
}
}
proc shape3d_18() {
dend_5[5] { pt3dadd(1.002, 252.774, -29.167, 0.796)
pt3dadd(1.028, 252.881, -29.208, 0.808)
pt3dadd(1.055, 252.988, -29.248, 0.818)
pt3dadd(1.08, 253.093, -29.289, 0.828)
pt3dadd(1.08, 253.198, -29.34, 0.864)
pt3dadd(1.08, 253.301, -29.39, 0.898)
pt3dadd(1.08, 253.417, -29.41, 0.934)
pt3dadd(1.08, 253.536, -29.422, 0.972)
pt3dadd(1.08, 253.654, -29.439, 1.01)
pt3dadd(1.08, 253.76, -29.483, 1.054)
pt3dadd(1.08, 253.868, -29.528, 1.1)
pt3dadd(1.08, 253.94, -29.606, 1.146)
pt3dadd(1.08, 254.009, -29.689, 1.192)
pt3dadd(1.08, 254.032, -29.784, 1.214)
pt3dadd(1.08, 254.039, -29.884, 1.228)
pt3dadd(1.106, 254.08, -29.974, 1.226)
pt3dadd(1.139, 254.126, -30.062, 1.22)
pt3dadd(1.171, 254.173, -30.15, 1.214)
pt3dadd(1.204, 254.22, -30.238, 1.21)
pt3dadd(1.232, 254.276, -30.322, 1.2)
pt3dadd(1.253, 254.353, -30.396, 1.184)
pt3dadd(1.274, 254.431, -30.47, 1.166)
pt3dadd(1.295, 254.508, -30.545, 1.15)
pt3dadd(1.316, 254.586, -30.619, 1.134)
pt3dadd(1.32, 254.612, -30.714, 1.108)
pt3dadd(1.32, 254.627, -30.813, 1.08)
pt3dadd(1.32, 254.642, -30.912, 1.052)
pt3dadd(1.32, 254.663, -31.011, 1.032)
pt3dadd(1.32, 254.683, -31.109, 1.014)
pt3dadd(1.32, 254.74, -31.192, 0.992)
pt3dadd(1.32, 254.827, -31.26, 0.968)
pt3dadd(1.32, 254.91, -31.332, 0.954)
pt3dadd(1.32, 254.986, -31.41, 0.954)
pt3dadd(1.32, 255.072, -31.472, 0.958)
pt3dadd(1.32, 255.19, -31.492, 0.972)
pt3dadd(1.32, 255.296, -31.533, 0.988)
pt3dadd(1.32, 255.394, -31.59, 1.002)
pt3dadd(1.32, 255.492, -31.648, 1.018)
pt3dadd(1.32, 255.59, -31.705, 1.032)
pt3dadd(1.32, 255.689, -31.763, 1.048)
pt3dadd(1.32, 255.785, -31.823, 1.06)
pt3dadd(1.32, 255.878, -31.886, 1.07)
pt3dadd(1.32, 255.972, -31.948, 1.08)
pt3dadd(1.32, 256.066, -32.01, 1.09)
pt3dadd(1.32, 256.159, -32.073, 1.1)
pt3dadd(1.337, 256.23, -32.149, 1.108)
pt3dadd(1.367, 256.283, -32.235, 1.114)
pt3dadd(1.396, 256.337, -32.321, 1.12)
pt3dadd(1.426, 256.39, -32.407, 1.124)
pt3dadd(1.456, 256.44, -32.494, 1.13)
pt3dadd(1.502, 256.44, -32.586, 1.13)
pt3dadd(1.549, 256.44, -32.678, 1.13)
pt3dadd(1.624, 256.481, -32.743, 1.13)
pt3dadd(1.706, 256.534, -32.8, 1.13)
pt3dadd(1.782, 256.616, -32.838, 1.13)
pt3dadd(1.848, 256.705, -32.871, 1.128)
pt3dadd(1.888, 256.816, -32.893, 1.116)
pt3dadd(1.92, 256.922, -32.922, 1.1)
pt3dadd(1.92, 257.016, -32.984, 1.064)
pt3dadd(1.95, 257.122, -33.017, 1.038)
pt3dadd(1.99, 257.232, -33.041, 1.018)
pt3dadd(2.029, 257.341, -33.064, 0.996)
pt3dadd(2.068, 257.452, -33.088, 0.976)
pt3dadd(2.107, 257.561, -33.112, 0.954)
pt3dadd(2.118, 257.672, -33.149, 0.944)
pt3dadd(2.129, 257.783, -33.186, 0.934)
pt3dadd(2.138, 257.893, -33.224, 0.924)
pt3dadd(2.149, 258.005, -33.261, 0.914)
pt3dadd(2.16, 258.115, -33.298, 0.904)
pt3dadd(2.184, 258.226, -33.331, 0.904)
pt3dadd(2.209, 258.336, -33.363, 0.904)
pt3dadd(2.233, 258.448, -33.396, 0.904)
pt3dadd(2.258, 258.558, -33.428, 0.904)
pt3dadd(2.28, 258.671, -33.457, 0.906)
pt3dadd(2.28, 258.79, -33.463, 0.918)
pt3dadd(2.28, 258.91, -33.47, 0.928)
pt3dadd(2.28, 259.03, -33.477, 0.94)
pt3dadd(2.28, 259.15, -33.484, 0.952)
pt3dadd(2.28, 259.268, -33.49, 0.962)
pt3dadd(2.28, 259.388, -33.497, 0.974)
pt3dadd(2.28, 259.508, -33.502, 0.984)
pt3dadd(2.28, 259.628, -33.506, 0.992)
pt3dadd(2.28, 259.748, -33.51, 1.002)
pt3dadd(2.28, 259.862, -33.537, 1.004)
pt3dadd(2.28, 259.973, -33.576, 1.004)
pt3dadd(2.28, 260.076, -33.624, 1.004)
pt3dadd(2.28, 260.171, -33.687, 1.004)
pt3dadd(2.28, 260.256, -33.755, 1.01)
pt3dadd(2.28, 260.316, -33.841, 1.034)
pt3dadd(2.28, 260.378, -33.927, 1.058)
pt3dadd(2.28, 260.453, -34.005, 1.11)
pt3dadd(2.28, 260.49, -34.097, 1.154)
pt3dadd(2.28, 260.504, -34.196, 1.192)
pt3dadd(2.28, 260.519, -34.295, 1.228)
pt3dadd(2.28, 260.557, -34.39, 1.272)
pt3dadd(2.28, 260.598, -34.484, 1.314)
pt3dadd(2.28, 260.681, -34.542, 1.35)
pt3dadd(2.28, 260.795, -34.575, 1.382)
pt3dadd(2.28, 260.908, -34.608, 1.404)
pt3dadd(2.28, 261.02, -34.641, 1.392)
pt3dadd(2.28, 261.134, -34.674, 1.382)
pt3dadd(2.28, 261.227, -34.736, 1.356)
pt3dadd(2.28, 261.317, -34.802, 1.328)
pt3dadd(2.28, 261.408, -34.868, 1.3)
pt3dadd(2.28, 261.482, -34.943, 1.254)
pt3dadd(2.28, 261.529, -35.035, 1.178)
pt3dadd(2.28, 261.578, -35.125, 1.102)
pt3dadd(2.28, 261.677, -35.183, 1.04)
pt3dadd(2.28, 261.774, -35.242, 0.978)
pt3dadd(2.28, 261.876, -35.29, 0.92)
pt3dadd(2.28, 261.996, -35.293, 0.868)
pt3dadd(2.28, 262.116, -35.297, 0.814)
pt3dadd(2.28, 262.236, -35.3, 0.756)
pt3dadd(2.28, 262.356, -35.3, 0.704)
pt3dadd(2.28, 262.476, -35.3, 0.704)
pt3dadd(2.28, 262.596, -35.3, 0.704)
pt3dadd(2.28, 262.716, -35.3, 0.704)
pt3dadd(2.28, 262.836, -35.3, 0.704)
pt3dadd(2.28, 262.956, -35.3, 0.704)
pt3dadd(2.28, 263.076, -35.3, 0.704)
pt3dadd(2.28, 263.194, -35.31, 0.706)
pt3dadd(2.28, 263.306, -35.345, 0.716)
pt3dadd(2.28, 263.419, -35.38, 0.724)
pt3dadd(2.28, 263.531, -35.414, 0.734)
pt3dadd(2.28, 263.644, -35.449, 0.742)
pt3dadd(2.28, 263.756, -35.484, 0.752)
pt3dadd(2.28, 263.869, -35.516, 0.768)
pt3dadd(2.28, 263.983, -35.549, 0.786)
pt3dadd(2.28, 264.097, -35.581, 0.806)
pt3dadd(2.28, 264.21, -35.613, 0.824)
pt3dadd(2.28, 264.324, -35.645, 0.842)
pt3dadd(2.28, 264.437, -35.68, 0.862)
pt3dadd(2.28, 264.546, -35.72, 0.886)
pt3dadd(2.28, 264.656, -35.759, 0.908)
pt3dadd(2.28, 264.767, -35.799, 0.932)
pt3dadd(2.28, 264.877, -35.839, 0.956)
pt3dadd(2.28, 264.988, -35.878, 0.98)
pt3dadd(2.28, 265.098, -35.918, 0.998)
pt3dadd(2.28, 265.207, -35.957, 1.018)
pt3dadd(2.28, 265.318, -35.997, 1.036)
pt3dadd(2.28, 265.428, -36.037, 1.054)
pt3dadd(2.28, 265.538, -36.076, 1.074)
pt3dadd(2.28, 265.655, -36.091, 1.08)
pt3dadd(2.28, 265.775, -36.094, 1.08)
pt3dadd(2.28, 265.895, -36.098, 1.08)
pt3dadd(2.28, 266.015, -36.101, 1.08)
pt3dadd(2.28, 266.135, -36.104, 1.08)
pt3dadd(2.28, 266.255, -36.108, 1.08)
pt3dadd(2.28, 266.375, -36.111, 1.08)
pt3dadd(2.28, 266.494, -36.124, 1.062)
pt3dadd(2.28, 266.612, -36.138, 1.042)
pt3dadd(2.28, 266.731, -36.153, 1.02)
pt3dadd(2.28, 266.85, -36.167, 1)
pt3dadd(2.28, 266.969, -36.182, 0.98)
pt3dadd(2.28, 267.088, -36.196, 0.96)
pt3dadd(2.28, 267.194, -36.238, 0.93)
pt3dadd(2.28, 267.296, -36.29, 0.894)
pt3dadd(2.28, 267.398, -36.343, 0.86)
pt3dadd(2.28, 267.5, -36.395, 0.826)
pt3dadd(2.28, 267.602, -36.448, 0.79)
pt3dadd(2.28, 267.692, -36.513, 0.734)
pt3dadd(2.28, 267.774, -36.587, 0.662)
pt3dadd(2.28, 267.859, -36.657, 0.616)
pt3dadd(2.28, 267.947, -36.725, 0.592)
pt3dadd(2.294, 268.044, -36.773, 0.578)
pt3dadd(2.333, 268.157, -36.788, 0.578)
pt3dadd(2.364, 268.271, -36.8, 0.582)
pt3dadd(2.378, 268.39, -36.8, 0.602)
pt3dadd(2.394, 268.508, -36.8, 0.62)
pt3dadd(2.406, 268.619, -36.827, 0.624)
pt3dadd(2.418, 268.723, -36.876, 0.616)
pt3dadd(2.43, 268.828, -36.924, 0.61)
pt3dadd(2.446, 268.928, -36.975, 0.602)
pt3dadd(2.49, 269.004, -37.043, 0.602)
pt3dadd(2.528, 269.093, -37.09, 0.6)
pt3dadd(2.552, 269.21, -37.093, 0.592)
pt3dadd(2.578, 269.328, -37.097, 0.584)
pt3dadd(2.602, 269.446, -37.101, 0.578)
pt3dadd(2.624, 269.562, -37.115, 0.6)
pt3dadd(2.647, 269.678, -37.13, 0.622)
pt3dadd(2.686, 269.777, -37.17, 0.654)
pt3dadd(2.725, 269.887, -37.192, 0.666)
pt3dadd(2.765, 269.998, -37.215, 0.678)
pt3dadd(2.808, 270.097, -37.257, 0.678)
pt3dadd(2.844, 270.202, -37.291, 0.678)
pt3dadd(2.861, 270.32, -37.3, 0.678)
pt3dadd(2.876, 270.438, -37.309, 0.678)
pt3dadd(2.88, 270.512, -37.377, 0.678)
pt3dadd(2.88, 270.574, -37.463, 0.678)
pt3dadd(2.88, 270.6, -37.557, 0.686)
pt3dadd(2.88, 270.6, -37.657, 0.698)
pt3dadd(2.88, 270.608, -37.757, 0.734)
pt3dadd(2.88, 270.635, -37.854, 0.796)
pt3dadd(2.88, 270.704, -37.934, 0.794)
pt3dadd(2.88, 270.78, -38.012, 0.722)
pt3dadd(2.894, 270.828, -38.101, 0.678)
pt3dadd(2.946, 270.88, -38.177, 0.62)
pt3dadd(3.007, 270.976, -38.2, 0.514)
pt3dadd(3.064, 271.08, -38.193, 0.406)
pt3dadd(3.13, 271.17, -38.159, 0.29)
}
}
proc shape3d_19() {
dend_5[5] { pt3dadd(3.198, 271.249, -38.112, 0.228)
pt3dadd(3.263, 271.349, -38.1, 0.226)
pt3dadd(3.356, 271.418, -38.1, 0.226)
pt3dadd(3.474, 271.439, -38.1, 0.25)
pt3dadd(3.593, 271.456, -38.101, 0.308)
pt3dadd(3.69, 271.504, -38.131, 0.46)
pt3dadd(3.72, 271.548, -38.216, 0.606)
pt3dadd(3.72, 271.586, -38.31, 0.662)
pt3dadd(3.72, 271.66, -38.386, 0.66)
pt3dadd(3.72, 271.752, -38.45, 0.626)
pt3dadd(3.72, 271.819, -38.532, 0.614)
pt3dadd(3.72, 271.886, -38.614, 0.65)
pt3dadd(3.72, 271.98, -38.675, 0.646)
pt3dadd(3.712, 272.086, -38.722, 0.612)
pt3dadd(3.664, 272.172, -38.774, 0.594)
pt3dadd(3.568, 272.236, -38.799, 0.532)
pt3dadd(3.461, 272.291, -38.797, 0.47)
pt3dadd(3.377, 272.357, -38.759, 0.452)
pt3dadd(3.354, 272.418, -38.675, 0.452)
pt3dadd(3.306, 272.495, -38.626, 0.494)
pt3dadd(3.266, 272.597, -38.655, 0.552)
pt3dadd(3.248, 272.71, -38.686, 0.586)
pt3dadd(3.244, 272.824, -38.684, 0.62)
pt3dadd(3.248, 272.938, -38.655, 0.654)
pt3dadd(3.275, 273.043, -38.63, 0.682)
pt3dadd(3.371, 273.114, -38.618, 0.702)
pt3dadd(3.467, 273.185, -38.605, 0.72)
pt3dadd(3.534, 273.278, -38.6, 0.734)
pt3dadd(3.581, 273.389, -38.6, 0.746)
pt3dadd(3.623, 273.488, -38.622, 0.75)
pt3dadd(3.655, 273.559, -38.698, 0.738)
pt3dadd(3.671, 273.64, -38.762, 0.726)
pt3dadd(3.63, 273.748, -38.79, 0.712)
pt3dadd(3.6, 273.854, -38.823, 0.704)
pt3dadd(3.578, 273.932, -38.887, 0.71)
pt3dadd(3.535, 273.983, -38.971, 0.724)
pt3dadd(3.51, 274.068, -39.03, 0.746)
pt3dadd(3.497, 274.174, -39.077, 0.772)
pt3dadd(3.557, 274.262, -39.093, 0.796)
pt3dadd(3.642, 274.348, -39.098, 0.822)
pt3dadd(3.716, 274.438, -39.117, 0.856)
pt3dadd(3.787, 274.53, -39.14, 0.896)
pt3dadd(3.808, 274.552, -39.226, 0.914)
pt3dadd(3.816, 274.558, -39.326, 0.924)
pt3dadd(3.826, 274.564, -39.425, 0.936)
pt3dadd(3.834, 274.57, -39.525, 0.946)
pt3dadd(3.847, 274.608, -39.609, 0.954)
pt3dadd(3.868, 274.704, -39.667, 0.954)
pt3dadd(3.905, 274.802, -39.707, 0.922)
pt3dadd(3.953, 274.866, -39.774, 0.89)
pt3dadd(3.996, 274.919, -39.856, 0.874)
pt3dadd(4.039, 274.972, -39.938, 0.856)
pt3dadd(4.082, 275.024, -40.021, 0.838)
pt3dadd(4.142, 275.082, -40.088, 0.82)
pt3dadd(4.224, 275.148, -40.137, 0.802)
pt3dadd(4.306, 275.213, -40.186, 0.784)
pt3dadd(4.388, 275.278, -40.235, 0.766)
pt3dadd(4.462, 275.357, -40.273, 0.744)
pt3dadd(4.523, 275.458, -40.29, 0.718)
pt3dadd(4.596, 275.549, -40.3, 0.698)
pt3dadd(4.69, 275.623, -40.3, 0.686)
pt3dadd(4.784, 275.699, -40.3, 0.678)
pt3dadd(4.877, 275.774, -40.3, 0.678)
pt3dadd(4.974, 275.843, -40.302, 0.68)
pt3dadd(5.092, 275.858, -40.316, 0.69)
pt3dadd(5.209, 275.875, -40.33, 0.7)
pt3dadd(5.304, 275.903, -40.381, 0.708)
pt3dadd(5.39, 275.933, -40.445, 0.718)
pt3dadd(5.476, 275.963, -40.51, 0.726)
pt3dadd(5.528, 276.043, -40.555, 0.744)
pt3dadd(5.562, 276.151, -40.589, 0.77)
pt3dadd(5.644, 276.224, -40.603, 0.778)
pt3dadd(5.75, 276.28, -40.606, 0.778)
pt3dadd(5.856, 276.335, -40.61, 0.778)
pt3dadd(5.956, 276.352, -40.657, 0.778)
pt3dadd(6.052, 276.358, -40.716, 0.778)
pt3dadd(6.118, 276.36, -40.797, 0.73)
pt3dadd(6.203, 276.407, -40.854, 0.722)
pt3dadd(6.29, 276.455, -40.91, 0.716)
pt3dadd(6.377, 276.503, -40.966, 0.71)
pt3dadd(6.463, 276.551, -41.023, 0.704)
pt3dadd(6.534, 276.596, -41.094, 0.704)
pt3dadd(6.601, 276.641, -41.167, 0.704)
pt3dadd(6.685, 276.725, -41.184, 0.716)
pt3dadd(6.769, 276.803, -41.205, 0.73)
pt3dadd(6.871, 276.822, -41.256, 0.742)
pt3dadd(6.973, 276.84, -41.306, 0.752)
pt3dadd(7.081, 276.84, -41.35, 0.74)
pt3dadd(7.188, 276.84, -41.395, 0.73)
pt3dadd(7.307, 276.84, -41.405, 0.728)
pt3dadd(7.427, 276.84, -41.411, 0.728)
pt3dadd(7.528, 276.832, -41.464, 0.744)
pt3dadd(7.63, 276.823, -41.516, 0.76)
pt3dadd(7.732, 276.816, -41.569, 0.774)
pt3dadd(7.834, 276.808, -41.622, 0.79)
pt3dadd(7.937, 276.798, -41.67, 0.808)
pt3dadd(8.052, 276.782, -41.696, 0.832)
pt3dadd(8.167, 276.768, -41.722, 0.856)
pt3dadd(8.281, 276.752, -41.747, 0.88)
pt3dadd(8.396, 276.737, -41.773, 0.904)
pt3dadd(8.512, 276.721, -41.798, 0.928)
pt3dadd(8.632, 276.72, -41.8, 0.946)
pt3dadd(8.752, 276.72, -41.8, 0.964)
pt3dadd(8.872, 276.72, -41.8, 0.982)
pt3dadd(8.992, 276.72, -41.8, 1)
pt3dadd(9.112, 276.72, -41.8, 1.018)
pt3dadd(9.232, 276.72, -41.8, 1.036)
pt3dadd(9.352, 276.72, -41.8, 1.054)
pt3dadd(9.469, 276.72, -41.815, 1.054)
pt3dadd(9.588, 276.72, -41.832, 1.054)
pt3dadd(9.707, 276.72, -41.848, 1.054)
pt3dadd(9.824, 276.72, -41.865, 1.054)
pt3dadd(9.943, 276.72, -41.881, 1.054)
pt3dadd(10.062, 276.72, -41.897, 1.054)
pt3dadd(10.172, 276.72, -41.936, 1.05)
pt3dadd(10.28, 276.72, -41.978, 1.046)
pt3dadd(10.39, 276.72, -42.02, 1.042)
pt3dadd(10.499, 276.72, -42.062, 1.036)
pt3dadd(10.607, 276.72, -42.104, 1.032)
pt3dadd(10.718, 276.72, -42.141, 1.022)
pt3dadd(10.832, 276.72, -42.173, 1.008)
pt3dadd(10.946, 276.72, -42.205, 0.994)
pt3dadd(11.059, 276.72, -42.237, 0.98)
pt3dadd(11.173, 276.72, -42.27, 0.968)
pt3dadd(11.285, 276.72, -42.304, 0.954)
pt3dadd(11.365, 276.72, -42.378, 0.944)
pt3dadd(11.446, 276.72, -42.452, 0.934)
pt3dadd(11.527, 276.72, -42.527, 0.924)
pt3dadd(11.608, 276.72, -42.601, 0.914)
pt3dadd(11.688, 276.72, -42.674, 0.9)
pt3dadd(11.77, 276.72, -42.748, 0.864)
pt3dadd(11.852, 276.72, -42.821, 0.83)
pt3dadd(11.92, 276.72, -42.903, 0.784)
pt3dadd(11.988, 276.72, -42.985, 0.736)
pt3dadd(12.061, 276.72, -43.064, 0.7)
pt3dadd(12.137, 276.72, -43.142, 0.664)
pt3dadd(12.242, 276.72, -43.175, 0.64)
pt3dadd(12.361, 276.72, -43.188, 0.622)
pt3dadd(12.48, 276.72, -43.2, 0.602)
pt3dadd(12.6, 276.72, -43.2, 0.616)
pt3dadd(12.72, 276.72, -43.2, 0.628)
pt3dadd(12.84, 276.72, -43.2, 0.652)
pt3dadd(12.96, 276.72, -43.2, 0.678)
}
dend_5[6] {pt3dclear()
pt3dadd(11.374, 217.894, -6.1, 1.482)
pt3dadd(11.422, 217.919, -6.119, 1.598)
pt3dadd(11.52, 217.97, -6.158, 1.836)
pt3dadd(11.617, 218.022, -6.196, 2.074)
pt3dadd(11.716, 218.074, -6.235, 2.312)
pt3dadd(11.814, 218.125, -6.274, 2.55)
pt3dadd(11.88, 218.198, -6.3, 2.674)
pt3dadd(11.88, 218.318, -6.3, 2.556)
pt3dadd(11.88, 218.438, -6.3, 2.438)
pt3dadd(11.88, 218.558, -6.3, 2.318)
pt3dadd(11.88, 218.678, -6.3, 2.2)
pt3dadd(11.88, 218.798, -6.3, 2.082)
pt3dadd(11.88, 218.918, -6.3, 1.964)
pt3dadd(11.878, 219.038, -6.3, 1.864)
pt3dadd(11.872, 219.158, -6.3, 1.804)
pt3dadd(11.867, 219.278, -6.3, 1.744)
pt3dadd(11.861, 219.398, -6.3, 1.684)
pt3dadd(11.855, 219.518, -6.3, 1.624)
pt3dadd(11.849, 219.637, -6.3, 1.564)
pt3dadd(11.843, 219.757, -6.3, 1.504)
pt3dadd(11.831, 219.877, -6.3, 1.456)
pt3dadd(11.816, 219.996, -6.3, 1.416)
pt3dadd(11.801, 220.115, -6.3, 1.376)
pt3dadd(11.786, 220.235, -6.3, 1.336)
pt3dadd(11.771, 220.354, -6.3, 1.296)
pt3dadd(11.756, 220.472, -6.3, 1.256)
pt3dadd(11.741, 220.591, -6.3, 1.226)
pt3dadd(11.723, 220.71, -6.3, 1.214)
pt3dadd(11.706, 220.829, -6.3, 1.202)
pt3dadd(11.688, 220.948, -6.3, 1.19)
pt3dadd(11.671, 221.066, -6.3, 1.178)
pt3dadd(11.654, 221.185, -6.3, 1.164)
pt3dadd(11.636, 221.304, -6.3, 1.156)
pt3dadd(11.616, 221.422, -6.3, 1.156)
pt3dadd(11.597, 221.54, -6.3, 1.156)
pt3dadd(11.576, 221.659, -6.3, 1.156)
pt3dadd(11.557, 221.777, -6.3, 1.156)
pt3dadd(11.538, 221.896, -6.3, 1.156)
pt3dadd(11.518, 222.014, -6.3, 1.156)
pt3dadd(11.501, 222.133, -6.3, 1.164)
pt3dadd(11.483, 222.252, -6.3, 1.172)
pt3dadd(11.466, 222.37, -6.3, 1.18)
pt3dadd(11.449, 222.488, -6.3, 1.188)
pt3dadd(11.431, 222.607, -6.3, 1.196)
pt3dadd(11.414, 222.726, -6.3, 1.204)
pt3dadd(11.39, 222.844, -6.3, 1.218)
pt3dadd(11.365, 222.961, -6.3, 1.23)
pt3dadd(11.34, 223.079, -6.3, 1.242)
pt3dadd(11.316, 223.196, -6.3, 1.256)
pt3dadd(11.291, 223.314, -6.3, 1.268)
pt3dadd(11.266, 223.43, -6.3, 1.28)
pt3dadd(11.224, 223.543, -6.3, 1.28)
pt3dadd(11.182, 223.656, -6.3, 1.28)
pt3dadd(11.141, 223.769, -6.3, 1.28)
pt3dadd(11.099, 223.882, -6.3, 1.28)
pt3dadd(11.057, 223.993, -6.3, 1.28)
pt3dadd(11.033, 224.11, -6.3, 1.276)
}
}
proc shape3d_20() {
dend_5[6] { pt3dadd(11.02, 224.23, -6.3, 1.268)
pt3dadd(11.008, 224.348, -6.3, 1.26)
pt3dadd(10.994, 224.468, -6.3, 1.252)
pt3dadd(10.982, 224.587, -6.3, 1.244)
pt3dadd(10.969, 224.707, -6.3, 1.236)
pt3dadd(10.944, 224.821, -6.3, 1.228)
pt3dadd(10.876, 224.92, -6.3, 1.218)
pt3dadd(10.806, 225.018, -6.3, 1.208)
pt3dadd(10.738, 225.116, -6.3, 1.198)
pt3dadd(10.668, 225.214, -6.3, 1.188)
pt3dadd(10.607, 225.316, -6.3, 1.184)
pt3dadd(10.577, 225.432, -6.3, 1.202)
pt3dadd(10.547, 225.548, -6.3, 1.218)
pt3dadd(10.517, 225.665, -6.3, 1.236)
pt3dadd(10.487, 225.78, -6.3, 1.254)
pt3dadd(10.457, 225.896, -6.3, 1.272)
pt3dadd(10.438, 226.014, -6.3, 1.292)
pt3dadd(10.432, 226.134, -6.3, 1.318)
pt3dadd(10.426, 226.254, -6.3, 1.346)
pt3dadd(10.42, 226.374, -6.3, 1.372)
pt3dadd(10.414, 226.494, -6.3, 1.398)
pt3dadd(10.408, 226.614, -6.3, 1.424)
pt3dadd(10.402, 226.734, -6.3, 1.45)
pt3dadd(10.37, 226.849, -6.3, 1.47)
pt3dadd(10.332, 226.962, -6.3, 1.488)
pt3dadd(10.292, 227.076, -6.3, 1.506)
pt3dadd(10.254, 227.189, -6.3, 1.526)
pt3dadd(10.216, 227.303, -6.3, 1.544)
pt3dadd(10.181, 227.418, -6.3, 1.554)
pt3dadd(10.156, 227.534, -6.3, 1.54)
pt3dadd(10.13, 227.652, -6.3, 1.528)
pt3dadd(10.106, 227.77, -6.3, 1.516)
pt3dadd(10.081, 227.887, -6.3, 1.502)
pt3dadd(10.056, 228.005, -6.3, 1.49)
pt3dadd(10.026, 228.12, -6.3, 1.468)
pt3dadd(9.984, 228.233, -6.3, 1.432)
pt3dadd(9.942, 228.346, -6.3, 1.394)
pt3dadd(9.901, 228.457, -6.3, 1.358)
pt3dadd(9.859, 228.57, -6.3, 1.322)
pt3dadd(9.817, 228.683, -6.3, 1.284)
pt3dadd(9.784, 228.798, -6.3, 1.26)
pt3dadd(9.75, 228.913, -6.3, 1.238)
pt3dadd(9.718, 229.028, -6.3, 1.216)
pt3dadd(9.684, 229.144, -6.3, 1.194)
pt3dadd(9.652, 229.259, -6.3, 1.172)
pt3dadd(9.614, 229.373, -6.3, 1.154)
pt3dadd(9.564, 229.482, -6.3, 1.15)
pt3dadd(9.512, 229.591, -6.3, 1.144)
pt3dadd(9.462, 229.699, -6.3, 1.14)
pt3dadd(9.412, 229.808, -6.3, 1.134)
pt3dadd(9.361, 229.918, -6.3, 1.13)
pt3dadd(9.36, 230.038, -6.3, 1.152)
pt3dadd(9.36, 230.158, -6.3, 1.172)
pt3dadd(9.36, 230.278, -6.3, 1.194)
pt3dadd(9.36, 230.398, -6.3, 1.216)
pt3dadd(9.36, 230.518, -6.3, 1.238)
pt3dadd(9.36, 230.638, -6.3, 1.258)
pt3dadd(9.36, 230.758, -6.3, 1.28)
pt3dadd(9.343, 230.876, -6.3, 1.288)
pt3dadd(9.326, 230.994, -6.3, 1.296)
pt3dadd(9.308, 231.114, -6.3, 1.304)
pt3dadd(9.292, 231.232, -6.3, 1.314)
pt3dadd(9.274, 231.35, -6.3, 1.322)
pt3dadd(9.257, 231.469, -6.3, 1.33)
pt3dadd(9.238, 231.588, -6.3, 1.324)
pt3dadd(9.217, 231.707, -6.3, 1.316)
pt3dadd(9.198, 231.824, -6.3, 1.308)
pt3dadd(9.179, 231.943, -6.3, 1.3)
pt3dadd(9.158, 232.062, -6.3, 1.292)
pt3dadd(9.139, 232.18, -6.3, 1.284)
pt3dadd(9.118, 232.298, -6.3, 1.26)
pt3dadd(9.095, 232.416, -6.3, 1.23)
pt3dadd(9.073, 232.534, -6.3, 1.2)
pt3dadd(9.05, 232.651, -6.3, 1.172)
pt3dadd(9.029, 232.77, -6.3, 1.142)
pt3dadd(9.006, 232.888, -6.3, 1.114)
pt3dadd(8.968, 233, -6.3, 1.098)
pt3dadd(8.923, 233.112, -6.3, 1.088)
pt3dadd(8.879, 233.224, -6.3, 1.08)
pt3dadd(8.834, 233.335, -6.3, 1.07)
pt3dadd(8.79, 233.447, -6.3, 1.06)
pt3dadd(8.746, 233.558, -6.3, 1.056)
pt3dadd(8.705, 233.671, -6.3, 1.06)
pt3dadd(8.663, 233.783, -6.3, 1.066)
pt3dadd(8.621, 233.896, -6.3, 1.07)
pt3dadd(8.579, 234.008, -6.3, 1.074)
pt3dadd(8.538, 234.121, -6.3, 1.08)
pt3dadd(8.507, 234.236, -6.3, 1.076)
pt3dadd(8.477, 234.353, -6.3, 1.072)
pt3dadd(8.447, 234.469, -6.3, 1.068)
pt3dadd(8.416, 234.586, -6.3, 1.062)
pt3dadd(8.386, 234.701, -6.3, 1.058)
pt3dadd(8.348, 234.814, -6.3, 1.052)
pt3dadd(8.268, 234.902, -6.3, 1.032)
pt3dadd(8.186, 234.991, -6.3, 1.012)
pt3dadd(8.106, 235.079, -6.3, 0.99)
pt3dadd(8.024, 235.168, -6.3, 0.97)
pt3dadd(7.956, 235.262, -6.3, 0.948)
pt3dadd(7.936, 235.381, -6.3, 0.92)
pt3dadd(7.915, 235.499, -6.3, 0.89)
pt3dadd(7.883, 235.614, -6.3, 0.878)
pt3dadd(7.843, 235.728, -6.3, 0.878)
pt3dadd(7.812, 235.842, -6.301, 0.878)
pt3dadd(7.807, 235.962, -6.305, 0.878)
pt3dadd(7.802, 236.082, -6.309, 0.878)
pt3dadd(7.8, 236.192, -6.337, 0.862)
pt3dadd(7.8, 236.291, -6.394, 0.828)
pt3dadd(7.8, 236.38, -6.459, 0.788)
pt3dadd(7.8, 236.443, -6.543, 0.736)
pt3dadd(7.8, 236.545, -6.592, 0.678)
pt3dadd(7.8, 236.66, -6.619, 0.678)
pt3dadd(7.8, 236.766, -6.664, 0.678)
pt3dadd(7.8, 236.844, -6.739, 0.648)
pt3dadd(7.794, 236.899, -6.827, 0.578)
pt3dadd(7.744, 236.976, -6.873, 0.574)
pt3dadd(7.691, 237.047, -6.812, 0.624)
pt3dadd(7.672, 237.097, -6.724, 0.554)
pt3dadd(7.633, 237.14, -6.638, 0.506)
pt3dadd(7.576, 237.228, -6.628, 0.558)
pt3dadd(7.531, 237.334, -6.659, 0.614)
pt3dadd(7.458, 237.422, -6.68, 0.666)
pt3dadd(7.374, 237.505, -6.697, 0.72)
pt3dadd(7.333, 237.616, -6.7, 0.88)
pt3dadd(7.302, 237.732, -6.7, 0.902)
pt3dadd(7.272, 237.847, -6.7, 0.922)
pt3dadd(7.242, 237.964, -6.7, 0.944)
pt3dadd(7.212, 238.08, -6.7, 0.966)
pt3dadd(7.182, 238.196, -6.7, 0.988)
pt3dadd(7.151, 238.312, -6.7, 1.008)
pt3dadd(7.115, 238.427, -6.7, 1.022)
pt3dadd(7.079, 238.541, -6.7, 1.036)
pt3dadd(7.043, 238.656, -6.7, 1.048)
pt3dadd(7.007, 238.77, -6.7, 1.062)
pt3dadd(6.971, 238.884, -6.7, 1.076)
pt3dadd(6.946, 239.002, -6.704, 1.07)
pt3dadd(6.925, 239.119, -6.71, 1.058)
pt3dadd(6.904, 239.238, -6.715, 1.044)
pt3dadd(6.883, 239.356, -6.721, 1.032)
pt3dadd(6.863, 239.473, -6.727, 1.018)
pt3dadd(6.841, 239.591, -6.733, 1.006)
pt3dadd(6.798, 239.694, -6.769, 0.972)
pt3dadd(6.751, 239.795, -6.807, 0.938)
pt3dadd(6.706, 239.896, -6.845, 0.904)
pt3dadd(6.66, 239.996, -6.884, 0.868)
pt3dadd(6.619, 240.104, -6.9, 0.84)
pt3dadd(6.583, 240.22, -6.9, 0.818)
pt3dadd(6.548, 240.334, -6.9, 0.796)
pt3dadd(6.512, 240.449, -6.9, 0.774)
pt3dadd(6.476, 240.563, -6.9, 0.752)
pt3dadd(6.442, 240.678, -6.9, 0.728)
pt3dadd(6.36, 240.766, -6.9, 0.694)
pt3dadd(6.278, 240.853, -6.9, 0.658)
pt3dadd(6.182, 240.924, -6.9, 0.634)
pt3dadd(6.083, 240.992, -6.9, 0.61)
pt3dadd(6.038, 241.096, -6.9, 0.59)
pt3dadd(6.018, 241.213, -6.9, 0.57)
pt3dadd(5.996, 241.331, -6.9, 0.554)
pt3dadd(5.964, 241.447, -6.9, 0.564)
pt3dadd(5.93, 241.562, -6.9, 0.574)
pt3dadd(5.904, 241.679, -6.9, 0.638)
pt3dadd(5.881, 241.796, -6.9, 0.726)
pt3dadd(5.88, 241.916, -6.9, 0.802)
pt3dadd(5.88, 242.036, -6.9, 0.876)
pt3dadd(5.88, 242.156, -6.9, 0.952)
pt3dadd(5.88, 242.276, -6.9, 1.02)
pt3dadd(5.88, 242.396, -6.9, 1.086)
pt3dadd(5.88, 242.516, -6.9, 1.154)
pt3dadd(5.842, 242.63, -6.9, 1.186)
pt3dadd(5.802, 242.743, -6.9, 1.218)
pt3dadd(5.736, 242.842, -6.9, 1.216)
pt3dadd(5.654, 242.929, -6.9, 1.192)
pt3dadd(5.585, 243.025, -6.905, 1.166)
pt3dadd(5.527, 243.13, -6.914, 1.136)
pt3dadd(5.468, 243.234, -6.924, 1.108)
pt3dadd(5.413, 243.337, -6.937, 1.078)
pt3dadd(5.406, 243.408, -7.018, 1.028)
pt3dadd(5.4, 243.479, -7.098, 0.98)
pt3dadd(5.384, 243.532, -7.183, 0.926)
pt3dadd(5.316, 243.586, -7.252, 0.912)
pt3dadd(5.248, 243.653, -7.31, 0.89)
pt3dadd(5.179, 243.736, -7.354, 0.862)
pt3dadd(5.128, 243.838, -7.378, 0.828)
pt3dadd(5.082, 243.947, -7.394, 0.792)
pt3dadd(5.01, 244.039, -7.4, 0.748)
pt3dadd(4.922, 244.121, -7.4, 0.7)
pt3dadd(4.85, 244.214, -7.405, 0.67)
pt3dadd(4.792, 244.319, -7.415, 0.656)
pt3dadd(4.734, 244.423, -7.424, 0.642)
pt3dadd(4.68, 244.525, -7.439, 0.626)
pt3dadd(4.68, 244.594, -7.521, 0.602)
pt3dadd(4.68, 244.661, -7.604, 0.58)
pt3dadd(4.654, 244.67, -7.7, 0.556)
pt3dadd(4.625, 244.675, -7.797, 0.532)
pt3dadd(4.595, 244.679, -7.893, 0.51)
pt3dadd(4.543, 244.68, -7.983, 0.47)
pt3dadd(4.483, 244.68, -8.069, 0.424)
pt3dadd(4.436, 244.68, -8.161, 0.338)
pt3dadd(4.357, 244.68, -8.229, 0.284)
pt3dadd(4.258, 244.68, -8.285, 0.262)
pt3dadd(4.169, 244.705, -8.345, 0.252)
}
}
proc shape3d_21() {
dend_5[6] { pt3dadd(4.086, 244.75, -8.407, 0.252)
pt3dadd(4.026, 244.818, -8.471, 0.274)
pt3dadd(3.973, 244.895, -8.534, 0.302)
pt3dadd(3.919, 244.978, -8.591, 0.36)
pt3dadd(3.877, 245.07, -8.637, 0.408)
pt3dadd(3.868, 245.188, -8.654, 0.432)
pt3dadd(3.858, 245.305, -8.67, 0.458)
pt3dadd(3.848, 245.424, -8.687, 0.482)
pt3dadd(3.839, 245.542, -8.7, 0.51)
pt3dadd(3.835, 245.662, -8.7, 0.554)
pt3dadd(3.83, 245.782, -8.7, 0.598)
pt3dadd(3.817, 245.9, -8.7, 0.664)
pt3dadd(3.78, 246.014, -8.7, 0.74)
pt3dadd(3.739, 246.127, -8.7, 0.762)
pt3dadd(3.697, 246.24, -8.7, 0.786)
pt3dadd(3.655, 246.352, -8.7, 0.808)
pt3dadd(3.614, 246.464, -8.7, 0.832)
pt3dadd(3.571, 246.576, -8.7, 0.854)
pt3dadd(3.482, 246.656, -8.7, 0.87)
pt3dadd(3.394, 246.738, -8.7, 0.884)
pt3dadd(3.304, 246.818, -8.7, 0.9)
pt3dadd(3.215, 246.899, -8.7, 0.916)
pt3dadd(3.13, 246.982, -8.7, 0.93)
pt3dadd(3.082, 247.092, -8.7, 0.944)
pt3dadd(3.035, 247.202, -8.7, 0.958)
pt3dadd(2.987, 247.312, -8.7, 0.972)
pt3dadd(2.94, 247.422, -8.7, 0.986)
pt3dadd(2.892, 247.532, -8.7, 1)
pt3dadd(2.846, 247.644, -8.7, 1)
pt3dadd(2.802, 247.754, -8.7, 0.996)
pt3dadd(2.758, 247.866, -8.7, 0.992)
pt3dadd(2.713, 247.978, -8.7, 0.986)
pt3dadd(2.669, 248.089, -8.7, 0.982)
pt3dadd(2.623, 248.201, -8.7, 0.978)
pt3dadd(2.579, 248.312, -8.7, 0.972)
pt3dadd(2.534, 248.424, -8.7, 0.968)
pt3dadd(2.49, 248.534, -8.7, 0.964)
pt3dadd(2.446, 248.646, -8.7, 0.958)
pt3dadd(2.401, 248.758, -8.7, 0.954)
pt3dadd(2.357, 248.869, -8.7, 0.932)
pt3dadd(2.311, 248.981, -8.7, 0.908)
pt3dadd(2.267, 249.092, -8.7, 0.884)
pt3dadd(2.222, 249.204, -8.7, 0.862)
pt3dadd(2.178, 249.314, -8.7, 0.838)
pt3dadd(2.113, 249.414, -8.7, 0.816)
pt3dadd(2.036, 249.505, -8.7, 0.796)
pt3dadd(1.958, 249.598, -8.7, 0.776)
pt3dadd(1.88, 249.689, -8.7, 0.756)
pt3dadd(1.802, 249.78, -8.7, 0.736)
pt3dadd(1.75, 249.886, -8.7, 0.722)
pt3dadd(1.71, 249.998, -8.7, 0.714)
pt3dadd(1.672, 250.112, -8.7, 0.704)
pt3dadd(1.633, 250.226, -8.7, 0.696)
pt3dadd(1.595, 250.339, -8.7, 0.686)
pt3dadd(1.56, 250.453, -8.7, 0.68)
pt3dadd(1.56, 250.573, -8.7, 0.694)
pt3dadd(1.56, 250.693, -8.7, 0.708)
pt3dadd(1.56, 250.813, -8.7, 0.722)
pt3dadd(1.56, 250.933, -8.7, 0.736)
pt3dadd(1.56, 251.053, -8.7, 0.752)
pt3dadd(1.56, 251.173, -8.7, 0.766)
pt3dadd(1.555, 251.293, -8.7, 0.784)
pt3dadd(1.511, 251.404, -8.7, 0.826)
pt3dadd(1.465, 251.515, -8.7, 0.868)
pt3dadd(1.421, 251.627, -8.7, 0.908)
pt3dadd(1.376, 251.738, -8.7, 0.952)
pt3dadd(1.332, 251.85, -8.7, 0.994)
pt3dadd(1.276, 251.956, -8.7, 1.046)
pt3dadd(1.214, 252.059, -8.7, 1.104)
pt3dadd(1.124, 252.121, -8.7, 1.13)
pt3dadd(1.007, 252.148, -8.7, 1.13)
pt3dadd(0.893, 252.176, -8.7, 1.128)
pt3dadd(0.872, 252.294, -8.7, 1.07)
pt3dadd(0.852, 252.413, -8.7, 1.012)
pt3dadd(0.826, 252.529, -8.7, 0.962)
pt3dadd(0.793, 252.644, -8.7, 0.92)
pt3dadd(0.76, 252.76, -8.7, 0.878)
pt3dadd(0.707, 252.868, -8.7, 0.862)
pt3dadd(0.65, 252.973, -8.7, 0.854)
pt3dadd(0.59, 253.078, -8.7, 0.854)
pt3dadd(0.53, 253.181, -8.7, 0.854)
pt3dadd(0.47, 253.285, -8.7, 0.854)
pt3dadd(0.41, 253.39, -8.7, 0.854)
pt3dadd(0.362, 253.498, -8.7, 0.856)
pt3dadd(0.335, 253.615, -8.7, 0.86)
pt3dadd(0.308, 253.732, -8.7, 0.864)
pt3dadd(0.281, 253.849, -8.7, 0.868)
pt3dadd(0.253, 253.966, -8.7, 0.872)
pt3dadd(0.226, 254.082, -8.7, 0.878)
pt3dadd(0.196, 254.198, -8.7, 0.878)
pt3dadd(0.162, 254.314, -8.7, 0.878)
pt3dadd(0.128, 254.429, -8.7, 0.878)
pt3dadd(0.096, 254.544, -8.7, 0.878)
pt3dadd(0.062, 254.66, -8.7, 0.878)
pt3dadd(0.03, 254.776, -8.7, 0.878)
pt3dadd(-0.022, 254.884, -8.7, 0.888)
pt3dadd(-0.076, 254.99, -8.7, 0.898)
pt3dadd(-0.13, 255.098, -8.7, 0.906)
pt3dadd(-0.182, 255.205, -8.7, 0.916)
pt3dadd(-0.236, 255.313, -8.7, 0.926)
pt3dadd(-0.28, 255.425, -8.7, 0.93)
pt3dadd(-0.318, 255.538, -8.7, 0.93)
pt3dadd(-0.358, 255.652, -8.7, 0.93)
pt3dadd(-0.396, 255.766, -8.7, 0.93)
pt3dadd(-0.434, 255.878, -8.7, 0.93)
pt3dadd(-0.47, 255.992, -8.7, 0.93)
pt3dadd(-0.496, 256.11, -8.7, 0.93)
pt3dadd(-0.521, 256.228, -8.7, 0.93)
pt3dadd(-0.545, 256.345, -8.7, 0.93)
pt3dadd(-0.57, 256.463, -8.7, 0.93)
pt3dadd(-0.595, 256.58, -8.7, 0.93)
pt3dadd(-0.638, 256.685, -8.7, 0.93)
pt3dadd(-0.738, 256.752, -8.7, 0.93)
pt3dadd(-0.827, 256.825, -8.7, 0.93)
pt3dadd(-0.832, 256.945, -8.7, 0.948)
pt3dadd(-0.836, 257.065, -8.7, 0.966)
pt3dadd(-0.848, 257.184, -8.7, 0.986)
pt3dadd(-0.888, 257.297, -8.7, 1.018)
pt3dadd(-0.928, 257.411, -8.7, 1.05)
pt3dadd(-1.028, 257.466, -8.7, 1.074)
pt3dadd(-1.139, 257.513, -8.7, 1.096)
pt3dadd(-1.24, 257.575, -8.7, 1.108)
pt3dadd(-1.333, 257.651, -8.7, 1.116)
pt3dadd(-1.428, 257.725, -8.7, 1.122)
pt3dadd(-1.52, 257.801, -8.7, 1.13)
pt3dadd(-1.535, 257.92, -8.7, 1.12)
pt3dadd(-1.55, 258.038, -8.7, 1.112)
pt3dadd(-1.56, 258.158, -8.7, 1.088)
pt3dadd(-1.56, 258.278, -8.7, 1.05)
pt3dadd(-1.56, 258.398, -8.7, 1.036)
pt3dadd(-1.56, 258.518, -8.7, 1.022)
pt3dadd(-1.56, 258.638, -8.7, 1.008)
pt3dadd(-1.56, 258.758, -8.7, 0.992)
pt3dadd(-1.56, 258.878, -8.7, 0.978)
pt3dadd(-1.56, 258.998, -8.7, 0.964)
pt3dadd(-1.571, 259.117, -8.7, 0.948)
pt3dadd(-1.603, 259.232, -8.7, 0.926)
pt3dadd(-1.637, 259.348, -8.7, 0.902)
pt3dadd(-1.67, 259.463, -8.7, 0.88)
pt3dadd(-1.703, 259.578, -8.7, 0.858)
pt3dadd(-1.736, 259.693, -8.7, 0.836)
pt3dadd(-1.774, 259.807, -8.7, 0.794)
pt3dadd(-1.812, 259.921, -8.7, 0.74)
pt3dadd(-1.853, 260.027, -8.683, 0.698)
pt3dadd(-1.898, 260.117, -8.628, 0.684)
pt3dadd(-1.933, 260.188, -8.556, 0.704)
pt3dadd(-1.961, 260.243, -8.47, 0.756)
pt3dadd(-2.038, 260.274, -8.416, 0.816)
pt3dadd(-2.152, 260.285, -8.387, 0.884)
pt3dadd(-2.234, 260.323, -8.346, 0.94)
pt3dadd(-2.255, 260.416, -8.284, 0.97)
pt3dadd(-2.275, 260.507, -8.221, 1.002)
pt3dadd(-2.3, 260.597, -8.16, 1.032)
pt3dadd(-2.363, 260.674, -8.102, 1.046)
pt3dadd(-2.426, 260.747, -8.044, 1.054)
pt3dadd(-2.476, 260.808, -7.969, 1.032)
pt3dadd(-2.52, 260.866, -7.89, 1.004)
pt3dadd(-2.558, 260.892, -7.798, 0.956)
pt3dadd(-2.598, 260.918, -7.706, 0.908)
pt3dadd(-2.618, 261.019, -7.659, 0.846)
pt3dadd(-2.639, 261.125, -7.615, 0.784)
pt3dadd(-2.674, 261.238, -7.602, 0.736)
pt3dadd(-2.71, 261.352, -7.592, 0.692)
pt3dadd(-2.735, 261.449, -7.545, 0.65)
pt3dadd(-2.755, 261.54, -7.481, 0.612)
pt3dadd(-2.743, 261.588, -7.395, 0.522)
pt3dadd(-2.664, 261.6, -7.326, 0.45)
pt3dadd(-2.55, 261.589, -7.302, 0.386)
pt3dadd(-2.443, 261.55, -7.281, 0.326)
pt3dadd(-2.402, 261.499, -7.203, 0.366)
pt3dadd(-2.401, 261.496, -7.104, 0.43)
pt3dadd(-2.429, 261.552, -7.024, 0.436)
pt3dadd(-2.506, 261.636, -7, 0.364)
pt3dadd(-2.608, 261.694, -7, 0.288)
pt3dadd(-2.725, 261.715, -7, 0.31)
pt3dadd(-2.844, 261.72, -7.009, 0.426)
pt3dadd(-2.953, 261.738, -7.04, 0.59)
pt3dadd(-2.998, 261.802, -7.112, 0.652)
pt3dadd(-3, 261.896, -7.171, 0.584)
pt3dadd(-3.005, 262.014, -7.19, 0.49)
pt3dadd(-3.02, 262.133, -7.195, 0.45)
pt3dadd(-3.036, 262.252, -7.199, 0.412)
pt3dadd(-3.065, 262.368, -7.2, 0.37)
pt3dadd(-3.098, 262.483, -7.2, 0.33)
pt3dadd(-3.12, 262.6, -7.2, 0.284)
pt3dadd(-3.12, 262.72, -7.2, 0.25)
pt3dadd(-3.12, 262.84, -7.2, 0.246)
pt3dadd(-3.12, 262.96, -7.2, 0.242)
pt3dadd(-3.12, 263.08, -7.2, 0.24)
pt3dadd(-3.12, 263.2, -7.2, 0.236)
pt3dadd(-3.12, 263.32, -7.2, 0.232)
pt3dadd(-3.12, 263.44, -7.2, 0.228)
pt3dadd(-3.12, 263.56, -7.2, 0.226)
pt3dadd(-3.12, 263.68, -7.2, 0.226)
pt3dadd(-3.12, 263.8, -7.2, 0.226)
pt3dadd(-3.12, 263.92, -7.2, 0.226)
pt3dadd(-3.12, 264.04, -7.2, 0.226)
pt3dadd(-3.12, 264.16, -7.2, 0.226)
pt3dadd(-3.12, 264.28, -7.2, 0.226)
pt3dadd(-3.133, 264.397, -7.2, 0.226)
}
}
proc shape3d_22() {
dend_5[6] { pt3dadd(-3.175, 264.51, -7.2, 0.226)
pt3dadd(-3.217, 264.623, -7.2, 0.226)
pt3dadd(-3.259, 264.734, -7.2, 0.226)
pt3dadd(-3.3, 264.847, -7.2, 0.226)
pt3dadd(-3.342, 264.96, -7.2, 0.226)
pt3dadd(-3.355, 265.079, -7.2, 0.226)
pt3dadd(-3.365, 265.199, -7.2, 0.226)
pt3dadd(-3.379, 265.316, -7.2, 0.226)
pt3dadd(-3.439, 265.42, -7.2, 0.226)
pt3dadd(-3.5, 265.524, -7.2, 0.226)
pt3dadd(-3.588, 265.602, -7.184, 0.238)
pt3dadd(-3.678, 265.679, -7.167, 0.25)
pt3dadd(-3.748, 265.74, -7.104, 0.28)
pt3dadd(-3.806, 265.789, -7.032, 0.312)
pt3dadd(-3.832, 265.798, -6.935, 0.36)
pt3dadd(-3.84, 265.8, -6.836, 0.41)
pt3dadd(-3.84, 265.8, -6.736, 0.444)
pt3dadd(-3.84, 265.8, -6.636, 0.452)
pt3dadd(-3.84, 265.81, -6.536, 0.452)
pt3dadd(-3.854, 265.843, -6.442, 0.424)
pt3dadd(-3.907, 265.938, -6.404, 0.326)
pt3dadd(-3.946, 266.05, -6.4, 0.252)
pt3dadd(-3.96, 266.168, -6.4, 0.226)
pt3dadd(-3.96, 266.288, -6.4, 0.226)
pt3dadd(-3.96, 266.408, -6.4, 0.226)
pt3dadd(-3.96, 266.528, -6.4, 0.226)
pt3dadd(-3.96, 266.648, -6.4, 0.226)
pt3dadd(-3.96, 266.768, -6.4, 0.226)
pt3dadd(-3.96, 266.888, -6.4, 0.226)
pt3dadd(-3.96, 267.008, -6.4, 0.226)
pt3dadd(-3.96, 267.128, -6.4, 0.226)
pt3dadd(-3.96, 267.248, -6.4, 0.226)
pt3dadd(-3.96, 267.368, -6.4, 0.226)
pt3dadd(-3.96, 267.488, -6.4, 0.226)
pt3dadd(-3.962, 267.608, -6.4, 0.226)
pt3dadd(-3.998, 267.722, -6.4, 0.226)
pt3dadd(-4.034, 267.838, -6.4, 0.226)
pt3dadd(-4.07, 267.952, -6.4, 0.226)
pt3dadd(-4.106, 268.067, -6.4, 0.226)
pt3dadd(-4.142, 268.181, -6.4, 0.226)
pt3dadd(-4.183, 268.294, -6.4, 0.226)
pt3dadd(-4.231, 268.404, -6.4, 0.226)
pt3dadd(-4.279, 268.513, -6.4, 0.226)
pt3dadd(-4.326, 268.624, -6.4, 0.226)
pt3dadd(-4.374, 268.734, -6.4, 0.226)
pt3dadd(-4.424, 268.842, -6.4, 0.228)
pt3dadd(-4.493, 268.942, -6.4, 0.24)
pt3dadd(-4.56, 269.04, -6.4, 0.252)
pt3dadd(-4.631, 269.137, -6.395, 0.264)
pt3dadd(-4.702, 269.233, -6.389, 0.276)
pt3dadd(-4.764, 269.305, -6.329, 0.29)
pt3dadd(-4.823, 269.369, -6.262, 0.298)
pt3dadd(-4.873, 269.411, -6.178, 0.286)
pt3dadd(-4.924, 269.472, -6.109, 0.274)
pt3dadd(-4.976, 269.568, -6.069, 0.266)
pt3dadd(-5.029, 269.665, -6.029, 0.256)
pt3dadd(-5.078, 269.766, -5.999, 0.248)
pt3dadd(-5.12, 269.879, -5.994, 0.236)
pt3dadd(-5.16, 269.99, -5.988, 0.228)
pt3dadd(-5.17, 270.103, -5.959, 0.254)
pt3dadd(-5.212, 270.208, -5.924, 0.268)
pt3dadd(-5.257, 270.313, -5.9, 0.284)
pt3dadd(-5.311, 270.42, -5.9, 0.306)
pt3dadd(-5.362, 270.529, -5.9, 0.328)
pt3dadd(-5.376, 270.648, -5.9, 0.336)
pt3dadd(-5.39, 270.767, -5.9, 0.346)
pt3dadd(-5.4, 270.886, -5.907, 0.362)
pt3dadd(-5.4, 271.004, -5.924, 0.392)
pt3dadd(-5.4, 271.122, -5.941, 0.42)
pt3dadd(-5.4, 271.181, -6.018, 0.478)
pt3dadd(-5.405, 271.241, -6.094, 0.536)
pt3dadd(-5.425, 271.357, -6.115, 0.57)
pt3dadd(-5.446, 271.472, -6.137, 0.604)
pt3dadd(-5.467, 271.588, -6.158, 0.636)
pt3dadd(-5.488, 271.703, -6.18, 0.67)
pt3dadd(-5.507, 271.818, -6.2, 0.704)
pt3dadd(-5.509, 271.938, -6.2, 0.722)
pt3dadd(-5.51, 272.058, -6.2, 0.74)
pt3dadd(-5.513, 272.178, -6.2, 0.758)
pt3dadd(-5.514, 272.298, -6.2, 0.776)
pt3dadd(-5.516, 272.418, -6.2, 0.796)
pt3dadd(-5.519, 272.538, -6.2, 0.814)
pt3dadd(-5.52, 272.658, -6.2, 0.83)
pt3dadd(-5.52, 272.778, -6.2, 0.838)
pt3dadd(-5.52, 272.898, -6.2, 0.844)
pt3dadd(-5.52, 273.018, -6.2, 0.852)
pt3dadd(-5.52, 273.138, -6.2, 0.858)
pt3dadd(-5.52, 273.258, -6.2, 0.866)
pt3dadd(-5.52, 273.378, -6.2, 0.872)
pt3dadd(-5.522, 273.498, -6.2, 0.878)
pt3dadd(-5.54, 273.617, -6.2, 0.87)
pt3dadd(-5.557, 273.736, -6.2, 0.862)
pt3dadd(-5.574, 273.854, -6.2, 0.854)
pt3dadd(-5.592, 273.973, -6.2, 0.846)
pt3dadd(-5.609, 274.092, -6.2, 0.838)
pt3dadd(-5.627, 274.211, -6.2, 0.828)
pt3dadd(-5.632, 274.331, -6.2, 0.82)
pt3dadd(-5.636, 274.451, -6.2, 0.812)
pt3dadd(-5.641, 274.571, -6.2, 0.806)
pt3dadd(-5.656, 274.69, -6.2, 0.824)
pt3dadd(-5.671, 274.808, -6.2, 0.842)
pt3dadd(-5.704, 274.921, -6.2, 0.876)
pt3dadd(-5.765, 275.024, -6.2, 0.934)
pt3dadd(-5.836, 275.117, -6.2, 0.99)
pt3dadd(-5.946, 275.162, -6.2, 1.046)
pt3dadd(-6.058, 275.209, -6.2, 1.1)
pt3dadd(-6.078, 275.321, -6.2, 1.12)
pt3dadd(-6.089, 275.441, -6.2, 1.136)
pt3dadd(-6.101, 275.561, -6.2, 1.152)
pt3dadd(-6.113, 275.68, -6.2, 1.17)
pt3dadd(-6.12, 275.8, -6.2, 1.18)
pt3dadd(-6.12, 275.92, -6.2, 1.18)
pt3dadd(-6.12, 276.04, -6.2, 1.18)
pt3dadd(-6.12, 276.16, -6.2, 1.172)
pt3dadd(-6.126, 276.278, -6.2, 1.152)
pt3dadd(-6.146, 276.397, -6.2, 1.144)
pt3dadd(-6.166, 276.516, -6.2, 1.136)
pt3dadd(-6.186, 276.634, -6.2, 1.128)
pt3dadd(-6.205, 276.752, -6.2, 1.12)
pt3dadd(-6.226, 276.871, -6.2, 1.112)
pt3dadd(-6.248, 276.988, -6.2, 1.102)
pt3dadd(-6.284, 277.103, -6.2, 1.094)
pt3dadd(-6.32, 277.217, -6.2, 1.084)
pt3dadd(-6.356, 277.332, -6.2, 1.076)
pt3dadd(-6.392, 277.446, -6.2, 1.066)
pt3dadd(-6.428, 277.56, -6.2, 1.058)
pt3dadd(-6.464, 277.675, -6.2, 1.042)
pt3dadd(-6.499, 277.79, -6.2, 1.024)
pt3dadd(-6.535, 277.904, -6.2, 1.006)
pt3dadd(-6.571, 278.018, -6.2, 0.988)
pt3dadd(-6.606, 278.134, -6.2, 0.97)
pt3dadd(-6.642, 278.248, -6.2, 0.954)
pt3dadd(-6.678, 278.363, -6.2, 0.934)
pt3dadd(-6.714, 278.477, -6.2, 0.918)
pt3dadd(-6.75, 278.592, -6.2, 0.9)
pt3dadd(-6.786, 278.706, -6.2, 0.882)
pt3dadd(-6.822, 278.821, -6.2, 0.864)
pt3dadd(-6.856, 278.935, -6.192, 0.842)
pt3dadd(-6.887, 279.049, -6.174, 0.816)
pt3dadd(-6.918, 279.162, -6.156, 0.792)
pt3dadd(-6.95, 279.276, -6.139, 0.768)
pt3dadd(-6.982, 279.39, -6.121, 0.742)
pt3dadd(-7.02, 279.5, -6.101, 0.712)
pt3dadd(-7.067, 279.608, -6.079, 0.674)
pt3dadd(-7.12, 279.71, -6.05, 0.634)
pt3dadd(-7.178, 279.805, -6.014, 0.594)
pt3dadd(-7.234, 279.906, -6.01, 0.57)
pt3dadd(-7.286, 280.013, -6.027, 0.558)
pt3dadd(-7.31, 280.123, -6.051, 0.546)
pt3dadd(-7.316, 280.238, -6.08, 0.534)
pt3dadd(-7.32, 280.355, -6.1, 0.53)
pt3dadd(-7.32, 280.475, -6.1, 0.544)
pt3dadd(-7.32, 280.595, -6.1, 0.568)
pt3dadd(-7.32, 280.715, -6.1, 0.618)
pt3dadd(-7.32, 280.835, -6.1, 0.668)
pt3dadd(-7.32, 280.955, -6.1, 0.718)
pt3dadd(-7.325, 281.075, -6.1, 0.77)
pt3dadd(-7.346, 281.192, -6.1, 0.804)
pt3dadd(-7.396, 281.299, -6.09, 0.758)
pt3dadd(-7.433, 281.38, -6.028, 0.704)
pt3dadd(-7.454, 281.441, -5.943, 0.754)
pt3dadd(-7.507, 281.498, -5.87, 0.804)
pt3dadd(-7.55, 281.52, -5.779, 0.716)
pt3dadd(-7.586, 281.537, -5.688, 0.62)
pt3dadd(-7.63, 281.592, -5.607, 0.59)
pt3dadd(-7.674, 281.648, -5.526, 0.56)
pt3dadd(-7.717, 281.705, -5.446, 0.532)
pt3dadd(-7.76, 281.76, -5.365, 0.5)
pt3dadd(-7.79, 281.76, -5.268, 0.416)
pt3dadd(-7.805, 281.76, -5.169, 0.386)
pt3dadd(-7.829, 281.767, -5.072, 0.416)
pt3dadd(-7.892, 281.825, -5.027, 0.44)
pt3dadd(-7.92, 281.914, -5.085, 0.366)
pt3dadd(-7.92, 281.981, -5.167, 0.288)
pt3dadd(-7.92, 282.047, -5.25, 0.276)
pt3dadd(-7.92, 282.155, -5.291, 0.326)
pt3dadd(-7.924, 282.274, -5.3, 0.334)
pt3dadd(-7.948, 282.39, -5.306, 0.352)
pt3dadd(-7.972, 282.474, -5.365, 0.36)
pt3dadd(-7.988, 282.544, -5.445, 0.37)
pt3dadd(-8.006, 282.613, -5.525, 0.38)
pt3dadd(-8.024, 282.683, -5.605, 0.392)
pt3dadd(-8.04, 282.754, -5.685, 0.404)
pt3dadd(-8.04, 282.821, -5.767, 0.44)
pt3dadd(-8.04, 282.874, -5.857, 0.452)
pt3dadd(-8.04, 282.95, -5.933, 0.42)
pt3dadd(-8.04, 283.055, -5.974, 0.384)
pt3dadd(-8.063, 283.16, -5.951, 0.41)
pt3dadd(-8.117, 283.199, -5.871, 0.474)
pt3dadd(-8.156, 283.223, -5.779, 0.556)
pt3dadd(-8.2, 283.294, -5.711, 0.652)
}
dend_5[7] {pt3dclear()
pt3dadd(-8.2, 283.294, -5.711, 0.652)
pt3dadd(-8.207, 283.303, -5.711, 0.652)
pt3dadd(-8.264, 283.394, -5.741, 0.608)
pt3dadd(-8.28, 283.454, -5.825, 0.508)
pt3dadd(-8.28, 283.52, -5.909, 0.458)
pt3dadd(-8.28, 283.595, -5.987, 0.482)
pt3dadd(-8.28, 283.662, -6.069, 0.516)
pt3dadd(-8.28, 283.715, -6.159, 0.506)
pt3dadd(-8.28, 283.782, -6.241, 0.498)
}
}
proc shape3d_23() {
dend_5[7] { pt3dadd(-8.28, 283.852, -6.323, 0.492)
pt3dadd(-8.28, 283.92, -6.405, 0.488)
pt3dadd(-8.28, 283.99, -6.487, 0.482)
pt3dadd(-8.28, 284.059, -6.569, 0.478)
pt3dadd(-8.28, 284.126, -6.65, 0.452)
pt3dadd(-8.28, 284.159, -6.746, 0.452)
pt3dadd(-8.28, 284.191, -6.842, 0.434)
pt3dadd(-8.28, 284.256, -6.924, 0.374)
pt3dadd(-8.28, 284.358, -6.972, 0.278)
pt3dadd(-8.28, 284.477, -6.967, 0.228)
pt3dadd(-8.28, 284.586, -6.927, 0.226)
pt3dadd(-8.287, 284.702, -6.905, 0.226)
pt3dadd(-8.314, 284.819, -6.9, 0.246)
pt3dadd(-8.363, 284.927, -6.899, 0.308)
pt3dadd(-8.389, 285.034, -6.868, 0.386)
pt3dadd(-8.395, 285.131, -6.809, 0.41)
pt3dadd(-8.414, 285.212, -6.743, 0.426)
pt3dadd(-8.465, 285.254, -6.66, 0.426)
pt3dadd(-8.521, 285.319, -6.598, 0.418)
pt3dadd(-8.586, 285.412, -6.566, 0.398)
pt3dadd(-8.652, 285.505, -6.534, 0.378)
pt3dadd(-8.698, 285.614, -6.518, 0.342)
pt3dadd(-8.743, 285.724, -6.501, 0.304)
pt3dadd(-8.76, 285.841, -6.5, 0.276)
pt3dadd(-8.76, 285.961, -6.5, 0.276)
pt3dadd(-8.76, 286.081, -6.5, 0.276)
pt3dadd(-8.76, 286.201, -6.5, 0.276)
pt3dadd(-8.76, 286.321, -6.5, 0.276)
pt3dadd(-8.76, 286.441, -6.5, 0.276)
pt3dadd(-8.76, 286.561, -6.5, 0.276)
pt3dadd(-8.761, 286.681, -6.5, 0.276)
pt3dadd(-8.808, 286.792, -6.493, 0.282)
pt3dadd(-8.855, 286.902, -6.487, 0.286)
pt3dadd(-8.902, 287.011, -6.48, 0.292)
pt3dadd(-8.95, 287.122, -6.474, 0.296)
pt3dadd(-8.996, 287.232, -6.467, 0.3)
pt3dadd(-9.046, 287.34, -6.454, 0.296)
pt3dadd(-9.096, 287.448, -6.44, 0.292)
pt3dadd(-9.145, 287.556, -6.426, 0.286)
pt3dadd(-9.196, 287.664, -6.412, 0.28)
pt3dadd(-9.24, 287.773, -6.4, 0.274)
pt3dadd(-9.24, 287.893, -6.4, 0.248)
pt3dadd(-9.24, 288.013, -6.4, 0.226)
pt3dadd(-9.24, 288.133, -6.4, 0.226)
pt3dadd(-9.241, 288.253, -6.4, 0.226)
pt3dadd(-9.264, 288.37, -6.4, 0.226)
pt3dadd(-9.336, 288.462, -6.4, 0.226)
pt3dadd(-9.436, 288.526, -6.385, 0.258)
pt3dadd(-9.512, 288.582, -6.33, 0.364)
pt3dadd(-9.575, 288.572, -6.248, 0.44)
pt3dadd(-9.6, 288.518, -6.163, 0.424)
pt3dadd(-9.61, 288.492, -6.067, 0.374)
pt3dadd(-9.653, 288.49, -5.974, 0.366)
pt3dadd(-9.695, 288.487, -5.88, 0.356)
pt3dadd(-9.737, 288.485, -5.787, 0.346)
pt3dadd(-9.78, 288.482, -5.693, 0.336)
pt3dadd(-9.822, 288.48, -5.6, 0.328)
pt3dadd(-9.883, 288.474, -5.514, 0.326)
pt3dadd(-9.947, 288.468, -5.429, 0.326)
pt3dadd(-9.96, 288.436, -5.337, 0.344)
pt3dadd(-9.96, 288.396, -5.243, 0.364)
pt3dadd(-9.967, 288.373, -5.146, 0.39)
pt3dadd(-9.983, 288.373, -5.047, 0.42)
pt3dadd(-10, 288.373, -4.948, 0.45)
pt3dadd(-10.043, 288.445, -4.878, 0.492)
pt3dadd(-10.088, 288.521, -4.811, 0.532)
pt3dadd(-10.138, 288.602, -4.75, 0.564)
pt3dadd(-10.188, 288.685, -4.751, 0.572)
pt3dadd(-10.2, 288.743, -4.838, 0.484)
pt3dadd(-10.2, 288.811, -4.92, 0.38)
pt3dadd(-10.205, 288.908, -4.975, 0.282)
pt3dadd(-10.236, 289.021, -4.992, 0.244)
pt3dadd(-10.278, 289.134, -4.997, 0.234)
pt3dadd(-10.308, 289.248, -5.004, 0.228)
pt3dadd(-10.314, 289.367, -5.017, 0.238)
pt3dadd(-10.319, 289.486, -5.03, 0.248)
pt3dadd(-10.337, 289.591, -5.069, 0.328)
pt3dadd(-10.391, 289.681, -5.118, 0.358)
pt3dadd(-10.446, 289.771, -5.166, 0.388)
pt3dadd(-10.5, 289.861, -5.214, 0.418)
pt3dadd(-10.555, 289.951, -5.262, 0.45)
pt3dadd(-10.576, 290.051, -5.314, 0.476)
pt3dadd(-10.592, 290.152, -5.367, 0.504)
pt3dadd(-10.61, 290.251, -5.42, 0.53)
pt3dadd(-10.627, 290.352, -5.472, 0.558)
pt3dadd(-10.646, 290.447, -5.531, 0.588)
pt3dadd(-10.667, 290.522, -5.606, 0.628)
pt3dadd(-10.686, 290.612, -5.662, 0.656)
pt3dadd(-10.703, 290.729, -5.681, 0.668)
pt3dadd(-10.722, 290.845, -5.7, 0.678)
pt3dadd(-10.776, 290.952, -5.7, 0.666)
pt3dadd(-10.829, 291.06, -5.7, 0.654)
pt3dadd(-10.894, 291.152, -5.67, 0.642)
pt3dadd(-10.961, 291.241, -5.633, 0.628)
pt3dadd(-11.015, 291.34, -5.597, 0.628)
pt3dadd(-11.062, 291.446, -5.574, 0.64)
pt3dadd(-11.107, 291.554, -5.556, 0.656)
pt3dadd(-11.152, 291.664, -5.537, 0.672)
pt3dadd(-11.196, 291.773, -5.518, 0.688)
pt3dadd(-11.242, 291.882, -5.5, 0.704)
pt3dadd(-11.268, 291.998, -5.5, 0.72)
pt3dadd(-11.296, 292.116, -5.5, 0.738)
pt3dadd(-11.323, 292.232, -5.5, 0.756)
pt3dadd(-11.351, 292.35, -5.5, 0.772)
pt3dadd(-11.378, 292.466, -5.5, 0.79)
pt3dadd(-11.411, 292.582, -5.5, 0.806)
pt3dadd(-11.465, 292.688, -5.497, 0.816)
pt3dadd(-11.52, 292.795, -5.495, 0.826)
pt3dadd(-11.574, 292.902, -5.493, 0.836)
pt3dadd(-11.629, 293.009, -5.491, 0.844)
pt3dadd(-11.683, 293.116, -5.488, 0.854)
pt3dadd(-11.724, 293.226, -5.469, 0.854)
pt3dadd(-11.766, 293.336, -5.451, 0.854)
pt3dadd(-11.807, 293.447, -5.432, 0.854)
pt3dadd(-11.849, 293.557, -5.414, 0.854)
pt3dadd(-11.88, 293.67, -5.4, 0.852)
pt3dadd(-11.88, 293.79, -5.4, 0.844)
pt3dadd(-11.88, 293.91, -5.4, 0.838)
pt3dadd(-11.88, 294.03, -5.4, 0.83)
pt3dadd(-11.88, 294.15, -5.4, 0.824)
pt3dadd(-11.88, 294.27, -5.4, 0.816)
pt3dadd(-11.88, 294.39, -5.4, 0.81)
pt3dadd(-11.885, 294.51, -5.4, 0.802)
pt3dadd(-11.902, 294.629, -5.4, 0.798)
pt3dadd(-11.918, 294.748, -5.4, 0.794)
pt3dadd(-11.936, 294.866, -5.4, 0.79)
pt3dadd(-11.953, 294.985, -5.4, 0.786)
pt3dadd(-11.971, 295.104, -5.4, 0.782)
pt3dadd(-11.99, 295.222, -5.4, 0.778)
pt3dadd(-12.038, 295.332, -5.4, 0.768)
pt3dadd(-12.085, 295.442, -5.4, 0.758)
pt3dadd(-12.133, 295.552, -5.4, 0.75)
pt3dadd(-12.18, 295.662, -5.4, 0.74)
pt3dadd(-12.228, 295.772, -5.4, 0.73)
pt3dadd(-12.254, 295.889, -5.4, 0.728)
pt3dadd(-12.275, 296.008, -5.4, 0.728)
pt3dadd(-12.294, 296.125, -5.4, 0.728)
pt3dadd(-12.314, 296.244, -5.4, 0.728)
pt3dadd(-12.334, 296.363, -5.4, 0.728)
pt3dadd(-12.354, 296.48, -5.4, 0.728)
pt3dadd(-12.382, 296.597, -5.4, 0.728)
pt3dadd(-12.415, 296.712, -5.4, 0.728)
pt3dadd(-12.445, 296.828, -5.4, 0.73)
pt3dadd(-12.466, 296.946, -5.4, 0.74)
pt3dadd(-12.486, 297.065, -5.4, 0.75)
pt3dadd(-12.533, 297.174, -5.4, 0.754)
pt3dadd(-12.593, 297.277, -5.4, 0.754)
pt3dadd(-12.658, 297.378, -5.4, 0.758)
pt3dadd(-12.725, 297.478, -5.4, 0.77)
pt3dadd(-12.806, 297.56, -5.4, 0.784)
pt3dadd(-12.918, 297.602, -5.4, 0.8)
pt3dadd(-12.982, 297.695, -5.4, 0.808)
pt3dadd(-13.03, 297.805, -5.4, 0.812)
pt3dadd(-13.078, 297.916, -5.4, 0.816)
pt3dadd(-13.124, 298.026, -5.4, 0.822)
pt3dadd(-13.172, 298.136, -5.4, 0.826)
pt3dadd(-13.212, 298.249, -5.4, 0.826)
pt3dadd(-13.243, 298.364, -5.4, 0.822)
pt3dadd(-13.273, 298.481, -5.4, 0.818)
pt3dadd(-13.303, 298.597, -5.4, 0.814)
pt3dadd(-13.333, 298.714, -5.4, 0.81)
pt3dadd(-13.363, 298.83, -5.4, 0.806)
pt3dadd(-13.4, 298.943, -5.4, 0.804)
pt3dadd(-13.442, 299.056, -5.4, 0.804)
pt3dadd(-13.484, 299.168, -5.4, 0.804)
pt3dadd(-13.525, 299.281, -5.4, 0.804)
pt3dadd(-13.567, 299.394, -5.4, 0.804)
pt3dadd(-13.616, 299.502, -5.4, 0.804)
pt3dadd(-13.688, 299.598, -5.4, 0.804)
pt3dadd(-13.76, 299.694, -5.4, 0.804)
pt3dadd(-13.832, 299.79, -5.4, 0.804)
pt3dadd(-13.904, 299.886, -5.4, 0.804)
pt3dadd(-13.973, 299.984, -5.4, 0.804)
pt3dadd(-14.033, 300.088, -5.4, 0.81)
pt3dadd(-14.093, 300.192, -5.4, 0.814)
pt3dadd(-14.153, 300.296, -5.4, 0.82)
pt3dadd(-14.213, 300.4, -5.4, 0.824)
pt3dadd(-14.274, 300.503, -5.4, 0.828)
pt3dadd(-14.342, 300.601, -5.4, 0.818)
pt3dadd(-14.412, 300.7, -5.4, 0.808)
pt3dadd(-14.48, 300.798, -5.4, 0.798)
pt3dadd(-14.55, 300.895, -5.4, 0.788)
pt3dadd(-14.62, 300.994, -5.4, 0.776)
pt3dadd(-14.701, 301.081, -5.4, 0.74)
pt3dadd(-14.783, 301.17, -5.4, 0.704)
pt3dadd(-14.844, 301.272, -5.4, 0.682)
pt3dadd(-14.905, 301.375, -5.4, 0.658)
pt3dadd(-14.945, 301.488, -5.4, 0.668)
pt3dadd(-14.978, 301.603, -5.4, 0.69)
pt3dadd(-15, 301.721, -5.4, 0.712)
pt3dadd(-15, 301.841, -5.4, 0.736)
pt3dadd(-15, 301.961, -5.4, 0.762)
pt3dadd(-15, 302.081, -5.4, 0.778)
pt3dadd(-15, 302.201, -5.4, 0.778)
pt3dadd(-15.016, 302.317, -5.4, 0.774)
pt3dadd(-15.06, 302.429, -5.4, 0.76)
pt3dadd(-15.104, 302.54, -5.4, 0.746)
pt3dadd(-15.149, 302.652, -5.4, 0.732)
pt3dadd(-15.193, 302.764, -5.4, 0.718)
pt3dadd(-15.238, 302.875, -5.4, 0.704)
}
}
proc shape3d_24() {
dend_5[7] { pt3dadd(-15.24, 302.994, -5.4, 0.696)
pt3dadd(-15.24, 303.114, -5.4, 0.686)
pt3dadd(-15.24, 303.234, -5.4, 0.678)
pt3dadd(-15.245, 303.354, -5.4, 0.71)
pt3dadd(-15.248, 303.474, -5.4, 0.746)
pt3dadd(-15.257, 303.593, -5.4, 0.784)
pt3dadd(-15.325, 303.691, -5.4, 0.864)
pt3dadd(-15.392, 303.791, -5.4, 0.946)
pt3dadd(-15.493, 303.856, -5.4, 0.996)
pt3dadd(-15.596, 303.916, -5.4, 1.042)
pt3dadd(-15.642, 304.018, -5.4, 1.05)
pt3dadd(-15.664, 304.135, -5.4, 1.044)
pt3dadd(-15.685, 304.254, -5.4, 1.038)
pt3dadd(-15.707, 304.372, -5.4, 1.034)
pt3dadd(-15.72, 304.49, -5.4, 1.02)
pt3dadd(-15.72, 304.61, -5.4, 0.994)
pt3dadd(-15.72, 304.73, -5.4, 0.968)
pt3dadd(-15.736, 304.848, -5.4, 0.948)
pt3dadd(-15.774, 304.962, -5.4, 0.932)
pt3dadd(-15.812, 305.076, -5.4, 0.916)
pt3dadd(-15.866, 305.176, -5.4, 0.91)
pt3dadd(-15.97, 305.237, -5.4, 0.932)
pt3dadd(-16.069, 305.3, -5.4, 0.956)
pt3dadd(-16.112, 305.412, -5.4, 0.972)
pt3dadd(-16.156, 305.525, -5.4, 0.988)
pt3dadd(-16.199, 305.636, -5.4, 1.004)
pt3dadd(-16.214, 305.755, -5.4, 1.04)
pt3dadd(-16.229, 305.874, -5.4, 1.078)
pt3dadd(-16.255, 305.99, -5.4, 1.104)
pt3dadd(-16.295, 306.102, -5.4, 1.1)
pt3dadd(-16.322, 306.22, -5.4, 1.092)
pt3dadd(-16.35, 306.336, -5.4, 1.082)
pt3dadd(-16.378, 306.452, -5.4, 1.074)
pt3dadd(-16.405, 306.57, -5.4, 1.066)
pt3dadd(-16.432, 306.686, -5.4, 1.058)
pt3dadd(-16.44, 306.805, -5.4, 1.042)
pt3dadd(-16.44, 306.925, -5.4, 1.024)
pt3dadd(-16.44, 307.045, -5.4, 1.006)
pt3dadd(-16.44, 307.165, -5.4, 0.988)
pt3dadd(-16.44, 307.285, -5.4, 0.97)
pt3dadd(-16.44, 307.405, -5.4, 0.952)
pt3dadd(-16.44, 307.525, -5.4, 0.934)
pt3dadd(-16.471, 307.639, -5.4, 0.922)
pt3dadd(-16.517, 307.751, -5.4, 0.914)
pt3dadd(-16.561, 307.862, -5.4, 0.904)
pt3dadd(-16.606, 307.974, -5.4, 0.894)
pt3dadd(-16.65, 308.086, -5.4, 0.886)
pt3dadd(-16.682, 308.2, -5.4, 0.878)
pt3dadd(-16.688, 308.32, -5.4, 0.874)
pt3dadd(-16.693, 308.438, -5.4, 0.87)
pt3dadd(-16.699, 308.558, -5.4, 0.866)
pt3dadd(-16.705, 308.678, -5.4, 0.862)
pt3dadd(-16.711, 308.798, -5.4, 0.858)
pt3dadd(-16.717, 308.918, -5.4, 0.856)
pt3dadd(-16.747, 309.034, -5.4, 0.848)
pt3dadd(-16.788, 309.146, -5.4, 0.838)
pt3dadd(-16.83, 309.258, -5.4, 0.83)
pt3dadd(-16.872, 309.371, -5.4, 0.82)
pt3dadd(-16.913, 309.484, -5.4, 0.812)
pt3dadd(-16.949, 309.598, -5.4, 0.802)
pt3dadd(-16.964, 309.716, -5.4, 0.79)
pt3dadd(-16.979, 309.835, -5.4, 0.778)
pt3dadd(-16.994, 309.955, -5.4, 0.766)
pt3dadd(-17.009, 310.074, -5.4, 0.754)
pt3dadd(-17.024, 310.193, -5.4, 0.742)
pt3dadd(-17.039, 310.312, -5.4, 0.73)
pt3dadd(-17.052, 310.432, -5.4, 0.724)
pt3dadd(-17.064, 310.55, -5.4, 0.72)
pt3dadd(-17.077, 310.67, -5.4, 0.716)
pt3dadd(-17.089, 310.789, -5.4, 0.712)
pt3dadd(-17.102, 310.908, -5.4, 0.708)
pt3dadd(-17.114, 311.028, -5.4, 0.704)
pt3dadd(-17.124, 311.148, -5.4, 0.706)
pt3dadd(-17.13, 311.267, -5.4, 0.708)
pt3dadd(-17.136, 311.387, -5.4, 0.712)
pt3dadd(-17.142, 311.507, -5.4, 0.716)
pt3dadd(-17.148, 311.627, -5.4, 0.72)
pt3dadd(-17.154, 311.747, -5.4, 0.724)
pt3dadd(-17.159, 311.867, -5.4, 0.728)
pt3dadd(-17.19, 311.982, -5.4, 0.728)
pt3dadd(-17.222, 312.098, -5.4, 0.728)
pt3dadd(-17.266, 312.21, -5.4, 0.718)
pt3dadd(-17.318, 312.317, -5.4, 0.696)
pt3dadd(-17.374, 312.424, -5.399, 0.672)
pt3dadd(-17.429, 312.529, -5.394, 0.65)
pt3dadd(-17.482, 312.632, -5.382, 0.626)
pt3dadd(-17.502, 312.701, -5.302, 0.614)
pt3dadd(-17.526, 312.774, -5.227, 0.606)
pt3dadd(-17.563, 312.876, -5.185, 0.622)
pt3dadd(-17.602, 312.978, -5.142, 0.636)
pt3dadd(-17.64, 313.08, -5.1, 0.652)
pt3dadd(-17.64, 313.2, -5.1, 0.686)
pt3dadd(-17.64, 313.32, -5.1, 0.72)
pt3dadd(-17.64, 313.44, -5.1, 0.754)
pt3dadd(-17.64, 313.56, -5.1, 0.904)
pt3dadd(-17.64, 313.68, -5.1, 0.914)
pt3dadd(-17.64, 313.8, -5.1, 0.926)
pt3dadd(-17.64, 313.92, -5.1, 0.936)
pt3dadd(-17.64, 314.04, -5.1, 0.946)
pt3dadd(-17.64, 314.16, -5.1, 0.958)
pt3dadd(-17.64, 314.28, -5.1, 0.968)
pt3dadd(-17.64, 314.4, -5.1, 0.98)
}
dend_5[8] {pt3dclear()
pt3dadd(-17.64, 314.4, -5.1, 0.98)
pt3dadd(-17.64, 314.514, -5.1, 0.98)
pt3dadd(-17.64, 314.634, -5.1, 0.98)
pt3dadd(-17.64, 314.754, -5.1, 0.98)
pt3dadd(-17.64, 314.874, -5.1, 0.98)
pt3dadd(-17.64, 314.994, -5.1, 0.98)
pt3dadd(-17.64, 315.114, -5.1, 0.98)
pt3dadd(-17.64, 315.234, -5.1, 0.98)
pt3dadd(-17.64, 315.353, -5.114, 0.968)
pt3dadd(-17.64, 315.472, -5.128, 0.956)
pt3dadd(-17.64, 315.589, -5.142, 0.944)
pt3dadd(-17.64, 315.708, -5.157, 0.932)
pt3dadd(-17.64, 315.827, -5.171, 0.918)
pt3dadd(-17.64, 315.946, -5.186, 0.906)
pt3dadd(-17.641, 316.066, -5.19, 0.898)
pt3dadd(-17.644, 316.186, -5.192, 0.89)
pt3dadd(-17.645, 316.306, -5.193, 0.884)
pt3dadd(-17.647, 316.426, -5.195, 0.876)
pt3dadd(-17.65, 316.546, -5.197, 0.868)
pt3dadd(-17.651, 316.666, -5.198, 0.862)
pt3dadd(-17.653, 316.786, -5.2, 0.854)
pt3dadd(-17.696, 316.897, -5.206, 0.844)
pt3dadd(-17.741, 317.009, -5.213, 0.834)
pt3dadd(-17.785, 317.119, -5.219, 0.824)
pt3dadd(-17.828, 317.231, -5.226, 0.814)
pt3dadd(-17.873, 317.342, -5.232, 0.806)
pt3dadd(-17.88, 317.46, -5.244, 0.794)
pt3dadd(-17.88, 317.579, -5.256, 0.782)
pt3dadd(-17.88, 317.699, -5.269, 0.77)
pt3dadd(-17.88, 317.818, -5.281, 0.758)
pt3dadd(-17.88, 317.936, -5.293, 0.746)
pt3dadd(-17.88, 318.055, -5.306, 0.734)
pt3dadd(-17.88, 318.174, -5.319, 0.718)
pt3dadd(-17.88, 318.293, -5.334, 0.702)
pt3dadd(-17.88, 318.412, -5.348, 0.686)
pt3dadd(-17.88, 318.53, -5.363, 0.67)
pt3dadd(-17.88, 318.649, -5.377, 0.654)
pt3dadd(-17.88, 318.768, -5.391, 0.638)
pt3dadd(-17.875, 318.887, -5.401, 0.624)
pt3dadd(-17.862, 319.007, -5.403, 0.616)
pt3dadd(-17.849, 319.126, -5.404, 0.608)
pt3dadd(-17.837, 319.246, -5.406, 0.6)
pt3dadd(-17.824, 319.364, -5.408, 0.592)
pt3dadd(-17.81, 319.483, -5.41, 0.584)
pt3dadd(-17.798, 319.603, -5.413, 0.578)
pt3dadd(-17.792, 319.721, -5.428, 0.588)
pt3dadd(-17.785, 319.84, -5.444, 0.596)
pt3dadd(-17.778, 319.958, -5.459, 0.604)
pt3dadd(-17.772, 320.076, -5.474, 0.614)
pt3dadd(-17.765, 320.195, -5.489, 0.622)
pt3dadd(-17.76, 320.314, -5.5, 0.634)
pt3dadd(-17.76, 320.434, -5.5, 0.656)
pt3dadd(-17.76, 320.554, -5.5, 0.676)
pt3dadd(-17.76, 320.674, -5.5, 0.698)
pt3dadd(-17.76, 320.794, -5.5, 0.72)
pt3dadd(-17.76, 320.914, -5.5, 0.742)
pt3dadd(-17.76, 321.034, -5.5, 0.762)
pt3dadd(-17.76, 321.154, -5.5, 0.784)
pt3dadd(-17.76, 321.274, -5.5, 0.802)
pt3dadd(-17.76, 321.394, -5.5, 0.82)
pt3dadd(-17.76, 321.514, -5.5, 0.838)
pt3dadd(-17.76, 321.634, -5.5, 0.856)
pt3dadd(-17.76, 321.754, -5.5, 0.874)
pt3dadd(-17.76, 321.874, -5.5, 0.892)
pt3dadd(-17.76, 321.994, -5.505, 0.906)
pt3dadd(-17.76, 322.111, -5.524, 0.914)
pt3dadd(-17.76, 322.229, -5.542, 0.922)
pt3dadd(-17.76, 322.346, -5.561, 0.932)
pt3dadd(-17.76, 322.465, -5.579, 0.94)
pt3dadd(-17.76, 322.583, -5.598, 0.948)
pt3dadd(-17.767, 322.699, -5.618, 0.952)
pt3dadd(-17.791, 322.813, -5.642, 0.942)
pt3dadd(-17.814, 322.927, -5.667, 0.932)
pt3dadd(-17.838, 323.041, -5.691, 0.922)
pt3dadd(-17.862, 323.155, -5.715, 0.912)
pt3dadd(-17.88, 323.27, -5.736, 0.904)
pt3dadd(-17.88, 323.39, -5.746, 0.9)
pt3dadd(-17.88, 323.509, -5.757, 0.896)
pt3dadd(-17.88, 323.629, -5.767, 0.892)
pt3dadd(-17.88, 323.748, -5.778, 0.888)
pt3dadd(-17.88, 323.867, -5.788, 0.884)
pt3dadd(-17.88, 323.987, -5.799, 0.88)
pt3dadd(-17.88, 324.107, -5.8, 0.882)
pt3dadd(-17.88, 324.227, -5.8, 0.886)
pt3dadd(-17.88, 324.347, -5.8, 0.89)
pt3dadd(-17.88, 324.467, -5.8, 0.892)
pt3dadd(-17.88, 324.587, -5.8, 0.896)
pt3dadd(-17.88, 324.707, -5.8, 0.9)
pt3dadd(-17.88, 324.827, -5.8, 0.904)
pt3dadd(-17.843, 324.94, -5.8, 0.908)
pt3dadd(-17.801, 325.052, -5.8, 0.912)
pt3dadd(-17.76, 325.165, -5.8, 0.918)
pt3dadd(-17.718, 325.278, -5.8, 0.922)
pt3dadd(-17.676, 325.39, -5.8, 0.926)
pt3dadd(-17.624, 325.498, -5.8, 0.93)
pt3dadd(-17.558, 325.597, -5.8, 0.93)
pt3dadd(-17.492, 325.698, -5.8, 0.93)
pt3dadd(-17.426, 325.798, -5.8, 0.93)
}
}
proc shape3d_25() {
dend_5[8] { pt3dadd(-17.36, 325.898, -5.8, 0.93)
pt3dadd(-17.312, 326.005, -5.8, 0.926)
pt3dadd(-17.292, 326.124, -5.8, 0.918)
pt3dadd(-17.273, 326.242, -5.8, 0.91)
pt3dadd(-17.252, 326.36, -5.8, 0.902)
pt3dadd(-17.233, 326.479, -5.8, 0.892)
pt3dadd(-17.213, 326.597, -5.8, 0.884)
pt3dadd(-17.197, 326.716, -5.8, 0.876)
pt3dadd(-17.192, 326.836, -5.8, 0.87)
pt3dadd(-17.186, 326.956, -5.8, 0.862)
pt3dadd(-17.18, 327.076, -5.8, 0.854)
pt3dadd(-17.174, 327.196, -5.8, 0.846)
pt3dadd(-17.168, 327.316, -5.8, 0.84)
pt3dadd(-17.162, 327.436, -5.8, 0.832)
pt3dadd(-17.156, 327.554, -5.8, 0.816)
pt3dadd(-17.15, 327.674, -5.8, 0.798)
pt3dadd(-17.144, 327.794, -5.8, 0.78)
pt3dadd(-17.138, 327.914, -5.8, 0.76)
pt3dadd(-17.132, 328.034, -5.8, 0.742)
pt3dadd(-17.126, 328.154, -5.8, 0.722)
pt3dadd(-17.12, 328.274, -5.8, 0.704)
pt3dadd(-17.066, 328.38, -5.8, 0.684)
pt3dadd(-17.01, 328.486, -5.8, 0.666)
pt3dadd(-16.952, 328.592, -5.8, 0.646)
pt3dadd(-16.896, 328.698, -5.8, 0.626)
pt3dadd(-16.838, 328.804, -5.8, 0.608)
pt3dadd(-16.78, 328.907, -5.8, 0.584)
pt3dadd(-16.718, 329.01, -5.8, 0.562)
pt3dadd(-16.691, 329.124, -5.802, 0.562)
pt3dadd(-16.686, 329.244, -5.806, 0.582)
pt3dadd(-16.681, 329.363, -5.81, 0.6)
pt3dadd(-16.68, 329.441, -5.877, 0.622)
pt3dadd(-16.68, 329.509, -5.96, 0.644)
pt3dadd(-16.68, 329.563, -6.049, 0.668)
pt3dadd(-16.68, 329.61, -6.141, 0.69)
pt3dadd(-16.648, 329.654, -6.22, 0.708)
pt3dadd(-16.555, 329.694, -6.274, 0.726)
pt3dadd(-16.463, 329.734, -6.329, 0.742)
pt3dadd(-16.368, 329.776, -6.378, 0.758)
pt3dadd(-16.268, 329.826, -6.414, 0.772)
pt3dadd(-16.204, 329.896, -6.461, 0.77)
pt3dadd(-16.183, 329.989, -6.521, 0.75)
pt3dadd(-16.163, 330.083, -6.582, 0.73)
pt3dadd(-16.088, 330.17, -6.599, 0.684)
pt3dadd(-16.008, 330.258, -6.61, 0.632)
pt3dadd(-15.952, 330.346, -6.657, 0.55)
pt3dadd(-15.881, 330.43, -6.697, 0.544)
pt3dadd(-15.81, 330.514, -6.737, 0.538)
pt3dadd(-15.739, 330.598, -6.778, 0.532)
pt3dadd(-15.678, 330.685, -6.818, 0.53)
pt3dadd(-15.661, 330.796, -6.856, 0.54)
pt3dadd(-15.644, 330.905, -6.895, 0.55)
pt3dadd(-15.628, 331.014, -6.934, 0.56)
pt3dadd(-15.612, 331.123, -6.973, 0.57)
pt3dadd(-15.588, 331.234, -7, 0.584)
pt3dadd(-15.546, 331.346, -7, 0.608)
pt3dadd(-15.504, 331.458, -7, 0.63)
pt3dadd(-15.463, 331.571, -7, 0.654)
pt3dadd(-15.421, 331.684, -7, 0.676)
pt3dadd(-15.379, 331.796, -7, 0.7)
pt3dadd(-15.372, 331.915, -7, 0.724)
pt3dadd(-15.37, 332.035, -7, 0.75)
pt3dadd(-15.367, 332.155, -7, 0.776)
pt3dadd(-15.366, 332.275, -7, 0.802)
pt3dadd(-15.364, 332.395, -7, 0.826)
pt3dadd(-15.362, 332.515, -7, 0.852)
pt3dadd(-15.36, 332.635, -7, 0.878)
pt3dadd(-15.36, 332.755, -7, 0.886)
pt3dadd(-15.36, 332.875, -7, 0.892)
pt3dadd(-15.36, 332.995, -7, 0.9)
pt3dadd(-15.36, 333.115, -7, 0.908)
pt3dadd(-15.36, 333.235, -7, 0.914)
pt3dadd(-15.36, 333.355, -7, 0.922)
pt3dadd(-15.36, 333.475, -7, 0.928)
pt3dadd(-15.348, 333.594, -7, 0.918)
pt3dadd(-15.335, 333.714, -7, 0.906)
pt3dadd(-15.323, 333.833, -7, 0.894)
pt3dadd(-15.31, 333.953, -7, 0.882)
pt3dadd(-15.298, 334.072, -7, 0.87)
pt3dadd(-15.284, 334.19, -7, 0.858)
pt3dadd(-15.276, 334.31, -7, 0.842)
pt3dadd(-15.27, 334.43, -7, 0.824)
pt3dadd(-15.264, 334.55, -7, 0.806)
pt3dadd(-15.258, 334.67, -7, 0.786)
pt3dadd(-15.252, 334.79, -7, 0.768)
pt3dadd(-15.246, 334.91, -7, 0.748)
pt3dadd(-15.24, 335.029, -7, 0.73)
pt3dadd(-15.215, 335.147, -7, 0.732)
pt3dadd(-15.187, 335.263, -7, 0.736)
pt3dadd(-15.16, 335.381, -7, 0.74)
pt3dadd(-15.133, 335.497, -7, 0.746)
pt3dadd(-15.106, 335.614, -7, 0.75)
pt3dadd(-15.077, 335.73, -7, 0.756)
pt3dadd(-15.032, 335.842, -7, 0.778)
pt3dadd(-14.987, 335.953, -7, 0.802)
pt3dadd(-14.942, 336.065, -7, 0.826)
pt3dadd(-14.898, 336.176, -7, 0.848)
pt3dadd(-14.854, 336.288, -7, 0.872)
pt3dadd(-14.818, 336.402, -7, 0.898)
pt3dadd(-14.784, 336.517, -7, 0.924)
pt3dadd(-14.75, 336.632, -7, 0.952)
pt3dadd(-14.718, 336.748, -7, 0.978)
pt3dadd(-14.684, 336.863, -7, 1.004)
pt3dadd(-14.652, 336.979, -7, 1.03)
pt3dadd(-14.632, 337.097, -7, 1.05)
pt3dadd(-14.611, 337.216, -7, 1.07)
pt3dadd(-14.582, 337.331, -7, 1.076)
pt3dadd(-14.543, 337.445, -7, 1.064)
pt3dadd(-14.503, 337.558, -7, 1.05)
pt3dadd(-14.461, 337.67, -6.995, 1.006)
pt3dadd(-14.419, 337.782, -6.99, 0.962)
pt3dadd(-14.408, 337.882, -6.939, 0.914)
pt3dadd(-14.401, 337.979, -6.88, 0.864)
pt3dadd(-14.37, 338.04, -6.801, 0.83)
pt3dadd(-14.333, 338.09, -6.716, 0.798)
pt3dadd(-14.294, 338.141, -6.632, 0.766)
pt3dadd(-14.221, 338.207, -6.6, 0.738)
pt3dadd(-14.128, 338.281, -6.6, 0.716)
pt3dadd(-14.075, 338.378, -6.6, 0.704)
pt3dadd(-14.064, 338.498, -6.6, 0.704)
pt3dadd(-14.053, 338.617, -6.6, 0.704)
pt3dadd(-14.042, 338.737, -6.6, 0.704)
pt3dadd(-14.028, 338.856, -6.6, 0.718)
pt3dadd(-14.014, 338.975, -6.6, 0.736)
pt3dadd(-13.994, 339.092, -6.6, 0.766)
pt3dadd(-13.949, 339.203, -6.6, 0.834)
pt3dadd(-13.919, 339.319, -6.6, 0.846)
pt3dadd(-13.888, 339.436, -6.6, 0.86)
pt3dadd(-13.858, 339.552, -6.6, 0.874)
pt3dadd(-13.828, 339.668, -6.6, 0.886)
pt3dadd(-13.798, 339.784, -6.6, 0.9)
pt3dadd(-13.76, 339.898, -6.6, 0.91)
pt3dadd(-13.718, 340.01, -6.6, 0.918)
pt3dadd(-13.678, 340.123, -6.6, 0.928)
pt3dadd(-13.636, 340.236, -6.6, 0.938)
pt3dadd(-13.594, 340.348, -6.6, 0.946)
pt3dadd(-13.555, 340.462, -6.596, 0.956)
pt3dadd(-13.529, 340.576, -6.577, 0.972)
pt3dadd(-13.504, 340.691, -6.557, 0.986)
pt3dadd(-13.477, 340.805, -6.538, 1.002)
pt3dadd(-13.451, 340.92, -6.518, 1.016)
pt3dadd(-13.424, 341.035, -6.5, 1.03)
pt3dadd(-13.388, 341.149, -6.5, 1.04)
pt3dadd(-13.352, 341.264, -6.5, 1.048)
pt3dadd(-13.316, 341.378, -6.5, 1.058)
pt3dadd(-13.28, 341.492, -6.5, 1.066)
pt3dadd(-13.244, 341.608, -6.5, 1.076)
pt3dadd(-13.199, 341.717, -6.489, 1.082)
pt3dadd(-13.144, 341.819, -6.467, 1.088)
pt3dadd(-13.087, 341.922, -6.445, 1.094)
pt3dadd(-13.032, 342.025, -6.423, 1.1)
pt3dadd(-12.976, 342.128, -6.401, 1.104)
pt3dadd(-12.962, 342.245, -6.383, 1.088)
pt3dadd(-12.95, 342.362, -6.365, 1.07)
pt3dadd(-12.938, 342.479, -6.347, 1.052)
pt3dadd(-12.926, 342.596, -6.329, 1.034)
pt3dadd(-12.914, 342.714, -6.311, 1.016)
pt3dadd(-12.884, 342.826, -6.292, 0.994)
pt3dadd(-12.826, 342.926, -6.269, 0.966)
pt3dadd(-12.766, 343.027, -6.247, 0.938)
pt3dadd(-12.706, 343.128, -6.225, 0.91)
pt3dadd(-12.647, 343.228, -6.203, 0.882)
pt3dadd(-12.571, 343.32, -6.2, 0.862)
pt3dadd(-12.493, 343.412, -6.2, 0.84)
pt3dadd(-12.415, 343.504, -6.2, 0.82)
pt3dadd(-12.337, 343.595, -6.2, 0.8)
pt3dadd(-12.259, 343.686, -6.2, 0.78)
pt3dadd(-12.187, 343.782, -6.2, 0.778)
pt3dadd(-12.115, 343.878, -6.2, 0.778)
pt3dadd(-12.043, 343.974, -6.2, 0.778)
pt3dadd(-11.971, 344.07, -6.2, 0.778)
pt3dadd(-11.899, 344.166, -6.2, 0.778)
pt3dadd(-11.873, 344.282, -6.2, 0.782)
pt3dadd(-11.85, 344.4, -6.2, 0.786)
pt3dadd(-11.828, 344.518, -6.2, 0.79)
pt3dadd(-11.806, 344.635, -6.2, 0.794)
pt3dadd(-11.784, 344.754, -6.2, 0.8)
pt3dadd(-11.761, 344.872, -6.2, 0.804)
pt3dadd(-11.688, 344.965, -6.2, 0.812)
pt3dadd(-11.61, 345.056, -6.2, 0.824)
pt3dadd(-11.532, 345.148, -6.2, 0.834)
pt3dadd(-11.454, 345.239, -6.2, 0.844)
pt3dadd(-11.376, 345.33, -6.2, 0.854)
pt3dadd(-11.352, 345.448, -6.2, 0.862)
pt3dadd(-11.33, 345.565, -6.2, 0.87)
pt3dadd(-11.308, 345.683, -6.2, 0.878)
pt3dadd(-11.286, 345.8, -6.2, 0.888)
pt3dadd(-11.263, 345.919, -6.2, 0.896)
pt3dadd(-11.242, 346.037, -6.2, 0.904)
pt3dadd(-11.161, 346.126, -6.2, 0.938)
pt3dadd(-11.08, 346.213, -6.2, 0.974)
pt3dadd(-11.015, 346.314, -6.2, 1.008)
pt3dadd(-10.955, 346.417, -6.2, 1.042)
pt3dadd(-10.931, 346.531, -6.2, 1.066)
pt3dadd(-10.926, 346.651, -6.2, 1.084)
pt3dadd(-10.921, 346.771, -6.2, 1.1)
pt3dadd(-10.92, 346.888, -6.179, 1.112)
pt3dadd(-10.92, 347.003, -6.151, 1.124)
pt3dadd(-10.916, 347.116, -6.117, 1.13)
pt3dadd(-10.908, 347.22, -6.07, 1.13)
}
}
proc shape3d_26() {
dend_5[8] { pt3dadd(-10.859, 347.314, -6.022, 1.118)
pt3dadd(-10.808, 347.406, -5.974, 1.106)
pt3dadd(-10.757, 347.498, -5.926, 1.094)
pt3dadd(-10.706, 347.591, -5.879, 1.082)
pt3dadd(-10.685, 347.699, -5.844, 1.054)
pt3dadd(-10.673, 347.813, -5.814, 1.02)
pt3dadd(-10.643, 347.924, -5.792, 0.98)
pt3dadd(-10.598, 348.034, -5.776, 0.93)
pt3dadd(-10.571, 348.122, -5.728, 0.894)
pt3dadd(-10.564, 348.186, -5.644, 0.87)
pt3dadd(-10.541, 348.229, -5.558, 0.842)
pt3dadd(-10.484, 348.235, -5.47, 0.806)
pt3dadd(-10.432, 348.258, -5.387, 0.772)
pt3dadd(-10.392, 348.342, -5.324, 0.738)
pt3dadd(-10.351, 348.426, -5.261, 0.704)
pt3dadd(-10.319, 348.517, -5.204, 0.666)
pt3dadd(-10.313, 348.629, -5.169, 0.61)
pt3dadd(-10.307, 348.742, -5.135, 0.554)
pt3dadd(-10.266, 348.844, -5.096, 0.506)
pt3dadd(-10.223, 348.938, -5.047, 0.52)
pt3dadd(-10.19, 349.013, -4.978, 0.54)
pt3dadd(-10.171, 349.066, -4.89, 0.564)
pt3dadd(-10.13, 349.14, -4.833, 0.578)
pt3dadd(-10.067, 349.238, -4.81, 0.578)
pt3dadd(-9.997, 349.334, -4.8, 0.57)
pt3dadd(-9.922, 349.428, -4.8, 0.558)
pt3dadd(-9.868, 349.53, -4.79, 0.576)
pt3dadd(-9.838, 349.643, -4.766, 0.628)
pt3dadd(-9.756, 349.728, -4.752, 0.668)
pt3dadd(-9.673, 349.813, -4.737, 0.706)
pt3dadd(-9.59, 349.898, -4.722, 0.746)
pt3dadd(-9.509, 349.984, -4.707, 0.784)
pt3dadd(-9.425, 350.07, -4.7, 0.824)
pt3dadd(-9.342, 350.155, -4.7, 0.864)
pt3dadd(-9.258, 350.242, -4.7, 0.904)
pt3dadd(-9.174, 350.328, -4.7, 0.946)
pt3dadd(-9.091, 350.413, -4.7, 0.986)
pt3dadd(-8.996, 350.485, -4.704, 1.008)
pt3dadd(-8.893, 350.545, -4.71, 1.012)
pt3dadd(-8.789, 350.606, -4.717, 1.018)
pt3dadd(-8.686, 350.666, -4.724, 1.022)
pt3dadd(-8.582, 350.726, -4.731, 1.028)
pt3dadd(-8.477, 350.782, -4.742, 1.02)
pt3dadd(-8.37, 350.834, -4.756, 1.004)
pt3dadd(-8.264, 350.888, -4.771, 0.988)
pt3dadd(-8.158, 350.941, -4.785, 0.972)
pt3dadd(-8.052, 350.994, -4.799, 0.956)
pt3dadd(-7.955, 351.064, -4.8, 0.936)
pt3dadd(-7.859, 351.136, -4.8, 0.916)
pt3dadd(-7.763, 351.208, -4.8, 0.896)
pt3dadd(-7.667, 351.28, -4.8, 0.876)
pt3dadd(-7.571, 351.352, -4.8, 0.856)
pt3dadd(-7.472, 351.421, -4.8, 0.858)
pt3dadd(-7.374, 351.491, -4.8, 0.864)
pt3dadd(-7.277, 351.559, -4.8, 0.868)
pt3dadd(-7.178, 351.629, -4.8, 0.874)
pt3dadd(-7.08, 351.697, -4.8, 0.878)
pt3dadd(-6.965, 351.725, -4.8, 0.904)
pt3dadd(-6.846, 351.745, -4.8, 0.932)
pt3dadd(-6.742, 351.786, -4.8, 0.964)
pt3dadd(-6.673, 351.886, -4.8, 0.998)
pt3dadd(-6.611, 351.986, -4.799, 1.03)
pt3dadd(-6.589, 352.104, -4.795, 1.03)
pt3dadd(-6.569, 352.222, -4.791, 1.03)
pt3dadd(-6.528, 352.326, -4.762, 1.022)
pt3dadd(-6.476, 352.422, -4.72, 1.008)
pt3dadd(-6.42, 352.524, -4.705, 1.004)
pt3dadd(-6.35, 352.62, -4.7, 1.008)
pt3dadd(-6.262, 352.7, -4.7, 1.018)
pt3dadd(-6.173, 352.781, -4.7, 1.028)
pt3dadd(-6.084, 352.862, -4.7, 1.038)
pt3dadd(-5.995, 352.943, -4.7, 1.05)
pt3dadd(-5.904, 353.021, -4.7, 1.102)
pt3dadd(-5.8, 353.08, -4.7, 1.18)
pt3dadd(-5.692, 353.129, -4.7, 1.23)
pt3dadd(-5.575, 353.154, -4.694, 1.23)
pt3dadd(-5.459, 353.16, -4.671, 1.19)
pt3dadd(-5.363, 353.162, -4.613, 1.15)
pt3dadd(-5.298, 353.206, -4.542, 1.13)
pt3dadd(-5.28, 353.305, -4.49, 1.098)
pt3dadd(-5.28, 353.405, -4.436, 1.062)
pt3dadd(-5.28, 353.484, -4.361, 1.08)
pt3dadd(-5.272, 353.537, -4.273, 1.076)
pt3dadd(-5.244, 353.592, -4.187, 1.062)
pt3dadd(-5.194, 353.656, -4.127, 1.036)
pt3dadd(-5.102, 353.731, -4.109, 0.982)
pt3dadd(-5.026, 353.82, -4.1, 0.938)
pt3dadd(-4.966, 353.923, -4.1, 0.904)
pt3dadd(-4.895, 354.018, -4.1, 0.872)
pt3dadd(-4.795, 354.085, -4.1, 0.85)
pt3dadd(-4.698, 354.155, -4.1, 0.83)
pt3dadd(-4.613, 354.24, -4.1, 0.848)
pt3dadd(-4.508, 354.294, -4.1, 0.854)
pt3dadd(-4.396, 354.334, -4.1, 0.854)
pt3dadd(-4.284, 354.376, -4.095, 0.85)
pt3dadd(-4.174, 354.42, -4.079, 0.838)
pt3dadd(-4.086, 354.474, -4.048, 0.818)
pt3dadd(-4.057, 354.553, -3.976, 0.778)
pt3dadd(-4.006, 354.631, -3.924, 0.742)
pt3dadd(-3.919, 354.71, -3.9, 0.716)
pt3dadd(-3.863, 354.798, -3.86, 0.692)
pt3dadd(-3.826, 354.896, -3.814, 0.678)
pt3dadd(-3.775, 355.001, -3.787, 0.678)
pt3dadd(-3.725, 355.104, -3.76, 0.678)
pt3dadd(-3.674, 355.208, -3.733, 0.678)
pt3dadd(-3.624, 355.312, -3.706, 0.678)
pt3dadd(-3.61, 355.428, -3.7, 0.686)
pt3dadd(-3.605, 355.548, -3.7, 0.694)
pt3dadd(-3.6, 355.668, -3.7, 0.702)
pt3dadd(-3.587, 355.788, -3.7, 0.72)
pt3dadd(-3.572, 355.907, -3.7, 0.738)
pt3dadd(-3.54, 356.016, -3.699, 0.76)
pt3dadd(-3.443, 356.086, -3.694, 0.798)
pt3dadd(-3.35, 356.158, -3.682, 0.83)
pt3dadd(-3.281, 356.234, -3.631, 0.846)
pt3dadd(-3.227, 356.315, -3.574, 0.846)
pt3dadd(-3.19, 356.404, -3.517, 0.826)
pt3dadd(-3.125, 356.498, -3.489, 0.808)
pt3dadd(-3.06, 356.594, -3.461, 0.79)
pt3dadd(-2.995, 356.689, -3.433, 0.774)
pt3dadd(-2.93, 356.784, -3.404, 0.756)
pt3dadd(-2.857, 356.879, -3.4, 0.74)
pt3dadd(-2.782, 356.972, -3.4, 0.726)
pt3dadd(-2.707, 357.066, -3.4, 0.71)
pt3dadd(-2.632, 357.16, -3.4, 0.696)
pt3dadd(-2.557, 357.253, -3.4, 0.68)
pt3dadd(-2.472, 357.338, -3.4, 0.67)
pt3dadd(-2.387, 357.422, -3.4, 0.66)
pt3dadd(-2.3, 357.505, -3.4, 0.65)
pt3dadd(-2.214, 357.589, -3.4, 0.638)
pt3dadd(-2.129, 357.673, -3.4, 0.628)
pt3dadd(-2.023, 357.73, -3.4, 0.608)
pt3dadd(-1.915, 357.782, -3.4, 0.584)
pt3dadd(-1.801, 357.814, -3.4, 0.578)
pt3dadd(-1.682, 357.834, -3.4, 0.578)
pt3dadd(-1.565, 357.857, -3.4, 0.578)
pt3dadd(-1.454, 357.904, -3.4, 0.59)
pt3dadd(-1.344, 357.95, -3.4, 0.6)
pt3dadd(-1.261, 358.033, -3.4, 0.63)
pt3dadd(-1.187, 358.128, -3.4, 0.666)
pt3dadd(-1.126, 358.23, -3.4, 0.71)
pt3dadd(-1.062, 358.327, -3.4, 0.756)
pt3dadd(-0.952, 358.375, -3.4, 0.77)
pt3dadd(-0.842, 358.423, -3.4, 0.784)
pt3dadd(-0.732, 358.47, -3.4, 0.798)
pt3dadd(-0.622, 358.518, -3.4, 0.812)
pt3dadd(-0.511, 358.565, -3.4, 0.826)
pt3dadd(-0.416, 358.638, -3.4, 0.846)
pt3dadd(-0.325, 358.716, -3.4, 0.866)
pt3dadd(-0.234, 358.794, -3.4, 0.886)
pt3dadd(-0.143, 358.872, -3.4, 0.906)
pt3dadd(-0.052, 358.95, -3.4, 0.926)
pt3dadd(0.037, 359.03, -3.4, 0.938)
pt3dadd(0.126, 359.111, -3.4, 0.948)
pt3dadd(0.215, 359.191, -3.4, 0.958)
pt3dadd(0.304, 359.273, -3.4, 0.968)
pt3dadd(0.392, 359.353, -3.4, 0.978)
pt3dadd(0.508, 359.376, -3.387, 0.97)
pt3dadd(0.625, 359.392, -3.373, 0.96)
pt3dadd(0.736, 359.423, -3.348, 0.92)
pt3dadd(0.84, 359.465, -3.313, 0.854)
pt3dadd(0.936, 359.528, -3.297, 0.798)
pt3dadd(1.027, 359.606, -3.291, 0.75)
pt3dadd(1.1, 359.69, -3.264, 0.704)
pt3dadd(1.16, 359.78, -3.221, 0.662)
pt3dadd(1.243, 359.862, -3.205, 0.638)
pt3dadd(1.331, 359.945, -3.2, 0.63)
pt3dadd(1.414, 360.031, -3.2, 0.636)
pt3dadd(1.498, 360.118, -3.2, 0.64)
pt3dadd(1.58, 360.204, -3.2, 0.646)
pt3dadd(1.664, 360.289, -3.2, 0.65)
pt3dadd(1.744, 360.379, -3.2, 0.662)
pt3dadd(1.818, 360.474, -3.2, 0.682)
pt3dadd(1.894, 360.568, -3.2, 0.704)
pt3dadd(1.968, 360.661, -3.2, 0.724)
pt3dadd(2.044, 360.755, -3.2, 0.744)
pt3dadd(2.12, 360.846, -3.2, 0.766)
pt3dadd(2.202, 360.935, -3.2, 0.792)
pt3dadd(2.282, 361.024, -3.2, 0.816)
pt3dadd(2.364, 361.111, -3.2, 0.842)
pt3dadd(2.444, 361.2, -3.2, 0.868)
pt3dadd(2.527, 361.288, -3.2, 0.882)
pt3dadd(2.61, 361.374, -3.2, 0.886)
pt3dadd(2.694, 361.46, -3.2, 0.892)
pt3dadd(2.777, 361.547, -3.2, 0.896)
pt3dadd(2.861, 361.633, -3.2, 0.902)
pt3dadd(2.965, 361.673, -3.2, 0.898)
pt3dadd(3.085, 361.682, -3.2, 0.89)
pt3dadd(3.205, 361.692, -3.2, 0.88)
pt3dadd(3.311, 361.742, -3.2, 0.87)
pt3dadd(3.415, 361.804, -3.2, 0.858)
pt3dadd(3.492, 361.891, -3.2, 0.862)
pt3dadd(3.552, 361.994, -3.2, 0.872)
pt3dadd(3.607, 362.101, -3.2, 0.878)
pt3dadd(3.654, 362.212, -3.2, 0.878)
pt3dadd(3.708, 362.315, -3.2, 0.876)
pt3dadd(3.811, 362.377, -3.2, 0.856)
pt3dadd(3.913, 362.44, -3.2, 0.834)
pt3dadd(4.016, 362.502, -3.2, 0.814)
pt3dadd(4.118, 362.566, -3.197, 0.786)
}
}
proc shape3d_27() {
dend_5[8] { pt3dadd(4.219, 362.628, -3.192, 0.75)
pt3dadd(4.314, 362.682, -3.163, 0.716)
pt3dadd(4.397, 362.722, -3.098, 0.684)
pt3dadd(4.48, 362.76, -3.033, 0.652)
pt3dadd(4.583, 362.76, -2.983, 0.618)
pt3dadd(4.686, 362.76, -2.932, 0.584)
pt3dadd(4.774, 362.729, -2.87, 0.536)
pt3dadd(4.856, 362.69, -2.806, 0.484)
pt3dadd(4.91, 362.624, -2.748, 0.388)
pt3dadd(4.92, 362.52, -2.7, 0.226)
}
dend_5[9] {pt3dclear()
pt3dadd(-17.64, 314.4, -5.1, 0.98)
pt3dadd(-17.675, 314.418, -5.154, 0.976)
pt3dadd(-17.731, 314.446, -5.239, 0.97)
pt3dadd(-17.788, 314.473, -5.325, 0.964)
pt3dadd(-17.843, 314.502, -5.41, 0.958)
pt3dadd(-17.899, 314.53, -5.495, 0.952)
pt3dadd(-17.954, 314.557, -5.581, 0.946)
pt3dadd(-18.011, 314.585, -5.666, 0.94)
pt3dadd(-18.066, 314.614, -5.752, 0.934)
pt3dadd(-18.122, 314.641, -5.837, 0.928)
pt3dadd(-18.179, 314.669, -5.922, 0.922)
pt3dadd(-18.234, 314.698, -6.008, 0.918)
pt3dadd(-18.29, 314.725, -6.093, 0.912)
pt3dadd(-18.346, 314.753, -6.178, 0.906)
pt3dadd(-18.42, 314.826, -6.2, 0.882)
pt3dadd(-18.5, 314.915, -6.2, 0.85)
pt3dadd(-18.582, 315.004, -6.2, 0.82)
pt3dadd(-18.662, 315.094, -6.2, 0.79)
pt3dadd(-18.743, 315.182, -6.2, 0.76)
pt3dadd(-18.805, 315.284, -6.2, 0.746)
pt3dadd(-18.862, 315.39, -6.2, 0.736)
pt3dadd(-18.918, 315.496, -6.2, 0.726)
pt3dadd(-18.976, 315.601, -6.2, 0.716)
pt3dadd(-19.032, 315.707, -6.2, 0.706)
pt3dadd(-19.098, 315.806, -6.2, 0.696)
pt3dadd(-19.17, 315.902, -6.2, 0.686)
pt3dadd(-19.242, 315.998, -6.2, 0.676)
pt3dadd(-19.314, 316.094, -6.2, 0.666)
pt3dadd(-19.386, 316.19, -6.2, 0.656)
pt3dadd(-19.446, 316.294, -6.201, 0.65)
pt3dadd(-19.498, 316.403, -6.203, 0.646)
pt3dadd(-19.549, 316.511, -6.206, 0.64)
pt3dadd(-19.601, 316.619, -6.208, 0.636)
pt3dadd(-19.651, 316.728, -6.21, 0.63)
pt3dadd(-19.68, 316.837, -6.229, 0.618)
pt3dadd(-19.68, 316.948, -6.267, 0.596)
pt3dadd(-19.685, 317.057, -6.307, 0.574)
pt3dadd(-19.711, 317.16, -6.353, 0.548)
pt3dadd(-19.758, 317.248, -6.39, 0.518)
pt3dadd(-19.873, 317.282, -6.395, 0.474)
pt3dadd(-19.988, 317.316, -6.399, 0.432)
pt3dadd(-20.081, 317.389, -6.405, 0.394)
pt3dadd(-20.172, 317.468, -6.41, 0.358)
pt3dadd(-20.216, 317.554, -6.463, 0.338)
pt3dadd(-20.251, 317.641, -6.525, 0.322)
pt3dadd(-20.286, 317.729, -6.587, 0.304)
pt3dadd(-20.342, 317.808, -6.646, 0.312)
pt3dadd(-20.402, 317.886, -6.7, 0.326)
pt3dadd(-20.456, 317.993, -6.7, 0.336)
pt3dadd(-20.51, 318.101, -6.7, 0.344)
pt3dadd(-20.564, 318.206, -6.7, 0.354)
pt3dadd(-20.64, 318.3, -6.7, 0.39)
pt3dadd(-20.716, 318.394, -6.7, 0.424)
pt3dadd(-20.773, 318.498, -6.7, 0.506)
pt3dadd(-20.845, 318.594, -6.7, 0.52)
pt3dadd(-20.917, 318.69, -6.7, 0.536)
pt3dadd(-20.989, 318.786, -6.7, 0.55)
pt3dadd(-21.061, 318.882, -6.7, 0.566)
pt3dadd(-21.128, 318.982, -6.7, 0.578)
pt3dadd(-21.173, 319.092, -6.7, 0.584)
pt3dadd(-21.217, 319.204, -6.7, 0.588)
pt3dadd(-21.262, 319.315, -6.7, 0.592)
pt3dadd(-21.307, 319.427, -6.7, 0.598)
pt3dadd(-21.352, 319.538, -6.7, 0.602)
pt3dadd(-21.42, 319.636, -6.7, 0.612)
pt3dadd(-21.494, 319.729, -6.7, 0.624)
pt3dadd(-21.542, 319.837, -6.7, 0.642)
pt3dadd(-21.575, 319.952, -6.7, 0.662)
pt3dadd(-21.6, 320.07, -6.701, 0.682)
pt3dadd(-21.6, 320.189, -6.705, 0.7)
pt3dadd(-21.6, 320.309, -6.709, 0.716)
pt3dadd(-21.6, 320.416, -6.737, 0.724)
pt3dadd(-21.6, 320.497, -6.81, 0.712)
pt3dadd(-21.616, 320.57, -6.884, 0.698)
pt3dadd(-21.683, 320.615, -6.958, 0.672)
pt3dadd(-21.75, 320.659, -7.032, 0.648)
pt3dadd(-21.815, 320.718, -7.092, 0.614)
pt3dadd(-21.872, 320.821, -7.102, 0.552)
pt3dadd(-21.929, 320.923, -7.121, 0.478)
pt3dadd(-21.97, 321.023, -7.164, 0.42)
pt3dadd(-22.007, 321.128, -7.199, 0.41)
pt3dadd(-22.045, 321.234, -7.233, 0.398)
pt3dadd(-22.084, 321.341, -7.268, 0.388)
pt3dadd(-22.122, 321.448, -7.3, 0.378)
pt3dadd(-22.157, 321.562, -7.305, 0.4)
pt3dadd(-22.19, 321.677, -7.31, 0.422)
pt3dadd(-22.2, 321.757, -7.372, 0.462)
pt3dadd(-22.2, 321.824, -7.454, 0.508)
pt3dadd(-22.2, 321.911, -7.522, 0.568)
pt3dadd(-22.2, 322.009, -7.578, 0.638)
pt3dadd(-22.232, 322.099, -7.63, 0.708)
pt3dadd(-22.308, 322.175, -7.674, 0.78)
pt3dadd(-22.414, 322.2, -7.693, 0.822)
pt3dadd(-22.534, 322.2, -7.699, 0.848)
pt3dadd(-22.648, 322.214, -7.724, 0.836)
pt3dadd(-22.759, 322.232, -7.755, 0.812)
pt3dadd(-22.865, 322.278, -7.778, 0.762)
pt3dadd(-22.967, 322.339, -7.794, 0.7)
pt3dadd(-23.051, 322.422, -7.8, 0.638)
pt3dadd(-23.125, 322.516, -7.8, 0.58)
pt3dadd(-23.196, 322.607, -7.82, 0.538)
pt3dadd(-23.262, 322.697, -7.857, 0.51)
pt3dadd(-23.328, 322.79, -7.886, 0.518)
pt3dadd(-23.387, 322.892, -7.9, 0.536)
pt3dadd(-23.441, 322.999, -7.9, 0.556)
pt3dadd(-23.494, 323.107, -7.9, 0.576)
pt3dadd(-23.548, 323.214, -7.9, 0.594)
pt3dadd(-23.6, 323.322, -7.9, 0.614)
pt3dadd(-23.654, 323.429, -7.9, 0.636)
pt3dadd(-23.708, 323.537, -7.9, 0.67)
pt3dadd(-23.762, 323.644, -7.9, 0.704)
pt3dadd(-23.837, 323.737, -7.9, 0.716)
pt3dadd(-23.912, 323.831, -7.9, 0.728)
pt3dadd(-24.026, 323.855, -7.904, 0.71)
pt3dadd(-24.145, 323.869, -7.908, 0.692)
pt3dadd(-24.253, 323.894, -7.931, 0.664)
pt3dadd(-24.335, 323.94, -7.993, 0.622)
pt3dadd(-24.41, 324.01, -8.038, 0.59)
pt3dadd(-24.48, 324.101, -8.067, 0.564)
pt3dadd(-24.55, 324.192, -8.096, 0.54)
pt3dadd(-24.612, 324.282, -8.135, 0.508)
pt3dadd(-24.665, 324.372, -8.185, 0.466)
pt3dadd(-24.72, 324.421, -8.258, 0.438)
pt3dadd(-24.779, 324.454, -8.341, 0.418)
pt3dadd(-24.828, 324.491, -8.425, 0.402)
pt3dadd(-24.834, 324.554, -8.51, 0.402)
pt3dadd(-24.842, 324.62, -8.589, 0.402)
pt3dadd(-24.871, 324.737, -8.593, 0.41)
pt3dadd(-24.9, 324.853, -8.596, 0.418)
pt3dadd(-24.93, 324.97, -8.6, 0.426)
pt3dadd(-25.003, 325.062, -8.6, 0.438)
pt3dadd(-25.085, 325.15, -8.6, 0.448)
pt3dadd(-25.165, 325.24, -8.6, 0.452)
pt3dadd(-25.246, 325.328, -8.6, 0.452)
pt3dadd(-25.325, 325.418, -8.6, 0.452)
pt3dadd(-25.441, 325.435, -8.6, 0.468)
pt3dadd(-25.56, 325.445, -8.6, 0.486)
pt3dadd(-25.68, 325.457, -8.6, 0.512)
pt3dadd(-25.783, 325.508, -8.6, 0.592)
pt3dadd(-25.858, 325.602, -8.6, 0.638)
pt3dadd(-25.936, 325.692, -8.6, 0.68)
pt3dadd(-26.029, 325.768, -8.6, 0.692)
pt3dadd(-26.123, 325.841, -8.602, 0.704)
pt3dadd(-26.207, 325.895, -8.659, 0.704)
pt3dadd(-26.268, 325.962, -8.713, 0.7)
pt3dadd(-26.275, 326.068, -8.759, 0.688)
pt3dadd(-26.285, 326.174, -8.804, 0.678)
pt3dadd(-26.327, 326.28, -8.835, 0.678)
pt3dadd(-26.368, 326.387, -8.865, 0.678)
pt3dadd(-26.408, 326.494, -8.896, 0.678)
pt3dadd(-26.504, 326.518, -8.943, 0.678)
pt3dadd(-26.609, 326.531, -8.991, 0.678)
pt3dadd(-26.642, 326.564, -9.077, 0.648)
pt3dadd(-26.662, 326.61, -9.168, 0.612)
pt3dadd(-26.683, 326.657, -9.257, 0.574)
pt3dadd(-26.776, 326.728, -9.28, 0.508)
pt3dadd(-26.868, 326.8, -9.3, 0.444)
pt3dadd(-26.956, 326.882, -9.3, 0.398)
pt3dadd(-27.044, 326.963, -9.3, 0.352)
pt3dadd(-27.148, 327.024, -9.3, 0.352)
pt3dadd(-27.251, 327.084, -9.3, 0.352)
pt3dadd(-27.322, 327.18, -9.3, 0.426)
pt3dadd(-27.379, 327.284, -9.3, 0.508)
pt3dadd(-27.425, 327.395, -9.3, 0.584)
pt3dadd(-27.474, 327.505, -9.3, 0.66)
pt3dadd(-27.534, 327.608, -9.3, 0.73)
pt3dadd(-27.595, 327.712, -9.3, 0.798)
pt3dadd(-27.689, 327.785, -9.305, 0.838)
pt3dadd(-27.786, 327.856, -9.31, 0.874)
pt3dadd(-27.858, 327.912, -9.37, 0.878)
pt3dadd(-27.923, 327.96, -9.442, 0.876)
pt3dadd(-27.956, 327.96, -9.538, 0.846)
pt3dadd(-28.012, 327.96, -9.623, 0.8)
pt3dadd(-28.093, 327.96, -9.696, 0.742)
pt3dadd(-28.176, 327.962, -9.769, 0.678)
pt3dadd(-28.261, 327.968, -9.839, 0.604)
pt3dadd(-28.346, 327.991, -9.902, 0.532)
pt3dadd(-28.436, 328.051, -9.946, 0.46)
pt3dadd(-28.511, 328.133, -9.976, 0.44)
pt3dadd(-28.572, 328.235, -9.992, 0.466)
pt3dadd(-28.625, 328.34, -10.004, 0.572)
pt3dadd(-28.67, 328.451, -10.015, 0.734)
pt3dadd(-28.703, 328.554, -10.057, 0.802)
pt3dadd(-28.735, 328.658, -10.099, 0.868)
pt3dadd(-28.768, 328.762, -10.141, 0.936)
pt3dadd(-28.8, 328.866, -10.183, 1.004)
pt3dadd(-28.846, 328.963, -10.227, 1.056)
pt3dadd(-28.901, 329.056, -10.273, 1.098)
pt3dadd(-28.955, 329.148, -10.318, 1.14)
pt3dadd(-29.009, 329.24, -10.363, 1.182)
}
}
proc shape3d_28() {
dend_5[9] { pt3dadd(-29.071, 329.33, -10.4, 1.198)
pt3dadd(-29.146, 329.42, -10.425, 1.18)
pt3dadd(-29.219, 329.509, -10.451, 1.164)
pt3dadd(-29.293, 329.599, -10.477, 1.146)
pt3dadd(-29.366, 329.687, -10.505, 1.126)
pt3dadd(-29.436, 329.762, -10.557, 1.09)
pt3dadd(-29.504, 329.838, -10.609, 1.052)
pt3dadd(-29.574, 329.914, -10.661, 1.014)
pt3dadd(-29.642, 329.99, -10.713, 0.976)
pt3dadd(-29.711, 330.073, -10.757, 0.89)
pt3dadd(-29.76, 330.166, -10.795, 0.824)
pt3dadd(-29.76, 330.283, -10.817, 0.802)
pt3dadd(-29.76, 330.4, -10.839, 0.784)
pt3dadd(-29.796, 330.448, -10.913, 0.768)
pt3dadd(-29.843, 330.474, -11.002, 0.756)
pt3dadd(-29.941, 330.485, -11.049, 0.754)
pt3dadd(-30.054, 330.491, -11.084, 0.754)
pt3dadd(-30.13, 330.542, -11.127, 0.754)
pt3dadd(-30.174, 330.635, -11.179, 0.754)
pt3dadd(-30.218, 330.727, -11.23, 0.754)
pt3dadd(-30.262, 330.824, -11.277, 0.74)
pt3dadd(-30.305, 330.924, -11.318, 0.712)
pt3dadd(-30.347, 331.004, -11.38, 0.652)
pt3dadd(-30.353, 331.106, -11.433, 0.64)
pt3dadd(-30.36, 331.208, -11.486, 0.628)
pt3dadd(-30.366, 331.309, -11.539, 0.65)
pt3dadd(-30.372, 331.411, -11.592, 0.674)
pt3dadd(-30.41, 331.438, -11.679, 0.708)
pt3dadd(-30.454, 331.45, -11.771, 0.742)
pt3dadd(-30.47, 331.482, -11.865, 0.768)
pt3dadd(-30.476, 331.523, -11.958, 0.792)
pt3dadd(-30.48, 331.59, -12.035, 0.812)
pt3dadd(-30.48, 331.69, -12.091, 0.834)
pt3dadd(-30.48, 331.79, -12.146, 0.854)
pt3dadd(-30.48, 331.89, -12.202, 0.876)
pt3dadd(-30.485, 331.96, -12.281, 0.898)
pt3dadd(-30.492, 332.023, -12.366, 0.922)
pt3dadd(-30.52, 332.054, -12.457, 1.004)
pt3dadd(-30.538, 332.137, -12.528, 1.01)
pt3dadd(-30.556, 332.22, -12.599, 1.016)
pt3dadd(-30.574, 332.302, -12.67, 1.022)
pt3dadd(-30.59, 332.384, -12.742, 1.026)
pt3dadd(-30.6, 332.454, -12.821, 1.032)
pt3dadd(-30.6, 332.512, -12.909, 1.036)
pt3dadd(-30.6, 332.568, -12.997, 1.042)
pt3dadd(-30.6, 332.624, -13.085, 1.046)
pt3dadd(-30.6, 332.682, -13.173, 1.052)
pt3dadd(-30.6, 332.737, -13.262, 1.052)
pt3dadd(-30.6, 332.791, -13.351, 1.04)
pt3dadd(-30.6, 332.844, -13.441, 1.028)
pt3dadd(-30.6, 332.882, -13.536, 1.006)
pt3dadd(-30.6, 332.922, -13.63, 0.984)
pt3dadd(-30.6, 333.013, -13.684, 0.964)
pt3dadd(-30.6, 333.125, -13.723, 0.942)
pt3dadd(-30.6, 333.226, -13.774, 0.918)
pt3dadd(-30.6, 333.313, -13.842, 0.896)
pt3dadd(-30.6, 333.41, -13.893, 0.874)
pt3dadd(-30.6, 333.529, -13.905, 0.86)
pt3dadd(-30.611, 333.634, -13.945, 0.856)
pt3dadd(-30.631, 333.722, -14.009, 0.862)
pt3dadd(-30.653, 333.811, -14.074, 0.868)
pt3dadd(-30.673, 333.901, -14.138, 0.874)
pt3dadd(-30.695, 333.99, -14.203, 0.88)
pt3dadd(-30.73, 334.064, -14.276, 0.898)
pt3dadd(-30.763, 334.14, -14.349, 0.914)
pt3dadd(-30.798, 334.214, -14.421, 0.932)
pt3dadd(-30.832, 334.289, -14.494, 0.95)
pt3dadd(-30.888, 334.327, -14.574, 0.962)
pt3dadd(-30.95, 334.355, -14.656, 0.974)
pt3dadd(-31.014, 334.381, -14.739, 0.986)
pt3dadd(-31.076, 334.408, -14.821, 0.996)
pt3dadd(-31.134, 334.446, -14.901, 1)
pt3dadd(-31.182, 334.511, -14.975, 0.988)
pt3dadd(-31.23, 334.574, -15.05, 0.976)
pt3dadd(-31.278, 334.638, -15.124, 0.964)
pt3dadd(-31.32, 334.698, -15.202, 0.952)
pt3dadd(-31.32, 334.738, -15.296, 0.934)
pt3dadd(-31.32, 334.776, -15.391, 0.916)
pt3dadd(-31.32, 334.814, -15.486, 0.898)
pt3dadd(-31.32, 334.853, -15.58, 0.878)
pt3dadd(-31.32, 334.892, -15.675, 0.86)
pt3dadd(-31.32, 334.934, -15.769, 0.848)
pt3dadd(-31.32, 334.979, -15.862, 0.838)
pt3dadd(-31.32, 335.023, -15.954, 0.83)
pt3dadd(-31.32, 335.068, -16.047, 0.82)
pt3dadd(-31.32, 335.113, -16.14, 0.81)
pt3dadd(-31.32, 335.152, -16.234, 0.804)
pt3dadd(-31.32, 335.174, -16.332, 0.804)
pt3dadd(-31.32, 335.196, -16.431, 0.804)
pt3dadd(-31.32, 335.219, -16.529, 0.804)
pt3dadd(-31.32, 335.24, -16.627, 0.804)
pt3dadd(-31.32, 335.263, -16.726, 0.804)
pt3dadd(-31.32, 335.29, -16.823, 0.808)
pt3dadd(-31.32, 335.332, -16.917, 0.82)
pt3dadd(-31.32, 335.374, -17.01, 0.834)
pt3dadd(-31.32, 335.414, -17.104, 0.848)
pt3dadd(-31.32, 335.456, -17.198, 0.862)
pt3dadd(-31.32, 335.498, -17.292, 0.876)
pt3dadd(-31.32, 335.538, -17.386, 0.904)
pt3dadd(-31.32, 335.578, -17.48, 0.936)
pt3dadd(-31.32, 335.609, -17.576, 0.976)
pt3dadd(-31.32, 335.629, -17.675, 1.024)
pt3dadd(-31.32, 335.65, -17.774, 1.072)
pt3dadd(-31.32, 335.705, -17.862, 1.118)
pt3dadd(-31.32, 335.765, -17.948, 1.164)
pt3dadd(-31.32, 335.854, -18.011, 1.21)
pt3dadd(-31.32, 335.958, -18.062, 1.256)
pt3dadd(-31.32, 336.068, -18.095, 1.294)
pt3dadd(-31.32, 336.187, -18.107, 1.322)
pt3dadd(-31.32, 336.281, -18.16, 1.33)
pt3dadd(-31.32, 336.362, -18.233, 1.33)
pt3dadd(-31.324, 336.443, -18.308, 1.324)
pt3dadd(-31.33, 336.521, -18.384, 1.312)
pt3dadd(-31.36, 336.605, -18.447, 1.298)
pt3dadd(-31.411, 336.694, -18.497, 1.284)
pt3dadd(-31.47, 336.784, -18.542, 1.27)
pt3dadd(-31.53, 336.874, -18.586, 1.256)
pt3dadd(-31.616, 336.954, -18.597, 1.204)
pt3dadd(-31.69, 337.048, -18.6, 1.14)
pt3dadd(-31.75, 337.151, -18.6, 1.072)
pt3dadd(-31.789, 337.261, -18.6, 1.008)
pt3dadd(-31.793, 337.381, -18.6, 0.956)
pt3dadd(-31.798, 337.501, -18.6, 0.904)
pt3dadd(-31.8, 337.614, -18.623, 0.856)
pt3dadd(-31.8, 337.722, -18.667, 0.812)
pt3dadd(-31.8, 337.824, -18.718, 0.778)
pt3dadd(-31.8, 337.912, -18.786, 0.778)
pt3dadd(-31.804, 338, -18.853, 0.78)
pt3dadd(-31.829, 338.093, -18.913, 0.796)
pt3dadd(-31.854, 338.186, -18.973, 0.812)
pt3dadd(-31.88, 338.279, -19.032, 0.828)
pt3dadd(-31.946, 338.368, -19.07, 0.856)
pt3dadd(-32.008, 338.461, -19.103, 0.872)
pt3dadd(-32.04, 338.561, -19.143, 0.842)
pt3dadd(-32.068, 338.646, -19.209, 0.82)
pt3dadd(-32.095, 338.732, -19.275, 0.796)
pt3dadd(-32.123, 338.818, -19.342, 0.774)
pt3dadd(-32.153, 338.902, -19.409, 0.748)
pt3dadd(-32.201, 338.969, -19.481, 0.712)
pt3dadd(-32.249, 339.036, -19.553, 0.676)
pt3dadd(-32.297, 339.103, -19.625, 0.64)
pt3dadd(-32.346, 339.17, -19.698, 0.604)
pt3dadd(-32.36, 339.247, -19.773, 0.566)
pt3dadd(-32.374, 339.325, -19.849, 0.528)
pt3dadd(-32.387, 339.402, -19.924, 0.49)
pt3dadd(-32.4, 339.48, -20, 0.452)
}
dend_5[10] {pt3dclear()
pt3dadd(-8.2, 283.294, -5.711, 0.652)
pt3dadd(-8.216, 283.301, -5.711, 0.666)
pt3dadd(-8.324, 283.354, -5.709, 0.75)
pt3dadd(-8.432, 283.405, -5.707, 0.836)
pt3dadd(-8.54, 283.457, -5.705, 0.92)
pt3dadd(-8.65, 283.508, -5.703, 1.006)
pt3dadd(-8.758, 283.56, -5.701, 1.09)
pt3dadd(-8.864, 283.614, -5.7, 1.162)
pt3dadd(-8.966, 283.678, -5.7, 1.192)
pt3dadd(-9.068, 283.74, -5.7, 1.222)
pt3dadd(-9.17, 283.804, -5.7, 1.25)
pt3dadd(-9.272, 283.866, -5.7, 1.28)
pt3dadd(-9.373, 283.931, -5.7, 1.304)
pt3dadd(-9.467, 284.006, -5.7, 1.294)
pt3dadd(-9.562, 284.081, -5.7, 1.284)
pt3dadd(-9.655, 284.155, -5.7, 1.274)
pt3dadd(-9.749, 284.231, -5.7, 1.264)
pt3dadd(-9.842, 284.305, -5.7, 1.252)
pt3dadd(-9.938, 284.377, -5.7, 1.226)
pt3dadd(-10.034, 284.449, -5.7, 1.202)
pt3dadd(-10.13, 284.521, -5.7, 1.176)
pt3dadd(-10.226, 284.593, -5.7, 1.152)
pt3dadd(-10.322, 284.666, -5.7, 1.124)
pt3dadd(-10.414, 284.744, -5.7, 1.082)
pt3dadd(-10.505, 284.821, -5.7, 1.042)
pt3dadd(-10.596, 284.899, -5.7, 1.002)
pt3dadd(-10.687, 284.977, -5.7, 0.962)
pt3dadd(-10.771, 285.061, -5.7, 0.926)
pt3dadd(-10.825, 285.168, -5.7, 0.912)
pt3dadd(-10.878, 285.276, -5.7, 0.898)
pt3dadd(-10.932, 285.383, -5.7, 0.882)
pt3dadd(-10.985, 285.491, -5.7, 0.868)
pt3dadd(-11.039, 285.598, -5.7, 0.854)
pt3dadd(-11.099, 285.702, -5.7, 0.844)
pt3dadd(-11.159, 285.806, -5.7, 0.834)
pt3dadd(-11.219, 285.91, -5.7, 0.824)
pt3dadd(-11.279, 286.014, -5.7, 0.814)
pt3dadd(-11.339, 286.117, -5.7, 0.806)
pt3dadd(-11.387, 286.226, -5.688, 0.804)
pt3dadd(-11.434, 286.336, -5.675, 0.804)
pt3dadd(-11.479, 286.446, -5.661, 0.804)
pt3dadd(-11.526, 286.555, -5.647, 0.804)
pt3dadd(-11.572, 286.664, -5.634, 0.804)
pt3dadd(-11.662, 286.744, -5.626, 0.794)
pt3dadd(-11.752, 286.823, -5.619, 0.782)
pt3dadd(-11.842, 286.901, -5.612, 0.772)
pt3dadd(-11.932, 286.98, -5.605, 0.762)
pt3dadd(-12.013, 287.065, -5.595, 0.75)
pt3dadd(-12.068, 287.17, -5.576, 0.74)
pt3dadd(-12.124, 287.273, -5.557, 0.728)
pt3dadd(-12.178, 287.377, -5.537, 0.718)
pt3dadd(-12.233, 287.482, -5.518, 0.708)
pt3dadd(-12.284, 287.586, -5.496, 0.704)
pt3dadd(-12.335, 287.692, -5.471, 0.704)
}
}
proc shape3d_29() {
dend_5[10] { pt3dadd(-12.384, 287.797, -5.447, 0.704)
pt3dadd(-12.433, 287.902, -5.423, 0.704)
pt3dadd(-12.484, 288.007, -5.4, 0.704)
pt3dadd(-12.528, 288.119, -5.4, 0.718)
pt3dadd(-12.572, 288.23, -5.4, 0.732)
pt3dadd(-12.617, 288.342, -5.4, 0.746)
pt3dadd(-12.661, 288.454, -5.4, 0.76)
pt3dadd(-12.706, 288.565, -5.4, 0.774)
pt3dadd(-12.734, 288.682, -5.4, 0.798)
pt3dadd(-12.755, 288.799, -5.4, 0.828)
pt3dadd(-12.782, 288.91, -5.4, 0.856)
pt3dadd(-12.9, 288.936, -5.4, 0.886)
pt3dadd(-13.018, 288.962, -5.4, 0.916)
pt3dadd(-13.11, 289.02, -5.378, 0.93)
pt3dadd(-13.184, 289.103, -5.341, 0.93)
pt3dadd(-13.217, 289.196, -5.288, 0.918)
pt3dadd(-13.237, 289.292, -5.231, 0.906)
pt3dadd(-13.286, 289.344, -5.153, 0.852)
pt3dadd(-13.351, 289.416, -5.104, 0.814)
pt3dadd(-13.423, 289.506, -5.076, 0.79)
pt3dadd(-13.494, 289.597, -5.047, 0.768)
pt3dadd(-13.565, 289.687, -5.019, 0.744)
pt3dadd(-13.642, 289.775, -5, 0.724)
pt3dadd(-13.728, 289.859, -5, 0.708)
pt3dadd(-13.814, 289.942, -5, 0.692)
pt3dadd(-13.901, 290.026, -5, 0.678)
pt3dadd(-13.987, 290.108, -5, 0.662)
pt3dadd(-14.072, 290.192, -5, 0.65)
pt3dadd(-14.159, 290.275, -5, 0.646)
pt3dadd(-14.245, 290.359, -5, 0.64)
pt3dadd(-14.332, 290.442, -5, 0.636)
pt3dadd(-14.418, 290.525, -5, 0.63)
pt3dadd(-14.506, 290.606, -4.99, 0.636)
pt3dadd(-14.594, 290.682, -4.967, 0.652)
pt3dadd(-14.682, 290.759, -4.944, 0.67)
pt3dadd(-14.771, 290.834, -4.922, 0.688)
pt3dadd(-14.858, 290.911, -4.899, 0.704)
pt3dadd(-14.941, 290.998, -4.884, 0.726)
pt3dadd(-15.024, 291.083, -4.87, 0.748)
pt3dadd(-15.106, 291.168, -4.855, 0.772)
pt3dadd(-15.188, 291.253, -4.84, 0.794)
pt3dadd(-15.256, 291.35, -4.826, 0.812)
pt3dadd(-15.308, 291.456, -4.812, 0.828)
pt3dadd(-15.361, 291.563, -4.798, 0.844)
pt3dadd(-15.414, 291.668, -4.784, 0.86)
pt3dadd(-15.467, 291.775, -4.77, 0.876)
pt3dadd(-15.542, 291.865, -4.755, 0.884)
pt3dadd(-15.625, 291.95, -4.741, 0.888)
pt3dadd(-15.708, 292.037, -4.726, 0.894)
pt3dadd(-15.79, 292.122, -4.711, 0.9)
pt3dadd(-15.88, 292.198, -4.7, 0.904)
pt3dadd(-15.99, 292.244, -4.7, 0.904)
pt3dadd(-16.1, 292.291, -4.7, 0.904)
pt3dadd(-16.205, 292.351, -4.7, 0.904)
pt3dadd(-16.308, 292.412, -4.7, 0.904)
pt3dadd(-16.414, 292.463, -4.683, 0.894)
pt3dadd(-16.522, 292.51, -4.661, 0.882)
pt3dadd(-16.601, 292.542, -4.597, 0.848)
pt3dadd(-16.672, 292.57, -4.52, 0.808)
pt3dadd(-16.741, 292.621, -4.451, 0.766)
pt3dadd(-16.81, 292.676, -4.382, 0.722)
pt3dadd(-16.878, 292.73, -4.314, 0.68)
pt3dadd(-16.898, 292.838, -4.275, 0.608)
pt3dadd(-16.918, 292.948, -4.237, 0.536)
pt3dadd(-16.921, 293.056, -4.194, 0.422)
pt3dadd(-16.927, 293.165, -4.154, 0.388)
pt3dadd(-16.933, 293.275, -4.113, 0.354)
pt3dadd(-16.98, 293.384, -4.106, 0.352)
pt3dadd(-17.028, 293.494, -4.101, 0.352)
pt3dadd(-17.092, 293.596, -4.1, 0.36)
pt3dadd(-17.159, 293.694, -4.1, 0.372)
pt3dadd(-17.239, 293.783, -4.1, 0.398)
pt3dadd(-17.328, 293.864, -4.1, 0.434)
pt3dadd(-17.422, 293.938, -4.1, 0.476)
pt3dadd(-17.522, 294.002, -4.1, 0.528)
pt3dadd(-17.614, 294.08, -4.1, 0.538)
pt3dadd(-17.706, 294.158, -4.1, 0.548)
pt3dadd(-17.797, 294.236, -4.1, 0.558)
pt3dadd(-17.888, 294.313, -4.1, 0.568)
pt3dadd(-17.98, 294.392, -4.1, 0.578)
pt3dadd(-18.065, 294.475, -4.1, 0.594)
pt3dadd(-18.151, 294.559, -4.1, 0.61)
pt3dadd(-18.238, 294.643, -4.1, 0.624)
pt3dadd(-18.323, 294.726, -4.1, 0.64)
pt3dadd(-18.41, 294.809, -4.1, 0.654)
pt3dadd(-18.504, 294.884, -4.1, 0.67)
pt3dadd(-18.598, 294.959, -4.1, 0.684)
pt3dadd(-18.691, 295.033, -4.1, 0.7)
pt3dadd(-18.785, 295.109, -4.1, 0.716)
pt3dadd(-18.876, 295.186, -4.1, 0.732)
pt3dadd(-18.952, 295.28, -4.1, 0.762)
pt3dadd(-19.026, 295.374, -4.1, 0.792)
pt3dadd(-19.102, 295.468, -4.1, 0.824)
pt3dadd(-19.176, 295.561, -4.1, 0.854)
pt3dadd(-19.246, 295.657, -4.1, 0.888)
pt3dadd(-19.285, 295.771, -4.1, 0.952)
pt3dadd(-19.325, 295.884, -4.1, 1.016)
pt3dadd(-19.366, 295.998, -4.1, 1.08)
pt3dadd(-19.405, 296.111, -4.1, 1.144)
pt3dadd(-19.447, 296.222, -4.1, 1.19)
pt3dadd(-19.494, 296.333, -4.1, 1.212)
pt3dadd(-19.55, 296.434, -4.1, 1.228)
pt3dadd(-19.662, 296.48, -4.1, 1.218)
pt3dadd(-19.772, 296.527, -4.1, 1.206)
pt3dadd(-19.879, 296.58, -4.1, 1.176)
pt3dadd(-19.986, 296.636, -4.1, 1.146)
pt3dadd(-20.089, 296.698, -4.1, 1.124)
pt3dadd(-20.191, 296.76, -4.1, 1.1)
pt3dadd(-20.291, 296.827, -4.1, 1.078)
pt3dadd(-20.388, 296.897, -4.099, 1.054)
pt3dadd(-20.434, 297.006, -4.083, 1.004)
pt3dadd(-20.478, 297.115, -4.067, 0.956)
pt3dadd(-20.5, 297.217, -4.018, 0.906)
pt3dadd(-20.52, 297.319, -3.968, 0.854)
pt3dadd(-20.52, 297.413, -3.905, 0.784)
pt3dadd(-20.532, 297.518, -3.87, 0.746)
pt3dadd(-20.555, 297.636, -3.855, 0.732)
pt3dadd(-20.578, 297.752, -3.841, 0.718)
pt3dadd(-20.599, 297.869, -3.826, 0.704)
pt3dadd(-20.622, 297.985, -3.812, 0.69)
pt3dadd(-20.644, 298.103, -3.8, 0.676)
pt3dadd(-20.66, 298.222, -3.8, 0.668)
pt3dadd(-20.678, 298.34, -3.8, 0.66)
pt3dadd(-20.695, 298.459, -3.8, 0.652)
pt3dadd(-20.712, 298.578, -3.8, 0.644)
pt3dadd(-20.73, 298.696, -3.8, 0.636)
pt3dadd(-20.748, 298.814, -3.8, 0.628)
pt3dadd(-20.795, 298.925, -3.8, 0.632)
pt3dadd(-20.843, 299.035, -3.8, 0.638)
pt3dadd(-20.89, 299.146, -3.8, 0.642)
pt3dadd(-20.938, 299.256, -3.8, 0.646)
pt3dadd(-20.986, 299.365, -3.8, 0.652)
pt3dadd(-21.004, 299.483, -3.8, 0.666)
pt3dadd(-21.01, 299.603, -3.8, 0.684)
pt3dadd(-21.016, 299.723, -3.8, 0.704)
pt3dadd(-21.022, 299.842, -3.8, 0.722)
pt3dadd(-21.028, 299.962, -3.8, 0.742)
pt3dadd(-21.034, 300.082, -3.8, 0.76)
pt3dadd(-21.04, 300.202, -3.8, 0.778)
pt3dadd(-21.091, 300.311, -3.8, 0.812)
pt3dadd(-21.142, 300.419, -3.8, 0.846)
pt3dadd(-21.192, 300.528, -3.8, 0.878)
pt3dadd(-21.244, 300.636, -3.8, 0.912)
pt3dadd(-21.294, 300.745, -3.8, 0.946)
pt3dadd(-21.371, 300.835, -3.8, 0.974)
pt3dadd(-21.457, 300.919, -3.8, 0.998)
pt3dadd(-21.544, 301.002, -3.8, 1.024)
pt3dadd(-21.63, 301.086, -3.8, 1.05)
pt3dadd(-21.715, 301.17, -3.8, 1.074)
pt3dadd(-21.769, 301.276, -3.8, 1.088)
pt3dadd(-21.814, 301.387, -3.8, 1.096)
pt3dadd(-21.858, 301.498, -3.8, 1.106)
pt3dadd(-21.902, 301.609, -3.8, 1.116)
pt3dadd(-21.947, 301.721, -3.8, 1.124)
pt3dadd(-21.99, 301.832, -3.8, 1.126)
pt3dadd(-22.032, 301.945, -3.8, 1.118)
pt3dadd(-22.074, 302.058, -3.8, 1.108)
pt3dadd(-22.115, 302.171, -3.8, 1.098)
pt3dadd(-22.157, 302.284, -3.8, 1.09)
pt3dadd(-22.199, 302.395, -3.8, 1.08)
pt3dadd(-22.243, 302.507, -3.8, 1.062)
pt3dadd(-22.288, 302.618, -3.8, 1.044)
pt3dadd(-22.332, 302.73, -3.8, 1.024)
pt3dadd(-22.376, 302.842, -3.8, 1.006)
pt3dadd(-22.421, 302.953, -3.8, 0.988)
pt3dadd(-22.465, 303.064, -3.8, 0.966)
pt3dadd(-22.511, 303.175, -3.8, 0.942)
pt3dadd(-22.555, 303.287, -3.8, 0.92)
pt3dadd(-22.6, 303.398, -3.8, 0.896)
pt3dadd(-22.644, 303.51, -3.8, 0.872)
pt3dadd(-22.682, 303.623, -3.8, 0.85)
pt3dadd(-22.698, 303.742, -3.8, 0.832)
pt3dadd(-22.712, 303.86, -3.8, 0.812)
pt3dadd(-22.736, 303.978, -3.798, 0.814)
pt3dadd(-22.771, 304.092, -3.793, 0.836)
pt3dadd(-22.813, 304.2, -3.781, 0.864)
pt3dadd(-22.89, 304.277, -3.737, 0.922)
pt3dadd(-22.976, 304.348, -3.709, 0.97)
pt3dadd(-23.078, 304.41, -3.704, 1.006)
pt3dadd(-23.158, 304.49, -3.7, 1.024)
pt3dadd(-23.19, 304.607, -3.7, 1.008)
pt3dadd(-23.242, 304.714, -3.7, 0.99)
pt3dadd(-23.302, 304.818, -3.7, 0.97)
pt3dadd(-23.362, 304.921, -3.7, 0.952)
pt3dadd(-23.422, 305.026, -3.7, 0.932)
pt3dadd(-23.482, 305.13, -3.7, 0.912)
pt3dadd(-23.521, 305.24, -3.693, 0.888)
pt3dadd(-23.546, 305.357, -3.68, 0.86)
pt3dadd(-23.57, 305.473, -3.668, 0.832)
pt3dadd(-23.596, 305.59, -3.656, 0.804)
pt3dadd(-23.621, 305.707, -3.643, 0.776)
pt3dadd(-23.652, 305.82, -3.627, 0.748)
pt3dadd(-23.71, 305.917, -3.596, 0.718)
pt3dadd(-23.768, 306.016, -3.566, 0.69)
pt3dadd(-23.826, 306.114, -3.535, 0.66)
pt3dadd(-23.885, 306.212, -3.504, 0.632)
pt3dadd(-23.922, 306.299, -3.444, 0.612)
pt3dadd(-23.957, 306.383, -3.379, 0.596)
pt3dadd(-23.992, 306.468, -3.314, 0.578)
pt3dadd(-24.025, 306.552, -3.249, 0.56)
}
}
proc shape3d_30() {
dend_5[10] { pt3dadd(-24.094, 306.604, -3.188, 0.544)
pt3dadd(-24.186, 306.631, -3.128, 0.532)
pt3dadd(-24.258, 306.712, -3.107, 0.536)
pt3dadd(-24.322, 306.814, -3.102, 0.548)
pt3dadd(-24.349, 306.926, -3.1, 0.558)
pt3dadd(-24.354, 307.046, -3.1, 0.566)
pt3dadd(-24.359, 307.166, -3.1, 0.576)
pt3dadd(-24.36, 307.286, -3.1, 0.596)
pt3dadd(-24.36, 307.406, -3.1, 0.62)
pt3dadd(-24.36, 307.526, -3.1, 0.646)
pt3dadd(-24.383, 307.643, -3.1, 0.664)
pt3dadd(-24.419, 307.757, -3.1, 0.678)
pt3dadd(-24.479, 307.861, -3.1, 0.684)
pt3dadd(-24.539, 307.964, -3.1, 0.688)
pt3dadd(-24.599, 308.069, -3.1, 0.694)
pt3dadd(-24.659, 308.173, -3.1, 0.698)
pt3dadd(-24.718, 308.276, -3.1, 0.702)
pt3dadd(-24.794, 308.365, -3.078, 0.692)
pt3dadd(-24.87, 308.454, -3.055, 0.68)
pt3dadd(-24.947, 308.543, -3.032, 0.668)
pt3dadd(-25.024, 308.63, -3.009, 0.658)
pt3dadd(-25.074, 308.734, -2.985, 0.652)
pt3dadd(-25.106, 308.844, -2.959, 0.652)
pt3dadd(-25.14, 308.956, -2.934, 0.652)
pt3dadd(-25.174, 309.067, -2.908, 0.652)
pt3dadd(-25.206, 309.178, -2.883, 0.652)
pt3dadd(-25.256, 309.276, -2.844, 0.652)
pt3dadd(-25.309, 309.371, -2.802, 0.652)
pt3dadd(-25.363, 309.466, -2.76, 0.652)
pt3dadd(-25.417, 309.559, -2.718, 0.652)
pt3dadd(-25.458, 309.652, -2.664, 0.656)
pt3dadd(-25.488, 309.74, -2.603, 0.662)
pt3dadd(-25.519, 309.83, -2.541, 0.668)
pt3dadd(-25.55, 309.919, -2.48, 0.674)
pt3dadd(-25.588, 310.008, -2.421, 0.678)
pt3dadd(-25.646, 310.096, -2.373, 0.678)
pt3dadd(-25.704, 310.183, -2.324, 0.678)
pt3dadd(-25.763, 310.27, -2.276, 0.678)
pt3dadd(-25.819, 310.357, -2.226, 0.678)
pt3dadd(-25.876, 310.423, -2.161, 0.678)
pt3dadd(-25.934, 310.44, -2.076, 0.678)
pt3dadd(-25.992, 310.451, -1.989, 0.658)
pt3dadd(-26.064, 310.498, -1.923, 0.57)
pt3dadd(-26.167, 310.549, -1.913, 0.478)
pt3dadd(-26.256, 310.602, -1.958, 0.514)
pt3dadd(-26.28, 310.7, -2.008, 0.616)
pt3dadd(-26.28, 310.808, -2.053, 0.638)
pt3dadd(-26.28, 310.921, -2.086, 0.54)
pt3dadd(-26.28, 311.04, -2.092, 0.478)
pt3dadd(-26.28, 311.16, -2.096, 0.424)
pt3dadd(-26.28, 311.28, -2.1, 0.362)
pt3dadd(-26.28, 311.4, -2.1, 0.226)
}
dend_5[11] {pt3dclear()
pt3dadd(23.28, 199.813, -2.789, 0.93)
pt3dadd(23.291, 199.861, -2.801, 0.936)
pt3dadd(23.315, 199.973, -2.831, 0.952)
pt3dadd(23.34, 200.086, -2.861, 0.966)
pt3dadd(23.364, 200.197, -2.89, 0.982)
pt3dadd(23.389, 200.309, -2.92, 0.998)
pt3dadd(23.412, 200.424, -2.94, 1.002)
pt3dadd(23.434, 200.54, -2.952, 0.998)
pt3dadd(23.455, 200.658, -2.964, 0.992)
pt3dadd(23.478, 200.774, -2.977, 0.988)
pt3dadd(23.5, 200.892, -2.989, 0.984)
pt3dadd(23.521, 201.01, -3, 0.978)
pt3dadd(23.542, 201.127, -3, 0.966)
pt3dadd(23.561, 201.246, -3, 0.954)
pt3dadd(23.581, 201.365, -3, 0.942)
pt3dadd(23.6, 201.482, -3, 0.928)
pt3dadd(23.62, 201.601, -3, 0.916)
pt3dadd(23.64, 201.719, -3, 0.904)
pt3dadd(23.662, 201.838, -3, 0.892)
pt3dadd(23.684, 201.955, -3, 0.878)
pt3dadd(23.706, 202.073, -3, 0.866)
pt3dadd(23.729, 202.192, -3, 0.854)
pt3dadd(23.75, 202.309, -3, 0.842)
pt3dadd(23.773, 202.427, -3, 0.828)
pt3dadd(23.792, 202.546, -3, 0.816)
pt3dadd(23.813, 202.663, -3, 0.804)
pt3dadd(23.832, 202.782, -3, 0.792)
pt3dadd(23.852, 202.901, -3, 0.78)
pt3dadd(23.872, 203.018, -3, 0.766)
pt3dadd(23.892, 203.137, -3, 0.754)
pt3dadd(23.934, 203.249, -3, 0.758)
pt3dadd(23.978, 203.36, -3, 0.762)
pt3dadd(24.023, 203.472, -3, 0.766)
pt3dadd(24.067, 203.584, -3, 0.772)
pt3dadd(24.113, 203.695, -3, 0.776)
pt3dadd(24.162, 203.803, -3, 0.806)
pt3dadd(24.217, 203.91, -3, 0.856)
pt3dadd(24.299, 203.999, -3, 0.928)
pt3dadd(24.38, 204.086, -3, 0.998)
pt3dadd(24.424, 204.198, -3, 1.014)
pt3dadd(24.463, 204.311, -3, 1.024)
pt3dadd(24.48, 204.428, -3, 1.034)
pt3dadd(24.48, 204.548, -3, 1.042)
pt3dadd(24.48, 204.668, -3, 1.052)
pt3dadd(24.48, 204.788, -3, 1.046)
pt3dadd(24.48, 204.908, -3, 1.028)
pt3dadd(24.48, 205.028, -3, 1.012)
pt3dadd(24.5, 205.145, -3, 1.004)
pt3dadd(24.536, 205.259, -3, 1.004)
pt3dadd(24.572, 205.374, -3, 1.004)
pt3dadd(24.608, 205.488, -3, 1.004)
pt3dadd(24.644, 205.603, -3, 1.004)
pt3dadd(24.679, 205.717, -3, 1.004)
pt3dadd(24.707, 205.835, -3, 0.992)
pt3dadd(24.734, 205.951, -3, 0.978)
pt3dadd(24.762, 206.068, -3, 0.966)
pt3dadd(24.79, 206.185, -3, 0.952)
pt3dadd(24.817, 206.302, -3, 0.94)
pt3dadd(24.84, 206.419, -3, 0.924)
pt3dadd(24.84, 206.539, -3, 0.886)
pt3dadd(24.84, 206.659, -3, 0.85)
pt3dadd(24.84, 206.779, -3, 0.824)
pt3dadd(24.84, 206.899, -3, 0.8)
pt3dadd(24.846, 207.018, -3, 0.78)
pt3dadd(24.886, 207.131, -3, 0.79)
pt3dadd(24.926, 207.245, -3, 0.802)
pt3dadd(24.988, 207.346, -3, 0.842)
pt3dadd(25.056, 207.445, -3, 0.888)
pt3dadd(25.124, 207.544, -3, 0.942)
pt3dadd(25.192, 207.643, -3, 1)
pt3dadd(25.259, 207.743, -3.003, 1.038)
pt3dadd(25.325, 207.842, -3.01, 1.052)
pt3dadd(25.392, 207.941, -3.017, 1.068)
pt3dadd(25.458, 208.042, -3.024, 1.084)
pt3dadd(25.525, 208.141, -3.031, 1.1)
pt3dadd(25.583, 208.244, -3.043, 1.104)
pt3dadd(25.636, 208.351, -3.057, 1.104)
pt3dadd(25.688, 208.457, -3.071, 1.104)
pt3dadd(25.741, 208.564, -3.085, 1.104)
pt3dadd(25.795, 208.669, -3.099, 1.104)
pt3dadd(25.864, 208.765, -3.121, 1.094)
pt3dadd(25.933, 208.859, -3.143, 1.084)
pt3dadd(26.003, 208.952, -3.166, 1.072)
pt3dadd(26.072, 209.046, -3.189, 1.06)
pt3dadd(26.131, 209.148, -3.2, 1.048)
pt3dadd(26.178, 209.258, -3.2, 1.034)
pt3dadd(26.226, 209.368, -3.2, 1.02)
pt3dadd(26.274, 209.478, -3.2, 1.006)
pt3dadd(26.321, 209.588, -3.2, 0.992)
pt3dadd(26.366, 209.7, -3.2, 0.976)
pt3dadd(26.402, 209.814, -3.2, 0.964)
pt3dadd(26.438, 209.929, -3.2, 0.95)
pt3dadd(26.473, 210.043, -3.2, 0.936)
pt3dadd(26.509, 210.158, -3.2, 0.922)
pt3dadd(26.545, 210.272, -3.2, 0.91)
pt3dadd(26.569, 210.389, -3.21, 0.898)
pt3dadd(26.587, 210.505, -3.226, 0.89)
pt3dadd(26.604, 210.623, -3.242, 0.88)
pt3dadd(26.621, 210.74, -3.258, 0.872)
pt3dadd(26.638, 210.857, -3.275, 0.862)
pt3dadd(26.658, 210.973, -3.291, 0.854)
pt3dadd(26.702, 211.084, -3.307, 0.854)
pt3dadd(26.747, 211.193, -3.323, 0.854)
pt3dadd(26.791, 211.303, -3.339, 0.854)
pt3dadd(26.834, 211.414, -3.355, 0.854)
pt3dadd(26.881, 211.523, -3.369, 0.858)
pt3dadd(26.935, 211.63, -3.375, 0.874)
pt3dadd(26.988, 211.736, -3.382, 0.888)
pt3dadd(27.042, 211.843, -3.389, 0.904)
pt3dadd(27.095, 211.951, -3.395, 0.918)
pt3dadd(27.156, 212.053, -3.4, 0.934)
pt3dadd(27.234, 212.144, -3.4, 0.956)
pt3dadd(27.312, 212.237, -3.4, 0.976)
pt3dadd(27.389, 212.328, -3.4, 0.996)
pt3dadd(27.467, 212.419, -3.4, 1.016)
pt3dadd(27.533, 212.518, -3.4, 1.034)
pt3dadd(27.571, 212.632, -3.4, 1.048)
pt3dadd(27.61, 212.744, -3.4, 1.062)
pt3dadd(27.648, 212.858, -3.4, 1.076)
pt3dadd(27.688, 212.972, -3.4, 1.088)
pt3dadd(27.726, 213.085, -3.4, 1.102)
pt3dadd(27.779, 213.192, -3.4, 1.182)
pt3dadd(27.878, 213.259, -3.4, 1.218)
pt3dadd(27.977, 213.328, -3.4, 1.252)
pt3dadd(28.013, 213.43, -3.437, 1.276)
pt3dadd(28.04, 213.535, -3.478, 1.3)
pt3dadd(28.069, 213.641, -3.518, 1.322)
pt3dadd(28.084, 213.752, -3.551, 1.31)
pt3dadd(28.09, 213.868, -3.58, 1.278)
pt3dadd(28.112, 213.979, -3.6, 1.234)
pt3dadd(28.172, 214.082, -3.6, 1.166)
pt3dadd(28.238, 214.182, -3.6, 1.096)
pt3dadd(28.337, 214.249, -3.6, 1.026)
pt3dadd(28.436, 214.318, -3.6, 0.958)
pt3dadd(28.532, 214.387, -3.605, 0.954)
pt3dadd(28.63, 214.458, -3.61, 0.954)
pt3dadd(28.718, 214.536, -3.629, 0.964)
pt3dadd(28.806, 214.614, -3.649, 0.976)
pt3dadd(28.894, 214.693, -3.669, 0.986)
pt3dadd(28.98, 214.771, -3.689, 0.998)
pt3dadd(29.07, 214.846, -3.715, 1.004)
pt3dadd(29.16, 214.915, -3.746, 1.004)
pt3dadd(29.251, 214.984, -3.777, 1.004)
pt3dadd(29.341, 215.053, -3.809, 1.004)
pt3dadd(29.423, 215.129, -3.841, 1)
pt3dadd(29.468, 215.23, -3.88, 0.984)
pt3dadd(29.515, 215.33, -3.918, 0.966)
pt3dadd(29.561, 215.431, -3.956, 0.948)
}
}
proc shape3d_31() {
dend_5[11] { pt3dadd(29.606, 215.532, -3.994, 0.932)
pt3dadd(29.675, 215.629, -4, 0.912)
pt3dadd(29.747, 215.724, -4, 0.892)
pt3dadd(29.819, 215.821, -4, 0.872)
pt3dadd(29.891, 215.916, -4, 0.852)
pt3dadd(29.963, 216.012, -4, 0.832)
pt3dadd(30.043, 216.102, -4, 0.824)
pt3dadd(30.124, 216.191, -4, 0.82)
pt3dadd(30.204, 216.28, -4, 0.814)
pt3dadd(30.284, 216.37, -4, 0.81)
pt3dadd(30.365, 216.458, -4, 0.804)
pt3dadd(30.472, 216.512, -4, 0.804)
pt3dadd(30.58, 216.563, -4, 0.804)
pt3dadd(30.689, 216.613, -4, 0.804)
pt3dadd(30.798, 216.664, -4, 0.804)
pt3dadd(30.906, 216.714, -4, 0.804)
pt3dadd(31.009, 216.776, -4, 0.806)
pt3dadd(31.106, 216.846, -4, 0.812)
pt3dadd(31.205, 216.914, -4, 0.816)
pt3dadd(31.303, 216.984, -4, 0.822)
pt3dadd(31.402, 217.052, -4, 0.826)
pt3dadd(31.513, 217.08, -4, 0.828)
pt3dadd(31.628, 217.104, -4, 0.822)
pt3dadd(31.742, 217.144, -4, 0.812)
pt3dadd(31.84, 217.201, -4, 0.802)
pt3dadd(31.894, 217.308, -4, 0.796)
pt3dadd(31.948, 217.415, -4, 0.788)
pt3dadd(32.002, 217.523, -4, 0.782)
pt3dadd(32.051, 217.631, -4.009, 0.778)
pt3dadd(32.096, 217.74, -4.025, 0.778)
pt3dadd(32.154, 217.837, -4.05, 0.798)
pt3dadd(32.23, 217.92, -4.088, 0.84)
pt3dadd(32.33, 217.973, -4.1, 0.898)
pt3dadd(32.443, 218.014, -4.1, 0.962)
pt3dadd(32.558, 218.041, -4.1, 1.016)
pt3dadd(32.678, 218.046, -4.1, 1.05)
pt3dadd(32.798, 218.051, -4.1, 1.086)
pt3dadd(32.906, 218.087, -4.1, 1.104)
pt3dadd(32.998, 218.165, -4.1, 1.104)
pt3dadd(33.089, 218.243, -4.1, 1.104)
pt3dadd(33.18, 218.32, -4.1, 1.104)
pt3dadd(33.271, 218.398, -4.1, 1.104)
pt3dadd(33.347, 218.489, -4.1, 1.09)
pt3dadd(33.403, 218.594, -4.1, 1.054)
pt3dadd(33.46, 218.7, -4.1, 1.022)
pt3dadd(33.517, 218.807, -4.1, 0.988)
pt3dadd(33.574, 218.912, -4.1, 0.954)
pt3dadd(33.636, 219.013, -4.1, 0.918)
pt3dadd(33.714, 219.106, -4.1, 0.884)
pt3dadd(33.792, 219.197, -4.1, 0.848)
pt3dadd(33.87, 219.288, -4.1, 0.812)
pt3dadd(33.947, 219.379, -4.1, 0.776)
pt3dadd(34.019, 219.474, -4.1, 0.748)
pt3dadd(34.079, 219.578, -4.1, 0.734)
pt3dadd(34.139, 219.683, -4.1, 0.72)
pt3dadd(34.199, 219.786, -4.1, 0.704)
pt3dadd(34.259, 219.89, -4.1, 0.69)
pt3dadd(34.319, 219.995, -4.1, 0.682)
pt3dadd(34.379, 220.098, -4.1, 0.702)
pt3dadd(34.439, 220.202, -4.1, 0.722)
pt3dadd(34.498, 220.307, -4.1, 0.74)
pt3dadd(34.558, 220.411, -4.1, 0.76)
pt3dadd(34.62, 220.513, -4.1, 0.788)
pt3dadd(34.715, 220.586, -4.1, 0.912)
pt3dadd(34.772, 220.686, -4.1, 1.002)
pt3dadd(34.812, 220.8, -4.1, 1.078)
pt3dadd(34.855, 220.912, -4.1, 1.152)
pt3dadd(34.909, 221.018, -4.1, 1.232)
pt3dadd(34.966, 221.124, -4.1, 1.308)
pt3dadd(35.064, 221.192, -4.1, 1.368)
pt3dadd(35.164, 221.26, -4.1, 1.426)
pt3dadd(35.275, 221.278, -4.127, 1.422)
pt3dadd(35.389, 221.29, -4.157, 1.41)
pt3dadd(35.482, 221.352, -4.171, 1.37)
pt3dadd(35.563, 221.44, -4.179, 1.318)
pt3dadd(35.645, 221.527, -4.186, 1.264)
pt3dadd(35.726, 221.615, -4.193, 1.212)
pt3dadd(35.808, 221.702, -4.2, 1.158)
pt3dadd(35.852, 221.813, -4.202, 1.098)
pt3dadd(35.896, 221.926, -4.204, 1.036)
pt3dadd(35.938, 222.037, -4.206, 0.976)
pt3dadd(35.98, 222.15, -4.208, 0.914)
pt3dadd(36.023, 222.262, -4.21, 0.854)
pt3dadd(36.078, 222.364, -4.228, 0.78)
pt3dadd(36.143, 222.458, -4.257, 0.7)
pt3dadd(36.208, 222.553, -4.286, 0.618)
pt3dadd(36.259, 222.638, -4.263, 0.53)
pt3dadd(36.299, 222.692, -4.261, 0.472)
pt3dadd(36.342, 222.721, -4.351, 0.458)
pt3dadd(36.391, 222.778, -4.426, 0.46)
pt3dadd(36.444, 222.853, -4.489, 0.474)
pt3dadd(36.51, 222.946, -4.486, 0.51)
pt3dadd(36.578, 223.043, -4.469, 0.548)
pt3dadd(36.631, 223.142, -4.435, 0.6)
pt3dadd(36.682, 223.242, -4.4, 0.654)
pt3dadd(36.727, 223.354, -4.402, 0.668)
pt3dadd(36.773, 223.464, -4.404, 0.682)
pt3dadd(36.817, 223.576, -4.406, 0.696)
pt3dadd(36.863, 223.686, -4.408, 0.71)
pt3dadd(36.908, 223.798, -4.411, 0.724)
pt3dadd(36.968, 223.894, -4.438, 0.698)
pt3dadd(37.027, 223.988, -4.475, 0.656)
pt3dadd(37.08, 224.089, -4.5, 0.614)
pt3dadd(37.12, 224.202, -4.5, 0.572)
pt3dadd(37.159, 224.316, -4.5, 0.528)
pt3dadd(37.189, 224.432, -4.5, 0.468)
pt3dadd(37.2, 224.551, -4.497, 0.42)
pt3dadd(37.2, 224.665, -4.473, 0.39)
pt3dadd(37.2, 224.753, -4.407, 0.42)
pt3dadd(37.2, 224.836, -4.348, 0.514)
pt3dadd(37.2, 224.954, -4.366, 0.568)
pt3dadd(37.217, 225.049, -4.408, 0.618)
pt3dadd(37.261, 225.108, -4.488, 0.66)
pt3dadd(37.291, 225.194, -4.543, 0.698)
pt3dadd(37.31, 225.305, -4.581, 0.734)
pt3dadd(37.32, 225.419, -4.6, 0.77)
pt3dadd(37.32, 225.539, -4.6, 0.804)
pt3dadd(37.32, 225.659, -4.6, 0.836)
pt3dadd(37.32, 225.779, -4.6, 0.87)
pt3dadd(37.32, 225.899, -4.6, 0.904)
pt3dadd(37.32, 226.019, -4.6, 0.938)
pt3dadd(37.32, 226.138, -4.608, 0.96)
pt3dadd(37.32, 226.256, -4.624, 0.972)
pt3dadd(37.32, 226.375, -4.641, 0.986)
pt3dadd(37.32, 226.493, -4.657, 0.998)
pt3dadd(37.32, 226.612, -4.674, 1.01)
pt3dadd(37.32, 226.73, -4.69, 1.022)
pt3dadd(37.32, 226.848, -4.707, 1.028)
pt3dadd(37.32, 226.967, -4.723, 1.024)
pt3dadd(37.32, 227.086, -4.74, 1.02)
pt3dadd(37.32, 227.203, -4.756, 1.016)
pt3dadd(37.32, 227.322, -4.773, 1.012)
pt3dadd(37.32, 227.44, -4.789, 1.008)
pt3dadd(37.32, 227.556, -4.813, 1.002)
pt3dadd(37.32, 227.666, -4.852, 0.992)
pt3dadd(37.32, 227.777, -4.892, 0.982)
pt3dadd(37.32, 227.886, -4.932, 0.972)
pt3dadd(37.32, 227.996, -4.971, 0.964)
pt3dadd(37.32, 228.107, -5.011, 0.954)
pt3dadd(37.32, 228.22, -5.046, 0.944)
pt3dadd(37.32, 228.332, -5.08, 0.936)
pt3dadd(37.32, 228.444, -5.115, 0.926)
pt3dadd(37.32, 228.557, -5.15, 0.918)
pt3dadd(37.32, 228.67, -5.185, 0.908)
pt3dadd(37.32, 228.786, -5.2, 0.902)
pt3dadd(37.32, 228.906, -5.2, 0.898)
pt3dadd(37.32, 229.026, -5.2, 0.894)
pt3dadd(37.32, 229.146, -5.2, 0.892)
pt3dadd(37.32, 229.266, -5.2, 0.888)
pt3dadd(37.32, 229.386, -5.2, 0.884)
pt3dadd(37.32, 229.506, -5.2, 0.88)
pt3dadd(37.32, 229.624, -5.217, 0.874)
pt3dadd(37.32, 229.738, -5.246, 0.864)
pt3dadd(37.32, 229.853, -5.276, 0.856)
pt3dadd(37.32, 229.967, -5.306, 0.848)
pt3dadd(37.32, 230.081, -5.336, 0.838)
pt3dadd(37.32, 230.196, -5.366, 0.828)
pt3dadd(37.369, 230.299, -5.396, 0.812)
pt3dadd(37.421, 230.401, -5.426, 0.796)
pt3dadd(37.472, 230.503, -5.456, 0.778)
pt3dadd(37.523, 230.605, -5.486, 0.762)
pt3dadd(37.559, 230.717, -5.501, 0.75)
pt3dadd(37.582, 230.834, -5.503, 0.746)
pt3dadd(37.604, 230.952, -5.505, 0.742)
pt3dadd(37.627, 231.07, -5.507, 0.738)
pt3dadd(37.65, 231.187, -5.509, 0.734)
pt3dadd(37.672, 231.306, -5.51, 0.73)
pt3dadd(37.697, 231.416, -5.536, 0.724)
pt3dadd(37.722, 231.526, -5.574, 0.72)
pt3dadd(37.748, 231.634, -5.612, 0.714)
pt3dadd(37.774, 231.742, -5.649, 0.708)
pt3dadd(37.799, 231.85, -5.687, 0.704)
pt3dadd(37.841, 231.959, -5.709, 0.704)
pt3dadd(37.883, 232.068, -5.73, 0.704)
pt3dadd(37.925, 232.177, -5.751, 0.704)
pt3dadd(37.967, 232.286, -5.772, 0.704)
pt3dadd(38.003, 232.398, -5.789, 0.704)
pt3dadd(38.016, 232.518, -5.791, 0.704)
pt3dadd(38.028, 232.637, -5.793, 0.704)
pt3dadd(38.041, 232.757, -5.795, 0.704)
pt3dadd(38.053, 232.876, -5.796, 0.704)
pt3dadd(38.066, 232.994, -5.798, 0.704)
pt3dadd(38.078, 233.114, -5.8, 0.704)
pt3dadd(38.124, 233.224, -5.8, 0.786)
pt3dadd(38.138, 233.344, -5.8, 0.824)
pt3dadd(38.153, 233.462, -5.8, 0.86)
pt3dadd(38.172, 233.578, -5.817, 0.89)
pt3dadd(38.195, 233.689, -5.849, 0.912)
pt3dadd(38.219, 233.8, -5.88, 0.934)
pt3dadd(38.242, 233.91, -5.914, 0.954)
pt3dadd(38.269, 234.004, -5.973, 0.94)
pt3dadd(38.302, 234.089, -6.035, 0.922)
pt3dadd(38.353, 234.14, -6.115, 0.88)
pt3dadd(38.389, 234.215, -6.171, 0.84)
pt3dadd(38.394, 234.334, -6.184, 0.802)
pt3dadd(38.399, 234.452, -6.197, 0.762)
pt3dadd(38.4, 234.572, -6.2, 0.746)
pt3dadd(38.4, 234.692, -6.2, 0.738)
pt3dadd(38.4, 234.812, -6.2, 0.73)
pt3dadd(38.4, 234.932, -6.2, 0.738)
}
}
proc shape3d_32() {
dend_5[11] { pt3dadd(38.4, 235.052, -6.2, 0.75)
pt3dadd(38.404, 235.172, -6.2, 0.766)
pt3dadd(38.408, 235.292, -6.2, 0.784)
pt3dadd(38.413, 235.412, -6.2, 0.802)
pt3dadd(38.46, 235.493, -6.255, 0.804)
pt3dadd(38.513, 235.564, -6.322, 0.802)
pt3dadd(38.56, 235.59, -6.411, 0.79)
pt3dadd(38.603, 235.628, -6.489, 0.78)
pt3dadd(38.624, 235.746, -6.494, 0.79)
pt3dadd(38.646, 235.865, -6.498, 0.8)
pt3dadd(38.668, 235.974, -6.528, 0.814)
pt3dadd(38.69, 236.081, -6.57, 0.83)
pt3dadd(38.713, 236.186, -6.613, 0.846)
pt3dadd(38.737, 236.292, -6.656, 0.862)
pt3dadd(38.76, 236.398, -6.699, 0.878)
pt3dadd(38.773, 236.518, -6.702, 0.894)
pt3dadd(38.785, 236.636, -6.704, 0.91)
pt3dadd(38.798, 236.755, -6.705, 0.926)
pt3dadd(38.812, 236.875, -6.707, 0.942)
pt3dadd(38.824, 236.994, -6.709, 0.958)
pt3dadd(38.837, 237.114, -6.711, 0.974)
pt3dadd(38.846, 237.227, -6.74, 0.986)
pt3dadd(38.854, 237.336, -6.779, 0.996)
pt3dadd(38.862, 237.446, -6.818, 1.006)
pt3dadd(38.869, 237.557, -6.857, 1.016)
pt3dadd(38.878, 237.666, -6.897, 1.026)
pt3dadd(38.897, 237.774, -6.937, 1.034)
pt3dadd(38.922, 237.881, -6.978, 1.038)
pt3dadd(38.948, 237.988, -7.018, 1.044)
pt3dadd(38.974, 238.093, -7.059, 1.05)
pt3dadd(39, 238.2, -7.1, 1.054)
pt3dadd(39.023, 238.315, -7.119, 1.06)
pt3dadd(39.047, 238.432, -7.139, 1.064)
pt3dadd(39.07, 238.547, -7.158, 1.07)
pt3dadd(39.092, 238.662, -7.177, 1.074)
pt3dadd(39.115, 238.777, -7.196, 1.078)
pt3dadd(39.12, 238.896, -7.213, 1.076)
pt3dadd(39.12, 239.014, -7.23, 1.072)
pt3dadd(39.12, 239.132, -7.246, 1.068)
pt3dadd(39.12, 239.25, -7.263, 1.064)
pt3dadd(39.12, 239.369, -7.279, 1.06)
pt3dadd(39.12, 239.488, -7.296, 1.056)
pt3dadd(39.138, 239.599, -7.325, 1.044)
pt3dadd(39.163, 239.708, -7.361, 1.028)
pt3dadd(39.188, 239.818, -7.396, 1.012)
pt3dadd(39.214, 239.928, -7.431, 0.996)
pt3dadd(39.24, 240.037, -7.466, 0.98)
pt3dadd(39.272, 240.148, -7.494, 0.948)
pt3dadd(39.307, 240.257, -7.522, 0.916)
pt3dadd(39.341, 240.367, -7.551, 0.884)
pt3dadd(39.374, 240.478, -7.579, 0.852)
pt3dadd(39.403, 240.587, -7.609, 0.822)
pt3dadd(39.42, 240.697, -7.648, 0.796)
pt3dadd(39.437, 240.806, -7.687, 0.77)
pt3dadd(39.454, 240.916, -7.726, 0.744)
pt3dadd(39.469, 241.025, -7.765, 0.72)
pt3dadd(39.5, 241.132, -7.798, 0.7)
pt3dadd(39.553, 241.236, -7.823, 0.688)
pt3dadd(39.606, 241.339, -7.847, 0.676)
pt3dadd(39.66, 241.442, -7.872, 0.666)
pt3dadd(39.713, 241.546, -7.897, 0.654)
pt3dadd(39.72, 241.658, -7.928, 0.65)
pt3dadd(39.72, 241.771, -7.96, 0.644)
pt3dadd(39.72, 241.885, -7.992, 0.64)
pt3dadd(39.72, 241.999, -8.024, 0.636)
pt3dadd(39.72, 242.112, -8.057, 0.63)
pt3dadd(39.73, 242.215, -8.102, 0.632)
pt3dadd(39.757, 242.298, -8.17, 0.644)
pt3dadd(39.785, 242.381, -8.239, 0.654)
pt3dadd(39.812, 242.462, -8.308, 0.666)
pt3dadd(39.84, 242.545, -8.377, 0.678)
pt3dadd(39.84, 242.654, -8.42, 0.678)
pt3dadd(39.84, 242.762, -8.462, 0.678)
pt3dadd(39.84, 242.872, -8.504, 0.678)
pt3dadd(39.84, 242.981, -8.546, 0.678)
pt3dadd(39.84, 243.089, -8.588, 0.678)
pt3dadd(39.84, 243.205, -8.612, 0.678)
pt3dadd(39.84, 243.323, -8.628, 0.678)
pt3dadd(39.84, 243.442, -8.645, 0.678)
pt3dadd(39.84, 243.56, -8.661, 0.678)
pt3dadd(39.84, 243.678, -8.678, 0.678)
pt3dadd(39.84, 243.797, -8.694, 0.678)
pt3dadd(39.84, 243.912, -8.72, 0.67)
pt3dadd(39.84, 244.026, -8.753, 0.656)
pt3dadd(39.84, 244.139, -8.785, 0.642)
pt3dadd(39.84, 244.253, -8.817, 0.628)
pt3dadd(39.84, 244.367, -8.849, 0.614)
pt3dadd(39.84, 244.477, -8.885, 0.598)
pt3dadd(39.84, 244.561, -8.956, 0.578)
pt3dadd(39.84, 244.628, -9.038, 0.578)
pt3dadd(39.838, 244.709, -9.107, 0.58)
pt3dadd(39.827, 244.824, -9.133, 0.594)
pt3dadd(39.817, 244.939, -9.159, 0.608)
pt3dadd(39.806, 245.054, -9.185, 0.62)
pt3dadd(39.786, 245.17, -9.202, 0.642)
pt3dadd(39.751, 245.285, -9.207, 0.674)
pt3dadd(39.715, 245.398, -9.216, 0.714)
pt3dadd(39.671, 245.492, -9.265, 0.81)
pt3dadd(39.628, 245.574, -9.324, 0.91)
pt3dadd(39.584, 245.624, -9.408, 1.018)
pt3dadd(39.532, 245.676, -9.485, 1.116)
pt3dadd(39.463, 245.729, -9.555, 1.202)
pt3dadd(39.404, 245.776, -9.632, 1.244)
pt3dadd(39.371, 245.837, -9.709, 1.25)
pt3dadd(39.364, 245.922, -9.779, 1.238)
pt3dadd(39.353, 246.017, -9.837, 1.22)
pt3dadd(39.334, 246.126, -9.874, 1.196)
pt3dadd(39.307, 246.236, -9.9, 1.166)
pt3dadd(39.268, 246.35, -9.9, 1.124)
pt3dadd(39.228, 246.463, -9.9, 1.082)
pt3dadd(39.168, 246.566, -9.9, 0.992)
pt3dadd(39.107, 246.671, -9.9, 0.9)
pt3dadd(39.082, 246.786, -9.904, 0.85)
pt3dadd(39.066, 246.905, -9.91, 0.812)
pt3dadd(39.05, 247.024, -9.915, 0.774)
pt3dadd(39.035, 247.142, -9.921, 0.736)
pt3dadd(39.018, 247.261, -9.927, 0.698)
pt3dadd(39.002, 247.38, -9.932, 0.66)
pt3dadd(39, 247.493, -9.963, 0.586)
pt3dadd(39, 247.607, -9.991, 0.528)
pt3dadd(39, 247.727, -9.999, 0.528)
pt3dadd(39, 247.846, -10.007, 0.528)
pt3dadd(38.996, 247.957, -10.037, 0.54)
pt3dadd(38.99, 248.058, -10.09, 0.562)
pt3dadd(38.957, 248.15, -10.139, 0.572)
pt3dadd(38.881, 248.226, -10.184, 0.558)
pt3dadd(38.81, 248.317, -10.2, 0.522)
pt3dadd(38.742, 248.416, -10.2, 0.476)
pt3dadd(38.652, 248.483, -10.2, 0.414)
pt3dadd(38.537, 248.515, -10.2, 0.338)
pt3dadd(38.429, 248.568, -10.205, 0.296)
pt3dadd(38.323, 248.624, -10.21, 0.262)
pt3dadd(38.274, 248.717, -10.239, 0.242)
pt3dadd(38.248, 248.824, -10.278, 0.23)
pt3dadd(38.21, 248.932, -10.309, 0.226)
pt3dadd(38.171, 249.04, -10.337, 0.226)
pt3dadd(38.16, 249.132, -10.395, 0.226)
pt3dadd(38.16, 249.221, -10.463, 0.226)
pt3dadd(38.143, 249.318, -10.518, 0.234)
pt3dadd(38.117, 249.42, -10.564, 0.244)
pt3dadd(38.09, 249.523, -10.611, 0.254)
pt3dadd(38.064, 249.626, -10.658, 0.266)
pt3dadd(38.036, 249.73, -10.701, 0.278)
pt3dadd(37.99, 249.839, -10.715, 0.298)
pt3dadd(37.943, 249.948, -10.729, 0.32)
pt3dadd(37.896, 250.057, -10.742, 0.34)
pt3dadd(37.849, 250.168, -10.756, 0.36)
pt3dadd(37.807, 250.276, -10.777, 0.386)
pt3dadd(37.781, 250.378, -10.823, 0.424)
pt3dadd(37.754, 250.481, -10.87, 0.462)
pt3dadd(37.728, 250.584, -10.916, 0.502)
pt3dadd(37.702, 250.686, -10.963, 0.54)
pt3dadd(37.691, 250.784, -11.019, 0.57)
pt3dadd(37.688, 250.879, -11.08, 0.596)
pt3dadd(37.686, 250.974, -11.141, 0.62)
pt3dadd(37.684, 251.069, -11.203, 0.646)
pt3dadd(37.681, 251.164, -11.264, 0.672)
pt3dadd(37.68, 251.252, -11.331, 0.686)
pt3dadd(37.68, 251.339, -11.401, 0.696)
pt3dadd(37.68, 251.425, -11.47, 0.706)
pt3dadd(37.68, 251.512, -11.54, 0.716)
pt3dadd(37.68, 251.598, -11.609, 0.726)
pt3dadd(37.68, 251.7, -11.661, 0.72)
pt3dadd(37.68, 251.806, -11.708, 0.71)
pt3dadd(37.68, 251.911, -11.755, 0.7)
pt3dadd(37.68, 252.017, -11.803, 0.692)
pt3dadd(37.68, 252.122, -11.85, 0.682)
pt3dadd(37.68, 252.235, -11.882, 0.676)
pt3dadd(37.68, 252.352, -11.904, 0.67)
pt3dadd(37.68, 252.469, -11.927, 0.666)
pt3dadd(37.68, 252.586, -11.95, 0.662)
pt3dadd(37.68, 252.702, -11.973, 0.658)
pt3dadd(37.68, 252.82, -11.996, 0.654)
pt3dadd(37.68, 252.938, -12, 0.656)
pt3dadd(37.68, 253.058, -12, 0.66)
pt3dadd(37.68, 253.178, -12, 0.664)
pt3dadd(37.68, 253.298, -12, 0.666)
pt3dadd(37.68, 253.418, -12, 0.67)
pt3dadd(37.68, 253.538, -12, 0.674)
pt3dadd(37.68, 253.658, -12, 0.678)
pt3dadd(37.65, 253.774, -12, 0.686)
pt3dadd(37.614, 253.889, -12, 0.694)
pt3dadd(37.579, 254.003, -12, 0.704)
pt3dadd(37.543, 254.118, -12, 0.712)
pt3dadd(37.507, 254.232, -12, 0.722)
pt3dadd(37.478, 254.347, -12.004, 0.73)
pt3dadd(37.471, 254.466, -12.021, 0.74)
pt3dadd(37.464, 254.584, -12.039, 0.748)
pt3dadd(37.457, 254.701, -12.056, 0.756)
pt3dadd(37.451, 254.82, -12.073, 0.766)
pt3dadd(37.444, 254.938, -12.091, 0.774)
pt3dadd(37.44, 255.056, -12.102, 0.782)
pt3dadd(37.44, 255.176, -12.107, 0.79)
pt3dadd(37.44, 255.296, -12.112, 0.796)
pt3dadd(37.44, 255.416, -12.117, 0.804)
pt3dadd(37.44, 255.536, -12.122, 0.812)
pt3dadd(37.44, 255.655, -12.127, 0.82)
pt3dadd(37.44, 255.775, -12.132, 0.828)
pt3dadd(37.438, 255.89, -12.157, 0.844)
pt3dadd(37.435, 256.006, -12.188, 0.862)
}
}
proc shape3d_33() {
dend_5[11] { pt3dadd(37.433, 256.12, -12.218, 0.88)
pt3dadd(37.43, 256.234, -12.249, 0.898)
pt3dadd(37.428, 256.348, -12.279, 0.916)
pt3dadd(37.412, 256.46, -12.307, 0.932)
pt3dadd(37.367, 256.568, -12.328, 0.944)
pt3dadd(37.321, 256.676, -12.349, 0.954)
pt3dadd(37.276, 256.784, -12.371, 0.964)
pt3dadd(37.23, 256.892, -12.392, 0.976)
pt3dadd(37.193, 257.005, -12.4, 0.98)
pt3dadd(37.154, 257.119, -12.4, 0.954)
pt3dadd(37.115, 257.232, -12.4, 0.922)
pt3dadd(37.074, 257.342, -12.414, 0.896)
pt3dadd(37.033, 257.449, -12.445, 0.882)
pt3dadd(36.992, 257.555, -12.476, 0.866)
pt3dadd(36.938, 257.652, -12.5, 0.854)
pt3dadd(36.835, 257.713, -12.5, 0.854)
pt3dadd(36.732, 257.774, -12.5, 0.854)
pt3dadd(36.65, 257.863, -12.5, 0.878)
pt3dadd(36.569, 257.951, -12.5, 0.902)
pt3dadd(36.53, 258.064, -12.5, 0.922)
pt3dadd(36.498, 258.179, -12.5, 0.944)
pt3dadd(36.478, 258.296, -12.5, 0.95)
pt3dadd(36.473, 258.416, -12.5, 0.942)
pt3dadd(36.469, 258.536, -12.5, 0.932)
pt3dadd(36.458, 258.654, -12.488, 0.914)
pt3dadd(36.445, 258.77, -12.468, 0.888)
pt3dadd(36.432, 258.887, -12.448, 0.864)
pt3dadd(36.418, 259.004, -12.427, 0.838)
pt3dadd(36.404, 259.121, -12.407, 0.812)
pt3dadd(36.425, 259.235, -12.404, 0.784)
pt3dadd(36.462, 259.349, -12.411, 0.756)
pt3dadd(36.5, 259.463, -12.417, 0.728)
pt3dadd(36.539, 259.576, -12.423, 0.7)
pt3dadd(36.576, 259.69, -12.429, 0.67)
pt3dadd(36.637, 259.776, -12.45, 0.63)
pt3dadd(36.73, 259.829, -12.49, 0.58)
pt3dadd(36.793, 259.931, -12.495, 0.592)
pt3dadd(36.858, 260.032, -12.5, 0.604)
pt3dadd(36.942, 260.116, -12.506, 0.616)
pt3dadd(37.027, 260.2, -12.511, 0.628)
pt3dadd(37.061, 260.24, -12.601, 0.616)
pt3dadd(37.094, 260.281, -12.691, 0.602)
pt3dadd(37.146, 260.333, -12.771, 0.574)
pt3dadd(37.187, 260.383, -12.853, 0.552)
pt3dadd(37.19, 260.429, -12.945, 0.552)
pt3dadd(37.193, 260.474, -13.038, 0.552)
pt3dadd(37.195, 260.52, -13.13, 0.552)
pt3dadd(37.198, 260.564, -13.223, 0.552)
pt3dadd(37.2, 260.61, -13.315, 0.552)
pt3dadd(37.2, 260.683, -13.395, 0.61)
pt3dadd(37.2, 260.737, -13.482, 0.628)
pt3dadd(37.188, 260.759, -13.579, 0.606)
pt3dadd(37.133, 260.76, -13.665, 0.562)
pt3dadd(37.033, 260.76, -13.72, 0.472)
pt3dadd(36.925, 260.76, -13.765, 0.404)
pt3dadd(36.806, 260.76, -13.775, 0.374)
pt3dadd(36.686, 260.76, -13.784, 0.344)
pt3dadd(36.582, 260.777, -13.764, 0.326)
pt3dadd(36.502, 260.822, -13.701, 0.326)
pt3dadd(36.42, 260.867, -13.637, 0.326)
pt3dadd(36.35, 260.928, -13.576, 0.344)
pt3dadd(36.298, 261.011, -13.52, 0.388)
pt3dadd(36.27, 261.118, -13.5, 0.444)
pt3dadd(36.256, 261.238, -13.5, 0.51)
pt3dadd(36.24, 261.356, -13.5, 0.576)
pt3dadd(36.24, 261.476, -13.5, 0.642)
pt3dadd(36.24, 261.596, -13.5, 0.71)
pt3dadd(36.24, 261.716, -13.5, 0.776)
pt3dadd(36.24, 261.832, -13.527, 0.808)
pt3dadd(36.24, 261.947, -13.554, 0.84)
pt3dadd(36.229, 262.063, -13.57, 0.846)
pt3dadd(36.208, 262.182, -13.576, 0.834)
pt3dadd(36.187, 262.3, -13.581, 0.82)
pt3dadd(36.167, 262.417, -13.587, 0.808)
pt3dadd(36.145, 262.536, -13.593, 0.794)
pt3dadd(36.125, 262.654, -13.599, 0.782)
pt3dadd(36.119, 262.774, -13.6, 0.764)
pt3dadd(36.116, 262.894, -13.6, 0.746)
pt3dadd(36.115, 263.014, -13.6, 0.728)
pt3dadd(36.113, 263.134, -13.6, 0.71)
pt3dadd(36.11, 263.254, -13.6, 0.692)
pt3dadd(36.109, 263.374, -13.6, 0.674)
pt3dadd(36.107, 263.494, -13.6, 0.654)
pt3dadd(36.078, 263.609, -13.6, 0.65)
pt3dadd(36.044, 263.724, -13.6, 0.644)
pt3dadd(36.011, 263.839, -13.6, 0.64)
pt3dadd(35.978, 263.954, -13.6, 0.636)
pt3dadd(35.945, 264.071, -13.6, 0.632)
pt3dadd(35.914, 264.186, -13.601, 0.628)
pt3dadd(35.884, 264.302, -13.607, 0.628)
pt3dadd(35.855, 264.419, -13.613, 0.628)
pt3dadd(35.826, 264.535, -13.62, 0.628)
pt3dadd(35.797, 264.65, -13.626, 0.628)
pt3dadd(35.768, 264.767, -13.632, 0.628)
pt3dadd(35.76, 264.882, -13.655, 0.628)
pt3dadd(35.76, 264.996, -13.684, 0.628)
pt3dadd(35.76, 265.111, -13.714, 0.628)
pt3dadd(35.76, 265.225, -13.744, 0.628)
pt3dadd(35.76, 265.34, -13.774, 0.628)
pt3dadd(35.76, 265.453, -13.806, 0.628)
pt3dadd(35.76, 265.561, -13.85, 0.628)
pt3dadd(35.76, 265.668, -13.895, 0.628)
pt3dadd(35.76, 265.776, -13.94, 0.628)
pt3dadd(35.76, 265.883, -13.984, 0.628)
pt3dadd(35.76, 265.991, -14.029, 0.628)
pt3dadd(35.76, 266.108, -14.045, 0.632)
pt3dadd(35.76, 266.227, -14.057, 0.636)
pt3dadd(35.76, 266.347, -14.069, 0.64)
pt3dadd(35.76, 266.466, -14.082, 0.644)
pt3dadd(35.76, 266.585, -14.094, 0.648)
pt3dadd(35.76, 266.704, -14.107, 0.652)
pt3dadd(35.76, 266.813, -14.145, 0.652)
pt3dadd(35.76, 266.915, -14.197, 0.652)
pt3dadd(35.76, 267.017, -14.249, 0.652)
pt3dadd(35.76, 267.119, -14.302, 0.652)
pt3dadd(35.76, 267.221, -14.354, 0.652)
pt3dadd(35.747, 267.33, -14.391, 0.652)
pt3dadd(35.723, 267.444, -14.415, 0.652)
pt3dadd(35.699, 267.558, -14.44, 0.652)
pt3dadd(35.675, 267.671, -14.464, 0.652)
pt3dadd(35.652, 267.785, -14.488, 0.652)
pt3dadd(35.64, 267.901, -14.512, 0.66)
pt3dadd(35.64, 268.018, -14.535, 0.672)
pt3dadd(35.64, 268.134, -14.558, 0.686)
pt3dadd(35.64, 268.252, -14.581, 0.698)
pt3dadd(35.64, 268.368, -14.604, 0.712)
pt3dadd(35.64, 268.484, -14.626, 0.724)
pt3dadd(35.64, 268.595, -14.665, 0.822)
pt3dadd(35.635, 268.714, -14.679, 0.838)
pt3dadd(35.63, 268.832, -14.692, 0.848)
pt3dadd(35.585, 268.921, -14.703, 0.844)
pt3dadd(35.472, 268.962, -14.712, 0.816)
pt3dadd(35.359, 269.002, -14.721, 0.788)
pt3dadd(35.246, 269.041, -14.731, 0.762)
pt3dadd(35.177, 269.095, -14.786, 0.724)
pt3dadd(35.125, 269.155, -14.861, 0.682)
pt3dadd(35.084, 269.262, -14.887, 0.678)
pt3dadd(35.045, 269.372, -14.908, 0.678)
pt3dadd(35.04, 269.477, -14.955, 0.698)
pt3dadd(35.04, 269.58, -15.006, 0.72)
pt3dadd(35.04, 269.659, -15.078, 0.728)
pt3dadd(35.04, 269.728, -15.16, 0.728)
pt3dadd(35.04, 269.803, -15.237, 0.71)
pt3dadd(35.04, 269.886, -15.309, 0.674)
pt3dadd(35.04, 269.947, -15.395, 0.64)
pt3dadd(35.04, 270.007, -15.481, 0.606)
pt3dadd(35.04, 270.108, -15.535, 0.592)
pt3dadd(35.04, 270.211, -15.586, 0.58)
pt3dadd(35.044, 270.326, -15.6, 0.59)
pt3dadd(35.048, 270.446, -15.6, 0.608)
pt3dadd(35.052, 270.566, -15.6, 0.624)
pt3dadd(35.086, 270.68, -15.6, 0.68)
pt3dadd(35.126, 270.793, -15.6, 0.744)
pt3dadd(35.15, 270.91, -15.6, 0.81)
pt3dadd(35.158, 271.03, -15.6, 0.876)
pt3dadd(35.18, 271.146, -15.603, 0.91)
pt3dadd(35.215, 271.261, -15.608, 0.922)
pt3dadd(35.251, 271.372, -15.624, 0.914)
pt3dadd(35.296, 271.466, -15.672, 0.86)
pt3dadd(35.339, 271.542, -15.736, 0.8)
pt3dadd(35.382, 271.591, -15.82, 0.732)
pt3dadd(35.412, 271.668, -15.888, 0.688)
pt3dadd(35.432, 271.764, -15.946, 0.662)
pt3dadd(35.482, 271.856, -15.99, 0.73)
pt3dadd(35.5, 271.966, -16.028, 0.804)
pt3dadd(35.519, 272.075, -16.065, 0.876)
pt3dadd(35.533, 272.186, -16.1, 0.92)
pt3dadd(35.548, 272.298, -16.135, 0.964)
pt3dadd(35.564, 272.407, -16.172, 1.002)
pt3dadd(35.617, 272.491, -16.229, 0.974)
pt3dadd(35.674, 272.561, -16.293, 0.934)
pt3dadd(35.734, 272.605, -16.371, 0.872)
pt3dadd(35.795, 272.65, -16.449, 0.81)
pt3dadd(35.836, 272.754, -16.475, 0.748)
pt3dadd(35.874, 272.864, -16.497, 0.686)
pt3dadd(35.89, 272.982, -16.503, 0.684)
pt3dadd(35.9, 273.102, -16.506, 0.692)
pt3dadd(35.911, 273.221, -16.509, 0.698)
pt3dadd(35.93, 273.314, -16.537, 0.714)
pt3dadd(35.97, 273.34, -16.629, 0.75)
pt3dadd(36.01, 273.368, -16.72, 0.776)
pt3dadd(36.05, 273.406, -16.809, 0.768)
pt3dadd(36.091, 273.443, -16.898, 0.762)
pt3dadd(36.132, 273.479, -16.987, 0.754)
pt3dadd(36.181, 273.587, -16.994, 0.698)
pt3dadd(36.229, 273.696, -16.999, 0.64)
pt3dadd(36.288, 273.799, -16.987, 0.558)
pt3dadd(36.348, 273.901, -16.97, 0.468)
pt3dadd(36.409, 273.994, -16.931, 0.406)
pt3dadd(36.467, 274.082, -16.887, 0.35)
pt3dadd(36.474, 274.16, -16.811, 0.326)
pt3dadd(36.48, 274.238, -16.735, 0.302)
pt3dadd(36.48, 274.314, -16.657, 0.336)
pt3dadd(36.48, 274.399, -16.587, 0.352)
pt3dadd(36.502, 274.488, -16.526, 0.326)
pt3dadd(36.56, 274.588, -16.512, 0.378)
pt3dadd(36.594, 274.656, -16.583, 0.496)
pt3dadd(36.612, 274.679, -16.68, 0.594)
pt3dadd(36.653, 274.702, -16.77, 0.652)
pt3dadd(36.707, 274.76, -16.844, 0.628)
}
}
proc shape3d_34() {
dend_5[11] { pt3dadd(36.725, 274.792, -16.939, 0.612)
pt3dadd(36.749, 274.8, -17.036, 0.642)
pt3dadd(36.797, 274.8, -17.127, 0.652)
pt3dadd(36.829, 274.802, -17.223, 0.59)
pt3dadd(36.846, 274.825, -17.32, 0.516)
pt3dadd(36.881, 274.895, -17.389, 0.528)
pt3dadd(36.932, 275.002, -17.4, 0.578)
pt3dadd(36.965, 275.117, -17.4, 0.56)
pt3dadd(36.997, 275.232, -17.4, 0.552)
pt3dadd(37.05, 275.34, -17.4, 0.616)
pt3dadd(37.103, 275.448, -17.4, 0.698)
pt3dadd(37.158, 275.555, -17.4, 0.822)
pt3dadd(37.187, 275.671, -17.4, 0.846)
pt3dadd(37.214, 275.788, -17.4, 0.862)
pt3dadd(37.241, 275.904, -17.4, 0.88)
pt3dadd(37.268, 276.022, -17.4, 0.896)
pt3dadd(37.296, 276.138, -17.4, 0.914)
pt3dadd(37.326, 276.254, -17.4, 0.93)
pt3dadd(37.374, 276.364, -17.4, 0.934)
pt3dadd(37.421, 276.474, -17.4, 0.94)
pt3dadd(37.469, 276.584, -17.4, 0.944)
pt3dadd(37.517, 276.695, -17.4, 0.948)
pt3dadd(37.564, 276.805, -17.4, 0.954)
pt3dadd(37.613, 276.912, -17.417, 0.942)
pt3dadd(37.661, 277.019, -17.439, 0.926)
pt3dadd(37.71, 277.126, -17.46, 0.908)
pt3dadd(37.759, 277.231, -17.482, 0.892)
pt3dadd(37.8, 277.34, -17.502, 0.876)
pt3dadd(37.8, 277.459, -17.514, 0.854)
pt3dadd(37.8, 277.578, -17.525, 0.832)
pt3dadd(37.8, 277.698, -17.537, 0.81)
pt3dadd(37.8, 277.817, -17.549, 0.788)
pt3dadd(37.8, 277.936, -17.56, 0.766)
pt3dadd(37.8, 278.044, -17.538, 0.704)
pt3dadd(37.801, 278.137, -17.476, 0.602)
pt3dadd(37.82, 278.248, -17.439, 0.564)
pt3dadd(37.838, 278.357, -17.401, 0.528)
pt3dadd(37.872, 278.472, -17.4, 0.548)
pt3dadd(37.904, 278.587, -17.4, 0.568)
pt3dadd(37.92, 278.698, -17.424, 0.602)
pt3dadd(37.92, 278.806, -17.469, 0.646)
pt3dadd(37.92, 278.912, -17.514, 0.684)
pt3dadd(37.92, 279.02, -17.558, 0.708)
pt3dadd(37.921, 279.128, -17.601, 0.728)
pt3dadd(37.936, 279.245, -17.622, 0.718)
pt3dadd(37.951, 279.361, -17.643, 0.708)
pt3dadd(37.966, 279.478, -17.663, 0.7)
pt3dadd(37.981, 279.594, -17.684, 0.69)
pt3dadd(37.996, 279.71, -17.705, 0.68)
pt3dadd(38.035, 279.818, -17.73, 0.67)
pt3dadd(38.086, 279.922, -17.757, 0.66)
pt3dadd(38.136, 280.026, -17.784, 0.648)
pt3dadd(38.186, 280.13, -17.812, 0.636)
pt3dadd(38.24, 280.228, -17.844, 0.626)
pt3dadd(38.31, 280.304, -17.896, 0.62)
pt3dadd(38.378, 280.38, -17.948, 0.614)
pt3dadd(38.448, 280.456, -18, 0.608)
pt3dadd(38.51, 280.534, -18.053, 0.602)
pt3dadd(38.538, 280.627, -18.111, 0.602)
pt3dadd(38.566, 280.721, -18.169, 0.602)
pt3dadd(38.592, 280.816, -18.227, 0.602)
pt3dadd(38.62, 280.909, -18.285, 0.602)
pt3dadd(38.628, 281.021, -18.312, 0.606)
pt3dadd(38.63, 281.14, -18.329, 0.61)
pt3dadd(38.633, 281.257, -18.346, 0.614)
pt3dadd(38.635, 281.376, -18.363, 0.618)
pt3dadd(38.638, 281.494, -18.379, 0.622)
pt3dadd(38.64, 281.612, -18.396, 0.626)
pt3dadd(38.662, 281.73, -18.4, 0.632)
pt3dadd(38.688, 281.846, -18.4, 0.636)
pt3dadd(38.716, 281.963, -18.4, 0.64)
pt3dadd(38.743, 282.08, -18.4, 0.644)
pt3dadd(38.771, 282.197, -18.4, 0.648)
pt3dadd(38.798, 282.313, -18.4, 0.652)
pt3dadd(38.858, 282.416, -18.4, 0.662)
pt3dadd(38.922, 282.518, -18.4, 0.672)
pt3dadd(38.984, 282.622, -18.4, 0.682)
pt3dadd(39.048, 282.724, -18.4, 0.692)
pt3dadd(39.11, 282.826, -18.4, 0.702)
pt3dadd(39.174, 282.928, -18.4, 0.716)
pt3dadd(39.236, 283.03, -18.4, 0.73)
pt3dadd(39.3, 283.132, -18.4, 0.746)
pt3dadd(39.362, 283.234, -18.4, 0.76)
pt3dadd(39.426, 283.336, -18.4, 0.774)
pt3dadd(39.462, 283.45, -18.4, 0.794)
pt3dadd(39.488, 283.566, -18.4, 0.816)
pt3dadd(39.516, 283.682, -18.4, 0.838)
pt3dadd(39.544, 283.8, -18.4, 0.86)
pt3dadd(39.571, 283.916, -18.4, 0.882)
pt3dadd(39.599, 284.034, -18.4, 0.902)
pt3dadd(39.643, 284.144, -18.402, 0.922)
pt3dadd(39.689, 284.256, -18.404, 0.94)
pt3dadd(39.733, 284.368, -18.406, 0.96)
pt3dadd(39.779, 284.478, -18.408, 0.978)
pt3dadd(39.824, 284.59, -18.41, 0.998)
pt3dadd(39.84, 284.702, -18.429, 1.024)
pt3dadd(39.845, 284.818, -18.458, 1.012)
pt3dadd(39.851, 284.933, -18.486, 0.99)
pt3dadd(39.893, 285.036, -18.5, 0.966)
pt3dadd(39.968, 285.13, -18.5, 0.938)
pt3dadd(40.043, 285.223, -18.5, 0.912)
pt3dadd(40.075, 285.324, -18.533, 0.878)
pt3dadd(40.088, 285.428, -18.582, 0.842)
pt3dadd(40.117, 285.482, -18.658, 0.812)
pt3dadd(40.157, 285.506, -18.751, 0.784)
pt3dadd(40.195, 285.529, -18.843, 0.756)
pt3dadd(40.234, 285.629, -18.874, 0.722)
pt3dadd(40.273, 285.739, -18.896, 0.684)
pt3dadd(40.354, 285.824, -18.9, 0.666)
pt3dadd(40.444, 285.904, -18.9, 0.652)
pt3dadd(40.534, 285.983, -18.9, 0.638)
pt3dadd(40.628, 286.055, -18.9, 0.624)
pt3dadd(40.736, 286.109, -18.9, 0.614)
pt3dadd(40.843, 286.163, -18.9, 0.602)
pt3dadd(40.946, 286.223, -18.9, 0.602)
pt3dadd(41.05, 286.284, -18.9, 0.602)
pt3dadd(41.138, 286.364, -18.905, 0.602)
pt3dadd(41.224, 286.45, -18.91, 0.602)
pt3dadd(41.262, 286.552, -18.942, 0.602)
pt3dadd(41.288, 286.66, -18.981, 0.602)
pt3dadd(41.339, 286.762, -19.009, 0.608)
pt3dadd(41.395, 286.864, -19.034, 0.612)
pt3dadd(41.452, 286.964, -19.059, 0.618)
pt3dadd(41.509, 287.066, -19.083, 0.624)
pt3dadd(41.568, 287.168, -19.1, 0.63)
pt3dadd(41.63, 287.27, -19.1, 0.634)
pt3dadd(41.694, 287.372, -19.1, 0.64)
pt3dadd(41.756, 287.474, -19.1, 0.644)
pt3dadd(41.82, 287.576, -19.1, 0.65)
pt3dadd(41.87, 287.683, -19.1, 0.66)
pt3dadd(41.885, 287.802, -19.1, 0.688)
pt3dadd(41.915, 287.917, -19.1, 0.714)
pt3dadd(41.962, 288.028, -19.1, 0.734)
pt3dadd(42.016, 288.132, -19.1, 0.758)
pt3dadd(42.109, 288.208, -19.1, 0.78)
pt3dadd(42.204, 288.281, -19.1, 0.804)
pt3dadd(42.319, 288.313, -19.1, 0.804)
pt3dadd(42.434, 288.347, -19.1, 0.804)
pt3dadd(42.552, 288.372, -19.1, 0.792)
pt3dadd(42.67, 288.392, -19.1, 0.772)
pt3dadd(42.788, 288.414, -19.1, 0.752)
pt3dadd(42.866, 288.504, -19.1, 0.67)
pt3dadd(42.954, 288.586, -19.1, 0.648)
pt3dadd(43.043, 288.667, -19.1, 0.624)
pt3dadd(43.13, 288.749, -19.1, 0.6)
pt3dadd(43.219, 288.828, -19.1, 0.576)
pt3dadd(43.338, 288.84, -19.1, 0.544)
pt3dadd(43.458, 288.84, -19.1, 0.502)
pt3dadd(43.578, 288.84, -19.102, 0.506)
pt3dadd(43.697, 288.84, -19.118, 0.544)
pt3dadd(43.806, 288.848, -19.156, 0.612)
pt3dadd(43.902, 288.904, -19.188, 0.644)
pt3dadd(43.968, 288.995, -19.2, 0.664)
pt3dadd(44.008, 289.109, -19.2, 0.686)
pt3dadd(44.053, 289.219, -19.2, 0.704)
pt3dadd(44.123, 289.316, -19.2, 0.714)
pt3dadd(44.194, 289.414, -19.2, 0.722)
pt3dadd(44.276, 289.492, -19.205, 0.732)
pt3dadd(44.389, 289.53, -19.221, 0.744)
pt3dadd(44.496, 289.573, -19.242, 0.756)
pt3dadd(44.579, 289.642, -19.286, 0.77)
pt3dadd(44.635, 289.728, -19.324, 0.808)
pt3dadd(44.64, 289.837, -19.366, 0.902)
pt3dadd(44.64, 289.952, -19.391, 0.95)
pt3dadd(44.644, 290.072, -19.4, 0.906)
pt3dadd(44.672, 290.186, -19.4, 0.792)
pt3dadd(44.756, 290.264, -19.41, 0.656)
pt3dadd(44.867, 290.28, -19.445, 0.612)
pt3dadd(44.975, 290.28, -19.49, 0.646)
pt3dadd(45.082, 290.28, -19.534, 0.678)
pt3dadd(45.191, 290.28, -19.574, 0.67)
pt3dadd(45.308, 290.287, -19.595, 0.624)
pt3dadd(45.422, 290.32, -19.6, 0.596)
pt3dadd(45.536, 290.358, -19.6, 0.588)
pt3dadd(45.65, 290.396, -19.6, 0.578)
pt3dadd(45.763, 290.435, -19.6, 0.57)
pt3dadd(45.877, 290.474, -19.6, 0.56)
pt3dadd(45.991, 290.513, -19.6, 0.554)
pt3dadd(46.104, 290.551, -19.6, 0.562)
pt3dadd(46.218, 290.59, -19.6, 0.572)
pt3dadd(46.331, 290.629, -19.6, 0.582)
pt3dadd(46.445, 290.668, -19.6, 0.59)
pt3dadd(46.559, 290.706, -19.6, 0.6)
pt3dadd(46.673, 290.743, -19.6, 0.616)
pt3dadd(46.787, 290.779, -19.6, 0.64)
pt3dadd(46.902, 290.814, -19.6, 0.662)
pt3dadd(47.016, 290.85, -19.6, 0.684)
pt3dadd(47.131, 290.886, -19.6, 0.706)
pt3dadd(47.245, 290.922, -19.6, 0.73)
pt3dadd(47.347, 290.986, -19.6, 0.754)
pt3dadd(47.449, 291.048, -19.6, 0.778)
pt3dadd(47.551, 291.112, -19.6, 0.804)
pt3dadd(47.653, 291.174, -19.6, 0.828)
pt3dadd(47.756, 291.238, -19.6, 0.852)
pt3dadd(47.863, 291.292, -19.6, 0.858)
pt3dadd(47.97, 291.346, -19.6, 0.864)
pt3dadd(48.078, 291.398, -19.6, 0.868)
pt3dadd(48.185, 291.452, -19.6, 0.872)
pt3dadd(48.293, 291.505, -19.6, 0.878)
pt3dadd(48.404, 291.548, -19.6, 0.872)
}
}
proc shape3d_35() {
dend_5[11] { pt3dadd(48.518, 291.587, -19.6, 0.864)
pt3dadd(48.631, 291.625, -19.6, 0.854)
pt3dadd(48.745, 291.665, -19.6, 0.844)
pt3dadd(48.859, 291.703, -19.6, 0.836)
pt3dadd(48.971, 291.744, -19.607, 0.824)
pt3dadd(49.074, 291.792, -19.636, 0.808)
pt3dadd(49.178, 291.839, -19.666, 0.792)
pt3dadd(49.283, 291.887, -19.696, 0.774)
pt3dadd(49.387, 291.935, -19.726, 0.758)
pt3dadd(49.478, 291.983, -19.775, 0.614)
pt3dadd(49.554, 292.044, -19.833, 0.528)
pt3dadd(49.624, 292.112, -19.89, 0.46)
pt3dadd(49.684, 292.19, -19.948, 0.416)
pt3dadd(49.744, 292.268, -20.005, 0.374)
pt3dadd(49.834, 292.31, -20.042, 0.346)
pt3dadd(49.951, 292.318, -20.059, 0.332)
pt3dadd(50.044, 292.32, -20.021, 0.34)
pt3dadd(50.119, 292.32, -19.943, 0.364)
pt3dadd(50.2, 292.34, -19.875, 0.396)
pt3dadd(50.288, 292.385, -19.819, 0.438)
pt3dadd(50.386, 292.414, -19.767, 0.476)
pt3dadd(50.488, 292.434, -19.716, 0.516)
pt3dadd(50.558, 292.44, -19.64, 0.534)
pt3dadd(50.615, 292.44, -19.552, 0.544)
pt3dadd(50.672, 292.44, -19.464, 0.554)
pt3dadd(50.729, 292.44, -19.375, 0.564)
pt3dadd(50.785, 292.44, -19.287, 0.572)
pt3dadd(50.861, 292.44, -19.213, 0.56)
pt3dadd(50.928, 292.44, -19.131, 0.516)
pt3dadd(50.989, 292.44, -19.045, 0.47)
pt3dadd(51.046, 292.44, -18.957, 0.432)
pt3dadd(51.1, 292.44, -18.867, 0.398)
pt3dadd(51.154, 292.44, -18.778, 0.364)
pt3dadd(51.208, 292.44, -18.689, 0.33)
pt3dadd(51.298, 292.486, -18.64, 0.29)
pt3dadd(51.394, 292.537, -18.6, 0.25)
pt3dadd(51.497, 292.598, -18.6, 0.238)
pt3dadd(51.6, 292.66, -18.6, 0.228)
pt3dadd(51.718, 292.67, -18.6, 0.226)
pt3dadd(51.838, 292.675, -18.6, 0.226)
pt3dadd(51.958, 292.68, -18.6, 0.226)
pt3dadd(52.078, 292.68, -18.6, 0.226)
pt3dadd(52.198, 292.68, -18.6, 0.226)
pt3dadd(52.318, 292.68, -18.6, 0.226)
pt3dadd(52.438, 292.68, -18.6, 0.25)
pt3dadd(52.558, 292.68, -18.6, 0.268)
pt3dadd(52.678, 292.68, -18.6, 0.284)
pt3dadd(52.798, 292.68, -18.6, 0.302)
pt3dadd(52.91, 292.68, -18.634, 0.326)
pt3dadd(53.023, 292.68, -18.668, 0.352)
pt3dadd(53.136, 292.68, -18.702, 0.378)
pt3dadd(53.244, 292.684, -18.74, 0.406)
pt3dadd(53.294, 292.727, -18.823, 0.46)
pt3dadd(53.358, 292.764, -18.89, 0.512)
pt3dadd(53.478, 292.778, -18.894, 0.562)
pt3dadd(53.597, 292.794, -18.898, 0.61)
pt3dadd(53.716, 292.8, -18.9, 0.644)
pt3dadd(53.836, 292.8, -18.9, 0.668)
pt3dadd(53.956, 292.8, -18.9, 0.694)
pt3dadd(54.076, 292.802, -18.9, 0.714)
pt3dadd(54.196, 292.807, -18.9, 0.732)
pt3dadd(54.316, 292.812, -18.9, 0.748)
pt3dadd(54.428, 292.848, -18.9, 0.756)
pt3dadd(54.539, 292.896, -18.9, 0.762)
pt3dadd(54.649, 292.944, -18.9, 0.766)
pt3dadd(54.758, 292.991, -18.9, 0.77)
pt3dadd(54.869, 293.039, -18.9, 0.776)
pt3dadd(54.978, 293.09, -18.9, 0.784)
pt3dadd(55.084, 293.147, -18.9, 0.798)
pt3dadd(55.189, 293.203, -18.9, 0.814)
pt3dadd(55.295, 293.261, -18.9, 0.828)
pt3dadd(55.4, 293.317, -18.9, 0.842)
pt3dadd(55.506, 293.372, -18.9, 0.86)
pt3dadd(55.615, 293.424, -18.9, 0.884)
pt3dadd(55.724, 293.474, -18.9, 0.908)
pt3dadd(55.834, 293.525, -18.9, 0.932)
pt3dadd(55.942, 293.575, -18.9, 0.954)
pt3dadd(56.051, 293.626, -18.9, 0.978)
pt3dadd(56.132, 293.713, -18.9, 1)
pt3dadd(56.213, 293.802, -18.9, 1.02)
pt3dadd(56.293, 293.891, -18.9, 1.04)
pt3dadd(56.374, 293.98, -18.9, 1.06)
pt3dadd(56.455, 294.068, -18.9, 1.08)
pt3dadd(56.561, 294.125, -18.9, 1.09)
pt3dadd(56.666, 294.181, -18.9, 1.1)
pt3dadd(56.772, 294.238, -18.9, 1.11)
pt3dadd(56.879, 294.295, -18.9, 1.118)
pt3dadd(56.984, 294.352, -18.9, 1.128)
pt3dadd(57.091, 294.406, -18.9, 1.13)
pt3dadd(57.202, 294.452, -18.9, 1.122)
pt3dadd(57.317, 294.485, -18.9, 1.102)
pt3dadd(57.432, 294.517, -18.9, 1.082)
pt3dadd(57.536, 294.576, -18.9, 1.038)
pt3dadd(57.64, 294.637, -18.9, 0.992)
pt3dadd(57.686, 294.739, -18.9, 0.942)
pt3dadd(57.713, 294.857, -18.9, 0.892)
pt3dadd(57.742, 294.972, -18.9, 0.846)
pt3dadd(57.782, 295.086, -18.9, 0.814)
pt3dadd(57.822, 295.199, -18.9, 0.782)
pt3dadd(57.84, 295.318, -18.9, 0.766)
pt3dadd(57.858, 295.435, -18.9, 0.752)
pt3dadd(57.919, 295.538, -18.9, 0.74)
pt3dadd(57.979, 295.642, -18.9, 0.73)
pt3dadd(58.043, 295.744, -18.905, 0.718)
pt3dadd(58.106, 295.846, -18.91, 0.706)
pt3dadd(58.16, 295.907, -18.974, 0.704)
pt3dadd(58.212, 295.958, -19.054, 0.704)
pt3dadd(58.262, 296.002, -19.137, 0.716)
pt3dadd(58.313, 296.046, -19.219, 0.728)
pt3dadd(58.372, 296.105, -19.292, 0.734)
pt3dadd(58.429, 296.162, -19.365, 0.742)
pt3dadd(58.488, 296.221, -19.437, 0.748)
pt3dadd(58.546, 296.279, -19.51, 0.754)
pt3dadd(58.59, 296.368, -19.566, 0.712)
pt3dadd(58.673, 296.408, -19.625, 0.672)
pt3dadd(58.765, 296.437, -19.684, 0.632)
pt3dadd(58.85, 296.518, -19.694, 0.594)
pt3dadd(58.934, 296.602, -19.699, 0.558)
pt3dadd(59.023, 296.684, -19.7, 0.552)
pt3dadd(59.111, 296.765, -19.7, 0.552)
pt3dadd(59.179, 296.863, -19.7, 0.57)
pt3dadd(59.239, 296.966, -19.7, 0.592)
pt3dadd(59.299, 297.071, -19.7, 0.606)
pt3dadd(59.359, 297.174, -19.7, 0.61)
pt3dadd(59.419, 297.278, -19.7, 0.616)
pt3dadd(59.478, 297.383, -19.7, 0.62)
pt3dadd(59.538, 297.487, -19.7, 0.624)
pt3dadd(59.615, 297.575, -19.7, 0.628)
pt3dadd(59.716, 297.641, -19.7, 0.628)
pt3dadd(59.816, 297.707, -19.7, 0.628)
pt3dadd(59.916, 297.772, -19.7, 0.628)
pt3dadd(60.017, 297.838, -19.7, 0.628)
pt3dadd(60.102, 297.918, -19.7, 0.626)
pt3dadd(60.162, 298.021, -19.7, 0.622)
pt3dadd(60.222, 298.126, -19.7, 0.616)
pt3dadd(60.281, 298.23, -19.7, 0.612)
pt3dadd(60.341, 298.334, -19.7, 0.606)
pt3dadd(60.406, 298.434, -19.7, 0.604)
pt3dadd(60.49, 298.52, -19.7, 0.61)
pt3dadd(60.574, 298.606, -19.7, 0.614)
pt3dadd(60.656, 298.692, -19.7, 0.62)
pt3dadd(60.74, 298.778, -19.7, 0.624)
pt3dadd(60.823, 298.865, -19.7, 0.63)
pt3dadd(60.904, 298.954, -19.7, 0.634)
pt3dadd(60.985, 299.042, -19.7, 0.64)
pt3dadd(61.066, 299.131, -19.7, 0.644)
pt3dadd(61.146, 299.22, -19.7, 0.65)
pt3dadd(61.228, 299.308, -19.708, 0.654)
pt3dadd(61.31, 299.39, -19.73, 0.66)
pt3dadd(61.392, 299.472, -19.753, 0.666)
pt3dadd(61.475, 299.555, -19.776, 0.672)
pt3dadd(61.558, 299.638, -19.799, 0.678)
pt3dadd(61.618, 299.717, -19.856, 0.666)
pt3dadd(61.676, 299.795, -19.913, 0.654)
pt3dadd(61.735, 299.874, -19.97, 0.642)
pt3dadd(61.794, 299.952, -20.028, 0.628)
pt3dadd(61.853, 300.013, -20.099, 0.612)
pt3dadd(61.91, 300.071, -20.171, 0.594)
pt3dadd(61.969, 300.13, -20.244, 0.574)
pt3dadd(62.027, 300.187, -20.317, 0.556)
pt3dadd(62.11, 300.25, -20.364, 0.534)
pt3dadd(62.2, 300.314, -20.404, 0.51)
pt3dadd(62.288, 300.378, -20.444, 0.486)
pt3dadd(62.378, 300.442, -20.484, 0.462)
pt3dadd(62.456, 300.526, -20.5, 0.448)
pt3dadd(62.527, 300.623, -20.5, 0.44)
pt3dadd(62.598, 300.72, -20.5, 0.434)
pt3dadd(62.669, 300.816, -20.499, 0.428)
pt3dadd(62.732, 300.912, -20.472, 0.448)
pt3dadd(62.812, 300.992, -20.437, 0.496)
pt3dadd(62.893, 301.067, -20.4, 0.552)
pt3dadd(63.012, 301.087, -20.4, 0.6)
pt3dadd(63.13, 301.108, -20.4, 0.65)
pt3dadd(63.228, 301.159, -20.4, 0.702)
pt3dadd(63.295, 301.259, -20.4, 0.76)
pt3dadd(63.348, 301.363, -20.4, 0.808)
pt3dadd(63.353, 301.483, -20.4, 0.826)
pt3dadd(63.358, 301.602, -20.4, 0.842)
pt3dadd(63.368, 301.721, -20.391, 0.852)
pt3dadd(63.392, 301.835, -20.367, 0.848)
pt3dadd(63.416, 301.949, -20.343, 0.842)
pt3dadd(63.44, 302.062, -20.319, 0.838)
pt3dadd(63.463, 302.176, -20.294, 0.832)
pt3dadd(63.499, 302.286, -20.272, 0.824)
pt3dadd(63.56, 302.388, -20.255, 0.808)
pt3dadd(63.622, 302.489, -20.239, 0.79)
pt3dadd(63.682, 302.591, -20.222, 0.774)
pt3dadd(63.743, 302.692, -20.205, 0.758)
pt3dadd(63.814, 302.788, -20.2, 0.728)
pt3dadd(63.884, 302.885, -20.2, 0.7)
pt3dadd(63.946, 302.988, -20.2, 0.688)
pt3dadd(64.006, 303.091, -20.2, 0.678)
pt3dadd(64.067, 303.194, -20.2, 0.678)
pt3dadd(64.128, 303.298, -20.2, 0.678)
pt3dadd(64.224, 303.353, -20.167, 0.678)
pt3dadd(64.326, 303.402, -20.132, 0.678)
pt3dadd(64.435, 303.448, -20.116, 0.678)
pt3dadd(64.544, 303.492, -20.1, 0.678)
pt3dadd(64.643, 303.56, -20.1, 0.674)
pt3dadd(64.741, 303.63, -20.1, 0.668)
}
}
proc shape3d_36() {
dend_5[11] { pt3dadd(64.84, 303.698, -20.1, 0.664)
pt3dadd(64.937, 303.768, -20.1, 0.658)
pt3dadd(65.035, 303.836, -20.1, 0.654)
pt3dadd(65.106, 303.934, -20.1, 0.644)
pt3dadd(65.174, 304.032, -20.1, 0.634)
pt3dadd(65.244, 304.13, -20.1, 0.624)
pt3dadd(65.312, 304.228, -20.1, 0.614)
pt3dadd(65.382, 304.326, -20.1, 0.604)
pt3dadd(65.41, 304.442, -20.1, 0.598)
pt3dadd(65.435, 304.56, -20.1, 0.594)
pt3dadd(65.46, 304.678, -20.1, 0.59)
pt3dadd(65.484, 304.794, -20.1, 0.586)
pt3dadd(65.509, 304.912, -20.1, 0.582)
pt3dadd(65.534, 305.029, -20.1, 0.578)
pt3dadd(65.575, 305.142, -20.1, 0.588)
pt3dadd(65.617, 305.255, -20.1, 0.596)
pt3dadd(65.659, 305.366, -20.1, 0.606)
pt3dadd(65.701, 305.479, -20.1, 0.614)
pt3dadd(65.742, 305.592, -20.1, 0.624)
pt3dadd(65.803, 305.693, -20.104, 0.636)
pt3dadd(65.879, 305.786, -20.111, 0.652)
pt3dadd(65.954, 305.879, -20.118, 0.668)
pt3dadd(66.031, 305.971, -20.125, 0.684)
pt3dadd(66.107, 306.064, -20.132, 0.7)
pt3dadd(66.161, 306.163, -20.163, 0.704)
pt3dadd(66.209, 306.264, -20.198, 0.704)
pt3dadd(66.258, 306.365, -20.234, 0.704)
pt3dadd(66.307, 306.466, -20.27, 0.704)
pt3dadd(66.355, 306.571, -20.29, 0.696)
pt3dadd(66.4, 306.683, -20.292, 0.682)
pt3dadd(66.445, 306.793, -20.294, 0.668)
pt3dadd(66.491, 306.905, -20.296, 0.654)
pt3dadd(66.536, 307.015, -20.298, 0.64)
pt3dadd(66.583, 307.126, -20.301, 0.626)
pt3dadd(66.637, 307.232, -20.308, 0.616)
pt3dadd(66.69, 307.34, -20.315, 0.606)
pt3dadd(66.744, 307.447, -20.321, 0.596)
pt3dadd(66.797, 307.554, -20.328, 0.586)
pt3dadd(66.845, 307.663, -20.338, 0.582)
pt3dadd(66.866, 307.777, -20.362, 0.606)
pt3dadd(66.889, 307.891, -20.386, 0.63)
pt3dadd(66.911, 308.006, -20.41, 0.654)
pt3dadd(66.934, 308.12, -20.433, 0.678)
}
dend_5[12] {pt3dclear()
pt3dadd(26.32, 189.587, -0.244, 2.486)
pt3dadd(26.251, 189.63, -0.271, 2.468)
pt3dadd(26.156, 189.69, -0.308, 2.446)
pt3dadd(26.063, 189.75, -0.345, 2.422)
pt3dadd(25.968, 189.809, -0.381, 2.398)
pt3dadd(25.882, 189.884, -0.4, 2.368)
pt3dadd(25.805, 189.976, -0.4, 2.332)
pt3dadd(25.727, 190.067, -0.4, 2.298)
pt3dadd(25.649, 190.159, -0.4, 2.262)
pt3dadd(25.571, 190.25, -0.4, 2.226)
pt3dadd(25.478, 190.32, -0.413, 2.196)
pt3dadd(25.373, 190.369, -0.437, 2.168)
pt3dadd(25.268, 190.418, -0.461, 2.14)
pt3dadd(25.163, 190.469, -0.486, 2.112)
pt3dadd(25.057, 190.518, -0.51, 2.086)
pt3dadd(24.98, 190.584, -0.564, 2.072)
pt3dadd(24.905, 190.649, -0.619, 2.06)
pt3dadd(24.829, 190.715, -0.673, 2.048)
pt3dadd(24.754, 190.781, -0.728, 2.036)
pt3dadd(24.65, 190.793, -0.776, 2.012)
pt3dadd(24.544, 190.799, -0.823, 1.99)
pt3dadd(24.434, 190.82, -0.858, 1.946)
pt3dadd(24.324, 190.846, -0.891, 1.898)
pt3dadd(24.25, 190.927, -0.9, 1.826)
pt3dadd(24.188, 191.03, -0.9, 1.746)
pt3dadd(24.116, 191.125, -0.9, 1.676)
pt3dadd(24.036, 191.214, -0.9, 1.618)
pt3dadd(23.939, 191.269, -0.9, 1.566)
pt3dadd(23.819, 191.276, -0.9, 1.526)
pt3dadd(23.704, 191.302, -0.909, 1.512)
pt3dadd(23.593, 191.342, -0.928, 1.522)
pt3dadd(23.483, 191.384, -0.946, 1.532)
pt3dadd(23.372, 191.425, -0.965, 1.544)
pt3dadd(23.262, 191.467, -0.983, 1.554)
pt3dadd(23.153, 191.509, -1.005, 1.564)
pt3dadd(23.045, 191.552, -1.029, 1.574)
pt3dadd(22.937, 191.594, -1.053, 1.586)
pt3dadd(22.828, 191.638, -1.076, 1.596)
pt3dadd(22.72, 191.68, -1.1, 1.608)
pt3dadd(22.615, 191.74, -1.1, 1.608)
pt3dadd(22.511, 191.8, -1.1, 1.608)
pt3dadd(22.408, 191.86, -1.1, 1.608)
pt3dadd(22.303, 191.92, -1.1, 1.608)
pt3dadd(22.2, 191.98, -1.1, 1.608)
pt3dadd(22.096, 192.04, -1.1, 1.556)
pt3dadd(21.992, 192.101, -1.1, 1.5)
pt3dadd(21.923, 192.193, -1.1, 1.428)
pt3dadd(21.87, 192.301, -1.1, 1.348)
pt3dadd(21.794, 192.388, -1.108, 1.272)
pt3dadd(21.692, 192.448, -1.125, 1.196)
pt3dadd(21.59, 192.5, -1.15, 1.136)
pt3dadd(21.486, 192.542, -1.185, 1.098)
pt3dadd(21.378, 192.582, -1.214, 1.08)
pt3dadd(21.271, 192.624, -1.242, 1.084)
pt3dadd(21.173, 192.673, -1.28, 1.102)
pt3dadd(21.073, 192.724, -1.319, 1.118)
pt3dadd(20.975, 192.773, -1.358, 1.136)
pt3dadd(20.875, 192.822, -1.396, 1.154)
pt3dadd(20.791, 192.905, -1.4, 1.178)
pt3dadd(20.707, 192.991, -1.4, 1.204)
pt3dadd(20.623, 193.078, -1.4, 1.228)
pt3dadd(20.539, 193.163, -1.4, 1.254)
pt3dadd(20.456, 193.249, -1.4, 1.28)
pt3dadd(20.375, 193.338, -1.4, 1.3)
pt3dadd(20.294, 193.427, -1.4, 1.32)
pt3dadd(20.214, 193.516, -1.4, 1.34)
pt3dadd(20.134, 193.604, -1.4, 1.36)
pt3dadd(20.053, 193.693, -1.4, 1.382)
pt3dadd(19.955, 193.763, -1.4, 1.386)
pt3dadd(19.856, 193.831, -1.4, 1.392)
pt3dadd(19.758, 193.901, -1.4, 1.396)
pt3dadd(19.66, 193.969, -1.4, 1.4)
pt3dadd(19.562, 194.039, -1.4, 1.406)
pt3dadd(19.514, 194.148, -1.4, 1.396)
pt3dadd(19.468, 194.258, -1.4, 1.384)
pt3dadd(19.411, 194.365, -1.4, 1.388)
pt3dadd(19.35, 194.468, -1.4, 1.4)
pt3dadd(19.265, 194.543, -1.4, 1.428)
pt3dadd(19.154, 194.59, -1.4, 1.472)
pt3dadd(19.044, 194.634, -1.407, 1.52)
pt3dadd(18.936, 194.668, -1.441, 1.584)
pt3dadd(18.841, 194.717, -1.473, 1.64)
pt3dadd(18.791, 194.821, -1.498, 1.68)
pt3dadd(18.692, 194.88, -1.523, 1.672)
pt3dadd(18.59, 194.936, -1.548, 1.66)
pt3dadd(18.49, 194.994, -1.573, 1.65)
pt3dadd(18.388, 195.05, -1.598, 1.638)
pt3dadd(18.306, 195.125, -1.628, 1.618)
pt3dadd(18.246, 195.218, -1.665, 1.588)
pt3dadd(18.186, 195.313, -1.702, 1.56)
pt3dadd(18.126, 195.408, -1.738, 1.53)
pt3dadd(18.062, 195.5, -1.768, 1.5)
pt3dadd(17.983, 195.592, -1.775, 1.474)
pt3dadd(17.905, 195.682, -1.782, 1.448)
pt3dadd(17.826, 195.772, -1.789, 1.422)
pt3dadd(17.747, 195.862, -1.796, 1.394)
pt3dadd(17.657, 195.938, -1.8, 1.382)
pt3dadd(17.555, 196.001, -1.8, 1.382)
pt3dadd(17.453, 196.063, -1.8, 1.382)
pt3dadd(17.35, 196.127, -1.8, 1.382)
pt3dadd(17.248, 196.189, -1.8, 1.382)
pt3dadd(17.147, 196.247, -1.814, 1.392)
pt3dadd(17.046, 196.297, -1.85, 1.418)
pt3dadd(16.937, 196.332, -1.875, 1.45)
pt3dadd(16.82, 196.355, -1.889, 1.482)
pt3dadd(16.726, 196.402, -1.904, 1.496)
pt3dadd(16.696, 196.516, -1.919, 1.45)
pt3dadd(16.664, 196.63, -1.934, 1.404)
pt3dadd(16.59, 196.712, -1.972, 1.334)
pt3dadd(16.513, 196.795, -2, 1.27)
pt3dadd(16.429, 196.882, -2, 1.228)
pt3dadd(16.346, 196.968, -2, 1.184)
pt3dadd(16.264, 197.054, -2, 1.142)
pt3dadd(16.157, 197.104, -2, 1.122)
pt3dadd(16.042, 197.136, -2, 1.112)
pt3dadd(15.925, 197.165, -2, 1.096)
pt3dadd(15.817, 197.195, -2.018, 1.078)
pt3dadd(15.725, 197.249, -2.063, 1.072)
pt3dadd(15.632, 197.303, -2.108, 1.066)
pt3dadd(15.54, 197.357, -2.153, 1.06)
pt3dadd(15.446, 197.413, -2.194, 1.052)
pt3dadd(15.349, 197.477, -2.219, 1.04)
pt3dadd(15.252, 197.54, -2.245, 1.03)
pt3dadd(15.155, 197.604, -2.27, 1.018)
pt3dadd(15.058, 197.668, -2.295, 1.006)
pt3dadd(14.956, 197.718, -2.324, 1.008)
pt3dadd(14.851, 197.766, -2.354, 1.014)
pt3dadd(14.747, 197.814, -2.384, 1.02)
pt3dadd(14.642, 197.861, -2.413, 1.026)
pt3dadd(14.542, 197.911, -2.447, 1.036)
pt3dadd(14.447, 197.965, -2.489, 1.054)
pt3dadd(14.352, 198.018, -2.532, 1.072)
pt3dadd(14.257, 198.072, -2.574, 1.09)
pt3dadd(14.162, 198.125, -2.616, 1.106)
pt3dadd(14.064, 198.172, -2.657, 1.124)
pt3dadd(13.964, 198.218, -2.698, 1.142)
pt3dadd(13.866, 198.265, -2.739, 1.16)
pt3dadd(13.766, 198.311, -2.781, 1.176)
pt3dadd(13.681, 198.386, -2.807, 1.18)
pt3dadd(13.598, 198.469, -2.83, 1.18)
pt3dadd(13.516, 198.552, -2.853, 1.18)
pt3dadd(13.433, 198.635, -2.876, 1.18)
pt3dadd(13.339, 198.701, -2.898, 1.178)
pt3dadd(13.231, 198.745, -2.92, 1.172)
pt3dadd(13.123, 198.791, -2.941, 1.168)
pt3dadd(13.015, 198.836, -2.962, 1.162)
pt3dadd(12.907, 198.882, -2.984, 1.156)
pt3dadd(12.811, 198.946, -3.008, 1.15)
pt3dadd(12.719, 199.016, -3.034, 1.144)
pt3dadd(12.626, 199.087, -3.059, 1.14)
pt3dadd(12.535, 199.158, -3.085, 1.134)
pt3dadd(12.438, 199.222, -3.109, 1.128)
pt3dadd(12.332, 199.273, -3.131, 1.122)
pt3dadd(12.228, 199.326, -3.152, 1.116)
pt3dadd(12.124, 199.379, -3.174, 1.112)
pt3dadd(12.018, 199.43, -3.196, 1.106)
pt3dadd(11.921, 199.499, -3.2, 1.096)
}
}
proc shape3d_37() {
dend_5[12] { pt3dadd(11.825, 199.571, -3.2, 1.086)
pt3dadd(11.729, 199.643, -3.2, 1.076)
pt3dadd(11.633, 199.715, -3.2, 1.066)
pt3dadd(11.537, 199.787, -3.2, 1.056)
pt3dadd(11.449, 199.865, -3.219, 1.036)
pt3dadd(11.364, 199.945, -3.242, 1.012)
pt3dadd(11.279, 200.024, -3.265, 0.99)
pt3dadd(11.192, 200.104, -3.288, 0.966)
pt3dadd(11.112, 200.176, -3.326, 0.928)
pt3dadd(11.035, 200.237, -3.384, 0.87)
pt3dadd(10.946, 200.305, -3.417, 0.816)
pt3dadd(10.854, 200.376, -3.441, 0.762)
pt3dadd(10.793, 200.392, -3.519, 0.734)
pt3dadd(10.736, 200.398, -3.607, 0.71)
pt3dadd(10.709, 200.4, -3.703, 0.696)
pt3dadd(10.694, 200.4, -3.802, 0.688)
pt3dadd(10.679, 200.4, -3.901, 0.678)
pt3dadd(10.639, 200.4, -3.996, 0.678)
pt3dadd(10.6, 200.4, -4.09, 0.678)
pt3dadd(10.531, 200.414, -4.168, 0.678)
pt3dadd(10.454, 200.496, -4.196, 0.662)
pt3dadd(10.399, 200.602, -4.2, 0.628)
pt3dadd(10.324, 200.695, -4.2, 0.728)
pt3dadd(10.244, 200.785, -4.2, 0.864)
pt3dadd(10.16, 200.87, -4.2, 0.926)
pt3dadd(10.076, 200.957, -4.2, 0.986)
pt3dadd(9.992, 201.043, -4.2, 1.048)
pt3dadd(9.91, 201.128, -4.2, 1.108)
pt3dadd(9.816, 201.204, -4.2, 1.172)
pt3dadd(9.718, 201.274, -4.2, 1.236)
pt3dadd(9.62, 201.342, -4.2, 1.302)
pt3dadd(9.522, 201.412, -4.2, 1.366)
pt3dadd(9.424, 201.48, -4.2, 1.432)
pt3dadd(9.331, 201.557, -4.2, 1.478)
pt3dadd(9.242, 201.637, -4.2, 1.514)
pt3dadd(9.154, 201.719, -4.2, 1.55)
pt3dadd(9.066, 201.799, -4.2, 1.584)
pt3dadd(8.977, 201.88, -4.2, 1.62)
pt3dadd(8.88, 201.952, -4.2, 1.636)
pt3dadd(8.78, 202.016, -4.2, 1.64)
pt3dadd(8.68, 202.082, -4.2, 1.646)
pt3dadd(8.579, 202.148, -4.2, 1.65)
pt3dadd(8.479, 202.214, -4.2, 1.656)
pt3dadd(8.384, 202.288, -4.2, 1.648)
pt3dadd(8.293, 202.366, -4.2, 1.632)
pt3dadd(8.202, 202.444, -4.2, 1.618)
pt3dadd(8.111, 202.522, -4.2, 1.602)
pt3dadd(8.02, 202.6, -4.2, 1.588)
pt3dadd(7.919, 202.663, -4.2, 1.576)
pt3dadd(7.813, 202.721, -4.2, 1.566)
pt3dadd(7.708, 202.777, -4.2, 1.556)
pt3dadd(7.602, 202.834, -4.2, 1.546)
pt3dadd(7.495, 202.89, -4.2, 1.538)
pt3dadd(7.385, 202.931, -4.2, 1.528)
pt3dadd(7.266, 202.952, -4.2, 1.52)
pt3dadd(7.148, 202.975, -4.2, 1.512)
pt3dadd(7.031, 202.997, -4.2, 1.502)
pt3dadd(6.912, 203.02, -4.2, 1.494)
pt3dadd(6.794, 203.041, -4.2, 1.486)
pt3dadd(6.688, 203.088, -4.2, 1.476)
pt3dadd(6.592, 203.16, -4.2, 1.466)
pt3dadd(6.496, 203.232, -4.2, 1.456)
pt3dadd(6.4, 203.304, -4.2, 1.446)
pt3dadd(6.304, 203.376, -4.2, 1.436)
pt3dadd(6.208, 203.448, -4.2, 1.428)
pt3dadd(6.112, 203.52, -4.2, 1.424)
pt3dadd(6.016, 203.592, -4.2, 1.418)
pt3dadd(5.92, 203.664, -4.2, 1.414)
pt3dadd(5.824, 203.736, -4.2, 1.408)
pt3dadd(5.717, 203.782, -4.2, 1.406)
pt3dadd(5.598, 203.798, -4.2, 1.406)
pt3dadd(5.479, 203.816, -4.2, 1.406)
pt3dadd(5.36, 203.833, -4.2, 1.406)
pt3dadd(5.242, 203.851, -4.2, 1.406)
pt3dadd(5.123, 203.868, -4.2, 1.406)
pt3dadd(5.006, 203.892, -4.206, 1.406)
pt3dadd(4.896, 203.934, -4.224, 1.406)
pt3dadd(4.786, 203.976, -4.242, 1.406)
pt3dadd(4.675, 204.017, -4.261, 1.406)
pt3dadd(4.565, 204.059, -4.279, 1.406)
pt3dadd(4.453, 204.094, -4.299, 1.396)
pt3dadd(4.339, 204.12, -4.321, 1.376)
pt3dadd(4.225, 204.146, -4.344, 1.356)
pt3dadd(4.111, 204.173, -4.366, 1.336)
pt3dadd(3.997, 204.199, -4.388, 1.316)
pt3dadd(3.888, 204.228, -4.42, 1.288)
pt3dadd(3.786, 204.262, -4.465, 1.248)
pt3dadd(3.684, 204.294, -4.51, 1.21)
pt3dadd(3.582, 204.328, -4.555, 1.17)
pt3dadd(3.48, 204.36, -4.6, 1.13)
}
dend_5[13] {pt3dclear()
pt3dadd(3.48, 204.36, -4.6, 1.13)
pt3dadd(3.371, 204.38, -4.611, 1.096)
pt3dadd(3.254, 204.402, -4.623, 1.06)
pt3dadd(3.137, 204.425, -4.636, 1.022)
pt3dadd(3.02, 204.446, -4.648, 0.986)
pt3dadd(2.903, 204.468, -4.66, 0.948)
pt3dadd(2.789, 204.487, -4.682, 0.918)
pt3dadd(2.676, 204.504, -4.715, 0.892)
pt3dadd(2.564, 204.52, -4.749, 0.868)
pt3dadd(2.453, 204.535, -4.782, 0.842)
pt3dadd(2.34, 204.552, -4.815, 0.818)
pt3dadd(2.231, 204.575, -4.85, 0.812)
pt3dadd(2.123, 204.607, -4.886, 0.828)
pt3dadd(2.016, 204.638, -4.922, 0.844)
pt3dadd(1.909, 204.671, -4.959, 0.86)
pt3dadd(1.801, 204.702, -4.995, 0.876)
pt3dadd(1.687, 204.731, -5.011, 0.92)
pt3dadd(1.571, 204.758, -5.023, 0.968)
pt3dadd(1.456, 204.786, -5.036, 1.014)
pt3dadd(1.339, 204.814, -5.049, 1.062)
pt3dadd(1.224, 204.841, -5.061, 1.11)
pt3dadd(1.112, 204.882, -5.072, 1.168)
pt3dadd(1.004, 204.934, -5.081, 1.234)
pt3dadd(0.896, 204.985, -5.09, 1.3)
pt3dadd(0.788, 205.036, -5.099, 1.366)
pt3dadd(0.68, 205.087, -5.108, 1.432)
pt3dadd(0.566, 205.117, -5.121, 1.47)
pt3dadd(0.45, 205.134, -5.137, 1.494)
pt3dadd(0.332, 205.151, -5.154, 1.516)
pt3dadd(0.216, 205.169, -5.17, 1.54)
pt3dadd(0.098, 205.186, -5.186, 1.562)
pt3dadd(-0.019, 205.2, -5.2, 1.58)
pt3dadd(-0.139, 205.2, -5.2, 1.562)
pt3dadd(-0.259, 205.2, -5.2, 1.544)
pt3dadd(-0.379, 205.2, -5.2, 1.526)
pt3dadd(-0.499, 205.2, -5.2, 1.508)
pt3dadd(-0.619, 205.2, -5.2, 1.49)
pt3dadd(-0.739, 205.2, -5.2, 1.472)
pt3dadd(-0.859, 205.205, -5.2, 1.448)
pt3dadd(-0.976, 205.232, -5.202, 1.396)
pt3dadd(-1.092, 205.26, -5.204, 1.342)
pt3dadd(-1.208, 205.288, -5.206, 1.29)
pt3dadd(-1.326, 205.316, -5.208, 1.238)
pt3dadd(-1.442, 205.344, -5.21, 1.184)
pt3dadd(-1.555, 205.379, -5.219, 1.13)
pt3dadd(-1.664, 205.424, -5.238, 1.072)
pt3dadd(-1.774, 205.469, -5.257, 1.014)
pt3dadd(-1.883, 205.514, -5.275, 0.956)
pt3dadd(-1.992, 205.559, -5.294, 0.898)
pt3dadd(-2.101, 205.604, -5.3, 0.82)
pt3dadd(-2.213, 205.651, -5.3, 0.732)
pt3dadd(-2.316, 205.669, -5.322, 0.684)
pt3dadd(-2.411, 205.642, -5.38, 0.698)
pt3dadd(-2.506, 205.613, -5.437, 0.712)
pt3dadd(-2.599, 205.585, -5.494, 0.726)
pt3dadd(-2.694, 205.556, -5.551, 0.742)
pt3dadd(-2.788, 205.529, -5.609, 0.756)
pt3dadd(-2.882, 205.501, -5.666, 0.77)
pt3dadd(-2.976, 205.472, -5.724, 0.784)
pt3dadd(-3.071, 205.445, -5.781, 0.798)
pt3dadd(-3.164, 205.417, -5.838, 0.814)
pt3dadd(-3.259, 205.388, -5.896, 0.828)
pt3dadd(-3.353, 205.361, -5.953, 0.842)
pt3dadd(-3.448, 205.332, -6.01, 0.856)
pt3dadd(-3.541, 205.304, -6.067, 0.87)
pt3dadd(-3.636, 205.277, -6.125, 0.886)
pt3dadd(-3.73, 205.248, -6.182, 0.9)
pt3dadd(-3.842, 205.236, -6.2, 0.916)
pt3dadd(-3.962, 205.23, -6.2, 0.936)
pt3dadd(-4.081, 205.224, -6.2, 0.954)
pt3dadd(-4.201, 205.218, -6.2, 0.974)
pt3dadd(-4.321, 205.212, -6.2, 0.992)
pt3dadd(-4.441, 205.206, -6.2, 1.012)
pt3dadd(-4.561, 205.2, -6.2, 1.03)
pt3dadd(-4.681, 205.2, -6.2, 1.036)
pt3dadd(-4.801, 205.2, -6.2, 1.044)
pt3dadd(-4.921, 205.2, -6.2, 1.052)
pt3dadd(-5.041, 205.2, -6.2, 1.058)
pt3dadd(-5.161, 205.2, -6.2, 1.066)
pt3dadd(-5.281, 205.2, -6.2, 1.072)
pt3dadd(-5.401, 205.2, -6.2, 1.08)
pt3dadd(-5.521, 205.2, -6.2, 1.09)
pt3dadd(-5.641, 205.2, -6.2, 1.102)
pt3dadd(-5.761, 205.2, -6.2, 1.112)
pt3dadd(-5.881, 205.2, -6.2, 1.122)
pt3dadd(-6.001, 205.2, -6.2, 1.134)
pt3dadd(-6.121, 205.2, -6.2, 1.144)
pt3dadd(-6.241, 205.2, -6.2, 1.156)
pt3dadd(-6.361, 205.2, -6.2, 1.174)
pt3dadd(-6.481, 205.2, -6.2, 1.192)
pt3dadd(-6.601, 205.2, -6.2, 1.21)
pt3dadd(-6.721, 205.2, -6.2, 1.226)
pt3dadd(-6.841, 205.2, -6.2, 1.246)
pt3dadd(-6.961, 205.2, -6.2, 1.262)
pt3dadd(-7.081, 205.2, -6.2, 1.28)
pt3dadd(-7.201, 205.2, -6.2, 1.298)
pt3dadd(-7.321, 205.2, -6.2, 1.316)
pt3dadd(-7.441, 205.2, -6.2, 1.334)
pt3dadd(-7.561, 205.2, -6.2, 1.352)
pt3dadd(-7.681, 205.2, -6.2, 1.37)
pt3dadd(-7.801, 205.2, -6.2, 1.388)
pt3dadd(-7.921, 205.2, -6.2, 1.406)
pt3dadd(-8.041, 205.2, -6.2, 1.418)
pt3dadd(-8.161, 205.2, -6.2, 1.428)
pt3dadd(-8.281, 205.2, -6.2, 1.438)
pt3dadd(-8.401, 205.2, -6.2, 1.45)
pt3dadd(-8.521, 205.2, -6.2, 1.46)
pt3dadd(-8.641, 205.2, -6.2, 1.472)
pt3dadd(-8.761, 205.2, -6.2, 1.482)
pt3dadd(-8.881, 205.2, -6.2, 1.478)
}
}
proc shape3d_38() {
dend_5[13] { pt3dadd(-9.001, 205.2, -6.2, 1.474)
pt3dadd(-9.121, 205.2, -6.2, 1.47)
pt3dadd(-9.241, 205.2, -6.2, 1.468)
pt3dadd(-9.361, 205.2, -6.2, 1.464)
pt3dadd(-9.481, 205.2, -6.2, 1.46)
pt3dadd(-9.601, 205.2, -6.2, 1.456)
pt3dadd(-9.721, 205.2, -6.2, 1.442)
pt3dadd(-9.841, 205.2, -6.2, 1.428)
pt3dadd(-9.961, 205.2, -6.2, 1.414)
pt3dadd(-10.081, 205.2, -6.2, 1.398)
pt3dadd(-10.201, 205.2, -6.2, 1.384)
pt3dadd(-10.321, 205.2, -6.2, 1.37)
pt3dadd(-10.441, 205.2, -6.2, 1.356)
pt3dadd(-10.561, 205.2, -6.2, 1.334)
pt3dadd(-10.681, 205.2, -6.2, 1.312)
pt3dadd(-10.801, 205.2, -6.2, 1.292)
pt3dadd(-10.921, 205.2, -6.2, 1.27)
pt3dadd(-11.041, 205.2, -6.2, 1.248)
pt3dadd(-11.161, 205.2, -6.2, 1.226)
pt3dadd(-11.281, 205.2, -6.2, 1.206)
pt3dadd(-11.399, 205.177, -6.2, 1.188)
pt3dadd(-11.516, 205.156, -6.2, 1.172)
pt3dadd(-11.635, 205.133, -6.2, 1.154)
pt3dadd(-11.753, 205.111, -6.2, 1.138)
pt3dadd(-11.87, 205.088, -6.2, 1.122)
pt3dadd(-11.989, 205.067, -6.2, 1.104)
pt3dadd(-12.107, 205.048, -6.208, 1.088)
pt3dadd(-12.226, 205.03, -6.215, 1.07)
pt3dadd(-12.343, 205.01, -6.223, 1.052)
pt3dadd(-12.462, 204.992, -6.231, 1.034)
pt3dadd(-12.58, 204.973, -6.239, 1.018)
pt3dadd(-12.685, 204.953, -6.264, 0.99)
pt3dadd(-12.757, 204.924, -6.342, 0.936)
pt3dadd(-12.833, 204.875, -6.391, 0.89)
pt3dadd(-12.917, 204.79, -6.396, 0.854)
pt3dadd(-13.014, 204.732, -6.4, 0.834)
pt3dadd(-13.134, 204.727, -6.4, 0.852)
pt3dadd(-13.254, 204.722, -6.4, 0.87)
pt3dadd(-13.372, 204.72, -6.412, 0.92)
pt3dadd(-13.487, 204.72, -6.44, 1.014)
pt3dadd(-13.602, 204.72, -6.467, 1.108)
pt3dadd(-13.72, 204.72, -6.487, 1.24)
pt3dadd(-13.838, 204.72, -6.505, 1.338)
pt3dadd(-13.956, 204.72, -6.522, 1.364)
pt3dadd(-14.075, 204.72, -6.538, 1.388)
pt3dadd(-14.192, 204.72, -6.555, 1.414)
pt3dadd(-14.311, 204.72, -6.571, 1.438)
pt3dadd(-14.43, 204.72, -6.588, 1.462)
pt3dadd(-14.548, 204.72, -6.603, 1.48)
pt3dadd(-14.666, 204.72, -6.618, 1.476)
pt3dadd(-14.785, 204.72, -6.632, 1.472)
pt3dadd(-14.904, 204.72, -6.647, 1.468)
pt3dadd(-15.023, 204.72, -6.661, 1.464)
pt3dadd(-15.142, 204.72, -6.675, 1.46)
pt3dadd(-15.26, 204.72, -6.689, 1.456)
pt3dadd(-15.38, 204.72, -6.693, 1.448)
pt3dadd(-15.5, 204.72, -6.697, 1.438)
pt3dadd(-15.62, 204.716, -6.7, 1.432)
pt3dadd(-15.738, 204.696, -6.7, 1.432)
pt3dadd(-15.857, 204.676, -6.7, 1.432)
pt3dadd(-15.947, 204.612, -6.71, 1.454)
pt3dadd(-16.015, 204.516, -6.727, 1.492)
pt3dadd(-16.082, 204.424, -6.757, 1.516)
pt3dadd(-16.15, 204.335, -6.794, 1.53)
pt3dadd(-16.248, 204.272, -6.8, 1.526)
pt3dadd(-16.354, 204.214, -6.8, 1.52)
pt3dadd(-16.458, 204.156, -6.8, 1.512)
pt3dadd(-16.564, 204.1, -6.803, 1.502)
pt3dadd(-16.674, 204.054, -6.819, 1.464)
pt3dadd(-16.781, 204.011, -6.839, 1.424)
pt3dadd(-16.879, 204, -6.887, 1.38)
pt3dadd(-16.997, 204, -6.908, 1.374)
pt3dadd(-17.114, 204, -6.929, 1.37)
pt3dadd(-17.232, 204, -6.949, 1.366)
pt3dadd(-17.348, 204, -6.97, 1.362)
pt3dadd(-17.466, 204, -6.99, 1.358)
pt3dadd(-17.579, 203.992, -7.021, 1.354)
pt3dadd(-17.689, 203.975, -7.06, 1.348)
pt3dadd(-17.798, 203.958, -7.099, 1.342)
pt3dadd(-17.908, 203.941, -7.137, 1.338)
pt3dadd(-18.017, 203.926, -7.176, 1.332)
pt3dadd(-18.133, 203.916, -7.19, 1.32)
pt3dadd(-18.253, 203.91, -7.192, 1.306)
pt3dadd(-18.373, 203.904, -7.193, 1.29)
pt3dadd(-18.493, 203.898, -7.195, 1.274)
pt3dadd(-18.612, 203.891, -7.197, 1.26)
pt3dadd(-18.732, 203.885, -7.199, 1.244)
pt3dadd(-18.852, 203.88, -7.202, 1.228)
pt3dadd(-18.971, 203.88, -7.218, 1.198)
pt3dadd(-19.088, 203.88, -7.235, 1.17)
pt3dadd(-19.207, 203.88, -7.251, 1.14)
pt3dadd(-19.326, 203.88, -7.267, 1.112)
pt3dadd(-19.444, 203.88, -7.284, 1.082)
pt3dadd(-19.562, 203.88, -7.3, 1.054)
pt3dadd(-19.682, 203.88, -7.3, 0.996)
pt3dadd(-19.802, 203.88, -7.3, 0.936)
pt3dadd(-19.922, 203.88, -7.3, 0.878)
pt3dadd(-20.041, 203.866, -7.3, 0.85)
pt3dadd(-20.16, 203.85, -7.3, 0.822)
pt3dadd(-20.27, 203.815, -7.302, 0.808)
pt3dadd(-20.36, 203.736, -7.307, 0.82)
pt3dadd(-20.446, 203.674, -7.333, 0.836)
pt3dadd(-20.514, 203.653, -7.414, 0.862)
pt3dadd(-20.59, 203.64, -7.489, 0.878)
pt3dadd(-20.681, 203.64, -7.555, 0.878)
pt3dadd(-20.771, 203.64, -7.621, 0.878)
pt3dadd(-20.861, 203.64, -7.686, 0.878)
pt3dadd(-20.975, 203.64, -7.7, 0.866)
pt3dadd(-21.095, 203.64, -7.7, 0.848)
pt3dadd(-21.215, 203.64, -7.7, 0.832)
pt3dadd(-21.335, 203.64, -7.7, 0.788)
pt3dadd(-21.454, 203.64, -7.713, 0.778)
pt3dadd(-21.572, 203.64, -7.729, 0.778)
pt3dadd(-21.69, 203.64, -7.746, 0.778)
pt3dadd(-21.809, 203.64, -7.762, 0.778)
pt3dadd(-21.928, 203.64, -7.779, 0.778)
pt3dadd(-22.045, 203.64, -7.795, 0.778)
pt3dadd(-22.164, 203.64, -7.812, 0.79)
pt3dadd(-22.283, 203.64, -7.828, 0.806)
pt3dadd(-22.4, 203.64, -7.845, 0.824)
pt3dadd(-22.519, 203.64, -7.861, 0.84)
pt3dadd(-22.637, 203.64, -7.877, 0.856)
pt3dadd(-22.756, 203.64, -7.894, 0.872)
pt3dadd(-22.873, 203.624, -7.908, 0.896)
pt3dadd(-22.99, 203.599, -7.92, 0.924)
pt3dadd(-23.106, 203.575, -7.933, 0.952)
pt3dadd(-23.222, 203.55, -7.945, 0.98)
pt3dadd(-23.339, 203.525, -7.957, 1.008)
pt3dadd(-23.45, 203.489, -7.968, 1.038)
pt3dadd(-23.545, 203.416, -7.975, 1.068)
pt3dadd(-23.64, 203.344, -7.982, 1.1)
pt3dadd(-23.735, 203.27, -7.989, 1.132)
pt3dadd(-23.831, 203.198, -7.996, 1.164)
pt3dadd(-23.917, 203.131, -8.028, 1.194)
pt3dadd(-23.993, 203.069, -8.085, 1.222)
pt3dadd(-24.07, 203.008, -8.142, 1.22)
pt3dadd(-24.146, 202.946, -8.2, 1.206)
}
dend_5[14] {pt3dclear()
pt3dadd(-24.146, 202.946, -8.2, 1.206)
pt3dadd(-24.223, 202.901, -8.2, 1.18)
pt3dadd(-24.326, 202.841, -8.2, 1.146)
pt3dadd(-24.439, 202.811, -8.2, 1.116)
pt3dadd(-24.559, 202.806, -8.2, 1.09)
pt3dadd(-24.679, 202.801, -8.2, 1.064)
pt3dadd(-24.784, 202.753, -8.2, 1.04)
pt3dadd(-24.881, 202.682, -8.2, 1.02)
pt3dadd(-24.978, 202.612, -8.2, 0.998)
pt3dadd(-25.072, 202.538, -8.2, 0.976)
pt3dadd(-25.133, 202.435, -8.2, 0.942)
pt3dadd(-25.193, 202.331, -8.2, 0.908)
pt3dadd(-25.285, 202.256, -8.2, 0.826)
pt3dadd(-25.387, 202.193, -8.2, 0.816)
pt3dadd(-25.489, 202.13, -8.2, 0.808)
pt3dadd(-25.591, 202.067, -8.2, 0.798)
pt3dadd(-25.694, 202.004, -8.2, 0.788)
pt3dadd(-25.795, 201.941, -8.2, 0.778)
pt3dadd(-25.894, 201.871, -8.2, 0.778)
pt3dadd(-25.992, 201.803, -8.2, 0.778)
pt3dadd(-26.09, 201.733, -8.2, 0.778)
pt3dadd(-26.189, 201.665, -8.2, 0.778)
pt3dadd(-26.287, 201.596, -8.2, 0.778)
pt3dadd(-26.399, 201.552, -8.2, 0.784)
pt3dadd(-26.51, 201.508, -8.2, 0.788)
pt3dadd(-26.622, 201.463, -8.2, 0.792)
pt3dadd(-26.734, 201.419, -8.2, 0.798)
pt3dadd(-26.844, 201.374, -8.2, 0.802)
pt3dadd(-26.951, 201.319, -8.2, 0.808)
pt3dadd(-27.055, 201.259, -8.2, 0.812)
pt3dadd(-27.158, 201.199, -8.2, 0.816)
pt3dadd(-27.263, 201.139, -8.2, 0.822)
pt3dadd(-27.367, 201.079, -8.2, 0.826)
pt3dadd(-27.478, 201.036, -8.2, 0.824)
pt3dadd(-27.594, 201.006, -8.2, 0.816)
pt3dadd(-27.709, 200.976, -8.2, 0.806)
pt3dadd(-27.826, 200.946, -8.2, 0.798)
pt3dadd(-27.942, 200.916, -8.2, 0.788)
pt3dadd(-28.058, 200.886, -8.2, 0.78)
pt3dadd(-28.175, 200.857, -8.2, 0.778)
pt3dadd(-28.291, 200.831, -8.2, 0.778)
pt3dadd(-28.409, 200.803, -8.2, 0.778)
pt3dadd(-28.525, 200.776, -8.2, 0.778)
pt3dadd(-28.643, 200.748, -8.2, 0.778)
pt3dadd(-28.759, 200.72, -8.2, 0.778)
pt3dadd(-28.878, 200.708, -8.2, 0.778)
pt3dadd(-28.998, 200.695, -8.2, 0.778)
pt3dadd(-29.117, 200.682, -8.2, 0.778)
pt3dadd(-29.237, 200.67, -8.2, 0.778)
pt3dadd(-29.356, 200.658, -8.2, 0.778)
pt3dadd(-29.476, 200.645, -8.2, 0.778)
pt3dadd(-29.594, 200.64, -8.2, 0.786)
pt3dadd(-29.714, 200.64, -8.2, 0.796)
pt3dadd(-29.834, 200.64, -8.2, 0.806)
pt3dadd(-29.954, 200.64, -8.2, 0.818)
pt3dadd(-30.074, 200.64, -8.2, 0.828)
pt3dadd(-30.194, 200.64, -8.2, 0.838)
pt3dadd(-30.314, 200.64, -8.2, 0.85)
pt3dadd(-30.434, 200.64, -8.2, 0.854)
pt3dadd(-30.554, 200.64, -8.2, 0.854)
pt3dadd(-30.674, 200.64, -8.2, 0.854)
pt3dadd(-30.794, 200.64, -8.2, 0.854)
pt3dadd(-30.914, 200.64, -8.2, 0.854)
}
}
proc shape3d_39() {
dend_5[14] { pt3dadd(-31.034, 200.64, -8.2, 0.854)
pt3dadd(-31.154, 200.64, -8.2, 0.854)
pt3dadd(-31.274, 200.64, -8.2, 0.854)
pt3dadd(-31.394, 200.64, -8.2, 0.854)
pt3dadd(-31.514, 200.64, -8.2, 0.854)
pt3dadd(-31.634, 200.64, -8.2, 0.854)
pt3dadd(-31.754, 200.64, -8.2, 0.854)
pt3dadd(-31.874, 200.64, -8.2, 0.854)
pt3dadd(-31.994, 200.64, -8.2, 0.854)
pt3dadd(-32.114, 200.64, -8.2, 0.852)
pt3dadd(-32.234, 200.64, -8.2, 0.848)
pt3dadd(-32.354, 200.64, -8.2, 0.844)
pt3dadd(-32.474, 200.64, -8.2, 0.84)
pt3dadd(-32.594, 200.64, -8.2, 0.838)
pt3dadd(-32.714, 200.64, -8.2, 0.834)
pt3dadd(-32.834, 200.64, -8.2, 0.83)
pt3dadd(-32.954, 200.64, -8.204, 0.828)
pt3dadd(-33.074, 200.64, -8.211, 0.828)
pt3dadd(-33.194, 200.64, -8.218, 0.828)
pt3dadd(-33.313, 200.64, -8.225, 0.828)
pt3dadd(-33.433, 200.64, -8.231, 0.828)
pt3dadd(-33.553, 200.64, -8.238, 0.828)
pt3dadd(-33.672, 200.64, -8.247, 0.828)
pt3dadd(-33.776, 200.64, -8.297, 0.834)
pt3dadd(-33.88, 200.64, -8.347, 0.838)
pt3dadd(-33.984, 200.64, -8.396, 0.844)
pt3dadd(-34.088, 200.64, -8.446, 0.848)
pt3dadd(-34.192, 200.64, -8.496, 0.854)
pt3dadd(-34.31, 200.64, -8.505, 0.86)
pt3dadd(-34.43, 200.64, -8.51, 0.868)
pt3dadd(-34.55, 200.64, -8.515, 0.876)
pt3dadd(-34.67, 200.64, -8.52, 0.884)
pt3dadd(-34.79, 200.64, -8.525, 0.89)
pt3dadd(-34.91, 200.64, -8.53, 0.898)
pt3dadd(-35.03, 200.64, -8.536, 0.904)
pt3dadd(-35.149, 200.64, -8.546, 0.908)
pt3dadd(-35.268, 200.64, -8.557, 0.912)
pt3dadd(-35.388, 200.64, -8.567, 0.916)
pt3dadd(-35.507, 200.64, -8.578, 0.92)
pt3dadd(-35.627, 200.64, -8.588, 0.924)
pt3dadd(-35.746, 200.64, -8.599, 0.928)
pt3dadd(-35.864, 200.64, -8.615, 0.922)
pt3dadd(-35.983, 200.64, -8.631, 0.914)
pt3dadd(-36.101, 200.64, -8.647, 0.906)
pt3dadd(-36.22, 200.64, -8.664, 0.896)
pt3dadd(-36.338, 200.64, -8.68, 0.888)
pt3dadd(-36.456, 200.64, -8.697, 0.88)
pt3dadd(-36.575, 200.628, -8.7, 0.85)
pt3dadd(-36.695, 200.614, -8.7, 0.812)
pt3dadd(-36.811, 200.593, -8.7, 0.774)
pt3dadd(-36.916, 200.533, -8.7, 0.74)
pt3dadd(-37.019, 200.472, -8.7, 0.706)
pt3dadd(-37.051, 200.36, -8.7, 0.704)
pt3dadd(-37.078, 200.243, -8.7, 0.704)
pt3dadd(-37.127, 200.137, -8.7, 0.712)
pt3dadd(-37.208, 200.05, -8.7, 0.736)
pt3dadd(-37.292, 199.964, -8.7, 0.766)
pt3dadd(-37.38, 199.882, -8.7, 0.814)
pt3dadd(-37.472, 199.811, -8.7, 0.872)
pt3dadd(-37.591, 199.8, -8.703, 0.984)
pt3dadd(-37.706, 199.8, -8.727, 1.08)
pt3dadd(-37.78, 199.8, -8.8, 1.126)
pt3dadd(-37.817, 199.8, -8.895, 1.13)
pt3dadd(-37.891, 199.8, -8.958, 1.13)
pt3dadd(-38.011, 199.8, -8.967, 1.13)
pt3dadd(-38.13, 199.8, -8.976, 1.13)
pt3dadd(-38.25, 199.8, -8.984, 1.13)
pt3dadd(-38.37, 199.8, -8.993, 1.13)
pt3dadd(-38.489, 199.8, -9.001, 1.13)
pt3dadd(-38.609, 199.8, -9.01, 1.13)
pt3dadd(-38.728, 199.8, -9.023, 1.13)
pt3dadd(-38.846, 199.8, -9.038, 1.13)
pt3dadd(-38.965, 199.8, -9.052, 1.13)
pt3dadd(-39.084, 199.8, -9.066, 1.13)
pt3dadd(-39.203, 199.8, -9.081, 1.13)
pt3dadd(-39.322, 199.8, -9.095, 1.13)
pt3dadd(-39.44, 199.8, -9.1, 1.13)
pt3dadd(-39.56, 199.8, -9.1, 1.13)
pt3dadd(-39.68, 199.8, -9.1, 1.13)
pt3dadd(-39.797, 199.8, -9.122, 1.13)
pt3dadd(-39.91, 199.8, -9.155, 1.13)
pt3dadd(-40.008, 199.8, -9.204, 1.13)
pt3dadd(-40.076, 199.8, -9.287, 1.13)
pt3dadd(-40.146, 199.8, -9.368, 1.128)
pt3dadd(-40.228, 199.8, -9.441, 1.116)
pt3dadd(-40.31, 199.799, -9.514, 1.104)
pt3dadd(-40.394, 199.758, -9.576, 1.088)
pt3dadd(-40.478, 199.718, -9.639, 1.07)
pt3dadd(-40.565, 199.68, -9.7, 1.054)
pt3dadd(-40.685, 199.68, -9.7, 1.02)
pt3dadd(-40.805, 199.68, -9.7, 0.986)
pt3dadd(-40.925, 199.68, -9.7, 0.952)
pt3dadd(-41.044, 199.679, -9.701, 0.878)
pt3dadd(-41.16, 199.656, -9.72, 0.864)
pt3dadd(-41.275, 199.633, -9.739, 0.85)
pt3dadd(-41.39, 199.61, -9.758, 0.834)
pt3dadd(-41.506, 199.586, -9.778, 0.82)
pt3dadd(-41.622, 199.564, -9.797, 0.806)
pt3dadd(-41.738, 199.537, -9.8, 0.808)
pt3dadd(-41.855, 199.51, -9.8, 0.812)
pt3dadd(-41.971, 199.482, -9.8, 0.816)
pt3dadd(-42.089, 199.454, -9.8, 0.82)
pt3dadd(-42.205, 199.428, -9.8, 0.824)
pt3dadd(-42.322, 199.399, -9.8, 0.828)
pt3dadd(-42.427, 199.343, -9.8, 0.844)
pt3dadd(-42.533, 199.285, -9.8, 0.858)
pt3dadd(-42.638, 199.229, -9.8, 0.872)
pt3dadd(-42.745, 199.172, -9.8, 0.888)
pt3dadd(-42.851, 199.115, -9.8, 0.902)
pt3dadd(-42.959, 199.063, -9.8, 0.928)
pt3dadd(-43.068, 199.013, -9.8, 0.956)
pt3dadd(-43.176, 198.962, -9.8, 0.986)
pt3dadd(-43.285, 198.912, -9.8, 1.014)
pt3dadd(-43.394, 198.862, -9.8, 1.042)
pt3dadd(-43.51, 198.84, -9.8, 1.074)
pt3dadd(-43.63, 198.84, -9.8, 1.108)
pt3dadd(-43.75, 198.84, -9.8, 1.14)
pt3dadd(-43.87, 198.84, -9.8, 1.16)
pt3dadd(-43.99, 198.84, -9.8, 1.168)
pt3dadd(-44.11, 198.84, -9.8, 1.176)
pt3dadd(-44.221, 198.836, -9.827, 1.174)
pt3dadd(-44.327, 198.83, -9.874, 1.162)
pt3dadd(-44.401, 198.805, -9.938, 1.144)
pt3dadd(-44.436, 198.757, -10.025, 1.118)
pt3dadd(-44.512, 198.715, -10.071, 1.098)
pt3dadd(-44.626, 198.679, -10.08, 1.084)
pt3dadd(-44.74, 198.643, -10.089, 1.072)
pt3dadd(-44.854, 198.608, -10.098, 1.058)
pt3dadd(-44.972, 198.6, -10.1, 1.042)
pt3dadd(-45.092, 198.6, -10.1, 1.024)
pt3dadd(-45.212, 198.6, -10.1, 1.008)
pt3dadd(-45.332, 198.6, -10.1, 0.984)
pt3dadd(-45.452, 198.59, -10.1, 0.974)
pt3dadd(-45.571, 198.577, -10.1, 0.966)
pt3dadd(-45.691, 198.565, -10.1, 0.958)
pt3dadd(-45.81, 198.552, -10.1, 0.95)
pt3dadd(-45.929, 198.54, -10.1, 0.942)
pt3dadd(-46.049, 198.527, -10.1, 0.934)
pt3dadd(-46.168, 198.516, -10.107, 0.922)
pt3dadd(-46.285, 198.506, -10.125, 0.904)
pt3dadd(-46.403, 198.497, -10.142, 0.886)
pt3dadd(-46.52, 198.488, -10.16, 0.868)
pt3dadd(-46.638, 198.479, -10.178, 0.852)
pt3dadd(-46.756, 198.469, -10.195, 0.834)
pt3dadd(-46.871, 198.438, -10.2, 0.79)
pt3dadd(-46.984, 198.397, -10.2, 0.736)
pt3dadd(-47.093, 198.349, -10.2, 0.694)
pt3dadd(-47.197, 198.289, -10.2, 0.672)
pt3dadd(-47.299, 198.228, -10.203, 0.65)
pt3dadd(-47.401, 198.168, -10.22, 0.638)
pt3dadd(-47.504, 198.12, -10.243, 0.626)
pt3dadd(-47.611, 198.12, -10.288, 0.614)
pt3dadd(-47.719, 198.12, -10.333, 0.602)
pt3dadd(-47.804, 198.12, -10.403, 0.568)
pt3dadd(-47.898, 198.094, -10.455, 0.548)
pt3dadd(-47.999, 198.048, -10.493, 0.544)
pt3dadd(-48.1, 198.002, -10.532, 0.538)
pt3dadd(-48.2, 197.956, -10.57, 0.532)
pt3dadd(-48.305, 197.914, -10.6, 0.53)
pt3dadd(-48.421, 197.886, -10.602, 0.538)
pt3dadd(-48.538, 197.857, -10.604, 0.546)
pt3dadd(-48.655, 197.83, -10.606, 0.556)
pt3dadd(-48.772, 197.802, -10.608, 0.564)
pt3dadd(-48.888, 197.774, -10.61, 0.574)
pt3dadd(-49.003, 197.76, -10.627, 0.582)
pt3dadd(-49.117, 197.76, -10.659, 0.592)
pt3dadd(-49.23, 197.76, -10.692, 0.6)
pt3dadd(-49.344, 197.76, -10.724, 0.61)
pt3dadd(-49.458, 197.76, -10.756, 0.618)
pt3dadd(-49.571, 197.76, -10.788, 0.628)
pt3dadd(-49.684, 197.719, -10.797, 0.642)
pt3dadd(-49.795, 197.677, -10.806, 0.656)
pt3dadd(-49.907, 197.635, -10.815, 0.672)
pt3dadd(-50.02, 197.593, -10.823, 0.686)
pt3dadd(-50.131, 197.552, -10.832, 0.702)
pt3dadd(-50.239, 197.519, -10.865, 0.712)
pt3dadd(-50.346, 197.488, -10.901, 0.724)
pt3dadd(-50.454, 197.455, -10.937, 0.734)
pt3dadd(-50.561, 197.424, -10.973, 0.746)
pt3dadd(-50.671, 197.4, -11, 0.756)
pt3dadd(-50.791, 197.4, -11, 0.766)
pt3dadd(-50.911, 197.4, -11, 0.778)
pt3dadd(-51.031, 197.4, -11, 0.788)
pt3dadd(-51.151, 197.4, -11, 0.8)
pt3dadd(-51.271, 197.4, -11, 0.81)
pt3dadd(-51.391, 197.4, -11, 0.82)
pt3dadd(-51.511, 197.4, -11, 0.83)
pt3dadd(-51.631, 197.4, -11, 0.838)
pt3dadd(-51.751, 197.4, -11, 0.846)
pt3dadd(-51.871, 197.4, -11, 0.852)
pt3dadd(-51.991, 197.4, -11, 0.86)
pt3dadd(-52.111, 197.4, -11, 0.866)
pt3dadd(-52.231, 197.4, -11, 0.874)
pt3dadd(-52.351, 197.4, -11.004, 0.878)
pt3dadd(-52.47, 197.4, -11.021, 0.878)
pt3dadd(-52.588, 197.4, -11.037, 0.878)
pt3dadd(-52.706, 197.4, -11.054, 0.878)
pt3dadd(-52.824, 197.4, -11.07, 0.878)
pt3dadd(-52.943, 197.4, -11.087, 0.878)
pt3dadd(-53.06, 197.394, -11.1, 0.878)
}
}
proc shape3d_40() {
dend_5[14] { pt3dadd(-53.174, 197.357, -11.102, 0.874)
pt3dadd(-53.29, 197.321, -11.104, 0.868)
pt3dadd(-53.404, 197.284, -11.106, 0.864)
pt3dadd(-53.518, 197.248, -11.108, 0.86)
pt3dadd(-53.632, 197.21, -11.111, 0.856)
pt3dadd(-53.741, 197.173, -11.135, 0.846)
pt3dadd(-53.846, 197.135, -11.17, 0.836)
pt3dadd(-53.952, 197.096, -11.204, 0.824)
pt3dadd(-54.059, 197.058, -11.238, 0.812)
pt3dadd(-54.167, 197.023, -11.268, 0.802)
pt3dadd(-54.286, 197.005, -11.273, 0.788)
pt3dadd(-54.403, 196.987, -11.279, 0.776)
pt3dadd(-54.522, 196.969, -11.285, 0.762)
pt3dadd(-54.641, 196.951, -11.29, 0.75)
pt3dadd(-54.758, 196.932, -11.296, 0.736)
pt3dadd(-54.874, 196.92, -11.313, 0.72)
pt3dadd(-54.983, 196.92, -11.355, 0.696)
pt3dadd(-55.092, 196.92, -11.398, 0.674)
pt3dadd(-55.2, 196.92, -11.44, 0.65)
pt3dadd(-55.309, 196.92, -11.482, 0.626)
pt3dadd(-55.418, 196.92, -11.524, 0.602)
pt3dadd(-55.528, 196.92, -11.566, 0.578)
pt3dadd(-55.636, 196.92, -11.608, 0.554)
pt3dadd(-55.745, 196.92, -11.65, 0.53)
pt3dadd(-55.854, 196.92, -11.693, 0.506)
pt3dadd(-55.962, 196.92, -11.735, 0.482)
pt3dadd(-56.075, 196.908, -11.768, 0.466)
pt3dadd(-56.188, 196.892, -11.799, 0.45)
pt3dadd(-56.3, 196.876, -11.83, 0.436)
pt3dadd(-56.413, 196.86, -11.86, 0.422)
pt3dadd(-56.527, 196.844, -11.891, 0.406)
pt3dadd(-56.641, 196.817, -11.9, 0.38)
pt3dadd(-56.758, 196.8, -11.916, 0.406)
pt3dadd(-56.846, 196.8, -11.976, 0.438)
pt3dadd(-56.887, 196.8, -12.07, 0.452)
pt3dadd(-56.928, 196.783, -12.161, 0.484)
pt3dadd(-57.02, 196.724, -12.189, 0.594)
pt3dadd(-57.092, 196.687, -12.124, 0.616)
pt3dadd(-57.116, 196.68, -12.027, 0.568)
pt3dadd(-57.12, 196.68, -11.927, 0.552)
pt3dadd(-57.12, 196.68, -11.827, 0.588)
pt3dadd(-57.12, 196.68, -11.727, 0.658)
pt3dadd(-57.12, 196.691, -11.628, 0.74)
pt3dadd(-57.14, 196.73, -11.539, 0.836)
pt3dadd(-57.226, 196.79, -11.543, 0.812)
pt3dadd(-57.314, 196.8, -11.609, 0.718)
pt3dadd(-57.401, 196.78, -11.675, 0.672)
pt3dadd(-57.479, 196.721, -11.732, 0.604)
pt3dadd(-57.544, 196.686, -11.81, 0.528)
pt3dadd(-57.599, 196.68, -11.898, 0.6)
pt3dadd(-57.668, 196.652, -11.973, 0.794)
pt3dadd(-57.776, 196.615, -11.992, 0.836)
pt3dadd(-57.892, 196.58, -11.997, 0.848)
pt3dadd(-58.008, 196.56, -12, 0.854)
pt3dadd(-58.128, 196.56, -12, 0.854)
pt3dadd(-58.248, 196.56, -12, 0.854)
pt3dadd(-58.368, 196.56, -12, 0.884)
pt3dadd(-58.488, 196.56, -12, 0.934)
pt3dadd(-58.608, 196.56, -12, 0.944)
pt3dadd(-58.728, 196.56, -12, 0.954)
pt3dadd(-58.848, 196.56, -12, 0.966)
pt3dadd(-58.968, 196.56, -12, 0.976)
pt3dadd(-59.088, 196.56, -12, 0.988)
pt3dadd(-59.208, 196.56, -12, 0.998)
pt3dadd(-59.328, 196.56, -12, 1.004)
pt3dadd(-59.448, 196.56, -12, 1.004)
pt3dadd(-59.568, 196.56, -12, 1.004)
pt3dadd(-59.688, 196.56, -12, 1.004)
pt3dadd(-59.808, 196.56, -12, 1.004)
pt3dadd(-59.928, 196.56, -12, 1.004)
pt3dadd(-60.048, 196.56, -12, 1.004)
pt3dadd(-60.168, 196.56, -12, 1.002)
pt3dadd(-60.288, 196.56, -12, 0.994)
pt3dadd(-60.408, 196.56, -12, 0.988)
pt3dadd(-60.528, 196.56, -12, 0.98)
pt3dadd(-60.648, 196.56, -12, 0.972)
pt3dadd(-60.768, 196.56, -12, 0.966)
pt3dadd(-60.888, 196.56, -12, 0.958)
pt3dadd(-61.008, 196.56, -12, 0.954)
pt3dadd(-61.128, 196.56, -12, 0.954)
pt3dadd(-61.248, 196.56, -12, 0.954)
pt3dadd(-61.368, 196.56, -12, 0.954)
pt3dadd(-61.488, 196.56, -12, 0.954)
pt3dadd(-61.608, 196.56, -12, 0.954)
pt3dadd(-61.728, 196.56, -12, 0.954)
pt3dadd(-61.848, 196.558, -12, 0.96)
pt3dadd(-61.968, 196.552, -12, 0.976)
pt3dadd(-62.088, 196.546, -12, 0.99)
pt3dadd(-62.207, 196.54, -12, 1.006)
pt3dadd(-62.327, 196.534, -12, 1.02)
pt3dadd(-62.447, 196.528, -12, 1.036)
pt3dadd(-62.567, 196.522, -12, 1.05)
pt3dadd(-62.686, 196.51, -12.011, 1.058)
pt3dadd(-62.803, 196.495, -12.028, 1.062)
pt3dadd(-62.921, 196.481, -12.044, 1.066)
pt3dadd(-63.038, 196.466, -12.06, 1.072)
pt3dadd(-63.155, 196.452, -12.076, 1.076)
pt3dadd(-63.272, 196.44, -12.094, 1.076)
pt3dadd(-63.386, 196.44, -12.127, 1.054)
pt3dadd(-63.499, 196.44, -12.159, 1.03)
pt3dadd(-63.613, 196.44, -12.191, 1.008)
pt3dadd(-63.727, 196.44, -12.223, 0.984)
pt3dadd(-63.84, 196.44, -12.255, 0.962)
pt3dadd(-63.958, 196.448, -12.27, 0.93)
pt3dadd(-64.076, 196.462, -12.276, 0.892)
pt3dadd(-64.195, 196.475, -12.281, 0.854)
pt3dadd(-64.315, 196.489, -12.287, 0.818)
pt3dadd(-64.434, 196.502, -12.292, 0.78)
pt3dadd(-64.553, 196.516, -12.298, 0.742)
pt3dadd(-64.672, 196.529, -12.3, 0.706)
pt3dadd(-64.79, 196.544, -12.3, 0.668)
pt3dadd(-64.91, 196.559, -12.3, 0.63)
pt3dadd(-65.028, 196.56, -12.316, 0.654)
pt3dadd(-65.147, 196.56, -12.333, 0.684)
pt3dadd(-65.255, 196.56, -12.366, 0.726)
pt3dadd(-65.342, 196.56, -12.434, 0.796)
pt3dadd(-65.432, 196.56, -12.5, 0.86)
pt3dadd(-65.532, 196.56, -12.557, 0.896)
pt3dadd(-65.63, 196.56, -12.613, 0.928)
pt3dadd(-65.734, 196.56, -12.665, 0.914)
pt3dadd(-65.836, 196.56, -12.717, 0.902)
pt3dadd(-65.939, 196.56, -12.769, 0.888)
pt3dadd(-66.048, 196.56, -12.8, 0.866)
pt3dadd(-66.168, 196.56, -12.8, 0.832)
pt3dadd(-66.288, 196.56, -12.8, 0.798)
pt3dadd(-66.408, 196.56, -12.8, 0.738)
pt3dadd(-66.528, 196.56, -12.8, 0.674)
pt3dadd(-66.648, 196.56, -12.8, 0.662)
pt3dadd(-66.768, 196.56, -12.8, 0.652)
pt3dadd(-66.888, 196.56, -12.8, 0.642)
pt3dadd(-67.008, 196.56, -12.8, 0.63)
pt3dadd(-67.128, 196.56, -12.8, 0.62)
pt3dadd(-67.248, 196.56, -12.8, 0.61)
pt3dadd(-67.362, 196.56, -12.82, 0.6)
pt3dadd(-67.466, 196.56, -12.87, 0.596)
pt3dadd(-67.57, 196.56, -12.92, 0.59)
pt3dadd(-67.674, 196.56, -12.97, 0.586)
pt3dadd(-67.778, 196.56, -13.02, 0.582)
pt3dadd(-67.884, 196.567, -13.064, 0.58)
pt3dadd(-67.996, 196.591, -13.093, 0.59)
pt3dadd(-68.108, 196.616, -13.123, 0.6)
pt3dadd(-68.22, 196.64, -13.152, 0.612)
pt3dadd(-68.332, 196.666, -13.182, 0.622)
pt3dadd(-68.447, 196.68, -13.2, 0.634)
pt3dadd(-68.567, 196.68, -13.2, 0.652)
pt3dadd(-68.687, 196.68, -13.2, 0.67)
pt3dadd(-68.807, 196.68, -13.2, 0.688)
pt3dadd(-68.927, 196.68, -13.2, 0.706)
pt3dadd(-69.047, 196.68, -13.2, 0.724)
pt3dadd(-69.167, 196.68, -13.2, 0.742)
pt3dadd(-69.287, 196.68, -13.2, 0.766)
pt3dadd(-69.407, 196.68, -13.2, 0.8)
pt3dadd(-69.527, 196.68, -13.2, 0.834)
pt3dadd(-69.647, 196.68, -13.201, 0.86)
pt3dadd(-69.767, 196.68, -13.205, 0.878)
pt3dadd(-69.887, 196.68, -13.209, 0.896)
pt3dadd(-69.991, 196.68, -13.245, 0.898)
pt3dadd(-70.078, 196.68, -13.313, 0.886)
pt3dadd(-70.175, 196.68, -13.37, 0.866)
pt3dadd(-70.286, 196.68, -13.409, 0.834)
pt3dadd(-70.391, 196.68, -13.452, 0.796)
pt3dadd(-70.433, 196.68, -13.545, 0.698)
pt3dadd(-70.507, 196.68, -13.618, 0.64)
pt3dadd(-70.607, 196.68, -13.673, 0.614)
pt3dadd(-70.707, 196.68, -13.728, 0.59)
pt3dadd(-70.808, 196.68, -13.783, 0.564)
pt3dadd(-70.908, 196.68, -13.838, 0.54)
pt3dadd(-71.015, 196.687, -13.879, 0.522)
pt3dadd(-71.13, 196.703, -13.905, 0.514)
pt3dadd(-71.245, 196.718, -13.93, 0.504)
pt3dadd(-71.36, 196.734, -13.956, 0.494)
pt3dadd(-71.475, 196.75, -13.981, 0.484)
pt3dadd(-71.591, 196.763, -14.005, 0.48)
pt3dadd(-71.709, 196.769, -14.022, 0.494)
pt3dadd(-71.827, 196.776, -14.039, 0.506)
pt3dadd(-71.945, 196.783, -14.057, 0.52)
pt3dadd(-72.063, 196.789, -14.074, 0.532)
pt3dadd(-72.181, 196.796, -14.091, 0.546)
pt3dadd(-72.3, 196.8, -14.1, 0.558)
pt3dadd(-72.42, 196.8, -14.1, 0.568)
pt3dadd(-72.54, 196.8, -14.1, 0.58)
pt3dadd(-72.66, 196.8, -14.1, 0.59)
pt3dadd(-72.78, 196.8, -14.1, 0.6)
pt3dadd(-72.9, 196.8, -14.1, 0.612)
pt3dadd(-73.02, 196.8, -14.1, 0.622)
pt3dadd(-73.14, 196.8, -14.1, 0.632)
pt3dadd(-73.26, 196.8, -14.1, 0.638)
pt3dadd(-73.38, 196.8, -14.1, 0.646)
pt3dadd(-73.5, 196.8, -14.1, 0.652)
pt3dadd(-73.62, 196.8, -14.1, 0.66)
pt3dadd(-73.74, 196.8, -14.1, 0.668)
pt3dadd(-73.86, 196.8, -14.1, 0.674)
pt3dadd(-73.979, 196.81, -14.1, 0.678)
pt3dadd(-74.097, 196.83, -14.1, 0.678)
pt3dadd(-74.216, 196.849, -14.1, 0.678)
pt3dadd(-74.334, 196.868, -14.1, 0.678)
pt3dadd(-74.453, 196.889, -14.1, 0.678)
pt3dadd(-74.571, 196.908, -14.1, 0.678)
pt3dadd(-74.683, 196.931, -14.119, 0.678)
pt3dadd(-74.786, 196.957, -14.166, 0.678)
}
}
proc shape3d_41() {
dend_5[14] { pt3dadd(-74.889, 196.984, -14.212, 0.678)
pt3dadd(-74.991, 197.01, -14.259, 0.678)
pt3dadd(-75.094, 197.036, -14.305, 0.678)
pt3dadd(-75.188, 197.088, -14.351, 0.678)
pt3dadd(-75.28, 197.142, -14.396, 0.678)
pt3dadd(-75.373, 197.196, -14.441, 0.678)
pt3dadd(-75.465, 197.25, -14.486, 0.678)
pt3dadd(-75.557, 197.303, -14.533, 0.674)
pt3dadd(-75.65, 197.353, -14.581, 0.668)
pt3dadd(-75.742, 197.405, -14.629, 0.662)
pt3dadd(-75.834, 197.455, -14.676, 0.656)
pt3dadd(-75.939, 197.485, -14.709, 0.648)
pt3dadd(-76.057, 197.495, -14.727, 0.64)
pt3dadd(-76.175, 197.503, -14.744, 0.63)
pt3dadd(-76.293, 197.513, -14.762, 0.622)
pt3dadd(-76.41, 197.522, -14.78, 0.612)
pt3dadd(-76.528, 197.532, -14.797, 0.604)
pt3dadd(-76.644, 197.561, -14.8, 0.5)
pt3dadd(-76.753, 197.61, -14.8, 0.41)
pt3dadd(-76.87, 197.634, -14.8, 0.404)
pt3dadd(-76.99, 197.64, -14.8, 0.47)
pt3dadd(-77.11, 197.64, -14.8, 0.56)
pt3dadd(-77.229, 197.648, -14.8, 0.636)
pt3dadd(-77.34, 197.689, -14.8, 0.676)
pt3dadd(-77.39, 197.796, -14.803, 0.684)
pt3dadd(-77.4, 197.909, -14.829, 0.73)
pt3dadd(-77.4, 197.995, -14.895, 0.822)
pt3dadd(-77.4, 198.074, -14.97, 0.846)
pt3dadd(-77.414, 198.173, -15.024, 0.808)
pt3dadd(-77.441, 198.276, -15.069, 0.77)
pt3dadd(-77.513, 198.331, -15.114, 0.74)
pt3dadd(-77.619, 198.352, -15.158, 0.714)
pt3dadd(-77.713, 198.371, -15.216, 0.704)
pt3dadd(-77.821, 198.414, -15.237, 0.708)
pt3dadd(-77.931, 198.457, -15.253, 0.714)
pt3dadd(-78.041, 198.502, -15.269, 0.718)
pt3dadd(-78.15, 198.546, -15.285, 0.724)
pt3dadd(-78.26, 198.588, -15.303, 0.728)
pt3dadd(-78.369, 198.607, -15.342, 0.74)
pt3dadd(-78.477, 198.628, -15.382, 0.75)
pt3dadd(-78.586, 198.647, -15.421, 0.76)
pt3dadd(-78.694, 198.666, -15.46, 0.77)
pt3dadd(-78.804, 198.691, -15.493, 0.788)
pt3dadd(-78.92, 198.715, -15.5, 0.836)
pt3dadd(-79.04, 198.72, -15.5, 0.87)
pt3dadd(-79.16, 198.72, -15.5, 0.896)
pt3dadd(-79.28, 198.72, -15.5, 0.888)
pt3dadd(-79.399, 198.72, -15.508, 0.842)
pt3dadd(-79.508, 198.72, -15.546, 0.752)
pt3dadd(-79.551, 198.72, -15.639, 0.696)
pt3dadd(-79.56, 198.72, -15.738, 0.678)
pt3dadd(-79.566, 198.72, -15.838, 0.678)
pt3dadd(-79.591, 198.728, -15.934, 0.678)
pt3dadd(-79.671, 198.77, -15.992, 0.71)
pt3dadd(-79.775, 198.828, -16, 0.762)
pt3dadd(-79.883, 198.881, -16, 0.806)
pt3dadd(-79.976, 198.956, -16, 0.876)
pt3dadd(-80.058, 199.043, -16, 0.968)
pt3dadd(-80.148, 199.121, -16.003, 0.998)
pt3dadd(-80.241, 199.189, -16.026, 0.974)
pt3dadd(-80.343, 199.243, -16.053, 0.962)
pt3dadd(-80.445, 199.297, -16.081, 0.95)
pt3dadd(-80.547, 199.351, -16.108, 0.94)
pt3dadd(-80.646, 199.408, -16.138, 0.93)
pt3dadd(-80.707, 199.493, -16.187, 0.936)
pt3dadd(-80.769, 199.577, -16.235, 0.942)
pt3dadd(-80.831, 199.662, -16.284, 0.948)
pt3dadd(-80.893, 199.746, -16.333, 0.954)
pt3dadd(-80.958, 199.819, -16.39, 0.966)
pt3dadd(-81.024, 199.891, -16.448, 0.978)
pt3dadd(-81.09, 199.964, -16.506, 0.992)
pt3dadd(-81.156, 200.036, -16.564, 1.004)
pt3dadd(-81.23, 200.086, -16.631, 0.998)
pt3dadd(-81.305, 200.135, -16.698, 0.992)
pt3dadd(-81.379, 200.183, -16.765, 0.986)
pt3dadd(-81.453, 200.232, -16.832, 0.98)
pt3dadd(-81.51, 200.256, -16.917, 0.918)
pt3dadd(-81.563, 200.276, -17.005, 0.844)
pt3dadd(-81.653, 200.28, -17.068, 0.744)
pt3dadd(-81.752, 200.28, -17.124, 0.64)
pt3dadd(-81.825, 200.309, -17.196, 0.54)
pt3dadd(-81.883, 200.353, -17.275, 0.444)
pt3dadd(-81.974, 200.412, -17.308, 0.372)
pt3dadd(-82.072, 200.476, -17.332, 0.306)
pt3dadd(-82.147, 200.564, -17.354, 0.27)
pt3dadd(-82.207, 200.654, -17.341, 0.232)
pt3dadd(-82.255, 200.753, -17.303, 0.226)
pt3dadd(-82.307, 200.842, -17.254, 0.226)
pt3dadd(-82.327, 200.903, -17.169, 0.226)
pt3dadd(-82.369, 200.983, -17.109, 0.226)
pt3dadd(-82.449, 201.071, -17.1, 0.226)
pt3dadd(-82.522, 201.166, -17.1, 0.226)
pt3dadd(-82.551, 201.281, -17.097, 0.226)
pt3dadd(-82.56, 201.395, -17.069, 0.24)
pt3dadd(-82.56, 201.464, -16.993, 0.274)
pt3dadd(-82.56, 201.48, -16.895, 0.328)
pt3dadd(-82.56, 201.48, -16.795, 0.354)
pt3dadd(-82.56, 201.481, -16.695, 0.376)
pt3dadd(-82.563, 201.499, -16.596, 0.346)
pt3dadd(-82.593, 201.56, -16.52, 0.326)
pt3dadd(-82.653, 201.653, -16.527, 0.412)
pt3dadd(-82.68, 201.706, -16.609, 0.524)
pt3dadd(-82.68, 201.72, -16.708, 0.606)
pt3dadd(-82.68, 201.721, -16.808, 0.656)
pt3dadd(-82.683, 201.74, -16.906, 0.678)
pt3dadd(-82.726, 201.793, -16.983, 0.678)
pt3dadd(-82.822, 201.858, -17, 0.72)
pt3dadd(-82.895, 201.949, -17, 0.806)
pt3dadd(-82.918, 202.066, -17, 0.894)
pt3dadd(-82.92, 202.186, -17, 0.926)
pt3dadd(-82.933, 202.304, -17, 0.93)
pt3dadd(-83.001, 202.404, -17, 0.914)
pt3dadd(-83.07, 202.501, -17, 0.9)
pt3dadd(-83.139, 202.6, -17, 0.884)
pt3dadd(-83.208, 202.698, -17, 0.87)
pt3dadd(-83.277, 202.796, -17, 0.854)
pt3dadd(-83.372, 202.87, -17, 0.854)
pt3dadd(-83.468, 202.942, -17, 0.854)
pt3dadd(-83.564, 203.014, -17, 0.854)
pt3dadd(-83.66, 203.086, -17, 0.854)
pt3dadd(-83.756, 203.158, -17, 0.854)
pt3dadd(-83.798, 203.269, -17, 0.854)
pt3dadd(-83.838, 203.382, -17, 0.854)
pt3dadd(-83.903, 203.48, -17, 0.882)
pt3dadd(-83.984, 203.568, -17, 0.93)
pt3dadd(-84.056, 203.651, -17.028, 0.954)
pt3dadd(-84.117, 203.728, -17.085, 0.954)
pt3dadd(-84.174, 203.767, -17.164, 0.944)
pt3dadd(-84.229, 203.795, -17.25, 0.932)
pt3dadd(-84.271, 203.881, -17.301, 0.896)
pt3dadd(-84.309, 203.983, -17.343, 0.858)
pt3dadd(-84.347, 204.085, -17.385, 0.818)
pt3dadd(-84.373, 204.198, -17.4, 0.784)
pt3dadd(-84.394, 204.316, -17.4, 0.756)
pt3dadd(-84.419, 204.431, -17.4, 0.728)
pt3dadd(-84.516, 204.5, -17.4, 0.718)
pt3dadd(-84.614, 204.57, -17.4, 0.71)
pt3dadd(-84.715, 204.635, -17.4, 0.71)
pt3dadd(-84.825, 204.682, -17.4, 0.742)
pt3dadd(-84.936, 204.728, -17.4, 0.774)
pt3dadd(-84.986, 204.834, -17.4, 0.814)
pt3dadd(-85.029, 204.946, -17.4, 0.856)
pt3dadd(-85.072, 205.058, -17.4, 0.896)
pt3dadd(-85.084, 205.176, -17.4, 0.94)
pt3dadd(-85.088, 205.296, -17.4, 0.982)
pt3dadd(-85.093, 205.416, -17.4, 1.026)
pt3dadd(-85.152, 205.519, -17.4, 1.054)
pt3dadd(-85.217, 205.62, -17.4, 1.08)
pt3dadd(-85.282, 205.721, -17.4, 1.104)
pt3dadd(-85.356, 205.814, -17.4, 1.104)
pt3dadd(-85.431, 205.909, -17.4, 1.104)
pt3dadd(-85.534, 205.968, -17.4, 1.052)
pt3dadd(-85.634, 206.034, -17.4, 1.032)
pt3dadd(-85.734, 206.1, -17.4, 1.012)
pt3dadd(-85.834, 206.166, -17.4, 0.992)
pt3dadd(-85.935, 206.232, -17.4, 0.972)
pt3dadd(-86.033, 206.3, -17.403, 0.952)
pt3dadd(-86.106, 206.383, -17.441, 0.916)
pt3dadd(-86.18, 206.467, -17.478, 0.878)
pt3dadd(-86.254, 206.55, -17.515, 0.842)
pt3dadd(-86.327, 206.634, -17.553, 0.806)
pt3dadd(-86.374, 206.728, -17.602, 0.77)
pt3dadd(-86.418, 206.821, -17.651, 0.736)
pt3dadd(-86.462, 206.916, -17.701, 0.7)
pt3dadd(-86.506, 207.01, -17.751, 0.664)
pt3dadd(-86.567, 207.094, -17.8, 0.64)
pt3dadd(-86.636, 207.173, -17.849, 0.622)
pt3dadd(-86.704, 207.251, -17.899, 0.604)
pt3dadd(-86.773, 207.33, -17.948, 0.584)
pt3dadd(-86.841, 207.421, -17.971, 0.59)
pt3dadd(-86.907, 207.521, -17.978, 0.612)
pt3dadd(-86.973, 207.62, -17.985, 0.632)
pt3dadd(-87.04, 207.72, -17.992, 0.652)
pt3dadd(-87.106, 207.82, -17.999, 0.674)
pt3dadd(-87.177, 207.917, -18, 0.706)
pt3dadd(-87.249, 208.013, -18, 0.742)
pt3dadd(-87.321, 208.109, -18, 0.776)
pt3dadd(-87.393, 208.205, -18, 0.812)
pt3dadd(-87.465, 208.301, -18, 0.846)
pt3dadd(-87.48, 208.415, -18, 0.9)
pt3dadd(-87.48, 208.535, -18, 0.958)
pt3dadd(-87.48, 208.655, -18, 1.018)
pt3dadd(-87.512, 208.77, -18, 1.054)
pt3dadd(-87.551, 208.883, -18, 1.088)
pt3dadd(-87.617, 208.976, -18, 1.11)
pt3dadd(-87.716, 209.045, -18, 1.122)
pt3dadd(-87.812, 209.116, -18, 1.13)
pt3dadd(-87.9, 209.198, -18, 1.13)
pt3dadd(-87.991, 209.274, -18, 1.128)
pt3dadd(-88.103, 209.316, -18, 1.112)
pt3dadd(-88.175, 209.4, -18, 1.098)
pt3dadd(-88.221, 209.512, -18, 1.088)
pt3dadd(-88.29, 209.593, -18, 1.076)
pt3dadd(-88.408, 209.614, -18, 1.068)
pt3dadd(-88.527, 209.634, -18, 1.058)
pt3dadd(-88.639, 209.653, -18.027, 1.046)
pt3dadd(-88.748, 209.672, -18.065, 1.034)
pt3dadd(-88.821, 209.724, -18.123, 0.992)
pt3dadd(-88.874, 209.792, -18.192, 0.936)
pt3dadd(-88.893, 209.902, -18.224, 0.888)
}
}
proc shape3d_42() {
dend_5[14] { pt3dadd(-88.907, 210.016, -18.251, 0.84)
pt3dadd(-88.921, 210.131, -18.278, 0.792)
pt3dadd(-88.94, 210.245, -18.3, 0.746)
pt3dadd(-88.979, 210.359, -18.3, 0.704)
pt3dadd(-89.019, 210.472, -18.3, 0.662)
pt3dadd(-89.039, 210.589, -18.3, 0.676)
pt3dadd(-89.098, 210.692, -18.306, 0.702)
pt3dadd(-89.161, 210.794, -18.313, 0.728)
pt3dadd(-89.224, 210.896, -18.32, 0.754)
pt3dadd(-89.288, 210.997, -18.327, 0.78)
pt3dadd(-89.35, 211.099, -18.336, 0.804)
pt3dadd(-89.394, 211.19, -18.389, 0.81)
pt3dadd(-89.438, 211.283, -18.442, 0.816)
pt3dadd(-89.482, 211.374, -18.495, 0.822)
pt3dadd(-89.527, 211.465, -18.548, 0.828)
pt3dadd(-89.579, 211.57, -18.563, 0.824)
pt3dadd(-89.634, 211.676, -18.572, 0.82)
pt3dadd(-89.688, 211.783, -18.582, 0.814)
pt3dadd(-89.743, 211.889, -18.59, 0.81)
pt3dadd(-89.797, 211.996, -18.6, 0.804)
pt3dadd(-89.865, 212.094, -18.6, 0.798)
pt3dadd(-89.934, 212.192, -18.6, 0.794)
pt3dadd(-90.004, 212.291, -18.6, 0.788)
pt3dadd(-90.073, 212.389, -18.6, 0.784)
pt3dadd(-90.142, 212.486, -18.6, 0.778)
pt3dadd(-90.183, 212.599, -18.6, 0.798)
pt3dadd(-90.223, 212.712, -18.6, 0.82)
pt3dadd(-90.243, 212.83, -18.6, 0.844)
pt3dadd(-90.247, 212.95, -18.6, 0.87)
pt3dadd(-90.252, 213.07, -18.6, 0.896)
pt3dadd(-90.295, 213.178, -18.6, 0.928)
pt3dadd(-90.356, 213.281, -18.6, 0.962)
pt3dadd(-90.438, 213.364, -18.6, 0.99)
pt3dadd(-90.541, 213.425, -18.6, 1.014)
pt3dadd(-90.644, 213.485, -18.604, 1.03)
pt3dadd(-90.747, 213.545, -18.617, 1.03)
pt3dadd(-90.85, 213.604, -18.63, 1.03)
pt3dadd(-90.953, 213.664, -18.643, 1.03)
pt3dadd(-90.966, 213.746, -18.71, 0.996)
pt3dadd(-90.972, 213.83, -18.781, 0.958)
pt3dadd(-91.068, 213.889, -18.792, 0.924)
pt3dadd(-91.174, 213.944, -18.796, 0.888)
pt3dadd(-91.281, 214, -18.8, 0.854)
pt3dadd(-91.349, 214.099, -18.8, 0.808)
pt3dadd(-91.416, 214.198, -18.8, 0.76)
pt3dadd(-91.439, 214.314, -18.8, 0.706)
pt3dadd(-91.459, 214.433, -18.8, 0.712)
pt3dadd(-91.48, 214.55, -18.8, 0.722)
pt3dadd(-91.522, 214.658, -18.8, 0.74)
pt3dadd(-91.604, 214.746, -18.8, 0.776)
pt3dadd(-91.682, 214.836, -18.8, 0.814)
pt3dadd(-91.75, 214.934, -18.8, 0.86)
pt3dadd(-91.822, 215.028, -18.8, 0.904)
pt3dadd(-91.94, 215.048, -18.8, 0.904)
pt3dadd(-92.058, 215.069, -18.8, 0.904)
pt3dadd(-92.173, 215.1, -18.8, 0.896)
pt3dadd(-92.285, 215.143, -18.8, 0.88)
pt3dadd(-92.396, 215.19, -18.8, 0.868)
pt3dadd(-92.507, 215.237, -18.8, 0.858)
pt3dadd(-92.599, 215.31, -18.8, 0.876)
pt3dadd(-92.681, 215.398, -18.8, 0.912)
pt3dadd(-92.742, 215.494, -18.818, 0.956)
pt3dadd(-92.783, 215.598, -18.853, 1.008)
pt3dadd(-92.841, 215.682, -18.901, 1.056)
pt3dadd(-92.91, 215.75, -18.959, 1.1)
pt3dadd(-92.97, 215.82, -19.024, 1.104)
pt3dadd(-93.046, 215.867, -19.089, 1.1)
pt3dadd(-93.132, 215.904, -19.152, 1.094)
pt3dadd(-93.217, 215.942, -19.215, 1.088)
pt3dadd(-93.302, 215.98, -19.278, 1.082)
pt3dadd(-93.384, 216.032, -19.334, 1.072)
pt3dadd(-93.463, 216.101, -19.383, 1.052)
pt3dadd(-93.541, 216.17, -19.433, 1.034)
pt3dadd(-93.62, 216.239, -19.482, 1.016)
pt3dadd(-93.697, 216.316, -19.519, 0.998)
pt3dadd(-93.772, 216.407, -19.539, 0.98)
pt3dadd(-93.847, 216.497, -19.559, 0.964)
pt3dadd(-93.923, 216.588, -19.579, 0.946)
pt3dadd(-93.998, 216.678, -19.599, 0.93)
pt3dadd(-94.103, 216.734, -19.605, 0.884)
pt3dadd(-94.209, 216.791, -19.61, 0.836)
pt3dadd(-94.29, 216.864, -19.648, 0.804)
pt3dadd(-94.363, 216.942, -19.692, 0.776)
pt3dadd(-94.406, 217.042, -19.734, 0.75)
pt3dadd(-94.444, 217.146, -19.77, 0.724)
pt3dadd(-94.46, 217.264, -19.784, 0.702)
pt3dadd(-94.477, 217.381, -19.798, 0.682)
pt3dadd(-94.567, 217.448, -19.8, 0.666)
pt3dadd(-94.673, 217.506, -19.8, 0.652)
pt3dadd(-94.778, 217.564, -19.8, 0.64)
pt3dadd(-94.879, 217.626, -19.8, 0.628)
pt3dadd(-94.961, 217.715, -19.8, 0.628)
pt3dadd(-95.043, 217.802, -19.8, 0.628)
pt3dadd(-95.126, 217.884, -19.809, 0.628)
pt3dadd(-95.187, 217.981, -19.837, 0.628)
pt3dadd(-95.248, 218.08, -19.865, 0.628)
pt3dadd(-95.309, 218.177, -19.893, 0.628)
pt3dadd(-95.37, 218.275, -19.921, 0.628)
pt3dadd(-95.477, 218.298, -19.958, 0.606)
pt3dadd(-95.587, 218.317, -19.995, 0.58)
pt3dadd(-95.666, 218.402, -20, 0.568)
pt3dadd(-95.741, 218.496, -20, 0.556)
pt3dadd(-95.812, 218.592, -20.004, 0.544)
pt3dadd(-95.883, 218.688, -20.009, 0.532)
pt3dadd(-95.967, 218.735, -20.054, 0.544)
pt3dadd(-96.057, 218.755, -20.117, 0.57)
pt3dadd(-96.101, 218.78, -20.204, 0.63)
pt3dadd(-96.139, 218.827, -20.285, 0.686)
pt3dadd(-96.198, 218.909, -20.339, 0.71)
pt3dadd(-96.257, 218.99, -20.394, 0.736)
pt3dadd(-96.316, 219.072, -20.448, 0.76)
pt3dadd(-96.377, 219.157, -20.495, 0.778)
pt3dadd(-96.444, 219.252, -20.521, 0.778)
pt3dadd(-96.511, 219.347, -20.546, 0.778)
pt3dadd(-96.578, 219.442, -20.571, 0.778)
pt3dadd(-96.645, 219.535, -20.597, 0.778)
pt3dadd(-96.739, 219.607, -20.6, 0.76)
pt3dadd(-96.838, 219.677, -20.6, 0.74)
pt3dadd(-96.936, 219.745, -20.6, 0.72)
pt3dadd(-97.034, 219.814, -20.6, 0.7)
pt3dadd(-97.133, 219.883, -20.6, 0.68)
pt3dadd(-97.226, 219.953, -20.622, 0.658)
pt3dadd(-97.318, 220.024, -20.647, 0.636)
pt3dadd(-97.41, 220.094, -20.673, 0.612)
pt3dadd(-97.502, 220.165, -20.698, 0.588)
pt3dadd(-97.585, 220.242, -20.729, 0.578)
pt3dadd(-97.66, 220.325, -20.766, 0.578)
pt3dadd(-97.735, 220.408, -20.802, 0.578)
pt3dadd(-97.812, 220.49, -20.835, 0.58)
pt3dadd(-97.9, 220.568, -20.852, 0.598)
pt3dadd(-97.989, 220.648, -20.868, 0.618)
pt3dadd(-98.077, 220.727, -20.885, 0.636)
pt3dadd(-98.166, 220.805, -20.9, 0.654)
pt3dadd(-98.262, 220.877, -20.9, 0.668)
pt3dadd(-98.358, 220.949, -20.9, 0.684)
pt3dadd(-98.454, 221.021, -20.9, 0.7)
pt3dadd(-98.55, 221.093, -20.9, 0.714)
pt3dadd(-98.643, 221.167, -20.9, 0.728)
pt3dadd(-98.691, 221.278, -20.9, 0.728)
pt3dadd(-98.738, 221.388, -20.9, 0.728)
pt3dadd(-98.786, 221.497, -20.9, 0.728)
pt3dadd(-98.833, 221.608, -20.9, 0.728)
pt3dadd(-98.881, 221.718, -20.9, 0.728)
pt3dadd(-98.953, 221.813, -20.9, 0.724)
pt3dadd(-99.033, 221.902, -20.9, 0.72)
pt3dadd(-99.114, 221.99, -20.9, 0.714)
pt3dadd(-99.195, 222.079, -20.9, 0.71)
pt3dadd(-99.275, 222.168, -20.9, 0.704)
pt3dadd(-99.366, 222.246, -20.9, 0.7)
pt3dadd(-99.46, 222.32, -20.9, 0.694)
pt3dadd(-99.554, 222.396, -20.9, 0.69)
pt3dadd(-99.647, 222.47, -20.9, 0.684)
pt3dadd(-99.741, 222.546, -20.9, 0.678)
pt3dadd(-99.837, 222.618, -20.9, 0.682)
pt3dadd(-99.933, 222.69, -20.9, 0.688)
pt3dadd(-100.029, 222.762, -20.9, 0.692)
pt3dadd(-100.125, 222.834, -20.9, 0.696)
pt3dadd(-100.221, 222.906, -20.9, 0.702)
pt3dadd(-100.285, 223.006, -20.9, 0.714)
pt3dadd(-100.342, 223.111, -20.9, 0.73)
pt3dadd(-100.399, 223.217, -20.9, 0.744)
pt3dadd(-100.456, 223.322, -20.9, 0.758)
pt3dadd(-100.513, 223.428, -20.9, 0.774)
pt3dadd(-100.577, 223.529, -20.9, 0.816)
pt3dadd(-100.645, 223.628, -20.9, 0.874)
pt3dadd(-100.706, 223.732, -20.9, 0.926)
pt3dadd(-100.759, 223.838, -20.9, 0.97)
pt3dadd(-100.826, 223.933, -20.9, 1.008)
pt3dadd(-100.933, 223.986, -20.9, 1.018)
pt3dadd(-101.041, 224.04, -20.9, 1.03)
pt3dadd(-101.153, 224.077, -20.916, 1.006)
pt3dadd(-101.265, 224.116, -20.931, 0.982)
pt3dadd(-101.37, 224.147, -20.971, 0.946)
pt3dadd(-101.465, 224.204, -21.002, 0.918)
pt3dadd(-101.553, 224.281, -21.025, 0.902)
pt3dadd(-101.642, 224.358, -21.048, 0.884)
pt3dadd(-101.73, 224.434, -21.071, 0.868)
pt3dadd(-101.822, 224.507, -21.089, 0.85)
pt3dadd(-101.925, 224.568, -21.092, 0.83)
pt3dadd(-102.029, 224.628, -21.094, 0.81)
pt3dadd(-102.132, 224.689, -21.096, 0.79)
pt3dadd(-102.236, 224.75, -21.098, 0.77)
pt3dadd(-102.341, 224.806, -21.1, 0.748)
pt3dadd(-102.457, 224.839, -21.1, 0.722)
pt3dadd(-102.572, 224.872, -21.1, 0.696)
pt3dadd(-102.687, 224.905, -21.1, 0.668)
pt3dadd(-102.803, 224.938, -21.1, 0.642)
pt3dadd(-102.918, 224.971, -21.1, 0.616)
pt3dadd(-103.032, 225.007, -21.1, 0.592)
pt3dadd(-103.145, 225.047, -21.1, 0.57)
pt3dadd(-103.259, 225.086, -21.1, 0.556)
pt3dadd(-103.372, 225.126, -21.1, 0.578)
pt3dadd(-103.485, 225.166, -21.1, 0.598)
pt3dadd(-103.573, 225.244, -21.1, 0.66)
pt3dadd(-103.654, 225.332, -21.1, 0.73)
pt3dadd(-103.717, 225.433, -21.1, 0.784)
pt3dadd(-103.77, 225.541, -21.1, 0.828)
pt3dadd(-103.805, 225.646, -21.124, 0.86)
pt3dadd(-103.817, 225.748, -21.176, 0.876)
pt3dadd(-103.828, 225.85, -21.228, 0.89)
}
}
proc shape3d_43() {
dend_5[14] { pt3dadd(-103.843, 225.948, -21.28, 0.902)
pt3dadd(-103.929, 225.977, -21.346, 0.862)
pt3dadd(-104.019, 226.006, -21.407, 0.822)
pt3dadd(-104.126, 226.036, -21.445, 0.784)
pt3dadd(-104.232, 226.067, -21.483, 0.746)
pt3dadd(-104.343, 226.102, -21.5, 0.692)
pt3dadd(-104.456, 226.141, -21.5, 0.628)
pt3dadd(-104.559, 226.194, -21.5, 0.572)
pt3dadd(-104.624, 226.295, -21.5, 0.546)
pt3dadd(-104.688, 226.396, -21.5, 0.52)
pt3dadd(-104.759, 226.489, -21.511, 0.494)
pt3dadd(-104.841, 226.564, -21.549, 0.466)
pt3dadd(-104.915, 226.646, -21.586, 0.496)
pt3dadd(-105.02, 226.702, -21.591, 0.516)
pt3dadd(-105.128, 226.752, -21.593, 0.53)
pt3dadd(-105.236, 226.805, -21.595, 0.544)
pt3dadd(-105.345, 226.855, -21.597, 0.56)
pt3dadd(-105.453, 226.907, -21.599, 0.574)
pt3dadd(-105.569, 226.937, -21.6, 0.59)
pt3dadd(-105.687, 226.958, -21.6, 0.608)
pt3dadd(-105.804, 226.981, -21.6, 0.624)
pt3dadd(-105.922, 227.004, -21.6, 0.64)
pt3dadd(-106.04, 227.026, -21.6, 0.658)
pt3dadd(-106.158, 227.047, -21.6, 0.674)
pt3dadd(-106.266, 227.099, -21.6, 0.682)
pt3dadd(-106.369, 227.159, -21.6, 0.686)
pt3dadd(-106.473, 227.219, -21.6, 0.692)
pt3dadd(-106.577, 227.279, -21.6, 0.696)
pt3dadd(-106.681, 227.339, -21.6, 0.702)
pt3dadd(-106.78, 227.406, -21.6, 0.7)
pt3dadd(-106.876, 227.478, -21.6, 0.694)
pt3dadd(-106.972, 227.55, -21.6, 0.69)
pt3dadd(-107.068, 227.622, -21.6, 0.684)
pt3dadd(-107.164, 227.694, -21.6, 0.68)
pt3dadd(-107.269, 227.747, -21.613, 0.664)
pt3dadd(-107.378, 227.789, -21.634, 0.644)
pt3dadd(-107.488, 227.831, -21.655, 0.622)
pt3dadd(-107.598, 227.873, -21.676, 0.602)
pt3dadd(-107.707, 227.915, -21.698, 0.58)
pt3dadd(-107.812, 227.972, -21.7, 0.564)
pt3dadd(-107.916, 228.032, -21.7, 0.55)
pt3dadd(-108.02, 228.092, -21.7, 0.536)
pt3dadd(-108.124, 228.152, -21.7, 0.52)
pt3dadd(-108.228, 228.212, -21.7, 0.506)
pt3dadd(-108.339, 228.257, -21.7, 0.502)
pt3dadd(-108.452, 228.296, -21.7, 0.502)
pt3dadd(-108.566, 228.334, -21.7, 0.518)
pt3dadd(-108.681, 228.366, -21.7, 0.56)
pt3dadd(-108.797, 228.398, -21.7, 0.602)
pt3dadd(-108.907, 228.444, -21.716, 0.662)
pt3dadd(-109.016, 228.488, -21.732, 0.722)
pt3dadd(-109.06, 228.559, -21.799, 0.754)
pt3dadd(-109.101, 228.631, -21.868, 0.778)
pt3dadd(-109.203, 228.694, -21.877, 0.77)
pt3dadd(-109.305, 228.756, -21.887, 0.762)
pt3dadd(-109.406, 228.82, -21.897, 0.756)
pt3dadd(-109.517, 228.862, -21.9, 0.732)
pt3dadd(-109.632, 228.895, -21.9, 0.702)
pt3dadd(-109.746, 228.934, -21.9, 0.67)
pt3dadd(-109.857, 228.978, -21.9, 0.65)
pt3dadd(-109.971, 229.014, -21.9, 0.646)
pt3dadd(-110.086, 229.05, -21.9, 0.642)
pt3dadd(-110.2, 229.086, -21.9, 0.638)
pt3dadd(-110.315, 229.121, -21.9, 0.632)
pt3dadd(-110.429, 229.157, -21.9, 0.628)
pt3dadd(-110.548, 229.174, -21.9, 0.636)
pt3dadd(-110.667, 229.188, -21.9, 0.646)
pt3dadd(-110.786, 229.201, -21.9, 0.656)
pt3dadd(-110.906, 229.206, -21.9, 0.674)
pt3dadd(-111.026, 229.21, -21.9, 0.692)
pt3dadd(-111.127, 229.247, -21.9, 0.726)
pt3dadd(-111.188, 229.351, -21.9, 0.794)
pt3dadd(-111.248, 229.454, -21.9, 0.864)
pt3dadd(-111.309, 229.558, -21.9, 0.944)
pt3dadd(-111.37, 229.661, -21.9, 1.026)
pt3dadd(-111.482, 229.698, -21.9, 1.102)
pt3dadd(-111.594, 229.739, -21.9, 1.16)
pt3dadd(-111.698, 229.799, -21.9, 1.174)
pt3dadd(-111.802, 229.859, -21.9, 1.19)
pt3dadd(-111.906, 229.919, -21.9, 1.204)
pt3dadd(-112.01, 229.979, -21.9, 1.218)
pt3dadd(-112.115, 230.035, -21.9, 1.23)
pt3dadd(-112.227, 230.08, -21.9, 1.23)
pt3dadd(-112.338, 230.125, -21.9, 1.23)
pt3dadd(-112.45, 230.17, -21.9, 1.23)
pt3dadd(-112.561, 230.214, -21.9, 1.23)
pt3dadd(-112.672, 230.258, -21.9, 1.23)
pt3dadd(-112.791, 230.27, -21.9, 1.224)
pt3dadd(-112.911, 230.275, -21.9, 1.214)
pt3dadd(-113.031, 230.28, -21.9, 1.206)
pt3dadd(-113.151, 230.28, -21.9, 1.166)
pt3dadd(-113.271, 230.28, -21.9, 1.126)
pt3dadd(-113.391, 230.28, -21.9, 1.084)
pt3dadd(-113.51, 230.285, -21.9, 1.032)
pt3dadd(-113.63, 230.288, -21.9, 0.98)
pt3dadd(-113.749, 230.296, -21.9, 0.928)
pt3dadd(-113.831, 230.384, -21.9, 0.856)
pt3dadd(-113.912, 230.472, -21.9, 0.786)
pt3dadd(-113.988, 230.566, -21.9, 0.746)
pt3dadd(-114.072, 230.65, -21.9, 0.734)
pt3dadd(-114.165, 230.725, -21.9, 0.744)
pt3dadd(-114.259, 230.8, -21.9, 0.754)
pt3dadd(-114.353, 230.874, -21.9, 0.764)
pt3dadd(-114.447, 230.95, -21.9, 0.774)
pt3dadd(-114.552, 230.998, -21.9, 0.788)
pt3dadd(-114.67, 231.02, -21.9, 0.81)
pt3dadd(-114.788, 231.042, -21.9, 0.83)
pt3dadd(-114.906, 231.065, -21.9, 0.852)
pt3dadd(-115.024, 231.086, -21.9, 0.872)
pt3dadd(-115.142, 231.109, -21.9, 0.894)
pt3dadd(-115.255, 231.148, -21.9, 0.912)
pt3dadd(-115.362, 231.2, -21.9, 0.926)
pt3dadd(-115.469, 231.254, -21.9, 0.94)
pt3dadd(-115.577, 231.308, -21.9, 0.954)
pt3dadd(-115.684, 231.361, -21.9, 0.97)
pt3dadd(-115.794, 231.409, -21.9, 0.976)
pt3dadd(-115.909, 231.443, -21.9, 0.966)
pt3dadd(-116.025, 231.475, -21.9, 0.956)
pt3dadd(-116.14, 231.509, -21.9, 0.918)
pt3dadd(-116.255, 231.542, -21.9, 0.876)
pt3dadd(-116.367, 231.584, -21.9, 0.834)
pt3dadd(-116.474, 231.637, -21.9, 0.788)
pt3dadd(-116.578, 231.697, -21.9, 0.748)
pt3dadd(-116.666, 231.779, -21.9, 0.724)
pt3dadd(-116.753, 231.862, -21.9, 0.702)
pt3dadd(-116.823, 231.958, -21.9, 0.688)
pt3dadd(-116.894, 232.055, -21.9, 0.674)
pt3dadd(-116.965, 232.152, -21.9, 0.66)
pt3dadd(-117.06, 232.2, -21.9, 0.658)
pt3dadd(-117.18, 232.2, -21.9, 0.666)
pt3dadd(-117.3, 232.2, -21.9, 0.674)
pt3dadd(-117.42, 232.2, -21.9, 0.69)
pt3dadd(-117.54, 232.2, -21.9, 0.708)
pt3dadd(-117.66, 232.2, -21.9, 0.716)
pt3dadd(-117.78, 232.2, -21.9, 0.724)
pt3dadd(-117.9, 232.202, -21.9, 0.72)
pt3dadd(-118.02, 232.207, -21.9, 0.702)
pt3dadd(-118.14, 232.211, -21.9, 0.684)
pt3dadd(-118.247, 232.255, -21.9, 0.664)
pt3dadd(-118.346, 232.322, -21.9, 0.64)
pt3dadd(-118.418, 232.411, -21.9, 0.632)
pt3dadd(-118.457, 232.524, -21.9, 0.644)
pt3dadd(-118.504, 232.628, -21.9, 0.654)
pt3dadd(-118.623, 232.643, -21.9, 0.672)
pt3dadd(-118.742, 232.658, -21.9, 0.688)
pt3dadd(-118.861, 232.673, -21.9, 0.704)
pt3dadd(-118.98, 232.687, -21.9, 0.722)
pt3dadd(-119.094, 232.722, -21.9, 0.748)
pt3dadd(-119.205, 232.769, -21.9, 0.782)
pt3dadd(-119.315, 232.817, -21.9, 0.826)
pt3dadd(-119.427, 232.856, -21.9, 0.854)
pt3dadd(-119.543, 232.888, -21.9, 0.854)
pt3dadd(-119.659, 232.918, -21.9, 0.854)
pt3dadd(-119.775, 232.948, -21.9, 0.854)
pt3dadd(-119.891, 232.979, -21.9, 0.854)
pt3dadd(-120.007, 233.009, -21.9, 0.854)
pt3dadd(-120.115, 233.062, -21.9, 0.858)
pt3dadd(-120.221, 233.118, -21.9, 0.862)
pt3dadd(-120.326, 233.174, -21.9, 0.868)
pt3dadd(-120.432, 233.231, -21.9, 0.872)
pt3dadd(-120.538, 233.287, -21.9, 0.878)
pt3dadd(-120.619, 233.372, -21.9, 0.872)
pt3dadd(-120.686, 233.471, -21.9, 0.86)
pt3dadd(-120.758, 233.568, -21.9, 0.866)
pt3dadd(-120.833, 233.662, -21.9, 0.89)
pt3dadd(-120.918, 233.743, -21.894, 0.908)
pt3dadd(-121.019, 233.803, -21.877, 0.922)
pt3dadd(-121.124, 233.848, -21.854, 0.938)
pt3dadd(-121.237, 233.867, -21.823, 0.962)
pt3dadd(-121.351, 233.886, -21.8, 0.98)
pt3dadd(-121.469, 233.909, -21.8, 0.98)
pt3dadd(-121.573, 233.962, -21.8, 0.992)
pt3dadd(-121.667, 234.037, -21.8, 1.016)
pt3dadd(-121.765, 234.103, -21.8, 1.048)
pt3dadd(-121.873, 234.157, -21.8, 1.094)
pt3dadd(-121.982, 234.204, -21.799, 1.134)
pt3dadd(-122.101, 234.218, -21.795, 1.154)
pt3dadd(-122.22, 234.234, -21.791, 1.172)
pt3dadd(-122.304, 234.24, -21.736, 1.152)
pt3dadd(-122.365, 234.24, -21.65, 1.106)
pt3dadd(-122.434, 234.257, -21.572, 1.048)
pt3dadd(-122.514, 234.296, -21.505, 0.972)
pt3dadd(-122.593, 234.337, -21.439, 0.898)
pt3dadd(-122.688, 234.374, -21.398, 0.822)
pt3dadd(-122.803, 234.409, -21.393, 0.746)
pt3dadd(-122.915, 234.448, -21.385, 0.676)
pt3dadd(-122.999, 234.52, -21.348, 0.654)
pt3dadd(-123.083, 234.593, -21.31, 0.634)
pt3dadd(-123.116, 234.688, -21.265, 0.636)
pt3dadd(-123.128, 234.792, -21.216, 0.648)
pt3dadd(-123.203, 234.833, -21.168, 0.652)
pt3dadd(-123.308, 234.842, -21.121, 0.652)
pt3dadd(-123.413, 234.852, -21.073, 0.652)
pt3dadd(-123.499, 234.918, -21.034, 0.628)
pt3dadd(-123.582, 234.994, -21, 0.602)
pt3dadd(-123.684, 235.05, -21, 0.61)
pt3dadd(-123.802, 235.074, -21, 0.626)
pt3dadd(-123.919, 235.099, -21, 0.644)
pt3dadd(-124.037, 235.124, -21, 0.66)
pt3dadd(-124.153, 235.148, -21, 0.678)
}
}
proc shape3d_44() {
dend_5[14] { pt3dadd(-124.271, 235.174, -21, 0.694)
pt3dadd(-124.385, 235.21, -21, 0.716)
pt3dadd(-124.495, 235.256, -21, 0.744)
pt3dadd(-124.606, 235.304, -21, 0.772)
pt3dadd(-124.716, 235.352, -21, 0.802)
pt3dadd(-124.825, 235.399, -21, 0.83)
pt3dadd(-124.934, 235.448, -20.997, 0.854)
pt3dadd(-125.034, 235.511, -20.977, 0.86)
pt3dadd(-125.135, 235.572, -20.958, 0.866)
pt3dadd(-125.234, 235.634, -20.938, 0.872)
pt3dadd(-125.335, 235.696, -20.919, 0.876)
pt3dadd(-125.43, 235.748, -20.88, 0.86)
pt3dadd(-125.522, 235.796, -20.83, 0.83)
pt3dadd(-125.615, 235.844, -20.779, 0.8)
pt3dadd(-125.706, 235.892, -20.729, 0.77)
pt3dadd(-125.806, 235.932, -20.685, 0.74)
pt3dadd(-125.914, 235.961, -20.649, 0.708)
pt3dadd(-126.023, 235.988, -20.614, 0.676)
pt3dadd(-126.131, 236.017, -20.578, 0.644)
pt3dadd(-126.239, 236.046, -20.542, 0.61)
pt3dadd(-126.35, 236.084, -20.541, 0.59)
pt3dadd(-126.462, 236.128, -20.551, 0.572)
pt3dadd(-126.574, 236.17, -20.561, 0.556)
pt3dadd(-126.685, 236.212, -20.571, 0.538)
pt3dadd(-126.786, 236.264, -20.564, 0.528)
pt3dadd(-126.868, 236.338, -20.524, 0.528)
pt3dadd(-126.972, 236.377, -20.497, 0.52)
pt3dadd(-127.087, 236.401, -20.477, 0.508)
pt3dadd(-127.195, 236.437, -20.449, 0.496)
pt3dadd(-127.296, 236.488, -20.413, 0.482)
pt3dadd(-127.397, 236.51, -20.433, 0.478)
pt3dadd(-127.499, 236.516, -20.486, 0.478)
pt3dadd(-127.589, 236.549, -20.541, 0.49)
pt3dadd(-127.67, 236.605, -20.598, 0.512)
pt3dadd(-127.763, 236.654, -20.627, 0.54)
pt3dadd(-127.876, 236.693, -20.612, 0.576)
pt3dadd(-127.988, 236.729, -20.6, 0.61)
pt3dadd(-128.098, 236.761, -20.58, 0.63)
pt3dadd(-128.2, 236.795, -20.535, 0.636)
pt3dadd(-128.302, 236.827, -20.49, 0.642)
pt3dadd(-128.404, 236.86, -20.445, 0.648)
pt3dadd(-128.506, 236.893, -20.4, 0.652)
pt3dadd(-128.618, 236.934, -20.4, 0.652)
pt3dadd(-128.731, 236.976, -20.4, 0.652)
pt3dadd(-128.844, 237.018, -20.4, 0.652)
pt3dadd(-128.957, 237.059, -20.4, 0.652)
pt3dadd(-129.068, 237.101, -20.4, 0.652)
pt3dadd(-129.18, 237.146, -20.4, 0.656)
pt3dadd(-129.29, 237.193, -20.4, 0.66)
pt3dadd(-129.401, 237.241, -20.4, 0.664)
pt3dadd(-129.511, 237.288, -20.4, 0.67)
pt3dadd(-129.62, 237.336, -20.4, 0.674)
pt3dadd(-129.728, 237.389, -20.4, 0.676)
pt3dadd(-129.827, 237.457, -20.4, 0.672)
pt3dadd(-129.924, 237.527, -20.4, 0.666)
pt3dadd(-130.022, 237.595, -20.4, 0.662)
pt3dadd(-130.121, 237.665, -20.4, 0.656)
pt3dadd(-130.22, 237.732, -20.403, 0.652)
pt3dadd(-130.321, 237.792, -20.419, 0.646)
pt3dadd(-130.423, 237.852, -20.435, 0.64)
pt3dadd(-130.525, 237.913, -20.451, 0.634)
pt3dadd(-130.627, 237.973, -20.467, 0.628)
pt3dadd(-130.732, 238.03, -20.452, 0.628)
pt3dadd(-130.836, 238.086, -20.438, 0.628)
pt3dadd(-130.942, 238.142, -20.424, 0.628)
pt3dadd(-131.046, 238.199, -20.41, 0.628)
pt3dadd(-131.148, 238.259, -20.4, 0.632)
pt3dadd(-131.246, 238.328, -20.4, 0.648)
pt3dadd(-131.345, 238.397, -20.4, 0.662)
pt3dadd(-131.443, 238.466, -20.4, 0.678)
pt3dadd(-131.54, 238.535, -20.4, 0.692)
pt3dadd(-131.639, 238.604, -20.4, 0.708)
pt3dadd(-131.737, 238.674, -20.4, 0.728)
pt3dadd(-131.836, 238.742, -20.4, 0.748)
pt3dadd(-131.934, 238.811, -20.4, 0.768)
pt3dadd(-132.032, 238.88, -20.4, 0.788)
pt3dadd(-132.122, 238.957, -20.4, 0.808)
pt3dadd(-132.188, 239.057, -20.4, 0.828)
pt3dadd(-132.254, 239.158, -20.4, 0.848)
pt3dadd(-132.32, 239.257, -20.4, 0.868)
pt3dadd(-132.386, 239.358, -20.4, 0.888)
pt3dadd(-132.446, 239.461, -20.4, 0.904)
pt3dadd(-132.479, 239.576, -20.4, 0.904)
pt3dadd(-132.511, 239.692, -20.4, 0.904)
pt3dadd(-132.576, 239.79, -20.4, 0.886)
pt3dadd(-132.652, 239.884, -20.4, 0.862)
pt3dadd(-132.726, 239.977, -20.4, 0.84)
pt3dadd(-132.802, 240.071, -20.4, 0.816)
pt3dadd(-132.892, 240.146, -20.4, 0.82)
pt3dadd(-133, 240.199, -20.4, 0.854)
pt3dadd(-133.106, 240.253, -20.4, 0.9)
pt3dadd(-133.213, 240.307, -20.4, 0.984)
pt3dadd(-133.322, 240.359, -20.4, 1.012)
pt3dadd(-133.43, 240.409, -20.4, 1.022)
pt3dadd(-133.54, 240.46, -20.4, 1.03)
pt3dadd(-133.649, 240.51, -20.4, 1.04)
pt3dadd(-133.758, 240.56, -20.4, 1.05)
pt3dadd(-133.859, 240.623, -20.4, 1.048)
pt3dadd(-133.952, 240.698, -20.4, 1.032)
pt3dadd(-134.046, 240.773, -20.4, 1.016)
pt3dadd(-134.14, 240.848, -20.4, 1.002)
pt3dadd(-134.233, 240.923, -20.4, 0.986)
pt3dadd(-134.329, 240.996, -20.4, 0.97)
pt3dadd(-134.424, 241.068, -20.4, 0.948)
pt3dadd(-134.521, 241.14, -20.4, 0.928)
pt3dadd(-134.616, 241.212, -20.4, 0.908)
pt3dadd(-134.712, 241.284, -20.4, 0.888)
pt3dadd(-134.816, 241.342, -20.4, 0.874)
pt3dadd(-134.929, 241.382, -20.4, 0.866)
pt3dadd(-135.042, 241.424, -20.4, 0.856)
pt3dadd(-135.155, 241.466, -20.4, 0.846)
pt3dadd(-135.268, 241.507, -20.4, 0.838)
pt3dadd(-135.38, 241.547, -20.4, 0.828)
pt3dadd(-135.5, 241.552, -20.4, 0.82)
pt3dadd(-135.62, 241.556, -20.4, 0.81)
pt3dadd(-135.739, 241.56, -20.405, 0.798)
pt3dadd(-135.854, 241.56, -20.432, 0.768)
pt3dadd(-135.97, 241.56, -20.46, 0.736)
pt3dadd(-136.069, 241.56, -20.513, 0.72)
pt3dadd(-136.163, 241.56, -20.575, 0.708)
pt3dadd(-136.236, 241.586, -20.648, 0.704)
pt3dadd(-136.294, 241.631, -20.727, 0.704)
pt3dadd(-136.322, 241.722, -20.781, 0.726)
pt3dadd(-136.342, 241.826, -20.828, 0.756)
pt3dadd(-136.362, 241.931, -20.875, 0.788)
pt3dadd(-136.417, 242.018, -20.9, 0.808)
pt3dadd(-136.517, 242.086, -20.9, 0.82)
pt3dadd(-136.6, 242.156, -20.919, 0.836)
pt3dadd(-136.645, 242.236, -20.985, 0.856)
pt3dadd(-136.69, 242.314, -21.051, 0.878)
pt3dadd(-136.781, 242.36, -21.101, 0.878)
pt3dadd(-136.872, 242.4, -21.153, 0.878)
pt3dadd(-136.916, 242.4, -21.246, 0.868)
pt3dadd(-136.943, 242.4, -21.343, 0.838)
pt3dadd(-136.969, 242.4, -21.441, 0.808)
pt3dadd(-137.072, 242.4, -21.474, 0.762)
pt3dadd(-137.189, 242.4, -21.496, 0.712)
pt3dadd(-137.3, 242.414, -21.525, 0.66)
pt3dadd(-137.4, 242.458, -21.567, 0.606)
pt3dadd(-137.507, 242.5, -21.591, 0.568)
pt3dadd(-137.62, 242.54, -21.596, 0.544)
pt3dadd(-137.722, 242.594, -21.602, 0.528)
pt3dadd(-137.79, 242.693, -21.61, 0.528)
pt3dadd(-137.89, 242.732, -21.646, 0.528)
pt3dadd(-137.995, 242.761, -21.688, 0.528)
pt3dadd(-138.1, 242.791, -21.729, 0.528)
pt3dadd(-138.205, 242.82, -21.771, 0.528)
pt3dadd(-138.313, 242.85, -21.8, 0.536)
pt3dadd(-138.431, 242.874, -21.8, 0.58)
pt3dadd(-138.551, 242.88, -21.8, 0.632)
pt3dadd(-138.671, 242.88, -21.8, 0.652)
pt3dadd(-138.79, 242.88, -21.807, 0.62)
pt3dadd(-138.905, 242.893, -21.833, 0.554)
pt3dadd(-138.954, 242.944, -21.91, 0.542)
pt3dadd(-138.96, 242.984, -22.002, 0.574)
pt3dadd(-138.96, 243, -22.101, 0.628)
pt3dadd(-138.962, 243.018, -22.2, 0.658)
pt3dadd(-139.001, 243.068, -22.279, 0.66)
pt3dadd(-139.102, 243.108, -22.318, 0.596)
pt3dadd(-139.213, 243.114, -22.352, 0.562)
pt3dadd(-139.326, 243.12, -22.387, 0.53)
pt3dadd(-139.43, 243.12, -22.436, 0.506)
pt3dadd(-139.534, 243.12, -22.487, 0.482)
pt3dadd(-139.616, 243.12, -22.557, 0.452)
pt3dadd(-139.72, 243.12, -22.608, 0.464)
pt3dadd(-139.824, 243.12, -22.659, 0.476)
pt3dadd(-139.94, 243.125, -22.678, 0.494)
pt3dadd(-140.059, 243.13, -22.691, 0.512)
pt3dadd(-140.166, 243.146, -22.716, 0.538)
pt3dadd(-140.243, 243.2, -22.78, 0.582)
pt3dadd(-140.287, 243.229, -22.861, 0.612)
pt3dadd(-140.303, 243.234, -22.96, 0.632)
pt3dadd(-140.318, 243.24, -23.059, 0.652)
pt3dadd(-140.405, 243.276, -23.117, 0.652)
pt3dadd(-140.497, 243.316, -23.172, 0.652)
pt3dadd(-140.59, 243.355, -23.227, 0.652)
pt3dadd(-140.68, 243.419, -23.266, 0.628)
pt3dadd(-140.77, 243.485, -23.3, 0.596)
pt3dadd(-140.878, 243.526, -23.314, 0.554)
pt3dadd(-140.986, 243.542, -23.356, 0.56)
pt3dadd(-141.094, 243.559, -23.397, 0.564)
pt3dadd(-141.202, 243.575, -23.439, 0.57)
pt3dadd(-141.31, 243.592, -23.48, 0.576)
pt3dadd(-141.422, 243.611, -23.5, 0.588)
pt3dadd(-141.541, 243.63, -23.5, 0.61)
pt3dadd(-141.659, 243.65, -23.5, 0.63)
pt3dadd(-141.778, 243.67, -23.5, 0.65)
pt3dadd(-141.896, 243.689, -23.5, 0.67)
pt3dadd(-142.014, 243.709, -23.5, 0.692)
pt3dadd(-142.134, 243.72, -23.5, 0.712)
pt3dadd(-142.254, 243.72, -23.5, 0.734)
pt3dadd(-142.374, 243.72, -23.5, 0.756)
pt3dadd(-142.494, 243.72, -23.5, 0.778)
pt3dadd(-142.614, 243.72, -23.5, 0.798)
pt3dadd(-142.734, 243.72, -23.5, 0.82)
pt3dadd(-142.854, 243.72, -23.5, 0.842)
pt3dadd(-142.973, 243.72, -23.505, 0.866)
pt3dadd(-143.092, 243.72, -23.518, 0.894)
pt3dadd(-143.212, 243.72, -23.53, 0.922)
pt3dadd(-143.311, 243.72, -23.581, 0.912)
}
}
proc shape3d_45() {
dend_5[14] { pt3dadd(-143.405, 243.72, -23.643, 0.888)
pt3dadd(-143.498, 243.72, -23.706, 0.842)
pt3dadd(-143.592, 243.72, -23.768, 0.784)
pt3dadd(-143.663, 243.72, -23.845, 0.726)
pt3dadd(-143.71, 243.72, -23.937, 0.672)
pt3dadd(-143.761, 243.72, -24.027, 0.622)
pt3dadd(-143.832, 243.72, -24.108, 0.594)
pt3dadd(-143.903, 243.72, -24.189, 0.566)
pt3dadd(-143.974, 243.72, -24.269, 0.538)
pt3dadd(-144.074, 243.72, -24.3, 0.522)
pt3dadd(-144.194, 243.72, -24.3, 0.514)
pt3dadd(-144.314, 243.72, -24.3, 0.506)
pt3dadd(-144.434, 243.72, -24.3, 0.534)
pt3dadd(-144.554, 243.72, -24.3, 0.584)
pt3dadd(-144.674, 243.72, -24.3, 0.634)
pt3dadd(-144.794, 243.72, -24.3, 0.684)
pt3dadd(-144.914, 243.72, -24.302, 0.74)
pt3dadd(-145.034, 243.72, -24.306, 0.802)
pt3dadd(-145.154, 243.72, -24.31, 0.862)
pt3dadd(-145.25, 243.72, -24.361, 0.93)
pt3dadd(-145.338, 243.72, -24.429, 1.002)
pt3dadd(-145.433, 243.72, -24.49, 1.066)
pt3dadd(-145.532, 243.72, -24.547, 1.124)
pt3dadd(-145.61, 243.72, -24.618, 1.186)
pt3dadd(-145.664, 243.72, -24.707, 1.252)
pt3dadd(-145.678, 243.685, -24.802, 1.288)
pt3dadd(-145.69, 243.649, -24.897, 1.322)
pt3dadd(-145.774, 243.625, -24.95, 1.314)
pt3dadd(-145.883, 243.606, -24.987, 1.288)
pt3dadd(-145.999, 243.6, -25, 1.248)
pt3dadd(-146.119, 243.6, -25, 1.198)
pt3dadd(-146.239, 243.6, -25, 1.146)
pt3dadd(-146.359, 243.6, -25, 1.08)
pt3dadd(-146.479, 243.6, -25, 1.004)
pt3dadd(-146.599, 243.6, -25, 0.93)
pt3dadd(-146.719, 243.6, -25.004, 0.824)
pt3dadd(-146.839, 243.6, -25.01, 0.706)
pt3dadd(-146.957, 243.6, -25.029, 0.658)
pt3dadd(-147.073, 243.6, -25.052, 0.632)
pt3dadd(-147.19, 243.6, -25.074, 0.606)
pt3dadd(-147.307, 243.6, -25.097, 0.58)
pt3dadd(-147.424, 243.6, -25.12, 0.554)
pt3dadd(-147.541, 243.6, -25.143, 0.528)
pt3dadd(-147.64, 243.6, -25.199, 0.514)
pt3dadd(-147.738, 243.6, -25.256, 0.498)
pt3dadd(-147.836, 243.6, -25.314, 0.484)
pt3dadd(-147.935, 243.6, -25.371, 0.468)
pt3dadd(-148.032, 243.6, -25.429, 0.454)
pt3dadd(-148.148, 243.58, -25.444, 0.46)
pt3dadd(-148.265, 243.558, -25.457, 0.47)
pt3dadd(-148.382, 243.536, -25.469, 0.478)
pt3dadd(-148.499, 243.514, -25.481, 0.488)
pt3dadd(-148.616, 243.492, -25.493, 0.498)
pt3dadd(-148.733, 243.468, -25.5, 0.506)
pt3dadd(-148.85, 243.44, -25.5, 0.514)
pt3dadd(-148.967, 243.413, -25.5, 0.524)
pt3dadd(-149.083, 243.385, -25.5, 0.532)
pt3dadd(-149.201, 243.358, -25.5, 0.54)
pt3dadd(-149.317, 243.33, -25.5, 0.55)
pt3dadd(-149.434, 243.3, -25.5, 0.558)
pt3dadd(-149.549, 243.266, -25.5, 0.566)
pt3dadd(-149.664, 243.233, -25.5, 0.576)
pt3dadd(-149.779, 243.2, -25.5, 0.584)
pt3dadd(-149.894, 243.167, -25.5, 0.594)
pt3dadd(-150.01, 243.134, -25.5, 0.602)
pt3dadd(-150.126, 243.104, -25.5, 0.602)
pt3dadd(-150.242, 243.073, -25.5, 0.602)
pt3dadd(-150.359, 243.043, -25.5, 0.602)
pt3dadd(-150.475, 243.013, -25.5, 0.602)
pt3dadd(-150.59, 242.983, -25.5, 0.602)
pt3dadd(-150.708, 242.957, -25.504, 0.604)
pt3dadd(-150.826, 242.942, -25.52, 0.608)
pt3dadd(-150.942, 242.928, -25.536, 0.612)
pt3dadd(-151.06, 242.914, -25.552, 0.618)
pt3dadd(-151.177, 242.899, -25.568, 0.622)
pt3dadd(-151.295, 242.885, -25.584, 0.626)
pt3dadd(-151.415, 242.88, -25.592, 0.648)
pt3dadd(-151.535, 242.88, -25.596, 0.678)
pt3dadd(-151.654, 242.88, -25.601, 0.708)
pt3dadd(-151.774, 242.88, -25.605, 0.738)
pt3dadd(-151.894, 242.88, -25.61, 0.768)
pt3dadd(-152.014, 242.88, -25.61, 0.8)
pt3dadd(-152.134, 242.88, -25.608, 0.834)
pt3dadd(-152.254, 242.88, -25.607, 0.866)
pt3dadd(-152.374, 242.88, -25.605, 0.898)
pt3dadd(-152.494, 242.88, -25.604, 0.932)
pt3dadd(-152.614, 242.88, -25.602, 0.964)
pt3dadd(-152.734, 242.88, -25.6, 0.998)
pt3dadd(-152.852, 242.864, -25.6, 1.03)
pt3dadd(-152.971, 242.845, -25.6, 1.064)
pt3dadd(-153.089, 242.825, -25.6, 1.096)
pt3dadd(-153.208, 242.806, -25.6, 1.13)
pt3dadd(-153.326, 242.785, -25.6, 1.162)
pt3dadd(-153.444, 242.766, -25.6, 1.196)
pt3dadd(-153.558, 242.729, -25.6, 1.202)
pt3dadd(-153.67, 242.684, -25.6, 1.198)
pt3dadd(-153.781, 242.64, -25.6, 1.192)
pt3dadd(-153.892, 242.596, -25.6, 1.188)
pt3dadd(-154.003, 242.551, -25.6, 1.184)
pt3dadd(-154.114, 242.504, -25.593, 1.168)
pt3dadd(-154.22, 242.455, -25.572, 1.13)
pt3dadd(-154.326, 242.407, -25.55, 1.092)
pt3dadd(-154.433, 242.358, -25.528, 1.054)
pt3dadd(-154.54, 242.309, -25.507, 1.016)
pt3dadd(-154.644, 242.273, -25.47, 0.97)
pt3dadd(-154.747, 242.244, -25.426, 0.92)
pt3dadd(-154.85, 242.214, -25.381, 0.87)
pt3dadd(-154.954, 242.185, -25.337, 0.82)
pt3dadd(-155.06, 242.159, -25.3, 0.776)
pt3dadd(-155.18, 242.153, -25.3, 0.756)
pt3dadd(-155.3, 242.147, -25.3, 0.738)
pt3dadd(-155.419, 242.141, -25.3, 0.718)
pt3dadd(-155.539, 242.135, -25.3, 0.7)
pt3dadd(-155.659, 242.129, -25.3, 0.682)
pt3dadd(-155.779, 242.124, -25.3, 0.662)
pt3dadd(-155.894, 242.112, -25.282, 0.648)
pt3dadd(-156.005, 242.096, -25.246, 0.638)
pt3dadd(-156.116, 242.08, -25.21, 0.628)
pt3dadd(-156.227, 242.064, -25.174, 0.618)
pt3dadd(-156.337, 242.047, -25.138, 0.608)
pt3dadd(-156.45, 242.027, -25.109, 0.606)
pt3dadd(-156.564, 242.003, -25.084, 0.61)
pt3dadd(-156.678, 241.979, -25.06, 0.616)
pt3dadd(-156.792, 241.955, -25.036, 0.62)
pt3dadd(-156.906, 241.931, -25.012, 0.626)
pt3dadd(-157.024, 241.92, -25, 0.636)
pt3dadd(-157.144, 241.92, -25, 0.654)
pt3dadd(-157.264, 241.92, -25, 0.67)
pt3dadd(-157.384, 241.92, -25, 0.692)
pt3dadd(-157.504, 241.92, -25, 0.716)
pt3dadd(-157.624, 241.92, -25, 0.742)
pt3dadd(-157.742, 241.913, -25, 0.768)
pt3dadd(-157.861, 241.897, -25, 0.796)
pt3dadd(-157.981, 241.883, -25, 0.824)
pt3dadd(-158.075, 241.825, -24.969, 0.84)
pt3dadd(-158.164, 241.758, -24.931, 0.852)
pt3dadd(-158.244, 241.7, -24.874, 0.832)
pt3dadd(-158.353, 241.691, -24.84, 0.82)
pt3dadd(-158.467, 241.688, -24.81, 0.812)
pt3dadd(-158.582, 241.686, -24.779, 0.802)
pt3dadd(-158.696, 241.684, -24.749, 0.794)
pt3dadd(-158.81, 241.681, -24.719, 0.784)
pt3dadd(-158.927, 241.68, -24.7, 0.778)
pt3dadd(-159.047, 241.68, -24.7, 0.778)
pt3dadd(-159.167, 241.68, -24.7, 0.778)
pt3dadd(-159.284, 241.666, -24.694, 0.792)
pt3dadd(-159.396, 241.627, -24.678, 0.828)
pt3dadd(-159.508, 241.595, -24.657, 0.866)
pt3dadd(-159.618, 241.576, -24.62, 0.914)
pt3dadd(-159.72, 241.56, -24.573, 0.966)
pt3dadd(-159.787, 241.56, -24.491, 1.024)
pt3dadd(-159.856, 241.56, -24.409, 1.082)
pt3dadd(-159.941, 241.56, -24.338, 1.152)
pt3dadd(-160.045, 241.56, -24.296, 1.194)
pt3dadd(-160.16, 241.56, -24.271, 1.216)
pt3dadd(-160.277, 241.56, -24.245, 1.238)
pt3dadd(-160.393, 241.56, -24.22, 1.26)
pt3dadd(-160.51, 241.56, -24.195, 1.282)
pt3dadd(-160.626, 241.56, -24.17, 1.304)
pt3dadd(-160.741, 241.534, -24.156, 1.322)
pt3dadd(-160.855, 241.502, -24.143, 1.342)
pt3dadd(-160.97, 241.472, -24.13, 1.36)
pt3dadd(-161.086, 241.441, -24.117, 1.38)
pt3dadd(-161.201, 241.411, -24.104, 1.4)
pt3dadd(-161.308, 241.36, -24.1, 1.422)
pt3dadd(-161.41, 241.296, -24.1, 1.448)
pt3dadd(-161.512, 241.234, -24.1, 1.472)
pt3dadd(-161.614, 241.17, -24.1, 1.496)
pt3dadd(-161.716, 241.108, -24.1, 1.522)
pt3dadd(-161.825, 241.057, -24.1, 1.55)
pt3dadd(-161.938, 241.018, -24.1, 1.582)
pt3dadd(-162.036, 240.964, -24.095, 1.61)
pt3dadd(-162.084, 240.857, -24.073, 1.622)
pt3dadd(-162.121, 240.768, -24.034, 1.624)
pt3dadd(-162.126, 240.746, -23.935, 1.582)
pt3dadd(-162.132, 240.726, -23.837, 1.542)
pt3dadd(-162.184, 240.72, -23.75, 1.464)
pt3dadd(-162.251, 240.72, -23.668, 1.37)
pt3dadd(-162.348, 240.72, -23.622, 1.246)
pt3dadd(-162.466, 240.72, -23.602, 1.098)
pt3dadd(-162.583, 240.72, -23.585, 1.004)
pt3dadd(-162.702, 240.72, -23.568, 0.916)
pt3dadd(-162.793, 240.719, -23.528, 0.84)
pt3dadd(-162.815, 240.713, -23.43, 0.79)
pt3dadd(-162.835, 240.708, -23.332, 0.738)
pt3dadd(-162.876, 240.642, -23.262, 0.694)
pt3dadd(-162.92, 240.559, -23.2, 0.652)
pt3dadd(-162.971, 240.458, -23.164, 0.64)
pt3dadd(-163.03, 240.368, -23.132, 0.628)
pt3dadd(-163.144, 240.332, -23.123, 0.628)
pt3dadd(-163.258, 240.296, -23.114, 0.628)
pt3dadd(-163.372, 240.262, -23.105, 0.628)
pt3dadd(-163.487, 240.227, -23.1, 0.64)
pt3dadd(-163.602, 240.193, -23.1, 0.672)
pt3dadd(-163.717, 240.161, -23.1, 0.702)
pt3dadd(-163.834, 240.131, -23.1, 0.806)
pt3dadd(-163.952, 240.115, -23.1, 0.818)
pt3dadd(-164.071, 240.101, -23.1, 0.83)
pt3dadd(-164.19, 240.086, -23.1, 0.842)
pt3dadd(-164.309, 240.071, -23.1, 0.854)
}
}
proc shape3d_46() {
dend_5[14] { pt3dadd(-164.429, 240.056, -23.1, 0.866)
pt3dadd(-164.548, 240.041, -23.1, 0.878)
pt3dadd(-164.666, 240.026, -23.1, 0.888)
pt3dadd(-164.785, 240.012, -23.1, 0.896)
pt3dadd(-164.905, 240, -23.1, 0.902)
pt3dadd(-165.025, 240, -23.1, 0.894)
pt3dadd(-165.145, 240, -23.1, 0.886)
pt3dadd(-165.265, 240, -23.099, 0.876)
pt3dadd(-165.385, 240, -23.095, 0.858)
pt3dadd(-165.505, 240, -23.091, 0.84)
pt3dadd(-165.618, 240, -23.071, 0.818)
pt3dadd(-165.716, 240, -23.014, 0.782)
pt3dadd(-165.804, 239.984, -22.958, 0.75)
pt3dadd(-165.829, 239.888, -22.902, 0.726)
pt3dadd(-165.854, 239.792, -22.846, 0.702)
pt3dadd(-165.878, 239.695, -22.791, 0.678)
pt3dadd(-165.964, 239.665, -22.725, 0.638)
pt3dadd(-166.043, 239.64, -22.656, 0.6)
pt3dadd(-166.072, 239.64, -22.559, 0.578)
pt3dadd(-166.099, 239.64, -22.462, 0.554)
pt3dadd(-166.127, 239.64, -22.365, 0.532)
pt3dadd(-166.225, 239.627, -22.329, 0.51)
pt3dadd(-166.342, 239.609, -22.31, 0.488)
pt3dadd(-166.442, 239.567, -22.279, 0.478)
pt3dadd(-166.526, 239.498, -22.237, 0.478)
pt3dadd(-166.606, 239.429, -22.191, 0.48)
pt3dadd(-166.651, 239.354, -22.122, 0.494)
pt3dadd(-166.696, 239.285, -22.05, 0.506)
pt3dadd(-166.74, 239.225, -21.972, 0.516)
pt3dadd(-166.784, 239.164, -21.894, 0.526)
pt3dadd(-166.812, 239.16, -21.797, 0.518)
pt3dadd(-166.837, 239.16, -21.7, 0.508)
pt3dadd(-166.902, 239.16, -21.633, 0.496)
pt3dadd(-167.018, 239.16, -21.605, 0.48)
pt3dadd(-167.137, 239.16, -21.6, 0.478)
pt3dadd(-167.257, 239.16, -21.6, 0.518)
pt3dadd(-167.377, 239.16, -21.6, 0.588)
pt3dadd(-167.497, 239.16, -21.6, 0.644)
pt3dadd(-167.617, 239.16, -21.6, 0.674)
pt3dadd(-167.736, 239.16, -21.59, 0.678)
pt3dadd(-167.84, 239.134, -21.555, 0.72)
pt3dadd(-167.879, 239.036, -21.514, 0.82)
pt3dadd(-167.88, 238.919, -21.5, 0.906)
pt3dadd(-167.897, 238.8, -21.5, 0.986)
pt3dadd(-167.942, 238.691, -21.5, 1.03)
pt3dadd(-168.036, 238.622, -21.49, 1.008)
pt3dadd(-168.143, 238.57, -21.474, 0.97)
pt3dadd(-168.203, 238.519, -21.415, 0.926)
pt3dadd(-168.229, 238.472, -21.326, 0.874)
pt3dadd(-168.24, 238.445, -21.231, 0.772)
pt3dadd(-168.263, 238.44, -21.134, 0.7)
pt3dadd(-168.296, 238.44, -21.037, 0.658)
pt3dadd(-168.337, 238.433, -20.945, 0.61)
pt3dadd(-168.4, 238.405, -20.863, 0.544)
pt3dadd(-168.469, 238.354, -20.809, 0.488)
pt3dadd(-168.546, 238.264, -20.804, 0.452)
pt3dadd(-168.634, 238.183, -20.8, 0.424)
pt3dadd(-168.74, 238.129, -20.8, 0.412)
pt3dadd(-168.847, 238.075, -20.798, 0.408)
pt3dadd(-168.943, 238.01, -20.771, 0.488)
pt3dadd(-169.058, 237.992, -20.757, 0.526)
pt3dadd(-169.177, 237.984, -20.746, 0.556)
pt3dadd(-169.296, 237.974, -20.735, 0.586)
pt3dadd(-169.415, 237.966, -20.724, 0.616)
pt3dadd(-169.534, 237.956, -20.713, 0.644)
pt3dadd(-169.652, 237.948, -20.701, 0.674)
pt3dadd(-169.768, 237.917, -20.7, 0.894)
pt3dadd(-169.878, 237.869, -20.7, 1.06)
pt3dadd(-169.993, 237.836, -20.7, 1.104)
pt3dadd(-170.108, 237.804, -20.7, 1.062)
pt3dadd(-170.208, 237.744, -20.68, 0.96)
pt3dadd(-170.268, 237.678, -20.618, 0.876)
pt3dadd(-170.28, 237.628, -20.53, 0.792)
pt3dadd(-170.28, 237.605, -20.432, 0.72)
pt3dadd(-170.28, 237.6, -20.332, 0.668)
pt3dadd(-170.29, 237.6, -20.233, 0.634)
pt3dadd(-170.336, 237.6, -20.143, 0.604)
pt3dadd(-170.448, 237.6, -20.108, 0.636)
pt3dadd(-170.567, 237.6, -20.1, 0.662)
pt3dadd(-170.687, 237.6, -20.1, 0.678)
pt3dadd(-170.807, 237.6, -20.1, 0.678)
pt3dadd(-170.927, 237.6, -20.095, 0.69)
pt3dadd(-171.044, 237.6, -20.075, 0.75)
pt3dadd(-171.158, 237.6, -20.045, 0.794)
pt3dadd(-171.272, 237.6, -20.012, 0.816)
pt3dadd(-171.385, 237.6, -19.98, 0.84)
pt3dadd(-171.499, 237.6, -19.948, 0.862)
pt3dadd(-171.613, 237.6, -19.916, 0.886)
pt3dadd(-171.726, 237.6, -19.883, 0.914)
pt3dadd(-171.84, 237.6, -19.85, 0.966)
pt3dadd(-171.953, 237.6, -19.817, 1.02)
pt3dadd(-172.069, 237.6, -19.793, 1.062)
pt3dadd(-172.187, 237.6, -19.771, 1.102)
pt3dadd(-172.279, 237.6, -19.726, 1.146)
pt3dadd(-172.319, 237.6, -19.632, 1.2)
pt3dadd(-172.357, 237.6, -19.538, 1.254)
pt3dadd(-172.396, 237.582, -19.444, 1.334)
pt3dadd(-172.433, 237.564, -19.35, 1.416)
pt3dadd(-172.477, 237.499, -19.277, 1.536)
pt3dadd(-172.522, 237.422, -19.21, 1.666)
pt3dadd(-172.558, 237.31, -19.2, 1.838)
pt3dadd(-172.601, 237.198, -19.2, 1.848)
pt3dadd(-172.696, 237.132, -19.2, 1.754)
pt3dadd(-172.81, 237.096, -19.2, 1.582)
pt3dadd(-172.919, 237.049, -19.19, 1.43)
pt3dadd(-173.029, 237.011, -19.17, 1.372)
pt3dadd(-173.14, 236.971, -19.149, 1.314)
pt3dadd(-173.251, 236.933, -19.128, 1.258)
pt3dadd(-173.362, 236.893, -19.107, 1.2)
pt3dadd(-173.478, 236.88, -19.1, 1.11)
pt3dadd(-173.598, 236.88, -19.1, 1)
pt3dadd(-173.718, 236.88, -19.1, 0.892)
pt3dadd(-173.838, 236.88, -19.1, 0.804)
pt3dadd(-173.958, 236.88, -19.1, 0.73)
pt3dadd(-174.078, 236.88, -19.1, 0.654)
pt3dadd(-174.193, 236.88, -19.078, 0.606)
pt3dadd(-174.307, 236.88, -19.045, 0.574)
pt3dadd(-174.404, 236.867, -18.999, 0.56)
pt3dadd(-174.462, 236.822, -18.919, 0.588)
pt3dadd(-174.533, 236.76, -18.866, 0.606)
pt3dadd(-174.614, 236.678, -18.841, 0.614)
pt3dadd(-174.696, 236.597, -18.815, 0.622)
pt3dadd(-174.785, 236.52, -18.8, 0.632)
pt3dadd(-174.884, 236.452, -18.8, 0.644)
pt3dadd(-174.985, 236.388, -18.8, 0.652)
pt3dadd(-175.091, 236.332, -18.8, 0.658)
pt3dadd(-175.195, 236.272, -18.8, 0.668)
pt3dadd(-175.298, 236.212, -18.8, 0.678)
pt3dadd(-175.403, 236.152, -18.8, 0.688)
pt3dadd(-175.507, 236.092, -18.8, 0.696)
pt3dadd(-175.612, 236.033, -18.8, 0.704)
pt3dadd(-175.717, 235.976, -18.8, 0.704)
pt3dadd(-175.823, 235.92, -18.8, 0.704)
pt3dadd(-175.928, 235.862, -18.8, 0.704)
pt3dadd(-176.035, 235.806, -18.8, 0.704)
pt3dadd(-176.137, 235.745, -18.8, 0.704)
pt3dadd(-176.226, 235.664, -18.8, 0.704)
pt3dadd(-176.315, 235.583, -18.8, 0.704)
pt3dadd(-176.404, 235.502, -18.8, 0.704)
pt3dadd(-176.492, 235.421, -18.8, 0.704)
pt3dadd(-176.579, 235.34, -18.796, 0.696)
pt3dadd(-176.663, 235.256, -18.778, 0.67)
pt3dadd(-176.729, 235.175, -18.744, 0.644)
pt3dadd(-176.758, 235.097, -18.672, 0.618)
pt3dadd(-176.818, 235.022, -18.625, 0.596)
pt3dadd(-176.914, 234.954, -18.608, 0.584)
pt3dadd(-177.019, 234.904, -18.6, 0.588)
pt3dadd(-177.136, 234.87, -18.6, 0.61)
pt3dadd(-177.251, 234.84, -18.598, 0.634)
pt3dadd(-177.368, 234.84, -18.579, 0.708)
pt3dadd(-177.481, 234.857, -18.553, 0.768)
pt3dadd(-177.586, 234.899, -18.518, 0.808)
pt3dadd(-177.696, 234.928, -18.5, 0.828)
pt3dadd(-177.816, 234.942, -18.5, 0.828)
pt3dadd(-177.935, 234.956, -18.5, 0.828)
pt3dadd(-178.054, 234.948, -18.5, 0.806)
pt3dadd(-178.172, 234.934, -18.5, 0.778)
pt3dadd(-178.288, 234.911, -18.5, 0.754)
pt3dadd(-178.362, 234.817, -18.5, 0.766)
pt3dadd(-178.438, 234.724, -18.5, 0.778)
pt3dadd(-178.502, 234.623, -18.5, 0.878)
pt3dadd(-178.589, 234.546, -18.5, 0.956)
pt3dadd(-178.696, 234.492, -18.5, 1.01)
pt3dadd(-178.804, 234.438, -18.5, 1.062)
pt3dadd(-178.91, 234.384, -18.5, 1.116)
pt3dadd(-179.017, 234.331, -18.5, 1.168)
pt3dadd(-179.124, 234.275, -18.5, 1.222)
pt3dadd(-179.227, 234.214, -18.5, 1.28)
pt3dadd(-179.333, 234.158, -18.5, 1.328)
pt3dadd(-179.452, 234.143, -18.5, 1.3)
pt3dadd(-179.57, 234.128, -18.5, 1.272)
pt3dadd(-179.69, 234.118, -18.5, 1.212)
pt3dadd(-179.81, 234.114, -18.5, 1.108)
pt3dadd(-179.93, 234.109, -18.5, 1.004)
pt3dadd(-180.023, 234.056, -18.491, 0.886)
pt3dadd(-180.091, 233.96, -18.474, 0.758)
pt3dadd(-180.125, 233.856, -18.444, 0.642)
pt3dadd(-180.145, 233.749, -18.41, 0.552)
pt3dadd(-180.233, 233.669, -18.398, 0.552)
pt3dadd(-180.316, 233.586, -18.383, 0.56)
pt3dadd(-180.371, 233.49, -18.343, 0.604)
pt3dadd(-180.448, 233.418, -18.34, 0.656)
pt3dadd(-180.548, 233.372, -18.379, 0.714)
pt3dadd(-180.656, 233.332, -18.405, 0.746)
pt3dadd(-180.767, 233.292, -18.427, 0.77)
pt3dadd(-180.88, 233.262, -18.446, 0.764)
pt3dadd(-180.995, 233.237, -18.464, 0.744)
pt3dadd(-181.111, 233.212, -18.482, 0.724)
pt3dadd(-181.226, 233.186, -18.5, 0.704)
pt3dadd(-181.273, 233.076, -18.5, 0.626)
pt3dadd(-181.32, 232.966, -18.5, 0.55)
pt3dadd(-181.356, 232.852, -18.5, 0.374)
pt3dadd(-181.444, 232.772, -18.5, 0.32)
pt3dadd(-181.537, 232.698, -18.5, 0.284)
pt3dadd(-181.627, 232.63, -18.472, 0.286)
pt3dadd(-181.717, 232.562, -18.434, 0.3)
pt3dadd(-181.763, 232.504, -18.357, 0.328)
pt3dadd(-181.802, 232.452, -18.275, 0.352)
pt3dadd(-181.818, 232.441, -18.176, 0.352)
pt3dadd(-181.835, 232.43, -18.077, 0.352)
}
}
proc shape3d_47() {
dend_5[14] { pt3dadd(-181.901, 232.379, -18.061, 0.326)
pt3dadd(-181.99, 232.326, -18.102, 0.274)
pt3dadd(-182.066, 232.32, -18.178, 0.226)
pt3dadd(-182.136, 232.32, -18.259, 0.226)
pt3dadd(-182.189, 232.32, -18.349, 0.226)
pt3dadd(-182.261, 232.316, -18.428, 0.28)
pt3dadd(-182.344, 232.271, -18.49, 0.322)
pt3dadd(-182.422, 232.218, -18.551, 0.374)
pt3dadd(-182.49, 232.15, -18.609, 0.446)
pt3dadd(-182.58, 232.094, -18.651, 0.494)
pt3dadd(-182.686, 232.05, -18.682, 0.522)
pt3dadd(-182.783, 232, -18.655, 0.528)
pt3dadd(-182.878, 231.948, -18.612, 0.528)
pt3dadd(-182.982, 231.89, -18.603, 0.474)
pt3dadd(-183.083, 231.824, -18.6, 0.45)
pt3dadd(-183.179, 231.752, -18.6, 0.444)
pt3dadd(-183.275, 231.68, -18.6, 0.44)
pt3dadd(-183.371, 231.608, -18.6, 0.434)
pt3dadd(-183.467, 231.536, -18.6, 0.428)
pt3dadd(-183.544, 231.448, -18.597, 0.434)
pt3dadd(-183.607, 231.346, -18.592, 0.446)
pt3dadd(-183.677, 231.257, -18.568, 0.466)
pt3dadd(-183.752, 231.18, -18.523, 0.494)
pt3dadd(-183.857, 231.133, -18.511, 0.494)
pt3dadd(-183.971, 231.098, -18.511, 0.482)
pt3dadd(-184.069, 231.058, -18.543, 0.456)
pt3dadd(-184.151, 231.012, -18.605, 0.414)
pt3dadd(-184.243, 230.977, -18.661, 0.344)
pt3dadd(-184.349, 230.942, -18.69, 0.296)
pt3dadd(-184.463, 230.906, -18.692, 0.288)
pt3dadd(-184.577, 230.869, -18.694, 0.278)
pt3dadd(-184.691, 230.833, -18.696, 0.27)
pt3dadd(-184.806, 230.796, -18.698, 0.26)
pt3dadd(-184.92, 230.76, -18.7, 0.252)
pt3dadd(-185.04, 230.76, -18.7, 0.246)
pt3dadd(-185.16, 230.76, -18.7, 0.242)
pt3dadd(-185.28, 230.76, -18.7, 0.238)
pt3dadd(-185.4, 230.76, -18.7, 0.234)
pt3dadd(-185.52, 230.76, -18.7, 0.23)
pt3dadd(-185.64, 230.76, -18.7, 0.226)
}
dend_5[15] {pt3dclear()
pt3dadd(-24.146, 202.946, -8.2, 1.206)
pt3dadd(-24.152, 202.973, -8.295, 1.2)
pt3dadd(-24.157, 203, -8.392, 1.196)
pt3dadd(-24.163, 203.028, -8.489, 1.192)
pt3dadd(-24.169, 203.056, -8.586, 1.188)
pt3dadd(-24.175, 203.083, -8.684, 1.182)
pt3dadd(-24.18, 203.111, -8.781, 1.178)
pt3dadd(-24.186, 203.138, -8.878, 1.174)
pt3dadd(-24.192, 203.166, -8.975, 1.168)
pt3dadd(-24.198, 203.194, -9.072, 1.164)
pt3dadd(-24.203, 203.221, -9.17, 1.16)
pt3dadd(-24.209, 203.249, -9.267, 1.156)
pt3dadd(-24.215, 203.276, -9.364, 1.15)
pt3dadd(-24.22, 203.304, -9.461, 1.146)
pt3dadd(-24.226, 203.332, -9.559, 1.142)
pt3dadd(-24.232, 203.359, -9.656, 1.136)
pt3dadd(-24.238, 203.387, -9.753, 1.132)
pt3dadd(-24.301, 203.41, -9.8, 1.132)
pt3dadd(-24.419, 203.43, -9.8, 1.136)
pt3dadd(-24.538, 203.449, -9.8, 1.14)
pt3dadd(-24.656, 203.47, -9.8, 1.144)
pt3dadd(-24.774, 203.489, -9.8, 1.148)
pt3dadd(-24.893, 203.509, -9.8, 1.152)
pt3dadd(-25.007, 203.542, -9.8, 1.154)
pt3dadd(-25.116, 203.592, -9.8, 1.148)
pt3dadd(-25.225, 203.644, -9.8, 1.144)
pt3dadd(-25.333, 203.694, -9.8, 1.138)
pt3dadd(-25.442, 203.744, -9.8, 1.134)
pt3dadd(-25.548, 203.8, -9.8, 1.13)
pt3dadd(-25.633, 203.884, -9.8, 1.136)
pt3dadd(-25.72, 203.968, -9.8, 1.14)
pt3dadd(-25.806, 204.05, -9.8, 1.146)
pt3dadd(-25.892, 204.134, -9.8, 1.152)
pt3dadd(-25.984, 204.208, -9.8, 1.154)
pt3dadd(-26.099, 204.244, -9.8, 1.15)
pt3dadd(-26.213, 204.28, -9.8, 1.146)
pt3dadd(-26.328, 204.314, -9.8, 1.14)
pt3dadd(-26.442, 204.35, -9.8, 1.136)
pt3dadd(-26.557, 204.386, -9.8, 1.132)
pt3dadd(-26.663, 204.44, -9.8, 1.124)
pt3dadd(-26.762, 204.506, -9.8, 1.114)
pt3dadd(-26.863, 204.572, -9.8, 1.104)
pt3dadd(-26.963, 204.638, -9.8, 1.094)
pt3dadd(-27.064, 204.704, -9.8, 1.084)
pt3dadd(-27.168, 204.762, -9.8, 1.072)
pt3dadd(-27.277, 204.812, -9.8, 1.058)
pt3dadd(-27.386, 204.863, -9.8, 1.042)
pt3dadd(-27.494, 204.913, -9.8, 1.028)
pt3dadd(-27.604, 204.964, -9.8, 1.014)
pt3dadd(-27.71, 205.019, -9.8, 1.006)
pt3dadd(-27.812, 205.081, -9.8, 1.01)
pt3dadd(-27.914, 205.145, -9.8, 1.016)
pt3dadd(-28.018, 205.207, -9.8, 1.02)
pt3dadd(-28.12, 205.27, -9.8, 1.026)
pt3dadd(-28.222, 205.333, -9.8, 1.03)
pt3dadd(-28.324, 205.397, -9.8, 1.03)
pt3dadd(-28.426, 205.459, -9.8, 1.03)
pt3dadd(-28.528, 205.523, -9.8, 1.03)
pt3dadd(-28.63, 205.585, -9.8, 1.03)
pt3dadd(-28.734, 205.643, -9.8, 1.028)
pt3dadd(-28.853, 205.657, -9.8, 1.02)
pt3dadd(-28.973, 205.672, -9.8, 1.01)
pt3dadd(-29.089, 205.682, -9.812, 0.986)
pt3dadd(-29.204, 205.688, -9.841, 0.942)
pt3dadd(-29.317, 205.7, -9.869, 0.902)
pt3dadd(-29.413, 205.769, -9.886, 0.89)
pt3dadd(-29.508, 205.838, -9.906, 0.882)
pt3dadd(-29.59, 205.914, -9.944, 0.896)
pt3dadd(-29.672, 205.985, -9.986, 0.914)
pt3dadd(-29.754, 206.048, -10.035, 0.94)
pt3dadd(-29.837, 206.113, -10.085, 0.966)
pt3dadd(-29.908, 206.153, -10.152, 0.996)
pt3dadd(-29.966, 206.166, -10.239, 1.034)
pt3dadd(-30.04, 206.203, -10.291, 1.066)
pt3dadd(-30.136, 206.275, -10.295, 1.094)
pt3dadd(-30.232, 206.347, -10.299, 1.12)
pt3dadd(-30.332, 206.412, -10.3, 1.144)
pt3dadd(-30.436, 206.473, -10.3, 1.168)
pt3dadd(-30.545, 206.521, -10.3, 1.194)
pt3dadd(-30.654, 206.564, -10.314, 1.202)
pt3dadd(-30.761, 206.614, -10.335, 1.196)
pt3dadd(-30.868, 206.663, -10.357, 1.192)
pt3dadd(-30.974, 206.711, -10.378, 1.186)
pt3dadd(-31.08, 206.76, -10.4, 1.18)
pt3dadd(-31.18, 206.822, -10.422, 1.168)
pt3dadd(-31.278, 206.886, -10.445, 1.158)
pt3dadd(-31.376, 206.948, -10.467, 1.146)
pt3dadd(-31.475, 207.011, -10.49, 1.136)
pt3dadd(-31.555, 207.092, -10.511, 1.118)
pt3dadd(-31.621, 207.191, -10.531, 1.096)
pt3dadd(-31.686, 207.289, -10.55, 1.074)
pt3dadd(-31.751, 207.386, -10.57, 1.05)
pt3dadd(-31.817, 207.484, -10.591, 1.028)
pt3dadd(-31.885, 207.563, -10.64, 0.998)
pt3dadd(-31.954, 207.641, -10.689, 0.966)
pt3dadd(-32.022, 207.72, -10.739, 0.936)
pt3dadd(-32.092, 207.799, -10.788, 0.904)
pt3dadd(-32.172, 207.88, -10.817, 0.88)
pt3dadd(-32.254, 207.961, -10.845, 0.858)
pt3dadd(-32.335, 208.043, -10.874, 0.834)
pt3dadd(-32.416, 208.123, -10.903, 0.81)
pt3dadd(-32.506, 208.195, -10.931, 0.8)
pt3dadd(-32.599, 208.264, -10.96, 0.794)
pt3dadd(-32.692, 208.331, -10.988, 0.788)
pt3dadd(-32.784, 208.399, -11.016, 0.782)
pt3dadd(-32.88, 208.463, -11.045, 0.782)
pt3dadd(-32.977, 208.522, -11.076, 0.794)
pt3dadd(-33.076, 208.58, -11.107, 0.806)
pt3dadd(-33.174, 208.638, -11.138, 0.818)
pt3dadd(-33.272, 208.698, -11.168, 0.828)
pt3dadd(-33.366, 208.771, -11.182, 0.834)
pt3dadd(-33.46, 208.843, -11.197, 0.84)
pt3dadd(-33.552, 208.916, -11.211, 0.846)
pt3dadd(-33.646, 208.99, -11.226, 0.852)
pt3dadd(-33.732, 209.056, -11.262, 0.85)
pt3dadd(-33.811, 209.114, -11.319, 0.844)
pt3dadd(-33.889, 209.174, -11.376, 0.838)
pt3dadd(-33.968, 209.233, -11.434, 0.832)
pt3dadd(-34.055, 209.285, -11.487, 0.822)
pt3dadd(-34.151, 209.329, -11.533, 0.804)
pt3dadd(-34.248, 209.372, -11.58, 0.786)
pt3dadd(-34.344, 209.416, -11.627, 0.768)
pt3dadd(-34.444, 209.459, -11.668, 0.752)
pt3dadd(-34.555, 209.503, -11.674, 0.742)
pt3dadd(-34.666, 209.548, -11.681, 0.732)
pt3dadd(-34.777, 209.592, -11.687, 0.722)
pt3dadd(-34.889, 209.635, -11.693, 0.712)
pt3dadd(-35, 209.68, -11.7, 0.704)
pt3dadd(-35.111, 209.725, -11.702, 0.704)
pt3dadd(-35.222, 209.771, -11.704, 0.704)
pt3dadd(-35.333, 209.815, -11.706, 0.704)
pt3dadd(-35.444, 209.861, -11.708, 0.704)
pt3dadd(-35.556, 209.906, -11.711, 0.704)
pt3dadd(-35.653, 209.971, -11.725, 0.712)
pt3dadd(-35.747, 210.043, -11.745, 0.722)
pt3dadd(-35.839, 210.115, -11.765, 0.734)
pt3dadd(-35.932, 210.187, -11.785, 0.746)
pt3dadd(-36.029, 210.253, -11.804, 0.754)
pt3dadd(-36.137, 210.304, -11.818, 0.76)
pt3dadd(-36.245, 210.353, -11.831, 0.766)
pt3dadd(-36.353, 210.403, -11.845, 0.77)
pt3dadd(-36.461, 210.452, -11.859, 0.776)
pt3dadd(-36.572, 210.494, -11.87, 0.774)
pt3dadd(-36.688, 210.527, -11.876, 0.766)
pt3dadd(-36.803, 210.558, -11.882, 0.756)
pt3dadd(-36.918, 210.59, -11.888, 0.746)
pt3dadd(-37.034, 210.622, -11.894, 0.738)
pt3dadd(-37.15, 210.654, -11.9, 0.728)
pt3dadd(-37.258, 210.706, -11.902, 0.704)
pt3dadd(-37.366, 210.757, -11.904, 0.68)
pt3dadd(-37.474, 210.809, -11.906, 0.654)
pt3dadd(-37.582, 210.86, -11.909, 0.63)
pt3dadd(-37.691, 210.913, -11.911, 0.606)
pt3dadd(-37.801, 210.949, -11.933, 0.58)
pt3dadd(-37.913, 210.982, -11.958, 0.554)
pt3dadd(-38.023, 211.015, -11.984, 0.528)
pt3dadd(-38.135, 211.049, -12.009, 0.502)
pt3dadd(-38.245, 211.08, -12.036, 0.476)
pt3dadd(-38.35, 211.08, -12.086, 0.462)
pt3dadd(-38.454, 211.08, -12.135, 0.448)
}
}
proc shape3d_48() {
dend_5[15] { pt3dadd(-38.557, 211.08, -12.185, 0.432)
pt3dadd(-38.662, 211.08, -12.235, 0.418)
pt3dadd(-38.766, 211.08, -12.285, 0.402)
pt3dadd(-38.87, 211.126, -12.311, 0.408)
pt3dadd(-38.976, 211.176, -12.336, 0.412)
pt3dadd(-39.082, 211.225, -12.36, 0.418)
pt3dadd(-39.186, 211.276, -12.385, 0.424)
pt3dadd(-39.283, 211.337, -12.408, 0.434)
pt3dadd(-39.366, 211.42, -12.431, 0.45)
pt3dadd(-39.449, 211.502, -12.454, 0.468)
pt3dadd(-39.532, 211.585, -12.477, 0.484)
pt3dadd(-39.613, 211.667, -12.5, 0.502)
pt3dadd(-39.707, 211.744, -12.502, 0.522)
pt3dadd(-39.799, 211.819, -12.504, 0.544)
pt3dadd(-39.892, 211.896, -12.507, 0.564)
pt3dadd(-39.984, 211.972, -12.509, 0.584)
pt3dadd(-40.079, 212.045, -12.513, 0.604)
pt3dadd(-40.189, 212.086, -12.531, 0.614)
pt3dadd(-40.3, 212.128, -12.55, 0.624)
pt3dadd(-40.41, 212.17, -12.568, 0.636)
pt3dadd(-40.52, 212.21, -12.587, 0.646)
pt3dadd(-40.628, 212.258, -12.6, 0.656)
pt3dadd(-40.73, 212.321, -12.6, 0.666)
pt3dadd(-40.834, 212.383, -12.6, 0.676)
pt3dadd(-40.936, 212.447, -12.6, 0.686)
pt3dadd(-41.038, 212.509, -12.6, 0.696)
pt3dadd(-41.135, 212.578, -12.6, 0.704)
pt3dadd(-41.21, 212.671, -12.6, 0.704)
pt3dadd(-41.285, 212.765, -12.6, 0.704)
pt3dadd(-41.359, 212.858, -12.6, 0.704)
pt3dadd(-41.435, 212.952, -12.6, 0.704)
pt3dadd(-41.518, 213.036, -12.601, 0.702)
pt3dadd(-41.629, 213.08, -12.608, 0.692)
pt3dadd(-41.74, 213.124, -12.614, 0.682)
pt3dadd(-41.851, 213.168, -12.621, 0.672)
pt3dadd(-41.963, 213.212, -12.627, 0.662)
pt3dadd(-42.073, 213.257, -12.636, 0.652)
pt3dadd(-42.162, 213.322, -12.676, 0.628)
pt3dadd(-42.252, 213.385, -12.716, 0.604)
pt3dadd(-42.341, 213.449, -12.756, 0.58)
pt3dadd(-42.431, 213.512, -12.796, 0.554)
pt3dadd(-42.516, 213.575, -12.844, 0.536)
pt3dadd(-42.6, 213.636, -12.892, 0.518)
pt3dadd(-42.685, 213.698, -12.941, 0.5)
pt3dadd(-42.769, 213.76, -12.99, 0.48)
pt3dadd(-42.857, 213.83, -13.025, 0.478)
pt3dadd(-42.944, 213.902, -13.056, 0.478)
pt3dadd(-43.033, 213.976, -13.088, 0.478)
pt3dadd(-43.121, 214.048, -13.119, 0.478)
pt3dadd(-43.198, 214.129, -13.154, 0.492)
pt3dadd(-43.265, 214.218, -13.191, 0.52)
pt3dadd(-43.326, 214.318, -13.2, 0.544)
pt3dadd(-43.387, 214.422, -13.2, 0.568)
pt3dadd(-43.476, 214.493, -13.2, 0.584)
pt3dadd(-43.586, 214.54, -13.2, 0.594)
pt3dadd(-43.694, 214.588, -13.21, 0.6)
pt3dadd(-43.794, 214.638, -13.246, 0.586)
pt3dadd(-43.902, 214.67, -13.275, 0.584)
pt3dadd(-44.018, 214.679, -13.296, 0.6)
pt3dadd(-44.136, 214.692, -13.313, 0.61)
pt3dadd(-44.254, 214.706, -13.329, 0.62)
pt3dadd(-44.371, 214.721, -13.345, 0.628)
pt3dadd(-44.489, 214.735, -13.361, 0.638)
pt3dadd(-44.606, 214.75, -13.377, 0.646)
pt3dadd(-44.722, 214.771, -13.395, 0.658)
pt3dadd(-44.83, 214.814, -13.419, 0.68)
pt3dadd(-44.939, 214.856, -13.443, 0.702)
pt3dadd(-45.047, 214.9, -13.466, 0.722)
pt3dadd(-45.156, 214.942, -13.49, 0.744)
pt3dadd(-45.223, 215.027, -13.5, 0.772)
pt3dadd(-45.263, 215.14, -13.5, 0.804)
pt3dadd(-45.318, 215.237, -13.501, 0.834)
pt3dadd(-45.431, 215.278, -13.506, 0.856)
pt3dadd(-45.544, 215.318, -13.511, 0.878)
pt3dadd(-45.574, 215.381, -13.59, 0.918)
pt3dadd(-45.605, 215.443, -13.671, 0.954)
pt3dadd(-45.68, 215.488, -13.74, 0.954)
pt3dadd(-45.766, 215.53, -13.792, 0.952)
pt3dadd(-45.881, 215.562, -13.804, 0.946)
pt3dadd(-45.996, 215.593, -13.816, 0.938)
pt3dadd(-46.11, 215.626, -13.828, 0.932)
pt3dadd(-46.225, 215.644, -13.849, 0.904)
pt3dadd(-46.339, 215.648, -13.878, 0.862)
pt3dadd(-46.448, 215.672, -13.901, 0.828)
pt3dadd(-46.541, 215.749, -13.905, 0.828)
pt3dadd(-46.632, 215.826, -13.909, 0.828)
pt3dadd(-46.716, 215.892, -13.941, 0.856)
pt3dadd(-46.793, 215.946, -14.005, 0.914)
pt3dadd(-46.852, 216.01, -14.069, 1.114)
pt3dadd(-46.942, 216.086, -14.086, 1.178)
pt3dadd(-47.03, 216.164, -14.1, 1.232)
pt3dadd(-47.112, 216.253, -14.1, 1.244)
pt3dadd(-47.195, 216.338, -14.1, 1.254)
pt3dadd(-47.297, 216.402, -14.106, 1.242)
pt3dadd(-47.398, 216.466, -14.111, 1.23)
pt3dadd(-47.462, 216.494, -14.191, 1.218)
pt3dadd(-47.521, 216.526, -14.273, 1.206)
pt3dadd(-47.531, 216.606, -14.347, 1.226)
pt3dadd(-47.596, 216.665, -14.409, 1.226)
pt3dadd(-47.68, 216.716, -14.465, 1.22)
pt3dadd(-47.764, 216.768, -14.522, 1.214)
pt3dadd(-47.848, 216.82, -14.578, 1.208)
pt3dadd(-47.936, 216.886, -14.614, 1.202)
pt3dadd(-48.028, 216.959, -14.637, 1.196)
pt3dadd(-48.119, 217.031, -14.66, 1.19)
pt3dadd(-48.21, 217.104, -14.683, 1.184)
pt3dadd(-48.3, 217.18, -14.7, 1.176)
pt3dadd(-48.389, 217.26, -14.7, 1.162)
pt3dadd(-48.479, 217.34, -14.7, 1.146)
pt3dadd(-48.568, 217.421, -14.7, 1.132)
pt3dadd(-48.656, 217.502, -14.7, 1.116)
pt3dadd(-48.746, 217.577, -14.71, 1.104)
pt3dadd(-48.841, 217.637, -14.747, 1.098)
pt3dadd(-48.935, 217.697, -14.784, 1.092)
pt3dadd(-49.03, 217.756, -14.82, 1.086)
pt3dadd(-49.123, 217.817, -14.856, 1.08)
pt3dadd(-49.196, 217.91, -14.865, 1.068)
pt3dadd(-49.271, 218.005, -14.875, 1.058)
pt3dadd(-49.344, 218.099, -14.884, 1.048)
pt3dadd(-49.418, 218.192, -14.894, 1.036)
pt3dadd(-49.498, 218.282, -14.9, 1.026)
pt3dadd(-49.585, 218.364, -14.9, 1.014)
pt3dadd(-49.669, 218.448, -14.904, 1.002)
pt3dadd(-49.738, 218.544, -14.921, 0.988)
pt3dadd(-49.798, 218.634, -14.954, 0.98)
pt3dadd(-49.834, 218.707, -15.027, 0.98)
pt3dadd(-49.904, 218.749, -15.083, 0.98)
pt3dadd(-50.017, 218.755, -15.117, 0.98)
pt3dadd(-50.12, 218.773, -15.157, 0.982)
pt3dadd(-50.184, 218.838, -15.223, 0.99)
pt3dadd(-50.249, 218.903, -15.288, 0.998)
pt3dadd(-50.311, 218.97, -15.351, 1.008)
pt3dadd(-50.374, 219.047, -15.408, 1.024)
pt3dadd(-50.438, 219.119, -15.466, 1.03)
pt3dadd(-50.497, 219.217, -15.497, 1.018)
pt3dadd(-50.556, 219.316, -15.528, 1.006)
pt3dadd(-50.614, 219.414, -15.558, 0.996)
pt3dadd(-50.672, 219.512, -15.589, 0.984)
pt3dadd(-50.758, 219.578, -15.623, 0.962)
pt3dadd(-50.857, 219.629, -15.659, 0.934)
pt3dadd(-50.932, 219.709, -15.696, 0.93)
pt3dadd(-50.999, 219.798, -15.733, 0.93)
pt3dadd(-51.06, 219.82, -15.816, 0.942)
pt3dadd(-51.12, 219.84, -15.901, 0.954)
pt3dadd(-51.169, 219.846, -15.992, 0.954)
pt3dadd(-51.217, 219.852, -16.083, 0.954)
pt3dadd(-51.284, 219.925, -16.127, 0.934)
pt3dadd(-51.355, 220.014, -16.16, 0.908)
pt3dadd(-51.426, 220.102, -16.193, 0.884)
pt3dadd(-51.474, 220.204, -16.228, 0.848)
pt3dadd(-51.515, 220.308, -16.263, 0.808)
pt3dadd(-51.601, 220.379, -16.29, 0.782)
pt3dadd(-51.701, 220.446, -16.292, 0.792)
pt3dadd(-51.8, 220.513, -16.294, 0.802)
pt3dadd(-51.9, 220.58, -16.296, 0.812)
pt3dadd(-52, 220.648, -16.299, 0.822)
pt3dadd(-52.096, 220.711, -16.315, 0.83)
pt3dadd(-52.186, 220.765, -16.364, 0.836)
pt3dadd(-52.276, 220.82, -16.412, 0.842)
pt3dadd(-52.366, 220.874, -16.46, 0.848)
pt3dadd(-52.456, 220.932, -16.504, 0.854)
pt3dadd(-52.547, 221.005, -16.527, 0.854)
pt3dadd(-52.638, 221.078, -16.549, 0.854)
pt3dadd(-52.729, 221.152, -16.572, 0.854)
pt3dadd(-52.82, 221.225, -16.595, 0.854)
pt3dadd(-52.871, 221.327, -16.617, 0.834)
pt3dadd(-52.909, 221.437, -16.639, 0.81)
pt3dadd(-52.972, 221.488, -16.701, 0.794)
pt3dadd(-53.042, 221.516, -16.778, 0.78)
pt3dadd(-53.152, 221.55, -16.793, 0.76)
pt3dadd(-53.266, 221.585, -16.798, 0.738)
pt3dadd(-53.383, 221.608, -16.8, 0.728)
pt3dadd(-53.502, 221.623, -16.8, 0.728)
pt3dadd(-53.621, 221.638, -16.8, 0.728)
pt3dadd(-53.704, 221.718, -16.808, 0.728)
pt3dadd(-53.78, 221.81, -16.818, 0.728)
pt3dadd(-53.856, 221.902, -16.828, 0.728)
pt3dadd(-53.944, 221.962, -16.86, 0.728)
pt3dadd(-54.042, 221.989, -16.913, 0.728)
pt3dadd(-54.137, 222, -16.971, 0.722)
pt3dadd(-54.23, 222, -17.034, 0.714)
pt3dadd(-54.324, 222, -17.096, 0.706)
pt3dadd(-54.388, 222.014, -17.178, 0.704)
pt3dadd(-54.44, 222.035, -17.266, 0.704)
pt3dadd(-54.511, 222.102, -17.313, 0.726)
pt3dadd(-54.588, 222.185, -17.345, 0.758)
pt3dadd(-54.655, 222.277, -17.372, 0.786)
pt3dadd(-54.7, 222.386, -17.388, 0.81)
pt3dadd(-54.742, 222.498, -17.4, 0.846)
pt3dadd(-54.797, 222.59, -17.422, 0.884)
pt3dadd(-54.878, 222.655, -17.471, 0.896)
pt3dadd(-54.96, 222.721, -17.52, 0.91)
pt3dadd(-55.042, 222.786, -17.569, 0.922)
pt3dadd(-55.136, 222.836, -17.608, 0.938)
pt3dadd(-55.25, 222.863, -17.63, 0.964)
pt3dadd(-55.364, 222.889, -17.652, 0.988)
pt3dadd(-55.478, 222.916, -17.674, 1.014)
pt3dadd(-55.592, 222.942, -17.697, 1.038)
pt3dadd(-55.704, 222.977, -17.718, 1.062)
pt3dadd(-55.811, 223.025, -17.736, 1.084)
}
}
proc shape3d_49() {
dend_5[15] { pt3dadd(-55.919, 223.073, -17.755, 1.104)
pt3dadd(-56.027, 223.121, -17.774, 1.126)
pt3dadd(-56.134, 223.169, -17.793, 1.148)
pt3dadd(-56.239, 223.206, -17.828, 1.158)
pt3dadd(-56.342, 223.235, -17.872, 1.164)
pt3dadd(-56.446, 223.265, -17.917, 1.17)
pt3dadd(-56.549, 223.294, -17.961, 1.176)
pt3dadd(-56.654, 223.322, -18, 1.18)
pt3dadd(-56.773, 223.342, -18, 1.176)
pt3dadd(-56.891, 223.362, -18, 1.172)
pt3dadd(-57.01, 223.381, -18, 1.168)
pt3dadd(-57.128, 223.402, -18, 1.164)
pt3dadd(-57.246, 223.421, -18, 1.16)
pt3dadd(-57.365, 223.44, -18, 1.156)
pt3dadd(-57.484, 223.44, -18.015, 1.164)
pt3dadd(-57.595, 223.44, -18.048, 1.238)
pt3dadd(-57.703, 223.44, -18.093, 1.3)
pt3dadd(-57.809, 223.44, -18.139, 1.3)
pt3dadd(-57.895, 223.44, -18.208, 1.242)
pt3dadd(-57.942, 223.44, -18.298, 1.188)
pt3dadd(-57.96, 223.457, -18.395, 1.156)
pt3dadd(-57.96, 223.528, -18.47, 1.178)
pt3dadd(-57.96, 223.642, -18.496, 1.254)
pt3dadd(-57.96, 223.762, -18.508, 1.318)
pt3dadd(-57.96, 223.877, -18.533, 1.33)
pt3dadd(-57.96, 223.946, -18.614, 1.298)
pt3dadd(-57.96, 224.015, -18.696, 1.262)
pt3dadd(-57.982, 224.065, -18.784, 1.194)
pt3dadd(-58.008, 224.112, -18.873, 1.118)
pt3dadd(-58.088, 224.184, -18.893, 1.034)
pt3dadd(-58.18, 224.262, -18.899, 0.948)
pt3dadd(-58.255, 224.354, -18.904, 0.872)
pt3dadd(-58.325, 224.452, -18.91, 0.8)
pt3dadd(-58.415, 224.51, -18.943, 0.736)
pt3dadd(-58.488, 224.586, -18.974, 0.698)
pt3dadd(-58.534, 224.695, -18.99, 0.686)
pt3dadd(-58.566, 224.808, -19.002, 0.674)
pt3dadd(-58.582, 224.927, -19.006, 0.664)
pt3dadd(-58.597, 225.046, -19.01, 0.654)
pt3dadd(-58.685, 225.096, -19.044, 0.632)
pt3dadd(-58.789, 225.13, -19.085, 0.606)
pt3dadd(-58.891, 225.19, -19.094, 0.582)
pt3dadd(-58.993, 225.253, -19.099, 0.558)
pt3dadd(-59.084, 225.32, -19.129, 0.552)
pt3dadd(-59.172, 225.389, -19.167, 0.556)
pt3dadd(-59.258, 225.46, -19.204, 0.562)
pt3dadd(-59.345, 225.529, -19.241, 0.568)
pt3dadd(-59.431, 225.6, -19.279, 0.574)
pt3dadd(-59.521, 225.671, -19.3, 0.58)
pt3dadd(-59.617, 225.743, -19.3, 0.584)
pt3dadd(-59.713, 225.815, -19.3, 0.59)
pt3dadd(-59.809, 225.887, -19.3, 0.594)
pt3dadd(-59.905, 225.959, -19.3, 0.6)
pt3dadd(-60.008, 226.019, -19.301, 0.602)
pt3dadd(-60.119, 226.064, -19.303, 0.602)
pt3dadd(-60.23, 226.11, -19.305, 0.602)
pt3dadd(-60.341, 226.156, -19.307, 0.602)
pt3dadd(-60.452, 226.201, -19.309, 0.602)
pt3dadd(-60.559, 226.252, -19.314, 0.604)
pt3dadd(-60.641, 226.337, -19.334, 0.61)
pt3dadd(-60.722, 226.421, -19.354, 0.614)
pt3dadd(-60.804, 226.506, -19.375, 0.62)
pt3dadd(-60.886, 226.59, -19.395, 0.626)
pt3dadd(-60.978, 226.662, -19.417, 0.628)
pt3dadd(-61.074, 226.728, -19.439, 0.628)
pt3dadd(-61.17, 226.794, -19.462, 0.628)
pt3dadd(-61.266, 226.861, -19.484, 0.628)
pt3dadd(-61.355, 226.909, -19.525, 0.624)
pt3dadd(-61.426, 226.915, -19.605, 0.612)
pt3dadd(-61.506, 226.931, -19.67, 0.596)
pt3dadd(-61.615, 226.976, -19.687, 0.572)
pt3dadd(-61.72, 227.028, -19.7, 0.55)
pt3dadd(-61.802, 227.116, -19.7, 0.538)
pt3dadd(-61.883, 227.204, -19.7, 0.528)
pt3dadd(-61.944, 227.308, -19.7, 0.54)
pt3dadd(-62.005, 227.411, -19.7, 0.55)
pt3dadd(-62.086, 227.498, -19.7, 0.568)
pt3dadd(-62.17, 227.58, -19.715, 0.582)
pt3dadd(-62.252, 227.657, -19.75, 0.594)
pt3dadd(-62.335, 227.732, -19.784, 0.606)
pt3dadd(-62.418, 227.809, -19.818, 0.618)
pt3dadd(-62.492, 227.88, -19.864, 0.632)
pt3dadd(-62.544, 227.932, -19.944, 0.646)
pt3dadd(-62.612, 227.994, -19.991, 0.658)
pt3dadd(-62.704, 228.072, -19.997, 0.67)
pt3dadd(-62.801, 228.14, -20, 0.678)
pt3dadd(-62.908, 228.194, -20, 0.678)
pt3dadd(-63.017, 228.242, -20, 0.678)
pt3dadd(-63.137, 228.257, -20, 0.678)
pt3dadd(-63.256, 228.271, -20, 0.678)
pt3dadd(-63.354, 228.322, -20, 0.682)
pt3dadd(-63.43, 228.416, -20, 0.688)
pt3dadd(-63.504, 228.51, -20, 0.696)
pt3dadd(-63.58, 228.604, -20, 0.702)
pt3dadd(-63.596, 228.719, -20.012, 0.712)
pt3dadd(-63.607, 228.838, -20.025, 0.722)
pt3dadd(-63.65, 228.925, -20.056, 0.736)
pt3dadd(-63.74, 228.96, -20.113, 0.746)
pt3dadd(-63.824, 228.96, -20.184, 0.71)
pt3dadd(-63.883, 228.96, -20.271, 0.65)
pt3dadd(-63.961, 228.967, -20.346, 0.562)
pt3dadd(-64.045, 229.022, -20.393, 0.474)
pt3dadd(-64.087, 229.123, -20.435, 0.448)
pt3dadd(-64.141, 229.218, -20.471, 0.424)
pt3dadd(-64.231, 229.294, -20.488, 0.41)
pt3dadd(-64.316, 229.375, -20.5, 0.39)
pt3dadd(-64.399, 229.463, -20.5, 0.384)
pt3dadd(-64.487, 229.543, -20.5, 0.396)
pt3dadd(-64.57, 229.63, -20.508, 0.408)
pt3dadd(-64.646, 229.72, -20.526, 0.422)
pt3dadd(-64.709, 229.771, -20.582, 0.434)
pt3dadd(-64.763, 229.79, -20.67, 0.446)
pt3dadd(-64.816, 229.811, -20.758, 0.458)
pt3dadd(-64.868, 229.83, -20.847, 0.472)
pt3dadd(-64.945, 229.876, -20.89, 0.48)
pt3dadd(-65.044, 229.944, -20.894, 0.488)
pt3dadd(-65.142, 230.011, -20.897, 0.496)
pt3dadd(-65.24, 230.08, -20.9, 0.502)
pt3dadd(-65.32, 230.166, -20.924, 0.542)
pt3dadd(-65.393, 230.246, -20.957, 0.594)
pt3dadd(-65.455, 230.299, -21.023, 0.666)
pt3dadd(-65.54, 230.364, -21.069, 0.69)
pt3dadd(-65.624, 230.429, -21.115, 0.714)
pt3dadd(-65.71, 230.494, -21.161, 0.738)
pt3dadd(-65.791, 230.568, -21.193, 0.756)
pt3dadd(-65.872, 230.657, -21.202, 0.76)
pt3dadd(-65.952, 230.746, -21.212, 0.766)
pt3dadd(-66.032, 230.834, -21.221, 0.772)
pt3dadd(-66.112, 230.923, -21.231, 0.776)
pt3dadd(-66.189, 231.013, -21.244, 0.774)
pt3dadd(-66.265, 231.104, -21.259, 0.768)
pt3dadd(-66.342, 231.196, -21.273, 0.764)
pt3dadd(-66.418, 231.287, -21.288, 0.758)
pt3dadd(-66.489, 231.38, -21.303, 0.746)
pt3dadd(-66.534, 231.49, -21.319, 0.71)
pt3dadd(-66.587, 231.588, -21.337, 0.674)
pt3dadd(-66.701, 231.6, -21.367, 0.64)
pt3dadd(-66.815, 231.612, -21.397, 0.606)
pt3dadd(-66.895, 231.661, -21.457, 0.552)
pt3dadd(-66.963, 231.714, -21.523, 0.496)
pt3dadd(-66.982, 231.767, -21.612, 0.46)
pt3dadd(-67.004, 231.828, -21.686, 0.426)
pt3dadd(-67.041, 231.938, -21.662, 0.41)
pt3dadd(-67.078, 232.049, -21.638, 0.394)
pt3dadd(-67.115, 232.159, -21.614, 0.378)
pt3dadd(-67.191, 232.25, -21.611, 0.388)
pt3dadd(-67.272, 232.338, -21.611, 0.4)
pt3dadd(-67.347, 232.424, -21.638, 0.456)
pt3dadd(-67.435, 232.504, -21.652, 0.474)
pt3dadd(-67.523, 232.583, -21.667, 0.49)
pt3dadd(-67.611, 232.662, -21.682, 0.506)
pt3dadd(-67.699, 232.742, -21.697, 0.524)
pt3dadd(-67.787, 232.823, -21.7, 0.546)
pt3dadd(-67.876, 232.904, -21.7, 0.57)
pt3dadd(-67.946, 233, -21.7, 0.578)
pt3dadd(-68.007, 233.104, -21.7, 0.578)
pt3dadd(-68.09, 233.182, -21.7, 0.578)
pt3dadd(-68.201, 233.227, -21.7, 0.578)
pt3dadd(-68.312, 233.268, -21.706, 0.582)
pt3dadd(-68.424, 233.274, -21.74, 0.604)
pt3dadd(-68.537, 233.28, -21.775, 0.626)
pt3dadd(-68.634, 233.324, -21.818, 0.674)
pt3dadd(-68.731, 233.372, -21.861, 0.722)
pt3dadd(-68.828, 233.42, -21.905, 0.772)
pt3dadd(-68.877, 233.514, -21.947, 0.826)
pt3dadd(-68.92, 233.614, -21.989, 0.88)
pt3dadd(-69.001, 233.692, -22.019, 0.922)
pt3dadd(-69.101, 233.754, -22.039, 0.906)
pt3dadd(-69.201, 233.815, -22.058, 0.89)
pt3dadd(-69.301, 233.878, -22.078, 0.872)
pt3dadd(-69.401, 233.94, -22.098, 0.856)
pt3dadd(-69.517, 233.965, -22.104, 0.836)
pt3dadd(-69.635, 233.987, -22.108, 0.816)
pt3dadd(-69.75, 234, -22.126, 0.786)
pt3dadd(-69.86, 234, -22.165, 0.742)
pt3dadd(-69.97, 234, -22.206, 0.7)
pt3dadd(-70.069, 234, -22.262, 0.664)
pt3dadd(-70.168, 234, -22.319, 0.63)
pt3dadd(-70.244, 234.042, -22.387, 0.588)
pt3dadd(-70.314, 234.088, -22.458, 0.552)
pt3dadd(-70.362, 234.136, -22.54, 0.552)
pt3dadd(-70.409, 234.182, -22.623, 0.552)
pt3dadd(-70.461, 234.232, -22.7, 0.554)
pt3dadd(-70.56, 234.3, -22.7, 0.59)
pt3dadd(-70.659, 234.367, -22.7, 0.624)
pt3dadd(-70.67, 234.482, -22.712, 0.648)
pt3dadd(-70.674, 234.601, -22.724, 0.67)
pt3dadd(-70.678, 234.72, -22.737, 0.69)
pt3dadd(-70.699, 234.809, -22.781, 0.72)
pt3dadd(-70.742, 234.858, -22.865, 0.762)
pt3dadd(-70.8, 234.92, -22.933, 0.754)
pt3dadd(-70.877, 234.997, -22.974, 0.748)
pt3dadd(-70.955, 235.075, -23.014, 0.742)
pt3dadd(-71.033, 235.152, -23.055, 0.734)
pt3dadd(-71.111, 235.23, -23.095, 0.728)
pt3dadd(-71.192, 235.316, -23.1, 0.686)
pt3dadd(-71.273, 235.405, -23.1, 0.64)
pt3dadd(-71.371, 235.472, -23.1, 0.61)
pt3dadd(-71.474, 235.534, -23.1, 0.588)
pt3dadd(-71.554, 235.603, -23.132, 0.546)
}
}
proc shape3d_50() {
dend_5[15] { pt3dadd(-71.616, 235.68, -23.19, 0.488)
pt3dadd(-71.67, 235.742, -23.261, 0.454)
pt3dadd(-71.724, 235.802, -23.334, 0.426)
pt3dadd(-71.817, 235.878, -23.345, 0.408)
pt3dadd(-71.91, 235.952, -23.357, 0.392)
pt3dadd(-71.996, 236.03, -23.361, 0.382)
pt3dadd(-72.046, 236.131, -23.325, 0.408)
pt3dadd(-72.097, 236.233, -23.3, 0.458)
pt3dadd(-72.174, 236.321, -23.3, 0.51)
pt3dadd(-72.27, 236.393, -23.3, 0.526)
pt3dadd(-72.366, 236.465, -23.3, 0.542)
pt3dadd(-72.462, 236.537, -23.3, 0.556)
pt3dadd(-72.558, 236.609, -23.3, 0.572)
pt3dadd(-72.656, 236.678, -23.3, 0.584)
pt3dadd(-72.755, 236.747, -23.3, 0.596)
pt3dadd(-72.858, 236.806, -23.309, 0.598)
pt3dadd(-72.965, 236.852, -23.331, 0.586)
pt3dadd(-73.044, 236.882, -23.383, 0.572)
pt3dadd(-73.085, 236.888, -23.477, 0.562)
pt3dadd(-73.128, 236.909, -23.563, 0.548)
pt3dadd(-73.179, 237.005, -23.605, 0.52)
pt3dadd(-73.248, 237.089, -23.64, 0.5)
pt3dadd(-73.347, 237.151, -23.661, 0.492)
pt3dadd(-73.447, 237.212, -23.682, 0.484)
pt3dadd(-73.545, 237.277, -23.701, 0.478)
pt3dadd(-73.629, 237.362, -23.706, 0.478)
pt3dadd(-73.715, 237.444, -23.714, 0.48)
pt3dadd(-73.814, 237.496, -23.748, 0.504)
pt3dadd(-73.905, 237.563, -23.783, 0.51)
pt3dadd(-73.997, 237.629, -23.817, 0.516)
pt3dadd(-74.088, 237.695, -23.851, 0.522)
pt3dadd(-74.175, 237.757, -23.893, 0.528)
pt3dadd(-74.246, 237.805, -23.963, 0.528)
pt3dadd(-74.317, 237.853, -24.032, 0.528)
pt3dadd(-74.388, 237.902, -24.102, 0.528)
pt3dadd(-74.458, 237.952, -24.172, 0.528)
pt3dadd(-74.524, 238.01, -24.24, 0.528)
pt3dadd(-74.589, 238.069, -24.308, 0.528)
pt3dadd(-74.655, 238.128, -24.376, 0.528)
pt3dadd(-74.72, 238.187, -24.444, 0.528)
pt3dadd(-74.8, 238.271, -24.47, 0.534)
pt3dadd(-74.88, 238.355, -24.495, 0.542)
pt3dadd(-74.96, 238.438, -24.521, 0.548)
pt3dadd(-75.049, 238.514, -24.542, 0.556)
pt3dadd(-75.146, 238.583, -24.558, 0.562)
pt3dadd(-75.243, 238.65, -24.574, 0.568)
pt3dadd(-75.34, 238.718, -24.59, 0.574)
pt3dadd(-75.434, 238.79, -24.602, 0.586)
pt3dadd(-75.526, 238.867, -24.608, 0.612)
pt3dadd(-75.599, 238.942, -24.637, 0.632)
pt3dadd(-75.634, 239.006, -24.715, 0.646)
pt3dadd(-75.71, 239.04, -24.766, 0.658)
pt3dadd(-75.827, 239.04, -24.788, 0.668)
pt3dadd(-75.944, 239.04, -24.811, 0.678)
pt3dadd(-76.032, 239.04, -24.878, 0.678)
pt3dadd(-76.12, 239.04, -24.946, 0.678)
pt3dadd(-76.213, 239.102, -24.967, 0.684)
pt3dadd(-76.307, 239.176, -24.981, 0.692)
pt3dadd(-76.4, 239.249, -24.994, 0.7)
pt3dadd(-76.488, 239.323, -25.022, 0.712)
pt3dadd(-76.57, 239.398, -25.059, 0.726)
pt3dadd(-76.677, 239.442, -25.076, 0.734)
pt3dadd(-76.791, 239.479, -25.087, 0.744)
pt3dadd(-76.904, 239.515, -25.098, 0.752)
pt3dadd(-77.023, 239.524, -25.1, 0.746)
pt3dadd(-77.143, 239.528, -25.1, 0.738)
pt3dadd(-77.263, 239.533, -25.1, 0.728)
pt3dadd(-77.372, 239.581, -25.104, 0.72)
pt3dadd(-77.481, 239.632, -25.107, 0.712)
pt3dadd(-77.589, 239.681, -25.114, 0.702)
pt3dadd(-77.647, 239.725, -25.193, 0.674)
pt3dadd(-77.714, 239.765, -25.266, 0.646)
pt3dadd(-77.813, 239.801, -25.312, 0.624)
pt3dadd(-77.91, 239.851, -25.354, 0.618)
pt3dadd(-78.007, 239.902, -25.395, 0.612)
pt3dadd(-78.104, 239.951, -25.437, 0.608)
pt3dadd(-78.2, 240, -25.481, 0.608)
pt3dadd(-78.294, 240.047, -25.529, 0.622)
pt3dadd(-78.387, 240.094, -25.578, 0.636)
pt3dadd(-78.481, 240.14, -25.627, 0.652)
pt3dadd(-78.576, 240.167, -25.683, 0.674)
pt3dadd(-78.672, 240.19, -25.741, 0.7)
pt3dadd(-78.767, 240.212, -25.799, 0.724)
pt3dadd(-78.862, 240.235, -25.856, 0.748)
pt3dadd(-78.966, 240.276, -25.891, 0.776)
pt3dadd(-79.072, 240.32, -25.92, 0.804)
pt3dadd(-79.178, 240.365, -25.95, 0.832)
pt3dadd(-79.284, 240.409, -25.979, 0.86)
pt3dadd(-79.393, 240.449, -26, 0.882)
pt3dadd(-79.509, 240.479, -26, 0.896)
pt3dadd(-79.625, 240.509, -26, 0.908)
pt3dadd(-79.741, 240.539, -26, 0.922)
pt3dadd(-79.857, 240.569, -26, 0.934)
pt3dadd(-79.974, 240.599, -26, 0.948)
pt3dadd(-80.08, 240.65, -26, 0.956)
pt3dadd(-80.178, 240.72, -26, 0.962)
pt3dadd(-80.276, 240.788, -26, 0.966)
pt3dadd(-80.374, 240.858, -26, 0.972)
pt3dadd(-80.472, 240.926, -26, 0.976)
pt3dadd(-80.568, 241, -26.004, 0.982)
pt3dadd(-80.661, 241.075, -26.011, 0.988)
pt3dadd(-80.753, 241.151, -26.018, 0.992)
pt3dadd(-80.846, 241.226, -26.025, 0.998)
pt3dadd(-80.939, 241.302, -26.032, 1.002)
pt3dadd(-80.993, 241.397, -26.065, 1.024)
pt3dadd(-81.035, 241.498, -26.107, 1.052)
pt3dadd(-81.126, 241.553, -26.15, 1.08)
pt3dadd(-81.222, 241.603, -26.193, 1.106)
pt3dadd(-81.317, 241.648, -26.242, 1.12)
pt3dadd(-81.404, 241.68, -26.3, 1.126)
pt3dadd(-81.472, 241.68, -26.382, 1.116)
pt3dadd(-81.545, 241.681, -26.459, 1.1)
pt3dadd(-81.66, 241.69, -26.488, 1.05)
pt3dadd(-81.773, 241.717, -26.503, 0.996)
pt3dadd(-81.885, 241.759, -26.508, 0.942)
pt3dadd(-81.996, 241.795, -26.524, 0.888)
pt3dadd(-82.103, 241.823, -26.563, 0.836)
pt3dadd(-82.209, 241.861, -26.591, 0.796)
pt3dadd(-82.31, 241.925, -26.596, 0.772)
pt3dadd(-82.393, 241.999, -26.608, 0.754)
pt3dadd(-82.419, 242.11, -26.64, 0.754)
pt3dadd(-82.453, 242.215, -26.675, 0.752)
pt3dadd(-82.521, 242.297, -26.721, 0.744)
pt3dadd(-82.59, 242.38, -26.767, 0.734)
pt3dadd(-82.665, 242.452, -26.813, 0.718)
pt3dadd(-82.76, 242.495, -26.862, 0.676)
pt3dadd(-82.865, 242.527, -26.895, 0.61)
pt3dadd(-82.98, 242.558, -26.9, 0.568)
pt3dadd(-83.094, 242.597, -26.9, 0.556)
pt3dadd(-83.208, 242.636, -26.9, 0.542)
pt3dadd(-83.321, 242.675, -26.9, 0.528)
pt3dadd(-83.435, 242.713, -26.9, 0.514)
pt3dadd(-83.549, 242.748, -26.9, 0.504)
pt3dadd(-83.669, 242.758, -26.9, 0.522)
pt3dadd(-83.788, 242.767, -26.9, 0.54)
pt3dadd(-83.906, 242.786, -26.9, 0.564)
pt3dadd(-84.019, 242.827, -26.9, 0.596)
pt3dadd(-84.132, 242.867, -26.9, 0.628)
pt3dadd(-84.252, 242.876, -26.9, 0.682)
pt3dadd(-84.371, 242.886, -26.9, 0.736)
pt3dadd(-84.48, 242.914, -26.9, 0.786)
pt3dadd(-84.548, 243.012, -26.9, 0.82)
pt3dadd(-84.615, 243.112, -26.9, 0.856)
pt3dadd(-84.659, 243.223, -26.9, 0.888)
pt3dadd(-84.721, 243.324, -26.9, 0.904)
pt3dadd(-84.801, 243.413, -26.9, 0.904)
pt3dadd(-84.882, 243.502, -26.9, 0.904)
pt3dadd(-84.963, 243.59, -26.9, 0.904)
pt3dadd(-85.043, 243.679, -26.9, 0.904)
pt3dadd(-85.115, 243.768, -26.923, 0.908)
pt3dadd(-85.179, 243.854, -26.966, 0.914)
pt3dadd(-85.244, 243.942, -27.009, 0.92)
pt3dadd(-85.308, 244.028, -27.052, 0.926)
pt3dadd(-85.38, 244.098, -27.103, 0.94)
pt3dadd(-85.462, 244.144, -27.166, 0.968)
pt3dadd(-85.551, 244.178, -27.226, 1.004)
pt3dadd(-85.644, 244.206, -27.285, 1.044)
pt3dadd(-85.694, 244.284, -27.341, 1.054)
pt3dadd(-85.729, 244.378, -27.395, 1.054)
pt3dadd(-85.84, 244.405, -27.4, 1.038)
pt3dadd(-85.958, 244.426, -27.4, 1.018)
pt3dadd(-86.071, 244.46, -27.4, 0.996)
pt3dadd(-86.171, 244.526, -27.4, 0.968)
pt3dadd(-86.27, 244.594, -27.4, 0.94)
pt3dadd(-86.37, 244.66, -27.4, 0.912)
pt3dadd(-86.4, 244.764, -27.4, 0.898)
pt3dadd(-86.4, 244.884, -27.4, 0.89)
pt3dadd(-86.4, 245.004, -27.4, 0.882)
pt3dadd(-86.447, 245.11, -27.403, 0.872)
pt3dadd(-86.514, 245.209, -27.407, 0.864)
pt3dadd(-86.58, 245.309, -27.411, 0.854)
pt3dadd(-86.617, 245.356, -27.492, 0.832)
pt3dadd(-86.65, 245.396, -27.582, 0.806)
pt3dadd(-86.754, 245.413, -27.625, 0.754)
pt3dadd(-86.863, 245.426, -27.665, 0.7)
pt3dadd(-86.972, 245.446, -27.7, 0.646)
pt3dadd(-87.079, 245.498, -27.7, 0.578)
pt3dadd(-87.187, 245.552, -27.7, 0.51)
pt3dadd(-87.293, 245.608, -27.701, 0.402)
pt3dadd(-87.4, 245.662, -27.71, 0.402)
pt3dadd(-87.506, 245.717, -27.719, 0.402)
pt3dadd(-87.612, 245.771, -27.728, 0.402)
pt3dadd(-87.719, 245.825, -27.737, 0.402)
pt3dadd(-87.827, 245.868, -27.751, 0.406)
pt3dadd(-87.942, 245.869, -27.779, 0.424)
pt3dadd(-88.058, 245.872, -27.807, 0.442)
pt3dadd(-88.173, 245.874, -27.835, 0.46)
pt3dadd(-88.288, 245.876, -27.863, 0.478)
pt3dadd(-88.403, 245.879, -27.891, 0.496)
pt3dadd(-88.52, 245.885, -27.912, 0.52)
pt3dadd(-88.638, 245.892, -27.929, 0.546)
pt3dadd(-88.756, 245.898, -27.946, 0.572)
pt3dadd(-88.874, 245.905, -27.964, 0.598)
pt3dadd(-88.992, 245.912, -27.981, 0.624)
pt3dadd(-89.11, 245.918, -27.998, 0.65)
pt3dadd(-89.214, 245.935, -28.045, 0.682)
pt3dadd(-89.317, 245.952, -28.095, 0.714)
pt3dadd(-89.419, 245.97, -28.145, 0.746)
pt3dadd(-89.522, 245.987, -28.195, 0.78)
pt3dadd(-89.625, 246, -28.244, 0.806)
}
}
proc shape3d_51() {
dend_5[15] { pt3dadd(-89.733, 246, -28.289, 0.816)
pt3dadd(-89.84, 246, -28.333, 0.826)
pt3dadd(-89.947, 246, -28.378, 0.834)
pt3dadd(-90.055, 246, -28.423, 0.844)
pt3dadd(-90.162, 246, -28.468, 0.854)
pt3dadd(-90.252, 246.022, -28.532, 0.84)
pt3dadd(-90.341, 246.044, -28.595, 0.824)
pt3dadd(-90.417, 246.098, -28.658, 0.782)
pt3dadd(-90.469, 246.168, -28.718, 0.732)
pt3dadd(-90.475, 246.27, -28.771, 0.674)
pt3dadd(-90.485, 246.373, -28.82, 0.614)
pt3dadd(-90.504, 246.482, -28.858, 0.552)
pt3dadd(-90.531, 246.59, -28.889, 0.498)
pt3dadd(-90.6, 246.689, -28.893, 0.468)
pt3dadd(-90.668, 246.788, -28.896, 0.44)
pt3dadd(-90.736, 246.887, -28.899, 0.412)
pt3dadd(-90.834, 246.946, -28.9, 0.408)
pt3dadd(-90.948, 246.985, -28.9, 0.42)
pt3dadd(-91.057, 247.032, -28.9, 0.434)
pt3dadd(-91.158, 247.097, -28.9, 0.46)
pt3dadd(-91.259, 247.162, -28.9, 0.486)
pt3dadd(-91.366, 247.187, -28.9, 0.518)
pt3dadd(-91.482, 247.153, -28.9, 0.56)
pt3dadd(-91.597, 247.121, -28.9, 0.602)
pt3dadd(-91.713, 247.09, -28.901, 0.654)
pt3dadd(-91.831, 247.068, -28.905, 0.664)
pt3dadd(-91.949, 247.048, -28.91, 0.674)
pt3dadd(-92.055, 247.012, -28.939, 0.668)
pt3dadd(-92.155, 246.968, -28.981, 0.656)
pt3dadd(-92.27, 246.96, -29.003, 0.638)
pt3dadd(-92.388, 246.96, -29.02, 0.618)
pt3dadd(-92.495, 246.96, -29.051, 0.592)
pt3dadd(-92.563, 246.96, -29.134, 0.546)
pt3dadd(-92.628, 246.959, -29.217, 0.498)
pt3dadd(-92.646, 246.932, -29.313, 0.432)
pt3dadd(-92.683, 246.892, -29.4, 0.392)
pt3dadd(-92.737, 246.841, -29.479, 0.374)
pt3dadd(-92.791, 246.791, -29.558, 0.356)
pt3dadd(-92.844, 246.74, -29.637, 0.338)
pt3dadd(-92.88, 246.692, -29.721, 0.328)
pt3dadd(-92.88, 246.652, -29.814, 0.332)
pt3dadd(-92.88, 246.61, -29.908, 0.338)
pt3dadd(-92.88, 246.568, -30.002, 0.342)
pt3dadd(-92.88, 246.527, -30.096, 0.346)
pt3dadd(-92.88, 246.485, -30.189, 0.352)
pt3dadd(-92.88, 246.445, -30.284, 0.398)
pt3dadd(-92.88, 246.406, -30.378, 0.452)
pt3dadd(-92.88, 246.354, -30.468, 0.514)
pt3dadd(-92.88, 246.293, -30.554, 0.582)
pt3dadd(-92.882, 246.257, -30.645, 0.642)
pt3dadd(-92.887, 246.268, -30.745, 0.682)
pt3dadd(-92.893, 246.278, -30.844, 0.724)
pt3dadd(-92.966, 246.319, -30.911, 0.728)
pt3dadd(-93.052, 246.36, -30.97, 0.726)
pt3dadd(-93.167, 246.36, -30.997, 0.694)
pt3dadd(-93.279, 246.368, -31.03, 0.67)
pt3dadd(-93.389, 246.384, -31.069, 0.656)
pt3dadd(-93.498, 246.401, -31.107, 0.64)
pt3dadd(-93.608, 246.418, -31.146, 0.624)
pt3dadd(-93.717, 246.434, -31.185, 0.608)
pt3dadd(-93.825, 246.45, -31.225, 0.594)
pt3dadd(-93.933, 246.467, -31.267, 0.578)
pt3dadd(-94.041, 246.484, -31.308, 0.562)
pt3dadd(-94.149, 246.499, -31.35, 0.546)
pt3dadd(-94.257, 246.516, -31.391, 0.53)
pt3dadd(-94.374, 246.529, -31.4, 0.522)
pt3dadd(-94.494, 246.542, -31.4, 0.514)
pt3dadd(-94.613, 246.554, -31.4, 0.506)
pt3dadd(-94.732, 246.568, -31.4, 0.498)
pt3dadd(-94.852, 246.58, -31.4, 0.49)
pt3dadd(-94.971, 246.593, -31.4, 0.482)
pt3dadd(-95.091, 246.6, -31.4, 0.466)
pt3dadd(-95.21, 246.606, -31.4, 0.452)
pt3dadd(-95.327, 246.63, -31.4, 0.468)
pt3dadd(-95.437, 246.679, -31.4, 0.526)
pt3dadd(-95.543, 246.733, -31.404, 0.62)
pt3dadd(-95.626, 246.799, -31.444, 0.678)
pt3dadd(-95.64, 246.83, -31.538, 0.678)
pt3dadd(-95.646, 246.84, -31.638, 0.678)
pt3dadd(-95.669, 246.84, -31.736, 0.692)
pt3dadd(-95.731, 246.84, -31.819, 0.75)
pt3dadd(-95.805, 246.84, -31.897, 0.846)
pt3dadd(-95.858, 246.84, -31.985, 0.912)
pt3dadd(-95.877, 246.84, -32.083, 0.97)
pt3dadd(-95.892, 246.84, -32.183, 1.05)
pt3dadd(-95.935, 246.863, -32.272, 1.104)
pt3dadd(-95.988, 246.936, -32.335, 1.052)
pt3dadd(-96.042, 247.025, -32.383, 0.926)
pt3dadd(-96.147, 247.07, -32.4, 0.814)
pt3dadd(-96.262, 247.103, -32.4, 0.69)
pt3dadd(-96.373, 247.147, -32.4, 0.56)
pt3dadd(-96.48, 247.2, -32.4, 0.452)
pt3dadd(-96.585, 247.259, -32.4, 0.402)
pt3dadd(-96.678, 247.334, -32.4, 0.402)
pt3dadd(-96.773, 247.408, -32.401, 0.406)
pt3dadd(-96.879, 247.464, -32.406, 0.442)
pt3dadd(-96.985, 247.519, -32.411, 0.476)
pt3dadd(-97.036, 247.562, -32.493, 0.544)
pt3dadd(-97.089, 247.606, -32.575, 0.614)
pt3dadd(-97.164, 247.65, -32.644, 0.698)
pt3dadd(-97.254, 247.682, -32.691, 0.782)
pt3dadd(-97.373, 247.69, -32.697, 0.866)
pt3dadd(-97.476, 247.726, -32.725, 0.918)
pt3dadd(-97.566, 247.783, -32.771, 0.942)
pt3dadd(-97.656, 247.841, -32.816, 0.966)
pt3dadd(-97.746, 247.898, -32.862, 0.99)
pt3dadd(-97.836, 247.957, -32.906, 1.016)
pt3dadd(-97.926, 248.017, -32.95, 1.044)
pt3dadd(-97.987, 248.082, -33.013, 1.046)
pt3dadd(-98.032, 248.148, -33.087, 1.032)
pt3dadd(-98.103, 248.21, -33.147, 1.03)
pt3dadd(-98.184, 248.267, -33.2, 1.03)
pt3dadd(-98.304, 248.272, -33.2, 1.04)
pt3dadd(-98.423, 248.276, -33.2, 1.048)
pt3dadd(-98.543, 248.28, -33.2, 1.064)
pt3dadd(-98.663, 248.28, -33.2, 1.114)
pt3dadd(-98.783, 248.28, -33.203, 1.158)
pt3dadd(-98.901, 248.28, -33.22, 1.17)
pt3dadd(-99.02, 248.28, -33.236, 1.182)
pt3dadd(-99.138, 248.28, -33.252, 1.194)
pt3dadd(-99.257, 248.28, -33.269, 1.208)
pt3dadd(-99.375, 248.28, -33.285, 1.22)
pt3dadd(-99.493, 248.281, -33.3, 1.23)
pt3dadd(-99.613, 248.294, -33.3, 1.23)
pt3dadd(-99.732, 248.306, -33.3, 1.23)
pt3dadd(-99.851, 248.32, -33.3, 1.23)
pt3dadd(-99.971, 248.332, -33.3, 1.23)
pt3dadd(-100.09, 248.345, -33.3, 1.23)
pt3dadd(-100.209, 248.357, -33.3, 1.23)
pt3dadd(-100.314, 248.401, -33.323, 1.218)
pt3dadd(-100.415, 248.456, -33.353, 1.2)
pt3dadd(-100.515, 248.51, -33.383, 1.184)
pt3dadd(-100.616, 248.566, -33.414, 1.166)
pt3dadd(-100.719, 248.608, -33.447, 1.142)
pt3dadd(-100.829, 248.627, -33.484, 1.106)
pt3dadd(-100.929, 248.656, -33.529, 1.08)
pt3dadd(-101.005, 248.708, -33.593, 1.08)
pt3dadd(-101.081, 248.774, -33.646, 1.08)
pt3dadd(-101.157, 248.85, -33.69, 1.08)
pt3dadd(-101.266, 248.882, -33.7, 1.072)
pt3dadd(-101.384, 248.903, -33.7, 1.062)
pt3dadd(-101.496, 248.935, -33.7, 1.052)
pt3dadd(-101.581, 249.02, -33.7, 1.034)
pt3dadd(-101.653, 249.114, -33.713, 1.02)
pt3dadd(-101.722, 249.21, -33.73, 1.006)
pt3dadd(-101.829, 249.232, -33.757, 1.004)
pt3dadd(-101.943, 249.238, -33.786, 1.004)
pt3dadd(-102.057, 249.24, -33.817, 0.982)
pt3dadd(-102.171, 249.24, -33.85, 0.94)
pt3dadd(-102.273, 249.242, -33.892, 0.898)
pt3dadd(-102.319, 249.262, -33.983, 0.862)
pt3dadd(-102.36, 249.288, -34.072, 0.826)
pt3dadd(-102.36, 249.382, -34.134, 0.806)
pt3dadd(-102.36, 249.475, -34.197, 0.784)
pt3dadd(-102.36, 249.569, -34.259, 0.764)
pt3dadd(-102.381, 249.671, -34.3, 0.754)
pt3dadd(-102.42, 249.782, -34.322, 0.754)
pt3dadd(-102.467, 249.872, -34.365, 0.748)
pt3dadd(-102.525, 249.941, -34.432, 0.738)
pt3dadd(-102.588, 250.006, -34.495, 0.724)
pt3dadd(-102.688, 250.049, -34.537, 0.698)
pt3dadd(-102.794, 250.08, -34.569, 0.674)
pt3dadd(-102.913, 250.08, -34.578, 0.66)
pt3dadd(-103.033, 250.08, -34.587, 0.646)
pt3dadd(-103.152, 250.08, -34.596, 0.634)
pt3dadd(-103.272, 250.08, -34.602, 0.622)
pt3dadd(-103.392, 250.08, -34.606, 0.614)
pt3dadd(-103.512, 250.08, -34.61, 0.606)
pt3dadd(-103.629, 250.08, -34.631, 0.58)
pt3dadd(-103.707, 250.08, -34.703, 0.556)
pt3dadd(-103.782, 250.08, -34.782, 0.532)
pt3dadd(-103.882, 250.08, -34.834, 0.518)
pt3dadd(-103.989, 250.08, -34.879, 0.508)
pt3dadd(-104.103, 250.087, -34.9, 0.512)
pt3dadd(-104.222, 250.103, -34.9, 0.53)
pt3dadd(-104.341, 250.117, -34.9, 0.55)
pt3dadd(-104.417, 250.202, -34.9, 0.602)
pt3dadd(-104.485, 250.302, -34.9, 0.66)
pt3dadd(-104.509, 250.415, -34.907, 0.694)
pt3dadd(-104.512, 250.534, -34.917, 0.716)
pt3dadd(-104.515, 250.654, -34.927, 0.738)
pt3dadd(-104.518, 250.772, -34.937, 0.76)
pt3dadd(-104.521, 250.88, -34.962, 0.78)
pt3dadd(-104.528, 250.944, -35.047, 0.792)
pt3dadd(-104.543, 251.005, -35.128, 0.8)
pt3dadd(-104.632, 251.05, -35.184, 0.758)
pt3dadd(-104.742, 251.09, -35.2, 0.658)
pt3dadd(-104.852, 251.135, -35.2, 0.56)
pt3dadd(-104.968, 251.167, -35.2, 0.488)
pt3dadd(-105.083, 251.201, -35.2, 0.478)
pt3dadd(-105.188, 251.25, -35.213, 0.532)
pt3dadd(-105.29, 251.282, -35.258, 0.548)
pt3dadd(-105.392, 251.316, -35.303, 0.566)
pt3dadd(-105.494, 251.348, -35.348, 0.582)
pt3dadd(-105.596, 251.381, -35.392, 0.6)
pt3dadd(-105.704, 251.411, -35.43, 0.616)
pt3dadd(-105.812, 251.44, -35.465, 0.632)
pt3dadd(-105.921, 251.467, -35.501, 0.648)
pt3dadd(-106.029, 251.496, -35.537, 0.664)
pt3dadd(-106.134, 251.532, -35.572, 0.68)
}
}
proc shape3d_52() {
dend_5[15] { pt3dadd(-106.219, 251.608, -35.603, 0.692)
pt3dadd(-106.304, 251.683, -35.635, 0.704)
pt3dadd(-106.389, 251.76, -35.666, 0.716)
pt3dadd(-106.474, 251.836, -35.698, 0.728)
pt3dadd(-106.561, 251.916, -35.707, 0.734)
pt3dadd(-106.649, 251.998, -35.714, 0.738)
pt3dadd(-106.736, 252.08, -35.721, 0.744)
pt3dadd(-106.824, 252.162, -35.728, 0.748)
pt3dadd(-106.913, 252.236, -35.741, 0.752)
pt3dadd(-107.012, 252.287, -35.78, 0.746)
pt3dadd(-107.111, 252.336, -35.819, 0.74)
pt3dadd(-107.21, 252.385, -35.857, 0.734)
pt3dadd(-107.309, 252.436, -35.896, 0.728)
pt3dadd(-107.399, 252.512, -35.9, 0.728)
pt3dadd(-107.488, 252.593, -35.9, 0.728)
pt3dadd(-107.577, 252.673, -35.9, 0.728)
pt3dadd(-107.666, 252.755, -35.9, 0.728)
pt3dadd(-107.754, 252.835, -35.9, 0.728)
pt3dadd(-107.817, 252.937, -35.9, 0.728)
pt3dadd(-107.878, 253.04, -35.9, 0.728)
pt3dadd(-107.927, 253.148, -35.912, 0.746)
pt3dadd(-107.972, 253.258, -35.928, 0.77)
pt3dadd(-107.991, 253.351, -35.981, 0.796)
pt3dadd(-107.998, 253.435, -36.052, 0.82)
pt3dadd(-108.004, 253.493, -36.137, 0.856)
pt3dadd(-108.01, 253.534, -36.231, 0.902)
pt3dadd(-108.05, 253.58, -36.304, 0.942)
pt3dadd(-108.146, 253.632, -36.344, 0.974)
pt3dadd(-108.243, 253.685, -36.384, 1.008)
pt3dadd(-108.339, 253.734, -36.427, 1.044)
pt3dadd(-108.434, 253.778, -36.476, 1.084)
pt3dadd(-108.506, 253.848, -36.524, 1.104)
pt3dadd(-108.555, 253.943, -36.57, 1.104)
pt3dadd(-108.606, 254.035, -36.618, 1.102)
pt3dadd(-108.659, 254.111, -36.681, 1.074)
pt3dadd(-108.72, 254.16, -36.75, 1.03)
pt3dadd(-108.786, 254.204, -36.819, 0.996)
pt3dadd(-108.847, 254.273, -36.883, 0.98)
pt3dadd(-108.891, 254.382, -36.893, 0.97)
pt3dadd(-108.932, 254.494, -36.898, 0.958)
pt3dadd(-108.991, 254.598, -36.9, 0.94)
pt3dadd(-109.059, 254.696, -36.9, 0.916)
pt3dadd(-109.152, 254.752, -36.9, 0.89)
pt3dadd(-109.272, 254.761, -36.9, 0.864)
pt3dadd(-109.391, 254.771, -36.9, 0.836)
pt3dadd(-109.477, 254.842, -36.9, 0.814)
pt3dadd(-109.547, 254.939, -36.9, 0.792)
pt3dadd(-109.618, 255.035, -36.9, 0.772)
pt3dadd(-109.682, 255.134, -36.9, 0.748)
pt3dadd(-109.697, 255.254, -36.9, 0.712)
pt3dadd(-109.711, 255.373, -36.9, 0.674)
pt3dadd(-109.762, 255.47, -36.9, 0.642)
pt3dadd(-109.86, 255.54, -36.9, 0.616)
pt3dadd(-109.958, 255.61, -36.9, 0.588)
pt3dadd(-110.052, 255.684, -36.897, 0.57)
pt3dadd(-110.142, 255.762, -36.892, 0.558)
pt3dadd(-110.233, 255.834, -36.87, 0.574)
pt3dadd(-110.309, 255.916, -36.832, 0.578)
pt3dadd(-110.385, 255.997, -36.8, 0.576)
pt3dadd(-110.473, 256.08, -36.8, 0.564)
pt3dadd(-110.561, 256.162, -36.8, 0.552)
pt3dadd(-110.668, 256.214, -36.8, 0.552)
pt3dadd(-110.776, 256.268, -36.8, 0.552)
pt3dadd(-110.892, 256.292, -36.8, 0.574)
pt3dadd(-111.011, 256.307, -36.8, 0.602)
pt3dadd(-111.13, 256.32, -36.8, 0.632)
pt3dadd(-111.25, 256.327, -36.8, 0.67)
pt3dadd(-111.367, 256.345, -36.8, 0.708)
pt3dadd(-111.47, 256.405, -36.8, 0.73)
pt3dadd(-111.574, 256.466, -36.8, 0.754)
pt3dadd(-111.677, 256.528, -36.8, 0.754)
pt3dadd(-111.781, 256.588, -36.8, 0.754)
pt3dadd(-111.881, 256.634, -36.834, 0.754)
pt3dadd(-111.981, 256.678, -36.876, 0.754)
pt3dadd(-112.08, 256.68, -36.931, 0.754)
pt3dadd(-112.179, 256.68, -36.988, 0.754)
pt3dadd(-112.267, 256.68, -37.056, 0.74)
pt3dadd(-112.34, 256.68, -37.134, 0.716)
pt3dadd(-112.407, 256.68, -37.216, 0.68)
pt3dadd(-112.486, 256.68, -37.291, 0.686)
pt3dadd(-112.58, 256.68, -37.353, 0.72)
pt3dadd(-112.688, 256.664, -37.39, 0.75)
pt3dadd(-112.799, 256.621, -37.4, 0.728)
pt3dadd(-112.906, 256.567, -37.4, 0.748)
pt3dadd(-113.001, 256.506, -37.377, 0.856)
pt3dadd(-113.04, 256.441, -37.302, 0.952)
pt3dadd(-113.04, 256.382, -37.215, 1.096)
pt3dadd(-113.093, 256.316, -37.169, 1.196)
pt3dadd(-113.197, 256.26, -37.152, 1.23)
pt3dadd(-113.3, 256.202, -37.136, 1.262)
pt3dadd(-113.404, 256.145, -37.119, 1.294)
pt3dadd(-113.507, 256.087, -37.102, 1.326)
pt3dadd(-113.611, 256.038, -37.074, 1.326)
pt3dadd(-113.715, 255.99, -37.044, 1.32)
pt3dadd(-113.82, 255.943, -37.014, 1.314)
pt3dadd(-113.924, 255.895, -36.985, 1.31)
pt3dadd(-114.021, 255.834, -36.961, 1.288)
pt3dadd(-114.106, 255.751, -36.946, 1.244)
pt3dadd(-114.191, 255.668, -36.931, 1.2)
pt3dadd(-114.277, 255.587, -36.917, 1.156)
pt3dadd(-114.362, 255.504, -36.902, 1.11)
pt3dadd(-114.471, 255.488, -36.87, 0.988)
pt3dadd(-114.583, 255.482, -36.835, 0.854)
pt3dadd(-114.664, 255.438, -36.783, 0.724)
pt3dadd(-114.726, 255.368, -36.719, 0.594)
pt3dadd(-114.77, 255.262, -36.707, 0.548)
pt3dadd(-114.811, 255.149, -36.702, 0.514)
pt3dadd(-114.843, 255.037, -36.68, 0.518)
pt3dadd(-114.869, 254.927, -36.647, 0.542)
pt3dadd(-114.943, 254.854, -36.63, 0.572)
pt3dadd(-115.054, 254.808, -36.623, 0.608)
pt3dadd(-115.164, 254.762, -36.617, 0.644)
pt3dadd(-115.271, 254.717, -36.617, 0.682)
pt3dadd(-115.322, 254.665, -36.697, 0.752)
pt3dadd(-115.389, 254.617, -36.76, 0.808)
pt3dadd(-115.501, 254.58, -36.775, 0.826)
pt3dadd(-115.614, 254.542, -36.791, 0.844)
pt3dadd(-115.729, 254.526, -36.8, 0.85)
pt3dadd(-115.848, 254.54, -36.8, 0.84)
pt3dadd(-115.967, 254.556, -36.8, 0.832)
pt3dadd(-116.067, 254.615, -36.8, 0.752)
pt3dadd(-116.161, 254.689, -36.8, 0.656)
pt3dadd(-116.267, 254.74, -36.8, 0.61)
pt3dadd(-116.386, 254.758, -36.8, 0.624)
pt3dadd(-116.505, 254.76, -36.8, 0.65)
pt3dadd(-116.625, 254.76, -36.8, 0.676)
pt3dadd(-116.745, 254.747, -36.8, 0.678)
pt3dadd(-116.845, 254.686, -36.8, 0.678)
pt3dadd(-116.908, 254.584, -36.8, 0.678)
pt3dadd(-116.979, 254.488, -36.8, 0.68)
pt3dadd(-117.053, 254.394, -36.8, 0.716)
pt3dadd(-117.101, 254.286, -36.8, 0.748)
pt3dadd(-117.169, 254.189, -36.8, 0.754)
pt3dadd(-117.244, 254.095, -36.8, 0.754)
pt3dadd(-117.319, 254.002, -36.8, 0.754)
pt3dadd(-117.394, 253.908, -36.8, 0.754)
pt3dadd(-117.469, 253.813, -36.8, 0.754)
pt3dadd(-117.513, 253.703, -36.8, 0.758)
pt3dadd(-117.552, 253.59, -36.8, 0.762)
pt3dadd(-117.591, 253.476, -36.8, 0.766)
pt3dadd(-117.629, 253.362, -36.8, 0.77)
pt3dadd(-117.668, 253.249, -36.8, 0.776)
pt3dadd(-117.723, 253.146, -36.8, 0.78)
pt3dadd(-117.812, 253.066, -36.8, 0.786)
pt3dadd(-117.901, 252.985, -36.8, 0.79)
pt3dadd(-117.989, 252.904, -36.8, 0.796)
pt3dadd(-118.078, 252.823, -36.8, 0.8)
pt3dadd(-118.163, 252.746, -36.781, 0.808)
pt3dadd(-118.242, 252.678, -36.732, 0.82)
pt3dadd(-118.32, 252.61, -36.683, 0.834)
pt3dadd(-118.399, 252.54, -36.634, 0.846)
pt3dadd(-118.48, 252.468, -36.593, 0.86)
pt3dadd(-118.566, 252.389, -36.57, 0.876)
pt3dadd(-118.651, 252.31, -36.547, 0.894)
pt3dadd(-118.737, 252.23, -36.524, 0.912)
pt3dadd(-118.822, 252.15, -36.501, 0.928)
pt3dadd(-118.872, 252.042, -36.5, 0.946)
pt3dadd(-118.919, 251.932, -36.5, 0.966)
pt3dadd(-118.967, 251.821, -36.5, 0.984)
pt3dadd(-119.014, 251.711, -36.5, 1.004)
pt3dadd(-119.062, 251.6, -36.5, 1.022)
pt3dadd(-119.127, 251.503, -36.491, 1.036)
pt3dadd(-119.204, 251.412, -36.476, 1.048)
pt3dadd(-119.28, 251.321, -36.461, 1.058)
pt3dadd(-119.356, 251.23, -36.447, 1.07)
pt3dadd(-119.432, 251.14, -36.431, 1.076)
pt3dadd(-119.503, 251.046, -36.408, 1.036)
pt3dadd(-119.578, 250.961, -36.38, 0.99)
pt3dadd(-119.668, 250.901, -36.336, 0.92)
pt3dadd(-119.728, 250.82, -36.295, 0.858)
pt3dadd(-119.748, 250.711, -36.258, 0.81)
pt3dadd(-119.773, 250.601, -36.228, 0.778)
pt3dadd(-119.811, 250.488, -36.212, 0.778)
pt3dadd(-119.848, 250.375, -36.202, 0.782)
pt3dadd(-119.884, 250.261, -36.211, 0.802)
pt3dadd(-119.919, 250.147, -36.22, 0.824)
pt3dadd(-119.955, 250.033, -36.229, 0.844)
pt3dadd(-120.018, 249.946, -36.251, 0.866)
pt3dadd(-120.114, 249.887, -36.287, 0.894)
pt3dadd(-120.208, 249.818, -36.3, 0.88)
pt3dadd(-120.304, 249.758, -36.334, 0.8)
pt3dadd(-120.396, 249.701, -36.374, 0.716)
pt3dadd(-120.48, 249.647, -36.43, 0.616)
pt3dadd(-120.568, 249.588, -36.473, 0.524)
pt3dadd(-120.664, 249.52, -36.49, 0.446)
pt3dadd(-120.75, 249.439, -36.498, 0.382)
pt3dadd(-120.821, 249.343, -36.492, 0.332)
pt3dadd(-120.898, 249.271, -36.467, 0.296)
pt3dadd(-120.986, 249.246, -36.403, 0.28)
pt3dadd(-121.076, 249.221, -36.34, 0.264)
pt3dadd(-121.163, 249.19, -36.276, 0.248)
pt3dadd(-121.238, 249.137, -36.213, 0.234)
pt3dadd(-121.31, 249.088, -36.145, 0.226)
pt3dadd(-121.402, 249.066, -36.084, 0.226)
pt3dadd(-121.498, 249.048, -36.026, 0.226)
pt3dadd(-121.594, 249.03, -35.968, 0.226)
pt3dadd(-121.69, 249.013, -35.91, 0.226)
pt3dadd(-121.79, 249, -35.857, 0.226)
pt3dadd(-121.901, 249, -35.82, 0.226)
pt3dadd(-122.012, 249, -35.783, 0.226)
}
}
proc shape3d_53() {
dend_5[15] { pt3dadd(-122.124, 249, -35.745, 0.226)
pt3dadd(-122.236, 249, -35.708, 0.226)
pt3dadd(-122.347, 249, -35.671, 0.226)
pt3dadd(-122.455, 249, -35.63, 0.226)
pt3dadd(-122.573, 249, -35.607, 0.226)
pt3dadd(-122.692, 249.006, -35.6, 0.226)
pt3dadd(-122.809, 249.03, -35.6, 0.226)
pt3dadd(-122.917, 249.079, -35.6, 0.226)
pt3dadd(-123.034, 249.109, -35.598, 0.262)
pt3dadd(-123.148, 249.12, -35.572, 0.352)
pt3dadd(-123.221, 249.12, -35.499, 0.486)
pt3dadd(-123.24, 249.12, -35.401, 0.602)
pt3dadd(-123.223, 249.119, -35.302, 0.656)
pt3dadd(-123.174, 249.08, -35.222, 0.662)
pt3dadd(-123.132, 248.976, -35.2, 0.622)
pt3dadd(-123.12, 248.857, -35.2, 0.582)
pt3dadd(-123.12, 248.737, -35.2, 0.612)
pt3dadd(-123.122, 248.617, -35.2, 0.68)
pt3dadd(-123.149, 248.502, -35.2, 0.808)
pt3dadd(-123.232, 248.424, -35.2, 0.89)
pt3dadd(-123.349, 248.401, -35.2, 0.904)
pt3dadd(-123.468, 248.4, -35.2, 0.904)
pt3dadd(-123.588, 248.4, -35.2, 0.882)
pt3dadd(-123.708, 248.413, -35.2, 0.828)
pt3dadd(-123.821, 248.45, -35.2, 0.74)
pt3dadd(-123.931, 248.497, -35.193, 0.688)
pt3dadd(-124.043, 248.512, -35.163, 0.678)
pt3dadd(-124.156, 248.518, -35.129, 0.678)
pt3dadd(-124.272, 248.52, -35.109, 0.678)
pt3dadd(-124.392, 248.52, -35.105, 0.678)
pt3dadd(-124.512, 248.52, -35.102, 0.678)
pt3dadd(-124.627, 248.496, -35.1, 0.678)
pt3dadd(-124.741, 248.456, -35.1, 0.678)
pt3dadd(-124.841, 248.404, -35.091, 0.678)
pt3dadd(-124.9, 248.309, -35.054, 0.678)
pt3dadd(-124.97, 248.221, -35.022, 0.67)
pt3dadd(-125.05, 248.14, -34.996, 0.65)
pt3dadd(-125.099, 248.033, -34.974, 0.634)
pt3dadd(-125.148, 247.926, -34.953, 0.618)
pt3dadd(-125.196, 247.82, -34.931, 0.6)
pt3dadd(-125.245, 247.714, -34.91, 0.584)
pt3dadd(-125.269, 247.6, -34.9, 0.554)
pt3dadd(-125.274, 247.48, -34.9, 0.51)
pt3dadd(-125.279, 247.36, -34.9, 0.466)
pt3dadd(-125.28, 247.243, -34.882, 0.418)
pt3dadd(-125.28, 247.128, -34.854, 0.366)
pt3dadd(-125.28, 247.012, -34.829, 0.32)
pt3dadd(-125.28, 246.893, -34.812, 0.29)
pt3dadd(-125.28, 246.775, -34.795, 0.262)
pt3dadd(-125.298, 246.688, -34.739, 0.242)
pt3dadd(-125.327, 246.616, -34.662, 0.228)
pt3dadd(-125.423, 246.581, -34.636, 0.23)
pt3dadd(-125.54, 246.557, -34.624, 0.238)
pt3dadd(-125.657, 246.533, -34.613, 0.244)
pt3dadd(-125.773, 246.509, -34.601, 0.25)
pt3dadd(-125.824, 246.407, -34.604, 0.29)
pt3dadd(-125.864, 246.294, -34.609, 0.336)
pt3dadd(-125.88, 246.178, -34.622, 0.394)
pt3dadd(-125.88, 246.06, -34.638, 0.458)
pt3dadd(-125.88, 245.941, -34.654, 0.522)
pt3dadd(-125.899, 245.869, -34.581, 0.624)
pt3dadd(-125.92, 245.801, -34.501, 0.728)
pt3dadd(-126.014, 245.768, -34.447, 0.828)
pt3dadd(-126.124, 245.774, -34.41, 0.904)
pt3dadd(-126.214, 245.827, -34.367, 0.904)
pt3dadd(-126.241, 245.868, -34.279, 0.9)
pt3dadd(-126.263, 245.88, -34.182, 0.85)
pt3dadd(-126.3, 245.868, -34.088, 0.79)
pt3dadd(-126.343, 245.843, -33.997, 0.764)
pt3dadd(-126.385, 245.818, -33.906, 0.738)
pt3dadd(-126.427, 245.791, -33.814, 0.712)
pt3dadd(-126.469, 245.766, -33.723, 0.684)
pt3dadd(-126.482, 245.729, -33.63, 0.66)
pt3dadd(-126.485, 245.686, -33.537, 0.636)
pt3dadd(-126.487, 245.644, -33.443, 0.614)
pt3dadd(-126.49, 245.602, -33.35, 0.59)
pt3dadd(-126.492, 245.558, -33.256, 0.566)
pt3dadd(-126.502, 245.526, -33.161, 0.546)
pt3dadd(-126.521, 245.509, -33.063, 0.534)
pt3dadd(-126.54, 245.492, -32.966, 0.52)
pt3dadd(-126.559, 245.474, -32.868, 0.506)
pt3dadd(-126.58, 245.458, -32.771, 0.492)
pt3dadd(-126.599, 245.441, -32.673, 0.478)
pt3dadd(-126.578, 245.408, -32.579, 0.46)
pt3dadd(-126.533, 245.4, -32.487, 0.512)
pt3dadd(-126.492, 245.416, -32.395, 0.578)
pt3dadd(-126.48, 245.459, -32.303, 0.566)
pt3dadd(-126.491, 245.502, -32.211, 0.532)
pt3dadd(-126.557, 245.515, -32.133, 0.528)
pt3dadd(-126.665, 245.485, -32.102, 0.548)
pt3dadd(-126.764, 245.426, -32.082, 0.578)
pt3dadd(-126.827, 245.36, -32.022, 0.526)
pt3dadd(-126.898, 245.312, -31.963, 0.438)
pt3dadd(-127.007, 245.293, -31.925, 0.4)
pt3dadd(-127.12, 245.28, -31.9, 0.368)
pt3dadd(-127.24, 245.28, -31.9, 0.344)
pt3dadd(-127.36, 245.28, -31.9, 0.318)
pt3dadd(-127.48, 245.28, -31.9, 0.284)
pt3dadd(-127.6, 245.28, -31.9, 0.25)
pt3dadd(-127.72, 245.28, -31.9, 0.246)
pt3dadd(-127.84, 245.28, -31.9, 0.242)
pt3dadd(-127.96, 245.28, -31.9, 0.24)
pt3dadd(-128.08, 245.28, -31.9, 0.236)
pt3dadd(-128.2, 245.28, -31.9, 0.232)
pt3dadd(-128.32, 245.28, -31.9, 0.228)
pt3dadd(-128.44, 245.28, -31.9, 0.226)
pt3dadd(-128.56, 245.28, -31.9, 0.226)
pt3dadd(-128.68, 245.28, -31.9, 0.226)
pt3dadd(-128.8, 245.28, -31.9, 0.226)
pt3dadd(-128.92, 245.28, -31.9, 0.226)
pt3dadd(-129.04, 245.28, -31.9, 0.226)
pt3dadd(-129.16, 245.28, -31.9, 0.226)
pt3dadd(-129.28, 245.28, -31.9, 0.226)
pt3dadd(-129.4, 245.28, -31.9, 0.226)
pt3dadd(-129.52, 245.28, -31.9, 0.226)
pt3dadd(-129.636, 245.262, -31.9, 0.226)
pt3dadd(-129.743, 245.208, -31.9, 0.226)
pt3dadd(-129.848, 245.153, -31.9, 0.228)
pt3dadd(-129.936, 245.071, -31.9, 0.238)
pt3dadd(-130.025, 244.99, -31.9, 0.25)
pt3dadd(-130.055, 244.897, -31.958, 0.264)
pt3dadd(-130.08, 244.813, -32.021, 0.278)
pt3dadd(-130.08, 244.813, -32.12, 0.286)
pt3dadd(-130.08, 244.813, -32.22, 0.296)
pt3dadd(-130.086, 244.825, -32.319, 0.302)
pt3dadd(-130.135, 244.882, -32.389, 0.302)
pt3dadd(-130.24, 244.939, -32.4, 0.29)
pt3dadd(-130.346, 244.993, -32.4, 0.298)
pt3dadd(-130.462, 245.027, -32.401, 0.38)
pt3dadd(-130.58, 245.033, -32.414, 0.438)
pt3dadd(-130.699, 245.038, -32.427, 0.498)
pt3dadd(-130.816, 245.04, -32.447, 0.552)
pt3dadd(-130.931, 245.04, -32.474, 0.604)
pt3dadd(-131.047, 245.04, -32.5, 0.658)
pt3dadd(-131.167, 245.04, -32.5, 0.754)
pt3dadd(-131.287, 245.04, -32.5, 0.78)
pt3dadd(-131.407, 245.04, -32.5, 0.806)
pt3dadd(-131.527, 245.04, -32.5, 0.83)
pt3dadd(-131.647, 245.04, -32.5, 0.846)
pt3dadd(-131.767, 245.04, -32.5, 0.864)
pt3dadd(-131.886, 245.04, -32.497, 0.88)
pt3dadd(-131.993, 245.034, -32.451, 0.892)
pt3dadd(-132.098, 245.027, -32.404, 0.904)
pt3dadd(-132.139, 244.94, -32.35, 0.88)
pt3dadd(-132.181, 244.85, -32.3, 0.85)
pt3dadd(-132.296, 244.818, -32.3, 0.804)
pt3dadd(-132.412, 244.8, -32.285, 0.76)
pt3dadd(-132.524, 244.8, -32.252, 0.716)
pt3dadd(-132.631, 244.795, -32.214, 0.676)
pt3dadd(-132.683, 244.744, -32.135, 0.662)
pt3dadd(-132.726, 244.685, -32.057, 0.65)
pt3dadd(-132.746, 244.609, -31.981, 0.636)
pt3dadd(-132.781, 244.523, -31.927, 0.628)
pt3dadd(-132.842, 244.422, -31.91, 0.628)
pt3dadd(-132.912, 244.327, -31.9, 0.622)
pt3dadd(-132.997, 244.242, -31.9, 0.604)
pt3dadd(-133.1, 244.188, -31.876, 0.608)
pt3dadd(-133.204, 244.135, -31.851, 0.614)
pt3dadd(-133.307, 244.081, -31.827, 0.62)
pt3dadd(-133.411, 244.028, -31.802, 0.624)
pt3dadd(-133.513, 243.972, -31.779, 0.628)
pt3dadd(-133.614, 243.913, -31.756, 0.628)
pt3dadd(-133.715, 243.853, -31.734, 0.628)
pt3dadd(-133.816, 243.794, -31.712, 0.628)
pt3dadd(-133.916, 243.736, -31.69, 0.628)
pt3dadd(-134.032, 243.708, -31.672, 0.628)
pt3dadd(-134.147, 243.683, -31.655, 0.628)
pt3dadd(-134.262, 243.658, -31.638, 0.628)
pt3dadd(-134.377, 243.631, -31.621, 0.628)
pt3dadd(-134.494, 243.606, -31.604, 0.628)
pt3dadd(-134.605, 243.566, -31.6, 0.624)
pt3dadd(-134.717, 243.521, -31.6, 0.62)
pt3dadd(-134.828, 243.476, -31.6, 0.614)
pt3dadd(-134.94, 243.432, -31.6, 0.61)
pt3dadd(-135.052, 243.388, -31.6, 0.606)
pt3dadd(-135.152, 243.328, -31.6, 0.604)
pt3dadd(-135.235, 243.241, -31.6, 0.61)
pt3dadd(-135.318, 243.155, -31.6, 0.614)
pt3dadd(-135.402, 243.068, -31.6, 0.62)
pt3dadd(-135.485, 242.982, -31.6, 0.624)
pt3dadd(-135.576, 242.904, -31.6, 0.628)
pt3dadd(-135.674, 242.836, -31.6, 0.628)
pt3dadd(-135.763, 242.766, -31.584, 0.624)
pt3dadd(-135.824, 242.689, -31.527, 0.61)
pt3dadd(-135.881, 242.621, -31.46, 0.572)
pt3dadd(-135.934, 242.561, -31.385, 0.516)
pt3dadd(-135.952, 242.478, -31.318, 0.466)
pt3dadd(-135.958, 242.388, -31.253, 0.416)
pt3dadd(-135.96, 242.278, -31.22, 0.33)
pt3dadd(-135.96, 242.16, -31.2, 0.226)
}
dend_5[16] {pt3dclear()
pt3dadd(3.48, 204.36, -4.6, 1.13)
pt3dadd(3.493, 204.378, -4.624, 1.144)
pt3dadd(3.536, 204.438, -4.703, 1.194)
pt3dadd(3.58, 204.499, -4.782, 1.242)
pt3dadd(3.622, 204.559, -4.86, 1.29)
pt3dadd(3.665, 204.619, -4.939, 1.34)
pt3dadd(3.708, 204.679, -5.018, 1.388)
pt3dadd(3.751, 204.739, -5.097, 1.436)
pt3dadd(3.794, 204.799, -5.175, 1.484)
pt3dadd(3.836, 204.859, -5.254, 1.534)
}
}
proc shape3d_54() {
dend_5[16] { pt3dadd(3.88, 204.919, -5.333, 1.582)
pt3dadd(3.923, 204.98, -5.412, 1.63)
pt3dadd(3.966, 205.04, -5.49, 1.678)
pt3dadd(4.009, 205.1, -5.569, 1.728)
pt3dadd(4.051, 205.16, -5.648, 1.776)
pt3dadd(4.051, 205.229, -5.7, 1.806)
pt3dadd(3.968, 205.315, -5.7, 1.802)
pt3dadd(3.884, 205.402, -5.7, 1.796)
pt3dadd(3.802, 205.488, -5.7, 1.792)
pt3dadd(3.718, 205.574, -5.7, 1.786)
pt3dadd(3.641, 205.666, -5.7, 1.78)
pt3dadd(3.571, 205.764, -5.7, 1.77)
pt3dadd(3.503, 205.862, -5.7, 1.758)
pt3dadd(3.433, 205.96, -5.7, 1.75)
pt3dadd(3.364, 206.058, -5.7, 1.74)
pt3dadd(3.292, 206.154, -5.7, 1.73)
pt3dadd(3.214, 206.245, -5.7, 1.718)
pt3dadd(3.136, 206.336, -5.7, 1.708)
pt3dadd(3.058, 206.428, -5.7, 1.698)
pt3dadd(2.98, 206.518, -5.7, 1.688)
pt3dadd(2.912, 206.616, -5.7, 1.678)
pt3dadd(2.862, 206.725, -5.7, 1.67)
pt3dadd(2.812, 206.834, -5.7, 1.66)
pt3dadd(2.761, 206.944, -5.7, 1.65)
pt3dadd(2.711, 207.052, -5.7, 1.64)
pt3dadd(2.657, 207.158, -5.7, 1.632)
pt3dadd(2.579, 207.25, -5.7, 1.626)
pt3dadd(2.501, 207.341, -5.7, 1.622)
pt3dadd(2.423, 207.432, -5.7, 1.616)
pt3dadd(2.345, 207.523, -5.7, 1.612)
pt3dadd(2.272, 207.618, -5.7, 1.604)
pt3dadd(2.218, 207.725, -5.7, 1.59)
pt3dadd(2.164, 207.833, -5.7, 1.576)
pt3dadd(2.111, 207.94, -5.7, 1.562)
pt3dadd(2.057, 208.048, -5.7, 1.546)
pt3dadd(2.003, 208.154, -5.7, 1.532)
pt3dadd(1.94, 208.258, -5.7, 1.522)
pt3dadd(1.878, 208.36, -5.7, 1.512)
pt3dadd(1.814, 208.462, -5.7, 1.502)
pt3dadd(1.752, 208.564, -5.7, 1.492)
pt3dadd(1.688, 208.666, -5.7, 1.484)
pt3dadd(1.606, 208.752, -5.7, 1.472)
pt3dadd(1.519, 208.835, -5.7, 1.462)
pt3dadd(1.433, 208.919, -5.7, 1.452)
pt3dadd(1.346, 209.002, -5.7, 1.442)
pt3dadd(1.261, 209.086, -5.7, 1.432)
pt3dadd(1.21, 209.192, -5.7, 1.44)
pt3dadd(1.162, 209.303, -5.7, 1.45)
pt3dadd(1.115, 209.413, -5.7, 1.458)
pt3dadd(1.067, 209.524, -5.7, 1.468)
pt3dadd(1.02, 209.634, -5.7, 1.478)
pt3dadd(0.953, 209.731, -5.7, 1.494)
pt3dadd(0.872, 209.82, -5.7, 1.514)
pt3dadd(0.791, 209.909, -5.7, 1.534)
pt3dadd(0.71, 209.998, -5.7, 1.554)
pt3dadd(0.63, 210.086, -5.7, 1.574)
pt3dadd(0.566, 210.187, -5.7, 1.588)
pt3dadd(0.512, 210.295, -5.7, 1.598)
pt3dadd(0.46, 210.402, -5.7, 1.608)
pt3dadd(0.406, 210.51, -5.7, 1.616)
pt3dadd(0.352, 210.617, -5.7, 1.626)
pt3dadd(0.295, 210.722, -5.7, 1.622)
pt3dadd(0.232, 210.824, -5.7, 1.598)
pt3dadd(0.169, 210.926, -5.7, 1.572)
pt3dadd(0.106, 211.028, -5.7, 1.548)
pt3dadd(0.043, 211.13, -5.7, 1.524)
pt3dadd(-0.014, 211.236, -5.7, 1.492)
pt3dadd(-0.059, 211.348, -5.7, 1.446)
pt3dadd(-0.103, 211.459, -5.7, 1.398)
pt3dadd(-0.148, 211.57, -5.7, 1.352)
pt3dadd(-0.192, 211.681, -5.7, 1.306)
pt3dadd(-0.238, 211.793, -5.7, 1.258)
pt3dadd(-0.282, 211.904, -5.7, 1.226)
pt3dadd(-0.326, 212.016, -5.7, 1.192)
pt3dadd(-0.371, 212.128, -5.7, 1.16)
pt3dadd(-0.415, 212.239, -5.7, 1.128)
pt3dadd(-0.46, 212.35, -5.7, 1.094)
pt3dadd(-0.518, 212.454, -5.7, 1.082)
pt3dadd(-0.587, 212.552, -5.7, 1.088)
pt3dadd(-0.656, 212.651, -5.7, 1.092)
pt3dadd(-0.725, 212.749, -5.7, 1.098)
pt3dadd(-0.794, 212.846, -5.7, 1.102)
pt3dadd(-0.841, 212.954, -5.7, 1.136)
pt3dadd(-0.866, 213.072, -5.7, 1.196)
pt3dadd(-0.894, 213.188, -5.7, 1.256)
pt3dadd(-1.006, 213.234, -5.7, 1.322)
pt3dadd(-1.116, 213.28, -5.7, 1.388)
pt3dadd(-1.211, 213.352, -5.7, 1.44)
pt3dadd(-1.298, 213.433, -5.7, 1.488)
pt3dadd(-1.405, 213.473, -5.7, 1.512)
pt3dadd(-1.524, 213.482, -5.7, 1.522)
pt3dadd(-1.644, 213.491, -5.7, 1.53)
pt3dadd(-1.75, 213.544, -5.7, 1.526)
pt3dadd(-1.853, 213.606, -5.7, 1.52)
pt3dadd(-1.955, 213.668, -5.7, 1.512)
pt3dadd(-2.048, 213.739, -5.7, 1.502)
pt3dadd(-2.094, 213.85, -5.7, 1.468)
pt3dadd(-2.141, 213.96, -5.7, 1.436)
pt3dadd(-2.226, 214.044, -5.7, 1.408)
pt3dadd(-2.315, 214.123, -5.7, 1.382)
pt3dadd(-2.406, 214.201, -5.7, 1.354)
pt3dadd(-2.521, 214.235, -5.7, 1.324)
pt3dadd(-2.636, 214.268, -5.7, 1.292)
pt3dadd(-2.752, 214.301, -5.7, 1.222)
pt3dadd(-2.862, 214.344, -5.713, 1.176)
pt3dadd(-2.971, 214.388, -5.729, 1.14)
pt3dadd(-3.066, 214.45, -5.761, 1.088)
pt3dadd(-3.155, 214.517, -5.798, 1.032)
pt3dadd(-3.244, 214.597, -5.8, 0.974)
pt3dadd(-3.331, 214.679, -5.8, 0.914)
pt3dadd(-3.35, 214.792, -5.8, 0.876)
pt3dadd(-3.355, 214.912, -5.8, 0.84)
pt3dadd(-3.36, 215.032, -5.8, 0.806)
pt3dadd(-3.36, 215.152, -5.8, 0.768)
pt3dadd(-3.36, 215.272, -5.8, 0.73)
pt3dadd(-3.428, 215.369, -5.806, 0.734)
pt3dadd(-3.5, 215.464, -5.813, 0.738)
pt3dadd(-3.574, 215.558, -5.821, 0.744)
pt3dadd(-3.646, 215.654, -5.828, 0.748)
pt3dadd(-3.712, 215.752, -5.839, 0.756)
pt3dadd(-3.74, 215.86, -5.875, 0.778)
pt3dadd(-3.768, 215.968, -5.911, 0.8)
pt3dadd(-3.797, 216.077, -5.946, 0.822)
pt3dadd(-3.826, 216.185, -5.982, 0.842)
pt3dadd(-3.871, 216.29, -6.001, 0.876)
pt3dadd(-3.936, 216.391, -6.003, 0.922)
pt3dadd(-4, 216.492, -6.005, 0.966)
pt3dadd(-4.064, 216.594, -6.008, 1.012)
pt3dadd(-4.128, 216.696, -6.01, 1.058)
pt3dadd(-4.165, 216.804, -6.022, 1.096)
pt3dadd(-4.175, 216.922, -6.044, 1.128)
pt3dadd(-4.184, 217.038, -6.067, 1.16)
pt3dadd(-4.194, 217.154, -6.089, 1.192)
pt3dadd(-4.204, 217.271, -6.111, 1.224)
pt3dadd(-4.213, 217.387, -6.133, 1.256)
pt3dadd(-4.265, 217.482, -6.176, 1.27)
pt3dadd(-4.308, 217.576, -6.224, 1.272)
pt3dadd(-4.314, 217.661, -6.295, 1.222)
pt3dadd(-4.33, 217.747, -6.359, 1.172)
pt3dadd(-4.392, 217.846, -6.382, 1.12)
pt3dadd(-4.463, 217.937, -6.401, 1.08)
pt3dadd(-4.56, 218.008, -6.407, 1.08)
pt3dadd(-4.645, 218.084, -6.418, 1.086)
pt3dadd(-4.676, 218.188, -6.462, 1.126)
pt3dadd(-4.714, 218.3, -6.472, 1.142)
pt3dadd(-4.752, 218.413, -6.479, 1.156)
pt3dadd(-4.789, 218.527, -6.485, 1.172)
pt3dadd(-4.828, 218.641, -6.491, 1.186)
pt3dadd(-4.865, 218.754, -6.497, 1.2)
pt3dadd(-4.928, 218.854, -6.5, 1.212)
pt3dadd(-5.01, 218.942, -6.5, 1.222)
pt3dadd(-5.09, 219.031, -6.5, 1.232)
pt3dadd(-5.171, 219.12, -6.5, 1.242)
pt3dadd(-5.251, 219.209, -6.5, 1.252)
pt3dadd(-5.282, 219.318, -6.5, 1.256)
pt3dadd(-5.287, 219.438, -6.5, 1.256)
pt3dadd(-5.292, 219.558, -6.5, 1.256)
pt3dadd(-5.345, 219.661, -6.5, 1.238)
pt3dadd(-5.412, 219.761, -6.5, 1.214)
pt3dadd(-5.507, 219.811, -6.519, 1.192)
pt3dadd(-5.62, 219.83, -6.55, 1.168)
pt3dadd(-5.726, 219.868, -6.575, 1.156)
pt3dadd(-5.828, 219.929, -6.591, 1.156)
pt3dadd(-5.91, 220.01, -6.6, 1.166)
pt3dadd(-5.972, 220.112, -6.6, 1.186)
pt3dadd(-6.035, 220.216, -6.6, 1.206)
pt3dadd(-6.097, 220.318, -6.6, 1.228)
pt3dadd(-6.112, 220.434, -6.611, 1.264)
pt3dadd(-6.116, 220.553, -6.624, 1.302)
pt3dadd(-6.12, 220.669, -6.645, 1.358)
pt3dadd(-6.122, 220.782, -6.674, 1.4)
pt3dadd(-6.127, 220.901, -6.686, 1.392)
pt3dadd(-6.133, 221.02, -6.699, 1.382)
pt3dadd(-6.191, 221.124, -6.7, 1.348)
pt3dadd(-6.251, 221.227, -6.7, 1.314)
pt3dadd(-6.306, 221.316, -6.743, 1.264)
pt3dadd(-6.36, 221.399, -6.799, 1.206)
pt3dadd(-6.36, 221.474, -6.877, 1.17)
pt3dadd(-6.36, 221.549, -6.956, 1.134)
pt3dadd(-6.367, 221.66, -6.984, 1.104)
pt3dadd(-6.382, 221.774, -7.009, 1.078)
pt3dadd(-6.413, 221.881, -7.046, 1.066)
pt3dadd(-6.445, 221.989, -7.082, 1.056)
pt3dadd(-6.476, 222.096, -7.118, 1.044)
pt3dadd(-6.509, 222.203, -7.154, 1.034)
pt3dadd(-6.583, 222.245, -7.206, 1.03)
pt3dadd(-6.68, 222.251, -7.264, 1.03)
pt3dadd(-6.752, 222.316, -7.292, 1.022)
pt3dadd(-6.809, 222.421, -7.297, 1.01)
pt3dadd(-6.854, 222.532, -7.3, 1.01)
pt3dadd(-6.888, 222.647, -7.3, 1.02)
pt3dadd(-6.92, 222.762, -7.3, 1.03)
pt3dadd(-6.936, 222.881, -7.304, 1.03)
pt3dadd(-6.952, 223, -7.309, 1.03)
pt3dadd(-6.96, 223.108, -7.338, 1.038)
pt3dadd(-6.961, 223.201, -7.4, 1.054)
pt3dadd(-7.034, 223.292, -7.423, 1.048)
pt3dadd(-7.108, 223.384, -7.446, 1.044)
pt3dadd(-7.181, 223.475, -7.469, 1.038)
pt3dadd(-7.253, 223.566, -7.492, 1.032)
}
}
proc shape3d_55() {
dend_5[16] { pt3dadd(-7.319, 223.663, -7.512, 1.022)
pt3dadd(-7.381, 223.763, -7.532, 1.012)
pt3dadd(-7.442, 223.864, -7.552, 1)
pt3dadd(-7.505, 223.963, -7.571, 0.99)
pt3dadd(-7.561, 224.064, -7.594, 0.978)
pt3dadd(-7.579, 224.168, -7.641, 0.974)
pt3dadd(-7.596, 224.273, -7.688, 0.968)
pt3dadd(-7.613, 224.377, -7.735, 0.962)
pt3dadd(-7.63, 224.482, -7.782, 0.958)
pt3dadd(-7.644, 224.591, -7.82, 0.958)
pt3dadd(-7.654, 224.707, -7.842, 0.966)
pt3dadd(-7.663, 224.824, -7.864, 0.976)
pt3dadd(-7.673, 224.941, -7.886, 0.986)
pt3dadd(-7.682, 225.058, -7.908, 0.994)
pt3dadd(-7.692, 225.174, -7.931, 1.004)
pt3dadd(-7.717, 225.29, -7.944, 1.022)
pt3dadd(-7.745, 225.406, -7.957, 1.04)
pt3dadd(-7.772, 225.521, -7.97, 1.06)
pt3dadd(-7.801, 225.637, -7.982, 1.078)
pt3dadd(-7.829, 225.754, -7.995, 1.098)
pt3dadd(-7.88, 225.858, -8.004, 1.112)
pt3dadd(-7.95, 225.955, -8.011, 1.122)
pt3dadd(-8.02, 226.052, -8.018, 1.132)
pt3dadd(-8.089, 226.15, -8.025, 1.142)
pt3dadd(-8.159, 226.248, -8.032, 1.154)
pt3dadd(-8.215, 226.346, -8.062, 1.146)
pt3dadd(-8.268, 226.445, -8.098, 1.134)
pt3dadd(-8.321, 226.543, -8.134, 1.122)
pt3dadd(-8.372, 226.643, -8.17, 1.112)
pt3dadd(-8.422, 226.747, -8.19, 1.094)
pt3dadd(-8.467, 226.858, -8.192, 1.07)
pt3dadd(-8.513, 226.969, -8.194, 1.046)
pt3dadd(-8.558, 227.08, -8.196, 1.022)
pt3dadd(-8.604, 227.191, -8.198, 0.998)
pt3dadd(-8.656, 227.298, -8.206, 0.974)
pt3dadd(-8.73, 227.384, -8.234, 0.952)
pt3dadd(-8.804, 227.472, -8.263, 0.928)
pt3dadd(-8.88, 227.56, -8.292, 0.904)
pt3dadd(-8.954, 227.646, -8.32, 0.88)
pt3dadd(-8.995, 227.729, -8.383, 0.862)
pt3dadd(-9.034, 227.812, -8.449, 0.844)
pt3dadd(-9.071, 227.893, -8.514, 0.826)
pt3dadd(-9.109, 227.976, -8.58, 0.81)
pt3dadd(-9.143, 228.079, -8.616, 0.804)
pt3dadd(-9.175, 228.191, -8.639, 0.804)
pt3dadd(-9.209, 228.302, -8.661, 0.804)
pt3dadd(-9.241, 228.415, -8.684, 0.804)
pt3dadd(-9.274, 228.527, -8.707, 0.804)
pt3dadd(-9.317, 228.631, -8.74, 0.804)
pt3dadd(-9.362, 228.734, -8.775, 0.804)
pt3dadd(-9.408, 228.836, -8.811, 0.804)
pt3dadd(-9.454, 228.94, -8.846, 0.804)
pt3dadd(-9.497, 229.046, -8.872, 0.808)
pt3dadd(-9.536, 229.158, -8.885, 0.818)
pt3dadd(-9.577, 229.27, -8.899, 0.828)
pt3dadd(-9.617, 229.382, -8.912, 0.838)
pt3dadd(-9.656, 229.494, -8.925, 0.848)
pt3dadd(-9.696, 229.596, -8.958, 0.856)
pt3dadd(-9.733, 229.685, -9.018, 0.862)
pt3dadd(-9.772, 229.772, -9.079, 0.868)
pt3dadd(-9.809, 229.86, -9.139, 0.874)
pt3dadd(-9.844, 229.952, -9.193, 0.88)
pt3dadd(-9.868, 230.068, -9.214, 0.89)
pt3dadd(-9.89, 230.183, -9.236, 0.9)
pt3dadd(-9.914, 230.297, -9.258, 0.91)
pt3dadd(-9.938, 230.412, -9.28, 0.92)
pt3dadd(-9.962, 230.526, -9.3, 0.93)
pt3dadd(-10.01, 230.635, -9.309, 0.94)
pt3dadd(-10.058, 230.746, -9.318, 0.95)
pt3dadd(-10.106, 230.855, -9.327, 0.96)
pt3dadd(-10.154, 230.964, -9.336, 0.97)
pt3dadd(-10.204, 231.072, -9.347, 0.98)
pt3dadd(-10.274, 231.158, -9.384, 1.004)
pt3dadd(-10.345, 231.245, -9.421, 1.028)
pt3dadd(-10.415, 231.331, -9.459, 1.054)
pt3dadd(-10.486, 231.418, -9.496, 1.078)
pt3dadd(-10.549, 231.517, -9.506, 1.09)
pt3dadd(-10.613, 231.619, -9.513, 1.1)
pt3dadd(-10.675, 231.721, -9.52, 1.11)
pt3dadd(-10.739, 231.822, -9.527, 1.12)
pt3dadd(-10.802, 231.924, -9.535, 1.13)
pt3dadd(-10.855, 232.007, -9.592, 1.144)
pt3dadd(-10.924, 232.076, -9.643, 1.148)
pt3dadd(-11.032, 232.109, -9.676, 1.122)
pt3dadd(-11.113, 232.168, -9.7, 1.104)
pt3dadd(-11.134, 232.286, -9.7, 1.104)
pt3dadd(-11.154, 232.404, -9.7, 1.104)
pt3dadd(-11.16, 232.524, -9.7, 1.1)
pt3dadd(-11.16, 232.644, -9.7, 1.09)
pt3dadd(-11.16, 232.764, -9.7, 1.082)
pt3dadd(-11.177, 232.883, -9.7, 1.07)
pt3dadd(-11.2, 233, -9.7, 1.054)
pt3dadd(-11.233, 233.116, -9.7, 1.044)
pt3dadd(-11.266, 233.231, -9.7, 1.034)
pt3dadd(-11.303, 233.345, -9.7, 1.042)
pt3dadd(-11.342, 233.458, -9.7, 1.064)
pt3dadd(-11.395, 233.561, -9.7, 1.092)
pt3dadd(-11.495, 233.629, -9.7, 1.15)
pt3dadd(-11.59, 233.699, -9.703, 1.208)
pt3dadd(-11.626, 233.794, -9.758, 1.248)
pt3dadd(-11.665, 233.879, -9.816, 1.272)
pt3dadd(-11.722, 233.936, -9.89, 1.23)
pt3dadd(-11.767, 234.044, -9.911, 1.198)
pt3dadd(-11.813, 234.152, -9.932, 1.166)
pt3dadd(-11.857, 234.26, -9.954, 1.134)
pt3dadd(-11.903, 234.368, -9.975, 1.102)
pt3dadd(-11.946, 234.478, -9.995, 1.072)
pt3dadd(-11.984, 234.59, -10.013, 1.046)
pt3dadd(-12.023, 234.701, -10.031, 1.02)
pt3dadd(-12.06, 234.814, -10.05, 0.994)
pt3dadd(-12.098, 234.925, -10.068, 0.968)
pt3dadd(-12.139, 235.033, -10.091, 0.95)
pt3dadd(-12.184, 235.14, -10.12, 0.938)
pt3dadd(-12.228, 235.246, -10.15, 0.928)
pt3dadd(-12.272, 235.351, -10.179, 0.916)
pt3dadd(-12.317, 235.457, -10.208, 0.904)
pt3dadd(-12.352, 235.57, -10.227, 0.904)
pt3dadd(-12.386, 235.682, -10.245, 0.904)
pt3dadd(-12.421, 235.795, -10.263, 0.904)
pt3dadd(-12.456, 235.908, -10.281, 0.904)
pt3dadd(-12.491, 236.021, -10.299, 0.904)
pt3dadd(-12.532, 236.129, -10.327, 0.898)
pt3dadd(-12.572, 236.236, -10.356, 0.894)
pt3dadd(-12.613, 236.344, -10.385, 0.888)
pt3dadd(-12.654, 236.45, -10.414, 0.882)
pt3dadd(-12.708, 236.551, -10.439, 0.88)
pt3dadd(-12.787, 236.639, -10.453, 0.886)
pt3dadd(-12.868, 236.728, -10.468, 0.892)
pt3dadd(-12.947, 236.815, -10.483, 0.898)
pt3dadd(-13.026, 236.904, -10.497, 0.904)
pt3dadd(-13.076, 237.011, -10.5, 0.912)
pt3dadd(-13.122, 237.122, -10.5, 0.92)
pt3dadd(-13.166, 237.234, -10.5, 0.93)
pt3dadd(-13.211, 237.346, -10.5, 0.94)
pt3dadd(-13.255, 237.456, -10.5, 0.948)
pt3dadd(-13.291, 237.57, -10.509, 0.962)
pt3dadd(-13.314, 237.684, -10.531, 0.982)
pt3dadd(-13.338, 237.799, -10.553, 1.002)
pt3dadd(-13.361, 237.913, -10.575, 1.022)
pt3dadd(-13.385, 238.028, -10.596, 1.042)
pt3dadd(-13.414, 238.142, -10.617, 1.06)
pt3dadd(-13.454, 238.253, -10.635, 1.076)
pt3dadd(-13.496, 238.363, -10.654, 1.09)
pt3dadd(-13.537, 238.474, -10.672, 1.106)
pt3dadd(-13.578, 238.584, -10.691, 1.122)
pt3dadd(-13.63, 238.691, -10.7, 1.142)
pt3dadd(-13.69, 238.794, -10.7, 1.164)
pt3dadd(-13.763, 238.888, -10.7, 1.18)
pt3dadd(-13.861, 238.955, -10.7, 1.18)
pt3dadd(-13.952, 239.029, -10.7, 1.176)
pt3dadd(-13.992, 239.142, -10.7, 1.144)
pt3dadd(-14.032, 239.256, -10.7, 1.112)
pt3dadd(-14.04, 239.375, -10.7, 1.086)
pt3dadd(-14.04, 239.495, -10.7, 1.06)
pt3dadd(-14.04, 239.615, -10.7, 1.036)
pt3dadd(-14.04, 239.735, -10.7, 1.01)
pt3dadd(-14.04, 239.855, -10.7, 0.984)
pt3dadd(-14.056, 239.974, -10.701, 0.976)
pt3dadd(-14.076, 240.091, -10.703, 0.972)
pt3dadd(-14.096, 240.21, -10.705, 0.968)
pt3dadd(-14.116, 240.328, -10.707, 0.964)
pt3dadd(-14.136, 240.446, -10.709, 0.96)
pt3dadd(-14.156, 240.564, -10.711, 0.956)
pt3dadd(-14.201, 240.671, -10.733, 0.94)
pt3dadd(-14.251, 240.775, -10.76, 0.924)
pt3dadd(-14.302, 240.878, -10.788, 0.908)
pt3dadd(-14.352, 240.983, -10.815, 0.89)
pt3dadd(-14.405, 241.084, -10.846, 0.872)
pt3dadd(-14.461, 241.178, -10.885, 0.848)
pt3dadd(-14.519, 241.272, -10.925, 0.824)
pt3dadd(-14.575, 241.367, -10.964, 0.8)
pt3dadd(-14.629, 241.464, -11.002, 0.778)
pt3dadd(-14.656, 241.577, -11.027, 0.778)
pt3dadd(-14.683, 241.69, -11.052, 0.778)
pt3dadd(-14.71, 241.802, -11.076, 0.778)
pt3dadd(-14.737, 241.916, -11.101, 0.778)
pt3dadd(-14.77, 242.027, -11.125, 0.784)
pt3dadd(-14.84, 242.122, -11.142, 0.822)
pt3dadd(-14.912, 242.215, -11.159, 0.862)
pt3dadd(-14.983, 242.31, -11.176, 0.9)
pt3dadd(-15.054, 242.405, -11.194, 0.94)
pt3dadd(-15.134, 242.492, -11.2, 0.99)
pt3dadd(-15.221, 242.575, -11.2, 1.046)
pt3dadd(-15.306, 242.659, -11.2, 1.1)
pt3dadd(-15.392, 242.743, -11.2, 1.156)
pt3dadd(-15.479, 242.826, -11.2, 1.212)
pt3dadd(-15.53, 242.932, -11.2, 1.252)
pt3dadd(-15.566, 243.046, -11.2, 1.284)
pt3dadd(-15.602, 243.16, -11.2, 1.314)
pt3dadd(-15.638, 243.275, -11.2, 1.346)
pt3dadd(-15.674, 243.389, -11.2, 1.378)
pt3dadd(-15.712, 243.503, -11.2, 1.406)
pt3dadd(-15.758, 243.613, -11.2, 1.4)
pt3dadd(-15.806, 243.724, -11.2, 1.396)
pt3dadd(-15.853, 243.834, -11.2, 1.392)
pt3dadd(-15.901, 243.944, -11.2, 1.386)
pt3dadd(-15.949, 244.054, -11.2, 1.382)
pt3dadd(-16.001, 244.163, -11.2, 1.356)
pt3dadd(-16.055, 244.27, -11.2, 1.322)
pt3dadd(-16.108, 244.376, -11.2, 1.288)
}
}
proc shape3d_56() {
dend_5[16] { pt3dadd(-16.162, 244.484, -11.2, 1.254)
pt3dadd(-16.216, 244.591, -11.2, 1.22)
pt3dadd(-16.273, 244.697, -11.2, 1.162)
pt3dadd(-16.333, 244.8, -11.2, 1.082)
pt3dadd(-16.408, 244.891, -11.2, 1.01)
pt3dadd(-16.507, 244.96, -11.2, 0.95)
pt3dadd(-16.596, 245.033, -11.207, 0.902)
pt3dadd(-16.646, 245.134, -11.243, 0.888)
pt3dadd(-16.68, 245.239, -11.276, 0.876)
pt3dadd(-16.68, 245.354, -11.303, 0.866)
pt3dadd(-16.68, 245.47, -11.331, 0.854)
pt3dadd(-16.708, 245.574, -11.372, 0.836)
pt3dadd(-16.774, 245.663, -11.404, 0.804)
pt3dadd(-16.859, 245.741, -11.427, 0.764)
pt3dadd(-16.912, 245.839, -11.46, 0.724)
pt3dadd(-16.952, 245.944, -11.494, 0.684)
pt3dadd(-17.032, 246.026, -11.52, 0.656)
pt3dadd(-17.118, 246.104, -11.544, 0.628)
pt3dadd(-17.174, 246.113, -11.63, 0.616)
pt3dadd(-17.231, 246.119, -11.719, 0.604)
pt3dadd(-17.261, 246.127, -11.815, 0.642)
pt3dadd(-17.292, 246.149, -11.907, 0.688)
pt3dadd(-17.34, 246.212, -11.981, 0.73)
pt3dadd(-17.388, 246.276, -12.056, 0.772)
pt3dadd(-17.436, 246.34, -12.13, 0.814)
pt3dadd(-17.484, 246.406, -12.203, 0.858)
pt3dadd(-17.546, 246.49, -12.252, 0.92)
pt3dadd(-17.608, 246.575, -12.301, 0.98)
pt3dadd(-17.67, 246.659, -12.35, 1.042)
pt3dadd(-17.731, 246.744, -12.399, 1.102)
pt3dadd(-17.807, 246.798, -12.461, 1.216)
pt3dadd(-17.868, 246.853, -12.529, 1.312)
pt3dadd(-17.874, 246.917, -12.614, 1.334)
pt3dadd(-17.884, 246.986, -12.689, 1.354)
pt3dadd(-17.918, 247.102, -12.694, 1.332)
pt3dadd(-17.953, 247.216, -12.699, 1.31)
pt3dadd(-17.972, 247.334, -12.7, 1.276)
pt3dadd(-17.987, 247.453, -12.7, 1.238)
pt3dadd(-18.007, 247.571, -12.7, 1.204)
pt3dadd(-18.073, 247.67, -12.7, 1.198)
pt3dadd(-18.14, 247.77, -12.7, 1.19)
pt3dadd(-18.206, 247.87, -12.7, 1.184)
pt3dadd(-18.296, 247.94, -12.7, 1.19)
pt3dadd(-18.409, 247.98, -12.7, 1.212)
pt3dadd(-18.511, 248.03, -12.7, 1.234)
pt3dadd(-18.545, 248.146, -12.7, 1.266)
pt3dadd(-18.577, 248.261, -12.7, 1.298)
pt3dadd(-18.611, 248.376, -12.7, 1.328)
pt3dadd(-18.649, 248.49, -12.7, 1.35)
pt3dadd(-18.689, 248.603, -12.7, 1.372)
pt3dadd(-18.715, 248.719, -12.7, 1.35)
pt3dadd(-18.744, 248.836, -12.7, 1.318)
pt3dadd(-18.78, 248.95, -12.7, 1.302)
pt3dadd(-18.816, 249.065, -12.7, 1.284)
pt3dadd(-18.851, 249.179, -12.7, 1.264)
pt3dadd(-18.887, 249.294, -12.7, 1.248)
pt3dadd(-18.922, 249.408, -12.7, 1.23)
pt3dadd(-18.944, 249.527, -12.7, 1.222)
pt3dadd(-18.966, 249.644, -12.7, 1.212)
pt3dadd(-18.989, 249.762, -12.7, 1.204)
pt3dadd(-19.01, 249.88, -12.7, 1.196)
pt3dadd(-19.033, 249.998, -12.7, 1.188)
pt3dadd(-19.056, 250.116, -12.7, 1.18)
pt3dadd(-19.09, 250.231, -12.7, 1.176)
pt3dadd(-19.122, 250.346, -12.7, 1.17)
pt3dadd(-19.154, 250.462, -12.7, 1.166)
pt3dadd(-19.188, 250.578, -12.7, 1.162)
pt3dadd(-19.22, 250.693, -12.7, 1.158)
pt3dadd(-19.255, 250.807, -12.7, 1.156)
pt3dadd(-19.295, 250.921, -12.7, 1.156)
pt3dadd(-19.333, 251.035, -12.7, 1.156)
pt3dadd(-19.372, 251.148, -12.7, 1.156)
pt3dadd(-19.411, 251.262, -12.7, 1.156)
pt3dadd(-19.45, 251.376, -12.7, 1.156)
pt3dadd(-19.507, 251.48, -12.7, 1.146)
pt3dadd(-19.567, 251.585, -12.7, 1.136)
pt3dadd(-19.627, 251.688, -12.7, 1.126)
pt3dadd(-19.687, 251.792, -12.7, 1.116)
pt3dadd(-19.747, 251.897, -12.7, 1.108)
pt3dadd(-19.841, 251.966, -12.7, 1.104)
pt3dadd(-19.944, 252.028, -12.7, 1.104)
pt3dadd(-20.035, 252.104, -12.7, 1.098)
pt3dadd(-20.116, 252.192, -12.7, 1.086)
pt3dadd(-20.185, 252.289, -12.7, 1.074)
pt3dadd(-20.238, 252.397, -12.7, 1.064)
pt3dadd(-20.287, 252.506, -12.7, 1.054)
pt3dadd(-20.321, 252.622, -12.7, 1.054)
pt3dadd(-20.353, 252.737, -12.7, 1.054)
pt3dadd(-20.387, 252.852, -12.7, 1.104)
pt3dadd(-20.418, 252.967, -12.7, 1.162)
pt3dadd(-20.442, 253.085, -12.7, 1.2)
pt3dadd(-20.467, 253.202, -12.7, 1.238)
pt3dadd(-20.492, 253.32, -12.7, 1.276)
pt3dadd(-20.516, 253.438, -12.7, 1.314)
pt3dadd(-20.542, 253.555, -12.7, 1.354)
pt3dadd(-20.569, 253.672, -12.7, 1.392)
pt3dadd(-20.605, 253.786, -12.7, 1.432)
pt3dadd(-20.641, 253.901, -12.7, 1.474)
pt3dadd(-20.677, 254.015, -12.7, 1.514)
pt3dadd(-20.713, 254.13, -12.7, 1.554)
pt3dadd(-20.749, 254.244, -12.7, 1.594)
pt3dadd(-20.785, 254.359, -12.7, 1.622)
pt3dadd(-20.82, 254.473, -12.7, 1.646)
pt3dadd(-20.856, 254.587, -12.7, 1.668)
pt3dadd(-20.892, 254.702, -12.7, 1.69)
pt3dadd(-20.928, 254.816, -12.7, 1.712)
pt3dadd(-20.965, 254.93, -12.7, 1.732)
pt3dadd(-21.016, 255.04, -12.7, 1.732)
pt3dadd(-21.066, 255.148, -12.7, 1.732)
pt3dadd(-21.118, 255.257, -12.7, 1.732)
pt3dadd(-21.168, 255.366, -12.7, 1.732)
pt3dadd(-21.218, 255.475, -12.7, 1.732)
pt3dadd(-21.228, 255.593, -12.7, 1.72)
pt3dadd(-21.23, 255.713, -12.7, 1.706)
pt3dadd(-21.233, 255.833, -12.7, 1.692)
pt3dadd(-21.234, 255.953, -12.7, 1.676)
pt3dadd(-21.236, 256.073, -12.7, 1.662)
pt3dadd(-21.238, 256.193, -12.7, 1.648)
pt3dadd(-21.24, 256.313, -12.7, 1.634)
pt3dadd(-21.265, 256.43, -12.7, 1.624)
pt3dadd(-21.293, 256.547, -12.7, 1.616)
pt3dadd(-21.32, 256.663, -12.7, 1.606)
pt3dadd(-21.348, 256.78, -12.7, 1.598)
pt3dadd(-21.376, 256.897, -12.7, 1.59)
pt3dadd(-21.408, 257.011, -12.7, 1.582)
pt3dadd(-21.48, 257.107, -12.7, 1.576)
pt3dadd(-21.552, 257.203, -12.7, 1.572)
pt3dadd(-21.624, 257.299, -12.7, 1.566)
pt3dadd(-21.696, 257.395, -12.7, 1.562)
pt3dadd(-21.772, 257.488, -12.7, 1.556)
pt3dadd(-21.875, 257.548, -12.7, 1.556)
pt3dadd(-21.978, 257.609, -12.7, 1.556)
pt3dadd(-22.043, 257.71, -12.7, 1.526)
pt3dadd(-22.103, 257.813, -12.7, 1.49)
pt3dadd(-22.144, 257.924, -12.7, 1.444)
pt3dadd(-22.177, 258.04, -12.7, 1.392)
pt3dadd(-22.201, 258.157, -12.7, 1.342)
pt3dadd(-22.206, 258.277, -12.7, 1.3)
pt3dadd(-22.211, 258.397, -12.7, 1.256)
pt3dadd(-22.236, 258.511, -12.7, 1.224)
pt3dadd(-22.29, 258.618, -12.7, 1.206)
pt3dadd(-22.324, 258.733, -12.7, 1.21)
pt3dadd(-22.357, 258.848, -12.7, 1.214)
pt3dadd(-22.39, 258.964, -12.7, 1.218)
pt3dadd(-22.422, 259.08, -12.7, 1.222)
pt3dadd(-22.456, 259.195, -12.7, 1.228)
pt3dadd(-22.489, 259.31, -12.7, 1.232)
pt3dadd(-22.525, 259.424, -12.7, 1.242)
pt3dadd(-22.561, 259.54, -12.7, 1.25)
pt3dadd(-22.596, 259.654, -12.7, 1.26)
pt3dadd(-22.632, 259.768, -12.7, 1.268)
pt3dadd(-22.668, 259.883, -12.7, 1.278)
pt3dadd(-22.706, 259.997, -12.7, 1.274)
pt3dadd(-22.745, 260.11, -12.7, 1.266)
pt3dadd(-22.783, 260.224, -12.7, 1.256)
pt3dadd(-22.823, 260.338, -12.7, 1.248)
pt3dadd(-22.861, 260.45, -12.7, 1.238)
pt3dadd(-22.897, 260.566, -12.7, 1.23)
pt3dadd(-22.922, 260.682, -12.7, 1.226)
pt3dadd(-22.948, 260.8, -12.7, 1.222)
pt3dadd(-22.972, 260.917, -12.7, 1.218)
pt3dadd(-22.997, 261.035, -12.7, 1.212)
pt3dadd(-23.022, 261.152, -12.7, 1.208)
pt3dadd(-23.051, 261.268, -12.7, 1.206)
pt3dadd(-23.095, 261.379, -12.7, 1.206)
pt3dadd(-23.141, 261.491, -12.7, 1.206)
pt3dadd(-23.185, 261.602, -12.7, 1.206)
pt3dadd(-23.23, 261.714, -12.7, 1.206)
pt3dadd(-23.274, 261.826, -12.7, 1.206)
pt3dadd(-23.309, 261.94, -12.7, 1.228)
pt3dadd(-23.341, 262.055, -12.7, 1.254)
pt3dadd(-23.375, 262.171, -12.7, 1.282)
pt3dadd(-23.408, 262.286, -12.7, 1.308)
pt3dadd(-23.441, 262.402, -12.7, 1.334)
pt3dadd(-23.468, 262.518, -12.7, 1.364)
pt3dadd(-23.477, 262.638, -12.7, 1.398)
pt3dadd(-23.485, 262.757, -12.7, 1.432)
pt3dadd(-23.492, 262.877, -12.7, 1.466)
pt3dadd(-23.501, 262.997, -12.7, 1.5)
pt3dadd(-23.509, 263.117, -12.7, 1.534)
pt3dadd(-23.518, 263.236, -12.7, 1.57)
pt3dadd(-23.558, 263.346, -12.7, 1.616)
pt3dadd(-23.618, 263.449, -12.7, 1.67)
pt3dadd(-23.678, 263.554, -12.7, 1.724)
pt3dadd(-23.737, 263.658, -12.7, 1.778)
pt3dadd(-23.797, 263.761, -12.7, 1.832)
pt3dadd(-23.846, 263.87, -12.7, 1.872)
pt3dadd(-23.885, 263.984, -12.7, 1.9)
pt3dadd(-23.923, 264.097, -12.7, 1.926)
pt3dadd(-23.962, 264.211, -12.7, 1.954)
pt3dadd(-24.001, 264.325, -12.7, 1.982)
pt3dadd(-24.04, 264.439, -12.7, 2.008)
pt3dadd(-24.116, 264.53, -12.7, 2.004)
pt3dadd(-24.194, 264.622, -12.7, 1.998)
pt3dadd(-24.272, 264.713, -12.7, 1.994)
pt3dadd(-24.35, 264.804, -12.7, 1.988)
pt3dadd(-24.428, 264.895, -12.7, 1.984)
pt3dadd(-24.461, 265.01, -12.7, 1.97)
pt3dadd(-24.493, 265.127, -12.7, 1.956)
pt3dadd(-24.527, 265.242, -12.7, 1.944)
}
}
proc shape3d_57() {
dend_5[16] { pt3dadd(-24.559, 265.357, -12.7, 1.93)
pt3dadd(-24.592, 265.472, -12.7, 1.916)
pt3dadd(-24.626, 265.588, -12.7, 1.908)
pt3dadd(-24.666, 265.7, -12.7, 1.908)
pt3dadd(-24.704, 265.814, -12.7, 1.908)
pt3dadd(-24.743, 265.928, -12.7, 1.908)
pt3dadd(-24.782, 266.041, -12.7, 1.908)
pt3dadd(-24.821, 266.155, -12.7, 1.908)
pt3dadd(-24.846, 266.273, -12.7, 1.93)
pt3dadd(-24.868, 266.39, -12.7, 1.954)
pt3dadd(-24.89, 266.508, -12.7, 1.98)
pt3dadd(-24.912, 266.626, -12.7, 2.004)
pt3dadd(-24.935, 266.744, -12.7, 2.03)
pt3dadd(-24.956, 266.862, -12.7, 2.056)
pt3dadd(-24.988, 266.977, -12.7, 2.06)
pt3dadd(-25.021, 267.092, -12.7, 2.06)
pt3dadd(-25.054, 267.209, -12.7, 2.06)
pt3dadd(-25.087, 267.324, -12.7, 2.06)
pt3dadd(-25.121, 267.439, -12.7, 2.06)
pt3dadd(-25.157, 267.553, -12.7, 2.05)
pt3dadd(-25.211, 267.66, -12.7, 2.008)
pt3dadd(-25.265, 267.768, -12.7, 1.964)
pt3dadd(-25.318, 267.875, -12.7, 1.922)
pt3dadd(-25.372, 267.983, -12.7, 1.878)
pt3dadd(-25.426, 268.09, -12.7, 1.834)
pt3dadd(-25.448, 268.207, -12.7, 1.776)
pt3dadd(-25.47, 268.325, -12.7, 1.718)
pt3dadd(-25.493, 268.444, -12.7, 1.66)
pt3dadd(-25.514, 268.561, -12.7, 1.6)
pt3dadd(-25.537, 268.679, -12.7, 1.542)
pt3dadd(-25.56, 268.798, -12.7, 1.484)
pt3dadd(-25.601, 268.909, -12.7, 1.464)
pt3dadd(-25.643, 269.022, -12.7, 1.446)
pt3dadd(-25.684, 269.135, -12.7, 1.426)
pt3dadd(-25.726, 269.248, -12.7, 1.408)
pt3dadd(-25.768, 269.36, -12.7, 1.39)
pt3dadd(-25.812, 269.471, -12.7, 1.408)
pt3dadd(-25.859, 269.581, -12.7, 1.46)
pt3dadd(-25.907, 269.692, -12.7, 1.512)
pt3dadd(-25.955, 269.802, -12.7, 1.564)
pt3dadd(-26.002, 269.912, -12.7, 1.616)
pt3dadd(-26.053, 270.02, -12.7, 1.672)
pt3dadd(-26.116, 270.122, -12.7, 1.746)
pt3dadd(-26.179, 270.224, -12.7, 1.82)
pt3dadd(-26.242, 270.326, -12.7, 1.894)
pt3dadd(-26.304, 270.43, -12.7, 1.968)
pt3dadd(-26.364, 270.533, -12.7, 2.038)
pt3dadd(-26.39, 270.649, -12.7, 2.078)
pt3dadd(-26.418, 270.767, -12.7, 2.116)
pt3dadd(-26.446, 270.883, -12.7, 2.154)
pt3dadd(-26.473, 271, -12.7, 2.194)
pt3dadd(-26.501, 271.117, -12.7, 2.232)
pt3dadd(-26.528, 271.234, -12.7, 2.26)
pt3dadd(-26.555, 271.351, -12.7, 2.26)
pt3dadd(-26.582, 271.468, -12.7, 2.26)
pt3dadd(-26.61, 271.584, -12.7, 2.26)
pt3dadd(-26.638, 271.702, -12.7, 2.26)
pt3dadd(-26.665, 271.818, -12.7, 2.26)
pt3dadd(-26.713, 271.925, -12.7, 2.256)
pt3dadd(-26.785, 272.021, -12.7, 2.246)
pt3dadd(-26.857, 272.117, -12.7, 2.236)
pt3dadd(-26.929, 272.213, -12.7, 2.226)
pt3dadd(-27.001, 272.309, -12.7, 2.216)
pt3dadd(-27.06, 272.412, -12.7, 2.206)
pt3dadd(-27.104, 272.524, -12.7, 2.196)
pt3dadd(-27.15, 272.635, -12.7, 2.186)
pt3dadd(-27.194, 272.747, -12.7, 2.178)
pt3dadd(-27.239, 272.858, -12.7, 2.168)
pt3dadd(-27.281, 272.97, -12.7, 2.158)
pt3dadd(-27.304, 273.088, -12.7, 2.138)
pt3dadd(-27.326, 273.206, -12.7, 2.116)
pt3dadd(-27.348, 273.324, -12.7, 2.096)
pt3dadd(-27.371, 273.442, -12.7, 2.074)
pt3dadd(-27.392, 273.559, -12.7, 2.054)
pt3dadd(-27.419, 273.676, -12.7, 2.03)
pt3dadd(-27.481, 273.778, -12.7, 1.992)
pt3dadd(-27.545, 273.881, -12.7, 1.952)
pt3dadd(-27.607, 273.983, -12.7, 1.912)
pt3dadd(-27.671, 274.085, -12.7, 1.872)
pt3dadd(-27.733, 274.187, -12.7, 1.834)
}
dend_5[17] {pt3dclear()
pt3dadd(-27.733, 274.187, -12.7, 1.834)
pt3dadd(-27.766, 274.256, -12.7, 1.806)
pt3dadd(-27.816, 274.364, -12.7, 1.764)
pt3dadd(-27.866, 274.474, -12.7, 1.72)
pt3dadd(-27.917, 274.583, -12.7, 1.678)
pt3dadd(-27.967, 274.691, -12.7, 1.634)
pt3dadd(-28.034, 274.788, -12.7, 1.582)
pt3dadd(-28.128, 274.862, -12.7, 1.51)
pt3dadd(-28.223, 274.936, -12.7, 1.44)
pt3dadd(-28.321, 275.004, -12.7, 1.37)
pt3dadd(-28.418, 275.074, -12.7, 1.302)
pt3dadd(-28.478, 275.177, -12.7, 1.244)
pt3dadd(-28.54, 275.281, -12.7, 1.186)
pt3dadd(-28.582, 275.393, -12.7, 1.124)
pt3dadd(-28.621, 275.506, -12.7, 1.06)
pt3dadd(-28.652, 275.622, -12.7, 0.998)
pt3dadd(-28.676, 275.74, -12.7, 0.94)
pt3dadd(-28.746, 275.833, -12.7, 0.916)
pt3dadd(-28.828, 275.922, -12.7, 0.902)
pt3dadd(-28.908, 276.011, -12.7, 0.886)
pt3dadd(-28.988, 276.1, -12.7, 0.872)
pt3dadd(-29.069, 276.188, -12.7, 0.856)
pt3dadd(-29.119, 276.296, -12.698, 0.858)
pt3dadd(-29.165, 276.408, -12.696, 0.862)
pt3dadd(-29.21, 276.518, -12.694, 0.868)
pt3dadd(-29.255, 276.63, -12.692, 0.872)
pt3dadd(-29.3, 276.742, -12.69, 0.876)
pt3dadd(-29.35, 276.85, -12.678, 0.892)
pt3dadd(-29.401, 276.955, -12.659, 0.914)
pt3dadd(-29.453, 277.061, -12.639, 0.934)
pt3dadd(-29.504, 277.166, -12.621, 0.956)
pt3dadd(-29.556, 277.273, -12.601, 0.978)
pt3dadd(-29.591, 277.387, -12.6, 1.018)
pt3dadd(-29.623, 277.502, -12.6, 1.06)
pt3dadd(-29.657, 277.618, -12.6, 1.09)
pt3dadd(-29.69, 277.734, -12.6, 1.112)
pt3dadd(-29.726, 277.847, -12.6, 1.13)
pt3dadd(-29.808, 277.934, -12.6, 1.118)
pt3dadd(-29.89, 278.023, -12.6, 1.106)
pt3dadd(-29.999, 278.071, -12.6, 1.084)
pt3dadd(-30.109, 278.118, -12.6, 1.062)
pt3dadd(-30.206, 278.186, -12.594, 1.004)
pt3dadd(-30.293, 278.262, -12.574, 0.946)
pt3dadd(-30.374, 278.33, -12.528, 0.922)
pt3dadd(-30.456, 278.399, -12.482, 0.898)
pt3dadd(-30.538, 278.467, -12.435, 0.872)
pt3dadd(-30.617, 278.54, -12.392, 0.846)
pt3dadd(-30.69, 278.626, -12.358, 0.816)
pt3dadd(-30.763, 278.712, -12.323, 0.786)
pt3dadd(-30.836, 278.797, -12.289, 0.758)
pt3dadd(-30.91, 278.884, -12.255, 0.728)
pt3dadd(-30.972, 278.982, -12.235, 0.698)
pt3dadd(-31.036, 279.082, -12.215, 0.668)
pt3dadd(-31.099, 279.181, -12.195, 0.638)
pt3dadd(-31.16, 279.281, -12.2, 0.526)
pt3dadd(-31.19, 279.397, -12.197, 0.508)
pt3dadd(-31.2, 279.514, -12.178, 0.566)
pt3dadd(-31.2, 279.617, -12.129, 0.646)
pt3dadd(-31.224, 279.691, -12.056, 0.668)
pt3dadd(-31.291, 279.72, -11.98, 0.606)
pt3dadd(-31.39, 279.72, -11.926, 0.51)
pt3dadd(-31.505, 279.72, -11.899, 0.464)
pt3dadd(-31.621, 279.72, -11.871, 0.432)
pt3dadd(-31.718, 279.72, -11.815, 0.432)
pt3dadd(-31.818, 279.727, -11.762, 0.476)
pt3dadd(-31.928, 279.746, -11.725, 0.538)
pt3dadd(-32.028, 279.788, -11.706, 0.596)
pt3dadd(-32.112, 279.872, -11.723, 0.648)
pt3dadd(-32.197, 279.94, -11.757, 0.732)
pt3dadd(-32.287, 280.012, -11.773, 0.744)
pt3dadd(-32.377, 280.091, -11.78, 0.734)
pt3dadd(-32.467, 280.17, -11.787, 0.724)
pt3dadd(-32.557, 280.248, -11.794, 0.712)
pt3dadd(-32.647, 280.328, -11.8, 0.702)
pt3dadd(-32.724, 280.42, -11.8, 0.692)
pt3dadd(-32.802, 280.511, -11.8, 0.682)
pt3dadd(-32.88, 280.602, -11.8, 0.672)
pt3dadd(-32.958, 280.693, -11.8, 0.662)
pt3dadd(-33.032, 280.783, -11.807, 0.65)
pt3dadd(-33.086, 280.867, -11.864, 0.622)
pt3dadd(-33.139, 280.95, -11.921, 0.608)
pt3dadd(-33.192, 281.033, -11.977, 0.622)
pt3dadd(-33.264, 281.099, -11.966, 0.636)
pt3dadd(-33.347, 281.152, -11.909, 0.65)
pt3dadd(-33.426, 281.218, -11.859, 0.7)
pt3dadd(-33.476, 281.305, -11.853, 0.746)
pt3dadd(-33.505, 281.41, -11.889, 0.78)
pt3dadd(-33.598, 281.486, -11.892, 0.79)
pt3dadd(-33.69, 281.562, -11.894, 0.8)
pt3dadd(-33.782, 281.638, -11.896, 0.81)
pt3dadd(-33.875, 281.714, -11.898, 0.82)
pt3dadd(-33.964, 281.794, -11.906, 0.828)
pt3dadd(-34.038, 281.882, -11.932, 0.828)
pt3dadd(-34.112, 281.972, -11.957, 0.828)
pt3dadd(-34.186, 282.061, -11.983, 0.828)
pt3dadd(-34.26, 282.151, -12.009, 0.828)
pt3dadd(-34.362, 282.21, -12.009, 0.834)
pt3dadd(-34.469, 282.268, -12.005, 0.842)
pt3dadd(-34.574, 282.324, -12.003, 0.848)
pt3dadd(-34.676, 282.384, -12, 0.856)
pt3dadd(-34.757, 282.473, -12, 0.866)
pt3dadd(-34.838, 282.562, -12, 0.876)
pt3dadd(-34.919, 282.65, -12, 0.886)
pt3dadd(-34.999, 282.739, -12, 0.896)
pt3dadd(-35.076, 282.832, -12, 0.904)
pt3dadd(-35.132, 282.937, -12, 0.91)
pt3dadd(-35.19, 283.043, -12, 0.914)
pt3dadd(-35.246, 283.148, -12, 0.92)
pt3dadd(-35.304, 283.254, -12, 0.924)
pt3dadd(-35.36, 283.36, -12, 0.93)
}
dend_5[18] {pt3dclear()
pt3dadd(-35.36, 283.36, -12, 0.93)
pt3dadd(-35.38, 283.386, -12.006, 0.928)
pt3dadd(-35.449, 283.48, -12.029, 0.922)
pt3dadd(-35.519, 283.573, -12.052, 0.916)
pt3dadd(-35.588, 283.668, -12.074, 0.91)
pt3dadd(-35.658, 283.762, -12.097, 0.904)
pt3dadd(-35.748, 283.834, -12.12, 0.894)
pt3dadd(-35.843, 283.903, -12.142, 0.882)
pt3dadd(-35.936, 283.973, -12.165, 0.872)
pt3dadd(-36.03, 284.042, -12.188, 0.86)
}
}
proc shape3d_58() {
dend_5[18] { pt3dadd(-36.108, 284.126, -12.21, 0.852)
pt3dadd(-36.167, 284.227, -12.233, 0.846)
pt3dadd(-36.227, 284.328, -12.255, 0.84)
pt3dadd(-36.286, 284.429, -12.277, 0.834)
pt3dadd(-36.346, 284.53, -12.299, 0.828)
pt3dadd(-36.356, 284.65, -12.3, 0.846)
pt3dadd(-36.366, 284.768, -12.3, 0.864)
pt3dadd(-36.382, 284.887, -12.3, 0.882)
pt3dadd(-36.428, 284.998, -12.3, 0.904)
pt3dadd(-36.475, 285.108, -12.3, 0.926)
pt3dadd(-36.547, 285.204, -12.3, 0.918)
pt3dadd(-36.622, 285.298, -12.3, 0.906)
pt3dadd(-36.73, 285.336, -12.3, 0.868)
pt3dadd(-36.847, 285.356, -12.3, 0.82)
pt3dadd(-36.964, 285.382, -12.3, 0.772)
pt3dadd(-37.072, 285.436, -12.3, 0.74)
pt3dadd(-37.178, 285.49, -12.3, 0.706)
pt3dadd(-37.285, 285.544, -12.3, 0.672)
pt3dadd(-37.363, 285.623, -12.3, 0.652)
pt3dadd(-37.404, 285.736, -12.3, 0.652)
pt3dadd(-37.44, 285.85, -12.3, 0.66)
pt3dadd(-37.441, 285.97, -12.3, 0.732)
pt3dadd(-37.456, 286.088, -12.3, 0.768)
pt3dadd(-37.471, 286.207, -12.3, 0.806)
pt3dadd(-37.493, 286.325, -12.3, 0.836)
pt3dadd(-37.525, 286.441, -12.3, 0.858)
pt3dadd(-37.559, 286.556, -12.3, 0.878)
pt3dadd(-37.619, 286.66, -12.3, 0.878)
pt3dadd(-37.68, 286.764, -12.3, 0.878)
pt3dadd(-37.778, 286.823, -12.3, 0.854)
pt3dadd(-37.889, 286.87, -12.3, 0.82)
pt3dadd(-37.973, 286.945, -12.3, 0.78)
pt3dadd(-38.027, 287.052, -12.3, 0.728)
pt3dadd(-38.101, 287.147, -12.3, 0.718)
pt3dadd(-38.177, 287.24, -12.3, 0.708)
pt3dadd(-38.251, 287.334, -12.3, 0.698)
pt3dadd(-38.326, 287.428, -12.3, 0.688)
pt3dadd(-38.401, 287.521, -12.3, 0.678)
pt3dadd(-38.484, 287.604, -12.323, 0.684)
pt3dadd(-38.567, 287.687, -12.346, 0.69)
pt3dadd(-38.648, 287.768, -12.369, 0.696)
pt3dadd(-38.731, 287.851, -12.392, 0.702)
pt3dadd(-38.82, 287.932, -12.4, 0.706)
pt3dadd(-38.911, 288.008, -12.4, 0.712)
pt3dadd(-39.002, 288.086, -12.4, 0.716)
pt3dadd(-39.094, 288.164, -12.4, 0.722)
pt3dadd(-39.185, 288.242, -12.4, 0.726)
pt3dadd(-39.268, 288.33, -12.4, 0.732)
pt3dadd(-39.346, 288.421, -12.4, 0.736)
pt3dadd(-39.422, 288.512, -12.4, 0.742)
pt3dadd(-39.5, 288.604, -12.4, 0.746)
pt3dadd(-39.578, 288.695, -12.4, 0.752)
pt3dadd(-39.641, 288.797, -12.4, 0.754)
pt3dadd(-39.697, 288.902, -12.4, 0.754)
pt3dadd(-39.755, 289.008, -12.4, 0.754)
pt3dadd(-39.811, 289.114, -12.4, 0.754)
pt3dadd(-39.868, 289.22, -12.4, 0.754)
pt3dadd(-39.926, 289.325, -12.4, 0.754)
pt3dadd(-39.986, 289.429, -12.4, 0.754)
pt3dadd(-40.045, 289.532, -12.4, 0.754)
pt3dadd(-40.105, 289.637, -12.4, 0.754)
pt3dadd(-40.165, 289.74, -12.4, 0.754)
pt3dadd(-40.228, 289.843, -12.4, 0.754)
pt3dadd(-40.295, 289.943, -12.4, 0.754)
pt3dadd(-40.361, 290.044, -12.4, 0.754)
pt3dadd(-40.427, 290.143, -12.4, 0.754)
pt3dadd(-40.493, 290.244, -12.4, 0.754)
pt3dadd(-40.571, 290.332, -12.4, 0.752)
pt3dadd(-40.672, 290.398, -12.4, 0.746)
pt3dadd(-40.771, 290.464, -12.4, 0.742)
pt3dadd(-40.872, 290.53, -12.4, 0.736)
pt3dadd(-40.972, 290.596, -12.4, 0.732)
pt3dadd(-41.074, 290.657, -12.393, 0.726)
pt3dadd(-41.178, 290.71, -12.371, 0.72)
pt3dadd(-41.284, 290.761, -12.349, 0.716)
pt3dadd(-41.388, 290.814, -12.328, 0.71)
pt3dadd(-41.492, 290.867, -12.306, 0.704)
pt3dadd(-41.602, 290.899, -12.276, 0.686)
pt3dadd(-41.712, 290.924, -12.243, 0.66)
pt3dadd(-41.778, 291.008, -12.222, 0.628)
pt3dadd(-41.822, 291.118, -12.206, 0.592)
pt3dadd(-41.85, 291.233, -12.2, 0.548)
pt3dadd(-41.864, 291.352, -12.2, 0.502)
pt3dadd(-41.879, 291.472, -12.2, 0.456)
pt3dadd(-41.88, 291.59, -12.2, 0.414)
pt3dadd(-41.88, 291.71, -12.2, 0.372)
pt3dadd(-41.88, 291.83, -12.2, 0.33)
pt3dadd(-41.88, 291.95, -12.2, 0.292)
pt3dadd(-41.88, 292.07, -12.2, 0.254)
pt3dadd(-41.88, 292.19, -12.2, 0.252)
pt3dadd(-41.88, 292.31, -12.2, 0.252)
pt3dadd(-41.88, 292.43, -12.2, 0.252)
pt3dadd(-41.88, 292.549, -12.184, 0.268)
pt3dadd(-41.88, 292.668, -12.167, 0.288)
pt3dadd(-41.89, 292.77, -12.13, 0.314)
pt3dadd(-41.917, 292.841, -12.053, 0.354)
pt3dadd(-41.984, 292.896, -12.007, 0.382)
pt3dadd(-42.098, 292.932, -11.997, 0.394)
pt3dadd(-42.205, 292.973, -11.976, 0.402)
pt3dadd(-42.286, 293.027, -11.92, 0.402)
pt3dadd(-42.396, 293.029, -11.881, 0.392)
pt3dadd(-42.506, 293.033, -11.841, 0.382)
pt3dadd(-42.617, 293.035, -11.802, 0.372)
pt3dadd(-42.727, 293.038, -11.762, 0.362)
pt3dadd(-42.838, 293.04, -11.723, 0.352)
pt3dadd(-42.938, 293.089, -11.756, 0.336)
pt3dadd(-43.042, 293.131, -11.764, 0.316)
pt3dadd(-43.15, 293.16, -11.728, 0.288)
pt3dadd(-43.242, 293.222, -11.708, 0.27)
pt3dadd(-43.319, 293.314, -11.703, 0.258)
pt3dadd(-43.375, 293.416, -11.7, 0.246)
pt3dadd(-43.409, 293.531, -11.7, 0.236)
pt3dadd(-43.44, 293.647, -11.7, 0.226)
pt3dadd(-43.447, 293.767, -11.7, 0.226)
pt3dadd(-43.466, 293.881, -11.7, 0.226)
pt3dadd(-43.549, 293.969, -11.7, 0.226)
pt3dadd(-43.63, 294.058, -11.7, 0.226)
pt3dadd(-43.675, 294.168, -11.7, 0.226)
pt3dadd(-43.721, 294.28, -11.7, 0.226)
pt3dadd(-43.822, 294.323, -11.7, 0.226)
pt3dadd(-43.939, 294.343, -11.7, 0.226)
pt3dadd(-44.058, 294.36, -11.7, 0.228)
pt3dadd(-44.178, 294.36, -11.7, 0.236)
pt3dadd(-44.298, 294.36, -11.7, 0.244)
pt3dadd(-44.418, 294.364, -11.7, 0.254)
pt3dadd(-44.536, 294.385, -11.7, 0.272)
pt3dadd(-44.653, 294.407, -11.7, 0.288)
pt3dadd(-44.772, 294.428, -11.7, 0.306)
pt3dadd(-44.89, 294.45, -11.7, 0.324)
pt3dadd(-44.98, 294.526, -11.705, 0.38)
pt3dadd(-45.065, 294.611, -11.71, 0.44)
pt3dadd(-45.13, 294.702, -11.741, 0.494)
pt3dadd(-45.19, 294.797, -11.778, 0.546)
pt3dadd(-45.229, 294.9, -11.807, 0.594)
pt3dadd(-45.234, 295.018, -11.825, 0.634)
pt3dadd(-45.24, 295.135, -11.843, 0.674)
pt3dadd(-45.246, 295.216, -11.913, 0.728)
pt3dadd(-45.277, 295.3, -11.98, 0.728)
pt3dadd(-45.307, 295.382, -12.047, 0.728)
pt3dadd(-45.338, 295.466, -12.114, 0.728)
pt3dadd(-45.37, 295.55, -12.181, 0.728)
pt3dadd(-45.395, 295.632, -12.251, 0.718)
pt3dadd(-45.419, 295.714, -12.321, 0.706)
pt3dadd(-45.443, 295.795, -12.392, 0.696)
pt3dadd(-45.467, 295.877, -12.462, 0.684)
pt3dadd(-45.48, 295.97, -12.521, 0.672)
pt3dadd(-45.48, 296.077, -12.566, 0.662)
pt3dadd(-45.48, 296.177, -12.618, 0.656)
pt3dadd(-45.48, 296.252, -12.696, 0.668)
pt3dadd(-45.481, 296.332, -12.768, 0.68)
pt3dadd(-45.498, 296.449, -12.782, 0.702)
pt3dadd(-45.515, 296.567, -12.796, 0.722)
pt3dadd(-45.574, 296.666, -12.8, 0.736)
pt3dadd(-45.649, 296.76, -12.8, 0.748)
pt3dadd(-45.703, 296.84, -12.843, 0.754)
pt3dadd(-45.743, 296.911, -12.916, 0.754)
pt3dadd(-45.782, 296.982, -12.99, 0.754)
pt3dadd(-45.829, 297.042, -13.067, 0.754)
pt3dadd(-45.88, 297.094, -13.147, 0.754)
pt3dadd(-45.98, 297.113, -13.182, 0.73)
pt3dadd(-46.098, 297.12, -13.198, 0.694)
pt3dadd(-46.216, 297.12, -13.182, 0.638)
pt3dadd(-46.321, 297.12, -13.139, 0.634)
pt3dadd(-46.415, 297.12, -13.076, 0.732)
pt3dadd(-46.507, 297.149, -13.02, 0.844)
pt3dadd(-46.607, 297.194, -12.98, 0.846)
pt3dadd(-46.706, 297.241, -12.939, 0.834)
pt3dadd(-46.805, 297.287, -12.898, 0.822)
pt3dadd(-46.903, 297.334, -12.857, 0.81)
pt3dadd(-46.986, 297.36, -12.796, 0.784)
pt3dadd(-47.047, 297.36, -12.71, 0.738)
pt3dadd(-47.12, 297.36, -12.636, 0.698)
pt3dadd(-47.233, 297.36, -12.604, 0.676)
pt3dadd(-47.347, 297.36, -12.571, 0.656)
pt3dadd(-47.449, 297.404, -12.535, 0.676)
pt3dadd(-47.549, 297.455, -12.5, 0.704)
pt3dadd(-47.652, 297.516, -12.5, 0.726)
pt3dadd(-47.755, 297.576, -12.5, 0.75)
pt3dadd(-47.869, 297.614, -12.5, 0.78)
pt3dadd(-47.986, 297.643, -12.5, 0.804)
pt3dadd(-48.103, 297.664, -12.5, 0.804)
pt3dadd(-48.222, 297.683, -12.5, 0.804)
pt3dadd(-48.341, 297.703, -12.5, 0.804)
pt3dadd(-48.458, 297.722, -12.5, 0.804)
pt3dadd(-48.577, 297.743, -12.5, 0.804)
pt3dadd(-48.694, 297.767, -12.5, 0.804)
pt3dadd(-48.802, 297.821, -12.5, 0.814)
pt3dadd(-48.908, 297.874, -12.5, 0.824)
pt3dadd(-49.016, 297.928, -12.5, 0.834)
pt3dadd(-49.123, 297.982, -12.5, 0.844)
pt3dadd(-49.23, 298.036, -12.5, 0.852)
pt3dadd(-49.338, 298.09, -12.5, 0.846)
pt3dadd(-49.445, 298.142, -12.5, 0.836)
pt3dadd(-49.553, 298.196, -12.5, 0.826)
pt3dadd(-49.66, 298.25, -12.5, 0.816)
pt3dadd(-49.768, 298.303, -12.5, 0.806)
pt3dadd(-49.87, 298.358, -12.521, 0.792)
pt3dadd(-49.97, 298.412, -12.552, 0.774)
pt3dadd(-50.07, 298.468, -12.582, 0.758)
pt3dadd(-50.171, 298.522, -12.612, 0.74)
}
}
proc shape3d_59() {
dend_5[18] { pt3dadd(-50.254, 298.573, -12.66, 0.712)
pt3dadd(-50.294, 298.615, -12.747, 0.66)
pt3dadd(-50.36, 298.651, -12.818, 0.632)
pt3dadd(-50.464, 298.679, -12.864, 0.646)
pt3dadd(-50.552, 298.735, -12.9, 0.664)
pt3dadd(-50.623, 298.828, -12.923, 0.692)
pt3dadd(-50.683, 298.915, -12.966, 0.712)
pt3dadd(-50.737, 298.998, -13.023, 0.726)
pt3dadd(-50.762, 299.101, -13.066, 0.698)
pt3dadd(-50.794, 299.208, -13.1, 0.676)
pt3dadd(-50.84, 299.315, -13.124, 0.67)
pt3dadd(-50.887, 299.423, -13.148, 0.664)
pt3dadd(-50.933, 299.53, -13.172, 0.66)
pt3dadd(-50.98, 299.636, -13.196, 0.654)
pt3dadd(-51.037, 299.74, -13.2, 0.672)
pt3dadd(-51.098, 299.844, -13.2, 0.694)
pt3dadd(-51.19, 299.915, -13.2, 0.732)
pt3dadd(-51.296, 299.969, -13.2, 0.778)
pt3dadd(-51.383, 300.043, -13.202, 0.818)
pt3dadd(-51.439, 300.15, -13.207, 0.854)
pt3dadd(-51.487, 300.246, -13.232, 0.876)
pt3dadd(-51.516, 300.317, -13.309, 0.862)
pt3dadd(-51.578, 300.364, -13.367, 0.828)
pt3dadd(-51.692, 300.372, -13.396, 0.762)
pt3dadd(-51.752, 300.464, -13.419, 0.73)
pt3dadd(-51.805, 300.57, -13.441, 0.702)
pt3dadd(-51.857, 300.674, -13.463, 0.674)
pt3dadd(-51.91, 300.779, -13.485, 0.648)
pt3dadd(-51.958, 300.887, -13.5, 0.626)
pt3dadd(-51.997, 301, -13.5, 0.616)
pt3dadd(-52.036, 301.114, -13.5, 0.608)
pt3dadd(-52.074, 301.228, -13.5, 0.598)
pt3dadd(-52.114, 301.34, -13.5, 0.588)
pt3dadd(-52.152, 301.454, -13.5, 0.58)
pt3dadd(-52.207, 301.559, -13.513, 0.588)
pt3dadd(-52.268, 301.66, -13.53, 0.6)
pt3dadd(-52.34, 301.746, -13.563, 0.626)
pt3dadd(-52.416, 301.828, -13.6, 0.652)
pt3dadd(-52.526, 301.874, -13.6, 0.652)
pt3dadd(-52.637, 301.921, -13.6, 0.652)
pt3dadd(-52.748, 301.967, -13.6, 0.652)
pt3dadd(-52.859, 302.014, -13.6, 0.652)
pt3dadd(-52.964, 302.069, -13.6, 0.66)
pt3dadd(-53.066, 302.134, -13.6, 0.678)
pt3dadd(-53.174, 302.184, -13.6, 0.692)
pt3dadd(-53.284, 302.234, -13.6, 0.706)
pt3dadd(-53.393, 302.285, -13.6, 0.72)
pt3dadd(-53.501, 302.335, -13.6, 0.734)
pt3dadd(-53.61, 302.386, -13.6, 0.75)
pt3dadd(-53.71, 302.452, -13.6, 0.75)
pt3dadd(-53.806, 302.524, -13.6, 0.744)
pt3dadd(-53.902, 302.596, -13.6, 0.74)
pt3dadd(-53.998, 302.668, -13.6, 0.734)
pt3dadd(-54.094, 302.74, -13.6, 0.73)
pt3dadd(-54.196, 302.798, -13.616, 0.712)
pt3dadd(-54.301, 302.85, -13.638, 0.69)
pt3dadd(-54.406, 302.903, -13.66, 0.668)
pt3dadd(-54.51, 302.956, -13.681, 0.646)
pt3dadd(-54.611, 303.008, -13.709, 0.622)
pt3dadd(-54.69, 303.064, -13.768, 0.586)
pt3dadd(-54.768, 303.119, -13.828, 0.548)
pt3dadd(-54.846, 303.174, -13.888, 0.512)
pt3dadd(-54.922, 303.228, -13.95, 0.476)
pt3dadd(-54.946, 303.252, -14.046, 0.452)
pt3dadd(-54.97, 303.276, -14.142, 0.43)
pt3dadd(-55.037, 303.318, -14.214, 0.426)
pt3dadd(-55.112, 303.364, -14.283, 0.43)
pt3dadd(-55.188, 303.418, -14.346, 0.474)
pt3dadd(-55.258, 303.487, -14.391, 0.51)
pt3dadd(-55.314, 303.594, -14.396, 0.534)
pt3dadd(-55.376, 303.695, -14.4, 0.554)
pt3dadd(-55.466, 303.774, -14.4, 0.57)
pt3dadd(-55.556, 303.852, -14.4, 0.584)
pt3dadd(-55.648, 303.931, -14.4, 0.598)
pt3dadd(-55.751, 303.99, -14.4, 0.582)
pt3dadd(-55.861, 304.037, -14.4, 0.548)
pt3dadd(-55.974, 304.072, -14.4, 0.508)
pt3dadd(-56.086, 304.11, -14.4, 0.474)
pt3dadd(-56.185, 304.176, -14.4, 0.47)
pt3dadd(-56.286, 304.242, -14.4, 0.464)
pt3dadd(-56.386, 304.308, -14.4, 0.46)
pt3dadd(-56.486, 304.374, -14.4, 0.454)
pt3dadd(-56.59, 304.434, -14.4, 0.458)
pt3dadd(-56.699, 304.484, -14.4, 0.472)
pt3dadd(-56.807, 304.535, -14.4, 0.486)
pt3dadd(-56.916, 304.585, -14.4, 0.5)
pt3dadd(-57.025, 304.636, -14.4, 0.514)
pt3dadd(-57.132, 304.69, -14.399, 0.528)
pt3dadd(-57.227, 304.762, -14.392, 0.534)
pt3dadd(-57.323, 304.835, -14.385, 0.538)
pt3dadd(-57.418, 304.907, -14.378, 0.544)
pt3dadd(-57.512, 304.98, -14.371, 0.548)
pt3dadd(-57.602, 305.056, -14.355, 0.552)
pt3dadd(-57.682, 305.135, -14.321, 0.552)
pt3dadd(-57.749, 305.222, -14.341, 0.552)
pt3dadd(-57.809, 305.311, -14.385, 0.552)
pt3dadd(-57.883, 305.382, -14.435, 0.592)
pt3dadd(-57.952, 305.447, -14.494, 0.634)
pt3dadd(-57.977, 305.485, -14.586, 0.67)
pt3dadd(-58.009, 305.52, -14.676, 0.708)
pt3dadd(-58.084, 305.52, -14.754, 0.742)
pt3dadd(-58.12, 305.549, -14.843, 0.75)
pt3dadd(-58.139, 305.59, -14.935, 0.744)
pt3dadd(-58.158, 305.63, -15.028, 0.74)
pt3dadd(-58.177, 305.671, -15.121, 0.734)
pt3dadd(-58.196, 305.712, -15.213, 0.73)
pt3dadd(-58.213, 305.772, -15.298, 0.728)
pt3dadd(-58.231, 305.839, -15.38, 0.728)
pt3dadd(-58.248, 305.905, -15.462, 0.728)
pt3dadd(-58.266, 305.971, -15.544, 0.728)
pt3dadd(-58.288, 306.041, -15.623, 0.728)
pt3dadd(-58.325, 306.119, -15.692, 0.728)
pt3dadd(-58.363, 306.198, -15.76, 0.728)
pt3dadd(-58.4, 306.277, -15.828, 0.728)
pt3dadd(-58.439, 306.356, -15.897, 0.728)
pt3dadd(-58.53, 306.431, -15.9, 0.75)
pt3dadd(-58.624, 306.506, -15.9, 0.774)
pt3dadd(-58.656, 306.61, -15.931, 0.798)
pt3dadd(-58.675, 306.719, -15.968, 0.822)
pt3dadd(-58.694, 306.786, -16.044, 0.856)
pt3dadd(-58.715, 306.839, -16.132, 0.894)
pt3dadd(-58.757, 306.89, -16.214, 0.914)
pt3dadd(-58.808, 306.942, -16.293, 0.928)
pt3dadd(-58.865, 306.997, -16.369, 0.948)
pt3dadd(-58.937, 307.079, -16.393, 0.972)
pt3dadd(-59.015, 307.17, -16.398, 0.996)
pt3dadd(-59.087, 307.242, -16.443, 1.062)
pt3dadd(-59.155, 307.303, -16.507, 1.15)
pt3dadd(-59.16, 307.315, -16.604, 1.188)
pt3dadd(-59.16, 307.325, -16.704, 1.224)
pt3dadd(-59.161, 307.346, -16.799, 1.258)
pt3dadd(-59.167, 307.43, -16.87, 1.27)
pt3dadd(-59.178, 307.516, -16.938, 1.278)
pt3dadd(-59.227, 307.606, -16.991, 1.252)
pt3dadd(-59.276, 307.696, -17.043, 1.228)
pt3dadd(-59.329, 307.786, -17.09, 1.202)
pt3dadd(-59.408, 307.876, -17.095, 1.178)
pt3dadd(-59.484, 307.968, -17.1, 1.158)
pt3dadd(-59.539, 308.071, -17.113, 1.188)
pt3dadd(-59.596, 308.166, -17.152, 1.212)
pt3dadd(-59.652, 308.26, -17.192, 1.236)
pt3dadd(-59.708, 308.354, -17.231, 1.26)
pt3dadd(-59.766, 308.449, -17.269, 1.284)
pt3dadd(-59.83, 308.549, -17.291, 1.306)
pt3dadd(-59.892, 308.647, -17.314, 1.328)
pt3dadd(-59.954, 308.746, -17.336, 1.35)
pt3dadd(-60.017, 308.844, -17.359, 1.372)
pt3dadd(-60.107, 308.906, -17.389, 1.372)
pt3dadd(-60.211, 308.948, -17.424, 1.36)
pt3dadd(-60.312, 308.996, -17.459, 1.288)
pt3dadd(-60.413, 309.046, -17.495, 1.194)
pt3dadd(-60.446, 309.152, -17.513, 1.106)
pt3dadd(-60.47, 309.269, -17.527, 1.018)
pt3dadd(-60.48, 309.373, -17.569, 0.94)
pt3dadd(-60.48, 309.467, -17.631, 0.868)
pt3dadd(-60.48, 309.566, -17.686, 0.808)
pt3dadd(-60.48, 309.673, -17.73, 0.756)
pt3dadd(-60.522, 309.763, -17.785, 0.714)
pt3dadd(-60.563, 309.856, -17.838, 0.678)
pt3dadd(-60.582, 309.968, -17.869, 0.678)
pt3dadd(-60.6, 310.081, -17.9, 0.678)
pt3dadd(-60.6, 310.2, -17.913, 0.706)
pt3dadd(-60.6, 310.319, -17.925, 0.734)
pt3dadd(-60.6, 310.422, -17.959, 0.768)
pt3dadd(-60.6, 310.49, -18.042, 0.814)
pt3dadd(-60.6, 310.553, -18.126, 0.854)
pt3dadd(-60.604, 310.586, -18.222, 0.854)
pt3dadd(-60.607, 310.62, -18.318, 0.854)
pt3dadd(-60.611, 310.654, -18.414, 0.854)
pt3dadd(-60.632, 310.698, -18.491, 0.846)
pt3dadd(-60.72, 310.778, -18.503, 0.808)
pt3dadd(-60.809, 310.856, -18.52, 0.738)
pt3dadd(-60.893, 310.907, -18.574, 0.67)
pt3dadd(-60.976, 310.948, -18.638, 0.658)
pt3dadd(-61.058, 310.99, -18.702, 0.646)
pt3dadd(-61.141, 311.03, -18.765, 0.634)
pt3dadd(-61.226, 311.078, -18.823, 0.626)
pt3dadd(-61.314, 311.134, -18.874, 0.62)
pt3dadd(-61.4, 311.188, -18.926, 0.612)
pt3dadd(-61.488, 311.243, -18.977, 0.606)
pt3dadd(-61.555, 311.28, -19.043, 0.602)
pt3dadd(-61.582, 311.28, -19.141, 0.602)
pt3dadd(-61.608, 311.28, -19.238, 0.602)
pt3dadd(-61.709, 311.294, -19.271, 0.602)
pt3dadd(-61.825, 311.311, -19.291, 0.602)
pt3dadd(-61.926, 311.363, -19.3, 0.608)
pt3dadd(-62.014, 311.444, -19.3, 0.62)
pt3dadd(-62.087, 311.532, -19.317, 0.644)
pt3dadd(-62.138, 311.627, -19.36, 0.686)
pt3dadd(-62.179, 311.711, -19.42, 0.752)
pt3dadd(-62.237, 311.782, -19.473, 0.812)
pt3dadd(-62.338, 311.843, -19.49, 0.838)
pt3dadd(-62.426, 311.915, -19.514, 0.848)
pt3dadd(-62.492, 312.004, -19.552, 0.834)
pt3dadd(-62.52, 312.092, -19.607, 0.808)
pt3dadd(-62.52, 312.18, -19.675, 0.772)
pt3dadd(-62.522, 312.257, -19.751, 0.742)
pt3dadd(-62.53, 312.32, -19.835, 0.718)
pt3dadd(-62.55, 312.401, -19.892, 0.704)
pt3dadd(-62.597, 312.511, -19.899, 0.704)
}
}
proc shape3d_60() {
dend_5[18] { pt3dadd(-62.608, 312.605, -19.958, 0.712)
pt3dadd(-62.616, 312.697, -20.021, 0.724)
pt3dadd(-62.624, 312.791, -20.084, 0.734)
pt3dadd(-62.633, 312.883, -20.148, 0.744)
pt3dadd(-62.636, 312.97, -20.215, 0.756)
pt3dadd(-62.612, 313.025, -20.302, 0.766)
pt3dadd(-62.59, 313.079, -20.388, 0.776)
pt3dadd(-62.567, 313.134, -20.475, 0.788)
pt3dadd(-62.543, 313.189, -20.562, 0.798)
pt3dadd(-62.53, 313.241, -20.651, 0.798)
pt3dadd(-62.524, 313.289, -20.742, 0.786)
pt3dadd(-62.503, 313.352, -20.821, 0.758)
pt3dadd(-62.459, 313.441, -20.876, 0.702)
pt3dadd(-62.428, 313.548, -20.9, 0.65)
pt3dadd(-62.407, 313.666, -20.9, 0.602)
pt3dadd(-62.387, 313.784, -20.9, 0.554)
pt3dadd(-62.348, 313.897, -20.9, 0.522)
pt3dadd(-62.308, 314.011, -20.9, 0.49)
pt3dadd(-62.287, 314.125, -20.918, 0.466)
pt3dadd(-62.275, 314.238, -20.948, 0.452)
pt3dadd(-62.23, 314.34, -20.983, 0.452)
pt3dadd(-62.184, 314.443, -21.019, 0.452)
pt3dadd(-62.138, 314.546, -21.054, 0.452)
pt3dadd(-62.093, 314.648, -21.089, 0.452)
pt3dadd(-62.076, 314.764, -21.1, 0.454)
pt3dadd(-62.07, 314.882, -21.1, 0.458)
pt3dadd(-62.064, 315.002, -21.1, 0.462)
pt3dadd(-62.058, 315.122, -21.1, 0.466)
pt3dadd(-62.052, 315.242, -21.1, 0.47)
pt3dadd(-62.046, 315.362, -21.1, 0.474)
pt3dadd(-62.04, 315.482, -21.1, 0.478)
pt3dadd(-62.02, 315.599, -21.119, 0.486)
pt3dadd(-61.999, 315.714, -21.138, 0.496)
pt3dadd(-61.979, 315.83, -21.157, 0.506)
pt3dadd(-61.958, 315.947, -21.176, 0.516)
pt3dadd(-61.938, 316.062, -21.195, 0.524)
pt3dadd(-61.916, 316.18, -21.2, 0.534)
pt3dadd(-61.895, 316.298, -21.2, 0.542)
pt3dadd(-61.872, 316.416, -21.2, 0.55)
pt3dadd(-61.85, 316.534, -21.2, 0.558)
pt3dadd(-61.828, 316.651, -21.2, 0.568)
pt3dadd(-61.806, 316.77, -21.2, 0.576)
pt3dadd(-61.76, 316.88, -21.2, 0.578)
pt3dadd(-61.711, 316.988, -21.2, 0.552)
pt3dadd(-61.687, 317.106, -21.2, 0.578)
pt3dadd(-61.68, 317.226, -21.2, 0.616)
pt3dadd(-61.68, 317.346, -21.2, 0.628)
pt3dadd(-61.688, 317.465, -21.2, 0.612)
pt3dadd(-61.728, 317.576, -21.2, 0.624)
pt3dadd(-61.82, 317.65, -21.2, 0.614)
pt3dadd(-61.927, 317.704, -21.2, 0.518)
pt3dadd(-62.04, 317.743, -21.2, 0.412)
pt3dadd(-62.156, 317.776, -21.2, 0.406)
pt3dadd(-62.272, 317.808, -21.2, 0.456)
pt3dadd(-62.387, 317.842, -21.2, 0.468)
pt3dadd(-62.502, 317.875, -21.2, 0.482)
pt3dadd(-62.617, 317.908, -21.2, 0.496)
pt3dadd(-62.732, 317.941, -21.2, 0.508)
pt3dadd(-62.849, 317.974, -21.2, 0.522)
pt3dadd(-62.965, 317.984, -21.191, 0.536)
pt3dadd(-63.084, 317.98, -21.175, 0.548)
pt3dadd(-63.203, 317.975, -21.16, 0.562)
pt3dadd(-63.32, 317.97, -21.144, 0.574)
pt3dadd(-63.439, 317.965, -21.129, 0.588)
pt3dadd(-63.558, 317.962, -21.113, 0.6)
pt3dadd(-63.664, 317.915, -21.09, 0.612)
pt3dadd(-63.767, 317.861, -21.065, 0.624)
pt3dadd(-63.87, 317.808, -21.041, 0.634)
pt3dadd(-63.973, 317.755, -21.016, 0.646)
pt3dadd(-64.069, 317.689, -21, 0.652)
pt3dadd(-64.15, 317.6, -21, 0.652)
pt3dadd(-64.23, 317.512, -21, 0.652)
pt3dadd(-64.31, 317.423, -21, 0.652)
pt3dadd(-64.392, 317.334, -21, 0.652)
pt3dadd(-64.474, 317.249, -21.009, 0.65)
pt3dadd(-64.56, 317.168, -21.032, 0.644)
pt3dadd(-64.645, 317.089, -21.055, 0.64)
pt3dadd(-64.73, 317.01, -21.078, 0.634)
pt3dadd(-64.817, 316.931, -21.1, 0.628)
pt3dadd(-64.918, 316.865, -21.1, 0.618)
pt3dadd(-65.017, 316.799, -21.1, 0.608)
pt3dadd(-65.118, 316.733, -21.1, 0.598)
pt3dadd(-65.218, 316.667, -21.1, 0.588)
pt3dadd(-65.318, 316.601, -21.1, 0.578)
pt3dadd(-65.416, 316.531, -21.1, 0.582)
pt3dadd(-65.514, 316.463, -21.1, 0.588)
pt3dadd(-65.612, 316.393, -21.1, 0.592)
pt3dadd(-65.711, 316.325, -21.1, 0.598)
pt3dadd(-65.809, 316.255, -21.1, 0.602)
pt3dadd(-65.927, 316.234, -21.1, 0.612)
pt3dadd(-66.045, 316.213, -21.1, 0.622)
pt3dadd(-66.162, 316.188, -21.102, 0.64)
pt3dadd(-66.276, 316.153, -21.107, 0.672)
pt3dadd(-66.391, 316.118, -21.113, 0.704)
pt3dadd(-66.5, 316.099, -21.15, 0.704)
pt3dadd(-66.61, 316.08, -21.188, 0.704)
pt3dadd(-66.714, 316.08, -21.238, 0.692)
pt3dadd(-66.817, 316.08, -21.289, 0.68)
pt3dadd(-66.875, 316.01, -21.343, 0.658)
pt3dadd(-66.919, 315.922, -21.399, 0.634)
pt3dadd(-66.964, 315.833, -21.455, 0.608)
pt3dadd(-67.033, 315.766, -21.512, 0.568)
pt3dadd(-67.111, 315.703, -21.569, 0.526)
pt3dadd(-67.182, 315.618, -21.59, 0.504)
pt3dadd(-67.23, 315.509, -21.592, 0.51)
pt3dadd(-67.279, 315.398, -21.594, 0.514)
pt3dadd(-67.327, 315.289, -21.596, 0.518)
pt3dadd(-67.376, 315.179, -21.598, 0.524)
pt3dadd(-67.429, 315.072, -21.6, 0.53)
pt3dadd(-67.498, 314.974, -21.6, 0.54)
pt3dadd(-67.567, 314.875, -21.6, 0.55)
pt3dadd(-67.636, 314.777, -21.6, 0.56)
pt3dadd(-67.705, 314.68, -21.6, 0.57)
pt3dadd(-67.766, 314.578, -21.599, 0.578)
pt3dadd(-67.792, 314.46, -21.593, 0.578)
pt3dadd(-67.818, 314.344, -21.587, 0.578)
pt3dadd(-67.844, 314.227, -21.581, 0.578)
pt3dadd(-67.87, 314.11, -21.575, 0.578)
pt3dadd(-67.896, 313.993, -21.569, 0.578)
pt3dadd(-67.93, 313.884, -21.544, 0.574)
pt3dadd(-67.969, 313.78, -21.507, 0.568)
pt3dadd(-68.007, 313.675, -21.47, 0.562)
pt3dadd(-68.046, 313.571, -21.432, 0.558)
pt3dadd(-68.083, 313.465, -21.394, 0.552)
pt3dadd(-68.109, 313.361, -21.351, 0.552)
pt3dadd(-68.135, 313.256, -21.307, 0.552)
pt3dadd(-68.162, 313.152, -21.263, 0.552)
pt3dadd(-68.188, 313.046, -21.22, 0.552)
pt3dadd(-68.224, 312.95, -21.169, 0.56)
pt3dadd(-68.269, 312.862, -21.114, 0.574)
pt3dadd(-68.295, 312.788, -21.039, 0.588)
pt3dadd(-68.316, 312.72, -20.959, 0.6)
pt3dadd(-68.407, 312.668, -20.926, 0.602)
pt3dadd(-68.514, 312.622, -20.904, 0.602)
pt3dadd(-68.631, 312.596, -20.9, 0.618)
pt3dadd(-68.749, 312.576, -20.9, 0.638)
pt3dadd(-68.863, 312.546, -20.9, 0.658)
pt3dadd(-68.966, 312.484, -20.9, 0.678)
pt3dadd(-69.069, 312.421, -20.9, 0.7)
pt3dadd(-69.171, 312.36, -20.9, 0.72)
pt3dadd(-69.249, 312.274, -20.9, 0.756)
pt3dadd(-69.31, 312.169, -20.9, 0.8)
pt3dadd(-69.36, 312.061, -20.9, 0.84)
pt3dadd(-69.434, 311.977, -20.9, 0.86)
pt3dadd(-69.537, 311.917, -20.9, 0.872)
pt3dadd(-69.644, 311.864, -20.9, 0.878)
pt3dadd(-69.758, 311.825, -20.9, 0.878)
pt3dadd(-69.868, 311.782, -20.9, 0.88)
pt3dadd(-69.908, 311.669, -20.9, 0.89)
pt3dadd(-69.948, 311.556, -20.9, 0.9)
pt3dadd(-69.991, 311.444, -20.889, 0.88)
pt3dadd(-70.036, 311.335, -20.873, 0.842)
pt3dadd(-70.108, 311.291, -20.825, 0.806)
pt3dadd(-70.196, 311.287, -20.758, 0.77)
pt3dadd(-70.285, 311.284, -20.69, 0.734)
pt3dadd(-70.377, 311.28, -20.628, 0.694)
pt3dadd(-70.491, 311.28, -20.595, 0.642)
pt3dadd(-70.604, 311.28, -20.562, 0.588)
pt3dadd(-70.674, 311.28, -20.486, 0.57)
pt3dadd(-70.733, 311.28, -20.399, 0.562)
pt3dadd(-70.792, 311.28, -20.312, 0.554)
pt3dadd(-70.853, 311.214, -20.25, 0.564)
pt3dadd(-70.917, 311.136, -20.198, 0.578)
pt3dadd(-70.998, 311.05, -20.186, 0.578)
pt3dadd(-71.08, 310.963, -20.173, 0.578)
pt3dadd(-71.177, 310.92, -20.15, 0.572)
pt3dadd(-71.291, 310.92, -20.117, 0.562)
pt3dadd(-71.4, 310.92, -20.078, 0.55)
pt3dadd(-71.484, 310.92, -20.007, 0.542)
pt3dadd(-71.569, 310.92, -19.937, 0.534)
pt3dadd(-71.638, 310.907, -19.86, 0.536)
pt3dadd(-71.671, 310.866, -19.77, 0.56)
pt3dadd(-71.73, 310.823, -19.71, 0.586)
pt3dadd(-71.839, 310.772, -19.706, 0.612)
pt3dadd(-71.949, 310.723, -19.702, 0.638)
pt3dadd(-72.061, 310.685, -19.698, 0.666)
pt3dadd(-72.179, 310.663, -19.694, 0.696)
pt3dadd(-72.297, 310.643, -19.689, 0.726)
pt3dadd(-72.39, 310.578, -19.662, 0.724)
pt3dadd(-72.487, 310.508, -19.648, 0.714)
pt3dadd(-72.583, 310.438, -19.633, 0.702)
pt3dadd(-72.679, 310.368, -19.618, 0.692)
pt3dadd(-72.775, 310.298, -19.604, 0.68)
pt3dadd(-72.885, 310.261, -19.586, 0.682)
pt3dadd(-72.999, 310.235, -19.566, 0.686)
pt3dadd(-73.114, 310.21, -19.546, 0.692)
pt3dadd(-73.229, 310.183, -19.527, 0.696)
pt3dadd(-73.344, 310.157, -19.507, 0.702)
pt3dadd(-73.452, 310.11, -19.5, 0.706)
pt3dadd(-73.556, 310.05, -19.5, 0.71)
pt3dadd(-73.66, 309.99, -19.5, 0.716)
pt3dadd(-73.764, 309.93, -19.5, 0.72)
pt3dadd(-73.868, 309.87, -19.5, 0.726)
pt3dadd(-73.97, 309.808, -19.5, 0.73)
pt3dadd(-74.07, 309.742, -19.5, 0.736)
pt3dadd(-74.17, 309.676, -19.5, 0.74)
pt3dadd(-74.27, 309.61, -19.5, 0.746)
pt3dadd(-74.371, 309.544, -19.5, 0.75)
pt3dadd(-74.478, 309.492, -19.5, 0.744)
pt3dadd(-74.593, 309.46, -19.5, 0.722)
}
}
proc shape3d_61() {
dend_5[18] { pt3dadd(-74.708, 309.426, -19.5, 0.7)
pt3dadd(-74.824, 309.394, -19.5, 0.678)
pt3dadd(-74.939, 309.36, -19.5, 0.654)
pt3dadd(-75.055, 309.328, -19.5, 0.632)
pt3dadd(-75.167, 309.286, -19.5, 0.616)
pt3dadd(-75.278, 309.241, -19.5, 0.602)
pt3dadd(-75.39, 309.197, -19.5, 0.588)
pt3dadd(-75.501, 309.152, -19.5, 0.574)
pt3dadd(-75.613, 309.108, -19.5, 0.56)
pt3dadd(-75.716, 309.052, -19.509, 0.55)
pt3dadd(-75.807, 308.978, -19.532, 0.544)
pt3dadd(-75.898, 308.905, -19.555, 0.538)
pt3dadd(-75.99, 308.832, -19.577, 0.532)
pt3dadd(-76.081, 308.76, -19.6, 0.528)
pt3dadd(-76.185, 308.7, -19.6, 0.542)
pt3dadd(-76.289, 308.64, -19.6, 0.556)
pt3dadd(-76.393, 308.58, -19.6, 0.572)
pt3dadd(-76.497, 308.52, -19.6, 0.586)
pt3dadd(-76.601, 308.46, -19.6, 0.6)
pt3dadd(-76.696, 308.387, -19.6, 0.612)
pt3dadd(-76.789, 308.311, -19.6, 0.622)
pt3dadd(-76.883, 308.237, -19.6, 0.632)
pt3dadd(-76.977, 308.162, -19.6, 0.642)
pt3dadd(-77.07, 308.087, -19.6, 0.652)
pt3dadd(-77.185, 308.054, -19.6, 0.656)
pt3dadd(-77.302, 308.028, -19.6, 0.662)
pt3dadd(-77.419, 308, -19.6, 0.666)
pt3dadd(-77.536, 307.973, -19.6, 0.67)
pt3dadd(-77.652, 307.945, -19.6, 0.674)
pt3dadd(-77.769, 307.92, -19.6, 0.678)
pt3dadd(-77.889, 307.92, -19.6, 0.68)
pt3dadd(-78.009, 307.92, -19.6, 0.708)
pt3dadd(-78.129, 307.92, -19.6, 0.788)
pt3dadd(-78.249, 307.92, -19.6, 0.912)
pt3dadd(-78.369, 307.919, -19.6, 1.004)
pt3dadd(-78.488, 307.901, -19.6, 0.982)
pt3dadd(-78.595, 307.852, -19.6, 0.838)
pt3dadd(-78.677, 307.765, -19.6, 0.686)
pt3dadd(-78.711, 307.651, -19.6, 0.624)
pt3dadd(-78.744, 307.535, -19.6, 0.612)
pt3dadd(-78.788, 307.424, -19.6, 0.628)
pt3dadd(-78.843, 307.318, -19.6, 0.628)
pt3dadd(-78.931, 307.238, -19.585, 0.622)
pt3dadd(-79.019, 307.159, -19.57, 0.616)
pt3dadd(-79.107, 307.079, -19.555, 0.612)
pt3dadd(-79.195, 307, -19.541, 0.606)
pt3dadd(-79.281, 306.918, -19.525, 0.616)
pt3dadd(-79.365, 306.835, -19.507, 0.642)
pt3dadd(-79.432, 306.738, -19.5, 0.678)
pt3dadd(-79.485, 306.631, -19.5, 0.724)
pt3dadd(-79.548, 306.53, -19.5, 0.774)
pt3dadd(-79.63, 306.442, -19.5, 0.832)
pt3dadd(-79.72, 306.371, -19.5, 0.882)
pt3dadd(-79.839, 306.361, -19.5, 0.9)
pt3dadd(-79.959, 306.352, -19.5, 0.918)
pt3dadd(-80.075, 306.328, -19.5, 0.916)
pt3dadd(-80.187, 306.284, -19.5, 0.882)
pt3dadd(-80.295, 306.232, -19.5, 0.866)
pt3dadd(-80.402, 306.179, -19.5, 0.852)
pt3dadd(-80.51, 306.125, -19.5, 0.838)
pt3dadd(-80.617, 306.071, -19.5, 0.822)
pt3dadd(-80.724, 306.018, -19.5, 0.808)
pt3dadd(-80.837, 305.976, -19.5, 0.798)
pt3dadd(-80.951, 305.94, -19.5, 0.788)
pt3dadd(-81.066, 305.904, -19.5, 0.78)
pt3dadd(-81.18, 305.868, -19.5, 0.77)
pt3dadd(-81.295, 305.832, -19.5, 0.762)
pt3dadd(-81.408, 305.794, -19.5, 0.754)
pt3dadd(-81.506, 305.725, -19.5, 0.758)
pt3dadd(-81.604, 305.656, -19.5, 0.764)
pt3dadd(-81.702, 305.587, -19.5, 0.768)
pt3dadd(-81.801, 305.518, -19.5, 0.774)
pt3dadd(-81.899, 305.45, -19.5, 0.78)
pt3dadd(-82.01, 305.404, -19.5, 0.79)
pt3dadd(-82.121, 305.358, -19.5, 0.8)
pt3dadd(-82.209, 305.28, -19.5, 0.822)
pt3dadd(-82.291, 305.191, -19.5, 0.846)
pt3dadd(-82.368, 305.1, -19.5, 0.862)
pt3dadd(-82.443, 305.006, -19.5, 0.874)
pt3dadd(-82.501, 304.907, -19.482, 0.878)
pt3dadd(-82.543, 304.802, -19.447, 0.878)
pt3dadd(-82.565, 304.691, -19.421, 0.86)
pt3dadd(-82.573, 304.573, -19.4, 0.828)
pt3dadd(-82.658, 304.489, -19.395, 0.792)
pt3dadd(-82.743, 304.404, -19.389, 0.756)
pt3dadd(-82.803, 304.315, -19.347, 0.726)
pt3dadd(-82.871, 304.23, -19.31, 0.702)
pt3dadd(-82.977, 304.174, -19.305, 0.69)
pt3dadd(-83.083, 304.12, -19.3, 0.678)
pt3dadd(-83.202, 304.104, -19.3, 0.678)
pt3dadd(-83.321, 304.09, -19.3, 0.678)
pt3dadd(-83.44, 304.078, -19.3, 0.674)
pt3dadd(-83.56, 304.07, -19.3, 0.66)
pt3dadd(-83.677, 304.049, -19.3, 0.65)
pt3dadd(-83.789, 304.007, -19.3, 0.646)
pt3dadd(-83.902, 303.965, -19.3, 0.642)
pt3dadd(-84.014, 303.924, -19.3, 0.638)
pt3dadd(-84.127, 303.882, -19.3, 0.632)
pt3dadd(-84.24, 303.84, -19.3, 0.628)
pt3dadd(-84.352, 303.798, -19.3, 0.614)
pt3dadd(-84.465, 303.757, -19.3, 0.6)
pt3dadd(-84.577, 303.715, -19.3, 0.586)
pt3dadd(-84.69, 303.673, -19.3, 0.572)
pt3dadd(-84.802, 303.632, -19.3, 0.558)
pt3dadd(-84.903, 303.571, -19.3, 0.55)
pt3dadd(-84.995, 303.493, -19.3, 0.544)
pt3dadd(-85.086, 303.415, -19.3, 0.54)
pt3dadd(-85.177, 303.337, -19.3, 0.534)
pt3dadd(-85.269, 303.259, -19.3, 0.53)
pt3dadd(-85.349, 303.17, -19.3, 0.524)
pt3dadd(-85.421, 303.074, -19.3, 0.52)
pt3dadd(-85.493, 302.978, -19.3, 0.514)
pt3dadd(-85.565, 302.882, -19.3, 0.51)
pt3dadd(-85.637, 302.786, -19.3, 0.504)
pt3dadd(-85.726, 302.716, -19.284, 0.512)
pt3dadd(-85.828, 302.662, -19.257, 0.53)
pt3dadd(-85.93, 302.608, -19.229, 0.546)
pt3dadd(-86.032, 302.554, -19.202, 0.562)
pt3dadd(-86.132, 302.498, -19.172, 0.58)
pt3dadd(-86.222, 302.438, -19.128, 0.594)
pt3dadd(-86.318, 302.381, -19.1, 0.602)
pt3dadd(-86.425, 302.327, -19.1, 0.602)
pt3dadd(-86.531, 302.272, -19.099, 0.598)
pt3dadd(-86.628, 302.201, -19.094, 0.548)
pt3dadd(-86.721, 302.129, -19.086, 0.5)
pt3dadd(-86.742, 302.039, -19.022, 0.462)
pt3dadd(-86.764, 301.952, -18.957, 0.424)
pt3dadd(-86.793, 301.889, -18.875, 0.41)
pt3dadd(-86.823, 301.825, -18.794, 0.394)
pt3dadd(-86.853, 301.762, -18.713, 0.378)
pt3dadd(-86.951, 301.708, -18.743, 0.39)
pt3dadd(-87.052, 301.654, -18.772, 0.414)
pt3dadd(-87.115, 301.6, -18.72, 0.438)
pt3dadd(-87.165, 301.544, -18.642, 0.452)
pt3dadd(-87.26, 301.493, -18.599, 0.452)
pt3dadd(-87.359, 301.447, -18.559, 0.45)
pt3dadd(-87.47, 301.422, -18.527, 0.436)
pt3dadd(-87.577, 301.387, -18.5, 0.424)
pt3dadd(-87.671, 301.312, -18.5, 0.414)
pt3dadd(-87.765, 301.237, -18.5, 0.4)
pt3dadd(-87.872, 301.184, -18.5, 0.384)
pt3dadd(-87.974, 301.122, -18.508, 0.38)
pt3dadd(-88.069, 301.051, -18.523, 0.386)
pt3dadd(-88.165, 300.982, -18.537, 0.39)
pt3dadd(-88.261, 300.912, -18.552, 0.396)
pt3dadd(-88.357, 300.841, -18.566, 0.402)
pt3dadd(-88.458, 300.781, -18.583, 0.426)
pt3dadd(-88.56, 300.72, -18.6, 0.452)
}
dend_5[19] {pt3dclear()
pt3dadd(-35.36, 283.36, -12, 0.93)
pt3dadd(-35.38, 283.325, -12.061, 0.926)
pt3dadd(-35.408, 283.277, -12.149, 0.922)
pt3dadd(-35.436, 283.226, -12.237, 0.918)
pt3dadd(-35.465, 283.177, -12.325, 0.912)
pt3dadd(-35.492, 283.128, -12.413, 0.908)
pt3dadd(-35.52, 283.078, -12.5, 0.902)
pt3dadd(-35.54, 282.96, -12.5, 0.844)
pt3dadd(-35.561, 282.841, -12.5, 0.786)
pt3dadd(-35.623, 282.764, -12.5, 0.746)
pt3dadd(-35.741, 282.744, -12.5, 0.726)
pt3dadd(-35.86, 282.724, -12.5, 0.706)
pt3dadd(-35.978, 282.732, -12.5, 0.688)
pt3dadd(-36.097, 282.746, -12.5, 0.67)
pt3dadd(-36.216, 282.764, -12.5, 0.652)
pt3dadd(-36.329, 282.805, -12.5, 0.64)
pt3dadd(-36.442, 282.845, -12.5, 0.63)
pt3dadd(-36.551, 282.895, -12.5, 0.614)
pt3dadd(-36.66, 282.941, -12.5, 0.604)
pt3dadd(-36.778, 282.966, -12.5, 0.608)
pt3dadd(-36.895, 282.99, -12.5, 0.612)
pt3dadd(-37.013, 283.015, -12.5, 0.616)
pt3dadd(-37.13, 283.04, -12.5, 0.622)
pt3dadd(-37.248, 283.064, -12.5, 0.626)
pt3dadd(-37.364, 283.069, -12.5, 0.626)
pt3dadd(-37.482, 283.042, -12.5, 0.622)
pt3dadd(-37.598, 283.015, -12.5, 0.618)
pt3dadd(-37.715, 282.988, -12.5, 0.614)
pt3dadd(-37.832, 282.96, -12.5, 0.608)
pt3dadd(-37.949, 282.932, -12.5, 0.604)
pt3dadd(-38.064, 282.9, -12.507, 0.6)
pt3dadd(-38.177, 282.863, -12.521, 0.596)
pt3dadd(-38.29, 282.826, -12.534, 0.59)
pt3dadd(-38.402, 282.788, -12.547, 0.586)
pt3dadd(-38.516, 282.752, -12.56, 0.58)
pt3dadd(-38.633, 282.732, -12.569, 0.572)
pt3dadd(-38.753, 282.73, -12.574, 0.56)
pt3dadd(-38.872, 282.728, -12.579, 0.548)
pt3dadd(-38.992, 282.726, -12.584, 0.538)
pt3dadd(-39.112, 282.724, -12.589, 0.526)
pt3dadd(-39.232, 282.722, -12.595, 0.514)
pt3dadd(-39.352, 282.72, -12.6, 0.504)
pt3dadd(-39.472, 282.72, -12.6, 0.508)
pt3dadd(-39.592, 282.72, -12.6, 0.516)
pt3dadd(-39.712, 282.72, -12.6, 0.524)
pt3dadd(-39.832, 282.72, -12.6, 0.53)
pt3dadd(-39.952, 282.72, -12.6, 0.538)
pt3dadd(-40.072, 282.72, -12.6, 0.544)
pt3dadd(-40.192, 282.72, -12.6, 0.552)
pt3dadd(-40.312, 282.72, -12.6, 0.576)
pt3dadd(-40.432, 282.72, -12.6, 0.6)
pt3dadd(-40.552, 282.72, -12.6, 0.626)
}
}
proc shape3d_62() {
dend_5[19] { pt3dadd(-40.672, 282.72, -12.6, 0.682)
pt3dadd(-40.792, 282.72, -12.6, 0.74)
pt3dadd(-40.912, 282.72, -12.6, 0.8)
pt3dadd(-41.029, 282.739, -12.6, 0.84)
pt3dadd(-41.148, 282.76, -12.6, 0.878)
pt3dadd(-41.236, 282.811, -12.6, 0.914)
pt3dadd(-41.262, 282.929, -12.6, 0.944)
pt3dadd(-41.288, 283.045, -12.6, 0.974)
pt3dadd(-41.388, 283.093, -12.6, 0.974)
pt3dadd(-41.503, 283.127, -12.6, 0.968)
pt3dadd(-41.618, 283.159, -12.6, 0.962)
pt3dadd(-41.734, 283.193, -12.6, 0.956)
pt3dadd(-41.852, 283.2, -12.6, 0.948)
pt3dadd(-41.972, 283.2, -12.6, 0.94)
pt3dadd(-42.092, 283.2, -12.6, 0.93)
pt3dadd(-42.212, 283.2, -12.6, 0.89)
pt3dadd(-42.332, 283.2, -12.589, 0.872)
pt3dadd(-42.451, 283.2, -12.575, 0.864)
pt3dadd(-42.569, 283.2, -12.56, 0.856)
pt3dadd(-42.688, 283.2, -12.546, 0.848)
pt3dadd(-42.806, 283.2, -12.531, 0.84)
pt3dadd(-42.925, 283.2, -12.517, 0.832)
pt3dadd(-43.045, 283.2, -12.51, 0.822)
pt3dadd(-43.165, 283.2, -12.509, 0.812)
pt3dadd(-43.285, 283.2, -12.507, 0.8)
pt3dadd(-43.405, 283.2, -12.505, 0.79)
pt3dadd(-43.525, 283.2, -12.504, 0.778)
pt3dadd(-43.645, 283.2, -12.502, 0.768)
pt3dadd(-43.765, 283.2, -12.5, 0.756)
pt3dadd(-43.884, 283.214, -12.5, 0.748)
pt3dadd(-44.003, 283.234, -12.5, 0.74)
pt3dadd(-44.12, 283.254, -12.5, 0.73)
pt3dadd(-44.239, 283.273, -12.5, 0.722)
pt3dadd(-44.357, 283.292, -12.5, 0.714)
pt3dadd(-44.476, 283.313, -12.5, 0.706)
pt3dadd(-44.58, 283.366, -12.499, 0.696)
pt3dadd(-44.675, 283.439, -12.496, 0.686)
pt3dadd(-44.77, 283.512, -12.494, 0.676)
pt3dadd(-44.864, 283.585, -12.492, 0.666)
pt3dadd(-44.959, 283.658, -12.49, 0.656)
pt3dadd(-45.065, 283.693, -12.462, 0.626)
pt3dadd(-45.174, 283.712, -12.425, 0.59)
pt3dadd(-45.271, 283.77, -12.408, 0.554)
pt3dadd(-45.362, 283.848, -12.402, 0.518)
pt3dadd(-45.47, 283.889, -12.4, 0.496)
pt3dadd(-45.589, 283.903, -12.4, 0.488)
pt3dadd(-45.708, 283.919, -12.4, 0.478)
pt3dadd(-45.82, 283.955, -12.419, 0.5)
pt3dadd(-45.93, 283.994, -12.441, 0.524)
pt3dadd(-45.954, 284.03, -12.525, 0.57)
pt3dadd(-45.996, 284.066, -12.597, 0.608)
pt3dadd(-46.106, 284.106, -12.62, 0.624)
pt3dadd(-46.216, 284.146, -12.644, 0.64)
pt3dadd(-46.326, 284.185, -12.667, 0.656)
pt3dadd(-46.435, 284.225, -12.691, 0.672)
pt3dadd(-46.542, 284.276, -12.7, 0.684)
pt3dadd(-46.646, 284.335, -12.7, 0.694)
pt3dadd(-46.75, 284.395, -12.7, 0.704)
pt3dadd(-46.854, 284.455, -12.7, 0.714)
pt3dadd(-46.958, 284.515, -12.7, 0.722)
pt3dadd(-47.065, 284.569, -12.7, 0.726)
pt3dadd(-47.176, 284.616, -12.7, 0.722)
pt3dadd(-47.286, 284.664, -12.7, 0.716)
pt3dadd(-47.395, 284.711, -12.7, 0.712)
pt3dadd(-47.506, 284.759, -12.7, 0.708)
pt3dadd(-47.615, 284.809, -12.7, 0.702)
pt3dadd(-47.717, 284.872, -12.7, 0.686)
pt3dadd(-47.819, 284.934, -12.7, 0.672)
pt3dadd(-47.921, 284.998, -12.7, 0.656)
pt3dadd(-48.024, 285.06, -12.7, 0.642)
pt3dadd(-48.126, 285.121, -12.7, 0.628)
pt3dadd(-48.244, 285.149, -12.7, 0.618)
pt3dadd(-48.36, 285.176, -12.7, 0.61)
pt3dadd(-48.476, 285.204, -12.7, 0.602)
pt3dadd(-48.594, 285.232, -12.7, 0.592)
pt3dadd(-48.71, 285.258, -12.7, 0.584)
pt3dadd(-48.826, 285.29, -12.7, 0.578)
pt3dadd(-48.937, 285.335, -12.7, 0.584)
pt3dadd(-49.049, 285.379, -12.7, 0.588)
pt3dadd(-49.16, 285.424, -12.7, 0.592)
pt3dadd(-49.272, 285.468, -12.7, 0.598)
pt3dadd(-49.384, 285.512, -12.7, 0.602)
pt3dadd(-49.469, 285.595, -12.7, 0.612)
pt3dadd(-49.549, 285.684, -12.7, 0.622)
pt3dadd(-49.63, 285.773, -12.7, 0.632)
pt3dadd(-49.71, 285.862, -12.7, 0.642)
pt3dadd(-49.792, 285.95, -12.7, 0.652)
pt3dadd(-49.865, 286.042, -12.72, 0.664)
pt3dadd(-49.938, 286.133, -12.743, 0.674)
pt3dadd(-50.011, 286.224, -12.766, 0.686)
pt3dadd(-50.084, 286.315, -12.789, 0.698)
pt3dadd(-50.173, 286.387, -12.81, 0.708)
pt3dadd(-50.278, 286.442, -12.829, 0.72)
pt3dadd(-50.382, 286.498, -12.848, 0.73)
pt3dadd(-50.485, 286.553, -12.868, 0.742)
pt3dadd(-50.59, 286.607, -12.887, 0.752)
pt3dadd(-50.692, 286.67, -12.891, 0.772)
pt3dadd(-50.792, 286.734, -12.893, 0.792)
pt3dadd(-50.894, 286.799, -12.895, 0.812)
pt3dadd(-50.995, 286.862, -12.898, 0.832)
pt3dadd(-51.097, 286.927, -12.9, 0.852)
pt3dadd(-51.21, 286.962, -12.916, 0.862)
pt3dadd(-51.323, 286.993, -12.934, 0.872)
pt3dadd(-51.437, 287.026, -12.951, 0.882)
pt3dadd(-51.551, 287.057, -12.969, 0.892)
pt3dadd(-51.665, 287.088, -12.987, 0.902)
pt3dadd(-51.775, 287.126, -13.009, 0.9)
pt3dadd(-51.884, 287.166, -13.033, 0.894)
pt3dadd(-51.995, 287.206, -13.056, 0.888)
pt3dadd(-52.104, 287.245, -13.08, 0.884)
pt3dadd(-52.214, 287.284, -13.103, 0.876)
pt3dadd(-52.327, 287.308, -13.13, 0.85)
pt3dadd(-52.44, 287.332, -13.157, 0.824)
pt3dadd(-52.554, 287.356, -13.184, 0.8)
pt3dadd(-52.667, 287.38, -13.211, 0.774)
pt3dadd(-52.778, 287.4, -13.241, 0.746)
pt3dadd(-52.886, 287.4, -13.286, 0.7)
pt3dadd(-52.993, 287.4, -13.33, 0.656)
pt3dadd(-53.099, 287.406, -13.377, 0.63)
pt3dadd(-53.206, 287.412, -13.424, 0.608)
pt3dadd(-53.268, 287.461, -13.493, 0.602)
pt3dadd(-53.321, 287.521, -13.567, 0.602)
pt3dadd(-53.423, 287.581, -13.584, 0.602)
pt3dadd(-53.525, 287.641, -13.6, 0.602)
pt3dadd(-53.64, 287.672, -13.609, 0.61)
pt3dadd(-53.755, 287.704, -13.618, 0.616)
pt3dadd(-53.87, 287.736, -13.627, 0.622)
pt3dadd(-53.986, 287.76, -13.639, 0.632)
pt3dadd(-54.101, 287.76, -13.667, 0.654)
pt3dadd(-54.216, 287.76, -13.694, 0.674)
pt3dadd(-54.336, 287.76, -13.7, 0.718)
pt3dadd(-54.454, 287.76, -13.715, 0.734)
pt3dadd(-54.572, 287.76, -13.733, 0.744)
pt3dadd(-54.69, 287.76, -13.752, 0.752)
pt3dadd(-54.808, 287.76, -13.77, 0.76)
pt3dadd(-54.925, 287.76, -13.789, 0.768)
pt3dadd(-55.044, 287.76, -13.807, 0.776)
pt3dadd(-55.162, 287.76, -13.823, 0.784)
pt3dadd(-55.28, 287.76, -13.837, 0.794)
pt3dadd(-55.399, 287.76, -13.851, 0.802)
pt3dadd(-55.518, 287.76, -13.866, 0.81)
pt3dadd(-55.637, 287.76, -13.88, 0.818)
pt3dadd(-55.756, 287.76, -13.895, 0.826)
pt3dadd(-55.876, 287.76, -13.9, 0.838)
pt3dadd(-55.996, 287.76, -13.9, 0.852)
pt3dadd(-56.116, 287.76, -13.9, 0.866)
pt3dadd(-56.236, 287.76, -13.9, 0.88)
pt3dadd(-56.356, 287.76, -13.9, 0.896)
pt3dadd(-56.476, 287.76, -13.9, 0.91)
pt3dadd(-56.596, 287.76, -13.9, 0.924)
pt3dadd(-56.716, 287.76, -13.9, 0.936)
pt3dadd(-56.836, 287.76, -13.9, 0.946)
pt3dadd(-56.956, 287.76, -13.9, 0.958)
pt3dadd(-57.076, 287.76, -13.9, 0.968)
pt3dadd(-57.196, 287.76, -13.9, 0.978)
pt3dadd(-57.316, 287.76, -13.9, 0.99)
pt3dadd(-57.436, 287.76, -13.9, 1)
pt3dadd(-57.55, 287.76, -13.923, 1.01)
pt3dadd(-57.661, 287.76, -13.96, 1.02)
pt3dadd(-57.773, 287.76, -13.998, 1.028)
pt3dadd(-57.884, 287.76, -14.035, 1.038)
pt3dadd(-57.996, 287.76, -14.072, 1.048)
pt3dadd(-58.103, 287.76, -14.115, 1.054)
pt3dadd(-58.199, 287.76, -14.175, 1.048)
pt3dadd(-58.295, 287.76, -14.235, 1.044)
pt3dadd(-58.391, 287.76, -14.295, 1.038)
pt3dadd(-58.487, 287.76, -14.355, 1.034)
pt3dadd(-58.579, 287.76, -14.418, 1.028)
pt3dadd(-58.661, 287.76, -14.492, 1.024)
pt3dadd(-58.741, 287.76, -14.566, 1.018)
pt3dadd(-58.822, 287.76, -14.64, 1.014)
pt3dadd(-58.902, 287.76, -14.714, 1.008)
pt3dadd(-58.987, 287.76, -14.785, 1)
pt3dadd(-59.081, 287.76, -14.847, 0.99)
pt3dadd(-59.171, 287.764, -14.912, 0.976)
pt3dadd(-59.239, 287.784, -14.993, 0.95)
pt3dadd(-59.316, 287.809, -15.06, 0.916)
pt3dadd(-59.423, 287.856, -15.083, 0.852)
pt3dadd(-59.527, 287.906, -15.108, 0.78)
pt3dadd(-59.623, 287.965, -15.145, 0.668)
pt3dadd(-59.714, 288.03, -15.177, 0.562)
pt3dadd(-59.801, 288.109, -15.2, 0.478)
pt3dadd(-59.882, 288.197, -15.2, 0.478)
pt3dadd(-59.963, 288.284, -15.2, 0.48)
pt3dadd(-60.024, 288.388, -15.2, 0.538)
pt3dadd(-60.085, 288.492, -15.2, 0.594)
pt3dadd(-60.191, 288.54, -15.2, 0.648)
pt3dadd(-60.304, 288.58, -15.2, 0.702)
pt3dadd(-60.42, 288.6, -15.2, 0.75)
pt3dadd(-60.54, 288.6, -15.2, 0.792)
pt3dadd(-60.66, 288.6, -15.2, 0.834)
pt3dadd(-60.768, 288.636, -15.205, 0.868)
pt3dadd(-60.864, 288.708, -15.215, 0.898)
pt3dadd(-60.959, 288.779, -15.225, 0.928)
pt3dadd(-61.044, 288.854, -15.241, 0.958)
pt3dadd(-61.073, 288.953, -15.294, 0.984)
pt3dadd(-61.11, 289.044, -15.348, 0.982)
pt3dadd(-61.211, 289.082, -15.376, 0.918)
pt3dadd(-61.327, 289.105, -15.391, 0.862)
pt3dadd(-61.427, 289.156, -15.402, 0.816)
}
}
proc shape3d_63() {
dend_5[19] { pt3dadd(-61.498, 289.253, -15.407, 0.778)
pt3dadd(-61.562, 289.34, -15.432, 0.744)
pt3dadd(-61.616, 289.409, -15.502, 0.716)
pt3dadd(-61.682, 289.444, -15.574, 0.696)
pt3dadd(-61.76, 289.45, -15.65, 0.684)
pt3dadd(-61.858, 289.468, -15.69, 0.672)
pt3dadd(-61.974, 289.498, -15.693, 0.66)
pt3dadd(-62.089, 289.528, -15.696, 0.646)
pt3dadd(-62.206, 289.558, -15.699, 0.634)
pt3dadd(-62.32, 289.592, -15.702, 0.634)
pt3dadd(-62.432, 289.634, -15.707, 0.644)
pt3dadd(-62.544, 289.672, -15.719, 0.66)
pt3dadd(-62.654, 289.69, -15.755, 0.696)
pt3dadd(-62.765, 289.709, -15.791, 0.734)
pt3dadd(-62.852, 289.739, -15.846, 0.778)
pt3dadd(-62.911, 289.783, -15.925, 0.832)
pt3dadd(-62.999, 289.8, -15.983, 0.896)
pt3dadd(-63.102, 289.82, -16.031, 0.894)
pt3dadd(-63.204, 289.843, -16.08, 0.884)
pt3dadd(-63.307, 289.867, -16.129, 0.872)
pt3dadd(-63.409, 289.89, -16.177, 0.862)
pt3dadd(-63.498, 289.91, -16.237, 0.842)
pt3dadd(-63.557, 289.924, -16.324, 0.806)
pt3dadd(-63.623, 289.946, -16.402, 0.764)
pt3dadd(-63.713, 289.999, -16.451, 0.708)
pt3dadd(-63.803, 290.04, -16.506, 0.672)
pt3dadd(-63.896, 290.068, -16.565, 0.658)
pt3dadd(-64.002, 290.1, -16.592, 0.652)
pt3dadd(-64.116, 290.135, -16.597, 0.652)
pt3dadd(-64.229, 290.17, -16.609, 0.654)
pt3dadd(-64.336, 290.207, -16.643, 0.662)
pt3dadd(-64.442, 290.244, -16.678, 0.67)
pt3dadd(-64.547, 290.28, -16.713, 0.678)
pt3dadd(-64.573, 290.28, -16.81, 0.678)
pt3dadd(-64.6, 290.28, -16.908, 0.678)
pt3dadd(-64.674, 290.28, -16.962, 0.678)
pt3dadd(-64.793, 290.28, -16.974, 0.678)
pt3dadd(-64.912, 290.28, -16.987, 0.678)
pt3dadd(-65.03, 290.28, -16.999, 0.678)
pt3dadd(-65.15, 290.28, -17, 0.678)
pt3dadd(-65.27, 290.28, -17, 0.678)
pt3dadd(-65.39, 290.28, -17, 0.678)
pt3dadd(-65.51, 290.28, -17, 0.678)
pt3dadd(-65.63, 290.28, -17, 0.678)
pt3dadd(-65.75, 290.28, -17, 0.702)
pt3dadd(-65.87, 290.294, -17, 0.756)
pt3dadd(-65.983, 290.332, -17, 0.844)
pt3dadd(-66.093, 290.378, -17.007, 0.896)
pt3dadd(-66.195, 290.418, -17.042, 0.904)
pt3dadd(-66.237, 290.472, -17.122, 0.884)
pt3dadd(-66.259, 290.509, -17.214, 0.812)
pt3dadd(-66.304, 290.52, -17.306, 0.738)
pt3dadd(-66.346, 290.533, -17.398, 0.752)
pt3dadd(-66.4, 290.59, -17.464, 0.804)
pt3dadd(-66.479, 290.676, -17.488, 0.804)
pt3dadd(-66.568, 290.749, -17.508, 0.792)
pt3dadd(-66.67, 290.81, -17.525, 0.766)
pt3dadd(-66.766, 290.848, -17.565, 0.738)
pt3dadd(-66.858, 290.863, -17.629, 0.71)
pt3dadd(-66.949, 290.878, -17.692, 0.682)
pt3dadd(-67.014, 290.898, -17.774, 0.656)
pt3dadd(-67.074, 290.917, -17.859, 0.63)
pt3dadd(-67.143, 290.988, -17.915, 0.628)
pt3dadd(-67.212, 291.062, -17.967, 0.628)
pt3dadd(-67.264, 291.16, -17.992, 0.64)
pt3dadd(-67.306, 291.272, -17.997, 0.664)
pt3dadd(-67.344, 291.386, -18, 0.71)
pt3dadd(-67.388, 291.497, -18, 0.766)
pt3dadd(-67.442, 291.605, -18, 0.788)
pt3dadd(-67.509, 291.701, -18, 0.808)
pt3dadd(-67.608, 291.768, -18, 0.818)
pt3dadd(-67.708, 291.828, -18.005, 0.83)
pt3dadd(-67.821, 291.834, -18.039, 0.842)
pt3dadd(-67.933, 291.839, -18.074, 0.852)
pt3dadd(-68.026, 291.858, -18.134, 0.866)
pt3dadd(-68.117, 291.878, -18.197, 0.878)
pt3dadd(-68.173, 291.954, -18.259, 0.896)
pt3dadd(-68.228, 292.032, -18.319, 0.912)
pt3dadd(-68.282, 292.11, -18.381, 0.93)
pt3dadd(-68.327, 292.184, -18.449, 0.93)
pt3dadd(-68.37, 292.267, -18.51, 0.924)
pt3dadd(-68.406, 292.372, -18.549, 0.904)
pt3dadd(-68.442, 292.476, -18.588, 0.884)
pt3dadd(-68.535, 292.522, -18.603, 0.844)
pt3dadd(-68.653, 292.543, -18.608, 0.794)
pt3dadd(-68.762, 292.56, -18.627, 0.74)
pt3dadd(-68.837, 292.56, -18.705, 0.678)
pt3dadd(-68.913, 292.56, -18.783, 0.616)
pt3dadd(-68.97, 292.583, -18.863, 0.554)
pt3dadd(-68.998, 292.646, -18.945, 0.488)
pt3dadd(-69.036, 292.73, -18.991, 0.44)
pt3dadd(-69.086, 292.84, -18.994, 0.414)
pt3dadd(-69.136, 292.949, -18.998, 0.388)
pt3dadd(-69.189, 293.056, -19.003, 0.388)
pt3dadd(-69.245, 293.161, -19.008, 0.412)
pt3dadd(-69.293, 293.24, -19.046, 0.434)
pt3dadd(-69.328, 293.275, -19.137, 0.452)
pt3dadd(-69.363, 293.309, -19.228, 0.472)
pt3dadd(-69.451, 293.347, -19.271, 0.494)
pt3dadd(-69.561, 293.387, -19.292, 0.518)
pt3dadd(-69.677, 293.4, -19.308, 0.51)
pt3dadd(-69.764, 293.44, -19.359, 0.48)
pt3dadd(-69.84, 293.494, -19.422, 0.452)
pt3dadd(-69.893, 293.569, -19.485, 0.424)
pt3dadd(-69.958, 293.639, -19.542, 0.402)
pt3dadd(-70.058, 293.689, -19.578, 0.402)
pt3dadd(-70.164, 293.732, -19.6, 0.414)
pt3dadd(-70.28, 293.766, -19.6, 0.444)
pt3dadd(-70.395, 293.798, -19.6, 0.476)
pt3dadd(-70.502, 293.852, -19.603, 0.496)
pt3dadd(-70.608, 293.908, -19.606, 0.518)
pt3dadd(-70.715, 293.963, -19.609, 0.538)
pt3dadd(-70.789, 294.025, -19.636, 0.56)
pt3dadd(-70.795, 294.103, -19.712, 0.584)
pt3dadd(-70.818, 294.168, -19.789, 0.602)
pt3dadd(-70.882, 294.2, -19.869, 0.602)
pt3dadd(-70.946, 294.233, -19.949, 0.602)
pt3dadd(-71.028, 294.24, -20.02, 0.612)
pt3dadd(-71.116, 294.24, -20.088, 0.624)
pt3dadd(-71.157, 294.24, -20.176, 0.628)
pt3dadd(-71.185, 294.24, -20.273, 0.612)
pt3dadd(-71.218, 294.24, -20.369, 0.592)
pt3dadd(-71.266, 294.242, -20.458, 0.558)
pt3dadd(-71.344, 294.248, -20.534, 0.496)
pt3dadd(-71.432, 294.265, -20.59, 0.44)
pt3dadd(-71.544, 294.306, -20.595, 0.394)
pt3dadd(-71.657, 294.348, -20.601, 0.352)
pt3dadd(-71.767, 294.373, -20.634, 0.352)
pt3dadd(-71.878, 294.398, -20.666, 0.352)
pt3dadd(-71.974, 294.462, -20.693, 0.41)
pt3dadd(-72.066, 294.538, -20.7, 0.438)
pt3dadd(-72.156, 294.617, -20.7, 0.454)
pt3dadd(-72.246, 294.696, -20.7, 0.468)
pt3dadd(-72.336, 294.775, -20.7, 0.484)
pt3dadd(-72.427, 294.854, -20.7, 0.5)
pt3dadd(-72.48, 294.96, -20.7, 0.452)
}
dend_5[20] {pt3dclear()
pt3dadd(-27.733, 274.187, -12.7, 1.834)
pt3dadd(-27.731, 274.189, -12.689, 1.832)
pt3dadd(-27.713, 274.207, -12.591, 1.83)
pt3dadd(-27.694, 274.226, -12.494, 1.826)
pt3dadd(-27.676, 274.244, -12.396, 1.822)
pt3dadd(-27.656, 274.264, -12.298, 1.818)
pt3dadd(-27.638, 274.282, -12.201, 1.816)
pt3dadd(-27.619, 274.301, -12.103, 1.812)
pt3dadd(-27.601, 274.319, -12.006, 1.808)
pt3dadd(-27.6, 274.433, -12, 1.748)
pt3dadd(-27.6, 274.553, -12, 1.682)
pt3dadd(-27.6, 274.673, -12, 1.618)
pt3dadd(-27.6, 274.793, -12, 1.554)
pt3dadd(-27.6, 274.913, -12, 1.488)
pt3dadd(-27.6, 275.033, -12, 1.424)
pt3dadd(-27.6, 275.153, -12, 1.36)
pt3dadd(-27.6, 275.273, -12, 1.326)
pt3dadd(-27.6, 275.393, -12, 1.294)
pt3dadd(-27.6, 275.513, -12, 1.262)
pt3dadd(-27.6, 275.633, -12, 1.228)
pt3dadd(-27.6, 275.753, -12, 1.196)
pt3dadd(-27.6, 275.873, -12, 1.164)
pt3dadd(-27.6, 275.993, -12, 1.132)
pt3dadd(-27.58, 276.112, -12, 1.122)
pt3dadd(-27.557, 276.229, -12, 1.114)
pt3dadd(-27.535, 276.347, -12, 1.106)
pt3dadd(-27.512, 276.464, -12, 1.098)
pt3dadd(-27.49, 276.583, -12, 1.088)
pt3dadd(-27.468, 276.701, -12, 1.08)
pt3dadd(-27.43, 276.815, -12, 1.106)
pt3dadd(-27.391, 276.928, -12, 1.132)
pt3dadd(-27.353, 277.042, -12, 1.16)
pt3dadd(-27.314, 277.156, -12, 1.188)
pt3dadd(-27.275, 277.268, -12, 1.214)
pt3dadd(-27.252, 277.385, -12, 1.246)
pt3dadd(-27.251, 277.505, -12, 1.282)
pt3dadd(-27.248, 277.625, -12, 1.32)
pt3dadd(-27.247, 277.745, -12, 1.356)
pt3dadd(-27.245, 277.865, -12, 1.392)
pt3dadd(-27.242, 277.985, -12, 1.428)
pt3dadd(-27.241, 278.105, -12, 1.464)
pt3dadd(-27.24, 278.225, -12, 1.496)
pt3dadd(-27.24, 278.345, -12, 1.52)
pt3dadd(-27.24, 278.465, -12, 1.546)
pt3dadd(-27.24, 278.585, -12, 1.57)
pt3dadd(-27.24, 278.705, -12, 1.596)
pt3dadd(-27.24, 278.825, -12, 1.62)
pt3dadd(-27.24, 278.945, -12, 1.646)
pt3dadd(-27.24, 279.065, -12, 1.658)
pt3dadd(-27.24, 279.185, -12, 1.658)
pt3dadd(-27.24, 279.305, -12, 1.658)
pt3dadd(-27.24, 279.425, -12, 1.658)
pt3dadd(-27.24, 279.545, -12, 1.658)
pt3dadd(-27.24, 279.665, -12, 1.658)
pt3dadd(-27.24, 279.785, -12, 1.658)
pt3dadd(-27.24, 279.905, -12, 1.644)
pt3dadd(-27.24, 280.025, -12, 1.618)
pt3dadd(-27.24, 280.145, -12, 1.594)
pt3dadd(-27.24, 280.265, -12, 1.568)
pt3dadd(-27.24, 280.385, -12, 1.544)
pt3dadd(-27.24, 280.505, -12, 1.518)
pt3dadd(-27.24, 280.625, -12, 1.494)
pt3dadd(-27.24, 280.745, -12, 1.464)
pt3dadd(-27.24, 280.865, -12, 1.432)
}
}
proc shape3d_64() {
dend_5[20] { pt3dadd(-27.24, 280.985, -12, 1.4)
pt3dadd(-27.24, 281.105, -12, 1.368)
pt3dadd(-27.24, 281.225, -12, 1.334)
pt3dadd(-27.24, 281.345, -12, 1.302)
pt3dadd(-27.24, 281.465, -12, 1.27)
pt3dadd(-27.24, 281.585, -12, 1.242)
pt3dadd(-27.24, 281.705, -12, 1.218)
pt3dadd(-27.24, 281.825, -12, 1.192)
pt3dadd(-27.24, 281.945, -12, 1.166)
pt3dadd(-27.24, 282.065, -12, 1.142)
pt3dadd(-27.24, 282.185, -12, 1.116)
pt3dadd(-27.24, 282.305, -12, 1.092)
pt3dadd(-27.24, 282.425, -12, 1.08)
pt3dadd(-27.24, 282.545, -12, 1.08)
pt3dadd(-27.24, 282.665, -12, 1.08)
pt3dadd(-27.24, 282.785, -12, 1.08)
pt3dadd(-27.24, 282.905, -12, 1.08)
pt3dadd(-27.24, 283.025, -12, 1.08)
pt3dadd(-27.24, 283.145, -12, 1.08)
pt3dadd(-27.24, 283.265, -12, 1.086)
pt3dadd(-27.24, 283.385, -12, 1.096)
pt3dadd(-27.24, 283.505, -12, 1.108)
pt3dadd(-27.24, 283.625, -12, 1.118)
pt3dadd(-27.24, 283.745, -12, 1.128)
pt3dadd(-27.24, 283.865, -12, 1.14)
pt3dadd(-27.24, 283.985, -12, 1.15)
pt3dadd(-27.24, 284.105, -12, 1.162)
pt3dadd(-27.24, 284.225, -12, 1.178)
pt3dadd(-27.24, 284.345, -12, 1.192)
pt3dadd(-27.24, 284.465, -12, 1.206)
pt3dadd(-27.24, 284.585, -12, 1.22)
pt3dadd(-27.24, 284.705, -12, 1.234)
pt3dadd(-27.24, 284.825, -12, 1.25)
pt3dadd(-27.24, 284.945, -12, 1.258)
pt3dadd(-27.24, 285.065, -12, 1.262)
pt3dadd(-27.24, 285.185, -12, 1.264)
pt3dadd(-27.24, 285.305, -12, 1.268)
pt3dadd(-27.24, 285.425, -12, 1.272)
pt3dadd(-27.24, 285.545, -12, 1.276)
pt3dadd(-27.24, 285.665, -12, 1.28)
pt3dadd(-27.24, 285.78, -11.98, 1.284)
pt3dadd(-27.24, 285.892, -11.943, 1.288)
pt3dadd(-27.24, 286.003, -11.906, 1.292)
pt3dadd(-27.24, 286.115, -11.868, 1.298)
pt3dadd(-27.24, 286.226, -11.831, 1.302)
pt3dadd(-27.24, 286.339, -11.8, 1.308)
pt3dadd(-27.24, 286.459, -11.8, 1.322)
pt3dadd(-27.24, 286.579, -11.8, 1.336)
pt3dadd(-27.24, 286.699, -11.8, 1.352)
pt3dadd(-27.24, 286.819, -11.8, 1.366)
pt3dadd(-27.24, 286.939, -11.8, 1.38)
pt3dadd(-27.24, 287.059, -11.8, 1.394)
pt3dadd(-27.24, 287.179, -11.8, 1.408)
pt3dadd(-27.24, 287.299, -11.8, 1.414)
pt3dadd(-27.24, 287.419, -11.8, 1.422)
pt3dadd(-27.24, 287.539, -11.8, 1.428)
pt3dadd(-27.24, 287.659, -11.8, 1.436)
pt3dadd(-27.24, 287.779, -11.8, 1.444)
pt3dadd(-27.24, 287.899, -11.8, 1.45)
pt3dadd(-27.24, 288.019, -11.8, 1.456)
pt3dadd(-27.24, 288.139, -11.8, 1.456)
pt3dadd(-27.24, 288.259, -11.8, 1.456)
pt3dadd(-27.24, 288.379, -11.8, 1.456)
pt3dadd(-27.24, 288.499, -11.8, 1.456)
pt3dadd(-27.24, 288.619, -11.8, 1.456)
pt3dadd(-27.24, 288.739, -11.8, 1.456)
pt3dadd(-27.24, 288.859, -11.8, 1.452)
pt3dadd(-27.24, 288.979, -11.8, 1.428)
pt3dadd(-27.24, 289.099, -11.8, 1.402)
pt3dadd(-27.24, 289.219, -11.8, 1.378)
pt3dadd(-27.24, 289.339, -11.8, 1.352)
pt3dadd(-27.24, 289.459, -11.8, 1.328)
pt3dadd(-27.24, 289.579, -11.8, 1.302)
pt3dadd(-27.24, 289.699, -11.798, 1.276)
pt3dadd(-27.242, 289.818, -11.788, 1.248)
pt3dadd(-27.245, 289.937, -11.777, 1.22)
pt3dadd(-27.247, 290.057, -11.766, 1.192)
pt3dadd(-27.248, 290.176, -11.756, 1.164)
pt3dadd(-27.251, 290.296, -11.745, 1.136)
pt3dadd(-27.253, 290.414, -11.734, 1.108)
pt3dadd(-27.272, 290.53, -11.712, 1.07)
pt3dadd(-27.293, 290.644, -11.688, 1.03)
pt3dadd(-27.313, 290.759, -11.664, 0.992)
pt3dadd(-27.335, 290.874, -11.64, 0.952)
pt3dadd(-27.355, 290.988, -11.616, 0.912)
pt3dadd(-27.36, 291.107, -11.608, 0.89)
pt3dadd(-27.36, 291.227, -11.604, 0.874)
pt3dadd(-27.36, 291.347, -11.6, 0.856)
pt3dadd(-27.364, 291.467, -11.6, 0.876)
pt3dadd(-27.368, 291.587, -11.6, 0.904)
pt3dadd(-27.373, 291.707, -11.6, 0.93)
pt3dadd(-27.472, 291.774, -11.6, 0.998)
pt3dadd(-27.571, 291.842, -11.6, 1.068)
pt3dadd(-27.67, 291.91, -11.6, 1.118)
pt3dadd(-27.769, 291.978, -11.6, 1.166)
pt3dadd(-27.806, 292.081, -11.6, 1.18)
pt3dadd(-27.815, 292.201, -11.6, 1.18)
pt3dadd(-27.823, 292.32, -11.6, 1.18)
pt3dadd(-27.832, 292.44, -11.6, 1.18)
pt3dadd(-27.84, 292.56, -11.6, 1.18)
pt3dadd(-27.84, 292.68, -11.6, 1.18)
pt3dadd(-27.84, 292.8, -11.6, 1.18)
pt3dadd(-27.84, 292.92, -11.6, 1.18)
}
dend_5[21] {pt3dclear()
pt3dadd(-27.84, 292.92, -11.6, 1.18)
pt3dadd(-27.84, 292.97, -11.6, 1.19)
pt3dadd(-27.84, 293.09, -11.6, 1.212)
pt3dadd(-27.84, 293.21, -11.6, 1.226)
pt3dadd(-27.84, 293.33, -11.6, 1.24)
pt3dadd(-27.84, 293.45, -11.6, 1.254)
pt3dadd(-27.84, 293.57, -11.6, 1.268)
pt3dadd(-27.84, 293.69, -11.6, 1.284)
pt3dadd(-27.84, 293.81, -11.6, 1.298)
pt3dadd(-27.84, 293.929, -11.593, 1.312)
pt3dadd(-27.84, 294.048, -11.577, 1.324)
pt3dadd(-27.84, 294.167, -11.56, 1.336)
pt3dadd(-27.84, 294.284, -11.544, 1.348)
pt3dadd(-27.84, 294.403, -11.527, 1.36)
pt3dadd(-27.84, 294.522, -11.511, 1.372)
pt3dadd(-27.84, 294.641, -11.499, 1.386)
pt3dadd(-27.84, 294.761, -11.495, 1.404)
pt3dadd(-27.84, 294.88, -11.491, 1.422)
pt3dadd(-27.84, 294.997, -11.474, 1.422)
pt3dadd(-27.84, 295.11, -11.441, 1.4)
pt3dadd(-27.844, 295.224, -11.411, 1.38)
pt3dadd(-27.886, 295.336, -11.406, 1.356)
pt3dadd(-27.926, 295.448, -11.401, 1.334)
pt3dadd(-27.99, 295.549, -11.4, 1.312)
pt3dadd(-28.058, 295.649, -11.4, 1.288)
pt3dadd(-28.144, 295.732, -11.4, 1.292)
pt3dadd(-28.243, 295.788, -11.392, 1.308)
pt3dadd(-28.357, 295.794, -11.364, 1.32)
pt3dadd(-28.472, 295.8, -11.335, 1.33)
pt3dadd(-28.57, 295.865, -11.317, 1.344)
pt3dadd(-28.667, 295.933, -11.3, 1.356)
pt3dadd(-28.672, 296.052, -11.3, 1.356)
pt3dadd(-28.676, 296.172, -11.3, 1.356)
pt3dadd(-28.68, 296.292, -11.297, 1.354)
pt3dadd(-28.68, 296.407, -11.27, 1.344)
pt3dadd(-28.68, 296.522, -11.242, 1.334)
pt3dadd(-28.686, 296.639, -11.219, 1.31)
pt3dadd(-28.698, 296.755, -11.198, 1.278)
pt3dadd(-28.757, 296.856, -11.176, 1.256)
pt3dadd(-28.817, 296.957, -11.154, 1.234)
pt3dadd(-28.876, 297.058, -11.132, 1.212)
pt3dadd(-28.934, 297.158, -11.109, 1.19)
pt3dadd(-28.996, 297.26, -11.099, 1.168)
pt3dadd(-29.057, 297.364, -11.096, 1.148)
pt3dadd(-29.117, 297.467, -11.094, 1.128)
pt3dadd(-29.178, 297.57, -11.092, 1.108)
pt3dadd(-29.239, 297.673, -11.09, 1.088)
pt3dadd(-29.276, 297.785, -11.08, 1.074)
pt3dadd(-29.293, 297.902, -11.064, 1.066)
pt3dadd(-29.31, 298.019, -11.047, 1.056)
pt3dadd(-29.328, 298.136, -11.031, 1.048)
pt3dadd(-29.345, 298.254, -11.015, 1.038)
pt3dadd(-29.36, 298.37, -11, 1.03)
pt3dadd(-29.366, 298.49, -11, 1.038)
pt3dadd(-29.372, 298.61, -11, 1.046)
pt3dadd(-29.378, 298.73, -11, 1.052)
pt3dadd(-29.384, 298.85, -11, 1.06)
pt3dadd(-29.39, 298.97, -11, 1.068)
pt3dadd(-29.396, 299.09, -11, 1.076)
pt3dadd(-29.425, 299.203, -11, 1.09)
pt3dadd(-29.485, 299.308, -11, 1.114)
pt3dadd(-29.545, 299.411, -11, 1.14)
pt3dadd(-29.605, 299.515, -11, 1.164)
pt3dadd(-29.665, 299.618, -11, 1.188)
pt3dadd(-29.717, 299.725, -10.994, 1.212)
pt3dadd(-29.749, 299.839, -10.974, 1.238)
pt3dadd(-29.78, 299.952, -10.954, 1.264)
pt3dadd(-29.813, 300.065, -10.934, 1.288)
pt3dadd(-29.845, 300.178, -10.913, 1.314)
pt3dadd(-29.872, 300.293, -10.9, 1.336)
pt3dadd(-29.887, 300.412, -10.9, 1.352)
pt3dadd(-29.902, 300.53, -10.9, 1.368)
pt3dadd(-29.916, 300.65, -10.9, 1.384)
pt3dadd(-29.932, 300.769, -10.9, 1.4)
pt3dadd(-29.946, 300.888, -10.9, 1.416)
pt3dadd(-29.964, 301.006, -10.9, 1.432)
pt3dadd(-30.028, 301.109, -10.9, 1.448)
pt3dadd(-30.09, 301.211, -10.9, 1.462)
pt3dadd(-30.152, 301.313, -10.9, 1.476)
pt3dadd(-30.215, 301.415, -10.9, 1.492)
pt3dadd(-30.278, 301.518, -10.9, 1.506)
pt3dadd(-30.323, 301.628, -10.9, 1.512)
pt3dadd(-30.367, 301.74, -10.9, 1.516)
pt3dadd(-30.412, 301.852, -10.9, 1.52)
pt3dadd(-30.457, 301.963, -10.9, 1.526)
pt3dadd(-30.502, 302.075, -10.9, 1.53)
pt3dadd(-30.532, 302.19, -10.9, 1.528)
pt3dadd(-30.551, 302.309, -10.9, 1.518)
pt3dadd(-30.571, 302.426, -10.9, 1.51)
pt3dadd(-30.59, 302.545, -10.9, 1.502)
pt3dadd(-30.61, 302.664, -10.9, 1.494)
pt3dadd(-30.63, 302.782, -10.9, 1.486)
pt3dadd(-30.667, 302.894, -10.9, 1.448)
pt3dadd(-30.72, 303.002, -10.9, 1.38)
pt3dadd(-30.768, 303.112, -10.9, 1.316)
pt3dadd(-30.802, 303.227, -10.9, 1.266)
pt3dadd(-30.835, 303.342, -10.9, 1.214)
}
}
proc shape3d_65() {
dend_5[21] { pt3dadd(-30.878, 303.452, -10.886, 1.174)
pt3dadd(-30.923, 303.562, -10.87, 1.138)
pt3dadd(-30.998, 303.628, -10.823, 1.142)
pt3dadd(-31.081, 303.682, -10.766, 1.156)
pt3dadd(-31.15, 303.761, -10.718, 1.156)
pt3dadd(-31.196, 303.858, -10.676, 1.144)
pt3dadd(-31.24, 303.959, -10.634, 1.13)
pt3dadd(-31.308, 304.028, -10.576, 1.102)
pt3dadd(-31.381, 304.102, -10.529, 1.08)
pt3dadd(-31.465, 304.184, -10.511, 1.08)
pt3dadd(-31.531, 304.279, -10.5, 1.086)
pt3dadd(-31.564, 304.394, -10.5, 1.108)
pt3dadd(-31.596, 304.51, -10.5, 1.128)
pt3dadd(-31.639, 304.622, -10.5, 1.16)
pt3dadd(-31.675, 304.735, -10.5, 1.18)
pt3dadd(-31.7, 304.853, -10.5, 1.18)
pt3dadd(-31.726, 304.97, -10.5, 1.18)
pt3dadd(-31.75, 305.088, -10.5, 1.18)
pt3dadd(-31.775, 305.206, -10.5, 1.18)
pt3dadd(-31.8, 305.323, -10.5, 1.18)
pt3dadd(-31.846, 305.43, -10.5, 1.178)
pt3dadd(-31.918, 305.526, -10.5, 1.172)
pt3dadd(-31.99, 305.622, -10.5, 1.168)
pt3dadd(-32.062, 305.718, -10.5, 1.162)
pt3dadd(-32.134, 305.814, -10.5, 1.158)
pt3dadd(-32.214, 305.904, -10.5, 1.152)
pt3dadd(-32.303, 305.984, -10.5, 1.148)
pt3dadd(-32.392, 306.065, -10.5, 1.142)
pt3dadd(-32.48, 306.145, -10.5, 1.138)
pt3dadd(-32.569, 306.226, -10.5, 1.132)
pt3dadd(-32.653, 306.31, -10.489, 1.13)
pt3dadd(-32.732, 306.395, -10.466, 1.13)
pt3dadd(-32.813, 306.48, -10.443, 1.13)
pt3dadd(-32.892, 306.565, -10.42, 1.13)
pt3dadd(-32.969, 306.654, -10.4, 1.13)
pt3dadd(-33.03, 306.757, -10.4, 1.13)
pt3dadd(-33.09, 306.86, -10.4, 1.13)
pt3dadd(-33.158, 306.958, -10.384, 1.13)
pt3dadd(-33.227, 307.054, -10.367, 1.13)
pt3dadd(-33.302, 307.136, -10.329, 1.13)
pt3dadd(-33.384, 307.211, -10.299, 1.124)
pt3dadd(-33.494, 307.26, -10.294, 1.102)
pt3dadd(-33.604, 307.307, -10.288, 1.078)
pt3dadd(-33.714, 307.316, -10.249, 1.026)
pt3dadd(-33.823, 307.346, -10.224, 0.968)
pt3dadd(-33.934, 307.392, -10.208, 0.908)
pt3dadd(-34.021, 307.464, -10.2, 0.862)
pt3dadd(-34.09, 307.564, -10.2, 0.826)
pt3dadd(-34.166, 307.64, -10.181, 0.79)
pt3dadd(-34.261, 307.675, -10.127, 0.748)
pt3dadd(-34.321, 307.744, -10.073, 0.722)
pt3dadd(-34.349, 307.842, -10.021, 0.708)
pt3dadd(-34.391, 307.943, -9.984, 0.704)
pt3dadd(-34.43, 308.05, -9.957, 0.706)
pt3dadd(-34.442, 308.164, -9.927, 0.718)
pt3dadd(-34.458, 308.276, -9.898, 0.73)
pt3dadd(-34.505, 308.384, -9.876, 0.742)
pt3dadd(-34.554, 308.483, -9.847, 0.75)
pt3dadd(-34.622, 308.503, -9.767, 0.724)
pt3dadd(-34.694, 308.528, -9.692, 0.698)
pt3dadd(-34.784, 308.581, -9.642, 0.67)
pt3dadd(-34.87, 308.647, -9.608, 0.668)
pt3dadd(-34.95, 308.736, -9.6, 0.704)
pt3dadd(-35.051, 308.802, -9.6, 0.744)
pt3dadd(-35.15, 308.868, -9.6, 0.784)
pt3dadd(-35.251, 308.934, -9.6, 0.824)
pt3dadd(-35.351, 309, -9.6, 0.864)
pt3dadd(-35.452, 309.066, -9.6, 0.904)
pt3dadd(-35.567, 309.097, -9.6, 0.952)
pt3dadd(-35.683, 309.127, -9.6, 1)
pt3dadd(-35.8, 309.157, -9.6, 1.048)
pt3dadd(-35.916, 309.187, -9.6, 1.096)
pt3dadd(-36.032, 309.217, -9.6, 1.144)
pt3dadd(-36.149, 309.24, -9.599, 1.194)
pt3dadd(-36.269, 309.24, -9.595, 1.256)
pt3dadd(-36.389, 309.24, -9.591, 1.316)
pt3dadd(-36.506, 309.24, -9.577, 1.368)
pt3dadd(-36.619, 309.24, -9.544, 1.4)
pt3dadd(-36.733, 309.24, -9.511, 1.432)
pt3dadd(-36.836, 309.24, -9.461, 1.432)
pt3dadd(-36.94, 309.24, -9.41, 1.432)
pt3dadd(-37.02, 309.24, -9.337, 1.412)
pt3dadd(-37.096, 309.24, -9.259, 1.388)
pt3dadd(-37.188, 309.24, -9.197, 1.346)
pt3dadd(-37.291, 309.24, -9.148, 1.302)
pt3dadd(-37.403, 309.24, -9.11, 1.288)
pt3dadd(-37.514, 309.24, -9.073, 1.274)
pt3dadd(-37.626, 309.24, -9.036, 1.26)
pt3dadd(-37.738, 309.24, -8.999, 1.246)
pt3dadd(-37.848, 309.24, -8.962, 1.232)
pt3dadd(-37.961, 309.253, -8.93, 1.226)
pt3dadd(-38.075, 309.269, -8.899, 1.222)
pt3dadd(-38.188, 309.284, -8.868, 1.216)
pt3dadd(-38.3, 309.301, -8.838, 1.212)
pt3dadd(-38.413, 309.317, -8.807, 1.206)
pt3dadd(-38.53, 309.342, -8.799, 1.212)
pt3dadd(-38.646, 309.37, -8.797, 1.22)
pt3dadd(-38.762, 309.397, -8.795, 1.23)
pt3dadd(-38.88, 309.426, -8.793, 1.238)
pt3dadd(-38.996, 309.454, -8.791, 1.248)
pt3dadd(-39.113, 309.481, -8.788, 1.256)
pt3dadd(-39.229, 309.502, -8.769, 1.26)
pt3dadd(-39.346, 309.522, -8.75, 1.266)
pt3dadd(-39.461, 309.541, -8.731, 1.27)
pt3dadd(-39.577, 309.562, -8.712, 1.274)
pt3dadd(-39.694, 309.582, -8.693, 1.28)
pt3dadd(-39.798, 309.617, -8.656, 1.29)
pt3dadd(-39.899, 309.656, -8.612, 1.302)
pt3dadd(-40, 309.696, -8.569, 1.312)
pt3dadd(-40.1, 309.736, -8.526, 1.324)
pt3dadd(-40.208, 309.766, -8.5, 1.328)
pt3dadd(-40.327, 309.78, -8.5, 1.32)
pt3dadd(-40.446, 309.796, -8.5, 1.312)
pt3dadd(-40.565, 309.81, -8.5, 1.304)
pt3dadd(-40.684, 309.826, -8.5, 1.296)
pt3dadd(-40.804, 309.84, -8.5, 1.288)
pt3dadd(-40.921, 309.858, -8.499, 1.28)
pt3dadd(-41.034, 309.9, -8.494, 1.28)
pt3dadd(-41.147, 309.942, -8.49, 1.28)
pt3dadd(-41.258, 309.952, -8.459, 1.272)
pt3dadd(-41.371, 309.958, -8.424, 1.26)
pt3dadd(-41.483, 309.96, -8.387, 1.256)
pt3dadd(-41.593, 309.96, -8.348, 1.256)
pt3dadd(-41.686, 309.974, -8.296, 1.246)
pt3dadd(-41.744, 310.019, -8.216, 1.218)
pt3dadd(-41.825, 310.046, -8.151, 1.194)
pt3dadd(-41.927, 310.058, -8.099, 1.172)
pt3dadd(-42.029, 310.069, -8.047, 1.15)
pt3dadd(-42.132, 310.08, -7.999, 1.13)
pt3dadd(-42.251, 310.086, -7.986, 1.14)
pt3dadd(-42.37, 310.091, -7.973, 1.15)
pt3dadd(-42.473, 310.116, -7.938, 1.22)
pt3dadd(-42.59, 310.132, -7.928, 1.246)
pt3dadd(-42.709, 310.145, -7.923, 1.262)
pt3dadd(-42.828, 310.158, -7.917, 1.278)
pt3dadd(-42.947, 310.171, -7.912, 1.296)
pt3dadd(-43.067, 310.186, -7.906, 1.312)
pt3dadd(-43.186, 310.199, -7.901, 1.328)
pt3dadd(-43.304, 310.217, -7.9, 1.328)
pt3dadd(-43.422, 310.237, -7.9, 1.324)
pt3dadd(-43.541, 310.256, -7.9, 1.318)
pt3dadd(-43.66, 310.277, -7.9, 1.314)
pt3dadd(-43.777, 310.296, -7.9, 1.31)
pt3dadd(-43.896, 310.316, -7.9, 1.306)
pt3dadd(-44.014, 310.32, -7.887, 1.296)
pt3dadd(-44.132, 310.32, -7.871, 1.284)
pt3dadd(-44.251, 310.32, -7.854, 1.272)
pt3dadd(-44.369, 310.32, -7.838, 1.258)
pt3dadd(-44.488, 310.32, -7.821, 1.246)
pt3dadd(-44.606, 310.32, -7.805, 1.234)
pt3dadd(-44.724, 310.334, -7.8, 1.222)
pt3dadd(-44.843, 310.354, -7.8, 1.21)
pt3dadd(-44.962, 310.374, -7.8, 1.196)
pt3dadd(-45.079, 310.393, -7.8, 1.184)
pt3dadd(-45.198, 310.412, -7.8, 1.172)
pt3dadd(-45.317, 310.433, -7.8, 1.16)
pt3dadd(-45.432, 310.44, -7.781, 1.156)
pt3dadd(-45.547, 310.44, -7.751, 1.156)
pt3dadd(-45.661, 310.44, -7.721, 1.156)
pt3dadd(-45.775, 310.44, -7.692, 1.156)
pt3dadd(-45.89, 310.44, -7.662, 1.156)
pt3dadd(-46.004, 310.44, -7.632, 1.156)
pt3dadd(-46.121, 310.447, -7.606, 1.164)
pt3dadd(-46.236, 310.454, -7.579, 1.174)
pt3dadd(-46.351, 310.462, -7.552, 1.184)
pt3dadd(-46.466, 310.47, -7.526, 1.192)
pt3dadd(-46.582, 310.477, -7.499, 1.202)
pt3dadd(-46.694, 310.489, -7.465, 1.208)
pt3dadd(-46.804, 310.506, -7.426, 1.214)
pt3dadd(-46.913, 310.523, -7.388, 1.218)
pt3dadd(-47.022, 310.54, -7.349, 1.224)
pt3dadd(-47.131, 310.555, -7.31, 1.228)
pt3dadd(-47.249, 310.56, -7.3, 1.212)
pt3dadd(-47.369, 310.56, -7.3, 1.186)
pt3dadd(-47.489, 310.56, -7.3, 1.162)
pt3dadd(-47.605, 310.56, -7.28, 1.11)
pt3dadd(-47.72, 310.56, -7.252, 1.048)
pt3dadd(-47.834, 310.572, -7.227, 0.982)
pt3dadd(-47.945, 310.612, -7.205, 0.908)
pt3dadd(-48.042, 310.664, -7.178, 0.842)
pt3dadd(-48.102, 310.753, -7.134, 0.8)
pt3dadd(-48.166, 310.843, -7.093, 0.778)
pt3dadd(-48.242, 310.916, -7.054, 0.78)
pt3dadd(-48.344, 310.949, -7.009, 0.786)
pt3dadd(-48.446, 310.982, -6.964, 0.792)
pt3dadd(-48.548, 311.015, -6.919, 0.798)
pt3dadd(-48.65, 311.047, -6.874, 0.802)
pt3dadd(-48.766, 311.069, -6.857, 0.808)
pt3dadd(-48.883, 311.088, -6.845, 0.812)
pt3dadd(-49.001, 311.107, -6.833, 0.816)
pt3dadd(-49.118, 311.126, -6.821, 0.822)
pt3dadd(-49.236, 311.147, -6.809, 0.826)
pt3dadd(-49.354, 311.16, -6.796, 0.826)
pt3dadd(-49.472, 311.16, -6.782, 0.818)
pt3dadd(-49.591, 311.16, -6.767, 0.81)
pt3dadd(-49.71, 311.16, -6.753, 0.802)
pt3dadd(-49.829, 311.16, -6.738, 0.794)
pt3dadd(-49.948, 311.16, -6.724, 0.786)
pt3dadd(-50.066, 311.16, -6.711, 0.776)
pt3dadd(-50.186, 311.16, -6.707, 0.76)
}
}
proc shape3d_66() {
dend_5[21] { pt3dadd(-50.306, 311.16, -6.703, 0.742)
pt3dadd(-50.425, 311.16, -6.694, 0.722)
pt3dadd(-50.54, 311.16, -6.667, 0.69)
pt3dadd(-50.656, 311.16, -6.639, 0.66)
pt3dadd(-50.768, 311.19, -6.621, 0.644)
pt3dadd(-50.881, 311.227, -6.605, 0.632)
pt3dadd(-50.988, 311.28, -6.6, 0.642)
pt3dadd(-51.091, 311.341, -6.6, 0.666)
pt3dadd(-51.19, 311.408, -6.6, 0.744)
pt3dadd(-51.284, 311.48, -6.6, 0.88)
pt3dadd(-51.404, 311.486, -6.6, 0.922)
pt3dadd(-51.524, 311.492, -6.6, 0.964)
pt3dadd(-51.644, 311.498, -6.6, 1.004)
pt3dadd(-51.764, 311.504, -6.6, 1.046)
pt3dadd(-51.884, 311.51, -6.6, 1.088)
pt3dadd(-52.004, 311.516, -6.6, 1.128)
pt3dadd(-52.123, 311.52, -6.594, 1.166)
pt3dadd(-52.242, 311.52, -6.578, 1.194)
pt3dadd(-52.36, 311.52, -6.561, 1.224)
pt3dadd(-52.478, 311.52, -6.545, 1.252)
pt3dadd(-52.597, 311.52, -6.528, 1.282)
pt3dadd(-52.715, 311.52, -6.512, 1.31)
pt3dadd(-52.83, 311.527, -6.488, 1.332)
pt3dadd(-52.934, 311.554, -6.444, 1.338)
pt3dadd(-53.039, 311.58, -6.4, 1.344)
pt3dadd(-53.143, 311.606, -6.357, 1.348)
pt3dadd(-53.249, 311.632, -6.313, 1.354)
pt3dadd(-53.362, 311.64, -6.284, 1.35)
pt3dadd(-53.478, 311.64, -6.261, 1.342)
pt3dadd(-53.596, 311.64, -6.238, 1.332)
pt3dadd(-53.712, 311.64, -6.215, 1.324)
pt3dadd(-53.828, 311.64, -6.193, 1.316)
pt3dadd(-53.946, 311.64, -6.17, 1.306)
pt3dadd(-54.056, 311.681, -6.155, 1.306)
pt3dadd(-54.166, 311.728, -6.141, 1.306)
pt3dadd(-54.275, 311.774, -6.127, 1.306)
pt3dadd(-54.384, 311.82, -6.114, 1.306)
pt3dadd(-54.493, 311.867, -6.1, 1.306)
pt3dadd(-54.595, 311.897, -6.053, 1.306)
pt3dadd(-54.696, 311.927, -6.005, 1.306)
pt3dadd(-54.798, 311.957, -5.958, 1.306)
pt3dadd(-54.9, 311.986, -5.911, 1.306)
pt3dadd(-54.99, 312, -5.85, 1.294)
pt3dadd(-55.072, 312, -5.776, 1.27)
pt3dadd(-55.16, 312, -5.71, 1.242)
pt3dadd(-55.26, 312, -5.653, 1.206)
pt3dadd(-55.363, 312.004, -5.61, 1.178)
pt3dadd(-55.482, 312.019, -5.606, 1.168)
pt3dadd(-55.601, 312.035, -5.601, 1.158)
pt3dadd(-55.691, 312.102, -5.6, 1.17)
pt3dadd(-55.765, 312.197, -5.6, 1.194)
pt3dadd(-55.835, 312.294, -5.6, 1.214)
pt3dadd(-55.902, 312.392, -5.6, 1.23)
pt3dadd(-56.002, 312.46, -5.6, 1.23)
pt3dadd(-56.1, 312.528, -5.6, 1.23)
pt3dadd(-56.189, 312.61, -5.6, 1.22)
pt3dadd(-56.276, 312.691, -5.6, 1.208)
pt3dadd(-56.39, 312.71, -5.6, 1.198)
pt3dadd(-56.51, 312.715, -5.6, 1.19)
pt3dadd(-56.63, 312.72, -5.6, 1.18)
pt3dadd(-56.75, 312.72, -5.6, 1.158)
pt3dadd(-56.87, 312.72, -5.6, 1.132)
pt3dadd(-56.99, 312.72, -5.6, 1.106)
pt3dadd(-57.109, 312.72, -5.595, 1.068)
pt3dadd(-57.229, 312.72, -5.589, 1.03)
pt3dadd(-57.348, 312.72, -5.574, 1.022)
pt3dadd(-57.467, 312.72, -5.56, 1.014)
pt3dadd(-57.586, 312.72, -5.545, 1.006)
pt3dadd(-57.704, 312.72, -5.531, 0.996)
pt3dadd(-57.823, 312.72, -5.517, 0.988)
pt3dadd(-57.942, 312.72, -5.502, 0.98)
pt3dadd(-58.062, 312.72, -5.5, 0.98)
pt3dadd(-58.182, 312.72, -5.5, 0.98)
pt3dadd(-58.302, 312.72, -5.5, 0.98)
pt3dadd(-58.421, 312.72, -5.49, 0.964)
pt3dadd(-58.54, 312.72, -5.477, 0.944)
pt3dadd(-58.658, 312.72, -5.462, 0.926)
pt3dadd(-58.774, 312.72, -5.435, 0.906)
pt3dadd(-58.889, 312.72, -5.407, 0.884)
pt3dadd(-58.996, 312.764, -5.4, 0.854)
pt3dadd(-59.099, 312.826, -5.4, 0.82)
pt3dadd(-59.152, 312.916, -5.384, 0.804)
pt3dadd(-59.162, 313.028, -5.355, 0.804)
pt3dadd(-59.268, 313.066, -5.321, 0.814)
pt3dadd(-59.375, 313.104, -5.286, 0.826)
pt3dadd(-59.48, 313.142, -5.252, 0.838)
pt3dadd(-59.586, 313.181, -5.217, 0.848)
pt3dadd(-59.698, 313.212, -5.19, 0.868)
pt3dadd(-59.813, 313.235, -5.171, 0.896)
pt3dadd(-59.928, 313.258, -5.152, 0.926)
pt3dadd(-60.043, 313.28, -5.133, 0.956)
pt3dadd(-60.158, 313.303, -5.113, 0.984)
pt3dadd(-60.27, 313.337, -5.092, 1.016)
pt3dadd(-60.37, 313.394, -5.064, 1.056)
pt3dadd(-60.469, 313.452, -5.036, 1.096)
pt3dadd(-60.57, 313.51, -5.009, 1.136)
pt3dadd(-60.67, 313.567, -4.981, 1.176)
pt3dadd(-60.778, 313.594, -4.944, 1.198)
pt3dadd(-60.887, 313.615, -4.907, 1.22)
pt3dadd(-60.996, 313.638, -4.87, 1.242)
pt3dadd(-61.105, 313.661, -4.833, 1.262)
pt3dadd(-61.214, 313.68, -4.795, 1.282)
pt3dadd(-61.325, 313.68, -4.756, 1.294)
pt3dadd(-61.435, 313.68, -4.717, 1.304)
pt3dadd(-61.552, 313.698, -4.707, 1.288)
pt3dadd(-61.67, 313.718, -4.703, 1.268)
pt3dadd(-61.757, 313.774, -4.7, 1.256)
pt3dadd(-61.782, 313.89, -4.7, 1.256)
pt3dadd(-61.808, 314.008, -4.7, 1.256)
pt3dadd(-61.858, 314.096, -4.653, 1.244)
pt3dadd(-61.91, 314.178, -4.595, 1.23)
pt3dadd(-61.955, 314.25, -4.524, 1.222)
pt3dadd(-61.999, 314.322, -4.453, 1.212)
pt3dadd(-62.04, 314.39, -4.38, 1.2)
pt3dadd(-62.04, 314.43, -4.285, 1.146)
pt3dadd(-62.04, 314.471, -4.191, 1.094)
pt3dadd(-62.04, 314.52, -4.1, 0.93)
pt3dadd(-62.04, 314.588, -4.018, 0.86)
pt3dadd(-62.04, 314.656, -3.935, 0.79)
pt3dadd(-62.104, 314.712, -3.869, 0.73)
pt3dadd(-62.184, 314.761, -3.811, 0.676)
pt3dadd(-62.303, 314.777, -3.806, 0.646)
pt3dadd(-62.422, 314.792, -3.802, 0.618)
pt3dadd(-62.533, 314.821, -3.782, 0.582)
pt3dadd(-62.638, 314.863, -3.747, 0.544)
pt3dadd(-62.746, 314.905, -3.739, 0.522)
pt3dadd(-62.858, 314.948, -3.747, 0.512)
pt3dadd(-62.962, 314.988, -3.747, 0.504)
pt3dadd(-62.977, 314.999, -3.649, 0.514)
pt3dadd(-62.994, 315.008, -3.55, 0.524)
pt3dadd(-63, 315.065, -3.468, 0.564)
pt3dadd(-63, 315.158, -3.435, 0.632)
pt3dadd(-63.017, 315.23, -3.508, 0.674)
pt3dadd(-63.071, 315.274, -3.589, 0.634)
pt3dadd(-63.118, 315.355, -3.647, 0.66)
pt3dadd(-63.187, 315.421, -3.704, 0.732)
pt3dadd(-63.271, 315.474, -3.761, 0.774)
pt3dadd(-63.371, 315.534, -3.782, 0.768)
pt3dadd(-63.472, 315.595, -3.799, 0.754)
pt3dadd(-63.578, 315.65, -3.796, 0.706)
pt3dadd(-63.684, 315.706, -3.793, 0.654)
pt3dadd(-63.79, 315.761, -3.786, 0.6)
pt3dadd(-63.847, 315.805, -3.707, 0.488)
pt3dadd(-63.918, 315.84, -3.642, 0.394)
pt3dadd(-64.037, 315.84, -3.629, 0.36)
pt3dadd(-64.157, 315.84, -3.617, 0.324)
pt3dadd(-64.276, 315.84, -3.605, 0.29)
pt3dadd(-64.396, 315.84, -3.6, 0.276)
pt3dadd(-64.516, 315.84, -3.6, 0.276)
pt3dadd(-64.636, 315.84, -3.6, 0.276)
pt3dadd(-64.756, 315.84, -3.6, 0.37)
pt3dadd(-64.874, 315.84, -3.59, 0.452)
pt3dadd(-64.992, 315.84, -3.573, 0.494)
pt3dadd(-65.111, 315.84, -3.557, 0.536)
pt3dadd(-65.23, 315.84, -3.54, 0.576)
pt3dadd(-65.347, 315.84, -3.524, 0.618)
pt3dadd(-65.466, 315.84, -3.508, 0.66)
pt3dadd(-65.585, 315.848, -3.5, 0.698)
pt3dadd(-65.704, 315.863, -3.5, 0.734)
pt3dadd(-65.822, 315.878, -3.5, 0.77)
pt3dadd(-65.942, 315.893, -3.5, 0.806)
pt3dadd(-66.061, 315.908, -3.5, 0.842)
pt3dadd(-66.18, 315.923, -3.5, 0.878)
pt3dadd(-66.299, 315.941, -3.5, 0.908)
pt3dadd(-66.416, 315.965, -3.5, 0.926)
pt3dadd(-66.534, 315.99, -3.5, 0.942)
pt3dadd(-66.651, 316.015, -3.5, 0.96)
pt3dadd(-66.768, 316.039, -3.5, 0.976)
pt3dadd(-66.886, 316.064, -3.5, 0.994)
pt3dadd(-67.003, 316.087, -3.5, 1.002)
pt3dadd(-67.122, 316.106, -3.5, 0.998)
pt3dadd(-67.24, 316.127, -3.5, 0.994)
pt3dadd(-67.359, 316.146, -3.5, 0.99)
pt3dadd(-67.477, 316.166, -3.5, 0.986)
pt3dadd(-67.595, 316.186, -3.5, 0.982)
pt3dadd(-67.714, 316.204, -3.5, 0.974)
pt3dadd(-67.833, 316.219, -3.5, 0.956)
pt3dadd(-67.952, 316.234, -3.5, 0.936)
pt3dadd(-68.064, 316.272, -3.5, 0.93)
pt3dadd(-68.172, 316.325, -3.5, 0.93)
pt3dadd(-68.28, 316.375, -3.494, 0.934)
pt3dadd(-68.389, 316.421, -3.478, 0.946)
pt3dadd(-68.484, 316.469, -3.445, 0.966)
pt3dadd(-68.544, 316.52, -3.37, 1.008)
pt3dadd(-68.626, 316.552, -3.309, 1.048)
pt3dadd(-68.732, 316.565, -3.265, 1.082)
pt3dadd(-68.844, 316.604, -3.252, 1.096)
pt3dadd(-68.956, 316.644, -3.239, 1.112)
pt3dadd(-69.068, 316.685, -3.225, 1.126)
pt3dadd(-69.18, 316.724, -3.212, 1.142)
pt3dadd(-69.292, 316.764, -3.2, 1.156)
pt3dadd(-69.408, 316.796, -3.2, 1.156)
pt3dadd(-69.523, 316.829, -3.2, 1.156)
pt3dadd(-69.639, 316.862, -3.2, 1.162)
pt3dadd(-69.754, 316.895, -3.2, 1.172)
pt3dadd(-69.866, 316.936, -3.2, 1.184)
pt3dadd(-69.97, 316.997, -3.2, 1.194)
pt3dadd(-70.067, 317.06, -3.2, 1.206)
pt3dadd(-70.077, 317.18, -3.2, 1.224)
pt3dadd(-70.086, 317.3, -3.2, 1.242)
}
}
proc shape3d_67() {
dend_5[21] { pt3dadd(-70.12, 317.406, -3.2, 1.254)
pt3dadd(-70.217, 317.477, -3.2, 1.246)
pt3dadd(-70.314, 317.548, -3.2, 1.24)
pt3dadd(-70.41, 317.618, -3.2, 1.232)
pt3dadd(-70.523, 317.651, -3.2, 1.198)
pt3dadd(-70.642, 317.665, -3.2, 1.152)
pt3dadd(-70.761, 317.68, -3.2, 1.104)
pt3dadd(-70.869, 317.732, -3.2, 0.92)
pt3dadd(-70.98, 317.777, -3.2, 0.888)
pt3dadd(-71.092, 317.821, -3.2, 0.856)
pt3dadd(-71.203, 317.866, -3.2, 0.822)
pt3dadd(-71.315, 317.91, -3.2, 0.79)
pt3dadd(-71.426, 317.954, -3.2, 0.758)
pt3dadd(-71.543, 317.978, -3.2, 0.72)
pt3dadd(-71.662, 317.999, -3.2, 0.68)
pt3dadd(-71.778, 318.026, -3.195, 0.642)
pt3dadd(-71.887, 318.071, -3.179, 0.606)
pt3dadd(-71.989, 318.124, -3.159, 0.578)
pt3dadd(-72.064, 318.206, -3.121, 0.578)
pt3dadd(-72.129, 318.299, -3.093, 0.568)
pt3dadd(-72.183, 318.404, -3.076, 0.542)
pt3dadd(-72.258, 318.475, -3.05, 0.528)
pt3dadd(-72.366, 318.496, -3.011, 0.526)
pt3dadd(-72.478, 318.536, -3.006, 0.516)
pt3dadd(-72.591, 318.578, -3.001, 0.504)
pt3dadd(-72.696, 318.636, -3, 0.53)
pt3dadd(-72.8, 318.696, -3, 0.564)
pt3dadd(-72.905, 318.754, -2.997, 0.592)
pt3dadd(-73.01, 318.81, -2.992, 0.616)
pt3dadd(-73.095, 318.84, -2.949, 0.638)
pt3dadd(-73.156, 318.84, -2.862, 0.662)
pt3dadd(-73.201, 318.854, -2.775, 0.678)
pt3dadd(-73.205, 318.905, -2.684, 0.678)
pt3dadd(-73.208, 318.955, -2.594, 0.678)
pt3dadd(-73.212, 319.007, -2.503, 0.678)
pt3dadd(-73.27, 319.057, -2.441, 0.662)
pt3dadd(-73.366, 319.109, -2.398, 0.634)
pt3dadd(-73.427, 319.18, -2.343, 0.514)
pt3dadd(-73.431, 319.274, -2.283, 0.442)
pt3dadd(-73.434, 319.369, -2.222, 0.37)
pt3dadd(-73.437, 319.465, -2.161, 0.298)
pt3dadd(-73.44, 319.56, -2.1, 0.226)
}
dend_5[22] {pt3dclear()
pt3dadd(-27.84, 292.92, -11.6, 1.18)
pt3dadd(-27.824, 292.924, -11.597, 1.17)
pt3dadd(-27.709, 292.95, -11.578, 1.09)
pt3dadd(-27.594, 292.975, -11.558, 1.012)
pt3dadd(-27.48, 293.002, -11.539, 0.934)
pt3dadd(-27.365, 293.028, -11.519, 0.854)
pt3dadd(-27.252, 293.056, -11.5, 0.778)
pt3dadd(-27.184, 293.155, -11.5, 0.73)
pt3dadd(-27.115, 293.254, -11.5, 0.684)
pt3dadd(-27.002, 293.27, -11.503, 0.686)
pt3dadd(-26.884, 293.275, -11.507, 0.694)
pt3dadd(-26.765, 293.28, -11.516, 0.706)
pt3dadd(-26.666, 293.28, -11.572, 0.754)
pt3dadd(-26.567, 293.28, -11.629, 0.8)
pt3dadd(-26.534, 293.312, -11.719, 0.83)
pt3dadd(-26.508, 293.347, -11.812, 0.86)
pt3dadd(-26.482, 293.381, -11.906, 0.888)
pt3dadd(-26.424, 293.43, -11.969, 0.916)
pt3dadd(-26.329, 293.495, -12, 0.944)
pt3dadd(-26.26, 293.58, -12.033, 0.966)
pt3dadd(-26.206, 293.678, -12.07, 0.988)
pt3dadd(-26.153, 293.778, -12.1, 1.002)
pt3dadd(-26.106, 293.888, -12.1, 0.992)
pt3dadd(-26.059, 293.999, -12.1, 0.98)
pt3dadd(-26.04, 294.115, -12.114, 0.902)
pt3dadd(-26.04, 294.229, -12.146, 0.87)
pt3dadd(-26.04, 294.342, -12.178, 0.838)
pt3dadd(-26.04, 294.456, -12.21, 0.806)
pt3dadd(-26.04, 294.57, -12.243, 0.774)
pt3dadd(-26.04, 294.684, -12.275, 0.742)
pt3dadd(-26.04, 294.799, -12.298, 0.714)
pt3dadd(-26.04, 294.918, -12.315, 0.69)
pt3dadd(-26.04, 295.037, -12.331, 0.664)
pt3dadd(-26.04, 295.154, -12.347, 0.64)
pt3dadd(-26.04, 295.273, -12.364, 0.616)
pt3dadd(-26.04, 295.392, -12.38, 0.59)
pt3dadd(-26.04, 295.506, -12.408, 0.568)
pt3dadd(-26.04, 295.616, -12.448, 0.55)
pt3dadd(-26.04, 295.727, -12.487, 0.53)
pt3dadd(-26.04, 295.836, -12.527, 0.512)
pt3dadd(-26.04, 295.946, -12.566, 0.494)
pt3dadd(-26.04, 296.051, -12.612, 0.478)
pt3dadd(-26.04, 296.126, -12.69, 0.478)
pt3dadd(-26.04, 296.202, -12.768, 0.478)
pt3dadd(-26.04, 296.3, -12.824, 0.5)
pt3dadd(-26.04, 296.4, -12.881, 0.524)
pt3dadd(-26.04, 296.516, -12.892, 0.542)
pt3dadd(-26.04, 296.636, -12.896, 0.56)
pt3dadd(-26.04, 296.756, -12.9, 0.578)
pt3dadd(-26.04, 296.876, -12.9, 0.578)
pt3dadd(-26.04, 296.996, -12.9, 0.578)
pt3dadd(-26.04, 297.116, -12.9, 0.578)
pt3dadd(-26.04, 297.236, -12.9, 0.554)
pt3dadd(-26.04, 297.356, -12.9, 0.528)
pt3dadd(-26.026, 297.475, -12.9, 0.524)
pt3dadd(-26.011, 297.594, -12.9, 0.52)
pt3dadd(-25.996, 297.714, -12.9, 0.516)
pt3dadd(-25.981, 297.833, -12.9, 0.512)
pt3dadd(-25.966, 297.952, -12.9, 0.508)
pt3dadd(-25.951, 298.07, -12.9, 0.504)
pt3dadd(-25.904, 298.178, -12.9, 0.51)
pt3dadd(-25.843, 298.283, -12.9, 0.522)
pt3dadd(-25.811, 298.394, -12.9, 0.54)
pt3dadd(-25.806, 298.514, -12.9, 0.566)
pt3dadd(-25.801, 298.634, -12.9, 0.592)
pt3dadd(-25.8, 298.753, -12.908, 0.608)
pt3dadd(-25.8, 298.872, -12.92, 0.618)
pt3dadd(-25.8, 298.992, -12.932, 0.628)
pt3dadd(-25.8, 299.082, -12.996, 0.628)
pt3dadd(-25.8, 299.17, -13.065, 0.628)
pt3dadd(-25.8, 299.262, -13.128, 0.614)
pt3dadd(-25.8, 299.351, -13.195, 0.604)
pt3dadd(-25.8, 299.431, -13.269, 0.61)
pt3dadd(-25.8, 299.513, -13.343, 0.614)
pt3dadd(-25.8, 299.593, -13.417, 0.62)
pt3dadd(-25.8, 299.674, -13.491, 0.624)
pt3dadd(-25.79, 299.767, -13.548, 0.63)
pt3dadd(-25.769, 299.878, -13.582, 0.636)
pt3dadd(-25.746, 299.988, -13.617, 0.64)
pt3dadd(-25.724, 300.098, -13.652, 0.646)
pt3dadd(-25.702, 300.209, -13.686, 0.65)
pt3dadd(-25.681, 300.324, -13.7, 0.658)
pt3dadd(-25.661, 300.443, -13.7, 0.668)
pt3dadd(-25.64, 300.56, -13.7, 0.678)
pt3dadd(-25.565, 300.654, -13.7, 0.69)
pt3dadd(-25.489, 300.748, -13.7, 0.702)
pt3dadd(-25.457, 300.856, -13.728, 0.724)
pt3dadd(-25.432, 300.966, -13.761, 0.748)
pt3dadd(-25.385, 301.028, -13.832, 0.776)
pt3dadd(-25.333, 301.08, -13.911, 0.804)
pt3dadd(-25.301, 301.08, -14.007, 0.804)
pt3dadd(-25.259, 301.082, -14.101, 0.79)
pt3dadd(-25.202, 301.088, -14.189, 0.754)
pt3dadd(-25.14, 301.112, -14.261, 0.716)
pt3dadd(-25.054, 301.19, -14.285, 0.662)
pt3dadd(-24.992, 301.284, -14.3, 0.614)
pt3dadd(-24.972, 301.403, -14.3, 0.574)
pt3dadd(-24.952, 301.52, -14.3, 0.536)
pt3dadd(-24.9, 301.627, -14.3, 0.518)
pt3dadd(-24.839, 301.73, -14.3, 0.506)
pt3dadd(-24.763, 301.824, -14.3, 0.502)
pt3dadd(-24.686, 301.913, -14.3, 0.508)
pt3dadd(-24.647, 302.027, -14.3, 0.54)
pt3dadd(-24.607, 302.14, -14.3, 0.572)
pt3dadd(-24.583, 302.257, -14.3, 0.602)
pt3dadd(-24.563, 302.375, -14.3, 0.63)
pt3dadd(-24.526, 302.483, -14.3, 0.668)
pt3dadd(-24.426, 302.55, -14.3, 0.738)
pt3dadd(-24.328, 302.618, -14.3, 0.806)
pt3dadd(-24.24, 302.7, -14.3, 0.854)
pt3dadd(-24.151, 302.782, -14.3, 0.902)
pt3dadd(-24.052, 302.848, -14.3, 0.92)
pt3dadd(-23.976, 302.934, -14.3, 0.922)
pt3dadd(-23.929, 303.044, -14.3, 0.908)
pt3dadd(-23.881, 303.155, -14.3, 0.894)
pt3dadd(-23.834, 303.265, -14.3, 0.88)
pt3dadd(-23.786, 303.376, -14.3, 0.866)
pt3dadd(-23.744, 303.487, -14.3, 0.852)
pt3dadd(-23.726, 303.606, -14.3, 0.84)
pt3dadd(-23.71, 303.725, -14.3, 0.828)
pt3dadd(-23.692, 303.842, -14.3, 0.816)
pt3dadd(-23.675, 303.961, -14.3, 0.802)
pt3dadd(-23.658, 304.08, -14.3, 0.79)
pt3dadd(-23.64, 304.199, -14.3, 0.778)
pt3dadd(-23.64, 304.319, -14.3, 0.796)
pt3dadd(-23.64, 304.439, -14.3, 0.812)
pt3dadd(-23.64, 304.559, -14.3, 0.828)
pt3dadd(-23.64, 304.679, -14.3, 0.878)
pt3dadd(-23.64, 304.799, -14.3, 0.928)
pt3dadd(-23.64, 304.919, -14.3, 0.978)
pt3dadd(-23.602, 305.029, -14.321, 1.064)
pt3dadd(-23.562, 305.14, -14.343, 1.15)
pt3dadd(-23.542, 305.196, -14.427, 1.202)
pt3dadd(-23.521, 305.25, -14.516, 1.252)
pt3dadd(-23.516, 305.324, -14.593, 1.242)
pt3dadd(-23.513, 305.401, -14.67, 1.228)
pt3dadd(-23.509, 305.478, -14.747, 1.214)
pt3dadd(-23.467, 305.52, -14.82, 1.178)
pt3dadd(-23.378, 305.52, -14.887, 1.12)
pt3dadd(-23.285, 305.52, -14.948, 1.06)
pt3dadd(-23.177, 305.52, -14.993, 1.002)
pt3dadd(-23.07, 305.52, -15.038, 0.942)
pt3dadd(-22.961, 305.52, -15.078, 0.89)
pt3dadd(-22.847, 305.52, -15.111, 0.846)
pt3dadd(-22.734, 305.52, -15.144, 0.804)
pt3dadd(-22.718, 305.52, -15.243, 0.79)
pt3dadd(-22.704, 305.52, -15.342, 0.776)
pt3dadd(-22.688, 305.52, -15.441, 0.762)
pt3dadd(-22.664, 305.531, -15.537, 0.754)
pt3dadd(-22.625, 305.556, -15.629, 0.754)
pt3dadd(-22.579, 305.61, -15.692, 0.74)
pt3dadd(-22.523, 305.716, -15.7, 0.704)
pt3dadd(-22.448, 305.809, -15.7, 0.628)
pt3dadd(-22.363, 305.893, -15.7, 0.54)
pt3dadd(-22.268, 305.964, -15.7, 0.448)
pt3dadd(-22.151, 305.992, -15.7, 0.444)
pt3dadd(-22.038, 306, -15.72, 0.5)
pt3dadd(-21.935, 306, -15.771, 0.558)
}
}
proc shape3d_68() {
dend_5[22] { pt3dadd(-21.84, 306.001, -15.829, 0.616)
pt3dadd(-21.776, 306.007, -15.913, 0.676)
pt3dadd(-21.714, 306.023, -15.995, 0.732)
pt3dadd(-21.664, 306.113, -16.046, 0.774)
pt3dadd(-21.613, 306.203, -16.097, 0.818)
pt3dadd(-21.589, 306.23, -16.183, 0.842)
pt3dadd(-21.574, 306.235, -16.282, 0.862)
pt3dadd(-21.552, 306.24, -16.38, 0.878)
pt3dadd(-21.506, 306.24, -16.472, 0.878)
pt3dadd(-21.474, 306.24, -16.568, 0.878)
pt3dadd(-21.442, 306.24, -16.665, 0.878)
pt3dadd(-21.376, 306.283, -16.739, 0.92)
pt3dadd(-21.308, 306.325, -16.815, 0.968)
pt3dadd(-21.246, 306.353, -16.897, 1.048)
pt3dadd(-21.182, 306.401, -16.962, 1.12)
pt3dadd(-21.12, 306.499, -16.985, 1.172)
pt3dadd(-21.064, 306.601, -17.003, 1.192)
pt3dadd(-21.017, 306.712, -17.01, 1.158)
pt3dadd(-20.966, 306.773, -17.082, 1.122)
pt3dadd(-20.915, 306.83, -17.159, 1.086)
pt3dadd(-20.864, 306.888, -17.236, 1.05)
pt3dadd(-20.813, 306.944, -17.313, 1.014)
pt3dadd(-20.753, 306.98, -17.394, 0.98)
pt3dadd(-20.69, 307.007, -17.476, 0.946)
pt3dadd(-20.628, 307.033, -17.559, 0.912)
pt3dadd(-20.566, 307.061, -17.641, 0.878)
pt3dadd(-20.503, 307.098, -17.719, 0.848)
pt3dadd(-20.444, 307.164, -17.787, 0.83)
pt3dadd(-20.386, 307.229, -17.855, 0.812)
pt3dadd(-20.327, 307.294, -17.923, 0.794)
pt3dadd(-20.279, 307.355, -17.997, 0.78)
pt3dadd(-20.273, 307.397, -18.09, 0.792)
pt3dadd(-20.267, 307.438, -18.184, 0.802)
pt3dadd(-20.173, 307.44, -18.243, 0.848)
pt3dadd(-20.075, 307.44, -18.299, 0.894)
pt3dadd(-19.964, 307.445, -18.338, 0.94)
pt3dadd(-19.853, 307.451, -18.373, 0.984)
pt3dadd(-19.74, 307.476, -18.391, 1.004)
pt3dadd(-19.627, 307.517, -18.396, 1.004)
pt3dadd(-19.514, 307.556, -18.402, 0.986)
pt3dadd(-19.4, 307.591, -18.409, 0.92)
pt3dadd(-19.301, 307.613, -18.458, 0.882)
pt3dadd(-19.208, 307.631, -18.519, 0.856)
pt3dadd(-19.115, 307.649, -18.58, 0.828)
pt3dadd(-19.021, 307.666, -18.64, 0.8)
pt3dadd(-18.936, 307.69, -18.706, 0.776)
pt3dadd(-18.883, 307.736, -18.786, 0.764)
pt3dadd(-18.829, 307.783, -18.867, 0.752)
pt3dadd(-18.776, 307.83, -18.948, 0.74)
pt3dadd(-18.724, 307.878, -19.028, 0.728)
pt3dadd(-18.683, 307.904, -19.12, 0.74)
pt3dadd(-18.644, 307.931, -19.212, 0.752)
pt3dadd(-18.623, 307.973, -19.303, 0.774)
pt3dadd(-18.604, 308.018, -19.394, 0.8)
pt3dadd(-18.6, 308.065, -19.486, 0.804)
pt3dadd(-18.6, 308.112, -19.578, 0.804)
pt3dadd(-18.596, 308.192, -19.64, 0.798)
pt3dadd(-18.592, 308.305, -19.675, 0.786)
pt3dadd(-18.577, 308.41, -19.718, 0.78)
pt3dadd(-18.542, 308.492, -19.784, 0.788)
pt3dadd(-18.506, 308.576, -19.849, 0.798)
pt3dadd(-18.476, 308.641, -19.923, 0.814)
pt3dadd(-18.461, 308.646, -20.022, 0.864)
pt3dadd(-18.445, 308.652, -20.121, 0.912)
pt3dadd(-18.386, 308.704, -20.177, 0.976)
pt3dadd(-18.304, 308.782, -20.209, 1.05)
pt3dadd(-18.224, 308.851, -20.251, 1.122)
pt3dadd(-18.157, 308.896, -20.326, 1.192)
pt3dadd(-18.1, 308.966, -20.38, 1.23)
pt3dadd(-18.053, 309.071, -20.41, 1.23)
pt3dadd(-18.006, 309.175, -20.441, 1.23)
pt3dadd(-18, 309.21, -20.53, 1.196)
pt3dadd(-18, 309.236, -20.628, 1.156)
pt3dadd(-18, 309.265, -20.725, 1.084)
pt3dadd(-17.966, 309.323, -20.801, 1.026)
pt3dadd(-17.908, 309.398, -20.861, 1.02)
pt3dadd(-17.849, 309.474, -20.921, 1.014)
pt3dadd(-17.789, 309.55, -20.981, 1.008)
pt3dadd(-17.714, 309.613, -21.036, 1.004)
pt3dadd(-17.626, 309.666, -21.086, 1.004)
pt3dadd(-17.568, 309.745, -21.14, 0.994)
pt3dadd(-17.524, 309.834, -21.196, 0.98)
pt3dadd(-17.501, 309.896, -21.278, 0.944)
pt3dadd(-17.482, 309.958, -21.363, 0.906)
pt3dadd(-17.442, 309.96, -21.457, 0.894)
pt3dadd(-17.402, 309.96, -21.551, 0.884)
pt3dadd(-17.356, 309.978, -21.641, 0.878)
pt3dadd(-17.317, 310.02, -21.727, 0.88)
pt3dadd(-17.309, 310.082, -21.811, 0.886)
pt3dadd(-17.3, 310.146, -21.896, 0.89)
pt3dadd(-17.292, 310.21, -21.981, 0.896)
pt3dadd(-17.285, 310.273, -22.065, 0.902)
pt3dadd(-17.28, 310.314, -22.157, 0.892)
pt3dadd(-17.28, 310.328, -22.256, 0.864)
pt3dadd(-17.28, 310.355, -22.353, 0.834)
pt3dadd(-17.28, 310.404, -22.444, 0.858)
pt3dadd(-17.28, 310.432, -22.541, 0.878)
pt3dadd(-17.28, 310.446, -22.64, 0.868)
pt3dadd(-17.28, 310.481, -22.735, 0.82)
pt3dadd(-17.28, 310.576, -22.789, 0.778)
pt3dadd(-17.28, 310.694, -22.8, 0.726)
pt3dadd(-17.28, 310.814, -22.8, 0.696)
pt3dadd(-17.28, 310.934, -22.8, 0.652)
pt3dadd(-17.28, 311.054, -22.8, 0.656)
pt3dadd(-17.28, 311.172, -22.807, 0.68)
pt3dadd(-17.28, 311.268, -22.867, 0.694)
pt3dadd(-17.28, 311.364, -22.927, 0.71)
pt3dadd(-17.28, 311.46, -22.987, 0.726)
pt3dadd(-17.28, 311.556, -23.047, 0.74)
pt3dadd(-17.28, 311.651, -23.108, 0.754)
pt3dadd(-17.28, 311.742, -23.173, 0.758)
pt3dadd(-17.28, 311.834, -23.238, 0.764)
pt3dadd(-17.28, 311.926, -23.303, 0.77)
pt3dadd(-17.28, 312.017, -23.368, 0.774)
pt3dadd(-17.28, 312.104, -23.435, 0.772)
pt3dadd(-17.28, 312.172, -23.517, 0.724)
pt3dadd(-17.28, 312.24, -23.6, 0.678)
}
apic[8] {pt3dclear()
pt3dadd(57.73, 156.818, 7.081, 2.712)
pt3dadd(57.681, 156.857, 7.082, 2.668)
pt3dadd(57.587, 156.931, 7.084, 2.58)
pt3dadd(57.493, 157.004, 7.086, 2.492)
pt3dadd(57.398, 157.079, 7.088, 2.406)
pt3dadd(57.304, 157.153, 7.09, 2.318)
pt3dadd(57.21, 157.228, 7.092, 2.232)
pt3dadd(57.115, 157.301, 7.094, 2.144)
pt3dadd(57.021, 157.375, 7.096, 2.056)
pt3dadd(56.927, 157.45, 7.098, 1.97)
pt3dadd(56.832, 157.524, 7.1, 1.882)
pt3dadd(56.738, 157.598, 7.102, 1.796)
pt3dadd(56.644, 157.672, 7.104, 1.708)
pt3dadd(56.574, 157.741, 7.049, 1.706)
pt3dadd(56.505, 157.81, 6.99, 1.712)
pt3dadd(56.437, 157.879, 6.931, 1.718)
pt3dadd(56.369, 157.948, 6.872, 1.724)
pt3dadd(56.301, 158.016, 6.813, 1.728)
pt3dadd(56.233, 158.086, 6.754, 1.734)
pt3dadd(56.165, 158.154, 6.695, 1.74)
pt3dadd(56.096, 158.222, 6.636, 1.744)
pt3dadd(56.031, 158.28, 6.57, 1.752)
pt3dadd(55.975, 158.306, 6.484, 1.766)
pt3dadd(55.919, 158.333, 6.398, 1.78)
pt3dadd(55.863, 158.358, 6.313, 1.794)
pt3dadd(55.807, 158.384, 6.227, 1.806)
pt3dadd(55.75, 158.411, 6.142, 1.82)
pt3dadd(55.694, 158.437, 6.056, 1.834)
pt3dadd(55.638, 158.462, 5.97, 1.848)
pt3dadd(55.582, 158.489, 5.885, 1.86)
pt3dadd(55.526, 158.515, 5.799, 1.874)
pt3dadd(55.462, 158.501, 5.722, 1.838)
pt3dadd(55.391, 158.452, 5.652, 1.762)
pt3dadd(55.321, 158.402, 5.582, 1.686)
pt3dadd(55.251, 158.352, 5.513, 1.608)
pt3dadd(55.18, 158.303, 5.443, 1.532)
pt3dadd(55.11, 158.254, 5.373, 1.454)
pt3dadd(55.039, 158.204, 5.303, 1.378)
pt3dadd(54.969, 158.155, 5.234, 1.302)
pt3dadd(54.899, 158.106, 5.164, 1.224)
pt3dadd(54.828, 158.057, 5.094, 1.148)
pt3dadd(54.754, 157.974, 5.057, 1.1)
pt3dadd(54.68, 157.89, 5.022, 1.054)
pt3dadd(54.606, 157.805, 4.987, 1.008)
pt3dadd(54.532, 157.721, 4.952, 0.962)
pt3dadd(54.458, 157.637, 4.917, 0.916)
pt3dadd(54.384, 157.552, 4.882, 0.87)
pt3dadd(54.309, 157.468, 4.847, 0.824)
pt3dadd(54.235, 157.382, 4.812, 0.778)
pt3dadd(54.161, 157.298, 4.777, 0.732)
pt3dadd(54.087, 157.214, 4.742, 0.686)
pt3dadd(54.012, 157.157, 4.68, 0.748)
pt3dadd(53.936, 157.102, 4.618, 0.816)
pt3dadd(53.861, 157.045, 4.555, 0.884)
pt3dadd(53.786, 156.989, 4.493, 0.95)
pt3dadd(53.711, 156.934, 4.431, 1.018)
pt3dadd(53.635, 156.877, 4.368, 1.086)
pt3dadd(53.56, 156.822, 4.306, 1.152)
pt3dadd(53.485, 156.766, 4.243, 1.22)
pt3dadd(53.41, 156.71, 4.181, 1.288)
pt3dadd(53.335, 156.654, 4.118, 1.354)
pt3dadd(53.294, 156.598, 4.037, 1.356)
pt3dadd(53.254, 156.54, 3.956, 1.356)
pt3dadd(53.215, 156.484, 3.874, 1.356)
pt3dadd(53.175, 156.426, 3.792, 1.356)
pt3dadd(53.135, 156.37, 3.711, 1.356)
pt3dadd(53.095, 156.313, 3.629, 1.356)
pt3dadd(53.056, 156.256, 3.547, 1.356)
pt3dadd(53.016, 156.199, 3.466, 1.356)
pt3dadd(52.976, 156.142, 3.384, 1.356)
pt3dadd(52.936, 156.085, 3.303, 1.356)
pt3dadd(52.923, 156.055, 3.207, 1.29)
pt3dadd(52.909, 156.025, 3.111, 1.222)
pt3dadd(52.896, 155.995, 3.015, 1.154)
pt3dadd(52.883, 155.965, 2.918, 1.086)
pt3dadd(52.869, 155.935, 2.822, 1.018)
pt3dadd(52.856, 155.905, 2.726, 0.95)
pt3dadd(52.843, 155.875, 2.63, 0.882)
pt3dadd(52.829, 155.845, 2.533, 0.814)
pt3dadd(52.816, 155.815, 2.437, 0.746)
pt3dadd(52.803, 155.785, 2.341, 0.678)
pt3dadd(52.803, 155.773, 2.242, 0.678)
pt3dadd(52.803, 155.761, 2.142, 0.678)
}
}
proc shape3d_69() {
apic[8] { pt3dadd(52.803, 155.749, 2.043, 0.678)
pt3dadd(52.803, 155.737, 1.943, 0.678)
pt3dadd(52.803, 155.725, 1.844, 0.678)
pt3dadd(52.803, 155.713, 1.744, 0.678)
pt3dadd(52.803, 155.701, 1.645, 0.678)
pt3dadd(52.803, 155.689, 1.545, 0.678)
pt3dadd(52.803, 155.677, 1.446, 0.678)
pt3dadd(52.803, 155.665, 1.346, 0.678)
}
apic[9] {pt3dclear()
pt3dadd(73.87, 133.756, 9.762, 3.164)
pt3dadd(73.801, 133.756, 9.774, 3.024)
pt3dadd(73.683, 133.756, 9.792, 2.788)
pt3dadd(73.565, 133.756, 9.811, 2.552)
pt3dadd(73.447, 133.756, 9.83, 2.314)
pt3dadd(73.329, 133.756, 9.848, 2.078)
pt3dadd(73.211, 133.756, 9.864, 1.88)
pt3dadd(73.092, 133.757, 9.878, 1.702)
pt3dadd(72.973, 133.758, 9.893, 1.526)
pt3dadd(72.854, 133.759, 9.907, 1.348)
pt3dadd(72.736, 133.759, 9.921, 1.17)
pt3dadd(72.617, 133.76, 9.935, 0.992)
pt3dadd(72.498, 133.762, 9.95, 0.816)
pt3dadd(72.379, 133.762, 9.964, 0.638)
pt3dadd(72.261, 133.763, 9.978, 0.46)
pt3dadd(72.142, 133.764, 9.993, 0.284)
pt3dadd(72.022, 133.766, 9.998, 0.226)
pt3dadd(71.902, 133.77, 9.999, 0.226)
pt3dadd(71.782, 133.774, 10, 0.226)
pt3dadd(71.662, 133.777, 10.001, 0.226)
pt3dadd(71.542, 133.781, 10.003, 0.226)
pt3dadd(71.422, 133.786, 10.004, 0.226)
pt3dadd(71.303, 133.789, 10.005, 0.226)
pt3dadd(71.183, 133.793, 10.006, 0.226)
pt3dadd(71.063, 133.796, 10.007, 0.226)
pt3dadd(70.943, 133.8, 10.008, 0.226)
pt3dadd(70.823, 133.806, 10.01, 0.242)
pt3dadd(70.703, 133.812, 10.012, 0.264)
pt3dadd(70.583, 133.819, 10.014, 0.288)
pt3dadd(70.464, 133.825, 10.016, 0.31)
pt3dadd(70.344, 133.832, 10.018, 0.334)
pt3dadd(70.224, 133.838, 10.02, 0.358)
pt3dadd(70.104, 133.846, 10.022, 0.38)
pt3dadd(69.984, 133.852, 10.024, 0.404)
pt3dadd(69.864, 133.859, 10.026, 0.426)
pt3dadd(69.745, 133.865, 10.028, 0.45)
pt3dadd(69.625, 133.876, 10.031, 0.494)
pt3dadd(69.506, 133.889, 10.035, 0.546)
pt3dadd(69.387, 133.902, 10.04, 0.6)
pt3dadd(69.268, 133.915, 10.044, 0.652)
pt3dadd(69.149, 133.928, 10.048, 0.706)
pt3dadd(69.029, 133.94, 10.052, 0.76)
pt3dadd(68.91, 133.954, 10.057, 0.812)
pt3dadd(68.791, 133.967, 10.061, 0.866)
pt3dadd(68.672, 133.98, 10.065, 0.918)
pt3dadd(68.553, 133.993, 10.069, 0.972)
pt3dadd(68.436, 134.018, 10.076, 0.992)
pt3dadd(68.321, 134.05, 10.085, 0.998)
pt3dadd(68.205, 134.081, 10.093, 1.004)
pt3dadd(68.09, 134.112, 10.101, 1.01)
pt3dadd(67.974, 134.143, 10.109, 1.016)
pt3dadd(67.859, 134.174, 10.117, 1.022)
pt3dadd(67.743, 134.206, 10.126, 1.028)
pt3dadd(67.628, 134.237, 10.134, 1.034)
pt3dadd(67.512, 134.268, 10.142, 1.04)
pt3dadd(67.397, 134.299, 10.15, 1.046)
pt3dadd(67.287, 134.344, 10.166, 1.042)
pt3dadd(67.18, 134.392, 10.184, 1.034)
pt3dadd(67.072, 134.44, 10.203, 1.026)
pt3dadd(66.964, 134.488, 10.221, 1.018)
pt3dadd(66.856, 134.536, 10.239, 1.01)
pt3dadd(66.749, 134.584, 10.257, 1.002)
pt3dadd(66.641, 134.632, 10.275, 0.994)
pt3dadd(66.533, 134.68, 10.293, 0.986)
pt3dadd(66.426, 134.729, 10.311, 0.978)
pt3dadd(66.318, 134.777, 10.33, 0.972)
pt3dadd(66.212, 134.821, 10.359, 0.98)
pt3dadd(66.107, 134.864, 10.391, 0.992)
pt3dadd(66.002, 134.908, 10.422, 1.002)
pt3dadd(65.897, 134.952, 10.454, 1.014)
pt3dadd(65.791, 134.995, 10.485, 1.026)
pt3dadd(65.686, 135.04, 10.516, 1.038)
pt3dadd(65.581, 135.083, 10.548, 1.048)
pt3dadd(65.476, 135.127, 10.579, 1.06)
pt3dadd(65.371, 135.17, 10.611, 1.072)
pt3dadd(65.265, 135.214, 10.642, 1.084)
pt3dadd(65.161, 135.268, 10.662, 1.068)
pt3dadd(65.056, 135.322, 10.681, 1.05)
pt3dadd(64.951, 135.376, 10.7, 1.032)
pt3dadd(64.847, 135.43, 10.718, 1.014)
pt3dadd(64.742, 135.484, 10.737, 0.996)
pt3dadd(64.637, 135.538, 10.756, 0.978)
pt3dadd(64.532, 135.592, 10.775, 0.96)
pt3dadd(64.428, 135.646, 10.793, 0.942)
pt3dadd(64.323, 135.701, 10.812, 0.924)
pt3dadd(64.218, 135.755, 10.831, 0.906)
pt3dadd(64.105, 135.792, 10.838, 0.906)
pt3dadd(63.991, 135.828, 10.845, 0.908)
pt3dadd(63.876, 135.864, 10.851, 0.91)
pt3dadd(63.762, 135.9, 10.858, 0.912)
pt3dadd(63.648, 135.936, 10.864, 0.914)
pt3dadd(63.534, 135.972, 10.871, 0.916)
pt3dadd(63.42, 136.008, 10.877, 0.92)
pt3dadd(63.305, 136.044, 10.883, 0.922)
pt3dadd(63.191, 136.08, 10.89, 0.924)
pt3dadd(63.077, 136.116, 10.896, 0.926)
pt3dadd(62.961, 136.147, 10.89, 0.95)
pt3dadd(62.845, 136.177, 10.883, 0.974)
pt3dadd(62.73, 136.207, 10.876, 0.998)
pt3dadd(62.614, 136.237, 10.868, 1.024)
pt3dadd(62.498, 136.267, 10.861, 1.048)
pt3dadd(62.382, 136.297, 10.854, 1.074)
pt3dadd(62.266, 136.327, 10.847, 1.098)
pt3dadd(62.151, 136.357, 10.84, 1.124)
pt3dadd(62.035, 136.388, 10.832, 1.148)
pt3dadd(61.919, 136.418, 10.825, 1.174)
pt3dadd(61.809, 136.464, 10.814, 1.212)
pt3dadd(61.699, 136.511, 10.802, 1.252)
pt3dadd(61.59, 136.556, 10.79, 1.292)
pt3dadd(61.48, 136.603, 10.778, 1.332)
pt3dadd(61.37, 136.65, 10.766, 1.372)
pt3dadd(61.26, 136.697, 10.754, 1.41)
pt3dadd(61.151, 136.742, 10.742, 1.45)
pt3dadd(61.041, 136.789, 10.73, 1.49)
pt3dadd(60.931, 136.836, 10.718, 1.53)
pt3dadd(60.822, 136.883, 10.706, 1.57)
pt3dadd(60.715, 136.916, 10.671, 1.55)
pt3dadd(60.608, 136.951, 10.636, 1.53)
pt3dadd(60.501, 136.985, 10.6, 1.508)
pt3dadd(60.394, 137.018, 10.565, 1.488)
pt3dadd(60.287, 137.053, 10.529, 1.466)
pt3dadd(60.18, 137.087, 10.494, 1.446)
pt3dadd(60.073, 137.12, 10.458, 1.424)
pt3dadd(59.967, 137.155, 10.422, 1.404)
pt3dadd(59.86, 137.189, 10.387, 1.384)
pt3dadd(59.753, 137.222, 10.351, 1.362)
pt3dadd(59.639, 137.249, 10.328, 1.382)
pt3dadd(59.526, 137.275, 10.304, 1.404)
pt3dadd(59.412, 137.3, 10.281, 1.424)
pt3dadd(59.298, 137.327, 10.257, 1.446)
pt3dadd(59.184, 137.353, 10.234, 1.466)
pt3dadd(59.071, 137.38, 10.21, 1.488)
pt3dadd(58.957, 137.405, 10.187, 1.51)
pt3dadd(58.843, 137.431, 10.163, 1.53)
pt3dadd(58.73, 137.458, 10.14, 1.552)
pt3dadd(58.616, 137.483, 10.116, 1.572)
pt3dadd(58.505, 137.526, 10.106, 1.554)
pt3dadd(58.394, 137.57, 10.095, 1.534)
pt3dadd(58.283, 137.615, 10.085, 1.514)
pt3dadd(58.172, 137.658, 10.075, 1.494)
pt3dadd(58.061, 137.702, 10.065, 1.474)
pt3dadd(57.95, 137.746, 10.055, 1.454)
pt3dadd(57.839, 137.79, 10.044, 1.434)
pt3dadd(57.728, 137.833, 10.034, 1.414)
pt3dadd(57.616, 137.878, 10.024, 1.394)
pt3dadd(57.505, 137.921, 10.014, 1.374)
pt3dadd(57.389, 137.952, 10.014, 1.29)
pt3dadd(57.273, 137.982, 10.015, 1.204)
pt3dadd(57.157, 138.012, 10.015, 1.118)
pt3dadd(57.041, 138.042, 10.016, 1.032)
pt3dadd(56.925, 138.072, 10.016, 0.946)
pt3dadd(56.808, 138.102, 10.017, 0.86)
pt3dadd(56.692, 138.132, 10.017, 0.774)
pt3dadd(56.576, 138.162, 10.017, 0.688)
pt3dadd(56.46, 138.192, 10.018, 0.602)
pt3dadd(56.344, 138.222, 10.018, 0.516)
pt3dadd(56.225, 138.236, 10.021, 0.574)
pt3dadd(56.106, 138.251, 10.024, 0.632)
pt3dadd(55.987, 138.265, 10.027, 0.692)
pt3dadd(55.868, 138.28, 10.03, 0.75)
pt3dadd(55.748, 138.294, 10.032, 0.81)
pt3dadd(55.629, 138.31, 10.035, 0.868)
pt3dadd(55.51, 138.324, 10.038, 0.928)
pt3dadd(55.391, 138.338, 10.04, 0.986)
pt3dadd(55.272, 138.353, 10.043, 1.046)
pt3dadd(55.153, 138.367, 10.046, 1.104)
pt3dadd(55.033, 138.368, 10.053, 1.106)
pt3dadd(54.914, 138.368, 10.06, 1.11)
pt3dadd(54.794, 138.37, 10.067, 1.112)
pt3dadd(54.674, 138.371, 10.073, 1.114)
pt3dadd(54.555, 138.371, 10.08, 1.118)
pt3dadd(54.435, 138.372, 10.087, 1.12)
pt3dadd(54.315, 138.373, 10.094, 1.122)
pt3dadd(54.195, 138.374, 10.101, 1.124)
pt3dadd(54.076, 138.374, 10.108, 1.128)
pt3dadd(53.956, 138.376, 10.115, 1.13)
}
apic[10] {pt3dclear()
pt3dadd(53.956, 138.376, 10.115, 1.13)
pt3dadd(53.93, 138.376, 10.117, 1.126)
pt3dadd(53.811, 138.377, 10.129, 1.102)
pt3dadd(53.692, 138.378, 10.14, 1.078)
pt3dadd(53.573, 138.379, 10.152, 1.054)
pt3dadd(53.453, 138.38, 10.163, 1.032)
pt3dadd(53.334, 138.38, 10.175, 1.008)
pt3dadd(53.215, 138.382, 10.186, 0.984)
pt3dadd(53.096, 138.383, 10.198, 0.962)
pt3dadd(52.977, 138.384, 10.21, 0.938)
pt3dadd(52.863, 138.385, 10.242, 0.952)
pt3dadd(52.75, 138.388, 10.276, 0.968)
pt3dadd(52.637, 138.389, 10.31, 0.982)
pt3dadd(52.524, 138.39, 10.343, 0.998)
pt3dadd(52.411, 138.391, 10.377, 1.014)
pt3dadd(52.299, 138.394, 10.411, 1.03)
}
}
proc shape3d_70() {
apic[10] { pt3dadd(52.186, 138.395, 10.444, 1.044)
pt3dadd(52.073, 138.396, 10.478, 1.06)
pt3dadd(51.96, 138.398, 10.512, 1.076)
pt3dadd(51.847, 138.4, 10.546, 1.092)
pt3dadd(51.731, 138.403, 10.572, 1.132)
pt3dadd(51.615, 138.408, 10.598, 1.174)
pt3dadd(51.5, 138.412, 10.625, 1.216)
pt3dadd(51.384, 138.416, 10.651, 1.258)
pt3dadd(51.268, 138.42, 10.677, 1.298)
pt3dadd(51.153, 138.425, 10.704, 1.34)
pt3dadd(51.037, 138.428, 10.73, 1.382)
pt3dadd(50.921, 138.433, 10.756, 1.424)
pt3dadd(50.805, 138.438, 10.783, 1.464)
pt3dadd(50.69, 138.442, 10.809, 1.506)
}
apic[11] {pt3dclear()
pt3dadd(50.69, 138.442, 10.809, 1.506)
pt3dadd(50.643, 138.431, 10.812, 1.466)
pt3dadd(50.522, 138.428, 10.825, 1.356)
pt3dadd(50.402, 138.427, 10.837, 1.246)
pt3dadd(50.282, 138.426, 10.849, 1.138)
pt3dadd(50.161, 138.425, 10.862, 1.028)
pt3dadd(50.041, 138.424, 10.874, 0.918)
pt3dadd(49.921, 138.422, 10.887, 0.808)
pt3dadd(49.8, 138.42, 10.899, 0.7)
pt3dadd(49.68, 138.42, 10.911, 0.59)
pt3dadd(49.56, 138.418, 10.924, 0.48)
pt3dadd(49.44, 138.425, 10.932, 0.444)
pt3dadd(49.323, 138.449, 10.932, 0.524)
pt3dadd(49.205, 138.47, 10.933, 0.602)
pt3dadd(49.087, 138.493, 10.934, 0.682)
pt3dadd(48.969, 138.516, 10.934, 0.762)
pt3dadd(48.851, 138.538, 10.935, 0.842)
pt3dadd(48.734, 138.562, 10.936, 0.922)
pt3dadd(48.616, 138.583, 10.937, 1)
pt3dadd(48.498, 138.606, 10.937, 1.08)
pt3dadd(48.38, 138.629, 10.938, 1.16)
pt3dadd(48.261, 138.634, 10.938, 1.178)
pt3dadd(48.14, 138.614, 10.937, 1.112)
pt3dadd(48.019, 138.598, 10.936, 1.046)
pt3dadd(47.898, 138.578, 10.936, 0.978)
pt3dadd(47.777, 138.56, 10.935, 0.912)
pt3dadd(47.656, 138.542, 10.934, 0.846)
pt3dadd(47.535, 138.523, 10.933, 0.78)
pt3dadd(47.415, 138.505, 10.932, 0.714)
pt3dadd(47.294, 138.487, 10.932, 0.648)
pt3dadd(47.173, 138.469, 10.931, 0.58)
pt3dadd(47.052, 138.449, 10.93, 0.578)
pt3dadd(46.932, 138.425, 10.929, 0.63)
pt3dadd(46.812, 138.401, 10.928, 0.682)
pt3dadd(46.691, 138.379, 10.928, 0.736)
pt3dadd(46.571, 138.355, 10.927, 0.788)
pt3dadd(46.45, 138.331, 10.926, 0.842)
pt3dadd(46.33, 138.31, 10.925, 0.894)
pt3dadd(46.21, 138.286, 10.924, 0.948)
pt3dadd(46.089, 138.262, 10.924, 1)
pt3dadd(45.969, 138.239, 10.923, 1.052)
pt3dadd(45.849, 138.217, 10.922, 1.07)
pt3dadd(45.728, 138.198, 10.921, 1.052)
pt3dadd(45.607, 138.178, 10.92, 1.036)
pt3dadd(45.486, 138.156, 10.92, 1.02)
pt3dadd(45.366, 138.137, 10.919, 1.004)
pt3dadd(45.245, 138.116, 10.918, 0.988)
pt3dadd(45.124, 138.096, 10.917, 0.97)
pt3dadd(45.004, 138.077, 10.916, 0.954)
pt3dadd(44.883, 138.056, 10.915, 0.938)
pt3dadd(44.762, 138.035, 10.915, 0.922)
pt3dadd(44.641, 138.023, 10.914, 0.902)
pt3dadd(44.52, 138.016, 10.913, 0.878)
pt3dadd(44.398, 138.008, 10.912, 0.854)
pt3dadd(44.277, 138.001, 10.911, 0.83)
pt3dadd(44.155, 137.994, 10.91, 0.806)
pt3dadd(44.034, 137.987, 10.91, 0.784)
pt3dadd(43.912, 137.98, 10.909, 0.76)
pt3dadd(43.791, 137.972, 10.908, 0.736)
pt3dadd(43.669, 137.965, 10.907, 0.712)
pt3dadd(43.548, 137.958, 10.906, 0.69)
pt3dadd(43.427, 137.951, 10.905, 0.678)
pt3dadd(43.305, 137.945, 10.904, 0.678)
pt3dadd(43.184, 137.939, 10.903, 0.678)
pt3dadd(43.062, 137.933, 10.902, 0.678)
pt3dadd(42.941, 137.926, 10.901, 0.678)
pt3dadd(42.819, 137.92, 10.901, 0.678)
pt3dadd(42.698, 137.914, 10.9, 0.678)
pt3dadd(42.576, 137.906, 10.899, 0.668)
pt3dadd(42.455, 137.9, 10.898, 0.65)
pt3dadd(42.333, 137.896, 10.896, 0.634)
pt3dadd(42.212, 137.888, 10.896, 0.616)
pt3dadd(42.09, 137.882, 10.894, 0.598)
pt3dadd(41.969, 137.876, 10.893, 0.58)
pt3dadd(41.847, 137.87, 10.892, 0.564)
pt3dadd(41.726, 137.866, 10.891, 0.546)
pt3dadd(41.604, 137.858, 10.89, 0.528)
pt3dadd(41.483, 137.852, 10.889, 0.51)
pt3dadd(41.362, 137.848, 10.888, 0.49)
pt3dadd(41.24, 137.842, 10.887, 0.466)
pt3dadd(41.119, 137.836, 10.885, 0.442)
pt3dadd(40.997, 137.832, 10.884, 0.418)
pt3dadd(40.876, 137.826, 10.882, 0.394)
pt3dadd(40.754, 137.82, 10.881, 0.37)
pt3dadd(40.633, 137.816, 10.88, 0.346)
pt3dadd(40.511, 137.81, 10.878, 0.324)
pt3dadd(40.39, 137.804, 10.877, 0.3)
pt3dadd(40.269, 137.8, 10.876, 0.276)
pt3dadd(40.147, 137.795, 10.874, 0.274)
pt3dadd(40.026, 137.792, 10.872, 0.29)
pt3dadd(39.904, 137.789, 10.87, 0.306)
pt3dadd(39.783, 137.784, 10.868, 0.322)
pt3dadd(39.661, 137.782, 10.865, 0.34)
pt3dadd(39.54, 137.777, 10.863, 0.356)
pt3dadd(39.419, 137.773, 10.861, 0.372)
pt3dadd(39.297, 137.771, 10.859, 0.388)
pt3dadd(39.176, 137.766, 10.857, 0.404)
pt3dadd(39.054, 137.762, 10.855, 0.422)
pt3dadd(38.933, 137.762, 10.852, 0.468)
pt3dadd(38.812, 137.764, 10.848, 0.538)
pt3dadd(38.691, 137.766, 10.845, 0.608)
pt3dadd(38.57, 137.768, 10.841, 0.678)
pt3dadd(38.449, 137.77, 10.837, 0.748)
pt3dadd(38.328, 137.772, 10.833, 0.82)
pt3dadd(38.206, 137.773, 10.83, 0.89)
pt3dadd(38.085, 137.774, 10.826, 0.96)
pt3dadd(37.964, 137.778, 10.822, 1.03)
pt3dadd(37.843, 137.779, 10.818, 1.1)
pt3dadd(37.723, 137.789, 10.811, 1.132)
pt3dadd(37.605, 137.806, 10.801, 1.13)
pt3dadd(37.486, 137.822, 10.791, 1.128)
pt3dadd(37.367, 137.839, 10.781, 1.126)
pt3dadd(37.249, 137.856, 10.771, 1.126)
pt3dadd(37.13, 137.872, 10.762, 1.124)
pt3dadd(37.011, 137.89, 10.752, 1.122)
pt3dadd(36.893, 137.905, 10.742, 1.122)
pt3dadd(36.774, 137.921, 10.732, 1.12)
pt3dadd(36.655, 137.939, 10.722, 1.118)
pt3dadd(36.547, 137.975, 10.698, 1.056)
pt3dadd(36.444, 138.02, 10.668, 0.964)
pt3dadd(36.34, 138.066, 10.637, 0.874)
pt3dadd(36.237, 138.112, 10.607, 0.782)
pt3dadd(36.133, 138.157, 10.577, 0.692)
pt3dadd(36.03, 138.203, 10.547, 0.6)
pt3dadd(35.926, 138.248, 10.516, 0.51)
pt3dadd(35.823, 138.295, 10.486, 0.418)
pt3dadd(35.719, 138.34, 10.456, 0.328)
pt3dadd(35.616, 138.385, 10.426, 0.236)
pt3dadd(35.505, 138.404, 10.391, 0.24)
pt3dadd(35.393, 138.42, 10.356, 0.254)
pt3dadd(35.281, 138.436, 10.321, 0.27)
pt3dadd(35.169, 138.451, 10.286, 0.284)
pt3dadd(35.057, 138.467, 10.251, 0.3)
pt3dadd(34.945, 138.481, 10.216, 0.316)
pt3dadd(34.833, 138.498, 10.181, 0.33)
pt3dadd(34.721, 138.512, 10.146, 0.346)
pt3dadd(34.609, 138.529, 10.111, 0.36)
pt3dadd(34.497, 138.544, 10.076, 0.376)
pt3dadd(34.377, 138.542, 10.059, 0.432)
pt3dadd(34.257, 138.54, 10.043, 0.488)
pt3dadd(34.137, 138.538, 10.027, 0.546)
pt3dadd(34.017, 138.534, 10.011, 0.602)
pt3dadd(33.897, 138.533, 9.995, 0.66)
pt3dadd(33.777, 138.53, 9.979, 0.716)
pt3dadd(33.658, 138.527, 9.963, 0.774)
pt3dadd(33.537, 138.526, 9.946, 0.83)
pt3dadd(33.418, 138.522, 9.93, 0.888)
pt3dadd(33.298, 138.521, 9.914, 0.944)
pt3dadd(33.176, 138.514, 9.912, 0.946)
pt3dadd(33.055, 138.506, 9.909, 0.946)
pt3dadd(32.933, 138.5, 9.906, 0.948)
pt3dadd(32.812, 138.493, 9.903, 0.95)
pt3dadd(32.69, 138.486, 9.901, 0.95)
pt3dadd(32.569, 138.48, 9.898, 0.952)
pt3dadd(32.447, 138.473, 9.895, 0.954)
pt3dadd(32.326, 138.466, 9.892, 0.954)
pt3dadd(32.205, 138.46, 9.889, 0.956)
pt3dadd(32.083, 138.452, 9.887, 0.956)
pt3dadd(31.962, 138.446, 9.888, 0.952)
pt3dadd(31.84, 138.439, 9.889, 0.946)
pt3dadd(31.719, 138.432, 9.89, 0.942)
pt3dadd(31.597, 138.426, 9.891, 0.936)
pt3dadd(31.476, 138.419, 9.893, 0.93)
pt3dadd(31.354, 138.412, 9.894, 0.926)
pt3dadd(31.233, 138.406, 9.895, 0.92)
pt3dadd(31.112, 138.398, 9.896, 0.914)
pt3dadd(30.99, 138.391, 9.897, 0.91)
pt3dadd(30.869, 138.385, 9.899, 0.904)
pt3dadd(30.747, 138.378, 9.903, 0.904)
pt3dadd(30.626, 138.372, 9.907, 0.904)
pt3dadd(30.505, 138.365, 9.911, 0.904)
pt3dadd(30.384, 138.358, 9.915, 0.904)
pt3dadd(30.262, 138.352, 9.92, 0.904)
pt3dadd(30.141, 138.344, 9.924, 0.904)
pt3dadd(30.019, 138.337, 9.928, 0.904)
pt3dadd(29.898, 138.331, 9.932, 0.904)
pt3dadd(29.777, 138.324, 9.936, 0.904)
pt3dadd(29.655, 138.317, 9.94, 0.904)
pt3dadd(29.535, 138.311, 9.948, 0.904)
pt3dadd(29.413, 138.304, 9.955, 0.904)
pt3dadd(29.292, 138.296, 9.963, 0.904)
pt3dadd(29.171, 138.29, 9.97, 0.904)
pt3dadd(29.05, 138.283, 9.978, 0.904)
pt3dadd(28.929, 138.277, 9.985, 0.904)
pt3dadd(28.808, 138.27, 9.993, 0.904)
pt3dadd(28.687, 138.263, 10, 0.904)
}
}
proc shape3d_71() {
apic[11] { pt3dadd(28.566, 138.257, 10.008, 0.904)
pt3dadd(28.445, 138.25, 10.016, 0.904)
pt3dadd(28.329, 138.242, 10.044, 0.884)
pt3dadd(28.212, 138.236, 10.072, 0.864)
pt3dadd(28.096, 138.229, 10.1, 0.844)
pt3dadd(27.98, 138.222, 10.128, 0.824)
pt3dadd(27.863, 138.216, 10.156, 0.804)
pt3dadd(27.747, 138.209, 10.184, 0.784)
pt3dadd(27.631, 138.203, 10.212, 0.764)
pt3dadd(27.514, 138.196, 10.24, 0.744)
pt3dadd(27.398, 138.188, 10.268, 0.726)
pt3dadd(27.281, 138.182, 10.295, 0.704)
pt3dadd(27.161, 138.175, 10.31, 0.66)
pt3dadd(27.041, 138.168, 10.324, 0.616)
pt3dadd(26.921, 138.162, 10.339, 0.572)
pt3dadd(26.801, 138.155, 10.353, 0.53)
pt3dadd(26.681, 138.148, 10.368, 0.486)
pt3dadd(26.561, 138.142, 10.382, 0.442)
pt3dadd(26.441, 138.134, 10.396, 0.398)
pt3dadd(26.321, 138.128, 10.411, 0.354)
pt3dadd(26.201, 138.121, 10.425, 0.31)
pt3dadd(26.081, 138.114, 10.437, 0.27)
pt3dadd(25.963, 138.108, 10.412, 0.266)
pt3dadd(25.845, 138.101, 10.387, 0.262)
pt3dadd(25.727, 138.094, 10.362, 0.256)
pt3dadd(25.609, 138.088, 10.337, 0.252)
pt3dadd(25.491, 138.08, 10.312, 0.248)
pt3dadd(25.373, 138.073, 10.287, 0.244)
pt3dadd(25.255, 138.067, 10.262, 0.238)
pt3dadd(25.137, 138.06, 10.237, 0.234)
pt3dadd(25.02, 138.054, 10.212, 0.23)
pt3dadd(24.902, 138.047, 10.187, 0.226)
pt3dadd(24.784, 138.04, 10.161, 0.226)
pt3dadd(24.666, 138.034, 10.136, 0.226)
pt3dadd(24.548, 138.026, 10.11, 0.226)
pt3dadd(24.431, 138.019, 10.085, 0.226)
pt3dadd(24.313, 138.013, 10.06, 0.226)
pt3dadd(24.195, 138.006, 10.034, 0.226)
pt3dadd(24.077, 137.999, 10.009, 0.226)
pt3dadd(23.96, 137.993, 9.983, 0.226)
pt3dadd(23.842, 137.986, 9.958, 0.226)
pt3dadd(23.724, 137.978, 9.934, 0.236)
pt3dadd(23.603, 137.972, 9.921, 0.3)
pt3dadd(23.483, 137.965, 9.907, 0.364)
pt3dadd(23.362, 137.959, 9.894, 0.428)
pt3dadd(23.242, 137.952, 9.88, 0.492)
pt3dadd(23.121, 137.945, 9.867, 0.556)
pt3dadd(23.001, 137.939, 9.853, 0.62)
pt3dadd(22.88, 137.932, 9.839, 0.684)
pt3dadd(22.76, 137.924, 9.826, 0.748)
pt3dadd(22.639, 137.918, 9.812, 0.812)
pt3dadd(22.519, 137.911, 9.8, 0.86)
pt3dadd(22.397, 137.904, 9.797, 0.82)
pt3dadd(22.276, 137.898, 9.795, 0.778)
pt3dadd(22.154, 137.891, 9.792, 0.738)
pt3dadd(22.033, 137.885, 9.789, 0.696)
pt3dadd(21.911, 137.878, 9.786, 0.656)
pt3dadd(21.79, 137.87, 9.783, 0.616)
pt3dadd(21.669, 137.864, 9.78, 0.574)
pt3dadd(21.547, 137.857, 9.778, 0.534)
pt3dadd(21.426, 137.85, 9.775, 0.494)
pt3dadd(21.304, 137.844, 9.772, 0.456)
pt3dadd(21.183, 137.837, 9.768, 0.434)
pt3dadd(21.061, 137.83, 9.764, 0.412)
pt3dadd(20.94, 137.824, 9.76, 0.39)
pt3dadd(20.819, 137.816, 9.756, 0.366)
pt3dadd(20.697, 137.81, 9.753, 0.344)
pt3dadd(20.576, 137.803, 9.749, 0.322)
pt3dadd(20.454, 137.796, 9.745, 0.3)
pt3dadd(20.333, 137.79, 9.741, 0.278)
pt3dadd(20.211, 137.783, 9.737, 0.256)
pt3dadd(20.09, 137.776, 9.732, 0.244)
pt3dadd(19.969, 137.77, 9.724, 0.288)
pt3dadd(19.848, 137.762, 9.716, 0.332)
pt3dadd(19.727, 137.755, 9.707, 0.376)
pt3dadd(19.606, 137.749, 9.699, 0.42)
pt3dadd(19.485, 137.742, 9.69, 0.464)
pt3dadd(19.364, 137.736, 9.682, 0.508)
pt3dadd(19.242, 137.729, 9.674, 0.552)
pt3dadd(19.121, 137.722, 9.665, 0.596)
pt3dadd(19, 137.716, 9.657, 0.64)
pt3dadd(18.879, 137.708, 9.647, 0.678)
pt3dadd(18.759, 137.701, 9.632, 0.68)
pt3dadd(18.639, 137.695, 9.616, 0.682)
pt3dadd(18.519, 137.688, 9.601, 0.684)
pt3dadd(18.399, 137.681, 9.585, 0.686)
pt3dadd(18.278, 137.675, 9.57, 0.688)
pt3dadd(18.158, 137.668, 9.555, 0.69)
pt3dadd(18.038, 137.66, 9.539, 0.692)
pt3dadd(17.918, 137.654, 9.524, 0.694)
pt3dadd(17.798, 137.647, 9.508, 0.696)
pt3dadd(17.679, 137.641, 9.488, 0.702)
pt3dadd(17.566, 137.634, 9.45, 0.722)
pt3dadd(17.454, 137.627, 9.411, 0.744)
pt3dadd(17.341, 137.621, 9.373, 0.764)
pt3dadd(17.229, 137.614, 9.334, 0.784)
pt3dadd(17.116, 137.606, 9.295, 0.804)
pt3dadd(17.003, 137.6, 9.257, 0.826)
pt3dadd(16.891, 137.593, 9.218, 0.846)
pt3dadd(16.778, 137.586, 9.18, 0.866)
pt3dadd(16.666, 137.58, 9.141, 0.888)
pt3dadd(16.552, 137.573, 9.105, 0.904)
pt3dadd(16.435, 137.567, 9.078, 0.904)
pt3dadd(16.318, 137.56, 9.051, 0.904)
pt3dadd(16.2, 137.552, 9.024, 0.904)
pt3dadd(16.083, 137.546, 8.997, 0.904)
pt3dadd(15.966, 137.539, 8.97, 0.904)
pt3dadd(15.849, 137.532, 8.943, 0.904)
pt3dadd(15.731, 137.526, 8.916, 0.904)
pt3dadd(15.614, 137.519, 8.889, 0.904)
pt3dadd(15.497, 137.512, 8.862, 0.904)
pt3dadd(15.379, 137.506, 8.836, 0.904)
pt3dadd(15.26, 137.498, 8.818, 0.902)
pt3dadd(15.14, 137.492, 8.799, 0.9)
pt3dadd(15.021, 137.485, 8.781, 0.898)
pt3dadd(14.901, 137.478, 8.762, 0.896)
pt3dadd(14.781, 137.473, 8.744, 0.894)
pt3dadd(14.662, 137.466, 8.725, 0.892)
pt3dadd(14.542, 137.459, 8.707, 0.89)
pt3dadd(14.423, 137.453, 8.689, 0.89)
pt3dadd(14.303, 137.446, 8.67, 0.888)
pt3dadd(14.183, 137.438, 8.652, 0.882)
pt3dadd(14.063, 137.432, 8.636, 0.858)
pt3dadd(13.943, 137.425, 8.62, 0.834)
pt3dadd(13.823, 137.419, 8.604, 0.812)
pt3dadd(13.703, 137.412, 8.588, 0.788)
pt3dadd(13.583, 137.405, 8.573, 0.766)
pt3dadd(13.463, 137.399, 8.557, 0.742)
pt3dadd(13.343, 137.392, 8.541, 0.718)
pt3dadd(13.223, 137.384, 8.525, 0.696)
pt3dadd(13.102, 137.378, 8.509, 0.672)
pt3dadd(12.984, 137.371, 8.488, 0.65)
pt3dadd(12.871, 137.364, 8.45, 0.628)
pt3dadd(12.759, 137.358, 8.411, 0.606)
pt3dadd(12.646, 137.351, 8.373, 0.584)
pt3dadd(12.533, 137.344, 8.335, 0.562)
pt3dadd(12.421, 137.339, 8.296, 0.54)
pt3dadd(12.308, 137.332, 8.258, 0.518)
pt3dadd(12.195, 137.326, 8.219, 0.496)
pt3dadd(12.083, 137.318, 8.181, 0.474)
pt3dadd(11.97, 137.311, 8.143, 0.454)
pt3dadd(11.856, 137.305, 8.107, 0.432)
pt3dadd(11.739, 137.298, 8.08, 0.412)
pt3dadd(11.622, 137.292, 8.054, 0.394)
pt3dadd(11.504, 137.286, 8.027, 0.374)
pt3dadd(11.387, 137.28, 8, 0.354)
pt3dadd(11.27, 137.273, 7.973, 0.334)
pt3dadd(11.152, 137.267, 7.946, 0.316)
pt3dadd(11.035, 137.261, 7.919, 0.296)
pt3dadd(10.918, 137.255, 7.893, 0.276)
pt3dadd(10.8, 137.249, 7.866, 0.258)
pt3dadd(10.682, 137.242, 7.841, 0.248)
pt3dadd(10.563, 137.237, 7.823, 0.274)
pt3dadd(10.443, 137.231, 7.805, 0.3)
pt3dadd(10.323, 137.224, 7.787, 0.326)
pt3dadd(10.204, 137.219, 7.768, 0.35)
pt3dadd(10.084, 137.213, 7.75, 0.376)
pt3dadd(9.965, 137.206, 7.732, 0.402)
pt3dadd(9.845, 137.201, 7.714, 0.428)
pt3dadd(9.725, 137.195, 7.695, 0.452)
pt3dadd(9.606, 137.189, 7.677, 0.478)
pt3dadd(9.486, 137.183, 7.659, 0.508)
pt3dadd(9.366, 137.178, 7.643, 0.548)
pt3dadd(9.246, 137.174, 7.627, 0.588)
pt3dadd(9.126, 137.17, 7.611, 0.63)
pt3dadd(9.006, 137.164, 7.595, 0.67)
pt3dadd(8.886, 137.16, 7.579, 0.712)
pt3dadd(8.766, 137.155, 7.562, 0.752)
pt3dadd(8.646, 137.149, 7.546, 0.794)
pt3dadd(8.526, 137.146, 7.53, 0.834)
pt3dadd(8.406, 137.141, 7.514, 0.874)
pt3dadd(8.288, 137.137, 7.491, 0.904)
pt3dadd(8.175, 137.134, 7.454, 0.906)
pt3dadd(8.062, 137.13, 7.416, 0.91)
pt3dadd(7.949, 137.128, 7.379, 0.912)
pt3dadd(7.836, 137.124, 7.341, 0.914)
pt3dadd(7.723, 137.12, 7.304, 0.916)
pt3dadd(7.61, 137.118, 7.267, 0.918)
pt3dadd(7.497, 137.116, 7.229, 0.92)
pt3dadd(7.384, 137.112, 7.192, 0.922)
pt3dadd(7.271, 137.11, 7.154, 0.926)
pt3dadd(7.156, 137.107, 7.12, 0.932)
pt3dadd(7.039, 137.11, 7.095, 0.946)
pt3dadd(6.921, 137.112, 7.07, 0.96)
pt3dadd(6.804, 137.114, 7.045, 0.976)
pt3dadd(6.686, 137.118, 7.02, 0.99)
pt3dadd(6.569, 137.119, 6.995, 1.006)
pt3dadd(6.451, 137.122, 6.97, 1.02)
pt3dadd(6.334, 137.124, 6.945, 1.034)
pt3dadd(6.216, 137.126, 6.919, 1.05)
pt3dadd(6.099, 137.129, 6.894, 1.064)
pt3dadd(5.981, 137.135, 6.873, 1.062)
pt3dadd(5.862, 137.148, 6.859, 1.018)
pt3dadd(5.743, 137.161, 6.845, 0.974)
pt3dadd(5.625, 137.176, 6.831, 0.93)
pt3dadd(5.506, 137.189, 6.817, 0.886)
pt3dadd(5.387, 137.203, 6.803, 0.842)
pt3dadd(5.269, 137.215, 6.789, 0.798)
pt3dadd(5.15, 137.228, 6.775, 0.756)
pt3dadd(5.031, 137.243, 6.761, 0.712)
}
}
proc shape3d_72() {
apic[11] { pt3dadd(4.913, 137.256, 6.747, 0.668)
pt3dadd(4.796, 137.279, 6.735, 0.634)
pt3dadd(4.684, 137.318, 6.726, 0.62)
pt3dadd(4.572, 137.357, 6.717, 0.606)
pt3dadd(4.46, 137.395, 6.707, 0.592)
pt3dadd(4.348, 137.435, 6.698, 0.578)
pt3dadd(4.236, 137.472, 6.689, 0.564)
pt3dadd(4.124, 137.512, 6.68, 0.55)
pt3dadd(4.012, 137.55, 6.671, 0.536)
pt3dadd(3.9, 137.588, 6.662, 0.522)
pt3dadd(3.788, 137.628, 6.652, 0.508)
pt3dadd(3.676, 137.662, 6.637, 0.506)
pt3dadd(3.563, 137.686, 6.609, 0.524)
pt3dadd(3.45, 137.712, 6.582, 0.544)
pt3dadd(3.337, 137.736, 6.555, 0.562)
pt3dadd(3.225, 137.76, 6.528, 0.58)
pt3dadd(3.112, 137.786, 6.501, 0.598)
pt3dadd(2.999, 137.81, 6.474, 0.616)
pt3dadd(2.886, 137.837, 6.447, 0.634)
pt3dadd(2.773, 137.861, 6.419, 0.652)
pt3dadd(2.66, 137.885, 6.392, 0.67)
pt3dadd(2.55, 137.903, 6.355, 0.668)
pt3dadd(2.442, 137.912, 6.31, 0.65)
pt3dadd(2.334, 137.922, 6.266, 0.634)
pt3dadd(2.226, 137.934, 6.221, 0.616)
pt3dadd(2.118, 137.944, 6.177, 0.6)
pt3dadd(2.117, 137.936, 6.176, 0.6)
pt3dadd(2.009, 137.948, 6.132, 0.582)
pt3dadd(1.901, 137.958, 6.087, 0.566)
pt3dadd(1.793, 137.969, 6.043, 0.548)
pt3dadd(1.685, 137.98, 5.998, 0.532)
pt3dadd(1.577, 137.989, 5.954, 0.514)
pt3dadd(1.463, 138.001, 5.924, 0.548)
pt3dadd(1.346, 138.012, 5.9, 0.604)
pt3dadd(1.229, 138.023, 5.877, 0.66)
pt3dadd(1.112, 138.034, 5.853, 0.716)
pt3dadd(0.995, 138.044, 5.829, 0.772)
pt3dadd(0.878, 138.055, 5.806, 0.828)
pt3dadd(0.761, 138.066, 5.782, 0.884)
pt3dadd(0.644, 138.077, 5.759, 0.94)
pt3dadd(0.527, 138.088, 5.735, 0.998)
pt3dadd(0.41, 138.1, 5.712, 1.054)
pt3dadd(0.298, 138.131, 5.696, 1.034)
pt3dadd(0.187, 138.174, 5.684, 0.98)
pt3dadd(0.077, 138.215, 5.671, 0.928)
pt3dadd(-0.034, 138.256, 5.659, 0.876)
pt3dadd(-0.144, 138.299, 5.647, 0.822)
pt3dadd(-0.254, 138.34, 5.634, 0.77)
pt3dadd(-0.365, 138.38, 5.622, 0.716)
pt3dadd(-0.475, 138.422, 5.61, 0.664)
pt3dadd(-0.586, 138.464, 5.597, 0.612)
pt3dadd(-0.696, 138.505, 5.585, 0.558)
pt3dadd(-0.804, 138.541, 5.558, 0.564)
pt3dadd(-0.912, 138.575, 5.524, 0.59)
pt3dadd(-1.02, 138.608, 5.491, 0.616)
pt3dadd(-1.128, 138.641, 5.458, 0.642)
pt3dadd(-1.236, 138.673, 5.425, 0.668)
pt3dadd(-1.343, 138.708, 5.392, 0.694)
pt3dadd(-1.451, 138.74, 5.359, 0.72)
pt3dadd(-1.559, 138.773, 5.326, 0.746)
pt3dadd(-1.667, 138.806, 5.292, 0.774)
pt3dadd(-1.774, 138.84, 5.259, 0.8)
pt3dadd(-1.881, 138.88, 5.231, 0.776)
pt3dadd(-1.987, 138.923, 5.204, 0.74)
pt3dadd(-2.094, 138.965, 5.177, 0.702)
pt3dadd(-2.2, 139.008, 5.151, 0.666)
pt3dadd(-2.306, 139.051, 5.124, 0.628)
pt3dadd(-2.413, 139.093, 5.097, 0.592)
pt3dadd(-2.519, 139.136, 5.07, 0.554)
pt3dadd(-2.625, 139.178, 5.043, 0.518)
pt3dadd(-2.731, 139.22, 5.017, 0.48)
pt3dadd(-2.838, 139.264, 4.99, 0.444)
pt3dadd(-2.95, 139.295, 4.97, 0.42)
pt3dadd(-3.064, 139.324, 4.952, 0.398)
pt3dadd(-3.178, 139.354, 4.934, 0.376)
pt3dadd(-3.293, 139.382, 4.916, 0.356)
pt3dadd(-3.407, 139.411, 4.899, 0.334)
pt3dadd(-3.521, 139.441, 4.881, 0.314)
pt3dadd(-3.635, 139.47, 4.863, 0.292)
pt3dadd(-3.749, 139.5, 4.845, 0.27)
pt3dadd(-3.863, 139.529, 4.827, 0.25)
pt3dadd(-3.977, 139.558, 4.809, 0.228)
pt3dadd(-4.096, 139.57, 4.798, 0.226)
pt3dadd(-4.216, 139.578, 4.787, 0.226)
pt3dadd(-4.336, 139.586, 4.776, 0.226)
pt3dadd(-4.456, 139.596, 4.766, 0.226)
pt3dadd(-4.576, 139.604, 4.755, 0.226)
pt3dadd(-4.577, 139.597, 4.754, 0.226)
pt3dadd(-4.697, 139.606, 4.744, 0.226)
pt3dadd(-4.817, 139.614, 4.733, 0.226)
pt3dadd(-4.937, 139.624, 4.722, 0.226)
pt3dadd(-5.057, 139.632, 4.712, 0.226)
pt3dadd(-5.177, 139.64, 4.701, 0.226)
pt3dadd(-5.297, 139.632, 4.689, 0.242)
pt3dadd(-5.418, 139.621, 4.676, 0.258)
pt3dadd(-5.538, 139.61, 4.664, 0.274)
pt3dadd(-5.659, 139.601, 4.651, 0.29)
pt3dadd(-5.779, 139.59, 4.638, 0.308)
pt3dadd(-5.9, 139.579, 4.626, 0.324)
pt3dadd(-6.021, 139.57, 4.613, 0.34)
pt3dadd(-6.141, 139.559, 4.601, 0.358)
pt3dadd(-6.262, 139.549, 4.588, 0.374)
pt3dadd(-6.382, 139.538, 4.576, 0.39)
pt3dadd(-6.496, 139.519, 4.542, 0.428)
pt3dadd(-6.61, 139.5, 4.508, 0.468)
pt3dadd(-6.723, 139.478, 4.473, 0.506)
pt3dadd(-6.837, 139.458, 4.438, 0.546)
pt3dadd(-6.951, 139.439, 4.404, 0.584)
pt3dadd(-7.064, 139.418, 4.369, 0.624)
pt3dadd(-7.178, 139.398, 4.334, 0.662)
pt3dadd(-7.179, 139.392, 4.333, 0.662)
pt3dadd(-7.293, 139.372, 4.299, 0.702)
pt3dadd(-7.406, 139.352, 4.264, 0.74)
pt3dadd(-7.52, 139.331, 4.229, 0.778)
pt3dadd(-7.627, 139.285, 4.195, 0.808)
pt3dadd(-7.735, 139.241, 4.16, 0.836)
pt3dadd(-7.842, 139.195, 4.125, 0.864)
pt3dadd(-7.95, 139.15, 4.09, 0.892)
pt3dadd(-8.057, 139.104, 4.056, 0.92)
pt3dadd(-8.165, 139.058, 4.021, 0.95)
pt3dadd(-8.273, 139.013, 3.986, 0.978)
pt3dadd(-8.38, 138.968, 3.951, 1.006)
pt3dadd(-8.488, 138.923, 3.917, 1.034)
pt3dadd(-8.595, 138.877, 3.883, 1.058)
pt3dadd(-8.704, 138.828, 3.854, 1.032)
pt3dadd(-8.813, 138.779, 3.825, 1.006)
pt3dadd(-8.922, 138.731, 3.797, 0.98)
pt3dadd(-9.031, 138.682, 3.768, 0.954)
pt3dadd(-9.032, 138.674, 3.767, 0.954)
pt3dadd(-9.141, 138.628, 3.739, 0.928)
pt3dadd(-9.25, 138.578, 3.71, 0.902)
pt3dadd(-9.359, 138.529, 3.682, 0.876)
pt3dadd(-9.467, 138.481, 3.653, 0.85)
pt3dadd(-9.576, 138.432, 3.624, 0.824)
pt3dadd(-9.684, 138.383, 3.593, 0.802)
pt3dadd(-9.782, 138.342, 3.541, 0.812)
pt3dadd(-9.879, 138.299, 3.488, 0.822)
pt3dadd(-9.977, 138.257, 3.436, 0.832)
pt3dadd(-10.075, 138.214, 3.383, 0.842)
pt3dadd(-10.173, 138.17, 3.331, 0.852)
pt3dadd(-10.27, 138.128, 3.278, 0.862)
pt3dadd(-10.368, 138.085, 3.226, 0.872)
pt3dadd(-10.466, 138.042, 3.173, 0.882)
pt3dadd(-10.564, 138.001, 3.121, 0.892)
pt3dadd(-10.662, 137.954, 3.071, 0.904)
pt3dadd(-10.761, 137.898, 3.029, 0.922)
pt3dadd(-10.861, 137.843, 2.988, 0.942)
pt3dadd(-10.96, 137.788, 2.946, 0.96)
pt3dadd(-11.059, 137.732, 2.905, 0.978)
pt3dadd(-11.159, 137.676, 2.863, 0.996)
pt3dadd(-11.258, 137.62, 2.821, 1.016)
pt3dadd(-11.358, 137.564, 2.78, 1.034)
pt3dadd(-11.457, 137.509, 2.738, 1.052)
pt3dadd(-11.557, 137.453, 2.696, 1.072)
pt3dadd(-11.657, 137.404, 2.653, 1.074)
pt3dadd(-11.762, 137.371, 2.605, 1.03)
pt3dadd(-11.866, 137.339, 2.558, 0.986)
pt3dadd(-11.97, 137.306, 2.51, 0.944)
pt3dadd(-12.075, 137.274, 2.462, 0.9)
pt3dadd(-12.179, 137.243, 2.415, 0.858)
pt3dadd(-12.283, 137.209, 2.367, 0.814)
pt3dadd(-12.388, 137.177, 2.319, 0.77)
pt3dadd(-12.492, 137.146, 2.272, 0.728)
pt3dadd(-12.596, 137.113, 2.224, 0.684)
pt3dadd(-12.705, 137.086, 2.184, 0.648)
pt3dadd(-12.823, 137.071, 2.16, 0.624)
pt3dadd(-12.941, 137.056, 2.136, 0.6)
pt3dadd(-13.059, 137.04, 2.113, 0.576)
pt3dadd(-13.177, 137.027, 2.089, 0.554)
pt3dadd(-13.295, 137.011, 2.066, 0.53)
pt3dadd(-13.413, 136.997, 2.042, 0.506)
pt3dadd(-13.531, 136.981, 2.018, 0.482)
pt3dadd(-13.649, 136.966, 1.995, 0.46)
pt3dadd(-13.767, 136.952, 1.971, 0.436)
pt3dadd(-13.886, 136.942, 1.952, 0.416)
pt3dadd(-14.007, 136.943, 1.942, 0.402)
pt3dadd(-14.127, 136.945, 1.932, 0.388)
pt3dadd(-14.248, 136.946, 1.922, 0.374)
pt3dadd(-14.369, 136.948, 1.912, 0.36)
pt3dadd(-14.489, 136.95, 1.902, 0.346)
pt3dadd(-14.61, 136.951, 1.892, 0.332)
pt3dadd(-14.731, 136.952, 1.882, 0.32)
pt3dadd(-14.851, 136.955, 1.872, 0.306)
pt3dadd(-14.972, 136.956, 1.862, 0.292)
pt3dadd(-15.092, 136.964, 1.855, 0.284)
pt3dadd(-15.211, 136.98, 1.854, 0.292)
pt3dadd(-15.331, 136.996, 1.854, 0.298)
pt3dadd(-15.45, 137.012, 1.853, 0.304)
pt3dadd(-15.569, 137.028, 1.852, 0.31)
pt3dadd(-15.688, 137.044, 1.851, 0.316)
pt3dadd(-15.808, 137.06, 1.85, 0.322)
pt3dadd(-15.927, 137.076, 1.85, 0.328)
pt3dadd(-16.046, 137.092, 1.849, 0.334)
pt3dadd(-16.166, 137.108, 1.848, 0.34)
pt3dadd(-16.274, 137.147, 1.847, 0.34)
pt3dadd(-16.365, 137.22, 1.847, 0.326)
pt3dadd(-16.457, 137.292, 1.846, 0.314)
pt3dadd(-16.548, 137.364, 1.845, 0.302)
pt3dadd(-16.64, 137.437, 1.844, 0.29)
pt3dadd(-16.731, 137.509, 1.843, 0.276)
}
}
proc shape3d_73() {
apic[11] { pt3dadd(-16.823, 137.581, 1.843, 0.264)
pt3dadd(-16.914, 137.656, 1.842, 0.252)
pt3dadd(-17.006, 137.728, 1.841, 0.238)
pt3dadd(-17.097, 137.8, 1.84, 0.226)
pt3dadd(-17.116, 137.911, 1.839, 0.27)
pt3dadd(-17.132, 138.023, 1.839, 0.316)
pt3dadd(-17.149, 138.136, 1.838, 0.36)
pt3dadd(-17.165, 138.248, 1.837, 0.406)
pt3dadd(-17.182, 138.36, 1.836, 0.452)
pt3dadd(-17.198, 138.473, 1.835, 0.496)
pt3dadd(-17.215, 138.584, 1.835, 0.542)
pt3dadd(-17.231, 138.697, 1.834, 0.588)
pt3dadd(-17.248, 138.81, 1.833, 0.632)
pt3dadd(-17.264, 138.922, 1.832, 0.678)
pt3dadd(-17.266, 138.914, 1.832, 0.226)
pt3dadd(-17.267, 138.908, 1.831, 0.226)
pt3dadd(-17.269, 138.901, 1.83, 0.226)
pt3dadd(-17.275, 138.775, 1.816, 0.352)
pt3dadd(-17.282, 138.65, 1.803, 0.478)
pt3dadd(-17.332, 138.563, 1.781, 0.588)
pt3dadd(-17.444, 138.53, 1.747, 0.674)
pt3dadd(-17.559, 138.508, 1.726, 0.746)
pt3dadd(-17.681, 138.5, 1.725, 0.796)
pt3dadd(-17.802, 138.494, 1.724, 0.848)
pt3dadd(-17.922, 138.487, 1.714, 0.886)
pt3dadd(-18.039, 138.48, 1.685, 0.908)
pt3dadd(-18.156, 138.474, 1.657, 0.928)
pt3dadd(-18.275, 138.467, 1.636, 0.916)
pt3dadd(-18.391, 138.46, 1.61, 0.902)
pt3dadd(-18.501, 138.454, 1.564, 0.892)
pt3dadd(-18.609, 138.446, 1.519, 0.882)
pt3dadd(-18.719, 138.44, 1.473, 0.872)
pt3dadd(-18.827, 138.433, 1.428, 0.864)
pt3dadd(-18.936, 138.426, 1.383, 0.854)
pt3dadd(-19.053, 138.42, 1.357, 0.858)
pt3dadd(-19.171, 138.413, 1.331, 0.862)
pt3dadd(-19.289, 138.406, 1.305, 0.866)
pt3dadd(-19.407, 138.4, 1.279, 0.872)
pt3dadd(-19.524, 138.392, 1.253, 0.876)
pt3dadd(-19.634, 138.385, 1.215, 0.882)
pt3dadd(-19.724, 138.379, 1.147, 0.892)
pt3dadd(-19.815, 138.372, 1.079, 0.902)
pt3dadd(-19.905, 138.366, 1.011, 0.912)
pt3dadd(-19.995, 138.359, 0.943, 0.922)
pt3dadd(-20.088, 138.352, 0.877, 0.932)
pt3dadd(-20.185, 138.346, 0.816, 0.942)
pt3dadd(-20.283, 138.338, 0.756, 0.952)
pt3dadd(-20.38, 138.331, 0.695, 0.962)
pt3dadd(-20.478, 138.325, 0.634, 0.972)
pt3dadd(-20.579, 138.318, 0.579, 0.974)
pt3dadd(-20.689, 138.311, 0.536, 0.954)
pt3dadd(-20.8, 138.305, 0.493, 0.934)
pt3dadd(-20.909, 138.298, 0.45, 0.916)
pt3dadd(-21.02, 138.292, 0.407, 0.896)
pt3dadd(-21.131, 138.284, 0.365, 0.878)
pt3dadd(-21.246, 138.277, 0.332, 0.854)
pt3dadd(-21.36, 138.271, 0.299, 0.832)
pt3dadd(-21.476, 138.264, 0.266, 0.81)
pt3dadd(-21.591, 138.257, 0.233, 0.786)
pt3dadd(-21.706, 138.251, 0.2, 0.764)
pt3dadd(-21.821, 138.244, 0.165, 0.736)
pt3dadd(-21.934, 138.236, 0.13, 0.704)
pt3dadd(-22.049, 138.23, 0.094, 0.672)
pt3dadd(-22.163, 138.223, 0.059, 0.64)
pt3dadd(-22.277, 138.217, 0.023, 0.608)
pt3dadd(-22.391, 138.21, -0.009, 0.578)
pt3dadd(-22.513, 138.203, -0.01, 0.574)
pt3dadd(-22.634, 138.197, -0.01, 0.57)
pt3dadd(-22.756, 138.19, -0.011, 0.566)
pt3dadd(-22.877, 138.182, -0.012, 0.562)
pt3dadd(-22.999, 138.176, -0.013, 0.56)
pt3dadd(-23.12, 138.169, -0.014, 0.556)
pt3dadd(-23.242, 138.161, -0.015, 0.552)
pt3dadd(-23.359, 138.132, -0.028, 0.552)
pt3dadd(-23.478, 138.103, -0.041, 0.552)
pt3dadd(-23.598, 138.074, -0.054, 0.552)
pt3dadd(-23.715, 138.046, -0.067, 0.552)
pt3dadd(-23.835, 138.017, -0.08, 0.552)
pt3dadd(-23.952, 138.002, -0.1, 0.566)
pt3dadd(-24.07, 137.995, -0.124, 0.588)
pt3dadd(-24.189, 137.988, -0.148, 0.61)
pt3dadd(-24.307, 137.982, -0.171, 0.63)
pt3dadd(-24.425, 137.975, -0.195, 0.652)
pt3dadd(-24.544, 137.968, -0.219, 0.674)
pt3dadd(-24.662, 137.962, -0.244, 0.692)
pt3dadd(-24.779, 137.954, -0.27, 0.71)
pt3dadd(-24.897, 137.947, -0.296, 0.728)
pt3dadd(-25.014, 137.941, -0.322, 0.744)
pt3dadd(-25.132, 137.934, -0.348, 0.762)
pt3dadd(-25.249, 137.928, -0.375, 0.78)
pt3dadd(-25.355, 137.921, -0.426, 0.794)
pt3dadd(-25.459, 137.914, -0.477, 0.808)
pt3dadd(-25.565, 137.908, -0.527, 0.824)
pt3dadd(-25.671, 137.9, -0.578, 0.838)
pt3dadd(-25.776, 137.893, -0.629, 0.852)
pt3dadd(-25.895, 137.887, -0.65, 0.85)
pt3dadd(-26.014, 137.88, -0.669, 0.846)
pt3dadd(-26.133, 137.873, -0.689, 0.842)
pt3dadd(-26.253, 137.867, -0.708, 0.838)
pt3dadd(-26.372, 137.86, -0.727, 0.834)
pt3dadd(-26.491, 137.854, -0.747, 0.828)
pt3dadd(-26.592, 137.846, -0.803, 0.814)
pt3dadd(-26.692, 137.839, -0.861, 0.8)
pt3dadd(-26.792, 137.833, -0.919, 0.784)
pt3dadd(-26.794, 137.826, -0.92, 0.784)
pt3dadd(-26.892, 137.819, -0.978, 0.77)
pt3dadd(-26.992, 137.813, -1.036, 0.754)
pt3dadd(-27.109, 137.806, -1.065, 0.75)
pt3dadd(-27.227, 137.798, -1.091, 0.744)
pt3dadd(-27.343, 137.792, -1.117, 0.74)
pt3dadd(-27.461, 137.785, -1.143, 0.736)
pt3dadd(-27.579, 137.779, -1.169, 0.732)
pt3dadd(-27.691, 137.771, -1.203, 0.726)
pt3dadd(-27.778, 137.758, -1.274, 0.714)
pt3dadd(-27.867, 137.74, -1.337, 0.704)
pt3dadd(-27.981, 137.692, -1.343, 0.704)
pt3dadd(-27.982, 137.684, -1.344, 0.704)
pt3dadd(-28.097, 137.636, -1.349, 0.704)
pt3dadd(-28.2, 137.569, -1.355, 0.682)
pt3dadd(-28.304, 137.498, -1.361, 0.658)
pt3dadd(-28.333, 137.393, -1.395, 0.636)
pt3dadd(-28.34, 137.276, -1.436, 0.612)
pt3dadd(-28.389, 137.184, -1.484, 0.578)
pt3dadd(-28.467, 137.108, -1.536, 0.534)
pt3dadd(-28.581, 137.09, -1.555, 0.504)
pt3dadd(-28.702, 137.084, -1.556, 0.526)
pt3dadd(-28.824, 137.077, -1.557, 0.598)
pt3dadd(-28.944, 137.069, -1.571, 0.654)
pt3dadd(-29.05, 137.035, -1.611, 0.678)
pt3dadd(-29.12, 136.961, -1.669, 0.678)
pt3dadd(-29.183, 136.877, -1.727, 0.678)
pt3dadd(-29.253, 136.774, -1.745, 0.678)
pt3dadd(-29.325, 136.672, -1.762, 0.678)
pt3dadd(-29.409, 136.58, -1.763, 0.678)
pt3dadd(-29.47, 136.47, -1.763, 0.678)
pt3dadd(-29.528, 136.358, -1.764, 0.678)
pt3dadd(-29.562, 136.236, -1.765, 0.678)
pt3dadd(-29.597, 136.114, -1.766, 0.678)
pt3dadd(-29.648, 135.998, -1.77, 0.686)
pt3dadd(-29.706, 135.886, -1.776, 0.698)
pt3dadd(-29.787, 135.805, -1.804, 0.72)
pt3dadd(-29.884, 135.748, -1.848, 0.746)
pt3dadd(-29.983, 135.688, -1.886, 0.816)
pt3dadd(-30.073, 135.614, -1.924, 0.868)
pt3dadd(-30.157, 135.533, -1.962, 0.898)
pt3dadd(-30.219, 135.427, -1.972, 0.912)
pt3dadd(-30.274, 135.313, -1.973, 0.924)
pt3dadd(-30.333, 135.215, -2.004, 0.914)
pt3dadd(-30.396, 135.132, -2.062, 0.886)
pt3dadd(-30.437, 135.07, -2.143, 0.868)
pt3dadd(-30.473, 135.014, -2.231, 0.856)
pt3dadd(-30.549, 134.924, -2.252, 0.84)
pt3dadd(-30.631, 134.83, -2.263, 0.826)
pt3dadd(-30.713, 134.735, -2.274, 0.81)
pt3dadd(-30.773, 134.627, -2.279, 0.792)
pt3dadd(-30.813, 134.507, -2.28, 0.77)
pt3dadd(-30.867, 134.399, -2.282, 0.75)
pt3dadd(-30.98, 134.347, -2.286, 0.734)
pt3dadd(-31.093, 134.297, -2.291, 0.716)
pt3dadd(-31.205, 134.25, -2.303, 0.7)
pt3dadd(-31.312, 134.224, -2.347, 0.688)
pt3dadd(-31.419, 134.201, -2.392, 0.684)
pt3dadd(-31.53, 134.182, -2.433, 0.706)
pt3dadd(-31.641, 134.147, -2.466, 0.71)
pt3dadd(-31.752, 134.112, -2.5, 0.716)
pt3dadd(-31.863, 134.077, -2.534, 0.722)
pt3dadd(-31.975, 134.042, -2.567, 0.726)
pt3dadd(-32.077, 133.978, -2.58, 0.736)
pt3dadd(-32.176, 133.901, -2.583, 0.746)
pt3dadd(-32.275, 133.824, -2.586, 0.756)
pt3dadd(-32.373, 133.747, -2.589, 0.766)
pt3dadd(-32.472, 133.67, -2.592, 0.776)
pt3dadd(-32.568, 133.59, -2.593, 0.782)
pt3dadd(-32.663, 133.507, -2.594, 0.788)
pt3dadd(-32.758, 133.426, -2.595, 0.792)
pt3dadd(-32.853, 133.344, -2.596, 0.798)
pt3dadd(-32.948, 133.262, -2.597, 0.802)
pt3dadd(-33.054, 133.196, -2.597, 0.854)
pt3dadd(-33.123, 133.092, -2.598, 0.844)
pt3dadd(-33.19, 132.985, -2.599, 0.768)
pt3dadd(-33.275, 132.898, -2.619, 0.65)
pt3dadd(-33.337, 132.824, -2.68, 0.526)
pt3dadd(-33.352, 132.766, -2.769, 0.466)
pt3dadd(-33.354, 132.737, -2.868, 0.436)
pt3dadd(-33.355, 132.725, -2.969, 0.41)
pt3dadd(-33.356, 132.708, -3.069, 0.384)
pt3dadd(-33.375, 132.668, -3.163, 0.432)
pt3dadd(-33.465, 132.607, -3.202, 0.526)
pt3dadd(-33.582, 132.566, -3.206, 0.576)
pt3dadd(-33.697, 132.524, -3.207, 0.632)
pt3dadd(-33.809, 132.47, -3.208, 0.666)
pt3dadd(-33.928, 132.442, -3.209, 0.678)
pt3dadd(-34.048, 132.42, -3.209, 0.698)
pt3dadd(-34.129, 132.332, -3.21, 0.704)
pt3dadd(-34.198, 132.227, -3.211, 0.704)
pt3dadd(-34.271, 132.132, -3.235, 0.704)
pt3dadd(-34.348, 132.042, -3.274, 0.704)
pt3dadd(-34.452, 131.989, -3.305, 0.686)
pt3dadd(-34.56, 131.941, -3.336, 0.668)
pt3dadd(-34.65, 131.894, -3.38, 0.652)
}
}
proc shape3d_74() {
apic[11] { pt3dadd(-34.677, 131.849, -3.473, 0.652)
pt3dadd(-34.701, 131.8, -3.565, 0.652)
pt3dadd(-34.712, 131.736, -3.654, 0.652)
pt3dadd(-34.776, 131.659, -3.689, 0.662)
pt3dadd(-34.867, 131.629, -3.63, 0.584)
pt3dadd(-34.963, 131.623, -3.569, 0.494)
pt3dadd(-35.073, 131.616, -3.533, 0.478)
pt3dadd(-35.195, 131.604, -3.541, 0.496)
pt3dadd(-35.315, 131.592, -3.551, 0.516)
pt3dadd(-35.424, 131.557, -3.577, 0.548)
pt3dadd(-35.521, 131.5, -3.62, 0.588)
pt3dadd(-35.629, 131.462, -3.656, 0.65)
pt3dadd(-35.749, 131.44, -3.67, 0.658)
pt3dadd(-35.868, 131.416, -3.682, 0.662)
pt3dadd(-35.987, 131.393, -3.695, 0.666)
pt3dadd(-36.108, 131.37, -3.708, 0.67)
pt3dadd(-36.227, 131.346, -3.72, 0.674)
pt3dadd(-36.339, 131.305, -3.729, 0.678)
pt3dadd(-36.428, 131.218, -3.72, 0.702)
pt3dadd(-36.511, 131.143, -3.677, 0.744)
pt3dadd(-36.601, 131.074, -3.64, 0.716)
pt3dadd(-36.719, 131.041, -3.632, 0.638)
pt3dadd(-36.839, 131.028, -3.633, 0.56)
pt3dadd(-36.96, 131.021, -3.634, 0.514)
pt3dadd(-37.082, 131.022, -3.635, 0.502)
pt3dadd(-37.195, 131.057, -3.635, 0.502)
pt3dadd(-37.246, 131.155, -3.636, 0.406)
pt3dadd(-37.262, 131.268, -3.637, 0.302)
pt3dadd(-37.286, 131.378, -3.638, 0.24)
pt3dadd(-37.345, 131.474, -3.639, 0.226)
pt3dadd(-37.44, 131.539, -3.639, 0.226)
pt3dadd(-37.558, 131.558, -3.64, 0.226)
pt3dadd(-37.679, 131.56, -3.641, 0.238)
pt3dadd(-37.801, 131.554, -3.647, 0.276)
pt3dadd(-37.914, 131.546, -3.678, 0.356)
pt3dadd(-37.978, 131.539, -3.76, 0.428)
pt3dadd(-37.994, 131.533, -3.86, 0.452)
pt3dadd(-38.014, 131.526, -3.96, 0.452)
pt3dadd(-38.063, 131.528, -4.051, 0.434)
pt3dadd(-38.131, 131.569, -4.118, 0.426)
pt3dadd(-38.212, 131.65, -4.143, 0.426)
pt3dadd(-38.302, 131.706, -4.172, 0.436)
pt3dadd(-38.413, 131.718, -4.21, 0.46)
pt3dadd(-38.526, 131.718, -4.239, 0.478)
pt3dadd(-38.645, 131.686, -4.239, 0.478)
pt3dadd(-38.72, 131.623, -4.189, 0.47)
pt3dadd(-38.762, 131.575, -4.103, 0.474)
pt3dadd(-38.821, 131.486, -4.059, 0.576)
pt3dadd(-38.845, 131.363, -4.054, 0.68)
pt3dadd(-38.895, 131.249, -4.054, 0.72)
pt3dadd(-38.957, 131.138, -4.055, 0.742)
pt3dadd(-39.051, 131.074, -4.056, 0.754)
pt3dadd(-39.17, 131.046, -4.057, 0.754)
pt3dadd(-39.291, 131.02, -4.058, 0.754)
pt3dadd(-39.392, 130.951, -4.058, 0.78)
pt3dadd(-39.511, 130.92, -4.059, 0.788)
pt3dadd(-39.63, 130.889, -4.06, 0.798)
pt3dadd(-39.749, 130.858, -4.061, 0.806)
pt3dadd(-39.868, 130.825, -4.062, 0.814)
pt3dadd(-39.986, 130.794, -4.062, 0.824)
pt3dadd(-40.106, 130.77, -4.063, 0.83)
pt3dadd(-40.227, 130.764, -4.064, 0.834)
pt3dadd(-40.349, 130.757, -4.065, 0.838)
pt3dadd(-40.47, 130.75, -4.065, 0.84)
pt3dadd(-40.592, 130.744, -4.066, 0.844)
pt3dadd(-40.713, 130.736, -4.067, 0.848)
pt3dadd(-40.835, 130.73, -4.068, 0.852)
pt3dadd(-40.955, 130.723, -4.063, 0.852)
pt3dadd(-41.075, 130.716, -4.048, 0.848)
pt3dadd(-41.196, 130.71, -4.032, 0.844)
pt3dadd(-41.315, 130.703, -4.016, 0.84)
pt3dadd(-41.435, 130.696, -4.001, 0.836)
pt3dadd(-41.555, 130.69, -3.985, 0.832)
pt3dadd(-41.675, 130.682, -3.973, 0.826)
pt3dadd(-41.797, 130.675, -3.974, 0.81)
pt3dadd(-41.918, 130.669, -3.975, 0.796)
pt3dadd(-42.04, 130.662, -3.976, 0.782)
pt3dadd(-42.161, 130.656, -3.977, 0.768)
pt3dadd(-42.283, 130.649, -3.977, 0.754)
pt3dadd(-42.404, 130.642, -3.978, 0.74)
pt3dadd(-42.525, 130.63, -3.979, 0.724)
pt3dadd(-42.645, 130.601, -3.98, 0.708)
pt3dadd(-42.764, 130.572, -3.981, 0.69)
pt3dadd(-42.883, 130.543, -3.981, 0.674)
pt3dadd(-43.002, 130.513, -3.982, 0.656)
pt3dadd(-43.122, 130.484, -3.983, 0.64)
pt3dadd(-43.224, 130.435, -3.979, 0.616)
pt3dadd(-43.279, 130.322, -3.964, 0.566)
pt3dadd(-43.347, 130.229, -3.944, 0.522)
pt3dadd(-43.459, 130.195, -3.913, 0.496)
pt3dadd(-43.572, 130.162, -3.887, 0.478)
pt3dadd(-43.689, 130.122, -3.888, 0.478)
pt3dadd(-43.806, 130.082, -3.888, 0.478)
pt3dadd(-43.926, 130.067, -3.889, 0.49)
pt3dadd(-44.047, 130.061, -3.89, 0.506)
pt3dadd(-44.169, 130.054, -3.891, 0.524)
pt3dadd(-44.29, 130.052, -3.892, 0.558)
pt3dadd(-44.412, 130.052, -3.892, 0.598)
pt3dadd(-44.532, 130.062, -3.893, 0.61)
pt3dadd(-44.652, 130.072, -3.894, 0.618)
pt3dadd(-44.773, 130.082, -3.895, 0.626)
pt3dadd(-44.893, 130.093, -3.896, 0.634)
pt3dadd(-45.012, 130.104, -3.896, 0.642)
pt3dadd(-45.132, 130.114, -3.897, 0.65)
pt3dadd(-45.254, 130.109, -3.897, 0.658)
pt3dadd(-45.375, 130.096, -3.896, 0.666)
pt3dadd(-45.497, 130.084, -3.895, 0.674)
pt3dadd(-45.618, 130.07, -3.894, 0.682)
pt3dadd(-45.738, 130.057, -3.893, 0.688)
pt3dadd(-45.86, 130.045, -3.892, 0.696)
pt3dadd(-45.98, 130.027, -3.889, 0.704)
pt3dadd(-46.092, 129.979, -3.872, 0.714)
pt3dadd(-46.204, 129.931, -3.854, 0.726)
pt3dadd(-46.316, 129.883, -3.836, 0.736)
pt3dadd(-46.428, 129.834, -3.819, 0.746)
pt3dadd(-46.542, 129.798, -3.804, 0.756)
pt3dadd(-46.663, 129.792, -3.794, 0.768)
pt3dadd(-46.784, 129.785, -3.784, 0.78)
pt3dadd(-46.905, 129.778, -3.775, 0.792)
pt3dadd(-47.025, 129.772, -3.765, 0.804)
pt3dadd(-47.147, 129.764, -3.755, 0.816)
pt3dadd(-47.267, 129.757, -3.745, 0.828)
pt3dadd(-47.388, 129.751, -3.736, 0.836)
pt3dadd(-47.509, 129.744, -3.726, 0.844)
pt3dadd(-47.629, 129.738, -3.716, 0.852)
pt3dadd(-47.751, 129.731, -3.707, 0.86)
pt3dadd(-47.871, 129.724, -3.697, 0.868)
pt3dadd(-47.992, 129.718, -3.687, 0.876)
pt3dadd(-48.112, 129.71, -3.678, 0.878)
pt3dadd(-48.234, 129.703, -3.668, 0.878)
pt3dadd(-48.354, 129.697, -3.658, 0.878)
pt3dadd(-48.476, 129.69, -3.649, 0.878)
pt3dadd(-48.596, 129.683, -3.639, 0.878)
pt3dadd(-48.717, 129.677, -3.629, 0.878)
pt3dadd(-48.838, 129.67, -3.622, 0.876)
pt3dadd(-48.959, 129.664, -3.622, 0.86)
pt3dadd(-49.081, 129.656, -3.623, 0.842)
pt3dadd(-49.202, 129.649, -3.624, 0.824)
pt3dadd(-49.323, 129.637, -3.625, 0.798)
pt3dadd(-49.445, 129.626, -3.626, 0.772)
pt3dadd(-49.564, 129.602, -3.626, 0.744)
pt3dadd(-49.676, 129.548, -3.627, 0.71)
pt3dadd(-49.788, 129.496, -3.628, 0.678)
pt3dadd(-49.883, 129.414, -3.629, 0.642)
pt3dadd(-49.978, 129.332, -3.63, 0.608)
pt3dadd(-50.047, 129.227, -3.63, 0.572)
pt3dadd(-50.132, 129.15, -3.617, 0.552)
pt3dadd(-50.244, 129.118, -3.586, 0.552)
pt3dadd(-50.356, 129.078, -3.56, 0.562)
pt3dadd(-50.466, 129.026, -3.545, 0.586)
pt3dadd(-50.575, 128.968, -3.534, 0.614)
pt3dadd(-50.675, 128.893, -3.535, 0.648)
pt3dadd(-50.768, 128.813, -3.536, 0.682)
pt3dadd(-50.824, 128.699, -3.537, 0.716)
pt3dadd(-50.879, 128.585, -3.537, 0.75)
pt3dadd(-50.886, 128.459, -3.538, 0.776)
pt3dadd(-50.887, 128.333, -3.539, 0.802)
pt3dadd(-50.901, 128.207, -3.54, 0.8)
pt3dadd(-50.914, 128.08, -3.541, 0.796)
pt3dadd(-50.929, 127.954, -3.541, 0.792)
pt3dadd(-50.942, 127.828, -3.542, 0.788)
pt3dadd(-50.957, 127.702, -3.543, 0.784)
pt3dadd(-50.97, 127.576, -3.544, 0.78)
pt3dadd(-50.995, 127.451, -3.545, 0.772)
pt3dadd(-51.026, 127.328, -3.545, 0.758)
pt3dadd(-51.057, 127.206, -3.546, 0.746)
pt3dadd(-51.089, 127.082, -3.547, 0.732)
pt3dadd(-51.12, 126.96, -3.548, 0.718)
pt3dadd(-51.152, 126.836, -3.549, 0.706)
pt3dadd(-51.173, 126.712, -3.549, 0.694)
pt3dadd(-51.192, 126.587, -3.55, 0.682)
pt3dadd(-51.21, 126.461, -3.551, 0.668)
pt3dadd(-51.23, 126.335, -3.552, 0.656)
pt3dadd(-51.248, 126.21, -3.553, 0.644)
pt3dadd(-51.267, 126.084, -3.553, 0.632)
pt3dadd(-51.318, 125.971, -3.554, 0.628)
pt3dadd(-51.388, 125.867, -3.555, 0.628)
pt3dadd(-51.459, 125.761, -3.556, 0.628)
pt3dadd(-51.529, 125.657, -3.556, 0.628)
pt3dadd(-51.6, 125.551, -3.557, 0.628)
pt3dadd(-51.674, 125.449, -3.558, 0.63)
pt3dadd(-51.751, 125.348, -3.559, 0.636)
pt3dadd(-51.826, 125.249, -3.56, 0.64)
pt3dadd(-51.903, 125.148, -3.56, 0.646)
pt3dadd(-51.979, 125.047, -3.561, 0.65)
pt3dadd(-52.077, 124.974, -3.562, 0.652)
pt3dadd(-52.188, 124.916, -3.563, 0.652)
pt3dadd(-52.297, 124.859, -3.564, 0.652)
pt3dadd(-52.408, 124.801, -3.564, 0.652)
pt3dadd(-52.518, 124.744, -3.565, 0.652)
pt3dadd(-52.616, 124.672, -3.573, 0.652)
pt3dadd(-52.689, 124.572, -3.594, 0.652)
pt3dadd(-52.761, 124.472, -3.614, 0.652)
pt3dadd(-52.835, 124.373, -3.635, 0.652)
pt3dadd(-52.908, 124.273, -3.656, 0.652)
pt3dadd(-53.005, 124.2, -3.682, 0.652)
pt3dadd(-53.103, 124.129, -3.708, 0.652)
pt3dadd(-53.202, 124.058, -3.734, 0.652)
pt3dadd(-53.301, 123.989, -3.76, 0.652)
pt3dadd(-53.408, 123.934, -3.773, 0.656)
}
}
proc shape3d_75() {
apic[11] { pt3dadd(-53.526, 123.894, -3.774, 0.66)
pt3dadd(-53.642, 123.854, -3.775, 0.664)
pt3dadd(-53.759, 123.814, -3.775, 0.668)
pt3dadd(-53.876, 123.774, -3.776, 0.672)
pt3dadd(-53.992, 123.734, -3.777, 0.678)
pt3dadd(-54.11, 123.697, -3.778, 0.674)
pt3dadd(-54.228, 123.66, -3.779, 0.67)
pt3dadd(-54.345, 123.623, -3.779, 0.666)
pt3dadd(-54.463, 123.587, -3.78, 0.662)
pt3dadd(-54.58, 123.55, -3.781, 0.656)
pt3dadd(-54.696, 123.509, -3.784, 0.652)
pt3dadd(-54.79, 123.43, -3.805, 0.64)
pt3dadd(-54.885, 123.35, -3.825, 0.63)
pt3dadd(-54.979, 123.272, -3.846, 0.618)
pt3dadd(-55.074, 123.193, -3.867, 0.606)
pt3dadd(-55.169, 123.114, -3.876, 0.596)
pt3dadd(-55.265, 123.034, -3.879, 0.586)
pt3dadd(-55.363, 122.953, -3.882, 0.576)
pt3dadd(-55.459, 122.873, -3.885, 0.566)
pt3dadd(-55.555, 122.794, -3.888, 0.556)
pt3dadd(-55.667, 122.75, -3.904, 0.546)
pt3dadd(-55.784, 122.72, -3.924, 0.536)
pt3dadd(-55.9, 122.692, -3.944, 0.526)
pt3dadd(-56.017, 122.662, -3.964, 0.516)
pt3dadd(-56.135, 122.632, -3.984, 0.506)
pt3dadd(-56.25, 122.61, -4.01, 0.5)
pt3dadd(-56.367, 122.596, -4.04, 0.494)
pt3dadd(-56.482, 122.581, -4.071, 0.49)
pt3dadd(-56.598, 122.567, -4.101, 0.486)
pt3dadd(-56.715, 122.552, -4.132, 0.48)
pt3dadd(-56.825, 122.54, -4.17, 0.468)
pt3dadd(-56.827, 122.533, -4.171, 0.468)
pt3dadd(-56.828, 122.527, -4.172, 0.468)
}
apic[12] {pt3dclear()
pt3dadd(50.69, 138.442, 10.809, 1.506)
pt3dadd(50.694, 138.428, 10.823, 1.486)
pt3dadd(50.719, 138.355, 10.9, 1.378)
pt3dadd(50.744, 138.282, 10.977, 1.272)
pt3dadd(50.769, 138.209, 11.054, 1.164)
pt3dadd(50.793, 138.137, 11.13, 1.056)
pt3dadd(50.818, 138.064, 11.207, 0.948)
pt3dadd(50.843, 137.99, 11.284, 0.84)
pt3dadd(50.867, 137.917, 11.361, 0.734)
pt3dadd(50.822, 137.878, 11.4, 0.678)
pt3dadd(50.702, 137.873, 11.4, 0.678)
pt3dadd(50.582, 137.869, 11.4, 0.678)
pt3dadd(50.472, 137.831, 11.4, 0.678)
pt3dadd(50.368, 137.77, 11.4, 0.678)
pt3dadd(50.279, 137.694, 11.4, 0.678)
pt3dadd(50.211, 137.594, 11.4, 0.678)
pt3dadd(50.132, 137.513, 11.4, 0.678)
pt3dadd(50.015, 137.484, 11.4, 0.678)
pt3dadd(49.899, 137.455, 11.4, 0.678)
pt3dadd(49.782, 137.425, 11.4, 0.678)
pt3dadd(49.666, 137.395, 11.402, 0.678)
pt3dadd(49.554, 137.358, 11.418, 0.678)
pt3dadd(49.442, 137.32, 11.433, 0.678)
pt3dadd(49.361, 137.27, 11.489, 0.678)
pt3dadd(49.261, 137.214, 11.516, 0.678)
pt3dadd(49.161, 137.156, 11.544, 0.678)
pt3dadd(49.062, 137.099, 11.572, 0.678)
pt3dadd(48.962, 137.041, 11.6, 0.678)
pt3dadd(48.873, 136.961, 11.6, 0.678)
pt3dadd(48.784, 136.88, 11.6, 0.678)
pt3dadd(48.695, 136.799, 11.6, 0.678)
pt3dadd(48.606, 136.718, 11.6, 0.678)
pt3dadd(48.517, 136.639, 11.601, 0.678)
pt3dadd(48.405, 136.606, 11.626, 0.678)
pt3dadd(48.294, 136.572, 11.652, 0.678)
pt3dadd(48.183, 136.538, 11.677, 0.678)
pt3dadd(48.072, 136.505, 11.703, 0.678)
pt3dadd(47.96, 136.475, 11.726, 0.678)
pt3dadd(47.843, 136.452, 11.74, 0.678)
pt3dadd(47.727, 136.429, 11.754, 0.678)
pt3dadd(47.61, 136.408, 11.769, 0.678)
pt3dadd(47.493, 136.385, 11.783, 0.678)
pt3dadd(47.377, 136.363, 11.798, 0.678)
pt3dadd(47.257, 136.355, 11.804, 0.678)
pt3dadd(47.138, 136.348, 11.81, 0.678)
pt3dadd(47.018, 136.342, 11.815, 0.678)
pt3dadd(46.898, 136.336, 11.82, 0.678)
pt3dadd(46.779, 136.33, 11.825, 0.678)
pt3dadd(46.659, 136.324, 11.831, 0.678)
pt3dadd(46.546, 136.307, 11.854, 0.678)
pt3dadd(46.44, 136.28, 11.895, 0.678)
pt3dadd(46.333, 136.255, 11.936, 0.678)
pt3dadd(46.227, 136.229, 11.976, 0.678)
pt3dadd(46.12, 136.204, 12.017, 0.678)
pt3dadd(46.006, 136.194, 12.045, 0.678)
pt3dadd(45.891, 136.187, 12.072, 0.678)
pt3dadd(45.775, 136.18, 12.099, 0.678)
pt3dadd(45.66, 136.171, 12.125, 0.678)
pt3dadd(45.544, 136.164, 12.152, 0.678)
pt3dadd(45.429, 136.144, 12.17, 0.678)
pt3dadd(45.316, 136.105, 12.176, 0.678)
pt3dadd(45.202, 136.068, 12.182, 0.678)
pt3dadd(45.089, 136.03, 12.188, 0.678)
pt3dadd(44.975, 135.991, 12.195, 0.678)
pt3dadd(44.861, 135.956, 12.2, 0.678)
pt3dadd(44.742, 135.937, 12.2, 0.678)
pt3dadd(44.624, 135.917, 12.2, 0.678)
pt3dadd(44.506, 135.898, 12.2, 0.678)
pt3dadd(44.387, 135.878, 12.2, 0.678)
pt3dadd(44.269, 135.858, 12.2, 0.678)
pt3dadd(44.151, 135.84, 12.2, 0.678)
pt3dadd(44.031, 135.834, 12.2, 0.678)
pt3dadd(43.911, 135.828, 12.2, 0.678)
pt3dadd(43.791, 135.822, 12.2, 0.678)
pt3dadd(43.671, 135.816, 12.2, 0.678)
pt3dadd(43.551, 135.81, 12.2, 0.678)
pt3dadd(43.431, 135.804, 12.2, 0.678)
pt3dadd(43.312, 135.796, 12.2, 0.678)
pt3dadd(43.192, 135.782, 12.2, 0.678)
pt3dadd(43.073, 135.77, 12.2, 0.678)
pt3dadd(42.954, 135.757, 12.2, 0.678)
pt3dadd(42.834, 135.745, 12.2, 0.678)
pt3dadd(42.715, 135.732, 12.2, 0.678)
pt3dadd(42.596, 135.719, 12.2, 0.678)
pt3dadd(42.477, 135.702, 12.2, 0.678)
pt3dadd(42.358, 135.685, 12.2, 0.678)
pt3dadd(42.24, 135.667, 12.2, 0.678)
pt3dadd(42.121, 135.65, 12.2, 0.678)
pt3dadd(42.002, 135.632, 12.2, 0.678)
pt3dadd(41.883, 135.616, 12.2, 0.678)
pt3dadd(41.769, 135.58, 12.2, 0.678)
pt3dadd(41.655, 135.541, 12.2, 0.678)
pt3dadd(41.542, 135.503, 12.2, 0.678)
pt3dadd(41.428, 135.463, 12.2, 0.678)
pt3dadd(41.315, 135.425, 12.2, 0.678)
pt3dadd(41.201, 135.388, 12.205, 0.678)
pt3dadd(41.087, 135.354, 12.217, 0.678)
pt3dadd(40.973, 135.32, 12.23, 0.678)
pt3dadd(40.858, 135.287, 12.243, 0.678)
pt3dadd(40.744, 135.253, 12.256, 0.678)
pt3dadd(40.632, 135.217, 12.273, 0.678)
pt3dadd(40.528, 135.169, 12.302, 0.678)
pt3dadd(40.424, 135.121, 12.332, 0.678)
pt3dadd(40.32, 135.074, 12.362, 0.678)
pt3dadd(40.215, 135.026, 12.392, 0.678)
pt3dadd(40.101, 134.999, 12.4, 0.678)
pt3dadd(39.983, 134.978, 12.4, 0.678)
pt3dadd(39.866, 134.953, 12.4, 0.678)
pt3dadd(39.759, 134.899, 12.4, 0.678)
pt3dadd(39.651, 134.846, 12.4, 0.678)
pt3dadd(39.559, 134.771, 12.405, 0.678)
pt3dadd(39.468, 134.693, 12.41, 0.678)
pt3dadd(39.373, 134.636, 12.447, 0.678)
pt3dadd(39.279, 134.585, 12.49, 0.678)
pt3dadd(39.248, 134.48, 12.533, 0.678)
pt3dadd(39.184, 134.394, 12.572, 0.678)
pt3dadd(39.106, 134.314, 12.609, 0.678)
pt3dadd(39.029, 134.234, 12.647, 0.678)
pt3dadd(38.952, 134.154, 12.684, 0.678)
pt3dadd(38.856, 134.094, 12.711, 0.678)
pt3dadd(38.747, 134.05, 12.729, 0.678)
pt3dadd(38.638, 134.005, 12.748, 0.678)
pt3dadd(38.529, 133.96, 12.767, 0.678)
pt3dadd(38.42, 133.915, 12.786, 0.678)
pt3dadd(38.306, 133.879, 12.79, 0.678)
pt3dadd(38.191, 133.846, 12.793, 0.678)
pt3dadd(38.076, 133.812, 12.795, 0.678)
pt3dadd(37.961, 133.778, 12.796, 0.678)
pt3dadd(37.845, 133.745, 12.799, 0.678)
pt3dadd(37.732, 133.705, 12.8, 0.678)
pt3dadd(37.625, 133.652, 12.8, 0.678)
pt3dadd(37.518, 133.6, 12.801, 0.678)
pt3dadd(37.407, 133.573, 12.833, 0.678)
pt3dadd(37.297, 133.548, 12.866, 0.678)
pt3dadd(37.237, 133.454, 12.902, 0.678)
pt3dadd(37.176, 133.369, 12.944, 0.678)
pt3dadd(37.105, 133.34, 13.021, 0.678)
pt3dadd(37.028, 133.32, 13.095, 0.678)
pt3dadd(36.934, 133.32, 13.157, 0.678)
pt3dadd(36.828, 133.301, 13.198, 0.678)
pt3dadd(36.719, 133.279, 13.235, 0.678)
pt3dadd(36.61, 133.256, 13.273, 0.678)
pt3dadd(36.501, 133.234, 13.31, 0.678)
pt3dadd(36.391, 133.211, 13.347, 0.678)
pt3dadd(36.283, 133.182, 13.383, 0.678)
pt3dadd(36.175, 133.154, 13.418, 0.678)
pt3dadd(36.066, 133.126, 13.454, 0.678)
pt3dadd(35.958, 133.097, 13.49, 0.678)
pt3dadd(35.851, 133.069, 13.529, 0.678)
pt3dadd(35.746, 133.043, 13.572, 0.678)
pt3dadd(35.641, 133.018, 13.616, 0.678)
pt3dadd(35.537, 132.991, 13.66, 0.678)
pt3dadd(35.432, 132.965, 13.703, 0.678)
pt3dadd(35.336, 132.922, 13.75, 0.678)
pt3dadd(35.241, 132.874, 13.797, 0.678)
pt3dadd(35.146, 132.827, 13.845, 0.678)
pt3dadd(35.052, 132.779, 13.892, 0.678)
pt3dadd(34.954, 132.738, 13.938, 0.678)
pt3dadd(34.854, 132.702, 13.984, 0.678)
pt3dadd(34.753, 132.665, 14.029, 0.678)
pt3dadd(34.653, 132.629, 14.075, 0.678)
pt3dadd(34.55, 132.6, 14.119, 0.678)
pt3dadd(34.44, 132.6, 14.158, 0.678)
pt3dadd(34.329, 132.6, 14.197, 0.678)
pt3dadd(34.262, 132.575, 14.275, 0.678)
pt3dadd(34.199, 132.546, 14.356, 0.678)
pt3dadd(34.152, 132.438, 14.378, 0.678)
}
}
proc shape3d_76() {
apic[12] { pt3dadd(34.104, 132.331, 14.4, 0.678)
pt3dadd(34.017, 132.25, 14.4, 0.678)
pt3dadd(33.929, 132.168, 14.4, 0.678)
pt3dadd(33.819, 132.122, 14.4, 0.678)
pt3dadd(33.706, 132.082, 14.4, 0.678)
pt3dadd(33.593, 132.041, 14.4, 0.678)
pt3dadd(33.48, 132, 14.4, 0.678)
pt3dadd(33.36, 132, 14.4, 0.678)
pt3dadd(33.24, 132, 14.4, 0.678)
pt3dadd(33.12, 132, 14.4, 0.678)
pt3dadd(33.009, 131.987, 14.435, 0.678)
pt3dadd(32.897, 131.972, 14.47, 0.678)
pt3dadd(32.793, 131.948, 14.507, 0.678)
pt3dadd(32.741, 131.858, 14.556, 0.678)
pt3dadd(32.668, 131.786, 14.594, 0.678)
pt3dadd(32.551, 131.77, 14.608, 0.678)
pt3dadd(32.433, 131.765, 14.621, 0.678)
pt3dadd(32.314, 131.759, 14.635, 0.678)
pt3dadd(32.204, 131.732, 14.668, 0.678)
pt3dadd(32.093, 131.707, 14.7, 0.678)
pt3dadd(32.025, 131.608, 14.7, 0.678)
pt3dadd(31.957, 131.509, 14.7, 0.678)
pt3dadd(31.875, 131.422, 14.705, 0.678)
pt3dadd(31.791, 131.338, 14.71, 0.678)
pt3dadd(31.724, 131.3, 14.777, 0.678)
pt3dadd(31.662, 131.275, 14.86, 0.678)
pt3dadd(31.599, 131.251, 14.943, 0.678)
pt3dadd(31.57, 131.182, 15.008, 0.678)
pt3dadd(31.563, 131.08, 15.061, 0.678)
pt3dadd(31.546, 130.972, 15.091, 0.678)
pt3dadd(31.517, 130.855, 15.094, 0.678)
pt3dadd(31.488, 130.739, 15.098, 0.678)
pt3dadd(31.443, 130.632, 15.1, 0.678)
pt3dadd(31.355, 130.549, 15.1, 0.678)
pt3dadd(31.263, 130.477, 15.103, 0.678)
pt3dadd(31.147, 130.465, 15.125, 0.678)
pt3dadd(31.03, 130.452, 15.146, 0.678)
pt3dadd(30.914, 130.44, 15.167, 0.678)
pt3dadd(30.795, 130.44, 15.18, 0.678)
pt3dadd(30.675, 130.44, 15.192, 0.678)
pt3dadd(30.556, 130.44, 15.2, 0.678)
pt3dadd(30.438, 130.44, 15.211, 0.678)
pt3dadd(30.324, 130.44, 15.241, 0.678)
pt3dadd(30.209, 130.44, 15.271, 0.678)
pt3dadd(30.094, 130.44, 15.3, 0.678)
pt3dadd(29.98, 130.44, 15.33, 0.678)
pt3dadd(29.865, 130.44, 15.36, 0.678)
pt3dadd(29.771, 130.44, 15.419, 0.678)
pt3dadd(29.682, 130.44, 15.486, 0.678)
pt3dadd(29.593, 130.44, 15.554, 0.678)
pt3dadd(29.505, 130.44, 15.621, 0.678)
pt3dadd(29.416, 130.44, 15.688, 0.678)
pt3dadd(29.313, 130.44, 15.739, 0.678)
pt3dadd(29.207, 130.44, 15.786, 0.678)
pt3dadd(29.101, 130.44, 15.833, 0.678)
pt3dadd(28.996, 130.44, 15.881, 0.678)
pt3dadd(28.89, 130.44, 15.928, 0.678)
pt3dadd(28.785, 130.44, 15.977, 0.678)
pt3dadd(28.681, 130.44, 16.027, 0.678)
pt3dadd(28.577, 130.44, 16.077, 0.678)
pt3dadd(28.473, 130.44, 16.126, 0.678)
pt3dadd(28.369, 130.44, 16.176, 0.678)
pt3dadd(28.269, 130.429, 16.23, 0.678)
pt3dadd(28.173, 130.409, 16.287, 0.678)
pt3dadd(28.075, 130.375, 16.336, 0.678)
pt3dadd(27.974, 130.332, 16.377, 0.678)
pt3dadd(27.861, 130.331, 16.392, 0.678)
pt3dadd(27.742, 130.346, 16.396, 0.678)
pt3dadd(27.624, 130.366, 16.4, 0.678)
pt3dadd(27.511, 130.405, 16.4, 0.678)
pt3dadd(27.397, 130.445, 16.4, 0.678)
pt3dadd(27.286, 130.489, 16.406, 0.678)
pt3dadd(27.174, 130.518, 16.417, 0.678)
pt3dadd(27.056, 130.51, 16.434, 0.678)
pt3dadd(26.938, 130.502, 16.451, 0.678)
pt3dadd(26.82, 130.494, 16.468, 0.678)
pt3dadd(26.702, 130.487, 16.485, 0.678)
pt3dadd(26.584, 130.477, 16.502, 0.678)
pt3dadd(26.466, 130.46, 16.516, 0.678)
pt3dadd(26.348, 130.444, 16.53, 0.678)
pt3dadd(26.232, 130.44, 16.554, 0.678)
pt3dadd(26.117, 130.44, 16.582, 0.678)
pt3dadd(26.002, 130.429, 16.6, 0.678)
pt3dadd(25.886, 130.396, 16.6, 0.678)
pt3dadd(25.771, 130.363, 16.6, 0.678)
pt3dadd(25.675, 130.292, 16.6, 0.678)
pt3dadd(25.581, 130.217, 16.6, 0.678)
pt3dadd(25.47, 130.177, 16.602, 0.678)
pt3dadd(25.354, 130.147, 16.605, 0.678)
pt3dadd(25.238, 130.117, 16.608, 0.678)
pt3dadd(25.122, 130.087, 16.61, 0.678)
pt3dadd(25.008, 130.08, 16.636, 0.678)
pt3dadd(24.895, 130.08, 16.669, 0.678)
pt3dadd(24.779, 130.08, 16.695, 0.678)
pt3dadd(24.661, 130.08, 16.711, 0.678)
pt3dadd(24.542, 130.08, 16.727, 0.678)
pt3dadd(24.424, 130.08, 16.743, 0.678)
pt3dadd(24.388, 130.022, 16.819, 0.678)
pt3dadd(24.36, 129.959, 16.901, 0.678)
pt3dadd(24.313, 129.87, 16.941, 0.678)
pt3dadd(24.217, 129.804, 16.964, 0.678)
pt3dadd(24.12, 129.738, 16.986, 0.678)
pt3dadd(24.024, 129.671, 17.009, 0.678)
pt3dadd(23.928, 129.605, 17.031, 0.678)
pt3dadd(23.827, 129.542, 17.046, 0.678)
pt3dadd(23.727, 129.479, 17.061, 0.678)
pt3dadd(23.626, 129.415, 17.075, 0.678)
pt3dadd(23.526, 129.353, 17.09, 0.678)
pt3dadd(23.429, 129.294, 17.116, 0.678)
pt3dadd(23.343, 129.25, 17.175, 0.678)
pt3dadd(23.256, 129.205, 17.234, 0.678)
pt3dadd(23.17, 129.16, 17.292, 0.678)
pt3dadd(23.081, 129.116, 17.348, 0.678)
pt3dadd(22.971, 129.089, 17.381, 0.678)
pt3dadd(22.862, 129.061, 17.414, 0.678)
pt3dadd(22.752, 129.032, 17.447, 0.678)
pt3dadd(22.642, 129.005, 17.479, 0.678)
pt3dadd(22.534, 128.968, 17.509, 0.678)
pt3dadd(22.429, 128.918, 17.534, 0.678)
pt3dadd(22.323, 128.869, 17.558, 0.678)
pt3dadd(22.218, 128.819, 17.582, 0.678)
pt3dadd(22.113, 128.77, 17.607, 0.678)
pt3dadd(22.007, 128.731, 17.641, 0.678)
pt3dadd(21.901, 128.696, 17.678, 0.678)
pt3dadd(21.795, 128.66, 17.715, 0.678)
pt3dadd(21.69, 128.626, 17.751, 0.678)
pt3dadd(21.583, 128.588, 17.785, 0.678)
pt3dadd(21.476, 128.545, 17.812, 0.678)
pt3dadd(21.369, 128.501, 17.838, 0.678)
pt3dadd(21.262, 128.458, 17.865, 0.678)
pt3dadd(21.155, 128.414, 17.891, 0.678)
pt3dadd(21.044, 128.4, 17.924, 0.678)
pt3dadd(20.931, 128.4, 17.958, 0.678)
pt3dadd(20.819, 128.4, 17.993, 0.678)
pt3dadd(20.706, 128.4, 18.028, 0.678)
pt3dadd(20.594, 128.4, 18.062, 0.678)
pt3dadd(20.479, 128.4, 18.089, 0.678)
pt3dadd(20.359, 128.4, 18.091, 0.678)
pt3dadd(20.239, 128.4, 18.093, 0.678)
pt3dadd(20.119, 128.4, 18.094, 0.678)
pt3dadd(19.999, 128.4, 18.096, 0.678)
pt3dadd(19.879, 128.4, 18.097, 0.678)
pt3dadd(19.759, 128.4, 18.099, 0.678)
pt3dadd(19.64, 128.4, 18.105, 0.678)
pt3dadd(19.521, 128.4, 18.12, 0.678)
pt3dadd(19.403, 128.4, 18.135, 0.678)
pt3dadd(19.284, 128.4, 18.15, 0.678)
pt3dadd(19.165, 128.4, 18.165, 0.678)
pt3dadd(19.047, 128.4, 18.18, 0.678)
pt3dadd(18.927, 128.401, 18.187, 0.678)
pt3dadd(18.808, 128.404, 18.183, 0.678)
pt3dadd(18.688, 128.406, 18.179, 0.678)
pt3dadd(18.568, 128.408, 18.175, 0.678)
pt3dadd(18.448, 128.411, 18.171, 0.678)
pt3dadd(18.328, 128.414, 18.167, 0.678)
pt3dadd(18.21, 128.432, 18.173, 0.678)
pt3dadd(18.091, 128.45, 18.178, 0.678)
pt3dadd(17.973, 128.468, 18.184, 0.678)
pt3dadd(17.855, 128.486, 18.19, 0.678)
pt3dadd(17.736, 128.506, 18.195, 0.678)
pt3dadd(17.618, 128.526, 18.2, 0.678)
pt3dadd(17.503, 128.56, 18.2, 0.678)
pt3dadd(17.388, 128.592, 18.2, 0.678)
pt3dadd(17.272, 128.626, 18.2, 0.678)
pt3dadd(17.157, 128.658, 18.2, 0.678)
pt3dadd(17.041, 128.692, 18.2, 0.678)
pt3dadd(16.924, 128.712, 18.2, 0.678)
pt3dadd(16.804, 128.719, 18.2, 0.678)
pt3dadd(16.684, 128.728, 18.2, 0.678)
pt3dadd(16.565, 128.736, 18.2, 0.678)
pt3dadd(16.445, 128.743, 18.2, 0.678)
pt3dadd(16.325, 128.752, 18.2, 0.678)
pt3dadd(16.205, 128.76, 18.2, 0.678)
pt3dadd(16.1, 128.81, 18.221, 0.678)
pt3dadd(15.995, 128.862, 18.243, 0.678)
pt3dadd(15.891, 128.915, 18.264, 0.678)
pt3dadd(15.786, 128.968, 18.286, 0.678)
pt3dadd(15.68, 129.02, 18.3, 0.678)
pt3dadd(15.573, 129.073, 18.3, 0.678)
pt3dadd(15.465, 129.127, 18.3, 0.678)
pt3dadd(15.358, 129.181, 18.3, 0.678)
pt3dadd(15.251, 129.234, 18.3, 0.678)
pt3dadd(15.147, 129.293, 18.3, 0.678)
pt3dadd(15.064, 129.379, 18.3, 0.678)
pt3dadd(14.98, 129.466, 18.3, 0.678)
pt3dadd(14.897, 129.552, 18.3, 0.678)
pt3dadd(14.813, 129.638, 18.3, 0.678)
pt3dadd(14.724, 129.715, 18.3, 0.678)
pt3dadd(14.61, 129.754, 18.3, 0.678)
pt3dadd(14.497, 129.792, 18.3, 0.678)
pt3dadd(14.383, 129.83, 18.3, 0.678)
pt3dadd(14.269, 129.87, 18.3, 0.678)
pt3dadd(14.156, 129.908, 18.3, 0.678)
pt3dadd(14.044, 129.95, 18.3, 0.678)
pt3dadd(13.932, 129.996, 18.3, 0.678)
pt3dadd(13.821, 130.04, 18.3, 0.678)
pt3dadd(13.709, 130.085, 18.3, 0.678)
pt3dadd(13.598, 130.129, 18.3, 0.678)
pt3dadd(13.486, 130.171, 18.306, 0.678)
pt3dadd(13.374, 130.206, 18.327, 0.678)
}
}
proc shape3d_77() {
apic[12] { pt3dadd(13.262, 130.242, 18.347, 0.678)
pt3dadd(13.15, 130.277, 18.368, 0.678)
pt3dadd(13.038, 130.313, 18.388, 0.678)
pt3dadd(12.925, 130.348, 18.4, 0.678)
pt3dadd(12.81, 130.38, 18.4, 0.678)
pt3dadd(12.694, 130.414, 18.4, 0.678)
pt3dadd(12.579, 130.446, 18.4, 0.678)
pt3dadd(12.464, 130.48, 18.4, 0.678)
pt3dadd(12.348, 130.512, 18.4, 0.678)
pt3dadd(12.23, 130.525, 18.4, 0.678)
pt3dadd(12.11, 130.531, 18.4, 0.678)
pt3dadd(11.99, 130.537, 18.4, 0.678)
pt3dadd(11.87, 130.543, 18.4, 0.678)
pt3dadd(11.75, 130.549, 18.4, 0.678)
pt3dadd(11.63, 130.554, 18.4, 0.678)
pt3dadd(11.51, 130.56, 18.4, 0.678)
pt3dadd(11.39, 130.56, 18.4, 0.678)
pt3dadd(11.27, 130.56, 18.4, 0.678)
pt3dadd(11.15, 130.56, 18.4, 0.678)
pt3dadd(11.03, 130.56, 18.4, 0.678)
pt3dadd(10.91, 130.56, 18.4, 0.678)
pt3dadd(10.792, 130.56, 18.404, 0.678)
pt3dadd(10.688, 130.56, 18.455, 0.678)
pt3dadd(10.585, 130.56, 18.505, 0.678)
pt3dadd(10.513, 130.56, 18.584, 0.678)
pt3dadd(10.445, 130.56, 18.667, 0.678)
pt3dadd(10.339, 130.56, 18.693, 0.678)
pt3dadd(10.219, 130.56, 18.699, 0.678)
pt3dadd(10.102, 130.542, 18.71, 0.678)
pt3dadd(9.985, 130.519, 18.722, 0.678)
pt3dadd(9.868, 130.498, 18.735, 0.678)
pt3dadd(9.751, 130.476, 18.747, 0.678)
pt3dadd(9.634, 130.453, 18.759, 0.678)
pt3dadd(9.521, 130.418, 18.769, 0.678)
pt3dadd(9.415, 130.362, 18.776, 0.678)
pt3dadd(9.31, 130.306, 18.783, 0.678)
pt3dadd(9.204, 130.249, 18.79, 0.678)
pt3dadd(9.099, 130.192, 18.796, 0.678)
pt3dadd(9.004, 130.121, 18.8, 0.678)
pt3dadd(8.924, 130.032, 18.8, 0.678)
pt3dadd(8.843, 129.943, 18.8, 0.678)
pt3dadd(8.762, 129.854, 18.8, 0.678)
pt3dadd(8.682, 129.766, 18.8, 0.678)
pt3dadd(8.589, 129.695, 18.81, 0.678)
pt3dadd(8.485, 129.642, 18.832, 0.678)
pt3dadd(8.38, 129.59, 18.854, 0.678)
pt3dadd(8.275, 129.538, 18.876, 0.678)
pt3dadd(8.17, 129.485, 18.898, 0.678)
pt3dadd(8.052, 129.48, 18.9, 0.678)
pt3dadd(7.932, 129.48, 18.9, 0.678)
pt3dadd(7.812, 129.48, 18.9, 0.678)
pt3dadd(7.707, 129.48, 18.946, 0.678)
pt3dadd(7.603, 129.48, 18.996, 0.678)
pt3dadd(7.554, 129.48, 19.08, 0.678)
pt3dadd(7.528, 129.48, 19.178, 0.678)
pt3dadd(7.49, 129.48, 19.27, 0.678)
pt3dadd(7.409, 129.48, 19.344, 0.678)
pt3dadd(7.33, 129.478, 19.418, 0.678)
pt3dadd(7.284, 129.439, 19.505, 0.678)
pt3dadd(7.238, 129.402, 19.592, 0.678)
pt3dadd(7.192, 129.365, 19.679, 0.678)
pt3dadd(7.106, 129.292, 19.694, 0.678)
pt3dadd(7.015, 129.214, 19.699, 0.678)
pt3dadd(6.905, 129.169, 19.7, 0.678)
pt3dadd(6.791, 129.131, 19.7, 0.678)
pt3dadd(6.677, 129.092, 19.7, 0.678)
pt3dadd(6.566, 129.054, 19.685, 0.678)
pt3dadd(6.455, 129.014, 19.664, 0.678)
pt3dadd(6.393, 129, 19.596, 0.678)
pt3dadd(6.36, 129, 19.5, 0.678)
}
apic[13] {pt3dclear()
pt3dadd(53.956, 138.376, 10.115, 1.13)
pt3dadd(53.918, 138.408, 10.11, 1.122)
pt3dadd(53.833, 138.49, 10.101, 1.106)
pt3dadd(53.748, 138.571, 10.092, 1.09)
pt3dadd(53.663, 138.653, 10.083, 1.072)
pt3dadd(53.579, 138.734, 10.073, 1.056)
pt3dadd(53.494, 138.816, 10.064, 1.04)
pt3dadd(53.409, 138.896, 10.055, 1.022)
pt3dadd(53.316, 138.968, 10.045, 0.996)
pt3dadd(53.216, 139.031, 10.034, 0.96)
pt3dadd(53.117, 139.093, 10.023, 0.924)
pt3dadd(53.017, 139.156, 10.012, 0.888)
pt3dadd(52.917, 139.219, 10.002, 0.852)
pt3dadd(52.817, 139.28, 9.991, 0.816)
pt3dadd(52.717, 139.343, 9.98, 0.78)
pt3dadd(52.617, 139.405, 9.969, 0.744)
pt3dadd(52.518, 139.468, 9.958, 0.708)
pt3dadd(52.418, 139.531, 9.947, 0.672)
pt3dadd(52.301, 139.549, 9.933, 0.66)
pt3dadd(52.184, 139.567, 9.92, 0.648)
pt3dadd(52.067, 139.585, 9.906, 0.636)
pt3dadd(51.95, 139.602, 9.892, 0.624)
pt3dadd(51.833, 139.62, 9.878, 0.612)
pt3dadd(51.716, 139.638, 9.864, 0.6)
pt3dadd(51.599, 139.655, 9.85, 0.588)
pt3dadd(51.482, 139.672, 9.836, 0.576)
pt3dadd(51.365, 139.69, 9.822, 0.564)
pt3dadd(51.247, 139.706, 9.808, 0.554)
pt3dadd(51.147, 139.754, 9.773, 0.572)
pt3dadd(51.048, 139.804, 9.737, 0.59)
pt3dadd(50.949, 139.852, 9.701, 0.61)
pt3dadd(50.849, 139.902, 9.665, 0.63)
pt3dadd(50.75, 139.951, 9.629, 0.65)
pt3dadd(50.65, 139.999, 9.593, 0.668)
pt3dadd(50.551, 140.048, 9.557, 0.688)
pt3dadd(50.452, 140.098, 9.521, 0.708)
pt3dadd(50.352, 140.146, 9.485, 0.728)
pt3dadd(50.254, 140.197, 9.449, 0.73)
pt3dadd(50.156, 140.251, 9.415, 0.704)
pt3dadd(50.059, 140.305, 9.38, 0.676)
pt3dadd(49.962, 140.36, 9.346, 0.65)
pt3dadd(49.865, 140.414, 9.312, 0.622)
pt3dadd(49.768, 140.468, 9.277, 0.596)
pt3dadd(49.67, 140.524, 9.243, 0.568)
pt3dadd(49.573, 140.576, 9.209, 0.542)
pt3dadd(49.476, 140.632, 9.174, 0.514)
pt3dadd(49.379, 140.687, 9.14, 0.486)
pt3dadd(49.281, 140.743, 9.113, 0.47)
pt3dadd(49.281, 140.741, 9.113, 0.47)
pt3dadd(49.182, 140.804, 9.098, 0.468)
pt3dadd(49.084, 140.867, 9.083, 0.466)
pt3dadd(48.985, 140.93, 9.068, 0.464)
pt3dadd(48.887, 140.994, 9.053, 0.462)
pt3dadd(48.788, 141.056, 9.037, 0.46)
pt3dadd(48.689, 141.12, 9.022, 0.458)
pt3dadd(48.591, 141.184, 9.007, 0.456)
pt3dadd(48.492, 141.246, 8.992, 0.454)
pt3dadd(48.393, 141.31, 8.977, 0.454)
pt3dadd(48.29, 141.365, 8.965, 0.442)
pt3dadd(48.18, 141.408, 8.956, 0.42)
pt3dadd(48.069, 141.451, 8.948, 0.4)
pt3dadd(47.959, 141.494, 8.939, 0.378)
pt3dadd(47.849, 141.538, 8.931, 0.356)
pt3dadd(47.738, 141.581, 8.922, 0.334)
pt3dadd(47.628, 141.624, 8.914, 0.312)
pt3dadd(47.518, 141.667, 8.905, 0.29)
pt3dadd(47.518, 141.665, 8.905, 0.29)
pt3dadd(47.407, 141.708, 8.897, 0.268)
pt3dadd(47.297, 141.751, 8.888, 0.246)
pt3dadd(47.19, 141.8, 8.878, 0.244)
pt3dadd(47.088, 141.859, 8.865, 0.266)
pt3dadd(46.985, 141.916, 8.852, 0.286)
pt3dadd(46.883, 141.974, 8.839, 0.308)
pt3dadd(46.78, 142.032, 8.826, 0.33)
pt3dadd(46.678, 142.088, 8.813, 0.35)
pt3dadd(46.678, 142.086, 8.813, 0.35)
pt3dadd(46.678, 142.082, 8.812, 0.35)
pt3dadd(46.575, 142.141, 8.799, 0.372)
pt3dadd(46.473, 142.199, 8.786, 0.394)
pt3dadd(46.37, 142.256, 8.774, 0.416)
pt3dadd(46.268, 142.314, 8.761, 0.436)
pt3dadd(46.169, 142.362, 8.73, 0.46)
pt3dadd(46.074, 142.396, 8.677, 0.482)
pt3dadd(45.979, 142.432, 8.625, 0.506)
pt3dadd(45.884, 142.466, 8.572, 0.528)
pt3dadd(45.788, 142.5, 8.519, 0.552)
pt3dadd(45.693, 142.536, 8.467, 0.574)
pt3dadd(45.598, 142.571, 8.414, 0.598)
pt3dadd(45.503, 142.604, 8.362, 0.62)
pt3dadd(45.408, 142.64, 8.309, 0.644)
pt3dadd(45.313, 142.675, 8.256, 0.666)
pt3dadd(45.21, 142.699, 8.213, 0.67)
pt3dadd(45.099, 142.715, 8.178, 0.656)
pt3dadd(44.988, 142.73, 8.143, 0.64)
pt3dadd(44.877, 142.745, 8.108, 0.626)
pt3dadd(44.766, 142.76, 8.073, 0.61)
pt3dadd(44.655, 142.776, 8.037, 0.596)
pt3dadd(44.544, 142.79, 8.002, 0.58)
pt3dadd(44.433, 142.805, 7.967, 0.564)
pt3dadd(44.322, 142.82, 7.932, 0.55)
pt3dadd(44.211, 142.835, 7.897, 0.534)
pt3dadd(44.104, 142.854, 7.855, 0.524)
pt3dadd(44.001, 142.874, 7.807, 0.516)
pt3dadd(43.898, 142.894, 7.759, 0.508)
pt3dadd(43.795, 142.914, 7.711, 0.5)
pt3dadd(43.692, 142.933, 7.664, 0.494)
pt3dadd(43.589, 142.954, 7.616, 0.486)
pt3dadd(43.486, 142.974, 7.568, 0.478)
pt3dadd(43.383, 142.993, 7.52, 0.47)
pt3dadd(43.28, 143.014, 7.472, 0.462)
pt3dadd(43.176, 143.034, 7.424, 0.454)
pt3dadd(43.076, 143.078, 7.392, 0.454)
pt3dadd(42.978, 143.137, 7.366, 0.458)
pt3dadd(42.879, 143.195, 7.34, 0.46)
pt3dadd(42.78, 143.252, 7.314, 0.464)
pt3dadd(42.681, 143.311, 7.289, 0.466)
pt3dadd(42.582, 143.369, 7.263, 0.47)
pt3dadd(42.483, 143.426, 7.237, 0.474)
pt3dadd(42.384, 143.485, 7.212, 0.476)
pt3dadd(42.285, 143.543, 7.186, 0.48)
pt3dadd(42.187, 143.6, 7.16, 0.482)
pt3dadd(42.081, 143.652, 7.145, 0.5)
pt3dadd(41.973, 143.7, 7.133, 0.524)
pt3dadd(41.865, 143.747, 7.122, 0.546)
pt3dadd(41.757, 143.795, 7.111, 0.57)
pt3dadd(41.649, 143.843, 7.1, 0.594)
pt3dadd(41.541, 143.89, 7.089, 0.616)
pt3dadd(41.434, 143.939, 7.077, 0.64)
pt3dadd(41.325, 143.987, 7.066, 0.664)
pt3dadd(41.217, 144.034, 7.055, 0.688)
}
}
proc shape3d_78() {
apic[13] { pt3dadd(41.11, 144.082, 7.044, 0.71)
pt3dadd(41.004, 144.136, 7.038, 0.728)
pt3dadd(40.9, 144.191, 7.035, 0.744)
pt3dadd(40.795, 144.247, 7.032, 0.758)
pt3dadd(40.691, 144.302, 7.028, 0.774)
pt3dadd(40.586, 144.359, 7.025, 0.788)
pt3dadd(40.482, 144.415, 7.022, 0.804)
pt3dadd(40.377, 144.472, 7.019, 0.818)
pt3dadd(40.273, 144.528, 7.015, 0.834)
pt3dadd(40.168, 144.584, 7.012, 0.848)
pt3dadd(40.064, 144.64, 7.009, 0.864)
pt3dadd(39.954, 144.683, 7.003, 0.838)
pt3dadd(39.842, 144.722, 6.995, 0.798)
pt3dadd(39.73, 144.761, 6.988, 0.758)
pt3dadd(39.618, 144.8, 6.98, 0.718)
pt3dadd(39.506, 144.84, 6.973, 0.678)
pt3dadd(39.393, 144.878, 6.965, 0.636)
pt3dadd(39.281, 144.918, 6.958, 0.596)
pt3dadd(39.169, 144.958, 6.95, 0.556)
pt3dadd(39.057, 144.996, 6.943, 0.516)
pt3dadd(38.945, 145.036, 6.935, 0.476)
pt3dadd(38.838, 145.085, 6.925, 0.48)
pt3dadd(38.732, 145.135, 6.914, 0.5)
pt3dadd(38.626, 145.188, 6.902, 0.522)
pt3dadd(38.52, 145.241, 6.891, 0.542)
pt3dadd(38.414, 145.291, 6.88, 0.564)
pt3dadd(38.308, 145.344, 6.868, 0.584)
pt3dadd(38.202, 145.397, 6.857, 0.606)
pt3dadd(38.097, 145.448, 6.846, 0.626)
pt3dadd(37.991, 145.5, 6.835, 0.648)
pt3dadd(37.885, 145.553, 6.823, 0.668)
pt3dadd(37.778, 145.584, 6.793, 0.674)
pt3dadd(37.67, 145.609, 6.755, 0.674)
pt3dadd(37.562, 145.636, 6.717, 0.674)
pt3dadd(37.455, 145.66, 6.68, 0.676)
pt3dadd(37.347, 145.685, 6.642, 0.676)
pt3dadd(37.239, 145.71, 6.604, 0.676)
pt3dadd(37.132, 145.735, 6.566, 0.676)
pt3dadd(37.024, 145.762, 6.529, 0.676)
pt3dadd(36.916, 145.786, 6.491, 0.678)
pt3dadd(36.808, 145.811, 6.453, 0.678)
pt3dadd(36.696, 145.826, 6.423, 0.678)
pt3dadd(36.582, 145.838, 6.394, 0.678)
pt3dadd(36.468, 145.852, 6.365, 0.678)
pt3dadd(36.354, 145.864, 6.337, 0.678)
pt3dadd(36.24, 145.876, 6.308, 0.678)
pt3dadd(36.126, 145.889, 6.279, 0.678)
pt3dadd(36.012, 145.901, 6.251, 0.678)
pt3dadd(35.898, 145.913, 6.222, 0.678)
pt3dadd(35.784, 145.925, 6.193, 0.678)
pt3dadd(35.67, 145.938, 6.165, 0.678)
pt3dadd(35.553, 145.94, 6.142, 0.644)
pt3dadd(35.436, 145.94, 6.122, 0.598)
pt3dadd(35.318, 145.942, 6.101, 0.554)
pt3dadd(35.201, 145.94, 6.081, 0.508)
pt3dadd(35.083, 145.942, 6.06, 0.462)
pt3dadd(34.966, 145.942, 6.039, 0.418)
pt3dadd(34.848, 145.942, 6.019, 0.372)
pt3dadd(34.731, 145.942, 5.998, 0.328)
pt3dadd(34.614, 145.943, 5.978, 0.282)
pt3dadd(34.496, 145.942, 5.957, 0.236)
pt3dadd(34.38, 145.946, 5.933, 0.24)
pt3dadd(34.263, 145.95, 5.908, 0.26)
pt3dadd(34.148, 145.954, 5.884, 0.28)
pt3dadd(34.031, 145.958, 5.859, 0.3)
pt3dadd(33.915, 145.962, 5.834, 0.318)
pt3dadd(33.915, 145.96, 5.834, 0.318)
pt3dadd(33.799, 145.964, 5.809, 0.338)
pt3dadd(33.683, 145.968, 5.784, 0.358)
pt3dadd(33.567, 145.973, 5.759, 0.378)
pt3dadd(33.451, 145.978, 5.735, 0.396)
pt3dadd(33.335, 145.981, 5.71, 0.416)
pt3dadd(33.234, 145.997, 5.659, 0.464)
pt3dadd(33.133, 146.014, 5.607, 0.514)
pt3dadd(33.032, 146.029, 5.555, 0.562)
pt3dadd(32.931, 146.046, 5.502, 0.61)
pt3dadd(32.83, 146.063, 5.45, 0.66)
pt3dadd(32.73, 146.078, 5.398, 0.708)
pt3dadd(32.629, 146.095, 5.346, 0.758)
pt3dadd(32.528, 146.112, 5.294, 0.806)
pt3dadd(32.427, 146.128, 5.242, 0.856)
pt3dadd(32.327, 146.146, 5.19, 0.904)
pt3dadd(32.226, 146.196, 5.158, 0.846)
pt3dadd(32.125, 146.245, 5.127, 0.79)
pt3dadd(32.024, 146.297, 5.095, 0.732)
pt3dadd(31.924, 146.347, 5.063, 0.676)
pt3dadd(31.823, 146.396, 5.032, 0.618)
pt3dadd(31.722, 146.448, 5, 0.562)
pt3dadd(31.621, 146.498, 4.968, 0.506)
pt3dadd(31.521, 146.548, 4.937, 0.448)
pt3dadd(31.42, 146.599, 4.905, 0.392)
pt3dadd(31.321, 146.65, 4.871, 0.344)
pt3dadd(31.235, 146.704, 4.82, 0.356)
pt3dadd(31.149, 146.759, 4.769, 0.366)
pt3dadd(31.063, 146.812, 4.718, 0.378)
pt3dadd(30.976, 146.867, 4.667, 0.39)
pt3dadd(30.89, 146.922, 4.616, 0.4)
pt3dadd(30.804, 146.975, 4.565, 0.412)
pt3dadd(30.718, 147.03, 4.514, 0.424)
pt3dadd(30.631, 147.084, 4.463, 0.434)
pt3dadd(30.545, 147.138, 4.412, 0.446)
pt3dadd(30.459, 147.196, 4.364, 0.46)
pt3dadd(30.371, 147.262, 4.328, 0.482)
pt3dadd(30.283, 147.328, 4.291, 0.504)
pt3dadd(30.195, 147.395, 4.255, 0.526)
pt3dadd(30.107, 147.461, 4.218, 0.548)
pt3dadd(30.019, 147.527, 4.182, 0.572)
pt3dadd(29.931, 147.594, 4.145, 0.594)
pt3dadd(29.843, 147.66, 4.109, 0.616)
pt3dadd(29.756, 147.726, 4.072, 0.638)
pt3dadd(29.668, 147.792, 4.036, 0.66)
pt3dadd(29.578, 147.854, 3.997, 0.678)
pt3dadd(29.482, 147.894, 3.949, 0.678)
pt3dadd(29.385, 147.935, 3.901, 0.678)
pt3dadd(29.289, 147.976, 3.853, 0.678)
pt3dadd(29.193, 148.015, 3.806, 0.678)
pt3dadd(29.097, 148.056, 3.758, 0.678)
pt3dadd(29, 148.097, 3.71, 0.678)
pt3dadd(28.904, 148.136, 3.662, 0.678)
pt3dadd(28.808, 148.177, 3.614, 0.678)
pt3dadd(28.711, 148.218, 3.567, 0.678)
pt3dadd(28.614, 148.26, 3.524, 0.678)
pt3dadd(28.514, 148.318, 3.499, 0.678)
pt3dadd(28.414, 148.374, 3.475, 0.678)
pt3dadd(28.314, 148.43, 3.45, 0.678)
pt3dadd(28.213, 148.487, 3.426, 0.678)
pt3dadd(28.113, 148.542, 3.402, 0.678)
pt3dadd(28.013, 148.6, 3.377, 0.678)
pt3dadd(27.913, 148.656, 3.353, 0.678)
pt3dadd(27.812, 148.711, 3.329, 0.678)
pt3dadd(27.712, 148.769, 3.304, 0.678)
pt3dadd(27.61, 148.823, 3.281, 0.678)
pt3dadd(27.502, 148.866, 3.263, 0.678)
pt3dadd(27.393, 148.909, 3.244, 0.678)
pt3dadd(27.285, 148.954, 3.226, 0.678)
pt3dadd(27.176, 148.997, 3.208, 0.678)
pt3dadd(27.068, 149.041, 3.189, 0.678)
pt3dadd(26.959, 149.084, 3.171, 0.678)
pt3dadd(26.851, 149.128, 3.153, 0.678)
pt3dadd(26.743, 149.172, 3.134, 0.678)
pt3dadd(26.634, 149.216, 3.116, 0.678)
pt3dadd(26.527, 149.262, 3.099, 0.674)
pt3dadd(26.422, 149.316, 3.087, 0.658)
pt3dadd(26.317, 149.37, 3.075, 0.644)
pt3dadd(26.212, 149.423, 3.063, 0.628)
pt3dadd(26.107, 149.477, 3.051, 0.612)
pt3dadd(26.002, 149.531, 3.038, 0.596)
pt3dadd(25.897, 149.584, 3.026, 0.582)
pt3dadd(25.792, 149.638, 3.014, 0.566)
pt3dadd(25.687, 149.692, 3.002, 0.55)
pt3dadd(25.583, 149.744, 2.99, 0.534)
pt3dadd(25.477, 149.796, 2.973, 0.524)
pt3dadd(25.372, 149.84, 2.946, 0.532)
pt3dadd(25.266, 149.884, 2.919, 0.538)
pt3dadd(25.161, 149.928, 2.891, 0.544)
pt3dadd(25.056, 149.971, 2.864, 0.55)
pt3dadd(24.95, 150.016, 2.836, 0.556)
pt3dadd(24.845, 150.061, 2.809, 0.564)
pt3dadd(24.739, 150.104, 2.781, 0.57)
pt3dadd(24.634, 150.149, 2.754, 0.576)
pt3dadd(24.528, 150.193, 2.726, 0.582)
pt3dadd(24.423, 150.236, 2.698, 0.582)
pt3dadd(24.318, 150.282, 2.669, 0.568)
pt3dadd(24.214, 150.328, 2.64, 0.554)
pt3dadd(24.109, 150.372, 2.611, 0.54)
pt3dadd(24.005, 150.416, 2.582, 0.526)
pt3dadd(23.9, 150.462, 2.553, 0.512)
pt3dadd(23.796, 150.506, 2.524, 0.5)
pt3dadd(23.691, 150.552, 2.495, 0.486)
pt3dadd(23.587, 150.596, 2.466, 0.472)
pt3dadd(23.482, 150.641, 2.437, 0.458)
pt3dadd(23.376, 150.685, 2.412, 0.44)
pt3dadd(23.267, 150.727, 2.393, 0.418)
pt3dadd(23.157, 150.768, 2.374, 0.396)
pt3dadd(23.048, 150.81, 2.355, 0.372)
pt3dadd(22.939, 150.852, 2.336, 0.35)
pt3dadd(22.83, 150.893, 2.316, 0.328)
pt3dadd(22.721, 150.934, 2.297, 0.306)
pt3dadd(22.612, 150.976, 2.278, 0.282)
pt3dadd(22.503, 151.016, 2.259, 0.26)
pt3dadd(22.393, 151.058, 2.24, 0.238)
pt3dadd(22.281, 151.091, 2.224, 0.226)
pt3dadd(22.164, 151.114, 2.213, 0.226)
pt3dadd(22.048, 151.136, 2.202, 0.226)
pt3dadd(21.931, 151.159, 2.19, 0.226)
pt3dadd(21.815, 151.181, 2.179, 0.226)
pt3dadd(21.698, 151.205, 2.168, 0.226)
pt3dadd(21.582, 151.226, 2.157, 0.226)
pt3dadd(21.465, 151.249, 2.145, 0.226)
pt3dadd(21.349, 151.272, 2.134, 0.226)
pt3dadd(21.232, 151.295, 2.123, 0.226)
pt3dadd(21.115, 151.313, 2.112, 0.234)
pt3dadd(20.997, 151.327, 2.1, 0.248)
pt3dadd(20.879, 151.339, 2.089, 0.262)
pt3dadd(20.761, 151.354, 2.077, 0.276)
pt3dadd(20.643, 151.367, 2.066, 0.29)
pt3dadd(20.525, 151.38, 2.054, 0.304)
pt3dadd(20.406, 151.394, 2.043, 0.318)
pt3dadd(20.288, 151.408, 2.031, 0.332)
pt3dadd(20.17, 151.421, 2.02, 0.348)
}
}
proc shape3d_79() {
apic[13] { pt3dadd(20.052, 151.434, 2.008, 0.362)
pt3dadd(19.938, 151.45, 1.983, 0.382)
pt3dadd(19.828, 151.465, 1.947, 0.41)
pt3dadd(19.718, 151.481, 1.91, 0.436)
pt3dadd(19.608, 151.498, 1.873, 0.462)
pt3dadd(19.498, 151.512, 1.836, 0.49)
pt3dadd(19.388, 151.529, 1.8, 0.516)
pt3dadd(19.277, 151.544, 1.763, 0.544)
pt3dadd(19.167, 151.56, 1.726, 0.57)
pt3dadd(19.057, 151.576, 1.689, 0.598)
pt3dadd(18.947, 151.592, 1.653, 0.624)
pt3dadd(18.862, 151.649, 1.613, 0.606)
pt3dadd(18.791, 151.729, 1.571, 0.564)
pt3dadd(18.72, 151.81, 1.53, 0.522)
pt3dadd(18.649, 151.89, 1.488, 0.48)
pt3dadd(18.578, 151.97, 1.447, 0.438)
pt3dadd(18.507, 152.05, 1.405, 0.394)
pt3dadd(18.436, 152.13, 1.364, 0.352)
pt3dadd(18.365, 152.212, 1.322, 0.31)
pt3dadd(18.294, 152.291, 1.281, 0.268)
pt3dadd(18.222, 152.371, 1.239, 0.226)
pt3dadd(18.222, 152.369, 1.239, 0.678)
pt3dadd(18.218, 152.441, 1.165, 0.736)
pt3dadd(18.175, 152.543, 1.14, 0.658)
pt3dadd(18.068, 152.593, 1.138, 0.602)
pt3dadd(17.953, 152.622, 1.138, 0.592)
pt3dadd(17.846, 152.669, 1.147, 0.534)
pt3dadd(17.748, 152.704, 1.189, 0.456)
pt3dadd(17.668, 152.708, 1.264, 0.382)
pt3dadd(17.628, 152.684, 1.354, 0.286)
pt3dadd(17.571, 152.623, 1.425, 0.252)
pt3dadd(17.457, 152.588, 1.436, 0.37)
pt3dadd(17.34, 152.564, 1.436, 0.438)
pt3dadd(17.221, 152.542, 1.436, 0.506)
pt3dadd(17.106, 152.506, 1.435, 0.584)
pt3dadd(16.993, 152.462, 1.435, 0.67)
pt3dadd(16.879, 152.423, 1.435, 0.768)
pt3dadd(16.769, 152.375, 1.434, 0.828)
pt3dadd(16.663, 152.315, 1.434, 0.828)
pt3dadd(16.558, 152.255, 1.434, 0.828)
pt3dadd(16.452, 152.196, 1.433, 0.828)
pt3dadd(16.346, 152.136, 1.433, 0.828)
pt3dadd(16.242, 152.084, 1.417, 0.822)
pt3dadd(16.14, 152.048, 1.372, 0.806)
pt3dadd(16.038, 152.014, 1.327, 0.788)
pt3dadd(15.936, 151.978, 1.281, 0.772)
pt3dadd(15.834, 151.942, 1.236, 0.756)
pt3dadd(15.762, 151.916, 1.159, 0.742)
pt3dadd(15.693, 151.894, 1.079, 0.728)
pt3dadd(15.618, 151.847, 1.009, 0.728)
pt3dadd(15.539, 151.806, 0.943, 0.732)
pt3dadd(15.539, 151.804, 0.943, 0.732)
pt3dadd(15.539, 151.8, 0.943, 0.732)
pt3dadd(15.437, 151.792, 0.889, 0.756)
pt3dadd(15.335, 151.778, 0.84, 0.78)
pt3dadd(15.226, 151.727, 0.835, 0.79)
pt3dadd(15.117, 151.675, 0.829, 0.802)
pt3dadd(15.019, 151.61, 0.805, 0.84)
pt3dadd(14.917, 151.561, 0.771, 0.858)
pt3dadd(14.811, 151.524, 0.734, 0.862)
pt3dadd(14.706, 151.486, 0.697, 0.868)
pt3dadd(14.599, 151.447, 0.66, 0.874)
pt3dadd(14.492, 151.411, 0.625, 0.88)
pt3dadd(14.376, 151.385, 0.608, 0.884)
pt3dadd(14.261, 151.36, 0.591, 0.888)
pt3dadd(14.144, 151.334, 0.574, 0.894)
pt3dadd(14.028, 151.309, 0.556, 0.898)
pt3dadd(13.913, 151.283, 0.539, 0.904)
pt3dadd(13.793, 151.277, 0.533, 0.904)
pt3dadd(13.673, 151.273, 0.529, 0.904)
pt3dadd(13.553, 151.271, 0.525, 0.904)
pt3dadd(13.433, 151.268, 0.52, 0.904)
pt3dadd(13.313, 151.265, 0.516, 0.904)
pt3dadd(13.194, 151.262, 0.51, 0.904)
pt3dadd(13.107, 151.259, 0.441, 0.904)
pt3dadd(13.019, 151.256, 0.373, 0.904)
pt3dadd(13.019, 151.254, 0.373, 0.904)
pt3dadd(12.909, 151.25, 0.336, 0.914)
pt3dadd(12.795, 151.248, 0.303, 0.924)
pt3dadd(12.698, 151.246, 0.249, 0.938)
pt3dadd(12.61, 151.242, 0.18, 0.954)
pt3dadd(12.51, 151.24, 0.125, 0.954)
pt3dadd(12.41, 151.237, 0.07, 0.954)
pt3dadd(12.31, 151.234, 0.014, 0.954)
pt3dadd(12.209, 151.231, -0.041, 0.954)
pt3dadd(12.11, 151.229, -0.096, 0.954)
pt3dadd(12.009, 151.225, -0.151, 0.944)
pt3dadd(11.909, 151.223, -0.207, 0.934)
pt3dadd(11.909, 151.22, -0.207, 0.934)
pt3dadd(11.809, 151.217, -0.262, 0.924)
pt3dadd(11.709, 151.214, -0.318, 0.914)
pt3dadd(11.608, 151.211, -0.372, 0.904)
pt3dadd(11.493, 151.184, -0.394, 0.894)
pt3dadd(11.378, 151.158, -0.416, 0.884)
pt3dadd(11.264, 151.132, -0.438, 0.874)
pt3dadd(11.149, 151.105, -0.46, 0.864)
pt3dadd(11.034, 151.079, -0.482, 0.854)
pt3dadd(10.922, 151.075, -0.518, 0.854)
pt3dadd(10.812, 151.072, -0.556, 0.854)
pt3dadd(10.7, 151.069, -0.593, 0.854)
pt3dadd(10.589, 151.067, -0.63, 0.854)
pt3dadd(10.477, 151.063, -0.668, 0.854)
pt3dadd(10.375, 151.061, -0.719, 0.854)
pt3dadd(10.282, 151.058, -0.782, 0.854)
pt3dadd(10.188, 151.055, -0.844, 0.854)
pt3dadd(10.095, 151.052, -0.907, 0.854)
pt3dadd(10.001, 151.049, -0.97, 0.854)
pt3dadd(9.954, 151.046, -1.053, 0.854)
pt3dadd(9.945, 151.044, -1.153, 0.854)
pt3dadd(9.935, 151.04, -1.253, 0.854)
pt3dadd(9.853, 151.038, -1.316, 0.846)
pt3dadd(9.75, 151.036, -1.367, 0.834)
pt3dadd(9.636, 151.032, -1.388, 0.828)
pt3dadd(9.516, 151.03, -1.389, 0.828)
pt3dadd(9.396, 151.027, -1.389, 0.828)
pt3dadd(9.278, 151.024, -1.397, 0.818)
pt3dadd(9.159, 151.021, -1.409, 0.8)
pt3dadd(9.039, 151.019, -1.422, 0.78)
pt3dadd(8.926, 151.015, -1.456, 0.736)
pt3dadd(8.816, 151.013, -1.493, 0.698)
pt3dadd(8.705, 151.01, -1.533, 0.684)
pt3dadd(8.595, 151.007, -1.573, 0.67)
pt3dadd(8.485, 151.004, -1.613, 0.656)
pt3dadd(8.374, 151.002, -1.653, 0.642)
pt3dadd(8.264, 150.998, -1.692, 0.628)
pt3dadd(8.145, 150.983, -1.698, 0.632)
pt3dadd(8.027, 150.966, -1.704, 0.636)
pt3dadd(7.908, 150.95, -1.71, 0.64)
pt3dadd(7.788, 150.934, -1.715, 0.644)
pt3dadd(7.669, 150.918, -1.721, 0.648)
pt3dadd(7.55, 150.902, -1.727, 0.652)
pt3dadd(7.444, 150.89, -1.771, 0.672)
pt3dadd(7.336, 150.88, -1.816, 0.692)
pt3dadd(7.229, 150.869, -1.861, 0.712)
pt3dadd(7.122, 150.859, -1.906, 0.732)
pt3dadd(7.015, 150.847, -1.951, 0.754)
pt3dadd(6.901, 150.845, -1.983, 0.78)
pt3dadd(6.787, 150.842, -2.016, 0.808)
pt3dadd(6.675, 150.839, -2.048, 0.834)
pt3dadd(6.561, 150.836, -2.081, 0.862)
pt3dadd(6.447, 150.834, -2.113, 0.89)
pt3dadd(6.334, 150.83, -2.147, 0.914)
pt3dadd(6.221, 150.828, -2.182, 0.938)
pt3dadd(6.108, 150.826, -2.217, 0.96)
pt3dadd(5.997, 150.822, -2.252, 0.984)
pt3dadd(5.884, 150.82, -2.287, 1.008)
pt3dadd(5.771, 150.817, -2.321, 1.03)
pt3dadd(5.654, 150.814, -2.34, 1.042)
pt3dadd(5.535, 150.811, -2.359, 1.054)
pt3dadd(5.417, 150.809, -2.378, 1.068)
pt3dadd(5.3, 150.805, -2.397, 1.08)
pt3dadd(5.182, 150.803, -2.416, 1.092)
pt3dadd(5.064, 150.8, -2.435, 1.106)
pt3dadd(4.954, 150.823, -2.47, 1.11)
pt3dadd(4.845, 150.846, -2.506, 1.116)
pt3dadd(4.736, 150.868, -2.541, 1.12)
pt3dadd(4.627, 150.89, -2.577, 1.126)
pt3dadd(4.521, 150.919, -2.615, 1.13)
pt3dadd(4.427, 150.964, -2.663, 1.13)
pt3dadd(4.332, 151.008, -2.711, 1.13)
pt3dadd(4.238, 151.052, -2.758, 1.13)
pt3dadd(4.143, 151.096, -2.806, 1.13)
pt3dadd(4.044, 151.1, -2.862, 1.118)
pt3dadd(3.944, 151.106, -2.918, 1.108)
pt3dadd(3.845, 151.111, -2.973, 1.098)
pt3dadd(3.745, 151.117, -3.029, 1.088)
pt3dadd(3.642, 151.128, -3.078, 1.074)
pt3dadd(3.532, 151.156, -3.106, 1.054)
pt3dadd(3.42, 151.183, -3.134, 1.034)
pt3dadd(3.309, 151.211, -3.162, 1.012)
pt3dadd(3.198, 151.238, -3.19, 0.992)
pt3dadd(3.085, 151.27, -3.206, 0.952)
pt3dadd(2.973, 151.307, -3.207, 0.888)
pt3dadd(2.859, 151.342, -3.207, 0.826)
pt3dadd(2.74, 151.354, -3.207, 0.788)
pt3dadd(2.621, 151.366, -3.208, 0.75)
pt3dadd(2.512, 151.402, -3.208, 0.724)
pt3dadd(2.418, 151.474, -3.208, 0.712)
pt3dadd(2.324, 151.535, -3.222, 0.706)
pt3dadd(2.225, 151.559, -3.275, 0.72)
pt3dadd(2.143, 151.594, -3.335, 0.744)
pt3dadd(2.077, 151.642, -3.402, 0.78)
pt3dadd(1.96, 151.654, -3.423, 0.784)
pt3dadd(1.844, 151.664, -3.444, 0.788)
pt3dadd(1.728, 151.676, -3.465, 0.794)
pt3dadd(1.611, 151.688, -3.485, 0.798)
pt3dadd(1.495, 151.7, -3.506, 0.802)
pt3dadd(1.393, 151.738, -3.546, 0.808)
pt3dadd(1.297, 151.782, -3.59, 0.814)
pt3dadd(1.2, 151.826, -3.635, 0.82)
pt3dadd(1.103, 151.87, -3.679, 0.826)
pt3dadd(1.01, 151.931, -3.703, 0.824)
pt3dadd(0.919, 152.008, -3.705, 0.814)
pt3dadd(0.829, 152.083, -3.708, 0.802)
pt3dadd(0.739, 152.16, -3.71, 0.792)
pt3dadd(0.649, 152.236, -3.713, 0.782)
pt3dadd(0.559, 152.297, -3.744, 0.764)
pt3dadd(0.469, 152.348, -3.793, 0.74)
pt3dadd(0.379, 152.4, -3.841, 0.714)
pt3dadd(0.289, 152.453, -3.89, 0.69)
}
}
proc shape3d_80() {
apic[13] { pt3dadd(0.199, 152.513, -3.926, 0.664)
pt3dadd(0.108, 152.584, -3.949, 0.636)
pt3dadd(0.017, 152.653, -3.972, 0.608)
pt3dadd(-0.074, 152.724, -3.995, 0.578)
pt3dadd(-0.165, 152.792, -4.019, 0.552)
pt3dadd(-0.261, 152.852, -4.05, 0.54)
pt3dadd(-0.357, 152.911, -4.082, 0.528)
pt3dadd(-0.453, 152.97, -4.113, 0.516)
pt3dadd(-0.549, 153.029, -4.144, 0.504)
pt3dadd(-0.652, 153.06, -4.185, 0.506)
pt3dadd(-0.757, 153.083, -4.229, 0.512)
pt3dadd(-0.861, 153.107, -4.273, 0.518)
pt3dadd(-0.967, 153.13, -4.317, 0.522)
pt3dadd(-1.071, 153.157, -4.359, 0.53)
pt3dadd(-1.173, 153.2, -4.395, 0.548)
pt3dadd(-1.276, 153.242, -4.431, 0.564)
pt3dadd(-1.378, 153.286, -4.466, 0.582)
pt3dadd(-1.481, 153.328, -4.502, 0.6)
pt3dadd(-1.595, 153.341, -4.525, 0.614)
pt3dadd(-1.713, 153.344, -4.545, 0.626)
pt3dadd(-1.83, 153.348, -4.565, 0.64)
pt3dadd(-1.948, 153.353, -4.585, 0.652)
pt3dadd(-2.065, 153.356, -4.605, 0.666)
pt3dadd(-2.182, 153.362, -4.625, 0.678)
pt3dadd(-2.296, 153.384, -4.649, 0.684)
pt3dadd(-2.41, 153.404, -4.674, 0.688)
pt3dadd(-2.524, 153.426, -4.699, 0.694)
pt3dadd(-2.638, 153.446, -4.723, 0.698)
pt3dadd(-2.752, 153.467, -4.748, 0.704)
pt3dadd(-2.864, 153.472, -4.783, 0.704)
pt3dadd(-2.977, 153.476, -4.817, 0.704)
pt3dadd(-3.089, 153.481, -4.852, 0.704)
pt3dadd(-3.201, 153.486, -4.886, 0.704)
pt3dadd(-3.314, 153.491, -4.921, 0.704)
pt3dadd(-3.426, 153.523, -4.937, 0.694)
pt3dadd(-3.539, 153.56, -4.951, 0.684)
pt3dadd(-3.65, 153.598, -4.964, 0.674)
pt3dadd(-3.762, 153.635, -4.978, 0.664)
pt3dadd(-3.874, 153.673, -4.992, 0.654)
pt3dadd(-3.98, 153.716, -5.017, 0.652)
pt3dadd(-4.086, 153.76, -5.044, 0.652)
pt3dadd(-4.191, 153.804, -5.071, 0.652)
pt3dadd(-4.297, 153.848, -5.099, 0.652)
pt3dadd(-4.401, 153.896, -5.125, 0.654)
pt3dadd(-4.499, 153.954, -5.151, 0.66)
pt3dadd(-4.599, 154.012, -5.176, 0.666)
pt3dadd(-4.699, 154.069, -5.201, 0.672)
pt3dadd(-4.798, 154.126, -5.227, 0.678)
pt3dadd(-4.89, 154.175, -5.272, 0.688)
pt3dadd(-4.983, 154.224, -5.32, 0.7)
pt3dadd(-5.075, 154.272, -5.368, 0.712)
pt3dadd(-5.168, 154.32, -5.417, 0.724)
pt3dadd(-5.277, 154.35, -5.435, 0.734)
pt3dadd(-5.394, 154.374, -5.441, 0.744)
pt3dadd(-5.511, 154.397, -5.448, 0.752)
pt3dadd(-5.628, 154.421, -5.454, 0.762)
pt3dadd(-5.745, 154.444, -5.46, 0.77)
pt3dadd(-5.861, 154.468, -5.47, 0.78)
pt3dadd(-5.969, 154.49, -5.508, 0.79)
pt3dadd(-6.077, 154.513, -5.546, 0.8)
pt3dadd(-6.185, 154.536, -5.585, 0.812)
pt3dadd(-6.293, 154.559, -5.623, 0.822)
pt3dadd(-6.402, 154.571, -5.66, 0.834)
pt3dadd(-6.515, 154.567, -5.695, 0.848)
pt3dadd(-6.627, 154.565, -5.73, 0.862)
pt3dadd(-6.74, 154.562, -5.765, 0.876)
pt3dadd(-6.853, 154.559, -5.8, 0.89)
pt3dadd(-6.964, 154.556, -5.835, 0.904)
pt3dadd(-7.084, 154.554, -5.836, 0.908)
pt3dadd(-7.204, 154.55, -5.836, 0.912)
pt3dadd(-7.324, 154.548, -5.837, 0.914)
pt3dadd(-7.444, 154.546, -5.837, 0.918)
pt3dadd(-7.564, 154.542, -5.837, 0.922)
pt3dadd(-7.684, 154.54, -5.837, 0.926)
pt3dadd(-7.804, 154.537, -5.838, 0.93)
pt3dadd(-7.917, 154.574, -5.838, 0.92)
pt3dadd(-8.03, 154.613, -5.838, 0.912)
pt3dadd(-8.143, 154.652, -5.839, 0.902)
pt3dadd(-8.255, 154.691, -5.839, 0.892)
pt3dadd(-8.367, 154.729, -5.839, 0.884)
pt3dadd(-8.478, 154.753, -5.859, 0.866)
pt3dadd(-8.589, 154.764, -5.898, 0.84)
pt3dadd(-8.699, 154.775, -5.936, 0.814)
pt3dadd(-8.809, 154.786, -5.974, 0.79)
pt3dadd(-8.919, 154.795, -6.013, 0.764)
pt3dadd(-9.028, 154.822, -6.046, 0.744)
pt3dadd(-9.135, 154.859, -6.075, 0.728)
pt3dadd(-9.243, 154.897, -6.105, 0.712)
pt3dadd(-9.349, 154.936, -6.134, 0.694)
pt3dadd(-9.457, 154.973, -6.163, 0.678)
pt3dadd(-9.571, 154.972, -6.194, 0.67)
pt3dadd(-9.685, 154.969, -6.224, 0.66)
pt3dadd(-9.8, 154.966, -6.254, 0.652)
pt3dadd(-9.914, 154.963, -6.284, 0.642)
pt3dadd(-10.029, 154.961, -6.314, 0.634)
pt3dadd(-10.145, 154.966, -6.334, 0.628)
pt3dadd(-10.263, 154.982, -6.336, 0.628)
pt3dadd(-10.382, 154.999, -6.338, 0.628)
pt3dadd(-10.5, 155.017, -6.34, 0.628)
pt3dadd(-10.618, 155.034, -6.342, 0.628)
pt3dadd(-10.736, 155.052, -6.345, 0.628)
pt3dadd(-10.855, 155.069, -6.346, 0.622)
pt3dadd(-10.972, 155.086, -6.346, 0.61)
pt3dadd(-11.091, 155.102, -6.347, 0.598)
pt3dadd(-11.21, 155.119, -6.347, 0.586)
pt3dadd(-11.327, 155.136, -6.347, 0.574)
pt3dadd(-11.446, 155.153, -6.347, 0.56)
pt3dadd(-11.565, 155.164, -6.354, 0.55)
pt3dadd(-11.683, 155.161, -6.373, 0.546)
pt3dadd(-11.8, 155.159, -6.391, 0.542)
pt3dadd(-11.918, 155.155, -6.41, 0.538)
pt3dadd(-12.036, 155.153, -6.429, 0.534)
pt3dadd(-12.154, 155.15, -6.448, 0.53)
pt3dadd(-12.269, 155.153, -6.473, 0.528)
pt3dadd(-12.378, 155.166, -6.512, 0.528)
pt3dadd(-12.487, 155.179, -6.551, 0.528)
pt3dadd(-12.597, 155.194, -6.591, 0.528)
pt3dadd(-12.706, 155.207, -6.63, 0.528)
pt3dadd(-12.82, 155.222, -6.651, 0.532)
pt3dadd(-12.939, 155.239, -6.651, 0.546)
pt3dadd(-13.056, 155.256, -6.652, 0.558)
pt3dadd(-13.175, 155.273, -6.652, 0.57)
pt3dadd(-13.294, 155.29, -6.652, 0.582)
pt3dadd(-13.411, 155.306, -6.653, 0.596)
pt3dadd(-13.53, 155.322, -6.653, 0.606)
pt3dadd(-13.649, 155.334, -6.653, 0.616)
pt3dadd(-13.769, 155.346, -6.654, 0.624)
pt3dadd(-13.887, 155.351, -6.654, 0.628)
pt3dadd(-14.007, 155.352, -6.654, 0.628)
pt3dadd(-14.127, 155.354, -6.654, 0.628)
pt3dadd(-14.228, 155.399, -6.684, 0.606)
pt3dadd(-14.323, 155.455, -6.721, 0.578)
pt3dadd(-14.412, 155.519, -6.758, 0.564)
pt3dadd(-14.499, 155.582, -6.797, 0.542)
pt3dadd(-14.58, 155.648, -6.845, 0.478)
pt3dadd(-14.691, 155.689, -6.849, 0.468)
pt3dadd(-14.803, 155.73, -6.854, 0.458)
pt3dadd(-14.914, 155.77, -6.858, 0.448)
pt3dadd(-15.027, 155.81, -6.863, 0.438)
pt3dadd(-15.139, 155.851, -6.868, 0.43)
pt3dadd(-15.243, 155.9, -6.886, 0.418)
pt3dadd(-15.346, 155.953, -6.908, 0.408)
pt3dadd(-15.449, 156.007, -6.93, 0.396)
pt3dadd(-15.552, 156.06, -6.953, 0.386)
pt3dadd(-15.656, 156.104, -6.979, 0.38)
pt3dadd(-15.764, 156.118, -7.021, 0.39)
pt3dadd(-15.871, 156.131, -7.063, 0.4)
pt3dadd(-15.979, 156.145, -7.105, 0.41)
pt3dadd(-16.087, 156.158, -7.146, 0.42)
pt3dadd(-16.199, 156.174, -7.178, 0.432)
pt3dadd(-16.315, 156.194, -7.196, 0.446)
pt3dadd(-16.431, 156.215, -7.213, 0.462)
pt3dadd(-16.547, 156.234, -7.23, 0.476)
pt3dadd(-16.663, 156.254, -7.247, 0.49)
pt3dadd(-16.778, 156.277, -7.262, 0.504)
pt3dadd(-16.886, 156.325, -7.262, 0.518)
pt3dadd(-16.995, 156.373, -7.263, 0.532)
pt3dadd(-17.105, 156.421, -7.263, 0.546)
pt3dadd(-17.213, 156.469, -7.263, 0.562)
pt3dadd(-17.322, 156.517, -7.264, 0.576)
pt3dadd(-17.438, 156.539, -7.264, 0.594)
pt3dadd(-17.557, 156.557, -7.264, 0.614)
pt3dadd(-17.676, 156.57, -7.264, 0.634)
pt3dadd(-17.794, 156.572, -7.265, 0.66)
pt3dadd(-17.914, 156.574, -7.265, 0.686)
pt3dadd(-18.013, 156.612, -7.265, 0.72)
pt3dadd(-18.074, 156.713, -7.266, 0.766)
pt3dadd(-18.135, 156.812, -7.266, 0.808)
pt3dadd(-18.195, 156.913, -7.266, 0.83)
pt3dadd(-18.256, 157.014, -7.267, 0.854)
pt3dadd(-18.364, 157.049, -7.296, 0.838)
pt3dadd(-18.472, 157.082, -7.327, 0.824)
pt3dadd(-18.581, 157.116, -7.357, 0.808)
pt3dadd(-18.684, 157.129, -7.403, 0.78)
pt3dadd(-18.786, 157.133, -7.456, 0.744)
pt3dadd(-18.896, 157.133, -7.495, 0.676)
pt3dadd(-18.992, 157.129, -7.553, 0.646)
pt3dadd(-19.079, 157.127, -7.62, 0.636)
pt3dadd(-19.168, 157.124, -7.688, 0.626)
pt3dadd(-19.257, 157.121, -7.756, 0.614)
pt3dadd(-19.345, 157.118, -7.823, 0.604)
pt3dadd(-19.439, 157.116, -7.887, 0.574)
pt3dadd(-19.533, 157.112, -7.95, 0.54)
pt3dadd(-19.613, 157.14, -8.016, 0.508)
pt3dadd(-19.688, 157.182, -8.085, 0.48)
pt3dadd(-19.786, 157.223, -8.13, 0.466)
pt3dadd(-19.886, 157.262, -8.172, 0.452)
pt3dadd(-20.001, 157.292, -8.172, 0.452)
pt3dadd(-20.117, 157.322, -8.172, 0.452)
pt3dadd(-20.232, 157.352, -8.173, 0.462)
pt3dadd(-20.347, 157.382, -8.173, 0.476)
pt3dadd(-20.454, 157.421, -8.204, 0.488)
pt3dadd(-20.559, 157.459, -8.236, 0.5)
pt3dadd(-20.665, 157.498, -8.269, 0.51)
pt3dadd(-20.772, 157.536, -8.301, 0.522)
pt3dadd(-20.881, 157.558, -8.331, 0.532)
pt3dadd(-20.996, 157.556, -8.36, 0.54)
pt3dadd(-21.111, 157.556, -8.388, 0.55)
pt3dadd(-21.226, 157.556, -8.416, 0.558)
pt3dadd(-21.341, 157.555, -8.445, 0.568)
}
}
proc shape3d_81() {
apic[13] { pt3dadd(-21.457, 157.555, -8.473, 0.576)
pt3dadd(-21.567, 157.594, -8.489, 0.578)
pt3dadd(-21.676, 157.638, -8.503, 0.578)
pt3dadd(-21.785, 157.681, -8.517, 0.578)
pt3dadd(-21.894, 157.726, -8.531, 0.578)
pt3dadd(-22.005, 157.769, -8.545, 0.578)
pt3dadd(-22.119, 157.784, -8.571, 0.568)
pt3dadd(-22.233, 157.799, -8.597, 0.558)
pt3dadd(-22.348, 157.814, -8.624, 0.548)
pt3dadd(-22.462, 157.83, -8.65, 0.538)
pt3dadd(-22.576, 157.846, -8.676, 0.528)
pt3dadd(-22.691, 157.877, -8.679, 0.524)
pt3dadd(-22.805, 157.909, -8.68, 0.518)
pt3dadd(-22.92, 157.943, -8.68, 0.514)
pt3dadd(-23.034, 157.975, -8.68, 0.51)
pt3dadd(-23.149, 158.008, -8.681, 0.506)
pt3dadd(-23.245, 158.062, -8.681, 0.502)
pt3dadd(-23.278, 158.173, -8.681, 0.532)
pt3dadd(-23.292, 158.29, -8.681, 0.552)
pt3dadd(-23.336, 158.396, -8.682, 0.578)
pt3dadd(-23.447, 158.437, -8.682, 0.592)
pt3dadd(-23.565, 158.443, -8.687, 0.638)
pt3dadd(-23.679, 158.441, -8.715, 0.684)
pt3dadd(-23.763, 158.437, -8.784, 0.754)
pt3dadd(-23.822, 158.435, -8.871, 0.848)
pt3dadd(-23.896, 158.432, -8.949, 0.878)
pt3dadd(-23.988, 158.429, -9.014, 0.814)
pt3dadd(-24.092, 158.429, -9.056, 0.75)
pt3dadd(-24.211, 158.431, -9.07, 0.74)
pt3dadd(-24.33, 158.434, -9.083, 0.73)
pt3dadd(-24.433, 158.473, -9.115, 0.716)
pt3dadd(-24.532, 158.521, -9.151, 0.704)
pt3dadd(-24.646, 158.539, -9.179, 0.7)
pt3dadd(-24.761, 158.561, -9.194, 0.692)
pt3dadd(-24.878, 158.584, -9.209, 0.682)
pt3dadd(-24.994, 158.606, -9.224, 0.672)
pt3dadd(-25.109, 158.628, -9.239, 0.662)
pt3dadd(-25.226, 158.651, -9.254, 0.654)
pt3dadd(-25.328, 158.699, -9.284, 0.648)
pt3dadd(-25.431, 158.747, -9.314, 0.642)
pt3dadd(-25.533, 158.795, -9.344, 0.636)
pt3dadd(-25.635, 158.844, -9.375, 0.63)
pt3dadd(-25.744, 158.881, -9.4, 0.626)
pt3dadd(-25.857, 158.911, -9.42, 0.62)
pt3dadd(-25.969, 158.94, -9.441, 0.614)
pt3dadd(-25.969, 158.938, -9.441, 0.614)
pt3dadd(-26.082, 158.968, -9.461, 0.61)
pt3dadd(-26.195, 158.996, -9.482, 0.604)
pt3dadd(-26.311, 159.018, -9.491, 0.6)
pt3dadd(-26.43, 159.035, -9.491, 0.596)
pt3dadd(-26.547, 159.053, -9.491, 0.592)
pt3dadd(-26.666, 159.07, -9.491, 0.588)
pt3dadd(-26.785, 159.086, -9.492, 0.584)
pt3dadd(-26.903, 159.103, -9.492, 0.58)
pt3dadd(-27.018, 159.131, -9.5, 0.574)
pt3dadd(-27.129, 159.169, -9.517, 0.57)
pt3dadd(-27.24, 159.206, -9.533, 0.564)
pt3dadd(-27.351, 159.245, -9.549, 0.56)
pt3dadd(-27.463, 159.283, -9.565, 0.554)
pt3dadd(-27.572, 159.296, -9.597, 0.546)
pt3dadd(-27.681, 159.294, -9.639, 0.538)
pt3dadd(-27.79, 159.29, -9.682, 0.528)
pt3dadd(-27.898, 159.288, -9.724, 0.518)
pt3dadd(-28.007, 159.286, -9.767, 0.508)
pt3dadd(-28.115, 159.282, -9.81, 0.498)
pt3dadd(-28.223, 159.28, -9.855, 0.488)
pt3dadd(-28.331, 159.276, -9.896, 0.476)
pt3dadd(-28.451, 159.269, -9.896, 0.468)
pt3dadd(-28.571, 159.262, -9.897, 0.46)
pt3dadd(-28.688, 159.242, -9.897, 0.452)
pt3dadd(-28.791, 159.179, -9.897, 0.452)
pt3dadd(-28.894, 159.115, -9.898, 0.452)
pt3dadd(-28.962, 159.013, -9.898, 0.452)
pt3dadd(-29.029, 158.912, -9.898, 0.452)
pt3dadd(-29.116, 158.837, -9.93, 0.452)
pt3dadd(-29.206, 158.771, -9.968, 0.452)
pt3dadd(-29.311, 158.774, -10.015, 0.44)
pt3dadd(-29.389, 158.819, -10.072, 0.364)
pt3dadd(-29.389, 158.816, -10.072, 0.364)
}
apic[14] {pt3dclear()
pt3dadd(76.639, 130.296, 10.314, 3.164)
pt3dadd(76.672, 130.398, 10.285, 3.084)
pt3dadd(76.708, 130.507, 10.255, 3)
pt3dadd(76.744, 130.615, 10.225, 2.914)
pt3dadd(76.78, 130.724, 10.195, 2.828)
pt3dadd(76.815, 130.834, 10.165, 2.744)
pt3dadd(76.851, 130.942, 10.135, 2.658)
pt3dadd(76.887, 131.051, 10.105, 2.572)
pt3dadd(76.923, 131.159, 10.075, 2.488)
pt3dadd(76.959, 131.268, 10.045, 2.402)
pt3dadd(76.994, 131.377, 10.015, 2.318)
pt3dadd(77.016, 131.482, 9.972, 2.228)
pt3dadd(77.029, 131.586, 9.923, 2.138)
pt3dadd(77.042, 131.689, 9.874, 2.046)
pt3dadd(77.055, 131.792, 9.824, 1.956)
pt3dadd(77.068, 131.896, 9.775, 1.864)
pt3dadd(77.081, 132, 9.725, 1.772)
pt3dadd(77.094, 132.103, 9.676, 1.682)
pt3dadd(77.107, 132.206, 9.627, 1.59)
pt3dadd(77.12, 132.31, 9.577, 1.5)
pt3dadd(77.133, 132.414, 9.528, 1.408)
pt3dadd(77.148, 132.523, 9.489, 1.312)
pt3dadd(77.163, 132.635, 9.455, 1.214)
pt3dadd(77.178, 132.746, 9.422, 1.114)
pt3dadd(77.194, 132.859, 9.389, 1.016)
pt3dadd(77.209, 132.971, 9.356, 0.916)
pt3dadd(77.224, 133.084, 9.322, 0.818)
pt3dadd(77.239, 133.195, 9.289, 0.718)
pt3dadd(77.255, 133.308, 9.255, 0.62)
pt3dadd(77.27, 133.42, 9.222, 0.52)
pt3dadd(77.285, 133.531, 9.189, 0.422)
pt3dadd(77.319, 133.643, 9.17, 0.406)
pt3dadd(77.361, 133.754, 9.156, 0.426)
pt3dadd(77.402, 133.866, 9.142, 0.446)
pt3dadd(77.444, 133.978, 9.129, 0.464)
pt3dadd(77.486, 134.089, 9.115, 0.484)
pt3dadd(77.527, 134.2, 9.102, 0.504)
pt3dadd(77.569, 134.311, 9.089, 0.524)
pt3dadd(77.611, 134.423, 9.075, 0.544)
pt3dadd(77.652, 134.534, 9.061, 0.564)
pt3dadd(77.694, 134.646, 9.048, 0.584)
pt3dadd(77.732, 134.759, 9.042, 0.594)
pt3dadd(77.768, 134.874, 9.039, 0.604)
pt3dadd(77.804, 134.988, 9.036, 0.612)
pt3dadd(77.84, 135.102, 9.032, 0.622)
pt3dadd(77.876, 135.216, 9.029, 0.63)
pt3dadd(77.913, 135.331, 9.026, 0.64)
pt3dadd(77.949, 135.445, 9.022, 0.65)
pt3dadd(77.985, 135.559, 9.019, 0.658)
pt3dadd(78.021, 135.674, 9.016, 0.668)
pt3dadd(78.057, 135.788, 9.012, 0.676)
pt3dadd(78.086, 135.905, 9.01, 0.678)
pt3dadd(78.113, 136.021, 9.007, 0.678)
pt3dadd(78.139, 136.139, 9.004, 0.678)
pt3dadd(78.166, 136.255, 9.002, 0.678)
pt3dadd(78.192, 136.373, 8.999, 0.678)
pt3dadd(78.219, 136.489, 8.997, 0.678)
pt3dadd(78.245, 136.607, 8.994, 0.678)
pt3dadd(78.272, 136.723, 8.992, 0.678)
pt3dadd(78.299, 136.841, 8.989, 0.678)
pt3dadd(78.325, 136.957, 8.987, 0.678)
pt3dadd(78.348, 137.075, 8.981, 0.646)
pt3dadd(78.369, 137.192, 8.975, 0.606)
pt3dadd(78.391, 137.31, 8.968, 0.566)
pt3dadd(78.413, 137.429, 8.962, 0.526)
pt3dadd(78.434, 137.546, 8.955, 0.484)
pt3dadd(78.456, 137.664, 8.949, 0.444)
pt3dadd(78.478, 137.782, 8.943, 0.404)
pt3dadd(78.499, 137.899, 8.936, 0.364)
pt3dadd(78.521, 138.017, 8.93, 0.324)
pt3dadd(78.542, 138.136, 8.923, 0.284)
pt3dadd(78.591, 138.242, 8.914, 0.304)
pt3dadd(78.648, 138.348, 8.903, 0.338)
pt3dadd(78.704, 138.454, 8.892, 0.374)
pt3dadd(78.76, 138.558, 8.882, 0.41)
pt3dadd(78.817, 138.664, 8.871, 0.444)
pt3dadd(78.873, 138.769, 8.861, 0.48)
pt3dadd(78.929, 138.875, 8.85, 0.516)
pt3dadd(78.985, 138.979, 8.839, 0.552)
pt3dadd(79.042, 139.085, 8.829, 0.586)
pt3dadd(79.098, 139.19, 8.818, 0.622)
pt3dadd(79.155, 139.288, 8.787, 0.682)
pt3dadd(79.212, 139.385, 8.751, 0.748)
pt3dadd(79.269, 139.482, 8.716, 0.814)
pt3dadd(79.326, 139.578, 8.681, 0.88)
pt3dadd(79.383, 139.675, 8.646, 0.944)
pt3dadd(79.44, 139.772, 8.61, 1.01)
pt3dadd(79.496, 139.868, 8.575, 1.076)
pt3dadd(79.553, 139.966, 8.54, 1.14)
pt3dadd(79.61, 140.063, 8.505, 1.206)
pt3dadd(79.667, 140.159, 8.469, 1.272)
pt3dadd(79.758, 140.228, 8.441, 1.184)
pt3dadd(79.852, 140.296, 8.413, 1.078)
pt3dadd(79.946, 140.362, 8.385, 0.97)
pt3dadd(80.04, 140.428, 8.358, 0.864)
pt3dadd(80.135, 140.495, 8.33, 0.758)
pt3dadd(80.229, 140.561, 8.302, 0.652)
pt3dadd(80.323, 140.627, 8.274, 0.546)
pt3dadd(80.417, 140.693, 8.247, 0.438)
pt3dadd(80.512, 140.76, 8.219, 0.332)
pt3dadd(80.606, 140.826, 8.191, 0.226)
}
apic[15] {pt3dclear()
pt3dadd(80.606, 140.826, 8.191, 0.226)
pt3dadd(80.621, 140.834, 8.19, 0.24)
pt3dadd(80.724, 140.894, 8.18, 0.33)
pt3dadd(80.828, 140.953, 8.171, 0.422)
pt3dadd(80.931, 141.013, 8.162, 0.514)
pt3dadd(81.035, 141.073, 8.152, 0.604)
pt3dadd(81.138, 141.132, 8.143, 0.696)
pt3dadd(81.242, 141.192, 8.133, 0.786)
pt3dadd(81.345, 141.252, 8.124, 0.878)
pt3dadd(81.449, 141.311, 8.115, 0.97)
pt3dadd(81.553, 141.371, 8.105, 1.06)
pt3dadd(81.668, 141.403, 8.107, 1.112)
pt3dadd(81.784, 141.434, 8.109, 1.16)
pt3dadd(81.9, 141.466, 8.111, 1.21)
pt3dadd(82.015, 141.497, 8.113, 1.258)
pt3dadd(82.131, 141.528, 8.115, 1.308)
pt3dadd(82.247, 141.559, 8.117, 1.356)
pt3dadd(82.363, 141.592, 8.119, 1.406)
pt3dadd(82.479, 141.623, 8.121, 1.454)
pt3dadd(82.595, 141.654, 8.122, 1.504)
}
}
proc shape3d_82() {
apic[15] { pt3dadd(82.71, 141.685, 8.125, 1.554)
pt3dadd(82.829, 141.7, 8.131, 1.6)
pt3dadd(82.948, 141.714, 8.138, 1.646)
pt3dadd(83.067, 141.73, 8.145, 1.692)
pt3dadd(83.186, 141.744, 8.152, 1.74)
pt3dadd(83.304, 141.758, 8.159, 1.786)
pt3dadd(83.423, 141.773, 8.165, 1.832)
pt3dadd(83.542, 141.787, 8.172, 1.88)
pt3dadd(83.661, 141.803, 8.179, 1.926)
pt3dadd(83.78, 141.817, 8.186, 1.972)
pt3dadd(83.899, 141.832, 8.193, 2.02)
pt3dadd(84.018, 141.833, 8.205, 1.908)
pt3dadd(84.137, 141.834, 8.216, 1.796)
pt3dadd(84.256, 141.836, 8.228, 1.684)
pt3dadd(84.375, 141.838, 8.24, 1.574)
pt3dadd(84.494, 141.839, 8.251, 1.462)
pt3dadd(84.614, 141.84, 8.263, 1.35)
pt3dadd(84.733, 141.841, 8.275, 1.238)
pt3dadd(84.852, 141.844, 8.287, 1.128)
pt3dadd(84.971, 141.845, 8.298, 1.016)
pt3dadd(85.09, 141.846, 8.31, 0.904)
}
apic[16] {pt3dclear()
pt3dadd(85.09, 141.846, 8.31, 0.904)
pt3dadd(85.099, 141.846, 8.313, 0.904)
pt3dadd(85.21, 141.848, 8.351, 0.904)
pt3dadd(85.321, 141.85, 8.388, 0.904)
pt3dadd(85.433, 141.852, 8.426, 0.904)
pt3dadd(85.544, 141.853, 8.464, 0.904)
pt3dadd(85.655, 141.856, 8.502, 0.904)
pt3dadd(85.766, 141.858, 8.539, 0.904)
pt3dadd(85.877, 141.859, 8.577, 0.904)
pt3dadd(85.988, 141.862, 8.615, 0.904)
pt3dadd(86.103, 141.865, 8.644, 0.872)
pt3dadd(86.218, 141.869, 8.672, 0.836)
pt3dadd(86.333, 141.872, 8.7, 0.802)
pt3dadd(86.448, 141.876, 8.728, 0.766)
pt3dadd(86.563, 141.881, 8.756, 0.73)
pt3dadd(86.679, 141.884, 8.784, 0.694)
pt3dadd(86.794, 141.888, 8.812, 0.658)
pt3dadd(86.909, 141.892, 8.84, 0.624)
pt3dadd(87.024, 141.895, 8.868, 0.588)
pt3dadd(87.139, 141.9, 8.896, 0.552)
pt3dadd(87.257, 141.908, 8.913, 0.524)
pt3dadd(87.375, 141.918, 8.929, 0.496)
pt3dadd(87.493, 141.928, 8.946, 0.468)
pt3dadd(87.611, 141.936, 8.962, 0.44)
pt3dadd(87.729, 141.946, 8.978, 0.412)
pt3dadd(87.847, 141.955, 8.995, 0.384)
pt3dadd(87.965, 141.965, 9.011, 0.356)
pt3dadd(88.083, 141.974, 9.027, 0.328)
pt3dadd(88.201, 141.984, 9.043, 0.3)
pt3dadd(88.319, 141.992, 9.06, 0.272)
pt3dadd(88.437, 142.009, 9.068, 0.334)
pt3dadd(88.556, 142.026, 9.077, 0.406)
pt3dadd(88.674, 142.044, 9.085, 0.476)
pt3dadd(88.792, 142.061, 9.093, 0.548)
pt3dadd(88.911, 142.078, 9.102, 0.62)
pt3dadd(89.029, 142.096, 9.11, 0.69)
pt3dadd(89.148, 142.112, 9.118, 0.762)
pt3dadd(89.266, 142.129, 9.126, 0.834)
pt3dadd(89.384, 142.147, 9.135, 0.904)
pt3dadd(89.503, 142.164, 9.143, 0.976)
pt3dadd(89.613, 142.21, 9.153, 0.98)
pt3dadd(89.722, 142.258, 9.163, 0.976)
pt3dadd(89.831, 142.306, 9.173, 0.974)
pt3dadd(89.941, 142.354, 9.183, 0.97)
pt3dadd(90.05, 142.402, 9.193, 0.968)
pt3dadd(90.159, 142.448, 9.203, 0.966)
pt3dadd(90.269, 142.496, 9.213, 0.962)
pt3dadd(90.378, 142.544, 9.223, 0.96)
pt3dadd(90.487, 142.592, 9.233, 0.956)
pt3dadd(90.597, 142.64, 9.243, 0.954)
pt3dadd(90.702, 142.687, 9.272, 0.934)
pt3dadd(90.807, 142.733, 9.301, 0.912)
pt3dadd(90.912, 142.778, 9.331, 0.892)
pt3dadd(91.017, 142.825, 9.36, 0.872)
pt3dadd(91.122, 142.871, 9.389, 0.85)
pt3dadd(91.227, 142.916, 9.419, 0.83)
pt3dadd(91.332, 142.963, 9.448, 0.81)
pt3dadd(91.438, 143.009, 9.477, 0.788)
pt3dadd(91.543, 143.054, 9.507, 0.768)
pt3dadd(91.647, 143.101, 9.536, 0.748)
pt3dadd(91.749, 143.158, 9.562, 0.742)
pt3dadd(91.85, 143.215, 9.588, 0.734)
pt3dadd(91.951, 143.272, 9.614, 0.728)
pt3dadd(92.052, 143.328, 9.64, 0.72)
pt3dadd(92.153, 143.386, 9.666, 0.712)
pt3dadd(92.254, 143.442, 9.692, 0.706)
pt3dadd(92.355, 143.498, 9.718, 0.698)
pt3dadd(92.456, 143.556, 9.744, 0.692)
pt3dadd(92.557, 143.612, 9.77, 0.684)
pt3dadd(92.658, 143.67, 9.795, 0.676)
pt3dadd(92.761, 143.728, 9.811, 0.654)
pt3dadd(92.864, 143.786, 9.827, 0.634)
pt3dadd(92.967, 143.845, 9.843, 0.612)
pt3dadd(93.07, 143.903, 9.86, 0.592)
pt3dadd(93.173, 143.962, 9.876, 0.57)
pt3dadd(93.276, 144.019, 9.892, 0.55)
pt3dadd(93.379, 144.078, 9.908, 0.528)
pt3dadd(93.482, 144.137, 9.925, 0.506)
pt3dadd(93.585, 144.194, 9.941, 0.486)
pt3dadd(93.688, 144.253, 9.956, 0.466)
pt3dadd(93.79, 144.316, 9.964, 0.458)
pt3dadd(93.892, 144.378, 9.971, 0.452)
pt3dadd(93.994, 144.44, 9.979, 0.444)
pt3dadd(94.097, 144.503, 9.986, 0.436)
pt3dadd(94.199, 144.565, 9.993, 0.428)
pt3dadd(94.301, 144.628, 10.001, 0.42)
pt3dadd(94.403, 144.69, 10.009, 0.414)
pt3dadd(94.505, 144.752, 10.016, 0.406)
pt3dadd(94.607, 144.815, 10.024, 0.398)
pt3dadd(94.708, 144.88, 10.03, 0.398)
pt3dadd(94.8, 144.955, 10.033, 0.426)
pt3dadd(94.893, 145.032, 10.036, 0.454)
pt3dadd(94.986, 145.108, 10.04, 0.482)
pt3dadd(95.078, 145.184, 10.043, 0.512)
pt3dadd(95.171, 145.26, 10.046, 0.54)
pt3dadd(95.264, 145.336, 10.049, 0.57)
pt3dadd(95.356, 145.412, 10.052, 0.598)
pt3dadd(95.449, 145.488, 10.055, 0.626)
pt3dadd(95.542, 145.565, 10.058, 0.654)
pt3dadd(95.633, 145.643, 10.062, 0.678)
pt3dadd(95.719, 145.726, 10.068, 0.678)
pt3dadd(95.805, 145.81, 10.073, 0.678)
pt3dadd(95.891, 145.892, 10.079, 0.68)
pt3dadd(95.977, 145.976, 10.084, 0.68)
pt3dadd(96.063, 146.059, 10.09, 0.68)
pt3dadd(96.149, 146.143, 10.095, 0.68)
pt3dadd(96.235, 146.226, 10.101, 0.68)
pt3dadd(96.321, 146.31, 10.107, 0.682)
pt3dadd(96.407, 146.393, 10.112, 0.682)
pt3dadd(96.492, 146.478, 10.118, 0.686)
pt3dadd(96.57, 146.568, 10.127, 0.704)
pt3dadd(96.648, 146.658, 10.136, 0.72)
pt3dadd(96.726, 146.749, 10.144, 0.738)
pt3dadd(96.804, 146.839, 10.153, 0.756)
pt3dadd(96.883, 146.929, 10.162, 0.774)
pt3dadd(96.961, 147.02, 10.171, 0.792)
pt3dadd(97.039, 147.11, 10.18, 0.81)
pt3dadd(97.117, 147.202, 10.188, 0.826)
pt3dadd(97.195, 147.292, 10.197, 0.844)
pt3dadd(97.27, 147.383, 10.209, 0.86)
pt3dadd(97.332, 147.481, 10.236, 0.864)
pt3dadd(97.394, 147.578, 10.264, 0.868)
pt3dadd(97.456, 147.676, 10.291, 0.874)
pt3dadd(97.518, 147.774, 10.318, 0.878)
pt3dadd(97.58, 147.871, 10.345, 0.882)
pt3dadd(97.641, 147.968, 10.372, 0.888)
pt3dadd(97.703, 148.067, 10.399, 0.892)
pt3dadd(97.765, 148.164, 10.426, 0.896)
pt3dadd(97.827, 148.261, 10.453, 0.9)
pt3dadd(97.888, 148.36, 10.48, 0.898)
pt3dadd(97.949, 148.458, 10.506, 0.876)
pt3dadd(98.01, 148.556, 10.531, 0.852)
pt3dadd(98.071, 148.655, 10.557, 0.83)
pt3dadd(98.132, 148.754, 10.583, 0.808)
pt3dadd(98.193, 148.853, 10.608, 0.786)
pt3dadd(98.254, 148.951, 10.634, 0.764)
pt3dadd(98.315, 149.05, 10.66, 0.742)
pt3dadd(98.376, 149.148, 10.685, 0.718)
pt3dadd(98.437, 149.248, 10.711, 0.696)
pt3dadd(98.5, 149.346, 10.733, 0.672)
pt3dadd(98.568, 149.443, 10.749, 0.64)
pt3dadd(98.635, 149.54, 10.765, 0.61)
pt3dadd(98.702, 149.638, 10.78, 0.58)
pt3dadd(98.77, 149.736, 10.796, 0.548)
pt3dadd(98.837, 149.833, 10.812, 0.518)
pt3dadd(98.904, 149.93, 10.827, 0.488)
pt3dadd(98.972, 150.028, 10.843, 0.458)
pt3dadd(99.039, 150.126, 10.859, 0.426)
pt3dadd(99.106, 150.223, 10.874, 0.396)
pt3dadd(99.174, 150.322, 10.887, 0.374)
pt3dadd(99.241, 150.42, 10.894, 0.368)
pt3dadd(99.308, 150.52, 10.901, 0.362)
pt3dadd(99.375, 150.619, 10.908, 0.356)
pt3dadd(99.442, 150.718, 10.915, 0.348)
pt3dadd(99.509, 150.817, 10.922, 0.342)
pt3dadd(99.576, 150.917, 10.93, 0.336)
pt3dadd(99.643, 151.015, 10.937, 0.33)
pt3dadd(99.71, 151.115, 10.944, 0.324)
pt3dadd(99.777, 151.213, 10.951, 0.318)
pt3dadd(99.839, 151.316, 10.955, 0.326)
pt3dadd(99.894, 151.423, 10.955, 0.36)
pt3dadd(99.948, 151.53, 10.955, 0.394)
pt3dadd(100.002, 151.637, 10.955, 0.428)
pt3dadd(100.056, 151.744, 10.955, 0.46)
pt3dadd(100.111, 151.852, 10.955, 0.494)
pt3dadd(100.165, 151.958, 10.955, 0.528)
pt3dadd(100.219, 152.065, 10.955, 0.562)
pt3dadd(100.273, 152.172, 10.955, 0.596)
pt3dadd(100.328, 152.279, 10.955, 0.628)
pt3dadd(100.383, 152.386, 10.955, 0.642)
pt3dadd(100.442, 152.49, 10.955, 0.624)
pt3dadd(100.501, 152.594, 10.955, 0.604)
pt3dadd(100.56, 152.699, 10.955, 0.584)
pt3dadd(100.618, 152.804, 10.955, 0.564)
pt3dadd(100.677, 152.909, 10.955, 0.544)
pt3dadd(100.736, 153.013, 10.955, 0.524)
pt3dadd(100.794, 153.118, 10.955, 0.504)
pt3dadd(100.853, 153.223, 10.955, 0.484)
pt3dadd(100.912, 153.328, 10.955, 0.464)
}
}
proc shape3d_83() {
apic[16] { pt3dadd(100.963, 153.436, 10.955, 0.452)
pt3dadd(101.001, 153.55, 10.955, 0.452)
pt3dadd(101.04, 153.662, 10.955, 0.452)
pt3dadd(101.078, 153.776, 10.955, 0.452)
pt3dadd(101.117, 153.89, 10.955, 0.452)
pt3dadd(101.155, 154.003, 10.955, 0.452)
pt3dadd(101.193, 154.117, 10.955, 0.452)
pt3dadd(101.232, 154.231, 10.955, 0.452)
pt3dadd(101.27, 154.345, 10.955, 0.452)
pt3dadd(101.309, 154.458, 10.954, 0.452)
pt3dadd(101.351, 154.571, 10.954, 0.452)
pt3dadd(101.4, 154.68, 10.954, 0.452)
pt3dadd(101.448, 154.79, 10.954, 0.452)
pt3dadd(101.497, 154.9, 10.954, 0.452)
pt3dadd(101.546, 155.009, 10.954, 0.452)
pt3dadd(101.594, 155.119, 10.954, 0.452)
pt3dadd(101.643, 155.228, 10.954, 0.452)
pt3dadd(101.692, 155.339, 10.953, 0.452)
pt3dadd(101.741, 155.448, 10.953, 0.452)
pt3dadd(101.789, 155.557, 10.953, 0.452)
pt3dadd(101.826, 155.671, 10.953, 0.452)
pt3dadd(101.844, 155.79, 10.953, 0.452)
pt3dadd(101.861, 155.909, 10.953, 0.452)
pt3dadd(101.878, 156.026, 10.952, 0.452)
pt3dadd(101.896, 156.145, 10.952, 0.452)
pt3dadd(101.913, 156.264, 10.952, 0.452)
pt3dadd(101.93, 156.383, 10.951, 0.452)
pt3dadd(101.948, 156.502, 10.951, 0.452)
pt3dadd(101.965, 156.62, 10.951, 0.452)
pt3dadd(101.982, 156.739, 10.951, 0.452)
pt3dadd(101.981, 156.857, 10.95, 0.47)
pt3dadd(101.949, 156.973, 10.95, 0.514)
pt3dadd(101.917, 157.088, 10.949, 0.56)
pt3dadd(101.886, 157.205, 10.948, 0.606)
pt3dadd(101.854, 157.32, 10.948, 0.65)
pt3dadd(101.823, 157.436, 10.947, 0.696)
pt3dadd(101.791, 157.552, 10.947, 0.74)
pt3dadd(101.76, 157.667, 10.946, 0.786)
pt3dadd(101.728, 157.783, 10.946, 0.83)
pt3dadd(101.696, 157.898, 10.945, 0.876)
pt3dadd(101.667, 158.015, 10.944, 0.902)
pt3dadd(101.642, 158.132, 10.943, 0.902)
pt3dadd(101.617, 158.25, 10.941, 0.902)
pt3dadd(101.591, 158.368, 10.94, 0.9)
pt3dadd(101.566, 158.484, 10.939, 0.9)
pt3dadd(101.541, 158.602, 10.937, 0.898)
pt3dadd(101.515, 158.719, 10.936, 0.898)
pt3dadd(101.49, 158.837, 10.935, 0.896)
pt3dadd(101.465, 158.953, 10.933, 0.896)
pt3dadd(101.439, 159.071, 10.932, 0.894)
pt3dadd(101.423, 159.19, 10.93, 0.868)
pt3dadd(101.419, 159.31, 10.927, 0.8)
pt3dadd(101.415, 159.428, 10.924, 0.734)
pt3dadd(101.411, 159.548, 10.921, 0.668)
pt3dadd(101.408, 159.668, 10.918, 0.6)
pt3dadd(101.404, 159.788, 10.915, 0.534)
pt3dadd(101.4, 159.908, 10.913, 0.466)
pt3dadd(101.397, 160.028, 10.91, 0.4)
pt3dadd(101.393, 160.148, 10.907, 0.334)
pt3dadd(101.389, 160.268, 10.904, 0.266)
pt3dadd(101.393, 160.387, 10.899, 0.228)
pt3dadd(101.41, 160.506, 10.892, 0.234)
pt3dadd(101.427, 160.625, 10.885, 0.238)
pt3dadd(101.443, 160.744, 10.878, 0.244)
pt3dadd(101.46, 160.861, 10.871, 0.25)
pt3dadd(101.476, 160.98, 10.864, 0.256)
pt3dadd(101.493, 161.099, 10.857, 0.26)
pt3dadd(101.51, 161.218, 10.85, 0.266)
pt3dadd(101.526, 161.336, 10.843, 0.272)
pt3dadd(101.543, 161.454, 10.836, 0.276)
pt3dadd(101.571, 161.569, 10.828, 0.306)
pt3dadd(101.615, 161.681, 10.816, 0.368)
pt3dadd(101.659, 161.791, 10.805, 0.43)
pt3dadd(101.703, 161.903, 10.794, 0.492)
pt3dadd(101.747, 162.013, 10.783, 0.552)
pt3dadd(101.791, 162.124, 10.771, 0.614)
pt3dadd(101.835, 162.235, 10.76, 0.676)
pt3dadd(101.879, 162.346, 10.749, 0.738)
pt3dadd(101.923, 162.456, 10.738, 0.8)
pt3dadd(101.967, 162.568, 10.727, 0.862)
pt3dadd(102.004, 162.677, 10.705, 0.886)
pt3dadd(102.031, 162.786, 10.67, 0.864)
pt3dadd(102.059, 162.895, 10.635, 0.842)
pt3dadd(102.087, 163.004, 10.6, 0.822)
pt3dadd(102.114, 163.114, 10.565, 0.8)
pt3dadd(102.142, 163.222, 10.53, 0.78)
pt3dadd(102.169, 163.331, 10.494, 0.758)
pt3dadd(102.197, 163.44, 10.459, 0.736)
pt3dadd(102.225, 163.549, 10.424, 0.714)
pt3dadd(102.252, 163.657, 10.389, 0.694)
pt3dadd(102.274, 163.77, 10.36, 0.682)
pt3dadd(102.289, 163.886, 10.339, 0.682)
pt3dadd(102.304, 164.003, 10.317, 0.68)
pt3dadd(102.319, 164.119, 10.296, 0.68)
pt3dadd(102.334, 164.234, 10.274, 0.68)
pt3dadd(102.349, 164.351, 10.253, 0.68)
pt3dadd(102.363, 164.467, 10.232, 0.68)
pt3dadd(102.378, 164.584, 10.21, 0.678)
pt3dadd(102.393, 164.7, 10.189, 0.678)
pt3dadd(102.408, 164.816, 10.168, 0.678)
pt3dadd(102.418, 164.934, 10.154, 0.678)
pt3dadd(102.422, 165.054, 10.15, 0.678)
pt3dadd(102.426, 165.174, 10.146, 0.678)
pt3dadd(102.429, 165.294, 10.143, 0.678)
pt3dadd(102.433, 165.414, 10.139, 0.678)
pt3dadd(102.437, 165.534, 10.135, 0.678)
pt3dadd(102.44, 165.653, 10.131, 0.678)
pt3dadd(102.444, 165.773, 10.128, 0.678)
pt3dadd(102.448, 165.893, 10.124, 0.678)
pt3dadd(102.452, 166.013, 10.12, 0.678)
pt3dadd(102.458, 166.132, 10.124, 0.678)
pt3dadd(102.466, 166.25, 10.137, 0.678)
pt3dadd(102.475, 166.369, 10.15, 0.678)
pt3dadd(102.484, 166.488, 10.163, 0.678)
pt3dadd(102.493, 166.607, 10.176, 0.678)
pt3dadd(102.501, 166.726, 10.189, 0.678)
pt3dadd(102.51, 166.844, 10.202, 0.678)
pt3dadd(102.519, 166.963, 10.215, 0.678)
pt3dadd(102.528, 167.081, 10.229, 0.678)
pt3dadd(102.537, 167.2, 10.242, 0.678)
pt3dadd(102.548, 167.315, 10.266, 0.678)
pt3dadd(102.561, 167.425, 10.302, 0.678)
pt3dadd(102.575, 167.537, 10.339, 0.678)
pt3dadd(102.588, 167.647, 10.376, 0.68)
pt3dadd(102.602, 167.758, 10.413, 0.68)
pt3dadd(102.615, 167.869, 10.449, 0.68)
pt3dadd(102.629, 167.98, 10.486, 0.68)
pt3dadd(102.643, 168.09, 10.523, 0.68)
pt3dadd(102.656, 168.202, 10.559, 0.682)
pt3dadd(102.67, 168.312, 10.596, 0.682)
pt3dadd(102.698, 168.421, 10.626, 0.692)
pt3dadd(102.742, 168.53, 10.648, 0.714)
pt3dadd(102.786, 168.638, 10.67, 0.734)
pt3dadd(102.83, 168.748, 10.693, 0.756)
pt3dadd(102.873, 168.856, 10.715, 0.778)
pt3dadd(102.917, 168.964, 10.737, 0.798)
pt3dadd(102.961, 169.073, 10.76, 0.82)
pt3dadd(103.005, 169.181, 10.782, 0.842)
pt3dadd(103.049, 169.289, 10.804, 0.862)
pt3dadd(103.093, 169.398, 10.826, 0.884)
pt3dadd(103.13, 169.51, 10.843, 0.874)
pt3dadd(103.16, 169.625, 10.854, 0.832)
pt3dadd(103.19, 169.74, 10.865, 0.79)
pt3dadd(103.22, 169.855, 10.877, 0.746)
pt3dadd(103.25, 169.972, 10.888, 0.704)
pt3dadd(103.28, 170.087, 10.899, 0.662)
pt3dadd(103.311, 170.202, 10.91, 0.62)
pt3dadd(103.341, 170.317, 10.921, 0.576)
pt3dadd(103.371, 170.432, 10.932, 0.534)
pt3dadd(103.401, 170.549, 10.943, 0.492)
pt3dadd(103.424, 170.665, 10.949, 0.458)
pt3dadd(103.439, 170.784, 10.949, 0.434)
pt3dadd(103.455, 170.903, 10.949, 0.41)
pt3dadd(103.471, 171.023, 10.949, 0.386)
pt3dadd(103.487, 171.142, 10.95, 0.36)
pt3dadd(103.502, 171.26, 10.95, 0.336)
pt3dadd(103.518, 171.379, 10.95, 0.312)
pt3dadd(103.534, 171.498, 10.95, 0.288)
pt3dadd(103.549, 171.617, 10.95, 0.264)
pt3dadd(103.565, 171.736, 10.95, 0.24)
pt3dadd(103.575, 171.856, 10.95, 0.228)
pt3dadd(103.579, 171.976, 10.949, 0.226)
pt3dadd(103.584, 172.096, 10.949, 0.226)
pt3dadd(103.588, 172.216, 10.948, 0.226)
pt3dadd(103.592, 172.336, 10.948, 0.226)
pt3dadd(103.596, 172.456, 10.947, 0.226)
pt3dadd(103.6, 172.576, 10.946, 0.226)
pt3dadd(103.605, 172.694, 10.946, 0.226)
pt3dadd(103.609, 172.814, 10.945, 0.226)
pt3dadd(103.613, 172.934, 10.944, 0.226)
pt3dadd(103.62, 173.054, 10.943, 0.23)
pt3dadd(103.63, 173.174, 10.942, 0.236)
pt3dadd(103.64, 173.293, 10.94, 0.242)
pt3dadd(103.65, 173.413, 10.939, 0.248)
pt3dadd(103.661, 173.533, 10.937, 0.256)
pt3dadd(103.671, 173.652, 10.936, 0.262)
pt3dadd(103.681, 173.772, 10.934, 0.268)
pt3dadd(103.691, 173.892, 10.933, 0.274)
pt3dadd(103.701, 174.011, 10.931, 0.282)
pt3dadd(103.711, 174.131, 10.93, 0.288)
pt3dadd(103.727, 174.25, 10.927, 0.322)
pt3dadd(103.749, 174.367, 10.924, 0.384)
pt3dadd(103.77, 174.485, 10.921, 0.444)
pt3dadd(103.792, 174.604, 10.917, 0.506)
pt3dadd(103.814, 174.721, 10.914, 0.568)
pt3dadd(103.835, 174.839, 10.911, 0.63)
pt3dadd(103.857, 174.958, 10.907, 0.692)
pt3dadd(103.879, 175.075, 10.904, 0.754)
pt3dadd(103.901, 175.193, 10.9, 0.814)
pt3dadd(103.922, 175.31, 10.897, 0.876)
pt3dadd(103.96, 175.423, 10.892, 0.906)
pt3dadd(104.01, 175.532, 10.884, 0.91)
pt3dadd(104.059, 175.642, 10.877, 0.914)
pt3dadd(104.109, 175.751, 10.869, 0.918)
pt3dadd(104.159, 175.859, 10.862, 0.922)
pt3dadd(104.209, 175.968, 10.855, 0.926)
pt3dadd(104.258, 176.077, 10.847, 0.93)
pt3dadd(104.308, 176.185, 10.84, 0.934)
pt3dadd(104.358, 176.294, 10.833, 0.938)
pt3dadd(104.408, 176.404, 10.825, 0.942)
}
}
proc shape3d_84() {
apic[16] { pt3dadd(104.454, 176.512, 10.81, 0.954)
pt3dadd(104.497, 176.621, 10.788, 0.974)
pt3dadd(104.541, 176.729, 10.765, 0.992)
pt3dadd(104.584, 176.838, 10.743, 1.012)
pt3dadd(104.627, 176.947, 10.721, 1.03)
pt3dadd(104.67, 177.055, 10.699, 1.05)
pt3dadd(104.713, 177.164, 10.677, 1.068)
pt3dadd(104.757, 177.274, 10.655, 1.088)
pt3dadd(104.8, 177.382, 10.632, 1.106)
pt3dadd(104.843, 177.491, 10.61, 1.126)
pt3dadd(104.895, 177.59, 10.577, 1.12)
pt3dadd(104.951, 177.686, 10.539, 1.106)
pt3dadd(105.006, 177.784, 10.502, 1.092)
pt3dadd(105.061, 177.88, 10.464, 1.078)
pt3dadd(105.116, 177.977, 10.427, 1.064)
pt3dadd(105.172, 178.073, 10.389, 1.05)
pt3dadd(105.227, 178.17, 10.352, 1.034)
pt3dadd(105.282, 178.266, 10.314, 1.02)
pt3dadd(105.337, 178.362, 10.277, 1.006)
pt3dadd(105.393, 178.459, 10.239, 0.992)
pt3dadd(105.45, 178.562, 10.225, 0.984)
pt3dadd(105.507, 178.667, 10.214, 0.974)
pt3dadd(105.564, 178.771, 10.203, 0.966)
pt3dadd(105.622, 178.877, 10.191, 0.956)
pt3dadd(105.679, 178.981, 10.18, 0.948)
pt3dadd(105.737, 179.086, 10.169, 0.94)
pt3dadd(105.794, 179.19, 10.158, 0.93)
pt3dadd(105.851, 179.294, 10.147, 0.922)
pt3dadd(105.909, 179.399, 10.136, 0.914)
pt3dadd(105.966, 179.503, 10.125, 0.904)
pt3dadd(106.03, 179.605, 10.131, 0.92)
pt3dadd(106.094, 179.706, 10.139, 0.938)
pt3dadd(106.158, 179.807, 10.146, 0.954)
pt3dadd(106.223, 179.908, 10.154, 0.972)
pt3dadd(106.287, 180.008, 10.162, 0.99)
pt3dadd(106.351, 180.109, 10.169, 1.006)
pt3dadd(106.416, 180.21, 10.177, 1.024)
pt3dadd(106.48, 180.311, 10.185, 1.042)
pt3dadd(106.544, 180.412, 10.192, 1.058)
pt3dadd(106.608, 180.512, 10.2, 1.076)
pt3dadd(106.67, 180.605, 10.239, 1.04)
pt3dadd(106.732, 180.695, 10.279, 1.002)
pt3dadd(106.794, 180.786, 10.318, 0.964)
pt3dadd(106.856, 180.877, 10.358, 0.926)
pt3dadd(106.918, 180.968, 10.398, 0.886)
pt3dadd(106.98, 181.06, 10.438, 0.848)
pt3dadd(107.041, 181.151, 10.478, 0.81)
pt3dadd(107.103, 181.242, 10.517, 0.772)
pt3dadd(107.165, 181.333, 10.557, 0.734)
pt3dadd(107.228, 181.423, 10.595, 0.698)
pt3dadd(107.301, 181.514, 10.621, 0.672)
pt3dadd(107.374, 181.604, 10.647, 0.648)
pt3dadd(107.446, 181.694, 10.672, 0.622)
pt3dadd(107.519, 181.786, 10.698, 0.598)
pt3dadd(107.592, 181.876, 10.724, 0.574)
pt3dadd(107.664, 181.966, 10.749, 0.548)
pt3dadd(107.737, 182.057, 10.775, 0.524)
pt3dadd(107.81, 182.147, 10.801, 0.498)
pt3dadd(107.883, 182.237, 10.826, 0.474)
pt3dadd(107.953, 182.329, 10.85, 0.452)
pt3dadd(108.006, 182.436, 10.861, 0.452)
pt3dadd(108.059, 182.544, 10.871, 0.45)
pt3dadd(108.111, 182.651, 10.882, 0.45)
pt3dadd(108.164, 182.758, 10.893, 0.448)
pt3dadd(108.217, 182.864, 10.903, 0.448)
pt3dadd(108.27, 182.971, 10.914, 0.446)
pt3dadd(108.323, 183.078, 10.925, 0.446)
pt3dadd(108.376, 183.185, 10.935, 0.444)
pt3dadd(108.429, 183.292, 10.946, 0.444)
pt3dadd(108.483, 183.398, 10.955, 0.44)
pt3dadd(108.547, 183.5, 10.955, 0.42)
pt3dadd(108.611, 183.601, 10.955, 0.4)
pt3dadd(108.674, 183.703, 10.955, 0.38)
pt3dadd(108.738, 183.805, 10.955, 0.36)
pt3dadd(108.802, 183.907, 10.955, 0.34)
pt3dadd(108.865, 184.009, 10.955, 0.32)
pt3dadd(108.929, 184.11, 10.955, 0.302)
pt3dadd(108.993, 184.212, 10.955, 0.28)
pt3dadd(109.056, 184.314, 10.955, 0.262)
pt3dadd(109.12, 184.415, 10.955, 0.244)
pt3dadd(109.185, 184.517, 10.955, 0.242)
pt3dadd(109.25, 184.618, 10.955, 0.24)
pt3dadd(109.315, 184.718, 10.955, 0.238)
pt3dadd(109.38, 184.819, 10.955, 0.236)
pt3dadd(109.445, 184.92, 10.955, 0.234)
pt3dadd(109.51, 185.021, 10.955, 0.234)
pt3dadd(109.575, 185.122, 10.955, 0.232)
pt3dadd(109.64, 185.222, 10.955, 0.23)
pt3dadd(109.705, 185.323, 10.955, 0.228)
pt3dadd(109.768, 185.425, 10.955, 0.228)
pt3dadd(109.814, 185.536, 10.955, 0.246)
pt3dadd(109.86, 185.647, 10.955, 0.262)
pt3dadd(109.906, 185.758, 10.955, 0.28)
pt3dadd(109.952, 185.868, 10.955, 0.296)
pt3dadd(109.998, 185.98, 10.955, 0.314)
pt3dadd(110.044, 186.09, 10.955, 0.332)
pt3dadd(110.09, 186.2, 10.955, 0.348)
pt3dadd(110.136, 186.312, 10.955, 0.366)
pt3dadd(110.183, 186.422, 10.954, 0.382)
pt3dadd(110.224, 186.535, 10.954, 0.398)
pt3dadd(110.243, 186.653, 10.954, 0.402)
pt3dadd(110.262, 186.772, 10.954, 0.408)
pt3dadd(110.282, 186.89, 10.954, 0.414)
pt3dadd(110.301, 187.008, 10.954, 0.42)
pt3dadd(110.32, 187.127, 10.954, 0.426)
pt3dadd(110.339, 187.246, 10.954, 0.43)
pt3dadd(110.359, 187.363, 10.954, 0.436)
pt3dadd(110.378, 187.482, 10.954, 0.442)
pt3dadd(110.397, 187.601, 10.953, 0.448)
pt3dadd(110.412, 187.72, 10.953, 0.452)
pt3dadd(110.412, 187.84, 10.953, 0.452)
pt3dadd(110.413, 187.96, 10.953, 0.452)
pt3dadd(110.413, 188.08, 10.952, 0.452)
pt3dadd(110.414, 188.2, 10.952, 0.452)
pt3dadd(110.414, 188.32, 10.952, 0.452)
pt3dadd(110.414, 188.44, 10.952, 0.452)
pt3dadd(110.415, 188.56, 10.951, 0.452)
pt3dadd(110.415, 188.68, 10.951, 0.452)
pt3dadd(110.415, 188.8, 10.951, 0.452)
pt3dadd(110.414, 188.92, 10.95, 0.448)
pt3dadd(110.409, 189.04, 10.95, 0.426)
pt3dadd(110.403, 189.16, 10.949, 0.408)
pt3dadd(110.398, 189.28, 10.949, 0.386)
pt3dadd(110.393, 189.398, 10.948, 0.366)
pt3dadd(110.387, 189.518, 10.948, 0.346)
pt3dadd(110.382, 189.638, 10.947, 0.326)
pt3dadd(110.376, 189.758, 10.946, 0.306)
pt3dadd(110.371, 189.878, 10.946, 0.286)
pt3dadd(110.366, 189.998, 10.945, 0.266)
pt3dadd(110.358, 190.118, 10.944, 0.25)
pt3dadd(110.346, 190.237, 10.943, 0.248)
pt3dadd(110.333, 190.357, 10.942, 0.246)
pt3dadd(110.32, 190.476, 10.94, 0.244)
pt3dadd(110.307, 190.595, 10.939, 0.24)
pt3dadd(110.295, 190.715, 10.938, 0.238)
pt3dadd(110.282, 190.834, 10.936, 0.236)
pt3dadd(110.269, 190.954, 10.935, 0.234)
pt3dadd(110.257, 191.072, 10.933, 0.23)
pt3dadd(110.244, 191.192, 10.932, 0.228)
pt3dadd(110.227, 191.31, 10.93, 0.226)
pt3dadd(110.197, 191.426, 10.927, 0.228)
pt3dadd(110.166, 191.543, 10.923, 0.23)
pt3dadd(110.136, 191.658, 10.92, 0.232)
pt3dadd(110.106, 191.774, 10.917, 0.234)
pt3dadd(110.076, 191.891, 10.913, 0.236)
pt3dadd(110.046, 192.007, 10.91, 0.238)
pt3dadd(110.016, 192.122, 10.906, 0.24)
pt3dadd(109.986, 192.239, 10.903, 0.242)
pt3dadd(109.955, 192.355, 10.9, 0.244)
pt3dadd(109.912, 192.464, 10.895, 0.254)
pt3dadd(109.839, 192.559, 10.887, 0.284)
pt3dadd(109.766, 192.654, 10.879, 0.316)
pt3dadd(109.693, 192.749, 10.871, 0.346)
pt3dadd(109.62, 192.844, 10.864, 0.376)
pt3dadd(109.547, 192.938, 10.856, 0.408)
pt3dadd(109.474, 193.033, 10.848, 0.438)
pt3dadd(109.401, 193.128, 10.84, 0.468)
pt3dadd(109.328, 193.223, 10.832, 0.498)
pt3dadd(109.254, 193.318, 10.824, 0.53)
pt3dadd(109.171, 193.399, 10.81, 0.572)
pt3dadd(109.073, 193.462, 10.788, 0.63)
pt3dadd(108.974, 193.524, 10.765, 0.69)
pt3dadd(108.875, 193.586, 10.742, 0.748)
pt3dadd(108.776, 193.649, 10.719, 0.808)
pt3dadd(108.678, 193.711, 10.696, 0.866)
pt3dadd(108.579, 193.774, 10.673, 0.926)
pt3dadd(108.48, 193.836, 10.65, 0.984)
pt3dadd(108.381, 193.898, 10.627, 1.044)
pt3dadd(108.282, 193.961, 10.604, 1.104)
pt3dadd(108.19, 194.026, 10.573, 1.104)
pt3dadd(108.102, 194.093, 10.534, 1.054)
pt3dadd(108.014, 194.16, 10.495, 1.006)
pt3dadd(107.927, 194.227, 10.456, 0.956)
pt3dadd(107.839, 194.294, 10.417, 0.908)
pt3dadd(107.751, 194.363, 10.378, 0.86)
pt3dadd(107.664, 194.43, 10.339, 0.81)
pt3dadd(107.576, 194.497, 10.3, 0.762)
pt3dadd(107.489, 194.564, 10.261, 0.712)
pt3dadd(107.401, 194.632, 10.223, 0.664)
pt3dadd(107.318, 194.712, 10.199, 0.62)
pt3dadd(107.236, 194.798, 10.182, 0.578)
pt3dadd(107.155, 194.885, 10.166, 0.534)
pt3dadd(107.074, 194.97, 10.149, 0.492)
pt3dadd(106.993, 195.056, 10.132, 0.45)
pt3dadd(106.911, 195.142, 10.115, 0.408)
pt3dadd(106.83, 195.228, 10.099, 0.364)
pt3dadd(106.749, 195.314, 10.082, 0.322)
pt3dadd(106.668, 195.4, 10.065, 0.28)
pt3dadd(106.586, 195.486, 10.049, 0.238)
pt3dadd(106.51, 195.577, 10.04, 0.226)
pt3dadd(106.435, 195.671, 10.034, 0.226)
pt3dadd(106.36, 195.764, 10.029, 0.226)
pt3dadd(106.285, 195.858, 10.023, 0.226)
pt3dadd(106.21, 195.952, 10.017, 0.226)
pt3dadd(106.135, 196.045, 10.011, 0.226)
pt3dadd(106.06, 196.139, 10.006, 0.226)
pt3dadd(105.985, 196.231, 10, 0.226)
pt3dadd(105.91, 196.325, 9.994, 0.226)
pt3dadd(105.835, 196.418, 9.989, 0.226)
pt3dadd(105.768, 196.518, 9.986, 0.242)
}
}
proc shape3d_85() {
apic[16] { pt3dadd(105.705, 196.62, 9.986, 0.264)
pt3dadd(105.641, 196.722, 9.985, 0.286)
pt3dadd(105.577, 196.823, 9.984, 0.306)
pt3dadd(105.513, 196.925, 9.984, 0.328)
pt3dadd(105.45, 197.027, 9.983, 0.35)
pt3dadd(105.386, 197.129, 9.982, 0.372)
pt3dadd(105.322, 197.23, 9.981, 0.394)
pt3dadd(105.258, 197.332, 9.981, 0.414)
pt3dadd(105.195, 197.434, 9.98, 0.436)
pt3dadd(105.16, 197.548, 9.979, 0.484)
pt3dadd(105.131, 197.664, 9.977, 0.538)
pt3dadd(105.102, 197.78, 9.975, 0.59)
pt3dadd(105.073, 197.897, 9.973, 0.644)
pt3dadd(105.044, 198.013, 9.972, 0.698)
pt3dadd(105.014, 198.13, 9.97, 0.75)
pt3dadd(104.985, 198.246, 9.968, 0.804)
pt3dadd(104.956, 198.362, 9.967, 0.856)
pt3dadd(104.927, 198.479, 9.965, 0.91)
pt3dadd(104.898, 198.595, 9.963, 0.962)
pt3dadd(104.898, 198.714, 9.959, 0.926)
pt3dadd(104.901, 198.834, 9.955, 0.88)
pt3dadd(104.904, 198.954, 9.951, 0.834)
pt3dadd(104.907, 199.074, 9.947, 0.79)
pt3dadd(104.91, 199.194, 9.943, 0.744)
pt3dadd(104.913, 199.314, 9.939, 0.698)
pt3dadd(104.916, 199.434, 9.935, 0.654)
pt3dadd(104.919, 199.554, 9.931, 0.608)
pt3dadd(104.921, 199.673, 9.927, 0.562)
pt3dadd(104.924, 199.793, 9.923, 0.518)
pt3dadd(104.952, 199.909, 9.915, 0.518)
pt3dadd(104.981, 200.026, 9.907, 0.522)
pt3dadd(105.01, 200.142, 9.899, 0.526)
pt3dadd(105.039, 200.257, 9.891, 0.53)
pt3dadd(105.069, 200.374, 9.883, 0.532)
pt3dadd(105.098, 200.49, 9.875, 0.536)
pt3dadd(105.127, 200.605, 9.866, 0.54)
pt3dadd(105.156, 200.722, 9.858, 0.542)
pt3dadd(105.185, 200.838, 9.85, 0.546)
pt3dadd(105.215, 200.953, 9.842, 0.548)
pt3dadd(105.266, 201.06, 9.825, 0.514)
pt3dadd(105.317, 201.167, 9.808, 0.482)
pt3dadd(105.367, 201.274, 9.792, 0.45)
pt3dadd(105.418, 201.38, 9.775, 0.418)
pt3dadd(105.469, 201.487, 9.758, 0.384)
pt3dadd(105.52, 201.594, 9.742, 0.352)
pt3dadd(105.57, 201.701, 9.725, 0.32)
pt3dadd(105.621, 201.809, 9.708, 0.288)
pt3dadd(105.672, 201.916, 9.692, 0.254)
pt3dadd(105.722, 202.021, 9.673, 0.228)
pt3dadd(105.768, 202.124, 9.639, 0.238)
pt3dadd(105.814, 202.228, 9.606, 0.248)
pt3dadd(105.86, 202.331, 9.572, 0.258)
pt3dadd(105.906, 202.435, 9.539, 0.268)
pt3dadd(105.952, 202.538, 9.505, 0.278)
pt3dadd(105.998, 202.642, 9.472, 0.288)
pt3dadd(106.044, 202.745, 9.438, 0.298)
pt3dadd(106.09, 202.848, 9.405, 0.308)
pt3dadd(106.136, 202.951, 9.371, 0.318)
pt3dadd(106.184, 203.053, 9.339, 0.334)
pt3dadd(106.246, 203.153, 9.318, 0.392)
pt3dadd(106.309, 203.252, 9.297, 0.45)
pt3dadd(106.371, 203.352, 9.276, 0.508)
pt3dadd(106.433, 203.452, 9.255, 0.566)
pt3dadd(106.495, 203.551, 9.234, 0.624)
pt3dadd(106.558, 203.65, 9.213, 0.682)
pt3dadd(106.62, 203.749, 9.192, 0.74)
pt3dadd(106.682, 203.849, 9.171, 0.798)
pt3dadd(106.745, 203.948, 9.15, 0.856)
pt3dadd(106.805, 204.049, 9.13, 0.902)
pt3dadd(106.859, 204.156, 9.12, 0.89)
pt3dadd(106.913, 204.263, 9.11, 0.878)
pt3dadd(106.966, 204.37, 9.101, 0.866)
pt3dadd(107.02, 204.476, 9.09, 0.854)
pt3dadd(107.073, 204.582, 9.081, 0.844)
pt3dadd(107.127, 204.689, 9.071, 0.832)
pt3dadd(107.181, 204.796, 9.061, 0.82)
pt3dadd(107.234, 204.902, 9.051, 0.808)
pt3dadd(107.288, 205.009, 9.041, 0.796)
pt3dadd(107.346, 205.114, 9.033, 0.774)
pt3dadd(107.42, 205.207, 9.033, 0.716)
pt3dadd(107.494, 205.302, 9.033, 0.66)
pt3dadd(107.568, 205.397, 9.033, 0.602)
pt3dadd(107.642, 205.49, 9.033, 0.546)
pt3dadd(107.716, 205.585, 9.033, 0.49)
pt3dadd(107.79, 205.68, 9.033, 0.432)
pt3dadd(107.864, 205.775, 9.033, 0.376)
pt3dadd(107.938, 205.868, 9.033, 0.32)
pt3dadd(108.012, 205.963, 9.033, 0.262)
pt3dadd(108.08, 206.062, 9.033, 0.23)
pt3dadd(108.136, 206.168, 9.033, 0.242)
pt3dadd(108.193, 206.274, 9.032, 0.254)
pt3dadd(108.249, 206.38, 9.032, 0.266)
pt3dadd(108.305, 206.485, 9.032, 0.28)
pt3dadd(108.362, 206.592, 9.032, 0.292)
pt3dadd(108.418, 206.698, 9.032, 0.304)
pt3dadd(108.474, 206.803, 9.032, 0.316)
pt3dadd(108.531, 206.91, 9.032, 0.328)
pt3dadd(108.587, 207.016, 9.032, 0.34)
pt3dadd(108.639, 207.124, 9.032, 0.356)
pt3dadd(108.682, 207.235, 9.031, 0.38)
pt3dadd(108.726, 207.347, 9.031, 0.402)
pt3dadd(108.769, 207.46, 9.031, 0.426)
pt3dadd(108.813, 207.571, 9.031, 0.45)
pt3dadd(108.856, 207.683, 9.031, 0.472)
pt3dadd(108.9, 207.794, 9.03, 0.496)
pt3dadd(108.943, 207.906, 9.03, 0.518)
pt3dadd(108.987, 208.019, 9.03, 0.542)
pt3dadd(109.03, 208.13, 9.03, 0.564)
pt3dadd(109.063, 208.244, 9.029, 0.576)
pt3dadd(109.083, 208.363, 9.029, 0.572)
pt3dadd(109.104, 208.481, 9.028, 0.57)
pt3dadd(109.124, 208.6, 9.028, 0.566)
pt3dadd(109.145, 208.718, 9.027, 0.564)
pt3dadd(109.165, 208.836, 9.027, 0.56)
pt3dadd(109.186, 208.955, 9.026, 0.558)
pt3dadd(109.206, 209.072, 9.026, 0.554)
pt3dadd(109.227, 209.191, 9.025, 0.552)
pt3dadd(109.247, 209.309, 9.025, 0.548)
pt3dadd(109.26, 209.428, 9.024, 0.542)
pt3dadd(109.266, 209.548, 9.023, 0.532)
pt3dadd(109.272, 209.668, 9.022, 0.522)
pt3dadd(109.279, 209.788, 9.021, 0.514)
pt3dadd(109.285, 209.908, 9.02, 0.504)
pt3dadd(109.291, 210.028, 9.019, 0.494)
pt3dadd(109.297, 210.148, 9.017, 0.484)
pt3dadd(109.303, 210.266, 9.016, 0.476)
pt3dadd(109.309, 210.386, 9.015, 0.466)
pt3dadd(109.315, 210.506, 9.014, 0.456)
pt3dadd(109.318, 210.626, 9.012, 0.444)
pt3dadd(109.32, 210.746, 9.01, 0.428)
pt3dadd(109.322, 210.866, 9.008, 0.412)
pt3dadd(109.323, 210.986, 9.005, 0.396)
pt3dadd(109.325, 211.106, 9.003, 0.382)
pt3dadd(109.326, 211.226, 9, 0.366)
pt3dadd(109.328, 211.346, 8.998, 0.35)
pt3dadd(109.329, 211.466, 8.995, 0.334)
pt3dadd(109.331, 211.586, 8.993, 0.318)
pt3dadd(109.332, 211.706, 8.991, 0.302)
pt3dadd(109.335, 211.826, 8.986, 0.29)
pt3dadd(109.339, 211.945, 8.98, 0.284)
pt3dadd(109.342, 212.065, 8.974, 0.278)
pt3dadd(109.346, 212.185, 8.968, 0.27)
pt3dadd(109.349, 212.305, 8.961, 0.264)
pt3dadd(109.353, 212.424, 8.955, 0.256)
pt3dadd(109.357, 212.544, 8.949, 0.25)
pt3dadd(109.36, 212.664, 8.943, 0.242)
pt3dadd(109.364, 212.784, 8.936, 0.236)
pt3dadd(109.367, 212.904, 8.93, 0.23)
pt3dadd(109.374, 213.023, 8.921, 0.248)
pt3dadd(109.383, 213.142, 8.909, 0.29)
pt3dadd(109.393, 213.26, 8.897, 0.334)
pt3dadd(109.402, 213.379, 8.885, 0.378)
pt3dadd(109.411, 213.498, 8.873, 0.42)
pt3dadd(109.421, 213.617, 8.861, 0.464)
pt3dadd(109.43, 213.736, 8.849, 0.506)
pt3dadd(109.439, 213.854, 8.837, 0.55)
pt3dadd(109.449, 213.973, 8.825, 0.594)
pt3dadd(109.458, 214.092, 8.813, 0.636)
pt3dadd(109.478, 214.201, 8.783, 0.66)
pt3dadd(109.509, 214.303, 8.736, 0.662)
pt3dadd(109.54, 214.404, 8.689, 0.664)
pt3dadd(109.572, 214.505, 8.642, 0.666)
pt3dadd(109.603, 214.607, 8.595, 0.668)
pt3dadd(109.634, 214.708, 8.548, 0.67)
pt3dadd(109.665, 214.81, 8.501, 0.672)
pt3dadd(109.696, 214.91, 8.454, 0.674)
pt3dadd(109.727, 215.012, 8.407, 0.676)
pt3dadd(109.758, 215.113, 8.361, 0.678)
pt3dadd(109.803, 215.218, 8.331, 0.678)
pt3dadd(109.855, 215.322, 8.31, 0.678)
pt3dadd(109.907, 215.428, 8.288, 0.678)
pt3dadd(109.958, 215.533, 8.267, 0.678)
pt3dadd(110.01, 215.638, 8.246, 0.678)
pt3dadd(110.062, 215.743, 8.224, 0.678)
pt3dadd(110.114, 215.849, 8.203, 0.678)
pt3dadd(110.165, 215.953, 8.182, 0.678)
pt3dadd(110.217, 216.059, 8.16, 0.678)
pt3dadd(110.269, 216.164, 8.139, 0.678)
pt3dadd(110.308, 216.276, 8.129, 0.662)
pt3dadd(110.344, 216.39, 8.123, 0.64)
pt3dadd(110.379, 216.505, 8.117, 0.618)
pt3dadd(110.415, 216.619, 8.111, 0.596)
pt3dadd(110.451, 216.733, 8.104, 0.574)
pt3dadd(110.486, 216.848, 8.098, 0.552)
pt3dadd(110.522, 216.962, 8.092, 0.53)
pt3dadd(110.558, 217.076, 8.086, 0.508)
pt3dadd(110.593, 217.192, 8.08, 0.486)
pt3dadd(110.629, 217.306, 8.074, 0.464)
pt3dadd(110.668, 217.418, 8.073, 0.45)
pt3dadd(110.707, 217.532, 8.073, 0.436)
pt3dadd(110.747, 217.645, 8.072, 0.424)
pt3dadd(110.786, 217.759, 8.072, 0.412)
pt3dadd(110.826, 217.872, 8.072, 0.398)
pt3dadd(110.865, 217.985, 8.072, 0.386)
pt3dadd(110.905, 218.099, 8.072, 0.374)
pt3dadd(110.944, 218.212, 8.072, 0.36)
pt3dadd(110.984, 218.326, 8.072, 0.348)
pt3dadd(111.023, 218.438, 8.072, 0.334)
pt3dadd(111.068, 218.55, 8.072, 0.334)
pt3dadd(111.114, 218.66, 8.072, 0.336)
}
}
proc shape3d_86() {
apic[16] { pt3dadd(111.16, 218.772, 8.072, 0.338)
pt3dadd(111.206, 218.882, 8.072, 0.34)
pt3dadd(111.252, 218.994, 8.072, 0.34)
pt3dadd(111.297, 219.104, 8.072, 0.342)
pt3dadd(111.343, 219.215, 8.072, 0.344)
pt3dadd(111.389, 219.326, 8.072, 0.346)
pt3dadd(111.435, 219.437, 8.072, 0.348)
pt3dadd(111.481, 219.548, 8.072, 0.348)
pt3dadd(111.522, 219.661, 8.072, 0.338)
pt3dadd(111.562, 219.774, 8.072, 0.326)
pt3dadd(111.602, 219.887, 8.071, 0.314)
pt3dadd(111.643, 220, 8.071, 0.302)
pt3dadd(111.683, 220.112, 8.071, 0.29)
pt3dadd(111.723, 220.226, 8.071, 0.278)
pt3dadd(111.763, 220.339, 8.071, 0.264)
pt3dadd(111.803, 220.452, 8.071, 0.252)
pt3dadd(111.844, 220.565, 8.071, 0.24)
pt3dadd(111.884, 220.679, 8.071, 0.228)
pt3dadd(111.934, 220.787, 8.071, 0.226)
pt3dadd(111.987, 220.895, 8.071, 0.226)
pt3dadd(112.04, 221.003, 8.07, 0.226)
pt3dadd(112.092, 221.111, 8.07, 0.226)
pt3dadd(112.145, 221.219, 8.07, 0.226)
pt3dadd(112.197, 221.327, 8.07, 0.226)
pt3dadd(112.25, 221.434, 8.069, 0.226)
pt3dadd(112.303, 221.542, 8.069, 0.226)
pt3dadd(112.355, 221.65, 8.069, 0.226)
pt3dadd(112.408, 221.758, 8.069, 0.226)
pt3dadd(112.486, 221.848, 8.068, 0.25)
pt3dadd(112.567, 221.936, 8.068, 0.274)
pt3dadd(112.647, 222.025, 8.068, 0.3)
pt3dadd(112.728, 222.114, 8.067, 0.326)
pt3dadd(112.809, 222.203, 8.067, 0.352)
pt3dadd(112.89, 222.292, 8.066, 0.376)
pt3dadd(112.971, 222.38, 8.066, 0.402)
pt3dadd(113.051, 222.469, 8.065, 0.428)
pt3dadd(113.132, 222.558, 8.065, 0.454)
pt3dadd(113.213, 222.647, 8.064, 0.478)
pt3dadd(113.294, 222.736, 8.063, 0.482)
pt3dadd(113.376, 222.823, 8.062, 0.488)
pt3dadd(113.457, 222.911, 8.061, 0.492)
pt3dadd(113.539, 222.998, 8.059, 0.498)
pt3dadd(113.621, 223.087, 8.058, 0.502)
pt3dadd(113.702, 223.175, 8.057, 0.508)
pt3dadd(113.784, 223.262, 8.056, 0.512)
pt3dadd(113.865, 223.351, 8.055, 0.518)
pt3dadd(113.947, 223.439, 8.054, 0.522)
pt3dadd(114.027, 223.528, 8.052, 0.526)
pt3dadd(114.099, 223.624, 8.05, 0.518)
pt3dadd(114.172, 223.72, 8.048, 0.51)
pt3dadd(114.244, 223.816, 8.045, 0.504)
pt3dadd(114.316, 223.912, 8.043, 0.496)
pt3dadd(114.388, 224.008, 8.041, 0.488)
pt3dadd(114.46, 224.104, 8.039, 0.48)
pt3dadd(114.532, 224.2, 8.036, 0.474)
pt3dadd(114.604, 224.294, 8.034, 0.466)
pt3dadd(114.676, 224.39, 8.032, 0.458)
pt3dadd(114.748, 224.486, 8.029, 0.454)
pt3dadd(114.82, 224.584, 8.024, 0.468)
pt3dadd(114.891, 224.68, 8.019, 0.482)
pt3dadd(114.962, 224.776, 8.014, 0.494)
pt3dadd(115.033, 224.873, 8.01, 0.508)
pt3dadd(115.105, 224.969, 8.005, 0.522)
pt3dadd(115.176, 225.065, 8, 0.536)
pt3dadd(115.247, 225.161, 7.995, 0.55)
pt3dadd(115.319, 225.258, 7.99, 0.564)
pt3dadd(115.39, 225.354, 7.985, 0.578)
pt3dadd(115.46, 225.451, 7.98, 0.588)
pt3dadd(115.521, 225.553, 7.971, 0.584)
pt3dadd(115.583, 225.656, 7.962, 0.58)
pt3dadd(115.644, 225.758, 7.953, 0.576)
pt3dadd(115.706, 225.862, 7.943, 0.57)
pt3dadd(115.767, 225.964, 7.934, 0.566)
pt3dadd(115.828, 226.066, 7.925, 0.562)
pt3dadd(115.89, 226.169, 7.916, 0.558)
pt3dadd(115.951, 226.271, 7.907, 0.552)
pt3dadd(116.013, 226.374, 7.898, 0.548)
pt3dadd(116.072, 226.476, 7.884, 0.542)
pt3dadd(116.119, 226.577, 7.847, 0.534)
pt3dadd(116.166, 226.678, 7.81, 0.524)
pt3dadd(116.213, 226.78, 7.773, 0.514)
pt3dadd(116.26, 226.88, 7.736, 0.504)
pt3dadd(116.307, 226.981, 7.699, 0.496)
pt3dadd(116.354, 227.082, 7.662, 0.486)
pt3dadd(116.401, 227.183, 7.624, 0.476)
pt3dadd(116.448, 227.284, 7.587, 0.468)
pt3dadd(116.495, 227.386, 7.55, 0.458)
pt3dadd(116.547, 227.485, 7.516, 0.444)
pt3dadd(116.608, 227.582, 7.488, 0.42)
pt3dadd(116.668, 227.68, 7.459, 0.398)
pt3dadd(116.729, 227.778, 7.43, 0.376)
pt3dadd(116.79, 227.875, 7.401, 0.354)
pt3dadd(116.85, 227.974, 7.373, 0.332)
pt3dadd(116.911, 228.071, 7.344, 0.308)
pt3dadd(116.971, 228.168, 7.315, 0.286)
pt3dadd(117.032, 228.266, 7.287, 0.264)
pt3dadd(117.093, 228.364, 7.258, 0.242)
pt3dadd(117.148, 228.467, 7.239, 0.238)
pt3dadd(117.198, 228.576, 7.232, 0.258)
pt3dadd(117.248, 228.684, 7.225, 0.278)
pt3dadd(117.297, 228.793, 7.218, 0.298)
pt3dadd(117.347, 228.902, 7.211, 0.318)
pt3dadd(117.397, 229.012, 7.204, 0.336)
pt3dadd(117.446, 229.12, 7.197, 0.356)
pt3dadd(117.496, 229.229, 7.19, 0.376)
pt3dadd(117.546, 229.338, 7.183, 0.396)
pt3dadd(117.595, 229.447, 7.176, 0.416)
pt3dadd(117.649, 229.554, 7.175, 0.422)
pt3dadd(117.708, 229.658, 7.182, 0.412)
pt3dadd(117.766, 229.763, 7.19, 0.402)
pt3dadd(117.825, 229.867, 7.197, 0.392)
pt3dadd(117.884, 229.972, 7.204, 0.382)
pt3dadd(117.942, 230.075, 7.211, 0.372)
pt3dadd(118.001, 230.179, 7.219, 0.36)
pt3dadd(118.06, 230.284, 7.226, 0.35)
pt3dadd(118.118, 230.388, 7.233, 0.34)
pt3dadd(118.177, 230.492, 7.24, 0.33)
pt3dadd(118.227, 230.599, 7.255, 0.354)
pt3dadd(118.267, 230.708, 7.279, 0.412)
pt3dadd(118.307, 230.819, 7.302, 0.472)
pt3dadd(118.347, 230.928, 7.326, 0.53)
pt3dadd(118.388, 231.037, 7.349, 0.59)
pt3dadd(118.428, 231.148, 7.373, 0.648)
pt3dadd(118.468, 231.257, 7.396, 0.708)
pt3dadd(118.508, 231.366, 7.419, 0.766)
pt3dadd(118.548, 231.475, 7.443, 0.826)
pt3dadd(118.589, 231.586, 7.466, 0.884)
pt3dadd(118.629, 231.688, 7.505, 0.87)
pt3dadd(118.669, 231.786, 7.551, 0.824)
pt3dadd(118.709, 231.886, 7.596, 0.78)
pt3dadd(118.749, 231.985, 7.642, 0.734)
pt3dadd(118.788, 232.084, 7.687, 0.688)
pt3dadd(118.828, 232.183, 7.733, 0.644)
pt3dadd(118.868, 232.282, 7.778, 0.598)
pt3dadd(118.908, 232.381, 7.824, 0.552)
pt3dadd(118.948, 232.481, 7.869, 0.508)
pt3dadd(118.988, 232.579, 7.915, 0.462)
pt3dadd(119.068, 232.66, 7.936, 0.434)
pt3dadd(119.16, 232.735, 7.951, 0.41)
pt3dadd(119.251, 232.812, 7.967, 0.388)
pt3dadd(119.343, 232.888, 7.982, 0.364)
pt3dadd(119.434, 232.963, 7.997, 0.342)
pt3dadd(119.525, 233.039, 8.012, 0.318)
pt3dadd(119.616, 233.114, 8.027, 0.296)
pt3dadd(119.708, 233.19, 8.042, 0.272)
pt3dadd(119.799, 233.266, 8.057, 0.25)
pt3dadd(119.891, 233.341, 8.073, 0.226)
pt3dadd(119.985, 233.414, 8.073, 0.226)
pt3dadd(120.08, 233.489, 8.073, 0.226)
pt3dadd(120.175, 233.562, 8.073, 0.226)
pt3dadd(120.269, 233.636, 8.073, 0.226)
pt3dadd(120.364, 233.71, 8.073, 0.226)
pt3dadd(120.458, 233.783, 8.073, 0.226)
pt3dadd(120.553, 233.857, 8.073, 0.226)
pt3dadd(120.648, 233.93, 8.073, 0.226)
pt3dadd(120.743, 234.005, 8.073, 0.226)
pt3dadd(120.838, 234.078, 8.073, 0.226)
}
apic[17] {pt3dclear()
pt3dadd(85.09, 141.846, 8.31, 0.904)
pt3dadd(85.09, 141.836, 8.3, 0.904)
pt3dadd(85.09, 141.761, 8.223, 0.904)
pt3dadd(85.09, 141.685, 8.145, 0.904)
pt3dadd(85.09, 141.61, 8.067, 0.904)
pt3dadd(85.09, 141.534, 7.99, 0.904)
pt3dadd(85.09, 141.457, 7.912, 0.904)
pt3dadd(85.09, 141.382, 7.835, 0.904)
pt3dadd(85.09, 141.306, 7.757, 0.904)
pt3dadd(85.09, 141.23, 7.68, 0.904)
pt3dadd(85.09, 141.155, 7.602, 0.904)
pt3dadd(85.09, 141.079, 7.525, 0.904)
pt3dadd(85.09, 141.002, 7.447, 0.904)
pt3dadd(85.09, 140.927, 7.37, 0.904)
pt3dadd(85.094, 140.852, 7.294, 0.902)
pt3dadd(85.206, 140.82, 7.271, 0.842)
pt3dadd(85.319, 140.789, 7.249, 0.784)
pt3dadd(85.431, 140.756, 7.226, 0.724)
pt3dadd(85.544, 140.724, 7.204, 0.664)
pt3dadd(85.656, 140.693, 7.181, 0.604)
pt3dadd(85.768, 140.66, 7.158, 0.544)
pt3dadd(85.881, 140.628, 7.136, 0.486)
pt3dadd(85.993, 140.596, 7.113, 0.426)
pt3dadd(86.112, 140.582, 7.111, 0.436)
pt3dadd(86.231, 140.572, 7.111, 0.454)
pt3dadd(86.351, 140.561, 7.111, 0.47)
pt3dadd(86.47, 140.549, 7.11, 0.488)
pt3dadd(86.59, 140.538, 7.11, 0.504)
pt3dadd(86.709, 140.526, 7.11, 0.522)
pt3dadd(86.829, 140.515, 7.11, 0.538)
pt3dadd(86.948, 140.504, 7.11, 0.556)
pt3dadd(87.068, 140.492, 7.11, 0.572)
pt3dadd(87.187, 140.482, 7.109, 0.59)
pt3dadd(87.303, 140.45, 7.109, 0.616)
pt3dadd(87.418, 140.417, 7.109, 0.644)
pt3dadd(87.533, 140.383, 7.109, 0.672)
pt3dadd(87.648, 140.35, 7.109, 0.7)
pt3dadd(87.764, 140.316, 7.108, 0.726)
pt3dadd(87.879, 140.282, 7.108, 0.754)
pt3dadd(87.994, 140.249, 7.108, 0.782)
pt3dadd(88.109, 140.215, 7.107, 0.808)
pt3dadd(88.225, 140.183, 7.107, 0.836)
pt3dadd(88.34, 140.149, 7.107, 0.864)
}
}
proc shape3d_87() {
apic[17] { pt3dadd(88.458, 140.129, 7.106, 0.888)
pt3dadd(88.577, 140.11, 7.106, 0.91)
pt3dadd(88.695, 140.09, 7.105, 0.934)
pt3dadd(88.814, 140.071, 7.105, 0.958)
pt3dadd(88.932, 140.052, 7.104, 0.98)
pt3dadd(89.05, 140.033, 7.103, 1.004)
pt3dadd(89.169, 140.014, 7.103, 1.028)
pt3dadd(89.287, 139.994, 7.102, 1.05)
pt3dadd(89.406, 139.975, 7.102, 1.074)
pt3dadd(89.524, 139.956, 7.101, 1.098)
pt3dadd(89.641, 139.982, 7.1, 1.062)
pt3dadd(89.757, 140.01, 7.099, 1.026)
pt3dadd(89.874, 140.039, 7.097, 0.99)
pt3dadd(89.991, 140.066, 7.096, 0.952)
pt3dadd(90.108, 140.094, 7.095, 0.916)
pt3dadd(90.224, 140.123, 7.093, 0.88)
pt3dadd(90.341, 140.15, 7.092, 0.842)
pt3dadd(90.457, 140.179, 7.091, 0.806)
pt3dadd(90.574, 140.207, 7.089, 0.77)
pt3dadd(90.691, 140.236, 7.088, 0.736)
pt3dadd(90.806, 140.267, 7.085, 0.75)
pt3dadd(90.922, 140.298, 7.083, 0.766)
pt3dadd(91.038, 140.33, 7.08, 0.78)
pt3dadd(91.154, 140.362, 7.077, 0.796)
pt3dadd(91.269, 140.393, 7.075, 0.81)
pt3dadd(91.385, 140.425, 7.072, 0.824)
pt3dadd(91.501, 140.456, 7.069, 0.84)
pt3dadd(91.617, 140.488, 7.067, 0.854)
pt3dadd(91.732, 140.52, 7.064, 0.868)
pt3dadd(91.848, 140.55, 7.061, 0.88)
pt3dadd(91.966, 140.569, 7.054, 0.836)
pt3dadd(92.084, 140.588, 7.046, 0.794)
pt3dadd(92.203, 140.608, 7.039, 0.75)
pt3dadd(92.321, 140.627, 7.032, 0.708)
pt3dadd(92.439, 140.646, 7.025, 0.666)
pt3dadd(92.557, 140.665, 7.018, 0.622)
pt3dadd(92.675, 140.684, 7.011, 0.58)
pt3dadd(92.793, 140.704, 7.004, 0.536)
pt3dadd(92.911, 140.723, 6.997, 0.494)
pt3dadd(93.03, 140.742, 6.989, 0.456)
pt3dadd(93.147, 140.753, 6.969, 0.492)
pt3dadd(93.264, 140.765, 6.95, 0.528)
pt3dadd(93.381, 140.777, 6.93, 0.564)
pt3dadd(93.498, 140.789, 6.91, 0.602)
pt3dadd(93.615, 140.8, 6.891, 0.638)
pt3dadd(93.732, 140.812, 6.871, 0.674)
pt3dadd(93.849, 140.824, 6.852, 0.71)
pt3dadd(93.966, 140.836, 6.832, 0.746)
pt3dadd(94.083, 140.846, 6.813, 0.782)
pt3dadd(94.197, 140.863, 6.788, 0.808)
pt3dadd(94.298, 140.9, 6.744, 0.796)
pt3dadd(94.399, 140.938, 6.699, 0.782)
pt3dadd(94.5, 140.975, 6.655, 0.77)
pt3dadd(94.602, 141.011, 6.611, 0.756)
pt3dadd(94.703, 141.048, 6.567, 0.744)
pt3dadd(94.804, 141.085, 6.522, 0.732)
pt3dadd(94.905, 141.121, 6.478, 0.718)
pt3dadd(95.006, 141.158, 6.434, 0.706)
pt3dadd(95.107, 141.196, 6.39, 0.694)
pt3dadd(95.211, 141.235, 6.356, 0.676)
pt3dadd(95.32, 141.28, 6.336, 0.654)
pt3dadd(95.429, 141.325, 6.316, 0.63)
pt3dadd(95.538, 141.37, 6.296, 0.608)
pt3dadd(95.647, 141.414, 6.276, 0.584)
pt3dadd(95.755, 141.458, 6.256, 0.562)
pt3dadd(95.864, 141.503, 6.236, 0.538)
pt3dadd(95.973, 141.548, 6.216, 0.516)
pt3dadd(96.082, 141.593, 6.196, 0.492)
pt3dadd(96.191, 141.637, 6.177, 0.47)
pt3dadd(96.303, 141.673, 6.163, 0.462)
pt3dadd(96.42, 141.701, 6.157, 0.472)
pt3dadd(96.537, 141.727, 6.151, 0.482)
pt3dadd(96.653, 141.755, 6.145, 0.492)
pt3dadd(96.77, 141.781, 6.139, 0.502)
pt3dadd(96.887, 141.809, 6.133, 0.512)
pt3dadd(97.003, 141.835, 6.126, 0.522)
pt3dadd(97.12, 141.863, 6.12, 0.532)
pt3dadd(97.237, 141.89, 6.114, 0.542)
pt3dadd(97.353, 141.917, 6.108, 0.552)
pt3dadd(97.471, 141.94, 6.102, 0.562)
pt3dadd(97.589, 141.958, 6.095, 0.574)
pt3dadd(97.707, 141.977, 6.089, 0.588)
pt3dadd(97.826, 141.995, 6.082, 0.6)
pt3dadd(97.944, 142.014, 6.076, 0.612)
pt3dadd(98.062, 142.032, 6.069, 0.624)
pt3dadd(98.181, 142.051, 6.063, 0.636)
pt3dadd(98.299, 142.069, 6.056, 0.648)
pt3dadd(98.417, 142.088, 6.05, 0.66)
pt3dadd(98.536, 142.106, 6.044, 0.672)
pt3dadd(98.649, 142.14, 6.035, 0.688)
pt3dadd(98.759, 142.188, 6.023, 0.708)
pt3dadd(98.868, 142.235, 6.012, 0.728)
pt3dadd(98.977, 142.283, 6.001, 0.748)
pt3dadd(99.087, 142.33, 5.989, 0.768)
pt3dadd(99.196, 142.378, 5.978, 0.788)
pt3dadd(99.306, 142.424, 5.966, 0.808)
pt3dadd(99.415, 142.472, 5.955, 0.828)
pt3dadd(99.525, 142.519, 5.944, 0.848)
pt3dadd(99.634, 142.567, 5.932, 0.868)
pt3dadd(99.735, 142.615, 5.901, 0.862)
pt3dadd(99.83, 142.666, 5.857, 0.84)
pt3dadd(99.925, 142.715, 5.812, 0.816)
pt3dadd(100.02, 142.765, 5.767, 0.792)
pt3dadd(100.116, 142.814, 5.723, 0.77)
pt3dadd(100.211, 142.865, 5.678, 0.746)
pt3dadd(100.306, 142.914, 5.633, 0.722)
pt3dadd(100.401, 142.964, 5.589, 0.7)
pt3dadd(100.496, 143.014, 5.544, 0.676)
pt3dadd(100.591, 143.063, 5.499, 0.652)
pt3dadd(100.695, 143.11, 5.468, 0.642)
pt3dadd(100.802, 143.153, 5.442, 0.636)
pt3dadd(100.909, 143.197, 5.416, 0.632)
pt3dadd(101.016, 143.242, 5.39, 0.626)
pt3dadd(101.124, 143.286, 5.365, 0.622)
pt3dadd(101.231, 143.329, 5.339, 0.616)
pt3dadd(101.338, 143.374, 5.313, 0.612)
pt3dadd(101.445, 143.418, 5.287, 0.606)
pt3dadd(101.553, 143.461, 5.261, 0.602)
pt3dadd(101.66, 143.506, 5.235, 0.596)
pt3dadd(101.767, 143.557, 5.221, 0.608)
pt3dadd(101.874, 143.61, 5.209, 0.624)
pt3dadd(101.98, 143.663, 5.198, 0.64)
pt3dadd(102.087, 143.716, 5.187, 0.658)
pt3dadd(102.194, 143.768, 5.175, 0.674)
pt3dadd(102.301, 143.821, 5.164, 0.69)
pt3dadd(102.408, 143.874, 5.153, 0.708)
pt3dadd(102.515, 143.927, 5.141, 0.724)
pt3dadd(102.621, 143.98, 5.13, 0.74)
pt3dadd(102.728, 144.034, 5.118, 0.758)
pt3dadd(102.837, 144.083, 5.11, 0.75)
pt3dadd(102.946, 144.132, 5.102, 0.738)
pt3dadd(103.055, 144.181, 5.095, 0.724)
pt3dadd(103.164, 144.23, 5.087, 0.71)
pt3dadd(103.273, 144.28, 5.08, 0.698)
pt3dadd(103.382, 144.329, 5.072, 0.684)
pt3dadd(103.491, 144.378, 5.065, 0.67)
pt3dadd(103.6, 144.427, 5.057, 0.658)
pt3dadd(103.71, 144.476, 5.05, 0.644)
pt3dadd(103.819, 144.526, 5.042, 0.63)
pt3dadd(103.923, 144.582, 5.029, 0.666)
pt3dadd(104.027, 144.64, 5.015, 0.712)
pt3dadd(104.131, 144.697, 5.001, 0.76)
pt3dadd(104.235, 144.756, 4.986, 0.808)
pt3dadd(104.338, 144.814, 4.972, 0.854)
pt3dadd(104.442, 144.871, 4.958, 0.902)
pt3dadd(104.546, 144.929, 4.944, 0.948)
pt3dadd(104.649, 144.986, 4.929, 0.996)
pt3dadd(104.753, 145.045, 4.915, 1.042)
pt3dadd(104.857, 145.103, 4.901, 1.09)
pt3dadd(104.962, 145.146, 4.869, 1.078)
pt3dadd(105.066, 145.188, 4.835, 1.058)
pt3dadd(105.171, 145.23, 4.801, 1.036)
pt3dadd(105.276, 145.272, 4.767, 1.016)
pt3dadd(105.381, 145.313, 4.733, 0.996)
pt3dadd(105.486, 145.355, 4.699, 0.974)
pt3dadd(105.59, 145.397, 4.665, 0.954)
pt3dadd(105.695, 145.439, 4.63, 0.934)
pt3dadd(105.8, 145.48, 4.596, 0.914)
pt3dadd(105.905, 145.522, 4.562, 0.892)
pt3dadd(106.007, 145.578, 4.54, 0.872)
pt3dadd(106.109, 145.636, 4.519, 0.852)
pt3dadd(106.211, 145.693, 4.498, 0.832)
pt3dadd(106.313, 145.752, 4.477, 0.812)
pt3dadd(106.415, 145.81, 4.456, 0.792)
pt3dadd(106.517, 145.867, 4.435, 0.772)
pt3dadd(106.619, 145.925, 4.414, 0.752)
pt3dadd(106.722, 145.984, 4.393, 0.732)
pt3dadd(106.824, 146.041, 4.372, 0.712)
pt3dadd(106.926, 146.099, 4.351, 0.692)
pt3dadd(107.037, 146.141, 4.339, 0.708)
pt3dadd(107.15, 146.179, 4.327, 0.728)
pt3dadd(107.262, 146.219, 4.316, 0.746)
pt3dadd(107.375, 146.258, 4.305, 0.766)
pt3dadd(107.487, 146.297, 4.294, 0.786)
pt3dadd(107.6, 146.336, 4.283, 0.806)
pt3dadd(107.713, 146.376, 4.272, 0.826)
pt3dadd(107.825, 146.414, 4.26, 0.846)
pt3dadd(107.938, 146.454, 4.249, 0.864)
pt3dadd(108.051, 146.494, 4.238, 0.884)
pt3dadd(108.161, 146.539, 4.236, 0.888)
pt3dadd(108.271, 146.587, 4.235, 0.89)
pt3dadd(108.381, 146.635, 4.235, 0.892)
pt3dadd(108.492, 146.682, 4.234, 0.894)
pt3dadd(108.602, 146.73, 4.233, 0.894)
pt3dadd(108.712, 146.778, 4.232, 0.896)
pt3dadd(108.822, 146.825, 4.231, 0.898)
pt3dadd(108.932, 146.873, 4.231, 0.9)
pt3dadd(109.042, 146.921, 4.23, 0.902)
pt3dadd(109.152, 146.968, 4.229, 0.904)
pt3dadd(109.27, 146.99, 4.229, 0.886)
pt3dadd(109.389, 147.01, 4.229, 0.866)
pt3dadd(109.507, 147.03, 4.229, 0.844)
pt3dadd(109.625, 147.049, 4.229, 0.824)
pt3dadd(109.744, 147.068, 4.228, 0.804)
pt3dadd(109.862, 147.089, 4.228, 0.784)
pt3dadd(109.98, 147.108, 4.228, 0.764)
pt3dadd(110.099, 147.127, 4.228, 0.742)
pt3dadd(110.217, 147.148, 4.228, 0.722)
pt3dadd(110.336, 147.167, 4.228, 0.702)
pt3dadd(110.452, 147.14, 4.228, 0.68)
}
}
proc shape3d_88() {
apic[17] { pt3dadd(110.568, 147.112, 4.228, 0.656)
pt3dadd(110.685, 147.083, 4.228, 0.634)
pt3dadd(110.801, 147.053, 4.228, 0.61)
pt3dadd(110.918, 147.024, 4.228, 0.588)
pt3dadd(111.034, 146.995, 4.228, 0.564)
pt3dadd(111.151, 146.966, 4.228, 0.542)
pt3dadd(111.267, 146.938, 4.228, 0.52)
pt3dadd(111.384, 146.909, 4.228, 0.496)
pt3dadd(111.5, 146.879, 4.228, 0.474)
pt3dadd(111.616, 146.849, 4.228, 0.472)
pt3dadd(111.732, 146.819, 4.228, 0.47)
pt3dadd(111.849, 146.789, 4.227, 0.468)
pt3dadd(111.965, 146.759, 4.227, 0.466)
pt3dadd(112.081, 146.729, 4.227, 0.464)
pt3dadd(112.197, 146.699, 4.227, 0.46)
pt3dadd(112.313, 146.669, 4.227, 0.458)
pt3dadd(112.429, 146.639, 4.227, 0.456)
pt3dadd(112.546, 146.609, 4.227, 0.454)
pt3dadd(112.662, 146.58, 4.227, 0.452)
pt3dadd(112.781, 146.563, 4.226, 0.474)
pt3dadd(112.9, 146.546, 4.226, 0.496)
pt3dadd(113.019, 146.53, 4.226, 0.516)
pt3dadd(113.137, 146.514, 4.226, 0.538)
pt3dadd(113.256, 146.497, 4.225, 0.56)
pt3dadd(113.375, 146.48, 4.225, 0.58)
pt3dadd(113.494, 146.465, 4.225, 0.602)
pt3dadd(113.613, 146.448, 4.224, 0.624)
pt3dadd(113.732, 146.431, 4.224, 0.644)
pt3dadd(113.851, 146.416, 4.224, 0.664)
pt3dadd(113.971, 146.411, 4.223, 0.62)
pt3dadd(114.09, 146.406, 4.223, 0.576)
pt3dadd(114.21, 146.401, 4.222, 0.534)
pt3dadd(114.33, 146.398, 4.222, 0.49)
pt3dadd(114.45, 146.393, 4.221, 0.446)
pt3dadd(114.57, 146.388, 4.22, 0.402)
pt3dadd(114.69, 146.383, 4.22, 0.36)
pt3dadd(114.81, 146.378, 4.219, 0.316)
pt3dadd(114.93, 146.375, 4.219, 0.272)
pt3dadd(115.05, 146.37, 4.218, 0.232)
pt3dadd(115.169, 146.36, 4.217, 0.252)
pt3dadd(115.289, 146.351, 4.215, 0.274)
pt3dadd(115.409, 146.341, 4.214, 0.296)
pt3dadd(115.528, 146.332, 4.212, 0.316)
pt3dadd(115.648, 146.322, 4.211, 0.338)
pt3dadd(115.767, 146.312, 4.21, 0.358)
pt3dadd(115.887, 146.303, 4.208, 0.38)
pt3dadd(116.007, 146.293, 4.207, 0.4)
pt3dadd(116.126, 146.284, 4.205, 0.422)
pt3dadd(116.246, 146.273, 4.204, 0.442)
pt3dadd(116.364, 146.254, 4.201, 0.422)
pt3dadd(116.482, 146.233, 4.198, 0.402)
pt3dadd(116.601, 146.214, 4.194, 0.384)
pt3dadd(116.719, 146.194, 4.191, 0.364)
pt3dadd(116.837, 146.174, 4.188, 0.344)
pt3dadd(116.955, 146.154, 4.185, 0.324)
pt3dadd(117.074, 146.134, 4.182, 0.306)
pt3dadd(117.192, 146.114, 4.179, 0.286)
pt3dadd(117.31, 146.094, 4.175, 0.266)
pt3dadd(117.428, 146.072, 4.172, 0.25)
pt3dadd(117.537, 146.022, 4.165, 0.272)
pt3dadd(117.645, 145.973, 4.158, 0.296)
pt3dadd(117.754, 145.922, 4.151, 0.32)
pt3dadd(117.863, 145.872, 4.144, 0.342)
pt3dadd(117.972, 145.823, 4.137, 0.366)
pt3dadd(118.081, 145.772, 4.13, 0.388)
pt3dadd(118.189, 145.723, 4.122, 0.412)
pt3dadd(118.298, 145.673, 4.115, 0.434)
pt3dadd(118.407, 145.622, 4.108, 0.458)
pt3dadd(118.516, 145.573, 4.1, 0.48)
pt3dadd(118.626, 145.531, 4.081, 0.494)
pt3dadd(118.735, 145.489, 4.061, 0.508)
pt3dadd(118.845, 145.447, 4.042, 0.522)
pt3dadd(118.955, 145.405, 4.022, 0.536)
pt3dadd(119.065, 145.362, 4.003, 0.55)
pt3dadd(119.175, 145.32, 3.983, 0.564)
pt3dadd(119.285, 145.278, 3.964, 0.578)
pt3dadd(119.395, 145.236, 3.944, 0.592)
pt3dadd(119.505, 145.194, 3.925, 0.606)
pt3dadd(119.612, 145.15, 3.901, 0.62)
pt3dadd(119.71, 145.098, 3.862, 0.626)
pt3dadd(119.808, 145.046, 3.824, 0.634)
pt3dadd(119.906, 144.995, 3.785, 0.642)
pt3dadd(120.004, 144.943, 3.746, 0.65)
pt3dadd(120.101, 144.892, 3.707, 0.656)
pt3dadd(120.199, 144.841, 3.668, 0.664)
pt3dadd(120.298, 144.79, 3.63, 0.672)
pt3dadd(120.395, 144.738, 3.591, 0.678)
pt3dadd(120.493, 144.686, 3.552, 0.686)
pt3dadd(120.594, 144.635, 3.522, 0.694)
pt3dadd(120.701, 144.581, 3.51, 0.7)
pt3dadd(120.808, 144.528, 3.498, 0.708)
pt3dadd(120.913, 144.475, 3.485, 0.714)
pt3dadd(121.02, 144.422, 3.473, 0.722)
pt3dadd(121.127, 144.368, 3.461, 0.728)
pt3dadd(121.234, 144.316, 3.448, 0.736)
pt3dadd(121.34, 144.263, 3.436, 0.742)
pt3dadd(121.446, 144.21, 3.424, 0.75)
pt3dadd(121.553, 144.156, 3.411, 0.756)
pt3dadd(121.661, 144.103, 3.407, 0.752)
pt3dadd(121.768, 144.05, 3.412, 0.73)
pt3dadd(121.876, 143.998, 3.418, 0.708)
pt3dadd(121.984, 143.946, 3.424, 0.686)
pt3dadd(122.09, 143.893, 3.429, 0.664)
pt3dadd(122.198, 143.84, 3.435, 0.642)
pt3dadd(122.306, 143.788, 3.44, 0.62)
pt3dadd(122.413, 143.735, 3.446, 0.598)
pt3dadd(122.521, 143.682, 3.451, 0.576)
pt3dadd(122.629, 143.63, 3.457, 0.554)
pt3dadd(122.737, 143.582, 3.472, 0.532)
pt3dadd(122.845, 143.54, 3.497, 0.51)
pt3dadd(122.953, 143.5, 3.523, 0.49)
pt3dadd(123.061, 143.458, 3.549, 0.468)
pt3dadd(123.17, 143.416, 3.574, 0.446)
pt3dadd(123.278, 143.374, 3.6, 0.426)
pt3dadd(123.386, 143.333, 3.626, 0.404)
pt3dadd(123.494, 143.291, 3.651, 0.382)
pt3dadd(123.602, 143.249, 3.677, 0.362)
pt3dadd(123.712, 143.208, 3.703, 0.34)
pt3dadd(123.821, 143.176, 3.731, 0.332)
pt3dadd(123.932, 143.15, 3.762, 0.332)
pt3dadd(124.044, 143.124, 3.793, 0.334)
pt3dadd(124.154, 143.099, 3.824, 0.334)
pt3dadd(124.266, 143.074, 3.855, 0.334)
pt3dadd(124.378, 143.047, 3.885, 0.336)
pt3dadd(124.489, 143.022, 3.916, 0.336)
pt3dadd(124.6, 142.997, 3.947, 0.336)
pt3dadd(124.711, 142.97, 3.978, 0.336)
pt3dadd(124.823, 142.945, 4.009, 0.338)
pt3dadd(124.937, 142.924, 4.032, 0.344)
pt3dadd(125.053, 142.906, 4.052, 0.356)
pt3dadd(125.17, 142.888, 4.071, 0.368)
pt3dadd(125.286, 142.868, 4.091, 0.38)
pt3dadd(125.402, 142.85, 4.11, 0.39)
pt3dadd(125.518, 142.832, 4.13, 0.402)
pt3dadd(125.634, 142.813, 4.149, 0.414)
pt3dadd(125.75, 142.795, 4.169, 0.426)
pt3dadd(125.867, 142.777, 4.188, 0.436)
pt3dadd(125.983, 142.758, 4.208, 0.448)
pt3dadd(126.098, 142.732, 4.221, 0.46)
pt3dadd(126.214, 142.699, 4.231, 0.47)
pt3dadd(126.329, 142.668, 4.241, 0.482)
pt3dadd(126.444, 142.636, 4.252, 0.494)
pt3dadd(126.559, 142.604, 4.262, 0.504)
pt3dadd(126.674, 142.572, 4.272, 0.516)
pt3dadd(126.79, 142.541, 4.282, 0.528)
pt3dadd(126.905, 142.508, 4.292, 0.538)
pt3dadd(127.019, 142.477, 4.302, 0.55)
pt3dadd(127.134, 142.446, 4.312, 0.56)
pt3dadd(127.247, 142.406, 4.321, 0.564)
pt3dadd(127.36, 142.366, 4.33, 0.564)
pt3dadd(127.471, 142.324, 4.339, 0.566)
pt3dadd(127.584, 142.283, 4.348, 0.566)
pt3dadd(127.696, 142.241, 4.356, 0.566)
pt3dadd(127.808, 142.2, 4.365, 0.568)
pt3dadd(127.92, 142.158, 4.374, 0.568)
pt3dadd(128.033, 142.117, 4.383, 0.568)
pt3dadd(128.144, 142.075, 4.391, 0.57)
pt3dadd(128.257, 142.034, 4.4, 0.57)
pt3dadd(128.369, 142.002, 4.421, 0.578)
pt3dadd(128.482, 141.973, 4.445, 0.586)
pt3dadd(128.594, 141.943, 4.469, 0.596)
pt3dadd(128.707, 141.914, 4.493, 0.606)
pt3dadd(128.82, 141.884, 4.517, 0.614)
pt3dadd(128.933, 141.856, 4.541, 0.624)
pt3dadd(129.046, 141.826, 4.565, 0.632)
pt3dadd(129.158, 141.797, 4.589, 0.642)
pt3dadd(129.271, 141.768, 4.613, 0.652)
pt3dadd(129.384, 141.738, 4.637, 0.66)
pt3dadd(129.494, 141.708, 4.667, 0.674)
pt3dadd(129.604, 141.678, 4.699, 0.688)
pt3dadd(129.714, 141.648, 4.731, 0.702)
pt3dadd(129.823, 141.618, 4.762, 0.716)
pt3dadd(129.934, 141.588, 4.794, 0.73)
pt3dadd(130.043, 141.558, 4.826, 0.744)
pt3dadd(130.153, 141.528, 4.857, 0.758)
pt3dadd(130.262, 141.498, 4.889, 0.772)
pt3dadd(130.373, 141.468, 4.921, 0.786)
pt3dadd(130.482, 141.438, 4.952, 0.8)
pt3dadd(130.596, 141.409, 4.972, 0.8)
pt3dadd(130.71, 141.379, 4.991, 0.8)
pt3dadd(130.824, 141.35, 5.01, 0.8)
pt3dadd(130.938, 141.32, 5.029, 0.8)
pt3dadd(131.053, 141.292, 5.048, 0.8)
pt3dadd(131.167, 141.262, 5.066, 0.8)
pt3dadd(131.281, 141.233, 5.085, 0.8)
pt3dadd(131.395, 141.203, 5.104, 0.8)
pt3dadd(131.509, 141.174, 5.123, 0.8)
pt3dadd(131.623, 141.144, 5.142, 0.8)
pt3dadd(131.741, 141.169, 5.147, 0.812)
pt3dadd(131.857, 141.194, 5.152, 0.822)
pt3dadd(131.975, 141.22, 5.158, 0.834)
pt3dadd(132.092, 141.245, 5.163, 0.844)
pt3dadd(132.209, 141.27, 5.168, 0.854)
pt3dadd(132.326, 141.295, 5.173, 0.866)
pt3dadd(132.444, 141.32, 5.179, 0.876)
pt3dadd(132.56, 141.346, 5.184, 0.886)
pt3dadd(132.678, 141.37, 5.189, 0.898)
pt3dadd(132.794, 141.397, 5.192, 0.876)
pt3dadd(132.911, 141.428, 5.193, 0.808)
pt3dadd(133.026, 141.46, 5.193, 0.74)
}
}
proc shape3d_89() {
apic[17] { pt3dadd(133.142, 141.49, 5.194, 0.672)
pt3dadd(133.259, 141.521, 5.194, 0.604)
pt3dadd(133.374, 141.551, 5.194, 0.536)
pt3dadd(133.49, 141.582, 5.195, 0.468)
pt3dadd(133.607, 141.613, 5.195, 0.4)
pt3dadd(133.722, 141.643, 5.196, 0.332)
pt3dadd(133.838, 141.674, 5.196, 0.264)
pt3dadd(133.956, 141.692, 5.197, 0.234)
pt3dadd(134.076, 141.697, 5.198, 0.25)
pt3dadd(134.196, 141.701, 5.199, 0.266)
pt3dadd(134.316, 141.704, 5.2, 0.284)
pt3dadd(134.436, 141.709, 5.2, 0.3)
pt3dadd(134.556, 141.713, 5.201, 0.316)
pt3dadd(134.676, 141.716, 5.202, 0.334)
pt3dadd(134.796, 141.721, 5.203, 0.35)
pt3dadd(134.916, 141.725, 5.204, 0.366)
pt3dadd(135.036, 141.728, 5.205, 0.384)
pt3dadd(135.155, 141.726, 5.206, 0.396)
pt3dadd(135.275, 141.714, 5.208, 0.408)
pt3dadd(135.394, 141.703, 5.21, 0.418)
pt3dadd(135.514, 141.692, 5.212, 0.428)
pt3dadd(135.634, 141.68, 5.214, 0.438)
pt3dadd(135.752, 141.67, 5.216, 0.45)
pt3dadd(135.872, 141.659, 5.218, 0.46)
pt3dadd(135.991, 141.647, 5.22, 0.47)
pt3dadd(136.111, 141.636, 5.221, 0.48)
pt3dadd(136.23, 141.625, 5.223, 0.49)
pt3dadd(136.349, 141.606, 5.226, 0.482)
pt3dadd(136.465, 141.577, 5.231, 0.456)
pt3dadd(136.582, 141.55, 5.235, 0.428)
pt3dadd(136.698, 141.521, 5.239, 0.402)
pt3dadd(136.814, 141.493, 5.243, 0.374)
pt3dadd(136.931, 141.464, 5.247, 0.346)
pt3dadd(137.047, 141.437, 5.252, 0.32)
pt3dadd(137.164, 141.408, 5.256, 0.292)
pt3dadd(137.28, 141.38, 5.26, 0.264)
pt3dadd(137.398, 141.352, 5.264, 0.238)
pt3dadd(137.512, 141.316, 5.271, 0.23)
pt3dadd(137.623, 141.275, 5.278, 0.24)
pt3dadd(137.736, 141.234, 5.286, 0.248)
pt3dadd(137.849, 141.193, 5.294, 0.256)
pt3dadd(137.96, 141.151, 5.302, 0.264)
pt3dadd(138.073, 141.11, 5.31, 0.274)
pt3dadd(138.185, 141.07, 5.318, 0.282)
pt3dadd(138.298, 141.029, 5.326, 0.29)
pt3dadd(138.41, 140.987, 5.333, 0.298)
pt3dadd(138.522, 140.946, 5.341, 0.308)
pt3dadd(138.636, 140.914, 5.356, 0.314)
pt3dadd(138.75, 140.886, 5.376, 0.32)
pt3dadd(138.864, 140.858, 5.397, 0.326)
pt3dadd(138.979, 140.831, 5.417, 0.332)
pt3dadd(139.093, 140.803, 5.437, 0.338)
pt3dadd(139.207, 140.776, 5.457, 0.344)
pt3dadd(139.321, 140.748, 5.477, 0.35)
pt3dadd(139.436, 140.72, 5.497, 0.358)
pt3dadd(139.55, 140.693, 5.517, 0.364)
pt3dadd(139.664, 140.665, 5.537, 0.37)
pt3dadd(139.777, 140.641, 5.564, 0.362)
pt3dadd(139.889, 140.62, 5.595, 0.346)
pt3dadd(140.002, 140.597, 5.626, 0.332)
pt3dadd(140.113, 140.574, 5.657, 0.318)
pt3dadd(140.225, 140.551, 5.688, 0.302)
pt3dadd(140.336, 140.53, 5.718, 0.288)
pt3dadd(140.449, 140.507, 5.749, 0.274)
pt3dadd(140.561, 140.484, 5.78, 0.258)
pt3dadd(140.672, 140.462, 5.811, 0.244)
pt3dadd(140.785, 140.44, 5.842, 0.23)
pt3dadd(140.9, 140.422, 5.861, 0.226)
pt3dadd(141.018, 140.405, 5.877, 0.226)
pt3dadd(141.136, 140.388, 5.893, 0.226)
pt3dadd(141.252, 140.371, 5.909, 0.226)
pt3dadd(141.37, 140.354, 5.924, 0.226)
pt3dadd(141.487, 140.338, 5.94, 0.226)
pt3dadd(141.605, 140.321, 5.956, 0.226)
pt3dadd(141.721, 140.304, 5.972, 0.226)
pt3dadd(141.839, 140.287, 5.988, 0.226)
pt3dadd(141.956, 140.27, 6.003, 0.226)
pt3dadd(142.075, 140.286, 6.003, 0.24)
pt3dadd(142.194, 140.303, 6.002, 0.256)
pt3dadd(142.313, 140.321, 6.001, 0.272)
pt3dadd(142.432, 140.338, 5.999, 0.288)
pt3dadd(142.549, 140.356, 5.998, 0.304)
pt3dadd(142.668, 140.372, 5.997, 0.32)
pt3dadd(142.787, 140.39, 5.996, 0.336)
pt3dadd(142.906, 140.408, 5.994, 0.35)
pt3dadd(143.024, 140.425, 5.993, 0.366)
pt3dadd(143.143, 140.443, 5.992, 0.382)
pt3dadd(143.26, 140.458, 5.972, 0.42)
pt3dadd(143.376, 140.472, 5.951, 0.458)
pt3dadd(143.492, 140.488, 5.93, 0.494)
pt3dadd(143.609, 140.502, 5.909, 0.532)
pt3dadd(143.725, 140.518, 5.888, 0.57)
pt3dadd(143.842, 140.532, 5.867, 0.608)
pt3dadd(143.958, 140.546, 5.846, 0.646)
pt3dadd(144.074, 140.562, 5.825, 0.684)
pt3dadd(144.191, 140.576, 5.805, 0.72)
pt3dadd(144.307, 140.591, 5.783, 0.758)
pt3dadd(144.42, 140.599, 5.75, 0.764)
pt3dadd(144.533, 140.608, 5.717, 0.772)
pt3dadd(144.647, 140.616, 5.684, 0.78)
pt3dadd(144.76, 140.624, 5.651, 0.786)
pt3dadd(144.872, 140.632, 5.619, 0.794)
pt3dadd(144.985, 140.64, 5.586, 0.802)
pt3dadd(145.098, 140.648, 5.553, 0.808)
pt3dadd(145.212, 140.657, 5.52, 0.816)
pt3dadd(145.325, 140.665, 5.487, 0.824)
pt3dadd(145.438, 140.672, 5.455, 0.828)
pt3dadd(145.555, 140.672, 5.436, 0.798)
pt3dadd(145.673, 140.672, 5.416, 0.766)
pt3dadd(145.79, 140.671, 5.396, 0.736)
pt3dadd(145.909, 140.671, 5.377, 0.704)
pt3dadd(146.027, 140.671, 5.357, 0.674)
pt3dadd(146.144, 140.671, 5.337, 0.642)
pt3dadd(146.262, 140.671, 5.318, 0.612)
pt3dadd(146.38, 140.67, 5.298, 0.582)
pt3dadd(146.497, 140.67, 5.278, 0.55)
pt3dadd(146.615, 140.67, 5.26, 0.52)
pt3dadd(146.735, 140.67, 5.253, 0.49)
pt3dadd(146.854, 140.669, 5.246, 0.46)
pt3dadd(146.974, 140.669, 5.239, 0.43)
pt3dadd(147.094, 140.668, 5.232, 0.4)
pt3dadd(147.214, 140.668, 5.225, 0.37)
pt3dadd(147.334, 140.668, 5.218, 0.342)
pt3dadd(147.452, 140.666, 5.211, 0.312)
pt3dadd(147.572, 140.666, 5.204, 0.282)
pt3dadd(147.692, 140.665, 5.197, 0.252)
pt3dadd(147.812, 140.665, 5.192, 0.23)
pt3dadd(147.932, 140.664, 5.192, 0.258)
pt3dadd(148.052, 140.663, 5.192, 0.286)
pt3dadd(148.172, 140.662, 5.192, 0.316)
pt3dadd(148.292, 140.66, 5.192, 0.344)
pt3dadd(148.412, 140.659, 5.193, 0.372)
pt3dadd(148.532, 140.658, 5.193, 0.4)
pt3dadd(148.652, 140.658, 5.193, 0.43)
pt3dadd(148.772, 140.657, 5.193, 0.458)
pt3dadd(148.892, 140.656, 5.193, 0.486)
pt3dadd(149.012, 140.654, 5.194, 0.514)
pt3dadd(149.132, 140.652, 5.194, 0.532)
pt3dadd(149.251, 140.65, 5.194, 0.55)
pt3dadd(149.371, 140.646, 5.195, 0.568)
pt3dadd(149.491, 140.644, 5.195, 0.588)
pt3dadd(149.611, 140.641, 5.196, 0.606)
pt3dadd(149.731, 140.639, 5.196, 0.624)
pt3dadd(149.851, 140.636, 5.197, 0.642)
pt3dadd(149.971, 140.634, 5.197, 0.662)
pt3dadd(150.091, 140.632, 5.198, 0.68)
pt3dadd(150.211, 140.628, 5.198, 0.692)
pt3dadd(150.331, 140.622, 5.199, 0.656)
pt3dadd(150.451, 140.617, 5.2, 0.62)
pt3dadd(150.571, 140.611, 5.201, 0.584)
pt3dadd(150.691, 140.605, 5.202, 0.548)
pt3dadd(150.811, 140.599, 5.203, 0.514)
pt3dadd(150.931, 140.593, 5.204, 0.478)
pt3dadd(151.05, 140.587, 5.205, 0.442)
pt3dadd(151.17, 140.581, 5.206, 0.406)
pt3dadd(151.29, 140.575, 5.207, 0.37)
pt3dadd(151.41, 140.569, 5.208, 0.338)
pt3dadd(151.53, 140.557, 5.211, 0.326)
pt3dadd(151.649, 140.546, 5.213, 0.316)
pt3dadd(151.769, 140.534, 5.215, 0.304)
pt3dadd(151.888, 140.524, 5.217, 0.292)
pt3dadd(152.008, 140.512, 5.219, 0.282)
pt3dadd(152.126, 140.501, 5.221, 0.27)
pt3dadd(152.246, 140.489, 5.224, 0.258)
pt3dadd(152.365, 140.478, 5.226, 0.248)
pt3dadd(152.485, 140.466, 5.228, 0.236)
pt3dadd(152.604, 140.453, 5.231, 0.23)
pt3dadd(152.719, 140.42, 5.235, 0.254)
pt3dadd(152.836, 140.389, 5.24, 0.278)
pt3dadd(152.951, 140.358, 5.245, 0.302)
pt3dadd(153.066, 140.327, 5.25, 0.326)
pt3dadd(153.182, 140.296, 5.255, 0.35)
pt3dadd(153.298, 140.264, 5.26, 0.374)
pt3dadd(153.414, 140.233, 5.265, 0.398)
pt3dadd(153.529, 140.202, 5.27, 0.422)
pt3dadd(153.644, 140.17, 5.275, 0.446)
pt3dadd(153.76, 140.137, 5.281, 0.466)
pt3dadd(153.874, 140.1, 5.29, 0.464)
pt3dadd(153.988, 140.064, 5.299, 0.462)
pt3dadd(154.102, 140.027, 5.308, 0.46)
pt3dadd(154.214, 139.99, 5.317, 0.458)
pt3dadd(154.328, 139.952, 5.326, 0.456)
pt3dadd(154.442, 139.915, 5.335, 0.454)
pt3dadd(154.555, 139.878, 5.344, 0.452)
pt3dadd(154.669, 139.841, 5.353, 0.45)
pt3dadd(154.783, 139.805, 5.363, 0.448)
pt3dadd(154.896, 139.771, 5.375, 0.446)
pt3dadd(155.011, 139.75, 5.4, 0.446)
pt3dadd(155.125, 139.728, 5.425, 0.446)
pt3dadd(155.239, 139.705, 5.45, 0.448)
pt3dadd(155.353, 139.684, 5.475, 0.448)
pt3dadd(155.467, 139.662, 5.501, 0.448)
pt3dadd(155.581, 139.64, 5.526, 0.448)
pt3dadd(155.695, 139.619, 5.55, 0.45)
pt3dadd(155.809, 139.597, 5.576, 0.45)
pt3dadd(155.923, 139.576, 5.601, 0.45)
pt3dadd(156.037, 139.558, 5.628, 0.45)
pt3dadd(156.151, 139.549, 5.659, 0.452)
pt3dadd(156.265, 139.54, 5.691, 0.452)
pt3dadd(156.378, 139.531, 5.722, 0.454)
}
}
proc shape3d_90() {
apic[17] { pt3dadd(156.492, 139.522, 5.753, 0.454)
pt3dadd(156.606, 139.513, 5.785, 0.456)
pt3dadd(156.719, 139.504, 5.816, 0.456)
pt3dadd(156.833, 139.495, 5.847, 0.458)
pt3dadd(156.947, 139.486, 5.879, 0.458)
pt3dadd(157.06, 139.477, 5.91, 0.46)
pt3dadd(157.175, 139.469, 5.937, 0.452)
pt3dadd(157.292, 139.463, 5.955, 0.428)
pt3dadd(157.41, 139.456, 5.974, 0.404)
pt3dadd(157.528, 139.45, 5.993, 0.38)
pt3dadd(157.646, 139.442, 6.012, 0.358)
pt3dadd(157.764, 139.436, 6.03, 0.334)
pt3dadd(157.882, 139.429, 6.049, 0.31)
pt3dadd(157.999, 139.423, 6.068, 0.288)
pt3dadd(158.117, 139.417, 6.087, 0.264)
pt3dadd(158.234, 139.41, 6.106, 0.24)
pt3dadd(158.352, 139.402, 6.12, 0.226)
pt3dadd(158.472, 139.388, 6.127, 0.226)
pt3dadd(158.591, 139.375, 6.135, 0.226)
pt3dadd(158.71, 139.363, 6.142, 0.226)
pt3dadd(158.828, 139.35, 6.15, 0.226)
pt3dadd(158.947, 139.337, 6.157, 0.226)
pt3dadd(159.066, 139.324, 6.165, 0.226)
pt3dadd(159.185, 139.312, 6.172, 0.226)
pt3dadd(159.305, 139.298, 6.179, 0.226)
pt3dadd(159.424, 139.285, 6.187, 0.226)
pt3dadd(159.54, 139.262, 6.194, 0.238)
pt3dadd(159.654, 139.226, 6.199, 0.264)
pt3dadd(159.768, 139.189, 6.204, 0.292)
pt3dadd(159.882, 139.153, 6.209, 0.32)
pt3dadd(159.996, 139.116, 6.215, 0.346)
pt3dadd(160.111, 139.08, 6.22, 0.374)
pt3dadd(160.225, 139.043, 6.225, 0.402)
pt3dadd(160.339, 139.007, 6.231, 0.428)
pt3dadd(160.453, 138.97, 6.236, 0.456)
pt3dadd(160.567, 138.932, 6.241, 0.484)
pt3dadd(160.679, 138.893, 6.249, 0.506)
pt3dadd(160.79, 138.847, 6.259, 0.524)
pt3dadd(160.901, 138.803, 6.269, 0.542)
pt3dadd(161.011, 138.758, 6.28, 0.56)
pt3dadd(161.123, 138.714, 6.29, 0.578)
pt3dadd(161.233, 138.67, 6.3, 0.596)
pt3dadd(161.344, 138.625, 6.31, 0.614)
pt3dadd(161.455, 138.581, 6.32, 0.634)
pt3dadd(161.566, 138.536, 6.33, 0.652)
pt3dadd(161.676, 138.492, 6.34, 0.67)
pt3dadd(161.783, 138.451, 6.367, 0.678)
pt3dadd(161.885, 138.412, 6.409, 0.678)
pt3dadd(161.987, 138.373, 6.45, 0.678)
pt3dadd(162.089, 138.335, 6.491, 0.678)
pt3dadd(162.192, 138.296, 6.532, 0.678)
pt3dadd(162.294, 138.257, 6.574, 0.678)
pt3dadd(162.396, 138.218, 6.615, 0.678)
pt3dadd(162.498, 138.18, 6.656, 0.678)
pt3dadd(162.6, 138.142, 6.697, 0.678)
pt3dadd(162.703, 138.102, 6.739, 0.678)
pt3dadd(162.805, 138.054, 6.769, 0.646)
pt3dadd(162.908, 138.001, 6.796, 0.604)
pt3dadd(163.012, 137.948, 6.823, 0.562)
pt3dadd(163.114, 137.896, 6.85, 0.518)
pt3dadd(163.217, 137.843, 6.877, 0.476)
pt3dadd(163.32, 137.79, 6.904, 0.434)
pt3dadd(163.422, 137.737, 6.931, 0.39)
pt3dadd(163.525, 137.684, 6.958, 0.348)
pt3dadd(163.628, 137.632, 6.985, 0.306)
pt3dadd(163.732, 137.579, 7.012, 0.262)
pt3dadd(163.843, 137.543, 7.025, 0.266)
pt3dadd(163.958, 137.512, 7.035, 0.28)
pt3dadd(164.075, 137.48, 7.044, 0.296)
pt3dadd(164.19, 137.449, 7.053, 0.31)
pt3dadd(164.305, 137.418, 7.063, 0.326)
pt3dadd(164.42, 137.387, 7.072, 0.34)
pt3dadd(164.536, 137.354, 7.082, 0.356)
pt3dadd(164.651, 137.323, 7.091, 0.37)
pt3dadd(164.766, 137.292, 7.1, 0.386)
pt3dadd(164.881, 137.261, 7.11, 0.4)
pt3dadd(164.999, 137.24, 7.112, 0.394)
pt3dadd(165.118, 137.224, 7.112, 0.382)
pt3dadd(165.236, 137.206, 7.112, 0.37)
pt3dadd(165.355, 137.188, 7.112, 0.356)
pt3dadd(165.474, 137.171, 7.112, 0.344)
pt3dadd(165.593, 137.153, 7.112, 0.332)
pt3dadd(165.712, 137.136, 7.112, 0.32)
pt3dadd(165.83, 137.118, 7.112, 0.308)
pt3dadd(165.949, 137.1, 7.112, 0.296)
pt3dadd(166.068, 137.083, 7.112, 0.284)
pt3dadd(166.187, 137.066, 7.112, 0.296)
pt3dadd(166.306, 137.05, 7.112, 0.314)
pt3dadd(166.424, 137.033, 7.112, 0.33)
pt3dadd(166.543, 137.017, 7.112, 0.348)
pt3dadd(166.662, 137, 7.112, 0.364)
pt3dadd(166.781, 136.984, 7.112, 0.382)
pt3dadd(166.9, 136.967, 7.112, 0.398)
pt3dadd(167.018, 136.951, 7.112, 0.416)
pt3dadd(167.137, 136.934, 7.112, 0.432)
pt3dadd(167.256, 136.918, 7.112, 0.45)
pt3dadd(167.371, 136.885, 7.112, 0.446)
pt3dadd(167.485, 136.849, 7.112, 0.44)
pt3dadd(167.6, 136.813, 7.112, 0.434)
pt3dadd(167.714, 136.776, 7.112, 0.428)
pt3dadd(167.828, 136.74, 7.112, 0.42)
pt3dadd(167.944, 136.704, 7.112, 0.414)
pt3dadd(168.058, 136.668, 7.112, 0.408)
pt3dadd(168.172, 136.632, 7.112, 0.402)
pt3dadd(168.287, 136.595, 7.112, 0.396)
pt3dadd(168.401, 136.559, 7.112, 0.388)
pt3dadd(168.504, 136.498, 7.112, 0.378)
pt3dadd(168.605, 136.434, 7.112, 0.366)
pt3dadd(168.707, 136.369, 7.112, 0.354)
pt3dadd(168.809, 136.306, 7.112, 0.342)
pt3dadd(168.91, 136.242, 7.112, 0.33)
pt3dadd(169.012, 136.178, 7.112, 0.318)
pt3dadd(169.114, 136.115, 7.112, 0.306)
pt3dadd(169.216, 136.051, 7.112, 0.294)
pt3dadd(169.316, 135.988, 7.112, 0.282)
pt3dadd(169.418, 135.923, 7.112, 0.27)
pt3dadd(169.513, 135.85, 7.112, 0.284)
pt3dadd(169.607, 135.774, 7.112, 0.302)
pt3dadd(169.7, 135.7, 7.112, 0.32)
pt3dadd(169.794, 135.625, 7.112, 0.336)
pt3dadd(169.889, 135.551, 7.112, 0.354)
pt3dadd(169.982, 135.475, 7.112, 0.372)
pt3dadd(170.076, 135.401, 7.112, 0.388)
pt3dadd(170.17, 135.326, 7.112, 0.406)
pt3dadd(170.264, 135.252, 7.112, 0.422)
pt3dadd(170.358, 135.176, 7.112, 0.44)
pt3dadd(170.458, 135.109, 7.112, 0.422)
pt3dadd(170.557, 135.042, 7.112, 0.4)
pt3dadd(170.656, 134.975, 7.112, 0.38)
pt3dadd(170.755, 134.909, 7.112, 0.358)
pt3dadd(170.855, 134.842, 7.112, 0.338)
pt3dadd(170.954, 134.774, 7.112, 0.316)
pt3dadd(171.054, 134.707, 7.112, 0.296)
pt3dadd(171.154, 134.64, 7.112, 0.276)
pt3dadd(171.253, 134.573, 7.112, 0.254)
pt3dadd(171.353, 134.507, 7.112, 0.234)
pt3dadd(171.443, 134.426, 7.112, 0.256)
pt3dadd(171.53, 134.345, 7.112, 0.282)
pt3dadd(171.619, 134.264, 7.112, 0.308)
pt3dadd(171.708, 134.184, 7.112, 0.332)
pt3dadd(171.797, 134.104, 7.112, 0.358)
pt3dadd(171.886, 134.022, 7.112, 0.384)
pt3dadd(171.974, 133.942, 7.112, 0.41)
pt3dadd(172.063, 133.861, 7.112, 0.434)
pt3dadd(172.152, 133.78, 7.112, 0.46)
pt3dadd(172.241, 133.699, 7.112, 0.486)
pt3dadd(172.29, 133.589, 7.112, 0.55)
pt3dadd(172.338, 133.48, 7.112, 0.614)
pt3dadd(172.387, 133.37, 7.112, 0.678)
pt3dadd(172.435, 133.26, 7.112, 0.744)
pt3dadd(172.484, 133.151, 7.112, 0.808)
pt3dadd(172.534, 133.042, 7.112, 0.872)
pt3dadd(172.582, 132.931, 7.112, 0.936)
pt3dadd(172.631, 132.822, 7.112, 1)
pt3dadd(172.679, 132.712, 7.112, 1.066)
pt3dadd(172.728, 132.602, 7.112, 1.13)
}
apic[18] {pt3dclear()
pt3dadd(80.606, 140.826, 8.191, 0.226)
pt3dadd(80.633, 140.822, 8.188, 0.232)
pt3dadd(80.751, 140.804, 8.174, 0.258)
pt3dadd(80.868, 140.788, 8.161, 0.284)
pt3dadd(80.986, 140.77, 8.147, 0.31)
pt3dadd(81.104, 140.753, 8.134, 0.336)
pt3dadd(81.221, 140.735, 8.12, 0.362)
pt3dadd(81.339, 140.718, 8.107, 0.388)
pt3dadd(81.455, 140.698, 8.091, 0.422)
pt3dadd(81.565, 140.666, 8.061, 0.514)
pt3dadd(81.675, 140.634, 8.031, 0.604)
pt3dadd(81.785, 140.602, 8.001, 0.696)
pt3dadd(81.895, 140.569, 7.971, 0.786)
pt3dadd(82.005, 140.537, 7.941, 0.878)
pt3dadd(82.115, 140.506, 7.911, 0.968)
pt3dadd(82.224, 140.473, 7.881, 1.06)
pt3dadd(82.334, 140.441, 7.851, 1.15)
pt3dadd(82.444, 140.408, 7.821, 1.242)
pt3dadd(82.543, 140.365, 7.785, 1.296)
pt3dadd(82.61, 140.288, 7.732, 1.238)
pt3dadd(82.677, 140.212, 7.679, 1.18)
pt3dadd(82.743, 140.135, 7.626, 1.122)
pt3dadd(82.809, 140.058, 7.572, 1.064)
pt3dadd(82.876, 139.981, 7.519, 1.006)
pt3dadd(82.943, 139.904, 7.466, 0.948)
pt3dadd(83.009, 139.828, 7.413, 0.89)
pt3dadd(83.076, 139.751, 7.36, 0.832)
pt3dadd(83.142, 139.674, 7.307, 0.774)
pt3dadd(83.207, 139.583, 7.278, 0.73)
pt3dadd(83.272, 139.483, 7.26, 0.688)
pt3dadd(83.336, 139.385, 7.243, 0.648)
pt3dadd(83.401, 139.285, 7.226, 0.608)
pt3dadd(83.465, 139.186, 7.208, 0.568)
pt3dadd(83.53, 139.087, 7.191, 0.528)
pt3dadd(83.594, 138.988, 7.174, 0.488)
pt3dadd(83.659, 138.889, 7.156, 0.448)
pt3dadd(83.723, 138.79, 7.139, 0.408)
pt3dadd(83.788, 138.691, 7.122, 0.368)
pt3dadd(83.859, 138.595, 7.113, 0.366)
pt3dadd(83.934, 138.502, 7.108, 0.378)
pt3dadd(84.008, 138.408, 7.102, 0.39)
pt3dadd(84.082, 138.313, 7.097, 0.402)
pt3dadd(84.156, 138.22, 7.091, 0.414)
pt3dadd(84.231, 138.126, 7.086, 0.426)
}
}
proc shape3d_91() {
apic[18] { pt3dadd(84.305, 138.031, 7.08, 0.438)
pt3dadd(84.379, 137.938, 7.075, 0.45)
pt3dadd(84.454, 137.844, 7.069, 0.462)
pt3dadd(84.528, 137.749, 7.064, 0.474)
pt3dadd(84.605, 137.658, 7.06, 0.492)
pt3dadd(84.683, 137.567, 7.055, 0.512)
pt3dadd(84.761, 137.476, 7.051, 0.532)
pt3dadd(84.838, 137.384, 7.046, 0.552)
pt3dadd(84.916, 137.293, 7.042, 0.572)
pt3dadd(84.994, 137.202, 7.038, 0.594)
pt3dadd(85.072, 137.111, 7.034, 0.612)
pt3dadd(85.15, 137.02, 7.029, 0.634)
pt3dadd(85.228, 136.928, 7.025, 0.652)
pt3dadd(85.306, 136.837, 7.021, 0.674)
pt3dadd(85.383, 136.746, 7.014, 0.682)
pt3dadd(85.461, 136.655, 7.007, 0.688)
pt3dadd(85.539, 136.564, 7, 0.694)
pt3dadd(85.617, 136.474, 6.993, 0.702)
pt3dadd(85.695, 136.382, 6.985, 0.708)
pt3dadd(85.773, 136.291, 6.978, 0.714)
pt3dadd(85.85, 136.2, 6.971, 0.72)
pt3dadd(85.928, 136.11, 6.964, 0.726)
pt3dadd(86.006, 136.019, 6.957, 0.732)
pt3dadd(86.084, 135.928, 6.949, 0.738)
pt3dadd(86.157, 135.834, 6.939, 0.768)
pt3dadd(86.23, 135.739, 6.927, 0.804)
pt3dadd(86.302, 135.644, 6.916, 0.842)
pt3dadd(86.374, 135.55, 6.905, 0.878)
pt3dadd(86.446, 135.455, 6.893, 0.916)
pt3dadd(86.519, 135.36, 6.882, 0.954)
pt3dadd(86.591, 135.265, 6.87, 0.99)
pt3dadd(86.663, 135.17, 6.859, 1.028)
pt3dadd(86.735, 135.076, 6.847, 1.064)
pt3dadd(86.808, 134.981, 6.836, 1.102)
pt3dadd(86.855, 134.879, 6.803, 1.084)
pt3dadd(86.895, 134.776, 6.764, 1.048)
pt3dadd(86.934, 134.674, 6.725, 1.01)
pt3dadd(86.974, 134.57, 6.686, 0.974)
pt3dadd(87.013, 134.467, 6.647, 0.938)
pt3dadd(87.053, 134.364, 6.608, 0.9)
pt3dadd(87.092, 134.261, 6.568, 0.864)
pt3dadd(87.132, 134.158, 6.529, 0.828)
pt3dadd(87.171, 134.054, 6.49, 0.79)
pt3dadd(87.211, 133.951, 6.451, 0.754)
pt3dadd(87.233, 133.842, 6.415, 0.756)
pt3dadd(87.251, 133.732, 6.38, 0.768)
pt3dadd(87.27, 133.62, 6.345, 0.778)
pt3dadd(87.288, 133.51, 6.309, 0.79)
pt3dadd(87.306, 133.399, 6.274, 0.802)
pt3dadd(87.324, 133.288, 6.239, 0.812)
pt3dadd(87.342, 133.177, 6.204, 0.824)
pt3dadd(87.36, 133.066, 6.168, 0.836)
pt3dadd(87.378, 132.955, 6.133, 0.848)
pt3dadd(87.396, 132.845, 6.098, 0.858)
pt3dadd(87.404, 132.736, 6.056, 0.85)
pt3dadd(87.409, 132.628, 6.013, 0.838)
pt3dadd(87.415, 132.52, 5.969, 0.826)
pt3dadd(87.42, 132.412, 5.926, 0.812)
pt3dadd(87.425, 132.304, 5.882, 0.8)
pt3dadd(87.431, 132.196, 5.839, 0.788)
pt3dadd(87.436, 132.088, 5.796, 0.776)
pt3dadd(87.441, 131.98, 5.752, 0.764)
pt3dadd(87.447, 131.872, 5.709, 0.75)
pt3dadd(87.452, 131.764, 5.665, 0.738)
pt3dadd(87.459, 131.651, 5.633, 0.746)
pt3dadd(87.466, 131.537, 5.603, 0.756)
pt3dadd(87.473, 131.423, 5.572, 0.766)
pt3dadd(87.48, 131.309, 5.542, 0.778)
pt3dadd(87.487, 131.195, 5.512, 0.788)
pt3dadd(87.494, 131.081, 5.481, 0.798)
pt3dadd(87.501, 130.966, 5.451, 0.81)
pt3dadd(87.507, 130.852, 5.421, 0.82)
pt3dadd(87.514, 130.738, 5.39, 0.83)
pt3dadd(87.521, 130.624, 5.36, 0.84)
pt3dadd(87.534, 130.506, 5.344, 0.832)
pt3dadd(87.546, 130.388, 5.328, 0.822)
pt3dadd(87.559, 130.271, 5.313, 0.81)
pt3dadd(87.572, 130.152, 5.298, 0.8)
pt3dadd(87.585, 130.034, 5.283, 0.79)
pt3dadd(87.597, 129.917, 5.268, 0.778)
pt3dadd(87.61, 129.798, 5.253, 0.768)
pt3dadd(87.623, 129.68, 5.238, 0.758)
pt3dadd(87.636, 129.563, 5.223, 0.746)
pt3dadd(87.648, 129.445, 5.208, 0.736)
pt3dadd(87.684, 129.331, 5.203, 0.73)
pt3dadd(87.723, 129.217, 5.199, 0.724)
pt3dadd(87.761, 129.103, 5.195, 0.718)
pt3dadd(87.799, 128.989, 5.191, 0.712)
pt3dadd(87.837, 128.876, 5.187, 0.706)
pt3dadd(87.875, 128.762, 5.183, 0.702)
pt3dadd(87.913, 128.648, 5.179, 0.696)
pt3dadd(87.951, 128.534, 5.175, 0.69)
pt3dadd(87.989, 128.422, 5.172, 0.684)
pt3dadd(88.028, 128.308, 5.168, 0.678)
}
apic[19] {pt3dclear()
pt3dadd(88.028, 128.308, 5.168, 0.678)
pt3dadd(88.053, 128.224, 5.166, 0.666)
pt3dadd(88.088, 128.11, 5.163, 0.65)
pt3dadd(88.124, 127.994, 5.161, 0.634)
pt3dadd(88.159, 127.88, 5.158, 0.618)
pt3dadd(88.194, 127.765, 5.156, 0.602)
pt3dadd(88.229, 127.651, 5.154, 0.584)
pt3dadd(88.264, 127.536, 5.151, 0.568)
pt3dadd(88.3, 127.422, 5.149, 0.552)
pt3dadd(88.335, 127.307, 5.146, 0.536)
pt3dadd(88.37, 127.192, 5.144, 0.52)
pt3dadd(88.395, 127.075, 5.138, 0.51)
pt3dadd(88.417, 126.958, 5.133, 0.504)
pt3dadd(88.439, 126.84, 5.127, 0.498)
pt3dadd(88.461, 126.722, 5.121, 0.492)
pt3dadd(88.483, 126.604, 5.115, 0.486)
pt3dadd(88.505, 126.486, 5.108, 0.48)
pt3dadd(88.527, 126.368, 5.102, 0.472)
pt3dadd(88.549, 126.251, 5.096, 0.466)
pt3dadd(88.571, 126.133, 5.09, 0.46)
pt3dadd(88.593, 126.016, 5.084, 0.454)
pt3dadd(88.608, 125.897, 5.075, 0.452)
pt3dadd(88.622, 125.778, 5.064, 0.452)
pt3dadd(88.635, 125.66, 5.053, 0.452)
pt3dadd(88.649, 125.542, 5.042, 0.452)
pt3dadd(88.662, 125.423, 5.031, 0.452)
pt3dadd(88.676, 125.304, 5.02, 0.452)
pt3dadd(88.689, 125.186, 5.009, 0.452)
pt3dadd(88.703, 125.068, 4.998, 0.452)
pt3dadd(88.717, 124.949, 4.988, 0.452)
pt3dadd(88.73, 124.83, 4.977, 0.452)
pt3dadd(88.748, 124.717, 4.95, 0.464)
pt3dadd(88.767, 124.604, 4.918, 0.482)
pt3dadd(88.786, 124.493, 4.886, 0.498)
pt3dadd(88.805, 124.38, 4.853, 0.514)
pt3dadd(88.824, 124.268, 4.821, 0.532)
pt3dadd(88.843, 124.157, 4.789, 0.548)
pt3dadd(88.862, 124.044, 4.757, 0.564)
pt3dadd(88.881, 123.932, 4.725, 0.58)
pt3dadd(88.899, 123.821, 4.693, 0.598)
pt3dadd(88.918, 123.708, 4.661, 0.614)
pt3dadd(88.959, 123.601, 4.632, 0.598)
pt3dadd(89.004, 123.496, 4.604, 0.574)
pt3dadd(89.049, 123.389, 4.576, 0.552)
pt3dadd(89.095, 123.283, 4.548, 0.528)
pt3dadd(89.14, 123.178, 4.52, 0.506)
pt3dadd(89.185, 123.071, 4.492, 0.482)
pt3dadd(89.23, 122.965, 4.464, 0.46)
pt3dadd(89.275, 122.86, 4.436, 0.436)
pt3dadd(89.321, 122.753, 4.408, 0.414)
pt3dadd(89.366, 122.647, 4.38, 0.39)
pt3dadd(89.426, 122.546, 4.361, 0.374)
pt3dadd(89.487, 122.446, 4.343, 0.358)
pt3dadd(89.549, 122.345, 4.324, 0.342)
pt3dadd(89.61, 122.244, 4.306, 0.324)
pt3dadd(89.671, 122.143, 4.287, 0.308)
pt3dadd(89.733, 122.042, 4.269, 0.292)
pt3dadd(89.794, 121.942, 4.25, 0.276)
pt3dadd(89.855, 121.841, 4.232, 0.26)
pt3dadd(89.916, 121.74, 4.213, 0.244)
pt3dadd(89.978, 121.639, 4.195, 0.226)
pt3dadd(90.035, 121.535, 4.181, 0.226)
pt3dadd(90.092, 121.43, 4.168, 0.226)
pt3dadd(90.149, 121.326, 4.155, 0.226)
pt3dadd(90.205, 121.222, 4.142, 0.226)
pt3dadd(90.262, 121.117, 4.128, 0.226)
pt3dadd(90.319, 121.013, 4.115, 0.226)
pt3dadd(90.376, 120.908, 4.102, 0.226)
pt3dadd(90.433, 120.804, 4.089, 0.226)
pt3dadd(90.49, 120.7, 4.075, 0.226)
pt3dadd(90.546, 120.595, 4.062, 0.226)
pt3dadd(90.583, 120.484, 4.041, 0.234)
pt3dadd(90.619, 120.372, 4.02, 0.242)
pt3dadd(90.655, 120.26, 3.999, 0.252)
pt3dadd(90.691, 120.149, 3.978, 0.26)
pt3dadd(90.727, 120.037, 3.956, 0.268)
pt3dadd(90.764, 119.926, 3.935, 0.276)
pt3dadd(90.8, 119.814, 3.914, 0.286)
pt3dadd(90.836, 119.703, 3.893, 0.294)
pt3dadd(90.872, 119.591, 3.872, 0.302)
pt3dadd(90.907, 119.479, 3.849, 0.312)
pt3dadd(90.928, 119.368, 3.817, 0.334)
pt3dadd(90.95, 119.256, 3.785, 0.356)
pt3dadd(90.972, 119.145, 3.752, 0.378)
pt3dadd(90.993, 119.034, 3.72, 0.4)
pt3dadd(91.015, 118.922, 3.688, 0.422)
pt3dadd(91.036, 118.811, 3.655, 0.444)
pt3dadd(91.058, 118.699, 3.623, 0.466)
pt3dadd(91.08, 118.588, 3.591, 0.488)
pt3dadd(91.101, 118.476, 3.558, 0.51)
pt3dadd(91.124, 118.364, 3.528, 0.528)
pt3dadd(91.156, 118.251, 3.508, 0.53)
pt3dadd(91.188, 118.138, 3.489, 0.53)
pt3dadd(91.22, 118.025, 3.469, 0.532)
pt3dadd(91.252, 117.911, 3.45, 0.532)
pt3dadd(91.284, 117.798, 3.43, 0.534)
pt3dadd(91.316, 117.685, 3.411, 0.534)
pt3dadd(91.348, 117.571, 3.391, 0.536)
pt3dadd(91.38, 117.458, 3.372, 0.536)
pt3dadd(91.412, 117.345, 3.353, 0.538)
pt3dadd(91.45, 117.233, 3.336, 0.532)
pt3dadd(91.505, 117.127, 3.329, 0.506)
pt3dadd(91.559, 117.021, 3.321, 0.48)
pt3dadd(91.614, 116.914, 3.313, 0.454)
pt3dadd(91.669, 116.808, 3.305, 0.428)
pt3dadd(91.724, 116.701, 3.297, 0.402)
}
}
proc shape3d_92() {
apic[19] { pt3dadd(91.778, 116.595, 3.29, 0.376)
pt3dadd(91.833, 116.489, 3.282, 0.35)
pt3dadd(91.888, 116.382, 3.274, 0.324)
pt3dadd(91.943, 116.276, 3.266, 0.298)
pt3dadd(91.998, 116.17, 3.261, 0.284)
pt3dadd(92.054, 116.064, 3.26, 0.302)
pt3dadd(92.11, 115.958, 3.259, 0.318)
pt3dadd(92.166, 115.852, 3.258, 0.336)
pt3dadd(92.223, 115.746, 3.258, 0.354)
pt3dadd(92.279, 115.64, 3.257, 0.37)
pt3dadd(92.335, 115.534, 3.256, 0.388)
pt3dadd(92.392, 115.428, 3.256, 0.406)
pt3dadd(92.448, 115.322, 3.255, 0.422)
pt3dadd(92.504, 115.216, 3.254, 0.44)
pt3dadd(92.565, 115.113, 3.253, 0.452)
pt3dadd(92.637, 115.017, 3.252, 0.452)
pt3dadd(92.71, 114.921, 3.251, 0.452)
pt3dadd(92.782, 114.825, 3.249, 0.452)
pt3dadd(92.854, 114.73, 3.248, 0.452)
pt3dadd(92.926, 114.634, 3.247, 0.452)
pt3dadd(92.999, 114.538, 3.246, 0.452)
pt3dadd(93.071, 114.442, 3.244, 0.45)
pt3dadd(93.143, 114.346, 3.243, 0.45)
pt3dadd(93.215, 114.25, 3.242, 0.45)
pt3dadd(93.29, 114.157, 3.24, 0.444)
pt3dadd(93.37, 114.067, 3.238, 0.426)
pt3dadd(93.449, 113.977, 3.236, 0.408)
pt3dadd(93.529, 113.888, 3.233, 0.39)
pt3dadd(93.609, 113.798, 3.231, 0.372)
pt3dadd(93.689, 113.709, 3.228, 0.354)
pt3dadd(93.768, 113.619, 3.226, 0.336)
pt3dadd(93.848, 113.529, 3.224, 0.318)
pt3dadd(93.928, 113.44, 3.221, 0.298)
pt3dadd(94.008, 113.35, 3.219, 0.28)
pt3dadd(94.089, 113.262, 3.216, 0.28)
pt3dadd(94.173, 113.176, 3.211, 0.318)
pt3dadd(94.257, 113.091, 3.206, 0.356)
pt3dadd(94.341, 113.006, 3.201, 0.392)
pt3dadd(94.425, 112.92, 3.196, 0.43)
pt3dadd(94.509, 112.835, 3.191, 0.468)
pt3dadd(94.593, 112.75, 3.186, 0.506)
pt3dadd(94.678, 112.664, 3.181, 0.542)
pt3dadd(94.762, 112.579, 3.176, 0.58)
pt3dadd(94.846, 112.494, 3.171, 0.618)
pt3dadd(94.931, 112.409, 3.165, 0.648)
pt3dadd(95.016, 112.325, 3.157, 0.664)
pt3dadd(95.102, 112.242, 3.149, 0.68)
pt3dadd(95.187, 112.158, 3.141, 0.696)
pt3dadd(95.273, 112.075, 3.133, 0.712)
pt3dadd(95.358, 111.991, 3.125, 0.728)
pt3dadd(95.444, 111.908, 3.117, 0.744)
pt3dadd(95.53, 111.824, 3.109, 0.76)
pt3dadd(95.615, 111.741, 3.1, 0.776)
pt3dadd(95.701, 111.657, 3.092, 0.792)
pt3dadd(95.786, 111.575, 3.079, 0.8)
pt3dadd(95.871, 111.495, 3.055, 0.786)
pt3dadd(95.956, 111.415, 3.031, 0.774)
pt3dadd(96.041, 111.336, 3.007, 0.762)
pt3dadd(96.126, 111.256, 2.984, 0.748)
pt3dadd(96.211, 111.176, 2.96, 0.736)
pt3dadd(96.296, 111.097, 2.936, 0.722)
pt3dadd(96.381, 111.017, 2.912, 0.71)
pt3dadd(96.466, 110.937, 2.888, 0.698)
pt3dadd(96.551, 110.857, 2.864, 0.684)
pt3dadd(96.636, 110.782, 2.832, 0.672)
pt3dadd(96.72, 110.71, 2.793, 0.66)
pt3dadd(96.804, 110.638, 2.754, 0.646)
pt3dadd(96.888, 110.567, 2.715, 0.634)
pt3dadd(96.972, 110.495, 2.676, 0.622)
pt3dadd(97.056, 110.423, 2.637, 0.61)
pt3dadd(97.14, 110.351, 2.598, 0.596)
pt3dadd(97.223, 110.28, 2.558, 0.584)
pt3dadd(97.307, 110.208, 2.519, 0.572)
pt3dadd(97.391, 110.136, 2.48, 0.558)
pt3dadd(97.483, 110.07, 2.448, 0.556)
pt3dadd(97.582, 110.01, 2.421, 0.562)
pt3dadd(97.68, 109.95, 2.394, 0.568)
pt3dadd(97.779, 109.889, 2.367, 0.572)
pt3dadd(97.877, 109.829, 2.34, 0.578)
pt3dadd(97.976, 109.768, 2.313, 0.584)
pt3dadd(98.074, 109.708, 2.286, 0.588)
pt3dadd(98.173, 109.647, 2.259, 0.594)
pt3dadd(98.271, 109.587, 2.232, 0.6)
pt3dadd(98.37, 109.527, 2.205, 0.606)
pt3dadd(98.469, 109.465, 2.183, 0.6)
pt3dadd(98.569, 109.403, 2.165, 0.588)
pt3dadd(98.67, 109.34, 2.147, 0.578)
pt3dadd(98.77, 109.278, 2.129, 0.566)
pt3dadd(98.87, 109.216, 2.11, 0.554)
pt3dadd(98.97, 109.153, 2.092, 0.544)
pt3dadd(99.07, 109.091, 2.074, 0.532)
pt3dadd(99.17, 109.029, 2.056, 0.52)
pt3dadd(99.27, 108.966, 2.038, 0.51)
pt3dadd(99.371, 108.904, 2.019, 0.498)
pt3dadd(99.451, 108.849, 1.968, 0.506)
pt3dadd(99.521, 108.797, 1.899, 0.526)
pt3dadd(99.591, 108.746, 1.83, 0.544)
pt3dadd(99.661, 108.695, 1.761, 0.564)
pt3dadd(99.731, 108.644, 1.692, 0.582)
pt3dadd(99.801, 108.593, 1.623, 0.602)
pt3dadd(99.871, 108.541, 1.553, 0.62)
pt3dadd(99.941, 108.49, 1.484, 0.64)
pt3dadd(100.011, 108.439, 1.415, 0.66)
pt3dadd(100.081, 108.388, 1.346, 0.678)
}
apic[20] {pt3dclear()
pt3dadd(88.028, 128.308, 5.168, 0.678)
pt3dadd(87.922, 128.303, 5.177, 0.694)
pt3dadd(87.799, 128.299, 5.188, 0.714)
pt3dadd(87.676, 128.296, 5.2, 0.732)
pt3dadd(87.552, 128.292, 5.211, 0.752)
pt3dadd(87.429, 128.287, 5.222, 0.772)
pt3dadd(87.306, 128.284, 5.234, 0.792)
pt3dadd(87.183, 128.281, 5.245, 0.81)
pt3dadd(87.06, 128.278, 5.256, 0.83)
pt3dadd(86.937, 128.274, 5.268, 0.85)
pt3dadd(86.814, 128.27, 5.279, 0.868)
pt3dadd(86.691, 128.267, 5.291, 0.888)
pt3dadd(86.58, 128.251, 5.287, 0.904)
pt3dadd(86.528, 128.186, 5.212, 0.904)
pt3dadd(86.476, 128.122, 5.137, 0.904)
pt3dadd(86.425, 128.057, 5.063, 0.904)
pt3dadd(86.373, 127.99, 4.988, 0.904)
pt3dadd(86.348, 127.898, 4.925, 0.904)
pt3dadd(86.325, 127.807, 4.86, 0.904)
pt3dadd(86.314, 127.729, 4.784, 0.904)
pt3dadd(86.301, 127.65, 4.71, 0.904)
pt3dadd(86.199, 127.586, 4.687, 0.904)
pt3dadd(86.096, 127.524, 4.661, 0.904)
pt3dadd(85.992, 127.48, 4.619, 0.904)
pt3dadd(85.908, 127.441, 4.563, 0.904)
pt3dadd(85.879, 127.418, 4.467, 0.904)
pt3dadd(85.85, 127.397, 4.371, 0.904)
pt3dadd(85.821, 127.373, 4.275, 0.904)
pt3dadd(85.782, 127.338, 4.184, 0.904)
pt3dadd(85.737, 127.295, 4.097, 0.904)
pt3dadd(85.683, 127.279, 4.008, 0.904)
pt3dadd(85.594, 127.278, 3.938, 0.904)
pt3dadd(85.502, 127.277, 3.87, 0.904)
pt3dadd(85.439, 127.235, 3.793, 0.904)
pt3dadd(85.384, 127.182, 3.713, 0.904)
pt3dadd(85.345, 127.068, 3.706, 0.904)
pt3dadd(85.307, 126.953, 3.702, 0.904)
pt3dadd(85.291, 126.844, 3.667, 0.904)
pt3dadd(85.287, 126.738, 3.616, 0.904)
pt3dadd(85.283, 126.661, 3.546, 0.904)
pt3dadd(85.279, 126.617, 3.453, 0.904)
pt3dadd(85.275, 126.546, 3.372, 0.904)
pt3dadd(85.271, 126.473, 3.292, 0.904)
pt3dadd(85.267, 126.4, 3.212, 0.904)
pt3dadd(85.263, 126.326, 3.132, 0.904)
pt3dadd(85.259, 126.253, 3.051, 0.904)
pt3dadd(85.255, 126.252, 3.051, 0.904)
pt3dadd(85.251, 126.155, 2.993, 0.904)
pt3dadd(85.248, 126.054, 2.936, 0.904)
pt3dadd(85.244, 125.95, 2.884, 0.904)
pt3dadd(85.24, 125.845, 2.833, 0.904)
pt3dadd(85.244, 125.732, 2.809, 0.904)
pt3dadd(85.256, 125.612, 2.804, 0.904)
pt3dadd(85.268, 125.491, 2.8, 0.904)
pt3dadd(85.358, 125.418, 2.795, 0.904)
pt3dadd(85.451, 125.347, 2.789, 0.904)
pt3dadd(85.538, 125.288, 2.746, 0.904)
pt3dadd(85.608, 125.202, 2.721, 0.904)
pt3dadd(85.673, 125.105, 2.704, 0.904)
pt3dadd(85.77, 125.044, 2.696, 0.904)
pt3dadd(85.875, 124.993, 2.691, 0.904)
pt3dadd(85.962, 124.968, 2.644, 0.904)
pt3dadd(86.036, 124.96, 2.569, 0.904)
pt3dadd(86.093, 124.916, 2.497, 0.904)
pt3dadd(86.134, 124.84, 2.428, 0.904)
pt3dadd(86.178, 124.762, 2.363, 0.904)
pt3dadd(86.224, 124.684, 2.298, 0.904)
pt3dadd(86.27, 124.606, 2.234, 0.904)
pt3dadd(86.325, 124.59, 2.152, 0.904)
pt3dadd(86.382, 124.589, 2.066, 0.904)
pt3dadd(86.42, 124.559, 1.978, 0.904)
pt3dadd(86.447, 124.511, 1.889, 0.904)
pt3dadd(86.473, 124.464, 1.8, 0.904)
pt3dadd(86.469, 124.463, 1.7, 0.912)
pt3dadd(86.465, 124.462, 1.6, 0.92)
pt3dadd(86.462, 124.46, 1.5, 0.93)
pt3dadd(86.458, 124.459, 1.4, 0.946)
pt3dadd(86.454, 124.458, 1.3, 0.962)
pt3dadd(86.45, 124.457, 1.2, 0.98)
pt3dadd(86.446, 124.451, 1.1, 1.006)
pt3dadd(86.442, 124.445, 1, 1.032)
pt3dadd(86.438, 124.429, 0.904, 1.054)
pt3dadd(86.434, 124.34, 0.836, 1.054)
pt3dadd(86.43, 124.252, 0.768, 1.054)
pt3dadd(86.426, 124.142, 0.723, 1.004)
pt3dadd(86.422, 124.034, 0.678, 0.946)
pt3dadd(86.418, 123.925, 0.633, 0.878)
pt3dadd(86.416, 123.83, 0.577, 0.816)
pt3dadd(86.418, 123.773, 0.489, 0.77)
pt3dadd(86.424, 123.722, 0.4, 0.726)
pt3dadd(86.421, 123.721, 0.4, 0.726)
pt3dadd(86.456, 123.72, 0.305, 0.716)
pt3dadd(86.492, 123.719, 0.211, 0.706)
pt3dadd(86.505, 123.716, 0.113, 0.716)
pt3dadd(86.511, 123.715, 0.013, 0.734)
pt3dadd(86.516, 123.714, -0.087, 0.752)
}
}
proc shape3d_93() {
apic[20] { pt3dadd(86.604, 123.697, -0.148, 0.768)
pt3dadd(86.693, 123.679, -0.209, 0.784)
pt3dadd(86.783, 123.662, -0.27, 0.8)
pt3dadd(86.82, 123.576, -0.307, 0.812)
pt3dadd(86.834, 123.46, -0.332, 0.822)
pt3dadd(86.861, 123.39, -0.389, 0.824)
pt3dadd(86.9, 123.37, -0.481, 0.816)
pt3dadd(86.94, 123.349, -0.573, 0.806)
pt3dadd(86.99, 123.305, -0.653, 0.794)
pt3dadd(87.046, 123.252, -0.728, 0.78)
pt3dadd(87.042, 123.251, -0.728, 0.78)
pt3dadd(87.062, 123.152, -0.782, 0.724)
pt3dadd(87.078, 123.055, -0.839, 0.712)
pt3dadd(87.113, 122.971, -0.899, 0.694)
pt3dadd(87.184, 122.917, -0.962, 0.664)
pt3dadd(87.272, 122.857, -0.992, 0.64)
pt3dadd(87.37, 122.792, -0.997, 0.616)
pt3dadd(87.458, 122.716, -1, 0.592)
pt3dadd(87.536, 122.627, -1, 0.568)
pt3dadd(87.594, 122.528, -1.008, 0.558)
pt3dadd(87.619, 122.414, -1.032, 0.576)
pt3dadd(87.666, 122.308, -1.054, 0.598)
pt3dadd(87.715, 122.201, -1.076, 0.62)
pt3dadd(87.762, 122.095, -1.097, 0.642)
pt3dadd(87.811, 121.99, -1.119, 0.664)
pt3dadd(87.85, 121.886, -1.153, 0.688)
pt3dadd(87.874, 121.788, -1.208, 0.716)
pt3dadd(87.87, 121.787, -1.208, 0.716)
pt3dadd(87.893, 121.69, -1.263, 0.744)
pt3dadd(87.916, 121.592, -1.319, 0.774)
pt3dadd(87.939, 121.494, -1.374, 0.802)
pt3dadd(87.937, 121.39, -1.425, 0.824)
pt3dadd(87.933, 121.285, -1.475, 0.848)
pt3dadd(87.929, 121.175, -1.517, 0.846)
pt3dadd(87.926, 121.063, -1.556, 0.834)
pt3dadd(87.922, 121.062, -1.556, 0.834)
pt3dadd(87.94, 120.977, -1.613, 0.816)
pt3dadd(87.988, 120.924, -1.693, 0.788)
pt3dadd(88.043, 120.899, -1.775, 0.778)
pt3dadd(88.103, 120.892, -1.86, 0.778)
pt3dadd(88.144, 120.844, -1.936, 0.782)
pt3dadd(88.172, 120.761, -2.005, 0.79)
pt3dadd(88.198, 120.677, -2.073, 0.8)
pt3dadd(88.219, 120.583, -2.131, 0.81)
pt3dadd(88.215, 120.582, -2.131, 0.81)
pt3dadd(88.232, 120.475, -2.175, 0.822)
pt3dadd(88.238, 120.373, -2.227, 0.828)
pt3dadd(88.234, 120.28, -2.291, 0.832)
pt3dadd(88.231, 120.187, -2.356, 0.838)
pt3dadd(88.227, 120.095, -2.421, 0.842)
pt3dadd(88.223, 120.001, -2.486, 0.848)
pt3dadd(88.219, 119.909, -2.55, 0.852)
pt3dadd(88.175, 119.812, -2.596, 0.854)
pt3dadd(88.117, 119.714, -2.635, 0.854)
pt3dadd(88.061, 119.616, -2.674, 0.854)
pt3dadd(88.004, 119.518, -2.713, 0.854)
pt3dadd(87.947, 119.43, -2.764, 0.854)
pt3dadd(87.889, 119.352, -2.827, 0.854)
pt3dadd(87.84, 119.288, -2.902, 0.844)
pt3dadd(87.791, 119.228, -2.982, 0.83)
pt3dadd(87.753, 119.117, -2.993, 0.848)
pt3dadd(87.714, 119.001, -2.998, 0.87)
pt3dadd(87.693, 118.882, -3, 0.884)
pt3dadd(87.684, 118.761, -3, 0.892)
pt3dadd(87.676, 118.639, -3, 0.902)
pt3dadd(87.637, 118.539, -3.036, 0.904)
pt3dadd(87.584, 118.448, -3.089, 0.904)
pt3dadd(87.53, 118.357, -3.141, 0.904)
pt3dadd(87.463, 118.293, -3.206, 0.884)
pt3dadd(87.391, 118.238, -3.275, 0.854)
pt3dadd(87.333, 118.197, -3.353, 0.83)
pt3dadd(87.291, 118.113, -3.419, 0.836)
pt3dadd(87.249, 118.03, -3.485, 0.842)
pt3dadd(87.207, 117.947, -3.55, 0.848)
pt3dadd(87.165, 117.863, -3.615, 0.854)
pt3dadd(87.117, 117.772, -3.671, 0.86)
pt3dadd(87.068, 117.682, -3.727, 0.866)
pt3dadd(87.019, 117.591, -3.782, 0.872)
pt3dadd(86.97, 117.501, -3.838, 0.878)
pt3dadd(86.9, 117.437, -3.903, 0.896)
pt3dadd(86.828, 117.377, -3.968, 0.914)
pt3dadd(86.756, 117.317, -4.034, 0.932)
pt3dadd(86.682, 117.256, -4.099, 0.95)
pt3dadd(86.624, 117.173, -4.155, 0.97)
pt3dadd(86.569, 117.085, -4.209, 0.988)
pt3dadd(86.513, 116.996, -4.263, 1.006)
pt3dadd(86.458, 116.908, -4.316, 1.024)
pt3dadd(86.424, 116.848, -4.396, 1.054)
pt3dadd(86.401, 116.802, -4.487, 1.09)
pt3dadd(86.39, 116.722, -4.557, 1.104)
pt3dadd(86.386, 116.622, -4.614, 1.104)
pt3dadd(86.4, 116.555, -4.686, 1.1)
pt3dadd(86.396, 116.554, -4.686, 1.1)
pt3dadd(86.431, 116.527, -4.778, 1.088)
pt3dadd(86.456, 116.51, -4.873, 1.072)
pt3dadd(86.452, 116.509, -4.873, 1.072)
pt3dadd(86.448, 116.507, -4.873, 1.072)
pt3dadd(86.459, 116.506, -4.973, 1.054)
pt3dadd(86.471, 116.505, -5.072, 1.034)
pt3dadd(86.47, 116.503, -5.172, 1.03)
pt3dadd(86.466, 116.502, -5.272, 1.03)
pt3dadd(86.478, 116.501, -5.37, 1.032)
pt3dadd(86.497, 116.499, -5.469, 1.036)
pt3dadd(86.515, 116.498, -5.567, 1.04)
pt3dadd(86.533, 116.497, -5.665, 1.046)
pt3dadd(86.551, 116.496, -5.763, 1.05)
pt3dadd(86.57, 116.494, -5.862, 1.054)
pt3dadd(86.601, 116.493, -5.957, 1.078)
pt3dadd(86.637, 116.492, -6.051, 1.11)
pt3dadd(86.661, 116.49, -6.148, 1.136)
pt3dadd(86.667, 116.489, -6.248, 1.154)
pt3dadd(86.673, 116.488, -6.347, 1.172)
pt3dadd(86.72, 116.486, -6.432, 1.18)
pt3dadd(86.798, 116.485, -6.505, 1.18)
pt3dadd(86.855, 116.454, -6.58, 1.174)
pt3dadd(86.886, 116.388, -6.659, 1.16)
pt3dadd(86.916, 116.339, -6.745, 1.146)
pt3dadd(86.912, 116.338, -6.745, 1.146)
pt3dadd(86.939, 116.301, -6.837, 1.132)
pt3dadd(86.968, 116.265, -6.929, 1.116)
pt3dadd(86.988, 116.236, -7.023, 1.104)
pt3dadd(86.984, 116.235, -7.023, 1.104)
pt3dadd(86.98, 116.233, -7.123, 1.094)
pt3dadd(86.976, 116.232, -7.223, 1.086)
pt3dadd(86.972, 116.231, -7.323, 1.074)
pt3dadd(86.978, 116.229, -7.421, 1.056)
pt3dadd(87.016, 116.228, -7.515, 1.06)
pt3dadd(87.012, 116.227, -7.515, 1.06)
pt3dadd(87.049, 116.225, -7.609, 1.064)
pt3dadd(87.087, 116.224, -7.703, 1.07)
pt3dadd(87.125, 116.223, -7.796, 1.074)
pt3dadd(87.162, 116.222, -7.89, 1.078)
pt3dadd(87.169, 116.236, -7.988, 1.082)
pt3dadd(87.167, 116.255, -8.086, 1.088)
pt3dadd(87.166, 116.273, -8.185, 1.092)
pt3dadd(87.164, 116.292, -8.284, 1.096)
pt3dadd(87.163, 116.311, -8.382, 1.1)
pt3dadd(87.161, 116.33, -8.481, 1.104)
pt3dadd(87.157, 116.348, -8.579, 1.104)
pt3dadd(87.153, 116.367, -8.678, 1.104)
pt3dadd(87.149, 116.385, -8.777, 1.104)
pt3dadd(87.145, 116.403, -8.875, 1.104)
pt3dadd(87.141, 116.422, -8.974, 1.104)
pt3dadd(87.137, 116.44, -9.073, 1.104)
pt3dadd(87.119, 116.445, -9.171, 1.1)
pt3dadd(87.096, 116.443, -9.27, 1.09)
pt3dadd(87.072, 116.442, -9.368, 1.082)
pt3dadd(87.048, 116.441, -9.467, 1.074)
pt3dadd(87.024, 116.439, -9.566, 1.066)
pt3dadd(87.001, 116.438, -9.664, 1.058)
pt3dadd(86.997, 116.437, -9.664, 1.058)
pt3dadd(86.986, 116.435, -9.764, 1.044)
pt3dadd(86.982, 116.434, -9.864, 1.028)
pt3dadd(86.978, 116.433, -9.964, 1.01)
pt3dadd(86.972, 116.431, -10.064, 1.004)
pt3dadd(86.963, 116.43, -10.164, 1.004)
pt3dadd(86.954, 116.429, -10.264, 1.004)
pt3dadd(86.883, 116.427, -10.34, 1.022)
pt3dadd(86.792, 116.426, -10.408, 1.046)
pt3dadd(86.703, 116.453, -10.472, 1.072)
pt3dadd(86.617, 116.496, -10.535, 1.1)
pt3dadd(86.57, 116.511, -10.625, 1.11)
pt3dadd(86.53, 116.521, -10.72, 1.118)
pt3dadd(86.491, 116.53, -10.815, 1.124)
pt3dadd(86.455, 116.542, -10.91, 1.13)
pt3dadd(86.445, 116.575, -11.005, 1.13)
pt3dadd(86.435, 116.608, -11.101, 1.13)
pt3dadd(86.39, 116.642, -11.186, 1.126)
pt3dadd(86.289, 116.647, -11.245, 1.102)
pt3dadd(86.192, 116.652, -11.306, 1.076)
pt3dadd(86.134, 116.65, -11.396, 1.032)
pt3dadd(86.076, 116.649, -11.485, 0.986)
pt3dadd(86.064, 116.648, -11.583, 0.938)
pt3dadd(86.06, 116.647, -11.683, 0.888)
pt3dadd(86.056, 116.645, -11.783, 0.838)
pt3dadd(86.052, 116.644, -11.883, 0.766)
pt3dadd(86.048, 116.643, -11.983, 0.69)
pt3dadd(86.044, 116.641, -11.983, 0.69)
}
dend_0[4] {pt3dclear()
pt3dadd(94.315, 107.234, 12.877, 13.334)
pt3dadd(94.384, 107.302, 12.877, 13.146)
pt3dadd(94.468, 107.387, 12.877, 12.914)
pt3dadd(94.553, 107.472, 12.877, 12.682)
pt3dadd(94.638, 107.557, 12.877, 12.448)
pt3dadd(94.723, 107.642, 12.877, 12.216)
pt3dadd(94.808, 107.727, 12.877, 11.982)
pt3dadd(94.893, 107.812, 12.877, 11.75)
pt3dadd(94.978, 107.896, 12.877, 11.516)
pt3dadd(95.062, 107.981, 12.877, 11.284)
pt3dadd(95.147, 108.066, 12.877, 11.05)
pt3dadd(95.232, 108.151, 12.877, 10.818)
pt3dadd(95.317, 108.236, 12.877, 10.598)
pt3dadd(95.401, 108.321, 12.876, 10.382)
pt3dadd(95.486, 108.406, 12.876, 10.166)
pt3dadd(95.57, 108.492, 12.875, 9.948)
pt3dadd(95.655, 108.577, 12.874, 9.732)
pt3dadd(95.739, 108.662, 12.874, 9.516)
pt3dadd(95.824, 108.747, 12.873, 9.3)
pt3dadd(95.908, 108.832, 12.873, 9.084)
pt3dadd(95.993, 108.918, 12.872, 8.868)
pt3dadd(96.077, 109.003, 12.872, 8.65)
}
}
proc shape3d_94() {
dend_0[4] { pt3dadd(96.162, 109.088, 12.871, 8.44)
pt3dadd(96.246, 109.173, 12.87, 8.23)
pt3dadd(96.331, 109.259, 12.869, 8.02)
pt3dadd(96.415, 109.344, 12.868, 7.81)
pt3dadd(96.499, 109.429, 12.867, 7.6)
pt3dadd(96.584, 109.515, 12.866, 7.39)
pt3dadd(96.668, 109.6, 12.865, 7.18)
pt3dadd(96.753, 109.685, 12.865, 6.97)
pt3dadd(96.837, 109.771, 12.864, 6.76)
pt3dadd(96.921, 109.856, 12.863, 6.55)
pt3dadd(97.006, 109.941, 12.862, 6.342)
pt3dadd(97.09, 110.027, 12.86, 6.136)
pt3dadd(97.174, 110.112, 12.859, 5.93)
pt3dadd(97.258, 110.198, 12.858, 5.722)
pt3dadd(97.343, 110.283, 12.857, 5.516)
pt3dadd(97.427, 110.368, 12.855, 5.31)
pt3dadd(97.511, 110.454, 12.854, 5.102)
pt3dadd(97.595, 110.539, 12.853, 4.896)
pt3dadd(97.68, 110.625, 12.852, 4.69)
pt3dadd(97.764, 110.71, 12.851, 4.484)
pt3dadd(97.848, 110.796, 12.849, 4.292)
pt3dadd(97.931, 110.882, 12.846, 4.108)
}
dend_7 {pt3dclear()
pt3dadd(97.931, 110.882, 12.846, 4.108)
pt3dadd(98.015, 110.968, 12.844, 3.922)
pt3dadd(98.098, 111.054, 12.842, 3.736)
pt3dadd(98.182, 111.14, 12.84, 3.55)
pt3dadd(98.266, 111.226, 12.838, 3.364)
pt3dadd(98.349, 111.312, 12.836, 3.178)
pt3dadd(98.433, 111.398, 12.834, 2.992)
pt3dadd(98.517, 111.484, 12.831, 2.808)
pt3dadd(98.6, 111.57, 12.829, 2.622)
pt3dadd(98.683, 111.657, 12.825, 2.538)
pt3dadd(98.765, 111.744, 12.821, 2.484)
pt3dadd(98.847, 111.832, 12.816, 2.428)
pt3dadd(98.93, 111.919, 12.812, 2.374)
pt3dadd(99.012, 112.006, 12.808, 2.32)
pt3dadd(99.094, 112.093, 12.803, 2.264)
pt3dadd(99.177, 112.18, 12.799, 2.21)
pt3dadd(99.259, 112.267, 12.794, 2.156)
pt3dadd(99.341, 112.354, 12.79, 2.1)
pt3dadd(99.424, 112.442, 12.786, 2.046)
pt3dadd(99.505, 112.53, 12.779, 2.028)
pt3dadd(99.586, 112.618, 12.772, 2.022)
pt3dadd(99.667, 112.706, 12.765, 2.014)
pt3dadd(99.748, 112.794, 12.758, 2.008)
pt3dadd(99.829, 112.882, 12.752, 2)
pt3dadd(99.909, 112.971, 12.745, 1.994)
pt3dadd(99.99, 113.059, 12.738, 1.986)
pt3dadd(100.071, 113.147, 12.731, 1.98)
pt3dadd(100.152, 113.235, 12.724, 1.972)
pt3dadd(100.233, 113.324, 12.717, 1.966)
pt3dadd(100.311, 113.414, 12.706, 1.952)
pt3dadd(100.389, 113.504, 12.694, 1.936)
pt3dadd(100.467, 113.594, 12.682, 1.92)
pt3dadd(100.544, 113.685, 12.67, 1.904)
pt3dadd(100.622, 113.775, 12.658, 1.89)
pt3dadd(100.699, 113.866, 12.646, 1.874)
pt3dadd(100.777, 113.956, 12.634, 1.858)
pt3dadd(100.854, 114.047, 12.622, 1.842)
pt3dadd(100.932, 114.137, 12.61, 1.826)
pt3dadd(101.009, 114.228, 12.598, 1.81)
pt3dadd(101.071, 114.323, 12.567, 1.808)
pt3dadd(101.13, 114.419, 12.533, 1.808)
pt3dadd(101.189, 114.516, 12.5, 1.808)
pt3dadd(101.248, 114.612, 12.465, 1.808)
pt3dadd(101.307, 114.708, 12.432, 1.808)
pt3dadd(101.366, 114.804, 12.398, 1.808)
pt3dadd(101.424, 114.901, 12.364, 1.808)
pt3dadd(101.483, 114.997, 12.33, 1.808)
pt3dadd(101.542, 115.093, 12.296, 1.808)
pt3dadd(101.601, 115.19, 12.262, 1.808)
pt3dadd(101.67, 115.283, 12.237, 1.764)
pt3dadd(101.742, 115.375, 12.214, 1.712)
pt3dadd(101.813, 115.468, 12.192, 1.658)
pt3dadd(101.884, 115.56, 12.169, 1.606)
pt3dadd(101.956, 115.653, 12.146, 1.552)
pt3dadd(102.027, 115.745, 12.123, 1.5)
pt3dadd(102.099, 115.838, 12.1, 1.446)
pt3dadd(102.17, 115.93, 12.078, 1.394)
pt3dadd(102.241, 116.023, 12.055, 1.34)
pt3dadd(102.313, 116.115, 12.032, 1.288)
pt3dadd(102.392, 116.203, 12.015, 1.254)
pt3dadd(102.472, 116.29, 11.998, 1.226)
pt3dadd(102.553, 116.377, 11.982, 1.198)
pt3dadd(102.633, 116.463, 11.966, 1.17)
pt3dadd(102.714, 116.55, 11.949, 1.142)
pt3dadd(102.794, 116.637, 11.933, 1.112)
pt3dadd(102.875, 116.724, 11.917, 1.084)
pt3dadd(102.956, 116.811, 11.9, 1.056)
pt3dadd(103.036, 116.897, 11.884, 1.028)
pt3dadd(103.117, 116.984, 11.868, 0.998)
pt3dadd(103.203, 117.066, 11.856, 1.002)
pt3dadd(103.291, 117.146, 11.844, 1.012)
pt3dadd(103.379, 117.227, 11.832, 1.02)
pt3dadd(103.467, 117.308, 11.821, 1.03)
pt3dadd(103.554, 117.388, 11.809, 1.038)
pt3dadd(103.642, 117.469, 11.798, 1.048)
pt3dadd(103.73, 117.55, 11.786, 1.058)
pt3dadd(103.818, 117.63, 11.774, 1.066)
pt3dadd(103.905, 117.711, 11.763, 1.076)
pt3dadd(103.993, 117.792, 11.751, 1.084)
pt3dadd(104.088, 117.863, 11.736, 1.114)
pt3dadd(104.183, 117.934, 11.721, 1.146)
pt3dadd(104.278, 118.004, 11.705, 1.178)
pt3dadd(104.373, 118.075, 11.69, 1.21)
pt3dadd(104.469, 118.145, 11.674, 1.244)
pt3dadd(104.564, 118.215, 11.659, 1.276)
pt3dadd(104.66, 118.286, 11.643, 1.308)
pt3dadd(104.755, 118.356, 11.628, 1.34)
pt3dadd(104.85, 118.427, 11.613, 1.372)
pt3dadd(104.946, 118.497, 11.597, 1.406)
pt3dadd(105.048, 118.547, 11.564, 1.424)
pt3dadd(105.149, 118.597, 11.532, 1.44)
pt3dadd(105.251, 118.647, 11.499, 1.458)
pt3dadd(105.353, 118.696, 11.466, 1.476)
pt3dadd(105.455, 118.746, 11.433, 1.494)
pt3dadd(105.557, 118.796, 11.4, 1.512)
pt3dadd(105.659, 118.845, 11.368, 1.53)
pt3dadd(105.761, 118.895, 11.335, 1.546)
pt3dadd(105.863, 118.945, 11.302, 1.564)
pt3dadd(105.965, 118.994, 11.269, 1.582)
pt3dadd(106.068, 119.049, 11.247, 1.582)
pt3dadd(106.172, 119.104, 11.226, 1.582)
pt3dadd(106.275, 119.159, 11.204, 1.582)
pt3dadd(106.378, 119.214, 11.182, 1.582)
pt3dadd(106.482, 119.269, 11.16, 1.582)
pt3dadd(106.585, 119.323, 11.138, 1.582)
pt3dadd(106.689, 119.378, 11.116, 1.582)
pt3dadd(106.792, 119.433, 11.094, 1.582)
pt3dadd(106.896, 119.488, 11.073, 1.582)
pt3dadd(106.999, 119.543, 11.051, 1.582)
}
dend_7[1] {pt3dclear()
pt3dadd(106.999, 119.543, 11.051, 1.582)
pt3dadd(107.008, 119.545, 11.05, 1.578)
pt3dadd(107.122, 119.577, 11.038, 1.51)
pt3dadd(107.237, 119.61, 11.026, 1.442)
pt3dadd(107.352, 119.642, 11.014, 1.374)
pt3dadd(107.466, 119.674, 11.002, 1.308)
pt3dadd(107.581, 119.706, 10.99, 1.24)
pt3dadd(107.696, 119.739, 10.978, 1.172)
pt3dadd(107.811, 119.771, 10.966, 1.106)
pt3dadd(107.925, 119.802, 10.955, 1.044)
pt3dadd(108.043, 119.828, 10.95, 1.03)
pt3dadd(108.16, 119.853, 10.946, 1.016)
pt3dadd(108.277, 119.878, 10.941, 1.002)
pt3dadd(108.394, 119.903, 10.936, 0.988)
pt3dadd(108.511, 119.929, 10.931, 0.974)
pt3dadd(108.629, 119.954, 10.927, 0.958)
pt3dadd(108.746, 119.979, 10.922, 0.944)
pt3dadd(108.863, 120.005, 10.917, 0.93)
pt3dadd(108.98, 120.03, 10.912, 0.916)
pt3dadd(109.097, 120.054, 10.907, 0.904)
pt3dadd(109.216, 120.073, 10.901, 0.904)
pt3dadd(109.334, 120.091, 10.895, 0.904)
pt3dadd(109.452, 120.11, 10.889, 0.904)
pt3dadd(109.571, 120.128, 10.883, 0.904)
pt3dadd(109.689, 120.148, 10.877, 0.904)
pt3dadd(109.807, 120.167, 10.87, 0.904)
pt3dadd(109.925, 120.185, 10.864, 0.904)
pt3dadd(110.044, 120.204, 10.858, 0.904)
pt3dadd(110.162, 120.222, 10.852, 0.904)
pt3dadd(110.279, 120.245, 10.845, 0.906)
pt3dadd(110.389, 120.292, 10.835, 0.924)
pt3dadd(110.499, 120.337, 10.825, 0.942)
pt3dadd(110.61, 120.384, 10.815, 0.96)
pt3dadd(110.72, 120.43, 10.805, 0.978)
pt3dadd(110.83, 120.475, 10.795, 0.996)
pt3dadd(110.94, 120.522, 10.785, 1.012)
pt3dadd(111.05, 120.568, 10.775, 1.03)
pt3dadd(111.16, 120.614, 10.766, 1.048)
pt3dadd(111.27, 120.66, 10.756, 1.066)
pt3dadd(111.38, 120.706, 10.742, 1.082)
pt3dadd(111.486, 120.749, 10.712, 1.086)
pt3dadd(111.592, 120.792, 10.683, 1.092)
pt3dadd(111.699, 120.834, 10.653, 1.096)
pt3dadd(111.805, 120.877, 10.624, 1.102)
pt3dadd(111.911, 120.92, 10.594, 1.106)
pt3dadd(112.018, 120.964, 10.565, 1.112)
pt3dadd(112.124, 121.007, 10.535, 1.116)
pt3dadd(112.23, 121.049, 10.506, 1.122)
pt3dadd(112.337, 121.092, 10.476, 1.126)
pt3dadd(112.442, 121.138, 10.447, 1.124)
pt3dadd(112.546, 121.188, 10.421, 1.096)
pt3dadd(112.65, 121.24, 10.395, 1.068)
pt3dadd(112.755, 121.29, 10.369, 1.042)
pt3dadd(112.859, 121.34, 10.343, 1.014)
pt3dadd(112.963, 121.392, 10.317, 0.988)
pt3dadd(113.067, 121.442, 10.291, 0.96)
pt3dadd(113.171, 121.494, 10.265, 0.934)
pt3dadd(113.275, 121.544, 10.239, 0.906)
pt3dadd(113.379, 121.595, 10.213, 0.878)
pt3dadd(113.485, 121.645, 10.19, 0.854)
pt3dadd(113.594, 121.691, 10.175, 0.836)
pt3dadd(113.703, 121.736, 10.159, 0.818)
pt3dadd(113.812, 121.782, 10.143, 0.8)
pt3dadd(113.922, 121.829, 10.128, 0.782)
pt3dadd(114.031, 121.874, 10.112, 0.762)
pt3dadd(114.14, 121.92, 10.097, 0.744)
pt3dadd(114.249, 121.967, 10.081, 0.726)
pt3dadd(114.359, 122.012, 10.065, 0.708)
pt3dadd(114.468, 122.058, 10.05, 0.69)
}
}
proc shape3d_95() {
dend_7[1] { pt3dadd(114.579, 122.1, 10.038, 0.686)
pt3dadd(114.695, 122.132, 10.032, 0.712)
pt3dadd(114.81, 122.165, 10.027, 0.736)
pt3dadd(114.925, 122.197, 10.022, 0.76)
pt3dadd(115.041, 122.231, 10.016, 0.786)
pt3dadd(115.156, 122.263, 10.011, 0.81)
pt3dadd(115.271, 122.296, 10.006, 0.834)
pt3dadd(115.386, 122.328, 10, 0.86)
pt3dadd(115.502, 122.362, 9.995, 0.884)
pt3dadd(115.617, 122.394, 9.99, 0.908)
pt3dadd(115.731, 122.43, 9.986, 0.932)
pt3dadd(115.844, 122.47, 9.985, 0.952)
pt3dadd(115.957, 122.51, 9.984, 0.972)
pt3dadd(116.07, 122.551, 9.983, 0.994)
pt3dadd(116.183, 122.592, 9.982, 1.014)
pt3dadd(116.296, 122.633, 9.981, 1.036)
pt3dadd(116.409, 122.674, 9.98, 1.056)
pt3dadd(116.522, 122.713, 9.979, 1.076)
pt3dadd(116.635, 122.754, 9.978, 1.098)
pt3dadd(116.748, 122.795, 9.977, 1.118)
pt3dadd(116.86, 122.837, 9.976, 1.12)
pt3dadd(116.972, 122.88, 9.974, 1.096)
pt3dadd(117.084, 122.923, 9.972, 1.074)
pt3dadd(117.196, 122.965, 9.97, 1.05)
pt3dadd(117.308, 123.008, 9.968, 1.026)
pt3dadd(117.42, 123.052, 9.966, 1.002)
pt3dadd(117.532, 123.095, 9.964, 0.978)
pt3dadd(117.644, 123.138, 9.962, 0.956)
pt3dadd(117.756, 123.181, 9.96, 0.932)
pt3dadd(117.868, 123.224, 9.958, 0.908)
pt3dadd(117.98, 123.268, 9.955, 0.89)
pt3dadd(118.091, 123.312, 9.95, 0.88)
pt3dadd(118.203, 123.355, 9.946, 0.872)
pt3dadd(118.314, 123.4, 9.941, 0.862)
pt3dadd(118.426, 123.444, 9.936, 0.852)
pt3dadd(118.537, 123.487, 9.931, 0.842)
pt3dadd(118.649, 123.532, 9.927, 0.834)
pt3dadd(118.76, 123.575, 9.922, 0.824)
pt3dadd(118.872, 123.619, 9.917, 0.814)
pt3dadd(118.983, 123.664, 9.912, 0.804)
pt3dadd(119.098, 123.696, 9.905, 0.792)
pt3dadd(119.216, 123.714, 9.895, 0.772)
pt3dadd(119.334, 123.733, 9.885, 0.754)
pt3dadd(119.452, 123.751, 9.875, 0.734)
pt3dadd(119.569, 123.77, 9.865, 0.716)
pt3dadd(119.687, 123.788, 9.855, 0.698)
pt3dadd(119.805, 123.806, 9.845, 0.678)
pt3dadd(119.923, 123.826, 9.835, 0.66)
pt3dadd(120.041, 123.844, 9.825, 0.64)
pt3dadd(120.16, 123.863, 9.815, 0.622)
pt3dadd(120.27, 123.865, 9.78, 0.622)
pt3dadd(120.379, 123.863, 9.738, 0.628)
pt3dadd(120.488, 123.86, 9.696, 0.634)
pt3dadd(120.596, 123.859, 9.654, 0.64)
pt3dadd(120.706, 123.857, 9.612, 0.648)
pt3dadd(120.815, 123.856, 9.57, 0.654)
pt3dadd(120.924, 123.853, 9.529, 0.66)
pt3dadd(121.032, 123.851, 9.486, 0.666)
pt3dadd(121.141, 123.85, 9.445, 0.672)
pt3dadd(121.25, 123.847, 9.403, 0.678)
}
dend_7[2] {pt3dclear()
pt3dadd(121.25, 123.847, 9.403, 0.678)
pt3dadd(121.298, 123.87, 9.391, 0.678)
pt3dadd(121.404, 123.92, 9.367, 0.682)
pt3dadd(121.511, 123.97, 9.348, 0.696)
pt3dadd(121.618, 124.019, 9.329, 0.71)
pt3dadd(121.726, 124.067, 9.309, 0.724)
pt3dadd(121.832, 124.116, 9.29, 0.74)
pt3dadd(121.939, 124.165, 9.271, 0.754)
pt3dadd(122.046, 124.214, 9.252, 0.768)
pt3dadd(122.154, 124.264, 9.232, 0.782)
pt3dadd(122.261, 124.312, 9.213, 0.796)
pt3dadd(122.368, 124.361, 9.194, 0.81)
pt3dadd(122.476, 124.41, 9.181, 0.826)
pt3dadd(122.585, 124.459, 9.182, 0.84)
pt3dadd(122.695, 124.507, 9.183, 0.856)
pt3dadd(122.804, 124.556, 9.184, 0.872)
pt3dadd(122.915, 124.604, 9.185, 0.888)
pt3dadd(123.024, 124.654, 9.186, 0.904)
pt3dadd(123.133, 124.703, 9.188, 0.92)
pt3dadd(123.244, 124.751, 9.189, 0.936)
pt3dadd(123.353, 124.8, 9.19, 0.952)
pt3dadd(123.462, 124.849, 9.191, 0.968)
pt3dadd(123.571, 124.897, 9.198, 0.964)
pt3dadd(123.68, 124.944, 9.216, 0.928)
pt3dadd(123.788, 124.992, 9.233, 0.892)
pt3dadd(123.896, 125.039, 9.251, 0.856)
pt3dadd(124.004, 125.086, 9.269, 0.82)
pt3dadd(124.112, 125.134, 9.287, 0.782)
pt3dadd(124.22, 125.18, 9.305, 0.746)
pt3dadd(124.328, 125.228, 9.323, 0.71)
pt3dadd(124.438, 125.275, 9.341, 0.674)
pt3dadd(124.546, 125.322, 9.358, 0.636)
pt3dadd(124.655, 125.358, 9.384, 0.614)
pt3dadd(124.765, 125.382, 9.417, 0.608)
pt3dadd(124.876, 125.406, 9.451, 0.602)
pt3dadd(124.986, 125.43, 9.485, 0.594)
pt3dadd(125.096, 125.453, 9.518, 0.588)
pt3dadd(125.207, 125.477, 9.552, 0.582)
pt3dadd(125.317, 125.501, 9.586, 0.574)
pt3dadd(125.428, 125.525, 9.619, 0.568)
pt3dadd(125.539, 125.548, 9.653, 0.562)
pt3dadd(125.65, 125.572, 9.686, 0.556)
pt3dadd(125.762, 125.588, 9.714, 0.564)
pt3dadd(125.88, 125.599, 9.735, 0.59)
pt3dadd(125.996, 125.609, 9.756, 0.614)
pt3dadd(126.114, 125.618, 9.777, 0.638)
pt3dadd(126.23, 125.628, 9.798, 0.664)
pt3dadd(126.347, 125.639, 9.819, 0.688)
pt3dadd(126.464, 125.648, 9.84, 0.714)
pt3dadd(126.581, 125.658, 9.861, 0.738)
pt3dadd(126.698, 125.669, 9.882, 0.762)
pt3dadd(126.815, 125.678, 9.903, 0.788)
pt3dadd(126.934, 125.683, 9.917, 0.778)
pt3dadd(127.052, 125.683, 9.925, 0.736)
pt3dadd(127.172, 125.683, 9.933, 0.696)
pt3dadd(127.292, 125.683, 9.941, 0.656)
pt3dadd(127.411, 125.683, 9.95, 0.614)
pt3dadd(127.531, 125.682, 9.958, 0.574)
pt3dadd(127.651, 125.682, 9.966, 0.532)
pt3dadd(127.77, 125.682, 9.974, 0.492)
pt3dadd(127.89, 125.682, 9.983, 0.452)
pt3dadd(128.01, 125.682, 9.991, 0.41)
pt3dadd(128.13, 125.682, 9.995, 0.382)
pt3dadd(128.25, 125.682, 9.995, 0.366)
pt3dadd(128.37, 125.681, 9.995, 0.35)
pt3dadd(128.49, 125.681, 9.995, 0.332)
pt3dadd(128.61, 125.681, 9.995, 0.316)
pt3dadd(128.73, 125.681, 9.995, 0.3)
pt3dadd(128.85, 125.681, 9.995, 0.284)
pt3dadd(128.97, 125.68, 9.995, 0.266)
pt3dadd(129.09, 125.68, 9.995, 0.25)
pt3dadd(129.21, 125.68, 9.995, 0.234)
pt3dadd(129.33, 125.68, 9.995, 0.226)
pt3dadd(129.45, 125.678, 9.995, 0.226)
pt3dadd(129.57, 125.677, 9.995, 0.226)
pt3dadd(129.689, 125.677, 9.995, 0.226)
pt3dadd(129.809, 125.676, 9.995, 0.226)
pt3dadd(129.929, 125.676, 9.995, 0.226)
pt3dadd(130.049, 125.675, 9.995, 0.226)
pt3dadd(130.169, 125.674, 9.995, 0.226)
pt3dadd(130.289, 125.674, 9.995, 0.226)
pt3dadd(130.409, 125.672, 9.995, 0.226)
pt3dadd(130.529, 125.671, 9.995, 0.226)
pt3dadd(130.649, 125.67, 9.995, 0.226)
pt3dadd(130.769, 125.669, 9.995, 0.226)
pt3dadd(130.889, 125.668, 9.995, 0.226)
pt3dadd(131.009, 125.666, 9.995, 0.226)
pt3dadd(131.129, 125.664, 9.995, 0.226)
pt3dadd(131.249, 125.663, 9.995, 0.226)
pt3dadd(131.369, 125.662, 9.995, 0.226)
pt3dadd(131.489, 125.66, 9.995, 0.226)
pt3dadd(131.609, 125.659, 9.995, 0.226)
pt3dadd(131.729, 125.657, 9.995, 0.236)
pt3dadd(131.849, 125.653, 9.995, 0.256)
pt3dadd(131.969, 125.65, 9.995, 0.276)
pt3dadd(132.089, 125.647, 9.995, 0.294)
pt3dadd(132.209, 125.644, 9.995, 0.314)
pt3dadd(132.329, 125.641, 9.995, 0.334)
pt3dadd(132.449, 125.638, 9.995, 0.354)
pt3dadd(132.569, 125.634, 9.995, 0.372)
pt3dadd(132.689, 125.632, 9.995, 0.392)
pt3dadd(132.809, 125.628, 9.995, 0.412)
pt3dadd(132.929, 125.623, 9.995, 0.422)
pt3dadd(133.049, 125.616, 9.995, 0.428)
pt3dadd(133.169, 125.608, 9.995, 0.432)
pt3dadd(133.288, 125.6, 9.995, 0.436)
pt3dadd(133.408, 125.593, 9.995, 0.442)
pt3dadd(133.528, 125.586, 9.995, 0.446)
pt3dadd(133.648, 125.579, 9.995, 0.45)
pt3dadd(133.768, 125.572, 9.995, 0.454)
pt3dadd(133.886, 125.564, 9.995, 0.46)
pt3dadd(134.006, 125.557, 9.995, 0.464)
pt3dadd(134.126, 125.545, 9.995, 0.466)
pt3dadd(134.245, 125.531, 9.995, 0.464)
pt3dadd(134.364, 125.516, 9.995, 0.462)
pt3dadd(134.484, 125.502, 9.995, 0.462)
pt3dadd(134.603, 125.488, 9.995, 0.46)
pt3dadd(134.722, 125.473, 9.995, 0.458)
pt3dadd(134.84, 125.459, 9.995, 0.458)
pt3dadd(134.96, 125.444, 9.995, 0.456)
pt3dadd(135.079, 125.43, 9.995, 0.454)
pt3dadd(135.198, 125.414, 9.995, 0.454)
pt3dadd(135.314, 125.388, 9.995, 0.466)
pt3dadd(135.428, 125.351, 9.996, 0.488)
pt3dadd(135.544, 125.315, 9.996, 0.51)
pt3dadd(135.658, 125.278, 9.996, 0.534)
pt3dadd(135.772, 125.24, 9.996, 0.556)
pt3dadd(135.886, 125.203, 9.996, 0.58)
pt3dadd(136, 125.167, 9.996, 0.602)
pt3dadd(136.114, 125.13, 9.996, 0.624)
pt3dadd(136.228, 125.093, 9.996, 0.648)
pt3dadd(136.343, 125.056, 9.996, 0.67)
pt3dadd(136.453, 125.01, 9.996, 0.69)
pt3dadd(136.562, 124.961, 9.997, 0.71)
pt3dadd(136.672, 124.91, 9.997, 0.73)
pt3dadd(136.78, 124.86, 9.997, 0.748)
pt3dadd(136.889, 124.81, 9.997, 0.768)
pt3dadd(136.998, 124.759, 9.997, 0.788)
pt3dadd(137.107, 124.71, 9.998, 0.808)
pt3dadd(137.216, 124.66, 9.998, 0.826)
}
}
proc shape3d_96() {
dend_7[2] { pt3dadd(137.326, 124.609, 9.998, 0.846)
pt3dadd(137.434, 124.559, 9.998, 0.866)
pt3dadd(137.542, 124.506, 9.998, 0.878)
pt3dadd(137.65, 124.453, 9.999, 0.888)
pt3dadd(137.756, 124.399, 9.999, 0.898)
pt3dadd(137.864, 124.345, 10, 0.906)
pt3dadd(137.971, 124.292, 10, 0.916)
pt3dadd(138.079, 124.238, 10, 0.926)
pt3dadd(138.186, 124.184, 10.001, 0.936)
pt3dadd(138.294, 124.132, 10.001, 0.946)
pt3dadd(138.401, 124.078, 10.002, 0.954)
pt3dadd(138.509, 124.024, 10.002, 0.964)
pt3dadd(138.613, 123.965, 10.003, 0.95)
pt3dadd(138.716, 123.905, 10.003, 0.928)
pt3dadd(138.82, 123.844, 10.004, 0.904)
pt3dadd(138.923, 123.782, 10.005, 0.882)
pt3dadd(139.027, 123.722, 10.005, 0.86)
pt3dadd(139.13, 123.661, 10.006, 0.836)
pt3dadd(139.234, 123.6, 10.007, 0.814)
pt3dadd(139.337, 123.54, 10.008, 0.79)
pt3dadd(139.44, 123.479, 10.009, 0.768)
pt3dadd(139.544, 123.418, 10.009, 0.744)
pt3dadd(139.649, 123.36, 10.011, 0.74)
pt3dadd(139.756, 123.305, 10.012, 0.744)
pt3dadd(139.861, 123.248, 10.014, 0.746)
pt3dadd(139.967, 123.192, 10.015, 0.75)
pt3dadd(140.074, 123.136, 10.017, 0.754)
pt3dadd(140.179, 123.079, 10.018, 0.758)
pt3dadd(140.285, 123.023, 10.02, 0.76)
pt3dadd(140.392, 122.966, 10.021, 0.764)
pt3dadd(140.497, 122.91, 10.023, 0.768)
pt3dadd(140.603, 122.855, 10.024, 0.77)
pt3dadd(140.701, 122.786, 10.027, 0.732)
pt3dadd(140.797, 122.714, 10.029, 0.68)
pt3dadd(140.894, 122.642, 10.032, 0.628)
pt3dadd(140.99, 122.572, 10.035, 0.576)
pt3dadd(141.086, 122.5, 10.037, 0.524)
pt3dadd(141.182, 122.428, 10.04, 0.472)
pt3dadd(141.278, 122.356, 10.042, 0.42)
pt3dadd(141.374, 122.284, 10.045, 0.368)
pt3dadd(141.47, 122.212, 10.048, 0.316)
pt3dadd(141.566, 122.141, 10.05, 0.264)
pt3dadd(141.659, 122.064, 10.055, 0.28)
pt3dadd(141.749, 121.985, 10.061, 0.318)
pt3dadd(141.84, 121.907, 10.066, 0.356)
pt3dadd(141.93, 121.829, 10.072, 0.394)
pt3dadd(142.021, 121.75, 10.078, 0.434)
pt3dadd(142.111, 121.672, 10.084, 0.472)
pt3dadd(142.202, 121.592, 10.089, 0.51)
pt3dadd(142.292, 121.514, 10.095, 0.548)
pt3dadd(142.384, 121.436, 10.101, 0.586)
pt3dadd(142.474, 121.357, 10.107, 0.624)
pt3dadd(142.561, 121.276, 10.115, 0.65)
pt3dadd(142.648, 121.194, 10.124, 0.67)
pt3dadd(142.734, 121.111, 10.133, 0.692)
pt3dadd(142.82, 121.028, 10.142, 0.714)
pt3dadd(142.907, 120.946, 10.151, 0.734)
pt3dadd(142.993, 120.864, 10.16, 0.756)
pt3dadd(143.08, 120.781, 10.169, 0.778)
pt3dadd(143.166, 120.698, 10.178, 0.798)
pt3dadd(143.252, 120.616, 10.187, 0.82)
pt3dadd(143.339, 120.534, 10.196, 0.842)
pt3dadd(143.424, 120.456, 10.224, 0.822)
pt3dadd(143.507, 120.382, 10.259, 0.792)
pt3dadd(143.591, 120.306, 10.294, 0.76)
pt3dadd(143.674, 120.23, 10.328, 0.728)
pt3dadd(143.758, 120.155, 10.363, 0.696)
pt3dadd(143.842, 120.079, 10.398, 0.666)
pt3dadd(143.924, 120.004, 10.432, 0.634)
pt3dadd(144.008, 119.928, 10.467, 0.602)
pt3dadd(144.091, 119.853, 10.502, 0.57)
pt3dadd(144.175, 119.777, 10.536, 0.54)
pt3dadd(144.263, 119.703, 10.565, 0.528)
pt3dadd(144.352, 119.628, 10.592, 0.52)
pt3dadd(144.439, 119.554, 10.62, 0.512)
pt3dadd(144.527, 119.48, 10.648, 0.504)
pt3dadd(144.616, 119.406, 10.676, 0.494)
pt3dadd(144.703, 119.331, 10.704, 0.486)
pt3dadd(144.792, 119.257, 10.731, 0.478)
pt3dadd(144.88, 119.183, 10.759, 0.47)
pt3dadd(144.968, 119.108, 10.787, 0.462)
pt3dadd(145.056, 119.034, 10.815, 0.452)
pt3dadd(145.159, 118.974, 10.828, 0.434)
pt3dadd(145.262, 118.916, 10.841, 0.412)
pt3dadd(145.366, 118.857, 10.854, 0.392)
pt3dadd(145.469, 118.798, 10.867, 0.372)
pt3dadd(145.573, 118.74, 10.879, 0.352)
pt3dadd(145.676, 118.681, 10.892, 0.332)
pt3dadd(145.78, 118.623, 10.905, 0.312)
pt3dadd(145.884, 118.564, 10.918, 0.292)
pt3dadd(145.987, 118.505, 10.931, 0.272)
pt3dadd(146.09, 118.447, 10.943, 0.252)
pt3dadd(146.189, 118.378, 10.945, 0.248)
pt3dadd(146.287, 118.31, 10.946, 0.246)
pt3dadd(146.386, 118.241, 10.947, 0.244)
pt3dadd(146.484, 118.172, 10.948, 0.24)
pt3dadd(146.582, 118.103, 10.95, 0.238)
pt3dadd(146.681, 118.035, 10.951, 0.236)
pt3dadd(146.779, 117.966, 10.952, 0.234)
pt3dadd(146.878, 117.897, 10.953, 0.23)
pt3dadd(146.976, 117.829, 10.954, 0.228)
pt3dadd(147.074, 117.76, 10.955, 0.226)
pt3dadd(147.169, 117.686, 10.955, 0.238)
pt3dadd(147.264, 117.612, 10.955, 0.252)
pt3dadd(147.359, 117.538, 10.955, 0.264)
pt3dadd(147.452, 117.464, 10.955, 0.278)
pt3dadd(147.547, 117.39, 10.955, 0.29)
pt3dadd(147.642, 117.316, 10.956, 0.304)
pt3dadd(147.737, 117.242, 10.956, 0.316)
pt3dadd(147.83, 117.168, 10.956, 0.33)
pt3dadd(147.925, 117.094, 10.956, 0.342)
pt3dadd(148.02, 117.02, 10.956, 0.356)
pt3dadd(148.111, 116.943, 10.956, 0.366)
pt3dadd(148.204, 116.866, 10.956, 0.374)
pt3dadd(148.296, 116.789, 10.956, 0.384)
pt3dadd(148.388, 116.712, 10.956, 0.394)
pt3dadd(148.48, 116.635, 10.956, 0.404)
pt3dadd(148.572, 116.558, 10.956, 0.414)
pt3dadd(148.664, 116.481, 10.956, 0.422)
pt3dadd(148.756, 116.404, 10.956, 0.432)
pt3dadd(148.848, 116.327, 10.956, 0.442)
pt3dadd(148.94, 116.25, 10.956, 0.452)
pt3dadd(149.034, 116.175, 10.956, 0.456)
pt3dadd(149.128, 116.101, 10.956, 0.46)
pt3dadd(149.221, 116.026, 10.956, 0.464)
pt3dadd(149.315, 115.951, 10.956, 0.468)
pt3dadd(149.41, 115.876, 10.956, 0.472)
pt3dadd(149.503, 115.801, 10.956, 0.476)
pt3dadd(149.597, 115.727, 10.956, 0.48)
pt3dadd(149.69, 115.652, 10.956, 0.486)
pt3dadd(149.784, 115.577, 10.956, 0.49)
pt3dadd(149.879, 115.502, 10.956, 0.494)
pt3dadd(149.982, 115.443, 10.956, 0.512)
pt3dadd(150.086, 115.383, 10.956, 0.53)
pt3dadd(150.191, 115.324, 10.956, 0.55)
pt3dadd(150.295, 115.264, 10.956, 0.568)
pt3dadd(150.4, 115.204, 10.956, 0.586)
pt3dadd(150.503, 115.145, 10.956, 0.604)
pt3dadd(150.607, 115.085, 10.956, 0.622)
pt3dadd(150.712, 115.025, 10.956, 0.642)
pt3dadd(150.816, 114.966, 10.956, 0.66)
pt3dadd(150.919, 114.906, 10.956, 0.678)
pt3dadd(151.02, 114.84, 10.956, 0.678)
pt3dadd(151.12, 114.773, 10.956, 0.678)
pt3dadd(151.219, 114.707, 10.956, 0.678)
pt3dadd(151.32, 114.641, 10.956, 0.678)
pt3dadd(151.42, 114.574, 10.956, 0.678)
pt3dadd(151.519, 114.508, 10.957, 0.678)
pt3dadd(151.62, 114.441, 10.957, 0.678)
pt3dadd(151.72, 114.375, 10.957, 0.678)
pt3dadd(151.819, 114.309, 10.957, 0.678)
pt3dadd(151.92, 114.242, 10.957, 0.678)
pt3dadd(152.016, 114.171, 10.957, 0.678)
pt3dadd(152.113, 114.101, 10.957, 0.678)
pt3dadd(152.21, 114.03, 10.957, 0.678)
pt3dadd(152.306, 113.959, 10.957, 0.678)
pt3dadd(152.404, 113.888, 10.957, 0.678)
pt3dadd(152.501, 113.817, 10.957, 0.678)
pt3dadd(152.598, 113.747, 10.957, 0.678)
pt3dadd(152.694, 113.676, 10.958, 0.678)
pt3dadd(152.791, 113.605, 10.958, 0.678)
pt3dadd(152.888, 113.534, 10.958, 0.678)
pt3dadd(152.993, 113.475, 10.958, 0.662)
pt3dadd(153.097, 113.417, 10.958, 0.646)
pt3dadd(153.202, 113.358, 10.959, 0.63)
pt3dadd(153.307, 113.299, 10.959, 0.614)
pt3dadd(153.412, 113.24, 10.959, 0.598)
pt3dadd(153.516, 113.181, 10.959, 0.582)
pt3dadd(153.62, 113.122, 10.96, 0.566)
pt3dadd(153.725, 113.064, 10.96, 0.55)
pt3dadd(153.829, 113.005, 10.96, 0.536)
pt3dadd(153.934, 112.946, 10.96, 0.52)
pt3dadd(154.038, 112.887, 10.961, 0.528)
pt3dadd(154.142, 112.827, 10.961, 0.534)
pt3dadd(154.247, 112.768, 10.962, 0.542)
pt3dadd(154.351, 112.709, 10.962, 0.548)
pt3dadd(154.456, 112.649, 10.963, 0.554)
pt3dadd(154.56, 112.59, 10.963, 0.562)
pt3dadd(154.664, 112.531, 10.964, 0.568)
pt3dadd(154.769, 112.471, 10.964, 0.574)
pt3dadd(154.873, 112.412, 10.965, 0.582)
pt3dadd(154.978, 112.353, 10.965, 0.588)
pt3dadd(155.086, 112.301, 10.966, 0.584)
pt3dadd(155.194, 112.249, 10.968, 0.582)
pt3dadd(155.302, 112.197, 10.969, 0.578)
pt3dadd(155.41, 112.145, 10.97, 0.576)
pt3dadd(155.518, 112.093, 10.971, 0.572)
pt3dadd(155.626, 112.04, 10.972, 0.57)
pt3dadd(155.734, 111.988, 10.973, 0.566)
pt3dadd(155.842, 111.936, 10.974, 0.562)
pt3dadd(155.951, 111.884, 10.975, 0.56)
pt3dadd(156.059, 111.832, 10.976, 0.556)
pt3dadd(156.166, 111.779, 10.978, 0.556)
pt3dadd(156.274, 111.726, 10.98, 0.556)
pt3dadd(156.382, 111.673, 10.983, 0.558)
pt3dadd(156.488, 111.62, 10.985, 0.558)
pt3dadd(156.596, 111.567, 10.987, 0.558)
pt3dadd(156.704, 111.514, 10.989, 0.558)
pt3dadd(156.812, 111.461, 10.991, 0.558)
pt3dadd(156.919, 111.408, 10.993, 0.558)
}
}
proc shape3d_97() {
dend_7[2] { pt3dadd(157.027, 111.355, 10.995, 0.558)
pt3dadd(157.135, 111.302, 10.998, 0.56)
pt3dadd(157.242, 111.248, 11.002, 0.58)
pt3dadd(157.349, 111.194, 11.007, 0.602)
pt3dadd(157.456, 111.141, 11.011, 0.622)
pt3dadd(157.564, 111.087, 11.016, 0.644)
pt3dadd(157.67, 111.033, 11.02, 0.664)
pt3dadd(157.777, 110.979, 11.025, 0.686)
pt3dadd(157.884, 110.925, 11.029, 0.706)
pt3dadd(157.992, 110.872, 11.034, 0.728)
pt3dadd(158.099, 110.818, 11.038, 0.748)
pt3dadd(158.207, 110.765, 11.043, 0.768)
pt3dadd(158.316, 110.717, 11.052, 0.782)
pt3dadd(158.425, 110.669, 11.061, 0.796)
pt3dadd(158.534, 110.62, 11.07, 0.81)
pt3dadd(158.644, 110.572, 11.079, 0.824)
pt3dadd(158.753, 110.524, 11.087, 0.838)
pt3dadd(158.863, 110.476, 11.096, 0.852)
pt3dadd(158.972, 110.428, 11.105, 0.866)
pt3dadd(159.082, 110.38, 11.114, 0.878)
pt3dadd(159.191, 110.331, 11.122, 0.892)
pt3dadd(159.3, 110.283, 11.133, 0.904)
pt3dadd(159.406, 110.231, 11.151, 0.904)
pt3dadd(159.511, 110.179, 11.17, 0.904)
pt3dadd(159.617, 110.127, 11.189, 0.904)
pt3dadd(159.722, 110.075, 11.207, 0.904)
pt3dadd(159.829, 110.023, 11.226, 0.904)
pt3dadd(159.935, 109.971, 11.245, 0.904)
pt3dadd(160.04, 109.919, 11.264, 0.904)
pt3dadd(160.146, 109.867, 11.282, 0.904)
pt3dadd(160.252, 109.815, 11.301, 0.904)
pt3dadd(160.358, 109.768, 11.325, 0.902)
pt3dadd(160.464, 109.733, 11.361, 0.9)
pt3dadd(160.571, 109.699, 11.397, 0.896)
pt3dadd(160.678, 109.665, 11.433, 0.892)
pt3dadd(160.783, 109.631, 11.47, 0.888)
pt3dadd(160.89, 109.596, 11.506, 0.884)
pt3dadd(160.997, 109.562, 11.542, 0.88)
pt3dadd(161.104, 109.528, 11.579, 0.876)
pt3dadd(161.209, 109.494, 11.615, 0.872)
pt3dadd(161.316, 109.46, 11.651, 0.868)
pt3dadd(161.424, 109.426, 11.685, 0.862)
pt3dadd(161.534, 109.394, 11.713, 0.846)
pt3dadd(161.645, 109.361, 11.741, 0.828)
pt3dadd(161.755, 109.329, 11.769, 0.814)
pt3dadd(161.866, 109.297, 11.798, 0.798)
pt3dadd(161.976, 109.265, 11.826, 0.782)
pt3dadd(162.086, 109.232, 11.854, 0.766)
pt3dadd(162.198, 109.2, 11.882, 0.75)
pt3dadd(162.308, 109.168, 11.91, 0.734)
pt3dadd(162.419, 109.136, 11.938, 0.718)
pt3dadd(162.528, 109.098, 11.964, 0.712)
pt3dadd(162.634, 109.047, 11.985, 0.732)
pt3dadd(162.739, 108.996, 12.006, 0.75)
pt3dadd(162.845, 108.944, 12.026, 0.768)
pt3dadd(162.95, 108.893, 12.047, 0.788)
pt3dadd(163.056, 108.842, 12.068, 0.806)
pt3dadd(163.162, 108.791, 12.089, 0.826)
pt3dadd(163.267, 108.74, 12.109, 0.844)
pt3dadd(163.373, 108.689, 12.13, 0.862)
pt3dadd(163.478, 108.638, 12.151, 0.882)
pt3dadd(163.584, 108.59, 12.176, 0.888)
pt3dadd(163.688, 108.549, 12.211, 0.868)
pt3dadd(163.794, 108.508, 12.246, 0.846)
pt3dadd(163.898, 108.466, 12.281, 0.826)
pt3dadd(164.003, 108.425, 12.316, 0.806)
pt3dadd(164.107, 108.384, 12.351, 0.786)
pt3dadd(164.212, 108.343, 12.386, 0.766)
pt3dadd(164.316, 108.301, 12.421, 0.744)
pt3dadd(164.42, 108.26, 12.456, 0.724)
pt3dadd(164.526, 108.219, 12.491, 0.704)
pt3dadd(164.629, 108.172, 12.522, 0.69)
pt3dadd(164.731, 108.114, 12.543, 0.688)
pt3dadd(164.832, 108.055, 12.565, 0.686)
pt3dadd(164.934, 107.997, 12.587, 0.686)
pt3dadd(165.035, 107.938, 12.608, 0.684)
pt3dadd(165.137, 107.88, 12.63, 0.684)
pt3dadd(165.238, 107.821, 12.652, 0.682)
pt3dadd(165.34, 107.763, 12.674, 0.682)
pt3dadd(165.442, 107.704, 12.696, 0.68)
pt3dadd(165.542, 107.646, 12.717, 0.678)
pt3dadd(165.647, 107.592, 12.736, 0.666)
pt3dadd(165.757, 107.546, 12.749, 0.632)
pt3dadd(165.866, 107.5, 12.761, 0.596)
pt3dadd(165.977, 107.455, 12.774, 0.56)
pt3dadd(166.086, 107.409, 12.787, 0.526)
pt3dadd(166.196, 107.363, 12.799, 0.49)
pt3dadd(166.307, 107.318, 12.812, 0.454)
pt3dadd(166.416, 107.272, 12.824, 0.42)
pt3dadd(166.526, 107.226, 12.837, 0.384)
pt3dadd(166.637, 107.181, 12.85, 0.348)
pt3dadd(166.745, 107.132, 12.859, 0.334)
pt3dadd(166.853, 107.079, 12.862, 0.356)
pt3dadd(166.96, 107.025, 12.865, 0.378)
pt3dadd(167.068, 106.972, 12.867, 0.4)
pt3dadd(167.174, 106.918, 12.87, 0.422)
pt3dadd(167.282, 106.864, 12.873, 0.444)
pt3dadd(167.389, 106.811, 12.876, 0.466)
pt3dadd(167.496, 106.757, 12.879, 0.488)
pt3dadd(167.604, 106.704, 12.882, 0.51)
pt3dadd(167.711, 106.65, 12.884, 0.532)
pt3dadd(167.82, 106.601, 12.886, 0.556)
pt3dadd(167.933, 106.558, 12.887, 0.586)
pt3dadd(168.044, 106.515, 12.888, 0.614)
pt3dadd(168.157, 106.473, 12.889, 0.642)
pt3dadd(168.269, 106.43, 12.89, 0.67)
pt3dadd(168.382, 106.387, 12.891, 0.7)
pt3dadd(168.493, 106.344, 12.892, 0.728)
pt3dadd(168.605, 106.302, 12.893, 0.758)
pt3dadd(168.718, 106.259, 12.894, 0.786)
pt3dadd(168.829, 106.216, 12.895, 0.814)
pt3dadd(168.943, 106.179, 12.897, 0.828)
pt3dadd(169.06, 106.15, 12.899, 0.82)
pt3dadd(169.176, 106.121, 12.901, 0.81)
pt3dadd(169.292, 106.092, 12.903, 0.802)
pt3dadd(169.409, 106.063, 12.905, 0.794)
pt3dadd(169.525, 106.034, 12.907, 0.786)
pt3dadd(169.642, 106.005, 12.909, 0.778)
pt3dadd(169.758, 105.976, 12.911, 0.77)
pt3dadd(169.874, 105.947, 12.913, 0.762)
pt3dadd(169.991, 105.918, 12.915, 0.754)
pt3dadd(170.106, 105.885, 12.919, 0.76)
pt3dadd(170.22, 105.847, 12.924, 0.782)
pt3dadd(170.334, 105.81, 12.929, 0.806)
pt3dadd(170.448, 105.772, 12.934, 0.828)
pt3dadd(170.562, 105.735, 12.938, 0.852)
pt3dadd(170.676, 105.697, 12.943, 0.876)
pt3dadd(170.789, 105.66, 12.948, 0.898)
pt3dadd(170.903, 105.622, 12.953, 0.922)
pt3dadd(171.017, 105.585, 12.958, 0.946)
pt3dadd(171.131, 105.547, 12.963, 0.968)
pt3dadd(171.245, 105.513, 12.97, 0.96)
pt3dadd(171.361, 105.482, 12.979, 0.914)
pt3dadd(171.476, 105.451, 12.987, 0.868)
pt3dadd(171.592, 105.421, 12.996, 0.822)
pt3dadd(171.708, 105.39, 13.004, 0.776)
pt3dadd(171.823, 105.359, 13.013, 0.73)
pt3dadd(171.938, 105.328, 13.022, 0.684)
pt3dadd(172.054, 105.298, 13.03, 0.638)
pt3dadd(172.17, 105.267, 13.039, 0.592)
pt3dadd(172.285, 105.236, 13.048, 0.546)
pt3dadd(172.4, 105.216, 13.066, 0.53)
pt3dadd(172.516, 105.207, 13.093, 0.546)
pt3dadd(172.631, 105.198, 13.12, 0.562)
pt3dadd(172.746, 105.188, 13.147, 0.576)
pt3dadd(172.861, 105.179, 13.175, 0.592)
pt3dadd(172.976, 105.17, 13.202, 0.608)
pt3dadd(173.092, 105.16, 13.229, 0.624)
pt3dadd(173.206, 105.151, 13.256, 0.638)
pt3dadd(173.321, 105.141, 13.284, 0.654)
pt3dadd(173.436, 105.132, 13.311, 0.67)
pt3dadd(173.552, 105.136, 13.336, 0.7)
pt3dadd(173.668, 105.148, 13.36, 0.738)
pt3dadd(173.784, 105.16, 13.383, 0.776)
pt3dadd(173.9, 105.172, 13.407, 0.814)
pt3dadd(174.016, 105.184, 13.431, 0.852)
pt3dadd(174.132, 105.196, 13.454, 0.89)
pt3dadd(174.247, 105.208, 13.478, 0.93)
pt3dadd(174.364, 105.22, 13.502, 0.968)
pt3dadd(174.48, 105.232, 13.525, 1.006)
pt3dadd(174.595, 105.244, 13.549, 1.044)
pt3dadd(174.708, 105.279, 13.56, 1.042)
pt3dadd(174.82, 105.324, 13.565, 1.02)
pt3dadd(174.93, 105.369, 13.571, 0.996)
pt3dadd(175.042, 105.413, 13.576, 0.974)
pt3dadd(175.153, 105.458, 13.581, 0.952)
pt3dadd(175.264, 105.503, 13.586, 0.93)
pt3dadd(175.375, 105.548, 13.592, 0.908)
pt3dadd(175.486, 105.593, 13.597, 0.886)
pt3dadd(175.597, 105.638, 13.602, 0.864)
pt3dadd(175.708, 105.683, 13.608, 0.84)
pt3dadd(175.813, 105.735, 13.589, 0.834)
pt3dadd(175.918, 105.787, 13.566, 0.832)
pt3dadd(176.022, 105.84, 13.543, 0.83)
pt3dadd(176.125, 105.893, 13.52, 0.828)
pt3dadd(176.23, 105.946, 13.496, 0.824)
pt3dadd(176.334, 105.998, 13.473, 0.822)
pt3dadd(176.438, 106.051, 13.45, 0.82)
pt3dadd(176.542, 106.104, 13.427, 0.816)
pt3dadd(176.646, 106.157, 13.403, 0.814)
pt3dadd(176.75, 106.209, 13.38, 0.812)
pt3dadd(176.848, 106.272, 13.352, 0.798)
pt3dadd(176.944, 106.334, 13.324, 0.784)
pt3dadd(177.041, 106.397, 13.296, 0.77)
pt3dadd(177.138, 106.459, 13.268, 0.754)
pt3dadd(177.234, 106.522, 13.24, 0.74)
pt3dadd(177.331, 106.584, 13.212, 0.726)
pt3dadd(177.427, 106.646, 13.184, 0.712)
pt3dadd(177.524, 106.709, 13.155, 0.698)
pt3dadd(177.622, 106.771, 13.127, 0.684)
pt3dadd(177.718, 106.835, 13.1, 0.67)
pt3dadd(177.802, 106.918, 13.083, 0.672)
pt3dadd(177.886, 107.001, 13.066, 0.672)
pt3dadd(177.97, 107.085, 13.049, 0.674)
pt3dadd(178.054, 107.168, 13.032, 0.674)
pt3dadd(178.138, 107.251, 13.016, 0.676)
pt3dadd(178.222, 107.335, 12.999, 0.678)
pt3dadd(178.306, 107.418, 12.982, 0.678)
pt3dadd(178.39, 107.501, 12.965, 0.68)
pt3dadd(178.474, 107.585, 12.948, 0.682)
}
}
proc shape3d_98() {
dend_7[2] { pt3dadd(178.558, 107.668, 12.933, 0.688)
pt3dadd(178.642, 107.753, 12.928, 0.724)
pt3dadd(178.727, 107.837, 12.924, 0.76)
pt3dadd(178.812, 107.922, 12.919, 0.796)
pt3dadd(178.897, 108.007, 12.914, 0.832)
pt3dadd(178.981, 108.091, 12.909, 0.868)
pt3dadd(179.066, 108.176, 12.904, 0.906)
pt3dadd(179.152, 108.26, 12.9, 0.942)
pt3dadd(179.237, 108.345, 12.895, 0.978)
pt3dadd(179.322, 108.429, 12.89, 1.014)
pt3dadd(179.408, 108.512, 12.887, 1.038)
pt3dadd(179.5, 108.589, 12.888, 1.018)
pt3dadd(179.592, 108.667, 12.889, 0.998)
pt3dadd(179.683, 108.744, 12.89, 0.978)
pt3dadd(179.776, 108.821, 12.891, 0.958)
pt3dadd(179.868, 108.898, 12.892, 0.94)
pt3dadd(179.959, 108.975, 12.893, 0.92)
pt3dadd(180.052, 109.052, 12.894, 0.9)
pt3dadd(180.143, 109.129, 12.896, 0.88)
pt3dadd(180.235, 109.207, 12.897, 0.86)
pt3dadd(180.326, 109.284, 12.898, 0.842)
pt3dadd(180.416, 109.363, 12.9, 0.824)
pt3dadd(180.506, 109.443, 12.902, 0.808)
pt3dadd(180.598, 109.522, 12.904, 0.792)
pt3dadd(180.688, 109.601, 12.906, 0.774)
pt3dadd(180.778, 109.68, 12.908, 0.758)
pt3dadd(180.868, 109.759, 12.91, 0.742)
pt3dadd(180.958, 109.839, 12.912, 0.724)
pt3dadd(181.048, 109.918, 12.914, 0.708)
pt3dadd(181.138, 109.997, 12.916, 0.69)
pt3dadd(181.226, 110.078, 12.919, 0.68)
pt3dadd(181.308, 110.166, 12.923, 0.692)
pt3dadd(181.39, 110.254, 12.928, 0.704)
pt3dadd(181.471, 110.342, 12.933, 0.714)
pt3dadd(181.553, 110.43, 12.937, 0.726)
pt3dadd(181.633, 110.517, 12.942, 0.738)
pt3dadd(181.715, 110.605, 12.947, 0.748)
pt3dadd(181.796, 110.693, 12.951, 0.76)
pt3dadd(181.878, 110.781, 12.956, 0.772)
pt3dadd(181.96, 110.869, 12.961, 0.782)
pt3dadd(182.044, 110.954, 12.967, 0.786)
pt3dadd(182.132, 111.034, 12.978, 0.77)
pt3dadd(182.221, 111.113, 12.988, 0.754)
pt3dadd(182.311, 111.193, 12.998, 0.736)
pt3dadd(182.4, 111.272, 13.009, 0.72)
pt3dadd(182.489, 111.352, 13.02, 0.704)
pt3dadd(182.578, 111.431, 13.03, 0.688)
pt3dadd(182.666, 111.511, 13.04, 0.67)
pt3dadd(182.756, 111.59, 13.051, 0.654)
pt3dadd(182.845, 111.67, 13.061, 0.638)
pt3dadd(182.941, 111.732, 13.082, 0.628)
pt3dadd(183.047, 111.775, 13.113, 0.626)
pt3dadd(183.152, 111.818, 13.144, 0.624)
pt3dadd(183.258, 111.861, 13.176, 0.622)
pt3dadd(183.364, 111.904, 13.207, 0.618)
pt3dadd(183.469, 111.947, 13.238, 0.616)
pt3dadd(183.575, 111.99, 13.27, 0.614)
pt3dadd(183.68, 112.033, 13.301, 0.612)
pt3dadd(183.786, 112.077, 13.332, 0.61)
pt3dadd(183.892, 112.12, 13.364, 0.608)
pt3dadd(183.996, 112.166, 13.393, 0.602)
pt3dadd(184.102, 112.214, 13.42, 0.596)
pt3dadd(184.206, 112.262, 13.448, 0.588)
pt3dadd(184.31, 112.31, 13.475, 0.582)
pt3dadd(184.416, 112.359, 13.503, 0.574)
pt3dadd(184.52, 112.407, 13.53, 0.568)
pt3dadd(184.625, 112.455, 13.558, 0.56)
pt3dadd(184.73, 112.503, 13.585, 0.552)
pt3dadd(184.835, 112.551, 13.613, 0.546)
pt3dadd(184.939, 112.599, 13.64, 0.538)
pt3dadd(185.045, 112.651, 13.66, 0.53)
pt3dadd(185.152, 112.704, 13.675, 0.522)
pt3dadd(185.257, 112.757, 13.691, 0.514)
pt3dadd(185.364, 112.81, 13.706, 0.506)
pt3dadd(185.47, 112.863, 13.721, 0.496)
pt3dadd(185.576, 112.915, 13.737, 0.488)
pt3dadd(185.682, 112.968, 13.752, 0.48)
pt3dadd(185.788, 113.021, 13.768, 0.472)
pt3dadd(185.894, 113.074, 13.783, 0.464)
pt3dadd(186, 113.127, 13.799, 0.454)
pt3dadd(186.103, 113.187, 13.807, 0.46)
pt3dadd(186.205, 113.25, 13.813, 0.47)
pt3dadd(186.307, 113.312, 13.82, 0.48)
pt3dadd(186.409, 113.375, 13.826, 0.49)
pt3dadd(186.511, 113.438, 13.832, 0.5)
pt3dadd(186.613, 113.501, 13.838, 0.51)
pt3dadd(186.715, 113.563, 13.844, 0.52)
pt3dadd(186.818, 113.626, 13.85, 0.53)
pt3dadd(186.92, 113.689, 13.856, 0.54)
pt3dadd(187.022, 113.751, 13.862, 0.552)
pt3dadd(187.118, 113.823, 13.865, 0.562)
pt3dadd(187.212, 113.897, 13.868, 0.576)
pt3dadd(187.306, 113.972, 13.87, 0.588)
pt3dadd(187.4, 114.046, 13.872, 0.6)
pt3dadd(187.494, 114.121, 13.874, 0.612)
pt3dadd(187.589, 114.195, 13.877, 0.626)
pt3dadd(187.682, 114.27, 13.879, 0.638)
pt3dadd(187.776, 114.344, 13.881, 0.65)
pt3dadd(187.871, 114.419, 13.883, 0.662)
pt3dadd(187.964, 114.493, 13.886, 0.676)
pt3dadd(188.054, 114.572, 13.889, 0.68)
pt3dadd(188.144, 114.652, 13.893, 0.682)
pt3dadd(188.233, 114.732, 13.897, 0.686)
pt3dadd(188.322, 114.813, 13.901, 0.688)
pt3dadd(188.412, 114.893, 13.905, 0.69)
pt3dadd(188.501, 114.973, 13.909, 0.692)
pt3dadd(188.59, 115.053, 13.913, 0.696)
pt3dadd(188.678, 115.133, 13.916, 0.698)
pt3dadd(188.768, 115.213, 13.92, 0.7)
pt3dadd(188.857, 115.293, 13.924, 0.704)
pt3dadd(188.942, 115.377, 13.932, 0.718)
pt3dadd(189.028, 115.462, 13.94, 0.736)
pt3dadd(189.112, 115.546, 13.949, 0.756)
pt3dadd(189.197, 115.631, 13.957, 0.774)
pt3dadd(189.281, 115.715, 13.966, 0.794)
pt3dadd(189.365, 115.8, 13.974, 0.812)
pt3dadd(189.45, 115.885, 13.983, 0.83)
pt3dadd(189.534, 115.969, 13.991, 0.85)
pt3dadd(189.619, 116.054, 14, 0.868)
pt3dadd(189.703, 116.139, 14.008, 0.886)
pt3dadd(189.787, 116.223, 14.02, 0.892)
pt3dadd(189.871, 116.307, 14.034, 0.894)
pt3dadd(189.956, 116.391, 14.047, 0.894)
pt3dadd(190.04, 116.475, 14.06, 0.896)
pt3dadd(190.124, 116.559, 14.073, 0.898)
pt3dadd(190.208, 116.643, 14.086, 0.898)
pt3dadd(190.292, 116.727, 14.1, 0.9)
pt3dadd(190.376, 116.811, 14.113, 0.902)
pt3dadd(190.46, 116.895, 14.126, 0.902)
pt3dadd(190.546, 116.979, 14.139, 0.904)
pt3dadd(190.613, 117.047, 14.194, 0.85)
pt3dadd(190.675, 117.11, 14.261, 0.782)
pt3dadd(190.739, 117.172, 14.328, 0.712)
pt3dadd(190.801, 117.235, 14.396, 0.642)
pt3dadd(190.864, 117.298, 14.463, 0.574)
pt3dadd(190.927, 117.361, 14.53, 0.504)
pt3dadd(190.99, 117.424, 14.597, 0.434)
pt3dadd(191.052, 117.486, 14.665, 0.364)
pt3dadd(191.116, 117.549, 14.732, 0.296)
pt3dadd(191.178, 117.612, 14.799, 0.226)
}
dend_7[3] {pt3dclear()
pt3dadd(121.25, 123.847, 9.403, 0.678)
pt3dadd(121.29, 123.761, 9.383, 0.69)
pt3dadd(121.338, 123.654, 9.359, 0.704)
pt3dadd(121.386, 123.548, 9.335, 0.72)
pt3dadd(121.435, 123.443, 9.311, 0.734)
pt3dadd(121.483, 123.337, 9.286, 0.748)
pt3dadd(121.531, 123.23, 9.262, 0.764)
pt3dadd(121.58, 123.125, 9.238, 0.778)
pt3dadd(121.628, 123.019, 9.214, 0.794)
pt3dadd(121.676, 122.912, 9.19, 0.808)
pt3dadd(121.726, 122.807, 9.166, 0.822)
pt3dadd(121.782, 122.706, 9.146, 0.826)
pt3dadd(121.859, 122.614, 9.134, 0.806)
pt3dadd(121.934, 122.522, 9.122, 0.786)
pt3dadd(122.01, 122.43, 9.11, 0.766)
pt3dadd(122.087, 122.339, 9.097, 0.746)
pt3dadd(122.162, 122.248, 9.086, 0.726)
pt3dadd(122.239, 122.155, 9.073, 0.706)
pt3dadd(122.315, 122.064, 9.061, 0.686)
pt3dadd(122.39, 121.972, 9.049, 0.666)
pt3dadd(122.467, 121.88, 9.037, 0.646)
pt3dadd(122.558, 121.805, 9.033, 0.616)
pt3dadd(122.657, 121.736, 9.033, 0.584)
pt3dadd(122.756, 121.668, 9.033, 0.552)
pt3dadd(122.855, 121.6, 9.033, 0.52)
pt3dadd(122.953, 121.531, 9.033, 0.486)
pt3dadd(123.052, 121.463, 9.033, 0.454)
pt3dadd(123.15, 121.394, 9.033, 0.422)
pt3dadd(123.25, 121.326, 9.033, 0.388)
pt3dadd(123.348, 121.258, 9.033, 0.356)
pt3dadd(123.446, 121.189, 9.033, 0.324)
pt3dadd(123.551, 121.13, 9.033, 0.348)
pt3dadd(123.656, 121.074, 9.033, 0.394)
pt3dadd(123.762, 121.018, 9.033, 0.44)
pt3dadd(123.869, 120.961, 9.033, 0.486)
pt3dadd(123.974, 120.905, 9.033, 0.53)
pt3dadd(124.08, 120.85, 9.033, 0.576)
pt3dadd(124.187, 120.793, 9.033, 0.622)
pt3dadd(124.292, 120.737, 9.033, 0.668)
pt3dadd(124.398, 120.68, 9.033, 0.714)
pt3dadd(124.505, 120.624, 9.033, 0.758)
pt3dadd(124.607, 120.562, 9.033, 0.796)
pt3dadd(124.708, 120.497, 9.033, 0.83)
pt3dadd(124.808, 120.431, 9.033, 0.864)
pt3dadd(124.909, 120.366, 9.033, 0.898)
pt3dadd(125.009, 120.3, 9.033, 0.932)
pt3dadd(125.11, 120.235, 9.033, 0.966)
pt3dadd(125.21, 120.169, 9.033, 1)
pt3dadd(125.311, 120.104, 9.032, 1.034)
pt3dadd(125.412, 120.04, 9.032, 1.068)
pt3dadd(125.513, 119.974, 9.032, 1.104)
pt3dadd(125.612, 119.907, 9.032, 1.098)
pt3dadd(125.712, 119.84, 9.032, 1.078)
pt3dadd(125.81, 119.772, 9.032, 1.058)
pt3dadd(125.91, 119.705, 9.032, 1.04)
pt3dadd(126.01, 119.637, 9.032, 1.02)
pt3dadd(126.109, 119.57, 9.032, 1)
pt3dadd(126.208, 119.502, 9.032, 0.98)
pt3dadd(126.307, 119.435, 9.031, 0.962)
pt3dadd(126.407, 119.367, 9.031, 0.942)
}
}
proc shape3d_99() {
dend_7[3] { pt3dadd(126.505, 119.3, 9.031, 0.922)
pt3dadd(126.612, 119.246, 9.031, 0.886)
pt3dadd(126.721, 119.196, 9.031, 0.846)
pt3dadd(126.832, 119.147, 9.031, 0.804)
pt3dadd(126.941, 119.098, 9.03, 0.762)
pt3dadd(127.05, 119.048, 9.03, 0.72)
pt3dadd(127.159, 118.999, 9.03, 0.678)
pt3dadd(127.268, 118.95, 9.03, 0.636)
pt3dadd(127.378, 118.9, 9.029, 0.596)
pt3dadd(127.487, 118.851, 9.029, 0.554)
pt3dadd(127.597, 118.801, 9.029, 0.512)
pt3dadd(127.711, 118.766, 9.028, 0.498)
pt3dadd(127.826, 118.735, 9.028, 0.492)
pt3dadd(127.943, 118.704, 9.027, 0.488)
pt3dadd(128.059, 118.673, 9.026, 0.482)
pt3dadd(128.174, 118.642, 9.026, 0.478)
pt3dadd(128.291, 118.611, 9.025, 0.474)
pt3dadd(128.406, 118.58, 9.025, 0.468)
pt3dadd(128.522, 118.549, 9.024, 0.464)
pt3dadd(128.639, 118.518, 9.024, 0.458)
pt3dadd(128.754, 118.487, 9.023, 0.454)
pt3dadd(128.867, 118.444, 9.022, 0.468)
pt3dadd(128.977, 118.398, 9.021, 0.486)
pt3dadd(129.088, 118.351, 9.019, 0.506)
pt3dadd(129.198, 118.305, 9.018, 0.526)
pt3dadd(129.308, 118.259, 9.017, 0.546)
pt3dadd(129.42, 118.212, 9.016, 0.566)
pt3dadd(129.53, 118.166, 9.014, 0.586)
pt3dadd(129.641, 118.119, 9.013, 0.606)
pt3dadd(129.751, 118.073, 9.012, 0.624)
pt3dadd(129.862, 118.027, 9.011, 0.644)
pt3dadd(129.974, 117.986, 9.008, 0.652)
pt3dadd(130.088, 117.946, 9.006, 0.654)
pt3dadd(130.201, 117.907, 9.003, 0.658)
pt3dadd(130.315, 117.867, 9, 0.66)
pt3dadd(130.428, 117.828, 8.998, 0.662)
pt3dadd(130.541, 117.788, 8.995, 0.666)
pt3dadd(130.655, 117.749, 8.993, 0.668)
pt3dadd(130.768, 117.709, 8.99, 0.672)
pt3dadd(130.88, 117.669, 8.988, 0.674)
pt3dadd(130.994, 117.63, 8.985, 0.678)
pt3dadd(131.11, 117.597, 8.979, 0.662)
pt3dadd(131.225, 117.565, 8.972, 0.64)
pt3dadd(131.34, 117.533, 8.966, 0.618)
pt3dadd(131.455, 117.501, 8.959, 0.596)
pt3dadd(131.57, 117.469, 8.952, 0.574)
pt3dadd(131.687, 117.438, 8.945, 0.554)
pt3dadd(131.802, 117.406, 8.939, 0.532)
pt3dadd(131.917, 117.374, 8.932, 0.51)
pt3dadd(132.032, 117.342, 8.925, 0.49)
pt3dadd(132.148, 117.31, 8.918, 0.468)
pt3dadd(132.257, 117.262, 8.908, 0.48)
pt3dadd(132.364, 117.21, 8.896, 0.502)
pt3dadd(132.47, 117.157, 8.885, 0.522)
pt3dadd(132.578, 117.105, 8.873, 0.544)
pt3dadd(132.685, 117.052, 8.862, 0.566)
pt3dadd(132.792, 117, 8.85, 0.588)
pt3dadd(132.899, 116.947, 8.839, 0.608)
pt3dadd(133.006, 116.895, 8.827, 0.63)
pt3dadd(133.114, 116.842, 8.816, 0.652)
pt3dadd(133.22, 116.79, 8.804, 0.674)
pt3dadd(133.316, 116.739, 8.766, 0.678)
pt3dadd(133.411, 116.689, 8.72, 0.678)
pt3dadd(133.506, 116.639, 8.675, 0.678)
pt3dadd(133.6, 116.589, 8.629, 0.678)
pt3dadd(133.694, 116.538, 8.583, 0.678)
pt3dadd(133.788, 116.488, 8.538, 0.678)
pt3dadd(133.883, 116.438, 8.493, 0.678)
pt3dadd(133.978, 116.388, 8.447, 0.678)
pt3dadd(134.071, 116.337, 8.401, 0.678)
pt3dadd(134.166, 116.287, 8.356, 0.678)
pt3dadd(134.27, 116.237, 8.331, 0.67)
pt3dadd(134.376, 116.186, 8.309, 0.66)
pt3dadd(134.482, 116.136, 8.288, 0.65)
pt3dadd(134.587, 116.086, 8.266, 0.642)
pt3dadd(134.693, 116.035, 8.244, 0.632)
pt3dadd(134.798, 115.985, 8.223, 0.622)
pt3dadd(134.904, 115.934, 8.201, 0.612)
pt3dadd(135.011, 115.884, 8.179, 0.604)
pt3dadd(135.116, 115.834, 8.158, 0.594)
pt3dadd(135.222, 115.783, 8.136, 0.584)
pt3dadd(135.324, 115.721, 8.129, 0.58)
pt3dadd(135.426, 115.658, 8.123, 0.574)
pt3dadd(135.528, 115.595, 8.116, 0.57)
pt3dadd(135.63, 115.532, 8.11, 0.564)
pt3dadd(135.731, 115.469, 8.104, 0.56)
pt3dadd(135.833, 115.406, 8.098, 0.554)
pt3dadd(135.935, 115.343, 8.091, 0.55)
pt3dadd(136.037, 115.28, 8.085, 0.544)
pt3dadd(136.139, 115.217, 8.079, 0.54)
pt3dadd(136.241, 115.154, 8.073, 0.536)
pt3dadd(136.344, 115.094, 8.072, 0.538)
pt3dadd(136.448, 115.034, 8.072, 0.54)
pt3dadd(136.552, 114.973, 8.072, 0.542)
pt3dadd(136.656, 114.913, 8.072, 0.544)
pt3dadd(136.759, 114.853, 8.072, 0.546)
pt3dadd(136.864, 114.793, 8.072, 0.548)
pt3dadd(136.968, 114.733, 8.072, 0.55)
pt3dadd(137.071, 114.673, 8.072, 0.554)
pt3dadd(137.176, 114.613, 8.072, 0.556)
pt3dadd(137.279, 114.553, 8.072, 0.558)
pt3dadd(137.393, 114.515, 8.072, 0.524)
pt3dadd(137.507, 114.477, 8.072, 0.492)
pt3dadd(137.621, 114.44, 8.072, 0.458)
pt3dadd(137.735, 114.402, 8.072, 0.424)
pt3dadd(137.849, 114.365, 8.071, 0.392)
pt3dadd(137.963, 114.327, 8.071, 0.358)
pt3dadd(138.077, 114.29, 8.071, 0.324)
pt3dadd(138.191, 114.253, 8.071, 0.292)
pt3dadd(138.305, 114.215, 8.071, 0.258)
pt3dadd(138.419, 114.178, 8.071, 0.226)
pt3dadd(138.538, 114.16, 8.071, 0.234)
pt3dadd(138.656, 114.142, 8.071, 0.24)
pt3dadd(138.775, 114.123, 8.071, 0.248)
pt3dadd(138.894, 114.105, 8.07, 0.254)
pt3dadd(139.012, 114.087, 8.07, 0.262)
pt3dadd(139.13, 114.069, 8.07, 0.268)
pt3dadd(139.249, 114.051, 8.07, 0.274)
pt3dadd(139.368, 114.032, 8.07, 0.282)
pt3dadd(139.487, 114.014, 8.069, 0.288)
pt3dadd(139.606, 113.996, 8.069, 0.296)
pt3dadd(139.723, 113.976, 8.069, 0.33)
pt3dadd(139.842, 113.956, 8.068, 0.362)
pt3dadd(139.96, 113.937, 8.068, 0.396)
pt3dadd(140.078, 113.917, 8.067, 0.428)
pt3dadd(140.197, 113.897, 8.067, 0.46)
pt3dadd(140.315, 113.877, 8.066, 0.494)
pt3dadd(140.434, 113.858, 8.066, 0.526)
pt3dadd(140.552, 113.838, 8.066, 0.56)
pt3dadd(140.67, 113.818, 8.065, 0.592)
pt3dadd(140.789, 113.797, 8.065, 0.624)
pt3dadd(140.899, 113.75, 8.064, 0.644)
pt3dadd(141.01, 113.703, 8.063, 0.662)
pt3dadd(141.12, 113.656, 8.062, 0.682)
pt3dadd(141.23, 113.609, 8.061, 0.7)
pt3dadd(141.341, 113.562, 8.06, 0.72)
pt3dadd(141.451, 113.515, 8.059, 0.738)
pt3dadd(141.562, 113.468, 8.058, 0.758)
pt3dadd(141.672, 113.421, 8.057, 0.776)
pt3dadd(141.782, 113.374, 8.056, 0.796)
pt3dadd(141.888, 113.32, 8.054, 0.806)
pt3dadd(141.976, 113.239, 8.052, 0.784)
pt3dadd(142.064, 113.157, 8.05, 0.76)
pt3dadd(142.152, 113.076, 8.048, 0.738)
pt3dadd(142.24, 112.994, 8.046, 0.716)
pt3dadd(142.328, 112.913, 8.044, 0.694)
pt3dadd(142.416, 112.831, 8.042, 0.672)
pt3dadd(142.504, 112.75, 8.04, 0.648)
pt3dadd(142.592, 112.668, 8.038, 0.626)
pt3dadd(142.68, 112.587, 8.036, 0.604)
pt3dadd(142.763, 112.5, 8.034, 0.582)
pt3dadd(142.835, 112.405, 8.03, 0.56)
pt3dadd(142.908, 112.309, 8.025, 0.538)
pt3dadd(142.98, 112.213, 8.021, 0.516)
pt3dadd(143.052, 112.118, 8.017, 0.494)
pt3dadd(143.124, 112.022, 8.012, 0.474)
pt3dadd(143.197, 111.927, 8.008, 0.452)
pt3dadd(143.269, 111.831, 8.004, 0.43)
pt3dadd(143.341, 111.735, 8, 0.408)
pt3dadd(143.413, 111.64, 7.996, 0.386)
pt3dadd(143.489, 111.546, 7.99, 0.372)
pt3dadd(143.569, 111.457, 7.983, 0.368)
pt3dadd(143.648, 111.368, 7.975, 0.362)
pt3dadd(143.729, 111.279, 7.968, 0.358)
pt3dadd(143.808, 111.19, 7.961, 0.354)
pt3dadd(143.888, 111.101, 7.954, 0.35)
pt3dadd(143.969, 111.012, 7.946, 0.346)
pt3dadd(144.048, 110.923, 7.939, 0.342)
pt3dadd(144.128, 110.834, 7.931, 0.338)
pt3dadd(144.208, 110.745, 7.924, 0.334)
pt3dadd(144.292, 110.66, 7.915, 0.342)
pt3dadd(144.382, 110.582, 7.901, 0.372)
pt3dadd(144.472, 110.505, 7.888, 0.404)
pt3dadd(144.562, 110.427, 7.875, 0.434)
pt3dadd(144.652, 110.349, 7.862, 0.464)
pt3dadd(144.742, 110.271, 7.849, 0.494)
pt3dadd(144.833, 110.194, 7.836, 0.526)
pt3dadd(144.923, 110.116, 7.823, 0.556)
pt3dadd(145.013, 110.038, 7.809, 0.586)
pt3dadd(145.103, 109.961, 7.796, 0.616)
pt3dadd(145.198, 109.897, 7.773, 0.614)
pt3dadd(145.3, 109.851, 7.737, 0.574)
pt3dadd(145.403, 109.805, 7.701, 0.534)
pt3dadd(145.505, 109.759, 7.665, 0.492)
pt3dadd(145.607, 109.713, 7.629, 0.452)
pt3dadd(145.709, 109.667, 7.593, 0.412)
pt3dadd(145.811, 109.621, 7.557, 0.37)
pt3dadd(145.913, 109.575, 7.521, 0.33)
pt3dadd(146.015, 109.529, 7.486, 0.29)
pt3dadd(146.117, 109.483, 7.45, 0.248)
pt3dadd(146.221, 109.436, 7.419, 0.236)
pt3dadd(146.327, 109.388, 7.394, 0.258)
pt3dadd(146.432, 109.341, 7.368, 0.28)
pt3dadd(146.538, 109.293, 7.343, 0.3)
pt3dadd(146.644, 109.245, 7.318, 0.322)
pt3dadd(146.75, 109.197, 7.293, 0.342)
pt3dadd(146.856, 109.149, 7.268, 0.364)
pt3dadd(146.962, 109.102, 7.242, 0.386)
pt3dadd(147.067, 109.054, 7.217, 0.406)
pt3dadd(147.174, 109.006, 7.192, 0.428)
}
}
proc shape3d_100() {
dend_7[3] { pt3dadd(147.284, 108.973, 7.169, 0.45)
pt3dadd(147.401, 108.957, 7.15, 0.474)
pt3dadd(147.517, 108.942, 7.13, 0.496)
pt3dadd(147.634, 108.926, 7.11, 0.52)
pt3dadd(147.751, 108.91, 7.091, 0.544)
pt3dadd(147.868, 108.894, 7.071, 0.566)
pt3dadd(147.984, 108.878, 7.051, 0.59)
pt3dadd(148.1, 108.863, 7.032, 0.614)
pt3dadd(148.217, 108.847, 7.012, 0.636)
pt3dadd(148.333, 108.831, 6.992, 0.66)
pt3dadd(148.447, 108.844, 6.973, 0.664)
pt3dadd(148.558, 108.885, 6.955, 0.65)
pt3dadd(148.669, 108.925, 6.937, 0.636)
pt3dadd(148.78, 108.966, 6.918, 0.62)
pt3dadd(148.89, 109.007, 6.9, 0.606)
pt3dadd(149, 109.047, 6.881, 0.592)
pt3dadd(149.112, 109.088, 6.863, 0.578)
pt3dadd(149.222, 109.129, 6.844, 0.564)
pt3dadd(149.333, 109.169, 6.826, 0.548)
pt3dadd(149.443, 109.21, 6.807, 0.534)
pt3dadd(149.546, 109.25, 6.771, 0.532)
pt3dadd(149.645, 109.29, 6.725, 0.534)
pt3dadd(149.743, 109.33, 6.678, 0.538)
pt3dadd(149.842, 109.37, 6.631, 0.542)
pt3dadd(149.94, 109.409, 6.584, 0.544)
pt3dadd(150.038, 109.449, 6.537, 0.548)
pt3dadd(150.137, 109.489, 6.491, 0.552)
pt3dadd(150.234, 109.529, 6.444, 0.556)
pt3dadd(150.332, 109.569, 6.397, 0.558)
pt3dadd(150.431, 109.608, 6.35, 0.562)
pt3dadd(150.54, 109.639, 6.318, 0.54)
pt3dadd(150.652, 109.666, 6.291, 0.506)
pt3dadd(150.764, 109.693, 6.265, 0.472)
pt3dadd(150.877, 109.72, 6.238, 0.438)
pt3dadd(150.99, 109.747, 6.212, 0.404)
pt3dadd(151.102, 109.774, 6.185, 0.37)
pt3dadd(151.214, 109.801, 6.158, 0.336)
pt3dadd(151.327, 109.828, 6.132, 0.302)
pt3dadd(151.44, 109.855, 6.106, 0.268)
pt3dadd(151.552, 109.882, 6.079, 0.234)
pt3dadd(151.66, 109.93, 6.062, 0.226)
pt3dadd(151.764, 109.985, 6.049, 0.226)
pt3dadd(151.87, 110.04, 6.035, 0.226)
pt3dadd(151.975, 110.096, 6.021, 0.226)
pt3dadd(152.08, 110.151, 6.008, 0.226)
pt3dadd(152.185, 110.206, 5.994, 0.226)
pt3dadd(152.291, 110.262, 5.981, 0.226)
pt3dadd(152.396, 110.317, 5.967, 0.226)
pt3dadd(152.501, 110.372, 5.954, 0.226)
pt3dadd(152.606, 110.428, 5.94, 0.226)
pt3dadd(152.693, 110.495, 5.903, 0.228)
pt3dadd(152.777, 110.566, 5.861, 0.23)
pt3dadd(152.86, 110.636, 5.819, 0.23)
pt3dadd(152.944, 110.706, 5.778, 0.232)
pt3dadd(153.026, 110.777, 5.736, 0.234)
pt3dadd(153.11, 110.847, 5.694, 0.236)
pt3dadd(153.193, 110.917, 5.652, 0.238)
pt3dadd(153.276, 110.987, 5.61, 0.24)
pt3dadd(153.36, 111.058, 5.568, 0.242)
pt3dadd(153.443, 111.128, 5.526, 0.244)
pt3dadd(153.518, 111.217, 5.502, 0.284)
pt3dadd(153.593, 111.306, 5.479, 0.326)
pt3dadd(153.668, 111.395, 5.455, 0.368)
pt3dadd(153.743, 111.485, 5.431, 0.41)
pt3dadd(153.818, 111.574, 5.408, 0.452)
pt3dadd(153.893, 111.663, 5.384, 0.494)
pt3dadd(153.968, 111.753, 5.361, 0.536)
pt3dadd(154.043, 111.842, 5.337, 0.578)
pt3dadd(154.118, 111.931, 5.314, 0.62)
pt3dadd(154.193, 112.021, 5.29, 0.662)
pt3dadd(154.264, 112.117, 5.28, 0.642)
pt3dadd(154.333, 112.214, 5.27, 0.62)
pt3dadd(154.404, 112.31, 5.26, 0.598)
pt3dadd(154.474, 112.407, 5.25, 0.578)
pt3dadd(154.544, 112.503, 5.24, 0.556)
pt3dadd(154.614, 112.6, 5.23, 0.534)
pt3dadd(154.685, 112.696, 5.22, 0.514)
pt3dadd(154.754, 112.793, 5.21, 0.492)
pt3dadd(154.825, 112.89, 5.2, 0.47)
pt3dadd(154.896, 112.986, 5.19, 0.448)
pt3dadd(154.938, 113.098, 5.19, 0.426)
pt3dadd(154.979, 113.211, 5.19, 0.404)
pt3dadd(155.021, 113.323, 5.19, 0.382)
pt3dadd(155.063, 113.436, 5.19, 0.36)
pt3dadd(155.104, 113.549, 5.19, 0.338)
pt3dadd(155.146, 113.661, 5.19, 0.316)
pt3dadd(155.186, 113.774, 5.19, 0.292)
pt3dadd(155.228, 113.886, 5.19, 0.27)
pt3dadd(155.269, 113.999, 5.19, 0.248)
pt3dadd(155.311, 114.112, 5.19, 0.226)
pt3dadd(155.323, 114.231, 5.19, 0.226)
pt3dadd(155.335, 114.35, 5.19, 0.226)
pt3dadd(155.347, 114.47, 5.19, 0.226)
pt3dadd(155.359, 114.589, 5.19, 0.226)
pt3dadd(155.371, 114.709, 5.19, 0.226)
pt3dadd(155.383, 114.828, 5.19, 0.226)
pt3dadd(155.395, 114.947, 5.19, 0.226)
pt3dadd(155.407, 115.067, 5.19, 0.226)
pt3dadd(155.419, 115.186, 5.19, 0.226)
pt3dadd(155.431, 115.306, 5.19, 0.226)
}
dend_7[4] {pt3dclear()
pt3dadd(106.999, 119.543, 11.051, 1.582)
pt3dadd(107.041, 119.556, 11.012, 1.59)
pt3dadd(107.12, 119.582, 10.94, 1.606)
pt3dadd(107.199, 119.608, 10.868, 1.622)
pt3dadd(107.278, 119.634, 10.796, 1.636)
pt3dadd(107.357, 119.66, 10.723, 1.652)
pt3dadd(107.435, 119.685, 10.651, 1.668)
pt3dadd(107.514, 119.711, 10.579, 1.682)
pt3dadd(107.593, 119.737, 10.507, 1.698)
pt3dadd(107.672, 119.762, 10.434, 1.714)
pt3dadd(107.751, 119.788, 10.362, 1.73)
pt3dadd(107.83, 119.814, 10.29, 1.744)
pt3dadd(107.909, 119.839, 10.218, 1.76)
pt3dadd(107.988, 119.865, 10.145, 1.776)
pt3dadd(108.066, 119.891, 10.073, 1.792)
pt3dadd(108.141, 119.961, 10.035, 1.786)
pt3dadd(108.214, 120.053, 10.015, 1.768)
pt3dadd(108.287, 120.145, 9.995, 1.752)
pt3dadd(108.36, 120.238, 9.974, 1.736)
pt3dadd(108.433, 120.33, 9.954, 1.718)
pt3dadd(108.505, 120.421, 9.933, 1.702)
pt3dadd(108.578, 120.514, 9.913, 1.686)
pt3dadd(108.651, 120.606, 9.892, 1.668)
pt3dadd(108.724, 120.698, 9.872, 1.652)
pt3dadd(108.797, 120.79, 9.851, 1.634)
pt3dadd(108.854, 120.892, 9.829, 1.556)
pt3dadd(108.91, 120.995, 9.807, 1.47)
pt3dadd(108.966, 121.098, 9.785, 1.382)
pt3dadd(109.022, 121.2, 9.763, 1.296)
pt3dadd(109.078, 121.303, 9.741, 1.21)
pt3dadd(109.134, 121.406, 9.719, 1.124)
pt3dadd(109.19, 121.508, 9.697, 1.038)
pt3dadd(109.246, 121.612, 9.675, 0.952)
pt3dadd(109.302, 121.715, 9.653, 0.864)
pt3dadd(109.358, 121.817, 9.63, 0.778)
pt3dadd(109.4, 121.908, 9.576, 0.808)
pt3dadd(109.441, 121.999, 9.521, 0.844)
pt3dadd(109.482, 122.089, 9.465, 0.88)
pt3dadd(109.523, 122.18, 9.409, 0.916)
pt3dadd(109.564, 122.27, 9.353, 0.952)
pt3dadd(109.605, 122.362, 9.297, 0.986)
pt3dadd(109.647, 122.452, 9.241, 1.022)
pt3dadd(109.688, 122.543, 9.185, 1.058)
pt3dadd(109.729, 122.633, 9.129, 1.094)
pt3dadd(109.77, 122.724, 9.074, 1.13)
}
dend_7[5] {pt3dclear()
pt3dadd(109.77, 122.724, 9.074, 1.13)
pt3dadd(109.764, 122.706, 9.064, 1.13)
pt3dadd(109.826, 122.729, 8.986, 1.13)
pt3dadd(109.889, 122.75, 8.908, 1.13)
pt3dadd(109.951, 122.774, 8.831, 1.13)
pt3dadd(110.014, 122.797, 8.753, 1.13)
pt3dadd(110.076, 122.82, 8.675, 1.13)
pt3dadd(110.141, 122.838, 8.599, 1.128)
pt3dadd(110.225, 122.82, 8.532, 1.11)
pt3dadd(110.308, 122.802, 8.465, 1.092)
pt3dadd(110.392, 122.782, 8.399, 1.076)
pt3dadd(110.475, 122.764, 8.332, 1.058)
pt3dadd(110.559, 122.746, 8.266, 1.04)
pt3dadd(110.643, 122.726, 8.199, 1.022)
pt3dadd(110.726, 122.708, 8.132, 1.006)
pt3dadd(110.81, 122.689, 8.066, 0.988)
pt3dadd(110.894, 122.671, 7.999, 0.97)
pt3dadd(110.973, 122.645, 7.93, 0.97)
pt3dadd(111.047, 122.615, 7.857, 0.986)
pt3dadd(111.122, 122.584, 7.784, 1.002)
pt3dadd(111.196, 122.552, 7.711, 1.018)
pt3dadd(111.271, 122.522, 7.639, 1.034)
pt3dadd(111.345, 122.491, 7.566, 1.052)
pt3dadd(111.42, 122.46, 7.493, 1.068)
pt3dadd(111.495, 122.429, 7.421, 1.084)
pt3dadd(111.569, 122.398, 7.348, 1.1)
pt3dadd(111.644, 122.366, 7.275, 1.116)
pt3dadd(111.721, 122.371, 7.209, 1.134)
pt3dadd(111.8, 122.402, 7.148, 1.154)
pt3dadd(111.88, 122.434, 7.086, 1.172)
pt3dadd(111.959, 122.465, 7.025, 1.192)
pt3dadd(112.038, 122.495, 6.963, 1.21)
pt3dadd(112.118, 122.526, 6.902, 1.23)
pt3dadd(112.197, 122.556, 6.84, 1.25)
pt3dadd(112.276, 122.587, 6.779, 1.268)
pt3dadd(112.355, 122.618, 6.717, 1.288)
pt3dadd(112.435, 122.65, 6.656, 1.306)
pt3dadd(112.502, 122.675, 6.583, 1.296)
pt3dadd(112.564, 122.696, 6.505, 1.272)
pt3dadd(112.626, 122.72, 6.427, 1.246)
pt3dadd(112.688, 122.743, 6.349, 1.222)
pt3dadd(112.75, 122.766, 6.271, 1.196)
pt3dadd(112.812, 122.789, 6.193, 1.172)
pt3dadd(112.874, 122.812, 6.115, 1.148)
pt3dadd(112.936, 122.833, 6.036, 1.122)
pt3dadd(112.998, 122.856, 5.958, 1.098)
pt3dadd(113.06, 122.879, 5.88, 1.072)
pt3dadd(113.131, 122.893, 5.806, 1.054)
pt3dadd(113.206, 122.904, 5.734, 1.038)
pt3dadd(113.281, 122.914, 5.662, 1.022)
pt3dadd(113.274, 122.903, 5.661, 1.022)
pt3dadd(113.349, 122.912, 5.588, 1.006)
pt3dadd(113.423, 122.923, 5.516, 0.99)
pt3dadd(113.498, 122.933, 5.443, 0.974)
pt3dadd(113.572, 122.944, 5.371, 0.958)
}
}
proc shape3d_101() {
dend_7[5] { pt3dadd(113.647, 122.954, 5.298, 0.94)
pt3dadd(113.722, 122.965, 5.226, 0.924)
pt3dadd(113.796, 122.975, 5.153, 0.908)
pt3dadd(113.875, 122.984, 5.084, 0.91)
pt3dadd(113.955, 122.995, 5.017, 0.916)
pt3dadd(114.035, 123.006, 4.949, 0.924)
pt3dadd(114.115, 123.017, 4.881, 0.93)
pt3dadd(114.195, 123.028, 4.814, 0.938)
pt3dadd(114.276, 123.038, 4.746, 0.946)
pt3dadd(114.356, 123.049, 4.678, 0.952)
pt3dadd(114.436, 123.059, 4.611, 0.96)
pt3dadd(114.429, 123.048, 4.61, 0.96)
pt3dadd(114.51, 123.059, 4.542, 0.966)
pt3dadd(114.59, 123.07, 4.474, 0.974)
pt3dadd(114.676, 123.109, 4.428, 1.024)
pt3dadd(114.764, 123.154, 4.387, 1.084)
pt3dadd(114.852, 123.198, 4.345, 1.144)
pt3dadd(114.939, 123.242, 4.303, 1.204)
pt3dadd(115.027, 123.287, 4.261, 1.264)
pt3dadd(115.115, 123.332, 4.22, 1.324)
pt3dadd(115.203, 123.377, 4.178, 1.384)
pt3dadd(115.291, 123.421, 4.136, 1.444)
pt3dadd(115.378, 123.467, 4.095, 1.504)
pt3dadd(115.466, 123.511, 4.053, 1.562)
pt3dadd(115.55, 123.558, 4.009, 1.546)
pt3dadd(115.633, 123.607, 3.964, 1.516)
pt3dadd(115.716, 123.656, 3.919, 1.484)
pt3dadd(115.799, 123.706, 3.874, 1.452)
pt3dadd(115.882, 123.755, 3.829, 1.422)
pt3dadd(115.965, 123.804, 3.784, 1.39)
pt3dadd(116.048, 123.853, 3.739, 1.358)
pt3dadd(116.131, 123.901, 3.695, 1.328)
pt3dadd(116.214, 123.95, 3.65, 1.296)
pt3dadd(116.298, 124, 3.605, 1.264)
pt3dadd(116.341, 124.094, 3.594, 1.164)
pt3dadd(116.382, 124.194, 3.585, 1.056)
pt3dadd(116.424, 124.292, 3.576, 0.95)
pt3dadd(116.465, 124.391, 3.567, 0.844)
pt3dadd(116.506, 124.489, 3.559, 0.738)
pt3dadd(116.547, 124.588, 3.55, 0.63)
pt3dadd(116.588, 124.687, 3.541, 0.524)
pt3dadd(116.629, 124.786, 3.532, 0.418)
pt3dadd(116.67, 124.885, 3.524, 0.312)
pt3dadd(116.705, 124.985, 3.521, 0.226)
pt3dadd(116.718, 125.09, 3.539, 0.226)
pt3dadd(116.731, 125.194, 3.559, 0.226)
pt3dadd(116.743, 125.299, 3.578, 0.226)
pt3dadd(116.756, 125.405, 3.597, 0.226)
pt3dadd(116.769, 125.509, 3.616, 0.226)
pt3dadd(116.782, 125.615, 3.635, 0.226)
pt3dadd(116.794, 125.719, 3.654, 0.226)
pt3dadd(116.807, 125.825, 3.673, 0.226)
pt3dadd(116.82, 125.929, 3.692, 0.226)
pt3dadd(116.835, 126.034, 3.701, 0.226)
pt3dadd(116.858, 126.136, 3.678, 0.226)
pt3dadd(116.882, 126.238, 3.655, 0.226)
pt3dadd(116.906, 126.341, 3.632, 0.226)
pt3dadd(116.929, 126.443, 3.609, 0.226)
pt3dadd(116.953, 126.545, 3.586, 0.226)
pt3dadd(116.976, 126.646, 3.563, 0.226)
pt3dadd(117, 126.748, 3.54, 0.226)
pt3dadd(117.023, 126.851, 3.517, 0.226)
pt3dadd(117.047, 126.953, 3.494, 0.226)
pt3dadd(117.1, 127.038, 3.464, 0.242)
pt3dadd(117.165, 127.116, 3.432, 0.266)
pt3dadd(117.23, 127.194, 3.4, 0.288)
pt3dadd(117.295, 127.271, 3.368, 0.312)
pt3dadd(117.359, 127.349, 3.336, 0.334)
pt3dadd(117.424, 127.427, 3.304, 0.356)
pt3dadd(117.489, 127.505, 3.272, 0.38)
pt3dadd(117.554, 127.583, 3.24, 0.402)
pt3dadd(117.619, 127.661, 3.208, 0.426)
pt3dadd(117.683, 127.738, 3.176, 0.448)
pt3dadd(117.757, 127.812, 3.152, 0.486)
pt3dadd(117.834, 127.884, 3.132, 0.528)
pt3dadd(117.91, 127.957, 3.111, 0.57)
pt3dadd(117.987, 128.029, 3.091, 0.612)
pt3dadd(118.063, 128.101, 3.07, 0.654)
pt3dadd(118.14, 128.174, 3.05, 0.696)
pt3dadd(118.217, 128.245, 3.029, 0.738)
pt3dadd(118.293, 128.317, 3.009, 0.78)
pt3dadd(118.37, 128.39, 2.988, 0.822)
pt3dadd(118.446, 128.462, 2.968, 0.864)
pt3dadd(118.523, 128.536, 2.951, 0.876)
pt3dadd(118.601, 128.609, 2.936, 0.88)
pt3dadd(118.678, 128.682, 2.921, 0.882)
pt3dadd(118.756, 128.754, 2.906, 0.886)
pt3dadd(118.833, 128.827, 2.891, 0.888)
pt3dadd(118.911, 128.9, 2.876, 0.892)
pt3dadd(118.988, 128.974, 2.861, 0.894)
pt3dadd(119.065, 129.047, 2.846, 0.898)
pt3dadd(119.143, 129.12, 2.831, 0.9)
pt3dadd(119.221, 129.193, 2.816, 0.904)
pt3dadd(119.281, 129.248, 2.76, 0.904)
pt3dadd(119.337, 129.3, 2.692, 0.904)
pt3dadd(119.394, 129.353, 2.624, 0.904)
pt3dadd(119.45, 129.404, 2.556, 0.904)
pt3dadd(119.505, 129.456, 2.487, 0.904)
pt3dadd(119.562, 129.509, 2.419, 0.904)
pt3dadd(119.618, 129.56, 2.351, 0.904)
pt3dadd(119.674, 129.611, 2.282, 0.904)
pt3dadd(119.731, 129.664, 2.214, 0.904)
pt3dadd(119.787, 129.715, 2.146, 0.904)
pt3dadd(119.78, 129.803, 2.088, 0.556)
pt3dadd(119.773, 129.892, 2.03, 0.662)
pt3dadd(119.767, 129.991, 1.993, 0.732)
pt3dadd(119.76, 130.093, 1.959, 0.796)
pt3dadd(119.753, 130.192, 1.916, 0.856)
pt3dadd(119.747, 130.284, 1.864, 0.914)
pt3dadd(119.74, 130.346, 1.798, 0.96)
pt3dadd(119.733, 130.34, 1.697, 0.976)
pt3dadd(119.727, 130.334, 1.596, 0.994)
pt3dadd(119.72, 130.326, 1.495, 0.994)
pt3dadd(119.714, 130.315, 1.394, 0.97)
pt3dadd(119.707, 130.312, 1.294, 0.946)
pt3dadd(119.7, 130.32, 1.194, 0.926)
pt3dadd(119.694, 130.33, 1.094, 0.904)
pt3dadd(119.687, 130.318, 1.093, 0.904)
pt3dadd(119.68, 130.327, 0.994, 0.884)
pt3dadd(119.674, 130.336, 0.894, 0.864)
pt3dadd(119.667, 130.344, 0.794, 0.842)
pt3dadd(119.66, 130.346, 0.694, 0.82)
pt3dadd(119.654, 130.336, 0.593, 0.796)
pt3dadd(119.647, 130.325, 0.492, 0.77)
pt3dadd(119.64, 130.319, 0.391, 0.756)
pt3dadd(119.634, 130.322, 0.291, 0.766)
pt3dadd(119.627, 130.326, 0.191, 0.774)
pt3dadd(119.62, 130.384, 0.118, 0.822)
pt3dadd(119.614, 130.472, 0.06, 0.892)
pt3dadd(119.607, 130.568, 0.019, 0.962)
pt3dadd(119.6, 130.674, -0.004, 1.032)
pt3dadd(119.594, 130.781, -0.027, 1.102)
pt3dadd(119.587, 130.784, -0.125, 1.136)
pt3dadd(119.58, 130.786, -0.226, 1.17)
pt3dadd(119.574, 130.786, -0.327, 1.202)
pt3dadd(119.567, 130.787, -0.427, 1.236)
pt3dadd(119.561, 130.782, -0.528, 1.266)
pt3dadd(119.554, 130.771, -0.629, 1.29)
pt3dadd(119.547, 130.76, -0.73, 1.316)
pt3dadd(119.541, 130.756, -0.831, 1.364)
pt3dadd(119.534, 130.744, -0.832, 1.364)
pt3dadd(119.527, 130.733, -0.833, 1.364)
pt3dadd(119.546, 130.741, -0.927, 1.416)
pt3dadd(119.591, 130.753, -1.017, 1.438)
pt3dadd(119.636, 130.765, -1.106, 1.46)
pt3dadd(119.681, 130.777, -1.195, 1.482)
pt3dadd(119.726, 130.789, -1.285, 1.504)
pt3dadd(119.719, 130.778, -1.286, 1.504)
pt3dadd(119.712, 130.766, -1.287, 1.504)
pt3dadd(119.772, 130.759, -1.371, 1.536)
pt3dadd(119.835, 130.748, -1.453, 1.57)
pt3dadd(119.896, 130.738, -1.536, 1.606)
pt3dadd(119.959, 130.727, -1.619, 1.64)
pt3dadd(120.022, 130.716, -1.702, 1.676)
pt3dadd(120.071, 130.705, -1.791, 1.706)
pt3dadd(120.118, 130.694, -1.881, 1.734)
pt3dadd(120.166, 130.682, -1.972, 1.764)
pt3dadd(120.211, 130.672, -2.062, 1.792)
pt3dadd(120.259, 130.661, -2.153, 1.822)
pt3dadd(120.332, 130.65, -2.224, 1.868)
pt3dadd(120.425, 130.639, -2.281, 1.926)
pt3dadd(120.497, 130.628, -2.353, 1.968)
pt3dadd(120.545, 130.616, -2.444, 1.992)
pt3dadd(120.581, 130.606, -2.536, 2.01)
pt3dadd(120.575, 130.595, -2.537, 2.01)
pt3dadd(120.568, 130.584, -2.638, 2.018)
pt3dadd(120.56, 130.573, -2.739, 2.028)
pt3dadd(120.554, 130.562, -2.841, 2.032)
pt3dadd(120.547, 130.552, -2.942, 2.024)
pt3dadd(120.541, 130.54, -2.943, 2.024)
pt3dadd(120.534, 130.529, -3.044, 2.016)
pt3dadd(120.528, 130.517, -3.144, 2.002)
pt3dadd(120.521, 130.506, -3.145, 2.002)
pt3dadd(120.515, 130.488, -3.246, 1.962)
pt3dadd(120.508, 130.464, -3.347, 1.928)
pt3dadd(120.502, 130.429, -3.445, 1.906)
pt3dadd(120.494, 130.393, -3.544, 1.884)
pt3dadd(120.488, 130.357, -3.643, 1.864)
pt3dadd(120.481, 130.321, -3.742, 1.842)
pt3dadd(120.474, 130.285, -3.841, 1.82)
pt3dadd(120.468, 130.274, -3.842, 1.82)
pt3dadd(120.461, 130.219, -3.933, 1.78)
pt3dadd(120.455, 130.133, -4.012, 1.71)
pt3dadd(120.448, 130.062, -4.096, 1.648)
pt3dadd(120.442, 130.037, -4.197, 1.61)
pt3dadd(120.434, 130.01, -4.297, 1.572)
pt3dadd(120.451, 129.994, -4.394, 1.538)
pt3dadd(120.484, 129.983, -4.49, 1.506)
pt3dadd(120.528, 129.972, -4.579, 1.478)
pt3dadd(120.608, 129.961, -4.648, 1.466)
pt3dadd(120.691, 129.949, -4.715, 1.452)
pt3dadd(120.793, 129.938, -4.761, 1.4)
pt3dadd(120.896, 129.928, -4.799, 1.362)
pt3dadd(121.004, 129.917, -4.833, 1.33)
pt3dadd(121.097, 129.906, -4.881, 1.294)
pt3dadd(121.152, 129.895, -4.968, 1.248)
pt3dadd(121.201, 129.882, -5.056, 1.204)
pt3dadd(121.201, 129.836, -5.153, 1.182)
pt3dadd(121.2, 129.791, -5.25, 1.16)
pt3dadd(121.232, 129.739, -5.337, 1.146)
}
}
proc shape3d_102() {
dend_7[5] { pt3dadd(121.276, 129.685, -5.422, 1.132)
pt3dadd(121.283, 129.629, -5.514, 1.146)
pt3dadd(121.291, 129.59, -5.609, 1.16)
pt3dadd(121.307, 129.577, -5.709, 1.174)
pt3dadd(121.324, 129.564, -5.808, 1.186)
pt3dadd(121.339, 129.551, -5.907, 1.198)
pt3dadd(121.356, 129.538, -6.006, 1.212)
pt3dadd(121.37, 129.524, -6.105, 1.224)
pt3dadd(121.387, 129.485, -6.199, 1.246)
pt3dadd(121.404, 129.421, -6.288, 1.272)
pt3dadd(121.421, 129.359, -6.378, 1.3)
pt3dadd(121.436, 129.296, -6.467, 1.326)
pt3dadd(121.453, 129.234, -6.556, 1.352)
pt3dadd(121.446, 129.223, -6.557, 1.352)
pt3dadd(121.472, 129.206, -6.653, 1.38)
pt3dadd(121.502, 129.196, -6.749, 1.406)
pt3dadd(121.531, 129.185, -6.846, 1.434)
pt3dadd(121.561, 129.174, -6.942, 1.46)
pt3dadd(121.59, 129.162, -7.039, 1.488)
pt3dadd(121.615, 129.14, -7.135, 1.528)
pt3dadd(121.626, 129.092, -7.229, 1.598)
pt3dadd(121.637, 129.047, -7.325, 1.664)
pt3dadd(121.634, 129.02, -7.425, 1.702)
pt3dadd(121.633, 128.994, -7.525, 1.742)
pt3dadd(121.687, 128.972, -7.598, 1.764)
pt3dadd(121.782, 128.956, -7.652, 1.776)
pt3dadd(121.88, 128.918, -7.691, 1.752)
pt3dadd(121.98, 128.861, -7.715, 1.69)
pt3dadd(122.05, 128.806, -7.77, 1.58)
pt3dadd(122.089, 128.758, -7.856, 1.444)
pt3dadd(122.154, 128.73, -7.937, 1.39)
pt3dadd(122.216, 128.701, -8.018, 1.334)
pt3dadd(122.28, 128.672, -8.1, 1.28)
pt3dadd(122.342, 128.645, -8.18, 1.226)
pt3dadd(122.418, 128.627, -8.254, 1.16)
pt3dadd(122.498, 128.616, -8.323, 1.09)
pt3dadd(122.58, 128.605, -8.392, 1.042)
pt3dadd(122.662, 128.594, -8.461, 1.018)
pt3dadd(122.71, 128.584, -8.543, 1.008)
pt3dadd(122.708, 128.572, -8.644, 1.016)
pt3dadd(122.706, 128.561, -8.744, 1.026)
pt3dadd(122.702, 128.567, -8.843, 1.046)
pt3dadd(122.695, 128.588, -8.941, 1.076)
pt3dadd(122.689, 128.61, -9.038, 1.108)
pt3dadd(122.682, 128.622, -9.137, 1.168)
pt3dadd(122.676, 128.633, -9.236, 1.214)
pt3dadd(122.669, 128.639, -9.336, 1.238)
pt3dadd(122.663, 128.645, -9.436, 1.264)
pt3dadd(122.656, 128.652, -9.536, 1.288)
pt3dadd(122.648, 128.658, -9.636, 1.312)
pt3dadd(122.642, 128.664, -9.736, 1.336)
pt3dadd(122.635, 128.681, -9.833, 1.36)
pt3dadd(122.629, 128.67, -9.834, 1.36)
pt3dadd(122.622, 128.731, -9.915, 1.38)
pt3dadd(122.616, 128.792, -9.996, 1.4)
pt3dadd(122.609, 128.854, -10.077, 1.42)
pt3dadd(122.603, 128.914, -10.158, 1.44)
pt3dadd(122.596, 128.976, -10.239, 1.46)
pt3dadd(122.59, 129.04, -10.318, 1.474)
pt3dadd(122.582, 129.103, -10.397, 1.49)
pt3dadd(122.575, 129.092, -10.398, 1.49)
pt3dadd(122.569, 129.156, -10.477, 1.504)
pt3dadd(122.562, 129.221, -10.556, 1.52)
pt3dadd(122.556, 129.283, -10.636, 1.534)
pt3dadd(122.549, 129.341, -10.719, 1.55)
pt3dadd(122.543, 129.4, -10.802, 1.566)
pt3dadd(122.536, 129.457, -10.884, 1.58)
pt3dadd(122.53, 129.516, -10.967, 1.594)
pt3dadd(122.522, 129.576, -11.048, 1.614)
pt3dadd(122.516, 129.647, -11.123, 1.65)
pt3dadd(122.509, 129.716, -11.198, 1.682)
pt3dadd(122.502, 129.781, -11.276, 1.67)
pt3dadd(122.496, 129.769, -11.278, 1.67)
pt3dadd(122.489, 129.834, -11.356, 1.658)
pt3dadd(122.522, 129.875, -11.441, 1.582)
pt3dadd(122.56, 129.917, -11.52, 1.5)
pt3dadd(122.61, 130.012, -11.526, 1.394)
pt3dadd(122.659, 130.106, -11.532, 1.288)
pt3dadd(122.716, 130.198, -11.534, 1.152)
pt3dadd(122.776, 130.284, -11.547, 1.06)
pt3dadd(122.84, 130.366, -11.573, 1.02)
pt3dadd(122.904, 130.446, -11.6, 0.98)
pt3dadd(122.969, 130.528, -11.627, 0.94)
pt3dadd(123.025, 130.61, -11.655, 0.898)
pt3dadd(123.037, 130.709, -11.693, 0.85)
pt3dadd(123.053, 130.806, -11.733, 0.802)
pt3dadd(123.114, 130.878, -11.778, 0.788)
pt3dadd(123.169, 130.943, -11.833, 0.786)
pt3dadd(123.206, 130.991, -11.914, 0.814)
pt3dadd(123.223, 131.029, -12.001, 0.844)
pt3dadd(123.216, 131.058, -12.097, 0.876)
pt3dadd(123.218, 131.088, -12.189, 0.908)
pt3dadd(123.275, 131.132, -12.262, 0.942)
pt3dadd(123.332, 131.176, -12.335, 0.976)
pt3dadd(123.391, 131.213, -12.408, 1.014)
pt3dadd(123.46, 131.222, -12.484, 1.066)
pt3dadd(123.53, 131.25, -12.543, 1.12)
pt3dadd(123.604, 131.328, -12.552, 1.176)
pt3dadd(123.631, 131.431, -12.554, 1.144)
pt3dadd(123.636, 131.539, -12.555, 1.022)
pt3dadd(123.63, 131.648, -12.556, 0.878)
pt3dadd(123.623, 131.756, -12.557, 0.762)
pt3dadd(123.617, 131.866, -12.558, 0.708)
pt3dadd(123.61, 131.975, -12.559, 0.732)
pt3dadd(123.604, 132.084, -12.562, 0.746)
pt3dadd(123.596, 132.193, -12.565, 0.76)
pt3dadd(123.589, 132.302, -12.568, 0.774)
pt3dadd(123.583, 132.412, -12.57, 0.79)
pt3dadd(123.576, 132.52, -12.573, 0.804)
pt3dadd(123.57, 132.629, -12.575, 0.818)
pt3dadd(123.563, 132.734, -12.591, 0.836)
pt3dadd(123.557, 132.833, -12.634, 0.86)
pt3dadd(123.55, 132.93, -12.677, 0.884)
pt3dadd(123.544, 133.028, -12.72, 0.908)
pt3dadd(123.536, 133.126, -12.764, 0.932)
pt3dadd(123.53, 133.224, -12.806, 0.956)
pt3dadd(123.523, 133.328, -12.835, 0.976)
pt3dadd(123.517, 133.433, -12.863, 0.996)
pt3dadd(123.49, 133.537, -12.874, 0.992)
pt3dadd(123.449, 133.642, -12.876, 0.97)
pt3dadd(123.404, 133.744, -12.88, 0.944)
pt3dadd(123.336, 133.834, -12.898, 0.894)
pt3dadd(123.277, 133.914, -12.931, 0.84)
pt3dadd(123.242, 133.957, -13.018, 0.774)
pt3dadd(123.2, 133.988, -13.106, 0.718)
pt3dadd(123.136, 133.987, -13.194, 0.682)
pt3dadd(123.062, 134.027, -13.265, 0.672)
pt3dadd(122.987, 134.071, -13.334, 0.666)
pt3dadd(122.912, 134.116, -13.403, 0.66)
pt3dadd(122.837, 134.16, -13.472, 0.654)
pt3dadd(122.773, 134.221, -13.537, 0.676)
pt3dadd(122.714, 134.286, -13.601, 0.702)
pt3dadd(122.654, 134.365, -13.652, 0.688)
pt3dadd(122.586, 134.432, -13.705, 0.674)
pt3dadd(122.49, 134.466, -13.761, 0.66)
pt3dadd(122.402, 134.478, -13.829, 0.636)
pt3dadd(122.32, 134.467, -13.908, 0.6)
pt3dadd(122.246, 134.456, -13.991, 0.578)
pt3dadd(122.185, 134.446, -14.081, 0.578)
pt3dadd(122.095, 134.482, -14.137, 0.578)
pt3dadd(121.998, 134.525, -14.186, 0.578)
pt3dadd(121.901, 134.568, -14.235, 0.578)
pt3dadd(121.805, 134.612, -14.284, 0.578)
pt3dadd(121.699, 134.662, -14.304, 0.594)
pt3dadd(121.591, 134.714, -14.31, 0.618)
pt3dadd(121.507, 134.77, -14.351, 0.646)
pt3dadd(121.439, 134.827, -14.416, 0.674)
pt3dadd(121.358, 134.873, -14.48, 0.714)
pt3dadd(121.283, 134.918, -14.545, 0.756)
pt3dadd(121.27, 134.992, -14.617, 0.78)
pt3dadd(121.255, 135.065, -14.689, 0.804)
pt3dadd(121.217, 135.13, -14.763, 0.804)
pt3dadd(121.133, 135.197, -14.796, 0.782)
pt3dadd(121.04, 135.265, -14.821, 0.754)
pt3dadd(121.004, 135.302, -14.909, 0.704)
pt3dadd(120.972, 135.338, -14.999, 0.654)
pt3dadd(120.863, 135.328, -15.052, 0.608)
pt3dadd(120.754, 135.317, -15.103, 0.562)
pt3dadd(120.63, 135.318, -15.115, 0.53)
pt3dadd(120.505, 135.322, -15.116, 0.502)
pt3dadd(120.38, 135.329, -15.12, 0.478)
pt3dadd(120.275, 135.377, -15.145, 0.486)
pt3dadd(120.167, 135.425, -15.171, 0.494)
pt3dadd(120.06, 135.473, -15.196, 0.502)
pt3dadd(120.053, 135.462, -15.197, 0.502)
pt3dadd(120.046, 135.451, -15.198, 0.502)
pt3dadd(119.978, 135.457, -15.28, 0.524)
pt3dadd(119.913, 135.458, -15.368, 0.548)
pt3dadd(119.838, 135.494, -15.439, 0.602)
pt3dadd(119.756, 135.552, -15.492, 0.602)
pt3dadd(119.673, 135.611, -15.545, 0.602)
pt3dadd(119.591, 135.668, -15.598, 0.602)
pt3dadd(119.514, 135.732, -15.649, 0.604)
pt3dadd(119.453, 135.816, -15.693, 0.61)
pt3dadd(119.392, 135.9, -15.736, 0.616)
pt3dadd(119.333, 135.983, -15.779, 0.622)
pt3dadd(119.272, 136.067, -15.822, 0.628)
pt3dadd(119.17, 136.123, -15.846, 0.634)
pt3dadd(119.067, 136.177, -15.869, 0.64)
pt3dadd(118.963, 136.232, -15.893, 0.644)
pt3dadd(118.86, 136.288, -15.917, 0.65)
pt3dadd(118.764, 136.354, -15.931, 0.66)
pt3dadd(118.673, 136.428, -15.937, 0.672)
pt3dadd(118.573, 136.49, -15.944, 0.678)
pt3dadd(118.464, 136.543, -15.95, 0.678)
pt3dadd(118.372, 136.598, -15.98, 0.678)
pt3dadd(118.304, 136.656, -16.045, 0.678)
pt3dadd(118.227, 136.681, -16.117, 0.67)
pt3dadd(118.144, 136.691, -16.194, 0.656)
pt3dadd(118.061, 136.752, -16.229, 0.648)
pt3dadd(117.978, 136.83, -16.252, 0.638)
pt3dadd(117.896, 136.908, -16.274, 0.63)
pt3dadd(117.809, 136.978, -16.306, 0.628)
pt3dadd(117.72, 137.042, -16.344, 0.628)
pt3dadd(117.655, 137.128, -16.377, 0.652)
pt3dadd(117.595, 137.218, -16.41, 0.682)
pt3dadd(117.534, 137.28, -16.459, 0.718)
pt3dadd(117.468, 137.282, -16.546, 0.768)
pt3dadd(117.405, 137.303, -16.626, 0.812)
pt3dadd(117.398, 137.291, -16.627, 0.812)
}
}
proc shape3d_103() {
dend_7[5] { pt3dadd(117.341, 137.365, -16.685, 0.844)
pt3dadd(117.283, 137.44, -16.742, 0.876)
pt3dadd(117.198, 137.515, -16.759, 0.868)
pt3dadd(117.111, 137.592, -16.771, 0.854)
pt3dadd(117.06, 137.681, -16.811, 0.746)
pt3dadd(117.013, 137.761, -16.867, 0.716)
pt3dadd(116.964, 137.842, -16.923, 0.686)
pt3dadd(116.917, 137.922, -16.979, 0.656)
pt3dadd(116.869, 138.002, -17.035, 0.628)
pt3dadd(116.808, 138.091, -17.066, 0.616)
pt3dadd(116.747, 138.181, -17.097, 0.604)
pt3dadd(116.685, 138.271, -17.129, 0.594)
pt3dadd(116.623, 138.36, -17.16, 0.582)
pt3dadd(116.562, 138.454, -17.171, 0.58)
pt3dadd(116.502, 138.55, -17.173, 0.586)
pt3dadd(116.442, 138.647, -17.174, 0.59)
pt3dadd(116.382, 138.743, -17.174, 0.596)
pt3dadd(116.321, 138.839, -17.176, 0.6)
pt3dadd(116.251, 138.926, -17.187, 0.608)
pt3dadd(116.167, 139.004, -17.211, 0.62)
pt3dadd(116.085, 139.082, -17.235, 0.63)
pt3dadd(116.003, 139.16, -17.258, 0.642)
pt3dadd(115.918, 139.237, -17.281, 0.654)
pt3dadd(115.824, 139.308, -17.282, 0.666)
pt3dadd(115.73, 139.378, -17.283, 0.678)
pt3dadd(115.64, 139.442, -17.319, 0.678)
pt3dadd(115.557, 139.502, -17.365, 0.678)
pt3dadd(115.499, 139.542, -17.446, 0.678)
pt3dadd(115.442, 139.574, -17.53, 0.678)
pt3dadd(115.388, 139.59, -17.62, 0.678)
pt3dadd(115.323, 139.628, -17.681, 0.678)
pt3dadd(115.237, 139.706, -17.691, 0.678)
pt3dadd(115.182, 139.776, -17.754, 0.672)
pt3dadd(115.127, 139.847, -17.817, 0.666)
pt3dadd(115.072, 139.916, -17.88, 0.66)
pt3dadd(115.017, 139.986, -17.943, 0.654)
pt3dadd(114.92, 140.032, -17.988, 0.648)
pt3dadd(114.819, 140.075, -18.031, 0.642)
pt3dadd(114.717, 140.117, -18.074, 0.636)
pt3dadd(114.616, 140.16, -18.117, 0.63)
pt3dadd(114.506, 140.19, -18.155, 0.624)
pt3dadd(114.393, 140.213, -18.19, 0.618)
pt3dadd(114.278, 140.237, -18.225, 0.614)
pt3dadd(114.165, 140.261, -18.26, 0.608)
pt3dadd(114.051, 140.286, -18.296, 0.604)
pt3dadd(113.95, 140.318, -18.346, 0.632)
pt3dadd(113.851, 140.342, -18.401, 0.662)
pt3dadd(113.759, 140.338, -18.472, 0.7)
pt3dadd(113.669, 140.347, -18.539, 0.74)
pt3dadd(113.587, 140.412, -18.584, 0.798)
pt3dadd(113.499, 140.48, -18.609, 0.834)
pt3dadd(113.405, 140.551, -18.61, 0.846)
pt3dadd(113.302, 140.604, -18.619, 0.854)
pt3dadd(113.181, 140.621, -18.643, 0.854)
pt3dadd(113.067, 140.658, -18.659, 0.844)
pt3dadd(112.952, 140.698, -18.674, 0.834)
pt3dadd(112.837, 140.736, -18.689, 0.824)
pt3dadd(112.723, 140.774, -18.704, 0.814)
pt3dadd(112.609, 140.815, -18.717, 0.802)
pt3dadd(112.5, 140.867, -18.718, 0.792)
pt3dadd(112.392, 140.918, -18.719, 0.782)
pt3dadd(112.282, 140.971, -18.72, 0.772)
pt3dadd(112.173, 141.023, -18.721, 0.762)
pt3dadd(112.065, 141.074, -18.723, 0.754)
pt3dadd(111.944, 141.095, -18.741, 0.744)
pt3dadd(111.823, 141.116, -18.76, 0.734)
pt3dadd(111.704, 141.137, -18.779, 0.724)
pt3dadd(111.583, 141.157, -18.797, 0.714)
pt3dadd(111.463, 141.178, -18.816, 0.704)
pt3dadd(111.341, 141.202, -18.822, 0.704)
pt3dadd(111.22, 141.226, -18.828, 0.704)
pt3dadd(111.099, 141.239, -18.851, 0.718)
pt3dadd(110.981, 141.246, -18.883, 0.742)
pt3dadd(110.871, 141.245, -18.931, 0.76)
pt3dadd(110.771, 141.233, -18.995, 0.772)
pt3dadd(110.684, 141.239, -19.065, 0.774)
pt3dadd(110.619, 141.272, -19.145, 0.76)
pt3dadd(110.576, 141.295, -19.234, 0.734)
pt3dadd(110.548, 141.311, -19.33, 0.704)
pt3dadd(110.458, 141.328, -19.4, 0.704)
pt3dadd(110.37, 141.344, -19.47, 0.704)
pt3dadd(110.281, 141.36, -19.54, 0.704)
pt3dadd(110.191, 141.377, -19.61, 0.704)
pt3dadd(110.085, 141.403, -19.651, 0.712)
pt3dadd(109.97, 141.432, -19.68, 0.724)
pt3dadd(109.9, 141.446, -19.754, 0.736)
pt3dadd(109.848, 141.455, -19.847, 0.748)
pt3dadd(109.773, 141.451, -19.928, 0.746)
pt3dadd(109.684, 141.439, -20.002, 0.734)
pt3dadd(109.577, 141.428, -20.042, 0.728)
pt3dadd(109.45, 141.418, -20.051, 0.728)
pt3dadd(109.324, 141.407, -20.06, 0.728)
pt3dadd(109.207, 141.396, -20.096, 0.766)
pt3dadd(109.094, 141.385, -20.144, 0.81)
pt3dadd(108.986, 141.373, -20.197, 0.84)
pt3dadd(108.877, 141.362, -20.25, 0.87)
pt3dadd(108.767, 141.352, -20.304, 0.9)
pt3dadd(108.761, 141.341, -20.305, 0.9)
pt3dadd(108.652, 141.33, -20.358, 0.93)
pt3dadd(108.543, 141.319, -20.412, 0.958)
pt3dadd(108.439, 141.308, -20.471, 0.984)
pt3dadd(108.334, 141.296, -20.529, 1.008)
pt3dadd(108.229, 141.286, -20.588, 1.034)
pt3dadd(108.124, 141.275, -20.647, 1.058)
pt3dadd(108.018, 141.264, -20.702, 1.08)
pt3dadd(107.897, 141.253, -20.736, 1.08)
pt3dadd(107.778, 141.242, -20.77, 1.08)
pt3dadd(107.678, 141.232, -20.832, 1.042)
pt3dadd(107.583, 141.22, -20.901, 0.996)
pt3dadd(107.489, 141.209, -20.97, 0.948)
pt3dadd(107.394, 141.198, -21.039, 0.902)
pt3dadd(107.321, 141.187, -21.121, 0.874)
pt3dadd(107.268, 141.176, -21.214, 0.862)
pt3dadd(107.225, 141.181, -21.305, 0.86)
pt3dadd(107.215, 141.234, -21.391, 0.88)
pt3dadd(107.204, 141.287, -21.476, 0.902)
pt3dadd(107.194, 141.34, -21.562, 0.922)
pt3dadd(107.186, 141.409, -21.636, 0.962)
pt3dadd(107.18, 141.486, -21.705, 1.01)
pt3dadd(107.173, 141.574, -21.761, 1.088)
pt3dadd(107.152, 141.679, -21.781, 1.102)
pt3dadd(107.108, 141.781, -21.782, 1.032)
pt3dadd(107.057, 141.882, -21.783, 0.95)
pt3dadd(107.029, 141.988, -21.793, 0.886)
pt3dadd(107.02, 142.091, -21.822, 0.794)
pt3dadd(107.013, 142.166, -21.891, 0.654)
pt3dadd(107.007, 142.156, -21.892, 0.654)
pt3dadd(106.988, 142.196, -21.981, 0.58)
pt3dadd(106.937, 142.201, -22.073, 0.594)
pt3dadd(106.856, 142.189, -22.152, 0.628)
pt3dadd(106.759, 142.177, -22.219, 0.594)
pt3dadd(106.667, 142.126, -22.275, 0.472)
pt3dadd(106.61, 142.012, -22.273, 0.348)
pt3dadd(106.544, 141.918, -22.226, 0.25)
pt3dadd(106.423, 141.895, -22.202, 0.226)
pt3dadd(106.296, 141.884, -22.196, 0.226)
pt3dadd(106.29, 141.872, -22.197, 0.226)
pt3dadd(106.283, 141.862, -22.198, 0.226)
pt3dadd(106.276, 141.851, -22.199, 0.226)
}
dend_7[6] {pt3dclear()
pt3dadd(109.77, 122.724, 9.074, 1.13)
pt3dadd(109.71, 122.744, 9.03, 1.152)
pt3dadd(109.616, 122.78, 8.969, 1.192)
pt3dadd(109.521, 122.818, 8.907, 1.23)
pt3dadd(109.427, 122.854, 8.845, 1.268)
pt3dadd(109.332, 122.891, 8.784, 1.306)
pt3dadd(109.237, 122.927, 8.722, 1.344)
pt3dadd(109.143, 122.964, 8.66, 1.384)
pt3dadd(109.048, 122.999, 8.599, 1.422)
pt3dadd(108.953, 123.036, 8.537, 1.46)
pt3dadd(108.859, 123.072, 8.475, 1.498)
pt3dadd(108.764, 123.109, 8.414, 1.536)
pt3dadd(108.67, 123.145, 8.352, 1.576)
pt3dadd(108.575, 123.182, 8.291, 1.614)
pt3dadd(108.475, 123.209, 8.232, 1.62)
pt3dadd(108.37, 123.229, 8.177, 1.6)
pt3dadd(108.265, 123.248, 8.122, 1.58)
pt3dadd(108.161, 123.269, 8.067, 1.56)
pt3dadd(108.056, 123.288, 8.012, 1.54)
pt3dadd(107.951, 123.308, 7.956, 1.52)
pt3dadd(107.847, 123.328, 7.901, 1.5)
pt3dadd(107.742, 123.348, 7.846, 1.48)
pt3dadd(107.637, 123.367, 7.791, 1.46)
pt3dadd(107.533, 123.388, 7.736, 1.438)
pt3dadd(107.43, 123.398, 7.676, 1.382)
pt3dadd(107.329, 123.404, 7.613, 1.308)
pt3dadd(107.228, 123.41, 7.551, 1.232)
pt3dadd(107.127, 123.416, 7.489, 1.158)
pt3dadd(107.026, 123.421, 7.426, 1.082)
pt3dadd(106.925, 123.428, 7.364, 1.008)
pt3dadd(106.824, 123.433, 7.302, 0.934)
pt3dadd(106.723, 123.44, 7.24, 0.858)
pt3dadd(106.622, 123.445, 7.177, 0.784)
pt3dadd(106.521, 123.452, 7.115, 0.708)
pt3dadd(106.444, 123.463, 7.033, 0.686)
pt3dadd(106.374, 123.476, 6.946, 0.68)
pt3dadd(106.304, 123.488, 6.859, 0.674)
pt3dadd(106.234, 123.502, 6.772, 0.666)
pt3dadd(106.164, 123.514, 6.684, 0.66)
pt3dadd(106.095, 123.527, 6.597, 0.654)
pt3dadd(106.025, 123.54, 6.51, 0.648)
pt3dadd(105.955, 123.553, 6.423, 0.64)
pt3dadd(105.885, 123.565, 6.336, 0.634)
pt3dadd(105.815, 123.578, 6.248, 0.628)
pt3dadd(105.812, 123.577, 6.243, 0.628)
pt3dadd(105.809, 123.577, 6.238, 0.628)
pt3dadd(105.768, 123.602, 6.142, 0.614)
pt3dadd(105.73, 123.63, 6.044, 0.598)
pt3dadd(105.692, 123.658, 5.946, 0.582)
pt3dadd(105.654, 123.685, 5.849, 0.568)
pt3dadd(105.616, 123.712, 5.751, 0.552)
pt3dadd(105.578, 123.74, 5.653, 0.538)
pt3dadd(105.54, 123.767, 5.556, 0.522)
pt3dadd(105.502, 123.794, 5.458, 0.508)
pt3dadd(105.464, 123.822, 5.36, 0.492)
pt3dadd(105.425, 123.85, 5.262, 0.476)
pt3dadd(105.373, 123.923, 5.192, 0.562)
pt3dadd(105.319, 124.001, 5.123, 0.65)
pt3dadd(105.266, 124.076, 5.054, 0.738)
pt3dadd(105.213, 124.153, 4.985, 0.828)
pt3dadd(105.159, 124.229, 4.915, 0.916)
}
}
proc shape3d_104() {
dend_7[6] { pt3dadd(105.106, 124.306, 4.846, 1.004)
pt3dadd(105.052, 124.381, 4.777, 1.094)
pt3dadd(104.999, 124.458, 4.708, 1.182)
pt3dadd(104.946, 124.534, 4.639, 1.272)
pt3dadd(104.895, 124.613, 4.57, 1.344)
pt3dadd(104.864, 124.703, 4.505, 1.284)
pt3dadd(104.834, 124.795, 4.44, 1.224)
pt3dadd(104.803, 124.885, 4.375, 1.162)
pt3dadd(104.773, 124.978, 4.31, 1.102)
pt3dadd(104.742, 125.069, 4.245, 1.042)
pt3dadd(104.712, 125.16, 4.18, 0.98)
pt3dadd(104.682, 125.251, 4.115, 0.92)
pt3dadd(104.651, 125.342, 4.05, 0.86)
pt3dadd(104.621, 125.434, 3.984, 0.798)
pt3dadd(104.592, 125.526, 3.919, 0.74)
pt3dadd(104.573, 125.62, 3.854, 0.7)
pt3dadd(104.555, 125.713, 3.789, 0.658)
pt3dadd(104.537, 125.807, 3.724, 0.618)
pt3dadd(104.519, 125.902, 3.659, 0.578)
pt3dadd(104.501, 125.995, 3.594, 0.536)
pt3dadd(104.483, 126.09, 3.529, 0.496)
pt3dadd(104.465, 126.184, 3.463, 0.456)
pt3dadd(104.447, 126.278, 3.398, 0.414)
pt3dadd(104.429, 126.371, 3.333, 0.374)
pt3dadd(104.411, 126.466, 3.268, 0.34)
pt3dadd(104.399, 126.56, 3.203, 0.356)
pt3dadd(104.386, 126.655, 3.137, 0.372)
pt3dadd(104.374, 126.75, 3.072, 0.39)
pt3dadd(104.362, 126.845, 3.007, 0.406)
pt3dadd(104.349, 126.938, 2.942, 0.424)
pt3dadd(104.337, 127.034, 2.877, 0.44)
pt3dadd(104.325, 127.128, 2.811, 0.456)
pt3dadd(104.312, 127.224, 2.746, 0.474)
pt3dadd(104.3, 127.318, 2.681, 0.49)
pt3dadd(104.287, 127.415, 2.618, 0.506)
pt3dadd(104.272, 127.522, 2.57, 0.508)
pt3dadd(104.256, 127.63, 2.523, 0.512)
pt3dadd(104.24, 127.736, 2.476, 0.514)
pt3dadd(104.225, 127.844, 2.428, 0.518)
pt3dadd(104.209, 127.95, 2.381, 0.52)
pt3dadd(104.193, 128.058, 2.334, 0.524)
pt3dadd(104.178, 128.165, 2.287, 0.528)
pt3dadd(104.162, 128.273, 2.239, 0.53)
pt3dadd(104.146, 128.38, 2.192, 0.534)
pt3dadd(104.122, 128.489, 2.155, 0.528)
pt3dadd(104.075, 128.599, 2.144, 0.502)
pt3dadd(104.028, 128.711, 2.132, 0.474)
pt3dadd(103.98, 128.82, 2.121, 0.448)
pt3dadd(103.933, 128.932, 2.11, 0.42)
pt3dadd(103.886, 129.042, 2.099, 0.392)
pt3dadd(103.839, 129.154, 2.087, 0.366)
pt3dadd(103.792, 129.264, 2.076, 0.338)
pt3dadd(103.745, 129.374, 2.065, 0.312)
pt3dadd(103.698, 129.485, 2.054, 0.284)
pt3dadd(103.647, 129.576, 2.082, 0.268)
pt3dadd(103.594, 129.647, 2.145, 0.264)
pt3dadd(103.541, 129.718, 2.208, 0.26)
pt3dadd(103.488, 129.79, 2.271, 0.254)
pt3dadd(103.435, 129.863, 2.334, 0.25)
pt3dadd(103.382, 129.934, 2.397, 0.244)
pt3dadd(103.329, 130.004, 2.46, 0.24)
pt3dadd(103.276, 130.076, 2.523, 0.236)
pt3dadd(103.223, 130.148, 2.586, 0.23)
pt3dadd(103.169, 130.22, 2.649, 0.226)
pt3dadd(103.166, 130.219, 2.644, 0.678)
pt3dadd(103.109, 130.219, 2.55, 0.756)
pt3dadd(103.054, 130.218, 2.455, 0.836)
pt3dadd(102.991, 130.234, 2.365, 0.874)
pt3dadd(102.928, 130.253, 2.275, 0.898)
pt3dadd(102.925, 130.252, 2.27, 0.898)
pt3dadd(102.909, 130.304, 2.179, 0.886)
pt3dadd(102.906, 130.364, 2.088, 0.862)
pt3dadd(102.876, 130.445, 2.02, 0.846)
pt3dadd(102.829, 130.54, 1.966, 0.832)
pt3dadd(102.793, 130.591, 1.879, 0.814)
pt3dadd(102.755, 130.645, 1.793, 0.81)
pt3dadd(102.706, 130.72, 1.72, 0.824)
pt3dadd(102.671, 130.814, 1.665, 0.828)
pt3dadd(102.641, 130.921, 1.621, 0.828)
pt3dadd(102.594, 130.997, 1.554, 0.82)
pt3dadd(102.538, 131.056, 1.474, 0.806)
pt3dadd(102.518, 131.101, 1.379, 0.794)
pt3dadd(102.503, 131.143, 1.281, 0.782)
pt3dadd(102.463, 131.161, 1.184, 0.754)
pt3dadd(102.424, 131.177, 1.086, 0.728)
pt3dadd(102.414, 131.208, 0.985, 0.722)
pt3dadd(102.404, 131.239, 0.883, 0.718)
pt3dadd(102.394, 131.27, 0.782, 0.714)
pt3dadd(102.384, 131.302, 0.681, 0.708)
pt3dadd(102.373, 131.333, 0.58, 0.704)
pt3dadd(102.348, 131.372, 0.483, 0.708)
pt3dadd(102.319, 131.414, 0.387, 0.712)
pt3dadd(102.291, 131.455, 0.291, 0.718)
pt3dadd(102.263, 131.497, 0.194, 0.724)
pt3dadd(102.237, 131.543, 0.1, 0.732)
pt3dadd(102.234, 131.623, 0.022, 0.78)
pt3dadd(102.231, 131.705, -0.056, 0.828)
pt3dadd(102.228, 131.704, -0.061, 0.828)
pt3dadd(102.188, 131.731, -0.158, 0.888)
pt3dadd(102.146, 131.756, -0.255, 0.948)
pt3dadd(102.084, 131.777, -0.345, 0.99)
pt3dadd(102.02, 131.796, -0.434, 1.028)
pt3dadd(101.988, 131.893, -0.487, 1.03)
pt3dadd(101.957, 131.996, -0.538, 1.03)
pt3dadd(101.923, 132.106, -0.572, 1.022)
pt3dadd(101.888, 132.215, -0.607, 1.014)
pt3dadd(101.854, 132.325, -0.641, 1.008)
pt3dadd(101.839, 132.44, -0.66, 0.994)
pt3dadd(101.836, 132.559, -0.669, 0.976)
pt3dadd(101.833, 132.679, -0.678, 0.958)
pt3dadd(101.801, 132.791, -0.702, 0.948)
pt3dadd(101.758, 132.899, -0.732, 0.938)
pt3dadd(101.716, 133.007, -0.763, 0.928)
pt3dadd(101.685, 133.099, -0.827, 0.902)
pt3dadd(101.647, 133.183, -0.893, 0.866)
pt3dadd(101.61, 133.243, -0.975, 0.82)
pt3dadd(101.598, 133.315, -1.059, 0.804)
pt3dadd(101.587, 133.387, -1.143, 0.788)
pt3dadd(101.576, 133.459, -1.228, 0.772)
pt3dadd(101.564, 133.531, -1.312, 0.756)
pt3dadd(101.56, 133.594, -1.402, 0.754)
pt3dadd(101.557, 133.654, -1.493, 0.754)
pt3dadd(101.554, 133.706, -1.587, 0.78)
pt3dadd(101.551, 133.752, -1.684, 0.824)
pt3dadd(101.542, 133.8, -1.78, 0.876)
pt3dadd(101.52, 133.853, -1.874, 0.952)
pt3dadd(101.477, 133.891, -1.962, 1.018)
pt3dadd(101.389, 133.897, -2.037, 1.068)
pt3dadd(101.312, 133.907, -2.117, 1.108)
pt3dadd(101.266, 133.93, -2.214, 1.124)
pt3dadd(101.221, 133.952, -2.31, 1.138)
pt3dadd(101.175, 133.975, -2.406, 1.152)
pt3dadd(101.164, 134.006, -2.507, 1.208)
pt3dadd(101.161, 134.039, -2.608, 1.27)
pt3dadd(101.158, 134.038, -2.613, 1.27)
pt3dadd(101.155, 134.038, -2.618, 1.27)
pt3dadd(101.152, 134.099, -2.699, 1.34)
pt3dadd(101.149, 134.203, -2.754, 1.426)
pt3dadd(101.147, 134.202, -2.758, 1.426)
pt3dadd(101.144, 134.306, -2.813, 1.512)
pt3dadd(101.141, 134.407, -2.87, 1.612)
pt3dadd(101.138, 134.506, -2.932, 1.728)
pt3dadd(101.135, 134.584, -3.006, 1.838)
pt3dadd(101.132, 134.635, -3.099, 1.874)
pt3dadd(101.129, 134.706, -3.184, 1.852)
pt3dadd(101.126, 134.778, -3.269, 1.834)
pt3dadd(101.123, 134.849, -3.353, 1.812)
pt3dadd(101.12, 134.921, -3.438, 1.792)
pt3dadd(101.117, 134.971, -3.532, 1.766)
pt3dadd(101.114, 135, -3.634, 1.73)
pt3dadd(101.111, 135.03, -3.735, 1.696)
pt3dadd(101.108, 135.029, -3.74, 1.696)
pt3dadd(101.105, 135.059, -3.842, 1.66)
pt3dadd(101.102, 135.089, -3.944, 1.626)
pt3dadd(101.099, 135.118, -4.046, 1.59)
pt3dadd(101.074, 135.138, -4.147, 1.552)
pt3dadd(101.044, 135.155, -4.248, 1.514)
pt3dadd(101.012, 135.173, -4.349, 1.476)
pt3dadd(100.982, 135.19, -4.45, 1.436)
pt3dadd(100.95, 135.208, -4.551, 1.398)
pt3dadd(100.901, 135.24, -4.642, 1.362)
pt3dadd(100.838, 135.283, -4.726, 1.326)
pt3dadd(100.776, 135.326, -4.809, 1.29)
pt3dadd(100.713, 135.37, -4.893, 1.254)
pt3dadd(100.638, 135.402, -4.969, 1.226)
pt3dadd(100.536, 135.41, -5.029, 1.21)
pt3dadd(100.433, 135.418, -5.089, 1.194)
pt3dadd(100.331, 135.425, -5.15, 1.178)
pt3dadd(100.228, 135.433, -5.21, 1.162)
pt3dadd(100.121, 135.437, -5.265, 1.156)
pt3dadd(100.011, 135.436, -5.315, 1.156)
pt3dadd(99.901, 135.436, -5.364, 1.156)
pt3dadd(99.79, 135.434, -5.414, 1.156)
pt3dadd(99.681, 135.434, -5.464, 1.156)
pt3dadd(99.579, 135.433, -5.522, 1.164)
pt3dadd(99.501, 135.433, -5.606, 1.2)
pt3dadd(99.421, 135.432, -5.686, 1.238)
pt3dadd(99.324, 135.431, -5.754, 1.298)
pt3dadd(99.228, 135.431, -5.821, 1.356)
pt3dadd(99.171, 135.43, -5.916, 1.412)
pt3dadd(99.114, 135.43, -6.01, 1.468)
pt3dadd(99.099, 135.428, -6.113, 1.488)
pt3dadd(99.096, 135.428, -6.218, 1.496)
pt3dadd(99.093, 135.427, -6.323, 1.504)
pt3dadd(99.09, 135.427, -6.427, 1.498)
pt3dadd(99.087, 135.426, -6.532, 1.484)
pt3dadd(99.068, 135.444, -6.635, 1.478)
pt3dadd(99.045, 135.466, -6.737, 1.474)
pt3dadd(99.022, 135.487, -6.838, 1.468)
pt3dadd(98.998, 135.51, -6.94, 1.464)
pt3dadd(98.976, 135.532, -7.042, 1.458)
pt3dadd(98.951, 135.542, -7.144, 1.46)
pt3dadd(98.926, 135.542, -7.247, 1.468)
pt3dadd(98.901, 135.541, -7.351, 1.478)
pt3dadd(98.875, 135.541, -7.454, 1.486)
pt3dadd(98.851, 135.54, -7.557, 1.494)
pt3dadd(98.825, 135.54, -7.66, 1.502)
pt3dadd(98.792, 135.562, -7.758, 1.502)
pt3dadd(98.751, 135.606, -7.85, 1.49)
pt3dadd(98.709, 135.65, -7.942, 1.478)
}
}
proc shape3d_105() {
dend_7[6] { pt3dadd(98.667, 135.695, -8.034, 1.468)
pt3dadd(98.625, 135.738, -8.126, 1.456)
pt3dadd(98.588, 135.744, -8.226, 1.422)
pt3dadd(98.55, 135.751, -8.327, 1.39)
pt3dadd(98.512, 135.757, -8.427, 1.358)
pt3dadd(98.474, 135.764, -8.527, 1.324)
pt3dadd(98.436, 135.772, -8.628, 1.292)
pt3dadd(98.433, 135.77, -8.633, 1.292)
pt3dadd(98.43, 135.77, -8.638, 1.292)
pt3dadd(98.419, 135.772, -8.741, 1.25)
pt3dadd(98.422, 135.772, -8.846, 1.206)
pt3dadd(98.425, 135.77, -8.951, 1.16)
pt3dadd(98.428, 135.77, -9.056, 1.114)
pt3dadd(98.431, 135.769, -9.161, 1.07)
pt3dadd(98.434, 135.769, -9.265, 1.024)
pt3dadd(98.437, 135.768, -9.37, 0.98)
pt3dadd(98.426, 135.775, -9.475, 0.94)
pt3dadd(98.416, 135.782, -9.579, 0.9)
pt3dadd(98.404, 135.791, -9.684, 0.86)
pt3dadd(98.394, 135.798, -9.788, 0.82)
pt3dadd(98.383, 135.805, -9.893, 0.78)
pt3dadd(98.398, 135.841, -9.992, 0.744)
pt3dadd(98.414, 135.878, -10.09, 0.708)
pt3dadd(98.441, 135.883, -10.191, 0.746)
pt3dadd(98.472, 135.883, -10.292, 0.798)
pt3dadd(98.496, 135.864, -10.391, 0.864)
pt3dadd(98.513, 135.818, -10.487, 0.948)
pt3dadd(98.537, 135.762, -10.576, 1.038)
pt3dadd(98.579, 135.686, -10.649, 1.136)
pt3dadd(98.596, 135.649, -10.74, 1.202)
pt3dadd(98.593, 135.648, -10.745, 1.202)
pt3dadd(98.59, 135.648, -10.75, 1.202)
pt3dadd(98.587, 135.647, -10.755, 1.202)
pt3dadd(98.584, 135.647, -10.76, 1.202)
pt3dadd(98.581, 135.64, -10.865, 1.242)
pt3dadd(98.578, 135.636, -10.97, 1.26)
pt3dadd(98.575, 135.636, -11.075, 1.268)
pt3dadd(98.572, 135.635, -11.18, 1.274)
pt3dadd(98.569, 135.635, -11.285, 1.282)
pt3dadd(98.566, 135.634, -11.389, 1.29)
pt3dadd(98.563, 135.634, -11.494, 1.296)
pt3dadd(98.56, 135.632, -11.599, 1.304)
pt3dadd(98.557, 135.656, -11.701, 1.306)
pt3dadd(98.555, 135.691, -11.802, 1.306)
pt3dadd(98.552, 135.726, -11.902, 1.306)
pt3dadd(98.549, 135.762, -12.003, 1.306)
pt3dadd(98.546, 135.797, -12.103, 1.306)
pt3dadd(98.543, 135.832, -12.203, 1.306)
pt3dadd(98.54, 135.862, -12.305, 1.302)
pt3dadd(98.537, 135.89, -12.407, 1.296)
pt3dadd(98.534, 135.89, -12.412, 1.296)
pt3dadd(98.531, 135.919, -12.514, 1.292)
pt3dadd(98.528, 135.949, -12.615, 1.288)
pt3dadd(98.525, 135.979, -12.717, 1.284)
pt3dadd(98.511, 136.019, -12.814, 1.274)
pt3dadd(98.478, 136.078, -12.902, 1.258)
pt3dadd(98.445, 136.138, -12.99, 1.24)
pt3dadd(98.412, 136.198, -13.077, 1.224)
pt3dadd(98.379, 136.256, -13.165, 1.206)
pt3dadd(98.332, 136.277, -13.26, 1.196)
pt3dadd(98.282, 136.292, -13.357, 1.186)
pt3dadd(98.232, 136.308, -13.453, 1.176)
pt3dadd(98.182, 136.324, -13.549, 1.166)
pt3dadd(98.135, 136.34, -13.645, 1.156)
pt3dadd(98.132, 136.354, -13.749, 1.156)
pt3dadd(98.129, 136.368, -13.854, 1.156)
pt3dadd(98.124, 136.404, -13.949, 1.164)
pt3dadd(98.115, 136.482, -14.03, 1.188)
pt3dadd(98.081, 136.543, -14.107, 1.21)
pt3dadd(97.988, 136.562, -14.176, 1.222)
pt3dadd(97.913, 136.576, -14.255, 1.226)
pt3dadd(97.87, 136.574, -14.355, 1.216)
pt3dadd(97.827, 136.574, -14.454, 1.204)
pt3dadd(97.719, 136.598, -14.502, 1.182)
pt3dadd(97.61, 136.622, -14.551, 1.16)
pt3dadd(97.503, 136.645, -14.6, 1.136)
pt3dadd(97.433, 136.721, -14.648, 1.1)
pt3dadd(97.378, 136.814, -14.696, 1.058)
pt3dadd(97.367, 136.925, -14.733, 0.952)
pt3dadd(97.327, 137.003, -14.807, 0.922)
pt3dadd(97.285, 137.081, -14.88, 0.892)
pt3dadd(97.245, 137.16, -14.953, 0.862)
pt3dadd(97.204, 137.238, -15.027, 0.832)
pt3dadd(97.182, 137.342, -15.074, 0.81)
pt3dadd(97.162, 137.452, -15.118, 0.79)
pt3dadd(97.143, 137.561, -15.162, 0.77)
pt3dadd(97.124, 137.669, -15.205, 0.748)
pt3dadd(97.104, 137.778, -15.249, 0.728)
pt3dadd(97.101, 137.897, -15.265, 0.65)
pt3dadd(97.098, 138.016, -15.271, 0.622)
pt3dadd(97.095, 138.132, -15.295, 0.57)
pt3dadd(97.082, 138.217, -15.363, 0.518)
pt3dadd(97.036, 138.22, -15.456, 0.502)
pt3dadd(96.965, 138.16, -15.525, 0.526)
pt3dadd(96.869, 138.125, -15.584, 0.486)
}
dend_0[5] {pt3dclear()
pt3dadd(94.315, 106.465, 13.197, 13.636)
pt3dadd(94.318, 106.519, 13.241, 13.576)
pt3dadd(94.322, 106.604, 13.312, 13.48)
pt3dadd(94.326, 106.689, 13.382, 13.384)
pt3dadd(94.33, 106.774, 13.453, 13.288)
pt3dadd(94.334, 106.859, 13.524, 13.192)
pt3dadd(94.338, 106.944, 13.594, 13.096)
pt3dadd(94.342, 107.029, 13.665, 13)
pt3dadd(94.346, 107.114, 13.735, 12.904)
pt3dadd(94.35, 107.199, 13.806, 12.808)
pt3dadd(94.354, 107.284, 13.876, 12.712)
pt3dadd(94.385, 107.366, 13.942, 12.532)
pt3dadd(94.428, 107.447, 14.007, 12.316)
pt3dadd(94.471, 107.529, 14.071, 12.1)
pt3dadd(94.514, 107.61, 14.135, 11.884)
pt3dadd(94.557, 107.691, 14.199, 11.668)
pt3dadd(94.6, 107.772, 14.263, 11.452)
pt3dadd(94.643, 107.854, 14.328, 11.236)
pt3dadd(94.686, 107.935, 14.392, 11.02)
pt3dadd(94.73, 108.016, 14.456, 10.806)
pt3dadd(94.773, 108.097, 14.52, 10.59)
pt3dadd(94.835, 108.176, 14.573, 10.39)
pt3dadd(94.906, 108.254, 14.622, 10.2)
pt3dadd(94.976, 108.332, 14.67, 10.008)
pt3dadd(95.047, 108.41, 14.718, 9.818)
pt3dadd(95.118, 108.488, 14.766, 9.626)
pt3dadd(95.188, 108.566, 14.814, 9.436)
pt3dadd(95.259, 108.644, 14.862, 9.244)
pt3dadd(95.33, 108.721, 14.91, 9.054)
pt3dadd(95.4, 108.799, 14.959, 8.864)
pt3dadd(95.471, 108.877, 15.007, 8.672)
pt3dadd(95.556, 108.929, 15.061, 8.474)
pt3dadd(95.646, 108.972, 15.117, 8.274)
pt3dadd(95.735, 109.015, 15.173, 8.074)
pt3dadd(95.825, 109.059, 15.229, 7.874)
pt3dadd(95.914, 109.102, 15.285, 7.674)
pt3dadd(96.004, 109.145, 15.341, 7.474)
pt3dadd(96.093, 109.189, 15.397, 7.274)
pt3dadd(96.183, 109.232, 15.453, 7.074)
pt3dadd(96.272, 109.275, 15.509, 6.874)
pt3dadd(96.362, 109.319, 15.565, 6.674)
pt3dadd(96.456, 109.341, 15.624, 6.494)
pt3dadd(96.55, 109.36, 15.683, 6.316)
pt3dadd(96.645, 109.379, 15.742, 6.138)
pt3dadd(96.74, 109.398, 15.802, 5.96)
pt3dadd(96.835, 109.417, 15.861, 5.782)
pt3dadd(96.929, 109.436, 15.92, 5.604)
pt3dadd(97.024, 109.455, 15.979, 5.426)
pt3dadd(97.119, 109.474, 16.039, 5.248)
pt3dadd(97.213, 109.493, 16.098, 5.07)
pt3dadd(97.308, 109.512, 16.157, 4.892)
pt3dadd(97.408, 109.521, 16.212, 4.724)
pt3dadd(97.509, 109.529, 16.266, 4.556)
pt3dadd(97.61, 109.536, 16.32, 4.39)
pt3dadd(97.711, 109.544, 16.374, 4.222)
pt3dadd(97.811, 109.551, 16.428, 4.054)
pt3dadd(97.912, 109.558, 16.482, 3.888)
pt3dadd(98.013, 109.566, 16.535, 3.72)
pt3dadd(98.114, 109.573, 16.589, 3.554)
pt3dadd(98.214, 109.581, 16.643, 3.386)
pt3dadd(98.315, 109.588, 16.697, 3.22)
pt3dadd(98.418, 109.593, 16.748, 3.112)
pt3dadd(98.522, 109.599, 16.799, 3.008)
pt3dadd(98.625, 109.604, 16.85, 2.906)
pt3dadd(98.728, 109.609, 16.901, 2.802)
pt3dadd(98.831, 109.614, 16.951, 2.698)
}
dend_7[7] {pt3dclear()
pt3dadd(98.831, 109.614, 16.951, 2.698)
pt3dadd(98.935, 109.619, 17.002, 2.596)
pt3dadd(99.038, 109.624, 17.053, 2.492)
pt3dadd(99.141, 109.629, 17.104, 2.39)
pt3dadd(99.244, 109.634, 17.155, 2.286)
pt3dadd(99.348, 109.639, 17.205, 2.182)
pt3dadd(99.448, 109.647, 17.26, 2.162)
pt3dadd(99.548, 109.656, 17.314, 2.148)
pt3dadd(99.648, 109.665, 17.369, 2.134)
pt3dadd(99.748, 109.674, 17.424, 2.12)
pt3dadd(99.848, 109.683, 17.478, 2.106)
pt3dadd(99.948, 109.692, 17.533, 2.092)
pt3dadd(100.049, 109.701, 17.588, 2.078)
pt3dadd(100.149, 109.71, 17.642, 2.064)
pt3dadd(100.249, 109.719, 17.697, 2.05)
pt3dadd(100.349, 109.728, 17.751, 2.034)
pt3dadd(100.449, 109.743, 17.806, 2.034)
pt3dadd(100.548, 109.759, 17.86, 2.034)
pt3dadd(100.648, 109.775, 17.914, 2.034)
pt3dadd(100.747, 109.791, 17.968, 2.034)
pt3dadd(100.847, 109.807, 18.022, 2.034)
pt3dadd(100.947, 109.823, 18.076, 2.034)
pt3dadd(101.046, 109.839, 18.13, 2.034)
pt3dadd(101.146, 109.854, 18.185, 2.034)
pt3dadd(101.246, 109.87, 18.239, 2.034)
pt3dadd(101.345, 109.886, 18.293, 2.034)
pt3dadd(101.448, 109.929, 18.33, 2.034)
pt3dadd(101.55, 109.973, 18.368, 2.034)
pt3dadd(101.653, 110.016, 18.405, 2.034)
pt3dadd(101.755, 110.059, 18.443, 2.034)
pt3dadd(101.858, 110.103, 18.48, 2.034)
pt3dadd(101.96, 110.146, 18.517, 2.034)
pt3dadd(102.063, 110.189, 18.555, 2.034)
pt3dadd(102.165, 110.233, 18.592, 2.034)
pt3dadd(102.268, 110.276, 18.63, 2.034)
pt3dadd(102.37, 110.319, 18.667, 2.034)
pt3dadd(102.482, 110.352, 18.69, 2.012)
pt3dadd(102.595, 110.384, 18.713, 1.99)
pt3dadd(102.707, 110.417, 18.736, 1.968)
}
}
proc shape3d_106() {
dend_7[7] { pt3dadd(102.819, 110.449, 18.759, 1.944)
pt3dadd(102.931, 110.481, 18.782, 1.922)
pt3dadd(103.043, 110.514, 18.805, 1.9)
pt3dadd(103.156, 110.546, 18.828, 1.878)
pt3dadd(103.268, 110.579, 18.851, 1.856)
pt3dadd(103.38, 110.611, 18.874, 1.834)
pt3dadd(103.492, 110.643, 18.897, 1.812)
pt3dadd(103.6, 110.666, 18.937, 1.81)
pt3dadd(103.708, 110.688, 18.976, 1.81)
pt3dadd(103.816, 110.711, 19.016, 1.81)
pt3dadd(103.924, 110.733, 19.056, 1.81)
pt3dadd(104.031, 110.756, 19.095, 1.81)
pt3dadd(104.139, 110.778, 19.135, 1.81)
pt3dadd(104.247, 110.801, 19.175, 1.808)
pt3dadd(104.355, 110.823, 19.214, 1.808)
pt3dadd(104.463, 110.845, 19.254, 1.808)
pt3dadd(104.571, 110.868, 19.293, 1.808)
pt3dadd(104.683, 110.887, 19.326, 1.83)
pt3dadd(104.794, 110.906, 19.359, 1.852)
pt3dadd(104.906, 110.925, 19.391, 1.876)
pt3dadd(105.018, 110.945, 19.424, 1.898)
pt3dadd(105.13, 110.964, 19.457, 1.922)
pt3dadd(105.242, 110.983, 19.489, 1.944)
pt3dadd(105.353, 111.002, 19.522, 1.966)
pt3dadd(105.465, 111.022, 19.555, 1.988)
pt3dadd(105.577, 111.041, 19.587, 2.012)
pt3dadd(105.689, 111.06, 19.62, 2.034)
}
dend_7[8] {pt3dclear()
pt3dadd(105.689, 111.06, 19.62, 2.034)
pt3dadd(105.723, 111.08, 19.627, 2.01)
pt3dadd(105.825, 111.138, 19.65, 1.942)
pt3dadd(105.927, 111.196, 19.672, 1.874)
pt3dadd(106.028, 111.254, 19.695, 1.804)
pt3dadd(106.13, 111.312, 19.717, 1.736)
pt3dadd(106.231, 111.37, 19.74, 1.668)
pt3dadd(106.326, 111.43, 19.773, 1.614)
pt3dadd(106.419, 111.491, 19.812, 1.568)
pt3dadd(106.512, 111.551, 19.851, 1.522)
pt3dadd(106.604, 111.612, 19.889, 1.476)
pt3dadd(106.697, 111.672, 19.928, 1.43)
pt3dadd(106.789, 111.733, 19.967, 1.384)
pt3dadd(106.882, 111.794, 20.006, 1.338)
pt3dadd(106.974, 111.854, 20.045, 1.292)
pt3dadd(107.067, 111.915, 20.083, 1.244)
pt3dadd(107.159, 111.975, 20.122, 1.198)
pt3dadd(107.246, 112.048, 20.155, 1.154)
pt3dadd(107.331, 112.123, 20.187, 1.11)
pt3dadd(107.417, 112.198, 20.219, 1.064)
pt3dadd(107.502, 112.274, 20.251, 1.02)
pt3dadd(107.587, 112.349, 20.282, 0.976)
pt3dadd(107.672, 112.425, 20.314, 0.932)
pt3dadd(107.758, 112.5, 20.346, 0.888)
pt3dadd(107.843, 112.575, 20.378, 0.842)
pt3dadd(107.928, 112.65, 20.41, 0.798)
pt3dadd(108.013, 112.726, 20.441, 0.754)
pt3dadd(108.109, 112.794, 20.461, 0.742)
pt3dadd(108.207, 112.861, 20.478, 0.734)
pt3dadd(108.304, 112.928, 20.495, 0.728)
pt3dadd(108.402, 112.994, 20.513, 0.72)
pt3dadd(108.499, 113.061, 20.53, 0.714)
pt3dadd(108.597, 113.128, 20.547, 0.706)
pt3dadd(108.694, 113.195, 20.564, 0.7)
pt3dadd(108.792, 113.262, 20.582, 0.692)
pt3dadd(108.889, 113.329, 20.599, 0.686)
pt3dadd(108.987, 113.395, 20.616, 0.678)
pt3dadd(109.072, 113.479, 20.625, 0.678)
pt3dadd(109.155, 113.565, 20.632, 0.678)
pt3dadd(109.239, 113.65, 20.639, 0.678)
pt3dadd(109.322, 113.736, 20.646, 0.678)
pt3dadd(109.406, 113.822, 20.653, 0.678)
pt3dadd(109.489, 113.908, 20.66, 0.678)
pt3dadd(109.573, 113.994, 20.668, 0.678)
pt3dadd(109.656, 114.079, 20.675, 0.678)
pt3dadd(109.74, 114.165, 20.682, 0.678)
pt3dadd(109.823, 114.251, 20.689, 0.678)
pt3dadd(109.863, 114.361, 20.703, 0.718)
pt3dadd(109.898, 114.474, 20.718, 0.76)
pt3dadd(109.933, 114.588, 20.734, 0.806)
pt3dadd(109.968, 114.701, 20.749, 0.848)
pt3dadd(110.003, 114.815, 20.764, 0.892)
pt3dadd(110.038, 114.928, 20.779, 0.936)
pt3dadd(110.072, 115.041, 20.794, 0.98)
pt3dadd(110.107, 115.155, 20.809, 1.024)
pt3dadd(110.142, 115.268, 20.824, 1.068)
pt3dadd(110.177, 115.382, 20.839, 1.112)
pt3dadd(110.175, 115.492, 20.877, 1.094)
pt3dadd(110.172, 115.603, 20.915, 1.074)
pt3dadd(110.169, 115.714, 20.953, 1.054)
pt3dadd(110.166, 115.825, 20.992, 1.034)
pt3dadd(110.164, 115.936, 21.03, 1.012)
pt3dadd(110.161, 116.046, 21.068, 0.992)
pt3dadd(110.158, 116.157, 21.107, 0.972)
pt3dadd(110.155, 116.268, 21.145, 0.952)
pt3dadd(110.152, 116.379, 21.183, 0.932)
pt3dadd(110.149, 116.49, 21.222, 0.912)
pt3dadd(110.104, 116.597, 21.247, 0.932)
pt3dadd(110.06, 116.704, 21.272, 0.954)
pt3dadd(110.015, 116.811, 21.298, 0.974)
pt3dadd(109.97, 116.918, 21.323, 0.996)
pt3dadd(109.925, 117.025, 21.348, 1.016)
pt3dadd(109.88, 117.132, 21.374, 1.038)
pt3dadd(109.835, 117.239, 21.399, 1.06)
pt3dadd(109.79, 117.346, 21.424, 1.08)
pt3dadd(109.745, 117.453, 21.45, 1.102)
pt3dadd(109.701, 117.56, 21.475, 1.122)
pt3dadd(109.668, 117.673, 21.494, 1.08)
pt3dadd(109.635, 117.787, 21.514, 1.038)
pt3dadd(109.603, 117.9, 21.533, 0.994)
pt3dadd(109.57, 118.013, 21.552, 0.952)
pt3dadd(109.538, 118.126, 21.571, 0.908)
pt3dadd(109.505, 118.239, 21.59, 0.866)
pt3dadd(109.473, 118.353, 21.609, 0.824)
pt3dadd(109.44, 118.466, 21.628, 0.78)
pt3dadd(109.408, 118.579, 21.648, 0.738)
pt3dadd(109.375, 118.692, 21.667, 0.694)
pt3dadd(109.352, 118.809, 21.682, 0.67)
pt3dadd(109.329, 118.925, 21.697, 0.646)
pt3dadd(109.306, 119.041, 21.712, 0.622)
pt3dadd(109.283, 119.158, 21.727, 0.598)
pt3dadd(109.26, 119.274, 21.742, 0.574)
pt3dadd(109.237, 119.391, 21.757, 0.55)
pt3dadd(109.214, 119.507, 21.772, 0.524)
pt3dadd(109.191, 119.623, 21.787, 0.5)
pt3dadd(109.168, 119.74, 21.802, 0.476)
pt3dadd(109.145, 119.856, 21.817, 0.452)
}
dend_7[9] {pt3dclear()
pt3dadd(109.145, 119.856, 21.817, 0.452)
pt3dadd(109.13, 119.959, 21.861, 0.496)
pt3dadd(109.115, 120.065, 21.907, 0.54)
pt3dadd(109.1, 120.172, 21.952, 0.584)
pt3dadd(109.084, 120.277, 21.998, 0.63)
pt3dadd(109.069, 120.383, 22.043, 0.674)
pt3dadd(109.054, 120.488, 22.088, 0.718)
pt3dadd(109.039, 120.594, 22.134, 0.764)
pt3dadd(109.014, 120.698, 22.177, 0.808)
pt3dadd(108.973, 120.802, 22.216, 0.854)
pt3dadd(108.932, 120.905, 22.254, 0.898)
pt3dadd(108.891, 121.007, 22.293, 0.944)
pt3dadd(108.849, 121.11, 22.332, 0.988)
pt3dadd(108.808, 121.212, 22.371, 1.034)
pt3dadd(108.767, 121.315, 22.41, 1.078)
pt3dadd(108.726, 121.417, 22.448, 1.122)
pt3dadd(108.685, 121.52, 22.487, 1.168)
pt3dadd(108.644, 121.622, 22.526, 1.212)
pt3dadd(108.6, 121.718, 22.573, 1.224)
pt3dadd(108.553, 121.806, 22.628, 1.196)
pt3dadd(108.506, 121.895, 22.684, 1.168)
pt3dadd(108.459, 121.982, 22.74, 1.142)
pt3dadd(108.412, 122.07, 22.796, 1.114)
pt3dadd(108.365, 122.158, 22.852, 1.086)
pt3dadd(108.318, 122.245, 22.908, 1.058)
pt3dadd(108.272, 122.333, 22.964, 1.03)
pt3dadd(108.225, 122.42, 23.02, 1.002)
pt3dadd(108.178, 122.509, 23.076, 0.976)
pt3dadd(108.136, 122.605, 23.123, 0.936)
pt3dadd(108.098, 122.707, 23.164, 0.886)
pt3dadd(108.06, 122.81, 23.204, 0.836)
pt3dadd(108.022, 122.914, 23.245, 0.786)
pt3dadd(107.984, 123.016, 23.286, 0.734)
pt3dadd(107.946, 123.119, 23.327, 0.686)
pt3dadd(107.908, 123.222, 23.367, 0.634)
pt3dadd(107.87, 123.324, 23.408, 0.584)
pt3dadd(107.832, 123.427, 23.449, 0.534)
pt3dadd(107.794, 123.53, 23.49, 0.484)
pt3dadd(107.746, 123.632, 23.521, 0.478)
pt3dadd(107.692, 123.736, 23.547, 0.5)
pt3dadd(107.639, 123.839, 23.573, 0.522)
pt3dadd(107.586, 123.941, 23.599, 0.542)
pt3dadd(107.532, 124.044, 23.625, 0.564)
pt3dadd(107.478, 124.146, 23.652, 0.586)
pt3dadd(107.425, 124.249, 23.678, 0.606)
pt3dadd(107.372, 124.352, 23.704, 0.628)
pt3dadd(107.318, 124.454, 23.73, 0.65)
pt3dadd(107.265, 124.558, 23.756, 0.67)
pt3dadd(107.221, 124.661, 23.792, 0.678)
pt3dadd(107.184, 124.763, 23.833, 0.678)
pt3dadd(107.147, 124.866, 23.874, 0.678)
pt3dadd(107.109, 124.969, 23.915, 0.678)
pt3dadd(107.072, 125.071, 23.956, 0.678)
pt3dadd(107.035, 125.174, 23.998, 0.678)
pt3dadd(106.998, 125.278, 24.039, 0.678)
pt3dadd(106.96, 125.38, 24.08, 0.678)
pt3dadd(106.923, 125.483, 24.121, 0.678)
pt3dadd(106.886, 125.586, 24.162, 0.678)
pt3dadd(106.84, 125.687, 24.198, 0.702)
pt3dadd(106.789, 125.789, 24.231, 0.738)
pt3dadd(106.738, 125.89, 24.264, 0.776)
pt3dadd(106.687, 125.992, 24.296, 0.814)
pt3dadd(106.635, 126.092, 24.329, 0.85)
pt3dadd(106.584, 126.193, 24.362, 0.888)
pt3dadd(106.533, 126.295, 24.395, 0.926)
pt3dadd(106.482, 126.396, 24.427, 0.962)
pt3dadd(106.431, 126.497, 24.46, 1)
pt3dadd(106.38, 126.599, 24.493, 1.038)
pt3dadd(106.342, 126.701, 24.534, 1.034)
pt3dadd(106.311, 126.803, 24.579, 1.01)
pt3dadd(106.281, 126.906, 24.624, 0.986)
pt3dadd(106.25, 127.008, 24.669, 0.962)
pt3dadd(106.219, 127.111, 24.714, 0.938)
pt3dadd(106.188, 127.213, 24.759, 0.914)
pt3dadd(106.158, 127.316, 24.804, 0.89)
pt3dadd(106.127, 127.418, 24.849, 0.866)
}
}
proc shape3d_107() {
dend_7[9] { pt3dadd(106.096, 127.522, 24.894, 0.842)
pt3dadd(106.065, 127.624, 24.939, 0.816)
pt3dadd(106.044, 127.732, 24.978, 0.79)
pt3dadd(106.027, 127.843, 25.014, 0.762)
pt3dadd(106.01, 127.954, 25.05, 0.734)
pt3dadd(105.993, 128.064, 25.086, 0.704)
pt3dadd(105.976, 128.174, 25.122, 0.676)
pt3dadd(105.959, 128.286, 25.158, 0.648)
pt3dadd(105.942, 128.396, 25.194, 0.62)
pt3dadd(105.925, 128.507, 25.23, 0.592)
pt3dadd(105.908, 128.617, 25.266, 0.564)
pt3dadd(105.891, 128.728, 25.302, 0.536)
pt3dadd(105.883, 128.839, 25.339, 0.544)
pt3dadd(105.879, 128.951, 25.375, 0.564)
pt3dadd(105.874, 129.062, 25.412, 0.586)
pt3dadd(105.87, 129.174, 25.449, 0.606)
pt3dadd(105.865, 129.286, 25.486, 0.628)
pt3dadd(105.861, 129.397, 25.523, 0.648)
pt3dadd(105.856, 129.508, 25.56, 0.668)
pt3dadd(105.851, 129.619, 25.597, 0.69)
pt3dadd(105.847, 129.731, 25.633, 0.71)
pt3dadd(105.842, 129.842, 25.67, 0.732)
pt3dadd(105.841, 129.96, 25.688, 0.738)
pt3dadd(105.84, 130.079, 25.701, 0.74)
pt3dadd(105.84, 130.198, 25.714, 0.742)
pt3dadd(105.839, 130.316, 25.727, 0.746)
pt3dadd(105.838, 130.436, 25.74, 0.748)
pt3dadd(105.838, 130.555, 25.753, 0.75)
pt3dadd(105.837, 130.674, 25.766, 0.754)
pt3dadd(105.836, 130.793, 25.779, 0.756)
pt3dadd(105.836, 130.912, 25.792, 0.758)
pt3dadd(105.835, 131.03, 25.805, 0.76)
pt3dadd(105.834, 131.15, 25.807, 0.752)
pt3dadd(105.832, 131.27, 25.809, 0.744)
pt3dadd(105.83, 131.39, 25.811, 0.736)
pt3dadd(105.829, 131.51, 25.814, 0.728)
pt3dadd(105.827, 131.63, 25.816, 0.72)
pt3dadd(105.826, 131.75, 25.818, 0.71)
pt3dadd(105.824, 131.87, 25.82, 0.702)
pt3dadd(105.823, 131.99, 25.822, 0.694)
pt3dadd(105.821, 132.11, 25.824, 0.686)
pt3dadd(105.819, 132.23, 25.828, 0.68)
pt3dadd(105.816, 132.344, 25.857, 0.71)
pt3dadd(105.813, 132.46, 25.886, 0.74)
pt3dadd(105.81, 132.575, 25.915, 0.77)
pt3dadd(105.807, 132.689, 25.944, 0.8)
pt3dadd(105.804, 132.804, 25.973, 0.83)
pt3dadd(105.801, 132.919, 26.002, 0.86)
pt3dadd(105.798, 133.033, 26.031, 0.89)
pt3dadd(105.795, 133.148, 26.06, 0.92)
pt3dadd(105.792, 133.264, 26.089, 0.95)
pt3dadd(105.789, 133.375, 26.122, 0.968)
pt3dadd(105.782, 133.48, 26.173, 0.934)
pt3dadd(105.776, 133.583, 26.224, 0.9)
pt3dadd(105.77, 133.686, 26.274, 0.866)
pt3dadd(105.763, 133.789, 26.325, 0.832)
pt3dadd(105.757, 133.892, 26.375, 0.798)
pt3dadd(105.751, 133.996, 26.426, 0.764)
pt3dadd(105.745, 134.099, 26.477, 0.73)
pt3dadd(105.738, 134.202, 26.527, 0.696)
pt3dadd(105.732, 134.305, 26.578, 0.662)
pt3dadd(105.725, 134.408, 26.628, 0.634)
pt3dadd(105.714, 134.513, 26.678, 0.622)
pt3dadd(105.703, 134.616, 26.728, 0.612)
pt3dadd(105.692, 134.719, 26.777, 0.6)
pt3dadd(105.681, 134.824, 26.827, 0.588)
pt3dadd(105.67, 134.927, 26.877, 0.578)
pt3dadd(105.66, 135.03, 26.926, 0.566)
pt3dadd(105.649, 135.134, 26.976, 0.556)
pt3dadd(105.638, 135.238, 27.026, 0.544)
pt3dadd(105.627, 135.341, 27.075, 0.532)
pt3dadd(105.612, 135.446, 27.121, 0.538)
pt3dadd(105.584, 135.554, 27.157, 0.584)
pt3dadd(105.556, 135.664, 27.193, 0.63)
pt3dadd(105.529, 135.772, 27.228, 0.678)
pt3dadd(105.501, 135.881, 27.264, 0.724)
pt3dadd(105.473, 135.989, 27.299, 0.772)
pt3dadd(105.446, 136.098, 27.335, 0.818)
pt3dadd(105.418, 136.207, 27.371, 0.866)
pt3dadd(105.39, 136.315, 27.406, 0.912)
pt3dadd(105.363, 136.424, 27.442, 0.958)
pt3dadd(105.33, 136.531, 27.476, 0.994)
pt3dadd(105.287, 136.637, 27.508, 1.008)
pt3dadd(105.245, 136.742, 27.541, 1.022)
pt3dadd(105.202, 136.848, 27.573, 1.036)
pt3dadd(105.16, 136.954, 27.605, 1.05)
pt3dadd(105.117, 137.058, 27.637, 1.064)
pt3dadd(105.075, 137.164, 27.669, 1.078)
pt3dadd(105.032, 137.269, 27.701, 1.094)
pt3dadd(104.99, 137.375, 27.734, 1.108)
pt3dadd(104.948, 137.48, 27.766, 1.122)
pt3dadd(104.91, 137.584, 27.804, 1.126)
pt3dadd(104.877, 137.686, 27.85, 1.12)
pt3dadd(104.845, 137.788, 27.896, 1.112)
pt3dadd(104.813, 137.888, 27.942, 1.104)
pt3dadd(104.781, 137.99, 27.987, 1.098)
pt3dadd(104.749, 138.092, 28.033, 1.09)
pt3dadd(104.717, 138.193, 28.079, 1.082)
pt3dadd(104.685, 138.295, 28.125, 1.076)
pt3dadd(104.653, 138.397, 28.171, 1.068)
pt3dadd(104.621, 138.499, 28.217, 1.06)
pt3dadd(104.592, 138.599, 28.266, 1.04)
pt3dadd(104.566, 138.697, 28.319, 1.002)
pt3dadd(104.541, 138.797, 28.372, 0.964)
pt3dadd(104.515, 138.895, 28.424, 0.926)
pt3dadd(104.49, 138.994, 28.477, 0.888)
pt3dadd(104.464, 139.092, 28.53, 0.85)
pt3dadd(104.439, 139.19, 28.583, 0.812)
pt3dadd(104.413, 139.29, 28.636, 0.774)
pt3dadd(104.388, 139.388, 28.689, 0.736)
pt3dadd(104.362, 139.487, 28.742, 0.698)
pt3dadd(104.327, 139.588, 28.785, 0.678)
pt3dadd(104.279, 139.691, 28.816, 0.678)
pt3dadd(104.23, 139.794, 28.847, 0.678)
pt3dadd(104.182, 139.897, 28.878, 0.678)
pt3dadd(104.134, 140.002, 28.909, 0.678)
pt3dadd(104.086, 140.105, 28.94, 0.678)
pt3dadd(104.038, 140.208, 28.971, 0.678)
pt3dadd(103.99, 140.311, 29.002, 0.678)
pt3dadd(103.942, 140.414, 29.034, 0.678)
pt3dadd(103.894, 140.518, 29.065, 0.678)
pt3dadd(103.849, 140.626, 29.088, 0.688)
pt3dadd(103.809, 140.737, 29.101, 0.706)
pt3dadd(103.768, 140.849, 29.114, 0.728)
pt3dadd(103.728, 140.962, 29.127, 0.746)
pt3dadd(103.687, 141.073, 29.14, 0.766)
pt3dadd(103.647, 141.185, 29.153, 0.786)
pt3dadd(103.607, 141.296, 29.166, 0.806)
pt3dadd(103.566, 141.409, 29.179, 0.826)
pt3dadd(103.526, 141.521, 29.192, 0.846)
pt3dadd(103.485, 141.632, 29.205, 0.866)
pt3dadd(103.44, 141.743, 29.213, 0.878)
pt3dadd(103.389, 141.851, 29.215, 0.882)
pt3dadd(103.338, 141.96, 29.217, 0.884)
pt3dadd(103.287, 142.068, 29.22, 0.886)
pt3dadd(103.236, 142.177, 29.222, 0.89)
pt3dadd(103.185, 142.285, 29.225, 0.892)
pt3dadd(103.134, 142.394, 29.227, 0.894)
pt3dadd(103.083, 142.502, 29.23, 0.898)
pt3dadd(103.031, 142.612, 29.232, 0.9)
pt3dadd(102.98, 142.72, 29.235, 0.902)
pt3dadd(102.94, 142.832, 29.237, 0.894)
pt3dadd(102.912, 142.949, 29.24, 0.876)
pt3dadd(102.884, 143.065, 29.242, 0.858)
pt3dadd(102.856, 143.183, 29.245, 0.838)
pt3dadd(102.828, 143.299, 29.247, 0.82)
pt3dadd(102.8, 143.416, 29.25, 0.8)
pt3dadd(102.772, 143.532, 29.252, 0.782)
pt3dadd(102.744, 143.648, 29.255, 0.764)
pt3dadd(102.716, 143.766, 29.257, 0.744)
pt3dadd(102.688, 143.882, 29.26, 0.726)
pt3dadd(102.673, 144, 29.264, 0.714)
pt3dadd(102.667, 144.12, 29.271, 0.71)
pt3dadd(102.662, 144.24, 29.277, 0.706)
pt3dadd(102.657, 144.359, 29.283, 0.704)
pt3dadd(102.652, 144.479, 29.29, 0.7)
pt3dadd(102.646, 144.599, 29.296, 0.696)
pt3dadd(102.641, 144.719, 29.302, 0.692)
pt3dadd(102.636, 144.838, 29.309, 0.688)
pt3dadd(102.63, 144.958, 29.315, 0.684)
pt3dadd(102.625, 145.078, 29.321, 0.68)
pt3dadd(102.642, 145.194, 29.33, 0.656)
pt3dadd(102.677, 145.308, 29.34, 0.618)
pt3dadd(102.712, 145.422, 29.351, 0.58)
pt3dadd(102.746, 145.536, 29.361, 0.54)
pt3dadd(102.781, 145.65, 29.372, 0.502)
pt3dadd(102.816, 145.765, 29.382, 0.464)
pt3dadd(102.85, 145.879, 29.393, 0.426)
pt3dadd(102.885, 145.993, 29.403, 0.386)
pt3dadd(102.92, 146.107, 29.414, 0.348)
pt3dadd(102.954, 146.221, 29.424, 0.31)
pt3dadd(102.98, 146.334, 29.449, 0.326)
pt3dadd(103, 146.446, 29.482, 0.374)
pt3dadd(103.02, 146.557, 29.515, 0.422)
pt3dadd(103.04, 146.669, 29.548, 0.47)
pt3dadd(103.06, 146.78, 29.581, 0.518)
pt3dadd(103.08, 146.892, 29.614, 0.566)
pt3dadd(103.099, 147.004, 29.647, 0.614)
pt3dadd(103.119, 147.115, 29.68, 0.662)
pt3dadd(103.139, 147.226, 29.713, 0.71)
pt3dadd(103.159, 147.337, 29.746, 0.758)
pt3dadd(103.162, 147.452, 29.774, 0.794)
pt3dadd(103.157, 147.568, 29.801, 0.826)
pt3dadd(103.153, 147.683, 29.828, 0.858)
pt3dadd(103.148, 147.799, 29.854, 0.89)
pt3dadd(103.144, 147.914, 29.881, 0.92)
pt3dadd(103.139, 148.03, 29.908, 0.952)
pt3dadd(103.134, 148.145, 29.934, 0.984)
pt3dadd(103.13, 148.261, 29.961, 1.016)
pt3dadd(103.125, 148.376, 29.988, 1.046)
pt3dadd(103.121, 148.492, 30.014, 1.078)
pt3dadd(103.083, 148.602, 30.03, 1.076)
pt3dadd(103.035, 148.711, 30.043, 1.064)
pt3dadd(102.987, 148.82, 30.056, 1.052)
pt3dadd(102.939, 148.93, 30.069, 1.04)
pt3dadd(102.891, 149.039, 30.081, 1.026)
pt3dadd(102.843, 149.147, 30.094, 1.014)
pt3dadd(102.795, 149.256, 30.107, 1.002)
pt3dadd(102.748, 149.365, 30.119, 0.99)
pt3dadd(102.7, 149.474, 30.132, 0.978)
}
}
proc shape3d_108() {
dend_7[9] { pt3dadd(102.652, 149.584, 30.145, 0.966)
pt3dadd(102.589, 149.686, 30.148, 0.958)
pt3dadd(102.524, 149.786, 30.151, 0.952)
pt3dadd(102.46, 149.887, 30.154, 0.946)
pt3dadd(102.395, 149.988, 30.157, 0.94)
pt3dadd(102.33, 150.089, 30.16, 0.934)
pt3dadd(102.266, 150.191, 30.163, 0.928)
pt3dadd(102.201, 150.292, 30.166, 0.922)
pt3dadd(102.137, 150.392, 30.168, 0.916)
pt3dadd(102.072, 150.493, 30.171, 0.91)
pt3dadd(102.007, 150.595, 30.174, 0.904)
pt3dadd(101.949, 150.7, 30.174, 0.894)
pt3dadd(101.892, 150.805, 30.174, 0.882)
pt3dadd(101.834, 150.911, 30.174, 0.87)
pt3dadd(101.776, 151.015, 30.174, 0.858)
pt3dadd(101.719, 151.121, 30.174, 0.846)
pt3dadd(101.661, 151.226, 30.174, 0.834)
pt3dadd(101.604, 151.331, 30.174, 0.822)
pt3dadd(101.546, 151.436, 30.174, 0.81)
pt3dadd(101.489, 151.542, 30.174, 0.798)
pt3dadd(101.431, 151.648, 30.174, 0.788)
pt3dadd(101.391, 151.76, 30.174, 0.776)
pt3dadd(101.351, 151.873, 30.174, 0.766)
pt3dadd(101.311, 151.986, 30.174, 0.754)
pt3dadd(101.271, 152.1, 30.174, 0.744)
pt3dadd(101.231, 152.213, 30.174, 0.732)
pt3dadd(101.191, 152.326, 30.174, 0.722)
pt3dadd(101.151, 152.44, 30.174, 0.71)
pt3dadd(101.112, 152.552, 30.174, 0.7)
pt3dadd(101.072, 152.665, 30.174, 0.688)
pt3dadd(101.032, 152.779, 30.174, 0.678)
pt3dadd(100.99, 152.891, 30.174, 0.678)
pt3dadd(100.948, 153.004, 30.174, 0.678)
pt3dadd(100.907, 153.116, 30.174, 0.678)
pt3dadd(100.865, 153.229, 30.174, 0.678)
pt3dadd(100.823, 153.341, 30.174, 0.678)
pt3dadd(100.781, 153.454, 30.174, 0.678)
pt3dadd(100.74, 153.566, 30.174, 0.678)
pt3dadd(100.698, 153.679, 30.174, 0.678)
pt3dadd(100.656, 153.791, 30.174, 0.678)
pt3dadd(100.614, 153.904, 30.174, 0.678)
pt3dadd(100.565, 154.014, 30.174, 0.688)
pt3dadd(100.517, 154.123, 30.174, 0.698)
pt3dadd(100.468, 154.232, 30.174, 0.706)
pt3dadd(100.419, 154.343, 30.174, 0.716)
pt3dadd(100.37, 154.452, 30.174, 0.726)
pt3dadd(100.322, 154.561, 30.174, 0.736)
pt3dadd(100.273, 154.672, 30.174, 0.744)
pt3dadd(100.224, 154.781, 30.174, 0.754)
pt3dadd(100.175, 154.89, 30.174, 0.764)
pt3dadd(100.127, 155, 30.174, 0.772)
pt3dadd(100.076, 155.108, 30.174, 0.77)
pt3dadd(100.025, 155.218, 30.174, 0.766)
pt3dadd(99.975, 155.327, 30.174, 0.764)
pt3dadd(99.924, 155.435, 30.174, 0.76)
pt3dadd(99.873, 155.544, 30.174, 0.758)
pt3dadd(99.822, 155.653, 30.174, 0.754)
pt3dadd(99.772, 155.761, 30.174, 0.75)
pt3dadd(99.721, 155.87, 30.174, 0.748)
pt3dadd(99.671, 155.98, 30.174, 0.744)
pt3dadd(99.62, 156.088, 30.174, 0.738)
pt3dadd(99.564, 156.194, 30.174, 0.704)
pt3dadd(99.509, 156.301, 30.174, 0.668)
pt3dadd(99.454, 156.408, 30.174, 0.632)
pt3dadd(99.399, 156.514, 30.174, 0.598)
pt3dadd(99.344, 156.62, 30.174, 0.562)
pt3dadd(99.289, 156.727, 30.174, 0.526)
pt3dadd(99.233, 156.834, 30.174, 0.49)
pt3dadd(99.178, 156.941, 30.174, 0.456)
pt3dadd(99.123, 157.046, 30.174, 0.42)
pt3dadd(99.069, 157.154, 30.174, 0.388)
pt3dadd(99.024, 157.265, 30.174, 0.388)
pt3dadd(98.979, 157.376, 30.174, 0.39)
pt3dadd(98.934, 157.488, 30.174, 0.39)
pt3dadd(98.889, 157.6, 30.174, 0.39)
pt3dadd(98.844, 157.71, 30.174, 0.39)
pt3dadd(98.799, 157.822, 30.174, 0.39)
pt3dadd(98.754, 157.933, 30.174, 0.39)
pt3dadd(98.709, 158.044, 30.174, 0.39)
pt3dadd(98.664, 158.155, 30.174, 0.39)
pt3dadd(98.618, 158.266, 30.174, 0.396)
pt3dadd(98.567, 158.375, 30.174, 0.44)
pt3dadd(98.516, 158.483, 30.174, 0.482)
pt3dadd(98.465, 158.592, 30.174, 0.526)
pt3dadd(98.414, 158.7, 30.174, 0.57)
pt3dadd(98.363, 158.809, 30.174, 0.612)
pt3dadd(98.311, 158.917, 30.174, 0.656)
pt3dadd(98.26, 159.026, 30.174, 0.7)
pt3dadd(98.209, 159.134, 30.174, 0.742)
pt3dadd(98.158, 159.244, 30.174, 0.786)
pt3dadd(98.111, 159.353, 30.174, 0.816)
pt3dadd(98.083, 159.47, 30.174, 0.784)
pt3dadd(98.054, 159.587, 30.174, 0.75)
pt3dadd(98.026, 159.703, 30.174, 0.718)
pt3dadd(97.998, 159.82, 30.174, 0.686)
pt3dadd(97.97, 159.936, 30.174, 0.654)
pt3dadd(97.941, 160.052, 30.174, 0.62)
pt3dadd(97.913, 160.17, 30.174, 0.588)
pt3dadd(97.885, 160.286, 30.174, 0.556)
pt3dadd(97.857, 160.403, 30.174, 0.522)
pt3dadd(97.831, 160.52, 30.174, 0.496)
pt3dadd(97.815, 160.639, 30.174, 0.506)
pt3dadd(97.799, 160.758, 30.174, 0.514)
pt3dadd(97.784, 160.877, 30.174, 0.522)
pt3dadd(97.768, 160.996, 30.174, 0.53)
pt3dadd(97.752, 161.114, 30.174, 0.538)
pt3dadd(97.736, 161.233, 30.174, 0.546)
pt3dadd(97.721, 161.353, 30.174, 0.554)
pt3dadd(97.705, 161.472, 30.174, 0.562)
pt3dadd(97.689, 161.591, 30.174, 0.57)
pt3dadd(97.674, 161.71, 30.174, 0.572)
pt3dadd(97.662, 161.83, 30.174, 0.55)
pt3dadd(97.65, 161.948, 30.174, 0.526)
pt3dadd(97.638, 162.068, 30.174, 0.502)
pt3dadd(97.626, 162.187, 30.174, 0.48)
pt3dadd(97.614, 162.307, 30.174, 0.456)
pt3dadd(97.602, 162.426, 30.174, 0.432)
pt3dadd(97.59, 162.546, 30.174, 0.408)
pt3dadd(97.578, 162.665, 30.174, 0.386)
pt3dadd(97.566, 162.785, 30.174, 0.362)
pt3dadd(97.551, 162.904, 30.174, 0.346)
pt3dadd(97.524, 163.02, 30.174, 0.368)
pt3dadd(97.497, 163.136, 30.174, 0.39)
pt3dadd(97.47, 163.254, 30.174, 0.412)
pt3dadd(97.443, 163.37, 30.174, 0.434)
pt3dadd(97.416, 163.488, 30.174, 0.456)
pt3dadd(97.389, 163.604, 30.174, 0.478)
pt3dadd(97.362, 163.722, 30.174, 0.5)
pt3dadd(97.335, 163.838, 30.174, 0.522)
pt3dadd(97.308, 163.955, 30.174, 0.542)
pt3dadd(97.275, 164.07, 30.174, 0.552)
pt3dadd(97.225, 164.179, 30.174, 0.522)
pt3dadd(97.176, 164.29, 30.174, 0.494)
pt3dadd(97.127, 164.399, 30.174, 0.466)
pt3dadd(97.078, 164.508, 30.174, 0.438)
pt3dadd(97.029, 164.617, 30.174, 0.408)
pt3dadd(96.98, 164.728, 30.174, 0.38)
pt3dadd(96.931, 164.837, 30.174, 0.352)
pt3dadd(96.881, 164.946, 30.174, 0.324)
pt3dadd(96.832, 165.055, 30.174, 0.294)
pt3dadd(96.785, 165.166, 30.174, 0.28)
pt3dadd(96.74, 165.277, 30.174, 0.302)
pt3dadd(96.696, 165.389, 30.175, 0.324)
pt3dadd(96.652, 165.5, 30.175, 0.346)
pt3dadd(96.608, 165.612, 30.175, 0.368)
pt3dadd(96.564, 165.724, 30.175, 0.39)
pt3dadd(96.52, 165.835, 30.175, 0.412)
pt3dadd(96.476, 165.947, 30.175, 0.434)
pt3dadd(96.432, 166.058, 30.175, 0.456)
pt3dadd(96.388, 166.17, 30.175, 0.478)
pt3dadd(96.341, 166.28, 30.175, 0.498)
pt3dadd(96.288, 166.388, 30.175, 0.52)
pt3dadd(96.236, 166.496, 30.175, 0.542)
pt3dadd(96.183, 166.604, 30.175, 0.562)
pt3dadd(96.131, 166.712, 30.175, 0.584)
pt3dadd(96.078, 166.82, 30.175, 0.604)
pt3dadd(96.026, 166.927, 30.175, 0.626)
pt3dadd(95.973, 167.035, 30.175, 0.646)
pt3dadd(95.92, 167.143, 30.175, 0.668)
pt3dadd(95.868, 167.251, 30.176, 0.69)
pt3dadd(95.823, 167.362, 30.176, 0.71)
pt3dadd(95.794, 167.478, 30.176, 0.73)
pt3dadd(95.765, 167.594, 30.176, 0.75)
pt3dadd(95.736, 167.711, 30.176, 0.77)
pt3dadd(95.707, 167.827, 30.176, 0.79)
pt3dadd(95.678, 167.944, 30.176, 0.81)
pt3dadd(95.649, 168.06, 30.176, 0.83)
pt3dadd(95.62, 168.176, 30.177, 0.85)
pt3dadd(95.591, 168.293, 30.177, 0.87)
pt3dadd(95.562, 168.41, 30.177, 0.89)
pt3dadd(95.537, 168.527, 30.177, 0.9)
pt3dadd(95.521, 168.646, 30.177, 0.89)
pt3dadd(95.505, 168.764, 30.178, 0.878)
pt3dadd(95.489, 168.884, 30.178, 0.868)
pt3dadd(95.473, 169.003, 30.179, 0.858)
pt3dadd(95.457, 169.122, 30.179, 0.846)
pt3dadd(95.442, 169.241, 30.179, 0.836)
pt3dadd(95.426, 169.36, 30.18, 0.826)
pt3dadd(95.41, 169.478, 30.18, 0.814)
pt3dadd(95.394, 169.597, 30.18, 0.804)
pt3dadd(95.38, 169.717, 30.181, 0.782)
pt3dadd(95.369, 169.836, 30.181, 0.74)
pt3dadd(95.358, 169.956, 30.182, 0.696)
pt3dadd(95.347, 170.075, 30.183, 0.652)
pt3dadd(95.337, 170.195, 30.184, 0.61)
pt3dadd(95.326, 170.315, 30.185, 0.566)
pt3dadd(95.315, 170.434, 30.186, 0.522)
pt3dadd(95.304, 170.554, 30.186, 0.48)
pt3dadd(95.294, 170.672, 30.187, 0.436)
pt3dadd(95.283, 170.792, 30.188, 0.392)
pt3dadd(95.268, 170.911, 30.189, 0.38)
pt3dadd(95.243, 171.029, 30.191, 0.428)
pt3dadd(95.219, 171.146, 30.192, 0.478)
pt3dadd(95.195, 171.264, 30.194, 0.528)
pt3dadd(95.171, 171.382, 30.196, 0.576)
pt3dadd(95.146, 171.499, 30.198, 0.626)
pt3dadd(95.122, 171.616, 30.199, 0.674)
pt3dadd(95.098, 171.733, 30.201, 0.724)
pt3dadd(95.074, 171.851, 30.203, 0.772)
pt3dadd(95.049, 171.968, 30.205, 0.822)
}
}
proc shape3d_109() {
dend_7[9] { pt3dadd(95.016, 172.084, 30.207, 0.84)
pt3dadd(94.968, 172.194, 30.211, 0.812)
pt3dadd(94.921, 172.303, 30.214, 0.786)
pt3dadd(94.874, 172.414, 30.218, 0.758)
pt3dadd(94.826, 172.524, 30.222, 0.73)
pt3dadd(94.779, 172.634, 30.225, 0.702)
pt3dadd(94.731, 172.744, 30.229, 0.676)
pt3dadd(94.684, 172.854, 30.233, 0.648)
pt3dadd(94.637, 172.964, 30.236, 0.62)
pt3dadd(94.589, 173.075, 30.24, 0.592)
pt3dadd(94.545, 173.186, 30.245, 0.564)
pt3dadd(94.506, 173.299, 30.254, 0.536)
pt3dadd(94.467, 173.412, 30.262, 0.508)
pt3dadd(94.429, 173.525, 30.271, 0.48)
pt3dadd(94.39, 173.638, 30.28, 0.452)
pt3dadd(94.351, 173.752, 30.288, 0.422)
pt3dadd(94.312, 173.864, 30.296, 0.394)
pt3dadd(94.273, 173.977, 30.305, 0.366)
pt3dadd(94.234, 174.09, 30.314, 0.338)
pt3dadd(94.195, 174.204, 30.322, 0.308)
pt3dadd(94.153, 174.313, 30.338, 0.298)
pt3dadd(94.105, 174.419, 30.363, 0.316)
pt3dadd(94.057, 174.524, 30.389, 0.332)
pt3dadd(94.009, 174.63, 30.415, 0.348)
pt3dadd(93.962, 174.737, 30.44, 0.364)
pt3dadd(93.914, 174.842, 30.466, 0.382)
pt3dadd(93.866, 174.948, 30.492, 0.398)
pt3dadd(93.818, 175.054, 30.517, 0.414)
pt3dadd(93.77, 175.159, 30.543, 0.43)
pt3dadd(93.723, 175.265, 30.569, 0.448)
pt3dadd(93.666, 175.362, 30.602, 0.442)
pt3dadd(93.605, 175.456, 30.639, 0.428)
pt3dadd(93.544, 175.549, 30.675, 0.414)
pt3dadd(93.484, 175.643, 30.712, 0.4)
pt3dadd(93.423, 175.736, 30.749, 0.384)
pt3dadd(93.362, 175.83, 30.785, 0.37)
pt3dadd(93.301, 175.924, 30.822, 0.356)
pt3dadd(93.241, 176.017, 30.859, 0.342)
pt3dadd(93.18, 176.112, 30.895, 0.328)
pt3dadd(93.119, 176.206, 30.932, 0.314)
pt3dadd(93.057, 176.304, 30.952, 0.304)
pt3dadd(92.994, 176.405, 30.968, 0.296)
pt3dadd(92.931, 176.506, 30.984, 0.288)
pt3dadd(92.869, 176.605, 31, 0.278)
pt3dadd(92.806, 176.706, 31.016, 0.27)
pt3dadd(92.743, 176.807, 31.032, 0.262)
pt3dadd(92.68, 176.906, 31.048, 0.252)
pt3dadd(92.617, 177.007, 31.064, 0.244)
pt3dadd(92.555, 177.108, 31.08, 0.236)
pt3dadd(92.492, 177.209, 31.096, 0.228)
pt3dadd(92.438, 177.316, 31.102, 0.238)
pt3dadd(92.386, 177.422, 31.105, 0.252)
pt3dadd(92.333, 177.53, 31.109, 0.266)
pt3dadd(92.281, 177.638, 31.113, 0.28)
pt3dadd(92.229, 177.746, 31.116, 0.294)
pt3dadd(92.176, 177.854, 31.12, 0.31)
pt3dadd(92.124, 177.962, 31.124, 0.324)
pt3dadd(92.072, 178.07, 31.127, 0.338)
pt3dadd(92.019, 178.178, 31.131, 0.352)
pt3dadd(91.967, 178.286, 31.135, 0.366)
pt3dadd(91.913, 178.393, 31.135, 0.376)
pt3dadd(91.858, 178.5, 31.135, 0.384)
pt3dadd(91.804, 178.607, 31.135, 0.392)
pt3dadd(91.75, 178.714, 31.135, 0.4)
pt3dadd(91.695, 178.822, 31.135, 0.41)
pt3dadd(91.641, 178.928, 31.135, 0.418)
pt3dadd(91.587, 179.035, 31.135, 0.426)
pt3dadd(91.532, 179.142, 31.135, 0.434)
pt3dadd(91.478, 179.249, 31.135, 0.442)
pt3dadd(91.424, 179.356, 31.135, 0.452)
pt3dadd(91.372, 179.465, 31.135, 0.452)
pt3dadd(91.32, 179.573, 31.135, 0.452)
pt3dadd(91.269, 179.681, 31.135, 0.452)
pt3dadd(91.218, 179.79, 31.135, 0.452)
pt3dadd(91.166, 179.898, 31.135, 0.452)
pt3dadd(91.115, 180.006, 31.135, 0.452)
pt3dadd(91.063, 180.115, 31.134, 0.452)
pt3dadd(91.012, 180.223, 31.134, 0.452)
pt3dadd(90.96, 180.331, 31.134, 0.452)
pt3dadd(90.909, 180.44, 31.134, 0.452)
pt3dadd(90.86, 180.55, 31.134, 0.452)
pt3dadd(90.812, 180.66, 31.134, 0.452)
pt3dadd(90.763, 180.769, 31.134, 0.452)
pt3dadd(90.714, 180.878, 31.134, 0.452)
pt3dadd(90.666, 180.989, 31.134, 0.452)
pt3dadd(90.617, 181.098, 31.134, 0.452)
pt3dadd(90.568, 181.208, 31.134, 0.452)
pt3dadd(90.519, 181.318, 31.134, 0.452)
pt3dadd(90.471, 181.427, 31.133, 0.452)
pt3dadd(90.422, 181.537, 31.133, 0.452)
pt3dadd(90.375, 181.648, 31.133, 0.452)
pt3dadd(90.328, 181.758, 31.133, 0.452)
pt3dadd(90.28, 181.867, 31.133, 0.452)
pt3dadd(90.233, 181.978, 31.133, 0.452)
pt3dadd(90.186, 182.088, 31.133, 0.452)
pt3dadd(90.138, 182.198, 31.132, 0.452)
pt3dadd(90.091, 182.309, 31.132, 0.452)
pt3dadd(90.044, 182.419, 31.132, 0.452)
pt3dadd(89.997, 182.53, 31.132, 0.452)
pt3dadd(89.95, 182.64, 31.132, 0.452)
pt3dadd(89.922, 182.756, 31.131, 0.442)
pt3dadd(89.892, 182.873, 31.131, 0.434)
pt3dadd(89.864, 182.989, 31.13, 0.424)
pt3dadd(89.835, 183.106, 31.13, 0.414)
pt3dadd(89.806, 183.222, 31.13, 0.406)
pt3dadd(89.777, 183.338, 31.129, 0.396)
pt3dadd(89.748, 183.456, 31.129, 0.388)
pt3dadd(89.719, 183.572, 31.128, 0.378)
pt3dadd(89.69, 183.689, 31.128, 0.37)
pt3dadd(89.662, 183.805, 31.127, 0.36)
pt3dadd(89.641, 183.923, 31.126, 0.346)
pt3dadd(89.62, 184.042, 31.125, 0.332)
pt3dadd(89.599, 184.159, 31.125, 0.32)
pt3dadd(89.579, 184.278, 31.123, 0.306)
pt3dadd(89.558, 184.396, 31.123, 0.292)
pt3dadd(89.537, 184.514, 31.122, 0.278)
pt3dadd(89.516, 184.632, 31.121, 0.266)
pt3dadd(89.496, 184.751, 31.12, 0.252)
pt3dadd(89.475, 184.868, 31.119, 0.238)
pt3dadd(89.453, 184.986, 31.118, 0.226)
pt3dadd(89.419, 185.101, 31.116, 0.236)
pt3dadd(89.385, 185.216, 31.114, 0.248)
pt3dadd(89.351, 185.332, 31.112, 0.258)
pt3dadd(89.317, 185.447, 31.11, 0.268)
pt3dadd(89.283, 185.562, 31.108, 0.278)
pt3dadd(89.249, 185.677, 31.106, 0.288)
pt3dadd(89.215, 185.792, 31.104, 0.298)
pt3dadd(89.181, 185.906, 31.102, 0.308)
pt3dadd(89.147, 186.022, 31.099, 0.318)
pt3dadd(89.11, 186.136, 31.097, 0.332)
pt3dadd(89.061, 186.246, 31.092, 0.366)
pt3dadd(89.013, 186.355, 31.088, 0.398)
pt3dadd(88.964, 186.464, 31.083, 0.43)
pt3dadd(88.916, 186.575, 31.079, 0.464)
pt3dadd(88.867, 186.684, 31.074, 0.496)
pt3dadd(88.818, 186.793, 31.07, 0.528)
pt3dadd(88.77, 186.904, 31.066, 0.56)
pt3dadd(88.721, 187.013, 31.061, 0.594)
pt3dadd(88.673, 187.122, 31.056, 0.626)
pt3dadd(88.623, 187.231, 31.051, 0.658)
pt3dadd(88.572, 187.339, 31.042, 0.694)
pt3dadd(88.521, 187.447, 31.033, 0.73)
pt3dadd(88.47, 187.555, 31.024, 0.766)
pt3dadd(88.419, 187.663, 31.015, 0.802)
pt3dadd(88.367, 187.771, 31.006, 0.838)
pt3dadd(88.316, 187.879, 30.997, 0.874)
pt3dadd(88.265, 187.987, 30.988, 0.91)
pt3dadd(88.214, 188.095, 30.979, 0.946)
pt3dadd(88.162, 188.203, 30.97, 0.982)
pt3dadd(88.111, 188.31, 30.955, 1.006)
pt3dadd(88.06, 188.411, 30.924, 0.988)
pt3dadd(88.009, 188.513, 30.892, 0.97)
pt3dadd(87.958, 188.615, 30.86, 0.952)
pt3dadd(87.906, 188.716, 30.828, 0.934)
pt3dadd(87.855, 188.818, 30.796, 0.916)
pt3dadd(87.804, 188.92, 30.765, 0.898)
pt3dadd(87.753, 189.02, 30.733, 0.88)
pt3dadd(87.702, 189.122, 30.701, 0.864)
pt3dadd(87.651, 189.224, 30.669, 0.846)
pt3dadd(87.613, 189.33, 30.635, 0.818)
pt3dadd(87.591, 189.439, 30.598, 0.78)
pt3dadd(87.568, 189.548, 30.561, 0.742)
pt3dadd(87.546, 189.658, 30.525, 0.704)
pt3dadd(87.523, 189.767, 30.488, 0.666)
pt3dadd(87.5, 189.876, 30.451, 0.628)
pt3dadd(87.478, 189.985, 30.414, 0.59)
pt3dadd(87.455, 190.094, 30.378, 0.552)
pt3dadd(87.433, 190.204, 30.341, 0.514)
pt3dadd(87.41, 190.313, 30.304, 0.476)
pt3dadd(87.401, 190.428, 30.282, 0.446)
pt3dadd(87.4, 190.548, 30.271, 0.422)
pt3dadd(87.4, 190.667, 30.259, 0.398)
pt3dadd(87.399, 190.786, 30.248, 0.376)
pt3dadd(87.399, 190.906, 30.236, 0.352)
pt3dadd(87.399, 191.024, 30.225, 0.328)
pt3dadd(87.398, 191.143, 30.213, 0.306)
pt3dadd(87.398, 191.263, 30.202, 0.282)
pt3dadd(87.397, 191.382, 30.19, 0.258)
pt3dadd(87.397, 191.501, 30.179, 0.236)
pt3dadd(87.397, 191.621, 30.174, 0.226)
pt3dadd(87.397, 191.741, 30.174, 0.226)
pt3dadd(87.397, 191.861, 30.174, 0.226)
pt3dadd(87.397, 191.981, 30.174, 0.226)
pt3dadd(87.397, 192.101, 30.174, 0.226)
pt3dadd(87.397, 192.221, 30.174, 0.226)
pt3dadd(87.397, 192.341, 30.174, 0.226)
pt3dadd(87.397, 192.461, 30.174, 0.226)
pt3dadd(87.397, 192.581, 30.174, 0.226)
pt3dadd(87.397, 192.701, 30.174, 0.226)
pt3dadd(87.397, 192.821, 30.174, 0.226)
pt3dadd(87.397, 192.941, 30.174, 0.226)
pt3dadd(87.397, 193.061, 30.174, 0.226)
pt3dadd(87.397, 193.181, 30.174, 0.226)
pt3dadd(87.397, 193.301, 30.174, 0.226)
pt3dadd(87.397, 193.421, 30.174, 0.226)
pt3dadd(87.397, 193.541, 30.174, 0.226)
pt3dadd(87.397, 193.661, 30.174, 0.226)
pt3dadd(87.397, 193.781, 30.174, 0.226)
pt3dadd(87.397, 193.901, 30.174, 0.226)
pt3dadd(87.397, 194.021, 30.174, 0.232)
}
}
proc shape3d_110() {
dend_7[9] { pt3dadd(87.397, 194.141, 30.174, 0.244)
pt3dadd(87.397, 194.261, 30.174, 0.254)
pt3dadd(87.397, 194.381, 30.174, 0.266)
pt3dadd(87.398, 194.501, 30.174, 0.276)
pt3dadd(87.398, 194.621, 30.174, 0.286)
pt3dadd(87.398, 194.741, 30.174, 0.298)
pt3dadd(87.398, 194.861, 30.174, 0.308)
pt3dadd(87.398, 194.981, 30.174, 0.32)
pt3dadd(87.398, 195.101, 30.174, 0.33)
pt3dadd(87.398, 195.221, 30.174, 0.356)
pt3dadd(87.398, 195.341, 30.174, 0.39)
pt3dadd(87.399, 195.461, 30.174, 0.424)
pt3dadd(87.399, 195.581, 30.174, 0.458)
pt3dadd(87.399, 195.701, 30.174, 0.492)
pt3dadd(87.399, 195.821, 30.174, 0.526)
pt3dadd(87.399, 195.941, 30.174, 0.562)
pt3dadd(87.399, 196.061, 30.174, 0.596)
pt3dadd(87.4, 196.181, 30.174, 0.63)
pt3dadd(87.4, 196.301, 30.174, 0.664)
pt3dadd(87.4, 196.421, 30.174, 0.674)
pt3dadd(87.401, 196.541, 30.174, 0.666)
pt3dadd(87.401, 196.661, 30.174, 0.66)
pt3dadd(87.401, 196.781, 30.174, 0.652)
pt3dadd(87.402, 196.901, 30.174, 0.644)
pt3dadd(87.402, 197.021, 30.174, 0.638)
pt3dadd(87.403, 197.141, 30.174, 0.63)
pt3dadd(87.403, 197.261, 30.174, 0.622)
pt3dadd(87.403, 197.381, 30.174, 0.616)
pt3dadd(87.404, 197.501, 30.174, 0.608)
pt3dadd(87.405, 197.621, 30.174, 0.59)
pt3dadd(87.405, 197.741, 30.174, 0.568)
pt3dadd(87.406, 197.861, 30.174, 0.544)
pt3dadd(87.407, 197.981, 30.174, 0.52)
pt3dadd(87.408, 198.101, 30.174, 0.496)
pt3dadd(87.409, 198.221, 30.174, 0.474)
pt3dadd(87.41, 198.341, 30.174, 0.45)
pt3dadd(87.411, 198.461, 30.174, 0.426)
pt3dadd(87.412, 198.581, 30.174, 0.402)
pt3dadd(87.413, 198.701, 30.174, 0.38)
pt3dadd(87.414, 198.821, 30.174, 0.366)
pt3dadd(87.416, 198.941, 30.174, 0.362)
pt3dadd(87.418, 199.061, 30.174, 0.356)
pt3dadd(87.421, 199.181, 30.174, 0.352)
pt3dadd(87.423, 199.301, 30.174, 0.346)
pt3dadd(87.425, 199.421, 30.174, 0.34)
pt3dadd(87.427, 199.541, 30.174, 0.336)
pt3dadd(87.429, 199.661, 30.174, 0.33)
pt3dadd(87.431, 199.781, 30.174, 0.326)
pt3dadd(87.433, 199.901, 30.174, 0.32)
pt3dadd(87.436, 200.021, 30.174, 0.32)
pt3dadd(87.441, 200.141, 30.174, 0.322)
pt3dadd(87.446, 200.261, 30.174, 0.326)
pt3dadd(87.45, 200.381, 30.174, 0.33)
pt3dadd(87.455, 200.5, 30.174, 0.332)
pt3dadd(87.459, 200.62, 30.174, 0.336)
pt3dadd(87.464, 200.74, 30.174, 0.338)
pt3dadd(87.468, 200.86, 30.173, 0.342)
pt3dadd(87.473, 200.98, 30.173, 0.346)
pt3dadd(87.477, 201.1, 30.173, 0.348)
pt3dadd(87.486, 201.22, 30.173, 0.356)
pt3dadd(87.496, 201.338, 30.173, 0.366)
pt3dadd(87.507, 201.458, 30.173, 0.376)
pt3dadd(87.517, 201.578, 30.173, 0.386)
pt3dadd(87.528, 201.697, 30.173, 0.398)
pt3dadd(87.538, 201.817, 30.173, 0.408)
pt3dadd(87.549, 201.937, 30.173, 0.418)
pt3dadd(87.559, 202.056, 30.173, 0.428)
pt3dadd(87.57, 202.176, 30.173, 0.438)
pt3dadd(87.58, 202.295, 30.172, 0.448)
pt3dadd(87.598, 202.414, 30.172, 0.482)
pt3dadd(87.62, 202.531, 30.172, 0.53)
pt3dadd(87.642, 202.65, 30.172, 0.576)
pt3dadd(87.665, 202.768, 30.172, 0.624)
pt3dadd(87.687, 202.885, 30.171, 0.672)
pt3dadd(87.709, 203.004, 30.171, 0.72)
pt3dadd(87.731, 203.122, 30.171, 0.766)
pt3dadd(87.753, 203.239, 30.171, 0.814)
pt3dadd(87.775, 203.357, 30.171, 0.862)
pt3dadd(87.798, 203.476, 30.17, 0.908)
pt3dadd(87.839, 203.587, 30.17, 0.932)
pt3dadd(87.891, 203.695, 30.17, 0.94)
pt3dadd(87.943, 203.803, 30.169, 0.948)
pt3dadd(87.995, 203.911, 30.169, 0.958)
pt3dadd(88.047, 204.019, 30.168, 0.966)
pt3dadd(88.099, 204.127, 30.168, 0.974)
pt3dadd(88.151, 204.235, 30.167, 0.982)
pt3dadd(88.203, 204.343, 30.167, 0.99)
pt3dadd(88.255, 204.452, 30.166, 1)
pt3dadd(88.307, 204.56, 30.166, 1.008)
pt3dadd(88.379, 204.655, 30.165, 0.994)
pt3dadd(88.456, 204.746, 30.164, 0.974)
pt3dadd(88.534, 204.839, 30.164, 0.954)
pt3dadd(88.611, 204.93, 30.163, 0.932)
pt3dadd(88.688, 205.022, 30.162, 0.912)
pt3dadd(88.766, 205.114, 30.161, 0.892)
pt3dadd(88.843, 205.206, 30.16, 0.872)
pt3dadd(88.92, 205.297, 30.159, 0.852)
pt3dadd(88.998, 205.39, 30.158, 0.832)
pt3dadd(89.075, 205.481, 30.158, 0.81)
pt3dadd(89.165, 205.56, 30.156, 0.808)
pt3dadd(89.258, 205.636, 30.155, 0.81)
pt3dadd(89.351, 205.712, 30.153, 0.81)
pt3dadd(89.443, 205.788, 30.151, 0.812)
pt3dadd(89.536, 205.865, 30.15, 0.812)
pt3dadd(89.629, 205.94, 30.148, 0.814)
pt3dadd(89.722, 206.016, 30.146, 0.816)
pt3dadd(89.814, 206.093, 30.145, 0.816)
pt3dadd(89.907, 206.168, 30.143, 0.818)
pt3dadd(90, 206.245, 30.142, 0.818)
pt3dadd(90.102, 206.308, 30.138, 0.842)
pt3dadd(90.206, 206.368, 30.135, 0.868)
pt3dadd(90.309, 206.429, 30.131, 0.892)
pt3dadd(90.412, 206.49, 30.128, 0.918)
pt3dadd(90.516, 206.551, 30.124, 0.944)
pt3dadd(90.619, 206.611, 30.12, 0.968)
pt3dadd(90.722, 206.672, 30.117, 0.994)
pt3dadd(90.825, 206.734, 30.113, 1.02)
pt3dadd(90.929, 206.795, 30.11, 1.044)
pt3dadd(91.032, 206.855, 30.106, 1.07)
pt3dadd(91.131, 206.922, 30.099, 1.056)
pt3dadd(91.231, 206.989, 30.092, 1.04)
pt3dadd(91.33, 207.056, 30.084, 1.022)
pt3dadd(91.429, 207.122, 30.077, 1.006)
pt3dadd(91.528, 207.19, 30.07, 0.988)
pt3dadd(91.627, 207.257, 30.063, 0.972)
pt3dadd(91.726, 207.324, 30.055, 0.956)
pt3dadd(91.826, 207.391, 30.048, 0.938)
pt3dadd(91.925, 207.458, 30.041, 0.922)
pt3dadd(92.024, 207.526, 30.033, 0.904)
pt3dadd(92.118, 207.595, 30.014, 0.892)
pt3dadd(92.212, 207.666, 29.994, 0.878)
pt3dadd(92.306, 207.737, 29.974, 0.864)
pt3dadd(92.4, 207.808, 29.955, 0.852)
pt3dadd(92.494, 207.878, 29.935, 0.838)
pt3dadd(92.588, 207.949, 29.915, 0.826)
pt3dadd(92.682, 208.02, 29.895, 0.812)
pt3dadd(92.776, 208.091, 29.875, 0.798)
pt3dadd(92.87, 208.162, 29.855, 0.786)
pt3dadd(92.957, 208.237, 29.832, 0.772)
pt3dadd(93.018, 208.332, 29.798, 0.762)
pt3dadd(93.078, 208.427, 29.764, 0.75)
pt3dadd(93.139, 208.522, 29.73, 0.74)
pt3dadd(93.2, 208.616, 29.695, 0.73)
pt3dadd(93.261, 208.712, 29.661, 0.718)
pt3dadd(93.322, 208.807, 29.627, 0.708)
pt3dadd(93.383, 208.902, 29.593, 0.696)
pt3dadd(93.444, 208.997, 29.558, 0.686)
pt3dadd(93.505, 209.092, 29.524, 0.674)
pt3dadd(93.564, 209.189, 29.494, 0.676)
pt3dadd(93.618, 209.294, 29.477, 0.708)
pt3dadd(93.672, 209.399, 29.459, 0.742)
pt3dadd(93.727, 209.503, 29.441, 0.776)
pt3dadd(93.781, 209.609, 29.424, 0.808)
pt3dadd(93.835, 209.713, 29.406, 0.842)
pt3dadd(93.89, 209.819, 29.388, 0.876)
pt3dadd(93.944, 209.923, 29.371, 0.908)
pt3dadd(93.998, 210.028, 29.353, 0.942)
pt3dadd(94.052, 210.133, 29.335, 0.976)
pt3dadd(94.101, 210.241, 29.323, 0.988)
pt3dadd(94.138, 210.355, 29.319, 0.962)
pt3dadd(94.175, 210.469, 29.316, 0.936)
pt3dadd(94.212, 210.583, 29.312, 0.912)
pt3dadd(94.249, 210.697, 29.309, 0.886)
pt3dadd(94.287, 210.811, 29.305, 0.86)
pt3dadd(94.324, 210.925, 29.302, 0.834)
pt3dadd(94.361, 211.039, 29.298, 0.808)
pt3dadd(94.398, 211.153, 29.295, 0.782)
pt3dadd(94.435, 211.267, 29.292, 0.756)
pt3dadd(94.47, 211.382, 29.293, 0.75)
pt3dadd(94.5, 211.498, 29.301, 0.772)
pt3dadd(94.53, 211.614, 29.31, 0.796)
pt3dadd(94.56, 211.729, 29.318, 0.818)
pt3dadd(94.59, 211.844, 29.327, 0.84)
pt3dadd(94.62, 211.961, 29.335, 0.864)
pt3dadd(94.65, 212.076, 29.344, 0.886)
pt3dadd(94.68, 212.192, 29.352, 0.908)
pt3dadd(94.709, 212.308, 29.361, 0.932)
pt3dadd(94.739, 212.424, 29.369, 0.954)
pt3dadd(94.741, 212.54, 29.385, 0.958)
pt3dadd(94.725, 212.657, 29.405, 0.95)
pt3dadd(94.71, 212.773, 29.425, 0.944)
pt3dadd(94.695, 212.89, 29.444, 0.936)
pt3dadd(94.68, 213.006, 29.464, 0.928)
pt3dadd(94.665, 213.124, 29.484, 0.922)
pt3dadd(94.65, 213.24, 29.504, 0.914)
pt3dadd(94.634, 213.356, 29.524, 0.906)
pt3dadd(94.619, 213.473, 29.544, 0.9)
pt3dadd(94.604, 213.589, 29.564, 0.892)
pt3dadd(94.593, 213.702, 29.595, 0.85)
pt3dadd(94.583, 213.814, 29.632, 0.794)
pt3dadd(94.573, 213.925, 29.668, 0.738)
pt3dadd(94.563, 214.037, 29.704, 0.682)
pt3dadd(94.553, 214.148, 29.74, 0.626)
pt3dadd(94.543, 214.26, 29.777, 0.57)
pt3dadd(94.533, 214.37, 29.813, 0.514)
pt3dadd(94.523, 214.482, 29.849, 0.46)
pt3dadd(94.513, 214.594, 29.885, 0.404)
pt3dadd(94.503, 214.705, 29.922, 0.348)
pt3dadd(94.5, 214.819, 29.951, 0.358)
pt3dadd(94.501, 214.936, 29.977, 0.392)
}
}
proc shape3d_111() {
dend_7[9] { pt3dadd(94.501, 215.051, 30.003, 0.426)
pt3dadd(94.501, 215.167, 30.03, 0.462)
pt3dadd(94.502, 215.282, 30.056, 0.496)
pt3dadd(94.502, 215.399, 30.082, 0.53)
pt3dadd(94.502, 215.514, 30.109, 0.566)
pt3dadd(94.503, 215.63, 30.135, 0.6)
pt3dadd(94.503, 215.746, 30.161, 0.634)
pt3dadd(94.503, 215.862, 30.188, 0.67)
pt3dadd(94.521, 215.977, 30.209, 0.678)
pt3dadd(94.545, 216.092, 30.229, 0.678)
pt3dadd(94.569, 216.208, 30.249, 0.678)
pt3dadd(94.593, 216.323, 30.268, 0.678)
pt3dadd(94.616, 216.438, 30.288, 0.678)
pt3dadd(94.64, 216.553, 30.308, 0.678)
pt3dadd(94.664, 216.668, 30.328, 0.678)
pt3dadd(94.688, 216.784, 30.347, 0.678)
pt3dadd(94.711, 216.899, 30.367, 0.678)
pt3dadd(94.735, 217.014, 30.387, 0.678)
pt3dadd(94.776, 217.122, 30.411, 0.67)
pt3dadd(94.819, 217.23, 30.436, 0.66)
pt3dadd(94.863, 217.338, 30.461, 0.648)
pt3dadd(94.907, 217.445, 30.486, 0.638)
pt3dadd(94.951, 217.553, 30.511, 0.628)
pt3dadd(94.995, 217.661, 30.537, 0.618)
pt3dadd(95.038, 217.768, 30.562, 0.608)
pt3dadd(95.082, 217.876, 30.587, 0.598)
pt3dadd(95.126, 217.984, 30.612, 0.588)
pt3dadd(95.17, 218.09, 30.637, 0.578)
pt3dadd(95.199, 218.19, 30.687, 0.542)
pt3dadd(95.229, 218.29, 30.737, 0.506)
pt3dadd(95.259, 218.39, 30.787, 0.472)
pt3dadd(95.289, 218.49, 30.836, 0.436)
pt3dadd(95.319, 218.59, 30.886, 0.402)
pt3dadd(95.349, 218.689, 30.936, 0.366)
pt3dadd(95.379, 218.789, 30.986, 0.332)
pt3dadd(95.409, 218.888, 31.036, 0.296)
pt3dadd(95.439, 218.988, 31.085, 0.262)
pt3dadd(95.468, 219.088, 31.135, 0.226)
}
dend_7[10] {pt3dclear()
pt3dadd(109.145, 119.856, 21.817, 0.452)
pt3dadd(109.149, 119.856, 21.819, 0.454)
pt3dadd(109.251, 119.861, 21.871, 0.488)
pt3dadd(109.353, 119.866, 21.923, 0.524)
pt3dadd(109.456, 119.871, 21.975, 0.558)
pt3dadd(109.557, 119.878, 22.028, 0.594)
pt3dadd(109.657, 119.891, 22.083, 0.626)
pt3dadd(109.757, 119.905, 22.137, 0.66)
pt3dadd(109.856, 119.919, 22.192, 0.692)
pt3dadd(109.956, 119.932, 22.246, 0.724)
pt3dadd(110.055, 119.946, 22.301, 0.758)
pt3dadd(110.155, 119.96, 22.356, 0.79)
pt3dadd(110.255, 119.973, 22.41, 0.822)
pt3dadd(110.354, 119.987, 22.465, 0.856)
pt3dadd(110.454, 120, 22.519, 0.888)
pt3dadd(110.524, 120.053, 22.576, 0.904)
pt3dadd(110.566, 120.14, 22.634, 0.904)
pt3dadd(110.609, 120.228, 22.693, 0.904)
pt3dadd(110.651, 120.316, 22.751, 0.904)
pt3dadd(110.694, 120.403, 22.809, 0.904)
pt3dadd(110.736, 120.491, 22.868, 0.904)
pt3dadd(110.779, 120.578, 22.926, 0.904)
pt3dadd(110.821, 120.666, 22.984, 0.904)
pt3dadd(110.864, 120.754, 23.043, 0.904)
pt3dadd(110.906, 120.842, 23.101, 0.904)
pt3dadd(110.962, 120.929, 23.15, 0.894)
pt3dadd(111.03, 121.015, 23.189, 0.876)
pt3dadd(111.099, 121.102, 23.229, 0.858)
pt3dadd(111.167, 121.188, 23.268, 0.838)
pt3dadd(111.236, 121.276, 23.307, 0.82)
pt3dadd(111.304, 121.362, 23.347, 0.802)
pt3dadd(111.372, 121.448, 23.386, 0.782)
pt3dadd(111.441, 121.535, 23.426, 0.764)
pt3dadd(111.509, 121.621, 23.465, 0.746)
pt3dadd(111.577, 121.708, 23.504, 0.726)
pt3dadd(111.658, 121.78, 23.546, 0.706)
pt3dadd(111.746, 121.842, 23.59, 0.686)
pt3dadd(111.834, 121.906, 23.633, 0.666)
pt3dadd(111.922, 121.968, 23.676, 0.646)
pt3dadd(112.01, 122.03, 23.72, 0.624)
pt3dadd(112.099, 122.093, 23.763, 0.604)
pt3dadd(112.187, 122.155, 23.806, 0.584)
pt3dadd(112.275, 122.218, 23.85, 0.562)
pt3dadd(112.363, 122.28, 23.893, 0.542)
pt3dadd(112.451, 122.344, 23.937, 0.522)
pt3dadd(112.545, 122.405, 23.971, 0.51)
pt3dadd(112.641, 122.467, 24.001, 0.504)
pt3dadd(112.738, 122.53, 24.03, 0.498)
pt3dadd(112.834, 122.591, 24.06, 0.492)
pt3dadd(112.93, 122.653, 24.09, 0.484)
pt3dadd(113.027, 122.714, 24.12, 0.478)
pt3dadd(113.123, 122.777, 24.149, 0.472)
pt3dadd(113.219, 122.839, 24.179, 0.466)
pt3dadd(113.316, 122.9, 24.209, 0.46)
pt3dadd(113.412, 122.963, 24.239, 0.454)
pt3dadd(113.51, 123.028, 24.261, 0.46)
pt3dadd(113.607, 123.094, 24.279, 0.468)
pt3dadd(113.705, 123.16, 24.298, 0.478)
pt3dadd(113.803, 123.224, 24.317, 0.488)
pt3dadd(113.901, 123.29, 24.336, 0.498)
pt3dadd(113.998, 123.356, 24.354, 0.508)
pt3dadd(114.096, 123.422, 24.373, 0.518)
pt3dadd(114.194, 123.488, 24.392, 0.528)
pt3dadd(114.292, 123.554, 24.411, 0.538)
pt3dadd(114.39, 123.62, 24.43, 0.548)
pt3dadd(114.49, 123.683, 24.445, 0.566)
pt3dadd(114.591, 123.745, 24.458, 0.586)
pt3dadd(114.693, 123.806, 24.472, 0.606)
pt3dadd(114.794, 123.869, 24.486, 0.626)
pt3dadd(114.896, 123.931, 24.5, 0.646)
pt3dadd(114.997, 123.994, 24.514, 0.666)
pt3dadd(115.098, 124.055, 24.528, 0.686)
pt3dadd(115.2, 124.117, 24.541, 0.704)
pt3dadd(115.301, 124.18, 24.555, 0.726)
pt3dadd(115.402, 124.241, 24.569, 0.744)
pt3dadd(115.509, 124.291, 24.586, 0.766)
pt3dadd(115.618, 124.337, 24.605, 0.788)
pt3dadd(115.727, 124.382, 24.624, 0.808)
pt3dadd(115.835, 124.429, 24.642, 0.83)
pt3dadd(115.944, 124.475, 24.661, 0.852)
pt3dadd(116.052, 124.52, 24.679, 0.874)
pt3dadd(116.161, 124.567, 24.698, 0.894)
pt3dadd(116.269, 124.613, 24.717, 0.916)
pt3dadd(116.378, 124.658, 24.735, 0.938)
pt3dadd(116.487, 124.705, 24.754, 0.96)
pt3dadd(116.593, 124.744, 24.786, 0.976)
pt3dadd(116.698, 124.782, 24.821, 0.994)
pt3dadd(116.804, 124.82, 24.856, 1.01)
pt3dadd(116.91, 124.859, 24.891, 1.028)
pt3dadd(117.015, 124.897, 24.926, 1.044)
pt3dadd(117.121, 124.936, 24.961, 1.062)
pt3dadd(117.227, 124.974, 24.996, 1.078)
pt3dadd(117.333, 125.012, 25.031, 1.094)
pt3dadd(117.438, 125.051, 25.066, 1.112)
pt3dadd(117.544, 125.089, 25.101, 1.128)
pt3dadd(117.645, 125.146, 25.125, 1.128)
pt3dadd(117.746, 125.204, 25.149, 1.126)
pt3dadd(117.847, 125.262, 25.172, 1.124)
pt3dadd(117.948, 125.321, 25.196, 1.122)
pt3dadd(118.049, 125.38, 25.219, 1.12)
pt3dadd(118.15, 125.437, 25.243, 1.118)
pt3dadd(118.251, 125.496, 25.266, 1.114)
pt3dadd(118.352, 125.555, 25.29, 1.112)
pt3dadd(118.453, 125.612, 25.313, 1.11)
pt3dadd(118.554, 125.671, 25.337, 1.108)
pt3dadd(118.649, 125.741, 25.354, 1.09)
pt3dadd(118.744, 125.813, 25.37, 1.07)
pt3dadd(118.838, 125.884, 25.386, 1.05)
pt3dadd(118.933, 125.956, 25.402, 1.03)
pt3dadd(119.027, 126.026, 25.418, 1.01)
pt3dadd(119.122, 126.097, 25.435, 0.988)
pt3dadd(119.217, 126.169, 25.451, 0.968)
pt3dadd(119.311, 126.24, 25.467, 0.948)
pt3dadd(119.406, 126.312, 25.483, 0.928)
pt3dadd(119.5, 126.383, 25.499, 0.908)
pt3dadd(119.604, 126.44, 25.514, 0.926)
pt3dadd(119.708, 126.498, 25.529, 0.948)
pt3dadd(119.812, 126.554, 25.545, 0.968)
pt3dadd(119.916, 126.612, 25.559, 0.99)
pt3dadd(120.02, 126.668, 25.575, 1.012)
pt3dadd(120.125, 126.725, 25.59, 1.032)
pt3dadd(120.228, 126.782, 25.605, 1.054)
pt3dadd(120.332, 126.839, 25.62, 1.076)
pt3dadd(120.437, 126.895, 25.635, 1.096)
pt3dadd(120.541, 126.953, 25.65, 1.118)
pt3dadd(120.629, 127.009, 25.698, 1.078)
pt3dadd(120.715, 127.066, 25.749, 1.034)
pt3dadd(120.802, 127.123, 25.799, 0.988)
pt3dadd(120.888, 127.18, 25.85, 0.944)
pt3dadd(120.974, 127.236, 25.9, 0.9)
pt3dadd(121.062, 127.292, 25.951, 0.856)
pt3dadd(121.148, 127.35, 26.001, 0.812)
pt3dadd(121.235, 127.406, 26.052, 0.768)
pt3dadd(121.321, 127.463, 26.102, 0.724)
pt3dadd(121.408, 127.52, 26.152, 0.68)
pt3dadd(121.492, 127.598, 26.183, 0.652)
pt3dadd(121.574, 127.678, 26.214, 0.624)
pt3dadd(121.657, 127.756, 26.245, 0.598)
pt3dadd(121.74, 127.834, 26.275, 0.57)
pt3dadd(121.824, 127.912, 26.306, 0.542)
pt3dadd(121.907, 127.991, 26.337, 0.514)
pt3dadd(121.99, 128.069, 26.368, 0.488)
pt3dadd(122.072, 128.147, 26.399, 0.46)
pt3dadd(122.156, 128.225, 26.43, 0.432)
pt3dadd(122.238, 128.304, 26.461, 0.408)
pt3dadd(122.314, 128.387, 26.496, 0.424)
pt3dadd(122.389, 128.47, 26.531, 0.44)
pt3dadd(122.465, 128.552, 26.567, 0.458)
pt3dadd(122.54, 128.636, 26.602, 0.474)
pt3dadd(122.616, 128.719, 26.637, 0.49)
pt3dadd(122.692, 128.802, 26.672, 0.508)
pt3dadd(122.767, 128.885, 26.708, 0.524)
pt3dadd(122.844, 128.968, 26.743, 0.54)
pt3dadd(122.92, 129.05, 26.778, 0.558)
pt3dadd(122.992, 129.134, 26.816, 0.58)
pt3dadd(123.05, 129.223, 26.863, 0.634)
pt3dadd(123.108, 129.311, 26.911, 0.688)
pt3dadd(123.167, 129.398, 26.959, 0.742)
pt3dadd(123.226, 129.486, 27.006, 0.796)
pt3dadd(123.283, 129.574, 27.054, 0.85)
pt3dadd(123.342, 129.661, 27.102, 0.906)
pt3dadd(123.401, 129.75, 27.149, 0.96)
}
}
proc shape3d_112() {
dend_7[10] { pt3dadd(123.46, 129.838, 27.197, 1.014)
pt3dadd(123.517, 129.925, 27.245, 1.068)
pt3dadd(123.58, 130.013, 27.289, 1.11)
pt3dadd(123.652, 130.099, 27.325, 1.116)
pt3dadd(123.722, 130.186, 27.36, 1.122)
pt3dadd(123.794, 130.271, 27.395, 1.128)
pt3dadd(123.866, 130.357, 27.43, 1.134)
pt3dadd(123.938, 130.444, 27.466, 1.14)
pt3dadd(124.01, 130.53, 27.501, 1.146)
pt3dadd(124.082, 130.616, 27.536, 1.152)
pt3dadd(124.154, 130.703, 27.571, 1.158)
pt3dadd(124.225, 130.789, 27.607, 1.162)
pt3dadd(124.303, 130.865, 27.646, 1.154)
pt3dadd(124.394, 130.918, 27.694, 1.116)
pt3dadd(124.486, 130.97, 27.742, 1.076)
pt3dadd(124.577, 131.023, 27.79, 1.036)
pt3dadd(124.668, 131.076, 27.838, 0.996)
pt3dadd(124.759, 131.129, 27.886, 0.956)
pt3dadd(124.85, 131.182, 27.934, 0.916)
pt3dadd(124.94, 131.234, 27.982, 0.876)
pt3dadd(125.032, 131.287, 28.03, 0.836)
pt3dadd(125.123, 131.34, 28.078, 0.798)
pt3dadd(125.214, 131.384, 28.13, 0.788)
pt3dadd(125.306, 131.413, 28.19, 0.822)
pt3dadd(125.399, 131.442, 28.249, 0.858)
pt3dadd(125.491, 131.471, 28.308, 0.894)
pt3dadd(125.584, 131.5, 28.367, 0.93)
pt3dadd(125.676, 131.53, 28.427, 0.964)
pt3dadd(125.767, 131.558, 28.486, 1)
pt3dadd(125.86, 131.587, 28.545, 1.036)
pt3dadd(125.952, 131.616, 28.605, 1.072)
pt3dadd(126.044, 131.645, 28.664, 1.106)
pt3dadd(126.137, 131.678, 28.721, 1.132)
pt3dadd(126.23, 131.716, 28.775, 1.142)
pt3dadd(126.324, 131.753, 28.83, 1.152)
pt3dadd(126.418, 131.79, 28.884, 1.162)
pt3dadd(126.511, 131.826, 28.938, 1.172)
pt3dadd(126.605, 131.863, 28.992, 1.182)
pt3dadd(126.698, 131.9, 29.047, 1.194)
pt3dadd(126.793, 131.938, 29.101, 1.204)
pt3dadd(126.887, 131.975, 29.155, 1.214)
pt3dadd(126.98, 132.012, 29.21, 1.224)
pt3dadd(127.069, 132.053, 29.267, 1.244)
pt3dadd(127.156, 132.096, 29.327, 1.274)
pt3dadd(127.241, 132.139, 29.387, 1.304)
pt3dadd(127.327, 132.182, 29.447, 1.334)
pt3dadd(127.412, 132.226, 29.507, 1.364)
pt3dadd(127.499, 132.269, 29.567, 1.394)
pt3dadd(127.584, 132.312, 29.627, 1.424)
pt3dadd(127.67, 132.355, 29.687, 1.452)
pt3dadd(127.756, 132.398, 29.747, 1.482)
pt3dadd(127.842, 132.442, 29.807, 1.512)
pt3dadd(127.926, 132.478, 29.871, 1.516)
pt3dadd(128.01, 132.509, 29.938, 1.502)
pt3dadd(128.093, 132.539, 30.005, 1.488)
pt3dadd(128.177, 132.57, 30.072, 1.474)
pt3dadd(128.26, 132.601, 30.139, 1.46)
pt3dadd(128.344, 132.632, 30.206, 1.444)
pt3dadd(128.426, 132.662, 30.273, 1.43)
pt3dadd(128.51, 132.694, 30.34, 1.416)
pt3dadd(128.594, 132.725, 30.407, 1.402)
pt3dadd(128.677, 132.756, 30.474, 1.388)
pt3dadd(128.768, 132.791, 30.531, 1.358)
pt3dadd(128.866, 132.827, 30.582, 1.318)
pt3dadd(128.962, 132.864, 30.633, 1.278)
pt3dadd(129.058, 132.901, 30.684, 1.238)
pt3dadd(129.155, 132.938, 30.735, 1.198)
pt3dadd(129.251, 132.976, 30.786, 1.16)
pt3dadd(129.348, 133.013, 30.836, 1.12)
pt3dadd(129.444, 133.049, 30.887, 1.08)
pt3dadd(129.54, 133.086, 30.938, 1.04)
pt3dadd(129.637, 133.123, 30.989, 1)
pt3dadd(129.743, 133.157, 31.026, 0.972)
pt3dadd(129.853, 133.188, 31.056, 0.95)
pt3dadd(129.962, 133.219, 31.087, 0.928)
pt3dadd(130.073, 133.25, 31.117, 0.904)
pt3dadd(130.182, 133.282, 31.148, 0.882)
pt3dadd(130.292, 133.313, 31.178, 0.86)
pt3dadd(130.402, 133.344, 31.209, 0.836)
pt3dadd(130.512, 133.375, 31.239, 0.814)
pt3dadd(130.622, 133.408, 31.27, 0.79)
pt3dadd(130.732, 133.439, 31.301, 0.768)
pt3dadd(130.843, 133.452, 31.334, 0.768)
pt3dadd(130.956, 133.462, 31.369, 0.772)
pt3dadd(131.068, 133.472, 31.404, 0.778)
pt3dadd(131.18, 133.482, 31.438, 0.784)
pt3dadd(131.292, 133.492, 31.473, 0.788)
pt3dadd(131.405, 133.501, 31.507, 0.794)
pt3dadd(131.516, 133.511, 31.542, 0.8)
pt3dadd(131.629, 133.52, 31.576, 0.804)
pt3dadd(131.741, 133.53, 31.611, 0.81)
pt3dadd(131.854, 133.54, 31.645, 0.816)
pt3dadd(131.964, 133.529, 31.681, 0.824)
pt3dadd(132.076, 133.516, 31.717, 0.832)
pt3dadd(132.187, 133.502, 31.753, 0.842)
pt3dadd(132.298, 133.489, 31.789, 0.85)
pt3dadd(132.409, 133.476, 31.826, 0.86)
pt3dadd(132.521, 133.463, 31.861, 0.868)
pt3dadd(132.631, 133.45, 31.898, 0.876)
pt3dadd(132.743, 133.436, 31.934, 0.886)
pt3dadd(132.853, 133.423, 31.97, 0.894)
pt3dadd(132.965, 133.41, 32.006, 0.904)
pt3dadd(133.07, 133.364, 32.033, 0.876)
pt3dadd(133.176, 133.318, 32.061, 0.848)
pt3dadd(133.282, 133.271, 32.088, 0.82)
pt3dadd(133.387, 133.224, 32.115, 0.79)
pt3dadd(133.493, 133.177, 32.142, 0.76)
pt3dadd(133.598, 133.13, 32.169, 0.732)
pt3dadd(133.704, 133.084, 32.196, 0.704)
pt3dadd(133.81, 133.037, 32.223, 0.674)
pt3dadd(133.915, 132.99, 32.25, 0.646)
pt3dadd(134.02, 132.941, 32.278, 0.616)
pt3dadd(134.102, 132.866, 32.315, 0.584)
pt3dadd(134.186, 132.793, 32.353, 0.552)
pt3dadd(134.269, 132.72, 32.39, 0.52)
pt3dadd(134.353, 132.646, 32.427, 0.488)
pt3dadd(134.436, 132.572, 32.464, 0.456)
pt3dadd(134.52, 132.498, 32.502, 0.424)
pt3dadd(134.604, 132.425, 32.539, 0.392)
pt3dadd(134.687, 132.35, 32.576, 0.36)
pt3dadd(134.771, 132.277, 32.613, 0.328)
pt3dadd(134.855, 132.206, 32.651, 0.314)
pt3dadd(134.946, 132.144, 32.692, 0.36)
pt3dadd(135.036, 132.083, 32.733, 0.406)
pt3dadd(135.127, 132.022, 32.774, 0.452)
pt3dadd(135.217, 131.959, 32.814, 0.498)
pt3dadd(135.308, 131.898, 32.855, 0.544)
pt3dadd(135.398, 131.836, 32.896, 0.59)
pt3dadd(135.49, 131.774, 32.937, 0.636)
pt3dadd(135.58, 131.713, 32.977, 0.682)
pt3dadd(135.671, 131.651, 33.018, 0.728)
pt3dadd(135.768, 131.6, 33.056, 0.75)
pt3dadd(135.877, 131.572, 33.089, 0.722)
pt3dadd(135.986, 131.542, 33.121, 0.694)
pt3dadd(136.097, 131.513, 33.153, 0.666)
pt3dadd(136.206, 131.484, 33.186, 0.638)
pt3dadd(136.316, 131.455, 33.218, 0.61)
pt3dadd(136.426, 131.425, 33.251, 0.582)
pt3dadd(136.536, 131.396, 33.283, 0.554)
pt3dadd(136.645, 131.368, 33.316, 0.528)
pt3dadd(136.754, 131.339, 33.348, 0.5)
pt3dadd(136.862, 131.315, 33.387, 0.498)
pt3dadd(136.966, 131.302, 33.436, 0.536)
pt3dadd(137.07, 131.287, 33.485, 0.576)
pt3dadd(137.173, 131.274, 33.534, 0.616)
pt3dadd(137.278, 131.26, 33.583, 0.654)
pt3dadd(137.381, 131.245, 33.631, 0.694)
pt3dadd(137.485, 131.232, 33.68, 0.734)
pt3dadd(137.588, 131.218, 33.729, 0.772)
pt3dadd(137.693, 131.204, 33.778, 0.812)
pt3dadd(137.796, 131.19, 33.827, 0.852)
pt3dadd(137.897, 131.164, 33.875, 0.884)
pt3dadd(137.993, 131.119, 33.923, 0.908)
pt3dadd(138.089, 131.075, 33.97, 0.934)
pt3dadd(138.184, 131.03, 34.017, 0.958)
pt3dadd(138.28, 130.985, 34.065, 0.982)
pt3dadd(138.376, 130.94, 34.112, 1.006)
pt3dadd(138.472, 130.896, 34.16, 1.03)
pt3dadd(138.568, 130.852, 34.207, 1.056)
pt3dadd(138.662, 130.807, 34.255, 1.08)
pt3dadd(138.758, 130.762, 34.302, 1.104)
pt3dadd(138.841, 130.723, 34.364, 1.128)
pt3dadd(138.905, 130.692, 34.444, 1.15)
pt3dadd(138.968, 130.66, 34.525, 1.172)
pt3dadd(139.032, 130.628, 34.605, 1.194)
pt3dadd(139.096, 130.597, 34.686, 1.216)
pt3dadd(139.159, 130.565, 34.767, 1.24)
pt3dadd(139.223, 130.534, 34.847, 1.262)
pt3dadd(139.286, 130.502, 34.928, 1.284)
pt3dadd(139.35, 130.47, 35.008, 1.306)
pt3dadd(139.414, 130.439, 35.089, 1.328)
pt3dadd(139.469, 130.417, 35.175, 1.324)
pt3dadd(139.517, 130.406, 35.266, 1.292)
pt3dadd(139.565, 130.396, 35.357, 1.262)
pt3dadd(139.614, 130.385, 35.448, 1.23)
pt3dadd(139.662, 130.374, 35.539, 1.2)
pt3dadd(139.71, 130.363, 35.631, 1.168)
pt3dadd(139.758, 130.352, 35.722, 1.138)
pt3dadd(139.806, 130.34, 35.813, 1.106)
pt3dadd(139.854, 130.33, 35.904, 1.076)
pt3dadd(139.902, 130.319, 35.995, 1.044)
pt3dadd(139.961, 130.315, 36.082, 1)
pt3dadd(140.028, 130.316, 36.164, 0.942)
pt3dadd(140.096, 130.319, 36.247, 0.886)
pt3dadd(140.164, 130.32, 36.33, 0.83)
pt3dadd(140.231, 130.321, 36.413, 0.772)
pt3dadd(140.298, 130.324, 36.495, 0.716)
pt3dadd(140.365, 130.325, 36.578, 0.66)
pt3dadd(140.432, 130.327, 36.661, 0.602)
pt3dadd(140.5, 130.328, 36.744, 0.546)
pt3dadd(140.568, 130.33, 36.826, 0.49)
pt3dadd(140.644, 130.332, 36.903, 0.474)
pt3dadd(140.726, 130.336, 36.975, 0.494)
pt3dadd(140.81, 130.338, 37.047, 0.512)
pt3dadd(140.893, 130.342, 37.119, 0.53)
pt3dadd(140.977, 130.344, 37.191, 0.55)
pt3dadd(141.06, 130.346, 37.263, 0.568)
pt3dadd(141.143, 130.35, 37.335, 0.588)
pt3dadd(141.227, 130.352, 37.407, 0.606)
pt3dadd(141.31, 130.356, 37.479, 0.626)
}
}
proc shape3d_113() {
dend_7[10] { pt3dadd(141.394, 130.358, 37.551, 0.644)
pt3dadd(141.48, 130.363, 37.619, 0.664)
pt3dadd(141.571, 130.37, 37.684, 0.682)
pt3dadd(141.661, 130.376, 37.75, 0.702)
pt3dadd(141.752, 130.384, 37.815, 0.72)
pt3dadd(141.842, 130.39, 37.881, 0.74)
pt3dadd(141.934, 130.397, 37.946, 0.758)
pt3dadd(142.024, 130.403, 38.011, 0.776)
pt3dadd(142.115, 130.41, 38.077, 0.796)
pt3dadd(142.205, 130.416, 38.142, 0.814)
pt3dadd(142.296, 130.423, 38.207, 0.834)
pt3dadd(142.392, 130.433, 38.266, 0.82)
pt3dadd(142.494, 130.445, 38.318, 0.778)
pt3dadd(142.595, 130.458, 38.37, 0.736)
pt3dadd(142.697, 130.47, 38.423, 0.696)
pt3dadd(142.798, 130.483, 38.475, 0.654)
pt3dadd(142.9, 130.495, 38.527, 0.614)
pt3dadd(143.002, 130.508, 38.58, 0.572)
pt3dadd(143.102, 130.52, 38.632, 0.532)
pt3dadd(143.204, 130.532, 38.684, 0.49)
pt3dadd(143.305, 130.546, 38.737, 0.45)
pt3dadd(143.408, 130.577, 38.778, 0.444)
pt3dadd(143.513, 130.62, 38.812, 0.46)
pt3dadd(143.617, 130.663, 38.847, 0.476)
pt3dadd(143.72, 130.706, 38.881, 0.492)
pt3dadd(143.825, 130.75, 38.915, 0.508)
pt3dadd(143.929, 130.793, 38.95, 0.524)
pt3dadd(144.034, 130.836, 38.984, 0.54)
pt3dadd(144.138, 130.878, 39.018, 0.556)
pt3dadd(144.241, 130.921, 39.053, 0.572)
pt3dadd(144.346, 130.964, 39.087, 0.588)
pt3dadd(144.424, 131.012, 39.149, 0.562)
pt3dadd(144.493, 131.06, 39.219, 0.526)
pt3dadd(144.564, 131.11, 39.29, 0.488)
pt3dadd(144.634, 131.158, 39.36, 0.45)
pt3dadd(144.703, 131.207, 39.431, 0.414)
pt3dadd(144.773, 131.255, 39.502, 0.376)
pt3dadd(144.842, 131.304, 39.572, 0.338)
pt3dadd(144.913, 131.352, 39.642, 0.3)
pt3dadd(144.983, 131.401, 39.713, 0.264)
pt3dadd(145.052, 131.449, 39.784, 0.226)
}
dend_7[11] {pt3dclear()
pt3dadd(105.689, 111.06, 19.62, 2.034)
pt3dadd(105.78, 111.035, 19.619, 1.988)
pt3dadd(105.895, 111.003, 19.617, 1.928)
pt3dadd(106.011, 110.972, 19.616, 1.868)
pt3dadd(106.127, 110.941, 19.615, 1.81)
pt3dadd(106.243, 110.91, 19.613, 1.75)
pt3dadd(106.359, 110.879, 19.612, 1.692)
pt3dadd(106.475, 110.848, 19.611, 1.632)
pt3dadd(106.591, 110.817, 19.609, 1.574)
pt3dadd(106.707, 110.786, 19.608, 1.514)
pt3dadd(106.822, 110.755, 19.607, 1.456)
pt3dadd(106.938, 110.724, 19.605, 1.396)
pt3dadd(107.054, 110.693, 19.604, 1.338)
pt3dadd(107.174, 110.684, 19.604, 1.294)
pt3dadd(107.294, 110.676, 19.604, 1.252)
pt3dadd(107.413, 110.669, 19.604, 1.21)
pt3dadd(107.533, 110.662, 19.604, 1.168)
pt3dadd(107.653, 110.655, 19.604, 1.126)
pt3dadd(107.773, 110.648, 19.604, 1.084)
pt3dadd(107.892, 110.64, 19.604, 1.04)
pt3dadd(108.012, 110.633, 19.604, 0.998)
pt3dadd(108.132, 110.626, 19.604, 0.956)
pt3dadd(108.252, 110.619, 19.604, 0.914)
pt3dadd(108.371, 110.607, 19.604, 0.908)
pt3dadd(108.491, 110.595, 19.604, 0.904)
pt3dadd(108.61, 110.583, 19.604, 0.9)
pt3dadd(108.729, 110.571, 19.604, 0.896)
pt3dadd(108.849, 110.559, 19.604, 0.894)
pt3dadd(108.968, 110.547, 19.604, 0.89)
pt3dadd(109.088, 110.534, 19.604, 0.886)
pt3dadd(109.207, 110.522, 19.604, 0.882)
pt3dadd(109.326, 110.51, 19.604, 0.878)
pt3dadd(109.446, 110.498, 19.604, 0.876)
pt3dadd(109.564, 110.476, 19.604, 0.856)
pt3dadd(109.682, 110.454, 19.604, 0.836)
pt3dadd(109.799, 110.431, 19.604, 0.816)
pt3dadd(109.917, 110.409, 19.604, 0.798)
pt3dadd(110.035, 110.386, 19.604, 0.778)
pt3dadd(110.153, 110.363, 19.604, 0.758)
pt3dadd(110.271, 110.341, 19.604, 0.738)
pt3dadd(110.389, 110.318, 19.604, 0.718)
pt3dadd(110.507, 110.296, 19.604, 0.698)
pt3dadd(110.624, 110.273, 19.604, 0.678)
pt3dadd(110.733, 110.223, 19.604, 0.678)
pt3dadd(110.843, 110.173, 19.604, 0.678)
pt3dadd(110.952, 110.123, 19.604, 0.678)
pt3dadd(111.061, 110.073, 19.604, 0.678)
pt3dadd(111.17, 110.023, 19.604, 0.678)
pt3dadd(111.279, 109.973, 19.604, 0.678)
pt3dadd(111.388, 109.923, 19.604, 0.678)
pt3dadd(111.497, 109.873, 19.604, 0.678)
pt3dadd(111.606, 109.823, 19.604, 0.678)
pt3dadd(111.715, 109.773, 19.604, 0.678)
pt3dadd(111.827, 109.731, 19.604, 0.68)
pt3dadd(111.94, 109.689, 19.604, 0.684)
pt3dadd(112.052, 109.647, 19.604, 0.686)
pt3dadd(112.165, 109.605, 19.604, 0.69)
pt3dadd(112.277, 109.563, 19.604, 0.692)
pt3dadd(112.389, 109.521, 19.604, 0.696)
pt3dadd(112.502, 109.479, 19.604, 0.698)
pt3dadd(112.614, 109.437, 19.604, 0.702)
pt3dadd(112.727, 109.395, 19.604, 0.704)
pt3dadd(112.839, 109.353, 19.604, 0.706)
pt3dadd(112.946, 109.298, 19.604, 0.748)
pt3dadd(113.053, 109.243, 19.604, 0.79)
pt3dadd(113.16, 109.189, 19.604, 0.832)
pt3dadd(113.266, 109.134, 19.604, 0.874)
pt3dadd(113.373, 109.08, 19.604, 0.916)
pt3dadd(113.48, 109.025, 19.604, 0.958)
pt3dadd(113.587, 108.97, 19.604, 1)
pt3dadd(113.694, 108.916, 19.604, 1.042)
pt3dadd(113.801, 108.861, 19.604, 1.084)
pt3dadd(113.908, 108.806, 19.604, 1.126)
pt3dadd(114.024, 108.777, 19.604, 1.148)
pt3dadd(114.14, 108.748, 19.604, 1.172)
pt3dadd(114.257, 108.719, 19.604, 1.194)
pt3dadd(114.373, 108.69, 19.604, 1.218)
pt3dadd(114.49, 108.661, 19.604, 1.24)
pt3dadd(114.606, 108.631, 19.604, 1.264)
pt3dadd(114.722, 108.602, 19.604, 1.288)
pt3dadd(114.839, 108.573, 19.604, 1.31)
pt3dadd(114.955, 108.544, 19.604, 1.332)
pt3dadd(115.072, 108.515, 19.604, 1.356)
}
dend_7[12] {pt3dclear()
pt3dadd(115.072, 108.515, 19.604, 1.356)
pt3dadd(115.114, 108.51, 19.604, 1.348)
pt3dadd(115.233, 108.498, 19.604, 1.324)
pt3dadd(115.353, 108.486, 19.604, 1.3)
pt3dadd(115.472, 108.474, 19.605, 1.278)
pt3dadd(115.592, 108.462, 19.605, 1.254)
pt3dadd(115.711, 108.45, 19.605, 1.23)
pt3dadd(115.83, 108.439, 19.605, 1.208)
pt3dadd(115.95, 108.427, 19.605, 1.184)
pt3dadd(116.069, 108.415, 19.605, 1.16)
pt3dadd(116.189, 108.403, 19.605, 1.138)
pt3dadd(116.308, 108.392, 19.605, 1.114)
pt3dadd(116.428, 108.388, 19.605, 1.092)
pt3dadd(116.548, 108.388, 19.605, 1.072)
pt3dadd(116.668, 108.388, 19.605, 1.052)
pt3dadd(116.788, 108.388, 19.606, 1.032)
pt3dadd(116.908, 108.388, 19.606, 1.012)
pt3dadd(117.028, 108.388, 19.606, 0.992)
pt3dadd(117.148, 108.388, 19.606, 0.972)
pt3dadd(117.268, 108.388, 19.606, 0.952)
pt3dadd(117.388, 108.388, 19.607, 0.93)
pt3dadd(117.508, 108.388, 19.607, 0.91)
pt3dadd(117.628, 108.388, 19.607, 0.904)
pt3dadd(117.748, 108.388, 19.607, 0.904)
pt3dadd(117.868, 108.388, 19.608, 0.904)
pt3dadd(117.988, 108.388, 19.608, 0.904)
pt3dadd(118.108, 108.388, 19.608, 0.904)
pt3dadd(118.228, 108.388, 19.609, 0.904)
pt3dadd(118.348, 108.388, 19.609, 0.904)
pt3dadd(118.468, 108.388, 19.61, 0.904)
pt3dadd(118.588, 108.388, 19.61, 0.904)
pt3dadd(118.708, 108.388, 19.61, 0.904)
pt3dadd(118.828, 108.388, 19.611, 0.904)
pt3dadd(118.948, 108.388, 19.612, 0.904)
pt3dadd(119.068, 108.388, 19.612, 0.904)
pt3dadd(119.188, 108.388, 19.613, 0.904)
pt3dadd(119.308, 108.388, 19.614, 0.904)
pt3dadd(119.428, 108.388, 19.615, 0.904)
pt3dadd(119.548, 108.388, 19.616, 0.904)
pt3dadd(119.668, 108.389, 19.616, 0.904)
pt3dadd(119.788, 108.389, 19.617, 0.904)
pt3dadd(119.908, 108.389, 19.618, 0.904)
pt3dadd(120.028, 108.389, 19.62, 0.904)
pt3dadd(120.148, 108.389, 19.621, 0.904)
pt3dadd(120.268, 108.39, 19.623, 0.904)
pt3dadd(120.388, 108.39, 19.625, 0.904)
pt3dadd(120.508, 108.39, 19.627, 0.904)
pt3dadd(120.628, 108.391, 19.628, 0.904)
pt3dadd(120.748, 108.391, 19.63, 0.904)
pt3dadd(120.868, 108.392, 19.632, 0.904)
pt3dadd(120.988, 108.392, 19.634, 0.904)
pt3dadd(121.108, 108.392, 19.636, 0.904)
pt3dadd(121.228, 108.393, 19.639, 0.89)
pt3dadd(121.348, 108.394, 19.643, 0.868)
pt3dadd(121.468, 108.394, 19.647, 0.848)
pt3dadd(121.588, 108.395, 19.651, 0.826)
pt3dadd(121.708, 108.396, 19.655, 0.806)
pt3dadd(121.828, 108.396, 19.659, 0.784)
pt3dadd(121.946, 108.397, 19.663, 0.764)
pt3dadd(122.066, 108.398, 19.667, 0.742)
pt3dadd(122.186, 108.399, 19.671, 0.722)
pt3dadd(122.306, 108.399, 19.676, 0.7)
pt3dadd(122.426, 108.401, 19.683, 0.668)
pt3dadd(122.546, 108.402, 19.691, 0.628)
pt3dadd(122.665, 108.404, 19.7, 0.59)
pt3dadd(122.785, 108.405, 19.708, 0.55)
pt3dadd(122.904, 108.407, 19.717, 0.512)
pt3dadd(123.024, 108.408, 19.725, 0.474)
pt3dadd(123.144, 108.41, 19.734, 0.434)
pt3dadd(123.263, 108.412, 19.742, 0.396)
pt3dadd(123.383, 108.413, 19.751, 0.356)
pt3dadd(123.503, 108.415, 19.759, 0.318)
pt3dadd(123.62, 108.417, 19.776, 0.326)
pt3dadd(123.738, 108.42, 19.797, 0.356)
pt3dadd(123.854, 108.424, 19.818, 0.388)
pt3dadd(123.972, 108.427, 19.84, 0.418)
}
}
proc shape3d_114() {
dend_7[12] { pt3dadd(124.09, 108.43, 19.861, 0.45)
pt3dadd(124.206, 108.433, 19.882, 0.48)
pt3dadd(124.324, 108.436, 19.903, 0.512)
pt3dadd(124.441, 108.439, 19.924, 0.544)
pt3dadd(124.559, 108.442, 19.945, 0.574)
pt3dadd(124.675, 108.446, 19.966, 0.606)
pt3dadd(124.789, 108.451, 19.996, 0.64)
pt3dadd(124.903, 108.458, 20.029, 0.678)
pt3dadd(125.016, 108.465, 20.062, 0.714)
pt3dadd(125.129, 108.472, 20.094, 0.752)
pt3dadd(125.243, 108.478, 20.127, 0.788)
pt3dadd(125.356, 108.485, 20.16, 0.824)
pt3dadd(125.468, 108.492, 20.192, 0.862)
pt3dadd(125.582, 108.499, 20.225, 0.898)
pt3dadd(125.695, 108.505, 20.258, 0.936)
pt3dadd(125.808, 108.512, 20.29, 0.972)
pt3dadd(125.924, 108.525, 20.313, 0.986)
pt3dadd(126.042, 108.539, 20.332, 0.992)
pt3dadd(126.158, 108.554, 20.351, 1)
pt3dadd(126.275, 108.568, 20.37, 1.006)
pt3dadd(126.392, 108.582, 20.389, 1.014)
pt3dadd(126.509, 108.597, 20.408, 1.02)
pt3dadd(126.626, 108.611, 20.427, 1.028)
pt3dadd(126.743, 108.626, 20.446, 1.034)
pt3dadd(126.86, 108.64, 20.466, 1.04)
pt3dadd(126.977, 108.655, 20.485, 1.048)
pt3dadd(127.092, 108.685, 20.493, 1.032)
pt3dadd(127.206, 108.719, 20.5, 1.008)
pt3dadd(127.321, 108.754, 20.506, 0.986)
pt3dadd(127.436, 108.788, 20.512, 0.962)
pt3dadd(127.55, 108.823, 20.518, 0.94)
pt3dadd(127.666, 108.857, 20.524, 0.918)
pt3dadd(127.781, 108.891, 20.53, 0.894)
pt3dadd(127.895, 108.926, 20.536, 0.872)
pt3dadd(128.01, 108.96, 20.542, 0.848)
pt3dadd(128.124, 108.995, 20.548, 0.826)
pt3dadd(128.231, 109.05, 20.547, 0.81)
pt3dadd(128.338, 109.106, 20.545, 0.796)
pt3dadd(128.443, 109.162, 20.544, 0.782)
pt3dadd(128.549, 109.218, 20.542, 0.766)
pt3dadd(128.656, 109.274, 20.54, 0.752)
pt3dadd(128.761, 109.33, 20.538, 0.738)
pt3dadd(128.867, 109.387, 20.537, 0.722)
pt3dadd(128.974, 109.443, 20.535, 0.708)
pt3dadd(129.079, 109.499, 20.533, 0.694)
pt3dadd(129.185, 109.555, 20.531, 0.678)
pt3dadd(129.288, 109.616, 20.528, 0.668)
pt3dadd(129.391, 109.677, 20.524, 0.656)
pt3dadd(129.494, 109.738, 20.521, 0.646)
pt3dadd(129.598, 109.8, 20.517, 0.634)
pt3dadd(129.701, 109.861, 20.514, 0.622)
pt3dadd(129.804, 109.922, 20.51, 0.612)
pt3dadd(129.907, 109.983, 20.506, 0.6)
pt3dadd(130.01, 110.044, 20.503, 0.588)
pt3dadd(130.114, 110.105, 20.499, 0.578)
pt3dadd(130.217, 110.166, 20.495, 0.566)
pt3dadd(130.307, 110.245, 20.489, 0.532)
pt3dadd(130.397, 110.324, 20.482, 0.498)
pt3dadd(130.487, 110.403, 20.476, 0.464)
pt3dadd(130.577, 110.482, 20.469, 0.43)
pt3dadd(130.667, 110.561, 20.462, 0.396)
pt3dadd(130.757, 110.64, 20.456, 0.362)
pt3dadd(130.847, 110.719, 20.449, 0.328)
pt3dadd(130.937, 110.799, 20.443, 0.294)
pt3dadd(131.027, 110.877, 20.436, 0.26)
pt3dadd(131.117, 110.957, 20.429, 0.226)
pt3dadd(131.196, 111.045, 20.42, 0.226)
pt3dadd(131.276, 111.134, 20.41, 0.226)
pt3dadd(131.356, 111.223, 20.4, 0.226)
pt3dadd(131.436, 111.312, 20.39, 0.226)
pt3dadd(131.515, 111.401, 20.38, 0.226)
pt3dadd(131.596, 111.489, 20.371, 0.226)
pt3dadd(131.675, 111.578, 20.361, 0.226)
pt3dadd(131.755, 111.667, 20.351, 0.226)
pt3dadd(131.834, 111.756, 20.341, 0.226)
pt3dadd(131.915, 111.845, 20.332, 0.226)
}
dend_7[13] {pt3dclear()
pt3dadd(131.915, 111.845, 20.332, 0.226)
pt3dadd(131.918, 111.852, 20.329, 0.232)
pt3dadd(131.965, 111.955, 20.295, 0.312)
pt3dadd(132.011, 112.057, 20.26, 0.392)
pt3dadd(132.058, 112.16, 20.226, 0.474)
pt3dadd(132.104, 112.262, 20.192, 0.554)
pt3dadd(132.15, 112.366, 20.158, 0.618)
pt3dadd(132.191, 112.473, 20.128, 0.638)
pt3dadd(132.232, 112.579, 20.097, 0.658)
pt3dadd(132.274, 112.686, 20.066, 0.678)
pt3dadd(132.314, 112.792, 20.036, 0.698)
pt3dadd(132.355, 112.899, 20.005, 0.718)
pt3dadd(132.397, 113.005, 19.975, 0.738)
pt3dadd(132.438, 113.112, 19.944, 0.758)
pt3dadd(132.479, 113.218, 19.913, 0.778)
pt3dadd(132.521, 113.325, 19.883, 0.798)
pt3dadd(132.562, 113.433, 19.855, 0.796)
pt3dadd(132.601, 113.544, 19.836, 0.736)
pt3dadd(132.641, 113.654, 19.817, 0.678)
pt3dadd(132.68, 113.765, 19.798, 0.618)
pt3dadd(132.72, 113.876, 19.779, 0.558)
pt3dadd(132.76, 113.987, 19.759, 0.5)
pt3dadd(132.799, 114.098, 19.74, 0.44)
pt3dadd(132.84, 114.209, 19.721, 0.382)
pt3dadd(132.88, 114.32, 19.702, 0.322)
pt3dadd(132.919, 114.43, 19.682, 0.264)
pt3dadd(132.964, 114.54, 19.667, 0.234)
pt3dadd(133.019, 114.646, 19.659, 0.256)
pt3dadd(133.073, 114.753, 19.651, 0.278)
pt3dadd(133.128, 114.859, 19.643, 0.3)
pt3dadd(133.182, 114.965, 19.635, 0.322)
pt3dadd(133.237, 115.072, 19.627, 0.344)
pt3dadd(133.291, 115.178, 19.619, 0.364)
pt3dadd(133.345, 115.285, 19.611, 0.386)
pt3dadd(133.4, 115.391, 19.602, 0.408)
pt3dadd(133.454, 115.498, 19.594, 0.43)
pt3dadd(133.51, 115.604, 19.588, 0.47)
pt3dadd(133.566, 115.71, 19.587, 0.538)
pt3dadd(133.622, 115.816, 19.585, 0.608)
pt3dadd(133.679, 115.922, 19.584, 0.676)
pt3dadd(133.735, 116.028, 19.582, 0.744)
pt3dadd(133.792, 116.134, 19.581, 0.814)
pt3dadd(133.848, 116.24, 19.579, 0.882)
pt3dadd(133.904, 116.346, 19.578, 0.95)
pt3dadd(133.961, 116.452, 19.576, 1.02)
pt3dadd(134.016, 116.558, 19.575, 1.088)
pt3dadd(134.08, 116.66, 19.573, 1.13)
pt3dadd(134.152, 116.755, 19.57, 1.126)
pt3dadd(134.224, 116.851, 19.568, 1.124)
pt3dadd(134.296, 116.947, 19.565, 1.122)
pt3dadd(134.368, 117.043, 19.563, 1.12)
pt3dadd(134.44, 117.139, 19.56, 1.118)
pt3dadd(134.512, 117.234, 19.558, 1.114)
pt3dadd(134.585, 117.33, 19.555, 1.112)
pt3dadd(134.657, 117.426, 19.553, 1.11)
pt3dadd(134.729, 117.522, 19.55, 1.108)
pt3dadd(134.803, 117.615, 19.546, 1.084)
pt3dadd(134.884, 117.705, 19.541, 1.026)
pt3dadd(134.963, 117.794, 19.535, 0.97)
pt3dadd(135.042, 117.884, 19.529, 0.912)
pt3dadd(135.122, 117.974, 19.523, 0.856)
pt3dadd(135.202, 118.063, 19.517, 0.798)
pt3dadd(135.281, 118.153, 19.512, 0.74)
pt3dadd(135.361, 118.242, 19.506, 0.684)
pt3dadd(135.44, 118.332, 19.5, 0.626)
pt3dadd(135.52, 118.421, 19.495, 0.57)
pt3dadd(135.601, 118.509, 19.487, 0.538)
pt3dadd(135.686, 118.593, 19.479, 0.546)
pt3dadd(135.77, 118.678, 19.47, 0.554)
pt3dadd(135.854, 118.763, 19.461, 0.562)
pt3dadd(135.94, 118.847, 19.452, 0.57)
pt3dadd(136.024, 118.932, 19.443, 0.578)
pt3dadd(136.108, 119.017, 19.434, 0.586)
pt3dadd(136.193, 119.101, 19.425, 0.594)
pt3dadd(136.277, 119.186, 19.416, 0.6)
pt3dadd(136.361, 119.271, 19.407, 0.608)
pt3dadd(136.445, 119.353, 19.389, 0.624)
pt3dadd(136.526, 119.431, 19.356, 0.646)
pt3dadd(136.608, 119.51, 19.323, 0.67)
pt3dadd(136.69, 119.588, 19.291, 0.694)
pt3dadd(136.772, 119.667, 19.258, 0.718)
pt3dadd(136.854, 119.745, 19.226, 0.742)
pt3dadd(136.936, 119.824, 19.193, 0.764)
pt3dadd(137.017, 119.903, 19.16, 0.788)
pt3dadd(137.099, 119.981, 19.128, 0.812)
pt3dadd(137.18, 120.06, 19.095, 0.836)
pt3dadd(137.264, 120.138, 19.065, 0.86)
pt3dadd(137.35, 120.215, 19.036, 0.882)
pt3dadd(137.435, 120.292, 19.007, 0.906)
pt3dadd(137.52, 120.37, 18.978, 0.93)
pt3dadd(137.605, 120.446, 18.949, 0.952)
pt3dadd(137.689, 120.524, 18.921, 0.976)
pt3dadd(137.774, 120.601, 18.892, 1)
pt3dadd(137.86, 120.679, 18.863, 1.022)
pt3dadd(137.945, 120.756, 18.834, 1.046)
pt3dadd(138.03, 120.833, 18.805, 1.068)
pt3dadd(138.118, 120.911, 18.785, 1.064)
pt3dadd(138.208, 120.989, 18.772, 1.038)
pt3dadd(138.298, 121.066, 18.758, 1.012)
pt3dadd(138.388, 121.144, 18.744, 0.986)
pt3dadd(138.478, 121.222, 18.73, 0.96)
pt3dadd(138.568, 121.298, 18.717, 0.934)
pt3dadd(138.658, 121.376, 18.703, 0.908)
pt3dadd(138.748, 121.454, 18.689, 0.882)
pt3dadd(138.838, 121.532, 18.675, 0.856)
pt3dadd(138.928, 121.609, 18.662, 0.832)
pt3dadd(139.024, 121.68, 18.653, 0.82)
pt3dadd(139.123, 121.746, 18.647, 0.818)
pt3dadd(139.224, 121.813, 18.642, 0.818)
pt3dadd(139.324, 121.879, 18.637, 0.816)
pt3dadd(139.423, 121.945, 18.631, 0.816)
pt3dadd(139.523, 122.011, 18.626, 0.814)
pt3dadd(139.622, 122.077, 18.62, 0.814)
pt3dadd(139.723, 122.143, 18.615, 0.812)
pt3dadd(139.823, 122.21, 18.609, 0.812)
pt3dadd(139.922, 122.276, 18.604, 0.81)
pt3dadd(140.023, 122.341, 18.599, 0.808)
pt3dadd(140.125, 122.405, 18.595, 0.808)
pt3dadd(140.226, 122.468, 18.591, 0.808)
pt3dadd(140.328, 122.532, 18.587, 0.806)
pt3dadd(140.429, 122.597, 18.582, 0.806)
pt3dadd(140.531, 122.66, 18.578, 0.804)
pt3dadd(140.632, 122.724, 18.574, 0.802)
pt3dadd(140.734, 122.788, 18.569, 0.802)
}
}
proc shape3d_115() {
dend_7[13] { pt3dadd(140.836, 122.852, 18.565, 0.802)
pt3dadd(140.936, 122.916, 18.561, 0.8)
pt3dadd(141.035, 122.983, 18.555, 0.782)
pt3dadd(141.132, 123.053, 18.548, 0.756)
pt3dadd(141.23, 123.122, 18.541, 0.73)
pt3dadd(141.328, 123.192, 18.534, 0.704)
pt3dadd(141.425, 123.263, 18.527, 0.678)
pt3dadd(141.522, 123.332, 18.52, 0.652)
pt3dadd(141.619, 123.402, 18.513, 0.626)
pt3dadd(141.716, 123.472, 18.505, 0.6)
pt3dadd(141.814, 123.541, 18.498, 0.574)
pt3dadd(141.911, 123.611, 18.491, 0.548)
pt3dadd(142.007, 123.682, 18.48, 0.522)
pt3dadd(142.103, 123.752, 18.468, 0.498)
pt3dadd(142.198, 123.823, 18.455, 0.472)
pt3dadd(142.294, 123.894, 18.442, 0.446)
pt3dadd(142.388, 123.966, 18.429, 0.42)
pt3dadd(142.484, 124.037, 18.416, 0.394)
pt3dadd(142.58, 124.108, 18.403, 0.37)
pt3dadd(142.675, 124.178, 18.391, 0.344)
pt3dadd(142.771, 124.25, 18.378, 0.318)
pt3dadd(142.866, 124.321, 18.365, 0.292)
pt3dadd(142.963, 124.384, 18.338, 0.312)
pt3dadd(143.06, 124.441, 18.306, 0.35)
pt3dadd(143.158, 124.5, 18.273, 0.388)
pt3dadd(143.255, 124.559, 18.241, 0.428)
pt3dadd(143.352, 124.618, 18.208, 0.466)
pt3dadd(143.449, 124.675, 18.176, 0.504)
pt3dadd(143.546, 124.734, 18.143, 0.542)
pt3dadd(143.644, 124.793, 18.111, 0.58)
pt3dadd(143.741, 124.852, 18.078, 0.618)
pt3dadd(143.838, 124.909, 18.046, 0.656)
pt3dadd(143.933, 124.976, 18.022, 0.668)
pt3dadd(144.028, 125.047, 18.002, 0.67)
pt3dadd(144.121, 125.118, 17.983, 0.67)
pt3dadd(144.215, 125.189, 17.963, 0.672)
pt3dadd(144.31, 125.26, 17.943, 0.672)
pt3dadd(144.403, 125.33, 17.924, 0.674)
pt3dadd(144.497, 125.401, 17.904, 0.674)
pt3dadd(144.592, 125.472, 17.884, 0.676)
pt3dadd(144.685, 125.543, 17.865, 0.676)
pt3dadd(144.779, 125.614, 17.845, 0.678)
pt3dadd(144.871, 125.689, 17.831, 0.658)
pt3dadd(144.961, 125.767, 17.82, 0.632)
pt3dadd(145.051, 125.845, 17.81, 0.606)
pt3dadd(145.141, 125.923, 17.799, 0.578)
pt3dadd(145.232, 126.001, 17.788, 0.552)
pt3dadd(145.322, 126.078, 17.777, 0.526)
pt3dadd(145.412, 126.156, 17.766, 0.498)
pt3dadd(145.504, 126.234, 17.755, 0.472)
pt3dadd(145.594, 126.312, 17.744, 0.446)
pt3dadd(145.684, 126.39, 17.733, 0.418)
pt3dadd(145.771, 126.472, 17.727, 0.41)
pt3dadd(145.858, 126.554, 17.723, 0.408)
pt3dadd(145.945, 126.637, 17.719, 0.404)
pt3dadd(146.032, 126.72, 17.715, 0.402)
pt3dadd(146.118, 126.803, 17.711, 0.4)
pt3dadd(146.204, 126.886, 17.707, 0.398)
pt3dadd(146.291, 126.968, 17.703, 0.396)
pt3dadd(146.378, 127.052, 17.699, 0.392)
pt3dadd(146.465, 127.135, 17.695, 0.39)
pt3dadd(146.551, 127.218, 17.691, 0.388)
pt3dadd(146.635, 127.303, 17.69, 0.408)
pt3dadd(146.719, 127.39, 17.691, 0.438)
pt3dadd(146.803, 127.475, 17.691, 0.466)
pt3dadd(146.886, 127.561, 17.692, 0.496)
pt3dadd(146.97, 127.648, 17.693, 0.526)
pt3dadd(147.053, 127.734, 17.693, 0.554)
pt3dadd(147.137, 127.819, 17.694, 0.584)
pt3dadd(147.221, 127.906, 17.694, 0.612)
pt3dadd(147.304, 127.992, 17.695, 0.642)
pt3dadd(147.388, 128.078, 17.695, 0.67)
pt3dadd(147.47, 128.165, 17.696, 0.678)
pt3dadd(147.552, 128.252, 17.697, 0.678)
pt3dadd(147.635, 128.34, 17.699, 0.678)
pt3dadd(147.716, 128.428, 17.7, 0.678)
pt3dadd(147.799, 128.514, 17.701, 0.678)
pt3dadd(147.881, 128.602, 17.702, 0.678)
pt3dadd(147.964, 128.689, 17.703, 0.678)
pt3dadd(148.046, 128.777, 17.704, 0.678)
pt3dadd(148.128, 128.864, 17.705, 0.678)
pt3dadd(148.211, 128.952, 17.706, 0.678)
pt3dadd(148.291, 129.04, 17.708, 0.69)
pt3dadd(148.372, 129.128, 17.71, 0.704)
pt3dadd(148.453, 129.217, 17.712, 0.72)
pt3dadd(148.534, 129.306, 17.715, 0.734)
pt3dadd(148.614, 129.395, 17.717, 0.75)
pt3dadd(148.694, 129.484, 17.719, 0.766)
pt3dadd(148.776, 129.572, 17.721, 0.78)
pt3dadd(148.856, 129.661, 17.723, 0.796)
pt3dadd(148.937, 129.75, 17.725, 0.81)
pt3dadd(149.018, 129.839, 17.727, 0.826)
pt3dadd(149.092, 129.934, 17.731, 0.806)
pt3dadd(149.162, 130.03, 17.736, 0.776)
pt3dadd(149.233, 130.127, 17.741, 0.746)
pt3dadd(149.304, 130.223, 17.746, 0.716)
pt3dadd(149.375, 130.32, 17.751, 0.686)
pt3dadd(149.446, 130.416, 17.756, 0.654)
pt3dadd(149.516, 130.513, 17.761, 0.624)
pt3dadd(149.588, 130.609, 17.766, 0.594)
pt3dadd(149.659, 130.706, 17.771, 0.564)
pt3dadd(149.73, 130.802, 17.776, 0.534)
pt3dadd(149.8, 130.9, 17.784, 0.53)
pt3dadd(149.87, 130.996, 17.792, 0.532)
pt3dadd(149.941, 131.093, 17.801, 0.534)
pt3dadd(150.011, 131.189, 17.81, 0.538)
pt3dadd(150.082, 131.286, 17.819, 0.54)
pt3dadd(150.151, 131.383, 17.828, 0.542)
pt3dadd(150.222, 131.479, 17.837, 0.546)
pt3dadd(150.293, 131.576, 17.846, 0.548)
pt3dadd(150.362, 131.672, 17.855, 0.55)
pt3dadd(150.433, 131.77, 17.864, 0.554)
pt3dadd(150.514, 131.854, 17.884, 0.568)
pt3dadd(150.598, 131.935, 17.907, 0.584)
pt3dadd(150.68, 132.017, 17.931, 0.6)
pt3dadd(150.764, 132.1, 17.954, 0.616)
pt3dadd(150.847, 132.181, 17.977, 0.634)
pt3dadd(150.93, 132.263, 18, 0.65)
pt3dadd(151.014, 132.344, 18.024, 0.666)
pt3dadd(151.097, 132.426, 18.047, 0.682)
pt3dadd(151.181, 132.508, 18.07, 0.698)
pt3dadd(151.264, 132.589, 18.093, 0.716)
pt3dadd(151.354, 132.659, 18.126, 0.698)
pt3dadd(151.444, 132.727, 18.159, 0.678)
pt3dadd(151.534, 132.797, 18.192, 0.66)
pt3dadd(151.624, 132.865, 18.225, 0.642)
pt3dadd(151.714, 132.934, 18.258, 0.624)
pt3dadd(151.804, 133.003, 18.291, 0.606)
pt3dadd(151.894, 133.072, 18.323, 0.586)
pt3dadd(151.984, 133.141, 18.356, 0.568)
pt3dadd(152.074, 133.21, 18.389, 0.55)
pt3dadd(152.164, 133.279, 18.422, 0.532)
pt3dadd(152.248, 133.361, 18.445, 0.554)
pt3dadd(152.33, 133.442, 18.467, 0.576)
pt3dadd(152.414, 133.523, 18.49, 0.596)
pt3dadd(152.498, 133.604, 18.513, 0.618)
pt3dadd(152.582, 133.686, 18.535, 0.64)
pt3dadd(152.666, 133.768, 18.558, 0.66)
pt3dadd(152.749, 133.849, 18.581, 0.682)
pt3dadd(152.833, 133.931, 18.604, 0.704)
pt3dadd(152.917, 134.012, 18.626, 0.724)
pt3dadd(153, 134.095, 18.648, 0.744)
pt3dadd(153.068, 134.191, 18.665, 0.754)
pt3dadd(153.137, 134.288, 18.682, 0.762)
pt3dadd(153.205, 134.384, 18.698, 0.772)
pt3dadd(153.274, 134.48, 18.715, 0.782)
pt3dadd(153.343, 134.578, 18.732, 0.792)
pt3dadd(153.412, 134.674, 18.748, 0.8)
pt3dadd(153.48, 134.77, 18.765, 0.81)
pt3dadd(153.548, 134.866, 18.781, 0.82)
pt3dadd(153.618, 134.963, 18.798, 0.828)
pt3dadd(153.686, 135.058, 18.815, 0.836)
pt3dadd(153.763, 135.148, 18.835, 0.832)
pt3dadd(153.84, 135.236, 18.855, 0.828)
pt3dadd(153.917, 135.325, 18.875, 0.824)
pt3dadd(153.994, 135.414, 18.896, 0.82)
pt3dadd(154.07, 135.504, 18.916, 0.816)
pt3dadd(154.147, 135.593, 18.936, 0.812)
pt3dadd(154.224, 135.682, 18.956, 0.808)
pt3dadd(154.301, 135.77, 18.976, 0.804)
pt3dadd(154.376, 135.86, 18.996, 0.8)
pt3dadd(154.454, 135.946, 19.022, 0.804)
pt3dadd(154.535, 136.02, 19.063, 0.83)
pt3dadd(154.615, 136.094, 19.104, 0.856)
pt3dadd(154.696, 136.169, 19.144, 0.882)
pt3dadd(154.776, 136.243, 19.185, 0.908)
pt3dadd(154.856, 136.318, 19.226, 0.934)
pt3dadd(154.937, 136.392, 19.267, 0.96)
pt3dadd(155.017, 136.466, 19.308, 0.986)
pt3dadd(155.098, 136.541, 19.349, 1.012)
pt3dadd(155.178, 136.615, 19.389, 1.038)
pt3dadd(155.254, 136.696, 19.427, 1.052)
pt3dadd(155.321, 136.788, 19.458, 1.036)
pt3dadd(155.387, 136.88, 19.489, 1.02)
pt3dadd(155.453, 136.973, 19.521, 1.006)
pt3dadd(155.519, 137.066, 19.552, 0.99)
pt3dadd(155.586, 137.159, 19.583, 0.974)
pt3dadd(155.652, 137.251, 19.614, 0.96)
pt3dadd(155.718, 137.345, 19.645, 0.944)
pt3dadd(155.784, 137.437, 19.676, 0.93)
pt3dadd(155.851, 137.53, 19.707, 0.914)
pt3dadd(155.915, 137.623, 19.741, 0.904)
pt3dadd(155.974, 137.717, 19.78, 0.904)
pt3dadd(156.032, 137.809, 19.819, 0.904)
pt3dadd(156.091, 137.903, 19.859, 0.904)
pt3dadd(156.151, 137.996, 19.898, 0.904)
pt3dadd(156.21, 138.09, 19.937, 0.904)
pt3dadd(156.269, 138.182, 19.976, 0.904)
pt3dadd(156.328, 138.276, 20.015, 0.904)
pt3dadd(156.386, 138.37, 20.054, 0.904)
pt3dadd(156.446, 138.463, 20.093, 0.904)
pt3dadd(156.496, 138.56, 20.133, 0.884)
pt3dadd(156.534, 138.664, 20.174, 0.842)
pt3dadd(156.572, 138.766, 20.215, 0.798)
pt3dadd(156.612, 138.869, 20.255, 0.756)
pt3dadd(156.65, 138.971, 20.296, 0.714)
pt3dadd(156.689, 139.073, 20.337, 0.672)
pt3dadd(156.727, 139.176, 20.377, 0.628)
pt3dadd(156.767, 139.278, 20.418, 0.586)
pt3dadd(156.805, 139.381, 20.459, 0.544)
}
}
proc shape3d_116() {
dend_7[13] { pt3dadd(156.844, 139.483, 20.499, 0.502)
pt3dadd(156.89, 139.588, 20.53, 0.494)
pt3dadd(156.941, 139.692, 20.554, 0.518)
pt3dadd(156.992, 139.796, 20.576, 0.54)
pt3dadd(157.044, 139.902, 20.6, 0.562)
pt3dadd(157.096, 140.006, 20.623, 0.586)
pt3dadd(157.147, 140.111, 20.646, 0.608)
pt3dadd(157.199, 140.216, 20.669, 0.63)
pt3dadd(157.25, 140.321, 20.692, 0.652)
pt3dadd(157.302, 140.425, 20.715, 0.676)
pt3dadd(157.354, 140.531, 20.738, 0.698)
pt3dadd(157.396, 140.638, 20.763, 0.742)
pt3dadd(157.432, 140.748, 20.789, 0.804)
pt3dadd(157.466, 140.858, 20.815, 0.866)
pt3dadd(157.502, 140.969, 20.841, 0.928)
pt3dadd(157.537, 141.079, 20.867, 0.99)
pt3dadd(157.573, 141.19, 20.893, 1.052)
pt3dadd(157.608, 141.3, 20.92, 1.114)
pt3dadd(157.643, 141.41, 20.946, 1.176)
pt3dadd(157.679, 141.521, 20.972, 1.238)
pt3dadd(157.714, 141.631, 20.998, 1.3)
pt3dadd(157.742, 141.726, 21.051, 1.288)
pt3dadd(157.768, 141.815, 21.115, 1.246)
pt3dadd(157.793, 141.902, 21.18, 1.202)
pt3dadd(157.817, 141.991, 21.244, 1.16)
pt3dadd(157.842, 142.079, 21.308, 1.118)
pt3dadd(157.867, 142.168, 21.373, 1.074)
pt3dadd(157.892, 142.256, 21.437, 1.032)
pt3dadd(157.918, 142.344, 21.501, 0.99)
pt3dadd(157.943, 142.433, 21.566, 0.946)
pt3dadd(157.968, 142.52, 21.63, 0.904)
pt3dadd(157.998, 142.614, 21.688, 0.866)
pt3dadd(158.029, 142.709, 21.744, 0.828)
pt3dadd(158.06, 142.804, 21.799, 0.792)
pt3dadd(158.092, 142.897, 21.855, 0.756)
pt3dadd(158.124, 142.992, 21.911, 0.718)
pt3dadd(158.155, 143.087, 21.966, 0.682)
pt3dadd(158.186, 143.182, 22.022, 0.646)
pt3dadd(158.218, 143.276, 22.077, 0.608)
pt3dadd(158.25, 143.371, 22.133, 0.572)
pt3dadd(158.281, 143.466, 22.189, 0.536)
pt3dadd(158.329, 143.568, 22.22, 0.552)
pt3dadd(158.38, 143.671, 22.25, 0.574)
pt3dadd(158.429, 143.774, 22.28, 0.596)
pt3dadd(158.478, 143.878, 22.309, 0.618)
pt3dadd(158.528, 143.981, 22.339, 0.64)
pt3dadd(158.578, 144.084, 22.369, 0.662)
pt3dadd(158.628, 144.187, 22.398, 0.684)
pt3dadd(158.677, 144.29, 22.428, 0.706)
pt3dadd(158.728, 144.394, 22.458, 0.728)
pt3dadd(158.777, 144.497, 22.487, 0.75)
pt3dadd(158.824, 144.606, 22.503, 0.758)
pt3dadd(158.87, 144.715, 22.517, 0.768)
pt3dadd(158.917, 144.824, 22.532, 0.778)
pt3dadd(158.963, 144.934, 22.547, 0.788)
pt3dadd(159.01, 145.043, 22.562, 0.798)
pt3dadd(159.056, 145.152, 22.577, 0.806)
pt3dadd(159.103, 145.261, 22.592, 0.816)
pt3dadd(159.15, 145.37, 22.607, 0.826)
pt3dadd(159.197, 145.48, 22.622, 0.836)
pt3dadd(159.242, 145.589, 22.637, 0.844)
pt3dadd(159.296, 145.694, 22.652, 0.82)
pt3dadd(159.35, 145.8, 22.667, 0.796)
pt3dadd(159.403, 145.906, 22.682, 0.77)
pt3dadd(159.457, 146.012, 22.697, 0.746)
pt3dadd(159.511, 146.118, 22.712, 0.722)
pt3dadd(159.564, 146.224, 22.727, 0.696)
pt3dadd(159.618, 146.329, 22.743, 0.672)
pt3dadd(159.672, 146.435, 22.758, 0.648)
pt3dadd(159.725, 146.54, 22.773, 0.622)
pt3dadd(159.778, 146.647, 22.79, 0.596)
pt3dadd(159.811, 146.754, 22.824, 0.564)
pt3dadd(159.846, 146.861, 22.859, 0.532)
pt3dadd(159.881, 146.969, 22.893, 0.498)
pt3dadd(159.916, 147.076, 22.927, 0.466)
pt3dadd(159.95, 147.184, 22.962, 0.434)
pt3dadd(159.984, 147.29, 22.996, 0.4)
pt3dadd(160.019, 147.397, 23.031, 0.368)
pt3dadd(160.054, 147.505, 23.065, 0.334)
pt3dadd(160.088, 147.612, 23.1, 0.302)
pt3dadd(160.122, 147.72, 23.133, 0.276)
pt3dadd(160.153, 147.833, 23.155, 0.316)
pt3dadd(160.184, 147.946, 23.178, 0.354)
pt3dadd(160.216, 148.057, 23.2, 0.392)
pt3dadd(160.247, 148.17, 23.223, 0.432)
pt3dadd(160.278, 148.283, 23.245, 0.47)
pt3dadd(160.309, 148.396, 23.268, 0.508)
pt3dadd(160.34, 148.508, 23.291, 0.548)
pt3dadd(160.372, 148.621, 23.313, 0.586)
pt3dadd(160.403, 148.734, 23.335, 0.626)
pt3dadd(160.436, 148.846, 23.357, 0.656)
pt3dadd(160.487, 148.954, 23.367, 0.636)
pt3dadd(160.538, 149.062, 23.377, 0.614)
pt3dadd(160.589, 149.17, 23.388, 0.594)
pt3dadd(160.64, 149.278, 23.398, 0.572)
pt3dadd(160.691, 149.386, 23.409, 0.55)
pt3dadd(160.742, 149.494, 23.419, 0.53)
pt3dadd(160.793, 149.602, 23.429, 0.508)
pt3dadd(160.844, 149.71, 23.44, 0.486)
pt3dadd(160.895, 149.818, 23.45, 0.466)
pt3dadd(160.945, 149.926, 23.459, 0.444)
pt3dadd(160.987, 150.038, 23.461, 0.424)
pt3dadd(161.029, 150.15, 23.462, 0.402)
pt3dadd(161.071, 150.263, 23.463, 0.38)
pt3dadd(161.113, 150.376, 23.465, 0.36)
pt3dadd(161.155, 150.487, 23.466, 0.338)
pt3dadd(161.197, 150.6, 23.468, 0.316)
pt3dadd(161.239, 150.713, 23.469, 0.296)
pt3dadd(161.281, 150.824, 23.47, 0.274)
pt3dadd(161.323, 150.937, 23.472, 0.252)
pt3dadd(161.368, 151.049, 23.473, 0.242)
pt3dadd(161.424, 151.154, 23.476, 0.306)
pt3dadd(161.48, 151.26, 23.478, 0.37)
pt3dadd(161.537, 151.367, 23.481, 0.434)
pt3dadd(161.593, 151.472, 23.484, 0.498)
pt3dadd(161.65, 151.578, 23.486, 0.562)
pt3dadd(161.706, 151.684, 23.489, 0.626)
pt3dadd(161.762, 151.79, 23.491, 0.69)
pt3dadd(161.819, 151.896, 23.494, 0.754)
pt3dadd(161.875, 152.002, 23.496, 0.818)
pt3dadd(161.928, 152.108, 23.5, 0.87)
pt3dadd(161.962, 152.224, 23.507, 0.828)
pt3dadd(161.995, 152.339, 23.514, 0.786)
pt3dadd(162.028, 152.454, 23.521, 0.744)
pt3dadd(162.061, 152.568, 23.528, 0.704)
pt3dadd(162.095, 152.683, 23.535, 0.662)
pt3dadd(162.128, 152.798, 23.543, 0.62)
pt3dadd(162.161, 152.914, 23.55, 0.578)
pt3dadd(162.194, 153.029, 23.557, 0.536)
pt3dadd(162.228, 153.144, 23.564, 0.494)
pt3dadd(162.259, 153.258, 23.573, 0.462)
pt3dadd(162.277, 153.374, 23.593, 0.484)
pt3dadd(162.294, 153.491, 23.612, 0.506)
pt3dadd(162.312, 153.607, 23.632, 0.528)
pt3dadd(162.33, 153.724, 23.652, 0.55)
pt3dadd(162.347, 153.84, 23.672, 0.572)
pt3dadd(162.365, 153.956, 23.692, 0.596)
pt3dadd(162.383, 154.073, 23.711, 0.618)
pt3dadd(162.401, 154.189, 23.731, 0.64)
pt3dadd(162.418, 154.306, 23.751, 0.662)
pt3dadd(162.434, 154.418, 23.778, 0.67)
pt3dadd(162.449, 154.525, 23.822, 0.642)
pt3dadd(162.463, 154.632, 23.866, 0.616)
pt3dadd(162.478, 154.739, 23.91, 0.588)
pt3dadd(162.492, 154.846, 23.954, 0.56)
pt3dadd(162.506, 154.952, 23.999, 0.534)
pt3dadd(162.521, 155.059, 24.043, 0.506)
pt3dadd(162.535, 155.166, 24.087, 0.478)
pt3dadd(162.55, 155.273, 24.131, 0.452)
pt3dadd(162.564, 155.378, 24.175, 0.424)
pt3dadd(162.588, 155.488, 24.209, 0.412)
pt3dadd(162.628, 155.599, 24.226, 0.428)
pt3dadd(162.667, 155.71, 24.243, 0.442)
pt3dadd(162.707, 155.821, 24.26, 0.458)
pt3dadd(162.746, 155.933, 24.277, 0.474)
pt3dadd(162.787, 156.044, 24.294, 0.49)
pt3dadd(162.827, 156.156, 24.311, 0.504)
pt3dadd(162.866, 156.268, 24.328, 0.52)
pt3dadd(162.906, 156.378, 24.345, 0.536)
pt3dadd(162.946, 156.49, 24.362, 0.552)
pt3dadd(162.983, 156.604, 24.372, 0.548)
pt3dadd(163.016, 156.719, 24.374, 0.526)
pt3dadd(163.05, 156.833, 24.375, 0.504)
pt3dadd(163.084, 156.948, 24.377, 0.48)
pt3dadd(163.117, 157.063, 24.378, 0.458)
pt3dadd(163.151, 157.178, 24.38, 0.436)
pt3dadd(163.184, 157.294, 24.382, 0.412)
pt3dadd(163.218, 157.409, 24.383, 0.39)
pt3dadd(163.252, 157.524, 24.385, 0.368)
pt3dadd(163.286, 157.639, 24.387, 0.344)
pt3dadd(163.31, 157.757, 24.386, 0.328)
pt3dadd(163.327, 157.876, 24.384, 0.318)
pt3dadd(163.344, 157.994, 24.381, 0.306)
pt3dadd(163.36, 158.113, 24.379, 0.296)
pt3dadd(163.376, 158.232, 24.376, 0.284)
pt3dadd(163.393, 158.351, 24.374, 0.274)
pt3dadd(163.41, 158.47, 24.372, 0.264)
pt3dadd(163.426, 158.588, 24.369, 0.252)
pt3dadd(163.442, 158.707, 24.367, 0.242)
pt3dadd(163.459, 158.826, 24.364, 0.23)
pt3dadd(163.468, 158.945, 24.36, 0.226)
pt3dadd(163.469, 159.065, 24.354, 0.226)
pt3dadd(163.47, 159.185, 24.348, 0.226)
pt3dadd(163.471, 159.305, 24.342, 0.226)
pt3dadd(163.472, 159.425, 24.336, 0.226)
pt3dadd(163.475, 159.544, 24.33, 0.226)
pt3dadd(163.476, 159.664, 24.324, 0.226)
pt3dadd(163.477, 159.784, 24.318, 0.226)
pt3dadd(163.478, 159.904, 24.312, 0.226)
pt3dadd(163.48, 160.024, 24.306, 0.226)
pt3dadd(163.48, 160.142, 24.297, 0.226)
pt3dadd(163.476, 160.262, 24.287, 0.226)
pt3dadd(163.474, 160.381, 24.276, 0.226)
pt3dadd(163.471, 160.5, 24.265, 0.226)
pt3dadd(163.469, 160.62, 24.255, 0.226)
pt3dadd(163.465, 160.739, 24.244, 0.226)
pt3dadd(163.463, 160.859, 24.234, 0.226)
pt3dadd(163.46, 160.978, 24.223, 0.226)
pt3dadd(163.457, 161.098, 24.212, 0.226)
pt3dadd(163.454, 161.216, 24.202, 0.226)
}
}
proc shape3d_117() {
dend_7[13] { pt3dadd(163.45, 161.332, 24.178, 0.248)
pt3dadd(163.444, 161.444, 24.144, 0.288)
pt3dadd(163.439, 161.557, 24.109, 0.328)
pt3dadd(163.433, 161.67, 24.075, 0.368)
pt3dadd(163.427, 161.782, 24.04, 0.408)
pt3dadd(163.421, 161.894, 24.006, 0.448)
pt3dadd(163.415, 162.007, 23.972, 0.488)
pt3dadd(163.41, 162.12, 23.937, 0.526)
pt3dadd(163.404, 162.232, 23.903, 0.566)
pt3dadd(163.398, 162.344, 23.868, 0.606)
pt3dadd(163.387, 162.458, 23.84, 0.614)
pt3dadd(163.374, 162.575, 23.815, 0.598)
pt3dadd(163.36, 162.69, 23.79, 0.582)
pt3dadd(163.346, 162.805, 23.765, 0.566)
pt3dadd(163.332, 162.92, 23.74, 0.552)
pt3dadd(163.319, 163.036, 23.715, 0.536)
pt3dadd(163.304, 163.151, 23.691, 0.52)
pt3dadd(163.291, 163.267, 23.666, 0.504)
pt3dadd(163.277, 163.382, 23.641, 0.49)
pt3dadd(163.264, 163.498, 23.616, 0.474)
pt3dadd(163.238, 163.613, 23.601, 0.454)
pt3dadd(163.205, 163.728, 23.594, 0.43)
pt3dadd(163.172, 163.843, 23.586, 0.408)
pt3dadd(163.14, 163.958, 23.578, 0.386)
pt3dadd(163.108, 164.074, 23.57, 0.362)
pt3dadd(163.075, 164.189, 23.563, 0.34)
pt3dadd(163.043, 164.304, 23.555, 0.316)
pt3dadd(163.01, 164.419, 23.547, 0.294)
pt3dadd(162.978, 164.533, 23.54, 0.27)
pt3dadd(162.944, 164.648, 23.532, 0.248)
pt3dadd(162.878, 164.746, 23.537, 0.254)
pt3dadd(162.798, 164.833, 23.549, 0.272)
pt3dadd(162.718, 164.921, 23.56, 0.29)
pt3dadd(162.637, 165.008, 23.572, 0.31)
pt3dadd(162.556, 165.096, 23.583, 0.328)
pt3dadd(162.475, 165.184, 23.595, 0.346)
pt3dadd(162.395, 165.271, 23.606, 0.364)
pt3dadd(162.314, 165.359, 23.618, 0.384)
pt3dadd(162.233, 165.446, 23.629, 0.402)
pt3dadd(162.152, 165.535, 23.641, 0.42)
pt3dadd(162.049, 165.584, 23.663, 0.408)
pt3dadd(161.941, 165.624, 23.689, 0.388)
pt3dadd(161.832, 165.664, 23.715, 0.368)
pt3dadd(161.723, 165.703, 23.741, 0.348)
pt3dadd(161.614, 165.743, 23.767, 0.328)
pt3dadd(161.504, 165.782, 23.792, 0.306)
pt3dadd(161.396, 165.822, 23.818, 0.286)
pt3dadd(161.287, 165.862, 23.844, 0.266)
pt3dadd(161.178, 165.901, 23.87, 0.246)
pt3dadd(161.069, 165.941, 23.896, 0.226)
pt3dadd(160.967, 165.952, 23.947, 0.226)
pt3dadd(160.864, 165.961, 23.998, 0.226)
pt3dadd(160.762, 165.972, 24.05, 0.226)
pt3dadd(160.658, 165.982, 24.101, 0.226)
pt3dadd(160.556, 165.992, 24.152, 0.226)
pt3dadd(160.454, 166.003, 24.203, 0.226)
pt3dadd(160.351, 166.013, 24.255, 0.226)
pt3dadd(160.249, 166.024, 24.306, 0.226)
pt3dadd(160.146, 166.033, 24.357, 0.226)
pt3dadd(160.044, 166.044, 24.409, 0.226)
}
dend_7[14] {pt3dclear()
pt3dadd(131.915, 111.845, 20.332, 0.226)
pt3dadd(131.956, 111.845, 20.338, 0.25)
pt3dadd(132.074, 111.845, 20.355, 0.316)
pt3dadd(132.192, 111.845, 20.372, 0.382)
pt3dadd(132.311, 111.845, 20.389, 0.448)
pt3dadd(132.428, 111.845, 20.406, 0.514)
pt3dadd(132.547, 111.846, 20.423, 0.582)
pt3dadd(132.665, 111.846, 20.441, 0.648)
pt3dadd(132.784, 111.846, 20.458, 0.714)
pt3dadd(132.901, 111.847, 20.474, 0.774)
pt3dadd(133.021, 111.858, 20.483, 0.792)
pt3dadd(133.14, 111.868, 20.492, 0.808)
pt3dadd(133.259, 111.878, 20.502, 0.824)
pt3dadd(133.378, 111.889, 20.511, 0.842)
pt3dadd(133.496, 111.899, 20.52, 0.858)
pt3dadd(133.616, 111.91, 20.53, 0.874)
pt3dadd(133.735, 111.92, 20.539, 0.89)
pt3dadd(133.854, 111.93, 20.548, 0.908)
pt3dadd(133.973, 111.941, 20.557, 0.924)
pt3dadd(134.092, 111.955, 20.565, 0.932)
pt3dadd(134.207, 111.986, 20.565, 0.906)
pt3dadd(134.323, 112.017, 20.565, 0.88)
pt3dadd(134.44, 112.049, 20.565, 0.854)
pt3dadd(134.555, 112.08, 20.565, 0.828)
pt3dadd(134.671, 112.111, 20.565, 0.802)
pt3dadd(134.786, 112.142, 20.565, 0.776)
pt3dadd(134.903, 112.173, 20.565, 0.75)
pt3dadd(135.018, 112.204, 20.565, 0.724)
pt3dadd(135.134, 112.235, 20.565, 0.698)
pt3dadd(135.25, 112.267, 20.565, 0.672)
pt3dadd(135.365, 112.301, 20.565, 0.652)
pt3dadd(135.48, 112.335, 20.565, 0.63)
pt3dadd(135.595, 112.369, 20.565, 0.61)
pt3dadd(135.71, 112.402, 20.565, 0.588)
pt3dadd(135.826, 112.436, 20.566, 0.566)
pt3dadd(135.941, 112.47, 20.566, 0.546)
pt3dadd(136.056, 112.504, 20.566, 0.524)
pt3dadd(136.171, 112.538, 20.566, 0.504)
pt3dadd(136.286, 112.572, 20.566, 0.482)
pt3dadd(136.403, 112.597, 20.566, 0.46)
pt3dadd(136.523, 112.605, 20.566, 0.436)
pt3dadd(136.643, 112.613, 20.566, 0.412)
pt3dadd(136.762, 112.62, 20.566, 0.388)
pt3dadd(136.882, 112.628, 20.566, 0.362)
pt3dadd(137.002, 112.636, 20.566, 0.338)
pt3dadd(137.122, 112.644, 20.566, 0.314)
pt3dadd(137.242, 112.651, 20.566, 0.29)
pt3dadd(137.36, 112.659, 20.566, 0.266)
pt3dadd(137.48, 112.667, 20.567, 0.242)
pt3dadd(137.599, 112.661, 20.567, 0.23)
pt3dadd(137.716, 112.631, 20.567, 0.242)
pt3dadd(137.832, 112.602, 20.567, 0.252)
pt3dadd(137.948, 112.572, 20.568, 0.264)
pt3dadd(138.065, 112.542, 20.568, 0.276)
pt3dadd(138.18, 112.512, 20.568, 0.286)
pt3dadd(138.296, 112.483, 20.568, 0.298)
pt3dadd(138.413, 112.453, 20.568, 0.308)
pt3dadd(138.529, 112.423, 20.569, 0.32)
pt3dadd(138.646, 112.394, 20.569, 0.332)
pt3dadd(138.758, 112.354, 20.569, 0.342)
pt3dadd(138.869, 112.306, 20.57, 0.354)
pt3dadd(138.978, 112.258, 20.57, 0.366)
pt3dadd(139.088, 112.21, 20.57, 0.378)
pt3dadd(139.199, 112.162, 20.571, 0.39)
pt3dadd(139.308, 112.114, 20.571, 0.4)
pt3dadd(139.418, 112.066, 20.572, 0.412)
pt3dadd(139.529, 112.018, 20.572, 0.424)
pt3dadd(139.638, 111.971, 20.573, 0.436)
pt3dadd(139.748, 111.923, 20.573, 0.448)
pt3dadd(139.859, 111.874, 20.574, 0.456)
pt3dadd(139.968, 111.825, 20.575, 0.466)
pt3dadd(140.077, 111.775, 20.576, 0.474)
pt3dadd(140.186, 111.726, 20.576, 0.484)
pt3dadd(140.296, 111.676, 20.577, 0.492)
pt3dadd(140.405, 111.627, 20.578, 0.5)
pt3dadd(140.514, 111.577, 20.579, 0.51)
pt3dadd(140.623, 111.528, 20.58, 0.518)
pt3dadd(140.732, 111.478, 20.581, 0.528)
pt3dadd(140.843, 111.429, 20.582, 0.536)
pt3dadd(140.951, 111.378, 20.583, 0.544)
pt3dadd(141.059, 111.326, 20.585, 0.55)
pt3dadd(141.168, 111.275, 20.587, 0.556)
pt3dadd(141.276, 111.223, 20.589, 0.562)
pt3dadd(141.384, 111.171, 20.591, 0.57)
pt3dadd(141.492, 111.119, 20.592, 0.576)
pt3dadd(141.6, 111.068, 20.594, 0.582)
pt3dadd(141.709, 111.016, 20.596, 0.59)
pt3dadd(141.817, 110.964, 20.598, 0.596)
pt3dadd(141.925, 110.912, 20.6, 0.602)
pt3dadd(142.037, 110.87, 20.603, 0.596)
pt3dadd(142.151, 110.833, 20.607, 0.58)
pt3dadd(142.265, 110.796, 20.611, 0.564)
pt3dadd(142.379, 110.76, 20.615, 0.55)
pt3dadd(142.494, 110.723, 20.62, 0.534)
pt3dadd(142.608, 110.686, 20.624, 0.518)
pt3dadd(142.722, 110.649, 20.628, 0.504)
pt3dadd(142.836, 110.613, 20.632, 0.488)
pt3dadd(142.95, 110.576, 20.636, 0.472)
pt3dadd(143.064, 110.539, 20.64, 0.458)
pt3dadd(143.178, 110.501, 20.647, 0.456)
pt3dadd(143.291, 110.461, 20.656, 0.462)
pt3dadd(143.404, 110.421, 20.664, 0.47)
pt3dadd(143.516, 110.382, 20.672, 0.476)
pt3dadd(143.629, 110.342, 20.681, 0.482)
pt3dadd(143.742, 110.303, 20.689, 0.49)
pt3dadd(143.855, 110.263, 20.697, 0.496)
pt3dadd(143.968, 110.224, 20.706, 0.502)
pt3dadd(144.08, 110.184, 20.714, 0.51)
pt3dadd(144.193, 110.145, 20.722, 0.516)
pt3dadd(144.301, 110.095, 20.736, 0.53)
pt3dadd(144.407, 110.042, 20.753, 0.546)
pt3dadd(144.511, 109.988, 20.77, 0.562)
pt3dadd(144.617, 109.934, 20.787, 0.578)
pt3dadd(144.722, 109.88, 20.803, 0.594)
pt3dadd(144.828, 109.827, 20.82, 0.61)
pt3dadd(144.934, 109.773, 20.837, 0.626)
pt3dadd(145.039, 109.719, 20.854, 0.642)
pt3dadd(145.144, 109.665, 20.87, 0.658)
pt3dadd(145.249, 109.612, 20.887, 0.674)
pt3dadd(145.351, 109.56, 20.917, 0.678)
pt3dadd(145.452, 109.51, 20.951, 0.678)
pt3dadd(145.553, 109.459, 20.985, 0.678)
pt3dadd(145.654, 109.408, 21.019, 0.678)
pt3dadd(145.754, 109.358, 21.054, 0.678)
pt3dadd(145.855, 109.307, 21.088, 0.678)
pt3dadd(145.956, 109.257, 21.122, 0.678)
pt3dadd(146.057, 109.206, 21.156, 0.678)
pt3dadd(146.158, 109.155, 21.19, 0.678)
pt3dadd(146.258, 109.105, 21.224, 0.678)
pt3dadd(146.354, 109.04, 21.249, 0.678)
pt3dadd(146.449, 108.971, 21.271, 0.678)
pt3dadd(146.544, 108.902, 21.294, 0.678)
pt3dadd(146.638, 108.833, 21.316, 0.678)
pt3dadd(146.732, 108.764, 21.338, 0.678)
pt3dadd(146.827, 108.696, 21.361, 0.678)
pt3dadd(146.922, 108.627, 21.383, 0.678)
pt3dadd(147.017, 108.558, 21.405, 0.678)
pt3dadd(147.11, 108.489, 21.427, 0.678)
pt3dadd(147.205, 108.42, 21.45, 0.678)
pt3dadd(147.298, 108.345, 21.467, 0.692)
}
}
proc shape3d_118() {
dend_7[14] { pt3dadd(147.388, 108.269, 21.482, 0.71)
pt3dadd(147.479, 108.193, 21.497, 0.728)
pt3dadd(147.569, 108.116, 21.513, 0.744)
pt3dadd(147.66, 108.04, 21.528, 0.762)
pt3dadd(147.751, 107.964, 21.543, 0.78)
pt3dadd(147.841, 107.887, 21.559, 0.798)
pt3dadd(147.932, 107.811, 21.574, 0.816)
pt3dadd(148.022, 107.735, 21.589, 0.834)
pt3dadd(148.114, 107.658, 21.604, 0.85)
pt3dadd(148.202, 107.579, 21.616, 0.87)
pt3dadd(148.291, 107.5, 21.627, 0.89)
pt3dadd(148.38, 107.42, 21.638, 0.908)
pt3dadd(148.469, 107.34, 21.649, 0.928)
pt3dadd(148.558, 107.26, 21.66, 0.948)
pt3dadd(148.646, 107.181, 21.671, 0.966)
pt3dadd(148.735, 107.101, 21.682, 0.986)
pt3dadd(148.824, 107.021, 21.693, 1.006)
pt3dadd(148.913, 106.942, 21.704, 1.026)
pt3dadd(149.002, 106.862, 21.715, 1.044)
pt3dadd(149.089, 106.787, 21.742, 1.042)
pt3dadd(149.176, 106.713, 21.774, 1.034)
pt3dadd(149.262, 106.64, 21.806, 1.026)
pt3dadd(149.35, 106.566, 21.837, 1.018)
pt3dadd(149.436, 106.492, 21.869, 1.01)
pt3dadd(149.522, 106.419, 21.901, 1.002)
pt3dadd(149.61, 106.345, 21.932, 0.996)
pt3dadd(149.696, 106.272, 21.964, 0.988)
pt3dadd(149.783, 106.198, 21.996, 0.98)
pt3dadd(149.87, 106.124, 22.027, 0.972)
pt3dadd(149.97, 106.071, 22.061, 0.924)
pt3dadd(150.07, 106.018, 22.094, 0.876)
pt3dadd(150.17, 105.966, 22.127, 0.828)
pt3dadd(150.27, 105.913, 22.16, 0.78)
pt3dadd(150.371, 105.861, 22.194, 0.732)
pt3dadd(150.47, 105.808, 22.227, 0.684)
pt3dadd(150.571, 105.755, 22.26, 0.636)
pt3dadd(150.671, 105.703, 22.294, 0.588)
pt3dadd(150.772, 105.65, 22.327, 0.54)
pt3dadd(150.871, 105.597, 22.359, 0.492)
pt3dadd(150.97, 105.53, 22.371, 0.468)
pt3dadd(151.069, 105.463, 22.382, 0.444)
pt3dadd(151.168, 105.397, 22.394, 0.42)
pt3dadd(151.266, 105.33, 22.406, 0.396)
pt3dadd(151.366, 105.263, 22.418, 0.372)
pt3dadd(151.464, 105.197, 22.429, 0.348)
pt3dadd(151.562, 105.13, 22.441, 0.324)
pt3dadd(151.662, 105.063, 22.453, 0.298)
pt3dadd(151.76, 104.997, 22.465, 0.274)
pt3dadd(151.859, 104.929, 22.476, 0.254)
pt3dadd(151.951, 104.853, 22.477, 0.266)
pt3dadd(152.045, 104.777, 22.478, 0.28)
pt3dadd(152.137, 104.701, 22.48, 0.292)
pt3dadd(152.23, 104.625, 22.481, 0.306)
pt3dadd(152.323, 104.549, 22.482, 0.32)
pt3dadd(152.416, 104.473, 22.484, 0.332)
pt3dadd(152.508, 104.397, 22.485, 0.346)
pt3dadd(152.602, 104.321, 22.486, 0.358)
pt3dadd(152.694, 104.245, 22.488, 0.372)
pt3dadd(152.786, 104.169, 22.489, 0.386)
pt3dadd(152.878, 104.091, 22.489, 0.404)
pt3dadd(152.969, 104.012, 22.489, 0.422)
pt3dadd(153.059, 103.933, 22.49, 0.44)
pt3dadd(153.15, 103.855, 22.49, 0.456)
pt3dadd(153.24, 103.776, 22.49, 0.474)
pt3dadd(153.331, 103.698, 22.49, 0.492)
pt3dadd(153.422, 103.619, 22.49, 0.51)
pt3dadd(153.512, 103.541, 22.49, 0.528)
pt3dadd(153.604, 103.462, 22.491, 0.546)
pt3dadd(153.695, 103.384, 22.491, 0.562)
pt3dadd(153.786, 103.307, 22.491, 0.574)
pt3dadd(153.878, 103.229, 22.491, 0.586)
pt3dadd(153.97, 103.152, 22.492, 0.598)
pt3dadd(154.062, 103.075, 22.492, 0.61)
pt3dadd(154.153, 102.998, 22.493, 0.622)
pt3dadd(154.246, 102.92, 22.493, 0.632)
pt3dadd(154.337, 102.843, 22.493, 0.644)
pt3dadd(154.429, 102.766, 22.493, 0.656)
pt3dadd(154.52, 102.688, 22.494, 0.668)
pt3dadd(154.613, 102.612, 22.494, 0.678)
pt3dadd(154.71, 102.542, 22.495, 0.672)
pt3dadd(154.808, 102.472, 22.495, 0.666)
pt3dadd(154.906, 102.402, 22.496, 0.66)
pt3dadd(155.003, 102.333, 22.497, 0.654)
pt3dadd(155.101, 102.263, 22.497, 0.648)
pt3dadd(155.198, 102.193, 22.498, 0.644)
pt3dadd(155.296, 102.123, 22.499, 0.638)
pt3dadd(155.394, 102.053, 22.499, 0.632)
pt3dadd(155.491, 101.983, 22.5, 0.626)
pt3dadd(155.591, 101.917, 22.501, 0.616)
pt3dadd(155.704, 101.876, 22.502, 0.578)
pt3dadd(155.816, 101.835, 22.504, 0.542)
pt3dadd(155.929, 101.794, 22.505, 0.504)
pt3dadd(156.042, 101.753, 22.507, 0.466)
pt3dadd(156.155, 101.712, 22.508, 0.43)
pt3dadd(156.268, 101.67, 22.51, 0.392)
pt3dadd(156.379, 101.629, 22.511, 0.356)
pt3dadd(156.492, 101.588, 22.513, 0.318)
pt3dadd(156.605, 101.547, 22.514, 0.28)
pt3dadd(156.719, 101.509, 22.516, 0.252)
pt3dadd(156.836, 101.488, 22.52, 0.276)
pt3dadd(156.955, 101.468, 22.523, 0.298)
pt3dadd(157.073, 101.447, 22.527, 0.322)
pt3dadd(157.192, 101.426, 22.53, 0.346)
pt3dadd(157.309, 101.406, 22.534, 0.368)
pt3dadd(157.428, 101.385, 22.537, 0.392)
pt3dadd(157.546, 101.365, 22.541, 0.414)
pt3dadd(157.664, 101.344, 22.544, 0.438)
pt3dadd(157.782, 101.324, 22.548, 0.462)
pt3dadd(157.9, 101.303, 22.552, 0.484)
pt3dadd(158.018, 101.284, 22.56, 0.504)
pt3dadd(158.136, 101.265, 22.568, 0.524)
pt3dadd(158.255, 101.247, 22.576, 0.544)
pt3dadd(158.372, 101.228, 22.584, 0.564)
pt3dadd(158.491, 101.209, 22.592, 0.584)
pt3dadd(158.609, 101.19, 22.6, 0.602)
pt3dadd(158.726, 101.171, 22.608, 0.622)
pt3dadd(158.845, 101.152, 22.616, 0.642)
pt3dadd(158.963, 101.133, 22.624, 0.662)
pt3dadd(159.08, 101.109, 22.633, 0.678)
pt3dadd(159.191, 101.067, 22.648, 0.674)
pt3dadd(159.301, 101.024, 22.662, 0.672)
pt3dadd(159.412, 100.981, 22.677, 0.67)
pt3dadd(159.522, 100.938, 22.691, 0.668)
pt3dadd(159.634, 100.895, 22.706, 0.664)
pt3dadd(159.744, 100.852, 22.721, 0.662)
pt3dadd(159.854, 100.809, 22.735, 0.66)
pt3dadd(159.966, 100.767, 22.75, 0.656)
pt3dadd(160.076, 100.724, 22.765, 0.654)
pt3dadd(160.186, 100.685, 22.785, 0.646)
pt3dadd(160.295, 100.658, 22.822, 0.626)
pt3dadd(160.403, 100.632, 22.859, 0.604)
pt3dadd(160.511, 100.605, 22.896, 0.582)
pt3dadd(160.619, 100.579, 22.933, 0.56)
pt3dadd(160.727, 100.552, 22.971, 0.54)
pt3dadd(160.836, 100.526, 23.008, 0.518)
pt3dadd(160.944, 100.499, 23.045, 0.496)
pt3dadd(161.052, 100.472, 23.082, 0.474)
pt3dadd(161.16, 100.446, 23.119, 0.454)
pt3dadd(161.27, 100.423, 23.153, 0.432)
pt3dadd(161.384, 100.41, 23.18, 0.416)
pt3dadd(161.5, 100.397, 23.207, 0.4)
pt3dadd(161.615, 100.383, 23.233, 0.382)
pt3dadd(161.73, 100.37, 23.26, 0.366)
pt3dadd(161.845, 100.357, 23.286, 0.348)
pt3dadd(161.959, 100.344, 23.313, 0.332)
pt3dadd(162.074, 100.331, 23.339, 0.316)
pt3dadd(162.19, 100.318, 23.366, 0.298)
pt3dadd(162.305, 100.305, 23.392, 0.282)
pt3dadd(162.42, 100.295, 23.416, 0.28)
pt3dadd(162.539, 100.292, 23.435, 0.322)
pt3dadd(162.656, 100.289, 23.453, 0.362)
pt3dadd(162.774, 100.286, 23.471, 0.402)
pt3dadd(162.893, 100.284, 23.49, 0.444)
pt3dadd(163.01, 100.281, 23.508, 0.484)
pt3dadd(163.128, 100.278, 23.526, 0.526)
pt3dadd(163.246, 100.275, 23.544, 0.566)
pt3dadd(163.364, 100.272, 23.563, 0.608)
pt3dadd(163.482, 100.269, 23.581, 0.648)
pt3dadd(163.6, 100.265, 23.602, 0.68)
pt3dadd(163.714, 100.257, 23.63, 0.692)
pt3dadd(163.829, 100.248, 23.658, 0.702)
pt3dadd(163.944, 100.24, 23.685, 0.714)
pt3dadd(164.059, 100.231, 23.713, 0.724)
pt3dadd(164.173, 100.223, 23.741, 0.734)
pt3dadd(164.288, 100.215, 23.769, 0.746)
pt3dadd(164.404, 100.206, 23.797, 0.756)
pt3dadd(164.519, 100.198, 23.825, 0.768)
pt3dadd(164.633, 100.189, 23.853, 0.778)
pt3dadd(164.744, 100.175, 23.888, 0.76)
pt3dadd(164.851, 100.154, 23.93, 0.718)
pt3dadd(164.958, 100.134, 23.972, 0.674)
pt3dadd(165.066, 100.113, 24.014, 0.63)
pt3dadd(165.173, 100.093, 24.055, 0.586)
pt3dadd(165.28, 100.072, 24.097, 0.542)
pt3dadd(165.386, 100.052, 24.139, 0.498)
pt3dadd(165.494, 100.031, 24.181, 0.454)
pt3dadd(165.601, 100.011, 24.222, 0.412)
pt3dadd(165.708, 99.99, 24.264, 0.368)
pt3dadd(165.814, 99.95, 24.291, 0.342)
pt3dadd(165.919, 99.895, 24.308, 0.33)
pt3dadd(166.024, 99.84, 24.324, 0.318)
pt3dadd(166.128, 99.785, 24.341, 0.306)
pt3dadd(166.234, 99.73, 24.358, 0.292)
pt3dadd(166.338, 99.676, 24.374, 0.28)
pt3dadd(166.444, 99.621, 24.391, 0.268)
pt3dadd(166.548, 99.566, 24.408, 0.256)
pt3dadd(166.652, 99.511, 24.424, 0.242)
pt3dadd(166.758, 99.457, 24.441, 0.23)
pt3dadd(166.865, 99.405, 24.452, 0.24)
pt3dadd(166.974, 99.355, 24.459, 0.26)
pt3dadd(167.082, 99.305, 24.467, 0.282)
pt3dadd(167.191, 99.255, 24.475, 0.302)
pt3dadd(167.3, 99.205, 24.482, 0.322)
pt3dadd(167.408, 99.155, 24.49, 0.344)
pt3dadd(167.518, 99.105, 24.498, 0.364)
pt3dadd(167.626, 99.055, 24.505, 0.384)
pt3dadd(167.735, 99.005, 24.513, 0.406)
pt3dadd(167.843, 98.955, 24.52, 0.426)
pt3dadd(167.945, 98.892, 24.53, 0.434)
pt3dadd(168.043, 98.824, 24.54, 0.436)
}
}
proc shape3d_119() {
dend_7[14] { pt3dadd(168.142, 98.757, 24.551, 0.438)
pt3dadd(168.239, 98.689, 24.561, 0.44)
pt3dadd(168.337, 98.621, 24.571, 0.442)
pt3dadd(168.436, 98.553, 24.582, 0.444)
pt3dadd(168.534, 98.485, 24.592, 0.446)
pt3dadd(168.632, 98.417, 24.602, 0.448)
pt3dadd(168.731, 98.349, 24.613, 0.45)
pt3dadd(168.828, 98.282, 24.623, 0.452)
pt3dadd(168.918, 98.214, 24.655, 0.452)
pt3dadd(169.003, 98.146, 24.696, 0.454)
pt3dadd(169.09, 98.078, 24.737, 0.454)
pt3dadd(169.175, 98.01, 24.778, 0.454)
pt3dadd(169.261, 97.941, 24.819, 0.456)
pt3dadd(169.346, 97.873, 24.86, 0.456)
pt3dadd(169.432, 97.805, 24.901, 0.456)
pt3dadd(169.518, 97.737, 24.942, 0.458)
pt3dadd(169.603, 97.669, 24.983, 0.458)
pt3dadd(169.69, 97.601, 25.024, 0.458)
pt3dadd(169.774, 97.522, 25.051, 0.476)
pt3dadd(169.856, 97.441, 25.074, 0.498)
pt3dadd(169.94, 97.359, 25.096, 0.52)
pt3dadd(170.024, 97.277, 25.119, 0.542)
pt3dadd(170.107, 97.196, 25.142, 0.562)
pt3dadd(170.191, 97.114, 25.165, 0.584)
pt3dadd(170.274, 97.032, 25.188, 0.606)
pt3dadd(170.358, 96.951, 25.211, 0.628)
pt3dadd(170.442, 96.869, 25.233, 0.65)
pt3dadd(170.525, 96.787, 25.256, 0.672)
pt3dadd(170.611, 96.705, 25.268, 0.662)
pt3dadd(170.696, 96.622, 25.277, 0.642)
pt3dadd(170.783, 96.539, 25.287, 0.624)
pt3dadd(170.869, 96.456, 25.296, 0.606)
pt3dadd(170.956, 96.373, 25.305, 0.586)
pt3dadd(171.042, 96.291, 25.314, 0.568)
pt3dadd(171.127, 96.208, 25.323, 0.55)
pt3dadd(171.214, 96.125, 25.332, 0.532)
pt3dadd(171.3, 96.042, 25.341, 0.512)
pt3dadd(171.386, 95.959, 25.35, 0.494)
pt3dadd(171.474, 95.877, 25.354, 0.486)
pt3dadd(171.562, 95.796, 25.355, 0.482)
pt3dadd(171.649, 95.714, 25.357, 0.48)
pt3dadd(171.737, 95.633, 25.359, 0.476)
pt3dadd(171.826, 95.551, 25.361, 0.472)
pt3dadd(171.913, 95.469, 25.363, 0.468)
pt3dadd(172.001, 95.388, 25.365, 0.464)
pt3dadd(172.09, 95.306, 25.366, 0.46)
pt3dadd(172.177, 95.224, 25.368, 0.456)
pt3dadd(172.265, 95.143, 25.37, 0.452)
pt3dadd(172.355, 95.063, 25.371, 0.46)
pt3dadd(172.444, 94.983, 25.371, 0.468)
pt3dadd(172.534, 94.903, 25.371, 0.476)
pt3dadd(172.624, 94.824, 25.371, 0.486)
pt3dadd(172.714, 94.744, 25.371, 0.494)
pt3dadd(172.802, 94.664, 25.371, 0.504)
pt3dadd(172.892, 94.585, 25.371, 0.512)
pt3dadd(172.982, 94.505, 25.371, 0.522)
pt3dadd(173.072, 94.425, 25.371, 0.53)
pt3dadd(173.162, 94.346, 25.371, 0.54)
pt3dadd(173.256, 94.271, 25.371, 0.552)
pt3dadd(173.351, 94.197, 25.372, 0.566)
pt3dadd(173.444, 94.123, 25.372, 0.58)
pt3dadd(173.539, 94.05, 25.372, 0.594)
pt3dadd(173.634, 93.976, 25.372, 0.606)
pt3dadd(173.729, 93.902, 25.372, 0.62)
pt3dadd(173.824, 93.828, 25.372, 0.634)
pt3dadd(173.918, 93.755, 25.372, 0.648)
pt3dadd(174.013, 93.681, 25.372, 0.662)
pt3dadd(174.108, 93.607, 25.373, 0.676)
pt3dadd(174.211, 93.546, 25.373, 0.68)
pt3dadd(174.316, 93.488, 25.373, 0.682)
pt3dadd(174.42, 93.429, 25.373, 0.686)
pt3dadd(174.524, 93.37, 25.374, 0.688)
pt3dadd(174.63, 93.312, 25.374, 0.692)
pt3dadd(174.734, 93.253, 25.374, 0.694)
pt3dadd(174.839, 93.195, 25.375, 0.696)
pt3dadd(174.944, 93.136, 25.375, 0.7)
pt3dadd(175.049, 93.077, 25.375, 0.702)
pt3dadd(175.153, 93.019, 25.375, 0.704)
pt3dadd(175.255, 92.955, 25.376, 0.722)
pt3dadd(175.356, 92.891, 25.376, 0.742)
pt3dadd(175.458, 92.826, 25.377, 0.762)
pt3dadd(175.559, 92.762, 25.378, 0.782)
pt3dadd(175.661, 92.698, 25.378, 0.802)
pt3dadd(175.762, 92.634, 25.379, 0.82)
pt3dadd(175.862, 92.569, 25.379, 0.84)
pt3dadd(175.964, 92.505, 25.38, 0.86)
pt3dadd(176.065, 92.44, 25.38, 0.88)
pt3dadd(176.167, 92.376, 25.381, 0.9)
pt3dadd(176.267, 92.31, 25.382, 0.87)
pt3dadd(176.368, 92.244, 25.383, 0.83)
pt3dadd(176.467, 92.178, 25.384, 0.792)
pt3dadd(176.567, 92.112, 25.385, 0.752)
pt3dadd(176.668, 92.045, 25.387, 0.712)
pt3dadd(176.767, 91.979, 25.388, 0.674)
pt3dadd(176.867, 91.913, 25.389, 0.634)
pt3dadd(176.968, 91.847, 25.39, 0.594)
pt3dadd(177.067, 91.78, 25.391, 0.554)
pt3dadd(177.168, 91.714, 25.393, 0.516)
pt3dadd(177.276, 91.664, 25.395, 0.488)
pt3dadd(177.386, 91.618, 25.397, 0.464)
pt3dadd(177.497, 91.571, 25.4, 0.438)
pt3dadd(177.608, 91.524, 25.402, 0.414)
pt3dadd(177.719, 91.478, 25.405, 0.39)
pt3dadd(177.829, 91.431, 25.407, 0.364)
pt3dadd(177.94, 91.384, 25.41, 0.34)
pt3dadd(178.05, 91.338, 25.412, 0.316)
pt3dadd(178.16, 91.291, 25.415, 0.29)
pt3dadd(178.271, 91.244, 25.417, 0.266)
pt3dadd(178.387, 91.218, 25.423, 0.26)
pt3dadd(178.505, 91.194, 25.43, 0.256)
pt3dadd(178.622, 91.17, 25.436, 0.252)
pt3dadd(178.74, 91.147, 25.442, 0.248)
pt3dadd(178.858, 91.123, 25.449, 0.244)
pt3dadd(178.974, 91.1, 25.455, 0.242)
pt3dadd(179.092, 91.076, 25.461, 0.238)
pt3dadd(179.209, 91.053, 25.468, 0.234)
pt3dadd(179.327, 91.029, 25.474, 0.23)
pt3dadd(179.444, 91.005, 25.48, 0.226)
pt3dadd(179.562, 90.99, 25.491, 0.246)
pt3dadd(179.681, 90.975, 25.503, 0.266)
pt3dadd(179.798, 90.96, 25.515, 0.288)
pt3dadd(179.917, 90.945, 25.526, 0.31)
pt3dadd(180.035, 90.93, 25.538, 0.332)
pt3dadd(180.154, 90.915, 25.549, 0.354)
pt3dadd(180.272, 90.9, 25.561, 0.374)
pt3dadd(180.39, 90.885, 25.572, 0.396)
pt3dadd(180.509, 90.871, 25.584, 0.418)
pt3dadd(180.626, 90.856, 25.595, 0.44)
pt3dadd(180.734, 90.829, 25.632, 0.422)
pt3dadd(180.842, 90.802, 25.67, 0.4)
pt3dadd(180.949, 90.774, 25.709, 0.38)
pt3dadd(181.056, 90.747, 25.748, 0.358)
pt3dadd(181.163, 90.719, 25.787, 0.336)
pt3dadd(181.27, 90.691, 25.826, 0.314)
pt3dadd(181.378, 90.664, 25.865, 0.294)
pt3dadd(181.484, 90.636, 25.904, 0.272)
pt3dadd(181.591, 90.609, 25.943, 0.25)
pt3dadd(181.698, 90.581, 25.982, 0.228)
pt3dadd(181.792, 90.513, 26.008, 0.23)
pt3dadd(181.884, 90.443, 26.032, 0.232)
pt3dadd(181.975, 90.372, 26.057, 0.234)
pt3dadd(182.068, 90.301, 26.082, 0.236)
pt3dadd(182.16, 90.23, 26.106, 0.238)
pt3dadd(182.252, 90.159, 26.131, 0.24)
pt3dadd(182.345, 90.088, 26.155, 0.244)
pt3dadd(182.436, 90.017, 26.18, 0.246)
pt3dadd(182.528, 89.946, 26.205, 0.248)
pt3dadd(182.621, 89.875, 26.23, 0.25)
pt3dadd(182.669, 89.766, 26.24, 0.294)
pt3dadd(182.718, 89.657, 26.25, 0.336)
pt3dadd(182.766, 89.548, 26.26, 0.378)
pt3dadd(182.815, 89.439, 26.27, 0.422)
pt3dadd(182.863, 89.33, 26.28, 0.464)
pt3dadd(182.911, 89.22, 26.29, 0.506)
pt3dadd(182.96, 89.111, 26.3, 0.55)
pt3dadd(183.008, 89.002, 26.31, 0.592)
pt3dadd(183.058, 88.893, 26.32, 0.636)
pt3dadd(183.106, 88.784, 26.33, 0.678)
}
dend_7[15] {pt3dclear()
pt3dadd(115.072, 108.515, 19.604, 1.356)
pt3dadd(115.114, 108.51, 19.639, 1.34)
pt3dadd(115.198, 108.501, 19.71, 1.306)
pt3dadd(115.283, 108.491, 19.78, 1.274)
pt3dadd(115.368, 108.482, 19.851, 1.24)
pt3dadd(115.452, 108.473, 19.921, 1.206)
pt3dadd(115.537, 108.463, 19.992, 1.174)
pt3dadd(115.623, 108.449, 20.059, 1.14)
pt3dadd(115.716, 108.417, 20.116, 1.104)
pt3dadd(115.809, 108.385, 20.173, 1.068)
pt3dadd(115.903, 108.352, 20.23, 1.034)
pt3dadd(115.996, 108.32, 20.288, 0.998)
pt3dadd(116.089, 108.288, 20.345, 0.962)
pt3dadd(116.182, 108.256, 20.402, 0.926)
pt3dadd(116.275, 108.224, 20.459, 0.892)
pt3dadd(116.368, 108.192, 20.516, 0.856)
pt3dadd(116.461, 108.153, 20.566, 0.82)
pt3dadd(116.546, 108.068, 20.566, 0.79)
pt3dadd(116.631, 107.984, 20.566, 0.76)
pt3dadd(116.716, 107.899, 20.567, 0.73)
pt3dadd(116.801, 107.815, 20.567, 0.7)
pt3dadd(116.886, 107.73, 20.568, 0.67)
pt3dadd(116.972, 107.646, 20.568, 0.64)
pt3dadd(117.057, 107.561, 20.568, 0.61)
pt3dadd(117.142, 107.477, 20.569, 0.58)
pt3dadd(117.227, 107.392, 20.569, 0.55)
pt3dadd(117.312, 107.307, 20.569, 0.522)
pt3dadd(117.397, 107.223, 20.57, 0.5)
pt3dadd(117.483, 107.139, 20.57, 0.478)
pt3dadd(117.568, 107.054, 20.571, 0.458)
pt3dadd(117.653, 106.97, 20.571, 0.436)
pt3dadd(117.738, 106.885, 20.572, 0.414)
pt3dadd(117.823, 106.8, 20.572, 0.392)
pt3dadd(117.909, 106.716, 20.573, 0.372)
pt3dadd(117.994, 106.632, 20.573, 0.35)
pt3dadd(118.079, 106.547, 20.574, 0.328)
pt3dadd(118.164, 106.463, 20.574, 0.308)
pt3dadd(118.25, 106.378, 20.575, 0.3)
pt3dadd(118.335, 106.294, 20.576, 0.292)
pt3dadd(118.421, 106.21, 20.577, 0.284)
pt3dadd(118.506, 106.126, 20.577, 0.276)
pt3dadd(118.592, 106.041, 20.578, 0.266)
}
}
proc shape3d_120() {
dend_7[15] { pt3dadd(118.677, 105.957, 20.579, 0.258)
pt3dadd(118.762, 105.873, 20.58, 0.25)
pt3dadd(118.848, 105.789, 20.58, 0.242)
pt3dadd(118.933, 105.704, 20.581, 0.234)
pt3dadd(119.019, 105.62, 20.582, 0.226)
pt3dadd(119.105, 105.536, 20.583, 0.23)
pt3dadd(119.19, 105.452, 20.585, 0.234)
pt3dadd(119.276, 105.369, 20.586, 0.238)
pt3dadd(119.362, 105.285, 20.587, 0.24)
pt3dadd(119.448, 105.201, 20.588, 0.244)
pt3dadd(119.534, 105.117, 20.59, 0.248)
pt3dadd(119.619, 105.033, 20.591, 0.252)
pt3dadd(119.705, 104.949, 20.592, 0.254)
pt3dadd(119.791, 104.865, 20.593, 0.258)
pt3dadd(119.877, 104.781, 20.595, 0.264)
pt3dadd(119.963, 104.698, 20.597, 0.28)
pt3dadd(120.049, 104.615, 20.599, 0.298)
pt3dadd(120.136, 104.532, 20.601, 0.314)
pt3dadd(120.222, 104.448, 20.603, 0.332)
pt3dadd(120.308, 104.365, 20.605, 0.348)
pt3dadd(120.395, 104.282, 20.607, 0.366)
pt3dadd(120.481, 104.199, 20.609, 0.382)
pt3dadd(120.568, 104.115, 20.611, 0.4)
pt3dadd(120.654, 104.032, 20.613, 0.416)
pt3dadd(120.74, 103.949, 20.616, 0.434)
pt3dadd(120.829, 103.868, 20.621, 0.45)
pt3dadd(120.918, 103.787, 20.625, 0.468)
pt3dadd(121.006, 103.706, 20.63, 0.484)
pt3dadd(121.094, 103.625, 20.635, 0.502)
pt3dadd(121.182, 103.544, 20.64, 0.52)
pt3dadd(121.271, 103.463, 20.645, 0.536)
pt3dadd(121.358, 103.382, 20.65, 0.554)
pt3dadd(121.447, 103.3, 20.655, 0.572)
pt3dadd(121.536, 103.219, 20.659, 0.588)
pt3dadd(121.624, 103.139, 20.665, 0.606)
pt3dadd(121.714, 103.06, 20.672, 0.612)
pt3dadd(121.804, 102.981, 20.679, 0.62)
pt3dadd(121.894, 102.902, 20.687, 0.628)
pt3dadd(121.985, 102.823, 20.694, 0.634)
pt3dadd(122.075, 102.745, 20.701, 0.642)
pt3dadd(122.165, 102.666, 20.709, 0.65)
pt3dadd(122.255, 102.587, 20.716, 0.656)
pt3dadd(122.345, 102.508, 20.724, 0.664)
pt3dadd(122.435, 102.429, 20.731, 0.672)
pt3dadd(122.525, 102.352, 20.74, 0.676)
pt3dadd(122.621, 102.282, 20.756, 0.664)
pt3dadd(122.716, 102.211, 20.773, 0.652)
pt3dadd(122.81, 102.141, 20.79, 0.64)
pt3dadd(122.906, 102.071, 20.807, 0.628)
pt3dadd(123.001, 102.001, 20.824, 0.614)
pt3dadd(123.096, 101.931, 20.841, 0.602)
pt3dadd(123.192, 101.86, 20.858, 0.59)
pt3dadd(123.287, 101.79, 20.875, 0.578)
pt3dadd(123.382, 101.72, 20.891, 0.566)
pt3dadd(123.479, 101.654, 20.912, 0.55)
pt3dadd(123.58, 101.601, 20.944, 0.522)
pt3dadd(123.68, 101.548, 20.976, 0.496)
pt3dadd(123.781, 101.495, 21.007, 0.47)
pt3dadd(123.882, 101.442, 21.039, 0.442)
pt3dadd(123.982, 101.389, 21.071, 0.416)
pt3dadd(124.082, 101.336, 21.103, 0.39)
pt3dadd(124.183, 101.283, 21.135, 0.362)
pt3dadd(124.284, 101.23, 21.166, 0.336)
pt3dadd(124.385, 101.177, 21.198, 0.31)
pt3dadd(124.486, 101.122, 21.227, 0.3)
pt3dadd(124.586, 101.062, 21.248, 0.34)
pt3dadd(124.687, 101.002, 21.269, 0.378)
pt3dadd(124.788, 100.942, 21.29, 0.418)
pt3dadd(124.889, 100.882, 21.311, 0.456)
pt3dadd(124.99, 100.821, 21.332, 0.496)
pt3dadd(125.089, 100.761, 21.353, 0.536)
pt3dadd(125.19, 100.701, 21.375, 0.574)
pt3dadd(125.291, 100.641, 21.396, 0.614)
pt3dadd(125.392, 100.581, 21.417, 0.652)
pt3dadd(125.495, 100.525, 21.435, 0.688)
pt3dadd(125.605, 100.48, 21.447, 0.708)
pt3dadd(125.716, 100.435, 21.458, 0.73)
pt3dadd(125.827, 100.391, 21.47, 0.752)
pt3dadd(125.938, 100.346, 21.481, 0.774)
pt3dadd(126.048, 100.302, 21.493, 0.796)
pt3dadd(126.158, 100.257, 21.504, 0.818)
pt3dadd(126.269, 100.212, 21.516, 0.838)
pt3dadd(126.379, 100.168, 21.528, 0.86)
pt3dadd(126.49, 100.123, 21.539, 0.882)
pt3dadd(126.599, 100.074, 21.548, 0.898)
pt3dadd(126.701, 100.012, 21.551, 0.898)
pt3dadd(126.804, 99.95, 21.554, 0.9)
pt3dadd(126.907, 99.888, 21.556, 0.9)
pt3dadd(127.009, 99.827, 21.559, 0.9)
pt3dadd(127.112, 99.765, 21.562, 0.902)
pt3dadd(127.216, 99.703, 21.565, 0.902)
pt3dadd(127.318, 99.641, 21.567, 0.902)
pt3dadd(127.421, 99.579, 21.57, 0.904)
pt3dadd(127.524, 99.518, 21.573, 0.904)
pt3dadd(127.628, 99.459, 21.576, 0.904)
pt3dadd(127.738, 99.411, 21.582, 0.904)
pt3dadd(127.847, 99.362, 21.588, 0.904)
pt3dadd(127.957, 99.314, 21.594, 0.904)
pt3dadd(128.066, 99.265, 21.6, 0.904)
pt3dadd(128.176, 99.217, 21.606, 0.904)
pt3dadd(128.285, 99.168, 21.612, 0.904)
pt3dadd(128.395, 99.12, 21.618, 0.904)
pt3dadd(128.504, 99.072, 21.623, 0.904)
pt3dadd(128.614, 99.023, 21.629, 0.904)
pt3dadd(128.722, 98.971, 21.636, 0.9)
pt3dadd(128.825, 98.911, 21.646, 0.884)
pt3dadd(128.928, 98.85, 21.655, 0.866)
pt3dadd(129.031, 98.789, 21.664, 0.85)
pt3dadd(129.133, 98.729, 21.673, 0.834)
pt3dadd(129.236, 98.668, 21.683, 0.818)
pt3dadd(129.34, 98.607, 21.692, 0.802)
pt3dadd(129.443, 98.547, 21.701, 0.786)
pt3dadd(129.546, 98.486, 21.71, 0.77)
pt3dadd(129.648, 98.426, 21.72, 0.754)
pt3dadd(129.751, 98.367, 21.734, 0.748)
pt3dadd(129.853, 98.313, 21.761, 0.77)
pt3dadd(129.955, 98.258, 21.788, 0.79)
pt3dadd(130.057, 98.204, 21.814, 0.812)
pt3dadd(130.159, 98.15, 21.841, 0.832)
pt3dadd(130.261, 98.095, 21.867, 0.854)
pt3dadd(130.364, 98.041, 21.894, 0.874)
pt3dadd(130.466, 97.987, 21.921, 0.896)
pt3dadd(130.568, 97.932, 21.947, 0.916)
pt3dadd(130.67, 97.878, 21.974, 0.938)
pt3dadd(130.771, 97.821, 22.001, 0.95)
pt3dadd(130.87, 97.761, 22.028, 0.944)
pt3dadd(130.968, 97.7, 22.055, 0.94)
pt3dadd(131.066, 97.64, 22.082, 0.936)
pt3dadd(131.164, 97.579, 22.11, 0.93)
pt3dadd(131.262, 97.518, 22.137, 0.926)
pt3dadd(131.36, 97.458, 22.164, 0.922)
pt3dadd(131.459, 97.397, 22.191, 0.918)
pt3dadd(131.557, 97.337, 22.218, 0.912)
pt3dadd(131.656, 97.276, 22.245, 0.908)
pt3dadd(131.752, 97.21, 22.267, 0.89)
pt3dadd(131.844, 97.136, 22.283, 0.852)
pt3dadd(131.936, 97.061, 22.298, 0.816)
pt3dadd(132.029, 96.987, 22.313, 0.78)
pt3dadd(132.121, 96.913, 22.328, 0.742)
pt3dadd(132.214, 96.839, 22.344, 0.706)
pt3dadd(132.307, 96.765, 22.359, 0.668)
pt3dadd(132.4, 96.69, 22.374, 0.632)
pt3dadd(132.492, 96.616, 22.389, 0.596)
pt3dadd(132.584, 96.542, 22.405, 0.558)
pt3dadd(132.674, 96.465, 22.416, 0.524)
pt3dadd(132.764, 96.385, 22.424, 0.494)
pt3dadd(132.853, 96.305, 22.431, 0.462)
pt3dadd(132.942, 96.225, 22.438, 0.43)
pt3dadd(133.031, 96.145, 22.446, 0.4)
pt3dadd(133.12, 96.065, 22.453, 0.368)
pt3dadd(133.208, 95.985, 22.461, 0.336)
pt3dadd(133.297, 95.904, 22.468, 0.306)
pt3dadd(133.386, 95.824, 22.475, 0.274)
pt3dadd(133.476, 95.744, 22.483, 0.242)
pt3dadd(133.577, 95.687, 22.487, 0.254)
pt3dadd(133.692, 95.654, 22.489, 0.31)
pt3dadd(133.808, 95.621, 22.491, 0.368)
pt3dadd(133.924, 95.588, 22.493, 0.424)
pt3dadd(134.039, 95.555, 22.494, 0.48)
pt3dadd(134.154, 95.522, 22.496, 0.538)
pt3dadd(134.269, 95.489, 22.498, 0.594)
pt3dadd(134.384, 95.456, 22.499, 0.65)
pt3dadd(134.5, 95.423, 22.5, 0.678)
pt3dadd(134.615, 95.39, 22.5, 0.678)
pt3dadd(134.731, 95.357, 22.5, 0.678)
pt3dadd(134.846, 95.324, 22.5, 0.678)
pt3dadd(134.962, 95.291, 22.5, 0.678)
pt3dadd(135.077, 95.258, 22.5, 0.678)
pt3dadd(135.191, 95.22, 22.5, 0.678)
pt3dadd(135.305, 95.182, 22.5, 0.678)
pt3dadd(135.418, 95.143, 22.5, 0.678)
pt3dadd(135.532, 95.104, 22.5, 0.678)
pt3dadd(135.646, 95.066, 22.5, 0.678)
pt3dadd(135.751, 95.013, 22.5, 0.678)
pt3dadd(135.842, 94.936, 22.5, 0.678)
pt3dadd(135.934, 94.858, 22.5, 0.678)
pt3dadd(136.025, 94.78, 22.5, 0.678)
pt3dadd(136.116, 94.702, 22.5, 0.678)
pt3dadd(136.21, 94.626, 22.5, 0.678)
pt3dadd(136.306, 94.554, 22.5, 0.678)
pt3dadd(136.402, 94.482, 22.5, 0.678)
pt3dadd(136.498, 94.41, 22.5, 0.678)
pt3dadd(136.594, 94.338, 22.5, 0.678)
pt3dadd(136.688, 94.265, 22.5, 0.678)
pt3dadd(136.782, 94.19, 22.5, 0.678)
pt3dadd(136.876, 94.115, 22.5, 0.678)
pt3dadd(136.97, 94.041, 22.5, 0.678)
pt3dadd(137.064, 93.966, 22.5, 0.678)
pt3dadd(137.147, 93.881, 22.5, 0.678)
pt3dadd(137.215, 93.782, 22.5, 0.678)
pt3dadd(137.273, 93.679, 22.5, 0.678)
pt3dadd(137.299, 93.562, 22.5, 0.678)
pt3dadd(137.326, 93.445, 22.5, 0.678)
pt3dadd(137.416, 93.384, 22.5, 0.678)
pt3dadd(137.528, 93.345, 22.5, 0.678)
pt3dadd(137.642, 93.305, 22.5, 0.678)
pt3dadd(137.755, 93.266, 22.5, 0.678)
pt3dadd(137.868, 93.225, 22.501, 0.678)
pt3dadd(137.952, 93.15, 22.534, 0.678)
pt3dadd(138.037, 93.075, 22.567, 0.678)
}
}
proc shape3d_121() {
dend_7[15] { pt3dadd(138.121, 92.999, 22.601, 0.678)
pt3dadd(138.198, 92.938, 22.658, 0.678)
pt3dadd(138.286, 92.889, 22.7, 0.678)
pt3dadd(138.406, 92.878, 22.7, 0.678)
pt3dadd(138.526, 92.874, 22.7, 0.678)
pt3dadd(138.646, 92.869, 22.7, 0.678)
pt3dadd(138.754, 92.842, 22.721, 0.678)
pt3dadd(138.848, 92.79, 22.764, 0.678)
pt3dadd(138.919, 92.765, 22.836, 0.678)
pt3dadd(138.978, 92.752, 22.923, 0.678)
pt3dadd(139.054, 92.698, 22.97, 0.678)
pt3dadd(139.139, 92.619, 22.994, 0.678)
pt3dadd(139.2, 92.519, 23, 0.678)
pt3dadd(139.26, 92.421, 23.013, 0.678)
pt3dadd(139.336, 92.349, 23.062, 0.678)
pt3dadd(139.411, 92.277, 23.111, 0.678)
pt3dadd(139.487, 92.204, 23.161, 0.678)
pt3dadd(139.568, 92.137, 23.204, 0.678)
pt3dadd(139.675, 92.088, 23.226, 0.678)
pt3dadd(139.781, 92.039, 23.248, 0.678)
pt3dadd(139.888, 91.99, 23.269, 0.678)
pt3dadd(139.994, 91.941, 23.291, 0.678)
pt3dadd(140.096, 91.92, 23.332, 0.678)
pt3dadd(140.195, 91.92, 23.389, 0.678)
pt3dadd(140.293, 91.899, 23.44, 0.678)
pt3dadd(140.388, 91.847, 23.483, 0.678)
pt3dadd(140.476, 91.774, 23.5, 0.678)
pt3dadd(140.557, 91.686, 23.5, 0.678)
pt3dadd(140.616, 91.586, 23.5, 0.678)
pt3dadd(140.648, 91.47, 23.5, 0.678)
pt3dadd(140.683, 91.356, 23.5, 0.678)
pt3dadd(140.774, 91.277, 23.5, 0.678)
pt3dadd(140.864, 91.198, 23.5, 0.678)
pt3dadd(140.954, 91.119, 23.5, 0.678)
pt3dadd(141.053, 91.054, 23.508, 0.678)
pt3dadd(141.158, 91.001, 23.525, 0.678)
pt3dadd(141.257, 90.952, 23.56, 0.678)
pt3dadd(141.323, 90.858, 23.579, 0.678)
pt3dadd(141.386, 90.757, 23.594, 0.678)
pt3dadd(141.449, 90.657, 23.608, 0.678)
pt3dadd(141.512, 90.556, 23.622, 0.678)
pt3dadd(141.574, 90.455, 23.637, 0.678)
pt3dadd(141.63, 90.35, 23.651, 0.678)
pt3dadd(141.686, 90.246, 23.665, 0.678)
pt3dadd(141.744, 90.141, 23.679, 0.678)
pt3dadd(141.8, 90.037, 23.693, 0.678)
pt3dadd(141.832, 89.925, 23.709, 0.678)
pt3dadd(141.841, 89.807, 23.727, 0.678)
pt3dadd(141.851, 89.69, 23.745, 0.678)
pt3dadd(141.859, 89.572, 23.762, 0.678)
pt3dadd(141.869, 89.454, 23.78, 0.678)
pt3dadd(141.878, 89.336, 23.798, 0.678)
pt3dadd(141.931, 89.233, 23.819, 0.678)
pt3dadd(141.99, 89.133, 23.841, 0.678)
pt3dadd(142.05, 89.032, 23.864, 0.678)
pt3dadd(142.109, 88.931, 23.886, 0.678)
pt3dadd(142.156, 88.824, 23.9, 0.678)
pt3dadd(142.181, 88.707, 23.9, 0.678)
pt3dadd(142.206, 88.589, 23.9, 0.678)
pt3dadd(142.23, 88.472, 23.9, 0.678)
pt3dadd(142.255, 88.355, 23.9, 0.678)
pt3dadd(142.28, 88.237, 23.9, 0.678)
pt3dadd(142.325, 88.129, 23.9, 0.678)
pt3dadd(142.394, 88.03, 23.9, 0.678)
pt3dadd(142.463, 87.932, 23.9, 0.678)
pt3dadd(142.532, 87.834, 23.9, 0.678)
pt3dadd(142.601, 87.736, 23.9, 0.678)
pt3dadd(142.669, 87.637, 23.9, 0.678)
pt3dadd(142.738, 87.538, 23.9, 0.678)
pt3dadd(142.789, 87.434, 23.9, 0.678)
pt3dadd(142.799, 87.314, 23.9, 0.678)
pt3dadd(142.808, 87.195, 23.9, 0.678)
pt3dadd(142.861, 87.1, 23.9, 0.678)
pt3dadd(142.961, 87.032, 23.9, 0.678)
pt3dadd(143.06, 86.967, 23.9, 0.678)
pt3dadd(143.165, 86.906, 23.9, 0.678)
pt3dadd(143.266, 86.844, 23.904, 0.678)
pt3dadd(143.357, 86.774, 23.933, 0.678)
pt3dadd(143.449, 86.705, 23.962, 0.678)
pt3dadd(143.537, 86.632, 23.989, 0.678)
pt3dadd(143.578, 86.519, 23.994, 0.678)
pt3dadd(143.62, 86.407, 23.999, 0.678)
pt3dadd(143.64, 86.29, 24.012, 0.678)
pt3dadd(143.64, 86.177, 24.045, 0.678)
pt3dadd(143.64, 86.064, 24.078, 0.678)
pt3dadd(143.64, 85.957, 24.123, 0.678)
pt3dadd(143.64, 85.854, 24.174, 0.678)
pt3dadd(143.642, 85.749, 24.222, 0.678)
pt3dadd(143.65, 85.643, 24.269, 0.678)
pt3dadd(143.669, 85.536, 24.3, 0.678)
pt3dadd(143.716, 85.425, 24.3, 0.678)
pt3dadd(143.765, 85.316, 24.3, 0.678)
pt3dadd(143.849, 85.231, 24.3, 0.678)
pt3dadd(143.928, 85.141, 24.305, 0.678)
pt3dadd(144.004, 85.048, 24.312, 0.678)
pt3dadd(144.08, 84.956, 24.319, 0.678)
pt3dadd(144.156, 84.863, 24.326, 0.678)
pt3dadd(144.232, 84.771, 24.333, 0.678)
pt3dadd(144.296, 84.681, 24.369, 0.678)
pt3dadd(144.36, 84.591, 24.409, 0.678)
pt3dadd(144.425, 84.501, 24.449, 0.678)
pt3dadd(144.488, 84.412, 24.489, 0.678)
pt3dadd(144.535, 84.305, 24.5, 0.678)
pt3dadd(144.575, 84.192, 24.5, 0.678)
pt3dadd(144.614, 84.079, 24.5, 0.678)
pt3dadd(144.654, 83.966, 24.5, 0.678)
pt3dadd(144.694, 83.853, 24.5, 0.678)
pt3dadd(144.77, 83.792, 24.558, 0.678)
pt3dadd(144.836, 83.721, 24.615, 0.678)
pt3dadd(144.872, 83.627, 24.669, 0.678)
pt3dadd(144.936, 83.546, 24.7, 0.678)
pt3dadd(145.038, 83.482, 24.7, 0.678)
pt3dadd(145.144, 83.426, 24.705, 0.678)
pt3dadd(145.249, 83.37, 24.71, 0.678)
pt3dadd(145.346, 83.317, 24.747, 0.678)
pt3dadd(145.441, 83.265, 24.789, 0.678)
pt3dadd(145.519, 83.174, 24.794, 0.678)
pt3dadd(145.597, 83.083, 24.8, 0.678)
pt3dadd(145.673, 82.989, 24.8, 0.678)
pt3dadd(145.747, 82.896, 24.8, 0.678)
pt3dadd(145.805, 82.791, 24.8, 0.678)
pt3dadd(145.852, 82.681, 24.8, 0.678)
pt3dadd(145.888, 82.566, 24.8, 0.678)
pt3dadd(145.924, 82.452, 24.8, 0.678)
pt3dadd(145.96, 82.337, 24.8, 0.678)
pt3dadd(145.996, 82.223, 24.8, 0.678)
pt3dadd(146.032, 82.108, 24.8, 0.678)
pt3dadd(146.04, 81.99, 24.803, 0.678)
pt3dadd(146.04, 81.87, 24.807, 0.678)
pt3dadd(146.04, 81.75, 24.811, 0.678)
pt3dadd(146.077, 81.647, 24.847, 0.678)
pt3dadd(146.12, 81.547, 24.889, 0.678)
pt3dadd(146.191, 81.454, 24.913, 0.678)
pt3dadd(146.266, 81.367, 24.938, 0.678)
pt3dadd(146.366, 81.317, 24.974, 0.678)
pt3dadd(146.467, 81.265, 25.002, 0.678)
pt3dadd(146.573, 81.208, 25.01, 0.678)
pt3dadd(146.658, 81.129, 25.031, 0.678)
pt3dadd(146.741, 81.046, 25.054, 0.678)
pt3dadd(146.824, 80.964, 25.077, 0.678)
pt3dadd(146.906, 80.881, 25.1, 0.678)
pt3dadd(146.969, 80.789, 25.132, 0.678)
pt3dadd(147.011, 80.688, 25.172, 0.678)
pt3dadd(147.054, 80.587, 25.213, 0.678)
pt3dadd(147.097, 80.486, 25.254, 0.678)
pt3dadd(147.14, 80.384, 25.289, 0.678)
pt3dadd(147.192, 80.276, 25.291, 0.678)
pt3dadd(147.244, 80.168, 25.293, 0.678)
pt3dadd(147.295, 80.059, 25.296, 0.678)
pt3dadd(147.347, 79.951, 25.298, 0.678)
pt3dadd(147.398, 79.843, 25.3, 0.678)
pt3dadd(147.443, 79.731, 25.3, 0.678)
pt3dadd(147.487, 79.62, 25.3, 0.678)
pt3dadd(147.532, 79.509, 25.3, 0.678)
pt3dadd(147.577, 79.397, 25.3, 0.678)
pt3dadd(147.622, 79.286, 25.3, 0.678)
pt3dadd(147.701, 79.204, 25.3, 0.678)
pt3dadd(147.804, 79.143, 25.3, 0.678)
pt3dadd(147.899, 79.072, 25.3, 0.678)
pt3dadd(147.98, 78.984, 25.3, 0.678)
pt3dadd(148.044, 78.888, 25.3, 0.678)
pt3dadd(148.06, 78.769, 25.3, 0.678)
pt3dadd(148.074, 78.65, 25.3, 0.678)
pt3dadd(148.082, 78.53, 25.3, 0.678)
pt3dadd(148.087, 78.41, 25.3, 0.678)
pt3dadd(148.092, 78.29, 25.3, 0.678)
pt3dadd(148.126, 78.177, 25.305, 0.678)
pt3dadd(148.17, 78.067, 25.316, 0.678)
pt3dadd(148.212, 77.956, 25.334, 0.678)
pt3dadd(148.253, 77.846, 25.352, 0.678)
pt3dadd(148.295, 77.735, 25.371, 0.678)
pt3dadd(148.336, 77.625, 25.389, 0.678)
pt3dadd(148.392, 77.522, 25.4, 0.678)
pt3dadd(148.47, 77.431, 25.4, 0.678)
pt3dadd(148.548, 77.34, 25.4, 0.678)
pt3dadd(148.626, 77.248, 25.4, 0.678)
pt3dadd(148.704, 77.157, 25.4, 0.678)
pt3dadd(148.782, 77.067, 25.403, 0.678)
pt3dadd(148.861, 76.977, 25.41, 0.678)
pt3dadd(148.94, 76.886, 25.417, 0.678)
pt3dadd(149.018, 76.796, 25.424, 0.678)
pt3dadd(149.098, 76.706, 25.431, 0.678)
pt3dadd(149.18, 76.621, 25.444, 0.678)
pt3dadd(149.267, 76.539, 25.458, 0.678)
pt3dadd(149.352, 76.457, 25.473, 0.678)
pt3dadd(149.437, 76.374, 25.488, 0.678)
pt3dadd(149.515, 76.287, 25.5, 0.678)
pt3dadd(149.562, 76.176, 25.5, 0.678)
pt3dadd(149.609, 76.065, 25.5, 0.678)
pt3dadd(149.668, 75.961, 25.5, 0.678)
pt3dadd(149.729, 75.858, 25.5, 0.678)
pt3dadd(149.784, 75.753, 25.512, 0.678)
pt3dadd(149.837, 75.647, 25.528, 0.678)
pt3dadd(149.932, 75.605, 25.554, 0.678)
pt3dadd(150.046, 75.593, 25.584, 0.678)
pt3dadd(150.133, 75.538, 25.6, 0.678)
pt3dadd(150.192, 75.433, 25.6, 0.678)
pt3dadd(150.25, 75.328, 25.6, 0.678)
pt3dadd(150.307, 75.223, 25.6, 0.678)
pt3dadd(150.335, 75.115, 25.629, 0.678)
}
}
proc shape3d_122() {
dend_7[15] { pt3dadd(150.354, 75.005, 25.667, 0.678)
pt3dadd(150.371, 74.915, 25.729, 0.678)
pt3dadd(150.386, 74.834, 25.801, 0.678)
pt3dadd(150.404, 74.754, 25.874, 0.678)
pt3dadd(150.457, 74.694, 25.949, 0.678)
pt3dadd(150.506, 74.622, 26.013, 0.678)
pt3dadd(150.55, 74.52, 26.052, 0.678)
pt3dadd(150.592, 74.419, 26.092, 0.678)
pt3dadd(150.626, 74.306, 26.1, 0.678)
pt3dadd(150.66, 74.191, 26.1, 0.678)
pt3dadd(150.694, 74.075, 26.1, 0.678)
pt3dadd(150.709, 73.957, 26.1, 0.678)
pt3dadd(150.714, 73.837, 26.1, 0.678)
pt3dadd(150.719, 73.718, 26.1, 0.678)
pt3dadd(150.744, 73.601, 26.103, 0.678)
pt3dadd(150.779, 73.486, 26.108, 0.678)
pt3dadd(150.828, 73.386, 26.127, 0.678)
pt3dadd(150.904, 73.31, 26.172, 0.678)
pt3dadd(150.985, 73.228, 26.192, 0.678)
pt3dadd(151.07, 73.143, 26.198, 0.678)
pt3dadd(151.154, 73.059, 26.2, 0.678)
pt3dadd(151.237, 72.973, 26.204, 0.678)
pt3dadd(151.312, 72.884, 26.23, 0.678)
pt3dadd(151.386, 72.794, 26.255, 0.678)
pt3dadd(151.459, 72.705, 26.281, 0.678)
pt3dadd(151.534, 72.616, 26.307, 0.678)
pt3dadd(151.621, 72.538, 26.328, 0.678)
pt3dadd(151.711, 72.463, 26.348, 0.678)
pt3dadd(151.801, 72.387, 26.368, 0.678)
pt3dadd(151.892, 72.312, 26.388, 0.678)
pt3dadd(151.984, 72.249, 26.42, 0.678)
pt3dadd(152.078, 72.205, 26.47, 0.678)
pt3dadd(152.173, 72.161, 26.519, 0.678)
pt3dadd(152.267, 72.117, 26.569, 0.678)
pt3dadd(152.358, 72.066, 26.614, 0.678)
pt3dadd(152.431, 71.975, 26.637, 0.678)
pt3dadd(152.504, 71.884, 26.66, 0.678)
pt3dadd(152.576, 71.792, 26.683, 0.678)
pt3dadd(152.65, 71.701, 26.706, 0.678)
pt3dadd(152.701, 71.596, 26.726, 0.678)
pt3dadd(152.746, 71.487, 26.744, 0.678)
pt3dadd(152.79, 71.378, 26.763, 0.678)
pt3dadd(152.836, 71.269, 26.781, 0.678)
pt3dadd(152.88, 71.16, 26.8, 0.678)
pt3dadd(152.927, 71.049, 26.8, 0.678)
pt3dadd(152.974, 70.939, 26.8, 0.678)
pt3dadd(152.99, 70.821, 26.803, 0.678)
pt3dadd(152.995, 70.702, 26.807, 0.678)
pt3dadd(153, 70.582, 26.811, 0.678)
pt3dadd(153.042, 70.497, 26.869, 0.678)
pt3dadd(153.083, 70.413, 26.931, 0.678)
pt3dadd(153.103, 70.316, 26.988, 0.678)
pt3dadd(153.126, 70.219, 27.042, 0.678)
pt3dadd(153.157, 70.115, 27.086, 0.678)
pt3dadd(153.21, 70.029, 27.139, 0.678)
pt3dadd(153.265, 69.944, 27.193, 0.678)
pt3dadd(153.32, 69.86, 27.247, 0.678)
pt3dadd(153.377, 69.776, 27.301, 0.678)
pt3dadd(153.448, 69.689, 27.334, 0.678)
pt3dadd(153.522, 69.602, 27.363, 0.678)
pt3dadd(153.598, 69.514, 27.392, 0.678)
pt3dadd(153.672, 69.427, 27.42, 0.678)
pt3dadd(153.733, 69.333, 27.452, 0.678)
pt3dadd(153.784, 69.233, 27.488, 0.678)
pt3dadd(153.81, 69.12, 27.5, 0.678)
pt3dadd(153.826, 69.001, 27.5, 0.678)
pt3dadd(153.84, 68.882, 27.5, 0.678)
pt3dadd(153.893, 68.774, 27.5, 0.678)
pt3dadd(153.947, 68.667, 27.5, 0.678)
pt3dadd(154.038, 68.599, 27.517, 0.678)
pt3dadd(154.14, 68.544, 27.54, 0.678)
pt3dadd(154.181, 68.527, 27.623, 0.678)
pt3dadd(154.21, 68.516, 27.719, 0.678)
pt3dadd(154.255, 68.497, 27.811, 0.678)
pt3dadd(154.309, 68.474, 27.893, 0.678)
pt3dadd(154.417, 68.434, 27.921, 0.678)
pt3dadd(154.516, 68.393, 27.958, 0.678)
pt3dadd(154.565, 68.35, 28.042, 0.678)
pt3dadd(154.613, 68.291, 28.115, 0.678)
pt3dadd(154.657, 68.196, 28.164, 0.678)
pt3dadd(154.68, 68.09, 28.195, 0.678)
pt3dadd(154.68, 67.971, 28.207, 0.678)
pt3dadd(154.714, 67.885, 28.259, 0.678)
pt3dadd(154.762, 67.814, 28.329, 0.678)
pt3dadd(154.811, 67.743, 28.399, 0.678)
pt3dadd(154.859, 67.672, 28.469, 0.678)
pt3dadd(154.925, 67.613, 28.534, 0.678)
pt3dadd(155.005, 67.565, 28.596, 0.678)
pt3dadd(155.086, 67.516, 28.658, 0.678)
pt3dadd(155.167, 67.468, 28.72, 0.678)
pt3dadd(155.256, 67.416, 28.766, 0.678)
pt3dadd(155.358, 67.359, 28.791, 0.678)
pt3dadd(155.459, 67.302, 28.816, 0.678)
pt3dadd(155.561, 67.246, 28.841, 0.678)
pt3dadd(155.663, 67.189, 28.866, 0.678)
pt3dadd(155.768, 67.136, 28.883, 0.678)
pt3dadd(155.874, 67.083, 28.899, 0.678)
pt3dadd(155.951, 66.992, 28.9, 0.678)
pt3dadd(156.025, 66.898, 28.9, 0.678)
pt3dadd(156.109, 66.816, 28.919, 0.678)
pt3dadd(156.196, 66.738, 28.943, 0.678)
pt3dadd(156.217, 66.711, 29.036, 0.678)
pt3dadd(156.234, 66.688, 29.133, 0.678)
pt3dadd(156.257, 66.639, 29.221, 0.678)
pt3dadd(156.281, 66.577, 29.304, 0.678)
pt3dadd(156.306, 66.515, 29.387, 0.678)
pt3dadd(156.338, 66.434, 29.449, 0.678)
pt3dadd(156.38, 66.33, 29.483, 0.678)
pt3dadd(156.428, 66.224, 29.5, 0.678)
pt3dadd(156.454, 66.11, 29.515, 0.678)
pt3dadd(156.472, 65.993, 29.534, 0.678)
pt3dadd(156.493, 65.899, 29.582, 0.678)
pt3dadd(156.522, 65.828, 29.659, 0.678)
pt3dadd(156.6, 65.788, 29.712, 0.678)
pt3dadd(156.709, 65.769, 29.749, 0.678)
pt3dadd(156.822, 65.76, 29.781, 0.678)
pt3dadd(156.937, 65.76, 29.809, 0.678)
pt3dadd(157.05, 65.754, 29.838, 0.678)
pt3dadd(157.14, 65.695, 29.883, 0.678)
pt3dadd(157.23, 65.637, 29.928, 0.678)
pt3dadd(157.318, 65.574, 29.969, 0.678)
pt3dadd(157.394, 65.484, 29.986, 0.678)
pt3dadd(157.478, 65.406, 30, 0.678)
pt3dadd(157.588, 65.358, 30, 0.678)
pt3dadd(157.685, 65.289, 30, 0.678)
pt3dadd(157.783, 65.22, 30, 0.678)
pt3dadd(157.882, 65.151, 30, 0.678)
pt3dadd(157.98, 65.082, 30, 0.678)
pt3dadd(158.06, 64.998, 30, 0.678)
pt3dadd(158.114, 64.891, 30, 0.678)
pt3dadd(158.17, 64.784, 30, 0.678)
pt3dadd(158.23, 64.681, 30, 0.678)
pt3dadd(158.291, 64.578, 30, 0.678)
pt3dadd(158.408, 64.569, 30, 0.678)
pt3dadd(158.528, 64.564, 30, 0.678)
pt3dadd(158.647, 64.556, 30, 0.678)
pt3dadd(158.754, 64.503, 30, 0.678)
pt3dadd(158.862, 64.449, 30, 0.678)
pt3dadd(158.972, 64.403, 30, 0.678)
pt3dadd(159.084, 64.357, 30, 0.678)
pt3dadd(159.194, 64.312, 30, 0.678)
pt3dadd(159.306, 64.267, 30, 0.678)
pt3dadd(159.328, 64.15, 30, 0.678)
pt3dadd(159.348, 64.031, 30, 0.678)
pt3dadd(159.366, 63.913, 30, 0.678)
pt3dadd(159.408, 63.804, 30, 0.678)
pt3dadd(159.476, 63.706, 30, 0.678)
pt3dadd(159.546, 63.608, 30, 0.678)
pt3dadd(159.614, 63.51, 30, 0.678)
pt3dadd(159.684, 63.411, 30, 0.678)
pt3dadd(159.757, 63.317, 30, 0.678)
pt3dadd(159.835, 63.225, 30, 0.678)
pt3dadd(159.913, 63.134, 30, 0.678)
pt3dadd(159.99, 63.043, 30, 0.678)
pt3dadd(160.068, 62.951, 30, 0.678)
pt3dadd(160.157, 62.871, 30, 0.678)
pt3dadd(160.255, 62.802, 30, 0.678)
pt3dadd(160.352, 62.733, 30, 0.678)
pt3dadd(160.451, 62.664, 30, 0.678)
pt3dadd(160.549, 62.595, 30, 0.678)
pt3dadd(160.627, 62.508, 30, 0.678)
pt3dadd(160.684, 62.403, 30, 0.678)
pt3dadd(160.741, 62.297, 30, 0.678)
pt3dadd(160.798, 62.191, 30, 0.678)
pt3dadd(160.855, 62.086, 30, 0.678)
pt3dadd(160.918, 61.987, 30.012, 0.678)
pt3dadd(160.992, 61.905, 30.049, 0.678)
pt3dadd(161.056, 61.81, 30.076, 0.678)
pt3dadd(161.108, 61.704, 30.092, 0.678)
pt3dadd(161.188, 61.622, 30.1, 0.678)
pt3dadd(161.291, 61.561, 30.1, 0.678)
pt3dadd(161.398, 61.509, 30.1, 0.678)
pt3dadd(161.514, 61.476, 30.1, 0.678)
pt3dadd(161.629, 61.443, 30.1, 0.678)
pt3dadd(161.747, 61.419, 30.1, 0.678)
pt3dadd(161.86, 61.386, 30.1, 0.678)
pt3dadd(161.956, 61.314, 30.1, 0.678)
pt3dadd(162.052, 61.242, 30.1, 0.678)
pt3dadd(162.148, 61.17, 30.1, 0.678)
pt3dadd(162.244, 61.098, 30.1, 0.678)
pt3dadd(162.337, 61.027, 30.11, 0.678)
pt3dadd(162.419, 60.962, 30.159, 0.678)
pt3dadd(162.499, 60.896, 30.208, 0.678)
pt3dadd(162.581, 60.831, 30.257, 0.678)
pt3dadd(162.665, 60.767, 30.304, 0.678)
pt3dadd(162.766, 60.717, 30.34, 0.678)
pt3dadd(162.866, 60.669, 30.376, 0.678)
pt3dadd(162.972, 60.628, 30.41, 0.678)
pt3dadd(163.074, 60.583, 30.445, 0.678)
pt3dadd(163.175, 60.533, 30.481, 0.678)
pt3dadd(163.266, 60.464, 30.5, 0.678)
pt3dadd(163.348, 60.377, 30.5, 0.678)
pt3dadd(163.409, 60.278, 30.5, 0.678)
pt3dadd(163.432, 60.16, 30.5, 0.678)
pt3dadd(163.492, 60.06, 30.5, 0.678)
pt3dadd(163.568, 59.969, 30.5, 0.678)
pt3dadd(163.646, 59.877, 30.5, 0.678)
pt3dadd(163.724, 59.786, 30.5, 0.678)
pt3dadd(163.802, 59.695, 30.5, 0.678)
pt3dadd(163.853, 59.588, 30.5, 0.678)
}
}
proc shape3d_123() {
dend_7[15] { pt3dadd(163.892, 59.474, 30.5, 0.678)
pt3dadd(163.931, 59.361, 30.5, 0.678)
pt3dadd(163.969, 59.247, 30.5, 0.678)
pt3dadd(164.008, 59.134, 30.5, 0.678)
pt3dadd(164.054, 59.025, 30.5, 0.678)
pt3dadd(164.138, 58.939, 30.5, 0.678)
pt3dadd(164.221, 58.852, 30.5, 0.678)
pt3dadd(164.305, 58.766, 30.5, 0.678)
pt3dadd(164.388, 58.68, 30.5, 0.678)
pt3dadd(164.474, 58.596, 30.5, 0.678)
pt3dadd(164.568, 58.521, 30.5, 0.678)
pt3dadd(164.662, 58.446, 30.5, 0.678)
pt3dadd(164.755, 58.371, 30.5, 0.678)
pt3dadd(164.849, 58.296, 30.5, 0.678)
pt3dadd(164.938, 58.218, 30.507, 0.678)
pt3dadd(165.013, 58.131, 30.536, 0.678)
pt3dadd(165.088, 58.044, 30.564, 0.678)
pt3dadd(165.163, 57.957, 30.593, 0.678)
pt3dadd(165.238, 57.869, 30.621, 0.678)
pt3dadd(165.307, 57.792, 30.672, 0.678)
pt3dadd(165.378, 57.721, 30.726, 0.678)
pt3dadd(165.454, 57.668, 30.789, 0.678)
pt3dadd(165.529, 57.604, 30.843, 0.678)
pt3dadd(165.606, 57.528, 30.888, 0.678)
pt3dadd(165.671, 57.432, 30.9, 0.678)
pt3dadd(165.731, 57.328, 30.9, 0.678)
pt3dadd(165.799, 57.23, 30.9, 0.678)
pt3dadd(165.874, 57.135, 30.9, 0.678)
pt3dadd(165.934, 57.032, 30.9, 0.678)
pt3dadd(165.995, 56.928, 30.9, 0.678)
pt3dadd(166.03, 56.814, 30.9, 0.678)
pt3dadd(166.063, 56.699, 30.9, 0.678)
pt3dadd(166.09, 56.582, 30.9, 0.678)
pt3dadd(166.11, 56.464, 30.9, 0.678)
pt3dadd(166.13, 56.345, 30.9, 0.678)
pt3dadd(166.238, 56.31, 30.9, 0.678)
pt3dadd(166.355, 56.283, 30.9, 0.678)
pt3dadd(166.463, 56.238, 30.9, 0.678)
pt3dadd(166.556, 56.163, 30.9, 0.678)
pt3dadd(166.606, 56.054, 30.9, 0.678)
pt3dadd(166.654, 55.944, 30.9, 0.678)
pt3dadd(166.7, 55.833, 30.9, 0.678)
pt3dadd(166.748, 55.723, 30.9, 0.678)
pt3dadd(166.796, 55.613, 30.9, 0.678)
pt3dadd(166.847, 55.506, 30.914, 0.678)
pt3dadd(166.9, 55.402, 30.936, 0.678)
pt3dadd(166.951, 55.297, 30.958, 0.678)
pt3dadd(167.004, 55.192, 30.979, 0.678)
pt3dadd(167.058, 55.088, 31, 0.678)
pt3dadd(167.137, 54.998, 31.002, 0.678)
pt3dadd(167.216, 54.908, 31.005, 0.678)
pt3dadd(167.296, 54.818, 31.007, 0.678)
pt3dadd(167.375, 54.728, 31.009, 0.678)
pt3dadd(167.453, 54.637, 31.015, 0.678)
pt3dadd(167.525, 54.544, 31.035, 0.678)
pt3dadd(167.597, 54.451, 31.055, 0.678)
pt3dadd(167.669, 54.358, 31.075, 0.678)
pt3dadd(167.741, 54.265, 31.095, 0.678)
pt3dadd(167.76, 54.153, 31.1, 0.678)
pt3dadd(167.76, 54.033, 31.1, 0.678)
pt3dadd(167.771, 53.913, 31.1, 0.678)
pt3dadd(167.808, 53.803, 31.115, 0.678)
pt3dadd(167.876, 53.724, 31.163, 0.678)
pt3dadd(167.969, 53.666, 31.201, 0.678)
pt3dadd(168.079, 53.64, 31.233, 0.678)
pt3dadd(168.188, 53.64, 31.274, 0.678)
pt3dadd(168.306, 53.64, 31.294, 0.678)
pt3dadd(168.425, 53.64, 31.3, 0.678)
pt3dadd(168.545, 53.64, 31.3, 0.678)
pt3dadd(168.656, 53.607, 31.3, 0.678)
pt3dadd(168.76, 53.546, 31.3, 0.678)
pt3dadd(168.83, 53.467, 31.311, 0.678)
pt3dadd(168.842, 53.353, 31.34, 0.678)
pt3dadd(168.868, 53.248, 31.37, 0.678)
pt3dadd(168.977, 53.209, 31.395, 0.678)
pt3dadd(169.086, 53.169, 31.419, 0.678)
pt3dadd(169.17, 53.121, 31.466, 0.678)
pt3dadd(169.222, 53.061, 31.541, 0.678)
pt3dadd(169.286, 52.977, 31.575, 0.678)
pt3dadd(169.357, 52.881, 31.588, 0.678)
pt3dadd(169.428, 52.785, 31.6, 0.678)
pt3dadd(169.492, 52.684, 31.605, 0.678)
pt3dadd(169.554, 52.582, 31.611, 0.678)
pt3dadd(169.604, 52.481, 31.644, 0.678)
pt3dadd(169.652, 52.379, 31.679, 0.678)
pt3dadd(169.68, 52.273, 31.714, 0.678)
pt3dadd(169.68, 52.16, 31.747, 0.678)
pt3dadd(169.685, 52.05, 31.781, 0.678)
pt3dadd(169.77, 51.993, 31.833, 0.678)
pt3dadd(169.855, 51.936, 31.885, 0.678)
pt3dadd(169.943, 51.862, 31.9, 0.678)
pt3dadd(170.03, 51.78, 31.9, 0.678)
pt3dadd(170.122, 51.702, 31.9, 0.678)
pt3dadd(170.191, 51.605, 31.9, 0.678)
pt3dadd(170.257, 51.505, 31.9, 0.678)
pt3dadd(170.323, 51.405, 31.9, 0.678)
pt3dadd(170.389, 51.305, 31.9, 0.678)
pt3dadd(170.455, 51.205, 31.9, 0.678)
pt3dadd(170.524, 51.105, 31.9, 0.678)
pt3dadd(170.591, 51.006, 31.9, 0.678)
pt3dadd(170.688, 50.946, 31.903, 0.678)
pt3dadd(170.801, 50.904, 31.908, 0.678)
pt3dadd(170.912, 50.88, 31.927, 0.678)
pt3dadd(171.023, 50.88, 31.966, 0.678)
pt3dadd(171.132, 50.88, 32.008, 0.678)
pt3dadd(171.226, 50.88, 32.07, 0.678)
pt3dadd(171.319, 50.88, 32.132, 0.678)
pt3dadd(171.37, 50.795, 32.189, 0.678)
pt3dadd(171.419, 50.709, 32.245, 0.678)
pt3dadd(171.469, 50.623, 32.301, 0.678)
pt3dadd(171.522, 50.517, 32.317, 0.678)
pt3dadd(171.576, 50.413, 32.334, 0.678)
pt3dadd(171.677, 50.393, 32.385, 0.678)
pt3dadd(171.779, 50.372, 32.436, 0.678)
pt3dadd(171.868, 50.333, 32.489, 0.678)
pt3dadd(171.936, 50.264, 32.547, 0.678)
pt3dadd(172.014, 50.183, 32.575, 0.678)
pt3dadd(172.096, 50.096, 32.588, 0.678)
pt3dadd(172.178, 50.011, 32.599, 0.678)
pt3dadd(172.284, 49.958, 32.583, 0.678)
pt3dadd(172.39, 49.905, 32.565, 0.678)
pt3dadd(172.464, 49.842, 32.508, 0.678)
pt3dadd(172.538, 49.778, 32.45, 0.678)
pt3dadd(172.608, 49.728, 32.38, 0.678)
pt3dadd(172.674, 49.684, 32.306, 0.678)
pt3dadd(172.753, 49.668, 32.237, 0.678)
pt3dadd(172.852, 49.613, 32.204, 0.678)
pt3dadd(172.951, 49.558, 32.171, 0.678)
pt3dadd(173.05, 49.502, 32.137, 0.678)
pt3dadd(173.148, 49.447, 32.104, 0.678)
pt3dadd(173.24, 49.372, 32.1, 0.678)
pt3dadd(173.332, 49.294, 32.1, 0.678)
pt3dadd(173.423, 49.216, 32.1, 0.678)
pt3dadd(173.514, 49.138, 32.1, 0.678)
pt3dadd(173.605, 49.06, 32.1, 0.678)
pt3dadd(173.684, 48.97, 32.1, 0.678)
pt3dadd(173.762, 48.879, 32.1, 0.678)
pt3dadd(173.84, 48.788, 32.1, 0.678)
pt3dadd(173.918, 48.696, 32.1, 0.678)
pt3dadd(173.996, 48.605, 32.1, 0.678)
pt3dadd(174.097, 48.54, 32.1, 0.678)
pt3dadd(174.199, 48.477, 32.1, 0.678)
pt3dadd(174.301, 48.415, 32.1, 0.678)
pt3dadd(174.403, 48.352, 32.1, 0.678)
pt3dadd(174.505, 48.289, 32.1, 0.678)
pt3dadd(174.596, 48.21, 32.1, 0.678)
pt3dadd(174.685, 48.13, 32.1, 0.678)
pt3dadd(174.774, 48.049, 32.1, 0.678)
pt3dadd(174.863, 47.968, 32.1, 0.678)
pt3dadd(174.952, 47.888, 32.1, 0.678)
pt3dadd(175.036, 47.802, 32.1, 0.678)
pt3dadd(175.118, 47.716, 32.1, 0.678)
pt3dadd(175.202, 47.63, 32.1, 0.678)
pt3dadd(175.285, 47.543, 32.1, 0.678)
pt3dadd(175.369, 47.457, 32.1, 0.678)
pt3dadd(175.477, 47.405, 32.1, 0.678)
pt3dadd(175.585, 47.354, 32.1, 0.678)
pt3dadd(175.694, 47.304, 32.1, 0.678)
pt3dadd(175.804, 47.253, 32.1, 0.678)
pt3dadd(175.912, 47.203, 32.1, 0.678)
pt3dadd(176.012, 47.137, 32.1, 0.678)
pt3dadd(176.108, 47.065, 32.1, 0.678)
pt3dadd(176.204, 46.993, 32.1, 0.678)
pt3dadd(176.3, 46.921, 32.1, 0.678)
pt3dadd(176.396, 46.849, 32.1, 0.678)
pt3dadd(176.497, 46.786, 32.1, 0.678)
pt3dadd(176.602, 46.726, 32.1, 0.678)
pt3dadd(176.706, 46.666, 32.1, 0.678)
pt3dadd(176.81, 46.607, 32.1, 0.678)
pt3dadd(176.914, 46.547, 32.1, 0.678)
pt3dadd(177.017, 46.485, 32.1, 0.678)
pt3dadd(177.119, 46.422, 32.1, 0.678)
pt3dadd(177.221, 46.359, 32.1, 0.678)
pt3dadd(177.324, 46.296, 32.1, 0.678)
pt3dadd(177.426, 46.233, 32.1, 0.678)
pt3dadd(177.53, 46.175, 32.1, 0.678)
pt3dadd(177.637, 46.121, 32.1, 0.678)
pt3dadd(177.743, 46.064, 32.101, 0.678)
pt3dadd(177.839, 45.993, 32.107, 0.678)
pt3dadd(177.935, 45.925, 32.119, 0.678)
pt3dadd(178.025, 45.873, 32.169, 0.678)
pt3dadd(178.117, 45.838, 32.222, 0.678)
pt3dadd(178.213, 45.831, 32.281, 0.678)
pt3dadd(178.309, 45.806, 32.33, 0.678)
pt3dadd(178.403, 45.737, 32.355, 0.678)
pt3dadd(178.498, 45.669, 32.38, 0.678)
pt3dadd(178.596, 45.612, 32.4, 0.678)
pt3dadd(178.716, 45.602, 32.4, 0.678)
pt3dadd(178.835, 45.592, 32.4, 0.678)
pt3dadd(178.954, 45.573, 32.4, 0.678)
pt3dadd(179.051, 45.51, 32.404, 0.678)
pt3dadd(179.135, 45.425, 32.411, 0.678)
pt3dadd(179.22, 45.341, 32.418, 0.678)
pt3dadd(179.304, 45.256, 32.425, 0.678)
pt3dadd(179.389, 45.171, 32.432, 0.678)
pt3dadd(179.488, 45.12, 32.466, 0.678)
pt3dadd(179.588, 45.074, 32.505, 0.678)
pt3dadd(179.689, 45.029, 32.543, 0.678)
pt3dadd(179.79, 44.983, 32.581, 0.678)
pt3dadd(179.885, 44.919, 32.6, 0.678)
}
}
proc shape3d_124() {
dend_7[15] { pt3dadd(179.974, 44.838, 32.6, 0.678)
pt3dadd(180.062, 44.758, 32.6, 0.678)
pt3dadd(180.151, 44.677, 32.6, 0.678)
pt3dadd(180.24, 44.596, 32.6, 0.678)
pt3dadd(180.329, 44.515, 32.6, 0.678)
pt3dadd(180.418, 44.435, 32.6, 0.678)
pt3dadd(180.506, 44.354, 32.6, 0.678)
pt3dadd(180.595, 44.273, 32.6, 0.678)
pt3dadd(180.684, 44.193, 32.6, 0.678)
pt3dadd(180.78, 44.121, 32.6, 0.678)
pt3dadd(180.88, 44.055, 32.6, 0.678)
pt3dadd(180.98, 43.989, 32.6, 0.678)
pt3dadd(181.08, 43.923, 32.6, 0.678)
pt3dadd(181.181, 43.857, 32.6, 0.678)
pt3dadd(181.274, 43.783, 32.6, 0.678)
pt3dadd(181.363, 43.702, 32.6, 0.678)
pt3dadd(181.452, 43.621, 32.6, 0.678)
pt3dadd(181.541, 43.541, 32.6, 0.678)
pt3dadd(181.63, 43.46, 32.6, 0.678)
pt3dadd(181.703, 43.366, 32.6, 0.678)
pt3dadd(181.763, 43.263, 32.6, 0.678)
pt3dadd(181.824, 43.159, 32.6, 0.678)
pt3dadd(181.885, 43.056, 32.6, 0.678)
pt3dadd(181.957, 42.972, 32.6, 0.678)
pt3dadd(182.077, 42.968, 32.6, 0.678)
pt3dadd(182.197, 42.963, 32.6, 0.678)
pt3dadd(182.317, 42.955, 32.6, 0.678)
pt3dadd(182.436, 42.941, 32.6, 0.678)
pt3dadd(182.555, 42.926, 32.6, 0.678)
pt3dadd(182.653, 42.867, 32.6, 0.678)
pt3dadd(182.74, 42.784, 32.6, 0.678)
pt3dadd(182.833, 42.71, 32.6, 0.678)
pt3dadd(182.927, 42.635, 32.6, 0.678)
pt3dadd(183.02, 42.56, 32.6, 0.678)
pt3dadd(183.115, 42.485, 32.6, 0.678)
pt3dadd(183.208, 42.408, 32.6, 0.678)
pt3dadd(183.295, 42.326, 32.6, 0.678)
pt3dadd(183.386, 42.252, 32.6, 0.678)
pt3dadd(183.505, 42.243, 32.6, 0.678)
pt3dadd(183.625, 42.233, 32.6, 0.678)
pt3dadd(183.733, 42.203, 32.612, 0.678)
pt3dadd(183.815, 42.128, 32.649, 0.678)
pt3dadd(183.902, 42.052, 32.676, 0.678)
pt3dadd(183.992, 41.976, 32.693, 0.678)
pt3dadd(184.067, 41.884, 32.7, 0.678)
pt3dadd(184.135, 41.787, 32.7, 0.678)
pt3dadd(184.226, 41.709, 32.7, 0.678)
pt3dadd(184.318, 41.631, 32.7, 0.678)
pt3dadd(184.409, 41.553, 32.7, 0.678)
pt3dadd(184.5, 41.475, 32.7, 0.678)
pt3dadd(184.589, 41.399, 32.709, 0.678)
pt3dadd(184.668, 41.327, 32.756, 0.678)
pt3dadd(184.746, 41.255, 32.802, 0.678)
pt3dadd(184.824, 41.183, 32.848, 0.678)
pt3dadd(184.904, 41.111, 32.889, 0.678)
pt3dadd(184.994, 41.031, 32.891, 0.678)
pt3dadd(185.084, 40.952, 32.894, 0.678)
pt3dadd(185.174, 40.873, 32.896, 0.678)
pt3dadd(185.264, 40.794, 32.898, 0.678)
pt3dadd(185.358, 40.72, 32.895, 0.678)
pt3dadd(185.46, 40.664, 32.873, 0.678)
pt3dadd(185.563, 40.608, 32.851, 0.678)
pt3dadd(185.666, 40.552, 32.829, 0.678)
pt3dadd(185.77, 40.497, 32.806, 0.678)
pt3dadd(185.882, 40.464, 32.8, 0.678)
pt3dadd(186, 40.44, 32.8, 0.678)
}
dend_0[6] {pt3dclear()
pt3dadd(94.315, 106.081, 12.905, 13.998)
pt3dadd(94.315, 106.016, 12.957, 13.86)
pt3dadd(94.315, 105.928, 13.025, 13.672)
pt3dadd(94.315, 105.841, 13.094, 13.486)
pt3dadd(94.315, 105.754, 13.163, 13.3)
pt3dadd(94.315, 105.667, 13.231, 13.114)
pt3dadd(94.315, 105.579, 13.3, 12.928)
pt3dadd(94.315, 105.492, 13.368, 12.742)
}
dend_0[7] {pt3dclear()
pt3dadd(94.315, 105.492, 13.368, 12.742)
pt3dadd(94.323, 105.428, 13.416, 12.632)
pt3dadd(94.333, 105.339, 13.483, 12.482)
pt3dadd(94.343, 105.251, 13.55, 12.33)
pt3dadd(94.353, 105.162, 13.617, 12.178)
pt3dadd(94.363, 105.073, 13.684, 12.028)
pt3dadd(94.373, 104.984, 13.75, 11.876)
pt3dadd(94.383, 104.896, 13.817, 11.724)
pt3dadd(94.393, 104.807, 13.884, 11.574)
pt3dadd(94.403, 104.718, 13.951, 11.422)
pt3dadd(94.413, 104.629, 14.017, 11.27)
pt3dadd(94.439, 104.537, 14.076, 11.174)
pt3dadd(94.468, 104.443, 14.134, 11.088)
pt3dadd(94.498, 104.349, 14.191, 11.004)
pt3dadd(94.528, 104.255, 14.248, 10.92)
pt3dadd(94.557, 104.161, 14.305, 10.836)
pt3dadd(94.587, 104.067, 14.362, 10.75)
pt3dadd(94.617, 103.973, 14.419, 10.666)
pt3dadd(94.646, 103.879, 14.477, 10.582)
pt3dadd(94.676, 103.785, 14.534, 10.498)
pt3dadd(94.706, 103.692, 14.591, 10.412)
pt3dadd(94.759, 103.596, 14.631, 10.432)
pt3dadd(94.817, 103.501, 14.668, 10.476)
pt3dadd(94.875, 103.405, 14.704, 10.52)
pt3dadd(94.933, 103.31, 14.74, 10.564)
pt3dadd(94.991, 103.214, 14.776, 10.606)
pt3dadd(95.049, 103.119, 14.813, 10.65)
pt3dadd(95.107, 103.023, 14.849, 10.694)
pt3dadd(95.165, 102.928, 14.885, 10.738)
pt3dadd(95.223, 102.832, 14.922, 10.78)
pt3dadd(95.282, 102.737, 14.958, 10.824)
pt3dadd(95.332, 102.643, 15.004, 10.388)
pt3dadd(95.381, 102.55, 15.052, 9.84)
pt3dadd(95.429, 102.457, 15.101, 9.292)
}
dend_7[16] {pt3dclear()
pt3dadd(95.429, 102.457, 15.101, 9.292)
pt3dadd(95.478, 102.364, 15.149, 8.746)
pt3dadd(95.527, 102.27, 15.197, 8.198)
pt3dadd(95.576, 102.177, 15.245, 7.65)
pt3dadd(95.624, 102.084, 15.293, 7.102)
pt3dadd(95.673, 101.991, 15.341, 6.554)
pt3dadd(95.722, 101.898, 15.39, 6.008)
pt3dadd(95.77, 101.805, 15.438, 5.46)
pt3dadd(95.836, 101.715, 15.474, 5.22)
pt3dadd(95.905, 101.625, 15.508, 5.05)
pt3dadd(95.974, 101.536, 15.542, 4.878)
pt3dadd(96.044, 101.447, 15.576, 4.708)
pt3dadd(96.113, 101.358, 15.61, 4.536)
pt3dadd(96.182, 101.269, 15.644, 4.366)
pt3dadd(96.252, 101.18, 15.678, 4.196)
pt3dadd(96.321, 101.091, 15.712, 4.024)
pt3dadd(96.39, 101.001, 15.745, 3.854)
pt3dadd(96.459, 100.912, 15.779, 3.682)
pt3dadd(96.542, 100.839, 15.818, 3.58)
pt3dadd(96.626, 100.768, 15.858, 3.486)
pt3dadd(96.71, 100.697, 15.898, 3.394)
pt3dadd(96.794, 100.625, 15.937, 3.3)
pt3dadd(96.878, 100.554, 15.977, 3.206)
pt3dadd(96.962, 100.483, 16.016, 3.112)
pt3dadd(97.046, 100.412, 16.056, 3.02)
pt3dadd(97.13, 100.341, 16.096, 2.926)
pt3dadd(97.214, 100.269, 16.135, 2.832)
pt3dadd(97.299, 100.198, 16.175, 2.738)
pt3dadd(97.389, 100.13, 16.207, 2.72)
pt3dadd(97.481, 100.062, 16.239, 2.702)
pt3dadd(97.572, 99.994, 16.271, 2.684)
pt3dadd(97.663, 99.926, 16.303, 2.666)
pt3dadd(97.754, 99.858, 16.335, 2.648)
pt3dadd(97.845, 99.79, 16.368, 2.63)
pt3dadd(97.936, 99.723, 16.4, 2.612)
pt3dadd(98.027, 99.655, 16.432, 2.594)
pt3dadd(98.118, 99.587, 16.464, 2.576)
pt3dadd(98.209, 99.518, 16.495, 2.564)
pt3dadd(98.299, 99.441, 16.513, 2.628)
pt3dadd(98.389, 99.364, 16.53, 2.69)
pt3dadd(98.478, 99.287, 16.547, 2.754)
pt3dadd(98.568, 99.21, 16.565, 2.818)
pt3dadd(98.658, 99.133, 16.582, 2.88)
pt3dadd(98.747, 99.056, 16.599, 2.944)
pt3dadd(98.837, 98.979, 16.617, 3.006)
pt3dadd(98.927, 98.902, 16.634, 3.07)
pt3dadd(99.016, 98.825, 16.651, 3.134)
pt3dadd(99.105, 98.748, 16.668, 3.196)
pt3dadd(99.188, 98.662, 16.678, 3.246)
pt3dadd(99.271, 98.576, 16.687, 3.296)
pt3dadd(99.354, 98.49, 16.697, 3.346)
pt3dadd(99.437, 98.404, 16.707, 3.396)
pt3dadd(99.52, 98.318, 16.716, 3.446)
pt3dadd(99.603, 98.232, 16.726, 3.496)
pt3dadd(99.686, 98.146, 16.735, 3.546)
pt3dadd(99.769, 98.06, 16.745, 3.596)
pt3dadd(99.852, 97.974, 16.754, 3.646)
pt3dadd(99.934, 97.887, 16.764, 3.68)
pt3dadd(100.008, 97.793, 16.767, 3.568)
pt3dadd(100.082, 97.698, 16.771, 3.454)
pt3dadd(100.155, 97.604, 16.774, 3.342)
pt3dadd(100.229, 97.509, 16.778, 3.23)
pt3dadd(100.303, 97.414, 16.781, 3.116)
pt3dadd(100.376, 97.32, 16.785, 3.004)
pt3dadd(100.45, 97.225, 16.788, 2.89)
pt3dadd(100.524, 97.131, 16.792, 2.778)
pt3dadd(100.598, 97.036, 16.795, 2.664)
pt3dadd(100.669, 96.94, 16.8, 2.562)
pt3dadd(100.715, 96.83, 16.809, 2.554)
pt3dadd(100.76, 96.719, 16.818, 2.546)
pt3dadd(100.806, 96.609, 16.828, 2.538)
pt3dadd(100.852, 96.499, 16.837, 2.532)
pt3dadd(100.898, 96.388, 16.846, 2.524)
pt3dadd(100.944, 96.278, 16.856, 2.516)
pt3dadd(100.989, 96.168, 16.865, 2.508)
pt3dadd(101.035, 96.057, 16.874, 2.5)
pt3dadd(101.081, 95.947, 16.884, 2.492)
pt3dadd(101.124, 95.836, 16.894, 2.48)
pt3dadd(101.145, 95.72, 16.913, 2.436)
pt3dadd(101.167, 95.604, 16.933, 2.39)
pt3dadd(101.188, 95.489, 16.952, 2.344)
pt3dadd(101.21, 95.373, 16.972, 2.3)
pt3dadd(101.231, 95.257, 16.991, 2.254)
pt3dadd(101.253, 95.141, 17.01, 2.208)
pt3dadd(101.274, 95.026, 17.029, 2.164)
pt3dadd(101.295, 94.91, 17.049, 2.118)
pt3dadd(101.317, 94.794, 17.068, 2.074)
pt3dadd(101.334, 94.679, 17.08, 2.042)
pt3dadd(101.325, 94.565, 17.049, 2.102)
pt3dadd(101.316, 94.452, 17.017, 2.16)
pt3dadd(101.308, 94.338, 16.985, 2.22)
pt3dadd(101.302, 94.225, 16.954, 2.27)
}
}
proc shape3d_125() {
dend_7[16] { pt3dadd(101.303, 94.11, 16.923, 2.296)
pt3dadd(101.303, 93.996, 16.893, 2.324)
pt3dadd(101.304, 93.882, 16.862, 2.352)
pt3dadd(101.305, 93.768, 16.831, 2.38)
pt3dadd(101.305, 93.653, 16.801, 2.406)
pt3dadd(101.306, 93.539, 16.77, 2.434)
pt3dadd(101.307, 93.425, 16.74, 2.462)
pt3dadd(101.308, 93.311, 16.709, 2.49)
pt3dadd(101.308, 93.196, 16.679, 2.518)
pt3dadd(101.328, 93.087, 16.646, 2.492)
pt3dadd(101.372, 92.984, 16.61, 2.396)
pt3dadd(101.416, 92.881, 16.575, 2.302)
pt3dadd(101.46, 92.778, 16.539, 2.206)
pt3dadd(101.504, 92.675, 16.503, 2.11)
pt3dadd(101.548, 92.571, 16.468, 2.016)
pt3dadd(101.592, 92.468, 16.432, 1.92)
pt3dadd(101.637, 92.365, 16.397, 1.824)
pt3dadd(101.681, 92.262, 16.361, 1.73)
pt3dadd(101.725, 92.159, 16.326, 1.634)
pt3dadd(101.772, 92.058, 16.288, 1.558)
pt3dadd(101.821, 91.959, 16.25, 1.492)
pt3dadd(101.87, 91.859, 16.212, 1.426)
pt3dadd(101.918, 91.759, 16.173, 1.358)
pt3dadd(101.967, 91.66, 16.135, 1.292)
pt3dadd(102.016, 91.56, 16.097, 1.226)
pt3dadd(102.064, 91.461, 16.059, 1.158)
pt3dadd(102.113, 91.361, 16.02, 1.092)
pt3dadd(102.162, 91.261, 15.982, 1.026)
pt3dadd(102.21, 91.162, 15.944, 0.958)
pt3dadd(102.234, 91.046, 15.929, 0.89)
pt3dadd(102.255, 90.929, 15.916, 0.818)
pt3dadd(102.276, 90.812, 15.904, 0.748)
pt3dadd(102.296, 90.695, 15.891, 0.678)
pt3dadd(102.317, 90.577, 15.879, 0.608)
pt3dadd(102.338, 90.46, 15.866, 0.538)
pt3dadd(102.359, 90.343, 15.854, 0.468)
pt3dadd(102.38, 90.226, 15.841, 0.398)
pt3dadd(102.401, 90.108, 15.829, 0.328)
pt3dadd(102.422, 89.991, 15.816, 0.258)
pt3dadd(102.428, 89.872, 15.822, 0.294)
pt3dadd(102.433, 89.752, 15.829, 0.336)
pt3dadd(102.438, 89.632, 15.835, 0.38)
pt3dadd(102.444, 89.513, 15.842, 0.422)
pt3dadd(102.449, 89.393, 15.848, 0.464)
pt3dadd(102.455, 89.274, 15.855, 0.506)
pt3dadd(102.46, 89.154, 15.861, 0.548)
pt3dadd(102.465, 89.034, 15.868, 0.59)
pt3dadd(102.471, 88.915, 15.874, 0.632)
pt3dadd(102.476, 88.795, 15.881, 0.676)
pt3dadd(102.488, 88.677, 15.893, 0.654)
pt3dadd(102.5, 88.558, 15.906, 0.63)
pt3dadd(102.512, 88.44, 15.919, 0.606)
pt3dadd(102.524, 88.321, 15.932, 0.584)
pt3dadd(102.535, 88.203, 15.945, 0.56)
pt3dadd(102.547, 88.085, 15.958, 0.536)
pt3dadd(102.559, 87.966, 15.971, 0.512)
pt3dadd(102.571, 87.848, 15.984, 0.49)
pt3dadd(102.583, 87.729, 15.997, 0.466)
pt3dadd(102.595, 87.611, 16.01, 0.442)
pt3dadd(102.615, 87.501, 16.047, 0.422)
pt3dadd(102.635, 87.392, 16.084, 0.402)
pt3dadd(102.655, 87.282, 16.121, 0.382)
pt3dadd(102.675, 87.173, 16.159, 0.362)
pt3dadd(102.695, 87.063, 16.196, 0.342)
pt3dadd(102.715, 86.954, 16.233, 0.322)
pt3dadd(102.735, 86.844, 16.271, 0.302)
pt3dadd(102.755, 86.735, 16.308, 0.282)
pt3dadd(102.775, 86.625, 16.345, 0.262)
pt3dadd(102.796, 86.516, 16.383, 0.242)
pt3dadd(102.853, 86.414, 16.405, 0.306)
pt3dadd(102.91, 86.312, 16.428, 0.37)
pt3dadd(102.967, 86.21, 16.45, 0.436)
pt3dadd(103.024, 86.108, 16.473, 0.5)
pt3dadd(103.082, 86.006, 16.495, 0.564)
pt3dadd(103.139, 85.904, 16.518, 0.628)
pt3dadd(103.196, 85.802, 16.541, 0.694)
pt3dadd(103.253, 85.7, 16.563, 0.758)
pt3dadd(103.311, 85.599, 16.586, 0.822)
pt3dadd(103.368, 85.497, 16.608, 0.886)
pt3dadd(103.425, 85.392, 16.62, 0.912)
pt3dadd(103.482, 85.287, 16.631, 0.936)
pt3dadd(103.539, 85.183, 16.642, 0.96)
pt3dadd(103.596, 85.078, 16.653, 0.984)
pt3dadd(103.654, 84.973, 16.665, 1.008)
pt3dadd(103.711, 84.869, 16.676, 1.032)
pt3dadd(103.768, 84.764, 16.687, 1.058)
pt3dadd(103.825, 84.659, 16.698, 1.082)
pt3dadd(103.882, 84.555, 16.71, 1.106)
pt3dadd(103.939, 84.45, 16.721, 1.13)
}
dend_7[17] {pt3dclear()
pt3dadd(103.939, 84.45, 16.721, 1.13)
pt3dadd(103.994, 84.406, 16.721, 1.13)
pt3dadd(104.087, 84.33, 16.721, 1.13)
pt3dadd(104.18, 84.255, 16.721, 1.13)
pt3dadd(104.273, 84.179, 16.721, 1.13)
pt3dadd(104.367, 84.103, 16.721, 1.13)
pt3dadd(104.46, 84.028, 16.721, 1.13)
pt3dadd(104.553, 83.952, 16.721, 1.13)
pt3dadd(104.646, 83.877, 16.721, 1.13)
pt3dadd(104.739, 83.8, 16.721, 1.13)
pt3dadd(104.829, 83.721, 16.721, 1.13)
pt3dadd(104.92, 83.643, 16.721, 1.13)
pt3dadd(105.01, 83.564, 16.721, 1.13)
pt3dadd(105.101, 83.485, 16.721, 1.13)
pt3dadd(105.191, 83.406, 16.721, 1.13)
pt3dadd(105.282, 83.328, 16.721, 1.13)
pt3dadd(105.372, 83.249, 16.721, 1.13)
pt3dadd(105.463, 83.17, 16.721, 1.13)
pt3dadd(105.553, 83.091, 16.721, 1.13)
pt3dadd(105.643, 83.012, 16.721, 1.124)
pt3dadd(105.731, 82.929, 16.721, 1.094)
pt3dadd(105.818, 82.847, 16.721, 1.064)
pt3dadd(105.905, 82.765, 16.721, 1.034)
pt3dadd(105.993, 82.683, 16.721, 1.002)
pt3dadd(106.08, 82.6, 16.721, 0.972)
pt3dadd(106.167, 82.518, 16.721, 0.942)
pt3dadd(106.255, 82.436, 16.721, 0.912)
pt3dadd(106.342, 82.353, 16.721, 0.882)
pt3dadd(106.429, 82.271, 16.721, 0.852)
pt3dadd(106.516, 82.188, 16.721, 0.828)
pt3dadd(106.598, 82.101, 16.721, 0.822)
pt3dadd(106.681, 82.014, 16.721, 0.818)
pt3dadd(106.763, 81.927, 16.721, 0.814)
pt3dadd(106.846, 81.839, 16.721, 0.808)
pt3dadd(106.928, 81.752, 16.721, 0.804)
pt3dadd(107.011, 81.665, 16.721, 0.8)
pt3dadd(107.093, 81.578, 16.721, 0.794)
pt3dadd(107.176, 81.491, 16.721, 0.79)
pt3dadd(107.258, 81.404, 16.721, 0.786)
pt3dadd(107.339, 81.315, 16.721, 0.784)
pt3dadd(107.413, 81.221, 16.721, 0.796)
pt3dadd(107.488, 81.127, 16.721, 0.81)
pt3dadd(107.562, 81.032, 16.721, 0.822)
pt3dadd(107.636, 80.938, 16.721, 0.834)
pt3dadd(107.711, 80.844, 16.721, 0.846)
pt3dadd(107.785, 80.75, 16.721, 0.858)
pt3dadd(107.859, 80.655, 16.721, 0.87)
pt3dadd(107.934, 80.561, 16.721, 0.882)
pt3dadd(108.008, 80.467, 16.721, 0.894)
pt3dadd(108.079, 80.371, 16.721, 0.902)
pt3dadd(108.143, 80.269, 16.721, 0.896)
pt3dadd(108.207, 80.167, 16.721, 0.888)
pt3dadd(108.27, 80.066, 16.721, 0.882)
pt3dadd(108.334, 79.964, 16.721, 0.874)
pt3dadd(108.398, 79.862, 16.721, 0.868)
pt3dadd(108.461, 79.761, 16.721, 0.86)
pt3dadd(108.525, 79.659, 16.721, 0.852)
pt3dadd(108.589, 79.557, 16.721, 0.846)
pt3dadd(108.652, 79.455, 16.721, 0.838)
pt3dadd(108.718, 79.355, 16.721, 0.824)
pt3dadd(108.79, 79.259, 16.721, 0.786)
pt3dadd(108.863, 79.163, 16.721, 0.748)
pt3dadd(108.935, 79.068, 16.721, 0.712)
pt3dadd(109.007, 78.972, 16.721, 0.674)
pt3dadd(109.079, 78.876, 16.721, 0.636)
pt3dadd(109.151, 78.78, 16.721, 0.598)
pt3dadd(109.223, 78.684, 16.721, 0.56)
pt3dadd(109.295, 78.588, 16.721, 0.524)
pt3dadd(109.367, 78.492, 16.721, 0.486)
pt3dadd(109.441, 78.398, 16.721, 0.462)
pt3dadd(109.521, 78.308, 16.721, 0.478)
pt3dadd(109.601, 78.218, 16.721, 0.496)
pt3dadd(109.68, 78.128, 16.721, 0.512)
pt3dadd(109.76, 78.038, 16.721, 0.53)
pt3dadd(109.839, 77.948, 16.721, 0.546)
pt3dadd(109.919, 77.859, 16.721, 0.562)
pt3dadd(109.998, 77.769, 16.721, 0.58)
pt3dadd(110.078, 77.679, 16.721, 0.596)
pt3dadd(110.157, 77.589, 16.721, 0.612)
pt3dadd(110.238, 77.5, 16.721, 0.632)
pt3dadd(110.321, 77.414, 16.721, 0.662)
pt3dadd(110.404, 77.327, 16.721, 0.69)
pt3dadd(110.487, 77.241, 16.721, 0.718)
pt3dadd(110.571, 77.154, 16.721, 0.746)
pt3dadd(110.654, 77.068, 16.721, 0.776)
pt3dadd(110.737, 76.981, 16.721, 0.804)
pt3dadd(110.82, 76.895, 16.721, 0.832)
pt3dadd(110.903, 76.808, 16.721, 0.862)
pt3dadd(110.987, 76.722, 16.721, 0.89)
pt3dadd(111.07, 76.636, 16.721, 0.916)
pt3dadd(111.155, 76.551, 16.721, 0.938)
pt3dadd(111.24, 76.466, 16.721, 0.96)
pt3dadd(111.324, 76.381, 16.721, 0.982)
pt3dadd(111.409, 76.296, 16.721, 1.004)
pt3dadd(111.494, 76.211, 16.721, 1.026)
pt3dadd(111.578, 76.126, 16.721, 1.048)
pt3dadd(111.663, 76.041, 16.721, 1.07)
pt3dadd(111.748, 75.956, 16.721, 1.092)
pt3dadd(111.832, 75.871, 16.721, 1.114)
pt3dadd(111.917, 75.786, 16.721, 1.13)
pt3dadd(112.002, 75.7, 16.721, 1.13)
pt3dadd(112.086, 75.615, 16.721, 1.13)
pt3dadd(112.171, 75.53, 16.721, 1.13)
pt3dadd(112.255, 75.445, 16.721, 1.13)
pt3dadd(112.34, 75.36, 16.721, 1.13)
pt3dadd(112.424, 75.274, 16.721, 1.13)
pt3dadd(112.509, 75.189, 16.721, 1.13)
pt3dadd(112.593, 75.104, 16.721, 1.13)
pt3dadd(112.678, 75.019, 16.721, 1.13)
pt3dadd(112.762, 74.934, 16.721, 1.126)
pt3dadd(112.846, 74.848, 16.721, 1.108)
}
}
proc shape3d_126() {
dend_7[17] { pt3dadd(112.93, 74.762, 16.721, 1.092)
pt3dadd(113.014, 74.677, 16.721, 1.076)
pt3dadd(113.099, 74.591, 16.721, 1.06)
pt3dadd(113.183, 74.506, 16.721, 1.042)
pt3dadd(113.267, 74.42, 16.721, 1.026)
pt3dadd(113.351, 74.335, 16.721, 1.01)
pt3dadd(113.435, 74.249, 16.721, 0.992)
pt3dadd(113.519, 74.163, 16.721, 0.976)
pt3dadd(113.603, 74.078, 16.721, 0.966)
pt3dadd(113.687, 73.992, 16.721, 0.97)
pt3dadd(113.771, 73.906, 16.721, 0.974)
pt3dadd(113.854, 73.82, 16.721, 0.98)
pt3dadd(113.938, 73.734, 16.721, 0.984)
pt3dadd(114.022, 73.648, 16.721, 0.99)
pt3dadd(114.106, 73.562, 16.721, 0.994)
pt3dadd(114.189, 73.476, 16.721, 1)
pt3dadd(114.273, 73.39, 16.721, 1.004)
pt3dadd(114.357, 73.304, 16.721, 1.008)
pt3dadd(114.44, 73.218, 16.721, 1.014)
pt3dadd(114.523, 73.131, 16.721, 1.02)
pt3dadd(114.606, 73.044, 16.721, 1.028)
pt3dadd(114.688, 72.957, 16.721, 1.034)
pt3dadd(114.771, 72.87, 16.721, 1.04)
pt3dadd(114.854, 72.783, 16.721, 1.046)
pt3dadd(114.936, 72.696, 16.721, 1.052)
pt3dadd(115.019, 72.609, 16.721, 1.06)
pt3dadd(115.102, 72.522, 16.721, 1.066)
pt3dadd(115.185, 72.435, 16.721, 1.072)
pt3dadd(115.267, 72.348, 16.721, 1.072)
pt3dadd(115.348, 72.26, 16.721, 1.056)
pt3dadd(115.429, 72.171, 16.721, 1.038)
pt3dadd(115.511, 72.083, 16.721, 1.02)
pt3dadd(115.592, 71.995, 16.721, 1.004)
pt3dadd(115.673, 71.906, 16.721, 0.986)
pt3dadd(115.754, 71.818, 16.721, 0.968)
pt3dadd(115.836, 71.73, 16.721, 0.952)
pt3dadd(115.917, 71.641, 16.721, 0.934)
pt3dadd(115.998, 71.553, 16.721, 0.916)
pt3dadd(116.079, 71.464, 16.721, 0.904)
pt3dadd(116.157, 71.373, 16.72, 0.904)
pt3dadd(116.235, 71.282, 16.72, 0.904)
pt3dadd(116.314, 71.191, 16.72, 0.904)
pt3dadd(116.392, 71.1, 16.72, 0.904)
pt3dadd(116.47, 71.01, 16.72, 0.904)
pt3dadd(116.545, 70.916, 16.72, 0.908)
pt3dadd(116.618, 70.82, 16.72, 0.914)
pt3dadd(116.69, 70.725, 16.72, 0.92)
pt3dadd(116.763, 70.629, 16.72, 0.926)
pt3dadd(116.835, 70.534, 16.72, 0.932)
pt3dadd(116.908, 70.438, 16.72, 0.938)
pt3dadd(116.981, 70.343, 16.72, 0.944)
pt3dadd(117.053, 70.247, 16.72, 0.952)
pt3dadd(117.126, 70.151, 16.72, 0.958)
pt3dadd(117.198, 70.056, 16.72, 0.964)
pt3dadd(117.263, 69.955, 16.719, 0.97)
pt3dadd(117.322, 69.851, 16.719, 0.98)
pt3dadd(117.382, 69.746, 16.719, 0.988)
pt3dadd(117.441, 69.642, 16.719, 0.996)
pt3dadd(117.501, 69.538, 16.719, 1.004)
pt3dadd(117.56, 69.434, 16.719, 1.012)
pt3dadd(117.62, 69.33, 16.719, 1.022)
pt3dadd(117.679, 69.225, 16.718, 1.03)
pt3dadd(117.739, 69.121, 16.718, 1.038)
pt3dadd(117.798, 69.017, 16.718, 1.046)
pt3dadd(117.862, 68.915, 16.718, 1.028)
pt3dadd(117.927, 68.814, 16.718, 0.992)
pt3dadd(117.992, 68.714, 16.717, 0.958)
pt3dadd(118.057, 68.613, 16.717, 0.924)
pt3dadd(118.123, 68.512, 16.717, 0.888)
pt3dadd(118.188, 68.412, 16.716, 0.854)
pt3dadd(118.253, 68.311, 16.716, 0.818)
pt3dadd(118.319, 68.21, 16.716, 0.784)
pt3dadd(118.384, 68.11, 16.715, 0.75)
pt3dadd(118.449, 68.009, 16.715, 0.714)
pt3dadd(118.516, 67.909, 16.715, 0.728)
pt3dadd(118.584, 67.81, 16.714, 0.766)
pt3dadd(118.652, 67.711, 16.714, 0.806)
pt3dadd(118.719, 67.612, 16.713, 0.844)
pt3dadd(118.787, 67.513, 16.712, 0.884)
pt3dadd(118.855, 67.414, 16.712, 0.922)
pt3dadd(118.923, 67.315, 16.711, 0.962)
pt3dadd(118.991, 67.216, 16.711, 1)
pt3dadd(119.058, 67.117, 16.71, 1.04)
pt3dadd(119.126, 67.018, 16.71, 1.078)
pt3dadd(119.183, 66.913, 16.709, 1.058)
pt3dadd(119.234, 66.804, 16.707, 1.002)
pt3dadd(119.284, 66.695, 16.706, 0.946)
pt3dadd(119.335, 66.587, 16.705, 0.89)
pt3dadd(119.385, 66.478, 16.703, 0.834)
pt3dadd(119.436, 66.369, 16.702, 0.78)
pt3dadd(119.487, 66.26, 16.701, 0.724)
pt3dadd(119.537, 66.151, 16.699, 0.668)
pt3dadd(119.588, 66.042, 16.698, 0.612)
pt3dadd(119.638, 65.934, 16.697, 0.558)
pt3dadd(119.677, 65.82, 16.694, 0.532)
pt3dadd(119.709, 65.705, 16.692, 0.524)
pt3dadd(119.741, 65.589, 16.689, 0.516)
pt3dadd(119.773, 65.474, 16.686, 0.506)
pt3dadd(119.806, 65.358, 16.683, 0.498)
pt3dadd(119.838, 65.243, 16.68, 0.49)
pt3dadd(119.87, 65.127, 16.677, 0.48)
pt3dadd(119.902, 65.012, 16.674, 0.472)
pt3dadd(119.935, 64.896, 16.672, 0.464)
pt3dadd(119.967, 64.781, 16.669, 0.454)
pt3dadd(120.011, 64.669, 16.663, 0.452)
pt3dadd(120.06, 64.56, 16.656, 0.452)
pt3dadd(120.109, 64.452, 16.65, 0.452)
pt3dadd(120.16, 64.342, 16.643, 0.452)
pt3dadd(120.209, 64.233, 16.636, 0.452)
pt3dadd(120.258, 64.125, 16.629, 0.452)
pt3dadd(120.308, 64.015, 16.622, 0.452)
pt3dadd(120.358, 63.906, 16.615, 0.452)
pt3dadd(120.407, 63.798, 16.609, 0.452)
pt3dadd(120.456, 63.688, 16.602, 0.452)
pt3dadd(120.502, 63.578, 16.591, 0.482)
pt3dadd(120.546, 63.468, 16.578, 0.528)
pt3dadd(120.59, 63.357, 16.566, 0.572)
pt3dadd(120.634, 63.246, 16.553, 0.618)
pt3dadd(120.678, 63.136, 16.54, 0.662)
pt3dadd(120.721, 63.025, 16.528, 0.708)
pt3dadd(120.766, 62.915, 16.515, 0.752)
pt3dadd(120.81, 62.804, 16.502, 0.796)
pt3dadd(120.853, 62.693, 16.49, 0.842)
pt3dadd(120.898, 62.583, 16.477, 0.886)
pt3dadd(120.946, 62.484, 16.44, 0.912)
pt3dadd(120.996, 62.392, 16.392, 0.93)
pt3dadd(121.045, 62.299, 16.344, 0.948)
pt3dadd(121.096, 62.206, 16.296, 0.964)
pt3dadd(121.145, 62.114, 16.248, 0.982)
pt3dadd(121.195, 62.021, 16.2, 1)
pt3dadd(121.246, 61.928, 16.152, 1.016)
pt3dadd(121.295, 61.836, 16.104, 1.034)
pt3dadd(121.345, 61.743, 16.056, 1.052)
pt3dadd(121.396, 61.65, 16.008, 1.068)
pt3dadd(121.458, 61.556, 15.977, 1.064)
pt3dadd(121.524, 61.461, 15.95, 1.054)
pt3dadd(121.59, 61.366, 15.923, 1.044)
pt3dadd(121.656, 61.271, 15.896, 1.034)
pt3dadd(121.722, 61.176, 15.87, 1.024)
pt3dadd(121.788, 61.081, 15.843, 1.014)
pt3dadd(121.853, 60.986, 15.816, 1.002)
pt3dadd(121.919, 60.891, 15.79, 0.992)
pt3dadd(121.985, 60.796, 15.763, 0.982)
pt3dadd(122.051, 60.701, 15.736, 0.972)
pt3dadd(122.114, 60.602, 15.716, 0.978)
pt3dadd(122.177, 60.502, 15.697, 0.99)
pt3dadd(122.239, 60.402, 15.679, 1)
pt3dadd(122.3, 60.302, 15.66, 1.01)
pt3dadd(122.363, 60.201, 15.641, 1.022)
pt3dadd(122.425, 60.101, 15.623, 1.032)
pt3dadd(122.488, 60.001, 15.604, 1.044)
pt3dadd(122.549, 59.901, 15.585, 1.054)
pt3dadd(122.611, 59.801, 15.567, 1.066)
pt3dadd(122.674, 59.7, 15.548, 1.076)
pt3dadd(122.71, 59.59, 15.525, 1.07)
pt3dadd(122.743, 59.478, 15.502, 1.062)
pt3dadd(122.776, 59.366, 15.478, 1.052)
pt3dadd(122.808, 59.254, 15.454, 1.044)
pt3dadd(122.84, 59.142, 15.431, 1.034)
pt3dadd(122.873, 59.03, 15.407, 1.026)
pt3dadd(122.905, 58.918, 15.384, 1.018)
pt3dadd(122.938, 58.806, 15.36, 1.008)
pt3dadd(122.97, 58.694, 15.336, 1)
pt3dadd(123.004, 58.582, 15.313, 0.992)
pt3dadd(123.011, 58.476, 15.266, 1.022)
pt3dadd(123.018, 58.371, 15.219, 1.054)
pt3dadd(123.024, 58.265, 15.172, 1.086)
pt3dadd(123.031, 58.159, 15.125, 1.118)
pt3dadd(123.038, 58.054, 15.078, 1.148)
pt3dadd(123.046, 57.948, 15.031, 1.18)
pt3dadd(123.053, 57.842, 14.985, 1.212)
pt3dadd(123.059, 57.736, 14.938, 1.244)
pt3dadd(123.066, 57.631, 14.891, 1.276)
pt3dadd(123.073, 57.525, 14.844, 1.306)
pt3dadd(123.066, 57.424, 14.79, 1.268)
pt3dadd(123.059, 57.324, 14.735, 1.228)
pt3dadd(123.053, 57.223, 14.681, 1.188)
pt3dadd(123.046, 57.123, 14.627, 1.15)
pt3dadd(123.038, 57.022, 14.573, 1.11)
pt3dadd(123.031, 56.922, 14.518, 1.07)
pt3dadd(123.024, 56.821, 14.464, 1.032)
pt3dadd(123.018, 56.72, 14.41, 0.992)
pt3dadd(123.011, 56.62, 14.355, 0.952)
pt3dadd(123.004, 56.519, 14.301, 0.912)
}
dend_7[18] {pt3dclear()
pt3dadd(123.004, 56.519, 14.301, 0.912)
pt3dadd(122.992, 56.407, 14.267, 0.89)
pt3dadd(122.978, 56.295, 14.233, 0.868)
pt3dadd(122.966, 56.183, 14.199, 0.846)
pt3dadd(122.953, 56.071, 14.165, 0.824)
pt3dadd(122.941, 55.959, 14.131, 0.8)
pt3dadd(122.928, 55.847, 14.097, 0.778)
pt3dadd(122.915, 55.735, 14.063, 0.756)
pt3dadd(122.903, 55.623, 14.029, 0.734)
pt3dadd(122.89, 55.51, 13.995, 0.712)
pt3dadd(122.878, 55.398, 13.961, 0.688)
pt3dadd(122.836, 55.287, 13.95, 0.708)
pt3dadd(122.792, 55.175, 13.938, 0.728)
pt3dadd(122.75, 55.064, 13.927, 0.748)
pt3dadd(122.707, 54.953, 13.915, 0.768)
pt3dadd(122.665, 54.841, 13.904, 0.788)
}
}
proc shape3d_127() {
dend_7[18] { pt3dadd(122.622, 54.73, 13.892, 0.806)
pt3dadd(122.58, 54.618, 13.881, 0.826)
pt3dadd(122.538, 54.507, 13.87, 0.846)
pt3dadd(122.495, 54.396, 13.858, 0.866)
pt3dadd(122.453, 54.284, 13.847, 0.884)
pt3dadd(122.424, 54.168, 13.846, 0.886)
pt3dadd(122.395, 54.051, 13.845, 0.888)
pt3dadd(122.366, 53.935, 13.844, 0.89)
pt3dadd(122.339, 53.818, 13.843, 0.892)
pt3dadd(122.31, 53.702, 13.842, 0.894)
pt3dadd(122.281, 53.585, 13.841, 0.896)
pt3dadd(122.252, 53.469, 13.84, 0.898)
pt3dadd(122.224, 53.352, 13.84, 0.9)
pt3dadd(122.195, 53.236, 13.839, 0.902)
pt3dadd(122.167, 53.119, 13.838, 0.904)
pt3dadd(122.155, 53, 13.838, 0.882)
pt3dadd(122.144, 52.88, 13.838, 0.86)
pt3dadd(122.132, 52.761, 13.838, 0.838)
pt3dadd(122.122, 52.641, 13.837, 0.816)
pt3dadd(122.11, 52.522, 13.837, 0.794)
pt3dadd(122.099, 52.402, 13.837, 0.772)
pt3dadd(122.087, 52.283, 13.837, 0.75)
pt3dadd(122.076, 52.163, 13.837, 0.73)
pt3dadd(122.064, 52.044, 13.837, 0.708)
pt3dadd(122.053, 51.924, 13.837, 0.686)
pt3dadd(122.062, 51.805, 13.837, 0.662)
pt3dadd(122.069, 51.685, 13.837, 0.638)
pt3dadd(122.076, 51.565, 13.837, 0.616)
pt3dadd(122.083, 51.445, 13.837, 0.592)
pt3dadd(122.09, 51.326, 13.836, 0.568)
pt3dadd(122.099, 51.206, 13.836, 0.546)
pt3dadd(122.106, 51.086, 13.836, 0.522)
pt3dadd(122.113, 50.966, 13.836, 0.498)
pt3dadd(122.12, 50.847, 13.836, 0.474)
pt3dadd(122.129, 50.727, 13.836, 0.452)
pt3dadd(122.142, 50.608, 13.835, 0.432)
pt3dadd(122.156, 50.488, 13.835, 0.412)
pt3dadd(122.17, 50.369, 13.835, 0.394)
pt3dadd(122.184, 50.25, 13.835, 0.374)
pt3dadd(122.198, 50.131, 13.834, 0.356)
pt3dadd(122.212, 50.012, 13.834, 0.336)
pt3dadd(122.226, 49.892, 13.834, 0.316)
pt3dadd(122.24, 49.773, 13.833, 0.298)
pt3dadd(122.254, 49.654, 13.833, 0.278)
pt3dadd(122.269, 49.535, 13.833, 0.268)
pt3dadd(122.314, 49.424, 13.832, 0.378)
pt3dadd(122.357, 49.312, 13.832, 0.486)
pt3dadd(122.4, 49.2, 13.831, 0.596)
pt3dadd(122.443, 49.088, 13.83, 0.706)
pt3dadd(122.486, 48.976, 13.83, 0.816)
pt3dadd(122.531, 48.864, 13.829, 0.924)
pt3dadd(122.574, 48.752, 13.829, 1.034)
pt3dadd(122.617, 48.641, 13.828, 1.144)
pt3dadd(122.66, 48.529, 13.827, 1.254)
pt3dadd(122.702, 48.416, 13.827, 1.352)
pt3dadd(122.726, 48.299, 13.825, 1.306)
pt3dadd(122.752, 48.181, 13.824, 1.26)
pt3dadd(122.776, 48.064, 13.823, 1.214)
pt3dadd(122.8, 47.946, 13.821, 1.166)
pt3dadd(122.824, 47.829, 13.82, 1.12)
pt3dadd(122.848, 47.711, 13.818, 1.074)
pt3dadd(122.872, 47.594, 13.817, 1.026)
pt3dadd(122.896, 47.476, 13.815, 0.98)
pt3dadd(122.92, 47.359, 13.814, 0.934)
pt3dadd(122.942, 47.241, 13.813, 0.886)
pt3dadd(122.95, 47.121, 13.809, 0.82)
pt3dadd(122.956, 47.001, 13.806, 0.756)
pt3dadd(122.963, 46.882, 13.803, 0.69)
pt3dadd(122.969, 46.762, 13.8, 0.624)
pt3dadd(122.975, 46.642, 13.797, 0.56)
pt3dadd(122.982, 46.522, 13.794, 0.494)
pt3dadd(122.988, 46.403, 13.791, 0.428)
pt3dadd(122.995, 46.283, 13.788, 0.362)
pt3dadd(123.001, 46.163, 13.785, 0.298)
pt3dadd(123.005, 46.044, 13.781, 0.24)
pt3dadd(122.976, 45.927, 13.774, 0.26)
pt3dadd(122.947, 45.811, 13.767, 0.28)
pt3dadd(122.92, 45.695, 13.76, 0.3)
pt3dadd(122.891, 45.578, 13.753, 0.32)
pt3dadd(122.863, 45.462, 13.746, 0.342)
pt3dadd(122.834, 45.346, 13.739, 0.362)
pt3dadd(122.806, 45.23, 13.732, 0.382)
pt3dadd(122.778, 45.113, 13.724, 0.402)
pt3dadd(122.749, 44.997, 13.717, 0.422)
pt3dadd(122.729, 44.88, 13.709, 0.436)
pt3dadd(122.75, 44.764, 13.696, 0.416)
pt3dadd(122.772, 44.647, 13.683, 0.396)
pt3dadd(122.794, 44.53, 13.669, 0.376)
pt3dadd(122.815, 44.413, 13.656, 0.356)
pt3dadd(122.837, 44.296, 13.643, 0.338)
pt3dadd(122.86, 44.179, 13.629, 0.318)
pt3dadd(122.881, 44.062, 13.616, 0.298)
pt3dadd(122.903, 43.945, 13.603, 0.278)
pt3dadd(122.924, 43.828, 13.59, 0.258)
pt3dadd(122.946, 43.713, 13.572, 0.246)
pt3dadd(122.969, 43.603, 13.536, 0.268)
pt3dadd(122.993, 43.494, 13.5, 0.288)
pt3dadd(123.016, 43.384, 13.463, 0.31)
pt3dadd(123.038, 43.275, 13.427, 0.332)
pt3dadd(123.061, 43.166, 13.391, 0.354)
pt3dadd(123.085, 43.056, 13.354, 0.374)
pt3dadd(123.108, 42.947, 13.318, 0.396)
pt3dadd(123.131, 42.837, 13.282, 0.418)
pt3dadd(123.154, 42.728, 13.245, 0.438)
pt3dadd(123.178, 42.618, 13.211, 0.46)
pt3dadd(123.204, 42.504, 13.188, 0.482)
pt3dadd(123.232, 42.391, 13.165, 0.506)
pt3dadd(123.258, 42.277, 13.141, 0.528)
pt3dadd(123.284, 42.164, 13.118, 0.55)
pt3dadd(123.312, 42.05, 13.094, 0.572)
pt3dadd(123.338, 41.937, 13.071, 0.594)
pt3dadd(123.366, 41.823, 13.047, 0.618)
pt3dadd(123.392, 41.71, 13.024, 0.64)
pt3dadd(123.42, 41.596, 13, 0.662)
pt3dadd(123.45, 41.483, 12.979, 0.688)
pt3dadd(123.496, 41.373, 12.969, 0.732)
pt3dadd(123.541, 41.263, 12.958, 0.774)
pt3dadd(123.588, 41.153, 12.948, 0.818)
pt3dadd(123.634, 41.043, 12.937, 0.862)
pt3dadd(123.679, 40.933, 12.927, 0.904)
pt3dadd(123.725, 40.822, 12.916, 0.948)
pt3dadd(123.772, 40.712, 12.906, 0.992)
pt3dadd(123.817, 40.602, 12.895, 1.034)
pt3dadd(123.863, 40.492, 12.885, 1.078)
pt3dadd(123.907, 40.381, 12.876, 1.098)
pt3dadd(123.941, 40.266, 12.875, 1.014)
pt3dadd(123.976, 40.151, 12.874, 0.928)
pt3dadd(124.009, 40.036, 12.873, 0.842)
pt3dadd(124.044, 39.921, 12.872, 0.756)
pt3dadd(124.078, 39.806, 12.871, 0.67)
pt3dadd(124.111, 39.691, 12.87, 0.584)
pt3dadd(124.146, 39.576, 12.869, 0.498)
pt3dadd(124.18, 39.461, 12.868, 0.412)
pt3dadd(124.214, 39.346, 12.867, 0.326)
pt3dadd(124.246, 39.23, 12.866, 0.27)
pt3dadd(124.265, 39.112, 12.865, 0.358)
pt3dadd(124.285, 38.993, 12.863, 0.444)
pt3dadd(124.304, 38.875, 12.862, 0.532)
pt3dadd(124.325, 38.757, 12.86, 0.618)
pt3dadd(124.344, 38.638, 12.859, 0.704)
pt3dadd(124.364, 38.52, 12.858, 0.792)
pt3dadd(124.384, 38.402, 12.856, 0.878)
pt3dadd(124.404, 38.283, 12.855, 0.966)
pt3dadd(124.423, 38.165, 12.853, 1.052)
pt3dadd(124.446, 38.047, 12.852, 1.106)
pt3dadd(124.478, 37.932, 12.849, 1.018)
pt3dadd(124.512, 37.816, 12.846, 0.928)
pt3dadd(124.544, 37.701, 12.843, 0.84)
pt3dadd(124.577, 37.586, 12.84, 0.75)
pt3dadd(124.61, 37.47, 12.837, 0.662)
pt3dadd(124.643, 37.355, 12.834, 0.572)
pt3dadd(124.676, 37.24, 12.831, 0.482)
pt3dadd(124.709, 37.124, 12.828, 0.394)
pt3dadd(124.741, 37.009, 12.825, 0.304)
pt3dadd(124.764, 36.893, 12.821, 0.24)
pt3dadd(124.747, 36.774, 12.813, 0.264)
pt3dadd(124.73, 36.656, 12.804, 0.29)
pt3dadd(124.712, 36.538, 12.796, 0.314)
pt3dadd(124.696, 36.419, 12.788, 0.34)
pt3dadd(124.679, 36.301, 12.78, 0.364)
pt3dadd(124.662, 36.183, 12.772, 0.39)
pt3dadd(124.645, 36.064, 12.764, 0.416)
pt3dadd(124.627, 35.946, 12.755, 0.44)
pt3dadd(124.61, 35.827, 12.747, 0.466)
pt3dadd(124.595, 35.71, 12.735, 0.492)
pt3dadd(124.583, 35.594, 12.711, 0.52)
pt3dadd(124.571, 35.478, 12.686, 0.548)
pt3dadd(124.559, 35.363, 12.661, 0.576)
pt3dadd(124.547, 35.247, 12.636, 0.606)
pt3dadd(124.535, 35.131, 12.612, 0.634)
pt3dadd(124.523, 35.016, 12.587, 0.662)
pt3dadd(124.512, 34.9, 12.562, 0.69)
pt3dadd(124.5, 34.784, 12.537, 0.72)
pt3dadd(124.488, 34.669, 12.513, 0.748)
pt3dadd(124.484, 34.556, 12.481, 0.764)
pt3dadd(124.494, 34.448, 12.439, 0.76)
pt3dadd(124.504, 34.339, 12.397, 0.758)
pt3dadd(124.512, 34.23, 12.355, 0.754)
pt3dadd(124.522, 34.122, 12.313, 0.752)
pt3dadd(124.531, 34.013, 12.271, 0.75)
pt3dadd(124.54, 33.905, 12.229, 0.746)
pt3dadd(124.549, 33.796, 12.187, 0.744)
pt3dadd(124.559, 33.688, 12.145, 0.74)
pt3dadd(124.568, 33.579, 12.103, 0.738)
pt3dadd(124.598, 33.47, 12.076, 0.734)
pt3dadd(124.644, 33.361, 12.061, 0.728)
pt3dadd(124.691, 33.252, 12.046, 0.722)
pt3dadd(124.738, 33.143, 12.031, 0.716)
pt3dadd(124.783, 33.034, 12.015, 0.71)
pt3dadd(124.83, 32.925, 12, 0.704)
pt3dadd(124.877, 32.815, 11.985, 0.698)
pt3dadd(124.922, 32.706, 11.97, 0.692)
pt3dadd(124.969, 32.597, 11.954, 0.686)
pt3dadd(125.016, 32.488, 11.939, 0.68)
pt3dadd(125.058, 32.376, 11.933, 0.69)
pt3dadd(125.098, 32.263, 11.931, 0.71)
pt3dadd(125.138, 32.15, 11.929, 0.728)
pt3dadd(125.178, 32.037, 11.927, 0.746)
pt3dadd(125.219, 31.924, 11.925, 0.766)
pt3dadd(125.258, 31.811, 11.924, 0.784)
}
}
proc shape3d_128() {
dend_7[18] { pt3dadd(125.299, 31.698, 11.922, 0.804)
pt3dadd(125.339, 31.585, 11.92, 0.822)
pt3dadd(125.38, 31.472, 11.918, 0.84)
pt3dadd(125.419, 31.359, 11.917, 0.86)
pt3dadd(125.454, 31.244, 11.916, 0.842)
pt3dadd(125.485, 31.128, 11.916, 0.808)
pt3dadd(125.516, 31.012, 11.916, 0.774)
pt3dadd(125.548, 30.896, 11.916, 0.74)
pt3dadd(125.579, 30.78, 11.916, 0.706)
pt3dadd(125.61, 30.665, 11.916, 0.674)
pt3dadd(125.641, 30.549, 11.915, 0.64)
pt3dadd(125.672, 30.433, 11.915, 0.606)
pt3dadd(125.705, 30.317, 11.915, 0.572)
pt3dadd(125.736, 30.201, 11.915, 0.538)
pt3dadd(125.778, 30.09, 11.915, 0.534)
pt3dadd(125.826, 29.98, 11.915, 0.544)
pt3dadd(125.874, 29.87, 11.915, 0.554)
pt3dadd(125.923, 29.76, 11.915, 0.564)
pt3dadd(125.971, 29.65, 11.915, 0.574)
pt3dadd(126.019, 29.54, 11.915, 0.586)
pt3dadd(126.067, 29.43, 11.914, 0.596)
pt3dadd(126.115, 29.32, 11.914, 0.606)
pt3dadd(126.163, 29.21, 11.914, 0.616)
pt3dadd(126.211, 29.1, 11.914, 0.626)
pt3dadd(126.257, 28.989, 11.914, 0.658)
pt3dadd(126.3, 28.877, 11.914, 0.696)
pt3dadd(126.344, 28.766, 11.913, 0.736)
pt3dadd(126.389, 28.654, 11.913, 0.774)
pt3dadd(126.432, 28.542, 11.913, 0.814)
pt3dadd(126.476, 28.431, 11.913, 0.852)
pt3dadd(126.521, 28.319, 11.912, 0.89)
pt3dadd(126.564, 28.207, 11.912, 0.93)
pt3dadd(126.608, 28.096, 11.912, 0.968)
pt3dadd(126.652, 27.984, 11.912, 1.008)
pt3dadd(126.702, 27.875, 11.911, 1.004)
pt3dadd(126.755, 27.767, 11.911, 0.984)
pt3dadd(126.808, 27.659, 11.91, 0.964)
pt3dadd(126.86, 27.552, 11.91, 0.944)
pt3dadd(126.913, 27.444, 11.909, 0.924)
pt3dadd(126.966, 27.336, 11.909, 0.904)
pt3dadd(127.018, 27.228, 11.908, 0.884)
pt3dadd(127.07, 27.12, 11.908, 0.864)
pt3dadd(127.123, 27.012, 11.907, 0.844)
pt3dadd(127.176, 26.905, 11.906, 0.824)
pt3dadd(127.22, 26.793, 11.906, 0.808)
pt3dadd(127.261, 26.68, 11.904, 0.794)
pt3dadd(127.302, 26.567, 11.903, 0.78)
pt3dadd(127.343, 26.454, 11.902, 0.766)
pt3dadd(127.384, 26.342, 11.901, 0.752)
pt3dadd(127.424, 26.229, 11.9, 0.738)
pt3dadd(127.465, 26.116, 11.899, 0.724)
pt3dadd(127.505, 26.003, 11.898, 0.71)
pt3dadd(127.546, 25.89, 11.896, 0.696)
pt3dadd(127.586, 25.777, 11.895, 0.682)
pt3dadd(127.616, 25.661, 11.893, 0.678)
pt3dadd(127.643, 25.544, 11.891, 0.678)
pt3dadd(127.669, 25.427, 11.888, 0.678)
pt3dadd(127.696, 25.31, 11.886, 0.678)
pt3dadd(127.722, 25.193, 11.883, 0.678)
pt3dadd(127.748, 25.076, 11.881, 0.678)
pt3dadd(127.775, 24.959, 11.878, 0.678)
pt3dadd(127.801, 24.842, 11.876, 0.678)
pt3dadd(127.828, 24.725, 11.873, 0.678)
pt3dadd(127.854, 24.608, 11.871, 0.678)
pt3dadd(127.876, 24.49, 11.866, 0.678)
pt3dadd(127.895, 24.372, 11.86, 0.678)
pt3dadd(127.914, 24.254, 11.854, 0.678)
pt3dadd(127.933, 24.135, 11.848, 0.678)
pt3dadd(127.952, 24.017, 11.842, 0.678)
pt3dadd(127.972, 23.899, 11.836, 0.678)
pt3dadd(127.991, 23.781, 11.83, 0.678)
pt3dadd(128.01, 23.663, 11.824, 0.678)
pt3dadd(128.03, 23.544, 11.818, 0.678)
pt3dadd(128.05, 23.426, 11.813, 0.678)
pt3dadd(128.087, 23.313, 11.803, 0.678)
pt3dadd(128.129, 23.202, 11.793, 0.678)
pt3dadd(128.171, 23.09, 11.783, 0.678)
pt3dadd(128.214, 22.978, 11.773, 0.678)
pt3dadd(128.256, 22.867, 11.763, 0.678)
pt3dadd(128.298, 22.755, 11.753, 0.678)
pt3dadd(128.34, 22.643, 11.743, 0.678)
pt3dadd(128.382, 22.532, 11.732, 0.678)
pt3dadd(128.425, 22.42, 11.722, 0.678)
pt3dadd(128.467, 22.308, 11.712, 0.678)
pt3dadd(128.512, 22.201, 11.686, 0.666)
pt3dadd(128.556, 22.095, 11.658, 0.652)
pt3dadd(128.6, 21.989, 11.63, 0.638)
pt3dadd(128.645, 21.883, 11.602, 0.626)
pt3dadd(128.689, 21.776, 11.575, 0.612)
pt3dadd(128.734, 21.67, 11.547, 0.598)
pt3dadd(128.778, 21.564, 11.519, 0.584)
pt3dadd(128.824, 21.458, 11.491, 0.572)
pt3dadd(128.868, 21.351, 11.463, 0.558)
pt3dadd(128.912, 21.245, 11.435, 0.544)
pt3dadd(128.962, 21.142, 11.405, 0.546)
pt3dadd(129.011, 21.038, 11.375, 0.548)
pt3dadd(129.06, 20.935, 11.345, 0.55)
pt3dadd(129.109, 20.832, 11.315, 0.552)
pt3dadd(129.16, 20.729, 11.285, 0.556)
pt3dadd(129.209, 20.625, 11.255, 0.558)
pt3dadd(129.258, 20.522, 11.225, 0.56)
pt3dadd(129.307, 20.419, 11.195, 0.562)
pt3dadd(129.356, 20.316, 11.165, 0.564)
pt3dadd(129.407, 20.212, 11.135, 0.566)
pt3dadd(129.455, 20.106, 11.113, 0.578)
pt3dadd(129.503, 19.999, 11.091, 0.588)
pt3dadd(129.552, 19.893, 11.069, 0.6)
pt3dadd(129.6, 19.786, 11.047, 0.612)
pt3dadd(129.648, 19.679, 11.025, 0.622)
pt3dadd(129.697, 19.573, 11.003, 0.634)
pt3dadd(129.745, 19.466, 10.981, 0.646)
pt3dadd(129.793, 19.36, 10.96, 0.656)
pt3dadd(129.842, 19.253, 10.938, 0.668)
pt3dadd(129.89, 19.146, 10.916, 0.678)
pt3dadd(129.924, 19.033, 10.899, 0.692)
pt3dadd(129.959, 18.92, 10.882, 0.704)
pt3dadd(129.992, 18.807, 10.865, 0.716)
pt3dadd(130.027, 18.693, 10.849, 0.73)
pt3dadd(130.062, 18.58, 10.832, 0.742)
pt3dadd(130.096, 18.467, 10.815, 0.754)
pt3dadd(130.13, 18.354, 10.798, 0.768)
pt3dadd(130.165, 18.24, 10.782, 0.78)
pt3dadd(130.199, 18.127, 10.765, 0.792)
pt3dadd(130.235, 18.015, 10.747, 0.804)
pt3dadd(130.283, 17.916, 10.708, 0.796)
pt3dadd(130.332, 17.816, 10.67, 0.79)
pt3dadd(130.38, 17.717, 10.631, 0.782)
pt3dadd(130.429, 17.617, 10.592, 0.774)
pt3dadd(130.477, 17.518, 10.554, 0.768)
pt3dadd(130.526, 17.418, 10.515, 0.76)
pt3dadd(130.574, 17.319, 10.476, 0.752)
pt3dadd(130.624, 17.22, 10.438, 0.744)
pt3dadd(130.673, 17.12, 10.399, 0.738)
pt3dadd(130.718, 17.02, 10.359, 0.74)
pt3dadd(130.759, 16.919, 10.318, 0.756)
pt3dadd(130.801, 16.819, 10.276, 0.772)
pt3dadd(130.842, 16.718, 10.234, 0.79)
pt3dadd(130.884, 16.617, 10.192, 0.806)
pt3dadd(130.925, 16.516, 10.15, 0.824)
pt3dadd(130.967, 16.415, 10.108, 0.84)
pt3dadd(131.008, 16.315, 10.066, 0.856)
pt3dadd(131.05, 16.214, 10.024, 0.874)
pt3dadd(131.09, 16.113, 9.983, 0.89)
pt3dadd(131.122, 16.007, 9.946, 0.898)
pt3dadd(131.14, 15.894, 9.915, 0.89)
pt3dadd(131.158, 15.781, 9.884, 0.882)
pt3dadd(131.176, 15.669, 9.853, 0.874)
pt3dadd(131.194, 15.556, 9.823, 0.868)
pt3dadd(131.212, 15.443, 9.792, 0.86)
pt3dadd(131.228, 15.33, 9.761, 0.852)
pt3dadd(131.246, 15.218, 9.73, 0.844)
pt3dadd(131.264, 15.105, 9.699, 0.838)
pt3dadd(131.282, 14.992, 9.669, 0.83)
pt3dadd(131.297, 14.882, 9.631, 0.798)
pt3dadd(131.305, 14.775, 9.586, 0.738)
pt3dadd(131.315, 14.669, 9.541, 0.678)
pt3dadd(131.324, 14.562, 9.496, 0.618)
pt3dadd(131.334, 14.455, 9.451, 0.558)
pt3dadd(131.344, 14.349, 9.406, 0.498)
pt3dadd(131.353, 14.242, 9.361, 0.438)
pt3dadd(131.363, 14.135, 9.316, 0.378)
pt3dadd(131.372, 14.029, 9.27, 0.318)
pt3dadd(131.382, 13.922, 9.225, 0.258)
pt3dadd(131.398, 13.816, 9.181, 0.23)
pt3dadd(131.423, 13.711, 9.136, 0.242)
pt3dadd(131.447, 13.607, 9.092, 0.252)
pt3dadd(131.471, 13.502, 9.047, 0.262)
pt3dadd(131.495, 13.397, 9.003, 0.274)
pt3dadd(131.52, 13.293, 8.958, 0.284)
pt3dadd(131.544, 13.188, 8.914, 0.294)
pt3dadd(131.568, 13.083, 8.869, 0.304)
pt3dadd(131.593, 12.978, 8.825, 0.316)
pt3dadd(131.617, 12.874, 8.78, 0.326)
pt3dadd(131.659, 12.781, 8.73, 0.346)
pt3dadd(131.712, 12.695, 8.676, 0.37)
pt3dadd(131.765, 12.609, 8.622, 0.396)
pt3dadd(131.818, 12.523, 8.568, 0.422)
pt3dadd(131.87, 12.437, 8.514, 0.446)
pt3dadd(131.923, 12.35, 8.46, 0.472)
pt3dadd(131.976, 12.264, 8.406, 0.496)
pt3dadd(132.029, 12.178, 8.351, 0.522)
pt3dadd(132.082, 12.092, 8.297, 0.548)
pt3dadd(132.133, 12.006, 8.243, 0.572)
pt3dadd(132.174, 11.904, 8.205, 0.582)
pt3dadd(132.21, 11.796, 8.173, 0.584)
pt3dadd(132.247, 11.689, 8.14, 0.588)
pt3dadd(132.283, 11.581, 8.107, 0.592)
pt3dadd(132.319, 11.474, 8.075, 0.594)
pt3dadd(132.356, 11.367, 8.042, 0.598)
pt3dadd(132.392, 11.259, 8.009, 0.602)
pt3dadd(132.428, 11.152, 7.976, 0.606)
pt3dadd(132.466, 11.044, 7.944, 0.608)
pt3dadd(132.502, 10.937, 7.911, 0.612)
pt3dadd(132.535, 10.835, 7.867, 0.65)
pt3dadd(132.569, 10.735, 7.82, 0.698)
pt3dadd(132.602, 10.634, 7.773, 0.746)
pt3dadd(132.636, 10.534, 7.726, 0.794)
pt3dadd(132.67, 10.433, 7.679, 0.842)
pt3dadd(132.703, 10.333, 7.632, 0.89)
pt3dadd(132.737, 10.232, 7.585, 0.938)
}
}
proc shape3d_129() {
dend_7[18] { pt3dadd(132.77, 10.132, 7.538, 0.986)
pt3dadd(132.804, 10.031, 7.491, 1.034)
pt3dadd(132.838, 9.931, 7.444, 1.08)
pt3dadd(132.902, 9.836, 7.418, 1.026)
pt3dadd(132.971, 9.741, 7.394, 0.964)
pt3dadd(133.039, 9.647, 7.371, 0.9)
pt3dadd(133.108, 9.552, 7.347, 0.836)
pt3dadd(133.176, 9.458, 7.323, 0.774)
pt3dadd(133.244, 9.363, 7.299, 0.71)
pt3dadd(133.313, 9.269, 7.275, 0.646)
pt3dadd(133.38, 9.175, 7.252, 0.584)
pt3dadd(133.448, 9.08, 7.228, 0.52)
pt3dadd(133.517, 8.986, 7.204, 0.456)
pt3dadd(133.588, 8.89, 7.194, 0.454)
pt3dadd(133.66, 8.794, 7.185, 0.458)
pt3dadd(133.73, 8.698, 7.176, 0.46)
pt3dadd(133.802, 8.602, 7.167, 0.464)
pt3dadd(133.873, 8.506, 7.157, 0.466)
pt3dadd(133.944, 8.41, 7.148, 0.47)
pt3dadd(134.016, 8.314, 7.139, 0.472)
pt3dadd(134.087, 8.218, 7.13, 0.476)
pt3dadd(134.159, 8.122, 7.121, 0.478)
pt3dadd(134.23, 8.027, 7.112, 0.482)
pt3dadd(134.274, 7.915, 7.112, 0.502)
pt3dadd(134.318, 7.804, 7.112, 0.52)
pt3dadd(134.363, 7.692, 7.112, 0.54)
pt3dadd(134.407, 7.581, 7.112, 0.56)
pt3dadd(134.452, 7.469, 7.112, 0.58)
pt3dadd(134.497, 7.358, 7.112, 0.6)
pt3dadd(134.542, 7.247, 7.112, 0.62)
pt3dadd(134.586, 7.135, 7.112, 0.638)
pt3dadd(134.63, 7.024, 7.112, 0.658)
pt3dadd(134.675, 6.912, 7.112, 0.678)
}
dend_7[19] {pt3dclear()
pt3dadd(123.004, 56.519, 14.301, 0.912)
pt3dadd(123.098, 56.576, 14.301, 0.876)
pt3dadd(123.2, 56.639, 14.301, 0.836)
pt3dadd(123.304, 56.701, 14.301, 0.794)
pt3dadd(123.406, 56.763, 14.3, 0.754)
pt3dadd(123.509, 56.825, 14.3, 0.714)
pt3dadd(123.612, 56.875, 14.3, 0.678)
pt3dadd(123.724, 56.83, 14.3, 0.678)
pt3dadd(123.835, 56.786, 14.3, 0.678)
pt3dadd(123.947, 56.741, 14.3, 0.678)
pt3dadd(124.058, 56.697, 14.3, 0.678)
pt3dadd(124.17, 56.652, 14.3, 0.678)
pt3dadd(124.278, 56.601, 14.3, 0.678)
pt3dadd(124.385, 56.547, 14.3, 0.678)
pt3dadd(124.493, 56.494, 14.3, 0.678)
pt3dadd(124.6, 56.44, 14.3, 0.678)
pt3dadd(124.708, 56.387, 14.3, 0.678)
pt3dadd(124.812, 56.328, 14.3, 0.678)
pt3dadd(124.914, 56.265, 14.3, 0.678)
pt3dadd(125.016, 56.202, 14.3, 0.678)
pt3dadd(125.119, 56.139, 14.3, 0.678)
pt3dadd(125.221, 56.076, 14.3, 0.678)
pt3dadd(125.315, 56.005, 14.29, 0.678)
pt3dadd(125.398, 55.923, 14.267, 0.678)
pt3dadd(125.48, 55.84, 14.245, 0.678)
pt3dadd(125.562, 55.758, 14.221, 0.678)
pt3dadd(125.645, 55.674, 14.2, 0.678)
pt3dadd(125.717, 55.578, 14.2, 0.678)
pt3dadd(125.789, 55.482, 14.2, 0.678)
pt3dadd(125.861, 55.386, 14.2, 0.678)
pt3dadd(125.933, 55.29, 14.2, 0.678)
pt3dadd(126.006, 55.196, 14.2, 0.678)
pt3dadd(126.108, 55.133, 14.2, 0.678)
pt3dadd(126.211, 55.07, 14.2, 0.678)
pt3dadd(126.313, 55.007, 14.2, 0.678)
pt3dadd(126.415, 54.944, 14.2, 0.678)
pt3dadd(126.517, 54.881, 14.2, 0.678)
pt3dadd(126.583, 54.789, 14.17, 0.678)
pt3dadd(126.649, 54.696, 14.138, 0.678)
pt3dadd(126.715, 54.602, 14.107, 0.678)
pt3dadd(126.78, 54.509, 14.076, 0.678)
pt3dadd(126.848, 54.438, 14.023, 0.678)
pt3dadd(126.917, 54.376, 13.959, 0.678)
pt3dadd(126.962, 54.318, 13.88, 0.678)
pt3dadd(127.01, 54.255, 13.81, 0.678)
pt3dadd(127.096, 54.171, 13.805, 0.678)
pt3dadd(127.181, 54.086, 13.8, 0.678)
pt3dadd(127.262, 53.998, 13.8, 0.678)
pt3dadd(127.343, 53.91, 13.8, 0.678)
pt3dadd(127.433, 53.83, 13.792, 0.678)
pt3dadd(127.52, 53.762, 13.76, 0.678)
pt3dadd(127.608, 53.7, 13.715, 0.678)
pt3dadd(127.694, 53.639, 13.669, 0.678)
pt3dadd(127.782, 53.578, 13.623, 0.678)
pt3dadd(127.876, 53.514, 13.6, 0.678)
pt3dadd(127.976, 53.448, 13.6, 0.678)
pt3dadd(128.076, 53.382, 13.6, 0.678)
pt3dadd(128.177, 53.316, 13.6, 0.678)
pt3dadd(128.276, 53.25, 13.6, 0.678)
pt3dadd(128.376, 53.183, 13.6, 0.678)
pt3dadd(128.474, 53.114, 13.6, 0.678)
pt3dadd(128.573, 53.045, 13.6, 0.678)
pt3dadd(128.671, 52.976, 13.6, 0.678)
pt3dadd(128.77, 52.907, 13.6, 0.678)
pt3dadd(128.85, 52.823, 13.6, 0.678)
pt3dadd(128.908, 52.718, 13.6, 0.678)
pt3dadd(128.964, 52.612, 13.6, 0.678)
pt3dadd(129.02, 52.506, 13.6, 0.678)
pt3dadd(129.077, 52.4, 13.6, 0.678)
pt3dadd(129.133, 52.294, 13.599, 0.678)
pt3dadd(129.19, 52.188, 13.594, 0.678)
pt3dadd(129.247, 52.086, 13.584, 0.678)
pt3dadd(129.324, 52.01, 13.54, 0.678)
pt3dadd(129.409, 51.938, 13.509, 0.678)
pt3dadd(129.51, 51.874, 13.504, 0.678)
pt3dadd(129.588, 51.797, 13.5, 0.678)
pt3dadd(129.593, 51.677, 13.5, 0.678)
pt3dadd(129.598, 51.557, 13.5, 0.678)
pt3dadd(129.6, 51.437, 13.498, 0.678)
pt3dadd(129.6, 51.318, 13.492, 0.678)
pt3dadd(129.6, 51.201, 13.474, 0.678)
pt3dadd(129.6, 51.087, 13.441, 0.678)
pt3dadd(129.6, 50.973, 13.411, 0.678)
pt3dadd(129.6, 50.854, 13.407, 0.678)
pt3dadd(129.6, 50.734, 13.403, 0.678)
pt3dadd(129.601, 50.617, 13.39, 0.678)
pt3dadd(129.607, 50.511, 13.343, 0.678)
pt3dadd(129.617, 50.412, 13.293, 0.678)
pt3dadd(129.66, 50.4, 13.2, 0.678)
pt3dadd(129.703, 50.388, 13.107, 0.678)
pt3dadd(129.716, 50.304, 13.039, 0.678)
pt3dadd(129.72, 50.199, 12.998, 0.678)
pt3dadd(129.72, 50.082, 12.976, 0.678)
pt3dadd(129.721, 49.968, 12.95, 0.678)
pt3dadd(129.742, 49.9, 12.87, 0.678)
pt3dadd(129.769, 49.83, 12.793, 0.678)
pt3dadd(129.838, 49.753, 12.742, 0.678)
pt3dadd(129.911, 49.672, 12.707, 0.678)
pt3dadd(129.992, 49.585, 12.696, 0.678)
pt3dadd(130.073, 49.505, 12.669, 0.678)
pt3dadd(130.157, 49.441, 12.623, 0.678)
pt3dadd(130.252, 49.389, 12.58, 0.678)
pt3dadd(130.332, 49.341, 12.522, 0.678)
pt3dadd(130.391, 49.297, 12.442, 0.678)
pt3dadd(130.465, 49.229, 12.408, 0.678)
pt3dadd(130.549, 49.144, 12.402, 0.678)
pt3dadd(130.622, 49.049, 12.397, 0.678)
pt3dadd(130.686, 48.948, 12.392, 0.678)
pt3dadd(130.752, 48.856, 12.367, 0.678)
pt3dadd(130.823, 48.773, 12.328, 0.678)
pt3dadd(130.898, 48.683, 12.311, 0.678)
pt3dadd(130.972, 48.589, 12.3, 0.678)
pt3dadd(131.04, 48.49, 12.3, 0.678)
pt3dadd(131.118, 48.408, 12.303, 0.678)
pt3dadd(131.234, 48.385, 12.318, 0.678)
pt3dadd(131.351, 48.362, 12.332, 0.678)
pt3dadd(131.467, 48.36, 12.359, 0.678)
pt3dadd(131.582, 48.36, 12.386, 0.678)
pt3dadd(131.7, 48.357, 12.4, 0.678)
pt3dadd(131.82, 48.349, 12.4, 0.678)
pt3dadd(131.935, 48.321, 12.4, 0.678)
pt3dadd(132.048, 48.28, 12.4, 0.678)
pt3dadd(132.16, 48.238, 12.4, 0.678)
pt3dadd(132.272, 48.197, 12.4, 0.678)
pt3dadd(132.385, 48.155, 12.4, 0.678)
pt3dadd(132.499, 48.118, 12.399, 0.678)
pt3dadd(132.618, 48.104, 12.391, 0.678)
pt3dadd(132.737, 48.091, 12.384, 0.678)
pt3dadd(132.856, 48.078, 12.376, 0.678)
pt3dadd(132.974, 48.064, 12.369, 0.678)
pt3dadd(133.093, 48.051, 12.361, 0.678)
pt3dadd(133.208, 48.038, 12.345, 0.678)
pt3dadd(133.312, 48.027, 12.294, 0.678)
pt3dadd(133.414, 48.015, 12.243, 0.678)
pt3dadd(133.517, 48.004, 12.192, 0.678)
pt3dadd(133.62, 47.993, 12.141, 0.678)
pt3dadd(133.726, 47.97, 12.101, 0.678)
pt3dadd(133.835, 47.931, 12.078, 0.678)
pt3dadd(133.944, 47.892, 12.054, 0.678)
pt3dadd(134.054, 47.852, 12.031, 0.678)
pt3dadd(134.164, 47.813, 12.008, 0.678)
pt3dadd(134.281, 47.796, 11.999, 0.678)
pt3dadd(134.4, 47.79, 11.997, 0.678)
pt3dadd(134.52, 47.784, 11.996, 0.678)
pt3dadd(134.64, 47.778, 11.994, 0.678)
pt3dadd(134.76, 47.772, 11.992, 0.678)
pt3dadd(134.88, 47.765, 11.99, 0.678)
pt3dadd(135, 47.76, 11.987, 0.678)
pt3dadd(135.119, 47.76, 11.973, 0.678)
pt3dadd(135.238, 47.76, 11.959, 0.678)
pt3dadd(135.356, 47.76, 11.944, 0.678)
pt3dadd(135.474, 47.76, 11.93, 0.678)
pt3dadd(135.593, 47.76, 11.915, 0.678)
pt3dadd(135.712, 47.76, 11.901, 0.678)
pt3dadd(135.832, 47.754, 11.9, 0.678)
pt3dadd(135.952, 47.748, 11.9, 0.678)
pt3dadd(136.072, 47.742, 11.9, 0.678)
pt3dadd(136.192, 47.736, 11.9, 0.678)
pt3dadd(136.312, 47.73, 11.9, 0.678)
pt3dadd(136.432, 47.724, 11.9, 0.678)
pt3dadd(136.549, 47.712, 11.9, 0.678)
pt3dadd(136.666, 47.679, 11.9, 0.678)
pt3dadd(136.781, 47.646, 11.9, 0.678)
pt3dadd(136.9, 47.636, 11.9, 0.678)
pt3dadd(137.02, 47.632, 11.9, 0.678)
pt3dadd(137.14, 47.627, 11.9, 0.678)
pt3dadd(137.251, 47.583, 11.9, 0.678)
}
}
proc shape3d_130() {
dend_7[19] { pt3dadd(137.362, 47.536, 11.9, 0.678)
pt3dadd(137.444, 47.457, 11.889, 0.678)
pt3dadd(137.513, 47.361, 11.872, 0.678)
pt3dadd(137.581, 47.302, 11.814, 0.678)
pt3dadd(137.662, 47.253, 11.756, 0.678)
pt3dadd(137.756, 47.199, 11.714, 0.678)
pt3dadd(137.851, 47.145, 11.672, 0.678)
pt3dadd(137.946, 47.091, 11.63, 0.678)
pt3dadd(138.043, 47.037, 11.594, 0.678)
pt3dadd(138.146, 46.981, 11.572, 0.678)
pt3dadd(138.248, 46.926, 11.55, 0.678)
pt3dadd(138.352, 46.87, 11.528, 0.678)
pt3dadd(138.455, 46.814, 11.505, 0.678)
pt3dadd(138.532, 46.743, 11.461, 0.678)
pt3dadd(138.601, 46.667, 11.409, 0.678)
pt3dadd(138.67, 46.592, 11.357, 0.678)
pt3dadd(138.739, 46.516, 11.304, 0.678)
pt3dadd(138.805, 46.425, 11.275, 0.678)
pt3dadd(138.871, 46.327, 11.255, 0.678)
pt3dadd(138.936, 46.229, 11.236, 0.678)
pt3dadd(139.002, 46.131, 11.216, 0.678)
pt3dadd(139.069, 46.034, 11.2, 0.678)
pt3dadd(139.144, 45.941, 11.2, 0.678)
pt3dadd(139.219, 45.847, 11.2, 0.678)
pt3dadd(139.294, 45.753, 11.2, 0.678)
pt3dadd(139.368, 45.66, 11.2, 0.678)
pt3dadd(139.428, 45.56, 11.2, 0.678)
pt3dadd(139.433, 45.44, 11.2, 0.678)
pt3dadd(139.436, 45.32, 11.2, 0.678)
pt3dadd(139.453, 45.203, 11.193, 0.678)
pt3dadd(139.492, 45.093, 11.171, 0.678)
pt3dadd(139.526, 44.999, 11.131, 0.678)
pt3dadd(139.546, 44.946, 11.043, 0.678)
pt3dadd(139.578, 44.885, 10.966, 0.678)
pt3dadd(139.646, 44.801, 10.922, 0.678)
pt3dadd(139.71, 44.721, 10.871, 0.678)
pt3dadd(139.77, 44.643, 10.814, 0.678)
pt3dadd(139.829, 44.564, 10.756, 0.678)
pt3dadd(139.925, 44.53, 10.726, 0.678)
pt3dadd(140.044, 44.525, 10.713, 0.678)
pt3dadd(140.162, 44.519, 10.7, 0.678)
pt3dadd(140.276, 44.481, 10.7, 0.678)
pt3dadd(140.389, 44.443, 10.7, 0.678)
pt3dadd(140.503, 44.406, 10.7, 0.678)
pt3dadd(140.56, 44.305, 10.7, 0.678)
pt3dadd(140.606, 44.195, 10.7, 0.678)
pt3dadd(140.629, 44.079, 10.7, 0.678)
pt3dadd(140.632, 43.959, 10.7, 0.678)
pt3dadd(140.635, 43.839, 10.7, 0.678)
pt3dadd(140.639, 43.719, 10.7, 0.678)
pt3dadd(140.644, 43.599, 10.7, 0.678)
pt3dadd(140.647, 43.479, 10.7, 0.678)
pt3dadd(140.652, 43.359, 10.7, 0.678)
pt3dadd(140.722, 43.269, 10.69, 0.678)
pt3dadd(140.808, 43.188, 10.677, 0.678)
pt3dadd(140.897, 43.113, 10.661, 0.678)
pt3dadd(141.002, 43.071, 10.626, 0.678)
pt3dadd(141.095, 43.014, 10.6, 0.678)
pt3dadd(141.154, 42.909, 10.6, 0.678)
pt3dadd(141.212, 42.805, 10.6, 0.678)
pt3dadd(141.278, 42.706, 10.6, 0.678)
pt3dadd(141.361, 42.618, 10.6, 0.678)
pt3dadd(141.437, 42.526, 10.6, 0.678)
pt3dadd(141.484, 42.416, 10.596, 0.678)
pt3dadd(141.523, 42.303, 10.588, 0.678)
pt3dadd(141.562, 42.19, 10.579, 0.678)
pt3dadd(141.6, 42.077, 10.571, 0.678)
pt3dadd(141.638, 41.964, 10.562, 0.678)
pt3dadd(141.685, 41.858, 10.546, 0.678)
pt3dadd(141.756, 41.771, 10.509, 0.678)
pt3dadd(141.826, 41.685, 10.471, 0.678)
pt3dadd(141.896, 41.598, 10.434, 0.678)
pt3dadd(141.965, 41.51, 10.4, 0.678)
pt3dadd(142.012, 41.4, 10.4, 0.678)
pt3dadd(142.06, 41.29, 10.4, 0.678)
pt3dadd(142.106, 41.179, 10.4, 0.678)
pt3dadd(142.154, 41.069, 10.4, 0.678)
pt3dadd(142.202, 40.959, 10.4, 0.678)
pt3dadd(142.249, 40.849, 10.4, 0.678)
pt3dadd(142.296, 40.738, 10.4, 0.678)
pt3dadd(142.36, 40.648, 10.379, 0.678)
pt3dadd(142.442, 40.579, 10.335, 0.678)
pt3dadd(142.496, 40.556, 10.255, 0.678)
pt3dadd(142.537, 40.55, 10.161, 0.678)
pt3dadd(142.562, 40.517, 10.072, 0.678)
pt3dadd(142.57, 40.454, 9.987, 0.678)
pt3dadd(142.588, 40.372, 9.93, 0.678)
pt3dadd(142.627, 40.26, 9.921, 0.678)
pt3dadd(142.668, 40.147, 9.912, 0.678)
pt3dadd(142.708, 40.034, 9.903, 0.678)
pt3dadd(142.787, 39.951, 9.896, 0.678)
pt3dadd(142.883, 39.88, 9.891, 0.678)
pt3dadd(142.987, 39.851, 9.863, 0.678)
pt3dadd(143.096, 39.846, 9.821, 0.678)
pt3dadd(143.206, 39.841, 9.78, 0.678)
pt3dadd(143.32, 39.84, 9.748, 0.678)
pt3dadd(143.435, 39.84, 9.72, 0.678)
pt3dadd(143.551, 39.84, 9.7, 0.678)
pt3dadd(143.668, 39.836, 9.689, 0.678)
pt3dadd(143.774, 39.819, 9.644, 0.678)
pt3dadd(143.88, 39.802, 9.6, 0.678)
pt3dadd(143.987, 39.785, 9.556, 0.678)
pt3dadd(144.092, 39.768, 9.511, 0.678)
pt3dadd(144.204, 39.747, 9.48, 0.678)
pt3dadd(144.319, 39.722, 9.463, 0.678)
pt3dadd(144.434, 39.696, 9.446, 0.678)
pt3dadd(144.55, 39.67, 9.429, 0.678)
pt3dadd(144.665, 39.645, 9.412, 0.678)
pt3dadd(144.779, 39.612, 9.4, 0.678)
pt3dadd(144.887, 39.561, 9.4, 0.678)
pt3dadd(144.996, 39.51, 9.4, 0.678)
pt3dadd(145.105, 39.46, 9.4, 0.678)
pt3dadd(145.214, 39.409, 9.4, 0.678)
pt3dadd(145.322, 39.359, 9.4, 0.678)
pt3dadd(145.435, 39.317, 9.4, 0.678)
pt3dadd(145.548, 39.276, 9.4, 0.678)
pt3dadd(145.661, 39.234, 9.4, 0.678)
pt3dadd(145.772, 39.193, 9.4, 0.678)
pt3dadd(145.885, 39.151, 9.4, 0.678)
pt3dadd(145.998, 39.11, 9.4, 0.678)
pt3dadd(146.112, 39.071, 9.4, 0.678)
pt3dadd(146.224, 39.028, 9.4, 0.678)
pt3dadd(146.33, 38.974, 9.4, 0.678)
pt3dadd(146.438, 38.921, 9.4, 0.678)
pt3dadd(146.539, 38.878, 9.359, 0.678)
pt3dadd(146.634, 38.832, 9.314, 0.678)
pt3dadd(146.695, 38.763, 9.251, 0.678)
pt3dadd(146.758, 38.681, 9.21, 0.678)
pt3dadd(146.822, 38.58, 9.207, 0.678)
pt3dadd(146.886, 38.478, 9.204, 0.678)
pt3dadd(146.95, 38.377, 9.2, 0.678)
pt3dadd(146.988, 38.264, 9.2, 0.678)
pt3dadd(147.02, 38.148, 9.2, 0.678)
pt3dadd(147.062, 38.036, 9.2, 0.678)
pt3dadd(147.114, 37.928, 9.2, 0.678)
pt3dadd(147.164, 37.819, 9.2, 0.678)
pt3dadd(147.215, 37.71, 9.2, 0.678)
pt3dadd(147.265, 37.602, 9.2, 0.678)
pt3dadd(147.316, 37.493, 9.2, 0.678)
pt3dadd(147.367, 37.384, 9.2, 0.678)
pt3dadd(147.418, 37.275, 9.2, 0.678)
pt3dadd(147.468, 37.166, 9.2, 0.678)
pt3dadd(147.518, 37.057, 9.2, 0.678)
pt3dadd(147.569, 36.949, 9.2, 0.678)
pt3dadd(147.624, 36.844, 9.197, 0.678)
pt3dadd(147.713, 36.768, 9.174, 0.678)
pt3dadd(147.802, 36.691, 9.151, 0.678)
pt3dadd(147.889, 36.615, 9.128, 0.678)
pt3dadd(147.978, 36.539, 9.106, 0.678)
pt3dadd(148.051, 36.446, 9.1, 0.678)
pt3dadd(148.121, 36.348, 9.1, 0.678)
pt3dadd(148.189, 36.249, 9.1, 0.678)
pt3dadd(148.259, 36.151, 9.1, 0.678)
pt3dadd(148.327, 36.053, 9.1, 0.678)
pt3dadd(148.375, 35.944, 9.1, 0.678)
pt3dadd(148.415, 35.831, 9.1, 0.678)
pt3dadd(148.452, 35.717, 9.1, 0.678)
pt3dadd(148.486, 35.601, 9.1, 0.678)
pt3dadd(148.519, 35.486, 9.1, 0.678)
pt3dadd(148.591, 35.391, 9.1, 0.678)
pt3dadd(148.666, 35.297, 9.1, 0.678)
pt3dadd(148.77, 35.242, 9.1, 0.678)
pt3dadd(148.88, 35.195, 9.1, 0.678)
pt3dadd(148.979, 35.13, 9.1, 0.678)
pt3dadd(149.065, 35.047, 9.1, 0.678)
pt3dadd(149.153, 34.964, 9.1, 0.678)
pt3dadd(149.239, 34.881, 9.1, 0.678)
pt3dadd(149.29, 34.781, 9.065, 0.678)
pt3dadd(149.347, 34.688, 9.031, 0.678)
pt3dadd(149.458, 34.645, 9.015, 0.678)
pt3dadd(149.568, 34.602, 8.999, 0.678)
pt3dadd(149.671, 34.57, 8.966, 0.678)
pt3dadd(149.76, 34.56, 8.9, 0.678)
}
dend_7[20] {pt3dclear()
pt3dadd(103.939, 84.45, 16.721, 1.13)
pt3dadd(103.938, 84.448, 16.721, 1.128)
pt3dadd(103.906, 84.332, 16.721, 1.074)
pt3dadd(103.874, 84.216, 16.721, 1.02)
pt3dadd(103.842, 84.101, 16.721, 0.964)
pt3dadd(103.81, 83.985, 16.721, 0.91)
pt3dadd(103.778, 83.87, 16.721, 0.856)
pt3dadd(103.746, 83.754, 16.721, 0.8)
pt3dadd(103.713, 83.638, 16.721, 0.746)
pt3dadd(103.681, 83.523, 16.721, 0.69)
pt3dadd(103.649, 83.407, 16.721, 0.636)
pt3dadd(103.618, 83.292, 16.724, 0.596)
pt3dadd(103.598, 83.176, 16.744, 0.64)
pt3dadd(103.577, 83.06, 16.764, 0.684)
pt3dadd(103.557, 82.944, 16.784, 0.73)
pt3dadd(103.536, 82.828, 16.804, 0.774)
pt3dadd(103.516, 82.713, 16.824, 0.818)
pt3dadd(103.495, 82.597, 16.844, 0.864)
pt3dadd(103.474, 82.481, 16.864, 0.908)
pt3dadd(103.454, 82.365, 16.884, 0.954)
pt3dadd(103.433, 82.25, 16.904, 0.998)
pt3dadd(103.411, 82.138, 16.931, 1.028)
pt3dadd(103.381, 82.038, 16.981, 1.008)
pt3dadd(103.351, 81.939, 17.031, 0.988)
pt3dadd(103.321, 81.84, 17.082, 0.968)
pt3dadd(103.291, 81.74, 17.132, 0.948)
pt3dadd(103.261, 81.641, 17.182, 0.928)
}
}
proc shape3d_131() {
dend_7[20] { pt3dadd(103.23, 81.542, 17.233, 0.908)
pt3dadd(103.2, 81.442, 17.283, 0.888)
pt3dadd(103.17, 81.343, 17.333, 0.866)
pt3dadd(103.14, 81.244, 17.383, 0.846)
pt3dadd(103.103, 81.141, 17.42, 0.824)
pt3dadd(103.058, 81.033, 17.442, 0.798)
pt3dadd(103.013, 80.924, 17.464, 0.772)
pt3dadd(102.968, 80.816, 17.486, 0.744)
pt3dadd(102.922, 80.708, 17.507, 0.718)
pt3dadd(102.877, 80.6, 17.529, 0.692)
pt3dadd(102.832, 80.492, 17.551, 0.666)
pt3dadd(102.786, 80.384, 17.572, 0.64)
pt3dadd(102.741, 80.276, 17.594, 0.614)
pt3dadd(102.696, 80.168, 17.616, 0.588)
pt3dadd(102.663, 80.055, 17.629, 0.582)
pt3dadd(102.642, 79.937, 17.635, 0.594)
pt3dadd(102.62, 79.819, 17.641, 0.606)
pt3dadd(102.598, 79.702, 17.647, 0.616)
pt3dadd(102.576, 79.584, 17.653, 0.628)
pt3dadd(102.554, 79.466, 17.659, 0.64)
pt3dadd(102.532, 79.348, 17.666, 0.652)
pt3dadd(102.51, 79.231, 17.672, 0.664)
pt3dadd(102.488, 79.113, 17.678, 0.676)
pt3dadd(102.466, 78.995, 17.684, 0.686)
pt3dadd(102.454, 78.876, 17.687, 0.688)
pt3dadd(102.45, 78.756, 17.687, 0.684)
pt3dadd(102.445, 78.636, 17.688, 0.68)
pt3dadd(102.44, 78.516, 17.688, 0.676)
pt3dadd(102.436, 78.396, 17.689, 0.672)
pt3dadd(102.431, 78.276, 17.689, 0.666)
pt3dadd(102.426, 78.157, 17.69, 0.662)
pt3dadd(102.422, 78.037, 17.69, 0.658)
pt3dadd(102.417, 77.917, 17.691, 0.654)
pt3dadd(102.412, 77.797, 17.691, 0.65)
pt3dadd(102.412, 77.677, 17.692, 0.636)
pt3dadd(102.415, 77.557, 17.693, 0.616)
pt3dadd(102.417, 77.437, 17.694, 0.596)
pt3dadd(102.42, 77.317, 17.696, 0.576)
pt3dadd(102.423, 77.197, 17.697, 0.558)
pt3dadd(102.425, 77.077, 17.698, 0.538)
pt3dadd(102.428, 76.957, 17.699, 0.518)
pt3dadd(102.431, 76.837, 17.7, 0.498)
pt3dadd(102.433, 76.717, 17.701, 0.478)
pt3dadd(102.436, 76.597, 17.703, 0.46)
pt3dadd(102.441, 76.477, 17.705, 0.462)
pt3dadd(102.447, 76.358, 17.707, 0.476)
pt3dadd(102.454, 76.238, 17.709, 0.49)
pt3dadd(102.461, 76.118, 17.712, 0.504)
pt3dadd(102.467, 75.998, 17.714, 0.52)
pt3dadd(102.474, 75.879, 17.717, 0.534)
pt3dadd(102.48, 75.759, 17.719, 0.548)
pt3dadd(102.487, 75.639, 17.722, 0.564)
pt3dadd(102.494, 75.519, 17.724, 0.578)
pt3dadd(102.5, 75.399, 17.727, 0.592)
pt3dadd(102.51, 75.28, 17.731, 0.612)
pt3dadd(102.522, 75.161, 17.737, 0.636)
pt3dadd(102.534, 75.042, 17.743, 0.66)
pt3dadd(102.546, 74.922, 17.749, 0.682)
pt3dadd(102.558, 74.803, 17.755, 0.706)
pt3dadd(102.57, 74.684, 17.761, 0.73)
pt3dadd(102.582, 74.565, 17.767, 0.752)
pt3dadd(102.594, 74.446, 17.773, 0.776)
pt3dadd(102.606, 74.326, 17.779, 0.8)
pt3dadd(102.618, 74.207, 17.785, 0.822)
pt3dadd(102.645, 74.091, 17.793, 0.808)
pt3dadd(102.68, 73.977, 17.804, 0.77)
pt3dadd(102.715, 73.863, 17.814, 0.732)
pt3dadd(102.75, 73.749, 17.824, 0.694)
pt3dadd(102.786, 73.635, 17.835, 0.656)
pt3dadd(102.821, 73.521, 17.845, 0.618)
pt3dadd(102.856, 73.407, 17.856, 0.58)
pt3dadd(102.891, 73.293, 17.866, 0.542)
pt3dadd(102.926, 73.179, 17.876, 0.504)
pt3dadd(102.961, 73.065, 17.887, 0.466)
pt3dadd(102.995, 72.954, 17.91, 0.44)
pt3dadd(103.029, 72.844, 17.939, 0.416)
pt3dadd(103.062, 72.734, 17.968, 0.394)
pt3dadd(103.095, 72.624, 17.997, 0.37)
pt3dadd(103.128, 72.514, 18.026, 0.346)
pt3dadd(103.161, 72.404, 18.055, 0.324)
pt3dadd(103.195, 72.294, 18.083, 0.3)
pt3dadd(103.228, 72.184, 18.112, 0.276)
pt3dadd(103.261, 72.074, 18.141, 0.254)
pt3dadd(103.294, 71.964, 18.17, 0.23)
pt3dadd(103.316, 71.852, 18.201, 0.248)
pt3dadd(103.335, 71.74, 18.234, 0.274)
pt3dadd(103.353, 71.628, 18.266, 0.298)
pt3dadd(103.372, 71.516, 18.298, 0.324)
pt3dadd(103.391, 71.404, 18.33, 0.352)
pt3dadd(103.41, 71.292, 18.362, 0.378)
pt3dadd(103.429, 71.18, 18.394, 0.404)
pt3dadd(103.447, 71.067, 18.426, 0.43)
pt3dadd(103.466, 70.955, 18.458, 0.456)
pt3dadd(103.485, 70.843, 18.49, 0.482)
pt3dadd(103.493, 70.728, 18.515, 0.48)
pt3dadd(103.499, 70.611, 18.539, 0.472)
pt3dadd(103.504, 70.495, 18.563, 0.466)
pt3dadd(103.51, 70.378, 18.586, 0.458)
pt3dadd(103.516, 70.262, 18.61, 0.452)
pt3dadd(103.522, 70.145, 18.634, 0.444)
pt3dadd(103.527, 70.029, 18.657, 0.438)
pt3dadd(103.533, 69.912, 18.681, 0.43)
pt3dadd(103.539, 69.796, 18.705, 0.424)
pt3dadd(103.545, 69.68, 18.728, 0.416)
pt3dadd(103.546, 69.562, 18.748, 0.41)
pt3dadd(103.547, 69.444, 18.767, 0.406)
pt3dadd(103.548, 69.327, 18.787, 0.4)
pt3dadd(103.548, 69.209, 18.806, 0.394)
pt3dadd(103.549, 69.091, 18.825, 0.39)
pt3dadd(103.55, 68.973, 18.845, 0.384)
pt3dadd(103.551, 68.856, 18.864, 0.378)
pt3dadd(103.551, 68.738, 18.883, 0.374)
pt3dadd(103.552, 68.62, 18.903, 0.368)
pt3dadd(103.553, 68.502, 18.922, 0.362)
pt3dadd(103.554, 68.389, 18.955, 0.358)
pt3dadd(103.555, 68.277, 18.991, 0.356)
pt3dadd(103.557, 68.165, 19.027, 0.352)
pt3dadd(103.558, 68.053, 19.062, 0.348)
pt3dadd(103.559, 67.941, 19.098, 0.344)
pt3dadd(103.561, 67.829, 19.134, 0.34)
pt3dadd(103.562, 67.717, 19.169, 0.336)
pt3dadd(103.563, 67.605, 19.205, 0.332)
pt3dadd(103.565, 67.493, 19.241, 0.328)
pt3dadd(103.566, 67.38, 19.276, 0.324)
pt3dadd(103.569, 67.277, 19.326, 0.314)
pt3dadd(103.572, 67.173, 19.377, 0.306)
pt3dadd(103.575, 67.07, 19.427, 0.296)
pt3dadd(103.577, 66.966, 19.478, 0.286)
pt3dadd(103.58, 66.863, 19.528, 0.276)
pt3dadd(103.583, 66.759, 19.579, 0.266)
pt3dadd(103.586, 66.656, 19.63, 0.256)
pt3dadd(103.589, 66.552, 19.68, 0.246)
pt3dadd(103.592, 66.449, 19.731, 0.236)
pt3dadd(103.595, 66.345, 19.781, 0.226)
pt3dadd(103.599, 66.24, 19.829, 0.226)
pt3dadd(103.604, 66.134, 19.876, 0.226)
pt3dadd(103.608, 66.028, 19.923, 0.226)
pt3dadd(103.613, 65.922, 19.97, 0.226)
pt3dadd(103.618, 65.816, 20.017, 0.226)
pt3dadd(103.622, 65.711, 20.064, 0.226)
pt3dadd(103.627, 65.605, 20.111, 0.226)
pt3dadd(103.631, 65.499, 20.158, 0.226)
pt3dadd(103.636, 65.393, 20.205, 0.226)
pt3dadd(103.641, 65.287, 20.251, 0.226)
pt3dadd(103.656, 65.172, 20.278, 0.234)
pt3dadd(103.671, 65.058, 20.304, 0.242)
pt3dadd(103.686, 64.943, 20.331, 0.25)
pt3dadd(103.701, 64.828, 20.357, 0.258)
pt3dadd(103.716, 64.713, 20.384, 0.266)
pt3dadd(103.731, 64.599, 20.41, 0.276)
pt3dadd(103.746, 64.484, 20.437, 0.284)
pt3dadd(103.761, 64.369, 20.463, 0.292)
pt3dadd(103.776, 64.255, 20.49, 0.3)
pt3dadd(103.791, 64.139, 20.514, 0.308)
pt3dadd(103.806, 64.021, 20.523, 0.324)
pt3dadd(103.821, 63.902, 20.532, 0.338)
pt3dadd(103.836, 63.784, 20.541, 0.354)
pt3dadd(103.85, 63.665, 20.55, 0.368)
pt3dadd(103.865, 63.546, 20.559, 0.384)
pt3dadd(103.88, 63.428, 20.568, 0.398)
pt3dadd(103.895, 63.309, 20.577, 0.412)
pt3dadd(103.909, 63.191, 20.585, 0.428)
pt3dadd(103.924, 63.072, 20.595, 0.442)
pt3dadd(103.926, 62.953, 20.602, 0.456)
pt3dadd(103.908, 62.835, 20.606, 0.464)
pt3dadd(103.89, 62.716, 20.611, 0.474)
pt3dadd(103.872, 62.598, 20.615, 0.482)
pt3dadd(103.854, 62.479, 20.62, 0.49)
pt3dadd(103.836, 62.361, 20.624, 0.5)
pt3dadd(103.818, 62.242, 20.628, 0.508)
pt3dadd(103.8, 62.124, 20.633, 0.518)
pt3dadd(103.781, 62.005, 20.637, 0.526)
pt3dadd(103.763, 61.887, 20.642, 0.534)
pt3dadd(103.746, 61.768, 20.648, 0.548)
pt3dadd(103.73, 61.65, 20.657, 0.572)
pt3dadd(103.713, 61.532, 20.666, 0.596)
pt3dadd(103.697, 61.413, 20.674, 0.618)
pt3dadd(103.681, 61.295, 20.683, 0.642)
pt3dadd(103.665, 61.176, 20.692, 0.664)
pt3dadd(103.649, 61.058, 20.701, 0.688)
pt3dadd(103.632, 60.939, 20.71, 0.712)
pt3dadd(103.616, 60.821, 20.719, 0.734)
pt3dadd(103.6, 60.703, 20.728, 0.758)
pt3dadd(103.586, 60.585, 20.742, 0.774)
pt3dadd(103.576, 60.469, 20.765, 0.778)
pt3dadd(103.565, 60.352, 20.788, 0.782)
pt3dadd(103.555, 60.236, 20.811, 0.786)
pt3dadd(103.544, 60.12, 20.834, 0.788)
pt3dadd(103.534, 60.003, 20.857, 0.792)
pt3dadd(103.524, 59.887, 20.88, 0.796)
pt3dadd(103.513, 59.771, 20.903, 0.8)
pt3dadd(103.503, 59.654, 20.926, 0.804)
pt3dadd(103.492, 59.538, 20.948, 0.808)
pt3dadd(103.484, 59.423, 20.976, 0.796)
pt3dadd(103.478, 59.31, 21.008, 0.764)
pt3dadd(103.471, 59.196, 21.041, 0.732)
pt3dadd(103.465, 59.083, 21.073, 0.702)
pt3dadd(103.459, 58.97, 21.105, 0.67)
pt3dadd(103.452, 58.856, 21.138, 0.64)
pt3dadd(103.446, 58.743, 21.17, 0.608)
}
}
proc shape3d_132() {
dend_7[20] { pt3dadd(103.44, 58.629, 21.203, 0.576)
pt3dadd(103.434, 58.516, 21.235, 0.546)
pt3dadd(103.428, 58.403, 21.267, 0.514)
pt3dadd(103.418, 58.288, 21.293, 0.486)
pt3dadd(103.405, 58.171, 21.313, 0.458)
pt3dadd(103.392, 58.054, 21.333, 0.43)
pt3dadd(103.379, 57.937, 21.352, 0.404)
pt3dadd(103.366, 57.82, 21.372, 0.376)
pt3dadd(103.353, 57.703, 21.392, 0.348)
pt3dadd(103.34, 57.586, 21.411, 0.322)
pt3dadd(103.327, 57.469, 21.431, 0.294)
pt3dadd(103.314, 57.352, 21.451, 0.266)
pt3dadd(103.301, 57.235, 21.47, 0.24)
pt3dadd(103.278, 57.119, 21.484, 0.236)
pt3dadd(103.246, 57.004, 21.493, 0.254)
pt3dadd(103.214, 56.889, 21.501, 0.272)
pt3dadd(103.182, 56.773, 21.509, 0.29)
pt3dadd(103.15, 56.658, 21.518, 0.308)
pt3dadd(103.118, 56.543, 21.526, 0.326)
pt3dadd(103.086, 56.428, 21.534, 0.344)
pt3dadd(103.055, 56.313, 21.543, 0.362)
pt3dadd(103.023, 56.197, 21.551, 0.38)
pt3dadd(102.991, 56.082, 21.559, 0.398)
pt3dadd(102.948, 55.97, 21.565, 0.428)
pt3dadd(102.9, 55.86, 21.569, 0.462)
pt3dadd(102.853, 55.75, 21.573, 0.498)
pt3dadd(102.805, 55.641, 21.577, 0.532)
pt3dadd(102.757, 55.531, 21.581, 0.568)
pt3dadd(102.709, 55.421, 21.585, 0.604)
pt3dadd(102.661, 55.311, 21.59, 0.638)
pt3dadd(102.613, 55.201, 21.594, 0.674)
pt3dadd(102.565, 55.091, 21.598, 0.708)
pt3dadd(102.517, 54.981, 21.602, 0.744)
pt3dadd(102.47, 54.871, 21.609, 0.752)
pt3dadd(102.424, 54.761, 21.616, 0.746)
pt3dadd(102.378, 54.65, 21.625, 0.742)
pt3dadd(102.331, 54.54, 21.632, 0.736)
pt3dadd(102.285, 54.43, 21.64, 0.73)
pt3dadd(102.239, 54.319, 21.648, 0.724)
pt3dadd(102.192, 54.209, 21.656, 0.718)
pt3dadd(102.146, 54.099, 21.664, 0.712)
pt3dadd(102.1, 53.989, 21.672, 0.706)
pt3dadd(102.054, 53.878, 21.68, 0.702)
pt3dadd(102.005, 53.77, 21.694, 0.668)
pt3dadd(101.955, 53.663, 21.711, 0.62)
pt3dadd(101.905, 53.556, 21.728, 0.572)
pt3dadd(101.855, 53.449, 21.745, 0.524)
pt3dadd(101.805, 53.341, 21.762, 0.476)
pt3dadd(101.754, 53.234, 21.779, 0.428)
pt3dadd(101.704, 53.127, 21.795, 0.38)
pt3dadd(101.654, 53.02, 21.812, 0.332)
pt3dadd(101.604, 52.913, 21.829, 0.284)
pt3dadd(101.554, 52.806, 21.846, 0.236)
pt3dadd(101.521, 52.697, 21.877, 0.238)
pt3dadd(101.492, 52.588, 21.911, 0.252)
pt3dadd(101.463, 52.479, 21.946, 0.268)
pt3dadd(101.435, 52.371, 21.98, 0.282)
pt3dadd(101.406, 52.262, 22.015, 0.296)
pt3dadd(101.378, 52.153, 22.05, 0.312)
pt3dadd(101.349, 52.044, 22.084, 0.326)
pt3dadd(101.32, 51.935, 22.119, 0.342)
pt3dadd(101.292, 51.826, 22.153, 0.356)
pt3dadd(101.263, 51.717, 22.188, 0.372)
pt3dadd(101.241, 51.603, 22.214, 0.428)
pt3dadd(101.222, 51.488, 22.237, 0.498)
pt3dadd(101.202, 51.373, 22.26, 0.566)
pt3dadd(101.182, 51.258, 22.283, 0.634)
pt3dadd(101.162, 51.143, 22.306, 0.702)
pt3dadd(101.142, 51.028, 22.33, 0.77)
pt3dadd(101.122, 50.913, 22.353, 0.84)
pt3dadd(101.103, 50.798, 22.376, 0.908)
pt3dadd(101.083, 50.683, 22.399, 0.976)
pt3dadd(101.063, 50.568, 22.422, 1.044)
pt3dadd(101.04, 50.452, 22.437, 1.03)
pt3dadd(101.016, 50.335, 22.449, 0.994)
pt3dadd(100.993, 50.218, 22.462, 0.96)
pt3dadd(100.969, 50.102, 22.474, 0.926)
pt3dadd(100.946, 49.985, 22.487, 0.89)
pt3dadd(100.922, 49.868, 22.499, 0.856)
pt3dadd(100.899, 49.752, 22.512, 0.82)
pt3dadd(100.875, 49.635, 22.524, 0.786)
pt3dadd(100.851, 49.518, 22.537, 0.75)
pt3dadd(100.828, 49.401, 22.549, 0.716)
pt3dadd(100.846, 49.284, 22.557, 0.732)
pt3dadd(100.867, 49.166, 22.565, 0.75)
pt3dadd(100.888, 49.048, 22.573, 0.77)
pt3dadd(100.909, 48.93, 22.58, 0.788)
pt3dadd(100.93, 48.812, 22.588, 0.808)
pt3dadd(100.95, 48.695, 22.596, 0.826)
pt3dadd(100.971, 48.577, 22.603, 0.846)
pt3dadd(100.992, 48.459, 22.611, 0.864)
pt3dadd(101.013, 48.341, 22.619, 0.884)
pt3dadd(101.034, 48.223, 22.626, 0.902)
pt3dadd(101.056, 48.107, 22.642, 0.9)
pt3dadd(101.078, 47.991, 22.659, 0.896)
pt3dadd(101.1, 47.874, 22.675, 0.892)
pt3dadd(101.122, 47.758, 22.691, 0.888)
pt3dadd(101.144, 47.642, 22.708, 0.884)
pt3dadd(101.166, 47.525, 22.724, 0.88)
pt3dadd(101.188, 47.409, 22.74, 0.876)
pt3dadd(101.21, 47.293, 22.757, 0.87)
pt3dadd(101.232, 47.176, 22.773, 0.866)
pt3dadd(101.253, 47.06, 22.79, 0.862)
pt3dadd(101.277, 46.95, 22.824, 0.838)
pt3dadd(101.301, 46.84, 22.859, 0.814)
pt3dadd(101.324, 46.73, 22.894, 0.788)
pt3dadd(101.348, 46.62, 22.928, 0.764)
pt3dadd(101.372, 46.51, 22.963, 0.74)
pt3dadd(101.395, 46.4, 22.998, 0.714)
pt3dadd(101.419, 46.29, 23.032, 0.69)
pt3dadd(101.443, 46.18, 23.067, 0.666)
pt3dadd(101.466, 46.07, 23.102, 0.64)
pt3dadd(101.49, 45.96, 23.136, 0.616)
pt3dadd(101.518, 45.846, 23.158, 0.582)
pt3dadd(101.546, 45.732, 23.18, 0.548)
pt3dadd(101.574, 45.619, 23.202, 0.514)
pt3dadd(101.602, 45.505, 23.224, 0.48)
pt3dadd(101.63, 45.391, 23.246, 0.446)
pt3dadd(101.658, 45.277, 23.268, 0.412)
pt3dadd(101.686, 45.164, 23.29, 0.378)
pt3dadd(101.714, 45.05, 23.311, 0.344)
pt3dadd(101.742, 44.936, 23.333, 0.31)
pt3dadd(101.772, 44.823, 23.354, 0.282)
pt3dadd(101.83, 44.719, 23.364, 0.32)
pt3dadd(101.888, 44.615, 23.373, 0.36)
pt3dadd(101.947, 44.51, 23.383, 0.398)
pt3dadd(102.005, 44.406, 23.392, 0.438)
pt3dadd(102.063, 44.301, 23.402, 0.476)
pt3dadd(102.121, 44.197, 23.411, 0.516)
pt3dadd(102.179, 44.093, 23.42, 0.554)
pt3dadd(102.237, 43.988, 23.43, 0.594)
pt3dadd(102.295, 43.884, 23.439, 0.632)
pt3dadd(102.354, 43.78, 23.448, 0.666)
pt3dadd(102.425, 43.683, 23.448, 0.628)
pt3dadd(102.496, 43.587, 23.448, 0.59)
pt3dadd(102.567, 43.49, 23.448, 0.552)
pt3dadd(102.638, 43.393, 23.448, 0.514)
pt3dadd(102.709, 43.296, 23.448, 0.476)
pt3dadd(102.78, 43.2, 23.448, 0.438)
pt3dadd(102.851, 43.103, 23.449, 0.4)
pt3dadd(102.922, 43.006, 23.449, 0.362)
pt3dadd(102.993, 42.909, 23.449, 0.324)
pt3dadd(103.063, 42.812, 23.449, 0.29)
pt3dadd(103.121, 42.707, 23.449, 0.3)
pt3dadd(103.178, 42.601, 23.449, 0.312)
pt3dadd(103.235, 42.496, 23.449, 0.324)
pt3dadd(103.292, 42.39, 23.449, 0.334)
pt3dadd(103.349, 42.285, 23.449, 0.346)
pt3dadd(103.406, 42.179, 23.449, 0.358)
pt3dadd(103.463, 42.073, 23.449, 0.368)
pt3dadd(103.52, 41.968, 23.45, 0.38)
pt3dadd(103.577, 41.862, 23.45, 0.39)
pt3dadd(103.635, 41.757, 23.45, 0.402)
pt3dadd(103.694, 41.652, 23.45, 0.424)
pt3dadd(103.753, 41.548, 23.45, 0.444)
pt3dadd(103.813, 41.444, 23.451, 0.464)
pt3dadd(103.872, 41.34, 23.451, 0.484)
pt3dadd(103.931, 41.235, 23.451, 0.506)
pt3dadd(103.99, 41.131, 23.451, 0.526)
pt3dadd(104.05, 41.027, 23.451, 0.546)
pt3dadd(104.109, 40.922, 23.452, 0.566)
pt3dadd(104.168, 40.818, 23.452, 0.586)
pt3dadd(104.227, 40.713, 23.452, 0.606)
pt3dadd(104.276, 40.604, 23.453, 0.614)
pt3dadd(104.326, 40.494, 23.453, 0.62)
pt3dadd(104.375, 40.385, 23.454, 0.628)
pt3dadd(104.424, 40.276, 23.454, 0.636)
pt3dadd(104.474, 40.166, 23.454, 0.642)
pt3dadd(104.523, 40.057, 23.455, 0.65)
pt3dadd(104.572, 39.948, 23.455, 0.656)
pt3dadd(104.622, 39.838, 23.456, 0.664)
pt3dadd(104.671, 39.729, 23.456, 0.672)
pt3dadd(104.721, 39.62, 23.457, 0.676)
pt3dadd(104.773, 39.511, 23.458, 0.664)
pt3dadd(104.824, 39.403, 23.459, 0.652)
pt3dadd(104.876, 39.295, 23.46, 0.638)
pt3dadd(104.928, 39.187, 23.461, 0.626)
pt3dadd(104.98, 39.078, 23.462, 0.612)
pt3dadd(105.032, 38.97, 23.463, 0.6)
pt3dadd(105.084, 38.862, 23.464, 0.588)
pt3dadd(105.135, 38.754, 23.465, 0.574)
pt3dadd(105.187, 38.646, 23.466, 0.562)
pt3dadd(105.238, 38.537, 23.467, 0.548)
pt3dadd(105.286, 38.427, 23.469, 0.526)
pt3dadd(105.333, 38.316, 23.471, 0.504)
pt3dadd(105.38, 38.206, 23.473, 0.484)
pt3dadd(105.427, 38.096, 23.475, 0.462)
pt3dadd(105.475, 37.986, 23.477, 0.44)
pt3dadd(105.522, 37.875, 23.479, 0.418)
pt3dadd(105.569, 37.765, 23.481, 0.396)
pt3dadd(105.616, 37.655, 23.483, 0.376)
pt3dadd(105.664, 37.545, 23.485, 0.354)
pt3dadd(105.708, 37.433, 23.488, 0.34)
pt3dadd(105.741, 37.318, 23.493, 0.364)
pt3dadd(105.775, 37.203, 23.497, 0.388)
pt3dadd(105.808, 37.088, 23.502, 0.412)
pt3dadd(105.841, 36.973, 23.507, 0.436)
pt3dadd(105.875, 36.858, 23.512, 0.458)
pt3dadd(105.908, 36.742, 23.516, 0.482)
pt3dadd(105.941, 36.627, 23.521, 0.506)
}
}
proc shape3d_133() {
dend_7[20] { pt3dadd(105.974, 36.512, 23.526, 0.53)
pt3dadd(106.008, 36.397, 23.531, 0.554)
pt3dadd(106.042, 36.282, 23.536, 0.58)
pt3dadd(106.082, 36.169, 23.545, 0.612)
pt3dadd(106.121, 36.057, 23.554, 0.646)
pt3dadd(106.161, 35.944, 23.563, 0.678)
pt3dadd(106.2, 35.831, 23.571, 0.712)
pt3dadd(106.24, 35.718, 23.58, 0.746)
pt3dadd(106.279, 35.605, 23.589, 0.778)
pt3dadd(106.319, 35.493, 23.598, 0.812)
pt3dadd(106.358, 35.38, 23.607, 0.846)
pt3dadd(106.398, 35.267, 23.615, 0.878)
pt3dadd(106.438, 35.155, 23.627, 0.898)
pt3dadd(106.483, 35.047, 23.649, 0.868)
pt3dadd(106.527, 34.939, 23.671, 0.84)
pt3dadd(106.572, 34.83, 23.693, 0.812)
pt3dadd(106.616, 34.722, 23.715, 0.784)
pt3dadd(106.661, 34.614, 23.737, 0.754)
pt3dadd(106.705, 34.505, 23.759, 0.726)
pt3dadd(106.749, 34.397, 23.781, 0.698)
pt3dadd(106.794, 34.289, 23.803, 0.67)
pt3dadd(106.838, 34.18, 23.825, 0.64)
pt3dadd(106.88, 34.072, 23.85, 0.614)
pt3dadd(106.918, 33.964, 23.881, 0.59)
pt3dadd(106.956, 33.857, 23.912, 0.566)
pt3dadd(106.993, 33.749, 23.943, 0.542)
pt3dadd(107.031, 33.641, 23.973, 0.518)
pt3dadd(107.068, 33.533, 24.004, 0.494)
pt3dadd(107.106, 33.425, 24.035, 0.47)
pt3dadd(107.143, 33.318, 24.066, 0.448)
pt3dadd(107.181, 33.21, 24.097, 0.424)
pt3dadd(107.218, 33.102, 24.127, 0.4)
pt3dadd(107.258, 32.994, 24.154, 0.39)
pt3dadd(107.303, 32.885, 24.173, 0.406)
pt3dadd(107.348, 32.775, 24.191, 0.422)
pt3dadd(107.392, 32.666, 24.21, 0.438)
pt3dadd(107.437, 32.557, 24.229, 0.456)
pt3dadd(107.482, 32.448, 24.247, 0.472)
pt3dadd(107.526, 32.339, 24.266, 0.488)
pt3dadd(107.571, 32.23, 24.285, 0.504)
pt3dadd(107.616, 32.121, 24.303, 0.522)
pt3dadd(107.661, 32.012, 24.322, 0.538)
pt3dadd(107.713, 31.906, 24.336, 0.538)
pt3dadd(107.777, 31.805, 24.344, 0.512)
pt3dadd(107.84, 31.703, 24.351, 0.488)
pt3dadd(107.904, 31.602, 24.359, 0.464)
pt3dadd(107.967, 31.5, 24.367, 0.438)
pt3dadd(108.03, 31.399, 24.374, 0.414)
pt3dadd(108.094, 31.298, 24.382, 0.39)
pt3dadd(108.157, 31.196, 24.39, 0.364)
pt3dadd(108.221, 31.095, 24.397, 0.34)
pt3dadd(108.284, 30.993, 24.405, 0.316)
pt3dadd(108.352, 30.895, 24.409, 0.318)
pt3dadd(108.426, 30.8, 24.409, 0.354)
pt3dadd(108.499, 30.705, 24.409, 0.392)
pt3dadd(108.573, 30.61, 24.409, 0.43)
pt3dadd(108.646, 30.515, 24.409, 0.466)
pt3dadd(108.72, 30.421, 24.41, 0.504)
pt3dadd(108.794, 30.326, 24.41, 0.54)
pt3dadd(108.867, 30.231, 24.41, 0.578)
pt3dadd(108.941, 30.136, 24.41, 0.616)
pt3dadd(109.014, 30.041, 24.41, 0.652)
pt3dadd(109.088, 29.946, 24.41, 0.658)
pt3dadd(109.162, 29.852, 24.41, 0.622)
pt3dadd(109.235, 29.757, 24.41, 0.586)
pt3dadd(109.309, 29.663, 24.41, 0.55)
pt3dadd(109.383, 29.568, 24.41, 0.514)
pt3dadd(109.457, 29.473, 24.41, 0.476)
pt3dadd(109.531, 29.379, 24.41, 0.44)
pt3dadd(109.604, 29.284, 24.41, 0.404)
pt3dadd(109.678, 29.19, 24.411, 0.368)
pt3dadd(109.752, 29.095, 24.411, 0.332)
pt3dadd(109.816, 28.995, 24.411, 0.336)
pt3dadd(109.868, 28.886, 24.411, 0.396)
pt3dadd(109.92, 28.778, 24.411, 0.456)
pt3dadd(109.972, 28.67, 24.412, 0.514)
pt3dadd(110.024, 28.562, 24.412, 0.574)
pt3dadd(110.076, 28.454, 24.412, 0.634)
pt3dadd(110.128, 28.345, 24.412, 0.692)
pt3dadd(110.18, 28.237, 24.413, 0.752)
pt3dadd(110.232, 28.129, 24.413, 0.812)
pt3dadd(110.284, 28.021, 24.413, 0.87)
pt3dadd(110.325, 27.909, 24.413, 0.886)
pt3dadd(110.356, 27.793, 24.414, 0.858)
pt3dadd(110.386, 27.677, 24.415, 0.83)
pt3dadd(110.417, 27.561, 24.415, 0.802)
pt3dadd(110.447, 27.445, 24.416, 0.772)
pt3dadd(110.477, 27.328, 24.416, 0.744)
pt3dadd(110.508, 27.212, 24.417, 0.716)
pt3dadd(110.538, 27.096, 24.417, 0.688)
pt3dadd(110.569, 26.98, 24.418, 0.66)
pt3dadd(110.599, 26.864, 24.418, 0.632)
pt3dadd(110.626, 26.747, 24.419, 0.61)
pt3dadd(110.65, 26.63, 24.42, 0.592)
pt3dadd(110.673, 26.512, 24.422, 0.576)
pt3dadd(110.697, 26.394, 24.423, 0.56)
pt3dadd(110.721, 26.277, 24.424, 0.542)
pt3dadd(110.744, 26.159, 24.425, 0.526)
pt3dadd(110.768, 26.041, 24.427, 0.51)
pt3dadd(110.792, 25.924, 24.428, 0.492)
pt3dadd(110.815, 25.806, 24.429, 0.476)
pt3dadd(110.839, 25.689, 24.43, 0.46)
pt3dadd(110.877, 25.576, 24.432, 0.462)
pt3dadd(110.928, 25.467, 24.434, 0.478)
pt3dadd(110.979, 25.359, 24.437, 0.494)
pt3dadd(111.03, 25.25, 24.439, 0.512)
pt3dadd(111.081, 25.141, 24.441, 0.53)
pt3dadd(111.132, 25.033, 24.444, 0.546)
pt3dadd(111.183, 24.924, 24.446, 0.564)
pt3dadd(111.234, 24.816, 24.448, 0.58)
pt3dadd(111.285, 24.707, 24.451, 0.598)
pt3dadd(111.336, 24.599, 24.453, 0.614)
pt3dadd(111.397, 24.496, 24.457, 0.616)
pt3dadd(111.465, 24.397, 24.462, 0.606)
pt3dadd(111.532, 24.298, 24.468, 0.596)
pt3dadd(111.6, 24.199, 24.473, 0.588)
pt3dadd(111.667, 24.099, 24.478, 0.578)
pt3dadd(111.734, 24, 24.483, 0.57)
pt3dadd(111.802, 23.901, 24.488, 0.56)
pt3dadd(111.869, 23.802, 24.493, 0.55)
pt3dadd(111.937, 23.703, 24.499, 0.542)
pt3dadd(112.004, 23.604, 24.504, 0.532)
pt3dadd(112.067, 23.502, 24.512, 0.524)
pt3dadd(112.127, 23.399, 24.521, 0.516)
pt3dadd(112.187, 23.296, 24.531, 0.508)
pt3dadd(112.246, 23.192, 24.541, 0.502)
pt3dadd(112.306, 23.089, 24.55, 0.494)
pt3dadd(112.366, 22.986, 24.56, 0.486)
pt3dadd(112.426, 22.882, 24.57, 0.478)
pt3dadd(112.486, 22.779, 24.579, 0.47)
pt3dadd(112.546, 22.676, 24.589, 0.462)
pt3dadd(112.606, 22.572, 24.598, 0.454)
pt3dadd(112.656, 22.471, 24.628, 0.452)
pt3dadd(112.7, 22.37, 24.668, 0.452)
pt3dadd(112.745, 22.27, 24.708, 0.452)
pt3dadd(112.79, 22.17, 24.749, 0.452)
pt3dadd(112.835, 22.069, 24.788, 0.452)
pt3dadd(112.879, 21.969, 24.829, 0.452)
pt3dadd(112.924, 21.868, 24.869, 0.452)
pt3dadd(112.969, 21.768, 24.909, 0.452)
pt3dadd(113.014, 21.667, 24.949, 0.452)
pt3dadd(113.058, 21.567, 24.989, 0.452)
pt3dadd(113.114, 21.467, 25.018, 0.468)
pt3dadd(113.171, 21.366, 25.046, 0.488)
pt3dadd(113.228, 21.266, 25.074, 0.506)
pt3dadd(113.284, 21.166, 25.102, 0.526)
pt3dadd(113.341, 21.066, 25.13, 0.544)
pt3dadd(113.398, 20.966, 25.158, 0.562)
pt3dadd(113.455, 20.865, 25.186, 0.582)
pt3dadd(113.512, 20.765, 25.214, 0.6)
pt3dadd(113.569, 20.665, 25.242, 0.62)
pt3dadd(113.626, 20.565, 25.27, 0.638)
pt3dadd(113.67, 20.454, 25.281, 0.602)
pt3dadd(113.712, 20.343, 25.291, 0.56)
pt3dadd(113.755, 20.231, 25.3, 0.518)
pt3dadd(113.797, 20.119, 25.31, 0.478)
pt3dadd(113.84, 20.008, 25.32, 0.436)
pt3dadd(113.882, 19.896, 25.33, 0.394)
pt3dadd(113.925, 19.785, 25.34, 0.354)
pt3dadd(113.967, 19.673, 25.349, 0.312)
pt3dadd(114.01, 19.561, 25.359, 0.27)
pt3dadd(114.052, 19.45, 25.369, 0.228)
pt3dadd(114.093, 19.337, 25.37, 0.23)
pt3dadd(114.133, 19.224, 25.37, 0.234)
pt3dadd(114.173, 19.111, 25.37, 0.24)
pt3dadd(114.213, 18.998, 25.37, 0.244)
pt3dadd(114.253, 18.885, 25.37, 0.248)
pt3dadd(114.293, 18.771, 25.37, 0.252)
pt3dadd(114.333, 18.658, 25.37, 0.258)
pt3dadd(114.373, 18.545, 25.37, 0.262)
pt3dadd(114.414, 18.432, 25.37, 0.266)
pt3dadd(114.454, 18.319, 25.37, 0.27)
pt3dadd(114.516, 18.216, 25.37, 0.288)
pt3dadd(114.577, 18.113, 25.37, 0.306)
pt3dadd(114.639, 18.01, 25.37, 0.324)
pt3dadd(114.701, 17.907, 25.37, 0.344)
pt3dadd(114.763, 17.805, 25.37, 0.362)
pt3dadd(114.824, 17.702, 25.37, 0.38)
pt3dadd(114.886, 17.599, 25.37, 0.398)
pt3dadd(114.948, 17.496, 25.37, 0.416)
pt3dadd(115.01, 17.393, 25.37, 0.434)
pt3dadd(115.072, 17.29, 25.37, 0.452)
}
dend_0[8] {pt3dclear()
pt3dadd(94.315, 105.492, 13.368, 12.742)
pt3dadd(94.331, 105.491, 13.356, 12.742)
pt3dadd(94.419, 105.485, 13.288, 12.746)
pt3dadd(94.506, 105.479, 13.22, 12.752)
pt3dadd(94.594, 105.474, 13.152, 12.756)
pt3dadd(94.681, 105.468, 13.084, 12.76)
pt3dadd(94.769, 105.462, 13.016, 12.764)
pt3dadd(94.857, 105.456, 12.948, 12.77)
pt3dadd(94.944, 105.45, 12.879, 12.774)
pt3dadd(95.031, 105.37, 12.883, 12.626)
pt3dadd(95.119, 105.288, 12.888, 12.472)
pt3dadd(95.206, 105.206, 12.894, 12.32)
pt3dadd(95.293, 105.124, 12.9, 12.166)
pt3dadd(95.381, 105.042, 12.905, 12.014)
pt3dadd(95.468, 104.96, 12.911, 11.86)
pt3dadd(95.555, 104.878, 12.917, 11.708)
pt3dadd(95.642, 104.796, 12.923, 11.554)
pt3dadd(95.73, 104.714, 12.928, 11.402)
}
}
proc shape3d_134() {
dend_0[8] { pt3dadd(95.817, 104.631, 12.934, 11.248)
pt3dadd(95.907, 104.554, 12.948, 11.118)
pt3dadd(95.997, 104.477, 12.963, 10.988)
pt3dadd(96.088, 104.4, 12.978, 10.858)
pt3dadd(96.178, 104.323, 12.992, 10.726)
pt3dadd(96.268, 104.246, 13.007, 10.596)
pt3dadd(96.359, 104.169, 13.022, 10.466)
pt3dadd(96.449, 104.092, 13.036, 10.336)
pt3dadd(96.539, 104.015, 13.051, 10.206)
pt3dadd(96.63, 103.938, 13.066, 10.074)
pt3dadd(96.72, 103.861, 13.08, 9.944)
}
dend_0[9] {pt3dclear()
pt3dadd(96.72, 103.861, 13.08, 9.944)
pt3dadd(96.729, 103.854, 13.082, 9.93)
pt3dadd(96.821, 103.78, 13.102, 9.784)
pt3dadd(96.912, 103.706, 13.122, 9.638)
pt3dadd(97.004, 103.632, 13.141, 9.492)
pt3dadd(97.095, 103.558, 13.161, 9.346)
pt3dadd(97.187, 103.484, 13.181, 9.2)
}
dend_7[21] {pt3dclear()
pt3dadd(97.187, 103.484, 13.181, 9.2)
pt3dadd(97.279, 103.416, 13.208, 9.05)
pt3dadd(97.373, 103.354, 13.242, 8.896)
pt3dadd(97.467, 103.292, 13.277, 8.742)
pt3dadd(97.561, 103.23, 13.312, 8.588)
pt3dadd(97.655, 103.168, 13.347, 8.434)
pt3dadd(97.748, 103.106, 13.382, 8.28)
pt3dadd(97.842, 103.043, 13.416, 8.128)
pt3dadd(97.936, 102.981, 13.451, 7.974)
pt3dadd(98.03, 102.919, 13.486, 7.82)
pt3dadd(98.124, 102.857, 13.521, 7.666)
pt3dadd(98.216, 102.809, 13.569, 7.506)
pt3dadd(98.307, 102.767, 13.624, 7.344)
pt3dadd(98.398, 102.725, 13.679, 7.182)
pt3dadd(98.489, 102.683, 13.734, 7.02)
pt3dadd(98.58, 102.641, 13.789, 6.858)
pt3dadd(98.671, 102.599, 13.844, 6.694)
pt3dadd(98.762, 102.558, 13.899, 6.532)
pt3dadd(98.853, 102.516, 13.954, 6.37)
pt3dadd(98.944, 102.474, 14.009, 6.208)
pt3dadd(99.035, 102.432, 14.064, 6.046)
pt3dadd(99.121, 102.395, 14.127, 5.884)
pt3dadd(99.204, 102.359, 14.192, 5.724)
pt3dadd(99.287, 102.324, 14.258, 5.564)
pt3dadd(99.37, 102.288, 14.324, 5.404)
pt3dadd(99.453, 102.253, 14.39, 5.244)
pt3dadd(99.537, 102.218, 14.456, 5.084)
pt3dadd(99.62, 102.182, 14.521, 4.924)
pt3dadd(99.703, 102.147, 14.587, 4.764)
pt3dadd(99.786, 102.112, 14.653, 4.602)
pt3dadd(99.869, 102.076, 14.719, 4.442)
pt3dadd(99.936, 102.023, 14.788, 4.344)
pt3dadd(99.998, 101.965, 14.859, 4.262)
pt3dadd(100.06, 101.906, 14.929, 4.182)
pt3dadd(100.122, 101.848, 15, 4.1)
pt3dadd(100.184, 101.79, 15.07, 4.02)
pt3dadd(100.246, 101.731, 15.141, 3.938)
pt3dadd(100.308, 101.673, 15.211, 3.858)
pt3dadd(100.37, 101.615, 15.282, 3.778)
pt3dadd(100.432, 101.556, 15.352, 3.696)
pt3dadd(100.494, 101.498, 15.423, 3.616)
pt3dadd(100.568, 101.424, 15.47, 3.518)
pt3dadd(100.645, 101.347, 15.511, 3.418)
pt3dadd(100.722, 101.269, 15.551, 3.318)
pt3dadd(100.799, 101.191, 15.592, 3.216)
pt3dadd(100.876, 101.113, 15.633, 3.116)
pt3dadd(100.953, 101.036, 15.674, 3.016)
pt3dadd(101.031, 100.958, 15.714, 2.914)
pt3dadd(101.108, 100.88, 15.755, 2.814)
pt3dadd(101.185, 100.802, 15.796, 2.714)
pt3dadd(101.262, 100.724, 15.837, 2.612)
pt3dadd(101.349, 100.66, 15.88, 2.512)
pt3dadd(101.439, 100.6, 15.923, 2.412)
pt3dadd(101.528, 100.54, 15.967, 2.31)
pt3dadd(101.618, 100.479, 16.011, 2.21)
pt3dadd(101.707, 100.419, 16.054, 2.11)
pt3dadd(101.797, 100.359, 16.098, 2.008)
pt3dadd(101.886, 100.298, 16.142, 1.908)
pt3dadd(101.976, 100.238, 16.185, 1.808)
pt3dadd(102.065, 100.178, 16.229, 1.708)
pt3dadd(102.155, 100.117, 16.273, 1.606)
pt3dadd(102.249, 100.054, 16.302, 1.568)
pt3dadd(102.346, 99.989, 16.329, 1.544)
pt3dadd(102.442, 99.924, 16.355, 1.522)
pt3dadd(102.538, 99.86, 16.381, 1.498)
pt3dadd(102.634, 99.795, 16.407, 1.476)
pt3dadd(102.73, 99.73, 16.433, 1.452)
pt3dadd(102.826, 99.666, 16.459, 1.428)
pt3dadd(102.922, 99.601, 16.485, 1.406)
pt3dadd(103.018, 99.536, 16.511, 1.382)
pt3dadd(103.115, 99.472, 16.538, 1.36)
pt3dadd(103.21, 99.402, 16.554, 1.336)
pt3dadd(103.306, 99.332, 16.568, 1.314)
pt3dadd(103.402, 99.262, 16.582, 1.292)
pt3dadd(103.498, 99.192, 16.597, 1.27)
pt3dadd(103.594, 99.122, 16.611, 1.248)
pt3dadd(103.689, 99.051, 16.625, 1.226)
pt3dadd(103.785, 98.981, 16.64, 1.204)
pt3dadd(103.881, 98.911, 16.654, 1.182)
pt3dadd(103.977, 98.841, 16.669, 1.158)
pt3dadd(104.073, 98.771, 16.683, 1.136)
pt3dadd(104.171, 98.702, 16.691, 1.12)
pt3dadd(104.269, 98.634, 16.698, 1.106)
pt3dadd(104.367, 98.566, 16.705, 1.09)
pt3dadd(104.465, 98.497, 16.712, 1.076)
pt3dadd(104.564, 98.429, 16.72, 1.062)
pt3dadd(104.662, 98.361, 16.727, 1.046)
pt3dadd(104.76, 98.292, 16.734, 1.032)
pt3dadd(104.859, 98.224, 16.741, 1.016)
pt3dadd(104.957, 98.156, 16.748, 1.002)
pt3dadd(105.055, 98.088, 16.755, 0.986)
pt3dadd(105.156, 98.023, 16.759, 0.998)
pt3dadd(105.258, 97.959, 16.763, 1.012)
pt3dadd(105.359, 97.895, 16.766, 1.028)
pt3dadd(105.461, 97.831, 16.77, 1.042)
pt3dadd(105.562, 97.767, 16.774, 1.056)
pt3dadd(105.664, 97.704, 16.777, 1.07)
pt3dadd(105.765, 97.64, 16.781, 1.086)
pt3dadd(105.867, 97.576, 16.785, 1.1)
pt3dadd(105.968, 97.512, 16.788, 1.114)
pt3dadd(106.069, 97.448, 16.792, 1.128)
pt3dadd(106.165, 97.376, 16.799, 1.138)
pt3dadd(106.26, 97.304, 16.805, 1.144)
pt3dadd(106.356, 97.231, 16.812, 1.152)
pt3dadd(106.451, 97.158, 16.819, 1.16)
pt3dadd(106.546, 97.086, 16.826, 1.168)
pt3dadd(106.641, 97.014, 16.833, 1.176)
pt3dadd(106.737, 96.941, 16.84, 1.184)
pt3dadd(106.832, 96.868, 16.846, 1.192)
pt3dadd(106.927, 96.796, 16.853, 1.2)
pt3dadd(107.023, 96.723, 16.86, 1.208)
pt3dadd(107.112, 96.645, 16.872, 1.238)
pt3dadd(107.202, 96.566, 16.884, 1.272)
pt3dadd(107.291, 96.488, 16.896, 1.304)
pt3dadd(107.38, 96.409, 16.908, 1.336)
pt3dadd(107.47, 96.33, 16.92, 1.37)
pt3dadd(107.559, 96.251, 16.932, 1.402)
pt3dadd(107.648, 96.172, 16.944, 1.434)
pt3dadd(107.738, 96.093, 16.956, 1.466)
pt3dadd(107.827, 96.015, 16.968, 1.5)
pt3dadd(107.916, 95.936, 16.98, 1.532)
pt3dadd(107.995, 95.858, 17.018, 1.478)
pt3dadd(108.072, 95.779, 17.058, 1.418)
pt3dadd(108.15, 95.701, 17.097, 1.358)
pt3dadd(108.227, 95.623, 17.137, 1.298)
pt3dadd(108.305, 95.545, 17.177, 1.238)
pt3dadd(108.382, 95.466, 17.216, 1.18)
pt3dadd(108.46, 95.388, 17.256, 1.12)
pt3dadd(108.538, 95.31, 17.296, 1.06)
pt3dadd(108.615, 95.232, 17.335, 1)
pt3dadd(108.693, 95.154, 17.375, 0.94)
pt3dadd(108.775, 95.07, 17.396, 0.958)
pt3dadd(108.858, 94.987, 17.417, 0.978)
pt3dadd(108.94, 94.904, 17.438, 0.996)
pt3dadd(109.023, 94.82, 17.459, 1.016)
pt3dadd(109.105, 94.737, 17.481, 1.034)
pt3dadd(109.188, 94.653, 17.502, 1.054)
pt3dadd(109.27, 94.57, 17.523, 1.072)
pt3dadd(109.353, 94.487, 17.544, 1.092)
pt3dadd(109.435, 94.403, 17.565, 1.112)
pt3dadd(109.518, 94.32, 17.586, 1.13)
pt3dadd(109.602, 94.235, 17.595, 1.13)
pt3dadd(109.685, 94.149, 17.604, 1.13)
pt3dadd(109.769, 94.064, 17.612, 1.13)
pt3dadd(109.853, 93.979, 17.621, 1.13)
pt3dadd(109.937, 93.894, 17.63, 1.13)
pt3dadd(110.02, 93.808, 17.639, 1.13)
pt3dadd(110.104, 93.723, 17.648, 1.13)
pt3dadd(110.188, 93.638, 17.657, 1.13)
pt3dadd(110.272, 93.552, 17.666, 1.13)
pt3dadd(110.355, 93.467, 17.675, 1.13)
pt3dadd(110.439, 93.381, 17.675, 1.13)
pt3dadd(110.523, 93.295, 17.676, 1.13)
pt3dadd(110.606, 93.209, 17.677, 1.13)
pt3dadd(110.69, 93.123, 17.678, 1.13)
pt3dadd(110.773, 93.037, 17.678, 1.13)
pt3dadd(110.857, 92.95, 17.679, 1.13)
pt3dadd(110.94, 92.864, 17.68, 1.13)
pt3dadd(111.024, 92.778, 17.681, 1.13)
pt3dadd(111.107, 92.692, 17.681, 1.13)
pt3dadd(111.191, 92.606, 17.682, 1.13)
pt3dadd(111.273, 92.519, 17.682, 1.13)
pt3dadd(111.355, 92.431, 17.682, 1.13)
pt3dadd(111.438, 92.344, 17.682, 1.13)
pt3dadd(111.52, 92.256, 17.682, 1.13)
pt3dadd(111.602, 92.169, 17.682, 1.13)
pt3dadd(111.685, 92.082, 17.682, 1.13)
pt3dadd(111.767, 91.995, 17.682, 1.13)
pt3dadd(111.849, 91.907, 17.682, 1.13)
pt3dadd(111.931, 91.82, 17.682, 1.13)
pt3dadd(112.014, 91.732, 17.682, 1.13)
pt3dadd(112.094, 91.644, 17.682, 1.13)
pt3dadd(112.175, 91.555, 17.682, 1.13)
pt3dadd(112.256, 91.466, 17.682, 1.13)
pt3dadd(112.336, 91.377, 17.682, 1.13)
pt3dadd(112.417, 91.288, 17.682, 1.13)
pt3dadd(112.498, 91.199, 17.682, 1.13)
pt3dadd(112.578, 91.11, 17.682, 1.13)
pt3dadd(112.659, 91.022, 17.682, 1.13)
pt3dadd(112.74, 90.933, 17.682, 1.13)
pt3dadd(112.82, 90.844, 17.682, 1.13)
pt3dadd(112.899, 90.753, 17.682, 1.13)
}
}
proc shape3d_135() {
dend_7[21] { pt3dadd(112.977, 90.663, 17.682, 1.13)
pt3dadd(113.056, 90.572, 17.682, 1.13)
pt3dadd(113.135, 90.481, 17.682, 1.13)
pt3dadd(113.213, 90.39, 17.682, 1.13)
pt3dadd(113.292, 90.3, 17.682, 1.13)
pt3dadd(113.37, 90.209, 17.682, 1.13)
pt3dadd(113.449, 90.119, 17.682, 1.13)
pt3dadd(113.528, 90.028, 17.682, 1.13)
pt3dadd(113.606, 89.937, 17.682, 1.13)
}
dend_7[22] {pt3dclear()
pt3dadd(113.606, 89.937, 17.682, 1.13)
pt3dadd(113.631, 89.894, 17.682, 1.13)
pt3dadd(113.69, 89.79, 17.682, 1.13)
pt3dadd(113.749, 89.686, 17.682, 1.13)
pt3dadd(113.808, 89.581, 17.682, 1.13)
pt3dadd(113.867, 89.477, 17.682, 1.13)
pt3dadd(113.927, 89.372, 17.682, 1.13)
pt3dadd(113.986, 89.268, 17.682, 1.13)
pt3dadd(114.045, 89.164, 17.682, 1.13)
pt3dadd(114.104, 89.059, 17.682, 1.13)
pt3dadd(114.163, 88.955, 17.682, 1.13)
pt3dadd(114.222, 88.85, 17.682, 1.13)
pt3dadd(114.286, 88.749, 17.682, 1.108)
pt3dadd(114.353, 88.649, 17.682, 1.07)
pt3dadd(114.42, 88.55, 17.682, 1.032)
pt3dadd(114.487, 88.45, 17.682, 0.994)
pt3dadd(114.554, 88.35, 17.682, 0.956)
pt3dadd(114.621, 88.251, 17.682, 0.918)
pt3dadd(114.688, 88.151, 17.682, 0.878)
pt3dadd(114.755, 88.052, 17.682, 0.84)
pt3dadd(114.822, 87.952, 17.682, 0.802)
pt3dadd(114.889, 87.852, 17.682, 0.764)
pt3dadd(114.958, 87.755, 17.682, 0.772)
pt3dadd(115.029, 87.658, 17.682, 0.81)
pt3dadd(115.101, 87.562, 17.682, 0.85)
pt3dadd(115.172, 87.465, 17.682, 0.888)
pt3dadd(115.243, 87.369, 17.682, 0.928)
pt3dadd(115.315, 87.272, 17.682, 0.966)
pt3dadd(115.386, 87.176, 17.682, 1.006)
pt3dadd(115.457, 87.079, 17.682, 1.046)
pt3dadd(115.529, 86.983, 17.682, 1.084)
pt3dadd(115.6, 86.886, 17.682, 1.124)
pt3dadd(115.667, 86.787, 17.682, 1.144)
pt3dadd(115.731, 86.685, 17.682, 1.154)
pt3dadd(115.796, 86.584, 17.682, 1.162)
pt3dadd(115.86, 86.483, 17.682, 1.172)
pt3dadd(115.924, 86.381, 17.682, 1.182)
pt3dadd(115.988, 86.28, 17.682, 1.19)
pt3dadd(116.052, 86.178, 17.682, 1.2)
pt3dadd(116.116, 86.077, 17.682, 1.208)
pt3dadd(116.181, 85.976, 17.682, 1.218)
pt3dadd(116.245, 85.874, 17.682, 1.226)
pt3dadd(116.308, 85.772, 17.682, 1.224)
pt3dadd(116.371, 85.67, 17.682, 1.214)
pt3dadd(116.433, 85.568, 17.682, 1.204)
pt3dadd(116.496, 85.465, 17.682, 1.194)
pt3dadd(116.559, 85.363, 17.682, 1.184)
pt3dadd(116.622, 85.261, 17.682, 1.174)
pt3dadd(116.684, 85.158, 17.682, 1.164)
pt3dadd(116.747, 85.056, 17.682, 1.154)
pt3dadd(116.81, 84.954, 17.682, 1.144)
pt3dadd(116.872, 84.851, 17.682, 1.134)
pt3dadd(116.938, 84.751, 17.682, 1.122)
pt3dadd(117.006, 84.652, 17.682, 1.108)
pt3dadd(117.074, 84.554, 17.682, 1.094)
pt3dadd(117.143, 84.455, 17.682, 1.08)
pt3dadd(117.211, 84.356, 17.682, 1.066)
pt3dadd(117.279, 84.257, 17.682, 1.054)
pt3dadd(117.347, 84.158, 17.682, 1.04)
pt3dadd(117.415, 84.059, 17.682, 1.026)
pt3dadd(117.483, 83.961, 17.682, 1.012)
pt3dadd(117.551, 83.862, 17.682, 0.998)
pt3dadd(117.619, 83.763, 17.682, 0.976)
pt3dadd(117.687, 83.664, 17.682, 0.948)
pt3dadd(117.756, 83.566, 17.682, 0.92)
pt3dadd(117.824, 83.467, 17.682, 0.892)
pt3dadd(117.892, 83.368, 17.682, 0.864)
pt3dadd(117.96, 83.27, 17.682, 0.836)
pt3dadd(118.029, 83.171, 17.682, 0.808)
pt3dadd(118.097, 83.072, 17.682, 0.78)
pt3dadd(118.165, 82.974, 17.682, 0.752)
pt3dadd(118.234, 82.875, 17.682, 0.724)
pt3dadd(118.293, 82.771, 17.682, 0.722)
pt3dadd(118.348, 82.664, 17.682, 0.736)
pt3dadd(118.403, 82.558, 17.682, 0.748)
pt3dadd(118.458, 82.451, 17.682, 0.762)
pt3dadd(118.513, 82.344, 17.682, 0.776)
pt3dadd(118.568, 82.237, 17.682, 0.79)
pt3dadd(118.623, 82.131, 17.682, 0.804)
pt3dadd(118.677, 82.024, 17.682, 0.816)
pt3dadd(118.732, 81.917, 17.682, 0.83)
pt3dadd(118.787, 81.811, 17.682, 0.844)
pt3dadd(118.846, 81.706, 17.682, 0.81)
pt3dadd(118.907, 81.603, 17.682, 0.75)
pt3dadd(118.968, 81.499, 17.682, 0.688)
pt3dadd(119.029, 81.396, 17.682, 0.628)
pt3dadd(119.09, 81.293, 17.682, 0.568)
pt3dadd(119.151, 81.189, 17.682, 0.506)
pt3dadd(119.212, 81.086, 17.682, 0.446)
pt3dadd(119.273, 80.982, 17.682, 0.384)
pt3dadd(119.334, 80.879, 17.682, 0.324)
pt3dadd(119.395, 80.776, 17.682, 0.264)
pt3dadd(119.444, 80.667, 17.682, 0.294)
pt3dadd(119.488, 80.555, 17.682, 0.378)
pt3dadd(119.531, 80.443, 17.682, 0.462)
pt3dadd(119.574, 80.331, 17.682, 0.548)
pt3dadd(119.618, 80.219, 17.682, 0.632)
pt3dadd(119.661, 80.107, 17.682, 0.716)
pt3dadd(119.704, 79.995, 17.682, 0.8)
pt3dadd(119.748, 79.884, 17.682, 0.884)
pt3dadd(119.791, 79.772, 17.681, 0.968)
pt3dadd(119.834, 79.66, 17.681, 1.052)
pt3dadd(119.886, 79.552, 17.681, 1.06)
pt3dadd(119.943, 79.446, 17.681, 1.026)
pt3dadd(120, 79.34, 17.681, 0.992)
pt3dadd(120.056, 79.235, 17.681, 0.958)
pt3dadd(120.113, 79.129, 17.681, 0.924)
pt3dadd(120.17, 79.023, 17.681, 0.89)
pt3dadd(120.227, 78.918, 17.681, 0.854)
pt3dadd(120.283, 78.812, 17.681, 0.82)
pt3dadd(120.341, 78.706, 17.681, 0.786)
pt3dadd(120.397, 78.6, 17.681, 0.752)
pt3dadd(120.444, 78.49, 17.681, 0.748)
pt3dadd(120.485, 78.378, 17.681, 0.76)
pt3dadd(120.527, 78.265, 17.681, 0.774)
pt3dadd(120.568, 78.152, 17.681, 0.786)
pt3dadd(120.608, 78.039, 17.68, 0.8)
pt3dadd(120.649, 77.927, 17.68, 0.812)
pt3dadd(120.691, 77.814, 17.68, 0.824)
pt3dadd(120.732, 77.701, 17.68, 0.838)
pt3dadd(120.773, 77.588, 17.68, 0.85)
pt3dadd(120.814, 77.476, 17.68, 0.864)
pt3dadd(120.85, 77.361, 17.68, 0.882)
pt3dadd(120.881, 77.245, 17.679, 0.906)
pt3dadd(120.913, 77.13, 17.679, 0.928)
pt3dadd(120.944, 77.014, 17.679, 0.952)
pt3dadd(120.977, 76.898, 17.679, 0.974)
pt3dadd(121.008, 76.782, 17.678, 0.996)
pt3dadd(121.04, 76.667, 17.678, 1.02)
pt3dadd(121.072, 76.551, 17.678, 1.042)
pt3dadd(121.104, 76.435, 17.677, 1.064)
pt3dadd(121.135, 76.32, 17.677, 1.088)
pt3dadd(121.178, 76.208, 17.677, 1.096)
pt3dadd(121.228, 76.099, 17.676, 1.1)
pt3dadd(121.277, 75.989, 17.676, 1.104)
pt3dadd(121.326, 75.88, 17.675, 1.108)
pt3dadd(121.375, 75.77, 17.675, 1.112)
pt3dadd(121.424, 75.661, 17.674, 1.114)
pt3dadd(121.474, 75.551, 17.674, 1.118)
pt3dadd(121.523, 75.442, 17.673, 1.122)
pt3dadd(121.572, 75.333, 17.673, 1.126)
pt3dadd(121.621, 75.223, 17.672, 1.128)
pt3dadd(121.668, 75.113, 17.671, 1.13)
pt3dadd(121.715, 75.002, 17.67, 1.13)
pt3dadd(121.76, 74.891, 17.669, 1.13)
pt3dadd(121.806, 74.78, 17.667, 1.13)
pt3dadd(121.853, 74.669, 17.666, 1.13)
pt3dadd(121.898, 74.559, 17.665, 1.13)
pt3dadd(121.944, 74.448, 17.664, 1.13)
pt3dadd(121.991, 74.337, 17.663, 1.13)
pt3dadd(122.036, 74.226, 17.662, 1.13)
pt3dadd(122.082, 74.115, 17.661, 1.13)
pt3dadd(122.136, 74.008, 17.659, 1.12)
pt3dadd(122.192, 73.902, 17.656, 1.104)
pt3dadd(122.249, 73.796, 17.654, 1.09)
pt3dadd(122.306, 73.691, 17.652, 1.074)
pt3dadd(122.363, 73.585, 17.65, 1.06)
pt3dadd(122.419, 73.479, 17.648, 1.044)
pt3dadd(122.476, 73.373, 17.646, 1.03)
pt3dadd(122.532, 73.268, 17.643, 1.014)
pt3dadd(122.59, 73.162, 17.641, 0.998)
pt3dadd(122.646, 73.056, 17.639, 0.984)
pt3dadd(122.698, 72.948, 17.635, 0.994)
pt3dadd(122.747, 72.839, 17.629, 1.014)
pt3dadd(122.796, 72.73, 17.624, 1.034)
pt3dadd(122.846, 72.621, 17.619, 1.054)
pt3dadd(122.896, 72.512, 17.614, 1.074)
pt3dadd(122.945, 72.402, 17.609, 1.094)
pt3dadd(122.995, 72.293, 17.604, 1.114)
pt3dadd(123.044, 72.184, 17.599, 1.134)
pt3dadd(123.095, 72.075, 17.594, 1.154)
pt3dadd(123.144, 71.966, 17.589, 1.174)
pt3dadd(123.194, 71.858, 17.581, 1.164)
pt3dadd(123.246, 71.75, 17.572, 1.146)
pt3dadd(123.298, 71.642, 17.563, 1.126)
pt3dadd(123.348, 71.534, 17.554, 1.108)
pt3dadd(123.4, 71.426, 17.545, 1.088)
pt3dadd(123.451, 71.318, 17.537, 1.068)
pt3dadd(123.502, 71.21, 17.528, 1.05)
pt3dadd(123.553, 71.102, 17.519, 1.03)
pt3dadd(123.605, 70.994, 17.51, 1.012)
pt3dadd(123.656, 70.886, 17.501, 0.992)
pt3dadd(123.703, 70.779, 17.481, 0.98)
pt3dadd(123.75, 70.672, 17.458, 0.97)
pt3dadd(123.797, 70.565, 17.435, 0.96)
pt3dadd(123.844, 70.458, 17.411, 0.948)
pt3dadd(123.889, 70.351, 17.388, 0.938)
pt3dadd(123.936, 70.244, 17.365, 0.928)
pt3dadd(123.983, 70.137, 17.342, 0.918)
pt3dadd(124.03, 70.03, 17.318, 0.908)
pt3dadd(124.076, 69.923, 17.295, 0.896)
}
}
proc shape3d_136() {
dend_7[22] { pt3dadd(124.122, 69.816, 17.272, 0.886)
pt3dadd(124.156, 69.706, 17.242, 0.89)
pt3dadd(124.188, 69.597, 17.211, 0.896)
pt3dadd(124.219, 69.487, 17.18, 0.904)
pt3dadd(124.252, 69.378, 17.149, 0.91)
pt3dadd(124.283, 69.268, 17.118, 0.916)
pt3dadd(124.315, 69.158, 17.087, 0.922)
pt3dadd(124.346, 69.049, 17.056, 0.928)
pt3dadd(124.379, 68.939, 17.025, 0.934)
pt3dadd(124.411, 68.83, 16.994, 0.94)
pt3dadd(124.442, 68.72, 16.963, 0.946)
pt3dadd(124.478, 68.608, 16.943, 0.944)
pt3dadd(124.514, 68.496, 16.924, 0.944)
pt3dadd(124.549, 68.384, 16.905, 0.942)
pt3dadd(124.585, 68.272, 16.885, 0.94)
pt3dadd(124.621, 68.159, 16.866, 0.94)
pt3dadd(124.657, 68.047, 16.847, 0.938)
pt3dadd(124.693, 67.935, 16.828, 0.936)
pt3dadd(124.729, 67.823, 16.809, 0.934)
pt3dadd(124.765, 67.71, 16.79, 0.934)
pt3dadd(124.801, 67.598, 16.771, 0.932)
pt3dadd(124.846, 67.487, 16.762, 0.958)
pt3dadd(124.89, 67.376, 16.754, 0.986)
pt3dadd(124.934, 67.266, 16.745, 1.014)
pt3dadd(124.979, 67.155, 16.736, 1.04)
pt3dadd(125.023, 67.044, 16.728, 1.068)
pt3dadd(125.068, 66.933, 16.719, 1.096)
pt3dadd(125.112, 66.822, 16.711, 1.122)
pt3dadd(125.158, 66.711, 16.702, 1.15)
pt3dadd(125.202, 66.6, 16.694, 1.178)
pt3dadd(125.246, 66.489, 16.685, 1.204)
pt3dadd(125.282, 66.375, 16.681, 1.174)
pt3dadd(125.317, 66.26, 16.677, 1.144)
pt3dadd(125.353, 66.146, 16.672, 1.114)
pt3dadd(125.389, 66.031, 16.668, 1.084)
pt3dadd(125.425, 65.917, 16.664, 1.054)
pt3dadd(125.46, 65.802, 16.66, 1.024)
pt3dadd(125.496, 65.688, 16.655, 0.994)
pt3dadd(125.532, 65.573, 16.651, 0.964)
pt3dadd(125.567, 65.459, 16.647, 0.934)
pt3dadd(125.603, 65.344, 16.643, 0.904)
pt3dadd(125.641, 65.231, 16.634, 0.904)
pt3dadd(125.678, 65.117, 16.626, 0.904)
pt3dadd(125.717, 65.004, 16.618, 0.904)
pt3dadd(125.754, 64.89, 16.609, 0.904)
pt3dadd(125.791, 64.777, 16.601, 0.904)
pt3dadd(125.83, 64.664, 16.592, 0.904)
pt3dadd(125.867, 64.55, 16.584, 0.904)
pt3dadd(125.905, 64.437, 16.575, 0.904)
pt3dadd(125.942, 64.323, 16.567, 0.904)
pt3dadd(125.981, 64.21, 16.558, 0.904)
pt3dadd(126.031, 64.103, 16.541, 0.904)
pt3dadd(126.08, 63.996, 16.523, 0.904)
pt3dadd(126.131, 63.889, 16.505, 0.904)
pt3dadd(126.18, 63.781, 16.488, 0.904)
pt3dadd(126.23, 63.674, 16.47, 0.904)
pt3dadd(126.28, 63.567, 16.453, 0.904)
pt3dadd(126.329, 63.46, 16.435, 0.904)
pt3dadd(126.379, 63.353, 16.418, 0.904)
pt3dadd(126.428, 63.246, 16.4, 0.904)
pt3dadd(126.478, 63.139, 16.381, 0.906)
pt3dadd(126.522, 63.035, 16.346, 0.914)
pt3dadd(126.566, 62.931, 16.312, 0.922)
pt3dadd(126.61, 62.828, 16.278, 0.932)
pt3dadd(126.654, 62.724, 16.243, 0.94)
pt3dadd(126.698, 62.62, 16.209, 0.948)
pt3dadd(126.742, 62.516, 16.175, 0.958)
pt3dadd(126.786, 62.413, 16.14, 0.966)
pt3dadd(126.83, 62.309, 16.106, 0.974)
pt3dadd(126.875, 62.205, 16.072, 0.984)
pt3dadd(126.92, 62.102, 16.039, 1)
pt3dadd(126.98, 62.001, 16.016, 1.058)
pt3dadd(127.039, 61.901, 15.993, 1.118)
pt3dadd(127.099, 61.801, 15.969, 1.176)
pt3dadd(127.158, 61.7, 15.946, 1.236)
pt3dadd(127.218, 61.6, 15.922, 1.294)
pt3dadd(127.277, 61.499, 15.899, 1.354)
pt3dadd(127.337, 61.399, 15.876, 1.414)
pt3dadd(127.396, 61.298, 15.852, 1.472)
pt3dadd(127.456, 61.198, 15.829, 1.532)
pt3dadd(127.512, 61.096, 15.807, 1.576)
pt3dadd(127.554, 60.986, 15.789, 1.532)
pt3dadd(127.597, 60.875, 15.772, 1.488)
pt3dadd(127.639, 60.765, 15.755, 1.446)
}
dend_7[23] {pt3dclear()
pt3dadd(127.639, 60.765, 15.755, 1.446)
pt3dadd(127.64, 60.764, 15.754, 1.446)
pt3dadd(127.686, 60.655, 15.739, 1.414)
pt3dadd(127.733, 60.546, 15.723, 1.382)
pt3dadd(127.78, 60.437, 15.707, 1.35)
pt3dadd(127.826, 60.328, 15.691, 1.318)
pt3dadd(127.872, 60.219, 15.676, 1.286)
pt3dadd(127.919, 60.11, 15.66, 1.256)
pt3dadd(127.966, 60.001, 15.644, 1.224)
pt3dadd(128.012, 59.892, 15.628, 1.192)
pt3dadd(128.059, 59.783, 15.613, 1.16)
pt3dadd(128.106, 59.674, 15.597, 1.13)
pt3dadd(128.16, 59.569, 15.581, 1.13)
pt3dadd(128.214, 59.464, 15.564, 1.13)
pt3dadd(128.269, 59.359, 15.548, 1.13)
pt3dadd(128.323, 59.253, 15.532, 1.13)
pt3dadd(128.377, 59.148, 15.516, 1.13)
pt3dadd(128.432, 59.043, 15.5, 1.13)
pt3dadd(128.486, 58.938, 15.484, 1.13)
pt3dadd(128.54, 58.833, 15.467, 1.13)
pt3dadd(128.596, 58.728, 15.451, 1.13)
pt3dadd(128.647, 58.622, 15.432, 1.13)
pt3dadd(128.683, 58.517, 15.395, 1.124)
pt3dadd(128.719, 58.411, 15.358, 1.118)
pt3dadd(128.755, 58.306, 15.32, 1.112)
pt3dadd(128.791, 58.201, 15.283, 1.106)
pt3dadd(128.826, 58.095, 15.246, 1.1)
pt3dadd(128.862, 57.99, 15.208, 1.094)
pt3dadd(128.898, 57.885, 15.171, 1.088)
pt3dadd(128.934, 57.779, 15.134, 1.082)
pt3dadd(128.97, 57.674, 15.096, 1.076)
pt3dadd(129.005, 57.568, 15.06, 1.062)
pt3dadd(129.038, 57.458, 15.03, 1.002)
pt3dadd(129.071, 57.348, 15.001, 0.942)
pt3dadd(129.104, 57.238, 14.971, 0.882)
pt3dadd(129.137, 57.129, 14.942, 0.822)
pt3dadd(129.17, 57.019, 14.913, 0.762)
pt3dadd(129.204, 56.909, 14.883, 0.7)
pt3dadd(129.236, 56.799, 14.854, 0.64)
pt3dadd(129.27, 56.689, 14.824, 0.58)
pt3dadd(129.302, 56.579, 14.795, 0.52)
pt3dadd(129.338, 56.471, 14.766, 0.47)
pt3dadd(129.395, 56.368, 14.745, 0.492)
pt3dadd(129.451, 56.265, 14.723, 0.512)
pt3dadd(129.508, 56.162, 14.702, 0.534)
pt3dadd(129.564, 56.06, 14.68, 0.554)
pt3dadd(129.62, 55.957, 14.658, 0.576)
pt3dadd(129.677, 55.854, 14.637, 0.596)
pt3dadd(129.733, 55.751, 14.615, 0.618)
pt3dadd(129.79, 55.649, 14.593, 0.638)
pt3dadd(129.846, 55.546, 14.572, 0.66)
pt3dadd(129.901, 55.444, 14.548, 0.678)
pt3dadd(129.952, 55.345, 14.51, 0.678)
pt3dadd(130.003, 55.246, 14.473, 0.678)
pt3dadd(130.054, 55.147, 14.435, 0.678)
pt3dadd(130.105, 55.048, 14.398, 0.678)
pt3dadd(130.156, 54.95, 14.36, 0.678)
pt3dadd(130.207, 54.851, 14.322, 0.678)
pt3dadd(130.258, 54.752, 14.285, 0.678)
pt3dadd(130.309, 54.653, 14.247, 0.678)
pt3dadd(130.36, 54.554, 14.209, 0.678)
pt3dadd(130.416, 54.459, 14.173, 0.678)
pt3dadd(130.502, 54.382, 14.146, 0.678)
pt3dadd(130.589, 54.305, 14.119, 0.678)
pt3dadd(130.675, 54.229, 14.092, 0.678)
pt3dadd(130.762, 54.152, 14.065, 0.678)
pt3dadd(130.848, 54.072, 14.044, 0.686)
pt3dadd(130.933, 53.991, 14.026, 0.698)
pt3dadd(131.018, 53.91, 14.007, 0.71)
pt3dadd(131.105, 53.829, 13.988, 0.722)
pt3dadd(131.19, 53.748, 13.969, 0.734)
pt3dadd(131.276, 53.667, 13.95, 0.746)
pt3dadd(131.362, 53.586, 13.931, 0.758)
pt3dadd(131.447, 53.505, 13.913, 0.77)
pt3dadd(131.533, 53.424, 13.894, 0.782)
pt3dadd(131.618, 53.343, 13.875, 0.794)
pt3dadd(131.695, 53.253, 13.865, 0.804)
pt3dadd(131.771, 53.159, 13.858, 0.816)
pt3dadd(131.845, 53.066, 13.851, 0.826)
pt3dadd(131.92, 52.973, 13.844, 0.838)
pt3dadd(131.995, 52.879, 13.837, 0.848)
pt3dadd(132.07, 52.786, 13.829, 0.86)
pt3dadd(132.145, 52.693, 13.822, 0.87)
pt3dadd(132.22, 52.599, 13.815, 0.88)
pt3dadd(132.295, 52.506, 13.808, 0.892)
pt3dadd(132.37, 52.413, 13.801, 0.902)
pt3dadd(132.437, 52.313, 13.796, 0.896)
pt3dadd(132.502, 52.213, 13.791, 0.886)
pt3dadd(132.568, 52.113, 13.787, 0.876)
pt3dadd(132.634, 52.012, 13.783, 0.866)
pt3dadd(132.7, 51.912, 13.779, 0.856)
pt3dadd(132.764, 51.812, 13.774, 0.846)
pt3dadd(132.83, 51.711, 13.77, 0.838)
pt3dadd(132.896, 51.611, 13.766, 0.828)
pt3dadd(132.961, 51.511, 13.762, 0.818)
pt3dadd(133.027, 51.41, 13.757, 0.808)
pt3dadd(133.096, 51.312, 13.751, 0.806)
pt3dadd(133.164, 51.214, 13.743, 0.806)
pt3dadd(133.232, 51.116, 13.736, 0.808)
pt3dadd(133.301, 51.018, 13.729, 0.808)
pt3dadd(133.369, 50.919, 13.722, 0.808)
pt3dadd(133.439, 50.821, 13.715, 0.808)
pt3dadd(133.507, 50.723, 13.708, 0.808)
pt3dadd(133.576, 50.625, 13.701, 0.808)
pt3dadd(133.644, 50.527, 13.694, 0.808)
pt3dadd(133.712, 50.429, 13.687, 0.81)
pt3dadd(133.782, 50.332, 13.674, 0.836)
pt3dadd(133.852, 50.235, 13.661, 0.87)
pt3dadd(133.921, 50.139, 13.648, 0.902)
pt3dadd(133.99, 50.042, 13.635, 0.934)
pt3dadd(134.059, 49.946, 13.621, 0.966)
pt3dadd(134.129, 49.849, 13.608, 0.998)
pt3dadd(134.198, 49.752, 13.595, 1.03)
pt3dadd(134.268, 49.656, 13.581, 1.062)
pt3dadd(134.338, 49.559, 13.568, 1.096)
pt3dadd(134.406, 49.463, 13.555, 1.128)
}
}
proc shape3d_137() {
dend_7[23] { pt3dadd(134.461, 49.364, 13.523, 1.13)
pt3dadd(134.515, 49.264, 13.489, 1.128)
pt3dadd(134.569, 49.165, 13.455, 1.128)
pt3dadd(134.623, 49.066, 13.421, 1.126)
pt3dadd(134.677, 48.967, 13.388, 1.124)
pt3dadd(134.731, 48.868, 13.354, 1.124)
pt3dadd(134.785, 48.768, 13.32, 1.122)
pt3dadd(134.839, 48.669, 13.286, 1.122)
pt3dadd(134.893, 48.57, 13.252, 1.12)
pt3dadd(134.947, 48.471, 13.219, 1.12)
pt3dadd(135.012, 48.374, 13.196, 1.082)
pt3dadd(135.078, 48.277, 13.175, 1.04)
pt3dadd(135.144, 48.18, 13.153, 1)
pt3dadd(135.21, 48.082, 13.132, 0.96)
pt3dadd(135.275, 47.985, 13.11, 0.918)
pt3dadd(135.341, 47.888, 13.089, 0.878)
pt3dadd(135.407, 47.791, 13.067, 0.836)
pt3dadd(135.472, 47.694, 13.046, 0.796)
pt3dadd(135.538, 47.597, 13.024, 0.754)
pt3dadd(135.604, 47.5, 13.003, 0.714)
pt3dadd(135.661, 47.396, 12.99, 0.708)
pt3dadd(135.718, 47.291, 12.978, 0.704)
pt3dadd(135.774, 47.186, 12.966, 0.7)
pt3dadd(135.832, 47.082, 12.955, 0.698)
pt3dadd(135.888, 46.977, 12.943, 0.694)
pt3dadd(135.944, 46.872, 12.931, 0.692)
pt3dadd(136.002, 46.767, 12.919, 0.688)
pt3dadd(136.058, 46.663, 12.907, 0.684)
pt3dadd(136.115, 46.558, 12.895, 0.682)
pt3dadd(136.172, 46.453, 12.883, 0.678)
pt3dadd(136.26, 46.373, 12.882, 0.696)
pt3dadd(136.351, 46.294, 12.882, 0.718)
pt3dadd(136.441, 46.215, 12.881, 0.738)
pt3dadd(136.531, 46.136, 12.88, 0.758)
pt3dadd(136.622, 46.057, 12.88, 0.778)
pt3dadd(136.712, 45.978, 12.879, 0.798)
pt3dadd(136.802, 45.899, 12.879, 0.818)
pt3dadd(136.894, 45.82, 12.878, 0.838)
pt3dadd(136.984, 45.741, 12.878, 0.86)
pt3dadd(137.074, 45.662, 12.877, 0.88)
pt3dadd(137.161, 45.58, 12.877, 0.838)
pt3dadd(137.249, 45.498, 12.877, 0.796)
pt3dadd(137.336, 45.416, 12.877, 0.754)
pt3dadd(137.424, 45.333, 12.877, 0.71)
pt3dadd(137.51, 45.251, 12.877, 0.668)
pt3dadd(137.598, 45.169, 12.877, 0.624)
pt3dadd(137.686, 45.087, 12.877, 0.582)
pt3dadd(137.773, 45.004, 12.877, 0.54)
pt3dadd(137.861, 44.922, 12.877, 0.496)
pt3dadd(137.947, 44.84, 12.877, 0.454)
pt3dadd(138.031, 44.753, 12.877, 0.49)
pt3dadd(138.114, 44.666, 12.877, 0.528)
pt3dadd(138.196, 44.579, 12.877, 0.566)
pt3dadd(138.278, 44.493, 12.877, 0.604)
pt3dadd(138.361, 44.406, 12.877, 0.642)
pt3dadd(138.444, 44.319, 12.877, 0.68)
pt3dadd(138.527, 44.232, 12.877, 0.718)
pt3dadd(138.61, 44.145, 12.877, 0.758)
pt3dadd(138.677, 44.045, 12.877, 0.76)
pt3dadd(138.742, 43.945, 12.877, 0.762)
pt3dadd(138.808, 43.844, 12.877, 0.762)
pt3dadd(138.874, 43.744, 12.877, 0.764)
pt3dadd(138.94, 43.644, 12.877, 0.766)
pt3dadd(139.006, 43.544, 12.877, 0.768)
pt3dadd(139.072, 43.443, 12.877, 0.77)
pt3dadd(139.138, 43.343, 12.877, 0.77)
pt3dadd(139.204, 43.243, 12.877, 0.772)
pt3dadd(139.268, 43.142, 12.877, 0.774)
pt3dadd(139.327, 43.037, 12.876, 0.776)
pt3dadd(139.386, 42.932, 12.876, 0.776)
pt3dadd(139.444, 42.827, 12.876, 0.778)
pt3dadd(139.502, 42.722, 12.876, 0.78)
pt3dadd(139.56, 42.618, 12.876, 0.78)
pt3dadd(139.619, 42.513, 12.876, 0.782)
pt3dadd(139.676, 42.408, 12.876, 0.784)
pt3dadd(139.735, 42.303, 12.876, 0.784)
pt3dadd(139.793, 42.198, 12.876, 0.786)
pt3dadd(139.852, 42.093, 12.876, 0.788)
pt3dadd(139.906, 41.986, 12.875, 0.81)
pt3dadd(139.96, 41.879, 12.875, 0.832)
pt3dadd(140.014, 41.772, 12.875, 0.852)
pt3dadd(140.068, 41.664, 12.875, 0.874)
pt3dadd(140.122, 41.557, 12.874, 0.894)
pt3dadd(140.176, 41.45, 12.874, 0.914)
pt3dadd(140.231, 41.343, 12.874, 0.936)
pt3dadd(140.285, 41.236, 12.874, 0.956)
pt3dadd(140.339, 41.129, 12.874, 0.978)
pt3dadd(140.393, 41.022, 12.874, 0.998)
pt3dadd(140.443, 40.913, 12.873, 1.002)
pt3dadd(140.494, 40.804, 12.873, 1.008)
pt3dadd(140.544, 40.695, 12.872, 1.014)
pt3dadd(140.594, 40.586, 12.872, 1.018)
pt3dadd(140.645, 40.477, 12.872, 1.024)
pt3dadd(140.695, 40.368, 12.871, 1.03)
pt3dadd(140.746, 40.26, 12.871, 1.036)
pt3dadd(140.796, 40.151, 12.87, 1.04)
pt3dadd(140.846, 40.042, 12.87, 1.046)
pt3dadd(140.897, 39.933, 12.87, 1.048)
pt3dadd(140.953, 39.827, 12.869, 1.034)
pt3dadd(141.008, 39.72, 12.868, 1.02)
pt3dadd(141.064, 39.614, 12.867, 1.004)
pt3dadd(141.119, 39.507, 12.866, 0.99)
pt3dadd(141.174, 39.401, 12.866, 0.974)
pt3dadd(141.229, 39.294, 12.865, 0.96)
pt3dadd(141.284, 39.188, 12.864, 0.946)
pt3dadd(141.34, 39.081, 12.863, 0.93)
pt3dadd(141.396, 38.975, 12.863, 0.916)
pt3dadd(141.449, 38.868, 12.862, 0.904)
pt3dadd(141.494, 38.757, 12.86, 0.904)
pt3dadd(141.539, 38.645, 12.858, 0.904)
pt3dadd(141.583, 38.534, 12.857, 0.904)
pt3dadd(141.629, 38.423, 12.855, 0.904)
pt3dadd(141.673, 38.311, 12.853, 0.904)
pt3dadd(141.718, 38.2, 12.852, 0.904)
pt3dadd(141.763, 38.089, 12.85, 0.904)
pt3dadd(141.808, 37.977, 12.848, 0.904)
pt3dadd(141.852, 37.866, 12.847, 0.904)
pt3dadd(141.899, 37.755, 12.845, 0.904)
pt3dadd(141.949, 37.647, 12.841, 0.908)
pt3dadd(142, 37.538, 12.838, 0.912)
pt3dadd(142.051, 37.429, 12.835, 0.916)
pt3dadd(142.102, 37.321, 12.831, 0.92)
pt3dadd(142.153, 37.212, 12.828, 0.924)
pt3dadd(142.204, 37.104, 12.824, 0.928)
pt3dadd(142.254, 36.995, 12.821, 0.932)
pt3dadd(142.306, 36.886, 12.818, 0.936)
pt3dadd(142.356, 36.778, 12.814, 0.94)
pt3dadd(142.402, 36.667, 12.81, 0.946)
pt3dadd(142.429, 36.551, 12.802, 0.956)
pt3dadd(142.456, 36.434, 12.794, 0.966)
pt3dadd(142.483, 36.318, 12.786, 0.976)
pt3dadd(142.511, 36.201, 12.779, 0.988)
pt3dadd(142.538, 36.085, 12.771, 0.998)
pt3dadd(142.565, 35.968, 12.763, 1.008)
pt3dadd(142.592, 35.852, 12.755, 1.018)
pt3dadd(142.62, 35.736, 12.747, 1.03)
pt3dadd(142.648, 35.619, 12.74, 1.04)
pt3dadd(142.672, 35.502, 12.73, 1.038)
pt3dadd(142.685, 35.385, 12.712, 0.996)
pt3dadd(142.698, 35.267, 12.695, 0.954)
pt3dadd(142.712, 35.15, 12.678, 0.912)
pt3dadd(142.726, 35.033, 12.661, 0.872)
pt3dadd(142.74, 34.915, 12.644, 0.83)
pt3dadd(142.753, 34.798, 12.627, 0.788)
pt3dadd(142.766, 34.68, 12.61, 0.746)
pt3dadd(142.781, 34.563, 12.593, 0.704)
pt3dadd(142.794, 34.445, 12.575, 0.664)
pt3dadd(142.806, 34.33, 12.553, 0.63)
pt3dadd(142.812, 34.218, 12.517, 0.62)
pt3dadd(142.818, 34.106, 12.481, 0.61)
pt3dadd(142.825, 33.994, 12.446, 0.598)
pt3dadd(142.831, 33.882, 12.41, 0.588)
pt3dadd(142.837, 33.77, 12.374, 0.576)
pt3dadd(142.843, 33.658, 12.338, 0.566)
pt3dadd(142.85, 33.546, 12.303, 0.556)
pt3dadd(142.856, 33.434, 12.267, 0.544)
pt3dadd(142.862, 33.322, 12.231, 0.534)
pt3dadd(142.872, 33.209, 12.199, 0.536)
pt3dadd(142.885, 33.093, 12.176, 0.566)
pt3dadd(142.9, 32.978, 12.153, 0.596)
pt3dadd(142.913, 32.862, 12.129, 0.626)
pt3dadd(142.927, 32.746, 12.106, 0.656)
pt3dadd(142.942, 32.63, 12.082, 0.688)
pt3dadd(142.955, 32.514, 12.059, 0.718)
pt3dadd(142.969, 32.399, 12.036, 0.748)
pt3dadd(142.984, 32.283, 12.012, 0.778)
pt3dadd(142.997, 32.167, 11.989, 0.808)
pt3dadd(143.016, 32.051, 11.969, 0.818)
pt3dadd(143.046, 31.936, 11.956, 0.784)
pt3dadd(143.076, 31.821, 11.943, 0.748)
pt3dadd(143.105, 31.705, 11.931, 0.714)
pt3dadd(143.135, 31.59, 11.918, 0.68)
pt3dadd(143.165, 31.475, 11.905, 0.646)
pt3dadd(143.195, 31.36, 11.893, 0.612)
pt3dadd(143.224, 31.244, 11.88, 0.578)
pt3dadd(143.254, 31.129, 11.867, 0.544)
pt3dadd(143.284, 31.014, 11.854, 0.508)
pt3dadd(143.324, 30.903, 11.844, 0.496)
pt3dadd(143.383, 30.798, 11.837, 0.514)
pt3dadd(143.442, 30.694, 11.83, 0.534)
pt3dadd(143.5, 30.59, 11.823, 0.552)
pt3dadd(143.558, 30.485, 11.816, 0.572)
pt3dadd(143.617, 30.381, 11.809, 0.59)
pt3dadd(143.676, 30.276, 11.802, 0.61)
pt3dadd(143.734, 30.172, 11.795, 0.628)
pt3dadd(143.792, 30.067, 11.788, 0.648)
pt3dadd(143.851, 29.963, 11.781, 0.666)
pt3dadd(143.914, 29.861, 11.773, 0.678)
pt3dadd(143.983, 29.765, 11.762, 0.678)
pt3dadd(144.053, 29.668, 11.751, 0.678)
pt3dadd(144.124, 29.571, 11.741, 0.678)
pt3dadd(144.193, 29.474, 11.73, 0.678)
pt3dadd(144.263, 29.377, 11.72, 0.678)
pt3dadd(144.332, 29.28, 11.709, 0.678)
pt3dadd(144.402, 29.184, 11.699, 0.678)
pt3dadd(144.472, 29.087, 11.688, 0.678)
pt3dadd(144.541, 28.99, 11.678, 0.678)
pt3dadd(144.604, 28.892, 11.658, 0.664)
pt3dadd(144.655, 28.791, 11.625, 0.628)
pt3dadd(144.707, 28.69, 11.591, 0.594)
}
}
proc shape3d_138() {
dend_7[23] { pt3dadd(144.757, 28.589, 11.558, 0.558)
pt3dadd(144.809, 28.488, 11.524, 0.524)
pt3dadd(144.86, 28.387, 11.491, 0.488)
pt3dadd(144.911, 28.286, 11.458, 0.452)
pt3dadd(144.962, 28.185, 11.425, 0.418)
pt3dadd(145.014, 28.085, 11.391, 0.382)
pt3dadd(145.066, 27.984, 11.358, 0.348)
pt3dadd(145.117, 27.882, 11.326, 0.336)
pt3dadd(145.169, 27.78, 11.297, 0.356)
pt3dadd(145.222, 27.678, 11.267, 0.376)
pt3dadd(145.274, 27.576, 11.238, 0.396)
pt3dadd(145.327, 27.474, 11.208, 0.414)
pt3dadd(145.379, 27.373, 11.179, 0.434)
pt3dadd(145.432, 27.271, 11.15, 0.454)
pt3dadd(145.484, 27.169, 11.12, 0.474)
pt3dadd(145.537, 27.067, 11.091, 0.494)
pt3dadd(145.59, 26.965, 11.061, 0.512)
pt3dadd(145.637, 26.859, 11.035, 0.53)
pt3dadd(145.676, 26.75, 11.011, 0.546)
pt3dadd(145.717, 26.641, 10.987, 0.562)
pt3dadd(145.758, 26.531, 10.963, 0.578)
pt3dadd(145.798, 26.422, 10.939, 0.592)
pt3dadd(145.838, 26.313, 10.915, 0.608)
pt3dadd(145.879, 26.203, 10.892, 0.624)
pt3dadd(145.919, 26.094, 10.868, 0.64)
pt3dadd(145.96, 25.985, 10.844, 0.654)
pt3dadd(146, 25.875, 10.82, 0.67)
pt3dadd(146.033, 25.765, 10.793, 0.672)
pt3dadd(146.058, 25.654, 10.762, 0.658)
pt3dadd(146.083, 25.542, 10.732, 0.646)
pt3dadd(146.108, 25.431, 10.701, 0.634)
pt3dadd(146.134, 25.32, 10.67, 0.62)
pt3dadd(146.159, 25.208, 10.639, 0.608)
pt3dadd(146.184, 25.097, 10.609, 0.594)
pt3dadd(146.209, 24.985, 10.578, 0.582)
pt3dadd(146.234, 24.874, 10.547, 0.57)
pt3dadd(146.26, 24.763, 10.516, 0.556)
pt3dadd(146.28, 24.65, 10.486, 0.558)
pt3dadd(146.298, 24.537, 10.456, 0.574)
pt3dadd(146.316, 24.424, 10.426, 0.588)
pt3dadd(146.334, 24.311, 10.396, 0.602)
pt3dadd(146.352, 24.198, 10.365, 0.618)
pt3dadd(146.369, 24.085, 10.335, 0.632)
pt3dadd(146.387, 23.972, 10.305, 0.646)
pt3dadd(146.405, 23.859, 10.275, 0.662)
pt3dadd(146.423, 23.746, 10.245, 0.676)
pt3dadd(146.441, 23.633, 10.214, 0.69)
pt3dadd(146.467, 23.52, 10.191, 0.702)
pt3dadd(146.5, 23.407, 10.174, 0.71)
pt3dadd(146.533, 23.293, 10.156, 0.72)
pt3dadd(146.567, 23.18, 10.139, 0.73)
pt3dadd(146.599, 23.066, 10.121, 0.738)
pt3dadd(146.633, 22.953, 10.104, 0.748)
pt3dadd(146.665, 22.839, 10.086, 0.758)
pt3dadd(146.699, 22.726, 10.069, 0.766)
pt3dadd(146.731, 22.613, 10.051, 0.776)
pt3dadd(146.765, 22.499, 10.033, 0.786)
pt3dadd(146.804, 22.387, 10.023, 0.772)
pt3dadd(146.846, 22.275, 10.016, 0.75)
pt3dadd(146.888, 22.163, 10.009, 0.728)
pt3dadd(146.932, 22.051, 10.002, 0.706)
pt3dadd(146.974, 21.939, 9.994, 0.686)
pt3dadd(147.016, 21.827, 9.987, 0.664)
pt3dadd(147.059, 21.715, 9.98, 0.642)
pt3dadd(147.101, 21.603, 9.973, 0.62)
pt3dadd(147.144, 21.492, 9.965, 0.598)
pt3dadd(147.186, 21.38, 9.958, 0.576)
pt3dadd(147.222, 21.265, 9.953, 0.576)
pt3dadd(147.254, 21.15, 9.948, 0.586)
pt3dadd(147.288, 21.035, 9.944, 0.596)
pt3dadd(147.322, 20.92, 9.939, 0.606)
pt3dadd(147.354, 20.805, 9.934, 0.616)
pt3dadd(147.388, 20.689, 9.93, 0.626)
pt3dadd(147.421, 20.574, 9.925, 0.636)
pt3dadd(147.454, 20.459, 9.92, 0.646)
pt3dadd(147.487, 20.344, 9.916, 0.656)
pt3dadd(147.52, 20.229, 9.911, 0.666)
pt3dadd(147.557, 20.115, 9.903, 0.686)
pt3dadd(147.595, 20.001, 9.895, 0.71)
pt3dadd(147.634, 19.888, 9.886, 0.734)
pt3dadd(147.672, 19.775, 9.877, 0.756)
pt3dadd(147.709, 19.662, 9.868, 0.78)
pt3dadd(147.748, 19.548, 9.86, 0.804)
pt3dadd(147.786, 19.435, 9.851, 0.828)
pt3dadd(147.824, 19.322, 9.842, 0.852)
pt3dadd(147.863, 19.209, 9.834, 0.874)
pt3dadd(147.9, 19.095, 9.825, 0.898)
pt3dadd(147.942, 18.985, 9.806, 0.884)
pt3dadd(147.985, 18.876, 9.785, 0.856)
pt3dadd(148.03, 18.768, 9.763, 0.828)
pt3dadd(148.073, 18.659, 9.742, 0.802)
pt3dadd(148.116, 18.55, 9.72, 0.774)
pt3dadd(148.159, 18.441, 9.698, 0.746)
pt3dadd(148.202, 18.332, 9.677, 0.72)
pt3dadd(148.246, 18.223, 9.655, 0.692)
pt3dadd(148.289, 18.114, 9.634, 0.664)
pt3dadd(148.332, 18.005, 9.612, 0.638)
pt3dadd(148.367, 17.896, 9.582, 0.598)
pt3dadd(148.402, 17.788, 9.551, 0.558)
pt3dadd(148.435, 17.679, 9.519, 0.518)
pt3dadd(148.47, 17.57, 9.488, 0.476)
pt3dadd(148.504, 17.462, 9.457, 0.436)
pt3dadd(148.538, 17.353, 9.425, 0.394)
pt3dadd(148.572, 17.244, 9.394, 0.354)
pt3dadd(148.606, 17.136, 9.363, 0.312)
pt3dadd(148.64, 17.027, 9.331, 0.272)
pt3dadd(148.674, 16.918, 9.3, 0.232)
pt3dadd(148.712, 16.807, 9.279, 0.226)
pt3dadd(148.752, 16.696, 9.26, 0.226)
pt3dadd(148.79, 16.585, 9.241, 0.226)
pt3dadd(148.829, 16.474, 9.222, 0.226)
pt3dadd(148.868, 16.362, 9.203, 0.226)
pt3dadd(148.907, 16.251, 9.184, 0.226)
pt3dadd(148.945, 16.14, 9.165, 0.226)
pt3dadd(148.984, 16.029, 9.146, 0.226)
pt3dadd(149.023, 15.917, 9.127, 0.226)
pt3dadd(149.062, 15.806, 9.108, 0.226)
pt3dadd(149.113, 15.698, 9.1, 0.226)
pt3dadd(149.166, 15.591, 9.093, 0.226)
pt3dadd(149.219, 15.483, 9.085, 0.226)
pt3dadd(149.272, 15.376, 9.078, 0.226)
pt3dadd(149.324, 15.268, 9.071, 0.226)
pt3dadd(149.377, 15.161, 9.063, 0.226)
pt3dadd(149.43, 15.054, 9.056, 0.226)
pt3dadd(149.482, 14.946, 9.049, 0.226)
pt3dadd(149.534, 14.839, 9.041, 0.226)
pt3dadd(149.587, 14.731, 9.034, 0.226)
pt3dadd(149.641, 14.624, 9.034, 0.226)
pt3dadd(149.696, 14.517, 9.034, 0.226)
pt3dadd(149.75, 14.41, 9.034, 0.226)
pt3dadd(149.804, 14.303, 9.034, 0.226)
pt3dadd(149.86, 14.196, 9.034, 0.226)
pt3dadd(149.914, 14.089, 9.034, 0.226)
pt3dadd(149.968, 13.982, 9.034, 0.226)
pt3dadd(150.022, 13.875, 9.034, 0.226)
pt3dadd(150.077, 13.768, 9.034, 0.226)
pt3dadd(150.131, 13.661, 9.034, 0.226)
pt3dadd(150.199, 13.563, 9.034, 0.226)
pt3dadd(150.269, 13.464, 9.034, 0.226)
pt3dadd(150.337, 13.366, 9.034, 0.226)
pt3dadd(150.406, 13.268, 9.034, 0.226)
pt3dadd(150.474, 13.17, 9.034, 0.226)
pt3dadd(150.544, 13.071, 9.034, 0.226)
pt3dadd(150.612, 12.973, 9.034, 0.226)
pt3dadd(150.68, 12.874, 9.034, 0.226)
pt3dadd(150.75, 12.776, 9.034, 0.226)
pt3dadd(150.818, 12.678, 9.034, 0.226)
}
dend_7[24] {pt3dclear()
pt3dadd(127.639, 60.765, 15.755, 1.446)
pt3dadd(127.642, 60.764, 15.758, 1.434)
pt3dadd(127.691, 60.742, 15.847, 1.13)
pt3dadd(127.74, 60.719, 15.936, 0.826)
pt3dadd(127.772, 60.648, 15.989, 0.678)
pt3dadd(127.789, 60.531, 16.006, 0.678)
pt3dadd(127.805, 60.414, 16.024, 0.678)
pt3dadd(127.822, 60.297, 16.041, 0.678)
pt3dadd(127.838, 60.18, 16.059, 0.678)
pt3dadd(127.854, 60.063, 16.076, 0.678)
pt3dadd(127.871, 59.946, 16.094, 0.678)
pt3dadd(127.886, 59.829, 16.111, 0.678)
pt3dadd(127.903, 59.712, 16.128, 0.678)
pt3dadd(127.92, 59.595, 16.146, 0.678)
pt3dadd(127.936, 59.478, 16.163, 0.678)
pt3dadd(127.952, 59.361, 16.181, 0.678)
pt3dadd(127.969, 59.244, 16.198, 0.678)
pt3dadd(127.985, 59.127, 16.216, 0.678)
pt3dadd(128.002, 59.01, 16.233, 0.678)
pt3dadd(128.018, 58.893, 16.251, 0.678)
pt3dadd(128.034, 58.776, 16.268, 0.678)
pt3dadd(128.051, 58.659, 16.286, 0.678)
pt3dadd(128.066, 58.542, 16.303, 0.678)
pt3dadd(128.108, 58.433, 16.325, 0.678)
pt3dadd(128.153, 58.325, 16.347, 0.678)
pt3dadd(128.198, 58.216, 16.369, 0.678)
pt3dadd(128.243, 58.108, 16.391, 0.678)
pt3dadd(128.288, 58, 16.413, 0.678)
pt3dadd(128.333, 57.892, 16.435, 0.678)
pt3dadd(128.378, 57.784, 16.457, 0.678)
pt3dadd(128.423, 57.676, 16.479, 0.678)
pt3dadd(128.467, 57.568, 16.501, 0.678)
pt3dadd(128.513, 57.46, 16.524, 0.678)
pt3dadd(128.557, 57.352, 16.546, 0.678)
pt3dadd(128.603, 57.244, 16.568, 0.678)
pt3dadd(128.647, 57.136, 16.59, 0.678)
pt3dadd(128.692, 57.027, 16.612, 0.678)
pt3dadd(128.704, 56.912, 16.611, 0.678)
pt3dadd(128.698, 56.794, 16.597, 0.678)
pt3dadd(128.692, 56.675, 16.584, 0.678)
pt3dadd(128.684, 56.556, 16.57, 0.678)
pt3dadd(128.678, 56.437, 16.557, 0.678)
pt3dadd(128.672, 56.319, 16.543, 0.678)
pt3dadd(128.666, 56.2, 16.53, 0.678)
pt3dadd(128.66, 56.081, 16.516, 0.678)
pt3dadd(128.654, 55.962, 16.503, 0.678)
pt3dadd(128.648, 55.844, 16.49, 0.678)
pt3dadd(128.642, 55.725, 16.476, 0.678)
pt3dadd(128.636, 55.606, 16.463, 0.678)
pt3dadd(128.63, 55.487, 16.449, 0.678)
pt3dadd(128.624, 55.369, 16.436, 0.678)
pt3dadd(128.618, 55.25, 16.422, 0.678)
pt3dadd(128.612, 55.131, 16.409, 0.678)
}
}
proc shape3d_139() {
dend_7[24] { pt3dadd(128.606, 55.012, 16.395, 0.678)
pt3dadd(128.599, 54.894, 16.382, 0.678)
pt3dadd(128.593, 54.775, 16.368, 0.678)
pt3dadd(128.587, 54.656, 16.355, 0.678)
pt3dadd(128.581, 54.537, 16.342, 0.678)
pt3dadd(128.575, 54.419, 16.328, 0.678)
pt3dadd(128.569, 54.3, 16.315, 0.678)
pt3dadd(128.563, 54.181, 16.301, 0.678)
pt3dadd(128.557, 54.062, 16.288, 0.678)
pt3dadd(128.551, 53.943, 16.274, 0.678)
pt3dadd(128.545, 53.825, 16.261, 0.678)
pt3dadd(128.539, 53.706, 16.247, 0.678)
pt3dadd(128.533, 53.587, 16.234, 0.678)
pt3dadd(128.527, 53.469, 16.221, 0.678)
pt3dadd(128.521, 53.35, 16.207, 0.678)
pt3dadd(128.514, 53.231, 16.194, 0.678)
pt3dadd(128.508, 53.112, 16.18, 0.678)
pt3dadd(128.507, 52.994, 16.169, 0.678)
pt3dadd(128.532, 52.877, 16.171, 0.678)
pt3dadd(128.558, 52.759, 16.174, 0.678)
pt3dadd(128.585, 52.642, 16.176, 0.678)
pt3dadd(128.61, 52.525, 16.179, 0.678)
pt3dadd(128.636, 52.408, 16.181, 0.678)
pt3dadd(128.662, 52.291, 16.184, 0.678)
pt3dadd(128.688, 52.174, 16.186, 0.678)
pt3dadd(128.713, 52.056, 16.189, 0.678)
pt3dadd(128.74, 51.939, 16.191, 0.678)
pt3dadd(128.765, 51.822, 16.194, 0.678)
pt3dadd(128.791, 51.705, 16.196, 0.678)
pt3dadd(128.816, 51.588, 16.199, 0.678)
pt3dadd(128.843, 51.471, 16.201, 0.678)
pt3dadd(128.868, 51.354, 16.204, 0.678)
pt3dadd(128.894, 51.237, 16.206, 0.678)
pt3dadd(128.92, 51.119, 16.209, 0.678)
pt3dadd(128.946, 51.002, 16.211, 0.678)
pt3dadd(128.971, 50.885, 16.214, 0.678)
pt3dadd(128.998, 50.768, 16.216, 0.678)
pt3dadd(128.999, 50.655, 16.201, 0.764)
pt3dadd(128.986, 50.543, 16.187, 0.868)
pt3dadd(128.995, 50.425, 16.204, 0.848)
pt3dadd(129.004, 50.307, 16.221, 0.828)
pt3dadd(129.013, 50.19, 16.238, 0.808)
pt3dadd(129.023, 50.072, 16.256, 0.788)
pt3dadd(129.031, 49.954, 16.273, 0.768)
pt3dadd(129.041, 49.836, 16.29, 0.748)
pt3dadd(129.049, 49.718, 16.307, 0.728)
pt3dadd(129.059, 49.6, 16.324, 0.706)
pt3dadd(129.068, 49.482, 16.342, 0.686)
pt3dadd(129.082, 49.367, 16.334, 0.674)
pt3dadd(129.1, 49.252, 16.307, 0.67)
pt3dadd(129.116, 49.138, 16.28, 0.664)
pt3dadd(129.133, 49.024, 16.253, 0.658)
pt3dadd(129.151, 48.909, 16.226, 0.654)
pt3dadd(129.168, 48.795, 16.2, 0.648)
pt3dadd(129.185, 48.681, 16.173, 0.642)
pt3dadd(129.203, 48.567, 16.146, 0.636)
pt3dadd(129.22, 48.452, 16.119, 0.632)
pt3dadd(129.236, 48.338, 16.092, 0.626)
pt3dadd(129.27, 48.227, 16.069, 0.6)
pt3dadd(129.313, 48.118, 16.048, 0.562)
pt3dadd(129.356, 48.009, 16.027, 0.524)
pt3dadd(129.398, 47.899, 16.006, 0.486)
pt3dadd(129.442, 47.79, 15.985, 0.448)
pt3dadd(129.485, 47.681, 15.964, 0.41)
pt3dadd(129.528, 47.572, 15.943, 0.372)
pt3dadd(129.571, 47.463, 15.922, 0.334)
pt3dadd(129.614, 47.354, 15.901, 0.294)
pt3dadd(129.656, 47.244, 15.88, 0.256)
pt3dadd(129.691, 47.131, 15.866, 0.254)
pt3dadd(129.719, 47.015, 15.858, 0.272)
pt3dadd(129.746, 46.898, 15.85, 0.292)
pt3dadd(129.775, 46.782, 15.841, 0.31)
pt3dadd(129.803, 46.666, 15.833, 0.33)
pt3dadd(129.832, 46.55, 15.824, 0.348)
pt3dadd(129.859, 46.434, 15.816, 0.368)
pt3dadd(129.888, 46.317, 15.808, 0.386)
pt3dadd(129.916, 46.201, 15.799, 0.404)
pt3dadd(129.943, 46.085, 15.791, 0.424)
pt3dadd(129.962, 45.967, 15.79, 0.418)
pt3dadd(129.974, 45.847, 15.794, 0.398)
pt3dadd(129.988, 45.728, 15.797, 0.376)
pt3dadd(130, 45.609, 15.801, 0.356)
pt3dadd(130.013, 45.49, 15.804, 0.336)
pt3dadd(130.025, 45.37, 15.808, 0.316)
pt3dadd(130.038, 45.251, 15.812, 0.294)
pt3dadd(130.05, 45.132, 15.815, 0.274)
pt3dadd(130.063, 45.013, 15.819, 0.254)
pt3dadd(130.075, 44.893, 15.823, 0.234)
pt3dadd(130.081, 44.774, 15.83, 0.238)
pt3dadd(130.085, 44.655, 15.838, 0.258)
pt3dadd(130.087, 44.535, 15.847, 0.278)
pt3dadd(130.09, 44.415, 15.856, 0.298)
pt3dadd(130.092, 44.296, 15.865, 0.318)
pt3dadd(130.094, 44.177, 15.874, 0.338)
pt3dadd(130.098, 44.057, 15.883, 0.358)
pt3dadd(130.1, 43.938, 15.892, 0.378)
pt3dadd(130.103, 43.818, 15.901, 0.398)
pt3dadd(130.105, 43.699, 15.91, 0.418)
pt3dadd(130.111, 43.583, 15.933, 0.448)
pt3dadd(130.12, 43.469, 15.963, 0.484)
pt3dadd(130.127, 43.355, 15.994, 0.52)
pt3dadd(130.135, 43.241, 16.024, 0.556)
pt3dadd(130.144, 43.127, 16.055, 0.592)
pt3dadd(130.151, 43.013, 16.085, 0.628)
pt3dadd(130.159, 42.899, 16.116, 0.664)
pt3dadd(130.166, 42.785, 16.147, 0.7)
pt3dadd(130.175, 42.671, 16.177, 0.736)
pt3dadd(130.182, 42.557, 16.208, 0.772)
pt3dadd(130.199, 42.447, 16.245, 0.73)
pt3dadd(130.217, 42.337, 16.284, 0.678)
pt3dadd(130.235, 42.228, 16.322, 0.628)
pt3dadd(130.253, 42.119, 16.361, 0.576)
pt3dadd(130.271, 42.009, 16.399, 0.526)
pt3dadd(130.288, 41.9, 16.437, 0.474)
pt3dadd(130.306, 41.791, 16.476, 0.424)
pt3dadd(130.324, 41.681, 16.514, 0.372)
pt3dadd(130.342, 41.572, 16.553, 0.322)
pt3dadd(130.36, 41.463, 16.591, 0.27)
pt3dadd(130.409, 41.355, 16.604, 0.264)
pt3dadd(130.458, 41.247, 16.617, 0.26)
pt3dadd(130.508, 41.139, 16.629, 0.256)
pt3dadd(130.559, 41.03, 16.642, 0.252)
pt3dadd(130.608, 40.922, 16.655, 0.248)
pt3dadd(130.658, 40.814, 16.667, 0.244)
pt3dadd(130.709, 40.706, 16.68, 0.238)
pt3dadd(130.758, 40.598, 16.693, 0.234)
pt3dadd(130.808, 40.49, 16.705, 0.23)
pt3dadd(130.859, 40.382, 16.718, 0.226)
pt3dadd(130.896, 40.268, 16.718, 0.226)
pt3dadd(130.933, 40.154, 16.719, 0.226)
pt3dadd(130.972, 40.04, 16.719, 0.226)
pt3dadd(131.009, 39.926, 16.719, 0.226)
pt3dadd(131.046, 39.812, 16.72, 0.226)
pt3dadd(131.083, 39.698, 16.72, 0.226)
pt3dadd(131.122, 39.584, 16.72, 0.226)
pt3dadd(131.159, 39.47, 16.72, 0.226)
pt3dadd(131.196, 39.357, 16.721, 0.226)
pt3dadd(131.233, 39.243, 16.721, 0.226)
pt3dadd(131.262, 39.126, 16.721, 0.248)
pt3dadd(131.291, 39.009, 16.721, 0.27)
pt3dadd(131.32, 38.893, 16.721, 0.292)
pt3dadd(131.348, 38.776, 16.721, 0.314)
pt3dadd(131.377, 38.66, 16.721, 0.336)
pt3dadd(131.406, 38.543, 16.721, 0.358)
pt3dadd(131.435, 38.427, 16.721, 0.38)
pt3dadd(131.464, 38.31, 16.721, 0.402)
pt3dadd(131.492, 38.194, 16.721, 0.424)
pt3dadd(131.521, 38.077, 16.721, 0.444)
pt3dadd(131.568, 37.967, 16.721, 0.424)
pt3dadd(131.616, 37.857, 16.721, 0.404)
pt3dadd(131.663, 37.747, 16.721, 0.384)
pt3dadd(131.711, 37.636, 16.721, 0.364)
pt3dadd(131.758, 37.526, 16.721, 0.344)
pt3dadd(131.804, 37.416, 16.721, 0.324)
pt3dadd(131.852, 37.305, 16.721, 0.302)
pt3dadd(131.899, 37.195, 16.721, 0.282)
pt3dadd(131.947, 37.085, 16.721, 0.262)
pt3dadd(131.994, 36.974, 16.721, 0.242)
pt3dadd(132.032, 36.861, 16.721, 0.262)
pt3dadd(132.07, 36.747, 16.721, 0.28)
pt3dadd(132.108, 36.633, 16.721, 0.3)
pt3dadd(132.146, 36.519, 16.721, 0.32)
pt3dadd(132.185, 36.406, 16.721, 0.338)
pt3dadd(132.223, 36.292, 16.721, 0.358)
pt3dadd(132.26, 36.178, 16.721, 0.376)
pt3dadd(132.299, 36.064, 16.721, 0.396)
pt3dadd(132.337, 35.951, 16.721, 0.414)
pt3dadd(132.376, 35.837, 16.721, 0.434)
pt3dadd(132.406, 35.721, 16.721, 0.456)
pt3dadd(132.436, 35.604, 16.721, 0.478)
pt3dadd(132.464, 35.488, 16.721, 0.502)
pt3dadd(132.494, 35.372, 16.721, 0.524)
pt3dadd(132.524, 35.256, 16.721, 0.548)
pt3dadd(132.554, 35.139, 16.721, 0.57)
pt3dadd(132.584, 35.023, 16.721, 0.592)
pt3dadd(132.614, 34.907, 16.721, 0.616)
pt3dadd(132.644, 34.791, 16.721, 0.638)
pt3dadd(132.674, 34.675, 16.721, 0.66)
pt3dadd(132.722, 34.565, 16.721, 0.622)
pt3dadd(132.77, 34.455, 16.721, 0.584)
pt3dadd(132.818, 34.344, 16.721, 0.546)
pt3dadd(132.866, 34.234, 16.721, 0.508)
pt3dadd(132.913, 34.124, 16.721, 0.47)
pt3dadd(132.961, 34.014, 16.721, 0.432)
pt3dadd(133.009, 33.904, 16.721, 0.394)
pt3dadd(133.057, 33.794, 16.721, 0.356)
pt3dadd(133.105, 33.684, 16.721, 0.318)
pt3dadd(133.152, 33.574, 16.721, 0.282)
pt3dadd(133.194, 33.461, 16.721, 0.276)
pt3dadd(133.236, 33.349, 16.721, 0.27)
pt3dadd(133.278, 33.236, 16.721, 0.264)
pt3dadd(133.32, 33.124, 16.721, 0.26)
pt3dadd(133.361, 33.011, 16.721, 0.254)
pt3dadd(133.403, 32.899, 16.721, 0.248)
pt3dadd(133.445, 32.787, 16.721, 0.242)
pt3dadd(133.487, 32.674, 16.721, 0.236)
pt3dadd(133.529, 32.562, 16.721, 0.232)
pt3dadd(133.57, 32.449, 16.721, 0.226)
pt3dadd(133.608, 32.335, 16.721, 0.226)
pt3dadd(133.645, 32.221, 16.721, 0.226)
}
}
proc shape3d_140() {
dend_7[24] { pt3dadd(133.682, 32.107, 16.721, 0.226)
pt3dadd(133.721, 31.993, 16.721, 0.226)
pt3dadd(133.758, 31.879, 16.721, 0.226)
pt3dadd(133.795, 31.765, 16.721, 0.226)
pt3dadd(133.834, 31.651, 16.721, 0.226)
pt3dadd(133.871, 31.537, 16.721, 0.226)
pt3dadd(133.908, 31.423, 16.721, 0.226)
pt3dadd(133.946, 31.31, 16.721, 0.226)
pt3dadd(134.004, 31.204, 16.721, 0.244)
pt3dadd(134.062, 31.099, 16.721, 0.262)
pt3dadd(134.119, 30.994, 16.72, 0.278)
pt3dadd(134.177, 30.888, 16.72, 0.296)
pt3dadd(134.233, 30.783, 16.72, 0.314)
pt3dadd(134.291, 30.677, 16.72, 0.33)
pt3dadd(134.348, 30.572, 16.72, 0.348)
pt3dadd(134.406, 30.467, 16.72, 0.366)
pt3dadd(134.464, 30.361, 16.72, 0.382)
pt3dadd(134.522, 30.257, 16.72, 0.4)
pt3dadd(134.592, 30.159, 16.72, 0.404)
pt3dadd(134.662, 30.061, 16.72, 0.41)
pt3dadd(134.731, 29.964, 16.72, 0.416)
pt3dadd(134.801, 29.866, 16.72, 0.42)
pt3dadd(134.87, 29.769, 16.72, 0.426)
pt3dadd(134.941, 29.671, 16.72, 0.432)
pt3dadd(135.011, 29.573, 16.72, 0.436)
pt3dadd(135.08, 29.476, 16.719, 0.442)
pt3dadd(135.15, 29.378, 16.719, 0.448)
pt3dadd(135.221, 29.281, 16.719, 0.452)
pt3dadd(135.294, 29.186, 16.719, 0.452)
pt3dadd(135.368, 29.092, 16.719, 0.452)
pt3dadd(135.443, 28.998, 16.719, 0.452)
pt3dadd(135.516, 28.903, 16.719, 0.452)
pt3dadd(135.59, 28.809, 16.718, 0.452)
pt3dadd(135.665, 28.714, 16.718, 0.452)
pt3dadd(135.738, 28.62, 16.718, 0.452)
pt3dadd(135.812, 28.525, 16.718, 0.452)
pt3dadd(135.887, 28.431, 16.718, 0.452)
pt3dadd(135.959, 28.335, 16.717, 0.452)
pt3dadd(136.016, 28.23, 16.717, 0.44)
pt3dadd(136.073, 28.124, 16.716, 0.43)
pt3dadd(136.13, 28.019, 16.716, 0.42)
pt3dadd(136.188, 27.913, 16.716, 0.41)
pt3dadd(136.244, 27.808, 16.715, 0.4)
pt3dadd(136.302, 27.702, 16.715, 0.39)
pt3dadd(136.36, 27.597, 16.714, 0.38)
pt3dadd(136.416, 27.491, 16.714, 0.37)
pt3dadd(136.474, 27.386, 16.714, 0.36)
pt3dadd(136.526, 27.278, 16.713, 0.348)
pt3dadd(136.571, 27.167, 16.712, 0.336)
pt3dadd(136.615, 27.055, 16.711, 0.322)
pt3dadd(136.66, 26.944, 16.71, 0.31)
pt3dadd(136.704, 26.832, 16.708, 0.298)
pt3dadd(136.748, 26.721, 16.707, 0.284)
pt3dadd(136.794, 26.61, 16.706, 0.272)
pt3dadd(136.838, 26.498, 16.705, 0.258)
pt3dadd(136.883, 26.387, 16.704, 0.246)
pt3dadd(136.927, 26.275, 16.703, 0.232)
pt3dadd(136.993, 26.179, 16.701, 0.234)
pt3dadd(137.082, 26.098, 16.699, 0.252)
pt3dadd(137.171, 26.018, 16.696, 0.268)
pt3dadd(137.26, 25.937, 16.693, 0.284)
pt3dadd(137.348, 25.857, 16.691, 0.302)
pt3dadd(137.437, 25.776, 16.688, 0.318)
pt3dadd(137.527, 25.696, 16.686, 0.336)
pt3dadd(137.616, 25.615, 16.683, 0.352)
pt3dadd(137.705, 25.534, 16.68, 0.37)
pt3dadd(137.794, 25.454, 16.678, 0.386)
pt3dadd(137.899, 25.402, 16.672, 0.41)
pt3dadd(138.012, 25.361, 16.666, 0.436)
pt3dadd(138.124, 25.319, 16.66, 0.46)
pt3dadd(138.236, 25.277, 16.653, 0.486)
pt3dadd(138.348, 25.235, 16.647, 0.512)
pt3dadd(138.461, 25.193, 16.64, 0.536)
pt3dadd(138.572, 25.151, 16.634, 0.562)
pt3dadd(138.685, 25.109, 16.628, 0.588)
pt3dadd(138.797, 25.067, 16.621, 0.614)
pt3dadd(138.91, 25.025, 16.615, 0.638)
pt3dadd(139.014, 24.969, 16.605, 0.646)
pt3dadd(139.117, 24.909, 16.594, 0.65)
pt3dadd(139.22, 24.849, 16.583, 0.654)
pt3dadd(139.324, 24.789, 16.572, 0.656)
pt3dadd(139.427, 24.729, 16.561, 0.66)
pt3dadd(139.53, 24.669, 16.55, 0.664)
pt3dadd(139.633, 24.609, 16.54, 0.668)
pt3dadd(139.736, 24.549, 16.528, 0.67)
pt3dadd(139.84, 24.49, 16.518, 0.674)
pt3dadd(139.943, 24.43, 16.507, 0.678)
pt3dadd(140.022, 24.355, 16.468, 0.694)
pt3dadd(140.098, 24.278, 16.425, 0.714)
pt3dadd(140.174, 24.201, 16.382, 0.732)
pt3dadd(140.25, 24.123, 16.338, 0.75)
pt3dadd(140.326, 24.046, 16.295, 0.77)
pt3dadd(140.401, 23.969, 16.252, 0.788)
pt3dadd(140.477, 23.891, 16.209, 0.808)
pt3dadd(140.552, 23.814, 16.165, 0.826)
pt3dadd(140.628, 23.737, 16.122, 0.846)
pt3dadd(140.704, 23.66, 16.079, 0.864)
pt3dadd(140.764, 23.559, 16.058, 0.832)
pt3dadd(140.822, 23.457, 16.037, 0.8)
pt3dadd(140.882, 23.356, 16.016, 0.768)
pt3dadd(140.941, 23.255, 15.995, 0.736)
pt3dadd(141.001, 23.154, 15.974, 0.704)
pt3dadd(141.06, 23.052, 15.954, 0.67)
pt3dadd(141.12, 22.951, 15.933, 0.638)
pt3dadd(141.179, 22.85, 15.912, 0.606)
pt3dadd(141.239, 22.749, 15.891, 0.574)
pt3dadd(141.295, 22.646, 15.873, 0.542)
pt3dadd(141.324, 22.53, 15.869, 0.51)
pt3dadd(141.353, 22.413, 15.866, 0.478)
pt3dadd(141.382, 22.297, 15.863, 0.446)
pt3dadd(141.412, 22.18, 15.86, 0.414)
pt3dadd(141.44, 22.064, 15.857, 0.382)
pt3dadd(141.469, 21.948, 15.854, 0.35)
pt3dadd(141.499, 21.831, 15.851, 0.318)
pt3dadd(141.528, 21.715, 15.847, 0.286)
pt3dadd(141.557, 21.599, 15.844, 0.254)
pt3dadd(141.584, 21.482, 15.844, 0.226)
pt3dadd(141.601, 21.365, 15.86, 0.226)
pt3dadd(141.618, 21.248, 15.876, 0.226)
pt3dadd(141.634, 21.13, 15.892, 0.226)
pt3dadd(141.65, 21.013, 15.908, 0.226)
pt3dadd(141.667, 20.896, 15.924, 0.226)
pt3dadd(141.684, 20.778, 15.94, 0.226)
pt3dadd(141.701, 20.661, 15.956, 0.226)
pt3dadd(141.716, 20.544, 15.972, 0.226)
pt3dadd(141.733, 20.427, 15.988, 0.226)
pt3dadd(141.751, 20.309, 16, 0.226)
pt3dadd(141.77, 20.191, 16.002, 0.226)
pt3dadd(141.79, 20.072, 16.003, 0.226)
pt3dadd(141.809, 19.954, 16.005, 0.226)
pt3dadd(141.828, 19.835, 16.006, 0.226)
pt3dadd(141.847, 19.717, 16.008, 0.226)
pt3dadd(141.866, 19.598, 16.009, 0.226)
pt3dadd(141.886, 19.48, 16.011, 0.226)
pt3dadd(141.905, 19.362, 16.012, 0.226)
pt3dadd(141.924, 19.243, 16.014, 0.226)
pt3dadd(141.978, 19.146, 16, 0.226)
pt3dadd(142.063, 19.068, 15.973, 0.226)
pt3dadd(142.148, 18.99, 15.947, 0.226)
pt3dadd(142.234, 18.912, 15.92, 0.226)
pt3dadd(142.32, 18.834, 15.893, 0.226)
pt3dadd(142.405, 18.756, 15.867, 0.226)
pt3dadd(142.49, 18.678, 15.84, 0.226)
pt3dadd(142.576, 18.6, 15.813, 0.226)
pt3dadd(142.661, 18.522, 15.787, 0.226)
pt3dadd(142.746, 18.443, 15.76, 0.226)
}
dend_7[25] {pt3dclear()
pt3dadd(113.606, 89.937, 17.682, 1.13)
pt3dadd(113.688, 89.937, 17.682, 1.08)
pt3dadd(113.808, 89.937, 17.682, 1.006)
pt3dadd(113.928, 89.937, 17.682, 0.932)
pt3dadd(114.048, 89.937, 17.682, 0.858)
pt3dadd(114.168, 89.937, 17.682, 0.784)
pt3dadd(114.288, 89.937, 17.682, 0.71)
pt3dadd(114.408, 89.937, 17.682, 0.636)
pt3dadd(114.528, 89.937, 17.682, 0.562)
pt3dadd(114.648, 89.937, 17.682, 0.488)
pt3dadd(114.768, 89.937, 17.682, 0.414)
pt3dadd(114.888, 89.937, 17.682, 0.34)
pt3dadd(115, 89.974, 17.688, 0.356)
pt3dadd(115.107, 90.026, 17.697, 0.412)
pt3dadd(115.214, 90.079, 17.706, 0.468)
pt3dadd(115.322, 90.131, 17.714, 0.524)
pt3dadd(115.429, 90.184, 17.723, 0.58)
pt3dadd(115.536, 90.236, 17.732, 0.636)
pt3dadd(115.644, 90.289, 17.74, 0.692)
pt3dadd(115.751, 90.341, 17.749, 0.748)
pt3dadd(115.859, 90.394, 17.758, 0.804)
pt3dadd(115.966, 90.446, 17.767, 0.86)
pt3dadd(116.077, 90.489, 17.778, 0.864)
pt3dadd(116.189, 90.53, 17.79, 0.858)
pt3dadd(116.301, 90.57, 17.802, 0.85)
pt3dadd(116.413, 90.611, 17.813, 0.844)
pt3dadd(116.525, 90.652, 17.825, 0.836)
pt3dadd(116.637, 90.693, 17.837, 0.83)
pt3dadd(116.749, 90.734, 17.849, 0.824)
pt3dadd(116.861, 90.774, 17.86, 0.816)
pt3dadd(116.973, 90.815, 17.872, 0.81)
pt3dadd(117.085, 90.856, 17.884, 0.804)
pt3dadd(117.198, 90.873, 17.914, 0.776)
pt3dadd(117.311, 90.887, 17.945, 0.746)
pt3dadd(117.424, 90.902, 17.977, 0.718)
pt3dadd(117.537, 90.916, 18.008, 0.688)
pt3dadd(117.65, 90.931, 18.04, 0.66)
pt3dadd(117.763, 90.945, 18.071, 0.63)
pt3dadd(117.876, 90.96, 18.103, 0.6)
pt3dadd(117.989, 90.975, 18.135, 0.572)
pt3dadd(118.101, 90.989, 18.166, 0.542)
pt3dadd(118.214, 91.004, 18.198, 0.514)
}
dend_7[26] {pt3dclear()
pt3dadd(118.214, 91.004, 18.198, 0.514)
pt3dadd(118.232, 91.003, 18.202, 0.522)
pt3dadd(118.347, 91, 18.23, 0.582)
pt3dadd(118.463, 90.997, 18.259, 0.642)
pt3dadd(118.578, 90.994, 18.287, 0.702)
pt3dadd(118.693, 90.991, 18.315, 0.762)
pt3dadd(118.808, 90.988, 18.343, 0.82)
pt3dadd(118.923, 90.985, 18.371, 0.88)
pt3dadd(119.038, 90.982, 18.4, 0.94)
pt3dadd(119.153, 90.979, 18.428, 1)
pt3dadd(119.268, 90.976, 18.456, 1.06)
pt3dadd(119.384, 90.971, 18.482, 1.108)
}
}
proc shape3d_141() {
dend_7[26] { pt3dadd(119.502, 90.959, 18.497, 1.116)
pt3dadd(119.62, 90.947, 18.513, 1.124)
pt3dadd(119.738, 90.936, 18.528, 1.132)
pt3dadd(119.856, 90.924, 18.544, 1.14)
pt3dadd(119.974, 90.912, 18.559, 1.148)
pt3dadd(120.091, 90.9, 18.575, 1.156)
pt3dadd(120.21, 90.888, 18.59, 1.164)
pt3dadd(120.328, 90.877, 18.606, 1.172)
pt3dadd(120.445, 90.865, 18.621, 1.18)
pt3dadd(120.563, 90.848, 18.635, 1.178)
pt3dadd(120.677, 90.811, 18.639, 1.138)
pt3dadd(120.791, 90.774, 18.644, 1.098)
pt3dadd(120.905, 90.737, 18.649, 1.058)
pt3dadd(121.019, 90.701, 18.653, 1.02)
pt3dadd(121.133, 90.664, 18.658, 0.98)
pt3dadd(121.247, 90.627, 18.663, 0.94)
pt3dadd(121.361, 90.59, 18.667, 0.9)
pt3dadd(121.475, 90.553, 18.672, 0.862)
pt3dadd(121.589, 90.517, 18.677, 0.822)
pt3dadd(121.704, 90.482, 18.681, 0.796)
pt3dadd(121.819, 90.45, 18.686, 0.8)
pt3dadd(121.936, 90.419, 18.69, 0.806)
pt3dadd(122.051, 90.388, 18.694, 0.812)
pt3dadd(122.167, 90.357, 18.699, 0.818)
pt3dadd(122.282, 90.325, 18.703, 0.824)
pt3dadd(122.399, 90.294, 18.707, 0.83)
pt3dadd(122.514, 90.263, 18.712, 0.836)
pt3dadd(122.63, 90.232, 18.716, 0.842)
pt3dadd(122.746, 90.2, 18.72, 0.848)
pt3dadd(122.862, 90.175, 18.727, 0.842)
pt3dadd(122.981, 90.165, 18.738, 0.808)
pt3dadd(123.1, 90.154, 18.748, 0.774)
pt3dadd(123.218, 90.143, 18.759, 0.74)
pt3dadd(123.337, 90.133, 18.77, 0.706)
pt3dadd(123.456, 90.122, 18.781, 0.672)
pt3dadd(123.575, 90.111, 18.792, 0.638)
pt3dadd(123.694, 90.1, 18.803, 0.602)
pt3dadd(123.812, 90.09, 18.813, 0.568)
pt3dadd(123.931, 90.079, 18.824, 0.534)
pt3dadd(124.05, 90.075, 18.839, 0.51)
pt3dadd(124.166, 90.086, 18.862, 0.504)
pt3dadd(124.282, 90.097, 18.885, 0.498)
pt3dadd(124.398, 90.108, 18.908, 0.492)
pt3dadd(124.514, 90.118, 18.931, 0.486)
pt3dadd(124.631, 90.129, 18.954, 0.48)
pt3dadd(124.747, 90.14, 18.977, 0.474)
pt3dadd(124.864, 90.15, 19, 0.468)
pt3dadd(124.98, 90.161, 19.023, 0.462)
pt3dadd(125.096, 90.172, 19.045, 0.456)
pt3dadd(125.212, 90.172, 19.048, 0.446)
pt3dadd(125.323, 90.153, 19.016, 0.428)
pt3dadd(125.435, 90.134, 18.983, 0.41)
pt3dadd(125.546, 90.115, 18.951, 0.392)
pt3dadd(125.658, 90.096, 18.918, 0.374)
pt3dadd(125.771, 90.077, 18.885, 0.358)
pt3dadd(125.882, 90.059, 18.853, 0.34)
pt3dadd(125.994, 90.029, 18.828, 0.34)
pt3dadd(126.106, 89.993, 18.807, 0.352)
pt3dadd(126.217, 89.957, 18.787, 0.362)
pt3dadd(126.33, 89.921, 18.767, 0.374)
pt3dadd(126.442, 89.884, 18.747, 0.386)
pt3dadd(126.553, 89.848, 18.726, 0.396)
pt3dadd(126.665, 89.812, 18.706, 0.408)
pt3dadd(126.776, 89.776, 18.686, 0.418)
pt3dadd(126.888, 89.74, 18.665, 0.43)
pt3dadd(127.001, 89.704, 18.645, 0.442)
pt3dadd(127.108, 89.65, 18.643, 0.48)
pt3dadd(127.213, 89.594, 18.643, 0.522)
pt3dadd(127.32, 89.538, 18.643, 0.564)
pt3dadd(127.426, 89.482, 18.643, 0.608)
pt3dadd(127.531, 89.426, 18.643, 0.65)
pt3dadd(127.638, 89.37, 18.643, 0.692)
pt3dadd(127.744, 89.314, 18.643, 0.734)
pt3dadd(127.85, 89.258, 18.643, 0.776)
pt3dadd(127.956, 89.202, 18.643, 0.818)
pt3dadd(128.063, 89.146, 18.643, 0.86)
pt3dadd(128.179, 89.117, 18.643, 0.852)
pt3dadd(128.296, 89.09, 18.643, 0.84)
pt3dadd(128.412, 89.063, 18.643, 0.828)
pt3dadd(128.53, 89.035, 18.643, 0.816)
pt3dadd(128.646, 89.008, 18.643, 0.802)
pt3dadd(128.764, 88.981, 18.643, 0.79)
pt3dadd(128.88, 88.953, 18.643, 0.778)
pt3dadd(128.996, 88.926, 18.643, 0.766)
pt3dadd(129.114, 88.899, 18.643, 0.754)
pt3dadd(129.23, 88.871, 18.643, 0.742)
pt3dadd(129.35, 88.861, 18.643, 0.75)
pt3dadd(129.469, 88.851, 18.643, 0.76)
pt3dadd(129.589, 88.841, 18.643, 0.768)
pt3dadd(129.709, 88.831, 18.643, 0.778)
pt3dadd(129.828, 88.821, 18.643, 0.786)
pt3dadd(129.948, 88.811, 18.643, 0.796)
pt3dadd(130.068, 88.801, 18.643, 0.804)
pt3dadd(130.187, 88.791, 18.643, 0.814)
pt3dadd(130.307, 88.782, 18.643, 0.822)
pt3dadd(130.426, 88.772, 18.643, 0.832)
pt3dadd(130.546, 88.77, 18.643, 0.802)
pt3dadd(130.666, 88.768, 18.643, 0.77)
pt3dadd(130.786, 88.767, 18.643, 0.738)
pt3dadd(130.906, 88.765, 18.643, 0.706)
pt3dadd(131.026, 88.763, 18.643, 0.674)
pt3dadd(131.146, 88.762, 18.643, 0.644)
pt3dadd(131.266, 88.76, 18.643, 0.612)
pt3dadd(131.386, 88.759, 18.643, 0.58)
pt3dadd(131.506, 88.757, 18.643, 0.548)
pt3dadd(131.626, 88.755, 18.643, 0.516)
pt3dadd(131.746, 88.752, 18.643, 0.506)
pt3dadd(131.866, 88.749, 18.643, 0.494)
pt3dadd(131.986, 88.745, 18.643, 0.484)
pt3dadd(132.106, 88.742, 18.643, 0.472)
pt3dadd(132.226, 88.738, 18.643, 0.462)
pt3dadd(132.346, 88.735, 18.643, 0.45)
pt3dadd(132.466, 88.731, 18.643, 0.44)
pt3dadd(132.586, 88.728, 18.643, 0.428)
pt3dadd(132.706, 88.724, 18.643, 0.418)
pt3dadd(132.826, 88.721, 18.643, 0.406)
pt3dadd(132.946, 88.713, 18.643, 0.442)
pt3dadd(133.066, 88.705, 18.643, 0.48)
pt3dadd(133.184, 88.697, 18.643, 0.516)
pt3dadd(133.304, 88.689, 18.643, 0.554)
pt3dadd(133.424, 88.681, 18.643, 0.59)
pt3dadd(133.544, 88.673, 18.643, 0.628)
pt3dadd(133.663, 88.665, 18.643, 0.664)
pt3dadd(133.783, 88.657, 18.643, 0.702)
pt3dadd(133.903, 88.649, 18.643, 0.738)
pt3dadd(134.023, 88.641, 18.643, 0.776)
pt3dadd(134.142, 88.625, 18.643, 0.78)
pt3dadd(134.261, 88.609, 18.643, 0.782)
pt3dadd(134.38, 88.592, 18.643, 0.784)
pt3dadd(134.498, 88.576, 18.643, 0.786)
pt3dadd(134.617, 88.559, 18.643, 0.788)
pt3dadd(134.736, 88.542, 18.643, 0.79)
pt3dadd(134.855, 88.526, 18.643, 0.792)
pt3dadd(134.974, 88.509, 18.643, 0.794)
pt3dadd(135.092, 88.493, 18.643, 0.796)
pt3dadd(135.211, 88.476, 18.643, 0.798)
pt3dadd(135.325, 88.438, 18.643, 0.776)
pt3dadd(135.439, 88.4, 18.643, 0.754)
pt3dadd(135.553, 88.362, 18.643, 0.732)
pt3dadd(135.666, 88.323, 18.643, 0.71)
pt3dadd(135.78, 88.285, 18.643, 0.688)
pt3dadd(135.894, 88.247, 18.643, 0.666)
pt3dadd(136.008, 88.209, 18.643, 0.642)
pt3dadd(136.122, 88.17, 18.643, 0.62)
pt3dadd(136.235, 88.132, 18.643, 0.598)
pt3dadd(136.348, 88.092, 18.643, 0.576)
pt3dadd(136.452, 88.033, 18.643, 0.556)
pt3dadd(136.556, 87.973, 18.642, 0.536)
pt3dadd(136.661, 87.914, 18.642, 0.514)
pt3dadd(136.765, 87.855, 18.642, 0.494)
pt3dadd(136.87, 87.795, 18.642, 0.474)
pt3dadd(136.974, 87.736, 18.642, 0.454)
pt3dadd(137.078, 87.677, 18.642, 0.432)
pt3dadd(137.183, 87.618, 18.642, 0.412)
pt3dadd(137.287, 87.558, 18.642, 0.392)
pt3dadd(137.392, 87.499, 18.642, 0.372)
pt3dadd(137.496, 87.44, 18.642, 0.358)
pt3dadd(137.6, 87.38, 18.642, 0.342)
pt3dadd(137.705, 87.321, 18.642, 0.328)
pt3dadd(137.808, 87.262, 18.642, 0.312)
pt3dadd(137.912, 87.202, 18.642, 0.298)
pt3dadd(138.017, 87.143, 18.642, 0.282)
pt3dadd(138.121, 87.084, 18.642, 0.268)
pt3dadd(138.226, 87.024, 18.641, 0.254)
pt3dadd(138.33, 86.965, 18.641, 0.238)
pt3dadd(138.436, 86.91, 18.641, 0.226)
pt3dadd(138.551, 86.875, 18.641, 0.232)
pt3dadd(138.666, 86.841, 18.641, 0.238)
pt3dadd(138.781, 86.806, 18.641, 0.244)
pt3dadd(138.896, 86.772, 18.641, 0.248)
pt3dadd(139.01, 86.737, 18.64, 0.254)
pt3dadd(139.126, 86.703, 18.64, 0.26)
pt3dadd(139.241, 86.668, 18.64, 0.266)
pt3dadd(139.356, 86.634, 18.64, 0.27)
pt3dadd(139.47, 86.599, 18.64, 0.276)
pt3dadd(139.586, 86.57, 18.639, 0.288)
pt3dadd(139.706, 86.56, 18.639, 0.324)
pt3dadd(139.825, 86.55, 18.639, 0.36)
pt3dadd(139.945, 86.54, 18.638, 0.398)
pt3dadd(140.065, 86.53, 18.638, 0.434)
pt3dadd(140.184, 86.52, 18.637, 0.47)
pt3dadd(140.304, 86.51, 18.637, 0.506)
pt3dadd(140.424, 86.5, 18.636, 0.542)
pt3dadd(140.543, 86.49, 18.636, 0.578)
pt3dadd(140.663, 86.48, 18.635, 0.614)
pt3dadd(140.783, 86.472, 18.635, 0.648)
pt3dadd(140.903, 86.471, 18.634, 0.674)
pt3dadd(141.023, 86.47, 18.633, 0.702)
pt3dadd(141.143, 86.469, 18.632, 0.728)
pt3dadd(141.263, 86.468, 18.631, 0.754)
pt3dadd(141.383, 86.468, 18.63, 0.78)
pt3dadd(141.503, 86.467, 18.629, 0.806)
pt3dadd(141.623, 86.466, 18.628, 0.832)
pt3dadd(141.743, 86.465, 18.627, 0.858)
pt3dadd(141.863, 86.465, 18.626, 0.884)
pt3dadd(141.983, 86.464, 18.625, 0.898)
pt3dadd(142.103, 86.462, 18.623, 0.862)
pt3dadd(142.222, 86.46, 18.621, 0.824)
pt3dadd(142.342, 86.458, 18.618, 0.788)
pt3dadd(142.462, 86.457, 18.616, 0.752)
}
}
proc shape3d_142() {
dend_7[26] { pt3dadd(142.582, 86.455, 18.614, 0.716)
pt3dadd(142.702, 86.453, 18.612, 0.678)
pt3dadd(142.822, 86.451, 18.61, 0.642)
pt3dadd(142.942, 86.45, 18.608, 0.606)
pt3dadd(143.062, 86.448, 18.605, 0.57)
pt3dadd(143.182, 86.445, 18.602, 0.538)
pt3dadd(143.302, 86.441, 18.597, 0.53)
pt3dadd(143.422, 86.437, 18.592, 0.522)
pt3dadd(143.542, 86.433, 18.586, 0.514)
pt3dadd(143.66, 86.429, 18.581, 0.506)
pt3dadd(143.78, 86.425, 18.576, 0.498)
pt3dadd(143.9, 86.421, 18.57, 0.49)
pt3dadd(144.02, 86.417, 18.565, 0.482)
pt3dadd(144.14, 86.413, 18.559, 0.474)
pt3dadd(144.259, 86.409, 18.554, 0.466)
pt3dadd(144.379, 86.403, 18.547, 0.458)
pt3dadd(144.498, 86.393, 18.535, 0.448)
pt3dadd(144.617, 86.383, 18.524, 0.44)
pt3dadd(144.736, 86.372, 18.512, 0.43)
pt3dadd(144.854, 86.362, 18.501, 0.42)
pt3dadd(144.973, 86.352, 18.489, 0.41)
pt3dadd(145.092, 86.342, 18.477, 0.402)
pt3dadd(145.211, 86.331, 18.466, 0.392)
pt3dadd(145.33, 86.321, 18.454, 0.382)
pt3dadd(145.448, 86.311, 18.443, 0.374)
pt3dadd(145.564, 86.297, 18.424, 0.378)
pt3dadd(145.668, 86.27, 18.38, 0.43)
pt3dadd(145.772, 86.243, 18.336, 0.48)
pt3dadd(145.877, 86.217, 18.293, 0.532)
pt3dadd(145.982, 86.19, 18.249, 0.582)
pt3dadd(146.087, 86.164, 18.206, 0.634)
pt3dadd(146.191, 86.137, 18.162, 0.686)
pt3dadd(146.296, 86.111, 18.119, 0.736)
pt3dadd(146.401, 86.084, 18.075, 0.788)
pt3dadd(146.506, 86.058, 18.031, 0.838)
pt3dadd(146.604, 86.012, 17.993, 0.878)
pt3dadd(146.696, 85.947, 17.959, 0.904)
pt3dadd(146.789, 85.882, 17.925, 0.93)
pt3dadd(146.881, 85.818, 17.891, 0.958)
pt3dadd(146.974, 85.753, 17.857, 0.984)
pt3dadd(147.066, 85.688, 17.823, 1.01)
pt3dadd(147.158, 85.623, 17.789, 1.036)
pt3dadd(147.251, 85.559, 17.755, 1.062)
pt3dadd(147.343, 85.494, 17.721, 1.09)
pt3dadd(147.436, 85.429, 17.687, 1.116)
pt3dadd(147.528, 85.359, 17.661, 1.128)
pt3dadd(147.619, 85.285, 17.641, 1.128)
pt3dadd(147.71, 85.211, 17.622, 1.128)
pt3dadd(147.803, 85.137, 17.602, 1.128)
pt3dadd(147.894, 85.063, 17.583, 1.128)
pt3dadd(147.985, 84.989, 17.563, 1.13)
pt3dadd(148.076, 84.915, 17.543, 1.13)
pt3dadd(148.168, 84.841, 17.524, 1.13)
pt3dadd(148.26, 84.767, 17.504, 1.13)
pt3dadd(148.351, 84.693, 17.485, 1.13)
pt3dadd(148.447, 84.63, 17.458, 1.112)
pt3dadd(148.548, 84.577, 17.426, 1.076)
pt3dadd(148.649, 84.525, 17.394, 1.042)
pt3dadd(148.75, 84.472, 17.362, 1.006)
pt3dadd(148.85, 84.42, 17.329, 0.972)
pt3dadd(148.951, 84.367, 17.297, 0.938)
pt3dadd(149.052, 84.315, 17.265, 0.902)
pt3dadd(149.153, 84.263, 17.233, 0.868)
pt3dadd(149.254, 84.21, 17.201, 0.832)
pt3dadd(149.354, 84.158, 17.168, 0.798)
pt3dadd(149.456, 84.105, 17.141, 0.768)
pt3dadd(149.56, 84.051, 17.116, 0.744)
pt3dadd(149.663, 83.998, 17.091, 0.718)
pt3dadd(149.766, 83.945, 17.066, 0.692)
pt3dadd(149.87, 83.892, 17.042, 0.666)
pt3dadd(149.974, 83.838, 17.017, 0.64)
pt3dadd(150.077, 83.785, 16.992, 0.616)
pt3dadd(150.18, 83.732, 16.968, 0.59)
pt3dadd(150.283, 83.679, 16.943, 0.564)
pt3dadd(150.386, 83.625, 16.918, 0.54)
pt3dadd(150.494, 83.579, 16.899, 0.532)
pt3dadd(150.606, 83.538, 16.885, 0.538)
pt3dadd(150.718, 83.498, 16.87, 0.546)
pt3dadd(150.829, 83.457, 16.855, 0.552)
pt3dadd(150.941, 83.416, 16.84, 0.558)
pt3dadd(151.052, 83.375, 16.826, 0.564)
pt3dadd(151.164, 83.334, 16.811, 0.57)
pt3dadd(151.274, 83.293, 16.796, 0.578)
pt3dadd(151.386, 83.253, 16.781, 0.584)
pt3dadd(151.498, 83.212, 16.766, 0.59)
pt3dadd(151.613, 83.181, 16.759, 0.588)
pt3dadd(151.73, 83.155, 16.755, 0.582)
pt3dadd(151.847, 83.129, 16.751, 0.576)
pt3dadd(151.964, 83.103, 16.747, 0.572)
pt3dadd(152.081, 83.076, 16.743, 0.566)
pt3dadd(152.198, 83.05, 16.738, 0.56)
pt3dadd(152.315, 83.024, 16.734, 0.554)
pt3dadd(152.432, 82.998, 16.73, 0.548)
pt3dadd(152.549, 82.972, 16.726, 0.542)
pt3dadd(152.666, 82.946, 16.722, 0.536)
pt3dadd(152.784, 82.926, 16.721, 0.56)
pt3dadd(152.903, 82.908, 16.721, 0.596)
pt3dadd(153.022, 82.89, 16.721, 0.634)
pt3dadd(153.14, 82.871, 16.721, 0.67)
pt3dadd(153.259, 82.853, 16.721, 0.706)
pt3dadd(153.378, 82.835, 16.721, 0.744)
pt3dadd(153.496, 82.817, 16.721, 0.78)
pt3dadd(153.614, 82.799, 16.721, 0.816)
pt3dadd(153.733, 82.781, 16.721, 0.852)
pt3dadd(153.852, 82.763, 16.721, 0.89)
pt3dadd(153.967, 82.731, 16.721, 0.876)
pt3dadd(154.081, 82.694, 16.721, 0.842)
pt3dadd(154.195, 82.656, 16.721, 0.806)
pt3dadd(154.309, 82.618, 16.721, 0.77)
pt3dadd(154.423, 82.581, 16.721, 0.734)
pt3dadd(154.537, 82.543, 16.721, 0.7)
pt3dadd(154.651, 82.506, 16.721, 0.664)
pt3dadd(154.765, 82.468, 16.721, 0.628)
pt3dadd(154.879, 82.43, 16.721, 0.592)
pt3dadd(154.993, 82.393, 16.721, 0.558)
pt3dadd(155.106, 82.352, 16.721, 0.536)
pt3dadd(155.219, 82.311, 16.721, 0.516)
pt3dadd(155.332, 82.269, 16.721, 0.498)
pt3dadd(155.444, 82.228, 16.721, 0.48)
pt3dadd(155.556, 82.187, 16.721, 0.462)
pt3dadd(155.669, 82.146, 16.721, 0.444)
pt3dadd(155.782, 82.104, 16.721, 0.424)
pt3dadd(155.894, 82.063, 16.721, 0.406)
pt3dadd(156.007, 82.022, 16.721, 0.388)
pt3dadd(156.12, 81.981, 16.721, 0.37)
pt3dadd(156.235, 81.946, 16.721, 0.372)
pt3dadd(156.35, 81.914, 16.721, 0.382)
pt3dadd(156.466, 81.882, 16.721, 0.39)
pt3dadd(156.582, 81.849, 16.721, 0.398)
pt3dadd(156.697, 81.817, 16.721, 0.408)
pt3dadd(156.812, 81.785, 16.72, 0.416)
pt3dadd(156.929, 81.753, 16.72, 0.424)
pt3dadd(157.044, 81.72, 16.72, 0.434)
pt3dadd(157.159, 81.688, 16.72, 0.442)
pt3dadd(157.276, 81.656, 16.72, 0.45)
pt3dadd(157.388, 81.616, 16.72, 0.442)
pt3dadd(157.501, 81.575, 16.72, 0.428)
pt3dadd(157.613, 81.533, 16.72, 0.414)
pt3dadd(157.726, 81.491, 16.72, 0.4)
pt3dadd(157.838, 81.45, 16.72, 0.388)
pt3dadd(157.951, 81.408, 16.72, 0.374)
pt3dadd(158.064, 81.366, 16.72, 0.36)
pt3dadd(158.176, 81.324, 16.719, 0.348)
pt3dadd(158.288, 81.283, 16.719, 0.334)
pt3dadd(158.401, 81.241, 16.719, 0.32)
pt3dadd(158.513, 81.198, 16.719, 0.31)
pt3dadd(158.624, 81.154, 16.719, 0.302)
pt3dadd(158.736, 81.11, 16.719, 0.292)
pt3dadd(158.848, 81.066, 16.718, 0.282)
pt3dadd(158.959, 81.022, 16.718, 0.274)
pt3dadd(159.071, 80.978, 16.718, 0.264)
pt3dadd(159.182, 80.934, 16.718, 0.256)
pt3dadd(159.295, 80.89, 16.718, 0.246)
pt3dadd(159.407, 80.846, 16.717, 0.236)
pt3dadd(159.518, 80.802, 16.717, 0.228)
pt3dadd(159.631, 80.764, 16.717, 0.248)
pt3dadd(159.745, 80.726, 16.716, 0.272)
pt3dadd(159.859, 80.688, 16.716, 0.298)
pt3dadd(159.973, 80.65, 16.715, 0.322)
pt3dadd(160.087, 80.612, 16.715, 0.348)
pt3dadd(160.201, 80.574, 16.714, 0.372)
pt3dadd(160.315, 80.536, 16.714, 0.398)
pt3dadd(160.428, 80.499, 16.713, 0.424)
pt3dadd(160.542, 80.461, 16.713, 0.448)
pt3dadd(160.656, 80.423, 16.712, 0.474)
pt3dadd(160.766, 80.376, 16.712, 0.484)
pt3dadd(160.877, 80.327, 16.711, 0.494)
pt3dadd(160.986, 80.278, 16.71, 0.502)
pt3dadd(161.095, 80.229, 16.709, 0.51)
pt3dadd(161.206, 80.181, 16.708, 0.518)
pt3dadd(161.315, 80.132, 16.707, 0.528)
pt3dadd(161.424, 80.083, 16.706, 0.536)
pt3dadd(161.534, 80.034, 16.705, 0.544)
pt3dadd(161.644, 79.986, 16.704, 0.552)
pt3dadd(161.753, 79.937, 16.703, 0.562)
pt3dadd(161.855, 79.874, 16.701, 0.56)
pt3dadd(161.957, 79.809, 16.699, 0.558)
pt3dadd(162.058, 79.744, 16.698, 0.556)
pt3dadd(162.158, 79.679, 16.696, 0.554)
pt3dadd(162.259, 79.614, 16.694, 0.554)
pt3dadd(162.36, 79.549, 16.692, 0.552)
pt3dadd(162.461, 79.485, 16.69, 0.55)
pt3dadd(162.562, 79.42, 16.689, 0.548)
pt3dadd(162.662, 79.355, 16.687, 0.546)
pt3dadd(162.763, 79.29, 16.685, 0.544)
pt3dadd(162.863, 79.223, 16.681, 0.544)
pt3dadd(162.962, 79.156, 16.678, 0.544)
pt3dadd(163.062, 79.089, 16.674, 0.542)
pt3dadd(163.162, 79.022, 16.67, 0.542)
pt3dadd(163.261, 78.955, 16.667, 0.542)
pt3dadd(163.36, 78.888, 16.663, 0.542)
pt3dadd(163.459, 78.82, 16.659, 0.542)
pt3dadd(163.559, 78.753, 16.655, 0.542)
pt3dadd(163.658, 78.686, 16.652, 0.542)
pt3dadd(163.758, 78.619, 16.648, 0.542)
pt3dadd(163.862, 78.561, 16.64, 0.524)
pt3dadd(163.967, 78.502, 16.632, 0.506)
pt3dadd(164.071, 78.444, 16.624, 0.488)
pt3dadd(164.176, 78.387, 16.616, 0.47)
pt3dadd(164.28, 78.328, 16.608, 0.45)
}
}
proc shape3d_143() {
dend_7[26] { pt3dadd(164.384, 78.27, 16.6, 0.432)
pt3dadd(164.49, 78.212, 16.592, 0.414)
pt3dadd(164.594, 78.154, 16.584, 0.396)
pt3dadd(164.699, 78.096, 16.576, 0.378)
pt3dadd(164.803, 78.038, 16.568, 0.36)
pt3dadd(164.904, 77.978, 16.546, 0.388)
pt3dadd(165.004, 77.918, 16.523, 0.422)
pt3dadd(165.104, 77.858, 16.5, 0.454)
pt3dadd(165.204, 77.798, 16.477, 0.486)
pt3dadd(165.304, 77.738, 16.454, 0.52)
pt3dadd(165.404, 77.677, 16.431, 0.552)
pt3dadd(165.504, 77.617, 16.408, 0.584)
pt3dadd(165.605, 77.557, 16.385, 0.616)
pt3dadd(165.704, 77.497, 16.362, 0.65)
pt3dadd(165.804, 77.439, 16.337, 0.674)
pt3dadd(165.906, 77.395, 16.297, 0.644)
pt3dadd(166.007, 77.352, 16.257, 0.614)
pt3dadd(166.108, 77.308, 16.217, 0.584)
pt3dadd(166.208, 77.264, 16.177, 0.554)
pt3dadd(166.309, 77.221, 16.137, 0.524)
pt3dadd(166.41, 77.177, 16.097, 0.494)
pt3dadd(166.511, 77.134, 16.056, 0.464)
pt3dadd(166.612, 77.09, 16.016, 0.434)
pt3dadd(166.712, 77.046, 15.976, 0.404)
pt3dadd(166.816, 77.001, 15.941, 0.386)
pt3dadd(166.922, 76.95, 15.925, 0.404)
pt3dadd(167.028, 76.899, 15.908, 0.422)
pt3dadd(167.135, 76.848, 15.891, 0.44)
pt3dadd(167.242, 76.797, 15.875, 0.458)
pt3dadd(167.348, 76.746, 15.858, 0.476)
pt3dadd(167.455, 76.695, 15.841, 0.494)
pt3dadd(167.562, 76.644, 15.825, 0.512)
pt3dadd(167.669, 76.593, 15.808, 0.532)
pt3dadd(167.776, 76.542, 15.791, 0.55)
pt3dadd(167.884, 76.493, 15.778, 0.556)
pt3dadd(167.995, 76.448, 15.774, 0.534)
pt3dadd(168.107, 76.403, 15.771, 0.512)
pt3dadd(168.217, 76.358, 15.767, 0.492)
pt3dadd(168.329, 76.313, 15.763, 0.47)
pt3dadd(168.44, 76.269, 15.76, 0.448)
pt3dadd(168.551, 76.224, 15.756, 0.426)
pt3dadd(168.662, 76.179, 15.752, 0.404)
pt3dadd(168.774, 76.134, 15.749, 0.382)
pt3dadd(168.884, 76.089, 15.745, 0.362)
pt3dadd(168.995, 76.042, 15.742, 0.348)
pt3dadd(169.104, 75.991, 15.74, 0.35)
pt3dadd(169.212, 75.939, 15.738, 0.354)
pt3dadd(169.32, 75.888, 15.736, 0.356)
pt3dadd(169.429, 75.837, 15.734, 0.36)
pt3dadd(169.537, 75.785, 15.733, 0.364)
pt3dadd(169.646, 75.734, 15.731, 0.366)
pt3dadd(169.754, 75.683, 15.729, 0.37)
pt3dadd(169.862, 75.632, 15.727, 0.372)
pt3dadd(169.972, 75.58, 15.725, 0.376)
pt3dadd(170.081, 75.533, 15.723, 0.38)
pt3dadd(170.195, 75.494, 15.718, 0.388)
pt3dadd(170.308, 75.455, 15.714, 0.396)
pt3dadd(170.422, 75.417, 15.709, 0.402)
pt3dadd(170.534, 75.378, 15.705, 0.41)
pt3dadd(170.648, 75.339, 15.7, 0.418)
pt3dadd(170.762, 75.3, 15.696, 0.426)
pt3dadd(170.875, 75.261, 15.691, 0.432)
pt3dadd(170.989, 75.223, 15.687, 0.44)
pt3dadd(171.102, 75.184, 15.682, 0.448)
pt3dadd(171.217, 75.152, 15.676, 0.458)
pt3dadd(171.335, 75.132, 15.668, 0.474)
pt3dadd(171.454, 75.112, 15.66, 0.488)
pt3dadd(171.571, 75.091, 15.652, 0.504)
pt3dadd(171.689, 75.071, 15.644, 0.52)
pt3dadd(171.806, 75.051, 15.636, 0.534)
pt3dadd(171.924, 75.031, 15.628, 0.55)
pt3dadd(172.043, 75.011, 15.62, 0.564)
pt3dadd(172.16, 74.99, 15.612, 0.58)
pt3dadd(172.278, 74.97, 15.603, 0.596)
pt3dadd(172.396, 74.955, 15.588, 0.62)
pt3dadd(172.511, 74.947, 15.563, 0.658)
pt3dadd(172.627, 74.94, 15.537, 0.696)
pt3dadd(172.742, 74.932, 15.512, 0.734)
pt3dadd(172.859, 74.925, 15.486, 0.774)
pt3dadd(172.974, 74.917, 15.461, 0.812)
pt3dadd(173.09, 74.909, 15.435, 0.85)
pt3dadd(173.206, 74.902, 15.409, 0.888)
pt3dadd(173.321, 74.894, 15.384, 0.926)
pt3dadd(173.437, 74.887, 15.358, 0.964)
pt3dadd(173.554, 74.879, 15.335, 0.968)
pt3dadd(173.67, 74.871, 15.313, 0.936)
pt3dadd(173.788, 74.862, 15.292, 0.902)
pt3dadd(173.904, 74.854, 15.27, 0.87)
pt3dadd(174.022, 74.846, 15.249, 0.836)
pt3dadd(174.138, 74.838, 15.227, 0.804)
pt3dadd(174.254, 74.83, 15.206, 0.77)
pt3dadd(174.372, 74.822, 15.185, 0.738)
pt3dadd(174.488, 74.813, 15.163, 0.704)
pt3dadd(174.606, 74.805, 15.142, 0.672)
pt3dadd(174.724, 74.793, 15.137, 0.67)
pt3dadd(174.841, 74.778, 15.148, 0.7)
pt3dadd(174.96, 74.762, 15.159, 0.73)
pt3dadd(175.078, 74.747, 15.17, 0.76)
pt3dadd(175.196, 74.731, 15.181, 0.79)
pt3dadd(175.314, 74.716, 15.192, 0.82)
pt3dadd(175.433, 74.7, 15.203, 0.85)
pt3dadd(175.552, 74.685, 15.214, 0.88)
pt3dadd(175.669, 74.669, 15.225, 0.91)
pt3dadd(175.788, 74.654, 15.236, 0.94)
pt3dadd(175.901, 74.618, 15.25, 0.952)
pt3dadd(176.01, 74.573, 15.265, 0.952)
pt3dadd(176.119, 74.528, 15.28, 0.954)
pt3dadd(176.23, 74.483, 15.294, 0.956)
pt3dadd(176.339, 74.438, 15.309, 0.956)
pt3dadd(176.449, 74.393, 15.324, 0.958)
pt3dadd(176.558, 74.348, 15.339, 0.96)
pt3dadd(176.669, 74.303, 15.354, 0.96)
pt3dadd(176.778, 74.258, 15.369, 0.962)
pt3dadd(176.888, 74.213, 15.384, 0.964)
pt3dadd(176.996, 74.166, 15.373, 0.946)
pt3dadd(177.104, 74.118, 15.355, 0.922)
pt3dadd(177.212, 74.071, 15.336, 0.898)
pt3dadd(177.32, 74.024, 15.318, 0.874)
pt3dadd(177.428, 73.976, 15.299, 0.85)
pt3dadd(177.536, 73.929, 15.281, 0.828)
pt3dadd(177.644, 73.881, 15.262, 0.804)
pt3dadd(177.752, 73.834, 15.244, 0.78)
pt3dadd(177.86, 73.786, 15.226, 0.756)
pt3dadd(177.968, 73.739, 15.207, 0.732)
pt3dadd(178.061, 73.672, 15.177, 0.768)
pt3dadd(178.152, 73.603, 15.147, 0.806)
pt3dadd(178.244, 73.535, 15.117, 0.846)
pt3dadd(178.336, 73.466, 15.087, 0.884)
pt3dadd(178.428, 73.398, 15.057, 0.922)
pt3dadd(178.519, 73.33, 15.027, 0.962)
pt3dadd(178.612, 73.261, 14.997, 1)
pt3dadd(178.703, 73.193, 14.966, 1.04)
pt3dadd(178.794, 73.124, 14.936, 1.078)
pt3dadd(178.886, 73.057, 14.906, 1.114)
pt3dadd(179, 73.021, 14.894, 1.06)
pt3dadd(179.114, 72.985, 14.881, 1.006)
pt3dadd(179.227, 72.949, 14.869, 0.952)
pt3dadd(179.341, 72.913, 14.856, 0.896)
pt3dadd(179.454, 72.878, 14.843, 0.842)
pt3dadd(179.568, 72.842, 14.831, 0.788)
pt3dadd(179.681, 72.806, 14.818, 0.732)
pt3dadd(179.795, 72.77, 14.806, 0.678)
pt3dadd(179.909, 72.734, 14.793, 0.624)
pt3dadd(180.023, 72.7, 14.781, 0.57)
pt3dadd(180.142, 72.685, 14.779, 0.536)
pt3dadd(180.26, 72.669, 14.776, 0.5)
pt3dadd(180.379, 72.654, 14.774, 0.466)
pt3dadd(180.498, 72.639, 14.771, 0.432)
pt3dadd(180.617, 72.624, 14.769, 0.396)
pt3dadd(180.737, 72.609, 14.766, 0.362)
pt3dadd(180.856, 72.593, 14.764, 0.328)
pt3dadd(180.974, 72.578, 14.761, 0.292)
pt3dadd(181.093, 72.563, 14.759, 0.258)
pt3dadd(181.212, 72.548, 14.756, 0.228)
pt3dadd(181.332, 72.538, 14.751, 0.254)
pt3dadd(181.451, 72.527, 14.745, 0.28)
pt3dadd(181.571, 72.517, 14.74, 0.306)
pt3dadd(181.69, 72.506, 14.735, 0.332)
pt3dadd(181.81, 72.496, 14.729, 0.358)
pt3dadd(181.928, 72.485, 14.724, 0.386)
pt3dadd(182.048, 72.475, 14.718, 0.412)
pt3dadd(182.167, 72.464, 14.713, 0.438)
pt3dadd(182.287, 72.454, 14.708, 0.464)
pt3dadd(182.406, 72.442, 14.702, 0.49)
pt3dadd(182.522, 72.416, 14.691, 0.524)
pt3dadd(182.639, 72.389, 14.681, 0.556)
pt3dadd(182.755, 72.363, 14.67, 0.59)
pt3dadd(182.872, 72.337, 14.659, 0.624)
pt3dadd(182.988, 72.31, 14.649, 0.656)
pt3dadd(183.104, 72.284, 14.638, 0.69)
pt3dadd(183.221, 72.258, 14.627, 0.722)
pt3dadd(183.337, 72.231, 14.617, 0.756)
pt3dadd(183.454, 72.205, 14.606, 0.79)
pt3dadd(183.569, 72.176, 14.593, 0.814)
pt3dadd(183.678, 72.138, 14.569, 0.8)
pt3dadd(183.788, 72.1, 14.545, 0.786)
pt3dadd(183.899, 72.062, 14.521, 0.772)
pt3dadd(184.008, 72.023, 14.496, 0.758)
pt3dadd(184.118, 71.985, 14.472, 0.744)
pt3dadd(184.228, 71.947, 14.448, 0.73)
pt3dadd(184.338, 71.909, 14.424, 0.716)
pt3dadd(184.448, 71.87, 14.4, 0.702)
pt3dadd(184.558, 71.832, 14.375, 0.688)
pt3dadd(184.667, 71.799, 14.346, 0.68)
pt3dadd(184.775, 71.776, 14.306, 0.686)
pt3dadd(184.883, 71.754, 14.266, 0.692)
pt3dadd(184.99, 71.731, 14.225, 0.698)
pt3dadd(185.098, 71.709, 14.185, 0.704)
pt3dadd(185.204, 71.686, 14.145, 0.71)
pt3dadd(185.312, 71.664, 14.104, 0.716)
pt3dadd(185.419, 71.641, 14.064, 0.722)
pt3dadd(185.527, 71.619, 14.024, 0.728)
pt3dadd(185.635, 71.596, 13.983, 0.734)
pt3dadd(185.743, 71.578, 13.944, 0.74)
pt3dadd(185.854, 71.568, 13.905, 0.74)
pt3dadd(185.964, 71.559, 13.866, 0.74)
pt3dadd(186.074, 71.55, 13.828, 0.74)
pt3dadd(186.184, 71.54, 13.789, 0.74)
pt3dadd(186.294, 71.531, 13.75, 0.742)
pt3dadd(186.404, 71.521, 13.712, 0.742)
}
}
proc shape3d_144() {
dend_7[26] { pt3dadd(186.515, 71.512, 13.673, 0.742)
pt3dadd(186.625, 71.503, 13.635, 0.742)
pt3dadd(186.736, 71.493, 13.596, 0.742)
pt3dadd(186.845, 71.487, 13.555, 0.728)
pt3dadd(186.952, 71.487, 13.51, 0.684)
pt3dadd(187.06, 71.487, 13.465, 0.642)
pt3dadd(187.166, 71.487, 13.42, 0.598)
pt3dadd(187.273, 71.487, 13.375, 0.556)
pt3dadd(187.381, 71.487, 13.33, 0.512)
pt3dadd(187.488, 71.487, 13.285, 0.47)
pt3dadd(187.595, 71.487, 13.24, 0.426)
pt3dadd(187.703, 71.487, 13.195, 0.384)
pt3dadd(187.81, 71.487, 13.15, 0.34)
pt3dadd(187.92, 71.487, 13.112, 0.332)
pt3dadd(188.034, 71.487, 13.083, 0.382)
pt3dadd(188.149, 71.487, 13.054, 0.43)
pt3dadd(188.264, 71.487, 13.025, 0.478)
pt3dadd(188.38, 71.487, 12.996, 0.526)
pt3dadd(188.494, 71.487, 12.967, 0.576)
pt3dadd(188.609, 71.487, 12.938, 0.624)
pt3dadd(188.724, 71.487, 12.909, 0.672)
pt3dadd(188.839, 71.487, 12.88, 0.72)
pt3dadd(188.953, 71.487, 12.851, 0.77)
pt3dadd(189.068, 71.487, 12.823, 0.796)
pt3dadd(189.185, 71.487, 12.797, 0.786)
pt3dadd(189.3, 71.487, 12.77, 0.776)
pt3dadd(189.415, 71.487, 12.744, 0.766)
pt3dadd(189.532, 71.487, 12.717, 0.754)
pt3dadd(189.647, 71.487, 12.691, 0.744)
pt3dadd(189.763, 71.487, 12.664, 0.734)
pt3dadd(189.878, 71.487, 12.637, 0.724)
pt3dadd(189.994, 71.487, 12.611, 0.714)
pt3dadd(190.11, 71.487, 12.584, 0.704)
pt3dadd(190.216, 71.487, 12.542, 0.678)
pt3dadd(190.306, 71.487, 12.476, 0.628)
pt3dadd(190.396, 71.487, 12.41, 0.578)
pt3dadd(190.486, 71.487, 12.344, 0.528)
pt3dadd(190.576, 71.487, 12.278, 0.478)
pt3dadd(190.666, 71.487, 12.211, 0.428)
pt3dadd(190.756, 71.487, 12.145, 0.378)
pt3dadd(190.846, 71.487, 12.079, 0.328)
pt3dadd(190.936, 71.487, 12.013, 0.278)
pt3dadd(191.026, 71.487, 11.946, 0.228)
pt3dadd(191.042, 71.487, 11.848, 0.226)
pt3dadd(191.058, 71.487, 11.749, 0.226)
pt3dadd(191.072, 71.487, 11.65, 0.226)
pt3dadd(191.088, 71.487, 11.551, 0.226)
pt3dadd(191.102, 71.487, 11.452, 0.226)
pt3dadd(191.118, 71.487, 11.352, 0.226)
pt3dadd(191.132, 71.487, 11.253, 0.226)
pt3dadd(191.148, 71.487, 11.154, 0.226)
pt3dadd(191.162, 71.487, 11.055, 0.226)
pt3dadd(191.178, 71.487, 10.955, 0.226)
}
dend_7[27] {pt3dclear()
pt3dadd(118.214, 91.004, 18.198, 0.514)
pt3dadd(118.244, 90.984, 18.187, 0.494)
pt3dadd(118.337, 90.921, 18.152, 0.434)
pt3dadd(118.431, 90.858, 18.118, 0.374)
pt3dadd(118.524, 90.795, 18.083, 0.314)
pt3dadd(118.618, 90.733, 18.049, 0.252)
pt3dadd(118.703, 90.697, 18.075, 0.226)
pt3dadd(118.78, 90.683, 18.151, 0.226)
pt3dadd(118.857, 90.668, 18.226, 0.226)
pt3dadd(118.935, 90.654, 18.302, 0.226)
pt3dadd(119.013, 90.64, 18.377, 0.226)
pt3dadd(119.09, 90.626, 18.453, 0.226)
pt3dadd(119.167, 90.611, 18.528, 0.226)
pt3dadd(119.245, 90.597, 18.604, 0.226)
pt3dadd(119.322, 90.583, 18.679, 0.226)
pt3dadd(119.4, 90.569, 18.754, 0.226)
pt3dadd(119.477, 90.554, 18.83, 0.226)
pt3dadd(119.555, 90.54, 18.905, 0.226)
pt3dadd(119.632, 90.526, 18.981, 0.226)
pt3dadd(119.71, 90.512, 19.056, 0.226)
pt3dadd(119.787, 90.498, 19.132, 0.226)
pt3dadd(119.865, 90.483, 19.207, 0.226)
pt3dadd(119.942, 90.469, 19.282, 0.226)
pt3dadd(120.019, 90.455, 19.358, 0.226)
pt3dadd(120.097, 90.441, 19.433, 0.226)
pt3dadd(120.175, 90.426, 19.509, 0.226)
pt3dadd(120.252, 90.412, 19.584, 0.226)
pt3dadd(120.33, 90.398, 19.66, 0.226)
pt3dadd(120.407, 90.384, 19.735, 0.226)
pt3dadd(120.485, 90.369, 19.81, 0.226)
pt3dadd(120.559, 90.361, 19.886, 0.246)
pt3dadd(120.586, 90.438, 19.959, 0.524)
pt3dadd(120.653, 90.489, 20, 0.678)
pt3dadd(120.772, 90.509, 20, 0.678)
pt3dadd(120.89, 90.528, 20, 0.678)
pt3dadd(121.008, 90.548, 20, 0.678)
pt3dadd(121.127, 90.568, 20, 0.678)
pt3dadd(121.246, 90.588, 20, 0.678)
pt3dadd(121.364, 90.6, 20, 0.678)
pt3dadd(121.484, 90.6, 20, 0.678)
pt3dadd(121.604, 90.6, 20, 0.678)
pt3dadd(121.724, 90.6, 20, 0.678)
pt3dadd(121.844, 90.6, 20, 0.678)
pt3dadd(121.964, 90.6, 20, 0.678)
pt3dadd(122.084, 90.6, 20, 0.678)
pt3dadd(122.204, 90.595, 20, 0.678)
pt3dadd(122.323, 90.583, 20, 0.678)
pt3dadd(122.442, 90.57, 20, 0.678)
pt3dadd(122.562, 90.558, 20, 0.678)
pt3dadd(122.681, 90.545, 20, 0.678)
pt3dadd(122.801, 90.533, 20, 0.678)
pt3dadd(122.92, 90.52, 20, 0.678)
pt3dadd(123.04, 90.514, 20, 0.678)
pt3dadd(123.16, 90.508, 20, 0.678)
pt3dadd(123.28, 90.502, 20, 0.678)
pt3dadd(123.4, 90.496, 20, 0.678)
pt3dadd(123.52, 90.49, 20, 0.678)
pt3dadd(123.64, 90.484, 20, 0.678)
pt3dadd(123.758, 90.48, 20, 0.678)
pt3dadd(123.878, 90.48, 20, 0.678)
pt3dadd(123.998, 90.48, 20, 0.678)
pt3dadd(124.118, 90.48, 20, 0.678)
pt3dadd(124.238, 90.48, 20, 0.678)
pt3dadd(124.358, 90.48, 20, 0.678)
pt3dadd(124.478, 90.48, 20, 0.678)
pt3dadd(124.598, 90.48, 20, 0.678)
pt3dadd(124.718, 90.48, 20, 0.678)
pt3dadd(124.838, 90.48, 20, 0.678)
pt3dadd(124.958, 90.48, 20, 0.678)
pt3dadd(125.078, 90.48, 20, 0.678)
pt3dadd(125.198, 90.48, 20, 0.678)
pt3dadd(125.318, 90.48, 20.004, 0.678)
pt3dadd(125.437, 90.48, 20.016, 0.678)
pt3dadd(125.557, 90.48, 20.029, 0.678)
pt3dadd(125.648, 90.48, 20.083, 0.678)
pt3dadd(125.723, 90.48, 20.161, 0.678)
pt3dadd(125.788, 90.48, 20.245, 0.678)
pt3dadd(125.842, 90.48, 20.334, 0.678)
pt3dadd(125.923, 90.48, 20.407, 0.678)
pt3dadd(126.004, 90.48, 20.481, 0.678)
pt3dadd(126.106, 90.48, 20.534, 0.678)
pt3dadd(126.209, 90.48, 20.585, 0.678)
pt3dadd(126.314, 90.48, 20.631, 0.678)
pt3dadd(126.422, 90.48, 20.676, 0.678)
pt3dadd(126.535, 90.48, 20.7, 0.678)
pt3dadd(126.655, 90.48, 20.7, 0.678)
pt3dadd(126.775, 90.48, 20.7, 0.678)
pt3dadd(126.895, 90.48, 20.7, 0.678)
pt3dadd(127.015, 90.48, 20.7, 0.678)
pt3dadd(127.134, 90.48, 20.708, 0.678)
pt3dadd(127.253, 90.48, 20.724, 0.678)
pt3dadd(127.372, 90.48, 20.74, 0.678)
pt3dadd(127.489, 90.48, 20.757, 0.678)
pt3dadd(127.608, 90.48, 20.773, 0.678)
pt3dadd(127.727, 90.48, 20.79, 0.678)
pt3dadd(127.846, 90.48, 20.802, 0.678)
pt3dadd(127.966, 90.48, 20.805, 0.678)
pt3dadd(128.086, 90.48, 20.809, 0.678)
pt3dadd(128.202, 90.48, 20.827, 0.678)
pt3dadd(128.315, 90.48, 20.86, 0.678)
pt3dadd(128.428, 90.48, 20.894, 0.678)
pt3dadd(128.538, 90.48, 20.933, 0.678)
pt3dadd(128.65, 90.48, 20.972, 0.678)
pt3dadd(128.736, 90.48, 21.04, 0.678)
pt3dadd(128.818, 90.48, 21.113, 0.678)
pt3dadd(128.879, 90.48, 21.198, 0.678)
pt3dadd(128.936, 90.48, 21.285, 0.678)
pt3dadd(129.012, 90.48, 21.362, 0.678)
pt3dadd(129.088, 90.48, 21.44, 0.678)
pt3dadd(129.169, 90.48, 21.513, 0.678)
pt3dadd(129.251, 90.48, 21.587, 0.678)
pt3dadd(129.364, 90.48, 21.621, 0.678)
pt3dadd(129.476, 90.48, 21.654, 0.678)
pt3dadd(129.593, 90.48, 21.674, 0.678)
pt3dadd(129.713, 90.48, 21.687, 0.678)
pt3dadd(129.832, 90.48, 21.699, 0.678)
pt3dadd(129.95, 90.475, 21.712, 0.678)
pt3dadd(130.069, 90.47, 21.725, 0.678)
pt3dadd(130.171, 90.443, 21.753, 0.678)
pt3dadd(130.2, 90.34, 21.79, 0.678)
pt3dadd(130.202, 90.221, 21.8, 0.678)
pt3dadd(130.223, 90.103, 21.804, 0.678)
pt3dadd(130.277, 90.004, 21.832, 0.678)
pt3dadd(130.343, 89.911, 21.863, 0.678)
pt3dadd(130.408, 89.817, 21.894, 0.678)
pt3dadd(130.474, 89.724, 21.925, 0.678)
pt3dadd(130.538, 89.631, 21.957, 0.678)
pt3dadd(130.601, 89.532, 21.978, 0.678)
pt3dadd(130.662, 89.43, 21.995, 0.678)
pt3dadd(130.733, 89.334, 22, 0.678)
pt3dadd(130.807, 89.241, 22, 0.678)
pt3dadd(130.907, 89.192, 22, 0.678)
pt3dadd(131.027, 89.177, 22, 0.678)
pt3dadd(131.146, 89.162, 22, 0.678)
pt3dadd(131.266, 89.156, 22, 0.678)
pt3dadd(131.386, 89.151, 22, 0.678)
pt3dadd(131.506, 89.147, 22, 0.678)
pt3dadd(131.609, 89.114, 22.041, 0.678)
pt3dadd(131.713, 89.081, 22.083, 0.678)
pt3dadd(131.818, 89.047, 22.124, 0.678)
pt3dadd(131.879, 89.007, 22.198, 0.678)
pt3dadd(131.929, 88.964, 22.282, 0.678)
pt3dadd(132.008, 88.889, 22.319, 0.678)
pt3dadd(132.092, 88.812, 22.351, 0.678)
pt3dadd(132.188, 88.751, 22.375, 0.678)
pt3dadd(132.298, 88.705, 22.391, 0.678)
pt3dadd(132.412, 88.68, 22.4, 0.678)
}
}
proc shape3d_145() {
dend_7[27] { pt3dadd(132.528, 88.68, 22.417, 0.678)
pt3dadd(132.638, 88.68, 22.457, 0.678)
pt3dadd(132.749, 88.68, 22.497, 0.678)
pt3dadd(132.858, 88.68, 22.536, 0.678)
pt3dadd(132.968, 88.68, 22.576, 0.678)
pt3dadd(133.079, 88.678, 22.615, 0.678)
pt3dadd(133.187, 88.658, 22.655, 0.678)
pt3dadd(133.296, 88.639, 22.694, 0.678)
pt3dadd(133.404, 88.619, 22.734, 0.678)
pt3dadd(133.513, 88.6, 22.773, 0.678)
pt3dadd(133.62, 88.567, 22.8, 0.678)
pt3dadd(133.723, 88.506, 22.8, 0.678)
pt3dadd(133.829, 88.453, 22.801, 0.678)
pt3dadd(133.949, 88.448, 22.805, 0.678)
pt3dadd(134.069, 88.443, 22.809, 0.678)
pt3dadd(134.168, 88.438, 22.84, 0.678)
pt3dadd(134.232, 88.431, 22.925, 0.678)
pt3dadd(134.287, 88.404, 23.003, 0.678)
pt3dadd(134.315, 88.311, 23.063, 0.678)
pt3dadd(134.371, 88.234, 23.11, 0.678)
pt3dadd(134.474, 88.185, 23.138, 0.678)
pt3dadd(134.568, 88.157, 23.196, 0.678)
pt3dadd(134.662, 88.13, 23.254, 0.678)
pt3dadd(134.755, 88.103, 23.312, 0.678)
pt3dadd(134.85, 88.076, 23.37, 0.678)
pt3dadd(134.933, 88.05, 23.438, 0.678)
pt3dadd(135.012, 88.026, 23.511, 0.678)
pt3dadd(135.09, 88.002, 23.584, 0.678)
pt3dadd(135.168, 87.978, 23.657, 0.678)
pt3dadd(135.25, 87.96, 23.729, 0.678)
pt3dadd(135.337, 87.96, 23.797, 0.678)
pt3dadd(135.427, 87.96, 23.863, 0.678)
pt3dadd(135.53, 87.96, 23.913, 0.678)
pt3dadd(135.634, 87.96, 23.964, 0.678)
pt3dadd(135.746, 87.924, 23.982, 0.678)
pt3dadd(135.858, 87.887, 23.997, 0.678)
pt3dadd(135.977, 87.868, 24, 0.678)
pt3dadd(136.096, 87.853, 24, 0.678)
pt3dadd(136.214, 87.84, 24.002, 0.678)
pt3dadd(136.332, 87.84, 24.022, 0.678)
pt3dadd(136.448, 87.84, 24.045, 0.678)
pt3dadd(136.564, 87.84, 24.072, 0.678)
pt3dadd(136.679, 87.84, 24.1, 0.678)
pt3dadd(136.794, 87.834, 24.129, 0.678)
pt3dadd(136.909, 87.829, 24.157, 0.678)
pt3dadd(137.01, 87.787, 24.191, 0.678)
pt3dadd(137.106, 87.729, 24.228, 0.678)
pt3dadd(137.178, 87.649, 24.271, 0.678)
pt3dadd(137.25, 87.571, 24.314, 0.678)
pt3dadd(137.362, 87.544, 24.343, 0.678)
pt3dadd(137.473, 87.517, 24.371, 0.678)
pt3dadd(137.585, 87.49, 24.4, 0.678)
pt3dadd(137.695, 87.468, 24.435, 0.678)
pt3dadd(137.804, 87.449, 24.472, 0.678)
pt3dadd(137.91, 87.406, 24.498, 0.678)
pt3dadd(138.024, 87.393, 24.522, 0.678)
pt3dadd(138.14, 87.386, 24.546, 0.678)
pt3dadd(138.257, 87.379, 24.57, 0.678)
pt3dadd(138.373, 87.372, 24.594, 0.678)
pt3dadd(138.49, 87.364, 24.618, 0.678)
pt3dadd(138.606, 87.36, 24.643, 0.678)
pt3dadd(138.721, 87.36, 24.668, 0.678)
pt3dadd(138.838, 87.36, 24.694, 0.678)
pt3dadd(138.954, 87.36, 24.719, 0.678)
pt3dadd(139.07, 87.36, 24.744, 0.678)
pt3dadd(139.186, 87.36, 24.769, 0.678)
pt3dadd(139.271, 87.36, 24.832, 0.678)
pt3dadd(139.339, 87.36, 24.914, 0.678)
pt3dadd(139.429, 87.36, 24.972, 0.678)
pt3dadd(139.542, 87.36, 25.005, 0.678)
pt3dadd(139.656, 87.36, 25.037, 0.678)
pt3dadd(139.771, 87.36, 25.065, 0.678)
pt3dadd(139.886, 87.36, 25.092, 0.678)
pt3dadd(140.005, 87.36, 25.1, 0.678)
pt3dadd(140.125, 87.36, 25.1, 0.678)
pt3dadd(140.245, 87.36, 25.1, 0.678)
pt3dadd(140.365, 87.36, 25.1, 0.678)
pt3dadd(140.485, 87.36, 25.1, 0.678)
pt3dadd(140.605, 87.36, 25.1, 0.678)
pt3dadd(140.725, 87.36, 25.1, 0.678)
pt3dadd(140.845, 87.36, 25.1, 0.678)
pt3dadd(140.965, 87.36, 25.1, 0.678)
pt3dadd(141.085, 87.36, 25.1, 0.678)
pt3dadd(141.205, 87.36, 25.1, 0.678)
pt3dadd(141.325, 87.36, 25.1, 0.678)
pt3dadd(141.445, 87.36, 25.1, 0.678)
pt3dadd(141.565, 87.36, 25.1, 0.678)
pt3dadd(141.685, 87.36, 25.1, 0.678)
pt3dadd(141.805, 87.36, 25.1, 0.678)
pt3dadd(141.925, 87.36, 25.1, 0.678)
pt3dadd(142.045, 87.36, 25.1, 0.678)
pt3dadd(142.165, 87.36, 25.1, 0.678)
pt3dadd(142.285, 87.36, 25.1, 0.678)
pt3dadd(142.405, 87.36, 25.1, 0.678)
pt3dadd(142.525, 87.36, 25.1, 0.678)
pt3dadd(142.645, 87.36, 25.1, 0.678)
pt3dadd(142.765, 87.36, 25.1, 0.678)
pt3dadd(142.885, 87.36, 25.1, 0.678)
pt3dadd(143.005, 87.36, 25.1, 0.678)
pt3dadd(143.117, 87.322, 25.1, 0.678)
pt3dadd(143.224, 87.268, 25.1, 0.678)
pt3dadd(143.332, 87.215, 25.1, 0.678)
pt3dadd(143.438, 87.161, 25.1, 0.678)
pt3dadd(143.546, 87.107, 25.1, 0.678)
pt3dadd(143.646, 87.049, 25.117, 0.678)
pt3dadd(143.741, 86.987, 25.151, 0.678)
pt3dadd(143.834, 86.924, 25.184, 0.678)
pt3dadd(143.928, 86.861, 25.219, 0.678)
pt3dadd(144.02, 86.8, 25.257, 0.678)
pt3dadd(144.104, 86.745, 25.311, 0.678)
pt3dadd(144.188, 86.69, 25.365, 0.678)
pt3dadd(144.274, 86.635, 25.42, 0.678)
pt3dadd(144.36, 86.578, 25.468, 0.678)
pt3dadd(144.457, 86.508, 25.475, 0.678)
pt3dadd(144.554, 86.439, 25.482, 0.678)
pt3dadd(144.652, 86.369, 25.488, 0.678)
pt3dadd(144.749, 86.299, 25.495, 0.678)
pt3dadd(144.848, 86.235, 25.507, 0.678)
pt3dadd(144.952, 86.179, 25.529, 0.678)
pt3dadd(145.054, 86.123, 25.552, 0.678)
pt3dadd(145.157, 86.067, 25.574, 0.678)
pt3dadd(145.26, 86.011, 25.596, 0.678)
pt3dadd(145.362, 85.95, 25.6, 0.678)
pt3dadd(145.464, 85.887, 25.6, 0.678)
pt3dadd(145.566, 85.824, 25.6, 0.678)
pt3dadd(145.669, 85.761, 25.6, 0.678)
pt3dadd(145.771, 85.698, 25.6, 0.678)
pt3dadd(145.877, 85.642, 25.6, 0.678)
pt3dadd(145.984, 85.588, 25.6, 0.678)
pt3dadd(146.092, 85.534, 25.6, 0.678)
pt3dadd(146.198, 85.481, 25.6, 0.678)
pt3dadd(146.306, 85.427, 25.6, 0.678)
pt3dadd(146.417, 85.387, 25.61, 0.678)
pt3dadd(146.532, 85.361, 25.629, 0.678)
pt3dadd(146.647, 85.335, 25.649, 0.678)
pt3dadd(146.761, 85.309, 25.668, 0.678)
pt3dadd(146.876, 85.283, 25.688, 0.678)
pt3dadd(146.983, 85.24, 25.706, 0.678)
pt3dadd(147.079, 85.17, 25.72, 0.678)
pt3dadd(147.175, 85.1, 25.735, 0.678)
pt3dadd(147.271, 85.03, 25.749, 0.678)
pt3dadd(147.367, 84.96, 25.764, 0.678)
pt3dadd(147.463, 84.9, 25.796, 0.678)
pt3dadd(147.558, 84.841, 25.833, 0.678)
pt3dadd(147.628, 84.772, 25.89, 0.678)
pt3dadd(147.703, 84.706, 25.942, 0.678)
pt3dadd(147.799, 84.647, 25.979, 0.678)
pt3dadd(147.905, 84.611, 26, 0.678)
pt3dadd(148.025, 84.607, 26, 0.678)
pt3dadd(148.144, 84.602, 26, 0.678)
pt3dadd(148.264, 84.6, 26.003, 0.678)
pt3dadd(148.384, 84.6, 26.009, 0.678)
pt3dadd(148.495, 84.583, 26.037, 0.678)
pt3dadd(148.602, 84.558, 26.078, 0.678)
pt3dadd(148.708, 84.532, 26.119, 0.678)
pt3dadd(148.814, 84.506, 26.16, 0.678)
pt3dadd(148.921, 84.48, 26.2, 0.678)
pt3dadd(149.033, 84.435, 26.2, 0.678)
pt3dadd(149.143, 84.39, 26.2, 0.678)
pt3dadd(149.255, 84.346, 26.2, 0.678)
pt3dadd(149.366, 84.301, 26.2, 0.678)
pt3dadd(149.478, 84.257, 26.2, 0.678)
pt3dadd(149.594, 84.24, 26.2, 0.678)
pt3dadd(149.714, 84.24, 26.2, 0.678)
pt3dadd(149.834, 84.24, 26.2, 0.678)
pt3dadd(149.947, 84.24, 26.228, 0.678)
pt3dadd(150.054, 84.24, 26.273, 0.678)
pt3dadd(150.143, 84.22, 26.329, 0.678)
pt3dadd(150.203, 84.167, 26.404, 0.678)
pt3dadd(150.235, 84.107, 26.483, 0.678)
pt3dadd(150.248, 84.04, 26.566, 0.678)
pt3dadd(150.314, 83.986, 26.618, 0.678)
pt3dadd(150.419, 83.94, 26.65, 0.678)
pt3dadd(150.523, 83.895, 26.681, 0.678)
pt3dadd(150.589, 83.823, 26.714, 0.678)
pt3dadd(150.595, 83.71, 26.748, 0.678)
pt3dadd(150.602, 83.603, 26.789, 0.678)
pt3dadd(150.617, 83.526, 26.865, 0.678)
pt3dadd(150.632, 83.45, 26.941, 0.678)
pt3dadd(150.66, 83.4, 27.025, 0.678)
pt3dadd(150.698, 83.374, 27.117, 0.678)
pt3dadd(150.744, 83.321, 27.193, 0.678)
pt3dadd(150.794, 83.236, 27.249, 0.678)
pt3dadd(150.851, 83.154, 27.3, 0.678)
pt3dadd(150.954, 83.093, 27.3, 0.678)
pt3dadd(151.058, 83.032, 27.3, 0.678)
pt3dadd(151.171, 82.995, 27.302, 0.678)
pt3dadd(151.282, 82.95, 27.318, 0.678)
pt3dadd(151.39, 82.904, 27.334, 0.678)
pt3dadd(151.447, 82.808, 27.371, 0.678)
pt3dadd(151.518, 82.729, 27.401, 0.678)
pt3dadd(151.636, 82.707, 27.405, 0.678)
pt3dadd(151.754, 82.686, 27.41, 0.678)
pt3dadd(151.868, 82.68, 27.435, 0.678)
pt3dadd(151.981, 82.68, 27.468, 0.678)
pt3dadd(152.094, 82.67, 27.501, 0.678)
pt3dadd(152.203, 82.642, 27.534, 0.678)
pt3dadd(152.314, 82.615, 27.567, 0.678)
pt3dadd(152.424, 82.587, 27.599, 0.678)
pt3dadd(152.467, 82.477, 27.605, 0.678)
}
}
proc shape3d_146() {
dend_7[27] { pt3dadd(152.508, 82.365, 27.61, 0.678)
pt3dadd(152.534, 82.253, 27.634, 0.678)
pt3dadd(152.612, 82.184, 27.683, 0.678)
pt3dadd(152.692, 82.115, 27.732, 0.678)
pt3dadd(152.77, 82.046, 27.781, 0.678)
pt3dadd(152.849, 81.977, 27.83, 0.678)
pt3dadd(152.917, 81.892, 27.871, 0.678)
pt3dadd(152.984, 81.805, 27.911, 0.678)
pt3dadd(153.052, 81.718, 27.951, 0.678)
pt3dadd(153.119, 81.631, 27.992, 0.678)
pt3dadd(153.204, 81.563, 28.032, 0.678)
pt3dadd(153.294, 81.499, 28.072, 0.678)
pt3dadd(153.383, 81.435, 28.112, 0.678)
pt3dadd(153.473, 81.371, 28.152, 0.678)
pt3dadd(153.545, 81.299, 28.202, 0.678)
pt3dadd(153.606, 81.222, 28.26, 0.678)
pt3dadd(153.697, 81.162, 28.299, 0.678)
pt3dadd(153.793, 81.104, 28.335, 0.678)
pt3dadd(153.893, 81.054, 28.371, 0.678)
pt3dadd(153.997, 81.011, 28.4, 0.678)
pt3dadd(154.116, 81.002, 28.4, 0.678)
pt3dadd(154.236, 80.992, 28.4, 0.678)
pt3dadd(154.337, 80.955, 28.419, 0.678)
pt3dadd(154.41, 80.877, 28.464, 0.678)
pt3dadd(154.483, 80.8, 28.51, 0.678)
pt3dadd(154.534, 80.712, 28.559, 0.678)
pt3dadd(154.562, 80.614, 28.612, 0.678)
pt3dadd(154.614, 80.532, 28.667, 0.678)
pt3dadd(154.673, 80.451, 28.722, 0.678)
pt3dadd(154.732, 80.369, 28.776, 0.678)
pt3dadd(154.79, 80.287, 28.831, 0.678)
pt3dadd(154.849, 80.205, 28.885, 0.678)
pt3dadd(154.94, 80.139, 28.917, 0.678)
pt3dadd(155.03, 80.078, 28.952, 0.678)
pt3dadd(155.076, 80.059, 29.043, 0.678)
pt3dadd(155.122, 80.039, 29.135, 0.678)
pt3dadd(155.171, 79.996, 29.218, 0.678)
pt3dadd(155.227, 79.948, 29.29, 0.678)
pt3dadd(155.318, 79.87, 29.295, 0.678)
pt3dadd(155.41, 79.792, 29.301, 0.678)
pt3dadd(155.498, 79.713, 29.309, 0.678)
pt3dadd(155.564, 79.639, 29.359, 0.678)
pt3dadd(155.624, 79.566, 29.422, 0.678)
pt3dadd(155.683, 79.494, 29.485, 0.678)
pt3dadd(155.742, 79.422, 29.548, 0.678)
pt3dadd(155.819, 79.366, 29.608, 0.678)
pt3dadd(155.902, 79.318, 29.667, 0.678)
pt3dadd(155.986, 79.27, 29.726, 0.678)
pt3dadd(156.07, 79.221, 29.785, 0.678)
pt3dadd(156.154, 79.196, 29.851, 0.678)
pt3dadd(156.239, 79.19, 29.921, 0.678)
pt3dadd(156.329, 79.16, 29.978, 0.678)
pt3dadd(156.425, 79.109, 30.02, 0.678)
pt3dadd(156.529, 79.07, 30.057, 0.678)
pt3dadd(156.637, 79.036, 30.09, 0.678)
pt3dadd(156.701, 78.947, 30.1, 0.678)
pt3dadd(156.746, 78.837, 30.1, 0.678)
pt3dadd(156.814, 78.741, 30.1, 0.678)
pt3dadd(156.907, 78.667, 30.1, 0.678)
pt3dadd(156.991, 78.596, 30.14, 0.678)
pt3dadd(157.074, 78.525, 30.181, 0.678)
pt3dadd(157.158, 78.454, 30.221, 0.678)
pt3dadd(157.242, 78.383, 30.261, 0.678)
pt3dadd(157.346, 78.348, 30.3, 0.678)
pt3dadd(157.453, 78.319, 30.339, 0.678)
pt3dadd(157.56, 78.291, 30.377, 0.678)
pt3dadd(157.667, 78.262, 30.416, 0.678)
pt3dadd(157.769, 78.24, 30.462, 0.678)
pt3dadd(157.855, 78.24, 30.531, 0.678)
pt3dadd(157.94, 78.24, 30.601, 0.678)
pt3dadd(158.027, 78.24, 30.671, 0.678)
pt3dadd(158.113, 78.24, 30.74, 0.678)
pt3dadd(158.197, 78.24, 30.812, 0.678)
pt3dadd(158.274, 78.24, 30.888, 0.678)
pt3dadd(158.352, 78.24, 30.964, 0.678)
pt3dadd(158.43, 78.24, 31.04, 0.678)
pt3dadd(158.508, 78.24, 31.116, 0.678)
pt3dadd(158.57, 78.24, 31.199, 0.678)
pt3dadd(158.604, 78.24, 31.295, 0.678)
pt3dadd(158.636, 78.24, 31.391, 0.678)
pt3dadd(158.644, 78.24, 31.491, 0.678)
pt3dadd(158.648, 78.24, 31.591, 0.678)
pt3dadd(158.656, 78.24, 31.69, 0.678)
pt3dadd(158.754, 78.24, 31.747, 0.678)
pt3dadd(158.852, 78.24, 31.803, 0.678)
pt3dadd(158.953, 78.203, 31.847, 0.678)
pt3dadd(159.053, 78.16, 31.889, 0.678)
pt3dadd(159.115, 78.135, 31.972, 0.678)
pt3dadd(159.178, 78.11, 32.055, 0.678)
pt3dadd(159.24, 78.085, 32.138, 0.678)
pt3dadd(159.318, 78.045, 32.205, 0.678)
pt3dadd(159.4, 78, 32.267, 0.678)
pt3dadd(159.509, 77.995, 32.308, 0.678)
pt3dadd(159.618, 77.991, 32.35, 0.678)
pt3dadd(159.726, 77.983, 32.392, 0.678)
pt3dadd(159.822, 77.932, 32.435, 0.678)
pt3dadd(159.922, 77.889, 32.475, 0.678)
pt3dadd(160.036, 77.861, 32.492, 0.678)
pt3dadd(160.15, 77.827, 32.496, 0.678)
pt3dadd(160.265, 77.793, 32.5, 0.678)
pt3dadd(160.38, 77.76, 32.5, 0.678)
pt3dadd(160.495, 77.727, 32.5, 0.678)
pt3dadd(160.576, 77.644, 32.504, 0.678)
pt3dadd(160.646, 77.547, 32.51, 0.678)
pt3dadd(160.711, 77.471, 32.557, 0.678)
pt3dadd(160.772, 77.402, 32.621, 0.678)
pt3dadd(160.873, 77.388, 32.673, 0.678)
pt3dadd(160.975, 77.377, 32.725, 0.678)
pt3dadd(161.076, 77.365, 32.778, 0.678)
pt3dadd(161.185, 77.337, 32.8, 0.678)
pt3dadd(161.298, 77.298, 32.8, 0.678)
pt3dadd(161.412, 77.26, 32.8, 0.678)
pt3dadd(161.519, 77.21, 32.8, 0.678)
pt3dadd(161.612, 77.134, 32.8, 0.678)
pt3dadd(161.712, 77.076, 32.8, 0.678)
pt3dadd(161.832, 77.061, 32.8, 0.678)
pt3dadd(161.951, 77.046, 32.8, 0.678)
pt3dadd(162.065, 77.025, 32.819, 0.678)
pt3dadd(162.175, 76.999, 32.852, 0.678)
pt3dadd(162.242, 76.926, 32.875, 0.678)
pt3dadd(162.272, 76.811, 32.89, 0.678)
pt3dadd(162.329, 76.725, 32.909, 0.678)
pt3dadd(162.44, 76.698, 32.938, 0.678)
pt3dadd(162.552, 76.671, 32.967, 0.678)
pt3dadd(162.664, 76.644, 32.996, 0.678)
pt3dadd(162.766, 76.603, 33.036, 0.678)
pt3dadd(162.866, 76.56, 33.078, 0.678)
pt3dadd(162.95, 76.553, 33.146, 0.678)
pt3dadd(163.055, 76.526, 33.189, 0.678)
pt3dadd(163.159, 76.5, 33.233, 0.678)
pt3dadd(163.264, 76.474, 33.277, 0.678)
pt3dadd(163.369, 76.448, 33.32, 0.678)
pt3dadd(163.466, 76.399, 33.359, 0.678)
pt3dadd(163.562, 76.34, 33.396, 0.678)
pt3dadd(163.67, 76.292, 33.4, 0.678)
pt3dadd(163.781, 76.246, 33.4, 0.678)
pt3dadd(163.856, 76.167, 33.421, 0.678)
pt3dadd(163.907, 76.067, 33.457, 0.678)
pt3dadd(163.924, 75.954, 33.476, 0.678)
pt3dadd(163.928, 75.835, 33.489, 0.678)
pt3dadd(163.944, 75.72, 33.503, 0.678)
pt3dadd(164.016, 75.627, 33.524, 0.678)
pt3dadd(164.087, 75.534, 33.545, 0.678)
pt3dadd(164.159, 75.441, 33.566, 0.678)
pt3dadd(164.27, 75.403, 33.582, 0.678)
pt3dadd(164.383, 75.366, 33.598, 0.678)
pt3dadd(164.502, 75.36, 33.611, 0.678)
pt3dadd(164.604, 75.338, 33.658, 0.678)
pt3dadd(164.707, 75.314, 33.706, 0.678)
pt3dadd(164.809, 75.291, 33.755, 0.678)
pt3dadd(164.911, 75.268, 33.804, 0.678)
pt3dadd(165.004, 75.242, 33.861, 0.678)
pt3dadd(165.083, 75.214, 33.933, 0.678)
pt3dadd(165.174, 75.168, 33.976, 0.678)
pt3dadd(165.275, 75.107, 33.992, 0.678)
pt3dadd(165.361, 75.028, 34, 0.678)
pt3dadd(165.437, 74.934, 34, 0.678)
pt3dadd(165.509, 74.838, 34, 0.678)
pt3dadd(165.576, 74.739, 34, 0.678)
pt3dadd(165.652, 74.647, 34, 0.678)
pt3dadd(165.745, 74.572, 34, 0.678)
pt3dadd(165.854, 74.527, 34, 0.678)
pt3dadd(165.968, 74.487, 34, 0.678)
pt3dadd(166.039, 74.414, 34.016, 0.678)
pt3dadd(166.066, 74.303, 34.048, 0.678)
pt3dadd(166.08, 74.189, 34.074, 0.678)
pt3dadd(166.08, 74.071, 34.091, 0.678)
pt3dadd(166.08, 73.953, 34.108, 0.678)
pt3dadd(166.085, 73.848, 34.155, 0.678)
pt3dadd(166.092, 73.747, 34.208, 0.678)
pt3dadd(166.133, 73.688, 34.282, 0.678)
pt3dadd(166.194, 73.627, 34.348, 0.678)
pt3dadd(166.259, 73.548, 34.401, 0.678)
pt3dadd(166.325, 73.469, 34.452, 0.678)
pt3dadd(166.391, 73.39, 34.504, 0.678)
pt3dadd(166.457, 73.303, 34.54, 0.678)
pt3dadd(166.523, 73.205, 34.554, 0.678)
pt3dadd(166.589, 73.106, 34.569, 0.678)
pt3dadd(166.656, 73.008, 34.583, 0.678)
pt3dadd(166.722, 72.909, 34.598, 0.678)
pt3dadd(166.813, 72.838, 34.619, 0.678)
pt3dadd(166.91, 72.772, 34.642, 0.678)
pt3dadd(167.006, 72.706, 34.664, 0.678)
pt3dadd(167.102, 72.639, 34.687, 0.678)
pt3dadd(167.2, 72.575, 34.709, 0.678)
pt3dadd(167.299, 72.512, 34.731, 0.678)
pt3dadd(167.398, 72.449, 34.754, 0.678)
pt3dadd(167.496, 72.386, 34.776, 0.678)
pt3dadd(167.594, 72.324, 34.799, 0.678)
pt3dadd(167.688, 72.249, 34.8, 0.678)
pt3dadd(167.782, 72.174, 34.8, 0.678)
pt3dadd(167.893, 72.133, 34.8, 0.678)
pt3dadd(168.008, 72.1, 34.8, 0.678)
pt3dadd(168.124, 72.066, 34.806, 0.678)
pt3dadd(168.235, 72.028, 34.821, 0.678)
pt3dadd(168.343, 72, 34.849, 0.678)
pt3dadd(168.437, 72, 34.911, 0.678)
pt3dadd(168.534, 71.999, 34.968, 0.678)
pt3dadd(168.653, 71.986, 34.975, 0.678)
pt3dadd(168.772, 71.974, 34.983, 0.678)
}
}
proc shape3d_147() {
dend_7[27] { pt3dadd(168.89, 71.961, 34.991, 0.678)
pt3dadd(169.009, 71.949, 34.999, 0.678)
pt3dadd(169.097, 71.872, 35, 0.678)
pt3dadd(169.178, 71.784, 35, 0.678)
pt3dadd(169.278, 71.721, 35, 0.678)
pt3dadd(169.378, 71.654, 35.009, 0.678)
pt3dadd(169.476, 71.586, 35.019, 0.678)
pt3dadd(169.574, 71.519, 35.028, 0.678)
pt3dadd(169.673, 71.451, 35.037, 0.678)
pt3dadd(169.766, 71.381, 35.054, 0.678)
pt3dadd(169.847, 71.304, 35.091, 0.678)
pt3dadd(169.927, 71.227, 35.129, 0.678)
pt3dadd(170.008, 71.15, 35.166, 0.678)
pt3dadd(170.089, 71.073, 35.2, 0.678)
pt3dadd(170.185, 71.001, 35.2, 0.678)
pt3dadd(170.281, 70.929, 35.2, 0.678)
pt3dadd(170.377, 70.857, 35.2, 0.678)
pt3dadd(170.473, 70.785, 35.2, 0.678)
pt3dadd(170.569, 70.714, 35.2, 0.678)
pt3dadd(170.67, 70.648, 35.2, 0.678)
pt3dadd(170.77, 70.582, 35.2, 0.678)
pt3dadd(170.87, 70.516, 35.2, 0.678)
pt3dadd(170.97, 70.45, 35.2, 0.678)
pt3dadd(171.068, 70.383, 35.2, 0.678)
pt3dadd(171.115, 70.272, 35.2, 0.678)
pt3dadd(171.161, 70.161, 35.2, 0.678)
pt3dadd(171.26, 70.113, 35.2, 0.678)
pt3dadd(171.377, 70.087, 35.2, 0.678)
pt3dadd(171.49, 70.051, 35.2, 0.678)
pt3dadd(171.589, 69.983, 35.2, 0.678)
pt3dadd(171.683, 69.912, 35.202, 0.678)
pt3dadd(171.708, 69.801, 35.235, 0.678)
pt3dadd(171.734, 69.692, 35.269, 0.678)
pt3dadd(171.784, 69.634, 35.346, 0.678)
pt3dadd(171.832, 69.576, 35.424, 0.678)
pt3dadd(171.882, 69.519, 35.502, 0.678)
pt3dadd(171.967, 69.491, 35.567, 0.678)
pt3dadd(172.057, 69.46, 35.627, 0.678)
pt3dadd(172.164, 69.42, 35.657, 0.678)
pt3dadd(172.271, 69.379, 35.686, 0.678)
pt3dadd(172.385, 69.352, 35.7, 0.678)
pt3dadd(172.504, 69.337, 35.7, 0.678)
pt3dadd(172.622, 69.322, 35.7, 0.678)
pt3dadd(172.733, 69.279, 35.702, 0.678)
pt3dadd(172.85, 69.272, 35.719, 0.678)
pt3dadd(172.969, 69.265, 35.737, 0.678)
pt3dadd(173.087, 69.258, 35.754, 0.678)
pt3dadd(173.204, 69.252, 35.771, 0.678)
pt3dadd(173.323, 69.245, 35.789, 0.678)
pt3dadd(173.441, 69.24, 35.804, 0.678)
pt3dadd(173.561, 69.24, 35.814, 0.678)
pt3dadd(173.68, 69.24, 35.825, 0.678)
pt3dadd(173.8, 69.24, 35.835, 0.678)
pt3dadd(173.918, 69.24, 35.845, 0.678)
pt3dadd(174.038, 69.24, 35.856, 0.678)
pt3dadd(174.157, 69.24, 35.867, 0.678)
pt3dadd(174.262, 69.24, 35.916, 0.678)
pt3dadd(174.365, 69.24, 35.967, 0.678)
pt3dadd(174.467, 69.235, 36.02, 0.678)
pt3dadd(174.568, 69.229, 36.072, 0.678)
pt3dadd(174.676, 69.193, 36.092, 0.678)
pt3dadd(174.785, 69.145, 36.097, 0.678)
pt3dadd(174.895, 69.097, 36.1, 0.678)
pt3dadd(175.006, 69.05, 36.1, 0.678)
pt3dadd(175.117, 69.006, 36.1, 0.678)
pt3dadd(175.231, 68.969, 36.1, 0.678)
pt3dadd(175.345, 68.932, 36.1, 0.678)
pt3dadd(175.459, 68.895, 36.1, 0.678)
pt3dadd(175.553, 68.839, 36.1, 0.678)
pt3dadd(175.579, 68.722, 36.1, 0.678)
pt3dadd(175.606, 68.605, 36.1, 0.678)
pt3dadd(175.691, 68.534, 36.1, 0.678)
pt3dadd(175.811, 68.524, 36.1, 0.678)
pt3dadd(175.93, 68.514, 36.1, 0.678)
pt3dadd(176.042, 68.491, 36.101, 0.678)
pt3dadd(176.128, 68.406, 36.106, 0.678)
pt3dadd(176.209, 68.329, 36.123, 0.678)
pt3dadd(176.272, 68.301, 36.205, 0.678)
pt3dadd(176.344, 68.28, 36.281, 0.678)
pt3dadd(176.443, 68.28, 36.337, 0.678)
pt3dadd(176.544, 68.28, 36.389, 0.678)
pt3dadd(176.663, 68.28, 36.395, 0.678)
pt3dadd(176.78, 68.28, 36.41, 0.678)
pt3dadd(176.884, 68.28, 36.459, 0.678)
pt3dadd(176.988, 68.28, 36.509, 0.678)
pt3dadd(177.092, 68.28, 36.559, 0.678)
pt3dadd(177.196, 68.28, 36.609, 0.678)
pt3dadd(177.301, 68.28, 36.658, 0.678)
pt3dadd(177.414, 68.28, 36.69, 0.678)
pt3dadd(177.528, 68.28, 36.722, 0.678)
pt3dadd(177.642, 68.28, 36.754, 0.678)
pt3dadd(177.755, 68.28, 36.786, 0.678)
pt3dadd(177.869, 68.28, 36.819, 0.678)
pt3dadd(177.976, 68.28, 36.863, 0.678)
pt3dadd(178.075, 68.28, 36.918, 0.678)
pt3dadd(178.176, 68.28, 36.973, 0.678)
pt3dadd(178.276, 68.28, 37.028, 0.678)
pt3dadd(178.376, 68.28, 37.083, 0.678)
pt3dadd(178.457, 68.28, 37.154, 0.678)
pt3dadd(178.518, 68.28, 37.24, 0.678)
pt3dadd(178.594, 68.28, 37.312, 0.678)
pt3dadd(178.704, 68.28, 37.351, 0.678)
pt3dadd(178.814, 68.28, 37.389, 0.678)
pt3dadd(178.934, 68.28, 37.393, 0.678)
pt3dadd(179.054, 68.28, 37.397, 0.678)
pt3dadd(179.174, 68.28, 37.4, 0.678)
pt3dadd(179.294, 68.28, 37.4, 0.678)
pt3dadd(179.414, 68.28, 37.4, 0.678)
pt3dadd(179.534, 68.28, 37.401, 0.678)
pt3dadd(179.654, 68.28, 37.407, 0.678)
pt3dadd(179.771, 68.28, 37.422, 0.678)
pt3dadd(179.874, 68.28, 37.472, 0.678)
pt3dadd(179.978, 68.28, 37.522, 0.678)
pt3dadd(180.083, 68.28, 37.572, 0.678)
pt3dadd(180.186, 68.28, 37.622, 0.678)
pt3dadd(180.292, 68.28, 37.67, 0.678)
pt3dadd(180.406, 68.28, 37.702, 0.678)
pt3dadd(180.518, 68.28, 37.734, 0.678)
pt3dadd(180.632, 68.28, 37.767, 0.678)
pt3dadd(180.746, 68.28, 37.799, 0.678)
pt3dadd(180.859, 68.28, 37.831, 0.678)
pt3dadd(180.967, 68.28, 37.873, 0.678)
pt3dadd(181.072, 68.28, 37.923, 0.678)
pt3dadd(181.176, 68.28, 37.973, 0.678)
pt3dadd(181.279, 68.28, 38.023, 0.678)
pt3dadd(181.384, 68.28, 38.073, 0.678)
pt3dadd(181.48, 68.288, 38.131, 0.678)
pt3dadd(181.565, 68.306, 38.2, 0.678)
pt3dadd(181.65, 68.323, 38.269, 0.678)
pt3dadd(181.735, 68.341, 38.338, 0.678)
pt3dadd(181.82, 68.359, 38.406, 0.678)
pt3dadd(181.915, 68.368, 38.467, 0.678)
pt3dadd(182.01, 68.376, 38.528, 0.678)
pt3dadd(182.105, 68.385, 38.589, 0.678)
pt3dadd(182.201, 68.393, 38.649, 0.678)
pt3dadd(182.296, 68.4, 38.709, 0.678)
pt3dadd(182.394, 68.4, 38.767, 0.678)
pt3dadd(182.492, 68.4, 38.824, 0.678)
pt3dadd(182.591, 68.4, 38.882, 0.678)
pt3dadd(182.688, 68.4, 38.939, 0.678)
pt3dadd(182.784, 68.4, 38.999, 0.678)
pt3dadd(182.867, 68.4, 39.072, 0.678)
pt3dadd(182.948, 68.4, 39.145, 0.678)
pt3dadd(183.036, 68.4, 39.213, 0.678)
pt3dadd(183.124, 68.4, 39.282, 0.678)
pt3dadd(183.24, 68.4, 39.292, 0.678)
pt3dadd(183.36, 68.4, 39.297, 0.678)
pt3dadd(183.48, 68.4, 39.3, 0.678)
pt3dadd(183.6, 68.4, 39.3, 0.678)
}
dend_0[10] {pt3dclear()
pt3dadd(96.72, 103.861, 13.08, 9.944)
pt3dadd(96.718, 103.835, 13.056, 9.878)
pt3dadd(96.712, 103.756, 12.981, 9.676)
pt3dadd(96.705, 103.676, 12.907, 9.472)
pt3dadd(96.699, 103.597, 12.832, 9.27)
pt3dadd(96.693, 103.517, 12.757, 9.066)
pt3dadd(96.687, 103.438, 12.683, 8.864)
pt3dadd(96.68, 103.358, 12.608, 8.66)
pt3dadd(96.674, 103.278, 12.533, 8.458)
pt3dadd(96.668, 103.199, 12.459, 8.254)
pt3dadd(96.662, 103.119, 12.384, 8.052)
pt3dadd(96.667, 103.034, 12.314, 7.858)
pt3dadd(96.678, 102.947, 12.246, 7.67)
pt3dadd(96.688, 102.859, 12.178, 7.48)
pt3dadd(96.698, 102.772, 12.11, 7.29)
pt3dadd(96.708, 102.684, 12.042, 7.102)
pt3dadd(96.718, 102.597, 11.975, 6.912)
pt3dadd(96.729, 102.509, 11.906, 6.724)
pt3dadd(96.739, 102.422, 11.839, 6.534)
pt3dadd(96.749, 102.335, 11.771, 6.346)
pt3dadd(96.759, 102.247, 11.703, 6.156)
pt3dadd(96.795, 102.152, 11.65, 5.998)
}
dend_7[28] {pt3dclear()
pt3dadd(96.795, 102.152, 11.65, 5.998)
pt3dadd(96.833, 102.057, 11.598, 5.842)
pt3dadd(96.871, 101.962, 11.545, 5.686)
pt3dadd(96.909, 101.867, 11.493, 5.528)
pt3dadd(96.946, 101.771, 11.441, 5.372)
pt3dadd(96.984, 101.676, 11.389, 5.216)
pt3dadd(97.022, 101.581, 11.337, 5.06)
pt3dadd(97.059, 101.486, 11.285, 4.904)
pt3dadd(97.097, 101.391, 11.233, 4.748)
pt3dadd(97.135, 101.295, 11.181, 4.59)
pt3dadd(97.198, 101.201, 11.148, 4.454)
pt3dadd(97.261, 101.107, 11.115, 4.318)
pt3dadd(97.324, 101.013, 11.082, 4.182)
pt3dadd(97.387, 100.919, 11.049, 4.044)
pt3dadd(97.451, 100.825, 11.017, 3.908)
pt3dadd(97.514, 100.73, 10.984, 3.772)
pt3dadd(97.577, 100.636, 10.951, 3.636)
pt3dadd(97.64, 100.542, 10.918, 3.498)
pt3dadd(97.703, 100.448, 10.885, 3.362)
pt3dadd(97.766, 100.354, 10.853, 3.226)
pt3dadd(97.837, 100.263, 10.826, 3.084)
pt3dadd(97.909, 100.171, 10.8, 2.942)
pt3dadd(97.98, 100.08, 10.774, 2.8)
pt3dadd(98.051, 99.989, 10.747, 2.658)
pt3dadd(98.122, 99.897, 10.721, 2.516)
pt3dadd(98.193, 99.806, 10.695, 2.376)
pt3dadd(98.265, 99.715, 10.668, 2.234)
pt3dadd(98.336, 99.623, 10.642, 2.092)
pt3dadd(98.407, 99.532, 10.616, 1.95)
}
}
proc shape3d_148() {
dend_7[28] { pt3dadd(98.478, 99.441, 10.589, 1.808)
}
dend_7[29] {pt3dclear()
pt3dadd(98.478, 99.441, 10.589, 1.808)
pt3dadd(98.479, 99.44, 10.589, 1.808)
pt3dadd(98.538, 99.362, 10.531, 1.808)
pt3dadd(98.597, 99.284, 10.473, 1.808)
pt3dadd(98.656, 99.206, 10.415, 1.808)
pt3dadd(98.715, 99.128, 10.357, 1.808)
pt3dadd(98.774, 99.05, 10.299, 1.808)
pt3dadd(98.833, 98.972, 10.241, 1.808)
pt3dadd(98.892, 98.894, 10.183, 1.808)
pt3dadd(98.952, 98.816, 10.125, 1.808)
pt3dadd(98.998, 98.734, 10.064, 1.796)
pt3dadd(99.032, 98.649, 10, 1.776)
pt3dadd(99.067, 98.564, 9.935, 1.754)
pt3dadd(99.101, 98.479, 9.871, 1.732)
pt3dadd(99.136, 98.394, 9.807, 1.712)
pt3dadd(99.17, 98.308, 9.742, 1.69)
pt3dadd(99.205, 98.223, 9.678, 1.668)
pt3dadd(99.239, 98.138, 9.614, 1.646)
pt3dadd(99.273, 98.053, 9.549, 1.626)
pt3dadd(99.308, 97.968, 9.485, 1.604)
pt3dadd(99.353, 97.877, 9.433, 1.55)
pt3dadd(99.406, 97.782, 9.392, 1.47)
pt3dadd(99.46, 97.687, 9.351, 1.388)
pt3dadd(99.514, 97.591, 9.31, 1.306)
pt3dadd(99.567, 97.496, 9.268, 1.226)
pt3dadd(99.621, 97.401, 9.227, 1.144)
pt3dadd(99.675, 97.305, 9.186, 1.064)
pt3dadd(99.728, 97.21, 9.145, 0.982)
pt3dadd(99.782, 97.115, 9.104, 0.9)
pt3dadd(99.836, 97.02, 9.063, 0.82)
pt3dadd(99.894, 96.922, 9.031, 0.788)
pt3dadd(99.955, 96.823, 9.007, 0.794)
pt3dadd(100.017, 96.724, 8.984, 0.8)
pt3dadd(100.079, 96.625, 8.96, 0.806)
pt3dadd(100.14, 96.526, 8.937, 0.814)
pt3dadd(100.202, 96.427, 8.913, 0.82)
pt3dadd(100.264, 96.328, 8.889, 0.826)
pt3dadd(100.326, 96.23, 8.866, 0.832)
pt3dadd(100.387, 96.131, 8.842, 0.84)
pt3dadd(100.449, 96.032, 8.818, 0.846)
pt3dadd(100.499, 95.93, 8.788, 0.834)
pt3dadd(100.541, 95.826, 8.752, 0.81)
pt3dadd(100.583, 95.722, 8.716, 0.786)
pt3dadd(100.625, 95.618, 8.68, 0.762)
pt3dadd(100.668, 95.515, 8.644, 0.738)
pt3dadd(100.71, 95.411, 8.608, 0.714)
pt3dadd(100.752, 95.307, 8.573, 0.69)
pt3dadd(100.794, 95.203, 8.537, 0.666)
pt3dadd(100.836, 95.099, 8.501, 0.642)
pt3dadd(100.878, 94.996, 8.465, 0.618)
pt3dadd(100.901, 94.887, 8.428, 0.628)
pt3dadd(100.915, 94.777, 8.39, 0.654)
pt3dadd(100.93, 94.667, 8.353, 0.678)
pt3dadd(100.944, 94.557, 8.315, 0.704)
pt3dadd(100.958, 94.446, 8.278, 0.73)
pt3dadd(100.972, 94.336, 8.24, 0.754)
pt3dadd(100.987, 94.226, 8.203, 0.78)
pt3dadd(101.001, 94.115, 8.165, 0.806)
pt3dadd(101.015, 94.005, 8.127, 0.83)
pt3dadd(101.03, 93.895, 8.09, 0.856)
pt3dadd(101.025, 93.786, 8.049, 0.872)
pt3dadd(101.015, 93.677, 8.007, 0.886)
pt3dadd(101.006, 93.569, 7.965, 0.902)
pt3dadd(100.996, 93.46, 7.923, 0.916)
pt3dadd(100.986, 93.352, 7.882, 0.93)
pt3dadd(100.976, 93.243, 7.84, 0.944)
pt3dadd(100.967, 93.135, 7.798, 0.958)
pt3dadd(100.957, 93.026, 7.756, 0.974)
pt3dadd(100.947, 92.917, 7.714, 0.988)
pt3dadd(100.937, 92.809, 7.672, 1.002)
pt3dadd(100.904, 92.703, 7.636, 0.986)
pt3dadd(100.866, 92.597, 7.601, 0.966)
pt3dadd(100.828, 92.491, 7.566, 0.944)
pt3dadd(100.79, 92.385, 7.531, 0.922)
pt3dadd(100.752, 92.279, 7.496, 0.9)
pt3dadd(100.715, 92.174, 7.461, 0.88)
pt3dadd(100.677, 92.068, 7.426, 0.858)
pt3dadd(100.639, 91.962, 7.391, 0.836)
pt3dadd(100.601, 91.856, 7.356, 0.814)
pt3dadd(100.563, 91.75, 7.321, 0.794)
pt3dadd(100.508, 91.646, 7.302, 0.804)
pt3dadd(100.453, 91.542, 7.283, 0.812)
pt3dadd(100.398, 91.437, 7.264, 0.822)
pt3dadd(100.343, 91.333, 7.245, 0.832)
pt3dadd(100.289, 91.229, 7.226, 0.84)
pt3dadd(100.234, 91.125, 7.207, 0.85)
pt3dadd(100.179, 91.02, 7.187, 0.86)
pt3dadd(100.124, 90.916, 7.168, 0.868)
pt3dadd(100.07, 90.812, 7.149, 0.878)
pt3dadd(100.014, 90.708, 7.13, 0.888)
pt3dadd(99.949, 90.608, 7.12, 0.902)
pt3dadd(99.883, 90.509, 7.109, 0.914)
pt3dadd(99.817, 90.409, 7.099, 0.928)
pt3dadd(99.751, 90.31, 7.088, 0.942)
pt3dadd(99.685, 90.21, 7.078, 0.956)
pt3dadd(99.619, 90.111, 7.067, 0.97)
pt3dadd(99.553, 90.011, 7.056, 0.984)
pt3dadd(99.488, 89.912, 7.046, 0.998)
pt3dadd(99.422, 89.812, 7.035, 1.012)
pt3dadd(99.353, 89.715, 7.025, 1.022)
pt3dadd(99.263, 89.637, 7.015, 0.998)
pt3dadd(99.173, 89.558, 7.005, 0.974)
pt3dadd(99.083, 89.48, 6.995, 0.948)
pt3dadd(98.993, 89.402, 6.985, 0.924)
pt3dadd(98.903, 89.323, 6.975, 0.9)
pt3dadd(98.812, 89.245, 6.965, 0.876)
pt3dadd(98.722, 89.167, 6.955, 0.852)
pt3dadd(98.632, 89.088, 6.946, 0.828)
pt3dadd(98.542, 89.01, 6.936, 0.804)
pt3dadd(98.45, 88.938, 6.919, 0.786)
pt3dadd(98.352, 88.884, 6.882, 0.794)
pt3dadd(98.254, 88.831, 6.846, 0.8)
pt3dadd(98.156, 88.778, 6.809, 0.808)
pt3dadd(98.058, 88.724, 6.772, 0.814)
pt3dadd(97.96, 88.671, 6.735, 0.822)
pt3dadd(97.862, 88.618, 6.699, 0.83)
pt3dadd(97.764, 88.564, 6.662, 0.836)
pt3dadd(97.666, 88.511, 6.625, 0.844)
pt3dadd(97.568, 88.458, 6.588, 0.85)
pt3dadd(97.472, 88.4, 6.554, 0.866)
pt3dadd(97.377, 88.336, 6.522, 0.892)
pt3dadd(97.283, 88.273, 6.49, 0.918)
pt3dadd(97.188, 88.21, 6.458, 0.944)
pt3dadd(97.093, 88.146, 6.427, 0.968)
pt3dadd(96.999, 88.083, 6.395, 0.994)
pt3dadd(96.904, 88.02, 6.363, 1.02)
pt3dadd(96.81, 87.956, 6.331, 1.046)
pt3dadd(96.715, 87.893, 6.3, 1.072)
pt3dadd(96.621, 87.83, 6.268, 1.098)
pt3dadd(96.526, 87.762, 6.245, 1.112)
pt3dadd(96.431, 87.691, 6.231, 1.112)
pt3dadd(96.336, 87.62, 6.217, 1.114)
pt3dadd(96.241, 87.548, 6.203, 1.116)
pt3dadd(96.146, 87.477, 6.189, 1.118)
pt3dadd(96.051, 87.406, 6.175, 1.12)
pt3dadd(95.956, 87.334, 6.161, 1.122)
pt3dadd(95.861, 87.263, 6.147, 1.126)
pt3dadd(95.766, 87.192, 6.133, 1.128)
pt3dadd(95.67, 87.12, 6.119, 1.13)
pt3dadd(95.568, 87.061, 6.108, 1.102)
pt3dadd(95.459, 87.011, 6.1, 1.046)
pt3dadd(95.35, 86.962, 6.092, 0.99)
pt3dadd(95.241, 86.912, 6.084, 0.934)
pt3dadd(95.133, 86.863, 6.076, 0.878)
pt3dadd(95.024, 86.814, 6.068, 0.824)
pt3dadd(94.915, 86.764, 6.06, 0.768)
pt3dadd(94.806, 86.715, 6.052, 0.712)
pt3dadd(94.697, 86.665, 6.043, 0.656)
pt3dadd(94.588, 86.616, 6.035, 0.6)
pt3dadd(94.475, 86.578, 6.025, 0.57)
pt3dadd(94.36, 86.549, 6.013, 0.556)
pt3dadd(94.244, 86.52, 6.001, 0.544)
pt3dadd(94.129, 86.491, 5.989, 0.532)
pt3dadd(94.013, 86.462, 5.977, 0.52)
pt3dadd(93.898, 86.433, 5.965, 0.506)
pt3dadd(93.782, 86.404, 5.953, 0.494)
pt3dadd(93.666, 86.374, 5.942, 0.482)
pt3dadd(93.551, 86.345, 5.93, 0.47)
pt3dadd(93.435, 86.316, 5.918, 0.458)
pt3dadd(93.323, 86.291, 5.892, 0.484)
pt3dadd(93.213, 86.269, 5.856, 0.54)
pt3dadd(93.104, 86.246, 5.82, 0.594)
pt3dadd(92.994, 86.224, 5.784, 0.65)
pt3dadd(92.884, 86.201, 5.749, 0.704)
pt3dadd(92.774, 86.179, 5.713, 0.758)
pt3dadd(92.664, 86.157, 5.677, 0.814)
pt3dadd(92.555, 86.134, 5.641, 0.868)
pt3dadd(92.445, 86.112, 5.606, 0.924)
pt3dadd(92.335, 86.089, 5.57, 0.978)
pt3dadd(92.23, 86.049, 5.537, 0.996)
pt3dadd(92.128, 85.998, 5.505, 0.992)
pt3dadd(92.027, 85.947, 5.474, 0.988)
pt3dadd(91.925, 85.896, 5.442, 0.984)
pt3dadd(91.823, 85.845, 5.411, 0.98)
pt3dadd(91.721, 85.795, 5.379, 0.978)
pt3dadd(91.619, 85.744, 5.348, 0.974)
pt3dadd(91.517, 85.693, 5.316, 0.97)
pt3dadd(91.415, 85.642, 5.285, 0.966)
pt3dadd(91.313, 85.592, 5.253, 0.962)
pt3dadd(91.217, 85.528, 5.227, 0.968)
pt3dadd(91.122, 85.459, 5.204, 0.978)
pt3dadd(91.028, 85.39, 5.18, 0.988)
pt3dadd(90.934, 85.322, 5.157, 0.996)
pt3dadd(90.839, 85.253, 5.133, 1.006)
pt3dadd(90.745, 85.185, 5.11, 1.016)
pt3dadd(90.651, 85.116, 5.086, 1.024)
pt3dadd(90.557, 85.047, 5.063, 1.034)
pt3dadd(90.462, 84.979, 5.039, 1.044)
pt3dadd(90.368, 84.91, 5.016, 1.052)
pt3dadd(90.28, 84.842, 4.979, 1.06)
pt3dadd(90.194, 84.774, 4.939, 1.068)
pt3dadd(90.107, 84.706, 4.898, 1.076)
pt3dadd(90.021, 84.639, 4.857, 1.084)
pt3dadd(89.935, 84.571, 4.817, 1.09)
pt3dadd(89.849, 84.503, 4.776, 1.098)
pt3dadd(89.763, 84.435, 4.735, 1.106)
pt3dadd(89.676, 84.368, 4.695, 1.114)
pt3dadd(89.59, 84.3, 4.654, 1.122)
pt3dadd(89.504, 84.232, 4.613, 1.13)
}
}
proc shape3d_149() {
dend_7[29] { pt3dadd(89.406, 84.183, 4.572, 1.112)
pt3dadd(89.307, 84.137, 4.531, 1.09)
pt3dadd(89.208, 84.091, 4.49, 1.068)
pt3dadd(89.109, 84.045, 4.449, 1.048)
pt3dadd(89.009, 83.999, 4.408, 1.026)
pt3dadd(88.91, 83.953, 4.367, 1.006)
pt3dadd(88.811, 83.907, 4.326, 0.984)
pt3dadd(88.711, 83.861, 4.285, 0.962)
pt3dadd(88.612, 83.815, 4.244, 0.942)
pt3dadd(88.513, 83.769, 4.203, 0.92)
pt3dadd(88.416, 83.707, 4.175, 0.944)
pt3dadd(88.32, 83.644, 4.147, 0.968)
pt3dadd(88.223, 83.581, 4.119, 0.994)
pt3dadd(88.126, 83.519, 4.091, 1.02)
pt3dadd(88.03, 83.456, 4.063, 1.046)
pt3dadd(87.933, 83.393, 4.036, 1.07)
pt3dadd(87.837, 83.33, 4.008, 1.096)
pt3dadd(87.74, 83.267, 3.98, 1.122)
pt3dadd(87.643, 83.204, 3.952, 1.148)
pt3dadd(87.547, 83.141, 3.924, 1.172)
pt3dadd(87.459, 83.075, 3.884, 1.174)
pt3dadd(87.371, 83.009, 3.844, 1.176)
pt3dadd(87.283, 82.943, 3.804, 1.178)
pt3dadd(87.195, 82.877, 3.764, 1.18)
pt3dadd(87.108, 82.811, 3.724, 1.182)
pt3dadd(87.02, 82.745, 3.683, 1.184)
pt3dadd(86.932, 82.679, 3.643, 1.186)
pt3dadd(86.844, 82.612, 3.603, 1.188)
pt3dadd(86.756, 82.546, 3.563, 1.192)
pt3dadd(86.668, 82.48, 3.524, 1.19)
pt3dadd(86.573, 82.411, 3.505, 1.162)
pt3dadd(86.478, 82.342, 3.486, 1.132)
pt3dadd(86.382, 82.273, 3.466, 1.104)
pt3dadd(86.287, 82.203, 3.447, 1.074)
pt3dadd(86.192, 82.134, 3.427, 1.046)
pt3dadd(86.097, 82.065, 3.408, 1.016)
pt3dadd(86.001, 81.996, 3.388, 0.988)
pt3dadd(85.906, 81.927, 3.369, 0.958)
pt3dadd(85.811, 81.858, 3.349, 0.928)
pt3dadd(85.715, 81.789, 3.332, 0.902)
pt3dadd(85.614, 81.725, 3.325, 0.896)
pt3dadd(85.512, 81.661, 3.318, 0.888)
pt3dadd(85.411, 81.597, 3.312, 0.88)
pt3dadd(85.31, 81.533, 3.305, 0.872)
pt3dadd(85.209, 81.469, 3.298, 0.864)
pt3dadd(85.108, 81.405, 3.292, 0.856)
pt3dadd(85.007, 81.341, 3.285, 0.848)
pt3dadd(84.906, 81.276, 3.279, 0.842)
pt3dadd(84.804, 81.212, 3.272, 0.834)
pt3dadd(84.705, 81.146, 3.266, 0.826)
pt3dadd(84.611, 81.072, 3.266, 0.814)
pt3dadd(84.517, 80.997, 3.266, 0.802)
pt3dadd(84.423, 80.922, 3.266, 0.792)
pt3dadd(84.329, 80.847, 3.266, 0.78)
pt3dadd(84.235, 80.773, 3.266, 0.77)
pt3dadd(84.141, 80.698, 3.266, 0.758)
pt3dadd(84.047, 80.623, 3.265, 0.748)
pt3dadd(83.953, 80.549, 3.265, 0.736)
pt3dadd(83.859, 80.474, 3.265, 0.726)
pt3dadd(83.767, 80.398, 3.265, 0.72)
pt3dadd(83.678, 80.317, 3.265, 0.738)
pt3dadd(83.59, 80.236, 3.265, 0.756)
pt3dadd(83.501, 80.155, 3.264, 0.774)
pt3dadd(83.413, 80.074, 3.264, 0.792)
pt3dadd(83.324, 79.993, 3.264, 0.81)
pt3dadd(83.236, 79.911, 3.264, 0.828)
pt3dadd(83.148, 79.83, 3.263, 0.846)
pt3dadd(83.059, 79.749, 3.263, 0.864)
pt3dadd(82.971, 79.668, 3.263, 0.882)
pt3dadd(82.883, 79.586, 3.263, 0.886)
pt3dadd(82.802, 79.498, 3.262, 0.838)
pt3dadd(82.72, 79.41, 3.262, 0.788)
pt3dadd(82.638, 79.322, 3.261, 0.74)
pt3dadd(82.557, 79.234, 3.261, 0.69)
pt3dadd(82.475, 79.146, 3.26, 0.64)
pt3dadd(82.393, 79.059, 3.26, 0.592)
pt3dadd(82.311, 78.971, 3.26, 0.542)
pt3dadd(82.23, 78.883, 3.259, 0.492)
pt3dadd(82.148, 78.795, 3.259, 0.444)
pt3dadd(82.067, 78.707, 3.258, 0.402)
pt3dadd(81.987, 78.617, 3.257, 0.396)
pt3dadd(81.907, 78.527, 3.256, 0.39)
pt3dadd(81.828, 78.438, 3.256, 0.386)
pt3dadd(81.748, 78.348, 3.255, 0.38)
pt3dadd(81.668, 78.258, 3.254, 0.374)
pt3dadd(81.588, 78.168, 3.253, 0.368)
pt3dadd(81.509, 78.079, 3.252, 0.362)
pt3dadd(81.429, 77.989, 3.251, 0.356)
pt3dadd(81.349, 77.899, 3.25, 0.35)
pt3dadd(81.271, 77.808, 3.249, 0.348)
pt3dadd(81.201, 77.711, 3.248, 0.358)
pt3dadd(81.13, 77.614, 3.246, 0.368)
pt3dadd(81.06, 77.517, 3.244, 0.38)
pt3dadd(80.989, 77.42, 3.242, 0.39)
pt3dadd(80.918, 77.323, 3.241, 0.4)
pt3dadd(80.848, 77.226, 3.239, 0.412)
pt3dadd(80.777, 77.129, 3.237, 0.422)
pt3dadd(80.707, 77.032, 3.236, 0.434)
pt3dadd(80.636, 76.935, 3.234, 0.444)
pt3dadd(80.568, 76.837, 3.232, 0.45)
pt3dadd(80.506, 76.734, 3.228, 0.442)
pt3dadd(80.444, 76.631, 3.224, 0.436)
pt3dadd(80.382, 76.528, 3.22, 0.428)
pt3dadd(80.321, 76.425, 3.216, 0.42)
pt3dadd(80.259, 76.323, 3.212, 0.412)
pt3dadd(80.197, 76.22, 3.208, 0.404)
pt3dadd(80.136, 76.117, 3.204, 0.398)
pt3dadd(80.074, 76.014, 3.201, 0.39)
pt3dadd(80.012, 75.912, 3.197, 0.382)
pt3dadd(79.949, 75.81, 3.192, 0.374)
pt3dadd(79.883, 75.71, 3.184, 0.366)
pt3dadd(79.817, 75.61, 3.176, 0.358)
pt3dadd(79.751, 75.51, 3.168, 0.35)
pt3dadd(79.684, 75.411, 3.16, 0.342)
pt3dadd(79.618, 75.311, 3.152, 0.334)
pt3dadd(79.552, 75.212, 3.144, 0.326)
pt3dadd(79.486, 75.112, 3.136, 0.318)
pt3dadd(79.42, 75.012, 3.129, 0.31)
pt3dadd(79.354, 74.913, 3.121, 0.302)
pt3dadd(79.285, 74.815, 3.109, 0.302)
pt3dadd(79.212, 74.724, 3.086, 0.328)
pt3dadd(79.139, 74.633, 3.064, 0.352)
pt3dadd(79.066, 74.542, 3.041, 0.376)
pt3dadd(78.992, 74.451, 3.018, 0.402)
pt3dadd(78.919, 74.36, 2.996, 0.426)
pt3dadd(78.846, 74.269, 2.973, 0.452)
pt3dadd(78.773, 74.178, 2.951, 0.476)
pt3dadd(78.699, 74.087, 2.928, 0.502)
pt3dadd(78.626, 73.995, 2.905, 0.526)
pt3dadd(78.54, 73.922, 2.876, 0.544)
pt3dadd(78.445, 73.861, 2.843, 0.56)
pt3dadd(78.35, 73.799, 2.809, 0.574)
pt3dadd(78.255, 73.738, 2.776, 0.588)
pt3dadd(78.16, 73.676, 2.743, 0.602)
pt3dadd(78.065, 73.614, 2.709, 0.616)
pt3dadd(77.97, 73.553, 2.676, 0.63)
pt3dadd(77.875, 73.491, 2.643, 0.644)
pt3dadd(77.78, 73.43, 2.609, 0.658)
pt3dadd(77.685, 73.368, 2.576, 0.672)
pt3dadd(77.584, 73.312, 2.553, 0.672)
pt3dadd(77.479, 73.258, 2.535, 0.664)
pt3dadd(77.374, 73.204, 2.517, 0.654)
pt3dadd(77.269, 73.15, 2.5, 0.646)
pt3dadd(77.164, 73.096, 2.482, 0.636)
pt3dadd(77.059, 73.042, 2.464, 0.628)
pt3dadd(76.954, 72.988, 2.447, 0.62)
pt3dadd(76.849, 72.934, 2.429, 0.61)
pt3dadd(76.743, 72.88, 2.412, 0.602)
pt3dadd(76.638, 72.826, 2.394, 0.592)
pt3dadd(76.527, 72.783, 2.386, 0.58)
pt3dadd(76.413, 72.746, 2.381, 0.566)
pt3dadd(76.3, 72.708, 2.377, 0.552)
pt3dadd(76.186, 72.67, 2.372, 0.538)
pt3dadd(76.072, 72.633, 2.368, 0.524)
pt3dadd(75.958, 72.595, 2.363, 0.51)
pt3dadd(75.844, 72.557, 2.359, 0.498)
pt3dadd(75.731, 72.519, 2.354, 0.484)
pt3dadd(75.617, 72.482, 2.35, 0.47)
pt3dadd(75.503, 72.444, 2.345, 0.456)
pt3dadd(75.392, 72.399, 2.347, 0.444)
pt3dadd(75.282, 72.352, 2.352, 0.434)
pt3dadd(75.171, 72.305, 2.357, 0.424)
pt3dadd(75.061, 72.258, 2.362, 0.414)
pt3dadd(74.951, 72.211, 2.366, 0.402)
pt3dadd(74.841, 72.164, 2.371, 0.392)
pt3dadd(74.731, 72.117, 2.376, 0.382)
pt3dadd(74.62, 72.07, 2.381, 0.372)
pt3dadd(74.51, 72.023, 2.385, 0.362)
pt3dadd(74.4, 71.976, 2.39, 0.35)
pt3dadd(74.297, 71.915, 2.399, 0.37)
pt3dadd(74.196, 71.851, 2.409, 0.394)
pt3dadd(74.095, 71.788, 2.419, 0.418)
pt3dadd(73.994, 71.724, 2.429, 0.442)
pt3dadd(73.893, 71.661, 2.439, 0.468)
pt3dadd(73.792, 71.597, 2.449, 0.492)
pt3dadd(73.691, 71.534, 2.458, 0.516)
pt3dadd(73.589, 71.47, 2.468, 0.54)
pt3dadd(73.488, 71.406, 2.478, 0.566)
pt3dadd(73.387, 71.343, 2.488, 0.59)
pt3dadd(73.313, 71.258, 2.517, 0.608)
pt3dadd(73.244, 71.168, 2.551, 0.624)
pt3dadd(73.176, 71.078, 2.584, 0.64)
pt3dadd(73.107, 70.988, 2.618, 0.656)
pt3dadd(73.038, 70.898, 2.651, 0.672)
pt3dadd(72.969, 70.809, 2.685, 0.688)
pt3dadd(72.901, 70.719, 2.718, 0.704)
pt3dadd(72.832, 70.629, 2.752, 0.72)
pt3dadd(72.763, 70.539, 2.785, 0.738)
pt3dadd(72.711, 70.442, 2.818, 0.746)
pt3dadd(72.695, 70.33, 2.851, 0.74)
pt3dadd(72.679, 70.218, 2.883, 0.732)
pt3dadd(72.663, 70.105, 2.916, 0.724)
pt3dadd(72.647, 69.993, 2.948, 0.718)
pt3dadd(72.631, 69.88, 2.98, 0.71)
pt3dadd(72.615, 69.768, 3.013, 0.704)
pt3dadd(72.6, 69.656, 3.045, 0.696)
pt3dadd(72.584, 69.543, 3.078, 0.69)
pt3dadd(72.568, 69.431, 3.11, 0.682)
pt3dadd(72.564, 69.316, 3.135, 0.696)
pt3dadd(72.575, 69.198, 3.149, 0.734)
}
}
proc shape3d_150() {
dend_7[29] { pt3dadd(72.586, 69.079, 3.164, 0.774)
pt3dadd(72.596, 68.961, 3.179, 0.812)
pt3dadd(72.607, 68.843, 3.194, 0.852)
pt3dadd(72.618, 68.725, 3.209, 0.89)
pt3dadd(72.629, 68.607, 3.224, 0.93)
pt3dadd(72.639, 68.488, 3.238, 0.968)
pt3dadd(72.65, 68.37, 3.253, 1.008)
pt3dadd(72.661, 68.252, 3.268, 1.046)
pt3dadd(72.686, 68.137, 3.278, 1.05)
pt3dadd(72.727, 68.024, 3.282, 1.02)
pt3dadd(72.768, 67.911, 3.286, 0.988)
pt3dadd(72.808, 67.798, 3.29, 0.956)
pt3dadd(72.849, 67.685, 3.294, 0.926)
pt3dadd(72.889, 67.572, 3.298, 0.894)
pt3dadd(72.93, 67.46, 3.302, 0.862)
pt3dadd(72.971, 67.347, 3.306, 0.832)
pt3dadd(73.011, 67.234, 3.31, 0.8)
pt3dadd(73.052, 67.121, 3.314, 0.768)
pt3dadd(73.088, 67.007, 3.319, 0.75)
pt3dadd(73.12, 66.892, 3.325, 0.742)
pt3dadd(73.151, 66.776, 3.331, 0.734)
pt3dadd(73.183, 66.661, 3.337, 0.728)
pt3dadd(73.215, 66.545, 3.344, 0.72)
pt3dadd(73.247, 66.43, 3.35, 0.712)
pt3dadd(73.279, 66.314, 3.356, 0.704)
pt3dadd(73.31, 66.199, 3.362, 0.696)
pt3dadd(73.342, 66.083, 3.368, 0.69)
pt3dadd(73.374, 65.968, 3.374, 0.682)
pt3dadd(73.397, 65.851, 3.383, 0.668)
pt3dadd(73.414, 65.733, 3.393, 0.648)
pt3dadd(73.43, 65.614, 3.404, 0.628)
pt3dadd(73.446, 65.496, 3.415, 0.61)
pt3dadd(73.463, 65.378, 3.426, 0.59)
pt3dadd(73.479, 65.26, 3.436, 0.57)
pt3dadd(73.496, 65.142, 3.447, 0.552)
pt3dadd(73.512, 65.024, 3.458, 0.532)
pt3dadd(73.528, 64.905, 3.468, 0.512)
pt3dadd(73.545, 64.787, 3.479, 0.494)
pt3dadd(73.554, 64.672, 3.503, 0.482)
pt3dadd(73.557, 64.559, 3.536, 0.48)
pt3dadd(73.56, 64.446, 3.57, 0.476)
pt3dadd(73.563, 64.333, 3.604, 0.474)
pt3dadd(73.566, 64.22, 3.638, 0.47)
pt3dadd(73.57, 64.107, 3.671, 0.466)
pt3dadd(73.573, 63.994, 3.705, 0.464)
pt3dadd(73.576, 63.881, 3.739, 0.46)
pt3dadd(73.579, 63.768, 3.772, 0.456)
pt3dadd(73.583, 63.656, 3.806, 0.454)
pt3dadd(73.585, 63.541, 3.835, 0.44)
pt3dadd(73.588, 63.425, 3.862, 0.422)
pt3dadd(73.591, 63.309, 3.888, 0.402)
pt3dadd(73.594, 63.194, 3.914, 0.384)
pt3dadd(73.596, 63.078, 3.941, 0.366)
pt3dadd(73.599, 62.962, 3.967, 0.346)
pt3dadd(73.602, 62.847, 3.993, 0.328)
pt3dadd(73.604, 62.731, 4.02, 0.308)
pt3dadd(73.607, 62.615, 4.046, 0.29)
pt3dadd(73.61, 62.499, 4.072, 0.27)
pt3dadd(73.615, 62.382, 4.09, 0.274)
pt3dadd(73.622, 62.263, 4.104, 0.29)
pt3dadd(73.629, 62.144, 4.117, 0.306)
pt3dadd(73.636, 62.025, 4.13, 0.32)
pt3dadd(73.643, 61.907, 4.143, 0.336)
pt3dadd(73.65, 61.788, 4.156, 0.352)
pt3dadd(73.657, 61.669, 4.17, 0.368)
pt3dadd(73.664, 61.551, 4.183, 0.384)
pt3dadd(73.671, 61.432, 4.196, 0.4)
pt3dadd(73.677, 61.313, 4.209, 0.414)
pt3dadd(73.687, 61.194, 4.215, 0.41)
pt3dadd(73.699, 61.074, 4.216, 0.392)
pt3dadd(73.711, 60.955, 4.218, 0.376)
pt3dadd(73.722, 60.836, 4.219, 0.358)
pt3dadd(73.734, 60.716, 4.221, 0.342)
pt3dadd(73.746, 60.597, 4.222, 0.324)
pt3dadd(73.757, 60.477, 4.224, 0.306)
pt3dadd(73.769, 60.358, 4.225, 0.29)
pt3dadd(73.781, 60.238, 4.227, 0.272)
pt3dadd(73.792, 60.119, 4.228, 0.256)
pt3dadd(73.822, 60.003, 4.229, 0.248)
pt3dadd(73.861, 59.89, 4.229, 0.246)
pt3dadd(73.9, 59.777, 4.229, 0.244)
pt3dadd(73.939, 59.663, 4.229, 0.242)
pt3dadd(73.978, 59.55, 4.229, 0.238)
pt3dadd(74.017, 59.436, 4.229, 0.236)
pt3dadd(74.056, 59.323, 4.229, 0.234)
pt3dadd(74.095, 59.209, 4.229, 0.232)
pt3dadd(74.134, 59.096, 4.229, 0.23)
pt3dadd(74.173, 58.982, 4.229, 0.226)
pt3dadd(74.202, 58.866, 4.229, 0.226)
pt3dadd(74.226, 58.749, 4.229, 0.226)
pt3dadd(74.25, 58.631, 4.229, 0.226)
pt3dadd(74.274, 58.513, 4.229, 0.226)
pt3dadd(74.298, 58.396, 4.229, 0.226)
pt3dadd(74.322, 58.278, 4.228, 0.226)
pt3dadd(74.345, 58.161, 4.228, 0.226)
pt3dadd(74.369, 58.043, 4.228, 0.226)
pt3dadd(74.393, 57.925, 4.228, 0.226)
pt3dadd(74.417, 57.808, 4.228, 0.226)
pt3dadd(74.426, 57.688, 4.228, 0.256)
pt3dadd(74.428, 57.568, 4.228, 0.298)
pt3dadd(74.431, 57.448, 4.228, 0.34)
pt3dadd(74.433, 57.328, 4.228, 0.382)
pt3dadd(74.435, 57.209, 4.228, 0.424)
pt3dadd(74.437, 57.089, 4.228, 0.466)
pt3dadd(74.44, 56.969, 4.228, 0.508)
pt3dadd(74.442, 56.849, 4.228, 0.55)
pt3dadd(74.444, 56.729, 4.228, 0.594)
pt3dadd(74.447, 56.609, 4.228, 0.636)
pt3dadd(74.418, 56.494, 4.228, 0.636)
pt3dadd(74.378, 56.381, 4.228, 0.618)
pt3dadd(74.337, 56.268, 4.227, 0.6)
pt3dadd(74.297, 56.155, 4.227, 0.582)
pt3dadd(74.256, 56.042, 4.227, 0.564)
pt3dadd(74.215, 55.929, 4.227, 0.548)
pt3dadd(74.175, 55.816, 4.227, 0.53)
pt3dadd(74.134, 55.703, 4.227, 0.512)
pt3dadd(74.093, 55.59, 4.227, 0.494)
pt3dadd(74.053, 55.477, 4.227, 0.478)
pt3dadd(74.022, 55.362, 4.226, 0.472)
pt3dadd(73.995, 55.245, 4.226, 0.47)
pt3dadd(73.968, 55.128, 4.226, 0.468)
pt3dadd(73.94, 55.011, 4.226, 0.464)
pt3dadd(73.913, 54.894, 4.225, 0.462)
pt3dadd(73.886, 54.777, 4.225, 0.46)
pt3dadd(73.858, 54.66, 4.225, 0.458)
pt3dadd(73.831, 54.544, 4.224, 0.456)
pt3dadd(73.804, 54.427, 4.224, 0.454)
pt3dadd(73.776, 54.31, 4.224, 0.452)
pt3dadd(73.765, 54.191, 4.223, 0.468)
pt3dadd(73.758, 54.071, 4.223, 0.49)
pt3dadd(73.752, 53.951, 4.222, 0.512)
pt3dadd(73.745, 53.831, 4.221, 0.534)
pt3dadd(73.739, 53.712, 4.221, 0.556)
pt3dadd(73.732, 53.592, 4.22, 0.576)
pt3dadd(73.725, 53.472, 4.22, 0.598)
pt3dadd(73.719, 53.352, 4.219, 0.62)
pt3dadd(73.712, 53.232, 4.219, 0.642)
pt3dadd(73.706, 53.112, 4.218, 0.664)
pt3dadd(73.714, 52.993, 4.217, 0.652)
pt3dadd(73.728, 52.874, 4.215, 0.63)
pt3dadd(73.74, 52.755, 4.214, 0.61)
pt3dadd(73.754, 52.635, 4.213, 0.588)
pt3dadd(73.767, 52.516, 4.211, 0.566)
pt3dadd(73.78, 52.397, 4.21, 0.544)
pt3dadd(73.793, 52.277, 4.208, 0.524)
pt3dadd(73.806, 52.158, 4.207, 0.502)
pt3dadd(73.819, 52.039, 4.206, 0.48)
pt3dadd(73.832, 51.92, 4.204, 0.458)
pt3dadd(73.869, 51.806, 4.202, 0.47)
pt3dadd(73.913, 51.695, 4.199, 0.492)
pt3dadd(73.958, 51.583, 4.197, 0.514)
pt3dadd(74.002, 51.472, 4.194, 0.534)
pt3dadd(74.046, 51.36, 4.191, 0.556)
pt3dadd(74.09, 51.249, 4.189, 0.578)
pt3dadd(74.135, 51.137, 4.186, 0.6)
pt3dadd(74.179, 51.026, 4.183, 0.622)
pt3dadd(74.223, 50.914, 4.181, 0.642)
pt3dadd(74.267, 50.803, 4.178, 0.664)
pt3dadd(74.3, 50.688, 4.172, 0.636)
pt3dadd(74.329, 50.571, 4.166, 0.592)
pt3dadd(74.358, 50.455, 4.159, 0.55)
pt3dadd(74.387, 50.339, 4.152, 0.508)
pt3dadd(74.416, 50.223, 4.146, 0.464)
pt3dadd(74.445, 50.107, 4.139, 0.422)
pt3dadd(74.474, 49.991, 4.133, 0.38)
pt3dadd(74.503, 49.875, 4.126, 0.336)
pt3dadd(74.532, 49.758, 4.119, 0.294)
pt3dadd(74.561, 49.642, 4.113, 0.25)
pt3dadd(74.577, 49.524, 4.102, 0.24)
pt3dadd(74.59, 49.406, 4.091, 0.238)
pt3dadd(74.603, 49.287, 4.079, 0.238)
pt3dadd(74.616, 49.169, 4.068, 0.236)
pt3dadd(74.628, 49.05, 4.057, 0.234)
pt3dadd(74.641, 48.931, 4.045, 0.232)
pt3dadd(74.654, 48.813, 4.034, 0.23)
pt3dadd(74.667, 48.694, 4.023, 0.23)
pt3dadd(74.68, 48.576, 4.011, 0.228)
pt3dadd(74.692, 48.457, 4, 0.226)
pt3dadd(74.694, 48.344, 3.969, 0.226)
pt3dadd(74.692, 48.233, 3.931, 0.226)
pt3dadd(74.691, 48.121, 3.894, 0.226)
pt3dadd(74.689, 48.01, 3.857, 0.226)
pt3dadd(74.688, 47.899, 3.82, 0.226)
pt3dadd(74.686, 47.787, 3.783, 0.226)
pt3dadd(74.685, 47.676, 3.746, 0.226)
pt3dadd(74.683, 47.564, 3.709, 0.226)
pt3dadd(74.682, 47.453, 3.672, 0.226)
pt3dadd(74.68, 47.341, 3.635, 0.226)
pt3dadd(74.676, 47.226, 3.608, 0.226)
pt3dadd(74.671, 47.11, 3.583, 0.226)
pt3dadd(74.667, 46.994, 3.559, 0.226)
pt3dadd(74.662, 46.877, 3.534, 0.226)
pt3dadd(74.657, 46.761, 3.51, 0.226)
pt3dadd(74.652, 46.645, 3.485, 0.226)
pt3dadd(74.648, 46.529, 3.461, 0.226)
pt3dadd(74.643, 46.412, 3.436, 0.226)
pt3dadd(74.638, 46.296, 3.412, 0.226)
pt3dadd(74.634, 46.18, 3.387, 0.226)
pt3dadd(74.628, 46.061, 3.373, 0.262)
pt3dadd(74.623, 45.942, 3.362, 0.308)
}
}
proc shape3d_151() {
dend_7[29] { pt3dadd(74.617, 45.823, 3.35, 0.352)
pt3dadd(74.612, 45.704, 3.339, 0.398)
pt3dadd(74.606, 45.585, 3.327, 0.442)
pt3dadd(74.601, 45.466, 3.316, 0.488)
pt3dadd(74.595, 45.347, 3.304, 0.534)
pt3dadd(74.59, 45.228, 3.293, 0.578)
pt3dadd(74.584, 45.109, 3.281, 0.624)
pt3dadd(74.579, 44.99, 3.27, 0.668)
pt3dadd(74.552, 44.874, 3.267, 0.642)
pt3dadd(74.519, 44.758, 3.267, 0.596)
pt3dadd(74.486, 44.643, 3.267, 0.552)
pt3dadd(74.453, 44.527, 3.267, 0.506)
pt3dadd(74.421, 44.412, 3.267, 0.462)
pt3dadd(74.399, 44.295, 3.267, 0.426)
pt3dadd(74.393, 44.175, 3.267, 0.404)
pt3dadd(74.388, 44.055, 3.267, 0.382)
pt3dadd(74.383, 43.935, 3.267, 0.362)
pt3dadd(74.377, 43.815, 3.267, 0.34)
pt3dadd(74.372, 43.695, 3.267, 0.32)
pt3dadd(74.367, 43.575, 3.266, 0.298)
pt3dadd(74.361, 43.455, 3.266, 0.276)
pt3dadd(74.356, 43.335, 3.266, 0.256)
pt3dadd(74.351, 43.216, 3.266, 0.234)
pt3dadd(74.359, 43.096, 3.266, 0.226)
pt3dadd(74.376, 42.978, 3.266, 0.226)
pt3dadd(74.393, 42.859, 3.265, 0.226)
pt3dadd(74.41, 42.74, 3.265, 0.226)
pt3dadd(74.427, 42.621, 3.265, 0.226)
pt3dadd(74.445, 42.503, 3.265, 0.226)
pt3dadd(74.462, 42.384, 3.265, 0.226)
pt3dadd(74.479, 42.265, 3.264, 0.226)
pt3dadd(74.496, 42.146, 3.264, 0.226)
pt3dadd(74.513, 42.027, 3.264, 0.226)
pt3dadd(74.528, 41.908, 3.264, 0.234)
pt3dadd(74.542, 41.789, 3.263, 0.248)
pt3dadd(74.557, 41.67, 3.263, 0.262)
pt3dadd(74.571, 41.551, 3.262, 0.276)
pt3dadd(74.586, 41.432, 3.262, 0.29)
pt3dadd(74.6, 41.313, 3.261, 0.304)
pt3dadd(74.614, 41.194, 3.261, 0.318)
pt3dadd(74.629, 41.074, 3.26, 0.332)
pt3dadd(74.643, 40.955, 3.26, 0.346)
pt3dadd(74.658, 40.836, 3.259, 0.36)
pt3dadd(74.666, 40.717, 3.258, 0.372)
pt3dadd(74.671, 40.597, 3.257, 0.38)
pt3dadd(74.676, 40.477, 3.256, 0.388)
pt3dadd(74.68, 40.357, 3.255, 0.398)
pt3dadd(74.685, 40.237, 3.254, 0.406)
pt3dadd(74.69, 40.117, 3.253, 0.414)
pt3dadd(74.695, 39.997, 3.251, 0.424)
pt3dadd(74.7, 39.877, 3.25, 0.432)
pt3dadd(74.704, 39.757, 3.249, 0.44)
pt3dadd(74.709, 39.638, 3.248, 0.448)
pt3dadd(74.711, 39.518, 3.246, 0.442)
pt3dadd(74.711, 39.398, 3.244, 0.426)
pt3dadd(74.711, 39.278, 3.241, 0.41)
pt3dadd(74.711, 39.158, 3.239, 0.394)
pt3dadd(74.71, 39.038, 3.237, 0.378)
pt3dadd(74.71, 38.918, 3.234, 0.362)
pt3dadd(74.71, 38.798, 3.232, 0.348)
pt3dadd(74.71, 38.678, 3.23, 0.332)
pt3dadd(74.71, 38.558, 3.227, 0.316)
pt3dadd(74.71, 38.438, 3.225, 0.3)
pt3dadd(74.709, 38.318, 3.22, 0.312)
pt3dadd(74.709, 38.198, 3.214, 0.338)
pt3dadd(74.709, 38.078, 3.209, 0.364)
pt3dadd(74.709, 37.959, 3.203, 0.39)
pt3dadd(74.708, 37.839, 3.197, 0.418)
pt3dadd(74.708, 37.719, 3.191, 0.444)
pt3dadd(74.708, 37.599, 3.185, 0.47)
pt3dadd(74.707, 37.479, 3.18, 0.496)
pt3dadd(74.707, 37.36, 3.174, 0.524)
pt3dadd(74.707, 37.24, 3.168, 0.55)
pt3dadd(74.706, 37.12, 3.159, 0.566)
pt3dadd(74.706, 37.001, 3.149, 0.578)
pt3dadd(74.705, 36.882, 3.139, 0.59)
pt3dadd(74.704, 36.762, 3.128, 0.602)
pt3dadd(74.703, 36.643, 3.118, 0.614)
pt3dadd(74.703, 36.524, 3.108, 0.626)
pt3dadd(74.702, 36.404, 3.097, 0.638)
pt3dadd(74.701, 36.285, 3.087, 0.65)
pt3dadd(74.701, 36.165, 3.077, 0.662)
pt3dadd(74.7, 36.046, 3.066, 0.674)
pt3dadd(74.699, 35.93, 3.042, 0.7)
pt3dadd(74.697, 35.817, 3.01, 0.734)
pt3dadd(74.696, 35.703, 2.979, 0.768)
pt3dadd(74.694, 35.589, 2.947, 0.802)
pt3dadd(74.693, 35.475, 2.916, 0.838)
pt3dadd(74.692, 35.361, 2.884, 0.872)
pt3dadd(74.69, 35.247, 2.852, 0.906)
pt3dadd(74.689, 35.133, 2.821, 0.94)
pt3dadd(74.687, 35.02, 2.789, 0.974)
pt3dadd(74.686, 34.906, 2.758, 1.008)
pt3dadd(74.683, 34.791, 2.729, 0.978)
pt3dadd(74.68, 34.675, 2.702, 0.922)
pt3dadd(74.677, 34.56, 2.675, 0.864)
pt3dadd(74.674, 34.445, 2.648, 0.808)
pt3dadd(74.672, 34.329, 2.62, 0.75)
pt3dadd(74.669, 34.214, 2.593, 0.694)
pt3dadd(74.666, 34.098, 2.566, 0.636)
pt3dadd(74.663, 33.983, 2.539, 0.58)
pt3dadd(74.66, 33.867, 2.512, 0.522)
pt3dadd(74.657, 33.752, 2.485, 0.466)
pt3dadd(74.651, 33.634, 2.467, 0.446)
pt3dadd(74.643, 33.515, 2.454, 0.442)
pt3dadd(74.636, 33.397, 2.44, 0.436)
pt3dadd(74.628, 33.278, 2.426, 0.432)
pt3dadd(74.621, 33.159, 2.412, 0.428)
pt3dadd(74.614, 33.041, 2.399, 0.422)
pt3dadd(74.606, 32.922, 2.385, 0.418)
pt3dadd(74.599, 32.804, 2.372, 0.412)
pt3dadd(74.592, 32.685, 2.358, 0.408)
pt3dadd(74.584, 32.566, 2.344, 0.404)
pt3dadd(74.573, 32.447, 2.34, 0.406)
pt3dadd(74.559, 32.328, 2.339, 0.41)
pt3dadd(74.546, 32.209, 2.338, 0.416)
pt3dadd(74.533, 32.089, 2.336, 0.42)
pt3dadd(74.52, 31.97, 2.335, 0.426)
pt3dadd(74.507, 31.851, 2.334, 0.43)
pt3dadd(74.494, 31.731, 2.333, 0.436)
pt3dadd(74.481, 31.612, 2.332, 0.44)
pt3dadd(74.467, 31.493, 2.331, 0.446)
pt3dadd(74.454, 31.374, 2.33, 0.45)
pt3dadd(74.421, 31.259, 2.331, 0.48)
pt3dadd(74.381, 31.146, 2.334, 0.516)
pt3dadd(74.34, 31.033, 2.336, 0.552)
pt3dadd(74.3, 30.92, 2.339, 0.588)
pt3dadd(74.26, 30.807, 2.341, 0.624)
pt3dadd(74.22, 30.694, 2.344, 0.66)
pt3dadd(74.18, 30.581, 2.346, 0.696)
pt3dadd(74.139, 30.468, 2.349, 0.732)
pt3dadd(74.099, 30.355, 2.351, 0.768)
pt3dadd(74.059, 30.242, 2.353, 0.802)
pt3dadd(74.024, 30.127, 2.359, 0.774)
pt3dadd(73.99, 30.012, 2.365, 0.73)
pt3dadd(73.956, 29.898, 2.371, 0.686)
pt3dadd(73.922, 29.783, 2.376, 0.64)
pt3dadd(73.888, 29.668, 2.382, 0.596)
pt3dadd(73.854, 29.553, 2.388, 0.552)
pt3dadd(73.82, 29.438, 2.394, 0.508)
pt3dadd(73.786, 29.323, 2.4, 0.464)
pt3dadd(73.752, 29.208, 2.406, 0.42)
pt3dadd(73.718, 29.094, 2.412, 0.374)
pt3dadd(73.694, 28.977, 2.422, 0.37)
pt3dadd(73.673, 28.859, 2.433, 0.376)
pt3dadd(73.652, 28.742, 2.443, 0.38)
pt3dadd(73.63, 28.624, 2.454, 0.384)
pt3dadd(73.609, 28.507, 2.464, 0.388)
pt3dadd(73.588, 28.39, 2.475, 0.394)
pt3dadd(73.567, 28.272, 2.486, 0.398)
pt3dadd(73.545, 28.155, 2.496, 0.402)
pt3dadd(73.524, 28.037, 2.507, 0.406)
pt3dadd(73.503, 27.92, 2.517, 0.412)
pt3dadd(73.492, 27.807, 2.547, 0.416)
pt3dadd(73.482, 27.694, 2.581, 0.42)
pt3dadd(73.473, 27.581, 2.615, 0.424)
pt3dadd(73.464, 27.469, 2.648, 0.428)
pt3dadd(73.454, 27.356, 2.682, 0.432)
pt3dadd(73.445, 27.244, 2.716, 0.436)
pt3dadd(73.435, 27.131, 2.75, 0.44)
pt3dadd(73.426, 27.018, 2.783, 0.444)
pt3dadd(73.417, 26.906, 2.817, 0.448)
pt3dadd(73.407, 26.793, 2.851, 0.452)
pt3dadd(73.38, 26.682, 2.879, 0.452)
pt3dadd(73.351, 26.57, 2.906, 0.452)
pt3dadd(73.322, 26.458, 2.933, 0.452)
pt3dadd(73.293, 26.346, 2.96, 0.452)
pt3dadd(73.264, 26.235, 2.988, 0.452)
pt3dadd(73.235, 26.123, 3.015, 0.452)
pt3dadd(73.206, 26.011, 3.042, 0.452)
pt3dadd(73.176, 25.899, 3.069, 0.452)
pt3dadd(73.147, 25.788, 3.097, 0.452)
pt3dadd(73.118, 25.676, 3.124, 0.452)
pt3dadd(73.11, 25.558, 3.139, 0.452)
pt3dadd(73.102, 25.439, 3.153, 0.452)
pt3dadd(73.095, 25.321, 3.168, 0.452)
pt3dadd(73.088, 25.202, 3.182, 0.452)
pt3dadd(73.081, 25.084, 3.196, 0.452)
pt3dadd(73.073, 24.965, 3.211, 0.452)
pt3dadd(73.066, 24.847, 3.225, 0.452)
pt3dadd(73.059, 24.728, 3.239, 0.452)
pt3dadd(73.052, 24.609, 3.254, 0.452)
pt3dadd(73.044, 24.491, 3.268, 0.452)
pt3dadd(72.996, 24.381, 3.268, 0.452)
pt3dadd(72.947, 24.272, 3.268, 0.452)
pt3dadd(72.898, 24.162, 3.268, 0.452)
pt3dadd(72.849, 24.052, 3.268, 0.452)
pt3dadd(72.801, 23.943, 3.268, 0.452)
pt3dadd(72.752, 23.833, 3.268, 0.452)
pt3dadd(72.703, 23.724, 3.268, 0.452)
pt3dadd(72.659, 23.612, 3.267, 0.448)
pt3dadd(72.624, 23.497, 3.265, 0.438)
pt3dadd(72.59, 23.382, 3.262, 0.428)
pt3dadd(72.556, 23.267, 3.26, 0.418)
pt3dadd(72.521, 23.152, 3.258, 0.408)
pt3dadd(72.487, 23.037, 3.255, 0.398)
pt3dadd(72.452, 22.923, 3.253, 0.386)
pt3dadd(72.418, 22.808, 3.25, 0.376)
pt3dadd(72.384, 22.693, 3.248, 0.366)
pt3dadd(72.349, 22.578, 3.246, 0.356)
}
}
proc shape3d_152() {
dend_7[29] { pt3dadd(72.321, 22.461, 3.241, 0.344)
pt3dadd(72.303, 22.343, 3.235, 0.332)
pt3dadd(72.284, 22.225, 3.228, 0.32)
pt3dadd(72.266, 22.107, 3.221, 0.308)
pt3dadd(72.247, 21.988, 3.215, 0.294)
pt3dadd(72.228, 21.87, 3.208, 0.282)
pt3dadd(72.21, 21.752, 3.201, 0.27)
pt3dadd(72.191, 21.633, 3.194, 0.258)
pt3dadd(72.173, 21.515, 3.188, 0.246)
pt3dadd(72.154, 21.397, 3.181, 0.234)
pt3dadd(72.125, 21.282, 3.173, 0.232)
pt3dadd(72.08, 21.171, 3.162, 0.248)
pt3dadd(72.036, 21.061, 3.151, 0.264)
pt3dadd(71.991, 20.95, 3.14, 0.28)
pt3dadd(71.946, 20.839, 3.129, 0.298)
pt3dadd(71.902, 20.729, 3.118, 0.314)
pt3dadd(71.857, 20.618, 3.107, 0.33)
pt3dadd(71.813, 20.507, 3.096, 0.346)
pt3dadd(71.768, 20.397, 3.085, 0.362)
pt3dadd(71.724, 20.286, 3.074, 0.378)
pt3dadd(71.671, 20.186, 3.046, 0.376)
pt3dadd(71.612, 20.095, 3.004, 0.36)
pt3dadd(71.553, 20.004, 2.962, 0.344)
pt3dadd(71.493, 19.913, 2.919, 0.328)
pt3dadd(71.434, 19.822, 2.877, 0.312)
pt3dadd(71.375, 19.731, 2.834, 0.296)
pt3dadd(71.315, 19.64, 2.792, 0.28)
pt3dadd(71.256, 19.549, 2.749, 0.264)
pt3dadd(71.196, 19.458, 2.707, 0.248)
pt3dadd(71.137, 19.367, 2.664, 0.232)
pt3dadd(71.071, 19.275, 2.632, 0.256)
pt3dadd(71.004, 19.182, 2.604, 0.294)
pt3dadd(70.935, 19.089, 2.576, 0.334)
pt3dadd(70.868, 18.996, 2.548, 0.374)
pt3dadd(70.8, 18.903, 2.519, 0.412)
pt3dadd(70.732, 18.81, 2.491, 0.452)
pt3dadd(70.664, 18.717, 2.463, 0.49)
pt3dadd(70.596, 18.624, 2.435, 0.53)
pt3dadd(70.528, 18.531, 2.406, 0.568)
pt3dadd(70.46, 18.438, 2.378, 0.608)
pt3dadd(70.366, 18.365, 2.37, 0.608)
pt3dadd(70.27, 18.293, 2.363, 0.606)
pt3dadd(70.175, 18.221, 2.356, 0.604)
pt3dadd(70.079, 18.149, 2.349, 0.602)
pt3dadd(69.984, 18.076, 2.342, 0.6)
pt3dadd(69.888, 18.004, 2.335, 0.598)
pt3dadd(69.793, 17.932, 2.328, 0.596)
pt3dadd(69.697, 17.86, 2.321, 0.594)
pt3dadd(69.602, 17.788, 2.314, 0.592)
pt3dadd(69.506, 17.716, 2.307, 0.59)
pt3dadd(69.411, 17.642, 2.307, 0.57)
pt3dadd(69.317, 17.568, 2.307, 0.55)
pt3dadd(69.222, 17.494, 2.307, 0.528)
pt3dadd(69.128, 17.42, 2.307, 0.508)
pt3dadd(69.033, 17.346, 2.307, 0.488)
pt3dadd(68.939, 17.272, 2.307, 0.466)
pt3dadd(68.844, 17.198, 2.307, 0.446)
pt3dadd(68.75, 17.124, 2.307, 0.426)
pt3dadd(68.655, 17.051, 2.307, 0.404)
pt3dadd(68.561, 16.977, 2.307, 0.384)
pt3dadd(68.466, 16.903, 2.307, 0.404)
pt3dadd(68.371, 16.83, 2.307, 0.426)
pt3dadd(68.276, 16.757, 2.307, 0.446)
pt3dadd(68.181, 16.684, 2.307, 0.468)
pt3dadd(68.085, 16.61, 2.307, 0.49)
pt3dadd(67.99, 16.537, 2.307, 0.51)
pt3dadd(67.895, 16.464, 2.307, 0.532)
pt3dadd(67.8, 16.391, 2.307, 0.554)
pt3dadd(67.705, 16.317, 2.307, 0.574)
pt3dadd(67.61, 16.244, 2.307, 0.596)
pt3dadd(67.515, 16.172, 2.307, 0.56)
pt3dadd(67.419, 16.099, 2.307, 0.524)
pt3dadd(67.323, 16.027, 2.307, 0.488)
pt3dadd(67.227, 15.954, 2.307, 0.45)
pt3dadd(67.132, 15.882, 2.307, 0.414)
pt3dadd(67.036, 15.81, 2.307, 0.378)
pt3dadd(66.94, 15.737, 2.307, 0.34)
pt3dadd(66.845, 15.665, 2.307, 0.304)
pt3dadd(66.749, 15.592, 2.307, 0.268)
pt3dadd(66.653, 15.52, 2.307, 0.23)
pt3dadd(66.541, 15.477, 2.307, 0.254)
pt3dadd(66.429, 15.436, 2.307, 0.276)
pt3dadd(66.316, 15.394, 2.307, 0.3)
pt3dadd(66.204, 15.353, 2.307, 0.324)
pt3dadd(66.091, 15.311, 2.307, 0.348)
pt3dadd(65.978, 15.27, 2.307, 0.372)
pt3dadd(65.866, 15.228, 2.307, 0.396)
pt3dadd(65.753, 15.187, 2.307, 0.42)
pt3dadd(65.641, 15.145, 2.307, 0.444)
pt3dadd(65.528, 15.103, 2.307, 0.468)
pt3dadd(65.409, 15.092, 2.307, 0.488)
pt3dadd(65.289, 15.08, 2.307, 0.51)
pt3dadd(65.17, 15.068, 2.307, 0.53)
pt3dadd(65.05, 15.056, 2.307, 0.552)
pt3dadd(64.931, 15.044, 2.307, 0.572)
pt3dadd(64.812, 15.032, 2.307, 0.594)
pt3dadd(64.692, 15.02, 2.307, 0.614)
pt3dadd(64.573, 15.008, 2.307, 0.636)
pt3dadd(64.453, 14.996, 2.307, 0.656)
pt3dadd(64.334, 14.984, 2.307, 0.678)
}
dend_7[30] {pt3dclear()
pt3dadd(98.478, 99.441, 10.589, 1.808)
pt3dadd(98.488, 99.386, 10.568, 1.782)
pt3dadd(98.517, 99.282, 10.525, 1.734)
pt3dadd(98.546, 99.178, 10.483, 1.684)
pt3dadd(98.574, 99.075, 10.44, 1.636)
pt3dadd(98.603, 98.971, 10.398, 1.586)
pt3dadd(98.632, 98.868, 10.355, 1.538)
pt3dadd(98.661, 98.764, 10.313, 1.488)
pt3dadd(98.69, 98.66, 10.27, 1.44)
pt3dadd(98.719, 98.556, 10.228, 1.39)
pt3dadd(98.748, 98.453, 10.185, 1.342)
pt3dadd(98.777, 98.349, 10.143, 1.292)
pt3dadd(98.806, 98.246, 10.1, 1.244)
pt3dadd(98.835, 98.142, 10.058, 1.194)
pt3dadd(98.864, 98.038, 10.015, 1.146)
pt3dadd(98.925, 98.047, 9.95, 1.134)
pt3dadd(98.994, 98.087, 9.878, 1.134)
pt3dadd(99.063, 98.127, 9.807, 1.134)
pt3dadd(99.133, 98.166, 9.735, 1.134)
pt3dadd(99.202, 98.206, 9.664, 1.132)
pt3dadd(99.272, 98.246, 9.592, 1.132)
pt3dadd(99.341, 98.286, 9.521, 1.132)
pt3dadd(99.41, 98.326, 9.449, 1.132)
pt3dadd(99.48, 98.365, 9.378, 1.13)
pt3dadd(99.549, 98.405, 9.306, 1.13)
pt3dadd(99.603, 98.466, 9.235, 1.116)
pt3dadd(99.653, 98.53, 9.164, 1.1)
pt3dadd(99.704, 98.593, 9.093, 1.084)
pt3dadd(99.755, 98.657, 9.022, 1.066)
pt3dadd(99.806, 98.721, 8.951, 1.05)
pt3dadd(99.857, 98.784, 8.88, 1.034)
pt3dadd(99.908, 98.848, 8.809, 1.018)
pt3dadd(99.958, 98.912, 8.738, 1.002)
pt3dadd(100.009, 98.976, 8.667, 0.986)
pt3dadd(100.06, 99.039, 8.596, 0.968)
pt3dadd(100.115, 99.123, 8.545, 0.976)
pt3dadd(100.17, 99.208, 8.494, 0.984)
pt3dadd(100.225, 99.292, 8.443, 0.992)
pt3dadd(100.28, 99.376, 8.392, 1)
pt3dadd(100.335, 99.46, 8.341, 1.008)
pt3dadd(100.39, 99.544, 8.29, 1.016)
pt3dadd(100.445, 99.629, 8.239, 1.024)
pt3dadd(100.5, 99.713, 8.188, 1.032)
pt3dadd(100.555, 99.797, 8.136, 1.04)
pt3dadd(100.61, 99.882, 8.086, 1.048)
pt3dadd(100.657, 99.974, 8.039, 1.058)
pt3dadd(100.705, 100.066, 7.992, 1.066)
pt3dadd(100.753, 100.159, 7.945, 1.074)
pt3dadd(100.8, 100.251, 7.898, 1.082)
pt3dadd(100.848, 100.343, 7.851, 1.09)
pt3dadd(100.896, 100.435, 7.804, 1.098)
pt3dadd(100.943, 100.527, 7.757, 1.106)
pt3dadd(100.991, 100.619, 7.71, 1.114)
pt3dadd(101.039, 100.712, 7.663, 1.122)
pt3dadd(101.087, 100.804, 7.617, 1.13)
pt3dadd(101.138, 100.898, 7.576, 1.13)
pt3dadd(101.189, 100.992, 7.534, 1.13)
pt3dadd(101.241, 101.085, 7.492, 1.13)
pt3dadd(101.292, 101.179, 7.451, 1.13)
pt3dadd(101.343, 101.273, 7.409, 1.13)
pt3dadd(101.395, 101.367, 7.368, 1.13)
pt3dadd(101.446, 101.461, 7.326, 1.13)
pt3dadd(101.497, 101.554, 7.285, 1.13)
pt3dadd(101.548, 101.648, 7.243, 1.13)
pt3dadd(101.602, 101.74, 7.202, 1.128)
pt3dadd(101.666, 101.826, 7.16, 1.118)
pt3dadd(101.729, 101.912, 7.118, 1.108)
pt3dadd(101.792, 101.997, 7.077, 1.098)
pt3dadd(101.855, 102.083, 7.035, 1.088)
pt3dadd(101.918, 102.168, 6.993, 1.078)
pt3dadd(101.982, 102.254, 6.952, 1.068)
pt3dadd(102.045, 102.34, 6.91, 1.058)
pt3dadd(102.108, 102.426, 6.868, 1.048)
pt3dadd(102.171, 102.511, 6.827, 1.038)
pt3dadd(102.238, 102.594, 6.785, 1.022)
pt3dadd(102.312, 102.671, 6.744, 0.998)
pt3dadd(102.385, 102.748, 6.703, 0.974)
pt3dadd(102.459, 102.825, 6.662, 0.948)
pt3dadd(102.532, 102.902, 6.621, 0.924)
pt3dadd(102.606, 102.979, 6.581, 0.898)
pt3dadd(102.68, 103.056, 6.54, 0.874)
pt3dadd(102.753, 103.133, 6.499, 0.85)
pt3dadd(102.827, 103.21, 6.458, 0.824)
pt3dadd(102.901, 103.287, 6.417, 0.8)
pt3dadd(102.98, 103.364, 6.388, 0.782)
pt3dadd(103.066, 103.441, 6.37, 0.77)
pt3dadd(103.152, 103.518, 6.352, 0.76)
pt3dadd(103.238, 103.594, 6.335, 0.748)
pt3dadd(103.324, 103.671, 6.317, 0.738)
pt3dadd(103.41, 103.748, 6.299, 0.728)
pt3dadd(103.495, 103.825, 6.282, 0.716)
pt3dadd(103.581, 103.901, 6.264, 0.706)
pt3dadd(103.667, 103.978, 6.246, 0.694)
pt3dadd(103.753, 104.055, 6.229, 0.684)
pt3dadd(103.843, 104.127, 6.216, 0.678)
pt3dadd(103.938, 104.195, 6.208, 0.678)
pt3dadd(104.033, 104.263, 6.199, 0.678)
pt3dadd(104.127, 104.331, 6.191, 0.678)
pt3dadd(104.222, 104.399, 6.183, 0.678)
pt3dadd(104.316, 104.467, 6.174, 0.678)
}
}
proc shape3d_153() {
dend_7[30] { pt3dadd(104.411, 104.535, 6.166, 0.678)
pt3dadd(104.506, 104.603, 6.158, 0.678)
pt3dadd(104.6, 104.67, 6.149, 0.678)
pt3dadd(104.695, 104.739, 6.141, 0.678)
pt3dadd(104.793, 104.801, 6.134, 0.674)
pt3dadd(104.894, 104.859, 6.128, 0.666)
pt3dadd(104.995, 104.918, 6.122, 0.658)
pt3dadd(105.095, 104.976, 6.116, 0.65)
pt3dadd(105.196, 105.035, 6.109, 0.642)
pt3dadd(105.297, 105.093, 6.103, 0.634)
pt3dadd(105.398, 105.152, 6.097, 0.628)
pt3dadd(105.498, 105.21, 6.091, 0.62)
pt3dadd(105.599, 105.269, 6.085, 0.612)
pt3dadd(105.7, 105.327, 6.079, 0.604)
pt3dadd(105.8, 105.386, 6.068, 0.596)
pt3dadd(105.9, 105.445, 6.055, 0.588)
pt3dadd(105.999, 105.503, 6.041, 0.58)
pt3dadd(106.099, 105.562, 6.028, 0.572)
pt3dadd(106.198, 105.621, 6.014, 0.566)
pt3dadd(106.298, 105.68, 6.001, 0.558)
pt3dadd(106.397, 105.738, 5.988, 0.55)
pt3dadd(106.497, 105.797, 5.974, 0.542)
pt3dadd(106.597, 105.856, 5.961, 0.534)
pt3dadd(106.696, 105.915, 5.947, 0.526)
pt3dadd(106.792, 105.971, 5.92, 0.546)
pt3dadd(106.886, 106.026, 5.884, 0.578)
pt3dadd(106.98, 106.08, 5.848, 0.612)
pt3dadd(107.074, 106.135, 5.813, 0.644)
pt3dadd(107.168, 106.189, 5.777, 0.678)
pt3dadd(107.262, 106.244, 5.741, 0.71)
pt3dadd(107.356, 106.299, 5.706, 0.744)
pt3dadd(107.45, 106.353, 5.67, 0.776)
pt3dadd(107.544, 106.408, 5.634, 0.81)
pt3dadd(107.638, 106.462, 5.599, 0.842)
pt3dadd(107.711, 106.517, 5.537, 0.856)
pt3dadd(107.782, 106.571, 5.475, 0.868)
pt3dadd(107.854, 106.625, 5.412, 0.88)
pt3dadd(107.925, 106.68, 5.349, 0.892)
pt3dadd(107.997, 106.734, 5.286, 0.906)
pt3dadd(108.069, 106.788, 5.223, 0.918)
pt3dadd(108.14, 106.843, 5.161, 0.93)
pt3dadd(108.212, 106.897, 5.098, 0.942)
pt3dadd(108.284, 106.951, 5.035, 0.954)
pt3dadd(108.355, 107.005, 4.972, 0.966)
pt3dadd(108.434, 107.038, 4.905, 0.944)
pt3dadd(108.512, 107.071, 4.838, 0.92)
pt3dadd(108.591, 107.104, 4.771, 0.898)
pt3dadd(108.669, 107.137, 4.703, 0.874)
pt3dadd(108.747, 107.17, 4.636, 0.852)
pt3dadd(108.826, 107.202, 4.569, 0.83)
pt3dadd(108.904, 107.235, 4.502, 0.806)
pt3dadd(108.983, 107.268, 4.435, 0.784)
pt3dadd(109.061, 107.301, 4.368, 0.762)
pt3dadd(109.14, 107.334, 4.301, 0.74)
pt3dadd(109.227, 107.365, 4.241, 0.754)
pt3dadd(109.313, 107.397, 4.181, 0.766)
pt3dadd(109.4, 107.428, 4.121, 0.78)
pt3dadd(109.487, 107.46, 4.061, 0.792)
pt3dadd(109.574, 107.491, 4.001, 0.806)
pt3dadd(109.66, 107.522, 3.942, 0.818)
pt3dadd(109.747, 107.554, 3.882, 0.832)
pt3dadd(109.834, 107.585, 3.822, 0.846)
pt3dadd(109.921, 107.616, 3.762, 0.858)
pt3dadd(110.009, 107.651, 3.706, 0.868)
pt3dadd(110.106, 107.702, 3.674, 0.852)
pt3dadd(110.203, 107.754, 3.641, 0.836)
pt3dadd(110.301, 107.805, 3.609, 0.82)
pt3dadd(110.398, 107.857, 3.577, 0.804)
pt3dadd(110.495, 107.909, 3.544, 0.788)
pt3dadd(110.592, 107.96, 3.512, 0.772)
pt3dadd(110.689, 108.012, 3.479, 0.756)
pt3dadd(110.787, 108.064, 3.447, 0.74)
pt3dadd(110.884, 108.115, 3.414, 0.724)
pt3dadd(110.982, 108.167, 3.384, 0.716)
pt3dadd(111.084, 108.219, 3.367, 0.754)
pt3dadd(111.186, 108.272, 3.35, 0.79)
pt3dadd(111.288, 108.324, 3.333, 0.828)
pt3dadd(111.391, 108.376, 3.316, 0.864)
pt3dadd(111.493, 108.428, 3.298, 0.902)
pt3dadd(111.595, 108.481, 3.281, 0.94)
pt3dadd(111.697, 108.533, 3.264, 0.976)
pt3dadd(111.799, 108.585, 3.247, 1.014)
pt3dadd(111.902, 108.638, 3.23, 1.05)
pt3dadd(112.001, 108.694, 3.212, 1.074)
pt3dadd(112.089, 108.769, 3.196, 1.032)
pt3dadd(112.177, 108.844, 3.179, 0.992)
pt3dadd(112.264, 108.918, 3.162, 0.95)
pt3dadd(112.352, 108.993, 3.145, 0.91)
pt3dadd(112.44, 109.068, 3.128, 0.87)
pt3dadd(112.527, 109.143, 3.112, 0.828)
pt3dadd(112.615, 109.218, 3.095, 0.788)
pt3dadd(112.703, 109.293, 3.078, 0.748)
pt3dadd(112.791, 109.368, 3.061, 0.706)
pt3dadd(112.868, 109.447, 3.036, 0.674)
pt3dadd(112.923, 109.535, 2.99, 0.664)
pt3dadd(112.978, 109.624, 2.944, 0.652)
pt3dadd(113.033, 109.713, 2.898, 0.64)
pt3dadd(113.087, 109.801, 2.852, 0.63)
pt3dadd(113.142, 109.89, 2.806, 0.618)
pt3dadd(113.197, 109.978, 2.76, 0.606)
pt3dadd(113.252, 110.067, 2.715, 0.596)
pt3dadd(113.307, 110.156, 2.669, 0.584)
pt3dadd(113.361, 110.244, 2.623, 0.572)
pt3dadd(113.412, 110.342, 2.589, 0.568)
pt3dadd(113.459, 110.447, 2.567, 0.572)
pt3dadd(113.506, 110.552, 2.545, 0.574)
pt3dadd(113.553, 110.657, 2.523, 0.578)
pt3dadd(113.6, 110.762, 2.501, 0.58)
pt3dadd(113.647, 110.867, 2.479, 0.584)
pt3dadd(113.694, 110.972, 2.457, 0.586)
pt3dadd(113.741, 111.078, 2.435, 0.59)
pt3dadd(113.788, 111.183, 2.412, 0.592)
pt3dadd(113.835, 111.288, 2.39, 0.596)
pt3dadd(113.882, 111.394, 2.374, 0.602)
pt3dadd(113.929, 111.502, 2.362, 0.61)
pt3dadd(113.976, 111.609, 2.35, 0.618)
pt3dadd(114.023, 111.717, 2.338, 0.626)
pt3dadd(114.07, 111.825, 2.326, 0.634)
pt3dadd(114.117, 111.932, 2.314, 0.642)
pt3dadd(114.163, 112.04, 2.301, 0.65)
pt3dadd(114.21, 112.147, 2.289, 0.658)
pt3dadd(114.257, 112.255, 2.277, 0.666)
pt3dadd(114.304, 112.362, 2.265, 0.674)
pt3dadd(114.358, 112.466, 2.252, 0.678)
pt3dadd(114.416, 112.567, 2.238, 0.678)
pt3dadd(114.474, 112.669, 2.223, 0.678)
pt3dadd(114.531, 112.77, 2.209, 0.678)
pt3dadd(114.589, 112.871, 2.195, 0.678)
pt3dadd(114.647, 112.972, 2.181, 0.678)
pt3dadd(114.705, 113.074, 2.167, 0.678)
pt3dadd(114.763, 113.175, 2.153, 0.678)
pt3dadd(114.821, 113.276, 2.138, 0.678)
pt3dadd(114.879, 113.378, 2.124, 0.678)
pt3dadd(114.93, 113.458, 2.075, 0.648)
pt3dadd(114.978, 113.528, 2.006, 0.6)
pt3dadd(115.025, 113.598, 1.937, 0.554)
pt3dadd(115.073, 113.668, 1.869, 0.506)
pt3dadd(115.121, 113.737, 1.8, 0.46)
pt3dadd(115.168, 113.807, 1.731, 0.414)
pt3dadd(115.216, 113.877, 1.663, 0.366)
pt3dadd(115.264, 113.946, 1.594, 0.32)
pt3dadd(115.311, 114.016, 1.526, 0.272)
pt3dadd(115.359, 114.086, 1.457, 0.226)
pt3dadd(115.355, 114.086, 1.457, 0.678)
pt3dadd(115.352, 114.085, 1.458, 0.678)
pt3dadd(115.402, 114.192, 1.458, 0.688)
pt3dadd(115.451, 114.3, 1.459, 0.698)
pt3dadd(115.502, 114.407, 1.459, 0.706)
pt3dadd(115.552, 114.514, 1.46, 0.716)
pt3dadd(115.602, 114.621, 1.46, 0.726)
pt3dadd(115.668, 114.715, 1.443, 0.738)
pt3dadd(115.737, 114.806, 1.42, 0.748)
pt3dadd(115.806, 114.897, 1.398, 0.76)
pt3dadd(115.875, 114.988, 1.376, 0.772)
pt3dadd(115.963, 115.051, 1.362, 0.786)
pt3dadd(116.078, 115.071, 1.363, 0.806)
pt3dadd(116.192, 115.091, 1.363, 0.824)
pt3dadd(116.229, 115.19, 1.364, 0.86)
pt3dadd(116.246, 115.308, 1.364, 0.898)
pt3dadd(116.258, 115.426, 1.361, 0.936)
pt3dadd(116.255, 115.544, 1.344, 0.976)
pt3dadd(116.251, 115.662, 1.328, 1.014)
pt3dadd(116.279, 115.739, 1.273, 1.046)
pt3dadd(116.327, 115.79, 1.194, 1.074)
pt3dadd(116.4, 115.866, 1.164, 1.064)
pt3dadd(116.457, 115.955, 1.128, 1.048)
pt3dadd(116.49, 116.048, 1.074, 1.036)
pt3dadd(116.524, 116.141, 1.02, 1.026)
pt3dadd(116.557, 116.234, 0.966, 1.014)
pt3dadd(116.583, 116.315, 0.902, 1.004)
pt3dadd(116.579, 116.354, 0.809, 1.004)
pt3dadd(116.576, 116.393, 0.715, 1.004)
pt3dadd(116.632, 116.445, 0.643, 1.042)
pt3dadd(116.697, 116.501, 0.577, 1.084)
pt3dadd(116.762, 116.584, 0.533, 1.112)
pt3dadd(116.801, 116.678, 0.493, 1.13)
pt3dadd(116.798, 116.791, 0.461, 1.13)
pt3dadd(116.794, 116.904, 0.428, 1.13)
pt3dadd(116.86, 116.972, 0.371, 1.086)
pt3dadd(116.926, 117.041, 0.314, 1.042)
pt3dadd(116.99, 117.113, 0.258, 0.996)
pt3dadd(117.037, 117.209, 0.216, 0.928)
pt3dadd(117.104, 117.286, 0.182, 0.826)
pt3dadd(117.205, 117.341, 0.176, 0.74)
pt3dadd(117.3, 117.409, 0.176, 0.716)
pt3dadd(117.381, 117.49, 0.176, 0.688)
pt3dadd(117.446, 117.589, 0.177, 0.654)
pt3dadd(117.524, 117.662, 0.176, 0.626)
pt3dadd(117.641, 117.666, 0.173, 0.616)
pt3dadd(117.757, 117.671, 0.169, 0.608)
pt3dadd(117.849, 117.687, 0.13, 0.61)
pt3dadd(117.917, 117.715, 0.053, 0.622)
pt3dadd(117.948, 117.794, 0.001, 0.658)
pt3dadd(117.955, 117.904, -0.035, 0.706)
pt3dadd(117.962, 118.015, -0.072, 0.756)
pt3dadd(117.97, 118.126, -0.108, 0.804)
pt3dadd(118.006, 118.236, -0.129, 0.89)
pt3dadd(118.042, 118.346, -0.15, 0.976)
pt3dadd(118.054, 118.435, -0.211, 1.048)
pt3dadd(118.109, 118.507, -0.273, 1.024)
}
}
proc shape3d_154() {
dend_7[30] { pt3dadd(118.165, 118.579, -0.336, 1)
pt3dadd(118.221, 118.651, -0.398, 0.974)
pt3dadd(118.277, 118.72, -0.461, 0.946)
pt3dadd(118.338, 118.779, -0.529, 0.904)
pt3dadd(118.401, 118.837, -0.597, 0.86)
pt3dadd(118.462, 118.896, -0.664, 0.816)
pt3dadd(118.522, 118.951, -0.734, 0.772)
pt3dadd(118.565, 118.978, -0.823, 0.708)
pt3dadd(118.608, 119.01, -0.909, 0.652)
pt3dadd(118.651, 119.092, -0.971, 0.638)
pt3dadd(118.69, 119.182, -1.001, 0.632)
pt3dadd(118.729, 119.286, -0.965, 0.646)
pt3dadd(118.784, 119.381, -0.954, 0.652)
pt3dadd(118.862, 119.463, -0.977, 0.652)
pt3dadd(118.924, 119.559, -1.003, 0.614)
pt3dadd(118.982, 119.657, -1.024, 0.55)
pt3dadd(119.035, 119.712, -1.095, 0.528)
pt3dadd(119.077, 119.763, -1.174, 0.492)
pt3dadd(119.073, 119.763, -1.174, 0.492)
pt3dadd(119.136, 119.842, -1.156, 0.452)
pt3dadd(119.177, 119.909, -1.081, 0.452)
pt3dadd(119.229, 119.976, -1.014, 0.432)
pt3dadd(119.273, 120.036, -0.938, 0.344)
pt3dadd(119.31, 120.078, -0.85, 0.276)
pt3dadd(119.372, 120.161, -0.81, 0.35)
pt3dadd(119.424, 120.266, -0.806, 0.402)
pt3dadd(119.484, 120.362, -0.83, 0.386)
pt3dadd(119.549, 120.436, -0.882, 0.376)
pt3dadd(119.615, 120.505, -0.939, 0.352)
pt3dadd(119.679, 120.595, -0.975, 0.336)
pt3dadd(119.74, 120.686, -0.999, 0.324)
pt3dadd(119.797, 120.787, -0.982, 0.31)
pt3dadd(119.857, 120.886, -0.963, 0.306)
pt3dadd(119.927, 120.977, -0.939, 0.322)
pt3dadd(119.981, 121.056, -0.986, 0.362)
pt3dadd(120.03, 121.128, -1.05, 0.406)
pt3dadd(120.061, 121.136, -1.145, 0.472)
pt3dadd(120.114, 121.177, -1.217, 0.516)
pt3dadd(120.186, 121.246, -1.268, 0.54)
pt3dadd(120.258, 121.315, -1.32, 0.566)
pt3dadd(120.33, 121.384, -1.372, 0.59)
pt3dadd(120.394, 121.445, -1.434, 0.608)
pt3dadd(120.448, 121.5, -1.509, 0.62)
pt3dadd(120.504, 121.554, -1.583, 0.632)
pt3dadd(120.558, 121.608, -1.658, 0.644)
pt3dadd(120.612, 121.666, -1.73, 0.652)
pt3dadd(120.667, 121.73, -1.797, 0.652)
pt3dadd(120.722, 121.796, -1.865, 0.652)
pt3dadd(120.778, 121.861, -1.933, 0.652)
pt3dadd(120.829, 121.933, -1.995, 0.646)
pt3dadd(120.869, 122.029, -2.044, 0.618)
pt3dadd(120.911, 122.094, -2.11, 0.592)
pt3dadd(120.954, 122.12, -2.198, 0.566)
pt3dadd(121.012, 122.173, -2.259, 0.558)
pt3dadd(121.086, 122.258, -2.282, 0.572)
pt3dadd(121.166, 122.342, -2.292, 0.612)
pt3dadd(121.252, 122.423, -2.291, 0.67)
pt3dadd(121.31, 122.52, -2.291, 0.766)
pt3dadd(121.339, 122.635, -2.29, 0.906)
pt3dadd(121.41, 122.728, -2.29, 1.028)
pt3dadd(121.488, 122.814, -2.289, 1.146)
pt3dadd(121.566, 122.903, -2.289, 1.256)
pt3dadd(121.644, 122.99, -2.288, 1.362)
pt3dadd(121.718, 123.074, -2.31, 1.44)
pt3dadd(121.789, 123.156, -2.347, 1.496)
pt3dadd(121.873, 123.221, -2.389, 1.506)
pt3dadd(121.958, 123.28, -2.433, 1.506)
pt3dadd(121.996, 123.32, -2.52, 1.466)
pt3dadd(122.057, 123.376, -2.588, 1.448)
pt3dadd(122.125, 123.434, -2.651, 1.434)
pt3dadd(122.194, 123.493, -2.713, 1.422)
pt3dadd(122.263, 123.552, -2.775, 1.41)
pt3dadd(122.332, 123.622, -2.828, 1.394)
pt3dadd(122.4, 123.697, -2.877, 1.374)
pt3dadd(122.468, 123.772, -2.926, 1.356)
pt3dadd(122.537, 123.847, -2.975, 1.338)
pt3dadd(122.604, 123.928, -3.021, 1.278)
pt3dadd(122.669, 124.01, -3.064, 1.192)
pt3dadd(122.665, 124.01, -3.064, 1.192)
pt3dadd(122.764, 124.062, -3.089, 1.104)
pt3dadd(122.867, 124.109, -3.111, 1.016)
pt3dadd(122.965, 124.12, -3.159, 0.942)
pt3dadd(123.064, 124.126, -3.211, 0.87)
pt3dadd(123.101, 124.132, -3.298, 0.822)
pt3dadd(123.118, 124.136, -3.396, 0.782)
pt3dadd(123.149, 124.157, -3.485, 0.742)
pt3dadd(123.145, 124.157, -3.484, 0.742)
pt3dadd(123.142, 124.157, -3.484, 0.742)
pt3dadd(123.206, 124.218, -3.547, 0.698)
pt3dadd(123.293, 124.274, -3.576, 0.642)
pt3dadd(123.386, 124.345, -3.576, 0.602)
pt3dadd(123.476, 124.42, -3.575, 0.59)
pt3dadd(123.581, 124.466, -3.575, 0.516)
pt3dadd(123.695, 124.484, -3.574, 0.454)
pt3dadd(123.805, 124.522, -3.574, 0.452)
pt3dadd(123.914, 124.561, -3.573, 0.452)
pt3dadd(123.992, 124.639, -3.573, 0.472)
pt3dadd(124.05, 124.742, -3.572, 0.506)
pt3dadd(124.123, 124.831, -3.572, 0.532)
pt3dadd(124.218, 124.898, -3.572, 0.544)
pt3dadd(124.316, 124.951, -3.58, 0.552)
pt3dadd(124.426, 124.956, -3.614, 0.552)
pt3dadd(124.535, 124.962, -3.648, 0.552)
pt3dadd(124.625, 124.962, -3.71, 0.57)
pt3dadd(124.723, 124.962, -3.76, 0.588)
pt3dadd(124.829, 124.961, -3.802, 0.608)
pt3dadd(124.934, 124.961, -3.844, 0.626)
pt3dadd(125.039, 124.961, -3.885, 0.646)
pt3dadd(125.144, 124.961, -3.927, 0.664)
pt3dadd(125.251, 124.961, -3.968, 0.684)
pt3dadd(125.358, 124.96, -4.007, 0.702)
pt3dadd(125.465, 124.96, -4.046, 0.722)
pt3dadd(125.572, 124.96, -4.086, 0.74)
pt3dadd(125.677, 124.96, -4.125, 0.76)
pt3dadd(125.784, 124.958, -4.164, 0.778)
pt3dadd(125.881, 124.994, -4.209, 0.79)
pt3dadd(125.978, 125.03, -4.254, 0.802)
pt3dadd(126.074, 125.066, -4.299, 0.812)
pt3dadd(126.172, 125.102, -4.344, 0.824)
pt3dadd(126.251, 125.15, -4.401, 0.828)
pt3dadd(126.319, 125.206, -4.466, 0.828)
pt3dadd(126.388, 125.261, -4.531, 0.828)
pt3dadd(126.456, 125.316, -4.596, 0.828)
pt3dadd(126.527, 125.389, -4.636, 0.828)
pt3dadd(126.599, 125.479, -4.653, 0.828)
pt3dadd(126.692, 125.531, -4.679, 0.828)
pt3dadd(126.799, 125.557, -4.711, 0.828)
pt3dadd(126.904, 125.594, -4.738, 0.828)
pt3dadd(127.008, 125.64, -4.759, 0.828)
pt3dadd(127.087, 125.665, -4.815, 0.848)
pt3dadd(127.147, 125.671, -4.9, 0.884)
pt3dadd(127.199, 125.678, -4.987, 0.936)
pt3dadd(127.242, 125.687, -5.079, 1.004)
pt3dadd(127.326, 125.746, -5.127, 1.034)
pt3dadd(127.409, 125.803, -5.175, 1.066)
pt3dadd(127.493, 125.861, -5.223, 1.096)
pt3dadd(127.577, 125.918, -5.271, 1.126)
pt3dadd(127.645, 125.965, -5.34, 1.14)
pt3dadd(127.712, 126.01, -5.411, 1.152)
pt3dadd(127.778, 126.054, -5.483, 1.164)
pt3dadd(127.846, 126.098, -5.554, 1.176)
pt3dadd(127.927, 126.138, -5.615, 1.188)
pt3dadd(128.015, 126.175, -5.672, 1.2)
pt3dadd(128.102, 126.212, -5.729, 1.212)
pt3dadd(128.189, 126.25, -5.786, 1.224)
pt3dadd(128.266, 126.287, -5.852, 1.234)
pt3dadd(128.327, 126.324, -5.93, 1.238)
pt3dadd(128.389, 126.361, -6.007, 1.244)
pt3dadd(128.45, 126.398, -6.084, 1.25)
pt3dadd(128.515, 126.436, -6.16, 1.256)
pt3dadd(128.591, 126.473, -6.228, 1.262)
pt3dadd(128.665, 126.511, -6.296, 1.268)
pt3dadd(128.741, 126.548, -6.364, 1.274)
pt3dadd(128.815, 126.587, -6.432, 1.28)
pt3dadd(128.911, 126.629, -6.475, 1.294)
pt3dadd(129.005, 126.676, -6.516, 1.308)
pt3dadd(129.001, 126.674, -6.515, 1.308)
pt3dadd(128.998, 126.674, -6.515, 1.308)
pt3dadd(129.053, 126.769, -6.551, 1.336)
pt3dadd(129.094, 126.857, -6.599, 1.366)
pt3dadd(129.097, 126.919, -6.683, 1.4)
pt3dadd(129.104, 126.977, -6.769, 1.436)
pt3dadd(129.14, 127.002, -6.86, 1.46)
pt3dadd(129.179, 127.031, -6.949, 1.482)
pt3dadd(129.244, 127.088, -7.016, 1.482)
pt3dadd(129.277, 127.117, -7.106, 1.462)
pt3dadd(129.311, 127.145, -7.198, 1.44)
pt3dadd(129.343, 127.172, -7.29, 1.42)
pt3dadd(129.376, 127.2, -7.382, 1.4)
pt3dadd(129.412, 127.228, -7.473, 1.376)
pt3dadd(129.408, 127.228, -7.472, 1.376)
pt3dadd(129.467, 127.254, -7.554, 1.336)
pt3dadd(129.527, 127.28, -7.636, 1.296)
pt3dadd(129.586, 127.307, -7.718, 1.258)
pt3dadd(129.644, 127.333, -7.8, 1.218)
pt3dadd(129.703, 127.342, -7.884, 1.144)
pt3dadd(129.761, 127.342, -7.97, 1.052)
pt3dadd(129.828, 127.342, -8.049, 0.964)
pt3dadd(129.906, 127.342, -8.122, 0.882)
pt3dadd(129.97, 127.342, -8.202, 0.806)
pt3dadd(130.004, 127.34, -8.296, 0.742)
pt3dadd(130.042, 127.34, -8.39, 0.678)
pt3dadd(130.156, 127.34, -8.407, 0.658)
pt3dadd(130.271, 127.34, -8.423, 0.64)
pt3dadd(130.386, 127.339, -8.433, 0.648)
pt3dadd(130.502, 127.339, -8.432, 0.698)
pt3dadd(130.619, 127.339, -8.432, 0.742)
pt3dadd(130.735, 127.339, -8.431, 0.774)
pt3dadd(130.852, 127.339, -8.431, 0.806)
pt3dadd(130.968, 127.338, -8.431, 0.838)
pt3dadd(131.084, 127.338, -8.43, 0.87)
pt3dadd(131.201, 127.338, -8.43, 0.902)
pt3dadd(131.317, 127.338, -8.429, 0.936)
pt3dadd(131.434, 127.339, -8.429, 0.98)
pt3dadd(131.55, 127.344, -8.428, 1.04)
pt3dadd(131.666, 127.348, -8.428, 1.1)
pt3dadd(131.776, 127.376, -8.436, 1.13)
pt3dadd(131.878, 127.429, -8.452, 1.13)
pt3dadd(131.948, 127.489, -8.497, 1.102)
pt3dadd(131.989, 127.556, -8.571, 1.046)
}
}
proc shape3d_155() {
dend_7[30] { pt3dadd(132.036, 127.618, -8.645, 0.97)
pt3dadd(132.085, 127.678, -8.719, 0.886)
pt3dadd(132.131, 127.699, -8.808, 0.828)
pt3dadd(132.173, 127.741, -8.891, 0.78)
pt3dadd(132.214, 127.799, -8.97, 0.74)
pt3dadd(132.259, 127.859, -9.045, 0.708)
pt3dadd(132.308, 127.918, -9.12, 0.68)
pt3dadd(132.406, 127.926, -9.173, 0.656)
pt3dadd(132.504, 127.932, -9.225, 0.632)
pt3dadd(132.596, 127.978, -9.269, 0.604)
pt3dadd(132.688, 128.029, -9.31, 0.576)
pt3dadd(132.774, 128.108, -9.318, 0.558)
pt3dadd(132.864, 128.138, -9.362, 0.552)
pt3dadd(132.955, 128.147, -9.423, 0.552)
pt3dadd(133.046, 128.154, -9.483, 0.552)
pt3dadd(133.138, 128.162, -9.543, 0.552)
pt3dadd(133.23, 128.171, -9.603, 0.552)
pt3dadd(133.328, 128.171, -9.654, 0.584)
pt3dadd(133.429, 128.171, -9.704, 0.618)
pt3dadd(133.541, 128.17, -9.717, 0.664)
pt3dadd(133.657, 128.17, -9.716, 0.716)
pt3dadd(133.774, 128.17, -9.716, 0.766)
pt3dadd(133.878, 128.17, -9.753, 0.83)
pt3dadd(133.978, 128.17, -9.803, 0.898)
pt3dadd(133.974, 128.168, -9.803, 0.898)
pt3dadd(134.022, 128.168, -9.88, 0.954)
pt3dadd(134.028, 128.168, -9.979, 0.998)
pt3dadd(134.034, 128.168, -10.078, 1.044)
pt3dadd(134.104, 128.18, -10.148, 1.066)
pt3dadd(134.194, 128.196, -10.209, 1.082)
pt3dadd(134.285, 128.212, -10.269, 1.098)
pt3dadd(134.281, 128.212, -10.269, 1.098)
pt3dadd(134.335, 128.272, -10.318, 1.1)
pt3dadd(134.351, 128.382, -10.355, 1.088)
pt3dadd(134.358, 128.494, -10.388, 1.028)
pt3dadd(134.411, 128.584, -10.404, 0.96)
pt3dadd(134.501, 128.657, -10.413, 0.928)
pt3dadd(134.591, 128.731, -10.422, 0.896)
pt3dadd(134.682, 128.804, -10.431, 0.864)
pt3dadd(134.772, 128.878, -10.44, 0.832)
pt3dadd(134.858, 128.957, -10.454, 0.808)
pt3dadd(134.942, 129.036, -10.468, 0.786)
pt3dadd(135.028, 129.115, -10.483, 0.764)
pt3dadd(135.112, 129.194, -10.497, 0.742)
pt3dadd(135.198, 129.272, -10.507, 0.718)
pt3dadd(135.286, 129.35, -10.512, 0.694)
pt3dadd(135.353, 129.422, -10.542, 0.67)
pt3dadd(135.377, 129.486, -10.624, 0.642)
pt3dadd(135.389, 129.562, -10.697, 0.608)
pt3dadd(135.385, 129.655, -10.759, 0.56)
pt3dadd(135.376, 129.742, -10.826, 0.506)
pt3dadd(135.352, 129.81, -10.906, 0.428)
pt3dadd(135.314, 129.89, -10.962, 0.366)
pt3dadd(135.251, 129.992, -10.975, 0.336)
pt3dadd(135.188, 130.096, -10.987, 0.306)
pt3dadd(135.125, 130.198, -11, 0.276)
}
dend_0[11] {pt3dclear()
pt3dadd(94.315, 106.081, 12.905, 13.998)
pt3dadd(94.315, 106.081, 13.005, 13.95)
pt3dadd(94.315, 106.081, 13.105, 13.902)
pt3dadd(94.315, 106.081, 13.205, 13.854)
pt3dadd(94.315, 106.081, 13.305, 13.806)
pt3dadd(94.315, 106.081, 13.405, 13.758)
pt3dadd(94.315, 106.081, 13.505, 13.71)
pt3dadd(94.315, 106.081, 13.605, 13.662)
pt3dadd(94.315, 106.081, 13.705, 13.614)
pt3dadd(94.315, 106.081, 13.805, 13.566)
pt3dadd(94.315, 106.081, 13.905, 13.518)
pt3dadd(94.315, 106.082, 14.005, 13.454)
pt3dadd(94.315, 106.082, 14.105, 13.39)
pt3dadd(94.315, 106.082, 14.205, 13.326)
pt3dadd(94.315, 106.083, 14.305, 13.264)
pt3dadd(94.315, 106.083, 14.405, 13.2)
pt3dadd(94.315, 106.083, 14.505, 13.136)
pt3dadd(94.315, 106.084, 14.605, 13.072)
pt3dadd(94.315, 106.084, 14.705, 13.01)
pt3dadd(94.314, 106.084, 14.805, 12.946)
pt3dadd(94.314, 106.085, 14.905, 12.882)
}
dend_0[12] {pt3dclear()
pt3dadd(94.314, 106.085, 14.905, 12.882)
pt3dadd(94.314, 106.085, 14.923, 12.878)
pt3dadd(94.314, 106.086, 15.023, 12.85)
pt3dadd(94.314, 106.086, 15.123, 12.822)
pt3dadd(94.314, 106.087, 15.223, 12.79)
pt3dadd(94.314, 106.088, 15.323, 12.756)
pt3dadd(94.314, 106.088, 15.423, 12.722)
pt3dadd(94.313, 106.089, 15.523, 12.688)
pt3dadd(94.313, 106.09, 15.623, 12.656)
pt3dadd(94.313, 106.091, 15.723, 12.622)
pt3dadd(94.313, 106.091, 15.823, 12.588)
pt3dadd(94.313, 106.092, 15.923, 12.554)
pt3dadd(94.313, 106.093, 16.023, 12.522)
pt3dadd(94.312, 106.094, 16.123, 12.482)
pt3dadd(94.312, 106.095, 16.223, 12.426)
pt3dadd(94.312, 106.096, 16.323, 12.37)
pt3dadd(94.311, 106.098, 16.423, 12.314)
pt3dadd(94.311, 106.099, 16.523, 12.258)
pt3dadd(94.311, 106.101, 16.623, 12.202)
pt3dadd(94.31, 106.102, 16.723, 12.146)
pt3dadd(94.31, 106.104, 16.823, 12.09)
pt3dadd(94.31, 106.105, 16.923, 12.034)
pt3dadd(94.309, 106.107, 17.023, 11.978)
pt3dadd(94.309, 106.108, 17.123, 11.886)
pt3dadd(94.308, 106.112, 17.223, 11.706)
pt3dadd(94.307, 106.115, 17.323, 11.526)
pt3dadd(94.306, 106.118, 17.423, 11.344)
pt3dadd(94.306, 106.121, 17.523, 11.164)
pt3dadd(94.305, 106.124, 17.623, 10.984)
pt3dadd(94.304, 106.127, 17.723, 10.804)
pt3dadd(94.303, 106.13, 17.823, 10.622)
pt3dadd(94.302, 106.133, 17.923, 10.442)
pt3dadd(94.302, 106.137, 18.023, 10.262)
pt3dadd(94.301, 106.141, 18.122, 10.016)
pt3dadd(94.299, 106.148, 18.222, 9.606)
pt3dadd(94.297, 106.156, 18.322, 9.194)
pt3dadd(94.295, 106.163, 18.422, 8.784)
pt3dadd(94.293, 106.171, 18.522, 8.372)
pt3dadd(94.292, 106.178, 18.621, 7.96)
pt3dadd(94.29, 106.186, 18.721, 7.55)
pt3dadd(94.288, 106.193, 18.821, 7.138)
pt3dadd(94.286, 106.2, 18.921, 6.728)
pt3dadd(94.284, 106.208, 19.021, 6.316)
pt3dadd(94.282, 106.218, 19.12, 5.942)
pt3dadd(94.278, 106.233, 19.219, 5.664)
pt3dadd(94.274, 106.248, 19.318, 5.386)
pt3dadd(94.27, 106.263, 19.417, 5.108)
pt3dadd(94.266, 106.278, 19.517, 4.828)
pt3dadd(94.262, 106.294, 19.616, 4.55)
pt3dadd(94.258, 106.309, 19.715, 4.272)
pt3dadd(94.254, 106.324, 19.814, 3.994)
}
dend_7[31] {pt3dclear()
pt3dadd(94.254, 106.324, 19.814, 3.994)
pt3dadd(94.25, 106.34, 19.913, 3.714)
pt3dadd(94.246, 106.355, 20.012, 3.436)
pt3dadd(94.241, 106.378, 20.11, 3.214)
pt3dadd(94.231, 106.42, 20.203, 3.13)
pt3dadd(94.222, 106.462, 20.296, 3.046)
pt3dadd(94.213, 106.505, 20.39, 2.962)
pt3dadd(94.204, 106.547, 20.483, 2.878)
pt3dadd(94.195, 106.589, 20.576, 2.792)
pt3dadd(94.186, 106.631, 20.67, 2.708)
pt3dadd(94.177, 106.674, 20.763, 2.624)
pt3dadd(94.167, 106.716, 20.856, 2.54)
pt3dadd(94.158, 106.758, 20.949, 2.456)
pt3dadd(94.145, 106.806, 21.04, 2.372)
pt3dadd(94.126, 106.86, 21.128, 2.292)
pt3dadd(94.107, 106.915, 21.216, 2.21)
pt3dadd(94.088, 106.969, 21.303, 2.128)
pt3dadd(94.069, 107.024, 21.391, 2.048)
pt3dadd(94.05, 107.078, 21.479, 1.966)
pt3dadd(94.031, 107.133, 21.566, 1.886)
pt3dadd(94.012, 107.187, 21.654, 1.804)
pt3dadd(93.993, 107.242, 21.741, 1.722)
pt3dadd(93.975, 107.297, 21.829, 1.642)
pt3dadd(93.94, 107.36, 21.907, 1.594)
pt3dadd(93.885, 107.433, 21.972, 1.586)
pt3dadd(93.831, 107.506, 22.036, 1.578)
pt3dadd(93.777, 107.58, 22.101, 1.57)
pt3dadd(93.722, 107.653, 22.166, 1.564)
pt3dadd(93.668, 107.726, 22.231, 1.556)
pt3dadd(93.613, 107.8, 22.296, 1.548)
pt3dadd(93.559, 107.873, 22.361, 1.54)
pt3dadd(93.505, 107.946, 22.426, 1.532)
pt3dadd(93.45, 108.02, 22.49, 1.526)
pt3dadd(93.377, 108.086, 22.546, 1.588)
pt3dadd(93.298, 108.15, 22.6, 1.668)
pt3dadd(93.219, 108.213, 22.654, 1.748)
pt3dadd(93.141, 108.277, 22.707, 1.828)
pt3dadd(93.062, 108.341, 22.761, 1.908)
pt3dadd(92.984, 108.405, 22.815, 1.99)
pt3dadd(92.905, 108.469, 22.868, 2.07)
pt3dadd(92.827, 108.533, 22.922, 2.15)
pt3dadd(92.748, 108.597, 22.976, 2.23)
pt3dadd(92.67, 108.661, 23.029, 2.31)
pt3dadd(92.607, 108.751, 23.068, 2.202)
pt3dadd(92.548, 108.846, 23.104, 2.058)
pt3dadd(92.489, 108.94, 23.141, 1.914)
pt3dadd(92.429, 109.035, 23.177, 1.77)
pt3dadd(92.37, 109.13, 23.213, 1.626)
pt3dadd(92.311, 109.225, 23.249, 1.48)
pt3dadd(92.251, 109.32, 23.285, 1.336)
pt3dadd(92.192, 109.415, 23.321, 1.192)
pt3dadd(92.133, 109.509, 23.358, 1.048)
pt3dadd(92.073, 109.604, 23.394, 0.904)
}
dend_7[32] {pt3dclear()
pt3dadd(92.073, 109.604, 23.394, 0.904)
pt3dadd(92.057, 109.679, 23.408, 0.94)
pt3dadd(92.031, 109.794, 23.429, 0.994)
pt3dadd(92.006, 109.908, 23.45, 1.05)
pt3dadd(91.98, 110.023, 23.471, 1.104)
pt3dadd(91.955, 110.137, 23.493, 1.16)
pt3dadd(91.929, 110.252, 23.514, 1.214)
pt3dadd(91.907, 110.367, 23.532, 1.2)
pt3dadd(91.89, 110.485, 23.547, 1.106)
pt3dadd(91.872, 110.602, 23.562, 1.014)
pt3dadd(91.854, 110.719, 23.576, 0.922)
pt3dadd(91.836, 110.837, 23.591, 0.828)
pt3dadd(91.818, 110.954, 23.606, 0.736)
pt3dadd(91.801, 111.072, 23.621, 0.642)
pt3dadd(91.783, 111.189, 23.635, 0.55)
pt3dadd(91.765, 111.306, 23.65, 0.456)
pt3dadd(91.747, 111.423, 23.665, 0.364)
pt3dadd(91.712, 111.529, 23.694, 0.314)
pt3dadd(91.659, 111.622, 23.738, 0.314)
}
}
proc shape3d_156() {
dend_7[32] { pt3dadd(91.605, 111.716, 23.783, 0.312)
pt3dadd(91.552, 111.809, 23.827, 0.312)
pt3dadd(91.498, 111.902, 23.872, 0.31)
pt3dadd(91.444, 111.995, 23.916, 0.31)
pt3dadd(91.391, 112.088, 23.961, 0.308)
pt3dadd(91.337, 112.182, 24.005, 0.308)
pt3dadd(91.284, 112.275, 24.05, 0.306)
pt3dadd(91.23, 112.368, 24.094, 0.306)
pt3dadd(91.191, 112.473, 24.126, 0.322)
pt3dadd(91.161, 112.585, 24.151, 0.352)
pt3dadd(91.131, 112.697, 24.176, 0.38)
pt3dadd(91.1, 112.81, 24.201, 0.408)
pt3dadd(91.07, 112.922, 24.226, 0.436)
pt3dadd(91.04, 113.034, 24.251, 0.464)
pt3dadd(91.009, 113.146, 24.276, 0.494)
pt3dadd(90.979, 113.258, 24.3, 0.522)
pt3dadd(90.949, 113.371, 24.325, 0.55)
pt3dadd(90.918, 113.483, 24.35, 0.578)
pt3dadd(90.901, 113.6, 24.363, 0.57)
pt3dadd(90.891, 113.719, 24.372, 0.544)
pt3dadd(90.88, 113.838, 24.38, 0.52)
pt3dadd(90.869, 113.957, 24.388, 0.494)
pt3dadd(90.858, 114.076, 24.396, 0.468)
pt3dadd(90.847, 114.195, 24.404, 0.442)
pt3dadd(90.836, 114.314, 24.413, 0.418)
pt3dadd(90.825, 114.434, 24.421, 0.392)
pt3dadd(90.814, 114.553, 24.429, 0.366)
pt3dadd(90.803, 114.672, 24.437, 0.342)
pt3dadd(90.795, 114.791, 24.443, 0.366)
pt3dadd(90.787, 114.911, 24.447, 0.412)
pt3dadd(90.78, 115.031, 24.451, 0.456)
pt3dadd(90.772, 115.15, 24.456, 0.5)
pt3dadd(90.764, 115.27, 24.46, 0.546)
pt3dadd(90.757, 115.389, 24.464, 0.59)
pt3dadd(90.749, 115.509, 24.469, 0.634)
pt3dadd(90.741, 115.629, 24.473, 0.68)
pt3dadd(90.734, 115.748, 24.477, 0.724)
pt3dadd(90.726, 115.868, 24.482, 0.768)
pt3dadd(90.712, 115.987, 24.489, 0.806)
pt3dadd(90.696, 116.105, 24.498, 0.84)
pt3dadd(90.68, 116.224, 24.506, 0.876)
pt3dadd(90.664, 116.342, 24.515, 0.912)
pt3dadd(90.648, 116.461, 24.523, 0.946)
pt3dadd(90.632, 116.579, 24.532, 0.98)
pt3dadd(90.616, 116.698, 24.54, 1.016)
pt3dadd(90.6, 116.816, 24.549, 1.05)
pt3dadd(90.584, 116.935, 24.557, 1.086)
pt3dadd(90.568, 117.053, 24.566, 1.12)
pt3dadd(90.521, 117.156, 24.594, 1.112)
pt3dadd(90.464, 117.252, 24.628, 1.09)
pt3dadd(90.406, 117.349, 24.663, 1.066)
pt3dadd(90.348, 117.445, 24.698, 1.044)
pt3dadd(90.291, 117.542, 24.733, 1.02)
pt3dadd(90.233, 117.638, 24.767, 0.996)
pt3dadd(90.175, 117.735, 24.802, 0.974)
pt3dadd(90.117, 117.832, 24.837, 0.95)
pt3dadd(90.06, 117.928, 24.872, 0.928)
pt3dadd(90.002, 118.025, 24.907, 0.904)
}
dend_7[33] {pt3dclear()
pt3dadd(90.002, 118.025, 24.907, 0.904)
pt3dadd(90.001, 118.026, 24.907, 0.904)
pt3dadd(89.949, 118.133, 24.922, 0.848)
pt3dadd(89.897, 118.24, 24.938, 0.792)
pt3dadd(89.846, 118.346, 24.954, 0.736)
pt3dadd(89.797, 118.456, 24.949, 0.694)
pt3dadd(89.749, 118.565, 24.942, 0.654)
pt3dadd(89.701, 118.675, 24.936, 0.614)
pt3dadd(89.654, 118.785, 24.929, 0.572)
pt3dadd(89.606, 118.895, 24.923, 0.532)
pt3dadd(89.558, 119.004, 24.916, 0.492)
pt3dadd(89.51, 119.114, 24.909, 0.45)
pt3dadd(89.462, 119.224, 24.903, 0.41)
pt3dadd(89.414, 119.334, 24.896, 0.368)
pt3dadd(89.365, 119.442, 24.887, 0.334)
pt3dadd(89.313, 119.546, 24.862, 0.334)
pt3dadd(89.26, 119.65, 24.838, 0.334)
pt3dadd(89.208, 119.754, 24.814, 0.334)
pt3dadd(89.155, 119.858, 24.79, 0.334)
pt3dadd(89.102, 119.962, 24.766, 0.334)
pt3dadd(89.049, 120.066, 24.742, 0.332)
pt3dadd(88.997, 120.169, 24.717, 0.332)
pt3dadd(88.944, 120.274, 24.693, 0.332)
pt3dadd(88.891, 120.377, 24.669, 0.332)
pt3dadd(88.835, 120.48, 24.647, 0.336)
pt3dadd(88.767, 120.576, 24.632, 0.356)
pt3dadd(88.699, 120.673, 24.616, 0.374)
pt3dadd(88.631, 120.77, 24.601, 0.394)
pt3dadd(88.563, 120.868, 24.586, 0.412)
pt3dadd(88.495, 120.965, 24.571, 0.432)
pt3dadd(88.427, 121.062, 24.556, 0.45)
pt3dadd(88.359, 121.159, 24.541, 0.47)
pt3dadd(88.291, 121.256, 24.525, 0.488)
pt3dadd(88.223, 121.354, 24.51, 0.508)
pt3dadd(88.153, 121.45, 24.497, 0.526)
pt3dadd(88.075, 121.541, 24.491, 0.542)
pt3dadd(87.998, 121.632, 24.485, 0.556)
pt3dadd(87.92, 121.723, 24.479, 0.572)
pt3dadd(87.843, 121.814, 24.473, 0.588)
pt3dadd(87.765, 121.907, 24.467, 0.604)
pt3dadd(87.688, 121.998, 24.461, 0.62)
pt3dadd(87.611, 122.089, 24.454, 0.636)
pt3dadd(87.533, 122.18, 24.448, 0.65)
pt3dadd(87.456, 122.272, 24.442, 0.666)
pt3dadd(87.378, 122.363, 24.438, 0.678)
pt3dadd(87.298, 122.453, 24.441, 0.678)
pt3dadd(87.218, 122.542, 24.443, 0.678)
pt3dadd(87.138, 122.632, 24.445, 0.678)
pt3dadd(87.059, 122.722, 24.447, 0.678)
pt3dadd(86.979, 122.81, 24.45, 0.678)
pt3dadd(86.899, 122.9, 24.452, 0.678)
pt3dadd(86.82, 122.99, 24.454, 0.678)
pt3dadd(86.74, 123.08, 24.456, 0.678)
pt3dadd(86.66, 123.169, 24.459, 0.678)
pt3dadd(86.582, 123.26, 24.462, 0.686)
pt3dadd(86.506, 123.354, 24.467, 0.718)
pt3dadd(86.431, 123.446, 24.472, 0.748)
pt3dadd(86.356, 123.54, 24.477, 0.78)
pt3dadd(86.281, 123.634, 24.482, 0.81)
pt3dadd(86.206, 123.727, 24.488, 0.842)
pt3dadd(86.131, 123.821, 24.493, 0.872)
pt3dadd(86.056, 123.914, 24.498, 0.904)
pt3dadd(85.981, 124.007, 24.503, 0.934)
pt3dadd(85.906, 124.1, 24.509, 0.966)
pt3dadd(85.835, 124.196, 24.515, 0.988)
pt3dadd(85.777, 124.302, 24.524, 0.99)
pt3dadd(85.719, 124.406, 24.533, 0.99)
pt3dadd(85.661, 124.511, 24.542, 0.992)
pt3dadd(85.603, 124.615, 24.552, 0.992)
pt3dadd(85.545, 124.72, 24.561, 0.994)
pt3dadd(85.486, 124.824, 24.57, 0.994)
pt3dadd(85.428, 124.928, 24.579, 0.996)
pt3dadd(85.37, 125.033, 24.588, 0.996)
pt3dadd(85.312, 125.137, 24.598, 0.998)
pt3dadd(85.262, 125.243, 24.613, 0.994)
pt3dadd(85.227, 125.353, 24.639, 0.986)
pt3dadd(85.191, 125.464, 24.666, 0.976)
pt3dadd(85.155, 125.574, 24.692, 0.966)
pt3dadd(85.12, 125.683, 24.718, 0.956)
pt3dadd(85.085, 125.794, 24.745, 0.948)
pt3dadd(85.049, 125.904, 24.771, 0.938)
pt3dadd(85.014, 126.014, 24.798, 0.928)
pt3dadd(84.978, 126.125, 24.824, 0.918)
pt3dadd(84.943, 126.235, 24.85, 0.908)
pt3dadd(84.907, 126.344, 24.879, 0.9)
pt3dadd(84.872, 126.452, 24.91, 0.888)
pt3dadd(84.837, 126.56, 24.942, 0.878)
pt3dadd(84.802, 126.668, 24.973, 0.868)
pt3dadd(84.766, 126.778, 25.005, 0.856)
pt3dadd(84.731, 126.886, 25.036, 0.846)
pt3dadd(84.696, 126.994, 25.068, 0.836)
pt3dadd(84.661, 127.103, 25.099, 0.826)
pt3dadd(84.626, 127.211, 25.131, 0.816)
pt3dadd(84.59, 127.319, 25.162, 0.804)
pt3dadd(84.553, 127.428, 25.188, 0.798)
pt3dadd(84.513, 127.538, 25.21, 0.796)
pt3dadd(84.474, 127.649, 25.232, 0.792)
pt3dadd(84.435, 127.759, 25.254, 0.79)
pt3dadd(84.395, 127.87, 25.276, 0.788)
pt3dadd(84.356, 127.98, 25.298, 0.784)
pt3dadd(84.316, 128.09, 25.32, 0.782)
pt3dadd(84.277, 128.2, 25.342, 0.778)
pt3dadd(84.238, 128.31, 25.364, 0.776)
pt3dadd(84.198, 128.42, 25.386, 0.774)
pt3dadd(84.165, 128.533, 25.405, 0.768)
pt3dadd(84.137, 128.648, 25.42, 0.764)
pt3dadd(84.109, 128.764, 25.436, 0.758)
pt3dadd(84.081, 128.879, 25.452, 0.752)
pt3dadd(84.053, 128.994, 25.468, 0.748)
pt3dadd(84.024, 129.109, 25.484, 0.742)
pt3dadd(83.996, 129.224, 25.499, 0.736)
pt3dadd(83.968, 129.34, 25.515, 0.73)
pt3dadd(83.94, 129.455, 25.531, 0.726)
pt3dadd(83.912, 129.57, 25.547, 0.72)
pt3dadd(83.889, 129.684, 25.567, 0.708)
pt3dadd(83.869, 129.799, 25.591, 0.69)
pt3dadd(83.849, 129.914, 25.616, 0.672)
pt3dadd(83.83, 130.028, 25.64, 0.654)
pt3dadd(83.81, 130.144, 25.664, 0.636)
pt3dadd(83.79, 130.258, 25.688, 0.62)
pt3dadd(83.771, 130.373, 25.712, 0.602)
pt3dadd(83.751, 130.488, 25.736, 0.584)
pt3dadd(83.731, 130.602, 25.761, 0.566)
pt3dadd(83.712, 130.717, 25.785, 0.548)
pt3dadd(83.687, 130.828, 25.816, 0.556)
pt3dadd(83.659, 130.937, 25.852, 0.578)
pt3dadd(83.632, 131.046, 25.887, 0.598)
pt3dadd(83.605, 131.154, 25.923, 0.62)
pt3dadd(83.577, 131.263, 25.958, 0.642)
pt3dadd(83.55, 131.372, 25.994, 0.662)
pt3dadd(83.523, 131.482, 26.029, 0.684)
pt3dadd(83.495, 131.59, 26.065, 0.706)
pt3dadd(83.468, 131.699, 26.1, 0.726)
pt3dadd(83.441, 131.808, 26.136, 0.748)
pt3dadd(83.4, 131.915, 26.164, 0.77)
pt3dadd(83.354, 132.022, 26.19, 0.79)
pt3dadd(83.309, 132.127, 26.217, 0.81)
pt3dadd(83.263, 132.234, 26.243, 0.832)
pt3dadd(83.218, 132.341, 26.269, 0.852)
pt3dadd(83.172, 132.448, 26.295, 0.874)
pt3dadd(83.127, 132.553, 26.322, 0.894)
pt3dadd(83.082, 132.66, 26.348, 0.916)
}
}
proc shape3d_157() {
dend_7[33] { pt3dadd(83.036, 132.767, 26.374, 0.936)
pt3dadd(82.991, 132.874, 26.401, 0.958)
pt3dadd(82.95, 132.982, 26.426, 0.972)
pt3dadd(82.911, 133.091, 26.451, 0.984)
pt3dadd(82.872, 133.201, 26.476, 0.996)
pt3dadd(82.833, 133.31, 26.5, 1.008)
pt3dadd(82.794, 133.42, 26.525, 1.02)
pt3dadd(82.755, 133.529, 26.55, 1.032)
pt3dadd(82.716, 133.639, 26.575, 1.044)
pt3dadd(82.677, 133.748, 26.6, 1.058)
pt3dadd(82.638, 133.858, 26.625, 1.07)
pt3dadd(82.599, 133.967, 26.65, 1.082)
pt3dadd(82.56, 134.074, 26.683, 1.066)
pt3dadd(82.522, 134.179, 26.718, 1.042)
pt3dadd(82.483, 134.285, 26.753, 1.02)
pt3dadd(82.444, 134.39, 26.788, 0.996)
pt3dadd(82.406, 134.496, 26.823, 0.972)
pt3dadd(82.367, 134.602, 26.858, 0.95)
pt3dadd(82.328, 134.707, 26.893, 0.926)
pt3dadd(82.289, 134.813, 26.928, 0.902)
pt3dadd(82.251, 134.918, 26.963, 0.88)
pt3dadd(82.212, 135.023, 26.998, 0.856)
pt3dadd(82.155, 135.125, 27.023, 0.82)
pt3dadd(82.095, 135.224, 27.046, 0.78)
pt3dadd(82.035, 135.324, 27.069, 0.74)
pt3dadd(81.975, 135.425, 27.092, 0.702)
pt3dadd(81.915, 135.524, 27.115, 0.662)
pt3dadd(81.855, 135.625, 27.138, 0.624)
pt3dadd(81.795, 135.725, 27.161, 0.584)
pt3dadd(81.734, 135.824, 27.184, 0.544)
pt3dadd(81.674, 135.925, 27.207, 0.506)
pt3dadd(81.614, 136.025, 27.23, 0.466)
pt3dadd(81.543, 136.12, 27.246, 0.46)
pt3dadd(81.469, 136.213, 27.26, 0.458)
pt3dadd(81.396, 136.307, 27.274, 0.458)
pt3dadd(81.322, 136.399, 27.289, 0.456)
pt3dadd(81.249, 136.493, 27.303, 0.456)
pt3dadd(81.176, 136.586, 27.318, 0.456)
pt3dadd(81.102, 136.68, 27.332, 0.454)
pt3dadd(81.029, 136.772, 27.346, 0.454)
pt3dadd(80.955, 136.866, 27.361, 0.452)
pt3dadd(80.882, 136.96, 27.375, 0.452)
pt3dadd(80.807, 137.052, 27.386, 0.486)
pt3dadd(80.731, 137.144, 27.397, 0.526)
pt3dadd(80.655, 137.237, 27.407, 0.566)
pt3dadd(80.58, 137.329, 27.418, 0.606)
pt3dadd(80.504, 137.422, 27.428, 0.646)
pt3dadd(80.429, 137.514, 27.439, 0.686)
pt3dadd(80.353, 137.606, 27.449, 0.726)
pt3dadd(80.277, 137.699, 27.46, 0.766)
pt3dadd(80.202, 137.791, 27.47, 0.808)
pt3dadd(80.126, 137.884, 27.481, 0.848)
pt3dadd(80.061, 137.981, 27.501, 0.86)
pt3dadd(79.998, 138.079, 27.523, 0.868)
pt3dadd(79.934, 138.178, 27.545, 0.876)
pt3dadd(79.871, 138.276, 27.567, 0.886)
pt3dadd(79.807, 138.374, 27.589, 0.894)
pt3dadd(79.744, 138.473, 27.611, 0.902)
pt3dadd(79.681, 138.571, 27.633, 0.91)
pt3dadd(79.617, 138.67, 27.655, 0.918)
pt3dadd(79.554, 138.768, 27.677, 0.926)
pt3dadd(79.491, 138.866, 27.699, 0.934)
pt3dadd(79.441, 138.97, 27.729, 0.916)
pt3dadd(79.391, 139.073, 27.76, 0.898)
pt3dadd(79.341, 139.175, 27.79, 0.88)
pt3dadd(79.292, 139.278, 27.82, 0.862)
pt3dadd(79.242, 139.381, 27.851, 0.842)
pt3dadd(79.193, 139.484, 27.881, 0.824)
pt3dadd(79.143, 139.588, 27.912, 0.806)
pt3dadd(79.093, 139.69, 27.942, 0.788)
pt3dadd(79.044, 139.793, 27.973, 0.77)
pt3dadd(78.994, 139.896, 28.003, 0.752)
pt3dadd(78.948, 140.004, 28.024, 0.756)
pt3dadd(78.901, 140.112, 28.044, 0.758)
pt3dadd(78.855, 140.22, 28.065, 0.762)
pt3dadd(78.809, 140.328, 28.086, 0.766)
pt3dadd(78.762, 140.436, 28.106, 0.77)
pt3dadd(78.716, 140.543, 28.127, 0.774)
pt3dadd(78.67, 140.651, 28.148, 0.778)
pt3dadd(78.624, 140.759, 28.168, 0.78)
pt3dadd(78.577, 140.867, 28.189, 0.784)
pt3dadd(78.533, 140.976, 28.209, 0.786)
pt3dadd(78.511, 141.092, 28.221, 0.764)
pt3dadd(78.489, 141.21, 28.234, 0.744)
pt3dadd(78.467, 141.326, 28.246, 0.722)
pt3dadd(78.445, 141.444, 28.258, 0.702)
pt3dadd(78.423, 141.56, 28.27, 0.68)
pt3dadd(78.402, 141.678, 28.283, 0.658)
pt3dadd(78.38, 141.796, 28.295, 0.638)
pt3dadd(78.358, 141.912, 28.307, 0.616)
pt3dadd(78.336, 142.03, 28.319, 0.594)
pt3dadd(78.316, 142.146, 28.331, 0.58)
pt3dadd(78.313, 142.266, 28.341, 0.62)
pt3dadd(78.31, 142.385, 28.35, 0.66)
pt3dadd(78.307, 142.505, 28.359, 0.7)
pt3dadd(78.304, 142.625, 28.369, 0.74)
pt3dadd(78.302, 142.744, 28.378, 0.78)
pt3dadd(78.299, 142.864, 28.387, 0.82)
pt3dadd(78.296, 142.982, 28.397, 0.86)
pt3dadd(78.293, 143.102, 28.406, 0.9)
pt3dadd(78.29, 143.221, 28.415, 0.94)
pt3dadd(78.289, 143.34, 28.426, 0.976)
pt3dadd(78.303, 143.456, 28.449, 0.984)
pt3dadd(78.317, 143.573, 28.471, 0.992)
pt3dadd(78.33, 143.689, 28.494, 1)
pt3dadd(78.344, 143.806, 28.517, 1.008)
pt3dadd(78.357, 143.921, 28.539, 1.016)
pt3dadd(78.371, 144.037, 28.561, 1.024)
pt3dadd(78.384, 144.154, 28.584, 1.032)
pt3dadd(78.398, 144.27, 28.607, 1.04)
pt3dadd(78.411, 144.385, 28.629, 1.048)
pt3dadd(78.429, 144.5, 28.655, 1.048)
pt3dadd(78.458, 144.607, 28.692, 1.02)
pt3dadd(78.487, 144.715, 28.729, 0.992)
pt3dadd(78.516, 144.822, 28.766, 0.962)
pt3dadd(78.546, 144.93, 28.803, 0.934)
pt3dadd(78.575, 145.038, 28.84, 0.904)
pt3dadd(78.604, 145.145, 28.877, 0.876)
pt3dadd(78.633, 145.253, 28.914, 0.848)
pt3dadd(78.663, 145.361, 28.951, 0.818)
pt3dadd(78.692, 145.468, 28.987, 0.79)
pt3dadd(78.729, 145.574, 29.021, 0.758)
pt3dadd(78.784, 145.675, 29.048, 0.72)
pt3dadd(78.839, 145.777, 29.076, 0.682)
pt3dadd(78.894, 145.879, 29.103, 0.646)
pt3dadd(78.948, 145.98, 29.13, 0.608)
pt3dadd(79.003, 146.082, 29.157, 0.57)
pt3dadd(79.058, 146.184, 29.184, 0.532)
pt3dadd(79.113, 146.286, 29.212, 0.494)
pt3dadd(79.167, 146.387, 29.239, 0.456)
pt3dadd(79.222, 146.489, 29.266, 0.42)
pt3dadd(79.277, 146.591, 29.294, 0.394)
pt3dadd(79.331, 146.69, 29.324, 0.392)
pt3dadd(79.386, 146.791, 29.354, 0.39)
pt3dadd(79.44, 146.892, 29.384, 0.388)
pt3dadd(79.495, 146.993, 29.414, 0.386)
pt3dadd(79.549, 147.094, 29.444, 0.384)
pt3dadd(79.604, 147.194, 29.473, 0.384)
pt3dadd(79.658, 147.295, 29.503, 0.382)
pt3dadd(79.713, 147.396, 29.533, 0.38)
pt3dadd(79.767, 147.497, 29.563, 0.378)
pt3dadd(79.785, 147.6, 29.6, 0.378)
pt3dadd(79.768, 147.707, 29.644, 0.382)
pt3dadd(79.752, 147.814, 29.687, 0.384)
pt3dadd(79.734, 147.92, 29.731, 0.386)
pt3dadd(79.718, 148.027, 29.775, 0.388)
pt3dadd(79.701, 148.133, 29.819, 0.392)
pt3dadd(79.684, 148.24, 29.862, 0.394)
pt3dadd(79.667, 148.346, 29.906, 0.396)
pt3dadd(79.65, 148.453, 29.95, 0.4)
pt3dadd(79.622, 148.558, 29.988, 0.404)
pt3dadd(79.557, 148.656, 30.005, 0.414)
pt3dadd(79.491, 148.754, 30.022, 0.426)
pt3dadd(79.425, 148.853, 30.039, 0.436)
pt3dadd(79.36, 148.951, 30.056, 0.446)
pt3dadd(79.294, 149.05, 30.073, 0.458)
pt3dadd(79.228, 149.148, 30.09, 0.468)
pt3dadd(79.162, 149.246, 30.107, 0.478)
pt3dadd(79.097, 149.345, 30.124, 0.49)
pt3dadd(79.031, 149.442, 30.141, 0.5)
pt3dadd(78.968, 149.543, 30.156, 0.506)
pt3dadd(78.915, 149.65, 30.162, 0.496)
pt3dadd(78.861, 149.758, 30.168, 0.486)
pt3dadd(78.807, 149.864, 30.174, 0.478)
pt3dadd(78.753, 149.971, 30.18, 0.468)
pt3dadd(78.699, 150.078, 30.187, 0.458)
pt3dadd(78.645, 150.185, 30.193, 0.448)
pt3dadd(78.591, 150.292, 30.199, 0.438)
pt3dadd(78.537, 150.398, 30.205, 0.43)
pt3dadd(78.483, 150.505, 30.211, 0.42)
pt3dadd(78.439, 150.617, 30.217, 0.406)
pt3dadd(78.412, 150.733, 30.222, 0.388)
pt3dadd(78.384, 150.85, 30.228, 0.368)
pt3dadd(78.357, 150.966, 30.233, 0.35)
pt3dadd(78.33, 151.082, 30.238, 0.332)
pt3dadd(78.302, 151.2, 30.243, 0.312)
pt3dadd(78.275, 151.316, 30.248, 0.294)
pt3dadd(78.248, 151.433, 30.253, 0.274)
pt3dadd(78.22, 151.549, 30.259, 0.256)
pt3dadd(78.193, 151.667, 30.264, 0.236)
pt3dadd(78.173, 151.784, 30.271, 0.232)
pt3dadd(78.161, 151.903, 30.281, 0.246)
pt3dadd(78.15, 152.022, 30.291, 0.26)
pt3dadd(78.139, 152.141, 30.3, 0.274)
pt3dadd(78.128, 152.26, 30.31, 0.288)
pt3dadd(78.117, 152.378, 30.32, 0.302)
pt3dadd(78.105, 152.497, 30.33, 0.316)
pt3dadd(78.094, 152.616, 30.339, 0.332)
pt3dadd(78.083, 152.735, 30.349, 0.346)
pt3dadd(78.072, 152.854, 30.359, 0.36)
pt3dadd(78.061, 152.971, 30.377, 0.372)
pt3dadd(78.05, 153.085, 30.405, 0.38)
pt3dadd(78.039, 153.2, 30.433, 0.388)
pt3dadd(78.029, 153.316, 30.461, 0.396)
pt3dadd(78.018, 153.43, 30.489, 0.406)
pt3dadd(78.007, 153.545, 30.517, 0.414)
pt3dadd(77.997, 153.659, 30.545, 0.422)
pt3dadd(77.986, 153.774, 30.574, 0.43)
pt3dadd(77.975, 153.888, 30.602, 0.44)
pt3dadd(77.965, 154.003, 30.63, 0.448)
}
}
proc shape3d_158() {
dend_7[33] { pt3dadd(77.944, 154.116, 30.658, 0.472)
pt3dadd(77.914, 154.226, 30.687, 0.512)
pt3dadd(77.884, 154.338, 30.716, 0.552)
pt3dadd(77.854, 154.448, 30.745, 0.592)
pt3dadd(77.823, 154.559, 30.774, 0.63)
pt3dadd(77.793, 154.67, 30.802, 0.67)
pt3dadd(77.763, 154.781, 30.831, 0.71)
pt3dadd(77.733, 154.892, 30.86, 0.75)
pt3dadd(77.703, 155.003, 30.889, 0.79)
pt3dadd(77.673, 155.113, 30.918, 0.83)
pt3dadd(77.64, 155.226, 30.939, 0.838)
pt3dadd(77.607, 155.34, 30.955, 0.826)
pt3dadd(77.573, 155.453, 30.972, 0.816)
pt3dadd(77.539, 155.567, 30.988, 0.806)
pt3dadd(77.505, 155.68, 31.004, 0.794)
pt3dadd(77.471, 155.794, 31.02, 0.784)
pt3dadd(77.437, 155.906, 31.037, 0.772)
pt3dadd(77.403, 156.02, 31.053, 0.762)
pt3dadd(77.37, 156.133, 31.069, 0.75)
pt3dadd(77.336, 156.247, 31.086, 0.74)
pt3dadd(77.321, 156.365, 31.094, 0.708)
pt3dadd(77.317, 156.485, 31.099, 0.664)
pt3dadd(77.313, 156.605, 31.104, 0.62)
pt3dadd(77.31, 156.725, 31.108, 0.574)
pt3dadd(77.306, 156.844, 31.113, 0.53)
pt3dadd(77.302, 156.964, 31.118, 0.488)
pt3dadd(77.298, 157.084, 31.122, 0.442)
pt3dadd(77.294, 157.204, 31.127, 0.398)
pt3dadd(77.29, 157.324, 31.132, 0.354)
pt3dadd(77.286, 157.444, 31.136, 0.31)
pt3dadd(77.268, 157.561, 31.137, 0.31)
pt3dadd(77.245, 157.679, 31.138, 0.32)
pt3dadd(77.223, 157.798, 31.138, 0.33)
pt3dadd(77.201, 157.915, 31.138, 0.342)
pt3dadd(77.178, 158.033, 31.139, 0.352)
pt3dadd(77.156, 158.15, 31.139, 0.362)
pt3dadd(77.134, 158.269, 31.139, 0.372)
pt3dadd(77.112, 158.387, 31.139, 0.382)
pt3dadd(77.089, 158.504, 31.14, 0.392)
pt3dadd(77.067, 158.622, 31.14, 0.402)
pt3dadd(76.994, 158.717, 31.141, 0.43)
pt3dadd(76.919, 158.812, 31.142, 0.458)
pt3dadd(76.845, 158.906, 31.142, 0.484)
pt3dadd(76.771, 159, 31.143, 0.512)
pt3dadd(76.697, 159.095, 31.144, 0.54)
pt3dadd(76.623, 159.188, 31.145, 0.568)
pt3dadd(76.548, 159.283, 31.145, 0.596)
pt3dadd(76.474, 159.377, 31.146, 0.622)
pt3dadd(76.4, 159.472, 31.147, 0.65)
pt3dadd(76.329, 159.568, 31.148, 0.672)
pt3dadd(76.275, 159.674, 31.15, 0.664)
pt3dadd(76.221, 159.782, 31.152, 0.656)
pt3dadd(76.166, 159.889, 31.154, 0.648)
pt3dadd(76.112, 159.996, 31.156, 0.64)
pt3dadd(76.058, 160.103, 31.158, 0.632)
pt3dadd(76.004, 160.211, 31.16, 0.624)
pt3dadd(75.95, 160.318, 31.162, 0.616)
pt3dadd(75.896, 160.424, 31.164, 0.608)
pt3dadd(75.842, 160.532, 31.166, 0.598)
pt3dadd(75.792, 160.64, 31.168, 0.6)
pt3dadd(75.758, 160.756, 31.173, 0.64)
pt3dadd(75.724, 160.871, 31.177, 0.682)
pt3dadd(75.691, 160.986, 31.181, 0.722)
pt3dadd(75.657, 161.1, 31.186, 0.762)
pt3dadd(75.623, 161.215, 31.19, 0.804)
pt3dadd(75.589, 161.33, 31.194, 0.844)
pt3dadd(75.555, 161.446, 31.198, 0.886)
pt3dadd(75.521, 161.561, 31.203, 0.926)
pt3dadd(75.487, 161.676, 31.207, 0.966)
pt3dadd(75.452, 161.79, 31.212, 0.99)
pt3dadd(75.413, 161.903, 31.22, 0.952)
pt3dadd(75.373, 162.016, 31.229, 0.914)
pt3dadd(75.334, 162.128, 31.237, 0.876)
pt3dadd(75.294, 162.241, 31.245, 0.838)
pt3dadd(75.255, 162.354, 31.253, 0.8)
pt3dadd(75.215, 162.467, 31.261, 0.762)
pt3dadd(75.176, 162.581, 31.27, 0.724)
pt3dadd(75.136, 162.694, 31.278, 0.686)
pt3dadd(75.097, 162.806, 31.286, 0.648)
pt3dadd(75.061, 162.919, 31.297, 0.612)
pt3dadd(75.039, 163.036, 31.316, 0.59)
pt3dadd(75.016, 163.151, 31.335, 0.568)
pt3dadd(74.994, 163.266, 31.354, 0.544)
pt3dadd(74.971, 163.382, 31.374, 0.522)
pt3dadd(74.949, 163.498, 31.393, 0.5)
pt3dadd(74.926, 163.613, 31.412, 0.476)
pt3dadd(74.904, 163.729, 31.431, 0.454)
pt3dadd(74.881, 163.844, 31.451, 0.432)
pt3dadd(74.859, 163.96, 31.47, 0.408)
pt3dadd(74.842, 164.075, 31.494, 0.392)
pt3dadd(74.837, 164.186, 31.53, 0.384)
pt3dadd(74.831, 164.298, 31.566, 0.378)
pt3dadd(74.826, 164.411, 31.601, 0.372)
pt3dadd(74.82, 164.522, 31.637, 0.366)
pt3dadd(74.815, 164.634, 31.673, 0.36)
pt3dadd(74.81, 164.746, 31.708, 0.352)
pt3dadd(74.804, 164.858, 31.744, 0.346)
pt3dadd(74.799, 164.97, 31.78, 0.34)
pt3dadd(74.794, 165.082, 31.816, 0.334)
pt3dadd(74.793, 165.196, 31.847, 0.34)
pt3dadd(74.802, 165.312, 31.872, 0.37)
pt3dadd(74.811, 165.427, 31.896, 0.4)
pt3dadd(74.82, 165.544, 31.921, 0.428)
pt3dadd(74.829, 165.659, 31.946, 0.458)
pt3dadd(74.838, 165.775, 31.97, 0.488)
pt3dadd(74.847, 165.892, 31.995, 0.518)
pt3dadd(74.856, 166.007, 32.019, 0.548)
pt3dadd(74.865, 166.123, 32.044, 0.576)
pt3dadd(74.874, 166.24, 32.069, 0.606)
pt3dadd(74.887, 166.355, 32.09, 0.62)
pt3dadd(74.908, 166.472, 32.106, 0.608)
pt3dadd(74.929, 166.589, 32.123, 0.596)
pt3dadd(74.949, 166.705, 32.139, 0.584)
pt3dadd(74.97, 166.822, 32.155, 0.572)
pt3dadd(74.99, 166.938, 32.172, 0.56)
pt3dadd(75.011, 167.054, 32.188, 0.548)
pt3dadd(75.031, 167.172, 32.204, 0.536)
pt3dadd(75.052, 167.288, 32.221, 0.524)
pt3dadd(75.072, 167.405, 32.237, 0.512)
pt3dadd(75.101, 167.519, 32.254, 0.516)
pt3dadd(75.14, 167.63, 32.27, 0.538)
pt3dadd(75.18, 167.742, 32.287, 0.56)
pt3dadd(75.219, 167.854, 32.304, 0.58)
pt3dadd(75.258, 167.965, 32.32, 0.602)
pt3dadd(75.297, 168.077, 32.337, 0.624)
pt3dadd(75.337, 168.188, 32.354, 0.646)
pt3dadd(75.376, 168.3, 32.37, 0.668)
pt3dadd(75.415, 168.412, 32.387, 0.69)
pt3dadd(75.455, 168.523, 32.404, 0.712)
pt3dadd(75.485, 168.635, 32.43, 0.732)
pt3dadd(75.506, 168.745, 32.465, 0.75)
pt3dadd(75.527, 168.854, 32.5, 0.768)
pt3dadd(75.548, 168.965, 32.536, 0.786)
pt3dadd(75.569, 169.075, 32.571, 0.804)
pt3dadd(75.59, 169.186, 32.606, 0.824)
pt3dadd(75.611, 169.296, 32.642, 0.842)
pt3dadd(75.633, 169.406, 32.677, 0.86)
pt3dadd(75.654, 169.517, 32.713, 0.878)
pt3dadd(75.675, 169.627, 32.748, 0.896)
pt3dadd(75.686, 169.74, 32.777, 0.904)
pt3dadd(75.688, 169.856, 32.801, 0.904)
pt3dadd(75.69, 169.974, 32.824, 0.904)
pt3dadd(75.692, 170.09, 32.848, 0.904)
pt3dadd(75.694, 170.207, 32.872, 0.904)
pt3dadd(75.696, 170.323, 32.895, 0.904)
pt3dadd(75.699, 170.44, 32.919, 0.904)
pt3dadd(75.701, 170.556, 32.942, 0.904)
pt3dadd(75.703, 170.672, 32.966, 0.904)
pt3dadd(75.705, 170.79, 32.99, 0.904)
pt3dadd(75.695, 170.906, 33.007, 0.9)
pt3dadd(75.677, 171.024, 33.02, 0.892)
pt3dadd(75.658, 171.142, 33.033, 0.882)
pt3dadd(75.639, 171.259, 33.046, 0.874)
pt3dadd(75.62, 171.377, 33.059, 0.866)
pt3dadd(75.601, 171.494, 33.072, 0.858)
pt3dadd(75.582, 171.612, 33.085, 0.85)
pt3dadd(75.564, 171.73, 33.097, 0.842)
pt3dadd(75.545, 171.846, 33.11, 0.834)
pt3dadd(75.526, 171.964, 33.123, 0.826)
pt3dadd(75.493, 172.079, 33.133, 0.8)
pt3dadd(75.453, 172.19, 33.141, 0.762)
pt3dadd(75.412, 172.303, 33.149, 0.726)
pt3dadd(75.371, 172.416, 33.158, 0.688)
pt3dadd(75.33, 172.528, 33.166, 0.652)
pt3dadd(75.289, 172.64, 33.174, 0.614)
pt3dadd(75.248, 172.753, 33.182, 0.576)
pt3dadd(75.207, 172.865, 33.19, 0.54)
pt3dadd(75.167, 172.978, 33.198, 0.502)
pt3dadd(75.126, 173.09, 33.206, 0.466)
pt3dadd(75.097, 173.204, 33.22, 0.454)
pt3dadd(75.074, 173.321, 33.238, 0.458)
pt3dadd(75.051, 173.436, 33.256, 0.462)
pt3dadd(75.029, 173.552, 33.274, 0.466)
pt3dadd(75.006, 173.669, 33.292, 0.47)
pt3dadd(74.984, 173.784, 33.31, 0.474)
pt3dadd(74.961, 173.9, 33.328, 0.478)
pt3dadd(74.939, 174.016, 33.346, 0.482)
pt3dadd(74.916, 174.132, 33.364, 0.486)
pt3dadd(74.893, 174.247, 33.382, 0.49)
pt3dadd(74.885, 174.36, 33.415, 0.508)
pt3dadd(74.883, 174.47, 33.454, 0.53)
pt3dadd(74.88, 174.581, 33.493, 0.552)
pt3dadd(74.877, 174.691, 33.532, 0.574)
pt3dadd(74.875, 174.802, 33.572, 0.598)
pt3dadd(74.872, 174.912, 33.611, 0.62)
pt3dadd(74.87, 175.022, 33.65, 0.642)
pt3dadd(74.867, 175.133, 33.689, 0.664)
pt3dadd(74.865, 175.243, 33.728, 0.686)
pt3dadd(74.862, 175.352, 33.768, 0.71)
pt3dadd(74.875, 175.465, 33.8, 0.73)
pt3dadd(74.895, 175.578, 33.831, 0.748)
pt3dadd(74.914, 175.69, 33.862, 0.768)
pt3dadd(74.933, 175.802, 33.892, 0.786)
pt3dadd(74.953, 175.915, 33.923, 0.806)
pt3dadd(74.972, 176.028, 33.954, 0.824)
pt3dadd(74.991, 176.141, 33.984, 0.844)
pt3dadd(75.01, 176.254, 34.015, 0.862)
pt3dadd(75.03, 176.365, 34.045, 0.882)
pt3dadd(75.049, 176.478, 34.076, 0.9)
pt3dadd(75.086, 176.586, 34.108, 0.884)
}
}
proc shape3d_159() {
dend_7[33] { pt3dadd(75.127, 176.692, 34.14, 0.86)
pt3dadd(75.168, 176.797, 34.172, 0.834)
pt3dadd(75.209, 176.904, 34.204, 0.81)
pt3dadd(75.25, 177.01, 34.236, 0.784)
pt3dadd(75.291, 177.115, 34.267, 0.76)
pt3dadd(75.333, 177.222, 34.299, 0.734)
pt3dadd(75.374, 177.328, 34.331, 0.71)
pt3dadd(75.415, 177.434, 34.363, 0.684)
pt3dadd(75.456, 177.54, 34.395, 0.66)
pt3dadd(75.47, 177.647, 34.438, 0.616)
pt3dadd(75.482, 177.755, 34.481, 0.574)
pt3dadd(75.494, 177.862, 34.524, 0.53)
pt3dadd(75.506, 177.97, 34.568, 0.486)
pt3dadd(75.518, 178.078, 34.611, 0.442)
pt3dadd(75.53, 178.184, 34.655, 0.398)
pt3dadd(75.542, 178.292, 34.698, 0.354)
pt3dadd(75.554, 178.399, 34.741, 0.31)
pt3dadd(75.566, 178.507, 34.785, 0.266)
pt3dadd(75.573, 178.614, 34.826, 0.226)
pt3dadd(75.533, 178.726, 34.845, 0.226)
pt3dadd(75.493, 178.836, 34.863, 0.226)
pt3dadd(75.452, 178.946, 34.882, 0.226)
pt3dadd(75.412, 179.058, 34.9, 0.226)
pt3dadd(75.372, 179.168, 34.919, 0.226)
pt3dadd(75.332, 179.28, 34.938, 0.226)
pt3dadd(75.291, 179.39, 34.956, 0.226)
pt3dadd(75.251, 179.501, 34.975, 0.226)
pt3dadd(75.211, 179.612, 34.993, 0.226)
pt3dadd(75.172, 179.724, 35.009, 0.24)
pt3dadd(75.136, 179.838, 35.017, 0.296)
pt3dadd(75.101, 179.952, 35.025, 0.354)
pt3dadd(75.066, 180.066, 35.033, 0.41)
pt3dadd(75.031, 180.181, 35.041, 0.466)
pt3dadd(74.995, 180.295, 35.049, 0.522)
pt3dadd(74.96, 180.409, 35.058, 0.578)
pt3dadd(74.925, 180.523, 35.066, 0.634)
pt3dadd(74.89, 180.638, 35.074, 0.69)
pt3dadd(74.854, 180.752, 35.082, 0.746)
pt3dadd(74.823, 180.868, 35.09, 0.79)
pt3dadd(74.799, 180.984, 35.101, 0.802)
pt3dadd(74.776, 181.102, 35.112, 0.814)
pt3dadd(74.752, 181.218, 35.122, 0.826)
pt3dadd(74.729, 181.336, 35.133, 0.836)
pt3dadd(74.705, 181.452, 35.144, 0.848)
pt3dadd(74.682, 181.57, 35.154, 0.86)
pt3dadd(74.658, 181.686, 35.165, 0.872)
pt3dadd(74.635, 181.804, 35.175, 0.884)
pt3dadd(74.611, 181.92, 35.186, 0.896)
pt3dadd(74.59, 182.036, 35.203, 0.904)
pt3dadd(74.575, 182.148, 35.236, 0.904)
pt3dadd(74.56, 182.261, 35.269, 0.904)
pt3dadd(74.545, 182.372, 35.302, 0.904)
pt3dadd(74.53, 182.485, 35.336, 0.904)
pt3dadd(74.515, 182.597, 35.369, 0.904)
pt3dadd(74.499, 182.71, 35.402, 0.904)
pt3dadd(74.484, 182.821, 35.435, 0.904)
pt3dadd(74.469, 182.934, 35.468, 0.904)
pt3dadd(74.454, 183.046, 35.501, 0.904)
pt3dadd(74.431, 183.157, 35.532, 0.898)
pt3dadd(74.392, 183.266, 35.557, 0.882)
pt3dadd(74.353, 183.376, 35.583, 0.864)
pt3dadd(74.314, 183.485, 35.608, 0.848)
pt3dadd(74.274, 183.594, 35.633, 0.83)
pt3dadd(74.235, 183.703, 35.659, 0.812)
pt3dadd(74.196, 183.812, 35.684, 0.796)
pt3dadd(74.157, 183.922, 35.71, 0.778)
pt3dadd(74.118, 184.031, 35.735, 0.762)
pt3dadd(74.079, 184.14, 35.761, 0.744)
pt3dadd(74.041, 184.252, 35.782, 0.718)
pt3dadd(74.005, 184.364, 35.795, 0.68)
pt3dadd(73.969, 184.477, 35.81, 0.642)
pt3dadd(73.933, 184.591, 35.824, 0.602)
pt3dadd(73.897, 184.704, 35.838, 0.564)
pt3dadd(73.861, 184.817, 35.852, 0.524)
pt3dadd(73.825, 184.931, 35.866, 0.486)
pt3dadd(73.789, 185.044, 35.88, 0.448)
pt3dadd(73.754, 185.158, 35.894, 0.408)
pt3dadd(73.718, 185.27, 35.908, 0.37)
pt3dadd(73.686, 185.386, 35.917, 0.342)
pt3dadd(73.661, 185.502, 35.92, 0.33)
pt3dadd(73.635, 185.62, 35.924, 0.318)
pt3dadd(73.609, 185.737, 35.927, 0.306)
pt3dadd(73.583, 185.854, 35.931, 0.294)
pt3dadd(73.558, 185.971, 35.934, 0.282)
pt3dadd(73.532, 186.089, 35.938, 0.27)
pt3dadd(73.506, 186.205, 35.941, 0.258)
pt3dadd(73.481, 186.323, 35.944, 0.244)
pt3dadd(73.455, 186.439, 35.948, 0.232)
pt3dadd(73.432, 186.558, 35.95, 0.234)
pt3dadd(73.413, 186.676, 35.951, 0.252)
pt3dadd(73.394, 186.794, 35.953, 0.268)
pt3dadd(73.375, 186.913, 35.954, 0.286)
pt3dadd(73.356, 187.031, 35.955, 0.304)
pt3dadd(73.338, 187.15, 35.956, 0.32)
pt3dadd(73.319, 187.268, 35.958, 0.338)
pt3dadd(73.3, 187.387, 35.959, 0.356)
pt3dadd(73.281, 187.505, 35.96, 0.374)
pt3dadd(73.262, 187.624, 35.961, 0.39)
pt3dadd(73.231, 187.739, 35.963, 0.402)
pt3dadd(73.187, 187.85, 35.965, 0.408)
pt3dadd(73.143, 187.962, 35.968, 0.414)
pt3dadd(73.098, 188.074, 35.97, 0.418)
pt3dadd(73.054, 188.185, 35.972, 0.424)
pt3dadd(73.01, 188.297, 35.975, 0.428)
pt3dadd(72.965, 188.408, 35.977, 0.434)
pt3dadd(72.921, 188.519, 35.979, 0.44)
pt3dadd(72.877, 188.63, 35.982, 0.444)
pt3dadd(72.832, 188.742, 35.984, 0.45)
pt3dadd(72.788, 188.854, 35.988, 0.468)
pt3dadd(72.743, 188.965, 35.994, 0.5)
pt3dadd(72.698, 189.076, 35.999, 0.532)
pt3dadd(72.653, 189.187, 36.005, 0.562)
pt3dadd(72.608, 189.298, 36.01, 0.594)
pt3dadd(72.563, 189.409, 36.016, 0.626)
pt3dadd(72.519, 189.521, 36.021, 0.658)
pt3dadd(72.474, 189.631, 36.027, 0.688)
pt3dadd(72.429, 189.743, 36.032, 0.72)
pt3dadd(72.384, 189.853, 36.038, 0.752)
pt3dadd(72.335, 189.962, 36.045, 0.782)
pt3dadd(72.283, 190.07, 36.055, 0.81)
pt3dadd(72.231, 190.178, 36.064, 0.838)
pt3dadd(72.179, 190.285, 36.073, 0.866)
pt3dadd(72.127, 190.393, 36.082, 0.894)
pt3dadd(72.075, 190.5, 36.091, 0.922)
pt3dadd(72.023, 190.608, 36.101, 0.95)
pt3dadd(71.97, 190.716, 36.11, 0.978)
pt3dadd(71.918, 190.823, 36.119, 1.006)
pt3dadd(71.866, 190.931, 36.128, 1.034)
pt3dadd(71.819, 191.038, 36.147, 1.036)
pt3dadd(71.777, 191.146, 36.173, 1.02)
pt3dadd(71.734, 191.254, 36.199, 1.002)
pt3dadd(71.691, 191.362, 36.225, 0.986)
pt3dadd(71.649, 191.468, 36.251, 0.968)
pt3dadd(71.606, 191.576, 36.277, 0.952)
pt3dadd(71.564, 191.684, 36.304, 0.934)
pt3dadd(71.521, 191.792, 36.33, 0.918)
pt3dadd(71.478, 191.899, 36.356, 0.902)
pt3dadd(71.436, 192.007, 36.382, 0.884)
pt3dadd(71.402, 192.118, 36.411, 0.856)
pt3dadd(71.373, 192.228, 36.441, 0.824)
pt3dadd(71.344, 192.338, 36.471, 0.792)
pt3dadd(71.315, 192.449, 36.501, 0.76)
pt3dadd(71.285, 192.559, 36.531, 0.728)
pt3dadd(71.256, 192.671, 36.561, 0.696)
pt3dadd(71.227, 192.781, 36.591, 0.664)
pt3dadd(71.198, 192.892, 36.621, 0.632)
pt3dadd(71.168, 193.002, 36.652, 0.6)
pt3dadd(71.139, 193.112, 36.682, 0.568)
pt3dadd(71.112, 193.226, 36.703, 0.56)
pt3dadd(71.085, 193.342, 36.722, 0.562)
pt3dadd(71.058, 193.457, 36.74, 0.564)
pt3dadd(71.031, 193.571, 36.758, 0.566)
pt3dadd(71.005, 193.686, 36.776, 0.568)
pt3dadd(70.978, 193.801, 36.794, 0.568)
pt3dadd(70.951, 193.916, 36.813, 0.57)
pt3dadd(70.924, 194.032, 36.831, 0.572)
pt3dadd(70.897, 194.146, 36.849, 0.574)
pt3dadd(70.871, 194.261, 36.867, 0.576)
pt3dadd(70.827, 194.371, 36.877, 0.592)
pt3dadd(70.776, 194.48, 36.884, 0.616)
pt3dadd(70.726, 194.588, 36.891, 0.638)
pt3dadd(70.676, 194.698, 36.898, 0.66)
pt3dadd(70.626, 194.806, 36.905, 0.684)
pt3dadd(70.576, 194.915, 36.912, 0.706)
pt3dadd(70.526, 195.023, 36.92, 0.728)
pt3dadd(70.475, 195.132, 36.927, 0.752)
pt3dadd(70.425, 195.241, 36.934, 0.774)
pt3dadd(70.375, 195.349, 36.941, 0.796)
pt3dadd(70.303, 195.444, 36.946, 0.78)
pt3dadd(70.228, 195.538, 36.95, 0.76)
pt3dadd(70.153, 195.631, 36.955, 0.742)
pt3dadd(70.078, 195.725, 36.959, 0.72)
pt3dadd(70.003, 195.818, 36.963, 0.702)
pt3dadd(69.928, 195.912, 36.968, 0.68)
pt3dadd(69.853, 196.006, 36.972, 0.662)
pt3dadd(69.779, 196.1, 36.977, 0.642)
pt3dadd(69.704, 196.194, 36.981, 0.622)
pt3dadd(69.629, 196.288, 36.986, 0.602)
pt3dadd(69.539, 196.367, 36.994, 0.59)
pt3dadd(69.449, 196.445, 37.002, 0.578)
pt3dadd(69.359, 196.523, 37.01, 0.566)
pt3dadd(69.269, 196.602, 37.019, 0.554)
pt3dadd(69.178, 196.68, 37.027, 0.542)
pt3dadd(69.088, 196.758, 37.035, 0.532)
pt3dadd(68.998, 196.837, 37.044, 0.52)
pt3dadd(68.907, 196.915, 37.052, 0.508)
pt3dadd(68.817, 196.993, 37.06, 0.496)
pt3dadd(68.727, 197.071, 37.069, 0.486)
pt3dadd(68.635, 197.143, 37.094, 0.518)
pt3dadd(68.543, 197.214, 37.119, 0.552)
pt3dadd(68.451, 197.286, 37.144, 0.584)
pt3dadd(68.359, 197.357, 37.168, 0.618)
pt3dadd(68.268, 197.428, 37.193, 0.65)
pt3dadd(68.176, 197.5, 37.218, 0.682)
pt3dadd(68.084, 197.57, 37.243, 0.716)
pt3dadd(67.992, 197.641, 37.268, 0.748)
pt3dadd(67.9, 197.713, 37.293, 0.782)
pt3dadd(67.811, 197.785, 37.321, 0.798)
pt3dadd(67.729, 197.861, 37.358, 0.772)
pt3dadd(67.647, 197.936, 37.396, 0.746)
}
}
proc shape3d_160() {
dend_7[33] { pt3dadd(67.565, 198.011, 37.434, 0.72)
pt3dadd(67.483, 198.086, 37.471, 0.694)
pt3dadd(67.402, 198.162, 37.509, 0.668)
pt3dadd(67.32, 198.236, 37.546, 0.64)
pt3dadd(67.238, 198.312, 37.584, 0.614)
pt3dadd(67.156, 198.388, 37.621, 0.588)
pt3dadd(67.074, 198.463, 37.659, 0.562)
pt3dadd(66.991, 198.54, 37.691, 0.546)
pt3dadd(66.905, 198.62, 37.711, 0.552)
pt3dadd(66.819, 198.701, 37.731, 0.558)
pt3dadd(66.733, 198.781, 37.751, 0.562)
pt3dadd(66.647, 198.86, 37.771, 0.568)
pt3dadd(66.562, 198.941, 37.791, 0.574)
pt3dadd(66.476, 199.021, 37.811, 0.58)
pt3dadd(66.39, 199.102, 37.831, 0.586)
pt3dadd(66.304, 199.182, 37.851, 0.592)
pt3dadd(66.218, 199.262, 37.87, 0.596)
pt3dadd(66.14, 199.35, 37.887, 0.604)
pt3dadd(66.074, 199.45, 37.898, 0.612)
pt3dadd(66.008, 199.549, 37.909, 0.62)
pt3dadd(65.942, 199.648, 37.92, 0.626)
pt3dadd(65.876, 199.747, 37.931, 0.634)
pt3dadd(65.81, 199.847, 37.942, 0.642)
pt3dadd(65.744, 199.946, 37.953, 0.65)
pt3dadd(65.678, 200.046, 37.964, 0.658)
pt3dadd(65.612, 200.144, 37.975, 0.666)
pt3dadd(65.545, 200.244, 37.986, 0.674)
pt3dadd(65.484, 200.346, 37.998, 0.664)
pt3dadd(65.429, 200.452, 38.01, 0.636)
pt3dadd(65.373, 200.557, 38.023, 0.608)
pt3dadd(65.318, 200.662, 38.035, 0.58)
pt3dadd(65.262, 200.767, 38.048, 0.552)
pt3dadd(65.207, 200.873, 38.061, 0.524)
pt3dadd(65.151, 200.978, 38.073, 0.496)
pt3dadd(65.096, 201.083, 38.086, 0.468)
pt3dadd(65.04, 201.188, 38.099, 0.44)
pt3dadd(64.985, 201.294, 38.111, 0.412)
pt3dadd(64.937, 201.4, 38.133, 0.4)
pt3dadd(64.897, 201.506, 38.166, 0.408)
pt3dadd(64.857, 201.612, 38.198, 0.414)
pt3dadd(64.818, 201.719, 38.231, 0.422)
pt3dadd(64.778, 201.826, 38.263, 0.428)
pt3dadd(64.738, 201.931, 38.295, 0.436)
pt3dadd(64.699, 202.038, 38.328, 0.444)
pt3dadd(64.659, 202.144, 38.36, 0.45)
pt3dadd(64.619, 202.25, 38.393, 0.458)
pt3dadd(64.58, 202.357, 38.425, 0.464)
pt3dadd(64.551, 202.463, 38.464, 0.502)
pt3dadd(64.529, 202.57, 38.507, 0.554)
pt3dadd(64.507, 202.675, 38.55, 0.606)
pt3dadd(64.485, 202.782, 38.592, 0.658)
pt3dadd(64.462, 202.888, 38.635, 0.71)
pt3dadd(64.44, 202.994, 38.678, 0.764)
pt3dadd(64.418, 203.1, 38.721, 0.816)
pt3dadd(64.395, 203.207, 38.763, 0.868)
pt3dadd(64.373, 203.312, 38.806, 0.92)
pt3dadd(64.351, 203.419, 38.849, 0.974)
pt3dadd(64.335, 203.524, 38.895, 1.01)
pt3dadd(64.321, 203.628, 38.943, 1.038)
pt3dadd(64.308, 203.734, 38.991, 1.066)
pt3dadd(64.295, 203.838, 39.038, 1.094)
pt3dadd(64.281, 203.942, 39.086, 1.122)
pt3dadd(64.268, 204.047, 39.134, 1.148)
pt3dadd(64.255, 204.151, 39.182, 1.178)
pt3dadd(64.242, 204.256, 39.229, 1.204)
pt3dadd(64.228, 204.36, 39.277, 1.232)
pt3dadd(64.215, 204.466, 39.325, 1.26)
pt3dadd(64.203, 204.565, 39.38, 1.246)
pt3dadd(64.192, 204.662, 39.437, 1.214)
pt3dadd(64.18, 204.76, 39.495, 1.182)
pt3dadd(64.169, 204.857, 39.552, 1.15)
pt3dadd(64.158, 204.954, 39.61, 1.118)
pt3dadd(64.146, 205.052, 39.668, 1.086)
pt3dadd(64.135, 205.15, 39.725, 1.054)
pt3dadd(64.123, 205.247, 39.783, 1.022)
pt3dadd(64.112, 205.344, 39.84, 0.992)
pt3dadd(64.101, 205.441, 39.898, 0.958)
pt3dadd(64.082, 205.537, 39.956, 0.914)
pt3dadd(64.059, 205.632, 40.015, 0.864)
pt3dadd(64.037, 205.727, 40.073, 0.814)
pt3dadd(64.015, 205.822, 40.132, 0.764)
pt3dadd(63.993, 205.915, 40.191, 0.714)
pt3dadd(63.97, 206.01, 40.249, 0.664)
pt3dadd(63.948, 206.105, 40.308, 0.612)
pt3dadd(63.926, 206.2, 40.367, 0.562)
pt3dadd(63.904, 206.294, 40.425, 0.512)
pt3dadd(63.881, 206.389, 40.484, 0.462)
pt3dadd(63.834, 206.482, 40.532, 0.454)
pt3dadd(63.781, 206.575, 40.576, 0.456)
pt3dadd(63.727, 206.668, 40.621, 0.458)
pt3dadd(63.673, 206.761, 40.666, 0.46)
pt3dadd(63.62, 206.854, 40.711, 0.462)
pt3dadd(63.566, 206.946, 40.756, 0.464)
pt3dadd(63.513, 207.04, 40.8, 0.466)
pt3dadd(63.459, 207.132, 40.845, 0.468)
pt3dadd(63.405, 207.226, 40.89, 0.47)
pt3dadd(63.352, 207.318, 40.935, 0.472)
pt3dadd(63.292, 207.401, 40.987, 0.486)
pt3dadd(63.231, 207.481, 41.041, 0.502)
pt3dadd(63.171, 207.563, 41.095, 0.518)
pt3dadd(63.11, 207.643, 41.15, 0.534)
pt3dadd(63.049, 207.724, 41.204, 0.55)
pt3dadd(62.988, 207.804, 41.258, 0.566)
pt3dadd(62.928, 207.884, 41.312, 0.582)
pt3dadd(62.867, 207.965, 41.366, 0.598)
pt3dadd(62.806, 208.046, 41.42, 0.614)
pt3dadd(62.745, 208.127, 41.474, 0.63)
pt3dadd(62.674, 208.214, 41.506, 0.612)
pt3dadd(62.601, 208.303, 41.535, 0.59)
pt3dadd(62.529, 208.392, 41.564, 0.566)
pt3dadd(62.456, 208.481, 41.593, 0.544)
pt3dadd(62.383, 208.57, 41.623, 0.522)
pt3dadd(62.31, 208.658, 41.652, 0.498)
pt3dadd(62.237, 208.747, 41.681, 0.476)
pt3dadd(62.165, 208.836, 41.71, 0.454)
pt3dadd(62.092, 208.925, 41.739, 0.432)
pt3dadd(62.019, 209.014, 41.769, 0.408)
pt3dadd(61.953, 209.108, 41.793, 0.39)
pt3dadd(61.887, 209.204, 41.817, 0.372)
pt3dadd(61.821, 209.302, 41.841, 0.354)
pt3dadd(61.755, 209.398, 41.864, 0.336)
pt3dadd(61.69, 209.494, 41.888, 0.318)
pt3dadd(61.624, 209.59, 41.912, 0.3)
pt3dadd(61.558, 209.686, 41.936, 0.282)
pt3dadd(61.493, 209.783, 41.96, 0.264)
pt3dadd(61.427, 209.879, 41.984, 0.244)
pt3dadd(61.361, 209.975, 42.008, 0.226)
pt3dadd(61.323, 210.079, 42.045, 0.226)
pt3dadd(61.286, 210.185, 42.082, 0.226)
pt3dadd(61.249, 210.289, 42.119, 0.226)
pt3dadd(61.212, 210.395, 42.157, 0.226)
pt3dadd(61.175, 210.499, 42.194, 0.226)
pt3dadd(61.137, 210.605, 42.231, 0.226)
pt3dadd(61.101, 210.709, 42.268, 0.226)
pt3dadd(61.063, 210.815, 42.306, 0.226)
pt3dadd(61.026, 210.919, 42.343, 0.226)
pt3dadd(60.989, 211.025, 42.38, 0.226)
pt3dadd(60.978, 211.139, 42.409, 0.226)
pt3dadd(60.966, 211.253, 42.438, 0.226)
pt3dadd(60.955, 211.368, 42.466, 0.226)
pt3dadd(60.943, 211.482, 42.495, 0.226)
pt3dadd(60.932, 211.596, 42.523, 0.226)
pt3dadd(60.92, 211.711, 42.552, 0.226)
pt3dadd(60.909, 211.825, 42.581, 0.226)
pt3dadd(60.898, 211.939, 42.609, 0.226)
pt3dadd(60.886, 212.054, 42.638, 0.226)
pt3dadd(60.875, 212.168, 42.666, 0.226)
}
dend_7[34] {pt3dclear()
pt3dadd(90.002, 118.025, 24.907, 0.904)
pt3dadd(89.993, 118.046, 24.948, 0.904)
pt3dadd(89.974, 118.093, 25.038, 0.904)
pt3dadd(89.955, 118.14, 25.129, 0.904)
pt3dadd(89.936, 118.188, 25.219, 0.904)
pt3dadd(89.917, 118.235, 25.31, 0.904)
pt3dadd(89.898, 118.282, 25.4, 0.904)
pt3dadd(89.879, 118.329, 25.491, 0.904)
pt3dadd(89.86, 118.376, 25.582, 0.904)
pt3dadd(89.841, 118.423, 25.672, 0.904)
pt3dadd(89.822, 118.47, 25.763, 0.904)
pt3dadd(89.803, 118.517, 25.853, 0.904)
pt3dadd(89.784, 118.564, 25.944, 0.904)
pt3dadd(89.765, 118.611, 26.035, 0.904)
pt3dadd(89.746, 118.658, 26.125, 0.904)
pt3dadd(89.727, 118.705, 26.216, 0.904)
pt3dadd(89.708, 118.752, 26.306, 0.904)
pt3dadd(89.772, 118.818, 26.354, 0.934)
pt3dadd(89.859, 118.888, 26.389, 0.974)
pt3dadd(89.947, 118.959, 26.423, 1.014)
pt3dadd(90.035, 119.029, 26.458, 1.054)
pt3dadd(90.123, 119.1, 26.493, 1.094)
pt3dadd(90.21, 119.17, 26.528, 1.134)
pt3dadd(90.298, 119.24, 26.563, 1.174)
pt3dadd(90.386, 119.311, 26.598, 1.214)
pt3dadd(90.473, 119.381, 26.633, 1.254)
pt3dadd(90.561, 119.452, 26.667, 1.294)
pt3dadd(90.639, 119.505, 26.727, 1.286)
pt3dadd(90.715, 119.553, 26.793, 1.266)
pt3dadd(90.792, 119.601, 26.859, 1.248)
pt3dadd(90.868, 119.649, 26.925, 1.228)
pt3dadd(90.944, 119.697, 26.991, 1.208)
pt3dadd(91.02, 119.745, 27.057, 1.188)
pt3dadd(91.096, 119.793, 27.123, 1.17)
pt3dadd(91.172, 119.842, 27.189, 1.15)
pt3dadd(91.248, 119.89, 27.256, 1.13)
pt3dadd(91.325, 119.938, 27.322, 1.112)
pt3dadd(91.407, 119.964, 27.39, 1.09)
pt3dadd(91.49, 119.989, 27.46, 1.068)
pt3dadd(91.574, 120.013, 27.529, 1.046)
pt3dadd(91.657, 120.038, 27.598, 1.024)
pt3dadd(91.74, 120.062, 27.667, 1.002)
pt3dadd(91.823, 120.088, 27.736, 0.98)
pt3dadd(91.907, 120.112, 27.805, 0.958)
pt3dadd(91.99, 120.137, 27.874, 0.936)
pt3dadd(92.073, 120.161, 27.943, 0.914)
pt3dadd(92.156, 120.186, 28.012, 0.892)
pt3dadd(92.25, 120.226, 28.064, 0.872)
pt3dadd(92.345, 120.266, 28.116, 0.85)
pt3dadd(92.439, 120.307, 28.167, 0.83)
pt3dadd(92.534, 120.348, 28.219, 0.808)
pt3dadd(92.629, 120.388, 28.27, 0.788)
pt3dadd(92.723, 120.428, 28.321, 0.766)
}
}
proc shape3d_161() {
dend_7[34] { pt3dadd(92.818, 120.469, 28.373, 0.746)
pt3dadd(92.912, 120.51, 28.424, 0.724)
pt3dadd(93.007, 120.551, 28.476, 0.704)
pt3dadd(93.102, 120.59, 28.527, 0.682)
pt3dadd(93.198, 120.61, 28.584, 0.72)
pt3dadd(93.295, 120.628, 28.641, 0.762)
pt3dadd(93.392, 120.646, 28.698, 0.802)
pt3dadd(93.489, 120.664, 28.756, 0.844)
pt3dadd(93.585, 120.682, 28.813, 0.884)
pt3dadd(93.682, 120.7, 28.87, 0.926)
pt3dadd(93.779, 120.718, 28.927, 0.966)
pt3dadd(93.876, 120.736, 28.985, 1.006)
pt3dadd(93.972, 120.754, 29.042, 1.048)
pt3dadd(94.069, 120.772, 29.099, 1.088)
pt3dadd(94.162, 120.773, 29.162, 1.094)
pt3dadd(94.256, 120.773, 29.225, 1.098)
pt3dadd(94.349, 120.774, 29.288, 1.102)
pt3dadd(94.442, 120.774, 29.35, 1.106)
pt3dadd(94.536, 120.774, 29.413, 1.11)
pt3dadd(94.629, 120.774, 29.476, 1.114)
pt3dadd(94.722, 120.774, 29.539, 1.118)
pt3dadd(94.815, 120.775, 29.602, 1.122)
pt3dadd(94.908, 120.775, 29.665, 1.126)
pt3dadd(95.002, 120.775, 29.728, 1.13)
pt3dadd(95.087, 120.728, 29.786, 1.172)
pt3dadd(95.172, 120.68, 29.844, 1.218)
pt3dadd(95.257, 120.632, 29.902, 1.262)
pt3dadd(95.343, 120.584, 29.96, 1.306)
pt3dadd(95.428, 120.536, 30.018, 1.352)
pt3dadd(95.513, 120.488, 30.076, 1.396)
pt3dadd(95.598, 120.44, 30.134, 1.44)
pt3dadd(95.683, 120.392, 30.192, 1.484)
pt3dadd(95.768, 120.344, 30.25, 1.53)
pt3dadd(95.854, 120.298, 30.308, 1.554)
pt3dadd(95.948, 120.262, 30.362, 1.464)
pt3dadd(96.042, 120.224, 30.417, 1.376)
pt3dadd(96.135, 120.188, 30.472, 1.286)
pt3dadd(96.229, 120.151, 30.526, 1.198)
pt3dadd(96.323, 120.115, 30.581, 1.108)
pt3dadd(96.416, 120.078, 30.635, 1.018)
pt3dadd(96.51, 120.042, 30.69, 0.93)
pt3dadd(96.604, 120.005, 30.745, 0.84)
pt3dadd(96.697, 119.969, 30.799, 0.75)
pt3dadd(96.794, 119.934, 30.849, 0.676)
pt3dadd(96.906, 119.907, 30.879, 0.668)
pt3dadd(97.017, 119.88, 30.908, 0.66)
pt3dadd(97.128, 119.854, 30.938, 0.65)
pt3dadd(97.24, 119.827, 30.967, 0.642)
pt3dadd(97.351, 119.8, 30.997, 0.634)
pt3dadd(97.463, 119.773, 31.027, 0.626)
pt3dadd(97.574, 119.746, 31.056, 0.616)
pt3dadd(97.686, 119.72, 31.086, 0.608)
pt3dadd(97.797, 119.693, 31.115, 0.6)
pt3dadd(97.909, 119.665, 31.143, 0.586)
pt3dadd(98.021, 119.631, 31.164, 0.556)
pt3dadd(98.134, 119.597, 31.184, 0.524)
pt3dadd(98.246, 119.563, 31.205, 0.494)
pt3dadd(98.359, 119.529, 31.226, 0.464)
pt3dadd(98.471, 119.495, 31.247, 0.432)
pt3dadd(98.583, 119.462, 31.267, 0.402)
pt3dadd(98.696, 119.428, 31.288, 0.37)
pt3dadd(98.808, 119.394, 31.309, 0.34)
pt3dadd(98.921, 119.36, 31.33, 0.308)
pt3dadd(99.027, 119.315, 31.353, 0.3)
pt3dadd(99.118, 119.246, 31.382, 0.338)
pt3dadd(99.21, 119.176, 31.411, 0.378)
pt3dadd(99.301, 119.107, 31.44, 0.418)
pt3dadd(99.393, 119.038, 31.469, 0.458)
pt3dadd(99.484, 118.968, 31.498, 0.496)
pt3dadd(99.576, 118.899, 31.527, 0.536)
pt3dadd(99.667, 118.829, 31.556, 0.576)
pt3dadd(99.759, 118.76, 31.585, 0.616)
pt3dadd(99.85, 118.691, 31.614, 0.656)
pt3dadd(99.929, 118.621, 31.659, 0.698)
pt3dadd(99.999, 118.55, 31.715, 0.746)
pt3dadd(100.068, 118.48, 31.772, 0.792)
pt3dadd(100.138, 118.41, 31.829, 0.838)
pt3dadd(100.207, 118.339, 31.885, 0.884)
pt3dadd(100.277, 118.269, 31.942, 0.93)
pt3dadd(100.347, 118.199, 31.998, 0.976)
pt3dadd(100.416, 118.128, 32.055, 1.024)
pt3dadd(100.486, 118.058, 32.111, 1.07)
pt3dadd(100.555, 117.988, 32.168, 1.116)
pt3dadd(100.622, 117.945, 32.241, 1.13)
pt3dadd(100.687, 117.914, 32.321, 1.13)
pt3dadd(100.752, 117.883, 32.401, 1.13)
pt3dadd(100.817, 117.853, 32.481, 1.13)
pt3dadd(100.882, 117.822, 32.561, 1.13)
pt3dadd(100.947, 117.791, 32.641, 1.13)
pt3dadd(101.012, 117.76, 32.721, 1.13)
pt3dadd(101.077, 117.73, 32.801, 1.13)
pt3dadd(101.142, 117.699, 32.881, 1.13)
pt3dadd(101.207, 117.668, 32.961, 1.13)
pt3dadd(101.247, 117.669, 33.055, 1.13)
pt3dadd(101.287, 117.669, 33.15, 1.13)
pt3dadd(101.327, 117.669, 33.244, 1.13)
pt3dadd(101.367, 117.669, 33.338, 1.13)
pt3dadd(101.407, 117.669, 33.433, 1.13)
pt3dadd(101.447, 117.669, 33.527, 1.13)
pt3dadd(101.487, 117.669, 33.621, 1.13)
pt3dadd(101.527, 117.669, 33.715, 1.13)
pt3dadd(101.567, 117.669, 33.81, 1.13)
pt3dadd(101.607, 117.67, 33.904, 1.128)
pt3dadd(101.665, 117.677, 33.991, 1.086)
pt3dadd(101.723, 117.685, 34.078, 1.044)
pt3dadd(101.781, 117.692, 34.166, 1.002)
pt3dadd(101.839, 117.7, 34.253, 0.962)
pt3dadd(101.897, 117.707, 34.34, 0.92)
pt3dadd(101.955, 117.715, 34.428, 0.878)
pt3dadd(102.013, 117.722, 34.515, 0.836)
pt3dadd(102.071, 117.729, 34.602, 0.794)
pt3dadd(102.129, 117.737, 34.69, 0.752)
pt3dadd(102.187, 117.745, 34.777, 0.714)
pt3dadd(102.246, 117.757, 34.864, 0.754)
pt3dadd(102.304, 117.77, 34.951, 0.794)
pt3dadd(102.362, 117.783, 35.037, 0.836)
pt3dadd(102.42, 117.796, 35.124, 0.876)
pt3dadd(102.479, 117.809, 35.211, 0.916)
pt3dadd(102.537, 117.822, 35.298, 0.956)
pt3dadd(102.595, 117.834, 35.384, 0.996)
pt3dadd(102.653, 117.847, 35.471, 1.036)
pt3dadd(102.711, 117.86, 35.558, 1.076)
pt3dadd(102.771, 117.875, 35.643, 1.114)
pt3dadd(102.859, 117.92, 35.7, 1.116)
pt3dadd(102.947, 117.965, 35.756, 1.118)
pt3dadd(103.035, 118.011, 35.813, 1.118)
pt3dadd(103.123, 118.056, 35.869, 1.12)
pt3dadd(103.212, 118.101, 35.926, 1.122)
pt3dadd(103.3, 118.146, 35.982, 1.122)
pt3dadd(103.388, 118.192, 36.039, 1.124)
pt3dadd(103.476, 118.237, 36.095, 1.126)
pt3dadd(103.564, 118.282, 36.152, 1.128)
pt3dadd(103.652, 118.326, 36.208, 1.126)
pt3dadd(103.746, 118.35, 36.267, 1.106)
pt3dadd(103.84, 118.374, 36.326, 1.084)
pt3dadd(103.935, 118.397, 36.385, 1.062)
pt3dadd(104.029, 118.421, 36.444, 1.04)
pt3dadd(104.123, 118.445, 36.502, 1.02)
pt3dadd(104.217, 118.469, 36.561, 0.998)
pt3dadd(104.311, 118.493, 36.62, 0.976)
pt3dadd(104.405, 118.517, 36.679, 0.956)
pt3dadd(104.499, 118.541, 36.738, 0.934)
pt3dadd(104.593, 118.563, 36.796, 0.912)
pt3dadd(104.69, 118.568, 36.856, 0.892)
pt3dadd(104.787, 118.573, 36.915, 0.872)
pt3dadd(104.883, 118.578, 36.974, 0.852)
pt3dadd(104.98, 118.584, 37.033, 0.83)
pt3dadd(105.076, 118.589, 37.092, 0.81)
pt3dadd(105.173, 118.594, 37.151, 0.79)
pt3dadd(105.27, 118.599, 37.211, 0.77)
pt3dadd(105.366, 118.604, 37.27, 0.748)
pt3dadd(105.463, 118.609, 37.329, 0.728)
pt3dadd(105.56, 118.613, 37.387, 0.712)
pt3dadd(105.666, 118.602, 37.434, 0.728)
pt3dadd(105.771, 118.591, 37.481, 0.744)
pt3dadd(105.876, 118.579, 37.528, 0.762)
pt3dadd(105.982, 118.568, 37.575, 0.778)
pt3dadd(106.087, 118.557, 37.622, 0.796)
pt3dadd(106.192, 118.546, 37.669, 0.812)
pt3dadd(106.298, 118.535, 37.716, 0.828)
pt3dadd(106.403, 118.523, 37.763, 0.846)
pt3dadd(106.508, 118.512, 37.81, 0.862)
pt3dadd(106.613, 118.496, 37.856, 0.88)
pt3dadd(106.71, 118.443, 37.894, 0.898)
pt3dadd(106.807, 118.389, 37.932, 0.916)
pt3dadd(106.904, 118.336, 37.97, 0.934)
pt3dadd(107.002, 118.282, 38.008, 0.952)
pt3dadd(107.099, 118.229, 38.046, 0.968)
pt3dadd(107.196, 118.175, 38.084, 0.986)
pt3dadd(107.293, 118.122, 38.122, 1.004)
pt3dadd(107.391, 118.068, 38.16, 1.022)
pt3dadd(107.488, 118.015, 38.198, 1.04)
pt3dadd(107.586, 117.968, 38.239, 1.042)
pt3dadd(107.688, 117.941, 38.287, 0.998)
pt3dadd(107.789, 117.913, 38.336, 0.954)
pt3dadd(107.891, 117.885, 38.384, 0.91)
pt3dadd(107.992, 117.858, 38.432, 0.866)
pt3dadd(108.093, 117.83, 38.48, 0.822)
pt3dadd(108.195, 117.803, 38.528, 0.776)
pt3dadd(108.296, 117.775, 38.576, 0.732)
pt3dadd(108.398, 117.747, 38.625, 0.688)
pt3dadd(108.499, 117.72, 38.673, 0.644)
pt3dadd(108.603, 117.698, 38.719, 0.608)
pt3dadd(108.712, 117.688, 38.76, 0.584)
pt3dadd(108.821, 117.678, 38.801, 0.56)
pt3dadd(108.93, 117.669, 38.842, 0.538)
pt3dadd(109.039, 117.659, 38.884, 0.514)
pt3dadd(109.148, 117.649, 38.925, 0.492)
pt3dadd(109.257, 117.639, 38.966, 0.468)
pt3dadd(109.365, 117.63, 39.007, 0.444)
pt3dadd(109.474, 117.62, 39.048, 0.422)
pt3dadd(109.583, 117.61, 39.089, 0.398)
pt3dadd(109.692, 117.603, 39.131, 0.378)
pt3dadd(109.801, 117.603, 39.173, 0.362)
pt3dadd(109.91, 117.602, 39.215, 0.346)
pt3dadd(110.019, 117.601, 39.258, 0.33)
pt3dadd(110.127, 117.6, 39.3, 0.314)
pt3dadd(110.236, 117.599, 39.342, 0.298)
pt3dadd(110.345, 117.598, 39.384, 0.284)
pt3dadd(110.454, 117.597, 39.427, 0.268)
}
}
proc shape3d_162() {
dend_7[34] { pt3dadd(110.562, 117.597, 39.469, 0.252)
pt3dadd(110.671, 117.596, 39.511, 0.236)
pt3dadd(110.783, 117.594, 39.547, 0.23)
pt3dadd(110.899, 117.593, 39.573, 0.242)
pt3dadd(111.015, 117.591, 39.598, 0.252)
pt3dadd(111.131, 117.589, 39.623, 0.264)
pt3dadd(111.247, 117.587, 39.649, 0.276)
pt3dadd(111.363, 117.585, 39.674, 0.286)
pt3dadd(111.479, 117.583, 39.7, 0.298)
pt3dadd(111.595, 117.581, 39.725, 0.308)
pt3dadd(111.711, 117.579, 39.75, 0.32)
pt3dadd(111.827, 117.577, 39.776, 0.332)
pt3dadd(111.944, 117.574, 39.798, 0.352)
pt3dadd(112.062, 117.57, 39.817, 0.386)
pt3dadd(112.179, 117.565, 39.835, 0.42)
pt3dadd(112.297, 117.561, 39.853, 0.454)
pt3dadd(112.415, 117.557, 39.872, 0.488)
pt3dadd(112.533, 117.552, 39.89, 0.522)
pt3dadd(112.651, 117.548, 39.909, 0.556)
pt3dadd(112.769, 117.543, 39.927, 0.59)
pt3dadd(112.887, 117.539, 39.945, 0.624)
pt3dadd(113.005, 117.534, 39.964, 0.656)
pt3dadd(113.122, 117.528, 39.984, 0.68)
pt3dadd(113.238, 117.519, 40.008, 0.686)
pt3dadd(113.354, 117.51, 40.031, 0.692)
pt3dadd(113.471, 117.501, 40.055, 0.698)
pt3dadd(113.587, 117.492, 40.078, 0.704)
pt3dadd(113.703, 117.483, 40.102, 0.71)
pt3dadd(113.819, 117.474, 40.126, 0.718)
pt3dadd(113.936, 117.465, 40.149, 0.724)
pt3dadd(114.052, 117.455, 40.173, 0.73)
pt3dadd(114.168, 117.446, 40.196, 0.736)
pt3dadd(114.28, 117.433, 40.229, 0.744)
pt3dadd(114.388, 117.415, 40.271, 0.756)
pt3dadd(114.495, 117.397, 40.313, 0.768)
pt3dadd(114.602, 117.379, 40.355, 0.782)
pt3dadd(114.71, 117.361, 40.397, 0.794)
pt3dadd(114.817, 117.342, 40.439, 0.806)
pt3dadd(114.924, 117.324, 40.481, 0.818)
pt3dadd(115.032, 117.306, 40.523, 0.83)
pt3dadd(115.139, 117.288, 40.565, 0.842)
pt3dadd(115.246, 117.27, 40.608, 0.854)
pt3dadd(115.352, 117.241, 40.647, 0.848)
pt3dadd(115.457, 117.203, 40.684, 0.824)
pt3dadd(115.562, 117.165, 40.72, 0.802)
pt3dadd(115.667, 117.126, 40.757, 0.778)
pt3dadd(115.771, 117.088, 40.794, 0.756)
pt3dadd(115.876, 117.05, 40.831, 0.732)
pt3dadd(115.981, 117.012, 40.868, 0.71)
pt3dadd(116.086, 116.973, 40.905, 0.688)
pt3dadd(116.19, 116.935, 40.942, 0.664)
pt3dadd(116.295, 116.897, 40.979, 0.642)
pt3dadd(116.398, 116.868, 41.023, 0.608)
pt3dadd(116.499, 116.846, 41.074, 0.57)
pt3dadd(116.601, 116.824, 41.124, 0.53)
pt3dadd(116.702, 116.802, 41.175, 0.49)
pt3dadd(116.803, 116.78, 41.225, 0.45)
pt3dadd(116.904, 116.758, 41.276, 0.41)
pt3dadd(117.005, 116.737, 41.326, 0.37)
pt3dadd(117.106, 116.715, 41.377, 0.33)
pt3dadd(117.208, 116.693, 41.428, 0.29)
pt3dadd(117.309, 116.671, 41.478, 0.252)
pt3dadd(117.416, 116.659, 41.521, 0.27)
pt3dadd(117.527, 116.655, 41.558, 0.334)
pt3dadd(117.638, 116.651, 41.596, 0.398)
pt3dadd(117.75, 116.647, 41.633, 0.462)
pt3dadd(117.861, 116.642, 41.67, 0.526)
pt3dadd(117.972, 116.638, 41.708, 0.588)
pt3dadd(118.083, 116.634, 41.745, 0.652)
pt3dadd(118.195, 116.63, 41.782, 0.716)
pt3dadd(118.306, 116.626, 41.819, 0.78)
pt3dadd(118.417, 116.621, 41.857, 0.844)
pt3dadd(118.524, 116.627, 41.901, 0.862)
pt3dadd(118.627, 116.64, 41.952, 0.846)
pt3dadd(118.73, 116.652, 42.002, 0.83)
pt3dadd(118.833, 116.665, 42.052, 0.814)
pt3dadd(118.935, 116.678, 42.103, 0.798)
pt3dadd(119.038, 116.691, 42.153, 0.782)
pt3dadd(119.141, 116.703, 42.203, 0.766)
pt3dadd(119.244, 116.716, 42.254, 0.75)
pt3dadd(119.347, 116.729, 42.304, 0.734)
pt3dadd(119.45, 116.741, 42.354, 0.718)
pt3dadd(119.553, 116.77, 42.397, 0.73)
pt3dadd(119.657, 116.811, 42.434, 0.76)
pt3dadd(119.761, 116.852, 42.471, 0.792)
pt3dadd(119.865, 116.892, 42.508, 0.824)
pt3dadd(119.969, 116.933, 42.545, 0.856)
pt3dadd(120.072, 116.974, 42.582, 0.888)
pt3dadd(120.176, 117.015, 42.618, 0.92)
pt3dadd(120.28, 117.055, 42.655, 0.95)
pt3dadd(120.384, 117.096, 42.692, 0.982)
pt3dadd(120.487, 117.137, 42.729, 1.014)
pt3dadd(120.589, 117.175, 42.771, 1.022)
pt3dadd(120.69, 117.212, 42.816, 1.016)
pt3dadd(120.791, 117.248, 42.861, 1.012)
pt3dadd(120.892, 117.285, 42.906, 1.008)
pt3dadd(120.992, 117.322, 42.95, 1.002)
pt3dadd(121.093, 117.358, 42.995, 0.998)
pt3dadd(121.194, 117.395, 43.04, 0.992)
pt3dadd(121.296, 117.432, 43.085, 0.988)
pt3dadd(121.397, 117.468, 43.129, 0.982)
pt3dadd(121.498, 117.505, 43.174, 0.978)
pt3dadd(121.601, 117.538, 43.216, 0.972)
pt3dadd(121.706, 117.569, 43.256, 0.964)
pt3dadd(121.812, 117.6, 43.297, 0.956)
pt3dadd(121.918, 117.63, 43.337, 0.95)
pt3dadd(122.022, 117.661, 43.377, 0.942)
pt3dadd(122.128, 117.692, 43.418, 0.936)
pt3dadd(122.233, 117.723, 43.458, 0.928)
pt3dadd(122.339, 117.753, 43.499, 0.92)
pt3dadd(122.444, 117.784, 43.539, 0.914)
pt3dadd(122.549, 117.815, 43.58, 0.906)
pt3dadd(122.653, 117.857, 43.613, 0.916)
pt3dadd(122.758, 117.904, 43.644, 0.936)
pt3dadd(122.862, 117.951, 43.675, 0.954)
pt3dadd(122.965, 117.998, 43.706, 0.972)
pt3dadd(123.07, 118.045, 43.737, 0.99)
pt3dadd(123.174, 118.092, 43.768, 1.008)
pt3dadd(123.277, 118.139, 43.799, 1.028)
pt3dadd(123.382, 118.186, 43.83, 1.046)
pt3dadd(123.486, 118.233, 43.861, 1.064)
pt3dadd(123.589, 118.28, 43.892, 1.082)
pt3dadd(123.667, 118.328, 43.953, 1.038)
pt3dadd(123.737, 118.377, 44.024, 0.972)
pt3dadd(123.808, 118.425, 44.095, 0.908)
pt3dadd(123.877, 118.474, 44.165, 0.842)
pt3dadd(123.947, 118.522, 44.236, 0.778)
pt3dadd(124.016, 118.571, 44.306, 0.712)
pt3dadd(124.086, 118.62, 44.377, 0.648)
pt3dadd(124.157, 118.668, 44.447, 0.582)
pt3dadd(124.226, 118.717, 44.518, 0.518)
pt3dadd(124.296, 118.765, 44.588, 0.452)
}
dend_7[35] {pt3dclear()
pt3dadd(92.073, 109.604, 23.394, 0.904)
pt3dadd(92.015, 109.601, 23.443, 0.894)
pt3dadd(91.93, 109.597, 23.513, 0.878)
pt3dadd(91.845, 109.593, 23.584, 0.862)
pt3dadd(91.761, 109.589, 23.654, 0.846)
pt3dadd(91.676, 109.584, 23.725, 0.83)
pt3dadd(91.591, 109.58, 23.796, 0.814)
pt3dadd(91.506, 109.575, 23.866, 0.798)
pt3dadd(91.422, 109.571, 23.937, 0.784)
pt3dadd(91.337, 109.566, 24.008, 0.768)
pt3dadd(91.252, 109.562, 24.079, 0.752)
pt3dadd(91.167, 109.557, 24.149, 0.736)
pt3dadd(91.082, 109.553, 24.22, 0.72)
pt3dadd(90.998, 109.549, 24.291, 0.704)
pt3dadd(90.91, 109.545, 24.357, 0.688)
pt3dadd(90.791, 109.549, 24.365, 0.666)
pt3dadd(90.671, 109.554, 24.372, 0.646)
pt3dadd(90.552, 109.559, 24.38, 0.624)
pt3dadd(90.432, 109.563, 24.387, 0.604)
pt3dadd(90.313, 109.568, 24.395, 0.582)
pt3dadd(90.193, 109.573, 24.402, 0.562)
pt3dadd(90.073, 109.577, 24.41, 0.54)
pt3dadd(89.954, 109.582, 24.417, 0.52)
pt3dadd(89.834, 109.587, 24.425, 0.498)
pt3dadd(89.715, 109.592, 24.431, 0.494)
pt3dadd(89.595, 109.6, 24.434, 0.536)
pt3dadd(89.475, 109.608, 24.438, 0.578)
pt3dadd(89.356, 109.616, 24.441, 0.62)
pt3dadd(89.236, 109.624, 24.444, 0.662)
pt3dadd(89.116, 109.632, 24.447, 0.704)
pt3dadd(88.997, 109.64, 24.45, 0.746)
pt3dadd(88.877, 109.648, 24.453, 0.788)
pt3dadd(88.757, 109.656, 24.456, 0.83)
pt3dadd(88.638, 109.664, 24.459, 0.872)
pt3dadd(88.518, 109.674, 24.463, 0.904)
pt3dadd(88.399, 109.687, 24.471, 0.904)
pt3dadd(88.28, 109.7, 24.478, 0.902)
pt3dadd(88.161, 109.713, 24.485, 0.902)
pt3dadd(88.042, 109.726, 24.492, 0.902)
pt3dadd(87.923, 109.739, 24.499, 0.9)
pt3dadd(87.804, 109.752, 24.507, 0.9)
pt3dadd(87.685, 109.765, 24.514, 0.898)
pt3dadd(87.566, 109.779, 24.521, 0.898)
pt3dadd(87.447, 109.792, 24.528, 0.898)
pt3dadd(87.33, 109.812, 24.536, 0.892)
pt3dadd(87.219, 109.854, 24.547, 0.87)
pt3dadd(87.107, 109.896, 24.558, 0.848)
pt3dadd(86.995, 109.937, 24.569, 0.826)
pt3dadd(86.883, 109.979, 24.58, 0.804)
pt3dadd(86.771, 110.02, 24.591, 0.782)
pt3dadd(86.66, 110.062, 24.602, 0.76)
pt3dadd(86.548, 110.103, 24.613, 0.738)
pt3dadd(86.436, 110.145, 24.625, 0.716)
pt3dadd(86.324, 110.186, 24.636, 0.694)
pt3dadd(86.213, 110.222, 24.654, 0.684)
pt3dadd(86.103, 110.241, 24.691, 0.706)
pt3dadd(85.993, 110.26, 24.727, 0.728)
pt3dadd(85.883, 110.279, 24.764, 0.748)
pt3dadd(85.773, 110.298, 24.801, 0.77)
pt3dadd(85.664, 110.318, 24.838, 0.792)
pt3dadd(85.554, 110.337, 24.875, 0.814)
pt3dadd(85.444, 110.356, 24.912, 0.834)
pt3dadd(85.334, 110.375, 24.949, 0.856)
pt3dadd(85.224, 110.394, 24.986, 0.878)
pt3dadd(85.113, 110.408, 25.02, 0.894)
pt3dadd(84.997, 110.408, 25.045, 0.894)
pt3dadd(84.881, 110.408, 25.07, 0.896)
pt3dadd(84.765, 110.408, 25.096, 0.896)
}
}
proc shape3d_163() {
dend_7[35] { pt3dadd(84.648, 110.408, 25.121, 0.898)
pt3dadd(84.532, 110.408, 25.146, 0.9)
pt3dadd(84.416, 110.408, 25.171, 0.9)
pt3dadd(84.3, 110.408, 25.197, 0.902)
pt3dadd(84.184, 110.408, 25.222, 0.902)
pt3dadd(84.068, 110.408, 25.247, 0.904)
pt3dadd(83.953, 110.396, 25.269, 0.91)
pt3dadd(83.842, 110.353, 25.281, 0.93)
pt3dadd(83.731, 110.31, 25.293, 0.952)
pt3dadd(83.62, 110.266, 25.306, 0.972)
pt3dadd(83.509, 110.223, 25.318, 0.994)
pt3dadd(83.398, 110.18, 25.33, 1.014)
pt3dadd(83.288, 110.136, 25.342, 1.034)
pt3dadd(83.177, 110.093, 25.354, 1.056)
pt3dadd(83.066, 110.049, 25.367, 1.076)
pt3dadd(82.955, 110.006, 25.379, 1.098)
pt3dadd(82.842, 109.966, 25.388, 1.112)
pt3dadd(82.727, 109.935, 25.392, 1.114)
pt3dadd(82.611, 109.903, 25.396, 1.116)
pt3dadd(82.495, 109.871, 25.4, 1.118)
pt3dadd(82.38, 109.84, 25.404, 1.12)
pt3dadd(82.264, 109.808, 25.407, 1.122)
pt3dadd(82.148, 109.776, 25.411, 1.124)
pt3dadd(82.033, 109.745, 25.415, 1.126)
pt3dadd(81.917, 109.713, 25.419, 1.126)
pt3dadd(81.801, 109.681, 25.423, 1.128)
pt3dadd(81.685, 109.654, 25.428, 1.124)
pt3dadd(81.567, 109.636, 25.435, 1.102)
pt3dadd(81.448, 109.618, 25.442, 1.08)
pt3dadd(81.33, 109.6, 25.45, 1.06)
pt3dadd(81.212, 109.582, 25.457, 1.038)
pt3dadd(81.093, 109.564, 25.464, 1.016)
pt3dadd(80.975, 109.546, 25.471, 0.994)
pt3dadd(80.857, 109.528, 25.479, 0.974)
pt3dadd(80.738, 109.51, 25.486, 0.952)
pt3dadd(80.62, 109.492, 25.493, 0.93)
pt3dadd(80.502, 109.476, 25.502, 0.908)
pt3dadd(80.383, 109.467, 25.515, 0.886)
pt3dadd(80.264, 109.458, 25.528, 0.862)
pt3dadd(80.146, 109.448, 25.541, 0.838)
pt3dadd(80.027, 109.439, 25.553, 0.816)
pt3dadd(79.908, 109.429, 25.566, 0.792)
pt3dadd(79.79, 109.42, 25.579, 0.77)
pt3dadd(79.671, 109.41, 25.592, 0.746)
pt3dadd(79.553, 109.401, 25.605, 0.722)
pt3dadd(79.434, 109.391, 25.617, 0.7)
pt3dadd(79.318, 109.38, 25.639, 0.676)
pt3dadd(79.209, 109.366, 25.677, 0.656)
pt3dadd(79.099, 109.351, 25.716, 0.634)
pt3dadd(78.989, 109.337, 25.755, 0.612)
pt3dadd(78.879, 109.323, 25.794, 0.59)
pt3dadd(78.77, 109.309, 25.833, 0.57)
pt3dadd(78.66, 109.294, 25.871, 0.548)
pt3dadd(78.55, 109.28, 25.91, 0.526)
pt3dadd(78.441, 109.266, 25.949, 0.504)
pt3dadd(78.331, 109.251, 25.988, 0.484)
pt3dadd(78.223, 109.227, 26.023, 0.468)
pt3dadd(78.116, 109.184, 26.053, 0.466)
pt3dadd(78.01, 109.141, 26.082, 0.464)
pt3dadd(77.904, 109.098, 26.112, 0.464)
pt3dadd(77.798, 109.055, 26.141, 0.462)
pt3dadd(77.691, 109.011, 26.17, 0.46)
pt3dadd(77.585, 108.968, 26.2, 0.458)
pt3dadd(77.479, 108.925, 26.229, 0.456)
pt3dadd(77.373, 108.882, 26.259, 0.454)
pt3dadd(77.267, 108.839, 26.288, 0.454)
pt3dadd(77.159, 108.797, 26.316, 0.466)
pt3dadd(77.048, 108.76, 26.339, 0.502)
pt3dadd(76.938, 108.723, 26.363, 0.538)
pt3dadd(76.827, 108.685, 26.386, 0.574)
pt3dadd(76.717, 108.648, 26.41, 0.61)
pt3dadd(76.607, 108.61, 26.433, 0.646)
pt3dadd(76.496, 108.573, 26.457, 0.682)
pt3dadd(76.386, 108.535, 26.48, 0.718)
pt3dadd(76.275, 108.498, 26.504, 0.756)
pt3dadd(76.165, 108.46, 26.528, 0.792)
pt3dadd(76.055, 108.426, 26.556, 0.818)
pt3dadd(75.946, 108.399, 26.591, 0.826)
pt3dadd(75.837, 108.371, 26.627, 0.836)
pt3dadd(75.729, 108.344, 26.662, 0.844)
pt3dadd(75.62, 108.316, 26.698, 0.854)
pt3dadd(75.511, 108.289, 26.733, 0.862)
pt3dadd(75.402, 108.261, 26.768, 0.872)
pt3dadd(75.294, 108.234, 26.804, 0.88)
pt3dadd(75.185, 108.206, 26.839, 0.89)
pt3dadd(75.076, 108.178, 26.875, 0.898)
pt3dadd(74.968, 108.146, 26.909, 0.91)
pt3dadd(74.861, 108.107, 26.94, 0.926)
pt3dadd(74.754, 108.068, 26.971, 0.94)
pt3dadd(74.647, 108.028, 27.003, 0.956)
pt3dadd(74.54, 107.989, 27.034, 0.97)
pt3dadd(74.433, 107.95, 27.065, 0.986)
pt3dadd(74.326, 107.911, 27.097, 1.002)
pt3dadd(74.219, 107.871, 27.128, 1.016)
pt3dadd(74.112, 107.832, 27.159, 1.032)
pt3dadd(74.005, 107.793, 27.191, 1.046)
pt3dadd(73.897, 107.755, 27.219, 1.052)
pt3dadd(73.786, 107.719, 27.243, 1.046)
pt3dadd(73.676, 107.682, 27.268, 1.038)
pt3dadd(73.565, 107.646, 27.292, 1.032)
pt3dadd(73.455, 107.61, 27.317, 1.026)
pt3dadd(73.344, 107.573, 27.341, 1.018)
pt3dadd(73.233, 107.537, 27.365, 1.012)
pt3dadd(73.123, 107.501, 27.39, 1.004)
pt3dadd(73.012, 107.464, 27.414, 0.998)
pt3dadd(72.902, 107.428, 27.439, 0.992)
pt3dadd(72.791, 107.397, 27.467, 0.984)
pt3dadd(72.68, 107.371, 27.499, 0.976)
pt3dadd(72.57, 107.346, 27.531, 0.966)
pt3dadd(72.459, 107.321, 27.564, 0.958)
pt3dadd(72.348, 107.296, 27.596, 0.95)
pt3dadd(72.237, 107.27, 27.628, 0.942)
pt3dadd(72.127, 107.245, 27.66, 0.934)
pt3dadd(72.016, 107.22, 27.693, 0.926)
pt3dadd(71.905, 107.194, 27.725, 0.916)
pt3dadd(71.795, 107.169, 27.757, 0.908)
pt3dadd(71.683, 107.147, 27.789, 0.91)
pt3dadd(71.571, 107.129, 27.821, 0.924)
pt3dadd(71.458, 107.11, 27.853, 0.938)
pt3dadd(71.346, 107.092, 27.885, 0.952)
pt3dadd(71.234, 107.074, 27.916, 0.964)
pt3dadd(71.122, 107.055, 27.948, 0.978)
pt3dadd(71.009, 107.037, 27.98, 0.992)
pt3dadd(70.897, 107.018, 28.011, 1.004)
pt3dadd(70.785, 107, 28.043, 1.018)
pt3dadd(70.672, 106.982, 28.075, 1.032)
pt3dadd(70.561, 106.953, 28.102, 1.036)
pt3dadd(70.45, 106.915, 28.123, 1.032)
pt3dadd(70.339, 106.878, 28.144, 1.028)
pt3dadd(70.228, 106.84, 28.166, 1.022)
pt3dadd(70.117, 106.802, 28.187, 1.018)
pt3dadd(70.006, 106.764, 28.209, 1.014)
pt3dadd(69.895, 106.727, 28.23, 1.01)
pt3dadd(69.784, 106.689, 28.252, 1.006)
pt3dadd(69.673, 106.651, 28.273, 1)
pt3dadd(69.562, 106.613, 28.295, 0.996)
pt3dadd(69.453, 106.569, 28.311, 0.99)
pt3dadd(69.344, 106.522, 28.326, 0.98)
pt3dadd(69.235, 106.475, 28.34, 0.972)
pt3dadd(69.126, 106.428, 28.354, 0.962)
pt3dadd(69.017, 106.381, 28.369, 0.952)
pt3dadd(68.908, 106.333, 28.383, 0.944)
pt3dadd(68.799, 106.286, 28.397, 0.934)
pt3dadd(68.69, 106.239, 28.411, 0.926)
pt3dadd(68.581, 106.192, 28.426, 0.916)
pt3dadd(68.472, 106.145, 28.44, 0.908)
pt3dadd(68.369, 106.097, 28.47, 0.918)
pt3dadd(68.269, 106.049, 28.509, 0.938)
pt3dadd(68.17, 106.001, 28.548, 0.958)
pt3dadd(68.07, 105.954, 28.587, 0.978)
pt3dadd(67.971, 105.906, 28.626, 1)
pt3dadd(67.871, 105.858, 28.665, 1.02)
pt3dadd(67.771, 105.81, 28.704, 1.04)
pt3dadd(67.672, 105.762, 28.743, 1.06)
pt3dadd(67.572, 105.714, 28.782, 1.082)
pt3dadd(67.473, 105.666, 28.821, 1.102)
pt3dadd(67.378, 105.602, 28.851, 1.07)
pt3dadd(67.285, 105.534, 28.879, 1.028)
pt3dadd(67.191, 105.467, 28.906, 0.984)
pt3dadd(67.098, 105.4, 28.934, 0.942)
pt3dadd(67.004, 105.332, 28.962, 0.9)
pt3dadd(66.911, 105.265, 28.99, 0.858)
pt3dadd(66.817, 105.197, 29.018, 0.816)
pt3dadd(66.724, 105.13, 29.045, 0.774)
pt3dadd(66.63, 105.062, 29.073, 0.732)
pt3dadd(66.537, 104.995, 29.101, 0.69)
pt3dadd(66.445, 104.92, 29.113, 0.648)
pt3dadd(66.353, 104.843, 29.123, 0.608)
pt3dadd(66.261, 104.767, 29.133, 0.568)
pt3dadd(66.169, 104.691, 29.143, 0.526)
pt3dadd(66.077, 104.614, 29.153, 0.486)
pt3dadd(65.986, 104.538, 29.163, 0.446)
pt3dadd(65.894, 104.462, 29.172, 0.404)
pt3dadd(65.802, 104.385, 29.182, 0.364)
pt3dadd(65.71, 104.309, 29.192, 0.324)
pt3dadd(65.618, 104.233, 29.202, 0.282)
pt3dadd(65.515, 104.172, 29.205, 0.274)
pt3dadd(65.41, 104.114, 29.206, 0.268)
pt3dadd(65.305, 104.056, 29.208, 0.262)
pt3dadd(65.2, 103.998, 29.209, 0.258)
pt3dadd(65.095, 103.939, 29.211, 0.252)
pt3dadd(64.991, 103.881, 29.212, 0.248)
pt3dadd(64.886, 103.823, 29.213, 0.242)
pt3dadd(64.781, 103.764, 29.215, 0.236)
pt3dadd(64.676, 103.706, 29.216, 0.232)
pt3dadd(64.571, 103.648, 29.218, 0.226)
pt3dadd(64.468, 103.587, 29.218, 0.256)
pt3dadd(64.365, 103.525, 29.219, 0.288)
pt3dadd(64.262, 103.464, 29.219, 0.318)
pt3dadd(64.159, 103.402, 29.22, 0.35)
pt3dadd(64.056, 103.341, 29.22, 0.382)
pt3dadd(63.952, 103.279, 29.221, 0.414)
pt3dadd(63.849, 103.218, 29.221, 0.446)
pt3dadd(63.746, 103.156, 29.222, 0.478)
pt3dadd(63.643, 103.095, 29.222, 0.51)
pt3dadd(63.54, 103.033, 29.223, 0.542)
pt3dadd(63.433, 102.979, 29.224, 0.558)
pt3dadd(63.326, 102.925, 29.225, 0.57)
pt3dadd(63.219, 102.871, 29.226, 0.584)
pt3dadd(63.112, 102.817, 29.227, 0.598)
}
}
proc shape3d_164() {
dend_7[35] { pt3dadd(63.004, 102.763, 29.228, 0.61)
pt3dadd(62.897, 102.71, 29.229, 0.624)
pt3dadd(62.79, 102.656, 29.23, 0.638)
pt3dadd(62.683, 102.602, 29.231, 0.65)
pt3dadd(62.576, 102.548, 29.232, 0.664)
pt3dadd(62.468, 102.494, 29.233, 0.678)
pt3dadd(62.364, 102.434, 29.235, 0.678)
pt3dadd(62.261, 102.374, 29.237, 0.678)
pt3dadd(62.157, 102.314, 29.239, 0.678)
pt3dadd(62.053, 102.254, 29.242, 0.678)
pt3dadd(61.949, 102.193, 29.244, 0.678)
pt3dadd(61.846, 102.133, 29.246, 0.678)
pt3dadd(61.742, 102.073, 29.248, 0.678)
pt3dadd(61.638, 102.013, 29.25, 0.678)
pt3dadd(61.534, 101.952, 29.252, 0.678)
pt3dadd(61.431, 101.892, 29.254, 0.678)
pt3dadd(61.332, 101.824, 29.258, 0.668)
pt3dadd(61.234, 101.755, 29.262, 0.658)
pt3dadd(61.136, 101.686, 29.267, 0.648)
pt3dadd(61.038, 101.617, 29.271, 0.636)
pt3dadd(60.939, 101.549, 29.275, 0.626)
pt3dadd(60.841, 101.48, 29.28, 0.616)
pt3dadd(60.743, 101.411, 29.284, 0.606)
pt3dadd(60.645, 101.342, 29.288, 0.596)
pt3dadd(60.547, 101.273, 29.293, 0.584)
pt3dadd(60.448, 101.205, 29.297, 0.574)
pt3dadd(60.348, 101.14, 29.305, 0.572)
pt3dadd(60.247, 101.076, 29.314, 0.568)
pt3dadd(60.146, 101.011, 29.322, 0.566)
pt3dadd(60.045, 100.947, 29.33, 0.564)
pt3dadd(59.945, 100.883, 29.339, 0.56)
pt3dadd(59.844, 100.818, 29.347, 0.558)
pt3dadd(59.743, 100.754, 29.355, 0.554)
pt3dadd(59.642, 100.69, 29.364, 0.552)
pt3dadd(59.541, 100.625, 29.372, 0.548)
pt3dadd(59.441, 100.561, 29.381, 0.546)
pt3dadd(59.337, 100.512, 29.411, 0.574)
pt3dadd(59.234, 100.462, 29.441, 0.602)
pt3dadd(59.131, 100.413, 29.472, 0.628)
pt3dadd(59.028, 100.363, 29.502, 0.656)
pt3dadd(58.925, 100.314, 29.532, 0.684)
pt3dadd(58.822, 100.265, 29.563, 0.71)
pt3dadd(58.719, 100.215, 29.593, 0.738)
pt3dadd(58.616, 100.166, 29.623, 0.766)
pt3dadd(58.512, 100.116, 29.654, 0.792)
pt3dadd(58.411, 100.065, 29.685, 0.812)
pt3dadd(58.314, 100.008, 29.72, 0.802)
pt3dadd(58.217, 99.951, 29.754, 0.794)
pt3dadd(58.12, 99.894, 29.789, 0.784)
pt3dadd(58.023, 99.837, 29.823, 0.776)
pt3dadd(57.926, 99.779, 29.858, 0.768)
pt3dadd(57.829, 99.722, 29.893, 0.758)
pt3dadd(57.732, 99.665, 29.927, 0.75)
pt3dadd(57.635, 99.608, 29.962, 0.74)
pt3dadd(57.538, 99.551, 29.997, 0.732)
pt3dadd(57.438, 99.495, 30.024, 0.724)
pt3dadd(57.331, 99.443, 30.039, 0.72)
pt3dadd(57.224, 99.391, 30.054, 0.714)
pt3dadd(57.117, 99.34, 30.068, 0.71)
pt3dadd(57.011, 99.288, 30.083, 0.706)
pt3dadd(56.904, 99.236, 30.097, 0.7)
pt3dadd(56.797, 99.184, 30.112, 0.696)
pt3dadd(56.69, 99.132, 30.127, 0.69)
pt3dadd(56.583, 99.08, 30.141, 0.686)
pt3dadd(56.477, 99.028, 30.156, 0.68)
pt3dadd(56.371, 98.973, 30.166, 0.678)
pt3dadd(56.267, 98.913, 30.168, 0.678)
pt3dadd(56.164, 98.853, 30.17, 0.678)
pt3dadd(56.06, 98.792, 30.172, 0.678)
pt3dadd(55.956, 98.732, 30.174, 0.678)
pt3dadd(55.853, 98.672, 30.176, 0.678)
pt3dadd(55.749, 98.611, 30.178, 0.678)
pt3dadd(55.645, 98.551, 30.18, 0.678)
pt3dadd(55.542, 98.49, 30.182, 0.678)
pt3dadd(55.438, 98.43, 30.184, 0.678)
pt3dadd(55.332, 98.374, 30.186, 0.664)
pt3dadd(55.223, 98.325, 30.187, 0.632)
pt3dadd(55.113, 98.276, 30.188, 0.598)
pt3dadd(55.004, 98.226, 30.189, 0.564)
pt3dadd(54.894, 98.177, 30.191, 0.532)
pt3dadd(54.785, 98.128, 30.192, 0.498)
pt3dadd(54.675, 98.079, 30.193, 0.464)
pt3dadd(54.566, 98.029, 30.194, 0.43)
pt3dadd(54.457, 97.98, 30.196, 0.398)
pt3dadd(54.347, 97.931, 30.197, 0.364)
pt3dadd(54.24, 97.878, 30.199, 0.352)
pt3dadd(54.135, 97.82, 30.201, 0.37)
pt3dadd(54.03, 97.762, 30.204, 0.388)
pt3dadd(53.925, 97.704, 30.206, 0.408)
pt3dadd(53.82, 97.645, 30.208, 0.426)
pt3dadd(53.715, 97.587, 30.211, 0.444)
pt3dadd(53.61, 97.529, 30.213, 0.462)
pt3dadd(53.505, 97.471, 30.216, 0.482)
pt3dadd(53.4, 97.413, 30.218, 0.5)
pt3dadd(53.295, 97.355, 30.221, 0.518)
pt3dadd(53.189, 97.299, 30.225, 0.534)
pt3dadd(53.082, 97.246, 30.23, 0.55)
pt3dadd(52.974, 97.194, 30.236, 0.564)
pt3dadd(52.866, 97.141, 30.242, 0.58)
pt3dadd(52.759, 97.089, 30.248, 0.596)
pt3dadd(52.651, 97.036, 30.254, 0.61)
pt3dadd(52.543, 96.984, 30.26, 0.626)
pt3dadd(52.436, 96.931, 30.265, 0.64)
pt3dadd(52.328, 96.878, 30.271, 0.656)
pt3dadd(52.22, 96.826, 30.277, 0.67)
pt3dadd(52.115, 96.77, 30.285, 0.692)
pt3dadd(52.011, 96.711, 30.296, 0.722)
pt3dadd(51.908, 96.651, 30.307, 0.75)
pt3dadd(51.804, 96.592, 30.318, 0.78)
pt3dadd(51.701, 96.532, 30.328, 0.81)
pt3dadd(51.597, 96.473, 30.339, 0.838)
pt3dadd(51.494, 96.414, 30.35, 0.868)
pt3dadd(51.39, 96.354, 30.361, 0.898)
pt3dadd(51.287, 96.295, 30.371, 0.928)
pt3dadd(51.184, 96.235, 30.382, 0.956)
pt3dadd(51.085, 96.176, 30.407, 0.96)
pt3dadd(50.991, 96.117, 30.446, 0.94)
pt3dadd(50.898, 96.058, 30.484, 0.918)
pt3dadd(50.804, 96, 30.523, 0.896)
pt3dadd(50.71, 95.941, 30.562, 0.876)
pt3dadd(50.616, 95.882, 30.6, 0.854)
pt3dadd(50.523, 95.823, 30.639, 0.834)
pt3dadd(50.429, 95.764, 30.677, 0.812)
pt3dadd(50.335, 95.705, 30.716, 0.792)
pt3dadd(50.241, 95.646, 30.755, 0.77)
pt3dadd(50.148, 95.585, 30.791, 0.744)
pt3dadd(50.055, 95.522, 30.827, 0.714)
pt3dadd(49.963, 95.46, 30.863, 0.684)
pt3dadd(49.87, 95.397, 30.899, 0.654)
pt3dadd(49.777, 95.334, 30.935, 0.626)
pt3dadd(49.684, 95.272, 30.971, 0.596)
pt3dadd(49.591, 95.209, 31.007, 0.566)
pt3dadd(49.498, 95.147, 31.043, 0.538)
pt3dadd(49.405, 95.084, 31.079, 0.508)
pt3dadd(49.312, 95.022, 31.115, 0.478)
pt3dadd(49.206, 94.981, 31.142, 0.47)
pt3dadd(49.095, 94.946, 31.167, 0.468)
pt3dadd(48.984, 94.912, 31.192, 0.466)
pt3dadd(48.873, 94.877, 31.217, 0.464)
pt3dadd(48.762, 94.843, 31.242, 0.462)
pt3dadd(48.651, 94.808, 31.267, 0.46)
pt3dadd(48.54, 94.774, 31.292, 0.458)
pt3dadd(48.429, 94.739, 31.317, 0.456)
pt3dadd(48.318, 94.705, 31.342, 0.454)
pt3dadd(48.207, 94.67, 31.367, 0.452)
pt3dadd(48.096, 94.652, 31.401, 0.452)
pt3dadd(47.986, 94.638, 31.438, 0.452)
pt3dadd(47.875, 94.624, 31.476, 0.452)
pt3dadd(47.765, 94.61, 31.513, 0.452)
pt3dadd(47.654, 94.597, 31.55, 0.452)
pt3dadd(47.544, 94.583, 31.587, 0.452)
pt3dadd(47.433, 94.569, 31.624, 0.452)
pt3dadd(47.322, 94.555, 31.661, 0.452)
pt3dadd(47.212, 94.541, 31.699, 0.452)
pt3dadd(47.101, 94.527, 31.736, 0.452)
pt3dadd(46.986, 94.521, 31.763, 0.47)
pt3dadd(46.87, 94.518, 31.788, 0.492)
pt3dadd(46.754, 94.514, 31.813, 0.514)
pt3dadd(46.638, 94.51, 31.838, 0.536)
pt3dadd(46.522, 94.506, 31.863, 0.558)
pt3dadd(46.406, 94.502, 31.888, 0.58)
pt3dadd(46.29, 94.499, 31.913, 0.602)
pt3dadd(46.174, 94.495, 31.938, 0.624)
pt3dadd(46.057, 94.491, 31.964, 0.646)
pt3dadd(45.941, 94.487, 31.989, 0.666)
pt3dadd(45.823, 94.48, 32.004, 0.672)
pt3dadd(45.704, 94.472, 32.017, 0.672)
pt3dadd(45.586, 94.463, 32.029, 0.674)
pt3dadd(45.467, 94.455, 32.042, 0.674)
pt3dadd(45.348, 94.446, 32.055, 0.674)
pt3dadd(45.23, 94.438, 32.067, 0.676)
pt3dadd(45.111, 94.43, 32.08, 0.676)
pt3dadd(44.992, 94.421, 32.093, 0.676)
pt3dadd(44.873, 94.413, 32.106, 0.678)
pt3dadd(44.755, 94.405, 32.119, 0.678)
pt3dadd(44.636, 94.391, 32.123, 0.678)
pt3dadd(44.517, 94.376, 32.126, 0.678)
pt3dadd(44.398, 94.361, 32.129, 0.678)
pt3dadd(44.279, 94.345, 32.132, 0.678)
pt3dadd(44.16, 94.33, 32.135, 0.678)
pt3dadd(44.041, 94.315, 32.138, 0.678)
pt3dadd(43.922, 94.3, 32.141, 0.678)
pt3dadd(43.803, 94.285, 32.144, 0.678)
pt3dadd(43.684, 94.27, 32.147, 0.678)
pt3dadd(43.565, 94.254, 32.15, 0.678)
pt3dadd(43.452, 94.215, 32.156, 0.678)
pt3dadd(43.341, 94.17, 32.162, 0.678)
pt3dadd(43.23, 94.125, 32.169, 0.678)
pt3dadd(43.119, 94.08, 32.175, 0.678)
pt3dadd(43.009, 94.035, 32.182, 0.678)
pt3dadd(42.898, 93.99, 32.188, 0.678)
pt3dadd(42.787, 93.945, 32.195, 0.678)
pt3dadd(42.676, 93.9, 32.201, 0.678)
pt3dadd(42.565, 93.855, 32.208, 0.678)
pt3dadd(42.454, 93.81, 32.215, 0.678)
pt3dadd(42.339, 93.777, 32.225, 0.66)
pt3dadd(42.224, 93.747, 32.236, 0.638)
pt3dadd(42.108, 93.717, 32.247, 0.614)
pt3dadd(41.993, 93.687, 32.258, 0.592)
pt3dadd(41.878, 93.657, 32.27, 0.57)
}
}
proc shape3d_165() {
dend_7[35] { pt3dadd(41.762, 93.627, 32.281, 0.548)
pt3dadd(41.647, 93.597, 32.292, 0.524)
pt3dadd(41.531, 93.567, 32.303, 0.502)
pt3dadd(41.416, 93.537, 32.314, 0.48)
pt3dadd(41.301, 93.507, 32.325, 0.458)
pt3dadd(41.189, 93.489, 32.357, 0.488)
pt3dadd(41.079, 93.474, 32.394, 0.532)
pt3dadd(40.968, 93.459, 32.431, 0.574)
pt3dadd(40.857, 93.444, 32.467, 0.616)
pt3dadd(40.747, 93.428, 32.504, 0.66)
pt3dadd(40.636, 93.413, 32.541, 0.702)
pt3dadd(40.526, 93.398, 32.578, 0.746)
pt3dadd(40.415, 93.383, 32.614, 0.788)
pt3dadd(40.304, 93.368, 32.651, 0.832)
pt3dadd(40.194, 93.353, 32.688, 0.874)
pt3dadd(40.079, 93.344, 32.715, 0.866)
pt3dadd(39.963, 93.337, 32.739, 0.848)
pt3dadd(39.847, 93.329, 32.764, 0.828)
pt3dadd(39.731, 93.322, 32.789, 0.808)
pt3dadd(39.614, 93.314, 32.813, 0.788)
pt3dadd(39.498, 93.307, 32.838, 0.768)
pt3dadd(39.382, 93.3, 32.862, 0.75)
pt3dadd(39.266, 93.292, 32.887, 0.73)
pt3dadd(39.15, 93.285, 32.912, 0.71)
pt3dadd(39.034, 93.277, 32.936, 0.69)
pt3dadd(38.916, 93.267, 32.95, 0.686)
pt3dadd(38.797, 93.255, 32.962, 0.686)
pt3dadd(38.679, 93.244, 32.973, 0.684)
pt3dadd(38.56, 93.232, 32.985, 0.684)
pt3dadd(38.441, 93.221, 32.996, 0.682)
pt3dadd(38.323, 93.209, 33.008, 0.682)
pt3dadd(38.204, 93.198, 33.019, 0.68)
pt3dadd(38.085, 93.186, 33.031, 0.68)
pt3dadd(37.967, 93.175, 33.042, 0.68)
pt3dadd(37.848, 93.164, 33.054, 0.678)
pt3dadd(37.734, 93.129, 33.056, 0.642)
pt3dadd(37.62, 93.09, 33.056, 0.598)
pt3dadd(37.507, 93.05, 33.056, 0.554)
pt3dadd(37.394, 93.011, 33.056, 0.51)
pt3dadd(37.28, 92.972, 33.056, 0.466)
pt3dadd(37.167, 92.932, 33.056, 0.422)
pt3dadd(37.054, 92.893, 33.057, 0.378)
pt3dadd(36.94, 92.854, 33.057, 0.334)
pt3dadd(36.827, 92.814, 33.057, 0.29)
pt3dadd(36.714, 92.775, 33.057, 0.246)
pt3dadd(36.596, 92.75, 33.057, 0.238)
pt3dadd(36.478, 92.728, 33.057, 0.236)
pt3dadd(36.36, 92.706, 33.057, 0.234)
pt3dadd(36.242, 92.685, 33.057, 0.234)
pt3dadd(36.124, 92.663, 33.057, 0.232)
pt3dadd(36.006, 92.641, 33.057, 0.232)
pt3dadd(35.888, 92.619, 33.057, 0.23)
pt3dadd(35.77, 92.597, 33.057, 0.228)
pt3dadd(35.652, 92.575, 33.057, 0.228)
pt3dadd(35.534, 92.553, 33.057, 0.226)
pt3dadd(35.417, 92.57, 33.057, 0.264)
pt3dadd(35.299, 92.595, 33.057, 0.308)
pt3dadd(35.182, 92.619, 33.057, 0.354)
pt3dadd(35.064, 92.643, 33.057, 0.4)
pt3dadd(34.947, 92.668, 33.057, 0.444)
pt3dadd(34.829, 92.692, 33.057, 0.49)
pt3dadd(34.712, 92.717, 33.057, 0.536)
pt3dadd(34.594, 92.741, 33.057, 0.58)
pt3dadd(34.477, 92.766, 33.057, 0.626)
pt3dadd(34.359, 92.79, 33.057, 0.67)
pt3dadd(34.24, 92.79, 33.057, 0.676)
pt3dadd(34.12, 92.785, 33.057, 0.674)
pt3dadd(34, 92.779, 33.057, 0.672)
pt3dadd(33.88, 92.774, 33.057, 0.67)
pt3dadd(33.76, 92.769, 33.057, 0.668)
pt3dadd(33.64, 92.764, 33.057, 0.668)
pt3dadd(33.521, 92.759, 33.057, 0.666)
pt3dadd(33.401, 92.754, 33.057, 0.664)
pt3dadd(33.281, 92.749, 33.057, 0.662)
pt3dadd(33.161, 92.744, 33.057, 0.66)
pt3dadd(33.041, 92.753, 33.057, 0.638)
pt3dadd(32.922, 92.765, 33.057, 0.614)
pt3dadd(32.803, 92.777, 33.057, 0.588)
pt3dadd(32.683, 92.789, 33.057, 0.564)
pt3dadd(32.564, 92.801, 33.057, 0.54)
pt3dadd(32.444, 92.812, 33.057, 0.514)
pt3dadd(32.325, 92.824, 33.057, 0.49)
pt3dadd(32.205, 92.836, 33.057, 0.464)
pt3dadd(32.086, 92.848, 33.057, 0.44)
pt3dadd(31.967, 92.86, 33.057, 0.416)
pt3dadd(31.859, 92.914, 33.057, 0.396)
pt3dadd(31.752, 92.967, 33.057, 0.378)
pt3dadd(31.645, 93.021, 33.057, 0.358)
pt3dadd(31.537, 93.075, 33.057, 0.34)
pt3dadd(31.43, 93.128, 33.057, 0.32)
pt3dadd(31.323, 93.182, 33.057, 0.302)
pt3dadd(31.215, 93.236, 33.057, 0.282)
pt3dadd(31.108, 93.289, 33.057, 0.264)
pt3dadd(31.001, 93.343, 33.057, 0.244)
pt3dadd(30.893, 93.397, 33.057, 0.226)
}
dend_0[13] {pt3dclear()
pt3dadd(94.314, 106.085, 14.905, 12.882)
pt3dadd(94.337, 106.085, 14.922, 12.832)
pt3dadd(94.427, 106.085, 14.989, 12.64)
pt3dadd(94.517, 106.084, 15.055, 12.446)
pt3dadd(94.607, 106.084, 15.122, 12.252)
pt3dadd(94.696, 106.084, 15.188, 12.06)
pt3dadd(94.786, 106.083, 15.255, 11.866)
pt3dadd(94.876, 106.083, 15.321, 11.674)
pt3dadd(94.965, 106.083, 15.387, 11.48)
pt3dadd(95.055, 106.082, 15.454, 11.286)
pt3dadd(95.145, 106.082, 15.52, 11.094)
pt3dadd(95.234, 106.081, 15.587, 10.9)
pt3dadd(95.293, 106.055, 15.662, 10.78)
pt3dadd(95.314, 105.995, 15.747, 10.752)
pt3dadd(95.334, 105.936, 15.832, 10.724)
pt3dadd(95.355, 105.876, 15.917, 10.696)
pt3dadd(95.376, 105.817, 16.002, 10.668)
pt3dadd(95.396, 105.758, 16.087, 10.64)
pt3dadd(95.417, 105.698, 16.173, 10.612)
pt3dadd(95.437, 105.639, 16.258, 10.584)
pt3dadd(95.458, 105.579, 16.343, 10.556)
pt3dadd(95.474, 105.52, 16.429, 10.52)
pt3dadd(95.475, 105.462, 16.516, 10.454)
pt3dadd(95.476, 105.403, 16.603, 10.39)
pt3dadd(95.477, 105.345, 16.691, 10.324)
pt3dadd(95.478, 105.287, 16.778, 10.26)
pt3dadd(95.479, 105.228, 16.865, 10.194)
pt3dadd(95.48, 105.17, 16.953, 10.128)
pt3dadd(95.481, 105.111, 17.04, 10.064)
pt3dadd(95.482, 105.053, 17.127, 9.998)
pt3dadd(95.483, 104.994, 17.215, 9.932)
pt3dadd(95.484, 104.938, 17.303, 9.846)
pt3dadd(95.486, 104.884, 17.392, 9.698)
pt3dadd(95.488, 104.831, 17.482, 9.55)
pt3dadd(95.489, 104.778, 17.572, 9.402)
pt3dadd(95.491, 104.725, 17.661, 9.254)
pt3dadd(95.493, 104.671, 17.751, 9.106)
pt3dadd(95.495, 104.618, 17.84, 8.958)
pt3dadd(95.497, 104.565, 17.93, 8.81)
pt3dadd(95.498, 104.512, 18.02, 8.662)
pt3dadd(95.5, 104.459, 18.109, 8.514)
pt3dadd(95.502, 104.407, 18.2, 8.334)
pt3dadd(95.506, 104.361, 18.292, 8.068)
pt3dadd(95.51, 104.314, 18.384, 7.802)
pt3dadd(95.514, 104.268, 18.476, 7.536)
pt3dadd(95.517, 104.221, 18.568, 7.27)
pt3dadd(95.521, 104.175, 18.66, 7.004)
pt3dadd(95.525, 104.128, 18.752, 6.74)
pt3dadd(95.529, 104.081, 18.844, 6.474)
pt3dadd(95.532, 104.035, 18.937, 6.208)
pt3dadd(95.536, 103.988, 19.029, 5.942)
pt3dadd(95.542, 103.947, 19.122, 5.694)
pt3dadd(95.551, 103.915, 19.218, 5.482)
pt3dadd(95.561, 103.883, 19.314, 5.27)
pt3dadd(95.57, 103.851, 19.41, 5.06)
pt3dadd(95.579, 103.82, 19.507, 4.848)
pt3dadd(95.589, 103.788, 19.603, 4.636)
pt3dadd(95.598, 103.756, 19.699, 4.424)
pt3dadd(95.608, 103.725, 19.795, 4.212)
pt3dadd(95.617, 103.693, 19.891, 4)
pt3dadd(95.626, 103.661, 19.987, 3.788)
pt3dadd(95.64, 103.63, 20.083, 3.564)
pt3dadd(95.662, 103.6, 20.178, 3.318)
pt3dadd(95.684, 103.571, 20.273, 3.072)
pt3dadd(95.706, 103.541, 20.368, 2.826)
pt3dadd(95.728, 103.511, 20.463, 2.578)
pt3dadd(95.75, 103.481, 20.559, 2.332)
pt3dadd(95.772, 103.451, 20.654, 2.086)
pt3dadd(95.794, 103.422, 20.749, 1.84)
pt3dadd(95.816, 103.392, 20.844, 1.594)
pt3dadd(95.838, 103.362, 20.939, 1.346)
pt3dadd(95.875, 103.317, 21.021, 1.178)
pt3dadd(95.941, 103.245, 21.08, 1.148)
pt3dadd(96.006, 103.173, 21.139, 1.118)
pt3dadd(96.071, 103.102, 21.198, 1.088)
pt3dadd(96.136, 103.03, 21.257, 1.06)
pt3dadd(96.201, 102.958, 21.316, 1.03)
pt3dadd(96.267, 102.886, 21.374, 1)
pt3dadd(96.332, 102.814, 21.433, 0.97)
}
dend_7[36] {pt3dclear()
pt3dadd(96.332, 102.814, 21.433, 0.97)
pt3dadd(96.397, 102.742, 21.492, 0.94)
pt3dadd(96.462, 102.67, 21.551, 0.912)
pt3dadd(96.534, 102.587, 21.588, 0.916)
pt3dadd(96.608, 102.499, 21.614, 0.938)
pt3dadd(96.683, 102.41, 21.64, 0.962)
pt3dadd(96.758, 102.322, 21.666, 0.984)
pt3dadd(96.832, 102.233, 21.693, 1.006)
pt3dadd(96.907, 102.145, 21.719, 1.028)
pt3dadd(96.982, 102.056, 21.745, 1.052)
pt3dadd(97.056, 101.968, 21.771, 1.074)
pt3dadd(97.131, 101.879, 21.797, 1.096)
pt3dadd(97.206, 101.791, 21.823, 1.12)
pt3dadd(97.262, 101.703, 21.87, 1.106)
pt3dadd(97.308, 101.616, 21.927, 1.074)
pt3dadd(97.355, 101.529, 21.984, 1.044)
pt3dadd(97.402, 101.442, 22.04, 1.012)
pt3dadd(97.448, 101.355, 22.097, 0.982)
pt3dadd(97.495, 101.268, 22.154, 0.952)
pt3dadd(97.542, 101.18, 22.21, 0.92)
pt3dadd(97.589, 101.093, 22.267, 0.89)
pt3dadd(97.635, 101.006, 22.324, 0.858)
pt3dadd(97.682, 100.919, 22.38, 0.828)
pt3dadd(97.704, 100.821, 22.434, 0.798)
pt3dadd(97.718, 100.72, 22.486, 0.768)
pt3dadd(97.731, 100.619, 22.539, 0.738)
}
}
proc shape3d_166() {
dend_7[36] { pt3dadd(97.745, 100.517, 22.591, 0.708)
pt3dadd(97.759, 100.416, 22.643, 0.676)
pt3dadd(97.773, 100.315, 22.696, 0.646)
pt3dadd(97.787, 100.214, 22.748, 0.616)
pt3dadd(97.8, 100.112, 22.801, 0.586)
pt3dadd(97.814, 100.011, 22.853, 0.556)
pt3dadd(97.828, 99.91, 22.905, 0.526)
pt3dadd(97.836, 99.811, 22.962, 0.532)
pt3dadd(97.841, 99.713, 23.019, 0.548)
pt3dadd(97.847, 99.615, 23.076, 0.564)
pt3dadd(97.852, 99.516, 23.134, 0.58)
pt3dadd(97.858, 99.418, 23.191, 0.596)
pt3dadd(97.863, 99.32, 23.248, 0.612)
pt3dadd(97.869, 99.222, 23.306, 0.628)
pt3dadd(97.874, 99.124, 23.363, 0.642)
pt3dadd(97.88, 99.026, 23.42, 0.658)
pt3dadd(97.885, 98.928, 23.478, 0.674)
pt3dadd(97.894, 98.827, 23.531, 0.682)
pt3dadd(97.904, 98.725, 23.584, 0.688)
pt3dadd(97.914, 98.624, 23.637, 0.694)
pt3dadd(97.924, 98.522, 23.69, 0.7)
pt3dadd(97.934, 98.421, 23.743, 0.706)
pt3dadd(97.944, 98.319, 23.795, 0.712)
pt3dadd(97.954, 98.218, 23.848, 0.716)
pt3dadd(97.963, 98.117, 23.901, 0.722)
pt3dadd(97.973, 98.015, 23.954, 0.728)
pt3dadd(97.983, 97.914, 24.006, 0.734)
pt3dadd(98.011, 97.806, 24.042, 0.762)
pt3dadd(98.042, 97.697, 24.075, 0.796)
pt3dadd(98.072, 97.588, 24.108, 0.83)
pt3dadd(98.103, 97.479, 24.141, 0.862)
pt3dadd(98.134, 97.369, 24.174, 0.896)
pt3dadd(98.165, 97.26, 24.206, 0.928)
pt3dadd(98.196, 97.151, 24.239, 0.962)
pt3dadd(98.227, 97.042, 24.272, 0.996)
pt3dadd(98.257, 96.933, 24.305, 1.028)
pt3dadd(98.288, 96.824, 24.338, 1.062)
pt3dadd(98.283, 96.706, 24.353, 1.022)
pt3dadd(98.274, 96.588, 24.367, 0.974)
pt3dadd(98.265, 96.469, 24.38, 0.928)
pt3dadd(98.256, 96.351, 24.394, 0.88)
pt3dadd(98.248, 96.232, 24.408, 0.834)
pt3dadd(98.239, 96.114, 24.421, 0.786)
pt3dadd(98.23, 95.995, 24.435, 0.74)
pt3dadd(98.221, 95.877, 24.449, 0.694)
pt3dadd(98.213, 95.758, 24.462, 0.646)
pt3dadd(98.204, 95.639, 24.476, 0.6)
pt3dadd(98.218, 95.521, 24.488, 0.626)
pt3dadd(98.234, 95.403, 24.499, 0.656)
pt3dadd(98.25, 95.285, 24.511, 0.688)
pt3dadd(98.266, 95.167, 24.522, 0.72)
pt3dadd(98.282, 95.049, 24.534, 0.75)
pt3dadd(98.298, 94.931, 24.545, 0.782)
pt3dadd(98.314, 94.812, 24.557, 0.814)
pt3dadd(98.33, 94.694, 24.569, 0.846)
pt3dadd(98.346, 94.576, 24.58, 0.876)
pt3dadd(98.367, 94.461, 24.596, 0.892)
pt3dadd(98.408, 94.357, 24.633, 0.834)
pt3dadd(98.449, 94.253, 24.67, 0.774)
pt3dadd(98.49, 94.15, 24.707, 0.716)
pt3dadd(98.531, 94.046, 24.744, 0.658)
pt3dadd(98.572, 93.942, 24.781, 0.598)
pt3dadd(98.613, 93.839, 24.818, 0.54)
pt3dadd(98.654, 93.735, 24.855, 0.482)
pt3dadd(98.695, 93.631, 24.892, 0.422)
pt3dadd(98.736, 93.527, 24.929, 0.364)
pt3dadd(98.771, 93.421, 24.964, 0.326)
pt3dadd(98.792, 93.309, 24.995, 0.336)
pt3dadd(98.813, 93.197, 25.027, 0.348)
pt3dadd(98.834, 93.085, 25.058, 0.358)
pt3dadd(98.855, 92.973, 25.089, 0.37)
pt3dadd(98.876, 92.861, 25.121, 0.38)
pt3dadd(98.897, 92.749, 25.152, 0.39)
pt3dadd(98.918, 92.637, 25.184, 0.402)
pt3dadd(98.939, 92.525, 25.215, 0.412)
pt3dadd(98.96, 92.413, 25.246, 0.424)
pt3dadd(98.977, 92.299, 25.272, 0.432)
pt3dadd(98.986, 92.181, 25.288, 0.434)
pt3dadd(98.995, 92.063, 25.303, 0.436)
pt3dadd(99.004, 91.945, 25.319, 0.438)
pt3dadd(99.013, 91.826, 25.334, 0.44)
pt3dadd(99.022, 91.708, 25.349, 0.442)
pt3dadd(99.031, 91.59, 25.365, 0.444)
pt3dadd(99.04, 91.472, 25.38, 0.446)
pt3dadd(99.049, 91.353, 25.395, 0.448)
pt3dadd(99.058, 91.235, 25.411, 0.45)
pt3dadd(99.068, 91.117, 25.424, 0.452)
pt3dadd(99.081, 90.998, 25.432, 0.452)
pt3dadd(99.094, 90.879, 25.44, 0.452)
pt3dadd(99.107, 90.76, 25.448, 0.452)
pt3dadd(99.12, 90.641, 25.456, 0.452)
pt3dadd(99.134, 90.522, 25.464, 0.452)
pt3dadd(99.147, 90.404, 25.472, 0.452)
pt3dadd(99.16, 90.285, 25.481, 0.452)
pt3dadd(99.173, 90.166, 25.489, 0.452)
pt3dadd(99.186, 90.047, 25.497, 0.452)
pt3dadd(99.209, 89.931, 25.507, 0.444)
pt3dadd(99.252, 89.82, 25.519, 0.424)
pt3dadd(99.295, 89.708, 25.531, 0.402)
pt3dadd(99.338, 89.597, 25.543, 0.382)
pt3dadd(99.38, 89.486, 25.556, 0.36)
pt3dadd(99.423, 89.375, 25.568, 0.338)
pt3dadd(99.466, 89.264, 25.58, 0.318)
pt3dadd(99.509, 89.153, 25.593, 0.296)
pt3dadd(99.552, 89.042, 25.605, 0.276)
pt3dadd(99.594, 88.93, 25.617, 0.254)
pt3dadd(99.631, 88.82, 25.639, 0.24)
pt3dadd(99.657, 88.712, 25.676, 0.238)
pt3dadd(99.683, 88.604, 25.714, 0.238)
pt3dadd(99.709, 88.496, 25.751, 0.236)
pt3dadd(99.735, 88.388, 25.789, 0.234)
pt3dadd(99.761, 88.28, 25.826, 0.232)
pt3dadd(99.787, 88.171, 25.864, 0.232)
pt3dadd(99.813, 88.063, 25.902, 0.23)
pt3dadd(99.839, 87.955, 25.939, 0.228)
pt3dadd(99.865, 87.847, 25.977, 0.226)
pt3dadd(99.885, 87.737, 26.012, 0.242)
pt3dadd(99.896, 87.624, 26.045, 0.28)
pt3dadd(99.907, 87.511, 26.078, 0.318)
pt3dadd(99.918, 87.399, 26.111, 0.356)
pt3dadd(99.929, 87.286, 26.144, 0.394)
pt3dadd(99.94, 87.173, 26.177, 0.432)
pt3dadd(99.951, 87.06, 26.209, 0.47)
pt3dadd(99.962, 86.947, 26.242, 0.51)
pt3dadd(99.973, 86.835, 26.275, 0.548)
pt3dadd(99.984, 86.722, 26.308, 0.586)
pt3dadd(99.987, 86.608, 26.339, 0.596)
pt3dadd(99.98, 86.493, 26.365, 0.564)
pt3dadd(99.973, 86.377, 26.392, 0.534)
pt3dadd(99.966, 86.262, 26.418, 0.502)
pt3dadd(99.959, 86.146, 26.445, 0.47)
pt3dadd(99.952, 86.031, 26.472, 0.438)
pt3dadd(99.945, 85.915, 26.498, 0.408)
pt3dadd(99.937, 85.8, 26.525, 0.376)
pt3dadd(99.93, 85.684, 26.552, 0.344)
pt3dadd(99.923, 85.569, 26.578, 0.314)
pt3dadd(99.913, 85.457, 26.611, 0.3)
pt3dadd(99.898, 85.348, 26.652, 0.31)
pt3dadd(99.883, 85.24, 26.694, 0.322)
pt3dadd(99.868, 85.132, 26.735, 0.332)
pt3dadd(99.853, 85.023, 26.776, 0.344)
pt3dadd(99.838, 84.915, 26.817, 0.354)
pt3dadd(99.823, 84.807, 26.858, 0.364)
pt3dadd(99.808, 84.698, 26.9, 0.376)
pt3dadd(99.793, 84.59, 26.941, 0.386)
pt3dadd(99.779, 84.482, 26.982, 0.398)
pt3dadd(99.752, 84.376, 27.021, 0.426)
pt3dadd(99.711, 84.272, 27.059, 0.478)
pt3dadd(99.669, 84.169, 27.096, 0.53)
pt3dadd(99.628, 84.065, 27.133, 0.58)
pt3dadd(99.587, 83.962, 27.17, 0.632)
pt3dadd(99.546, 83.858, 27.207, 0.682)
pt3dadd(99.504, 83.755, 27.244, 0.734)
pt3dadd(99.463, 83.651, 27.281, 0.784)
pt3dadd(99.422, 83.548, 27.319, 0.836)
pt3dadd(99.381, 83.444, 27.356, 0.888)
pt3dadd(99.339, 83.343, 27.397, 0.91)
pt3dadd(99.298, 83.244, 27.442, 0.908)
pt3dadd(99.257, 83.145, 27.486, 0.906)
pt3dadd(99.215, 83.046, 27.531, 0.902)
pt3dadd(99.174, 82.947, 27.576, 0.9)
pt3dadd(99.133, 82.848, 27.621, 0.898)
pt3dadd(99.091, 82.749, 27.666, 0.896)
pt3dadd(99.05, 82.65, 27.71, 0.892)
pt3dadd(99.009, 82.551, 27.755, 0.89)
pt3dadd(98.967, 82.452, 27.8, 0.888)
pt3dadd(98.924, 82.353, 27.845, 0.866)
pt3dadd(98.88, 82.256, 27.889, 0.826)
pt3dadd(98.835, 82.158, 27.933, 0.788)
pt3dadd(98.79, 82.06, 27.978, 0.748)
pt3dadd(98.746, 81.962, 28.023, 0.71)
pt3dadd(98.701, 81.865, 28.067, 0.672)
pt3dadd(98.657, 81.767, 28.111, 0.632)
pt3dadd(98.612, 81.669, 28.156, 0.594)
pt3dadd(98.568, 81.571, 28.201, 0.556)
pt3dadd(98.523, 81.474, 28.245, 0.516)
pt3dadd(98.477, 81.376, 28.288, 0.498)
pt3dadd(98.429, 81.278, 28.331, 0.494)
pt3dadd(98.382, 81.18, 28.373, 0.488)
pt3dadd(98.335, 81.082, 28.416, 0.484)
pt3dadd(98.288, 80.984, 28.458, 0.478)
pt3dadd(98.24, 80.886, 28.5, 0.474)
pt3dadd(98.193, 80.789, 28.543, 0.468)
pt3dadd(98.146, 80.691, 28.585, 0.462)
pt3dadd(98.099, 80.593, 28.628, 0.458)
pt3dadd(98.052, 80.495, 28.67, 0.452)
pt3dadd(98.016, 80.399, 28.721, 0.492)
pt3dadd(97.986, 80.303, 28.776, 0.554)
pt3dadd(97.956, 80.208, 28.831, 0.614)
pt3dadd(97.926, 80.112, 28.886, 0.674)
pt3dadd(97.895, 80.017, 28.942, 0.736)
pt3dadd(97.865, 79.921, 28.997, 0.796)
pt3dadd(97.835, 79.826, 29.052, 0.856)
pt3dadd(97.805, 79.73, 29.107, 0.918)
pt3dadd(97.775, 79.635, 29.162, 0.978)
pt3dadd(97.745, 79.539, 29.217, 1.038)
pt3dadd(97.72, 79.445, 29.276, 1.018)
pt3dadd(97.698, 79.353, 29.336, 0.958)
pt3dadd(97.675, 79.26, 29.397, 0.9)
pt3dadd(97.653, 79.167, 29.457, 0.842)
}
}
proc shape3d_167() {
dend_7[36] { pt3dadd(97.631, 79.074, 29.518, 0.782)
pt3dadd(97.608, 78.981, 29.578, 0.724)
pt3dadd(97.586, 78.888, 29.639, 0.664)
pt3dadd(97.564, 78.795, 29.699, 0.606)
pt3dadd(97.541, 78.702, 29.76, 0.548)
pt3dadd(97.519, 78.609, 29.82, 0.488)
pt3dadd(97.483, 78.513, 29.871, 0.498)
pt3dadd(97.44, 78.415, 29.917, 0.538)
pt3dadd(97.397, 78.318, 29.962, 0.578)
pt3dadd(97.354, 78.22, 30.008, 0.618)
pt3dadd(97.312, 78.122, 30.054, 0.66)
pt3dadd(97.269, 78.025, 30.1, 0.7)
pt3dadd(97.226, 77.927, 30.146, 0.74)
pt3dadd(97.183, 77.829, 30.192, 0.78)
pt3dadd(97.141, 77.732, 30.238, 0.82)
pt3dadd(97.098, 77.634, 30.284, 0.86)
pt3dadd(97.063, 77.542, 30.34, 0.854)
pt3dadd(97.032, 77.452, 30.402, 0.828)
pt3dadd(97.002, 77.363, 30.463, 0.802)
pt3dadd(96.971, 77.273, 30.524, 0.774)
pt3dadd(96.94, 77.183, 30.586, 0.748)
pt3dadd(96.909, 77.094, 30.647, 0.72)
pt3dadd(96.878, 77.004, 30.708, 0.694)
pt3dadd(96.847, 76.914, 30.769, 0.668)
pt3dadd(96.816, 76.825, 30.831, 0.64)
pt3dadd(96.786, 76.735, 30.892, 0.614)
pt3dadd(96.777, 76.628, 30.934, 0.578)
pt3dadd(96.774, 76.517, 30.971, 0.54)
pt3dadd(96.771, 76.405, 31.008, 0.502)
pt3dadd(96.769, 76.294, 31.044, 0.462)
pt3dadd(96.766, 76.182, 31.081, 0.424)
pt3dadd(96.763, 76.07, 31.118, 0.386)
pt3dadd(96.761, 75.959, 31.155, 0.348)
pt3dadd(96.758, 75.847, 31.191, 0.31)
pt3dadd(96.756, 75.736, 31.228, 0.27)
pt3dadd(96.753, 75.624, 31.265, 0.232)
pt3dadd(96.765, 75.513, 31.301, 0.226)
pt3dadd(96.781, 75.402, 31.336, 0.226)
pt3dadd(96.796, 75.291, 31.372, 0.226)
pt3dadd(96.812, 75.18, 31.407, 0.226)
pt3dadd(96.827, 75.069, 31.443, 0.226)
pt3dadd(96.842, 74.957, 31.478, 0.226)
pt3dadd(96.858, 74.846, 31.514, 0.226)
pt3dadd(96.873, 74.735, 31.549, 0.226)
pt3dadd(96.889, 74.624, 31.585, 0.226)
pt3dadd(96.904, 74.513, 31.62, 0.226)
pt3dadd(96.936, 74.408, 31.66, 0.226)
pt3dadd(96.971, 74.304, 31.7, 0.226)
pt3dadd(97.005, 74.199, 31.741, 0.226)
pt3dadd(97.04, 74.095, 31.781, 0.226)
pt3dadd(97.074, 73.991, 31.821, 0.226)
pt3dadd(97.109, 73.887, 31.861, 0.226)
pt3dadd(97.144, 73.782, 31.902, 0.226)
pt3dadd(97.178, 73.678, 31.942, 0.226)
pt3dadd(97.213, 73.574, 31.982, 0.226)
pt3dadd(97.248, 73.47, 32.022, 0.226)
pt3dadd(97.303, 73.374, 32.061, 0.226)
pt3dadd(97.358, 73.278, 32.1, 0.226)
pt3dadd(97.413, 73.182, 32.138, 0.226)
pt3dadd(97.468, 73.086, 32.177, 0.226)
pt3dadd(97.523, 72.99, 32.216, 0.226)
pt3dadd(97.578, 72.894, 32.254, 0.226)
pt3dadd(97.633, 72.798, 32.293, 0.226)
pt3dadd(97.688, 72.702, 32.332, 0.226)
pt3dadd(97.743, 72.606, 32.37, 0.226)
pt3dadd(97.799, 72.51, 32.409, 0.226)
pt3dadd(97.862, 72.424, 32.455, 0.232)
pt3dadd(97.926, 72.338, 32.5, 0.238)
pt3dadd(97.989, 72.252, 32.545, 0.244)
pt3dadd(98.053, 72.166, 32.59, 0.252)
pt3dadd(98.116, 72.079, 32.635, 0.258)
pt3dadd(98.18, 71.993, 32.681, 0.264)
pt3dadd(98.244, 71.907, 32.726, 0.27)
pt3dadd(98.307, 71.821, 32.771, 0.276)
pt3dadd(98.371, 71.735, 32.816, 0.282)
pt3dadd(98.441, 71.653, 32.858, 0.29)
pt3dadd(98.534, 71.587, 32.887, 0.298)
pt3dadd(98.628, 71.521, 32.916, 0.308)
pt3dadd(98.722, 71.455, 32.946, 0.318)
pt3dadd(98.816, 71.389, 32.975, 0.328)
pt3dadd(98.91, 71.322, 33.004, 0.338)
pt3dadd(99.003, 71.256, 33.033, 0.348)
pt3dadd(99.097, 71.19, 33.063, 0.358)
pt3dadd(99.191, 71.124, 33.092, 0.368)
pt3dadd(99.285, 71.058, 33.121, 0.376)
pt3dadd(99.38, 70.993, 33.149, 0.38)
pt3dadd(99.477, 70.929, 33.174, 0.364)
pt3dadd(99.574, 70.866, 33.199, 0.348)
pt3dadd(99.672, 70.802, 33.224, 0.332)
pt3dadd(99.769, 70.739, 33.249, 0.318)
pt3dadd(99.867, 70.676, 33.273, 0.302)
pt3dadd(99.964, 70.612, 33.298, 0.286)
pt3dadd(100.062, 70.549, 33.323, 0.27)
pt3dadd(100.159, 70.485, 33.348, 0.254)
pt3dadd(100.256, 70.422, 33.373, 0.238)
pt3dadd(100.355, 70.362, 33.4, 0.228)
pt3dadd(100.455, 70.311, 33.434, 0.234)
pt3dadd(100.556, 70.26, 33.468, 0.242)
pt3dadd(100.657, 70.209, 33.502, 0.248)
pt3dadd(100.757, 70.158, 33.536, 0.256)
pt3dadd(100.858, 70.106, 33.57, 0.262)
pt3dadd(100.959, 70.055, 33.604, 0.27)
pt3dadd(101.059, 70.004, 33.638, 0.276)
pt3dadd(101.16, 69.953, 33.671, 0.282)
pt3dadd(101.261, 69.902, 33.705, 0.29)
pt3dadd(101.359, 69.845, 33.736, 0.312)
pt3dadd(101.453, 69.776, 33.758, 0.368)
pt3dadd(101.547, 69.706, 33.78, 0.424)
pt3dadd(101.642, 69.637, 33.802, 0.482)
pt3dadd(101.736, 69.567, 33.825, 0.538)
pt3dadd(101.83, 69.498, 33.847, 0.594)
pt3dadd(101.924, 69.428, 33.869, 0.65)
pt3dadd(102.018, 69.359, 33.892, 0.706)
pt3dadd(102.112, 69.289, 33.914, 0.764)
pt3dadd(102.206, 69.22, 33.936, 0.82)
pt3dadd(102.299, 69.148, 33.956, 0.854)
pt3dadd(102.39, 69.072, 33.972, 0.842)
pt3dadd(102.481, 68.995, 33.987, 0.83)
pt3dadd(102.571, 68.919, 34.002, 0.818)
pt3dadd(102.662, 68.843, 34.018, 0.806)
pt3dadd(102.753, 68.766, 34.033, 0.792)
pt3dadd(102.843, 68.69, 34.049, 0.78)
pt3dadd(102.934, 68.613, 34.064, 0.768)
pt3dadd(103.025, 68.537, 34.079, 0.756)
pt3dadd(103.115, 68.46, 34.095, 0.744)
pt3dadd(103.205, 68.383, 34.109, 0.732)
pt3dadd(103.292, 68.301, 34.121, 0.728)
pt3dadd(103.379, 68.22, 34.132, 0.722)
pt3dadd(103.466, 68.138, 34.144, 0.716)
pt3dadd(103.553, 68.057, 34.156, 0.71)
pt3dadd(103.64, 67.976, 34.168, 0.704)
pt3dadd(103.727, 67.894, 34.179, 0.698)
pt3dadd(103.814, 67.813, 34.191, 0.694)
pt3dadd(103.901, 67.731, 34.203, 0.688)
pt3dadd(103.988, 67.65, 34.215, 0.682)
pt3dadd(104.076, 67.571, 34.23, 0.678)
pt3dadd(104.165, 67.495, 34.254, 0.678)
pt3dadd(104.253, 67.42, 34.278, 0.678)
pt3dadd(104.342, 67.344, 34.302, 0.678)
pt3dadd(104.431, 67.269, 34.326, 0.678)
pt3dadd(104.52, 67.193, 34.35, 0.678)
pt3dadd(104.608, 67.118, 34.374, 0.678)
pt3dadd(104.697, 67.042, 34.398, 0.678)
pt3dadd(104.786, 66.967, 34.422, 0.678)
pt3dadd(104.875, 66.892, 34.446, 0.678)
pt3dadd(104.959, 66.815, 34.476, 0.674)
pt3dadd(105.039, 66.738, 34.514, 0.664)
pt3dadd(105.119, 66.66, 34.551, 0.654)
pt3dadd(105.199, 66.583, 34.588, 0.644)
pt3dadd(105.279, 66.505, 34.626, 0.634)
pt3dadd(105.359, 66.428, 34.663, 0.624)
pt3dadd(105.439, 66.35, 34.7, 0.614)
pt3dadd(105.519, 66.273, 34.738, 0.604)
pt3dadd(105.599, 66.195, 34.775, 0.594)
pt3dadd(105.678, 66.117, 34.812, 0.584)
pt3dadd(105.747, 66.028, 34.844, 0.58)
pt3dadd(105.809, 65.931, 34.873, 0.576)
pt3dadd(105.87, 65.834, 34.902, 0.574)
pt3dadd(105.932, 65.737, 34.93, 0.572)
pt3dadd(105.993, 65.64, 34.958, 0.57)
pt3dadd(106.055, 65.542, 34.987, 0.568)
pt3dadd(106.117, 65.445, 35.016, 0.564)
pt3dadd(106.178, 65.348, 35.044, 0.562)
pt3dadd(106.24, 65.251, 35.073, 0.56)
pt3dadd(106.301, 65.154, 35.101, 0.558)
pt3dadd(106.355, 65.053, 35.13, 0.564)
pt3dadd(106.405, 64.95, 35.16, 0.576)
pt3dadd(106.455, 64.846, 35.19, 0.588)
pt3dadd(106.504, 64.743, 35.22, 0.602)
pt3dadd(106.554, 64.64, 35.249, 0.614)
pt3dadd(106.604, 64.536, 35.279, 0.626)
pt3dadd(106.653, 64.433, 35.309, 0.638)
pt3dadd(106.703, 64.33, 35.339, 0.65)
pt3dadd(106.753, 64.227, 35.368, 0.662)
pt3dadd(106.802, 64.123, 35.398, 0.674)
pt3dadd(106.84, 64.017, 35.431, 0.678)
pt3dadd(106.872, 63.909, 35.466, 0.678)
pt3dadd(106.904, 63.801, 35.501, 0.678)
pt3dadd(106.936, 63.694, 35.536, 0.678)
pt3dadd(106.968, 63.586, 35.571, 0.678)
pt3dadd(107.001, 63.478, 35.606, 0.678)
pt3dadd(107.033, 63.371, 35.641, 0.678)
pt3dadd(107.065, 63.263, 35.676, 0.678)
pt3dadd(107.097, 63.155, 35.711, 0.678)
pt3dadd(107.13, 63.047, 35.745, 0.678)
pt3dadd(107.163, 62.938, 35.774, 0.668)
pt3dadd(107.198, 62.827, 35.801, 0.654)
pt3dadd(107.233, 62.717, 35.828, 0.642)
pt3dadd(107.267, 62.607, 35.855, 0.628)
pt3dadd(107.302, 62.496, 35.882, 0.614)
pt3dadd(107.336, 62.386, 35.908, 0.6)
pt3dadd(107.371, 62.276, 35.935, 0.588)
pt3dadd(107.406, 62.165, 35.962, 0.574)
pt3dadd(107.44, 62.055, 35.989, 0.56)
pt3dadd(107.475, 61.945, 36.015, 0.546)
pt3dadd(107.518, 61.837, 36.04, 0.526)
pt3dadd(107.564, 61.73, 36.065, 0.506)
pt3dadd(107.609, 61.623, 36.089, 0.484)
pt3dadd(107.655, 61.516, 36.113, 0.462)
pt3dadd(107.7, 61.409, 36.138, 0.44)
}
}
proc shape3d_168() {
dend_7[36] { pt3dadd(107.746, 61.302, 36.162, 0.418)
pt3dadd(107.792, 61.195, 36.187, 0.396)
pt3dadd(107.837, 61.088, 36.211, 0.374)
pt3dadd(107.883, 60.981, 36.235, 0.352)
pt3dadd(107.929, 60.873, 36.26, 0.33)
pt3dadd(107.968, 60.767, 36.292, 0.358)
pt3dadd(108.005, 60.66, 36.326, 0.396)
pt3dadd(108.042, 60.554, 36.36, 0.434)
pt3dadd(108.08, 60.448, 36.394, 0.472)
pt3dadd(108.117, 60.341, 36.428, 0.512)
pt3dadd(108.154, 60.235, 36.462, 0.55)
pt3dadd(108.192, 60.128, 36.496, 0.588)
pt3dadd(108.229, 60.022, 36.531, 0.626)
pt3dadd(108.267, 59.915, 36.565, 0.666)
pt3dadd(108.304, 59.809, 36.599, 0.704)
pt3dadd(108.347, 59.701, 36.623, 0.73)
pt3dadd(108.392, 59.593, 36.646, 0.752)
pt3dadd(108.436, 59.485, 36.669, 0.776)
pt3dadd(108.48, 59.377, 36.692, 0.798)
pt3dadd(108.525, 59.269, 36.714, 0.822)
pt3dadd(108.569, 59.161, 36.737, 0.844)
pt3dadd(108.614, 59.053, 36.76, 0.868)
pt3dadd(108.658, 58.944, 36.782, 0.89)
pt3dadd(108.703, 58.836, 36.805, 0.914)
pt3dadd(108.747, 58.728, 36.828, 0.936)
pt3dadd(108.762, 58.611, 36.842, 0.972)
pt3dadd(108.772, 58.493, 36.856, 1.008)
pt3dadd(108.782, 58.374, 36.869, 1.046)
pt3dadd(108.792, 58.256, 36.882, 1.084)
pt3dadd(108.802, 58.137, 36.896, 1.122)
pt3dadd(108.812, 58.019, 36.909, 1.158)
pt3dadd(108.822, 57.9, 36.922, 1.196)
pt3dadd(108.831, 57.782, 36.936, 1.234)
pt3dadd(108.841, 57.663, 36.949, 1.272)
pt3dadd(108.851, 57.545, 36.962, 1.308)
pt3dadd(108.82, 57.43, 36.97, 1.27)
pt3dadd(108.786, 57.315, 36.977, 1.224)
pt3dadd(108.751, 57.201, 36.985, 1.18)
pt3dadd(108.717, 57.086, 36.992, 1.134)
pt3dadd(108.682, 56.971, 37, 1.09)
pt3dadd(108.648, 56.857, 37.007, 1.046)
pt3dadd(108.613, 56.742, 37.015, 1)
pt3dadd(108.579, 56.628, 37.022, 0.956)
pt3dadd(108.544, 56.513, 37.03, 0.91)
pt3dadd(108.51, 56.398, 37.037, 0.866)
pt3dadd(108.479, 56.284, 37.051, 0.822)
pt3dadd(108.449, 56.169, 37.065, 0.78)
pt3dadd(108.418, 56.054, 37.079, 0.736)
pt3dadd(108.387, 55.939, 37.093, 0.692)
pt3dadd(108.357, 55.824, 37.108, 0.65)
pt3dadd(108.326, 55.71, 37.122, 0.606)
pt3dadd(108.296, 55.595, 37.136, 0.564)
pt3dadd(108.265, 55.48, 37.15, 0.52)
pt3dadd(108.234, 55.365, 37.164, 0.478)
pt3dadd(108.204, 55.251, 37.179, 0.434)
pt3dadd(108.184, 55.141, 37.215, 0.414)
pt3dadd(108.165, 55.031, 37.253, 0.394)
pt3dadd(108.145, 54.922, 37.291, 0.374)
pt3dadd(108.126, 54.812, 37.328, 0.354)
pt3dadd(108.106, 54.703, 37.366, 0.334)
pt3dadd(108.087, 54.593, 37.403, 0.314)
pt3dadd(108.067, 54.484, 37.441, 0.294)
pt3dadd(108.048, 54.374, 37.478, 0.274)
pt3dadd(108.028, 54.265, 37.516, 0.254)
pt3dadd(108.009, 54.155, 37.554, 0.234)
pt3dadd(107.995, 54.041, 37.58, 0.256)
pt3dadd(107.981, 53.926, 37.607, 0.28)
pt3dadd(107.968, 53.811, 37.633, 0.302)
pt3dadd(107.954, 53.696, 37.66, 0.326)
pt3dadd(107.94, 53.581, 37.686, 0.348)
pt3dadd(107.927, 53.466, 37.713, 0.372)
pt3dadd(107.913, 53.351, 37.739, 0.396)
pt3dadd(107.899, 53.236, 37.766, 0.418)
pt3dadd(107.886, 53.121, 37.792, 0.442)
pt3dadd(107.872, 53.007, 37.819, 0.466)
pt3dadd(107.829, 52.896, 37.836, 0.508)
pt3dadd(107.786, 52.786, 37.854, 0.55)
pt3dadd(107.743, 52.676, 37.871, 0.594)
pt3dadd(107.7, 52.566, 37.888, 0.638)
pt3dadd(107.657, 52.456, 37.906, 0.68)
pt3dadd(107.614, 52.346, 37.923, 0.724)
pt3dadd(107.571, 52.236, 37.94, 0.768)
pt3dadd(107.528, 52.126, 37.958, 0.81)
pt3dadd(107.485, 52.016, 37.975, 0.854)
pt3dadd(107.442, 51.906, 37.993, 0.896)
pt3dadd(107.415, 51.79, 38.006, 0.832)
pt3dadd(107.388, 51.674, 38.019, 0.766)
pt3dadd(107.362, 51.558, 38.032, 0.698)
pt3dadd(107.335, 51.442, 38.045, 0.632)
pt3dadd(107.309, 51.326, 38.058, 0.564)
pt3dadd(107.282, 51.21, 38.071, 0.498)
pt3dadd(107.256, 51.094, 38.084, 0.432)
pt3dadd(107.229, 50.978, 38.097, 0.364)
pt3dadd(107.203, 50.862, 38.11, 0.298)
pt3dadd(107.176, 50.746, 38.123, 0.23)
pt3dadd(107.169, 50.636, 38.162, 0.25)
pt3dadd(107.163, 50.526, 38.202, 0.272)
pt3dadd(107.156, 50.417, 38.242, 0.292)
pt3dadd(107.15, 50.307, 38.282, 0.314)
pt3dadd(107.143, 50.197, 38.322, 0.336)
pt3dadd(107.137, 50.087, 38.362, 0.356)
pt3dadd(107.13, 49.977, 38.402, 0.378)
pt3dadd(107.124, 49.868, 38.442, 0.398)
pt3dadd(107.117, 49.758, 38.482, 0.42)
pt3dadd(107.111, 49.648, 38.521, 0.44)
pt3dadd(107.119, 49.535, 38.554, 0.484)
pt3dadd(107.128, 49.421, 38.586, 0.528)
pt3dadd(107.137, 49.308, 38.618, 0.572)
pt3dadd(107.145, 49.195, 38.65, 0.616)
pt3dadd(107.154, 49.081, 38.682, 0.66)
pt3dadd(107.163, 48.968, 38.715, 0.704)
pt3dadd(107.171, 48.855, 38.747, 0.748)
pt3dadd(107.18, 48.741, 38.779, 0.794)
pt3dadd(107.188, 48.628, 38.811, 0.838)
pt3dadd(107.197, 48.515, 38.843, 0.882)
pt3dadd(107.232, 48.404, 38.868, 0.82)
pt3dadd(107.266, 48.293, 38.892, 0.758)
pt3dadd(107.301, 48.182, 38.917, 0.698)
pt3dadd(107.336, 48.071, 38.942, 0.636)
pt3dadd(107.37, 47.96, 38.966, 0.574)
pt3dadd(107.405, 47.849, 38.991, 0.512)
pt3dadd(107.44, 47.738, 39.015, 0.45)
pt3dadd(107.475, 47.627, 39.04, 0.388)
pt3dadd(107.509, 47.516, 39.065, 0.328)
pt3dadd(107.544, 47.405, 39.089, 0.266)
pt3dadd(107.557, 47.298, 39.133, 0.326)
pt3dadd(107.571, 47.191, 39.177, 0.386)
pt3dadd(107.584, 47.084, 39.22, 0.446)
pt3dadd(107.597, 46.976, 39.264, 0.506)
pt3dadd(107.61, 46.869, 39.308, 0.566)
pt3dadd(107.623, 46.762, 39.352, 0.626)
pt3dadd(107.637, 46.655, 39.395, 0.686)
pt3dadd(107.65, 46.548, 39.439, 0.746)
pt3dadd(107.663, 46.441, 39.483, 0.806)
pt3dadd(107.675, 46.334, 39.526, 0.866)
pt3dadd(107.635, 46.229, 39.562, 0.914)
pt3dadd(107.595, 46.125, 39.598, 0.962)
pt3dadd(107.555, 46.02, 39.634, 1.01)
pt3dadd(107.516, 45.915, 39.67, 1.058)
pt3dadd(107.476, 45.81, 39.706, 1.106)
pt3dadd(107.436, 45.706, 39.742, 1.154)
pt3dadd(107.396, 45.601, 39.778, 1.202)
pt3dadd(107.356, 45.497, 39.814, 1.25)
pt3dadd(107.316, 45.392, 39.85, 1.3)
pt3dadd(107.275, 45.289, 39.887, 1.338)
pt3dadd(107.22, 45.203, 39.94, 1.27)
pt3dadd(107.165, 45.117, 39.992, 1.202)
pt3dadd(107.11, 45.031, 40.045, 1.136)
pt3dadd(107.055, 44.945, 40.098, 1.068)
pt3dadd(107, 44.859, 40.15, 1)
pt3dadd(106.944, 44.773, 40.203, 0.934)
pt3dadd(106.889, 44.688, 40.255, 0.866)
pt3dadd(106.834, 44.602, 40.308, 0.798)
pt3dadd(106.779, 44.516, 40.361, 0.732)
pt3dadd(106.723, 44.427, 40.406, 0.674)
pt3dadd(106.663, 44.324, 40.422, 0.656)
pt3dadd(106.604, 44.222, 40.439, 0.638)
pt3dadd(106.544, 44.12, 40.455, 0.62)
pt3dadd(106.484, 44.018, 40.472, 0.602)
pt3dadd(106.424, 43.916, 40.488, 0.584)
pt3dadd(106.365, 43.814, 40.504, 0.566)
pt3dadd(106.305, 43.711, 40.521, 0.548)
pt3dadd(106.245, 43.609, 40.537, 0.53)
pt3dadd(106.185, 43.507, 40.554, 0.512)
pt3dadd(106.138, 43.4, 40.561, 0.506)
pt3dadd(106.111, 43.283, 40.551, 0.528)
pt3dadd(106.085, 43.167, 40.541, 0.546)
pt3dadd(106.059, 43.05, 40.531, 0.566)
pt3dadd(106.032, 42.934, 40.522, 0.586)
pt3dadd(106.006, 42.817, 40.512, 0.606)
pt3dadd(105.979, 42.701, 40.502, 0.626)
pt3dadd(105.953, 42.584, 40.492, 0.646)
pt3dadd(105.927, 42.468, 40.483, 0.666)
pt3dadd(105.9, 42.351, 40.473, 0.686)
pt3dadd(105.884, 42.25, 40.435, 0.728)
pt3dadd(105.879, 42.167, 40.363, 0.798)
pt3dadd(105.875, 42.085, 40.29, 0.868)
pt3dadd(105.871, 42.002, 40.218, 0.938)
pt3dadd(105.867, 41.919, 40.146, 1.008)
pt3dadd(105.863, 41.837, 40.073, 1.078)
pt3dadd(105.859, 41.754, 40.001, 1.146)
pt3dadd(105.854, 41.671, 39.928, 1.216)
pt3dadd(105.85, 41.589, 39.856, 1.286)
pt3dadd(105.846, 41.506, 39.784, 1.356)
}
dend_0[14] {pt3dclear()
pt3dstyle(1, 94.059, 105.973, 12.877)
pt3dadd(93.948, 105.926, 12.877, 13.558)
pt3dadd(93.838, 105.879, 12.876, 13.42)
pt3dadd(93.727, 105.832, 12.876, 13.284)
pt3dadd(93.617, 105.786, 12.876, 13.146)
pt3dadd(93.506, 105.739, 12.876, 13.01)
pt3dadd(93.396, 105.692, 12.875, 12.874)
pt3dadd(93.285, 105.645, 12.875, 12.736)
pt3dadd(93.183, 105.583, 12.875, 12.548)
pt3dadd(93.083, 105.517, 12.875, 12.348)
pt3dadd(92.982, 105.451, 12.874, 12.148)
pt3dadd(92.882, 105.385, 12.874, 11.948)
pt3dadd(92.782, 105.32, 12.874, 11.748)
pt3dadd(92.681, 105.254, 12.873, 11.548)
pt3dadd(92.581, 105.188, 12.873, 11.348)
pt3dadd(92.481, 105.122, 12.873, 11.148)
}
}
proc shape3d_169() {
dend_0[14] { pt3dadd(92.38, 105.056, 12.873, 10.95)
pt3dadd(92.28, 104.991, 12.872, 10.75)
pt3dadd(92.187, 104.914, 12.872, 10.55)
pt3dadd(92.096, 104.837, 12.871, 10.35)
pt3dadd(92.004, 104.759, 12.871, 10.15)
pt3dadd(91.913, 104.681, 12.87, 9.95)
pt3dadd(91.821, 104.604, 12.87, 9.75)
pt3dadd(91.73, 104.526, 12.869, 9.55)
pt3dadd(91.638, 104.448, 12.869, 9.352)
pt3dadd(91.547, 104.371, 12.868, 9.152)
pt3dadd(91.455, 104.293, 12.868, 8.952)
pt3dadd(91.364, 104.215, 12.868, 8.752)
pt3dadd(91.276, 104.133, 12.867, 8.554)
pt3dadd(91.189, 104.051, 12.866, 8.356)
pt3dadd(91.102, 103.968, 12.865, 8.158)
pt3dadd(91.015, 103.885, 12.864, 7.962)
pt3dadd(90.928, 103.803, 12.863, 7.764)
pt3dadd(90.841, 103.72, 12.863, 7.566)
pt3dadd(90.754, 103.638, 12.862, 7.368)
pt3dadd(90.667, 103.555, 12.861, 7.17)
pt3dadd(90.58, 103.472, 12.86, 6.972)
pt3dadd(90.493, 103.39, 12.859, 6.776)
pt3dadd(90.409, 103.305, 12.858, 6.578)
pt3dadd(90.325, 103.219, 12.857, 6.38)
pt3dadd(90.24, 103.133, 12.856, 6.182)
pt3dadd(90.156, 103.048, 12.854, 5.984)
pt3dadd(90.072, 102.962, 12.853, 5.786)
pt3dadd(89.988, 102.877, 12.852, 5.588)
pt3dadd(89.904, 102.791, 12.851, 5.39)
pt3dadd(89.82, 102.706, 12.849, 5.192)
pt3dadd(89.736, 102.62, 12.848, 4.996)
pt3dadd(89.652, 102.534, 12.847, 4.798)
pt3dadd(89.568, 102.448, 12.845, 4.624)
pt3dadd(89.485, 102.362, 12.842, 4.454)
pt3dadd(89.401, 102.276, 12.84, 4.286)
pt3dadd(89.318, 102.19, 12.838, 4.116)
pt3dadd(89.234, 102.104, 12.835, 3.946)
pt3dadd(89.151, 102.018, 12.833, 3.776)
}
dend_7[37] {pt3dclear()
pt3dadd(89.151, 102.018, 12.833, 3.776)
pt3dadd(89.067, 101.931, 12.831, 3.608)
pt3dadd(88.984, 101.845, 12.828, 3.438)
pt3dadd(88.9, 101.759, 12.826, 3.268)
pt3dadd(88.817, 101.673, 12.824, 3.098)
pt3dadd(88.735, 101.585, 12.819, 2.998)
pt3dadd(88.653, 101.498, 12.814, 2.908)
pt3dadd(88.571, 101.41, 12.809, 2.816)
pt3dadd(88.49, 101.322, 12.804, 2.724)
pt3dadd(88.408, 101.235, 12.799, 2.634)
pt3dadd(88.326, 101.147, 12.794, 2.542)
pt3dadd(88.245, 101.06, 12.789, 2.45)
pt3dadd(88.163, 100.972, 12.784, 2.36)
pt3dadd(88.081, 100.884, 12.779, 2.268)
pt3dadd(87.999, 100.797, 12.774, 2.178)
pt3dadd(87.919, 100.708, 12.766, 2.12)
pt3dadd(87.839, 100.619, 12.758, 2.066)
pt3dadd(87.759, 100.53, 12.75, 2.014)
pt3dadd(87.68, 100.44, 12.742, 1.96)
pt3dadd(87.6, 100.351, 12.734, 1.906)
pt3dadd(87.52, 100.262, 12.726, 1.854)
pt3dadd(87.44, 100.173, 12.718, 1.8)
pt3dadd(87.36, 100.084, 12.71, 1.746)
pt3dadd(87.28, 99.995, 12.702, 1.694)
pt3dadd(87.201, 99.906, 12.694, 1.64)
pt3dadd(87.126, 99.814, 12.679, 1.612)
pt3dadd(87.053, 99.721, 12.663, 1.59)
pt3dadd(86.979, 99.628, 12.646, 1.566)
pt3dadd(86.906, 99.535, 12.63, 1.542)
pt3dadd(86.832, 99.443, 12.613, 1.518)
pt3dadd(86.759, 99.35, 12.597, 1.496)
pt3dadd(86.685, 99.257, 12.58, 1.472)
pt3dadd(86.612, 99.164, 12.564, 1.448)
pt3dadd(86.538, 99.072, 12.547, 1.424)
pt3dadd(86.465, 98.979, 12.531, 1.402)
pt3dadd(86.41, 98.881, 12.495, 1.42)
pt3dadd(86.355, 98.784, 12.459, 1.44)
pt3dadd(86.3, 98.686, 12.423, 1.46)
pt3dadd(86.246, 98.589, 12.387, 1.48)
pt3dadd(86.191, 98.491, 12.35, 1.5)
pt3dadd(86.136, 98.393, 12.314, 1.52)
pt3dadd(86.081, 98.296, 12.278, 1.54)
pt3dadd(86.027, 98.198, 12.242, 1.56)
pt3dadd(85.972, 98.101, 12.206, 1.58)
pt3dadd(85.917, 98.003, 12.17, 1.6)
pt3dadd(85.852, 97.909, 12.141, 1.62)
pt3dadd(85.786, 97.814, 12.112, 1.64)
pt3dadd(85.72, 97.72, 12.084, 1.66)
pt3dadd(85.655, 97.625, 12.055, 1.68)
pt3dadd(85.589, 97.531, 12.026, 1.702)
pt3dadd(85.523, 97.437, 11.998, 1.722)
pt3dadd(85.458, 97.342, 11.969, 1.742)
pt3dadd(85.392, 97.248, 11.94, 1.762)
pt3dadd(85.327, 97.154, 11.912, 1.782)
pt3dadd(85.261, 97.059, 11.883, 1.802)
pt3dadd(85.203, 96.959, 11.857, 1.87)
pt3dadd(85.146, 96.858, 11.832, 1.94)
pt3dadd(85.088, 96.757, 11.806, 2.008)
pt3dadd(85.03, 96.657, 11.78, 2.076)
pt3dadd(84.972, 96.556, 11.754, 2.144)
pt3dadd(84.915, 96.456, 11.729, 2.212)
pt3dadd(84.857, 96.355, 11.703, 2.282)
pt3dadd(84.799, 96.254, 11.677, 2.35)
pt3dadd(84.742, 96.154, 11.652, 2.418)
pt3dadd(84.684, 96.053, 11.626, 2.486)
}
dend_7[38] {pt3dclear()
pt3dadd(84.684, 96.053, 11.626, 2.486)
pt3dadd(84.623, 96.011, 11.593, 2.422)
pt3dadd(84.536, 95.95, 11.547, 2.33)
pt3dadd(84.448, 95.889, 11.5, 2.238)
pt3dadd(84.361, 95.828, 11.454, 2.148)
pt3dadd(84.274, 95.768, 11.407, 2.056)
pt3dadd(84.185, 95.705, 11.366, 1.986)
pt3dadd(84.094, 95.642, 11.326, 1.918)
pt3dadd(84.004, 95.579, 11.286, 1.852)
pt3dadd(83.914, 95.516, 11.246, 1.784)
pt3dadd(83.824, 95.453, 11.206, 1.718)
pt3dadd(83.734, 95.389, 11.166, 1.652)
pt3dadd(83.644, 95.326, 11.126, 1.584)
pt3dadd(83.554, 95.263, 11.086, 1.518)
pt3dadd(83.464, 95.2, 11.046, 1.45)
pt3dadd(83.374, 95.137, 11.005, 1.384)
pt3dadd(83.28, 95.079, 10.967, 1.362)
pt3dadd(83.185, 95.022, 10.928, 1.344)
pt3dadd(83.09, 94.965, 10.89, 1.328)
pt3dadd(82.995, 94.908, 10.851, 1.312)
pt3dadd(82.901, 94.85, 10.813, 1.294)
pt3dadd(82.806, 94.793, 10.775, 1.278)
pt3dadd(82.711, 94.736, 10.736, 1.26)
pt3dadd(82.616, 94.679, 10.698, 1.244)
pt3dadd(82.521, 94.622, 10.659, 1.228)
pt3dadd(82.426, 94.564, 10.621, 1.21)
pt3dadd(82.329, 94.513, 10.58, 1.21)
pt3dadd(82.232, 94.463, 10.539, 1.208)
pt3dadd(82.135, 94.412, 10.498, 1.208)
pt3dadd(82.038, 94.362, 10.457, 1.208)
pt3dadd(81.941, 94.311, 10.416, 1.208)
pt3dadd(81.844, 94.26, 10.375, 1.206)
pt3dadd(81.747, 94.21, 10.333, 1.206)
pt3dadd(81.65, 94.159, 10.292, 1.206)
pt3dadd(81.553, 94.109, 10.251, 1.206)
pt3dadd(81.456, 94.058, 10.21, 1.206)
pt3dadd(81.362, 93.991, 10.184, 1.158)
pt3dadd(81.268, 93.923, 10.157, 1.11)
pt3dadd(81.174, 93.856, 10.13, 1.062)
pt3dadd(81.081, 93.788, 10.103, 1.014)
pt3dadd(80.987, 93.721, 10.076, 0.966)
pt3dadd(80.893, 93.654, 10.05, 0.918)
pt3dadd(80.799, 93.586, 10.023, 0.87)
pt3dadd(80.705, 93.519, 9.996, 0.822)
pt3dadd(80.611, 93.451, 9.969, 0.774)
pt3dadd(80.517, 93.384, 9.943, 0.726)
pt3dadd(80.426, 93.31, 9.922, 0.766)
pt3dadd(80.335, 93.236, 9.901, 0.806)
pt3dadd(80.244, 93.162, 9.88, 0.846)
pt3dadd(80.153, 93.088, 9.859, 0.888)
pt3dadd(80.061, 93.014, 9.837, 0.928)
pt3dadd(79.97, 92.94, 9.816, 0.968)
pt3dadd(79.879, 92.866, 9.795, 1.008)
pt3dadd(79.788, 92.793, 9.774, 1.05)
pt3dadd(79.697, 92.719, 9.753, 1.09)
pt3dadd(79.606, 92.645, 9.732, 1.13)
}
dend_7[39] {pt3dclear()
pt3dadd(79.606, 92.645, 9.732, 1.13)
pt3dadd(79.558, 92.607, 9.703, 1.114)
pt3dadd(79.476, 92.542, 9.653, 1.088)
pt3dadd(79.395, 92.478, 9.604, 1.06)
pt3dadd(79.313, 92.414, 9.554, 1.034)
pt3dadd(79.231, 92.349, 9.504, 1.006)
pt3dadd(79.149, 92.285, 9.454, 0.98)
pt3dadd(79.068, 92.22, 9.405, 0.954)
pt3dadd(78.977, 92.157, 9.366, 0.966)
pt3dadd(78.885, 92.094, 9.329, 0.98)
pt3dadd(78.793, 92.03, 9.292, 0.996)
pt3dadd(78.702, 91.967, 9.254, 1.012)
pt3dadd(78.61, 91.904, 9.217, 1.028)
pt3dadd(78.519, 91.84, 9.18, 1.044)
pt3dadd(78.427, 91.777, 9.142, 1.058)
pt3dadd(78.335, 91.714, 9.105, 1.074)
pt3dadd(78.244, 91.651, 9.068, 1.09)
pt3dadd(78.152, 91.587, 9.031, 1.106)
pt3dadd(78.043, 91.553, 9.002, 1.088)
pt3dadd(77.932, 91.521, 8.974, 1.066)
pt3dadd(77.822, 91.489, 8.946, 1.046)
pt3dadd(77.711, 91.457, 8.918, 1.026)
pt3dadd(77.601, 91.424, 8.889, 1.006)
pt3dadd(77.49, 91.392, 8.861, 0.986)
pt3dadd(77.379, 91.36, 8.833, 0.966)
pt3dadd(77.269, 91.327, 8.805, 0.944)
pt3dadd(77.158, 91.295, 8.777, 0.924)
pt3dadd(77.048, 91.263, 8.749, 0.904)
pt3dadd(76.94, 91.255, 8.705, 0.926)
pt3dadd(76.832, 91.248, 8.662, 0.948)
pt3dadd(76.725, 91.24, 8.618, 0.97)
pt3dadd(76.617, 91.233, 8.575, 0.992)
pt3dadd(76.509, 91.225, 8.531, 1.012)
pt3dadd(76.401, 91.217, 8.488, 1.034)
pt3dadd(76.293, 91.21, 8.444, 1.056)
pt3dadd(76.186, 91.202, 8.401, 1.078)
pt3dadd(76.078, 91.195, 8.357, 1.1)
pt3dadd(75.97, 91.187, 8.314, 1.122)
pt3dadd(75.859, 91.198, 8.277, 1.168)
pt3dadd(75.748, 91.21, 8.24, 1.214)
pt3dadd(75.637, 91.221, 8.204, 1.26)
}
}
proc shape3d_170() {
dend_7[39] { pt3dadd(75.526, 91.232, 8.167, 1.306)
pt3dadd(75.414, 91.243, 8.131, 1.352)
pt3dadd(75.303, 91.255, 8.094, 1.398)
pt3dadd(75.192, 91.266, 8.058, 1.444)
pt3dadd(75.081, 91.277, 8.021, 1.49)
pt3dadd(74.97, 91.288, 7.985, 1.536)
pt3dadd(74.859, 91.299, 7.948, 1.582)
pt3dadd(74.757, 91.321, 7.899, 1.514)
pt3dadd(74.655, 91.343, 7.85, 1.446)
pt3dadd(74.552, 91.365, 7.8, 1.378)
pt3dadd(74.45, 91.387, 7.751, 1.31)
pt3dadd(74.348, 91.409, 7.702, 1.242)
pt3dadd(74.246, 91.431, 7.653, 1.174)
pt3dadd(74.144, 91.452, 7.604, 1.108)
pt3dadd(74.042, 91.474, 7.554, 1.04)
pt3dadd(73.94, 91.496, 7.505, 0.972)
pt3dadd(73.837, 91.518, 7.456, 0.904)
}
dend_7[40] {pt3dclear()
pt3dadd(73.837, 91.518, 7.456, 0.904)
pt3dadd(73.777, 91.571, 7.435, 0.844)
pt3dadd(73.69, 91.646, 7.405, 0.76)
pt3dadd(73.604, 91.722, 7.376, 0.674)
pt3dadd(73.517, 91.797, 7.346, 0.59)
pt3dadd(73.431, 91.872, 7.316, 0.506)
pt3dadd(73.344, 91.948, 7.291, 0.458)
pt3dadd(73.254, 92.026, 7.275, 0.488)
pt3dadd(73.165, 92.104, 7.259, 0.518)
pt3dadd(73.076, 92.182, 7.243, 0.546)
pt3dadd(72.987, 92.26, 7.227, 0.576)
pt3dadd(72.898, 92.338, 7.211, 0.606)
pt3dadd(72.808, 92.416, 7.195, 0.636)
pt3dadd(72.719, 92.494, 7.179, 0.666)
pt3dadd(72.63, 92.572, 7.163, 0.694)
pt3dadd(72.541, 92.65, 7.147, 0.724)
pt3dadd(72.445, 92.719, 7.136, 0.748)
pt3dadd(72.339, 92.774, 7.134, 0.766)
pt3dadd(72.232, 92.829, 7.131, 0.782)
pt3dadd(72.125, 92.884, 7.129, 0.798)
pt3dadd(72.019, 92.939, 7.126, 0.814)
pt3dadd(71.912, 92.994, 7.123, 0.83)
pt3dadd(71.805, 93.049, 7.121, 0.846)
pt3dadd(71.699, 93.104, 7.118, 0.862)
pt3dadd(71.592, 93.159, 7.116, 0.878)
pt3dadd(71.486, 93.214, 7.113, 0.896)
pt3dadd(71.374, 93.255, 7.112, 0.876)
pt3dadd(71.256, 93.279, 7.112, 0.818)
pt3dadd(71.139, 93.304, 7.112, 0.76)
pt3dadd(71.022, 93.328, 7.112, 0.7)
pt3dadd(70.904, 93.353, 7.112, 0.642)
pt3dadd(70.787, 93.377, 7.112, 0.584)
pt3dadd(70.669, 93.402, 7.112, 0.524)
pt3dadd(70.552, 93.426, 7.112, 0.466)
pt3dadd(70.434, 93.451, 7.112, 0.408)
pt3dadd(70.317, 93.476, 7.112, 0.348)
pt3dadd(70.198, 93.493, 7.112, 0.334)
pt3dadd(70.079, 93.505, 7.112, 0.366)
pt3dadd(69.959, 93.516, 7.112, 0.398)
pt3dadd(69.84, 93.527, 7.112, 0.428)
pt3dadd(69.72, 93.538, 7.112, 0.46)
pt3dadd(69.601, 93.549, 7.112, 0.492)
pt3dadd(69.481, 93.56, 7.112, 0.522)
pt3dadd(69.362, 93.572, 7.112, 0.554)
pt3dadd(69.242, 93.583, 7.112, 0.586)
pt3dadd(69.123, 93.594, 7.112, 0.616)
pt3dadd(69.006, 93.619, 7.112, 0.634)
pt3dadd(68.893, 93.657, 7.112, 0.64)
pt3dadd(68.779, 93.696, 7.112, 0.644)
pt3dadd(68.666, 93.735, 7.112, 0.648)
pt3dadd(68.552, 93.774, 7.112, 0.652)
pt3dadd(68.438, 93.812, 7.112, 0.658)
pt3dadd(68.325, 93.851, 7.112, 0.662)
pt3dadd(68.211, 93.889, 7.112, 0.666)
pt3dadd(68.098, 93.928, 7.112, 0.672)
pt3dadd(67.984, 93.967, 7.112, 0.676)
pt3dadd(67.867, 93.987, 7.112, 0.69)
pt3dadd(67.747, 93.992, 7.112, 0.71)
pt3dadd(67.627, 93.996, 7.112, 0.73)
pt3dadd(67.507, 94.001, 7.112, 0.752)
pt3dadd(67.387, 94.006, 7.112, 0.772)
pt3dadd(67.267, 94.01, 7.112, 0.794)
pt3dadd(67.148, 94.015, 7.112, 0.814)
pt3dadd(67.028, 94.019, 7.112, 0.834)
pt3dadd(66.908, 94.024, 7.112, 0.856)
pt3dadd(66.788, 94.028, 7.112, 0.876)
pt3dadd(66.671, 94.052, 7.112, 0.848)
pt3dadd(66.557, 94.087, 7.112, 0.788)
pt3dadd(66.442, 94.123, 7.112, 0.73)
pt3dadd(66.327, 94.159, 7.112, 0.67)
pt3dadd(66.213, 94.195, 7.112, 0.61)
pt3dadd(66.098, 94.23, 7.112, 0.55)
pt3dadd(65.984, 94.266, 7.112, 0.492)
pt3dadd(65.869, 94.302, 7.112, 0.432)
pt3dadd(65.755, 94.337, 7.112, 0.372)
pt3dadd(65.64, 94.373, 7.112, 0.314)
pt3dadd(65.525, 94.406, 7.112, 0.314)
pt3dadd(65.409, 94.438, 7.112, 0.348)
pt3dadd(65.293, 94.47, 7.112, 0.382)
pt3dadd(65.178, 94.502, 7.112, 0.418)
pt3dadd(65.062, 94.534, 7.112, 0.452)
pt3dadd(64.946, 94.565, 7.112, 0.486)
pt3dadd(64.831, 94.597, 7.112, 0.52)
pt3dadd(64.715, 94.629, 7.112, 0.554)
pt3dadd(64.599, 94.661, 7.112, 0.588)
pt3dadd(64.483, 94.693, 7.112, 0.624)
pt3dadd(64.374, 94.74, 7.112, 0.626)
pt3dadd(64.267, 94.794, 7.112, 0.612)
pt3dadd(64.16, 94.849, 7.112, 0.598)
pt3dadd(64.054, 94.904, 7.112, 0.582)
pt3dadd(63.947, 94.959, 7.112, 0.568)
pt3dadd(63.84, 95.014, 7.112, 0.554)
pt3dadd(63.734, 95.069, 7.112, 0.54)
pt3dadd(63.627, 95.124, 7.112, 0.524)
pt3dadd(63.52, 95.179, 7.112, 0.51)
pt3dadd(63.414, 95.234, 7.112, 0.496)
pt3dadd(63.303, 95.28, 7.112, 0.476)
pt3dadd(63.19, 95.321, 7.112, 0.454)
pt3dadd(63.077, 95.361, 7.112, 0.432)
pt3dadd(62.964, 95.402, 7.112, 0.41)
pt3dadd(62.851, 95.443, 7.112, 0.388)
pt3dadd(62.739, 95.484, 7.112, 0.366)
pt3dadd(62.626, 95.525, 7.112, 0.344)
pt3dadd(62.513, 95.566, 7.112, 0.32)
pt3dadd(62.4, 95.607, 7.112, 0.298)
pt3dadd(62.287, 95.648, 7.112, 0.276)
pt3dadd(62.172, 95.681, 7.112, 0.28)
pt3dadd(62.056, 95.711, 7.112, 0.294)
pt3dadd(61.94, 95.741, 7.112, 0.308)
pt3dadd(61.824, 95.771, 7.111, 0.322)
pt3dadd(61.707, 95.801, 7.111, 0.336)
pt3dadd(61.591, 95.831, 7.111, 0.35)
pt3dadd(61.475, 95.861, 7.111, 0.364)
pt3dadd(61.359, 95.891, 7.111, 0.378)
pt3dadd(61.243, 95.921, 7.111, 0.392)
pt3dadd(61.127, 95.951, 7.111, 0.406)
pt3dadd(61.014, 95.991, 7.111, 0.424)
pt3dadd(60.902, 96.035, 7.111, 0.446)
pt3dadd(60.79, 96.079, 7.111, 0.468)
pt3dadd(60.679, 96.123, 7.111, 0.49)
pt3dadd(60.567, 96.167, 7.111, 0.512)
pt3dadd(60.455, 96.211, 7.111, 0.534)
pt3dadd(60.344, 96.255, 7.111, 0.556)
pt3dadd(60.232, 96.299, 7.111, 0.578)
pt3dadd(60.12, 96.343, 7.111, 0.6)
pt3dadd(60.009, 96.387, 7.111, 0.622)
pt3dadd(59.896, 96.427, 7.111, 0.632)
pt3dadd(59.782, 96.466, 7.111, 0.636)
pt3dadd(59.669, 96.505, 7.111, 0.642)
pt3dadd(59.555, 96.545, 7.111, 0.646)
pt3dadd(59.442, 96.584, 7.111, 0.652)
pt3dadd(59.328, 96.623, 7.111, 0.656)
pt3dadd(59.215, 96.662, 7.111, 0.662)
pt3dadd(59.102, 96.701, 7.111, 0.666)
pt3dadd(58.988, 96.74, 7.111, 0.672)
pt3dadd(58.875, 96.779, 7.11, 0.676)
pt3dadd(58.759, 96.812, 7.11, 0.69)
pt3dadd(58.643, 96.841, 7.11, 0.708)
pt3dadd(58.527, 96.871, 7.11, 0.726)
pt3dadd(58.41, 96.9, 7.11, 0.742)
pt3dadd(58.294, 96.93, 7.11, 0.76)
pt3dadd(58.178, 96.96, 7.109, 0.778)
pt3dadd(58.062, 96.989, 7.109, 0.796)
pt3dadd(57.945, 97.019, 7.109, 0.812)
pt3dadd(57.829, 97.048, 7.109, 0.83)
pt3dadd(57.713, 97.078, 7.109, 0.848)
pt3dadd(57.599, 97.116, 7.109, 0.844)
pt3dadd(57.487, 97.158, 7.108, 0.832)
pt3dadd(57.374, 97.2, 7.108, 0.82)
pt3dadd(57.262, 97.242, 7.108, 0.808)
pt3dadd(57.149, 97.284, 7.107, 0.796)
pt3dadd(57.037, 97.326, 7.107, 0.786)
pt3dadd(56.924, 97.368, 7.107, 0.774)
pt3dadd(56.812, 97.409, 7.106, 0.762)
pt3dadd(56.699, 97.451, 7.106, 0.75)
pt3dadd(56.587, 97.493, 7.106, 0.738)
pt3dadd(56.473, 97.53, 7.105, 0.706)
pt3dadd(56.358, 97.566, 7.104, 0.668)
pt3dadd(56.244, 97.602, 7.104, 0.628)
pt3dadd(56.129, 97.637, 7.103, 0.588)
pt3dadd(56.015, 97.673, 7.102, 0.55)
pt3dadd(55.9, 97.709, 7.102, 0.51)
pt3dadd(55.785, 97.745, 7.101, 0.47)
pt3dadd(55.671, 97.78, 7.1, 0.432)
pt3dadd(55.556, 97.816, 7.1, 0.392)
pt3dadd(55.442, 97.852, 7.099, 0.354)
pt3dadd(55.325, 97.878, 7.098, 0.336)
pt3dadd(55.207, 97.903, 7.096, 0.324)
pt3dadd(55.09, 97.927, 7.095, 0.312)
pt3dadd(54.972, 97.951, 7.093, 0.3)
pt3dadd(54.855, 97.975, 7.091, 0.288)
pt3dadd(54.737, 97.999, 7.09, 0.276)
pt3dadd(54.62, 98.024, 7.088, 0.264)
pt3dadd(54.502, 98.048, 7.087, 0.252)
pt3dadd(54.385, 98.072, 7.085, 0.24)
pt3dadd(54.267, 98.096, 7.084, 0.228)
pt3dadd(54.149, 98.114, 7.081, 0.254)
pt3dadd(54.03, 98.129, 7.077, 0.29)
pt3dadd(53.911, 98.145, 7.074, 0.326)
pt3dadd(53.792, 98.16, 7.071, 0.362)
pt3dadd(53.673, 98.176, 7.067, 0.4)
pt3dadd(53.554, 98.191, 7.064, 0.436)
pt3dadd(53.435, 98.207, 7.061, 0.472)
}
}
proc shape3d_171() {
dend_7[40] { pt3dadd(53.316, 98.223, 7.057, 0.508)
pt3dadd(53.197, 98.238, 7.054, 0.544)
pt3dadd(53.078, 98.254, 7.05, 0.58)
pt3dadd(52.964, 98.288, 7.044, 0.58)
pt3dadd(52.851, 98.327, 7.036, 0.572)
pt3dadd(52.738, 98.367, 7.028, 0.562)
pt3dadd(52.625, 98.406, 7.021, 0.554)
pt3dadd(52.512, 98.445, 7.013, 0.544)
pt3dadd(52.399, 98.484, 7.005, 0.536)
pt3dadd(52.286, 98.524, 6.997, 0.526)
pt3dadd(52.173, 98.563, 6.99, 0.518)
pt3dadd(52.06, 98.602, 6.982, 0.508)
pt3dadd(51.947, 98.641, 6.974, 0.5)
pt3dadd(51.833, 98.675, 6.961, 0.526)
pt3dadd(51.719, 98.707, 6.946, 0.558)
pt3dadd(51.604, 98.739, 6.932, 0.592)
pt3dadd(51.49, 98.771, 6.917, 0.626)
pt3dadd(51.376, 98.803, 6.903, 0.658)
pt3dadd(51.261, 98.836, 6.888, 0.692)
pt3dadd(51.147, 98.868, 6.874, 0.724)
pt3dadd(51.033, 98.9, 6.859, 0.758)
pt3dadd(50.919, 98.932, 6.845, 0.79)
pt3dadd(50.804, 98.964, 6.83, 0.824)
pt3dadd(50.697, 98.981, 6.79, 0.784)
pt3dadd(50.59, 98.994, 6.746, 0.732)
pt3dadd(50.483, 99.008, 6.702, 0.682)
pt3dadd(50.376, 99.022, 6.658, 0.63)
pt3dadd(50.269, 99.036, 6.614, 0.58)
pt3dadd(50.163, 99.05, 6.569, 0.53)
pt3dadd(50.056, 99.063, 6.525, 0.478)
pt3dadd(49.949, 99.077, 6.481, 0.428)
pt3dadd(49.842, 99.091, 6.437, 0.376)
pt3dadd(49.735, 99.105, 6.393, 0.326)
pt3dadd(49.63, 99.102, 6.345, 0.314)
pt3dadd(49.525, 99.099, 6.296, 0.304)
pt3dadd(49.421, 99.096, 6.247, 0.294)
pt3dadd(49.316, 99.093, 6.199, 0.284)
pt3dadd(49.211, 99.09, 6.15, 0.276)
pt3dadd(49.106, 99.087, 6.102, 0.266)
pt3dadd(49.001, 99.084, 6.053, 0.256)
pt3dadd(48.897, 99.08, 6.004, 0.246)
pt3dadd(48.792, 99.077, 5.956, 0.236)
pt3dadd(48.687, 99.074, 5.907, 0.226)
pt3dadd(48.569, 99.08, 5.923, 0.242)
pt3dadd(48.451, 99.087, 5.94, 0.258)
pt3dadd(48.333, 99.093, 5.958, 0.274)
pt3dadd(48.215, 99.099, 5.975, 0.29)
pt3dadd(48.097, 99.105, 5.993, 0.306)
pt3dadd(47.979, 99.112, 6.011, 0.322)
pt3dadd(47.862, 99.118, 6.028, 0.338)
pt3dadd(47.744, 99.124, 6.046, 0.356)
pt3dadd(47.626, 99.131, 6.063, 0.372)
pt3dadd(47.508, 99.137, 6.081, 0.388)
pt3dadd(47.393, 99.161, 6.093, 0.404)
pt3dadd(47.281, 99.205, 6.099, 0.422)
pt3dadd(47.17, 99.249, 6.105, 0.44)
pt3dadd(47.058, 99.293, 6.111, 0.458)
pt3dadd(46.947, 99.337, 6.117, 0.476)
pt3dadd(46.836, 99.381, 6.123, 0.494)
pt3dadd(46.724, 99.425, 6.128, 0.512)
pt3dadd(46.613, 99.469, 6.134, 0.53)
pt3dadd(46.502, 99.513, 6.14, 0.548)
pt3dadd(46.39, 99.558, 6.146, 0.566)
pt3dadd(46.281, 99.607, 6.147, 0.572)
pt3dadd(46.173, 99.659, 6.147, 0.572)
pt3dadd(46.065, 99.711, 6.146, 0.572)
pt3dadd(45.956, 99.762, 6.145, 0.572)
pt3dadd(45.848, 99.814, 6.145, 0.572)
pt3dadd(45.739, 99.865, 6.144, 0.572)
pt3dadd(45.631, 99.917, 6.144, 0.574)
pt3dadd(45.523, 99.968, 6.143, 0.574)
pt3dadd(45.414, 100.02, 6.142, 0.574)
pt3dadd(45.306, 100.071, 6.142, 0.574)
pt3dadd(45.191, 100.104, 6.141, 0.564)
pt3dadd(45.074, 100.133, 6.139, 0.552)
pt3dadd(44.958, 100.161, 6.138, 0.54)
pt3dadd(44.841, 100.19, 6.137, 0.528)
pt3dadd(44.725, 100.218, 6.136, 0.516)
pt3dadd(44.608, 100.247, 6.135, 0.504)
pt3dadd(44.492, 100.276, 6.133, 0.49)
pt3dadd(44.375, 100.304, 6.132, 0.478)
pt3dadd(44.259, 100.333, 6.131, 0.466)
pt3dadd(44.142, 100.362, 6.13, 0.454)
pt3dadd(44.024, 100.381, 6.127, 0.462)
pt3dadd(43.905, 100.399, 6.125, 0.476)
pt3dadd(43.787, 100.417, 6.122, 0.488)
pt3dadd(43.668, 100.435, 6.12, 0.5)
pt3dadd(43.549, 100.453, 6.117, 0.514)
pt3dadd(43.431, 100.471, 6.115, 0.526)
pt3dadd(43.312, 100.489, 6.112, 0.538)
pt3dadd(43.194, 100.507, 6.11, 0.552)
pt3dadd(43.075, 100.525, 6.107, 0.564)
pt3dadd(42.957, 100.543, 6.105, 0.576)
pt3dadd(42.841, 100.574, 6.1, 0.598)
pt3dadd(42.726, 100.607, 6.094, 0.62)
pt3dadd(42.611, 100.641, 6.088, 0.642)
pt3dadd(42.495, 100.674, 6.082, 0.666)
pt3dadd(42.38, 100.707, 6.077, 0.688)
pt3dadd(42.265, 100.74, 6.071, 0.71)
pt3dadd(42.15, 100.773, 6.065, 0.734)
pt3dadd(42.035, 100.806, 6.06, 0.756)
pt3dadd(41.92, 100.839, 6.054, 0.78)
pt3dadd(41.805, 100.873, 6.048, 0.802)
pt3dadd(41.692, 100.911, 6.038, 0.778)
pt3dadd(41.579, 100.95, 6.028, 0.752)
pt3dadd(41.466, 100.989, 6.017, 0.724)
pt3dadd(41.353, 101.028, 6.006, 0.698)
pt3dadd(41.241, 101.067, 5.996, 0.672)
pt3dadd(41.128, 101.106, 5.985, 0.646)
pt3dadd(41.015, 101.145, 5.975, 0.618)
pt3dadd(40.902, 101.184, 5.964, 0.592)
pt3dadd(40.789, 101.223, 5.953, 0.566)
pt3dadd(40.677, 101.261, 5.943, 0.538)
pt3dadd(40.565, 101.288, 5.915, 0.508)
pt3dadd(40.453, 101.315, 5.886, 0.476)
pt3dadd(40.341, 101.341, 5.858, 0.444)
pt3dadd(40.229, 101.368, 5.829, 0.412)
pt3dadd(40.117, 101.394, 5.8, 0.382)
pt3dadd(40.005, 101.421, 5.772, 0.35)
pt3dadd(39.893, 101.447, 5.743, 0.318)
pt3dadd(39.781, 101.474, 5.714, 0.286)
pt3dadd(39.67, 101.5, 5.686, 0.256)
pt3dadd(39.558, 101.526, 5.656, 0.228)
pt3dadd(39.448, 101.545, 5.618, 0.252)
pt3dadd(39.339, 101.563, 5.581, 0.276)
pt3dadd(39.229, 101.582, 5.543, 0.298)
pt3dadd(39.12, 101.6, 5.505, 0.322)
pt3dadd(39.01, 101.619, 5.467, 0.346)
pt3dadd(38.901, 101.637, 5.429, 0.37)
pt3dadd(38.791, 101.655, 5.391, 0.394)
pt3dadd(38.682, 101.674, 5.353, 0.418)
pt3dadd(38.572, 101.693, 5.315, 0.44)
pt3dadd(38.463, 101.712, 5.278, 0.464)
pt3dadd(38.355, 101.748, 5.245, 0.486)
pt3dadd(38.247, 101.783, 5.213, 0.508)
pt3dadd(38.139, 101.819, 5.181, 0.53)
pt3dadd(38.031, 101.854, 5.148, 0.552)
pt3dadd(37.923, 101.889, 5.116, 0.574)
pt3dadd(37.815, 101.925, 5.084, 0.596)
pt3dadd(37.708, 101.96, 5.052, 0.616)
pt3dadd(37.6, 101.996, 5.019, 0.638)
pt3dadd(37.492, 102.031, 4.987, 0.66)
pt3dadd(37.387, 102.069, 4.952, 0.678)
pt3dadd(37.294, 102.118, 4.904, 0.678)
pt3dadd(37.201, 102.168, 4.856, 0.678)
pt3dadd(37.108, 102.217, 4.807, 0.678)
pt3dadd(37.015, 102.267, 4.759, 0.678)
pt3dadd(36.922, 102.316, 4.711, 0.678)
pt3dadd(36.83, 102.365, 4.663, 0.678)
pt3dadd(36.737, 102.415, 4.615, 0.678)
pt3dadd(36.644, 102.464, 4.567, 0.678)
pt3dadd(36.551, 102.513, 4.519, 0.678)
pt3dadd(36.461, 102.557, 4.464, 0.672)
pt3dadd(36.376, 102.592, 4.4, 0.654)
pt3dadd(36.291, 102.626, 4.335, 0.638)
pt3dadd(36.206, 102.66, 4.271, 0.62)
pt3dadd(36.121, 102.695, 4.206, 0.604)
pt3dadd(36.036, 102.729, 4.141, 0.586)
pt3dadd(35.951, 102.764, 4.077, 0.568)
pt3dadd(35.867, 102.798, 4.012, 0.552)
pt3dadd(35.782, 102.832, 3.948, 0.534)
pt3dadd(35.697, 102.867, 3.883, 0.518)
pt3dadd(35.608, 102.907, 3.826, 0.504)
pt3dadd(35.513, 102.957, 3.78, 0.5)
pt3dadd(35.419, 103.006, 3.735, 0.494)
pt3dadd(35.324, 103.056, 3.69, 0.488)
pt3dadd(35.229, 103.105, 3.644, 0.482)
pt3dadd(35.134, 103.155, 3.599, 0.478)
pt3dadd(35.04, 103.204, 3.553, 0.472)
pt3dadd(34.945, 103.254, 3.508, 0.466)
pt3dadd(34.85, 103.303, 3.462, 0.46)
pt3dadd(34.755, 103.353, 3.417, 0.454)
pt3dadd(34.655, 103.401, 3.382, 0.442)
pt3dadd(34.548, 103.447, 3.358, 0.424)
pt3dadd(34.441, 103.493, 3.333, 0.404)
pt3dadd(34.335, 103.54, 3.309, 0.386)
pt3dadd(34.228, 103.586, 3.285, 0.366)
pt3dadd(34.121, 103.633, 3.26, 0.348)
pt3dadd(34.014, 103.679, 3.236, 0.328)
pt3dadd(33.908, 103.726, 3.212, 0.31)
pt3dadd(33.801, 103.772, 3.187, 0.29)
pt3dadd(33.694, 103.818, 3.163, 0.272)
pt3dadd(33.593, 103.876, 3.14, 0.26)
pt3dadd(33.497, 103.943, 3.117, 0.256)
pt3dadd(33.401, 104.01, 3.095, 0.252)
pt3dadd(33.305, 104.076, 3.072, 0.25)
pt3dadd(33.209, 104.143, 3.049, 0.246)
pt3dadd(33.114, 104.21, 3.027, 0.242)
pt3dadd(33.018, 104.277, 3.004, 0.238)
pt3dadd(32.922, 104.343, 2.982, 0.234)
pt3dadd(32.826, 104.41, 2.959, 0.23)
pt3dadd(32.73, 104.477, 2.937, 0.228)
pt3dadd(32.63, 104.512, 2.895, 0.226)
pt3dadd(32.528, 104.534, 2.846, 0.226)
pt3dadd(32.426, 104.555, 2.796, 0.226)
pt3dadd(32.324, 104.577, 2.746, 0.226)
pt3dadd(32.222, 104.598, 2.696, 0.226)
pt3dadd(32.12, 104.62, 2.647, 0.226)
pt3dadd(32.018, 104.641, 2.597, 0.226)
pt3dadd(31.917, 104.663, 2.547, 0.226)
}
}
proc shape3d_172() {
dend_7[40] { pt3dadd(31.815, 104.684, 2.497, 0.226)
pt3dadd(31.713, 104.706, 2.448, 0.226)
pt3dadd(31.606, 104.707, 2.404, 0.232)
pt3dadd(31.497, 104.702, 2.362, 0.238)
pt3dadd(31.388, 104.697, 2.319, 0.244)
pt3dadd(31.28, 104.693, 2.277, 0.252)
pt3dadd(31.171, 104.688, 2.235, 0.258)
pt3dadd(31.062, 104.683, 2.193, 0.266)
pt3dadd(30.954, 104.678, 2.15, 0.272)
pt3dadd(30.845, 104.673, 2.108, 0.278)
pt3dadd(30.736, 104.669, 2.066, 0.286)
pt3dadd(30.628, 104.664, 2.024, 0.292)
pt3dadd(30.523, 104.639, 1.981, 0.302)
pt3dadd(30.418, 104.609, 1.938, 0.314)
pt3dadd(30.314, 104.58, 1.895, 0.324)
pt3dadd(30.21, 104.55, 1.852, 0.336)
pt3dadd(30.105, 104.52, 1.81, 0.346)
pt3dadd(30.001, 104.491, 1.767, 0.358)
pt3dadd(29.897, 104.461, 1.724, 0.368)
pt3dadd(29.793, 104.432, 1.681, 0.38)
pt3dadd(29.688, 104.402, 1.638, 0.39)
pt3dadd(29.584, 104.373, 1.595, 0.402)
pt3dadd(29.484, 104.313, 1.57, 0.384)
pt3dadd(29.385, 104.253, 1.545, 0.366)
pt3dadd(29.285, 104.193, 1.52, 0.35)
pt3dadd(29.185, 104.133, 1.496, 0.332)
pt3dadd(29.086, 104.074, 1.471, 0.314)
pt3dadd(28.986, 104.014, 1.446, 0.296)
pt3dadd(28.886, 103.954, 1.421, 0.278)
pt3dadd(28.787, 103.894, 1.396, 0.262)
pt3dadd(28.687, 103.835, 1.371, 0.244)
pt3dadd(28.587, 103.775, 1.346, 0.226)
}
dend_7[41] {pt3dclear()
pt3dadd(73.837, 91.518, 7.456, 0.904)
pt3dadd(73.77, 91.444, 7.44, 0.894)
pt3dadd(73.691, 91.356, 7.421, 0.88)
pt3dadd(73.612, 91.269, 7.402, 0.868)
pt3dadd(73.533, 91.182, 7.383, 0.856)
pt3dadd(73.454, 91.094, 7.364, 0.844)
pt3dadd(73.375, 91.007, 7.345, 0.832)
pt3dadd(73.296, 90.92, 7.326, 0.818)
pt3dadd(73.217, 90.832, 7.307, 0.806)
pt3dadd(73.137, 90.745, 7.288, 0.794)
pt3dadd(73.058, 90.658, 7.269, 0.782)
pt3dadd(72.979, 90.57, 7.25, 0.768)
pt3dadd(72.9, 90.483, 7.231, 0.756)
pt3dadd(72.821, 90.396, 7.211, 0.744)
pt3dadd(72.736, 90.321, 7.183, 0.73)
pt3dadd(72.644, 90.257, 7.146, 0.714)
pt3dadd(72.553, 90.194, 7.108, 0.698)
pt3dadd(72.462, 90.131, 7.07, 0.682)
pt3dadd(72.37, 90.067, 7.033, 0.666)
pt3dadd(72.279, 90.004, 6.995, 0.652)
pt3dadd(72.187, 89.941, 6.957, 0.636)
pt3dadd(72.096, 89.877, 6.92, 0.62)
pt3dadd(72.005, 89.814, 6.882, 0.604)
pt3dadd(71.913, 89.751, 6.845, 0.588)
pt3dadd(71.817, 89.705, 6.799, 0.584)
pt3dadd(71.721, 89.662, 6.752, 0.58)
pt3dadd(71.624, 89.619, 6.704, 0.576)
pt3dadd(71.527, 89.575, 6.657, 0.572)
pt3dadd(71.431, 89.532, 6.61, 0.57)
pt3dadd(71.334, 89.488, 6.563, 0.566)
pt3dadd(71.238, 89.445, 6.516, 0.562)
pt3dadd(71.141, 89.402, 6.469, 0.558)
pt3dadd(71.045, 89.358, 6.422, 0.556)
pt3dadd(70.948, 89.315, 6.374, 0.552)
pt3dadd(70.854, 89.249, 6.347, 0.582)
pt3dadd(70.759, 89.183, 6.319, 0.614)
pt3dadd(70.665, 89.116, 6.291, 0.646)
pt3dadd(70.571, 89.05, 6.264, 0.678)
pt3dadd(70.476, 88.984, 6.236, 0.708)
pt3dadd(70.382, 88.917, 6.208, 0.74)
pt3dadd(70.288, 88.851, 6.181, 0.772)
pt3dadd(70.193, 88.785, 6.153, 0.804)
pt3dadd(70.099, 88.718, 6.126, 0.834)
pt3dadd(70.005, 88.652, 6.098, 0.866)
}
dend_7[42] {pt3dclear()
pt3dadd(70.005, 88.652, 6.098, 0.866)
pt3dadd(69.918, 88.579, 6.079, 0.85)
pt3dadd(69.828, 88.503, 6.06, 0.832)
pt3dadd(69.738, 88.427, 6.04, 0.816)
pt3dadd(69.648, 88.351, 6.021, 0.798)
pt3dadd(69.558, 88.275, 6.002, 0.78)
pt3dadd(69.468, 88.199, 5.982, 0.764)
pt3dadd(69.378, 88.124, 5.963, 0.746)
pt3dadd(69.288, 88.048, 5.943, 0.728)
pt3dadd(69.198, 87.972, 5.924, 0.712)
pt3dadd(69.108, 87.896, 5.905, 0.694)
pt3dadd(69.017, 87.831, 5.869, 0.754)
pt3dadd(68.926, 87.766, 5.832, 0.818)
pt3dadd(68.835, 87.702, 5.795, 0.882)
pt3dadd(68.743, 87.637, 5.759, 0.944)
pt3dadd(68.652, 87.573, 5.722, 1.008)
pt3dadd(68.561, 87.508, 5.686, 1.072)
pt3dadd(68.47, 87.444, 5.649, 1.134)
pt3dadd(68.379, 87.379, 5.613, 1.198)
pt3dadd(68.287, 87.315, 5.576, 1.26)
pt3dadd(68.196, 87.25, 5.54, 1.324)
pt3dadd(68.129, 87.157, 5.512, 1.286)
pt3dadd(68.063, 87.063, 5.484, 1.246)
pt3dadd(67.996, 86.969, 5.457, 1.206)
pt3dadd(67.93, 86.874, 5.429, 1.166)
pt3dadd(67.863, 86.78, 5.401, 1.124)
pt3dadd(67.797, 86.686, 5.374, 1.084)
pt3dadd(67.73, 86.592, 5.346, 1.044)
pt3dadd(67.664, 86.497, 5.319, 1.004)
pt3dadd(67.597, 86.403, 5.291, 0.962)
pt3dadd(67.531, 86.309, 5.264, 0.922)
pt3dadd(67.464, 86.21, 5.25, 0.966)
pt3dadd(67.397, 86.112, 5.237, 1.008)
pt3dadd(67.33, 86.013, 5.224, 1.052)
pt3dadd(67.263, 85.915, 5.211, 1.096)
pt3dadd(67.197, 85.817, 5.198, 1.14)
pt3dadd(67.13, 85.718, 5.185, 1.182)
pt3dadd(67.063, 85.62, 5.172, 1.226)
pt3dadd(66.996, 85.521, 5.158, 1.27)
pt3dadd(66.929, 85.423, 5.145, 1.312)
pt3dadd(66.862, 85.325, 5.132, 1.356)
}
dend_7[43] {pt3dclear()
pt3dadd(66.862, 85.325, 5.132, 1.356)
pt3dadd(66.835, 85.258, 5.128, 1.29)
pt3dadd(66.79, 85.147, 5.121, 1.182)
pt3dadd(66.744, 85.036, 5.114, 1.074)
pt3dadd(66.699, 84.926, 5.106, 0.966)
pt3dadd(66.654, 84.815, 5.099, 0.856)
pt3dadd(66.609, 84.704, 5.092, 0.748)
pt3dadd(66.563, 84.593, 5.085, 0.64)
pt3dadd(66.515, 84.484, 5.077, 0.554)
pt3dadd(66.458, 84.379, 5.068, 0.548)
pt3dadd(66.4, 84.275, 5.058, 0.544)
pt3dadd(66.342, 84.17, 5.048, 0.538)
pt3dadd(66.285, 84.065, 5.038, 0.534)
pt3dadd(66.227, 83.961, 5.028, 0.528)
pt3dadd(66.17, 83.856, 5.018, 0.522)
pt3dadd(66.112, 83.751, 5.008, 0.518)
pt3dadd(66.055, 83.647, 4.998, 0.512)
pt3dadd(65.997, 83.542, 4.988, 0.506)
pt3dadd(65.941, 83.438, 4.974, 0.51)
pt3dadd(65.887, 83.335, 4.949, 0.54)
pt3dadd(65.833, 83.232, 4.923, 0.568)
pt3dadd(65.78, 83.13, 4.898, 0.598)
pt3dadd(65.726, 83.027, 4.872, 0.626)
pt3dadd(65.672, 82.924, 4.846, 0.656)
pt3dadd(65.619, 82.821, 4.821, 0.684)
pt3dadd(65.565, 82.718, 4.795, 0.714)
pt3dadd(65.511, 82.615, 4.77, 0.742)
pt3dadd(65.458, 82.513, 4.744, 0.772)
pt3dadd(65.404, 82.411, 4.716, 0.786)
pt3dadd(65.35, 82.311, 4.684, 0.772)
pt3dadd(65.297, 82.21, 4.652, 0.758)
pt3dadd(65.243, 82.11, 4.62, 0.746)
pt3dadd(65.189, 82.01, 4.588, 0.732)
pt3dadd(65.136, 81.909, 4.556, 0.72)
pt3dadd(65.082, 81.809, 4.524, 0.706)
pt3dadd(65.028, 81.709, 4.492, 0.694)
pt3dadd(64.975, 81.609, 4.46, 0.68)
pt3dadd(64.921, 81.509, 4.428, 0.666)
pt3dadd(64.863, 81.41, 4.399, 0.642)
pt3dadd(64.798, 81.313, 4.375, 0.598)
pt3dadd(64.733, 81.216, 4.351, 0.554)
pt3dadd(64.668, 81.12, 4.327, 0.512)
pt3dadd(64.603, 81.023, 4.303, 0.468)
pt3dadd(64.538, 80.926, 4.279, 0.424)
pt3dadd(64.473, 80.829, 4.255, 0.382)
pt3dadd(64.409, 80.733, 4.231, 0.338)
pt3dadd(64.344, 80.636, 4.207, 0.294)
pt3dadd(64.279, 80.539, 4.183, 0.252)
pt3dadd(64.212, 80.443, 4.161, 0.226)
pt3dadd(64.144, 80.347, 4.142, 0.228)
pt3dadd(64.076, 80.25, 4.123, 0.23)
pt3dadd(64.008, 80.154, 4.104, 0.23)
pt3dadd(63.94, 80.058, 4.085, 0.232)
pt3dadd(63.872, 79.962, 4.066, 0.234)
pt3dadd(63.804, 79.866, 4.047, 0.236)
pt3dadd(63.736, 79.77, 4.028, 0.236)
pt3dadd(63.668, 79.674, 4.009, 0.238)
pt3dadd(63.6, 79.578, 3.99, 0.24)
pt3dadd(63.54, 79.479, 3.964, 0.258)
pt3dadd(63.492, 79.377, 3.93, 0.298)
pt3dadd(63.443, 79.275, 3.895, 0.338)
pt3dadd(63.395, 79.174, 3.861, 0.376)
pt3dadd(63.347, 79.072, 3.826, 0.416)
pt3dadd(63.298, 78.97, 3.792, 0.456)
pt3dadd(63.25, 78.868, 3.757, 0.496)
pt3dadd(63.202, 78.767, 3.723, 0.536)
pt3dadd(63.154, 78.665, 3.688, 0.576)
pt3dadd(63.105, 78.563, 3.654, 0.616)
pt3dadd(63.055, 78.461, 3.624, 0.648)
pt3dadd(63.002, 78.357, 3.6, 0.672)
pt3dadd(62.949, 78.253, 3.576, 0.694)
pt3dadd(62.897, 78.149, 3.553, 0.716)
pt3dadd(62.844, 78.045, 3.529, 0.738)
pt3dadd(62.791, 77.941, 3.505, 0.76)
pt3dadd(62.738, 77.837, 3.481, 0.782)
pt3dadd(62.685, 77.733, 3.457, 0.806)
pt3dadd(62.633, 77.629, 3.433, 0.828)
pt3dadd(62.58, 77.526, 3.41, 0.85)
pt3dadd(62.535, 77.417, 3.39, 0.856)
pt3dadd(62.501, 77.304, 3.374, 0.842)
pt3dadd(62.468, 77.19, 3.359, 0.828)
pt3dadd(62.434, 77.076, 3.343, 0.814)
pt3dadd(62.4, 76.963, 3.328, 0.8)
}
}
proc shape3d_173() {
dend_7[43] { pt3dadd(62.366, 76.849, 3.313, 0.786)
pt3dadd(62.333, 76.735, 3.297, 0.772)
pt3dadd(62.299, 76.622, 3.282, 0.76)
pt3dadd(62.265, 76.508, 3.266, 0.746)
pt3dadd(62.231, 76.394, 3.251, 0.732)
pt3dadd(62.206, 76.278, 3.239, 0.73)
pt3dadd(62.189, 76.16, 3.231, 0.744)
pt3dadd(62.173, 76.042, 3.222, 0.758)
pt3dadd(62.157, 75.923, 3.214, 0.772)
pt3dadd(62.14, 75.805, 3.206, 0.786)
pt3dadd(62.124, 75.686, 3.197, 0.8)
pt3dadd(62.107, 75.568, 3.189, 0.814)
pt3dadd(62.091, 75.449, 3.181, 0.828)
pt3dadd(62.075, 75.331, 3.173, 0.842)
pt3dadd(62.058, 75.212, 3.164, 0.856)
pt3dadd(62.049, 75.093, 3.155, 0.856)
pt3dadd(62.046, 74.974, 3.144, 0.84)
pt3dadd(62.044, 74.855, 3.133, 0.826)
pt3dadd(62.042, 74.736, 3.122, 0.81)
pt3dadd(62.039, 74.616, 3.112, 0.794)
pt3dadd(62.037, 74.497, 3.101, 0.78)
pt3dadd(62.034, 74.378, 3.09, 0.764)
pt3dadd(62.032, 74.259, 3.079, 0.748)
pt3dadd(62.03, 74.139, 3.068, 0.734)
pt3dadd(62.027, 74.02, 3.058, 0.718)
pt3dadd(62.026, 73.904, 3.035, 0.718)
pt3dadd(62.026, 73.791, 3.001, 0.734)
pt3dadd(62.025, 73.678, 2.968, 0.75)
pt3dadd(62.025, 73.565, 2.934, 0.766)
pt3dadd(62.025, 73.452, 2.9, 0.782)
pt3dadd(62.025, 73.339, 2.867, 0.796)
pt3dadd(62.025, 73.226, 2.833, 0.812)
pt3dadd(62.025, 73.113, 2.799, 0.828)
pt3dadd(62.024, 73, 2.765, 0.842)
pt3dadd(62.024, 72.887, 2.732, 0.858)
pt3dadd(62.024, 72.773, 2.702, 0.858)
pt3dadd(62.023, 72.657, 2.676, 0.842)
pt3dadd(62.023, 72.541, 2.649, 0.828)
pt3dadd(62.022, 72.425, 2.623, 0.812)
pt3dadd(62.022, 72.31, 2.597, 0.798)
pt3dadd(62.022, 72.194, 2.57, 0.782)
pt3dadd(62.021, 72.078, 2.544, 0.768)
pt3dadd(62.021, 71.962, 2.518, 0.752)
pt3dadd(62.02, 71.847, 2.491, 0.738)
pt3dadd(62.02, 71.731, 2.465, 0.722)
pt3dadd(62.019, 71.613, 2.446, 0.702)
pt3dadd(62.018, 71.494, 2.433, 0.68)
pt3dadd(62.017, 71.375, 2.42, 0.656)
pt3dadd(62.016, 71.256, 2.407, 0.632)
pt3dadd(62.015, 71.137, 2.393, 0.61)
pt3dadd(62.014, 71.019, 2.38, 0.586)
pt3dadd(62.013, 70.9, 2.367, 0.562)
pt3dadd(62.012, 70.781, 2.354, 0.54)
pt3dadd(62.011, 70.662, 2.341, 0.516)
pt3dadd(62.01, 70.543, 2.327, 0.492)
pt3dadd(62.009, 70.423, 2.321, 0.47)
pt3dadd(62.006, 70.303, 2.32, 0.446)
pt3dadd(62.004, 70.183, 2.318, 0.422)
pt3dadd(62.002, 70.063, 2.317, 0.398)
pt3dadd(62, 69.943, 2.315, 0.376)
pt3dadd(61.998, 69.823, 2.314, 0.352)
pt3dadd(61.995, 69.703, 2.313, 0.328)
pt3dadd(61.993, 69.583, 2.311, 0.304)
pt3dadd(61.991, 69.463, 2.31, 0.28)
pt3dadd(61.989, 69.343, 2.308, 0.258)
pt3dadd(61.985, 69.224, 2.308, 0.246)
pt3dadd(61.98, 69.104, 2.308, 0.244)
pt3dadd(61.976, 68.984, 2.308, 0.242)
pt3dadd(61.971, 68.864, 2.308, 0.24)
pt3dadd(61.966, 68.744, 2.308, 0.238)
pt3dadd(61.961, 68.624, 2.308, 0.236)
pt3dadd(61.957, 68.504, 2.308, 0.234)
pt3dadd(61.952, 68.384, 2.308, 0.232)
pt3dadd(61.947, 68.264, 2.308, 0.23)
pt3dadd(61.942, 68.144, 2.309, 0.226)
pt3dadd(61.934, 68.025, 2.309, 0.226)
pt3dadd(61.923, 67.905, 2.309, 0.226)
pt3dadd(61.912, 67.786, 2.309, 0.226)
pt3dadd(61.9, 67.666, 2.309, 0.226)
pt3dadd(61.889, 67.547, 2.309, 0.226)
pt3dadd(61.878, 67.427, 2.31, 0.226)
pt3dadd(61.867, 67.308, 2.31, 0.226)
pt3dadd(61.856, 67.188, 2.31, 0.226)
pt3dadd(61.845, 67.069, 2.31, 0.226)
pt3dadd(61.833, 66.949, 2.31, 0.226)
pt3dadd(61.816, 66.831, 2.311, 0.24)
pt3dadd(61.794, 66.713, 2.311, 0.262)
pt3dadd(61.771, 66.595, 2.312, 0.284)
pt3dadd(61.749, 66.477, 2.312, 0.308)
pt3dadd(61.727, 66.359, 2.313, 0.33)
pt3dadd(61.705, 66.241, 2.313, 0.352)
pt3dadd(61.683, 66.123, 2.313, 0.374)
pt3dadd(61.66, 66.005, 2.314, 0.398)
pt3dadd(61.638, 65.887, 2.314, 0.42)
pt3dadd(61.616, 65.77, 2.315, 0.442)
pt3dadd(61.574, 65.658, 2.315, 0.452)
pt3dadd(61.519, 65.552, 2.316, 0.452)
pt3dadd(61.464, 65.445, 2.317, 0.452)
pt3dadd(61.409, 65.338, 2.318, 0.452)
pt3dadd(61.354, 65.232, 2.319, 0.452)
pt3dadd(61.299, 65.125, 2.319, 0.452)
pt3dadd(61.244, 65.018, 2.32, 0.452)
pt3dadd(61.189, 64.912, 2.321, 0.452)
pt3dadd(61.134, 64.805, 2.322, 0.452)
pt3dadd(61.079, 64.698, 2.323, 0.452)
pt3dadd(61.018, 64.595, 2.324, 0.464)
pt3dadd(60.953, 64.495, 2.326, 0.484)
pt3dadd(60.888, 64.394, 2.328, 0.504)
pt3dadd(60.822, 64.293, 2.33, 0.524)
pt3dadd(60.757, 64.193, 2.332, 0.544)
pt3dadd(60.692, 64.092, 2.333, 0.566)
pt3dadd(60.627, 63.991, 2.335, 0.586)
pt3dadd(60.561, 63.891, 2.337, 0.606)
pt3dadd(60.496, 63.79, 2.339, 0.626)
pt3dadd(60.431, 63.689, 2.341, 0.646)
pt3dadd(60.38, 63.581, 2.344, 0.642)
pt3dadd(60.34, 63.468, 2.348, 0.622)
pt3dadd(60.299, 63.356, 2.352, 0.602)
pt3dadd(60.259, 63.243, 2.356, 0.582)
pt3dadd(60.219, 63.13, 2.36, 0.562)
pt3dadd(60.178, 63.017, 2.364, 0.54)
pt3dadd(60.138, 62.904, 2.368, 0.52)
pt3dadd(60.097, 62.791, 2.373, 0.5)
pt3dadd(60.057, 62.678, 2.377, 0.48)
pt3dadd(60.016, 62.565, 2.381, 0.46)
pt3dadd(60.018, 62.451, 2.394, 0.452)
pt3dadd(60.045, 62.336, 2.412, 0.452)
pt3dadd(60.072, 62.221, 2.431, 0.454)
pt3dadd(60.098, 62.106, 2.449, 0.454)
pt3dadd(60.125, 61.992, 2.468, 0.454)
pt3dadd(60.151, 61.877, 2.486, 0.454)
pt3dadd(60.178, 61.762, 2.504, 0.456)
pt3dadd(60.204, 61.647, 2.523, 0.456)
pt3dadd(60.231, 61.532, 2.541, 0.456)
pt3dadd(60.269, 61.438, 2.575, 0.45)
pt3dadd(60.336, 61.401, 2.652, 0.426)
pt3dadd(60.403, 61.365, 2.729, 0.4)
pt3dadd(60.471, 61.328, 2.806, 0.376)
pt3dadd(60.538, 61.292, 2.883, 0.35)
pt3dadd(60.605, 61.255, 2.96, 0.326)
pt3dadd(60.673, 61.219, 3.037, 0.3)
pt3dadd(60.74, 61.182, 3.114, 0.276)
pt3dadd(60.807, 61.146, 3.191, 0.25)
pt3dadd(60.875, 61.109, 3.268, 0.226)
}
dend_7[44] {pt3dclear()
pt3dadd(66.862, 85.325, 5.132, 1.356)
pt3dadd(66.843, 85.325, 5.055, 1.336)
pt3dadd(66.819, 85.325, 4.957, 1.312)
pt3dadd(66.795, 85.325, 4.859, 1.288)
pt3dadd(66.771, 85.325, 4.761, 1.264)
pt3dadd(66.747, 85.325, 4.663, 1.238)
pt3dadd(66.723, 85.325, 4.565, 1.214)
pt3dadd(66.693, 85.324, 4.471, 1.186)
pt3dadd(66.579, 85.32, 4.442, 1.102)
pt3dadd(66.464, 85.316, 4.413, 1.016)
pt3dadd(66.349, 85.312, 4.384, 0.932)
pt3dadd(66.235, 85.308, 4.354, 0.846)
pt3dadd(66.12, 85.304, 4.325, 0.762)
pt3dadd(66.005, 85.3, 4.296, 0.676)
pt3dadd(65.891, 85.296, 4.266, 0.592)
pt3dadd(65.776, 85.292, 4.237, 0.506)
pt3dadd(65.658, 85.287, 4.228, 0.488)
pt3dadd(65.538, 85.281, 4.228, 0.502)
pt3dadd(65.418, 85.275, 4.227, 0.516)
pt3dadd(65.298, 85.269, 4.227, 0.528)
pt3dadd(65.178, 85.263, 4.227, 0.542)
pt3dadd(65.059, 85.257, 4.227, 0.556)
pt3dadd(64.939, 85.251, 4.227, 0.568)
pt3dadd(64.819, 85.245, 4.227, 0.582)
pt3dadd(64.699, 85.239, 4.226, 0.594)
pt3dadd(64.579, 85.233, 4.226, 0.608)
pt3dadd(64.46, 85.223, 4.226, 0.586)
pt3dadd(64.34, 85.21, 4.226, 0.548)
pt3dadd(64.221, 85.197, 4.225, 0.51)
pt3dadd(64.102, 85.184, 4.225, 0.474)
pt3dadd(63.982, 85.172, 4.224, 0.436)
pt3dadd(63.863, 85.159, 4.224, 0.398)
pt3dadd(63.744, 85.146, 4.224, 0.36)
pt3dadd(63.625, 85.133, 4.223, 0.322)
pt3dadd(63.505, 85.12, 4.223, 0.286)
pt3dadd(63.386, 85.107, 4.223, 0.248)
pt3dadd(63.269, 85.081, 4.222, 0.276)
pt3dadd(63.154, 85.047, 4.221, 0.334)
pt3dadd(63.039, 85.014, 4.22, 0.392)
pt3dadd(62.923, 84.981, 4.219, 0.45)
pt3dadd(62.808, 84.948, 4.218, 0.508)
pt3dadd(62.693, 84.915, 4.217, 0.568)
pt3dadd(62.577, 84.882, 4.216, 0.626)
pt3dadd(62.462, 84.849, 4.215, 0.684)
pt3dadd(62.347, 84.816, 4.214, 0.742)
pt3dadd(62.231, 84.783, 4.213, 0.8)
pt3dadd(62.139, 84.71, 4.211, 0.774)
pt3dadd(62.051, 84.627, 4.208, 0.73)
pt3dadd(61.964, 84.545, 4.206, 0.686)
pt3dadd(61.876, 84.463, 4.203, 0.642)
pt3dadd(61.789, 84.381, 4.201, 0.598)
pt3dadd(61.701, 84.299, 4.198, 0.554)
pt3dadd(61.614, 84.217, 4.196, 0.51)
pt3dadd(61.527, 84.135, 4.193, 0.466)
pt3dadd(61.439, 84.053, 4.191, 0.424)
pt3dadd(61.352, 83.971, 4.188, 0.38)
}
}
proc shape3d_174() {
dend_7[44] { pt3dadd(61.26, 83.893, 4.184, 0.384)
pt3dadd(61.168, 83.817, 4.179, 0.402)
pt3dadd(61.076, 83.74, 4.174, 0.418)
pt3dadd(60.984, 83.663, 4.169, 0.434)
pt3dadd(60.891, 83.587, 4.164, 0.45)
pt3dadd(60.799, 83.51, 4.159, 0.466)
pt3dadd(60.707, 83.434, 4.154, 0.484)
pt3dadd(60.615, 83.357, 4.149, 0.5)
pt3dadd(60.522, 83.281, 4.145, 0.516)
pt3dadd(60.43, 83.204, 4.14, 0.532)
pt3dadd(60.328, 83.143, 4.131, 0.506)
pt3dadd(60.225, 83.083, 4.121, 0.476)
pt3dadd(60.121, 83.023, 4.111, 0.444)
pt3dadd(60.018, 82.964, 4.102, 0.414)
pt3dadd(59.914, 82.904, 4.092, 0.384)
pt3dadd(59.811, 82.844, 4.083, 0.352)
pt3dadd(59.707, 82.785, 4.073, 0.322)
pt3dadd(59.604, 82.725, 4.063, 0.29)
pt3dadd(59.5, 82.665, 4.054, 0.26)
pt3dadd(59.397, 82.606, 4.044, 0.23)
pt3dadd(59.293, 82.549, 4.027, 0.23)
pt3dadd(59.19, 82.492, 4.009, 0.234)
pt3dadd(59.086, 82.435, 3.99, 0.238)
pt3dadd(58.983, 82.379, 3.972, 0.242)
pt3dadd(58.879, 82.322, 3.954, 0.246)
pt3dadd(58.776, 82.266, 3.936, 0.25)
pt3dadd(58.672, 82.209, 3.918, 0.254)
pt3dadd(58.569, 82.152, 3.899, 0.258)
pt3dadd(58.465, 82.096, 3.881, 0.262)
pt3dadd(58.362, 82.039, 3.863, 0.266)
pt3dadd(58.259, 81.998, 3.824, 0.284)
pt3dadd(58.156, 81.958, 3.784, 0.3)
pt3dadd(58.054, 81.918, 3.745, 0.318)
pt3dadd(57.951, 81.877, 3.705, 0.334)
pt3dadd(57.849, 81.837, 3.666, 0.352)
pt3dadd(57.746, 81.796, 3.626, 0.368)
pt3dadd(57.644, 81.756, 3.587, 0.386)
pt3dadd(57.541, 81.716, 3.547, 0.402)
pt3dadd(57.438, 81.675, 3.507, 0.42)
pt3dadd(57.336, 81.635, 3.468, 0.436)
pt3dadd(57.236, 81.58, 3.438, 0.416)
pt3dadd(57.135, 81.525, 3.407, 0.398)
pt3dadd(57.035, 81.471, 3.377, 0.378)
pt3dadd(56.935, 81.416, 3.346, 0.358)
pt3dadd(56.834, 81.361, 3.316, 0.338)
pt3dadd(56.734, 81.306, 3.286, 0.318)
pt3dadd(56.634, 81.251, 3.255, 0.298)
pt3dadd(56.533, 81.196, 3.225, 0.28)
pt3dadd(56.433, 81.141, 3.194, 0.26)
pt3dadd(56.333, 81.087, 3.164, 0.24)
pt3dadd(56.23, 81.051, 3.121, 0.238)
pt3dadd(56.128, 81.015, 3.079, 0.238)
pt3dadd(56.025, 80.98, 3.036, 0.236)
pt3dadd(55.923, 80.944, 2.993, 0.234)
pt3dadd(55.821, 80.909, 2.95, 0.232)
pt3dadd(55.718, 80.873, 2.907, 0.232)
pt3dadd(55.616, 80.838, 2.864, 0.23)
pt3dadd(55.513, 80.802, 2.822, 0.228)
pt3dadd(55.411, 80.767, 2.779, 0.228)
pt3dadd(55.308, 80.731, 2.736, 0.226)
pt3dadd(55.197, 80.701, 2.709, 0.244)
pt3dadd(55.085, 80.671, 2.681, 0.262)
pt3dadd(54.974, 80.641, 2.654, 0.28)
pt3dadd(54.862, 80.611, 2.627, 0.298)
pt3dadd(54.751, 80.581, 2.599, 0.316)
pt3dadd(54.64, 80.55, 2.572, 0.334)
pt3dadd(54.528, 80.52, 2.545, 0.352)
pt3dadd(54.417, 80.49, 2.517, 0.37)
pt3dadd(54.305, 80.46, 2.49, 0.388)
pt3dadd(54.194, 80.429, 2.463, 0.406)
pt3dadd(54.084, 80.383, 2.45, 0.426)
pt3dadd(53.975, 80.336, 2.437, 0.448)
pt3dadd(53.865, 80.289, 2.424, 0.47)
pt3dadd(53.756, 80.243, 2.412, 0.492)
pt3dadd(53.646, 80.196, 2.399, 0.512)
pt3dadd(53.537, 80.15, 2.386, 0.534)
pt3dadd(53.427, 80.103, 2.373, 0.556)
pt3dadd(53.318, 80.057, 2.36, 0.576)
pt3dadd(53.208, 80.01, 2.347, 0.598)
pt3dadd(53.099, 79.964, 2.335, 0.62)
pt3dadd(52.987, 79.92, 2.332, 0.642)
pt3dadd(52.876, 79.876, 2.329, 0.664)
pt3dadd(52.764, 79.831, 2.327, 0.686)
pt3dadd(52.653, 79.787, 2.324, 0.708)
pt3dadd(52.541, 79.743, 2.321, 0.73)
pt3dadd(52.43, 79.699, 2.318, 0.75)
pt3dadd(52.318, 79.654, 2.315, 0.772)
pt3dadd(52.207, 79.61, 2.312, 0.794)
pt3dadd(52.095, 79.566, 2.309, 0.816)
pt3dadd(51.984, 79.521, 2.307, 0.836)
pt3dadd(51.876, 79.47, 2.307, 0.844)
pt3dadd(51.767, 79.418, 2.307, 0.85)
pt3dadd(51.658, 79.367, 2.307, 0.858)
pt3dadd(51.55, 79.316, 2.307, 0.864)
pt3dadd(51.441, 79.265, 2.307, 0.87)
pt3dadd(51.333, 79.213, 2.307, 0.878)
pt3dadd(51.224, 79.162, 2.307, 0.884)
pt3dadd(51.116, 79.111, 2.307, 0.892)
pt3dadd(51.007, 79.06, 2.307, 0.898)
pt3dadd(50.898, 79.01, 2.307, 0.9)
pt3dadd(50.785, 78.969, 2.307, 0.872)
pt3dadd(50.673, 78.928, 2.307, 0.844)
pt3dadd(50.56, 78.887, 2.307, 0.816)
pt3dadd(50.447, 78.846, 2.307, 0.788)
pt3dadd(50.334, 78.806, 2.307, 0.762)
pt3dadd(50.221, 78.765, 2.307, 0.734)
pt3dadd(50.109, 78.724, 2.307, 0.706)
pt3dadd(49.996, 78.683, 2.307, 0.678)
pt3dadd(49.883, 78.642, 2.307, 0.65)
pt3dadd(49.769, 78.604, 2.307, 0.63)
pt3dadd(49.651, 78.581, 2.307, 0.64)
pt3dadd(49.534, 78.558, 2.307, 0.652)
pt3dadd(49.416, 78.534, 2.307, 0.662)
pt3dadd(49.298, 78.511, 2.307, 0.674)
pt3dadd(49.181, 78.488, 2.306, 0.684)
pt3dadd(49.063, 78.465, 2.306, 0.696)
pt3dadd(48.945, 78.441, 2.306, 0.706)
pt3dadd(48.827, 78.418, 2.306, 0.718)
pt3dadd(48.71, 78.395, 2.306, 0.728)
pt3dadd(48.592, 78.373, 2.306, 0.738)
pt3dadd(48.473, 78.359, 2.306, 0.74)
pt3dadd(48.353, 78.344, 2.306, 0.742)
pt3dadd(48.234, 78.33, 2.306, 0.742)
pt3dadd(48.115, 78.315, 2.306, 0.744)
pt3dadd(47.996, 78.301, 2.306, 0.746)
pt3dadd(47.877, 78.287, 2.306, 0.748)
pt3dadd(47.758, 78.272, 2.306, 0.75)
pt3dadd(47.639, 78.258, 2.306, 0.75)
pt3dadd(47.52, 78.243, 2.306, 0.752)
pt3dadd(47.401, 78.228, 2.306, 0.746)
pt3dadd(47.282, 78.208, 2.306, 0.706)
pt3dadd(47.164, 78.189, 2.305, 0.668)
pt3dadd(47.045, 78.17, 2.305, 0.628)
pt3dadd(46.927, 78.15, 2.305, 0.59)
pt3dadd(46.808, 78.131, 2.305, 0.55)
pt3dadd(46.69, 78.111, 2.305, 0.512)
pt3dadd(46.572, 78.092, 2.305, 0.474)
pt3dadd(46.453, 78.073, 2.304, 0.434)
pt3dadd(46.335, 78.053, 2.304, 0.396)
pt3dadd(46.218, 78.028, 2.304, 0.362)
pt3dadd(46.108, 77.981, 2.304, 0.348)
pt3dadd(45.997, 77.934, 2.303, 0.334)
pt3dadd(45.887, 77.887, 2.303, 0.32)
pt3dadd(45.776, 77.841, 2.303, 0.306)
pt3dadd(45.666, 77.794, 2.302, 0.292)
pt3dadd(45.555, 77.747, 2.302, 0.278)
pt3dadd(45.445, 77.7, 2.302, 0.264)
pt3dadd(45.334, 77.653, 2.301, 0.25)
pt3dadd(45.224, 77.606, 2.301, 0.236)
pt3dadd(45.116, 77.554, 2.301, 0.234)
pt3dadd(45.014, 77.491, 2.3, 0.258)
pt3dadd(44.912, 77.427, 2.299, 0.282)
pt3dadd(44.811, 77.364, 2.299, 0.306)
pt3dadd(44.709, 77.3, 2.298, 0.33)
pt3dadd(44.607, 77.237, 2.298, 0.354)
pt3dadd(44.505, 77.173, 2.297, 0.38)
pt3dadd(44.403, 77.11, 2.296, 0.404)
pt3dadd(44.302, 77.046, 2.296, 0.428)
pt3dadd(44.2, 76.983, 2.295, 0.452)
pt3dadd(44.097, 76.921, 2.294, 0.468)
pt3dadd(43.992, 76.862, 2.293, 0.468)
pt3dadd(43.888, 76.803, 2.292, 0.47)
pt3dadd(43.783, 76.744, 2.29, 0.47)
pt3dadd(43.679, 76.685, 2.289, 0.47)
pt3dadd(43.574, 76.626, 2.288, 0.47)
pt3dadd(43.47, 76.567, 2.286, 0.47)
pt3dadd(43.365, 76.508, 2.285, 0.472)
pt3dadd(43.261, 76.449, 2.284, 0.472)
pt3dadd(43.156, 76.391, 2.282, 0.472)
pt3dadd(43.048, 76.339, 2.28, 0.472)
pt3dadd(42.935, 76.299, 2.277, 0.468)
pt3dadd(42.822, 76.26, 2.275, 0.464)
pt3dadd(42.709, 76.22, 2.272, 0.462)
pt3dadd(42.595, 76.181, 2.269, 0.458)
pt3dadd(42.482, 76.142, 2.266, 0.454)
pt3dadd(42.369, 76.102, 2.263, 0.45)
pt3dadd(42.255, 76.063, 2.26, 0.448)
pt3dadd(42.142, 76.023, 2.257, 0.444)
pt3dadd(42.029, 75.984, 2.254, 0.44)
pt3dadd(41.916, 75.945, 2.249, 0.444)
pt3dadd(41.802, 75.906, 2.242, 0.456)
pt3dadd(41.689, 75.867, 2.234, 0.468)
pt3dadd(41.576, 75.828, 2.227, 0.48)
pt3dadd(41.463, 75.789, 2.219, 0.492)
pt3dadd(41.35, 75.75, 2.211, 0.504)
pt3dadd(41.237, 75.712, 2.204, 0.514)
pt3dadd(41.123, 75.673, 2.196, 0.526)
pt3dadd(41.01, 75.634, 2.189, 0.538)
pt3dadd(40.897, 75.595, 2.181, 0.55)
pt3dadd(40.785, 75.555, 2.17, 0.552)
pt3dadd(40.674, 75.513, 2.155, 0.542)
pt3dadd(40.563, 75.471, 2.14, 0.532)
pt3dadd(40.452, 75.429, 2.125, 0.52)
pt3dadd(40.341, 75.387, 2.11, 0.51)
pt3dadd(40.23, 75.345, 2.095, 0.5)
pt3dadd(40.119, 75.303, 2.08, 0.49)
pt3dadd(40.008, 75.261, 2.065, 0.478)
pt3dadd(39.897, 75.219, 2.05, 0.468)
pt3dadd(39.786, 75.177, 2.035, 0.458)
pt3dadd(39.69, 75.145, 1.993, 0.44)
}
}
proc shape3d_175() {
dend_7[44] { pt3dadd(39.609, 75.123, 1.921, 0.416)
pt3dadd(39.529, 75.101, 1.849, 0.394)
pt3dadd(39.448, 75.079, 1.777, 0.37)
pt3dadd(39.368, 75.057, 1.706, 0.346)
pt3dadd(39.287, 75.035, 1.634, 0.322)
pt3dadd(39.207, 75.013, 1.562, 0.298)
pt3dadd(39.126, 74.991, 1.49, 0.274)
pt3dadd(39.046, 74.969, 1.418, 0.25)
pt3dadd(38.965, 74.947, 1.346, 0.226)
}
dend_7[45] {pt3dclear()
pt3dadd(70.005, 88.652, 6.098, 0.866)
pt3dadd(70.072, 88.659, 6.113, 0.868)
pt3dadd(70.101, 88.758, 6.143, 0.874)
pt3dadd(70.13, 88.857, 6.174, 0.878)
pt3dadd(70.159, 88.956, 6.204, 0.884)
pt3dadd(70.188, 89.055, 6.234, 0.888)
pt3dadd(70.216, 89.155, 6.264, 0.894)
pt3dadd(70.245, 89.254, 6.294, 0.898)
pt3dadd(70.274, 89.353, 6.324, 0.904)
pt3dadd(70.269, 89.358, 6.257, 0.904)
pt3dadd(70.256, 89.342, 6.168, 0.904)
pt3dadd(70.243, 89.325, 6.08, 0.904)
pt3dadd(70.231, 89.309, 5.991, 0.904)
pt3dadd(70.218, 89.293, 5.902, 0.904)
pt3dadd(70.174, 89.277, 5.84, 0.904)
pt3dadd(70.098, 89.261, 5.804, 0.904)
pt3dadd(70.028, 89.244, 5.762, 0.904)
pt3dadd(69.981, 89.228, 5.692, 0.904)
pt3dadd(69.94, 89.212, 5.619, 0.904)
pt3dadd(69.96, 89.196, 5.523, 0.904)
pt3dadd(69.98, 89.179, 5.427, 0.904)
pt3dadd(69.999, 89.163, 5.331, 0.904)
pt3dadd(70.019, 89.147, 5.235, 0.904)
pt3dadd(70.039, 89.131, 5.139, 0.904)
pt3dadd(70.039, 89.115, 5.047, 0.904)
pt3dadd(70.038, 89.102, 4.956, 0.904)
pt3dadd(70.07, 89.108, 4.861, 0.904)
pt3dadd(70.103, 89.115, 4.766, 0.904)
pt3dadd(70.135, 89.121, 4.672, 0.904)
pt3dadd(70.168, 89.128, 4.577, 0.904)
pt3dadd(70.2, 89.134, 4.482, 0.904)
pt3dadd(70.233, 89.139, 4.386, 0.904)
pt3dadd(70.268, 89.14, 4.291, 0.904)
pt3dadd(70.303, 89.141, 4.195, 0.904)
pt3dadd(70.338, 89.142, 4.099, 0.904)
pt3dadd(70.372, 89.143, 4.003, 0.904)
pt3dadd(70.407, 89.144, 3.907, 0.904)
pt3dadd(70.442, 89.144, 3.812, 0.904)
pt3dadd(70.477, 89.128, 3.715, 0.904)
pt3dadd(70.512, 89.111, 3.618, 0.904)
pt3dadd(70.546, 89.095, 3.521, 0.904)
pt3dadd(70.581, 89.079, 3.424, 0.904)
pt3dadd(70.616, 89.063, 3.328, 0.904)
pt3dadd(70.651, 89.046, 3.231, 0.904)
pt3dadd(70.686, 89.03, 3.134, 0.904)
pt3dadd(70.72, 89.014, 3.037, 0.904)
pt3dadd(70.755, 88.998, 2.94, 0.904)
pt3dadd(70.79, 88.982, 2.844, 0.904)
pt3dadd(70.825, 88.97, 2.747, 0.904)
pt3dadd(70.86, 88.959, 2.65, 0.904)
pt3dadd(70.894, 88.96, 2.557, 0.904)
pt3dadd(70.929, 89.012, 2.478, 0.904)
pt3dadd(70.964, 89.066, 2.4, 0.904)
pt3dadd(70.999, 89.157, 2.359, 0.904)
pt3dadd(71.034, 89.248, 2.317, 0.904)
pt3dadd(71.055, 89.3, 2.242, 0.904)
pt3dadd(71.09, 89.284, 2.246, 0.904)
pt3dadd(71.109, 89.327, 2.163, 0.904)
pt3dadd(71.128, 89.37, 2.08, 0.904)
pt3dadd(71.115, 89.387, 2.006, 0.904)
pt3dadd(71.062, 89.371, 1.941, 0.904)
pt3dadd(71.017, 89.361, 1.871, 0.904)
pt3dadd(70.998, 89.415, 1.817, 0.904)
pt3dadd(70.981, 89.495, 1.777, 0.904)
pt3dadd(70.947, 89.517, 1.709, 0.904)
pt3dadd(70.911, 89.529, 1.635, 0.904)
pt3dadd(70.899, 89.54, 1.549, 0.904)
pt3dadd(70.887, 89.55, 1.463, 0.904)
pt3dadd(70.939, 89.649, 1.445, 0.904)
pt3dadd(70.992, 89.749, 1.428, 0.904)
pt3dadd(71.11, 89.809, 1.427, 0.904)
pt3dadd(71.145, 89.696, 1.37, 0.312)
pt3dadd(71.18, 89.584, 1.313, 0.396)
pt3dadd(71.215, 89.472, 1.256, 0.482)
pt3dadd(71.249, 89.36, 1.2, 0.568)
pt3dadd(71.284, 89.248, 1.143, 0.652)
pt3dadd(71.319, 89.113, 1.13, 0.682)
pt3dadd(71.354, 88.978, 1.116, 0.71)
pt3dadd(71.388, 88.962, 1.119, 0.71)
pt3dadd(71.423, 88.828, 1.106, 0.74)
pt3dadd(71.458, 88.693, 1.093, 0.768)
pt3dadd(71.493, 88.558, 1.08, 0.798)
pt3dadd(71.528, 88.424, 1.067, 0.826)
pt3dadd(71.562, 88.289, 1.057, 0.828)
pt3dadd(71.597, 88.153, 1.048, 0.828)
pt3dadd(71.632, 88.019, 1.034, 0.82)
pt3dadd(71.667, 87.89, 1.004, 0.776)
pt3dadd(71.702, 87.76, 0.974, 0.734)
pt3dadd(71.736, 87.633, 0.939, 0.69)
pt3dadd(71.771, 87.507, 0.904, 0.646)
pt3dadd(71.78, 87.405, 0.847, 0.628)
pt3dadd(71.77, 87.322, 0.776, 0.628)
pt3dadd(71.776, 87.285, 0.687, 0.64)
pt3dadd(71.79, 87.246, 0.597, 0.658)
pt3dadd(71.825, 87.149, 0.527, 0.682)
pt3dadd(71.858, 87.051, 0.457, 0.706)
pt3dadd(71.865, 86.964, 0.383, 0.746)
pt3dadd(71.855, 86.887, 0.317, 0.788)
pt3dadd(71.781, 86.852, 0.282, 0.836)
pt3dadd(71.706, 86.813, 0.248, 0.884)
pt3dadd(71.642, 86.754, 0.209, 0.924)
pt3dadd(71.6, 86.699, 0.156, 0.954)
pt3dadd(71.634, 86.683, 0.159, 0.954)
pt3dadd(71.669, 86.667, 0.162, 0.954)
pt3dadd(71.695, 86.626, 0.068, 0.954)
pt3dadd(71.705, 86.597, -0.025, 0.954)
pt3dadd(71.705, 86.575, -0.117, 0.954)
pt3dadd(71.693, 86.534, -0.199, 0.954)
pt3dadd(71.659, 86.457, -0.26, 0.954)
pt3dadd(71.641, 86.356, -0.307, 0.954)
pt3dadd(71.633, 86.239, -0.346, 0.954)
pt3dadd(71.59, 86.153, -0.386, 0.922)
pt3dadd(71.535, 86.077, -0.426, 0.88)
pt3dadd(71.541, 85.948, -0.439, 0.814)
pt3dadd(71.559, 85.817, -0.46, 0.762)
pt3dadd(71.587, 85.688, -0.491, 0.73)
pt3dadd(71.604, 85.562, -0.516, 0.7)
pt3dadd(71.575, 85.444, -0.518, 0.688)
pt3dadd(71.545, 85.328, -0.524, 0.68)
pt3dadd(71.506, 85.23, -0.558, 0.71)
pt3dadd(71.457, 85.14, -0.588, 0.736)
pt3dadd(71.388, 85.069, -0.607, 0.762)
pt3dadd(71.346, 85.008, -0.654, 0.784)
pt3dadd(71.346, 84.965, -0.744, 0.798)
pt3dadd(71.346, 84.922, -0.833, 0.812)
pt3dadd(71.346, 84.879, -0.923, 0.828)
pt3dadd(71.363, 84.845, -1.018, 0.81)
pt3dadd(71.381, 84.812, -1.113, 0.788)
pt3dadd(71.416, 84.796, -1.109, 0.788)
pt3dadd(71.414, 84.772, -1.199, 0.76)
pt3dadd(71.422, 84.756, -1.293, 0.754)
pt3dadd(71.436, 84.739, -1.388, 0.754)
pt3dadd(71.446, 84.722, -1.483, 0.762)
pt3dadd(71.44, 84.7, -1.573, 0.806)
pt3dadd(71.432, 84.678, -1.664, 0.852)
pt3dadd(71.459, 84.615, -1.752, 0.896)
pt3dadd(71.488, 84.55, -1.84, 0.942)
pt3dadd(71.521, 84.456, -1.91, 0.98)
pt3dadd(71.556, 84.352, -1.975, 1.016)
pt3dadd(71.57, 84.291, -2.057, 1.026)
pt3dadd(71.605, 84.275, -2.054, 1.026)
pt3dadd(71.606, 84.241, -2.146, 1.018)
pt3dadd(71.609, 84.206, -2.237, 1.012)
pt3dadd(71.61, 84.172, -2.329, 1.004)
pt3dadd(71.533, 84.112, -2.336, 0.97)
pt3dadd(71.457, 84.053, -2.343, 0.934)
pt3dadd(71.379, 84.016, -2.367, 0.904)
pt3dadd(71.298, 84, -2.389, 0.908)
pt3dadd(71.216, 83.984, -2.411, 0.914)
pt3dadd(71.135, 83.968, -2.433, 0.918)
pt3dadd(71.054, 83.951, -2.455, 0.922)
pt3dadd(70.973, 83.935, -2.477, 0.926)
pt3dadd(70.893, 83.919, -2.506, 0.93)
pt3dadd(70.82, 83.903, -2.545, 0.936)
pt3dadd(70.746, 83.886, -2.584, 0.94)
pt3dadd(70.671, 83.87, -2.623, 0.946)
pt3dadd(70.598, 83.854, -2.662, 0.95)
pt3dadd(70.524, 83.838, -2.7, 0.952)
pt3dadd(70.448, 83.822, -2.737, 0.932)
pt3dadd(70.373, 83.805, -2.773, 0.914)
pt3dadd(70.297, 83.789, -2.809, 0.896)
pt3dadd(70.223, 83.773, -2.846, 0.876)
pt3dadd(70.147, 83.757, -2.882, 0.858)
pt3dadd(70.077, 83.72, -2.924, 0.846)
pt3dadd(70.009, 83.677, -2.968, 0.834)
pt3dadd(70.044, 83.661, -2.964, 0.834)
pt3dadd(69.975, 83.618, -3.008, 0.822)
pt3dadd(69.908, 83.575, -3.051, 0.812)
pt3dadd(69.837, 83.539, -3.091, 0.81)
pt3dadd(69.758, 83.523, -3.121, 0.83)
pt3dadd(69.68, 83.507, -3.151, 0.852)
pt3dadd(69.602, 83.474, -3.179, 0.94)
pt3dadd(69.524, 83.439, -3.207, 1.034)
pt3dadd(69.458, 83.37, -3.229, 1.136)
pt3dadd(69.394, 83.291, -3.249, 1.242)
pt3dadd(69.37, 83.188, -3.292, 1.342)
pt3dadd(69.354, 83.086, -3.342, 1.44)
pt3dadd(69.333, 83.026, -3.42, 1.542)
pt3dadd(69.355, 82.926, -3.484, 1.598)
pt3dadd(69.384, 82.819, -3.546, 1.648)
pt3dadd(69.382, 82.704, -3.589, 1.668)
pt3dadd(69.374, 82.588, -3.627, 1.682)
pt3dadd(69.381, 82.521, -3.711, 1.67)
pt3dadd(69.39, 82.458, -3.797, 1.658)
pt3dadd(69.343, 82.434, -3.865, 1.61)
pt3dadd(69.292, 82.411, -3.932, 1.562)
pt3dadd(69.327, 82.395, -3.929, 1.562)
pt3dadd(69.336, 82.28, -3.968, 1.53)
pt3dadd(69.351, 82.155, -4.004, 1.502)
pt3dadd(69.367, 82.029, -4.039, 1.472)
pt3dadd(69.344, 81.932, -4.074, 1.418)
}
}
proc shape3d_176() {
dend_7[45] { pt3dadd(69.279, 81.866, -4.106, 1.338)
pt3dadd(69.21, 81.83, -4.144, 1.162)
pt3dadd(69.147, 81.76, -4.174, 1.08)
pt3dadd(69.086, 81.682, -4.202, 1.022)
pt3dadd(69.025, 81.604, -4.229, 0.962)
pt3dadd(68.964, 81.526, -4.257, 0.904)
pt3dadd(68.918, 81.434, -4.29, 0.858)
pt3dadd(68.953, 81.418, -4.287, 0.858)
pt3dadd(68.92, 81.315, -4.324, 0.822)
pt3dadd(68.888, 81.212, -4.361, 0.786)
pt3dadd(68.854, 81.109, -4.398, 0.75)
pt3dadd(68.889, 81.093, -4.394, 0.75)
pt3dadd(68.924, 81.077, -4.391, 0.75)
pt3dadd(68.909, 80.977, -4.442, 0.724)
pt3dadd(68.92, 80.883, -4.511, 0.712)
pt3dadd(68.931, 80.788, -4.581, 0.7)
pt3dadd(68.941, 80.693, -4.651, 0.69)
pt3dadd(68.951, 80.598, -4.72, 0.678)
pt3dadd(68.986, 80.482, -4.772, 0.692)
pt3dadd(69.021, 80.366, -4.824, 0.708)
pt3dadd(69.056, 80.249, -4.876, 0.722)
pt3dadd(69.09, 80.233, -4.873, 0.722)
pt3dadd(69.125, 80.117, -4.925, 0.738)
pt3dadd(69.16, 80, -4.976, 0.752)
pt3dadd(69.195, 79.873, -5.011, 0.754)
pt3dadd(69.23, 79.746, -5.045, 0.754)
pt3dadd(69.264, 79.618, -5.079, 0.754)
pt3dadd(69.299, 79.49, -5.113, 0.754)
pt3dadd(69.334, 79.363, -5.147, 0.754)
pt3dadd(69.369, 79.231, -5.168, 0.744)
pt3dadd(69.404, 79.096, -5.177, 0.724)
pt3dadd(69.438, 78.96, -5.186, 0.706)
pt3dadd(69.473, 78.824, -5.185, 0.682)
pt3dadd(69.508, 78.688, -5.181, 0.656)
pt3dadd(69.543, 78.552, -5.178, 0.632)
pt3dadd(69.574, 78.416, -5.175, 0.628)
pt3dadd(69.604, 78.28, -5.172, 0.628)
pt3dadd(69.634, 78.143, -5.169, 0.628)
pt3dadd(69.596, 78.05, -5.208, 0.656)
pt3dadd(69.564, 77.967, -5.26, 0.684)
pt3dadd(69.573, 77.921, -5.351, 0.712)
pt3dadd(69.581, 77.875, -5.443, 0.74)
pt3dadd(69.59, 77.828, -5.534, 0.77)
pt3dadd(69.616, 77.756, -5.617, 0.81)
pt3dadd(69.651, 77.672, -5.696, 0.856)
pt3dadd(69.686, 77.562, -5.744, 0.886)
pt3dadd(69.72, 77.43, -5.765, 0.902)
pt3dadd(69.755, 77.297, -5.785, 0.918)
pt3dadd(69.79, 77.163, -5.803, 0.926)
pt3dadd(69.825, 77.028, -5.812, 0.906)
pt3dadd(69.859, 76.893, -5.821, 0.888)
pt3dadd(69.861, 76.767, -5.824, 0.86)
pt3dadd(69.831, 76.649, -5.821, 0.826)
pt3dadd(69.801, 76.532, -5.817, 0.792)
pt3dadd(69.78, 76.415, -5.837, 0.754)
pt3dadd(69.766, 76.299, -5.869, 0.712)
pt3dadd(69.718, 76.211, -5.9, 0.648)
pt3dadd(69.645, 76.148, -5.919, 0.624)
pt3dadd(69.586, 76.077, -5.945, 0.598)
pt3dadd(69.593, 75.969, -6.001, 0.572)
pt3dadd(69.607, 75.869, -6.065, 0.552)
pt3dadd(69.642, 75.792, -6.148, 0.552)
pt3dadd(69.677, 75.713, -6.229, 0.558)
pt3dadd(69.712, 75.615, -6.299, 0.604)
pt3dadd(69.747, 75.517, -6.37, 0.652)
pt3dadd(69.781, 75.382, -6.37, 0.674)
pt3dadd(69.816, 75.246, -6.369, 0.694)
pt3dadd(69.851, 75.109, -6.368, 0.714)
pt3dadd(69.886, 74.973, -6.367, 0.734)
pt3dadd(69.921, 74.837, -6.366, 0.756)
pt3dadd(69.955, 74.701, -6.363, 0.798)
pt3dadd(69.99, 74.565, -6.36, 0.84)
pt3dadd(70.025, 74.429, -6.36, 0.88)
pt3dadd(70.06, 74.299, -6.388, 0.896)
pt3dadd(70.094, 74.169, -6.416, 0.912)
pt3dadd(70.129, 74.039, -6.445, 0.928)
pt3dadd(70.164, 73.933, -6.507, 0.962)
pt3dadd(70.199, 73.829, -6.572, 0.998)
pt3dadd(70.234, 73.732, -6.642, 0.976)
pt3dadd(70.268, 73.613, -6.69, 0.942)
pt3dadd(70.303, 73.493, -6.737, 0.908)
pt3dadd(70.332, 73.39, -6.803, 0.848)
pt3dadd(70.361, 73.289, -6.87, 0.788)
pt3dadd(70.303, 73.221, -6.896, 0.756)
pt3dadd(70.23, 73.158, -6.915, 0.732)
pt3dadd(70.197, 73.046, -6.915, 0.738)
pt3dadd(70.172, 72.926, -6.912, 0.75)
pt3dadd(70.171, 72.797, -6.914, 0.766)
pt3dadd(70.182, 72.664, -6.92, 0.784)
pt3dadd(70.194, 72.53, -6.925, 0.804)
pt3dadd(70.205, 72.397, -6.93, 0.822)
pt3dadd(70.172, 72.335, -6.976, 0.846)
pt3dadd(70.119, 72.305, -7.04, 0.872)
pt3dadd(70.071, 72.234, -7.084, 0.932)
pt3dadd(70.069, 72.122, -7.133, 0.948)
pt3dadd(70.067, 72.01, -7.181, 0.966)
pt3dadd(70.064, 71.898, -7.229, 0.984)
pt3dadd(70.062, 71.786, -7.278, 1)
pt3dadd(70.089, 71.685, -7.344, 1.052)
pt3dadd(70.124, 71.587, -7.414, 1.112)
pt3dadd(70.112, 71.509, -7.481, 1.168)
pt3dadd(70.08, 71.44, -7.547, 1.226)
pt3dadd(70.057, 71.322, -7.555, 1.23)
pt3dadd(70.035, 71.2, -7.557, 1.23)
pt3dadd(70.032, 71.071, -7.558, 1.18)
pt3dadd(70.032, 70.94, -7.56, 1.116)
pt3dadd(70.038, 70.848, -7.603, 1.052)
pt3dadd(70.073, 70.831, -7.599, 1.052)
pt3dadd(70.085, 70.786, -7.691, 0.988)
pt3dadd(70.098, 70.74, -7.783, 0.926)
pt3dadd(70.111, 70.694, -7.875, 0.864)
pt3dadd(70.069, 70.612, -7.913, 0.75)
pt3dadd(70.015, 70.523, -7.94, 0.626)
pt3dadd(69.987, 70.424, -7.985, 0.582)
pt3dadd(69.962, 70.336, -8.045, 0.596)
pt3dadd(69.938, 70.248, -8.105, 0.608)
pt3dadd(69.914, 70.159, -8.164, 0.62)
pt3dadd(69.888, 70.075, -8.226, 0.636)
pt3dadd(69.858, 70, -8.291, 0.662)
pt3dadd(69.826, 69.925, -8.356, 0.686)
pt3dadd(69.796, 69.85, -8.42, 0.71)
pt3dadd(69.769, 69.768, -8.482, 0.726)
pt3dadd(69.752, 69.668, -8.536, 0.72)
pt3dadd(69.735, 69.567, -8.589, 0.714)
pt3dadd(69.718, 69.467, -8.643, 0.708)
pt3dadd(69.705, 69.369, -8.699, 0.704)
pt3dadd(69.74, 69.353, -8.696, 0.704)
pt3dadd(69.747, 69.267, -8.771, 0.704)
pt3dadd(69.754, 69.181, -8.846, 0.704)
pt3dadd(69.762, 69.095, -8.921, 0.704)
pt3dadd(69.77, 69.009, -8.996, 0.704)
pt3dadd(69.78, 68.949, -9.082, 0.71)
pt3dadd(69.789, 68.897, -9.173, 0.72)
pt3dadd(69.8, 68.845, -9.263, 0.732)
pt3dadd(69.81, 68.794, -9.353, 0.742)
pt3dadd(69.82, 68.742, -9.443, 0.752)
pt3dadd(69.806, 68.698, -9.528, 0.782)
pt3dadd(69.789, 68.656, -9.612, 0.814)
pt3dadd(69.771, 68.614, -9.696, 0.848)
pt3dadd(69.753, 68.571, -9.78, 0.88)
pt3dadd(69.747, 68.536, -9.868, 0.914)
pt3dadd(69.766, 68.52, -9.964, 0.952)
pt3dadd(69.787, 68.504, -10.06, 0.99)
pt3dadd(69.757, 68.488, -10.13, 1.026)
pt3dadd(69.692, 68.471, -10.184, 1.06)
pt3dadd(69.62, 68.455, -10.216, 1.08)
pt3dadd(69.535, 68.439, -10.221, 1.08)
pt3dadd(69.449, 68.423, -10.226, 1.08)
pt3dadd(69.369, 68.406, -10.247, 1.066)
pt3dadd(69.291, 68.39, -10.276, 1.044)
pt3dadd(69.211, 68.374, -10.3, 1.01)
pt3dadd(69.125, 68.358, -10.309, 0.94)
pt3dadd(69.05, 68.342, -10.337, 0.89)
pt3dadd(68.98, 68.325, -10.384, 0.86)
pt3dadd(68.91, 68.309, -10.431, 0.83)
pt3dadd(68.842, 68.293, -10.477, 0.8)
pt3dadd(68.772, 68.277, -10.524, 0.772)
pt3dadd(68.702, 68.261, -10.569, 0.746)
pt3dadd(68.63, 68.244, -10.61, 0.726)
pt3dadd(68.556, 68.228, -10.652, 0.708)
pt3dadd(68.484, 68.212, -10.693, 0.688)
pt3dadd(68.411, 68.196, -10.735, 0.67)
pt3dadd(68.446, 68.179, -10.732, 0.67)
pt3dadd(68.372, 68.163, -10.767, 0.652)
pt3dadd(68.286, 68.147, -10.767, 0.642)
pt3dadd(68.201, 68.131, -10.768, 0.634)
pt3dadd(68.122, 68.115, -10.783, 0.634)
pt3dadd(68.058, 68.098, -10.836, 0.658)
pt3dadd(67.998, 68.082, -10.893, 0.682)
pt3dadd(67.98, 68.066, -10.979, 0.716)
pt3dadd(67.961, 68.05, -11.065, 0.748)
pt3dadd(67.94, 68.039, -11.151, 0.764)
pt3dadd(67.919, 68.029, -11.236, 0.776)
pt3dadd(67.914, 68.078, -11.303, 0.764)
pt3dadd(67.924, 68.136, -11.374, 0.734)
pt3dadd(67.938, 68.18, -11.455, 0.696)
pt3dadd(67.916, 68.203, -11.525, 0.658)
pt3dadd(67.86, 68.208, -11.585, 0.618)
pt3dadd(67.792, 68.224, -11.62, 0.596)
pt3dadd(67.716, 68.246, -11.639, 0.584)
pt3dadd(67.638, 68.248, -11.66, 0.578)
pt3dadd(67.558, 68.231, -11.685, 0.578)
pt3dadd(67.476, 68.215, -11.705, 0.582)
pt3dadd(67.391, 68.199, -11.702, 0.62)
pt3dadd(67.306, 68.183, -11.699, 0.654)
pt3dadd(67.221, 68.166, -11.698, 0.662)
pt3dadd(67.135, 68.15, -11.696, 0.668)
pt3dadd(67.05, 68.134, -11.694, 0.676)
pt3dadd(66.965, 68.118, -11.693, 0.682)
pt3dadd(66.88, 68.102, -11.691, 0.69)
pt3dadd(66.795, 68.085, -11.69, 0.698)
pt3dadd(66.712, 68.069, -11.696, 0.704)
pt3dadd(66.634, 68.053, -11.728, 0.708)
pt3dadd(66.556, 68.037, -11.759, 0.714)
pt3dadd(66.478, 68.021, -11.79, 0.718)
pt3dadd(66.4, 68.004, -11.822, 0.722)
pt3dadd(66.323, 67.988, -11.854, 0.728)
pt3dadd(66.24, 67.972, -11.871, 0.712)
pt3dadd(66.156, 67.956, -11.885, 0.694)
pt3dadd(66.084, 67.939, -11.912, 0.674)
}
}
proc shape3d_177() {
dend_7[45] { pt3dadd(66.059, 67.923, -11.995, 0.65)
pt3dadd(66.033, 67.907, -12.078, 0.628)
pt3dadd(66.051, 67.868, -12.172, 0.628)
pt3dadd(66.067, 67.828, -12.266, 0.628)
pt3dadd(66.06, 67.737, -12.321, 0.638)
pt3dadd(66.045, 67.626, -12.361, 0.652)
pt3dadd(65.98, 67.596, -12.406, 0.652)
pt3dadd(65.911, 67.576, -12.453, 0.652)
pt3dadd(65.842, 67.556, -12.499, 0.652)
pt3dadd(65.772, 67.537, -12.546, 0.642)
pt3dadd(65.704, 67.521, -12.594, 0.608)
pt3dadd(65.64, 67.511, -12.644, 0.572)
pt3dadd(65.611, 67.547, -12.713, 0.516)
pt3dadd(65.581, 67.583, -12.782, 0.462)
pt3dadd(65.605, 67.674, -12.801, 0.268)
}
dend_7[46] {pt3dclear()
pt3dadd(79.606, 92.645, 9.732, 1.13)
pt3dadd(79.595, 92.629, 9.781, 1.122)
pt3dadd(79.573, 92.598, 9.875, 1.104)
pt3dadd(79.551, 92.567, 9.97, 1.086)
pt3dadd(79.529, 92.535, 10.065, 1.068)
pt3dadd(79.504, 92.504, 10.159, 1.05)
pt3dadd(79.467, 92.472, 10.25, 1.032)
pt3dadd(79.429, 92.44, 10.342, 1.012)
pt3dadd(79.392, 92.408, 10.433, 0.992)
pt3dadd(79.355, 92.375, 10.524, 0.974)
pt3dadd(79.318, 92.343, 10.615, 0.954)
pt3dadd(79.281, 92.311, 10.707, 0.934)
pt3dadd(79.244, 92.279, 10.798, 0.916)
pt3dadd(79.207, 92.247, 10.889, 0.896)
pt3dadd(79.17, 92.215, 10.98, 0.876)
pt3dadd(79.057, 92.192, 11.003, 0.856)
pt3dadd(78.942, 92.17, 11.024, 0.838)
pt3dadd(78.826, 92.148, 11.045, 0.818)
pt3dadd(78.711, 92.126, 11.066, 0.798)
pt3dadd(78.596, 92.103, 11.087, 0.778)
pt3dadd(78.481, 92.081, 11.108, 0.758)
pt3dadd(78.366, 92.059, 11.129, 0.738)
pt3dadd(78.25, 92.037, 11.15, 0.718)
pt3dadd(78.135, 92.015, 11.171, 0.698)
pt3dadd(78.02, 91.992, 11.193, 0.678)
pt3dadd(77.913, 91.962, 11.23, 0.674)
pt3dadd(77.806, 91.932, 11.268, 0.67)
pt3dadd(77.699, 91.901, 11.306, 0.666)
pt3dadd(77.592, 91.871, 11.343, 0.662)
pt3dadd(77.486, 91.84, 11.381, 0.658)
pt3dadd(77.379, 91.81, 11.419, 0.654)
pt3dadd(77.272, 91.779, 11.457, 0.65)
pt3dadd(77.165, 91.749, 11.495, 0.646)
pt3dadd(77.058, 91.718, 11.532, 0.642)
pt3dadd(76.952, 91.687, 11.569, 0.636)
pt3dadd(76.851, 91.625, 11.589, 0.596)
pt3dadd(76.751, 91.563, 11.608, 0.556)
pt3dadd(76.651, 91.501, 11.627, 0.514)
pt3dadd(76.551, 91.439, 11.646, 0.474)
pt3dadd(76.45, 91.377, 11.665, 0.434)
pt3dadd(76.35, 91.316, 11.684, 0.392)
pt3dadd(76.25, 91.254, 11.704, 0.352)
pt3dadd(76.15, 91.192, 11.723, 0.31)
pt3dadd(76.05, 91.13, 11.742, 0.27)
pt3dadd(75.95, 91.068, 11.76, 0.232)
pt3dadd(75.858, 90.99, 11.765, 0.27)
pt3dadd(75.767, 90.913, 11.769, 0.308)
pt3dadd(75.675, 90.835, 11.773, 0.346)
pt3dadd(75.584, 90.757, 11.777, 0.384)
pt3dadd(75.493, 90.68, 11.781, 0.422)
pt3dadd(75.401, 90.602, 11.785, 0.46)
pt3dadd(75.31, 90.525, 11.789, 0.498)
pt3dadd(75.218, 90.447, 11.793, 0.536)
pt3dadd(75.127, 90.369, 11.798, 0.574)
pt3dadd(75.036, 90.292, 11.801, 0.61)
pt3dadd(74.947, 90.211, 11.795, 0.584)
pt3dadd(74.859, 90.13, 11.788, 0.556)
pt3dadd(74.771, 90.049, 11.782, 0.53)
pt3dadd(74.682, 89.968, 11.775, 0.504)
pt3dadd(74.594, 89.887, 11.769, 0.478)
pt3dadd(74.506, 89.807, 11.762, 0.452)
pt3dadd(74.417, 89.726, 11.756, 0.424)
pt3dadd(74.329, 89.645, 11.75, 0.398)
pt3dadd(74.241, 89.564, 11.743, 0.372)
pt3dadd(74.152, 89.484, 11.735, 0.35)
pt3dadd(74.067, 89.411, 11.699, 0.4)
pt3dadd(73.982, 89.338, 11.664, 0.45)
pt3dadd(73.897, 89.265, 11.628, 0.502)
pt3dadd(73.812, 89.192, 11.593, 0.552)
pt3dadd(73.727, 89.119, 11.557, 0.602)
pt3dadd(73.642, 89.046, 11.521, 0.654)
pt3dadd(73.557, 88.973, 11.486, 0.704)
pt3dadd(73.471, 88.9, 11.45, 0.754)
pt3dadd(73.386, 88.827, 11.414, 0.804)
pt3dadd(73.297, 88.758, 11.382, 0.842)
pt3dadd(73.193, 88.702, 11.363, 0.834)
pt3dadd(73.089, 88.647, 11.343, 0.824)
pt3dadd(72.986, 88.592, 11.323, 0.816)
pt3dadd(72.882, 88.536, 11.304, 0.808)
pt3dadd(72.778, 88.481, 11.284, 0.798)
pt3dadd(72.674, 88.426, 11.265, 0.79)
pt3dadd(72.57, 88.371, 11.245, 0.78)
pt3dadd(72.466, 88.315, 11.225, 0.772)
pt3dadd(72.362, 88.26, 11.206, 0.764)
pt3dadd(72.266, 88.196, 11.206, 0.758)
pt3dadd(72.181, 88.12, 11.237, 0.76)
pt3dadd(72.096, 88.044, 11.268, 0.762)
pt3dadd(72.012, 87.967, 11.299, 0.766)
pt3dadd(71.927, 87.891, 11.33, 0.768)
pt3dadd(71.842, 87.814, 11.361, 0.77)
pt3dadd(71.758, 87.738, 11.392, 0.772)
pt3dadd(71.673, 87.661, 11.422, 0.774)
pt3dadd(71.588, 87.585, 11.453, 0.776)
pt3dadd(71.503, 87.508, 11.484, 0.778)
pt3dadd(71.473, 87.406, 11.527, 0.726)
pt3dadd(71.448, 87.301, 11.571, 0.67)
pt3dadd(71.424, 87.196, 11.615, 0.614)
pt3dadd(71.399, 87.091, 11.659, 0.556)
pt3dadd(71.374, 86.986, 11.703, 0.5)
pt3dadd(71.349, 86.882, 11.747, 0.444)
pt3dadd(71.324, 86.777, 11.791, 0.388)
pt3dadd(71.299, 86.672, 11.835, 0.33)
pt3dadd(71.274, 86.567, 11.879, 0.274)
pt3dadd(71.236, 86.472, 11.914, 0.23)
pt3dadd(71.124, 86.434, 11.9, 0.258)
pt3dadd(71.011, 86.395, 11.886, 0.284)
pt3dadd(70.899, 86.357, 11.872, 0.312)
pt3dadd(70.786, 86.319, 11.858, 0.338)
pt3dadd(70.674, 86.28, 11.844, 0.366)
pt3dadd(70.561, 86.242, 11.83, 0.394)
pt3dadd(70.449, 86.204, 11.816, 0.42)
pt3dadd(70.336, 86.166, 11.802, 0.448)
pt3dadd(70.266, 86.076, 11.781, 0.452)
pt3dadd(70.204, 85.977, 11.758, 0.452)
pt3dadd(70.141, 85.878, 11.736, 0.452)
pt3dadd(70.078, 85.78, 11.714, 0.452)
pt3dadd(70.007, 85.686, 11.7, 0.452)
pt3dadd(69.924, 85.6, 11.7, 0.452)
pt3dadd(69.84, 85.514, 11.7, 0.452)
pt3dadd(69.757, 85.427, 11.7, 0.452)
pt3dadd(69.673, 85.341, 11.7, 0.452)
pt3dadd(69.583, 85.264, 11.709, 0.452)
pt3dadd(69.485, 85.199, 11.729, 0.452)
pt3dadd(69.387, 85.134, 11.748, 0.452)
pt3dadd(69.29, 85.069, 11.768, 0.452)
pt3dadd(69.192, 85.003, 11.788, 0.452)
pt3dadd(69.099, 84.928, 11.791, 0.452)
pt3dadd(69.006, 84.851, 11.793, 0.452)
pt3dadd(68.914, 84.775, 11.796, 0.452)
pt3dadd(68.821, 84.699, 11.798, 0.452)
pt3dadd(68.727, 84.624, 11.8, 0.452)
pt3dadd(68.619, 84.573, 11.8, 0.452)
pt3dadd(68.51, 84.523, 11.8, 0.452)
pt3dadd(68.401, 84.472, 11.8, 0.452)
pt3dadd(68.292, 84.422, 11.8, 0.452)
pt3dadd(68.184, 84.371, 11.8, 0.452)
pt3dadd(68.078, 84.313, 11.8, 0.452)
pt3dadd(67.974, 84.253, 11.8, 0.452)
pt3dadd(67.87, 84.193, 11.8, 0.452)
pt3dadd(67.766, 84.134, 11.8, 0.452)
pt3dadd(67.662, 84.074, 11.8, 0.452)
pt3dadd(67.554, 84.036, 11.821, 0.452)
pt3dadd(67.444, 84.01, 11.854, 0.452)
pt3dadd(67.334, 83.973, 11.876, 0.452)
pt3dadd(67.224, 83.928, 11.892, 0.452)
pt3dadd(67.141, 83.851, 11.9, 0.452)
pt3dadd(67.08, 83.748, 11.9, 0.452)
pt3dadd(67.022, 83.643, 11.9, 0.452)
pt3dadd(66.968, 83.536, 11.9, 0.452)
pt3dadd(66.911, 83.431, 11.9, 0.452)
pt3dadd(66.826, 83.346, 11.9, 0.452)
pt3dadd(66.733, 83.27, 11.9, 0.452)
pt3dadd(66.637, 83.198, 11.9, 0.452)
pt3dadd(66.541, 83.126, 11.9, 0.452)
pt3dadd(66.445, 83.054, 11.9, 0.452)
pt3dadd(66.349, 82.982, 11.9, 0.452)
pt3dadd(66.257, 82.906, 11.9, 0.452)
pt3dadd(66.165, 82.828, 11.9, 0.452)
pt3dadd(66.074, 82.75, 11.9, 0.452)
pt3dadd(65.983, 82.672, 11.9, 0.452)
pt3dadd(65.891, 82.594, 11.9, 0.452)
pt3dadd(65.8, 82.517, 11.9, 0.452)
pt3dadd(65.709, 82.439, 11.9, 0.452)
pt3dadd(65.618, 82.361, 11.9, 0.452)
pt3dadd(65.526, 82.283, 11.9, 0.452)
pt3dadd(65.435, 82.205, 11.9, 0.452)
pt3dadd(65.35, 82.121, 11.9, 0.452)
pt3dadd(65.266, 82.035, 11.9, 0.452)
pt3dadd(65.183, 81.948, 11.9, 0.452)
pt3dadd(65.099, 81.862, 11.9, 0.452)
pt3dadd(65.016, 81.776, 11.9, 0.452)
pt3dadd(64.926, 81.697, 11.9, 0.452)
pt3dadd(64.835, 81.619, 11.9, 0.452)
pt3dadd(64.743, 81.541, 11.9, 0.452)
pt3dadd(64.652, 81.463, 11.9, 0.452)
pt3dadd(64.561, 81.385, 11.9, 0.452)
pt3dadd(64.467, 81.31, 11.9, 0.452)
pt3dadd(64.374, 81.235, 11.9, 0.452)
pt3dadd(64.28, 81.16, 11.9, 0.452)
pt3dadd(64.186, 81.085, 11.9, 0.452)
pt3dadd(64.092, 81.01, 11.9, 0.452)
pt3dadd(63.981, 80.969, 11.9, 0.452)
pt3dadd(63.866, 80.933, 11.9, 0.452)
pt3dadd(63.752, 80.897, 11.9, 0.452)
pt3dadd(63.637, 80.862, 11.9, 0.452)
}
}
proc shape3d_178() {
dend_7[46] { pt3dadd(63.522, 80.826, 11.9, 0.452)
pt3dadd(63.417, 80.776, 11.9, 0.452)
pt3dadd(63.333, 80.69, 11.9, 0.452)
pt3dadd(63.25, 80.604, 11.9, 0.452)
pt3dadd(63.166, 80.517, 11.9, 0.452)
pt3dadd(63.083, 80.431, 11.9, 0.452)
pt3dadd(62.996, 80.349, 11.9, 0.452)
pt3dadd(62.889, 80.3, 11.9, 0.452)
pt3dadd(62.77, 80.281, 11.9, 0.452)
pt3dadd(62.65, 80.28, 11.9, 0.452)
pt3dadd(62.532, 80.266, 11.9, 0.452)
pt3dadd(62.439, 80.198, 11.9, 0.452)
pt3dadd(62.406, 80.084, 11.9, 0.452)
pt3dadd(62.4, 79.964, 11.9, 0.452)
pt3dadd(62.4, 79.844, 11.9, 0.452)
pt3dadd(62.4, 79.724, 11.9, 0.452)
pt3dadd(62.391, 79.605, 11.9, 0.452)
pt3dadd(62.362, 79.489, 11.9, 0.452)
pt3dadd(62.289, 79.395, 11.9, 0.452)
pt3dadd(62.208, 79.307, 11.9, 0.452)
pt3dadd(62.125, 79.22, 11.898, 0.452)
pt3dadd(62.035, 79.143, 11.881, 0.452)
pt3dadd(61.952, 79.065, 11.857, 0.452)
pt3dadd(61.923, 78.962, 11.816, 0.452)
pt3dadd(61.905, 78.846, 11.8, 0.452)
pt3dadd(61.866, 78.732, 11.8, 0.452)
pt3dadd(61.823, 78.621, 11.8, 0.452)
pt3dadd(61.79, 78.506, 11.8, 0.452)
pt3dadd(61.732, 78.404, 11.797, 0.452)
pt3dadd(61.625, 78.364, 11.774, 0.452)
pt3dadd(61.528, 78.36, 11.717, 0.452)
pt3dadd(61.461, 78.36, 11.635, 0.452)
pt3dadd(61.394, 78.36, 11.552, 0.452)
pt3dadd(61.295, 78.331, 11.51, 0.452)
pt3dadd(61.194, 78.268, 11.504, 0.452)
pt3dadd(61.092, 78.205, 11.5, 0.452)
pt3dadd(60.988, 78.144, 11.5, 0.452)
pt3dadd(60.885, 78.083, 11.5, 0.452)
pt3dadd(60.795, 78.005, 11.5, 0.452)
pt3dadd(60.717, 77.913, 11.5, 0.452)
pt3dadd(60.639, 77.822, 11.5, 0.452)
pt3dadd(60.561, 77.731, 11.5, 0.452)
pt3dadd(60.483, 77.64, 11.5, 0.452)
pt3dadd(60.403, 77.55, 11.5, 0.452)
pt3dadd(60.317, 77.467, 11.5, 0.452)
pt3dadd(60.231, 77.383, 11.5, 0.452)
pt3dadd(60.144, 77.3, 11.5, 0.452)
pt3dadd(60.058, 77.216, 11.5, 0.452)
pt3dadd(59.977, 77.132, 11.488, 0.452)
pt3dadd(59.907, 77.046, 11.451, 0.452)
pt3dadd(59.837, 76.959, 11.413, 0.452)
pt3dadd(59.766, 76.873, 11.376, 0.452)
pt3dadd(59.694, 76.788, 11.342, 0.452)
pt3dadd(59.607, 76.707, 11.324, 0.452)
pt3dadd(59.52, 76.627, 11.307, 0.452)
pt3dadd(59.434, 76.546, 11.29, 0.452)
pt3dadd(59.347, 76.466, 11.272, 0.452)
pt3dadd(59.269, 76.384, 11.241, 0.452)
pt3dadd(59.194, 76.302, 11.204, 0.452)
pt3dadd(59.101, 76.247, 11.161, 0.452)
pt3dadd(59.009, 76.194, 11.117, 0.452)
pt3dadd(58.956, 76.117, 11.053, 0.452)
pt3dadd(58.901, 76.032, 11.009, 0.452)
pt3dadd(58.845, 75.926, 11.004, 0.452)
pt3dadd(58.786, 75.822, 11, 0.452)
pt3dadd(58.711, 75.728, 11, 0.452)
pt3dadd(58.672, 75.617, 10.998, 0.452)
pt3dadd(58.644, 75.5, 10.997, 0.452)
pt3dadd(58.616, 75.384, 10.995, 0.452)
pt3dadd(58.588, 75.267, 10.993, 0.452)
pt3dadd(58.56, 75.15, 10.991, 0.452)
pt3dadd(58.531, 75.034, 10.988, 0.452)
pt3dadd(58.483, 74.927, 10.969, 0.452)
pt3dadd(58.434, 74.819, 10.95, 0.452)
pt3dadd(58.386, 74.711, 10.931, 0.452)
pt3dadd(58.338, 74.604, 10.912, 0.452)
pt3dadd(58.282, 74.502, 10.892, 0.452)
pt3dadd(58.209, 74.411, 10.869, 0.452)
pt3dadd(58.136, 74.319, 10.846, 0.452)
pt3dadd(58.063, 74.228, 10.824, 0.452)
pt3dadd(57.99, 74.137, 10.801, 0.452)
pt3dadd(57.882, 74.093, 10.78, 0.452)
pt3dadd(57.772, 74.051, 10.759, 0.452)
pt3dadd(57.663, 74.009, 10.738, 0.452)
pt3dadd(57.553, 73.967, 10.717, 0.452)
pt3dadd(57.442, 73.928, 10.7, 0.452)
pt3dadd(57.324, 73.903, 10.7, 0.452)
pt3dadd(57.207, 73.878, 10.7, 0.452)
pt3dadd(57.09, 73.854, 10.7, 0.452)
pt3dadd(56.972, 73.829, 10.7, 0.452)
pt3dadd(56.855, 73.804, 10.7, 0.452)
pt3dadd(56.741, 73.772, 10.693, 0.452)
pt3dadd(56.636, 73.722, 10.668, 0.452)
pt3dadd(56.531, 73.672, 10.644, 0.452)
pt3dadd(56.425, 73.622, 10.62, 0.452)
pt3dadd(56.32, 73.573, 10.595, 0.452)
pt3dadd(56.219, 73.519, 10.566, 0.452)
pt3dadd(56.118, 73.464, 10.536, 0.452)
pt3dadd(56.018, 73.41, 10.505, 0.452)
pt3dadd(55.918, 73.355, 10.475, 0.452)
pt3dadd(55.837, 73.32, 10.422, 0.452)
pt3dadd(55.79, 73.32, 10.33, 0.452)
pt3dadd(55.74, 73.316, 10.243, 0.452)
pt3dadd(55.642, 73.253, 10.219, 0.452)
pt3dadd(55.544, 73.188, 10.2, 0.452)
pt3dadd(55.451, 73.113, 10.2, 0.452)
pt3dadd(55.356, 73.039, 10.2, 0.452)
pt3dadd(55.243, 72.999, 10.2, 0.452)
pt3dadd(55.13, 72.959, 10.2, 0.452)
pt3dadd(55.017, 72.918, 10.2, 0.452)
pt3dadd(54.905, 72.876, 10.2, 0.452)
pt3dadd(54.79, 72.843, 10.2, 0.452)
pt3dadd(54.674, 72.81, 10.2, 0.452)
pt3dadd(54.559, 72.777, 10.2, 0.452)
pt3dadd(54.443, 72.744, 10.2, 0.452)
pt3dadd(54.327, 72.716, 10.2, 0.452)
pt3dadd(54.208, 72.701, 10.2, 0.452)
pt3dadd(54.089, 72.686, 10.2, 0.452)
pt3dadd(54, 72.622, 10.2, 0.452)
pt3dadd(53.932, 72.523, 10.2, 0.452)
pt3dadd(53.875, 72.418, 10.2, 0.452)
pt3dadd(53.832, 72.306, 10.2, 0.452)
pt3dadd(53.733, 72.243, 10.2, 0.452)
pt3dadd(53.628, 72.186, 10.2, 0.452)
pt3dadd(53.522, 72.13, 10.2, 0.452)
pt3dadd(53.416, 72.073, 10.2, 0.452)
pt3dadd(53.31, 72.016, 10.2, 0.452)
pt3dadd(53.196, 71.984, 10.2, 0.452)
pt3dadd(53.078, 71.962, 10.2, 0.452)
pt3dadd(52.96, 71.94, 10.2, 0.452)
pt3dadd(52.842, 71.917, 10.2, 0.452)
pt3dadd(52.724, 71.895, 10.2, 0.452)
pt3dadd(52.606, 71.873, 10.2, 0.452)
pt3dadd(52.501, 71.824, 10.184, 0.452)
pt3dadd(52.4, 71.765, 10.162, 0.452)
pt3dadd(52.299, 71.705, 10.139, 0.452)
pt3dadd(52.198, 71.646, 10.117, 0.452)
pt3dadd(52.112, 71.574, 10.099, 0.452)
pt3dadd(52.078, 71.459, 10.094, 0.452)
pt3dadd(52.043, 71.345, 10.089, 0.452)
pt3dadd(51.961, 71.3, 10.034, 0.452)
pt3dadd(51.872, 71.263, 9.974, 0.452)
pt3dadd(51.777, 71.211, 9.932, 0.452)
pt3dadd(51.677, 71.163, 9.9, 0.452)
pt3dadd(51.564, 71.123, 9.9, 0.452)
pt3dadd(51.45, 71.084, 9.9, 0.452)
pt3dadd(51.348, 71.021, 9.9, 0.452)
pt3dadd(51.272, 70.936, 9.9, 0.452)
pt3dadd(51.225, 70.825, 9.9, 0.452)
pt3dadd(51.167, 70.73, 9.9, 0.452)
pt3dadd(51.048, 70.709, 9.9, 0.452)
pt3dadd(50.93, 70.689, 9.9, 0.452)
pt3dadd(50.82, 70.645, 9.9, 0.452)
pt3dadd(50.717, 70.584, 9.9, 0.452)
pt3dadd(50.65, 70.501, 9.9, 0.452)
pt3dadd(50.64, 70.381, 9.9, 0.452)
pt3dadd(50.631, 70.262, 9.9, 0.452)
pt3dadd(50.601, 70.146, 9.9, 0.452)
pt3dadd(50.559, 70.034, 9.9, 0.452)
pt3dadd(50.531, 69.918, 9.9, 0.452)
pt3dadd(50.504, 69.801, 9.9, 0.452)
pt3dadd(50.476, 69.684, 9.9, 0.452)
pt3dadd(50.449, 69.567, 9.9, 0.452)
pt3dadd(50.421, 69.45, 9.9, 0.452)
pt3dadd(50.382, 69.34, 9.9, 0.452)
pt3dadd(50.301, 69.251, 9.9, 0.452)
pt3dadd(50.22, 69.162, 9.9, 0.452)
pt3dadd(50.139, 69.073, 9.9, 0.452)
pt3dadd(50.059, 68.985, 9.9, 0.452)
pt3dadd(49.978, 68.896, 9.9, 0.452)
pt3dadd(49.897, 68.807, 9.9, 0.452)
pt3dadd(49.817, 68.718, 9.9, 0.452)
pt3dadd(49.736, 68.629, 9.9, 0.452)
pt3dadd(49.655, 68.541, 9.9, 0.452)
pt3dadd(49.571, 68.455, 9.9, 0.452)
pt3dadd(49.48, 68.377, 9.9, 0.452)
pt3dadd(49.388, 68.3, 9.9, 0.452)
pt3dadd(49.297, 68.222, 9.9, 0.452)
pt3dadd(49.206, 68.144, 9.9, 0.452)
pt3dadd(49.106, 68.084, 9.9, 0.452)
pt3dadd(48.989, 68.057, 9.9, 0.452)
pt3dadd(48.872, 68.031, 9.9, 0.452)
pt3dadd(48.784, 67.952, 9.9, 0.452)
pt3dadd(48.703, 67.864, 9.9, 0.452)
pt3dadd(48.641, 67.762, 9.9, 0.452)
pt3dadd(48.588, 67.655, 9.9, 0.452)
pt3dadd(48.544, 67.544, 9.9, 0.452)
pt3dadd(48.511, 67.428, 9.9, 0.452)
pt3dadd(48.479, 67.313, 9.9, 0.452)
pt3dadd(48.455, 67.195, 9.9, 0.452)
pt3dadd(48.417, 67.083, 9.9, 0.452)
pt3dadd(48.354, 66.981, 9.9, 0.452)
pt3dadd(48.292, 66.879, 9.9, 0.452)
pt3dadd(48.229, 66.777, 9.9, 0.452)
pt3dadd(48.166, 66.675, 9.9, 0.452)
pt3dadd(48.107, 66.57, 9.896, 0.452)
pt3dadd(48.061, 66.461, 9.883, 0.452)
pt3dadd(48.014, 66.351, 9.869, 0.452)
pt3dadd(47.968, 66.242, 9.855, 0.452)
pt3dadd(47.921, 66.133, 9.842, 0.452)
}
}
proc shape3d_179() {
dend_7[46] { pt3dadd(47.866, 66.028, 9.83, 0.452)
pt3dadd(47.796, 65.931, 9.824, 0.452)
pt3dadd(47.727, 65.833, 9.817, 0.452)
pt3dadd(47.657, 65.736, 9.81, 0.452)
pt3dadd(47.587, 65.638, 9.803, 0.452)
pt3dadd(47.527, 65.535, 9.8, 0.452)
pt3dadd(47.474, 65.428, 9.8, 0.452)
pt3dadd(47.42, 65.32, 9.8, 0.452)
pt3dadd(47.366, 65.213, 9.8, 0.452)
pt3dadd(47.309, 65.108, 9.8, 0.452)
pt3dadd(47.227, 65.02, 9.8, 0.452)
pt3dadd(47.145, 64.933, 9.8, 0.452)
pt3dadd(47.032, 64.921, 9.77, 0.452)
pt3dadd(46.918, 64.909, 9.74, 0.452)
pt3dadd(46.824, 64.844, 9.725, 0.452)
pt3dadd(46.736, 64.763, 9.715, 0.452)
pt3dadd(46.647, 64.683, 9.705, 0.452)
pt3dadd(46.593, 64.585, 9.702, 0.452)
pt3dadd(46.577, 64.466, 9.706, 0.452)
pt3dadd(46.562, 64.347, 9.711, 0.452)
pt3dadd(46.532, 64.239, 9.736, 0.452)
pt3dadd(46.446, 64.157, 9.751, 0.452)
pt3dadd(46.361, 64.074, 9.765, 0.452)
pt3dadd(46.276, 63.992, 9.78, 0.452)
pt3dadd(46.19, 63.909, 9.795, 0.452)
pt3dadd(46.094, 63.839, 9.8, 0.452)
pt3dadd(45.992, 63.777, 9.8, 0.452)
pt3dadd(45.89, 63.714, 9.8, 0.452)
pt3dadd(45.787, 63.651, 9.8, 0.452)
pt3dadd(45.685, 63.588, 9.8, 0.452)
pt3dadd(45.58, 63.53, 9.8, 0.452)
pt3dadd(45.473, 63.476, 9.8, 0.452)
pt3dadd(45.366, 63.423, 9.8, 0.452)
pt3dadd(45.258, 63.369, 9.8, 0.452)
pt3dadd(45.151, 63.315, 9.8, 0.452)
pt3dadd(45.047, 63.257, 9.8, 0.452)
pt3dadd(44.949, 63.188, 9.8, 0.452)
pt3dadd(44.85, 63.119, 9.8, 0.452)
pt3dadd(44.752, 63.05, 9.8, 0.452)
pt3dadd(44.654, 62.981, 9.8, 0.452)
pt3dadd(44.552, 62.917, 9.8, 0.452)
pt3dadd(44.444, 62.867, 9.8, 0.452)
pt3dadd(44.335, 62.816, 9.8, 0.452)
pt3dadd(44.226, 62.766, 9.8, 0.452)
pt3dadd(44.117, 62.715, 9.8, 0.452)
pt3dadd(44.008, 62.664, 9.8, 0.452)
pt3dadd(43.9, 62.614, 9.8, 0.452)
pt3dadd(43.791, 62.563, 9.8, 0.452)
pt3dadd(43.682, 62.513, 9.8, 0.452)
pt3dadd(43.573, 62.462, 9.8, 0.452)
pt3dadd(43.464, 62.411, 9.8, 0.452)
pt3dadd(43.348, 62.385, 9.8, 0.452)
pt3dadd(43.23, 62.365, 9.8, 0.452)
pt3dadd(43.111, 62.345, 9.8, 0.452)
pt3dadd(42.993, 62.325, 9.8, 0.452)
pt3dadd(42.875, 62.306, 9.8, 0.452)
pt3dadd(42.756, 62.286, 9.8, 0.452)
pt3dadd(42.644, 62.247, 9.8, 0.452)
pt3dadd(42.533, 62.199, 9.8, 0.452)
pt3dadd(42.423, 62.152, 9.8, 0.452)
pt3dadd(42.313, 62.104, 9.8, 0.452)
pt3dadd(42.203, 62.057, 9.8, 0.452)
pt3dadd(42.1, 61.998, 9.8, 0.452)
pt3dadd(42.008, 61.92, 9.8, 0.452)
pt3dadd(41.917, 61.842, 9.8, 0.452)
pt3dadd(41.826, 61.764, 9.8, 0.452)
pt3dadd(41.734, 61.686, 9.8, 0.452)
pt3dadd(41.672, 61.592, 9.8, 0.452)
pt3dadd(41.651, 61.474, 9.8, 0.452)
pt3dadd(41.631, 61.356, 9.8, 0.452)
pt3dadd(41.556, 61.267, 9.8, 0.452)
pt3dadd(41.468, 61.186, 9.8, 0.452)
pt3dadd(41.361, 61.137, 9.8, 0.452)
pt3dadd(41.245, 61.104, 9.8, 0.452)
pt3dadd(41.13, 61.071, 9.8, 0.452)
pt3dadd(41.015, 61.038, 9.8, 0.452)
pt3dadd(40.899, 61.005, 9.8, 0.452)
pt3dadd(40.784, 60.972, 9.8, 0.452)
pt3dadd(40.67, 60.936, 9.8, 0.452)
pt3dadd(40.561, 60.885, 9.8, 0.452)
pt3dadd(40.452, 60.835, 9.8, 0.452)
pt3dadd(40.344, 60.784, 9.8, 0.452)
pt3dadd(40.235, 60.733, 9.8, 0.452)
pt3dadd(40.126, 60.683, 9.8, 0.452)
pt3dadd(40.019, 60.632, 9.785, 0.452)
pt3dadd(39.912, 60.581, 9.768, 0.452)
pt3dadd(39.805, 60.531, 9.752, 0.452)
pt3dadd(39.698, 60.48, 9.735, 0.452)
pt3dadd(39.593, 60.426, 9.716, 0.452)
pt3dadd(39.498, 60.362, 9.688, 0.452)
pt3dadd(39.403, 60.297, 9.66, 0.452)
pt3dadd(39.307, 60.233, 9.632, 0.452)
pt3dadd(39.212, 60.168, 9.604, 0.452)
pt3dadd(39.106, 60.113, 9.6, 0.452)
pt3dadd(38.999, 60.059, 9.6, 0.452)
pt3dadd(38.886, 60.019, 9.6, 0.452)
pt3dadd(38.771, 59.986, 9.6, 0.452)
pt3dadd(38.663, 59.951, 9.587, 0.452)
pt3dadd(38.58, 59.906, 9.524, 0.452)
pt3dadd(38.519, 59.863, 9.45, 0.452)
pt3dadd(38.485, 59.822, 9.361, 0.452)
pt3dadd(38.422, 59.769, 9.31, 0.452)
pt3dadd(38.324, 59.701, 9.307, 0.452)
pt3dadd(38.225, 59.633, 9.303, 0.452)
pt3dadd(38.126, 59.564, 9.3, 0.452)
pt3dadd(38.009, 59.545, 9.296, 0.452)
pt3dadd(37.89, 59.53, 9.292, 0.452)
pt3dadd(37.772, 59.52, 9.279, 0.452)
pt3dadd(37.66, 59.506, 9.247, 0.452)
pt3dadd(37.551, 59.481, 9.212, 0.452)
pt3dadd(37.441, 59.456, 9.177, 0.452)
pt3dadd(37.332, 59.43, 9.142, 0.452)
pt3dadd(37.222, 59.405, 9.107, 0.452)
pt3dadd(37.113, 59.36, 9.1, 0.452)
pt3dadd(37.005, 59.309, 9.1, 0.452)
pt3dadd(36.896, 59.259, 9.1, 0.452)
pt3dadd(36.787, 59.208, 9.1, 0.452)
pt3dadd(36.678, 59.157, 9.1, 0.452)
pt3dadd(36.564, 59.124, 9.1, 0.452)
pt3dadd(36.445, 59.107, 9.1, 0.452)
pt3dadd(36.327, 59.09, 9.1, 0.452)
pt3dadd(36.208, 59.072, 9.1, 0.452)
pt3dadd(36.089, 59.055, 9.1, 0.452)
pt3dadd(35.97, 59.038, 9.1, 0.452)
pt3dadd(35.856, 59.007, 9.095, 0.452)
pt3dadd(35.752, 58.95, 9.081, 0.452)
pt3dadd(35.647, 58.894, 9.067, 0.452)
pt3dadd(35.543, 58.837, 9.053, 0.452)
pt3dadd(35.439, 58.781, 9.038, 0.452)
pt3dadd(35.325, 58.752, 9.03, 0.452)
pt3dadd(35.206, 58.738, 9.024, 0.452)
pt3dadd(35.087, 58.725, 9.019, 0.452)
pt3dadd(34.968, 58.712, 9.013, 0.452)
pt3dadd(34.848, 58.699, 9.008, 0.452)
pt3dadd(34.729, 58.686, 9.002, 0.452)
pt3dadd(34.613, 58.659, 9, 0.452)
pt3dadd(34.498, 58.623, 9, 0.452)
pt3dadd(34.384, 58.587, 9, 0.452)
pt3dadd(34.269, 58.552, 9, 0.452)
pt3dadd(34.155, 58.516, 9, 0.452)
pt3dadd(34.04, 58.48, 9, 0.452)
pt3dadd(33.923, 58.452, 9, 0.452)
pt3dadd(33.807, 58.425, 9, 0.452)
pt3dadd(33.69, 58.398, 9, 0.452)
pt3dadd(33.573, 58.37, 9, 0.452)
pt3dadd(33.456, 58.343, 9, 0.452)
pt3dadd(33.339, 58.32, 9, 0.452)
pt3dadd(33.219, 58.32, 9, 0.452)
pt3dadd(33.099, 58.32, 9, 0.452)
pt3dadd(32.979, 58.32, 9, 0.452)
pt3dadd(32.859, 58.32, 9, 0.452)
pt3dadd(32.739, 58.32, 9, 0.452)
pt3dadd(32.62, 58.314, 9, 0.452)
pt3dadd(32.504, 58.281, 9, 0.452)
pt3dadd(32.389, 58.248, 9, 0.452)
pt3dadd(32.292, 58.182, 8.996, 0.452)
pt3dadd(32.201, 58.104, 8.99, 0.452)
pt3dadd(32.143, 58.012, 8.957, 0.452)
pt3dadd(32.074, 57.933, 8.919, 0.452)
pt3dadd(31.976, 57.874, 8.888, 0.452)
pt3dadd(31.877, 57.816, 8.858, 0.452)
pt3dadd(31.779, 57.758, 8.827, 0.452)
pt3dadd(31.681, 57.698, 8.8, 0.452)
pt3dadd(31.585, 57.626, 8.8, 0.452)
pt3dadd(31.489, 57.554, 8.8, 0.452)
pt3dadd(31.393, 57.482, 8.8, 0.452)
pt3dadd(31.297, 57.41, 8.8, 0.452)
pt3dadd(31.202, 57.337, 8.8, 0.452)
pt3dadd(31.11, 57.259, 8.8, 0.452)
pt3dadd(31.019, 57.181, 8.8, 0.452)
pt3dadd(30.928, 57.103, 8.8, 0.452)
pt3dadd(30.837, 57.025, 8.8, 0.452)
pt3dadd(30.748, 56.945, 8.8, 0.452)
pt3dadd(30.673, 56.851, 8.8, 0.452)
pt3dadd(30.599, 56.757, 8.8, 0.452)
pt3dadd(30.545, 56.65, 8.8, 0.452)
pt3dadd(30.491, 56.543, 8.8, 0.452)
pt3dadd(30.437, 56.439, 8.782, 0.452)
pt3dadd(30.382, 56.335, 8.759, 0.452)
pt3dadd(30.309, 56.302, 8.692, 0.452)
pt3dadd(30.232, 56.281, 8.616, 0.452)
pt3dadd(30.116, 56.28, 8.606, 0.452)
pt3dadd(29.996, 56.278, 8.6, 0.452)
pt3dadd(29.885, 56.234, 8.6, 0.452)
pt3dadd(29.773, 56.189, 8.6, 0.452)
pt3dadd(29.662, 56.145, 8.6, 0.452)
pt3dadd(29.55, 56.1, 8.6, 0.452)
pt3dadd(29.439, 56.056, 8.6, 0.452)
pt3dadd(29.329, 56.007, 8.6, 0.452)
pt3dadd(29.22, 55.956, 8.6, 0.452)
pt3dadd(29.112, 55.906, 8.6, 0.452)
pt3dadd(29.003, 55.855, 8.6, 0.452)
pt3dadd(28.894, 55.805, 8.6, 0.452)
pt3dadd(28.8, 55.736, 8.6, 0.452)
pt3dadd(28.731, 55.638, 8.6, 0.452)
pt3dadd(28.662, 55.54, 8.6, 0.452)
pt3dadd(28.593, 55.441, 8.6, 0.452)
pt3dadd(28.524, 55.343, 8.6, 0.452)
pt3dadd(28.451, 55.249, 8.6, 0.452)
pt3dadd(28.369, 55.161, 8.6, 0.452)
}
}
proc shape3d_180() {
dend_7[46] { pt3dadd(28.281, 55.082, 8.6, 0.452)
pt3dadd(28.17, 55.036, 8.6, 0.452)
pt3dadd(28.06, 54.989, 8.6, 0.452)
pt3dadd(27.976, 54.904, 8.6, 0.452)
pt3dadd(27.895, 54.816, 8.6, 0.452)
pt3dadd(27.865, 54.708, 8.574, 0.452)
pt3dadd(27.846, 54.595, 8.543, 0.452)
pt3dadd(27.816, 54.482, 8.527, 0.452)
pt3dadd(27.78, 54.368, 8.518, 0.452)
pt3dadd(27.744, 54.254, 8.509, 0.452)
pt3dadd(27.709, 54.14, 8.5, 0.452)
pt3dadd(27.605, 54.102, 8.468, 0.452)
pt3dadd(27.497, 54.068, 8.434, 0.452)
pt3dadd(27.448, 53.96, 8.433, 0.452)
pt3dadd(27.4, 53.85, 8.433, 0.452)
pt3dadd(27.362, 53.739, 8.447, 0.452)
pt3dadd(27.336, 53.629, 8.48, 0.452)
pt3dadd(27.292, 53.525, 8.5, 0.452)
pt3dadd(27.212, 53.435, 8.5, 0.452)
pt3dadd(27.131, 53.347, 8.5, 0.452)
pt3dadd(27.062, 53.255, 8.48, 0.452)
pt3dadd(27.003, 53.16, 8.444, 0.452)
pt3dadd(26.918, 53.091, 8.407, 0.452)
pt3dadd(26.823, 53.033, 8.371, 0.452)
pt3dadd(26.723, 52.982, 8.335, 0.452)
pt3dadd(26.622, 52.933, 8.3, 0.452)
pt3dadd(26.503, 52.926, 8.3, 0.452)
pt3dadd(26.383, 52.92, 8.298, 0.452)
pt3dadd(26.264, 52.92, 8.286, 0.452)
pt3dadd(26.145, 52.92, 8.273, 0.452)
pt3dadd(26.026, 52.92, 8.261, 0.452)
pt3dadd(25.907, 52.92, 8.249, 0.452)
pt3dadd(25.788, 52.92, 8.236, 0.452)
pt3dadd(25.669, 52.92, 8.224, 0.452)
pt3dadd(25.56, 52.958, 8.199, 0.452)
pt3dadd(25.453, 53.001, 8.172, 0.452)
pt3dadd(25.345, 53.045, 8.146, 0.452)
pt3dadd(25.238, 53.088, 8.119, 0.452)
pt3dadd(25.134, 53.139, 8.1, 0.452)
pt3dadd(25.038, 53.211, 8.1, 0.452)
pt3dadd(24.942, 53.283, 8.1, 0.452)
pt3dadd(24.846, 53.355, 8.1, 0.452)
pt3dadd(24.75, 53.427, 8.1, 0.452)
pt3dadd(24.652, 53.494, 8.106, 0.452)
pt3dadd(24.547, 53.547, 8.128, 0.452)
pt3dadd(24.442, 53.599, 8.149, 0.452)
pt3dadd(24.337, 53.651, 8.171, 0.452)
pt3dadd(24.233, 53.704, 8.193, 0.452)
pt3dadd(24.124, 53.738, 8.222, 0.452)
pt3dadd(24.014, 53.764, 8.255, 0.452)
pt3dadd(23.906, 53.807, 8.277, 0.452)
pt3dadd(23.8, 53.86, 8.294, 0.452)
pt3dadd(23.691, 53.909, 8.3, 0.452)
pt3dadd(23.581, 53.955, 8.3, 0.452)
pt3dadd(23.472, 53.989, 8.285, 0.452)
pt3dadd(23.366, 53.995, 8.238, 0.452)
pt3dadd(23.258, 54, 8.197, 0.452)
pt3dadd(23.139, 54, 8.179, 0.452)
pt3dadd(23.022, 54, 8.161, 0.452)
pt3dadd(22.903, 54, 8.143, 0.452)
pt3dadd(22.787, 54, 8.146, 0.452)
pt3dadd(22.671, 54, 8.174, 0.452)
pt3dadd(22.556, 54, 8.2, 0.452)
pt3dadd(22.438, 54.003, 8.184, 0.452)
pt3dadd(22.327, 54.025, 8.149, 0.452)
pt3dadd(22.217, 54.047, 8.115, 0.452)
pt3dadd(22.107, 54.069, 8.08, 0.452)
pt3dadd(21.996, 54.091, 8.046, 0.452)
pt3dadd(21.896, 54.123, 8.003, 0.452)
pt3dadd(21.82, 54.177, 7.939, 0.452)
pt3dadd(21.722, 54.21, 7.9, 0.452)
pt3dadd(21.605, 54.227, 7.881, 0.452)
pt3dadd(21.502, 54.24, 7.845, 0.452)
pt3dadd(21.434, 54.24, 7.762, 0.452)
pt3dadd(21.37, 54.24, 7.678, 0.452)
pt3dadd(21.344, 54.24, 7.581, 0.452)
pt3dadd(21.317, 54.24, 7.483, 0.452)
pt3dadd(21.237, 54.24, 7.428, 0.452)
pt3dadd(21.122, 54.24, 7.4, 0.452)
pt3dadd(21.006, 54.24, 7.373, 0.452)
pt3dadd(20.891, 54.24, 7.345, 0.452)
pt3dadd(20.786, 54.252, 7.301, 0.452)
pt3dadd(20.69, 54.272, 7.244, 0.452)
pt3dadd(20.621, 54.308, 7.172, 0.452)
pt3dadd(20.568, 54.353, 7.09, 0.452)
pt3dadd(20.52, 54.36, 7, 0.452)
}
dend_7[47] {pt3dclear()
pt3dadd(84.684, 96.053, 11.626, 2.486)
pt3dadd(84.696, 96.067, 11.619, 2.312)
pt3dadd(84.766, 96.15, 11.576, 1.28)
pt3dadd(84.836, 96.233, 11.534, 0.25)
pt3dadd(84.837, 96.124, 11.564, 0.226)
pt3dadd(84.838, 96.01, 11.596, 0.226)
pt3dadd(84.838, 95.897, 11.628, 0.226)
pt3dadd(84.839, 95.783, 11.66, 0.226)
pt3dadd(84.839, 95.669, 11.692, 0.226)
pt3dadd(84.839, 95.556, 11.724, 0.226)
pt3dadd(84.84, 95.442, 11.756, 0.226)
pt3dadd(84.84, 95.328, 11.788, 0.226)
pt3dadd(84.84, 95.214, 11.82, 0.226)
pt3dadd(84.841, 95.101, 11.852, 0.226)
pt3dadd(84.841, 94.987, 11.884, 0.226)
pt3dadd(84.855, 94.901, 11.903, 0.308)
pt3dadd(84.937, 94.964, 11.852, 0.832)
pt3dadd(84.956, 94.922, 11.839, 1.024)
pt3dadd(84.929, 94.806, 11.851, 0.984)
pt3dadd(84.902, 94.69, 11.863, 0.944)
pt3dadd(84.875, 94.574, 11.875, 0.904)
pt3dadd(84.848, 94.458, 11.887, 0.864)
pt3dadd(84.821, 94.342, 11.899, 0.822)
pt3dadd(84.794, 94.226, 11.911, 0.782)
pt3dadd(84.767, 94.11, 11.923, 0.742)
pt3dadd(84.74, 93.994, 11.935, 0.702)
pt3dadd(84.705, 93.88, 11.945, 0.674)
pt3dadd(84.655, 93.771, 11.951, 0.668)
pt3dadd(84.605, 93.663, 11.957, 0.662)
pt3dadd(84.555, 93.554, 11.962, 0.656)
pt3dadd(84.505, 93.445, 11.968, 0.65)
pt3dadd(84.455, 93.336, 11.974, 0.644)
pt3dadd(84.404, 93.227, 11.979, 0.638)
pt3dadd(84.354, 93.119, 11.985, 0.632)
pt3dadd(84.304, 93.01, 11.991, 0.626)
pt3dadd(84.254, 92.901, 11.997, 0.62)
pt3dadd(84.215, 92.789, 12.004, 0.61)
pt3dadd(84.191, 92.672, 12.014, 0.594)
pt3dadd(84.167, 92.555, 12.024, 0.578)
pt3dadd(84.144, 92.438, 12.034, 0.56)
pt3dadd(84.12, 92.321, 12.043, 0.544)
pt3dadd(84.097, 92.203, 12.053, 0.528)
pt3dadd(84.073, 92.086, 12.063, 0.512)
pt3dadd(84.049, 91.969, 12.073, 0.494)
pt3dadd(84.026, 91.852, 12.083, 0.478)
pt3dadd(84.002, 91.735, 12.093, 0.462)
pt3dadd(83.986, 91.619, 12.11, 0.458)
pt3dadd(83.978, 91.503, 12.135, 0.47)
pt3dadd(83.97, 91.387, 12.161, 0.48)
pt3dadd(83.962, 91.272, 12.187, 0.492)
pt3dadd(83.954, 91.156, 12.213, 0.504)
pt3dadd(83.946, 91.04, 12.239, 0.514)
pt3dadd(83.939, 90.925, 12.264, 0.526)
pt3dadd(83.931, 90.809, 12.29, 0.538)
pt3dadd(83.923, 90.693, 12.316, 0.548)
pt3dadd(83.915, 90.578, 12.341, 0.56)
pt3dadd(83.91, 90.463, 12.371, 0.558)
pt3dadd(83.907, 90.35, 12.403, 0.548)
pt3dadd(83.904, 90.236, 12.436, 0.536)
pt3dadd(83.901, 90.123, 12.468, 0.524)
pt3dadd(83.898, 90.009, 12.501, 0.514)
pt3dadd(83.895, 89.896, 12.533, 0.502)
pt3dadd(83.892, 89.782, 12.566, 0.49)
pt3dadd(83.889, 89.669, 12.598, 0.48)
pt3dadd(83.886, 89.555, 12.63, 0.468)
pt3dadd(83.883, 89.442, 12.663, 0.456)
pt3dadd(83.878, 89.326, 12.689, 0.444)
pt3dadd(83.871, 89.209, 12.71, 0.434)
pt3dadd(83.864, 89.092, 12.731, 0.42)
pt3dadd(83.857, 88.975, 12.752, 0.408)
pt3dadd(83.85, 88.858, 12.773, 0.396)
pt3dadd(83.843, 88.741, 12.793, 0.384)
pt3dadd(83.836, 88.624, 12.815, 0.372)
pt3dadd(83.829, 88.506, 12.835, 0.36)
pt3dadd(83.822, 88.389, 12.856, 0.348)
pt3dadd(83.815, 88.272, 12.877, 0.336)
pt3dadd(83.803, 88.155, 12.893, 0.334)
pt3dadd(83.788, 88.036, 12.906, 0.336)
pt3dadd(83.774, 87.918, 12.919, 0.34)
pt3dadd(83.759, 87.8, 12.932, 0.344)
pt3dadd(83.744, 87.682, 12.945, 0.348)
pt3dadd(83.73, 87.564, 12.958, 0.352)
pt3dadd(83.715, 87.446, 12.97, 0.354)
pt3dadd(83.7, 87.328, 12.983, 0.358)
pt3dadd(83.686, 87.21, 12.996, 0.362)
pt3dadd(83.671, 87.092, 13.009, 0.366)
pt3dadd(83.639, 86.978, 13.024, 0.41)
pt3dadd(83.596, 86.868, 13.04, 0.482)
pt3dadd(83.553, 86.758, 13.056, 0.554)
pt3dadd(83.51, 86.647, 13.073, 0.626)
pt3dadd(83.467, 86.537, 13.089, 0.698)
pt3dadd(83.424, 86.427, 13.105, 0.77)
pt3dadd(83.38, 86.317, 13.121, 0.842)
pt3dadd(83.337, 86.206, 13.137, 0.916)
pt3dadd(83.294, 86.096, 13.154, 0.988)
pt3dadd(83.251, 85.986, 13.17, 1.06)
pt3dadd(83.199, 85.892, 13.211, 1.086)
pt3dadd(83.144, 85.804, 13.261, 1.094)
pt3dadd(83.089, 85.716, 13.311, 1.102)
pt3dadd(83.034, 85.627, 13.361, 1.11)
pt3dadd(82.98, 85.539, 13.412, 1.118)
pt3dadd(82.925, 85.451, 13.462, 1.126)
pt3dadd(82.87, 85.363, 13.512, 1.134)
pt3dadd(82.815, 85.275, 13.562, 1.142)
pt3dadd(82.76, 85.187, 13.612, 1.15)
pt3dadd(82.705, 85.099, 13.663, 1.158)
pt3dadd(82.66, 85.02, 13.728, 1.114)
pt3dadd(82.616, 84.941, 13.793, 1.068)
pt3dadd(82.572, 84.862, 13.859, 1.022)
pt3dadd(82.528, 84.783, 13.925, 0.976)
pt3dadd(82.483, 84.704, 13.991, 0.93)
pt3dadd(82.439, 84.626, 14.057, 0.884)
pt3dadd(82.395, 84.547, 14.122, 0.838)
pt3dadd(82.351, 84.468, 14.188, 0.792)
}
}
proc shape3d_181() {
dend_7[47] { pt3dadd(82.306, 84.389, 14.254, 0.746)
pt3dadd(82.262, 84.31, 14.32, 0.7)
pt3dadd(82.187, 84.229, 14.358, 0.718)
pt3dadd(82.111, 84.147, 14.395, 0.738)
pt3dadd(82.035, 84.066, 14.432, 0.758)
pt3dadd(81.959, 83.985, 14.469, 0.78)
pt3dadd(81.883, 83.903, 14.506, 0.8)
pt3dadd(81.807, 83.822, 14.544, 0.822)
pt3dadd(81.731, 83.74, 14.581, 0.842)
pt3dadd(81.655, 83.659, 14.618, 0.862)
pt3dadd(81.579, 83.577, 14.655, 0.884)
pt3dadd(81.503, 83.496, 14.692, 0.904)
}
dend_7[48] {pt3dclear()
pt3dadd(81.503, 83.496, 14.692, 0.904)
pt3dadd(81.448, 83.47, 14.698, 0.868)
pt3dadd(81.341, 83.418, 14.709, 0.796)
pt3dadd(81.233, 83.366, 14.72, 0.726)
pt3dadd(81.126, 83.314, 14.732, 0.654)
pt3dadd(81.016, 83.267, 14.74, 0.598)
pt3dadd(80.903, 83.227, 14.747, 0.558)
pt3dadd(80.791, 83.186, 14.753, 0.52)
pt3dadd(80.678, 83.145, 14.759, 0.48)
pt3dadd(80.565, 83.104, 14.765, 0.44)
pt3dadd(80.453, 83.063, 14.771, 0.402)
pt3dadd(80.34, 83.022, 14.777, 0.362)
pt3dadd(80.228, 82.982, 14.784, 0.322)
pt3dadd(80.115, 82.941, 14.79, 0.284)
pt3dadd(80.003, 82.9, 14.796, 0.244)
pt3dadd(79.889, 82.862, 14.799, 0.232)
pt3dadd(79.774, 82.827, 14.799, 0.242)
pt3dadd(79.659, 82.792, 14.799, 0.252)
pt3dadd(79.545, 82.757, 14.799, 0.262)
pt3dadd(79.43, 82.721, 14.799, 0.272)
pt3dadd(79.315, 82.686, 14.799, 0.282)
pt3dadd(79.2, 82.651, 14.798, 0.292)
pt3dadd(79.086, 82.616, 14.798, 0.302)
pt3dadd(78.971, 82.58, 14.798, 0.314)
pt3dadd(78.856, 82.545, 14.798, 0.324)
pt3dadd(78.742, 82.508, 14.798, 0.334)
pt3dadd(78.628, 82.47, 14.798, 0.348)
pt3dadd(78.515, 82.432, 14.798, 0.36)
pt3dadd(78.401, 82.394, 14.798, 0.372)
pt3dadd(78.287, 82.356, 14.798, 0.384)
pt3dadd(78.173, 82.317, 14.798, 0.398)
pt3dadd(78.06, 82.279, 14.798, 0.41)
pt3dadd(77.946, 82.241, 14.797, 0.422)
pt3dadd(77.832, 82.203, 14.797, 0.434)
pt3dadd(77.718, 82.165, 14.797, 0.448)
pt3dadd(77.602, 82.136, 14.797, 0.458)
pt3dadd(77.484, 82.113, 14.797, 0.468)
pt3dadd(77.366, 82.091, 14.796, 0.478)
pt3dadd(77.249, 82.068, 14.796, 0.49)
pt3dadd(77.131, 82.045, 14.796, 0.5)
pt3dadd(77.013, 82.023, 14.796, 0.51)
pt3dadd(76.895, 82, 14.795, 0.52)
pt3dadd(76.777, 81.977, 14.795, 0.53)
pt3dadd(76.659, 81.955, 14.795, 0.542)
pt3dadd(76.542, 81.932, 14.795, 0.552)
pt3dadd(76.422, 81.918, 14.794, 0.556)
pt3dadd(76.303, 81.91, 14.794, 0.556)
pt3dadd(76.183, 81.902, 14.793, 0.558)
pt3dadd(76.063, 81.893, 14.793, 0.558)
pt3dadd(75.944, 81.885, 14.792, 0.56)
pt3dadd(75.824, 81.877, 14.791, 0.56)
pt3dadd(75.704, 81.869, 14.791, 0.562)
pt3dadd(75.585, 81.86, 14.79, 0.562)
pt3dadd(75.465, 81.852, 14.79, 0.564)
pt3dadd(75.345, 81.844, 14.789, 0.564)
pt3dadd(75.225, 81.838, 14.788, 0.558)
pt3dadd(75.105, 81.835, 14.787, 0.546)
pt3dadd(74.985, 81.831, 14.785, 0.536)
pt3dadd(74.865, 81.828, 14.784, 0.524)
pt3dadd(74.745, 81.824, 14.783, 0.514)
pt3dadd(74.625, 81.821, 14.782, 0.502)
pt3dadd(74.506, 81.817, 14.78, 0.49)
pt3dadd(74.386, 81.814, 14.779, 0.478)
pt3dadd(74.266, 81.81, 14.778, 0.468)
pt3dadd(74.146, 81.807, 14.776, 0.456)
pt3dadd(74.026, 81.802, 14.774, 0.47)
pt3dadd(73.906, 81.797, 14.771, 0.498)
pt3dadd(73.786, 81.791, 14.768, 0.524)
pt3dadd(73.666, 81.786, 14.766, 0.552)
pt3dadd(73.547, 81.78, 14.763, 0.58)
pt3dadd(73.427, 81.775, 14.76, 0.608)
pt3dadd(73.307, 81.769, 14.757, 0.636)
pt3dadd(73.187, 81.764, 14.754, 0.664)
pt3dadd(73.067, 81.758, 14.751, 0.69)
pt3dadd(72.948, 81.753, 14.748, 0.718)
pt3dadd(72.829, 81.735, 14.743, 0.71)
pt3dadd(72.712, 81.711, 14.736, 0.682)
pt3dadd(72.595, 81.686, 14.729, 0.652)
pt3dadd(72.478, 81.662, 14.722, 0.624)
pt3dadd(72.361, 81.637, 14.715, 0.596)
pt3dadd(72.244, 81.613, 14.708, 0.566)
pt3dadd(72.126, 81.588, 14.701, 0.538)
pt3dadd(72.009, 81.563, 14.694, 0.51)
pt3dadd(71.892, 81.539, 14.687, 0.48)
pt3dadd(71.775, 81.514, 14.68, 0.452)
pt3dadd(71.657, 81.51, 14.668, 0.454)
pt3dadd(71.538, 81.513, 14.654, 0.468)
pt3dadd(71.419, 81.517, 14.639, 0.484)
pt3dadd(71.301, 81.52, 14.625, 0.498)
pt3dadd(71.182, 81.524, 14.61, 0.514)
pt3dadd(71.063, 81.528, 14.596, 0.528)
pt3dadd(70.944, 81.531, 14.582, 0.542)
pt3dadd(70.826, 81.535, 14.567, 0.558)
pt3dadd(70.707, 81.538, 14.553, 0.572)
pt3dadd(70.588, 81.542, 14.539, 0.588)
pt3dadd(70.488, 81.561, 14.488, 0.616)
pt3dadd(70.388, 81.581, 14.435, 0.646)
pt3dadd(70.288, 81.602, 14.382, 0.676)
pt3dadd(70.189, 81.622, 14.329, 0.706)
pt3dadd(70.089, 81.642, 14.275, 0.736)
pt3dadd(69.99, 81.662, 14.222, 0.766)
pt3dadd(69.89, 81.683, 14.169, 0.796)
pt3dadd(69.79, 81.703, 14.116, 0.826)
pt3dadd(69.691, 81.723, 14.063, 0.856)
pt3dadd(69.59, 81.742, 14.01, 0.88)
pt3dadd(69.485, 81.752, 13.964, 0.866)
pt3dadd(69.379, 81.763, 13.917, 0.852)
pt3dadd(69.273, 81.773, 13.871, 0.836)
pt3dadd(69.168, 81.783, 13.824, 0.822)
pt3dadd(69.062, 81.793, 13.777, 0.808)
pt3dadd(68.956, 81.804, 13.731, 0.794)
pt3dadd(68.851, 81.814, 13.684, 0.78)
pt3dadd(68.745, 81.824, 13.638, 0.764)
pt3dadd(68.639, 81.834, 13.591, 0.75)
pt3dadd(68.533, 81.843, 13.545, 0.74)
pt3dadd(68.427, 81.84, 13.498, 0.75)
pt3dadd(68.321, 81.838, 13.452, 0.76)
pt3dadd(68.215, 81.835, 13.405, 0.772)
pt3dadd(68.109, 81.832, 13.359, 0.782)
pt3dadd(68.002, 81.83, 13.312, 0.794)
pt3dadd(67.896, 81.827, 13.266, 0.804)
pt3dadd(67.79, 81.825, 13.219, 0.814)
pt3dadd(67.684, 81.822, 13.173, 0.826)
pt3dadd(67.577, 81.819, 13.126, 0.836)
pt3dadd(67.469, 81.816, 13.083, 0.846)
pt3dadd(67.354, 81.811, 13.055, 0.852)
pt3dadd(67.239, 81.805, 13.027, 0.86)
pt3dadd(67.125, 81.8, 12.999, 0.866)
pt3dadd(67.01, 81.794, 12.97, 0.872)
pt3dadd(66.894, 81.788, 12.942, 0.88)
pt3dadd(66.78, 81.783, 12.914, 0.886)
pt3dadd(66.665, 81.777, 12.886, 0.892)
pt3dadd(66.55, 81.772, 12.858, 0.9)
pt3dadd(66.435, 81.766, 12.829, 0.906)
pt3dadd(66.32, 81.759, 12.802, 0.922)
pt3dadd(66.204, 81.747, 12.775, 0.972)
pt3dadd(66.089, 81.736, 12.749, 1.022)
pt3dadd(65.974, 81.724, 12.723, 1.072)
pt3dadd(65.859, 81.712, 12.697, 1.122)
pt3dadd(65.743, 81.7, 12.671, 1.172)
pt3dadd(65.628, 81.689, 12.645, 1.222)
pt3dadd(65.513, 81.677, 12.618, 1.272)
pt3dadd(65.398, 81.665, 12.592, 1.322)
pt3dadd(65.283, 81.653, 12.566, 1.372)
pt3dadd(65.169, 81.639, 12.538, 1.398)
pt3dadd(65.058, 81.615, 12.504, 1.346)
pt3dadd(64.948, 81.591, 12.47, 1.296)
pt3dadd(64.838, 81.566, 12.436, 1.244)
pt3dadd(64.727, 81.542, 12.402, 1.194)
pt3dadd(64.617, 81.518, 12.368, 1.142)
pt3dadd(64.507, 81.494, 12.334, 1.092)
pt3dadd(64.397, 81.47, 12.3, 1.04)
pt3dadd(64.286, 81.446, 12.267, 0.99)
pt3dadd(64.176, 81.422, 12.233, 0.938)
pt3dadd(64.067, 81.389, 12.203, 0.904)
pt3dadd(63.961, 81.34, 12.182, 0.9)
pt3dadd(63.854, 81.29, 12.162, 0.898)
pt3dadd(63.748, 81.241, 12.141, 0.894)
pt3dadd(63.641, 81.191, 12.121, 0.892)
pt3dadd(63.535, 81.142, 12.1, 0.89)
pt3dadd(63.428, 81.092, 12.079, 0.886)
pt3dadd(63.322, 81.043, 12.059, 0.884)
pt3dadd(63.215, 80.993, 12.038, 0.88)
pt3dadd(63.109, 80.944, 12.017, 0.878)
pt3dadd(63.001, 80.896, 12, 0.87)
pt3dadd(62.89, 80.852, 11.99, 0.85)
pt3dadd(62.779, 80.808, 11.98, 0.83)
pt3dadd(62.667, 80.765, 11.97, 0.81)
pt3dadd(62.556, 80.721, 11.96, 0.79)
pt3dadd(62.445, 80.677, 11.95, 0.77)
pt3dadd(62.334, 80.633, 11.94, 0.75)
pt3dadd(62.223, 80.589, 11.93, 0.73)
pt3dadd(62.112, 80.546, 11.92, 0.71)
pt3dadd(62.001, 80.502, 11.91, 0.692)
pt3dadd(61.892, 80.453, 11.903, 0.678)
pt3dadd(61.787, 80.396, 11.902, 0.678)
pt3dadd(61.681, 80.338, 11.901, 0.678)
pt3dadd(61.576, 80.281, 11.9, 0.678)
pt3dadd(61.471, 80.224, 11.898, 0.678)
pt3dadd(61.365, 80.166, 11.897, 0.678)
pt3dadd(61.26, 80.109, 11.896, 0.678)
pt3dadd(61.155, 80.051, 11.895, 0.678)
pt3dadd(61.049, 79.994, 11.893, 0.678)
pt3dadd(60.944, 79.937, 11.892, 0.678)
pt3dadd(60.835, 79.886, 11.89, 0.662)
pt3dadd(60.721, 79.849, 11.888, 0.618)
pt3dadd(60.607, 79.811, 11.885, 0.574)
pt3dadd(60.493, 79.774, 11.882, 0.528)
}
}
proc shape3d_182() {
dend_7[48] { pt3dadd(60.379, 79.737, 11.879, 0.484)
pt3dadd(60.265, 79.699, 11.877, 0.44)
pt3dadd(60.151, 79.662, 11.874, 0.394)
pt3dadd(60.037, 79.625, 11.871, 0.35)
pt3dadd(59.923, 79.587, 11.869, 0.306)
pt3dadd(59.808, 79.554, 11.864, 0.298)
pt3dadd(59.693, 79.524, 11.858, 0.332)
pt3dadd(59.577, 79.494, 11.851, 0.366)
pt3dadd(59.461, 79.463, 11.845, 0.4)
pt3dadd(59.345, 79.433, 11.839, 0.434)
pt3dadd(59.229, 79.403, 11.832, 0.47)
pt3dadd(59.113, 79.373, 11.826, 0.504)
pt3dadd(58.997, 79.343, 11.82, 0.538)
pt3dadd(58.881, 79.313, 11.814, 0.572)
pt3dadd(58.765, 79.283, 11.807, 0.606)
pt3dadd(58.652, 79.245, 11.799, 0.636)
pt3dadd(58.542, 79.199, 11.789, 0.66)
pt3dadd(58.432, 79.153, 11.779, 0.684)
pt3dadd(58.322, 79.106, 11.768, 0.708)
pt3dadd(58.212, 79.06, 11.758, 0.734)
pt3dadd(58.102, 79.013, 11.748, 0.758)
pt3dadd(57.992, 78.967, 11.738, 0.782)
pt3dadd(57.882, 78.92, 11.728, 0.806)
pt3dadd(57.772, 78.874, 11.717, 0.83)
pt3dadd(57.662, 78.827, 11.707, 0.854)
pt3dadd(57.554, 78.784, 11.687, 0.868)
pt3dadd(57.447, 78.745, 11.655, 0.872)
pt3dadd(57.34, 78.705, 11.624, 0.876)
pt3dadd(57.233, 78.666, 11.593, 0.88)
pt3dadd(57.126, 78.626, 11.562, 0.884)
pt3dadd(57.019, 78.586, 11.53, 0.888)
pt3dadd(56.913, 78.547, 11.499, 0.892)
pt3dadd(56.806, 78.507, 11.468, 0.894)
pt3dadd(56.699, 78.468, 11.437, 0.898)
pt3dadd(56.592, 78.428, 11.405, 0.902)
pt3dadd(56.483, 78.391, 11.377, 0.904)
pt3dadd(56.373, 78.355, 11.35, 0.904)
pt3dadd(56.263, 78.319, 11.324, 0.904)
pt3dadd(56.153, 78.284, 11.297, 0.904)
pt3dadd(56.043, 78.248, 11.271, 0.904)
pt3dadd(55.933, 78.212, 11.244, 0.904)
pt3dadd(55.823, 78.176, 11.218, 0.904)
pt3dadd(55.713, 78.141, 11.191, 0.904)
pt3dadd(55.603, 78.105, 11.165, 0.904)
pt3dadd(55.493, 78.069, 11.138, 0.904)
pt3dadd(55.384, 78.025, 11.119, 0.904)
pt3dadd(55.277, 77.974, 11.104, 0.904)
pt3dadd(55.17, 77.923, 11.09, 0.904)
pt3dadd(55.062, 77.872, 11.076, 0.904)
pt3dadd(54.955, 77.821, 11.062, 0.904)
pt3dadd(54.848, 77.769, 11.048, 0.904)
pt3dadd(54.741, 77.718, 11.033, 0.904)
pt3dadd(54.633, 77.667, 11.019, 0.904)
pt3dadd(54.526, 77.616, 11.005, 0.904)
pt3dadd(54.419, 77.565, 10.991, 0.904)
pt3dadd(54.316, 77.505, 10.982, 0.89)
pt3dadd(54.216, 77.439, 10.977, 0.868)
pt3dadd(54.115, 77.374, 10.973, 0.844)
pt3dadd(54.015, 77.308, 10.968, 0.822)
pt3dadd(53.915, 77.243, 10.963, 0.8)
pt3dadd(53.815, 77.177, 10.958, 0.776)
pt3dadd(53.714, 77.111, 10.953, 0.754)
pt3dadd(53.614, 77.046, 10.948, 0.73)
pt3dadd(53.514, 76.98, 10.944, 0.708)
pt3dadd(53.413, 76.914, 10.939, 0.686)
pt3dadd(53.312, 76.85, 10.936, 0.668)
pt3dadd(53.211, 76.786, 10.934, 0.654)
pt3dadd(53.109, 76.722, 10.932, 0.64)
pt3dadd(53.008, 76.658, 10.931, 0.626)
pt3dadd(52.906, 76.594, 10.929, 0.612)
pt3dadd(52.805, 76.53, 10.927, 0.598)
pt3dadd(52.703, 76.466, 10.926, 0.584)
pt3dadd(52.602, 76.402, 10.924, 0.57)
pt3dadd(52.5, 76.338, 10.922, 0.556)
pt3dadd(52.399, 76.274, 10.92, 0.542)
pt3dadd(52.294, 76.216, 10.917, 0.542)
pt3dadd(52.187, 76.161, 10.913, 0.55)
pt3dadd(52.081, 76.105, 10.91, 0.558)
pt3dadd(51.975, 76.05, 10.906, 0.564)
pt3dadd(51.868, 75.995, 10.902, 0.572)
pt3dadd(51.762, 75.939, 10.898, 0.578)
pt3dadd(51.656, 75.884, 10.895, 0.586)
pt3dadd(51.549, 75.829, 10.891, 0.594)
pt3dadd(51.443, 75.773, 10.887, 0.6)
pt3dadd(51.337, 75.718, 10.883, 0.608)
pt3dadd(51.23, 75.663, 10.877, 0.606)
pt3dadd(51.124, 75.608, 10.87, 0.6)
pt3dadd(51.018, 75.553, 10.863, 0.594)
pt3dadd(50.911, 75.498, 10.856, 0.588)
pt3dadd(50.805, 75.443, 10.848, 0.582)
pt3dadd(50.699, 75.388, 10.841, 0.576)
pt3dadd(50.592, 75.333, 10.834, 0.572)
pt3dadd(50.486, 75.278, 10.826, 0.566)
pt3dadd(50.38, 75.223, 10.819, 0.56)
pt3dadd(50.273, 75.168, 10.812, 0.554)
pt3dadd(50.163, 75.123, 10.799, 0.58)
pt3dadd(50.052, 75.083, 10.783, 0.62)
pt3dadd(49.941, 75.042, 10.767, 0.658)
pt3dadd(49.829, 75.002, 10.751, 0.698)
pt3dadd(49.718, 74.962, 10.735, 0.738)
pt3dadd(49.607, 74.921, 10.719, 0.778)
pt3dadd(49.495, 74.881, 10.703, 0.816)
pt3dadd(49.384, 74.841, 10.687, 0.856)
pt3dadd(49.272, 74.8, 10.672, 0.896)
pt3dadd(49.161, 74.76, 10.656, 0.936)
pt3dadd(49.054, 74.72, 10.626, 0.956)
pt3dadd(48.948, 74.681, 10.592, 0.97)
pt3dadd(48.843, 74.641, 10.558, 0.984)
pt3dadd(48.737, 74.602, 10.524, 0.998)
pt3dadd(48.631, 74.563, 10.49, 1.012)
pt3dadd(48.525, 74.523, 10.456, 1.026)
pt3dadd(48.42, 74.484, 10.422, 1.042)
pt3dadd(48.314, 74.445, 10.388, 1.056)
pt3dadd(48.208, 74.405, 10.354, 1.07)
pt3dadd(48.102, 74.366, 10.319, 1.084)
pt3dadd(48.001, 74.309, 10.296, 1.056)
pt3dadd(47.902, 74.247, 10.275, 1.016)
pt3dadd(47.802, 74.185, 10.254, 0.978)
pt3dadd(47.702, 74.123, 10.233, 0.938)
pt3dadd(47.602, 74.061, 10.213, 0.9)
pt3dadd(47.503, 73.999, 10.192, 0.86)
pt3dadd(47.403, 73.937, 10.171, 0.822)
pt3dadd(47.303, 73.875, 10.15, 0.782)
pt3dadd(47.204, 73.814, 10.129, 0.744)
pt3dadd(47.104, 73.752, 10.108, 0.704)
pt3dadd(47.011, 73.678, 10.096, 0.668)
pt3dadd(46.919, 73.602, 10.087, 0.632)
pt3dadd(46.827, 73.525, 10.077, 0.596)
pt3dadd(46.735, 73.449, 10.068, 0.56)
pt3dadd(46.644, 73.372, 10.058, 0.524)
pt3dadd(46.552, 73.296, 10.048, 0.488)
pt3dadd(46.46, 73.219, 10.039, 0.452)
pt3dadd(46.368, 73.143, 10.029, 0.416)
pt3dadd(46.277, 73.066, 10.019, 0.38)
pt3dadd(46.185, 72.99, 10.01, 0.344)
pt3dadd(46.095, 72.911, 10.005, 0.328)
pt3dadd(46.005, 72.832, 10.001, 0.316)
pt3dadd(45.915, 72.752, 9.997, 0.306)
pt3dadd(45.825, 72.673, 9.994, 0.294)
pt3dadd(45.735, 72.594, 9.99, 0.284)
pt3dadd(45.645, 72.515, 9.986, 0.272)
pt3dadd(45.555, 72.435, 9.982, 0.262)
pt3dadd(45.465, 72.356, 9.979, 0.25)
pt3dadd(45.375, 72.277, 9.975, 0.24)
pt3dadd(45.285, 72.197, 9.971, 0.228)
pt3dadd(45.194, 72.119, 9.969, 0.238)
pt3dadd(45.103, 72.04, 9.967, 0.252)
pt3dadd(45.013, 71.962, 9.965, 0.268)
pt3dadd(44.922, 71.884, 9.963, 0.282)
pt3dadd(44.831, 71.805, 9.961, 0.296)
pt3dadd(44.74, 71.727, 9.959, 0.31)
pt3dadd(44.649, 71.649, 9.957, 0.326)
pt3dadd(44.559, 71.57, 9.955, 0.34)
pt3dadd(44.468, 71.492, 9.953, 0.356)
pt3dadd(44.377, 71.413, 9.951, 0.37)
pt3dadd(44.282, 71.34, 9.948, 0.398)
pt3dadd(44.186, 71.269, 9.944, 0.428)
pt3dadd(44.089, 71.197, 9.94, 0.458)
pt3dadd(43.993, 71.125, 9.936, 0.49)
pt3dadd(43.897, 71.054, 9.933, 0.52)
pt3dadd(43.801, 70.982, 9.929, 0.55)
pt3dadd(43.705, 70.91, 9.925, 0.582)
pt3dadd(43.609, 70.839, 9.921, 0.612)
pt3dadd(43.513, 70.767, 9.918, 0.642)
pt3dadd(43.416, 70.695, 9.914, 0.674)
pt3dadd(43.309, 70.644, 9.906, 0.684)
pt3dadd(43.2, 70.595, 9.897, 0.692)
pt3dadd(43.09, 70.547, 9.888, 0.698)
pt3dadd(42.981, 70.498, 9.879, 0.706)
pt3dadd(42.872, 70.45, 9.87, 0.714)
pt3dadd(42.763, 70.402, 9.861, 0.72)
pt3dadd(42.653, 70.353, 9.852, 0.728)
pt3dadd(42.544, 70.305, 9.844, 0.736)
pt3dadd(42.435, 70.257, 9.835, 0.742)
pt3dadd(42.325, 70.208, 9.826, 0.75)
pt3dadd(42.216, 70.162, 9.811, 0.8)
pt3dadd(42.107, 70.116, 9.795, 0.856)
pt3dadd(41.998, 70.071, 9.778, 0.914)
pt3dadd(41.888, 70.025, 9.762, 0.97)
pt3dadd(41.779, 69.98, 9.746, 1.028)
pt3dadd(41.67, 69.934, 9.73, 1.084)
pt3dadd(41.56, 69.888, 9.714, 1.14)
pt3dadd(41.451, 69.843, 9.698, 1.198)
pt3dadd(41.342, 69.797, 9.681, 1.254)
pt3dadd(41.232, 69.752, 9.665, 1.312)
pt3dadd(41.126, 69.737, 9.623, 1.258)
pt3dadd(41.019, 69.724, 9.578, 1.194)
pt3dadd(40.912, 69.712, 9.534, 1.13)
pt3dadd(40.806, 69.7, 9.489, 1.066)
pt3dadd(40.699, 69.688, 9.444, 1.002)
pt3dadd(40.592, 69.675, 9.399, 0.94)
pt3dadd(40.486, 69.663, 9.355, 0.876)
pt3dadd(40.379, 69.651, 9.31, 0.812)
pt3dadd(40.272, 69.639, 9.265, 0.748)
pt3dadd(40.166, 69.627, 9.221, 0.684)
pt3dadd(40.091, 69.538, 9.207, 0.69)
pt3dadd(40.02, 69.443, 9.196, 0.704)
pt3dadd(39.949, 69.347, 9.185, 0.718)
pt3dadd(39.878, 69.251, 9.174, 0.73)
pt3dadd(39.806, 69.156, 9.163, 0.744)
}
}
proc shape3d_183() {
dend_7[48] { pt3dadd(39.735, 69.06, 9.152, 0.758)
pt3dadd(39.664, 68.964, 9.141, 0.772)
pt3dadd(39.592, 68.869, 9.13, 0.786)
pt3dadd(39.521, 68.773, 9.119, 0.798)
pt3dadd(39.45, 68.678, 9.108, 0.812)
pt3dadd(39.375, 68.585, 9.098, 0.808)
pt3dadd(39.299, 68.493, 9.087, 0.8)
pt3dadd(39.223, 68.401, 9.077, 0.792)
pt3dadd(39.147, 68.309, 9.067, 0.784)
pt3dadd(39.071, 68.217, 9.057, 0.774)
pt3dadd(38.995, 68.125, 9.046, 0.766)
pt3dadd(38.919, 68.033, 9.036, 0.758)
pt3dadd(38.843, 67.941, 9.026, 0.75)
pt3dadd(38.767, 67.849, 9.015, 0.742)
pt3dadd(38.691, 67.757, 9.005, 0.734)
pt3dadd(38.607, 67.671, 8.996, 0.69)
pt3dadd(38.523, 67.587, 8.987, 0.64)
pt3dadd(38.438, 67.502, 8.978, 0.59)
pt3dadd(38.354, 67.418, 8.969, 0.54)
pt3dadd(38.269, 67.333, 8.96, 0.488)
pt3dadd(38.184, 67.249, 8.951, 0.438)
pt3dadd(38.1, 67.164, 8.942, 0.388)
pt3dadd(38.015, 67.08, 8.933, 0.338)
pt3dadd(37.931, 66.996, 8.924, 0.288)
pt3dadd(37.846, 66.911, 8.915, 0.236)
pt3dadd(37.761, 66.827, 8.905, 0.246)
pt3dadd(37.677, 66.743, 8.894, 0.266)
pt3dadd(37.592, 66.658, 8.884, 0.288)
pt3dadd(37.508, 66.574, 8.873, 0.308)
pt3dadd(37.423, 66.49, 8.863, 0.33)
pt3dadd(37.339, 66.406, 8.852, 0.352)
pt3dadd(37.254, 66.322, 8.841, 0.372)
pt3dadd(37.17, 66.237, 8.831, 0.394)
pt3dadd(37.085, 66.153, 8.82, 0.414)
pt3dadd(37.001, 66.069, 8.809, 0.436)
pt3dadd(36.921, 65.991, 8.774, 0.46)
pt3dadd(36.843, 65.913, 8.734, 0.484)
pt3dadd(36.765, 65.836, 8.694, 0.508)
pt3dadd(36.687, 65.759, 8.654, 0.532)
pt3dadd(36.609, 65.682, 8.613, 0.556)
pt3dadd(36.531, 65.604, 8.573, 0.58)
pt3dadd(36.453, 65.527, 8.533, 0.602)
pt3dadd(36.375, 65.45, 8.492, 0.626)
pt3dadd(36.297, 65.373, 8.452, 0.65)
pt3dadd(36.219, 65.295, 8.412, 0.674)
pt3dadd(36.136, 65.214, 8.386, 0.678)
pt3dadd(36.053, 65.132, 8.364, 0.678)
pt3dadd(35.969, 65.05, 8.341, 0.678)
pt3dadd(35.886, 64.968, 8.318, 0.678)
pt3dadd(35.803, 64.887, 8.296, 0.678)
pt3dadd(35.719, 64.805, 8.273, 0.678)
pt3dadd(35.636, 64.723, 8.25, 0.678)
pt3dadd(35.553, 64.641, 8.227, 0.678)
pt3dadd(35.469, 64.559, 8.205, 0.678)
pt3dadd(35.386, 64.477, 8.182, 0.678)
pt3dadd(35.3, 64.394, 8.171, 0.678)
pt3dadd(35.214, 64.311, 8.162, 0.678)
pt3dadd(35.129, 64.228, 8.153, 0.678)
pt3dadd(35.043, 64.145, 8.144, 0.678)
pt3dadd(34.957, 64.061, 8.135, 0.678)
pt3dadd(34.871, 63.978, 8.127, 0.678)
pt3dadd(34.785, 63.895, 8.118, 0.678)
pt3dadd(34.699, 63.812, 8.109, 0.678)
pt3dadd(34.614, 63.729, 8.1, 0.678)
pt3dadd(34.528, 63.646, 8.091, 0.678)
pt3dadd(34.44, 63.563, 8.088, 0.69)
pt3dadd(34.353, 63.481, 8.086, 0.704)
pt3dadd(34.266, 63.399, 8.085, 0.718)
pt3dadd(34.178, 63.317, 8.083, 0.732)
pt3dadd(34.091, 63.235, 8.081, 0.746)
pt3dadd(34.003, 63.153, 8.08, 0.76)
pt3dadd(33.916, 63.071, 8.078, 0.774)
pt3dadd(33.828, 62.989, 8.076, 0.788)
pt3dadd(33.741, 62.906, 8.075, 0.802)
pt3dadd(33.653, 62.824, 8.073, 0.816)
pt3dadd(33.564, 62.743, 8.073, 0.81)
pt3dadd(33.476, 62.663, 8.073, 0.8)
pt3dadd(33.387, 62.582, 8.073, 0.792)
pt3dadd(33.298, 62.501, 8.073, 0.782)
pt3dadd(33.209, 62.42, 8.073, 0.774)
pt3dadd(33.121, 62.34, 8.073, 0.764)
pt3dadd(33.032, 62.259, 8.073, 0.754)
pt3dadd(32.943, 62.178, 8.073, 0.746)
pt3dadd(32.854, 62.097, 8.073, 0.736)
pt3dadd(32.766, 62.017, 8.073, 0.728)
pt3dadd(32.673, 61.94, 8.073, 0.698)
pt3dadd(32.58, 61.864, 8.073, 0.666)
pt3dadd(32.487, 61.788, 8.073, 0.634)
pt3dadd(32.394, 61.712, 8.073, 0.602)
pt3dadd(32.302, 61.636, 8.073, 0.57)
pt3dadd(32.209, 61.56, 8.073, 0.538)
pt3dadd(32.116, 61.484, 8.073, 0.506)
pt3dadd(32.023, 61.408, 8.073, 0.474)
pt3dadd(31.93, 61.332, 8.073, 0.442)
pt3dadd(31.837, 61.257, 8.073, 0.41)
pt3dadd(31.736, 61.192, 8.073, 0.394)
pt3dadd(31.634, 61.128, 8.073, 0.38)
pt3dadd(31.533, 61.065, 8.073, 0.366)
pt3dadd(31.431, 61.001, 8.073, 0.354)
pt3dadd(31.329, 60.938, 8.073, 0.34)
pt3dadd(31.227, 60.874, 8.073, 0.326)
pt3dadd(31.125, 60.811, 8.073, 0.312)
pt3dadd(31.023, 60.747, 8.073, 0.298)
pt3dadd(30.922, 60.684, 8.073, 0.284)
pt3dadd(30.82, 60.62, 8.073, 0.272)
pt3dadd(30.724, 60.548, 8.073, 0.304)
pt3dadd(30.629, 60.475, 8.073, 0.344)
pt3dadd(30.534, 60.402, 8.073, 0.382)
pt3dadd(30.439, 60.328, 8.073, 0.42)
pt3dadd(30.344, 60.255, 8.073, 0.458)
pt3dadd(30.249, 60.182, 8.073, 0.496)
pt3dadd(30.154, 60.108, 8.073, 0.534)
pt3dadd(30.059, 60.035, 8.073, 0.572)
pt3dadd(29.964, 59.962, 8.073, 0.612)
pt3dadd(29.869, 59.889, 8.073, 0.65)
pt3dadd(29.78, 59.808, 8.073, 0.656)
pt3dadd(29.692, 59.727, 8.073, 0.658)
pt3dadd(29.604, 59.645, 8.073, 0.66)
pt3dadd(29.516, 59.564, 8.073, 0.662)
pt3dadd(29.427, 59.482, 8.073, 0.666)
pt3dadd(29.339, 59.401, 8.072, 0.668)
pt3dadd(29.251, 59.319, 8.072, 0.67)
pt3dadd(29.163, 59.238, 8.072, 0.672)
pt3dadd(29.075, 59.156, 8.072, 0.676)
pt3dadd(28.987, 59.075, 8.072, 0.678)
pt3dadd(28.904, 58.988, 8.072, 0.678)
pt3dadd(28.822, 58.9, 8.072, 0.678)
pt3dadd(28.74, 58.813, 8.072, 0.678)
pt3dadd(28.658, 58.725, 8.072, 0.678)
pt3dadd(28.576, 58.638, 8.072, 0.678)
pt3dadd(28.494, 58.55, 8.072, 0.678)
pt3dadd(28.412, 58.463, 8.072, 0.678)
pt3dadd(28.33, 58.375, 8.072, 0.678)
pt3dadd(28.248, 58.287, 8.072, 0.678)
pt3dadd(28.166, 58.2, 8.072, 0.678)
pt3dadd(28.089, 58.108, 8.072, 0.662)
pt3dadd(28.012, 58.016, 8.072, 0.646)
pt3dadd(27.935, 57.923, 8.072, 0.63)
pt3dadd(27.858, 57.831, 8.072, 0.614)
pt3dadd(27.782, 57.739, 8.072, 0.596)
pt3dadd(27.705, 57.647, 8.072, 0.58)
pt3dadd(27.628, 57.554, 8.072, 0.564)
pt3dadd(27.552, 57.462, 8.072, 0.548)
pt3dadd(27.475, 57.37, 8.072, 0.53)
pt3dadd(27.398, 57.278, 8.072, 0.514)
pt3dadd(27.331, 57.178, 8.072, 0.492)
pt3dadd(27.265, 57.078, 8.072, 0.468)
pt3dadd(27.199, 56.977, 8.072, 0.446)
pt3dadd(27.133, 56.877, 8.072, 0.424)
pt3dadd(27.067, 56.777, 8.071, 0.4)
pt3dadd(27.002, 56.677, 8.071, 0.378)
pt3dadd(26.936, 56.576, 8.071, 0.354)
pt3dadd(26.87, 56.476, 8.071, 0.332)
pt3dadd(26.804, 56.376, 8.071, 0.308)
pt3dadd(26.738, 56.276, 8.071, 0.286)
}
dend_7[49] {pt3dclear()
pt3dadd(81.503, 83.496, 14.692, 0.904)
pt3dadd(81.463, 83.432, 14.696, 0.886)
pt3dadd(81.399, 83.331, 14.703, 0.858)
pt3dadd(81.335, 83.229, 14.71, 0.83)
pt3dadd(81.271, 83.128, 14.716, 0.802)
pt3dadd(81.208, 83.026, 14.723, 0.774)
pt3dadd(81.144, 82.925, 14.73, 0.746)
pt3dadd(81.08, 82.824, 14.736, 0.718)
pt3dadd(81.017, 82.722, 14.743, 0.69)
pt3dadd(80.953, 82.621, 14.75, 0.662)
pt3dadd(80.889, 82.52, 14.756, 0.634)
pt3dadd(80.825, 82.418, 14.763, 0.606)
pt3dadd(80.762, 82.317, 14.77, 0.578)
pt3dadd(80.705, 82.215, 14.784, 0.556)
pt3dadd(80.675, 82.112, 14.829, 0.558)
pt3dadd(80.644, 82.009, 14.873, 0.558)
pt3dadd(80.614, 81.906, 14.918, 0.56)
pt3dadd(80.584, 81.803, 14.962, 0.562)
pt3dadd(80.553, 81.699, 15.007, 0.564)
pt3dadd(80.523, 81.596, 15.051, 0.564)
pt3dadd(80.493, 81.493, 15.095, 0.566)
pt3dadd(80.462, 81.39, 15.14, 0.568)
pt3dadd(80.432, 81.287, 15.184, 0.57)
pt3dadd(80.418, 81.186, 15.237, 0.608)
pt3dadd(80.407, 81.087, 15.292, 0.654)
pt3dadd(80.397, 80.987, 15.346, 0.7)
pt3dadd(80.386, 80.886, 15.401, 0.744)
pt3dadd(80.375, 80.787, 15.455, 0.79)
pt3dadd(80.365, 80.687, 15.51, 0.836)
pt3dadd(80.354, 80.586, 15.565, 0.882)
pt3dadd(80.343, 80.487, 15.619, 0.926)
pt3dadd(80.332, 80.387, 15.674, 0.972)
pt3dadd(80.322, 80.286, 15.728, 1.018)
pt3dadd(80.3, 80.19, 15.785, 1.038)
pt3dadd(80.277, 80.094, 15.842, 1.054)
pt3dadd(80.255, 79.998, 15.899, 1.072)
pt3dadd(80.232, 79.903, 15.956, 1.088)
pt3dadd(80.209, 79.807, 16.013, 1.104)
pt3dadd(80.187, 79.711, 16.07, 1.122)
pt3dadd(80.164, 79.615, 16.128, 1.138)
pt3dadd(80.141, 79.519, 16.185, 1.156)
pt3dadd(80.119, 79.423, 16.242, 1.172)
pt3dadd(80.096, 79.327, 16.299, 1.19)
pt3dadd(80.037, 79.235, 16.339, 1.164)
pt3dadd(79.978, 79.142, 16.38, 1.138)
}
}
proc shape3d_184() {
dend_7[49] { pt3dadd(79.919, 79.05, 16.42, 1.114)
pt3dadd(79.86, 78.957, 16.461, 1.088)
pt3dadd(79.801, 78.865, 16.502, 1.062)
pt3dadd(79.743, 78.772, 16.542, 1.038)
pt3dadd(79.684, 78.679, 16.583, 1.012)
pt3dadd(79.625, 78.587, 16.623, 0.986)
pt3dadd(79.566, 78.494, 16.664, 0.96)
pt3dadd(79.505, 78.402, 16.701, 0.94)
pt3dadd(79.434, 78.309, 16.724, 0.936)
pt3dadd(79.363, 78.216, 16.747, 0.932)
pt3dadd(79.293, 78.123, 16.77, 0.928)
pt3dadd(79.222, 78.03, 16.793, 0.926)
pt3dadd(79.151, 77.938, 16.816, 0.922)
pt3dadd(79.08, 77.845, 16.839, 0.918)
pt3dadd(79.009, 77.752, 16.862, 0.914)
pt3dadd(78.938, 77.659, 16.885, 0.91)
pt3dadd(78.867, 77.567, 16.908, 0.906)
pt3dadd(78.8, 77.472, 16.933, 0.904)
pt3dadd(78.747, 77.372, 16.966, 0.904)
pt3dadd(78.694, 77.272, 16.999, 0.904)
pt3dadd(78.641, 77.172, 17.032, 0.904)
pt3dadd(78.588, 77.072, 17.066, 0.904)
pt3dadd(78.535, 76.972, 17.098, 0.904)
pt3dadd(78.482, 76.871, 17.132, 0.904)
pt3dadd(78.429, 76.771, 17.165, 0.904)
pt3dadd(78.377, 76.671, 17.198, 0.904)
pt3dadd(78.324, 76.571, 17.231, 0.904)
pt3dadd(78.275, 76.469, 17.264, 0.9)
pt3dadd(78.239, 76.362, 17.296, 0.888)
pt3dadd(78.202, 76.254, 17.329, 0.874)
pt3dadd(78.165, 76.147, 17.362, 0.86)
pt3dadd(78.129, 76.04, 17.395, 0.846)
pt3dadd(78.092, 75.932, 17.427, 0.834)
pt3dadd(78.056, 75.825, 17.46, 0.82)
pt3dadd(78.019, 75.717, 17.493, 0.806)
pt3dadd(77.983, 75.61, 17.525, 0.792)
pt3dadd(77.946, 75.503, 17.558, 0.78)
pt3dadd(77.907, 75.395, 17.589, 0.768)
pt3dadd(77.863, 75.288, 17.614, 0.758)
pt3dadd(77.819, 75.181, 17.639, 0.748)
pt3dadd(77.775, 75.073, 17.664, 0.74)
pt3dadd(77.731, 74.966, 17.689, 0.73)
pt3dadd(77.687, 74.858, 17.715, 0.72)
pt3dadd(77.642, 74.751, 17.74, 0.712)
pt3dadd(77.598, 74.644, 17.765, 0.702)
pt3dadd(77.554, 74.536, 17.79, 0.694)
pt3dadd(77.51, 74.429, 17.815, 0.684)
pt3dadd(77.463, 74.323, 17.842, 0.682)
pt3dadd(77.413, 74.22, 17.871, 0.692)
pt3dadd(77.362, 74.117, 17.901, 0.702)
pt3dadd(77.311, 74.014, 17.93, 0.712)
pt3dadd(77.261, 73.911, 17.959, 0.722)
pt3dadd(77.21, 73.808, 17.989, 0.732)
pt3dadd(77.159, 73.706, 18.018, 0.742)
pt3dadd(77.109, 73.603, 18.048, 0.752)
pt3dadd(77.058, 73.5, 18.077, 0.762)
pt3dadd(77.007, 73.397, 18.106, 0.772)
pt3dadd(76.955, 73.296, 18.138, 0.78)
pt3dadd(76.9, 73.197, 18.171, 0.784)
pt3dadd(76.845, 73.098, 18.205, 0.79)
pt3dadd(76.79, 73, 18.239, 0.794)
pt3dadd(76.734, 72.901, 18.273, 0.8)
pt3dadd(76.679, 72.803, 18.306, 0.806)
pt3dadd(76.624, 72.704, 18.34, 0.81)
pt3dadd(76.569, 72.606, 18.374, 0.816)
pt3dadd(76.514, 72.507, 18.408, 0.82)
pt3dadd(76.459, 72.408, 18.441, 0.826)
pt3dadd(76.397, 72.312, 18.472, 0.822)
pt3dadd(76.328, 72.22, 18.497, 0.806)
pt3dadd(76.258, 72.127, 18.523, 0.792)
pt3dadd(76.188, 72.034, 18.549, 0.776)
pt3dadd(76.119, 71.942, 18.574, 0.762)
pt3dadd(76.049, 71.849, 18.6, 0.746)
pt3dadd(75.979, 71.756, 18.626, 0.732)
pt3dadd(75.91, 71.663, 18.652, 0.716)
pt3dadd(75.84, 71.571, 18.677, 0.702)
pt3dadd(75.77, 71.478, 18.703, 0.686)
pt3dadd(75.698, 71.387, 18.728, 0.678)
pt3dadd(75.622, 71.299, 18.752, 0.678)
pt3dadd(75.547, 71.21, 18.777, 0.678)
pt3dadd(75.471, 71.122, 18.801, 0.678)
pt3dadd(75.395, 71.033, 18.825, 0.678)
pt3dadd(75.32, 70.945, 18.85, 0.678)
pt3dadd(75.244, 70.857, 18.874, 0.678)
pt3dadd(75.168, 70.768, 18.898, 0.678)
pt3dadd(75.093, 70.68, 18.923, 0.678)
pt3dadd(75.017, 70.591, 18.947, 0.678)
pt3dadd(74.943, 70.507, 18.981, 0.686)
pt3dadd(74.871, 70.427, 19.026, 0.7)
pt3dadd(74.799, 70.347, 19.07, 0.714)
pt3dadd(74.727, 70.267, 19.114, 0.728)
pt3dadd(74.655, 70.187, 19.158, 0.742)
pt3dadd(74.583, 70.107, 19.202, 0.756)
pt3dadd(74.511, 70.027, 19.246, 0.77)
pt3dadd(74.439, 69.947, 19.29, 0.784)
pt3dadd(74.366, 69.867, 19.335, 0.798)
pt3dadd(74.294, 69.787, 19.379, 0.812)
pt3dadd(74.224, 69.701, 19.415, 0.824)
pt3dadd(74.155, 69.609, 19.445, 0.836)
pt3dadd(74.086, 69.518, 19.474, 0.848)
pt3dadd(74.017, 69.426, 19.504, 0.86)
pt3dadd(73.948, 69.335, 19.534, 0.872)
pt3dadd(73.88, 69.243, 19.563, 0.884)
pt3dadd(73.811, 69.151, 19.593, 0.896)
pt3dadd(73.742, 69.06, 19.622, 0.908)
pt3dadd(73.673, 68.968, 19.652, 0.92)
pt3dadd(73.604, 68.876, 19.681, 0.932)
pt3dadd(73.535, 68.786, 19.713, 0.914)
pt3dadd(73.465, 68.697, 19.746, 0.874)
pt3dadd(73.395, 68.607, 19.779, 0.834)
pt3dadd(73.326, 68.518, 19.812, 0.794)
pt3dadd(73.256, 68.429, 19.845, 0.756)
pt3dadd(73.186, 68.339, 19.877, 0.716)
pt3dadd(73.116, 68.25, 19.91, 0.676)
pt3dadd(73.047, 68.161, 19.943, 0.636)
pt3dadd(72.977, 68.071, 19.976, 0.596)
pt3dadd(72.907, 67.982, 20.009, 0.558)
pt3dadd(72.836, 67.893, 20.039, 0.568)
pt3dadd(72.763, 67.803, 20.067, 0.594)
pt3dadd(72.691, 67.714, 20.096, 0.618)
pt3dadd(72.619, 67.624, 20.125, 0.644)
pt3dadd(72.546, 67.535, 20.153, 0.67)
pt3dadd(72.474, 67.446, 20.182, 0.696)
pt3dadd(72.402, 67.356, 20.21, 0.722)
pt3dadd(72.329, 67.267, 20.239, 0.748)
pt3dadd(72.257, 67.177, 20.267, 0.774)
pt3dadd(72.185, 67.088, 20.296, 0.8)
pt3dadd(72.108, 66.997, 20.303, 0.796)
pt3dadd(72.03, 66.906, 20.306, 0.786)
pt3dadd(71.952, 66.815, 20.31, 0.778)
pt3dadd(71.874, 66.723, 20.313, 0.768)
pt3dadd(71.796, 66.632, 20.317, 0.76)
pt3dadd(71.718, 66.541, 20.32, 0.752)
pt3dadd(71.64, 66.45, 20.323, 0.742)
pt3dadd(71.563, 66.359, 20.327, 0.734)
pt3dadd(71.485, 66.267, 20.33, 0.726)
pt3dadd(71.407, 66.176, 20.334, 0.716)
pt3dadd(71.319, 66.103, 20.304, 0.748)
pt3dadd(71.231, 66.032, 20.272, 0.782)
pt3dadd(71.142, 65.961, 20.239, 0.816)
pt3dadd(71.054, 65.89, 20.207, 0.85)
pt3dadd(70.966, 65.819, 20.174, 0.884)
pt3dadd(70.877, 65.748, 20.141, 0.918)
pt3dadd(70.789, 65.677, 20.109, 0.954)
pt3dadd(70.7, 65.606, 20.076, 0.988)
pt3dadd(70.612, 65.535, 20.044, 1.022)
pt3dadd(70.524, 65.463, 20.011, 1.052)
pt3dadd(70.446, 65.378, 19.983, 0.976)
pt3dadd(70.368, 65.293, 19.955, 0.902)
pt3dadd(70.291, 65.208, 19.927, 0.828)
pt3dadd(70.213, 65.123, 19.9, 0.754)
pt3dadd(70.136, 65.037, 19.872, 0.678)
pt3dadd(70.058, 64.952, 19.844, 0.604)
pt3dadd(69.98, 64.867, 19.816, 0.53)
pt3dadd(69.903, 64.782, 19.788, 0.456)
pt3dadd(69.825, 64.697, 19.76, 0.38)
pt3dadd(69.747, 64.612, 19.733, 0.316)
pt3dadd(69.665, 64.525, 19.722, 0.346)
pt3dadd(69.583, 64.439, 19.71, 0.376)
pt3dadd(69.501, 64.353, 19.699, 0.408)
pt3dadd(69.418, 64.266, 19.688, 0.438)
pt3dadd(69.336, 64.18, 19.676, 0.468)
pt3dadd(69.254, 64.093, 19.665, 0.5)
pt3dadd(69.172, 64.007, 19.653, 0.53)
pt3dadd(69.09, 63.921, 19.642, 0.56)
pt3dadd(69.008, 63.834, 19.63, 0.592)
pt3dadd(68.925, 63.748, 19.62, 0.624)
pt3dadd(68.836, 63.667, 19.619, 0.664)
pt3dadd(68.748, 63.586, 19.618, 0.704)
pt3dadd(68.659, 63.505, 19.616, 0.744)
pt3dadd(68.571, 63.424, 19.615, 0.784)
pt3dadd(68.482, 63.343, 19.614, 0.824)
pt3dadd(68.394, 63.262, 19.613, 0.864)
pt3dadd(68.305, 63.181, 19.612, 0.904)
pt3dadd(68.217, 63.1, 19.611, 0.944)
pt3dadd(68.128, 63.019, 19.61, 0.984)
pt3dadd(68.038, 62.94, 19.609, 1.02)
pt3dadd(67.933, 62.882, 19.609, 1.032)
pt3dadd(67.829, 62.824, 19.61, 1.042)
pt3dadd(67.724, 62.765, 19.61, 1.054)
pt3dadd(67.619, 62.707, 19.611, 1.066)
pt3dadd(67.514, 62.648, 19.611, 1.076)
pt3dadd(67.409, 62.59, 19.611, 1.088)
pt3dadd(67.304, 62.532, 19.612, 1.098)
pt3dadd(67.2, 62.473, 19.612, 1.11)
pt3dadd(67.095, 62.415, 19.613, 1.122)
pt3dadd(66.988, 62.361, 19.614, 1.134)
pt3dadd(66.874, 62.324, 19.615, 1.148)
pt3dadd(66.76, 62.286, 19.616, 1.164)
pt3dadd(66.646, 62.249, 19.617, 1.18)
pt3dadd(66.532, 62.212, 19.618, 1.196)
pt3dadd(66.418, 62.175, 19.619, 1.21)
pt3dadd(66.303, 62.138, 19.62, 1.226)
pt3dadd(66.189, 62.101, 19.622, 1.242)
pt3dadd(66.075, 62.064, 19.623, 1.258)
pt3dadd(65.961, 62.027, 19.624, 1.274)
pt3dadd(65.848, 61.987, 19.625, 1.276)
pt3dadd(65.738, 61.94, 19.627, 1.238)
pt3dadd(65.627, 61.893, 19.63, 1.2)
pt3dadd(65.517, 61.845, 19.632, 1.162)
}
}
proc shape3d_185() {
dend_7[49] { pt3dadd(65.407, 61.798, 19.634, 1.124)
pt3dadd(65.296, 61.751, 19.637, 1.086)
pt3dadd(65.186, 61.704, 19.639, 1.048)
pt3dadd(65.076, 61.657, 19.641, 1.01)
pt3dadd(64.965, 61.61, 19.643, 0.972)
pt3dadd(64.855, 61.562, 19.646, 0.934)
pt3dadd(64.745, 61.515, 19.649, 0.9)
pt3dadd(64.636, 61.465, 19.654, 0.878)
pt3dadd(64.527, 61.415, 19.66, 0.854)
pt3dadd(64.418, 61.365, 19.665, 0.832)
pt3dadd(64.309, 61.315, 19.67, 0.81)
pt3dadd(64.2, 61.265, 19.676, 0.786)
pt3dadd(64.092, 61.215, 19.681, 0.764)
pt3dadd(63.983, 61.165, 19.687, 0.74)
pt3dadd(63.874, 61.116, 19.692, 0.718)
pt3dadd(63.765, 61.066, 19.698, 0.694)
pt3dadd(63.657, 61.013, 19.704, 0.682)
pt3dadd(63.555, 60.952, 19.714, 0.696)
pt3dadd(63.452, 60.891, 19.723, 0.712)
pt3dadd(63.35, 60.829, 19.733, 0.726)
pt3dadd(63.247, 60.768, 19.743, 0.742)
pt3dadd(63.144, 60.707, 19.752, 0.756)
pt3dadd(63.042, 60.646, 19.762, 0.77)
pt3dadd(62.939, 60.585, 19.771, 0.786)
pt3dadd(62.837, 60.524, 19.781, 0.8)
pt3dadd(62.734, 60.463, 19.791, 0.814)
pt3dadd(62.634, 60.401, 19.809, 0.828)
pt3dadd(62.542, 60.337, 19.844, 0.836)
pt3dadd(62.449, 60.274, 19.879, 0.844)
pt3dadd(62.357, 60.21, 19.915, 0.852)
pt3dadd(62.264, 60.147, 19.95, 0.86)
pt3dadd(62.172, 60.084, 19.985, 0.868)
pt3dadd(62.079, 60.02, 20.021, 0.876)
pt3dadd(61.986, 59.957, 20.056, 0.884)
pt3dadd(61.894, 59.893, 20.091, 0.892)
pt3dadd(61.801, 59.83, 20.127, 0.9)
pt3dadd(61.71, 59.762, 20.159, 0.874)
pt3dadd(61.62, 59.69, 20.187, 0.816)
pt3dadd(61.531, 59.618, 20.216, 0.756)
pt3dadd(61.441, 59.546, 20.244, 0.696)
pt3dadd(61.352, 59.474, 20.273, 0.638)
pt3dadd(61.262, 59.402, 20.302, 0.578)
pt3dadd(61.172, 59.33, 20.33, 0.52)
pt3dadd(61.083, 59.258, 20.359, 0.46)
pt3dadd(60.993, 59.186, 20.388, 0.402)
pt3dadd(60.903, 59.114, 20.416, 0.342)
pt3dadd(60.806, 59.05, 20.436, 0.334)
pt3dadd(60.701, 58.992, 20.449, 0.366)
pt3dadd(60.597, 58.935, 20.462, 0.398)
pt3dadd(60.493, 58.878, 20.476, 0.43)
pt3dadd(60.389, 58.821, 20.489, 0.462)
pt3dadd(60.284, 58.764, 20.502, 0.494)
pt3dadd(60.18, 58.706, 20.515, 0.526)
pt3dadd(60.076, 58.649, 20.528, 0.558)
pt3dadd(59.971, 58.592, 20.541, 0.588)
pt3dadd(59.867, 58.535, 20.554, 0.622)
pt3dadd(59.765, 58.472, 20.561, 0.626)
pt3dadd(59.665, 58.406, 20.562, 0.612)
pt3dadd(59.565, 58.34, 20.564, 0.6)
pt3dadd(59.465, 58.273, 20.565, 0.586)
pt3dadd(59.365, 58.207, 20.567, 0.574)
pt3dadd(59.265, 58.141, 20.569, 0.56)
pt3dadd(59.165, 58.075, 20.57, 0.546)
pt3dadd(59.065, 58.009, 20.572, 0.534)
pt3dadd(58.965, 57.942, 20.573, 0.52)
pt3dadd(58.865, 57.876, 20.575, 0.506)
pt3dadd(58.767, 57.807, 20.576, 0.506)
pt3dadd(58.67, 57.735, 20.577, 0.516)
pt3dadd(58.574, 57.664, 20.578, 0.524)
pt3dadd(58.478, 57.593, 20.579, 0.534)
pt3dadd(58.381, 57.521, 20.58, 0.544)
pt3dadd(58.285, 57.45, 20.581, 0.552)
pt3dadd(58.188, 57.378, 20.582, 0.562)
pt3dadd(58.092, 57.307, 20.583, 0.57)
pt3dadd(57.995, 57.236, 20.584, 0.58)
pt3dadd(57.899, 57.164, 20.585, 0.59)
pt3dadd(57.8, 57.096, 20.587, 0.598)
pt3dadd(57.7, 57.03, 20.589, 0.606)
pt3dadd(57.6, 56.964, 20.591, 0.616)
pt3dadd(57.499, 56.899, 20.593, 0.624)
pt3dadd(57.399, 56.833, 20.595, 0.632)
pt3dadd(57.299, 56.767, 20.597, 0.64)
pt3dadd(57.198, 56.701, 20.599, 0.65)
pt3dadd(57.098, 56.635, 20.601, 0.658)
pt3dadd(56.998, 56.569, 20.603, 0.666)
pt3dadd(56.898, 56.503, 20.605, 0.674)
pt3dadd(56.797, 56.439, 20.608, 0.678)
pt3dadd(56.695, 56.375, 20.612, 0.678)
pt3dadd(56.594, 56.311, 20.617, 0.678)
pt3dadd(56.492, 56.247, 20.621, 0.678)
pt3dadd(56.391, 56.183, 20.625, 0.678)
pt3dadd(56.29, 56.119, 20.629, 0.678)
pt3dadd(56.188, 56.055, 20.634, 0.678)
pt3dadd(56.087, 55.991, 20.638, 0.678)
pt3dadd(55.985, 55.927, 20.642, 0.678)
pt3dadd(55.884, 55.863, 20.647, 0.678)
pt3dadd(55.786, 55.795, 20.653, 0.678)
pt3dadd(55.689, 55.724, 20.66, 0.678)
pt3dadd(55.593, 55.653, 20.668, 0.678)
pt3dadd(55.497, 55.582, 20.676, 0.678)
pt3dadd(55.4, 55.511, 20.683, 0.678)
pt3dadd(55.304, 55.44, 20.691, 0.678)
pt3dadd(55.208, 55.369, 20.698, 0.678)
pt3dadd(55.111, 55.298, 20.705, 0.678)
pt3dadd(55.015, 55.227, 20.713, 0.678)
pt3dadd(54.919, 55.156, 20.721, 0.678)
pt3dadd(54.824, 55.083, 20.733, 0.682)
pt3dadd(54.732, 55.009, 20.748, 0.69)
pt3dadd(54.639, 54.936, 20.762, 0.696)
pt3dadd(54.546, 54.862, 20.777, 0.704)
pt3dadd(54.453, 54.788, 20.792, 0.71)
pt3dadd(54.36, 54.714, 20.807, 0.718)
pt3dadd(54.267, 54.64, 20.821, 0.724)
pt3dadd(54.174, 54.567, 20.836, 0.732)
pt3dadd(54.081, 54.493, 20.851, 0.74)
pt3dadd(53.988, 54.419, 20.866, 0.746)
pt3dadd(53.896, 54.352, 20.896, 0.772)
pt3dadd(53.805, 54.288, 20.932, 0.806)
pt3dadd(53.713, 54.224, 20.969, 0.838)
pt3dadd(53.621, 54.16, 21.006, 0.872)
pt3dadd(53.53, 54.096, 21.042, 0.906)
pt3dadd(53.438, 54.032, 21.079, 0.94)
pt3dadd(53.347, 53.969, 21.115, 0.974)
pt3dadd(53.255, 53.905, 21.152, 1.008)
pt3dadd(53.163, 53.841, 21.188, 1.04)
pt3dadd(53.072, 53.777, 21.225, 1.074)
pt3dadd(52.993, 53.695, 21.255, 1.046)
pt3dadd(52.919, 53.606, 21.282, 0.998)
pt3dadd(52.845, 53.518, 21.309, 0.948)
pt3dadd(52.77, 53.43, 21.337, 0.898)
pt3dadd(52.696, 53.341, 21.364, 0.848)
pt3dadd(52.622, 53.253, 21.391, 0.798)
pt3dadd(52.548, 53.164, 21.419, 0.75)
pt3dadd(52.473, 53.076, 21.446, 0.7)
pt3dadd(52.399, 52.988, 21.473, 0.65)
pt3dadd(52.325, 52.899, 21.501, 0.6)
pt3dadd(52.245, 52.813, 21.52, 0.572)
pt3dadd(52.164, 52.726, 21.537, 0.55)
pt3dadd(52.083, 52.64, 21.553, 0.528)
pt3dadd(52.002, 52.554, 21.57, 0.506)
pt3dadd(51.921, 52.468, 21.586, 0.484)
pt3dadd(51.84, 52.382, 21.603, 0.464)
pt3dadd(51.759, 52.296, 21.62, 0.442)
pt3dadd(51.678, 52.209, 21.636, 0.42)
pt3dadd(51.597, 52.123, 21.653, 0.398)
pt3dadd(51.516, 52.037, 21.669, 0.376)
pt3dadd(51.43, 51.957, 21.689, 0.404)
pt3dadd(51.342, 51.878, 21.709, 0.446)
pt3dadd(51.255, 51.799, 21.729, 0.486)
pt3dadd(51.168, 51.72, 21.749, 0.528)
pt3dadd(51.081, 51.641, 21.769, 0.57)
pt3dadd(50.993, 51.563, 21.789, 0.61)
pt3dadd(50.906, 51.484, 21.809, 0.652)
pt3dadd(50.819, 51.405, 21.829, 0.694)
pt3dadd(50.732, 51.326, 21.849, 0.734)
pt3dadd(50.644, 51.247, 21.869, 0.776)
pt3dadd(50.575, 51.159, 21.903, 0.756)
pt3dadd(50.508, 51.069, 21.938, 0.728)
pt3dadd(50.44, 50.979, 21.973, 0.702)
pt3dadd(50.373, 50.889, 22.009, 0.674)
pt3dadd(50.305, 50.799, 22.044, 0.648)
pt3dadd(50.238, 50.71, 22.079, 0.622)
pt3dadd(50.17, 50.62, 22.114, 0.594)
pt3dadd(50.103, 50.53, 22.149, 0.568)
pt3dadd(50.035, 50.44, 22.185, 0.54)
pt3dadd(49.968, 50.351, 22.22, 0.514)
pt3dadd(49.897, 50.257, 22.241, 0.532)
pt3dadd(49.827, 50.163, 22.262, 0.552)
pt3dadd(49.756, 50.07, 22.283, 0.574)
pt3dadd(49.685, 49.976, 22.304, 0.594)
pt3dadd(49.615, 49.882, 22.324, 0.614)
pt3dadd(49.544, 49.788, 22.345, 0.636)
pt3dadd(49.473, 49.695, 22.366, 0.656)
pt3dadd(49.403, 49.601, 22.387, 0.676)
pt3dadd(49.332, 49.507, 22.408, 0.696)
pt3dadd(49.261, 49.413, 22.429, 0.718)
pt3dadd(49.191, 49.318, 22.44, 0.736)
pt3dadd(49.12, 49.222, 22.452, 0.754)
pt3dadd(49.049, 49.126, 22.463, 0.774)
pt3dadd(48.978, 49.03, 22.474, 0.792)
pt3dadd(48.907, 48.934, 22.486, 0.81)
pt3dadd(48.836, 48.838, 22.497, 0.828)
pt3dadd(48.765, 48.742, 22.508, 0.848)
pt3dadd(48.694, 48.647, 22.52, 0.866)
pt3dadd(48.624, 48.551, 22.531, 0.884)
pt3dadd(48.553, 48.455, 22.542, 0.904)
pt3dadd(48.496, 48.349, 22.549, 0.904)
pt3dadd(48.44, 48.244, 22.556, 0.904)
pt3dadd(48.384, 48.138, 22.563, 0.904)
pt3dadd(48.327, 48.032, 22.57, 0.904)
pt3dadd(48.271, 47.927, 22.577, 0.904)
pt3dadd(48.215, 47.821, 22.584, 0.904)
pt3dadd(48.159, 47.715, 22.591, 0.904)
pt3dadd(48.102, 47.61, 22.598, 0.904)
pt3dadd(48.046, 47.504, 22.605, 0.904)
pt3dadd(47.99, 47.398, 22.612, 0.904)
pt3dadd(47.927, 47.297, 22.623, 0.904)
pt3dadd(47.865, 47.196, 22.635, 0.904)
pt3dadd(47.802, 47.094, 22.647, 0.904)
pt3dadd(47.739, 46.993, 22.659, 0.904)
}
}
proc shape3d_186() {
dend_7[49] { pt3dadd(47.676, 46.892, 22.671, 0.904)
pt3dadd(47.613, 46.791, 22.683, 0.904)
pt3dadd(47.55, 46.69, 22.695, 0.904)
pt3dadd(47.487, 46.588, 22.707, 0.904)
pt3dadd(47.425, 46.487, 22.72, 0.904)
pt3dadd(47.362, 46.386, 22.732, 0.904)
pt3dadd(47.314, 46.291, 22.777, 0.884)
pt3dadd(47.266, 46.196, 22.823, 0.862)
pt3dadd(47.218, 46.101, 22.87, 0.842)
pt3dadd(47.17, 46.006, 22.916, 0.822)
pt3dadd(47.122, 45.911, 22.963, 0.8)
pt3dadd(47.074, 45.816, 23.009, 0.78)
pt3dadd(47.026, 45.721, 23.055, 0.758)
pt3dadd(46.978, 45.626, 23.102, 0.738)
pt3dadd(46.931, 45.531, 23.148, 0.716)
pt3dadd(46.883, 45.436, 23.194, 0.696)
pt3dadd(46.835, 45.33, 23.217, 0.668)
pt3dadd(46.788, 45.223, 23.241, 0.642)
pt3dadd(46.741, 45.116, 23.264, 0.614)
pt3dadd(46.693, 45.01, 23.288, 0.586)
pt3dadd(46.646, 44.903, 23.312, 0.56)
pt3dadd(46.599, 44.797, 23.335, 0.532)
pt3dadd(46.551, 44.69, 23.359, 0.506)
pt3dadd(46.504, 44.584, 23.383, 0.478)
pt3dadd(46.457, 44.477, 23.406, 0.452)
pt3dadd(46.409, 44.37, 23.429, 0.43)
pt3dadd(46.356, 44.263, 23.439, 0.456)
pt3dadd(46.303, 44.156, 23.45, 0.48)
pt3dadd(46.25, 44.049, 23.46, 0.506)
pt3dadd(46.197, 43.942, 23.471, 0.53)
pt3dadd(46.145, 43.836, 23.481, 0.556)
pt3dadd(46.092, 43.728, 23.492, 0.582)
pt3dadd(46.039, 43.622, 23.502, 0.606)
pt3dadd(45.986, 43.515, 23.513, 0.632)
pt3dadd(45.933, 43.408, 23.524, 0.656)
pt3dadd(45.88, 43.301, 23.534, 0.676)
pt3dadd(45.826, 43.194, 23.542, 0.66)
pt3dadd(45.772, 43.087, 23.551, 0.642)
pt3dadd(45.718, 42.981, 23.559, 0.626)
pt3dadd(45.664, 42.874, 23.567, 0.61)
pt3dadd(45.61, 42.767, 23.575, 0.594)
pt3dadd(45.556, 42.66, 23.583, 0.578)
pt3dadd(45.502, 42.554, 23.592, 0.56)
pt3dadd(45.448, 42.447, 23.6, 0.544)
pt3dadd(45.395, 42.34, 23.608, 0.528)
pt3dadd(45.339, 42.234, 23.618, 0.51)
pt3dadd(45.278, 42.133, 23.635, 0.48)
pt3dadd(45.217, 42.032, 23.653, 0.452)
pt3dadd(45.156, 41.931, 23.67, 0.422)
pt3dadd(45.096, 41.829, 23.687, 0.394)
pt3dadd(45.035, 41.728, 23.704, 0.364)
pt3dadd(44.974, 41.627, 23.722, 0.334)
pt3dadd(44.913, 41.525, 23.739, 0.306)
pt3dadd(44.852, 41.424, 23.756, 0.276)
pt3dadd(44.791, 41.323, 23.773, 0.248)
pt3dadd(44.732, 41.222, 23.795, 0.226)
pt3dadd(44.679, 41.122, 23.828, 0.23)
pt3dadd(44.625, 41.022, 23.861, 0.232)
pt3dadd(44.572, 40.923, 23.895, 0.234)
pt3dadd(44.519, 40.823, 23.928, 0.238)
pt3dadd(44.466, 40.723, 23.961, 0.24)
pt3dadd(44.412, 40.623, 23.995, 0.242)
pt3dadd(44.359, 40.523, 24.028, 0.246)
pt3dadd(44.306, 40.424, 24.062, 0.248)
pt3dadd(44.252, 40.324, 24.095, 0.252)
pt3dadd(44.194, 40.226, 24.125, 0.258)
pt3dadd(44.122, 40.134, 24.147, 0.278)
pt3dadd(44.05, 40.041, 24.168, 0.296)
pt3dadd(43.978, 39.949, 24.19, 0.314)
pt3dadd(43.906, 39.856, 24.212, 0.334)
pt3dadd(43.834, 39.764, 24.234, 0.352)
pt3dadd(43.762, 39.672, 24.255, 0.37)
pt3dadd(43.69, 39.579, 24.277, 0.39)
pt3dadd(43.618, 39.487, 24.299, 0.408)
pt3dadd(43.546, 39.394, 24.32, 0.428)
pt3dadd(43.471, 39.303, 24.34, 0.446)
pt3dadd(43.39, 39.217, 24.354, 0.464)
pt3dadd(43.308, 39.131, 24.368, 0.482)
pt3dadd(43.226, 39.045, 24.382, 0.5)
pt3dadd(43.144, 38.959, 24.396, 0.518)
pt3dadd(43.062, 38.873, 24.41, 0.538)
pt3dadd(42.98, 38.787, 24.424, 0.556)
pt3dadd(42.898, 38.701, 24.438, 0.574)
pt3dadd(42.816, 38.615, 24.452, 0.592)
pt3dadd(42.734, 38.529, 24.467, 0.61)
pt3dadd(42.651, 38.445, 24.479, 0.622)
pt3dadd(42.562, 38.364, 24.489, 0.614)
pt3dadd(42.474, 38.283, 24.498, 0.608)
pt3dadd(42.386, 38.203, 24.508, 0.6)
pt3dadd(42.298, 38.122, 24.517, 0.594)
pt3dadd(42.21, 38.042, 24.527, 0.586)
pt3dadd(42.122, 37.961, 24.536, 0.58)
pt3dadd(42.033, 37.88, 24.546, 0.572)
pt3dadd(41.945, 37.8, 24.555, 0.566)
pt3dadd(41.857, 37.719, 24.565, 0.558)
pt3dadd(41.767, 37.642, 24.577, 0.548)
pt3dadd(41.671, 37.572, 24.595, 0.528)
pt3dadd(41.576, 37.503, 24.613, 0.51)
pt3dadd(41.48, 37.434, 24.631, 0.492)
pt3dadd(41.385, 37.364, 24.649, 0.472)
pt3dadd(41.289, 37.295, 24.667, 0.454)
pt3dadd(41.194, 37.225, 24.685, 0.434)
pt3dadd(41.099, 37.156, 24.703, 0.416)
pt3dadd(41.003, 37.086, 24.721, 0.398)
pt3dadd(40.908, 37.017, 24.739, 0.378)
pt3dadd(40.811, 36.952, 24.76, 0.368)
pt3dadd(40.711, 36.893, 24.787, 0.372)
pt3dadd(40.611, 36.834, 24.813, 0.374)
pt3dadd(40.512, 36.775, 24.84, 0.376)
pt3dadd(40.412, 36.717, 24.867, 0.378)
pt3dadd(40.312, 36.658, 24.893, 0.38)
pt3dadd(40.213, 36.599, 24.92, 0.384)
pt3dadd(40.113, 36.54, 24.946, 0.386)
pt3dadd(40.013, 36.482, 24.973, 0.388)
pt3dadd(39.914, 36.423, 25, 0.39)
pt3dadd(39.815, 36.361, 25.02, 0.414)
pt3dadd(39.716, 36.294, 25.033, 0.466)
pt3dadd(39.617, 36.228, 25.046, 0.518)
pt3dadd(39.518, 36.161, 25.058, 0.568)
pt3dadd(39.42, 36.095, 25.071, 0.62)
pt3dadd(39.321, 36.028, 25.084, 0.672)
pt3dadd(39.222, 35.962, 25.097, 0.722)
pt3dadd(39.123, 35.895, 25.109, 0.774)
pt3dadd(39.025, 35.829, 25.122, 0.826)
pt3dadd(38.926, 35.763, 25.135, 0.876)
pt3dadd(38.828, 35.694, 25.141, 0.904)
pt3dadd(38.731, 35.624, 25.141, 0.904)
pt3dadd(38.634, 35.553, 25.14, 0.904)
pt3dadd(38.537, 35.483, 25.14, 0.904)
pt3dadd(38.44, 35.412, 25.139, 0.904)
pt3dadd(38.343, 35.342, 25.139, 0.904)
pt3dadd(38.245, 35.271, 25.138, 0.904)
pt3dadd(38.148, 35.201, 25.138, 0.904)
pt3dadd(38.051, 35.13, 25.137, 0.904)
pt3dadd(37.954, 35.06, 25.137, 0.904)
pt3dadd(37.856, 34.998, 25.12, 0.874)
pt3dadd(37.757, 34.946, 25.083, 0.81)
pt3dadd(37.658, 34.894, 25.047, 0.748)
pt3dadd(37.559, 34.842, 25.011, 0.684)
pt3dadd(37.46, 34.789, 24.975, 0.62)
pt3dadd(37.361, 34.737, 24.939, 0.556)
pt3dadd(37.262, 34.685, 24.903, 0.494)
pt3dadd(37.163, 34.633, 24.867, 0.43)
pt3dadd(37.064, 34.581, 24.831, 0.366)
pt3dadd(36.965, 34.529, 24.795, 0.304)
pt3dadd(36.862, 34.48, 24.763, 0.3)
pt3dadd(36.756, 34.435, 24.736, 0.36)
pt3dadd(36.649, 34.39, 24.709, 0.422)
pt3dadd(36.543, 34.345, 24.682, 0.484)
pt3dadd(36.437, 34.3, 24.655, 0.544)
pt3dadd(36.33, 34.255, 24.628, 0.606)
pt3dadd(36.224, 34.21, 24.601, 0.668)
pt3dadd(36.117, 34.164, 24.574, 0.728)
pt3dadd(36.011, 34.119, 24.547, 0.79)
pt3dadd(35.905, 34.074, 24.52, 0.852)
pt3dadd(35.815, 34.004, 24.502, 0.848)
pt3dadd(35.741, 33.91, 24.491, 0.782)
pt3dadd(35.667, 33.817, 24.479, 0.716)
pt3dadd(35.593, 33.723, 24.468, 0.65)
pt3dadd(35.519, 33.63, 24.457, 0.584)
pt3dadd(35.445, 33.536, 24.446, 0.518)
pt3dadd(35.371, 33.443, 24.435, 0.454)
pt3dadd(35.297, 33.349, 24.424, 0.388)
pt3dadd(35.223, 33.256, 24.413, 0.322)
pt3dadd(35.149, 33.162, 24.402, 0.256)
pt3dadd(35.081, 33.064, 24.396, 0.234)
pt3dadd(35.018, 32.962, 24.395, 0.248)
pt3dadd(34.955, 32.86, 24.393, 0.262)
pt3dadd(34.892, 32.758, 24.392, 0.276)
pt3dadd(34.829, 32.655, 24.39, 0.292)
pt3dadd(34.766, 32.553, 24.389, 0.306)
pt3dadd(34.703, 32.451, 24.387, 0.32)
pt3dadd(34.64, 32.349, 24.386, 0.334)
pt3dadd(34.577, 32.247, 24.384, 0.348)
pt3dadd(34.515, 32.145, 24.383, 0.364)
pt3dadd(34.454, 32.041, 24.38, 0.382)
pt3dadd(34.396, 31.936, 24.375, 0.4)
pt3dadd(34.338, 31.831, 24.371, 0.422)
pt3dadd(34.279, 31.727, 24.367, 0.442)
pt3dadd(34.221, 31.622, 24.363, 0.462)
pt3dadd(34.163, 31.517, 24.359, 0.482)
pt3dadd(34.104, 31.412, 24.355, 0.502)
pt3dadd(34.046, 31.308, 24.351, 0.522)
pt3dadd(33.988, 31.203, 24.346, 0.542)
pt3dadd(33.93, 31.098, 24.342, 0.562)
pt3dadd(33.874, 30.992, 24.334, 0.546)
pt3dadd(33.821, 30.885, 24.324, 0.516)
pt3dadd(33.767, 30.779, 24.315, 0.486)
pt3dadd(33.713, 30.672, 24.305, 0.454)
pt3dadd(33.659, 30.566, 24.295, 0.424)
pt3dadd(33.605, 30.459, 24.286, 0.394)
pt3dadd(33.551, 30.352, 24.276, 0.364)
pt3dadd(33.497, 30.246, 24.266, 0.334)
pt3dadd(33.444, 30.139, 24.257, 0.304)
pt3dadd(33.39, 30.033, 24.247, 0.274)
pt3dadd(33.368, 29.921, 24.218, 0.266)
pt3dadd(33.351, 29.808, 24.186, 0.262)
pt3dadd(33.333, 29.695, 24.155, 0.258)
pt3dadd(33.315, 29.583, 24.124, 0.254)
pt3dadd(33.298, 29.47, 24.093, 0.248)
}
}
proc shape3d_187() {
dend_7[49] { pt3dadd(33.28, 29.358, 24.061, 0.244)
pt3dadd(33.262, 29.245, 24.03, 0.24)
pt3dadd(33.245, 29.133, 23.999, 0.236)
pt3dadd(33.227, 29.02, 23.967, 0.23)
pt3dadd(33.21, 28.907, 23.936, 0.226)
pt3dadd(33.208, 28.789, 23.921, 0.226)
pt3dadd(33.207, 28.67, 23.906, 0.226)
pt3dadd(33.206, 28.551, 23.891, 0.226)
pt3dadd(33.205, 28.433, 23.877, 0.226)
pt3dadd(33.204, 28.314, 23.862, 0.226)
pt3dadd(33.203, 28.195, 23.848, 0.226)
pt3dadd(33.202, 28.077, 23.833, 0.226)
pt3dadd(33.201, 27.958, 23.819, 0.226)
pt3dadd(33.201, 27.839, 23.804, 0.226)
pt3dadd(33.2, 27.72, 23.79, 0.226)
pt3dadd(33.2, 27.605, 23.816, 0.226)
pt3dadd(33.2, 27.489, 23.843, 0.226)
pt3dadd(33.2, 27.374, 23.87, 0.226)
pt3dadd(33.2, 27.258, 23.897, 0.226)
pt3dadd(33.2, 27.143, 23.924, 0.226)
pt3dadd(33.2, 27.027, 23.951, 0.226)
pt3dadd(33.2, 26.912, 23.978, 0.226)
pt3dadd(33.2, 26.796, 24.005, 0.226)
pt3dadd(33.2, 26.681, 24.032, 0.226)
pt3dadd(33.2, 26.565, 24.059, 0.226)
pt3dadd(33.2, 26.449, 24.084, 0.246)
pt3dadd(33.2, 26.333, 24.109, 0.268)
pt3dadd(33.2, 26.217, 24.134, 0.29)
pt3dadd(33.2, 26.1, 24.159, 0.31)
pt3dadd(33.2, 25.984, 24.184, 0.332)
pt3dadd(33.2, 25.868, 24.209, 0.352)
pt3dadd(33.2, 25.752, 24.234, 0.374)
pt3dadd(33.2, 25.635, 24.259, 0.394)
pt3dadd(33.2, 25.519, 24.284, 0.416)
pt3dadd(33.2, 25.403, 24.309, 0.436)
pt3dadd(33.2, 25.284, 24.319, 0.416)
pt3dadd(33.2, 25.164, 24.329, 0.394)
pt3dadd(33.2, 25.045, 24.339, 0.374)
pt3dadd(33.2, 24.925, 24.349, 0.352)
pt3dadd(33.2, 24.806, 24.359, 0.332)
pt3dadd(33.2, 24.687, 24.369, 0.31)
pt3dadd(33.2, 24.567, 24.379, 0.29)
pt3dadd(33.2, 24.448, 24.389, 0.268)
pt3dadd(33.2, 24.328, 24.399, 0.248)
pt3dadd(33.2, 24.209, 24.409, 0.226)
}
}
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()
shape3d_13()
shape3d_14()
shape3d_15()
shape3d_16()
shape3d_17()
shape3d_18()
shape3d_19()
shape3d_20()
shape3d_21()
shape3d_22()
shape3d_23()
shape3d_24()
shape3d_25()
shape3d_26()
shape3d_27()
shape3d_28()
shape3d_29()
shape3d_30()
shape3d_31()
shape3d_32()
shape3d_33()
shape3d_34()
shape3d_35()
shape3d_36()
shape3d_37()
shape3d_38()
shape3d_39()
shape3d_40()
shape3d_41()
shape3d_42()
shape3d_43()
shape3d_44()
shape3d_45()
shape3d_46()
shape3d_47()
shape3d_48()
shape3d_49()
shape3d_50()
shape3d_51()
shape3d_52()
shape3d_53()
shape3d_54()
shape3d_55()
shape3d_56()
shape3d_57()
shape3d_58()
shape3d_59()
shape3d_60()
shape3d_61()
shape3d_62()
shape3d_63()
shape3d_64()
shape3d_65()
shape3d_66()
shape3d_67()
shape3d_68()
shape3d_69()
shape3d_70()
shape3d_71()
shape3d_72()
shape3d_73()
shape3d_74()
shape3d_75()
shape3d_76()
shape3d_77()
shape3d_78()
shape3d_79()
shape3d_80()
shape3d_81()
shape3d_82()
shape3d_83()
shape3d_84()
shape3d_85()
shape3d_86()
shape3d_87()
shape3d_88()
shape3d_89()
shape3d_90()
shape3d_91()
shape3d_92()
shape3d_93()
shape3d_94()
shape3d_95()
shape3d_96()
shape3d_97()
shape3d_98()
shape3d_99()
shape3d_100()
basic_shape_1()
}
proc basic_shape_1() {
shape3d_101()
shape3d_102()
shape3d_103()
shape3d_104()
shape3d_105()
shape3d_106()
shape3d_107()
shape3d_108()
shape3d_109()
shape3d_110()
shape3d_111()
shape3d_112()
shape3d_113()
shape3d_114()
shape3d_115()
shape3d_116()
shape3d_117()
shape3d_118()
shape3d_119()
shape3d_120()
shape3d_121()
shape3d_122()
shape3d_123()
shape3d_124()
shape3d_125()
shape3d_126()
shape3d_127()
shape3d_128()
shape3d_129()
shape3d_130()
shape3d_131()
shape3d_132()
shape3d_133()
shape3d_134()
shape3d_135()
shape3d_136()
shape3d_137()
shape3d_138()
shape3d_139()
shape3d_140()
shape3d_141()
shape3d_142()
shape3d_143()
shape3d_144()
shape3d_145()
shape3d_146()
shape3d_147()
shape3d_148()
shape3d_149()
shape3d_150()
shape3d_151()
shape3d_152()
shape3d_153()
shape3d_154()
shape3d_155()
shape3d_156()
shape3d_157()
shape3d_158()
shape3d_159()
shape3d_160()
shape3d_161()
shape3d_162()
shape3d_163()
shape3d_164()
shape3d_165()
shape3d_166()
shape3d_167()
shape3d_168()
shape3d_169()
shape3d_170()
shape3d_171()
shape3d_172()
shape3d_173()
shape3d_174()
shape3d_175()
shape3d_176()
shape3d_177()
shape3d_178()
shape3d_179()
shape3d_180()
shape3d_181()
shape3d_182()
shape3d_183()
shape3d_184()
shape3d_185()
shape3d_186()
shape3d_187()
}
objref all, dendritic_0, somatic, apical, dendritic_5, dendritic_7
proc subsets() { local i
objref all, dendritic_0, somatic, apical, dendritic_5, dendritic_7
all = new SectionList()
soma all.append()
for i=0, 14 dend_0[i] all.append()
for i=0, 20 apic[i] all.append()
for i=0, 22 dend_5[i] all.append()
for i=0, 49 dend_7[i] all.append()
dendritic_0 = new SectionList()
for i=0, 14 dend_0[i] dendritic_0.append()
somatic = new SectionList()
soma somatic.append()
apical = new SectionList()
for i=0, 20 apic[i] apical.append()
dendritic_5 = new SectionList()
for i=0, 22 dend_5[i] dendritic_5.append()
dendritic_7 = new SectionList()
for i=0, 49 dend_7[i] dendritic_7.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()