proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend_0[14], dend_7[83], apic[29], dend_5[7]
proc topol() { local i
connect dend_0(0), soma(0.5)
for i = 1, 3 connect dend_0[i](0), dend_0(1)
for i = 4, 6 connect dend_0[i](0), dend_0[3](1)
connect dend_0[7](0), dend_0(1)
for i = 8, 9 connect dend_0[i](0), dend_0[7](1)
connect dend_0[10](0), dend_0(1)
connect dend_0[11](0), soma(0.5)
for i = 12, 13 connect dend_0[i](0), dend_0[11](1)
connect dend_7(0), dend_0[1](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[i-1](1)
connect dend_7[7](0), dend_7[5](1)
connect dend_7[8](0), dend_7[4](1)
for i = 9, 10 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[11](0), dend_7[9](1)
connect dend_7[12](0), dend_7[8](1)
connect dend_7[13](0), dend_0[4](1)
for i = 14, 16 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[17](0), dend_7[15](1)
connect dend_7[18](0), dend_7[14](1)
for i = 19, 20 connect dend_7[i](0), dend_7[18](1)
connect dend_7[21](0), dend_7[13](1)
for i = 22, 23 connect dend_7[i](0), dend_7[21](1)
connect dend_7[24](0), dend_0[5](1)
for i = 25, 26 connect dend_7[i](0), dend_7[24](1)
connect dend_7[27](0), dend_0[6](1)
for i = 28, 29 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[30](0), dend_7[28](1)
connect dend_7[31](0), dend_7[27](1)
for i = 32, 33 connect dend_7[i](0), dend_7[31](1)
connect dend_7[34](0), dend_0[8](1)
for i = 35, 37 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[38](0), dend_7[36](1)
connect dend_7[39](0), dend_7[35](1)
for i = 40, 41 connect dend_7[i](0), dend_7[39](1)
connect dend_7[42](0), dend_7[34](1)
connect dend_7[43](0), dend_0[9](1)
for i = 44, 45 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[46](0), dend_7[44](1)
connect dend_7[47](0), dend_7[43](1)
connect dend_7[48](0), dend_0[10](1)
for i = 49, 50 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[51](0), dend_7[49](1)
connect dend_7[52](0), dend_7[48](1)
for i = 53, 54 connect dend_7[i](0), dend_7[52](1)
connect dend_7[55](0), dend_0[12](1)
for i = 56, 57 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[58](0), dend_7[56](1)
connect dend_7[59](0), dend_7[55](1)
for i = 60, 62 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[63](0), dend_7[61](1)
connect dend_7[64](0), dend_7[60](1)
for i = 65, 66 connect dend_7[i](0), dend_7[64](1)
connect dend_7[67](0), dend_7[59](1)
connect dend_7[68](0), dend_0[13](1)
for i = 69, 72 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[73](0), dend_7[71](1)
connect dend_7[74](0), dend_7[70](1)
connect dend_7[75](0), dend_7[69](1)
for i = 76, 77 connect dend_7[i](0), dend_7[75](1)
connect dend_7[78](0), dend_7[68](1)
for i = 79, 80 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[81](0), dend_7[79](1)
connect dend_7[82](0), dend_7[78](1)
connect apic(0), dend_0[2](1)
for i = 1, 6 connect apic[i](0), apic[i-1](1)
connect apic[7](0), apic[5](1)
connect apic[8](0), apic[4](1)
for i = 9, 10 connect apic[i](0), apic[8](1)
connect apic[11](0), apic[3](1)
connect apic[12](0), apic[2](1)
for i = 13, 14 connect apic[i](0), apic[12](1)
for i = 15, 16 connect apic[i](0), apic[14](1)
connect apic[17](0), apic[1](1)
for i = 18, 19 connect apic[i](0), apic[17](1)
connect apic[20](0), apic(1)
for i = 21, 22 connect apic[i](0), apic[i-1](1)
connect apic[23](0), apic[21](1)
connect apic[24](0), apic[20](1)
for i = 25, 26 connect apic[i](0), apic[i-1](1)
connect apic[27](0), apic[25](1)
connect apic[28](0), apic[24](1)
connect dend_5(0), apic[9](1)
for i = 1, 3 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[4](0), dend_5[2](1)
connect dend_5[5](0), dend_5[1](1)
connect dend_5[6](0), dend_5(1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(97.343, 100.942, 14.404, 11.394)
pt3dadd(103.04, 100.942, 14.404, 11.394)
pt3dadd(108.737, 100.942, 14.404, 11.394)
}
dend_0 {pt3dclear()
pt3dstyle(1, 103.04, 100.942, 14.404)
pt3dadd(103.04, 101.062, 14.404, 11.492)
pt3dadd(103.04, 101.182, 14.404, 11.588)
pt3dadd(103.04, 101.302, 14.404, 11.684)
pt3dadd(103.04, 101.386, 14.404, 11.752)
}
dend_0[1] {pt3dclear()
pt3dadd(103.04, 101.386, 14.404, 11.752)
pt3dadd(103.027, 101.399, 14.404, 11.736)
pt3dadd(103.016, 101.41, 14.404, 11.72)
pt3dadd(102.931, 101.495, 14.404, 11.612)
pt3dadd(102.846, 101.58, 14.404, 11.502)
pt3dadd(102.762, 101.664, 14.404, 11.392)
pt3dadd(102.677, 101.749, 14.404, 11.284)
pt3dadd(102.592, 101.834, 14.404, 11.174)
pt3dadd(102.507, 101.919, 14.404, 11.066)
pt3dadd(102.422, 102.004, 14.404, 10.956)
pt3dadd(102.337, 102.089, 14.404, 10.846)
pt3dadd(102.252, 102.174, 14.404, 10.738)
pt3dadd(102.17, 102.26, 14.406, 10.622)
pt3dadd(102.1, 102.355, 14.424, 10.472)
pt3dadd(102.03, 102.45, 14.443, 10.322)
pt3dadd(101.96, 102.545, 14.461, 10.17)
pt3dadd(101.89, 102.64, 14.479, 10.02)
pt3dadd(101.821, 102.735, 14.498, 9.87)
pt3dadd(101.751, 102.83, 14.516, 9.72)
pt3dadd(101.681, 102.925, 14.534, 9.568)
pt3dadd(101.611, 103.02, 14.553, 9.418)
pt3dadd(101.541, 103.116, 14.571, 9.268)
pt3dadd(101.495, 103.214, 14.609, 9.084)
pt3dadd(101.462, 103.313, 14.657, 8.882)
pt3dadd(101.428, 103.413, 14.705, 8.68)
pt3dadd(101.395, 103.513, 14.753, 8.478)
pt3dadd(101.362, 103.613, 14.801, 8.276)
pt3dadd(101.328, 103.712, 14.849, 8.074)
pt3dadd(101.295, 103.812, 14.898, 7.87)
pt3dadd(101.262, 103.912, 14.946, 7.668)
pt3dadd(101.228, 104.011, 14.994, 7.466)
pt3dadd(101.195, 104.111, 15.042, 7.264)
pt3dadd(101.148, 104.212, 15.078, 7.08)
pt3dadd(101.094, 104.313, 15.107, 6.908)
pt3dadd(101.039, 104.414, 15.136, 6.734)
pt3dadd(100.985, 104.515, 15.165, 6.56)
pt3dadd(100.93, 104.617, 15.193, 6.388)
pt3dadd(100.876, 104.718, 15.222, 6.214)
pt3dadd(100.822, 104.819, 15.251, 6.04)
pt3dadd(100.767, 104.92, 15.28, 5.868)
pt3dadd(100.713, 105.022, 15.309, 5.694)
pt3dadd(100.659, 105.123, 15.338, 5.52)
pt3dadd(100.598, 105.223, 15.357, 5.362)
}
dend_7 {pt3dclear()
pt3dadd(100.598, 105.223, 15.357, 5.362)
pt3dadd(100.535, 105.324, 15.373, 5.208)
pt3dadd(100.472, 105.424, 15.389, 5.054)
pt3dadd(100.409, 105.524, 15.405, 4.902)
pt3dadd(100.346, 105.625, 15.421, 4.748)
pt3dadd(100.283, 105.725, 15.437, 4.594)
pt3dadd(100.22, 105.825, 15.453, 4.442)
pt3dadd(100.157, 105.926, 15.469, 4.288)
pt3dadd(100.094, 106.026, 15.484, 4.134)
pt3dadd(100.031, 106.126, 15.5, 3.98)
pt3dadd(99.968, 106.228, 15.511, 3.842)
pt3dadd(99.905, 106.329, 15.519, 3.708)
pt3dadd(99.843, 106.431, 15.528, 3.574)
pt3dadd(99.78, 106.533, 15.536, 3.44)
pt3dadd(99.718, 106.635, 15.545, 3.306)
pt3dadd(99.655, 106.737, 15.554, 3.17)
pt3dadd(99.592, 106.839, 15.562, 3.036)
pt3dadd(99.53, 106.941, 15.571, 2.902)
pt3dadd(99.467, 107.043, 15.579, 2.768)
pt3dadd(99.405, 107.144, 15.588, 2.634)
pt3dadd(99.357, 107.254, 15.59, 2.548)
pt3dadd(99.315, 107.366, 15.592, 2.476)
pt3dadd(99.272, 107.478, 15.593, 2.404)
pt3dadd(99.229, 107.59, 15.595, 2.332)
pt3dadd(99.186, 107.703, 15.596, 2.26)
pt3dadd(99.143, 107.815, 15.597, 2.188)
pt3dadd(99.1, 107.927, 15.599, 2.116)
pt3dadd(99.058, 108.039, 15.6, 2.044)
pt3dadd(99.015, 108.151, 15.601, 1.972)
pt3dadd(98.972, 108.263, 15.602, 1.9)
pt3dadd(98.945, 108.379, 15.605, 1.824)
pt3dadd(98.922, 108.497, 15.608, 1.748)
pt3dadd(98.898, 108.615, 15.61, 1.672)
pt3dadd(98.875, 108.733, 15.613, 1.596)
pt3dadd(98.852, 108.85, 15.615, 1.52)
pt3dadd(98.829, 108.968, 15.618, 1.446)
pt3dadd(98.806, 109.086, 15.621, 1.37)
pt3dadd(98.783, 109.203, 15.623, 1.294)
pt3dadd(98.76, 109.321, 15.626, 1.218)
pt3dadd(98.737, 109.439, 15.629, 1.142)
pt3dadd(98.721, 109.558, 15.634, 1.098)
pt3dadd(98.706, 109.677, 15.64, 1.062)
pt3dadd(98.692, 109.795, 15.646, 1.026)
pt3dadd(98.678, 109.914, 15.651, 0.99)
pt3dadd(98.663, 110.033, 15.657, 0.954)
pt3dadd(98.649, 110.152, 15.663, 0.918)
pt3dadd(98.634, 110.271, 15.668, 0.882)
pt3dadd(98.62, 110.39, 15.674, 0.848)
pt3dadd(98.605, 110.509, 15.68, 0.812)
pt3dadd(98.591, 110.628, 15.686, 0.776)
pt3dadd(98.566, 110.745, 15.694, 0.792)
pt3dadd(98.539, 110.861, 15.703, 0.822)
pt3dadd(98.511, 110.977, 15.712, 0.852)
pt3dadd(98.484, 111.094, 15.721, 0.88)
pt3dadd(98.457, 111.21, 15.731, 0.91)
pt3dadd(98.429, 111.327, 15.74, 0.938)
pt3dadd(98.402, 111.443, 15.749, 0.968)
pt3dadd(98.375, 111.559, 15.758, 0.998)
pt3dadd(98.347, 111.675, 15.767, 1.026)
pt3dadd(98.32, 111.792, 15.776, 1.056)
pt3dadd(98.286, 111.905, 15.793, 1.11)
pt3dadd(98.251, 112.018, 15.812, 1.168)
pt3dadd(98.216, 112.13, 15.83, 1.226)
pt3dadd(98.181, 112.243, 15.848, 1.284)
pt3dadd(98.146, 112.356, 15.866, 1.342)
pt3dadd(98.111, 112.468, 15.884, 1.4)
pt3dadd(98.076, 112.581, 15.902, 1.458)
pt3dadd(98.04, 112.694, 15.921, 1.516)
pt3dadd(98.005, 112.806, 15.939, 1.574)
pt3dadd(97.97, 112.919, 15.957, 1.63)
pt3dadd(97.952, 113.029, 15.994, 1.648)
pt3dadd(97.934, 113.139, 16.03, 1.666)
pt3dadd(97.916, 113.249, 16.067, 1.684)
pt3dadd(97.898, 113.36, 16.104, 1.702)
pt3dadd(97.88, 113.47, 16.141, 1.72)
pt3dadd(97.862, 113.58, 16.177, 1.738)
pt3dadd(97.844, 113.69, 16.214, 1.754)
pt3dadd(97.826, 113.8, 16.251, 1.772)
pt3dadd(97.808, 113.91, 16.288, 1.79)
pt3dadd(97.79, 114.02, 16.324, 1.808)
}
dend_7[1] {pt3dclear()
pt3dadd(97.79, 114.02, 16.324, 1.808)
pt3dadd(97.792, 114.075, 16.335, 1.808)
pt3dadd(97.796, 114.191, 16.359, 1.808)
pt3dadd(97.8, 114.307, 16.383, 1.808)
pt3dadd(97.803, 114.424, 16.407, 1.808)
pt3dadd(97.807, 114.54, 16.431, 1.808)
pt3dadd(97.811, 114.657, 16.455, 1.808)
pt3dadd(97.815, 114.773, 16.479, 1.808)
pt3dadd(97.818, 114.89, 16.503, 1.808)
pt3dadd(97.822, 115.006, 16.527, 1.808)
pt3dadd(97.826, 115.123, 16.551, 1.808)
pt3dadd(97.83, 115.239, 16.575, 1.808)
pt3dadd(97.857, 115.352, 16.592, 1.774)
pt3dadd(97.902, 115.462, 16.604, 1.712)
pt3dadd(97.948, 115.572, 16.615, 1.65)
pt3dadd(97.994, 115.682, 16.627, 1.586)
pt3dadd(98.04, 115.792, 16.639, 1.524)
pt3dadd(98.085, 115.902, 16.65, 1.462)
pt3dadd(98.131, 116.012, 16.662, 1.4)
pt3dadd(98.177, 116.122, 16.674, 1.338)
pt3dadd(98.223, 116.232, 16.685, 1.276)
pt3dadd(98.268, 116.342, 16.697, 1.214)
pt3dadd(98.313, 116.453, 16.704, 1.18)
pt3dadd(98.358, 116.565, 16.708, 1.162)
pt3dadd(98.403, 116.676, 16.712, 1.144)
pt3dadd(98.447, 116.787, 16.716, 1.126)
pt3dadd(98.492, 116.898, 16.72, 1.108)
pt3dadd(98.537, 117.01, 16.724, 1.09)
pt3dadd(98.581, 117.121, 16.728, 1.072)
pt3dadd(98.626, 117.232, 16.732, 1.054)
pt3dadd(98.67, 117.344, 16.736, 1.036)
pt3dadd(98.715, 117.455, 16.74, 1.016)
pt3dadd(98.76, 117.566, 16.741, 1.018)
pt3dadd(98.805, 117.677, 16.741, 1.03)
pt3dadd(98.85, 117.789, 16.741, 1.042)
pt3dadd(98.895, 117.9, 16.741, 1.054)
pt3dadd(98.94, 118.011, 16.741, 1.066)
pt3dadd(98.985, 118.122, 16.74, 1.078)
pt3dadd(99.03, 118.234, 16.74, 1.09)
pt3dadd(99.075, 118.345, 16.74, 1.102)
pt3dadd(99.119, 118.456, 16.74, 1.114)
pt3dadd(99.164, 118.568, 16.74, 1.126)
pt3dadd(99.214, 118.677, 16.739, 1.128)
pt3dadd(99.267, 118.785, 16.739, 1.126)
pt3dadd(99.319, 118.893, 16.739, 1.122)
pt3dadd(99.372, 119, 16.739, 1.12)
pt3dadd(99.424, 119.108, 16.738, 1.116)
pt3dadd(99.476, 119.216, 16.738, 1.114)
pt3dadd(99.529, 119.324, 16.738, 1.11)
pt3dadd(99.581, 119.432, 16.737, 1.108)
pt3dadd(99.633, 119.54, 16.737, 1.104)
pt3dadd(99.686, 119.648, 16.737, 1.102)
pt3dadd(99.72, 119.763, 16.736, 1.048)
pt3dadd(99.745, 119.88, 16.736, 0.974)
pt3dadd(99.77, 119.997, 16.735, 0.898)
pt3dadd(99.796, 120.114, 16.735, 0.822)
pt3dadd(99.821, 120.232, 16.734, 0.746)
pt3dadd(99.847, 120.349, 16.733, 0.672)
pt3dadd(99.872, 120.467, 16.733, 0.596)
pt3dadd(99.898, 120.583, 16.732, 0.52)
pt3dadd(99.923, 120.701, 16.731, 0.444)
pt3dadd(99.948, 120.818, 16.731, 0.37)
pt3dadd(99.962, 120.937, 16.73, 0.36)
pt3dadd(99.97, 121.057, 16.728, 0.38)
pt3dadd(99.978, 121.176, 16.727, 0.4)
pt3dadd(99.986, 121.296, 16.726, 0.422)
pt3dadd(99.994, 121.416, 16.724, 0.442)
pt3dadd(100.002, 121.536, 16.723, 0.462)
pt3dadd(100.009, 121.655, 16.722, 0.484)
pt3dadd(100.017, 121.775, 16.721, 0.504)
}
}
proc shape3d_2() {
dend_7[1] { pt3dadd(100.025, 121.895, 16.719, 0.524)
pt3dadd(100.033, 122.015, 16.718, 0.544)
pt3dadd(100.03, 122.135, 16.716, 0.55)
pt3dadd(100.022, 122.254, 16.713, 0.55)
pt3dadd(100.014, 122.374, 16.711, 0.55)
pt3dadd(100.006, 122.494, 16.709, 0.55)
pt3dadd(99.998, 122.614, 16.706, 0.55)
pt3dadd(99.99, 122.732, 16.704, 0.55)
pt3dadd(99.981, 122.852, 16.701, 0.55)
pt3dadd(99.973, 122.972, 16.699, 0.55)
pt3dadd(99.965, 123.092, 16.697, 0.55)
pt3dadd(99.957, 123.211, 16.694, 0.55)
pt3dadd(99.933, 123.329, 16.69, 0.548)
pt3dadd(99.903, 123.444, 16.685, 0.548)
pt3dadd(99.873, 123.56, 16.681, 0.546)
pt3dadd(99.843, 123.677, 16.676, 0.546)
pt3dadd(99.813, 123.793, 16.671, 0.544)
pt3dadd(99.783, 123.908, 16.666, 0.544)
pt3dadd(99.753, 124.025, 16.662, 0.542)
pt3dadd(99.723, 124.141, 16.657, 0.542)
pt3dadd(99.693, 124.256, 16.652, 0.542)
pt3dadd(99.663, 124.373, 16.648, 0.54)
pt3dadd(99.623, 124.486, 16.64, 0.558)
pt3dadd(99.581, 124.597, 16.633, 0.58)
pt3dadd(99.538, 124.71, 16.625, 0.602)
pt3dadd(99.496, 124.822, 16.618, 0.624)
pt3dadd(99.454, 124.933, 16.61, 0.648)
pt3dadd(99.412, 125.046, 16.602, 0.67)
pt3dadd(99.369, 125.158, 16.595, 0.692)
pt3dadd(99.327, 125.269, 16.587, 0.714)
pt3dadd(99.285, 125.381, 16.579, 0.736)
pt3dadd(99.243, 125.494, 16.572, 0.758)
pt3dadd(99.21, 125.608, 16.561, 0.792)
pt3dadd(99.18, 125.723, 16.549, 0.828)
pt3dadd(99.149, 125.838, 16.538, 0.866)
pt3dadd(99.118, 125.953, 16.526, 0.902)
pt3dadd(99.087, 126.068, 16.515, 0.94)
pt3dadd(99.057, 126.184, 16.503, 0.976)
pt3dadd(99.026, 126.299, 16.492, 1.012)
pt3dadd(98.995, 126.414, 16.48, 1.048)
pt3dadd(98.965, 126.529, 16.469, 1.086)
pt3dadd(98.934, 126.644, 16.458, 1.122)
pt3dadd(98.915, 126.756, 16.424, 1.098)
pt3dadd(98.898, 126.865, 16.387, 1.062)
pt3dadd(98.881, 126.976, 16.35, 1.026)
pt3dadd(98.864, 127.086, 16.313, 0.992)
pt3dadd(98.847, 127.196, 16.276, 0.956)
pt3dadd(98.83, 127.307, 16.239, 0.92)
pt3dadd(98.813, 127.416, 16.202, 0.886)
pt3dadd(98.796, 127.526, 16.165, 0.85)
pt3dadd(98.78, 127.637, 16.128, 0.814)
pt3dadd(98.763, 127.747, 16.091, 0.778)
pt3dadd(98.749, 127.861, 16.062, 0.788)
pt3dadd(98.736, 127.975, 16.034, 0.806)
pt3dadd(98.723, 128.09, 16.006, 0.824)
pt3dadd(98.71, 128.204, 15.978, 0.842)
pt3dadd(98.697, 128.318, 15.95, 0.86)
pt3dadd(98.683, 128.434, 15.922, 0.878)
pt3dadd(98.67, 128.548, 15.895, 0.894)
pt3dadd(98.657, 128.663, 15.867, 0.912)
pt3dadd(98.644, 128.777, 15.839, 0.93)
pt3dadd(98.631, 128.891, 15.811, 0.948)
pt3dadd(98.614, 129.007, 15.791, 0.95)
pt3dadd(98.597, 129.125, 15.773, 0.948)
pt3dadd(98.58, 129.241, 15.755, 0.946)
pt3dadd(98.563, 129.358, 15.737, 0.944)
pt3dadd(98.546, 129.475, 15.719, 0.942)
pt3dadd(98.529, 129.592, 15.701, 0.942)
pt3dadd(98.512, 129.708, 15.683, 0.94)
pt3dadd(98.495, 129.826, 15.664, 0.938)
pt3dadd(98.478, 129.942, 15.646, 0.936)
pt3dadd(98.46, 130.058, 15.628, 0.934)
pt3dadd(98.429, 130.174, 15.618, 0.926)
pt3dadd(98.396, 130.289, 15.609, 0.916)
pt3dadd(98.363, 130.403, 15.599, 0.908)
pt3dadd(98.33, 130.518, 15.59, 0.898)
pt3dadd(98.297, 130.633, 15.581, 0.888)
pt3dadd(98.264, 130.748, 15.572, 0.88)
pt3dadd(98.231, 130.862, 15.563, 0.87)
pt3dadd(98.198, 130.978, 15.553, 0.86)
pt3dadd(98.165, 131.093, 15.544, 0.852)
pt3dadd(98.132, 131.207, 15.535, 0.842)
pt3dadd(98.077, 131.314, 15.532, 0.894)
pt3dadd(98.021, 131.42, 15.53, 0.946)
pt3dadd(97.966, 131.526, 15.527, 0.996)
pt3dadd(97.911, 131.633, 15.525, 1.048)
pt3dadd(97.855, 131.74, 15.522, 1.1)
pt3dadd(97.8, 131.845, 15.52, 1.15)
pt3dadd(97.744, 131.952, 15.517, 1.202)
pt3dadd(97.689, 132.059, 15.515, 1.254)
pt3dadd(97.633, 132.164, 15.512, 1.304)
pt3dadd(97.578, 132.271, 15.51, 1.356)
}
dend_7[2] {pt3dclear()
pt3dadd(97.578, 132.271, 15.51, 1.356)
pt3dadd(97.557, 132.304, 15.508, 1.34)
pt3dadd(97.491, 132.404, 15.502, 1.292)
pt3dadd(97.425, 132.504, 15.496, 1.244)
pt3dadd(97.36, 132.605, 15.49, 1.196)
pt3dadd(97.294, 132.704, 15.484, 1.146)
pt3dadd(97.229, 132.805, 15.478, 1.098)
pt3dadd(97.163, 132.905, 15.472, 1.05)
pt3dadd(97.097, 133.006, 15.466, 1.002)
pt3dadd(97.032, 133.105, 15.461, 0.954)
pt3dadd(96.968, 133.207, 15.454, 0.91)
pt3dadd(96.914, 133.314, 15.446, 0.886)
pt3dadd(96.86, 133.421, 15.437, 0.862)
pt3dadd(96.806, 133.528, 15.429, 0.838)
pt3dadd(96.752, 133.633, 15.42, 0.814)
pt3dadd(96.698, 133.74, 15.412, 0.79)
pt3dadd(96.644, 133.847, 15.403, 0.766)
pt3dadd(96.59, 133.954, 15.395, 0.744)
pt3dadd(96.536, 134.06, 15.386, 0.72)
pt3dadd(96.482, 134.167, 15.378, 0.696)
pt3dadd(96.433, 134.275, 15.367, 0.676)
pt3dadd(96.397, 134.388, 15.349, 0.672)
pt3dadd(96.361, 134.501, 15.331, 0.668)
pt3dadd(96.325, 134.612, 15.314, 0.664)
pt3dadd(96.29, 134.725, 15.296, 0.658)
pt3dadd(96.254, 134.838, 15.278, 0.654)
pt3dadd(96.218, 134.951, 15.261, 0.65)
pt3dadd(96.182, 135.064, 15.243, 0.644)
pt3dadd(96.146, 135.175, 15.225, 0.64)
pt3dadd(96.11, 135.288, 15.208, 0.636)
pt3dadd(96.081, 135.4, 15.183, 0.626)
pt3dadd(96.065, 135.51, 15.146, 0.608)
pt3dadd(96.049, 135.62, 15.109, 0.59)
pt3dadd(96.033, 135.731, 15.072, 0.572)
pt3dadd(96.016, 135.841, 15.035, 0.556)
pt3dadd(96, 135.952, 14.998, 0.538)
pt3dadd(95.984, 136.062, 14.961, 0.52)
pt3dadd(95.967, 136.172, 14.924, 0.502)
pt3dadd(95.951, 136.283, 14.887, 0.484)
pt3dadd(95.935, 136.393, 14.851, 0.466)
pt3dadd(95.921, 136.505, 14.818, 0.462)
pt3dadd(95.91, 136.621, 14.794, 0.48)
pt3dadd(95.9, 136.738, 14.77, 0.498)
pt3dadd(95.89, 136.853, 14.746, 0.516)
pt3dadd(95.879, 136.969, 14.721, 0.534)
pt3dadd(95.869, 137.084, 14.697, 0.552)
pt3dadd(95.859, 137.201, 14.673, 0.57)
pt3dadd(95.848, 137.317, 14.649, 0.588)
pt3dadd(95.838, 137.432, 14.624, 0.606)
pt3dadd(95.828, 137.549, 14.6, 0.624)
pt3dadd(95.815, 137.665, 14.58, 0.638)
pt3dadd(95.799, 137.783, 14.566, 0.642)
pt3dadd(95.782, 137.9, 14.551, 0.646)
pt3dadd(95.766, 138.018, 14.537, 0.65)
pt3dadd(95.75, 138.136, 14.523, 0.654)
pt3dadd(95.733, 138.253, 14.509, 0.658)
pt3dadd(95.717, 138.371, 14.495, 0.662)
pt3dadd(95.701, 138.49, 14.481, 0.666)
pt3dadd(95.684, 138.607, 14.466, 0.672)
pt3dadd(95.668, 138.725, 14.452, 0.676)
pt3dadd(95.643, 138.84, 14.442, 0.67)
pt3dadd(95.604, 138.954, 14.437, 0.65)
pt3dadd(95.565, 139.067, 14.432, 0.628)
pt3dadd(95.526, 139.181, 14.427, 0.608)
pt3dadd(95.487, 139.294, 14.421, 0.586)
pt3dadd(95.448, 139.406, 14.416, 0.566)
pt3dadd(95.409, 139.52, 14.411, 0.546)
pt3dadd(95.37, 139.633, 14.406, 0.524)
pt3dadd(95.331, 139.747, 14.401, 0.504)
pt3dadd(95.292, 139.86, 14.396, 0.484)
pt3dadd(95.247, 139.972, 14.393, 0.468)
pt3dadd(95.196, 140.08, 14.393, 0.46)
pt3dadd(95.145, 140.189, 14.392, 0.45)
pt3dadd(95.095, 140.298, 14.391, 0.442)
pt3dadd(95.044, 140.406, 14.39, 0.434)
pt3dadd(94.993, 140.515, 14.389, 0.424)
pt3dadd(94.942, 140.623, 14.389, 0.416)
pt3dadd(94.892, 140.732, 14.388, 0.406)
pt3dadd(94.841, 140.842, 14.387, 0.398)
pt3dadd(94.79, 140.95, 14.386, 0.388)
pt3dadd(94.742, 141.06, 14.385, 0.412)
pt3dadd(94.696, 141.17, 14.384, 0.462)
pt3dadd(94.65, 141.282, 14.382, 0.512)
pt3dadd(94.604, 141.392, 14.381, 0.562)
pt3dadd(94.558, 141.503, 14.38, 0.612)
pt3dadd(94.512, 141.614, 14.378, 0.664)
pt3dadd(94.466, 141.725, 14.377, 0.714)
pt3dadd(94.42, 141.835, 14.375, 0.764)
pt3dadd(94.374, 141.947, 14.374, 0.814)
pt3dadd(94.328, 142.057, 14.373, 0.864)
pt3dadd(94.273, 142.164, 14.371, 0.87)
pt3dadd(94.21, 142.266, 14.368, 0.836)
pt3dadd(94.147, 142.368, 14.365, 0.802)
pt3dadd(94.084, 142.47, 14.363, 0.768)
pt3dadd(94.021, 142.572, 14.36, 0.734)
pt3dadd(93.958, 142.674, 14.358, 0.702)
pt3dadd(93.895, 142.776, 14.355, 0.668)
pt3dadd(93.832, 142.878, 14.353, 0.634)
pt3dadd(93.768, 142.98, 14.351, 0.6)
pt3dadd(93.705, 143.082, 14.348, 0.566)
pt3dadd(93.648, 143.186, 14.344, 0.552)
pt3dadd(93.596, 143.294, 14.338, 0.556)
pt3dadd(93.544, 143.402, 14.332, 0.56)
pt3dadd(93.492, 143.51, 14.327, 0.562)
pt3dadd(93.44, 143.618, 14.321, 0.566)
pt3dadd(93.388, 143.726, 14.315, 0.57)
pt3dadd(93.336, 143.834, 14.31, 0.574)
pt3dadd(93.284, 143.942, 14.304, 0.578)
}
}
proc shape3d_3() {
dend_7[2] { pt3dadd(93.231, 144.05, 14.298, 0.582)
pt3dadd(93.179, 144.158, 14.293, 0.586)
pt3dadd(93.124, 144.264, 14.285, 0.586)
pt3dadd(93.066, 144.368, 14.276, 0.586)
pt3dadd(93.008, 144.473, 14.267, 0.586)
pt3dadd(92.95, 144.577, 14.258, 0.586)
pt3dadd(92.893, 144.683, 14.249, 0.586)
pt3dadd(92.835, 144.787, 14.24, 0.586)
pt3dadd(92.777, 144.892, 14.231, 0.586)
pt3dadd(92.719, 144.996, 14.222, 0.584)
pt3dadd(92.661, 145.1, 14.213, 0.584)
pt3dadd(92.603, 145.205, 14.204, 0.584)
pt3dadd(92.541, 145.306, 14.187, 0.576)
pt3dadd(92.475, 145.402, 14.166, 0.562)
pt3dadd(92.409, 145.499, 14.145, 0.55)
pt3dadd(92.343, 145.596, 14.123, 0.536)
pt3dadd(92.277, 145.693, 14.102, 0.522)
pt3dadd(92.211, 145.79, 14.081, 0.508)
pt3dadd(92.145, 145.888, 14.06, 0.496)
pt3dadd(92.08, 145.985, 14.038, 0.482)
pt3dadd(92.014, 146.081, 14.017, 0.468)
pt3dadd(91.948, 146.178, 13.996, 0.456)
pt3dadd(91.884, 146.269, 13.959, 0.456)
pt3dadd(91.821, 146.358, 13.917, 0.462)
pt3dadd(91.758, 146.447, 13.875, 0.468)
pt3dadd(91.695, 146.536, 13.833, 0.474)
pt3dadd(91.632, 146.624, 13.791, 0.48)
pt3dadd(91.569, 146.713, 13.75, 0.486)
pt3dadd(91.506, 146.802, 13.708, 0.492)
pt3dadd(91.443, 146.891, 13.666, 0.498)
pt3dadd(91.38, 146.98, 13.624, 0.504)
pt3dadd(91.317, 147.068, 13.582, 0.508)
pt3dadd(91.248, 147.161, 13.555, 0.526)
pt3dadd(91.178, 147.254, 13.532, 0.546)
pt3dadd(91.108, 147.348, 13.509, 0.564)
pt3dadd(91.038, 147.442, 13.485, 0.584)
pt3dadd(90.968, 147.535, 13.462, 0.604)
pt3dadd(90.898, 147.629, 13.438, 0.624)
pt3dadd(90.828, 147.721, 13.415, 0.642)
pt3dadd(90.759, 147.815, 13.391, 0.662)
pt3dadd(90.689, 147.908, 13.368, 0.682)
pt3dadd(90.619, 148.002, 13.344, 0.702)
pt3dadd(90.566, 148.108, 13.331, 0.722)
pt3dadd(90.516, 148.217, 13.319, 0.74)
pt3dadd(90.467, 148.325, 13.307, 0.76)
pt3dadd(90.417, 148.433, 13.295, 0.78)
pt3dadd(90.367, 148.541, 13.283, 0.8)
pt3dadd(90.317, 148.649, 13.271, 0.82)
pt3dadd(90.267, 148.758, 13.259, 0.838)
pt3dadd(90.218, 148.866, 13.247, 0.858)
pt3dadd(90.168, 148.974, 13.235, 0.878)
pt3dadd(90.118, 149.082, 13.224, 0.898)
pt3dadd(90.057, 149.185, 13.221, 0.886)
pt3dadd(89.995, 149.288, 13.219, 0.87)
pt3dadd(89.932, 149.39, 13.218, 0.854)
pt3dadd(89.869, 149.492, 13.216, 0.84)
pt3dadd(89.807, 149.594, 13.215, 0.824)
pt3dadd(89.744, 149.698, 13.213, 0.808)
pt3dadd(89.682, 149.8, 13.212, 0.792)
pt3dadd(89.619, 149.902, 13.211, 0.776)
pt3dadd(89.556, 150.005, 13.209, 0.76)
pt3dadd(89.494, 150.107, 13.208, 0.744)
pt3dadd(89.438, 150.214, 13.206, 0.718)
pt3dadd(89.384, 150.32, 13.204, 0.69)
pt3dadd(89.33, 150.427, 13.201, 0.662)
pt3dadd(89.275, 150.534, 13.199, 0.634)
pt3dadd(89.221, 150.641, 13.197, 0.606)
pt3dadd(89.166, 150.748, 13.195, 0.578)
pt3dadd(89.112, 150.854, 13.193, 0.55)
pt3dadd(89.057, 150.961, 13.191, 0.522)
pt3dadd(89.003, 151.068, 13.189, 0.496)
pt3dadd(88.949, 151.175, 13.187, 0.468)
pt3dadd(88.894, 151.283, 13.183, 0.456)
pt3dadd(88.84, 151.39, 13.179, 0.448)
pt3dadd(88.786, 151.496, 13.176, 0.44)
pt3dadd(88.731, 151.603, 13.172, 0.432)
pt3dadd(88.677, 151.71, 13.168, 0.424)
pt3dadd(88.623, 151.817, 13.164, 0.416)
pt3dadd(88.569, 151.924, 13.161, 0.408)
pt3dadd(88.514, 152.03, 13.157, 0.4)
pt3dadd(88.46, 152.137, 13.153, 0.392)
pt3dadd(88.406, 152.244, 13.149, 0.384)
pt3dadd(88.341, 152.345, 13.143, 0.428)
pt3dadd(88.275, 152.446, 13.137, 0.476)
pt3dadd(88.21, 152.546, 13.132, 0.526)
pt3dadd(88.144, 152.646, 13.126, 0.574)
pt3dadd(88.079, 152.747, 13.12, 0.622)
pt3dadd(88.013, 152.846, 13.113, 0.67)
pt3dadd(87.948, 152.947, 13.108, 0.718)
pt3dadd(87.882, 153.047, 13.101, 0.768)
pt3dadd(87.817, 153.148, 13.095, 0.816)
pt3dadd(87.751, 153.248, 13.09, 0.864)
pt3dadd(87.683, 153.346, 13.08, 0.858)
pt3dadd(87.615, 153.444, 13.071, 0.846)
pt3dadd(87.547, 153.542, 13.061, 0.836)
pt3dadd(87.479, 153.641, 13.052, 0.824)
pt3dadd(87.411, 153.738, 13.043, 0.814)
pt3dadd(87.342, 153.836, 13.033, 0.802)
pt3dadd(87.274, 153.935, 13.024, 0.792)
pt3dadd(87.206, 154.033, 13.014, 0.782)
pt3dadd(87.138, 154.13, 13.005, 0.77)
pt3dadd(87.07, 154.229, 12.995, 0.758)
pt3dadd(87.01, 154.33, 12.974, 0.75)
pt3dadd(86.951, 154.43, 12.952, 0.742)
pt3dadd(86.891, 154.531, 12.929, 0.734)
pt3dadd(86.832, 154.632, 12.907, 0.726)
pt3dadd(86.773, 154.734, 12.885, 0.718)
pt3dadd(86.714, 154.835, 12.863, 0.71)
pt3dadd(86.655, 154.936, 12.841, 0.702)
pt3dadd(86.595, 155.036, 12.819, 0.694)
pt3dadd(86.536, 155.137, 12.797, 0.686)
pt3dadd(86.478, 155.238, 12.774, 0.678)
pt3dadd(86.43, 155.341, 12.741, 0.678)
pt3dadd(86.383, 155.444, 12.707, 0.678)
pt3dadd(86.337, 155.546, 12.674, 0.678)
pt3dadd(86.289, 155.65, 12.641, 0.678)
pt3dadd(86.242, 155.753, 12.607, 0.678)
pt3dadd(86.196, 155.856, 12.574, 0.678)
pt3dadd(86.148, 155.958, 12.54, 0.678)
pt3dadd(86.102, 156.061, 12.507, 0.678)
pt3dadd(86.055, 156.164, 12.474, 0.678)
pt3dadd(86.008, 156.268, 12.441, 0.678)
pt3dadd(85.971, 156.378, 12.417, 0.678)
pt3dadd(85.934, 156.488, 12.392, 0.678)
pt3dadd(85.897, 156.599, 12.368, 0.678)
pt3dadd(85.86, 156.709, 12.344, 0.678)
pt3dadd(85.823, 156.82, 12.32, 0.678)
pt3dadd(85.785, 156.93, 12.296, 0.678)
pt3dadd(85.748, 157.04, 12.272, 0.678)
pt3dadd(85.711, 157.151, 12.248, 0.678)
pt3dadd(85.674, 157.261, 12.224, 0.678)
pt3dadd(85.636, 157.372, 12.201, 0.676)
pt3dadd(85.578, 157.475, 12.187, 0.648)
pt3dadd(85.52, 157.579, 12.173, 0.622)
pt3dadd(85.462, 157.682, 12.159, 0.594)
pt3dadd(85.404, 157.786, 12.145, 0.566)
pt3dadd(85.346, 157.89, 12.131, 0.538)
pt3dadd(85.288, 157.993, 12.118, 0.51)
pt3dadd(85.23, 158.098, 12.104, 0.482)
pt3dadd(85.172, 158.201, 12.09, 0.454)
pt3dadd(85.114, 158.304, 12.076, 0.426)
pt3dadd(85.055, 158.407, 12.063, 0.402)
pt3dadd(84.987, 158.506, 12.054, 0.398)
pt3dadd(84.919, 158.604, 12.045, 0.394)
pt3dadd(84.851, 158.702, 12.036, 0.39)
pt3dadd(84.783, 158.801, 12.027, 0.386)
pt3dadd(84.715, 158.899, 12.018, 0.384)
pt3dadd(84.647, 158.998, 12.009, 0.38)
pt3dadd(84.579, 159.096, 12, 0.376)
pt3dadd(84.511, 159.194, 11.991, 0.372)
pt3dadd(84.443, 159.293, 11.982, 0.368)
pt3dadd(84.374, 159.39, 11.974, 0.37)
pt3dadd(84.299, 159.484, 11.968, 0.4)
pt3dadd(84.224, 159.577, 11.962, 0.43)
pt3dadd(84.149, 159.671, 11.957, 0.46)
pt3dadd(84.074, 159.764, 11.951, 0.49)
pt3dadd(83.999, 159.858, 11.946, 0.52)
pt3dadd(83.925, 159.952, 11.94, 0.55)
pt3dadd(83.85, 160.045, 11.935, 0.58)
pt3dadd(83.775, 160.139, 11.929, 0.61)
pt3dadd(83.7, 160.232, 11.924, 0.64)
pt3dadd(83.625, 160.325, 11.918, 0.668)
pt3dadd(83.547, 160.416, 11.909, 0.668)
pt3dadd(83.47, 160.507, 11.9, 0.67)
pt3dadd(83.393, 160.598, 11.892, 0.67)
pt3dadd(83.316, 160.69, 11.883, 0.672)
pt3dadd(83.238, 160.781, 11.874, 0.672)
pt3dadd(83.161, 160.872, 11.865, 0.674)
pt3dadd(83.084, 160.963, 11.856, 0.674)
pt3dadd(83.006, 161.054, 11.848, 0.676)
pt3dadd(82.929, 161.146, 11.839, 0.678)
pt3dadd(82.853, 161.238, 11.829, 0.678)
pt3dadd(82.786, 161.334, 11.809, 0.67)
pt3dadd(82.718, 161.43, 11.789, 0.664)
pt3dadd(82.651, 161.527, 11.77, 0.656)
pt3dadd(82.583, 161.623, 11.75, 0.65)
pt3dadd(82.516, 161.719, 11.73, 0.642)
pt3dadd(82.448, 161.816, 11.711, 0.636)
pt3dadd(82.381, 161.912, 11.691, 0.628)
pt3dadd(82.314, 162.008, 11.671, 0.622)
pt3dadd(82.246, 162.106, 11.652, 0.614)
pt3dadd(82.183, 162.203, 11.628, 0.606)
pt3dadd(82.131, 162.304, 11.595, 0.59)
pt3dadd(82.079, 162.404, 11.562, 0.574)
pt3dadd(82.027, 162.504, 11.528, 0.56)
pt3dadd(81.975, 162.605, 11.495, 0.544)
pt3dadd(81.924, 162.706, 11.462, 0.53)
pt3dadd(81.872, 162.806, 11.428, 0.514)
pt3dadd(81.82, 162.907, 11.395, 0.498)
pt3dadd(81.768, 163.007, 11.362, 0.484)
pt3dadd(81.716, 163.108, 11.328, 0.468)
pt3dadd(81.662, 163.208, 11.298, 0.46)
pt3dadd(81.601, 163.308, 11.277, 0.478)
pt3dadd(81.54, 163.409, 11.256, 0.494)
pt3dadd(81.479, 163.508, 11.235, 0.51)
pt3dadd(81.418, 163.609, 11.214, 0.526)
pt3dadd(81.357, 163.71, 11.193, 0.542)
pt3dadd(81.296, 163.81, 11.172, 0.558)
pt3dadd(81.235, 163.91, 11.151, 0.574)
pt3dadd(81.174, 164.01, 11.13, 0.59)
}
}
proc shape3d_4() {
dend_7[2] { pt3dadd(81.113, 164.111, 11.109, 0.606)
pt3dadd(81.055, 164.213, 11.09, 0.62)
pt3dadd(81.003, 164.32, 11.075, 0.626)
pt3dadd(80.952, 164.426, 11.061, 0.632)
pt3dadd(80.901, 164.533, 11.046, 0.638)
pt3dadd(80.85, 164.641, 11.031, 0.644)
pt3dadd(80.798, 164.748, 11.017, 0.65)
pt3dadd(80.747, 164.855, 11.002, 0.656)
pt3dadd(80.696, 164.962, 10.987, 0.662)
pt3dadd(80.644, 165.068, 10.973, 0.668)
pt3dadd(80.593, 165.176, 10.958, 0.674)
pt3dadd(80.541, 165.283, 10.946, 0.678)
pt3dadd(80.489, 165.39, 10.938, 0.678)
pt3dadd(80.436, 165.498, 10.931, 0.678)
pt3dadd(80.383, 165.605, 10.923, 0.678)
pt3dadd(80.331, 165.713, 10.916, 0.678)
pt3dadd(80.278, 165.821, 10.908, 0.678)
pt3dadd(80.225, 165.928, 10.901, 0.678)
pt3dadd(80.172, 166.036, 10.893, 0.678)
pt3dadd(80.12, 166.142, 10.886, 0.678)
pt3dadd(80.067, 166.25, 10.879, 0.678)
pt3dadd(80.01, 166.356, 10.873, 0.678)
pt3dadd(79.947, 166.457, 10.872, 0.678)
pt3dadd(79.883, 166.559, 10.871, 0.678)
pt3dadd(79.819, 166.66, 10.869, 0.678)
pt3dadd(79.755, 166.762, 10.868, 0.678)
pt3dadd(79.691, 166.864, 10.867, 0.678)
pt3dadd(79.627, 166.964, 10.865, 0.678)
pt3dadd(79.563, 167.066, 10.864, 0.678)
pt3dadd(79.499, 167.167, 10.863, 0.678)
pt3dadd(79.435, 167.269, 10.861, 0.676)
pt3dadd(79.375, 167.374, 10.859, 0.67)
pt3dadd(79.324, 167.482, 10.856, 0.652)
pt3dadd(79.273, 167.59, 10.853, 0.634)
pt3dadd(79.222, 167.699, 10.85, 0.616)
pt3dadd(79.171, 167.807, 10.847, 0.598)
pt3dadd(79.12, 167.916, 10.844, 0.58)
pt3dadd(79.069, 168.024, 10.842, 0.562)
pt3dadd(79.017, 168.132, 10.839, 0.544)
pt3dadd(78.966, 168.241, 10.836, 0.526)
pt3dadd(78.915, 168.349, 10.833, 0.508)
pt3dadd(78.859, 168.455, 10.829, 0.49)
pt3dadd(78.793, 168.554, 10.823, 0.474)
pt3dadd(78.727, 168.655, 10.817, 0.456)
pt3dadd(78.66, 168.755, 10.811, 0.438)
pt3dadd(78.594, 168.854, 10.806, 0.422)
pt3dadd(78.528, 168.955, 10.8, 0.404)
pt3dadd(78.462, 169.055, 10.794, 0.388)
pt3dadd(78.396, 169.154, 10.788, 0.37)
pt3dadd(78.33, 169.254, 10.782, 0.352)
pt3dadd(78.264, 169.355, 10.776, 0.336)
pt3dadd(78.195, 169.452, 10.77, 0.326)
pt3dadd(78.121, 169.546, 10.761, 0.33)
pt3dadd(78.047, 169.64, 10.752, 0.334)
pt3dadd(77.973, 169.734, 10.744, 0.338)
pt3dadd(77.899, 169.828, 10.735, 0.342)
pt3dadd(77.825, 169.922, 10.726, 0.346)
pt3dadd(77.751, 170.016, 10.718, 0.35)
pt3dadd(77.678, 170.11, 10.709, 0.354)
pt3dadd(77.604, 170.203, 10.701, 0.358)
pt3dadd(77.53, 170.298, 10.692, 0.362)
pt3dadd(77.454, 170.39, 10.682, 0.376)
pt3dadd(77.376, 170.479, 10.668, 0.41)
pt3dadd(77.297, 170.569, 10.655, 0.442)
pt3dadd(77.219, 170.658, 10.642, 0.474)
pt3dadd(77.141, 170.748, 10.628, 0.508)
pt3dadd(77.062, 170.837, 10.615, 0.54)
pt3dadd(76.984, 170.927, 10.602, 0.572)
pt3dadd(76.905, 171.016, 10.588, 0.606)
pt3dadd(76.827, 171.106, 10.575, 0.638)
pt3dadd(76.749, 171.194, 10.562, 0.67)
pt3dadd(76.672, 171.278, 10.534, 0.698)
pt3dadd(76.597, 171.353, 10.487, 0.72)
pt3dadd(76.523, 171.428, 10.44, 0.742)
pt3dadd(76.448, 171.503, 10.392, 0.762)
pt3dadd(76.373, 171.578, 10.345, 0.784)
pt3dadd(76.299, 171.653, 10.298, 0.804)
pt3dadd(76.224, 171.728, 10.251, 0.826)
pt3dadd(76.149, 171.803, 10.204, 0.848)
pt3dadd(76.075, 171.878, 10.157, 0.868)
pt3dadd(76, 171.953, 10.11, 0.89)
pt3dadd(75.923, 172.031, 10.069, 0.894)
pt3dadd(75.843, 172.112, 10.037, 0.874)
pt3dadd(75.763, 172.193, 10.006, 0.856)
pt3dadd(75.683, 172.273, 9.974, 0.838)
pt3dadd(75.603, 172.355, 9.942, 0.818)
pt3dadd(75.523, 172.435, 9.911, 0.8)
pt3dadd(75.443, 172.517, 9.879, 0.782)
pt3dadd(75.363, 172.597, 9.847, 0.762)
pt3dadd(75.283, 172.678, 9.815, 0.744)
pt3dadd(75.203, 172.759, 9.784, 0.726)
pt3dadd(75.122, 172.841, 9.756, 0.714)
pt3dadd(75.04, 172.925, 9.733, 0.71)
pt3dadd(74.958, 173.008, 9.71, 0.706)
pt3dadd(74.876, 173.09, 9.687, 0.702)
pt3dadd(74.795, 173.174, 9.663, 0.698)
pt3dadd(74.713, 173.257, 9.641, 0.694)
pt3dadd(74.631, 173.341, 9.618, 0.692)
pt3dadd(74.549, 173.424, 9.594, 0.688)
pt3dadd(74.468, 173.508, 9.571, 0.684)
pt3dadd(74.386, 173.591, 9.548, 0.68)
pt3dadd(74.305, 173.674, 9.521, 0.682)
pt3dadd(74.227, 173.755, 9.487, 0.694)
pt3dadd(74.148, 173.837, 9.454, 0.704)
pt3dadd(74.07, 173.917, 9.42, 0.716)
pt3dadd(73.991, 173.999, 9.387, 0.728)
pt3dadd(73.913, 174.08, 9.354, 0.738)
pt3dadd(73.834, 174.162, 9.32, 0.748)
pt3dadd(73.756, 174.244, 9.287, 0.76)
pt3dadd(73.677, 174.325, 9.253, 0.772)
pt3dadd(73.599, 174.406, 9.22, 0.782)
pt3dadd(73.522, 174.488, 9.185, 0.784)
pt3dadd(73.446, 174.57, 9.149, 0.78)
pt3dadd(73.37, 174.653, 9.112, 0.774)
pt3dadd(73.294, 174.734, 9.076, 0.768)
pt3dadd(73.218, 174.816, 9.04, 0.764)
pt3dadd(73.142, 174.899, 9.003, 0.758)
pt3dadd(73.066, 174.98, 8.967, 0.754)
pt3dadd(72.991, 175.063, 8.931, 0.748)
pt3dadd(72.915, 175.145, 8.895, 0.742)
pt3dadd(72.839, 175.228, 8.858, 0.738)
pt3dadd(72.762, 175.313, 8.83, 0.724)
pt3dadd(72.684, 175.4, 8.808, 0.704)
pt3dadd(72.607, 175.487, 8.785, 0.684)
pt3dadd(72.529, 175.574, 8.763, 0.664)
pt3dadd(72.451, 175.662, 8.741, 0.644)
pt3dadd(72.374, 175.75, 8.718, 0.624)
pt3dadd(72.296, 175.837, 8.696, 0.604)
pt3dadd(72.218, 175.925, 8.673, 0.584)
pt3dadd(72.141, 176.012, 8.651, 0.564)
pt3dadd(72.063, 176.099, 8.629, 0.544)
pt3dadd(71.985, 176.189, 8.612, 0.556)
pt3dadd(71.908, 176.279, 8.6, 0.59)
pt3dadd(71.831, 176.37, 8.587, 0.624)
pt3dadd(71.754, 176.461, 8.575, 0.658)
pt3dadd(71.677, 176.551, 8.562, 0.692)
pt3dadd(71.6, 176.642, 8.55, 0.726)
pt3dadd(71.523, 176.732, 8.537, 0.76)
pt3dadd(71.445, 176.824, 8.524, 0.794)
pt3dadd(71.368, 176.914, 8.512, 0.826)
pt3dadd(71.291, 177.005, 8.499, 0.86)
pt3dadd(71.224, 177.103, 8.49, 0.856)
pt3dadd(71.165, 177.208, 8.482, 0.826)
pt3dadd(71.106, 177.311, 8.474, 0.796)
pt3dadd(71.047, 177.415, 8.467, 0.766)
pt3dadd(70.988, 177.52, 8.459, 0.736)
pt3dadd(70.929, 177.623, 8.451, 0.704)
pt3dadd(70.87, 177.727, 8.443, 0.674)
pt3dadd(70.81, 177.832, 8.436, 0.644)
pt3dadd(70.751, 177.935, 8.428, 0.614)
pt3dadd(70.692, 178.039, 8.42, 0.584)
pt3dadd(70.63, 178.141, 8.411, 0.564)
pt3dadd(70.567, 178.243, 8.4, 0.552)
pt3dadd(70.504, 178.344, 8.389, 0.54)
pt3dadd(70.441, 178.445, 8.379, 0.528)
pt3dadd(70.377, 178.546, 8.368, 0.516)
pt3dadd(70.314, 178.648, 8.358, 0.504)
pt3dadd(70.251, 178.748, 8.347, 0.492)
pt3dadd(70.188, 178.849, 8.336, 0.48)
pt3dadd(70.124, 178.951, 8.326, 0.468)
pt3dadd(70.061, 179.052, 8.315, 0.456)
pt3dadd(69.998, 179.149, 8.293, 0.452)
pt3dadd(69.935, 179.245, 8.263, 0.452)
pt3dadd(69.872, 179.341, 8.234, 0.452)
pt3dadd(69.81, 179.437, 8.204, 0.452)
pt3dadd(69.747, 179.533, 8.175, 0.452)
pt3dadd(69.684, 179.629, 8.145, 0.452)
pt3dadd(69.621, 179.725, 8.116, 0.452)
pt3dadd(69.558, 179.821, 8.086, 0.452)
pt3dadd(69.495, 179.917, 8.057, 0.452)
pt3dadd(69.433, 180.013, 8.027, 0.452)
pt3dadd(69.372, 180.103, 7.986, 0.46)
pt3dadd(69.311, 180.193, 7.943, 0.468)
pt3dadd(69.25, 180.282, 7.899, 0.478)
pt3dadd(69.19, 180.372, 7.856, 0.486)
pt3dadd(69.129, 180.462, 7.812, 0.494)
pt3dadd(69.069, 180.551, 7.769, 0.504)
pt3dadd(69.008, 180.641, 7.725, 0.512)
pt3dadd(68.947, 180.73, 7.682, 0.522)
pt3dadd(68.887, 180.82, 7.638, 0.53)
pt3dadd(68.826, 180.908, 7.595, 0.54)
pt3dadd(68.767, 181.006, 7.563, 0.558)
pt3dadd(68.707, 181.104, 7.533, 0.578)
pt3dadd(68.648, 181.201, 7.503, 0.598)
pt3dadd(68.588, 181.298, 7.472, 0.618)
pt3dadd(68.529, 181.397, 7.442, 0.638)
pt3dadd(68.469, 181.494, 7.412, 0.656)
pt3dadd(68.41, 181.592, 7.382, 0.676)
pt3dadd(68.351, 181.69, 7.352, 0.696)
pt3dadd(68.291, 181.788, 7.321, 0.716)
pt3dadd(68.232, 181.885, 7.291, 0.736)
pt3dadd(68.193, 181.994, 7.265, 0.746)
pt3dadd(68.154, 182.104, 7.239, 0.754)
pt3dadd(68.115, 182.213, 7.213, 0.762)
pt3dadd(68.076, 182.322, 7.187, 0.772)
pt3dadd(68.037, 182.431, 7.161, 0.78)
pt3dadd(67.999, 182.54, 7.135, 0.788)
pt3dadd(67.96, 182.65, 7.109, 0.798)
pt3dadd(67.921, 182.759, 7.083, 0.806)
pt3dadd(67.882, 182.868, 7.057, 0.816)
}
}
proc shape3d_5() {
dend_7[2] { pt3dadd(67.843, 182.977, 7.031, 0.824)
pt3dadd(67.816, 183.085, 6.993, 0.772)
pt3dadd(67.788, 183.193, 6.956, 0.72)
pt3dadd(67.76, 183.3, 6.919, 0.668)
pt3dadd(67.733, 183.408, 6.882, 0.616)
pt3dadd(67.705, 183.516, 6.844, 0.564)
pt3dadd(67.677, 183.624, 6.807, 0.512)
pt3dadd(67.65, 183.732, 6.77, 0.46)
pt3dadd(67.622, 183.84, 6.732, 0.408)
pt3dadd(67.594, 183.948, 6.695, 0.356)
pt3dadd(67.567, 184.056, 6.658, 0.304)
pt3dadd(67.52, 184.162, 6.632, 0.324)
pt3dadd(67.474, 184.267, 6.606, 0.346)
pt3dadd(67.427, 184.374, 6.579, 0.366)
pt3dadd(67.381, 184.48, 6.553, 0.388)
pt3dadd(67.334, 184.585, 6.527, 0.41)
pt3dadd(67.288, 184.692, 6.501, 0.43)
pt3dadd(67.241, 184.798, 6.475, 0.452)
pt3dadd(67.194, 184.904, 6.448, 0.472)
pt3dadd(67.148, 185.01, 6.422, 0.494)
pt3dadd(67.101, 185.116, 6.396, 0.516)
pt3dadd(67.056, 185.225, 6.376, 0.532)
pt3dadd(67.011, 185.333, 6.355, 0.548)
pt3dadd(66.966, 185.442, 6.335, 0.564)
pt3dadd(66.921, 185.55, 6.315, 0.58)
pt3dadd(66.876, 185.659, 6.294, 0.596)
pt3dadd(66.831, 185.767, 6.274, 0.614)
pt3dadd(66.786, 185.875, 6.253, 0.63)
pt3dadd(66.741, 185.984, 6.233, 0.646)
pt3dadd(66.696, 186.092, 6.213, 0.662)
pt3dadd(66.651, 186.202, 6.193, 0.678)
pt3dadd(66.607, 186.311, 6.177, 0.674)
pt3dadd(66.563, 186.421, 6.162, 0.67)
pt3dadd(66.518, 186.532, 6.147, 0.664)
pt3dadd(66.474, 186.641, 6.132, 0.66)
pt3dadd(66.43, 186.751, 6.117, 0.656)
pt3dadd(66.386, 186.862, 6.102, 0.652)
pt3dadd(66.341, 186.972, 6.086, 0.648)
pt3dadd(66.297, 187.081, 6.071, 0.642)
pt3dadd(66.253, 187.192, 6.056, 0.638)
pt3dadd(66.208, 187.301, 6.041, 0.634)
pt3dadd(66.153, 187.408, 6.031, 0.616)
pt3dadd(66.099, 187.513, 6.021, 0.6)
pt3dadd(66.044, 187.62, 6.01, 0.582)
pt3dadd(65.989, 187.726, 6, 0.564)
pt3dadd(65.935, 187.832, 5.99, 0.548)
pt3dadd(65.88, 187.938, 5.979, 0.53)
pt3dadd(65.825, 188.044, 5.969, 0.514)
pt3dadd(65.771, 188.15, 5.959, 0.496)
pt3dadd(65.716, 188.256, 5.948, 0.48)
pt3dadd(65.663, 188.363, 5.937, 0.462)
pt3dadd(65.633, 188.471, 5.902, 0.444)
pt3dadd(65.604, 188.58, 5.867, 0.428)
pt3dadd(65.574, 188.688, 5.833, 0.41)
pt3dadd(65.545, 188.797, 5.798, 0.392)
pt3dadd(65.515, 188.906, 5.764, 0.374)
pt3dadd(65.486, 189.014, 5.729, 0.358)
pt3dadd(65.456, 189.124, 5.695, 0.34)
pt3dadd(65.426, 189.232, 5.66, 0.322)
pt3dadd(65.397, 189.341, 5.626, 0.304)
pt3dadd(65.368, 189.45, 5.592, 0.292)
pt3dadd(65.349, 189.563, 5.563, 0.322)
pt3dadd(65.329, 189.677, 5.535, 0.35)
pt3dadd(65.31, 189.79, 5.506, 0.38)
pt3dadd(65.29, 189.904, 5.478, 0.41)
pt3dadd(65.271, 190.016, 5.45, 0.438)
pt3dadd(65.251, 190.13, 5.421, 0.468)
pt3dadd(65.232, 190.243, 5.393, 0.498)
pt3dadd(65.212, 190.357, 5.365, 0.528)
pt3dadd(65.193, 190.47, 5.336, 0.556)
pt3dadd(65.174, 190.584, 5.309, 0.586)
pt3dadd(65.164, 190.702, 5.291, 0.618)
pt3dadd(65.154, 190.819, 5.272, 0.65)
pt3dadd(65.143, 190.937, 5.254, 0.682)
pt3dadd(65.133, 191.054, 5.235, 0.716)
pt3dadd(65.122, 191.172, 5.217, 0.748)
pt3dadd(65.112, 191.29, 5.198, 0.78)
pt3dadd(65.102, 191.406, 5.18, 0.812)
pt3dadd(65.091, 191.524, 5.161, 0.844)
pt3dadd(65.081, 191.641, 5.143, 0.878)
pt3dadd(65.071, 191.759, 5.126, 0.902)
pt3dadd(65.066, 191.879, 5.118, 0.888)
pt3dadd(65.06, 191.999, 5.11, 0.874)
pt3dadd(65.054, 192.118, 5.101, 0.86)
pt3dadd(65.049, 192.238, 5.093, 0.846)
pt3dadd(65.043, 192.356, 5.085, 0.832)
pt3dadd(65.037, 192.476, 5.076, 0.816)
pt3dadd(65.032, 192.595, 5.068, 0.802)
pt3dadd(65.026, 192.715, 5.06, 0.788)
pt3dadd(65.021, 192.834, 5.051, 0.774)
pt3dadd(65.014, 192.954, 5.044, 0.754)
pt3dadd(65.003, 193.073, 5.044, 0.702)
pt3dadd(64.993, 193.193, 5.044, 0.648)
pt3dadd(64.982, 193.313, 5.044, 0.596)
pt3dadd(64.971, 193.432, 5.044, 0.544)
pt3dadd(64.961, 193.552, 5.044, 0.492)
pt3dadd(64.95, 193.67, 5.044, 0.44)
pt3dadd(64.939, 193.79, 5.044, 0.388)
pt3dadd(64.929, 193.91, 5.044, 0.334)
pt3dadd(64.918, 194.029, 5.044, 0.282)
pt3dadd(64.906, 194.149, 5.044, 0.242)
pt3dadd(64.889, 194.268, 5.044, 0.262)
pt3dadd(64.872, 194.387, 5.044, 0.282)
pt3dadd(64.854, 194.506, 5.044, 0.3)
pt3dadd(64.837, 194.624, 5.044, 0.32)
pt3dadd(64.82, 194.743, 5.044, 0.338)
pt3dadd(64.802, 194.862, 5.044, 0.358)
pt3dadd(64.785, 194.98, 5.044, 0.376)
pt3dadd(64.768, 195.098, 5.044, 0.396)
pt3dadd(64.75, 195.217, 5.044, 0.416)
pt3dadd(64.727, 195.335, 5.044, 0.436)
pt3dadd(64.68, 195.445, 5.044, 0.47)
pt3dadd(64.632, 195.556, 5.044, 0.504)
pt3dadd(64.584, 195.665, 5.044, 0.536)
pt3dadd(64.537, 195.775, 5.044, 0.57)
pt3dadd(64.489, 195.886, 5.044, 0.604)
pt3dadd(64.441, 195.996, 5.044, 0.636)
pt3dadd(64.394, 196.105, 5.044, 0.67)
pt3dadd(64.346, 196.216, 5.044, 0.704)
pt3dadd(64.298, 196.326, 5.044, 0.736)
pt3dadd(64.251, 196.436, 5.044, 0.766)
pt3dadd(64.206, 196.547, 5.044, 0.78)
pt3dadd(64.16, 196.658, 5.044, 0.794)
pt3dadd(64.115, 196.77, 5.044, 0.808)
pt3dadd(64.07, 196.88, 5.044, 0.822)
pt3dadd(64.024, 196.992, 5.044, 0.836)
pt3dadd(63.979, 197.102, 5.044, 0.85)
pt3dadd(63.933, 197.214, 5.044, 0.864)
pt3dadd(63.888, 197.324, 5.044, 0.878)
pt3dadd(63.843, 197.436, 5.044, 0.894)
pt3dadd(63.797, 197.548, 5.044, 0.902)
pt3dadd(63.751, 197.658, 5.044, 0.896)
pt3dadd(63.705, 197.768, 5.044, 0.89)
pt3dadd(63.658, 197.879, 5.044, 0.884)
pt3dadd(63.612, 197.99, 5.044, 0.878)
pt3dadd(63.566, 198.101, 5.044, 0.872)
pt3dadd(63.519, 198.211, 5.044, 0.866)
pt3dadd(63.473, 198.322, 5.044, 0.86)
pt3dadd(63.427, 198.433, 5.044, 0.854)
pt3dadd(63.381, 198.544, 5.044, 0.848)
pt3dadd(63.332, 198.653, 5.044, 0.84)
pt3dadd(63.278, 198.76, 5.044, 0.822)
pt3dadd(63.223, 198.868, 5.044, 0.804)
pt3dadd(63.169, 198.974, 5.044, 0.786)
pt3dadd(63.114, 199.081, 5.044, 0.768)
pt3dadd(63.06, 199.188, 5.044, 0.75)
pt3dadd(63.005, 199.295, 5.044, 0.732)
pt3dadd(62.95, 199.402, 5.044, 0.716)
pt3dadd(62.896, 199.508, 5.044, 0.698)
pt3dadd(62.841, 199.615, 5.044, 0.68)
pt3dadd(62.793, 199.724, 5.044, 0.656)
pt3dadd(62.763, 199.841, 5.044, 0.62)
pt3dadd(62.732, 199.957, 5.044, 0.582)
pt3dadd(62.702, 200.072, 5.044, 0.544)
pt3dadd(62.671, 200.189, 5.044, 0.508)
pt3dadd(62.641, 200.305, 5.044, 0.47)
pt3dadd(62.61, 200.42, 5.044, 0.432)
pt3dadd(62.58, 200.537, 5.044, 0.396)
pt3dadd(62.549, 200.653, 5.044, 0.358)
pt3dadd(62.519, 200.77, 5.044, 0.32)
pt3dadd(62.491, 200.886, 5.044, 0.292)
pt3dadd(62.472, 201.004, 5.044, 0.284)
pt3dadd(62.452, 201.122, 5.044, 0.278)
pt3dadd(62.433, 201.241, 5.044, 0.27)
pt3dadd(62.413, 201.359, 5.043, 0.264)
pt3dadd(62.394, 201.478, 5.043, 0.258)
pt3dadd(62.374, 201.596, 5.043, 0.252)
pt3dadd(62.355, 201.715, 5.043, 0.244)
pt3dadd(62.335, 201.833, 5.043, 0.238)
pt3dadd(62.316, 201.952, 5.043, 0.23)
pt3dadd(62.298, 202.07, 5.043, 0.226)
pt3dadd(62.286, 202.189, 5.043, 0.226)
pt3dadd(62.274, 202.309, 5.043, 0.226)
pt3dadd(62.262, 202.428, 5.043, 0.226)
pt3dadd(62.25, 202.548, 5.043, 0.226)
pt3dadd(62.237, 202.667, 5.043, 0.226)
pt3dadd(62.225, 202.787, 5.043, 0.226)
pt3dadd(62.213, 202.906, 5.042, 0.226)
pt3dadd(62.201, 203.026, 5.042, 0.226)
pt3dadd(62.188, 203.144, 5.042, 0.226)
pt3dadd(62.176, 203.264, 5.042, 0.226)
pt3dadd(62.164, 203.383, 5.042, 0.226)
pt3dadd(62.151, 203.502, 5.042, 0.226)
pt3dadd(62.139, 203.622, 5.041, 0.226)
pt3dadd(62.127, 203.741, 5.041, 0.226)
pt3dadd(62.114, 203.861, 5.041, 0.226)
pt3dadd(62.102, 203.98, 5.041, 0.226)
pt3dadd(62.09, 204.1, 5.041, 0.226)
pt3dadd(62.077, 204.218, 5.04, 0.226)
pt3dadd(62.065, 204.338, 5.04, 0.226)
pt3dadd(62.049, 204.457, 5.04, 0.228)
pt3dadd(62.023, 204.574, 5.04, 0.232)
pt3dadd(61.998, 204.691, 5.039, 0.238)
pt3dadd(61.972, 204.809, 5.039, 0.242)
pt3dadd(61.947, 204.926, 5.038, 0.248)
pt3dadd(61.922, 205.043, 5.038, 0.252)
pt3dadd(61.896, 205.16, 5.038, 0.258)
pt3dadd(61.871, 205.278, 5.037, 0.264)
pt3dadd(61.845, 205.396, 5.037, 0.268)
pt3dadd(61.82, 205.512, 5.036, 0.274)
}
}
proc shape3d_6() {
dend_7[2] { pt3dadd(61.786, 205.627, 5.036, 0.282)
pt3dadd(61.737, 205.736, 5.035, 0.3)
pt3dadd(61.688, 205.846, 5.035, 0.318)
pt3dadd(61.639, 205.956, 5.034, 0.336)
pt3dadd(61.591, 206.065, 5.034, 0.352)
pt3dadd(61.542, 206.174, 5.033, 0.37)
pt3dadd(61.493, 206.285, 5.033, 0.388)
pt3dadd(61.444, 206.394, 5.032, 0.406)
pt3dadd(61.395, 206.503, 5.031, 0.422)
pt3dadd(61.346, 206.614, 5.031, 0.44)
pt3dadd(61.303, 206.725, 5.03, 0.444)
pt3dadd(61.268, 206.839, 5.029, 0.426)
pt3dadd(61.234, 206.954, 5.027, 0.408)
pt3dadd(61.199, 207.07, 5.026, 0.39)
pt3dadd(61.164, 207.185, 5.024, 0.37)
pt3dadd(61.13, 207.299, 5.023, 0.352)
pt3dadd(61.095, 207.414, 5.022, 0.334)
pt3dadd(61.061, 207.529, 5.02, 0.316)
pt3dadd(61.026, 207.644, 5.019, 0.296)
pt3dadd(60.992, 207.76, 5.018, 0.278)
pt3dadd(60.954, 207.872, 5.016, 0.264)
pt3dadd(60.911, 207.985, 5.014, 0.26)
pt3dadd(60.867, 208.097, 5.011, 0.256)
pt3dadd(60.824, 208.208, 5.009, 0.252)
pt3dadd(60.78, 208.32, 5.006, 0.248)
pt3dadd(60.737, 208.432, 5.004, 0.244)
pt3dadd(60.694, 208.544, 5.002, 0.24)
pt3dadd(60.65, 208.656, 4.999, 0.236)
pt3dadd(60.607, 208.768, 4.997, 0.232)
pt3dadd(60.563, 208.879, 4.995, 0.228)
pt3dadd(60.53, 208.994, 4.991, 0.23)
pt3dadd(60.515, 209.113, 4.986, 0.24)
pt3dadd(60.499, 209.232, 4.981, 0.25)
pt3dadd(60.484, 209.351, 4.976, 0.26)
pt3dadd(60.468, 209.47, 4.971, 0.27)
pt3dadd(60.453, 209.588, 4.966, 0.28)
pt3dadd(60.438, 209.707, 4.961, 0.292)
pt3dadd(60.422, 209.826, 4.956, 0.302)
pt3dadd(60.407, 209.945, 4.951, 0.312)
pt3dadd(60.391, 210.064, 4.946, 0.322)
pt3dadd(60.394, 210.182, 4.939, 0.33)
pt3dadd(60.406, 210.301, 4.93, 0.336)
pt3dadd(60.417, 210.42, 4.922, 0.342)
pt3dadd(60.428, 210.54, 4.913, 0.348)
pt3dadd(60.439, 210.659, 4.904, 0.354)
pt3dadd(60.45, 210.778, 4.896, 0.36)
pt3dadd(60.462, 210.896, 4.887, 0.366)
pt3dadd(60.473, 211.015, 4.879, 0.374)
pt3dadd(60.484, 211.135, 4.87, 0.38)
pt3dadd(60.495, 211.254, 4.862, 0.386)
pt3dadd(60.501, 211.373, 4.848, 0.376)
pt3dadd(60.506, 211.49, 4.833, 0.36)
pt3dadd(60.51, 211.609, 4.817, 0.344)
pt3dadd(60.514, 211.728, 4.801, 0.328)
pt3dadd(60.518, 211.846, 4.786, 0.312)
pt3dadd(60.522, 211.964, 4.77, 0.294)
pt3dadd(60.526, 212.083, 4.754, 0.278)
pt3dadd(60.531, 212.202, 4.739, 0.262)
pt3dadd(60.535, 212.32, 4.723, 0.246)
pt3dadd(60.539, 212.438, 4.708, 0.23)
pt3dadd(60.537, 212.551, 4.676, 0.226)
pt3dadd(60.532, 212.663, 4.639, 0.226)
pt3dadd(60.528, 212.774, 4.602, 0.226)
pt3dadd(60.523, 212.886, 4.564, 0.226)
pt3dadd(60.519, 212.996, 4.527, 0.226)
pt3dadd(60.514, 213.108, 4.49, 0.226)
pt3dadd(60.51, 213.22, 4.453, 0.226)
pt3dadd(60.505, 213.331, 4.416, 0.226)
pt3dadd(60.501, 213.442, 4.378, 0.226)
pt3dadd(60.496, 213.553, 4.341, 0.226)
pt3dadd(60.46, 213.661, 4.314, 0.238)
pt3dadd(60.413, 213.768, 4.291, 0.252)
pt3dadd(60.367, 213.875, 4.267, 0.268)
pt3dadd(60.32, 213.982, 4.244, 0.284)
pt3dadd(60.273, 214.088, 4.22, 0.298)
pt3dadd(60.227, 214.195, 4.197, 0.314)
pt3dadd(60.18, 214.302, 4.173, 0.33)
pt3dadd(60.133, 214.41, 4.15, 0.344)
pt3dadd(60.087, 214.517, 4.126, 0.36)
pt3dadd(60.04, 214.624, 4.103, 0.376)
pt3dadd(59.993, 214.732, 4.086, 0.384)
pt3dadd(59.946, 214.841, 4.071, 0.392)
pt3dadd(59.899, 214.95, 4.056, 0.4)
pt3dadd(59.852, 215.058, 4.04, 0.406)
pt3dadd(59.805, 215.167, 4.025, 0.414)
pt3dadd(59.758, 215.276, 4.01, 0.422)
pt3dadd(59.711, 215.386, 3.994, 0.428)
pt3dadd(59.664, 215.494, 3.979, 0.436)
pt3dadd(59.617, 215.603, 3.964, 0.444)
pt3dadd(59.57, 215.712, 3.948, 0.45)
pt3dadd(59.521, 215.821, 3.94, 0.456)
pt3dadd(59.472, 215.93, 3.933, 0.462)
pt3dadd(59.423, 216.04, 3.926, 0.466)
pt3dadd(59.374, 216.149, 3.918, 0.472)
pt3dadd(59.325, 216.258, 3.911, 0.476)
pt3dadd(59.276, 216.367, 3.904, 0.482)
pt3dadd(59.227, 216.476, 3.897, 0.488)
pt3dadd(59.178, 216.586, 3.89, 0.492)
pt3dadd(59.129, 216.695, 3.882, 0.498)
pt3dadd(59.08, 216.804, 3.875, 0.502)
pt3dadd(59.021, 216.908, 3.874, 0.518)
pt3dadd(58.961, 217.012, 3.874, 0.534)
pt3dadd(58.9, 217.115, 3.874, 0.552)
pt3dadd(58.84, 217.219, 3.874, 0.568)
pt3dadd(58.779, 217.322, 3.874, 0.584)
pt3dadd(58.719, 217.426, 3.874, 0.602)
pt3dadd(58.658, 217.53, 3.874, 0.618)
pt3dadd(58.598, 217.633, 3.874, 0.636)
pt3dadd(58.537, 217.736, 3.874, 0.652)
pt3dadd(58.477, 217.841, 3.874, 0.668)
pt3dadd(58.432, 217.952, 3.874, 0.656)
pt3dadd(58.39, 218.064, 3.874, 0.638)
pt3dadd(58.348, 218.177, 3.874, 0.622)
pt3dadd(58.305, 218.288, 3.874, 0.606)
pt3dadd(58.263, 218.401, 3.874, 0.588)
pt3dadd(58.221, 218.514, 3.874, 0.572)
pt3dadd(58.178, 218.626, 3.874, 0.554)
pt3dadd(58.136, 218.738, 3.874, 0.538)
pt3dadd(58.094, 218.85, 3.874, 0.522)
pt3dadd(58.052, 218.963, 3.874, 0.504)
pt3dadd(58.001, 219.072, 3.874, 0.51)
pt3dadd(57.95, 219.18, 3.874, 0.518)
pt3dadd(57.899, 219.288, 3.874, 0.524)
pt3dadd(57.847, 219.397, 3.874, 0.532)
pt3dadd(57.796, 219.505, 3.874, 0.54)
pt3dadd(57.745, 219.614, 3.874, 0.546)
pt3dadd(57.694, 219.722, 3.874, 0.554)
pt3dadd(57.642, 219.832, 3.874, 0.562)
pt3dadd(57.591, 219.94, 3.874, 0.568)
pt3dadd(57.54, 220.048, 3.874, 0.576)
pt3dadd(57.494, 220.159, 3.874, 0.57)
pt3dadd(57.449, 220.27, 3.874, 0.564)
pt3dadd(57.403, 220.381, 3.874, 0.556)
pt3dadd(57.358, 220.492, 3.874, 0.55)
pt3dadd(57.312, 220.603, 3.874, 0.544)
pt3dadd(57.267, 220.715, 3.874, 0.536)
pt3dadd(57.222, 220.825, 3.874, 0.53)
pt3dadd(57.176, 220.937, 3.874, 0.522)
pt3dadd(57.131, 221.047, 3.874, 0.516)
pt3dadd(57.085, 221.159, 3.874, 0.51)
pt3dadd(57.059, 221.275, 3.874, 0.482)
pt3dadd(57.034, 221.393, 3.874, 0.454)
pt3dadd(57.008, 221.51, 3.874, 0.424)
pt3dadd(56.983, 221.628, 3.874, 0.396)
pt3dadd(56.958, 221.744, 3.874, 0.368)
pt3dadd(56.932, 221.862, 3.874, 0.34)
pt3dadd(56.907, 221.98, 3.874, 0.312)
pt3dadd(56.881, 222.097, 3.874, 0.282)
pt3dadd(56.856, 222.214, 3.874, 0.254)
pt3dadd(56.83, 222.331, 3.874, 0.226)
pt3dadd(56.819, 222.45, 3.874, 0.226)
pt3dadd(56.807, 222.57, 3.874, 0.226)
pt3dadd(56.795, 222.689, 3.874, 0.226)
pt3dadd(56.783, 222.809, 3.874, 0.226)
pt3dadd(56.771, 222.928, 3.874, 0.226)
pt3dadd(56.759, 223.048, 3.874, 0.226)
pt3dadd(56.747, 223.166, 3.874, 0.226)
pt3dadd(56.735, 223.286, 3.874, 0.226)
pt3dadd(56.723, 223.405, 3.874, 0.226)
pt3dadd(56.711, 223.525, 3.874, 0.226)
}
dend_7[3] {pt3dclear()
pt3dadd(97.578, 132.271, 15.51, 1.356)
pt3dadd(97.559, 132.276, 15.45, 1.346)
pt3dadd(97.54, 132.278, 15.345, 1.326)
pt3dadd(97.52, 132.281, 15.24, 1.306)
pt3dadd(97.5, 132.282, 15.135, 1.286)
pt3dadd(97.481, 132.284, 15.03, 1.264)
pt3dadd(97.461, 132.287, 14.925, 1.244)
pt3dadd(97.46, 132.307, 14.828, 1.22)
pt3dadd(97.506, 132.374, 14.749, 1.188)
pt3dadd(97.551, 132.44, 14.671, 1.154)
pt3dadd(97.597, 132.506, 14.592, 1.12)
pt3dadd(97.643, 132.574, 14.513, 1.088)
pt3dadd(97.688, 132.64, 14.435, 1.054)
pt3dadd(97.734, 132.706, 14.356, 1.022)
pt3dadd(97.793, 132.781, 14.309, 0.992)
pt3dadd(97.871, 132.87, 14.302, 0.966)
pt3dadd(97.948, 132.959, 14.295, 0.942)
pt3dadd(98.025, 133.048, 14.287, 0.916)
pt3dadd(98.102, 133.136, 14.28, 0.892)
pt3dadd(98.18, 133.225, 14.272, 0.866)
pt3dadd(98.257, 133.314, 14.265, 0.842)
pt3dadd(98.334, 133.403, 14.257, 0.816)
pt3dadd(98.411, 133.493, 14.25, 0.792)
pt3dadd(98.488, 133.582, 14.243, 0.766)
pt3dadd(98.565, 133.669, 14.235, 0.754)
pt3dadd(98.642, 133.758, 14.227, 0.758)
pt3dadd(98.719, 133.848, 14.219, 0.762)
pt3dadd(98.796, 133.937, 14.212, 0.766)
pt3dadd(98.872, 134.027, 14.204, 0.768)
pt3dadd(98.949, 134.116, 14.196, 0.772)
pt3dadd(99.026, 134.204, 14.188, 0.776)
pt3dadd(99.103, 134.294, 14.18, 0.78)
pt3dadd(99.18, 134.383, 14.172, 0.784)
pt3dadd(99.256, 134.473, 14.164, 0.786)
pt3dadd(99.333, 134.561, 14.156, 0.792)
pt3dadd(99.408, 134.652, 14.147, 0.8)
pt3dadd(99.484, 134.742, 14.138, 0.808)
pt3dadd(99.56, 134.832, 14.13, 0.816)
pt3dadd(99.635, 134.922, 14.121, 0.822)
pt3dadd(99.711, 135.013, 14.112, 0.83)
}
}
proc shape3d_7() {
dend_7[3] { pt3dadd(99.787, 135.103, 14.103, 0.838)
pt3dadd(99.863, 135.193, 14.094, 0.846)
pt3dadd(99.938, 135.283, 14.085, 0.854)
pt3dadd(100.014, 135.374, 14.076, 0.86)
pt3dadd(100.089, 135.463, 14.067, 0.858)
pt3dadd(100.163, 135.556, 14.055, 0.844)
pt3dadd(100.236, 135.648, 14.044, 0.83)
pt3dadd(100.31, 135.739, 14.034, 0.816)
pt3dadd(100.384, 135.832, 14.022, 0.8)
pt3dadd(100.458, 135.923, 14.011, 0.786)
pt3dadd(100.531, 136.015, 14, 0.772)
pt3dadd(100.605, 136.106, 13.989, 0.758)
pt3dadd(100.679, 136.199, 13.978, 0.744)
pt3dadd(100.752, 136.291, 13.967, 0.728)
pt3dadd(100.824, 136.382, 13.955, 0.714)
pt3dadd(100.894, 136.478, 13.941, 0.7)
pt3dadd(100.964, 136.573, 13.927, 0.684)
pt3dadd(101.033, 136.668, 13.913, 0.67)
pt3dadd(101.103, 136.763, 13.899, 0.654)
pt3dadd(101.173, 136.858, 13.886, 0.64)
pt3dadd(101.242, 136.954, 13.872, 0.624)
pt3dadd(101.312, 137.048, 13.858, 0.61)
pt3dadd(101.382, 137.143, 13.844, 0.594)
pt3dadd(101.452, 137.237, 13.83, 0.58)
pt3dadd(101.518, 137.334, 13.813, 0.568)
pt3dadd(101.581, 137.434, 13.793, 0.56)
pt3dadd(101.643, 137.533, 13.772, 0.55)
pt3dadd(101.706, 137.632, 13.752, 0.542)
pt3dadd(101.768, 137.731, 13.731, 0.534)
pt3dadd(101.831, 137.831, 13.71, 0.524)
pt3dadd(101.893, 137.93, 13.69, 0.516)
pt3dadd(101.956, 138.029, 13.669, 0.508)
pt3dadd(102.018, 138.128, 13.649, 0.498)
pt3dadd(102.081, 138.227, 13.628, 0.49)
pt3dadd(102.13, 138.33, 13.596, 0.496)
pt3dadd(102.168, 138.436, 13.555, 0.512)
pt3dadd(102.207, 138.541, 13.515, 0.53)
pt3dadd(102.245, 138.647, 13.474, 0.546)
pt3dadd(102.283, 138.752, 13.433, 0.562)
pt3dadd(102.321, 138.858, 13.392, 0.578)
pt3dadd(102.36, 138.964, 13.351, 0.596)
pt3dadd(102.398, 139.069, 13.311, 0.612)
pt3dadd(102.437, 139.175, 13.27, 0.628)
pt3dadd(102.475, 139.279, 13.229, 0.646)
pt3dadd(102.504, 139.39, 13.193, 0.672)
pt3dadd(102.527, 139.505, 13.161, 0.706)
pt3dadd(102.55, 139.619, 13.128, 0.738)
pt3dadd(102.573, 139.733, 13.096, 0.772)
pt3dadd(102.596, 139.848, 13.064, 0.806)
pt3dadd(102.619, 139.962, 13.032, 0.84)
pt3dadd(102.642, 140.077, 12.999, 0.872)
pt3dadd(102.664, 140.191, 12.967, 0.906)
pt3dadd(102.687, 140.305, 12.935, 0.94)
pt3dadd(102.71, 140.419, 12.903, 0.974)
pt3dadd(102.738, 140.533, 12.876, 0.982)
pt3dadd(102.769, 140.647, 12.852, 0.976)
pt3dadd(102.801, 140.762, 12.828, 0.968)
pt3dadd(102.832, 140.876, 12.804, 0.96)
pt3dadd(102.863, 140.99, 12.781, 0.954)
pt3dadd(102.894, 141.106, 12.757, 0.946)
pt3dadd(102.926, 141.22, 12.733, 0.938)
pt3dadd(102.957, 141.334, 12.709, 0.932)
pt3dadd(102.988, 141.449, 12.686, 0.924)
pt3dadd(103.02, 141.562, 12.662, 0.916)
pt3dadd(103.052, 141.676, 12.642, 0.898)
pt3dadd(103.086, 141.791, 12.625, 0.876)
pt3dadd(103.119, 141.906, 12.607, 0.852)
pt3dadd(103.153, 142.021, 12.59, 0.828)
pt3dadd(103.186, 142.135, 12.573, 0.804)
pt3dadd(103.219, 142.25, 12.555, 0.78)
pt3dadd(103.253, 142.366, 12.538, 0.756)
pt3dadd(103.286, 142.481, 12.52, 0.734)
pt3dadd(103.32, 142.595, 12.503, 0.71)
pt3dadd(103.353, 142.709, 12.485, 0.686)
pt3dadd(103.378, 142.826, 12.469, 0.682)
pt3dadd(103.4, 142.945, 12.455, 0.686)
pt3dadd(103.421, 143.064, 12.44, 0.69)
pt3dadd(103.442, 143.183, 12.425, 0.696)
pt3dadd(103.463, 143.302, 12.41, 0.7)
pt3dadd(103.485, 143.42, 12.396, 0.706)
pt3dadd(103.506, 143.539, 12.381, 0.71)
pt3dadd(103.527, 143.658, 12.366, 0.714)
pt3dadd(103.548, 143.776, 12.351, 0.72)
pt3dadd(103.569, 143.894, 12.336, 0.724)
pt3dadd(103.582, 144.014, 12.318, 0.752)
pt3dadd(103.59, 144.134, 12.298, 0.79)
pt3dadd(103.598, 144.254, 12.277, 0.828)
pt3dadd(103.606, 144.374, 12.257, 0.866)
pt3dadd(103.614, 144.496, 12.237, 0.904)
pt3dadd(103.622, 144.616, 12.217, 0.942)
pt3dadd(103.616, 144.618, 12.211, 0.942)
pt3dadd(103.624, 144.738, 12.191, 0.98)
pt3dadd(103.632, 144.857, 12.17, 1.016)
pt3dadd(103.64, 144.978, 12.15, 1.054)
pt3dadd(103.648, 145.098, 12.13, 1.092)
pt3dadd(103.648, 145.212, 12.092, 1.064)
pt3dadd(103.644, 145.324, 12.045, 1)
pt3dadd(103.641, 145.435, 11.998, 0.938)
pt3dadd(103.637, 145.547, 11.95, 0.876)
pt3dadd(103.633, 145.658, 11.903, 0.812)
pt3dadd(103.63, 145.77, 11.856, 0.75)
pt3dadd(103.626, 145.882, 11.809, 0.686)
pt3dadd(103.623, 145.992, 11.762, 0.624)
pt3dadd(103.619, 146.104, 11.715, 0.56)
pt3dadd(103.615, 146.215, 11.668, 0.498)
pt3dadd(103.612, 146.328, 11.623, 0.492)
pt3dadd(103.609, 146.441, 11.579, 0.514)
pt3dadd(103.606, 146.555, 11.535, 0.534)
pt3dadd(103.602, 146.668, 11.491, 0.556)
pt3dadd(103.599, 146.78, 11.447, 0.576)
pt3dadd(103.596, 146.894, 11.403, 0.596)
pt3dadd(103.593, 147.007, 11.359, 0.618)
pt3dadd(103.59, 147.119, 11.315, 0.638)
pt3dadd(103.587, 147.233, 11.271, 0.66)
pt3dadd(103.583, 147.346, 11.227, 0.68)
pt3dadd(103.578, 147.348, 11.221, 0.68)
pt3dadd(103.576, 147.461, 11.175, 0.7)
pt3dadd(103.575, 147.572, 11.129, 0.718)
pt3dadd(103.574, 147.684, 11.083, 0.736)
pt3dadd(103.573, 147.797, 11.037, 0.754)
pt3dadd(103.572, 147.908, 10.991, 0.772)
pt3dadd(103.572, 148.02, 10.945, 0.79)
pt3dadd(103.566, 148.021, 10.939, 0.79)
pt3dadd(103.565, 148.134, 10.893, 0.81)
pt3dadd(103.564, 148.246, 10.847, 0.828)
pt3dadd(103.563, 148.358, 10.801, 0.846)
pt3dadd(103.562, 148.47, 10.755, 0.864)
pt3dadd(103.563, 148.579, 10.704, 0.824)
pt3dadd(103.566, 148.687, 10.651, 0.764)
pt3dadd(103.568, 148.795, 10.599, 0.704)
pt3dadd(103.57, 148.903, 10.546, 0.642)
pt3dadd(103.572, 149.011, 10.493, 0.582)
pt3dadd(103.574, 149.118, 10.44, 0.522)
pt3dadd(103.576, 149.225, 10.388, 0.46)
pt3dadd(103.578, 149.333, 10.335, 0.4)
pt3dadd(103.58, 149.441, 10.282, 0.338)
pt3dadd(103.582, 149.549, 10.229, 0.278)
pt3dadd(103.589, 149.663, 10.188, 0.316)
pt3dadd(103.597, 149.778, 10.151, 0.388)
pt3dadd(103.605, 149.893, 10.114, 0.46)
pt3dadd(103.613, 150.01, 10.077, 0.534)
pt3dadd(103.621, 150.124, 10.04, 0.606)
pt3dadd(103.629, 150.239, 10.003, 0.68)
pt3dadd(103.637, 150.354, 9.966, 0.752)
pt3dadd(103.645, 150.47, 9.929, 0.826)
pt3dadd(103.653, 150.586, 9.892, 0.898)
pt3dadd(103.661, 150.701, 9.855, 0.97)
pt3dadd(103.687, 150.814, 9.822, 0.97)
pt3dadd(103.72, 150.925, 9.792, 0.942)
pt3dadd(103.753, 151.037, 9.761, 0.912)
pt3dadd(103.786, 151.15, 9.73, 0.884)
pt3dadd(103.819, 151.26, 9.7, 0.856)
pt3dadd(103.852, 151.372, 9.669, 0.828)
pt3dadd(103.886, 151.483, 9.638, 0.8)
pt3dadd(103.919, 151.596, 9.608, 0.772)
pt3dadd(103.952, 151.708, 9.577, 0.744)
pt3dadd(103.985, 151.819, 9.547, 0.716)
pt3dadd(104.016, 151.93, 9.51, 0.682)
pt3dadd(104.047, 152.039, 9.471, 0.648)
pt3dadd(104.078, 152.148, 9.433, 0.614)
pt3dadd(104.109, 152.258, 9.394, 0.578)
pt3dadd(104.14, 152.366, 9.356, 0.544)
pt3dadd(104.171, 152.476, 9.317, 0.51)
pt3dadd(104.202, 152.585, 9.279, 0.476)
pt3dadd(104.233, 152.695, 9.24, 0.44)
pt3dadd(104.264, 152.804, 9.202, 0.406)
pt3dadd(104.295, 152.914, 9.163, 0.372)
pt3dadd(104.318, 153.023, 9.118, 0.36)
pt3dadd(104.34, 153.131, 9.072, 0.352)
pt3dadd(104.361, 153.24, 9.025, 0.344)
pt3dadd(104.383, 153.348, 8.979, 0.336)
pt3dadd(104.405, 153.456, 8.933, 0.328)
pt3dadd(104.426, 153.564, 8.886, 0.32)
pt3dadd(104.448, 153.672, 8.84, 0.312)
pt3dadd(104.469, 153.781, 8.794, 0.304)
pt3dadd(104.491, 153.889, 8.747, 0.296)
pt3dadd(104.513, 153.998, 8.701, 0.288)
pt3dadd(104.528, 154.11, 8.66, 0.318)
pt3dadd(104.542, 154.224, 8.619, 0.354)
pt3dadd(104.556, 154.337, 8.579, 0.388)
pt3dadd(104.57, 154.45, 8.538, 0.424)
pt3dadd(104.584, 154.561, 8.498, 0.46)
pt3dadd(104.598, 154.675, 8.457, 0.496)
pt3dadd(104.612, 154.788, 8.417, 0.532)
pt3dadd(104.626, 154.901, 8.376, 0.566)
pt3dadd(104.641, 155.014, 8.336, 0.602)
pt3dadd(104.655, 155.128, 8.296, 0.638)
pt3dadd(104.663, 155.236, 8.245, 0.646)
pt3dadd(104.67, 155.344, 8.193, 0.65)
pt3dadd(104.664, 155.346, 8.188, 0.65)
pt3dadd(104.671, 155.453, 8.136, 0.652)
pt3dadd(104.678, 155.561, 8.084, 0.656)
pt3dadd(104.685, 155.669, 8.032, 0.66)
pt3dadd(104.693, 155.777, 7.981, 0.664)
pt3dadd(104.7, 155.886, 7.929, 0.666)
pt3dadd(104.707, 155.994, 7.877, 0.67)
pt3dadd(104.714, 156.102, 7.825, 0.674)
pt3dadd(104.721, 156.21, 7.773, 0.678)
pt3dadd(104.744, 156.319, 7.73, 0.686)
pt3dadd(104.768, 156.428, 7.687, 0.696)
}
}
proc shape3d_8() {
dend_7[3] { pt3dadd(104.792, 156.538, 7.644, 0.706)
pt3dadd(104.816, 156.647, 7.601, 0.716)
pt3dadd(104.84, 156.757, 7.559, 0.726)
pt3dadd(104.864, 156.866, 7.516, 0.736)
pt3dadd(104.888, 156.977, 7.473, 0.746)
pt3dadd(104.912, 157.086, 7.431, 0.756)
pt3dadd(104.936, 157.196, 7.388, 0.766)
pt3dadd(104.96, 157.306, 7.346, 0.776)
pt3dadd(104.993, 157.417, 7.313, 0.774)
pt3dadd(105.027, 157.529, 7.281, 0.774)
pt3dadd(105.06, 157.638, 7.249, 0.772)
pt3dadd(105.093, 157.75, 7.216, 0.772)
pt3dadd(105.126, 157.861, 7.184, 0.77)
pt3dadd(105.16, 157.972, 7.152, 0.77)
pt3dadd(105.193, 158.083, 7.119, 0.768)
pt3dadd(105.226, 158.195, 7.087, 0.768)
pt3dadd(105.259, 158.305, 7.055, 0.768)
pt3dadd(105.293, 158.417, 7.022, 0.766)
pt3dadd(105.315, 158.533, 6.995, 0.712)
pt3dadd(105.337, 158.648, 6.967, 0.658)
pt3dadd(105.359, 158.764, 6.94, 0.604)
pt3dadd(105.381, 158.88, 6.912, 0.55)
pt3dadd(105.403, 158.996, 6.885, 0.496)
pt3dadd(105.425, 159.112, 6.857, 0.442)
pt3dadd(105.448, 159.228, 6.829, 0.388)
pt3dadd(105.47, 159.344, 6.802, 0.336)
pt3dadd(105.492, 159.461, 6.774, 0.282)
pt3dadd(105.514, 159.576, 6.746, 0.23)
pt3dadd(105.521, 159.689, 6.704, 0.248)
pt3dadd(105.527, 159.803, 6.661, 0.266)
pt3dadd(105.534, 159.914, 6.618, 0.282)
pt3dadd(105.541, 160.027, 6.575, 0.3)
pt3dadd(105.548, 160.14, 6.532, 0.318)
pt3dadd(105.555, 160.254, 6.489, 0.336)
pt3dadd(105.561, 160.367, 6.447, 0.354)
pt3dadd(105.568, 160.48, 6.404, 0.372)
pt3dadd(105.575, 160.592, 6.361, 0.39)
pt3dadd(105.582, 160.706, 6.318, 0.408)
pt3dadd(105.579, 160.824, 6.285, 0.412)
pt3dadd(105.577, 160.942, 6.252, 0.416)
pt3dadd(105.575, 161.058, 6.219, 0.422)
pt3dadd(105.573, 161.176, 6.185, 0.426)
pt3dadd(105.571, 161.293, 6.152, 0.43)
pt3dadd(105.569, 161.411, 6.119, 0.434)
pt3dadd(105.567, 161.528, 6.086, 0.438)
pt3dadd(105.565, 161.646, 6.052, 0.444)
pt3dadd(105.563, 161.764, 6.019, 0.448)
pt3dadd(105.561, 161.881, 5.986, 0.452)
pt3dadd(105.556, 162.002, 5.963, 0.44)
pt3dadd(105.552, 162.121, 5.94, 0.43)
pt3dadd(105.547, 162.242, 5.917, 0.42)
pt3dadd(105.543, 162.362, 5.894, 0.41)
pt3dadd(105.539, 162.484, 5.871, 0.398)
pt3dadd(105.534, 162.604, 5.848, 0.388)
pt3dadd(105.53, 162.725, 5.824, 0.378)
pt3dadd(105.526, 162.845, 5.801, 0.366)
pt3dadd(105.521, 162.965, 5.778, 0.356)
pt3dadd(105.517, 163.086, 5.755, 0.346)
pt3dadd(105.514, 163.208, 5.742, 0.334)
pt3dadd(105.511, 163.328, 5.728, 0.322)
pt3dadd(105.508, 163.451, 5.715, 0.31)
pt3dadd(105.505, 163.573, 5.701, 0.298)
pt3dadd(105.502, 163.694, 5.687, 0.286)
pt3dadd(105.499, 163.817, 5.674, 0.274)
pt3dadd(105.497, 163.939, 5.66, 0.262)
pt3dadd(105.494, 164.06, 5.647, 0.25)
pt3dadd(105.491, 164.183, 5.633, 0.238)
pt3dadd(105.488, 164.304, 5.62, 0.226)
pt3dadd(105.488, 164.426, 5.612, 0.226)
pt3dadd(105.488, 164.548, 5.605, 0.226)
pt3dadd(105.487, 164.67, 5.597, 0.226)
pt3dadd(105.487, 164.792, 5.589, 0.226)
pt3dadd(105.487, 164.915, 5.582, 0.226)
pt3dadd(105.487, 165.037, 5.574, 0.226)
pt3dadd(105.487, 165.16, 5.566, 0.226)
pt3dadd(105.487, 165.281, 5.559, 0.226)
pt3dadd(105.486, 165.403, 5.551, 0.226)
pt3dadd(105.487, 165.526, 5.543, 0.226)
pt3dadd(105.492, 165.648, 5.534, 0.226)
pt3dadd(105.498, 165.768, 5.525, 0.226)
pt3dadd(105.503, 165.89, 5.516, 0.226)
pt3dadd(105.509, 166.012, 5.506, 0.226)
pt3dadd(105.514, 166.134, 5.497, 0.226)
pt3dadd(105.52, 166.255, 5.488, 0.226)
pt3dadd(105.525, 166.376, 5.478, 0.226)
pt3dadd(105.531, 166.499, 5.469, 0.226)
pt3dadd(105.536, 166.62, 5.46, 0.226)
pt3dadd(105.542, 166.742, 5.45, 0.226)
pt3dadd(105.555, 166.862, 5.436, 0.226)
pt3dadd(105.569, 166.982, 5.422, 0.226)
pt3dadd(105.582, 167.102, 5.409, 0.226)
pt3dadd(105.595, 167.222, 5.395, 0.226)
pt3dadd(105.608, 167.344, 5.381, 0.226)
pt3dadd(105.621, 167.464, 5.367, 0.226)
pt3dadd(105.634, 167.585, 5.353, 0.226)
pt3dadd(105.647, 167.705, 5.34, 0.226)
pt3dadd(105.661, 167.825, 5.326, 0.226)
pt3dadd(105.677, 167.945, 5.312, 0.23)
pt3dadd(105.727, 168.05, 5.293, 0.266)
pt3dadd(105.778, 168.158, 5.274, 0.304)
pt3dadd(105.828, 168.265, 5.256, 0.342)
pt3dadd(105.878, 168.372, 5.237, 0.378)
pt3dadd(105.928, 168.48, 5.219, 0.416)
pt3dadd(105.979, 168.587, 5.2, 0.454)
pt3dadd(106.029, 168.695, 5.182, 0.49)
pt3dadd(106.079, 168.802, 5.163, 0.528)
pt3dadd(106.13, 168.908, 5.145, 0.564)
pt3dadd(106.18, 169.015, 5.123, 0.596)
pt3dadd(106.231, 169.108, 5.073, 0.566)
pt3dadd(106.282, 169.201, 5.023, 0.538)
pt3dadd(106.333, 169.295, 4.973, 0.508)
pt3dadd(106.384, 169.388, 4.923, 0.478)
pt3dadd(106.435, 169.482, 4.873, 0.45)
pt3dadd(106.487, 169.576, 4.823, 0.42)
pt3dadd(106.481, 169.578, 4.818, 0.42)
pt3dadd(106.532, 169.672, 4.768, 0.39)
pt3dadd(106.583, 169.765, 4.718, 0.362)
pt3dadd(106.634, 169.859, 4.668, 0.332)
pt3dadd(106.687, 169.951, 4.62, 0.32)
pt3dadd(106.747, 170.044, 4.578, 0.36)
pt3dadd(106.808, 170.136, 4.536, 0.4)
pt3dadd(106.868, 170.228, 4.495, 0.44)
pt3dadd(106.928, 170.321, 4.453, 0.478)
pt3dadd(106.989, 170.413, 4.411, 0.518)
pt3dadd(107.049, 170.507, 4.369, 0.558)
pt3dadd(107.109, 170.599, 4.328, 0.598)
pt3dadd(107.17, 170.692, 4.286, 0.638)
pt3dadd(107.23, 170.784, 4.244, 0.678)
pt3dadd(107.287, 170.879, 4.205, 0.708)
pt3dadd(107.334, 170.984, 4.172, 0.714)
pt3dadd(107.381, 171.089, 4.14, 0.722)
pt3dadd(107.428, 171.194, 4.107, 0.728)
pt3dadd(107.475, 171.3, 4.074, 0.734)
pt3dadd(107.469, 171.302, 4.069, 0.734)
pt3dadd(107.516, 171.407, 4.036, 0.742)
pt3dadd(107.563, 171.512, 4.003, 0.748)
pt3dadd(107.61, 171.617, 3.97, 0.756)
pt3dadd(107.657, 171.722, 3.938, 0.762)
pt3dadd(107.704, 171.826, 3.905, 0.768)
pt3dadd(107.746, 171.932, 3.871, 0.762)
pt3dadd(107.781, 172.042, 3.834, 0.734)
pt3dadd(107.815, 172.151, 3.797, 0.708)
pt3dadd(107.849, 172.26, 3.76, 0.68)
pt3dadd(107.883, 172.369, 3.724, 0.652)
pt3dadd(107.918, 172.478, 3.687, 0.624)
pt3dadd(107.952, 172.588, 3.65, 0.596)
pt3dadd(107.986, 172.697, 3.613, 0.568)
pt3dadd(108.02, 172.806, 3.576, 0.54)
pt3dadd(108.055, 172.914, 3.54, 0.512)
pt3dadd(108.09, 173.022, 3.501, 0.486)
pt3dadd(108.126, 173.129, 3.461, 0.458)
pt3dadd(108.163, 173.234, 3.421, 0.43)
pt3dadd(108.199, 173.341, 3.38, 0.404)
pt3dadd(108.236, 173.448, 3.34, 0.376)
pt3dadd(108.272, 173.555, 3.299, 0.35)
pt3dadd(108.309, 173.662, 3.259, 0.322)
pt3dadd(108.345, 173.768, 3.219, 0.296)
pt3dadd(108.381, 173.874, 3.178, 0.268)
pt3dadd(108.418, 173.98, 3.138, 0.24)
pt3dadd(108.464, 174.084, 3.102, 0.226)
pt3dadd(108.458, 174.086, 3.097, 0.226)
pt3dadd(108.515, 174.186, 3.067, 0.226)
pt3dadd(108.572, 174.287, 3.037, 0.226)
pt3dadd(108.629, 174.388, 3.007, 0.226)
pt3dadd(108.686, 174.487, 2.977, 0.226)
pt3dadd(108.743, 174.588, 2.947, 0.226)
pt3dadd(108.8, 174.688, 2.917, 0.226)
pt3dadd(108.857, 174.787, 2.887, 0.226)
pt3dadd(108.914, 174.888, 2.857, 0.226)
pt3dadd(108.971, 174.988, 2.827, 0.226)
pt3dadd(109.035, 175.085, 2.801, 0.232)
pt3dadd(109.107, 175.176, 2.779, 0.248)
pt3dadd(109.178, 175.268, 2.757, 0.262)
pt3dadd(109.25, 175.36, 2.735, 0.276)
pt3dadd(109.321, 175.452, 2.713, 0.29)
pt3dadd(109.393, 175.544, 2.691, 0.304)
pt3dadd(109.464, 175.636, 2.669, 0.32)
pt3dadd(109.536, 175.727, 2.647, 0.334)
pt3dadd(109.53, 175.729, 2.641, 0.334)
pt3dadd(109.602, 175.82, 2.619, 0.348)
pt3dadd(109.673, 175.913, 2.598, 0.362)
pt3dadd(109.749, 176, 2.577, 0.374)
pt3dadd(109.832, 176.082, 2.557, 0.382)
pt3dadd(109.913, 176.165, 2.538, 0.39)
pt3dadd(109.995, 176.248, 2.519, 0.398)
pt3dadd(110.077, 176.329, 2.499, 0.408)
pt3dadd(110.16, 176.412, 2.48, 0.416)
pt3dadd(110.242, 176.494, 2.46, 0.424)
pt3dadd(110.323, 176.575, 2.441, 0.432)
pt3dadd(110.406, 176.658, 2.422, 0.44)
pt3dadd(110.487, 176.741, 2.402, 0.448)
pt3dadd(110.569, 176.822, 2.379, 0.452)
pt3dadd(110.649, 176.904, 2.351, 0.452)
pt3dadd(110.729, 176.986, 2.323, 0.452)
pt3dadd(110.81, 177.067, 2.296, 0.452)
pt3dadd(110.89, 177.149, 2.268, 0.452)
pt3dadd(110.97, 177.23, 2.24, 0.452)
pt3dadd(111.051, 177.311, 2.213, 0.452)
pt3dadd(111.131, 177.391, 2.185, 0.452)
pt3dadd(111.211, 177.473, 2.157, 0.452)
}
}
proc shape3d_9() {
dend_7[3] { pt3dadd(111.292, 177.554, 2.129, 0.452)
pt3dadd(111.348, 177.648, 2.088, 0.454)
pt3dadd(111.398, 177.746, 2.043, 0.458)
pt3dadd(111.447, 177.844, 1.997, 0.462)
pt3dadd(111.497, 177.941, 1.952, 0.466)
pt3dadd(111.546, 178.038, 1.906, 0.47)
pt3dadd(111.596, 178.136, 1.861, 0.472)
pt3dadd(111.646, 178.232, 1.815, 0.476)
pt3dadd(111.695, 178.33, 1.77, 0.48)
pt3dadd(111.745, 178.427, 1.724, 0.484)
pt3dadd(111.794, 178.525, 1.679, 0.488)
pt3dadd(111.833, 178.632, 1.644, 0.502)
pt3dadd(111.869, 178.742, 1.611, 0.52)
pt3dadd(111.905, 178.852, 1.578, 0.538)
pt3dadd(111.942, 178.962, 1.546, 0.556)
pt3dadd(111.978, 179.072, 1.513, 0.574)
pt3dadd(112.014, 179.18, 1.48, 0.594)
pt3dadd(112.05, 179.291, 1.447, 0.612)
pt3dadd(112.087, 179.401, 1.415, 0.63)
pt3dadd(112.123, 179.51, 1.382, 0.648)
pt3dadd(112.159, 179.621, 1.349, 0.666)
pt3dadd(112.212, 179.725, 1.328, 0.654)
pt3dadd(112.269, 179.828, 1.309, 0.638)
pt3dadd(112.326, 179.932, 1.29, 0.62)
pt3dadd(112.383, 180.035, 1.27, 0.604)
pt3dadd(112.44, 180.138, 1.251, 0.586)
pt3dadd(112.497, 180.24, 1.232, 0.57)
pt3dadd(112.554, 180.344, 1.213, 0.552)
pt3dadd(112.611, 180.448, 1.194, 0.534)
pt3dadd(112.668, 180.551, 1.175, 0.518)
pt3dadd(112.725, 180.654, 1.156, 0.5)
pt3dadd(112.792, 180.751, 1.139, 0.484)
pt3dadd(112.86, 180.846, 1.123, 0.468)
pt3dadd(112.929, 180.942, 1.108, 0.45)
pt3dadd(112.998, 181.038, 1.092, 0.434)
pt3dadd(113.066, 181.133, 1.076, 0.418)
pt3dadd(113.135, 181.228, 1.06, 0.402)
pt3dadd(113.203, 181.324, 1.044, 0.384)
pt3dadd(113.272, 181.418, 1.028, 0.368)
pt3dadd(113.341, 181.514, 1.012, 0.352)
pt3dadd(113.409, 181.61, 0.996, 0.334)
pt3dadd(113.483, 181.702, 0.98, 0.328)
pt3dadd(113.558, 181.792, 0.964, 0.324)
pt3dadd(113.632, 181.882, 0.947, 0.32)
pt3dadd(113.707, 181.973, 0.931, 0.316)
pt3dadd(113.782, 182.063, 0.915, 0.31)
pt3dadd(113.857, 182.152, 0.899, 0.306)
pt3dadd(113.931, 182.243, 0.882, 0.302)
pt3dadd(114.006, 182.333, 0.866, 0.298)
pt3dadd(114.081, 182.423, 0.85, 0.292)
pt3dadd(114.155, 182.513, 0.833, 0.288)
pt3dadd(114.233, 182.599, 0.811, 0.3)
pt3dadd(114.31, 182.686, 0.787, 0.316)
pt3dadd(114.388, 182.771, 0.763, 0.332)
pt3dadd(114.465, 182.857, 0.739, 0.346)
pt3dadd(114.543, 182.942, 0.716, 0.362)
pt3dadd(114.621, 183.028, 0.692, 0.376)
pt3dadd(114.698, 183.113, 0.668, 0.392)
pt3dadd(114.776, 183.199, 0.645, 0.406)
pt3dadd(114.853, 183.284, 0.621, 0.422)
pt3dadd(114.931, 183.371, 0.597, 0.436)
pt3dadd(114.983, 183.431, 0.519, 0.416)
pt3dadd(115.035, 183.492, 0.44, 0.394)
pt3dadd(115.088, 183.552, 0.362, 0.374)
pt3dadd(115.14, 183.613, 0.283, 0.352)
pt3dadd(115.192, 183.672, 0.205, 0.332)
pt3dadd(115.244, 183.733, 0.127, 0.31)
pt3dadd(115.297, 183.793, 0.048, 0.29)
pt3dadd(115.349, 183.854, -0.03, 0.268)
pt3dadd(115.401, 183.916, -0.109, 0.248)
pt3dadd(115.454, 183.976, -0.187, 0.226)
pt3dadd(115.539, 184.055, -0.193, 0.98)
pt3dadd(115.625, 184.135, -0.198, 1.056)
pt3dadd(115.71, 184.214, -0.204, 1.132)
pt3dadd(115.796, 184.295, -0.21, 1.208)
pt3dadd(115.882, 184.374, -0.218, 1.284)
pt3dadd(115.95, 184.45, -0.273, 1.346)
pt3dadd(116.019, 184.525, -0.327, 1.408)
pt3dadd(116.088, 184.6, -0.382, 1.468)
pt3dadd(116.156, 184.675, -0.437, 1.53)
pt3dadd(116.266, 184.708, -0.446, 1.652)
pt3dadd(116.363, 184.758, -0.478, 1.556)
pt3dadd(116.437, 184.825, -0.532, 1.408)
pt3dadd(116.522, 184.89, -0.577, 1.324)
pt3dadd(116.582, 184.921, -0.656, 1.23)
pt3dadd(116.595, 184.927, -0.76, 1.162)
pt3dadd(116.591, 184.93, -0.865, 1.134)
pt3dadd(116.586, 184.932, -0.971, 1.13)
pt3dadd(116.58, 184.948, -1.076, 1.13)
pt3dadd(116.576, 185.011, -1.165, 1.13)
pt3dadd(116.598, 185.104, -1.229, 1.13)
pt3dadd(116.639, 185.194, -1.291, 1.13)
pt3dadd(116.633, 185.196, -1.297, 1.13)
pt3dadd(116.673, 185.257, -1.378, 1.14)
pt3dadd(116.71, 185.309, -1.467, 1.154)
pt3dadd(116.765, 185.384, -1.531, 1.236)
pt3dadd(116.798, 185.485, -1.582, 1.26)
pt3dadd(116.832, 185.587, -1.633, 1.282)
pt3dadd(116.866, 185.688, -1.684, 1.306)
pt3dadd(116.9, 185.79, -1.736, 1.328)
pt3dadd(116.933, 185.904, -1.75, 1.36)
pt3dadd(116.966, 186.019, -1.761, 1.392)
pt3dadd(117.007, 186.127, -1.789, 1.406)
pt3dadd(117.053, 186.228, -1.831, 1.406)
pt3dadd(117.148, 186.259, -1.855, 1.4)
pt3dadd(117.261, 186.262, -1.874, 1.39)
pt3dadd(117.373, 186.271, -1.891, 1.38)
pt3dadd(117.476, 186.324, -1.897, 1.368)
pt3dadd(117.58, 186.376, -1.902, 1.358)
pt3dadd(117.641, 186.462, -1.947, 1.356)
pt3dadd(117.694, 186.548, -2.001, 1.352)
pt3dadd(117.701, 186.608, -2.093, 1.316)
pt3dadd(117.697, 186.679, -2.181, 1.28)
pt3dadd(117.695, 186.792, -2.223, 1.306)
pt3dadd(117.698, 186.913, -2.236, 1.296)
pt3dadd(117.692, 186.916, -2.242, 1.296)
pt3dadd(117.743, 187.01, -2.247, 1.264)
pt3dadd(117.839, 187.078, -2.253, 1.23)
pt3dadd(117.925, 187.154, -2.259, 1.198)
pt3dadd(117.991, 187.253, -2.264, 1.174)
pt3dadd(118.054, 187.352, -2.27, 1.15)
pt3dadd(118.122, 187.445, -2.276, 1.134)
pt3dadd(118.217, 187.511, -2.281, 1.146)
pt3dadd(118.304, 187.586, -2.287, 1.16)
pt3dadd(118.363, 187.691, -2.293, 1.184)
pt3dadd(118.42, 187.794, -2.299, 1.208)
pt3dadd(118.457, 187.906, -2.327, 1.244)
pt3dadd(118.494, 188.017, -2.354, 1.28)
pt3dadd(118.511, 188.087, -2.44, 1.294)
pt3dadd(118.53, 188.155, -2.526, 1.302)
pt3dadd(118.59, 188.186, -2.611, 1.242)
pt3dadd(118.622, 188.266, -2.684, 1.212)
pt3dadd(118.645, 188.356, -2.753, 1.188)
pt3dadd(118.67, 188.444, -2.822, 1.166)
pt3dadd(118.695, 188.534, -2.892, 1.142)
pt3dadd(118.708, 188.633, -2.952, 1.124)
pt3dadd(118.706, 188.742, -3.003, 1.11)
pt3dadd(118.703, 188.852, -3.053, 1.094)
pt3dadd(118.701, 188.962, -3.103, 1.08)
pt3dadd(118.699, 189.071, -3.154, 1.066)
pt3dadd(118.697, 189.184, -3.198, 1.056)
pt3dadd(118.695, 189.305, -3.218, 1.06)
pt3dadd(118.693, 189.425, -3.238, 1.064)
pt3dadd(118.692, 189.546, -3.258, 1.068)
pt3dadd(118.69, 189.667, -3.278, 1.072)
pt3dadd(118.688, 189.788, -3.298, 1.076)
pt3dadd(118.686, 189.91, -3.317, 1.08)
pt3dadd(118.684, 190.031, -3.323, 1.08)
pt3dadd(118.683, 190.153, -3.329, 1.08)
pt3dadd(118.681, 190.276, -3.335, 1.08)
pt3dadd(118.679, 190.393, -3.369, 1.08)
pt3dadd(118.677, 190.511, -3.402, 1.08)
pt3dadd(118.675, 190.615, -3.457, 1.088)
pt3dadd(118.672, 190.711, -3.525, 1.098)
pt3dadd(118.669, 190.794, -3.602, 1.116)
pt3dadd(118.665, 190.865, -3.691, 1.14)
pt3dadd(118.692, 190.932, -3.765, 1.158)
pt3dadd(118.777, 190.994, -3.812, 1.166)
pt3dadd(118.863, 191.056, -3.859, 1.174)
pt3dadd(118.935, 191.13, -3.906, 1.166)
pt3dadd(118.929, 191.132, -3.912, 1.166)
pt3dadd(118.978, 191.228, -3.96, 1.124)
pt3dadd(118.999, 191.308, -4.031, 1.082)
pt3dadd(118.995, 191.375, -4.121, 1.038)
pt3dadd(118.992, 191.442, -4.211, 0.994)
pt3dadd(118.989, 191.538, -4.272, 0.958)
pt3dadd(118.987, 191.651, -4.316, 0.926)
pt3dadd(118.985, 191.765, -4.357, 0.894)
pt3dadd(118.997, 191.876, -4.399, 0.884)
pt3dadd(119.022, 191.982, -4.448, 0.896)
pt3dadd(119.044, 192.089, -4.497, 0.906)
pt3dadd(119.068, 192.194, -4.546, 0.918)
pt3dadd(119.093, 192.301, -4.596, 0.928)
pt3dadd(119.151, 192.378, -4.659, 0.93)
pt3dadd(119.21, 192.454, -4.722, 0.93)
pt3dadd(119.269, 192.529, -4.785, 0.93)
pt3dadd(119.328, 192.605, -4.848, 0.93)
pt3dadd(119.426, 192.658, -4.874, 0.918)
pt3dadd(119.527, 192.709, -4.897, 0.906)
pt3dadd(119.625, 192.77, -4.909, 0.862)
pt3dadd(119.724, 192.833, -4.92, 0.814)
pt3dadd(119.718, 192.835, -4.925, 0.814)
pt3dadd(119.755, 192.886, -5.003, 0.774)
pt3dadd(119.779, 192.935, -5.097, 0.736)
pt3dadd(119.841, 192.986, -5.172, 0.728)
pt3dadd(119.91, 193.043, -5.239, 0.73)
pt3dadd(119.935, 193.156, -5.274, 0.766)
pt3dadd(119.96, 193.268, -5.308, 0.802)
pt3dadd(119.985, 193.381, -5.343, 0.838)
pt3dadd(119.994, 193.489, -5.39, 0.9)
pt3dadd(119.991, 193.595, -5.447, 0.98)
pt3dadd(120.013, 193.697, -5.497, 1.058)
pt3dadd(120.071, 193.79, -5.54, 1.13)
pt3dadd(120.128, 193.884, -5.582, 1.204)
pt3dadd(120.2, 193.967, -5.625, 1.274)
pt3dadd(120.263, 194.053, -5.67, 1.334)
pt3dadd(120.292, 194.158, -5.718, 1.354)
pt3dadd(120.32, 194.262, -5.767, 1.374)
pt3dadd(120.334, 194.356, -5.833, 1.358)
pt3dadd(120.338, 194.443, -5.909, 1.322)
}
}
proc shape3d_10() {
dend_7[3] { pt3dadd(120.362, 194.519, -5.988, 1.16)
pt3dadd(120.41, 194.618, -6.03, 1.064)
pt3dadd(120.461, 194.717, -6.072, 0.972)
pt3dadd(120.532, 194.798, -6.115, 0.902)
pt3dadd(120.596, 194.887, -6.157, 0.84)
pt3dadd(120.644, 194.987, -6.199, 0.8)
pt3dadd(120.668, 195.095, -6.239, 0.784)
pt3dadd(120.666, 195.21, -6.278, 0.794)
pt3dadd(120.664, 195.314, -6.323, 0.806)
pt3dadd(120.659, 195.329, -6.429, 0.822)
pt3dadd(120.653, 195.342, -6.534, 0.838)
pt3dadd(120.647, 195.356, -6.639, 0.854)
pt3dadd(120.642, 195.37, -6.744, 0.872)
pt3dadd(120.656, 195.39, -6.845, 0.892)
pt3dadd(120.691, 195.418, -6.943, 0.916)
pt3dadd(120.74, 195.479, -7, 0.912)
pt3dadd(120.809, 195.574, -7.013, 0.866)
pt3dadd(120.9, 195.647, -7.019, 0.79)
pt3dadd(120.964, 195.744, -7.025, 0.826)
pt3dadd(120.978, 195.864, -7.03, 0.88)
pt3dadd(120.995, 195.984, -7.038, 0.904)
pt3dadd(121.02, 196.096, -7.071, 0.904)
pt3dadd(121.034, 196.205, -7.118, 0.904)
pt3dadd(121.049, 196.315, -7.165, 0.904)
pt3dadd(121.064, 196.424, -7.213, 0.904)
pt3dadd(121.079, 196.534, -7.26, 0.904)
pt3dadd(121.082, 196.638, -7.316, 0.896)
pt3dadd(121.08, 196.739, -7.378, 0.886)
pt3dadd(121.076, 196.832, -7.449, 0.868)
pt3dadd(121.074, 196.916, -7.528, 0.844)
pt3dadd(121.072, 197.014, -7.583, 0.82)
pt3dadd(121.069, 197.135, -7.592, 0.794)
pt3dadd(121.068, 197.257, -7.602, 0.768)
pt3dadd(121.09, 197.372, -7.61, 0.738)
pt3dadd(121.141, 197.48, -7.615, 0.704)
pt3dadd(121.196, 197.585, -7.621, 0.666)
pt3dadd(121.27, 197.678, -7.627, 0.614)
pt3dadd(121.286, 197.795, -7.632, 0.582)
pt3dadd(121.29, 197.916, -7.638, 0.556)
pt3dadd(121.294, 198.038, -7.643, 0.53)
pt3dadd(121.291, 198.16, -7.653, 0.52)
pt3dadd(121.29, 198.282, -7.662, 0.51)
pt3dadd(121.288, 198.404, -7.672, 0.502)
pt3dadd(121.285, 198.51, -7.728, 0.526)
pt3dadd(121.283, 198.616, -7.785, 0.548)
pt3dadd(121.284, 198.689, -7.869, 0.61)
pt3dadd(121.288, 198.754, -7.959, 0.682)
pt3dadd(121.36, 198.804, -8.011, 0.742)
pt3dadd(121.459, 198.848, -8.048, 0.798)
pt3dadd(121.56, 198.893, -8.085, 0.852)
pt3dadd(121.618, 198.977, -8.106, 0.91)
pt3dadd(121.636, 199.097, -8.111, 0.968)
pt3dadd(121.655, 199.217, -8.117, 1.026)
pt3dadd(121.7, 199.326, -8.123, 1.104)
pt3dadd(121.735, 199.441, -8.128, 1.104)
pt3dadd(121.769, 199.558, -8.134, 1.104)
pt3dadd(121.801, 199.673, -8.14, 1.104)
pt3dadd(121.836, 199.788, -8.145, 1.104)
pt3dadd(121.87, 199.903, -8.151, 1.104)
pt3dadd(121.864, 199.906, -8.157, 1.104)
pt3dadd(121.931, 199.997, -8.162, 1.084)
pt3dadd(122.021, 200.071, -8.168, 1.048)
pt3dadd(122.099, 200.152, -8.191, 0.998)
pt3dadd(122.164, 200.24, -8.233, 0.928)
pt3dadd(122.184, 200.351, -8.26, 0.874)
pt3dadd(122.183, 200.472, -8.278, 0.826)
pt3dadd(122.18, 200.593, -8.296, 0.78)
pt3dadd(122.179, 200.716, -8.302, 0.754)
pt3dadd(122.177, 200.837, -8.308, 0.728)
pt3dadd(122.176, 200.959, -8.313, 0.704)
pt3dadd(122.176, 201.08, -8.334, 0.698)
pt3dadd(122.178, 201.2, -8.355, 0.692)
pt3dadd(122.179, 201.322, -8.377, 0.686)
pt3dadd(122.18, 201.442, -8.398, 0.68)
pt3dadd(122.244, 201.518, -8.434, 0.688)
pt3dadd(122.336, 201.576, -8.476, 0.702)
pt3dadd(122.393, 201.656, -8.528, 0.758)
pt3dadd(122.417, 201.77, -8.561, 0.774)
pt3dadd(122.443, 201.883, -8.594, 0.788)
pt3dadd(122.468, 201.997, -8.627, 0.804)
pt3dadd(122.494, 202.11, -8.66, 0.82)
pt3dadd(122.508, 202.228, -8.681, 0.85)
pt3dadd(122.506, 202.35, -8.687, 0.878)
pt3dadd(122.51, 202.471, -8.692, 0.856)
pt3dadd(122.532, 202.59, -8.698, 0.78)
pt3dadd(122.582, 202.696, -8.717, 0.702)
pt3dadd(122.612, 202.792, -8.772, 0.678)
pt3dadd(122.615, 202.868, -8.854, 0.678)
pt3dadd(122.609, 202.9, -8.957, 0.678)
pt3dadd(122.609, 202.91, -9.062, 0.678)
pt3dadd(122.635, 202.912, -9.162, 0.678)
pt3dadd(122.712, 202.912, -9.238, 0.704)
pt3dadd(122.784, 202.956, -9.297, 0.698)
pt3dadd(122.809, 203.05, -9.362, 0.686)
pt3dadd(122.81, 203.112, -9.444, 0.652)
pt3dadd(122.804, 203.114, -9.449, 0.652)
pt3dadd(122.776, 203.142, -9.551, 0.594)
pt3dadd(122.725, 203.164, -9.641, 0.53)
pt3dadd(122.617, 203.17, -9.7, 0.444)
pt3dadd(122.506, 203.176, -9.752, 0.298)
pt3dadd(122.383, 203.182, -9.781, 0.242)
pt3dadd(122.258, 203.188, -9.794, 0.226)
}
dend_7[4] {pt3dclear()
pt3dadd(97.79, 114.02, 16.324, 1.808)
pt3dadd(97.787, 114.034, 16.339, 1.806)
pt3dadd(97.768, 114.104, 16.419, 1.794)
pt3dadd(97.75, 114.174, 16.498, 1.784)
pt3dadd(97.732, 114.245, 16.578, 1.772)
pt3dadd(97.713, 114.315, 16.657, 1.76)
pt3dadd(97.695, 114.385, 16.737, 1.75)
pt3dadd(97.677, 114.456, 16.817, 1.738)
pt3dadd(97.658, 114.526, 16.896, 1.726)
pt3dadd(97.64, 114.596, 16.976, 1.716)
pt3dadd(97.622, 114.667, 17.055, 1.704)
pt3dadd(97.603, 114.737, 17.135, 1.692)
pt3dadd(97.585, 114.807, 17.215, 1.682)
pt3dadd(97.566, 114.878, 17.293, 1.672)
pt3dadd(97.546, 114.949, 17.372, 1.662)
pt3dadd(97.526, 115.02, 17.451, 1.652)
pt3dadd(97.507, 115.091, 17.53, 1.642)
pt3dadd(97.487, 115.163, 17.609, 1.632)
pt3dadd(97.468, 115.234, 17.688, 1.622)
pt3dadd(97.448, 115.305, 17.767, 1.612)
pt3dadd(97.428, 115.376, 17.846, 1.604)
pt3dadd(97.409, 115.447, 17.925, 1.594)
pt3dadd(97.389, 115.518, 18.003, 1.584)
pt3dadd(97.363, 115.593, 18.078, 1.582)
pt3dadd(97.336, 115.669, 18.153, 1.582)
pt3dadd(97.309, 115.745, 18.227, 1.582)
pt3dadd(97.282, 115.821, 18.301, 1.582)
pt3dadd(97.255, 115.896, 18.375, 1.582)
pt3dadd(97.228, 115.972, 18.449, 1.582)
pt3dadd(97.201, 116.048, 18.523, 1.582)
pt3dadd(97.174, 116.124, 18.597, 1.582)
pt3dadd(97.146, 116.2, 18.671, 1.582)
pt3dadd(97.119, 116.276, 18.746, 1.582)
pt3dadd(97.079, 116.343, 18.821, 1.582)
pt3dadd(97.035, 116.409, 18.896, 1.582)
pt3dadd(96.992, 116.475, 18.971, 1.582)
pt3dadd(96.948, 116.541, 19.047, 1.582)
pt3dadd(96.905, 116.607, 19.122, 1.582)
pt3dadd(96.861, 116.673, 19.197, 1.582)
pt3dadd(96.818, 116.739, 19.273, 1.582)
pt3dadd(96.774, 116.805, 19.348, 1.582)
pt3dadd(96.731, 116.871, 19.423, 1.582)
pt3dadd(96.688, 116.936, 19.499, 1.582)
pt3dadd(96.636, 117, 19.571, 1.566)
pt3dadd(96.584, 117.064, 19.644, 1.548)
pt3dadd(96.532, 117.128, 19.717, 1.532)
pt3dadd(96.48, 117.191, 19.79, 1.514)
pt3dadd(96.428, 117.255, 19.863, 1.498)
pt3dadd(96.376, 117.319, 19.936, 1.48)
pt3dadd(96.324, 117.382, 20.008, 1.464)
pt3dadd(96.272, 117.446, 20.081, 1.446)
pt3dadd(96.22, 117.51, 20.154, 1.43)
pt3dadd(96.168, 117.574, 20.227, 1.412)
pt3dadd(96.126, 117.651, 20.295, 1.362)
pt3dadd(96.085, 117.729, 20.362, 1.31)
pt3dadd(96.043, 117.807, 20.43, 1.26)
pt3dadd(96.001, 117.885, 20.498, 1.21)
pt3dadd(95.96, 117.962, 20.566, 1.158)
pt3dadd(95.918, 118.04, 20.634, 1.108)
pt3dadd(95.877, 118.118, 20.701, 1.056)
pt3dadd(95.835, 118.196, 20.769, 1.006)
pt3dadd(95.793, 118.273, 20.837, 0.954)
pt3dadd(95.752, 118.351, 20.905, 0.904)
}
dend_7[5] {pt3dclear()
pt3dadd(95.752, 118.351, 20.905, 0.904)
pt3dadd(95.745, 118.362, 20.909, 0.91)
pt3dadd(95.681, 118.454, 20.944, 0.962)
pt3dadd(95.618, 118.547, 20.978, 1.014)
pt3dadd(95.554, 118.64, 21.013, 1.066)
pt3dadd(95.49, 118.733, 21.048, 1.118)
pt3dadd(95.427, 118.826, 21.083, 1.17)
pt3dadd(95.363, 118.919, 21.117, 1.222)
pt3dadd(95.3, 119.011, 21.152, 1.274)
pt3dadd(95.236, 119.104, 21.187, 1.326)
pt3dadd(95.173, 119.197, 21.222, 1.378)
pt3dadd(95.109, 119.29, 21.256, 1.43)
pt3dadd(95.045, 119.383, 21.291, 1.484)
pt3dadd(94.982, 119.476, 21.326, 1.534)
pt3dadd(94.925, 119.574, 21.355, 1.568)
pt3dadd(94.88, 119.683, 21.373, 1.57)
pt3dadd(94.835, 119.792, 21.391, 1.572)
pt3dadd(94.79, 119.901, 21.409, 1.572)
pt3dadd(94.744, 120.011, 21.428, 1.574)
pt3dadd(94.699, 120.12, 21.446, 1.576)
pt3dadd(94.654, 120.228, 21.464, 1.576)
pt3dadd(94.609, 120.337, 21.482, 1.578)
pt3dadd(94.564, 120.446, 21.501, 1.58)
pt3dadd(94.519, 120.556, 21.519, 1.582)
pt3dadd(94.469, 120.662, 21.535, 1.566)
pt3dadd(94.41, 120.766, 21.548, 1.522)
pt3dadd(94.351, 120.87, 21.56, 1.478)
pt3dadd(94.292, 120.973, 21.573, 1.436)
pt3dadd(94.234, 121.076, 21.586, 1.392)
pt3dadd(94.175, 121.18, 21.598, 1.348)
pt3dadd(94.116, 121.284, 21.611, 1.306)
pt3dadd(94.057, 121.387, 21.624, 1.262)
pt3dadd(93.999, 121.49, 21.637, 1.218)
pt3dadd(93.94, 121.595, 21.649, 1.174)
pt3dadd(93.882, 121.696, 21.67, 1.134)
}
}
proc shape3d_11() {
dend_7[5] { pt3dadd(93.826, 121.793, 21.704, 1.094)
pt3dadd(93.769, 121.891, 21.738, 1.056)
pt3dadd(93.713, 121.988, 21.772, 1.016)
pt3dadd(93.657, 122.087, 21.806, 0.978)
pt3dadd(93.6, 122.184, 21.84, 0.938)
pt3dadd(93.544, 122.282, 21.874, 0.9)
pt3dadd(93.488, 122.38, 21.908, 0.86)
pt3dadd(93.432, 122.478, 21.942, 0.822)
pt3dadd(93.375, 122.575, 21.976, 0.782)
pt3dadd(93.328, 122.677, 22.013, 0.762)
pt3dadd(93.288, 122.78, 22.051, 0.752)
pt3dadd(93.247, 122.884, 22.088, 0.744)
pt3dadd(93.206, 122.987, 22.126, 0.734)
pt3dadd(93.165, 123.09, 22.164, 0.726)
pt3dadd(93.124, 123.193, 22.202, 0.716)
pt3dadd(93.083, 123.296, 22.24, 0.708)
pt3dadd(93.042, 123.4, 22.277, 0.698)
pt3dadd(93.001, 123.503, 22.315, 0.69)
pt3dadd(92.96, 123.606, 22.353, 0.68)
pt3dadd(92.915, 123.713, 22.376, 0.678)
pt3dadd(92.868, 123.822, 22.394, 0.678)
pt3dadd(92.821, 123.93, 22.412, 0.678)
pt3dadd(92.774, 124.038, 22.429, 0.678)
pt3dadd(92.727, 124.146, 22.447, 0.678)
pt3dadd(92.679, 124.255, 22.465, 0.678)
pt3dadd(92.632, 124.363, 22.482, 0.678)
pt3dadd(92.585, 124.471, 22.5, 0.678)
pt3dadd(92.538, 124.579, 22.518, 0.678)
pt3dadd(92.491, 124.688, 22.535, 0.678)
pt3dadd(92.445, 124.799, 22.544, 0.678)
pt3dadd(92.4, 124.909, 22.55, 0.678)
pt3dadd(92.354, 125.02, 22.556, 0.678)
pt3dadd(92.309, 125.131, 22.561, 0.678)
pt3dadd(92.263, 125.242, 22.567, 0.678)
pt3dadd(92.218, 125.352, 22.573, 0.678)
pt3dadd(92.173, 125.464, 22.579, 0.678)
pt3dadd(92.127, 125.574, 22.585, 0.678)
pt3dadd(92.082, 125.686, 22.591, 0.678)
pt3dadd(92.036, 125.796, 22.596, 0.678)
pt3dadd(91.999, 125.91, 22.598, 0.682)
pt3dadd(91.963, 126.024, 22.598, 0.688)
pt3dadd(91.927, 126.139, 22.598, 0.692)
pt3dadd(91.891, 126.253, 22.599, 0.696)
pt3dadd(91.855, 126.368, 22.599, 0.702)
pt3dadd(91.819, 126.482, 22.6, 0.706)
pt3dadd(91.783, 126.596, 22.6, 0.712)
pt3dadd(91.747, 126.712, 22.6, 0.716)
pt3dadd(91.712, 126.826, 22.601, 0.722)
pt3dadd(91.676, 126.941, 22.601, 0.726)
pt3dadd(91.644, 127.056, 22.602, 0.742)
pt3dadd(91.612, 127.172, 22.602, 0.76)
pt3dadd(91.581, 127.288, 22.603, 0.776)
pt3dadd(91.55, 127.404, 22.604, 0.794)
pt3dadd(91.518, 127.519, 22.604, 0.812)
pt3dadd(91.487, 127.636, 22.605, 0.83)
pt3dadd(91.456, 127.751, 22.606, 0.848)
pt3dadd(91.424, 127.867, 22.606, 0.866)
pt3dadd(91.393, 127.982, 22.607, 0.884)
pt3dadd(91.362, 128.099, 22.608, 0.9)
pt3dadd(91.314, 128.208, 22.609, 0.904)
pt3dadd(91.262, 128.316, 22.61, 0.904)
pt3dadd(91.21, 128.425, 22.611, 0.904)
pt3dadd(91.158, 128.533, 22.613, 0.904)
pt3dadd(91.107, 128.641, 22.614, 0.904)
pt3dadd(91.055, 128.749, 22.615, 0.904)
pt3dadd(91.003, 128.857, 22.616, 0.904)
pt3dadd(90.951, 128.966, 22.618, 0.904)
pt3dadd(90.9, 129.074, 22.619, 0.904)
pt3dadd(90.848, 129.182, 22.62, 0.904)
pt3dadd(90.802, 129.293, 22.622, 0.892)
pt3dadd(90.757, 129.404, 22.625, 0.878)
pt3dadd(90.712, 129.516, 22.627, 0.866)
pt3dadd(90.668, 129.628, 22.629, 0.852)
pt3dadd(90.623, 129.738, 22.632, 0.838)
pt3dadd(90.578, 129.85, 22.634, 0.824)
pt3dadd(90.533, 129.961, 22.637, 0.81)
pt3dadd(90.488, 130.073, 22.639, 0.796)
pt3dadd(90.444, 130.183, 22.641, 0.782)
pt3dadd(90.399, 130.295, 22.643, 0.77)
pt3dadd(90.35, 130.404, 22.648, 0.76)
pt3dadd(90.3, 130.513, 22.652, 0.75)
pt3dadd(90.25, 130.622, 22.656, 0.742)
pt3dadd(90.2, 130.732, 22.661, 0.732)
pt3dadd(90.149, 130.84, 22.666, 0.724)
pt3dadd(90.099, 130.949, 22.67, 0.714)
pt3dadd(90.049, 131.058, 22.674, 0.706)
pt3dadd(89.999, 131.167, 22.679, 0.696)
pt3dadd(89.949, 131.275, 22.683, 0.688)
pt3dadd(89.899, 131.384, 22.688, 0.68)
pt3dadd(89.846, 131.491, 22.694, 0.68)
pt3dadd(89.792, 131.599, 22.701, 0.684)
pt3dadd(89.738, 131.706, 22.708, 0.688)
pt3dadd(89.685, 131.813, 22.716, 0.69)
pt3dadd(89.631, 131.92, 22.723, 0.694)
pt3dadd(89.577, 132.026, 22.73, 0.696)
pt3dadd(89.523, 132.133, 22.737, 0.7)
pt3dadd(89.469, 132.24, 22.744, 0.704)
pt3dadd(89.416, 132.347, 22.751, 0.706)
pt3dadd(89.362, 132.455, 22.758, 0.71)
pt3dadd(89.323, 132.568, 22.768, 0.726)
pt3dadd(89.287, 132.68, 22.779, 0.744)
pt3dadd(89.25, 132.794, 22.791, 0.762)
pt3dadd(89.214, 132.907, 22.802, 0.782)
pt3dadd(89.177, 133.021, 22.813, 0.8)
pt3dadd(89.14, 133.134, 22.824, 0.818)
pt3dadd(89.104, 133.248, 22.835, 0.836)
pt3dadd(89.067, 133.362, 22.846, 0.854)
pt3dadd(89.031, 133.475, 22.857, 0.872)
pt3dadd(88.994, 133.589, 22.868, 0.892)
pt3dadd(88.966, 133.698, 22.9, 0.88)
pt3dadd(88.939, 133.807, 22.935, 0.864)
pt3dadd(88.912, 133.916, 22.97, 0.848)
pt3dadd(88.885, 134.026, 23.005, 0.834)
pt3dadd(88.859, 134.135, 23.041, 0.818)
pt3dadd(88.832, 134.244, 23.076, 0.802)
pt3dadd(88.805, 134.353, 23.111, 0.786)
pt3dadd(88.778, 134.462, 23.146, 0.77)
pt3dadd(88.751, 134.572, 23.181, 0.756)
pt3dadd(88.725, 134.681, 23.216, 0.74)
pt3dadd(88.686, 134.789, 23.244, 0.764)
pt3dadd(88.646, 134.897, 23.271, 0.794)
pt3dadd(88.607, 135.006, 23.299, 0.822)
pt3dadd(88.567, 135.114, 23.326, 0.85)
pt3dadd(88.527, 135.222, 23.353, 0.88)
pt3dadd(88.488, 135.331, 23.381, 0.908)
pt3dadd(88.448, 135.439, 23.408, 0.936)
pt3dadd(88.408, 135.547, 23.435, 0.966)
pt3dadd(88.369, 135.656, 23.463, 0.994)
pt3dadd(88.329, 135.764, 23.49, 1.024)
pt3dadd(88.287, 135.875, 23.509, 1.022)
pt3dadd(88.245, 135.985, 23.527, 1.02)
pt3dadd(88.202, 136.094, 23.545, 1.02)
pt3dadd(88.16, 136.205, 23.563, 1.016)
pt3dadd(88.118, 136.315, 23.581, 1.016)
pt3dadd(88.075, 136.426, 23.599, 1.014)
pt3dadd(88.033, 136.536, 23.617, 1.012)
pt3dadd(87.991, 136.645, 23.635, 1.01)
pt3dadd(87.949, 136.756, 23.654, 1.008)
pt3dadd(87.906, 136.866, 23.672, 1.006)
pt3dadd(87.872, 136.981, 23.681, 0.942)
pt3dadd(87.838, 137.095, 23.69, 0.878)
pt3dadd(87.804, 137.21, 23.698, 0.814)
pt3dadd(87.77, 137.324, 23.707, 0.752)
pt3dadd(87.736, 137.44, 23.716, 0.688)
pt3dadd(87.702, 137.554, 23.725, 0.624)
pt3dadd(87.668, 137.669, 23.734, 0.56)
pt3dadd(87.634, 137.783, 23.743, 0.496)
pt3dadd(87.6, 137.897, 23.752, 0.432)
pt3dadd(87.566, 138.012, 23.76, 0.368)
pt3dadd(87.537, 138.128, 23.76, 0.44)
pt3dadd(87.509, 138.245, 23.76, 0.51)
pt3dadd(87.48, 138.361, 23.76, 0.582)
pt3dadd(87.451, 138.478, 23.759, 0.652)
pt3dadd(87.422, 138.594, 23.759, 0.724)
pt3dadd(87.393, 138.71, 23.759, 0.794)
pt3dadd(87.364, 138.827, 23.759, 0.866)
pt3dadd(87.335, 138.943, 23.758, 0.936)
pt3dadd(87.306, 139.06, 23.758, 1.008)
pt3dadd(87.277, 139.177, 23.758, 1.078)
pt3dadd(87.247, 139.292, 23.757, 0.994)
pt3dadd(87.218, 139.409, 23.757, 0.908)
pt3dadd(87.188, 139.525, 23.756, 0.824)
pt3dadd(87.158, 139.642, 23.756, 0.738)
pt3dadd(87.128, 139.758, 23.755, 0.652)
pt3dadd(87.098, 139.874, 23.754, 0.568)
pt3dadd(87.068, 139.99, 23.754, 0.482)
pt3dadd(87.038, 140.106, 23.753, 0.396)
pt3dadd(87.008, 140.222, 23.753, 0.312)
pt3dadd(86.978, 140.339, 23.752, 0.226)
}
dend_7[6] {pt3dclear()
pt3dadd(86.978, 140.339, 23.752, 0.226)
pt3dadd(86.923, 140.393, 23.751, 0.226)
pt3dadd(86.836, 140.476, 23.75, 0.226)
pt3dadd(86.749, 140.558, 23.749, 0.23)
pt3dadd(86.662, 140.64, 23.747, 0.232)
pt3dadd(86.575, 140.723, 23.746, 0.234)
pt3dadd(86.488, 140.806, 23.745, 0.238)
pt3dadd(86.401, 140.888, 23.743, 0.24)
pt3dadd(86.314, 140.97, 23.742, 0.242)
pt3dadd(86.226, 141.053, 23.74, 0.246)
pt3dadd(86.139, 141.136, 23.739, 0.248)
pt3dadd(86.052, 141.218, 23.737, 0.252)
pt3dadd(85.965, 141.3, 23.736, 0.258)
pt3dadd(85.875, 141.38, 23.734, 0.274)
pt3dadd(85.786, 141.46, 23.732, 0.292)
pt3dadd(85.696, 141.54, 23.73, 0.31)
pt3dadd(85.607, 141.619, 23.728, 0.328)
pt3dadd(85.517, 141.7, 23.726, 0.346)
pt3dadd(85.428, 141.78, 23.724, 0.364)
pt3dadd(85.338, 141.859, 23.722, 0.382)
pt3dadd(85.249, 141.94, 23.72, 0.398)
pt3dadd(85.159, 142.019, 23.718, 0.416)
pt3dadd(85.07, 142.099, 23.715, 0.432)
pt3dadd(84.983, 142.182, 23.711, 0.434)
pt3dadd(84.895, 142.264, 23.707, 0.436)
pt3dadd(84.808, 142.345, 23.702, 0.438)
pt3dadd(84.72, 142.428, 23.698, 0.44)
pt3dadd(84.633, 142.51, 23.694, 0.442)
pt3dadd(84.545, 142.591, 23.689, 0.444)
pt3dadd(84.458, 142.673, 23.685, 0.446)
pt3dadd(84.37, 142.756, 23.681, 0.448)
}
}
proc shape3d_12() {
dend_7[6] { pt3dadd(84.283, 142.837, 23.676, 0.45)
pt3dadd(84.197, 142.921, 23.671, 0.454)
pt3dadd(84.12, 143.012, 23.665, 0.462)
pt3dadd(84.043, 143.105, 23.659, 0.472)
pt3dadd(83.966, 143.196, 23.652, 0.48)
pt3dadd(83.889, 143.288, 23.646, 0.49)
pt3dadd(83.812, 143.38, 23.639, 0.498)
pt3dadd(83.735, 143.471, 23.633, 0.508)
pt3dadd(83.658, 143.563, 23.626, 0.516)
pt3dadd(83.581, 143.654, 23.62, 0.526)
pt3dadd(83.504, 143.747, 23.614, 0.534)
pt3dadd(83.429, 143.839, 23.605, 0.544)
pt3dadd(83.358, 143.934, 23.59, 0.558)
pt3dadd(83.287, 144.03, 23.575, 0.572)
pt3dadd(83.217, 144.125, 23.56, 0.586)
pt3dadd(83.146, 144.221, 23.545, 0.6)
pt3dadd(83.076, 144.316, 23.531, 0.614)
pt3dadd(83.005, 144.412, 23.516, 0.628)
pt3dadd(82.934, 144.506, 23.501, 0.642)
pt3dadd(82.864, 144.602, 23.486, 0.656)
pt3dadd(82.793, 144.697, 23.471, 0.67)
pt3dadd(82.716, 144.785, 23.45, 0.678)
pt3dadd(82.631, 144.86, 23.418, 0.678)
pt3dadd(82.546, 144.936, 23.387, 0.678)
pt3dadd(82.461, 145.013, 23.356, 0.678)
pt3dadd(82.376, 145.088, 23.324, 0.678)
pt3dadd(82.291, 145.164, 23.293, 0.678)
pt3dadd(82.206, 145.24, 23.262, 0.678)
pt3dadd(82.121, 145.316, 23.23, 0.678)
pt3dadd(82.036, 145.392, 23.199, 0.678)
pt3dadd(81.951, 145.468, 23.168, 0.678)
pt3dadd(81.866, 145.547, 23.146, 0.678)
pt3dadd(81.781, 145.631, 23.134, 0.678)
pt3dadd(81.696, 145.715, 23.123, 0.678)
pt3dadd(81.611, 145.798, 23.111, 0.678)
pt3dadd(81.526, 145.882, 23.1, 0.678)
pt3dadd(81.441, 145.964, 23.088, 0.678)
pt3dadd(81.356, 146.048, 23.077, 0.678)
pt3dadd(81.271, 146.132, 23.065, 0.678)
pt3dadd(81.186, 146.215, 23.054, 0.678)
pt3dadd(81.101, 146.299, 23.042, 0.678)
pt3dadd(81.024, 146.388, 23.046, 0.678)
pt3dadd(80.956, 146.483, 23.068, 0.678)
pt3dadd(80.889, 146.579, 23.09, 0.678)
pt3dadd(80.821, 146.675, 23.113, 0.678)
pt3dadd(80.754, 146.77, 23.135, 0.678)
pt3dadd(80.687, 146.866, 23.157, 0.678)
pt3dadd(80.619, 146.962, 23.18, 0.678)
pt3dadd(80.552, 147.056, 23.202, 0.678)
pt3dadd(80.484, 147.152, 23.224, 0.678)
pt3dadd(80.417, 147.248, 23.246, 0.678)
pt3dadd(80.35, 147.343, 23.27, 0.678)
pt3dadd(80.283, 147.439, 23.294, 0.678)
pt3dadd(80.217, 147.534, 23.319, 0.678)
pt3dadd(80.15, 147.63, 23.343, 0.678)
pt3dadd(80.083, 147.726, 23.367, 0.678)
pt3dadd(80.017, 147.821, 23.391, 0.678)
pt3dadd(79.95, 147.917, 23.416, 0.678)
pt3dadd(79.884, 148.012, 23.44, 0.678)
pt3dadd(79.817, 148.108, 23.465, 0.678)
pt3dadd(79.75, 148.202, 23.489, 0.678)
pt3dadd(79.682, 148.297, 23.511, 0.678)
pt3dadd(79.612, 148.392, 23.532, 0.676)
pt3dadd(79.543, 148.487, 23.554, 0.674)
pt3dadd(79.473, 148.58, 23.575, 0.674)
pt3dadd(79.403, 148.675, 23.596, 0.672)
pt3dadd(79.334, 148.769, 23.617, 0.67)
pt3dadd(79.264, 148.864, 23.638, 0.668)
pt3dadd(79.194, 148.958, 23.66, 0.668)
pt3dadd(79.125, 149.052, 23.681, 0.666)
pt3dadd(79.055, 149.147, 23.702, 0.664)
pt3dadd(78.982, 149.239, 23.719, 0.656)
pt3dadd(78.906, 149.33, 23.733, 0.64)
pt3dadd(78.83, 149.423, 23.747, 0.626)
pt3dadd(78.754, 149.514, 23.761, 0.61)
pt3dadd(78.679, 149.605, 23.775, 0.596)
pt3dadd(78.603, 149.696, 23.789, 0.58)
pt3dadd(78.527, 149.788, 23.804, 0.566)
pt3dadd(78.451, 149.88, 23.818, 0.55)
pt3dadd(78.375, 149.971, 23.832, 0.536)
pt3dadd(78.299, 150.062, 23.846, 0.52)
pt3dadd(78.222, 150.152, 23.858, 0.51)
pt3dadd(78.144, 150.242, 23.869, 0.504)
pt3dadd(78.065, 150.332, 23.88, 0.498)
pt3dadd(77.987, 150.422, 23.891, 0.492)
pt3dadd(77.909, 150.512, 23.903, 0.486)
pt3dadd(77.83, 150.602, 23.914, 0.48)
pt3dadd(77.752, 150.692, 23.925, 0.474)
pt3dadd(77.673, 150.782, 23.936, 0.468)
pt3dadd(77.595, 150.872, 23.947, 0.46)
pt3dadd(77.517, 150.962, 23.958, 0.454)
pt3dadd(77.438, 151.051, 23.969, 0.452)
pt3dadd(77.358, 151.14, 23.979, 0.454)
pt3dadd(77.279, 151.23, 23.989, 0.456)
pt3dadd(77.199, 151.319, 23.999, 0.458)
pt3dadd(77.12, 151.408, 24.009, 0.458)
pt3dadd(77.04, 151.496, 24.02, 0.46)
pt3dadd(76.961, 151.586, 24.03, 0.462)
pt3dadd(76.881, 151.675, 24.04, 0.464)
pt3dadd(76.802, 151.764, 24.05, 0.464)
pt3dadd(76.723, 151.853, 24.06, 0.466)
pt3dadd(76.655, 151.946, 24.085, 0.486)
pt3dadd(76.594, 152.041, 24.12, 0.52)
pt3dadd(76.534, 152.136, 24.154, 0.552)
pt3dadd(76.473, 152.231, 24.188, 0.586)
pt3dadd(76.413, 152.326, 24.223, 0.618)
pt3dadd(76.353, 152.422, 24.257, 0.652)
pt3dadd(76.292, 152.516, 24.292, 0.686)
pt3dadd(76.232, 152.611, 24.327, 0.718)
pt3dadd(76.172, 152.706, 24.361, 0.75)
pt3dadd(76.111, 152.802, 24.396, 0.784)
pt3dadd(76.045, 152.894, 24.425, 0.796)
pt3dadd(75.974, 152.987, 24.451, 0.796)
pt3dadd(75.904, 153.079, 24.477, 0.796)
pt3dadd(75.833, 153.17, 24.503, 0.796)
pt3dadd(75.763, 153.263, 24.529, 0.794)
pt3dadd(75.692, 153.355, 24.555, 0.794)
pt3dadd(75.622, 153.446, 24.581, 0.794)
pt3dadd(75.552, 153.539, 24.607, 0.794)
pt3dadd(75.481, 153.631, 24.632, 0.792)
pt3dadd(75.411, 153.722, 24.658, 0.792)
pt3dadd(75.332, 153.81, 24.68, 0.784)
pt3dadd(75.25, 153.894, 24.699, 0.774)
pt3dadd(75.167, 153.978, 24.718, 0.762)
pt3dadd(75.084, 154.062, 24.737, 0.75)
pt3dadd(75.002, 154.146, 24.755, 0.738)
pt3dadd(74.919, 154.23, 24.774, 0.728)
pt3dadd(74.836, 154.314, 24.793, 0.716)
pt3dadd(74.754, 154.398, 24.812, 0.704)
pt3dadd(74.671, 154.482, 24.831, 0.692)
pt3dadd(74.588, 154.566, 24.85, 0.682)
pt3dadd(74.495, 154.639, 24.863, 0.68)
pt3dadd(74.398, 154.708, 24.875, 0.68)
pt3dadd(74.301, 154.777, 24.886, 0.682)
pt3dadd(74.203, 154.846, 24.897, 0.684)
pt3dadd(74.106, 154.914, 24.908, 0.686)
pt3dadd(74.009, 154.984, 24.92, 0.688)
pt3dadd(73.911, 155.052, 24.931, 0.69)
pt3dadd(73.814, 155.122, 24.942, 0.692)
pt3dadd(73.717, 155.19, 24.953, 0.694)
pt3dadd(73.62, 155.26, 24.965, 0.696)
pt3dadd(73.525, 155.333, 24.969, 0.708)
pt3dadd(73.433, 155.41, 24.972, 0.726)
pt3dadd(73.34, 155.485, 24.975, 0.742)
pt3dadd(73.247, 155.561, 24.977, 0.758)
pt3dadd(73.154, 155.636, 24.98, 0.776)
pt3dadd(73.061, 155.712, 24.983, 0.792)
pt3dadd(72.968, 155.789, 24.985, 0.81)
pt3dadd(72.875, 155.864, 24.988, 0.826)
pt3dadd(72.782, 155.94, 24.99, 0.844)
pt3dadd(72.689, 156.016, 24.993, 0.86)
pt3dadd(72.602, 156.098, 24.998, 0.858)
pt3dadd(72.517, 156.182, 25.003, 0.848)
pt3dadd(72.431, 156.266, 25.009, 0.84)
pt3dadd(72.346, 156.35, 25.015, 0.83)
pt3dadd(72.261, 156.434, 25.02, 0.822)
pt3dadd(72.175, 156.518, 25.026, 0.812)
pt3dadd(72.09, 156.602, 25.031, 0.802)
pt3dadd(72.005, 156.686, 25.037, 0.794)
pt3dadd(71.919, 156.77, 25.043, 0.784)
pt3dadd(71.834, 156.854, 25.048, 0.776)
pt3dadd(71.761, 156.949, 25.057, 0.772)
pt3dadd(71.691, 157.046, 25.066, 0.772)
pt3dadd(71.622, 157.144, 25.075, 0.772)
pt3dadd(71.553, 157.241, 25.085, 0.77)
pt3dadd(71.484, 157.339, 25.094, 0.77)
pt3dadd(71.415, 157.436, 25.103, 0.768)
pt3dadd(71.346, 157.534, 25.112, 0.768)
pt3dadd(71.276, 157.631, 25.122, 0.768)
pt3dadd(71.207, 157.728, 25.131, 0.766)
pt3dadd(71.138, 157.825, 25.14, 0.766)
pt3dadd(71.089, 157.931, 25.165, 0.778)
pt3dadd(71.043, 158.036, 25.191, 0.792)
pt3dadd(70.996, 158.143, 25.217, 0.806)
pt3dadd(70.95, 158.249, 25.243, 0.82)
pt3dadd(70.903, 158.356, 25.269, 0.834)
pt3dadd(70.857, 158.461, 25.295, 0.848)
pt3dadd(70.81, 158.567, 25.322, 0.864)
pt3dadd(70.764, 158.674, 25.348, 0.878)
pt3dadd(70.717, 158.779, 25.374, 0.892)
pt3dadd(70.672, 158.885, 25.402, 0.9)
pt3dadd(70.639, 158.986, 25.449, 0.87)
pt3dadd(70.605, 159.086, 25.496, 0.838)
pt3dadd(70.572, 159.187, 25.543, 0.808)
pt3dadd(70.538, 159.288, 25.59, 0.776)
pt3dadd(70.505, 159.389, 25.636, 0.746)
pt3dadd(70.471, 159.488, 25.683, 0.714)
pt3dadd(70.438, 159.589, 25.73, 0.684)
pt3dadd(70.404, 159.69, 25.777, 0.652)
pt3dadd(70.371, 159.791, 25.823, 0.622)
pt3dadd(70.334, 159.893, 25.866, 0.59)
pt3dadd(70.285, 159.997, 25.893, 0.562)
pt3dadd(70.237, 160.102, 25.92, 0.534)
pt3dadd(70.188, 160.206, 25.947, 0.506)
pt3dadd(70.139, 160.312, 25.974, 0.478)
pt3dadd(70.09, 160.416, 26.001, 0.45)
pt3dadd(70.041, 160.52, 26.027, 0.422)
pt3dadd(69.992, 160.625, 26.054, 0.394)
pt3dadd(69.943, 160.73, 26.081, 0.366)
pt3dadd(69.894, 160.835, 26.108, 0.338)
}
}
proc shape3d_13() {
dend_7[6] { pt3dadd(69.838, 160.937, 26.131, 0.328)
pt3dadd(69.768, 161.033, 26.147, 0.352)
pt3dadd(69.699, 161.128, 26.162, 0.374)
pt3dadd(69.629, 161.224, 26.178, 0.398)
pt3dadd(69.559, 161.32, 26.194, 0.422)
pt3dadd(69.489, 161.416, 26.209, 0.446)
pt3dadd(69.42, 161.512, 26.225, 0.47)
pt3dadd(69.35, 161.608, 26.241, 0.492)
pt3dadd(69.28, 161.702, 26.256, 0.516)
pt3dadd(69.21, 161.798, 26.272, 0.54)
pt3dadd(69.138, 161.893, 26.286, 0.568)
pt3dadd(69.061, 161.984, 26.296, 0.6)
pt3dadd(68.984, 162.076, 26.306, 0.634)
pt3dadd(68.907, 162.167, 26.316, 0.668)
pt3dadd(68.831, 162.258, 26.326, 0.7)
pt3dadd(68.754, 162.349, 26.336, 0.734)
pt3dadd(68.677, 162.442, 26.347, 0.768)
pt3dadd(68.6, 162.533, 26.357, 0.8)
pt3dadd(68.523, 162.624, 26.367, 0.834)
pt3dadd(68.446, 162.715, 26.377, 0.868)
pt3dadd(68.371, 162.803, 26.399, 0.882)
pt3dadd(68.3, 162.883, 26.443, 0.864)
pt3dadd(68.229, 162.965, 26.487, 0.844)
pt3dadd(68.157, 163.045, 26.531, 0.824)
pt3dadd(68.086, 163.127, 26.574, 0.806)
pt3dadd(68.015, 163.207, 26.618, 0.786)
pt3dadd(67.944, 163.289, 26.662, 0.766)
pt3dadd(67.872, 163.369, 26.706, 0.748)
pt3dadd(67.801, 163.451, 26.75, 0.728)
pt3dadd(67.73, 163.531, 26.793, 0.708)
pt3dadd(67.657, 163.615, 26.831, 0.696)
pt3dadd(67.583, 163.704, 26.858, 0.694)
pt3dadd(67.508, 163.792, 26.885, 0.692)
pt3dadd(67.433, 163.88, 26.912, 0.69)
pt3dadd(67.359, 163.968, 26.939, 0.688)
pt3dadd(67.284, 164.057, 26.966, 0.686)
pt3dadd(67.209, 164.144, 26.993, 0.686)
pt3dadd(67.134, 164.232, 27.02, 0.682)
pt3dadd(67.06, 164.321, 27.046, 0.682)
pt3dadd(66.985, 164.408, 27.073, 0.68)
pt3dadd(66.916, 164.502, 27.096, 0.672)
pt3dadd(66.854, 164.603, 27.112, 0.658)
pt3dadd(66.792, 164.705, 27.128, 0.644)
pt3dadd(66.73, 164.806, 27.144, 0.63)
pt3dadd(66.668, 164.906, 27.16, 0.616)
pt3dadd(66.606, 165.007, 27.176, 0.602)
pt3dadd(66.544, 165.108, 27.192, 0.588)
pt3dadd(66.482, 165.209, 27.208, 0.572)
pt3dadd(66.421, 165.311, 27.224, 0.558)
pt3dadd(66.359, 165.412, 27.24, 0.544)
pt3dadd(66.295, 165.512, 27.252, 0.538)
pt3dadd(66.23, 165.612, 27.258, 0.538)
pt3dadd(66.165, 165.713, 27.265, 0.538)
pt3dadd(66.1, 165.814, 27.272, 0.538)
pt3dadd(66.035, 165.913, 27.279, 0.54)
pt3dadd(65.969, 166.014, 27.286, 0.54)
pt3dadd(65.904, 166.115, 27.293, 0.54)
pt3dadd(65.839, 166.216, 27.3, 0.54)
pt3dadd(65.774, 166.315, 27.307, 0.54)
pt3dadd(65.709, 166.416, 27.313, 0.542)
pt3dadd(65.64, 166.514, 27.318, 0.548)
pt3dadd(65.567, 166.609, 27.321, 0.562)
pt3dadd(65.495, 166.705, 27.324, 0.576)
pt3dadd(65.422, 166.8, 27.327, 0.59)
pt3dadd(65.349, 166.896, 27.33, 0.602)
pt3dadd(65.277, 166.991, 27.333, 0.616)
pt3dadd(65.204, 167.087, 27.336, 0.63)
pt3dadd(65.131, 167.182, 27.338, 0.644)
pt3dadd(65.059, 167.278, 27.341, 0.658)
pt3dadd(64.986, 167.374, 27.344, 0.672)
pt3dadd(64.911, 167.466, 27.348, 0.678)
pt3dadd(64.832, 167.556, 27.354, 0.678)
pt3dadd(64.753, 167.646, 27.36, 0.678)
pt3dadd(64.674, 167.736, 27.366, 0.678)
pt3dadd(64.595, 167.827, 27.371, 0.678)
pt3dadd(64.516, 167.917, 27.377, 0.678)
pt3dadd(64.437, 168.007, 27.383, 0.678)
pt3dadd(64.359, 168.097, 27.389, 0.678)
pt3dadd(64.28, 168.187, 27.394, 0.678)
pt3dadd(64.201, 168.277, 27.4, 0.678)
pt3dadd(64.12, 168.366, 27.407, 0.672)
pt3dadd(64.038, 168.452, 27.416, 0.662)
pt3dadd(63.956, 168.54, 27.424, 0.65)
pt3dadd(63.873, 168.626, 27.432, 0.64)
pt3dadd(63.791, 168.713, 27.441, 0.63)
pt3dadd(63.708, 168.799, 27.449, 0.618)
pt3dadd(63.626, 168.886, 27.457, 0.608)
pt3dadd(63.544, 168.973, 27.466, 0.596)
pt3dadd(63.461, 169.06, 27.474, 0.586)
pt3dadd(63.379, 169.146, 27.482, 0.576)
pt3dadd(63.296, 169.231, 27.496, 0.566)
pt3dadd(63.214, 169.316, 27.514, 0.56)
pt3dadd(63.131, 169.4, 27.532, 0.552)
pt3dadd(63.048, 169.484, 27.55, 0.546)
pt3dadd(62.966, 169.568, 27.568, 0.54)
pt3dadd(62.883, 169.654, 27.586, 0.532)
pt3dadd(62.801, 169.738, 27.604, 0.526)
pt3dadd(62.718, 169.822, 27.622, 0.518)
pt3dadd(62.636, 169.907, 27.64, 0.512)
pt3dadd(62.553, 169.991, 27.658, 0.506)
pt3dadd(62.475, 170.072, 27.69, 0.512)
pt3dadd(62.4, 170.152, 27.731, 0.526)
pt3dadd(62.324, 170.231, 27.772, 0.54)
pt3dadd(62.249, 170.31, 27.812, 0.556)
pt3dadd(62.173, 170.39, 27.853, 0.57)
pt3dadd(62.098, 170.47, 27.894, 0.584)
pt3dadd(62.023, 170.549, 27.935, 0.598)
pt3dadd(61.947, 170.629, 27.976, 0.614)
pt3dadd(61.872, 170.708, 28.016, 0.628)
pt3dadd(61.797, 170.788, 28.057, 0.642)
pt3dadd(61.719, 170.872, 28.087, 0.634)
pt3dadd(61.64, 170.957, 28.111, 0.616)
pt3dadd(61.561, 171.042, 28.135, 0.598)
pt3dadd(61.482, 171.128, 28.159, 0.58)
pt3dadd(61.403, 171.214, 28.184, 0.56)
pt3dadd(61.324, 171.299, 28.208, 0.542)
pt3dadd(61.245, 171.385, 28.232, 0.524)
pt3dadd(61.166, 171.47, 28.256, 0.506)
pt3dadd(61.087, 171.556, 28.28, 0.488)
pt3dadd(61.008, 171.642, 28.305, 0.468)
pt3dadd(60.931, 171.731, 28.32, 0.452)
pt3dadd(60.853, 171.821, 28.332, 0.434)
pt3dadd(60.776, 171.912, 28.344, 0.418)
pt3dadd(60.698, 172.002, 28.355, 0.4)
pt3dadd(60.621, 172.093, 28.367, 0.384)
pt3dadd(60.543, 172.183, 28.378, 0.368)
pt3dadd(60.466, 172.274, 28.39, 0.35)
pt3dadd(60.389, 172.364, 28.402, 0.334)
pt3dadd(60.311, 172.456, 28.413, 0.316)
pt3dadd(60.234, 172.547, 28.425, 0.3)
pt3dadd(60.129, 172.579, 28.436, 0.34)
pt3dadd(60.009, 172.584, 28.447, 0.41)
pt3dadd(59.89, 172.588, 28.458, 0.478)
pt3dadd(59.771, 172.592, 28.469, 0.548)
pt3dadd(59.652, 172.596, 28.479, 0.616)
pt3dadd(59.536, 172.608, 28.493, 0.678)
pt3dadd(59.447, 172.675, 28.53, 0.678)
pt3dadd(59.365, 172.74, 28.573, 0.678)
pt3dadd(59.264, 172.801, 28.589, 0.678)
pt3dadd(59.172, 172.874, 28.6, 0.678)
pt3dadd(59.097, 172.968, 28.6, 0.678)
pt3dadd(59.022, 173.062, 28.6, 0.678)
pt3dadd(58.93, 173.134, 28.6, 0.678)
pt3dadd(58.821, 173.184, 28.6, 0.678)
pt3dadd(58.713, 173.234, 28.6, 0.678)
pt3dadd(58.604, 173.285, 28.6, 0.678)
pt3dadd(58.495, 173.335, 28.6, 0.678)
pt3dadd(58.391, 173.394, 28.6, 0.678)
pt3dadd(58.303, 173.476, 28.6, 0.678)
pt3dadd(58.212, 173.552, 28.6, 0.678)
pt3dadd(58.102, 173.599, 28.6, 0.678)
pt3dadd(57.991, 173.646, 28.6, 0.678)
pt3dadd(57.922, 173.74, 28.6, 0.678)
pt3dadd(57.861, 173.844, 28.6, 0.678)
pt3dadd(57.819, 173.954, 28.6, 0.678)
pt3dadd(57.786, 174.07, 28.6, 0.678)
pt3dadd(57.736, 174.172, 28.6, 0.678)
pt3dadd(57.629, 174.226, 28.6, 0.678)
pt3dadd(57.521, 174.28, 28.6, 0.678)
pt3dadd(57.414, 174.332, 28.6, 0.678)
pt3dadd(57.301, 174.367, 28.6, 0.678)
pt3dadd(57.182, 174.382, 28.6, 0.678)
pt3dadd(57.063, 174.397, 28.6, 0.678)
pt3dadd(56.984, 174.479, 28.6, 0.678)
pt3dadd(56.914, 174.576, 28.6, 0.678)
pt3dadd(56.844, 174.674, 28.6, 0.678)
pt3dadd(56.803, 174.786, 28.6, 0.678)
pt3dadd(56.763, 174.9, 28.6, 0.678)
pt3dadd(56.681, 174.972, 28.6, 0.678)
pt3dadd(56.569, 175.015, 28.6, 0.678)
pt3dadd(56.457, 175.058, 28.6, 0.678)
pt3dadd(56.344, 175.097, 28.6, 0.678)
pt3dadd(56.228, 175.129, 28.6, 0.678)
pt3dadd(56.113, 175.163, 28.6, 0.678)
pt3dadd(56, 175.202, 28.6, 0.678)
pt3dadd(55.896, 175.261, 28.6, 0.678)
pt3dadd(55.792, 175.321, 28.6, 0.678)
pt3dadd(55.688, 175.381, 28.6, 0.678)
pt3dadd(55.584, 175.441, 28.6, 0.678)
pt3dadd(55.483, 175.505, 28.602, 0.678)
pt3dadd(55.407, 175.596, 28.617, 0.678)
pt3dadd(55.331, 175.686, 28.631, 0.678)
pt3dadd(55.255, 175.777, 28.646, 0.678)
pt3dadd(55.179, 175.868, 28.661, 0.678)
pt3dadd(55.11, 175.966, 28.671, 0.678)
pt3dadd(55.047, 176.068, 28.677, 0.678)
pt3dadd(54.984, 176.17, 28.684, 0.678)
pt3dadd(54.92, 176.27, 28.691, 0.678)
pt3dadd(54.857, 176.372, 28.698, 0.678)
pt3dadd(54.796, 176.476, 28.7, 0.678)
pt3dadd(54.735, 176.579, 28.7, 0.678)
pt3dadd(54.644, 176.641, 28.7, 0.678)
pt3dadd(54.527, 176.668, 28.7, 0.678)
pt3dadd(54.412, 176.696, 28.702, 0.678)
pt3dadd(54.384, 176.794, 28.754, 0.678)
pt3dadd(54.357, 176.892, 28.807, 0.678)
pt3dadd(54.329, 176.99, 28.859, 0.678)
pt3dadd(54.28, 177.07, 28.9, 0.678)
pt3dadd(54.161, 177.082, 28.9, 0.678)
pt3dadd(54.042, 177.092, 28.9, 0.678)
}
}
proc shape3d_14() {
dend_7[6] { pt3dadd(53.922, 177.104, 28.9, 0.678)
pt3dadd(53.803, 177.116, 28.9, 0.678)
pt3dadd(53.684, 177.133, 28.9, 0.678)
pt3dadd(53.566, 177.154, 28.9, 0.678)
pt3dadd(53.452, 177.179, 28.9, 0.678)
pt3dadd(53.424, 177.295, 28.9, 0.678)
pt3dadd(53.396, 177.412, 28.9, 0.678)
pt3dadd(53.368, 177.528, 28.9, 0.678)
pt3dadd(53.292, 177.614, 28.9, 0.678)
pt3dadd(53.198, 177.69, 28.9, 0.678)
pt3dadd(53.096, 177.751, 28.9, 0.678)
pt3dadd(52.993, 177.814, 28.9, 0.678)
pt3dadd(52.891, 177.876, 28.9, 0.678)
pt3dadd(52.789, 177.94, 28.9, 0.678)
pt3dadd(52.687, 178.002, 28.9, 0.678)
pt3dadd(52.584, 178.064, 28.9, 0.678)
pt3dadd(52.501, 178.15, 28.9, 0.678)
pt3dadd(52.423, 178.241, 28.9, 0.678)
pt3dadd(52.345, 178.332, 28.9, 0.678)
pt3dadd(52.267, 178.423, 28.9, 0.678)
pt3dadd(52.189, 178.514, 28.9, 0.678)
pt3dadd(52.108, 178.603, 28.9, 0.678)
pt3dadd(52.027, 178.691, 28.9, 0.678)
pt3dadd(51.973, 178.796, 28.9, 0.678)
pt3dadd(51.934, 178.909, 28.9, 0.678)
pt3dadd(51.871, 178.999, 28.9, 0.678)
pt3dadd(51.758, 179.039, 28.9, 0.678)
pt3dadd(51.644, 179.078, 28.9, 0.678)
pt3dadd(51.54, 179.12, 28.867, 0.678)
pt3dadd(51.436, 179.164, 28.831, 0.678)
pt3dadd(51.354, 179.232, 28.786, 0.678)
pt3dadd(51.272, 179.3, 28.74, 0.678)
pt3dadd(51.192, 179.37, 28.694, 0.678)
pt3dadd(51.123, 179.446, 28.643, 0.678)
pt3dadd(51.055, 179.532, 28.61, 0.678)
pt3dadd(50.988, 179.632, 28.606, 0.678)
pt3dadd(50.922, 179.731, 28.602, 0.678)
pt3dadd(50.891, 179.843, 28.6, 0.678)
pt3dadd(50.886, 179.962, 28.6, 0.678)
pt3dadd(50.881, 180.082, 28.6, 0.678)
pt3dadd(50.854, 180.198, 28.6, 0.678)
pt3dadd(50.816, 180.312, 28.6, 0.678)
pt3dadd(50.778, 180.426, 28.6, 0.678)
pt3dadd(50.705, 180.508, 28.591, 0.678)
pt3dadd(50.599, 180.56, 28.575, 0.678)
pt3dadd(50.495, 180.596, 28.541, 0.678)
pt3dadd(50.379, 180.6, 28.526, 0.678)
pt3dadd(50.259, 180.6, 28.517, 0.678)
pt3dadd(50.15, 180.619, 28.524, 0.678)
pt3dadd(50.067, 180.688, 28.568, 0.678)
pt3dadd(49.977, 180.758, 28.583, 0.678)
pt3dadd(49.883, 180.83, 28.57, 0.678)
pt3dadd(49.83, 180.928, 28.544, 0.678)
pt3dadd(49.797, 181.036, 28.51, 0.678)
pt3dadd(49.754, 181.145, 28.495, 0.678)
pt3dadd(49.708, 181.249, 28.474, 0.678)
pt3dadd(49.681, 181.304, 28.394, 0.678)
pt3dadd(49.677, 181.338, 28.298, 0.678)
pt3dadd(49.642, 181.397, 28.224, 0.678)
pt3dadd(49.578, 181.483, 28.26, 0.678)
pt3dadd(49.56, 181.584, 28.31, 0.678)
pt3dadd(49.56, 181.692, 28.355, 0.678)
pt3dadd(49.56, 181.805, 28.387, 0.678)
pt3dadd(49.56, 181.92, 28.414, 0.678)
pt3dadd(49.56, 182.029, 28.452, 0.678)
pt3dadd(49.548, 182.094, 28.532, 0.678)
pt3dadd(49.529, 182.138, 28.624, 0.678)
pt3dadd(49.472, 182.171, 28.7, 0.678)
pt3dadd(49.382, 182.191, 28.764, 0.678)
pt3dadd(49.299, 182.254, 28.794, 0.678)
pt3dadd(49.226, 182.348, 28.8, 0.678)
pt3dadd(49.173, 182.455, 28.8, 0.678)
pt3dadd(49.102, 182.551, 28.799, 0.678)
pt3dadd(49.016, 182.628, 28.773, 0.678)
pt3dadd(48.948, 182.7, 28.719, 0.678)
pt3dadd(48.9, 182.784, 28.66, 0.678)
pt3dadd(48.851, 182.868, 28.601, 0.678)
pt3dadd(48.803, 182.952, 28.542, 0.678)
pt3dadd(48.754, 183.038, 28.487, 0.678)
pt3dadd(48.703, 183.144, 28.468, 0.678)
pt3dadd(48.651, 183.25, 28.449, 0.678)
pt3dadd(48.6, 183.355, 28.43, 0.678)
pt3dadd(48.548, 183.462, 28.41, 0.678)
pt3dadd(48.499, 183.569, 28.39, 0.678)
pt3dadd(48.454, 183.677, 28.369, 0.678)
pt3dadd(48.409, 183.785, 28.348, 0.678)
pt3dadd(48.363, 183.893, 28.327, 0.678)
pt3dadd(48.318, 184.001, 28.305, 0.678)
pt3dadd(48.247, 184.096, 28.298, 0.678)
pt3dadd(48.167, 184.186, 28.296, 0.678)
pt3dadd(48.088, 184.276, 28.294, 0.678)
pt3dadd(48.009, 184.366, 28.291, 0.678)
pt3dadd(47.93, 184.456, 28.289, 0.678)
pt3dadd(47.883, 184.555, 28.253, 0.678)
pt3dadd(47.84, 184.654, 28.211, 0.678)
}
dend_7[7] {pt3dclear()
pt3dadd(86.978, 140.339, 23.752, 0.226)
pt3dadd(87.018, 140.452, 23.753, 0.24)
pt3dadd(87.058, 140.566, 23.754, 0.256)
pt3dadd(87.098, 140.678, 23.754, 0.27)
pt3dadd(87.138, 140.791, 23.755, 0.284)
pt3dadd(87.178, 140.905, 23.756, 0.298)
pt3dadd(87.217, 141.018, 23.757, 0.314)
pt3dadd(87.257, 141.131, 23.757, 0.328)
pt3dadd(87.297, 141.245, 23.758, 0.342)
pt3dadd(87.337, 141.358, 23.759, 0.356)
pt3dadd(87.376, 141.472, 23.759, 0.372)
pt3dadd(87.416, 141.584, 23.76, 0.386)
pt3dadd(87.456, 141.697, 23.761, 0.4)
pt3dadd(87.495, 141.811, 23.761, 0.416)
pt3dadd(87.501, 141.92, 23.796, 0.42)
pt3dadd(87.501, 142.03, 23.837, 0.424)
pt3dadd(87.501, 142.14, 23.878, 0.428)
pt3dadd(87.501, 142.249, 23.919, 0.432)
pt3dadd(87.501, 142.358, 23.96, 0.434)
pt3dadd(87.501, 142.468, 24.001, 0.438)
pt3dadd(87.501, 142.577, 24.042, 0.442)
pt3dadd(87.501, 142.687, 24.083, 0.446)
pt3dadd(87.501, 142.796, 24.124, 0.45)
pt3dadd(87.497, 142.904, 24.167, 0.454)
pt3dadd(87.483, 143.01, 24.213, 0.458)
pt3dadd(87.469, 143.116, 24.26, 0.462)
pt3dadd(87.456, 143.221, 24.306, 0.468)
pt3dadd(87.442, 143.326, 24.353, 0.472)
pt3dadd(87.428, 143.431, 24.399, 0.478)
pt3dadd(87.414, 143.537, 24.446, 0.482)
pt3dadd(87.4, 143.642, 24.493, 0.488)
pt3dadd(87.387, 143.747, 24.539, 0.492)
pt3dadd(87.373, 143.852, 24.586, 0.496)
pt3dadd(87.357, 143.96, 24.626, 0.506)
pt3dadd(87.336, 144.073, 24.654, 0.526)
pt3dadd(87.315, 144.187, 24.682, 0.548)
pt3dadd(87.294, 144.3, 24.71, 0.568)
pt3dadd(87.273, 144.413, 24.738, 0.588)
pt3dadd(87.251, 144.527, 24.766, 0.608)
pt3dadd(87.23, 144.64, 24.795, 0.628)
pt3dadd(87.209, 144.752, 24.823, 0.648)
pt3dadd(87.188, 144.866, 24.851, 0.668)
pt3dadd(87.167, 144.979, 24.879, 0.688)
pt3dadd(87.136, 145.091, 24.903, 0.708)
pt3dadd(87.089, 145.2, 24.92, 0.726)
pt3dadd(87.042, 145.308, 24.937, 0.742)
pt3dadd(86.995, 145.416, 24.954, 0.76)
pt3dadd(86.948, 145.525, 24.971, 0.778)
pt3dadd(86.901, 145.633, 24.988, 0.796)
pt3dadd(86.854, 145.742, 25.005, 0.812)
pt3dadd(86.807, 145.85, 25.022, 0.83)
pt3dadd(86.76, 145.958, 25.039, 0.848)
pt3dadd(86.713, 146.068, 25.056, 0.866)
pt3dadd(86.669, 146.177, 25.071, 0.866)
pt3dadd(86.631, 146.29, 25.085, 0.838)
pt3dadd(86.592, 146.402, 25.098, 0.81)
pt3dadd(86.553, 146.515, 25.111, 0.782)
pt3dadd(86.515, 146.628, 25.124, 0.754)
pt3dadd(86.476, 146.74, 25.137, 0.726)
pt3dadd(86.438, 146.852, 25.15, 0.698)
pt3dadd(86.399, 146.965, 25.163, 0.67)
pt3dadd(86.361, 147.078, 25.177, 0.642)
pt3dadd(86.322, 147.19, 25.19, 0.614)
pt3dadd(86.286, 147.302, 25.209, 0.604)
pt3dadd(86.256, 147.413, 25.237, 0.62)
pt3dadd(86.225, 147.523, 25.265, 0.638)
pt3dadd(86.194, 147.635, 25.294, 0.654)
pt3dadd(86.163, 147.745, 25.322, 0.672)
pt3dadd(86.133, 147.857, 25.351, 0.688)
pt3dadd(86.102, 147.967, 25.379, 0.706)
pt3dadd(86.071, 148.078, 25.408, 0.722)
pt3dadd(86.04, 148.189, 25.436, 0.74)
pt3dadd(86.01, 148.3, 25.465, 0.756)
pt3dadd(85.978, 148.409, 25.497, 0.774)
pt3dadd(85.945, 148.516, 25.532, 0.796)
pt3dadd(85.913, 148.624, 25.568, 0.818)
pt3dadd(85.88, 148.73, 25.604, 0.84)
pt3dadd(85.848, 148.838, 25.639, 0.86)
pt3dadd(85.815, 148.945, 25.675, 0.882)
pt3dadd(85.783, 149.053, 25.71, 0.904)
pt3dadd(85.75, 149.16, 25.746, 0.924)
pt3dadd(85.718, 149.267, 25.782, 0.946)
pt3dadd(85.685, 149.375, 25.817, 0.968)
pt3dadd(85.646, 149.48, 25.849, 0.952)
pt3dadd(85.599, 149.586, 25.877, 0.902)
pt3dadd(85.553, 149.692, 25.906, 0.85)
pt3dadd(85.507, 149.797, 25.934, 0.798)
pt3dadd(85.46, 149.903, 25.962, 0.748)
pt3dadd(85.414, 150.008, 25.99, 0.696)
pt3dadd(85.368, 150.113, 26.019, 0.646)
pt3dadd(85.321, 150.218, 26.047, 0.594)
pt3dadd(85.275, 150.324, 26.075, 0.544)
pt3dadd(85.229, 150.43, 26.103, 0.492)
pt3dadd(85.187, 150.538, 26.128, 0.484)
pt3dadd(85.149, 150.648, 26.15, 0.518)
pt3dadd(85.111, 150.758, 26.172, 0.55)
pt3dadd(85.073, 150.87, 26.194, 0.584)
pt3dadd(85.035, 150.98, 26.216, 0.618)
pt3dadd(84.997, 151.091, 26.238, 0.652)
pt3dadd(84.959, 151.202, 26.26, 0.684)
pt3dadd(84.921, 151.313, 26.282, 0.718)
pt3dadd(84.883, 151.423, 26.304, 0.752)
pt3dadd(84.845, 151.535, 26.326, 0.784)
pt3dadd(84.811, 151.644, 26.354, 0.806)
pt3dadd(84.779, 151.752, 26.387, 0.816)
}
}
proc shape3d_15() {
dend_7[7] { pt3dadd(84.747, 151.861, 26.42, 0.828)
pt3dadd(84.715, 151.97, 26.454, 0.838)
pt3dadd(84.684, 152.078, 26.487, 0.848)
pt3dadd(84.652, 152.188, 26.52, 0.858)
pt3dadd(84.62, 152.296, 26.553, 0.868)
pt3dadd(84.588, 152.405, 26.587, 0.878)
pt3dadd(84.556, 152.513, 26.62, 0.888)
pt3dadd(84.525, 152.622, 26.653, 0.9)
pt3dadd(84.488, 152.729, 26.686, 0.904)
pt3dadd(84.449, 152.836, 26.718, 0.904)
pt3dadd(84.409, 152.941, 26.75, 0.904)
pt3dadd(84.369, 153.048, 26.783, 0.904)
pt3dadd(84.329, 153.155, 26.815, 0.904)
pt3dadd(84.29, 153.26, 26.847, 0.904)
pt3dadd(84.25, 153.367, 26.88, 0.904)
pt3dadd(84.21, 153.474, 26.912, 0.904)
pt3dadd(84.17, 153.58, 26.945, 0.904)
pt3dadd(84.131, 153.686, 26.977, 0.904)
pt3dadd(84.083, 153.791, 27.004, 0.902)
pt3dadd(84.03, 153.895, 27.028, 0.9)
pt3dadd(83.977, 153.998, 27.052, 0.898)
pt3dadd(83.924, 154.103, 27.075, 0.896)
pt3dadd(83.872, 154.207, 27.099, 0.894)
pt3dadd(83.819, 154.31, 27.123, 0.892)
pt3dadd(83.766, 154.415, 27.147, 0.89)
pt3dadd(83.713, 154.518, 27.171, 0.888)
pt3dadd(83.66, 154.622, 27.194, 0.886)
pt3dadd(83.608, 154.726, 27.218, 0.882)
pt3dadd(83.557, 154.832, 27.238, 0.87)
pt3dadd(83.508, 154.939, 27.256, 0.852)
pt3dadd(83.459, 155.047, 27.274, 0.832)
pt3dadd(83.41, 155.154, 27.292, 0.814)
pt3dadd(83.361, 155.262, 27.309, 0.794)
pt3dadd(83.312, 155.369, 27.327, 0.776)
pt3dadd(83.263, 155.477, 27.345, 0.756)
pt3dadd(83.214, 155.584, 27.363, 0.738)
pt3dadd(83.164, 155.692, 27.38, 0.72)
pt3dadd(83.115, 155.798, 27.398, 0.7)
pt3dadd(83.054, 155.899, 27.412, 0.682)
pt3dadd(82.984, 155.996, 27.423, 0.664)
pt3dadd(82.914, 156.094, 27.435, 0.646)
pt3dadd(82.845, 156.19, 27.446, 0.628)
pt3dadd(82.775, 156.287, 27.458, 0.61)
pt3dadd(82.706, 156.384, 27.469, 0.592)
pt3dadd(82.636, 156.48, 27.481, 0.572)
pt3dadd(82.566, 156.577, 27.492, 0.554)
pt3dadd(82.497, 156.674, 27.503, 0.536)
pt3dadd(82.427, 156.77, 27.515, 0.518)
pt3dadd(82.356, 156.86, 27.542, 0.518)
pt3dadd(82.283, 156.944, 27.579, 0.528)
pt3dadd(82.21, 157.03, 27.616, 0.538)
pt3dadd(82.138, 157.114, 27.653, 0.548)
pt3dadd(82.065, 157.199, 27.689, 0.558)
pt3dadd(81.993, 157.284, 27.726, 0.568)
pt3dadd(81.92, 157.368, 27.763, 0.578)
pt3dadd(81.847, 157.453, 27.8, 0.588)
pt3dadd(81.775, 157.537, 27.837, 0.596)
pt3dadd(81.702, 157.622, 27.873, 0.606)
pt3dadd(81.62, 157.7, 27.906, 0.592)
pt3dadd(81.535, 157.776, 27.938, 0.572)
pt3dadd(81.451, 157.853, 27.97, 0.552)
pt3dadd(81.366, 157.928, 28.002, 0.532)
pt3dadd(81.282, 158.005, 28.033, 0.512)
pt3dadd(81.197, 158.081, 28.065, 0.492)
pt3dadd(81.113, 158.158, 28.097, 0.472)
pt3dadd(81.028, 158.233, 28.129, 0.452)
pt3dadd(80.944, 158.31, 28.161, 0.432)
pt3dadd(80.859, 158.386, 28.192, 0.412)
pt3dadd(80.763, 158.453, 28.211, 0.394)
pt3dadd(80.664, 158.519, 28.229, 0.374)
pt3dadd(80.567, 158.585, 28.247, 0.356)
pt3dadd(80.469, 158.651, 28.264, 0.338)
pt3dadd(80.371, 158.717, 28.281, 0.318)
pt3dadd(80.273, 158.783, 28.299, 0.3)
pt3dadd(80.175, 158.849, 28.317, 0.282)
pt3dadd(80.077, 158.915, 28.334, 0.264)
pt3dadd(79.979, 158.981, 28.352, 0.244)
pt3dadd(79.881, 159.047, 28.369, 0.226)
pt3dadd(79.778, 159.109, 28.377, 0.226)
pt3dadd(79.676, 159.17, 28.384, 0.226)
pt3dadd(79.574, 159.233, 28.392, 0.226)
pt3dadd(79.471, 159.294, 28.399, 0.226)
pt3dadd(79.369, 159.356, 28.406, 0.226)
pt3dadd(79.266, 159.418, 28.414, 0.226)
pt3dadd(79.164, 159.48, 28.421, 0.226)
pt3dadd(79.061, 159.542, 28.429, 0.226)
pt3dadd(78.959, 159.604, 28.436, 0.226)
pt3dadd(78.857, 159.666, 28.443, 0.226)
pt3dadd(78.76, 159.737, 28.443, 0.226)
pt3dadd(78.664, 159.809, 28.443, 0.226)
pt3dadd(78.567, 159.88, 28.443, 0.226)
pt3dadd(78.471, 159.952, 28.443, 0.226)
pt3dadd(78.374, 160.022, 28.443, 0.226)
pt3dadd(78.278, 160.093, 28.443, 0.226)
pt3dadd(78.181, 160.165, 28.443, 0.226)
pt3dadd(78.084, 160.236, 28.443, 0.226)
pt3dadd(77.988, 160.308, 28.443, 0.226)
pt3dadd(77.892, 160.379, 28.443, 0.226)
pt3dadd(77.8, 160.457, 28.444, 0.226)
pt3dadd(77.708, 160.534, 28.444, 0.226)
pt3dadd(77.616, 160.612, 28.444, 0.226)
pt3dadd(77.525, 160.688, 28.444, 0.226)
pt3dadd(77.433, 160.766, 28.444, 0.226)
pt3dadd(77.341, 160.843, 28.444, 0.226)
pt3dadd(77.25, 160.921, 28.444, 0.226)
pt3dadd(77.158, 160.998, 28.444, 0.226)
pt3dadd(77.066, 161.076, 28.444, 0.226)
pt3dadd(76.975, 161.153, 28.444, 0.226)
pt3dadd(76.885, 161.232, 28.444, 0.226)
pt3dadd(76.795, 161.312, 28.444, 0.226)
pt3dadd(76.705, 161.392, 28.444, 0.226)
pt3dadd(76.615, 161.471, 28.444, 0.226)
pt3dadd(76.525, 161.55, 28.444, 0.226)
pt3dadd(76.435, 161.629, 28.444, 0.226)
pt3dadd(76.345, 161.71, 28.444, 0.226)
pt3dadd(76.255, 161.789, 28.444, 0.226)
pt3dadd(76.165, 161.868, 28.444, 0.226)
pt3dadd(76.075, 161.947, 28.444, 0.226)
pt3dadd(75.987, 162.029, 28.445, 0.226)
pt3dadd(75.899, 162.11, 28.445, 0.226)
pt3dadd(75.811, 162.192, 28.445, 0.226)
pt3dadd(75.723, 162.274, 28.445, 0.226)
pt3dadd(75.635, 162.355, 28.445, 0.226)
pt3dadd(75.548, 162.437, 28.445, 0.226)
pt3dadd(75.46, 162.518, 28.445, 0.226)
pt3dadd(75.372, 162.601, 28.445, 0.226)
pt3dadd(75.284, 162.683, 28.445, 0.226)
pt3dadd(75.196, 162.764, 28.445, 0.226)
pt3dadd(75.106, 162.844, 28.446, 0.226)
pt3dadd(75.017, 162.924, 28.446, 0.226)
pt3dadd(74.927, 163.004, 28.446, 0.226)
pt3dadd(74.838, 163.084, 28.446, 0.226)
pt3dadd(74.748, 163.164, 28.446, 0.226)
pt3dadd(74.659, 163.244, 28.447, 0.226)
pt3dadd(74.57, 163.324, 28.447, 0.226)
pt3dadd(74.48, 163.404, 28.447, 0.226)
pt3dadd(74.391, 163.484, 28.447, 0.226)
pt3dadd(74.301, 163.564, 28.447, 0.226)
pt3dadd(74.209, 163.64, 28.448, 0.232)
pt3dadd(74.116, 163.716, 28.448, 0.238)
pt3dadd(74.024, 163.793, 28.448, 0.244)
pt3dadd(73.931, 163.87, 28.448, 0.25)
pt3dadd(73.839, 163.945, 28.449, 0.256)
pt3dadd(73.746, 164.022, 28.449, 0.262)
pt3dadd(73.653, 164.099, 28.449, 0.268)
pt3dadd(73.561, 164.174, 28.45, 0.274)
pt3dadd(73.468, 164.251, 28.45, 0.28)
pt3dadd(73.375, 164.327, 28.45, 0.288)
pt3dadd(73.272, 164.388, 28.451, 0.32)
pt3dadd(73.169, 164.45, 28.451, 0.354)
pt3dadd(73.066, 164.512, 28.452, 0.388)
pt3dadd(72.963, 164.573, 28.452, 0.422)
pt3dadd(72.86, 164.634, 28.453, 0.454)
pt3dadd(72.757, 164.695, 28.454, 0.488)
pt3dadd(72.654, 164.758, 28.454, 0.522)
pt3dadd(72.551, 164.819, 28.455, 0.554)
pt3dadd(72.448, 164.88, 28.455, 0.588)
pt3dadd(72.345, 164.942, 28.456, 0.62)
pt3dadd(72.248, 165.012, 28.457, 0.6)
pt3dadd(72.15, 165.083, 28.458, 0.578)
pt3dadd(72.053, 165.152, 28.459, 0.558)
pt3dadd(71.956, 165.223, 28.46, 0.538)
pt3dadd(71.859, 165.293, 28.461, 0.518)
pt3dadd(71.761, 165.364, 28.462, 0.498)
pt3dadd(71.664, 165.434, 28.463, 0.478)
pt3dadd(71.567, 165.504, 28.464, 0.458)
pt3dadd(71.469, 165.575, 28.465, 0.438)
pt3dadd(71.372, 165.644, 28.466, 0.418)
pt3dadd(71.279, 165.72, 28.468, 0.422)
pt3dadd(71.185, 165.794, 28.469, 0.426)
pt3dadd(71.091, 165.87, 28.471, 0.43)
pt3dadd(70.998, 165.944, 28.472, 0.434)
pt3dadd(70.904, 166.02, 28.474, 0.438)
pt3dadd(70.81, 166.094, 28.476, 0.442)
pt3dadd(70.716, 166.17, 28.477, 0.446)
pt3dadd(70.623, 166.244, 28.479, 0.45)
pt3dadd(70.529, 166.319, 28.48, 0.454)
pt3dadd(70.436, 166.394, 28.482, 0.46)
pt3dadd(70.346, 166.474, 28.484, 0.52)
pt3dadd(70.256, 166.554, 28.486, 0.58)
pt3dadd(70.166, 166.633, 28.489, 0.64)
pt3dadd(70.076, 166.712, 28.491, 0.7)
pt3dadd(69.987, 166.793, 28.493, 0.758)
pt3dadd(69.897, 166.872, 28.495, 0.818)
pt3dadd(69.807, 166.951, 28.497, 0.878)
pt3dadd(69.717, 167.03, 28.5, 0.938)
pt3dadd(69.627, 167.111, 28.502, 0.998)
pt3dadd(69.538, 167.19, 28.504, 1.054)
pt3dadd(69.452, 167.274, 28.509, 1.048)
pt3dadd(69.367, 167.358, 28.514, 1.042)
pt3dadd(69.282, 167.442, 28.519, 1.038)
pt3dadd(69.196, 167.526, 28.524, 1.032)
pt3dadd(69.111, 167.61, 28.529, 1.028)
pt3dadd(69.025, 167.695, 28.534, 1.022)
pt3dadd(68.94, 167.779, 28.539, 1.016)
pt3dadd(68.854, 167.863, 28.544, 1.012)
pt3dadd(68.769, 167.947, 28.549, 1.006)
pt3dadd(68.684, 168.031, 28.554, 1)
pt3dadd(68.599, 168.115, 28.561, 0.992)
pt3dadd(68.514, 168.2, 28.567, 0.982)
}
}
proc shape3d_16() {
dend_7[7] { pt3dadd(68.43, 168.286, 28.574, 0.972)
pt3dadd(68.345, 168.37, 28.581, 0.962)
pt3dadd(68.26, 168.455, 28.587, 0.952)
pt3dadd(68.176, 168.539, 28.594, 0.942)
pt3dadd(68.091, 168.624, 28.601, 0.932)
pt3dadd(68.007, 168.708, 28.608, 0.922)
pt3dadd(67.922, 168.793, 28.614, 0.914)
pt3dadd(67.837, 168.878, 28.621, 0.904)
pt3dadd(67.753, 168.962, 28.631, 0.904)
pt3dadd(67.668, 169.046, 28.64, 0.904)
pt3dadd(67.584, 169.132, 28.649, 0.904)
pt3dadd(67.5, 169.216, 28.659, 0.904)
pt3dadd(67.415, 169.301, 28.668, 0.904)
pt3dadd(67.331, 169.385, 28.678, 0.904)
pt3dadd(67.246, 169.469, 28.687, 0.904)
pt3dadd(67.162, 169.554, 28.696, 0.904)
pt3dadd(67.077, 169.638, 28.706, 0.904)
pt3dadd(66.993, 169.722, 28.717, 0.9)
pt3dadd(66.915, 169.8, 28.757, 0.844)
pt3dadd(66.837, 169.878, 28.796, 0.788)
pt3dadd(66.759, 169.956, 28.836, 0.734)
pt3dadd(66.681, 170.034, 28.875, 0.678)
pt3dadd(66.603, 170.112, 28.915, 0.622)
pt3dadd(66.525, 170.19, 28.954, 0.566)
pt3dadd(66.447, 170.268, 28.994, 0.51)
pt3dadd(66.369, 170.346, 29.033, 0.454)
pt3dadd(66.291, 170.424, 29.073, 0.4)
pt3dadd(66.213, 170.502, 29.111, 0.352)
pt3dadd(66.132, 170.584, 29.14, 0.354)
pt3dadd(66.051, 170.664, 29.169, 0.358)
pt3dadd(65.969, 170.746, 29.198, 0.362)
pt3dadd(65.888, 170.827, 29.227, 0.364)
pt3dadd(65.807, 170.908, 29.256, 0.368)
pt3dadd(65.726, 170.989, 29.285, 0.372)
pt3dadd(65.645, 171.071, 29.314, 0.374)
pt3dadd(65.563, 171.151, 29.343, 0.378)
pt3dadd(65.482, 171.233, 29.372, 0.382)
pt3dadd(65.401, 171.314, 29.399, 0.384)
pt3dadd(65.316, 171.398, 29.413, 0.382)
pt3dadd(65.232, 171.482, 29.426, 0.38)
pt3dadd(65.148, 171.566, 29.44, 0.378)
pt3dadd(65.064, 171.65, 29.454, 0.376)
pt3dadd(64.98, 171.734, 29.468, 0.374)
pt3dadd(64.896, 171.818, 29.482, 0.37)
pt3dadd(64.812, 171.902, 29.495, 0.368)
pt3dadd(64.728, 171.986, 29.509, 0.366)
pt3dadd(64.644, 172.07, 29.523, 0.364)
pt3dadd(64.56, 172.156, 29.536, 0.36)
pt3dadd(64.476, 172.24, 29.544, 0.346)
pt3dadd(64.391, 172.325, 29.552, 0.332)
pt3dadd(64.306, 172.409, 29.559, 0.318)
pt3dadd(64.222, 172.494, 29.567, 0.306)
pt3dadd(64.137, 172.578, 29.575, 0.292)
pt3dadd(64.053, 172.663, 29.583, 0.278)
pt3dadd(63.968, 172.747, 29.591, 0.264)
pt3dadd(63.884, 172.832, 29.598, 0.25)
pt3dadd(63.799, 172.916, 29.606, 0.238)
pt3dadd(63.711, 172.997, 29.611, 0.232)
pt3dadd(63.609, 173.059, 29.605, 0.258)
pt3dadd(63.507, 173.122, 29.598, 0.286)
pt3dadd(63.405, 173.184, 29.591, 0.314)
pt3dadd(63.303, 173.248, 29.584, 0.342)
pt3dadd(63.201, 173.31, 29.577, 0.368)
pt3dadd(63.099, 173.372, 29.57, 0.396)
pt3dadd(62.997, 173.435, 29.563, 0.424)
pt3dadd(62.895, 173.497, 29.556, 0.452)
pt3dadd(62.792, 173.56, 29.55, 0.478)
pt3dadd(62.69, 173.622, 29.543, 0.506)
pt3dadd(62.588, 173.686, 29.536, 0.534)
pt3dadd(62.486, 173.748, 29.529, 0.562)
pt3dadd(62.384, 173.81, 29.522, 0.588)
pt3dadd(62.282, 173.873, 29.515, 0.616)
pt3dadd(62.18, 173.935, 29.508, 0.644)
pt3dadd(62.078, 173.998, 29.502, 0.672)
pt3dadd(61.995, 174.06, 29.544, 0.678)
pt3dadd(61.919, 174.121, 29.601, 0.678)
pt3dadd(61.844, 174.204, 29.638, 0.678)
pt3dadd(61.765, 174.284, 29.671, 0.678)
pt3dadd(61.675, 174.361, 29.688, 0.678)
pt3dadd(61.603, 174.448, 29.689, 0.678)
pt3dadd(61.569, 174.554, 29.656, 0.678)
pt3dadd(61.524, 174.658, 29.625, 0.678)
pt3dadd(61.455, 174.752, 29.6, 0.678)
pt3dadd(61.387, 174.846, 29.575, 0.678)
pt3dadd(61.332, 174.932, 29.537, 0.678)
pt3dadd(61.326, 174.989, 29.449, 0.678)
pt3dadd(61.32, 175.043, 29.36, 0.678)
pt3dadd(61.315, 175.081, 29.266, 0.678)
pt3dadd(61.295, 175.134, 29.177, 0.678)
pt3dadd(61.266, 175.2, 29.111, 0.678)
pt3dadd(61.207, 175.304, 29.111, 0.678)
pt3dadd(61.149, 175.406, 29.12, 0.678)
pt3dadd(61.098, 175.502, 29.163, 0.678)
pt3dadd(61.046, 175.595, 29.209, 0.678)
pt3dadd(60.993, 175.685, 29.259, 0.678)
pt3dadd(60.906, 175.734, 29.3, 0.678)
pt3dadd(60.796, 175.758, 29.336, 0.678)
pt3dadd(60.687, 175.781, 29.372, 0.678)
pt3dadd(60.576, 175.805, 29.4, 0.678)
pt3dadd(60.457, 175.824, 29.4, 0.678)
pt3dadd(60.339, 175.844, 29.4, 0.678)
pt3dadd(60.247, 175.91, 29.4, 0.678)
pt3dadd(60.173, 176.004, 29.4, 0.678)
pt3dadd(60.098, 176.098, 29.4, 0.678)
pt3dadd(60.001, 176.167, 29.4, 0.678)
pt3dadd(59.898, 176.227, 29.4, 0.678)
pt3dadd(59.81, 176.306, 29.4, 0.678)
pt3dadd(59.754, 176.412, 29.4, 0.678)
pt3dadd(59.7, 176.52, 29.4, 0.678)
pt3dadd(59.646, 176.627, 29.4, 0.678)
pt3dadd(59.593, 176.735, 29.4, 0.678)
pt3dadd(59.539, 176.842, 29.4, 0.678)
pt3dadd(59.491, 176.952, 29.4, 0.678)
pt3dadd(59.447, 177.064, 29.4, 0.678)
pt3dadd(59.402, 177.174, 29.4, 0.678)
pt3dadd(59.358, 177.286, 29.4, 0.678)
pt3dadd(59.313, 177.397, 29.4, 0.678)
pt3dadd(59.263, 177.505, 29.4, 0.678)
pt3dadd(59.197, 177.606, 29.4, 0.678)
pt3dadd(59.131, 177.707, 29.4, 0.678)
pt3dadd(59.065, 177.806, 29.4, 0.678)
pt3dadd(58.999, 177.907, 29.4, 0.678)
pt3dadd(58.931, 178.006, 29.4, 0.678)
pt3dadd(58.856, 178.099, 29.4, 0.678)
pt3dadd(58.781, 178.193, 29.4, 0.678)
pt3dadd(58.706, 178.286, 29.4, 0.678)
pt3dadd(58.632, 178.38, 29.4, 0.678)
pt3dadd(58.563, 178.478, 29.4, 0.678)
pt3dadd(58.519, 178.59, 29.4, 0.678)
pt3dadd(58.474, 178.7, 29.4, 0.678)
pt3dadd(58.43, 178.812, 29.4, 0.678)
pt3dadd(58.385, 178.924, 29.4, 0.678)
pt3dadd(58.341, 179.035, 29.4, 0.678)
pt3dadd(58.293, 179.146, 29.4, 0.678)
pt3dadd(58.246, 179.256, 29.4, 0.678)
pt3dadd(58.198, 179.366, 29.4, 0.678)
pt3dadd(58.151, 179.476, 29.4, 0.678)
pt3dadd(58.103, 179.586, 29.4, 0.678)
pt3dadd(58.048, 179.693, 29.4, 0.678)
pt3dadd(57.985, 179.795, 29.4, 0.678)
pt3dadd(57.922, 179.897, 29.4, 0.678)
pt3dadd(57.859, 179.999, 29.4, 0.678)
pt3dadd(57.796, 180.101, 29.4, 0.678)
pt3dadd(57.753, 180.21, 29.394, 0.678)
pt3dadd(57.736, 180.328, 29.38, 0.678)
pt3dadd(57.719, 180.445, 29.365, 0.678)
pt3dadd(57.693, 180.556, 29.333, 0.678)
pt3dadd(57.667, 180.666, 29.3, 0.678)
pt3dadd(57.569, 180.734, 29.3, 0.678)
pt3dadd(57.47, 180.802, 29.3, 0.678)
pt3dadd(57.367, 180.864, 29.3, 0.678)
pt3dadd(57.264, 180.925, 29.3, 0.678)
pt3dadd(57.155, 180.974, 29.3, 0.678)
pt3dadd(57.046, 181.021, 29.3, 0.678)
pt3dadd(56.971, 181.115, 29.3, 0.678)
pt3dadd(56.896, 181.21, 29.3, 0.678)
pt3dadd(56.821, 181.303, 29.3, 0.678)
pt3dadd(56.746, 181.397, 29.3, 0.678)
pt3dadd(56.669, 181.487, 29.3, 0.678)
pt3dadd(56.571, 181.556, 29.3, 0.678)
pt3dadd(56.472, 181.626, 29.3, 0.678)
pt3dadd(56.374, 181.694, 29.3, 0.678)
pt3dadd(56.276, 181.764, 29.3, 0.678)
pt3dadd(56.179, 181.834, 29.3, 0.678)
pt3dadd(56.093, 181.918, 29.3, 0.678)
pt3dadd(56.007, 182, 29.3, 0.678)
pt3dadd(55.921, 182.084, 29.3, 0.678)
pt3dadd(55.835, 182.168, 29.3, 0.678)
pt3dadd(55.746, 182.249, 29.3, 0.678)
pt3dadd(55.644, 182.311, 29.3, 0.678)
pt3dadd(55.542, 182.375, 29.3, 0.678)
pt3dadd(55.44, 182.437, 29.3, 0.678)
pt3dadd(55.337, 182.5, 29.3, 0.678)
pt3dadd(55.235, 182.563, 29.299, 0.678)
pt3dadd(55.137, 182.629, 29.285, 0.678)
pt3dadd(55.039, 182.696, 29.27, 0.678)
pt3dadd(54.94, 182.762, 29.256, 0.678)
pt3dadd(54.842, 182.83, 29.241, 0.678)
pt3dadd(54.75, 182.904, 29.23, 0.678)
pt3dadd(54.665, 182.988, 29.223, 0.678)
pt3dadd(54.58, 183.073, 29.216, 0.678)
pt3dadd(54.496, 183.157, 29.209, 0.678)
pt3dadd(54.411, 183.242, 29.202, 0.678)
pt3dadd(54.318, 183.318, 29.2, 0.678)
pt3dadd(54.222, 183.39, 29.2, 0.678)
pt3dadd(54.126, 183.462, 29.2, 0.678)
pt3dadd(54.03, 183.534, 29.2, 0.678)
pt3dadd(53.934, 183.606, 29.2, 0.678)
pt3dadd(53.853, 183.694, 29.2, 0.678)
pt3dadd(53.778, 183.787, 29.2, 0.678)
pt3dadd(53.703, 183.881, 29.2, 0.678)
pt3dadd(53.628, 183.974, 29.2, 0.678)
pt3dadd(53.553, 184.068, 29.2, 0.678)
pt3dadd(53.517, 184.18, 29.2, 0.678)
pt3dadd(53.495, 184.297, 29.2, 0.678)
pt3dadd(53.472, 184.416, 29.2, 0.678)
pt3dadd(53.45, 184.534, 29.2, 0.678)
pt3dadd(53.428, 184.651, 29.2, 0.678)
pt3dadd(53.406, 184.769, 29.2, 0.678)
pt3dadd(53.354, 184.876, 29.2, 0.678)
}
}
proc shape3d_17() {
dend_7[7] { pt3dadd(53.291, 184.978, 29.2, 0.678)
pt3dadd(53.228, 185.08, 29.2, 0.678)
pt3dadd(53.165, 185.182, 29.2, 0.678)
pt3dadd(53.102, 185.284, 29.2, 0.678)
pt3dadd(53.067, 185.396, 29.2, 0.678)
pt3dadd(53.046, 185.515, 29.2, 0.678)
pt3dadd(53.024, 185.633, 29.2, 0.678)
pt3dadd(52.977, 185.743, 29.2, 0.678)
pt3dadd(52.931, 185.854, 29.2, 0.678)
pt3dadd(52.863, 185.952, 29.2, 0.678)
pt3dadd(52.788, 186.046, 29.2, 0.678)
pt3dadd(52.689, 186.106, 29.2, 0.678)
pt3dadd(52.575, 186.144, 29.2, 0.678)
pt3dadd(52.481, 186.204, 29.2, 0.678)
pt3dadd(52.436, 186.314, 29.2, 0.678)
pt3dadd(52.391, 186.426, 29.2, 0.678)
pt3dadd(52.346, 186.538, 29.2, 0.678)
pt3dadd(52.32, 186.652, 29.2, 0.678)
pt3dadd(52.32, 186.772, 29.2, 0.678)
pt3dadd(52.32, 186.892, 29.2, 0.678)
pt3dadd(52.32, 187.012, 29.2, 0.678)
pt3dadd(52.302, 187.129, 29.2, 0.678)
pt3dadd(52.26, 187.242, 29.2, 0.678)
pt3dadd(52.219, 187.354, 29.2, 0.678)
pt3dadd(52.177, 187.466, 29.2, 0.678)
pt3dadd(52.135, 187.579, 29.2, 0.678)
pt3dadd(52.094, 187.692, 29.2, 0.678)
pt3dadd(52.048, 187.8, 29.179, 0.678)
pt3dadd(52.003, 187.908, 29.158, 0.678)
pt3dadd(51.957, 188.016, 29.136, 0.678)
pt3dadd(51.912, 188.124, 29.115, 0.678)
pt3dadd(51.868, 188.233, 29.1, 0.678)
pt3dadd(51.83, 188.347, 29.1, 0.678)
pt3dadd(51.791, 188.461, 29.1, 0.678)
pt3dadd(51.753, 188.574, 29.1, 0.678)
pt3dadd(51.714, 188.688, 29.1, 0.678)
pt3dadd(51.675, 188.802, 29.1, 0.678)
pt3dadd(51.618, 188.906, 29.1, 0.678)
pt3dadd(51.555, 189.008, 29.1, 0.678)
pt3dadd(51.492, 189.11, 29.1, 0.678)
pt3dadd(51.429, 189.212, 29.1, 0.678)
pt3dadd(51.366, 189.316, 29.1, 0.678)
pt3dadd(51.275, 189.389, 29.1, 0.678)
pt3dadd(51.172, 189.45, 29.1, 0.678)
pt3dadd(51.066, 189.506, 29.1, 0.678)
pt3dadd(50.959, 189.56, 29.1, 0.678)
pt3dadd(50.868, 189.629, 29.1, 0.678)
pt3dadd(50.821, 189.739, 29.1, 0.678)
pt3dadd(50.775, 189.851, 29.1, 0.678)
pt3dadd(50.764, 189.97, 29.1, 0.678)
pt3dadd(50.754, 190.09, 29.1, 0.678)
pt3dadd(50.739, 190.207, 29.1, 0.678)
pt3dadd(50.695, 190.319, 29.1, 0.678)
pt3dadd(50.662, 190.434, 29.1, 0.678)
pt3dadd(50.635, 190.552, 29.1, 0.678)
pt3dadd(50.607, 190.668, 29.1, 0.678)
pt3dadd(50.58, 190.784, 29.1, 0.678)
pt3dadd(50.553, 190.902, 29.1, 0.678)
pt3dadd(50.525, 191.018, 29.1, 0.678)
pt3dadd(50.52, 191.138, 29.1, 0.678)
pt3dadd(50.52, 191.258, 29.1, 0.678)
pt3dadd(50.52, 191.378, 29.1, 0.678)
pt3dadd(50.52, 191.498, 29.1, 0.678)
pt3dadd(50.52, 191.618, 29.1, 0.678)
pt3dadd(50.52, 191.738, 29.1, 0.678)
pt3dadd(50.52, 191.858, 29.1, 0.678)
pt3dadd(50.52, 191.978, 29.1, 0.678)
pt3dadd(50.52, 192.098, 29.1, 0.678)
pt3dadd(50.52, 192.218, 29.1, 0.678)
pt3dadd(50.52, 192.338, 29.1, 0.678)
pt3dadd(50.52, 192.458, 29.1, 0.678)
pt3dadd(50.52, 192.578, 29.1, 0.678)
pt3dadd(50.52, 192.698, 29.1, 0.678)
pt3dadd(50.504, 192.817, 29.1, 0.678)
pt3dadd(50.484, 192.935, 29.1, 0.678)
pt3dadd(50.464, 193.054, 29.1, 0.678)
pt3dadd(50.445, 193.171, 29.1, 0.678)
pt3dadd(50.425, 193.29, 29.1, 0.678)
pt3dadd(50.405, 193.409, 29.1, 0.678)
pt3dadd(50.4, 193.528, 29.1, 0.678)
pt3dadd(50.4, 193.648, 29.1, 0.678)
pt3dadd(50.4, 193.768, 29.1, 0.678)
pt3dadd(50.4, 193.888, 29.1, 0.678)
pt3dadd(50.4, 194.008, 29.1, 0.678)
pt3dadd(50.4, 194.128, 29.1, 0.678)
pt3dadd(50.4, 194.248, 29.1, 0.678)
pt3dadd(50.382, 194.365, 29.091, 0.678)
pt3dadd(50.357, 194.482, 29.079, 0.678)
pt3dadd(50.332, 194.598, 29.066, 0.678)
pt3dadd(50.307, 194.714, 29.054, 0.678)
pt3dadd(50.283, 194.831, 29.041, 0.678)
pt3dadd(50.251, 194.944, 29.023, 0.678)
pt3dadd(50.207, 195.05, 28.993, 0.678)
pt3dadd(50.163, 195.156, 28.964, 0.678)
pt3dadd(50.119, 195.262, 28.935, 0.678)
pt3dadd(50.075, 195.367, 28.905, 0.678)
pt3dadd(50.02, 195.473, 28.9, 0.678)
pt3dadd(49.963, 195.58, 28.9, 0.678)
pt3dadd(49.907, 195.685, 28.9, 0.678)
pt3dadd(49.85, 195.791, 28.9, 0.678)
pt3dadd(49.793, 195.896, 28.9, 0.678)
pt3dadd(49.753, 196.008, 28.896, 0.678)
pt3dadd(49.721, 196.123, 28.89, 0.678)
pt3dadd(49.689, 196.24, 28.884, 0.678)
pt3dadd(49.657, 196.355, 28.878, 0.678)
pt3dadd(49.625, 196.47, 28.872, 0.678)
pt3dadd(49.595, 196.578, 28.851, 0.678)
pt3dadd(49.574, 196.662, 28.781, 0.678)
pt3dadd(49.56, 196.757, 28.73, 0.678)
pt3dadd(49.56, 196.876, 28.717, 0.678)
pt3dadd(49.56, 196.994, 28.705, 0.678)
pt3dadd(49.557, 197.114, 28.7, 0.678)
pt3dadd(49.553, 197.234, 28.7, 0.678)
pt3dadd(49.548, 197.354, 28.7, 0.678)
pt3dadd(49.481, 197.442, 28.713, 0.678)
pt3dadd(49.391, 197.519, 28.73, 0.678)
pt3dadd(49.328, 197.605, 28.771, 0.678)
pt3dadd(49.296, 197.713, 28.79, 0.678)
pt3dadd(49.278, 197.832, 28.792, 0.678)
pt3dadd(49.261, 197.951, 28.794, 0.678)
pt3dadd(49.243, 198.07, 28.795, 0.678)
pt3dadd(49.225, 198.188, 28.797, 0.678)
pt3dadd(49.208, 198.307, 28.799, 0.678)
pt3dadd(49.18, 198.424, 28.8, 0.678)
pt3dadd(49.144, 198.538, 28.8, 0.678)
pt3dadd(49.109, 198.653, 28.8, 0.678)
pt3dadd(49.073, 198.767, 28.8, 0.678)
pt3dadd(49.037, 198.881, 28.8, 0.678)
pt3dadd(49.001, 198.996, 28.8, 0.678)
pt3dadd(48.994, 199.116, 28.8, 0.678)
pt3dadd(48.988, 199.235, 28.8, 0.678)
pt3dadd(48.982, 199.355, 28.8, 0.678)
pt3dadd(48.976, 199.475, 28.8, 0.678)
pt3dadd(48.97, 199.595, 28.8, 0.678)
pt3dadd(48.964, 199.715, 28.8, 0.678)
pt3dadd(48.951, 199.834, 28.8, 0.678)
pt3dadd(48.921, 199.95, 28.8, 0.678)
pt3dadd(48.891, 200.065, 28.8, 0.678)
pt3dadd(48.861, 200.182, 28.8, 0.678)
pt3dadd(48.831, 200.298, 28.8, 0.678)
pt3dadd(48.801, 200.414, 28.8, 0.678)
pt3dadd(48.754, 200.524, 28.8, 0.678)
pt3dadd(48.694, 200.628, 28.8, 0.678)
pt3dadd(48.634, 200.731, 28.8, 0.678)
pt3dadd(48.575, 200.836, 28.8, 0.678)
pt3dadd(48.515, 200.94, 28.8, 0.678)
pt3dadd(48.472, 201.05, 28.8, 0.678)
pt3dadd(48.452, 201.168, 28.8, 0.678)
pt3dadd(48.432, 201.287, 28.8, 0.678)
pt3dadd(48.413, 201.404, 28.8, 0.678)
pt3dadd(48.393, 201.523, 28.8, 0.678)
pt3dadd(48.373, 201.642, 28.8, 0.678)
pt3dadd(48.354, 201.757, 28.787, 0.678)
pt3dadd(48.338, 201.866, 28.748, 0.678)
pt3dadd(48.322, 201.976, 28.709, 0.678)
pt3dadd(48.305, 202.085, 28.67, 0.678)
pt3dadd(48.289, 202.194, 28.632, 0.678)
pt3dadd(48.273, 202.308, 28.609, 0.678)
pt3dadd(48.257, 202.427, 28.605, 0.678)
pt3dadd(48.242, 202.546, 28.601, 0.678)
pt3dadd(48.24, 202.666, 28.6, 0.678)
pt3dadd(48.24, 202.786, 28.6, 0.678)
pt3dadd(48.24, 202.906, 28.6, 0.678)
pt3dadd(48.253, 203.026, 28.6, 0.678)
pt3dadd(48.268, 203.144, 28.6, 0.678)
pt3dadd(48.292, 203.261, 28.6, 0.678)
pt3dadd(48.352, 203.364, 28.6, 0.678)
pt3dadd(48.413, 203.467, 28.6, 0.678)
}
dend_7[8] {pt3dclear()
pt3dadd(95.752, 118.351, 20.905, 0.904)
pt3dadd(95.765, 118.346, 20.986, 0.936)
pt3dadd(95.781, 118.339, 21.085, 0.976)
pt3dadd(95.797, 118.332, 21.184, 1.016)
pt3dadd(95.812, 118.325, 21.283, 1.056)
pt3dadd(95.828, 118.318, 21.382, 1.096)
pt3dadd(95.844, 118.311, 21.481, 1.136)
pt3dadd(95.859, 118.304, 21.58, 1.174)
pt3dadd(95.875, 118.297, 21.679, 1.214)
pt3dadd(95.891, 118.29, 21.778, 1.254)
pt3dadd(95.907, 118.282, 21.877, 1.294)
pt3dadd(95.922, 118.275, 21.976, 1.334)
pt3dadd(95.945, 118.269, 22.073, 1.366)
pt3dadd(96, 118.266, 22.162, 1.362)
pt3dadd(96.054, 118.262, 22.251, 1.358)
pt3dadd(96.109, 118.259, 22.34, 1.356)
pt3dadd(96.163, 118.256, 22.429, 1.352)
pt3dadd(96.218, 118.252, 22.518, 1.348)
pt3dadd(96.272, 118.249, 22.607, 1.344)
pt3dadd(96.327, 118.245, 22.696, 1.342)
pt3dadd(96.381, 118.242, 22.785, 1.338)
pt3dadd(96.436, 118.239, 22.875, 1.334)
pt3dadd(96.523, 118.24, 22.942, 1.288)
pt3dadd(96.615, 118.241, 23.006, 1.232)
pt3dadd(96.707, 118.242, 23.07, 1.178)
pt3dadd(96.8, 118.244, 23.134, 1.124)
pt3dadd(96.892, 118.245, 23.198, 1.07)
pt3dadd(96.984, 118.246, 23.262, 1.016)
pt3dadd(97.076, 118.248, 23.326, 0.962)
pt3dadd(97.168, 118.249, 23.39, 0.908)
pt3dadd(97.26, 118.25, 23.454, 0.854)
pt3dadd(97.353, 118.251, 23.518, 0.8)
}
}
proc shape3d_18() {
dend_7[8] { pt3dadd(97.446, 118.253, 23.58, 0.782)
pt3dadd(97.541, 118.255, 23.642, 0.772)
pt3dadd(97.635, 118.257, 23.704, 0.76)
pt3dadd(97.729, 118.259, 23.766, 0.748)
pt3dadd(97.823, 118.26, 23.828, 0.736)
pt3dadd(97.917, 118.262, 23.89, 0.726)
pt3dadd(98.011, 118.264, 23.952, 0.714)
pt3dadd(98.105, 118.266, 24.015, 0.702)
pt3dadd(98.199, 118.268, 24.077, 0.69)
pt3dadd(98.293, 118.269, 24.139, 0.68)
pt3dadd(98.395, 118.272, 24.192, 0.702)
pt3dadd(98.497, 118.275, 24.244, 0.73)
pt3dadd(98.6, 118.278, 24.296, 0.756)
pt3dadd(98.702, 118.281, 24.348, 0.784)
pt3dadd(98.805, 118.284, 24.4, 0.81)
pt3dadd(98.907, 118.287, 24.452, 0.838)
pt3dadd(99.01, 118.29, 24.503, 0.866)
pt3dadd(99.112, 118.293, 24.556, 0.892)
pt3dadd(99.215, 118.296, 24.607, 0.92)
pt3dadd(99.317, 118.299, 24.659, 0.946)
pt3dadd(99.428, 118.305, 24.698, 0.986)
pt3dadd(99.539, 118.311, 24.735, 1.028)
pt3dadd(99.65, 118.317, 24.773, 1.068)
pt3dadd(99.761, 118.323, 24.81, 1.11)
pt3dadd(99.872, 118.329, 24.848, 1.15)
pt3dadd(99.983, 118.335, 24.885, 1.192)
pt3dadd(100.094, 118.341, 24.923, 1.232)
pt3dadd(100.205, 118.347, 24.96, 1.274)
pt3dadd(100.316, 118.353, 24.998, 1.314)
pt3dadd(100.427, 118.359, 25.036, 1.354)
pt3dadd(100.541, 118.372, 25.065, 1.346)
pt3dadd(100.656, 118.384, 25.094, 1.334)
pt3dadd(100.77, 118.396, 25.123, 1.322)
pt3dadd(100.884, 118.409, 25.152, 1.312)
pt3dadd(100.998, 118.421, 25.181, 1.3)
pt3dadd(101.112, 118.434, 25.21, 1.29)
pt3dadd(101.226, 118.446, 25.238, 1.278)
pt3dadd(101.341, 118.458, 25.267, 1.268)
pt3dadd(101.455, 118.471, 25.296, 1.256)
pt3dadd(101.569, 118.483, 25.325, 1.244)
pt3dadd(101.674, 118.502, 25.371, 1.166)
pt3dadd(101.779, 118.522, 25.417, 1.086)
pt3dadd(101.884, 118.541, 25.462, 1.008)
pt3dadd(101.989, 118.56, 25.508, 0.928)
pt3dadd(102.094, 118.579, 25.554, 0.848)
pt3dadd(102.199, 118.598, 25.599, 0.77)
pt3dadd(102.304, 118.618, 25.645, 0.69)
pt3dadd(102.409, 118.637, 25.691, 0.61)
pt3dadd(102.514, 118.656, 25.736, 0.532)
pt3dadd(102.619, 118.675, 25.782, 0.452)
}
dend_7[9] {pt3dclear()
pt3dadd(102.619, 118.675, 25.782, 0.452)
pt3dadd(102.622, 118.678, 25.784, 0.45)
pt3dadd(102.702, 118.752, 25.827, 0.43)
pt3dadd(102.782, 118.824, 25.87, 0.41)
pt3dadd(102.862, 118.897, 25.914, 0.392)
pt3dadd(102.942, 118.97, 25.957, 0.372)
pt3dadd(103.022, 119.043, 26, 0.352)
pt3dadd(103.102, 119.116, 26.043, 0.334)
pt3dadd(103.183, 119.189, 26.086, 0.314)
pt3dadd(103.263, 119.261, 26.129, 0.294)
pt3dadd(103.343, 119.334, 26.172, 0.276)
pt3dadd(103.423, 119.407, 26.215, 0.256)
pt3dadd(103.509, 119.474, 26.257, 0.27)
pt3dadd(103.598, 119.538, 26.298, 0.3)
pt3dadd(103.686, 119.602, 26.339, 0.33)
pt3dadd(103.775, 119.667, 26.38, 0.36)
pt3dadd(103.863, 119.731, 26.421, 0.39)
pt3dadd(103.952, 119.795, 26.462, 0.42)
pt3dadd(104.041, 119.86, 26.503, 0.45)
pt3dadd(104.129, 119.924, 26.544, 0.48)
pt3dadd(104.218, 119.988, 26.585, 0.51)
pt3dadd(104.306, 120.053, 26.626, 0.54)
pt3dadd(104.373, 120.127, 26.679, 0.59)
pt3dadd(104.434, 120.205, 26.736, 0.648)
pt3dadd(104.494, 120.283, 26.793, 0.706)
pt3dadd(104.554, 120.361, 26.85, 0.764)
pt3dadd(104.615, 120.439, 26.907, 0.82)
pt3dadd(104.675, 120.517, 26.964, 0.878)
pt3dadd(104.735, 120.595, 27.021, 0.936)
pt3dadd(104.796, 120.673, 27.078, 0.994)
pt3dadd(104.856, 120.751, 27.135, 1.052)
pt3dadd(104.916, 120.829, 27.192, 1.108)
pt3dadd(104.991, 120.886, 27.253, 1.108)
pt3dadd(105.069, 120.937, 27.316, 1.09)
pt3dadd(105.147, 120.988, 27.379, 1.072)
pt3dadd(105.225, 121.038, 27.442, 1.054)
pt3dadd(105.304, 121.088, 27.505, 1.036)
pt3dadd(105.382, 121.14, 27.568, 1.018)
pt3dadd(105.46, 121.19, 27.631, 1)
pt3dadd(105.538, 121.241, 27.694, 0.982)
pt3dadd(105.617, 121.292, 27.757, 0.966)
pt3dadd(105.695, 121.343, 27.82, 0.948)
pt3dadd(105.777, 121.408, 27.868, 0.93)
pt3dadd(105.86, 121.476, 27.913, 0.912)
pt3dadd(105.943, 121.543, 27.958, 0.894)
pt3dadd(106.025, 121.612, 28.002, 0.878)
pt3dadd(106.108, 121.68, 28.047, 0.86)
pt3dadd(106.191, 121.748, 28.092, 0.842)
pt3dadd(106.274, 121.817, 28.137, 0.826)
pt3dadd(106.357, 121.885, 28.182, 0.808)
pt3dadd(106.44, 121.954, 28.226, 0.79)
pt3dadd(106.522, 122.021, 28.271, 0.774)
pt3dadd(106.606, 122.096, 28.305, 0.776)
pt3dadd(106.691, 122.173, 28.336, 0.782)
pt3dadd(106.775, 122.25, 28.368, 0.788)
pt3dadd(106.859, 122.327, 28.399, 0.794)
pt3dadd(106.943, 122.404, 28.431, 0.8)
pt3dadd(107.027, 122.48, 28.463, 0.808)
pt3dadd(107.111, 122.557, 28.494, 0.814)
pt3dadd(107.195, 122.634, 28.526, 0.82)
pt3dadd(107.28, 122.71, 28.558, 0.826)
pt3dadd(107.364, 122.786, 28.589, 0.832)
pt3dadd(107.446, 122.868, 28.616, 0.854)
pt3dadd(107.529, 122.95, 28.642, 0.88)
pt3dadd(107.611, 123.031, 28.668, 0.904)
pt3dadd(107.693, 123.113, 28.694, 0.93)
pt3dadd(107.775, 123.193, 28.721, 0.954)
pt3dadd(107.858, 123.275, 28.747, 0.98)
pt3dadd(107.94, 123.356, 28.773, 1.004)
pt3dadd(108.022, 123.438, 28.799, 1.028)
pt3dadd(108.105, 123.52, 28.825, 1.054)
pt3dadd(108.187, 123.601, 28.852, 1.078)
pt3dadd(108.246, 123.684, 28.904, 1.036)
pt3dadd(108.305, 123.768, 28.956, 0.992)
pt3dadd(108.363, 123.852, 29.009, 0.948)
pt3dadd(108.422, 123.935, 29.061, 0.904)
pt3dadd(108.481, 124.019, 29.114, 0.86)
pt3dadd(108.539, 124.103, 29.167, 0.816)
pt3dadd(108.598, 124.186, 29.219, 0.772)
pt3dadd(108.657, 124.27, 29.272, 0.728)
pt3dadd(108.715, 124.352, 29.324, 0.684)
pt3dadd(108.774, 124.436, 29.377, 0.64)
pt3dadd(108.827, 124.534, 29.416, 0.6)
pt3dadd(108.881, 124.63, 29.455, 0.558)
pt3dadd(108.934, 124.727, 29.494, 0.516)
pt3dadd(108.987, 124.823, 29.533, 0.474)
pt3dadd(109.04, 124.92, 29.573, 0.434)
pt3dadd(109.094, 125.017, 29.612, 0.392)
pt3dadd(109.147, 125.113, 29.651, 0.35)
pt3dadd(109.2, 125.21, 29.69, 0.308)
pt3dadd(109.254, 125.306, 29.729, 0.268)
pt3dadd(109.307, 125.404, 29.768, 0.226)
}
dend_7[10] {pt3dclear()
pt3dadd(109.307, 125.404, 29.768, 0.226)
pt3dadd(109.312, 125.473, 29.802, 0.226)
pt3dadd(109.319, 125.576, 29.852, 0.226)
pt3dadd(109.326, 125.681, 29.902, 0.226)
pt3dadd(109.333, 125.784, 29.952, 0.226)
pt3dadd(109.34, 125.887, 30.002, 0.226)
pt3dadd(109.347, 125.992, 30.053, 0.226)
pt3dadd(109.354, 126.095, 30.103, 0.226)
pt3dadd(109.362, 126.198, 30.153, 0.226)
pt3dadd(109.369, 126.302, 30.203, 0.226)
pt3dadd(109.36, 126.408, 30.245, 0.242)
pt3dadd(109.33, 126.518, 30.277, 0.282)
pt3dadd(109.299, 126.628, 30.308, 0.32)
pt3dadd(109.269, 126.738, 30.339, 0.36)
pt3dadd(109.238, 126.847, 30.371, 0.398)
pt3dadd(109.208, 126.958, 30.402, 0.438)
pt3dadd(109.177, 127.067, 30.433, 0.478)
pt3dadd(109.147, 127.177, 30.465, 0.516)
pt3dadd(109.117, 127.286, 30.496, 0.556)
pt3dadd(109.086, 127.397, 30.527, 0.594)
pt3dadd(109.04, 127.504, 30.549, 0.612)
pt3dadd(108.987, 127.608, 30.567, 0.622)
pt3dadd(108.933, 127.714, 30.585, 0.63)
pt3dadd(108.88, 127.819, 30.603, 0.638)
pt3dadd(108.827, 127.925, 30.62, 0.646)
pt3dadd(108.773, 128.03, 30.638, 0.654)
pt3dadd(108.72, 128.135, 30.656, 0.662)
pt3dadd(108.666, 128.24, 30.674, 0.672)
pt3dadd(108.613, 128.346, 30.692, 0.68)
pt3dadd(108.56, 128.452, 30.709, 0.688)
pt3dadd(108.498, 128.554, 30.722, 0.656)
pt3dadd(108.435, 128.654, 30.732, 0.61)
pt3dadd(108.371, 128.755, 30.742, 0.566)
pt3dadd(108.307, 128.856, 30.752, 0.52)
pt3dadd(108.244, 128.957, 30.763, 0.474)
pt3dadd(108.18, 129.058, 30.773, 0.428)
pt3dadd(108.116, 129.158, 30.783, 0.384)
pt3dadd(108.053, 129.26, 30.793, 0.338)
pt3dadd(107.989, 129.361, 30.804, 0.292)
pt3dadd(107.925, 129.462, 30.814, 0.248)
pt3dadd(107.88, 129.572, 30.819, 0.25)
pt3dadd(107.84, 129.685, 30.822, 0.27)
pt3dadd(107.8, 129.798, 30.825, 0.288)
pt3dadd(107.761, 129.912, 30.828, 0.306)
pt3dadd(107.721, 130.025, 30.831, 0.326)
pt3dadd(107.681, 130.138, 30.833, 0.344)
pt3dadd(107.642, 130.252, 30.836, 0.362)
pt3dadd(107.602, 130.364, 30.839, 0.382)
pt3dadd(107.562, 130.477, 30.842, 0.4)
pt3dadd(107.523, 130.591, 30.845, 0.42)
pt3dadd(107.502, 130.709, 30.852, 0.426)
pt3dadd(107.488, 130.828, 30.859, 0.428)
pt3dadd(107.474, 130.946, 30.866, 0.432)
pt3dadd(107.459, 131.065, 30.873, 0.434)
pt3dadd(107.445, 131.184, 30.881, 0.438)
pt3dadd(107.431, 131.303, 30.888, 0.44)
pt3dadd(107.417, 131.422, 30.895, 0.442)
pt3dadd(107.403, 131.54, 30.902, 0.446)
}
}
proc shape3d_19() {
dend_7[10] { pt3dadd(107.388, 131.659, 30.91, 0.448)
pt3dadd(107.374, 131.778, 30.917, 0.452)
pt3dadd(107.377, 131.897, 30.928, 0.492)
pt3dadd(107.383, 132.016, 30.941, 0.542)
pt3dadd(107.39, 132.134, 30.954, 0.59)
pt3dadd(107.397, 132.253, 30.966, 0.64)
pt3dadd(107.404, 132.372, 30.979, 0.69)
pt3dadd(107.41, 132.491, 30.992, 0.74)
pt3dadd(107.417, 132.61, 31.004, 0.788)
pt3dadd(107.424, 132.728, 31.017, 0.838)
pt3dadd(107.43, 132.847, 31.029, 0.888)
pt3dadd(107.437, 132.966, 31.042, 0.938)
pt3dadd(107.456, 133.073, 31.082, 0.946)
pt3dadd(107.478, 133.177, 31.128, 0.946)
pt3dadd(107.5, 133.282, 31.174, 0.944)
pt3dadd(107.521, 133.386, 31.22, 0.944)
pt3dadd(107.543, 133.49, 31.266, 0.944)
pt3dadd(107.565, 133.595, 31.312, 0.944)
pt3dadd(107.586, 133.699, 31.358, 0.942)
pt3dadd(107.608, 133.804, 31.404, 0.942)
pt3dadd(107.63, 133.908, 31.45, 0.942)
pt3dadd(107.654, 134.011, 31.495, 0.942)
pt3dadd(107.713, 134.107, 31.531, 0.938)
pt3dadd(107.772, 134.203, 31.566, 0.934)
pt3dadd(107.83, 134.298, 31.601, 0.93)
pt3dadd(107.889, 134.394, 31.636, 0.926)
pt3dadd(107.948, 134.49, 31.671, 0.922)
pt3dadd(108.007, 134.586, 31.706, 0.918)
pt3dadd(108.066, 134.682, 31.741, 0.914)
pt3dadd(108.124, 134.777, 31.777, 0.912)
pt3dadd(108.183, 134.873, 31.812, 0.908)
pt3dadd(108.241, 134.97, 31.845, 0.904)
pt3dadd(108.295, 135.073, 31.869, 0.904)
pt3dadd(108.348, 135.176, 31.893, 0.904)
pt3dadd(108.402, 135.281, 31.917, 0.904)
pt3dadd(108.456, 135.384, 31.94, 0.904)
pt3dadd(108.51, 135.487, 31.964, 0.904)
pt3dadd(108.563, 135.59, 31.988, 0.904)
pt3dadd(108.617, 135.694, 32.012, 0.904)
pt3dadd(108.671, 135.797, 32.036, 0.904)
pt3dadd(108.725, 135.901, 32.06, 0.904)
pt3dadd(108.78, 136.003, 32.083, 0.904)
pt3dadd(108.841, 136.104, 32.1, 0.904)
pt3dadd(108.903, 136.206, 32.117, 0.904)
pt3dadd(108.964, 136.307, 32.134, 0.904)
pt3dadd(109.026, 136.408, 32.152, 0.904)
pt3dadd(109.087, 136.508, 32.169, 0.904)
pt3dadd(109.148, 136.609, 32.186, 0.904)
pt3dadd(109.21, 136.71, 32.203, 0.904)
pt3dadd(109.271, 136.812, 32.221, 0.904)
pt3dadd(109.332, 136.913, 32.238, 0.904)
pt3dadd(109.394, 137.012, 32.259, 0.902)
pt3dadd(109.456, 137.106, 32.294, 0.892)
pt3dadd(109.517, 137.201, 32.329, 0.882)
pt3dadd(109.579, 137.294, 32.364, 0.872)
pt3dadd(109.641, 137.388, 32.398, 0.862)
pt3dadd(109.702, 137.483, 32.433, 0.852)
pt3dadd(109.764, 137.576, 32.468, 0.842)
pt3dadd(109.826, 137.671, 32.502, 0.832)
pt3dadd(109.887, 137.765, 32.537, 0.822)
pt3dadd(109.949, 137.858, 32.572, 0.812)
pt3dadd(110.008, 137.948, 32.616, 0.794)
pt3dadd(110.066, 138.034, 32.668, 0.766)
pt3dadd(110.123, 138.119, 32.72, 0.736)
pt3dadd(110.18, 138.203, 32.772, 0.708)
pt3dadd(110.237, 138.288, 32.824, 0.68)
pt3dadd(110.294, 138.373, 32.877, 0.65)
pt3dadd(110.352, 138.457, 32.929, 0.622)
pt3dadd(110.409, 138.542, 32.981, 0.594)
pt3dadd(110.466, 138.628, 33.033, 0.566)
pt3dadd(110.523, 138.713, 33.085, 0.536)
pt3dadd(110.581, 138.799, 33.135, 0.51)
pt3dadd(110.638, 138.888, 33.181, 0.482)
pt3dadd(110.696, 138.978, 33.228, 0.456)
pt3dadd(110.754, 139.067, 33.275, 0.43)
pt3dadd(110.812, 139.156, 33.321, 0.404)
pt3dadd(110.87, 139.244, 33.368, 0.376)
pt3dadd(110.928, 139.333, 33.414, 0.35)
pt3dadd(110.985, 139.422, 33.461, 0.324)
pt3dadd(111.043, 139.512, 33.508, 0.298)
pt3dadd(111.101, 139.601, 33.555, 0.272)
pt3dadd(111.145, 139.691, 33.607, 0.27)
pt3dadd(111.18, 139.783, 33.665, 0.288)
pt3dadd(111.214, 139.876, 33.722, 0.304)
pt3dadd(111.249, 139.968, 33.779, 0.32)
pt3dadd(111.283, 140.06, 33.836, 0.336)
pt3dadd(111.317, 140.153, 33.894, 0.354)
pt3dadd(111.352, 140.244, 33.951, 0.37)
pt3dadd(111.386, 140.336, 34.008, 0.388)
pt3dadd(111.421, 140.429, 34.065, 0.404)
pt3dadd(111.455, 140.521, 34.122, 0.42)
pt3dadd(111.485, 140.615, 34.18, 0.422)
pt3dadd(111.511, 140.71, 34.237, 0.41)
pt3dadd(111.537, 140.804, 34.295, 0.4)
pt3dadd(111.562, 140.898, 34.353, 0.39)
pt3dadd(111.588, 140.993, 34.41, 0.378)
pt3dadd(111.614, 141.088, 34.468, 0.368)
pt3dadd(111.64, 141.182, 34.525, 0.358)
pt3dadd(111.666, 141.277, 34.583, 0.346)
pt3dadd(111.692, 141.372, 34.64, 0.336)
pt3dadd(111.718, 141.467, 34.698, 0.326)
pt3dadd(111.748, 141.563, 34.752, 0.326)
pt3dadd(111.781, 141.66, 34.804, 0.336)
pt3dadd(111.814, 141.757, 34.855, 0.344)
pt3dadd(111.847, 141.854, 34.907, 0.352)
pt3dadd(111.88, 141.952, 34.959, 0.36)
pt3dadd(111.913, 142.049, 35.011, 0.368)
pt3dadd(111.946, 142.146, 35.062, 0.378)
pt3dadd(111.979, 142.243, 35.114, 0.386)
pt3dadd(112.012, 142.34, 35.166, 0.394)
pt3dadd(112.045, 142.438, 35.217, 0.402)
pt3dadd(112.087, 142.536, 35.262, 0.438)
pt3dadd(112.134, 142.636, 35.303, 0.486)
pt3dadd(112.181, 142.734, 35.344, 0.534)
pt3dadd(112.227, 142.834, 35.384, 0.582)
pt3dadd(112.274, 142.932, 35.425, 0.628)
pt3dadd(112.321, 143.032, 35.466, 0.676)
pt3dadd(112.368, 143.131, 35.507, 0.724)
pt3dadd(112.414, 143.23, 35.548, 0.772)
pt3dadd(112.461, 143.329, 35.589, 0.82)
pt3dadd(112.508, 143.428, 35.63, 0.868)
pt3dadd(112.548, 143.527, 35.674, 0.854)
pt3dadd(112.585, 143.627, 35.72, 0.81)
pt3dadd(112.622, 143.728, 35.767, 0.766)
pt3dadd(112.659, 143.827, 35.813, 0.722)
pt3dadd(112.696, 143.927, 35.859, 0.678)
pt3dadd(112.733, 144.026, 35.905, 0.634)
pt3dadd(112.77, 144.126, 35.951, 0.588)
pt3dadd(112.807, 144.227, 35.997, 0.544)
pt3dadd(112.844, 144.326, 36.043, 0.5)
pt3dadd(112.882, 144.426, 36.089, 0.456)
pt3dadd(112.924, 144.527, 36.129, 0.446)
pt3dadd(112.97, 144.629, 36.167, 0.452)
pt3dadd(113.016, 144.73, 36.204, 0.456)
pt3dadd(113.062, 144.832, 36.241, 0.462)
pt3dadd(113.107, 144.932, 36.279, 0.468)
pt3dadd(113.153, 145.034, 36.316, 0.474)
pt3dadd(113.199, 145.136, 36.353, 0.478)
pt3dadd(113.245, 145.237, 36.391, 0.484)
pt3dadd(113.29, 145.339, 36.428, 0.49)
pt3dadd(113.336, 145.44, 36.465, 0.496)
pt3dadd(113.384, 145.543, 36.497, 0.524)
pt3dadd(113.433, 145.648, 36.527, 0.562)
pt3dadd(113.482, 145.751, 36.556, 0.6)
pt3dadd(113.531, 145.854, 36.586, 0.638)
pt3dadd(113.58, 145.958, 36.615, 0.676)
pt3dadd(113.629, 146.062, 36.645, 0.714)
pt3dadd(113.678, 146.166, 36.674, 0.752)
pt3dadd(113.726, 146.269, 36.704, 0.788)
pt3dadd(113.775, 146.372, 36.733, 0.826)
pt3dadd(113.824, 146.477, 36.763, 0.864)
pt3dadd(113.858, 146.586, 36.792, 0.86)
pt3dadd(113.887, 146.698, 36.82, 0.842)
pt3dadd(113.916, 146.809, 36.848, 0.824)
pt3dadd(113.945, 146.92, 36.877, 0.806)
pt3dadd(113.974, 147.031, 36.905, 0.788)
pt3dadd(114.003, 147.143, 36.934, 0.77)
pt3dadd(114.032, 147.254, 36.962, 0.752)
pt3dadd(114.061, 147.366, 36.99, 0.734)
pt3dadd(114.09, 147.476, 37.019, 0.716)
pt3dadd(114.119, 147.588, 37.047, 0.698)
pt3dadd(114.138, 147.695, 37.089, 0.692)
pt3dadd(114.154, 147.8, 37.134, 0.692)
pt3dadd(114.17, 147.907, 37.179, 0.69)
pt3dadd(114.186, 148.013, 37.225, 0.688)
pt3dadd(114.202, 148.118, 37.27, 0.686)
pt3dadd(114.218, 148.224, 37.315, 0.684)
pt3dadd(114.234, 148.33, 37.361, 0.684)
pt3dadd(114.25, 148.435, 37.406, 0.682)
pt3dadd(114.266, 148.541, 37.451, 0.68)
pt3dadd(114.282, 148.646, 37.497, 0.678)
pt3dadd(114.294, 148.75, 37.548, 0.664)
pt3dadd(114.304, 148.85, 37.6, 0.646)
pt3dadd(114.314, 148.952, 37.653, 0.626)
pt3dadd(114.325, 149.054, 37.705, 0.608)
pt3dadd(114.335, 149.155, 37.758, 0.59)
pt3dadd(114.345, 149.257, 37.81, 0.572)
pt3dadd(114.356, 149.359, 37.863, 0.554)
pt3dadd(114.366, 149.46, 37.916, 0.536)
pt3dadd(114.376, 149.562, 37.968, 0.518)
pt3dadd(114.387, 149.664, 38.021, 0.5)
pt3dadd(114.395, 149.765, 38.074, 0.478)
pt3dadd(114.403, 149.864, 38.129, 0.456)
pt3dadd(114.411, 149.965, 38.183, 0.434)
pt3dadd(114.419, 150.066, 38.237, 0.414)
pt3dadd(114.426, 150.167, 38.291, 0.392)
pt3dadd(114.434, 150.268, 38.345, 0.37)
pt3dadd(114.442, 150.367, 38.4, 0.348)
pt3dadd(114.45, 150.468, 38.454, 0.326)
pt3dadd(114.458, 150.569, 38.508, 0.306)
pt3dadd(114.465, 150.67, 38.562, 0.284)
pt3dadd(114.478, 150.776, 38.606, 0.308)
pt3dadd(114.491, 150.886, 38.646, 0.344)
pt3dadd(114.504, 150.994, 38.687, 0.38)
pt3dadd(114.516, 151.103, 38.728, 0.414)
pt3dadd(114.529, 151.212, 38.769, 0.45)
pt3dadd(114.542, 151.32, 38.81, 0.484)
pt3dadd(114.555, 151.429, 38.851, 0.52)
pt3dadd(114.568, 151.537, 38.892, 0.554)
pt3dadd(114.581, 151.646, 38.933, 0.59)
}
}
proc shape3d_20() {
dend_7[10] { pt3dadd(114.594, 151.756, 38.974, 0.624)
pt3dadd(114.629, 151.864, 39.003, 0.634)
pt3dadd(114.669, 151.973, 39.03, 0.64)
pt3dadd(114.708, 152.081, 39.057, 0.644)
pt3dadd(114.748, 152.189, 39.084, 0.648)
pt3dadd(114.787, 152.298, 39.111, 0.654)
pt3dadd(114.827, 152.406, 39.138, 0.658)
pt3dadd(114.867, 152.515, 39.165, 0.664)
pt3dadd(114.906, 152.623, 39.192, 0.668)
pt3dadd(114.946, 152.732, 39.219, 0.672)
pt3dadd(114.985, 152.84, 39.246, 0.678)
pt3dadd(115.02, 152.947, 39.281, 0.686)
pt3dadd(115.054, 153.054, 39.317, 0.696)
pt3dadd(115.089, 153.161, 39.353, 0.706)
pt3dadd(115.123, 153.268, 39.39, 0.716)
pt3dadd(115.157, 153.373, 39.426, 0.726)
pt3dadd(115.191, 153.48, 39.462, 0.734)
pt3dadd(115.225, 153.587, 39.498, 0.744)
pt3dadd(115.26, 153.694, 39.534, 0.754)
pt3dadd(115.294, 153.799, 39.57, 0.764)
pt3dadd(115.328, 153.906, 39.606, 0.774)
pt3dadd(115.352, 154.012, 39.65, 0.79)
pt3dadd(115.376, 154.117, 39.694, 0.808)
pt3dadd(115.399, 154.223, 39.737, 0.824)
pt3dadd(115.423, 154.327, 39.781, 0.842)
pt3dadd(115.446, 154.433, 39.825, 0.86)
pt3dadd(115.47, 154.538, 39.868, 0.876)
pt3dadd(115.493, 154.644, 39.912, 0.894)
pt3dadd(115.517, 154.748, 39.956, 0.91)
pt3dadd(115.54, 154.854, 40, 0.928)
pt3dadd(115.564, 154.96, 40.043, 0.944)
pt3dadd(115.578, 155.068, 40.085, 0.962)
pt3dadd(115.591, 155.177, 40.126, 0.98)
pt3dadd(115.605, 155.285, 40.167, 0.998)
pt3dadd(115.619, 155.393, 40.209, 1.016)
pt3dadd(115.632, 155.501, 40.25, 1.034)
pt3dadd(115.646, 155.61, 40.292, 1.052)
pt3dadd(115.659, 155.718, 40.333, 1.07)
pt3dadd(115.673, 155.826, 40.375, 1.088)
pt3dadd(115.686, 155.935, 40.416, 1.104)
pt3dadd(115.7, 156.043, 40.458, 1.122)
pt3dadd(115.703, 156.143, 40.513, 1.124)
pt3dadd(115.706, 156.242, 40.569, 1.124)
pt3dadd(115.709, 156.342, 40.625, 1.126)
pt3dadd(115.712, 156.44, 40.681, 1.126)
pt3dadd(115.715, 156.54, 40.737, 1.126)
pt3dadd(115.718, 156.64, 40.793, 1.128)
pt3dadd(115.721, 156.739, 40.849, 1.128)
pt3dadd(115.724, 156.838, 40.906, 1.128)
pt3dadd(115.727, 156.937, 40.962, 1.13)
pt3dadd(115.73, 157.037, 41.018, 1.13)
pt3dadd(115.735, 157.133, 41.078, 1.1)
pt3dadd(115.739, 157.229, 41.138, 1.072)
pt3dadd(115.744, 157.325, 41.198, 1.042)
pt3dadd(115.748, 157.42, 41.258, 1.012)
pt3dadd(115.752, 157.516, 41.318, 0.982)
pt3dadd(115.757, 157.612, 41.378, 0.952)
pt3dadd(115.761, 157.708, 41.438, 0.922)
pt3dadd(115.766, 157.804, 41.498, 0.892)
pt3dadd(115.77, 157.9, 41.559, 0.862)
pt3dadd(115.775, 157.994, 41.619, 0.832)
pt3dadd(115.782, 158.09, 41.678, 0.794)
pt3dadd(115.79, 158.186, 41.738, 0.756)
pt3dadd(115.798, 158.282, 41.798, 0.718)
pt3dadd(115.806, 158.378, 41.857, 0.68)
pt3dadd(115.814, 158.474, 41.917, 0.642)
pt3dadd(115.822, 158.57, 41.977, 0.604)
pt3dadd(115.829, 158.666, 42.036, 0.566)
pt3dadd(115.837, 158.762, 42.096, 0.528)
pt3dadd(115.845, 158.858, 42.155, 0.49)
pt3dadd(115.853, 158.954, 42.215, 0.452)
pt3dadd(115.87, 159.055, 42.268, 0.45)
pt3dadd(115.887, 159.156, 42.32, 0.448)
pt3dadd(115.905, 159.257, 42.373, 0.444)
pt3dadd(115.922, 159.358, 42.425, 0.442)
pt3dadd(115.939, 159.457, 42.478, 0.44)
pt3dadd(115.956, 159.558, 42.531, 0.438)
pt3dadd(115.974, 159.659, 42.583, 0.434)
pt3dadd(115.991, 159.76, 42.636, 0.432)
pt3dadd(116.008, 159.86, 42.689, 0.43)
pt3dadd(116.028, 159.959, 42.742, 0.426)
pt3dadd(116.075, 160.037, 42.807, 0.406)
pt3dadd(116.123, 160.114, 42.873, 0.384)
pt3dadd(116.171, 160.19, 42.938, 0.364)
pt3dadd(116.219, 160.268, 43.004, 0.344)
pt3dadd(116.266, 160.345, 43.069, 0.322)
pt3dadd(116.314, 160.422, 43.134, 0.302)
pt3dadd(116.362, 160.5, 43.2, 0.282)
pt3dadd(116.41, 160.577, 43.265, 0.262)
pt3dadd(116.457, 160.654, 43.331, 0.24)
pt3dadd(116.517, 160.728, 43.387, 0.228)
pt3dadd(116.607, 160.796, 43.422, 0.234)
pt3dadd(116.697, 160.864, 43.457, 0.242)
pt3dadd(116.787, 160.931, 43.492, 0.248)
pt3dadd(116.877, 160.998, 43.527, 0.254)
pt3dadd(116.967, 161.065, 43.563, 0.262)
pt3dadd(117.057, 161.134, 43.597, 0.268)
pt3dadd(117.146, 161.201, 43.633, 0.274)
pt3dadd(117.236, 161.268, 43.668, 0.282)
pt3dadd(117.326, 161.335, 43.703, 0.288)
pt3dadd(117.424, 161.392, 43.735, 0.306)
pt3dadd(117.533, 161.429, 43.761, 0.342)
pt3dadd(117.643, 161.466, 43.788, 0.38)
pt3dadd(117.752, 161.503, 43.814, 0.416)
pt3dadd(117.861, 161.542, 43.841, 0.452)
pt3dadd(117.971, 161.579, 43.867, 0.49)
pt3dadd(118.08, 161.616, 43.894, 0.526)
pt3dadd(118.19, 161.653, 43.92, 0.562)
pt3dadd(118.299, 161.69, 43.947, 0.598)
pt3dadd(118.409, 161.728, 43.973, 0.636)
pt3dadd(118.517, 161.761, 44.006, 0.642)
pt3dadd(118.624, 161.788, 44.046, 0.606)
pt3dadd(118.73, 161.814, 44.086, 0.57)
pt3dadd(118.837, 161.84, 44.127, 0.534)
pt3dadd(118.943, 161.867, 44.167, 0.498)
pt3dadd(119.05, 161.893, 44.208, 0.462)
pt3dadd(119.156, 161.92, 44.248, 0.426)
pt3dadd(119.263, 161.946, 44.289, 0.388)
pt3dadd(119.369, 161.972, 44.329, 0.352)
pt3dadd(119.476, 161.999, 44.37, 0.316)
pt3dadd(119.583, 162.025, 44.408, 0.292)
pt3dadd(119.692, 162.054, 44.443, 0.284)
pt3dadd(119.801, 162.082, 44.478, 0.278)
pt3dadd(119.91, 162.11, 44.512, 0.272)
pt3dadd(120.019, 162.138, 44.547, 0.264)
pt3dadd(120.128, 162.167, 44.582, 0.258)
pt3dadd(120.236, 162.194, 44.617, 0.25)
pt3dadd(120.346, 162.223, 44.651, 0.244)
pt3dadd(120.455, 162.251, 44.686, 0.236)
pt3dadd(120.564, 162.28, 44.721, 0.23)
pt3dadd(120.668, 162.322, 44.752, 0.226)
pt3dadd(120.766, 162.383, 44.78, 0.226)
pt3dadd(120.863, 162.444, 44.807, 0.226)
pt3dadd(120.961, 162.506, 44.834, 0.226)
pt3dadd(121.058, 162.568, 44.861, 0.226)
pt3dadd(121.157, 162.63, 44.888, 0.226)
pt3dadd(121.254, 162.691, 44.915, 0.226)
pt3dadd(121.351, 162.754, 44.942, 0.226)
pt3dadd(121.45, 162.815, 44.969, 0.226)
pt3dadd(121.547, 162.876, 44.996, 0.226)
pt3dadd(121.627, 162.955, 45.027, 0.226)
pt3dadd(121.697, 163.044, 45.061, 0.226)
pt3dadd(121.765, 163.134, 45.094, 0.226)
pt3dadd(121.835, 163.223, 45.128, 0.226)
pt3dadd(121.903, 163.313, 45.161, 0.226)
pt3dadd(121.973, 163.403, 45.195, 0.226)
pt3dadd(122.041, 163.492, 45.229, 0.226)
pt3dadd(122.111, 163.582, 45.262, 0.226)
pt3dadd(122.179, 163.672, 45.296, 0.226)
pt3dadd(122.248, 163.76, 45.33, 0.226)
pt3dadd(122.286, 163.865, 45.367, 0.226)
pt3dadd(122.318, 163.97, 45.404, 0.226)
pt3dadd(122.351, 164.077, 45.442, 0.226)
pt3dadd(122.384, 164.183, 45.48, 0.226)
pt3dadd(122.417, 164.29, 45.517, 0.226)
pt3dadd(122.449, 164.396, 45.555, 0.226)
pt3dadd(122.483, 164.502, 45.592, 0.226)
pt3dadd(122.515, 164.609, 45.63, 0.226)
pt3dadd(122.549, 164.714, 45.668, 0.226)
pt3dadd(122.581, 164.821, 45.705, 0.226)
pt3dadd(122.592, 164.935, 45.734, 0.226)
pt3dadd(122.604, 165.049, 45.763, 0.226)
pt3dadd(122.615, 165.164, 45.791, 0.226)
pt3dadd(122.627, 165.278, 45.82, 0.226)
pt3dadd(122.638, 165.392, 45.848, 0.226)
pt3dadd(122.65, 165.508, 45.877, 0.226)
pt3dadd(122.66, 165.622, 45.906, 0.226)
pt3dadd(122.672, 165.736, 45.934, 0.226)
pt3dadd(122.683, 165.851, 45.963, 0.226)
pt3dadd(122.695, 165.965, 45.992, 0.226)
}
dend_7[11] {pt3dclear()
pt3dadd(109.307, 125.404, 29.768, 0.226)
pt3dadd(109.375, 125.399, 29.8, 0.226)
pt3dadd(109.479, 125.392, 29.849, 0.226)
pt3dadd(109.584, 125.384, 29.898, 0.226)
pt3dadd(109.688, 125.377, 29.948, 0.226)
pt3dadd(109.792, 125.37, 29.997, 0.226)
pt3dadd(109.896, 125.362, 30.046, 0.226)
pt3dadd(110.001, 125.354, 30.095, 0.226)
pt3dadd(110.105, 125.347, 30.144, 0.226)
pt3dadd(110.209, 125.34, 30.193, 0.226)
pt3dadd(110.314, 125.333, 30.242, 0.226)
pt3dadd(110.418, 125.324, 30.291, 0.226)
pt3dadd(110.522, 125.317, 30.34, 0.226)
pt3dadd(110.627, 125.31, 30.389, 0.226)
pt3dadd(110.732, 125.302, 30.437, 0.228)
pt3dadd(110.839, 125.291, 30.481, 0.232)
pt3dadd(110.946, 125.28, 30.525, 0.238)
pt3dadd(111.053, 125.269, 30.569, 0.242)
pt3dadd(111.16, 125.26, 30.614, 0.248)
pt3dadd(111.267, 125.249, 30.658, 0.252)
pt3dadd(111.374, 125.238, 30.702, 0.258)
pt3dadd(111.481, 125.227, 30.747, 0.262)
pt3dadd(111.588, 125.216, 30.791, 0.268)
pt3dadd(111.695, 125.206, 30.835, 0.272)
pt3dadd(111.804, 125.191, 30.875, 0.284)
pt3dadd(111.916, 125.171, 30.906, 0.302)
pt3dadd(112.028, 125.152, 30.938, 0.322)
pt3dadd(112.14, 125.131, 30.97, 0.34)
pt3dadd(112.252, 125.111, 31.002, 0.36)
pt3dadd(112.364, 125.09, 31.034, 0.38)
}
}
proc shape3d_21() {
dend_7[11] { pt3dadd(112.476, 125.07, 31.066, 0.398)
pt3dadd(112.588, 125.05, 31.098, 0.418)
pt3dadd(112.7, 125.029, 31.13, 0.436)
pt3dadd(112.812, 125.01, 31.162, 0.456)
pt3dadd(112.917, 124.987, 31.204, 0.474)
pt3dadd(113.014, 124.962, 31.259, 0.494)
pt3dadd(113.111, 124.936, 31.314, 0.514)
pt3dadd(113.208, 124.91, 31.369, 0.534)
pt3dadd(113.305, 124.885, 31.424, 0.554)
pt3dadd(113.402, 124.86, 31.479, 0.572)
pt3dadd(113.499, 124.834, 31.534, 0.592)
pt3dadd(113.595, 124.808, 31.589, 0.612)
pt3dadd(113.692, 124.783, 31.644, 0.632)
pt3dadd(113.789, 124.758, 31.699, 0.65)
pt3dadd(113.888, 124.747, 31.705, 0.644)
pt3dadd(113.991, 124.753, 31.653, 0.604)
pt3dadd(114.093, 124.76, 31.601, 0.566)
pt3dadd(114.195, 124.768, 31.548, 0.526)
pt3dadd(114.297, 124.775, 31.496, 0.488)
pt3dadd(114.399, 124.776, 31.452, 0.452)
pt3dadd(114.498, 124.729, 31.494, 0.452)
pt3dadd(114.596, 124.682, 31.535, 0.452)
pt3dadd(114.695, 124.636, 31.576, 0.452)
pt3dadd(114.794, 124.589, 31.617, 0.452)
pt3dadd(114.893, 124.542, 31.659, 0.452)
pt3dadd(114.991, 124.495, 31.7, 0.452)
pt3dadd(115.09, 124.448, 31.741, 0.452)
pt3dadd(115.189, 124.402, 31.782, 0.452)
pt3dadd(115.288, 124.355, 31.823, 0.452)
pt3dadd(115.386, 124.308, 31.865, 0.452)
pt3dadd(115.485, 124.261, 31.906, 0.452)
pt3dadd(115.584, 124.214, 31.947, 0.452)
pt3dadd(115.683, 124.166, 31.988, 0.452)
pt3dadd(115.781, 124.12, 32.03, 0.452)
pt3dadd(115.88, 124.073, 32.071, 0.452)
pt3dadd(115.979, 124.026, 32.112, 0.452)
pt3dadd(116.078, 123.979, 32.153, 0.452)
pt3dadd(116.158, 123.904, 32.188, 0.452)
pt3dadd(116.23, 123.816, 32.221, 0.452)
pt3dadd(116.301, 123.728, 32.253, 0.452)
pt3dadd(116.373, 123.641, 32.285, 0.452)
pt3dadd(116.445, 123.552, 32.318, 0.452)
pt3dadd(116.517, 123.464, 32.35, 0.452)
pt3dadd(116.589, 123.377, 32.382, 0.452)
pt3dadd(116.661, 123.288, 32.415, 0.452)
pt3dadd(116.732, 123.2, 32.447, 0.452)
pt3dadd(116.804, 123.113, 32.479, 0.452)
pt3dadd(116.876, 123.024, 32.511, 0.452)
pt3dadd(116.948, 122.936, 32.544, 0.452)
pt3dadd(117.02, 122.849, 32.576, 0.452)
pt3dadd(117.092, 122.76, 32.608, 0.452)
pt3dadd(117.185, 122.716, 32.639, 0.452)
pt3dadd(117.3, 122.712, 32.667, 0.452)
pt3dadd(117.415, 122.708, 32.695, 0.452)
pt3dadd(117.53, 122.705, 32.724, 0.452)
pt3dadd(117.645, 122.702, 32.752, 0.452)
pt3dadd(117.76, 122.699, 32.781, 0.452)
pt3dadd(117.875, 122.695, 32.809, 0.452)
pt3dadd(117.99, 122.692, 32.837, 0.452)
pt3dadd(118.105, 122.689, 32.866, 0.452)
pt3dadd(118.22, 122.686, 32.894, 0.452)
pt3dadd(118.335, 122.682, 32.923, 0.452)
pt3dadd(118.45, 122.678, 32.951, 0.452)
pt3dadd(118.565, 122.676, 32.979, 0.452)
pt3dadd(118.68, 122.672, 33.008, 0.452)
pt3dadd(118.795, 122.669, 33.036, 0.452)
pt3dadd(118.91, 122.665, 33.064, 0.452)
pt3dadd(119.025, 122.663, 33.093, 0.452)
pt3dadd(119.14, 122.659, 33.121, 0.452)
pt3dadd(119.256, 122.656, 33.149, 0.452)
pt3dadd(119.37, 122.652, 33.178, 0.452)
pt3dadd(119.486, 122.65, 33.206, 0.452)
pt3dadd(119.601, 122.646, 33.235, 0.452)
pt3dadd(119.716, 122.642, 33.263, 0.452)
pt3dadd(119.831, 122.639, 33.291, 0.452)
pt3dadd(119.946, 122.636, 33.32, 0.452)
pt3dadd(120.059, 122.626, 33.351, 0.452)
pt3dadd(120.169, 122.603, 33.386, 0.452)
pt3dadd(120.278, 122.58, 33.421, 0.452)
pt3dadd(120.389, 122.557, 33.456, 0.452)
pt3dadd(120.499, 122.536, 33.492, 0.452)
pt3dadd(120.608, 122.513, 33.527, 0.452)
pt3dadd(120.719, 122.49, 33.562, 0.452)
pt3dadd(120.829, 122.467, 33.597, 0.452)
pt3dadd(120.938, 122.446, 33.632, 0.452)
pt3dadd(121.049, 122.423, 33.667, 0.452)
pt3dadd(121.159, 122.4, 33.703, 0.452)
pt3dadd(121.27, 122.377, 33.738, 0.452)
pt3dadd(121.379, 122.354, 33.773, 0.452)
pt3dadd(121.489, 122.333, 33.808, 0.452)
pt3dadd(121.6, 122.31, 33.843, 0.452)
pt3dadd(121.709, 122.287, 33.879, 0.452)
pt3dadd(121.819, 122.264, 33.914, 0.452)
pt3dadd(121.919, 122.212, 33.927, 0.452)
pt3dadd(122.01, 122.134, 33.924, 0.452)
pt3dadd(122.101, 122.056, 33.92, 0.452)
pt3dadd(122.194, 121.979, 33.916, 0.452)
pt3dadd(122.285, 121.901, 33.913, 0.452)
pt3dadd(122.376, 121.823, 33.909, 0.452)
pt3dadd(122.467, 121.746, 33.905, 0.452)
pt3dadd(122.558, 121.668, 33.902, 0.452)
pt3dadd(122.651, 121.59, 33.898, 0.452)
pt3dadd(122.742, 121.513, 33.895, 0.452)
pt3dadd(122.833, 121.435, 33.891, 0.452)
pt3dadd(122.924, 121.357, 33.888, 0.452)
pt3dadd(123.017, 121.28, 33.884, 0.452)
pt3dadd(123.108, 121.202, 33.88, 0.452)
pt3dadd(123.199, 121.124, 33.877, 0.452)
pt3dadd(123.29, 121.048, 33.873, 0.452)
pt3dadd(123.382, 120.97, 33.869, 0.452)
pt3dadd(123.474, 120.893, 33.866, 0.452)
pt3dadd(123.581, 120.848, 33.876, 0.452)
pt3dadd(123.696, 120.821, 33.893, 0.452)
pt3dadd(123.81, 120.792, 33.91, 0.452)
pt3dadd(123.925, 120.764, 33.927, 0.452)
pt3dadd(124.04, 120.737, 33.945, 0.452)
pt3dadd(124.156, 120.709, 33.962, 0.452)
pt3dadd(124.27, 120.682, 33.979, 0.452)
pt3dadd(124.385, 120.654, 33.996, 0.452)
pt3dadd(124.5, 120.626, 34.013, 0.452)
pt3dadd(124.615, 120.599, 34.03, 0.452)
pt3dadd(124.73, 120.571, 34.047, 0.452)
pt3dadd(124.844, 120.544, 34.065, 0.452)
pt3dadd(124.96, 120.515, 34.082, 0.452)
pt3dadd(125.076, 120.491, 34.093, 0.452)
pt3dadd(125.194, 120.469, 34.095, 0.452)
pt3dadd(125.312, 120.449, 34.096, 0.452)
pt3dadd(125.43, 120.428, 34.098, 0.452)
pt3dadd(125.549, 120.408, 34.099, 0.452)
pt3dadd(125.666, 120.388, 34.101, 0.452)
pt3dadd(125.785, 120.366, 34.103, 0.452)
pt3dadd(125.903, 120.346, 34.104, 0.452)
pt3dadd(126.022, 120.325, 34.106, 0.452)
pt3dadd(126.139, 120.305, 34.107, 0.452)
pt3dadd(126.258, 120.284, 34.109, 0.452)
pt3dadd(126.376, 120.263, 34.111, 0.452)
pt3dadd(126.494, 120.242, 34.112, 0.452)
pt3dadd(126.612, 120.222, 34.114, 0.452)
pt3dadd(126.731, 120.202, 34.116, 0.452)
pt3dadd(126.848, 120.181, 34.117, 0.452)
pt3dadd(126.967, 120.16, 34.119, 0.452)
pt3dadd(127.085, 120.139, 34.12, 0.452)
pt3dadd(127.204, 120.119, 34.122, 0.452)
pt3dadd(127.321, 120.098, 34.123, 0.452)
pt3dadd(127.436, 120.071, 34.13, 0.452)
pt3dadd(127.535, 120.012, 34.16, 0.452)
pt3dadd(127.633, 119.953, 34.189, 0.452)
pt3dadd(127.732, 119.894, 34.218, 0.452)
pt3dadd(127.83, 119.835, 34.248, 0.452)
pt3dadd(127.928, 119.777, 34.277, 0.452)
pt3dadd(128.028, 119.718, 34.306, 0.452)
pt3dadd(128.126, 119.659, 34.336, 0.452)
pt3dadd(128.225, 119.6, 34.365, 0.452)
pt3dadd(128.323, 119.542, 34.394, 0.452)
pt3dadd(128.422, 119.483, 34.423, 0.452)
pt3dadd(128.52, 119.424, 34.453, 0.452)
pt3dadd(128.618, 119.365, 34.482, 0.452)
pt3dadd(128.717, 119.307, 34.511, 0.452)
pt3dadd(128.816, 119.248, 34.541, 0.452)
pt3dadd(128.915, 119.189, 34.57, 0.452)
pt3dadd(129.013, 119.13, 34.599, 0.452)
pt3dadd(129.112, 119.072, 34.629, 0.452)
pt3dadd(129.229, 119.055, 34.623, 0.452)
pt3dadd(129.348, 119.041, 34.615, 0.452)
pt3dadd(129.467, 119.027, 34.608, 0.452)
pt3dadd(129.586, 119.013, 34.6, 0.452)
pt3dadd(129.704, 118.998, 34.593, 0.452)
pt3dadd(129.823, 118.984, 34.585, 0.452)
pt3dadd(129.942, 118.97, 34.577, 0.452)
pt3dadd(130.061, 118.956, 34.57, 0.452)
pt3dadd(130.18, 118.941, 34.562, 0.452)
pt3dadd(130.298, 118.927, 34.555, 0.452)
pt3dadd(130.417, 118.913, 34.547, 0.452)
pt3dadd(130.536, 118.899, 34.54, 0.452)
pt3dadd(130.655, 118.884, 34.532, 0.452)
pt3dadd(130.774, 118.87, 34.525, 0.452)
pt3dadd(130.892, 118.856, 34.517, 0.452)
pt3dadd(131.011, 118.842, 34.51, 0.452)
pt3dadd(131.13, 118.827, 34.502, 0.452)
pt3dadd(131.246, 118.802, 34.501, 0.452)
pt3dadd(131.362, 118.767, 34.504, 0.452)
pt3dadd(131.477, 118.733, 34.507, 0.452)
pt3dadd(131.592, 118.699, 34.51, 0.452)
pt3dadd(131.707, 118.665, 34.513, 0.452)
pt3dadd(131.821, 118.631, 34.516, 0.452)
pt3dadd(131.936, 118.597, 34.519, 0.452)
pt3dadd(132.052, 118.563, 34.522, 0.452)
pt3dadd(132.167, 118.529, 34.525, 0.452)
pt3dadd(132.282, 118.494, 34.528, 0.452)
pt3dadd(132.397, 118.46, 34.531, 0.452)
pt3dadd(132.511, 118.426, 34.534, 0.452)
pt3dadd(132.626, 118.392, 34.536, 0.452)
pt3dadd(132.742, 118.358, 34.539, 0.452)
pt3dadd(132.857, 118.324, 34.542, 0.452)
pt3dadd(132.968, 118.31, 34.569, 0.452)
pt3dadd(133.076, 118.309, 34.611, 0.452)
pt3dadd(133.186, 118.309, 34.654, 0.452)
pt3dadd(133.294, 118.308, 34.696, 0.452)
pt3dadd(133.403, 118.308, 34.738, 0.452)
pt3dadd(133.512, 118.307, 34.781, 0.452)
}
}
proc shape3d_22() {
dend_7[11] { pt3dadd(133.62, 118.306, 34.823, 0.452)
pt3dadd(133.729, 118.306, 34.865, 0.452)
pt3dadd(133.838, 118.305, 34.908, 0.452)
pt3dadd(133.946, 118.305, 34.95, 0.452)
pt3dadd(134.056, 118.304, 34.992, 0.452)
pt3dadd(134.164, 118.303, 35.034, 0.452)
pt3dadd(134.273, 118.303, 35.077, 0.452)
pt3dadd(134.382, 118.302, 35.119, 0.452)
pt3dadd(134.452, 118.221, 35.086, 0.452)
pt3dadd(134.518, 118.133, 35.046, 0.452)
pt3dadd(134.584, 118.045, 35.006, 0.452)
pt3dadd(134.65, 117.957, 34.966, 0.452)
pt3dadd(134.716, 117.869, 34.926, 0.452)
pt3dadd(134.782, 117.781, 34.886, 0.452)
pt3dadd(134.848, 117.693, 34.846, 0.452)
pt3dadd(134.914, 117.606, 34.806, 0.452)
pt3dadd(134.98, 117.518, 34.767, 0.452)
pt3dadd(135.046, 117.43, 34.727, 0.452)
pt3dadd(135.113, 117.342, 34.687, 0.452)
pt3dadd(135.179, 117.254, 34.647, 0.452)
pt3dadd(135.253, 117.174, 34.616, 0.452)
pt3dadd(135.366, 117.135, 34.624, 0.452)
pt3dadd(135.479, 117.096, 34.633, 0.452)
pt3dadd(135.592, 117.057, 34.642, 0.452)
pt3dadd(135.704, 117.017, 34.651, 0.452)
pt3dadd(135.817, 116.978, 34.66, 0.452)
pt3dadd(135.93, 116.939, 34.669, 0.452)
pt3dadd(136.043, 116.9, 34.678, 0.452)
pt3dadd(136.156, 116.86, 34.687, 0.452)
pt3dadd(136.268, 116.821, 34.696, 0.452)
pt3dadd(136.381, 116.782, 34.705, 0.452)
pt3dadd(136.494, 116.743, 34.714, 0.452)
pt3dadd(136.607, 116.703, 34.723, 0.452)
pt3dadd(136.721, 116.664, 34.732, 0.452)
pt3dadd(136.834, 116.625, 34.741, 0.452)
pt3dadd(136.946, 116.586, 34.75, 0.452)
pt3dadd(137.059, 116.546, 34.759, 0.452)
pt3dadd(137.17, 116.566, 34.782, 0.452)
pt3dadd(137.279, 116.603, 34.809, 0.452)
pt3dadd(137.388, 116.639, 34.837, 0.452)
pt3dadd(137.498, 116.675, 34.864, 0.452)
pt3dadd(137.608, 116.711, 34.891, 0.452)
pt3dadd(137.717, 116.747, 34.919, 0.452)
pt3dadd(137.827, 116.784, 34.946, 0.452)
pt3dadd(137.936, 116.82, 34.973, 0.452)
pt3dadd(138.046, 116.856, 35.001, 0.452)
pt3dadd(138.156, 116.892, 35.028, 0.452)
pt3dadd(138.265, 116.928, 35.055, 0.452)
pt3dadd(138.376, 116.965, 35.083, 0.452)
pt3dadd(138.485, 117.001, 35.11, 0.452)
pt3dadd(138.594, 117.037, 35.137, 0.452)
pt3dadd(138.704, 117.073, 35.164, 0.452)
pt3dadd(138.811, 117.099, 35.196, 0.452)
pt3dadd(138.91, 117.073, 35.25, 0.452)
pt3dadd(139.007, 117.047, 35.304, 0.452)
pt3dadd(139.105, 117.021, 35.358, 0.452)
pt3dadd(139.202, 116.996, 35.411, 0.452)
pt3dadd(139.301, 116.97, 35.465, 0.452)
pt3dadd(139.399, 116.944, 35.519, 0.452)
pt3dadd(139.496, 116.919, 35.573, 0.452)
pt3dadd(139.595, 116.893, 35.626, 0.452)
pt3dadd(139.692, 116.867, 35.68, 0.452)
pt3dadd(139.79, 116.841, 35.734, 0.452)
pt3dadd(139.888, 116.815, 35.787, 0.452)
pt3dadd(139.986, 116.79, 35.841, 0.452)
pt3dadd(140.083, 116.764, 35.895, 0.452)
pt3dadd(140.182, 116.738, 35.949, 0.452)
pt3dadd(140.28, 116.712, 36.002, 0.452)
pt3dadd(140.377, 116.687, 36.056, 0.452)
pt3dadd(140.476, 116.661, 36.11, 0.452)
pt3dadd(140.573, 116.635, 36.164, 0.452)
pt3dadd(140.671, 116.61, 36.217, 0.452)
pt3dadd(140.768, 116.584, 36.271, 0.452)
pt3dadd(140.867, 116.558, 36.325, 0.452)
pt3dadd(140.964, 116.532, 36.379, 0.452)
pt3dadd(141.062, 116.507, 36.432, 0.452)
pt3dadd(141.161, 116.481, 36.486, 0.452)
pt3dadd(141.258, 116.455, 36.54, 0.452)
pt3dadd(141.356, 116.429, 36.593, 0.452)
pt3dadd(141.454, 116.403, 36.647, 0.452)
pt3dadd(141.552, 116.378, 36.701, 0.452)
pt3dadd(141.649, 116.352, 36.755, 0.452)
pt3dadd(141.748, 116.326, 36.808, 0.452)
pt3dadd(141.85, 116.302, 36.852, 0.452)
pt3dadd(141.967, 116.283, 36.863, 0.452)
pt3dadd(142.086, 116.263, 36.873, 0.452)
pt3dadd(142.204, 116.244, 36.884, 0.452)
pt3dadd(142.321, 116.224, 36.894, 0.452)
pt3dadd(142.439, 116.205, 36.905, 0.452)
pt3dadd(142.556, 116.185, 36.915, 0.452)
pt3dadd(142.674, 116.166, 36.926, 0.452)
pt3dadd(142.792, 116.146, 36.936, 0.452)
pt3dadd(142.909, 116.127, 36.947, 0.452)
pt3dadd(143.027, 116.107, 36.957, 0.452)
pt3dadd(143.146, 116.088, 36.968, 0.452)
pt3dadd(143.263, 116.069, 36.978, 0.452)
pt3dadd(143.381, 116.049, 36.989, 0.452)
pt3dadd(143.498, 116.03, 36.999, 0.452)
pt3dadd(143.616, 116.01, 37.01, 0.452)
pt3dadd(143.734, 115.991, 37.02, 0.452)
pt3dadd(143.851, 115.971, 37.031, 0.452)
pt3dadd(143.969, 115.952, 37.041, 0.452)
pt3dadd(144.088, 115.932, 37.052, 0.452)
pt3dadd(144.192, 115.911, 37.076, 0.452)
pt3dadd(144.242, 115.884, 37.164, 0.452)
pt3dadd(144.292, 115.856, 37.252, 0.452)
pt3dadd(144.342, 115.829, 37.34, 0.452)
pt3dadd(144.391, 115.801, 37.429, 0.452)
pt3dadd(144.44, 115.774, 37.517, 0.452)
pt3dadd(144.491, 115.746, 37.605, 0.452)
pt3dadd(144.54, 115.719, 37.693, 0.452)
pt3dadd(144.59, 115.691, 37.781, 0.452)
pt3dadd(144.64, 115.664, 37.869, 0.452)
pt3dadd(144.689, 115.636, 37.957, 0.452)
pt3dadd(144.739, 115.609, 38.045, 0.452)
pt3dadd(144.788, 115.581, 38.133, 0.452)
pt3dadd(144.838, 115.554, 38.222, 0.452)
pt3dadd(144.888, 115.526, 38.31, 0.452)
pt3dadd(144.937, 115.499, 38.398, 0.452)
pt3dadd(144.988, 115.471, 38.486, 0.452)
pt3dadd(145.037, 115.444, 38.574, 0.452)
}
dend_7[12] {pt3dclear()
pt3dadd(102.619, 118.675, 25.782, 0.452)
pt3dadd(102.662, 118.632, 25.789, 0.446)
pt3dadd(102.745, 118.548, 25.804, 0.436)
pt3dadd(102.829, 118.463, 25.819, 0.426)
pt3dadd(102.912, 118.379, 25.834, 0.416)
pt3dadd(102.996, 118.295, 25.848, 0.406)
pt3dadd(103.079, 118.21, 25.863, 0.396)
pt3dadd(103.162, 118.126, 25.878, 0.384)
pt3dadd(103.246, 118.041, 25.892, 0.374)
pt3dadd(103.329, 117.957, 25.907, 0.364)
pt3dadd(103.413, 117.873, 25.921, 0.354)
pt3dadd(103.496, 117.788, 25.936, 0.344)
pt3dadd(103.58, 117.704, 25.951, 0.334)
pt3dadd(103.663, 117.619, 25.965, 0.322)
pt3dadd(103.747, 117.535, 25.98, 0.312)
pt3dadd(103.832, 117.455, 26.002, 0.306)
pt3dadd(103.918, 117.377, 26.027, 0.3)
pt3dadd(104.004, 117.299, 26.052, 0.294)
pt3dadd(104.09, 117.221, 26.077, 0.288)
pt3dadd(104.177, 117.143, 26.103, 0.282)
pt3dadd(104.263, 117.066, 26.128, 0.278)
pt3dadd(104.349, 116.988, 26.153, 0.272)
pt3dadd(104.435, 116.91, 26.178, 0.266)
pt3dadd(104.521, 116.832, 26.204, 0.26)
pt3dadd(104.607, 116.754, 26.229, 0.254)
pt3dadd(104.691, 116.715, 26.292, 0.27)
pt3dadd(104.775, 116.676, 26.357, 0.284)
pt3dadd(104.858, 116.638, 26.421, 0.298)
pt3dadd(104.942, 116.599, 26.485, 0.314)
pt3dadd(105.025, 116.561, 26.549, 0.328)
pt3dadd(105.109, 116.522, 26.613, 0.342)
pt3dadd(105.193, 116.484, 26.677, 0.358)
pt3dadd(105.276, 116.445, 26.741, 0.372)
pt3dadd(105.36, 116.407, 26.805, 0.386)
pt3dadd(105.444, 116.368, 26.87, 0.402)
pt3dadd(105.526, 116.309, 26.922, 0.456)
pt3dadd(105.609, 116.249, 26.975, 0.512)
pt3dadd(105.692, 116.189, 27.027, 0.568)
pt3dadd(105.775, 116.129, 27.08, 0.624)
pt3dadd(105.858, 116.069, 27.132, 0.68)
pt3dadd(105.941, 116.01, 27.184, 0.736)
pt3dadd(106.023, 115.95, 27.237, 0.792)
pt3dadd(106.106, 115.89, 27.289, 0.848)
pt3dadd(106.189, 115.83, 27.342, 0.904)
pt3dadd(106.27, 115.768, 27.394, 0.954)
pt3dadd(106.337, 115.692, 27.448, 0.962)
pt3dadd(106.403, 115.615, 27.501, 0.97)
pt3dadd(106.469, 115.538, 27.555, 0.978)
pt3dadd(106.536, 115.462, 27.608, 0.986)
pt3dadd(106.602, 115.385, 27.662, 0.994)
pt3dadd(106.668, 115.308, 27.715, 1)
pt3dadd(106.734, 115.232, 27.769, 1.008)
pt3dadd(106.801, 115.155, 27.822, 1.016)
pt3dadd(106.867, 115.078, 27.876, 1.024)
pt3dadd(106.928, 115, 27.931, 1.016)
pt3dadd(106.973, 114.918, 27.994, 0.962)
pt3dadd(107.018, 114.836, 28.056, 0.906)
pt3dadd(107.063, 114.753, 28.119, 0.852)
pt3dadd(107.108, 114.671, 28.181, 0.796)
pt3dadd(107.153, 114.589, 28.243, 0.742)
pt3dadd(107.197, 114.506, 28.306, 0.686)
pt3dadd(107.242, 114.424, 28.368, 0.63)
pt3dadd(107.287, 114.342, 28.431, 0.576)
pt3dadd(107.332, 114.259, 28.493, 0.522)
pt3dadd(107.373, 114.177, 28.557, 0.484)
pt3dadd(107.401, 114.095, 28.626, 0.502)
pt3dadd(107.429, 114.013, 28.695, 0.52)
pt3dadd(107.458, 113.931, 28.764, 0.536)
pt3dadd(107.486, 113.849, 28.833, 0.554)
pt3dadd(107.515, 113.767, 28.902, 0.572)
pt3dadd(107.543, 113.685, 28.971, 0.588)
pt3dadd(107.572, 113.603, 29.041, 0.606)
pt3dadd(107.6, 113.521, 29.11, 0.622)
pt3dadd(107.629, 113.439, 29.179, 0.64)
pt3dadd(107.672, 113.382, 29.248, 0.658)
pt3dadd(107.757, 113.394, 29.317, 0.682)
pt3dadd(107.843, 113.407, 29.386, 0.704)
pt3dadd(107.929, 113.42, 29.456, 0.726)
pt3dadd(108.014, 113.433, 29.525, 0.75)
}
}
proc shape3d_23() {
dend_7[12] { pt3dadd(108.1, 113.445, 29.594, 0.772)
pt3dadd(108.185, 113.458, 29.664, 0.794)
pt3dadd(108.271, 113.471, 29.733, 0.816)
pt3dadd(108.356, 113.484, 29.802, 0.84)
pt3dadd(108.442, 113.496, 29.872, 0.862)
pt3dadd(108.527, 113.509, 29.941, 0.884)
pt3dadd(108.613, 113.516, 30.01, 0.904)
pt3dadd(108.7, 113.493, 30.076, 0.904)
pt3dadd(108.787, 113.469, 30.142, 0.904)
pt3dadd(108.874, 113.445, 30.208, 0.904)
pt3dadd(108.961, 113.422, 30.273, 0.904)
pt3dadd(109.045, 113.4, 30.342, 0.904)
pt3dadd(109.099, 113.4, 30.431, 0.904)
pt3dadd(109.152, 113.4, 30.52, 0.904)
pt3dadd(109.206, 113.4, 30.61, 0.904)
pt3dadd(109.26, 113.4, 30.699, 0.904)
pt3dadd(109.313, 113.4, 30.789, 0.904)
pt3dadd(109.349, 113.4, 30.884, 0.904)
pt3dadd(109.382, 113.4, 30.98, 0.904)
pt3dadd(109.437, 113.4, 31.066, 0.904)
pt3dadd(109.518, 113.4, 31.14, 0.904)
pt3dadd(109.609, 113.387, 31.196, 0.904)
pt3dadd(109.72, 113.348, 31.218, 0.904)
pt3dadd(109.816, 113.305, 31.254, 0.904)
pt3dadd(109.877, 113.253, 31.329, 0.904)
pt3dadd(109.917, 113.177, 31.392, 0.904)
pt3dadd(109.948, 113.086, 31.444, 0.904)
pt3dadd(110.033, 113.049, 31.507, 0.904)
pt3dadd(110.118, 113.011, 31.57, 0.904)
pt3dadd(110.203, 112.973, 31.633, 0.904)
pt3dadd(110.289, 112.935, 31.697, 0.904)
pt3dadd(110.394, 112.889, 31.721, 0.904)
pt3dadd(110.502, 112.842, 31.743, 0.904)
pt3dadd(110.574, 112.813, 31.818, 0.904)
pt3dadd(110.645, 112.781, 31.893, 0.904)
pt3dadd(110.714, 112.704, 31.944, 0.904)
pt3dadd(110.76, 112.626, 32.003, 0.904)
pt3dadd(110.76, 112.544, 32.076, 0.904)
pt3dadd(110.762, 112.467, 32.152, 0.904)
pt3dadd(110.772, 112.411, 32.24, 0.904)
pt3dadd(110.795, 112.321, 32.301, 0.904)
pt3dadd(110.822, 112.225, 32.356, 0.904)
pt3dadd(110.85, 112.129, 32.411, 0.904)
pt3dadd(110.877, 112.032, 32.466, 0.904)
pt3dadd(110.903, 111.942, 32.527, 0.904)
pt3dadd(110.927, 111.86, 32.598, 0.904)
pt3dadd(110.951, 111.779, 32.668, 0.904)
pt3dadd(110.975, 111.697, 32.739, 0.904)
pt3dadd(110.999, 111.615, 32.809, 0.904)
pt3dadd(111, 111.567, 32.901, 0.904)
pt3dadd(111, 111.519, 32.992, 0.904)
pt3dadd(111, 111.472, 33.084, 0.904)
pt3dadd(111, 111.424, 33.176, 0.904)
pt3dadd(111, 111.377, 33.268, 0.904)
pt3dadd(111, 111.331, 33.36, 0.904)
pt3dadd(111, 111.287, 33.453, 0.904)
pt3dadd(111, 111.242, 33.546, 0.904)
pt3dadd(111, 111.197, 33.639, 0.904)
pt3dadd(111, 111.153, 33.732, 0.904)
pt3dadd(111, 111.12, 33.826, 0.904)
pt3dadd(111, 111.12, 33.926, 0.904)
pt3dadd(111, 111.12, 34.026, 0.904)
pt3dadd(111, 111.12, 34.126, 0.904)
pt3dadd(111, 111.12, 34.226, 0.904)
pt3dadd(111, 111.12, 34.326, 0.904)
pt3dadd(111, 111.12, 34.426, 0.904)
pt3dadd(111, 111.12, 34.526, 0.904)
pt3dadd(111, 111.12, 34.626, 0.904)
pt3dadd(111, 111.12, 34.726, 0.904)
pt3dadd(111, 111.12, 34.826, 0.904)
pt3dadd(111, 111.12, 34.926, 0.904)
pt3dadd(111, 111.12, 35.026, 0.904)
pt3dadd(110.995, 111.12, 35.126, 0.904)
pt3dadd(110.974, 111.12, 35.224, 0.904)
pt3dadd(110.954, 111.12, 35.323, 0.904)
pt3dadd(110.878, 111.12, 35.39, 0.904)
pt3dadd(110.774, 111.12, 35.44, 0.904)
pt3dadd(110.663, 111.12, 35.47, 0.904)
pt3dadd(110.544, 111.12, 35.477, 0.904)
pt3dadd(110.424, 111.12, 35.484, 0.904)
pt3dadd(110.304, 111.12, 35.491, 0.904)
pt3dadd(110.184, 111.12, 35.498, 0.904)
pt3dadd(110.064, 111.12, 35.5, 0.904)
pt3dadd(109.944, 111.12, 35.5, 0.904)
pt3dadd(109.824, 111.12, 35.5, 0.904)
pt3dadd(109.704, 111.12, 35.5, 0.904)
pt3dadd(109.597, 111.12, 35.54, 0.904)
pt3dadd(109.493, 111.12, 35.59, 0.904)
pt3dadd(109.389, 111.12, 35.639, 0.904)
pt3dadd(109.285, 111.12, 35.689, 0.904)
pt3dadd(109.181, 111.12, 35.739, 0.904)
pt3dadd(109.073, 111.12, 35.782, 0.904)
pt3dadd(108.962, 111.12, 35.82, 0.904)
pt3dadd(108.878, 111.12, 35.88, 0.904)
pt3dadd(108.839, 111.12, 35.974, 0.904)
pt3dadd(108.798, 111.12, 36.068, 0.904)
pt3dadd(108.699, 111.12, 36.125, 0.904)
pt3dadd(108.6, 111.12, 36.181, 0.904)
pt3dadd(108.495, 111.168, 36.193, 0.904)
pt3dadd(108.39, 111.224, 36.199, 0.904)
pt3dadd(108.318, 111.316, 36.206, 0.904)
pt3dadd(108.255, 111.404, 36.232, 0.904)
pt3dadd(108.179, 111.457, 36.295, 0.904)
pt3dadd(108.086, 111.491, 36.347, 0.904)
pt3dadd(107.98, 111.511, 36.392, 0.904)
pt3dadd(107.904, 111.57, 36.439, 0.904)
pt3dadd(107.852, 111.66, 36.489, 0.904)
pt3dadd(107.806, 111.732, 36.557, 0.904)
pt3dadd(107.761, 111.799, 36.632, 0.904)
pt3dadd(107.703, 111.812, 36.718, 0.904)
pt3dadd(107.645, 111.823, 36.805, 0.904)
pt3dadd(107.587, 111.835, 36.892, 0.904)
pt3dadd(107.5, 111.84, 36.951, 0.904)
pt3dadd(107.387, 111.84, 36.984, 0.904)
pt3dadd(107.286, 111.84, 37.027, 0.904)
pt3dadd(107.243, 111.84, 37.121, 0.904)
pt3dadd(107.2, 111.84, 37.214, 0.904)
pt3dadd(107.157, 111.84, 37.308, 0.904)
pt3dadd(107.124, 111.84, 37.404, 0.904)
pt3dadd(107.091, 111.84, 37.5, 0.904)
pt3dadd(107.058, 111.84, 37.596, 0.904)
pt3dadd(107.048, 111.805, 37.69, 0.904)
pt3dadd(107.042, 111.763, 37.784, 0.904)
pt3dadd(107.036, 111.709, 37.872, 0.904)
pt3dadd(107.03, 111.645, 37.957, 0.904)
pt3dadd(107.003, 111.61, 38.045, 0.904)
pt3dadd(106.954, 111.604, 38.136, 0.904)
pt3dadd(106.894, 111.6, 38.22, 0.904)
pt3dadd(106.806, 111.6, 38.288, 0.904)
pt3dadd(106.727, 111.6, 38.361, 0.904)
pt3dadd(106.695, 111.6, 38.457, 0.904)
pt3dadd(106.672, 111.611, 38.555, 0.904)
pt3dadd(106.657, 111.63, 38.653, 0.904)
pt3dadd(106.643, 111.649, 38.75, 0.904)
pt3dadd(106.629, 111.668, 38.848, 0.904)
pt3dadd(106.614, 111.688, 38.946, 0.904)
pt3dadd(106.6, 111.707, 39.044, 0.904)
pt3dadd(106.572, 111.709, 39.142, 0.904)
pt3dadd(106.544, 111.711, 39.239, 0.904)
pt3dadd(106.516, 111.714, 39.336, 0.904)
pt3dadd(106.488, 111.716, 39.433, 0.904)
pt3dadd(106.46, 111.718, 39.531, 0.904)
pt3dadd(106.433, 111.735, 39.625, 0.904)
pt3dadd(106.406, 111.787, 39.712, 0.904)
pt3dadd(106.38, 111.84, 39.799, 0.904)
pt3dadd(106.354, 111.892, 39.887, 0.904)
pt3dadd(106.328, 111.945, 39.974, 0.904)
pt3dadd(106.32, 111.987, 40.067, 0.904)
pt3dadd(106.32, 112.026, 40.161, 0.904)
pt3dadd(106.32, 112.065, 40.256, 0.904)
pt3dadd(106.32, 112.103, 40.351, 0.904)
pt3dadd(106.32, 112.142, 40.445, 0.904)
pt3dadd(106.32, 112.184, 40.539, 0.904)
pt3dadd(106.32, 112.237, 40.628, 0.904)
pt3dadd(106.32, 112.291, 40.718, 0.904)
pt3dadd(106.32, 112.344, 40.807, 0.904)
pt3dadd(106.32, 112.398, 40.897, 0.904)
pt3dadd(106.32, 112.452, 40.986, 0.904)
pt3dadd(106.32, 112.542, 41.052, 0.904)
pt3dadd(106.32, 112.633, 41.117, 0.904)
pt3dadd(106.32, 112.724, 41.182, 0.904)
pt3dadd(106.32, 112.816, 41.246, 0.904)
pt3dadd(106.32, 112.907, 41.311, 0.904)
pt3dadd(106.32, 112.975, 41.394, 0.904)
pt3dadd(106.32, 113.043, 41.476, 0.904)
pt3dadd(106.32, 113.152, 41.508, 0.904)
pt3dadd(106.32, 113.269, 41.53, 0.904)
pt3dadd(106.32, 113.36, 41.576, 0.904)
pt3dadd(106.32, 113.4, 41.67, 0.904)
pt3dadd(106.32, 113.439, 41.765, 0.904)
pt3dadd(106.279, 113.481, 41.852, 0.904)
pt3dadd(106.239, 113.527, 41.937, 0.904)
pt3dadd(106.227, 113.628, 41.989, 0.904)
pt3dadd(106.216, 113.73, 42.041, 0.904)
pt3dadd(106.204, 113.832, 42.093, 0.904)
pt3dadd(106.2, 113.911, 42.165, 0.904)
pt3dadd(106.2, 113.979, 42.248, 0.904)
pt3dadd(106.2, 114.03, 42.337, 0.904)
pt3dadd(106.2, 114.063, 42.433, 0.904)
pt3dadd(106.2, 114.096, 42.529, 0.904)
pt3dadd(106.184, 114.12, 42.623, 0.904)
pt3dadd(106.123, 114.12, 42.709, 0.904)
pt3dadd(106.058, 114.122, 42.789, 0.904)
pt3dadd(105.941, 114.147, 42.796, 0.904)
pt3dadd(105.829, 114.186, 42.8, 0.904)
pt3dadd(105.722, 114.239, 42.8, 0.904)
pt3dadd(105.638, 114.322, 42.8, 0.904)
pt3dadd(105.604, 114.435, 42.807, 0.904)
pt3dadd(105.585, 114.548, 42.834, 0.904)
pt3dadd(105.477, 114.581, 42.868, 0.904)
pt3dadd(105.371, 114.617, 42.9, 0.904)
pt3dadd(105.31, 114.721, 42.9, 0.904)
pt3dadd(105.249, 114.824, 42.9, 0.904)
pt3dadd(105.202, 114.933, 42.914, 0.904)
pt3dadd(105.157, 115.042, 42.93, 0.904)
pt3dadd(105.095, 115.077, 42.997, 0.904)
pt3dadd(105.029, 115.09, 43.08, 0.904)
pt3dadd(104.95, 115.134, 43.143, 0.904)
pt3dadd(104.867, 115.187, 43.2, 0.904)
}
dend_0[2] {pt3dclear()
pt3dadd(103.04, 101.386, 14.404, 11.752)
}
}
proc shape3d_24() {
dend_0[2] { pt3dadd(102.979, 101.395, 14.401, 11.664)
pt3dadd(102.861, 101.413, 14.396, 11.492)
pt3dadd(102.742, 101.432, 14.391, 11.32)
pt3dadd(102.624, 101.45, 14.387, 11.148)
pt3dadd(102.506, 101.469, 14.382, 10.976)
pt3dadd(102.387, 101.487, 14.376, 10.804)
pt3dadd(102.269, 101.506, 14.371, 10.63)
pt3dadd(102.151, 101.525, 14.366, 10.456)
pt3dadd(102.032, 101.544, 14.361, 10.284)
pt3dadd(101.914, 101.563, 14.356, 10.11)
pt3dadd(101.796, 101.582, 14.351, 9.936)
pt3dadd(101.677, 101.6, 14.345, 9.764)
pt3dadd(101.559, 101.619, 14.34, 9.59)
pt3dadd(101.44, 101.638, 14.335, 9.416)
pt3dadd(101.323, 101.659, 14.329, 9.234)
pt3dadd(101.205, 101.682, 14.321, 9.044)
pt3dadd(101.088, 101.706, 14.313, 8.852)
pt3dadd(100.971, 101.729, 14.305, 8.662)
pt3dadd(100.853, 101.752, 14.297, 8.47)
pt3dadd(100.736, 101.775, 14.289, 8.28)
pt3dadd(100.618, 101.798, 14.281, 8.09)
pt3dadd(100.501, 101.821, 14.273, 7.898)
pt3dadd(100.384, 101.845, 14.265, 7.708)
pt3dadd(100.266, 101.868, 14.257, 7.516)
pt3dadd(100.155, 101.908, 14.248, 7.346)
pt3dadd(100.049, 101.963, 14.238, 7.192)
pt3dadd(99.944, 102.019, 14.227, 7.038)
pt3dadd(99.838, 102.074, 14.217, 6.886)
pt3dadd(99.732, 102.129, 14.207, 6.732)
pt3dadd(99.626, 102.185, 14.196, 6.58)
pt3dadd(99.521, 102.24, 14.186, 6.426)
pt3dadd(99.415, 102.295, 14.176, 6.274)
pt3dadd(99.309, 102.351, 14.165, 6.12)
pt3dadd(99.203, 102.406, 14.155, 5.966)
pt3dadd(99.099, 102.459, 14.136, 5.834)
pt3dadd(98.995, 102.511, 14.109, 5.718)
pt3dadd(98.892, 102.562, 14.082, 5.602)
pt3dadd(98.789, 102.613, 14.055, 5.486)
pt3dadd(98.685, 102.665, 14.028, 5.37)
pt3dadd(98.582, 102.716, 14.001, 5.256)
pt3dadd(98.478, 102.768, 13.974, 5.14)
pt3dadd(98.375, 102.819, 13.946, 5.024)
pt3dadd(98.271, 102.871, 13.92, 4.908)
pt3dadd(98.168, 102.922, 13.892, 4.792)
pt3dadd(98.066, 102.976, 13.864, 4.696)
pt3dadd(97.967, 103.032, 13.834, 4.614)
pt3dadd(97.867, 103.088, 13.804, 4.532)
pt3dadd(97.767, 103.144, 13.774, 4.45)
pt3dadd(97.667, 103.2, 13.744, 4.368)
pt3dadd(97.567, 103.256, 13.714, 4.286)
pt3dadd(97.467, 103.312, 13.684, 4.202)
pt3dadd(97.367, 103.368, 13.654, 4.12)
pt3dadd(97.268, 103.424, 13.624, 4.038)
}
apic {pt3dclear()
pt3dadd(97.268, 103.424, 13.624, 4.038)
pt3dadd(97.168, 103.48, 13.594, 3.956)
pt3dadd(97.072, 103.546, 13.571, 3.898)
pt3dadd(96.977, 103.616, 13.551, 3.852)
pt3dadd(96.883, 103.686, 13.531, 3.806)
pt3dadd(96.789, 103.757, 13.511, 3.762)
pt3dadd(96.695, 103.827, 13.491, 3.716)
pt3dadd(96.6, 103.897, 13.471, 3.67)
pt3dadd(96.506, 103.968, 13.451, 3.624)
pt3dadd(96.412, 104.038, 13.431, 3.578)
pt3dadd(96.318, 104.109, 13.411, 3.534)
pt3dadd(96.223, 104.179, 13.391, 3.488)
pt3dadd(96.131, 104.254, 13.377, 3.458)
pt3dadd(96.041, 104.331, 13.366, 3.438)
pt3dadd(95.95, 104.408, 13.354, 3.418)
pt3dadd(95.859, 104.485, 13.343, 3.398)
pt3dadd(95.768, 104.562, 13.331, 3.378)
pt3dadd(95.677, 104.64, 13.32, 3.358)
pt3dadd(95.586, 104.717, 13.309, 3.338)
pt3dadd(95.495, 104.794, 13.297, 3.318)
pt3dadd(95.405, 104.871, 13.286, 3.298)
pt3dadd(95.314, 104.948, 13.274, 3.278)
pt3dadd(95.224, 105.027, 13.266, 3.256)
pt3dadd(95.135, 105.107, 13.258, 3.236)
pt3dadd(95.046, 105.187, 13.25, 3.214)
pt3dadd(94.957, 105.267, 13.243, 3.192)
pt3dadd(94.868, 105.347, 13.235, 3.17)
pt3dadd(94.778, 105.426, 13.227, 3.15)
pt3dadd(94.689, 105.506, 13.22, 3.128)
pt3dadd(94.6, 105.586, 13.212, 3.106)
pt3dadd(94.511, 105.666, 13.205, 3.084)
pt3dadd(94.422, 105.746, 13.197, 3.064)
pt3dadd(94.335, 105.828, 13.193, 3.028)
pt3dadd(94.249, 105.912, 13.191, 2.986)
pt3dadd(94.162, 105.995, 13.188, 2.946)
pt3dadd(94.076, 106.078, 13.186, 2.904)
pt3dadd(93.99, 106.162, 13.184, 2.862)
pt3dadd(93.904, 106.245, 13.182, 2.82)
pt3dadd(93.818, 106.329, 13.179, 2.778)
pt3dadd(93.731, 106.412, 13.177, 2.736)
pt3dadd(93.645, 106.496, 13.175, 2.696)
pt3dadd(93.559, 106.579, 13.173, 2.654)
pt3dadd(93.472, 106.662, 13.169, 2.624)
pt3dadd(93.385, 106.744, 13.164, 2.598)
pt3dadd(93.297, 106.826, 13.16, 2.574)
pt3dadd(93.21, 106.908, 13.156, 2.55)
pt3dadd(93.123, 106.99, 13.151, 2.526)
pt3dadd(93.035, 107.072, 13.147, 2.502)
pt3dadd(92.948, 107.154, 13.142, 2.478)
pt3dadd(92.86, 107.236, 13.138, 2.454)
pt3dadd(92.773, 107.318, 13.134, 2.428)
pt3dadd(92.686, 107.4, 13.129, 2.404)
pt3dadd(92.598, 107.482, 13.124, 2.388)
pt3dadd(92.51, 107.563, 13.118, 2.374)
pt3dadd(92.421, 107.644, 13.112, 2.362)
pt3dadd(92.333, 107.725, 13.106, 2.348)
pt3dadd(92.245, 107.806, 13.101, 2.336)
pt3dadd(92.157, 107.887, 13.095, 2.322)
pt3dadd(92.068, 107.968, 13.089, 2.31)
pt3dadd(91.98, 108.049, 13.083, 2.296)
pt3dadd(91.892, 108.13, 13.077, 2.282)
pt3dadd(91.804, 108.211, 13.072, 2.27)
pt3dadd(91.714, 108.29, 13.063, 2.276)
pt3dadd(91.624, 108.368, 13.053, 2.29)
pt3dadd(91.534, 108.447, 13.043, 2.304)
pt3dadd(91.443, 108.525, 13.034, 2.318)
pt3dadd(91.353, 108.603, 13.024, 2.334)
pt3dadd(91.263, 108.681, 13.014, 2.348)
pt3dadd(91.173, 108.76, 13.004, 2.362)
pt3dadd(91.083, 108.838, 12.994, 2.376)
pt3dadd(90.992, 108.916, 12.984, 2.392)
pt3dadd(90.902, 108.994, 12.974, 2.406)
pt3dadd(90.808, 109.066, 12.956, 2.41)
pt3dadd(90.713, 109.134, 12.934, 2.41)
pt3dadd(90.618, 109.202, 12.912, 2.41)
pt3dadd(90.523, 109.27, 12.89, 2.41)
pt3dadd(90.428, 109.338, 12.867, 2.41)
pt3dadd(90.332, 109.405, 12.845, 2.41)
pt3dadd(90.237, 109.473, 12.823, 2.41)
pt3dadd(90.142, 109.541, 12.8, 2.41)
pt3dadd(90.047, 109.609, 12.778, 2.41)
pt3dadd(89.952, 109.677, 12.756, 2.41)
pt3dadd(89.854, 109.735, 12.724, 2.398)
pt3dadd(89.757, 109.791, 12.689, 2.382)
pt3dadd(89.659, 109.847, 12.654, 2.368)
pt3dadd(89.561, 109.903, 12.62, 2.352)
pt3dadd(89.463, 109.958, 12.585, 2.338)
pt3dadd(89.365, 110.014, 12.55, 2.324)
pt3dadd(89.267, 110.07, 12.516, 2.308)
pt3dadd(89.169, 110.125, 12.481, 2.292)
pt3dadd(89.072, 110.181, 12.447, 2.278)
pt3dadd(88.974, 110.237, 12.412, 2.262)
pt3dadd(88.877, 110.299, 12.385, 2.26)
pt3dadd(88.78, 110.364, 12.359, 2.26)
pt3dadd(88.684, 110.428, 12.333, 2.26)
pt3dadd(88.587, 110.492, 12.308, 2.26)
pt3dadd(88.491, 110.557, 12.282, 2.26)
pt3dadd(88.394, 110.621, 12.257, 2.26)
pt3dadd(88.298, 110.685, 12.231, 2.26)
pt3dadd(88.201, 110.749, 12.205, 2.26)
pt3dadd(88.105, 110.814, 12.18, 2.26)
pt3dadd(88.008, 110.878, 12.154, 2.26)
pt3dadd(87.912, 110.945, 12.132, 2.268)
pt3dadd(87.817, 111.013, 12.111, 2.276)
pt3dadd(87.721, 111.081, 12.089, 2.286)
pt3dadd(87.626, 111.149, 12.068, 2.294)
pt3dadd(87.53, 111.217, 12.047, 2.304)
pt3dadd(87.434, 111.285, 12.025, 2.312)
pt3dadd(87.339, 111.353, 12.004, 2.322)
pt3dadd(87.243, 111.421, 11.983, 2.33)
pt3dadd(87.148, 111.489, 11.962, 2.34)
pt3dadd(87.052, 111.557, 11.94, 2.35)
pt3dadd(86.956, 111.625, 11.92, 2.36)
pt3dadd(86.861, 111.693, 11.9, 2.372)
pt3dadd(86.765, 111.762, 11.88, 2.384)
pt3dadd(86.67, 111.83, 11.86, 2.396)
pt3dadd(86.574, 111.899, 11.84, 2.408)
pt3dadd(86.478, 111.967, 11.82, 2.42)
pt3dadd(86.383, 112.035, 11.8, 2.43)
pt3dadd(86.287, 112.104, 11.78, 2.442)
pt3dadd(86.192, 112.172, 11.76, 2.454)
pt3dadd(86.096, 112.241, 11.74, 2.466)
pt3dadd(85.997, 112.296, 11.708, 2.454)
pt3dadd(85.897, 112.348, 11.674, 2.438)
pt3dadd(85.797, 112.4, 11.64, 2.422)
pt3dadd(85.697, 112.452, 11.606, 2.406)
pt3dadd(85.597, 112.505, 11.573, 2.39)
pt3dadd(85.497, 112.557, 11.539, 2.374)
pt3dadd(85.396, 112.609, 11.505, 2.358)
pt3dadd(85.296, 112.662, 11.471, 2.342)
pt3dadd(85.196, 112.714, 11.437, 2.326)
pt3dadd(85.096, 112.766, 11.403, 2.31)
pt3dadd(84.996, 112.824, 11.376, 2.302)
pt3dadd(84.897, 112.884, 11.351, 2.298)
pt3dadd(84.797, 112.943, 11.326, 2.294)
pt3dadd(84.697, 113.002, 11.3, 2.288)
pt3dadd(84.597, 113.062, 11.275, 2.284)
pt3dadd(84.497, 113.121, 11.25, 2.28)
pt3dadd(84.398, 113.18, 11.225, 2.274)
pt3dadd(84.298, 113.239, 11.199, 2.27)
pt3dadd(84.198, 113.299, 11.174, 2.266)
pt3dadd(84.098, 113.358, 11.149, 2.26)
pt3dadd(83.996, 113.417, 11.129, 2.26)
pt3dadd(83.894, 113.475, 11.11, 2.26)
pt3dadd(83.791, 113.533, 11.091, 2.26)
pt3dadd(83.689, 113.592, 11.072, 2.26)
pt3dadd(83.587, 113.65, 11.053, 2.26)
}
}
proc shape3d_25() {
apic { pt3dadd(83.484, 113.709, 11.034, 2.26)
pt3dadd(83.382, 113.767, 11.015, 2.26)
pt3dadd(83.28, 113.825, 10.996, 2.26)
pt3dadd(83.178, 113.884, 10.977, 2.26)
pt3dadd(83.075, 113.942, 10.958, 2.26)
pt3dadd(82.968, 113.993, 10.944, 2.26)
pt3dadd(82.859, 114.042, 10.932, 2.26)
pt3dadd(82.751, 114.092, 10.919, 2.26)
pt3dadd(82.643, 114.142, 10.906, 2.26)
pt3dadd(82.535, 114.191, 10.894, 2.26)
pt3dadd(82.427, 114.241, 10.881, 2.26)
pt3dadd(82.318, 114.291, 10.869, 2.26)
pt3dadd(82.21, 114.34, 10.856, 2.26)
pt3dadd(82.102, 114.39, 10.844, 2.26)
pt3dadd(81.994, 114.44, 10.831, 2.26)
pt3dadd(81.88, 114.415, 10.834, 2.21)
pt3dadd(81.765, 114.38, 10.839, 2.156)
pt3dadd(81.65, 114.346, 10.845, 2.1)
}
apic[1] {pt3dclear()
pt3dadd(81.65, 114.346, 10.845, 2.1)
pt3dadd(81.631, 114.408, 10.838, 2.112)
pt3dadd(81.594, 114.521, 10.827, 2.136)
pt3dadd(81.558, 114.635, 10.815, 2.16)
pt3dadd(81.522, 114.748, 10.803, 2.182)
pt3dadd(81.431, 114.822, 10.797, 2.17)
pt3dadd(81.332, 114.889, 10.79, 2.154)
pt3dadd(81.233, 114.957, 10.785, 2.138)
pt3dadd(81.134, 115.025, 10.778, 2.12)
pt3dadd(81.036, 115.093, 10.772, 2.104)
pt3dadd(80.937, 115.16, 10.766, 2.088)
pt3dadd(80.838, 115.228, 10.76, 2.07)
pt3dadd(80.739, 115.296, 10.754, 2.054)
pt3dadd(80.641, 115.364, 10.748, 2.038)
pt3dadd(80.542, 115.432, 10.742, 2.02)
pt3dadd(80.447, 115.504, 10.733, 1.992)
pt3dadd(80.352, 115.577, 10.724, 1.962)
pt3dadd(80.258, 115.65, 10.715, 1.93)
pt3dadd(80.163, 115.723, 10.705, 1.9)
pt3dadd(80.069, 115.796, 10.696, 1.87)
pt3dadd(79.974, 115.869, 10.687, 1.84)
pt3dadd(79.88, 115.942, 10.677, 1.808)
pt3dadd(79.785, 116.015, 10.668, 1.778)
pt3dadd(79.69, 116.088, 10.659, 1.748)
pt3dadd(79.596, 116.162, 10.649, 1.718)
pt3dadd(79.499, 116.228, 10.628, 1.71)
pt3dadd(79.402, 116.293, 10.605, 1.706)
pt3dadd(79.305, 116.358, 10.582, 1.702)
pt3dadd(79.209, 116.423, 10.559, 1.698)
pt3dadd(79.112, 116.488, 10.537, 1.692)
pt3dadd(79.015, 116.554, 10.514, 1.688)
pt3dadd(78.918, 116.619, 10.491, 1.684)
pt3dadd(78.821, 116.684, 10.468, 1.68)
pt3dadd(78.724, 116.749, 10.445, 1.676)
pt3dadd(78.627, 116.814, 10.422, 1.672)
pt3dadd(78.53, 116.874, 10.391, 1.682)
pt3dadd(78.433, 116.934, 10.36, 1.694)
pt3dadd(78.336, 116.994, 10.329, 1.706)
pt3dadd(78.239, 117.054, 10.297, 1.718)
pt3dadd(78.142, 117.114, 10.266, 1.73)
pt3dadd(78.045, 117.174, 10.235, 1.742)
pt3dadd(77.948, 117.234, 10.204, 1.752)
pt3dadd(77.851, 117.294, 10.172, 1.764)
pt3dadd(77.754, 117.354, 10.141, 1.776)
pt3dadd(77.657, 117.414, 10.11, 1.788)
pt3dadd(77.563, 117.484, 10.09, 1.774)
pt3dadd(77.469, 117.555, 10.07, 1.758)
pt3dadd(77.375, 117.626, 10.05, 1.742)
pt3dadd(77.281, 117.696, 10.03, 1.728)
pt3dadd(77.187, 117.767, 10.01, 1.712)
pt3dadd(77.093, 117.837, 9.99, 1.698)
pt3dadd(76.999, 117.908, 9.97, 1.682)
pt3dadd(76.905, 117.978, 9.95, 1.666)
pt3dadd(76.811, 118.049, 9.93, 1.652)
pt3dadd(76.717, 118.119, 9.91, 1.636)
pt3dadd(76.626, 118.196, 9.896, 1.63)
pt3dadd(76.534, 118.272, 9.883, 1.626)
pt3dadd(76.443, 118.348, 9.87, 1.62)
pt3dadd(76.352, 118.425, 9.856, 1.614)
pt3dadd(76.261, 118.501, 9.843, 1.608)
pt3dadd(76.17, 118.578, 9.83, 1.604)
pt3dadd(76.078, 118.654, 9.816, 1.598)
pt3dadd(75.987, 118.73, 9.803, 1.592)
pt3dadd(75.896, 118.807, 9.79, 1.588)
pt3dadd(75.805, 118.883, 9.776, 1.582)
pt3dadd(75.716, 118.963, 9.768, 1.58)
pt3dadd(75.627, 119.043, 9.759, 1.58)
pt3dadd(75.538, 119.123, 9.75, 1.578)
pt3dadd(75.449, 119.203, 9.741, 1.576)
pt3dadd(75.36, 119.283, 9.732, 1.574)
pt3dadd(75.272, 119.362, 9.723, 1.574)
pt3dadd(75.183, 119.442, 9.714, 1.572)
pt3dadd(75.094, 119.522, 9.706, 1.57)
pt3dadd(75.005, 119.602, 9.697, 1.57)
pt3dadd(74.916, 119.682, 9.688, 1.568)
}
apic[2] {pt3dclear()
pt3dadd(74.916, 119.682, 9.688, 1.568)
pt3dadd(74.859, 119.739, 9.686, 1.558)
pt3dadd(74.774, 119.824, 9.684, 1.544)
pt3dadd(74.689, 119.909, 9.682, 1.53)
pt3dadd(74.604, 119.994, 9.679, 1.516)
pt3dadd(74.52, 120.078, 9.677, 1.502)
pt3dadd(74.435, 120.163, 9.675, 1.488)
pt3dadd(74.35, 120.248, 9.672, 1.474)
pt3dadd(74.265, 120.332, 9.67, 1.46)
pt3dadd(74.18, 120.418, 9.668, 1.446)
pt3dadd(74.095, 120.503, 9.665, 1.432)
pt3dadd(74.011, 120.588, 9.662, 1.418)
pt3dadd(73.926, 120.672, 9.658, 1.402)
pt3dadd(73.841, 120.757, 9.654, 1.388)
pt3dadd(73.756, 120.841, 9.65, 1.374)
pt3dadd(73.671, 120.926, 9.645, 1.36)
pt3dadd(73.587, 121.012, 9.641, 1.344)
pt3dadd(73.502, 121.096, 9.637, 1.33)
pt3dadd(73.417, 121.181, 9.633, 1.316)
pt3dadd(73.332, 121.266, 9.629, 1.302)
pt3dadd(73.248, 121.35, 9.625, 1.286)
pt3dadd(73.163, 121.435, 9.62, 1.272)
pt3dadd(73.078, 121.52, 9.614, 1.258)
pt3dadd(72.994, 121.604, 9.608, 1.242)
pt3dadd(72.909, 121.69, 9.602, 1.228)
pt3dadd(72.824, 121.775, 9.596, 1.214)
pt3dadd(72.74, 121.859, 9.59, 1.198)
pt3dadd(72.655, 121.944, 9.584, 1.184)
pt3dadd(72.57, 122.028, 9.578, 1.168)
pt3dadd(72.486, 122.113, 9.572, 1.154)
pt3dadd(72.401, 122.198, 9.566, 1.14)
pt3dadd(72.317, 122.282, 9.557, 1.134)
pt3dadd(72.232, 122.368, 9.547, 1.134)
pt3dadd(72.148, 122.452, 9.536, 1.134)
pt3dadd(72.064, 122.536, 9.526, 1.132)
pt3dadd(71.979, 122.621, 9.515, 1.132)
pt3dadd(71.895, 122.705, 9.504, 1.132)
pt3dadd(71.811, 122.789, 9.494, 1.132)
pt3dadd(71.726, 122.874, 9.483, 1.132)
pt3dadd(71.642, 122.958, 9.473, 1.13)
pt3dadd(71.558, 123.042, 9.462, 1.13)
pt3dadd(71.476, 123.125, 9.438, 1.122)
pt3dadd(71.395, 123.205, 9.408, 1.112)
pt3dadd(71.314, 123.286, 9.377, 1.1)
pt3dadd(71.233, 123.367, 9.347, 1.088)
pt3dadd(71.152, 123.448, 9.316, 1.078)
pt3dadd(71.072, 123.529, 9.286, 1.066)
pt3dadd(70.991, 123.61, 9.255, 1.054)
pt3dadd(70.91, 123.69, 9.225, 1.044)
pt3dadd(70.829, 123.772, 9.195, 1.032)
pt3dadd(70.749, 123.852, 9.164, 1.02)
pt3dadd(70.671, 123.93, 9.125, 1.016)
pt3dadd(70.593, 124.008, 9.085, 1.014)
pt3dadd(70.516, 124.086, 9.044, 1.01)
pt3dadd(70.438, 124.164, 9.004, 1.008)
pt3dadd(70.361, 124.241, 8.963, 1.006)
pt3dadd(70.284, 124.319, 8.923, 1.002)
pt3dadd(70.206, 124.397, 8.882, 1)
pt3dadd(70.129, 124.475, 8.842, 0.996)
pt3dadd(70.051, 124.553, 8.801, 0.994)
pt3dadd(69.974, 124.63, 8.761, 0.992)
pt3dadd(69.893, 124.711, 8.73, 1.016)
pt3dadd(69.813, 124.793, 8.701, 1.044)
pt3dadd(69.732, 124.874, 8.672, 1.072)
pt3dadd(69.651, 124.955, 8.643, 1.102)
pt3dadd(69.57, 125.036, 8.613, 1.13)
pt3dadd(69.489, 125.118, 8.584, 1.158)
pt3dadd(69.408, 125.2, 8.555, 1.186)
pt3dadd(69.327, 125.281, 8.525, 1.214)
pt3dadd(69.246, 125.362, 8.496, 1.242)
pt3dadd(69.165, 125.443, 8.467, 1.27)
pt3dadd(69.083, 125.526, 8.444, 1.32)
pt3dadd(69.001, 125.61, 8.423, 1.374)
pt3dadd(68.918, 125.693, 8.401, 1.426)
pt3dadd(68.836, 125.777, 8.379, 1.478)
pt3dadd(68.754, 125.86, 8.357, 1.53)
pt3dadd(68.671, 125.942, 8.335, 1.582)
pt3dadd(68.589, 126.026, 8.313, 1.636)
pt3dadd(68.507, 126.109, 8.291, 1.688)
pt3dadd(68.424, 126.192, 8.269, 1.74)
pt3dadd(68.342, 126.276, 8.248, 1.792)
pt3dadd(68.267, 126.353, 8.204, 1.818)
pt3dadd(68.192, 126.428, 8.158, 1.838)
pt3dadd(68.118, 126.505, 8.112, 1.86)
pt3dadd(68.043, 126.582, 8.066, 1.882)
pt3dadd(67.969, 126.658, 8.02, 1.904)
pt3dadd(67.895, 126.734, 7.974, 1.924)
pt3dadd(67.82, 126.81, 7.928, 1.946)
pt3dadd(67.746, 126.887, 7.882, 1.968)
pt3dadd(67.671, 126.962, 7.836, 1.99)
pt3dadd(67.597, 127.039, 7.79, 2.012)
pt3dadd(67.519, 127.121, 7.757, 2)
pt3dadd(67.441, 127.204, 7.725, 1.984)
pt3dadd(67.363, 127.286, 7.692, 1.97)
pt3dadd(67.285, 127.369, 7.66, 1.956)
pt3dadd(67.207, 127.451, 7.628, 1.942)
pt3dadd(67.129, 127.534, 7.596, 1.926)
pt3dadd(67.051, 127.616, 7.564, 1.912)
pt3dadd(66.972, 127.699, 7.532, 1.898)
pt3dadd(66.894, 127.782, 7.5, 1.884)
pt3dadd(66.816, 127.865, 7.468, 1.868)
pt3dadd(66.736, 127.949, 7.444, 1.852)
pt3dadd(66.656, 128.034, 7.421, 1.834)
pt3dadd(66.576, 128.119, 7.398, 1.816)
pt3dadd(66.496, 128.203, 7.375, 1.8)
pt3dadd(66.416, 128.288, 7.351, 1.782)
pt3dadd(66.336, 128.374, 7.328, 1.764)
}
}
proc shape3d_26() {
apic[2] { pt3dadd(66.256, 128.459, 7.305, 1.748)
pt3dadd(66.176, 128.544, 7.282, 1.73)
pt3dadd(66.096, 128.628, 7.258, 1.712)
pt3dadd(66.016, 128.713, 7.235, 1.696)
pt3dadd(65.94, 128.802, 7.21, 1.694)
pt3dadd(65.865, 128.89, 7.185, 1.694)
pt3dadd(65.79, 128.978, 7.16, 1.694)
pt3dadd(65.714, 129.067, 7.135, 1.694)
pt3dadd(65.639, 129.156, 7.11, 1.694)
pt3dadd(65.564, 129.244, 7.085, 1.694)
pt3dadd(65.489, 129.332, 7.06, 1.694)
pt3dadd(65.413, 129.421, 7.035, 1.694)
pt3dadd(65.338, 129.51, 7.01, 1.696)
pt3dadd(65.263, 129.598, 6.984, 1.696)
pt3dadd(65.2, 129.691, 6.949, 1.728)
pt3dadd(65.137, 129.784, 6.914, 1.762)
pt3dadd(65.073, 129.877, 6.879, 1.796)
pt3dadd(65.01, 129.97, 6.844, 1.83)
pt3dadd(64.947, 130.063, 6.809, 1.864)
pt3dadd(64.884, 130.156, 6.774, 1.898)
pt3dadd(64.821, 130.249, 6.739, 1.932)
pt3dadd(64.758, 130.342, 6.703, 1.966)
pt3dadd(64.695, 130.435, 6.668, 2)
pt3dadd(64.632, 130.528, 6.633, 2.034)
}
apic[3] {pt3dclear()
pt3dadd(64.632, 130.528, 6.633, 2.034)
pt3dadd(64.56, 130.585, 6.614, 2.018)
pt3dadd(64.469, 130.657, 6.589, 2)
pt3dadd(64.378, 130.729, 6.564, 1.98)
pt3dadd(64.287, 130.802, 6.54, 1.96)
pt3dadd(64.197, 130.874, 6.515, 1.94)
pt3dadd(64.106, 130.948, 6.49, 1.92)
pt3dadd(64.014, 131.02, 6.466, 1.9)
pt3dadd(63.924, 131.092, 6.442, 1.88)
pt3dadd(63.833, 131.165, 6.417, 1.862)
pt3dadd(63.742, 131.237, 6.392, 1.842)
pt3dadd(63.651, 131.31, 6.368, 1.822)
pt3dadd(63.56, 131.382, 6.343, 1.802)
pt3dadd(63.468, 131.459, 6.333, 1.77)
pt3dadd(63.377, 131.536, 6.324, 1.736)
pt3dadd(63.286, 131.614, 6.314, 1.704)
pt3dadd(63.195, 131.69, 6.305, 1.67)
pt3dadd(63.103, 131.767, 6.295, 1.638)
pt3dadd(63.012, 131.844, 6.286, 1.604)
pt3dadd(62.921, 131.921, 6.276, 1.572)
pt3dadd(62.829, 131.999, 6.267, 1.538)
pt3dadd(62.738, 132.076, 6.257, 1.506)
pt3dadd(62.647, 132.152, 6.247, 1.472)
pt3dadd(62.556, 132.232, 6.244, 1.468)
pt3dadd(62.466, 132.31, 6.241, 1.466)
pt3dadd(62.376, 132.389, 6.237, 1.464)
pt3dadd(62.285, 132.468, 6.234, 1.462)
pt3dadd(62.195, 132.546, 6.231, 1.46)
pt3dadd(62.104, 132.625, 6.227, 1.458)
pt3dadd(62.014, 132.704, 6.224, 1.456)
pt3dadd(61.924, 132.782, 6.221, 1.454)
pt3dadd(61.833, 132.862, 6.217, 1.452)
pt3dadd(61.743, 132.941, 6.214, 1.45)
pt3dadd(61.653, 133.02, 6.214, 1.464)
pt3dadd(61.564, 133.1, 6.214, 1.478)
pt3dadd(61.475, 133.181, 6.214, 1.494)
pt3dadd(61.385, 133.261, 6.214, 1.508)
pt3dadd(61.296, 133.34, 6.214, 1.522)
pt3dadd(61.206, 133.421, 6.214, 1.536)
pt3dadd(61.117, 133.501, 6.214, 1.55)
pt3dadd(61.028, 133.58, 6.214, 1.566)
pt3dadd(60.938, 133.661, 6.214, 1.58)
pt3dadd(60.849, 133.741, 6.214, 1.594)
pt3dadd(60.763, 133.825, 6.214, 1.608)
pt3dadd(60.678, 133.91, 6.214, 1.622)
pt3dadd(60.593, 133.994, 6.214, 1.636)
pt3dadd(60.508, 134.08, 6.214, 1.648)
pt3dadd(60.423, 134.164, 6.214, 1.662)
pt3dadd(60.338, 134.249, 6.214, 1.676)
pt3dadd(60.253, 134.333, 6.214, 1.69)
pt3dadd(60.168, 134.418, 6.214, 1.704)
pt3dadd(60.083, 134.502, 6.214, 1.718)
pt3dadd(59.998, 134.587, 6.214, 1.73)
pt3dadd(59.912, 134.671, 6.214, 1.722)
pt3dadd(59.827, 134.755, 6.214, 1.71)
pt3dadd(59.742, 134.84, 6.214, 1.7)
pt3dadd(59.657, 134.924, 6.214, 1.69)
pt3dadd(59.571, 135.01, 6.214, 1.678)
pt3dadd(59.486, 135.094, 6.214, 1.668)
pt3dadd(59.401, 135.178, 6.214, 1.658)
pt3dadd(59.316, 135.263, 6.214, 1.648)
pt3dadd(59.23, 135.347, 6.213, 1.636)
pt3dadd(59.145, 135.432, 6.213, 1.626)
pt3dadd(59.06, 135.516, 6.213, 1.586)
pt3dadd(58.974, 135.6, 6.213, 1.544)
pt3dadd(58.889, 135.684, 6.213, 1.504)
pt3dadd(58.803, 135.768, 6.213, 1.462)
pt3dadd(58.718, 135.853, 6.213, 1.42)
pt3dadd(58.633, 135.937, 6.213, 1.38)
pt3dadd(58.547, 136.021, 6.213, 1.338)
pt3dadd(58.462, 136.105, 6.213, 1.296)
pt3dadd(58.376, 136.189, 6.213, 1.256)
pt3dadd(58.291, 136.274, 6.213, 1.214)
pt3dadd(58.205, 136.358, 6.213, 1.226)
pt3dadd(58.119, 136.441, 6.213, 1.24)
pt3dadd(58.033, 136.525, 6.213, 1.254)
pt3dadd(57.947, 136.609, 6.212, 1.268)
pt3dadd(57.861, 136.693, 6.212, 1.282)
pt3dadd(57.775, 136.777, 6.212, 1.296)
pt3dadd(57.689, 136.86, 6.212, 1.31)
pt3dadd(57.603, 136.944, 6.212, 1.324)
pt3dadd(57.517, 137.028, 6.212, 1.338)
pt3dadd(57.432, 137.112, 6.212, 1.352)
pt3dadd(57.345, 137.195, 6.212, 1.372)
pt3dadd(57.259, 137.279, 6.212, 1.392)
pt3dadd(57.173, 137.362, 6.212, 1.412)
pt3dadd(57.086, 137.446, 6.211, 1.434)
pt3dadd(57, 137.528, 6.211, 1.454)
pt3dadd(56.914, 137.612, 6.211, 1.474)
pt3dadd(56.827, 137.695, 6.211, 1.496)
pt3dadd(56.741, 137.779, 6.211, 1.516)
pt3dadd(56.655, 137.862, 6.211, 1.536)
pt3dadd(56.568, 137.946, 6.211, 1.558)
pt3dadd(56.481, 138.028, 6.21, 1.544)
pt3dadd(56.393, 138.109, 6.21, 1.53)
pt3dadd(56.305, 138.191, 6.21, 1.516)
pt3dadd(56.217, 138.272, 6.21, 1.502)
pt3dadd(56.13, 138.355, 6.209, 1.488)
pt3dadd(56.042, 138.437, 6.209, 1.474)
pt3dadd(55.954, 138.518, 6.209, 1.46)
pt3dadd(55.866, 138.6, 6.209, 1.446)
pt3dadd(55.779, 138.682, 6.208, 1.432)
pt3dadd(55.691, 138.764, 6.208, 1.416)
pt3dadd(55.602, 138.845, 6.208, 1.41)
pt3dadd(55.513, 138.925, 6.207, 1.404)
pt3dadd(55.424, 139.006, 6.207, 1.398)
pt3dadd(55.335, 139.086, 6.207, 1.392)
pt3dadd(55.247, 139.168, 6.206, 1.386)
pt3dadd(55.158, 139.248, 6.206, 1.38)
pt3dadd(55.069, 139.328, 6.205, 1.374)
pt3dadd(54.98, 139.409, 6.205, 1.368)
pt3dadd(54.891, 139.489, 6.205, 1.362)
pt3dadd(54.802, 139.571, 6.204, 1.356)
pt3dadd(54.712, 139.65, 6.204, 1.356)
pt3dadd(54.622, 139.729, 6.203, 1.358)
pt3dadd(54.532, 139.808, 6.203, 1.358)
pt3dadd(54.442, 139.888, 6.202, 1.358)
pt3dadd(54.352, 139.967, 6.201, 1.36)
pt3dadd(54.262, 140.047, 6.201, 1.36)
pt3dadd(54.172, 140.126, 6.2, 1.36)
pt3dadd(54.082, 140.206, 6.2, 1.362)
pt3dadd(53.992, 140.285, 6.199, 1.362)
pt3dadd(53.902, 140.364, 6.199, 1.362)
pt3dadd(53.8, 140.426, 6.197, 1.396)
pt3dadd(53.697, 140.489, 6.196, 1.428)
pt3dadd(53.595, 140.551, 6.195, 1.462)
pt3dadd(53.492, 140.614, 6.193, 1.496)
pt3dadd(53.39, 140.676, 6.192, 1.53)
pt3dadd(53.287, 140.737, 6.191, 1.562)
pt3dadd(53.184, 140.8, 6.189, 1.596)
pt3dadd(53.082, 140.862, 6.188, 1.63)
pt3dadd(52.979, 140.924, 6.187, 1.664)
pt3dadd(52.876, 140.987, 6.185, 1.696)
pt3dadd(52.779, 141.056, 6.183, 1.708)
pt3dadd(52.681, 141.126, 6.181, 1.72)
pt3dadd(52.584, 141.196, 6.179, 1.73)
pt3dadd(52.486, 141.265, 6.177, 1.742)
pt3dadd(52.388, 141.335, 6.174, 1.752)
pt3dadd(52.291, 141.404, 6.172, 1.764)
pt3dadd(52.193, 141.475, 6.17, 1.774)
pt3dadd(52.096, 141.545, 6.168, 1.786)
pt3dadd(51.998, 141.614, 6.166, 1.796)
pt3dadd(51.9, 141.684, 6.164, 1.808)
pt3dadd(51.807, 141.76, 6.16, 1.808)
pt3dadd(51.714, 141.835, 6.157, 1.808)
pt3dadd(51.621, 141.911, 6.154, 1.808)
pt3dadd(51.528, 141.986, 6.15, 1.808)
pt3dadd(51.435, 142.062, 6.147, 1.808)
pt3dadd(51.342, 142.138, 6.144, 1.808)
pt3dadd(51.249, 142.213, 6.14, 1.808)
pt3dadd(51.155, 142.289, 6.137, 1.808)
pt3dadd(51.062, 142.364, 6.133, 1.808)
pt3dadd(50.969, 142.44, 6.13, 1.808)
pt3dadd(50.882, 142.522, 6.124, 1.808)
pt3dadd(50.795, 142.604, 6.118, 1.808)
pt3dadd(50.708, 142.687, 6.112, 1.808)
pt3dadd(50.622, 142.769, 6.106, 1.808)
pt3dadd(50.535, 142.852, 6.1, 1.808)
pt3dadd(50.448, 142.934, 6.094, 1.808)
pt3dadd(50.361, 143.017, 6.088, 1.808)
pt3dadd(50.274, 143.099, 6.082, 1.808)
pt3dadd(50.187, 143.182, 6.076, 1.808)
pt3dadd(50.1, 143.264, 6.07, 1.808)
pt3dadd(50.018, 143.351, 6.062, 1.808)
pt3dadd(49.937, 143.438, 6.053, 1.808)
pt3dadd(49.855, 143.526, 6.044, 1.808)
pt3dadd(49.773, 143.614, 6.035, 1.808)
pt3dadd(49.692, 143.7, 6.026, 1.808)
pt3dadd(49.61, 143.788, 6.018, 1.808)
pt3dadd(49.528, 143.875, 6.009, 1.808)
pt3dadd(49.447, 143.963, 6, 1.808)
pt3dadd(49.365, 144.049, 5.991, 1.808)
pt3dadd(49.283, 144.137, 5.982, 1.808)
}
apic[4] {pt3dclear()
pt3dadd(49.283, 144.137, 5.982, 1.808)
pt3dadd(49.224, 144.206, 5.971, 1.808)
pt3dadd(49.148, 144.298, 5.957, 1.808)
}
}
proc shape3d_27() {
apic[4] { pt3dadd(49.071, 144.388, 5.943, 1.808)
pt3dadd(48.995, 144.479, 5.928, 1.808)
pt3dadd(48.918, 144.57, 5.914, 1.808)
pt3dadd(48.842, 144.66, 5.899, 1.808)
pt3dadd(48.765, 144.751, 5.885, 1.808)
pt3dadd(48.689, 144.841, 5.87, 1.808)
pt3dadd(48.612, 144.932, 5.856, 1.808)
pt3dadd(48.535, 145.024, 5.841, 1.808)
pt3dadd(48.474, 145.118, 5.81, 1.808)
pt3dadd(48.414, 145.213, 5.774, 1.808)
pt3dadd(48.356, 145.309, 5.739, 1.808)
pt3dadd(48.297, 145.405, 5.704, 1.808)
pt3dadd(48.237, 145.5, 5.669, 1.808)
pt3dadd(48.179, 145.596, 5.634, 1.808)
pt3dadd(48.12, 145.692, 5.598, 1.808)
pt3dadd(48.06, 145.787, 5.563, 1.808)
pt3dadd(48.001, 145.883, 5.528, 1.808)
pt3dadd(47.943, 145.978, 5.493, 1.808)
pt3dadd(47.874, 146.07, 5.463, 1.778)
pt3dadd(47.805, 146.162, 5.435, 1.742)
pt3dadd(47.735, 146.254, 5.407, 1.708)
pt3dadd(47.665, 146.345, 5.379, 1.672)
pt3dadd(47.596, 146.437, 5.351, 1.636)
pt3dadd(47.526, 146.528, 5.323, 1.6)
pt3dadd(47.456, 146.621, 5.295, 1.566)
pt3dadd(47.386, 146.712, 5.267, 1.53)
pt3dadd(47.317, 146.803, 5.239, 1.494)
pt3dadd(47.247, 146.896, 5.21, 1.46)
pt3dadd(47.171, 146.984, 5.187, 1.434)
pt3dadd(47.095, 147.072, 5.163, 1.412)
pt3dadd(47.018, 147.16, 5.14, 1.388)
pt3dadd(46.942, 147.248, 5.117, 1.366)
pt3dadd(46.865, 147.336, 5.094, 1.342)
pt3dadd(46.789, 147.425, 5.07, 1.32)
pt3dadd(46.712, 147.512, 5.047, 1.296)
pt3dadd(46.636, 147.601, 5.024, 1.274)
pt3dadd(46.559, 147.689, 5, 1.25)
pt3dadd(46.483, 147.778, 4.977, 1.226)
pt3dadd(46.4, 147.86, 4.958, 1.252)
pt3dadd(46.316, 147.944, 4.941, 1.282)
pt3dadd(46.232, 148.027, 4.923, 1.312)
pt3dadd(46.148, 148.11, 4.905, 1.342)
pt3dadd(46.065, 148.194, 4.887, 1.374)
pt3dadd(45.981, 148.277, 4.869, 1.404)
pt3dadd(45.897, 148.36, 4.851, 1.434)
pt3dadd(45.813, 148.442, 4.833, 1.464)
pt3dadd(45.729, 148.526, 4.816, 1.496)
pt3dadd(45.646, 148.609, 4.798, 1.526)
pt3dadd(45.551, 148.674, 4.769, 1.534)
pt3dadd(45.455, 148.736, 4.739, 1.54)
pt3dadd(45.36, 148.799, 4.708, 1.544)
pt3dadd(45.264, 148.861, 4.678, 1.55)
pt3dadd(45.168, 148.924, 4.648, 1.556)
pt3dadd(45.072, 148.987, 4.617, 1.56)
pt3dadd(44.976, 149.05, 4.587, 1.566)
pt3dadd(44.881, 149.112, 4.557, 1.572)
pt3dadd(44.785, 149.174, 4.527, 1.576)
pt3dadd(44.689, 149.237, 4.497, 1.582)
pt3dadd(44.592, 149.299, 4.469, 1.582)
pt3dadd(44.496, 149.363, 4.442, 1.582)
pt3dadd(44.399, 149.425, 4.414, 1.582)
pt3dadd(44.302, 149.488, 4.387, 1.582)
pt3dadd(44.205, 149.551, 4.359, 1.582)
pt3dadd(44.108, 149.614, 4.332, 1.582)
pt3dadd(44.012, 149.677, 4.304, 1.582)
pt3dadd(43.915, 149.74, 4.277, 1.582)
pt3dadd(43.818, 149.802, 4.25, 1.582)
pt3dadd(43.721, 149.866, 4.222, 1.582)
pt3dadd(43.627, 149.935, 4.203, 1.582)
pt3dadd(43.532, 150.005, 4.183, 1.582)
pt3dadd(43.437, 150.076, 4.164, 1.582)
pt3dadd(43.343, 150.145, 4.145, 1.582)
pt3dadd(43.248, 150.216, 4.125, 1.582)
pt3dadd(43.154, 150.286, 4.106, 1.582)
pt3dadd(43.059, 150.355, 4.087, 1.582)
pt3dadd(42.964, 150.426, 4.067, 1.582)
pt3dadd(42.87, 150.496, 4.048, 1.582)
pt3dadd(42.775, 150.565, 4.028, 1.582)
pt3dadd(42.684, 150.643, 4.02, 1.596)
pt3dadd(42.593, 150.72, 4.012, 1.61)
pt3dadd(42.502, 150.798, 4.003, 1.626)
pt3dadd(42.411, 150.875, 3.995, 1.64)
pt3dadd(42.319, 150.953, 3.987, 1.654)
pt3dadd(42.228, 151.031, 3.979, 1.67)
pt3dadd(42.137, 151.108, 3.97, 1.684)
pt3dadd(42.046, 151.186, 3.962, 1.698)
pt3dadd(41.955, 151.262, 3.954, 1.712)
pt3dadd(41.864, 151.34, 3.946, 1.728)
pt3dadd(41.775, 151.421, 3.942, 1.714)
pt3dadd(41.687, 151.501, 3.94, 1.7)
pt3dadd(41.598, 151.583, 3.937, 1.686)
pt3dadd(41.51, 151.663, 3.934, 1.672)
pt3dadd(41.421, 151.745, 3.931, 1.658)
pt3dadd(41.333, 151.825, 3.928, 1.646)
pt3dadd(41.244, 151.907, 3.925, 1.632)
pt3dadd(41.155, 151.987, 3.922, 1.618)
pt3dadd(41.067, 152.069, 3.919, 1.604)
pt3dadd(40.978, 152.149, 3.916, 1.59)
pt3dadd(40.893, 152.233, 3.918, 1.544)
pt3dadd(40.807, 152.317, 3.921, 1.498)
pt3dadd(40.722, 152.401, 3.923, 1.452)
pt3dadd(40.636, 152.485, 3.925, 1.406)
pt3dadd(40.551, 152.569, 3.928, 1.36)
pt3dadd(40.465, 152.654, 3.93, 1.314)
pt3dadd(40.38, 152.738, 3.932, 1.268)
pt3dadd(40.294, 152.822, 3.934, 1.222)
pt3dadd(40.209, 152.906, 3.937, 1.176)
pt3dadd(40.123, 152.99, 3.939, 1.13)
}
apic[5] {pt3dclear()
pt3dadd(40.123, 152.99, 3.939, 1.13)
pt3dadd(40.105, 153.004, 3.94, 1.122)
pt3dadd(40.009, 153.074, 3.947, 1.084)
pt3dadd(39.913, 153.146, 3.954, 1.046)
pt3dadd(39.817, 153.217, 3.961, 1.008)
pt3dadd(39.72, 153.289, 3.969, 0.97)
pt3dadd(39.624, 153.36, 3.976, 0.932)
pt3dadd(39.528, 153.431, 3.983, 0.892)
pt3dadd(39.432, 153.503, 3.99, 0.854)
pt3dadd(39.336, 153.574, 3.997, 0.816)
pt3dadd(39.241, 153.646, 4.004, 0.778)
pt3dadd(39.168, 153.74, 4.016, 0.736)
pt3dadd(39.095, 153.835, 4.027, 0.692)
pt3dadd(39.022, 153.929, 4.039, 0.65)
pt3dadd(38.949, 154.024, 4.051, 0.608)
pt3dadd(38.876, 154.117, 4.063, 0.566)
pt3dadd(38.803, 154.212, 4.074, 0.522)
pt3dadd(38.73, 154.307, 4.086, 0.48)
pt3dadd(38.658, 154.4, 4.098, 0.438)
pt3dadd(38.585, 154.495, 4.109, 0.396)
pt3dadd(38.517, 154.591, 4.125, 0.36)
pt3dadd(38.47, 154.694, 4.156, 0.36)
pt3dadd(38.424, 154.799, 4.188, 0.36)
pt3dadd(38.377, 154.903, 4.219, 0.36)
pt3dadd(38.331, 155.006, 4.251, 0.358)
pt3dadd(38.284, 155.111, 4.282, 0.358)
pt3dadd(38.238, 155.215, 4.314, 0.358)
pt3dadd(38.191, 155.318, 4.345, 0.356)
pt3dadd(38.145, 155.423, 4.377, 0.356)
pt3dadd(38.099, 155.526, 4.409, 0.356)
pt3dadd(38.051, 155.63, 4.44, 0.356)
pt3dadd(38.002, 155.734, 4.471, 0.358)
pt3dadd(37.953, 155.837, 4.502, 0.36)
pt3dadd(37.904, 155.94, 4.533, 0.362)
pt3dadd(37.855, 156.043, 4.563, 0.362)
pt3dadd(37.806, 156.145, 4.594, 0.364)
pt3dadd(37.758, 156.248, 4.625, 0.366)
pt3dadd(37.709, 156.352, 4.656, 0.368)
pt3dadd(37.66, 156.455, 4.687, 0.37)
pt3dadd(37.611, 156.558, 4.718, 0.372)
pt3dadd(37.557, 156.66, 4.745, 0.366)
pt3dadd(37.496, 156.761, 4.765, 0.352)
pt3dadd(37.435, 156.862, 4.785, 0.338)
pt3dadd(37.374, 156.961, 4.806, 0.322)
pt3dadd(37.313, 157.062, 4.826, 0.308)
pt3dadd(37.252, 157.163, 4.846, 0.294)
pt3dadd(37.191, 157.262, 4.866, 0.278)
pt3dadd(37.13, 157.363, 4.887, 0.264)
pt3dadd(37.069, 157.464, 4.907, 0.25)
pt3dadd(37.008, 157.564, 4.927, 0.234)
pt3dadd(36.942, 157.662, 4.943, 0.226)
pt3dadd(36.869, 157.757, 4.953, 0.226)
pt3dadd(36.796, 157.852, 4.964, 0.226)
pt3dadd(36.723, 157.945, 4.974, 0.226)
pt3dadd(36.65, 158.04, 4.984, 0.226)
pt3dadd(36.577, 158.135, 4.994, 0.226)
pt3dadd(36.504, 158.23, 5.004, 0.226)
pt3dadd(36.431, 158.323, 5.014, 0.226)
pt3dadd(36.358, 158.418, 5.024, 0.226)
pt3dadd(36.285, 158.513, 5.034, 0.226)
pt3dadd(36.212, 158.608, 5.042, 0.23)
pt3dadd(36.139, 158.701, 5.047, 0.24)
pt3dadd(36.065, 158.796, 5.052, 0.25)
pt3dadd(35.992, 158.891, 5.058, 0.26)
pt3dadd(35.919, 158.986, 5.063, 0.27)
pt3dadd(35.845, 159.08, 5.068, 0.28)
pt3dadd(35.772, 159.175, 5.073, 0.29)
pt3dadd(35.699, 159.27, 5.078, 0.3)
pt3dadd(35.625, 159.365, 5.083, 0.31)
pt3dadd(35.552, 159.46, 5.089, 0.32)
pt3dadd(35.481, 159.557, 5.093, 0.332)
pt3dadd(35.413, 159.655, 5.097, 0.344)
pt3dadd(35.346, 159.755, 5.1, 0.358)
pt3dadd(35.278, 159.853, 5.104, 0.37)
pt3dadd(35.211, 159.953, 5.107, 0.382)
pt3dadd(35.143, 160.052, 5.11, 0.394)
pt3dadd(35.076, 160.151, 5.114, 0.408)
pt3dadd(35.008, 160.25, 5.117, 0.42)
pt3dadd(34.941, 160.349, 5.121, 0.432)
pt3dadd(34.873, 160.448, 5.124, 0.446)
pt3dadd(34.819, 160.554, 5.13, 0.452)
pt3dadd(34.778, 160.667, 5.137, 0.454)
pt3dadd(34.738, 160.78, 5.145, 0.454)
pt3dadd(34.697, 160.891, 5.153, 0.454)
pt3dadd(34.657, 161.004, 5.16, 0.456)
pt3dadd(34.616, 161.117, 5.168, 0.456)
pt3dadd(34.575, 161.23, 5.176, 0.458)
pt3dadd(34.535, 161.342, 5.183, 0.458)
pt3dadd(34.494, 161.455, 5.191, 0.46)
pt3dadd(34.454, 161.567, 5.199, 0.46)
pt3dadd(34.428, 161.683, 5.209, 0.472)
pt3dadd(34.416, 161.801, 5.223, 0.492)
}
}
proc shape3d_28() {
apic[5] { pt3dadd(34.405, 161.92, 5.237, 0.514)
pt3dadd(34.394, 162.037, 5.25, 0.536)
pt3dadd(34.382, 162.156, 5.264, 0.558)
pt3dadd(34.371, 162.275, 5.278, 0.578)
pt3dadd(34.359, 162.392, 5.291, 0.6)
pt3dadd(34.348, 162.511, 5.305, 0.622)
pt3dadd(34.337, 162.629, 5.319, 0.644)
pt3dadd(34.325, 162.748, 5.332, 0.666)
pt3dadd(34.325, 162.857, 5.366, 0.666)
pt3dadd(34.336, 162.958, 5.419, 0.648)
pt3dadd(34.347, 163.058, 5.473, 0.628)
pt3dadd(34.358, 163.159, 5.526, 0.608)
pt3dadd(34.369, 163.26, 5.58, 0.59)
pt3dadd(34.38, 163.361, 5.633, 0.57)
pt3dadd(34.392, 163.462, 5.687, 0.55)
pt3dadd(34.403, 163.562, 5.74, 0.532)
pt3dadd(34.414, 163.663, 5.794, 0.512)
pt3dadd(34.425, 163.764, 5.847, 0.492)
pt3dadd(34.442, 163.871, 5.889, 0.494)
pt3dadd(34.463, 163.982, 5.92, 0.514)
pt3dadd(34.484, 164.095, 5.951, 0.534)
pt3dadd(34.506, 164.207, 5.983, 0.554)
pt3dadd(34.527, 164.318, 6.014, 0.572)
pt3dadd(34.548, 164.43, 6.046, 0.592)
pt3dadd(34.57, 164.543, 6.077, 0.612)
pt3dadd(34.591, 164.654, 6.109, 0.632)
pt3dadd(34.612, 164.766, 6.14, 0.65)
pt3dadd(34.634, 164.879, 6.171, 0.67)
pt3dadd(34.669, 164.988, 6.195, 0.678)
pt3dadd(34.714, 165.097, 6.213, 0.676)
pt3dadd(34.759, 165.206, 6.231, 0.674)
pt3dadd(34.804, 165.316, 6.249, 0.672)
pt3dadd(34.849, 165.425, 6.268, 0.67)
pt3dadd(34.894, 165.534, 6.286, 0.67)
pt3dadd(34.939, 165.643, 6.304, 0.668)
pt3dadd(34.985, 165.752, 6.322, 0.666)
pt3dadd(35.03, 165.86, 6.341, 0.664)
pt3dadd(35.075, 165.97, 6.359, 0.664)
pt3dadd(35.105, 166.084, 6.373, 0.64)
pt3dadd(35.126, 166.201, 6.384, 0.602)
pt3dadd(35.148, 166.319, 6.396, 0.564)
pt3dadd(35.169, 166.436, 6.407, 0.526)
pt3dadd(35.191, 166.553, 6.419, 0.488)
pt3dadd(35.212, 166.67, 6.43, 0.45)
pt3dadd(35.234, 166.788, 6.442, 0.412)
pt3dadd(35.255, 166.906, 6.453, 0.374)
pt3dadd(35.276, 167.022, 6.464, 0.338)
pt3dadd(35.298, 167.14, 6.476, 0.3)
pt3dadd(35.309, 167.254, 6.501, 0.3)
pt3dadd(35.314, 167.368, 6.535, 0.324)
pt3dadd(35.319, 167.48, 6.568, 0.35)
pt3dadd(35.324, 167.593, 6.602, 0.374)
pt3dadd(35.329, 167.706, 6.635, 0.398)
pt3dadd(35.335, 167.819, 6.669, 0.424)
pt3dadd(35.34, 167.932, 6.702, 0.448)
pt3dadd(35.345, 168.044, 6.736, 0.472)
pt3dadd(35.35, 168.157, 6.769, 0.496)
pt3dadd(35.355, 168.271, 6.803, 0.522)
pt3dadd(35.34, 168.383, 6.833, 0.546)
pt3dadd(35.315, 168.496, 6.863, 0.572)
pt3dadd(35.29, 168.607, 6.892, 0.598)
pt3dadd(35.266, 168.719, 6.921, 0.624)
pt3dadd(35.241, 168.832, 6.951, 0.65)
pt3dadd(35.217, 168.943, 6.98, 0.674)
pt3dadd(35.192, 169.055, 7.01, 0.7)
pt3dadd(35.167, 169.168, 7.039, 0.726)
pt3dadd(35.143, 169.279, 7.068, 0.752)
pt3dadd(35.118, 169.391, 7.098, 0.778)
pt3dadd(35.087, 169.505, 7.119, 0.786)
pt3dadd(35.054, 169.618, 7.138, 0.794)
pt3dadd(35.022, 169.73, 7.158, 0.8)
pt3dadd(34.99, 169.843, 7.178, 0.806)
pt3dadd(34.957, 169.957, 7.197, 0.814)
pt3dadd(34.925, 170.07, 7.217, 0.82)
pt3dadd(34.893, 170.183, 7.237, 0.826)
pt3dadd(34.861, 170.296, 7.257, 0.834)
pt3dadd(34.828, 170.41, 7.276, 0.84)
pt3dadd(34.796, 170.522, 7.296, 0.846)
}
apic[6] {pt3dclear()
pt3dadd(34.796, 170.522, 7.296, 0.846)
pt3dadd(34.792, 170.564, 7.3, 0.84)
pt3dadd(34.78, 170.683, 7.31, 0.824)
pt3dadd(34.769, 170.802, 7.321, 0.806)
pt3dadd(34.757, 170.921, 7.331, 0.79)
pt3dadd(34.746, 171.04, 7.342, 0.772)
pt3dadd(34.734, 171.158, 7.352, 0.756)
pt3dadd(34.723, 171.277, 7.363, 0.738)
pt3dadd(34.711, 171.396, 7.373, 0.722)
pt3dadd(34.7, 171.515, 7.384, 0.704)
pt3dadd(34.688, 171.634, 7.394, 0.688)
pt3dadd(34.662, 171.749, 7.401, 0.678)
pt3dadd(34.614, 171.859, 7.402, 0.678)
pt3dadd(34.567, 171.97, 7.404, 0.678)
pt3dadd(34.52, 172.08, 7.405, 0.678)
pt3dadd(34.473, 172.19, 7.407, 0.678)
pt3dadd(34.426, 172.301, 7.408, 0.678)
pt3dadd(34.378, 172.41, 7.409, 0.678)
pt3dadd(34.331, 172.52, 7.411, 0.678)
pt3dadd(34.284, 172.631, 7.412, 0.678)
pt3dadd(34.237, 172.741, 7.413, 0.678)
pt3dadd(34.183, 172.848, 7.415, 0.666)
pt3dadd(34.12, 172.95, 7.418, 0.636)
pt3dadd(34.056, 173.052, 7.42, 0.608)
pt3dadd(33.993, 173.154, 7.423, 0.578)
pt3dadd(33.93, 173.256, 7.425, 0.548)
pt3dadd(33.867, 173.358, 7.428, 0.52)
pt3dadd(33.803, 173.46, 7.43, 0.49)
pt3dadd(33.74, 173.562, 7.432, 0.462)
pt3dadd(33.677, 173.664, 7.435, 0.432)
pt3dadd(33.613, 173.766, 7.437, 0.404)
pt3dadd(33.551, 173.868, 7.441, 0.388)
pt3dadd(33.488, 173.97, 7.446, 0.39)
pt3dadd(33.426, 174.072, 7.45, 0.394)
pt3dadd(33.364, 174.175, 7.455, 0.396)
pt3dadd(33.301, 174.277, 7.46, 0.398)
pt3dadd(33.239, 174.379, 7.465, 0.402)
pt3dadd(33.177, 174.482, 7.47, 0.404)
pt3dadd(33.114, 174.584, 7.474, 0.406)
pt3dadd(33.052, 174.686, 7.479, 0.41)
pt3dadd(32.99, 174.79, 7.484, 0.412)
pt3dadd(32.928, 174.892, 7.49, 0.422)
pt3dadd(32.865, 174.994, 7.498, 0.444)
pt3dadd(32.803, 175.096, 7.506, 0.466)
pt3dadd(32.741, 175.198, 7.514, 0.488)
pt3dadd(32.679, 175.301, 7.523, 0.51)
pt3dadd(32.617, 175.403, 7.531, 0.532)
pt3dadd(32.555, 175.505, 7.539, 0.554)
pt3dadd(32.492, 175.607, 7.547, 0.576)
pt3dadd(32.43, 175.709, 7.555, 0.598)
pt3dadd(32.368, 175.811, 7.563, 0.618)
pt3dadd(32.302, 175.91, 7.572, 0.622)
pt3dadd(32.233, 176.008, 7.584, 0.604)
pt3dadd(32.163, 176.105, 7.595, 0.586)
pt3dadd(32.093, 176.201, 7.606, 0.57)
pt3dadd(32.023, 176.298, 7.618, 0.552)
pt3dadd(31.953, 176.394, 7.629, 0.534)
pt3dadd(31.884, 176.491, 7.64, 0.516)
pt3dadd(31.814, 176.587, 7.651, 0.498)
pt3dadd(31.744, 176.684, 7.663, 0.48)
pt3dadd(31.674, 176.78, 7.674, 0.462)
pt3dadd(31.606, 176.87, 7.702, 0.474)
pt3dadd(31.539, 176.952, 7.75, 0.518)
pt3dadd(31.472, 177.032, 7.798, 0.562)
pt3dadd(31.404, 177.114, 7.846, 0.606)
pt3dadd(31.337, 177.196, 7.894, 0.652)
pt3dadd(31.27, 177.276, 7.942, 0.696)
pt3dadd(31.203, 177.358, 7.989, 0.74)
pt3dadd(31.136, 177.439, 8.037, 0.784)
pt3dadd(31.069, 177.52, 8.085, 0.828)
pt3dadd(31.002, 177.601, 8.133, 0.874)
pt3dadd(30.927, 177.683, 8.171, 0.898)
pt3dadd(30.845, 177.763, 8.197, 0.898)
pt3dadd(30.762, 177.845, 8.223, 0.898)
pt3dadd(30.679, 177.925, 8.25, 0.9)
pt3dadd(30.597, 178.007, 8.276, 0.9)
pt3dadd(30.514, 178.087, 8.302, 0.9)
pt3dadd(30.431, 178.169, 8.328, 0.902)
pt3dadd(30.348, 178.249, 8.354, 0.902)
pt3dadd(30.266, 178.331, 8.381, 0.902)
pt3dadd(30.183, 178.412, 8.407, 0.904)
pt3dadd(30.099, 178.493, 8.429, 0.892)
pt3dadd(30.014, 178.574, 8.447, 0.868)
pt3dadd(29.928, 178.656, 8.465, 0.846)
pt3dadd(29.843, 178.738, 8.484, 0.822)
pt3dadd(29.757, 178.819, 8.502, 0.798)
pt3dadd(29.672, 178.9, 8.52, 0.774)
pt3dadd(29.586, 178.981, 8.538, 0.75)
pt3dadd(29.501, 179.063, 8.556, 0.726)
pt3dadd(29.416, 179.144, 8.574, 0.702)
pt3dadd(29.33, 179.226, 8.592, 0.678)
pt3dadd(29.244, 179.308, 8.608, 0.654)
pt3dadd(29.157, 179.389, 8.621, 0.628)
pt3dadd(29.071, 179.471, 8.635, 0.6)
pt3dadd(28.984, 179.552, 8.648, 0.574)
pt3dadd(28.898, 179.633, 8.661, 0.548)
pt3dadd(28.811, 179.714, 8.675, 0.522)
pt3dadd(28.724, 179.796, 8.688, 0.494)
pt3dadd(28.638, 179.878, 8.701, 0.468)
pt3dadd(28.551, 179.959, 8.715, 0.442)
pt3dadd(28.465, 180.041, 8.728, 0.414)
pt3dadd(28.378, 180.122, 8.739, 0.394)
pt3dadd(28.29, 180.204, 8.749, 0.378)
pt3dadd(28.203, 180.286, 8.758, 0.364)
pt3dadd(28.116, 180.367, 8.767, 0.348)
pt3dadd(28.029, 180.449, 8.777, 0.334)
pt3dadd(27.942, 180.53, 8.786, 0.318)
pt3dadd(27.854, 180.612, 8.795, 0.302)
pt3dadd(27.767, 180.694, 8.805, 0.288)
pt3dadd(27.68, 180.775, 8.814, 0.272)
pt3dadd(27.593, 180.857, 8.824, 0.258)
pt3dadd(27.502, 180.93, 8.844, 0.262)
pt3dadd(27.408, 180.995, 8.877, 0.29)
pt3dadd(27.315, 181.058, 8.909, 0.316)
pt3dadd(27.221, 181.123, 8.941, 0.344)
pt3dadd(27.127, 181.187, 8.974, 0.37)
pt3dadd(27.034, 181.25, 9.006, 0.398)
pt3dadd(26.94, 181.315, 9.039, 0.424)
pt3dadd(26.847, 181.379, 9.071, 0.452)
pt3dadd(26.753, 181.444, 9.103, 0.478)
pt3dadd(26.659, 181.507, 9.136, 0.506)
pt3dadd(26.57, 181.578, 9.168, 0.514)
}
}
proc shape3d_29() {
apic[6] { pt3dadd(26.485, 181.654, 9.2, 0.508)
pt3dadd(26.4, 181.729, 9.233, 0.502)
pt3dadd(26.316, 181.805, 9.265, 0.496)
pt3dadd(26.231, 181.88, 9.297, 0.49)
pt3dadd(26.146, 181.955, 9.329, 0.482)
pt3dadd(26.061, 182.03, 9.361, 0.476)
pt3dadd(25.976, 182.106, 9.394, 0.47)
pt3dadd(25.891, 182.182, 9.426, 0.464)
pt3dadd(25.806, 182.257, 9.458, 0.458)
pt3dadd(25.725, 182.339, 9.483, 0.44)
pt3dadd(25.645, 182.425, 9.505, 0.418)
pt3dadd(25.565, 182.51, 9.527, 0.394)
pt3dadd(25.485, 182.597, 9.548, 0.372)
pt3dadd(25.405, 182.682, 9.57, 0.348)
pt3dadd(25.325, 182.768, 9.592, 0.326)
pt3dadd(25.246, 182.854, 9.613, 0.302)
pt3dadd(25.166, 182.94, 9.635, 0.28)
pt3dadd(25.086, 183.025, 9.657, 0.256)
pt3dadd(25.006, 183.112, 9.678, 0.234)
pt3dadd(24.921, 183.194, 9.693, 0.236)
pt3dadd(24.835, 183.276, 9.705, 0.248)
pt3dadd(24.748, 183.358, 9.717, 0.262)
pt3dadd(24.661, 183.439, 9.729, 0.276)
pt3dadd(24.575, 183.521, 9.741, 0.29)
pt3dadd(24.488, 183.602, 9.753, 0.302)
pt3dadd(24.401, 183.684, 9.765, 0.316)
pt3dadd(24.314, 183.766, 9.776, 0.33)
pt3dadd(24.228, 183.847, 9.788, 0.342)
pt3dadd(24.141, 183.929, 9.8, 0.356)
pt3dadd(24.05, 184.007, 9.809, 0.398)
pt3dadd(23.958, 184.084, 9.815, 0.452)
pt3dadd(23.866, 184.16, 9.822, 0.508)
pt3dadd(23.774, 184.236, 9.828, 0.562)
pt3dadd(23.682, 184.313, 9.835, 0.616)
pt3dadd(23.589, 184.39, 9.841, 0.67)
pt3dadd(23.497, 184.465, 9.848, 0.726)
pt3dadd(23.405, 184.542, 9.854, 0.78)
pt3dadd(23.313, 184.619, 9.861, 0.834)
pt3dadd(23.221, 184.694, 9.868, 0.888)
pt3dadd(23.146, 184.787, 9.865, 0.884)
pt3dadd(23.078, 184.886, 9.859, 0.854)
pt3dadd(23.01, 184.985, 9.853, 0.826)
pt3dadd(22.943, 185.083, 9.846, 0.796)
pt3dadd(22.875, 185.183, 9.84, 0.768)
pt3dadd(22.807, 185.281, 9.834, 0.738)
pt3dadd(22.739, 185.38, 9.828, 0.71)
pt3dadd(22.672, 185.479, 9.821, 0.68)
pt3dadd(22.604, 185.578, 9.815, 0.652)
pt3dadd(22.536, 185.676, 9.809, 0.622)
pt3dadd(22.469, 185.774, 9.803, 0.594)
pt3dadd(22.401, 185.874, 9.796, 0.564)
pt3dadd(22.333, 185.972, 9.79, 0.534)
pt3dadd(22.266, 186.072, 9.784, 0.506)
pt3dadd(22.198, 186.17, 9.778, 0.476)
pt3dadd(22.13, 186.269, 9.772, 0.448)
pt3dadd(22.063, 186.368, 9.765, 0.418)
pt3dadd(21.995, 186.467, 9.759, 0.39)
pt3dadd(21.927, 186.565, 9.753, 0.36)
pt3dadd(21.86, 186.665, 9.747, 0.332)
pt3dadd(21.794, 186.764, 9.741, 0.31)
pt3dadd(21.743, 186.872, 9.74, 0.338)
pt3dadd(21.691, 186.982, 9.739, 0.364)
pt3dadd(21.639, 187.09, 9.738, 0.392)
pt3dadd(21.588, 187.198, 9.737, 0.418)
pt3dadd(21.536, 187.306, 9.736, 0.446)
pt3dadd(21.484, 187.415, 9.736, 0.472)
pt3dadd(21.433, 187.523, 9.735, 0.5)
pt3dadd(21.381, 187.631, 9.734, 0.526)
pt3dadd(21.33, 187.74, 9.733, 0.554)
pt3dadd(21.278, 187.848, 9.732, 0.58)
pt3dadd(21.225, 187.955, 9.733, 0.608)
pt3dadd(21.172, 188.063, 9.734, 0.636)
pt3dadd(21.119, 188.171, 9.736, 0.662)
pt3dadd(21.066, 188.279, 9.737, 0.69)
pt3dadd(21.013, 188.386, 9.738, 0.718)
pt3dadd(20.96, 188.494, 9.739, 0.744)
pt3dadd(20.907, 188.602, 9.74, 0.772)
pt3dadd(20.854, 188.71, 9.742, 0.8)
pt3dadd(20.801, 188.816, 9.743, 0.826)
pt3dadd(20.744, 188.922, 9.744, 0.842)
pt3dadd(20.675, 189.02, 9.746, 0.824)
pt3dadd(20.606, 189.119, 9.747, 0.806)
pt3dadd(20.537, 189.216, 9.749, 0.788)
pt3dadd(20.468, 189.314, 9.75, 0.768)
pt3dadd(20.399, 189.413, 9.752, 0.75)
pt3dadd(20.33, 189.511, 9.753, 0.732)
pt3dadd(20.261, 189.608, 9.754, 0.714)
pt3dadd(20.192, 189.707, 9.756, 0.696)
pt3dadd(20.123, 189.805, 9.757, 0.676)
pt3dadd(20.052, 189.901, 9.759, 0.656)
pt3dadd(19.974, 189.994, 9.762, 0.626)
pt3dadd(19.897, 190.085, 9.764, 0.596)
pt3dadd(19.82, 190.177, 9.767, 0.568)
pt3dadd(19.742, 190.268, 9.769, 0.538)
pt3dadd(19.665, 190.361, 9.771, 0.508)
pt3dadd(19.588, 190.452, 9.774, 0.478)
pt3dadd(19.51, 190.543, 9.776, 0.448)
pt3dadd(19.433, 190.636, 9.779, 0.42)
pt3dadd(19.356, 190.727, 9.781, 0.39)
pt3dadd(19.278, 190.818, 9.784, 0.364)
pt3dadd(19.199, 190.909, 9.788, 0.35)
pt3dadd(19.121, 190.999, 9.792, 0.336)
pt3dadd(19.042, 191.09, 9.796, 0.322)
pt3dadd(18.963, 191.18, 9.8, 0.308)
pt3dadd(18.885, 191.272, 9.804, 0.294)
pt3dadd(18.806, 191.362, 9.809, 0.28)
pt3dadd(18.728, 191.452, 9.813, 0.264)
pt3dadd(18.649, 191.543, 9.817, 0.25)
pt3dadd(18.57, 191.633, 9.821, 0.236)
pt3dadd(18.491, 191.723, 9.826, 0.226)
pt3dadd(18.411, 191.813, 9.831, 0.226)
pt3dadd(18.332, 191.902, 9.837, 0.226)
pt3dadd(18.252, 191.992, 9.843, 0.226)
pt3dadd(18.172, 192.08, 9.848, 0.226)
pt3dadd(18.092, 192.169, 9.854, 0.226)
pt3dadd(18.012, 192.259, 9.86, 0.226)
pt3dadd(17.932, 192.348, 9.865, 0.226)
pt3dadd(17.852, 192.438, 9.871, 0.226)
pt3dadd(17.772, 192.527, 9.877, 0.226)
pt3dadd(17.694, 192.617, 9.884, 0.226)
pt3dadd(17.619, 192.71, 9.894, 0.226)
pt3dadd(17.544, 192.804, 9.904, 0.226)
pt3dadd(17.47, 192.896, 9.913, 0.226)
pt3dadd(17.395, 192.99, 9.923, 0.226)
pt3dadd(17.32, 193.082, 9.933, 0.226)
pt3dadd(17.246, 193.176, 9.943, 0.226)
pt3dadd(17.171, 193.27, 9.953, 0.226)
pt3dadd(17.096, 193.362, 9.963, 0.226)
pt3dadd(17.021, 193.456, 9.973, 0.226)
pt3dadd(16.95, 193.55, 9.986, 0.23)
pt3dadd(16.887, 193.649, 10.008, 0.244)
pt3dadd(16.824, 193.747, 10.031, 0.26)
pt3dadd(16.761, 193.847, 10.053, 0.274)
pt3dadd(16.699, 193.945, 10.075, 0.29)
pt3dadd(16.636, 194.044, 10.097, 0.304)
pt3dadd(16.573, 194.142, 10.119, 0.318)
pt3dadd(16.51, 194.242, 10.141, 0.334)
pt3dadd(16.447, 194.34, 10.164, 0.348)
pt3dadd(16.385, 194.438, 10.186, 0.362)
pt3dadd(16.329, 194.539, 10.214, 0.384)
pt3dadd(16.284, 194.641, 10.25, 0.412)
pt3dadd(16.239, 194.744, 10.286, 0.44)
pt3dadd(16.194, 194.846, 10.322, 0.468)
pt3dadd(16.149, 194.948, 10.358, 0.496)
pt3dadd(16.104, 195.052, 10.394, 0.524)
pt3dadd(16.059, 195.154, 10.43, 0.554)
pt3dadd(16.014, 195.257, 10.466, 0.582)
pt3dadd(15.969, 195.359, 10.502, 0.61)
pt3dadd(15.924, 195.461, 10.538, 0.638)
pt3dadd(15.885, 195.568, 10.571, 0.64)
pt3dadd(15.855, 195.678, 10.6, 0.604)
pt3dadd(15.824, 195.788, 10.629, 0.568)
pt3dadd(15.794, 195.899, 10.659, 0.532)
pt3dadd(15.763, 196.009, 10.688, 0.496)
pt3dadd(15.733, 196.121, 10.717, 0.462)
pt3dadd(15.702, 196.231, 10.746, 0.426)
pt3dadd(15.672, 196.342, 10.776, 0.39)
pt3dadd(15.641, 196.452, 10.805, 0.354)
pt3dadd(15.611, 196.562, 10.834, 0.318)
pt3dadd(15.572, 196.672, 10.86, 0.302)
pt3dadd(15.523, 196.778, 10.882, 0.308)
pt3dadd(15.474, 196.884, 10.904, 0.314)
pt3dadd(15.425, 196.991, 10.926, 0.32)
pt3dadd(15.376, 197.096, 10.948, 0.326)
pt3dadd(15.327, 197.203, 10.969, 0.332)
pt3dadd(15.278, 197.31, 10.991, 0.338)
pt3dadd(15.228, 197.416, 11.013, 0.344)
pt3dadd(15.179, 197.522, 11.035, 0.35)
pt3dadd(15.13, 197.628, 11.057, 0.358)
pt3dadd(15.08, 197.734, 11.081, 0.368)
pt3dadd(15.03, 197.838, 11.107, 0.384)
pt3dadd(14.979, 197.941, 11.134, 0.402)
pt3dadd(14.928, 198.046, 11.16, 0.418)
pt3dadd(14.877, 198.15, 11.187, 0.436)
pt3dadd(14.827, 198.254, 11.213, 0.452)
pt3dadd(14.776, 198.358, 11.24, 0.468)
pt3dadd(14.725, 198.462, 11.266, 0.486)
pt3dadd(14.675, 198.566, 11.293, 0.502)
pt3dadd(14.624, 198.67, 11.319, 0.518)
pt3dadd(14.574, 198.773, 11.349, 0.534)
pt3dadd(14.525, 198.875, 11.382, 0.546)
pt3dadd(14.477, 198.978, 11.415, 0.558)
pt3dadd(14.428, 199.08, 11.448, 0.57)
pt3dadd(14.379, 199.182, 11.481, 0.584)
pt3dadd(14.33, 199.284, 11.514, 0.596)
pt3dadd(14.281, 199.386, 11.547, 0.608)
pt3dadd(14.232, 199.488, 11.58, 0.62)
pt3dadd(14.184, 199.59, 11.613, 0.632)
pt3dadd(14.135, 199.693, 11.646, 0.646)
pt3dadd(14.077, 199.793, 11.672, 0.636)
pt3dadd(14.01, 199.889, 11.693, 0.604)
pt3dadd(13.944, 199.986, 11.712, 0.572)
pt3dadd(13.878, 200.083, 11.732, 0.542)
pt3dadd(13.812, 200.18, 11.752, 0.51)
pt3dadd(13.745, 200.278, 11.772, 0.478)
pt3dadd(13.679, 200.375, 11.792, 0.448)
pt3dadd(13.613, 200.472, 11.812, 0.416)
pt3dadd(13.546, 200.569, 11.832, 0.384)
pt3dadd(13.48, 200.666, 11.852, 0.354)
pt3dadd(13.411, 200.762, 11.869, 0.332)
}
}
proc shape3d_30() {
apic[6] { pt3dadd(13.341, 200.858, 11.881, 0.322)
pt3dadd(13.27, 200.953, 11.894, 0.31)
pt3dadd(13.199, 201.049, 11.907, 0.298)
pt3dadd(13.128, 201.145, 11.92, 0.288)
pt3dadd(13.057, 201.241, 11.933, 0.276)
pt3dadd(12.986, 201.336, 11.946, 0.266)
pt3dadd(12.916, 201.432, 11.958, 0.254)
pt3dadd(12.845, 201.528, 11.971, 0.242)
pt3dadd(12.774, 201.623, 11.984, 0.232)
pt3dadd(12.703, 201.719, 11.994, 0.226)
pt3dadd(12.631, 201.815, 12.001, 0.226)
pt3dadd(12.56, 201.911, 12.009, 0.226)
pt3dadd(12.489, 202.007, 12.016, 0.226)
pt3dadd(12.417, 202.103, 12.024, 0.226)
pt3dadd(12.346, 202.2, 12.031, 0.226)
pt3dadd(12.275, 202.296, 12.038, 0.226)
pt3dadd(12.203, 202.392, 12.046, 0.226)
pt3dadd(12.132, 202.488, 12.053, 0.226)
pt3dadd(12.06, 202.584, 12.061, 0.226)
pt3dadd(11.994, 202.684, 12.064, 0.226)
pt3dadd(11.933, 202.787, 12.064, 0.226)
pt3dadd(11.871, 202.889, 12.064, 0.226)
pt3dadd(11.809, 202.992, 12.064, 0.226)
pt3dadd(11.748, 203.095, 12.064, 0.226)
pt3dadd(11.686, 203.198, 12.064, 0.226)
pt3dadd(11.624, 203.3, 12.064, 0.226)
pt3dadd(11.562, 203.404, 12.064, 0.226)
pt3dadd(11.501, 203.507, 12.064, 0.226)
pt3dadd(11.439, 203.61, 12.064, 0.226)
pt3dadd(11.373, 203.71, 12.064, 0.232)
pt3dadd(11.302, 203.807, 12.064, 0.244)
pt3dadd(11.232, 203.904, 12.064, 0.258)
pt3dadd(11.162, 204.001, 12.064, 0.27)
pt3dadd(11.092, 204.098, 12.064, 0.282)
pt3dadd(11.022, 204.197, 12.064, 0.294)
pt3dadd(10.952, 204.294, 12.064, 0.306)
pt3dadd(10.882, 204.391, 12.064, 0.318)
pt3dadd(10.812, 204.488, 12.064, 0.33)
pt3dadd(10.741, 204.586, 12.064, 0.344)
pt3dadd(10.669, 204.682, 12.064, 0.352)
pt3dadd(10.594, 204.775, 12.064, 0.358)
pt3dadd(10.519, 204.869, 12.064, 0.362)
pt3dadd(10.444, 204.962, 12.064, 0.368)
pt3dadd(10.369, 205.056, 12.064, 0.374)
pt3dadd(10.294, 205.151, 12.064, 0.38)
pt3dadd(10.22, 205.244, 12.064, 0.386)
pt3dadd(10.145, 205.338, 12.064, 0.39)
pt3dadd(10.07, 205.432, 12.064, 0.396)
pt3dadd(9.995, 205.525, 12.064, 0.402)
pt3dadd(9.917, 205.616, 12.064, 0.396)
pt3dadd(9.837, 205.706, 12.064, 0.382)
pt3dadd(9.758, 205.796, 12.064, 0.368)
pt3dadd(9.678, 205.885, 12.064, 0.352)
pt3dadd(9.598, 205.975, 12.064, 0.338)
pt3dadd(9.518, 206.064, 12.064, 0.324)
pt3dadd(9.438, 206.154, 12.064, 0.31)
pt3dadd(9.358, 206.244, 12.064, 0.294)
pt3dadd(9.278, 206.333, 12.064, 0.28)
pt3dadd(9.198, 206.423, 12.064, 0.266)
pt3dadd(9.116, 206.51, 12.064, 0.258)
pt3dadd(9.032, 206.596, 12.064, 0.254)
pt3dadd(8.948, 206.682, 12.064, 0.252)
pt3dadd(8.865, 206.767, 12.064, 0.248)
pt3dadd(8.781, 206.854, 12.064, 0.244)
pt3dadd(8.697, 206.939, 12.064, 0.24)
pt3dadd(8.613, 207.025, 12.064, 0.238)
pt3dadd(8.529, 207.11, 12.064, 0.234)
pt3dadd(8.445, 207.197, 12.064, 0.23)
pt3dadd(8.361, 207.282, 12.064, 0.228)
pt3dadd(8.277, 207.367, 12.064, 0.226)
pt3dadd(8.191, 207.452, 12.064, 0.228)
pt3dadd(8.106, 207.536, 12.064, 0.23)
pt3dadd(8.021, 207.622, 12.064, 0.232)
pt3dadd(7.936, 207.706, 12.064, 0.234)
pt3dadd(7.851, 207.791, 12.064, 0.236)
pt3dadd(7.766, 207.875, 12.064, 0.236)
pt3dadd(7.681, 207.96, 12.064, 0.238)
pt3dadd(7.596, 208.044, 12.064, 0.24)
pt3dadd(7.51, 208.129, 12.064, 0.242)
pt3dadd(7.425, 208.213, 12.064, 0.25)
pt3dadd(7.34, 208.297, 12.064, 0.264)
pt3dadd(7.254, 208.381, 12.064, 0.278)
pt3dadd(7.169, 208.465, 12.064, 0.292)
pt3dadd(7.083, 208.55, 12.064, 0.306)
pt3dadd(6.998, 208.634, 12.064, 0.318)
pt3dadd(6.912, 208.718, 12.064, 0.332)
pt3dadd(6.827, 208.802, 12.064, 0.346)
pt3dadd(6.741, 208.886, 12.064, 0.36)
pt3dadd(6.656, 208.972, 12.064, 0.374)
pt3dadd(6.57, 209.056, 12.064, 0.388)
pt3dadd(6.484, 209.14, 12.064, 0.402)
pt3dadd(6.399, 209.224, 12.064, 0.416)
pt3dadd(6.313, 209.306, 12.064, 0.428)
pt3dadd(6.227, 209.39, 12.064, 0.442)
pt3dadd(6.141, 209.474, 12.064, 0.456)
pt3dadd(6.056, 209.558, 12.064, 0.47)
pt3dadd(5.97, 209.642, 12.064, 0.484)
pt3dadd(5.884, 209.726, 12.064, 0.498)
pt3dadd(5.798, 209.81, 12.064, 0.512)
pt3dadd(5.712, 209.894, 12.064, 0.526)
pt3dadd(5.626, 209.978, 12.064, 0.54)
pt3dadd(5.54, 210.061, 12.064, 0.554)
pt3dadd(5.454, 210.145, 12.064, 0.568)
pt3dadd(5.368, 210.229, 12.064, 0.582)
pt3dadd(5.282, 210.312, 12.064, 0.596)
pt3dadd(5.196, 210.396, 12.064, 0.608)
pt3dadd(5.11, 210.48, 12.064, 0.622)
pt3dadd(5.024, 210.563, 12.064, 0.636)
pt3dadd(4.938, 210.647, 12.064, 0.65)
pt3dadd(4.851, 210.73, 12.064, 0.644)
pt3dadd(4.763, 210.811, 12.064, 0.622)
pt3dadd(4.676, 210.894, 12.064, 0.6)
pt3dadd(4.588, 210.976, 12.064, 0.578)
pt3dadd(4.5, 211.057, 12.064, 0.558)
pt3dadd(4.413, 211.14, 12.064, 0.536)
pt3dadd(4.325, 211.222, 12.064, 0.514)
pt3dadd(4.237, 211.303, 12.064, 0.492)
pt3dadd(4.15, 211.386, 12.064, 0.47)
pt3dadd(4.062, 211.468, 12.064, 0.448)
pt3dadd(3.974, 211.549, 12.064, 0.428)
pt3dadd(3.886, 211.63, 12.064, 0.412)
pt3dadd(3.797, 211.711, 12.064, 0.394)
pt3dadd(3.709, 211.793, 12.064, 0.376)
pt3dadd(3.62, 211.873, 12.064, 0.358)
pt3dadd(3.532, 211.955, 12.064, 0.34)
pt3dadd(3.444, 212.035, 12.064, 0.322)
pt3dadd(3.355, 212.117, 12.064, 0.304)
pt3dadd(3.267, 212.198, 12.064, 0.288)
pt3dadd(3.178, 212.279, 12.064, 0.27)
pt3dadd(3.089, 212.359, 12.064, 0.27)
pt3dadd(2.999, 212.438, 12.064, 0.284)
pt3dadd(2.909, 212.519, 12.064, 0.298)
pt3dadd(2.82, 212.598, 12.064, 0.314)
pt3dadd(2.73, 212.677, 12.064, 0.328)
pt3dadd(2.64, 212.756, 12.064, 0.342)
pt3dadd(2.55, 212.837, 12.064, 0.356)
pt3dadd(2.46, 212.916, 12.064, 0.372)
pt3dadd(2.37, 212.995, 12.064, 0.386)
pt3dadd(2.28, 213.076, 12.064, 0.4)
pt3dadd(2.185, 213.148, 12.064, 0.402)
pt3dadd(2.086, 213.215, 12.064, 0.396)
pt3dadd(1.987, 213.283, 12.064, 0.388)
pt3dadd(1.888, 213.35, 12.064, 0.382)
pt3dadd(1.788, 213.418, 12.064, 0.376)
pt3dadd(1.689, 213.486, 12.064, 0.368)
pt3dadd(1.59, 213.553, 12.064, 0.362)
pt3dadd(1.491, 213.62, 12.063, 0.354)
pt3dadd(1.392, 213.689, 12.063, 0.348)
pt3dadd(1.293, 213.756, 12.063, 0.342)
pt3dadd(1.192, 213.822, 12.063, 0.334)
pt3dadd(1.092, 213.887, 12.063, 0.328)
pt3dadd(0.991, 213.952, 12.063, 0.322)
pt3dadd(0.89, 214.018, 12.063, 0.316)
pt3dadd(0.789, 214.082, 12.063, 0.31)
pt3dadd(0.688, 214.147, 12.063, 0.304)
pt3dadd(0.588, 214.213, 12.063, 0.296)
pt3dadd(0.487, 214.278, 12.063, 0.29)
pt3dadd(0.386, 214.343, 12.063, 0.284)
pt3dadd(0.285, 214.408, 12.063, 0.278)
pt3dadd(0.188, 214.477, 12.063, 0.286)
pt3dadd(0.092, 214.549, 12.063, 0.3)
pt3dadd(-0.004, 214.622, 12.063, 0.316)
pt3dadd(-0.1, 214.694, 12.063, 0.332)
pt3dadd(-0.196, 214.766, 12.063, 0.348)
pt3dadd(-0.292, 214.838, 12.063, 0.362)
pt3dadd(-0.387, 214.91, 12.063, 0.378)
pt3dadd(-0.483, 214.984, 12.063, 0.394)
pt3dadd(-0.579, 215.056, 12.063, 0.408)
pt3dadd(-0.675, 215.128, 12.063, 0.424)
pt3dadd(-0.767, 215.204, 12.063, 0.424)
pt3dadd(-0.858, 215.282, 12.062, 0.414)
pt3dadd(-0.948, 215.362, 12.062, 0.404)
pt3dadd(-1.039, 215.44, 12.062, 0.394)
pt3dadd(-1.13, 215.519, 12.062, 0.382)
pt3dadd(-1.22, 215.598, 12.062, 0.372)
pt3dadd(-1.311, 215.676, 12.062, 0.362)
pt3dadd(-1.401, 215.755, 12.062, 0.352)
pt3dadd(-1.492, 215.834, 12.062, 0.342)
pt3dadd(-1.582, 215.912, 12.062, 0.332)
pt3dadd(-1.671, 215.993, 12.061, 0.322)
pt3dadd(-1.76, 216.074, 12.061, 0.312)
pt3dadd(-1.848, 216.156, 12.061, 0.302)
pt3dadd(-1.936, 216.236, 12.061, 0.292)
pt3dadd(-2.025, 216.318, 12.061, 0.28)
pt3dadd(-2.113, 216.4, 12.061, 0.27)
pt3dadd(-2.201, 216.481, 12.061, 0.26)
pt3dadd(-2.289, 216.562, 12.061, 0.25)
pt3dadd(-2.378, 216.643, 12.061, 0.24)
pt3dadd(-2.466, 216.725, 12.06, 0.23)
pt3dadd(-2.552, 216.808, 12.06, 0.226)
pt3dadd(-2.637, 216.893, 12.06, 0.226)
pt3dadd(-2.721, 216.978, 12.06, 0.226)
pt3dadd(-2.806, 217.063, 12.059, 0.226)
pt3dadd(-2.891, 217.148, 12.059, 0.226)
pt3dadd(-2.976, 217.232, 12.059, 0.226)
pt3dadd(-3.06, 217.318, 12.059, 0.226)
pt3dadd(-3.145, 217.403, 12.059, 0.226)
pt3dadd(-3.23, 217.488, 12.059, 0.226)
pt3dadd(-3.315, 217.573, 12.058, 0.226)
pt3dadd(-3.4, 217.657, 12.058, 0.226)
}
}
proc shape3d_31() {
apic[6] { pt3dadd(-3.484, 217.742, 12.058, 0.226)
pt3dadd(-3.569, 217.828, 12.057, 0.226)
pt3dadd(-3.654, 217.913, 12.057, 0.226)
pt3dadd(-3.738, 217.998, 12.057, 0.226)
pt3dadd(-3.823, 218.082, 12.056, 0.226)
pt3dadd(-3.908, 218.167, 12.056, 0.226)
pt3dadd(-3.993, 218.252, 12.055, 0.226)
pt3dadd(-4.077, 218.338, 12.055, 0.226)
pt3dadd(-4.162, 218.423, 12.055, 0.226)
pt3dadd(-4.247, 218.508, 12.054, 0.226)
pt3dadd(-4.331, 218.593, 12.054, 0.226)
pt3dadd(-4.416, 218.677, 12.053, 0.226)
pt3dadd(-4.501, 218.762, 12.053, 0.226)
pt3dadd(-4.585, 218.848, 12.052, 0.226)
pt3dadd(-4.67, 218.933, 12.052, 0.226)
pt3dadd(-4.755, 219.018, 12.052, 0.226)
pt3dadd(-4.839, 219.103, 12.051, 0.226)
pt3dadd(-4.924, 219.188, 12.051, 0.226)
pt3dadd(-5.008, 219.274, 12.05, 0.226)
pt3dadd(-5.093, 219.359, 12.049, 0.226)
pt3dadd(-5.177, 219.444, 12.048, 0.226)
pt3dadd(-5.262, 219.529, 12.047, 0.226)
pt3dadd(-5.346, 219.614, 12.046, 0.226)
pt3dadd(-5.43, 219.7, 12.045, 0.226)
pt3dadd(-5.515, 219.785, 12.044, 0.226)
pt3dadd(-5.599, 219.87, 12.043, 0.226)
pt3dadd(-5.684, 219.955, 12.042, 0.226)
pt3dadd(-5.768, 220.04, 12.041, 0.226)
pt3dadd(-5.852, 220.127, 12.04, 0.226)
pt3dadd(-5.937, 220.212, 12.039, 0.226)
pt3dadd(-6.021, 220.297, 12.038, 0.226)
pt3dadd(-6.105, 220.382, 12.036, 0.226)
pt3dadd(-6.189, 220.468, 12.035, 0.226)
pt3dadd(-6.273, 220.554, 12.033, 0.226)
pt3dadd(-6.358, 220.639, 12.032, 0.226)
pt3dadd(-6.442, 220.724, 12.031, 0.226)
pt3dadd(-6.526, 220.81, 12.029, 0.226)
pt3dadd(-6.61, 220.895, 12.028, 0.226)
pt3dadd(-6.695, 220.981, 12.026, 0.226)
pt3dadd(-6.779, 221.066, 12.024, 0.226)
pt3dadd(-6.862, 221.153, 12.022, 0.226)
pt3dadd(-6.946, 221.238, 12.02, 0.226)
pt3dadd(-7.03, 221.324, 12.018, 0.226)
pt3dadd(-7.114, 221.41, 12.016, 0.226)
pt3dadd(-7.198, 221.496, 12.014, 0.226)
pt3dadd(-7.282, 221.581, 12.012, 0.226)
pt3dadd(-7.366, 221.666, 12.01, 0.226)
pt3dadd(-7.449, 221.753, 12.008, 0.226)
pt3dadd(-7.533, 221.838, 12.006, 0.226)
pt3dadd(-7.617, 221.926, 12.002, 0.226)
pt3dadd(-7.699, 222.012, 11.998, 0.226)
pt3dadd(-7.782, 222.098, 11.993, 0.226)
pt3dadd(-7.864, 222.186, 11.989, 0.226)
pt3dadd(-7.947, 222.272, 11.984, 0.226)
pt3dadd(-8.029, 222.36, 11.98, 0.226)
pt3dadd(-8.112, 222.446, 11.975, 0.226)
pt3dadd(-8.195, 222.533, 11.971, 0.226)
pt3dadd(-8.277, 222.62, 11.966, 0.226)
pt3dadd(-8.36, 222.707, 11.962, 0.226)
pt3dadd(-8.442, 222.794, 11.957, 0.226)
pt3dadd(-8.524, 222.882, 11.95, 0.226)
pt3dadd(-8.606, 222.97, 11.944, 0.226)
pt3dadd(-8.688, 223.056, 11.938, 0.226)
pt3dadd(-8.77, 223.144, 11.932, 0.226)
pt3dadd(-8.852, 223.231, 11.926, 0.226)
pt3dadd(-8.933, 223.319, 11.92, 0.226)
pt3dadd(-9.015, 223.406, 11.914, 0.226)
pt3dadd(-9.097, 223.493, 11.908, 0.226)
pt3dadd(-9.179, 223.58, 11.902, 0.226)
pt3dadd(-9.26, 223.669, 11.894, 0.226)
pt3dadd(-9.341, 223.757, 11.885, 0.226)
pt3dadd(-9.422, 223.844, 11.875, 0.226)
pt3dadd(-9.503, 223.933, 11.866, 0.226)
pt3dadd(-9.583, 224.021, 11.857, 0.226)
pt3dadd(-9.664, 224.108, 11.848, 0.226)
pt3dadd(-9.745, 224.197, 11.839, 0.226)
pt3dadd(-9.826, 224.285, 11.829, 0.226)
pt3dadd(-9.906, 224.374, 11.82, 0.226)
pt3dadd(-9.987, 224.461, 11.811, 0.226)
pt3dadd(-10.057, 224.554, 11.789, 0.226)
pt3dadd(-10.122, 224.648, 11.76, 0.226)
pt3dadd(-10.186, 224.743, 11.731, 0.226)
pt3dadd(-10.251, 224.839, 11.701, 0.226)
pt3dadd(-10.315, 224.934, 11.672, 0.226)
pt3dadd(-10.379, 225.029, 11.643, 0.226)
pt3dadd(-10.444, 225.124, 11.613, 0.226)
pt3dadd(-10.508, 225.218, 11.584, 0.226)
pt3dadd(-10.572, 225.313, 11.555, 0.226)
pt3dadd(-10.637, 225.409, 11.525, 0.226)
pt3dadd(-10.704, 225.499, 11.493, 0.226)
pt3dadd(-10.774, 225.589, 11.46, 0.226)
pt3dadd(-10.843, 225.679, 11.427, 0.226)
pt3dadd(-10.912, 225.769, 11.394, 0.226)
pt3dadd(-10.981, 225.859, 11.361, 0.226)
pt3dadd(-11.05, 225.948, 11.328, 0.226)
pt3dadd(-11.119, 226.038, 11.295, 0.226)
pt3dadd(-11.188, 226.128, 11.262, 0.226)
pt3dadd(-11.257, 226.218, 11.229, 0.226)
pt3dadd(-11.326, 226.308, 11.196, 0.226)
pt3dadd(-11.4, 226.397, 11.171, 0.226)
pt3dadd(-11.475, 226.487, 11.149, 0.226)
pt3dadd(-11.55, 226.577, 11.126, 0.226)
pt3dadd(-11.625, 226.666, 11.104, 0.226)
pt3dadd(-11.7, 226.756, 11.081, 0.226)
pt3dadd(-11.775, 226.846, 11.059, 0.226)
pt3dadd(-11.85, 226.936, 11.036, 0.226)
pt3dadd(-11.925, 227.024, 11.014, 0.226)
pt3dadd(-12, 227.114, 10.991, 0.226)
pt3dadd(-12.075, 227.204, 10.968, 0.226)
pt3dadd(-12.143, 227.303, 10.96, 0.226)
pt3dadd(-12.21, 227.401, 10.953, 0.226)
pt3dadd(-12.277, 227.501, 10.946, 0.226)
pt3dadd(-12.344, 227.599, 10.938, 0.226)
pt3dadd(-12.412, 227.699, 10.931, 0.226)
pt3dadd(-12.479, 227.798, 10.923, 0.226)
pt3dadd(-12.546, 227.897, 10.916, 0.226)
pt3dadd(-12.613, 227.996, 10.909, 0.226)
pt3dadd(-12.68, 228.095, 10.901, 0.226)
pt3dadd(-12.747, 228.194, 10.894, 0.226)
pt3dadd(-12.821, 228.289, 10.894, 0.226)
pt3dadd(-12.895, 228.384, 10.894, 0.226)
pt3dadd(-12.968, 228.479, 10.894, 0.226)
pt3dadd(-13.042, 228.572, 10.894, 0.226)
pt3dadd(-13.116, 228.667, 10.894, 0.226)
pt3dadd(-13.19, 228.762, 10.894, 0.226)
pt3dadd(-13.263, 228.857, 10.894, 0.226)
pt3dadd(-13.337, 228.952, 10.894, 0.226)
pt3dadd(-13.411, 229.046, 10.894, 0.226)
pt3dadd(-13.484, 229.141, 10.894, 0.226)
}
apic[7] {pt3dclear()
pt3dadd(34.796, 170.522, 7.296, 0.846)
pt3dadd(34.758, 170.522, 7.272, 0.814)
pt3dadd(34.661, 170.521, 7.212, 0.734)
pt3dadd(34.565, 170.521, 7.152, 0.656)
pt3dadd(34.469, 170.521, 7.093, 0.576)
pt3dadd(34.373, 170.52, 7.033, 0.496)
pt3dadd(34.266, 170.522, 7, 0.452)
pt3dadd(34.146, 170.527, 7, 0.452)
pt3dadd(34.026, 170.531, 7, 0.452)
pt3dadd(33.91, 170.556, 7, 0.452)
pt3dadd(33.797, 170.596, 7, 0.452)
pt3dadd(33.686, 170.639, 7, 0.452)
pt3dadd(33.582, 170.7, 7, 0.452)
pt3dadd(33.479, 170.761, 7, 0.452)
pt3dadd(33.422, 170.867, 7.008, 0.452)
pt3dadd(33.343, 170.94, 7.039, 0.452)
pt3dadd(33.25, 170.994, 7.084, 0.452)
pt3dadd(33.158, 171.048, 7.129, 0.452)
pt3dadd(33.066, 171.102, 7.174, 0.452)
pt3dadd(32.974, 171.164, 7.21, 0.452)
pt3dadd(32.883, 171.238, 7.233, 0.452)
pt3dadd(32.791, 171.311, 7.255, 0.452)
pt3dadd(32.7, 171.384, 7.278, 0.452)
pt3dadd(32.609, 171.457, 7.3, 0.452)
pt3dadd(32.523, 171.541, 7.3, 0.452)
pt3dadd(32.437, 171.624, 7.3, 0.452)
pt3dadd(32.351, 171.708, 7.3, 0.452)
pt3dadd(32.264, 171.791, 7.3, 0.452)
pt3dadd(32.178, 171.875, 7.301, 0.452)
pt3dadd(32.095, 171.961, 7.311, 0.452)
pt3dadd(32.013, 172.046, 7.32, 0.452)
pt3dadd(31.93, 172.133, 7.329, 0.452)
pt3dadd(31.847, 172.219, 7.339, 0.452)
pt3dadd(31.775, 172.309, 7.36, 0.452)
pt3dadd(31.719, 172.406, 7.397, 0.452)
pt3dadd(31.663, 172.502, 7.433, 0.452)
pt3dadd(31.607, 172.6, 7.47, 0.452)
pt3dadd(31.549, 172.696, 7.5, 0.452)
pt3dadd(31.48, 172.794, 7.5, 0.452)
pt3dadd(31.411, 172.892, 7.5, 0.452)
pt3dadd(31.342, 172.991, 7.5, 0.452)
pt3dadd(31.273, 173.089, 7.5, 0.452)
pt3dadd(31.206, 173.188, 7.504, 0.452)
pt3dadd(31.156, 173.292, 7.531, 0.452)
pt3dadd(31.105, 173.395, 7.558, 0.452)
pt3dadd(31.055, 173.5, 7.585, 0.452)
pt3dadd(31.004, 173.603, 7.613, 0.452)
pt3dadd(30.951, 173.696, 7.655, 0.452)
pt3dadd(30.896, 173.784, 7.707, 0.452)
pt3dadd(30.841, 173.87, 7.758, 0.452)
pt3dadd(30.786, 173.958, 7.809, 0.452)
pt3dadd(30.729, 174.049, 7.852, 0.452)
pt3dadd(30.669, 174.143, 7.889, 0.452)
pt3dadd(30.609, 174.238, 7.926, 0.452)
pt3dadd(30.549, 174.332, 7.963, 0.452)
pt3dadd(30.48, 174.42, 7.989, 0.452)
pt3dadd(30.385, 174.493, 7.992, 0.452)
pt3dadd(30.29, 174.566, 7.994, 0.452)
pt3dadd(30.195, 174.64, 7.996, 0.452)
pt3dadd(30.1, 174.713, 7.999, 0.452)
pt3dadd(30.019, 174.799, 8, 0.452)
pt3dadd(29.962, 174.905, 8, 0.452)
pt3dadd(29.906, 175.01, 8, 0.452)
pt3dadd(29.849, 175.116, 8, 0.452)
pt3dadd(29.792, 175.222, 8, 0.452)
pt3dadd(29.735, 175.325, 8.009, 0.452)
pt3dadd(29.678, 175.415, 8.054, 0.452)
pt3dadd(29.62, 175.504, 8.1, 0.452)
pt3dadd(29.562, 175.594, 8.145, 0.452)
pt3dadd(29.503, 175.684, 8.19, 0.452)
pt3dadd(29.43, 175.774, 8.216, 0.452)
}
}
proc shape3d_32() {
apic[7] { pt3dadd(29.355, 175.862, 8.241, 0.452)
pt3dadd(29.282, 175.952, 8.267, 0.452)
pt3dadd(29.208, 176.041, 8.293, 0.452)
pt3dadd(29.131, 176.132, 8.3, 0.452)
pt3dadd(29.053, 176.224, 8.3, 0.452)
pt3dadd(28.975, 176.315, 8.3, 0.452)
pt3dadd(28.897, 176.406, 8.3, 0.452)
pt3dadd(28.819, 176.497, 8.3, 0.452)
pt3dadd(28.757, 176.596, 8.321, 0.452)
pt3dadd(28.699, 176.695, 8.349, 0.452)
pt3dadd(28.642, 176.795, 8.376, 0.452)
pt3dadd(28.584, 176.894, 8.404, 0.452)
pt3dadd(28.528, 176.993, 8.437, 0.452)
pt3dadd(28.475, 177.088, 8.479, 0.452)
pt3dadd(28.421, 177.182, 8.521, 0.452)
pt3dadd(28.367, 177.277, 8.563, 0.452)
pt3dadd(28.313, 177.373, 8.6, 0.452)
pt3dadd(28.26, 177.48, 8.6, 0.452)
pt3dadd(28.206, 177.588, 8.6, 0.452)
pt3dadd(28.152, 177.695, 8.6, 0.452)
pt3dadd(28.099, 177.803, 8.6, 0.452)
pt3dadd(28.045, 177.91, 8.6, 0.452)
pt3dadd(27.982, 178.007, 8.625, 0.452)
pt3dadd(27.917, 178.102, 8.654, 0.452)
pt3dadd(27.852, 178.196, 8.682, 0.452)
pt3dadd(27.788, 178.292, 8.71, 0.452)
pt3dadd(27.725, 178.385, 8.747, 0.452)
pt3dadd(27.664, 178.474, 8.789, 0.452)
pt3dadd(27.603, 178.564, 8.832, 0.452)
pt3dadd(27.543, 178.654, 8.875, 0.452)
pt3dadd(27.483, 178.748, 8.908, 0.452)
pt3dadd(27.424, 178.85, 8.927, 0.452)
pt3dadd(27.366, 178.952, 8.947, 0.452)
pt3dadd(27.307, 179.056, 8.966, 0.452)
pt3dadd(27.249, 179.158, 8.986, 0.452)
pt3dadd(27.202, 179.261, 9.016, 0.452)
pt3dadd(27.157, 179.365, 9.048, 0.452)
pt3dadd(27.113, 179.47, 9.081, 0.452)
pt3dadd(27.068, 179.574, 9.113, 0.452)
pt3dadd(27.009, 179.672, 9.139, 0.452)
pt3dadd(26.927, 179.758, 9.154, 0.452)
pt3dadd(26.844, 179.843, 9.168, 0.452)
pt3dadd(26.762, 179.928, 9.183, 0.452)
pt3dadd(26.679, 180.013, 9.198, 0.452)
pt3dadd(26.592, 180.096, 9.2, 0.452)
pt3dadd(26.505, 180.178, 9.2, 0.452)
pt3dadd(26.409, 180.246, 9.217, 0.452)
pt3dadd(26.311, 180.308, 9.24, 0.452)
pt3dadd(26.282, 180.386, 9.304, 0.452)
pt3dadd(26.269, 180.467, 9.377, 0.452)
pt3dadd(26.223, 180.556, 9.431, 0.452)
pt3dadd(26.169, 180.644, 9.48, 0.452)
pt3dadd(26.096, 180.726, 9.522, 0.452)
pt3dadd(26.024, 180.808, 9.564, 0.452)
pt3dadd(25.949, 180.889, 9.6, 0.452)
pt3dadd(25.862, 180.971, 9.6, 0.452)
pt3dadd(25.774, 181.054, 9.6, 0.452)
pt3dadd(25.684, 181.132, 9.6, 0.452)
pt3dadd(25.603, 181.22, 9.6, 0.452)
pt3dadd(25.522, 181.309, 9.6, 0.452)
pt3dadd(25.442, 181.398, 9.6, 0.452)
pt3dadd(25.361, 181.487, 9.6, 0.452)
pt3dadd(25.278, 181.568, 9.613, 0.452)
pt3dadd(25.191, 181.637, 9.653, 0.452)
pt3dadd(25.105, 181.704, 9.693, 0.452)
pt3dadd(25.018, 181.771, 9.734, 0.452)
pt3dadd(24.929, 181.838, 9.768, 0.452)
pt3dadd(24.831, 181.906, 9.778, 0.452)
pt3dadd(24.732, 181.974, 9.787, 0.452)
pt3dadd(24.634, 182.041, 9.796, 0.452)
pt3dadd(24.535, 182.11, 9.806, 0.452)
pt3dadd(24.433, 182.17, 9.819, 0.452)
pt3dadd(24.327, 182.221, 9.839, 0.452)
pt3dadd(24.221, 182.273, 9.858, 0.452)
pt3dadd(24.116, 182.324, 9.877, 0.452)
pt3dadd(24.01, 182.376, 9.896, 0.452)
pt3dadd(23.923, 182.456, 9.9, 0.452)
pt3dadd(23.843, 182.545, 9.9, 0.452)
pt3dadd(23.762, 182.634, 9.9, 0.452)
pt3dadd(23.681, 182.723, 9.9, 0.452)
pt3dadd(23.601, 182.812, 9.9, 0.452)
pt3dadd(23.493, 182.86, 9.9, 0.452)
pt3dadd(23.38, 182.899, 9.9, 0.452)
pt3dadd(23.286, 182.965, 9.903, 0.452)
pt3dadd(23.216, 183.062, 9.908, 0.452)
pt3dadd(23.152, 183.148, 9.939, 0.452)
pt3dadd(23.099, 183.216, 10.008, 0.452)
pt3dadd(23.036, 183.253, 10.085, 0.452)
pt3dadd(22.967, 183.274, 10.165, 0.452)
pt3dadd(22.875, 183.324, 10.191, 0.452)
pt3dadd(22.774, 183.389, 10.194, 0.452)
pt3dadd(22.673, 183.452, 10.197, 0.452)
pt3dadd(22.569, 183.512, 10.2, 0.452)
pt3dadd(22.456, 183.552, 10.2, 0.452)
pt3dadd(22.343, 183.592, 10.2, 0.452)
pt3dadd(22.249, 183.664, 10.2, 0.452)
pt3dadd(22.159, 183.744, 10.2, 0.452)
pt3dadd(22.07, 183.824, 10.2, 0.452)
pt3dadd(22.022, 183.934, 10.2, 0.452)
pt3dadd(21.975, 184.044, 10.2, 0.452)
pt3dadd(21.91, 184.144, 10.2, 0.452)
pt3dadd(21.815, 184.217, 10.2, 0.452)
pt3dadd(21.719, 184.289, 10.2, 0.452)
pt3dadd(21.623, 184.361, 10.2, 0.452)
pt3dadd(21.527, 184.433, 10.2, 0.452)
pt3dadd(21.431, 184.505, 10.2, 0.452)
pt3dadd(21.338, 184.576, 10.223, 0.452)
pt3dadd(21.248, 184.644, 10.251, 0.452)
pt3dadd(21.19, 184.687, 10.33, 0.452)
pt3dadd(21.125, 184.742, 10.386, 0.452)
pt3dadd(21.045, 184.831, 10.373, 0.452)
pt3dadd(20.952, 184.891, 10.352, 0.452)
pt3dadd(20.841, 184.918, 10.32, 0.452)
pt3dadd(20.73, 184.95, 10.3, 0.452)
pt3dadd(20.618, 184.993, 10.3, 0.452)
pt3dadd(20.526, 185.068, 10.3, 0.452)
pt3dadd(20.437, 185.149, 10.3, 0.452)
pt3dadd(20.348, 185.23, 10.3, 0.452)
pt3dadd(20.259, 185.31, 10.3, 0.452)
pt3dadd(20.17, 185.39, 10.3, 0.452)
pt3dadd(20.089, 185.478, 10.3, 0.452)
pt3dadd(20.008, 185.568, 10.3, 0.452)
pt3dadd(19.927, 185.657, 10.3, 0.452)
pt3dadd(19.847, 185.746, 10.3, 0.452)
pt3dadd(19.766, 185.834, 10.3, 0.452)
pt3dadd(19.673, 185.905, 10.321, 0.452)
pt3dadd(19.579, 185.975, 10.344, 0.452)
pt3dadd(19.485, 186.044, 10.366, 0.452)
pt3dadd(19.391, 186.114, 10.389, 0.452)
pt3dadd(19.291, 186.169, 10.415, 0.452)
pt3dadd(19.185, 186.214, 10.445, 0.452)
pt3dadd(19.079, 186.258, 10.474, 0.452)
pt3dadd(18.973, 186.302, 10.504, 0.452)
pt3dadd(18.868, 186.347, 10.533, 0.452)
pt3dadd(18.748, 186.349, 10.544, 0.452)
pt3dadd(18.629, 186.352, 10.554, 0.452)
pt3dadd(18.51, 186.353, 10.565, 0.452)
pt3dadd(18.391, 186.355, 10.576, 0.452)
pt3dadd(18.271, 186.358, 10.587, 0.452)
pt3dadd(18.152, 186.36, 10.597, 0.452)
pt3dadd(18.033, 186.374, 10.6, 0.452)
pt3dadd(17.915, 186.394, 10.6, 0.452)
pt3dadd(17.797, 186.414, 10.6, 0.452)
pt3dadd(17.678, 186.433, 10.6, 0.452)
pt3dadd(17.56, 186.454, 10.6, 0.452)
pt3dadd(17.442, 186.473, 10.6, 0.452)
pt3dadd(17.323, 186.493, 10.6, 0.452)
pt3dadd(17.205, 186.512, 10.6, 0.452)
pt3dadd(17.086, 186.533, 10.6, 0.452)
pt3dadd(16.968, 186.552, 10.6, 0.452)
pt3dadd(16.85, 186.571, 10.6, 0.452)
pt3dadd(16.731, 186.592, 10.6, 0.452)
pt3dadd(16.624, 186.64, 10.6, 0.452)
pt3dadd(16.526, 186.708, 10.6, 0.452)
pt3dadd(16.428, 186.778, 10.6, 0.452)
pt3dadd(16.33, 186.846, 10.6, 0.452)
pt3dadd(16.232, 186.916, 10.6, 0.452)
pt3dadd(16.125, 186.961, 10.589, 0.452)
pt3dadd(16.01, 186.986, 10.57, 0.452)
pt3dadd(15.895, 187.013, 10.55, 0.452)
pt3dadd(15.78, 187.039, 10.531, 0.452)
pt3dadd(15.666, 187.066, 10.511, 0.452)
pt3dadd(15.55, 187.09, 10.493, 0.452)
pt3dadd(15.434, 187.112, 10.476, 0.452)
pt3dadd(15.318, 187.135, 10.459, 0.452)
pt3dadd(15.202, 187.158, 10.442, 0.452)
pt3dadd(15.086, 187.181, 10.425, 0.452)
pt3dadd(14.97, 187.202, 10.408, 0.452)
pt3dadd(14.853, 187.217, 10.387, 0.452)
pt3dadd(14.737, 187.232, 10.367, 0.452)
pt3dadd(14.62, 187.247, 10.346, 0.452)
pt3dadd(14.504, 187.262, 10.325, 0.452)
pt3dadd(14.387, 187.277, 10.305, 0.452)
pt3dadd(14.281, 187.324, 10.283, 0.452)
pt3dadd(14.178, 187.379, 10.261, 0.452)
pt3dadd(14.076, 187.435, 10.239, 0.452)
pt3dadd(13.973, 187.49, 10.217, 0.452)
pt3dadd(13.874, 187.552, 10.195, 0.452)
pt3dadd(13.788, 187.631, 10.172, 0.452)
pt3dadd(13.703, 187.711, 10.149, 0.452)
pt3dadd(13.617, 187.79, 10.126, 0.452)
pt3dadd(13.531, 187.87, 10.103, 0.452)
pt3dadd(13.431, 187.932, 10.088, 0.452)
pt3dadd(13.329, 187.992, 10.073, 0.452)
pt3dadd(13.226, 188.052, 10.059, 0.452)
pt3dadd(13.123, 188.112, 10.045, 0.452)
pt3dadd(13.022, 188.173, 10.032, 0.452)
pt3dadd(12.924, 188.243, 10.025, 0.452)
pt3dadd(12.827, 188.312, 10.018, 0.452)
pt3dadd(12.729, 188.382, 10.011, 0.452)
pt3dadd(12.632, 188.452, 10.004, 0.452)
pt3dadd(12.541, 188.528, 10, 0.452)
pt3dadd(12.46, 188.617, 10, 0.452)
pt3dadd(12.38, 188.706, 10, 0.452)
pt3dadd(12.299, 188.795, 10, 0.452)
pt3dadd(12.218, 188.884, 10, 0.452)
pt3dadd(12.152, 188.982, 10, 0.452)
pt3dadd(12.105, 189.092, 10, 0.452)
pt3dadd(12.057, 189.203, 10, 0.452)
pt3dadd(12.009, 189.312, 10, 0.452)
}
}
proc shape3d_33() {
apic[7] { pt3dadd(11.962, 189.422, 10, 0.452)
pt3dadd(11.913, 189.532, 9.998, 0.452)
pt3dadd(11.856, 189.636, 9.981, 0.452)
pt3dadd(11.798, 189.739, 9.964, 0.452)
pt3dadd(11.741, 189.842, 9.948, 0.452)
pt3dadd(11.683, 189.946, 9.931, 0.452)
pt3dadd(11.632, 190.051, 9.91, 0.452)
pt3dadd(11.589, 190.158, 9.883, 0.452)
pt3dadd(11.546, 190.265, 9.856, 0.452)
pt3dadd(11.502, 190.373, 9.83, 0.452)
pt3dadd(11.459, 190.48, 9.803, 0.452)
pt3dadd(11.395, 190.578, 9.78, 0.452)
pt3dadd(11.329, 190.674, 9.758, 0.452)
pt3dadd(11.263, 190.77, 9.735, 0.452)
pt3dadd(11.197, 190.867, 9.712, 0.452)
pt3dadd(11.122, 190.957, 9.693, 0.452)
pt3dadd(11.037, 191.039, 9.679, 0.452)
pt3dadd(10.951, 191.122, 9.664, 0.452)
pt3dadd(10.866, 191.204, 9.649, 0.452)
pt3dadd(10.78, 191.286, 9.635, 0.452)
pt3dadd(10.693, 191.369, 9.627, 0.452)
pt3dadd(10.606, 191.45, 9.62, 0.452)
pt3dadd(10.518, 191.532, 9.613, 0.452)
pt3dadd(10.431, 191.614, 9.606, 0.452)
pt3dadd(10.341, 191.693, 9.6, 0.452)
pt3dadd(10.241, 191.759, 9.6, 0.452)
pt3dadd(10.14, 191.825, 9.6, 0.452)
pt3dadd(10.04, 191.891, 9.6, 0.452)
pt3dadd(9.94, 191.957, 9.6, 0.452)
pt3dadd(9.846, 192.028, 9.6, 0.452)
pt3dadd(9.789, 192.133, 9.6, 0.452)
pt3dadd(9.732, 192.239, 9.6, 0.452)
pt3dadd(9.675, 192.344, 9.6, 0.452)
pt3dadd(9.619, 192.451, 9.6, 0.452)
pt3dadd(9.562, 192.557, 9.6, 0.452)
pt3dadd(9.499, 192.659, 9.6, 0.452)
pt3dadd(9.437, 192.761, 9.6, 0.452)
pt3dadd(9.374, 192.863, 9.6, 0.452)
pt3dadd(9.311, 192.965, 9.6, 0.452)
pt3dadd(9.248, 193.068, 9.6, 0.452)
pt3dadd(9.169, 193.158, 9.6, 0.452)
pt3dadd(9.089, 193.247, 9.6, 0.452)
pt3dadd(9.008, 193.336, 9.6, 0.452)
pt3dadd(8.927, 193.424, 9.6, 0.452)
pt3dadd(8.847, 193.513, 9.6, 0.452)
pt3dadd(8.773, 193.607, 9.587, 0.452)
pt3dadd(8.7, 193.7, 9.572, 0.452)
pt3dadd(8.626, 193.793, 9.557, 0.452)
pt3dadd(8.553, 193.886, 9.543, 0.452)
pt3dadd(8.478, 193.979, 9.532, 0.452)
pt3dadd(8.397, 194.068, 9.527, 0.452)
pt3dadd(8.317, 194.156, 9.522, 0.452)
pt3dadd(8.237, 194.245, 9.517, 0.452)
pt3dadd(8.157, 194.335, 9.512, 0.452)
pt3dadd(8.082, 194.426, 9.525, 0.452)
pt3dadd(8.01, 194.52, 9.545, 0.452)
pt3dadd(7.938, 194.612, 9.565, 0.452)
pt3dadd(7.866, 194.705, 9.585, 0.452)
pt3dadd(7.802, 194.803, 9.602, 0.452)
pt3dadd(7.761, 194.916, 9.608, 0.452)
pt3dadd(7.72, 195.029, 9.615, 0.452)
pt3dadd(7.68, 195.142, 9.621, 0.452)
pt3dadd(7.639, 195.253, 9.627, 0.452)
pt3dadd(7.599, 195.367, 9.634, 0.452)
pt3dadd(7.59, 195.486, 9.645, 0.452)
pt3dadd(7.582, 195.605, 9.656, 0.452)
pt3dadd(7.573, 195.724, 9.668, 0.452)
pt3dadd(7.564, 195.842, 9.679, 0.452)
pt3dadd(7.555, 195.961, 9.69, 0.452)
pt3dadd(7.542, 196.08, 9.7, 0.452)
pt3dadd(7.503, 196.193, 9.7, 0.452)
pt3dadd(7.463, 196.306, 9.7, 0.452)
pt3dadd(7.433, 196.422, 9.7, 0.452)
pt3dadd(7.407, 196.54, 9.7, 0.452)
pt3dadd(7.362, 196.644, 9.7, 0.452)
pt3dadd(7.263, 196.712, 9.7, 0.452)
pt3dadd(7.167, 196.782, 9.7, 0.452)
pt3dadd(7.099, 196.882, 9.7, 0.452)
pt3dadd(7.031, 196.98, 9.7, 0.452)
pt3dadd(6.946, 197.064, 9.7, 0.452)
pt3dadd(6.859, 197.147, 9.7, 0.452)
pt3dadd(6.772, 197.23, 9.7, 0.452)
pt3dadd(6.718, 197.328, 9.7, 0.452)
pt3dadd(6.714, 197.448, 9.7, 0.452)
pt3dadd(6.709, 197.568, 9.7, 0.452)
pt3dadd(6.69, 197.686, 9.7, 0.452)
pt3dadd(6.63, 197.788, 9.7, 0.452)
pt3dadd(6.558, 197.884, 9.7, 0.452)
pt3dadd(6.486, 197.98, 9.7, 0.452)
pt3dadd(6.414, 198.076, 9.7, 0.452)
pt3dadd(6.342, 198.172, 9.7, 0.452)
pt3dadd(6.257, 198.254, 9.7, 0.452)
pt3dadd(6.165, 198.332, 9.7, 0.452)
pt3dadd(6.074, 198.41, 9.7, 0.452)
pt3dadd(5.983, 198.488, 9.7, 0.452)
pt3dadd(5.891, 198.566, 9.7, 0.452)
pt3dadd(5.83, 198.666, 9.7, 0.452)
pt3dadd(5.779, 198.775, 9.7, 0.452)
pt3dadd(5.729, 198.884, 9.7, 0.452)
pt3dadd(5.678, 198.992, 9.7, 0.452)
pt3dadd(5.627, 199.102, 9.7, 0.452)
pt3dadd(5.558, 199.194, 9.689, 0.452)
pt3dadd(5.467, 199.267, 9.667, 0.452)
pt3dadd(5.375, 199.339, 9.644, 0.452)
pt3dadd(5.284, 199.412, 9.621, 0.452)
pt3dadd(5.194, 199.487, 9.6, 0.452)
pt3dadd(5.112, 199.574, 9.6, 0.452)
pt3dadd(5.031, 199.663, 9.6, 0.452)
pt3dadd(4.932, 199.732, 9.6, 0.452)
pt3dadd(4.833, 199.799, 9.6, 0.452)
pt3dadd(4.81, 199.909, 9.6, 0.452)
pt3dadd(4.805, 200.029, 9.6, 0.452)
pt3dadd(4.8, 200.148, 9.6, 0.452)
pt3dadd(4.77, 200.264, 9.6, 0.452)
pt3dadd(4.737, 200.38, 9.6, 0.452)
pt3dadd(4.704, 200.495, 9.6, 0.452)
pt3dadd(4.671, 200.61, 9.6, 0.452)
pt3dadd(4.616, 200.713, 9.619, 0.452)
pt3dadd(4.557, 200.814, 9.641, 0.452)
pt3dadd(4.497, 200.915, 9.664, 0.452)
pt3dadd(4.438, 201.016, 9.686, 0.452)
pt3dadd(4.393, 201.124, 9.7, 0.452)
pt3dadd(4.373, 201.241, 9.7, 0.452)
pt3dadd(4.353, 201.36, 9.7, 0.452)
pt3dadd(4.334, 201.479, 9.7, 0.452)
pt3dadd(4.314, 201.596, 9.7, 0.452)
pt3dadd(4.294, 201.715, 9.7, 0.452)
pt3dadd(4.269, 201.832, 9.7, 0.452)
pt3dadd(4.231, 201.946, 9.7, 0.452)
pt3dadd(4.192, 202.06, 9.7, 0.452)
pt3dadd(4.153, 202.172, 9.7, 0.452)
pt3dadd(4.114, 202.286, 9.7, 0.452)
pt3dadd(4.076, 202.4, 9.7, 0.452)
pt3dadd(4.004, 202.494, 9.7, 0.452)
pt3dadd(3.922, 202.582, 9.7, 0.452)
pt3dadd(3.854, 202.68, 9.7, 0.452)
pt3dadd(3.793, 202.783, 9.7, 0.452)
pt3dadd(3.725, 202.88, 9.698, 0.452)
pt3dadd(3.647, 202.972, 9.692, 0.452)
pt3dadd(3.57, 203.048, 9.664, 0.452)
pt3dadd(3.494, 203.101, 9.6, 0.452)
pt3dadd(3.418, 203.17, 9.549, 0.452)
pt3dadd(3.342, 203.245, 9.505, 0.452)
pt3dadd(3.252, 203.322, 9.503, 0.452)
pt3dadd(3.165, 203.384, 9.541, 0.452)
pt3dadd(3.128, 203.424, 9.629, 0.452)
pt3dadd(3.12, 203.472, 9.72, 0.452)
pt3dadd(3.101, 203.537, 9.802, 0.452)
pt3dadd(3.077, 203.602, 9.873, 0.452)
pt3dadd(3.027, 203.623, 9.783, 0.452)
pt3dadd(2.972, 203.657, 9.71, 0.452)
pt3dadd(2.892, 203.747, 9.701, 0.452)
pt3dadd(2.826, 203.833, 9.738, 0.452)
pt3dadd(2.775, 203.892, 9.703, 0.452)
pt3dadd(2.679, 203.96, 9.692, 0.452)
pt3dadd(2.582, 204.03, 9.683, 0.452)
pt3dadd(2.485, 204.1, 9.674, 0.452)
pt3dadd(2.387, 204.167, 9.668, 0.452)
pt3dadd(2.284, 204.227, 9.683, 0.452)
pt3dadd(2.182, 204.287, 9.697, 0.452)
pt3dadd(2.079, 204.347, 9.711, 0.452)
pt3dadd(1.977, 204.407, 9.725, 0.452)
pt3dadd(1.87, 204.458, 9.739, 0.452)
pt3dadd(1.758, 204.498, 9.753, 0.452)
pt3dadd(1.646, 204.538, 9.766, 0.452)
pt3dadd(1.534, 204.577, 9.779, 0.452)
pt3dadd(1.422, 204.618, 9.793, 0.452)
pt3dadd(1.308, 204.654, 9.8, 0.452)
pt3dadd(1.193, 204.688, 9.8, 0.452)
pt3dadd(1.077, 204.72, 9.8, 0.452)
pt3dadd(0.958, 204.736, 9.8, 0.452)
pt3dadd(0.839, 204.75, 9.8, 0.452)
pt3dadd(0.724, 204.778, 9.8, 0.452)
pt3dadd(0.617, 204.832, 9.8, 0.452)
pt3dadd(0.513, 204.889, 9.8, 0.452)
pt3dadd(0.438, 204.983, 9.8, 0.452)
pt3dadd(0.363, 205.076, 9.8, 0.452)
pt3dadd(0.298, 205.172, 9.826, 0.452)
pt3dadd(0.244, 205.272, 9.859, 0.452)
pt3dadd(0.194, 205.372, 9.894, 0.452)
pt3dadd(0.103, 205.445, 9.9, 0.452)
pt3dadd(0.004, 205.513, 9.9, 0.452)
pt3dadd(-0.098, 205.576, 9.9, 0.452)
pt3dadd(-0.202, 205.637, 9.9, 0.452)
pt3dadd(-0.313, 205.669, 9.9, 0.452)
pt3dadd(-0.433, 205.674, 9.9, 0.452)
pt3dadd(-0.553, 205.679, 9.9, 0.452)
pt3dadd(-0.656, 205.72, 9.92, 0.452)
pt3dadd(-0.748, 205.786, 9.953, 0.452)
pt3dadd(-0.84, 205.852, 9.986, 0.452)
pt3dadd(-0.911, 205.942, 10, 0.452)
pt3dadd(-0.964, 206.048, 10, 0.452)
pt3dadd(-1.024, 206.148, 9.988, 0.452)
pt3dadd(-1.097, 206.232, 9.95, 0.452)
pt3dadd(-1.17, 206.316, 9.913, 0.452)
pt3dadd(-1.275, 206.374, 9.906, 0.452)
pt3dadd(-1.381, 206.43, 9.901, 0.452)
pt3dadd(-1.476, 206.502, 9.9, 0.452)
pt3dadd(-1.568, 206.58, 9.9, 0.452)
pt3dadd(-1.659, 206.658, 9.9, 0.452)
}
}
proc shape3d_34() {
apic[7] { pt3dadd(-1.75, 206.735, 9.9, 0.452)
pt3dadd(-1.842, 206.813, 9.9, 0.452)
pt3dadd(-1.936, 206.884, 9.895, 0.452)
pt3dadd(-2.046, 206.909, 9.863, 0.452)
pt3dadd(-2.148, 206.944, 9.831, 0.452)
pt3dadd(-2.16, 207.058, 9.801, 0.452)
pt3dadd(-2.172, 207.17, 9.771, 0.452)
pt3dadd(-2.244, 207.251, 9.735, 0.452)
pt3dadd(-2.329, 207.322, 9.7, 0.452)
pt3dadd(-2.447, 207.342, 9.7, 0.452)
pt3dadd(-2.566, 207.362, 9.7, 0.452)
pt3dadd(-2.673, 207.408, 9.698, 0.452)
pt3dadd(-2.768, 207.481, 9.695, 0.452)
pt3dadd(-2.864, 207.553, 9.692, 0.452)
pt3dadd(-2.959, 207.626, 9.689, 0.452)
pt3dadd(-3.003, 207.677, 9.606, 0.452)
pt3dadd(-3.047, 207.724, 9.522, 0.452)
pt3dadd(-3.099, 207.755, 9.436, 0.452)
pt3dadd(-3.117, 207.808, 9.349, 0.452)
pt3dadd(-3.078, 207.836, 9.26, 0.452)
pt3dadd(-2.982, 207.859, 9.209, 0.452)
pt3dadd(-2.872, 207.904, 9.2, 0.452)
pt3dadd(-2.758, 207.937, 9.2, 0.452)
pt3dadd(-2.64, 207.96, 9.2, 0.452)
}
apic[8] {pt3dclear()
pt3dadd(40.123, 152.99, 3.939, 1.13)
pt3dadd(40.129, 152.978, 3.914, 1.13)
pt3dadd(40.05, 152.989, 3.84, 1.13)
pt3dadd(39.97, 153, 3.766, 1.13)
pt3dadd(39.891, 153.011, 3.692, 1.13)
pt3dadd(39.811, 153.022, 3.618, 1.13)
pt3dadd(39.731, 153.034, 3.544, 1.13)
pt3dadd(39.651, 153.044, 3.47, 1.13)
pt3dadd(39.572, 153.055, 3.396, 1.13)
pt3dadd(39.492, 153.066, 3.322, 1.13)
pt3dadd(39.412, 153.077, 3.248, 1.13)
pt3dadd(39.333, 153.088, 3.174, 1.13)
pt3dadd(39.253, 153.098, 3.1, 1.13)
pt3dadd(39.173, 153.109, 3.026, 1.13)
pt3dadd(39.085, 153.14, 2.969, 1.144)
pt3dadd(38.996, 153.174, 2.915, 1.16)
pt3dadd(38.907, 153.208, 2.86, 1.176)
pt3dadd(38.817, 153.241, 2.805, 1.19)
pt3dadd(38.728, 153.275, 2.751, 1.206)
pt3dadd(38.639, 153.308, 2.696, 1.222)
pt3dadd(38.55, 153.342, 2.641, 1.238)
pt3dadd(38.46, 153.376, 2.587, 1.254)
pt3dadd(38.371, 153.409, 2.532, 1.27)
pt3dadd(38.285, 153.464, 2.508, 1.302)
pt3dadd(38.199, 153.532, 2.501, 1.344)
pt3dadd(38.114, 153.599, 2.493, 1.386)
pt3dadd(38.029, 153.667, 2.485, 1.426)
pt3dadd(37.944, 153.734, 2.477, 1.468)
pt3dadd(37.859, 153.802, 2.469, 1.51)
pt3dadd(37.773, 153.869, 2.461, 1.552)
pt3dadd(37.688, 153.936, 2.454, 1.594)
pt3dadd(37.603, 154.003, 2.446, 1.634)
pt3dadd(37.518, 154.07, 2.438, 1.676)
pt3dadd(37.427, 154.13, 2.43, 1.708)
pt3dadd(37.334, 154.186, 2.422, 1.734)
pt3dadd(37.241, 154.242, 2.415, 1.76)
pt3dadd(37.148, 154.297, 2.407, 1.784)
pt3dadd(37.055, 154.354, 2.399, 1.81)
pt3dadd(36.961, 154.41, 2.392, 1.836)
pt3dadd(36.868, 154.465, 2.384, 1.862)
pt3dadd(36.775, 154.522, 2.376, 1.888)
pt3dadd(36.682, 154.577, 2.369, 1.914)
pt3dadd(36.589, 154.633, 2.361, 1.94)
pt3dadd(36.497, 154.691, 2.354, 1.936)
pt3dadd(36.406, 154.751, 2.346, 1.918)
pt3dadd(36.316, 154.811, 2.339, 1.898)
pt3dadd(36.225, 154.871, 2.332, 1.88)
pt3dadd(36.134, 154.931, 2.324, 1.862)
pt3dadd(36.044, 154.99, 2.317, 1.844)
pt3dadd(35.953, 155.05, 2.31, 1.826)
pt3dadd(35.862, 155.11, 2.302, 1.808)
pt3dadd(35.772, 155.17, 2.295, 1.79)
pt3dadd(35.681, 155.228, 2.288, 1.772)
pt3dadd(35.594, 155.294, 2.281, 1.738)
pt3dadd(35.51, 155.362, 2.274, 1.7)
pt3dadd(35.425, 155.43, 2.267, 1.66)
pt3dadd(35.34, 155.497, 2.26, 1.622)
pt3dadd(35.255, 155.566, 2.253, 1.584)
pt3dadd(35.17, 155.633, 2.246, 1.544)
pt3dadd(35.085, 155.701, 2.239, 1.506)
pt3dadd(35.001, 155.768, 2.232, 1.466)
pt3dadd(34.916, 155.837, 2.225, 1.428)
pt3dadd(34.831, 155.904, 2.218, 1.39)
pt3dadd(34.752, 155.978, 2.212, 1.39)
pt3dadd(34.674, 156.054, 2.206, 1.406)
pt3dadd(34.597, 156.13, 2.2, 1.422)
pt3dadd(34.519, 156.206, 2.194, 1.436)
pt3dadd(34.442, 156.282, 2.188, 1.452)
pt3dadd(34.364, 156.358, 2.181, 1.468)
pt3dadd(34.287, 156.434, 2.175, 1.484)
pt3dadd(34.209, 156.51, 2.169, 1.5)
pt3dadd(34.132, 156.587, 2.163, 1.514)
pt3dadd(34.054, 156.662, 2.157, 1.53)
pt3dadd(33.981, 156.743, 2.153, 1.498)
pt3dadd(33.909, 156.824, 2.149, 1.448)
pt3dadd(33.838, 156.906, 2.146, 1.398)
pt3dadd(33.766, 156.986, 2.142, 1.348)
pt3dadd(33.694, 157.068, 2.138, 1.298)
pt3dadd(33.623, 157.15, 2.134, 1.248)
pt3dadd(33.551, 157.231, 2.131, 1.198)
pt3dadd(33.479, 157.313, 2.127, 1.148)
pt3dadd(33.408, 157.394, 2.123, 1.098)
pt3dadd(33.336, 157.476, 2.119, 1.046)
pt3dadd(33.27, 157.564, 2.118, 0.994)
pt3dadd(33.207, 157.652, 2.116, 0.942)
pt3dadd(33.144, 157.741, 2.115, 0.888)
pt3dadd(33.081, 157.829, 2.114, 0.834)
pt3dadd(33.018, 157.918, 2.113, 0.78)
pt3dadd(32.955, 158.006, 2.111, 0.728)
pt3dadd(32.892, 158.095, 2.11, 0.674)
pt3dadd(32.829, 158.183, 2.109, 0.62)
pt3dadd(32.766, 158.272, 2.108, 0.568)
pt3dadd(32.702, 158.36, 2.107, 0.514)
pt3dadd(32.654, 158.456, 2.112, 0.518)
pt3dadd(32.61, 158.556, 2.119, 0.534)
pt3dadd(32.566, 158.654, 2.125, 0.552)
pt3dadd(32.522, 158.753, 2.132, 0.57)
pt3dadd(32.478, 158.852, 2.139, 0.588)
pt3dadd(32.433, 158.951, 2.146, 0.606)
pt3dadd(32.389, 159.05, 2.153, 0.622)
pt3dadd(32.345, 159.149, 2.16, 0.64)
pt3dadd(32.301, 159.247, 2.167, 0.658)
pt3dadd(32.257, 159.347, 2.173, 0.676)
pt3dadd(32.218, 159.437, 2.207, 0.67)
pt3dadd(32.18, 159.526, 2.244, 0.662)
pt3dadd(32.142, 159.614, 2.282, 0.652)
pt3dadd(32.104, 159.703, 2.319, 0.644)
pt3dadd(32.066, 159.792, 2.357, 0.634)
pt3dadd(32.028, 159.881, 2.394, 0.626)
pt3dadd(31.99, 159.97, 2.431, 0.616)
pt3dadd(31.952, 160.057, 2.469, 0.608)
pt3dadd(31.914, 160.146, 2.506, 0.598)
pt3dadd(31.876, 160.235, 2.544, 0.59)
pt3dadd(31.823, 160.327, 2.557, 0.554)
pt3dadd(31.77, 160.42, 2.57, 0.518)
pt3dadd(31.717, 160.512, 2.583, 0.482)
pt3dadd(31.663, 160.604, 2.596, 0.444)
pt3dadd(31.61, 160.697, 2.609, 0.408)
pt3dadd(31.557, 160.788, 2.622, 0.372)
pt3dadd(31.504, 160.88, 2.635, 0.336)
pt3dadd(31.45, 160.973, 2.648, 0.298)
pt3dadd(31.397, 161.065, 2.661, 0.262)
pt3dadd(31.344, 161.158, 2.674, 0.226)
pt3dadd(31.353, 161.15, 2.666, 0.226)
pt3dadd(31.362, 161.143, 2.658, 0.226)
pt3dadd(31.371, 161.136, 2.649, 0.226)
pt3dadd(31.362, 161.01, 2.641, 0.226)
pt3dadd(31.315, 160.903, 2.658, 0.3)
pt3dadd(31.277, 160.826, 2.718, 0.488)
pt3dadd(31.274, 160.774, 2.8, 0.626)
pt3dadd(31.283, 160.747, 2.891, 0.694)
pt3dadd(31.292, 160.75, 2.982, 0.772)
pt3dadd(31.3, 160.777, 3.068, 0.922)
pt3dadd(31.28, 160.823, 3.146, 1.022)
pt3dadd(31.233, 160.861, 3.217, 0.962)
pt3dadd(31.202, 160.912, 3.288, 0.88)
pt3dadd(31.128, 160.943, 3.337, 0.802)
pt3dadd(31.02, 160.945, 3.339, 0.778)
pt3dadd(30.914, 160.942, 3.305, 0.834)
pt3dadd(30.811, 160.939, 3.262, 0.878)
pt3dadd(30.704, 160.95, 3.26, 0.828)
pt3dadd(30.596, 160.968, 3.258, 0.808)
pt3dadd(30.487, 160.986, 3.256, 0.788)
pt3dadd(30.379, 161.003, 3.254, 0.77)
pt3dadd(30.271, 161.021, 3.252, 0.75)
pt3dadd(30.163, 161.038, 3.251, 0.73)
pt3dadd(30.06, 161.051, 3.214, 0.72)
pt3dadd(29.957, 161.064, 3.172, 0.71)
pt3dadd(29.855, 161.077, 3.131, 0.7)
pt3dadd(29.753, 161.089, 3.089, 0.69)
pt3dadd(29.649, 161.102, 3.047, 0.68)
pt3dadd(29.54, 161.107, 3.031, 0.682)
pt3dadd(29.43, 161.11, 3.017, 0.686)
pt3dadd(29.319, 161.113, 3.004, 0.69)
pt3dadd(29.208, 161.117, 2.99, 0.694)
pt3dadd(29.098, 161.119, 2.977, 0.698)
pt3dadd(28.988, 161.123, 2.963, 0.702)
pt3dadd(28.885, 161.099, 2.936, 0.74)
pt3dadd(28.787, 161.05, 2.897, 0.812)
pt3dadd(28.691, 161.041, 2.916, 0.874)
pt3dadd(28.6, 161.054, 2.953, 0.932)
pt3dadd(28.548, 161.148, 2.968, 0.958)
pt3dadd(28.497, 161.236, 2.99, 0.982)
pt3dadd(28.439, 161.299, 3.039, 0.996)
pt3dadd(28.392, 161.363, 3.096, 1.024)
pt3dadd(28.36, 161.417, 3.166, 1.076)
pt3dadd(28.313, 161.455, 3.237, 1.13)
pt3dadd(28.29, 161.507, 3.309, 1.13)
pt3dadd(28.316, 161.586, 3.366, 1.13)
pt3dadd(28.384, 161.676, 3.376, 1.108)
pt3dadd(28.435, 161.766, 3.326, 1.022)
pt3dadd(28.441, 161.843, 3.248, 0.904)
pt3dadd(28.393, 161.872, 3.16, 0.8)
pt3dadd(28.326, 161.873, 3.075, 0.754)
pt3dadd(28.272, 161.867, 2.984, 0.744)
pt3dadd(28.257, 161.861, 2.878, 0.714)
}
}
proc shape3d_35() {
apic[8] { pt3dadd(28.252, 161.854, 2.771, 0.686)
pt3dadd(28.233, 161.848, 2.665, 0.678)
pt3dadd(28.183, 161.867, 2.574, 0.678)
pt3dadd(28.128, 161.935, 2.515, 0.652)
pt3dadd(28.082, 162.032, 2.497, 0.616)
pt3dadd(28.037, 162.132, 2.499, 0.626)
pt3dadd(27.99, 162.206, 2.541, 0.628)
pt3dadd(27.979, 162.282, 2.603, 0.642)
pt3dadd(27.975, 162.377, 2.635, 0.724)
pt3dadd(27.948, 162.484, 2.638, 0.774)
pt3dadd(27.918, 162.564, 2.602, 0.82)
pt3dadd(27.886, 162.61, 2.51, 0.86)
pt3dadd(27.844, 162.637, 2.418, 0.92)
pt3dadd(27.813, 162.721, 2.359, 0.944)
pt3dadd(27.785, 162.815, 2.305, 0.962)
pt3dadd(27.758, 162.907, 2.251, 0.98)
pt3dadd(27.731, 163, 2.196, 0.996)
pt3dadd(27.678, 163.072, 2.139, 1.018)
pt3dadd(27.603, 163.126, 2.079, 1.042)
pt3dadd(27.53, 163.18, 2.019, 1.068)
pt3dadd(27.456, 163.234, 1.96, 1.092)
pt3dadd(27.396, 163.304, 1.905, 1.11)
pt3dadd(27.352, 163.393, 1.858, 1.122)
pt3dadd(27.307, 163.483, 1.81, 1.134)
pt3dadd(27.262, 163.572, 1.762, 1.146)
pt3dadd(27.217, 163.663, 1.724, 1.154)
pt3dadd(27.166, 163.76, 1.716, 1.148)
pt3dadd(27.116, 163.858, 1.707, 1.144)
pt3dadd(27.065, 163.955, 1.699, 1.14)
pt3dadd(27.015, 164.052, 1.691, 1.134)
pt3dadd(26.965, 164.149, 1.683, 1.132)
pt3dadd(26.921, 164.25, 1.675, 1.142)
pt3dadd(26.877, 164.35, 1.666, 1.15)
pt3dadd(26.834, 164.45, 1.658, 1.16)
pt3dadd(26.789, 164.551, 1.65, 1.17)
pt3dadd(26.745, 164.652, 1.642, 1.18)
pt3dadd(26.703, 164.737, 1.586, 1.216)
pt3dadd(26.66, 164.821, 1.53, 1.252)
pt3dadd(26.618, 164.905, 1.474, 1.288)
pt3dadd(26.575, 164.99, 1.417, 1.324)
pt3dadd(26.528, 165.086, 1.4, 1.36)
pt3dadd(26.481, 165.185, 1.392, 1.394)
pt3dadd(26.433, 165.284, 1.384, 1.428)
pt3dadd(26.386, 165.383, 1.376, 1.462)
pt3dadd(26.339, 165.481, 1.368, 1.496)
pt3dadd(26.303, 165.576, 1.329, 1.51)
pt3dadd(26.272, 165.67, 1.277, 1.516)
pt3dadd(26.241, 165.763, 1.225, 1.522)
pt3dadd(26.211, 165.856, 1.173, 1.528)
pt3dadd(26.176, 165.94, 1.113, 1.53)
pt3dadd(26.131, 166.006, 1.039, 1.524)
pt3dadd(26.087, 166.072, 0.966, 1.518)
pt3dadd(26.043, 166.139, 0.892, 1.512)
pt3dadd(25.995, 166.205, 0.821, 1.506)
pt3dadd(25.936, 166.27, 0.755, 1.506)
pt3dadd(25.879, 166.333, 0.689, 1.506)
pt3dadd(25.821, 166.398, 0.623, 1.506)
pt3dadd(25.759, 166.46, 0.559, 1.508)
pt3dadd(25.686, 166.514, 0.499, 1.514)
pt3dadd(25.612, 166.568, 0.439, 1.52)
pt3dadd(25.539, 166.624, 0.379, 1.526)
pt3dadd(25.471, 166.685, 0.324, 1.528)
pt3dadd(25.437, 166.787, 0.294, 1.502)
pt3dadd(25.402, 166.874, 0.252, 1.478)
pt3dadd(25.364, 166.896, 0.155, 1.452)
pt3dadd(25.322, 166.924, 0.065, 1.428)
pt3dadd(25.25, 166.988, 0.012, 1.414)
pt3dadd(25.192, 167.069, -0.024, 1.426)
pt3dadd(25.157, 167.172, -0.037, 1.472)
pt3dadd(25.129, 167.275, -0.06, 1.526)
pt3dadd(25.132, 167.374, -0.116, 1.616)
pt3dadd(25.08, 167.459, -0.156, 1.666)
pt3dadd(25.018, 167.54, -0.193, 1.708)
pt3dadd(24.956, 167.623, -0.23, 1.748)
pt3dadd(24.892, 167.706, -0.266, 1.79)
pt3dadd(24.835, 167.794, -0.3, 1.814)
pt3dadd(24.781, 167.885, -0.331, 1.826)
pt3dadd(24.727, 167.977, -0.362, 1.836)
pt3dadd(24.674, 168.068, -0.392, 1.848)
pt3dadd(24.619, 168.16, -0.423, 1.856)
pt3dadd(24.563, 168.25, -0.451, 1.834)
pt3dadd(24.506, 168.341, -0.479, 1.81)
pt3dadd(24.449, 168.431, -0.507, 1.788)
pt3dadd(24.393, 168.522, -0.535, 1.766)
pt3dadd(24.35, 168.622, -0.552, 1.73)
pt3dadd(24.314, 168.725, -0.562, 1.686)
pt3dadd(24.279, 168.829, -0.573, 1.644)
pt3dadd(24.243, 168.934, -0.583, 1.6)
pt3dadd(24.207, 169.038, -0.593, 1.556)
pt3dadd(24.164, 169.139, -0.605, 1.492)
pt3dadd(24.114, 169.236, -0.619, 1.396)
pt3dadd(24.067, 169.328, -0.647, 1.326)
pt3dadd(24.026, 169.412, -0.705, 1.312)
pt3dadd(23.99, 169.47, -0.783, 1.334)
pt3dadd(23.96, 169.507, -0.879, 1.386)
pt3dadd(23.905, 169.522, -0.967, 1.452)
pt3dadd(23.836, 169.523, -1.05, 1.526)
pt3dadd(23.786, 169.582, -1.105, 1.562)
pt3dadd(23.749, 169.682, -1.136, 1.568)
pt3dadd(23.713, 169.782, -1.168, 1.576)
pt3dadd(23.67, 169.88, -1.195, 1.574)
pt3dadd(23.612, 169.973, -1.209, 1.55)
pt3dadd(23.551, 170.05, -1.237, 1.508)
pt3dadd(23.486, 170.077, -1.318, 1.406)
pt3dadd(23.441, 170.071, -1.416, 1.272)
pt3dadd(23.405, 170.076, -1.516, 1.17)
pt3dadd(23.393, 170.105, -1.617, 1.13)
pt3dadd(23.374, 170.152, -1.71, 1.114)
pt3dadd(23.322, 170.197, -1.792, 1.072)
pt3dadd(23.266, 170.245, -1.87, 1.028)
pt3dadd(23.214, 170.26, -1.963, 0.978)
pt3dadd(23.164, 170.275, -2.056, 0.926)
pt3dadd(23.134, 170.294, -2.156, 0.878)
pt3dadd(23.106, 170.315, -2.256, 0.828)
pt3dadd(23.054, 170.408, -2.288, 0.802)
pt3dadd(23.002, 170.501, -2.316, 0.77)
pt3dadd(22.935, 170.586, -2.316, 0.696)
pt3dadd(22.884, 170.681, -2.329, 0.652)
pt3dadd(22.836, 170.779, -2.347, 0.616)
pt3dadd(22.79, 170.878, -2.364, 0.582)
pt3dadd(22.747, 170.976, -2.388, 0.546)
pt3dadd(22.756, 170.969, -2.396, 0.546)
pt3dadd(22.738, 171.064, -2.451, 0.514)
pt3dadd(22.721, 171.16, -2.507, 0.48)
pt3dadd(22.705, 171.254, -2.562, 0.446)
pt3dadd(22.687, 171.349, -2.618, 0.412)
pt3dadd(22.637, 171.437, -2.656, 0.394)
pt3dadd(22.573, 171.521, -2.687, 0.382)
pt3dadd(22.509, 171.605, -2.719, 0.37)
pt3dadd(22.444, 171.689, -2.75, 0.36)
pt3dadd(22.38, 171.768, -2.788, 0.356)
pt3dadd(22.315, 171.84, -2.84, 0.37)
pt3dadd(22.254, 171.912, -2.897, 0.384)
pt3dadd(22.198, 171.983, -2.956, 0.4)
pt3dadd(22.14, 172.055, -3.015, 0.402)
pt3dadd(22.083, 172.129, -3.069, 0.4)
pt3dadd(22.032, 172.224, -3.065, 0.388)
pt3dadd(21.986, 172.314, -3.048, 0.386)
pt3dadd(21.966, 172.384, -2.984, 0.426)
pt3dadd(21.978, 172.476, -2.94, 0.538)
pt3dadd(21.983, 172.586, -2.927, 0.632)
pt3dadd(21.969, 172.696, -2.931, 0.652)
pt3dadd(21.908, 172.784, -2.939, 0.586)
pt3dadd(21.816, 172.837, -2.947, 0.486)
pt3dadd(21.708, 172.855, -2.955, 0.398)
pt3dadd(21.597, 172.855, -2.973, 0.334)
pt3dadd(21.491, 172.853, -3.007, 0.302)
pt3dadd(21.406, 172.849, -3.078, 0.338)
pt3dadd(21.333, 172.844, -3.159, 0.416)
pt3dadd(21.252, 172.849, -3.229, 0.508)
pt3dadd(21.172, 172.894, -3.29, 0.538)
pt3dadd(21.094, 172.937, -3.352, 0.568)
pt3dadd(21.015, 172.981, -3.413, 0.598)
pt3dadd(20.936, 173.024, -3.475, 0.628)
pt3dadd(20.869, 173.041, -3.559, 0.694)
pt3dadd(20.8, 173.057, -3.632, 0.762)
pt3dadd(20.695, 173.074, -3.612, 0.85)
pt3dadd(20.594, 173.094, -3.593, 0.938)
pt3dadd(20.506, 173.154, -3.578, 1.03)
pt3dadd(20.431, 173.213, -3.552, 1.12)
pt3dadd(20.406, 173.272, -3.482, 1.202)
pt3dadd(20.365, 173.338, -3.435, 1.266)
pt3dadd(20.29, 173.416, -3.429, 1.298)
pt3dadd(20.217, 173.494, -3.424, 1.328)
pt3dadd(20.14, 173.568, -3.42, 1.358)
pt3dadd(20.036, 173.603, -3.428, 1.38)
pt3dadd(19.934, 173.639, -3.436, 1.4)
pt3dadd(19.848, 173.702, -3.445, 1.456)
pt3dadd(19.802, 173.8, -3.473, 1.462)
pt3dadd(19.755, 173.897, -3.501, 1.468)
pt3dadd(19.71, 173.994, -3.528, 1.474)
pt3dadd(19.664, 174.091, -3.556, 1.478)
pt3dadd(19.6, 174.173, -3.576, 1.488)
pt3dadd(19.515, 174.24, -3.586, 1.504)
pt3dadd(19.428, 174.306, -3.597, 1.52)
pt3dadd(19.342, 174.373, -3.607, 1.534)
pt3dadd(19.256, 174.439, -3.618, 1.55)
pt3dadd(19.16, 174.482, -3.627, 1.568)
pt3dadd(19.052, 174.506, -3.635, 1.588)
pt3dadd(18.945, 174.529, -3.643, 1.608)
pt3dadd(18.857, 174.594, -3.652, 1.618)
pt3dadd(18.77, 174.658, -3.66, 1.63)
pt3dadd(18.735, 174.76, -3.668, 1.604)
pt3dadd(18.708, 174.866, -3.676, 1.572)
pt3dadd(18.661, 174.962, -3.685, 1.534)
pt3dadd(18.591, 175.045, -3.693, 1.486)
pt3dadd(18.536, 175.138, -3.701, 1.45)
pt3dadd(18.506, 175.243, -3.709, 1.434)
pt3dadd(18.442, 175.33, -3.717, 1.452)
pt3dadd(18.37, 175.411, -3.726, 1.478)
pt3dadd(18.298, 175.493, -3.734, 1.502)
pt3dadd(18.226, 175.576, -3.742, 1.528)
pt3dadd(18.155, 175.657, -3.75, 1.554)
pt3dadd(18.088, 175.742, -3.759, 1.606)
pt3dadd(18.022, 175.83, -3.767, 1.662)
pt3dadd(17.958, 175.916, -3.775, 1.716)
pt3dadd(17.892, 176.003, -3.783, 1.772)
pt3dadd(17.826, 176.09, -3.792, 1.828)
pt3dadd(17.719, 176.104, -3.8, 1.924)
pt3dadd(17.61, 176.111, -3.808, 2.022)
}
}
proc shape3d_36() {
apic[8] { pt3dadd(17.504, 176.126, -3.816, 2.114)
pt3dadd(17.434, 176.21, -3.824, 2.15)
pt3dadd(17.365, 176.293, -3.833, 2.184)
pt3dadd(17.295, 176.377, -3.841, 2.102)
pt3dadd(17.226, 176.46, -3.849, 2.02)
pt3dadd(17.175, 176.557, -3.857, 1.898)
pt3dadd(17.126, 176.654, -3.866, 1.772)
pt3dadd(17.072, 176.75, -3.876, 1.704)
pt3dadd(17.016, 176.844, -3.887, 1.66)
pt3dadd(16.96, 176.938, -3.899, 1.618)
pt3dadd(16.898, 177.018, -3.916, 1.58)
pt3dadd(16.798, 177.034, -3.962, 1.568)
pt3dadd(16.704, 177.058, -4.004, 1.556)
pt3dadd(16.661, 177.16, -4.016, 1.538)
pt3dadd(16.617, 177.26, -4.028, 1.52)
pt3dadd(16.57, 177.358, -4.04, 1.496)
pt3dadd(16.499, 177.44, -4.048, 1.45)
pt3dadd(16.432, 177.524, -4.059, 1.402)
pt3dadd(16.383, 177.613, -4.104, 1.362)
pt3dadd(16.335, 177.702, -4.149, 1.32)
pt3dadd(16.259, 177.757, -4.198, 1.296)
pt3dadd(16.17, 177.797, -4.248, 1.284)
pt3dadd(16.074, 177.823, -4.29, 1.306)
pt3dadd(16.017, 177.902, -4.342, 1.312)
pt3dadd(15.961, 177.982, -4.393, 1.318)
pt3dadd(15.906, 178.061, -4.444, 1.324)
pt3dadd(15.849, 178.14, -4.496, 1.33)
pt3dadd(15.754, 178.182, -4.531, 1.342)
pt3dadd(15.656, 178.222, -4.566, 1.352)
pt3dadd(15.56, 178.261, -4.601, 1.364)
pt3dadd(15.464, 178.302, -4.635, 1.374)
pt3dadd(15.378, 178.358, -4.661, 1.382)
pt3dadd(15.311, 178.445, -4.672, 1.382)
pt3dadd(15.243, 178.53, -4.682, 1.382)
pt3dadd(15.176, 178.615, -4.693, 1.382)
pt3dadd(15.109, 178.7, -4.703, 1.382)
pt3dadd(15.037, 178.781, -4.72, 1.378)
pt3dadd(14.96, 178.856, -4.743, 1.372)
pt3dadd(14.884, 178.932, -4.766, 1.368)
pt3dadd(14.807, 179.008, -4.789, 1.362)
pt3dadd(14.731, 179.082, -4.812, 1.356)
pt3dadd(14.649, 179.144, -4.849, 1.24)
pt3dadd(14.564, 179.21, -4.862, 1.156)
pt3dadd(14.508, 179.303, -4.87, 1.096)
pt3dadd(14.455, 179.398, -4.878, 1.062)
pt3dadd(14.384, 179.472, -4.908, 1.048)
pt3dadd(14.335, 179.496, -4.994, 1.008)
pt3dadd(14.326, 179.492, -5.101, 1.004)
pt3dadd(14.317, 179.485, -5.207, 1.062)
pt3dadd(14.259, 179.48, -5.296, 1.166)
pt3dadd(14.169, 179.489, -5.359, 1.276)
pt3dadd(14.098, 179.557, -5.405, 1.322)
pt3dadd(14.029, 179.63, -5.447, 1.36)
pt3dadd(13.965, 179.717, -5.473, 1.386)
pt3dadd(13.903, 179.791, -5.513, 1.418)
pt3dadd(13.829, 179.844, -5.565, 1.428)
pt3dadd(13.744, 179.904, -5.602, 1.422)
pt3dadd(13.659, 179.965, -5.638, 1.416)
pt3dadd(13.576, 180.025, -5.674, 1.41)
pt3dadd(13.491, 180.082, -5.716, 1.406)
pt3dadd(13.407, 180.13, -5.767, 1.406)
pt3dadd(13.337, 180.154, -5.839, 1.412)
pt3dadd(13.283, 180.155, -5.932, 1.424)
pt3dadd(13.235, 180.193, -6.008, 1.454)
pt3dadd(13.196, 180.283, -6.059, 1.51)
pt3dadd(13.142, 180.362, -6.111, 1.558)
pt3dadd(13.077, 180.433, -6.163, 1.6)
pt3dadd(13.055, 180.535, -6.198, 1.62)
pt3dadd(13.04, 180.642, -6.229, 1.634)
pt3dadd(13.026, 180.749, -6.26, 1.648)
pt3dadd(13.022, 180.845, -6.252, 1.652)
pt3dadd(13.034, 180.925, -6.192, 1.64)
pt3dadd(13.019, 181.004, -6.148, 1.622)
pt3dadd(12.942, 181.078, -6.139, 1.594)
pt3dadd(12.864, 181.152, -6.129, 1.564)
pt3dadd(12.794, 181.234, -6.133, 1.504)
pt3dadd(12.724, 181.318, -6.142, 1.432)
pt3dadd(12.687, 181.411, -6.174, 1.364)
pt3dadd(12.669, 181.512, -6.22, 1.296)
pt3dadd(12.651, 181.613, -6.267, 1.23)
pt3dadd(12.593, 181.676, -6.333, 1.158)
pt3dadd(12.524, 181.738, -6.383, 1.096)
pt3dadd(12.444, 181.806, -6.396, 1.08)
pt3dadd(12.379, 181.894, -6.414, 1.08)
pt3dadd(12.315, 181.98, -6.431, 1.08)
pt3dadd(12.25, 182.066, -6.449, 1.08)
pt3dadd(12.184, 182.154, -6.467, 1.08)
pt3dadd(12.129, 182.192, -6.543, 1.068)
pt3dadd(12.073, 182.225, -6.629, 1.054)
pt3dadd(12.027, 182.323, -6.638, 1.006)
pt3dadd(11.981, 182.423, -6.646, 0.956)
pt3dadd(11.971, 182.494, -6.581, 0.916)
pt3dadd(11.961, 182.564, -6.516, 0.878)
pt3dadd(11.93, 182.659, -6.482, 0.85)
pt3dadd(11.905, 182.756, -6.453, 0.832)
pt3dadd(11.905, 182.868, -6.445, 0.844)
pt3dadd(11.905, 182.978, -6.436, 0.856)
pt3dadd(11.905, 183.089, -6.428, 0.868)
pt3dadd(11.897, 183.198, -6.427, 0.886)
pt3dadd(11.863, 183.299, -6.458, 0.924)
pt3dadd(11.833, 183.39, -6.502, 0.974)
pt3dadd(11.825, 183.444, -6.595, 1.07)
pt3dadd(11.757, 183.498, -6.65, 1.178)
pt3dadd(11.65, 183.518, -6.664, 1.188)
pt3dadd(11.541, 183.52, -6.681, 1.16)
pt3dadd(11.443, 183.516, -6.73, 1.128)
pt3dadd(11.382, 183.518, -6.819, 1.092)
pt3dadd(11.331, 183.534, -6.912, 1.052)
pt3dadd(11.281, 183.562, -7.001, 1.002)
pt3dadd(11.232, 183.608, -7.084, 0.932)
pt3dadd(11.193, 183.685, -7.146, 0.874)
pt3dadd(11.163, 183.781, -7.194, 0.824)
pt3dadd(11.13, 183.877, -7.238, 0.774)
pt3dadd(11.083, 183.976, -7.246, 0.74)
pt3dadd(11.034, 184.074, -7.254, 0.706)
pt3dadd(11.05, 184.184, -7.26, 0.696)
pt3dadd(11.07, 184.297, -7.265, 0.69)
pt3dadd(11.091, 184.409, -7.27, 0.682)
pt3dadd(11.148, 184.489, -7.253, 0.678)
pt3dadd(11.25, 184.53, -7.212, 0.678)
pt3dadd(11.309, 184.573, -7.145, 0.678)
pt3dadd(11.339, 184.603, -7.062, 0.678)
pt3dadd(11.348, 184.603, -6.971, 0.678)
pt3dadd(11.35, 184.596, -6.88, 0.678)
pt3dadd(11.331, 184.601, -6.792, 0.656)
pt3dadd(11.254, 184.643, -6.751, 0.534)
pt3dadd(11.156, 184.684, -6.753, 0.418)
pt3dadd(11.049, 184.712, -6.761, 0.428)
pt3dadd(10.962, 184.772, -6.77, 0.54)
pt3dadd(10.9, 184.862, -6.778, 0.642)
pt3dadd(10.819, 184.934, -6.788, 0.682)
pt3dadd(10.745, 184.994, -6.832, 0.724)
pt3dadd(10.734, 185.026, -6.931, 0.748)
pt3dadd(10.739, 185.029, -7.038, 0.72)
pt3dadd(10.727, 185.023, -7.145, 0.692)
pt3dadd(10.678, 185.017, -7.238, 0.678)
pt3dadd(10.61, 185.012, -7.323, 0.706)
pt3dadd(10.53, 185.009, -7.399, 0.72)
pt3dadd(10.451, 185.005, -7.474, 0.736)
pt3dadd(10.371, 185, -7.55, 0.75)
pt3dadd(10.291, 184.997, -7.625, 0.766)
pt3dadd(10.207, 184.992, -7.697, 0.784)
pt3dadd(10.113, 184.988, -7.756, 0.82)
pt3dadd(10.019, 184.986, -7.815, 0.854)
pt3dadd(9.935, 185.033, -7.866, 0.868)
pt3dadd(9.851, 185.087, -7.909, 0.874)
pt3dadd(9.775, 185.164, -7.918, 0.85)
pt3dadd(9.699, 185.242, -7.924, 0.828)
pt3dadd(9.641, 185.329, -7.909, 0.828)
pt3dadd(9.592, 185.411, -7.882, 0.836)
pt3dadd(9.582, 185.465, -7.806, 0.874)
pt3dadd(9.529, 185.549, -7.783, 0.914)
pt3dadd(9.471, 185.636, -7.767, 0.954)
pt3dadd(9.42, 185.732, -7.781, 0.954)
pt3dadd(9.37, 185.83, -7.794, 0.954)
pt3dadd(9.381, 185.826, -7.811, 0.954)
}
apic[9] {pt3dclear()
pt3dadd(9.381, 185.826, -7.811, 0.954)
pt3dadd(9.306, 185.851, -7.859, 0.944)
pt3dadd(9.215, 185.882, -7.919, 0.93)
pt3dadd(9.137, 185.906, -7.993, 0.916)
pt3dadd(9.063, 185.93, -8.068, 0.904)
pt3dadd(8.975, 185.993, -8.113, 0.912)
pt3dadd(8.887, 186.054, -8.157, 0.922)
pt3dadd(8.799, 186.118, -8.2, 0.93)
pt3dadd(8.714, 186.202, -8.2, 0.954)
pt3dadd(8.628, 186.286, -8.2, 0.978)
pt3dadd(8.553, 186.376, -8.209, 1.058)
pt3dadd(8.469, 186.446, -8.249, 1.07)
pt3dadd(8.386, 186.517, -8.289, 1.082)
pt3dadd(8.3, 186.587, -8.329, 1.094)
pt3dadd(8.219, 186.656, -8.372, 1.106)
pt3dadd(8.161, 186.712, -8.447, 1.12)
pt3dadd(8.098, 186.768, -8.516, 1.134)
pt3dadd(8.023, 186.833, -8.574, 1.148)
pt3dadd(7.937, 186.9, -8.6, 1.168)
pt3dadd(7.839, 186.972, -8.6, 1.192)
pt3dadd(7.743, 187.043, -8.6, 1.228)
pt3dadd(7.646, 187.115, -8.6, 1.286)
pt3dadd(7.554, 187.189, -8.6, 1.36)
pt3dadd(7.472, 187.277, -8.6, 1.484)
pt3dadd(7.393, 187.368, -8.6, 1.54)
pt3dadd(7.316, 187.459, -8.6, 1.58)
pt3dadd(7.239, 187.552, -8.6, 1.62)
pt3dadd(7.162, 187.643, -8.6, 1.662)
pt3dadd(7.083, 187.734, -8.6, 1.702)
pt3dadd(6.992, 187.812, -8.6, 1.734)
pt3dadd(6.899, 187.888, -8.6, 1.764)
pt3dadd(6.805, 187.963, -8.6, 1.794)
pt3dadd(6.712, 188.038, -8.6, 1.824)
pt3dadd(6.619, 188.113, -8.6, 1.854)
pt3dadd(6.512, 188.168, -8.6, 1.87)
pt3dadd(6.404, 188.219, -8.6, 1.884)
pt3dadd(6.295, 188.27, -8.6, 1.898)
pt3dadd(6.186, 188.322, -8.6, 1.912)
pt3dadd(6.079, 188.374, -8.6, 1.928)
pt3dadd(5.99, 188.449, -8.6, 1.93)
pt3dadd(5.918, 188.545, -8.6, 1.926)
pt3dadd(5.847, 188.641, -8.6, 1.92)
pt3dadd(5.775, 188.737, -8.6, 1.916)
pt3dadd(5.704, 188.834, -8.6, 1.91)
}
}
proc shape3d_37() {
apic[9] { pt3dadd(5.614, 188.91, -8.6, 1.898)
pt3dadd(5.51, 188.971, -8.6, 1.878)
pt3dadd(5.407, 189.031, -8.6, 1.858)
pt3dadd(5.303, 189.091, -8.6, 1.84)
pt3dadd(5.198, 189.151, -8.6, 1.82)
pt3dadd(5.105, 189.223, -8.6, 1.794)
pt3dadd(5.028, 189.316, -8.6, 1.758)
pt3dadd(4.95, 189.407, -8.6, 1.724)
pt3dadd(4.873, 189.499, -8.6, 1.688)
pt3dadd(4.795, 189.59, -8.6, 1.652)
pt3dadd(4.711, 189.674, -8.6, 1.626)
pt3dadd(4.618, 189.75, -8.6, 1.61)
pt3dadd(4.524, 189.826, -8.6, 1.596)
pt3dadd(4.431, 189.901, -8.6, 1.58)
pt3dadd(4.337, 189.976, -8.6, 1.566)
pt3dadd(4.256, 190.063, -8.6, 1.55)
pt3dadd(4.194, 190.165, -8.6, 1.536)
pt3dadd(4.131, 190.268, -8.6, 1.52)
pt3dadd(4.069, 190.37, -8.6, 1.506)
pt3dadd(4.006, 190.472, -8.6, 1.49)
pt3dadd(3.935, 190.568, -8.6, 1.484)
pt3dadd(3.849, 190.652, -8.6, 1.488)
pt3dadd(3.765, 190.736, -8.6, 1.494)
pt3dadd(3.679, 190.82, -8.6, 1.498)
pt3dadd(3.593, 190.904, -8.6, 1.504)
pt3dadd(3.503, 190.982, -8.609, 1.494)
pt3dadd(3.41, 191.051, -8.632, 1.466)
pt3dadd(3.316, 191.12, -8.655, 1.438)
pt3dadd(3.221, 191.19, -8.677, 1.41)
pt3dadd(3.127, 191.26, -8.7, 1.382)
pt3dadd(3.046, 191.333, -8.74, 1.37)
pt3dadd(2.964, 191.407, -8.78, 1.356)
pt3dadd(2.883, 191.48, -8.821, 1.344)
pt3dadd(2.801, 191.555, -8.861, 1.332)
pt3dadd(2.742, 191.651, -8.893, 1.302)
pt3dadd(2.688, 191.752, -8.924, 1.266)
pt3dadd(2.633, 191.851, -8.954, 1.232)
pt3dadd(2.579, 191.952, -8.985, 1.198)
pt3dadd(2.508, 192.043, -9, 1.178)
pt3dadd(2.422, 192.127, -9, 1.172)
pt3dadd(2.336, 192.211, -9, 1.168)
pt3dadd(2.25, 192.294, -9, 1.162)
pt3dadd(2.164, 192.378, -9, 1.158)
pt3dadd(2.098, 192.476, -9, 1.148)
pt3dadd(2.049, 192.586, -9, 1.132)
pt3dadd(1.998, 192.695, -9, 1.118)
pt3dadd(1.948, 192.804, -9, 1.104)
pt3dadd(1.899, 192.913, -9, 1.09)
pt3dadd(1.846, 193.021, -9, 1.088)
pt3dadd(1.789, 193.126, -9, 1.11)
pt3dadd(1.726, 193.226, -9, 1.136)
pt3dadd(1.625, 193.29, -9, 1.182)
pt3dadd(1.523, 193.355, -9, 1.228)
pt3dadd(1.425, 193.418, -9.016, 1.302)
pt3dadd(1.325, 193.483, -9.033, 1.38)
pt3dadd(1.227, 193.53, -9.074, 1.42)
pt3dadd(1.136, 193.579, -9.121, 1.454)
pt3dadd(1.108, 193.643, -9.202, 1.43)
pt3dadd(1.082, 193.708, -9.283, 1.406)
pt3dadd(1.054, 193.772, -9.364, 1.382)
pt3dadd(0.995, 193.871, -9.389, 1.304)
pt3dadd(0.932, 193.968, -9.413, 1.218)
pt3dadd(0.836, 194.021, -9.45, 1.102)
pt3dadd(0.745, 194.084, -9.49, 1.096)
pt3dadd(0.655, 194.148, -9.53, 1.09)
pt3dadd(0.565, 194.212, -9.569, 1.084)
pt3dadd(0.477, 194.28, -9.605, 1.086)
pt3dadd(0.397, 194.365, -9.628, 1.108)
pt3dadd(0.319, 194.45, -9.651, 1.132)
pt3dadd(0.239, 194.536, -9.674, 1.154)
pt3dadd(0.159, 194.622, -9.697, 1.178)
pt3dadd(0.085, 194.713, -9.715, 1.248)
pt3dadd(0.012, 194.807, -9.732, 1.326)
pt3dadd(-0.094, 194.833, -9.769, 1.388)
pt3dadd(-0.204, 194.856, -9.806, 1.448)
pt3dadd(-0.282, 194.922, -9.856, 1.456)
pt3dadd(-0.347, 194.999, -9.906, 1.45)
pt3dadd(-0.349, 195.108, -9.946, 1.404)
pt3dadd(-0.351, 195.218, -9.987, 1.358)
pt3dadd(-0.425, 195.311, -9.992, 1.322)
pt3dadd(-0.502, 195.402, -9.995, 1.286)
pt3dadd(-0.579, 195.493, -9.998, 1.25)
pt3dadd(-0.672, 195.556, -10.016, 1.218)
pt3dadd(-0.781, 195.584, -10.048, 1.194)
pt3dadd(-0.892, 195.611, -10.08, 1.196)
pt3dadd(-0.975, 195.679, -10.116, 1.206)
pt3dadd(-1.045, 195.764, -10.153, 1.206)
pt3dadd(-1.117, 195.851, -10.19, 1.206)
pt3dadd(-1.187, 195.936, -10.228, 1.206)
pt3dadd(-1.271, 196.004, -10.269, 1.198)
pt3dadd(-1.363, 196.058, -10.314, 1.186)
pt3dadd(-1.456, 196.112, -10.359, 1.174)
pt3dadd(-1.549, 196.166, -10.403, 1.162)
pt3dadd(-1.635, 196.234, -10.438, 1.148)
pt3dadd(-1.709, 196.327, -10.453, 1.126)
pt3dadd(-1.781, 196.42, -10.468, 1.104)
pt3dadd(-1.855, 196.513, -10.482, 1.082)
pt3dadd(-1.928, 196.607, -10.497, 1.06)
pt3dadd(-2.023, 196.678, -10.5, 1.054)
pt3dadd(-2.124, 196.742, -10.5, 1.054)
pt3dadd(-2.217, 196.81, -10.522, 1.072)
pt3dadd(-2.303, 196.879, -10.559, 1.1)
pt3dadd(-2.399, 196.937, -10.595, 1.138)
pt3dadd(-2.498, 196.991, -10.631, 1.178)
pt3dadd(-2.535, 197.04, -10.715, 1.192)
pt3dadd(-2.568, 197.09, -10.801, 1.206)
pt3dadd(-2.644, 197.166, -10.846, 1.188)
pt3dadd(-2.719, 197.243, -10.892, 1.17)
pt3dadd(-2.794, 197.318, -10.937, 1.15)
pt3dadd(-2.873, 197.396, -10.975, 1.094)
pt3dadd(-2.94, 197.482, -11.013, 1.042)
pt3dadd(-2.98, 197.585, -11.053, 1.002)
pt3dadd(-3.019, 197.687, -11.093, 0.962)
pt3dadd(-3.059, 197.712, -11.177, 0.946)
pt3dadd(-3.101, 197.719, -11.271, 0.934)
pt3dadd(-3.147, 197.741, -11.36, 0.946)
pt3dadd(-3.199, 197.774, -11.446, 0.974)
pt3dadd(-3.249, 197.807, -11.533, 1.004)
pt3dadd(-3.359, 197.837, -11.566, 1.028)
pt3dadd(-3.468, 197.867, -11.598, 1.054)
pt3dadd(-3.552, 197.951, -11.6, 1.064)
pt3dadd(-3.633, 198.038, -11.6, 1.072)
pt3dadd(-3.712, 198.128, -11.6, 1.078)
pt3dadd(-3.769, 198.234, -11.6, 1.068)
pt3dadd(-3.826, 198.34, -11.6, 1.056)
pt3dadd(-3.917, 198.409, -11.6, 1.054)
pt3dadd(-3.964, 198.52, -11.6, 1.054)
pt3dadd(-4.012, 198.63, -11.6, 1.054)
pt3dadd(-4.058, 198.74, -11.6, 1.054)
pt3dadd(-4.105, 198.851, -11.6, 1.054)
pt3dadd(-4.151, 198.961, -11.6, 1.054)
pt3dadd(-4.22, 199.06, -11.6, 1.05)
pt3dadd(-4.292, 199.156, -11.6, 1.046)
pt3dadd(-4.363, 199.252, -11.6, 1.04)
pt3dadd(-4.436, 199.349, -11.6, 1.036)
pt3dadd(-4.507, 199.445, -11.6, 1.03)
pt3dadd(-4.582, 199.538, -11.6, 1.034)
pt3dadd(-4.656, 199.633, -11.6, 1.04)
pt3dadd(-4.731, 199.727, -11.6, 1.044)
pt3dadd(-4.805, 199.82, -11.6, 1.05)
pt3dadd(-4.879, 199.915, -11.6, 1.054)
pt3dadd(-4.944, 200.016, -11.6, 1.078)
pt3dadd(-5.009, 200.117, -11.6, 1.1)
pt3dadd(-5.113, 200.165, -11.612, 1.15)
pt3dadd(-5.226, 200.198, -11.627, 1.206)
pt3dadd(-5.328, 200.249, -11.655, 1.246)
pt3dadd(-5.42, 200.31, -11.691, 1.274)
pt3dadd(-5.494, 200.374, -11.749, 1.28)
pt3dadd(-5.56, 200.436, -11.814, 1.28)
pt3dadd(-5.584, 200.446, -11.911, 1.232)
pt3dadd(-5.62, 200.48, -11.997, 1.194)
pt3dadd(-5.67, 200.55, -12.066, 1.164)
pt3dadd(-5.747, 200.628, -12.093, 1.156)
pt3dadd(-5.835, 200.708, -12.098, 1.156)
pt3dadd(-5.936, 200.766, -12.113, 1.17)
pt3dadd(-6.045, 200.809, -12.135, 1.194)
pt3dadd(-6.127, 200.83, -12.193, 1.232)
pt3dadd(-6.187, 200.831, -12.279, 1.278)
pt3dadd(-6.246, 200.833, -12.367, 1.324)
pt3dadd(-6.299, 200.836, -12.456, 1.376)
pt3dadd(-6.359, 200.858, -12.54, 1.39)
pt3dadd(-6.42, 200.884, -12.624, 1.402)
pt3dadd(-6.481, 200.91, -12.707, 1.412)
pt3dadd(-6.543, 200.935, -12.79, 1.424)
pt3dadd(-6.603, 200.959, -12.874, 1.418)
pt3dadd(-6.658, 200.968, -12.962, 1.382)
pt3dadd(-6.712, 200.97, -13.052, 1.388)
pt3dadd(-6.765, 200.971, -13.141, 1.422)
pt3dadd(-6.82, 200.974, -13.23, 1.456)
pt3dadd(-6.874, 200.98, -13.319, 1.566)
pt3dadd(-6.938, 201.03, -13.388, 1.682)
pt3dadd(-6.969, 201.138, -13.369, 1.574)
pt3dadd(-6.972, 201.22, -13.298, 1.43)
pt3dadd(-6.97, 201.274, -13.209, 1.406)
pt3dadd(-6.969, 201.317, -13.116, 1.422)
pt3dadd(-6.968, 201.349, -13.02, 1.408)
pt3dadd(-6.967, 201.386, -12.926, 1.346)
pt3dadd(-6.964, 201.468, -12.854, 1.24)
pt3dadd(-6.972, 201.575, -12.812, 1.158)
pt3dadd(-7.015, 201.684, -12.8, 1.13)
pt3dadd(-7.091, 201.775, -12.809, 1.13)
pt3dadd(-7.188, 201.826, -12.848, 1.13)
pt3dadd(-7.278, 201.886, -12.874, 1.098)
pt3dadd(-7.306, 201.989, -12.834, 1.03)
pt3dadd(-7.383, 202.074, -12.859, 1.024)
pt3dadd(-7.463, 202.159, -12.884, 1.016)
pt3dadd(-7.542, 202.244, -12.91, 1.01)
pt3dadd(-7.62, 202.327, -12.938, 1.002)
pt3dadd(-7.687, 202.388, -13.004, 0.984)
pt3dadd(-7.753, 202.45, -13.07, 0.966)
pt3dadd(-7.819, 202.511, -13.135, 0.948)
pt3dadd(-7.887, 202.573, -13.2, 0.93)
pt3dadd(-7.967, 202.658, -13.223, 0.924)
pt3dadd(-8.047, 202.744, -13.246, 0.918)
pt3dadd(-8.125, 202.829, -13.269, 0.912)
pt3dadd(-8.205, 202.914, -13.292, 0.906)
pt3dadd(-8.28, 203.003, -13.319, 0.904)
pt3dadd(-8.351, 203.093, -13.347, 0.904)
pt3dadd(-8.424, 203.183, -13.376, 0.904)
pt3dadd(-8.495, 203.272, -13.404, 0.904)
}
}
proc shape3d_38() {
apic[9] { pt3dadd(-8.569, 203.356, -13.438, 0.912)
pt3dadd(-8.648, 203.43, -13.482, 0.93)
pt3dadd(-8.726, 203.504, -13.525, 0.948)
pt3dadd(-8.805, 203.579, -13.568, 0.966)
pt3dadd(-8.885, 203.656, -13.606, 0.982)
pt3dadd(-8.968, 203.738, -13.629, 0.994)
pt3dadd(-9.051, 203.82, -13.652, 1.006)
pt3dadd(-9.134, 203.903, -13.675, 1.016)
pt3dadd(-9.217, 203.984, -13.698, 1.028)
pt3dadd(-9.292, 204.078, -13.708, 1.036)
pt3dadd(-9.366, 204.172, -13.717, 1.042)
pt3dadd(-9.439, 204.265, -13.726, 1.048)
pt3dadd(-9.507, 204.361, -13.73, 1.058)
pt3dadd(-9.53, 204.472, -13.697, 1.096)
pt3dadd(-9.588, 204.563, -13.657, 1.13)
pt3dadd(-9.653, 204.647, -13.612, 1.13)
pt3dadd(-9.709, 204.751, -13.6, 1.13)
pt3dadd(-9.762, 204.858, -13.61, 1.13)
pt3dadd(-9.845, 204.914, -13.656, 1.13)
pt3dadd(-9.923, 204.924, -13.731, 1.13)
pt3dadd(-9.977, 204.926, -13.821, 1.13)
pt3dadd(-10.031, 204.928, -13.91, 1.114)
pt3dadd(-10.091, 204.95, -13.994, 1.086)
pt3dadd(-10.153, 204.98, -14.075, 1.06)
pt3dadd(-10.18, 205.082, -14.106, 1.026)
pt3dadd(-10.2, 205.198, -14.126, 0.992)
pt3dadd(-10.27, 205.277, -14.153, 0.966)
pt3dadd(-10.368, 205.333, -14.184, 0.946)
pt3dadd(-10.466, 205.386, -14.219, 0.93)
pt3dadd(-10.555, 205.41, -14.282, 0.944)
pt3dadd(-10.641, 205.439, -14.347, 0.96)
pt3dadd(-10.706, 205.493, -14.418, 0.992)
pt3dadd(-10.773, 205.546, -14.488, 1.024)
pt3dadd(-10.837, 205.639, -14.5, 1.078)
pt3dadd(-10.902, 205.74, -14.5, 1.136)
pt3dadd(-10.972, 205.837, -14.491, 1.168)
pt3dadd(-11.045, 205.931, -14.479, 1.188)
pt3dadd(-11.115, 206.026, -14.465, 1.206)
pt3dadd(-11.138, 206.134, -14.426, 1.206)
pt3dadd(-11.161, 206.238, -14.384, 1.202)
pt3dadd(-11.186, 206.294, -14.298, 1.152)
pt3dadd(-11.212, 206.35, -14.211, 1.1)
pt3dadd(-11.191, 206.428, -14.149, 1.034)
pt3dadd(-11.14, 206.521, -14.103, 0.96)
pt3dadd(-11.201, 206.617, -14.1, 0.9)
pt3dadd(-11.295, 206.688, -14.1, 0.924)
pt3dadd(-11.396, 206.748, -14.12, 1.06)
pt3dadd(-11.489, 206.795, -14.167, 1.132)
pt3dadd(-11.565, 206.876, -14.167, 1.23)
pt3dadd(-11.586, 206.987, -14.134, 1.292)
pt3dadd(-11.608, 207.098, -14.102, 1.352)
pt3dadd(-11.643, 207.212, -14.1, 1.416)
pt3dadd(-11.678, 207.328, -14.1, 1.48)
pt3dadd(-11.724, 207.439, -14.1, 1.556)
pt3dadd(-11.778, 207.545, -14.1, 1.64)
pt3dadd(-11.878, 207.607, -14.1, 1.67)
pt3dadd(-11.993, 207.635, -14.108, 1.602)
pt3dadd(-12.101, 207.642, -14.147, 1.556)
pt3dadd(-12.169, 207.644, -14.229, 1.58)
pt3dadd(-12.21, 207.646, -14.323, 1.626)
pt3dadd(-12.244, 207.647, -14.419, 1.656)
pt3dadd(-12.276, 207.648, -14.515, 1.69)
pt3dadd(-12.31, 207.649, -14.611, 1.742)
pt3dadd(-12.343, 207.65, -14.707, 1.794)
pt3dadd(-12.399, 207.655, -14.794, 1.848)
pt3dadd(-12.466, 207.662, -14.877, 1.902)
pt3dadd(-12.532, 207.67, -14.961, 1.954)
pt3dadd(-12.624, 207.737, -14.983, 1.994)
pt3dadd(-12.718, 207.809, -15, 2.034)
pt3dadd(-12.78, 207.912, -15, 2.034)
pt3dadd(-12.84, 208.015, -15, 2.034)
pt3dadd(-12.898, 208.12, -15.003, 2.028)
pt3dadd(-12.937, 208.225, -15.038, 1.962)
pt3dadd(-12.979, 208.331, -15.069, 1.9)
pt3dadd(-13.034, 208.436, -15.081, 1.854)
pt3dadd(-13.089, 208.541, -15.093, 1.808)
pt3dadd(-13.169, 208.612, -15.115, 1.75)
pt3dadd(-13.279, 208.642, -15.148, 1.676)
pt3dadd(-13.386, 208.678, -15.181, 1.584)
pt3dadd(-13.471, 208.748, -15.215, 1.552)
pt3dadd(-13.551, 208.828, -15.25, 1.546)
pt3dadd(-13.631, 208.907, -15.284, 1.54)
pt3dadd(-13.711, 208.986, -15.319, 1.534)
pt3dadd(-13.795, 209.057, -15.359, 1.556)
pt3dadd(-13.883, 209.119, -15.402, 1.598)
pt3dadd(-13.963, 209.14, -15.472, 1.656)
pt3dadd(-14.04, 209.149, -15.548, 1.718)
pt3dadd(-14.097, 209.203, -15.619, 1.764)
pt3dadd(-14.148, 209.273, -15.688, 1.808)
pt3dadd(-14.251, 209.333, -15.694, 1.82)
pt3dadd(-14.355, 209.393, -15.699, 1.832)
pt3dadd(-14.467, 209.432, -15.7, 1.834)
pt3dadd(-14.574, 209.483, -15.7, 1.838)
pt3dadd(-14.647, 209.576, -15.7, 1.858)
pt3dadd(-14.722, 209.67, -15.7, 1.878)
pt3dadd(-14.797, 209.765, -15.7, 1.898)
pt3dadd(-14.872, 209.858, -15.7, 1.918)
pt3dadd(-14.939, 209.957, -15.7, 1.94)
pt3dadd(-14.986, 210.067, -15.7, 1.964)
pt3dadd(-15.032, 210.178, -15.7, 1.988)
pt3dadd(-15.079, 210.288, -15.7, 2.012)
pt3dadd(-15.125, 210.398, -15.7, 2.034)
pt3dadd(-15.173, 210.51, -15.7, 2.058)
pt3dadd(-15.24, 210.608, -15.7, 2.074)
pt3dadd(-15.309, 210.707, -15.7, 2.088)
pt3dadd(-15.378, 210.805, -15.7, 2.104)
pt3dadd(-15.446, 210.904, -15.7, 2.12)
pt3dadd(-15.515, 211.002, -15.7, 2.134)
pt3dadd(-15.575, 211.106, -15.7, 2.13)
pt3dadd(-15.634, 211.211, -15.7, 2.124)
pt3dadd(-15.694, 211.315, -15.7, 2.12)
pt3dadd(-15.753, 211.418, -15.7, 2.114)
pt3dadd(-15.813, 211.523, -15.7, 2.11)
pt3dadd(-15.885, 211.618, -15.7, 2.11)
pt3dadd(-15.96, 211.712, -15.7, 2.11)
pt3dadd(-16.034, 211.806, -15.7, 2.11)
pt3dadd(-16.109, 211.901, -15.7, 2.11)
pt3dadd(-16.184, 211.994, -15.7, 2.11)
pt3dadd(-16.25, 212.094, -15.7, 2.11)
pt3dadd(-16.315, 212.195, -15.7, 2.11)
pt3dadd(-16.381, 212.296, -15.7, 2.11)
pt3dadd(-16.446, 212.396, -15.7, 2.11)
pt3dadd(-16.512, 212.496, -15.7, 2.11)
pt3dadd(-16.578, 212.593, -15.721, 2.098)
pt3dadd(-16.645, 212.689, -15.743, 2.088)
pt3dadd(-16.711, 212.785, -15.766, 2.076)
pt3dadd(-16.776, 212.882, -15.789, 2.064)
pt3dadd(-16.848, 212.976, -15.8, 2.03)
pt3dadd(-16.927, 213.067, -15.8, 1.976)
pt3dadd(-17.004, 213.158, -15.8, 1.92)
pt3dadd(-17.081, 213.25, -15.8, 1.864)
pt3dadd(-17.16, 213.342, -15.8, 1.808)
pt3dadd(-17.222, 213.443, -15.8, 1.696)
pt3dadd(-17.271, 213.552, -15.8, 1.538)
pt3dadd(-17.323, 213.661, -15.802, 1.386)
pt3dadd(-17.374, 213.768, -15.807, 1.246)
pt3dadd(-17.426, 213.866, -15.825, 1.12)
pt3dadd(-17.476, 213.92, -15.905, 1.064)
pt3dadd(-17.54, 213.979, -15.966, 1.03)
pt3dadd(-17.632, 214.048, -15.997, 1.03)
pt3dadd(-17.704, 214.128, -16.035, 1.04)
pt3dadd(-17.769, 214.193, -16.088, 1.054)
pt3dadd(-17.86, 214.202, -16.153, 1.054)
pt3dadd(-17.952, 214.216, -16.216, 1.058)
pt3dadd(-18.048, 214.24, -16.273, 1.072)
pt3dadd(-18.136, 214.282, -16.326, 1.084)
pt3dadd(-18.209, 214.36, -16.37, 1.098)
pt3dadd(-18.283, 214.447, -16.392, 1.112)
pt3dadd(-18.357, 214.541, -16.397, 1.124)
pt3dadd(-18.436, 214.632, -16.4, 1.12)
pt3dadd(-18.516, 214.721, -16.4, 1.102)
pt3dadd(-18.58, 214.823, -16.4, 1.08)
pt3dadd(-18.645, 214.924, -16.4, 1.056)
pt3dadd(-18.687, 215.034, -16.415, 1.032)
pt3dadd(-18.728, 215.146, -16.431, 1.008)
pt3dadd(-18.791, 215.233, -16.472, 1.004)
pt3dadd(-18.856, 215.314, -16.521, 1.006)
pt3dadd(-18.92, 215.352, -16.599, 1.02)
pt3dadd(-18.965, 215.405, -16.673, 1.034)
pt3dadd(-18.961, 215.5, -16.735, 1.052)
pt3dadd(-19.027, 215.581, -16.776, 1.06)
pt3dadd(-19.105, 215.66, -16.814, 1.066)
pt3dadd(-19.182, 215.741, -16.851, 1.072)
pt3dadd(-19.26, 215.82, -16.889, 1.078)
pt3dadd(-19.349, 215.897, -16.9, 1.086)
pt3dadd(-19.442, 215.972, -16.9, 1.098)
pt3dadd(-19.536, 216.047, -16.9, 1.106)
pt3dadd(-19.629, 216.122, -16.9, 1.116)
pt3dadd(-19.722, 216.198, -16.9, 1.128)
pt3dadd(-19.814, 216.275, -16.9, 1.138)
pt3dadd(-19.905, 216.353, -16.9, 1.148)
pt3dadd(-19.996, 216.432, -16.9, 1.158)
pt3dadd(-20.087, 216.51, -16.9, 1.168)
pt3dadd(-20.178, 216.588, -16.9, 1.178)
pt3dadd(-20.253, 216.68, -16.9, 1.184)
pt3dadd(-20.322, 216.779, -16.9, 1.188)
pt3dadd(-20.39, 216.877, -16.9, 1.194)
pt3dadd(-20.459, 216.976, -16.9, 1.198)
pt3dadd(-20.528, 217.074, -16.9, 1.204)
pt3dadd(-20.597, 217.17, -16.917, 1.218)
pt3dadd(-20.666, 217.264, -16.939, 1.234)
pt3dadd(-20.736, 217.357, -16.962, 1.252)
pt3dadd(-20.806, 217.451, -16.985, 1.27)
pt3dadd(-20.882, 217.536, -17.01, 1.296)
pt3dadd(-20.974, 217.606, -17.042, 1.344)
pt3dadd(-21.065, 217.674, -17.073, 1.39)
pt3dadd(-21.156, 217.742, -17.104, 1.438)
pt3dadd(-21.247, 217.81, -17.136, 1.484)
pt3dadd(-21.332, 217.871, -17.184, 1.546)
pt3dadd(-21.417, 217.932, -17.233, 1.606)
pt3dadd(-21.503, 217.993, -17.281, 1.668)
pt3dadd(-21.588, 218.054, -17.33, 1.728)
pt3dadd(-21.675, 218.118, -17.374, 1.812)
pt3dadd(-21.759, 218.184, -17.418, 1.878)
pt3dadd(-21.825, 218.27, -17.462, 1.85)
pt3dadd(-21.863, 218.365, -17.504, 1.816)
pt3dadd(-21.859, 218.476, -17.543, 1.772)
pt3dadd(-21.858, 218.58, -17.587, 1.732)
pt3dadd(-21.875, 218.626, -17.678, 1.72)
pt3dadd(-21.895, 218.672, -17.768, 1.708)
}
}
proc shape3d_39() {
apic[9] { pt3dadd(-21.986, 218.729, -17.812, 1.724)
pt3dadd(-22.078, 218.784, -17.857, 1.742)
pt3dadd(-22.17, 218.842, -17.9, 1.758)
pt3dadd(-22.271, 218.905, -17.9, 1.782)
pt3dadd(-22.372, 218.97, -17.9, 1.804)
pt3dadd(-22.398, 219.08, -17.9, 1.802)
pt3dadd(-22.408, 219.2, -17.9, 1.796)
pt3dadd(-22.419, 219.319, -17.9, 1.788)
pt3dadd(-22.436, 219.438, -17.9, 1.78)
pt3dadd(-22.472, 219.552, -17.9, 1.77)
pt3dadd(-22.507, 219.667, -17.9, 1.758)
pt3dadd(-22.589, 219.752, -17.9, 1.732)
pt3dadd(-22.664, 219.846, -17.9, 1.732)
pt3dadd(-22.739, 219.94, -17.9, 1.732)
pt3dadd(-22.814, 220.033, -17.9, 1.732)
pt3dadd(-22.888, 220.128, -17.9, 1.732)
pt3dadd(-22.968, 220.217, -17.9, 1.734)
pt3dadd(-23.064, 220.289, -17.9, 1.738)
pt3dadd(-23.159, 220.362, -17.9, 1.744)
pt3dadd(-23.255, 220.434, -17.9, 1.748)
pt3dadd(-23.351, 220.506, -17.9, 1.754)
pt3dadd(-23.449, 220.573, -17.903, 1.758)
pt3dadd(-23.56, 220.618, -17.916, 1.764)
pt3dadd(-23.67, 220.661, -17.929, 1.768)
pt3dadd(-23.781, 220.705, -17.943, 1.774)
pt3dadd(-23.891, 220.75, -17.956, 1.778)
pt3dadd(-23.994, 220.802, -17.971, 1.78)
pt3dadd(-24.067, 220.894, -17.994, 1.77)
pt3dadd(-24.141, 220.985, -18.017, 1.758)
pt3dadd(-24.214, 221.076, -18.04, 1.746)
pt3dadd(-24.287, 221.167, -18.063, 1.734)
pt3dadd(-24.359, 221.257, -18.09, 1.698)
pt3dadd(-24.431, 221.346, -18.119, 1.658)
pt3dadd(-24.503, 221.436, -18.148, 1.616)
pt3dadd(-24.574, 221.526, -18.176, 1.576)
pt3dadd(-24.633, 221.627, -18.19, 1.536)
pt3dadd(-24.681, 221.737, -18.192, 1.496)
pt3dadd(-24.728, 221.848, -18.194, 1.458)
pt3dadd(-24.776, 221.957, -18.196, 1.418)
pt3dadd(-24.824, 222.067, -18.199, 1.38)
pt3dadd(-24.871, 222.178, -18.205, 1.354)
pt3dadd(-24.917, 222.287, -18.219, 1.348)
pt3dadd(-24.963, 222.396, -18.233, 1.344)
pt3dadd(-25.009, 222.506, -18.247, 1.338)
pt3dadd(-25.055, 222.616, -18.261, 1.334)
pt3dadd(-25.121, 222.709, -18.283, 1.36)
pt3dadd(-25.203, 222.79, -18.312, 1.414)
pt3dadd(-25.284, 222.871, -18.34, 1.466)
pt3dadd(-25.366, 222.953, -18.369, 1.52)
pt3dadd(-25.448, 223.034, -18.394, 1.578)
pt3dadd(-25.532, 223.117, -18.412, 1.652)
pt3dadd(-25.615, 223.201, -18.429, 1.724)
pt3dadd(-25.699, 223.284, -18.446, 1.798)
pt3dadd(-25.782, 223.368, -18.464, 1.87)
pt3dadd(-25.89, 223.417, -18.472, 1.922)
pt3dadd(-26.002, 223.459, -18.478, 1.97)
pt3dadd(-26.114, 223.501, -18.485, 2.018)
pt3dadd(-26.226, 223.543, -18.491, 2.066)
pt3dadd(-26.338, 223.585, -18.497, 2.112)
pt3dadd(-26.441, 223.643, -18.509, 2.156)
pt3dadd(-26.535, 223.715, -18.527, 2.194)
pt3dadd(-26.628, 223.781, -18.555, 2.202)
pt3dadd(-26.721, 223.843, -18.592, 2.188)
pt3dadd(-26.803, 223.927, -18.6, 2.138)
pt3dadd(-26.881, 224.017, -18.6, 2.08)
pt3dadd(-26.927, 224.125, -18.6, 2.032)
pt3dadd(-26.956, 224.242, -18.6, 1.99)
pt3dadd(-26.987, 224.358, -18.6, 1.948)
pt3dadd(-27.026, 224.471, -18.6, 1.898)
pt3dadd(-27.094, 224.568, -18.6, 1.89)
pt3dadd(-27.174, 224.657, -18.6, 1.9)
pt3dadd(-27.254, 224.746, -18.6, 1.91)
pt3dadd(-27.335, 224.834, -18.6, 1.92)
pt3dadd(-27.415, 224.924, -18.6, 1.93)
pt3dadd(-27.495, 225.011, -18.617, 1.942)
pt3dadd(-27.574, 225.096, -18.64, 1.954)
pt3dadd(-27.654, 225.181, -18.663, 1.966)
pt3dadd(-27.734, 225.266, -18.686, 1.976)
pt3dadd(-27.819, 225.348, -18.702, 1.998)
pt3dadd(-27.913, 225.422, -18.707, 2.034)
pt3dadd(-28.008, 225.476, -18.729, 2.066)
pt3dadd(-28.104, 225.486, -18.788, 2.09)
pt3dadd(-28.191, 225.494, -18.854, 2.114)
pt3dadd(-28.245, 225.496, -18.943, 2.138)
pt3dadd(-28.298, 225.498, -19.033, 2.16)
pt3dadd(-28.316, 225.536, -19.126, 2.172)
pt3dadd(-28.333, 225.575, -19.22, 2.184)
pt3dadd(-28.371, 225.625, -19.305, 2.184)
pt3dadd(-28.412, 225.678, -19.387, 2.184)
pt3dadd(-28.453, 225.732, -19.47, 2.184)
pt3dadd(-28.531, 225.806, -19.493, 2.204)
pt3dadd(-28.62, 225.887, -19.499, 2.228)
pt3dadd(-28.719, 225.952, -19.5, 2.26)
pt3dadd(-28.825, 226.009, -19.5, 2.26)
pt3dadd(-28.93, 226.067, -19.5, 2.26)
pt3dadd(-29.025, 226.139, -19.5, 2.216)
pt3dadd(-29.116, 226.217, -19.5, 2.158)
pt3dadd(-29.193, 226.308, -19.503, 2.084)
pt3dadd(-29.26, 226.408, -19.509, 1.998)
pt3dadd(-29.329, 226.47, -19.552, 1.888)
pt3dadd(-29.399, 226.5, -19.629, 1.754)
pt3dadd(-29.44, 226.58, -19.685, 1.662)
pt3dadd(-29.465, 226.684, -19.73, 1.592)
pt3dadd(-29.49, 226.788, -19.775, 1.522)
pt3dadd(-29.533, 226.891, -19.8, 1.452)
pt3dadd(-29.597, 226.993, -19.8, 1.382)
pt3dadd(-29.675, 227.076, -19.8, 1.322)
pt3dadd(-29.784, 227.104, -19.823, 1.306)
pt3dadd(-29.888, 227.12, -19.871, 1.306)
pt3dadd(-29.953, 227.172, -19.92, 1.316)
pt3dadd(-29.962, 227.276, -19.969, 1.34)
pt3dadd(-30.004, 227.368, -20, 1.36)
pt3dadd(-30.105, 227.431, -20, 1.372)
pt3dadd(-30.208, 227.492, -20, 1.386)
pt3dadd(-30.32, 227.536, -20, 1.418)
pt3dadd(-30.432, 227.58, -20, 1.45)
pt3dadd(-30.494, 227.676, -20, 1.428)
pt3dadd(-30.552, 227.78, -20, 1.4)
pt3dadd(-30.626, 227.875, -20, 1.38)
pt3dadd(-30.701, 227.969, -20, 1.36)
pt3dadd(-30.775, 228.062, -20, 1.34)
pt3dadd(-30.85, 228.156, -20, 1.318)
pt3dadd(-30.926, 228.245, -20.014, 1.292)
pt3dadd(-31.004, 228.322, -20.055, 1.256)
pt3dadd(-31.082, 228.398, -20.095, 1.22)
pt3dadd(-31.161, 228.475, -20.136, 1.184)
pt3dadd(-31.236, 228.558, -20.171, 1.146)
pt3dadd(-31.301, 228.656, -20.188, 1.108)
pt3dadd(-31.378, 228.743, -20.2, 1.08)
pt3dadd(-31.483, 228.8, -20.2, 1.08)
pt3dadd(-31.586, 228.86, -20.201, 1.08)
pt3dadd(-31.643, 228.964, -20.218, 1.08)
pt3dadd(-31.699, 229.067, -20.236, 1.08)
pt3dadd(-31.737, 229.174, -20.271, 1.08)
pt3dadd(-31.778, 229.273, -20.311, 1.078)
pt3dadd(-31.83, 229.349, -20.376, 1.07)
pt3dadd(-31.882, 229.423, -20.44, 1.062)
pt3dadd(-31.943, 229.496, -20.5, 1.062)
pt3dadd(-32.031, 229.559, -20.544, 1.09)
pt3dadd(-32.118, 229.625, -20.584, 1.224)
pt3dadd(-32.203, 229.652, -20.649, 1.3)
pt3dadd(-32.288, 229.673, -20.718, 1.348)
pt3dadd(-32.373, 229.693, -20.786, 1.398)
pt3dadd(-32.457, 229.714, -20.855, 1.448)
pt3dadd(-32.541, 229.744, -20.921, 1.526)
pt3dadd(-32.621, 229.792, -20.984, 1.652)
pt3dadd(-32.698, 229.854, -21.04, 1.74)
pt3dadd(-32.772, 229.925, -21.091, 1.798)
pt3dadd(-32.822, 229.955, -21.175, 1.818)
pt3dadd(-32.867, 229.975, -21.266, 1.83)
pt3dadd(-32.913, 229.981, -21.359, 1.816)
pt3dadd(-32.959, 229.984, -21.451, 1.794)
pt3dadd(-33.015, 230.01, -21.532, 1.77)
pt3dadd(-33.082, 230.068, -21.6, 1.746)
pt3dadd(-33.148, 230.124, -21.668, 1.72)
pt3dadd(-33.204, 230.206, -21.719, 1.672)
pt3dadd(-33.25, 230.308, -21.755, 1.604)
pt3dadd(-33.333, 230.374, -21.789, 1.43)
pt3dadd(-33.397, 230.474, -21.791, 1.406)
pt3dadd(-33.461, 230.576, -21.793, 1.38)
pt3dadd(-33.524, 230.678, -21.796, 1.354)
pt3dadd(-33.588, 230.78, -21.798, 1.33)
pt3dadd(-33.652, 230.88, -21.803, 1.304)
pt3dadd(-33.717, 230.964, -21.849, 1.28)
pt3dadd(-33.783, 231.048, -21.896, 1.254)
pt3dadd(-33.848, 231.132, -21.942, 1.23)
pt3dadd(-33.914, 231.216, -21.988, 1.206)
pt3dadd(-33.965, 231.31, -22.033, 1.194)
pt3dadd(-34.016, 231.404, -22.078, 1.182)
pt3dadd(-34.067, 231.498, -22.124, 1.17)
pt3dadd(-34.118, 231.593, -22.169, 1.158)
pt3dadd(-34.193, 231.676, -22.201, 1.15)
pt3dadd(-34.275, 231.757, -22.229, 1.144)
pt3dadd(-34.356, 231.838, -22.258, 1.138)
pt3dadd(-34.438, 231.919, -22.287, 1.132)
pt3dadd(-34.514, 232.008, -22.309, 1.126)
pt3dadd(-34.584, 232.102, -22.327, 1.122)
pt3dadd(-34.655, 232.196, -22.345, 1.116)
pt3dadd(-34.725, 232.291, -22.363, 1.11)
pt3dadd(-34.787, 232.388, -22.371, 1.1)
pt3dadd(-34.812, 232.498, -22.335, 1.072)
pt3dadd(-34.85, 232.596, -22.33, 1.038)
pt3dadd(-34.914, 232.673, -22.385, 0.992)
pt3dadd(-34.97, 232.696, -22.465, 0.962)
pt3dadd(-35.024, 232.697, -22.555, 0.94)
pt3dadd(-35.083, 232.721, -22.637, 0.916)
pt3dadd(-35.148, 232.769, -22.711, 0.888)
pt3dadd(-35.213, 232.852, -22.748, 0.868)
pt3dadd(-35.276, 232.95, -22.769, 0.852)
pt3dadd(-35.34, 233.048, -22.79, 0.836)
pt3dadd(-35.402, 233.149, -22.803, 0.816)
pt3dadd(-35.462, 233.254, -22.808, 0.792)
pt3dadd(-35.512, 233.358, -22.826, 0.794)
pt3dadd(-35.576, 233.412, -22.89, 0.826)
pt3dadd(-35.648, 233.45, -22.963, 0.852)
pt3dadd(-35.718, 233.542, -22.945, 0.87)
pt3dadd(-35.775, 233.644, -22.922, 0.872)
pt3dadd(-35.818, 233.752, -22.9, 0.86)
pt3dadd(-35.841, 233.855, -22.859, 0.86)
pt3dadd(-35.844, 233.952, -22.8, 0.872)
}
}
proc shape3d_40() {
apic[9] { pt3dadd(-35.866, 234.044, -22.743, 0.89)
pt3dadd(-35.912, 234.132, -22.686, 0.916)
pt3dadd(-35.959, 234.22, -22.63, 0.94)
pt3dadd(-36.03, 234.296, -22.602, 0.96)
pt3dadd(-36.13, 234.364, -22.608, 0.972)
pt3dadd(-36.225, 234.41, -22.636, 0.966)
pt3dadd(-36.313, 234.424, -22.703, 0.926)
pt3dadd(-36.367, 234.425, -22.792, 0.854)
pt3dadd(-36.421, 234.427, -22.882, 0.872)
pt3dadd(-36.474, 234.428, -22.971, 0.93)
pt3dadd(-36.523, 234.425, -23.062, 0.976)
pt3dadd(-36.555, 234.39, -23.153, 1.012)
pt3dadd(-36.583, 234.344, -23.242, 1.024)
pt3dadd(-36.63, 234.328, -23.33, 1.044)
pt3dadd(-36.689, 234.329, -23.417, 1.068)
pt3dadd(-36.751, 234.386, -23.446, 1.09)
pt3dadd(-36.82, 234.48, -23.439, 1.114)
pt3dadd(-36.912, 234.548, -23.47, 1.168)
pt3dadd(-36.982, 234.566, -23.542, 1.232)
pt3dadd(-37.053, 234.593, -23.607, 1.292)
pt3dadd(-37.139, 234.672, -23.63, 1.326)
pt3dadd(-37.225, 234.751, -23.653, 1.36)
pt3dadd(-37.311, 234.83, -23.676, 1.394)
pt3dadd(-37.396, 234.91, -23.699, 1.43)
pt3dadd(-37.482, 234.994, -23.7, 1.45)
pt3dadd(-37.568, 235.078, -23.7, 1.47)
pt3dadd(-37.654, 235.162, -23.7, 1.49)
pt3dadd(-37.74, 235.244, -23.7, 1.512)
pt3dadd(-37.826, 235.328, -23.7, 1.532)
pt3dadd(-37.898, 235.414, -23.663, 1.574)
pt3dadd(-37.959, 235.505, -23.63, 1.61)
pt3dadd(-37.978, 235.622, -23.616, 1.62)
pt3dadd(-37.997, 235.739, -23.601, 1.632)
pt3dadd(-38.105, 235.777, -23.6, 1.632)
pt3dadd(-38.22, 235.808, -23.6, 1.632)
pt3dadd(-38.319, 235.864, -23.607, 1.616)
pt3dadd(-38.392, 235.956, -23.624, 1.578)
pt3dadd(-38.472, 236.033, -23.655, 1.536)
pt3dadd(-38.564, 236.094, -23.69, 1.51)
pt3dadd(-38.663, 236.161, -23.696, 1.522)
pt3dadd(-38.763, 236.227, -23.7, 1.542)
pt3dadd(-38.864, 236.292, -23.7, 1.6)
pt3dadd(-38.966, 236.356, -23.7, 1.658)
pt3dadd(-39.046, 236.443, -23.717, 1.722)
pt3dadd(-39.127, 236.525, -23.738, 1.786)
pt3dadd(-39.223, 236.549, -23.795, 1.824)
pt3dadd(-39.315, 236.57, -23.855, 1.86)
pt3dadd(-39.383, 236.582, -23.938, 1.88)
pt3dadd(-39.464, 236.645, -23.979, 1.884)
pt3dadd(-39.549, 236.72, -24.01, 1.884)
pt3dadd(-39.593, 236.782, -24.087, 1.91)
pt3dadd(-39.641, 236.843, -24.159, 1.94)
pt3dadd(-39.731, 236.917, -24.182, 1.994)
pt3dadd(-39.826, 236.986, -24.2, 2.046)
pt3dadd(-39.935, 237.036, -24.2, 2.088)
pt3dadd(-40.043, 237.086, -24.2, 2.132)
pt3dadd(-40.126, 237.173, -24.2, 2.134)
pt3dadd(-40.166, 237.278, -24.2, 2.114)
pt3dadd(-40.171, 237.398, -24.2, 2.078)
pt3dadd(-40.177, 237.517, -24.2, 2.042)
pt3dadd(-40.243, 237.611, -24.2, 1.998)
pt3dadd(-40.328, 237.695, -24.2, 1.95)
pt3dadd(-40.43, 237.754, -24.2, 1.914)
pt3dadd(-40.542, 237.797, -24.2, 1.882)
pt3dadd(-40.654, 237.841, -24.2, 1.85)
pt3dadd(-40.765, 237.884, -24.2, 1.818)
pt3dadd(-40.877, 237.929, -24.2, 1.786)
pt3dadd(-40.97, 238.004, -24.2, 1.738)
pt3dadd(-41.061, 238.082, -24.2, 1.688)
pt3dadd(-41.152, 238.16, -24.2, 1.638)
pt3dadd(-41.211, 238.254, -24.2, 1.584)
pt3dadd(-41.216, 238.374, -24.2, 1.52)
pt3dadd(-41.222, 238.494, -24.2, 1.458)
pt3dadd(-41.288, 238.571, -24.2, 1.408)
pt3dadd(-41.399, 238.618, -24.2, 1.368)
pt3dadd(-41.509, 238.664, -24.2, 1.326)
pt3dadd(-41.623, 238.7, -24.2, 1.306)
pt3dadd(-41.741, 238.726, -24.2, 1.306)
pt3dadd(-41.858, 238.75, -24.2, 1.306)
pt3dadd(-41.944, 238.831, -24.2, 1.306)
pt3dadd(-42.026, 238.919, -24.2, 1.306)
pt3dadd(-42.104, 239.008, -24.2, 1.306)
pt3dadd(-42.126, 239.126, -24.2, 1.316)
pt3dadd(-42.148, 239.244, -24.2, 1.326)
pt3dadd(-42.201, 239.347, -24.2, 1.326)
pt3dadd(-42.277, 239.44, -24.2, 1.318)
pt3dadd(-42.354, 239.532, -24.2, 1.308)
pt3dadd(-42.454, 239.594, -24.2, 1.306)
pt3dadd(-42.563, 239.645, -24.2, 1.306)
pt3dadd(-42.674, 239.689, -24.2, 1.266)
pt3dadd(-42.758, 239.766, -24.2, 1.208)
pt3dadd(-42.822, 239.867, -24.2, 1.174)
pt3dadd(-42.883, 239.97, -24.2, 1.14)
pt3dadd(-42.94, 240.076, -24.2, 1.104)
pt3dadd(-43.008, 240.172, -24.2, 1.076)
pt3dadd(-43.104, 240.244, -24.2, 1.066)
pt3dadd(-43.202, 240.312, -24.2, 1.056)
pt3dadd(-43.311, 240.362, -24.2, 1.066)
pt3dadd(-43.42, 240.413, -24.2, 1.078)
pt3dadd(-43.538, 240.431, -24.2, 1.08)
pt3dadd(-43.657, 240.443, -24.2, 1.08)
pt3dadd(-43.757, 240.508, -24.2, 1.084)
pt3dadd(-43.854, 240.577, -24.2, 1.09)
pt3dadd(-43.952, 240.647, -24.2, 1.094)
pt3dadd(-44.05, 240.716, -24.2, 1.1)
pt3dadd(-44.148, 240.786, -24.2, 1.104)
pt3dadd(-44.238, 240.865, -24.2, 1.11)
pt3dadd(-44.326, 240.946, -24.2, 1.114)
pt3dadd(-44.415, 241.027, -24.2, 1.12)
pt3dadd(-44.503, 241.108, -24.2, 1.124)
pt3dadd(-44.592, 241.189, -24.2, 1.13)
pt3dadd(-44.67, 241.279, -24.2, 1.14)
pt3dadd(-44.748, 241.372, -24.2, 1.15)
pt3dadd(-44.825, 241.463, -24.2, 1.16)
pt3dadd(-44.903, 241.554, -24.2, 1.17)
pt3dadd(-44.98, 241.646, -24.2, 1.18)
pt3dadd(-45.063, 241.733, -24.2, 1.18)
pt3dadd(-45.147, 241.819, -24.2, 1.18)
pt3dadd(-45.23, 241.906, -24.2, 1.18)
pt3dadd(-45.313, 241.992, -24.2, 1.18)
pt3dadd(-45.397, 242.078, -24.2, 1.18)
pt3dadd(-45.45, 242.185, -24.2, 1.18)
pt3dadd(-45.503, 242.293, -24.2, 1.18)
pt3dadd(-45.555, 242.401, -24.2, 1.18)
pt3dadd(-45.608, 242.509, -24.2, 1.18)
pt3dadd(-45.661, 242.617, -24.2, 1.18)
pt3dadd(-45.748, 242.698, -24.2, 1.188)
pt3dadd(-45.841, 242.773, -24.2, 1.198)
pt3dadd(-45.935, 242.848, -24.2, 1.208)
pt3dadd(-46.028, 242.923, -24.2, 1.218)
pt3dadd(-46.121, 242.999, -24.2, 1.228)
pt3dadd(-46.222, 243.06, -24.216, 1.248)
pt3dadd(-46.324, 243.119, -24.235, 1.27)
pt3dadd(-46.426, 243.178, -24.255, 1.292)
pt3dadd(-46.529, 243.236, -24.274, 1.314)
pt3dadd(-46.626, 243.301, -24.289, 1.334)
pt3dadd(-46.705, 243.391, -24.292, 1.35)
pt3dadd(-46.784, 243.481, -24.294, 1.366)
pt3dadd(-46.863, 243.572, -24.296, 1.38)
pt3dadd(-46.942, 243.662, -24.299, 1.396)
pt3dadd(-47.023, 243.75, -24.305, 1.41)
pt3dadd(-47.109, 243.832, -24.32, 1.422)
pt3dadd(-47.194, 243.914, -24.334, 1.432)
pt3dadd(-47.28, 243.997, -24.349, 1.444)
pt3dadd(-47.365, 244.08, -24.364, 1.454)
pt3dadd(-47.457, 244.153, -24.381, 1.488)
pt3dadd(-47.551, 244.225, -24.398, 1.526)
pt3dadd(-47.582, 244.331, -24.428, 1.564)
pt3dadd(-47.604, 244.442, -24.461, 1.6)
pt3dadd(-47.611, 244.537, -24.52, 1.648)
pt3dadd(-47.614, 244.628, -24.585, 1.696)
pt3dadd(-47.679, 244.657, -24.654, 1.736)
pt3dadd(-47.764, 244.667, -24.724, 1.772)
pt3dadd(-47.859, 244.693, -24.779, 1.8)
pt3dadd(-47.958, 244.727, -24.828, 1.824)
pt3dadd(-48.058, 244.759, -24.877, 1.848)
pt3dadd(-48.158, 244.808, -24.9, 1.852)
pt3dadd(-48.259, 244.873, -24.9, 1.84)
pt3dadd(-48.365, 244.928, -24.9, 1.78)
pt3dadd(-48.471, 244.976, -24.916, 1.692)
pt3dadd(-48.569, 245.034, -24.947, 1.664)
pt3dadd(-48.668, 245.093, -24.977, 1.636)
pt3dadd(-48.766, 245.15, -25.007, 1.606)
pt3dadd(-48.863, 245.209, -25.041, 1.578)
pt3dadd(-48.948, 245.267, -25.092, 1.546)
pt3dadd(-49.033, 245.324, -25.143, 1.516)
pt3dadd(-49.119, 245.383, -25.194, 1.486)
pt3dadd(-49.203, 245.441, -25.246, 1.456)
pt3dadd(-49.252, 245.494, -25.326, 1.428)
pt3dadd(-49.299, 245.558, -25.395, 1.406)
pt3dadd(-49.335, 245.668, -25.423, 1.406)
pt3dadd(-49.38, 245.76, -25.462, 1.428)
pt3dadd(-49.45, 245.79, -25.539, 1.522)
pt3dadd(-49.535, 245.824, -25.592, 1.622)
pt3dadd(-49.647, 245.864, -25.602, 1.734)
pt3dadd(-49.755, 245.906, -25.619, 1.844)
pt3dadd(-49.83, 245.958, -25.683, 1.93)
pt3dadd(-49.906, 246.011, -25.748, 2.014)
pt3dadd(-49.978, 246.068, -25.811, 2.1)
pt3dadd(-50.037, 246.146, -25.868, 2.188)
pt3dadd(-50.11, 246.226, -25.9, 2.254)
pt3dadd(-50.201, 246.304, -25.9, 2.298)
pt3dadd(-50.292, 246.382, -25.9, 2.342)
pt3dadd(-50.354, 246.481, -25.9, 2.374)
pt3dadd(-50.396, 246.593, -25.9, 2.396)
pt3dadd(-50.441, 246.704, -25.9, 2.4)
pt3dadd(-50.513, 246.798, -25.9, 2.368)
pt3dadd(-50.601, 246.878, -25.9, 2.338)
pt3dadd(-50.69, 246.96, -25.9, 2.308)
pt3dadd(-50.778, 247.04, -25.9, 2.278)
pt3dadd(-50.867, 247.121, -25.9, 2.248)
pt3dadd(-50.924, 247.223, -25.9, 2.19)
pt3dadd(-50.96, 247.337, -25.9, 2.116)
pt3dadd(-50.996, 247.452, -25.9, 2.046)
pt3dadd(-51.031, 247.566, -25.9, 1.992)
pt3dadd(-51.067, 247.68, -25.9, 1.94)
pt3dadd(-51.165, 247.738, -25.92, 1.9)
pt3dadd(-51.271, 247.789, -25.942, 1.862)
pt3dadd(-51.349, 247.814, -26.012, 1.834)
pt3dadd(-51.425, 247.838, -26.088, 1.808)
}
}
proc shape3d_41() {
apic[9] { pt3dadd(-51.472, 247.946, -26.092, 1.782)
pt3dadd(-51.519, 248.057, -26.095, 1.754)
pt3dadd(-51.565, 248.167, -26.098, 1.726)
pt3dadd(-51.618, 248.27, -26.113, 1.696)
pt3dadd(-51.683, 248.357, -26.157, 1.652)
pt3dadd(-51.748, 248.42, -26.218, 1.564)
pt3dadd(-51.776, 248.512, -26.278, 1.52)
pt3dadd(-51.803, 248.603, -26.338, 1.478)
pt3dadd(-51.853, 248.664, -26.413, 1.406)
pt3dadd(-51.891, 248.742, -26.47, 1.338)
pt3dadd(-51.898, 248.861, -26.484, 1.278)
pt3dadd(-51.904, 248.98, -26.497, 1.218)
pt3dadd(-51.969, 249.076, -26.5, 1.168)
pt3dadd(-52.047, 249.166, -26.5, 1.12)
pt3dadd(-52.092, 249.275, -26.5, 1.116)
pt3dadd(-52.122, 249.39, -26.503, 1.132)
pt3dadd(-52.165, 249.488, -26.547, 1.168)
pt3dadd(-52.209, 249.587, -26.591, 1.202)
pt3dadd(-52.252, 249.685, -26.636, 1.238)
pt3dadd(-52.296, 249.784, -26.68, 1.274)
pt3dadd(-52.357, 249.865, -26.73, 1.326)
pt3dadd(-52.424, 249.943, -26.782, 1.38)
pt3dadd(-52.49, 250.021, -26.834, 1.436)
pt3dadd(-52.556, 250.1, -26.886, 1.492)
pt3dadd(-52.618, 250.196, -26.911, 1.526)
pt3dadd(-52.677, 250.298, -26.925, 1.554)
pt3dadd(-52.737, 250.402, -26.939, 1.58)
pt3dadd(-52.797, 250.505, -26.954, 1.608)
pt3dadd(-52.86, 250.604, -26.968, 1.634)
pt3dadd(-52.953, 250.676, -26.986, 1.646)
pt3dadd(-53.048, 250.747, -27, 1.652)
pt3dadd(-53.15, 250.811, -27, 1.618)
pt3dadd(-53.251, 250.876, -27, 1.584)
pt3dadd(-53.345, 250.931, -27.041, 1.568)
pt3dadd(-53.436, 250.979, -27.089, 1.564)
pt3dadd(-53.514, 250.987, -27.165, 1.614)
pt3dadd(-53.588, 251.003, -27.24, 1.664)
pt3dadd(-53.636, 251.077, -27.308, 1.732)
pt3dadd(-53.683, 251.152, -27.376, 1.8)
pt3dadd(-53.734, 251.227, -27.439, 1.876)
pt3dadd(-53.806, 251.312, -27.477, 1.988)
pt3dadd(-53.885, 251.395, -27.5, 2.072)
pt3dadd(-53.959, 251.488, -27.5, 2.046)
pt3dadd(-54.023, 251.59, -27.5, 1.988)
pt3dadd(-54.087, 251.69, -27.5, 1.912)
pt3dadd(-54.152, 251.791, -27.5, 1.818)
}
dend_5 {pt3dclear()
pt3dadd(-54.152, 251.791, -27.5, 1.818)
pt3dadd(-54.212, 251.894, -27.508, 1.736)
pt3dadd(-54.263, 251.999, -27.531, 1.67)
pt3dadd(-54.311, 252.07, -27.581, 1.622)
pt3dadd(-54.356, 252.091, -27.673, 1.598)
pt3dadd(-54.395, 252.118, -27.764, 1.588)
pt3dadd(-54.423, 252.158, -27.855, 1.606)
pt3dadd(-54.469, 252.234, -27.923, 1.626)
pt3dadd(-54.515, 252.311, -27.99, 1.644)
pt3dadd(-54.561, 252.386, -28.057, 1.662)
pt3dadd(-54.607, 252.462, -28.124, 1.68)
pt3dadd(-54.678, 252.475, -28.201, 1.734)
pt3dadd(-54.752, 252.478, -28.279, 1.792)
pt3dadd(-54.832, 252.52, -28.342, 1.86)
pt3dadd(-54.913, 252.575, -28.398, 1.932)
pt3dadd(-54.957, 252.685, -28.4, 1.944)
pt3dadd(-55, 252.798, -28.4, 1.956)
pt3dadd(-55.053, 252.906, -28.4, 1.952)
pt3dadd(-55.11, 253.012, -28.4, 1.94)
pt3dadd(-55.163, 253.118, -28.4, 1.918)
pt3dadd(-55.213, 253.228, -28.4, 1.884)
}
dend_5[1] {pt3dclear()
pt3dadd(-55.213, 253.228, -28.4, 1.884)
pt3dadd(-55.235, 253.26, -28.4, 1.884)
pt3dadd(-55.3, 253.361, -28.4, 1.89)
pt3dadd(-55.366, 253.462, -28.4, 1.894)
pt3dadd(-55.431, 253.562, -28.4, 1.9)
pt3dadd(-55.497, 253.662, -28.4, 1.904)
pt3dadd(-55.56, 253.764, -28.4, 1.908)
pt3dadd(-55.617, 253.87, -28.4, 1.908)
pt3dadd(-55.668, 253.976, -28.4, 1.91)
pt3dadd(-55.668, 254.098, -28.4, 1.918)
pt3dadd(-55.669, 254.218, -28.4, 1.926)
pt3dadd(-55.673, 254.336, -28.4, 1.938)
pt3dadd(-55.689, 254.455, -28.4, 1.958)
pt3dadd(-55.705, 254.574, -28.4, 1.976)
pt3dadd(-55.773, 254.662, -28.403, 2.02)
pt3dadd(-55.873, 254.728, -28.409, 2.08)
pt3dadd(-55.955, 254.797, -28.441, 2.132)
pt3dadd(-56.009, 254.879, -28.497, 2.154)
pt3dadd(-56.039, 254.977, -28.548, 2.136)
pt3dadd(-56.069, 255.077, -28.598, 2.118)
pt3dadd(-56.099, 255.175, -28.649, 2.102)
pt3dadd(-56.129, 255.274, -28.7, 2.084)
}
dend_5[2] {pt3dclear()
pt3dadd(-56.129, 255.274, -28.7, 2.084)
pt3dadd(-56.146, 255.36, -28.709, 2.046)
pt3dadd(-56.17, 255.476, -28.722, 1.994)
pt3dadd(-56.194, 255.593, -28.734, 1.942)
pt3dadd(-56.217, 255.709, -28.747, 1.89)
pt3dadd(-56.241, 255.827, -28.76, 1.838)
pt3dadd(-56.271, 255.94, -28.779, 1.774)
pt3dadd(-56.309, 256.049, -28.806, 1.694)
pt3dadd(-56.347, 256.158, -28.833, 1.616)
pt3dadd(-56.385, 256.266, -28.861, 1.538)
pt3dadd(-56.423, 256.375, -28.888, 1.458)
pt3dadd(-56.443, 256.492, -28.87, 1.386)
pt3dadd(-56.462, 256.608, -28.851, 1.314)
pt3dadd(-56.481, 256.724, -28.832, 1.24)
pt3dadd(-56.5, 256.841, -28.812, 1.168)
pt3dadd(-56.519, 256.956, -28.793, 1.096)
pt3dadd(-56.522, 257.07, -28.763, 1.05)
pt3dadd(-56.52, 257.184, -28.73, 1.014)
pt3dadd(-56.519, 257.297, -28.698, 0.976)
pt3dadd(-56.517, 257.411, -28.665, 0.94)
pt3dadd(-56.516, 257.524, -28.632, 0.902)
pt3dadd(-56.523, 257.636, -28.6, 0.878)
pt3dadd(-56.543, 257.749, -28.571, 0.872)
pt3dadd(-56.564, 257.862, -28.541, 0.866)
pt3dadd(-56.584, 257.975, -28.512, 0.862)
pt3dadd(-56.605, 258.088, -28.482, 0.856)
pt3dadd(-56.614, 258.202, -28.454, 0.878)
pt3dadd(-56.61, 258.317, -28.426, 0.93)
pt3dadd(-56.607, 258.433, -28.4, 0.982)
pt3dadd(-56.617, 258.552, -28.4, 1.018)
pt3dadd(-56.628, 258.672, -28.4, 1.056)
pt3dadd(-56.648, 258.788, -28.408, 1.084)
pt3dadd(-56.683, 258.9, -28.43, 1.096)
pt3dadd(-56.72, 258.996, -28.469, 1.096)
pt3dadd(-56.762, 259.055, -28.549, 1.068)
pt3dadd(-56.794, 259.144, -28.592, 1.024)
pt3dadd(-56.814, 259.261, -28.599, 0.96)
pt3dadd(-56.847, 259.375, -28.614, 0.912)
pt3dadd(-56.88, 259.489, -28.63, 0.866)
pt3dadd(-56.9, 259.601, -28.662, 0.816)
pt3dadd(-56.916, 259.71, -28.699, 0.768)
pt3dadd(-56.948, 259.814, -28.74, 0.734)
pt3dadd(-56.987, 259.916, -28.782, 0.708)
pt3dadd(-57.009, 260.02, -28.748, 0.68)
pt3dadd(-57.027, 260.122, -28.699, 0.652)
pt3dadd(-57.025, 260.186, -28.615, 0.618)
pt3dadd(-57.022, 260.275, -28.554, 0.594)
pt3dadd(-57.018, 260.384, -28.512, 0.58)
pt3dadd(-57.014, 260.494, -28.47, 0.566)
pt3dadd(-57.01, 260.602, -28.428, 0.552)
pt3dadd(-57.007, 260.711, -28.386, 0.538)
pt3dadd(-57.003, 260.809, -28.333, 0.508)
pt3dadd(-57.001, 260.885, -28.255, 0.456)
pt3dadd(-56.997, 260.989, -28.211, 0.484)
pt3dadd(-56.999, 261.107, -28.222, 0.562)
pt3dadd(-57.032, 261.19, -28.28, 0.654)
pt3dadd(-57.082, 261.204, -28.369, 0.69)
pt3dadd(-57.105, 261.215, -28.466, 0.738)
pt3dadd(-57.108, 261.244, -28.563, 0.848)
pt3dadd(-57.111, 261.319, -28.639, 0.984)
pt3dadd(-57.156, 261.407, -28.689, 1.054)
pt3dadd(-57.253, 261.476, -28.7, 1.068)
pt3dadd(-57.322, 261.57, -28.689, 1.104)
pt3dadd(-57.333, 261.683, -28.655, 1.12)
pt3dadd(-57.329, 261.794, -28.619, 1.088)
pt3dadd(-57.325, 261.91, -28.592, 1.08)
pt3dadd(-57.321, 262.025, -28.566, 1.208)
pt3dadd(-57.317, 262.144, -28.557, 1.232)
pt3dadd(-57.313, 262.264, -28.548, 1.256)
pt3dadd(-57.308, 262.382, -28.539, 1.28)
pt3dadd(-57.304, 262.502, -28.53, 1.304)
pt3dadd(-57.3, 262.621, -28.521, 1.328)
pt3dadd(-57.296, 262.741, -28.512, 1.352)
pt3dadd(-57.333, 262.852, -28.527, 1.374)
pt3dadd(-57.377, 262.962, -28.546, 1.396)
pt3dadd(-57.422, 263.07, -28.565, 1.416)
pt3dadd(-57.466, 263.179, -28.584, 1.438)
pt3dadd(-57.506, 263.291, -28.6, 1.454)
pt3dadd(-57.516, 263.41, -28.6, 1.442)
pt3dadd(-57.527, 263.528, -28.6, 1.43)
pt3dadd(-57.538, 263.65, -28.6, 1.418)
pt3dadd(-57.549, 263.768, -28.6, 1.406)
pt3dadd(-57.559, 263.887, -28.6, 1.394)
pt3dadd(-57.57, 264.007, -28.6, 1.382)
pt3dadd(-57.612, 264.119, -28.6, 1.36)
pt3dadd(-57.659, 264.229, -28.6, 1.336)
pt3dadd(-57.706, 264.34, -28.6, 1.312)
pt3dadd(-57.752, 264.45, -28.6, 1.288)
pt3dadd(-57.799, 264.562, -28.6, 1.266)
pt3dadd(-57.818, 264.677, -28.6, 1.246)
pt3dadd(-57.817, 264.797, -28.6, 1.232)
pt3dadd(-57.817, 264.917, -28.6, 1.218)
pt3dadd(-57.817, 265.037, -28.6, 1.202)
pt3dadd(-57.817, 265.158, -28.6, 1.188)
pt3dadd(-57.816, 265.278, -28.6, 1.172)
pt3dadd(-57.816, 265.398, -28.6, 1.158)
pt3dadd(-57.833, 265.516, -28.6, 1.152)
pt3dadd(-57.854, 265.634, -28.6, 1.148)
pt3dadd(-57.874, 265.753, -28.6, 1.144)
pt3dadd(-57.895, 265.871, -28.6, 1.138)
pt3dadd(-57.916, 265.988, -28.6, 1.134)
pt3dadd(-57.937, 266.107, -28.6, 1.13)
pt3dadd(-57.96, 266.224, -28.602, 1.13)
pt3dadd(-57.984, 266.342, -28.604, 1.13)
pt3dadd(-58.008, 266.46, -28.606, 1.13)
pt3dadd(-58.032, 266.578, -28.608, 1.13)
pt3dadd(-58.056, 266.694, -28.61, 1.13)
pt3dadd(-58.077, 266.813, -28.614, 1.132)
pt3dadd(-58.088, 266.93, -28.63, 1.14)
pt3dadd(-58.098, 267.049, -28.646, 1.15)
pt3dadd(-58.108, 267.167, -28.662, 1.158)
}
}
proc shape3d_42() {
dend_5[2] { pt3dadd(-58.118, 267.284, -28.678, 1.168)
pt3dadd(-58.128, 267.403, -28.694, 1.178)
pt3dadd(-58.138, 267.521, -28.707, 1.188)
pt3dadd(-58.148, 267.64, -28.719, 1.202)
pt3dadd(-58.158, 267.758, -28.731, 1.214)
pt3dadd(-58.168, 267.877, -28.742, 1.228)
pt3dadd(-58.178, 267.996, -28.754, 1.242)
pt3dadd(-58.188, 268.115, -28.765, 1.254)
pt3dadd(-58.211, 268.232, -28.772, 1.268)
pt3dadd(-58.236, 268.349, -28.778, 1.282)
pt3dadd(-58.261, 268.466, -28.784, 1.296)
pt3dadd(-58.286, 268.584, -28.79, 1.308)
pt3dadd(-58.311, 268.702, -28.796, 1.322)
pt3dadd(-58.339, 268.818, -28.802, 1.328)
pt3dadd(-58.373, 268.932, -28.809, 1.318)
pt3dadd(-58.407, 269.047, -28.815, 1.308)
pt3dadd(-58.441, 269.162, -28.821, 1.298)
pt3dadd(-58.475, 269.276, -28.828, 1.29)
pt3dadd(-58.505, 269.393, -28.834, 1.278)
pt3dadd(-58.508, 269.512, -28.845, 1.258)
pt3dadd(-58.51, 269.63, -28.857, 1.236)
pt3dadd(-58.513, 269.749, -28.868, 1.216)
pt3dadd(-58.515, 269.868, -28.879, 1.196)
pt3dadd(-58.518, 269.988, -28.89, 1.174)
pt3dadd(-58.522, 270.108, -28.901, 1.154)
pt3dadd(-58.557, 270.222, -28.909, 1.124)
pt3dadd(-58.591, 270.336, -28.918, 1.096)
pt3dadd(-58.626, 270.451, -28.926, 1.066)
pt3dadd(-58.66, 270.565, -28.935, 1.038)
pt3dadd(-58.695, 270.679, -28.943, 1.008)
pt3dadd(-58.718, 270.792, -28.973, 0.986)
pt3dadd(-58.739, 270.902, -29.005, 0.966)
pt3dadd(-58.76, 271.014, -29.037, 0.944)
pt3dadd(-58.781, 271.127, -29.07, 0.924)
pt3dadd(-58.805, 271.236, -29.1, 0.902)
pt3dadd(-58.88, 271.331, -29.106, 0.866)
pt3dadd(-58.954, 271.424, -29.112, 0.828)
pt3dadd(-58.996, 271.507, -29.174, 0.786)
pt3dadd(-59.028, 271.598, -29.23, 0.748)
pt3dadd(-59.024, 271.711, -29.263, 0.728)
pt3dadd(-59.02, 271.824, -29.296, 0.706)
pt3dadd(-59.016, 271.944, -29.303, 0.71)
pt3dadd(-59.012, 272.064, -29.307, 0.72)
pt3dadd(-59.007, 272.184, -29.311, 0.728)
pt3dadd(-59.004, 272.296, -29.347, 0.776)
pt3dadd(-59.01, 272.41, -29.369, 0.81)
pt3dadd(-59.029, 272.528, -29.375, 0.822)
pt3dadd(-59.049, 272.646, -29.381, 0.836)
pt3dadd(-59.068, 272.765, -29.387, 0.85)
pt3dadd(-59.087, 272.882, -29.393, 0.862)
pt3dadd(-59.107, 273.001, -29.399, 0.876)
pt3dadd(-59.138, 273.116, -29.4, 0.876)
pt3dadd(-59.172, 273.232, -29.4, 0.872)
pt3dadd(-59.207, 273.346, -29.4, 0.866)
pt3dadd(-59.242, 273.461, -29.4, 0.862)
pt3dadd(-59.277, 273.576, -29.4, 0.858)
pt3dadd(-59.302, 273.69, -29.409, 0.85)
pt3dadd(-59.301, 273.803, -29.444, 0.836)
pt3dadd(-59.3, 273.914, -29.479, 0.822)
pt3dadd(-59.298, 274.027, -29.515, 0.808)
pt3dadd(-59.297, 274.139, -29.55, 0.794)
pt3dadd(-59.295, 274.252, -29.585, 0.78)
pt3dadd(-59.303, 274.37, -29.59, 0.772)
pt3dadd(-59.311, 274.49, -29.592, 0.764)
pt3dadd(-59.32, 274.609, -29.594, 0.756)
pt3dadd(-59.329, 274.729, -29.596, 0.748)
pt3dadd(-59.337, 274.849, -29.598, 0.74)
pt3dadd(-59.346, 274.969, -29.599, 0.732)
pt3dadd(-59.351, 275.087, -29.611, 0.728)
pt3dadd(-59.354, 275.206, -29.628, 0.728)
pt3dadd(-59.356, 275.323, -29.646, 0.728)
pt3dadd(-59.359, 275.442, -29.663, 0.728)
pt3dadd(-59.362, 275.561, -29.681, 0.728)
pt3dadd(-59.365, 275.678, -29.698, 0.728)
pt3dadd(-59.362, 275.795, -29.72, 0.736)
pt3dadd(-59.358, 275.912, -29.743, 0.744)
pt3dadd(-59.353, 276.029, -29.766, 0.754)
pt3dadd(-59.349, 276.145, -29.789, 0.762)
pt3dadd(-59.345, 276.263, -29.812, 0.77)
pt3dadd(-59.342, 276.379, -29.834, 0.778)
pt3dadd(-59.357, 276.497, -29.846, 0.784)
pt3dadd(-59.373, 276.616, -29.858, 0.788)
pt3dadd(-59.388, 276.733, -29.87, 0.792)
pt3dadd(-59.403, 276.852, -29.882, 0.796)
pt3dadd(-59.418, 276.97, -29.894, 0.802)
pt3dadd(-59.443, 277.086, -29.9, 0.806)
pt3dadd(-59.477, 277.201, -29.9, 0.81)
pt3dadd(-59.512, 277.316, -29.9, 0.814)
pt3dadd(-59.547, 277.43, -29.9, 0.82)
pt3dadd(-59.581, 277.546, -29.9, 0.824)
pt3dadd(-59.616, 277.661, -29.9, 0.828)
pt3dadd(-59.64, 277.778, -29.9, 0.824)
pt3dadd(-59.663, 277.896, -29.9, 0.82)
pt3dadd(-59.686, 278.014, -29.9, 0.816)
pt3dadd(-59.71, 278.131, -29.9, 0.812)
pt3dadd(-59.733, 278.249, -29.9, 0.808)
pt3dadd(-59.755, 278.368, -29.9, 0.802)
pt3dadd(-59.771, 278.486, -29.9, 0.794)
pt3dadd(-59.786, 278.605, -29.9, 0.786)
pt3dadd(-59.802, 278.724, -29.9, 0.778)
pt3dadd(-59.818, 278.843, -29.9, 0.77)
pt3dadd(-59.833, 278.962, -29.9, 0.76)
pt3dadd(-59.847, 279.082, -29.9, 0.752)
pt3dadd(-59.843, 279.202, -29.9, 0.736)
pt3dadd(-59.839, 279.322, -29.9, 0.718)
pt3dadd(-59.836, 279.442, -29.9, 0.702)
pt3dadd(-59.847, 279.56, -29.905, 0.692)
pt3dadd(-59.859, 279.679, -29.909, 0.682)
pt3dadd(-59.889, 279.766, -29.951, 0.684)
pt3dadd(-59.938, 279.818, -30.03, 0.698)
pt3dadd(-59.987, 279.901, -30.085, 0.722)
pt3dadd(-60.035, 280, -30.127, 0.75)
pt3dadd(-60.096, 280.097, -30.151, 0.774)
pt3dadd(-60.16, 280.195, -30.172, 0.798)
pt3dadd(-60.224, 280.295, -30.193, 0.822)
pt3dadd(-60.251, 280.408, -30.2, 0.848)
pt3dadd(-60.262, 280.526, -30.2, 0.876)
pt3dadd(-60.273, 280.646, -30.2, 0.904)
pt3dadd(-60.269, 280.765, -30.212, 0.98)
pt3dadd(-60.272, 280.884, -30.228, 0.994)
pt3dadd(-60.275, 281.003, -30.243, 1.006)
pt3dadd(-60.277, 281.12, -30.258, 1.02)
pt3dadd(-60.28, 281.239, -30.273, 1.032)
pt3dadd(-60.283, 281.358, -30.288, 1.046)
pt3dadd(-60.294, 281.476, -30.3, 1.058)
pt3dadd(-60.331, 281.59, -30.3, 1.066)
pt3dadd(-60.369, 281.704, -30.3, 1.076)
pt3dadd(-60.407, 281.818, -30.3, 1.084)
pt3dadd(-60.444, 281.932, -30.3, 1.094)
pt3dadd(-60.482, 282.046, -30.3, 1.102)
pt3dadd(-60.498, 282.163, -30.3, 1.108)
pt3dadd(-60.509, 282.284, -30.3, 1.112)
pt3dadd(-60.52, 282.403, -30.3, 1.116)
pt3dadd(-60.531, 282.522, -30.3, 1.12)
pt3dadd(-60.541, 282.642, -30.3, 1.124)
pt3dadd(-60.552, 282.762, -30.3, 1.128)
pt3dadd(-60.591, 282.871, -30.3, 1.13)
pt3dadd(-60.657, 282.971, -30.3, 1.13)
pt3dadd(-60.723, 283.072, -30.3, 1.13)
pt3dadd(-60.788, 283.172, -30.3, 1.13)
pt3dadd(-60.854, 283.273, -30.3, 1.13)
pt3dadd(-60.91, 283.372, -30.322, 1.13)
pt3dadd(-60.957, 283.468, -30.367, 1.13)
pt3dadd(-61.004, 283.565, -30.412, 1.13)
pt3dadd(-61.052, 283.661, -30.457, 1.13)
pt3dadd(-61.095, 283.762, -30.489, 1.134)
pt3dadd(-61.127, 283.878, -30.492, 1.148)
pt3dadd(-61.16, 283.993, -30.493, 1.162)
pt3dadd(-61.192, 284.108, -30.495, 1.174)
pt3dadd(-61.224, 284.224, -30.498, 1.188)
pt3dadd(-61.257, 284.34, -30.5, 1.202)
pt3dadd(-61.289, 284.455, -30.5, 1.222)
pt3dadd(-61.32, 284.57, -30.5, 1.246)
pt3dadd(-61.352, 284.687, -30.5, 1.268)
pt3dadd(-61.384, 284.802, -30.5, 1.29)
pt3dadd(-61.416, 284.918, -30.5, 1.314)
pt3dadd(-61.445, 285.035, -30.5, 1.336)
pt3dadd(-61.463, 285.154, -30.5, 1.362)
pt3dadd(-61.481, 285.271, -30.5, 1.386)
pt3dadd(-61.499, 285.391, -30.5, 1.412)
pt3dadd(-61.517, 285.509, -30.5, 1.436)
pt3dadd(-61.536, 285.628, -30.5, 1.462)
pt3dadd(-61.567, 285.739, -30.5, 1.482)
pt3dadd(-61.653, 285.824, -30.5, 1.482)
pt3dadd(-61.736, 285.91, -30.5, 1.476)
pt3dadd(-61.8, 286.012, -30.5, 1.418)
pt3dadd(-61.865, 286.112, -30.5, 1.36)
pt3dadd(-61.871, 286.226, -30.527, 1.276)
pt3dadd(-61.873, 286.34, -30.555, 1.188)
pt3dadd(-61.871, 286.456, -30.583, 1.118)
pt3dadd(-61.867, 286.572, -30.611, 1.056)
pt3dadd(-61.865, 286.682, -30.645, 0.994)
pt3dadd(-61.872, 286.772, -30.711, 0.938)
pt3dadd(-61.911, 286.877, -30.742, 0.92)
pt3dadd(-61.957, 286.984, -30.767, 0.908)
pt3dadd(-62.003, 287.089, -30.791, 0.898)
pt3dadd(-62.049, 287.197, -30.816, 0.886)
pt3dadd(-62.089, 287.304, -30.844, 0.878)
pt3dadd(-62.11, 287.413, -30.882, 0.872)
pt3dadd(-62.132, 287.521, -30.92, 0.866)
pt3dadd(-62.154, 287.632, -30.957, 0.862)
pt3dadd(-62.176, 287.741, -30.995, 0.856)
pt3dadd(-62.183, 287.845, -31.041, 0.848)
pt3dadd(-62.179, 287.95, -31.091, 0.836)
pt3dadd(-62.193, 288.049, -31.141, 0.828)
pt3dadd(-62.234, 288.146, -31.19, 0.828)
pt3dadd(-62.288, 288.236, -31.236, 0.828)
pt3dadd(-62.354, 288.322, -31.281, 0.828)
pt3dadd(-62.377, 288.434, -31.281, 0.828)
pt3dadd(-62.39, 288.553, -31.271, 0.828)
pt3dadd(-62.411, 288.664, -31.243, 0.84)
pt3dadd(-62.439, 288.772, -31.211, 0.854)
pt3dadd(-62.469, 288.888, -31.209, 0.86)
pt3dadd(-62.499, 289.004, -31.207, 0.864)
pt3dadd(-62.528, 289.121, -31.205, 0.868)
pt3dadd(-62.558, 289.237, -31.203, 0.874)
pt3dadd(-62.587, 289.354, -31.201, 0.878)
pt3dadd(-62.594, 289.472, -31.2, 0.878)
pt3dadd(-62.592, 289.592, -31.2, 0.878)
pt3dadd(-62.59, 289.712, -31.2, 0.878)
}
}
proc shape3d_43() {
dend_5[2] { pt3dadd(-62.588, 289.832, -31.2, 0.878)
pt3dadd(-62.585, 289.952, -31.2, 0.878)
pt3dadd(-62.583, 290.072, -31.2, 0.878)
pt3dadd(-62.581, 290.192, -31.2, 0.878)
pt3dadd(-62.593, 290.311, -31.2, 0.882)
pt3dadd(-62.609, 290.43, -31.2, 0.886)
pt3dadd(-62.624, 290.549, -31.2, 0.89)
pt3dadd(-62.64, 290.669, -31.2, 0.894)
pt3dadd(-62.655, 290.786, -31.2, 0.898)
pt3dadd(-62.671, 290.906, -31.2, 0.902)
pt3dadd(-62.672, 291.026, -31.2, 0.912)
pt3dadd(-62.668, 291.146, -31.2, 0.922)
pt3dadd(-62.664, 291.266, -31.2, 0.934)
pt3dadd(-62.66, 291.386, -31.2, 0.944)
pt3dadd(-62.655, 291.506, -31.2, 0.954)
pt3dadd(-62.651, 291.626, -31.2, 0.966)
pt3dadd(-62.647, 291.746, -31.2, 0.976)
pt3dadd(-62.673, 291.86, -31.2, 1.006)
pt3dadd(-62.711, 291.974, -31.2, 1.044)
pt3dadd(-62.749, 292.09, -31.2, 1.08)
pt3dadd(-62.787, 292.202, -31.2, 1.118)
pt3dadd(-62.824, 292.316, -31.2, 1.154)
pt3dadd(-62.863, 292.43, -31.2, 1.186)
pt3dadd(-62.903, 292.543, -31.2, 1.21)
pt3dadd(-62.944, 292.656, -31.2, 1.234)
pt3dadd(-62.985, 292.769, -31.2, 1.256)
pt3dadd(-63.025, 292.882, -31.2, 1.28)
pt3dadd(-63.066, 292.994, -31.2, 1.304)
pt3dadd(-63.109, 293.107, -31.2, 1.314)
pt3dadd(-63.153, 293.219, -31.2, 1.324)
pt3dadd(-63.197, 293.329, -31.2, 1.334)
pt3dadd(-63.24, 293.442, -31.2, 1.342)
pt3dadd(-63.284, 293.554, -31.2, 1.352)
pt3dadd(-63.304, 293.671, -31.2, 1.35)
pt3dadd(-63.306, 293.79, -31.2, 1.338)
pt3dadd(-63.307, 293.91, -31.2, 1.328)
pt3dadd(-63.309, 294.03, -31.2, 1.316)
pt3dadd(-63.311, 294.15, -31.2, 1.304)
pt3dadd(-63.313, 294.27, -31.2, 1.294)
pt3dadd(-63.314, 294.39, -31.2, 1.282)
pt3dadd(-63.322, 294.51, -31.2, 1.278)
pt3dadd(-63.331, 294.63, -31.2, 1.274)
pt3dadd(-63.339, 294.749, -31.2, 1.27)
pt3dadd(-63.347, 294.869, -31.2, 1.266)
pt3dadd(-63.356, 294.989, -31.2, 1.262)
pt3dadd(-63.364, 295.109, -31.2, 1.258)
pt3dadd(-63.391, 295.224, -31.2, 1.266)
pt3dadd(-63.435, 295.336, -31.2, 1.284)
pt3dadd(-63.479, 295.448, -31.2, 1.304)
pt3dadd(-63.522, 295.559, -31.2, 1.322)
pt3dadd(-63.566, 295.67, -31.2, 1.342)
pt3dadd(-63.609, 295.783, -31.2, 1.364)
pt3dadd(-63.646, 295.897, -31.2, 1.406)
pt3dadd(-63.684, 296.011, -31.2, 1.448)
pt3dadd(-63.722, 296.125, -31.2, 1.49)
pt3dadd(-63.759, 296.239, -31.2, 1.53)
pt3dadd(-63.797, 296.352, -31.2, 1.572)
pt3dadd(-63.803, 296.472, -31.2, 1.606)
pt3dadd(-63.799, 296.591, -31.2, 1.638)
pt3dadd(-63.794, 296.711, -31.2, 1.672)
pt3dadd(-63.79, 296.831, -31.2, 1.704)
pt3dadd(-63.786, 296.951, -31.2, 1.736)
pt3dadd(-63.782, 297.071, -31.2, 1.768)
pt3dadd(-63.778, 297.191, -31.2, 1.8)
pt3dadd(-63.788, 297.311, -31.2, 1.812)
pt3dadd(-63.804, 297.428, -31.2, 1.816)
pt3dadd(-63.82, 297.548, -31.2, 1.82)
pt3dadd(-63.835, 297.667, -31.2, 1.824)
pt3dadd(-63.851, 297.786, -31.2, 1.828)
pt3dadd(-63.866, 297.905, -31.2, 1.832)
pt3dadd(-63.869, 298.025, -31.2, 1.808)
pt3dadd(-63.864, 298.145, -31.2, 1.772)
pt3dadd(-63.86, 298.265, -31.2, 1.738)
pt3dadd(-63.856, 298.385, -31.2, 1.702)
pt3dadd(-63.852, 298.505, -31.2, 1.666)
pt3dadd(-63.848, 298.625, -31.2, 1.63)
pt3dadd(-63.843, 298.745, -31.2, 1.594)
pt3dadd(-63.855, 298.861, -31.213, 1.532)
pt3dadd(-63.874, 298.978, -31.232, 1.46)
pt3dadd(-63.893, 299.094, -31.252, 1.388)
pt3dadd(-63.912, 299.21, -31.271, 1.316)
pt3dadd(-63.931, 299.327, -31.29, 1.244)
pt3dadd(-63.939, 299.443, -31.292, 1.18)
pt3dadd(-63.935, 299.562, -31.276, 1.126)
pt3dadd(-63.931, 299.681, -31.259, 1.072)
pt3dadd(-63.927, 299.798, -31.243, 1.018)
pt3dadd(-63.923, 299.917, -31.226, 0.966)
pt3dadd(-63.918, 300.036, -31.21, 0.912)
pt3dadd(-63.914, 300.155, -31.2, 0.874)
pt3dadd(-63.91, 300.275, -31.2, 0.864)
pt3dadd(-63.906, 300.395, -31.2, 0.854)
pt3dadd(-63.902, 300.514, -31.2, 0.842)
pt3dadd(-63.897, 300.634, -31.2, 0.832)
pt3dadd(-63.893, 300.754, -31.2, 0.82)
pt3dadd(-63.889, 300.874, -31.2, 0.81)
pt3dadd(-63.895, 300.99, -31.214, 0.81)
pt3dadd(-63.917, 301.099, -31.249, 0.826)
pt3dadd(-63.938, 301.211, -31.284, 0.842)
pt3dadd(-63.96, 301.321, -31.319, 0.858)
pt3dadd(-63.981, 301.43, -31.354, 0.874)
pt3dadd(-63.99, 301.548, -31.37, 0.894)
pt3dadd(-63.992, 301.668, -31.375, 0.918)
pt3dadd(-63.994, 301.787, -31.381, 0.942)
pt3dadd(-63.996, 301.907, -31.386, 0.966)
pt3dadd(-63.998, 302.027, -31.391, 0.99)
pt3dadd(-64, 302.147, -31.396, 1.012)
pt3dadd(-64.011, 302.266, -31.4, 1.03)
pt3dadd(-64.043, 302.38, -31.4, 1.03)
pt3dadd(-64.075, 302.496, -31.4, 1.03)
pt3dadd(-64.107, 302.611, -31.4, 1.03)
pt3dadd(-64.138, 302.728, -31.4, 1.03)
pt3dadd(-64.17, 302.843, -31.4, 1.03)
pt3dadd(-64.176, 302.963, -31.4, 1.006)
pt3dadd(-64.172, 303.083, -31.4, 0.972)
pt3dadd(-64.168, 303.203, -31.4, 0.938)
pt3dadd(-64.164, 303.322, -31.412, 0.894)
pt3dadd(-64.16, 303.438, -31.429, 0.846)
pt3dadd(-64.156, 303.553, -31.452, 0.8)
pt3dadd(-64.153, 303.641, -31.52, 0.778)
pt3dadd(-64.15, 303.728, -31.588, 0.754)
pt3dadd(-64.152, 303.83, -31.641, 0.754)
pt3dadd(-64.155, 303.934, -31.694, 0.754)
pt3dadd(-64.204, 303.995, -31.767, 0.772)
pt3dadd(-64.222, 304.096, -31.803, 0.784)
pt3dadd(-64.225, 304.213, -31.822, 0.794)
pt3dadd(-64.228, 304.331, -31.842, 0.802)
pt3dadd(-64.231, 304.448, -31.861, 0.812)
pt3dadd(-64.234, 304.566, -31.881, 0.82)
pt3dadd(-64.237, 304.684, -31.901, 0.83)
pt3dadd(-64.248, 304.799, -31.926, 0.844)
pt3dadd(-64.259, 304.914, -31.952, 0.858)
pt3dadd(-64.271, 305.03, -31.977, 0.872)
pt3dadd(-64.282, 305.146, -32.003, 0.886)
pt3dadd(-64.293, 305.261, -32.028, 0.902)
pt3dadd(-64.298, 305.378, -32.042, 0.904)
pt3dadd(-64.3, 305.5, -32.053, 0.904)
pt3dadd(-64.302, 305.618, -32.064, 0.904)
pt3dadd(-64.305, 305.737, -32.075, 0.904)
pt3dadd(-64.307, 305.856, -32.086, 0.904)
pt3dadd(-64.31, 305.975, -32.097, 0.904)
pt3dadd(-64.312, 306.095, -32.1, 0.904)
pt3dadd(-64.314, 306.215, -32.1, 0.904)
pt3dadd(-64.315, 306.335, -32.1, 0.904)
pt3dadd(-64.317, 306.456, -32.1, 0.904)
pt3dadd(-64.319, 306.576, -32.1, 0.904)
pt3dadd(-64.321, 306.696, -32.1, 0.904)
pt3dadd(-64.325, 306.815, -32.1, 0.904)
pt3dadd(-64.357, 306.931, -32.1, 0.904)
pt3dadd(-64.389, 307.046, -32.1, 0.904)
pt3dadd(-64.421, 307.162, -32.1, 0.904)
pt3dadd(-64.452, 307.278, -32.1, 0.904)
pt3dadd(-64.484, 307.393, -32.1, 0.904)
pt3dadd(-64.516, 307.51, -32.1, 0.914)
pt3dadd(-64.548, 307.625, -32.1, 0.93)
pt3dadd(-64.579, 307.741, -32.1, 0.948)
pt3dadd(-64.611, 307.856, -32.1, 0.966)
pt3dadd(-64.643, 307.972, -32.1, 0.984)
pt3dadd(-64.675, 308.088, -32.1, 1.002)
pt3dadd(-64.68, 308.204, -32.122, 1.016)
pt3dadd(-64.684, 308.32, -32.146, 1.03)
pt3dadd(-64.687, 308.436, -32.17, 1.044)
pt3dadd(-64.69, 308.552, -32.195, 1.058)
pt3dadd(-64.693, 308.67, -32.219, 1.072)
pt3dadd(-64.701, 308.786, -32.239, 1.082)
pt3dadd(-64.717, 308.904, -32.253, 1.086)
pt3dadd(-64.732, 309.022, -32.267, 1.09)
pt3dadd(-64.748, 309.139, -32.282, 1.096)
pt3dadd(-64.763, 309.258, -32.296, 1.1)
pt3dadd(-64.779, 309.374, -32.31, 1.104)
pt3dadd(-64.794, 309.485, -32.348, 1.104)
pt3dadd(-64.81, 309.595, -32.388, 1.104)
pt3dadd(-64.826, 309.703, -32.427, 1.104)
pt3dadd(-64.841, 309.814, -32.467, 1.104)
pt3dadd(-64.858, 309.923, -32.5, 1.104)
pt3dadd(-64.882, 310.04, -32.5, 1.1)
pt3dadd(-64.905, 310.159, -32.5, 1.096)
pt3dadd(-64.928, 310.276, -32.5, 1.092)
pt3dadd(-64.952, 310.393, -32.5, 1.088)
pt3dadd(-64.975, 310.512, -32.5, 1.082)
pt3dadd(-65.013, 310.622, -32.5, 1.078)
pt3dadd(-65.082, 310.721, -32.5, 1.074)
pt3dadd(-65.151, 310.819, -32.5, 1.068)
pt3dadd(-65.219, 310.918, -32.5, 1.064)
pt3dadd(-65.288, 311.016, -32.5, 1.058)
pt3dadd(-65.348, 311.119, -32.5, 1.048)
pt3dadd(-65.392, 311.231, -32.5, 1.03)
pt3dadd(-65.435, 311.344, -32.5, 1.01)
pt3dadd(-65.479, 311.455, -32.5, 0.992)
pt3dadd(-65.523, 311.567, -32.5, 0.972)
pt3dadd(-65.567, 311.678, -32.5, 0.954)
pt3dadd(-65.604, 311.792, -32.5, 0.94)
pt3dadd(-65.642, 311.906, -32.5, 0.926)
pt3dadd(-65.679, 312.02, -32.5, 0.912)
pt3dadd(-65.717, 312.134, -32.5, 0.898)
pt3dadd(-65.755, 312.247, -32.5, 0.886)
pt3dadd(-65.808, 312.354, -32.5, 0.882)
pt3dadd(-65.874, 312.455, -32.5, 0.886)
pt3dadd(-65.939, 312.556, -32.5, 0.892)
pt3dadd(-66.005, 312.656, -32.5, 0.896)
pt3dadd(-66.07, 312.757, -32.5, 0.902)
}
}
proc shape3d_44() {
dend_5[2] { pt3dadd(-66.119, 312.864, -32.5, 0.912)
pt3dadd(-66.154, 312.979, -32.5, 0.926)
pt3dadd(-66.189, 313.094, -32.5, 0.938)
pt3dadd(-66.223, 313.208, -32.5, 0.952)
pt3dadd(-66.258, 313.324, -32.5, 0.966)
pt3dadd(-66.293, 313.44, -32.5, 0.98)
pt3dadd(-66.324, 313.555, -32.5, 0.988)
pt3dadd(-66.356, 313.672, -32.5, 0.998)
pt3dadd(-66.388, 313.787, -32.5, 1.006)
pt3dadd(-66.42, 313.902, -32.5, 1.016)
pt3dadd(-66.451, 314.017, -32.5, 1.024)
pt3dadd(-66.474, 314.134, -32.509, 1.03)
pt3dadd(-66.485, 314.251, -32.529, 1.03)
pt3dadd(-66.496, 314.368, -32.55, 1.03)
pt3dadd(-66.507, 314.484, -32.571, 1.03)
pt3dadd(-66.518, 314.602, -32.591, 1.03)
pt3dadd(-66.528, 314.718, -32.612, 1.03)
pt3dadd(-66.544, 314.837, -32.628, 1.034)
pt3dadd(-66.56, 314.953, -32.645, 1.04)
pt3dadd(-66.576, 315.071, -32.661, 1.044)
pt3dadd(-66.592, 315.187, -32.678, 1.048)
pt3dadd(-66.607, 315.305, -32.695, 1.054)
pt3dadd(-66.612, 315.425, -32.7, 1.062)
pt3dadd(-66.612, 315.544, -32.7, 1.074)
pt3dadd(-66.612, 315.664, -32.7, 1.084)
pt3dadd(-66.612, 315.784, -32.7, 1.096)
pt3dadd(-66.611, 315.904, -32.7, 1.106)
pt3dadd(-66.611, 316.024, -32.7, 1.118)
pt3dadd(-66.611, 316.144, -32.7, 1.128)
pt3dadd(-66.629, 316.262, -32.7, 1.13)
pt3dadd(-66.65, 316.38, -32.7, 1.13)
pt3dadd(-66.671, 316.499, -32.7, 1.13)
pt3dadd(-66.691, 316.618, -32.7, 1.13)
pt3dadd(-66.712, 316.735, -32.7, 1.13)
pt3dadd(-66.733, 316.853, -32.7, 1.13)
pt3dadd(-66.743, 316.97, -32.718, 1.126)
pt3dadd(-66.754, 317.089, -32.736, 1.12)
pt3dadd(-66.765, 317.206, -32.755, 1.116)
pt3dadd(-66.775, 317.324, -32.773, 1.112)
pt3dadd(-66.786, 317.441, -32.791, 1.108)
pt3dadd(-66.789, 317.555, -32.819, 1.1)
pt3dadd(-66.785, 317.666, -32.856, 1.09)
pt3dadd(-66.781, 317.778, -32.894, 1.082)
pt3dadd(-66.777, 317.89, -32.931, 1.072)
pt3dadd(-66.773, 318.001, -32.968, 1.062)
pt3dadd(-66.772, 318.113, -33, 1.054)
pt3dadd(-66.788, 318.232, -33, 1.046)
pt3dadd(-66.803, 318.352, -33, 1.038)
pt3dadd(-66.819, 318.469, -33, 1.028)
pt3dadd(-66.834, 318.589, -33, 1.02)
pt3dadd(-66.85, 318.708, -33, 1.012)
pt3dadd(-66.864, 318.827, -33, 1.004)
pt3dadd(-66.86, 318.947, -33, 0.994)
pt3dadd(-66.856, 319.067, -33, 0.982)
pt3dadd(-66.852, 319.187, -33, 0.972)
pt3dadd(-66.848, 319.307, -33, 0.96)
pt3dadd(-66.843, 319.427, -33, 0.95)
pt3dadd(-66.839, 319.547, -33, 0.94)
pt3dadd(-66.835, 319.667, -33.001, 0.928)
pt3dadd(-66.831, 319.783, -33.02, 0.916)
pt3dadd(-66.827, 319.902, -33.038, 0.904)
pt3dadd(-66.823, 320.02, -33.057, 0.89)
pt3dadd(-66.819, 320.137, -33.075, 0.878)
pt3dadd(-66.815, 320.255, -33.094, 0.866)
pt3dadd(-66.81, 320.374, -33.113, 0.854)
pt3dadd(-66.806, 320.486, -33.145, 0.854)
pt3dadd(-66.802, 320.6, -33.177, 0.854)
pt3dadd(-66.798, 320.714, -33.21, 0.854)
pt3dadd(-66.795, 320.827, -33.242, 0.854)
pt3dadd(-66.791, 320.941, -33.274, 0.854)
pt3dadd(-66.787, 321.056, -33.299, 0.856)
pt3dadd(-66.782, 321.175, -33.317, 0.86)
pt3dadd(-66.778, 321.293, -33.336, 0.864)
pt3dadd(-66.774, 321.41, -33.355, 0.868)
pt3dadd(-66.77, 321.529, -33.373, 0.872)
pt3dadd(-66.766, 321.646, -33.392, 0.878)
pt3dadd(-66.762, 321.764, -33.4, 0.882)
pt3dadd(-66.758, 321.884, -33.4, 0.89)
pt3dadd(-66.753, 322.004, -33.4, 0.898)
pt3dadd(-66.749, 322.124, -33.4, 0.904)
pt3dadd(-66.745, 322.244, -33.4, 0.912)
pt3dadd(-66.741, 322.364, -33.4, 0.918)
pt3dadd(-66.737, 322.484, -33.4, 0.926)
pt3dadd(-66.729, 322.604, -33.4, 0.932)
pt3dadd(-66.719, 322.724, -33.4, 0.934)
pt3dadd(-66.709, 322.843, -33.4, 0.938)
pt3dadd(-66.699, 322.963, -33.4, 0.942)
pt3dadd(-66.689, 323.082, -33.4, 0.946)
pt3dadd(-66.678, 323.202, -33.4, 0.95)
pt3dadd(-66.668, 323.322, -33.4, 0.954)
pt3dadd(-66.649, 323.432, -33.431, 0.962)
pt3dadd(-66.629, 323.543, -33.467, 0.974)
pt3dadd(-66.609, 323.653, -33.504, 0.984)
pt3dadd(-66.589, 323.762, -33.54, 0.994)
pt3dadd(-66.569, 323.874, -33.576, 1.004)
pt3dadd(-66.564, 323.982, -33.618, 1.022)
pt3dadd(-66.561, 324.091, -33.66, 1.042)
pt3dadd(-66.557, 324.2, -33.702, 1.06)
pt3dadd(-66.553, 324.308, -33.744, 1.08)
pt3dadd(-66.549, 324.418, -33.786, 1.098)
pt3dadd(-66.545, 324.534, -33.8, 1.126)
pt3dadd(-66.541, 324.653, -33.8, 1.158)
pt3dadd(-66.537, 324.773, -33.8, 1.192)
pt3dadd(-66.532, 324.893, -33.8, 1.224)
pt3dadd(-66.528, 325.013, -33.8, 1.256)
pt3dadd(-66.524, 325.133, -33.8, 1.288)
pt3dadd(-66.52, 325.253, -33.8, 1.32)
pt3dadd(-66.516, 325.373, -33.8, 1.36)
pt3dadd(-66.512, 325.493, -33.8, 1.402)
pt3dadd(-66.507, 325.613, -33.8, 1.446)
pt3dadd(-66.503, 325.733, -33.8, 1.488)
pt3dadd(-66.499, 325.853, -33.8, 1.532)
pt3dadd(-66.495, 325.973, -33.8, 1.574)
pt3dadd(-66.491, 326.093, -33.8, 1.618)
pt3dadd(-66.483, 326.213, -33.8, 1.654)
pt3dadd(-66.472, 326.332, -33.8, 1.688)
pt3dadd(-66.462, 326.452, -33.8, 1.722)
pt3dadd(-66.452, 326.572, -33.8, 1.756)
pt3dadd(-66.442, 326.69, -33.8, 1.79)
pt3dadd(-66.432, 326.809, -33.8, 1.824)
pt3dadd(-66.421, 326.929, -33.8, 1.858)
pt3dadd(-66.382, 327.043, -33.8, 1.866)
pt3dadd(-66.342, 327.156, -33.8, 1.876)
pt3dadd(-66.302, 327.27, -33.8, 1.886)
pt3dadd(-66.262, 327.383, -33.8, 1.894)
pt3dadd(-66.223, 327.496, -33.8, 1.902)
pt3dadd(-66.197, 327.612, -33.8, 1.9)
pt3dadd(-66.19, 327.732, -33.8, 1.878)
pt3dadd(-66.184, 327.852, -33.8, 1.856)
pt3dadd(-66.178, 327.972, -33.8, 1.834)
pt3dadd(-66.172, 328.092, -33.8, 1.812)
pt3dadd(-66.166, 328.211, -33.8, 1.79)
pt3dadd(-66.16, 328.331, -33.8, 1.768)
pt3dadd(-66.146, 328.45, -33.8, 1.736)
pt3dadd(-66.125, 328.567, -33.8, 1.696)
pt3dadd(-66.103, 328.686, -33.8, 1.656)
pt3dadd(-66.082, 328.804, -33.8, 1.614)
pt3dadd(-66.06, 328.922, -33.8, 1.574)
pt3dadd(-66.039, 329.04, -33.8, 1.534)
pt3dadd(-66.023, 329.159, -33.8, 1.494)
pt3dadd(-66.019, 329.279, -33.8, 1.454)
pt3dadd(-66.015, 329.399, -33.8, 1.414)
pt3dadd(-66.011, 329.519, -33.8, 1.374)
pt3dadd(-66.007, 329.638, -33.8, 1.336)
pt3dadd(-66.002, 329.758, -33.8, 1.296)
pt3dadd(-65.998, 329.878, -33.8, 1.256)
pt3dadd(-65.994, 329.998, -33.8, 1.222)
pt3dadd(-65.99, 330.118, -33.8, 1.196)
pt3dadd(-65.986, 330.238, -33.8, 1.172)
pt3dadd(-65.981, 330.358, -33.8, 1.146)
pt3dadd(-65.977, 330.478, -33.8, 1.122)
pt3dadd(-65.973, 330.598, -33.8, 1.096)
pt3dadd(-65.969, 330.718, -33.8, 1.072)
pt3dadd(-65.96, 330.836, -33.794, 1.05)
pt3dadd(-65.941, 330.953, -33.775, 1.036)
pt3dadd(-65.922, 331.069, -33.757, 1.022)
pt3dadd(-65.904, 331.186, -33.739, 1.008)
pt3dadd(-65.885, 331.303, -33.72, 0.994)
pt3dadd(-65.866, 331.418, -33.702, 0.98)
pt3dadd(-65.832, 331.531, -33.682, 0.974)
pt3dadd(-65.796, 331.643, -33.662, 0.97)
pt3dadd(-65.76, 331.754, -33.642, 0.964)
pt3dadd(-65.723, 331.866, -33.622, 0.96)
pt3dadd(-65.687, 331.978, -33.602, 0.954)
pt3dadd(-65.64, 332.088, -33.6, 0.942)
pt3dadd(-65.591, 332.198, -33.6, 0.928)
pt3dadd(-65.543, 332.308, -33.6, 0.914)
pt3dadd(-65.495, 332.418, -33.6, 0.9)
pt3dadd(-65.446, 332.528, -33.6, 0.886)
pt3dadd(-65.394, 332.634, -33.612, 0.87)
pt3dadd(-65.338, 332.737, -33.633, 0.854)
pt3dadd(-65.282, 332.839, -33.655, 0.838)
pt3dadd(-65.226, 332.942, -33.677, 0.82)
pt3dadd(-65.17, 333.046, -33.699, 0.804)
pt3dadd(-65.129, 333.158, -33.7, 0.8)
pt3dadd(-65.089, 333.271, -33.7, 0.794)
pt3dadd(-65.049, 333.385, -33.7, 0.79)
pt3dadd(-65.01, 333.497, -33.7, 0.786)
pt3dadd(-64.97, 333.611, -33.7, 0.782)
pt3dadd(-64.94, 333.726, -33.709, 0.784)
pt3dadd(-64.926, 333.84, -33.734, 0.798)
pt3dadd(-64.912, 333.956, -33.758, 0.812)
pt3dadd(-64.898, 334.072, -33.783, 0.826)
pt3dadd(-64.884, 334.187, -33.808, 0.84)
pt3dadd(-64.87, 334.302, -33.832, 0.854)
pt3dadd(-64.845, 334.414, -33.861, 0.874)
pt3dadd(-64.82, 334.525, -33.89, 0.894)
pt3dadd(-64.795, 334.638, -33.919, 0.914)
pt3dadd(-64.769, 334.75, -33.948, 0.934)
pt3dadd(-64.744, 334.861, -33.978, 0.954)
pt3dadd(-64.719, 334.976, -34.002, 0.974)
pt3dadd(-64.694, 335.089, -34.025, 0.994)
pt3dadd(-64.669, 335.203, -34.049, 1.012)
pt3dadd(-64.644, 335.317, -34.073, 1.032)
pt3dadd(-64.62, 335.431, -34.097, 1.052)
pt3dadd(-64.609, 335.55, -34.1, 1.078)
pt3dadd(-64.6, 335.67, -34.1, 1.104)
pt3dadd(-64.591, 335.789, -34.1, 1.13)
pt3dadd(-64.587, 335.909, -34.1, 1.162)
pt3dadd(-64.583, 336.029, -34.1, 1.196)
}
}
proc shape3d_45() {
dend_5[2] { pt3dadd(-64.578, 336.149, -34.1, 1.23)
pt3dadd(-64.569, 336.268, -34.113, 1.268)
pt3dadd(-64.56, 336.386, -34.126, 1.308)
pt3dadd(-64.523, 336.49, -34.148, 1.33)
pt3dadd(-64.446, 336.57, -34.186, 1.33)
pt3dadd(-64.374, 336.659, -34.216, 1.28)
pt3dadd(-64.327, 336.761, -34.237, 1.224)
pt3dadd(-64.314, 336.88, -34.249, 1.208)
pt3dadd(-64.301, 336.998, -34.26, 1.19)
pt3dadd(-64.288, 337.116, -34.271, 1.174)
pt3dadd(-64.275, 337.235, -34.282, 1.156)
pt3dadd(-64.261, 337.354, -34.294, 1.14)
pt3dadd(-64.238, 337.47, -34.3, 1.148)
pt3dadd(-64.201, 337.584, -34.3, 1.188)
pt3dadd(-64.164, 337.698, -34.3, 1.23)
pt3dadd(-64.16, 337.818, -34.3, 1.332)
pt3dadd(-64.156, 337.938, -34.3, 1.432)
pt3dadd(-64.152, 338.058, -34.3, 1.532)
pt3dadd(-64.143, 338.178, -34.3, 1.654)
pt3dadd(-64.134, 338.297, -34.3, 1.776)
pt3dadd(-64.116, 338.412, -34.303, 1.9)
pt3dadd(-64.021, 338.479, -34.326, 2.048)
pt3dadd(-63.944, 338.556, -34.355, 2.166)
pt3dadd(-63.924, 338.66, -34.401, 2.196)
pt3dadd(-63.905, 338.766, -34.446, 2.226)
pt3dadd(-63.886, 338.87, -34.492, 2.256)
pt3dadd(-63.879, 338.988, -34.5, 2.268)
pt3dadd(-63.875, 339.108, -34.5, 2.276)
pt3dadd(-63.871, 339.228, -34.5, 2.284)
pt3dadd(-63.866, 339.348, -34.5, 2.182)
pt3dadd(-63.862, 339.468, -34.501, 2.126)
pt3dadd(-63.858, 339.588, -34.503, 2.086)
pt3dadd(-63.854, 339.708, -34.505, 2.046)
pt3dadd(-63.85, 339.828, -34.506, 2.006)
pt3dadd(-63.845, 339.948, -34.508, 1.966)
pt3dadd(-63.841, 340.068, -34.509, 1.926)
pt3dadd(-63.837, 340.188, -34.511, 1.886)
pt3dadd(-63.833, 340.307, -34.525, 1.818)
pt3dadd(-63.829, 340.426, -34.539, 1.75)
pt3dadd(-63.825, 340.544, -34.553, 1.68)
pt3dadd(-63.82, 340.662, -34.568, 1.612)
pt3dadd(-63.816, 340.781, -34.582, 1.542)
pt3dadd(-63.812, 340.898, -34.597, 1.472)
pt3dadd(-63.808, 341.018, -34.605, 1.416)
pt3dadd(-63.804, 341.138, -34.612, 1.362)
pt3dadd(-63.8, 341.258, -34.619, 1.308)
pt3dadd(-63.796, 341.377, -34.625, 1.256)
pt3dadd(-63.791, 341.497, -34.632, 1.202)
pt3dadd(-63.787, 341.617, -34.639, 1.148)
pt3dadd(-63.783, 341.736, -34.65, 1.1)
pt3dadd(-63.779, 341.851, -34.677, 1.078)
pt3dadd(-63.775, 341.966, -34.705, 1.056)
pt3dadd(-63.771, 342.082, -34.732, 1.034)
pt3dadd(-63.767, 342.198, -34.76, 1.012)
pt3dadd(-63.763, 342.313, -34.787, 0.99)
pt3dadd(-63.759, 342.431, -34.8, 0.984)
pt3dadd(-63.755, 342.551, -34.8, 0.99)
pt3dadd(-63.75, 342.67, -34.8, 0.998)
pt3dadd(-63.746, 342.79, -34.8, 1.004)
pt3dadd(-63.742, 342.91, -34.8, 1.012)
pt3dadd(-63.738, 343.03, -34.8, 1.02)
pt3dadd(-63.734, 343.15, -34.8, 1.026)
pt3dadd(-63.753, 343.266, -34.8, 1.038)
pt3dadd(-63.794, 343.379, -34.8, 1.052)
pt3dadd(-63.834, 343.492, -34.8, 1.064)
pt3dadd(-63.875, 343.606, -34.8, 1.078)
pt3dadd(-63.916, 343.718, -34.8, 1.092)
pt3dadd(-63.953, 343.831, -34.8, 1.106)
pt3dadd(-63.968, 343.95, -34.8, 1.11)
pt3dadd(-63.984, 344.069, -34.8, 1.114)
pt3dadd(-64, 344.188, -34.8, 1.118)
pt3dadd(-64.015, 344.308, -34.8, 1.122)
pt3dadd(-64.031, 344.425, -34.8, 1.126)
pt3dadd(-64.046, 344.545, -34.8, 1.13)
pt3dadd(-64.062, 344.665, -34.8, 1.13)
pt3dadd(-64.077, 344.783, -34.8, 1.13)
pt3dadd(-64.093, 344.903, -34.8, 1.13)
pt3dadd(-64.109, 345.022, -34.8, 1.13)
pt3dadd(-64.124, 345.14, -34.8, 1.13)
pt3dadd(-64.14, 345.259, -34.8, 1.13)
pt3dadd(-64.136, 345.379, -34.8, 1.138)
pt3dadd(-64.132, 345.499, -34.8, 1.146)
pt3dadd(-64.128, 345.619, -34.8, 1.154)
pt3dadd(-64.124, 345.739, -34.8, 1.18)
pt3dadd(-64.119, 345.859, -34.8, 1.204)
pt3dadd(-64.115, 345.979, -34.8, 1.23)
pt3dadd(-64.111, 346.087, -34.844, 1.274)
pt3dadd(-64.108, 346.194, -34.889, 1.32)
pt3dadd(-64.11, 346.274, -34.96, 1.348)
pt3dadd(-64.114, 346.345, -35.04, 1.374)
pt3dadd(-64.161, 346.432, -35.081, 1.366)
pt3dadd(-64.229, 346.528, -35.102, 1.342)
pt3dadd(-64.298, 346.622, -35.123, 1.318)
pt3dadd(-64.382, 346.682, -35.159, 1.274)
pt3dadd(-64.483, 346.705, -35.21, 1.21)
pt3dadd(-64.562, 346.769, -35.248, 1.154)
pt3dadd(-64.623, 346.867, -35.274, 1.102)
pt3dadd(-64.681, 346.967, -35.3, 1.054)
pt3dadd(-64.677, 347.087, -35.3, 1.046)
pt3dadd(-64.673, 347.207, -35.3, 1.038)
pt3dadd(-64.669, 347.327, -35.3, 1.032)
pt3dadd(-64.684, 347.446, -35.3, 1.086)
pt3dadd(-64.721, 347.56, -35.3, 1.122)
pt3dadd(-64.759, 347.672, -35.3, 1.158)
pt3dadd(-64.797, 347.786, -35.3, 1.196)
pt3dadd(-64.834, 347.902, -35.3, 1.232)
pt3dadd(-64.872, 348.016, -35.3, 1.27)
pt3dadd(-64.898, 348.132, -35.3, 1.31)
pt3dadd(-64.918, 348.25, -35.3, 1.352)
pt3dadd(-64.939, 348.368, -35.3, 1.396)
pt3dadd(-64.96, 348.487, -35.3, 1.438)
pt3dadd(-64.981, 348.605, -35.3, 1.48)
pt3dadd(-65.001, 348.724, -35.3, 1.524)
pt3dadd(-65.016, 348.841, -35.3, 1.56)
pt3dadd(-65.029, 348.961, -35.3, 1.598)
pt3dadd(-65.042, 349.08, -35.3, 1.634)
pt3dadd(-65.055, 349.2, -35.3, 1.67)
pt3dadd(-65.069, 349.319, -35.3, 1.708)
pt3dadd(-65.082, 349.439, -35.3, 1.744)
pt3dadd(-65.095, 349.558, -35.3, 1.768)
pt3dadd(-65.108, 349.676, -35.3, 1.784)
pt3dadd(-65.121, 349.796, -35.3, 1.8)
pt3dadd(-65.134, 349.915, -35.3, 1.816)
pt3dadd(-65.147, 350.035, -35.3, 1.832)
pt3dadd(-65.16, 350.154, -35.3, 1.85)
pt3dadd(-65.166, 350.269, -35.315, 1.852)
pt3dadd(-65.162, 350.382, -35.35, 1.838)
pt3dadd(-65.158, 350.495, -35.385, 1.824)
pt3dadd(-65.154, 350.608, -35.419, 1.81)
pt3dadd(-65.15, 350.72, -35.454, 1.796)
pt3dadd(-65.146, 350.832, -35.489, 1.782)
pt3dadd(-65.142, 350.951, -35.507, 1.75)
pt3dadd(-65.138, 351.068, -35.526, 1.716)
pt3dadd(-65.134, 351.186, -35.544, 1.682)
pt3dadd(-65.13, 351.304, -35.563, 1.65)
pt3dadd(-65.126, 351.422, -35.582, 1.616)
pt3dadd(-65.122, 351.54, -35.6, 1.582)
}
dend_5[3] {pt3dclear()
pt3dadd(-65.122, 351.54, -35.6, 1.582)
pt3dadd(-65.113, 351.601, -35.601, 1.556)
pt3dadd(-65.096, 351.719, -35.603, 1.504)
pt3dadd(-65.079, 351.839, -35.604, 1.45)
pt3dadd(-65.062, 351.956, -35.606, 1.398)
pt3dadd(-65.045, 352.076, -35.608, 1.346)
pt3dadd(-65.028, 352.194, -35.61, 1.294)
pt3dadd(-65.013, 352.313, -35.615, 1.246)
pt3dadd(-65.002, 352.432, -35.63, 1.208)
pt3dadd(-64.991, 352.549, -35.645, 1.168)
pt3dadd(-64.98, 352.667, -35.66, 1.13)
pt3dadd(-64.969, 352.786, -35.676, 1.092)
pt3dadd(-64.958, 352.904, -35.691, 1.052)
pt3dadd(-64.95, 353.023, -35.704, 1.022)
pt3dadd(-64.946, 353.142, -35.715, 1.002)
pt3dadd(-64.941, 353.261, -35.725, 0.982)
pt3dadd(-64.937, 353.38, -35.736, 0.962)
pt3dadd(-64.933, 353.5, -35.746, 0.942)
pt3dadd(-64.929, 353.618, -35.757, 0.922)
pt3dadd(-64.925, 353.737, -35.767, 0.904)
pt3dadd(-64.921, 353.855, -35.79, 0.908)
pt3dadd(-64.917, 353.971, -35.813, 0.912)
pt3dadd(-64.913, 354.088, -35.836, 0.918)
pt3dadd(-64.908, 354.205, -35.859, 0.922)
pt3dadd(-64.904, 354.322, -35.882, 0.926)
pt3dadd(-64.9, 354.439, -35.9, 0.932)
pt3dadd(-64.896, 354.559, -35.9, 0.942)
pt3dadd(-64.892, 354.679, -35.9, 0.952)
pt3dadd(-64.888, 354.799, -35.9, 0.964)
pt3dadd(-64.884, 354.919, -35.9, 0.974)
pt3dadd(-64.879, 355.039, -35.9, 0.986)
pt3dadd(-64.875, 355.158, -35.9, 0.996)
pt3dadd(-64.872, 355.278, -35.9, 1.006)
pt3dadd(-64.874, 355.399, -35.9, 1.018)
pt3dadd(-64.876, 355.519, -35.9, 1.03)
pt3dadd(-64.878, 355.639, -35.9, 1.04)
pt3dadd(-64.879, 355.758, -35.9, 1.052)
pt3dadd(-64.881, 355.878, -35.9, 1.064)
pt3dadd(-64.883, 355.998, -35.9, 1.074)
pt3dadd(-64.888, 356.118, -35.9, 1.08)
pt3dadd(-64.897, 356.238, -35.9, 1.08)
pt3dadd(-64.905, 356.358, -35.9, 1.08)
pt3dadd(-64.914, 356.477, -35.9, 1.08)
pt3dadd(-64.922, 356.598, -35.9, 1.08)
pt3dadd(-64.93, 356.717, -35.9, 1.08)
pt3dadd(-64.937, 356.837, -35.9, 1.076)
pt3dadd(-64.932, 356.957, -35.9, 1.058)
pt3dadd(-64.928, 357.077, -35.9, 1.04)
pt3dadd(-64.924, 357.197, -35.9, 1.022)
pt3dadd(-64.92, 357.317, -35.9, 1.006)
pt3dadd(-64.916, 357.437, -35.9, 0.988)
pt3dadd(-64.912, 357.557, -35.9, 0.97)
pt3dadd(-64.907, 357.677, -35.901, 0.952)
pt3dadd(-64.903, 357.797, -35.906, 0.942)
pt3dadd(-64.899, 357.916, -35.911, 0.93)
pt3dadd(-64.895, 358.036, -35.916, 0.918)
pt3dadd(-64.891, 358.154, -35.921, 0.908)
pt3dadd(-64.887, 358.274, -35.926, 0.896)
pt3dadd(-64.882, 358.394, -35.931, 0.884)
pt3dadd(-64.878, 358.514, -35.938, 0.884)
pt3dadd(-64.874, 358.633, -35.949, 0.896)
pt3dadd(-64.87, 358.752, -35.959, 0.908)
pt3dadd(-64.866, 358.872, -35.97, 0.92)
}
}
proc shape3d_46() {
dend_5[3] { pt3dadd(-64.861, 358.991, -35.98, 0.932)
pt3dadd(-64.857, 359.111, -35.991, 0.944)
pt3dadd(-64.856, 359.23, -36.002, 0.96)
pt3dadd(-64.878, 359.345, -36.022, 1.004)
pt3dadd(-64.9, 359.46, -36.042, 1.048)
pt3dadd(-64.923, 359.576, -36.061, 1.092)
pt3dadd(-64.945, 359.692, -36.081, 1.136)
pt3dadd(-64.967, 359.808, -36.1, 1.18)
pt3dadd(-65.004, 359.922, -36.1, 1.212)
pt3dadd(-65.042, 360.036, -36.1, 1.246)
pt3dadd(-65.08, 360.149, -36.1, 1.278)
pt3dadd(-65.117, 360.263, -36.1, 1.31)
pt3dadd(-65.155, 360.377, -36.1, 1.342)
pt3dadd(-65.169, 360.493, -36.109, 1.36)
pt3dadd(-65.165, 360.612, -36.126, 1.368)
pt3dadd(-65.161, 360.731, -36.142, 1.378)
pt3dadd(-65.157, 360.848, -36.159, 1.386)
pt3dadd(-65.153, 360.966, -36.175, 1.394)
pt3dadd(-65.148, 361.085, -36.191, 1.402)
pt3dadd(-65.144, 361.204, -36.205, 1.4)
pt3dadd(-65.14, 361.322, -36.215, 1.388)
pt3dadd(-65.136, 361.442, -36.226, 1.376)
pt3dadd(-65.132, 361.561, -36.236, 1.366)
pt3dadd(-65.128, 361.68, -36.247, 1.354)
pt3dadd(-65.124, 361.8, -36.257, 1.342)
pt3dadd(-65.119, 361.919, -36.269, 1.328)
pt3dadd(-65.115, 362.035, -36.292, 1.306)
pt3dadd(-65.111, 362.153, -36.315, 1.286)
pt3dadd(-65.107, 362.269, -36.338, 1.264)
pt3dadd(-65.103, 362.386, -36.361, 1.242)
pt3dadd(-65.099, 362.503, -36.384, 1.22)
pt3dadd(-65.101, 362.621, -36.4, 1.196)
pt3dadd(-65.116, 362.738, -36.4, 1.168)
pt3dadd(-65.132, 362.858, -36.4, 1.14)
pt3dadd(-65.148, 362.976, -36.4, 1.11)
pt3dadd(-65.163, 363.096, -36.4, 1.082)
pt3dadd(-65.179, 363.215, -36.4, 1.052)
pt3dadd(-65.191, 363.334, -36.403, 1.024)
pt3dadd(-65.189, 363.452, -36.418, 1)
pt3dadd(-65.187, 363.571, -36.432, 0.974)
pt3dadd(-65.185, 363.69, -36.447, 0.95)
pt3dadd(-65.183, 363.809, -36.462, 0.926)
pt3dadd(-65.181, 363.928, -36.476, 0.9)
pt3dadd(-65.185, 364.045, -36.489, 0.876)
pt3dadd(-65.224, 364.158, -36.494, 0.852)
pt3dadd(-65.263, 364.271, -36.498, 0.828)
pt3dadd(-65.303, 364.386, -36.502, 0.804)
pt3dadd(-65.342, 364.499, -36.506, 0.78)
pt3dadd(-65.381, 364.612, -36.511, 0.756)
pt3dadd(-65.402, 364.728, -36.526, 0.74)
pt3dadd(-65.421, 364.844, -36.543, 0.726)
pt3dadd(-65.439, 364.962, -36.56, 0.712)
pt3dadd(-65.458, 365.078, -36.577, 0.698)
pt3dadd(-65.476, 365.195, -36.593, 0.684)
pt3dadd(-65.507, 365.31, -36.6, 0.672)
pt3dadd(-65.544, 365.424, -36.6, 0.664)
pt3dadd(-65.582, 365.538, -36.6, 0.654)
pt3dadd(-65.62, 365.652, -36.6, 0.644)
pt3dadd(-65.657, 365.767, -36.6, 0.636)
pt3dadd(-65.689, 365.881, -36.6, 0.628)
pt3dadd(-65.686, 366.001, -36.6, 0.632)
pt3dadd(-65.684, 366.121, -36.6, 0.636)
pt3dadd(-65.682, 366.241, -36.6, 0.64)
pt3dadd(-65.679, 366.361, -36.6, 0.642)
pt3dadd(-65.677, 366.481, -36.6, 0.646)
pt3dadd(-65.675, 366.601, -36.6, 0.65)
pt3dadd(-65.666, 366.719, -36.595, 0.658)
pt3dadd(-65.639, 366.834, -36.576, 0.678)
pt3dadd(-65.612, 366.949, -36.556, 0.696)
pt3dadd(-65.585, 367.063, -36.537, 0.716)
pt3dadd(-65.558, 367.177, -36.518, 0.736)
pt3dadd(-65.532, 367.294, -36.5, 0.754)
pt3dadd(-65.528, 367.414, -36.5, 0.768)
pt3dadd(-65.524, 367.534, -36.5, 0.784)
pt3dadd(-65.52, 367.654, -36.5, 0.798)
pt3dadd(-65.515, 367.772, -36.5, 0.812)
pt3dadd(-65.511, 367.892, -36.5, 0.826)
pt3dadd(-65.507, 368.012, -36.5, 0.84)
pt3dadd(-65.503, 368.132, -36.5, 0.854)
pt3dadd(-65.497, 368.252, -36.5, 0.85)
pt3dadd(-65.49, 368.372, -36.5, 0.846)
pt3dadd(-65.484, 368.492, -36.5, 0.842)
pt3dadd(-65.478, 368.612, -36.5, 0.838)
pt3dadd(-65.472, 368.732, -36.5, 0.836)
pt3dadd(-65.466, 368.852, -36.5, 0.832)
pt3dadd(-65.457, 368.97, -36.504, 0.826)
pt3dadd(-65.432, 369.086, -36.522, 0.806)
pt3dadd(-65.408, 369.2, -36.541, 0.788)
pt3dadd(-65.384, 369.316, -36.56, 0.768)
pt3dadd(-65.36, 369.432, -36.579, 0.748)
pt3dadd(-65.335, 369.547, -36.598, 0.73)
pt3dadd(-65.329, 369.666, -36.61, 0.71)
pt3dadd(-65.325, 369.785, -36.62, 0.69)
pt3dadd(-65.321, 369.905, -36.63, 0.67)
pt3dadd(-65.317, 370.024, -36.641, 0.652)
pt3dadd(-65.313, 370.144, -36.651, 0.632)
pt3dadd(-65.308, 370.262, -36.662, 0.612)
pt3dadd(-65.304, 370.379, -36.683, 0.6)
pt3dadd(-65.3, 370.494, -36.713, 0.596)
pt3dadd(-65.296, 370.608, -36.742, 0.592)
pt3dadd(-65.292, 370.723, -36.772, 0.586)
pt3dadd(-65.288, 370.836, -36.802, 0.582)
pt3dadd(-65.284, 370.951, -36.832, 0.578)
pt3dadd(-65.253, 371.057, -36.872, 0.582)
pt3dadd(-65.22, 371.161, -36.914, 0.588)
pt3dadd(-65.187, 371.264, -36.955, 0.594)
pt3dadd(-65.154, 371.369, -36.997, 0.6)
pt3dadd(-65.123, 371.477, -37.019, 0.61)
pt3dadd(-65.094, 371.593, -37.012, 0.626)
pt3dadd(-65.066, 371.708, -37.004, 0.644)
pt3dadd(-65.037, 371.826, -36.996, 0.662)
pt3dadd(-65.01, 371.939, -36.984, 0.68)
pt3dadd(-65.007, 372.007, -36.902, 0.702)
pt3dadd(-65.005, 372.074, -36.819, 0.726)
pt3dadd(-65.001, 372.19, -36.808, 0.728)
pt3dadd(-64.997, 372.31, -36.804, 0.728)
pt3dadd(-64.993, 372.43, -36.8, 0.728)
pt3dadd(-64.988, 372.55, -36.8, 0.72)
pt3dadd(-64.984, 372.67, -36.8, 0.712)
pt3dadd(-64.98, 372.788, -36.8, 0.704)
pt3dadd(-64.957, 372.901, -36.832, 0.692)
pt3dadd(-64.935, 373.012, -36.863, 0.68)
pt3dadd(-64.883, 373.116, -36.889, 0.678)
pt3dadd(-64.857, 373.226, -36.91, 0.678)
pt3dadd(-64.85, 373.345, -36.927, 0.678)
pt3dadd(-64.844, 373.463, -36.943, 0.678)
pt3dadd(-64.838, 373.582, -36.96, 0.678)
pt3dadd(-64.831, 373.699, -36.977, 0.678)
pt3dadd(-64.825, 373.818, -36.993, 0.678)
pt3dadd(-64.82, 373.931, -37.024, 0.678)
pt3dadd(-64.816, 374.041, -37.063, 0.678)
pt3dadd(-64.817, 374.154, -37.09, 0.674)
pt3dadd(-64.829, 374.274, -37.095, 0.666)
pt3dadd(-64.84, 374.393, -37.099, 0.656)
pt3dadd(-64.872, 374.5, -37.069, 0.622)
pt3dadd(-64.912, 374.6, -37.027, 0.582)
pt3dadd(-64.913, 374.705, -36.978, 0.538)
pt3dadd(-64.91, 374.807, -36.927, 0.492)
pt3dadd(-64.905, 374.922, -36.907, 0.458)
pt3dadd(-64.901, 375.042, -36.901, 0.432)
pt3dadd(-64.897, 375.162, -36.9, 0.436)
pt3dadd(-64.893, 375.282, -36.9, 0.446)
pt3dadd(-64.889, 375.402, -36.9, 0.456)
pt3dadd(-64.885, 375.522, -36.9, 0.468)
pt3dadd(-64.88, 375.642, -36.9, 0.478)
pt3dadd(-64.876, 375.762, -36.9, 0.49)
pt3dadd(-64.872, 375.882, -36.9, 0.5)
pt3dadd(-64.868, 376.001, -36.888, 0.522)
pt3dadd(-64.864, 376.12, -36.873, 0.548)
pt3dadd(-64.86, 376.238, -36.858, 0.572)
pt3dadd(-64.855, 376.356, -36.843, 0.598)
pt3dadd(-64.851, 376.475, -36.828, 0.624)
pt3dadd(-64.847, 376.594, -36.813, 0.648)
pt3dadd(-64.843, 376.711, -36.825, 0.68)
pt3dadd(-64.839, 376.829, -36.841, 0.714)
pt3dadd(-64.835, 376.948, -36.858, 0.746)
pt3dadd(-64.831, 377.066, -36.874, 0.78)
pt3dadd(-64.827, 377.184, -36.891, 0.812)
pt3dadd(-64.822, 377.303, -36.907, 0.846)
pt3dadd(-64.818, 377.417, -36.937, 0.874)
pt3dadd(-64.814, 377.53, -36.972, 0.902)
pt3dadd(-64.81, 377.642, -37.007, 0.93)
pt3dadd(-64.807, 377.754, -37.041, 0.958)
pt3dadd(-64.803, 377.867, -37.076, 0.986)
pt3dadd(-64.798, 377.982, -37.1, 1.008)
pt3dadd(-64.792, 378.102, -37.1, 1.024)
pt3dadd(-64.786, 378.222, -37.1, 1.038)
pt3dadd(-64.78, 378.341, -37.1, 1.052)
pt3dadd(-64.774, 378.461, -37.1, 1.068)
pt3dadd(-64.767, 378.581, -37.1, 1.082)
pt3dadd(-64.761, 378.701, -37.1, 1.096)
pt3dadd(-64.749, 378.82, -37.1, 1.102)
pt3dadd(-64.728, 378.937, -37.1, 1.094)
pt3dadd(-64.706, 379.056, -37.1, 1.086)
pt3dadd(-64.685, 379.174, -37.1, 1.078)
pt3dadd(-64.663, 379.292, -37.1, 1.068)
pt3dadd(-64.642, 379.41, -37.1, 1.06)
pt3dadd(-64.625, 379.529, -37.1, 1.05)
pt3dadd(-64.62, 379.649, -37.1, 1.032)
pt3dadd(-64.616, 379.768, -37.1, 1.014)
pt3dadd(-64.612, 379.888, -37.1, 0.996)
pt3dadd(-64.608, 380.008, -37.1, 0.978)
pt3dadd(-64.604, 380.128, -37.1, 0.96)
pt3dadd(-64.599, 380.248, -37.1, 0.942)
pt3dadd(-64.595, 380.366, -37.108, 0.924)
pt3dadd(-64.591, 380.479, -37.143, 0.9)
pt3dadd(-64.587, 380.591, -37.178, 0.878)
pt3dadd(-64.584, 380.704, -37.213, 0.854)
pt3dadd(-64.58, 380.816, -37.247, 0.832)
pt3dadd(-64.576, 380.929, -37.282, 0.808)
pt3dadd(-64.572, 381.048, -37.29, 0.798)
pt3dadd(-64.567, 381.168, -37.292, 0.79)
pt3dadd(-64.563, 381.288, -37.293, 0.784)
pt3dadd(-64.559, 381.408, -37.295, 0.776)
pt3dadd(-64.555, 381.528, -37.297, 0.768)
pt3dadd(-64.551, 381.648, -37.298, 0.762)
pt3dadd(-64.546, 381.767, -37.3, 0.754)
pt3dadd(-64.583, 381.88, -37.315, 0.742)
pt3dadd(-64.625, 381.99, -37.331, 0.73)
pt3dadd(-64.692, 382.079, -37.365, 0.692)
}
}
proc shape3d_47() {
dend_5[3] { pt3dadd(-64.76, 382.165, -37.4, 0.652)
pt3dadd(-64.76, 382.285, -37.396, 0.624)
pt3dadd(-64.761, 382.405, -37.392, 0.598)
pt3dadd(-64.76, 382.524, -37.38, 0.578)
pt3dadd(-64.756, 382.637, -37.347, 0.578)
pt3dadd(-64.752, 382.75, -37.314, 0.578)
pt3dadd(-64.748, 382.87, -37.306, 0.614)
pt3dadd(-64.743, 382.988, -37.3, 0.654)
pt3dadd(-64.72, 383.106, -37.3, 0.666)
pt3dadd(-64.696, 383.224, -37.3, 0.678)
pt3dadd(-64.672, 383.341, -37.3, 0.69)
pt3dadd(-64.648, 383.459, -37.3, 0.702)
pt3dadd(-64.624, 383.578, -37.3, 0.716)
pt3dadd(-64.6, 383.694, -37.3, 0.728)
pt3dadd(-64.564, 383.809, -37.3, 0.708)
pt3dadd(-64.527, 383.923, -37.3, 0.688)
pt3dadd(-64.499, 384.038, -37.3, 0.658)
pt3dadd(-64.48, 384.158, -37.3, 0.622)
pt3dadd(-64.461, 384.276, -37.3, 0.584)
pt3dadd(-64.458, 384.396, -37.3, 0.534)
pt3dadd(-64.459, 384.516, -37.3, 0.482)
pt3dadd(-64.459, 384.636, -37.3, 0.43)
pt3dadd(-64.5, 384.746, -37.321, 0.392)
pt3dadd(-64.543, 384.854, -37.343, 0.354)
pt3dadd(-64.583, 384.901, -37.427, 0.314)
pt3dadd(-64.623, 384.983, -37.483, 0.32)
pt3dadd(-64.662, 385.084, -37.525, 0.346)
pt3dadd(-64.662, 385.178, -37.586, 0.4)
pt3dadd(-64.653, 385.267, -37.651, 0.462)
pt3dadd(-64.613, 385.372, -37.679, 0.55)
pt3dadd(-64.564, 385.48, -37.695, 0.648)
pt3dadd(-64.524, 385.586, -37.723, 0.738)
pt3dadd(-64.486, 385.693, -37.757, 0.828)
pt3dadd(-64.444, 385.742, -37.83, 0.868)
pt3dadd(-64.399, 385.768, -37.921, 0.888)
pt3dadd(-64.369, 385.816, -37.99, 0.892)
pt3dadd(-64.38, 385.936, -37.994, 0.844)
pt3dadd(-64.391, 386.056, -37.998, 0.794)
pt3dadd(-64.392, 386.174, -37.994, 0.742)
pt3dadd(-64.388, 386.294, -37.985, 0.688)
pt3dadd(-64.384, 386.413, -37.976, 0.634)
pt3dadd(-64.38, 386.533, -37.967, 0.58)
pt3dadd(-64.376, 386.648, -37.94, 0.506)
pt3dadd(-64.372, 386.764, -37.912, 0.434)
pt3dadd(-64.368, 386.881, -37.9, 0.36)
pt3dadd(-64.354, 387.001, -37.897, 0.322)
pt3dadd(-64.331, 387.118, -37.891, 0.314)
pt3dadd(-64.309, 387.235, -37.886, 0.304)
pt3dadd(-64.287, 387.354, -37.88, 0.296)
pt3dadd(-64.264, 387.47, -37.874, 0.288)
pt3dadd(-64.242, 387.589, -37.868, 0.278)
pt3dadd(-64.202, 387.686, -37.83, 0.248)
pt3dadd(-64.143, 387.786, -37.811, 0.268)
pt3dadd(-64.101, 387.882, -37.852, 0.404)
pt3dadd(-64.09, 387.96, -37.927, 0.544)
pt3dadd(-64.089, 387.994, -38.022, 0.6)
pt3dadd(-64.092, 388.006, -38.121, 0.566)
pt3dadd(-64.119, 388.007, -38.217, 0.506)
pt3dadd(-64.195, 388.009, -38.291, 0.456)
pt3dadd(-64.299, 388.015, -38.339, 0.452)
pt3dadd(-64.394, 388.06, -38.384, 0.452)
pt3dadd(-64.432, 388.168, -38.398, 0.418)
pt3dadd(-64.439, 388.285, -38.379, 0.356)
pt3dadd(-64.435, 388.39, -38.333, 0.308)
pt3dadd(-64.432, 388.481, -38.269, 0.356)
pt3dadd(-64.438, 388.559, -38.194, 0.392)
pt3dadd(-64.456, 388.662, -38.149, 0.39)
pt3dadd(-64.475, 388.772, -38.112, 0.374)
pt3dadd(-64.493, 388.882, -38.075, 0.358)
pt3dadd(-64.512, 388.992, -38.037, 0.342)
pt3dadd(-64.53, 389.102, -38, 0.326)
pt3dadd(-64.526, 389.222, -38, 0.32)
pt3dadd(-64.522, 389.342, -38, 0.312)
pt3dadd(-64.518, 389.462, -38, 0.304)
pt3dadd(-64.514, 389.581, -38, 0.298)
pt3dadd(-64.509, 389.701, -38, 0.29)
pt3dadd(-64.505, 389.821, -38, 0.284)
pt3dadd(-64.501, 389.941, -38, 0.276)
pt3dadd(-64.497, 390.061, -38, 0.268)
pt3dadd(-64.493, 390.181, -38, 0.262)
pt3dadd(-64.488, 390.301, -38, 0.254)
pt3dadd(-64.484, 390.421, -38, 0.248)
pt3dadd(-64.48, 390.541, -38, 0.24)
pt3dadd(-64.476, 390.661, -38, 0.234)
pt3dadd(-64.472, 390.781, -38, 0.226)
pt3dadd(-64.468, 390.901, -38, 0.226)
pt3dadd(-64.463, 391.021, -38, 0.226)
pt3dadd(-64.459, 391.141, -38, 0.226)
pt3dadd(-64.455, 391.261, -38, 0.226)
pt3dadd(-64.451, 391.381, -38, 0.226)
pt3dadd(-64.447, 391.5, -38, 0.226)
pt3dadd(-64.463, 391.619, -38, 0.226)
pt3dadd(-64.479, 391.739, -38, 0.226)
pt3dadd(-64.536, 391.822, -38, 0.226)
pt3dadd(-64.652, 391.853, -38, 0.226)
pt3dadd(-64.768, 391.883, -38, 0.226)
pt3dadd(-64.879, 391.927, -38, 0.226)
pt3dadd(-64.992, 391.966, -38, 0.226)
pt3dadd(-65.11, 391.985, -38, 0.226)
pt3dadd(-65.229, 392.003, -38, 0.226)
pt3dadd(-65.343, 392.039, -38, 0.234)
pt3dadd(-65.455, 392.082, -38, 0.244)
pt3dadd(-65.544, 392.147, -37.998, 0.258)
pt3dadd(-65.581, 392.261, -37.994, 0.28)
pt3dadd(-65.618, 392.375, -37.987, 0.304)
pt3dadd(-65.634, 392.48, -37.942, 0.34)
pt3dadd(-65.653, 392.585, -37.898, 0.378)
pt3dadd(-65.746, 392.633, -37.849, 0.406)
pt3dadd(-65.841, 392.683, -37.808, 0.436)
pt3dadd(-65.949, 392.732, -37.8, 0.452)
pt3dadd(-66.066, 392.755, -37.8, 0.452)
pt3dadd(-66.186, 392.762, -37.8, 0.452)
pt3dadd(-66.306, 392.766, -37.8, 0.474)
pt3dadd(-66.426, 392.771, -37.8, 0.52)
pt3dadd(-66.544, 392.774, -37.815, 0.544)
pt3dadd(-66.662, 392.779, -37.832, 0.564)
pt3dadd(-66.757, 392.8, -37.864, 0.574)
pt3dadd(-66.786, 392.87, -37.942, 0.56)
pt3dadd(-66.825, 392.959, -37.966, 0.532)
pt3dadd(-66.873, 393.067, -37.944, 0.496)
pt3dadd(-66.903, 393.173, -37.957, 0.46)
pt3dadd(-66.912, 393.276, -38.006, 0.422)
pt3dadd(-66.936, 393.374, -38.058, 0.402)
pt3dadd(-66.953, 393.476, -38.106, 0.41)
pt3dadd(-66.967, 393.582, -38.153, 0.422)
pt3dadd(-66.98, 393.688, -38.201, 0.432)
pt3dadd(-66.993, 393.793, -38.248, 0.442)
pt3dadd(-67.005, 393.899, -38.289, 0.454)
pt3dadd(-67, 394.019, -38.291, 0.464)
pt3dadd(-66.996, 394.139, -38.292, 0.476)
pt3dadd(-66.992, 394.259, -38.294, 0.486)
pt3dadd(-66.988, 394.379, -38.295, 0.496)
pt3dadd(-66.984, 394.499, -38.297, 0.508)
pt3dadd(-66.979, 394.619, -38.299, 0.518)
pt3dadd(-66.98, 394.739, -38.3, 0.528)
pt3dadd(-66.998, 394.856, -38.3, 0.532)
pt3dadd(-67.017, 394.975, -38.3, 0.536)
pt3dadd(-67.035, 395.095, -38.3, 0.54)
pt3dadd(-67.053, 395.213, -38.3, 0.544)
pt3dadd(-67.071, 395.332, -38.3, 0.55)
pt3dadd(-67.089, 395.447, -38.31, 0.55)
pt3dadd(-67.108, 395.556, -38.35, 0.54)
pt3dadd(-67.127, 395.665, -38.39, 0.528)
pt3dadd(-67.146, 395.772, -38.43, 0.518)
pt3dadd(-67.165, 395.881, -38.47, 0.508)
pt3dadd(-67.171, 395.995, -38.491, 0.494)
pt3dadd(-67.167, 396.115, -38.494, 0.48)
pt3dadd(-67.163, 396.235, -38.497, 0.464)
pt3dadd(-67.159, 396.355, -38.5, 0.45)
pt3dadd(-67.155, 396.475, -38.504, 0.436)
pt3dadd(-67.151, 396.595, -38.507, 0.42)
pt3dadd(-67.146, 396.715, -38.51, 0.406)
pt3dadd(-67.142, 396.834, -38.522, 0.404)
pt3dadd(-67.138, 396.953, -38.536, 0.408)
pt3dadd(-67.134, 397.07, -38.551, 0.412)
pt3dadd(-67.13, 397.189, -38.565, 0.416)
pt3dadd(-67.126, 397.308, -38.579, 0.422)
pt3dadd(-67.121, 397.427, -38.594, 0.426)
pt3dadd(-67.094, 397.542, -38.6, 0.446)
pt3dadd(-67.048, 397.651, -38.6, 0.478)
pt3dadd(-67.003, 397.763, -38.6, 0.51)
pt3dadd(-66.957, 397.874, -38.6, 0.542)
pt3dadd(-66.912, 397.985, -38.6, 0.574)
pt3dadd(-66.872, 398.096, -38.6, 0.608)
pt3dadd(-66.872, 398.216, -38.6, 0.654)
pt3dadd(-66.871, 398.336, -38.6, 0.7)
pt3dadd(-66.871, 398.458, -38.6, 0.746)
pt3dadd(-66.871, 398.578, -38.6, 0.792)
pt3dadd(-66.871, 398.698, -38.6, 0.838)
pt3dadd(-66.871, 398.818, -38.6, 0.884)
pt3dadd(-66.887, 398.935, -38.6, 0.95)
pt3dadd(-66.916, 399.052, -38.6, 1.034)
pt3dadd(-66.941, 399.169, -38.6, 1.108)
pt3dadd(-66.936, 399.289, -38.6, 1.134)
pt3dadd(-66.932, 399.409, -38.6, 1.158)
pt3dadd(-66.926, 399.529, -38.6, 1.176)
pt3dadd(-66.907, 399.647, -38.6, 1.148)
pt3dadd(-66.888, 399.766, -38.6, 1.12)
pt3dadd(-66.856, 399.87, -38.625, 1.086)
pt3dadd(-66.808, 399.956, -38.681, 1.044)
pt3dadd(-66.79, 400.049, -38.741, 1.018)
pt3dadd(-66.786, 400.147, -38.797, 1.01)
pt3dadd(-66.782, 400.26, -38.83, 1.03)
pt3dadd(-66.778, 400.374, -38.863, 1.052)
pt3dadd(-66.775, 400.482, -38.906, 1.064)
pt3dadd(-66.771, 400.589, -38.951, 1.076)
pt3dadd(-66.768, 400.684, -39.01, 1.072)
pt3dadd(-66.765, 400.772, -39.078, 1.06)
pt3dadd(-66.763, 400.828, -39.162, 1.034)
pt3dadd(-66.762, 400.854, -39.259, 0.994)
pt3dadd(-66.761, 400.882, -39.356, 0.954)
pt3dadd(-66.753, 400.979, -39.413, 0.926)
pt3dadd(-66.746, 401.077, -39.47, 0.896)
pt3dadd(-66.739, 401.176, -39.527, 0.868)
pt3dadd(-66.71, 401.278, -39.567, 0.828)
pt3dadd(-66.66, 401.384, -39.589, 0.778)
pt3dadd(-66.63, 401.496, -39.606, 0.742)
pt3dadd(-66.623, 401.615, -39.619, 0.72)
pt3dadd(-66.615, 401.734, -39.632, 0.7)
pt3dadd(-66.607, 401.85, -39.646, 0.678)
}
}
proc shape3d_48() {
dend_5[3] { pt3dadd(-66.624, 401.874, -39.744, 0.644)
pt3dadd(-66.64, 401.898, -39.841, 0.612)
pt3dadd(-66.684, 401.905, -39.932, 0.554)
pt3dadd(-66.717, 402.01, -39.972, 0.552)
pt3dadd(-66.749, 402.114, -40.012, 0.552)
pt3dadd(-66.781, 402.22, -40.052, 0.552)
pt3dadd(-66.813, 402.325, -40.091, 0.552)
pt3dadd(-66.842, 402.437, -40.114, 0.552)
pt3dadd(-66.869, 402.553, -40.12, 0.552)
pt3dadd(-66.895, 402.67, -40.125, 0.552)
pt3dadd(-66.922, 402.786, -40.131, 0.552)
pt3dadd(-66.946, 402.904, -40.13, 0.546)
pt3dadd(-66.968, 403.022, -40.126, 0.534)
pt3dadd(-66.99, 403.139, -40.121, 0.524)
pt3dadd(-67.012, 403.258, -40.116, 0.512)
pt3dadd(-67.034, 403.375, -40.111, 0.5)
pt3dadd(-67.03, 403.495, -40.107, 0.458)
pt3dadd(-67.025, 403.615, -40.103, 0.414)
pt3dadd(-67.026, 403.735, -40.1, 0.372)
pt3dadd(-67.055, 403.852, -40.1, 0.342)
pt3dadd(-67.084, 403.967, -40.1, 0.31)
pt3dadd(-67.104, 404.086, -40.1, 0.308)
pt3dadd(-67.12, 404.204, -40.1, 0.318)
pt3dadd(-67.141, 404.318, -40.093, 0.334)
pt3dadd(-67.191, 404.405, -40.036, 0.406)
pt3dadd(-67.226, 404.479, -39.968, 0.484)
pt3dadd(-67.233, 404.537, -39.881, 0.574)
pt3dadd(-67.231, 404.617, -39.807, 0.6)
pt3dadd(-67.228, 404.699, -39.734, 0.624)
pt3dadd(-67.225, 404.786, -39.665, 0.618)
pt3dadd(-67.222, 404.874, -39.597, 0.606)
pt3dadd(-67.218, 404.981, -39.554, 0.58)
pt3dadd(-67.214, 405.094, -39.521, 0.548)
pt3dadd(-67.217, 405.206, -39.511, 0.514)
pt3dadd(-67.232, 405.319, -39.543, 0.48)
pt3dadd(-67.249, 405.43, -39.555, 0.448)
pt3dadd(-67.275, 405.528, -39.502, 0.43)
pt3dadd(-67.301, 405.626, -39.449, 0.412)
pt3dadd(-67.312, 405.727, -39.398, 0.396)
pt3dadd(-67.308, 405.833, -39.349, 0.384)
pt3dadd(-67.321, 405.934, -39.345, 0.388)
pt3dadd(-67.366, 406.014, -39.404, 0.416)
pt3dadd(-67.409, 406.084, -39.472, 0.452)
pt3dadd(-67.416, 406.198, -39.501, 0.466)
pt3dadd(-67.423, 406.313, -39.531, 0.5)
pt3dadd(-67.465, 406.409, -39.56, 0.558)
pt3dadd(-67.514, 406.516, -39.538, 0.574)
pt3dadd(-67.524, 406.632, -39.523, 0.594)
pt3dadd(-67.526, 406.751, -39.51, 0.612)
pt3dadd(-67.533, 406.87, -39.502, 0.63)
pt3dadd(-67.566, 406.984, -39.514, 0.638)
pt3dadd(-67.598, 407.099, -39.525, 0.646)
pt3dadd(-67.633, 407.207, -39.549, 0.652)
pt3dadd(-67.674, 407.297, -39.605, 0.652)
pt3dadd(-67.716, 407.377, -39.67, 0.592)
pt3dadd(-67.748, 407.472, -39.723, 0.552)
pt3dadd(-67.778, 407.572, -39.774, 0.524)
pt3dadd(-67.808, 407.669, -39.825, 0.494)
pt3dadd(-67.838, 407.768, -39.876, 0.466)
pt3dadd(-67.879, 407.857, -39.933, 0.414)
pt3dadd(-67.929, 407.934, -39.996, 0.344)
pt3dadd(-67.945, 407.996, -40.079, 0.3)
pt3dadd(-67.949, 408.053, -40.167, 0.264)
pt3dadd(-67.962, 408.116, -40.25, 0.242)
pt3dadd(-67.98, 408.186, -40.33, 0.23)
pt3dadd(-68.043, 408.264, -40.372, 0.226)
pt3dadd(-68.126, 408.346, -40.396, 0.226)
pt3dadd(-68.157, 408.457, -40.4, 0.238)
pt3dadd(-68.176, 408.576, -40.401, 0.252)
pt3dadd(-68.195, 408.694, -40.407, 0.256)
pt3dadd(-68.215, 408.812, -40.412, 0.26)
pt3dadd(-68.234, 408.93, -40.418, 0.264)
pt3dadd(-68.253, 409.049, -40.424, 0.27)
pt3dadd(-68.273, 409.166, -40.43, 0.274)
pt3dadd(-68.306, 409.271, -40.458, 0.282)
pt3dadd(-68.356, 409.355, -40.515, 0.296)
pt3dadd(-68.404, 409.452, -40.558, 0.292)
pt3dadd(-68.45, 409.553, -40.594, 0.278)
pt3dadd(-68.467, 409.67, -40.6, 0.268)
pt3dadd(-68.478, 409.789, -40.6, 0.26)
pt3dadd(-68.487, 409.908, -40.6, 0.25)
pt3dadd(-68.482, 410.028, -40.6, 0.242)
pt3dadd(-68.478, 410.148, -40.6, 0.234)
pt3dadd(-68.479, 410.268, -40.6, 0.226)
pt3dadd(-68.507, 410.384, -40.6, 0.226)
pt3dadd(-68.545, 410.497, -40.6, 0.226)
pt3dadd(-68.592, 410.609, -40.6, 0.226)
pt3dadd(-68.639, 410.719, -40.6, 0.226)
pt3dadd(-68.686, 410.83, -40.6, 0.226)
pt3dadd(-68.733, 410.94, -40.6, 0.226)
pt3dadd(-68.774, 411.052, -40.6, 0.228)
pt3dadd(-68.797, 411.17, -40.6, 0.232)
pt3dadd(-68.821, 411.288, -40.6, 0.236)
pt3dadd(-68.844, 411.404, -40.6, 0.24)
pt3dadd(-68.867, 411.523, -40.6, 0.244)
pt3dadd(-68.891, 411.641, -40.6, 0.248)
pt3dadd(-68.902, 411.76, -40.6, 0.272)
pt3dadd(-68.904, 411.878, -40.6, 0.336)
pt3dadd(-68.925, 411.997, -40.6, 0.41)
pt3dadd(-68.973, 412.104, -40.615, 0.452)
pt3dadd(-69.004, 412.18, -40.684, 0.452)
pt3dadd(-69.006, 412.236, -40.772, 0.452)
pt3dadd(-69.004, 412.279, -40.864, 0.44)
pt3dadd(-69.004, 412.274, -40.963, 0.38)
pt3dadd(-69.002, 412.223, -41.053, 0.286)
pt3dadd(-68.963, 412.194, -41.143, 0.232)
pt3dadd(-68.862, 412.188, -41.19, 0.226)
pt3dadd(-68.747, 412.213, -41.2, 0.226)
pt3dadd(-68.667, 412.294, -41.2, 0.226)
pt3dadd(-68.641, 412.41, -41.2, 0.226)
pt3dadd(-68.635, 412.53, -41.2, 0.226)
pt3dadd(-68.631, 412.65, -41.2, 0.226)
pt3dadd(-68.627, 412.77, -41.2, 0.226)
pt3dadd(-68.623, 412.89, -41.2, 0.226)
pt3dadd(-68.619, 413.01, -41.2, 0.226)
pt3dadd(-68.614, 413.13, -41.2, 0.226)
pt3dadd(-68.61, 413.25, -41.2, 0.226)
pt3dadd(-68.606, 413.37, -41.2, 0.226)
pt3dadd(-68.602, 413.49, -41.2, 0.226)
pt3dadd(-68.598, 413.609, -41.2, 0.226)
pt3dadd(-68.577, 413.728, -41.202, 0.226)
pt3dadd(-68.556, 413.845, -41.203, 0.226)
pt3dadd(-68.534, 413.964, -41.205, 0.226)
pt3dadd(-68.512, 414.082, -41.207, 0.226)
pt3dadd(-68.49, 414.199, -41.209, 0.226)
pt3dadd(-68.469, 414.317, -41.211, 0.226)
pt3dadd(-68.449, 414.416, -41.259, 0.226)
pt3dadd(-68.447, 414.49, -41.338, 0.242)
pt3dadd(-68.443, 414.589, -41.389, 0.304)
pt3dadd(-68.439, 414.709, -41.4, 0.386)
pt3dadd(-68.435, 414.829, -41.398, 0.462)
pt3dadd(-68.431, 414.947, -41.383, 0.548)
pt3dadd(-68.427, 415.054, -41.34, 0.632)
pt3dadd(-68.424, 415.134, -41.267, 0.678)
pt3dadd(-68.422, 415.187, -41.177, 0.678)
pt3dadd(-68.421, 415.241, -41.088, 0.678)
pt3dadd(-68.418, 415.295, -40.999, 0.678)
pt3dadd(-68.388, 415.385, -40.938, 0.678)
pt3dadd(-68.357, 415.475, -40.877, 0.678)
pt3dadd(-68.326, 415.566, -40.816, 0.678)
pt3dadd(-68.296, 415.656, -40.756, 0.678)
pt3dadd(-68.282, 415.762, -40.716, 0.672)
pt3dadd(-68.278, 415.877, -40.688, 0.662)
pt3dadd(-68.264, 415.99, -40.659, 0.644)
pt3dadd(-68.211, 416.087, -40.623, 0.604)
pt3dadd(-68.153, 416.188, -40.6, 0.558)
pt3dadd(-68.089, 416.288, -40.6, 0.5)
pt3dadd(-68.023, 416.389, -40.6, 0.444)
pt3dadd(-67.952, 416.485, -40.6, 0.398)
pt3dadd(-67.881, 416.581, -40.6, 0.352)
pt3dadd(-67.772, 416.626, -40.622, 0.352)
pt3dadd(-67.664, 416.669, -40.645, 0.352)
pt3dadd(-67.649, 416.699, -40.74, 0.418)
pt3dadd(-67.655, 416.708, -40.839, 0.44)
pt3dadd(-67.681, 416.718, -40.936, 0.41)
pt3dadd(-67.759, 416.764, -40.992, 0.37)
pt3dadd(-67.862, 416.824, -41, 0.334)
pt3dadd(-67.967, 416.882, -41, 0.274)
pt3dadd(-68.051, 416.965, -41, 0.24)
pt3dadd(-68.097, 417.076, -41, 0.246)
pt3dadd(-68.111, 417.193, -41, 0.296)
pt3dadd(-68.108, 417.312, -41.012, 0.352)
pt3dadd(-68.104, 417.426, -41.045, 0.352)
pt3dadd(-68.1, 417.539, -41.078, 0.352)
pt3dadd(-68.096, 417.656, -41.091, 0.34)
pt3dadd(-68.092, 417.776, -41.095, 0.322)
pt3dadd(-68.088, 417.896, -41.099, 0.306)
pt3dadd(-68.084, 418.016, -41.1, 0.302)
pt3dadd(-68.095, 418.135, -41.1, 0.314)
pt3dadd(-68.11, 418.255, -41.1, 0.33)
pt3dadd(-68.126, 418.373, -41.1, 0.348)
pt3dadd(-68.141, 418.493, -41.1, 0.364)
pt3dadd(-68.157, 418.61, -41.1, 0.38)
pt3dadd(-68.172, 418.73, -41.1, 0.396)
pt3dadd(-68.17, 418.849, -41.088, 0.422)
pt3dadd(-68.159, 418.966, -41.071, 0.454)
pt3dadd(-68.148, 419.083, -41.053, 0.484)
pt3dadd(-68.137, 419.201, -41.036, 0.514)
pt3dadd(-68.126, 419.32, -41.019, 0.544)
pt3dadd(-68.115, 419.436, -41.001, 0.576)
pt3dadd(-68.077, 419.55, -41, 0.598)
pt3dadd(-68.037, 419.663, -41, 0.62)
pt3dadd(-67.997, 419.777, -41, 0.644)
pt3dadd(-67.958, 419.89, -41, 0.666)
pt3dadd(-67.918, 420.004, -41, 0.688)
pt3dadd(-67.883, 420.118, -41, 0.706)
pt3dadd(-67.86, 420.235, -41, 0.714)
pt3dadd(-67.836, 420.353, -41, 0.722)
pt3dadd(-67.812, 420.47, -41, 0.73)
pt3dadd(-67.788, 420.588, -41, 0.738)
pt3dadd(-67.764, 420.706, -41, 0.748)
pt3dadd(-67.745, 420.823, -40.997, 0.754)
pt3dadd(-67.741, 420.941, -40.979, 0.754)
pt3dadd(-67.749, 421.049, -40.939, 0.754)
pt3dadd(-67.789, 421.154, -40.907, 0.788)
pt3dadd(-67.83, 421.265, -40.9, 0.804)
pt3dadd(-67.844, 421.384, -40.9, 0.76)
pt3dadd(-67.842, 421.502, -40.911, 0.678)
pt3dadd(-67.838, 421.602, -40.964, 0.586)
pt3dadd(-67.836, 421.666, -41.048, 0.552)
}
}
proc shape3d_49() {
dend_5[3] { pt3dadd(-67.834, 421.718, -41.137, 0.63)
pt3dadd(-67.837, 421.747, -41.234, 0.67)
pt3dadd(-67.855, 421.796, -41.318, 0.638)
pt3dadd(-67.876, 421.885, -41.383, 0.604)
pt3dadd(-67.898, 421.973, -41.448, 0.57)
pt3dadd(-67.919, 422.062, -41.514, 0.536)
pt3dadd(-67.939, 422.15, -41.578, 0.502)
pt3dadd(-67.942, 422.267, -41.603, 0.478)
pt3dadd(-67.946, 422.383, -41.627, 0.456)
pt3dadd(-67.949, 422.5, -41.651, 0.434)
pt3dadd(-67.952, 422.616, -41.675, 0.41)
pt3dadd(-67.955, 422.732, -41.699, 0.388)
pt3dadd(-67.979, 422.846, -41.71, 0.374)
pt3dadd(-68.024, 422.957, -41.707, 0.368)
pt3dadd(-68.068, 423.07, -41.704, 0.36)
pt3dadd(-68.112, 423.18, -41.701, 0.354)
pt3dadd(-68.148, 423.293, -41.687, 0.364)
pt3dadd(-68.18, 423.406, -41.667, 0.386)
pt3dadd(-68.211, 423.52, -41.646, 0.406)
pt3dadd(-68.243, 423.632, -41.626, 0.426)
pt3dadd(-68.275, 423.745, -41.605, 0.446)
pt3dadd(-68.291, 423.86, -41.581, 0.474)
pt3dadd(-68.302, 423.976, -41.555, 0.502)
pt3dadd(-68.314, 424.091, -41.53, 0.532)
pt3dadd(-68.325, 424.207, -41.504, 0.56)
pt3dadd(-68.336, 424.322, -41.479, 0.59)
pt3dadd(-68.34, 424.439, -41.458, 0.612)
pt3dadd(-68.335, 424.558, -41.442, 0.628)
pt3dadd(-68.331, 424.675, -41.425, 0.644)
pt3dadd(-68.327, 424.794, -41.409, 0.662)
pt3dadd(-68.323, 424.913, -41.392, 0.678)
pt3dadd(-68.319, 425.03, -41.376, 0.694)
pt3dadd(-68.315, 425.148, -41.354, 0.716)
pt3dadd(-68.311, 425.263, -41.327, 0.748)
pt3dadd(-68.307, 425.378, -41.3, 0.778)
pt3dadd(-68.303, 425.498, -41.3, 0.778)
pt3dadd(-68.298, 425.618, -41.3, 0.778)
pt3dadd(-68.294, 425.738, -41.3, 0.778)
pt3dadd(-68.29, 425.857, -41.283, 0.758)
pt3dadd(-68.286, 425.975, -41.265, 0.74)
pt3dadd(-68.283, 426.062, -41.216, 0.704)
pt3dadd(-68.281, 426.109, -41.124, 0.65)
pt3dadd(-68.279, 426.164, -41.04, 0.598)
pt3dadd(-68.275, 426.276, -41.006, 0.558)
pt3dadd(-68.271, 426.389, -40.972, 0.52)
pt3dadd(-68.267, 426.502, -40.937, 0.482)
pt3dadd(-68.259, 426.616, -40.91, 0.442)
pt3dadd(-68.233, 426.732, -40.906, 0.402)
pt3dadd(-68.208, 426.85, -40.901, 0.362)
pt3dadd(-68.129, 426.932, -40.9, 0.276)
pt3dadd(-68.024, 426.989, -40.9, 0.242)
pt3dadd(-67.938, 427.07, -40.9, 0.266)
pt3dadd(-67.896, 427.182, -40.9, 0.386)
pt3dadd(-67.879, 427.3, -40.902, 0.544)
pt3dadd(-67.875, 427.416, -40.923, 0.646)
pt3dadd(-67.872, 427.496, -40.99, 0.678)
pt3dadd(-67.872, 427.508, -41.088, 0.678)
pt3dadd(-67.846, 427.46, -41.173, 0.626)
pt3dadd(-67.756, 427.398, -41.2, 0.528)
}
dend_5[4] {pt3dclear()
pt3dadd(-65.122, 351.54, -35.6, 1.582)
pt3dadd(-65.181, 351.552, -35.613, 1.558)
pt3dadd(-65.295, 351.576, -35.638, 1.51)
pt3dadd(-65.408, 351.599, -35.664, 1.462)
pt3dadd(-65.522, 351.622, -35.689, 1.414)
pt3dadd(-65.636, 351.646, -35.714, 1.368)
pt3dadd(-65.75, 351.668, -35.739, 1.32)
pt3dadd(-65.863, 351.692, -35.764, 1.272)
pt3dadd(-65.977, 351.716, -35.789, 1.226)
pt3dadd(-66.091, 351.739, -35.815, 1.178)
pt3dadd(-66.204, 351.762, -35.84, 1.13)
pt3dadd(-66.318, 351.786, -35.865, 1.082)
pt3dadd(-66.432, 351.81, -35.89, 1.036)
pt3dadd(-66.546, 351.833, -35.916, 0.988)
pt3dadd(-66.659, 351.857, -35.941, 0.94)
pt3dadd(-66.773, 351.88, -35.966, 0.892)
pt3dadd(-66.887, 351.902, -35.991, 0.846)
pt3dadd(-67.001, 351.928, -36.016, 0.798)
pt3dadd(-67.114, 351.95, -36.042, 0.75)
pt3dadd(-67.228, 351.973, -36.067, 0.704)
pt3dadd(-67.245, 352.012, -35.973, 0.738)
pt3dadd(-67.263, 352.05, -35.879, 0.774)
pt3dadd(-67.301, 352.102, -35.795, 0.786)
pt3dadd(-67.342, 352.154, -35.712, 0.794)
pt3dadd(-67.384, 352.207, -35.629, 0.802)
pt3dadd(-67.461, 352.283, -35.607, 0.794)
pt3dadd(-67.55, 352.363, -35.602, 0.782)
pt3dadd(-67.64, 352.444, -35.6, 0.804)
pt3dadd(-67.72, 352.532, -35.6, 0.824)
pt3dadd(-67.801, 352.621, -35.6, 0.844)
pt3dadd(-67.881, 352.71, -35.6, 0.864)
pt3dadd(-67.962, 352.799, -35.6, 0.886)
pt3dadd(-68.043, 352.888, -35.6, 0.906)
pt3dadd(-68.141, 352.956, -35.6, 0.926)
pt3dadd(-68.239, 353.026, -35.6, 0.946)
pt3dadd(-68.337, 353.095, -35.6, 0.964)
pt3dadd(-68.435, 353.165, -35.6, 0.984)
pt3dadd(-68.532, 353.234, -35.6, 1.004)
pt3dadd(-68.595, 353.338, -35.6, 1.004)
pt3dadd(-68.657, 353.44, -35.6, 1.004)
pt3dadd(-68.719, 353.542, -35.6, 1.004)
pt3dadd(-68.782, 353.644, -35.6, 1.004)
pt3dadd(-68.844, 353.747, -35.6, 1.004)
pt3dadd(-68.939, 353.82, -35.6, 0.986)
pt3dadd(-69.034, 353.893, -35.6, 0.966)
pt3dadd(-69.13, 353.965, -35.6, 0.946)
pt3dadd(-69.226, 354.037, -35.6, 0.926)
pt3dadd(-69.321, 354.109, -35.6, 0.906)
pt3dadd(-69.417, 354.179, -35.582, 0.884)
pt3dadd(-69.513, 354.247, -35.562, 0.86)
pt3dadd(-69.608, 354.317, -35.542, 0.838)
pt3dadd(-69.703, 354.384, -35.522, 0.816)
pt3dadd(-69.791, 354.463, -35.517, 0.798)
pt3dadd(-69.869, 354.552, -35.529, 0.788)
pt3dadd(-69.947, 354.643, -35.542, 0.776)
pt3dadd(-70.026, 354.733, -35.554, 0.764)
pt3dadd(-70.104, 354.822, -35.567, 0.754)
pt3dadd(-70.183, 354.905, -35.598, 0.754)
pt3dadd(-70.262, 354.986, -35.63, 0.754)
pt3dadd(-70.341, 355.067, -35.661, 0.754)
pt3dadd(-70.421, 355.15, -35.693, 0.754)
pt3dadd(-70.482, 355.25, -35.7, 0.758)
pt3dadd(-70.538, 355.356, -35.7, 0.762)
pt3dadd(-70.594, 355.463, -35.7, 0.766)
pt3dadd(-70.65, 355.568, -35.7, 0.772)
pt3dadd(-70.707, 355.674, -35.7, 0.776)
pt3dadd(-70.749, 355.787, -35.7, 0.784)
pt3dadd(-70.784, 355.901, -35.7, 0.794)
pt3dadd(-70.818, 356.016, -35.7, 0.802)
pt3dadd(-70.853, 356.131, -35.7, 0.812)
pt3dadd(-70.888, 356.245, -35.7, 0.82)
pt3dadd(-70.927, 356.358, -35.7, 0.832)
pt3dadd(-70.992, 356.459, -35.7, 0.852)
pt3dadd(-71.058, 356.56, -35.7, 0.872)
pt3dadd(-71.123, 356.66, -35.7, 0.892)
pt3dadd(-71.189, 356.761, -35.7, 0.912)
pt3dadd(-71.253, 356.862, -35.7, 0.93)
pt3dadd(-71.306, 356.969, -35.7, 0.94)
pt3dadd(-71.359, 357.077, -35.7, 0.95)
pt3dadd(-71.412, 357.186, -35.7, 0.96)
pt3dadd(-71.465, 357.293, -35.7, 0.97)
pt3dadd(-71.518, 357.401, -35.7, 0.978)
pt3dadd(-71.58, 357.504, -35.7, 0.984)
pt3dadd(-71.642, 357.606, -35.7, 0.988)
pt3dadd(-71.704, 357.708, -35.7, 0.994)
pt3dadd(-71.767, 357.81, -35.7, 0.998)
pt3dadd(-71.829, 357.913, -35.7, 1.004)
pt3dadd(-71.914, 357.995, -35.718, 0.994)
pt3dadd(-72.002, 358.073, -35.738, 0.982)
pt3dadd(-72.089, 358.151, -35.758, 0.972)
pt3dadd(-72.177, 358.229, -35.778, 0.96)
pt3dadd(-72.247, 358.32, -35.8, 0.948)
pt3dadd(-72.297, 358.426, -35.825, 0.938)
pt3dadd(-72.346, 358.53, -35.849, 0.926)
pt3dadd(-72.396, 358.636, -35.874, 0.916)
pt3dadd(-72.445, 358.74, -35.899, 0.904)
pt3dadd(-72.518, 358.831, -35.924, 0.888)
pt3dadd(-72.592, 358.92, -35.95, 0.87)
pt3dadd(-72.666, 359.009, -35.976, 0.852)
pt3dadd(-72.741, 359.098, -36.002, 0.836)
pt3dadd(-72.819, 359.185, -36.024, 0.822)
pt3dadd(-72.901, 359.269, -36.044, 0.81)
pt3dadd(-72.983, 359.353, -36.064, 0.798)
pt3dadd(-73.065, 359.438, -36.084, 0.788)
pt3dadd(-73.129, 359.531, -36.1, 0.78)
pt3dadd(-73.129, 359.651, -36.1, 0.788)
pt3dadd(-73.129, 359.771, -36.1, 0.798)
pt3dadd(-73.149, 359.885, -36.102, 0.82)
pt3dadd(-73.209, 359.988, -36.107, 0.866)
pt3dadd(-73.271, 360.076, -36.128, 0.92)
pt3dadd(-73.341, 360.107, -36.205, 0.986)
pt3dadd(-73.416, 360.155, -36.264, 1.048)
pt3dadd(-73.499, 360.236, -36.288, 1.102)
pt3dadd(-73.568, 360.331, -36.304, 1.148)
pt3dadd(-73.626, 360.432, -36.314, 1.182)
pt3dadd(-73.732, 360.462, -36.354, 1.194)
pt3dadd(-73.837, 360.496, -36.389, 1.204)
pt3dadd(-73.937, 360.563, -36.395, 1.192)
pt3dadd(-74.036, 360.63, -36.4, 1.18)
pt3dadd(-74.042, 360.749, -36.4, 1.162)
pt3dadd(-74.047, 360.869, -36.4, 1.144)
pt3dadd(-74.063, 360.986, -36.4, 1.126)
pt3dadd(-74.121, 361.091, -36.4, 1.102)
pt3dadd(-74.178, 361.196, -36.4, 1.08)
pt3dadd(-74.26, 361.285, -36.4, 1.026)
pt3dadd(-74.344, 361.369, -36.4, 0.998)
pt3dadd(-74.43, 361.454, -36.4, 0.988)
pt3dadd(-74.516, 361.537, -36.4, 0.978)
pt3dadd(-74.602, 361.621, -36.4, 0.968)
pt3dadd(-74.688, 361.704, -36.4, 0.958)
pt3dadd(-74.757, 361.801, -36.4, 0.944)
pt3dadd(-74.816, 361.906, -36.4, 0.93)
pt3dadd(-74.875, 362.01, -36.4, 0.916)
pt3dadd(-74.935, 362.116, -36.4, 0.9)
pt3dadd(-74.994, 362.219, -36.4, 0.886)
pt3dadd(-75.049, 362.323, -36.412, 0.878)
pt3dadd(-75.102, 362.429, -36.434, 0.878)
pt3dadd(-75.154, 362.533, -36.456, 0.878)
pt3dadd(-75.206, 362.638, -36.479, 0.878)
pt3dadd(-75.258, 362.742, -36.501, 0.878)
pt3dadd(-75.297, 362.844, -36.543, 0.878)
}
}
proc shape3d_50() {
dend_5[4] { pt3dadd(-75.341, 362.94, -36.588, 0.878)
pt3dadd(-75.408, 363.004, -36.652, 0.878)
pt3dadd(-75.474, 363.077, -36.707, 0.866)
pt3dadd(-75.539, 363.162, -36.752, 0.838)
pt3dadd(-75.623, 363.241, -36.767, 0.798)
pt3dadd(-75.716, 363.317, -36.767, 0.754)
pt3dadd(-75.779, 363.418, -36.78, 0.732)
pt3dadd(-75.841, 363.518, -36.794, 0.712)
pt3dadd(-75.906, 363.604, -36.833, 0.704)
pt3dadd(-75.973, 363.674, -36.89, 0.704)
pt3dadd(-76.037, 363.767, -36.918, 0.758)
pt3dadd(-76.121, 363.838, -36.958, 0.782)
pt3dadd(-76.205, 363.907, -36.998, 0.806)
pt3dadd(-76.29, 363.978, -37.039, 0.83)
pt3dadd(-76.374, 364.046, -37.079, 0.854)
pt3dadd(-76.473, 364.063, -37.134, 0.904)
pt3dadd(-76.572, 364.081, -37.189, 0.954)
pt3dadd(-76.632, 364.183, -37.177, 1.008)
pt3dadd(-76.685, 364.285, -37.157, 1.058)
pt3dadd(-76.688, 364.375, -37.092, 1.082)
pt3dadd(-76.697, 364.468, -37.032, 1.108)
pt3dadd(-76.763, 364.566, -37.015, 1.134)
pt3dadd(-76.826, 364.666, -36.999, 1.158)
pt3dadd(-76.88, 364.774, -36.991, 1.176)
pt3dadd(-76.912, 364.853, -36.931, 1.19)
pt3dadd(-76.938, 364.925, -36.854, 1.204)
pt3dadd(-76.974, 365.029, -36.82, 1.194)
pt3dadd(-77.01, 365.138, -36.792, 1.182)
pt3dadd(-77.018, 365.208, -36.713, 1.17)
pt3dadd(-77.022, 365.272, -36.628, 1.158)
pt3dadd(-77.104, 365.291, -36.569, 1.146)
pt3dadd(-77.205, 365.3, -36.516, 1.134)
pt3dadd(-77.302, 365.356, -36.5, 1.134)
pt3dadd(-77.396, 365.43, -36.5, 1.142)
pt3dadd(-77.49, 365.504, -36.5, 1.148)
pt3dadd(-77.586, 365.576, -36.5, 1.156)
pt3dadd(-77.687, 365.641, -36.5, 1.156)
pt3dadd(-77.788, 365.706, -36.5, 1.156)
pt3dadd(-77.885, 365.774, -36.487, 1.122)
pt3dadd(-77.975, 365.854, -36.482, 1.098)
pt3dadd(-78.065, 365.933, -36.476, 1.072)
pt3dadd(-78.155, 366.011, -36.47, 1.046)
pt3dadd(-78.251, 366.082, -36.473, 1.014)
pt3dadd(-78.355, 366.138, -36.49, 0.978)
pt3dadd(-78.452, 366.199, -36.486, 0.938)
pt3dadd(-78.539, 366.27, -36.449, 0.896)
pt3dadd(-78.63, 366.335, -36.412, 0.87)
pt3dadd(-78.723, 366.397, -36.375, 0.856)
pt3dadd(-78.822, 366.419, -36.326, 0.854)
pt3dadd(-78.923, 366.428, -36.273, 0.854)
pt3dadd(-79, 366.433, -36.199, 0.876)
pt3dadd(-79.072, 366.436, -36.121, 0.912)
pt3dadd(-79.171, 366.439, -36.064, 0.946)
pt3dadd(-79.271, 366.443, -36.011, 0.98)
pt3dadd(-79.39, 366.451, -36.007, 0.998)
pt3dadd(-79.51, 366.461, -36.003, 1.016)
pt3dadd(-79.623, 366.487, -36, 1.04)
pt3dadd(-79.719, 366.558, -36, 1.074)
pt3dadd(-79.812, 366.634, -35.998, 1.106)
pt3dadd(-79.877, 366.732, -35.981, 1.12)
pt3dadd(-79.95, 366.815, -35.958, 1.13)
pt3dadd(-80.054, 366.828, -35.91, 1.13)
pt3dadd(-80.151, 366.871, -35.865, 1.112)
pt3dadd(-80.247, 366.922, -35.821, 1.088)
pt3dadd(-80.342, 366.971, -35.777, 1.064)
pt3dadd(-80.437, 367.021, -35.733, 1.042)
pt3dadd(-80.534, 367.08, -35.71, 1.02)
pt3dadd(-80.633, 367.148, -35.708, 1)
pt3dadd(-80.732, 367.216, -35.705, 0.98)
pt3dadd(-80.832, 367.283, -35.703, 0.958)
pt3dadd(-80.931, 367.35, -35.701, 0.938)
pt3dadd(-81.012, 367.435, -35.7, 0.918)
pt3dadd(-81.078, 367.535, -35.7, 0.898)
pt3dadd(-81.144, 367.636, -35.7, 0.878)
pt3dadd(-81.209, 367.736, -35.7, 0.858)
pt3dadd(-81.275, 367.837, -35.7, 0.838)
pt3dadd(-81.316, 367.946, -35.7, 0.824)
pt3dadd(-81.332, 368.065, -35.7, 0.814)
pt3dadd(-81.349, 368.184, -35.7, 0.804)
pt3dadd(-81.395, 368.294, -35.7, 0.834)
pt3dadd(-81.445, 368.404, -35.7, 0.868)
pt3dadd(-81.514, 368.501, -35.7, 0.934)
pt3dadd(-81.592, 368.591, -35.7, 1.016)
pt3dadd(-81.691, 368.65, -35.7, 1.098)
pt3dadd(-81.807, 368.681, -35.7, 1.178)
pt3dadd(-81.923, 368.711, -35.7, 1.258)
pt3dadd(-82.033, 368.758, -35.7, 1.34)
pt3dadd(-82.146, 368.8, -35.7, 1.386)
pt3dadd(-82.261, 368.833, -35.7, 1.394)
pt3dadd(-82.376, 368.867, -35.7, 1.402)
pt3dadd(-82.491, 368.902, -35.7, 1.412)
pt3dadd(-82.606, 368.935, -35.7, 1.42)
pt3dadd(-82.721, 368.97, -35.7, 1.428)
pt3dadd(-82.816, 369.038, -35.7, 1.424)
pt3dadd(-82.905, 369.12, -35.7, 1.414)
pt3dadd(-82.993, 369.202, -35.7, 1.404)
pt3dadd(-83.082, 369.282, -35.7, 1.394)
pt3dadd(-83.17, 369.364, -35.7, 1.384)
pt3dadd(-83.272, 369.426, -35.7, 1.346)
pt3dadd(-83.377, 369.484, -35.7, 1.302)
pt3dadd(-83.481, 369.534, -35.719, 1.238)
pt3dadd(-83.584, 369.58, -35.754, 1.16)
pt3dadd(-83.681, 369.642, -35.777, 1.09)
pt3dadd(-83.775, 369.714, -35.795, 1.024)
pt3dadd(-83.808, 369.818, -35.8, 0.98)
pt3dadd(-83.814, 369.938, -35.8, 0.944)
pt3dadd(-83.819, 370.058, -35.8, 0.908)
pt3dadd(-83.893, 370.148, -35.8, 0.872)
pt3dadd(-83.954, 370.249, -35.8, 0.852)
pt3dadd(-83.991, 370.363, -35.8, 0.848)
pt3dadd(-84.029, 370.477, -35.8, 0.842)
pt3dadd(-84.067, 370.591, -35.8, 0.838)
pt3dadd(-84.104, 370.706, -35.8, 0.834)
pt3dadd(-84.141, 370.819, -35.8, 0.83)
pt3dadd(-84.152, 370.939, -35.8, 0.858)
pt3dadd(-84.162, 371.059, -35.8, 0.886)
pt3dadd(-84.189, 371.173, -35.8, 0.928)
pt3dadd(-84.246, 371.279, -35.8, 0.996)
pt3dadd(-84.312, 371.375, -35.8, 1.068)
pt3dadd(-84.424, 371.418, -35.8, 1.154)
pt3dadd(-84.536, 371.461, -35.8, 1.238)
pt3dadd(-84.647, 371.504, -35.8, 1.298)
pt3dadd(-84.759, 371.549, -35.8, 1.352)
pt3dadd(-84.862, 371.592, -35.824, 1.384)
pt3dadd(-84.952, 371.635, -35.879, 1.394)
pt3dadd(-85.043, 371.677, -35.934, 1.402)
pt3dadd(-85.135, 371.728, -35.982, 1.394)
pt3dadd(-85.228, 371.79, -36.018, 1.368)
pt3dadd(-85.312, 371.864, -36.049, 1.332)
pt3dadd(-85.391, 371.95, -36.076, 1.292)
pt3dadd(-85.472, 372.026, -36.093, 1.246)
pt3dadd(-85.569, 372.058, -36.04, 1.18)
pt3dadd(-85.656, 372.103, -35.99, 1.116)
pt3dadd(-85.708, 372.2, -35.949, 1.052)
pt3dadd(-85.76, 372.296, -35.907, 0.99)
pt3dadd(-85.81, 372.403, -35.9, 0.924)
pt3dadd(-85.86, 372.512, -35.9, 0.856)
pt3dadd(-85.91, 372.622, -35.9, 0.73)
pt3dadd(-85.948, 372.734, -35.9, 0.676)
pt3dadd(-85.984, 372.848, -35.9, 0.644)
pt3dadd(-86.03, 372.96, -35.9, 0.638)
pt3dadd(-86.087, 373.064, -35.9, 0.662)
pt3dadd(-86.138, 373.174, -35.898, 0.694)
pt3dadd(-86.176, 373.286, -35.894, 0.75)
pt3dadd(-86.212, 373.399, -35.886, 0.806)
pt3dadd(-86.208, 373.499, -35.83, 0.876)
pt3dadd(-86.205, 373.597, -35.773, 0.946)
pt3dadd(-86.203, 373.656, -35.688, 0.984)
pt3dadd(-86.2, 373.718, -35.603, 0.996)
pt3dadd(-86.198, 373.793, -35.525, 0.972)
pt3dadd(-86.196, 373.859, -35.442, 0.946)
pt3dadd(-86.194, 373.898, -35.348, 0.914)
pt3dadd(-86.193, 373.938, -35.254, 0.882)
pt3dadd(-86.189, 374.048, -35.229, 0.862)
pt3dadd(-86.185, 374.167, -35.212, 0.842)
pt3dadd(-86.182, 374.286, -35.2, 0.832)
pt3dadd(-86.183, 374.405, -35.2, 0.84)
pt3dadd(-86.183, 374.525, -35.2, 0.848)
pt3dadd(-86.199, 374.644, -35.2, 0.854)
pt3dadd(-86.239, 374.756, -35.2, 0.854)
pt3dadd(-86.287, 374.866, -35.2, 0.85)
pt3dadd(-86.337, 374.975, -35.2, 0.844)
pt3dadd(-86.387, 375.084, -35.2, 0.84)
pt3dadd(-86.437, 375.193, -35.2, 0.836)
pt3dadd(-86.487, 375.302, -35.2, 0.83)
pt3dadd(-86.556, 375.397, -35.19, 0.822)
pt3dadd(-86.635, 375.486, -35.176, 0.81)
pt3dadd(-86.715, 375.574, -35.161, 0.8)
pt3dadd(-86.794, 375.662, -35.146, 0.788)
pt3dadd(-86.874, 375.751, -35.132, 0.78)
pt3dadd(-86.953, 375.839, -35.123, 0.79)
pt3dadd(-87.033, 375.928, -35.113, 0.802)
pt3dadd(-87.113, 376.018, -35.104, 0.812)
pt3dadd(-87.193, 376.105, -35.094, 0.822)
pt3dadd(-87.268, 376.198, -35.08, 0.844)
pt3dadd(-87.336, 376.292, -35.06, 0.878)
pt3dadd(-87.405, 376.388, -35.04, 0.912)
pt3dadd(-87.474, 376.484, -35.02, 0.946)
pt3dadd(-87.543, 376.579, -35, 0.98)
pt3dadd(-87.628, 376.664, -34.998, 1.022)
pt3dadd(-87.712, 376.75, -34.995, 1.062)
pt3dadd(-87.797, 376.834, -34.993, 1.104)
pt3dadd(-87.882, 376.92, -34.991, 1.144)
pt3dadd(-87.966, 377.002, -34.983, 1.19)
pt3dadd(-88.047, 377.074, -34.938, 1.262)
pt3dadd(-88.139, 377.134, -34.909, 1.306)
pt3dadd(-88.25, 377.179, -34.904, 1.306)
pt3dadd(-88.354, 377.233, -34.9, 1.302)
pt3dadd(-88.411, 377.339, -34.9, 1.266)
pt3dadd(-88.468, 377.444, -34.9, 1.232)
pt3dadd(-88.468, 377.563, -34.9, 1.214)
pt3dadd(-88.464, 377.683, -34.9, 1.198)
pt3dadd(-88.459, 377.803, -34.9, 1.182)
pt3dadd(-88.477, 377.921, -34.9, 1.222)
pt3dadd(-88.508, 378.035, -34.9, 1.262)
pt3dadd(-88.577, 378.133, -34.9, 1.286)
pt3dadd(-88.645, 378.233, -34.9, 1.312)
pt3dadd(-88.714, 378.331, -34.9, 1.336)
pt3dadd(-88.783, 378.43, -34.9, 1.362)
pt3dadd(-88.847, 378.53, -34.9, 1.414)
}
}
proc shape3d_51() {
dend_5[4] { pt3dadd(-88.897, 378.638, -34.9, 1.482)
pt3dadd(-88.963, 378.738, -34.9, 1.48)
pt3dadd(-89.055, 378.816, -34.9, 1.456)
pt3dadd(-89.125, 378.91, -34.89, 1.41)
pt3dadd(-89.138, 378.997, -34.829, 1.326)
pt3dadd(-89.137, 379.03, -34.734, 1.234)
pt3dadd(-89.137, 379.034, -34.635, 1.172)
pt3dadd(-89.146, 379.034, -34.535, 1.136)
pt3dadd(-89.191, 379.037, -34.444, 1.104)
pt3dadd(-89.293, 379.068, -34.399, 0.998)
pt3dadd(-89.375, 379.121, -34.343, 0.902)
pt3dadd(-89.449, 379.176, -34.28, 0.832)
pt3dadd(-89.523, 379.255, -34.235, 0.76)
pt3dadd(-89.591, 379.34, -34.2, 0.698)
pt3dadd(-89.641, 379.448, -34.2, 0.672)
pt3dadd(-89.691, 379.559, -34.2, 0.648)
pt3dadd(-89.737, 379.668, -34.2, 0.63)
pt3dadd(-89.773, 379.783, -34.2, 0.64)
pt3dadd(-89.809, 379.897, -34.2, 0.652)
pt3dadd(-89.823, 380.017, -34.2, 0.726)
pt3dadd(-89.833, 380.136, -34.2, 0.764)
pt3dadd(-89.844, 380.255, -34.2, 0.802)
pt3dadd(-89.862, 380.374, -34.2, 0.832)
pt3dadd(-89.897, 380.488, -34.2, 0.842)
pt3dadd(-89.933, 380.603, -34.2, 0.854)
pt3dadd(-89.996, 380.705, -34.2, 0.832)
pt3dadd(-90.06, 380.806, -34.2, 0.808)
pt3dadd(-90.147, 380.885, -34.187, 0.764)
pt3dadd(-90.241, 380.957, -34.17, 0.712)
pt3dadd(-90.29, 381.052, -34.129, 0.634)
pt3dadd(-90.342, 381.152, -34.11, 0.6)
pt3dadd(-90.403, 381.257, -34.108, 0.594)
pt3dadd(-90.464, 381.36, -34.105, 0.59)
pt3dadd(-90.524, 381.464, -34.103, 0.584)
pt3dadd(-90.585, 381.568, -34.101, 0.58)
pt3dadd(-90.635, 381.676, -34.1, 0.58)
pt3dadd(-90.678, 381.787, -34.1, 0.586)
pt3dadd(-90.722, 381.9, -34.1, 0.59)
pt3dadd(-90.766, 382.012, -34.1, 0.594)
pt3dadd(-90.809, 382.123, -34.1, 0.6)
pt3dadd(-90.851, 382.236, -34.1, 0.61)
pt3dadd(-90.885, 382.351, -34.1, 0.632)
pt3dadd(-90.92, 382.466, -34.1, 0.654)
pt3dadd(-90.955, 382.58, -34.1, 0.678)
pt3dadd(-90.989, 382.696, -34.1, 0.7)
pt3dadd(-91.024, 382.811, -34.1, 0.722)
pt3dadd(-91.049, 382.926, -34.085, 0.75)
pt3dadd(-91.071, 383.042, -34.065, 0.78)
pt3dadd(-91.093, 383.156, -34.046, 0.81)
pt3dadd(-91.115, 383.273, -34.026, 0.84)
pt3dadd(-91.137, 383.388, -34.007, 0.868)
pt3dadd(-91.171, 383.502, -34, 0.898)
pt3dadd(-91.212, 383.615, -34, 0.926)
pt3dadd(-91.253, 383.728, -34, 0.954)
pt3dadd(-91.293, 383.84, -34, 0.982)
pt3dadd(-91.334, 383.954, -34, 1.01)
pt3dadd(-91.382, 384.062, -34, 1.036)
pt3dadd(-91.451, 384.161, -34, 1.056)
pt3dadd(-91.52, 384.259, -34, 1.076)
pt3dadd(-91.588, 384.358, -34, 1.096)
pt3dadd(-91.657, 384.456, -34, 1.116)
pt3dadd(-91.715, 384.559, -33.994, 1.134)
pt3dadd(-91.743, 384.672, -33.971, 1.15)
pt3dadd(-91.772, 384.786, -33.948, 1.166)
pt3dadd(-91.801, 384.899, -33.925, 1.18)
pt3dadd(-91.83, 385.013, -33.903, 1.196)
pt3dadd(-91.863, 385.121, -33.872, 1.21)
pt3dadd(-91.903, 385.222, -33.83, 1.224)
pt3dadd(-91.919, 385.333, -33.807, 1.226)
pt3dadd(-91.914, 385.452, -33.799, 1.216)
pt3dadd(-91.91, 385.572, -33.791, 1.208)
pt3dadd(-91.907, 385.663, -33.734, 1.178)
pt3dadd(-91.904, 385.745, -33.66, 1.144)
pt3dadd(-91.934, 385.804, -33.581, 1.13)
pt3dadd(-91.982, 385.848, -33.497, 1.13)
pt3dadd(-92.075, 385.864, -33.443, 1.14)
pt3dadd(-92.181, 385.871, -33.397, 1.154)
pt3dadd(-92.288, 385.878, -33.351, 1.168)
pt3dadd(-92.387, 385.9, -33.31, 1.186)
pt3dadd(-92.439, 386.008, -33.305, 1.234)
pt3dadd(-92.491, 386.116, -33.3, 1.28)
pt3dadd(-92.487, 386.234, -33.3, 1.356)
pt3dadd(-92.489, 386.35, -33.271, 1.378)
pt3dadd(-92.491, 386.466, -33.243, 1.4)
pt3dadd(-92.55, 386.556, -33.222, 1.406)
pt3dadd(-92.638, 386.635, -33.204, 1.406)
pt3dadd(-92.674, 386.743, -33.189, 1.374)
pt3dadd(-92.693, 386.861, -33.175, 1.33)
pt3dadd(-92.702, 386.958, -33.131, 1.274)
pt3dadd(-92.7, 387.034, -33.053, 1.202)
pt3dadd(-92.697, 387.102, -32.971, 1.122)
pt3dadd(-92.696, 387.155, -32.882, 1.022)
pt3dadd(-92.742, 387.223, -32.812, 0.988)
pt3dadd(-92.799, 387.294, -32.747, 0.97)
pt3dadd(-92.855, 387.365, -32.681, 0.952)
pt3dadd(-92.912, 387.434, -32.616, 0.934)
pt3dadd(-92.95, 387.529, -32.565, 0.92)
pt3dadd(-92.983, 387.631, -32.52, 0.908)
pt3dadd(-93.016, 387.732, -32.474, 0.898)
pt3dadd(-93.049, 387.834, -32.428, 0.886)
pt3dadd(-93.095, 387.925, -32.378, 0.868)
pt3dadd(-93.162, 387.997, -32.32, 0.838)
pt3dadd(-93.212, 388.084, -32.269, 0.802)
pt3dadd(-93.252, 388.181, -32.22, 0.76)
pt3dadd(-93.252, 388.295, -32.196, 0.744)
pt3dadd(-93.242, 388.412, -32.179, 0.734)
pt3dadd(-93.21, 388.517, -32.154, 0.728)
pt3dadd(-93.132, 388.596, -32.117, 0.728)
pt3dadd(-93.067, 388.684, -32.076, 0.736)
pt3dadd(-93.012, 388.777, -32.033, 0.75)
pt3dadd(-92.996, 388.856, -31.964, 0.754)
pt3dadd(-92.995, 388.885, -31.867, 0.79)
pt3dadd(-92.995, 388.895, -31.768, 0.846)
pt3dadd(-92.995, 388.895, -31.668, 0.888)
pt3dadd(-92.995, 388.895, -31.568, 0.912)
pt3dadd(-92.994, 388.909, -31.47, 0.934)
pt3dadd(-92.993, 388.954, -31.377, 0.948)
pt3dadd(-92.991, 388.998, -31.284, 0.962)
pt3dadd(-92.99, 389.042, -31.192, 0.976)
pt3dadd(-92.988, 389.088, -31.099, 0.99)
pt3dadd(-92.987, 389.132, -31.006, 1.004)
pt3dadd(-92.985, 389.177, -30.913, 1.026)
pt3dadd(-92.984, 389.221, -30.82, 1.05)
pt3dadd(-92.982, 389.266, -30.727, 1.072)
pt3dadd(-92.98, 389.31, -30.634, 1.096)
pt3dadd(-92.979, 389.354, -30.542, 1.12)
pt3dadd(-92.977, 389.41, -30.453, 1.14)
pt3dadd(-92.975, 389.472, -30.368, 1.16)
pt3dadd(-92.973, 389.536, -30.283, 1.18)
pt3dadd(-92.97, 389.598, -30.198, 1.2)
pt3dadd(-92.968, 389.662, -30.112, 1.22)
pt3dadd(-92.968, 389.698, -30.02, 1.232)
pt3dadd(-92.97, 389.704, -29.921, 1.236)
pt3dadd(-92.972, 389.71, -29.821, 1.24)
pt3dadd(-92.973, 389.716, -29.721, 1.244)
pt3dadd(-92.975, 389.722, -29.621, 1.248)
pt3dadd(-92.977, 389.728, -29.521, 1.252)
pt3dadd(-92.979, 389.734, -29.421, 1.256)
pt3dadd(-92.994, 389.736, -29.322, 1.248)
pt3dadd(-93.012, 389.736, -29.223, 1.24)
pt3dadd(-93.029, 389.737, -29.124, 1.232)
pt3dadd(-93.046, 389.737, -29.025, 1.224)
pt3dadd(-93.063, 389.738, -28.926, 1.216)
pt3dadd(-93.081, 389.738, -28.827, 1.208)
pt3dadd(-93.095, 389.74, -28.728, 1.202)
pt3dadd(-93.107, 389.74, -28.629, 1.198)
pt3dadd(-93.12, 389.74, -28.529, 1.194)
pt3dadd(-93.132, 389.741, -28.43, 1.19)
pt3dadd(-93.145, 389.741, -28.33, 1.186)
pt3dadd(-93.157, 389.742, -28.231, 1.182)
pt3dadd(-93.176, 389.744, -28.132, 1.182)
pt3dadd(-93.205, 389.753, -28.036, 1.186)
pt3dadd(-93.233, 389.761, -27.939, 1.19)
pt3dadd(-93.262, 389.77, -27.842, 1.196)
pt3dadd(-93.291, 389.777, -27.745, 1.2)
pt3dadd(-93.32, 389.785, -27.648, 1.204)
pt3dadd(-93.358, 389.824, -27.56, 1.228)
pt3dadd(-93.398, 389.868, -27.473, 1.254)
pt3dadd(-93.458, 389.872, -27.386, 1.256)
pt3dadd(-93.519, 389.874, -27.3, 1.256)
pt3dadd(-93.611, 389.878, -27.24, 1.238)
pt3dadd(-93.714, 389.881, -27.19, 1.216)
pt3dadd(-93.824, 389.885, -27.152, 1.182)
pt3dadd(-93.939, 389.888, -27.124, 1.142)
pt3dadd(-94.049, 389.893, -27.09, 1.1)
pt3dadd(-94.115, 389.894, -27.007, 1.066)
pt3dadd(-94.182, 389.897, -26.923, 1.032)
pt3dadd(-94.248, 389.899, -26.84, 0.996)
pt3dadd(-94.312, 389.902, -26.755, 0.944)
pt3dadd(-94.373, 389.904, -26.669, 0.876)
pt3dadd(-94.452, 389.906, -26.607, 0.802)
pt3dadd(-94.571, 389.911, -26.593, 0.754)
pt3dadd(-94.689, 389.915, -26.576, 0.754)
pt3dadd(-94.807, 389.92, -26.558, 0.754)
pt3dadd(-94.86, 389.921, -26.477, 0.788)
pt3dadd(-94.9, 389.922, -26.382, 0.832)
pt3dadd(-94.968, 389.924, -26.306, 0.876)
pt3dadd(-95.066, 389.928, -26.25, 0.922)
pt3dadd(-95.17, 389.932, -26.221, 0.984)
pt3dadd(-95.285, 389.936, -26.251, 1.074)
pt3dadd(-95.396, 389.941, -26.285, 1.17)
pt3dadd(-95.485, 389.953, -26.351, 1.3)
pt3dadd(-95.592, 389.989, -26.367, 1.358)
pt3dadd(-95.705, 390.03, -26.367, 1.392)
pt3dadd(-95.818, 390.071, -26.367, 1.428)
pt3dadd(-95.931, 390.112, -26.367, 1.462)
pt3dadd(-96.043, 390.154, -26.367, 1.498)
pt3dadd(-96.149, 390.193, -26.337, 1.502)
pt3dadd(-96.252, 390.233, -26.298, 1.498)
pt3dadd(-96.354, 390.271, -26.258, 1.492)
pt3dadd(-96.457, 390.311, -26.218, 1.486)
pt3dadd(-96.554, 390.347, -26.17, 1.478)
pt3dadd(-96.634, 390.37, -26.098, 1.46)
pt3dadd(-96.714, 390.392, -26.026, 1.444)
pt3dadd(-96.793, 390.418, -25.954, 1.426)
pt3dadd(-96.873, 390.44, -25.882, 1.41)
pt3dadd(-96.958, 390.475, -25.817, 1.382)
pt3dadd(-97.044, 390.512, -25.755, 1.354)
pt3dadd(-97.13, 390.55, -25.693, 1.324)
pt3dadd(-97.216, 390.587, -25.63, 1.294)
}
}
proc shape3d_52() {
dend_5[4] { pt3dadd(-97.308, 390.611, -25.57, 1.262)
pt3dadd(-97.404, 390.62, -25.511, 1.226)
pt3dadd(-97.465, 390.655, -25.442, 1.182)
pt3dadd(-97.484, 390.726, -25.362, 1.13)
pt3dadd(-97.53, 390.787, -25.29, 1.076)
pt3dadd(-97.604, 390.844, -25.227, 1.018)
pt3dadd(-97.707, 390.888, -25.204, 0.962)
pt3dadd(-97.819, 390.929, -25.194, 0.906)
pt3dadd(-97.923, 390.966, -25.161, 0.848)
pt3dadd(-98.013, 390.998, -25.102, 0.798)
pt3dadd(-98.092, 391.03, -25.031, 0.782)
pt3dadd(-98.17, 391.06, -24.96, 0.764)
pt3dadd(-98.249, 391.09, -24.888, 0.746)
pt3dadd(-98.327, 391.121, -24.817, 0.73)
pt3dadd(-98.438, 391.158, -24.807, 0.718)
pt3dadd(-98.551, 391.196, -24.802, 0.708)
pt3dadd(-98.655, 391.231, -24.769, 0.704)
pt3dadd(-98.752, 391.262, -24.716, 0.704)
pt3dadd(-98.817, 391.331, -24.661, 0.722)
pt3dadd(-98.867, 391.415, -24.604, 0.752)
pt3dadd(-98.924, 391.518, -24.584, 0.788)
pt3dadd(-98.981, 391.621, -24.567, 0.828)
pt3dadd(-99.01, 391.727, -24.525, 0.866)
pt3dadd(-99.043, 391.834, -24.492, 0.878)
pt3dadd(-99.08, 391.943, -24.464, 0.878)
pt3dadd(-99.131, 391.986, -24.396, 0.862)
pt3dadd(-99.189, 392.002, -24.309, 0.838)
pt3dadd(-99.222, 392.065, -24.237, 0.804)
pt3dadd(-99.239, 392.158, -24.174, 0.764)
pt3dadd(-99.242, 392.245, -24.107, 0.736)
pt3dadd(-99.239, 392.333, -24.039, 0.712)
pt3dadd(-99.236, 392.406, -23.96, 0.704)
pt3dadd(-99.234, 392.468, -23.875, 0.704)
pt3dadd(-99.232, 392.531, -23.789, 0.704)
pt3dadd(-99.23, 392.593, -23.704, 0.704)
pt3dadd(-99.228, 392.634, -23.61, 0.714)
pt3dadd(-99.227, 392.674, -23.515, 0.724)
pt3dadd(-99.224, 392.752, -23.448, 0.728)
pt3dadd(-99.221, 392.855, -23.399, 0.728)
pt3dadd(-99.217, 392.959, -23.349, 0.728)
pt3dadd(-99.188, 393.07, -23.323, 0.704)
pt3dadd(-99.147, 393.18, -23.307, 0.67)
pt3dadd(-99.108, 393.293, -23.3, 0.604)
pt3dadd(-99.093, 393.409, -23.312, 0.574)
pt3dadd(-99.087, 393.528, -23.329, 0.57)
pt3dadd(-99.08, 393.647, -23.346, 0.566)
pt3dadd(-99.074, 393.764, -23.362, 0.562)
pt3dadd(-99.067, 393.883, -23.379, 0.558)
pt3dadd(-99.061, 394, -23.396, 0.554)
pt3dadd(-99.023, 394.112, -23.4, 0.566)
pt3dadd(-98.975, 394.222, -23.4, 0.586)
pt3dadd(-98.926, 394.332, -23.4, 0.604)
pt3dadd(-98.878, 394.441, -23.4, 0.622)
pt3dadd(-98.829, 394.552, -23.4, 0.642)
pt3dadd(-98.79, 394.664, -23.4, 0.662)
pt3dadd(-98.766, 394.782, -23.4, 0.686)
pt3dadd(-98.742, 394.9, -23.4, 0.712)
pt3dadd(-98.718, 395.017, -23.4, 0.736)
pt3dadd(-98.694, 395.135, -23.4, 0.762)
pt3dadd(-98.671, 395.252, -23.4, 0.786)
pt3dadd(-98.633, 395.364, -23.4, 0.81)
pt3dadd(-98.561, 395.46, -23.4, 0.836)
pt3dadd(-98.488, 395.556, -23.4, 0.86)
pt3dadd(-98.416, 395.651, -23.4, 0.886)
pt3dadd(-98.344, 395.746, -23.4, 0.91)
pt3dadd(-98.283, 395.848, -23.4, 0.93)
pt3dadd(-98.254, 395.964, -23.4, 0.93)
pt3dadd(-98.225, 396.08, -23.4, 0.93)
pt3dadd(-98.196, 396.197, -23.4, 0.93)
pt3dadd(-98.167, 396.314, -23.4, 0.93)
pt3dadd(-98.138, 396.43, -23.4, 0.93)
pt3dadd(-98.094, 396.54, -23.4, 0.92)
pt3dadd(-98.021, 396.635, -23.4, 0.896)
pt3dadd(-97.949, 396.73, -23.4, 0.87)
pt3dadd(-97.877, 396.826, -23.4, 0.846)
pt3dadd(-97.804, 396.922, -23.4, 0.82)
pt3dadd(-97.74, 397.022, -23.4, 0.796)
pt3dadd(-97.691, 397.132, -23.4, 0.772)
pt3dadd(-97.643, 397.242, -23.4, 0.75)
pt3dadd(-97.594, 397.351, -23.4, 0.726)
pt3dadd(-97.546, 397.462, -23.4, 0.702)
pt3dadd(-97.497, 397.572, -23.4, 0.68)
pt3dadd(-97.491, 397.691, -23.394, 0.67)
pt3dadd(-97.487, 397.811, -23.388, 0.66)
pt3dadd(-97.482, 397.931, -23.382, 0.65)
pt3dadd(-97.478, 398.048, -23.375, 0.64)
pt3dadd(-97.474, 398.168, -23.369, 0.632)
pt3dadd(-97.459, 398.287, -23.37, 0.634)
pt3dadd(-97.437, 398.405, -23.376, 0.642)
pt3dadd(-97.414, 398.524, -23.382, 0.65)
pt3dadd(-97.392, 398.64, -23.387, 0.658)
pt3dadd(-97.37, 398.759, -23.393, 0.668)
pt3dadd(-97.347, 398.876, -23.399, 0.676)
pt3dadd(-97.336, 398.995, -23.4, 0.68)
pt3dadd(-97.327, 399.115, -23.4, 0.684)
pt3dadd(-97.319, 399.234, -23.4, 0.688)
pt3dadd(-97.311, 399.354, -23.4, 0.692)
pt3dadd(-97.303, 399.474, -23.4, 0.696)
pt3dadd(-97.295, 399.594, -23.4, 0.7)
pt3dadd(-97.287, 399.714, -23.4, 0.702)
pt3dadd(-97.234, 399.821, -23.4, 0.694)
pt3dadd(-97.18, 399.929, -23.4, 0.684)
pt3dadd(-97.126, 400.034, -23.4, 0.674)
pt3dadd(-97.071, 400.142, -23.4, 0.666)
pt3dadd(-97.017, 400.249, -23.4, 0.656)
pt3dadd(-96.96, 400.356, -23.4, 0.64)
pt3dadd(-96.903, 400.46, -23.4, 0.62)
pt3dadd(-96.846, 400.565, -23.4, 0.6)
pt3dadd(-96.788, 400.672, -23.4, 0.582)
pt3dadd(-96.731, 400.776, -23.4, 0.562)
pt3dadd(-96.676, 400.877, -23.377, 0.546)
pt3dadd(-96.626, 400.969, -23.33, 0.534)
pt3dadd(-96.576, 401.062, -23.283, 0.522)
pt3dadd(-96.525, 401.154, -23.236, 0.512)
pt3dadd(-96.476, 401.251, -23.195, 0.504)
pt3dadd(-96.431, 401.36, -23.177, 0.508)
pt3dadd(-96.385, 401.468, -23.159, 0.514)
pt3dadd(-96.34, 401.578, -23.14, 0.52)
pt3dadd(-96.295, 401.687, -23.122, 0.524)
pt3dadd(-96.239, 401.791, -23.11, 0.534)
pt3dadd(-96.168, 401.887, -23.108, 0.548)
pt3dadd(-96.098, 401.984, -23.106, 0.564)
pt3dadd(-96.027, 402.082, -23.104, 0.58)
pt3dadd(-95.956, 402.179, -23.101, 0.594)
pt3dadd(-95.88, 402.27, -23.1, 0.614)
pt3dadd(-95.795, 402.356, -23.1, 0.638)
pt3dadd(-95.708, 402.438, -23.1, 0.652)
pt3dadd(-95.617, 402.517, -23.1, 0.652)
pt3dadd(-95.53, 402.598, -23.095, 0.648)
pt3dadd(-95.456, 402.688, -23.071, 0.62)
pt3dadd(-95.389, 402.764, -23.029, 0.584)
pt3dadd(-95.335, 402.814, -22.95, 0.53)
pt3dadd(-95.292, 402.89, -22.889, 0.472)
pt3dadd(-95.253, 402.98, -22.838, 0.42)
pt3dadd(-95.2, 403.031, -22.758, 0.394)
pt3dadd(-95.14, 403.099, -22.711, 0.382)
pt3dadd(-95.07, 403.196, -22.711, 0.394)
pt3dadd(-95.024, 403.296, -22.733, 0.402)
pt3dadd(-95.015, 403.398, -22.785, 0.402)
pt3dadd(-95.001, 403.5, -22.836, 0.406)
pt3dadd(-94.977, 403.606, -22.88, 0.418)
pt3dadd(-94.943, 403.705, -22.925, 0.434)
pt3dadd(-94.885, 403.794, -22.97, 0.454)
pt3dadd(-94.837, 403.9, -22.999, 0.47)
pt3dadd(-94.789, 404.003, -23.029, 0.488)
pt3dadd(-94.741, 404.107, -23.058, 0.504)
pt3dadd(-94.694, 404.212, -23.087, 0.52)
pt3dadd(-94.64, 404.316, -23.1, 0.53)
pt3dadd(-94.583, 404.422, -23.1, 0.534)
pt3dadd(-94.526, 404.527, -23.1, 0.54)
pt3dadd(-94.468, 404.633, -23.1, 0.544)
pt3dadd(-94.411, 404.738, -23.1, 0.55)
pt3dadd(-94.365, 404.848, -23.1, 0.55)
pt3dadd(-94.338, 404.965, -23.1, 0.546)
pt3dadd(-94.312, 405.082, -23.1, 0.542)
pt3dadd(-94.286, 405.198, -23.1, 0.538)
pt3dadd(-94.259, 405.317, -23.1, 0.534)
pt3dadd(-94.233, 405.433, -23.1, 0.53)
pt3dadd(-94.206, 405.55, -23.106, 0.524)
pt3dadd(-94.18, 405.664, -23.123, 0.514)
pt3dadd(-94.153, 405.78, -23.14, 0.504)
pt3dadd(-94.126, 405.895, -23.156, 0.496)
pt3dadd(-94.099, 406.01, -23.173, 0.486)
pt3dadd(-94.073, 406.126, -23.187, 0.478)
pt3dadd(-94.049, 406.238, -23.159, 0.478)
pt3dadd(-94.024, 406.35, -23.132, 0.478)
pt3dadd(-93.982, 406.462, -23.116, 0.502)
pt3dadd(-93.941, 406.573, -23.101, 0.526)
pt3dadd(-93.934, 406.692, -23.1, 0.55)
pt3dadd(-93.93, 406.812, -23.1, 0.576)
pt3dadd(-93.926, 406.932, -23.1, 0.602)
pt3dadd(-93.916, 407.038, -23.144, 0.614)
pt3dadd(-93.906, 407.144, -23.191, 0.626)
pt3dadd(-93.858, 407.208, -23.26, 0.628)
pt3dadd(-93.811, 407.288, -23.319, 0.628)
pt3dadd(-93.771, 407.384, -23.368, 0.628)
pt3dadd(-93.73, 407.482, -23.416, 0.628)
pt3dadd(-93.69, 407.579, -23.465, 0.628)
pt3dadd(-93.648, 407.678, -23.506, 0.634)
pt3dadd(-93.598, 407.785, -23.527, 0.654)
pt3dadd(-93.549, 407.891, -23.548, 0.676)
pt3dadd(-93.5, 407.998, -23.57, 0.698)
pt3dadd(-93.45, 408.103, -23.591, 0.72)
pt3dadd(-93.384, 408.203, -23.6, 0.746)
pt3dadd(-93.306, 408.293, -23.6, 0.776)
pt3dadd(-93.228, 408.384, -23.6, 0.806)
pt3dadd(-93.15, 408.475, -23.6, 0.836)
pt3dadd(-93.072, 408.566, -23.6, 0.866)
pt3dadd(-93.01, 408.667, -23.6, 0.912)
pt3dadd(-92.96, 408.778, -23.6, 0.966)
pt3dadd(-92.905, 408.883, -23.6, 1.004)
pt3dadd(-92.841, 408.984, -23.6, 1.004)
pt3dadd(-92.778, 409.086, -23.603, 0.996)
pt3dadd(-92.727, 409.192, -23.625, 0.92)
pt3dadd(-92.681, 409.288, -23.657, 0.84)
pt3dadd(-92.662, 409.316, -23.752, 0.738)
pt3dadd(-92.643, 409.346, -23.848, 0.636)
pt3dadd(-92.553, 409.412, -23.868, 0.564)
pt3dadd(-92.456, 409.482, -23.882, 0.496)
pt3dadd(-92.36, 409.552, -23.895, 0.426)
}
}
proc shape3d_53() {
dend_5[4] { pt3dadd(-92.31, 409.652, -23.9, 0.376)
pt3dadd(-92.286, 409.77, -23.9, 0.338)
pt3dadd(-92.261, 409.889, -23.9, 0.302)
pt3dadd(-92.236, 410.003, -23.895, 0.304)
pt3dadd(-92.177, 410.096, -23.858, 0.322)
pt3dadd(-92.117, 410.192, -23.822, 0.34)
pt3dadd(-92.058, 410.287, -23.785, 0.356)
pt3dadd(-91.998, 410.381, -23.749, 0.374)
pt3dadd(-91.944, 410.473, -23.706, 0.392)
pt3dadd(-91.897, 410.581, -23.7, 0.318)
pt3dadd(-91.875, 410.699, -23.7, 0.256)
pt3dadd(-91.869, 410.819, -23.7, 0.228)
pt3dadd(-91.865, 410.939, -23.7, 0.226)
pt3dadd(-91.847, 411.058, -23.7, 0.226)
pt3dadd(-91.804, 411.168, -23.704, 0.226)
pt3dadd(-91.749, 411.262, -23.742, 0.226)
pt3dadd(-91.705, 411.29, -23.829, 0.226)
pt3dadd(-91.631, 411.252, -23.891, 0.226)
pt3dadd(-91.55, 411.166, -23.9, 0.226)
pt3dadd(-91.501, 411.056, -23.9, 0.226)
}
dend_5[5] {pt3dclear()
pt3dadd(-56.129, 255.274, -28.7, 2.084)
pt3dadd(-56.139, 255.263, -28.708, 2.096)
pt3dadd(-56.205, 255.186, -28.761, 2.172)
pt3dadd(-56.271, 255.108, -28.814, 2.248)
pt3dadd(-56.338, 255.031, -28.867, 2.324)
pt3dadd(-56.404, 254.954, -28.92, 2.402)
pt3dadd(-56.47, 254.876, -28.973, 2.478)
pt3dadd(-56.537, 254.8, -29.026, 2.554)
pt3dadd(-56.603, 254.723, -29.079, 2.63)
pt3dadd(-56.696, 254.717, -29.1, 2.566)
pt3dadd(-56.808, 254.761, -29.1, 2.406)
pt3dadd(-56.922, 254.798, -29.1, 2.254)
pt3dadd(-57.04, 254.818, -29.1, 2.122)
pt3dadd(-57.159, 254.837, -29.1, 1.992)
pt3dadd(-57.278, 254.848, -29.1, 1.892)
pt3dadd(-57.398, 254.851, -29.1, 1.816)
pt3dadd(-57.518, 254.856, -29.1, 1.742)
pt3dadd(-57.638, 254.86, -29.1, 1.666)
pt3dadd(-57.758, 254.864, -29.1, 1.59)
pt3dadd(-57.874, 254.886, -29.1, 1.522)
pt3dadd(-57.988, 254.923, -29.1, 1.46)
pt3dadd(-58.103, 254.96, -29.1, 1.396)
pt3dadd(-58.217, 254.998, -29.1, 1.312)
pt3dadd(-58.331, 255.034, -29.1, 1.23)
pt3dadd(-58.41, 255.115, -29.1, 1.156)
pt3dadd(-58.475, 255.217, -29.1, 1.086)
pt3dadd(-58.524, 255.325, -29.1, 1.048)
pt3dadd(-58.559, 255.44, -29.1, 1.038)
pt3dadd(-58.592, 255.556, -29.1, 1.044)
pt3dadd(-58.611, 255.673, -29.1, 1.118)
pt3dadd(-58.626, 255.793, -29.1, 1.182)
pt3dadd(-58.637, 255.912, -29.1, 1.238)
pt3dadd(-58.648, 256.032, -29.1, 1.294)
pt3dadd(-58.723, 256.118, -29.1, 1.334)
pt3dadd(-58.814, 256.196, -29.1, 1.37)
pt3dadd(-58.896, 256.283, -29.1, 1.358)
pt3dadd(-58.975, 256.374, -29.1, 1.322)
pt3dadd(-59.073, 256.432, -29.1, 1.268)
pt3dadd(-59.19, 256.463, -29.1, 1.198)
pt3dadd(-59.305, 256.494, -29.1, 1.126)
pt3dadd(-59.416, 256.541, -29.1, 1.03)
pt3dadd(-59.524, 256.591, -29.1, 0.972)
pt3dadd(-59.631, 256.646, -29.1, 0.958)
pt3dadd(-59.738, 256.7, -29.1, 0.944)
pt3dadd(-59.845, 256.754, -29.1, 0.93)
pt3dadd(-59.952, 256.808, -29.1, 0.916)
pt3dadd(-60.06, 256.861, -29.1, 0.906)
pt3dadd(-60.172, 256.904, -29.1, 0.916)
pt3dadd(-60.284, 256.948, -29.1, 0.928)
pt3dadd(-60.398, 256.986, -29.1, 0.93)
pt3dadd(-60.512, 257.022, -29.1, 0.93)
pt3dadd(-60.605, 257.087, -29.1, 0.93)
pt3dadd(-60.669, 257.189, -29.1, 0.93)
pt3dadd(-60.728, 257.293, -29.1, 0.926)
pt3dadd(-60.77, 257.405, -29.1, 0.916)
pt3dadd(-60.813, 257.516, -29.1, 0.904)
pt3dadd(-60.884, 257.614, -29.1, 0.904)
pt3dadd(-60.939, 257.714, -29.12, 0.904)
pt3dadd(-60.981, 257.819, -29.155, 0.904)
pt3dadd(-61.022, 257.923, -29.19, 0.904)
pt3dadd(-61.064, 258.026, -29.226, 0.904)
pt3dadd(-61.103, 258.131, -29.263, 0.904)
pt3dadd(-61.127, 258.23, -29.316, 0.904)
pt3dadd(-61.15, 258.33, -29.368, 0.904)
pt3dadd(-61.173, 258.43, -29.42, 0.904)
pt3dadd(-61.197, 258.529, -29.472, 0.904)
pt3dadd(-61.237, 258.626, -29.518, 0.894)
pt3dadd(-61.285, 258.724, -29.561, 0.88)
pt3dadd(-61.332, 258.826, -29.598, 0.868)
pt3dadd(-61.378, 258.926, -29.634, 0.854)
pt3dadd(-61.382, 258.998, -29.714, 0.854)
pt3dadd(-61.386, 259.069, -29.795, 0.854)
pt3dadd(-61.384, 259.136, -29.877, 0.886)
pt3dadd(-61.382, 259.205, -29.96, 0.922)
pt3dadd(-61.38, 259.261, -30.048, 0.982)
pt3dadd(-61.378, 259.304, -30.14, 1.054)
pt3dadd(-61.378, 259.313, -30.239, 1.134)
pt3dadd(-61.378, 259.313, -30.339, 1.21)
pt3dadd(-61.384, 259.313, -30.439, 1.3)
pt3dadd(-61.41, 259.324, -30.536, 1.356)
pt3dadd(-61.469, 259.369, -30.611, 1.272)
pt3dadd(-61.549, 259.426, -30.667, 1.154)
pt3dadd(-61.663, 259.442, -30.693, 1.13)
pt3dadd(-61.782, 259.453, -30.7, 1.13)
pt3dadd(-61.894, 259.492, -30.7, 1.148)
pt3dadd(-61.956, 259.589, -30.7, 1.154)
pt3dadd(-61.969, 259.708, -30.702, 1.122)
pt3dadd(-62.003, 259.82, -30.717, 1.064)
pt3dadd(-62.036, 259.934, -30.733, 1.006)
pt3dadd(-62.075, 260.036, -30.774, 0.926)
pt3dadd(-62.116, 260.135, -30.819, 0.846)
pt3dadd(-62.164, 260.204, -30.89, 0.782)
pt3dadd(-62.213, 260.274, -30.961, 0.718)
pt3dadd(-62.294, 260.314, -31.023, 0.652)
pt3dadd(-62.386, 260.345, -31.082, 0.586)
pt3dadd(-62.442, 260.444, -31.092, 0.562)
pt3dadd(-62.493, 260.554, -31.096, 0.544)
pt3dadd(-62.545, 260.662, -31.1, 0.528)
pt3dadd(-62.644, 260.729, -31.105, 0.492)
pt3dadd(-62.744, 260.795, -31.111, 0.456)
pt3dadd(-62.832, 260.845, -31.161, 0.462)
pt3dadd(-62.92, 260.892, -31.217, 0.472)
pt3dadd(-62.975, 260.929, -31.293, 0.482)
pt3dadd(-62.998, 260.953, -31.389, 0.494)
pt3dadd(-63.049, 260.98, -31.46, 0.52)
pt3dadd(-63.164, 261.011, -31.475, 0.578)
pt3dadd(-63.279, 261.042, -31.49, 0.638)
pt3dadd(-63.393, 261.074, -31.5, 0.7)
pt3dadd(-63.507, 261.112, -31.5, 0.772)
pt3dadd(-63.621, 261.149, -31.5, 0.846)
pt3dadd(-63.735, 261.186, -31.5, 1.032)
pt3dadd(-63.847, 261.229, -31.5, 1.052)
pt3dadd(-63.959, 261.274, -31.5, 1.074)
pt3dadd(-64.072, 261.312, -31.5, 1.066)
pt3dadd(-64.187, 261.349, -31.5, 1.044)
pt3dadd(-64.287, 261.404, -31.5, 1.016)
pt3dadd(-64.351, 261.505, -31.5, 0.97)
pt3dadd(-64.414, 261.607, -31.5, 0.924)
pt3dadd(-64.472, 261.712, -31.5, 0.89)
pt3dadd(-64.529, 261.818, -31.5, 0.856)
pt3dadd(-64.625, 261.888, -31.5, 0.87)
pt3dadd(-64.714, 261.968, -31.5, 0.902)
pt3dadd(-64.793, 262.058, -31.5, 0.95)
pt3dadd(-64.856, 262.154, -31.513, 1.004)
pt3dadd(-64.895, 262.26, -31.548, 1.068)
pt3dadd(-64.946, 262.346, -31.595, 1.124)
pt3dadd(-65.012, 262.41, -31.659, 1.168)
pt3dadd(-65.089, 262.441, -31.73, 1.18)
pt3dadd(-65.169, 262.457, -31.803, 1.18)
pt3dadd(-65.245, 262.526, -31.841, 1.168)
pt3dadd(-65.32, 262.615, -31.866, 1.152)
pt3dadd(-65.395, 262.705, -31.891, 1.136)
pt3dadd(-65.487, 262.777, -31.9, 1.116)
pt3dadd(-65.588, 262.841, -31.9, 1.092)
pt3dadd(-65.675, 262.914, -31.919, 1.07)
pt3dadd(-65.746, 262.997, -31.962, 1.048)
pt3dadd(-65.815, 263.07, -32.009, 1.028)
pt3dadd(-65.869, 263.072, -32.099, 1.018)
pt3dadd(-65.923, 263.074, -32.188, 1.006)
pt3dadd(-65.979, 263.076, -32.276, 0.952)
pt3dadd(-66.054, 263.078, -32.354, 0.942)
pt3dadd(-66.129, 263.081, -32.433, 0.93)
pt3dadd(-66.145, 263.087, -32.531, 0.92)
pt3dadd(-66.16, 263.092, -32.631, 0.91)
pt3dadd(-66.179, 263.116, -32.726, 0.904)
pt3dadd(-66.204, 263.162, -32.815, 0.904)
pt3dadd(-66.267, 263.202, -32.873, 0.904)
pt3dadd(-66.383, 263.23, -32.887, 0.904)
pt3dadd(-66.495, 263.263, -32.901, 0.904)
pt3dadd(-66.581, 263.347, -32.909, 0.904)
pt3dadd(-66.652, 263.414, -32.961, 0.916)
pt3dadd(-66.72, 263.478, -33.024, 0.93)
pt3dadd(-66.808, 263.54, -33.068, 0.974)
pt3dadd(-66.887, 263.615, -33.104, 1.018)
pt3dadd(-66.945, 263.718, -33.121, 1.068)
pt3dadd(-66.984, 263.825, -33.141, 1.114)
pt3dadd(-66.98, 263.94, -33.169, 1.144)
pt3dadd(-66.976, 264.055, -33.196, 1.176)
pt3dadd(-66.972, 264.175, -33.2, 1.18)
pt3dadd(-66.968, 264.295, -33.2, 1.18)
pt3dadd(-66.992, 264.412, -33.2, 1.172)
pt3dadd(-67.021, 264.528, -33.2, 1.16)
pt3dadd(-67.05, 264.644, -33.2, 1.146)
pt3dadd(-67.079, 264.762, -33.2, 1.126)
pt3dadd(-67.108, 264.878, -33.2, 1.104)
pt3dadd(-67.141, 264.992, -33.216, 1.094)
pt3dadd(-67.175, 265.105, -33.231, 1.082)
pt3dadd(-67.176, 265.196, -33.293, 1.08)
pt3dadd(-67.173, 265.284, -33.361, 1.08)
pt3dadd(-67.187, 265.388, -33.405, 1.096)
pt3dadd(-67.207, 265.499, -33.441, 1.118)
pt3dadd(-67.227, 265.608, -33.477, 1.14)
pt3dadd(-67.249, 265.721, -33.5, 1.166)
pt3dadd(-67.278, 265.838, -33.5, 1.196)
pt3dadd(-67.307, 265.955, -33.5, 1.228)
pt3dadd(-67.328, 266.074, -33.497, 1.244)
pt3dadd(-67.348, 266.19, -33.493, 1.26)
pt3dadd(-67.368, 266.309, -33.49, 1.276)
pt3dadd(-67.374, 266.404, -33.443, 1.274)
pt3dadd(-67.371, 266.485, -33.37, 1.262)
}
}
proc shape3d_54() {
dend_5[5] { pt3dadd(-67.416, 266.546, -33.306, 1.246)
pt3dadd(-67.508, 266.588, -33.251, 1.224)
pt3dadd(-67.598, 266.634, -33.2, 1.202)
pt3dadd(-67.677, 266.724, -33.2, 1.168)
pt3dadd(-67.755, 266.814, -33.2, 1.132)
pt3dadd(-67.844, 266.89, -33.225, 1.112)
pt3dadd(-67.933, 266.963, -33.252, 1.09)
pt3dadd(-68.001, 267.053, -33.277, 1.068)
pt3dadd(-68.044, 267.161, -33.299, 1.042)
pt3dadd(-68.064, 267.274, -33.324, 1)
pt3dadd(-68.091, 267.385, -33.342, 0.976)
pt3dadd(-68.134, 267.497, -33.356, 0.97)
pt3dadd(-68.177, 267.607, -33.37, 0.966)
pt3dadd(-68.22, 267.718, -33.383, 0.96)
pt3dadd(-68.262, 267.829, -33.397, 0.956)
pt3dadd(-68.271, 267.948, -33.4, 0.974)
pt3dadd(-68.272, 268.068, -33.4, 1.002)
pt3dadd(-68.272, 268.187, -33.4, 1.028)
pt3dadd(-68.268, 268.307, -33.4, 1.076)
pt3dadd(-68.264, 268.427, -33.4, 1.126)
pt3dadd(-68.26, 268.547, -33.4, 1.176)
pt3dadd(-68.274, 268.667, -33.4, 1.216)
pt3dadd(-68.291, 268.786, -33.4, 1.254)
pt3dadd(-68.332, 268.889, -33.4, 1.28)
pt3dadd(-68.428, 268.961, -33.4, 1.28)
pt3dadd(-68.519, 269.038, -33.4, 1.27)
pt3dadd(-68.58, 269.141, -33.4, 1.2)
pt3dadd(-68.658, 269.231, -33.4, 1.156)
pt3dadd(-68.743, 269.315, -33.4, 1.12)
pt3dadd(-68.804, 269.416, -33.4, 1.092)
pt3dadd(-68.846, 269.528, -33.4, 1.07)
pt3dadd(-68.903, 269.623, -33.412, 1.058)
pt3dadd(-68.997, 269.678, -33.455, 1.072)
pt3dadd(-69.049, 269.734, -33.519, 1.086)
pt3dadd(-69.053, 269.79, -33.608, 1.098)
pt3dadd(-69.055, 269.852, -33.693, 1.11)
pt3dadd(-69.052, 269.927, -33.771, 1.128)
pt3dadd(-69.056, 269.992, -33.855, 1.13)
pt3dadd(-69.06, 270.055, -33.939, 1.13)
pt3dadd(-69.138, 270.121, -33.974, 1.14)
pt3dadd(-69.234, 270.187, -33.998, 1.154)
pt3dadd(-69.302, 270.286, -34, 1.166)
pt3dadd(-69.366, 270.386, -34, 1.178)
pt3dadd(-69.395, 270.502, -34, 1.18)
pt3dadd(-69.411, 270.62, -34, 1.18)
pt3dadd(-69.432, 270.737, -34, 1.176)
pt3dadd(-69.482, 270.847, -34, 1.142)
pt3dadd(-69.512, 270.961, -33.987, 1.118)
pt3dadd(-69.531, 271.076, -33.968, 1.098)
pt3dadd(-69.55, 271.193, -33.949, 1.078)
pt3dadd(-69.569, 271.308, -33.93, 1.06)
pt3dadd(-69.588, 271.426, -33.91, 1.04)
pt3dadd(-69.613, 271.541, -33.9, 1.024)
pt3dadd(-69.645, 271.657, -33.9, 1.01)
pt3dadd(-69.677, 271.772, -33.9, 0.996)
pt3dadd(-69.708, 271.889, -33.9, 0.982)
pt3dadd(-69.74, 272.004, -33.9, 0.97)
pt3dadd(-69.772, 272.12, -33.9, 0.956)
pt3dadd(-69.813, 272.225, -33.931, 0.94)
pt3dadd(-69.854, 272.329, -33.966, 0.922)
pt3dadd(-69.896, 272.435, -34.002, 0.906)
pt3dadd(-69.938, 272.538, -34.037, 0.888)
pt3dadd(-69.976, 272.647, -34.06, 0.882)
pt3dadd(-70.011, 272.761, -34.068, 0.886)
pt3dadd(-70.045, 272.876, -34.077, 0.89)
pt3dadd(-70.08, 272.99, -34.085, 0.896)
pt3dadd(-70.114, 273.104, -34.094, 0.9)
pt3dadd(-70.148, 273.22, -34.1, 0.908)
pt3dadd(-70.18, 273.335, -34.1, 0.922)
pt3dadd(-70.212, 273.451, -34.1, 0.934)
pt3dadd(-70.244, 273.566, -34.1, 0.948)
pt3dadd(-70.275, 273.683, -34.1, 0.962)
pt3dadd(-70.307, 273.798, -34.1, 0.976)
pt3dadd(-70.354, 273.908, -34.1, 0.996)
pt3dadd(-70.407, 274.016, -34.1, 1.02)
pt3dadd(-70.46, 274.124, -34.1, 1.044)
pt3dadd(-70.513, 274.231, -34.1, 1.068)
pt3dadd(-70.566, 274.339, -34.1, 1.094)
pt3dadd(-70.64, 274.429, -34.105, 1.108)
pt3dadd(-70.733, 274.504, -34.114, 1.114)
pt3dadd(-70.827, 274.578, -34.124, 1.118)
pt3dadd(-70.921, 274.651, -34.133, 1.124)
pt3dadd(-71.015, 274.726, -34.143, 1.13)
pt3dadd(-71.114, 274.771, -34.179, 1.116)
pt3dadd(-71.215, 274.811, -34.222, 1.1)
pt3dadd(-71.316, 274.85, -34.264, 1.082)
pt3dadd(-71.418, 274.89, -34.307, 1.066)
pt3dadd(-71.51, 274.948, -34.342, 1.044)
pt3dadd(-71.59, 275.033, -34.365, 1.014)
pt3dadd(-71.67, 275.119, -34.388, 0.986)
pt3dadd(-71.749, 275.204, -34.411, 0.958)
pt3dadd(-71.829, 275.288, -34.434, 0.928)
pt3dadd(-71.917, 275.352, -34.478, 0.886)
pt3dadd(-72.01, 275.404, -34.52, 0.852)
pt3dadd(-72.121, 275.42, -34.556, 0.84)
pt3dadd(-72.23, 275.441, -34.589, 0.828)
pt3dadd(-72.324, 275.515, -34.595, 0.828)
pt3dadd(-72.418, 275.588, -34.6, 0.83)
pt3dadd(-72.468, 275.699, -34.6, 0.852)
pt3dadd(-72.517, 275.807, -34.6, 0.874)
pt3dadd(-72.543, 275.924, -34.6, 0.926)
pt3dadd(-72.564, 276.042, -34.601, 0.98)
pt3dadd(-72.595, 276.156, -34.619, 1.002)
pt3dadd(-72.626, 276.27, -34.637, 1.022)
pt3dadd(-72.656, 276.384, -34.655, 1.042)
pt3dadd(-72.687, 276.498, -34.673, 1.062)
pt3dadd(-72.722, 276.608, -34.695, 1.08)
pt3dadd(-72.785, 276.69, -34.747, 1.08)
pt3dadd(-72.848, 276.77, -34.799, 1.08)
pt3dadd(-72.911, 276.851, -34.851, 1.08)
pt3dadd(-72.973, 276.932, -34.901, 1.078)
pt3dadd(-73.033, 277.033, -34.924, 1.056)
pt3dadd(-73.092, 277.135, -34.946, 1.034)
pt3dadd(-73.151, 277.236, -34.968, 1.012)
pt3dadd(-73.21, 277.336, -34.991, 0.988)
pt3dadd(-73.264, 277.442, -35, 0.946)
pt3dadd(-73.314, 277.552, -35, 0.89)
pt3dadd(-73.373, 277.644, -35.02, 0.844)
pt3dadd(-73.447, 277.708, -35.078, 0.814)
pt3dadd(-73.506, 277.738, -35.156, 0.804)
pt3dadd(-73.554, 277.746, -35.247, 0.804)
pt3dadd(-73.607, 277.759, -35.336, 0.82)
pt3dadd(-73.668, 277.782, -35.42, 0.858)
pt3dadd(-73.746, 277.819, -35.478, 0.906)
pt3dadd(-73.847, 277.871, -35.508, 0.958)
pt3dadd(-73.946, 277.904, -35.558, 0.98)
pt3dadd(-74.044, 277.938, -35.608, 1.004)
pt3dadd(-74.142, 277.972, -35.659, 1.026)
pt3dadd(-74.24, 278.005, -35.709, 1.048)
pt3dadd(-74.321, 278.066, -35.76, 1.066)
pt3dadd(-74.395, 278.138, -35.811, 1.08)
pt3dadd(-74.452, 278.23, -35.854, 1.066)
pt3dadd(-74.512, 278.32, -35.898, 1.042)
pt3dadd(-74.586, 278.398, -35.943, 0.986)
pt3dadd(-74.63, 278.494, -35.958, 0.936)
pt3dadd(-74.641, 278.612, -35.94, 0.894)
pt3dadd(-74.683, 278.717, -35.916, 0.866)
pt3dadd(-74.746, 278.815, -35.891, 0.858)
pt3dadd(-74.812, 278.911, -35.868, 0.87)
pt3dadd(-74.879, 279.007, -35.846, 0.88)
pt3dadd(-74.945, 279.103, -35.823, 0.892)
pt3dadd(-75.011, 279.2, -35.8, 0.904)
pt3dadd(-75.088, 279.292, -35.8, 0.918)
pt3dadd(-75.166, 279.383, -35.8, 0.934)
pt3dadd(-75.244, 279.474, -35.8, 0.95)
pt3dadd(-75.321, 279.565, -35.8, 0.964)
pt3dadd(-75.399, 279.656, -35.801, 0.98)
pt3dadd(-75.462, 279.749, -35.838, 0.998)
pt3dadd(-75.526, 279.84, -35.875, 1.016)
pt3dadd(-75.59, 279.931, -35.913, 1.034)
pt3dadd(-75.654, 280.022, -35.95, 1.052)
pt3dadd(-75.728, 280.114, -35.964, 1.072)
pt3dadd(-75.805, 280.205, -35.973, 1.094)
pt3dadd(-75.882, 280.297, -35.983, 1.116)
pt3dadd(-75.959, 280.388, -35.992, 1.138)
pt3dadd(-76.039, 280.476, -36.003, 1.164)
pt3dadd(-76.133, 280.548, -36.02, 1.216)
pt3dadd(-76.23, 280.609, -36.042, 1.268)
pt3dadd(-76.339, 280.632, -36.08, 1.316)
pt3dadd(-76.433, 280.667, -36.121, 1.362)
pt3dadd(-76.459, 280.76, -36.18, 1.402)
pt3dadd(-76.477, 280.859, -36.232, 1.44)
pt3dadd(-76.479, 280.972, -36.267, 1.474)
pt3dadd(-76.484, 281.083, -36.302, 1.508)
pt3dadd(-76.557, 281.162, -36.346, 1.536)
pt3dadd(-76.636, 281.219, -36.395, 1.566)
pt3dadd(-76.73, 281.222, -36.458, 1.582)
pt3dadd(-76.835, 281.226, -36.505, 1.516)
pt3dadd(-76.942, 281.23, -36.55, 1.356)
pt3dadd(-77.052, 281.245, -36.586, 1.192)
pt3dadd(-77.14, 281.317, -36.6, 1.13)
pt3dadd(-77.17, 281.431, -36.6, 1.13)
pt3dadd(-77.172, 281.551, -36.6, 1.146)
pt3dadd(-77.176, 281.671, -36.6, 1.172)
pt3dadd(-77.203, 281.786, -36.611, 1.18)
pt3dadd(-77.249, 281.887, -36.641, 1.082)
pt3dadd(-77.268, 282.004, -36.66, 1.024)
pt3dadd(-77.3, 282.113, -36.643, 0.986)
pt3dadd(-77.338, 282.218, -36.608, 0.96)
pt3dadd(-77.407, 282.313, -36.6, 0.972)
pt3dadd(-77.485, 282.403, -36.6, 0.996)
pt3dadd(-77.589, 282.446, -36.591, 1.036)
pt3dadd(-77.707, 282.462, -36.578, 1.088)
pt3dadd(-77.815, 282.49, -36.563, 1.136)
pt3dadd(-77.869, 282.595, -36.543, 1.174)
pt3dadd(-77.922, 282.698, -36.522, 1.214)
pt3dadd(-77.976, 282.804, -36.502, 1.252)
pt3dadd(-78.052, 282.895, -36.5, 1.266)
pt3dadd(-78.131, 282.985, -36.5, 1.278)
pt3dadd(-78.193, 283.086, -36.513, 1.258)
pt3dadd(-78.25, 283.19, -36.53, 1.23)
pt3dadd(-78.306, 283.286, -36.556, 1.192)
pt3dadd(-78.356, 283.339, -36.636, 1.094)
pt3dadd(-78.391, 283.414, -36.69, 1.016)
pt3dadd(-78.398, 283.534, -36.693, 0.974)
pt3dadd(-78.405, 283.654, -36.696, 0.932)
pt3dadd(-78.412, 283.774, -36.699, 0.89)
pt3dadd(-78.411, 283.894, -36.7, 0.854)
pt3dadd(-78.406, 284.014, -36.7, 0.82)
pt3dadd(-78.402, 284.134, -36.7, 0.786)
}
}
proc shape3d_55() {
dend_5[5] { pt3dadd(-78.452, 284.236, -36.709, 0.778)
pt3dadd(-78.519, 284.334, -36.722, 0.778)
pt3dadd(-78.59, 284.428, -36.737, 0.78)
pt3dadd(-78.689, 284.482, -36.773, 0.794)
pt3dadd(-78.791, 284.531, -36.8, 0.804)
pt3dadd(-78.895, 284.585, -36.809, 0.798)
pt3dadd(-78.985, 284.66, -36.829, 0.788)
pt3dadd(-79.075, 284.736, -36.849, 0.776)
pt3dadd(-79.166, 284.81, -36.869, 0.764)
pt3dadd(-79.256, 284.886, -36.889, 0.754)
pt3dadd(-79.308, 284.994, -36.894, 0.73)
pt3dadd(-79.361, 285.101, -36.899, 0.706)
pt3dadd(-79.43, 285.199, -36.9, 0.704)
pt3dadd(-79.502, 285.295, -36.9, 0.704)
pt3dadd(-79.533, 285.395, -36.937, 0.712)
pt3dadd(-79.55, 285.498, -36.987, 0.726)
pt3dadd(-79.61, 285.571, -37.043, 0.75)
pt3dadd(-79.685, 285.635, -37.1, 0.778)
pt3dadd(-79.799, 285.671, -37.1, 0.794)
pt3dadd(-79.897, 285.732, -37.1, 0.812)
pt3dadd(-79.968, 285.828, -37.1, 0.836)
pt3dadd(-80.038, 285.925, -37.1, 0.86)
pt3dadd(-80.103, 286.027, -37.1, 0.882)
pt3dadd(-80.166, 286.126, -37.106, 0.908)
pt3dadd(-80.225, 286.205, -37.163, 0.952)
pt3dadd(-80.282, 286.266, -37.231, 0.994)
pt3dadd(-80.336, 286.295, -37.317, 1.032)
pt3dadd(-80.394, 286.35, -37.382, 1.064)
pt3dadd(-80.449, 286.442, -37.424, 1.08)
pt3dadd(-80.474, 286.535, -37.483, 1.08)
pt3dadd(-80.51, 286.612, -37.549, 1.066)
pt3dadd(-80.567, 286.658, -37.629, 1.024)
pt3dadd(-80.652, 286.703, -37.678, 0.992)
pt3dadd(-80.76, 286.746, -37.7, 0.968)
pt3dadd(-80.862, 286.794, -37.731, 0.934)
pt3dadd(-80.956, 286.848, -37.774, 0.894)
pt3dadd(-81.045, 286.921, -37.793, 0.878)
pt3dadd(-81.133, 287.003, -37.8, 0.878)
pt3dadd(-81.221, 287.084, -37.806, 0.878)
pt3dadd(-81.286, 287.173, -37.82, 0.876)
pt3dadd(-81.288, 287.286, -37.855, 0.864)
pt3dadd(-81.29, 287.4, -37.889, 0.854)
pt3dadd(-81.286, 287.518, -37.9, 0.852)
pt3dadd(-81.283, 287.638, -37.9, 0.828)
pt3dadd(-81.298, 287.758, -37.9, 0.828)
pt3dadd(-81.344, 287.864, -37.9, 0.828)
pt3dadd(-81.429, 287.95, -37.9, 0.854)
pt3dadd(-81.54, 287.986, -37.92, 0.888)
pt3dadd(-81.642, 287.998, -37.968, 0.904)
pt3dadd(-81.714, 288, -38.046, 0.938)
pt3dadd(-81.747, 288.001, -38.142, 1.01)
pt3dadd(-81.78, 288.002, -38.239, 1.086)
pt3dadd(-81.842, 288.005, -38.322, 1.13)
pt3dadd(-81.929, 288.042, -38.38, 1.09)
pt3dadd(-82.022, 288.103, -38.416, 1.048)
pt3dadd(-82.077, 288.192, -38.451, 0.996)
pt3dadd(-82.099, 288.304, -38.483, 0.936)
pt3dadd(-82.137, 288.409, -38.515, 0.884)
pt3dadd(-82.193, 288.508, -38.547, 0.844)
pt3dadd(-82.25, 288.606, -38.578, 0.804)
pt3dadd(-82.348, 288.623, -38.634, 0.792)
pt3dadd(-82.447, 288.64, -38.689, 0.778)
pt3dadd(-82.554, 288.694, -38.689, 0.816)
pt3dadd(-82.646, 288.743, -38.651, 0.878)
pt3dadd(-82.677, 288.793, -38.564, 0.846)
pt3dadd(-82.679, 288.889, -38.511, 0.778)
pt3dadd(-82.679, 289.008, -38.518, 0.754)
pt3dadd(-82.708, 289.109, -38.562, 0.732)
pt3dadd(-82.768, 289.204, -38.594, 0.79)
pt3dadd(-82.825, 289.307, -38.611, 0.93)
pt3dadd(-82.879, 289.357, -38.685, 0.884)
pt3dadd(-82.9, 289.362, -38.783, 0.814)
pt3dadd(-82.915, 289.363, -38.882, 0.826)
pt3dadd(-82.95, 289.367, -38.977, 0.878)
pt3dadd(-83.001, 289.41, -39.057, 0.84)
pt3dadd(-83.017, 289.518, -39.091, 0.748)
pt3dadd(-83.013, 289.637, -39.1, 0.728)
pt3dadd(-83.013, 289.757, -39.1, 0.736)
pt3dadd(-83.037, 289.873, -39.1, 0.754)
pt3dadd(-83.117, 289.955, -39.09, 0.8)
pt3dadd(-83.226, 289.979, -39.054, 0.95)
pt3dadd(-83.318, 290.029, -39.012, 1.054)
pt3dadd(-83.345, 290.132, -38.968, 0.924)
pt3dadd(-83.348, 290.228, -38.91, 0.84)
pt3dadd(-83.349, 290.322, -38.847, 0.766)
pt3dadd(-83.346, 290.402, -38.773, 0.718)
pt3dadd(-83.353, 290.488, -38.715, 0.678)
pt3dadd(-83.41, 290.59, -38.738, 0.678)
pt3dadd(-83.467, 290.692, -38.761, 0.678)
pt3dadd(-83.513, 290.8, -38.779, 0.696)
pt3dadd(-83.554, 290.91, -38.795, 0.72)
pt3dadd(-83.565, 291.028, -38.808, 0.746)
pt3dadd(-83.582, 291.145, -38.811, 0.758)
pt3dadd(-83.606, 291.263, -38.811, 0.764)
pt3dadd(-83.629, 291.38, -38.811, 0.77)
pt3dadd(-83.653, 291.497, -38.811, 0.776)
pt3dadd(-83.668, 291.617, -38.81, 0.786)
pt3dadd(-83.672, 291.737, -38.809, 0.8)
pt3dadd(-83.676, 291.856, -38.807, 0.816)
pt3dadd(-83.68, 291.976, -38.805, 0.832)
pt3dadd(-83.684, 292.097, -38.804, 0.848)
pt3dadd(-83.688, 292.217, -38.802, 0.862)
pt3dadd(-83.692, 292.336, -38.8, 0.878)
pt3dadd(-83.726, 292.448, -38.82, 0.91)
pt3dadd(-83.761, 292.56, -38.841, 0.94)
pt3dadd(-83.796, 292.672, -38.862, 0.972)
pt3dadd(-83.831, 292.784, -38.883, 1.004)
pt3dadd(-83.86, 292.897, -38.9, 1.034)
pt3dadd(-83.856, 293.017, -38.9, 1.054)
pt3dadd(-83.851, 293.137, -38.9, 1.076)
pt3dadd(-83.847, 293.257, -38.9, 1.098)
pt3dadd(-83.843, 293.377, -38.9, 1.12)
pt3dadd(-83.839, 293.497, -38.9, 1.14)
pt3dadd(-83.835, 293.617, -38.9, 1.162)
pt3dadd(-83.831, 293.737, -38.9, 1.182)
pt3dadd(-83.832, 293.857, -38.9, 1.19)
pt3dadd(-83.832, 293.977, -38.9, 1.198)
pt3dadd(-83.856, 294.086, -38.905, 1.194)
pt3dadd(-83.944, 294.166, -38.922, 1.156)
pt3dadd(-84.009, 294.236, -38.963, 1.108)
pt3dadd(-84.035, 294.293, -39.049, 1.042)
pt3dadd(-84.049, 294.364, -39.126, 0.986)
pt3dadd(-84.045, 294.457, -39.188, 0.938)
pt3dadd(-84.042, 294.551, -39.25, 0.89)
pt3dadd(-84.039, 294.644, -39.313, 0.836)
pt3dadd(-84.08, 294.721, -39.38, 0.808)
pt3dadd(-84.13, 294.794, -39.448, 0.784)
pt3dadd(-84.179, 294.868, -39.515, 0.758)
pt3dadd(-84.229, 294.941, -39.583, 0.734)
pt3dadd(-84.263, 295.038, -39.631, 0.72)
pt3dadd(-84.292, 295.142, -39.674, 0.708)
pt3dadd(-84.321, 295.248, -39.715, 0.698)
pt3dadd(-84.35, 295.352, -39.758, 0.686)
pt3dadd(-84.384, 295.459, -39.789, 0.678)
pt3dadd(-84.432, 295.568, -39.792, 0.678)
pt3dadd(-84.479, 295.679, -39.794, 0.678)
pt3dadd(-84.527, 295.789, -39.796, 0.678)
pt3dadd(-84.575, 295.898, -39.798, 0.678)
pt3dadd(-84.619, 296.01, -39.8, 0.68)
pt3dadd(-84.63, 296.129, -39.8, 0.696)
pt3dadd(-84.641, 296.249, -39.8, 0.712)
pt3dadd(-84.651, 296.369, -39.8, 0.728)
pt3dadd(-84.662, 296.488, -39.8, 0.744)
pt3dadd(-84.673, 296.608, -39.8, 0.76)
pt3dadd(-84.684, 296.726, -39.8, 0.776)
pt3dadd(-84.683, 296.837, -39.836, 0.806)
pt3dadd(-84.679, 296.944, -39.881, 0.84)
pt3dadd(-84.679, 297.05, -39.927, 0.874)
pt3dadd(-84.681, 297.156, -39.974, 0.91)
pt3dadd(-84.726, 297.245, -40.002, 0.94)
pt3dadd(-84.825, 297.312, -40.008, 0.964)
pt3dadd(-84.927, 297.366, -40.024, 0.992)
pt3dadd(-85.033, 297.397, -40.063, 1.03)
pt3dadd(-85.106, 297.457, -40.098, 1.06)
pt3dadd(-85.117, 297.572, -40.125, 1.072)
pt3dadd(-85.127, 297.686, -40.152, 1.086)
pt3dadd(-85.137, 297.803, -40.179, 1.1)
pt3dadd(-85.169, 297.916, -40.192, 1.112)
pt3dadd(-85.214, 298.026, -40.197, 1.124)
pt3dadd(-85.261, 298.136, -40.2, 1.144)
pt3dadd(-85.311, 298.246, -40.2, 1.202)
pt3dadd(-85.338, 298.362, -40.2, 1.256)
pt3dadd(-85.346, 298.482, -40.2, 1.238)
pt3dadd(-85.341, 298.602, -40.2, 1.156)
pt3dadd(-85.337, 298.722, -40.2, 1.056)
pt3dadd(-85.333, 298.841, -40.203, 0.96)
pt3dadd(-85.329, 298.956, -40.226, 0.87)
pt3dadd(-85.326, 299.045, -40.291, 0.766)
pt3dadd(-85.324, 299.1, -40.379, 0.732)
pt3dadd(-85.33, 299.148, -40.47, 0.794)
pt3dadd(-85.36, 299.173, -40.564, 0.9)
pt3dadd(-85.434, 299.19, -40.638, 0.99)
pt3dadd(-85.508, 299.246, -40.702, 1.034)
pt3dadd(-85.57, 299.314, -40.765, 1.068)
pt3dadd(-85.621, 299.392, -40.828, 1.098)
pt3dadd(-85.665, 299.456, -40.904, 1.104)
pt3dadd(-85.707, 299.515, -40.983, 1.104)
pt3dadd(-85.744, 299.626, -40.993, 1.074)
pt3dadd(-85.782, 299.738, -40.998, 1.04)
pt3dadd(-85.821, 299.854, -41, 0.974)
pt3dadd(-85.86, 299.966, -41, 0.902)
pt3dadd(-85.901, 300.079, -41, 0.888)
pt3dadd(-85.941, 300.192, -41, 0.874)
pt3dadd(-85.982, 300.306, -41, 0.86)
pt3dadd(-86.023, 300.418, -41, 0.846)
pt3dadd(-86.063, 300.53, -41, 0.832)
pt3dadd(-86.1, 300.643, -41.015, 0.832)
pt3dadd(-86.134, 300.755, -41.036, 0.838)
pt3dadd(-86.169, 300.866, -41.057, 0.842)
pt3dadd(-86.204, 300.979, -41.078, 0.848)
pt3dadd(-86.239, 301.091, -41.098, 0.854)
pt3dadd(-86.275, 301.195, -41.14, 0.876)
pt3dadd(-86.311, 301.297, -41.183, 0.898)
pt3dadd(-86.347, 301.398, -41.227, 0.922)
pt3dadd(-86.384, 301.5, -41.27, 0.944)
pt3dadd(-86.406, 301.612, -41.294, 0.966)
pt3dadd(-86.418, 301.73, -41.303, 0.986)
pt3dadd(-86.429, 301.848, -41.314, 1.004)
pt3dadd(-86.425, 301.958, -41.353, 1.004)
pt3dadd(-86.421, 302.07, -41.392, 1.004)
}
}
proc shape3d_56() {
dend_5[5] { pt3dadd(-86.473, 302.155, -41.44, 1.016)
pt3dadd(-86.54, 302.236, -41.489, 1.032)
pt3dadd(-86.621, 302.322, -41.495, 1.068)
pt3dadd(-86.703, 302.411, -41.5, 1.104)
pt3dadd(-86.794, 302.488, -41.5, 1.158)
pt3dadd(-86.862, 302.584, -41.5, 1.18)
pt3dadd(-86.911, 302.694, -41.5, 1.18)
pt3dadd(-86.961, 302.802, -41.5, 1.18)
pt3dadd(-87.011, 302.912, -41.5, 1.18)
pt3dadd(-87.061, 303.02, -41.5, 1.18)
pt3dadd(-87.098, 303.128, -41.515, 1.178)
pt3dadd(-87.114, 303.236, -41.558, 1.172)
pt3dadd(-87.13, 303.344, -41.6, 1.168)
pt3dadd(-87.146, 303.452, -41.642, 1.162)
pt3dadd(-87.162, 303.559, -41.684, 1.158)
pt3dadd(-87.209, 303.629, -41.747, 1.138)
pt3dadd(-87.274, 303.677, -41.821, 1.11)
pt3dadd(-87.3, 303.743, -41.9, 1.094)
pt3dadd(-87.319, 303.811, -41.98, 1.082)
pt3dadd(-87.331, 303.925, -41.993, 1.062)
pt3dadd(-87.342, 304.044, -41.997, 1.042)
pt3dadd(-87.364, 304.159, -41.989, 1.03)
pt3dadd(-87.411, 304.26, -41.953, 1.03)
pt3dadd(-87.458, 304.363, -41.922, 1.012)
pt3dadd(-87.507, 304.47, -41.9, 0.974)
pt3dadd(-87.557, 304.578, -41.9, 0.94)
pt3dadd(-87.607, 304.688, -41.9, 0.906)
pt3dadd(-87.62, 304.806, -41.9, 0.844)
pt3dadd(-87.631, 304.926, -41.9, 0.778)
pt3dadd(-87.638, 305.046, -41.901, 0.718)
pt3dadd(-87.634, 305.166, -41.905, 0.674)
pt3dadd(-87.63, 305.286, -41.909, 0.63)
pt3dadd(-87.626, 305.388, -41.94, 0.594)
pt3dadd(-87.624, 305.455, -42.022, 0.572)
pt3dadd(-87.629, 305.526, -42.102, 0.556)
pt3dadd(-87.669, 305.606, -42.168, 0.574)
pt3dadd(-87.708, 305.687, -42.234, 0.59)
pt3dadd(-87.733, 305.771, -42.255, 0.612)
pt3dadd(-87.73, 305.858, -42.187, 0.636)
pt3dadd(-87.734, 305.952, -42.126, 0.682)
pt3dadd(-87.77, 306.059, -42.099, 0.714)
pt3dadd(-87.813, 306.17, -42.083, 0.73)
pt3dadd(-87.857, 306.28, -42.067, 0.746)
pt3dadd(-87.9, 306.39, -42.051, 0.762)
pt3dadd(-87.944, 306.5, -42.035, 0.778)
pt3dadd(-87.982, 306.607, -42.001, 0.826)
pt3dadd(-88.02, 306.713, -41.966, 0.88)
pt3dadd(-88.042, 306.824, -41.934, 0.904)
pt3dadd(-88.064, 306.935, -41.902, 0.928)
pt3dadd(-88.106, 307.048, -41.9, 0.908)
pt3dadd(-88.149, 307.159, -41.9, 0.886)
pt3dadd(-88.206, 307.258, -41.925, 0.842)
pt3dadd(-88.269, 307.35, -41.962, 0.786)
pt3dadd(-88.336, 307.424, -42.017, 0.722)
pt3dadd(-88.382, 307.525, -42.028, 0.698)
pt3dadd(-88.419, 307.638, -42.02, 0.692)
pt3dadd(-88.457, 307.752, -42.012, 0.686)
pt3dadd(-88.495, 307.865, -42.004, 0.68)
pt3dadd(-88.535, 307.979, -42, 0.684)
pt3dadd(-88.578, 308.09, -42, 0.694)
pt3dadd(-88.623, 308.202, -42, 0.708)
pt3dadd(-88.672, 308.311, -42, 0.732)
pt3dadd(-88.723, 308.419, -42.001, 0.754)
pt3dadd(-88.803, 308.497, -42.039, 0.796)
pt3dadd(-88.881, 308.572, -42.081, 0.832)
pt3dadd(-88.956, 308.635, -42.138, 0.846)
pt3dadd(-89.02, 308.72, -42.167, 0.85)
pt3dadd(-89.075, 308.828, -42.167, 0.842)
pt3dadd(-89.13, 308.934, -42.167, 0.834)
pt3dadd(-89.168, 309.046, -42.161, 0.82)
pt3dadd(-89.171, 309.163, -42.144, 0.794)
pt3dadd(-89.204, 309.265, -42.15, 0.782)
pt3dadd(-89.281, 309.341, -42.193, 0.794)
pt3dadd(-89.357, 309.416, -42.236, 0.806)
pt3dadd(-89.432, 309.481, -42.294, 0.85)
pt3dadd(-89.497, 309.556, -42.346, 0.892)
pt3dadd(-89.543, 309.655, -42.387, 0.932)
pt3dadd(-89.588, 309.755, -42.428, 0.974)
pt3dadd(-89.607, 309.866, -42.46, 0.98)
pt3dadd(-89.622, 309.979, -42.492, 0.98)
pt3dadd(-89.634, 310.098, -42.5, 0.98)
pt3dadd(-89.646, 310.217, -42.5, 0.976)
pt3dadd(-89.66, 310.337, -42.5, 0.972)
pt3dadd(-89.673, 310.454, -42.5, 0.968)
pt3dadd(-89.686, 310.573, -42.5, 0.964)
pt3dadd(-89.699, 310.693, -42.5, 0.96)
pt3dadd(-89.712, 310.812, -42.5, 0.956)
pt3dadd(-89.727, 310.932, -42.5, 0.96)
pt3dadd(-89.742, 311.051, -42.5, 0.968)
pt3dadd(-89.758, 311.17, -42.5, 0.976)
pt3dadd(-89.774, 311.288, -42.5, 0.984)
pt3dadd(-89.789, 311.408, -42.5, 0.992)
pt3dadd(-89.805, 311.526, -42.5, 1)
pt3dadd(-89.82, 311.646, -42.5, 1.004)
pt3dadd(-89.836, 311.765, -42.5, 1.004)
pt3dadd(-89.852, 311.884, -42.5, 1.004)
pt3dadd(-89.867, 312.002, -42.5, 1.004)
pt3dadd(-89.883, 312.121, -42.5, 1.004)
pt3dadd(-89.898, 312.241, -42.5, 1.004)
pt3dadd(-89.922, 312.358, -42.5, 1.006)
pt3dadd(-89.954, 312.474, -42.5, 1.012)
pt3dadd(-89.986, 312.589, -42.5, 1.016)
pt3dadd(-90.017, 312.706, -42.5, 1.02)
pt3dadd(-90.049, 312.821, -42.5, 1.024)
pt3dadd(-90.081, 312.936, -42.5, 1.03)
pt3dadd(-90.136, 313.043, -42.5, 1.05)
pt3dadd(-90.193, 313.148, -42.5, 1.074)
pt3dadd(-90.265, 313.244, -42.5, 1.114)
pt3dadd(-90.344, 313.334, -42.5, 1.16)
pt3dadd(-90.411, 313.418, -42.534, 1.18)
pt3dadd(-90.469, 313.498, -42.592, 1.18)
pt3dadd(-90.52, 313.58, -42.648, 1.12)
pt3dadd(-90.566, 313.667, -42.706, 1.05)
pt3dadd(-90.567, 313.756, -42.774, 0.992)
pt3dadd(-90.567, 313.844, -42.841, 0.934)
pt3dadd(-90.568, 313.933, -42.908, 0.876)
pt3dadd(-90.606, 313.98, -42.986, 0.814)
pt3dadd(-90.666, 314.002, -43.071, 0.75)
pt3dadd(-90.745, 314.04, -43.137, 0.714)
pt3dadd(-90.799, 314.118, -43.181, 0.72)
pt3dadd(-90.812, 314.234, -43.199, 0.752)
pt3dadd(-90.844, 314.35, -43.198, 0.722)
pt3dadd(-90.892, 314.455, -43.172, 0.684)
pt3dadd(-90.904, 314.558, -43.127, 0.672)
pt3dadd(-90.862, 314.665, -43.103, 0.616)
pt3dadd(-90.761, 314.722, -43.1, 0.52)
pt3dadd(-90.644, 314.749, -43.1, 0.428)
pt3dadd(-90.531, 314.789, -43.1, 0.346)
pt3dadd(-90.418, 314.827, -43.1, 0.328)
pt3dadd(-90.298, 314.836, -43.1, 0.452)
}
dend_5[6] {pt3dclear()
pt3dadd(-55.213, 253.228, -28.4, 1.884)
pt3dadd(-55.236, 253.226, -28.461, 1.936)
pt3dadd(-55.27, 253.226, -28.557, 2.018)
pt3dadd(-55.305, 253.225, -28.653, 2.102)
pt3dadd(-55.34, 253.225, -28.749, 2.184)
pt3dadd(-55.374, 253.224, -28.844, 2.266)
pt3dadd(-55.409, 253.224, -28.94, 2.348)
pt3dadd(-55.444, 253.223, -29.036, 2.43)
pt3dadd(-55.506, 253.231, -29.1, 2.496)
pt3dadd(-55.623, 253.255, -29.1, 2.53)
pt3dadd(-55.741, 253.278, -29.1, 2.564)
pt3dadd(-55.859, 253.302, -29.1, 2.596)
pt3dadd(-55.976, 253.326, -29.1, 2.63)
pt3dadd(-56.094, 253.35, -29.1, 2.662)
pt3dadd(-56.212, 253.369, -29.1, 2.672)
pt3dadd(-56.332, 253.373, -29.1, 2.616)
pt3dadd(-56.452, 253.378, -29.1, 2.558)
pt3dadd(-56.572, 253.381, -29.1, 2.5)
pt3dadd(-56.692, 253.386, -29.1, 2.444)
pt3dadd(-56.812, 253.39, -29.1, 2.386)
pt3dadd(-56.932, 253.394, -29.1, 2.328)
pt3dadd(-57.051, 253.398, -29.1, 2.264)
pt3dadd(-57.171, 253.403, -29.1, 2.182)
pt3dadd(-57.291, 253.406, -29.1, 2.1)
pt3dadd(-57.411, 253.411, -29.1, 2.018)
pt3dadd(-57.531, 253.415, -29.1, 1.934)
pt3dadd(-57.651, 253.42, -29.1, 1.852)
pt3dadd(-57.771, 253.423, -29.1, 1.77)
pt3dadd(-57.889, 253.439, -29.1, 1.684)
pt3dadd(-57.998, 253.487, -29.1, 1.586)
pt3dadd(-58.108, 253.536, -29.1, 1.488)
pt3dadd(-58.218, 253.584, -29.1, 1.39)
pt3dadd(-58.328, 253.632, -29.1, 1.292)
pt3dadd(-58.437, 253.681, -29.1, 1.194)
pt3dadd(-58.547, 253.729, -29.1, 1.148)
pt3dadd(-58.657, 253.777, -29.1, 1.11)
pt3dadd(-58.767, 253.826, -29.1, 1.074)
pt3dadd(-58.877, 253.874, -29.1, 1.036)
pt3dadd(-58.986, 253.922, -29.1, 0.998)
pt3dadd(-59.1, 253.961, -29.1, 0.976)
pt3dadd(-59.217, 253.987, -29.1, 0.966)
pt3dadd(-59.334, 254.014, -29.1, 0.958)
pt3dadd(-59.451, 254.04, -29.1, 0.95)
pt3dadd(-59.568, 254.066, -29.1, 0.942)
pt3dadd(-59.685, 254.093, -29.1, 0.934)
pt3dadd(-59.795, 254.137, -29.1, 0.924)
pt3dadd(-59.896, 254.202, -29.1, 0.912)
pt3dadd(-59.998, 254.263, -29.105, 0.894)
pt3dadd(-60.102, 254.321, -29.121, 0.856)
pt3dadd(-60.203, 254.376, -29.145, 0.824)
pt3dadd(-60.296, 254.431, -29.188, 0.812)
pt3dadd(-60.372, 254.465, -29.252, 0.804)
pt3dadd(-60.428, 254.473, -29.34, 0.804)
pt3dadd(-60.472, 254.491, -29.43, 0.812)
pt3dadd(-60.492, 254.534, -29.522, 0.838)
pt3dadd(-60.544, 254.581, -29.569, 0.854)
pt3dadd(-60.646, 254.604, -29.523, 0.846)
pt3dadd(-60.747, 254.608, -29.47, 0.846)
pt3dadd(-60.809, 254.611, -29.387, 0.88)
pt3dadd(-60.833, 254.642, -29.296, 0.904)
pt3dadd(-60.884, 254.719, -29.233, 0.904)
pt3dadd(-60.96, 254.784, -29.189, 0.898)
pt3dadd(-61.066, 254.836, -29.167, 0.886)
pt3dadd(-61.146, 254.885, -29.117, 0.872)
pt3dadd(-61.2, 254.935, -29.038, 0.856)
pt3dadd(-61.29, 254.984, -29.053, 0.842)
pt3dadd(-61.389, 255.035, -29.089, 0.828)
pt3dadd(-61.492, 255.096, -29.097, 0.828)
pt3dadd(-61.598, 255.152, -29.1, 0.826)
pt3dadd(-61.705, 255.206, -29.1, 0.82)
}
}
proc shape3d_57() {
dend_5[6] { pt3dadd(-61.812, 255.262, -29.1, 0.816)
pt3dadd(-61.919, 255.316, -29.1, 0.812)
pt3dadd(-62.026, 255.37, -29.1, 0.806)
pt3dadd(-62.134, 255.42, -29.1, 0.802)
pt3dadd(-62.245, 255.466, -29.1, 0.798)
pt3dadd(-62.356, 255.511, -29.1, 0.792)
pt3dadd(-62.467, 255.557, -29.1, 0.788)
pt3dadd(-62.578, 255.602, -29.1, 0.784)
pt3dadd(-62.689, 255.648, -29.1, 0.778)
pt3dadd(-62.791, 255.712, -29.1, 0.778)
pt3dadd(-62.892, 255.776, -29.1, 0.778)
pt3dadd(-62.978, 255.859, -29.104, 0.788)
pt3dadd(-63.06, 255.947, -29.11, 0.8)
pt3dadd(-63.154, 256.004, -29.141, 0.804)
pt3dadd(-63.253, 256.05, -29.183, 0.804)
pt3dadd(-63.347, 256.097, -29.231, 0.78)
pt3dadd(-63.439, 256.144, -29.281, 0.752)
pt3dadd(-63.496, 256.154, -29.369, 0.734)
pt3dadd(-63.57, 256.176, -29.444, 0.728)
pt3dadd(-63.654, 256.204, -29.512, 0.728)
pt3dadd(-63.737, 256.231, -29.58, 0.728)
pt3dadd(-63.821, 256.258, -29.648, 0.728)
pt3dadd(-63.906, 256.285, -29.714, 0.73)
pt3dadd(-63.997, 256.316, -29.775, 0.736)
pt3dadd(-64.087, 256.346, -29.836, 0.74)
pt3dadd(-64.177, 256.378, -29.896, 0.746)
pt3dadd(-64.267, 256.408, -29.957, 0.752)
pt3dadd(-64.377, 256.416, -29.995, 0.744)
pt3dadd(-64.49, 256.42, -30.028, 0.734)
pt3dadd(-64.575, 256.445, -30.083, 0.722)
pt3dadd(-64.632, 256.49, -30.163, 0.708)
pt3dadd(-64.73, 256.52, -30.182, 0.696)
pt3dadd(-64.847, 256.542, -30.173, 0.684)
pt3dadd(-64.964, 256.556, -30.155, 0.678)
pt3dadd(-65.079, 256.56, -30.128, 0.678)
pt3dadd(-65.194, 256.565, -30.101, 0.678)
pt3dadd(-65.314, 256.576, -30.1, 0.692)
pt3dadd(-65.432, 256.59, -30.1, 0.704)
pt3dadd(-65.544, 256.636, -30.1, 0.714)
pt3dadd(-65.655, 256.681, -30.1, 0.722)
pt3dadd(-65.766, 256.727, -30.1, 0.732)
pt3dadd(-65.877, 256.772, -30.1, 0.74)
pt3dadd(-65.988, 256.818, -30.1, 0.75)
pt3dadd(-66.104, 256.836, -30.1, 0.77)
pt3dadd(-66.224, 256.841, -30.1, 0.794)
pt3dadd(-66.344, 256.844, -30.1, 0.82)
pt3dadd(-66.464, 256.849, -30.1, 0.84)
pt3dadd(-66.584, 256.853, -30.1, 0.856)
pt3dadd(-66.704, 256.858, -30.1, 0.872)
pt3dadd(-66.823, 256.861, -30.111, 0.878)
pt3dadd(-66.941, 256.866, -30.128, 0.878)
pt3dadd(-67.055, 256.87, -30.149, 0.878)
pt3dadd(-67.095, 256.871, -30.243, 0.868)
pt3dadd(-67.135, 256.872, -30.338, 0.856)
pt3dadd(-67.206, 256.874, -30.416, 0.83)
pt3dadd(-67.284, 256.878, -30.49, 0.804)
pt3dadd(-67.347, 256.879, -30.576, 0.804)
pt3dadd(-67.41, 256.882, -30.661, 0.804)
pt3dadd(-67.473, 256.884, -30.746, 0.804)
pt3dadd(-67.536, 256.886, -30.831, 0.804)
pt3dadd(-67.597, 256.889, -30.917, 0.806)
pt3dadd(-67.65, 256.89, -31.007, 0.816)
pt3dadd(-67.704, 256.892, -31.096, 0.828)
pt3dadd(-67.79, 256.895, -31.165, 0.874)
pt3dadd(-67.878, 256.898, -31.233, 0.922)
pt3dadd(-67.932, 256.901, -31.321, 0.956)
pt3dadd(-67.978, 256.902, -31.413, 0.99)
pt3dadd(-68.063, 256.904, -31.465, 1.01)
pt3dadd(-68.181, 256.909, -31.482, 1.02)
pt3dadd(-68.3, 256.913, -31.499, 1.03)
pt3dadd(-68.419, 256.918, -31.5, 0.994)
pt3dadd(-68.539, 256.921, -31.5, 0.956)
pt3dadd(-68.65, 256.925, -31.538, 0.936)
pt3dadd(-68.76, 256.93, -31.577, 0.918)
pt3dadd(-68.87, 256.933, -31.617, 0.898)
pt3dadd(-68.98, 256.937, -31.656, 0.88)
pt3dadd(-69.09, 256.94, -31.696, 0.862)
pt3dadd(-69.206, 256.945, -31.72, 0.842)
pt3dadd(-69.325, 256.949, -31.734, 0.82)
pt3dadd(-69.443, 256.954, -31.749, 0.8)
pt3dadd(-69.562, 256.957, -31.763, 0.78)
pt3dadd(-69.681, 256.961, -31.778, 0.76)
pt3dadd(-69.799, 256.966, -31.792, 0.74)
pt3dadd(-69.908, 256.969, -31.827, 0.72)
pt3dadd(-70.004, 256.973, -31.887, 0.7)
pt3dadd(-70.1, 256.976, -31.947, 0.68)
pt3dadd(-70.196, 256.979, -32.007, 0.66)
pt3dadd(-70.292, 256.982, -32.067, 0.638)
pt3dadd(-70.394, 256.996, -32.115, 0.618)
pt3dadd(-70.503, 257.022, -32.15, 0.598)
pt3dadd(-70.613, 257.048, -32.184, 0.576)
pt3dadd(-70.722, 257.074, -32.219, 0.556)
pt3dadd(-70.832, 257.1, -32.254, 0.536)
pt3dadd(-70.932, 257.113, -32.304, 0.528)
pt3dadd(-71.027, 257.119, -32.365, 0.528)
pt3dadd(-71.122, 257.125, -32.427, 0.528)
pt3dadd(-71.217, 257.131, -32.487, 0.528)
pt3dadd(-71.312, 257.137, -32.549, 0.528)
pt3dadd(-71.416, 257.142, -32.596, 0.54)
pt3dadd(-71.525, 257.146, -32.639, 0.56)
pt3dadd(-71.634, 257.149, -32.681, 0.578)
pt3dadd(-71.743, 257.154, -32.723, 0.598)
pt3dadd(-71.851, 257.158, -32.765, 0.616)
pt3dadd(-71.965, 257.162, -32.79, 0.636)
pt3dadd(-72.085, 257.168, -32.791, 0.654)
pt3dadd(-72.205, 257.174, -32.793, 0.672)
pt3dadd(-72.324, 257.18, -32.795, 0.692)
pt3dadd(-72.444, 257.186, -32.796, 0.71)
pt3dadd(-72.564, 257.192, -32.798, 0.728)
pt3dadd(-72.684, 257.198, -32.799, 0.746)
pt3dadd(-72.799, 257.218, -32.817, 0.762)
pt3dadd(-72.912, 257.243, -32.844, 0.778)
pt3dadd(-73.025, 257.268, -32.87, 0.794)
pt3dadd(-73.138, 257.293, -32.897, 0.808)
pt3dadd(-73.251, 257.318, -32.923, 0.822)
pt3dadd(-73.356, 257.358, -32.957, 0.826)
pt3dadd(-73.455, 257.407, -32.995, 0.82)
pt3dadd(-73.554, 257.458, -33.033, 0.814)
pt3dadd(-73.653, 257.507, -33.071, 0.808)
pt3dadd(-73.752, 257.555, -33.112, 0.806)
pt3dadd(-73.847, 257.602, -33.159, 0.818)
pt3dadd(-73.942, 257.648, -33.205, 0.83)
pt3dadd(-74.037, 257.695, -33.252, 0.842)
pt3dadd(-74.132, 257.743, -33.299, 0.854)
pt3dadd(-74.249, 257.764, -33.312, 0.866)
pt3dadd(-74.366, 257.784, -33.323, 0.88)
pt3dadd(-74.484, 257.806, -33.335, 0.894)
pt3dadd(-74.601, 257.826, -33.347, 0.906)
pt3dadd(-74.718, 257.846, -33.359, 0.92)
pt3dadd(-74.834, 257.862, -33.378, 0.936)
pt3dadd(-74.947, 257.866, -33.413, 0.954)
pt3dadd(-75.059, 257.869, -33.448, 0.972)
pt3dadd(-75.172, 257.874, -33.482, 0.99)
pt3dadd(-75.284, 257.878, -33.517, 1.01)
pt3dadd(-75.397, 257.881, -33.552, 1.028)
pt3dadd(-75.504, 257.885, -33.595, 1.03)
pt3dadd(-75.612, 257.888, -33.64, 1.03)
pt3dadd(-75.719, 257.892, -33.685, 1.03)
pt3dadd(-75.826, 257.897, -33.729, 1.03)
pt3dadd(-75.934, 257.9, -33.774, 1.03)
pt3dadd(-76.044, 257.904, -33.814, 1.024)
pt3dadd(-76.155, 257.908, -33.851, 1.014)
pt3dadd(-76.266, 257.911, -33.888, 1.004)
pt3dadd(-76.378, 257.916, -33.925, 0.996)
pt3dadd(-76.489, 257.92, -33.962, 0.986)
pt3dadd(-76.602, 257.923, -33.994, 0.976)
pt3dadd(-76.72, 257.928, -34.011, 0.966)
pt3dadd(-76.839, 257.932, -34.028, 0.958)
pt3dadd(-76.949, 257.935, -34.064, 0.962)
pt3dadd(-77.057, 257.939, -34.109, 0.974)
pt3dadd(-77.155, 257.942, -34.164, 0.984)
pt3dadd(-77.243, 257.946, -34.232, 0.996)
pt3dadd(-77.317, 257.957, -34.307, 1)
pt3dadd(-77.363, 257.986, -34.396, 0.988)
pt3dadd(-77.407, 258.038, -34.47, 0.972)
pt3dadd(-77.446, 258.138, -34.513, 0.946)
pt3dadd(-77.486, 258.239, -34.556, 0.922)
pt3dadd(-77.545, 258.317, -34.594, 0.902)
pt3dadd(-77.661, 258.32, -34.616, 0.892)
pt3dadd(-77.778, 258.325, -34.639, 0.882)
pt3dadd(-77.849, 258.328, -34.71, 0.872)
pt3dadd(-77.902, 258.329, -34.8, 0.864)
pt3dadd(-77.956, 258.331, -34.889, 0.856)
pt3dadd(-77.985, 258.336, -34.985, 0.846)
pt3dadd(-78.006, 258.342, -35.084, 0.836)
pt3dadd(-78.049, 258.359, -35.165, 0.818)
pt3dadd(-78.152, 258.404, -35.2, 0.778)
pt3dadd(-78.255, 258.45, -35.234, 0.74)
pt3dadd(-78.325, 258.496, -35.301, 0.688)
pt3dadd(-78.382, 258.541, -35.38, 0.634)
pt3dadd(-78.478, 258.596, -35.41, 0.524)
pt3dadd(-78.58, 258.629, -35.455, 0.514)
pt3dadd(-78.682, 258.662, -35.499, 0.502)
pt3dadd(-78.785, 258.696, -35.543, 0.492)
pt3dadd(-78.887, 258.728, -35.588, 0.48)
pt3dadd(-78.969, 258.779, -35.646, 0.466)
pt3dadd(-79.043, 258.834, -35.709, 0.452)
pt3dadd(-79.154, 258.846, -35.745, 0.462)
pt3dadd(-79.266, 258.856, -35.779, 0.474)
pt3dadd(-79.383, 258.862, -35.779, 0.492)
pt3dadd(-79.502, 258.865, -35.766, 0.512)
pt3dadd(-79.605, 258.88, -35.736, 0.542)
pt3dadd(-79.662, 258.926, -35.657, 0.596)
pt3dadd(-79.746, 258.958, -35.613, 0.638)
pt3dadd(-79.865, 258.972, -35.619, 0.662)
pt3dadd(-79.984, 258.985, -35.624, 0.686)
pt3dadd(-80.103, 258.998, -35.629, 0.708)
pt3dadd(-80.221, 259.01, -35.638, 0.736)
pt3dadd(-80.338, 259.014, -35.662, 0.78)
pt3dadd(-80.454, 259.019, -35.686, 0.824)
pt3dadd(-80.546, 259.021, -35.629, 0.836)
pt3dadd(-80.636, 259.025, -35.563, 0.846)
pt3dadd(-80.726, 259.028, -35.497, 0.854)
pt3dadd(-80.833, 259.032, -35.453, 0.854)
pt3dadd(-80.941, 259.036, -35.408, 0.854)
pt3dadd(-81.058, 259.039, -35.4, 0.848)
pt3dadd(-81.178, 259.044, -35.4, 0.842)
pt3dadd(-81.298, 259.048, -35.4, 0.836)
pt3dadd(-81.418, 259.052, -35.4, 0.83)
pt3dadd(-81.538, 259.056, -35.4, 0.836)
}
}
proc shape3d_58() {
dend_5[6] { pt3dadd(-81.658, 259.061, -35.4, 0.844)
pt3dadd(-81.778, 259.064, -35.4, 0.852)
pt3dadd(-81.898, 259.069, -35.4, 0.874)
pt3dadd(-82.018, 259.073, -35.4, 0.878)
pt3dadd(-82.138, 259.078, -35.4, 0.878)
pt3dadd(-82.258, 259.081, -35.4, 0.878)
pt3dadd(-82.378, 259.086, -35.4, 0.878)
pt3dadd(-82.498, 259.09, -35.4, 0.878)
pt3dadd(-82.617, 259.094, -35.4, 0.878)
pt3dadd(-82.737, 259.098, -35.4, 0.878)
pt3dadd(-82.857, 259.103, -35.4, 0.87)
pt3dadd(-82.977, 259.106, -35.4, 0.86)
pt3dadd(-83.097, 259.111, -35.4, 0.848)
pt3dadd(-83.217, 259.115, -35.4, 0.838)
pt3dadd(-83.337, 259.12, -35.4, 0.828)
pt3dadd(-83.457, 259.123, -35.4, 0.816)
pt3dadd(-83.577, 259.128, -35.4, 0.806)
pt3dadd(-83.697, 259.132, -35.401, 0.788)
pt3dadd(-83.817, 259.136, -35.403, 0.77)
pt3dadd(-83.937, 259.14, -35.405, 0.752)
pt3dadd(-84.057, 259.145, -35.406, 0.734)
pt3dadd(-84.176, 259.148, -35.408, 0.716)
pt3dadd(-84.296, 259.153, -35.409, 0.698)
pt3dadd(-84.416, 259.157, -35.411, 0.68)
pt3dadd(-84.532, 259.16, -35.437, 0.662)
pt3dadd(-84.647, 259.165, -35.464, 0.644)
pt3dadd(-84.762, 259.169, -35.492, 0.626)
pt3dadd(-84.878, 259.174, -35.519, 0.608)
pt3dadd(-84.993, 259.177, -35.547, 0.59)
pt3dadd(-85.108, 259.192, -35.568, 0.578)
pt3dadd(-85.22, 259.234, -35.575, 0.578)
pt3dadd(-85.332, 259.276, -35.581, 0.578)
pt3dadd(-85.444, 259.316, -35.587, 0.578)
pt3dadd(-85.556, 259.358, -35.594, 0.578)
pt3dadd(-85.669, 259.4, -35.6, 0.578)
pt3dadd(-85.778, 259.45, -35.6, 0.6)
pt3dadd(-85.888, 259.498, -35.6, 0.624)
pt3dadd(-85.998, 259.546, -35.6, 0.648)
pt3dadd(-86.108, 259.595, -35.6, 0.67)
pt3dadd(-86.218, 259.643, -35.6, 0.694)
pt3dadd(-86.333, 259.668, -35.604, 0.72)
pt3dadd(-86.452, 259.679, -35.611, 0.748)
pt3dadd(-86.571, 259.69, -35.618, 0.776)
pt3dadd(-86.691, 259.7, -35.626, 0.804)
pt3dadd(-86.81, 259.71, -35.633, 0.832)
pt3dadd(-86.929, 259.721, -35.64, 0.86)
pt3dadd(-87.036, 259.73, -35.67, 0.906)
pt3dadd(-87.12, 259.74, -35.74, 0.978)
pt3dadd(-87.204, 259.774, -35.791, 1.034)
pt3dadd(-87.286, 259.862, -35.796, 1.046)
pt3dadd(-87.376, 259.933, -35.8, 1.05)
pt3dadd(-87.494, 259.957, -35.8, 1.03)
pt3dadd(-87.611, 259.982, -35.8, 1.01)
pt3dadd(-87.731, 259.993, -35.8, 0.976)
pt3dadd(-87.85, 259.997, -35.8, 0.934)
pt3dadd(-87.97, 260.002, -35.8, 0.892)
pt3dadd(-88.088, 260.021, -35.8, 0.85)
pt3dadd(-88.205, 260.048, -35.8, 0.806)
pt3dadd(-88.322, 260.07, -35.816, 0.79)
pt3dadd(-88.438, 260.092, -35.832, 0.776)
pt3dadd(-88.554, 260.112, -35.848, 0.762)
pt3dadd(-88.671, 260.134, -35.865, 0.748)
pt3dadd(-88.788, 260.155, -35.881, 0.734)
pt3dadd(-88.893, 260.194, -35.909, 0.726)
pt3dadd(-88.988, 260.25, -35.948, 0.72)
pt3dadd(-89.083, 260.306, -35.987, 0.714)
pt3dadd(-89.178, 260.364, -36.026, 0.708)
pt3dadd(-89.277, 260.407, -36.064, 0.704)
pt3dadd(-89.39, 260.411, -36.098, 0.708)
pt3dadd(-89.502, 260.416, -36.133, 0.714)
pt3dadd(-89.614, 260.419, -36.168, 0.718)
pt3dadd(-89.727, 260.423, -36.202, 0.722)
pt3dadd(-89.839, 260.426, -36.237, 0.728)
pt3dadd(-89.938, 260.474, -36.273, 0.742)
pt3dadd(-90.033, 260.534, -36.31, 0.76)
pt3dadd(-90.127, 260.593, -36.346, 0.778)
pt3dadd(-90.222, 260.653, -36.382, 0.796)
pt3dadd(-90.321, 260.711, -36.411, 0.818)
pt3dadd(-90.423, 260.767, -36.433, 0.846)
pt3dadd(-90.526, 260.822, -36.455, 0.872)
pt3dadd(-90.629, 260.879, -36.477, 0.9)
pt3dadd(-90.732, 260.935, -36.498, 0.928)
pt3dadd(-90.833, 260.994, -36.521, 0.94)
pt3dadd(-90.934, 261.053, -36.543, 0.95)
pt3dadd(-91.035, 261.113, -36.565, 0.962)
pt3dadd(-91.136, 261.172, -36.587, 0.972)
pt3dadd(-91.243, 261.217, -36.6, 0.98)
pt3dadd(-91.361, 261.241, -36.6, 0.98)
pt3dadd(-91.478, 261.265, -36.6, 0.98)
pt3dadd(-91.596, 261.289, -36.6, 0.98)
pt3dadd(-91.714, 261.313, -36.6, 0.98)
pt3dadd(-91.831, 261.337, -36.6, 0.98)
pt3dadd(-91.948, 261.362, -36.6, 0.976)
pt3dadd(-92.065, 261.391, -36.6, 0.962)
pt3dadd(-92.181, 261.42, -36.6, 0.95)
pt3dadd(-92.298, 261.449, -36.6, 0.936)
pt3dadd(-92.414, 261.478, -36.6, 0.924)
pt3dadd(-92.531, 261.506, -36.6, 0.912)
pt3dadd(-92.646, 261.54, -36.6, 0.9)
pt3dadd(-92.759, 261.58, -36.6, 0.892)
pt3dadd(-92.872, 261.619, -36.6, 0.882)
pt3dadd(-92.986, 261.659, -36.6, 0.874)
pt3dadd(-93.099, 261.7, -36.6, 0.864)
pt3dadd(-93.212, 261.739, -36.6, 0.856)
pt3dadd(-93.331, 261.75, -36.603, 0.854)
pt3dadd(-93.45, 261.754, -36.607, 0.854)
pt3dadd(-93.57, 261.758, -36.611, 0.854)
pt3dadd(-93.657, 261.767, -36.677, 0.854)
pt3dadd(-93.742, 261.776, -36.747, 0.854)
pt3dadd(-93.806, 261.863, -36.782, 0.842)
pt3dadd(-93.868, 261.959, -36.813, 0.828)
pt3dadd(-93.942, 262.037, -36.857, 0.784)
pt3dadd(-94.022, 262.098, -36.873, 0.748)
pt3dadd(-94.121, 262.114, -36.818, 0.734)
pt3dadd(-94.22, 262.129, -36.763, 0.718)
pt3dadd(-94.317, 262.147, -36.707, 0.702)
pt3dadd(-94.398, 262.195, -36.645, 0.688)
pt3dadd(-94.486, 262.24, -36.609, 0.678)
pt3dadd(-94.595, 262.272, -36.642, 0.678)
pt3dadd(-94.644, 262.276, -36.73, 0.714)
pt3dadd(-94.659, 262.277, -36.829, 0.786)
pt3dadd(-94.681, 262.277, -36.927, 0.904)
pt3dadd(-94.73, 262.291, -37.016, 1.022)
pt3dadd(-94.802, 262.331, -37.089, 0.996)
pt3dadd(-94.886, 262.361, -37.155, 0.974)
pt3dadd(-94.971, 262.392, -37.221, 0.95)
pt3dadd(-95.055, 262.421, -37.287, 0.928)
pt3dadd(-95.14, 262.452, -37.354, 0.904)
pt3dadd(-95.225, 262.51, -37.405, 0.88)
pt3dadd(-95.311, 262.567, -37.457, 0.856)
pt3dadd(-95.396, 262.625, -37.508, 0.832)
pt3dadd(-95.481, 262.684, -37.559, 0.808)
pt3dadd(-95.535, 262.758, -37.618, 0.754)
pt3dadd(-95.584, 262.802, -37.701, 0.728)
pt3dadd(-95.634, 262.856, -37.777, 0.67)
pt3dadd(-95.733, 262.904, -37.779, 0.588)
pt3dadd(-95.82, 262.918, -37.714, 0.552)
pt3dadd(-95.878, 262.92, -37.627, 0.612)
pt3dadd(-95.94, 262.952, -37.547, 0.714)
pt3dadd(-96.017, 263.032, -37.53, 0.736)
pt3dadd(-96.095, 263.101, -37.577, 0.706)
pt3dadd(-96.193, 263.154, -37.612, 0.72)
pt3dadd(-96.291, 263.208, -37.648, 0.744)
pt3dadd(-96.39, 263.261, -37.684, 0.786)
pt3dadd(-96.482, 263.298, -37.736, 0.826)
pt3dadd(-96.57, 263.323, -37.801, 0.864)
pt3dadd(-96.658, 263.346, -37.866, 0.904)
pt3dadd(-96.658, 263.378, -37.962, 0.904)
pt3dadd(-96.657, 263.412, -38.058, 0.904)
pt3dadd(-96.68, 263.428, -38.153, 0.894)
pt3dadd(-96.723, 263.429, -38.246, 0.878)
pt3dadd(-96.766, 263.43, -38.339, 0.862)
pt3dadd(-96.845, 263.436, -38.385, 0.834)
pt3dadd(-96.964, 263.446, -38.376, 0.794)
pt3dadd(-97.083, 263.456, -38.367, 0.754)
pt3dadd(-97.184, 263.521, -38.367, 0.728)
pt3dadd(-97.284, 263.587, -38.368, 0.702)
pt3dadd(-97.378, 263.658, -38.385, 0.676)
pt3dadd(-97.469, 263.734, -38.4, 0.648)
pt3dadd(-97.548, 263.822, -38.4, 0.598)
pt3dadd(-97.639, 263.9, -38.4, 0.578)
pt3dadd(-97.743, 263.959, -38.404, 0.596)
pt3dadd(-97.821, 264.04, -38.433, 0.652)
pt3dadd(-97.872, 264.131, -38.481, 0.694)
pt3dadd(-97.97, 264.184, -38.479, 0.782)
pt3dadd(-98.045, 264.196, -38.408, 0.908)
pt3dadd(-98.083, 264.197, -38.313, 1.002)
pt3dadd(-98.148, 264.199, -38.234, 1.054)
pt3dadd(-98.261, 264.203, -38.205, 1.132)
pt3dadd(-98.381, 264.208, -38.2, 1.16)
pt3dadd(-98.501, 264.211, -38.2, 1.168)
pt3dadd(-98.621, 264.216, -38.2, 1.176)
pt3dadd(-98.74, 264.22, -38.207, 1.152)
pt3dadd(-98.859, 264.224, -38.22, 1.106)
pt3dadd(-98.978, 264.228, -38.232, 1.06)
pt3dadd(-99.086, 264.212, -38.268, 0.842)
pt3dadd(-99.203, 264.191, -38.274, 0.798)
pt3dadd(-99.321, 264.168, -38.28, 0.752)
pt3dadd(-99.439, 264.145, -38.286, 0.708)
pt3dadd(-99.557, 264.124, -38.292, 0.664)
pt3dadd(-99.674, 264.101, -38.298, 0.618)
pt3dadd(-99.792, 264.079, -38.3, 0.582)
pt3dadd(-99.91, 264.055, -38.3, 0.552)
pt3dadd(-100.027, 264.032, -38.3, 0.522)
pt3dadd(-100.145, 264.008, -38.3, 0.492)
pt3dadd(-100.263, 263.984, -38.3, 0.462)
pt3dadd(-100.38, 263.962, -38.3, 0.432)
pt3dadd(-100.499, 263.944, -38.3, 0.402)
pt3dadd(-100.618, 263.928, -38.3, 0.374)
pt3dadd(-100.732, 263.904, -38.29, 0.358)
pt3dadd(-100.829, 263.856, -38.247, 0.386)
pt3dadd(-100.927, 263.824, -38.199, 0.438)
pt3dadd(-101.027, 263.814, -38.144, 0.526)
pt3dadd(-101.113, 263.771, -38.099, 0.616)
pt3dadd(-101.182, 263.678, -38.069, 0.712)
pt3dadd(-101.212, 263.615, -38.003, 0.808)
pt3dadd(-101.214, 263.573, -37.909, 0.904)
pt3dadd(-101.219, 263.533, -37.816, 0.93)
pt3dadd(-101.253, 263.484, -37.73, 0.908)
pt3dadd(-101.311, 263.47, -37.644, 0.862)
}
}
proc shape3d_59() {
dend_5[6] { pt3dadd(-101.375, 263.472, -37.56, 0.774)
pt3dadd(-101.477, 263.474, -37.511, 0.702)
pt3dadd(-101.596, 263.479, -37.5, 0.678)
pt3dadd(-101.716, 263.483, -37.5, 0.678)
pt3dadd(-101.836, 263.488, -37.5, 0.678)
pt3dadd(-101.956, 263.491, -37.5, 0.678)
pt3dadd(-102.076, 263.496, -37.5, 0.682)
pt3dadd(-102.195, 263.5, -37.5, 0.71)
pt3dadd(-102.315, 263.504, -37.5, 0.754)
pt3dadd(-102.435, 263.508, -37.5, 0.766)
pt3dadd(-102.555, 263.513, -37.5, 0.776)
pt3dadd(-102.675, 263.516, -37.5, 0.788)
pt3dadd(-102.795, 263.521, -37.5, 0.798)
pt3dadd(-102.915, 263.525, -37.5, 0.808)
pt3dadd(-103.035, 263.53, -37.5, 0.82)
pt3dadd(-103.155, 263.533, -37.5, 0.83)
pt3dadd(-103.275, 263.538, -37.5, 0.832)
pt3dadd(-103.395, 263.542, -37.5, 0.836)
pt3dadd(-103.515, 263.546, -37.5, 0.84)
pt3dadd(-103.635, 263.55, -37.5, 0.844)
pt3dadd(-103.755, 263.555, -37.5, 0.848)
pt3dadd(-103.875, 263.558, -37.5, 0.85)
pt3dadd(-103.994, 263.563, -37.5, 0.854)
pt3dadd(-104.114, 263.567, -37.5, 0.854)
pt3dadd(-104.234, 263.572, -37.5, 0.854)
pt3dadd(-104.354, 263.575, -37.5, 0.854)
pt3dadd(-104.474, 263.58, -37.5, 0.854)
pt3dadd(-104.594, 263.584, -37.5, 0.854)
pt3dadd(-104.714, 263.588, -37.5, 0.854)
pt3dadd(-104.834, 263.592, -37.5, 0.852)
pt3dadd(-104.954, 263.597, -37.5, 0.846)
pt3dadd(-105.074, 263.6, -37.5, 0.838)
pt3dadd(-105.194, 263.605, -37.5, 0.832)
pt3dadd(-105.314, 263.609, -37.5, 0.824)
pt3dadd(-105.434, 263.614, -37.5, 0.816)
pt3dadd(-105.553, 263.617, -37.5, 0.81)
pt3dadd(-105.672, 263.629, -37.5, 0.802)
pt3dadd(-105.782, 263.677, -37.5, 0.798)
pt3dadd(-105.891, 263.725, -37.5, 0.794)
pt3dadd(-106.001, 263.773, -37.5, 0.788)
pt3dadd(-106.111, 263.821, -37.5, 0.784)
pt3dadd(-106.221, 263.87, -37.5, 0.78)
pt3dadd(-106.338, 263.886, -37.5, 0.776)
pt3dadd(-106.458, 263.893, -37.5, 0.772)
pt3dadd(-106.578, 263.898, -37.5, 0.768)
pt3dadd(-106.698, 263.905, -37.5, 0.764)
pt3dadd(-106.818, 263.911, -37.5, 0.76)
pt3dadd(-106.938, 263.917, -37.5, 0.758)
pt3dadd(-107.057, 263.923, -37.5, 0.754)
pt3dadd(-107.169, 263.964, -37.5, 0.754)
pt3dadd(-107.28, 264.01, -37.5, 0.754)
pt3dadd(-107.391, 264.055, -37.5, 0.754)
pt3dadd(-107.503, 264.101, -37.5, 0.754)
pt3dadd(-107.614, 264.145, -37.5, 0.754)
pt3dadd(-107.728, 264.174, -37.505, 0.754)
pt3dadd(-107.847, 264.178, -37.515, 0.754)
pt3dadd(-107.967, 264.182, -37.526, 0.754)
pt3dadd(-108.086, 264.186, -37.536, 0.754)
pt3dadd(-108.205, 264.191, -37.546, 0.754)
pt3dadd(-108.324, 264.194, -37.557, 0.754)
pt3dadd(-108.444, 264.198, -37.567, 0.752)
pt3dadd(-108.563, 264.203, -37.58, 0.744)
pt3dadd(-108.682, 264.206, -37.592, 0.734)
pt3dadd(-108.801, 264.211, -37.6, 0.728)
pt3dadd(-108.921, 264.215, -37.6, 0.728)
pt3dadd(-109.041, 264.22, -37.6, 0.728)
pt3dadd(-109.16, 264.23, -37.6, 0.732)
pt3dadd(-109.277, 264.256, -37.6, 0.742)
pt3dadd(-109.395, 264.28, -37.6, 0.752)
pt3dadd(-109.454, 264.373, -37.6, 0.77)
pt3dadd(-109.496, 264.485, -37.6, 0.792)
pt3dadd(-109.57, 264.564, -37.612, 0.804)
pt3dadd(-109.675, 264.607, -37.641, 0.8)
pt3dadd(-109.763, 264.656, -37.697, 0.772)
pt3dadd(-109.85, 264.712, -37.746, 0.744)
pt3dadd(-109.937, 264.781, -37.783, 0.716)
pt3dadd(-110.034, 264.845, -37.8, 0.696)
pt3dadd(-110.139, 264.901, -37.8, 0.686)
pt3dadd(-110.249, 264.947, -37.8, 0.678)
pt3dadd(-110.367, 264.966, -37.8, 0.678)
pt3dadd(-110.486, 264.984, -37.8, 0.678)
pt3dadd(-110.605, 264.995, -37.8, 0.678)
pt3dadd(-110.725, 264.998, -37.8, 0.678)
pt3dadd(-110.844, 265.004, -37.811, 0.684)
pt3dadd(-110.962, 265.01, -37.827, 0.692)
pt3dadd(-111.08, 265.018, -37.844, 0.7)
pt3dadd(-111.198, 265.024, -37.861, 0.708)
pt3dadd(-111.316, 265.03, -37.877, 0.716)
pt3dadd(-111.435, 265.036, -37.894, 0.726)
pt3dadd(-111.551, 265.054, -37.912, 0.738)
pt3dadd(-111.666, 265.079, -37.931, 0.752)
pt3dadd(-111.781, 265.103, -37.95, 0.766)
pt3dadd(-111.897, 265.127, -37.969, 0.78)
pt3dadd(-112.012, 265.151, -37.988, 0.794)
pt3dadd(-112.128, 265.168, -38.006, 0.81)
pt3dadd(-112.247, 265.172, -38.022, 0.826)
pt3dadd(-112.365, 265.176, -38.039, 0.842)
pt3dadd(-112.483, 265.18, -38.055, 0.86)
pt3dadd(-112.602, 265.184, -38.072, 0.876)
pt3dadd(-112.72, 265.188, -38.088, 0.892)
pt3dadd(-112.839, 265.193, -38.1, 0.906)
pt3dadd(-112.959, 265.196, -38.1, 0.914)
pt3dadd(-113.079, 265.201, -38.1, 0.92)
pt3dadd(-113.198, 265.205, -38.1, 0.928)
pt3dadd(-113.318, 265.21, -38.1, 0.934)
pt3dadd(-113.438, 265.213, -38.1, 0.942)
pt3dadd(-113.558, 265.218, -38.1, 0.948)
pt3dadd(-113.678, 265.222, -38.1, 0.956)
pt3dadd(-113.798, 265.226, -38.1, 0.958)
pt3dadd(-113.918, 265.23, -38.1, 0.962)
pt3dadd(-114.038, 265.235, -38.1, 0.966)
pt3dadd(-114.158, 265.238, -38.1, 0.97)
pt3dadd(-114.278, 265.243, -38.1, 0.974)
pt3dadd(-114.398, 265.247, -38.1, 0.976)
pt3dadd(-114.517, 265.252, -38.105, 0.98)
pt3dadd(-114.636, 265.255, -38.121, 0.98)
pt3dadd(-114.754, 265.26, -38.138, 0.98)
pt3dadd(-114.872, 265.264, -38.154, 0.98)
pt3dadd(-114.99, 265.267, -38.17, 0.98)
pt3dadd(-115.109, 265.272, -38.187, 0.98)
pt3dadd(-115.227, 265.276, -38.205, 0.978)
pt3dadd(-115.343, 265.28, -38.228, 0.974)
pt3dadd(-115.46, 265.284, -38.25, 0.97)
pt3dadd(-115.577, 265.288, -38.273, 0.966)
pt3dadd(-115.694, 265.292, -38.296, 0.962)
pt3dadd(-115.81, 265.296, -38.319, 0.956)
pt3dadd(-115.925, 265.291, -38.347, 0.952)
pt3dadd(-116.035, 265.27, -38.382, 0.946)
pt3dadd(-116.145, 265.248, -38.417, 0.942)
pt3dadd(-116.256, 265.226, -38.452, 0.936)
pt3dadd(-116.366, 265.205, -38.487, 0.932)
pt3dadd(-116.482, 265.2, -38.5, 0.924)
pt3dadd(-116.602, 265.204, -38.5, 0.918)
pt3dadd(-116.722, 265.208, -38.5, 0.91)
pt3dadd(-116.842, 265.212, -38.5, 0.904)
pt3dadd(-116.962, 265.217, -38.5, 0.896)
pt3dadd(-117.082, 265.22, -38.5, 0.888)
pt3dadd(-117.202, 265.225, -38.5, 0.882)
pt3dadd(-117.322, 265.229, -38.503, 0.874)
pt3dadd(-117.441, 265.234, -38.508, 0.866)
pt3dadd(-117.561, 265.237, -38.513, 0.86)
pt3dadd(-117.681, 265.242, -38.518, 0.852)
pt3dadd(-117.801, 265.246, -38.523, 0.844)
pt3dadd(-117.921, 265.25, -38.528, 0.836)
pt3dadd(-118.04, 265.254, -38.533, 0.828)
pt3dadd(-118.16, 265.259, -38.543, 0.822)
pt3dadd(-118.279, 265.262, -38.554, 0.814)
pt3dadd(-118.398, 265.266, -38.564, 0.806)
pt3dadd(-118.517, 265.271, -38.575, 0.798)
pt3dadd(-118.637, 265.274, -38.585, 0.79)
pt3dadd(-118.756, 265.279, -38.596, 0.782)
pt3dadd(-118.872, 265.283, -38.618, 0.776)
pt3dadd(-118.987, 265.288, -38.647, 0.772)
pt3dadd(-119.101, 265.291, -38.677, 0.766)
pt3dadd(-119.216, 265.295, -38.707, 0.762)
pt3dadd(-119.33, 265.3, -38.737, 0.758)
pt3dadd(-119.445, 265.303, -38.767, 0.754)
pt3dadd(-119.56, 265.301, -38.795, 0.754)
pt3dadd(-119.675, 265.301, -38.824, 0.754)
pt3dadd(-119.765, 265.249, -38.864, 0.744)
pt3dadd(-119.844, 265.176, -38.908, 0.73)
pt3dadd(-119.914, 265.124, -38.975, 0.742)
pt3dadd(-119.979, 265.081, -39.049, 0.756)
pt3dadd(-120.019, 265.084, -39.143, 0.778)
pt3dadd(-120.059, 265.085, -39.238, 0.8)
pt3dadd(-120.16, 265.088, -39.278, 0.824)
pt3dadd(-120.275, 265.092, -39.305, 0.848)
pt3dadd(-120.39, 265.096, -39.333, 0.874)
pt3dadd(-120.505, 265.1, -39.36, 0.898)
pt3dadd(-120.623, 265.104, -39.376, 0.918)
pt3dadd(-120.743, 265.109, -39.389, 0.936)
pt3dadd(-120.862, 265.112, -39.4, 0.96)
pt3dadd(-120.982, 265.117, -39.4, 1.032)
pt3dadd(-121.102, 265.121, -39.4, 1.056)
pt3dadd(-121.222, 265.126, -39.4, 1.082)
pt3dadd(-121.342, 265.129, -39.4, 1.106)
pt3dadd(-121.46, 265.133, -39.404, 1.124)
pt3dadd(-121.58, 265.138, -39.408, 1.142)
pt3dadd(-121.694, 265.14, -39.424, 1.15)
pt3dadd(-121.778, 265.138, -39.495, 1.126)
pt3dadd(-121.862, 265.121, -39.559, 1.096)
pt3dadd(-121.937, 265.031, -39.583, 1.028)
pt3dadd(-122.022, 264.958, -39.6, 0.958)
pt3dadd(-122.138, 264.929, -39.6, 0.882)
pt3dadd(-122.255, 264.91, -39.612, 0.844)
pt3dadd(-122.372, 264.896, -39.631, 0.83)
pt3dadd(-122.489, 264.883, -39.649, 0.816)
pt3dadd(-122.606, 264.87, -39.668, 0.802)
pt3dadd(-122.724, 264.857, -39.686, 0.788)
pt3dadd(-122.838, 264.83, -39.7, 0.778)
pt3dadd(-122.944, 264.774, -39.7, 0.778)
pt3dadd(-123.049, 264.718, -39.7, 0.78)
pt3dadd(-123.163, 264.682, -39.705, 0.802)
pt3dadd(-123.277, 264.643, -39.71, 0.824)
pt3dadd(-123.36, 264.622, -39.773, 0.85)
pt3dadd(-123.437, 264.605, -39.848, 0.876)
pt3dadd(-123.551, 264.606, -39.876, 0.888)
pt3dadd(-123.667, 264.61, -39.898, 0.898)
pt3dadd(-123.775, 264.614, -39.936, 0.896)
pt3dadd(-123.869, 264.617, -39.998, 0.88)
}
}
proc shape3d_60() {
dend_5[6] { pt3dadd(-123.972, 264.62, -40.049, 0.846)
pt3dadd(-124.075, 264.624, -40.1, 0.812)
pt3dadd(-124.184, 264.628, -40.142, 0.77)
pt3dadd(-124.295, 264.632, -40.18, 0.726)
pt3dadd(-124.381, 264.635, -40.243, 0.692)
pt3dadd(-124.441, 264.637, -40.329, 0.668)
pt3dadd(-124.501, 264.619, -40.41, 0.658)
pt3dadd(-124.556, 264.552, -40.479, 0.672)
pt3dadd(-124.609, 264.503, -40.557, 0.682)
pt3dadd(-124.662, 264.466, -40.642, 0.69)
pt3dadd(-124.714, 264.43, -40.727, 0.698)
pt3dadd(-124.784, 264.409, -40.8, 0.698)
pt3dadd(-124.884, 264.413, -40.857, 0.686)
pt3dadd(-124.986, 264.416, -40.908, 0.676)
pt3dadd(-125.1, 264.42, -40.939, 0.668)
pt3dadd(-125.214, 264.424, -40.971, 0.66)
pt3dadd(-125.328, 264.428, -41, 0.654)
pt3dadd(-125.448, 264.432, -41, 0.68)
pt3dadd(-125.568, 264.437, -41, 0.706)
pt3dadd(-125.688, 264.44, -41, 0.736)
pt3dadd(-125.807, 264.445, -41.003, 0.83)
pt3dadd(-125.917, 264.449, -41.043, 0.844)
pt3dadd(-126.026, 264.452, -41.082, 0.858)
pt3dadd(-126.137, 264.456, -41.122, 0.872)
pt3dadd(-126.247, 264.46, -41.162, 0.886)
pt3dadd(-126.358, 264.464, -41.201, 0.9)
pt3dadd(-126.458, 264.468, -41.254, 0.9)
pt3dadd(-126.557, 264.47, -41.312, 0.896)
pt3dadd(-126.655, 264.474, -41.369, 0.89)
pt3dadd(-126.752, 264.478, -41.427, 0.886)
pt3dadd(-126.851, 264.481, -41.484, 0.88)
pt3dadd(-126.96, 264.464, -41.52, 0.876)
pt3dadd(-127.073, 264.442, -41.547, 0.87)
pt3dadd(-127.186, 264.419, -41.575, 0.864)
pt3dadd(-127.298, 264.395, -41.602, 0.86)
pt3dadd(-127.412, 264.371, -41.629, 0.854)
pt3dadd(-127.495, 264.306, -41.671, 0.83)
pt3dadd(-127.576, 264.235, -41.716, 0.8)
pt3dadd(-127.667, 264.186, -41.766, 0.772)
pt3dadd(-127.747, 264.152, -41.828, 0.742)
pt3dadd(-127.8, 264.154, -41.918, 0.708)
pt3dadd(-127.85, 264.158, -42.008, 0.674)
pt3dadd(-127.854, 264.193, -42.104, 0.632)
pt3dadd(-127.859, 264.228, -42.199, 0.588)
pt3dadd(-127.945, 264.248, -42.248, 0.556)
pt3dadd(-128.057, 264.263, -42.281, 0.53)
pt3dadd(-128.17, 264.277, -42.314, 0.502)
pt3dadd(-128.28, 264.29, -42.35, 0.474)
pt3dadd(-128.368, 264.294, -42.418, 0.426)
pt3dadd(-128.455, 264.296, -42.486, 0.378)
pt3dadd(-128.562, 264.302, -42.524, 0.35)
pt3dadd(-128.624, 264.31, -42.609, 0.338)
pt3dadd(-128.688, 264.322, -42.692, 0.326)
pt3dadd(-128.761, 264.382, -42.754, 0.326)
pt3dadd(-128.851, 264.42, -42.774, 0.316)
pt3dadd(-128.963, 264.43, -42.739, 0.294)
pt3dadd(-129.077, 264.439, -42.71, 0.276)
pt3dadd(-129.197, 264.443, -42.707, 0.276)
pt3dadd(-129.316, 264.448, -42.703, 0.276)
pt3dadd(-129.434, 264.451, -42.708, 0.28)
pt3dadd(-129.55, 264.455, -42.736, 0.296)
pt3dadd(-129.625, 264.488, -42.798, 0.32)
pt3dadd(-129.683, 264.534, -42.877, 0.348)
pt3dadd(-129.787, 264.56, -42.865, 0.362)
pt3dadd(-129.9, 264.586, -42.837, 0.374)
pt3dadd(-130.018, 264.592, -42.823, 0.376)
pt3dadd(-130.138, 264.596, -42.81, 0.376)
pt3dadd(-130.256, 264.598, -42.799, 0.378)
pt3dadd(-130.375, 264.586, -42.795, 0.388)
pt3dadd(-130.495, 264.575, -42.791, 0.398)
pt3dadd(-130.592, 264.539, -42.755, 0.428)
pt3dadd(-130.687, 264.497, -42.712, 0.46)
pt3dadd(-130.801, 264.474, -42.687, 0.48)
pt3dadd(-130.915, 264.451, -42.662, 0.502)
pt3dadd(-131.029, 264.427, -42.638, 0.522)
pt3dadd(-131.143, 264.406, -42.613, 0.542)
pt3dadd(-131.258, 264.384, -42.609, 0.562)
pt3dadd(-131.375, 264.365, -42.628, 0.58)
pt3dadd(-131.491, 264.346, -42.648, 0.6)
pt3dadd(-131.608, 264.326, -42.667, 0.62)
pt3dadd(-131.723, 264.308, -42.686, 0.638)
pt3dadd(-131.839, 264.295, -42.708, 0.662)
pt3dadd(-131.954, 264.299, -42.735, 0.692)
pt3dadd(-132.07, 264.304, -42.763, 0.724)
pt3dadd(-132.188, 264.307, -42.777, 0.728)
pt3dadd(-132.307, 264.312, -42.79, 0.728)
pt3dadd(-132.425, 264.322, -42.8, 0.722)
pt3dadd(-132.536, 264.366, -42.8, 0.69)
pt3dadd(-132.649, 264.41, -42.8, 0.66)
pt3dadd(-132.733, 264.491, -42.8, 0.606)
pt3dadd(-132.812, 264.581, -42.8, 0.546)
pt3dadd(-132.845, 264.692, -42.8, 0.45)
pt3dadd(-132.854, 264.812, -42.8, 0.338)
pt3dadd(-132.865, 264.931, -42.8, 0.226)
}
apic[10] {pt3dclear()
pt3dadd(9.381, 185.826, -7.811, 0.954)
pt3dadd(9.37, 185.815, -7.765, 0.976)
pt3dadd(9.345, 185.795, -7.669, 1.024)
pt3dadd(9.32, 185.773, -7.572, 1.072)
pt3dadd(9.295, 185.752, -7.476, 1.12)
pt3dadd(9.271, 185.73, -7.38, 1.168)
pt3dadd(9.246, 185.708, -7.284, 1.216)
pt3dadd(9.222, 185.688, -7.188, 1.264)
pt3dadd(9.197, 185.666, -7.091, 1.31)
pt3dadd(9.168, 185.646, -7, 1.37)
pt3dadd(9.048, 185.651, -7, 1.642)
pt3dadd(8.928, 185.654, -7, 1.788)
pt3dadd(8.808, 185.659, -7, 1.888)
pt3dadd(8.688, 185.663, -6.999, 1.992)
pt3dadd(8.57, 185.666, -6.985, 2.134)
pt3dadd(8.457, 185.671, -6.951, 2.27)
pt3dadd(8.35, 185.675, -6.906, 2.33)
pt3dadd(8.26, 185.677, -6.843, 2.37)
pt3dadd(8.222, 185.68, -6.749, 2.434)
pt3dadd(8.215, 185.68, -6.65, 2.474)
pt3dadd(8.215, 185.68, -6.55, 2.486)
pt3dadd(8.207, 185.68, -6.45, 2.486)
pt3dadd(8.161, 185.681, -6.361, 2.478)
pt3dadd(8.092, 185.683, -6.279, 2.468)
pt3dadd(8.001, 185.687, -6.228, 2.436)
pt3dadd(7.882, 185.69, -6.215, 2.38)
pt3dadd(7.764, 185.695, -6.203, 2.324)
pt3dadd(7.644, 185.699, -6.2, 2.082)
pt3dadd(7.524, 185.704, -6.2, 1.962)
pt3dadd(7.404, 185.707, -6.2, 1.902)
pt3dadd(7.284, 185.712, -6.2, 1.84)
pt3dadd(7.164, 185.716, -6.2, 1.78)
pt3dadd(7.044, 185.72, -6.2, 1.718)
pt3dadd(6.924, 185.724, -6.2, 1.658)
pt3dadd(6.804, 185.729, -6.2, 1.596)
pt3dadd(6.684, 185.732, -6.2, 1.544)
pt3dadd(6.564, 185.737, -6.2, 1.494)
pt3dadd(6.444, 185.741, -6.2, 1.444)
pt3dadd(6.325, 185.746, -6.2, 1.394)
pt3dadd(6.205, 185.749, -6.2, 1.342)
pt3dadd(6.085, 185.754, -6.2, 1.292)
pt3dadd(5.965, 185.758, -6.2, 1.242)
pt3dadd(5.849, 185.788, -6.2, 1.152)
pt3dadd(5.735, 185.825, -6.2, 1.048)
pt3dadd(5.62, 185.855, -6.2, 0.966)
pt3dadd(5.502, 185.874, -6.2, 0.93)
pt3dadd(5.382, 185.893, -6.2, 0.892)
pt3dadd(5.268, 185.928, -6.2, 0.866)
pt3dadd(5.157, 185.971, -6.2, 0.844)
pt3dadd(5.065, 186.035, -6.2, 0.828)
pt3dadd(5.023, 186.148, -6.2, 0.828)
pt3dadd(4.98, 186.259, -6.2, 0.828)
pt3dadd(4.866, 186.296, -6.2, 0.816)
pt3dadd(4.752, 186.334, -6.2, 0.804)
pt3dadd(4.636, 186.371, -6.2, 0.792)
pt3dadd(4.523, 186.407, -6.2, 0.778)
pt3dadd(4.403, 186.418, -6.2, 0.746)
pt3dadd(4.284, 186.426, -6.2, 0.71)
pt3dadd(4.168, 186.44, -6.2, 0.676)
pt3dadd(4.107, 186.545, -6.2, 0.642)
pt3dadd(4.047, 186.648, -6.2, 0.606)
pt3dadd(3.98, 186.746, -6.2, 0.576)
pt3dadd(3.884, 186.817, -6.2, 0.564)
pt3dadd(3.788, 186.889, -6.2, 0.552)
pt3dadd(3.707, 186.977, -6.2, 0.606)
pt3dadd(3.609, 187.046, -6.2, 0.616)
pt3dadd(3.511, 187.116, -6.2, 0.626)
pt3dadd(3.414, 187.186, -6.2, 0.636)
pt3dadd(3.315, 187.254, -6.2, 0.646)
pt3dadd(3.217, 187.324, -6.2, 0.654)
pt3dadd(3.117, 187.39, -6.2, 0.66)
pt3dadd(3.017, 187.457, -6.2, 0.664)
pt3dadd(2.918, 187.523, -6.2, 0.668)
pt3dadd(2.818, 187.589, -6.2, 0.674)
pt3dadd(2.721, 187.66, -6.2, 0.678)
pt3dadd(2.64, 187.748, -6.2, 0.684)
pt3dadd(2.56, 187.837, -6.2, 0.688)
pt3dadd(2.479, 187.926, -6.2, 0.694)
pt3dadd(2.398, 188.015, -6.2, 0.7)
pt3dadd(2.315, 188.099, -6.2, 0.704)
pt3dadd(2.214, 188.166, -6.2, 0.708)
pt3dadd(2.114, 188.232, -6.2, 0.714)
pt3dadd(2.014, 188.299, -6.2, 0.718)
pt3dadd(1.914, 188.365, -6.2, 0.724)
pt3dadd(1.817, 188.435, -6.2, 0.73)
pt3dadd(1.742, 188.53, -6.2, 0.74)
pt3dadd(1.669, 188.623, -6.2, 0.75)
pt3dadd(1.594, 188.717, -6.2, 0.76)
pt3dadd(1.519, 188.812, -6.2, 0.77)
pt3dadd(1.443, 188.904, -6.2, 0.778)
pt3dadd(1.357, 188.988, -6.2, 0.778)
pt3dadd(1.272, 189.071, -6.2, 0.778)
pt3dadd(1.16, 189.115, -6.2, 0.778)
pt3dadd(1.048, 189.158, -6.2, 0.778)
pt3dadd(0.939, 189.175, -6.23, 0.77)
pt3dadd(0.832, 189.179, -6.275, 0.76)
pt3dadd(0.746, 189.191, -6.337, 0.754)
pt3dadd(0.686, 189.214, -6.422, 0.754)
pt3dadd(0.624, 189.268, -6.484, 0.762)
pt3dadd(0.554, 189.352, -6.523, 0.78)
pt3dadd(0.469, 189.416, -6.569, 0.786)
pt3dadd(0.384, 189.481, -6.615, 0.792)
pt3dadd(0.299, 189.545, -6.661, 0.798)
pt3dadd(0.215, 189.613, -6.7, 0.806)
pt3dadd(0.137, 189.704, -6.7, 0.816)
pt3dadd(0.06, 189.797, -6.7, 0.826)
}
}
proc shape3d_61() {
apic[10] { pt3dadd(-0.017, 189.888, -6.7, 0.836)
pt3dadd(-0.094, 189.98, -6.7, 0.846)
pt3dadd(-0.174, 190.069, -6.7, 0.852)
pt3dadd(-0.263, 190.151, -6.7, 0.848)
pt3dadd(-0.352, 190.231, -6.7, 0.842)
pt3dadd(-0.441, 190.313, -6.7, 0.838)
pt3dadd(-0.529, 190.393, -6.7, 0.832)
pt3dadd(-0.616, 190.476, -6.7, 0.826)
pt3dadd(-0.697, 190.564, -6.697, 0.81)
pt3dadd(-0.779, 190.651, -6.695, 0.794)
pt3dadd(-0.862, 190.74, -6.693, 0.778)
pt3dadd(-0.943, 190.828, -6.69, 0.764)
pt3dadd(-1.034, 190.9, -6.682, 0.742)
pt3dadd(-1.143, 190.945, -6.664, 0.712)
pt3dadd(-1.251, 190.991, -6.646, 0.68)
pt3dadd(-1.362, 191.035, -6.627, 0.648)
pt3dadd(-1.47, 191.081, -6.609, 0.618)
pt3dadd(-1.581, 191.124, -6.6, 0.594)
pt3dadd(-1.693, 191.167, -6.6, 0.576)
pt3dadd(-1.805, 191.209, -6.6, 0.556)
pt3dadd(-1.917, 191.252, -6.6, 0.538)
pt3dadd(-2.03, 191.294, -6.6, 0.52)
pt3dadd(-2.141, 191.338, -6.6, 0.502)
pt3dadd(-2.227, 191.422, -6.6, 0.492)
pt3dadd(-2.313, 191.506, -6.6, 0.482)
pt3dadd(-2.399, 191.588, -6.6, 0.472)
pt3dadd(-2.485, 191.672, -6.6, 0.462)
pt3dadd(-2.571, 191.756, -6.6, 0.452)
pt3dadd(-2.655, 191.842, -6.6, 0.452)
pt3dadd(-2.74, 191.926, -6.6, 0.452)
pt3dadd(-2.857, 191.945, -6.6, 0.46)
pt3dadd(-2.977, 191.959, -6.6, 0.47)
pt3dadd(-3.094, 191.98, -6.601, 0.48)
pt3dadd(-3.192, 192.047, -6.606, 0.504)
pt3dadd(-3.289, 192.115, -6.613, 0.528)
pt3dadd(-3.312, 192.223, -6.651, 0.566)
pt3dadd(-3.337, 192.33, -6.689, 0.606)
pt3dadd(-3.413, 192.422, -6.697, 0.662)
pt3dadd(-3.5, 192.505, -6.7, 0.688)
pt3dadd(-3.591, 192.583, -6.7, 0.704)
pt3dadd(-3.682, 192.661, -6.7, 0.718)
pt3dadd(-3.773, 192.739, -6.7, 0.734)
pt3dadd(-3.864, 192.817, -6.7, 0.748)
pt3dadd(-3.957, 192.894, -6.7, 0.76)
pt3dadd(-4.051, 192.968, -6.7, 0.77)
pt3dadd(-4.144, 193.044, -6.7, 0.78)
pt3dadd(-4.238, 193.12, -6.7, 0.79)
pt3dadd(-4.331, 193.195, -6.7, 0.8)
pt3dadd(-4.422, 193.272, -6.7, 0.804)
pt3dadd(-4.513, 193.35, -6.7, 0.804)
pt3dadd(-4.604, 193.428, -6.7, 0.804)
pt3dadd(-4.696, 193.507, -6.7, 0.804)
pt3dadd(-4.787, 193.585, -6.7, 0.804)
pt3dadd(-4.886, 193.649, -6.714, 0.796)
pt3dadd(-4.988, 193.706, -6.734, 0.784)
pt3dadd(-5.091, 193.765, -6.753, 0.774)
pt3dadd(-5.193, 193.824, -6.772, 0.762)
pt3dadd(-5.294, 193.884, -6.789, 0.752)
pt3dadd(-5.394, 193.951, -6.791, 0.742)
pt3dadd(-5.492, 194.02, -6.794, 0.732)
pt3dadd(-5.591, 194.087, -6.796, 0.722)
pt3dadd(-5.691, 194.154, -6.798, 0.712)
pt3dadd(-5.789, 194.224, -6.8, 0.702)
pt3dadd(-5.882, 194.298, -6.8, 0.692)
pt3dadd(-5.976, 194.374, -6.8, 0.682)
pt3dadd(-6.069, 194.449, -6.8, 0.672)
pt3dadd(-6.163, 194.525, -6.8, 0.662)
pt3dadd(-6.257, 194.598, -6.8, 0.652)
pt3dadd(-6.358, 194.663, -6.8, 0.64)
pt3dadd(-6.459, 194.726, -6.8, 0.628)
pt3dadd(-6.563, 194.784, -6.784, 0.628)
pt3dadd(-6.667, 194.84, -6.768, 0.628)
pt3dadd(-6.712, 194.944, -6.738, 0.666)
pt3dadd(-6.754, 195.048, -6.717, 0.71)
pt3dadd(-6.803, 195.145, -6.76, 0.766)
pt3dadd(-6.867, 195.234, -6.79, 0.81)
pt3dadd(-6.963, 195.306, -6.793, 0.832)
pt3dadd(-7.059, 195.377, -6.796, 0.854)
pt3dadd(-7.156, 195.449, -6.799, 0.874)
pt3dadd(-7.27, 195.478, -6.8, 0.886)
pt3dadd(-7.388, 195.497, -6.8, 0.896)
pt3dadd(-7.505, 195.521, -6.8, 0.904)
pt3dadd(-7.609, 195.581, -6.8, 0.904)
pt3dadd(-7.71, 195.646, -6.8, 0.904)
pt3dadd(-7.807, 195.713, -6.793, 0.904)
pt3dadd(-7.887, 195.79, -6.755, 0.904)
pt3dadd(-7.983, 195.84, -6.728, 0.9)
pt3dadd(-8.101, 195.848, -6.715, 0.89)
pt3dadd(-8.22, 195.858, -6.702, 0.88)
pt3dadd(-8.34, 195.863, -6.7, 0.872)
pt3dadd(-8.46, 195.868, -6.7, 0.864)
pt3dadd(-8.58, 195.871, -6.7, 0.856)
pt3dadd(-8.685, 195.923, -6.7, 0.842)
pt3dadd(-8.788, 195.985, -6.7, 0.828)
pt3dadd(-8.89, 196.046, -6.7, 0.816)
pt3dadd(-8.991, 196.111, -6.7, 0.802)
pt3dadd(-9.076, 196.196, -6.7, 0.79)
pt3dadd(-9.162, 196.28, -6.7, 0.778)
pt3dadd(-9.25, 196.362, -6.7, 0.756)
pt3dadd(-9.333, 196.448, -6.7, 0.766)
pt3dadd(-9.416, 196.535, -6.7, 0.776)
pt3dadd(-9.5, 196.621, -6.7, 0.786)
pt3dadd(-9.583, 196.708, -6.7, 0.798)
pt3dadd(-9.675, 196.782, -6.7, 0.808)
pt3dadd(-9.783, 196.836, -6.7, 0.824)
pt3dadd(-9.889, 196.89, -6.7, 0.838)
pt3dadd(-9.996, 196.945, -6.7, 0.852)
pt3dadd(-10.104, 196.999, -6.7, 0.866)
pt3dadd(-10.211, 197.05, -6.7, 0.88)
pt3dadd(-10.329, 197.068, -6.706, 0.892)
pt3dadd(-10.449, 197.086, -6.711, 0.904)
pt3dadd(-10.567, 197.102, -6.717, 0.918)
pt3dadd(-10.685, 197.12, -6.722, 0.93)
pt3dadd(-10.804, 197.137, -6.728, 0.942)
pt3dadd(-10.922, 197.155, -6.735, 0.954)
pt3dadd(-11.034, 197.178, -6.766, 0.942)
pt3dadd(-11.146, 197.2, -6.797, 0.93)
pt3dadd(-11.26, 197.236, -6.8, 0.892)
pt3dadd(-11.374, 197.273, -6.8, 0.85)
pt3dadd(-11.481, 197.323, -6.8, 0.796)
pt3dadd(-11.582, 197.388, -6.8, 0.726)
pt3dadd(-11.674, 197.464, -6.8, 0.664)
pt3dadd(-11.737, 197.564, -6.8, 0.618)
pt3dadd(-11.808, 197.658, -6.8, 0.576)
pt3dadd(-11.918, 197.705, -6.8, 0.56)
pt3dadd(-12.024, 197.761, -6.8, 0.558)
pt3dadd(-12.126, 197.825, -6.8, 0.568)
pt3dadd(-12.228, 197.888, -6.8, 0.578)
pt3dadd(-12.33, 197.952, -6.8, 0.588)
pt3dadd(-12.431, 198.016, -6.8, 0.598)
pt3dadd(-12.537, 198.072, -6.8, 0.608)
pt3dadd(-12.647, 198.12, -6.8, 0.616)
pt3dadd(-12.757, 198.168, -6.8, 0.626)
pt3dadd(-12.866, 198.217, -6.8, 0.636)
pt3dadd(-12.976, 198.265, -6.8, 0.644)
pt3dadd(-13.086, 198.312, -6.8, 0.654)
pt3dadd(-13.203, 198.344, -6.8, 0.662)
pt3dadd(-13.318, 198.376, -6.8, 0.67)
pt3dadd(-13.434, 198.407, -6.8, 0.68)
pt3dadd(-13.55, 198.438, -6.8, 0.688)
pt3dadd(-13.665, 198.47, -6.8, 0.696)
pt3dadd(-13.774, 198.512, -6.794, 0.704)
pt3dadd(-13.863, 198.589, -6.771, 0.704)
pt3dadd(-13.951, 198.665, -6.749, 0.704)
pt3dadd(-14.04, 198.742, -6.726, 0.704)
pt3dadd(-14.129, 198.817, -6.703, 0.704)
pt3dadd(-14.228, 198.883, -6.7, 0.704)
pt3dadd(-14.331, 198.947, -6.7, 0.704)
pt3dadd(-14.433, 199.01, -6.7, 0.704)
pt3dadd(-14.534, 199.073, -6.7, 0.704)
pt3dadd(-14.636, 199.136, -6.7, 0.704)
pt3dadd(-14.742, 199.192, -6.7, 0.7)
pt3dadd(-14.851, 199.243, -6.7, 0.694)
pt3dadd(-14.96, 199.294, -6.7, 0.69)
pt3dadd(-15.068, 199.345, -6.7, 0.686)
pt3dadd(-15.177, 199.397, -6.7, 0.68)
pt3dadd(-15.283, 199.452, -6.7, 0.682)
pt3dadd(-15.387, 199.512, -6.7, 0.692)
pt3dadd(-15.49, 199.572, -6.7, 0.702)
pt3dadd(-15.594, 199.632, -6.7, 0.712)
pt3dadd(-15.699, 199.693, -6.7, 0.72)
pt3dadd(-15.798, 199.758, -6.7, 0.73)
pt3dadd(-15.887, 199.84, -6.7, 0.74)
pt3dadd(-15.975, 199.92, -6.7, 0.75)
pt3dadd(-16.064, 200.002, -6.7, 0.76)
pt3dadd(-16.152, 200.082, -6.7, 0.772)
pt3dadd(-16.241, 200.158, -6.713, 0.782)
pt3dadd(-16.329, 200.219, -6.758, 0.794)
pt3dadd(-16.416, 200.279, -6.804, 0.806)
pt3dadd(-16.504, 200.34, -6.849, 0.818)
pt3dadd(-16.59, 200.405, -6.889, 0.828)
pt3dadd(-16.666, 200.498, -6.891, 0.822)
pt3dadd(-16.742, 200.591, -6.894, 0.818)
pt3dadd(-16.818, 200.684, -6.896, 0.812)
pt3dadd(-16.894, 200.777, -6.898, 0.808)
pt3dadd(-16.974, 200.866, -6.9, 0.802)
pt3dadd(-17.064, 200.944, -6.9, 0.798)
pt3dadd(-17.155, 201.023, -6.9, 0.792)
pt3dadd(-17.246, 201.101, -6.9, 0.788)
pt3dadd(-17.338, 201.179, -6.9, 0.782)
pt3dadd(-17.409, 201.268, -6.9, 0.776)
pt3dadd(-17.425, 201.386, -6.9, 0.766)
pt3dadd(-17.441, 201.505, -6.9, 0.756)
pt3dadd(-17.498, 201.607, -6.896, 0.762)
pt3dadd(-17.572, 201.701, -6.891, 0.774)
pt3dadd(-17.659, 201.77, -6.863, 0.796)
pt3dadd(-17.752, 201.826, -6.82, 0.824)
pt3dadd(-17.859, 201.872, -6.807, 0.846)
pt3dadd(-17.971, 201.918, -6.802, 0.868)
pt3dadd(-18.051, 201.977, -6.836, 0.878)
pt3dadd(-18.109, 202.048, -6.901, 0.878)
pt3dadd(-18.167, 202.118, -6.966, 0.878)
pt3dadd(-18.237, 202.202, -6.996, 0.87)
pt3dadd(-18.315, 202.292, -7.007, 0.858)
pt3dadd(-18.409, 202.354, -7.034, 0.828)
pt3dadd(-18.496, 202.434, -7.051, 0.828)
pt3dadd(-18.582, 202.514, -7.068, 0.828)
pt3dadd(-18.669, 202.596, -7.086, 0.828)
pt3dadd(-18.755, 202.676, -7.103, 0.828)
pt3dadd(-18.847, 202.75, -7.122, 0.828)
}
}
proc shape3d_62() {
apic[10] { pt3dadd(-18.942, 202.818, -7.142, 0.828)
pt3dadd(-19.038, 202.886, -7.161, 0.828)
pt3dadd(-19.134, 202.956, -7.181, 0.828)
pt3dadd(-19.229, 203.024, -7.2, 0.828)
pt3dadd(-19.317, 203.106, -7.2, 0.824)
pt3dadd(-19.405, 203.186, -7.2, 0.818)
pt3dadd(-19.494, 203.268, -7.2, 0.814)
pt3dadd(-19.582, 203.35, -7.2, 0.808)
pt3dadd(-19.671, 203.429, -7.202, 0.802)
pt3dadd(-19.768, 203.495, -7.224, 0.786)
pt3dadd(-19.864, 203.562, -7.247, 0.768)
pt3dadd(-19.961, 203.628, -7.269, 0.752)
pt3dadd(-20.057, 203.694, -7.292, 0.734)
pt3dadd(-20.165, 203.72, -7.317, 0.702)
pt3dadd(-20.281, 203.725, -7.345, 0.66)
pt3dadd(-20.394, 203.738, -7.37, 0.62)
pt3dadd(-20.502, 203.786, -7.386, 0.584)
pt3dadd(-20.609, 203.839, -7.4, 0.554)
pt3dadd(-20.705, 203.91, -7.4, 0.566)
pt3dadd(-20.802, 203.981, -7.4, 0.578)
pt3dadd(-20.893, 204.059, -7.4, 0.6)
pt3dadd(-20.984, 204.137, -7.4, 0.624)
pt3dadd(-21.023, 204.247, -7.4, 0.666)
pt3dadd(-21.068, 204.352, -7.4, 0.704)
pt3dadd(-21.172, 204.412, -7.4, 0.708)
pt3dadd(-21.275, 204.473, -7.4, 0.714)
pt3dadd(-21.379, 204.533, -7.4, 0.718)
pt3dadd(-21.483, 204.593, -7.4, 0.724)
pt3dadd(-21.585, 204.654, -7.4, 0.728)
pt3dadd(-21.663, 204.746, -7.4, 0.738)
pt3dadd(-21.74, 204.838, -7.4, 0.748)
pt3dadd(-21.818, 204.93, -7.4, 0.758)
pt3dadd(-21.895, 205.021, -7.4, 0.77)
pt3dadd(-21.974, 205.111, -7.401, 0.778)
pt3dadd(-22.064, 205.19, -7.408, 0.784)
pt3dadd(-22.154, 205.27, -7.415, 0.79)
pt3dadd(-22.244, 205.349, -7.422, 0.794)
pt3dadd(-22.334, 205.428, -7.429, 0.8)
pt3dadd(-22.426, 205.499, -7.446, 0.806)
pt3dadd(-22.521, 205.555, -7.486, 0.812)
pt3dadd(-22.615, 205.612, -7.525, 0.818)
pt3dadd(-22.71, 205.668, -7.564, 0.824)
pt3dadd(-22.806, 205.723, -7.601, 0.828)
pt3dadd(-22.918, 205.764, -7.614, 0.828)
pt3dadd(-23.03, 205.805, -7.627, 0.828)
pt3dadd(-23.142, 205.846, -7.641, 0.828)
pt3dadd(-23.254, 205.886, -7.654, 0.828)
pt3dadd(-23.365, 205.927, -7.667, 0.828)
pt3dadd(-23.397, 206.023, -7.721, 0.828)
pt3dadd(-23.441, 206.112, -7.769, 0.83)
pt3dadd(-23.545, 206.168, -7.786, 0.844)
pt3dadd(-23.649, 206.226, -7.8, 0.856)
pt3dadd(-23.75, 206.291, -7.8, 0.866)
pt3dadd(-23.851, 206.354, -7.8, 0.878)
pt3dadd(-23.957, 206.368, -7.844, 0.89)
pt3dadd(-24.063, 206.377, -7.891, 0.902)
pt3dadd(-24.151, 206.382, -7.957, 0.89)
pt3dadd(-24.243, 206.405, -8.009, 0.872)
pt3dadd(-24.346, 206.461, -8.03, 0.856)
pt3dadd(-24.449, 206.518, -8.052, 0.84)
pt3dadd(-24.552, 206.574, -8.074, 0.824)
pt3dadd(-24.655, 206.629, -8.096, 0.806)
pt3dadd(-24.749, 206.681, -8.138, 0.784)
pt3dadd(-24.842, 206.731, -8.186, 0.76)
pt3dadd(-24.935, 206.783, -8.233, 0.736)
pt3dadd(-25.028, 206.833, -8.28, 0.714)
pt3dadd(-25.116, 206.904, -8.304, 0.69)
pt3dadd(-25.2, 206.988, -8.311, 0.67)
pt3dadd(-25.285, 207.073, -8.318, 0.648)
pt3dadd(-25.37, 207.157, -8.325, 0.628)
pt3dadd(-25.454, 207.242, -8.332, 0.606)
pt3dadd(-25.544, 207.263, -8.389, 0.614)
pt3dadd(-25.634, 207.272, -8.454, 0.626)
pt3dadd(-25.739, 207.314, -8.48, 0.656)
pt3dadd(-25.847, 207.362, -8.496, 0.694)
pt3dadd(-25.917, 207.454, -8.5, 0.746)
pt3dadd(-25.974, 207.559, -8.5, 0.802)
pt3dadd(-26.022, 207.662, -8.523, 0.822)
pt3dadd(-26.062, 207.763, -8.564, 0.808)
pt3dadd(-26.135, 207.818, -8.619, 0.786)
pt3dadd(-26.224, 207.852, -8.68, 0.762)
pt3dadd(-26.313, 207.886, -8.741, 0.738)
pt3dadd(-26.412, 207.905, -8.794, 0.7)
pt3dadd(-26.518, 207.914, -8.841, 0.654)
pt3dadd(-26.614, 207.955, -8.879, 0.628)
pt3dadd(-26.698, 208.034, -8.906, 0.628)
pt3dadd(-26.782, 208.114, -8.933, 0.628)
pt3dadd(-26.862, 208.192, -8.97, 0.628)
pt3dadd(-26.94, 208.272, -9, 0.62)
pt3dadd(-27.014, 208.362, -9.018, 0.596)
pt3dadd(-27.088, 208.445, -9.056, 0.584)
pt3dadd(-27.162, 208.528, -9.094, 0.572)
pt3dadd(-27.236, 208.61, -9.131, 0.56)
pt3dadd(-27.314, 208.685, -9.174, 0.552)
pt3dadd(-27.399, 208.739, -9.228, 0.552)
pt3dadd(-27.484, 208.794, -9.281, 0.552)
pt3dadd(-27.569, 208.848, -9.335, 0.552)
pt3dadd(-27.649, 208.903, -9.393, 0.554)
pt3dadd(-27.708, 208.956, -9.468, 0.568)
pt3dadd(-27.767, 209.01, -9.543, 0.58)
pt3dadd(-27.826, 209.063, -9.618, 0.592)
pt3dadd(-27.886, 209.117, -9.691, 0.604)
pt3dadd(-27.971, 209.184, -9.734, 0.616)
pt3dadd(-28.056, 209.252, -9.777, 0.628)
pt3dadd(-28.141, 209.32, -9.82, 0.64)
pt3dadd(-28.226, 209.387, -9.863, 0.652)
pt3dadd(-28.296, 209.476, -9.895, 0.658)
pt3dadd(-28.365, 209.566, -9.927, 0.664)
pt3dadd(-28.435, 209.656, -9.958, 0.67)
pt3dadd(-28.504, 209.747, -9.99, 0.676)
pt3dadd(-28.551, 209.851, -10.014, 0.678)
pt3dadd(-28.586, 209.963, -10.036, 0.678)
pt3dadd(-28.643, 210.025, -10.092, 0.686)
pt3dadd(-28.713, 210.055, -10.169, 0.7)
pt3dadd(-28.781, 210.137, -10.193, 0.712)
pt3dadd(-28.848, 210.236, -10.198, 0.724)
pt3dadd(-28.913, 210.337, -10.2, 0.728)
pt3dadd(-28.977, 210.438, -10.2, 0.728)
pt3dadd(-29.034, 210.544, -10.2, 0.702)
pt3dadd(-29.085, 210.652, -10.2, 0.652)
pt3dadd(-29.144, 210.756, -10.2, 0.642)
pt3dadd(-29.204, 210.86, -10.2, 0.634)
pt3dadd(-29.263, 210.965, -10.2, 0.624)
pt3dadd(-29.323, 211.069, -10.2, 0.614)
pt3dadd(-29.382, 211.174, -10.2, 0.604)
pt3dadd(-29.465, 211.256, -10.219, 0.608)
pt3dadd(-29.55, 211.338, -10.239, 0.614)
pt3dadd(-29.634, 211.42, -10.259, 0.62)
pt3dadd(-29.719, 211.501, -10.279, 0.626)
pt3dadd(-29.8, 211.585, -10.302, 0.642)
pt3dadd(-29.878, 211.672, -10.328, 0.672)
pt3dadd(-29.955, 211.758, -10.354, 0.702)
pt3dadd(-30.032, 211.843, -10.38, 0.73)
pt3dadd(-30.113, 211.927, -10.4, 0.758)
pt3dadd(-30.207, 212.003, -10.4, 0.784)
pt3dadd(-30.3, 212.078, -10.4, 0.808)
pt3dadd(-30.394, 212.154, -10.4, 0.834)
pt3dadd(-30.487, 212.228, -10.4, 0.86)
pt3dadd(-30.576, 212.306, -10.408, 0.882)
pt3dadd(-30.65, 212.389, -10.445, 0.9)
pt3dadd(-30.724, 212.472, -10.483, 0.918)
pt3dadd(-30.798, 212.555, -10.52, 0.938)
pt3dadd(-30.874, 212.638, -10.557, 0.954)
pt3dadd(-30.963, 212.712, -10.581, 0.954)
pt3dadd(-31.056, 212.784, -10.6, 0.946)
pt3dadd(-31.157, 212.848, -10.6, 0.9)
pt3dadd(-31.258, 212.912, -10.6, 0.854)
pt3dadd(-31.339, 212.96, -10.662, 0.784)
pt3dadd(-31.412, 213.002, -10.73, 0.718)
pt3dadd(-31.457, 213.024, -10.821, 0.67)
pt3dadd(-31.502, 213.052, -10.909, 0.626)
pt3dadd(-31.554, 213.121, -10.978, 0.618)
pt3dadd(-31.607, 213.192, -11.046, 0.61)
pt3dadd(-31.651, 213.269, -11.111, 0.602)
pt3dadd(-31.668, 213.371, -11.161, 0.602)
pt3dadd(-31.698, 213.47, -11.2, 0.602)
pt3dadd(-31.775, 213.563, -11.2, 0.602)
pt3dadd(-31.852, 213.655, -11.2, 0.602)
pt3dadd(-31.938, 213.737, -11.202, 0.608)
pt3dadd(-32.038, 213.804, -11.207, 0.62)
pt3dadd(-32.138, 213.858, -11.226, 0.628)
pt3dadd(-32.234, 213.905, -11.268, 0.624)
pt3dadd(-32.329, 213.964, -11.304, 0.618)
pt3dadd(-32.424, 214.024, -11.341, 0.612)
pt3dadd(-32.518, 214.082, -11.377, 0.606)
pt3dadd(-32.61, 214.15, -11.408, 0.596)
pt3dadd(-32.695, 214.229, -11.431, 0.58)
pt3dadd(-32.781, 214.308, -11.454, 0.562)
pt3dadd(-32.867, 214.388, -11.477, 0.544)
pt3dadd(-32.952, 214.468, -11.5, 0.528)
pt3dadd(-33.054, 214.531, -11.5, 0.504)
pt3dadd(-33.155, 214.596, -11.5, 0.482)
pt3dadd(-33.27, 214.615, -11.51, 0.47)
pt3dadd(-33.389, 214.625, -11.523, 0.46)
pt3dadd(-33.497, 214.634, -11.551, 0.454)
pt3dadd(-33.567, 214.643, -11.632, 0.466)
pt3dadd(-33.636, 214.663, -11.709, 0.482)
pt3dadd(-33.695, 214.741, -11.767, 0.51)
pt3dadd(-33.77, 214.816, -11.8, 0.542)
pt3dadd(-33.869, 214.884, -11.8, 0.576)
pt3dadd(-33.957, 214.945, -11.844, 0.584)
pt3dadd(-34.045, 215.006, -11.89, 0.59)
pt3dadd(-34.133, 215.066, -11.935, 0.596)
pt3dadd(-34.22, 215.128, -11.981, 0.602)
pt3dadd(-34.314, 215.172, -12.031, 0.602)
pt3dadd(-34.408, 215.212, -12.082, 0.602)
pt3dadd(-34.503, 215.252, -12.134, 0.602)
pt3dadd(-34.598, 215.293, -12.186, 0.602)
pt3dadd(-34.699, 215.323, -12.232, 0.602)
pt3dadd(-34.806, 215.344, -12.274, 0.602)
pt3dadd(-34.913, 215.364, -12.315, 0.602)
pt3dadd(-35.02, 215.384, -12.357, 0.602)
pt3dadd(-35.127, 215.405, -12.398, 0.602)
pt3dadd(-35.238, 215.418, -12.435, 0.602)
pt3dadd(-35.35, 215.428, -12.469, 0.602)
pt3dadd(-35.452, 215.461, -12.508, 0.596)
pt3dadd(-35.539, 215.524, -12.552, 0.582)
pt3dadd(-35.597, 215.591, -12.615, 0.568)
pt3dadd(-35.64, 215.659, -12.69, 0.554)
pt3dadd(-35.682, 215.72, -12.768, 0.516)
}
}
proc shape3d_63() {
apic[10] { pt3dadd(-35.725, 215.78, -12.846, 0.476)
pt3dadd(-35.809, 215.837, -12.899, 0.46)
pt3dadd(-35.894, 215.894, -12.952, 0.442)
pt3dadd(-35.977, 215.956, -13.002, 0.424)
pt3dadd(-36.05, 216.048, -13.019, 0.398)
pt3dadd(-36.121, 216.138, -13.043, 0.392)
pt3dadd(-36.207, 216.205, -13.077, 0.45)
pt3dadd(-36.307, 216.269, -13.094, 0.488)
pt3dadd(-36.41, 216.329, -13.1, 0.53)
pt3dadd(-36.515, 216.386, -13.1, 0.576)
pt3dadd(-36.622, 216.44, -13.1, 0.612)
pt3dadd(-36.731, 216.492, -13.1, 0.634)
pt3dadd(-36.839, 216.538, -13.105, 0.652)
pt3dadd(-36.94, 216.547, -13.158, 0.652)
pt3dadd(-37.042, 216.558, -13.211, 0.652)
pt3dadd(-37.045, 216.55, -13.31, 0.642)
pt3dadd(-37.049, 216.54, -13.41, 0.63)
pt3dadd(-37.052, 216.532, -13.51, 0.62)
pt3dadd(-37.055, 216.523, -13.61, 0.61)
pt3dadd(-37.057, 216.504, -13.708, 0.59)
pt3dadd(-37.058, 216.472, -13.804, 0.558)
pt3dadd(-37.06, 216.438, -13.9, 0.528)
}
apic[11] {pt3dclear()
pt3dadd(49.283, 144.137, 5.982, 1.808)
pt3dadd(49.258, 144.122, 5.894, 1.714)
pt3dadd(49.228, 144.108, 5.796, 1.604)
pt3dadd(49.198, 144.094, 5.697, 1.492)
pt3dadd(49.167, 144.079, 5.598, 1.382)
pt3dadd(49.137, 144.065, 5.499, 1.272)
pt3dadd(49.106, 144.052, 5.401, 1.162)
pt3dadd(49.076, 144.037, 5.302, 1.052)
pt3dadd(49.046, 144.023, 5.203, 0.942)
pt3dadd(49.015, 144.007, 5.104, 0.832)
pt3dadd(48.985, 143.993, 5.006, 0.722)
pt3dadd(48.902, 143.974, 4.965, 0.678)
pt3dadd(48.785, 143.95, 4.962, 0.678)
pt3dadd(48.668, 143.927, 4.96, 0.678)
pt3dadd(48.552, 143.903, 4.957, 0.678)
pt3dadd(48.435, 143.88, 4.954, 0.678)
pt3dadd(48.318, 143.856, 4.951, 0.678)
pt3dadd(48.202, 143.834, 4.96, 0.678)
pt3dadd(48.087, 143.813, 4.976, 0.678)
pt3dadd(47.973, 143.791, 4.992, 0.678)
pt3dadd(47.858, 143.771, 5.008, 0.678)
pt3dadd(47.743, 143.749, 5.024, 0.678)
pt3dadd(47.627, 143.735, 5.028, 0.678)
pt3dadd(47.51, 143.734, 5.009, 0.678)
pt3dadd(47.393, 143.732, 4.989, 0.678)
pt3dadd(47.275, 143.731, 4.97, 0.678)
pt3dadd(47.158, 143.73, 4.951, 0.678)
pt3dadd(47.041, 143.729, 4.931, 0.678)
pt3dadd(46.924, 143.736, 4.916, 0.678)
pt3dadd(46.81, 143.767, 4.913, 0.678)
pt3dadd(46.696, 143.8, 4.91, 0.678)
pt3dadd(46.582, 143.832, 4.907, 0.678)
pt3dadd(46.467, 143.863, 4.905, 0.678)
pt3dadd(46.353, 143.896, 4.902, 0.678)
pt3dadd(46.237, 143.921, 4.899, 0.678)
pt3dadd(46.12, 143.94, 4.896, 0.678)
pt3dadd(46.003, 143.959, 4.893, 0.678)
pt3dadd(45.892, 143.976, 4.921, 0.678)
pt3dadd(45.78, 143.994, 4.949, 0.678)
pt3dadd(45.691, 144.046, 4.909, 0.678)
pt3dadd(45.595, 144.074, 4.86, 0.678)
pt3dadd(45.489, 144.073, 4.812, 0.678)
pt3dadd(45.384, 144.085, 4.783, 0.678)
pt3dadd(45.284, 144.139, 4.808, 0.678)
pt3dadd(45.184, 144.192, 4.833, 0.678)
pt3dadd(45.088, 144.251, 4.853, 0.678)
pt3dadd(45.045, 144.354, 4.819, 0.678)
pt3dadd(44.981, 144.439, 4.791, 0.678)
pt3dadd(44.871, 144.48, 4.776, 0.678)
pt3dadd(44.76, 144.521, 4.762, 0.678)
pt3dadd(44.651, 144.563, 4.745, 0.678)
pt3dadd(44.542, 144.607, 4.726, 0.678)
pt3dadd(44.457, 144.667, 4.693, 0.678)
pt3dadd(44.362, 144.718, 4.672, 0.678)
pt3dadd(44.25, 144.757, 4.663, 0.678)
pt3dadd(44.139, 144.798, 4.654, 0.678)
pt3dadd(44.028, 144.838, 4.644, 0.678)
pt3dadd(43.916, 144.877, 4.635, 0.678)
pt3dadd(43.805, 144.917, 4.629, 0.678)
pt3dadd(43.693, 144.958, 4.626, 0.678)
pt3dadd(43.582, 144.998, 4.624, 0.678)
pt3dadd(43.47, 145.038, 4.621, 0.678)
pt3dadd(43.359, 145.08, 4.618, 0.678)
pt3dadd(43.247, 145.118, 4.615, 0.678)
pt3dadd(43.13, 145.139, 4.612, 0.678)
pt3dadd(43.014, 145.16, 4.609, 0.678)
pt3dadd(42.897, 145.182, 4.606, 0.678)
pt3dadd(42.78, 145.202, 4.603, 0.678)
pt3dadd(42.663, 145.224, 4.6, 0.678)
pt3dadd(42.546, 145.242, 4.598, 0.678)
pt3dadd(42.427, 145.241, 4.595, 0.678)
pt3dadd(42.309, 145.24, 4.592, 0.678)
pt3dadd(42.19, 145.238, 4.589, 0.678)
pt3dadd(42.071, 145.237, 4.586, 0.678)
pt3dadd(41.952, 145.236, 4.583, 0.678)
pt3dadd(41.833, 145.235, 4.58, 0.678)
pt3dadd(41.714, 145.235, 4.575, 0.678)
pt3dadd(41.597, 145.234, 4.556, 0.678)
pt3dadd(41.48, 145.232, 4.537, 0.678)
pt3dadd(41.363, 145.231, 4.517, 0.678)
pt3dadd(41.246, 145.23, 4.498, 0.678)
pt3dadd(41.128, 145.229, 4.479, 0.678)
pt3dadd(41.012, 145.228, 4.458, 0.678)
pt3dadd(40.912, 145.226, 4.4, 0.678)
pt3dadd(40.813, 145.225, 4.343, 0.678)
pt3dadd(40.714, 145.224, 4.285, 0.678)
pt3dadd(40.615, 145.223, 4.227, 0.678)
pt3dadd(40.516, 145.222, 4.169, 0.678)
pt3dadd(40.422, 145.243, 4.109, 0.678)
pt3dadd(40.327, 145.266, 4.049, 0.678)
pt3dadd(40.233, 145.29, 3.989, 0.678)
pt3dadd(40.138, 145.313, 3.929, 0.678)
pt3dadd(40.04, 145.325, 3.872, 0.678)
pt3dadd(39.938, 145.326, 3.818, 0.678)
pt3dadd(39.836, 145.327, 3.765, 0.678)
pt3dadd(39.734, 145.33, 3.711, 0.678)
pt3dadd(39.631, 145.331, 3.657, 0.678)
pt3dadd(39.524, 145.342, 3.617, 0.678)
pt3dadd(39.41, 145.364, 3.593, 0.678)
pt3dadd(39.297, 145.386, 3.568, 0.678)
pt3dadd(39.183, 145.409, 3.543, 0.678)
pt3dadd(39.069, 145.432, 3.519, 0.678)
pt3dadd(38.957, 145.445, 3.489, 0.678)
pt3dadd(38.847, 145.444, 3.448, 0.678)
pt3dadd(38.736, 145.444, 3.408, 0.678)
pt3dadd(38.626, 145.442, 3.368, 0.678)
pt3dadd(38.516, 145.441, 3.328, 0.678)
pt3dadd(38.406, 145.44, 3.288, 0.678)
pt3dadd(38.288, 145.439, 3.271, 0.678)
pt3dadd(38.17, 145.438, 3.253, 0.678)
pt3dadd(38.053, 145.436, 3.236, 0.678)
pt3dadd(37.935, 145.435, 3.219, 0.678)
pt3dadd(37.818, 145.434, 3.201, 0.678)
pt3dadd(37.7, 145.433, 3.184, 0.678)
pt3dadd(37.581, 145.432, 3.176, 0.678)
pt3dadd(37.463, 145.43, 3.17, 0.678)
pt3dadd(37.344, 145.429, 3.163, 0.678)
pt3dadd(37.225, 145.428, 3.157, 0.678)
pt3dadd(37.106, 145.428, 3.151, 0.678)
pt3dadd(36.987, 145.427, 3.145, 0.678)
pt3dadd(36.869, 145.426, 3.138, 0.678)
pt3dadd(36.757, 145.424, 3.101, 0.678)
pt3dadd(36.646, 145.423, 3.063, 0.678)
pt3dadd(36.535, 145.422, 3.025, 0.678)
pt3dadd(36.423, 145.421, 2.988, 0.678)
pt3dadd(36.312, 145.42, 2.95, 0.678)
pt3dadd(36.196, 145.418, 2.933, 0.678)
pt3dadd(36.077, 145.417, 2.93, 0.678)
pt3dadd(35.958, 145.416, 2.927, 0.678)
pt3dadd(35.839, 145.415, 2.924, 0.678)
pt3dadd(35.721, 145.414, 2.921, 0.678)
pt3dadd(35.602, 145.412, 2.918, 0.678)
pt3dadd(35.483, 145.412, 2.915, 0.678)
pt3dadd(35.364, 145.408, 2.906, 0.678)
pt3dadd(35.247, 145.399, 2.892, 0.678)
pt3dadd(35.129, 145.392, 2.878, 0.678)
pt3dadd(35.011, 145.385, 2.864, 0.678)
pt3dadd(34.893, 145.376, 2.85, 0.678)
pt3dadd(34.775, 145.369, 2.836, 0.678)
pt3dadd(34.657, 145.357, 2.824, 0.678)
pt3dadd(34.539, 145.343, 2.814, 0.678)
pt3dadd(34.421, 145.328, 2.804, 0.678)
pt3dadd(34.304, 145.313, 2.793, 0.678)
pt3dadd(34.186, 145.298, 2.783, 0.678)
pt3dadd(34.068, 145.284, 2.773, 0.678)
pt3dadd(33.954, 145.277, 2.747, 0.678)
pt3dadd(33.842, 145.277, 2.711, 0.678)
pt3dadd(33.729, 145.276, 2.675, 0.678)
pt3dadd(33.617, 145.274, 2.64, 0.678)
pt3dadd(33.505, 145.273, 2.604, 0.678)
pt3dadd(33.393, 145.272, 2.568, 0.678)
pt3dadd(33.281, 145.271, 2.532, 0.678)
pt3dadd(33.207, 145.27, 2.464, 0.678)
pt3dadd(33.169, 145.268, 2.367, 0.678)
pt3dadd(33.123, 145.267, 2.273, 0.678)
pt3dadd(33.041, 145.266, 2.198, 0.678)
pt3dadd(32.959, 145.265, 2.123, 0.678)
pt3dadd(32.878, 145.264, 2.048, 0.678)
pt3dadd(32.775, 145.262, 2.003, 0.678)
pt3dadd(32.659, 145.261, 1.978, 0.678)
pt3dadd(32.55, 145.261, 1.998, 0.678)
pt3dadd(32.432, 145.262, 1.998, 0.678)
pt3dadd(32.313, 145.262, 1.995, 0.678)
pt3dadd(32.194, 145.264, 1.992, 0.678)
pt3dadd(32.075, 145.265, 1.989, 0.678)
pt3dadd(31.956, 145.266, 1.987, 0.678)
pt3dadd(31.837, 145.266, 1.984, 0.678)
pt3dadd(31.725, 145.282, 1.958, 0.678)
pt3dadd(31.614, 145.302, 1.923, 0.678)
pt3dadd(31.503, 145.322, 1.889, 0.678)
pt3dadd(31.393, 145.344, 1.854, 0.678)
pt3dadd(31.282, 145.364, 1.819, 0.678)
pt3dadd(31.165, 145.367, 1.809, 0.678)
pt3dadd(31.046, 145.366, 1.805, 0.678)
pt3dadd(30.927, 145.366, 1.8, 0.678)
pt3dadd(30.809, 145.364, 1.796, 0.678)
pt3dadd(30.69, 145.363, 1.791, 0.678)
pt3dadd(30.571, 145.362, 1.787, 0.678)
}
}
proc shape3d_64() {
apic[11] { pt3dadd(30.452, 145.361, 1.782, 0.678)
pt3dadd(30.335, 145.342, 1.779, 0.678)
pt3dadd(30.217, 145.32, 1.776, 0.678)
pt3dadd(30.1, 145.3, 1.774, 0.678)
pt3dadd(29.983, 145.278, 1.771, 0.678)
pt3dadd(29.866, 145.258, 1.768, 0.678)
pt3dadd(29.749, 145.236, 1.765, 0.678)
pt3dadd(29.63, 145.232, 1.762, 0.678)
pt3dadd(29.511, 145.231, 1.759, 0.678)
pt3dadd(29.392, 145.23, 1.756, 0.678)
pt3dadd(29.273, 145.23, 1.753, 0.678)
pt3dadd(29.154, 145.229, 1.75, 0.678)
pt3dadd(29.036, 145.228, 1.748, 0.678)
pt3dadd(28.917, 145.226, 1.745, 0.678)
pt3dadd(28.812, 145.225, 1.699, 0.678)
pt3dadd(28.709, 145.224, 1.647, 0.678)
pt3dadd(28.606, 145.223, 1.594, 0.678)
pt3dadd(28.503, 145.222, 1.541, 0.678)
pt3dadd(28.4, 145.22, 1.488, 0.678)
pt3dadd(28.287, 145.204, 1.466, 0.678)
pt3dadd(28.171, 145.182, 1.455, 0.678)
pt3dadd(28.054, 145.159, 1.444, 0.678)
pt3dadd(27.937, 145.136, 1.434, 0.678)
pt3dadd(27.821, 145.115, 1.423, 0.678)
pt3dadd(27.704, 145.094, 1.415, 0.678)
pt3dadd(27.59, 145.093, 1.439, 0.678)
pt3dadd(27.476, 145.092, 1.464, 0.678)
pt3dadd(27.361, 145.102, 1.483, 0.678)
pt3dadd(27.246, 145.118, 1.5, 0.678)
pt3dadd(27.159, 145.142, 1.54, 0.678)
pt3dadd(27.126, 145.182, 1.627, 0.678)
pt3dadd(27.092, 145.206, 1.716, 0.678)
pt3dadd(27.053, 145.205, 1.807, 0.678)
pt3dadd(27.014, 145.204, 1.899, 0.678)
pt3dadd(26.956, 145.206, 1.983, 0.678)
pt3dadd(26.898, 145.208, 2.067, 0.678)
pt3dadd(26.839, 145.211, 2.15, 0.678)
pt3dadd(26.768, 145.237, 2.216, 0.678)
pt3dadd(26.679, 145.297, 2.257, 0.678)
pt3dadd(26.575, 145.342, 2.269, 0.678)
pt3dadd(26.463, 145.379, 2.267, 0.678)
pt3dadd(26.35, 145.416, 2.264, 0.678)
pt3dadd(26.234, 145.434, 2.261, 0.678)
pt3dadd(26.115, 145.433, 2.258, 0.678)
pt3dadd(25.996, 145.432, 2.255, 0.678)
pt3dadd(25.878, 145.43, 2.252, 0.678)
pt3dadd(25.76, 145.44, 2.249, 0.678)
pt3dadd(25.643, 145.46, 2.246, 0.678)
pt3dadd(25.526, 145.482, 2.243, 0.678)
pt3dadd(25.409, 145.504, 2.24, 0.678)
pt3dadd(25.293, 145.524, 2.238, 0.678)
pt3dadd(25.176, 145.547, 2.235, 0.678)
pt3dadd(25.066, 145.586, 2.232, 0.678)
pt3dadd(24.964, 145.645, 2.229, 0.678)
pt3dadd(24.864, 145.698, 2.21, 0.678)
pt3dadd(24.772, 145.735, 2.152, 0.678)
pt3dadd(24.732, 145.704, 2.064, 0.678)
pt3dadd(24.699, 145.662, 1.972, 0.678)
pt3dadd(24.599, 145.621, 1.94, 0.678)
pt3dadd(24.489, 145.58, 1.915, 0.678)
pt3dadd(24.374, 145.554, 1.909, 0.678)
pt3dadd(24.257, 145.532, 1.905, 0.678)
pt3dadd(24.139, 145.531, 1.895, 0.678)
pt3dadd(24.02, 145.53, 1.886, 0.678)
pt3dadd(23.901, 145.529, 1.876, 0.678)
pt3dadd(23.783, 145.528, 1.866, 0.678)
pt3dadd(23.664, 145.528, 1.857, 0.678)
pt3dadd(23.546, 145.526, 1.847, 0.678)
pt3dadd(23.428, 145.53, 1.832, 0.678)
pt3dadd(23.311, 145.538, 1.814, 0.678)
pt3dadd(23.194, 145.547, 1.795, 0.678)
pt3dadd(23.077, 145.554, 1.777, 0.678)
pt3dadd(22.96, 145.564, 1.758, 0.678)
pt3dadd(22.844, 145.578, 1.739, 0.678)
pt3dadd(22.728, 145.592, 1.719, 0.678)
pt3dadd(22.611, 145.606, 1.7, 0.678)
pt3dadd(22.495, 145.62, 1.68, 0.678)
pt3dadd(22.379, 145.633, 1.661, 0.678)
pt3dadd(22.26, 145.633, 1.657, 0.678)
pt3dadd(22.141, 145.632, 1.654, 0.678)
pt3dadd(22.023, 145.632, 1.651, 0.678)
pt3dadd(21.908, 145.626, 1.621, 0.678)
pt3dadd(21.795, 145.619, 1.589, 0.678)
pt3dadd(21.686, 145.582, 1.575, 0.678)
pt3dadd(21.58, 145.528, 1.573, 0.678)
pt3dadd(21.493, 145.513, 1.632, 0.678)
pt3dadd(21.41, 145.506, 1.699, 0.678)
pt3dadd(21.302, 145.501, 1.735, 0.678)
pt3dadd(21.189, 145.496, 1.763, 0.678)
pt3dadd(21.077, 145.492, 1.792, 0.678)
pt3dadd(20.964, 145.487, 1.821, 0.678)
pt3dadd(20.852, 145.447, 1.819, 0.678)
pt3dadd(20.74, 145.406, 1.816, 0.678)
pt3dadd(20.624, 145.382, 1.813, 0.678)
pt3dadd(20.507, 145.362, 1.81, 0.678)
pt3dadd(20.39, 145.342, 1.807, 0.678)
pt3dadd(20.272, 145.32, 1.805, 0.678)
pt3dadd(20.155, 145.3, 1.802, 0.678)
pt3dadd(20.038, 145.279, 1.799, 0.678)
pt3dadd(19.921, 145.258, 1.796, 0.678)
pt3dadd(19.802, 145.249, 1.793, 0.678)
pt3dadd(19.683, 145.248, 1.79, 0.678)
pt3dadd(19.565, 145.247, 1.787, 0.678)
pt3dadd(19.45, 145.246, 1.805, 0.678)
pt3dadd(19.338, 145.244, 1.835, 0.678)
pt3dadd(19.235, 145.243, 1.877, 0.678)
pt3dadd(19.154, 145.242, 1.947, 0.678)
pt3dadd(19.074, 145.242, 2.018, 0.678)
pt3dadd(19.001, 145.241, 2.093, 0.678)
pt3dadd(18.926, 145.24, 2.167, 0.678)
pt3dadd(18.811, 145.238, 2.189, 0.678)
pt3dadd(18.696, 145.237, 2.21, 0.678)
pt3dadd(18.58, 145.236, 2.231, 0.678)
pt3dadd(18.465, 145.235, 2.253, 0.678)
pt3dadd(18.351, 145.234, 2.277, 0.678)
pt3dadd(18.237, 145.232, 2.302, 0.678)
pt3dadd(18.122, 145.231, 2.326, 0.678)
pt3dadd(18.005, 145.23, 2.334, 0.678)
pt3dadd(17.886, 145.229, 2.333, 0.678)
pt3dadd(17.767, 145.228, 2.331, 0.678)
pt3dadd(17.648, 145.226, 2.33, 0.678)
pt3dadd(17.53, 145.226, 2.329, 0.678)
pt3dadd(17.411, 145.225, 2.327, 0.678)
pt3dadd(17.292, 145.224, 2.326, 0.678)
pt3dadd(17.173, 145.228, 2.324, 0.678)
pt3dadd(17.054, 145.232, 2.321, 0.678)
pt3dadd(16.936, 145.237, 2.318, 0.678)
pt3dadd(16.817, 145.242, 2.315, 0.678)
pt3dadd(16.698, 145.247, 2.312, 0.678)
pt3dadd(16.58, 145.252, 2.309, 0.678)
pt3dadd(16.461, 145.259, 2.306, 0.678)
pt3dadd(16.349, 145.296, 2.303, 0.678)
pt3dadd(16.236, 145.334, 2.3, 0.678)
pt3dadd(16.124, 145.372, 2.298, 0.678)
pt3dadd(16.012, 145.409, 2.295, 0.678)
pt3dadd(15.899, 145.447, 2.292, 0.678)
pt3dadd(15.786, 145.482, 2.289, 0.678)
pt3dadd(15.672, 145.513, 2.286, 0.678)
pt3dadd(15.557, 145.546, 2.283, 0.678)
pt3dadd(15.443, 145.578, 2.28, 0.678)
pt3dadd(15.329, 145.609, 2.277, 0.678)
pt3dadd(15.215, 145.642, 2.274, 0.678)
pt3dadd(15.111, 145.698, 2.271, 0.678)
pt3dadd(15.008, 145.756, 2.269, 0.678)
pt3dadd(14.905, 145.814, 2.266, 0.678)
pt3dadd(14.802, 145.873, 2.263, 0.678)
pt3dadd(14.699, 145.932, 2.26, 0.678)
pt3dadd(14.603, 145.999, 2.257, 0.678)
pt3dadd(14.489, 146.03, 2.254, 0.678)
pt3dadd(14.374, 146.064, 2.251, 0.678)
pt3dadd(14.274, 146.123, 2.248, 0.678)
pt3dadd(14.202, 146.209, 2.222, 0.678)
pt3dadd(14.177, 146.272, 2.143, 0.678)
pt3dadd(14.179, 146.27, 2.14, 0.678)
pt3dadd(14.18, 146.269, 2.137, 0.678)
pt3dadd(14.067, 146.232, 2.134, 0.71)
pt3dadd(13.953, 146.195, 2.131, 0.742)
pt3dadd(13.881, 146.113, 2.142, 0.746)
pt3dadd(13.832, 146.006, 2.162, 0.732)
pt3dadd(13.785, 145.938, 2.221, 0.702)
pt3dadd(13.741, 145.889, 2.302, 0.662)
pt3dadd(13.678, 145.837, 2.372, 0.596)
pt3dadd(13.609, 145.783, 2.437, 0.526)
pt3dadd(13.544, 145.687, 2.458, 0.478)
pt3dadd(13.479, 145.591, 2.48, 0.43)
pt3dadd(13.413, 145.494, 2.502, 0.382)
pt3dadd(13.3, 145.474, 2.502, 0.344)
pt3dadd(13.182, 145.462, 2.499, 0.306)
pt3dadd(13.064, 145.452, 2.496, 0.276)
pt3dadd(12.945, 145.456, 2.493, 0.28)
pt3dadd(12.827, 145.459, 2.49, 0.302)
pt3dadd(12.708, 145.462, 2.488, 0.324)
pt3dadd(12.589, 145.465, 2.485, 0.344)
pt3dadd(12.47, 145.468, 2.482, 0.366)
pt3dadd(12.351, 145.471, 2.479, 0.388)
pt3dadd(12.233, 145.474, 2.476, 0.41)
pt3dadd(12.114, 145.477, 2.471, 0.434)
pt3dadd(11.995, 145.48, 2.458, 0.464)
pt3dadd(11.878, 145.483, 2.444, 0.496)
pt3dadd(11.76, 145.487, 2.431, 0.528)
pt3dadd(11.641, 145.489, 2.418, 0.56)
pt3dadd(11.524, 145.493, 2.404, 0.59)
pt3dadd(11.405, 145.495, 2.391, 0.622)
pt3dadd(11.286, 145.499, 2.382, 0.646)
pt3dadd(11.167, 145.501, 2.374, 0.668)
pt3dadd(11.05, 145.505, 2.366, 0.692)
pt3dadd(10.931, 145.507, 2.358, 0.714)
pt3dadd(10.812, 145.511, 2.351, 0.736)
pt3dadd(10.693, 145.513, 2.343, 0.76)
pt3dadd(10.576, 145.517, 2.33, 0.778)
pt3dadd(10.464, 145.519, 2.293, 0.778)
pt3dadd(10.352, 145.523, 2.255, 0.778)
pt3dadd(10.242, 145.525, 2.218, 0.778)
pt3dadd(10.131, 145.528, 2.18, 0.778)
pt3dadd(10.019, 145.531, 2.143, 0.778)
pt3dadd(9.905, 145.548, 2.119, 0.772)
pt3dadd(9.79, 145.57, 2.102, 0.762)
pt3dadd(9.674, 145.592, 2.085, 0.754)
pt3dadd(9.559, 145.615, 2.068, 0.744)
pt3dadd(9.444, 145.638, 2.051, 0.736)
}
}
proc shape3d_65() {
apic[11] { pt3dadd(9.33, 145.656, 2.028, 0.728)
pt3dadd(9.22, 145.661, 1.987, 0.722)
pt3dadd(9.111, 145.667, 1.946, 0.718)
pt3dadd(9.001, 145.672, 1.906, 0.712)
pt3dadd(8.892, 145.676, 1.865, 0.708)
pt3dadd(8.781, 145.682, 1.824, 0.704)
pt3dadd(8.666, 145.685, 1.798, 0.716)
pt3dadd(8.55, 145.688, 1.772, 0.728)
pt3dadd(8.434, 145.691, 1.746, 0.742)
pt3dadd(8.319, 145.694, 1.72, 0.754)
pt3dadd(8.203, 145.697, 1.695, 0.768)
pt3dadd(8.088, 145.7, 1.672, 0.784)
pt3dadd(7.969, 145.703, 1.669, 0.826)
pt3dadd(7.85, 145.706, 1.666, 0.868)
pt3dadd(7.731, 145.709, 1.661, 0.91)
pt3dadd(7.614, 145.712, 1.641, 0.958)
pt3dadd(7.497, 145.715, 1.621, 1.008)
pt3dadd(7.397, 145.718, 1.574, 1.054)
pt3dadd(7.31, 145.72, 1.503, 1.102)
pt3dadd(7.217, 145.722, 1.439, 1.14)
pt3dadd(7.115, 145.724, 1.385, 1.162)
pt3dadd(7.022, 145.724, 1.323, 1.176)
pt3dadd(6.965, 145.716, 1.233, 1.158)
pt3dadd(6.875, 145.675, 1.181, 1.13)
pt3dadd(6.778, 145.627, 1.136, 1.102)
pt3dadd(6.681, 145.579, 1.091, 1.072)
pt3dadd(6.583, 145.531, 1.047, 1.042)
pt3dadd(6.475, 145.51, 1.016, 0.996)
pt3dadd(6.358, 145.507, 0.995, 0.936)
pt3dadd(6.244, 145.504, 0.97, 0.876)
pt3dadd(6.174, 145.476, 0.89, 0.836)
pt3dadd(6.104, 145.435, 0.824, 0.806)
pt3dadd(6.038, 145.334, 0.816, 0.818)
pt3dadd(5.97, 145.236, 0.805, 0.832)
pt3dadd(5.887, 145.164, 0.764, 0.876)
pt3dadd(5.799, 145.094, 0.727, 0.916)
pt3dadd(5.702, 145.031, 0.698, 0.954)
pt3dadd(5.618, 144.952, 0.669, 0.96)
pt3dadd(5.532, 144.874, 0.641, 0.966)
pt3dadd(5.447, 144.794, 0.612, 0.972)
pt3dadd(5.449, 144.794, 0.609, 0.972)
pt3dadd(5.363, 144.715, 0.58, 0.978)
pt3dadd(5.261, 144.678, 0.542, 0.97)
pt3dadd(5.154, 144.654, 0.5, 0.958)
pt3dadd(5.057, 144.617, 0.45, 0.944)
pt3dadd(4.961, 144.575, 0.398, 0.93)
pt3dadd(4.874, 144.574, 0.329, 0.918)
pt3dadd(4.786, 144.576, 0.258, 0.906)
pt3dadd(4.723, 144.577, 0.172, 0.894)
pt3dadd(4.663, 144.578, 0.083, 0.884)
pt3dadd(4.582, 144.564, 0.01, 0.874)
pt3dadd(4.49, 144.541, -0.052, 0.866)
pt3dadd(4.398, 144.517, -0.115, 0.858)
pt3dadd(4.294, 144.498, -0.159, 0.844)
pt3dadd(4.178, 144.484, -0.181, 0.822)
pt3dadd(4.072, 144.469, -0.214, 0.804)
pt3dadd(4.073, 144.468, -0.217, 0.804)
pt3dadd(4.004, 144.432, -0.294, 0.796)
pt3dadd(3.928, 144.38, -0.36, 0.782)
pt3dadd(3.836, 144.33, -0.411, 0.788)
pt3dadd(3.741, 144.281, -0.457, 0.802)
pt3dadd(3.624, 144.266, -0.466, 0.794)
pt3dadd(3.506, 144.254, -0.473, 0.784)
pt3dadd(3.389, 144.235, -0.479, 0.782)
pt3dadd(3.273, 144.205, -0.481, 0.792)
pt3dadd(3.158, 144.175, -0.484, 0.802)
pt3dadd(3.041, 144.152, -0.494, 0.818)
pt3dadd(2.924, 144.139, -0.506, 0.834)
pt3dadd(2.806, 144.143, -0.523, 0.85)
pt3dadd(2.689, 144.145, -0.541, 0.866)
pt3dadd(2.571, 144.149, -0.558, 0.882)
pt3dadd(2.454, 144.151, -0.575, 0.9)
pt3dadd(2.336, 144.155, -0.593, 0.916)
pt3dadd(2.219, 144.157, -0.608, 0.932)
pt3dadd(2.1, 144.161, -0.616, 0.952)
pt3dadd(1.981, 144.163, -0.624, 0.97)
pt3dadd(1.862, 144.167, -0.632, 0.988)
pt3dadd(1.745, 144.169, -0.64, 1.008)
pt3dadd(1.626, 144.173, -0.648, 1.026)
pt3dadd(1.507, 144.176, -0.656, 1.046)
pt3dadd(1.392, 144.179, -0.677, 1.066)
pt3dadd(1.279, 144.181, -0.712, 1.088)
pt3dadd(1.166, 144.185, -0.747, 1.112)
pt3dadd(1.055, 144.187, -0.782, 1.134)
pt3dadd(0.942, 144.191, -0.817, 1.156)
pt3dadd(0.829, 144.193, -0.852, 1.18)
pt3dadd(0.782, 144.193, -0.946, 1.212)
pt3dadd(0.737, 144.194, -1.041, 1.246)
pt3dadd(0.646, 144.192, -1.097, 1.264)
pt3dadd(0.535, 144.19, -1.134, 1.274)
pt3dadd(0.433, 144.152, -1.157, 1.276)
pt3dadd(0.343, 144.073, -1.16, 1.264)
pt3dadd(0.245, 144.012, -1.164, 1.246)
pt3dadd(0.128, 143.994, -1.171, 1.216)
pt3dadd(0.011, 143.976, -1.178, 1.186)
pt3dadd(-0.1, 143.968, -1.214, 1.094)
pt3dadd(-0.203, 143.944, -1.259, 1.014)
pt3dadd(-0.294, 143.891, -1.31, 0.972)
pt3dadd(-0.384, 143.838, -1.361, 0.93)
pt3dadd(-0.475, 143.786, -1.412, 0.886)
pt3dadd(-0.57, 143.741, -1.457, 0.85)
pt3dadd(-0.686, 143.72, -1.479, 0.83)
pt3dadd(-0.801, 143.7, -1.501, 0.81)
pt3dadd(-0.916, 143.68, -1.523, 0.792)
pt3dadd(-1.031, 143.66, -1.545, 0.772)
pt3dadd(-1.147, 143.64, -1.567, 0.754)
pt3dadd(-1.264, 143.644, -1.582, 0.754)
pt3dadd(-1.382, 143.646, -1.598, 0.754)
pt3dadd(-1.499, 143.65, -1.609, 0.762)
pt3dadd(-1.618, 143.652, -1.612, 0.786)
pt3dadd(-1.737, 143.656, -1.614, 0.812)
pt3dadd(-1.853, 143.64, -1.617, 0.832)
pt3dadd(-1.96, 143.59, -1.62, 0.844)
pt3dadd(-2.063, 143.533, -1.624, 0.852)
pt3dadd(-2.115, 143.424, -1.632, 0.842)
pt3dadd(-2.166, 143.315, -1.64, 0.83)
pt3dadd(-2.27, 143.275, -1.667, 0.808)
pt3dadd(-2.381, 143.243, -1.696, 0.786)
pt3dadd(-2.491, 143.21, -1.725, 0.764)
pt3dadd(-2.606, 143.196, -1.742, 0.754)
pt3dadd(-2.725, 143.198, -1.749, 0.754)
pt3dadd(-2.843, 143.202, -1.756, 0.754)
pt3dadd(-2.959, 143.204, -1.777, 0.832)
pt3dadd(-3.066, 143.164, -1.805, 0.886)
pt3dadd(-3.169, 143.113, -1.833, 0.924)
pt3dadd(-3.273, 143.063, -1.861, 0.964)
pt3dadd(-3.377, 143.012, -1.888, 1.002)
pt3dadd(-3.458, 142.955, -1.932, 1.05)
pt3dadd(-3.489, 142.884, -2.012, 1.116)
pt3dadd(-3.534, 142.8, -2.061, 1.156)
pt3dadd(-3.6, 142.7, -2.069, 1.156)
pt3dadd(-3.682, 142.632, -2.08, 1.146)
pt3dadd(-3.8, 142.63, -2.095, 1.116)
pt3dadd(-3.918, 142.627, -2.111, 1.088)
pt3dadd(-4.016, 142.628, -2.164, 1.044)
pt3dadd(-4.109, 142.631, -2.229, 0.998)
pt3dadd(-4.214, 142.633, -2.273, 0.96)
pt3dadd(-4.328, 142.637, -2.303, 0.93)
pt3dadd(-4.446, 142.639, -2.321, 0.926)
pt3dadd(-4.563, 142.643, -2.338, 0.92)
pt3dadd(-4.681, 142.645, -2.355, 0.916)
pt3dadd(-4.799, 142.649, -2.373, 0.912)
pt3dadd(-4.916, 142.651, -2.39, 0.908)
pt3dadd(-5.034, 142.655, -2.407, 0.904)
pt3dadd(-5.142, 142.614, -2.431, 0.9)
pt3dadd(-5.247, 142.565, -2.455, 0.894)
pt3dadd(-5.352, 142.514, -2.48, 0.888)
pt3dadd(-5.457, 142.465, -2.505, 0.882)
pt3dadd(-5.566, 142.42, -2.529, 0.878)
pt3dadd(-5.678, 142.391, -2.549, 0.872)
pt3dadd(-5.792, 142.362, -2.57, 0.868)
pt3dadd(-5.906, 142.333, -2.59, 0.862)
pt3dadd(-6.02, 142.304, -2.611, 0.858)
pt3dadd(-6.132, 142.273, -2.635, 0.854)
pt3dadd(-6.233, 142.23, -2.676, 0.854)
pt3dadd(-6.334, 142.186, -2.718, 0.854)
pt3dadd(-6.435, 142.142, -2.759, 0.854)
pt3dadd(-6.536, 142.099, -2.8, 0.854)
pt3dadd(-6.617, 142.07, -2.871, 0.864)
pt3dadd(-6.692, 142.044, -2.948, 0.876)
pt3dadd(-6.769, 142.019, -3.024, 0.886)
pt3dadd(-6.844, 141.992, -3.101, 0.898)
pt3dadd(-6.923, 141.959, -3.172, 0.91)
pt3dadd(-7.006, 141.916, -3.237, 0.924)
pt3dadd(-7.112, 141.892, -3.273, 0.914)
pt3dadd(-7.228, 141.877, -3.295, 0.892)
pt3dadd(-7.343, 141.87, -3.319, 0.862)
pt3dadd(-7.458, 141.872, -3.346, 0.818)
pt3dadd(-7.571, 141.876, -3.364, 0.776)
pt3dadd(-7.658, 141.877, -3.299, 0.752)
pt3dadd(-7.744, 141.88, -3.234, 0.728)
pt3dadd(-7.862, 141.883, -3.227, 0.748)
pt3dadd(-7.98, 141.886, -3.235, 0.762)
pt3dadd(-8.098, 141.889, -3.248, 0.774)
pt3dadd(-8.215, 141.892, -3.262, 0.786)
pt3dadd(-8.334, 141.895, -3.275, 0.798)
pt3dadd(-8.452, 141.898, -3.288, 0.81)
pt3dadd(-8.571, 141.901, -3.302, 0.822)
pt3dadd(-8.688, 141.904, -3.311, 0.832)
pt3dadd(-8.807, 141.907, -3.314, 0.838)
pt3dadd(-8.926, 141.91, -3.317, 0.846)
pt3dadd(-9.045, 141.913, -3.32, 0.852)
pt3dadd(-9.163, 141.917, -3.323, 0.86)
pt3dadd(-9.282, 141.919, -3.326, 0.868)
pt3dadd(-9.401, 141.923, -3.329, 0.874)
pt3dadd(-9.52, 141.925, -3.331, 0.882)
pt3dadd(-9.639, 141.929, -3.334, 0.89)
pt3dadd(-9.757, 141.931, -3.337, 0.898)
pt3dadd(-9.876, 141.935, -3.345, 0.9)
pt3dadd(-9.994, 141.938, -3.36, 0.892)
pt3dadd(-10.112, 141.941, -3.375, 0.882)
pt3dadd(-10.194, 141.943, -3.439, 0.854)
pt3dadd(-10.261, 141.944, -3.525, 0.82)
pt3dadd(-10.324, 141.946, -3.612, 0.772)
pt3dadd(-10.384, 141.946, -3.701, 0.716)
pt3dadd(-10.457, 141.948, -3.779, 0.666)
pt3dadd(-10.558, 141.95, -3.836, 0.632)
pt3dadd(-10.665, 141.953, -3.882, 0.632)
pt3dadd(-10.771, 141.955, -3.927, 0.636)
pt3dadd(-10.879, 141.958, -3.972, 0.642)
}
}
proc shape3d_66() {
apic[11] { pt3dadd(-10.987, 141.961, -4.017, 0.646)
pt3dadd(-11.094, 141.964, -4.062, 0.652)
pt3dadd(-11.209, 141.965, -4.084, 0.664)
pt3dadd(-11.328, 141.966, -4.092, 0.684)
pt3dadd(-11.446, 141.967, -4.1, 0.704)
pt3dadd(-11.565, 141.968, -4.108, 0.722)
pt3dadd(-11.684, 141.97, -4.116, 0.742)
pt3dadd(-11.802, 141.971, -4.124, 0.76)
pt3dadd(-11.92, 141.97, -4.134, 0.78)
pt3dadd(-12.025, 141.95, -4.18, 0.796)
pt3dadd(-12.132, 141.93, -4.225, 0.812)
pt3dadd(-12.237, 141.91, -4.271, 0.828)
pt3dadd(-12.342, 141.889, -4.317, 0.844)
pt3dadd(-12.447, 141.863, -4.362, 0.862)
pt3dadd(-12.552, 141.83, -4.404, 0.886)
pt3dadd(-12.656, 141.797, -4.447, 0.908)
pt3dadd(-12.76, 141.764, -4.489, 0.93)
pt3dadd(-12.864, 141.731, -4.532, 0.952)
pt3dadd(-12.948, 141.714, -4.604, 0.97)
pt3dadd(-13.03, 141.697, -4.678, 0.986)
pt3dadd(-13.112, 141.682, -4.752, 1.002)
pt3dadd(-13.193, 141.666, -4.826, 1.02)
pt3dadd(-13.285, 141.658, -4.889, 1.034)
pt3dadd(-13.391, 141.66, -4.937, 1.042)
pt3dadd(-13.497, 141.662, -4.985, 1.052)
pt3dadd(-13.604, 141.665, -5.032, 1.062)
pt3dadd(-13.709, 141.667, -5.08, 1.072)
pt3dadd(-13.814, 141.67, -5.13, 1.078)
pt3dadd(-13.912, 141.672, -5.189, 1.066)
pt3dadd(-14.009, 141.674, -5.248, 1.054)
pt3dadd(-14.127, 141.678, -5.268, 1.024)
pt3dadd(-14.243, 141.68, -5.288, 0.996)
pt3dadd(-14.355, 141.684, -5.322, 0.974)
pt3dadd(-14.457, 141.686, -5.376, 0.962)
pt3dadd(-14.544, 141.688, -5.44, 0.956)
pt3dadd(-14.582, 141.689, -5.537, 0.968)
pt3dadd(-14.62, 141.689, -5.634, 0.978)
pt3dadd(-14.698, 141.69, -5.711, 1.026)
pt3dadd(-14.782, 141.692, -5.785, 1.058)
pt3dadd(-14.864, 141.694, -5.86, 1.062)
pt3dadd(-14.947, 141.696, -5.934, 1.068)
pt3dadd(-15.028, 141.697, -6.009, 1.072)
pt3dadd(-15.111, 141.7, -6.084, 1.078)
pt3dadd(-15.187, 141.731, -6.154, 1.076)
pt3dadd(-15.256, 141.792, -6.219, 1.07)
pt3dadd(-15.324, 141.852, -6.285, 1.064)
pt3dadd(-15.393, 141.913, -6.351, 1.058)
pt3dadd(-15.463, 141.967, -6.42, 1.03)
pt3dadd(-15.535, 142.014, -6.491, 0.972)
pt3dadd(-15.627, 142.049, -6.547, 0.91)
pt3dadd(-15.728, 142.079, -6.596, 0.846)
pt3dadd(-15.832, 142.124, -6.615, 0.786)
pt3dadd(-15.94, 142.175, -6.623, 0.73)
pt3dadd(-16.026, 142.25, -6.628, 0.684)
pt3dadd(-16.097, 142.345, -6.631, 0.648)
pt3dadd(-16.171, 142.438, -6.634, 0.642)
pt3dadd(-16.252, 142.524, -6.637, 0.678)
pt3dadd(-16.329, 142.603, -6.677, 0.696)
pt3dadd(-16.405, 142.681, -6.717, 0.714)
pt3dadd(-16.482, 142.759, -6.757, 0.732)
pt3dadd(-16.558, 142.838, -6.798, 0.75)
pt3dadd(-16.659, 142.894, -6.814, 0.77)
pt3dadd(-16.767, 142.944, -6.826, 0.79)
pt3dadd(-16.873, 142.994, -6.838, 0.81)
pt3dadd(-16.98, 143.046, -6.85, 0.83)
pt3dadd(-17.086, 143.096, -6.861, 0.85)
pt3dadd(-17.195, 143.141, -6.877, 0.854)
pt3dadd(-17.304, 143.183, -6.893, 0.854)
pt3dadd(-17.414, 143.226, -6.909, 0.854)
pt3dadd(-17.523, 143.269, -6.926, 0.854)
pt3dadd(-17.632, 143.312, -6.942, 0.854)
pt3dadd(-17.737, 143.356, -6.971, 0.854)
pt3dadd(-17.843, 143.399, -7.003, 0.854)
pt3dadd(-17.947, 143.442, -7.035, 0.854)
pt3dadd(-17.946, 143.441, -7.038, 0.854)
pt3dadd(-18.051, 143.484, -7.07, 0.854)
pt3dadd(-18.158, 143.525, -7.095, 0.852)
pt3dadd(-18.272, 143.558, -7.098, 0.848)
pt3dadd(-18.386, 143.591, -7.1, 0.844)
pt3dadd(-18.5, 143.624, -7.103, 0.84)
pt3dadd(-18.613, 143.657, -7.106, 0.836)
pt3dadd(-18.727, 143.69, -7.109, 0.832)
pt3dadd(-18.84, 143.72, -7.126, 0.826)
pt3dadd(-18.951, 143.747, -7.155, 0.822)
pt3dadd(-19.062, 143.774, -7.185, 0.816)
pt3dadd(-19.173, 143.801, -7.215, 0.812)
pt3dadd(-19.283, 143.828, -7.245, 0.806)
pt3dadd(-19.282, 143.827, -7.248, 0.806)
pt3dadd(-19.396, 143.84, -7.278, 0.798)
pt3dadd(-19.51, 143.844, -7.308, 0.79)
pt3dadd(-19.624, 143.846, -7.339, 0.782)
pt3dadd(-19.738, 143.85, -7.369, 0.772)
pt3dadd(-19.852, 143.852, -7.399, 0.764)
pt3dadd(-19.966, 143.855, -7.43, 0.754)
pt3dadd(-20.085, 143.858, -7.437, 0.744)
pt3dadd(-20.203, 143.862, -7.441, 0.732)
pt3dadd(-20.322, 143.864, -7.446, 0.722)
pt3dadd(-20.441, 143.868, -7.451, 0.71)
pt3dadd(-20.56, 143.87, -7.455, 0.7)
pt3dadd(-20.679, 143.874, -7.46, 0.688)
pt3dadd(-20.797, 143.876, -7.464, 0.678)
pt3dadd(-20.914, 143.866, -7.485, 0.668)
pt3dadd(-21.03, 143.854, -7.506, 0.66)
pt3dadd(-21.146, 143.842, -7.528, 0.65)
pt3dadd(-21.263, 143.83, -7.549, 0.642)
pt3dadd(-21.379, 143.819, -7.57, 0.632)
pt3dadd(-21.497, 143.812, -7.581, 0.626)
pt3dadd(-21.615, 143.808, -7.584, 0.622)
pt3dadd(-21.734, 143.806, -7.587, 0.618)
pt3dadd(-21.853, 143.803, -7.59, 0.614)
pt3dadd(-21.972, 143.8, -7.593, 0.61)
pt3dadd(-22.091, 143.797, -7.596, 0.608)
pt3dadd(-22.21, 143.794, -7.599, 0.604)
pt3dadd(-22.322, 143.796, -7.631, 0.606)
pt3dadd(-22.434, 143.798, -7.669, 0.612)
pt3dadd(-22.545, 143.802, -7.706, 0.616)
pt3dadd(-22.656, 143.804, -7.744, 0.62)
pt3dadd(-22.768, 143.807, -7.782, 0.626)
pt3dadd(-22.879, 143.81, -7.818, 0.63)
pt3dadd(-22.992, 143.813, -7.853, 0.634)
pt3dadd(-23.104, 143.816, -7.888, 0.638)
pt3dadd(-23.217, 143.819, -7.924, 0.644)
pt3dadd(-23.329, 143.821, -7.959, 0.648)
pt3dadd(-23.441, 143.825, -7.994, 0.652)
pt3dadd(-23.549, 143.827, -8.038, 0.662)
pt3dadd(-23.657, 143.83, -8.083, 0.67)
pt3dadd(-23.765, 143.832, -8.128, 0.68)
pt3dadd(-23.872, 143.836, -8.173, 0.69)
pt3dadd(-23.98, 143.838, -8.218, 0.7)
pt3dadd(-24.094, 143.844, -8.239, 0.704)
pt3dadd(-24.213, 143.851, -8.246, 0.704)
pt3dadd(-24.331, 143.86, -8.253, 0.704)
pt3dadd(-24.427, 143.911, -8.287, 0.704)
pt3dadd(-24.519, 143.972, -8.327, 0.702)
pt3dadd(-24.605, 144.034, -8.373, 0.674)
pt3dadd(-24.681, 144.083, -8.431, 0.65)
pt3dadd(-24.721, 144.089, -8.528, 0.64)
pt3dadd(-24.761, 144.096, -8.625, 0.628)
pt3dadd(-24.86, 144.098, -8.682, 0.61)
pt3dadd(-24.956, 144.101, -8.743, 0.602)
pt3dadd(-25.048, 144.102, -8.809, 0.602)
pt3dadd(-25.14, 144.102, -8.875, 0.598)
pt3dadd(-25.23, 144.097, -8.943, 0.586)
pt3dadd(-25.316, 144.074, -9.008, 0.568)
pt3dadd(-25.393, 144.014, -9.069, 0.538)
pt3dadd(-25.392, 144.013, -9.071, 0.538)
pt3dadd(-25.391, 144.012, -9.074, 0.538)
}
apic[12] {pt3dclear()
pt3dadd(64.632, 130.528, 6.633, 2.034)
pt3dadd(64.698, 130.588, 6.619, 1.988)
pt3dadd(64.784, 130.667, 6.6, 1.926)
pt3dadd(64.871, 130.746, 6.581, 1.864)
pt3dadd(64.958, 130.826, 6.561, 1.802)
pt3dadd(65.045, 130.906, 6.542, 1.74)
pt3dadd(65.132, 130.985, 6.523, 1.678)
pt3dadd(65.219, 131.064, 6.504, 1.616)
pt3dadd(65.306, 131.144, 6.485, 1.554)
pt3dadd(65.393, 131.224, 6.466, 1.492)
pt3dadd(65.48, 131.303, 6.447, 1.43)
pt3dadd(65.567, 131.383, 6.428, 1.37)
pt3dadd(65.654, 131.462, 6.409, 1.308)
pt3dadd(65.74, 131.542, 6.39, 1.246)
pt3dadd(65.827, 131.621, 6.371, 1.184)
pt3dadd(65.914, 131.701, 6.351, 1.122)
pt3dadd(66.001, 131.78, 6.332, 1.06)
pt3dadd(66.088, 131.86, 6.313, 0.998)
pt3dadd(66.175, 131.939, 6.294, 0.936)
pt3dadd(66.266, 132.008, 6.274, 0.884)
pt3dadd(66.381, 132.024, 6.247, 0.874)
pt3dadd(66.495, 132.04, 6.22, 0.864)
pt3dadd(66.61, 132.055, 6.193, 0.854)
pt3dadd(66.724, 132.072, 6.166, 0.844)
pt3dadd(66.839, 132.088, 6.139, 0.836)
pt3dadd(66.953, 132.103, 6.112, 0.826)
pt3dadd(67.068, 132.119, 6.085, 0.816)
pt3dadd(67.182, 132.134, 6.058, 0.806)
pt3dadd(67.296, 132.15, 6.031, 0.796)
}
apic[13] {pt3dclear()
pt3dadd(67.296, 132.15, 6.031, 0.796)
pt3dadd(67.346, 132.149, 6.011, 0.804)
pt3dadd(67.458, 132.133, 5.972, 0.824)
pt3dadd(67.57, 132.118, 5.933, 0.842)
pt3dadd(67.683, 132.102, 5.893, 0.862)
pt3dadd(67.795, 132.086, 5.854, 0.88)
pt3dadd(67.907, 132.07, 5.815, 0.9)
pt3dadd(68.019, 132.054, 5.775, 0.918)
pt3dadd(68.131, 132.038, 5.736, 0.938)
pt3dadd(68.244, 132.023, 5.697, 0.958)
pt3dadd(68.356, 132.006, 5.657, 0.976)
pt3dadd(68.464, 131.984, 5.613, 0.982)
pt3dadd(68.567, 131.954, 5.564, 0.974)
pt3dadd(68.67, 131.926, 5.515, 0.964)
pt3dadd(68.774, 131.897, 5.466, 0.956)
pt3dadd(68.877, 131.867, 5.416, 0.946)
pt3dadd(68.98, 131.838, 5.367, 0.938)
pt3dadd(69.083, 131.809, 5.318, 0.928)
pt3dadd(69.187, 131.779, 5.269, 0.92)
pt3dadd(69.29, 131.75, 5.22, 0.91)
pt3dadd(69.393, 131.72, 5.17, 0.902)
pt3dadd(69.491, 131.675, 5.126, 0.864)
pt3dadd(69.586, 131.618, 5.084, 0.81)
pt3dadd(69.681, 131.562, 5.043, 0.756)
}
}
proc shape3d_67() {
apic[13] { pt3dadd(69.776, 131.506, 5.001, 0.7)
pt3dadd(69.871, 131.449, 4.959, 0.646)
pt3dadd(69.966, 131.393, 4.918, 0.59)
pt3dadd(70.061, 131.335, 4.876, 0.536)
pt3dadd(70.156, 131.279, 4.834, 0.482)
pt3dadd(70.251, 131.222, 4.793, 0.426)
pt3dadd(70.346, 131.166, 4.751, 0.372)
pt3dadd(70.423, 131.102, 4.695, 0.418)
pt3dadd(70.492, 131.036, 4.633, 0.512)
pt3dadd(70.561, 130.97, 4.571, 0.608)
pt3dadd(70.564, 130.974, 4.569, 0.608)
pt3dadd(70.632, 130.909, 4.506, 0.702)
pt3dadd(70.701, 130.843, 4.444, 0.796)
pt3dadd(70.77, 130.777, 4.382, 0.89)
pt3dadd(70.839, 130.711, 4.319, 0.986)
pt3dadd(70.908, 130.646, 4.257, 1.08)
pt3dadd(70.977, 130.58, 4.194, 1.174)
pt3dadd(71.046, 130.514, 4.132, 1.27)
pt3dadd(71.107, 130.426, 4.092, 1.262)
pt3dadd(71.166, 130.331, 4.057, 1.228)
pt3dadd(71.226, 130.237, 4.023, 1.194)
pt3dadd(71.285, 130.142, 3.988, 1.16)
pt3dadd(71.344, 130.048, 3.953, 1.126)
pt3dadd(71.404, 129.953, 3.919, 1.092)
pt3dadd(71.463, 129.858, 3.884, 1.058)
pt3dadd(71.523, 129.763, 3.85, 1.024)
pt3dadd(71.582, 129.668, 3.815, 0.99)
pt3dadd(71.641, 129.574, 3.78, 0.956)
pt3dadd(71.721, 129.49, 3.757, 0.958)
pt3dadd(71.805, 129.408, 3.736, 0.968)
pt3dadd(71.888, 129.326, 3.714, 0.976)
pt3dadd(71.971, 129.244, 3.693, 0.986)
pt3dadd(72.055, 129.162, 3.671, 0.994)
pt3dadd(72.138, 129.079, 3.65, 1.004)
pt3dadd(72.221, 128.998, 3.628, 1.012)
pt3dadd(72.305, 128.915, 3.607, 1.022)
pt3dadd(72.388, 128.833, 3.585, 1.03)
pt3dadd(72.471, 128.752, 3.564, 1.04)
pt3dadd(72.574, 128.693, 3.545, 0.99)
pt3dadd(72.679, 128.638, 3.527, 0.936)
pt3dadd(72.784, 128.581, 3.508, 0.88)
pt3dadd(72.889, 128.526, 3.489, 0.826)
pt3dadd(72.994, 128.47, 3.471, 0.772)
pt3dadd(73.099, 128.413, 3.452, 0.718)
pt3dadd(73.204, 128.358, 3.434, 0.664)
pt3dadd(73.308, 128.302, 3.415, 0.61)
pt3dadd(73.413, 128.246, 3.396, 0.554)
pt3dadd(73.518, 128.19, 3.378, 0.5)
pt3dadd(73.622, 128.158, 3.331, 0.56)
pt3dadd(73.725, 128.126, 3.284, 0.624)
pt3dadd(73.829, 128.094, 3.237, 0.686)
pt3dadd(73.933, 128.062, 3.19, 0.75)
pt3dadd(74.036, 128.03, 3.142, 0.812)
pt3dadd(74.14, 127.998, 3.095, 0.876)
pt3dadd(74.244, 127.967, 3.048, 0.938)
pt3dadd(74.347, 127.934, 3.001, 1)
pt3dadd(74.451, 127.903, 2.953, 1.064)
pt3dadd(74.555, 127.871, 2.906, 1.126)
pt3dadd(74.619, 127.782, 2.865, 1.104)
pt3dadd(74.683, 127.694, 2.825, 1.082)
pt3dadd(74.747, 127.606, 2.784, 1.06)
pt3dadd(74.811, 127.517, 2.743, 1.038)
pt3dadd(74.875, 127.428, 2.703, 1.016)
pt3dadd(74.939, 127.339, 2.662, 0.994)
pt3dadd(75.003, 127.25, 2.622, 0.97)
pt3dadd(75.067, 127.163, 2.581, 0.948)
pt3dadd(75.131, 127.074, 2.54, 0.926)
pt3dadd(75.195, 126.985, 2.5, 0.904)
pt3dadd(75.197, 126.988, 2.497, 0.904)
pt3dadd(75.2, 126.991, 2.495, 0.904)
pt3dadd(75.202, 126.995, 2.493, 0.904)
pt3dadd(75.205, 126.998, 2.391, 0.926)
pt3dadd(75.207, 127.002, 2.289, 0.948)
pt3dadd(75.21, 127.006, 2.186, 0.968)
pt3dadd(75.212, 127.009, 2.084, 0.99)
pt3dadd(75.215, 127.013, 1.982, 1.012)
pt3dadd(75.217, 127.016, 1.88, 1.034)
pt3dadd(75.22, 127.02, 1.777, 1.054)
pt3dadd(75.222, 127.007, 1.676, 1.092)
pt3dadd(75.224, 126.994, 1.575, 1.128)
pt3dadd(75.226, 126.979, 1.474, 1.164)
pt3dadd(75.228, 126.966, 1.373, 1.202)
pt3dadd(75.23, 126.952, 1.271, 1.238)
pt3dadd(75.232, 126.955, 1.269, 1.238)
pt3dadd(75.234, 126.942, 1.168, 1.274)
pt3dadd(75.235, 126.899, 1.075, 1.32)
pt3dadd(75.236, 126.848, 0.983, 1.368)
pt3dadd(75.236, 126.798, 0.891, 1.416)
pt3dadd(75.237, 126.749, 0.8, 1.464)
pt3dadd(75.238, 126.698, 0.708, 1.514)
pt3dadd(75.239, 126.658, 0.613, 1.546)
pt3dadd(75.24, 126.622, 0.516, 1.568)
pt3dadd(75.241, 126.587, 0.419, 1.592)
pt3dadd(75.242, 126.552, 0.322, 1.614)
pt3dadd(75.243, 126.517, 0.226, 1.636)
pt3dadd(75.245, 126.482, 0.128, 1.656)
pt3dadd(75.246, 126.452, 0.03, 1.646)
pt3dadd(75.247, 126.424, -0.068, 1.636)
pt3dadd(75.238, 126.404, -0.168, 1.598)
pt3dadd(75.223, 126.392, -0.268, 1.544)
pt3dadd(75.197, 126.385, -0.365, 1.488)
pt3dadd(75.199, 126.389, -0.367, 1.488)
pt3dadd(75.202, 126.392, -0.37, 1.488)
pt3dadd(75.143, 126.398, -0.458, 1.418)
pt3dadd(75.081, 126.404, -0.543, 1.348)
pt3dadd(74.98, 126.412, -0.596, 1.268)
pt3dadd(74.88, 126.419, -0.649, 1.188)
pt3dadd(74.767, 126.426, -0.681, 1.068)
pt3dadd(74.661, 126.433, -0.719, 0.966)
pt3dadd(74.567, 126.44, -0.782, 0.922)
pt3dadd(74.474, 126.448, -0.844, 0.876)
pt3dadd(74.38, 126.454, -0.906, 0.832)
pt3dadd(74.287, 126.461, -0.968, 0.786)
pt3dadd(74.213, 126.467, -1.041, 0.736)
pt3dadd(74.189, 126.472, -1.141, 0.676)
pt3dadd(74.165, 126.476, -1.241, 0.616)
pt3dadd(74.07, 126.479, -1.279, 0.588)
pt3dadd(73.955, 126.481, -1.299, 0.566)
pt3dadd(73.841, 126.473, -1.314, 0.558)
pt3dadd(73.731, 126.433, -1.316, 0.58)
pt3dadd(73.622, 126.394, -1.318, 0.602)
pt3dadd(73.546, 126.307, -1.321, 0.638)
pt3dadd(73.47, 126.22, -1.323, 0.672)
pt3dadd(73.421, 126.115, -1.325, 0.72)
pt3dadd(73.381, 126.007, -1.333, 0.76)
pt3dadd(73.355, 125.897, -1.352, 0.778)
pt3dadd(73.328, 125.785, -1.371, 0.798)
pt3dadd(73.3, 125.675, -1.391, 0.818)
pt3dadd(73.273, 125.563, -1.41, 0.836)
pt3dadd(73.249, 125.453, -1.429, 0.856)
pt3dadd(73.245, 125.339, -1.451, 0.868)
pt3dadd(73.241, 125.225, -1.472, 0.88)
pt3dadd(73.237, 125.111, -1.493, 0.894)
pt3dadd(73.233, 124.997, -1.514, 0.906)
pt3dadd(73.229, 124.882, -1.535, 0.92)
pt3dadd(73.217, 124.77, -1.555, 0.93)
pt3dadd(73.173, 124.664, -1.571, 0.936)
pt3dadd(73.128, 124.559, -1.586, 0.94)
pt3dadd(73.083, 124.453, -1.602, 0.946)
pt3dadd(73.038, 124.348, -1.618, 0.95)
pt3dadd(73.005, 124.24, -1.632, 0.954)
pt3dadd(73.002, 124.123, -1.641, 0.95)
pt3dadd(72.998, 124.007, -1.65, 0.946)
pt3dadd(72.994, 123.892, -1.659, 0.942)
pt3dadd(72.991, 123.775, -1.668, 0.938)
pt3dadd(72.987, 123.659, -1.677, 0.934)
pt3dadd(72.983, 123.544, -1.686, 0.93)
pt3dadd(72.982, 123.433, -1.718, 0.922)
pt3dadd(72.981, 123.324, -1.755, 0.912)
pt3dadd(72.979, 123.215, -1.792, 0.904)
pt3dadd(72.978, 123.107, -1.829, 0.894)
pt3dadd(72.976, 122.998, -1.866, 0.884)
pt3dadd(72.969, 122.887, -1.897, 0.876)
pt3dadd(72.953, 122.774, -1.917, 0.866)
pt3dadd(72.937, 122.662, -1.938, 0.856)
pt3dadd(72.921, 122.549, -1.958, 0.848)
pt3dadd(72.904, 122.436, -1.979, 0.838)
pt3dadd(72.888, 122.323, -1.999, 0.83)
pt3dadd(72.872, 122.208, -2.003, 0.794)
pt3dadd(72.856, 122.093, -2.005, 0.758)
pt3dadd(72.842, 121.979, -2.014, 0.722)
pt3dadd(72.841, 121.867, -2.043, 0.69)
pt3dadd(72.839, 121.756, -2.073, 0.66)
pt3dadd(72.823, 121.655, -2.121, 0.642)
pt3dadd(72.801, 121.558, -2.174, 0.63)
pt3dadd(72.76, 121.477, -2.237, 0.628)
pt3dadd(72.717, 121.4, -2.302, 0.628)
pt3dadd(72.716, 121.319, -2.375, 0.628)
pt3dadd(72.716, 121.249, -2.455, 0.628)
pt3dadd(72.716, 121.184, -2.54, 0.628)
pt3dadd(72.686, 121.106, -2.596, 0.66)
pt3dadd(72.623, 121.014, -2.622, 0.726)
pt3dadd(72.551, 120.925, -2.634, 0.806)
pt3dadd(72.476, 120.838, -2.636, 0.902)
pt3dadd(72.39, 120.761, -2.639, 0.994)
pt3dadd(72.292, 120.701, -2.641, 1.088)
pt3dadd(72.19, 120.647, -2.643, 1.168)
pt3dadd(72.079, 120.612, -2.645, 1.218)
pt3dadd(71.994, 120.539, -2.648, 1.226)
pt3dadd(71.917, 120.451, -2.65, 1.222)
pt3dadd(71.842, 120.364, -2.652, 1.216)
pt3dadd(71.766, 120.276, -2.654, 1.212)
pt3dadd(71.691, 120.188, -2.656, 1.206)
pt3dadd(71.642, 120.085, -2.659, 1.19)
pt3dadd(71.601, 119.977, -2.661, 1.168)
pt3dadd(71.539, 119.887, -2.67, 1.156)
pt3dadd(71.443, 119.825, -2.689, 1.156)
pt3dadd(71.356, 119.785, -2.734, 1.16)
pt3dadd(71.281, 119.77, -2.812, 1.174)
pt3dadd(71.222, 119.752, -2.897, 1.18)
pt3dadd(71.177, 119.731, -2.988, 1.18)
pt3dadd(71.155, 119.663, -3.051, 1.162)
pt3dadd(71.154, 119.555, -3.089, 1.13)
pt3dadd(71.154, 119.498, -3.177, 1.12)
pt3dadd(71.155, 119.442, -3.266, 1.11)
pt3dadd(71.155, 119.386, -3.355, 1.1)
pt3dadd(71.155, 119.329, -3.444, 1.092)
pt3dadd(71.156, 119.273, -3.533, 1.082)
pt3dadd(71.156, 119.217, -3.622, 1.08)
pt3dadd(71.157, 119.161, -3.711, 1.08)
}
}
proc shape3d_68() {
apic[13] { pt3dadd(71.157, 119.104, -3.8, 1.08)
pt3dadd(71.158, 119.048, -3.888, 1.08)
pt3dadd(71.158, 118.992, -3.977, 1.08)
pt3dadd(71.16, 118.979, -4.076, 1.086)
pt3dadd(71.163, 118.983, -4.178, 1.094)
pt3dadd(71.165, 118.986, -4.28, 1.102)
pt3dadd(71.163, 118.965, -4.379, 1.112)
pt3dadd(71.166, 118.968, -4.382, 1.112)
pt3dadd(71.161, 118.938, -4.48, 1.124)
pt3dadd(71.138, 118.904, -4.573, 1.13)
pt3dadd(71.089, 118.867, -4.658, 1.13)
pt3dadd(71.047, 118.805, -4.732, 1.138)
pt3dadd(71.011, 118.722, -4.795, 1.152)
pt3dadd(70.926, 118.682, -4.845, 1.182)
pt3dadd(70.929, 118.685, -4.847, 1.182)
pt3dadd(70.844, 118.671, -4.91, 1.23)
pt3dadd(70.783, 118.671, -4.997, 1.29)
pt3dadd(70.725, 118.656, -5.082, 1.348)
pt3dadd(70.675, 118.609, -5.164, 1.404)
pt3dadd(70.595, 118.567, -5.214, 1.444)
pt3dadd(70.487, 118.53, -5.232, 1.468)
pt3dadd(70.374, 118.506, -5.243, 1.466)
pt3dadd(70.257, 118.498, -5.246, 1.428)
pt3dadd(70.141, 118.492, -5.248, 1.39)
pt3dadd(70.031, 118.454, -5.252, 1.356)
pt3dadd(69.926, 118.406, -5.258, 1.32)
pt3dadd(69.82, 118.358, -5.263, 1.286)
pt3dadd(69.717, 118.314, -5.275, 1.248)
pt3dadd(69.628, 118.301, -5.341, 1.182)
pt3dadd(69.549, 118.287, -5.412, 1.122)
pt3dadd(69.507, 118.273, -5.507, 1.086)
pt3dadd(69.466, 118.259, -5.601, 1.05)
pt3dadd(69.434, 118.203, -5.66, 1.008)
pt3dadd(69.437, 118.207, -5.663, 1.008)
pt3dadd(69.42, 118.093, -5.674, 0.958)
pt3dadd(69.402, 117.978, -5.685, 0.908)
pt3dadd(69.361, 117.919, -5.761, 0.856)
pt3dadd(69.317, 117.864, -5.841, 0.804)
pt3dadd(69.281, 117.811, -5.925, 0.752)
pt3dadd(69.255, 117.76, -6.014, 0.7)
pt3dadd(69.203, 117.703, -6.085, 0.604)
pt3dadd(69.165, 117.612, -6.139, 0.586)
pt3dadd(69.127, 117.521, -6.193, 0.568)
pt3dadd(69.09, 117.43, -6.247, 0.55)
pt3dadd(69.052, 117.339, -6.3, 0.532)
pt3dadd(69.005, 117.249, -6.348, 0.518)
pt3dadd(68.952, 117.159, -6.393, 0.504)
pt3dadd(68.889, 117.064, -6.406, 0.512)
pt3dadd(68.824, 116.968, -6.413, 0.524)
pt3dadd(68.827, 116.972, -6.416, 0.524)
pt3dadd(68.807, 116.878, -6.464, 0.564)
pt3dadd(68.809, 116.882, -6.467, 0.564)
pt3dadd(68.803, 116.789, -6.528, 0.614)
pt3dadd(68.8, 116.711, -6.602, 0.652)
pt3dadd(68.8, 116.64, -6.683, 0.688)
pt3dadd(68.799, 116.55, -6.744, 0.722)
pt3dadd(68.798, 116.446, -6.79, 0.754)
pt3dadd(68.796, 116.333, -6.815, 0.748)
pt3dadd(68.795, 116.22, -6.84, 0.744)
pt3dadd(68.793, 116.107, -6.865, 0.74)
pt3dadd(68.792, 115.993, -6.89, 0.736)
pt3dadd(68.79, 115.88, -6.915, 0.732)
pt3dadd(68.793, 115.767, -6.935, 0.728)
pt3dadd(68.812, 115.651, -6.937, 0.728)
pt3dadd(68.83, 115.536, -6.939, 0.728)
pt3dadd(68.847, 115.42, -6.941, 0.728)
pt3dadd(68.866, 115.305, -6.943, 0.728)
pt3dadd(68.884, 115.189, -6.946, 0.728)
pt3dadd(68.899, 115.074, -6.948, 0.728)
pt3dadd(68.897, 114.957, -6.95, 0.732)
pt3dadd(68.896, 114.841, -6.952, 0.736)
pt3dadd(68.894, 114.725, -6.955, 0.74)
pt3dadd(68.892, 114.609, -6.957, 0.744)
pt3dadd(68.891, 114.492, -6.959, 0.746)
pt3dadd(68.889, 114.376, -6.961, 0.75)
pt3dadd(68.887, 114.259, -6.964, 0.756)
pt3dadd(68.886, 114.143, -6.966, 0.766)
pt3dadd(68.884, 114.027, -6.968, 0.776)
pt3dadd(68.882, 113.91, -6.97, 0.788)
pt3dadd(68.881, 113.794, -6.972, 0.798)
pt3dadd(68.879, 113.678, -6.975, 0.81)
pt3dadd(68.877, 113.561, -6.977, 0.82)
pt3dadd(68.879, 113.446, -6.982, 0.83)
pt3dadd(68.901, 113.333, -7.004, 0.834)
pt3dadd(68.923, 113.22, -7.025, 0.84)
pt3dadd(68.944, 113.108, -7.047, 0.844)
pt3dadd(68.966, 112.995, -7.068, 0.848)
pt3dadd(68.968, 112.999, -7.07, 0.848)
pt3dadd(68.99, 112.886, -7.092, 0.854)
pt3dadd(68.994, 112.77, -7.095, 0.846)
pt3dadd(68.996, 112.653, -7.097, 0.836)
pt3dadd(69.003, 112.537, -7.099, 0.826)
pt3dadd(69.041, 112.426, -7.101, 0.794)
pt3dadd(69.079, 112.315, -7.104, 0.762)
pt3dadd(69.093, 112.206, -7.131, 0.736)
pt3dadd(69.096, 112.097, -7.168, 0.714)
pt3dadd(69.099, 111.994, -7.215, 0.704)
pt3dadd(69.098, 111.899, -7.274, 0.704)
pt3dadd(69.097, 111.808, -7.337, 0.704)
pt3dadd(69.097, 111.727, -7.41, 0.704)
pt3dadd(69.127, 111.626, -7.452, 0.704)
pt3dadd(69.162, 111.522, -7.491, 0.704)
pt3dadd(69.195, 111.419, -7.53, 0.704)
pt3dadd(69.229, 111.315, -7.569, 0.704)
pt3dadd(69.261, 111.208, -7.597, 0.7)
pt3dadd(69.288, 111.095, -7.605, 0.69)
pt3dadd(69.317, 110.981, -7.614, 0.682)
pt3dadd(69.344, 110.868, -7.622, 0.672)
pt3dadd(69.372, 110.754, -7.63, 0.664)
pt3dadd(69.4, 110.64, -7.638, 0.654)
pt3dadd(69.444, 110.535, -7.66, 0.662)
pt3dadd(69.492, 110.43, -7.684, 0.674)
pt3dadd(69.54, 110.326, -7.708, 0.684)
pt3dadd(69.588, 110.221, -7.732, 0.694)
pt3dadd(69.627, 110.117, -7.761, 0.706)
pt3dadd(69.636, 110.014, -7.809, 0.722)
pt3dadd(69.646, 109.911, -7.856, 0.738)
pt3dadd(69.655, 109.808, -7.904, 0.752)
pt3dadd(69.665, 109.705, -7.951, 0.768)
pt3dadd(69.671, 109.597, -7.988, 0.786)
pt3dadd(69.669, 109.482, -8.003, 0.806)
pt3dadd(69.668, 109.367, -8.017, 0.826)
pt3dadd(69.666, 109.251, -8.032, 0.846)
pt3dadd(69.664, 109.136, -8.046, 0.866)
pt3dadd(69.663, 109.02, -8.061, 0.886)
pt3dadd(69.662, 108.905, -8.077, 0.904)
pt3dadd(69.686, 108.795, -8.106, 0.91)
pt3dadd(69.709, 108.685, -8.135, 0.914)
pt3dadd(69.731, 108.575, -8.164, 0.92)
pt3dadd(69.754, 108.464, -8.193, 0.924)
pt3dadd(69.774, 108.36, -8.229, 0.928)
pt3dadd(69.775, 108.303, -8.317, 0.916)
pt3dadd(69.775, 108.246, -8.406, 0.904)
pt3dadd(69.774, 108.143, -8.45, 0.864)
pt3dadd(69.773, 108.036, -8.492, 0.82)
pt3dadd(69.771, 107.927, -8.529, 0.776)
pt3dadd(69.77, 107.817, -8.564, 0.734)
pt3dadd(69.768, 107.706, -8.592, 0.696)
pt3dadd(69.767, 107.59, -8.598, 0.67)
pt3dadd(69.765, 107.474, -8.604, 0.644)
pt3dadd(69.763, 107.357, -8.608, 0.624)
pt3dadd(69.762, 107.241, -8.611, 0.61)
pt3dadd(69.753, 107.125, -8.615, 0.604)
pt3dadd(69.733, 107.011, -8.623, 0.608)
pt3dadd(69.714, 106.897, -8.631, 0.612)
pt3dadd(69.716, 106.901, -8.633, 0.612)
pt3dadd(69.697, 106.787, -8.641, 0.618)
pt3dadd(69.676, 106.673, -8.649, 0.622)
pt3dadd(69.656, 106.558, -8.657, 0.626)
pt3dadd(69.645, 106.447, -8.679, 0.632)
pt3dadd(69.641, 106.337, -8.714, 0.642)
pt3dadd(69.638, 106.227, -8.749, 0.652)
pt3dadd(69.634, 106.118, -8.784, 0.66)
pt3dadd(69.63, 106.008, -8.819, 0.67)
pt3dadd(69.626, 105.899, -8.854, 0.68)
pt3dadd(69.625, 105.79, -8.891, 0.694)
pt3dadd(69.623, 105.681, -8.928, 0.708)
pt3dadd(69.622, 105.572, -8.965, 0.72)
pt3dadd(69.624, 105.576, -8.967, 0.72)
pt3dadd(69.623, 105.467, -9.004, 0.734)
pt3dadd(69.622, 105.358, -9.041, 0.748)
pt3dadd(69.62, 105.244, -9.055, 0.758)
pt3dadd(69.618, 105.128, -9.057, 0.768)
pt3dadd(69.617, 105.011, -9.059, 0.776)
pt3dadd(69.615, 104.896, -9.073, 0.778)
pt3dadd(69.614, 104.782, -9.092, 0.778)
pt3dadd(69.612, 104.671, -9.116, 0.778)
pt3dadd(69.62, 104.611, -9.203, 0.778)
pt3dadd(69.626, 104.551, -9.29, 0.778)
pt3dadd(69.673, 104.525, -9.382, 0.816)
pt3dadd(69.721, 104.5, -9.473, 0.852)
pt3dadd(69.748, 104.393, -9.506, 0.882)
pt3dadd(69.774, 104.284, -9.537, 0.912)
pt3dadd(69.799, 104.175, -9.568, 0.94)
pt3dadd(69.82, 104.066, -9.6, 0.966)
pt3dadd(69.837, 103.957, -9.634, 0.99)
pt3dadd(69.848, 103.846, -9.666, 0.968)
pt3dadd(69.851, 103.747, -9.716, 0.908)
pt3dadd(69.859, 103.658, -9.781, 0.872)
pt3dadd(69.867, 103.569, -9.846, 0.834)
pt3dadd(69.874, 103.479, -9.912, 0.796)
pt3dadd(69.882, 103.39, -9.977, 0.76)
pt3dadd(69.916, 103.289, -10.017, 0.726)
pt3dadd(69.957, 103.185, -10.051, 0.692)
pt3dadd(69.996, 103.081, -10.085, 0.66)
pt3dadd(70.037, 102.978, -10.119, 0.626)
pt3dadd(70.073, 102.873, -10.154, 0.598)
pt3dadd(70.101, 102.768, -10.192, 0.582)
pt3dadd(70.127, 102.662, -10.23, 0.566)
pt3dadd(70.154, 102.556, -10.268, 0.55)
pt3dadd(70.182, 102.45, -10.306, 0.534)
pt3dadd(70.191, 102.346, -10.35, 0.528)
pt3dadd(70.212, 102.246, -10.398, 0.502)
pt3dadd(70.265, 102.145, -10.425, 0.502)
pt3dadd(70.321, 102.042, -10.429, 0.558)
pt3dadd(70.41, 101.967, -10.431, 0.608)
pt3dadd(70.527, 101.94, -10.423, 0.65)
pt3dadd(70.644, 101.938, -10.397, 0.678)
pt3dadd(70.757, 101.938, -10.365, 0.678)
pt3dadd(70.878, 101.937, -10.373, 0.678)
}
}
proc shape3d_69() {
apic[13] { pt3dadd(70.988, 101.937, -10.421, 0.668)
pt3dadd(71.085, 101.937, -10.483, 0.64)
pt3dadd(71.168, 101.938, -10.558, 0.616)
pt3dadd(71.259, 101.957, -10.624, 0.592)
pt3dadd(71.357, 102.001, -10.675, 0.564)
pt3dadd(71.403, 102.013, -10.754, 0.552)
pt3dadd(71.41, 102.003, -10.856, 0.552)
pt3dadd(71.417, 101.992, -10.957, 0.552)
pt3dadd(71.42, 101.969, -11.057, 0.572)
pt3dadd(71.421, 101.94, -11.155, 0.604)
pt3dadd(71.422, 101.893, -11.242, 0.638)
pt3dadd(71.421, 101.79, -11.288, 0.68)
pt3dadd(71.42, 101.686, -11.335, 0.722)
pt3dadd(71.419, 101.583, -11.384, 0.77)
pt3dadd(71.418, 101.484, -11.437, 0.84)
pt3dadd(71.417, 101.388, -11.492, 0.906)
pt3dadd(71.418, 101.353, -11.589, 0.946)
pt3dadd(71.419, 101.319, -11.687, 0.986)
pt3dadd(71.42, 101.285, -11.784, 1.026)
pt3dadd(71.422, 101.261, -11.883, 1.056)
pt3dadd(71.423, 101.238, -11.983, 1.086)
pt3dadd(71.424, 101.188, -12.069, 1.104)
pt3dadd(71.424, 101.109, -12.143, 1.098)
pt3dadd(71.424, 101.035, -12.221, 1.088)
pt3dadd(71.423, 100.961, -12.299, 1.078)
pt3dadd(71.423, 100.886, -12.378, 1.068)
pt3dadd(71.423, 100.812, -12.456, 1.058)
pt3dadd(71.422, 100.716, -12.51, 1.042)
pt3dadd(71.421, 100.611, -12.554, 1.022)
pt3dadd(71.419, 100.505, -12.599, 1.002)
pt3dadd(71.418, 100.4, -12.643, 0.984)
pt3dadd(71.417, 100.295, -12.688, 0.964)
pt3dadd(71.404, 100.202, -12.744, 0.944)
pt3dadd(71.376, 100.124, -12.815, 0.92)
pt3dadd(71.348, 100.046, -12.886, 0.898)
pt3dadd(71.32, 99.968, -12.957, 0.874)
pt3dadd(71.295, 99.888, -13.027, 0.85)
pt3dadd(71.294, 99.788, -13.079, 0.816)
pt3dadd(71.292, 99.689, -13.132, 0.782)
pt3dadd(71.252, 99.616, -13.201, 0.766)
pt3dadd(71.208, 99.548, -13.274, 0.754)
pt3dadd(71.181, 99.489, -13.358, 0.754)
pt3dadd(71.151, 99.42, -13.425, 0.75)
pt3dadd(71.108, 99.313, -13.433, 0.74)
pt3dadd(71.064, 99.206, -13.44, 0.728)
pt3dadd(71.054, 99.09, -13.442, 0.728)
pt3dadd(71.047, 98.974, -13.444, 0.728)
pt3dadd(71.045, 98.858, -13.447, 0.728)
pt3dadd(71.043, 98.741, -13.449, 0.728)
pt3dadd(71.042, 98.625, -13.451, 0.728)
pt3dadd(71.04, 98.509, -13.453, 0.728)
pt3dadd(71.038, 98.392, -13.455, 0.728)
pt3dadd(71.037, 98.276, -13.458, 0.728)
pt3dadd(71.035, 98.16, -13.461, 0.73)
pt3dadd(71.034, 98.044, -13.475, 0.748)
pt3dadd(71.032, 97.929, -13.49, 0.766)
pt3dadd(71.03, 97.815, -13.51, 0.782)
pt3dadd(71.029, 97.703, -13.54, 0.792)
pt3dadd(71.027, 97.591, -13.57, 0.804)
pt3dadd(70.99, 97.484, -13.558, 0.814)
pt3dadd(70.951, 97.376, -13.545, 0.826)
pt3dadd(70.92, 97.28, -13.501, 0.808)
pt3dadd(70.892, 97.186, -13.451, 0.78)
pt3dadd(70.86, 97.137, -13.37, 0.75)
pt3dadd(70.827, 97.092, -13.285, 0.718)
pt3dadd(70.83, 97.096, -13.287, 0.718)
pt3dadd(70.833, 97.099, -13.29, 0.718)
pt3dadd(70.8, 97.054, -13.205, 0.688)
pt3dadd(70.802, 97.058, -13.207, 0.688)
pt3dadd(70.794, 97.042, -13.114, 0.594)
pt3dadd(70.797, 97.039, -13.016, 0.474)
}
apic[14] {pt3dclear()
pt3dadd(67.296, 132.15, 6.031, 0.796)
pt3dadd(67.303, 132.24, 5.98, 0.78)
pt3dadd(67.295, 132.352, 5.928, 0.758)
pt3dadd(67.287, 132.463, 5.876, 0.736)
pt3dadd(67.279, 132.574, 5.824, 0.714)
pt3dadd(67.271, 132.685, 5.772, 0.692)
pt3dadd(67.305, 132.787, 5.728, 0.678)
pt3dadd(67.401, 132.871, 5.696, 0.678)
pt3dadd(67.496, 132.956, 5.664, 0.678)
pt3dadd(67.592, 133.04, 5.632, 0.678)
pt3dadd(67.686, 133.126, 5.601, 0.678)
pt3dadd(67.759, 133.232, 5.592, 0.678)
pt3dadd(67.832, 133.339, 5.583, 0.678)
pt3dadd(67.905, 133.446, 5.574, 0.678)
pt3dadd(67.978, 133.553, 5.565, 0.678)
pt3dadd(68.051, 133.661, 5.556, 0.678)
pt3dadd(68.138, 133.757, 5.547, 0.678)
pt3dadd(68.226, 133.853, 5.538, 0.678)
pt3dadd(68.314, 133.949, 5.529, 0.678)
pt3dadd(68.402, 134.046, 5.52, 0.678)
pt3dadd(68.49, 134.142, 5.511, 0.678)
pt3dadd(68.571, 134.243, 5.502, 0.678)
pt3dadd(68.653, 134.344, 5.493, 0.678)
pt3dadd(68.736, 134.444, 5.484, 0.678)
pt3dadd(68.817, 134.545, 5.475, 0.678)
pt3dadd(68.899, 134.646, 5.466, 0.678)
pt3dadd(68.915, 134.77, 5.444, 0.678)
pt3dadd(68.93, 134.893, 5.422, 0.678)
pt3dadd(68.968, 135, 5.382, 0.678)
pt3dadd(69.04, 135.082, 5.315, 0.678)
pt3dadd(69.115, 135.172, 5.262, 0.678)
pt3dadd(69.192, 135.266, 5.216, 0.678)
pt3dadd(69.292, 135.348, 5.202, 0.678)
pt3dadd(69.396, 135.427, 5.193, 0.678)
pt3dadd(69.493, 135.515, 5.184, 0.678)
pt3dadd(69.589, 135.602, 5.171, 0.678)
pt3dadd(69.687, 135.686, 5.147, 0.678)
pt3dadd(69.786, 135.77, 5.123, 0.678)
pt3dadd(69.884, 135.854, 5.099, 0.678)
pt3dadd(69.982, 135.94, 5.076, 0.678)
pt3dadd(70.091, 136.008, 5.05, 0.678)
pt3dadd(70.202, 136.074, 5.024, 0.678)
pt3dadd(70.307, 136.152, 5.012, 0.678)
pt3dadd(70.411, 136.231, 5.003, 0.678)
pt3dadd(70.516, 136.308, 4.982, 0.678)
pt3dadd(70.622, 136.382, 4.956, 0.678)
pt3dadd(70.632, 136.387, 4.947, 0.678)
pt3dadd(70.688, 136.468, 4.88, 0.678)
pt3dadd(70.727, 136.552, 4.8, 0.678)
pt3dadd(70.819, 136.625, 4.75, 0.678)
pt3dadd(70.884, 136.717, 4.697, 0.678)
pt3dadd(70.934, 136.822, 4.642, 0.678)
pt3dadd(70.984, 136.925, 4.587, 0.678)
pt3dadd(71.034, 137.028, 4.531, 0.678)
pt3dadd(71.077, 137.13, 4.472, 0.678)
pt3dadd(71.108, 137.231, 4.406, 0.678)
pt3dadd(71.138, 137.336, 4.345, 0.678)
pt3dadd(71.168, 137.448, 4.292, 0.678)
pt3dadd(71.228, 137.537, 4.24, 0.678)
pt3dadd(71.334, 137.593, 4.188, 0.678)
pt3dadd(71.45, 137.642, 4.158, 0.678)
pt3dadd(71.572, 137.689, 4.144, 0.678)
pt3dadd(71.694, 137.736, 4.132, 0.678)
pt3dadd(71.816, 137.784, 4.123, 0.678)
pt3dadd(71.941, 137.824, 4.114, 0.678)
pt3dadd(72.07, 137.843, 4.105, 0.678)
pt3dadd(72.2, 137.848, 4.095, 0.678)
pt3dadd(72.327, 137.852, 4.067, 0.678)
pt3dadd(72.42, 137.857, 3.994, 0.678)
pt3dadd(72.457, 137.862, 3.889, 0.678)
pt3dadd(72.47, 137.868, 3.78, 0.678)
pt3dadd(72.48, 137.873, 3.671, 0.678)
pt3dadd(72.49, 137.878, 3.562, 0.678)
pt3dadd(72.5, 137.882, 3.453, 0.678)
pt3dadd(72.51, 137.899, 3.344, 0.678)
pt3dadd(72.52, 137.904, 3.335, 0.678)
pt3dadd(72.53, 137.965, 3.24, 0.678)
pt3dadd(72.54, 138.049, 3.158, 0.678)
pt3dadd(72.55, 138.114, 3.063, 0.678)
pt3dadd(72.56, 138.187, 2.972, 0.678)
pt3dadd(72.57, 138.28, 2.895, 0.678)
pt3dadd(72.58, 138.376, 2.822, 0.678)
pt3dadd(72.606, 138.463, 2.752, 0.678)
pt3dadd(72.616, 138.469, 2.743, 0.678)
pt3dadd(72.669, 138.52, 2.648, 0.678)
pt3dadd(72.721, 138.569, 2.553, 0.678)
pt3dadd(72.773, 138.619, 2.459, 0.678)
pt3dadd(72.826, 138.67, 2.364, 0.678)
pt3dadd(72.866, 138.676, 2.259, 0.678)
pt3dadd(72.906, 138.68, 2.153, 0.678)
pt3dadd(72.946, 138.685, 2.047, 0.678)
pt3dadd(72.987, 138.69, 1.941, 0.678)
pt3dadd(73.027, 138.695, 1.835, 0.678)
pt3dadd(73.077, 138.7, 1.734, 0.678)
pt3dadd(73.159, 138.704, 1.645, 0.678)
pt3dadd(73.241, 138.71, 1.556, 0.678)
pt3dadd(73.323, 138.715, 1.467, 0.678)
pt3dadd(73.405, 138.72, 1.377, 0.678)
pt3dadd(73.495, 138.725, 1.297, 0.678)
pt3dadd(73.613, 138.73, 1.243, 0.678)
pt3dadd(73.73, 138.734, 1.189, 0.678)
pt3dadd(73.74, 138.739, 1.18, 0.678)
pt3dadd(73.75, 138.744, 1.171, 0.678)
pt3dadd(73.76, 138.749, 1.162, 1.13)
pt3dadd(73.77, 138.754, 1.153, 1.13)
pt3dadd(73.78, 138.758, 1.144, 1.13)
pt3dadd(73.794, 138.883, 1.123, 1.204)
pt3dadd(73.808, 139.007, 1.101, 1.28)
pt3dadd(73.822, 139.127, 1.07, 1.356)
pt3dadd(73.836, 139.238, 1.016, 1.434)
pt3dadd(73.85, 139.351, 0.962, 1.512)
pt3dadd(73.863, 139.459, 0.902, 1.592)
pt3dadd(73.877, 139.567, 0.843, 1.672)
pt3dadd(73.915, 139.646, 0.76, 1.718)
pt3dadd(73.956, 139.721, 0.674, 1.758)
pt3dadd(74.066, 139.774, 0.629, 1.734)
pt3dadd(74.177, 139.828, 0.584, 1.708)
pt3dadd(74.289, 139.88, 0.539, 1.684)
pt3dadd(74.402, 139.942, 0.512, 1.612)
pt3dadd(74.516, 140.004, 0.486, 1.536)
pt3dadd(74.608, 140.028, 0.433, 1.33)
}
apic[15] {pt3dclear()
pt3dadd(74.608, 140.028, 0.433, 1.33)
pt3dadd(74.618, 140.034, 0.43, 1.326)
pt3dadd(74.714, 140.093, 0.396, 1.286)
pt3dadd(74.811, 140.152, 0.362, 1.244)
pt3dadd(74.906, 140.212, 0.328, 1.202)
pt3dadd(75.002, 140.27, 0.294, 1.162)
pt3dadd(75.095, 140.326, 0.251, 1.134)
pt3dadd(75.187, 140.381, 0.205, 1.11)
}
}
proc shape3d_70() {
apic[15] { pt3dadd(75.279, 140.435, 0.16, 1.086)
pt3dadd(75.37, 140.49, 0.114, 1.062)
pt3dadd(75.468, 140.549, 0.086, 1.058)
pt3dadd(75.568, 140.611, 0.067, 1.064)
pt3dadd(75.668, 140.674, 0.047, 1.07)
pt3dadd(75.768, 140.735, 0.027, 1.076)
pt3dadd(75.861, 140.804, 0.01, 1.092)
pt3dadd(75.928, 140.904, 0.005, 1.152)
pt3dadd(76, 140.996, 0, 1.208)
pt3dadd(76.119, 141.018, 0, 1.25)
pt3dadd(76.236, 141.041, 0, 1.29)
pt3dadd(76.325, 141.108, -0.003, 1.312)
pt3dadd(76.392, 141.206, -0.008, 1.324)
pt3dadd(76.43, 141.312, -0.028, 1.32)
pt3dadd(76.44, 141.425, -0.062, 1.298)
pt3dadd(76.462, 141.534, -0.092, 1.272)
pt3dadd(76.525, 141.635, -0.105, 1.234)
pt3dadd(76.589, 141.736, -0.118, 1.198)
pt3dadd(76.651, 141.836, -0.132, 1.16)
pt3dadd(76.752, 141.853, -0.174, 1.104)
pt3dadd(76.857, 141.856, -0.22, 1.046)
pt3dadd(76.94, 141.904, -0.275, 0.982)
pt3dadd(77.01, 141.971, -0.333, 0.918)
pt3dadd(77.064, 142.058, -0.373, 0.866)
pt3dadd(77.091, 142.174, -0.387, 0.832)
pt3dadd(77.127, 142.282, -0.4, 0.8)
pt3dadd(77.233, 142.337, -0.4, 0.774)
pt3dadd(77.341, 142.392, -0.4, 0.75)
pt3dadd(77.445, 142.451, -0.4, 0.726)
pt3dadd(77.541, 142.522, -0.4, 0.714)
pt3dadd(77.638, 142.592, -0.4, 0.702)
pt3dadd(77.75, 142.632, -0.404, 0.678)
pt3dadd(77.868, 142.644, -0.418, 0.678)
pt3dadd(77.986, 142.657, -0.432, 0.678)
pt3dadd(78.075, 142.717, -0.474, 0.678)
pt3dadd(78.148, 142.786, -0.522, 0.68)
pt3dadd(78.157, 142.871, -0.593, 0.692)
pt3dadd(78.173, 142.956, -0.658, 0.706)
pt3dadd(78.239, 143.052, -0.682, 0.732)
pt3dadd(78.309, 143.147, -0.7, 0.764)
pt3dadd(78.387, 143.238, -0.7, 0.818)
pt3dadd(78.46, 143.33, -0.716, 0.834)
pt3dadd(78.532, 143.424, -0.736, 0.838)
pt3dadd(78.604, 143.516, -0.755, 0.844)
pt3dadd(78.675, 143.61, -0.775, 0.85)
pt3dadd(78.759, 143.689, -0.79, 0.852)
pt3dadd(78.867, 143.741, -0.792, 0.848)
pt3dadd(78.976, 143.791, -0.794, 0.842)
pt3dadd(79.084, 143.842, -0.796, 0.838)
pt3dadd(79.193, 143.893, -0.798, 0.832)
pt3dadd(79.303, 143.942, -0.8, 0.826)
pt3dadd(79.415, 143.986, -0.8, 0.818)
pt3dadd(79.527, 144.03, -0.8, 0.808)
pt3dadd(79.638, 144.073, -0.8, 0.798)
pt3dadd(79.75, 144.116, -0.8, 0.788)
pt3dadd(79.862, 144.161, -0.8, 0.78)
pt3dadd(79.978, 144.187, -0.811, 0.77)
pt3dadd(80.094, 144.21, -0.824, 0.76)
pt3dadd(80.211, 144.234, -0.836, 0.752)
pt3dadd(80.327, 144.258, -0.849, 0.742)
pt3dadd(80.445, 144.281, -0.861, 0.732)
pt3dadd(80.56, 144.312, -0.87, 0.722)
pt3dadd(80.674, 144.349, -0.877, 0.714)
pt3dadd(80.787, 144.386, -0.883, 0.704)
pt3dadd(80.901, 144.424, -0.889, 0.694)
pt3dadd(81.015, 144.461, -0.896, 0.684)
pt3dadd(81.129, 144.498, -0.902, 0.666)
pt3dadd(81.242, 144.535, -0.907, 0.632)
pt3dadd(81.352, 144.571, -0.919, 0.602)
pt3dadd(81.425, 144.598, -0.996, 0.588)
pt3dadd(81.505, 144.625, -1.061, 0.584)
pt3dadd(81.617, 144.66, -1.082, 0.608)
pt3dadd(81.73, 144.689, -1.1, 0.634)
pt3dadd(81.85, 144.684, -1.1, 0.668)
pt3dadd(81.97, 144.68, -1.1, 0.7)
pt3dadd(82.09, 144.676, -1.1, 0.738)
pt3dadd(82.21, 144.672, -1.1, 0.788)
pt3dadd(82.33, 144.668, -1.1, 0.83)
pt3dadd(82.45, 144.664, -1.1, 0.838)
pt3dadd(82.57, 144.66, -1.1, 0.844)
pt3dadd(82.69, 144.655, -1.1, 0.852)
pt3dadd(82.81, 144.652, -1.1, 0.858)
pt3dadd(82.93, 144.647, -1.1, 0.866)
pt3dadd(83.05, 144.643, -1.1, 0.874)
pt3dadd(83.169, 144.638, -1.096, 0.88)
pt3dadd(83.286, 144.635, -1.076, 0.888)
pt3dadd(83.403, 144.63, -1.055, 0.898)
pt3dadd(83.521, 144.626, -1.034, 0.906)
pt3dadd(83.638, 144.622, -1.014, 0.914)
pt3dadd(83.756, 144.618, -0.993, 0.922)
pt3dadd(83.874, 144.614, -0.974, 0.93)
pt3dadd(83.992, 144.61, -0.962, 0.934)
pt3dadd(84.111, 144.606, -0.95, 0.938)
pt3dadd(84.231, 144.601, -0.937, 0.942)
pt3dadd(84.35, 144.598, -0.925, 0.946)
pt3dadd(84.468, 144.593, -0.912, 0.95)
pt3dadd(84.587, 144.589, -0.9, 0.954)
pt3dadd(84.697, 144.577, -0.861, 0.964)
pt3dadd(84.807, 144.565, -0.821, 0.974)
pt3dadd(84.916, 144.554, -0.782, 0.984)
pt3dadd(85.026, 144.542, -0.743, 0.994)
pt3dadd(85.136, 144.53, -0.703, 1.004)
pt3dadd(85.244, 144.488, -0.681, 1)
pt3dadd(85.352, 144.442, -0.66, 0.994)
pt3dadd(85.46, 144.396, -0.639, 0.988)
pt3dadd(85.568, 144.35, -0.618, 0.984)
pt3dadd(85.677, 144.311, -0.598, 0.978)
pt3dadd(85.796, 144.307, -0.583, 0.97)
pt3dadd(85.915, 144.302, -0.569, 0.962)
pt3dadd(86.033, 144.299, -0.554, 0.954)
pt3dadd(86.152, 144.294, -0.54, 0.946)
pt3dadd(86.271, 144.29, -0.526, 0.938)
pt3dadd(86.39, 144.286, -0.511, 0.93)
pt3dadd(86.509, 144.282, -0.509, 0.914)
pt3dadd(86.629, 144.277, -0.508, 0.9)
pt3dadd(86.749, 144.274, -0.506, 0.886)
pt3dadd(86.869, 144.269, -0.505, 0.872)
pt3dadd(86.989, 144.265, -0.503, 0.856)
pt3dadd(87.109, 144.26, -0.501, 0.842)
pt3dadd(87.229, 144.257, -0.5, 0.828)
pt3dadd(87.349, 144.252, -0.5, 0.824)
pt3dadd(87.469, 144.248, -0.5, 0.822)
pt3dadd(87.589, 144.244, -0.5, 0.818)
pt3dadd(87.709, 144.24, -0.5, 0.814)
pt3dadd(87.829, 144.235, -0.5, 0.81)
pt3dadd(87.949, 144.232, -0.5, 0.806)
pt3dadd(88.069, 144.227, -0.498, 0.804)
pt3dadd(88.186, 144.223, -0.482, 0.808)
pt3dadd(88.305, 144.22, -0.465, 0.812)
pt3dadd(88.424, 144.215, -0.449, 0.816)
pt3dadd(88.541, 144.211, -0.433, 0.82)
pt3dadd(88.66, 144.206, -0.416, 0.824)
pt3dadd(88.779, 144.203, -0.4, 0.828)
pt3dadd(88.896, 144.198, -0.383, 0.842)
pt3dadd(89.015, 144.194, -0.367, 0.854)
pt3dadd(89.133, 144.19, -0.35, 0.866)
pt3dadd(89.251, 144.186, -0.334, 0.878)
pt3dadd(89.37, 144.182, -0.317, 0.89)
pt3dadd(89.487, 144.178, -0.301, 0.904)
pt3dadd(89.605, 144.155, -0.3, 0.904)
pt3dadd(89.723, 144.131, -0.3, 0.904)
pt3dadd(89.84, 144.108, -0.3, 0.904)
pt3dadd(89.958, 144.084, -0.3, 0.904)
pt3dadd(90.076, 144.06, -0.3, 0.904)
pt3dadd(90.193, 144.036, -0.3, 0.904)
pt3dadd(90.313, 144.029, -0.294, 0.904)
pt3dadd(90.433, 144.025, -0.287, 0.904)
pt3dadd(90.552, 144.02, -0.281, 0.904)
pt3dadd(90.672, 144.017, -0.274, 0.904)
pt3dadd(90.792, 144.012, -0.267, 0.904)
pt3dadd(90.911, 144.008, -0.261, 0.904)
pt3dadd(91.03, 144.004, -0.248, 0.902)
pt3dadd(91.145, 144, -0.22, 0.892)
pt3dadd(91.26, 143.995, -0.193, 0.884)
pt3dadd(91.376, 143.992, -0.165, 0.874)
pt3dadd(91.491, 143.988, -0.138, 0.866)
pt3dadd(91.606, 143.983, -0.111, 0.858)
pt3dadd(91.725, 143.98, -0.1, 0.858)
pt3dadd(91.845, 143.975, -0.1, 0.866)
pt3dadd(91.964, 143.971, -0.1, 0.872)
pt3dadd(92.084, 143.966, -0.1, 0.88)
pt3dadd(92.204, 143.963, -0.1, 0.886)
pt3dadd(92.324, 143.958, -0.1, 0.894)
pt3dadd(92.444, 143.954, -0.1, 0.902)
pt3dadd(92.564, 143.951, -0.1, 0.91)
pt3dadd(92.684, 143.946, -0.1, 0.918)
pt3dadd(92.804, 143.942, -0.1, 0.926)
pt3dadd(92.924, 143.938, -0.1, 0.934)
pt3dadd(93.044, 143.934, -0.1, 0.942)
pt3dadd(93.164, 143.929, -0.1, 0.952)
pt3dadd(93.281, 143.946, -0.1, 0.948)
pt3dadd(93.398, 143.975, -0.1, 0.938)
pt3dadd(93.511, 144.01, -0.097, 0.926)
pt3dadd(93.615, 144.066, -0.08, 0.914)
pt3dadd(93.714, 144.126, -0.056, 0.904)
pt3dadd(93.798, 144.191, -0.011, 0.904)
pt3dadd(93.901, 144.251, -0.009, 0.894)
pt3dadd(94.005, 144.312, -0.006, 0.884)
pt3dadd(94.108, 144.372, -0.004, 0.874)
pt3dadd(94.213, 144.433, -0.002, 0.864)
pt3dadd(94.317, 144.491, 0, 0.852)
pt3dadd(94.434, 144.515, 0, 0.832)
pt3dadd(94.553, 144.538, 0, 0.81)
pt3dadd(94.67, 144.56, 0, 0.788)
pt3dadd(94.787, 144.584, 0, 0.766)
pt3dadd(94.906, 144.607, 0, 0.744)
pt3dadd(95.023, 144.631, 0, 0.724)
pt3dadd(95.14, 144.654, 0, 0.706)
pt3dadd(95.259, 144.678, 0, 0.69)
pt3dadd(95.376, 144.702, 0, 0.672)
pt3dadd(95.493, 144.725, 0, 0.656)
pt3dadd(95.612, 144.749, 0, 0.638)
pt3dadd(95.73, 144.764, 0, 0.628)
pt3dadd(95.85, 144.768, 0, 0.628)
pt3dadd(95.969, 144.772, 0, 0.628)
pt3dadd(96.089, 144.775, 0, 0.628)
pt3dadd(96.21, 144.78, 0, 0.628)
pt3dadd(96.33, 144.784, 0, 0.628)
pt3dadd(96.45, 144.787, 0, 0.628)
pt3dadd(96.569, 144.799, 0, 0.642)
}
}
proc shape3d_71() {
apic[15] { pt3dadd(96.689, 144.812, 0, 0.658)
pt3dadd(96.808, 144.826, 0, 0.674)
pt3dadd(96.927, 144.838, 0, 0.69)
pt3dadd(97.045, 144.851, 0, 0.706)
pt3dadd(97.165, 144.864, 0, 0.722)
pt3dadd(97.281, 144.894, 0, 0.738)
pt3dadd(97.395, 144.932, 0, 0.752)
pt3dadd(97.509, 144.97, 0, 0.766)
pt3dadd(97.622, 145.007, 0, 0.78)
pt3dadd(97.737, 145.045, 0, 0.792)
pt3dadd(97.851, 145.084, 0, 0.804)
pt3dadd(97.964, 145.123, 0, 0.804)
pt3dadd(98.076, 145.164, 0, 0.804)
pt3dadd(98.189, 145.205, 0, 0.804)
pt3dadd(98.302, 145.246, 0, 0.804)
pt3dadd(98.415, 145.286, 0, 0.804)
pt3dadd(98.532, 145.308, 0, 0.804)
pt3dadd(98.652, 145.326, 0, 0.804)
pt3dadd(98.77, 145.344, 0, 0.804)
pt3dadd(98.888, 145.362, 0, 0.804)
pt3dadd(99.007, 145.38, 0, 0.804)
pt3dadd(99.126, 145.398, 0, 0.804)
pt3dadd(99.245, 145.398, -0.009, 0.796)
pt3dadd(99.364, 145.393, -0.019, 0.788)
pt3dadd(99.484, 145.39, -0.03, 0.782)
pt3dadd(99.602, 145.386, -0.04, 0.774)
pt3dadd(99.722, 145.381, -0.051, 0.766)
pt3dadd(99.841, 145.378, -0.061, 0.758)
pt3dadd(99.96, 145.373, -0.078, 0.75)
pt3dadd(100.076, 145.369, -0.101, 0.74)
pt3dadd(100.192, 145.364, -0.123, 0.732)
pt3dadd(100.31, 145.361, -0.146, 0.724)
pt3dadd(100.426, 145.357, -0.169, 0.714)
pt3dadd(100.543, 145.352, -0.192, 0.706)
pt3dadd(100.662, 145.36, -0.2, 0.69)
pt3dadd(100.781, 145.373, -0.2, 0.67)
pt3dadd(100.9, 145.386, -0.2, 0.65)
pt3dadd(101.02, 145.399, -0.2, 0.628)
pt3dadd(101.139, 145.412, -0.2, 0.608)
pt3dadd(101.258, 145.426, -0.2, 0.588)
pt3dadd(101.377, 145.433, -0.2, 0.566)
pt3dadd(101.498, 145.433, -0.2, 0.54)
pt3dadd(101.618, 145.433, -0.2, 0.514)
pt3dadd(101.738, 145.43, -0.202, 0.496)
pt3dadd(101.858, 145.427, -0.206, 0.488)
pt3dadd(101.978, 145.422, -0.21, 0.48)
pt3dadd(102.081, 145.454, -0.241, 0.486)
pt3dadd(102.178, 145.504, -0.284, 0.5)
pt3dadd(102.239, 145.574, -0.345, 0.528)
pt3dadd(102.299, 145.639, -0.41, 0.552)
pt3dadd(102.378, 145.646, -0.484, 0.552)
pt3dadd(102.476, 145.658, -0.539, 0.552)
pt3dadd(102.579, 145.673, -0.589, 0.552)
pt3dadd(102.682, 145.686, -0.639, 0.552)
pt3dadd(102.786, 145.699, -0.689, 0.552)
pt3dadd(102.889, 145.714, -0.737, 0.55)
pt3dadd(103.003, 145.728, -0.768, 0.526)
pt3dadd(103.115, 145.742, -0.799, 0.502)
pt3dadd(103.235, 145.739, -0.8, 0.502)
pt3dadd(103.355, 145.735, -0.8, 0.502)
pt3dadd(103.475, 145.73, -0.8, 0.502)
pt3dadd(103.59, 145.765, -0.8, 0.522)
pt3dadd(103.704, 145.801, -0.8, 0.544)
pt3dadd(103.779, 145.882, -0.8, 0.594)
pt3dadd(103.83, 145.991, -0.8, 0.66)
pt3dadd(103.883, 146.099, -0.8, 0.742)
pt3dadd(103.94, 146.204, -0.8, 0.86)
pt3dadd(104.01, 146.302, -0.8, 0.928)
pt3dadd(104.08, 146.399, -0.8, 0.986)
pt3dadd(104.175, 146.468, -0.8, 1.012)
pt3dadd(104.281, 146.525, -0.8, 1.024)
pt3dadd(104.389, 146.574, -0.808, 1.012)
pt3dadd(104.5, 146.616, -0.824, 0.976)
pt3dadd(104.612, 146.64, -0.845, 0.936)
pt3dadd(104.728, 146.642, -0.874, 0.892)
pt3dadd(104.843, 146.644, -0.9, 0.85)
pt3dadd(104.963, 146.639, -0.9, 0.812)
pt3dadd(105.082, 146.639, -0.9, 0.778)
pt3dadd(105.197, 146.675, -0.9, 0.778)
pt3dadd(105.311, 146.711, -0.9, 0.778)
pt3dadd(105.393, 146.791, -0.9, 0.788)
pt3dadd(105.465, 146.888, -0.9, 0.798)
pt3dadd(105.552, 146.942, -0.931, 0.804)
pt3dadd(105.652, 146.966, -0.983, 0.804)
pt3dadd(105.741, 147.004, -1.043, 0.774)
pt3dadd(105.824, 147.046, -1.105, 0.732)
pt3dadd(105.92, 147.076, -1.159, 0.656)
pt3dadd(106.029, 147.098, -1.194, 0.614)
pt3dadd(106.143, 147.118, -1.218, 0.594)
pt3dadd(106.258, 147.138, -1.242, 0.574)
pt3dadd(106.373, 147.157, -1.266, 0.554)
pt3dadd(106.488, 147.178, -1.291, 0.534)
pt3dadd(106.605, 147.182, -1.3, 0.512)
pt3dadd(106.725, 147.178, -1.308, 0.502)
pt3dadd(106.836, 147.174, -1.343, 0.526)
pt3dadd(106.911, 147.172, -1.421, 0.536)
pt3dadd(107.004, 147.168, -1.48, 0.59)
pt3dadd(107.119, 147.178, -1.5, 0.68)
pt3dadd(107.232, 147.215, -1.5, 0.814)
pt3dadd(107.319, 147.296, -1.5, 1.008)
pt3dadd(107.365, 147.406, -1.5, 1.176)
pt3dadd(107.385, 147.524, -1.5, 1.254)
pt3dadd(107.41, 147.641, -1.5, 1.2)
pt3dadd(107.491, 147.71, -1.514, 1.068)
pt3dadd(107.602, 147.732, -1.547, 0.982)
pt3dadd(107.71, 147.767, -1.573, 0.9)
pt3dadd(107.814, 147.824, -1.59, 0.824)
pt3dadd(107.898, 147.901, -1.6, 0.75)
pt3dadd(107.976, 147.988, -1.615, 0.736)
pt3dadd(108.064, 148.064, -1.638, 0.748)
pt3dadd(108.153, 148.14, -1.661, 0.758)
pt3dadd(108.241, 148.217, -1.684, 0.77)
pt3dadd(108.337, 148.28, -1.705, 0.782)
pt3dadd(108.45, 148.315, -1.724, 0.798)
pt3dadd(108.562, 148.349, -1.742, 0.814)
pt3dadd(108.675, 148.382, -1.76, 0.83)
pt3dadd(108.788, 148.417, -1.778, 0.844)
pt3dadd(108.901, 148.453, -1.79, 0.858)
pt3dadd(109.015, 148.492, -1.792, 0.866)
pt3dadd(109.128, 148.53, -1.794, 0.876)
pt3dadd(109.243, 148.568, -1.796, 0.886)
pt3dadd(109.356, 148.607, -1.798, 0.896)
pt3dadd(109.47, 148.643, -1.8, 0.904)
pt3dadd(109.59, 148.639, -1.8, 0.896)
pt3dadd(109.71, 148.634, -1.8, 0.89)
pt3dadd(109.83, 148.631, -1.8, 0.882)
pt3dadd(109.949, 148.626, -1.8, 0.874)
pt3dadd(110.069, 148.622, -1.8, 0.868)
pt3dadd(110.189, 148.618, -1.8, 0.86)
pt3dadd(110.309, 148.615, -1.801, 0.854)
pt3dadd(110.424, 148.64, -1.821, 0.844)
pt3dadd(110.539, 148.666, -1.841, 0.834)
pt3dadd(110.654, 148.691, -1.861, 0.824)
pt3dadd(110.769, 148.716, -1.881, 0.814)
pt3dadd(110.884, 148.741, -1.9, 0.804)
pt3dadd(110.984, 148.807, -1.9, 0.798)
pt3dadd(111.084, 148.873, -1.9, 0.794)
pt3dadd(111.185, 148.938, -1.9, 0.788)
pt3dadd(111.286, 149.004, -1.9, 0.784)
pt3dadd(111.387, 149.069, -1.9, 0.778)
pt3dadd(111.486, 149.135, -1.9, 0.778)
pt3dadd(111.587, 149.201, -1.9, 0.778)
pt3dadd(111.688, 149.266, -1.9, 0.778)
pt3dadd(111.788, 149.332, -1.9, 0.778)
pt3dadd(111.889, 149.398, -1.9, 0.778)
pt3dadd(112.007, 149.414, -1.9, 0.778)
pt3dadd(112.126, 149.43, -1.9, 0.778)
pt3dadd(112.245, 149.446, -1.9, 0.778)
pt3dadd(112.364, 149.461, -1.9, 0.778)
pt3dadd(112.483, 149.477, -1.9, 0.778)
pt3dadd(112.602, 149.492, -1.9, 0.778)
pt3dadd(112.718, 149.522, -1.9, 0.766)
pt3dadd(112.833, 149.554, -1.9, 0.752)
pt3dadd(112.95, 149.586, -1.9, 0.74)
pt3dadd(113.065, 149.617, -1.9, 0.726)
pt3dadd(113.18, 149.65, -1.9, 0.712)
pt3dadd(113.297, 149.682, -1.9, 0.702)
pt3dadd(113.411, 149.717, -1.9, 0.698)
pt3dadd(113.526, 149.752, -1.9, 0.692)
pt3dadd(113.641, 149.785, -1.9, 0.688)
pt3dadd(113.757, 149.82, -1.9, 0.684)
pt3dadd(113.871, 149.855, -1.9, 0.678)
pt3dadd(113.966, 149.926, -1.9, 0.674)
pt3dadd(114.055, 150.006, -1.9, 0.668)
pt3dadd(114.143, 150.086, -1.9, 0.664)
pt3dadd(114.232, 150.167, -1.9, 0.658)
pt3dadd(114.321, 150.247, -1.9, 0.654)
pt3dadd(114.428, 150.295, -1.918, 0.658)
pt3dadd(114.537, 150.337, -1.939, 0.662)
pt3dadd(114.647, 150.379, -1.96, 0.668)
pt3dadd(114.756, 150.421, -1.982, 0.674)
pt3dadd(114.865, 150.466, -2, 0.678)
pt3dadd(114.964, 150.532, -2, 0.678)
pt3dadd(115.065, 150.598, -2, 0.678)
pt3dadd(115.166, 150.662, -2, 0.678)
pt3dadd(115.266, 150.728, -2, 0.678)
pt3dadd(115.366, 150.796, -2, 0.678)
pt3dadd(115.46, 150.87, -2, 0.684)
pt3dadd(115.554, 150.944, -2, 0.688)
pt3dadd(115.648, 151.019, -2, 0.694)
pt3dadd(115.743, 151.093, -2, 0.698)
pt3dadd(115.838, 151.165, -2, 0.71)
pt3dadd(115.943, 151.223, -2, 0.756)
pt3dadd(116.049, 151.279, -2, 0.802)
pt3dadd(116.163, 151.284, -1.972, 0.866)
pt3dadd(116.279, 151.285, -1.944, 0.93)
pt3dadd(116.382, 151.327, -1.922, 0.996)
pt3dadd(116.482, 151.392, -1.905, 1.06)
pt3dadd(116.543, 151.489, -1.897, 1.08)
pt3dadd(116.589, 151.601, -1.892, 1.08)
pt3dadd(116.645, 151.697, -1.868, 1.05)
pt3dadd(116.72, 151.775, -1.824, 0.998)
pt3dadd(116.801, 151.854, -1.793, 0.974)
pt3dadd(116.883, 151.933, -1.761, 0.95)
pt3dadd(116.965, 152.012, -1.73, 0.926)
pt3dadd(117.047, 152.093, -1.7, 0.904)
pt3dadd(117.136, 152.172, -1.7, 0.888)
pt3dadd(117.225, 152.252, -1.7, 0.872)
pt3dadd(117.315, 152.333, -1.7, 0.858)
pt3dadd(117.404, 152.413, -1.7, 0.842)
}
}
proc shape3d_72() {
apic[15] { pt3dadd(117.491, 152.495, -1.697, 0.828)
pt3dadd(117.565, 152.585, -1.672, 0.816)
pt3dadd(117.639, 152.675, -1.646, 0.804)
pt3dadd(117.711, 152.764, -1.621, 0.792)
pt3dadd(117.785, 152.854, -1.595, 0.782)
pt3dadd(117.862, 152.93, -1.554, 0.778)
pt3dadd(117.939, 153.002, -1.507, 0.778)
pt3dadd(118.018, 153.074, -1.461, 0.778)
pt3dadd(118.096, 153.148, -1.415, 0.778)
pt3dadd(118.182, 153.224, -1.398, 0.788)
pt3dadd(118.272, 153.304, -1.396, 0.804)
pt3dadd(118.362, 153.383, -1.394, 0.82)
pt3dadd(118.452, 153.462, -1.392, 0.836)
pt3dadd(118.543, 153.541, -1.389, 0.85)
pt3dadd(118.63, 153.606, -1.352, 0.874)
pt3dadd(118.717, 153.668, -1.306, 0.898)
pt3dadd(118.804, 153.73, -1.26, 0.922)
pt3dadd(118.89, 153.792, -1.214, 0.946)
pt3dadd(118.958, 153.88, -1.183, 0.966)
pt3dadd(119.018, 153.979, -1.158, 0.982)
pt3dadd(119.079, 154.079, -1.133, 1)
pt3dadd(119.139, 154.178, -1.108, 1.016)
pt3dadd(119.204, 154.271, -1.079, 1.028)
pt3dadd(119.284, 154.343, -1.035, 1.022)
pt3dadd(119.365, 154.415, -0.992, 1.016)
pt3dadd(119.446, 154.487, -0.949, 1.01)
pt3dadd(119.528, 154.559, -0.91, 1.002)
pt3dadd(119.623, 154.631, -0.898, 0.98)
pt3dadd(119.718, 154.703, -0.886, 0.958)
pt3dadd(119.814, 154.775, -0.873, 0.936)
pt3dadd(119.909, 154.846, -0.861, 0.914)
pt3dadd(120.006, 154.907, -0.837, 0.892)
pt3dadd(120.108, 154.955, -0.801, 0.868)
pt3dadd(120.208, 155.004, -0.765, 0.846)
pt3dadd(120.308, 155.053, -0.729, 0.822)
pt3dadd(120.408, 155.107, -0.7, 0.802)
pt3dadd(120.504, 155.179, -0.7, 0.798)
pt3dadd(120.601, 155.25, -0.7, 0.792)
pt3dadd(120.697, 155.322, -0.7, 0.788)
pt3dadd(120.793, 155.394, -0.7, 0.782)
pt3dadd(120.895, 155.453, -0.7, 0.78)
pt3dadd(121.014, 155.468, -0.7, 0.788)
pt3dadd(121.133, 155.484, -0.7, 0.796)
pt3dadd(121.252, 155.5, -0.7, 0.806)
pt3dadd(121.372, 155.515, -0.7, 0.814)
pt3dadd(121.489, 155.531, -0.7, 0.822)
pt3dadd(121.609, 155.548, -0.7, 0.83)
pt3dadd(121.726, 155.57, -0.7, 0.834)
pt3dadd(121.843, 155.594, -0.7, 0.838)
pt3dadd(121.962, 155.617, -0.7, 0.842)
pt3dadd(122.08, 155.641, -0.7, 0.846)
pt3dadd(122.196, 155.664, -0.7, 0.85)
pt3dadd(122.309, 155.7, -0.7, 0.854)
pt3dadd(122.412, 155.762, -0.7, 0.854)
pt3dadd(122.514, 155.825, -0.7, 0.854)
pt3dadd(122.617, 155.887, -0.7, 0.854)
pt3dadd(122.719, 155.95, -0.7, 0.854)
pt3dadd(122.814, 156.02, -0.7, 0.852)
pt3dadd(122.887, 156.116, -0.7, 0.842)
pt3dadd(122.959, 156.212, -0.7, 0.832)
pt3dadd(123.032, 156.308, -0.7, 0.822)
pt3dadd(123.103, 156.403, -0.7, 0.812)
pt3dadd(123.178, 156.498, -0.7, 0.804)
pt3dadd(123.256, 156.589, -0.7, 0.804)
pt3dadd(123.335, 156.68, -0.7, 0.804)
pt3dadd(123.412, 156.772, -0.7, 0.804)
pt3dadd(123.491, 156.863, -0.7, 0.804)
pt3dadd(123.559, 156.959, -0.7, 0.802)
pt3dadd(123.602, 157.072, -0.7, 0.798)
pt3dadd(123.644, 157.183, -0.7, 0.794)
pt3dadd(123.688, 157.296, -0.7, 0.788)
pt3dadd(123.73, 157.408, -0.7, 0.784)
pt3dadd(123.773, 157.519, -0.7, 0.78)
pt3dadd(123.808, 157.634, -0.7, 0.776)
pt3dadd(123.839, 157.751, -0.7, 0.77)
pt3dadd(123.87, 157.866, -0.7, 0.766)
pt3dadd(123.901, 157.982, -0.7, 0.762)
pt3dadd(123.932, 158.098, -0.7, 0.758)
pt3dadd(123.964, 158.214, -0.7, 0.754)
pt3dadd(123.977, 158.333, -0.7, 0.742)
pt3dadd(123.985, 158.453, -0.7, 0.732)
pt3dadd(123.996, 158.572, -0.7, 0.72)
pt3dadd(124.006, 158.692, -0.7, 0.71)
pt3dadd(124.016, 158.812, -0.7, 0.698)
pt3dadd(124.026, 158.93, -0.7, 0.686)
pt3dadd(124.048, 159.047, -0.703, 0.676)
pt3dadd(124.102, 159.154, -0.717, 0.672)
pt3dadd(124.154, 159.259, -0.731, 0.666)
pt3dadd(124.208, 159.365, -0.745, 0.662)
pt3dadd(124.261, 159.472, -0.759, 0.656)
pt3dadd(124.332, 159.563, -0.774, 0.664)
pt3dadd(124.424, 159.636, -0.791, 0.69)
pt3dadd(124.517, 159.712, -0.8, 0.726)
pt3dadd(124.608, 159.791, -0.8, 0.774)
pt3dadd(124.699, 159.846, -0.822, 0.814)
pt3dadd(124.798, 159.864, -0.879, 0.84)
pt3dadd(124.855, 159.892, -0.952, 0.858)
pt3dadd(124.862, 159.932, -1.046, 0.87)
pt3dadd(124.882, 159.977, -1.133, 0.88)
pt3dadd(124.958, 160.039, -1.19, 0.89)
pt3dadd(125.034, 160.1, -1.248, 0.898)
pt3dadd(125.113, 160.164, -1.302, 0.908)
pt3dadd(125.2, 160.229, -1.346, 0.922)
pt3dadd(125.276, 160.296, -1.397, 0.86)
pt3dadd(125.378, 160.324, -1.442, 0.816)
pt3dadd(125.483, 160.35, -1.487, 0.778)
pt3dadd(125.588, 160.375, -1.531, 0.738)
pt3dadd(125.693, 160.402, -1.575, 0.7)
pt3dadd(125.794, 160.445, -1.608, 0.644)
pt3dadd(125.893, 160.51, -1.625, 0.566)
pt3dadd(126, 160.543, -1.648, 0.516)
pt3dadd(126.114, 160.544, -1.676, 0.494)
pt3dadd(126.23, 160.553, -1.7, 0.48)
pt3dadd(126.344, 160.589, -1.7, 0.502)
pt3dadd(126.458, 160.624, -1.7, 0.524)
pt3dadd(126.515, 160.722, -1.7, 0.554)
pt3dadd(126.558, 160.835, -1.7, 0.586)
pt3dadd(126.587, 160.95, -1.7, 0.616)
pt3dadd(126.599, 161.069, -1.7, 0.642)
pt3dadd(126.66, 161.159, -1.7, 0.656)
pt3dadd(126.758, 161.226, -1.7, 0.664)
pt3dadd(126.858, 161.293, -1.7, 0.67)
pt3dadd(126.958, 161.36, -1.7, 0.678)
}
apic[16] {pt3dclear()
pt3dadd(74.608, 140.028, 0.433, 1.33)
pt3dadd(74.608, 140.027, 0.432, 1.33)
pt3dadd(74.604, 140.003, 0.334, 1.308)
pt3dadd(74.601, 139.979, 0.236, 1.286)
pt3dadd(74.596, 139.955, 0.138, 1.262)
pt3dadd(74.593, 139.931, 0.04, 1.24)
pt3dadd(74.59, 139.907, -0.058, 1.218)
pt3dadd(74.585, 139.883, -0.156, 1.194)
pt3dadd(74.582, 139.859, -0.254, 1.172)
pt3dadd(74.577, 139.835, -0.352, 1.148)
pt3dadd(74.574, 139.811, -0.45, 1.13)
pt3dadd(74.573, 139.783, -0.547, 1.13)
pt3dadd(74.572, 139.756, -0.644, 1.13)
pt3dadd(74.571, 139.728, -0.742, 1.13)
pt3dadd(74.57, 139.7, -0.839, 1.13)
pt3dadd(74.569, 139.674, -0.936, 1.13)
pt3dadd(74.568, 139.644, -1.033, 1.13)
pt3dadd(74.567, 139.612, -1.13, 1.13)
pt3dadd(74.566, 139.578, -1.226, 1.13)
pt3dadd(74.565, 139.546, -1.322, 1.13)
pt3dadd(74.564, 139.512, -1.418, 1.13)
pt3dadd(74.563, 139.478, -1.514, 1.13)
pt3dadd(74.562, 139.453, -1.612, 1.13)
pt3dadd(74.561, 139.432, -1.71, 1.13)
pt3dadd(74.56, 139.409, -1.808, 1.13)
pt3dadd(74.559, 139.387, -1.907, 1.13)
pt3dadd(74.559, 139.364, -2.005, 1.13)
pt3dadd(74.558, 139.343, -2.103, 1.13)
pt3dadd(74.557, 139.325, -2.202, 1.13)
pt3dadd(74.557, 139.31, -2.301, 1.13)
pt3dadd(74.556, 139.296, -2.4, 1.13)
pt3dadd(74.556, 139.296, -2.5, 1.13)
pt3dadd(74.556, 139.296, -2.6, 1.13)
pt3dadd(74.556, 139.296, -2.7, 1.13)
pt3dadd(74.54, 139.291, -2.799, 1.13)
pt3dadd(74.525, 139.286, -2.899, 1.13)
pt3dadd(74.487, 139.246, -2.968, 1.13)
pt3dadd(74.419, 139.153, -2.998, 1.13)
pt3dadd(74.327, 139.087, -3.019, 1.244)
pt3dadd(74.218, 139.039, -3.032, 1.438)
pt3dadd(74.11, 138.991, -3.046, 1.634)
pt3dadd(74.001, 138.943, -3.059, 1.83)
pt3dadd(73.911, 138.898, -3.101, 1.882)
pt3dadd(73.842, 138.856, -3.175, 1.77)
pt3dadd(73.748, 138.844, -3.23, 1.672)
pt3dadd(73.641, 138.847, -3.275, 1.582)
pt3dadd(73.551, 138.851, -3.336, 1.516)
pt3dadd(73.484, 138.853, -3.419, 1.482)
pt3dadd(73.418, 138.856, -3.503, 1.448)
pt3dadd(73.352, 138.858, -3.586, 1.412)
pt3dadd(73.34, 138.858, -3.683, 1.392)
pt3dadd(73.34, 138.858, -3.783, 1.376)
pt3dadd(73.34, 138.858, -3.883, 1.358)
pt3dadd(73.328, 138.858, -3.982, 1.356)
pt3dadd(73.29, 138.859, -4.077, 1.366)
pt3dadd(73.25, 138.862, -4.171, 1.376)
pt3dadd(73.231, 138.862, -4.269, 1.396)
pt3dadd(73.226, 138.862, -4.369, 1.422)
pt3dadd(73.221, 138.862, -4.469, 1.448)
pt3dadd(73.22, 138.848, -4.568, 1.484)
pt3dadd(73.219, 138.828, -4.666, 1.522)
pt3dadd(73.218, 138.8, -4.76, 1.56)
pt3dadd(73.215, 138.696, -4.811, 1.594)
pt3dadd(73.211, 138.593, -4.862, 1.628)
pt3dadd(73.209, 138.534, -4.947, 1.632)
pt3dadd(73.207, 138.481, -5.037, 1.632)
pt3dadd(73.205, 138.427, -5.126, 1.632)
pt3dadd(73.203, 138.383, -5.217, 1.628)
pt3dadd(73.203, 138.383, -5.317, 1.602)
pt3dadd(73.203, 138.383, -5.417, 1.578)
pt3dadd(73.203, 138.383, -5.517, 1.54)
pt3dadd(73.205, 138.379, -5.617, 1.454)
pt3dadd(73.211, 138.358, -5.715, 1.44)
pt3dadd(73.216, 138.337, -5.814, 1.428)
pt3dadd(73.223, 138.316, -5.912, 1.414)
pt3dadd(73.229, 138.295, -6.01, 1.402)
pt3dadd(73.236, 138.274, -6.109, 1.388)
}
}
proc shape3d_73() {
apic[16] { pt3dadd(73.261, 138.25, -6.202, 1.384)
pt3dadd(73.316, 138.221, -6.287, 1.388)
pt3dadd(73.371, 138.193, -6.373, 1.394)
pt3dadd(73.426, 138.164, -6.459, 1.4)
pt3dadd(73.481, 138.136, -6.545, 1.406)
pt3dadd(73.574, 138.13, -6.605, 1.416)
pt3dadd(73.672, 138.126, -6.662, 1.428)
pt3dadd(73.738, 138.076, -6.727, 1.422)
pt3dadd(73.788, 138.005, -6.797, 1.406)
pt3dadd(73.789, 137.951, -6.885, 1.352)
pt3dadd(73.787, 137.897, -6.975, 1.296)
pt3dadd(73.79, 137.881, -7.071, 1.262)
pt3dadd(73.795, 137.881, -7.171, 1.236)
pt3dadd(73.798, 137.881, -7.271, 1.21)
pt3dadd(73.865, 137.87, -7.35, 1.22)
pt3dadd(73.929, 137.839, -7.428, 1.242)
pt3dadd(73.978, 137.788, -7.509, 1.266)
pt3dadd(74.026, 137.736, -7.589, 1.288)
pt3dadd(74.074, 137.684, -7.67, 1.312)
pt3dadd(74.12, 137.629, -7.75, 1.334)
pt3dadd(74.155, 137.562, -7.828, 1.352)
pt3dadd(74.19, 137.496, -7.906, 1.37)
pt3dadd(74.224, 137.429, -7.984, 1.388)
pt3dadd(74.259, 137.363, -8.062, 1.406)
pt3dadd(74.308, 137.287, -8.128, 1.406)
pt3dadd(74.357, 137.21, -8.193, 1.406)
pt3dadd(74.406, 137.134, -8.257, 1.406)
pt3dadd(74.456, 137.057, -8.323, 1.406)
pt3dadd(74.495, 136.964, -8.377, 1.396)
pt3dadd(74.533, 136.87, -8.429, 1.384)
pt3dadd(74.57, 136.774, -8.481, 1.372)
pt3dadd(74.608, 136.679, -8.534, 1.36)
pt3dadd(74.672, 136.595, -8.573, 1.332)
pt3dadd(74.758, 136.519, -8.604, 1.29)
pt3dadd(74.798, 136.429, -8.656, 1.23)
pt3dadd(74.823, 136.336, -8.715, 1.164)
pt3dadd(74.918, 136.304, -8.761, 1.112)
pt3dadd(75.022, 136.28, -8.805, 1.062)
pt3dadd(75.133, 136.274, -8.844, 1.036)
pt3dadd(75.243, 136.27, -8.883, 1.014)
pt3dadd(75.327, 136.265, -8.948, 1.02)
pt3dadd(75.39, 136.259, -9.032, 1.048)
pt3dadd(75.455, 136.253, -9.117, 1.078)
pt3dadd(75.517, 136.247, -9.202, 1.106)
pt3dadd(75.543, 136.199, -9.291, 1.144)
pt3dadd(75.568, 136.151, -9.38, 1.182)
pt3dadd(75.637, 136.136, -9.461, 1.202)
pt3dadd(75.717, 136.133, -9.535, 1.192)
pt3dadd(75.798, 136.13, -9.609, 1.182)
pt3dadd(75.878, 136.128, -9.683, 1.172)
pt3dadd(75.96, 136.124, -9.757, 1.16)
pt3dadd(76.029, 136.122, -9.837, 1.164)
pt3dadd(76.082, 136.121, -9.927, 1.186)
pt3dadd(76.14, 136.12, -10.014, 1.214)
pt3dadd(76.211, 136.123, -10.095, 1.262)
pt3dadd(76.279, 136.133, -10.175, 1.31)
pt3dadd(76.333, 136.182, -10.255, 1.352)
pt3dadd(76.37, 136.219, -10.34, 1.376)
pt3dadd(76.37, 136.223, -10.44, 1.358)
pt3dadd(76.37, 136.228, -10.54, 1.342)
pt3dadd(76.37, 136.231, -10.64, 1.316)
pt3dadd(76.37, 136.231, -10.74, 1.278)
pt3dadd(76.37, 136.231, -10.84, 1.246)
pt3dadd(76.37, 136.231, -10.94, 1.22)
pt3dadd(76.37, 136.231, -11.04, 1.196)
pt3dadd(76.371, 136.255, -11.135, 1.166)
pt3dadd(76.373, 136.316, -11.221, 1.132)
pt3dadd(76.376, 136.39, -11.29, 1.092)
pt3dadd(76.38, 136.508, -11.293, 1.032)
pt3dadd(76.384, 136.628, -11.297, 0.97)
pt3dadd(76.388, 136.748, -11.304, 0.908)
pt3dadd(76.393, 136.867, -11.316, 0.842)
pt3dadd(76.397, 136.986, -11.329, 0.778)
pt3dadd(76.401, 137.095, -11.365, 0.718)
pt3dadd(76.404, 137.198, -11.416, 0.66)
pt3dadd(76.407, 137.28, -11.483, 0.628)
pt3dadd(76.408, 137.306, -11.58, 0.648)
pt3dadd(76.408, 137.31, -11.68, 0.652)
pt3dadd(76.408, 137.322, -11.779, 0.63)
pt3dadd(76.41, 137.354, -11.875, 0.606)
pt3dadd(76.411, 137.401, -11.966, 0.638)
pt3dadd(76.412, 137.435, -12.063, 0.686)
pt3dadd(76.413, 137.467, -12.159, 0.748)
pt3dadd(76.415, 137.516, -12.25, 0.84)
pt3dadd(76.422, 137.543, -12.347, 0.89)
pt3dadd(76.452, 137.56, -12.442, 0.884)
pt3dadd(76.516, 137.628, -12.494, 0.796)
pt3dadd(76.58, 137.728, -12.51, 0.706)
pt3dadd(76.674, 137.776, -12.552, 0.678)
pt3dadd(76.786, 137.777, -12.586, 0.678)
pt3dadd(76.905, 137.773, -12.6, 0.728)
pt3dadd(77.014, 137.77, -12.642, 0.748)
pt3dadd(77.122, 137.765, -12.684, 0.766)
pt3dadd(77.231, 137.761, -12.726, 0.786)
pt3dadd(77.34, 137.758, -12.769, 0.804)
pt3dadd(77.448, 137.754, -12.811, 0.824)
pt3dadd(77.527, 137.752, -12.882, 0.872)
pt3dadd(77.595, 137.749, -12.965, 0.93)
pt3dadd(77.662, 137.747, -13.047, 0.96)
pt3dadd(77.731, 137.744, -13.13, 0.972)
pt3dadd(77.814, 137.741, -13.199, 0.97)
pt3dadd(77.917, 137.737, -13.249, 0.946)
pt3dadd(78.023, 137.734, -13.29, 0.924)
pt3dadd(78.143, 137.73, -13.294, 0.898)
pt3dadd(78.263, 137.725, -13.297, 0.872)
pt3dadd(78.383, 137.722, -13.3, 0.854)
pt3dadd(78.503, 137.717, -13.3, 0.854)
pt3dadd(78.621, 137.713, -13.312, 0.856)
pt3dadd(78.732, 137.71, -13.349, 0.866)
pt3dadd(78.843, 137.705, -13.387, 0.876)
pt3dadd(78.954, 137.701, -13.424, 0.884)
pt3dadd(79.066, 137.698, -13.461, 0.894)
pt3dadd(79.177, 137.694, -13.498, 0.904)
pt3dadd(79.285, 137.69, -13.542, 0.926)
pt3dadd(79.392, 137.686, -13.587, 0.948)
pt3dadd(79.499, 137.682, -13.632, 0.962)
pt3dadd(79.606, 137.678, -13.676, 0.974)
pt3dadd(79.719, 137.675, -13.708, 0.97)
pt3dadd(79.837, 137.67, -13.725, 0.95)
pt3dadd(79.955, 137.666, -13.742, 0.932)
pt3dadd(79.993, 137.665, -13.83, 0.902)
pt3dadd(80.019, 137.664, -13.927, 0.872)
pt3dadd(80.075, 137.651, -14.001, 0.842)
pt3dadd(80.183, 137.615, -14.035, 0.812)
pt3dadd(80.29, 137.579, -14.068, 0.782)
pt3dadd(80.398, 137.544, -14.1, 0.752)
pt3dadd(80.518, 137.536, -14.1, 0.726)
pt3dadd(80.637, 137.526, -14.1, 0.7)
pt3dadd(80.757, 137.519, -14.1, 0.67)
pt3dadd(80.876, 137.514, -14.103, 0.628)
pt3dadd(80.995, 137.51, -14.121, 0.624)
pt3dadd(81.112, 137.506, -14.14, 0.618)
pt3dadd(81.23, 137.502, -14.159, 0.614)
pt3dadd(81.347, 137.497, -14.177, 0.61)
pt3dadd(81.466, 137.494, -14.196, 0.606)
pt3dadd(81.582, 137.49, -14.218, 0.604)
pt3dadd(81.689, 137.485, -14.263, 0.608)
pt3dadd(81.796, 137.482, -14.308, 0.614)
pt3dadd(81.904, 137.478, -14.352, 0.618)
pt3dadd(82.01, 137.474, -14.397, 0.622)
pt3dadd(82.118, 137.471, -14.442, 0.628)
pt3dadd(82.218, 137.446, -14.493, 0.634)
pt3dadd(82.317, 137.418, -14.545, 0.638)
pt3dadd(82.416, 137.39, -14.596, 0.644)
pt3dadd(82.516, 137.364, -14.648, 0.65)
pt3dadd(82.61, 137.346, -14.707, 0.658)
pt3dadd(82.697, 137.34, -14.775, 0.668)
pt3dadd(82.785, 137.334, -14.843, 0.678)
pt3dadd(82.872, 137.328, -14.911, 0.688)
pt3dadd(82.96, 137.322, -14.98, 0.698)
pt3dadd(83.045, 137.304, -15.047, 0.704)
pt3dadd(83.13, 137.273, -15.113, 0.704)
pt3dadd(83.214, 137.243, -15.179, 0.704)
pt3dadd(83.299, 137.212, -15.246, 0.704)
pt3dadd(83.386, 137.177, -15.305, 0.704)
pt3dadd(83.484, 137.118, -15.336, 0.71)
pt3dadd(83.582, 137.06, -15.366, 0.716)
pt3dadd(83.681, 137.002, -15.397, 0.722)
pt3dadd(83.78, 136.944, -15.427, 0.728)
pt3dadd(83.88, 136.882, -15.445, 0.724)
pt3dadd(83.979, 136.818, -15.459, 0.718)
pt3dadd(84.081, 136.754, -15.473, 0.714)
pt3dadd(84.18, 136.692, -15.487, 0.708)
pt3dadd(84.284, 136.633, -15.5, 0.704)
pt3dadd(84.402, 136.616, -15.5, 0.704)
pt3dadd(84.521, 136.6, -15.5, 0.704)
pt3dadd(84.64, 136.583, -15.5, 0.704)
pt3dadd(84.758, 136.566, -15.5, 0.704)
pt3dadd(84.878, 136.549, -15.5, 0.704)
pt3dadd(84.996, 136.532, -15.5, 0.704)
pt3dadd(85.112, 136.524, -15.523, 0.696)
pt3dadd(85.226, 136.518, -15.553, 0.688)
pt3dadd(85.34, 136.511, -15.584, 0.678)
pt3dadd(85.454, 136.505, -15.614, 0.668)
pt3dadd(85.569, 136.499, -15.645, 0.66)
pt3dadd(85.681, 136.487, -15.675, 0.648)
pt3dadd(85.792, 136.462, -15.707, 0.634)
pt3dadd(85.903, 136.435, -15.739, 0.618)
pt3dadd(86.014, 136.41, -15.771, 0.602)
pt3dadd(86.124, 136.384, -15.802, 0.588)
pt3dadd(86.233, 136.375, -15.839, 0.574)
pt3dadd(86.339, 136.394, -15.885, 0.562)
pt3dadd(86.444, 136.414, -15.931, 0.552)
pt3dadd(86.549, 136.434, -15.977, 0.54)
pt3dadd(86.653, 136.453, -16.022, 0.53)
pt3dadd(86.764, 136.469, -16.059, 0.52)
pt3dadd(86.875, 136.484, -16.093, 0.51)
pt3dadd(86.987, 136.5, -16.127, 0.5)
pt3dadd(87.099, 136.514, -16.161, 0.488)
pt3dadd(87.21, 136.53, -16.195, 0.478)
pt3dadd(87.321, 136.536, -16.234, 0.482)
pt3dadd(87.432, 136.54, -16.273, 0.486)
pt3dadd(87.542, 136.543, -16.312, 0.492)
pt3dadd(87.651, 136.548, -16.351, 0.496)
pt3dadd(87.762, 136.552, -16.391, 0.502)
pt3dadd(87.876, 136.568, -16.42, 0.502)
pt3dadd(87.989, 136.588, -16.447, 0.502)
pt3dadd(88.103, 136.608, -16.474, 0.502)
pt3dadd(88.216, 136.628, -16.501, 0.502)
pt3dadd(88.331, 136.649, -16.528, 0.502)
}
}
proc shape3d_74() {
apic[16] { pt3dadd(88.438, 136.684, -16.561, 0.524)
pt3dadd(88.544, 136.722, -16.596, 0.55)
pt3dadd(88.643, 136.784, -16.615, 0.576)
pt3dadd(88.741, 136.849, -16.632, 0.602)
pt3dadd(88.755, 136.913, -16.714, 0.626)
pt3dadd(88.763, 136.976, -16.799, 0.65)
pt3dadd(88.778, 136.994, -16.895, 0.662)
pt3dadd(88.795, 137.004, -16.994, 0.672)
pt3dadd(88.834, 137.029, -17.079, 0.678)
pt3dadd(88.912, 137.08, -17.143, 0.678)
pt3dadd(89.007, 137.123, -17.188, 0.678)
pt3dadd(89.116, 137.166, -17.2, 0.678)
pt3dadd(89.213, 137.238, -17.2, 0.678)
pt3dadd(89.295, 137.323, -17.2, 0.678)
pt3dadd(89.397, 137.387, -17.2, 0.678)
pt3dadd(89.504, 137.44, -17.2, 0.678)
pt3dadd(89.612, 137.494, -17.2, 0.678)
pt3dadd(89.719, 137.546, -17.2, 0.678)
pt3dadd(89.827, 137.599, -17.2, 0.678)
pt3dadd(89.935, 137.647, -17.205, 0.676)
pt3dadd(90.049, 137.678, -17.226, 0.672)
pt3dadd(90.162, 137.71, -17.246, 0.666)
pt3dadd(90.275, 137.742, -17.266, 0.662)
pt3dadd(90.389, 137.773, -17.287, 0.656)
pt3dadd(90.5, 137.808, -17.306, 0.648)
pt3dadd(90.612, 137.85, -17.322, 0.636)
pt3dadd(90.724, 137.879, -17.342, 0.624)
pt3dadd(90.839, 137.881, -17.371, 0.614)
pt3dadd(90.953, 137.882, -17.399, 0.602)
pt3dadd(91.073, 137.893, -17.404, 0.612)
pt3dadd(91.193, 137.905, -17.409, 0.622)
pt3dadd(91.281, 137.945, -17.435, 0.634)
pt3dadd(91.32, 138.032, -17.496, 0.646)
pt3dadd(91.374, 138.108, -17.557, 0.658)
pt3dadd(91.441, 138.174, -17.618, 0.666)
pt3dadd(91.509, 138.241, -17.68, 0.676)
pt3dadd(91.543, 138.342, -17.7, 0.684)
pt3dadd(91.563, 138.461, -17.7, 0.694)
pt3dadd(91.582, 138.58, -17.7, 0.702)
pt3dadd(91.586, 138.7, -17.7, 0.752)
pt3dadd(91.59, 138.814, -17.729, 0.762)
pt3dadd(91.594, 138.928, -17.759, 0.772)
pt3dadd(91.598, 139.043, -17.789, 0.78)
pt3dadd(91.602, 139.157, -17.819, 0.79)
pt3dadd(91.606, 139.272, -17.849, 0.798)
pt3dadd(91.61, 139.381, -17.888, 0.804)
pt3dadd(91.613, 139.483, -17.94, 0.804)
pt3dadd(91.617, 139.585, -17.992, 0.804)
pt3dadd(91.62, 139.687, -18.045, 0.804)
pt3dadd(91.624, 139.79, -18.097, 0.804)
pt3dadd(91.627, 139.894, -18.148, 0.8)
pt3dadd(91.631, 139.999, -18.195, 0.792)
pt3dadd(91.635, 140.105, -18.242, 0.782)
pt3dadd(91.638, 140.21, -18.29, 0.772)
pt3dadd(91.642, 140.316, -18.337, 0.762)
pt3dadd(91.646, 140.419, -18.387, 0.75)
pt3dadd(91.649, 140.507, -18.455, 0.726)
pt3dadd(91.652, 140.596, -18.523, 0.704)
pt3dadd(91.656, 140.708, -18.556, 0.704)
pt3dadd(91.66, 140.821, -18.589, 0.704)
pt3dadd(91.651, 140.933, -18.625, 0.728)
pt3dadd(91.636, 141.043, -18.663, 0.764)
pt3dadd(91.596, 141.092, -18.73, 0.814)
pt3dadd(91.541, 141.101, -18.818, 0.872)
pt3dadd(91.488, 141.106, -18.908, 0.944)
pt3dadd(91.443, 141.108, -19.001, 1.03)
pt3dadd(91.43, 141.108, -19.1, 1.13)
}
apic[17] {pt3dclear()
pt3dadd(74.916, 119.682, 9.688, 1.568)
pt3dadd(74.903, 119.651, 9.671, 1.554)
pt3dadd(74.862, 119.556, 9.621, 1.512)
pt3dadd(74.821, 119.461, 9.57, 1.468)
pt3dadd(74.78, 119.365, 9.52, 1.426)
pt3dadd(74.739, 119.27, 9.469, 1.384)
pt3dadd(74.698, 119.175, 9.418, 1.34)
pt3dadd(74.658, 119.08, 9.368, 1.298)
pt3dadd(74.617, 118.985, 9.317, 1.256)
pt3dadd(74.576, 118.89, 9.267, 1.212)
pt3dadd(74.535, 118.795, 9.216, 1.17)
pt3dadd(74.494, 118.7, 9.166, 1.128)
pt3dadd(74.454, 118.604, 9.115, 1.086)
pt3dadd(74.413, 118.509, 9.064, 1.042)
pt3dadd(74.372, 118.414, 9.014, 1)
pt3dadd(74.331, 118.319, 8.963, 0.958)
pt3dadd(74.29, 118.224, 8.913, 0.914)
pt3dadd(74.191, 118.2, 8.912, 0.904)
pt3dadd(74.073, 118.2, 8.929, 0.904)
pt3dadd(73.955, 118.2, 8.945, 0.904)
pt3dadd(73.836, 118.2, 8.962, 0.904)
pt3dadd(73.718, 118.2, 8.978, 0.904)
pt3dadd(73.599, 118.2, 8.995, 0.904)
pt3dadd(73.488, 118.166, 9, 0.904)
pt3dadd(73.379, 118.116, 9, 0.904)
pt3dadd(73.27, 118.065, 9, 0.904)
pt3dadd(73.161, 118.015, 9, 0.904)
pt3dadd(73.052, 117.964, 9, 0.904)
pt3dadd(72.941, 117.918, 9, 0.904)
pt3dadd(72.828, 117.88, 9, 0.904)
pt3dadd(72.714, 117.841, 9, 0.904)
pt3dadd(72.601, 117.802, 9, 0.904)
pt3dadd(72.487, 117.763, 9, 0.904)
pt3dadd(72.374, 117.725, 9, 0.904)
pt3dadd(72.258, 117.691, 9, 0.904)
pt3dadd(72.143, 117.658, 9, 0.904)
pt3dadd(72.026, 117.63, 9, 0.904)
pt3dadd(71.908, 117.61, 9, 0.904)
pt3dadd(71.79, 117.59, 9, 0.904)
pt3dadd(71.721, 117.498, 9, 0.904)
pt3dadd(71.66, 117.394, 9, 0.904)
pt3dadd(71.604, 117.288, 9, 0.904)
pt3dadd(71.55, 117.181, 9, 0.904)
pt3dadd(71.476, 117.092, 9, 0.904)
pt3dadd(71.375, 117.028, 9, 0.904)
pt3dadd(71.277, 116.959, 9, 0.904)
pt3dadd(71.179, 116.89, 9, 0.904)
pt3dadd(71.081, 116.821, 9, 0.904)
pt3dadd(70.983, 116.752, 9, 0.904)
pt3dadd(70.884, 116.683, 9, 0.904)
pt3dadd(70.8, 116.597, 9, 0.904)
pt3dadd(70.716, 116.511, 9, 0.904)
pt3dadd(70.633, 116.425, 9, 0.904)
pt3dadd(70.549, 116.339, 9, 0.904)
pt3dadd(70.466, 116.253, 9, 0.904)
pt3dadd(70.382, 116.166, 9, 0.904)
pt3dadd(70.299, 116.08, 9, 0.904)
pt3dadd(70.215, 115.994, 9, 0.904)
pt3dadd(70.132, 115.908, 9, 0.904)
pt3dadd(70.049, 115.821, 9.001, 0.904)
pt3dadd(69.976, 115.73, 9.024, 0.904)
pt3dadd(69.903, 115.639, 9.047, 0.904)
pt3dadd(69.83, 115.548, 9.07, 0.904)
pt3dadd(69.757, 115.456, 9.093, 0.904)
pt3dadd(69.717, 115.348, 9.1, 0.904)
pt3dadd(69.692, 115.23, 9.1, 0.904)
pt3dadd(69.667, 115.113, 9.1, 0.904)
pt3dadd(69.642, 114.995, 9.1, 0.904)
pt3dadd(69.617, 114.878, 9.1, 0.904)
pt3dadd(69.592, 114.761, 9.1, 0.904)
pt3dadd(69.573, 114.642, 9.1, 0.904)
pt3dadd(69.556, 114.523, 9.1, 0.904)
pt3dadd(69.539, 114.405, 9.1, 0.904)
pt3dadd(69.522, 114.286, 9.1, 0.904)
pt3dadd(69.504, 114.167, 9.1, 0.904)
pt3dadd(69.487, 114.048, 9.1, 0.904)
pt3dadd(69.47, 113.93, 9.1, 0.904)
pt3dadd(69.453, 113.811, 9.1, 0.904)
pt3dadd(69.435, 113.692, 9.1, 0.904)
pt3dadd(69.418, 113.573, 9.1, 0.904)
pt3dadd(69.401, 113.455, 9.1, 0.904)
pt3dadd(69.383, 113.336, 9.1, 0.904)
pt3dadd(69.371, 113.217, 9.107, 0.904)
pt3dadd(69.367, 113.099, 9.124, 0.904)
pt3dadd(69.362, 112.981, 9.141, 0.904)
pt3dadd(69.358, 112.863, 9.158, 0.904)
pt3dadd(69.353, 112.745, 9.175, 0.904)
pt3dadd(69.349, 112.627, 9.192, 0.904)
pt3dadd(69.321, 112.513, 9.2, 0.904)
pt3dadd(69.275, 112.402, 9.2, 0.904)
pt3dadd(69.244, 112.292, 9.189, 0.888)
pt3dadd(69.258, 112.185, 9.146, 0.822)
pt3dadd(69.271, 112.077, 9.103, 0.758)
pt3dadd(69.285, 111.97, 9.06, 0.692)
pt3dadd(69.299, 111.863, 9.017, 0.628)
pt3dadd(69.313, 111.755, 8.974, 0.562)
pt3dadd(69.327, 111.648, 8.93, 0.498)
pt3dadd(69.341, 111.54, 8.887, 0.434)
pt3dadd(69.355, 111.433, 8.844, 0.368)
pt3dadd(69.369, 111.326, 8.801, 0.304)
pt3dadd(69.383, 111.218, 8.758, 0.238)
pt3dadd(69.385, 111.102, 8.736, 0.226)
pt3dadd(69.384, 110.984, 8.718, 0.226)
pt3dadd(69.384, 110.866, 8.701, 0.226)
pt3dadd(69.383, 110.748, 8.683, 0.226)
pt3dadd(69.382, 110.63, 8.666, 0.226)
pt3dadd(69.381, 110.511, 8.649, 0.226)
pt3dadd(69.381, 110.393, 8.631, 0.226)
pt3dadd(69.38, 110.275, 8.614, 0.226)
pt3dadd(69.379, 110.157, 8.596, 0.226)
pt3dadd(69.378, 110.039, 8.579, 0.226)
pt3dadd(69.381, 109.919, 8.575, 0.254)
pt3dadd(69.384, 109.799, 8.573, 0.286)
pt3dadd(69.387, 109.679, 8.571, 0.318)
pt3dadd(69.39, 109.559, 8.568, 0.35)
pt3dadd(69.393, 109.439, 8.566, 0.38)
pt3dadd(69.396, 109.319, 8.564, 0.412)
pt3dadd(69.399, 109.199, 8.562, 0.444)
pt3dadd(69.402, 109.08, 8.559, 0.476)
pt3dadd(69.406, 108.96, 8.557, 0.508)
pt3dadd(69.409, 108.84, 8.555, 0.538)
pt3dadd(69.415, 108.72, 8.555, 0.566)
pt3dadd(69.421, 108.6, 8.555, 0.592)
pt3dadd(69.428, 108.48, 8.555, 0.618)
pt3dadd(69.434, 108.36, 8.555, 0.644)
pt3dadd(69.441, 108.24, 8.555, 0.67)
pt3dadd(69.447, 108.121, 8.555, 0.696)
pt3dadd(69.454, 108.001, 8.555, 0.722)
pt3dadd(69.46, 107.881, 8.555, 0.748)
pt3dadd(69.467, 107.761, 8.555, 0.774)
pt3dadd(69.473, 107.641, 8.555, 0.8)
pt3dadd(69.484, 107.522, 8.555, 0.796)
pt3dadd(69.494, 107.402, 8.555, 0.786)
}
}
proc shape3d_75() {
apic[17] { pt3dadd(69.505, 107.283, 8.556, 0.78)
pt3dadd(69.516, 107.163, 8.556, 0.772)
pt3dadd(69.526, 107.044, 8.556, 0.764)
pt3dadd(69.537, 106.924, 8.556, 0.756)
pt3dadd(69.548, 106.805, 8.556, 0.748)
pt3dadd(69.558, 106.685, 8.556, 0.74)
pt3dadd(69.569, 106.566, 8.556, 0.732)
pt3dadd(69.58, 106.446, 8.556, 0.724)
pt3dadd(69.602, 106.328, 8.556, 0.708)
pt3dadd(69.624, 106.21, 8.556, 0.69)
pt3dadd(69.647, 106.092, 8.557, 0.674)
pt3dadd(69.669, 105.975, 8.557, 0.658)
pt3dadd(69.692, 105.857, 8.557, 0.642)
pt3dadd(69.715, 105.739, 8.557, 0.624)
pt3dadd(69.737, 105.621, 8.557, 0.608)
pt3dadd(69.76, 105.503, 8.557, 0.592)
pt3dadd(69.782, 105.385, 8.558, 0.574)
pt3dadd(69.805, 105.267, 8.558, 0.558)
pt3dadd(69.848, 105.156, 8.558, 0.59)
pt3dadd(69.891, 105.044, 8.559, 0.624)
pt3dadd(69.935, 104.932, 8.559, 0.656)
pt3dadd(69.978, 104.82, 8.559, 0.688)
pt3dadd(70.021, 104.708, 8.559, 0.72)
pt3dadd(70.064, 104.596, 8.56, 0.752)
pt3dadd(70.108, 104.484, 8.56, 0.784)
pt3dadd(70.151, 104.372, 8.56, 0.818)
pt3dadd(70.194, 104.26, 8.561, 0.85)
pt3dadd(70.237, 104.148, 8.561, 0.882)
pt3dadd(70.264, 104.031, 8.561, 0.826)
pt3dadd(70.291, 103.914, 8.562, 0.77)
pt3dadd(70.318, 103.797, 8.563, 0.712)
pt3dadd(70.345, 103.68, 8.564, 0.656)
pt3dadd(70.371, 103.563, 8.564, 0.6)
pt3dadd(70.398, 103.446, 8.565, 0.544)
pt3dadd(70.425, 103.329, 8.565, 0.486)
pt3dadd(70.452, 103.212, 8.566, 0.43)
pt3dadd(70.479, 103.095, 8.567, 0.374)
pt3dadd(70.506, 102.978, 8.567, 0.318)
pt3dadd(70.518, 102.859, 8.569, 0.324)
pt3dadd(70.53, 102.74, 8.57, 0.332)
pt3dadd(70.541, 102.62, 8.571, 0.338)
pt3dadd(70.553, 102.501, 8.573, 0.346)
pt3dadd(70.565, 102.381, 8.574, 0.352)
pt3dadd(70.577, 102.262, 8.575, 0.36)
pt3dadd(70.589, 102.143, 8.576, 0.366)
pt3dadd(70.601, 102.023, 8.578, 0.374)
pt3dadd(70.613, 101.904, 8.579, 0.38)
pt3dadd(70.625, 101.784, 8.58, 0.388)
pt3dadd(70.621, 101.665, 8.583, 0.382)
pt3dadd(70.617, 101.545, 8.585, 0.374)
pt3dadd(70.613, 101.425, 8.588, 0.368)
pt3dadd(70.609, 101.305, 8.59, 0.362)
pt3dadd(70.606, 101.185, 8.593, 0.356)
pt3dadd(70.602, 101.065, 8.595, 0.35)
pt3dadd(70.598, 100.945, 8.597, 0.342)
pt3dadd(70.594, 100.825, 8.6, 0.336)
pt3dadd(70.59, 100.705, 8.602, 0.33)
pt3dadd(70.586, 100.586, 8.605, 0.324)
pt3dadd(70.572, 100.467, 8.61, 0.344)
pt3dadd(70.558, 100.347, 8.615, 0.362)
pt3dadd(70.545, 100.228, 8.62, 0.38)
pt3dadd(70.531, 100.109, 8.625, 0.398)
pt3dadd(70.517, 99.99, 8.63, 0.416)
pt3dadd(70.503, 99.871, 8.635, 0.434)
pt3dadd(70.489, 99.752, 8.639, 0.452)
pt3dadd(70.475, 99.633, 8.644, 0.47)
pt3dadd(70.462, 99.514, 8.649, 0.488)
pt3dadd(70.447, 99.395, 8.655, 0.508)
pt3dadd(70.419, 99.279, 8.663, 0.554)
pt3dadd(70.391, 99.163, 8.671, 0.6)
pt3dadd(70.363, 99.046, 8.679, 0.646)
pt3dadd(70.335, 98.93, 8.688, 0.69)
pt3dadd(70.306, 98.814, 8.696, 0.736)
pt3dadd(70.278, 98.698, 8.704, 0.782)
pt3dadd(70.25, 98.581, 8.712, 0.826)
pt3dadd(70.222, 98.465, 8.721, 0.872)
pt3dadd(70.194, 98.349, 8.729, 0.918)
pt3dadd(70.162, 98.234, 8.738, 0.96)
pt3dadd(70.111, 98.126, 8.748, 0.976)
pt3dadd(70.059, 98.019, 8.759, 0.994)
pt3dadd(70.008, 97.911, 8.77, 1.012)
pt3dadd(69.957, 97.803, 8.78, 1.028)
pt3dadd(69.905, 97.696, 8.791, 1.046)
pt3dadd(69.854, 97.588, 8.802, 1.064)
pt3dadd(69.802, 97.48, 8.813, 1.08)
pt3dadd(69.751, 97.373, 8.823, 1.098)
pt3dadd(69.699, 97.265, 8.834, 1.116)
pt3dadd(69.65, 97.158, 8.849, 1.13)
pt3dadd(69.61, 97.053, 8.884, 1.13)
pt3dadd(69.571, 96.948, 8.92, 1.13)
pt3dadd(69.531, 96.843, 8.955, 1.13)
pt3dadd(69.491, 96.738, 8.991, 1.13)
pt3dadd(69.452, 96.633, 9.026, 1.13)
pt3dadd(69.412, 96.528, 9.062, 1.13)
pt3dadd(69.372, 96.423, 9.097, 1.13)
pt3dadd(69.333, 96.318, 9.133, 1.13)
pt3dadd(69.293, 96.214, 9.168, 1.13)
pt3dadd(69.252, 96.109, 9.203, 1.13)
pt3dadd(69.201, 96.005, 9.23, 1.13)
pt3dadd(69.151, 95.901, 9.257, 1.13)
pt3dadd(69.1, 95.797, 9.284, 1.13)
pt3dadd(69.05, 95.693, 9.311, 1.13)
pt3dadd(68.999, 95.589, 9.338, 1.13)
pt3dadd(68.949, 95.485, 9.365, 1.13)
pt3dadd(68.898, 95.381, 9.392, 1.13)
pt3dadd(68.848, 95.277, 9.419, 1.13)
pt3dadd(68.797, 95.173, 9.446, 1.13)
pt3dadd(68.747, 95.069, 9.471, 1.13)
pt3dadd(68.697, 94.963, 9.491, 1.13)
pt3dadd(68.647, 94.856, 9.511, 1.13)
pt3dadd(68.596, 94.75, 9.53, 1.13)
pt3dadd(68.546, 94.643, 9.55, 1.13)
pt3dadd(68.496, 94.537, 9.57, 1.13)
pt3dadd(68.446, 94.431, 9.59, 1.13)
pt3dadd(68.396, 94.324, 9.609, 1.13)
pt3dadd(68.346, 94.218, 9.629, 1.13)
pt3dadd(68.296, 94.111, 9.649, 1.13)
pt3dadd(68.249, 94.003, 9.667, 1.13)
pt3dadd(68.213, 93.89, 9.68, 1.13)
pt3dadd(68.177, 93.776, 9.693, 1.13)
pt3dadd(68.142, 93.663, 9.705, 1.13)
pt3dadd(68.106, 93.549, 9.718, 1.13)
pt3dadd(68.07, 93.436, 9.731, 1.13)
pt3dadd(68.034, 93.322, 9.744, 1.13)
pt3dadd(67.998, 93.209, 9.757, 1.13)
pt3dadd(67.963, 93.095, 9.77, 1.13)
pt3dadd(67.927, 92.982, 9.783, 1.13)
pt3dadd(67.893, 92.868, 9.794, 1.13)
pt3dadd(67.866, 92.751, 9.801, 1.13)
pt3dadd(67.839, 92.634, 9.808, 1.13)
pt3dadd(67.811, 92.518, 9.815, 1.13)
pt3dadd(67.784, 92.401, 9.822, 1.13)
pt3dadd(67.757, 92.285, 9.829, 1.13)
pt3dadd(67.73, 92.168, 9.836, 1.13)
pt3dadd(67.702, 92.052, 9.842, 1.13)
pt3dadd(67.675, 91.935, 9.849, 1.13)
pt3dadd(67.648, 91.818, 9.856, 1.13)
pt3dadd(67.617, 91.703, 9.864, 1.122)
pt3dadd(67.574, 91.592, 9.874, 1.092)
pt3dadd(67.531, 91.48, 9.884, 1.062)
pt3dadd(67.488, 91.369, 9.895, 1.032)
pt3dadd(67.445, 91.258, 9.905, 1.002)
pt3dadd(67.401, 91.146, 9.915, 0.972)
pt3dadd(67.358, 91.035, 9.925, 0.942)
pt3dadd(67.315, 90.924, 9.936, 0.91)
pt3dadd(67.272, 90.812, 9.946, 0.88)
pt3dadd(67.229, 90.701, 9.956, 0.85)
pt3dadd(67.188, 90.59, 9.97, 0.824)
pt3dadd(67.151, 90.48, 9.996, 0.808)
pt3dadd(67.114, 90.37, 10.022, 0.794)
pt3dadd(67.077, 90.26, 10.048, 0.778)
pt3dadd(67.041, 90.15, 10.074, 0.764)
pt3dadd(67.004, 90.04, 10.1, 0.748)
pt3dadd(66.967, 89.93, 10.125, 0.734)
pt3dadd(66.93, 89.82, 10.151, 0.718)
pt3dadd(66.894, 89.711, 10.177, 0.702)
pt3dadd(66.857, 89.601, 10.203, 0.688)
pt3dadd(66.823, 89.491, 10.231, 0.678)
pt3dadd(66.796, 89.381, 10.264, 0.678)
pt3dadd(66.769, 89.271, 10.297, 0.678)
pt3dadd(66.741, 89.161, 10.33, 0.678)
pt3dadd(66.714, 89.051, 10.363, 0.678)
pt3dadd(66.687, 88.941, 10.396, 0.678)
pt3dadd(66.66, 88.831, 10.429, 0.678)
pt3dadd(66.632, 88.721, 10.462, 0.678)
pt3dadd(66.605, 88.611, 10.495, 0.678)
pt3dadd(66.578, 88.501, 10.528, 0.678)
pt3dadd(66.553, 88.389, 10.557, 0.678)
pt3dadd(66.533, 88.274, 10.581, 0.678)
pt3dadd(66.513, 88.16, 10.604, 0.678)
pt3dadd(66.492, 88.045, 10.628, 0.678)
pt3dadd(66.472, 87.93, 10.652, 0.678)
pt3dadd(66.451, 87.815, 10.675, 0.678)
pt3dadd(66.431, 87.7, 10.699, 0.678)
pt3dadd(66.411, 87.585, 10.722, 0.678)
pt3dadd(66.39, 87.471, 10.746, 0.678)
pt3dadd(66.37, 87.356, 10.77, 0.678)
pt3dadd(66.352, 87.24, 10.789, 0.678)
pt3dadd(66.338, 87.121, 10.801, 0.678)
pt3dadd(66.325, 87.003, 10.814, 0.678)
pt3dadd(66.311, 86.885, 10.826, 0.678)
pt3dadd(66.297, 86.766, 10.838, 0.678)
pt3dadd(66.284, 86.648, 10.851, 0.678)
pt3dadd(66.27, 86.53, 10.863, 0.678)
pt3dadd(66.257, 86.412, 10.875, 0.678)
pt3dadd(66.243, 86.293, 10.888, 0.678)
pt3dadd(66.229, 86.175, 10.9, 0.678)
pt3dadd(66.206, 86.059, 10.909, 0.666)
pt3dadd(66.165, 85.946, 10.913, 0.634)
pt3dadd(66.125, 85.833, 10.917, 0.604)
pt3dadd(66.084, 85.72, 10.921, 0.572)
pt3dadd(66.044, 85.607, 10.925, 0.542)
pt3dadd(66.004, 85.494, 10.929, 0.51)
pt3dadd(65.963, 85.381, 10.933, 0.478)
pt3dadd(65.923, 85.269, 10.937, 0.448)
pt3dadd(65.882, 85.156, 10.941, 0.416)
pt3dadd(65.842, 85.043, 10.945, 0.386)
pt3dadd(65.804, 84.929, 10.95, 0.362)
pt3dadd(65.769, 84.814, 10.955, 0.348)
pt3dadd(65.735, 84.7, 10.96, 0.334)
}
}
proc shape3d_76() {
apic[17] { pt3dadd(65.7, 84.585, 10.965, 0.318)
pt3dadd(65.666, 84.47, 10.97, 0.304)
pt3dadd(65.631, 84.355, 10.976, 0.29)
pt3dadd(65.596, 84.241, 10.981, 0.276)
pt3dadd(65.562, 84.126, 10.986, 0.262)
pt3dadd(65.527, 84.011, 10.991, 0.248)
pt3dadd(65.493, 83.896, 10.996, 0.234)
pt3dadd(65.464, 83.78, 11.003, 0.23)
pt3dadd(65.442, 83.663, 11.012, 0.238)
pt3dadd(65.421, 83.545, 11.021, 0.244)
pt3dadd(65.399, 83.428, 11.029, 0.252)
pt3dadd(65.377, 83.31, 11.038, 0.26)
pt3dadd(65.356, 83.193, 11.047, 0.268)
pt3dadd(65.334, 83.075, 11.055, 0.276)
pt3dadd(65.313, 82.957, 11.064, 0.282)
pt3dadd(65.291, 82.84, 11.073, 0.29)
pt3dadd(65.269, 82.722, 11.082, 0.298)
pt3dadd(65.254, 82.605, 11.094, 0.314)
pt3dadd(65.245, 82.487, 11.111, 0.336)
pt3dadd(65.237, 82.369, 11.129, 0.358)
pt3dadd(65.228, 82.251, 11.146, 0.382)
pt3dadd(65.219, 82.133, 11.163, 0.404)
pt3dadd(65.211, 82.015, 11.18, 0.428)
pt3dadd(65.202, 81.897, 11.197, 0.45)
pt3dadd(65.193, 81.779, 11.214, 0.474)
pt3dadd(65.185, 81.661, 11.232, 0.496)
pt3dadd(65.176, 81.543, 11.249, 0.518)
pt3dadd(65.173, 81.429, 11.277, 0.548)
pt3dadd(65.176, 81.318, 11.314, 0.584)
pt3dadd(65.179, 81.206, 11.351, 0.62)
pt3dadd(65.182, 81.095, 11.389, 0.656)
pt3dadd(65.184, 80.984, 11.426, 0.692)
pt3dadd(65.187, 80.872, 11.463, 0.728)
pt3dadd(65.19, 80.761, 11.5, 0.764)
pt3dadd(65.193, 80.65, 11.537, 0.8)
pt3dadd(65.195, 80.538, 11.574, 0.836)
pt3dadd(65.198, 80.427, 11.611, 0.872)
pt3dadd(65.203, 80.313, 11.642, 0.878)
pt3dadd(65.21, 80.197, 11.666, 0.862)
pt3dadd(65.217, 80.081, 11.691, 0.846)
pt3dadd(65.224, 79.965, 11.715, 0.83)
pt3dadd(65.231, 79.848, 11.74, 0.814)
pt3dadd(65.238, 79.732, 11.764, 0.798)
pt3dadd(65.245, 79.616, 11.789, 0.782)
pt3dadd(65.252, 79.5, 11.813, 0.766)
pt3dadd(65.259, 79.384, 11.838, 0.748)
pt3dadd(65.266, 79.268, 11.863, 0.732)
pt3dadd(65.275, 79.15, 11.881, 0.73)
pt3dadd(65.285, 79.032, 11.896, 0.74)
pt3dadd(65.296, 78.914, 11.91, 0.75)
pt3dadd(65.306, 78.795, 11.924, 0.76)
pt3dadd(65.317, 78.677, 11.938, 0.768)
pt3dadd(65.327, 78.559, 11.953, 0.778)
pt3dadd(65.337, 78.441, 11.967, 0.788)
pt3dadd(65.348, 78.322, 11.981, 0.798)
pt3dadd(65.358, 78.204, 11.995, 0.808)
pt3dadd(65.369, 78.086, 12.01, 0.816)
pt3dadd(65.39, 77.968, 12.018, 0.82)
pt3dadd(65.418, 77.852, 12.023, 0.818)
pt3dadd(65.446, 77.735, 12.028, 0.816)
pt3dadd(65.475, 77.619, 12.033, 0.814)
pt3dadd(65.503, 77.502, 12.037, 0.812)
pt3dadd(65.531, 77.386, 12.042, 0.81)
pt3dadd(65.56, 77.27, 12.047, 0.808)
pt3dadd(65.588, 77.153, 12.052, 0.806)
pt3dadd(65.616, 77.037, 12.057, 0.804)
pt3dadd(65.645, 76.92, 12.061, 0.802)
pt3dadd(65.676, 76.804, 12.063, 0.798)
pt3dadd(65.71, 76.689, 12.063, 0.792)
pt3dadd(65.744, 76.574, 12.063, 0.784)
pt3dadd(65.777, 76.459, 12.063, 0.778)
pt3dadd(65.811, 76.344, 12.063, 0.772)
pt3dadd(65.844, 76.228, 12.062, 0.766)
pt3dadd(65.878, 76.113, 12.062, 0.76)
pt3dadd(65.911, 75.998, 12.062, 0.754)
pt3dadd(65.945, 75.883, 12.062, 0.748)
pt3dadd(65.979, 75.768, 12.062, 0.742)
pt3dadd(65.999, 75.65, 12.062, 0.752)
pt3dadd(66.013, 75.531, 12.062, 0.768)
pt3dadd(66.028, 75.411, 12.062, 0.784)
pt3dadd(66.043, 75.292, 12.061, 0.8)
pt3dadd(66.057, 75.173, 12.061, 0.818)
pt3dadd(66.072, 75.054, 12.061, 0.834)
pt3dadd(66.087, 74.935, 12.061, 0.85)
pt3dadd(66.101, 74.816, 12.061, 0.866)
pt3dadd(66.116, 74.697, 12.061, 0.882)
pt3dadd(66.13, 74.578, 12.061, 0.9)
pt3dadd(66.129, 74.458, 12.06, 0.904)
pt3dadd(66.123, 74.338, 12.06, 0.904)
pt3dadd(66.116, 74.218, 12.06, 0.904)
pt3dadd(66.109, 74.099, 12.059, 0.904)
pt3dadd(66.102, 73.979, 12.059, 0.904)
pt3dadd(66.096, 73.859, 12.059, 0.904)
pt3dadd(66.089, 73.739, 12.059, 0.904)
pt3dadd(66.082, 73.619, 12.058, 0.904)
pt3dadd(66.075, 73.5, 12.058, 0.904)
pt3dadd(66.069, 73.38, 12.058, 0.904)
pt3dadd(66.027, 73.269, 12.057, 0.88)
pt3dadd(65.973, 73.162, 12.057, 0.846)
pt3dadd(65.919, 73.055, 12.056, 0.812)
pt3dadd(65.864, 72.948, 12.055, 0.778)
pt3dadd(65.81, 72.841, 12.055, 0.744)
pt3dadd(65.756, 72.734, 12.054, 0.712)
pt3dadd(65.702, 72.627, 12.054, 0.678)
pt3dadd(65.647, 72.52, 12.053, 0.644)
pt3dadd(65.593, 72.413, 12.053, 0.61)
pt3dadd(65.539, 72.306, 12.052, 0.576)
pt3dadd(65.486, 72.198, 12.051, 0.55)
pt3dadd(65.433, 72.091, 12.05, 0.528)
pt3dadd(65.38, 71.983, 12.049, 0.504)
pt3dadd(65.327, 71.875, 12.048, 0.48)
pt3dadd(65.274, 71.768, 12.047, 0.458)
pt3dadd(65.221, 71.66, 12.046, 0.434)
pt3dadd(65.168, 71.552, 12.045, 0.41)
pt3dadd(65.115, 71.445, 12.044, 0.388)
pt3dadd(65.062, 71.337, 12.043, 0.364)
pt3dadd(65.009, 71.229, 12.042, 0.34)
pt3dadd(64.951, 71.124, 12.04, 0.34)
pt3dadd(64.892, 71.02, 12.038, 0.348)
pt3dadd(64.832, 70.916, 12.037, 0.356)
pt3dadd(64.773, 70.812, 12.035, 0.364)
pt3dadd(64.713, 70.707, 12.033, 0.37)
pt3dadd(64.654, 70.603, 12.031, 0.378)
pt3dadd(64.594, 70.499, 12.03, 0.386)
pt3dadd(64.535, 70.395, 12.028, 0.394)
pt3dadd(64.476, 70.291, 12.026, 0.402)
pt3dadd(64.416, 70.186, 12.025, 0.408)
pt3dadd(64.347, 70.088, 12.022, 0.448)
pt3dadd(64.276, 69.992, 12.02, 0.496)
pt3dadd(64.205, 69.895, 12.018, 0.544)
pt3dadd(64.133, 69.799, 12.015, 0.592)
pt3dadd(64.062, 69.702, 12.013, 0.64)
pt3dadd(63.991, 69.606, 12.011, 0.688)
pt3dadd(63.92, 69.509, 12.008, 0.736)
pt3dadd(63.848, 69.413, 12.006, 0.784)
pt3dadd(63.777, 69.316, 12.003, 0.832)
pt3dadd(63.706, 69.22, 12.001, 0.88)
pt3dadd(63.629, 69.128, 11.996, 0.854)
pt3dadd(63.551, 69.037, 11.991, 0.81)
pt3dadd(63.473, 68.946, 11.985, 0.766)
pt3dadd(63.395, 68.855, 11.979, 0.722)
pt3dadd(63.317, 68.764, 11.974, 0.678)
pt3dadd(63.239, 68.673, 11.968, 0.632)
pt3dadd(63.161, 68.582, 11.962, 0.588)
pt3dadd(63.083, 68.491, 11.957, 0.544)
pt3dadd(63.005, 68.4, 11.951, 0.5)
pt3dadd(62.927, 68.31, 11.946, 0.456)
pt3dadd(62.847, 68.221, 11.938, 0.448)
pt3dadd(62.766, 68.132, 11.931, 0.452)
pt3dadd(62.685, 68.044, 11.923, 0.454)
pt3dadd(62.604, 67.956, 11.915, 0.458)
pt3dadd(62.524, 67.867, 11.907, 0.46)
pt3dadd(62.443, 67.779, 11.9, 0.464)
pt3dadd(62.362, 67.691, 11.892, 0.466)
pt3dadd(62.282, 67.602, 11.884, 0.47)
pt3dadd(62.201, 67.514, 11.877, 0.474)
pt3dadd(62.12, 67.426, 11.869, 0.476)
pt3dadd(62.038, 67.339, 11.857, 0.51)
pt3dadd(61.956, 67.253, 11.844, 0.55)
pt3dadd(61.874, 67.167, 11.831, 0.592)
pt3dadd(61.792, 67.081, 11.819, 0.632)
pt3dadd(61.71, 66.995, 11.806, 0.674)
pt3dadd(61.628, 66.909, 11.793, 0.714)
pt3dadd(61.546, 66.822, 11.78, 0.756)
pt3dadd(61.464, 66.736, 11.767, 0.796)
pt3dadd(61.382, 66.65, 11.755, 0.838)
pt3dadd(61.299, 66.564, 11.742, 0.878)
pt3dadd(61.228, 66.482, 11.702, 0.868)
pt3dadd(61.157, 66.4, 11.658, 0.85)
pt3dadd(61.087, 66.318, 11.614, 0.832)
pt3dadd(61.017, 66.237, 11.57, 0.812)
pt3dadd(60.947, 66.155, 11.526, 0.794)
pt3dadd(60.876, 66.073, 11.482, 0.776)
pt3dadd(60.806, 65.992, 11.437, 0.756)
pt3dadd(60.736, 65.91, 11.393, 0.738)
pt3dadd(60.666, 65.829, 11.349, 0.72)
pt3dadd(60.595, 65.747, 11.305, 0.7)
pt3dadd(60.522, 65.658, 11.278, 0.732)
pt3dadd(60.449, 65.567, 11.253, 0.77)
pt3dadd(60.376, 65.477, 11.229, 0.81)
pt3dadd(60.303, 65.387, 11.204, 0.848)
pt3dadd(60.229, 65.296, 11.179, 0.886)
pt3dadd(60.156, 65.206, 11.155, 0.926)
pt3dadd(60.083, 65.116, 11.13, 0.964)
pt3dadd(60.009, 65.026, 11.105, 1.002)
pt3dadd(59.936, 64.935, 11.081, 1.042)
pt3dadd(59.863, 64.845, 11.056, 1.08)
pt3dadd(59.805, 64.741, 11.042, 1.088)
pt3dadd(59.75, 64.636, 11.029, 1.094)
pt3dadd(59.695, 64.53, 11.016, 1.098)
pt3dadd(59.64, 64.425, 11.003, 1.102)
pt3dadd(59.585, 64.319, 10.99, 1.106)
pt3dadd(59.53, 64.214, 10.978, 1.112)
pt3dadd(59.475, 64.108, 10.965, 1.116)
pt3dadd(59.42, 64.003, 10.952, 1.12)
pt3dadd(59.365, 63.897, 10.939, 1.126)
pt3dadd(59.31, 63.792, 10.927, 1.13)
pt3dadd(59.249, 63.688, 10.922, 1.098)
pt3dadd(59.188, 63.585, 10.919, 1.062)
pt3dadd(59.128, 63.482, 10.916, 1.028)
}
}
proc shape3d_77() {
apic[17] { pt3dadd(59.067, 63.378, 10.913, 0.992)
pt3dadd(59.006, 63.275, 10.91, 0.956)
pt3dadd(58.945, 63.172, 10.907, 0.922)
pt3dadd(58.884, 63.068, 10.904, 0.886)
pt3dadd(58.823, 62.965, 10.9, 0.852)
pt3dadd(58.762, 62.862, 10.897, 0.816)
pt3dadd(58.701, 62.758, 10.894, 0.78)
pt3dadd(58.637, 62.657, 10.894, 0.758)
pt3dadd(58.572, 62.556, 10.894, 0.736)
pt3dadd(58.508, 62.455, 10.894, 0.714)
pt3dadd(58.443, 62.354, 10.894, 0.692)
pt3dadd(58.378, 62.253, 10.894, 0.67)
pt3dadd(58.314, 62.152, 10.894, 0.648)
pt3dadd(58.249, 62.05, 10.894, 0.626)
pt3dadd(58.185, 61.949, 10.894, 0.606)
pt3dadd(58.12, 61.848, 10.894, 0.584)
pt3dadd(58.055, 61.747, 10.894, 0.562)
pt3dadd(57.99, 61.647, 10.894, 0.59)
pt3dadd(57.924, 61.546, 10.894, 0.622)
pt3dadd(57.858, 61.446, 10.894, 0.654)
pt3dadd(57.793, 61.345, 10.894, 0.688)
pt3dadd(57.727, 61.245, 10.894, 0.72)
pt3dadd(57.661, 61.144, 10.894, 0.752)
pt3dadd(57.596, 61.044, 10.894, 0.784)
pt3dadd(57.53, 60.944, 10.894, 0.816)
pt3dadd(57.464, 60.843, 10.894, 0.848)
pt3dadd(57.399, 60.743, 10.894, 0.882)
pt3dadd(57.354, 60.632, 10.894, 0.87)
pt3dadd(57.31, 60.52, 10.894, 0.854)
pt3dadd(57.267, 60.408, 10.894, 0.84)
pt3dadd(57.223, 60.296, 10.894, 0.824)
pt3dadd(57.18, 60.184, 10.894, 0.81)
pt3dadd(57.136, 60.072, 10.894, 0.794)
pt3dadd(57.093, 59.961, 10.894, 0.78)
pt3dadd(57.049, 59.849, 10.894, 0.766)
pt3dadd(57.006, 59.737, 10.894, 0.75)
pt3dadd(56.962, 59.625, 10.894, 0.736)
pt3dadd(56.937, 59.508, 10.894, 0.716)
pt3dadd(56.912, 59.391, 10.894, 0.698)
pt3dadd(56.887, 59.273, 10.894, 0.678)
pt3dadd(56.862, 59.156, 10.894, 0.66)
pt3dadd(56.838, 59.038, 10.894, 0.64)
pt3dadd(56.813, 58.921, 10.894, 0.622)
pt3dadd(56.788, 58.803, 10.894, 0.604)
pt3dadd(56.763, 58.686, 10.894, 0.584)
pt3dadd(56.739, 58.569, 10.894, 0.566)
pt3dadd(56.714, 58.451, 10.894, 0.546)
}
apic[18] {pt3dclear()
pt3dadd(56.714, 58.451, 10.894, 0.546)
pt3dadd(56.709, 58.403, 10.894, 0.538)
pt3dadd(56.696, 58.284, 10.894, 0.52)
pt3dadd(56.683, 58.165, 10.894, 0.5)
pt3dadd(56.671, 58.045, 10.894, 0.482)
pt3dadd(56.658, 57.926, 10.894, 0.462)
pt3dadd(56.645, 57.807, 10.894, 0.442)
pt3dadd(56.633, 57.687, 10.894, 0.424)
pt3dadd(56.62, 57.568, 10.894, 0.404)
pt3dadd(56.607, 57.449, 10.894, 0.386)
pt3dadd(56.594, 57.329, 10.894, 0.366)
pt3dadd(56.583, 57.21, 10.894, 0.352)
pt3dadd(56.572, 57.09, 10.894, 0.346)
pt3dadd(56.561, 56.971, 10.894, 0.338)
pt3dadd(56.55, 56.851, 10.894, 0.332)
pt3dadd(56.54, 56.732, 10.894, 0.326)
pt3dadd(56.529, 56.612, 10.894, 0.32)
pt3dadd(56.518, 56.493, 10.894, 0.314)
pt3dadd(56.508, 56.373, 10.894, 0.306)
pt3dadd(56.497, 56.254, 10.894, 0.3)
pt3dadd(56.487, 56.134, 10.894, 0.294)
pt3dadd(56.472, 56.015, 10.894, 0.296)
pt3dadd(56.453, 55.897, 10.894, 0.312)
pt3dadd(56.433, 55.778, 10.894, 0.33)
pt3dadd(56.414, 55.66, 10.894, 0.346)
pt3dadd(56.394, 55.542, 10.894, 0.362)
pt3dadd(56.375, 55.423, 10.894, 0.378)
pt3dadd(56.355, 55.305, 10.894, 0.394)
pt3dadd(56.336, 55.186, 10.894, 0.41)
pt3dadd(56.316, 55.068, 10.894, 0.426)
pt3dadd(56.297, 54.949, 10.894, 0.444)
pt3dadd(56.265, 54.834, 10.894, 0.452)
pt3dadd(56.22, 54.724, 10.894, 0.452)
pt3dadd(56.174, 54.613, 10.894, 0.452)
pt3dadd(56.128, 54.502, 10.894, 0.452)
pt3dadd(56.082, 54.391, 10.894, 0.452)
pt3dadd(56.036, 54.28, 10.894, 0.452)
pt3dadd(55.99, 54.169, 10.894, 0.452)
pt3dadd(55.944, 54.058, 10.894, 0.452)
pt3dadd(55.899, 53.947, 10.894, 0.452)
pt3dadd(55.853, 53.836, 10.894, 0.452)
pt3dadd(55.813, 53.724, 10.894, 0.46)
pt3dadd(55.78, 53.608, 10.894, 0.476)
pt3dadd(55.746, 53.493, 10.894, 0.492)
pt3dadd(55.713, 53.377, 10.894, 0.51)
pt3dadd(55.68, 53.262, 10.894, 0.526)
pt3dadd(55.647, 53.147, 10.894, 0.542)
pt3dadd(55.614, 53.031, 10.894, 0.56)
pt3dadd(55.581, 52.916, 10.894, 0.576)
pt3dadd(55.548, 52.801, 10.894, 0.592)
pt3dadd(55.514, 52.686, 10.894, 0.608)
pt3dadd(55.485, 52.569, 10.894, 0.614)
pt3dadd(55.461, 52.452, 10.894, 0.608)
pt3dadd(55.437, 52.334, 10.894, 0.6)
pt3dadd(55.413, 52.217, 10.894, 0.594)
pt3dadd(55.389, 52.099, 10.894, 0.588)
pt3dadd(55.364, 51.981, 10.894, 0.58)
pt3dadd(55.34, 51.864, 10.894, 0.574)
pt3dadd(55.316, 51.747, 10.894, 0.566)
pt3dadd(55.292, 51.629, 10.894, 0.56)
pt3dadd(55.267, 51.511, 10.894, 0.554)
pt3dadd(55.247, 51.393, 10.894, 0.54)
pt3dadd(55.23, 51.274, 10.894, 0.522)
pt3dadd(55.214, 51.156, 10.894, 0.502)
pt3dadd(55.197, 51.037, 10.894, 0.482)
pt3dadd(55.181, 50.918, 10.894, 0.464)
pt3dadd(55.164, 50.799, 10.894, 0.444)
pt3dadd(55.147, 50.68, 10.894, 0.426)
pt3dadd(55.131, 50.561, 10.894, 0.406)
pt3dadd(55.114, 50.442, 10.894, 0.388)
pt3dadd(55.098, 50.324, 10.894, 0.368)
pt3dadd(55.079, 50.205, 10.894, 0.352)
pt3dadd(55.057, 50.087, 10.894, 0.338)
pt3dadd(55.036, 49.969, 10.894, 0.326)
pt3dadd(55.014, 49.851, 10.894, 0.312)
pt3dadd(54.993, 49.733, 10.894, 0.298)
pt3dadd(54.971, 49.615, 10.894, 0.286)
pt3dadd(54.949, 49.497, 10.894, 0.272)
pt3dadd(54.928, 49.379, 10.894, 0.258)
pt3dadd(54.906, 49.261, 10.894, 0.246)
pt3dadd(54.885, 49.143, 10.894, 0.232)
pt3dadd(54.853, 49.027, 10.894, 0.228)
pt3dadd(54.812, 48.915, 10.894, 0.232)
pt3dadd(54.772, 48.801, 10.894, 0.236)
pt3dadd(54.731, 48.689, 10.894, 0.24)
pt3dadd(54.691, 48.576, 10.894, 0.242)
pt3dadd(54.65, 48.463, 10.894, 0.246)
pt3dadd(54.61, 48.35, 10.894, 0.25)
pt3dadd(54.57, 48.237, 10.894, 0.254)
pt3dadd(54.529, 48.124, 10.894, 0.258)
pt3dadd(54.489, 48.011, 10.894, 0.262)
pt3dadd(54.459, 47.895, 10.894, 0.294)
pt3dadd(54.438, 47.777, 10.894, 0.352)
pt3dadd(54.418, 47.658, 10.894, 0.408)
pt3dadd(54.397, 47.54, 10.894, 0.466)
pt3dadd(54.376, 47.422, 10.894, 0.522)
pt3dadd(54.356, 47.304, 10.894, 0.58)
pt3dadd(54.335, 47.186, 10.894, 0.638)
pt3dadd(54.314, 47.067, 10.894, 0.694)
pt3dadd(54.294, 46.949, 10.894, 0.752)
pt3dadd(54.273, 46.831, 10.894, 0.808)
pt3dadd(54.263, 46.712, 10.894, 0.828)
pt3dadd(54.261, 46.592, 10.894, 0.818)
pt3dadd(54.259, 46.472, 10.894, 0.808)
pt3dadd(54.258, 46.352, 10.894, 0.798)
pt3dadd(54.256, 46.232, 10.894, 0.788)
pt3dadd(54.254, 46.112, 10.894, 0.778)
pt3dadd(54.253, 45.992, 10.894, 0.768)
pt3dadd(54.251, 45.872, 10.894, 0.758)
pt3dadd(54.249, 45.752, 10.894, 0.748)
pt3dadd(54.248, 45.632, 10.894, 0.738)
pt3dadd(54.266, 45.515, 10.894, 0.724)
pt3dadd(54.299, 45.399, 10.894, 0.706)
pt3dadd(54.331, 45.284, 10.894, 0.686)
pt3dadd(54.364, 45.168, 10.894, 0.668)
pt3dadd(54.397, 45.053, 10.894, 0.65)
pt3dadd(54.429, 44.937, 10.894, 0.63)
pt3dadd(54.462, 44.822, 10.894, 0.612)
pt3dadd(54.495, 44.706, 10.894, 0.594)
pt3dadd(54.528, 44.591, 10.894, 0.576)
pt3dadd(54.56, 44.475, 10.894, 0.556)
pt3dadd(54.597, 44.361, 10.894, 0.55)
pt3dadd(54.636, 44.248, 10.894, 0.548)
pt3dadd(54.675, 44.134, 10.894, 0.548)
pt3dadd(54.714, 44.021, 10.894, 0.546)
pt3dadd(54.752, 43.907, 10.894, 0.544)
pt3dadd(54.791, 43.793, 10.894, 0.542)
pt3dadd(54.83, 43.68, 10.894, 0.54)
pt3dadd(54.868, 43.566, 10.894, 0.538)
pt3dadd(54.907, 43.453, 10.894, 0.536)
pt3dadd(54.946, 43.339, 10.894, 0.536)
pt3dadd(54.976, 43.223, 10.894, 0.54)
pt3dadd(55.003, 43.106, 10.894, 0.544)
pt3dadd(55.03, 42.989, 10.894, 0.55)
pt3dadd(55.057, 42.872, 10.894, 0.556)
pt3dadd(55.084, 42.755, 10.894, 0.56)
pt3dadd(55.111, 42.639, 10.894, 0.566)
pt3dadd(55.138, 42.522, 10.894, 0.57)
pt3dadd(55.166, 42.405, 10.894, 0.576)
pt3dadd(55.193, 42.288, 10.894, 0.582)
pt3dadd(55.22, 42.171, 10.894, 0.586)
pt3dadd(55.239, 42.053, 10.894, 0.56)
pt3dadd(55.255, 41.934, 10.894, 0.524)
pt3dadd(55.271, 41.815, 10.894, 0.488)
pt3dadd(55.287, 41.696, 10.894, 0.452)
pt3dadd(55.303, 41.577, 10.894, 0.416)
pt3dadd(55.32, 41.458, 10.894, 0.38)
pt3dadd(55.336, 41.339, 10.894, 0.344)
pt3dadd(55.352, 41.22, 10.894, 0.308)
pt3dadd(55.368, 41.101, 10.894, 0.27)
pt3dadd(55.384, 40.982, 10.894, 0.234)
pt3dadd(55.394, 40.863, 10.894, 0.226)
pt3dadd(55.403, 40.743, 10.894, 0.226)
}
}
proc shape3d_78() {
apic[18] { pt3dadd(55.411, 40.623, 10.894, 0.226)
pt3dadd(55.42, 40.504, 10.894, 0.226)
pt3dadd(55.428, 40.384, 10.894, 0.226)
pt3dadd(55.436, 40.264, 10.894, 0.226)
pt3dadd(55.445, 40.145, 10.894, 0.226)
pt3dadd(55.453, 40.025, 10.894, 0.226)
pt3dadd(55.462, 39.905, 10.894, 0.226)
pt3dadd(55.47, 39.786, 10.894, 0.226)
pt3dadd(55.482, 39.666, 10.894, 0.238)
pt3dadd(55.495, 39.547, 10.894, 0.256)
pt3dadd(55.508, 39.428, 10.894, 0.272)
pt3dadd(55.522, 39.308, 10.894, 0.29)
pt3dadd(55.535, 39.189, 10.894, 0.306)
pt3dadd(55.548, 39.07, 10.894, 0.324)
pt3dadd(55.561, 38.95, 10.894, 0.34)
pt3dadd(55.574, 38.831, 10.894, 0.358)
pt3dadd(55.588, 38.712, 10.894, 0.374)
pt3dadd(55.601, 38.593, 10.894, 0.39)
pt3dadd(55.631, 38.477, 10.894, 0.4)
pt3dadd(55.667, 38.362, 10.894, 0.404)
pt3dadd(55.702, 38.248, 10.894, 0.41)
pt3dadd(55.738, 38.133, 10.894, 0.416)
pt3dadd(55.774, 38.019, 10.894, 0.422)
pt3dadd(55.809, 37.904, 10.894, 0.428)
pt3dadd(55.845, 37.79, 10.894, 0.434)
pt3dadd(55.881, 37.675, 10.894, 0.44)
pt3dadd(55.916, 37.56, 10.894, 0.446)
pt3dadd(55.952, 37.446, 10.894, 0.452)
pt3dadd(55.989, 37.332, 10.894, 0.444)
pt3dadd(56.027, 37.218, 10.894, 0.436)
pt3dadd(56.064, 37.104, 10.894, 0.428)
pt3dadd(56.102, 36.99, 10.894, 0.42)
pt3dadd(56.14, 36.876, 10.894, 0.412)
pt3dadd(56.177, 36.762, 10.894, 0.404)
pt3dadd(56.215, 36.648, 10.894, 0.396)
pt3dadd(56.252, 36.534, 10.894, 0.386)
pt3dadd(56.29, 36.42, 10.894, 0.378)
pt3dadd(56.328, 36.306, 10.894, 0.37)
pt3dadd(56.354, 36.189, 10.894, 0.364)
pt3dadd(56.379, 36.072, 10.894, 0.36)
pt3dadd(56.404, 35.954, 10.894, 0.354)
pt3dadd(56.429, 35.837, 10.894, 0.35)
pt3dadd(56.454, 35.72, 10.894, 0.344)
pt3dadd(56.478, 35.602, 10.894, 0.338)
pt3dadd(56.503, 35.485, 10.894, 0.334)
pt3dadd(56.528, 35.367, 10.894, 0.328)
pt3dadd(56.553, 35.25, 10.894, 0.324)
pt3dadd(56.578, 35.133, 10.894, 0.318)
pt3dadd(56.592, 35.013, 10.894, 0.348)
pt3dadd(56.604, 34.894, 10.894, 0.384)
pt3dadd(56.615, 34.775, 10.894, 0.418)
pt3dadd(56.627, 34.655, 10.894, 0.452)
pt3dadd(56.639, 34.536, 10.894, 0.488)
pt3dadd(56.651, 34.416, 10.894, 0.522)
pt3dadd(56.663, 34.297, 10.894, 0.558)
pt3dadd(56.675, 34.178, 10.895, 0.592)
pt3dadd(56.687, 34.058, 10.895, 0.626)
pt3dadd(56.699, 33.939, 10.895, 0.662)
pt3dadd(56.7, 33.819, 10.895, 0.648)
pt3dadd(56.699, 33.699, 10.895, 0.63)
pt3dadd(56.698, 33.579, 10.895, 0.61)
pt3dadd(56.697, 33.459, 10.895, 0.59)
pt3dadd(56.696, 33.339, 10.895, 0.572)
pt3dadd(56.695, 33.219, 10.895, 0.552)
pt3dadd(56.694, 33.099, 10.895, 0.532)
pt3dadd(56.693, 32.979, 10.895, 0.514)
pt3dadd(56.692, 32.859, 10.895, 0.494)
pt3dadd(56.691, 32.739, 10.895, 0.474)
pt3dadd(56.689, 32.619, 10.895, 0.456)
pt3dadd(56.687, 32.499, 10.896, 0.436)
pt3dadd(56.685, 32.379, 10.896, 0.416)
pt3dadd(56.683, 32.259, 10.896, 0.398)
pt3dadd(56.681, 32.139, 10.896, 0.378)
pt3dadd(56.679, 32.019, 10.896, 0.358)
pt3dadd(56.677, 31.899, 10.896, 0.338)
pt3dadd(56.675, 31.779, 10.896, 0.32)
pt3dadd(56.673, 31.659, 10.896, 0.3)
pt3dadd(56.67, 31.539, 10.897, 0.28)
pt3dadd(56.667, 31.419, 10.897, 0.274)
pt3dadd(56.663, 31.299, 10.897, 0.268)
pt3dadd(56.659, 31.179, 10.898, 0.264)
pt3dadd(56.655, 31.059, 10.898, 0.258)
pt3dadd(56.652, 30.939, 10.898, 0.252)
pt3dadd(56.648, 30.819, 10.898, 0.248)
pt3dadd(56.644, 30.699, 10.899, 0.242)
pt3dadd(56.64, 30.579, 10.899, 0.238)
pt3dadd(56.636, 30.46, 10.899, 0.232)
pt3dadd(56.632, 30.34, 10.899, 0.226)
pt3dadd(56.625, 30.22, 10.9, 0.226)
pt3dadd(56.617, 30.1, 10.9, 0.226)
pt3dadd(56.609, 29.98, 10.901, 0.226)
pt3dadd(56.601, 29.861, 10.901, 0.226)
pt3dadd(56.592, 29.741, 10.902, 0.226)
pt3dadd(56.584, 29.621, 10.903, 0.226)
pt3dadd(56.576, 29.502, 10.903, 0.226)
pt3dadd(56.568, 29.382, 10.904, 0.226)
pt3dadd(56.56, 29.262, 10.904, 0.226)
pt3dadd(56.552, 29.142, 10.905, 0.226)
pt3dadd(56.539, 29.023, 10.906, 0.234)
pt3dadd(56.525, 28.904, 10.907, 0.242)
pt3dadd(56.511, 28.785, 10.908, 0.25)
pt3dadd(56.496, 28.666, 10.909, 0.258)
pt3dadd(56.482, 28.547, 10.91, 0.266)
pt3dadd(56.468, 28.427, 10.911, 0.274)
pt3dadd(56.454, 28.308, 10.912, 0.282)
pt3dadd(56.44, 28.189, 10.913, 0.29)
pt3dadd(56.426, 28.07, 10.914, 0.298)
pt3dadd(56.412, 27.951, 10.915, 0.306)
pt3dadd(56.384, 27.834, 10.917, 0.32)
pt3dadd(56.355, 27.718, 10.919, 0.334)
pt3dadd(56.325, 27.601, 10.92, 0.35)
pt3dadd(56.296, 27.485, 10.922, 0.364)
pt3dadd(56.267, 27.369, 10.924, 0.378)
pt3dadd(56.238, 27.252, 10.926, 0.394)
pt3dadd(56.208, 27.136, 10.928, 0.408)
pt3dadd(56.179, 27.02, 10.93, 0.422)
pt3dadd(56.15, 26.903, 10.932, 0.438)
pt3dadd(56.121, 26.787, 10.934, 0.452)
pt3dadd(56.065, 26.681, 10.937, 0.452)
pt3dadd(56.008, 26.575, 10.94, 0.45)
pt3dadd(55.952, 26.469, 10.943, 0.45)
pt3dadd(55.896, 26.363, 10.946, 0.448)
pt3dadd(55.84, 26.257, 10.95, 0.448)
pt3dadd(55.784, 26.151, 10.953, 0.446)
pt3dadd(55.728, 26.045, 10.956, 0.446)
pt3dadd(55.672, 25.939, 10.959, 0.444)
pt3dadd(55.615, 25.833, 10.962, 0.444)
pt3dadd(55.559, 25.727, 10.965, 0.444)
pt3dadd(55.507, 25.619, 10.973, 0.422)
pt3dadd(55.455, 25.512, 10.981, 0.402)
pt3dadd(55.403, 25.404, 10.989, 0.382)
pt3dadd(55.351, 25.296, 10.997, 0.36)
pt3dadd(55.299, 25.188, 11.005, 0.34)
pt3dadd(55.247, 25.081, 11.013, 0.318)
pt3dadd(55.195, 24.973, 11.021, 0.298)
pt3dadd(55.143, 24.865, 11.029, 0.278)
pt3dadd(55.091, 24.758, 11.036, 0.256)
pt3dadd(55.039, 24.65, 11.044, 0.236)
pt3dadd(54.958, 24.563, 11.058, 0.234)
pt3dadd(54.877, 24.475, 11.072, 0.234)
pt3dadd(54.797, 24.388, 11.086, 0.232)
pt3dadd(54.716, 24.3, 11.1, 0.232)
pt3dadd(54.636, 24.213, 11.113, 0.23)
pt3dadd(54.555, 24.126, 11.127, 0.23)
pt3dadd(54.474, 24.039, 11.141, 0.228)
pt3dadd(54.394, 23.951, 11.155, 0.228)
pt3dadd(54.313, 23.864, 11.168, 0.226)
pt3dadd(54.232, 23.778, 11.183, 0.226)
pt3dadd(54.142, 23.748, 11.244, 0.226)
pt3dadd(54.052, 23.718, 11.306, 0.226)
pt3dadd(53.962, 23.689, 11.367, 0.226)
pt3dadd(53.872, 23.659, 11.428, 0.226)
pt3dadd(53.782, 23.63, 11.49, 0.226)
pt3dadd(53.692, 23.6, 11.551, 0.226)
pt3dadd(53.602, 23.571, 11.612, 0.226)
pt3dadd(53.511, 23.541, 11.673, 0.226)
pt3dadd(53.421, 23.512, 11.735, 0.226)
pt3dadd(53.329, 23.578, 11.767, 0.226)
pt3dadd(53.237, 23.643, 11.8, 0.226)
pt3dadd(53.145, 23.709, 11.833, 0.226)
pt3dadd(53.052, 23.775, 11.866, 0.226)
pt3dadd(52.96, 23.841, 11.899, 0.226)
pt3dadd(52.868, 23.907, 11.932, 0.226)
pt3dadd(52.776, 23.973, 11.965, 0.226)
pt3dadd(52.684, 24.039, 11.998, 0.226)
pt3dadd(52.591, 24.105, 12.031, 0.226)
pt3dadd(52.499, 24.17, 12.064, 0.226)
}
apic[19] {pt3dclear()
pt3dadd(56.714, 58.451, 10.894, 0.546)
pt3dadd(56.693, 58.464, 10.894, 0.544)
pt3dadd(56.592, 58.528, 10.893, 0.532)
pt3dadd(56.49, 58.591, 10.893, 0.522)
pt3dadd(56.388, 58.655, 10.892, 0.51)
pt3dadd(56.286, 58.719, 10.891, 0.498)
pt3dadd(56.185, 58.782, 10.891, 0.486)
pt3dadd(56.083, 58.846, 10.89, 0.476)
pt3dadd(55.981, 58.91, 10.889, 0.464)
pt3dadd(55.88, 58.973, 10.889, 0.452)
pt3dadd(55.777, 58.946, 10.843, 0.452)
pt3dadd(55.673, 58.92, 10.797, 0.452)
pt3dadd(55.566, 58.92, 10.752, 0.452)
pt3dadd(55.458, 58.92, 10.708, 0.452)
pt3dadd(55.366, 58.877, 10.659, 0.452)
pt3dadd(55.276, 58.823, 10.611, 0.452)
pt3dadd(55.197, 58.733, 10.602, 0.452)
pt3dadd(55.104, 58.659, 10.6, 0.452)
pt3dadd(55.005, 58.591, 10.6, 0.452)
pt3dadd(54.917, 58.51, 10.597, 0.452)
pt3dadd(54.84, 58.419, 10.592, 0.452)
pt3dadd(54.779, 58.324, 10.568, 0.452)
pt3dadd(54.736, 58.224, 10.526, 0.452)
pt3dadd(54.72, 58.111, 10.509, 0.452)
pt3dadd(54.72, 57.991, 10.505, 0.452)
pt3dadd(54.72, 57.871, 10.501, 0.452)
pt3dadd(54.72, 57.751, 10.5, 0.452)
pt3dadd(54.72, 57.631, 10.5, 0.452)
pt3dadd(54.703, 57.514, 10.486, 0.452)
pt3dadd(54.68, 57.399, 10.467, 0.452)
pt3dadd(54.657, 57.284, 10.447, 0.452)
pt3dadd(54.634, 57.168, 10.428, 0.452)
pt3dadd(54.611, 57.053, 10.409, 0.452)
}
}
proc shape3d_79() {
apic[19] { pt3dadd(54.596, 56.936, 10.391, 0.452)
pt3dadd(54.589, 56.818, 10.373, 0.452)
pt3dadd(54.582, 56.7, 10.356, 0.452)
pt3dadd(54.575, 56.582, 10.339, 0.452)
pt3dadd(54.568, 56.464, 10.321, 0.452)
pt3dadd(54.562, 56.346, 10.304, 0.452)
pt3dadd(54.543, 56.229, 10.29, 0.452)
pt3dadd(54.521, 56.112, 10.278, 0.452)
pt3dadd(54.499, 55.995, 10.266, 0.452)
pt3dadd(54.477, 55.877, 10.254, 0.452)
pt3dadd(54.455, 55.76, 10.242, 0.452)
pt3dadd(54.422, 55.647, 10.231, 0.452)
pt3dadd(54.365, 55.542, 10.224, 0.452)
pt3dadd(54.309, 55.436, 10.218, 0.452)
pt3dadd(54.252, 55.331, 10.211, 0.452)
pt3dadd(54.195, 55.225, 10.204, 0.452)
pt3dadd(54.14, 55.119, 10.2, 0.452)
pt3dadd(54.086, 55.012, 10.2, 0.452)
pt3dadd(54.032, 54.904, 10.2, 0.452)
pt3dadd(53.979, 54.797, 10.2, 0.452)
pt3dadd(53.925, 54.69, 10.2, 0.452)
pt3dadd(53.87, 54.583, 10.2, 0.452)
pt3dadd(53.809, 54.48, 10.2, 0.452)
pt3dadd(53.748, 54.376, 10.2, 0.452)
pt3dadd(53.651, 54.307, 10.2, 0.452)
pt3dadd(53.552, 54.239, 10.2, 0.452)
pt3dadd(53.441, 54.194, 10.2, 0.452)
pt3dadd(53.328, 54.155, 10.2, 0.452)
pt3dadd(53.212, 54.131, 10.194, 0.452)
pt3dadd(53.093, 54.126, 10.181, 0.452)
pt3dadd(52.974, 54.121, 10.168, 0.452)
pt3dadd(52.863, 54.112, 10.133, 0.452)
pt3dadd(52.753, 54.09, 10.101, 0.452)
pt3dadd(52.643, 54.05, 10.078, 0.452)
pt3dadd(52.533, 54.011, 10.054, 0.452)
pt3dadd(52.423, 53.971, 10.031, 0.452)
pt3dadd(52.314, 53.932, 10.007, 0.452)
pt3dadd(52.203, 53.896, 9.98, 0.452)
pt3dadd(52.093, 53.863, 9.952, 0.452)
pt3dadd(51.983, 53.829, 9.924, 0.452)
pt3dadd(51.873, 53.795, 9.896, 0.452)
pt3dadd(51.763, 53.761, 9.868, 0.452)
pt3dadd(51.711, 53.663, 9.832, 0.452)
pt3dadd(51.656, 53.568, 9.796, 0.452)
pt3dadd(51.556, 53.518, 9.76, 0.452)
pt3dadd(51.455, 53.47, 9.725, 0.452)
pt3dadd(51.35, 53.428, 9.69, 0.452)
pt3dadd(51.245, 53.4, 9.652, 0.452)
pt3dadd(51.137, 53.4, 9.607, 0.452)
pt3dadd(51.031, 53.4, 9.561, 0.452)
pt3dadd(50.938, 53.4, 9.498, 0.452)
pt3dadd(50.839, 53.398, 9.442, 0.452)
pt3dadd(50.737, 53.396, 9.389, 0.452)
pt3dadd(50.636, 53.393, 9.335, 0.452)
pt3dadd(50.534, 53.39, 9.282, 0.452)
pt3dadd(50.433, 53.388, 9.229, 0.452)
pt3dadd(50.341, 53.35, 9.177, 0.452)
pt3dadd(50.254, 53.295, 9.125, 0.452)
pt3dadd(50.167, 53.24, 9.074, 0.452)
pt3dadd(50.079, 53.185, 9.023, 0.452)
pt3dadd(49.987, 53.125, 8.986, 0.452)
pt3dadd(49.89, 53.061, 8.961, 0.452)
pt3dadd(49.793, 52.998, 8.936, 0.452)
pt3dadd(49.695, 52.934, 8.91, 0.452)
pt3dadd(49.595, 52.878, 8.886, 0.452)
pt3dadd(49.478, 52.866, 8.87, 0.452)
pt3dadd(49.36, 52.854, 8.854, 0.452)
pt3dadd(49.242, 52.841, 8.837, 0.452)
pt3dadd(49.124, 52.829, 8.821, 0.452)
pt3dadd(49.007, 52.817, 8.805, 0.452)
pt3dadd(48.892, 52.842, 8.8, 0.452)
pt3dadd(48.779, 52.881, 8.8, 0.452)
pt3dadd(48.663, 52.908, 8.8, 0.452)
pt3dadd(48.543, 52.913, 8.8, 0.452)
pt3dadd(48.423, 52.918, 8.8, 0.452)
pt3dadd(48.303, 52.92, 8.8, 0.452)
pt3dadd(48.183, 52.92, 8.8, 0.452)
pt3dadd(48.063, 52.92, 8.8, 0.452)
pt3dadd(47.951, 52.92, 8.776, 0.452)
pt3dadd(47.848, 52.92, 8.725, 0.452)
pt3dadd(47.764, 52.92, 8.662, 0.452)
pt3dadd(47.731, 52.92, 8.566, 0.452)
pt3dadd(47.647, 52.903, 8.51, 0.452)
pt3dadd(47.538, 52.878, 8.475, 0.452)
pt3dadd(47.428, 52.853, 8.44, 0.452)
pt3dadd(47.319, 52.827, 8.405, 0.452)
pt3dadd(47.209, 52.802, 8.37, 0.452)
pt3dadd(47.095, 52.776, 8.349, 0.452)
pt3dadd(46.98, 52.75, 8.329, 0.452)
pt3dadd(46.866, 52.724, 8.31, 0.452)
pt3dadd(46.751, 52.698, 8.29, 0.452)
pt3dadd(46.636, 52.672, 8.271, 0.452)
pt3dadd(46.53, 52.621, 8.255, 0.452)
pt3dadd(46.425, 52.565, 8.241, 0.452)
pt3dadd(46.321, 52.509, 8.227, 0.452)
pt3dadd(46.216, 52.452, 8.213, 0.452)
pt3dadd(46.113, 52.394, 8.2, 0.452)
pt3dadd(46.023, 52.314, 8.198, 0.452)
pt3dadd(45.933, 52.235, 8.195, 0.452)
pt3dadd(45.842, 52.156, 8.193, 0.452)
pt3dadd(45.752, 52.077, 8.191, 0.452)
pt3dadd(45.669, 51.996, 8.18, 0.452)
pt3dadd(45.611, 51.906, 8.134, 0.452)
pt3dadd(45.553, 51.816, 8.089, 0.452)
pt3dadd(45.495, 51.726, 8.043, 0.452)
pt3dadd(45.436, 51.637, 7.999, 0.452)
pt3dadd(45.339, 51.571, 7.976, 0.452)
pt3dadd(45.243, 51.505, 7.954, 0.452)
pt3dadd(45.147, 51.438, 7.931, 0.452)
pt3dadd(45.05, 51.372, 7.909, 0.452)
pt3dadd(44.941, 51.331, 7.9, 0.452)
pt3dadd(44.824, 51.307, 7.9, 0.452)
pt3dadd(44.706, 51.282, 7.9, 0.452)
pt3dadd(44.589, 51.257, 7.9, 0.452)
pt3dadd(44.471, 51.232, 7.9, 0.452)
pt3dadd(44.354, 51.207, 7.9, 0.452)
pt3dadd(44.242, 51.167, 7.91, 0.452)
pt3dadd(44.133, 51.12, 7.923, 0.452)
pt3dadd(44.024, 51.074, 7.937, 0.452)
pt3dadd(43.914, 51.027, 7.951, 0.452)
pt3dadd(43.805, 50.981, 7.964, 0.452)
pt3dadd(43.702, 50.922, 7.982, 0.452)
pt3dadd(43.602, 50.861, 8, 0.452)
pt3dadd(43.501, 50.8, 8.018, 0.452)
pt3dadd(43.399, 50.741, 8.031, 0.452)
pt3dadd(43.289, 50.695, 8.015, 0.452)
pt3dadd(43.179, 50.652, 7.998, 0.452)
pt3dadd(43.069, 50.626, 7.965, 0.452)
pt3dadd(42.959, 50.599, 7.933, 0.452)
pt3dadd(42.875, 50.515, 7.916, 0.452)
pt3dadd(42.791, 50.432, 7.9, 0.452)
pt3dadd(42.703, 50.35, 7.9, 0.452)
pt3dadd(42.615, 50.269, 7.9, 0.452)
pt3dadd(42.571, 50.157, 7.9, 0.452)
pt3dadd(42.503, 50.069, 7.891, 0.452)
pt3dadd(42.4, 50.014, 7.868, 0.452)
pt3dadd(42.297, 49.958, 7.846, 0.452)
pt3dadd(42.194, 49.902, 7.824, 0.452)
pt3dadd(42.091, 49.846, 7.802, 0.452)
pt3dadd(42.016, 49.754, 7.8, 0.452)
pt3dadd(41.944, 49.658, 7.8, 0.452)
pt3dadd(41.872, 49.562, 7.8, 0.452)
pt3dadd(41.8, 49.466, 7.8, 0.452)
pt3dadd(41.728, 49.37, 7.8, 0.452)
pt3dadd(41.685, 49.259, 7.8, 0.452)
pt3dadd(41.645, 49.146, 7.8, 0.452)
pt3dadd(41.59, 49.04, 7.8, 0.452)
pt3dadd(41.522, 48.941, 7.8, 0.452)
pt3dadd(41.439, 48.86, 7.8, 0.452)
pt3dadd(41.332, 48.806, 7.8, 0.452)
pt3dadd(41.223, 48.758, 7.8, 0.452)
pt3dadd(41.104, 48.743, 7.8, 0.452)
pt3dadd(40.985, 48.728, 7.8, 0.452)
pt3dadd(40.869, 48.699, 7.8, 0.452)
pt3dadd(40.758, 48.654, 7.8, 0.452)
pt3dadd(40.647, 48.609, 7.8, 0.452)
pt3dadd(40.536, 48.564, 7.8, 0.452)
pt3dadd(40.465, 48.478, 7.8, 0.452)
pt3dadd(40.418, 48.368, 7.8, 0.452)
pt3dadd(40.356, 48.269, 7.8, 0.452)
pt3dadd(40.262, 48.195, 7.799, 0.452)
pt3dadd(40.167, 48.122, 7.796, 0.452)
pt3dadd(40.072, 48.048, 7.794, 0.452)
pt3dadd(39.977, 47.975, 7.792, 0.452)
pt3dadd(39.882, 47.902, 7.79, 0.452)
pt3dadd(39.785, 47.845, 7.76, 0.452)
pt3dadd(39.688, 47.795, 7.718, 0.452)
pt3dadd(39.591, 47.745, 7.676, 0.452)
pt3dadd(39.495, 47.695, 7.635, 0.452)
pt3dadd(39.402, 47.638, 7.592, 0.452)
pt3dadd(39.315, 47.574, 7.549, 0.452)
pt3dadd(39.228, 47.509, 7.506, 0.452)
pt3dadd(39.141, 47.445, 7.463, 0.452)
pt3dadd(39.06, 47.374, 7.421, 0.452)
pt3dadd(38.992, 47.287, 7.381, 0.452)
pt3dadd(38.925, 47.2, 7.341, 0.452)
pt3dadd(38.857, 47.114, 7.301, 0.452)
pt3dadd(38.787, 47.029, 7.261, 0.452)
pt3dadd(38.7, 46.959, 7.224, 0.452)
pt3dadd(38.614, 46.889, 7.186, 0.452)
pt3dadd(38.528, 46.818, 7.149, 0.452)
pt3dadd(38.442, 46.748, 7.112, 0.452)
pt3dadd(38.423, 46.632, 7.092, 0.452)
pt3dadd(38.405, 46.516, 7.073, 0.452)
pt3dadd(38.38, 46.426, 7.017, 0.452)
pt3dadd(38.352, 46.347, 6.946, 0.452)
pt3dadd(38.25, 46.314, 6.921, 0.452)
pt3dadd(38.134, 46.291, 6.907, 0.452)
pt3dadd(38.021, 46.256, 6.891, 0.452)
pt3dadd(37.912, 46.211, 6.875, 0.452)
pt3dadd(37.816, 46.155, 6.844, 0.452)
pt3dadd(37.735, 46.087, 6.796, 0.452)
pt3dadd(37.654, 46.022, 6.747, 0.452)
pt3dadd(37.572, 45.956, 6.698, 0.452)
pt3dadd(37.49, 45.891, 6.649, 0.452)
pt3dadd(37.406, 45.834, 6.598, 0.452)
pt3dadd(37.314, 45.805, 6.539, 0.452)
pt3dadd(37.244, 45.749, 6.489, 0.452)
pt3dadd(37.218, 45.638, 6.456, 0.452)
pt3dadd(37.2, 45.525, 6.43, 0.452)
}
}
proc shape3d_80() {
apic[19] { pt3dadd(37.2, 45.406, 6.417, 0.452)
pt3dadd(37.2, 45.287, 6.405, 0.452)
pt3dadd(37.188, 45.174, 6.423, 0.452)
pt3dadd(37.169, 45.064, 6.46, 0.452)
pt3dadd(37.107, 44.988, 6.499, 0.452)
pt3dadd(37.008, 44.94, 6.539, 0.452)
pt3dadd(36.908, 44.893, 6.578, 0.452)
pt3dadd(36.802, 44.849, 6.6, 0.452)
pt3dadd(36.689, 44.809, 6.6, 0.452)
pt3dadd(36.576, 44.77, 6.6, 0.452)
pt3dadd(36.467, 44.724, 6.6, 0.452)
pt3dadd(36.376, 44.646, 6.6, 0.452)
pt3dadd(36.285, 44.569, 6.6, 0.452)
pt3dadd(36.193, 44.491, 6.6, 0.452)
pt3dadd(36.102, 44.413, 6.6, 0.452)
pt3dadd(36.015, 44.331, 6.598, 0.452)
pt3dadd(35.937, 44.24, 6.593, 0.452)
pt3dadd(35.856, 44.157, 6.577, 0.452)
pt3dadd(35.766, 44.097, 6.533, 0.452)
pt3dadd(35.682, 44.022, 6.509, 0.452)
pt3dadd(35.604, 43.931, 6.503, 0.452)
pt3dadd(35.553, 43.828, 6.5, 0.452)
pt3dadd(35.539, 43.709, 6.5, 0.452)
pt3dadd(35.524, 43.59, 6.5, 0.452)
pt3dadd(35.56, 43.48, 6.5, 0.452)
pt3dadd(35.614, 43.372, 6.5, 0.452)
pt3dadd(35.692, 43.289, 6.509, 0.452)
pt3dadd(35.777, 43.229, 6.552, 0.452)
pt3dadd(35.84, 43.2, 6.633, 0.452)
pt3dadd(35.87, 43.2, 6.73, 0.452)
pt3dadd(35.88, 43.2, 6.83, 0.452)
pt3dadd(35.88, 43.204, 6.929, 0.452)
pt3dadd(35.88, 43.235, 7.025, 0.452)
pt3dadd(35.88, 43.321, 7.089, 0.452)
pt3dadd(35.88, 43.44, 7.1, 0.452)
}
apic[20] {pt3dclear()
pt3dadd(81.65, 114.346, 10.845, 2.1)
pt3dadd(81.576, 114.324, 10.848, 2.064)
pt3dadd(81.461, 114.291, 10.853, 2.01)
pt3dadd(81.345, 114.258, 10.858, 1.954)
pt3dadd(81.23, 114.225, 10.863, 1.898)
pt3dadd(81.115, 114.192, 10.868, 1.844)
pt3dadd(81, 114.159, 10.872, 1.788)
pt3dadd(80.885, 114.127, 10.877, 1.732)
pt3dadd(80.769, 114.094, 10.882, 1.678)
pt3dadd(80.654, 114.061, 10.887, 1.622)
pt3dadd(80.539, 114.028, 10.892, 1.566)
pt3dadd(80.421, 114.013, 10.893, 1.514)
pt3dadd(80.301, 114.007, 10.893, 1.462)
pt3dadd(80.181, 114.001, 10.893, 1.41)
pt3dadd(80.061, 113.995, 10.892, 1.356)
pt3dadd(79.941, 113.989, 10.892, 1.304)
pt3dadd(79.821, 113.983, 10.892, 1.252)
pt3dadd(79.701, 113.977, 10.892, 1.2)
pt3dadd(79.582, 113.971, 10.891, 1.148)
pt3dadd(79.462, 113.965, 10.891, 1.096)
pt3dadd(79.342, 113.959, 10.891, 1.044)
pt3dadd(79.222, 113.951, 10.89, 1.018)
pt3dadd(79.103, 113.942, 10.89, 1.006)
pt3dadd(78.983, 113.933, 10.889, 0.994)
pt3dadd(78.863, 113.924, 10.889, 0.982)
pt3dadd(78.744, 113.915, 10.888, 0.97)
pt3dadd(78.624, 113.907, 10.888, 0.956)
pt3dadd(78.504, 113.898, 10.887, 0.944)
pt3dadd(78.384, 113.889, 10.887, 0.932)
pt3dadd(78.265, 113.88, 10.886, 0.92)
pt3dadd(78.145, 113.871, 10.886, 0.908)
pt3dadd(78.026, 113.859, 10.885, 0.922)
pt3dadd(77.906, 113.846, 10.885, 0.95)
pt3dadd(77.787, 113.833, 10.884, 0.978)
pt3dadd(77.668, 113.82, 10.883, 1.006)
pt3dadd(77.549, 113.808, 10.882, 1.034)
pt3dadd(77.429, 113.795, 10.881, 1.062)
pt3dadd(77.31, 113.782, 10.88, 1.09)
pt3dadd(77.191, 113.769, 10.88, 1.118)
pt3dadd(77.071, 113.756, 10.879, 1.146)
pt3dadd(76.952, 113.743, 10.878, 1.174)
pt3dadd(76.835, 113.717, 10.877, 1.202)
pt3dadd(76.72, 113.685, 10.875, 1.23)
pt3dadd(76.604, 113.653, 10.874, 1.258)
pt3dadd(76.488, 113.622, 10.872, 1.284)
pt3dadd(76.372, 113.59, 10.871, 1.312)
pt3dadd(76.257, 113.558, 10.869, 1.34)
pt3dadd(76.141, 113.526, 10.868, 1.368)
pt3dadd(76.025, 113.494, 10.866, 1.394)
pt3dadd(75.91, 113.462, 10.865, 1.422)
pt3dadd(75.794, 113.431, 10.863, 1.45)
pt3dadd(75.681, 113.392, 10.861, 1.456)
pt3dadd(75.568, 113.35, 10.858, 1.458)
pt3dadd(75.455, 113.309, 10.856, 1.458)
pt3dadd(75.343, 113.268, 10.853, 1.46)
pt3dadd(75.23, 113.227, 10.851, 1.46)
pt3dadd(75.117, 113.186, 10.848, 1.462)
pt3dadd(75.005, 113.144, 10.845, 1.462)
pt3dadd(74.892, 113.103, 10.843, 1.464)
pt3dadd(74.779, 113.062, 10.84, 1.464)
pt3dadd(74.667, 113.021, 10.837, 1.466)
pt3dadd(74.551, 112.989, 10.833, 1.442)
pt3dadd(74.435, 112.959, 10.828, 1.41)
pt3dadd(74.319, 112.93, 10.823, 1.38)
pt3dadd(74.203, 112.901, 10.818, 1.348)
pt3dadd(74.086, 112.872, 10.813, 1.318)
pt3dadd(73.97, 112.843, 10.808, 1.286)
pt3dadd(73.854, 112.814, 10.803, 1.254)
pt3dadd(73.738, 112.784, 10.798, 1.224)
pt3dadd(73.621, 112.755, 10.793, 1.192)
pt3dadd(73.505, 112.726, 10.788, 1.162)
pt3dadd(73.387, 112.706, 10.779, 1.17)
pt3dadd(73.269, 112.689, 10.769, 1.19)
pt3dadd(73.151, 112.672, 10.758, 1.21)
pt3dadd(73.033, 112.655, 10.748, 1.232)
pt3dadd(72.915, 112.638, 10.738, 1.252)
pt3dadd(72.797, 112.621, 10.727, 1.272)
pt3dadd(72.679, 112.604, 10.717, 1.292)
pt3dadd(72.561, 112.587, 10.707, 1.312)
pt3dadd(72.442, 112.57, 10.696, 1.332)
pt3dadd(72.324, 112.553, 10.686, 1.352)
pt3dadd(72.234, 112.552, 10.741, 1.346)
pt3dadd(72.153, 112.556, 10.814, 1.334)
pt3dadd(72.071, 112.559, 10.887, 1.322)
pt3dadd(71.989, 112.563, 10.96, 1.31)
pt3dadd(71.907, 112.567, 11.033, 1.298)
pt3dadd(71.825, 112.57, 11.106, 1.286)
pt3dadd(71.743, 112.574, 11.179, 1.274)
pt3dadd(71.661, 112.577, 11.252, 1.262)
pt3dadd(71.579, 112.581, 11.325, 1.25)
pt3dadd(71.497, 112.584, 11.398, 1.238)
pt3dadd(71.415, 112.588, 11.471, 1.226)
pt3dadd(71.333, 112.591, 11.544, 1.214)
pt3dadd(71.251, 112.595, 11.617, 1.202)
pt3dadd(71.169, 112.598, 11.69, 1.192)
pt3dadd(71.088, 112.602, 11.763, 1.18)
pt3dadd(71.006, 112.605, 11.836, 1.168)
pt3dadd(70.908, 112.607, 11.889, 1.146)
pt3dadd(70.795, 112.608, 11.923, 1.116)
pt3dadd(70.682, 112.61, 11.956, 1.088)
pt3dadd(70.569, 112.611, 11.99, 1.058)
pt3dadd(70.456, 112.612, 12.024, 1.028)
pt3dadd(70.343, 112.613, 12.057, 0.998)
pt3dadd(70.23, 112.614, 12.091, 0.97)
pt3dadd(70.117, 112.615, 12.125, 0.94)
pt3dadd(70.004, 112.616, 12.158, 0.91)
pt3dadd(69.891, 112.617, 12.192, 0.88)
pt3dadd(69.774, 112.618, 12.213, 0.852)
pt3dadd(69.656, 112.618, 12.233, 0.822)
pt3dadd(69.538, 112.618, 12.253, 0.794)
pt3dadd(69.421, 112.618, 12.273, 0.766)
pt3dadd(69.303, 112.618, 12.293, 0.736)
pt3dadd(69.186, 112.618, 12.314, 0.708)
pt3dadd(69.068, 112.618, 12.334, 0.68)
pt3dadd(68.951, 112.618, 12.354, 0.65)
pt3dadd(68.833, 112.618, 12.374, 0.622)
pt3dadd(68.715, 112.618, 12.394, 0.592)
pt3dadd(68.602, 112.618, 12.425, 0.572)
pt3dadd(68.488, 112.618, 12.458, 0.552)
pt3dadd(68.375, 112.618, 12.49, 0.532)
pt3dadd(68.261, 112.618, 12.523, 0.512)
pt3dadd(68.148, 112.618, 12.556, 0.492)
pt3dadd(68.035, 112.618, 12.589, 0.474)
pt3dadd(67.921, 112.618, 12.621, 0.454)
pt3dadd(67.808, 112.619, 12.654, 0.434)
pt3dadd(67.694, 112.619, 12.686, 0.414)
pt3dadd(67.581, 112.619, 12.719, 0.394)
pt3dadd(67.477, 112.619, 12.768, 0.378)
pt3dadd(67.372, 112.619, 12.818, 0.36)
pt3dadd(67.268, 112.619, 12.868, 0.344)
pt3dadd(67.164, 112.619, 12.917, 0.326)
pt3dadd(67.06, 112.619, 12.967, 0.31)
pt3dadd(66.955, 112.62, 13.016, 0.294)
pt3dadd(66.851, 112.62, 13.066, 0.276)
pt3dadd(66.747, 112.62, 13.115, 0.26)
pt3dadd(66.643, 112.62, 13.165, 0.242)
pt3dadd(66.538, 112.62, 13.214, 0.226)
}
apic[21] {pt3dclear()
pt3dadd(66.538, 112.62, 13.214, 0.226)
pt3dadd(66.531, 112.62, 13.219, 0.226)
pt3dadd(66.436, 112.62, 13.28, 0.226)
pt3dadd(66.341, 112.621, 13.34, 0.226)
pt3dadd(66.246, 112.621, 13.401, 0.226)
pt3dadd(66.151, 112.622, 13.462, 0.226)
pt3dadd(66.056, 112.622, 13.523, 0.226)
pt3dadd(65.961, 112.622, 13.584, 0.226)
pt3dadd(65.866, 112.623, 13.645, 0.226)
pt3dadd(65.771, 112.623, 13.706, 0.226)
pt3dadd(65.675, 112.623, 13.767, 0.226)
pt3dadd(65.578, 112.624, 13.825, 0.236)
pt3dadd(65.479, 112.624, 13.882, 0.252)
pt3dadd(65.38, 112.625, 13.938, 0.266)
pt3dadd(65.28, 112.625, 13.994, 0.282)
pt3dadd(65.181, 112.626, 14.051, 0.298)
pt3dadd(65.082, 112.626, 14.107, 0.314)
pt3dadd(64.983, 112.627, 14.163, 0.33)
pt3dadd(64.884, 112.627, 14.22, 0.346)
pt3dadd(64.785, 112.628, 14.276, 0.36)
pt3dadd(64.686, 112.628, 14.333, 0.376)
pt3dadd(64.584, 112.629, 14.386, 0.402)
pt3dadd(64.482, 112.63, 14.438, 0.434)
pt3dadd(64.379, 112.631, 14.49, 0.464)
pt3dadd(64.277, 112.631, 14.542, 0.496)
pt3dadd(64.174, 112.632, 14.594, 0.528)
pt3dadd(64.072, 112.633, 14.646, 0.558)
pt3dadd(63.969, 112.634, 14.698, 0.59)
}
}
proc shape3d_81() {
apic[21] { pt3dadd(63.866, 112.635, 14.749, 0.622)
pt3dadd(63.764, 112.636, 14.801, 0.652)
pt3dadd(63.661, 112.637, 14.853, 0.684)
pt3dadd(63.563, 112.638, 14.91, 0.706)
pt3dadd(63.466, 112.64, 14.969, 0.72)
pt3dadd(63.369, 112.641, 15.029, 0.736)
pt3dadd(63.273, 112.643, 15.088, 0.752)
pt3dadd(63.176, 112.645, 15.147, 0.768)
pt3dadd(63.08, 112.646, 15.207, 0.782)
pt3dadd(62.983, 112.648, 15.266, 0.798)
pt3dadd(62.886, 112.65, 15.325, 0.814)
pt3dadd(62.79, 112.651, 15.384, 0.83)
pt3dadd(62.693, 112.653, 15.444, 0.846)
pt3dadd(62.599, 112.655, 15.505, 0.854)
pt3dadd(62.506, 112.658, 15.569, 0.86)
pt3dadd(62.413, 112.66, 15.632, 0.864)
pt3dadd(62.32, 112.662, 15.695, 0.87)
pt3dadd(62.227, 112.665, 15.758, 0.876)
pt3dadd(62.134, 112.667, 15.821, 0.88)
pt3dadd(62.04, 112.67, 15.884, 0.886)
pt3dadd(61.947, 112.672, 15.947, 0.892)
pt3dadd(61.854, 112.674, 16.01, 0.896)
pt3dadd(61.761, 112.677, 16.073, 0.902)
pt3dadd(61.67, 112.68, 16.138, 0.904)
pt3dadd(61.579, 112.683, 16.203, 0.904)
pt3dadd(61.488, 112.687, 16.268, 0.904)
pt3dadd(61.397, 112.69, 16.334, 0.904)
pt3dadd(61.307, 112.694, 16.399, 0.904)
pt3dadd(61.216, 112.697, 16.465, 0.904)
pt3dadd(61.125, 112.701, 16.53, 0.904)
pt3dadd(61.034, 112.704, 16.595, 0.904)
pt3dadd(60.943, 112.708, 16.66, 0.904)
pt3dadd(60.853, 112.711, 16.726, 0.904)
pt3dadd(60.763, 112.717, 16.793, 0.904)
pt3dadd(60.675, 112.724, 16.86, 0.904)
pt3dadd(60.587, 112.731, 16.928, 0.904)
pt3dadd(60.499, 112.737, 16.995, 0.904)
pt3dadd(60.411, 112.744, 17.063, 0.904)
pt3dadd(60.323, 112.751, 17.131, 0.904)
pt3dadd(60.235, 112.758, 17.198, 0.904)
pt3dadd(60.147, 112.765, 17.266, 0.904)
pt3dadd(60.058, 112.772, 17.334, 0.904)
pt3dadd(59.97, 112.778, 17.401, 0.904)
pt3dadd(59.881, 112.787, 17.468, 0.908)
pt3dadd(59.792, 112.797, 17.534, 0.916)
pt3dadd(59.703, 112.807, 17.601, 0.924)
pt3dadd(59.613, 112.816, 17.667, 0.932)
pt3dadd(59.524, 112.826, 17.733, 0.94)
pt3dadd(59.435, 112.836, 17.799, 0.946)
pt3dadd(59.345, 112.845, 17.866, 0.954)
pt3dadd(59.256, 112.855, 17.932, 0.962)
pt3dadd(59.167, 112.865, 17.998, 0.97)
pt3dadd(59.077, 112.875, 18.064, 0.978)
pt3dadd(58.987, 112.886, 18.13, 0.99)
pt3dadd(58.897, 112.898, 18.195, 1.004)
pt3dadd(58.807, 112.911, 18.26, 1.018)
pt3dadd(58.716, 112.923, 18.325, 1.034)
pt3dadd(58.626, 112.935, 18.39, 1.048)
pt3dadd(58.536, 112.947, 18.455, 1.062)
pt3dadd(58.445, 112.959, 18.52, 1.076)
pt3dadd(58.355, 112.972, 18.585, 1.092)
pt3dadd(58.264, 112.984, 18.65, 1.106)
pt3dadd(58.174, 112.996, 18.715, 1.12)
pt3dadd(58.079, 113.028, 18.768, 1.116)
pt3dadd(57.981, 113.07, 18.814, 1.1)
pt3dadd(57.883, 113.112, 18.86, 1.086)
pt3dadd(57.786, 113.154, 18.906, 1.072)
pt3dadd(57.688, 113.196, 18.952, 1.056)
pt3dadd(57.59, 113.238, 18.998, 1.042)
pt3dadd(57.492, 113.28, 19.045, 1.026)
pt3dadd(57.394, 113.322, 19.091, 1.012)
pt3dadd(57.297, 113.364, 19.137, 0.996)
pt3dadd(57.199, 113.406, 19.183, 0.982)
pt3dadd(57.101, 113.446, 19.231, 0.978)
pt3dadd(57.004, 113.483, 19.281, 0.978)
pt3dadd(56.907, 113.521, 19.33, 0.98)
pt3dadd(56.809, 113.558, 19.379, 0.98)
pt3dadd(56.712, 113.596, 19.429, 0.982)
pt3dadd(56.615, 113.634, 19.478, 0.982)
pt3dadd(56.517, 113.671, 19.528, 0.984)
pt3dadd(56.42, 113.709, 19.577, 0.984)
pt3dadd(56.323, 113.747, 19.626, 0.986)
pt3dadd(56.225, 113.784, 19.676, 0.986)
pt3dadd(56.129, 113.818, 19.728, 0.996)
pt3dadd(56.032, 113.851, 19.781, 1.008)
pt3dadd(55.936, 113.883, 19.834, 1.018)
pt3dadd(55.839, 113.915, 19.887, 1.03)
pt3dadd(55.743, 113.948, 19.94, 1.042)
pt3dadd(55.646, 113.98, 19.993, 1.054)
pt3dadd(55.55, 114.013, 20.046, 1.066)
pt3dadd(55.453, 114.045, 20.099, 1.078)
pt3dadd(55.357, 114.077, 20.152, 1.09)
pt3dadd(55.26, 114.11, 20.205, 1.102)
pt3dadd(55.165, 114.138, 20.26, 1.084)
pt3dadd(55.069, 114.164, 20.317, 1.054)
pt3dadd(54.974, 114.191, 20.373, 1.022)
pt3dadd(54.879, 114.217, 20.43, 0.992)
pt3dadd(54.783, 114.243, 20.486, 0.96)
pt3dadd(54.688, 114.269, 20.543, 0.93)
pt3dadd(54.593, 114.296, 20.6, 0.9)
pt3dadd(54.497, 114.322, 20.656, 0.868)
pt3dadd(54.402, 114.348, 20.713, 0.838)
pt3dadd(54.306, 114.375, 20.77, 0.808)
pt3dadd(54.209, 114.411, 20.819, 0.79)
pt3dadd(54.111, 114.452, 20.865, 0.778)
pt3dadd(54.012, 114.494, 20.91, 0.766)
pt3dadd(53.914, 114.535, 20.956, 0.754)
pt3dadd(53.815, 114.576, 21.002, 0.742)
pt3dadd(53.717, 114.618, 21.048, 0.73)
pt3dadd(53.619, 114.659, 21.093, 0.716)
pt3dadd(53.52, 114.7, 21.139, 0.704)
pt3dadd(53.422, 114.742, 21.185, 0.692)
pt3dadd(53.323, 114.783, 21.23, 0.68)
pt3dadd(53.225, 114.831, 21.271, 0.68)
pt3dadd(53.126, 114.88, 21.309, 0.684)
pt3dadd(53.027, 114.93, 21.348, 0.686)
pt3dadd(52.928, 114.979, 21.386, 0.69)
pt3dadd(52.829, 115.029, 21.425, 0.692)
pt3dadd(52.73, 115.078, 21.463, 0.696)
pt3dadd(52.631, 115.128, 21.502, 0.7)
pt3dadd(52.531, 115.177, 21.541, 0.702)
pt3dadd(52.432, 115.227, 21.579, 0.706)
pt3dadd(52.333, 115.277, 21.618, 0.708)
pt3dadd(52.234, 115.323, 21.658, 0.722)
pt3dadd(52.134, 115.368, 21.698, 0.738)
pt3dadd(52.034, 115.414, 21.739, 0.754)
pt3dadd(51.934, 115.459, 21.779, 0.77)
pt3dadd(51.835, 115.505, 21.82, 0.786)
pt3dadd(51.735, 115.55, 21.861, 0.802)
pt3dadd(51.635, 115.596, 21.901, 0.818)
pt3dadd(51.535, 115.641, 21.942, 0.834)
pt3dadd(51.435, 115.687, 21.982, 0.85)
pt3dadd(51.336, 115.732, 22.023, 0.866)
pt3dadd(51.236, 115.791, 22.048, 0.844)
pt3dadd(51.137, 115.854, 22.068, 0.808)
pt3dadd(51.037, 115.917, 22.089, 0.774)
pt3dadd(50.938, 115.979, 22.11, 0.74)
pt3dadd(50.839, 116.042, 22.13, 0.704)
pt3dadd(50.739, 116.104, 22.151, 0.67)
pt3dadd(50.64, 116.167, 22.171, 0.636)
pt3dadd(50.541, 116.23, 22.192, 0.602)
pt3dadd(50.442, 116.292, 22.213, 0.566)
pt3dadd(50.342, 116.355, 22.233, 0.532)
pt3dadd(50.245, 116.423, 22.245, 0.512)
pt3dadd(50.147, 116.492, 22.254, 0.492)
pt3dadd(50.05, 116.561, 22.264, 0.474)
pt3dadd(49.952, 116.63, 22.274, 0.456)
pt3dadd(49.855, 116.7, 22.284, 0.436)
pt3dadd(49.757, 116.769, 22.293, 0.418)
pt3dadd(49.66, 116.838, 22.303, 0.4)
pt3dadd(49.563, 116.907, 22.313, 0.38)
pt3dadd(49.465, 116.976, 22.323, 0.362)
pt3dadd(49.368, 117.045, 22.333, 0.344)
pt3dadd(49.272, 117.117, 22.335, 0.368)
pt3dadd(49.177, 117.19, 22.335, 0.4)
pt3dadd(49.081, 117.263, 22.336, 0.43)
pt3dadd(48.986, 117.335, 22.337, 0.462)
pt3dadd(48.89, 117.408, 22.337, 0.494)
pt3dadd(48.795, 117.481, 22.338, 0.524)
pt3dadd(48.699, 117.553, 22.339, 0.556)
pt3dadd(48.604, 117.626, 22.34, 0.586)
pt3dadd(48.509, 117.699, 22.34, 0.618)
pt3dadd(48.413, 117.772, 22.341, 0.65)
pt3dadd(48.314, 117.831, 22.316, 0.668)
pt3dadd(48.215, 117.89, 22.287, 0.686)
pt3dadd(48.116, 117.948, 22.258, 0.704)
pt3dadd(48.017, 118.006, 22.229, 0.722)
pt3dadd(47.918, 118.064, 22.199, 0.74)
pt3dadd(47.819, 118.122, 22.17, 0.756)
pt3dadd(47.72, 118.18, 22.141, 0.774)
pt3dadd(47.621, 118.238, 22.112, 0.792)
pt3dadd(47.522, 118.296, 22.083, 0.81)
pt3dadd(47.423, 118.355, 22.054, 0.828)
pt3dadd(47.325, 118.417, 22.031, 0.844)
pt3dadd(47.226, 118.48, 22.008, 0.862)
pt3dadd(47.128, 118.544, 21.986, 0.878)
pt3dadd(47.03, 118.607, 21.963, 0.894)
pt3dadd(46.932, 118.67, 21.94, 0.912)
pt3dadd(46.833, 118.733, 21.917, 0.928)
pt3dadd(46.735, 118.796, 21.894, 0.944)
pt3dadd(46.637, 118.859, 21.872, 0.962)
pt3dadd(46.538, 118.923, 21.849, 0.978)
pt3dadd(46.44, 118.986, 21.826, 0.994)
pt3dadd(46.343, 119.055, 21.814, 1.008)
pt3dadd(46.247, 119.125, 21.802, 1.022)
pt3dadd(46.15, 119.194, 21.789, 1.036)
pt3dadd(46.053, 119.264, 21.777, 1.048)
pt3dadd(45.957, 119.334, 21.765, 1.062)
pt3dadd(45.86, 119.403, 21.753, 1.076)
pt3dadd(45.763, 119.473, 21.741, 1.09)
pt3dadd(45.667, 119.543, 21.729, 1.102)
pt3dadd(45.57, 119.612, 21.717, 1.116)
pt3dadd(45.474, 119.682, 21.705, 1.13)
pt3dadd(45.379, 119.756, 21.705, 1.13)
pt3dadd(45.285, 119.831, 21.706, 1.13)
pt3dadd(45.191, 119.905, 21.707, 1.13)
pt3dadd(45.097, 119.98, 21.708, 1.13)
pt3dadd(45.003, 120.054, 21.709, 1.13)
pt3dadd(44.909, 120.13, 21.71, 1.13)
pt3dadd(44.815, 120.204, 21.71, 1.13)
}
}
proc shape3d_82() {
apic[21] { pt3dadd(44.721, 120.278, 21.711, 1.13)
pt3dadd(44.627, 120.353, 21.712, 1.13)
pt3dadd(44.533, 120.427, 21.713, 1.13)
}
apic[22] {pt3dclear()
pt3dadd(44.533, 120.427, 21.713, 1.13)
pt3dadd(44.461, 120.485, 21.749, 1.062)
pt3dadd(44.376, 120.552, 21.791, 0.982)
pt3dadd(44.291, 120.62, 21.834, 0.902)
pt3dadd(44.206, 120.688, 21.876, 0.822)
pt3dadd(44.121, 120.756, 21.918, 0.742)
pt3dadd(44.036, 120.823, 21.961, 0.662)
pt3dadd(43.952, 120.892, 22.003, 0.582)
pt3dadd(43.867, 120.959, 22.046, 0.502)
pt3dadd(43.782, 121.027, 22.088, 0.422)
pt3dadd(43.697, 121.094, 22.131, 0.342)
pt3dadd(43.595, 121.145, 22.164, 0.328)
pt3dadd(43.494, 121.194, 22.197, 0.316)
pt3dadd(43.392, 121.243, 22.231, 0.306)
pt3dadd(43.29, 121.292, 22.264, 0.294)
pt3dadd(43.188, 121.343, 22.297, 0.282)
pt3dadd(43.086, 121.392, 22.33, 0.27)
pt3dadd(42.985, 121.441, 22.364, 0.26)
pt3dadd(42.883, 121.49, 22.397, 0.248)
pt3dadd(42.781, 121.54, 22.43, 0.238)
pt3dadd(42.679, 121.59, 22.463, 0.226)
pt3dadd(42.581, 121.656, 22.479, 0.242)
pt3dadd(42.482, 121.721, 22.495, 0.258)
pt3dadd(42.384, 121.787, 22.511, 0.274)
pt3dadd(42.285, 121.853, 22.527, 0.29)
pt3dadd(42.186, 121.919, 22.543, 0.306)
pt3dadd(42.088, 121.984, 22.559, 0.322)
pt3dadd(41.989, 122.05, 22.575, 0.338)
pt3dadd(41.891, 122.116, 22.591, 0.354)
pt3dadd(41.792, 122.182, 22.607, 0.37)
pt3dadd(41.694, 122.248, 22.623, 0.386)
pt3dadd(41.601, 122.322, 22.632, 0.404)
pt3dadd(41.507, 122.396, 22.642, 0.42)
pt3dadd(41.413, 122.471, 22.651, 0.438)
pt3dadd(41.32, 122.545, 22.661, 0.454)
pt3dadd(41.226, 122.62, 22.67, 0.47)
pt3dadd(41.133, 122.693, 22.68, 0.488)
pt3dadd(41.039, 122.767, 22.69, 0.504)
pt3dadd(40.946, 122.842, 22.699, 0.52)
pt3dadd(40.852, 122.916, 22.708, 0.538)
pt3dadd(40.759, 122.99, 22.718, 0.554)
pt3dadd(40.669, 123.07, 22.726, 0.562)
pt3dadd(40.578, 123.148, 22.734, 0.572)
pt3dadd(40.488, 123.226, 22.742, 0.582)
pt3dadd(40.398, 123.305, 22.75, 0.59)
pt3dadd(40.308, 123.383, 22.759, 0.6)
pt3dadd(40.217, 123.462, 22.767, 0.608)
pt3dadd(40.127, 123.54, 22.775, 0.618)
pt3dadd(40.037, 123.619, 22.783, 0.626)
pt3dadd(39.947, 123.697, 22.791, 0.636)
pt3dadd(39.857, 123.775, 22.799, 0.644)
pt3dadd(39.77, 123.857, 22.812, 0.628)
pt3dadd(39.683, 123.938, 22.824, 0.612)
pt3dadd(39.596, 124.02, 22.836, 0.596)
pt3dadd(39.509, 124.102, 22.848, 0.58)
pt3dadd(39.422, 124.183, 22.861, 0.564)
pt3dadd(39.335, 124.264, 22.873, 0.548)
pt3dadd(39.248, 124.345, 22.885, 0.532)
pt3dadd(39.161, 124.427, 22.897, 0.516)
pt3dadd(39.074, 124.508, 22.909, 0.5)
pt3dadd(38.987, 124.589, 22.924, 0.484)
pt3dadd(38.905, 124.656, 22.97, 0.464)
pt3dadd(38.822, 124.724, 23.015, 0.442)
pt3dadd(38.74, 124.792, 23.06, 0.422)
pt3dadd(38.657, 124.86, 23.106, 0.402)
pt3dadd(38.574, 124.927, 23.152, 0.38)
pt3dadd(38.492, 124.996, 23.197, 0.36)
pt3dadd(38.409, 125.063, 23.243, 0.338)
pt3dadd(38.327, 125.131, 23.288, 0.318)
pt3dadd(38.244, 125.198, 23.334, 0.298)
pt3dadd(38.16, 125.264, 23.379, 0.28)
pt3dadd(38.071, 125.327, 23.422, 0.274)
pt3dadd(37.982, 125.388, 23.465, 0.27)
pt3dadd(37.893, 125.45, 23.508, 0.264)
pt3dadd(37.804, 125.513, 23.551, 0.258)
pt3dadd(37.716, 125.574, 23.594, 0.252)
pt3dadd(37.627, 125.636, 23.637, 0.246)
pt3dadd(37.538, 125.698, 23.681, 0.242)
pt3dadd(37.449, 125.76, 23.724, 0.236)
pt3dadd(37.36, 125.821, 23.767, 0.23)
pt3dadd(37.269, 125.878, 23.811, 0.236)
pt3dadd(37.171, 125.916, 23.859, 0.27)
pt3dadd(37.073, 125.954, 23.908, 0.306)
pt3dadd(36.975, 125.993, 23.956, 0.34)
pt3dadd(36.877, 126.031, 24.004, 0.376)
pt3dadd(36.78, 126.07, 24.052, 0.41)
pt3dadd(36.682, 126.108, 24.1, 0.446)
pt3dadd(36.584, 126.146, 24.149, 0.48)
pt3dadd(36.486, 126.185, 24.197, 0.516)
pt3dadd(36.388, 126.223, 24.245, 0.55)
pt3dadd(36.287, 126.253, 24.292, 0.578)
pt3dadd(36.181, 126.269, 24.337, 0.596)
pt3dadd(36.075, 126.284, 24.382, 0.614)
pt3dadd(35.969, 126.3, 24.427, 0.63)
pt3dadd(35.863, 126.317, 24.472, 0.648)
pt3dadd(35.757, 126.332, 24.517, 0.666)
pt3dadd(35.652, 126.348, 24.563, 0.682)
pt3dadd(35.546, 126.365, 24.608, 0.7)
pt3dadd(35.44, 126.38, 24.653, 0.716)
pt3dadd(35.334, 126.396, 24.698, 0.734)
pt3dadd(35.224, 126.401, 24.736, 0.736)
pt3dadd(35.11, 126.395, 24.768, 0.724)
pt3dadd(34.997, 126.389, 24.8, 0.71)
pt3dadd(34.883, 126.383, 24.831, 0.698)
pt3dadd(34.77, 126.377, 24.863, 0.684)
pt3dadd(34.656, 126.371, 24.895, 0.672)
pt3dadd(34.542, 126.365, 24.927, 0.66)
pt3dadd(34.429, 126.359, 24.958, 0.646)
pt3dadd(34.315, 126.353, 24.99, 0.634)
pt3dadd(34.201, 126.347, 25.021, 0.62)
pt3dadd(34.091, 126.324, 25.054, 0.646)
pt3dadd(33.982, 126.292, 25.086, 0.694)
pt3dadd(33.873, 126.258, 25.118, 0.74)
pt3dadd(33.764, 126.226, 25.15, 0.788)
pt3dadd(33.655, 126.193, 25.182, 0.836)
pt3dadd(33.546, 126.161, 25.214, 0.884)
pt3dadd(33.438, 126.128, 25.246, 0.932)
pt3dadd(33.329, 126.096, 25.279, 0.978)
pt3dadd(33.22, 126.062, 25.311, 1.026)
pt3dadd(33.111, 126.03, 25.343, 1.074)
pt3dadd(33.011, 126.037, 25.393, 1.058)
pt3dadd(32.913, 126.055, 25.45, 1.022)
pt3dadd(32.816, 126.074, 25.506, 0.988)
pt3dadd(32.718, 126.094, 25.562, 0.952)
pt3dadd(32.62, 126.112, 25.618, 0.916)
pt3dadd(32.523, 126.131, 25.674, 0.882)
pt3dadd(32.425, 126.149, 25.73, 0.846)
pt3dadd(32.328, 126.168, 25.786, 0.812)
pt3dadd(32.23, 126.186, 25.842, 0.776)
pt3dadd(32.135, 126.217, 25.893, 0.746)
pt3dadd(32.048, 126.289, 25.926, 0.736)
pt3dadd(31.96, 126.361, 25.959, 0.726)
pt3dadd(31.873, 126.433, 25.992, 0.714)
pt3dadd(31.786, 126.506, 26.025, 0.704)
pt3dadd(31.699, 126.578, 26.058, 0.692)
pt3dadd(31.612, 126.65, 26.092, 0.682)
pt3dadd(31.524, 126.722, 26.125, 0.67)
pt3dadd(31.437, 126.794, 26.158, 0.66)
pt3dadd(31.35, 126.868, 26.191, 0.65)
pt3dadd(31.266, 126.944, 26.222, 0.656)
pt3dadd(31.189, 127.031, 26.249, 0.702)
pt3dadd(31.113, 127.117, 26.275, 0.748)
pt3dadd(31.036, 127.204, 26.302, 0.796)
pt3dadd(30.959, 127.29, 26.329, 0.842)
pt3dadd(30.882, 127.376, 26.355, 0.888)
pt3dadd(30.806, 127.463, 26.382, 0.934)
pt3dadd(30.729, 127.549, 26.408, 0.98)
pt3dadd(30.652, 127.636, 26.435, 1.028)
pt3dadd(30.575, 127.723, 26.461, 1.074)
pt3dadd(30.504, 127.808, 26.496, 1.092)
pt3dadd(30.444, 127.892, 26.546, 1.064)
pt3dadd(30.383, 127.978, 26.597, 1.034)
pt3dadd(30.323, 128.062, 26.647, 1.004)
pt3dadd(30.262, 128.147, 26.697, 0.974)
pt3dadd(30.202, 128.231, 26.747, 0.946)
pt3dadd(30.141, 128.315, 26.797, 0.916)
pt3dadd(30.081, 128.4, 26.847, 0.886)
pt3dadd(30.02, 128.484, 26.897, 0.856)
pt3dadd(29.96, 128.568, 26.947, 0.828)
pt3dadd(29.906, 128.66, 26.992, 0.788)
pt3dadd(29.863, 128.762, 27.03, 0.732)
pt3dadd(29.819, 128.864, 27.068, 0.678)
pt3dadd(29.775, 128.966, 27.105, 0.624)
pt3dadd(29.732, 129.068, 27.143, 0.57)
pt3dadd(29.688, 129.17, 27.181, 0.514)
pt3dadd(29.644, 129.274, 27.219, 0.46)
pt3dadd(29.601, 129.376, 27.257, 0.406)
pt3dadd(29.557, 129.478, 27.294, 0.35)
pt3dadd(29.513, 129.58, 27.332, 0.296)
pt3dadd(29.462, 129.68, 27.365, 0.276)
pt3dadd(29.401, 129.778, 27.394, 0.3)
pt3dadd(29.34, 129.875, 27.422, 0.322)
pt3dadd(29.279, 129.973, 27.45, 0.346)
pt3dadd(29.218, 130.07, 27.478, 0.368)
pt3dadd(29.157, 130.168, 27.506, 0.392)
pt3dadd(29.096, 130.266, 27.534, 0.414)
pt3dadd(29.035, 130.363, 27.563, 0.438)
pt3dadd(28.974, 130.462, 27.591, 0.46)
pt3dadd(28.913, 130.559, 27.619, 0.484)
pt3dadd(28.854, 130.651, 27.657, 0.516)
pt3dadd(28.796, 130.739, 27.707, 0.56)
pt3dadd(28.739, 130.825, 27.756, 0.602)
pt3dadd(28.682, 130.913, 27.806, 0.646)
pt3dadd(28.625, 131, 27.855, 0.69)
pt3dadd(28.567, 131.088, 27.904, 0.732)
pt3dadd(28.51, 131.174, 27.954, 0.776)
pt3dadd(28.453, 131.262, 28.003, 0.82)
pt3dadd(28.395, 131.35, 28.052, 0.862)
pt3dadd(28.338, 131.436, 28.102, 0.906)
pt3dadd(28.275, 131.526, 28.142, 0.938)
pt3dadd(28.208, 131.617, 28.174, 0.956)
pt3dadd(28.14, 131.708, 28.206, 0.976)
pt3dadd(28.072, 131.8, 28.238, 0.996)
pt3dadd(28.004, 131.891, 28.27, 1.016)
pt3dadd(27.936, 131.982, 28.302, 1.034)
pt3dadd(27.869, 132.073, 28.335, 1.054)
pt3dadd(27.801, 132.164, 28.367, 1.074)
}
}
proc shape3d_83() {
apic[22] { pt3dadd(27.733, 132.256, 28.399, 1.094)
pt3dadd(27.665, 132.347, 28.431, 1.112)
pt3dadd(27.609, 132.446, 28.458, 1.094)
pt3dadd(27.565, 132.554, 28.482, 1.038)
pt3dadd(27.521, 132.662, 28.505, 0.982)
pt3dadd(27.476, 132.77, 28.529, 0.926)
pt3dadd(27.432, 132.877, 28.552, 0.87)
pt3dadd(27.387, 132.985, 28.576, 0.814)
pt3dadd(27.343, 133.093, 28.599, 0.758)
pt3dadd(27.298, 133.201, 28.623, 0.702)
pt3dadd(27.254, 133.309, 28.646, 0.648)
pt3dadd(27.209, 133.417, 28.67, 0.592)
pt3dadd(27.169, 133.524, 28.698, 0.558)
pt3dadd(27.133, 133.632, 28.732, 0.548)
pt3dadd(27.097, 133.739, 28.765, 0.536)
pt3dadd(27.061, 133.847, 28.798, 0.524)
pt3dadd(27.025, 133.954, 28.832, 0.514)
pt3dadd(26.989, 134.06, 28.865, 0.502)
pt3dadd(26.952, 134.168, 28.898, 0.49)
pt3dadd(26.916, 134.275, 28.931, 0.48)
pt3dadd(26.88, 134.382, 28.965, 0.468)
pt3dadd(26.844, 134.49, 28.998, 0.458)
pt3dadd(26.803, 134.596, 29.029, 0.448)
pt3dadd(26.756, 134.701, 29.057, 0.44)
pt3dadd(26.71, 134.807, 29.086, 0.432)
pt3dadd(26.664, 134.911, 29.115, 0.424)
pt3dadd(26.618, 135.017, 29.143, 0.414)
pt3dadd(26.571, 135.122, 29.172, 0.406)
pt3dadd(26.525, 135.227, 29.201, 0.398)
pt3dadd(26.479, 135.332, 29.229, 0.39)
pt3dadd(26.433, 135.438, 29.258, 0.382)
pt3dadd(26.386, 135.544, 29.287, 0.374)
pt3dadd(26.332, 135.646, 29.31, 0.362)
pt3dadd(26.272, 135.748, 29.329, 0.348)
pt3dadd(26.212, 135.848, 29.349, 0.332)
pt3dadd(26.153, 135.95, 29.368, 0.318)
pt3dadd(26.093, 136.052, 29.388, 0.304)
pt3dadd(26.034, 136.153, 29.408, 0.29)
pt3dadd(25.974, 136.255, 29.427, 0.274)
pt3dadd(25.914, 136.356, 29.447, 0.26)
pt3dadd(25.855, 136.458, 29.467, 0.246)
pt3dadd(25.795, 136.559, 29.486, 0.232)
pt3dadd(25.728, 136.656, 29.499, 0.226)
pt3dadd(25.655, 136.752, 29.508, 0.226)
pt3dadd(25.583, 136.847, 29.516, 0.226)
pt3dadd(25.51, 136.942, 29.525, 0.226)
pt3dadd(25.438, 137.038, 29.534, 0.226)
pt3dadd(25.366, 137.132, 29.543, 0.226)
pt3dadd(25.293, 137.227, 29.552, 0.226)
pt3dadd(25.221, 137.323, 29.561, 0.226)
pt3dadd(25.149, 137.418, 29.569, 0.226)
pt3dadd(25.076, 137.513, 29.578, 0.226)
pt3dadd(25.009, 137.612, 29.583, 0.226)
pt3dadd(24.945, 137.713, 29.586, 0.226)
pt3dadd(24.88, 137.814, 29.59, 0.226)
pt3dadd(24.816, 137.916, 29.593, 0.226)
pt3dadd(24.752, 138.017, 29.596, 0.226)
pt3dadd(24.687, 138.118, 29.599, 0.226)
pt3dadd(24.623, 138.22, 29.602, 0.226)
pt3dadd(24.558, 138.32, 29.605, 0.226)
pt3dadd(24.494, 138.421, 29.608, 0.226)
pt3dadd(24.43, 138.523, 29.612, 0.226)
pt3dadd(24.367, 138.625, 29.613, 0.23)
pt3dadd(24.304, 138.727, 29.613, 0.234)
pt3dadd(24.242, 138.83, 29.613, 0.238)
pt3dadd(24.18, 138.932, 29.613, 0.244)
pt3dadd(24.117, 139.034, 29.613, 0.248)
pt3dadd(24.055, 139.138, 29.613, 0.252)
pt3dadd(23.993, 139.24, 29.613, 0.258)
pt3dadd(23.93, 139.343, 29.613, 0.262)
pt3dadd(23.868, 139.445, 29.613, 0.266)
pt3dadd(23.806, 139.548, 29.613, 0.272)
pt3dadd(23.739, 139.648, 29.613, 0.284)
pt3dadd(23.67, 139.746, 29.613, 0.3)
pt3dadd(23.602, 139.844, 29.613, 0.316)
pt3dadd(23.533, 139.943, 29.613, 0.332)
pt3dadd(23.465, 140.041, 29.613, 0.346)
pt3dadd(23.396, 140.14, 29.613, 0.362)
pt3dadd(23.327, 140.238, 29.613, 0.378)
pt3dadd(23.259, 140.336, 29.613, 0.394)
pt3dadd(23.19, 140.435, 29.613, 0.41)
pt3dadd(23.121, 140.533, 29.613, 0.426)
pt3dadd(23.05, 140.63, 29.613, 0.424)
pt3dadd(22.978, 140.726, 29.613, 0.412)
pt3dadd(22.906, 140.822, 29.613, 0.402)
pt3dadd(22.834, 140.917, 29.613, 0.39)
pt3dadd(22.762, 141.013, 29.613, 0.378)
pt3dadd(22.69, 141.109, 29.613, 0.368)
pt3dadd(22.617, 141.205, 29.613, 0.356)
pt3dadd(22.545, 141.301, 29.613, 0.344)
pt3dadd(22.473, 141.397, 29.613, 0.334)
pt3dadd(22.401, 141.493, 29.613, 0.322)
pt3dadd(22.329, 141.589, 29.613, 0.312)
pt3dadd(22.256, 141.684, 29.613, 0.302)
pt3dadd(22.184, 141.78, 29.613, 0.294)
pt3dadd(22.111, 141.876, 29.613, 0.284)
pt3dadd(22.039, 141.971, 29.613, 0.276)
pt3dadd(21.966, 142.067, 29.613, 0.266)
pt3dadd(21.894, 142.163, 29.613, 0.256)
pt3dadd(21.821, 142.259, 29.613, 0.248)
pt3dadd(21.749, 142.354, 29.613, 0.238)
pt3dadd(21.676, 142.45, 29.613, 0.228)
pt3dadd(21.604, 142.546, 29.613, 0.226)
pt3dadd(21.532, 142.642, 29.613, 0.226)
pt3dadd(21.46, 142.738, 29.613, 0.226)
pt3dadd(21.388, 142.834, 29.613, 0.226)
pt3dadd(21.316, 142.93, 29.613, 0.226)
pt3dadd(21.244, 143.026, 29.613, 0.226)
pt3dadd(21.172, 143.122, 29.613, 0.226)
pt3dadd(21.1, 143.218, 29.613, 0.226)
pt3dadd(21.028, 143.314, 29.613, 0.226)
pt3dadd(20.956, 143.408, 29.613, 0.226)
pt3dadd(20.904, 143.516, 29.613, 0.226)
pt3dadd(20.863, 143.629, 29.613, 0.226)
pt3dadd(20.822, 143.742, 29.613, 0.226)
pt3dadd(20.781, 143.855, 29.613, 0.226)
pt3dadd(20.74, 143.968, 29.613, 0.226)
pt3dadd(20.699, 144.08, 29.613, 0.226)
pt3dadd(20.658, 144.192, 29.613, 0.226)
pt3dadd(20.616, 144.305, 29.613, 0.226)
pt3dadd(20.575, 144.418, 29.613, 0.226)
pt3dadd(20.534, 144.53, 29.613, 0.226)
pt3dadd(20.509, 144.648, 29.613, 0.226)
pt3dadd(20.491, 144.767, 29.613, 0.226)
pt3dadd(20.473, 144.884, 29.613, 0.226)
pt3dadd(20.455, 145.003, 29.613, 0.226)
pt3dadd(20.436, 145.122, 29.613, 0.226)
pt3dadd(20.418, 145.241, 29.613, 0.226)
pt3dadd(20.4, 145.36, 29.613, 0.226)
pt3dadd(20.382, 145.478, 29.613, 0.226)
pt3dadd(20.363, 145.596, 29.613, 0.226)
pt3dadd(20.345, 145.715, 29.613, 0.226)
pt3dadd(20.342, 145.835, 29.613, 0.226)
pt3dadd(20.342, 145.955, 29.613, 0.226)
pt3dadd(20.343, 146.075, 29.613, 0.226)
pt3dadd(20.344, 146.195, 29.613, 0.226)
pt3dadd(20.345, 146.315, 29.613, 0.226)
pt3dadd(20.346, 146.435, 29.613, 0.226)
pt3dadd(20.346, 146.555, 29.613, 0.226)
pt3dadd(20.347, 146.675, 29.613, 0.226)
pt3dadd(20.348, 146.795, 29.613, 0.226)
pt3dadd(20.349, 146.915, 29.613, 0.226)
pt3dadd(20.359, 147.035, 29.613, 0.238)
pt3dadd(20.371, 147.154, 29.613, 0.252)
pt3dadd(20.383, 147.274, 29.613, 0.268)
pt3dadd(20.396, 147.392, 29.613, 0.282)
pt3dadd(20.408, 147.511, 29.613, 0.296)
pt3dadd(20.42, 147.631, 29.613, 0.312)
pt3dadd(20.433, 147.75, 29.613, 0.326)
pt3dadd(20.445, 147.87, 29.613, 0.34)
pt3dadd(20.457, 147.989, 29.613, 0.356)
pt3dadd(20.469, 148.109, 29.613, 0.37)
pt3dadd(20.491, 148.226, 29.613, 0.398)
pt3dadd(20.516, 148.344, 29.613, 0.428)
pt3dadd(20.54, 148.462, 29.613, 0.46)
pt3dadd(20.565, 148.579, 29.613, 0.49)
pt3dadd(20.589, 148.697, 29.613, 0.52)
pt3dadd(20.614, 148.814, 29.613, 0.552)
pt3dadd(20.638, 148.931, 29.613, 0.582)
pt3dadd(20.663, 149.048, 29.613, 0.612)
pt3dadd(20.687, 149.166, 29.613, 0.644)
pt3dadd(20.711, 149.284, 29.613, 0.674)
pt3dadd(20.759, 149.394, 29.613, 0.678)
pt3dadd(20.809, 149.502, 29.613, 0.678)
pt3dadd(20.86, 149.611, 29.613, 0.678)
pt3dadd(20.91, 149.72, 29.613, 0.678)
pt3dadd(20.961, 149.83, 29.613, 0.678)
pt3dadd(21.012, 149.938, 29.613, 0.678)
pt3dadd(21.062, 150.047, 29.613, 0.678)
pt3dadd(21.113, 150.156, 29.613, 0.678)
pt3dadd(21.163, 150.264, 29.613, 0.678)
pt3dadd(21.214, 150.373, 29.613, 0.678)
pt3dadd(21.259, 150.485, 29.613, 0.642)
pt3dadd(21.304, 150.595, 29.613, 0.602)
pt3dadd(21.348, 150.707, 29.613, 0.562)
pt3dadd(21.393, 150.818, 29.613, 0.522)
pt3dadd(21.437, 150.93, 29.613, 0.48)
pt3dadd(21.482, 151.042, 29.613, 0.44)
pt3dadd(21.526, 151.153, 29.613, 0.4)
pt3dadd(21.571, 151.265, 29.613, 0.36)
pt3dadd(21.615, 151.375, 29.613, 0.318)
pt3dadd(21.66, 151.487, 29.613, 0.278)
pt3dadd(21.7, 151.601, 29.613, 0.27)
pt3dadd(21.739, 151.714, 29.613, 0.264)
pt3dadd(21.778, 151.828, 29.613, 0.26)
pt3dadd(21.817, 151.94, 29.613, 0.254)
pt3dadd(21.856, 152.054, 29.613, 0.25)
pt3dadd(21.896, 152.167, 29.613, 0.246)
pt3dadd(21.935, 152.281, 29.613, 0.24)
pt3dadd(21.974, 152.394, 29.613, 0.236)
pt3dadd(22.013, 152.508, 29.613, 0.232)
pt3dadd(22.052, 152.621, 29.613, 0.226)
pt3dadd(22.142, 152.696, 29.613, 0.226)
pt3dadd(22.24, 152.767, 29.613, 0.226)
pt3dadd(22.337, 152.838, 29.613, 0.226)
pt3dadd(22.434, 152.908, 29.613, 0.226)
pt3dadd(22.531, 152.978, 29.613, 0.226)
pt3dadd(22.629, 153.049, 29.613, 0.226)
pt3dadd(22.726, 153.119, 29.613, 0.226)
pt3dadd(22.823, 153.19, 29.613, 0.226)
}
}
proc shape3d_84() {
apic[22] { pt3dadd(22.92, 153.259, 29.613, 0.226)
pt3dadd(23.017, 153.33, 29.613, 0.226)
}
apic[23] {pt3dclear()
pt3dadd(44.533, 120.427, 21.713, 1.13)
pt3dadd(44.5, 120.397, 21.703, 1.11)
pt3dadd(44.414, 120.319, 21.678, 1.056)
pt3dadd(44.328, 120.241, 21.653, 1.004)
pt3dadd(44.243, 120.163, 21.628, 0.95)
pt3dadd(44.157, 120.084, 21.604, 0.898)
pt3dadd(44.071, 120.006, 21.579, 0.844)
pt3dadd(43.985, 119.928, 21.554, 0.792)
pt3dadd(43.899, 119.85, 21.529, 0.74)
pt3dadd(43.813, 119.772, 21.504, 0.686)
pt3dadd(43.698, 119.76, 21.5, 0.678)
pt3dadd(43.578, 119.76, 21.5, 0.678)
pt3dadd(43.458, 119.76, 21.5, 0.678)
pt3dadd(43.338, 119.76, 21.5, 0.678)
pt3dadd(43.218, 119.76, 21.5, 0.678)
pt3dadd(43.098, 119.76, 21.5, 0.678)
pt3dadd(42.978, 119.76, 21.5, 0.678)
pt3dadd(42.858, 119.76, 21.5, 0.678)
pt3dadd(42.738, 119.76, 21.5, 0.678)
pt3dadd(42.618, 119.76, 21.5, 0.678)
pt3dadd(42.502, 119.788, 21.5, 0.678)
pt3dadd(42.387, 119.821, 21.5, 0.678)
pt3dadd(42.272, 119.857, 21.5, 0.678)
pt3dadd(42.159, 119.896, 21.5, 0.678)
pt3dadd(42.048, 119.94, 21.5, 0.678)
pt3dadd(41.981, 120.038, 21.5, 0.678)
pt3dadd(41.913, 120.138, 21.5, 0.678)
pt3dadd(41.829, 120.223, 21.5, 0.678)
pt3dadd(41.743, 120.307, 21.5, 0.678)
pt3dadd(41.655, 120.389, 21.5, 0.678)
pt3dadd(41.557, 120.452, 21.5, 0.678)
pt3dadd(41.442, 120.485, 21.5, 0.678)
pt3dadd(41.326, 120.518, 21.5, 0.678)
pt3dadd(41.225, 120.568, 21.534, 0.678)
pt3dadd(41.128, 120.618, 21.573, 0.678)
pt3dadd(41.069, 120.67, 21.648, 0.678)
pt3dadd(40.995, 120.72, 21.709, 0.678)
pt3dadd(40.891, 120.767, 21.741, 0.678)
pt3dadd(40.787, 120.812, 21.772, 0.678)
pt3dadd(40.682, 120.858, 21.802, 0.678)
pt3dadd(40.572, 120.904, 21.818, 0.678)
pt3dadd(40.463, 120.948, 21.835, 0.678)
pt3dadd(40.362, 120.984, 21.869, 0.678)
pt3dadd(40.26, 121.048, 21.876, 0.678)
pt3dadd(40.158, 121.11, 21.883, 0.678)
pt3dadd(40.057, 121.174, 21.89, 0.678)
pt3dadd(39.955, 121.237, 21.897, 0.678)
pt3dadd(39.855, 121.303, 21.9, 0.678)
pt3dadd(39.756, 121.37, 21.9, 0.678)
pt3dadd(39.661, 121.444, 21.9, 0.678)
pt3dadd(39.573, 121.525, 21.9, 0.678)
pt3dadd(39.479, 121.596, 21.9, 0.678)
pt3dadd(39.365, 121.636, 21.9, 0.678)
pt3dadd(39.252, 121.675, 21.9, 0.678)
pt3dadd(39.133, 121.68, 21.9, 0.678)
pt3dadd(39.013, 121.68, 21.9, 0.678)
pt3dadd(38.893, 121.68, 21.9, 0.678)
pt3dadd(38.773, 121.68, 21.9, 0.678)
pt3dadd(38.653, 121.68, 21.9, 0.678)
pt3dadd(38.536, 121.706, 21.9, 0.678)
pt3dadd(38.42, 121.736, 21.9, 0.678)
pt3dadd(38.304, 121.768, 21.9, 0.678)
pt3dadd(38.188, 121.798, 21.9, 0.678)
pt3dadd(38.072, 121.828, 21.9, 0.678)
pt3dadd(37.96, 121.865, 21.9, 0.678)
pt3dadd(37.871, 121.946, 21.9, 0.678)
pt3dadd(37.782, 122.027, 21.9, 0.678)
pt3dadd(37.694, 122.107, 21.9, 0.678)
pt3dadd(37.605, 122.189, 21.9, 0.678)
pt3dadd(37.513, 122.264, 21.903, 0.678)
pt3dadd(37.409, 122.321, 21.917, 0.678)
pt3dadd(37.304, 122.377, 21.931, 0.678)
pt3dadd(37.2, 122.434, 21.945, 0.678)
pt3dadd(37.095, 122.49, 21.959, 0.678)
pt3dadd(36.984, 122.52, 21.973, 0.678)
pt3dadd(36.864, 122.52, 21.985, 0.678)
pt3dadd(36.745, 122.52, 21.997, 0.678)
pt3dadd(36.626, 122.52, 22.003, 0.678)
pt3dadd(36.506, 122.52, 22.007, 0.678)
pt3dadd(36.386, 122.52, 22.011, 0.678)
pt3dadd(36.274, 122.52, 22.046, 0.678)
pt3dadd(36.164, 122.52, 22.085, 0.678)
pt3dadd(36.075, 122.548, 22.141, 0.678)
pt3dadd(36, 122.592, 22.21, 0.678)
pt3dadd(35.907, 122.627, 22.266, 0.678)
pt3dadd(35.8, 122.652, 22.301, 0.678)
pt3dadd(35.685, 122.672, 22.323, 0.678)
pt3dadd(35.569, 122.693, 22.344, 0.678)
pt3dadd(35.454, 122.713, 22.365, 0.678)
pt3dadd(35.339, 122.734, 22.387, 0.678)
pt3dadd(35.224, 122.756, 22.409, 0.678)
pt3dadd(35.111, 122.784, 22.434, 0.678)
pt3dadd(34.998, 122.81, 22.459, 0.678)
pt3dadd(34.885, 122.838, 22.483, 0.678)
pt3dadd(34.771, 122.864, 22.508, 0.678)
pt3dadd(34.661, 122.902, 22.529, 0.678)
pt3dadd(34.554, 122.952, 22.546, 0.678)
pt3dadd(34.447, 123.002, 22.562, 0.678)
pt3dadd(34.34, 123.054, 22.579, 0.678)
pt3dadd(34.233, 123.104, 22.595, 0.678)
pt3dadd(34.134, 123.169, 22.6, 0.678)
pt3dadd(34.038, 123.241, 22.6, 0.678)
pt3dadd(33.942, 123.313, 22.6, 0.678)
pt3dadd(33.846, 123.385, 22.6, 0.678)
pt3dadd(33.75, 123.457, 22.6, 0.678)
pt3dadd(33.646, 123.515, 22.611, 0.678)
pt3dadd(33.539, 123.565, 22.628, 0.678)
pt3dadd(33.432, 123.617, 22.644, 0.678)
pt3dadd(33.325, 123.667, 22.661, 0.678)
pt3dadd(33.218, 123.718, 22.677, 0.678)
pt3dadd(33.109, 123.718, 22.716, 0.678)
pt3dadd(32.999, 123.715, 22.757, 0.678)
pt3dadd(32.889, 123.713, 22.797, 0.678)
pt3dadd(32.779, 123.71, 22.838, 0.678)
pt3dadd(32.67, 123.708, 22.878, 0.678)
pt3dadd(32.558, 123.676, 22.89, 0.678)
pt3dadd(32.446, 123.634, 22.892, 0.678)
pt3dadd(32.334, 123.59, 22.895, 0.678)
pt3dadd(32.221, 123.548, 22.897, 0.678)
pt3dadd(32.109, 123.506, 22.899, 0.678)
pt3dadd(31.994, 123.48, 22.9, 0.678)
pt3dadd(31.874, 123.48, 22.9, 0.678)
pt3dadd(31.754, 123.48, 22.9, 0.678)
pt3dadd(31.636, 123.493, 22.9, 0.678)
pt3dadd(31.52, 123.526, 22.9, 0.678)
pt3dadd(31.405, 123.559, 22.9, 0.678)
pt3dadd(31.289, 123.577, 22.918, 0.678)
pt3dadd(31.172, 123.594, 22.938, 0.678)
pt3dadd(31.088, 123.613, 22.998, 0.678)
pt3dadd(31.019, 123.634, 23.078, 0.678)
pt3dadd(30.95, 123.682, 23.148, 0.678)
pt3dadd(30.869, 123.74, 23.2, 0.678)
pt3dadd(30.777, 123.8, 23.24, 0.678)
pt3dadd(30.684, 123.862, 23.279, 0.678)
pt3dadd(30.592, 123.922, 23.319, 0.678)
pt3dadd(30.507, 123.98, 23.368, 0.678)
pt3dadd(30.435, 124.036, 23.433, 0.678)
pt3dadd(30.364, 124.091, 23.499, 0.678)
pt3dadd(30.292, 124.147, 23.564, 0.678)
pt3dadd(30.227, 124.194, 23.636, 0.678)
pt3dadd(30.18, 124.22, 23.725, 0.678)
pt3dadd(30.123, 124.259, 23.802, 0.678)
pt3dadd(30.039, 124.327, 23.846, 0.678)
pt3dadd(29.958, 124.405, 23.879, 0.678)
pt3dadd(29.88, 124.492, 23.903, 0.678)
pt3dadd(29.781, 124.534, 23.936, 0.678)
pt3dadd(29.671, 124.553, 23.974, 0.678)
pt3dadd(29.564, 124.582, 24.009, 0.678)
pt3dadd(29.457, 124.619, 24.043, 0.678)
pt3dadd(29.35, 124.656, 24.077, 0.678)
pt3dadd(29.28, 124.712, 24.121, 0.678)
pt3dadd(29.28, 124.806, 24.184, 0.678)
pt3dadd(29.26, 124.894, 24.239, 0.678)
pt3dadd(29.164, 124.957, 24.265, 0.678)
pt3dadd(29.068, 125.022, 24.292, 0.678)
pt3dadd(28.959, 125.064, 24.303, 0.678)
pt3dadd(28.844, 125.099, 24.308, 0.678)
pt3dadd(28.739, 125.137, 24.333, 0.678)
pt3dadd(28.638, 125.15, 24.383, 0.678)
pt3dadd(28.533, 125.156, 24.432, 0.678)
pt3dadd(28.429, 125.161, 24.481, 0.678)
pt3dadd(28.324, 125.167, 24.53, 0.678)
pt3dadd(28.22, 125.172, 24.58, 0.678)
pt3dadd(28.115, 125.2, 24.621, 0.678)
pt3dadd(28.009, 125.232, 24.66, 0.678)
pt3dadd(27.903, 125.263, 24.699, 0.678)
pt3dadd(27.798, 125.296, 24.738, 0.678)
pt3dadd(27.691, 125.332, 24.768, 0.678)
pt3dadd(27.581, 125.38, 24.775, 0.678)
pt3dadd(27.471, 125.426, 24.781, 0.678)
pt3dadd(27.361, 125.473, 24.788, 0.678)
pt3dadd(27.251, 125.521, 24.795, 0.678)
pt3dadd(27.144, 125.574, 24.8, 0.678)
pt3dadd(27.056, 125.654, 24.8, 0.678)
pt3dadd(26.967, 125.736, 24.8, 0.678)
pt3dadd(26.878, 125.816, 24.8, 0.678)
pt3dadd(26.79, 125.897, 24.8, 0.678)
pt3dadd(26.698, 125.972, 24.805, 0.678)
pt3dadd(26.594, 126.025, 24.83, 0.678)
pt3dadd(26.491, 126.078, 24.855, 0.678)
pt3dadd(26.387, 126.132, 24.879, 0.678)
pt3dadd(26.284, 126.185, 24.904, 0.678)
pt3dadd(26.196, 126.246, 24.946, 0.678)
pt3dadd(26.114, 126.312, 24.995, 0.678)
pt3dadd(26.032, 126.377, 25.044, 0.678)
pt3dadd(25.951, 126.443, 25.093, 0.678)
pt3dadd(25.877, 126.518, 25.139, 0.678)
pt3dadd(25.809, 126.602, 25.183, 0.678)
pt3dadd(25.722, 126.665, 25.227, 0.678)
pt3dadd(25.632, 126.725, 25.27, 0.678)
pt3dadd(25.543, 126.785, 25.314, 0.678)
pt3dadd(25.475, 126.834, 25.374, 0.678)
pt3dadd(25.457, 126.857, 25.471, 0.678)
pt3dadd(25.44, 126.88, 25.568, 0.678)
pt3dadd(25.414, 126.919, 25.66, 0.678)
pt3dadd(25.388, 126.959, 25.752, 0.678)
pt3dadd(25.281, 126.96, 25.792, 0.678)
pt3dadd(25.162, 126.96, 25.8, 0.678)
}
}
proc shape3d_85() {
apic[23] { pt3dadd(25.042, 126.96, 25.8, 0.678)
pt3dadd(24.922, 126.96, 25.8, 0.678)
pt3dadd(24.802, 126.96, 25.8, 0.678)
pt3dadd(24.684, 126.967, 25.809, 0.678)
pt3dadd(24.571, 126.989, 25.838, 0.678)
pt3dadd(24.459, 127.01, 25.867, 0.678)
pt3dadd(24.346, 127.031, 25.896, 0.678)
pt3dadd(24.233, 127.052, 25.926, 0.678)
pt3dadd(24.121, 127.068, 25.957, 0.678)
pt3dadd(24.009, 127.074, 25.993, 0.678)
pt3dadd(23.897, 127.079, 26.029, 0.678)
pt3dadd(23.785, 127.084, 26.065, 0.678)
pt3dadd(23.673, 127.088, 26.101, 0.678)
pt3dadd(23.563, 127.099, 26.138, 0.678)
pt3dadd(23.469, 127.152, 26.18, 0.678)
pt3dadd(23.374, 127.206, 26.222, 0.678)
pt3dadd(23.279, 127.26, 26.264, 0.678)
pt3dadd(23.184, 127.314, 26.306, 0.678)
pt3dadd(23.107, 127.399, 26.329, 0.678)
pt3dadd(23.032, 127.49, 26.349, 0.678)
pt3dadd(22.956, 127.58, 26.369, 0.678)
pt3dadd(22.881, 127.67, 26.389, 0.678)
pt3dadd(22.801, 127.756, 26.41, 0.678)
pt3dadd(22.715, 127.835, 26.433, 0.678)
pt3dadd(22.63, 127.915, 26.456, 0.678)
pt3dadd(22.544, 127.994, 26.479, 0.678)
pt3dadd(22.46, 128.076, 26.501, 0.678)
pt3dadd(22.394, 128.174, 26.516, 0.678)
pt3dadd(22.327, 128.273, 26.53, 0.678)
pt3dadd(22.261, 128.371, 26.545, 0.678)
pt3dadd(22.194, 128.47, 26.559, 0.678)
pt3dadd(22.151, 128.574, 26.582, 0.678)
pt3dadd(22.132, 128.687, 26.613, 0.678)
pt3dadd(22.114, 128.8, 26.644, 0.678)
pt3dadd(22.095, 128.911, 26.675, 0.678)
pt3dadd(22.076, 129.024, 26.707, 0.678)
pt3dadd(22.034, 129.13, 26.732, 0.678)
pt3dadd(21.969, 129.227, 26.752, 0.678)
pt3dadd(21.903, 129.325, 26.772, 0.678)
pt3dadd(21.838, 129.422, 26.792, 0.678)
pt3dadd(21.773, 129.521, 26.811, 0.678)
pt3dadd(21.697, 129.611, 26.831, 0.678)
pt3dadd(21.622, 129.701, 26.851, 0.678)
pt3dadd(21.547, 129.792, 26.871, 0.678)
pt3dadd(21.472, 129.882, 26.892, 0.678)
pt3dadd(21.392, 129.968, 26.91, 0.678)
pt3dadd(21.308, 130.051, 26.927, 0.678)
pt3dadd(21.23, 130.134, 26.958, 0.678)
pt3dadd(21.156, 130.217, 26.996, 0.678)
pt3dadd(21.047, 130.261, 27, 0.678)
pt3dadd(20.934, 130.301, 27, 0.678)
pt3dadd(20.817, 130.322, 27, 0.678)
pt3dadd(20.697, 130.327, 27, 0.678)
pt3dadd(20.577, 130.332, 27, 0.678)
pt3dadd(20.462, 130.361, 27, 0.678)
pt3dadd(20.35, 130.403, 27, 0.678)
pt3dadd(20.235, 130.436, 27, 0.678)
pt3dadd(20.119, 130.469, 27, 0.678)
pt3dadd(20.011, 130.507, 27.023, 0.678)
pt3dadd(19.907, 130.549, 27.058, 0.678)
pt3dadd(19.801, 130.565, 27.102, 0.678)
pt3dadd(19.695, 130.571, 27.148, 0.678)
pt3dadd(19.617, 130.606, 27.212, 0.678)
pt3dadd(19.557, 130.657, 27.287, 0.678)
pt3dadd(19.489, 130.684, 27.365, 0.678)
pt3dadd(19.419, 130.704, 27.444, 0.678)
pt3dadd(19.348, 130.724, 27.524, 0.678)
pt3dadd(19.32, 130.804, 27.566, 0.678)
pt3dadd(19.32, 130.921, 27.583, 0.678)
pt3dadd(19.32, 131.04, 27.6, 0.678)
pt3dadd(19.32, 131.16, 27.6, 0.678)
pt3dadd(19.32, 131.28, 27.6, 0.678)
pt3dadd(19.32, 131.4, 27.6, 0.678)
pt3dadd(19.32, 131.52, 27.6, 0.678)
pt3dadd(19.32, 131.64, 27.6, 0.678)
pt3dadd(19.32, 131.76, 27.6, 0.678)
pt3dadd(19.32, 131.88, 27.6, 0.678)
pt3dadd(19.32, 132, 27.6, 0.678)
pt3dadd(19.32, 132.12, 27.6, 0.678)
}
apic[24] {pt3dclear()
pt3dadd(66.538, 112.62, 13.214, 0.226)
pt3dadd(66.472, 112.554, 13.215, 0.28)
pt3dadd(66.388, 112.469, 13.216, 0.348)
pt3dadd(66.303, 112.384, 13.218, 0.416)
pt3dadd(66.218, 112.299, 13.219, 0.484)
pt3dadd(66.133, 112.214, 13.22, 0.552)
pt3dadd(66.049, 112.129, 13.221, 0.62)
pt3dadd(65.964, 112.044, 13.222, 0.688)
pt3dadd(65.879, 111.959, 13.223, 0.756)
pt3dadd(65.794, 111.874, 13.225, 0.824)
pt3dadd(65.71, 111.789, 13.226, 0.892)
pt3dadd(65.625, 111.704, 13.227, 0.962)
pt3dadd(65.54, 111.619, 13.228, 1.03)
pt3dadd(65.456, 111.534, 13.229, 1.098)
pt3dadd(65.371, 111.449, 13.23, 1.166)
pt3dadd(65.273, 111.384, 13.232, 1.196)
pt3dadd(65.162, 111.34, 13.234, 1.186)
pt3dadd(65.05, 111.296, 13.236, 1.174)
pt3dadd(64.939, 111.251, 13.238, 1.164)
pt3dadd(64.827, 111.207, 13.24, 1.154)
pt3dadd(64.716, 111.163, 13.242, 1.142)
pt3dadd(64.604, 111.119, 13.245, 1.132)
pt3dadd(64.493, 111.074, 13.247, 1.12)
pt3dadd(64.381, 111.03, 13.249, 1.11)
pt3dadd(64.269, 110.986, 13.251, 1.1)
pt3dadd(64.157, 110.943, 13.253, 1.076)
pt3dadd(64.045, 110.901, 13.256, 1.048)
pt3dadd(63.933, 110.859, 13.258, 1.022)
pt3dadd(63.82, 110.818, 13.261, 0.994)
pt3dadd(63.708, 110.776, 13.263, 0.966)
pt3dadd(63.595, 110.734, 13.266, 0.938)
pt3dadd(63.483, 110.692, 13.268, 0.91)
pt3dadd(63.371, 110.65, 13.271, 0.884)
pt3dadd(63.258, 110.608, 13.273, 0.856)
pt3dadd(63.146, 110.566, 13.276, 0.828)
pt3dadd(63.037, 110.516, 13.279, 0.81)
pt3dadd(62.929, 110.463, 13.283, 0.796)
pt3dadd(62.821, 110.411, 13.287, 0.782)
pt3dadd(62.713, 110.359, 13.291, 0.768)
pt3dadd(62.605, 110.306, 13.294, 0.752)
pt3dadd(62.498, 110.254, 13.298, 0.738)
pt3dadd(62.39, 110.201, 13.302, 0.724)
pt3dadd(62.282, 110.149, 13.306, 0.71)
pt3dadd(62.174, 110.097, 13.309, 0.696)
pt3dadd(62.066, 110.044, 13.313, 0.68)
pt3dadd(61.955, 110.001, 13.319, 0.678)
pt3dadd(61.842, 109.96, 13.326, 0.678)
pt3dadd(61.73, 109.919, 13.332, 0.678)
pt3dadd(61.617, 109.878, 13.339, 0.678)
pt3dadd(61.505, 109.837, 13.346, 0.678)
pt3dadd(61.392, 109.796, 13.352, 0.68)
pt3dadd(61.279, 109.755, 13.359, 0.68)
pt3dadd(61.167, 109.714, 13.365, 0.68)
pt3dadd(61.054, 109.674, 13.372, 0.68)
pt3dadd(60.942, 109.633, 13.379, 0.68)
pt3dadd(60.834, 109.581, 13.388, 0.75)
pt3dadd(60.728, 109.527, 13.399, 0.834)
pt3dadd(60.622, 109.472, 13.409, 0.92)
pt3dadd(60.516, 109.418, 13.419, 1.006)
pt3dadd(60.409, 109.363, 13.429, 1.092)
pt3dadd(60.303, 109.309, 13.44, 1.176)
pt3dadd(60.197, 109.255, 13.45, 1.262)
pt3dadd(60.091, 109.2, 13.46, 1.348)
pt3dadd(59.984, 109.146, 13.47, 1.434)
pt3dadd(59.878, 109.092, 13.481, 1.518)
pt3dadd(59.769, 109.052, 13.506, 1.518)
pt3dadd(59.66, 109.016, 13.534, 1.498)
pt3dadd(59.551, 108.98, 13.562, 1.478)
pt3dadd(59.441, 108.944, 13.59, 1.456)
pt3dadd(59.332, 108.908, 13.619, 1.436)
pt3dadd(59.223, 108.871, 13.647, 1.416)
pt3dadd(59.114, 108.835, 13.675, 1.394)
pt3dadd(59.004, 108.799, 13.704, 1.374)
pt3dadd(58.895, 108.763, 13.732, 1.354)
pt3dadd(58.786, 108.727, 13.76, 1.332)
pt3dadd(58.674, 108.705, 13.791, 1.292)
pt3dadd(58.562, 108.683, 13.823, 1.248)
pt3dadd(58.45, 108.661, 13.854, 1.206)
pt3dadd(58.338, 108.64, 13.886, 1.162)
pt3dadd(58.227, 108.618, 13.917, 1.12)
pt3dadd(58.115, 108.597, 13.949, 1.076)
pt3dadd(58.003, 108.575, 13.98, 1.034)
pt3dadd(57.891, 108.554, 14.012, 0.99)
pt3dadd(57.779, 108.532, 14.043, 0.948)
pt3dadd(57.667, 108.51, 14.075, 0.904)
pt3dadd(57.551, 108.5, 14.096, 0.904)
pt3dadd(57.434, 108.489, 14.118, 0.904)
pt3dadd(57.317, 108.478, 14.139, 0.904)
pt3dadd(57.201, 108.468, 14.161, 0.904)
pt3dadd(57.084, 108.457, 14.182, 0.904)
pt3dadd(56.967, 108.447, 14.204, 0.904)
pt3dadd(56.85, 108.436, 14.225, 0.904)
pt3dadd(56.734, 108.426, 14.246, 0.904)
pt3dadd(56.617, 108.415, 14.268, 0.904)
pt3dadd(56.5, 108.404, 14.289, 0.904)
pt3dadd(56.381, 108.404, 14.3, 0.904)
pt3dadd(56.262, 108.404, 14.311, 0.904)
pt3dadd(56.142, 108.404, 14.321, 0.904)
pt3dadd(56.023, 108.404, 14.332, 0.904)
pt3dadd(55.904, 108.404, 14.343, 0.904)
pt3dadd(55.784, 108.404, 14.354, 0.904)
pt3dadd(55.665, 108.404, 14.364, 0.904)
pt3dadd(55.546, 108.403, 14.375, 0.904)
pt3dadd(55.426, 108.403, 14.386, 0.904)
pt3dadd(55.307, 108.403, 14.397, 0.904)
}
apic[25] {pt3dclear()
pt3dadd(55.307, 108.403, 14.397, 0.904)
pt3dadd(55.231, 108.403, 14.396, 0.868)
pt3dadd(55.111, 108.403, 14.396, 0.81)
pt3dadd(54.991, 108.403, 14.395, 0.752)
pt3dadd(54.871, 108.403, 14.394, 0.694)
pt3dadd(54.751, 108.403, 14.393, 0.636)
pt3dadd(54.631, 108.402, 14.393, 0.578)
pt3dadd(54.511, 108.402, 14.392, 0.52)
pt3dadd(54.391, 108.402, 14.391, 0.462)
pt3dadd(54.271, 108.402, 14.391, 0.404)
pt3dadd(54.151, 108.402, 14.389, 0.386)
pt3dadd(54.031, 108.402, 14.388, 0.368)
pt3dadd(53.911, 108.402, 14.387, 0.35)
pt3dadd(53.791, 108.402, 14.385, 0.332)
pt3dadd(53.671, 108.401, 14.384, 0.314)
pt3dadd(53.551, 108.401, 14.383, 0.296)
}
}
proc shape3d_86() {
apic[25] { pt3dadd(53.431, 108.401, 14.382, 0.28)
pt3dadd(53.311, 108.401, 14.38, 0.262)
pt3dadd(53.191, 108.401, 14.379, 0.244)
pt3dadd(53.071, 108.401, 14.378, 0.226)
pt3dadd(52.951, 108.4, 14.375, 0.226)
pt3dadd(52.831, 108.4, 14.373, 0.226)
pt3dadd(52.711, 108.399, 14.371, 0.226)
pt3dadd(52.591, 108.399, 14.368, 0.226)
pt3dadd(52.471, 108.398, 14.366, 0.226)
pt3dadd(52.351, 108.398, 14.363, 0.226)
pt3dadd(52.231, 108.397, 14.361, 0.226)
pt3dadd(52.111, 108.397, 14.359, 0.226)
pt3dadd(51.991, 108.396, 14.356, 0.226)
pt3dadd(51.871, 108.396, 14.354, 0.226)
pt3dadd(51.751, 108.395, 14.349, 0.226)
pt3dadd(51.632, 108.394, 14.344, 0.226)
pt3dadd(51.512, 108.393, 14.34, 0.226)
pt3dadd(51.392, 108.393, 14.335, 0.226)
pt3dadd(51.272, 108.392, 14.33, 0.226)
pt3dadd(51.152, 108.391, 14.325, 0.226)
pt3dadd(51.032, 108.39, 14.321, 0.226)
pt3dadd(50.912, 108.389, 14.316, 0.226)
pt3dadd(50.793, 108.388, 14.311, 0.226)
pt3dadd(50.673, 108.388, 14.306, 0.226)
pt3dadd(50.553, 108.386, 14.298, 0.232)
pt3dadd(50.434, 108.385, 14.289, 0.24)
pt3dadd(50.314, 108.383, 14.28, 0.246)
pt3dadd(50.194, 108.382, 14.272, 0.254)
pt3dadd(50.075, 108.38, 14.263, 0.26)
pt3dadd(49.955, 108.379, 14.255, 0.268)
pt3dadd(49.836, 108.378, 14.246, 0.274)
pt3dadd(49.716, 108.376, 14.238, 0.282)
pt3dadd(49.597, 108.375, 14.229, 0.288)
pt3dadd(49.477, 108.373, 14.22, 0.294)
pt3dadd(49.358, 108.371, 14.207, 0.334)
pt3dadd(49.239, 108.368, 14.194, 0.372)
pt3dadd(49.12, 108.366, 14.181, 0.41)
pt3dadd(49.001, 108.364, 14.168, 0.448)
pt3dadd(48.882, 108.361, 14.155, 0.486)
pt3dadd(48.763, 108.359, 14.143, 0.524)
pt3dadd(48.644, 108.356, 14.13, 0.564)
pt3dadd(48.525, 108.354, 14.117, 0.602)
pt3dadd(48.406, 108.352, 14.104, 0.64)
pt3dadd(48.288, 108.349, 14.091, 0.678)
}
apic[26] {pt3dclear()
pt3dadd(48.288, 108.349, 14.091, 0.678)
pt3dadd(48.243, 108.347, 14.075, 0.686)
pt3dadd(48.133, 108.341, 14.036, 0.702)
pt3dadd(48.023, 108.335, 13.996, 0.72)
pt3dadd(47.913, 108.33, 13.957, 0.738)
pt3dadd(47.803, 108.324, 13.918, 0.756)
pt3dadd(47.693, 108.318, 13.878, 0.774)
pt3dadd(47.583, 108.312, 13.839, 0.792)
pt3dadd(47.472, 108.307, 13.799, 0.81)
pt3dadd(47.362, 108.301, 13.76, 0.826)
pt3dadd(47.252, 108.295, 13.72, 0.844)
pt3dadd(47.14, 108.288, 13.685, 0.832)
pt3dadd(47.027, 108.28, 13.652, 0.798)
pt3dadd(46.914, 108.272, 13.619, 0.764)
pt3dadd(46.801, 108.263, 13.586, 0.73)
pt3dadd(46.688, 108.255, 13.553, 0.696)
pt3dadd(46.575, 108.247, 13.521, 0.664)
pt3dadd(46.462, 108.239, 13.488, 0.63)
pt3dadd(46.349, 108.231, 13.455, 0.596)
pt3dadd(46.236, 108.223, 13.422, 0.562)
pt3dadd(46.123, 108.214, 13.389, 0.528)
pt3dadd(46.01, 108.198, 13.36, 0.502)
pt3dadd(45.896, 108.177, 13.334, 0.482)
pt3dadd(45.782, 108.155, 13.308, 0.462)
pt3dadd(45.668, 108.134, 13.282, 0.442)
pt3dadd(45.554, 108.112, 13.256, 0.42)
pt3dadd(45.44, 108.091, 13.23, 0.4)
pt3dadd(45.327, 108.069, 13.204, 0.38)
pt3dadd(45.213, 108.048, 13.177, 0.36)
pt3dadd(45.099, 108.026, 13.151, 0.338)
pt3dadd(44.985, 108.005, 13.125, 0.318)
pt3dadd(44.872, 107.978, 13.1, 0.324)
pt3dadd(44.76, 107.948, 13.075, 0.342)
pt3dadd(44.647, 107.918, 13.05, 0.36)
pt3dadd(44.535, 107.889, 13.025, 0.378)
pt3dadd(44.423, 107.859, 13.001, 0.396)
pt3dadd(44.31, 107.829, 12.976, 0.414)
pt3dadd(44.198, 107.799, 12.951, 0.432)
pt3dadd(44.086, 107.77, 12.926, 0.45)
pt3dadd(43.973, 107.74, 12.901, 0.468)
pt3dadd(43.861, 107.71, 12.876, 0.486)
pt3dadd(43.749, 107.695, 12.842, 0.504)
pt3dadd(43.638, 107.684, 12.805, 0.522)
pt3dadd(43.527, 107.674, 12.768, 0.54)
pt3dadd(43.417, 107.663, 12.731, 0.558)
pt3dadd(43.306, 107.653, 12.694, 0.576)
pt3dadd(43.195, 107.643, 12.657, 0.594)
pt3dadd(43.084, 107.632, 12.62, 0.612)
pt3dadd(42.973, 107.622, 12.583, 0.63)
pt3dadd(42.862, 107.611, 12.546, 0.648)
pt3dadd(42.751, 107.601, 12.509, 0.666)
pt3dadd(42.64, 107.627, 12.482, 0.646)
pt3dadd(42.531, 107.666, 12.459, 0.612)
pt3dadd(42.42, 107.705, 12.436, 0.58)
pt3dadd(42.311, 107.744, 12.412, 0.546)
pt3dadd(42.201, 107.783, 12.389, 0.514)
pt3dadd(42.091, 107.822, 12.366, 0.48)
pt3dadd(41.981, 107.861, 12.343, 0.448)
pt3dadd(41.871, 107.9, 12.319, 0.414)
pt3dadd(41.761, 107.939, 12.296, 0.382)
pt3dadd(41.651, 107.978, 12.273, 0.348)
pt3dadd(41.54, 108.021, 12.257, 0.36)
pt3dadd(41.43, 108.064, 12.242, 0.384)
pt3dadd(41.319, 108.107, 12.228, 0.41)
pt3dadd(41.209, 108.151, 12.214, 0.434)
pt3dadd(41.098, 108.194, 12.199, 0.458)
pt3dadd(40.987, 108.237, 12.185, 0.482)
pt3dadd(40.877, 108.281, 12.171, 0.508)
pt3dadd(40.766, 108.324, 12.156, 0.532)
pt3dadd(40.656, 108.368, 12.142, 0.556)
pt3dadd(40.545, 108.411, 12.128, 0.582)
pt3dadd(40.437, 108.461, 12.12, 0.6)
pt3dadd(40.328, 108.512, 12.114, 0.62)
pt3dadd(40.22, 108.563, 12.108, 0.638)
pt3dadd(40.112, 108.615, 12.102, 0.656)
pt3dadd(40.004, 108.666, 12.095, 0.674)
pt3dadd(39.895, 108.717, 12.089, 0.692)
pt3dadd(39.787, 108.769, 12.083, 0.71)
pt3dadd(39.679, 108.82, 12.077, 0.73)
pt3dadd(39.571, 108.871, 12.071, 0.748)
pt3dadd(39.463, 108.923, 12.065, 0.766)
pt3dadd(39.358, 108.982, 12.064, 0.744)
pt3dadd(39.255, 109.043, 12.064, 0.712)
pt3dadd(39.151, 109.103, 12.064, 0.682)
pt3dadd(39.048, 109.164, 12.064, 0.65)
pt3dadd(38.944, 109.224, 12.064, 0.62)
pt3dadd(38.841, 109.285, 12.064, 0.588)
pt3dadd(38.737, 109.346, 12.064, 0.558)
pt3dadd(38.633, 109.407, 12.064, 0.526)
pt3dadd(38.53, 109.467, 12.064, 0.496)
pt3dadd(38.426, 109.528, 12.064, 0.464)
pt3dadd(38.316, 109.574, 12.064, 0.476)
pt3dadd(38.204, 109.618, 12.064, 0.494)
pt3dadd(38.093, 109.662, 12.064, 0.512)
pt3dadd(37.981, 109.706, 12.064, 0.53)
pt3dadd(37.869, 109.75, 12.064, 0.548)
pt3dadd(37.758, 109.794, 12.064, 0.564)
pt3dadd(37.646, 109.838, 12.064, 0.584)
pt3dadd(37.534, 109.882, 12.064, 0.6)
pt3dadd(37.422, 109.926, 12.064, 0.62)
pt3dadd(37.311, 109.969, 12.064, 0.636)
pt3dadd(37.204, 110.024, 12.064, 0.62)
pt3dadd(37.099, 110.081, 12.064, 0.598)
pt3dadd(36.993, 110.138, 12.064, 0.576)
pt3dadd(36.887, 110.195, 12.064, 0.554)
pt3dadd(36.782, 110.252, 12.064, 0.53)
pt3dadd(36.676, 110.309, 12.064, 0.508)
pt3dadd(36.57, 110.366, 12.064, 0.486)
pt3dadd(36.465, 110.423, 12.064, 0.464)
pt3dadd(36.359, 110.479, 12.064, 0.44)
pt3dadd(36.253, 110.536, 12.064, 0.418)
pt3dadd(36.146, 110.589, 12.064, 0.406)
pt3dadd(36.038, 110.641, 12.064, 0.394)
pt3dadd(35.929, 110.693, 12.064, 0.384)
pt3dadd(35.821, 110.746, 12.064, 0.372)
pt3dadd(35.713, 110.798, 12.064, 0.362)
pt3dadd(35.605, 110.85, 12.064, 0.35)
pt3dadd(35.497, 110.902, 12.064, 0.338)
pt3dadd(35.389, 110.954, 12.064, 0.328)
pt3dadd(35.281, 111.006, 12.064, 0.318)
pt3dadd(35.173, 111.059, 12.064, 0.306)
pt3dadd(35.061, 111.103, 12.064, 0.322)
pt3dadd(34.95, 111.147, 12.064, 0.34)
pt3dadd(34.838, 111.19, 12.064, 0.358)
pt3dadd(34.726, 111.234, 12.064, 0.376)
pt3dadd(34.614, 111.277, 12.064, 0.394)
pt3dadd(34.503, 111.321, 12.064, 0.412)
pt3dadd(34.391, 111.365, 12.064, 0.428)
pt3dadd(34.279, 111.408, 12.064, 0.448)
pt3dadd(34.167, 111.452, 12.064, 0.466)
pt3dadd(34.055, 111.495, 12.064, 0.482)
pt3dadd(33.948, 111.549, 12.064, 0.5)
pt3dadd(33.841, 111.604, 12.064, 0.518)
pt3dadd(33.734, 111.658, 12.064, 0.534)
pt3dadd(33.627, 111.713, 12.064, 0.552)
pt3dadd(33.521, 111.768, 12.064, 0.57)
pt3dadd(33.414, 111.822, 12.064, 0.586)
pt3dadd(33.307, 111.877, 12.064, 0.604)
pt3dadd(33.2, 111.931, 12.064, 0.62)
pt3dadd(33.093, 111.986, 12.064, 0.638)
pt3dadd(32.986, 112.041, 12.064, 0.656)
pt3dadd(32.871, 112.075, 12.064, 0.658)
pt3dadd(32.756, 112.107, 12.064, 0.66)
pt3dadd(32.64, 112.139, 12.064, 0.662)
pt3dadd(32.525, 112.171, 12.064, 0.664)
pt3dadd(32.409, 112.203, 12.064, 0.668)
pt3dadd(32.293, 112.235, 12.064, 0.67)
pt3dadd(32.178, 112.267, 12.064, 0.672)
pt3dadd(32.062, 112.3, 12.064, 0.674)
pt3dadd(31.947, 112.332, 12.064, 0.676)
pt3dadd(31.831, 112.364, 12.064, 0.678)
pt3dadd(31.713, 112.383, 12.064, 0.69)
pt3dadd(31.594, 112.401, 12.064, 0.704)
pt3dadd(31.475, 112.42, 12.064, 0.716)
pt3dadd(31.357, 112.438, 12.064, 0.728)
pt3dadd(31.238, 112.457, 12.064, 0.742)
}
}
proc shape3d_87() {
apic[26] { pt3dadd(31.12, 112.475, 12.064, 0.754)
pt3dadd(31.001, 112.493, 12.064, 0.768)
pt3dadd(30.882, 112.512, 12.064, 0.78)
pt3dadd(30.764, 112.53, 12.064, 0.794)
pt3dadd(30.645, 112.548, 12.064, 0.806)
pt3dadd(30.525, 112.556, 12.064, 0.798)
pt3dadd(30.406, 112.562, 12.064, 0.788)
pt3dadd(30.286, 112.569, 12.064, 0.78)
pt3dadd(30.166, 112.576, 12.064, 0.77)
pt3dadd(30.046, 112.583, 12.064, 0.76)
pt3dadd(29.926, 112.589, 12.064, 0.75)
pt3dadd(29.807, 112.596, 12.064, 0.742)
pt3dadd(29.687, 112.603, 12.063, 0.732)
pt3dadd(29.567, 112.61, 12.063, 0.722)
pt3dadd(29.447, 112.616, 12.063, 0.714)
pt3dadd(29.327, 112.616, 12.063, 0.694)
pt3dadd(29.207, 112.616, 12.063, 0.674)
pt3dadd(29.087, 112.616, 12.063, 0.654)
pt3dadd(28.967, 112.616, 12.063, 0.634)
pt3dadd(28.847, 112.616, 12.063, 0.614)
pt3dadd(28.727, 112.616, 12.063, 0.594)
pt3dadd(28.607, 112.616, 12.063, 0.574)
pt3dadd(28.487, 112.616, 12.063, 0.554)
pt3dadd(28.367, 112.616, 12.063, 0.534)
pt3dadd(28.247, 112.616, 12.063, 0.516)
pt3dadd(28.127, 112.616, 12.063, 0.524)
pt3dadd(28.007, 112.616, 12.063, 0.536)
pt3dadd(27.887, 112.616, 12.063, 0.546)
pt3dadd(27.767, 112.616, 12.063, 0.556)
pt3dadd(27.647, 112.616, 12.063, 0.566)
pt3dadd(27.527, 112.616, 12.063, 0.576)
pt3dadd(27.407, 112.616, 12.063, 0.588)
pt3dadd(27.287, 112.616, 12.062, 0.598)
pt3dadd(27.167, 112.616, 12.062, 0.608)
pt3dadd(27.047, 112.616, 12.062, 0.618)
pt3dadd(26.927, 112.616, 12.062, 0.58)
pt3dadd(26.807, 112.616, 12.062, 0.542)
pt3dadd(26.687, 112.616, 12.062, 0.504)
pt3dadd(26.567, 112.616, 12.062, 0.464)
pt3dadd(26.447, 112.616, 12.062, 0.426)
pt3dadd(26.327, 112.616, 12.061, 0.388)
pt3dadd(26.207, 112.616, 12.061, 0.348)
pt3dadd(26.087, 112.616, 12.061, 0.31)
pt3dadd(25.967, 112.616, 12.061, 0.272)
pt3dadd(25.847, 112.616, 12.061, 0.234)
pt3dadd(25.727, 112.616, 12.061, 0.268)
pt3dadd(25.607, 112.616, 12.06, 0.306)
pt3dadd(25.487, 112.616, 12.06, 0.344)
pt3dadd(25.367, 112.616, 12.06, 0.382)
pt3dadd(25.247, 112.616, 12.059, 0.418)
pt3dadd(25.127, 112.616, 12.059, 0.456)
pt3dadd(25.007, 112.616, 12.059, 0.494)
pt3dadd(24.887, 112.616, 12.059, 0.53)
pt3dadd(24.767, 112.616, 12.058, 0.568)
pt3dadd(24.647, 112.616, 12.058, 0.606)
pt3dadd(24.527, 112.616, 12.057, 0.582)
pt3dadd(24.407, 112.616, 12.057, 0.558)
pt3dadd(24.287, 112.616, 12.056, 0.534)
pt3dadd(24.167, 112.616, 12.056, 0.51)
pt3dadd(24.047, 112.616, 12.055, 0.486)
pt3dadd(23.927, 112.616, 12.055, 0.462)
pt3dadd(23.807, 112.616, 12.054, 0.436)
pt3dadd(23.687, 112.616, 12.054, 0.412)
pt3dadd(23.567, 112.616, 12.053, 0.388)
pt3dadd(23.447, 112.616, 12.052, 0.364)
pt3dadd(23.327, 112.616, 12.051, 0.35)
pt3dadd(23.207, 112.616, 12.05, 0.336)
pt3dadd(23.087, 112.616, 12.049, 0.322)
pt3dadd(22.967, 112.616, 12.048, 0.308)
pt3dadd(22.847, 112.616, 12.047, 0.296)
pt3dadd(22.727, 112.616, 12.045, 0.282)
pt3dadd(22.607, 112.616, 12.044, 0.268)
pt3dadd(22.487, 112.615, 12.043, 0.254)
pt3dadd(22.367, 112.615, 12.042, 0.24)
pt3dadd(22.247, 112.615, 12.041, 0.226)
pt3dadd(22.127, 112.615, 12.039, 0.226)
pt3dadd(22.007, 112.615, 12.037, 0.226)
pt3dadd(21.887, 112.615, 12.035, 0.226)
pt3dadd(21.767, 112.615, 12.032, 0.226)
pt3dadd(21.647, 112.615, 12.03, 0.226)
pt3dadd(21.528, 112.615, 12.028, 0.226)
pt3dadd(21.408, 112.615, 12.026, 0.226)
pt3dadd(21.288, 112.615, 12.024, 0.226)
pt3dadd(21.168, 112.615, 12.022, 0.226)
pt3dadd(21.048, 112.615, 12.02, 0.226)
pt3dadd(20.928, 112.615, 12.016, 0.232)
pt3dadd(20.808, 112.615, 12.012, 0.238)
pt3dadd(20.688, 112.614, 12.007, 0.244)
pt3dadd(20.568, 112.614, 12.003, 0.25)
pt3dadd(20.448, 112.614, 11.999, 0.256)
pt3dadd(20.328, 112.614, 11.995, 0.262)
pt3dadd(20.208, 112.614, 11.991, 0.266)
pt3dadd(20.088, 112.613, 11.987, 0.272)
pt3dadd(19.968, 112.613, 11.983, 0.278)
pt3dadd(19.849, 112.613, 11.979, 0.284)
pt3dadd(19.729, 112.613, 11.971, 0.304)
pt3dadd(19.609, 112.613, 11.963, 0.322)
pt3dadd(19.49, 112.612, 11.956, 0.342)
pt3dadd(19.37, 112.612, 11.948, 0.362)
pt3dadd(19.25, 112.612, 11.941, 0.38)
pt3dadd(19.131, 112.612, 11.933, 0.4)
pt3dadd(19.011, 112.612, 11.925, 0.42)
pt3dadd(18.891, 112.612, 11.918, 0.438)
pt3dadd(18.772, 112.612, 11.91, 0.458)
pt3dadd(18.652, 112.612, 11.902, 0.476)
pt3dadd(18.533, 112.611, 11.891, 0.496)
pt3dadd(18.414, 112.611, 11.879, 0.516)
pt3dadd(18.294, 112.61, 11.868, 0.534)
pt3dadd(18.175, 112.61, 11.856, 0.554)
pt3dadd(18.056, 112.609, 11.844, 0.572)
pt3dadd(17.937, 112.609, 11.833, 0.592)
pt3dadd(17.818, 112.608, 11.821, 0.612)
pt3dadd(17.699, 112.608, 11.81, 0.63)
pt3dadd(17.579, 112.607, 11.798, 0.65)
pt3dadd(17.46, 112.607, 11.786, 0.668)
pt3dadd(17.348, 112.606, 11.751, 0.636)
pt3dadd(17.236, 112.605, 11.715, 0.602)
pt3dadd(17.124, 112.604, 11.679, 0.57)
pt3dadd(17.012, 112.603, 11.643, 0.536)
pt3dadd(16.9, 112.603, 11.607, 0.504)
pt3dadd(16.789, 112.602, 11.571, 0.47)
pt3dadd(16.677, 112.601, 11.534, 0.436)
pt3dadd(16.565, 112.6, 11.498, 0.404)
pt3dadd(16.453, 112.599, 11.462, 0.37)
pt3dadd(16.341, 112.598, 11.426, 0.336)
pt3dadd(16.226, 112.597, 11.398, 0.352)
pt3dadd(16.111, 112.595, 11.37, 0.366)
pt3dadd(15.996, 112.593, 11.342, 0.382)
pt3dadd(15.88, 112.592, 11.313, 0.396)
pt3dadd(15.765, 112.59, 11.285, 0.412)
pt3dadd(15.65, 112.588, 11.257, 0.426)
pt3dadd(15.535, 112.587, 11.229, 0.44)
pt3dadd(15.42, 112.585, 11.2, 0.456)
pt3dadd(15.305, 112.583, 11.172, 0.47)
pt3dadd(15.19, 112.582, 11.144, 0.486)
pt3dadd(15.072, 112.578, 11.126, 0.514)
pt3dadd(14.954, 112.575, 11.108, 0.544)
pt3dadd(14.836, 112.572, 11.09, 0.572)
pt3dadd(14.718, 112.569, 11.073, 0.6)
pt3dadd(14.6, 112.566, 11.055, 0.63)
pt3dadd(14.482, 112.563, 11.037, 0.658)
pt3dadd(14.364, 112.56, 11.019, 0.686)
pt3dadd(14.246, 112.557, 11.001, 0.716)
pt3dadd(14.128, 112.553, 10.983, 0.744)
pt3dadd(14.01, 112.55, 10.965, 0.772)
pt3dadd(13.89, 112.544, 10.957, 0.772)
pt3dadd(13.771, 112.538, 10.949, 0.774)
pt3dadd(13.651, 112.532, 10.941, 0.776)
pt3dadd(13.532, 112.526, 10.933, 0.776)
pt3dadd(13.412, 112.52, 10.925, 0.778)
pt3dadd(13.293, 112.513, 10.917, 0.78)
pt3dadd(13.173, 112.507, 10.909, 0.782)
pt3dadd(13.054, 112.501, 10.901, 0.782)
pt3dadd(12.934, 112.495, 10.893, 0.784)
pt3dadd(12.815, 112.489, 10.885, 0.784)
pt3dadd(12.696, 112.477, 10.884, 0.752)
pt3dadd(12.576, 112.466, 10.884, 0.722)
pt3dadd(12.457, 112.454, 10.883, 0.692)
pt3dadd(12.337, 112.443, 10.882, 0.66)
pt3dadd(12.218, 112.432, 10.881, 0.63)
pt3dadd(12.098, 112.42, 10.88, 0.598)
pt3dadd(11.979, 112.409, 10.88, 0.568)
pt3dadd(11.859, 112.397, 10.879, 0.538)
pt3dadd(11.74, 112.386, 10.878, 0.506)
pt3dadd(11.621, 112.374, 10.877, 0.478)
pt3dadd(11.502, 112.356, 10.876, 0.498)
pt3dadd(11.383, 112.339, 10.874, 0.516)
pt3dadd(11.265, 112.321, 10.873, 0.536)
pt3dadd(11.146, 112.303, 10.872, 0.556)
pt3dadd(11.027, 112.285, 10.87, 0.574)
pt3dadd(10.908, 112.268, 10.869, 0.594)
pt3dadd(10.79, 112.25, 10.867, 0.612)
pt3dadd(10.671, 112.232, 10.866, 0.632)
pt3dadd(10.553, 112.214, 10.864, 0.65)
pt3dadd(10.434, 112.195, 10.863, 0.668)
pt3dadd(10.326, 112.144, 10.86, 0.652)
pt3dadd(10.217, 112.094, 10.857, 0.636)
pt3dadd(10.108, 112.044, 10.855, 0.62)
pt3dadd(9.999, 111.993, 10.852, 0.606)
pt3dadd(9.89, 111.943, 10.85, 0.59)
pt3dadd(9.781, 111.893, 10.847, 0.574)
pt3dadd(9.672, 111.842, 10.844, 0.558)
pt3dadd(9.564, 111.792, 10.842, 0.542)
pt3dadd(9.455, 111.741, 10.839, 0.528)
pt3dadd(9.346, 111.691, 10.836, 0.512)
pt3dadd(9.235, 111.645, 10.831, 0.494)
pt3dadd(9.124, 111.599, 10.825, 0.476)
pt3dadd(9.014, 111.553, 10.82, 0.458)
pt3dadd(8.903, 111.507, 10.814, 0.44)
pt3dadd(8.792, 111.461, 10.809, 0.422)
pt3dadd(8.682, 111.415, 10.804, 0.404)
pt3dadd(8.571, 111.369, 10.798, 0.386)
pt3dadd(8.46, 111.323, 10.793, 0.368)
pt3dadd(8.35, 111.277, 10.787, 0.35)
pt3dadd(8.239, 111.231, 10.782, 0.334)
pt3dadd(8.13, 111.182, 10.773, 0.338)
pt3dadd(8.021, 111.133, 10.765, 0.34)
pt3dadd(7.912, 111.084, 10.757, 0.342)
pt3dadd(7.803, 111.035, 10.748, 0.344)
pt3dadd(7.694, 110.986, 10.74, 0.348)
}
}
proc shape3d_88() {
apic[26] { pt3dadd(7.585, 110.937, 10.732, 0.35)
pt3dadd(7.476, 110.888, 10.723, 0.352)
pt3dadd(7.367, 110.839, 10.715, 0.354)
pt3dadd(7.257, 110.79, 10.706, 0.358)
pt3dadd(7.149, 110.74, 10.698, 0.362)
pt3dadd(7.044, 110.683, 10.686, 0.394)
pt3dadd(6.94, 110.627, 10.673, 0.426)
pt3dadd(6.835, 110.57, 10.661, 0.458)
pt3dadd(6.73, 110.513, 10.649, 0.49)
pt3dadd(6.626, 110.456, 10.637, 0.522)
pt3dadd(6.521, 110.399, 10.625, 0.554)
pt3dadd(6.416, 110.342, 10.613, 0.586)
pt3dadd(6.312, 110.285, 10.601, 0.618)
pt3dadd(6.207, 110.228, 10.589, 0.65)
pt3dadd(6.102, 110.174, 10.574, 0.678)
pt3dadd(5.997, 110.138, 10.537, 0.678)
pt3dadd(5.891, 110.101, 10.501, 0.678)
pt3dadd(5.786, 110.064, 10.464, 0.678)
pt3dadd(5.68, 110.028, 10.428, 0.678)
pt3dadd(5.574, 109.991, 10.391, 0.678)
pt3dadd(5.469, 109.955, 10.355, 0.678)
pt3dadd(5.363, 109.918, 10.318, 0.678)
pt3dadd(5.258, 109.881, 10.282, 0.678)
pt3dadd(5.152, 109.845, 10.245, 0.678)
pt3dadd(5.046, 109.809, 10.21, 0.674)
pt3dadd(4.936, 109.774, 10.181, 0.648)
pt3dadd(4.827, 109.74, 10.152, 0.622)
pt3dadd(4.717, 109.706, 10.124, 0.596)
pt3dadd(4.607, 109.672, 10.095, 0.57)
pt3dadd(4.497, 109.638, 10.066, 0.544)
pt3dadd(4.387, 109.604, 10.038, 0.518)
pt3dadd(4.278, 109.57, 10.009, 0.492)
pt3dadd(4.168, 109.536, 9.981, 0.466)
pt3dadd(4.058, 109.501, 9.952, 0.44)
pt3dadd(3.948, 109.466, 9.924, 0.416)
pt3dadd(3.839, 109.423, 9.903, 0.406)
pt3dadd(3.73, 109.38, 9.882, 0.394)
pt3dadd(3.621, 109.336, 9.861, 0.382)
pt3dadd(3.512, 109.293, 9.839, 0.372)
pt3dadd(3.403, 109.25, 9.818, 0.36)
pt3dadd(3.294, 109.207, 9.797, 0.348)
pt3dadd(3.185, 109.164, 9.776, 0.336)
pt3dadd(3.076, 109.12, 9.754, 0.326)
pt3dadd(2.967, 109.077, 9.733, 0.314)
pt3dadd(2.859, 109.031, 9.713, 0.308)
pt3dadd(2.755, 108.975, 9.698, 0.32)
pt3dadd(2.65, 108.919, 9.683, 0.332)
pt3dadd(2.546, 108.863, 9.668, 0.346)
pt3dadd(2.441, 108.807, 9.653, 0.358)
pt3dadd(2.337, 108.751, 9.637, 0.37)
pt3dadd(2.232, 108.695, 9.622, 0.382)
pt3dadd(2.127, 108.639, 9.607, 0.396)
pt3dadd(2.023, 108.583, 9.592, 0.408)
pt3dadd(1.918, 108.527, 9.577, 0.42)
pt3dadd(1.815, 108.468, 9.563, 0.428)
pt3dadd(1.715, 108.403, 9.553, 0.41)
pt3dadd(1.615, 108.338, 9.543, 0.394)
pt3dadd(1.515, 108.272, 9.533, 0.378)
pt3dadd(1.415, 108.207, 9.524, 0.362)
pt3dadd(1.315, 108.141, 9.514, 0.346)
pt3dadd(1.215, 108.076, 9.504, 0.33)
pt3dadd(1.116, 108.011, 9.494, 0.314)
pt3dadd(1.016, 107.945, 9.484, 0.296)
pt3dadd(0.916, 107.88, 9.475, 0.28)
pt3dadd(0.815, 107.819, 9.461, 0.266)
pt3dadd(0.709, 107.773, 9.431, 0.262)
pt3dadd(0.604, 107.727, 9.402, 0.258)
pt3dadd(0.499, 107.682, 9.373, 0.254)
pt3dadd(0.393, 107.636, 9.344, 0.25)
pt3dadd(0.288, 107.59, 9.315, 0.246)
pt3dadd(0.183, 107.545, 9.285, 0.242)
pt3dadd(0.077, 107.499, 9.256, 0.238)
pt3dadd(-0.028, 107.453, 9.227, 0.234)
pt3dadd(-0.133, 107.408, 9.198, 0.228)
pt3dadd(-0.24, 107.368, 9.168, 0.228)
pt3dadd(-0.35, 107.34, 9.136, 0.238)
pt3dadd(-0.461, 107.312, 9.104, 0.246)
pt3dadd(-0.571, 107.283, 9.073, 0.254)
pt3dadd(-0.681, 107.255, 9.041, 0.264)
pt3dadd(-0.792, 107.227, 9.01, 0.272)
pt3dadd(-0.902, 107.199, 8.978, 0.28)
pt3dadd(-1.012, 107.171, 8.946, 0.29)
pt3dadd(-1.122, 107.143, 8.914, 0.298)
pt3dadd(-1.233, 107.115, 8.883, 0.306)
pt3dadd(-1.346, 107.094, 8.855, 0.314)
pt3dadd(-1.463, 107.084, 8.834, 0.324)
pt3dadd(-1.579, 107.074, 8.813, 0.332)
pt3dadd(-1.696, 107.064, 8.792, 0.342)
pt3dadd(-1.813, 107.055, 8.771, 0.35)
pt3dadd(-1.93, 107.045, 8.75, 0.358)
pt3dadd(-2.047, 107.035, 8.729, 0.368)
pt3dadd(-2.164, 107.025, 8.708, 0.376)
pt3dadd(-2.281, 107.016, 8.686, 0.386)
pt3dadd(-2.398, 107.006, 8.665, 0.394)
pt3dadd(-2.516, 107, 8.649, 0.392)
pt3dadd(-2.635, 107, 8.639, 0.374)
pt3dadd(-2.754, 107, 8.629, 0.356)
pt3dadd(-2.874, 107, 8.619, 0.34)
pt3dadd(-2.993, 107, 8.609, 0.322)
pt3dadd(-3.113, 107, 8.6, 0.304)
pt3dadd(-3.232, 107, 8.589, 0.288)
pt3dadd(-3.351, 107, 8.58, 0.27)
pt3dadd(-3.471, 107, 8.57, 0.252)
pt3dadd(-3.59, 107, 8.56, 0.236)
pt3dadd(-3.704, 106.979, 8.562, 0.232)
pt3dadd(-3.811, 106.929, 8.581, 0.244)
pt3dadd(-3.918, 106.879, 8.6, 0.256)
pt3dadd(-4.025, 106.83, 8.618, 0.268)
pt3dadd(-4.132, 106.78, 8.637, 0.28)
pt3dadd(-4.239, 106.73, 8.656, 0.292)
pt3dadd(-4.346, 106.681, 8.674, 0.304)
pt3dadd(-4.453, 106.631, 8.693, 0.316)
pt3dadd(-4.56, 106.581, 8.712, 0.328)
pt3dadd(-4.667, 106.532, 8.73, 0.342)
pt3dadd(-4.773, 106.482, 8.749, 0.354)
pt3dadd(-4.881, 106.433, 8.767, 0.366)
pt3dadd(-4.987, 106.383, 8.786, 0.378)
pt3dadd(-5.094, 106.333, 8.805, 0.39)
pt3dadd(-5.201, 106.284, 8.823, 0.402)
pt3dadd(-5.308, 106.234, 8.842, 0.414)
pt3dadd(-5.415, 106.184, 8.861, 0.426)
pt3dadd(-5.522, 106.135, 8.879, 0.438)
pt3dadd(-5.629, 106.085, 8.898, 0.45)
pt3dadd(-5.688, 105.984, 8.9, 0.452)
pt3dadd(-5.742, 105.876, 8.9, 0.452)
pt3dadd(-5.831, 105.804, 8.9, 0.452)
pt3dadd(-5.938, 105.751, 8.9, 0.452)
pt3dadd(-6.051, 105.72, 8.9, 0.452)
pt3dadd(-6.171, 105.72, 8.9, 0.452)
pt3dadd(-6.291, 105.72, 8.9, 0.452)
pt3dadd(-6.411, 105.72, 8.9, 0.452)
pt3dadd(-6.531, 105.72, 8.9, 0.452)
pt3dadd(-6.651, 105.72, 8.9, 0.452)
pt3dadd(-6.771, 105.72, 8.9, 0.452)
pt3dadd(-6.891, 105.72, 8.9, 0.452)
pt3dadd(-7.01, 105.719, 8.907, 0.452)
pt3dadd(-7.129, 105.717, 8.924, 0.452)
pt3dadd(-7.247, 105.715, 8.941, 0.452)
pt3dadd(-7.365, 105.712, 8.957, 0.452)
pt3dadd(-7.483, 105.71, 8.974, 0.452)
pt3dadd(-7.602, 105.708, 8.991, 0.452)
pt3dadd(-7.717, 105.688, 9, 0.452)
pt3dadd(-7.83, 105.646, 9, 0.452)
pt3dadd(-7.943, 105.605, 9, 0.452)
pt3dadd(-8.055, 105.563, 9, 0.452)
pt3dadd(-8.168, 105.522, 9, 0.452)
pt3dadd(-8.28, 105.48, 9, 0.452)
pt3dadd(-8.399, 105.46, 9, 0.452)
pt3dadd(-8.517, 105.441, 9, 0.452)
pt3dadd(-8.635, 105.421, 9, 0.452)
pt3dadd(-8.754, 105.401, 9, 0.452)
pt3dadd(-8.872, 105.381, 9, 0.452)
pt3dadd(-8.99, 105.362, 9, 0.452)
pt3dadd(-9.11, 105.36, 9, 0.452)
pt3dadd(-9.23, 105.36, 9, 0.452)
pt3dadd(-9.35, 105.36, 9, 0.452)
pt3dadd(-9.47, 105.36, 9, 0.452)
pt3dadd(-9.59, 105.36, 9, 0.452)
pt3dadd(-9.71, 105.36, 9, 0.452)
pt3dadd(-9.83, 105.36, 9, 0.452)
pt3dadd(-9.946, 105.339, 9.018, 0.452)
pt3dadd(-10.062, 105.316, 9.037, 0.452)
pt3dadd(-10.177, 105.293, 9.056, 0.452)
pt3dadd(-10.293, 105.27, 9.075, 0.452)
pt3dadd(-10.408, 105.246, 9.095, 0.452)
pt3dadd(-10.517, 105.221, 9.129, 0.452)
pt3dadd(-10.623, 105.195, 9.17, 0.452)
pt3dadd(-10.73, 105.169, 9.211, 0.452)
pt3dadd(-10.836, 105.144, 9.252, 0.452)
pt3dadd(-10.943, 105.116, 9.289, 0.452)
pt3dadd(-11.054, 105.071, 9.291, 0.452)
pt3dadd(-11.165, 105.025, 9.293, 0.452)
pt3dadd(-11.276, 104.98, 9.295, 0.452)
pt3dadd(-11.387, 104.934, 9.297, 0.452)
pt3dadd(-11.498, 104.889, 9.3, 0.452)
pt3dadd(-11.61, 104.844, 9.3, 0.452)
pt3dadd(-11.721, 104.799, 9.3, 0.452)
pt3dadd(-11.833, 104.755, 9.3, 0.452)
pt3dadd(-11.944, 104.71, 9.3, 0.452)
pt3dadd(-12.055, 104.666, 9.3, 0.452)
pt3dadd(-12.168, 104.638, 9.288, 0.452)
pt3dadd(-12.283, 104.632, 9.259, 0.452)
pt3dadd(-12.397, 104.622, 9.232, 0.452)
pt3dadd(-12.503, 104.569, 9.215, 0.452)
pt3dadd(-12.606, 104.515, 9.195, 0.452)
pt3dadd(-12.683, 104.454, 9.138, 0.452)
pt3dadd(-12.761, 104.41, 9.075, 0.452)
pt3dadd(-12.84, 104.4, 9, 0.452)
}
apic[27] {pt3dclear()
pt3dadd(48.288, 108.349, 14.091, 0.678)
pt3dadd(48.216, 108.352, 14.107, 0.702)
pt3dadd(48.1, 108.357, 14.133, 0.738)
pt3dadd(47.984, 108.361, 14.158, 0.776)
pt3dadd(47.868, 108.366, 14.184, 0.812)
pt3dadd(47.753, 108.37, 14.21, 0.85)
pt3dadd(47.637, 108.375, 14.236, 0.888)
pt3dadd(47.521, 108.379, 14.262, 0.924)
pt3dadd(47.405, 108.383, 14.288, 0.962)
pt3dadd(47.29, 108.392, 14.312, 0.996)
pt3dadd(47.182, 108.443, 14.323, 0.992)
pt3dadd(47.075, 108.495, 14.334, 0.986)
}
}
proc shape3d_89() {
apic[27] { pt3dadd(46.967, 108.546, 14.345, 0.982)
pt3dadd(46.86, 108.598, 14.356, 0.976)
pt3dadd(46.752, 108.649, 14.367, 0.972)
pt3dadd(46.644, 108.701, 14.378, 0.966)
pt3dadd(46.537, 108.752, 14.389, 0.962)
pt3dadd(46.429, 108.804, 14.4, 0.956)
pt3dadd(46.322, 108.855, 14.411, 0.952)
pt3dadd(46.221, 108.919, 14.417, 0.934)
pt3dadd(46.126, 108.992, 14.419, 0.908)
pt3dadd(46.031, 109.065, 14.421, 0.884)
pt3dadd(45.936, 109.138, 14.423, 0.858)
pt3dadd(45.841, 109.212, 14.425, 0.832)
pt3dadd(45.746, 109.285, 14.427, 0.806)
pt3dadd(45.65, 109.358, 14.429, 0.78)
pt3dadd(45.555, 109.431, 14.431, 0.754)
pt3dadd(45.46, 109.504, 14.433, 0.728)
pt3dadd(45.365, 109.577, 14.435, 0.702)
pt3dadd(45.264, 109.641, 14.438, 0.714)
pt3dadd(45.158, 109.697, 14.441, 0.754)
pt3dadd(45.052, 109.753, 14.443, 0.794)
pt3dadd(44.946, 109.81, 14.446, 0.834)
pt3dadd(44.84, 109.866, 14.449, 0.872)
pt3dadd(44.734, 109.923, 14.452, 0.912)
pt3dadd(44.629, 109.979, 14.455, 0.952)
pt3dadd(44.523, 110.035, 14.459, 0.992)
pt3dadd(44.417, 110.092, 14.462, 1.032)
pt3dadd(44.311, 110.148, 14.465, 1.07)
pt3dadd(44.21, 110.212, 14.469, 1.064)
pt3dadd(44.112, 110.281, 14.475, 1.024)
pt3dadd(44.014, 110.351, 14.481, 0.982)
pt3dadd(43.917, 110.42, 14.487, 0.942)
pt3dadd(43.819, 110.489, 14.493, 0.902)
pt3dadd(43.721, 110.559, 14.498, 0.862)
pt3dadd(43.624, 110.628, 14.504, 0.82)
pt3dadd(43.526, 110.697, 14.51, 0.78)
pt3dadd(43.428, 110.767, 14.516, 0.74)
pt3dadd(43.331, 110.836, 14.522, 0.698)
pt3dadd(43.236, 110.909, 14.529, 0.674)
pt3dadd(43.143, 110.984, 14.538, 0.66)
pt3dadd(43.049, 111.059, 14.546, 0.646)
pt3dadd(42.956, 111.134, 14.554, 0.632)
pt3dadd(42.863, 111.209, 14.563, 0.618)
pt3dadd(42.77, 111.284, 14.571, 0.602)
pt3dadd(42.677, 111.359, 14.579, 0.588)
pt3dadd(42.584, 111.434, 14.588, 0.574)
pt3dadd(42.491, 111.509, 14.596, 0.56)
pt3dadd(42.398, 111.584, 14.604, 0.546)
pt3dadd(42.307, 111.661, 14.617, 0.55)
pt3dadd(42.219, 111.74, 14.633, 0.568)
pt3dadd(42.13, 111.819, 14.649, 0.586)
pt3dadd(42.041, 111.897, 14.664, 0.602)
pt3dadd(41.953, 111.976, 14.68, 0.62)
pt3dadd(41.864, 112.055, 14.696, 0.638)
pt3dadd(41.775, 112.133, 14.712, 0.654)
pt3dadd(41.687, 112.212, 14.727, 0.672)
pt3dadd(41.598, 112.29, 14.743, 0.69)
pt3dadd(41.51, 112.369, 14.759, 0.706)
pt3dadd(41.429, 112.446, 14.793, 0.724)
pt3dadd(41.351, 112.523, 14.835, 0.742)
pt3dadd(41.274, 112.599, 14.877, 0.76)
pt3dadd(41.196, 112.676, 14.919, 0.778)
pt3dadd(41.119, 112.752, 14.961, 0.796)
pt3dadd(41.041, 112.828, 15.003, 0.814)
pt3dadd(40.964, 112.905, 15.046, 0.832)
pt3dadd(40.887, 112.981, 15.088, 0.85)
pt3dadd(40.809, 113.058, 15.13, 0.868)
pt3dadd(40.732, 113.134, 15.172, 0.886)
pt3dadd(40.65, 113.214, 15.202, 0.88)
pt3dadd(40.567, 113.296, 15.226, 0.862)
pt3dadd(40.484, 113.377, 15.25, 0.844)
pt3dadd(40.401, 113.459, 15.274, 0.826)
pt3dadd(40.317, 113.54, 15.298, 0.808)
pt3dadd(40.234, 113.622, 15.322, 0.79)
pt3dadd(40.151, 113.703, 15.346, 0.772)
pt3dadd(40.068, 113.785, 15.37, 0.754)
pt3dadd(39.985, 113.866, 15.394, 0.736)
pt3dadd(39.902, 113.948, 15.418, 0.72)
pt3dadd(39.817, 114.03, 15.435, 0.694)
pt3dadd(39.732, 114.113, 15.449, 0.666)
pt3dadd(39.646, 114.196, 15.463, 0.638)
pt3dadd(39.561, 114.278, 15.477, 0.608)
pt3dadd(39.476, 114.361, 15.49, 0.58)
pt3dadd(39.39, 114.444, 15.504, 0.552)
pt3dadd(39.305, 114.527, 15.518, 0.524)
pt3dadd(39.22, 114.609, 15.532, 0.496)
pt3dadd(39.134, 114.692, 15.546, 0.466)
pt3dadd(39.049, 114.775, 15.56, 0.438)
pt3dadd(38.963, 114.857, 15.57, 0.42)
pt3dadd(38.876, 114.94, 15.579, 0.404)
pt3dadd(38.79, 115.022, 15.588, 0.388)
pt3dadd(38.703, 115.104, 15.598, 0.372)
pt3dadd(38.616, 115.187, 15.607, 0.356)
pt3dadd(38.53, 115.269, 15.616, 0.342)
pt3dadd(38.443, 115.352, 15.625, 0.326)
pt3dadd(38.357, 115.434, 15.634, 0.31)
pt3dadd(38.27, 115.516, 15.643, 0.294)
pt3dadd(38.184, 115.599, 15.653, 0.28)
pt3dadd(38.096, 115.68, 15.659, 0.284)
pt3dadd(38.008, 115.762, 15.664, 0.298)
pt3dadd(37.92, 115.843, 15.669, 0.314)
pt3dadd(37.832, 115.924, 15.674, 0.328)
pt3dadd(37.744, 116.006, 15.679, 0.342)
pt3dadd(37.656, 116.087, 15.685, 0.356)
pt3dadd(37.568, 116.169, 15.69, 0.37)
pt3dadd(37.48, 116.25, 15.695, 0.384)
pt3dadd(37.392, 116.331, 15.7, 0.398)
pt3dadd(37.304, 116.413, 15.705, 0.412)
pt3dadd(37.215, 116.493, 15.712, 0.434)
pt3dadd(37.126, 116.572, 15.72, 0.46)
pt3dadd(37.036, 116.652, 15.728, 0.484)
pt3dadd(36.947, 116.731, 15.736, 0.51)
pt3dadd(36.858, 116.811, 15.744, 0.534)
pt3dadd(36.768, 116.89, 15.752, 0.56)
pt3dadd(36.679, 116.969, 15.759, 0.586)
pt3dadd(36.589, 117.049, 15.767, 0.61)
pt3dadd(36.5, 117.128, 15.775, 0.636)
pt3dadd(36.41, 117.208, 15.783, 0.662)
pt3dadd(36.319, 117.284, 15.795, 0.678)
pt3dadd(36.227, 117.359, 15.808, 0.694)
pt3dadd(36.135, 117.435, 15.821, 0.708)
pt3dadd(36.042, 117.51, 15.834, 0.724)
pt3dadd(35.95, 117.585, 15.848, 0.738)
pt3dadd(35.858, 117.66, 15.861, 0.754)
pt3dadd(35.766, 117.735, 15.874, 0.768)
pt3dadd(35.674, 117.811, 15.887, 0.784)
pt3dadd(35.582, 117.886, 15.901, 0.798)
pt3dadd(35.49, 117.961, 15.914, 0.812)
pt3dadd(35.393, 118.022, 15.943, 0.778)
pt3dadd(35.295, 118.079, 15.976, 0.732)
pt3dadd(35.197, 118.135, 16.008, 0.684)
pt3dadd(35.099, 118.192, 16.041, 0.636)
pt3dadd(35, 118.249, 16.074, 0.59)
pt3dadd(34.902, 118.306, 16.107, 0.542)
pt3dadd(34.804, 118.363, 16.139, 0.494)
pt3dadd(34.706, 118.42, 16.172, 0.448)
pt3dadd(34.608, 118.477, 16.205, 0.4)
pt3dadd(34.51, 118.534, 16.237, 0.352)
pt3dadd(34.413, 118.598, 16.262, 0.334)
pt3dadd(34.317, 118.663, 16.285, 0.322)
pt3dadd(34.22, 118.729, 16.308, 0.31)
pt3dadd(34.124, 118.795, 16.331, 0.298)
pt3dadd(34.027, 118.861, 16.354, 0.286)
pt3dadd(33.931, 118.926, 16.377, 0.274)
pt3dadd(33.834, 118.992, 16.4, 0.264)
pt3dadd(33.738, 119.058, 16.423, 0.252)
pt3dadd(33.641, 119.124, 16.446, 0.24)
pt3dadd(33.545, 119.19, 16.469, 0.228)
pt3dadd(33.449, 119.259, 16.487, 0.226)
pt3dadd(33.354, 119.329, 16.503, 0.226)
pt3dadd(33.259, 119.399, 16.52, 0.226)
pt3dadd(33.163, 119.47, 16.536, 0.226)
pt3dadd(33.068, 119.54, 16.553, 0.226)
pt3dadd(32.973, 119.61, 16.569, 0.226)
pt3dadd(32.877, 119.68, 16.586, 0.226)
pt3dadd(32.782, 119.751, 16.603, 0.226)
pt3dadd(32.687, 119.821, 16.619, 0.226)
pt3dadd(32.592, 119.891, 16.636, 0.226)
pt3dadd(32.498, 119.965, 16.646, 0.226)
pt3dadd(32.404, 120.04, 16.654, 0.226)
pt3dadd(32.311, 120.114, 16.663, 0.226)
pt3dadd(32.217, 120.188, 16.672, 0.226)
pt3dadd(32.124, 120.263, 16.68, 0.226)
pt3dadd(32.03, 120.337, 16.689, 0.226)
pt3dadd(31.937, 120.412, 16.698, 0.226)
pt3dadd(31.843, 120.486, 16.706, 0.226)
pt3dadd(31.75, 120.56, 16.715, 0.226)
pt3dadd(31.656, 120.635, 16.724, 0.226)
pt3dadd(31.564, 120.712, 16.727, 0.236)
pt3dadd(31.471, 120.787, 16.729, 0.248)
pt3dadd(31.379, 120.864, 16.73, 0.258)
pt3dadd(31.286, 120.941, 16.732, 0.27)
pt3dadd(31.194, 121.018, 16.734, 0.282)
pt3dadd(31.102, 121.093, 16.736, 0.294)
pt3dadd(31.009, 121.17, 16.738, 0.306)
pt3dadd(30.917, 121.247, 16.74, 0.318)
pt3dadd(30.824, 121.324, 16.741, 0.33)
pt3dadd(30.732, 121.399, 16.743, 0.34)
pt3dadd(30.636, 121.471, 16.744, 0.352)
pt3dadd(30.539, 121.543, 16.744, 0.362)
pt3dadd(30.443, 121.614, 16.744, 0.374)
pt3dadd(30.346, 121.685, 16.744, 0.384)
pt3dadd(30.249, 121.756, 16.744, 0.396)
pt3dadd(30.153, 121.828, 16.744, 0.406)
pt3dadd(30.056, 121.898, 16.744, 0.418)
pt3dadd(29.959, 121.969, 16.744, 0.428)
pt3dadd(29.862, 122.04, 16.744, 0.44)
pt3dadd(29.766, 122.112, 16.744, 0.45)
pt3dadd(29.659, 122.166, 16.744, 0.452)
pt3dadd(29.552, 122.22, 16.744, 0.452)
pt3dadd(29.444, 122.273, 16.744, 0.452)
pt3dadd(29.336, 122.326, 16.744, 0.452)
pt3dadd(29.229, 122.378, 16.744, 0.452)
pt3dadd(29.121, 122.431, 16.744, 0.452)
pt3dadd(29.013, 122.485, 16.744, 0.452)
pt3dadd(28.906, 122.538, 16.744, 0.452)
pt3dadd(28.798, 122.591, 16.744, 0.452)
pt3dadd(28.691, 122.644, 16.744, 0.452)
pt3dadd(28.585, 122.701, 16.744, 0.452)
pt3dadd(28.479, 122.758, 16.744, 0.452)
pt3dadd(28.374, 122.815, 16.744, 0.452)
}
}
proc shape3d_90() {
apic[27] { pt3dadd(28.269, 122.873, 16.744, 0.452)
pt3dadd(28.163, 122.93, 16.744, 0.452)
pt3dadd(28.058, 122.988, 16.744, 0.452)
pt3dadd(27.953, 123.044, 16.744, 0.452)
pt3dadd(27.847, 123.102, 16.744, 0.452)
pt3dadd(27.742, 123.16, 16.744, 0.452)
pt3dadd(27.636, 123.217, 16.744, 0.452)
pt3dadd(27.526, 123.264, 16.744, 0.462)
pt3dadd(27.415, 123.31, 16.744, 0.474)
pt3dadd(27.304, 123.355, 16.744, 0.486)
pt3dadd(27.193, 123.401, 16.744, 0.496)
pt3dadd(27.082, 123.446, 16.744, 0.508)
pt3dadd(26.971, 123.492, 16.744, 0.52)
pt3dadd(26.86, 123.538, 16.744, 0.532)
pt3dadd(26.749, 123.582, 16.745, 0.542)
pt3dadd(26.638, 123.628, 16.745, 0.554)
pt3dadd(26.527, 123.673, 16.745, 0.566)
pt3dadd(26.412, 123.709, 16.745, 0.576)
pt3dadd(26.297, 123.744, 16.745, 0.588)
pt3dadd(26.183, 123.779, 16.745, 0.6)
pt3dadd(26.068, 123.814, 16.745, 0.61)
pt3dadd(25.953, 123.85, 16.745, 0.622)
pt3dadd(25.838, 123.884, 16.745, 0.632)
pt3dadd(25.723, 123.919, 16.745, 0.644)
pt3dadd(25.608, 123.954, 16.745, 0.654)
pt3dadd(25.494, 123.989, 16.745, 0.666)
pt3dadd(25.379, 124.024, 16.745, 0.678)
pt3dadd(25.264, 124.058, 16.746, 0.678)
pt3dadd(25.149, 124.092, 16.746, 0.678)
pt3dadd(25.034, 124.127, 16.746, 0.678)
pt3dadd(24.919, 124.16, 16.746, 0.678)
pt3dadd(24.804, 124.195, 16.746, 0.678)
pt3dadd(24.689, 124.23, 16.746, 0.678)
pt3dadd(24.574, 124.264, 16.747, 0.678)
pt3dadd(24.459, 124.298, 16.747, 0.678)
pt3dadd(24.344, 124.332, 16.747, 0.678)
pt3dadd(24.229, 124.367, 16.747, 0.678)
pt3dadd(24.12, 124.418, 16.747, 0.678)
pt3dadd(24.012, 124.47, 16.748, 0.678)
pt3dadd(23.904, 124.522, 16.748, 0.678)
pt3dadd(23.796, 124.573, 16.748, 0.678)
pt3dadd(23.688, 124.625, 16.748, 0.678)
pt3dadd(23.579, 124.678, 16.749, 0.678)
pt3dadd(23.471, 124.729, 16.749, 0.678)
pt3dadd(23.363, 124.781, 16.749, 0.678)
pt3dadd(23.255, 124.832, 16.749, 0.678)
pt3dadd(23.146, 124.884, 16.75, 0.678)
pt3dadd(23.035, 124.928, 16.75, 0.662)
pt3dadd(22.923, 124.973, 16.751, 0.646)
pt3dadd(22.812, 125.016, 16.751, 0.63)
pt3dadd(22.7, 125.06, 16.752, 0.614)
pt3dadd(22.588, 125.104, 16.752, 0.598)
pt3dadd(22.476, 125.148, 16.753, 0.582)
pt3dadd(22.365, 125.191, 16.754, 0.566)
pt3dadd(22.253, 125.236, 16.754, 0.55)
pt3dadd(22.141, 125.279, 16.755, 0.534)
pt3dadd(22.029, 125.323, 16.755, 0.518)
pt3dadd(21.921, 125.375, 16.756, 0.522)
pt3dadd(21.813, 125.428, 16.757, 0.526)
pt3dadd(21.706, 125.48, 16.758, 0.53)
pt3dadd(21.598, 125.532, 16.759, 0.534)
pt3dadd(21.49, 125.585, 16.76, 0.538)
pt3dadd(21.382, 125.638, 16.761, 0.542)
pt3dadd(21.274, 125.689, 16.762, 0.546)
pt3dadd(21.166, 125.742, 16.763, 0.55)
pt3dadd(21.058, 125.795, 16.764, 0.556)
pt3dadd(20.95, 125.846, 16.765, 0.56)
pt3dadd(20.842, 125.899, 16.767, 0.56)
pt3dadd(20.734, 125.951, 16.769, 0.562)
pt3dadd(20.626, 126.004, 16.77, 0.562)
pt3dadd(20.518, 126.055, 16.772, 0.564)
pt3dadd(20.41, 126.108, 16.774, 0.564)
pt3dadd(20.302, 126.16, 16.776, 0.564)
pt3dadd(20.194, 126.212, 16.777, 0.566)
pt3dadd(20.085, 126.264, 16.779, 0.568)
pt3dadd(19.977, 126.316, 16.78, 0.568)
pt3dadd(19.869, 126.368, 16.782, 0.568)
pt3dadd(19.755, 126.406, 16.785, 0.534)
pt3dadd(19.642, 126.444, 16.788, 0.5)
pt3dadd(19.528, 126.481, 16.791, 0.466)
pt3dadd(19.414, 126.52, 16.794, 0.43)
pt3dadd(19.3, 126.557, 16.797, 0.396)
pt3dadd(19.186, 126.595, 16.8, 0.362)
pt3dadd(19.072, 126.632, 16.803, 0.328)
pt3dadd(18.959, 126.671, 16.806, 0.294)
pt3dadd(18.845, 126.708, 16.809, 0.26)
pt3dadd(18.731, 126.746, 16.812, 0.226)
pt3dadd(18.615, 126.776, 16.819, 0.226)
pt3dadd(18.5, 126.808, 16.826, 0.226)
pt3dadd(18.384, 126.839, 16.833, 0.226)
pt3dadd(18.268, 126.87, 16.839, 0.226)
pt3dadd(18.153, 126.901, 16.846, 0.226)
pt3dadd(18.037, 126.931, 16.853, 0.226)
pt3dadd(17.921, 126.962, 16.86, 0.226)
pt3dadd(17.806, 126.994, 16.867, 0.226)
pt3dadd(17.69, 127.025, 16.873, 0.226)
pt3dadd(17.575, 127.056, 16.88, 0.226)
pt3dadd(17.466, 127.106, 16.89, 0.226)
pt3dadd(17.358, 127.156, 16.9, 0.226)
pt3dadd(17.249, 127.206, 16.91, 0.226)
pt3dadd(17.141, 127.255, 16.92, 0.226)
pt3dadd(17.032, 127.306, 16.93, 0.226)
pt3dadd(16.924, 127.356, 16.94, 0.226)
pt3dadd(16.815, 127.405, 16.95, 0.226)
pt3dadd(16.707, 127.456, 16.96, 0.226)
pt3dadd(16.598, 127.505, 16.97, 0.226)
pt3dadd(16.49, 127.555, 16.98, 0.226)
pt3dadd(16.384, 127.603, 17.004, 0.226)
pt3dadd(16.278, 127.652, 17.028, 0.226)
pt3dadd(16.172, 127.7, 17.051, 0.226)
pt3dadd(16.066, 127.748, 17.075, 0.226)
pt3dadd(15.96, 127.798, 17.099, 0.226)
pt3dadd(15.854, 127.846, 17.122, 0.226)
pt3dadd(15.748, 127.894, 17.146, 0.226)
pt3dadd(15.642, 127.943, 17.17, 0.226)
pt3dadd(15.535, 127.991, 17.193, 0.226)
pt3dadd(15.43, 128.039, 17.218, 0.226)
pt3dadd(15.326, 128.086, 17.251, 0.232)
pt3dadd(15.223, 128.134, 17.283, 0.238)
pt3dadd(15.12, 128.18, 17.315, 0.244)
pt3dadd(15.016, 128.227, 17.348, 0.25)
pt3dadd(14.913, 128.274, 17.38, 0.256)
pt3dadd(14.81, 128.322, 17.412, 0.262)
pt3dadd(14.706, 128.369, 17.445, 0.268)
pt3dadd(14.603, 128.416, 17.477, 0.274)
pt3dadd(14.5, 128.462, 17.509, 0.28)
pt3dadd(14.397, 128.513, 17.54, 0.29)
pt3dadd(14.298, 128.576, 17.56, 0.322)
pt3dadd(14.199, 128.639, 17.581, 0.354)
pt3dadd(14.1, 128.702, 17.602, 0.386)
pt3dadd(14.002, 128.766, 17.622, 0.418)
pt3dadd(13.903, 128.828, 17.643, 0.45)
pt3dadd(13.804, 128.892, 17.664, 0.482)
pt3dadd(13.705, 128.956, 17.684, 0.514)
pt3dadd(13.606, 129.018, 17.705, 0.546)
pt3dadd(13.507, 129.082, 17.726, 0.578)
pt3dadd(13.407, 129.144, 17.745, 0.606)
pt3dadd(13.301, 129.198, 17.758, 0.614)
pt3dadd(13.196, 129.253, 17.771, 0.62)
pt3dadd(13.09, 129.308, 17.784, 0.628)
pt3dadd(12.985, 129.364, 17.797, 0.636)
pt3dadd(12.879, 129.419, 17.81, 0.642)
pt3dadd(12.774, 129.473, 17.823, 0.65)
pt3dadd(12.668, 129.528, 17.836, 0.658)
pt3dadd(12.563, 129.583, 17.848, 0.664)
pt3dadd(12.457, 129.638, 17.861, 0.672)
pt3dadd(12.352, 129.695, 17.873, 0.676)
pt3dadd(12.25, 129.757, 17.879, 0.66)
pt3dadd(12.148, 129.82, 17.885, 0.646)
pt3dadd(12.045, 129.882, 17.892, 0.63)
pt3dadd(11.943, 129.944, 17.898, 0.616)
pt3dadd(11.841, 130.007, 17.904, 0.602)
pt3dadd(11.739, 130.069, 17.91, 0.586)
pt3dadd(11.636, 130.132, 17.917, 0.572)
pt3dadd(11.534, 130.194, 17.923, 0.558)
pt3dadd(11.432, 130.256, 17.929, 0.542)
pt3dadd(11.331, 130.321, 17.934, 0.524)
pt3dadd(11.236, 130.393, 17.935, 0.494)
pt3dadd(11.141, 130.466, 17.936, 0.462)
pt3dadd(11.045, 130.54, 17.938, 0.432)
pt3dadd(10.95, 130.612, 17.939, 0.402)
pt3dadd(10.854, 130.685, 17.94, 0.372)
pt3dadd(10.759, 130.758, 17.941, 0.34)
pt3dadd(10.664, 130.83, 17.942, 0.31)
pt3dadd(10.568, 130.903, 17.944, 0.28)
pt3dadd(10.473, 130.976, 17.945, 0.248)
pt3dadd(10.379, 131.051, 17.946, 0.226)
pt3dadd(10.29, 131.131, 17.949, 0.226)
pt3dadd(10.201, 131.212, 17.951, 0.226)
pt3dadd(10.112, 131.292, 17.953, 0.226)
pt3dadd(10.024, 131.374, 17.955, 0.226)
pt3dadd(9.935, 131.454, 17.958, 0.226)
pt3dadd(9.846, 131.534, 17.96, 0.226)
pt3dadd(9.757, 131.615, 17.962, 0.226)
pt3dadd(9.668, 131.695, 17.965, 0.226)
pt3dadd(9.579, 131.777, 17.967, 0.226)
pt3dadd(9.491, 131.858, 17.97, 0.232)
pt3dadd(9.406, 131.941, 17.973, 0.252)
pt3dadd(9.32, 132.025, 17.977, 0.274)
pt3dadd(9.234, 132.109, 17.981, 0.294)
pt3dadd(9.149, 132.193, 17.985, 0.316)
pt3dadd(9.063, 132.277, 17.989, 0.336)
pt3dadd(8.978, 132.361, 17.993, 0.356)
pt3dadd(8.892, 132.445, 17.996, 0.378)
pt3dadd(8.806, 132.529, 18, 0.398)
pt3dadd(8.721, 132.613, 18.004, 0.42)
pt3dadd(8.636, 132.698, 18.008, 0.446)
pt3dadd(8.554, 132.785, 18.014, 0.49)
pt3dadd(8.471, 132.872, 18.019, 0.532)
pt3dadd(8.389, 132.959, 18.025, 0.574)
pt3dadd(8.307, 133.046, 18.03, 0.618)
pt3dadd(8.225, 133.134, 18.035, 0.66)
pt3dadd(8.142, 133.22, 18.041, 0.704)
pt3dadd(8.06, 133.308, 18.046, 0.746)
pt3dadd(7.978, 133.394, 18.052, 0.79)
pt3dadd(7.896, 133.482, 18.057, 0.832)
pt3dadd(7.814, 133.57, 18.063, 0.858)
pt3dadd(7.733, 133.658, 18.073, 0.836)
pt3dadd(7.653, 133.746, 18.082, 0.812)
pt3dadd(7.572, 133.835, 18.091, 0.79)
}
}
proc shape3d_91() {
apic[27] { pt3dadd(7.492, 133.922, 18.1, 0.768)
pt3dadd(7.411, 134.011, 18.109, 0.744)
pt3dadd(7.331, 134.099, 18.118, 0.722)
pt3dadd(7.25, 134.188, 18.127, 0.698)
pt3dadd(7.169, 134.276, 18.136, 0.676)
pt3dadd(7.089, 134.364, 18.145, 0.654)
pt3dadd(7.01, 134.453, 18.156, 0.63)
pt3dadd(6.936, 134.545, 18.176, 0.606)
pt3dadd(6.862, 134.636, 18.195, 0.58)
pt3dadd(6.789, 134.729, 18.215, 0.556)
pt3dadd(6.715, 134.82, 18.234, 0.53)
pt3dadd(6.641, 134.911, 18.254, 0.506)
pt3dadd(6.567, 135.004, 18.273, 0.48)
pt3dadd(6.493, 135.095, 18.293, 0.456)
pt3dadd(6.42, 135.187, 18.313, 0.43)
pt3dadd(6.346, 135.278, 18.332, 0.406)
pt3dadd(6.277, 135.371, 18.358, 0.384)
pt3dadd(6.216, 135.466, 18.393, 0.368)
pt3dadd(6.155, 135.559, 18.429, 0.352)
pt3dadd(6.095, 135.654, 18.464, 0.336)
pt3dadd(6.034, 135.748, 18.5, 0.32)
pt3dadd(5.973, 135.842, 18.535, 0.304)
pt3dadd(5.912, 135.936, 18.571, 0.288)
pt3dadd(5.851, 136.031, 18.607, 0.272)
pt3dadd(5.791, 136.126, 18.642, 0.254)
pt3dadd(5.73, 136.219, 18.678, 0.238)
pt3dadd(5.663, 136.312, 18.709, 0.236)
pt3dadd(5.588, 136.4, 18.733, 0.252)
pt3dadd(5.512, 136.488, 18.757, 0.268)
pt3dadd(5.436, 136.577, 18.781, 0.286)
pt3dadd(5.361, 136.666, 18.805, 0.302)
pt3dadd(5.285, 136.754, 18.829, 0.32)
pt3dadd(5.21, 136.843, 18.853, 0.336)
pt3dadd(5.134, 136.932, 18.877, 0.354)
pt3dadd(5.058, 137.02, 18.901, 0.37)
pt3dadd(4.983, 137.108, 18.925, 0.386)
pt3dadd(4.901, 137.191, 18.948, 0.404)
pt3dadd(4.808, 137.263, 18.969, 0.424)
pt3dadd(4.715, 137.334, 18.989, 0.442)
pt3dadd(4.622, 137.406, 19.01, 0.462)
pt3dadd(4.529, 137.478, 19.03, 0.48)
pt3dadd(4.436, 137.55, 19.051, 0.5)
pt3dadd(4.343, 137.622, 19.072, 0.518)
pt3dadd(4.251, 137.694, 19.092, 0.536)
pt3dadd(4.158, 137.766, 19.113, 0.556)
pt3dadd(4.065, 137.838, 19.134, 0.574)
pt3dadd(3.969, 137.906, 19.151, 0.584)
pt3dadd(3.87, 137.971, 19.166, 0.584)
pt3dadd(3.771, 138.037, 19.181, 0.584)
pt3dadd(3.672, 138.102, 19.195, 0.584)
pt3dadd(3.573, 138.168, 19.21, 0.584)
pt3dadd(3.473, 138.233, 19.225, 0.584)
pt3dadd(3.374, 138.299, 19.24, 0.584)
pt3dadd(3.275, 138.364, 19.254, 0.584)
pt3dadd(3.176, 138.43, 19.269, 0.584)
pt3dadd(3.077, 138.494, 19.284, 0.584)
pt3dadd(2.979, 138.56, 19.302, 0.58)
pt3dadd(2.883, 138.626, 19.323, 0.574)
pt3dadd(2.786, 138.694, 19.345, 0.566)
pt3dadd(2.69, 138.76, 19.367, 0.56)
pt3dadd(2.593, 138.826, 19.389, 0.552)
pt3dadd(2.497, 138.893, 19.41, 0.546)
pt3dadd(2.4, 138.959, 19.432, 0.538)
pt3dadd(2.304, 139.026, 19.454, 0.532)
pt3dadd(2.207, 139.092, 19.475, 0.524)
pt3dadd(2.111, 139.158, 19.497, 0.518)
pt3dadd(2.02, 139.224, 19.532, 0.526)
pt3dadd(1.933, 139.288, 19.575, 0.542)
pt3dadd(1.846, 139.352, 19.617, 0.558)
pt3dadd(1.758, 139.417, 19.66, 0.574)
pt3dadd(1.671, 139.481, 19.703, 0.59)
pt3dadd(1.584, 139.546, 19.745, 0.608)
pt3dadd(1.496, 139.61, 19.788, 0.624)
pt3dadd(1.409, 139.675, 19.831, 0.64)
pt3dadd(1.322, 139.739, 19.873, 0.656)
pt3dadd(1.234, 139.804, 19.916, 0.674)
pt3dadd(1.144, 139.873, 19.946, 0.674)
pt3dadd(1.053, 139.946, 19.971, 0.668)
pt3dadd(0.962, 140.018, 19.995, 0.664)
pt3dadd(0.871, 140.09, 20.02, 0.658)
pt3dadd(0.78, 140.164, 20.045, 0.654)
pt3dadd(0.689, 140.236, 20.07, 0.648)
pt3dadd(0.598, 140.308, 20.094, 0.642)
pt3dadd(0.507, 140.38, 20.119, 0.638)
pt3dadd(0.416, 140.453, 20.144, 0.632)
pt3dadd(0.325, 140.525, 20.169, 0.626)
pt3dadd(0.224, 140.585, 20.186, 0.596)
pt3dadd(0.119, 140.64, 20.2, 0.556)
pt3dadd(0.014, 140.696, 20.215, 0.516)
pt3dadd(-0.091, 140.752, 20.229, 0.478)
pt3dadd(-0.195, 140.808, 20.244, 0.438)
pt3dadd(-0.3, 140.863, 20.258, 0.398)
pt3dadd(-0.405, 140.92, 20.273, 0.36)
pt3dadd(-0.51, 140.975, 20.287, 0.32)
pt3dadd(-0.615, 141.031, 20.302, 0.28)
pt3dadd(-0.719, 141.086, 20.316, 0.24)
pt3dadd(-0.818, 141.154, 20.324, 0.23)
pt3dadd(-0.915, 141.224, 20.331, 0.23)
pt3dadd(-1.012, 141.294, 20.338, 0.23)
pt3dadd(-1.109, 141.365, 20.344, 0.228)
pt3dadd(-1.206, 141.434, 20.351, 0.228)
pt3dadd(-1.303, 141.505, 20.357, 0.228)
pt3dadd(-1.4, 141.576, 20.364, 0.228)
pt3dadd(-1.497, 141.646, 20.371, 0.228)
pt3dadd(-1.593, 141.716, 20.377, 0.226)
pt3dadd(-1.69, 141.787, 20.384, 0.226)
pt3dadd(-1.784, 141.862, 20.393, 0.226)
pt3dadd(-1.876, 141.937, 20.402, 0.226)
pt3dadd(-1.968, 142.013, 20.412, 0.226)
pt3dadd(-2.061, 142.088, 20.421, 0.226)
pt3dadd(-2.153, 142.164, 20.431, 0.226)
pt3dadd(-2.245, 142.24, 20.44, 0.226)
pt3dadd(-2.338, 142.316, 20.449, 0.226)
pt3dadd(-2.43, 142.392, 20.459, 0.226)
pt3dadd(-2.522, 142.468, 20.469, 0.226)
pt3dadd(-2.615, 142.543, 20.478, 0.226)
pt3dadd(-2.703, 142.621, 20.498, 0.226)
pt3dadd(-2.789, 142.699, 20.521, 0.226)
pt3dadd(-2.876, 142.777, 20.545, 0.226)
pt3dadd(-2.962, 142.856, 20.568, 0.226)
pt3dadd(-3.048, 142.934, 20.591, 0.226)
pt3dadd(-3.135, 143.012, 20.615, 0.226)
pt3dadd(-3.222, 143.092, 20.638, 0.226)
pt3dadd(-3.308, 143.17, 20.661, 0.226)
pt3dadd(-3.394, 143.248, 20.684, 0.226)
pt3dadd(-3.481, 143.326, 20.708, 0.226)
pt3dadd(-3.558, 143.404, 20.749, 0.226)
pt3dadd(-3.635, 143.479, 20.792, 0.226)
pt3dadd(-3.712, 143.556, 20.835, 0.226)
pt3dadd(-3.789, 143.633, 20.877, 0.226)
pt3dadd(-3.865, 143.71, 20.92, 0.226)
pt3dadd(-3.942, 143.786, 20.963, 0.226)
pt3dadd(-4.019, 143.863, 21.005, 0.226)
pt3dadd(-4.095, 143.94, 21.048, 0.226)
pt3dadd(-4.172, 144.017, 21.091, 0.226)
pt3dadd(-4.249, 144.094, 21.133, 0.226)
pt3dadd(-4.33, 144.175, 21.162, 0.226)
pt3dadd(-4.411, 144.257, 21.191, 0.226)
pt3dadd(-4.493, 144.337, 21.22, 0.226)
pt3dadd(-4.574, 144.419, 21.249, 0.226)
pt3dadd(-4.655, 144.5, 21.278, 0.226)
pt3dadd(-4.736, 144.581, 21.307, 0.226)
pt3dadd(-4.817, 144.662, 21.336, 0.226)
pt3dadd(-4.899, 144.744, 21.365, 0.226)
pt3dadd(-4.98, 144.824, 21.394, 0.226)
pt3dadd(-5.061, 144.906, 21.423, 0.226)
}
apic[28] {pt3dclear()
pt3dadd(55.307, 108.403, 14.397, 0.904)
pt3dadd(55.307, 108.33, 14.397, 0.868)
pt3dadd(55.307, 108.21, 14.398, 0.81)
pt3dadd(55.307, 108.09, 14.398, 0.752)
pt3dadd(55.307, 107.97, 14.399, 0.694)
pt3dadd(55.307, 107.85, 14.399, 0.636)
pt3dadd(55.307, 107.73, 14.4, 0.578)
pt3dadd(55.307, 107.61, 14.401, 0.52)
pt3dadd(55.251, 107.515, 14.432, 0.48)
pt3dadd(55.187, 107.423, 14.468, 0.444)
pt3dadd(55.122, 107.331, 14.503, 0.406)
pt3dadd(55.058, 107.239, 14.539, 0.37)
pt3dadd(54.994, 107.147, 14.574, 0.332)
pt3dadd(54.93, 107.055, 14.61, 0.294)
pt3dadd(54.866, 106.963, 14.646, 0.258)
pt3dadd(54.796, 106.882, 14.684, 0.226)
pt3dadd(54.696, 106.857, 14.735, 0.232)
pt3dadd(54.596, 106.833, 14.787, 0.238)
pt3dadd(54.496, 106.808, 14.838, 0.242)
pt3dadd(54.396, 106.784, 14.89, 0.248)
pt3dadd(54.296, 106.759, 14.941, 0.254)
pt3dadd(54.196, 106.735, 14.992, 0.258)
pt3dadd(54.096, 106.71, 15.044, 0.264)
pt3dadd(53.997, 106.686, 15.095, 0.27)
pt3dadd(53.897, 106.662, 15.147, 0.274)
pt3dadd(53.795, 106.634, 15.194, 0.286)
pt3dadd(53.688, 106.591, 15.221, 0.324)
pt3dadd(53.581, 106.548, 15.249, 0.36)
pt3dadd(53.474, 106.505, 15.277, 0.398)
pt3dadd(53.367, 106.462, 15.305, 0.436)
pt3dadd(53.261, 106.419, 15.333, 0.474)
pt3dadd(53.154, 106.376, 15.36, 0.51)
pt3dadd(53.047, 106.332, 15.388, 0.548)
pt3dadd(52.94, 106.29, 15.416, 0.586)
pt3dadd(52.833, 106.247, 15.444, 0.624)
pt3dadd(52.736, 106.186, 15.466, 0.64)
pt3dadd(52.658, 106.097, 15.477, 0.618)
pt3dadd(52.579, 106.007, 15.488, 0.596)
pt3dadd(52.501, 105.917, 15.499, 0.574)
pt3dadd(52.423, 105.827, 15.511, 0.552)
pt3dadd(52.344, 105.737, 15.522, 0.53)
pt3dadd(52.266, 105.647, 15.533, 0.508)
pt3dadd(52.188, 105.558, 15.544, 0.488)
pt3dadd(52.109, 105.468, 15.556, 0.466)
pt3dadd(52.031, 105.378, 15.567, 0.444)
pt3dadd(51.954, 105.286, 15.574, 0.424)
pt3dadd(51.881, 105.191, 15.574, 0.406)
pt3dadd(51.808, 105.096, 15.574, 0.39)
pt3dadd(51.735, 105, 15.574, 0.372)
pt3dadd(51.662, 104.905, 15.574, 0.356)
pt3dadd(51.589, 104.81, 15.574, 0.338)
pt3dadd(51.516, 104.715, 15.574, 0.32)
pt3dadd(51.443, 104.62, 15.574, 0.304)
pt3dadd(51.369, 104.525, 15.574, 0.286)
}
}
proc shape3d_92() {
apic[28] { pt3dadd(51.296, 104.43, 15.574, 0.268)
pt3dadd(51.223, 104.334, 15.574, 0.262)
pt3dadd(51.15, 104.239, 15.574, 0.27)
pt3dadd(51.076, 104.145, 15.574, 0.28)
pt3dadd(51.003, 104.05, 15.574, 0.29)
pt3dadd(50.93, 103.955, 15.574, 0.298)
pt3dadd(50.856, 103.86, 15.574, 0.308)
pt3dadd(50.783, 103.765, 15.574, 0.318)
pt3dadd(50.709, 103.67, 15.575, 0.326)
pt3dadd(50.636, 103.575, 15.575, 0.336)
pt3dadd(50.563, 103.48, 15.575, 0.344)
pt3dadd(50.491, 103.384, 15.575, 0.354)
pt3dadd(50.421, 103.286, 15.575, 0.364)
pt3dadd(50.352, 103.188, 15.575, 0.374)
pt3dadd(50.282, 103.091, 15.575, 0.384)
pt3dadd(50.212, 102.993, 15.575, 0.396)
pt3dadd(50.143, 102.895, 15.575, 0.406)
pt3dadd(50.073, 102.798, 15.575, 0.416)
pt3dadd(50.003, 102.7, 15.575, 0.426)
pt3dadd(49.934, 102.602, 15.575, 0.436)
pt3dadd(49.864, 102.504, 15.575, 0.446)
pt3dadd(49.798, 102.405, 15.575, 0.452)
pt3dadd(49.736, 102.302, 15.576, 0.452)
pt3dadd(49.674, 102.199, 15.576, 0.452)
pt3dadd(49.612, 102.096, 15.576, 0.452)
pt3dadd(49.551, 101.993, 15.576, 0.452)
pt3dadd(49.489, 101.89, 15.576, 0.452)
pt3dadd(49.427, 101.787, 15.576, 0.452)
pt3dadd(49.365, 101.684, 15.576, 0.452)
pt3dadd(49.304, 101.581, 15.576, 0.452)
pt3dadd(49.242, 101.478, 15.576, 0.452)
pt3dadd(49.176, 101.378, 15.577, 0.452)
pt3dadd(49.104, 101.282, 15.577, 0.452)
pt3dadd(49.032, 101.186, 15.577, 0.452)
pt3dadd(48.96, 101.09, 15.577, 0.452)
pt3dadd(48.888, 100.995, 15.578, 0.452)
pt3dadd(48.816, 100.899, 15.578, 0.452)
pt3dadd(48.744, 100.803, 15.578, 0.452)
pt3dadd(48.671, 100.707, 15.578, 0.452)
pt3dadd(48.599, 100.611, 15.579, 0.452)
pt3dadd(48.527, 100.515, 15.579, 0.452)
pt3dadd(48.453, 100.42, 15.579, 0.452)
pt3dadd(48.377, 100.328, 15.579, 0.452)
pt3dadd(48.3, 100.235, 15.58, 0.452)
pt3dadd(48.224, 100.143, 15.58, 0.452)
pt3dadd(48.147, 100.05, 15.58, 0.452)
pt3dadd(48.071, 99.958, 15.581, 0.452)
pt3dadd(47.995, 99.865, 15.581, 0.452)
pt3dadd(47.918, 99.773, 15.582, 0.452)
pt3dadd(47.842, 99.681, 15.582, 0.452)
pt3dadd(47.765, 99.588, 15.582, 0.452)
pt3dadd(47.687, 99.497, 15.583, 0.452)
pt3dadd(47.607, 99.408, 15.583, 0.452)
pt3dadd(47.527, 99.318, 15.584, 0.452)
pt3dadd(47.447, 99.229, 15.584, 0.452)
pt3dadd(47.367, 99.14, 15.585, 0.452)
pt3dadd(47.287, 99.05, 15.585, 0.452)
pt3dadd(47.206, 98.961, 15.586, 0.452)
pt3dadd(47.126, 98.872, 15.586, 0.452)
pt3dadd(47.046, 98.782, 15.587, 0.452)
pt3dadd(46.966, 98.693, 15.587, 0.452)
pt3dadd(46.884, 98.606, 15.588, 0.446)
pt3dadd(46.798, 98.522, 15.589, 0.434)
pt3dadd(46.713, 98.437, 15.59, 0.42)
pt3dadd(46.627, 98.353, 15.591, 0.408)
pt3dadd(46.542, 98.269, 15.592, 0.394)
pt3dadd(46.456, 98.185, 15.593, 0.38)
pt3dadd(46.371, 98.1, 15.594, 0.368)
pt3dadd(46.285, 98.016, 15.595, 0.354)
pt3dadd(46.2, 97.932, 15.596, 0.34)
pt3dadd(46.115, 97.848, 15.597, 0.328)
pt3dadd(46.029, 97.764, 15.598, 0.316)
pt3dadd(45.943, 97.68, 15.599, 0.306)
pt3dadd(45.857, 97.596, 15.6, 0.298)
pt3dadd(45.771, 97.512, 15.602, 0.288)
pt3dadd(45.685, 97.429, 15.603, 0.278)
pt3dadd(45.599, 97.345, 15.604, 0.27)
pt3dadd(45.513, 97.261, 15.606, 0.26)
pt3dadd(45.427, 97.178, 15.607, 0.25)
pt3dadd(45.341, 97.094, 15.609, 0.24)
pt3dadd(45.255, 97.01, 15.61, 0.232)
pt3dadd(45.169, 96.927, 15.612, 0.226)
pt3dadd(45.082, 96.844, 15.614, 0.226)
pt3dadd(44.996, 96.761, 15.616, 0.226)
pt3dadd(44.909, 96.678, 15.618, 0.226)
pt3dadd(44.822, 96.595, 15.62, 0.226)
pt3dadd(44.736, 96.512, 15.622, 0.226)
pt3dadd(44.649, 96.429, 15.624, 0.226)
pt3dadd(44.562, 96.346, 15.626, 0.226)
pt3dadd(44.476, 96.263, 15.628, 0.226)
pt3dadd(44.389, 96.18, 15.63, 0.226)
pt3dadd(44.302, 96.098, 15.633, 0.226)
pt3dadd(44.213, 96.017, 15.637, 0.226)
pt3dadd(44.125, 95.936, 15.642, 0.226)
pt3dadd(44.037, 95.854, 15.646, 0.226)
pt3dadd(43.949, 95.773, 15.65, 0.226)
pt3dadd(43.86, 95.692, 15.655, 0.226)
pt3dadd(43.772, 95.611, 15.659, 0.226)
pt3dadd(43.684, 95.53, 15.663, 0.226)
pt3dadd(43.596, 95.449, 15.668, 0.226)
pt3dadd(43.507, 95.368, 15.672, 0.226)
pt3dadd(43.419, 95.287, 15.677, 0.228)
pt3dadd(43.329, 95.207, 15.682, 0.232)
pt3dadd(43.24, 95.127, 15.688, 0.236)
pt3dadd(43.151, 95.048, 15.694, 0.24)
pt3dadd(43.061, 94.968, 15.7, 0.242)
pt3dadd(42.972, 94.888, 15.705, 0.246)
pt3dadd(42.882, 94.808, 15.711, 0.25)
pt3dadd(42.793, 94.728, 15.717, 0.254)
pt3dadd(42.704, 94.649, 15.723, 0.258)
pt3dadd(42.614, 94.569, 15.728, 0.262)
pt3dadd(42.524, 94.491, 15.735, 0.276)
pt3dadd(42.431, 94.415, 15.744, 0.306)
pt3dadd(42.339, 94.339, 15.753, 0.336)
pt3dadd(42.246, 94.264, 15.763, 0.366)
pt3dadd(42.154, 94.188, 15.772, 0.396)
pt3dadd(42.061, 94.112, 15.781, 0.426)
pt3dadd(41.969, 94.037, 15.79, 0.456)
pt3dadd(41.877, 93.961, 15.799, 0.486)
pt3dadd(41.784, 93.885, 15.808, 0.516)
pt3dadd(41.692, 93.809, 15.817, 0.546)
pt3dadd(41.596, 93.74, 15.832, 0.56)
pt3dadd(41.497, 93.68, 15.858, 0.55)
pt3dadd(41.398, 93.62, 15.883, 0.542)
pt3dadd(41.298, 93.559, 15.908, 0.532)
pt3dadd(41.199, 93.499, 15.933, 0.524)
pt3dadd(41.1, 93.439, 15.958, 0.514)
pt3dadd(41, 93.379, 15.983, 0.504)
pt3dadd(40.901, 93.318, 16.008, 0.496)
pt3dadd(40.802, 93.258, 16.033, 0.486)
pt3dadd(40.703, 93.198, 16.059, 0.478)
pt3dadd(40.601, 93.145, 16.087, 0.464)
pt3dadd(40.497, 93.098, 16.119, 0.448)
pt3dadd(40.394, 93.051, 16.15, 0.434)
pt3dadd(40.29, 93.004, 16.182, 0.418)
pt3dadd(40.186, 92.957, 16.214, 0.402)
pt3dadd(40.083, 92.91, 16.245, 0.388)
pt3dadd(39.979, 92.863, 16.277, 0.372)
pt3dadd(39.875, 92.816, 16.309, 0.356)
pt3dadd(39.771, 92.769, 16.34, 0.34)
pt3dadd(39.668, 92.721, 16.372, 0.326)
pt3dadd(39.561, 92.679, 16.399, 0.338)
pt3dadd(39.451, 92.638, 16.422, 0.374)
pt3dadd(39.342, 92.598, 16.445, 0.41)
pt3dadd(39.232, 92.559, 16.469, 0.446)
pt3dadd(39.122, 92.519, 16.492, 0.48)
pt3dadd(39.012, 92.479, 16.515, 0.516)
pt3dadd(38.903, 92.439, 16.538, 0.552)
pt3dadd(38.793, 92.399, 16.562, 0.588)
pt3dadd(38.684, 92.359, 16.585, 0.622)
pt3dadd(38.574, 92.319, 16.608, 0.658)
pt3dadd(38.471, 92.263, 16.624, 0.654)
pt3dadd(38.372, 92.196, 16.634, 0.62)
pt3dadd(38.274, 92.128, 16.644, 0.586)
pt3dadd(38.175, 92.061, 16.654, 0.55)
pt3dadd(38.077, 91.993, 16.664, 0.516)
pt3dadd(37.978, 91.926, 16.674, 0.482)
pt3dadd(37.88, 91.858, 16.684, 0.448)
pt3dadd(37.781, 91.791, 16.694, 0.414)
pt3dadd(37.683, 91.723, 16.705, 0.38)
pt3dadd(37.584, 91.656, 16.715, 0.346)
pt3dadd(37.491, 91.582, 16.721, 0.338)
pt3dadd(37.401, 91.502, 16.724, 0.348)
pt3dadd(37.311, 91.422, 16.728, 0.36)
pt3dadd(37.222, 91.342, 16.731, 0.372)
pt3dadd(37.132, 91.263, 16.735, 0.382)
pt3dadd(37.043, 91.183, 16.738, 0.394)
pt3dadd(36.953, 91.103, 16.742, 0.404)
pt3dadd(36.863, 91.024, 16.745, 0.416)
pt3dadd(36.774, 90.944, 16.749, 0.426)
pt3dadd(36.684, 90.864, 16.752, 0.438)
pt3dadd(36.601, 90.778, 16.754, 0.454)
pt3dadd(36.521, 90.689, 16.755, 0.474)
pt3dadd(36.441, 90.599, 16.755, 0.494)
pt3dadd(36.361, 90.51, 16.756, 0.512)
pt3dadd(36.281, 90.42, 16.757, 0.532)
pt3dadd(36.201, 90.33, 16.757, 0.552)
pt3dadd(36.122, 90.241, 16.758, 0.572)
pt3dadd(36.042, 90.151, 16.759, 0.59)
pt3dadd(35.962, 90.062, 16.76, 0.61)
pt3dadd(35.882, 89.972, 16.76, 0.63)
pt3dadd(35.814, 89.874, 16.761, 0.624)
pt3dadd(35.752, 89.771, 16.763, 0.608)
pt3dadd(35.69, 89.668, 16.764, 0.59)
pt3dadd(35.628, 89.565, 16.765, 0.574)
pt3dadd(35.566, 89.463, 16.766, 0.556)
pt3dadd(35.504, 89.36, 16.767, 0.54)
pt3dadd(35.442, 89.257, 16.769, 0.522)
pt3dadd(35.38, 89.155, 16.77, 0.506)
pt3dadd(35.318, 89.052, 16.771, 0.488)
pt3dadd(35.256, 88.949, 16.772, 0.472)
pt3dadd(35.186, 88.852, 16.774, 0.454)
pt3dadd(35.113, 88.757, 16.777, 0.438)
pt3dadd(35.04, 88.662, 16.779, 0.422)
pt3dadd(34.967, 88.566, 16.781, 0.404)
pt3dadd(34.894, 88.471, 16.784, 0.388)
pt3dadd(34.821, 88.376, 16.786, 0.372)
pt3dadd(34.747, 88.281, 16.788, 0.356)
pt3dadd(34.674, 88.186, 16.791, 0.338)
pt3dadd(34.601, 88.091, 16.793, 0.322)
}
}
proc shape3d_93() {
apic[28] { pt3dadd(34.528, 87.996, 16.795, 0.306)
pt3dadd(34.451, 87.904, 16.799, 0.296)
pt3dadd(34.373, 87.813, 16.803, 0.288)
pt3dadd(34.294, 87.723, 16.808, 0.28)
pt3dadd(34.216, 87.632, 16.812, 0.274)
pt3dadd(34.137, 87.542, 16.816, 0.266)
pt3dadd(34.059, 87.451, 16.821, 0.258)
pt3dadd(33.98, 87.36, 16.825, 0.25)
pt3dadd(33.901, 87.27, 16.829, 0.244)
pt3dadd(33.823, 87.179, 16.834, 0.236)
pt3dadd(33.744, 87.089, 16.838, 0.228)
pt3dadd(33.661, 87.003, 16.844, 0.226)
pt3dadd(33.576, 86.918, 16.85, 0.226)
pt3dadd(33.491, 86.834, 16.857, 0.226)
pt3dadd(33.406, 86.75, 16.864, 0.226)
pt3dadd(33.321, 86.666, 16.87, 0.226)
pt3dadd(33.236, 86.581, 16.877, 0.226)
pt3dadd(33.151, 86.497, 16.884, 0.226)
pt3dadd(33.065, 86.413, 16.89, 0.226)
pt3dadd(32.98, 86.329, 16.897, 0.226)
pt3dadd(32.895, 86.245, 16.904, 0.226)
pt3dadd(32.799, 86.175, 16.913, 0.226)
pt3dadd(32.699, 86.11, 16.924, 0.226)
pt3dadd(32.599, 86.045, 16.935, 0.226)
pt3dadd(32.499, 85.98, 16.946, 0.226)
pt3dadd(32.398, 85.916, 16.957, 0.226)
pt3dadd(32.298, 85.851, 16.968, 0.226)
pt3dadd(32.198, 85.786, 16.979, 0.226)
pt3dadd(32.098, 85.721, 16.99, 0.226)
pt3dadd(31.998, 85.657, 17.001, 0.226)
pt3dadd(31.898, 85.592, 17.012, 0.226)
pt3dadd(31.815, 85.515, 17.042, 0.252)
pt3dadd(31.74, 85.433, 17.08, 0.288)
pt3dadd(31.665, 85.352, 17.118, 0.324)
pt3dadd(31.59, 85.27, 17.156, 0.36)
pt3dadd(31.514, 85.188, 17.194, 0.396)
pt3dadd(31.439, 85.107, 17.232, 0.43)
pt3dadd(31.364, 85.025, 17.27, 0.466)
pt3dadd(31.288, 84.944, 17.308, 0.502)
pt3dadd(31.213, 84.862, 17.346, 0.538)
pt3dadd(31.137, 84.781, 17.384, 0.574)
pt3dadd(31.059, 84.697, 17.413, 0.578)
pt3dadd(30.979, 84.613, 17.44, 0.576)
pt3dadd(30.9, 84.529, 17.466, 0.572)
pt3dadd(30.82, 84.445, 17.493, 0.568)
pt3dadd(30.741, 84.362, 17.52, 0.564)
pt3dadd(30.661, 84.278, 17.546, 0.56)
pt3dadd(30.581, 84.194, 17.573, 0.558)
pt3dadd(30.502, 84.11, 17.6, 0.554)
pt3dadd(30.422, 84.026, 17.626, 0.55)
pt3dadd(30.343, 83.942, 17.653, 0.546)
pt3dadd(30.254, 83.864, 17.671, 0.532)
pt3dadd(30.164, 83.787, 17.688, 0.514)
pt3dadd(30.074, 83.711, 17.704, 0.496)
pt3dadd(29.984, 83.634, 17.721, 0.478)
pt3dadd(29.894, 83.558, 17.737, 0.46)
pt3dadd(29.803, 83.481, 17.754, 0.442)
pt3dadd(29.713, 83.404, 17.77, 0.424)
pt3dadd(29.623, 83.328, 17.787, 0.406)
pt3dadd(29.533, 83.251, 17.803, 0.388)
pt3dadd(29.443, 83.174, 17.82, 0.37)
pt3dadd(29.345, 83.105, 17.828, 0.364)
pt3dadd(29.247, 83.037, 17.836, 0.36)
pt3dadd(29.149, 82.969, 17.843, 0.356)
pt3dadd(29.05, 82.9, 17.85, 0.352)
pt3dadd(28.952, 82.832, 17.858, 0.348)
pt3dadd(28.854, 82.764, 17.865, 0.344)
pt3dadd(28.755, 82.695, 17.873, 0.34)
pt3dadd(28.657, 82.627, 17.88, 0.334)
pt3dadd(28.559, 82.559, 17.888, 0.33)
pt3dadd(28.461, 82.491, 17.895, 0.326)
pt3dadd(28.365, 82.418, 17.894, 0.37)
pt3dadd(28.269, 82.346, 17.893, 0.416)
pt3dadd(28.174, 82.273, 17.892, 0.464)
pt3dadd(28.079, 82.2, 17.891, 0.51)
pt3dadd(27.983, 82.128, 17.889, 0.558)
pt3dadd(27.888, 82.055, 17.888, 0.604)
pt3dadd(27.792, 81.982, 17.887, 0.652)
pt3dadd(27.697, 81.909, 17.885, 0.698)
pt3dadd(27.601, 81.837, 17.884, 0.746)
pt3dadd(27.506, 81.764, 17.883, 0.792)
pt3dadd(27.415, 81.686, 17.881, 0.774)
pt3dadd(27.325, 81.607, 17.879, 0.75)
pt3dadd(27.234, 81.528, 17.877, 0.728)
pt3dadd(27.144, 81.449, 17.874, 0.704)
pt3dadd(27.054, 81.37, 17.872, 0.68)
pt3dadd(26.963, 81.291, 17.87, 0.656)
pt3dadd(26.873, 81.212, 17.868, 0.634)
pt3dadd(26.783, 81.133, 17.866, 0.61)
pt3dadd(26.692, 81.054, 17.863, 0.586)
pt3dadd(26.602, 80.975, 17.861, 0.562)
pt3dadd(26.515, 80.893, 17.858, 0.532)
pt3dadd(26.428, 80.81, 17.855, 0.502)
pt3dadd(26.341, 80.728, 17.852, 0.474)
pt3dadd(26.254, 80.645, 17.848, 0.444)
pt3dadd(26.167, 80.562, 17.845, 0.414)
pt3dadd(26.08, 80.48, 17.842, 0.384)
pt3dadd(25.993, 80.397, 17.838, 0.354)
pt3dadd(25.906, 80.315, 17.835, 0.324)
pt3dadd(25.819, 80.232, 17.832, 0.294)
pt3dadd(25.732, 80.15, 17.829, 0.264)
pt3dadd(25.65, 80.063, 17.823, 0.276)
pt3dadd(25.568, 79.975, 17.817, 0.29)
pt3dadd(25.486, 79.887, 17.812, 0.304)
pt3dadd(25.404, 79.8, 17.806, 0.32)
pt3dadd(25.323, 79.712, 17.8, 0.334)
pt3dadd(25.241, 79.625, 17.794, 0.348)
pt3dadd(25.159, 79.537, 17.788, 0.362)
pt3dadd(25.078, 79.449, 17.783, 0.378)
pt3dadd(24.996, 79.362, 17.777, 0.392)
pt3dadd(24.914, 79.274, 17.771, 0.406)
pt3dadd(24.834, 79.186, 17.762, 0.422)
pt3dadd(24.753, 79.097, 17.753, 0.436)
pt3dadd(24.673, 79.009, 17.744, 0.452)
pt3dadd(24.593, 78.92, 17.735, 0.466)
pt3dadd(24.513, 78.832, 17.726, 0.482)
pt3dadd(24.432, 78.743, 17.717, 0.498)
pt3dadd(24.352, 78.655, 17.708, 0.512)
pt3dadd(24.271, 78.566, 17.699, 0.528)
pt3dadd(24.191, 78.478, 17.69, 0.542)
pt3dadd(24.111, 78.389, 17.681, 0.558)
pt3dadd(24.036, 78.298, 17.665, 0.562)
pt3dadd(23.961, 78.206, 17.648, 0.566)
pt3dadd(23.887, 78.114, 17.63, 0.57)
pt3dadd(23.812, 78.023, 17.613, 0.574)
pt3dadd(23.737, 77.931, 17.596, 0.578)
pt3dadd(23.663, 77.839, 17.579, 0.582)
pt3dadd(23.588, 77.748, 17.562, 0.586)
pt3dadd(23.514, 77.656, 17.545, 0.59)
pt3dadd(23.439, 77.564, 17.528, 0.594)
pt3dadd(23.365, 77.472, 17.51, 0.596)
pt3dadd(23.312, 77.375, 17.47, 0.562)
pt3dadd(23.259, 77.279, 17.431, 0.526)
pt3dadd(23.206, 77.182, 17.392, 0.492)
pt3dadd(23.153, 77.085, 17.353, 0.456)
pt3dadd(23.1, 76.988, 17.313, 0.42)
pt3dadd(23.046, 76.892, 17.274, 0.386)
pt3dadd(22.993, 76.795, 17.235, 0.35)
pt3dadd(22.94, 76.698, 17.196, 0.314)
pt3dadd(22.887, 76.602, 17.156, 0.28)
pt3dadd(22.833, 76.505, 17.117, 0.248)
pt3dadd(22.76, 76.421, 17.08, 0.266)
pt3dadd(22.687, 76.337, 17.043, 0.286)
pt3dadd(22.614, 76.253, 17.006, 0.304)
pt3dadd(22.541, 76.169, 16.969, 0.324)
pt3dadd(22.467, 76.085, 16.932, 0.342)
pt3dadd(22.394, 76.001, 16.895, 0.362)
pt3dadd(22.321, 75.917, 16.858, 0.382)
pt3dadd(22.248, 75.832, 16.82, 0.4)
pt3dadd(22.175, 75.748, 16.783, 0.42)
pt3dadd(22.104, 75.663, 16.747, 0.436)
pt3dadd(22.059, 75.557, 16.719, 0.416)
pt3dadd(22.013, 75.451, 16.691, 0.396)
pt3dadd(21.968, 75.345, 16.662, 0.376)
pt3dadd(21.923, 75.239, 16.634, 0.356)
pt3dadd(21.878, 75.133, 16.606, 0.336)
pt3dadd(21.833, 75.027, 16.578, 0.316)
pt3dadd(21.787, 74.922, 16.55, 0.296)
pt3dadd(21.742, 74.816, 16.522, 0.276)
pt3dadd(21.697, 74.71, 16.493, 0.256)
pt3dadd(21.654, 74.604, 16.464, 0.238)
pt3dadd(21.629, 74.497, 16.424, 0.236)
pt3dadd(21.604, 74.39, 16.383, 0.236)
pt3dadd(21.58, 74.283, 16.343, 0.234)
pt3dadd(21.555, 74.176, 16.303, 0.234)
pt3dadd(21.53, 74.069, 16.262, 0.232)
pt3dadd(21.506, 73.962, 16.222, 0.23)
pt3dadd(21.481, 73.855, 16.182, 0.23)
pt3dadd(21.456, 73.748, 16.141, 0.228)
pt3dadd(21.432, 73.641, 16.101, 0.228)
pt3dadd(21.406, 73.533, 16.062, 0.226)
pt3dadd(21.372, 73.423, 16.034, 0.226)
pt3dadd(21.339, 73.313, 16.006, 0.226)
pt3dadd(21.305, 73.203, 15.978, 0.226)
pt3dadd(21.272, 73.093, 15.95, 0.226)
pt3dadd(21.238, 72.982, 15.922, 0.226)
pt3dadd(21.205, 72.872, 15.894, 0.226)
pt3dadd(21.171, 72.762, 15.866, 0.226)
pt3dadd(21.138, 72.652, 15.838, 0.226)
pt3dadd(21.104, 72.542, 15.81, 0.226)
pt3dadd(21.072, 72.431, 15.783, 0.228)
pt3dadd(21.047, 72.316, 15.764, 0.25)
pt3dadd(21.023, 72.2, 15.745, 0.27)
pt3dadd(20.998, 72.085, 15.725, 0.29)
pt3dadd(20.974, 71.97, 15.706, 0.31)
pt3dadd(20.949, 71.855, 15.687, 0.332)
pt3dadd(20.925, 71.74, 15.668, 0.352)
pt3dadd(20.9, 71.624, 15.649, 0.372)
pt3dadd(20.876, 71.509, 15.629, 0.392)
pt3dadd(20.851, 71.394, 15.61, 0.414)
pt3dadd(20.832, 71.278, 15.593, 0.432)
pt3dadd(20.837, 71.159, 15.58, 0.444)
pt3dadd(20.841, 71.04, 15.568, 0.456)
pt3dadd(20.846, 70.921, 15.556, 0.466)
pt3dadd(20.851, 70.802, 15.544, 0.478)
pt3dadd(20.855, 70.683, 15.532, 0.49)
pt3dadd(20.86, 70.564, 15.52, 0.502)
pt3dadd(20.864, 70.445, 15.508, 0.512)
pt3dadd(20.869, 70.326, 15.496, 0.524)
pt3dadd(20.873, 70.207, 15.483, 0.536)
}
}
proc shape3d_94() {
apic[28] { pt3dadd(20.892, 70.09, 15.473, 0.53)
pt3dadd(20.93, 69.977, 15.464, 0.498)
pt3dadd(20.968, 69.863, 15.456, 0.466)
pt3dadd(21.006, 69.75, 15.447, 0.434)
pt3dadd(21.043, 69.636, 15.439, 0.402)
pt3dadd(21.081, 69.523, 15.43, 0.37)
pt3dadd(21.119, 69.41, 15.422, 0.34)
pt3dadd(21.157, 69.296, 15.413, 0.308)
pt3dadd(21.195, 69.183, 15.405, 0.276)
pt3dadd(21.233, 69.069, 15.396, 0.244)
pt3dadd(21.271, 68.956, 15.386, 0.226)
pt3dadd(21.31, 68.844, 15.372, 0.228)
pt3dadd(21.349, 68.732, 15.358, 0.228)
pt3dadd(21.388, 68.62, 15.344, 0.228)
pt3dadd(21.427, 68.508, 15.33, 0.23)
pt3dadd(21.466, 68.395, 15.316, 0.23)
pt3dadd(21.505, 68.283, 15.302, 0.232)
pt3dadd(21.544, 68.171, 15.288, 0.232)
pt3dadd(21.583, 68.059, 15.274, 0.232)
pt3dadd(21.622, 67.946, 15.26, 0.234)
pt3dadd(21.656, 67.838, 15.233, 0.252)
pt3dadd(21.684, 67.733, 15.189, 0.29)
pt3dadd(21.713, 67.629, 15.145, 0.33)
pt3dadd(21.741, 67.525, 15.102, 0.37)
pt3dadd(21.769, 67.421, 15.058, 0.408)
pt3dadd(21.798, 67.317, 15.015, 0.448)
pt3dadd(21.826, 67.212, 14.971, 0.488)
pt3dadd(21.854, 67.108, 14.927, 0.526)
pt3dadd(21.882, 67.004, 14.884, 0.566)
pt3dadd(21.911, 66.9, 14.84, 0.604)
pt3dadd(21.954, 66.802, 14.797, 0.648)
pt3dadd(22.016, 66.714, 14.753, 0.7)
pt3dadd(22.077, 66.625, 14.71, 0.748)
pt3dadd(22.139, 66.536, 14.667, 0.8)
pt3dadd(22.201, 66.447, 14.623, 0.85)
pt3dadd(22.263, 66.359, 14.58, 0.9)
pt3dadd(22.325, 66.27, 14.537, 0.95)
pt3dadd(22.387, 66.181, 14.494, 1)
pt3dadd(22.449, 66.092, 14.45, 1.05)
pt3dadd(22.511, 66.004, 14.407, 1.1)
pt3dadd(22.562, 65.907, 14.367, 1.078)
pt3dadd(22.605, 65.804, 14.331, 0.988)
pt3dadd(22.647, 65.701, 14.294, 0.898)
pt3dadd(22.689, 65.597, 14.257, 0.806)
pt3dadd(22.731, 65.494, 14.221, 0.716)
pt3dadd(22.773, 65.391, 14.184, 0.626)
pt3dadd(22.816, 65.287, 14.148, 0.534)
pt3dadd(22.858, 65.184, 14.111, 0.444)
pt3dadd(22.9, 65.08, 14.074, 0.354)
pt3dadd(22.942, 64.977, 14.038, 0.262)
pt3dadd(22.973, 64.875, 13.993, 0.226)
pt3dadd(22.997, 64.774, 13.942, 0.226)
pt3dadd(23.021, 64.674, 13.891, 0.226)
pt3dadd(23.045, 64.573, 13.841, 0.226)
pt3dadd(23.069, 64.472, 13.79, 0.226)
pt3dadd(23.092, 64.372, 13.74, 0.226)
pt3dadd(23.116, 64.271, 13.689, 0.226)
pt3dadd(23.14, 64.17, 13.638, 0.226)
pt3dadd(23.164, 64.069, 13.588, 0.226)
pt3dadd(23.188, 63.969, 13.537, 0.226)
pt3dadd(23.208, 63.857, 13.508, 0.234)
pt3dadd(23.226, 63.741, 13.485, 0.246)
pt3dadd(23.245, 63.626, 13.463, 0.258)
pt3dadd(23.264, 63.511, 13.44, 0.268)
pt3dadd(23.283, 63.395, 13.417, 0.28)
pt3dadd(23.302, 63.28, 13.394, 0.292)
pt3dadd(23.321, 63.165, 13.372, 0.302)
pt3dadd(23.34, 63.049, 13.349, 0.314)
pt3dadd(23.358, 62.934, 13.326, 0.326)
pt3dadd(23.377, 62.819, 13.303, 0.336)
pt3dadd(23.416, 62.706, 13.294, 0.342)
pt3dadd(23.459, 62.595, 13.287, 0.346)
pt3dadd(23.502, 62.483, 13.28, 0.348)
pt3dadd(23.545, 62.371, 13.274, 0.352)
pt3dadd(23.588, 62.26, 13.267, 0.356)
pt3dadd(23.631, 62.148, 13.26, 0.36)
pt3dadd(23.675, 62.036, 13.254, 0.364)
pt3dadd(23.718, 61.924, 13.247, 0.368)
pt3dadd(23.761, 61.813, 13.24, 0.372)
pt3dadd(23.804, 61.701, 13.234, 0.376)
pt3dadd(23.866, 61.598, 13.234, 0.36)
pt3dadd(23.927, 61.495, 13.234, 0.346)
pt3dadd(23.989, 61.392, 13.234, 0.33)
pt3dadd(24.051, 61.289, 13.234, 0.316)
pt3dadd(24.113, 61.186, 13.234, 0.3)
pt3dadd(24.174, 61.084, 13.234, 0.286)
pt3dadd(24.236, 60.981, 13.234, 0.27)
pt3dadd(24.298, 60.878, 13.234, 0.256)
pt3dadd(24.359, 60.775, 13.234, 0.24)
pt3dadd(24.421, 60.672, 13.234, 0.226)
}
dend_0[3] {pt3dclear()
pt3dadd(103.04, 101.386, 14.404, 11.752)
pt3dadd(103.124, 101.386, 14.404, 11.724)
pt3dadd(103.244, 101.386, 14.404, 11.686)
pt3dadd(103.364, 101.386, 14.404, 11.648)
pt3dadd(103.484, 101.386, 14.404, 11.608)
pt3dadd(103.604, 101.386, 14.404, 11.57)
pt3dadd(103.724, 101.386, 14.404, 11.532)
pt3dadd(103.844, 101.386, 14.404, 11.494)
pt3dadd(103.964, 101.386, 14.404, 11.454)
pt3dadd(104.084, 101.386, 14.404, 11.416)
pt3dadd(104.204, 101.386, 14.404, 11.378)
pt3dadd(104.324, 101.386, 14.404, 11.338)
pt3dadd(104.444, 101.386, 14.404, 11.3)
}
dend_0[4] {pt3dclear()
pt3dadd(104.444, 101.386, 14.404, 11.3)
pt3dadd(104.481, 101.399, 14.421, 11.236)
pt3dadd(104.58, 101.436, 14.469, 11.064)
pt3dadd(104.678, 101.473, 14.517, 10.892)
pt3dadd(104.777, 101.509, 14.564, 10.72)
pt3dadd(104.876, 101.546, 14.612, 10.55)
pt3dadd(104.975, 101.583, 14.66, 10.378)
pt3dadd(105.074, 101.62, 14.707, 10.206)
pt3dadd(105.173, 101.656, 14.755, 10.034)
pt3dadd(105.272, 101.697, 14.8, 9.86)
pt3dadd(105.372, 101.739, 14.843, 9.686)
pt3dadd(105.471, 101.781, 14.887, 9.51)
pt3dadd(105.571, 101.823, 14.93, 9.336)
pt3dadd(105.67, 101.865, 14.974, 9.162)
pt3dadd(105.77, 101.907, 15.017, 8.988)
pt3dadd(105.87, 101.948, 15.061, 8.812)
pt3dadd(105.969, 101.99, 15.105, 8.638)
pt3dadd(106.069, 102.032, 15.148, 8.464)
pt3dadd(106.168, 102.074, 15.192, 8.29)
pt3dadd(106.267, 102.134, 15.217, 8.112)
pt3dadd(106.365, 102.197, 15.24, 7.934)
pt3dadd(106.463, 102.26, 15.263, 7.756)
pt3dadd(106.562, 102.323, 15.286, 7.576)
pt3dadd(106.66, 102.386, 15.309, 7.398)
pt3dadd(106.758, 102.449, 15.332, 7.22)
pt3dadd(106.857, 102.513, 15.355, 7.042)
pt3dadd(106.955, 102.576, 15.378, 6.864)
pt3dadd(107.053, 102.639, 15.401, 6.686)
}
dend_7[13] {pt3dclear()
pt3dadd(107.053, 102.639, 15.401, 6.686)
pt3dadd(107.152, 102.702, 15.423, 6.508)
pt3dadd(107.247, 102.773, 15.435, 6.338)
pt3dadd(107.342, 102.845, 15.446, 6.17)
pt3dadd(107.438, 102.917, 15.456, 6)
pt3dadd(107.533, 102.989, 15.466, 5.832)
pt3dadd(107.628, 103.061, 15.476, 5.662)
pt3dadd(107.723, 103.133, 15.487, 5.494)
pt3dadd(107.818, 103.205, 15.497, 5.324)
pt3dadd(107.913, 103.277, 15.507, 5.156)
pt3dadd(108.008, 103.349, 15.517, 4.988)
pt3dadd(108.104, 103.421, 15.528, 4.818)
pt3dadd(108.202, 103.49, 15.534, 4.656)
pt3dadd(108.3, 103.558, 15.539, 4.496)
pt3dadd(108.399, 103.626, 15.544, 4.336)
pt3dadd(108.498, 103.694, 15.55, 4.176)
pt3dadd(108.596, 103.762, 15.555, 4.016)
pt3dadd(108.695, 103.83, 15.56, 3.856)
pt3dadd(108.794, 103.898, 15.566, 3.696)
pt3dadd(108.892, 103.966, 15.571, 3.536)
pt3dadd(108.991, 104.034, 15.576, 3.374)
pt3dadd(109.089, 104.102, 15.582, 3.214)
pt3dadd(109.192, 104.165, 15.583, 3.072)
pt3dadd(109.295, 104.227, 15.584, 2.93)
pt3dadd(109.397, 104.289, 15.584, 2.788)
pt3dadd(109.5, 104.351, 15.585, 2.648)
pt3dadd(109.603, 104.413, 15.585, 2.506)
pt3dadd(109.706, 104.475, 15.586, 2.364)
pt3dadd(109.808, 104.537, 15.587, 2.222)
pt3dadd(109.911, 104.599, 15.587, 2.082)
pt3dadd(110.014, 104.661, 15.588, 1.94)
pt3dadd(110.117, 104.722, 15.588, 1.798)
pt3dadd(110.214, 104.793, 15.589, 1.758)
pt3dadd(110.31, 104.864, 15.59, 1.728)
pt3dadd(110.407, 104.935, 15.592, 1.696)
pt3dadd(110.503, 105.007, 15.593, 1.666)
pt3dadd(110.6, 105.078, 15.594, 1.634)
pt3dadd(110.697, 105.149, 15.595, 1.604)
pt3dadd(110.793, 105.22, 15.596, 1.572)
pt3dadd(110.89, 105.292, 15.597, 1.54)
pt3dadd(110.986, 105.363, 15.599, 1.51)
pt3dadd(111.083, 105.434, 15.6, 1.478)
pt3dadd(111.176, 105.509, 15.601, 1.49)
pt3dadd(111.269, 105.585, 15.603, 1.504)
pt3dadd(111.363, 105.66, 15.605, 1.52)
pt3dadd(111.456, 105.736, 15.607, 1.534)
pt3dadd(111.549, 105.812, 15.608, 1.55)
pt3dadd(111.642, 105.887, 15.61, 1.564)
pt3dadd(111.735, 105.963, 15.612, 1.58)
pt3dadd(111.829, 106.038, 15.614, 1.594)
pt3dadd(111.922, 106.114, 15.615, 1.61)
pt3dadd(112.015, 106.189, 15.617, 1.624)
pt3dadd(112.106, 106.267, 15.62, 1.662)
pt3dadd(112.197, 106.346, 15.622, 1.7)
pt3dadd(112.288, 106.424, 15.624, 1.74)
pt3dadd(112.378, 106.503, 15.627, 1.778)
pt3dadd(112.469, 106.581, 15.629, 1.818)
pt3dadd(112.56, 106.66, 15.632, 1.856)
pt3dadd(112.651, 106.738, 15.634, 1.894)
pt3dadd(112.742, 106.816, 15.636, 1.934)
pt3dadd(112.832, 106.895, 15.639, 1.972)
pt3dadd(112.923, 106.973, 15.641, 2.012)
pt3dadd(113.011, 107.055, 15.646, 1.988)
pt3dadd(113.099, 107.136, 15.651, 1.96)
pt3dadd(113.187, 107.217, 15.656, 1.93)
pt3dadd(113.275, 107.299, 15.661, 1.902)
pt3dadd(113.363, 107.381, 15.667, 1.874)
pt3dadd(113.451, 107.462, 15.672, 1.846)
pt3dadd(113.538, 107.544, 15.677, 1.818)
}
}
proc shape3d_95() {
dend_7[13] { pt3dadd(113.626, 107.625, 15.682, 1.79)
pt3dadd(113.714, 107.706, 15.687, 1.762)
pt3dadd(113.802, 107.788, 15.692, 1.732)
pt3dadd(113.891, 107.868, 15.699, 1.698)
pt3dadd(113.98, 107.949, 15.706, 1.662)
pt3dadd(114.068, 108.029, 15.713, 1.626)
pt3dadd(114.157, 108.109, 15.72, 1.592)
pt3dadd(114.246, 108.19, 15.726, 1.556)
pt3dadd(114.335, 108.27, 15.733, 1.52)
pt3dadd(114.424, 108.35, 15.74, 1.486)
pt3dadd(114.512, 108.43, 15.747, 1.45)
pt3dadd(114.601, 108.511, 15.754, 1.414)
pt3dadd(114.69, 108.591, 15.761, 1.38)
pt3dadd(114.78, 108.67, 15.769, 1.336)
pt3dadd(114.87, 108.749, 15.778, 1.292)
pt3dadd(114.96, 108.828, 15.787, 1.25)
pt3dadd(115.049, 108.906, 15.795, 1.206)
pt3dadd(115.139, 108.985, 15.804, 1.162)
pt3dadd(115.229, 109.064, 15.813, 1.12)
pt3dadd(115.319, 109.143, 15.822, 1.076)
pt3dadd(115.409, 109.222, 15.83, 1.032)
pt3dadd(115.499, 109.301, 15.839, 0.988)
pt3dadd(115.589, 109.379, 15.848, 0.946)
pt3dadd(115.686, 109.44, 15.877, 0.952)
pt3dadd(115.783, 109.5, 15.907, 0.962)
pt3dadd(115.88, 109.56, 15.938, 0.974)
pt3dadd(115.978, 109.619, 15.969, 0.984)
pt3dadd(116.075, 109.679, 15.999, 0.994)
pt3dadd(116.173, 109.738, 16.03, 1.006)
pt3dadd(116.27, 109.798, 16.061, 1.016)
pt3dadd(116.368, 109.858, 16.091, 1.026)
pt3dadd(116.465, 109.917, 16.122, 1.036)
pt3dadd(116.562, 109.977, 16.152, 1.048)
pt3dadd(116.659, 110.04, 16.179, 1.07)
pt3dadd(116.756, 110.103, 16.206, 1.092)
pt3dadd(116.853, 110.166, 16.232, 1.116)
pt3dadd(116.95, 110.23, 16.259, 1.138)
pt3dadd(117.047, 110.293, 16.285, 1.16)
pt3dadd(117.144, 110.356, 16.312, 1.184)
pt3dadd(117.241, 110.419, 16.338, 1.206)
pt3dadd(117.338, 110.482, 16.365, 1.23)
pt3dadd(117.435, 110.546, 16.391, 1.252)
pt3dadd(117.532, 110.609, 16.418, 1.276)
pt3dadd(117.627, 110.678, 16.437, 1.306)
pt3dadd(117.722, 110.747, 16.457, 1.336)
pt3dadd(117.817, 110.817, 16.476, 1.368)
pt3dadd(117.912, 110.886, 16.496, 1.398)
pt3dadd(118.007, 110.955, 16.516, 1.428)
pt3dadd(118.103, 111.024, 16.535, 1.46)
pt3dadd(118.198, 111.093, 16.555, 1.49)
pt3dadd(118.293, 111.163, 16.574, 1.52)
pt3dadd(118.388, 111.232, 16.594, 1.552)
pt3dadd(118.483, 111.301, 16.614, 1.582)
}
dend_7[14] {pt3dclear()
pt3dadd(118.483, 111.301, 16.614, 1.582)
pt3dadd(118.531, 111.341, 16.618, 1.566)
pt3dadd(118.623, 111.417, 16.626, 1.538)
pt3dadd(118.714, 111.494, 16.635, 1.508)
pt3dadd(118.806, 111.57, 16.643, 1.478)
pt3dadd(118.898, 111.647, 16.652, 1.448)
pt3dadd(118.99, 111.723, 16.66, 1.42)
pt3dadd(119.082, 111.8, 16.669, 1.39)
pt3dadd(119.174, 111.876, 16.677, 1.362)
pt3dadd(119.265, 111.953, 16.685, 1.332)
pt3dadd(119.357, 112.03, 16.694, 1.304)
pt3dadd(119.449, 112.107, 16.702, 1.274)
pt3dadd(119.541, 112.183, 16.71, 1.246)
pt3dadd(119.632, 112.26, 16.719, 1.216)
pt3dadd(119.724, 112.337, 16.727, 1.188)
pt3dadd(119.816, 112.413, 16.735, 1.158)
pt3dadd(119.907, 112.49, 16.744, 1.13)
pt3dadd(119.998, 112.569, 16.744, 1.13)
pt3dadd(120.088, 112.648, 16.744, 1.13)
pt3dadd(120.179, 112.727, 16.744, 1.13)
pt3dadd(120.269, 112.806, 16.744, 1.13)
pt3dadd(120.359, 112.885, 16.744, 1.13)
pt3dadd(120.449, 112.964, 16.744, 1.13)
pt3dadd(120.54, 113.043, 16.744, 1.13)
pt3dadd(120.63, 113.122, 16.744, 1.13)
pt3dadd(120.72, 113.202, 16.744, 1.13)
pt3dadd(120.81, 113.28, 16.744, 1.13)
pt3dadd(120.904, 113.357, 16.744, 1.122)
pt3dadd(120.996, 113.433, 16.744, 1.116)
pt3dadd(121.088, 113.509, 16.744, 1.108)
pt3dadd(121.182, 113.585, 16.744, 1.102)
pt3dadd(121.274, 113.661, 16.744, 1.094)
pt3dadd(121.368, 113.737, 16.744, 1.086)
pt3dadd(121.46, 113.813, 16.744, 1.08)
pt3dadd(121.553, 113.889, 16.744, 1.072)
pt3dadd(121.646, 113.965, 16.744, 1.066)
pt3dadd(121.739, 114.041, 16.744, 1.058)
pt3dadd(121.835, 114.113, 16.744, 1.042)
pt3dadd(121.93, 114.186, 16.744, 1.028)
pt3dadd(122.026, 114.258, 16.744, 1.012)
pt3dadd(122.122, 114.331, 16.744, 0.996)
pt3dadd(122.218, 114.403, 16.744, 0.98)
pt3dadd(122.312, 114.476, 16.744, 0.966)
pt3dadd(122.408, 114.548, 16.744, 0.95)
pt3dadd(122.504, 114.621, 16.744, 0.934)
pt3dadd(122.599, 114.693, 16.744, 0.92)
pt3dadd(122.695, 114.766, 16.744, 0.904)
}
dend_7[15] {pt3dclear()
pt3dadd(122.695, 114.766, 16.744, 0.904)
pt3dadd(122.719, 114.774, 16.744, 0.892)
pt3dadd(122.832, 114.815, 16.744, 0.838)
pt3dadd(122.945, 114.855, 16.744, 0.784)
pt3dadd(123.059, 114.896, 16.744, 0.728)
pt3dadd(123.172, 114.936, 16.744, 0.674)
pt3dadd(123.284, 114.977, 16.744, 0.62)
pt3dadd(123.397, 115.017, 16.744, 0.564)
pt3dadd(123.51, 115.058, 16.744, 0.51)
pt3dadd(123.623, 115.098, 16.744, 0.456)
pt3dadd(123.736, 115.139, 16.744, 0.4)
pt3dadd(123.85, 115.179, 16.744, 0.346)
pt3dadd(123.965, 115.209, 16.744, 0.322)
pt3dadd(124.084, 115.227, 16.744, 0.328)
pt3dadd(124.202, 115.245, 16.744, 0.334)
pt3dadd(124.321, 115.263, 16.744, 0.342)
pt3dadd(124.44, 115.281, 16.744, 0.348)
pt3dadd(124.558, 115.299, 16.744, 0.356)
pt3dadd(124.676, 115.316, 16.744, 0.362)
pt3dadd(124.795, 115.334, 16.744, 0.368)
pt3dadd(124.914, 115.352, 16.744, 0.376)
pt3dadd(125.033, 115.37, 16.744, 0.382)
pt3dadd(125.152, 115.381, 16.744, 0.396)
pt3dadd(125.272, 115.386, 16.744, 0.414)
pt3dadd(125.392, 115.39, 16.744, 0.434)
pt3dadd(125.512, 115.395, 16.744, 0.454)
pt3dadd(125.632, 115.399, 16.744, 0.472)
pt3dadd(125.752, 115.404, 16.744, 0.492)
pt3dadd(125.872, 115.409, 16.744, 0.512)
pt3dadd(125.992, 115.413, 16.744, 0.53)
pt3dadd(126.112, 115.418, 16.744, 0.55)
pt3dadd(126.232, 115.422, 16.744, 0.57)
pt3dadd(126.352, 115.424, 16.744, 0.588)
pt3dadd(126.472, 115.424, 16.744, 0.608)
pt3dadd(126.592, 115.424, 16.744, 0.628)
pt3dadd(126.712, 115.424, 16.744, 0.646)
pt3dadd(126.832, 115.424, 16.744, 0.666)
pt3dadd(126.952, 115.424, 16.744, 0.686)
pt3dadd(127.072, 115.424, 16.744, 0.704)
pt3dadd(127.192, 115.424, 16.744, 0.724)
pt3dadd(127.312, 115.424, 16.744, 0.744)
pt3dadd(127.432, 115.424, 16.744, 0.762)
pt3dadd(127.552, 115.424, 16.744, 0.776)
pt3dadd(127.672, 115.424, 16.744, 0.782)
pt3dadd(127.792, 115.424, 16.744, 0.79)
pt3dadd(127.912, 115.424, 16.744, 0.796)
pt3dadd(128.032, 115.424, 16.744, 0.804)
pt3dadd(128.152, 115.424, 16.744, 0.812)
pt3dadd(128.272, 115.424, 16.744, 0.818)
pt3dadd(128.392, 115.424, 16.744, 0.826)
pt3dadd(128.512, 115.424, 16.744, 0.832)
pt3dadd(128.632, 115.424, 16.744, 0.84)
pt3dadd(128.752, 115.424, 16.744, 0.834)
pt3dadd(128.872, 115.424, 16.744, 0.818)
pt3dadd(128.992, 115.424, 16.744, 0.802)
pt3dadd(129.112, 115.424, 16.744, 0.784)
pt3dadd(129.232, 115.424, 16.744, 0.768)
pt3dadd(129.352, 115.424, 16.744, 0.752)
pt3dadd(129.472, 115.424, 16.744, 0.736)
pt3dadd(129.592, 115.424, 16.744, 0.718)
pt3dadd(129.712, 115.424, 16.744, 0.702)
pt3dadd(129.832, 115.424, 16.744, 0.686)
pt3dadd(129.952, 115.424, 16.744, 0.678)
pt3dadd(130.072, 115.424, 16.744, 0.678)
pt3dadd(130.192, 115.424, 16.744, 0.678)
pt3dadd(130.312, 115.424, 16.744, 0.678)
pt3dadd(130.432, 115.424, 16.744, 0.678)
pt3dadd(130.552, 115.424, 16.744, 0.678)
pt3dadd(130.672, 115.424, 16.744, 0.678)
pt3dadd(130.792, 115.424, 16.744, 0.678)
pt3dadd(130.912, 115.424, 16.744, 0.678)
pt3dadd(131.032, 115.424, 16.744, 0.678)
pt3dadd(131.152, 115.424, 16.744, 0.698)
pt3dadd(131.272, 115.424, 16.744, 0.736)
pt3dadd(131.392, 115.424, 16.744, 0.774)
pt3dadd(131.512, 115.424, 16.744, 0.812)
pt3dadd(131.632, 115.424, 16.745, 0.848)
pt3dadd(131.752, 115.424, 16.745, 0.886)
pt3dadd(131.872, 115.424, 16.745, 0.924)
pt3dadd(131.992, 115.424, 16.745, 0.962)
pt3dadd(132.112, 115.424, 16.745, 1)
pt3dadd(132.232, 115.424, 16.745, 1.036)
pt3dadd(132.352, 115.424, 16.745, 1.042)
pt3dadd(132.472, 115.424, 16.745, 1.018)
pt3dadd(132.592, 115.424, 16.745, 0.994)
pt3dadd(132.712, 115.424, 16.745, 0.972)
pt3dadd(132.832, 115.424, 16.745, 0.948)
pt3dadd(132.952, 115.424, 16.746, 0.924)
pt3dadd(133.072, 115.424, 16.746, 0.9)
pt3dadd(133.192, 115.424, 16.746, 0.878)
pt3dadd(133.312, 115.424, 16.746, 0.854)
pt3dadd(133.432, 115.424, 16.746, 0.83)
pt3dadd(133.552, 115.425, 16.746, 0.812)
pt3dadd(133.672, 115.425, 16.747, 0.798)
pt3dadd(133.792, 115.425, 16.747, 0.784)
pt3dadd(133.912, 115.425, 16.747, 0.77)
pt3dadd(134.032, 115.425, 16.747, 0.756)
pt3dadd(134.152, 115.425, 16.747, 0.742)
pt3dadd(134.272, 115.425, 16.748, 0.726)
pt3dadd(134.392, 115.425, 16.748, 0.712)
}
}
proc shape3d_96() {
dend_7[15] { pt3dadd(134.512, 115.425, 16.748, 0.698)
pt3dadd(134.632, 115.426, 16.748, 0.684)
pt3dadd(134.752, 115.426, 16.749, 0.688)
pt3dadd(134.872, 115.426, 16.749, 0.706)
pt3dadd(134.992, 115.426, 16.75, 0.724)
pt3dadd(135.112, 115.426, 16.75, 0.742)
pt3dadd(135.232, 115.426, 16.751, 0.76)
pt3dadd(135.352, 115.426, 16.751, 0.778)
pt3dadd(135.472, 115.426, 16.751, 0.796)
pt3dadd(135.592, 115.426, 16.752, 0.814)
pt3dadd(135.712, 115.426, 16.752, 0.832)
pt3dadd(135.832, 115.426, 16.753, 0.85)
pt3dadd(135.952, 115.426, 16.754, 0.872)
pt3dadd(136.072, 115.426, 16.754, 0.9)
pt3dadd(136.192, 115.426, 16.755, 0.926)
pt3dadd(136.312, 115.426, 16.756, 0.954)
pt3dadd(136.432, 115.427, 16.757, 0.982)
pt3dadd(136.552, 115.427, 16.758, 1.008)
pt3dadd(136.672, 115.427, 16.759, 1.036)
pt3dadd(136.792, 115.427, 16.76, 1.062)
pt3dadd(136.912, 115.428, 16.76, 1.09)
pt3dadd(137.032, 115.428, 16.761, 1.118)
pt3dadd(137.152, 115.428, 16.763, 1.13)
pt3dadd(137.272, 115.428, 16.764, 1.13)
pt3dadd(137.392, 115.428, 16.766, 1.13)
pt3dadd(137.512, 115.428, 16.767, 1.13)
pt3dadd(137.632, 115.429, 16.769, 1.13)
pt3dadd(137.752, 115.429, 16.771, 1.13)
pt3dadd(137.872, 115.429, 16.772, 1.13)
pt3dadd(137.992, 115.429, 16.774, 1.13)
pt3dadd(138.112, 115.429, 16.776, 1.13)
pt3dadd(138.232, 115.429, 16.777, 1.13)
pt3dadd(138.35, 115.429, 16.779, 1.13)
pt3dadd(138.47, 115.43, 16.782, 1.13)
pt3dadd(138.59, 115.43, 16.785, 1.13)
pt3dadd(138.71, 115.431, 16.788, 1.13)
pt3dadd(138.83, 115.431, 16.791, 1.13)
pt3dadd(138.95, 115.432, 16.794, 1.13)
pt3dadd(139.07, 115.432, 16.797, 1.13)
pt3dadd(139.19, 115.433, 16.8, 1.13)
pt3dadd(139.31, 115.433, 16.803, 1.13)
pt3dadd(139.43, 115.434, 16.805, 1.13)
pt3dadd(139.55, 115.434, 16.81, 1.13)
pt3dadd(139.67, 115.435, 16.817, 1.13)
pt3dadd(139.789, 115.436, 16.824, 1.13)
pt3dadd(139.909, 115.437, 16.831, 1.13)
pt3dadd(140.029, 115.438, 16.838, 1.13)
pt3dadd(140.149, 115.439, 16.845, 1.13)
pt3dadd(140.269, 115.44, 16.852, 1.13)
pt3dadd(140.388, 115.441, 16.859, 1.13)
pt3dadd(140.508, 115.442, 16.866, 1.13)
pt3dadd(140.628, 115.443, 16.873, 1.13)
pt3dadd(140.747, 115.445, 16.881, 1.122)
pt3dadd(140.867, 115.447, 16.892, 1.106)
pt3dadd(140.986, 115.449, 16.903, 1.092)
pt3dadd(141.106, 115.45, 16.913, 1.076)
pt3dadd(141.224, 115.452, 16.924, 1.062)
pt3dadd(141.343, 115.454, 16.935, 1.048)
pt3dadd(141.463, 115.456, 16.946, 1.032)
pt3dadd(141.582, 115.458, 16.956, 1.016)
pt3dadd(141.702, 115.46, 16.967, 1.002)
pt3dadd(141.821, 115.462, 16.978, 0.988)
pt3dadd(141.938, 115.465, 16.997, 0.97)
pt3dadd(142.054, 115.468, 17.025, 0.952)
pt3dadd(142.169, 115.471, 17.052, 0.932)
pt3dadd(142.284, 115.475, 17.08, 0.914)
pt3dadd(142.399, 115.478, 17.107, 0.896)
pt3dadd(142.514, 115.482, 17.135, 0.878)
pt3dadd(142.63, 115.485, 17.162, 0.858)
pt3dadd(142.746, 115.488, 17.19, 0.84)
pt3dadd(142.861, 115.492, 17.217, 0.822)
pt3dadd(142.976, 115.495, 17.245, 0.802)
pt3dadd(143.09, 115.5, 17.275, 0.796)
pt3dadd(143.203, 115.507, 17.309, 0.798)
pt3dadd(143.316, 115.513, 17.342, 0.798)
pt3dadd(143.429, 115.519, 17.375, 0.8)
pt3dadd(143.543, 115.526, 17.408, 0.8)
pt3dadd(143.656, 115.532, 17.441, 0.802)
pt3dadd(143.768, 115.539, 17.474, 0.802)
pt3dadd(143.881, 115.545, 17.507, 0.804)
pt3dadd(143.994, 115.551, 17.54, 0.804)
pt3dadd(144.108, 115.558, 17.573, 0.806)
pt3dadd(144.223, 115.567, 17.6, 0.826)
pt3dadd(144.338, 115.579, 17.623, 0.854)
pt3dadd(144.455, 115.59, 17.645, 0.886)
pt3dadd(144.571, 115.602, 17.668, 0.914)
pt3dadd(144.688, 115.614, 17.691, 0.944)
pt3dadd(144.804, 115.625, 17.714, 0.974)
pt3dadd(144.92, 115.637, 17.737, 1.004)
pt3dadd(145.037, 115.648, 17.76, 1.034)
pt3dadd(145.153, 115.66, 17.783, 1.064)
pt3dadd(145.268, 115.671, 17.806, 1.094)
pt3dadd(145.386, 115.687, 17.822, 1.092)
pt3dadd(145.504, 115.706, 17.834, 1.074)
pt3dadd(145.621, 115.724, 17.846, 1.054)
pt3dadd(145.739, 115.743, 17.859, 1.036)
pt3dadd(145.856, 115.761, 17.871, 1.016)
pt3dadd(145.974, 115.78, 17.883, 0.998)
pt3dadd(146.092, 115.798, 17.896, 0.978)
pt3dadd(146.209, 115.817, 17.908, 0.96)
pt3dadd(146.327, 115.835, 17.92, 0.94)
pt3dadd(146.444, 115.854, 17.933, 0.922)
pt3dadd(146.556, 115.894, 17.939, 0.914)
pt3dadd(146.664, 115.946, 17.942, 0.912)
pt3dadd(146.772, 115.998, 17.945, 0.912)
pt3dadd(146.88, 116.05, 17.948, 0.91)
pt3dadd(146.989, 116.102, 17.952, 0.91)
pt3dadd(147.097, 116.154, 17.955, 0.908)
pt3dadd(147.205, 116.206, 17.958, 0.908)
pt3dadd(147.313, 116.258, 17.961, 0.906)
pt3dadd(147.421, 116.31, 17.964, 0.906)
pt3dadd(147.529, 116.362, 17.967, 0.904)
pt3dadd(147.638, 116.412, 17.972, 0.904)
pt3dadd(147.748, 116.461, 17.977, 0.904)
pt3dadd(147.857, 116.51, 17.982, 0.904)
pt3dadd(147.966, 116.56, 17.987, 0.904)
pt3dadd(148.075, 116.609, 17.992, 0.904)
pt3dadd(148.184, 116.658, 17.998, 0.904)
pt3dadd(148.294, 116.707, 18.003, 0.904)
pt3dadd(148.403, 116.757, 18.008, 0.904)
pt3dadd(148.512, 116.806, 18.013, 0.904)
pt3dadd(148.621, 116.855, 18.018, 0.904)
pt3dadd(148.728, 116.908, 18.025, 0.904)
pt3dadd(148.835, 116.963, 18.033, 0.904)
pt3dadd(148.942, 117.017, 18.041, 0.904)
pt3dadd(149.048, 117.072, 18.049, 0.904)
pt3dadd(149.154, 117.126, 18.057, 0.904)
pt3dadd(149.261, 117.18, 18.065, 0.904)
pt3dadd(149.368, 117.235, 18.073, 0.904)
pt3dadd(149.474, 117.289, 18.081, 0.904)
pt3dadd(149.581, 117.344, 18.089, 0.904)
pt3dadd(149.687, 117.398, 18.097, 0.904)
pt3dadd(149.789, 117.461, 18.107, 0.904)
pt3dadd(149.888, 117.526, 18.118, 0.902)
pt3dadd(149.988, 117.592, 18.129, 0.902)
pt3dadd(150.088, 117.657, 18.14, 0.902)
pt3dadd(150.187, 117.723, 18.151, 0.902)
pt3dadd(150.287, 117.788, 18.162, 0.9)
pt3dadd(150.386, 117.854, 18.172, 0.9)
pt3dadd(150.487, 117.919, 18.183, 0.9)
pt3dadd(150.587, 117.985, 18.194, 0.898)
pt3dadd(150.686, 118.05, 18.205, 0.898)
pt3dadd(150.785, 118.106, 18.235, 0.886)
pt3dadd(150.884, 118.159, 18.271, 0.868)
pt3dadd(150.983, 118.211, 18.307, 0.85)
pt3dadd(151.081, 118.264, 18.343, 0.834)
pt3dadd(151.18, 118.317, 18.379, 0.816)
pt3dadd(151.279, 118.369, 18.415, 0.798)
pt3dadd(151.378, 118.422, 18.451, 0.782)
pt3dadd(151.476, 118.475, 18.487, 0.764)
pt3dadd(151.576, 118.527, 18.523, 0.746)
pt3dadd(151.674, 118.58, 18.559, 0.73)
pt3dadd(151.768, 118.647, 18.587, 0.74)
pt3dadd(151.859, 118.718, 18.612, 0.758)
pt3dadd(151.95, 118.79, 18.637, 0.778)
pt3dadd(152.042, 118.861, 18.663, 0.798)
pt3dadd(152.134, 118.932, 18.688, 0.818)
pt3dadd(152.225, 119.004, 18.713, 0.838)
pt3dadd(152.317, 119.075, 18.739, 0.858)
pt3dadd(152.408, 119.146, 18.764, 0.878)
pt3dadd(152.5, 119.218, 18.789, 0.896)
pt3dadd(152.591, 119.289, 18.815, 0.916)
pt3dadd(152.672, 119.374, 18.834, 0.926)
pt3dadd(152.752, 119.462, 18.851, 0.934)
pt3dadd(152.831, 119.55, 18.869, 0.942)
pt3dadd(152.91, 119.637, 18.886, 0.948)
pt3dadd(152.989, 119.725, 18.904, 0.956)
pt3dadd(153.067, 119.813, 18.921, 0.964)
pt3dadd(153.146, 119.901, 18.939, 0.97)
pt3dadd(153.226, 119.989, 18.957, 0.978)
pt3dadd(153.305, 120.077, 18.974, 0.986)
pt3dadd(153.384, 120.164, 18.992, 0.992)
pt3dadd(153.446, 120.266, 19.001, 0.966)
pt3dadd(153.508, 120.368, 19.01, 0.936)
pt3dadd(153.57, 120.47, 19.019, 0.908)
pt3dadd(153.631, 120.574, 19.028, 0.878)
pt3dadd(153.692, 120.676, 19.038, 0.85)
pt3dadd(153.755, 120.778, 19.047, 0.82)
pt3dadd(153.816, 120.881, 19.056, 0.792)
pt3dadd(153.878, 120.983, 19.065, 0.762)
pt3dadd(153.94, 121.085, 19.074, 0.734)
pt3dadd(154.001, 121.188, 19.083, 0.704)
pt3dadd(154.066, 121.289, 19.083, 0.718)
pt3dadd(154.13, 121.39, 19.083, 0.734)
pt3dadd(154.194, 121.492, 19.083, 0.75)
pt3dadd(154.259, 121.592, 19.083, 0.768)
pt3dadd(154.324, 121.693, 19.083, 0.784)
pt3dadd(154.387, 121.795, 19.083, 0.8)
pt3dadd(154.452, 121.896, 19.083, 0.816)
pt3dadd(154.517, 121.998, 19.083, 0.832)
pt3dadd(154.58, 122.099, 19.083, 0.848)
pt3dadd(154.645, 122.2, 19.083, 0.864)
pt3dadd(154.702, 122.306, 19.083, 0.882)
pt3dadd(154.757, 122.412, 19.083, 0.9)
pt3dadd(154.812, 122.519, 19.083, 0.916)
pt3dadd(154.867, 122.626, 19.083, 0.934)
pt3dadd(154.922, 122.732, 19.083, 0.95)
pt3dadd(154.978, 122.838, 19.083, 0.968)
pt3dadd(155.034, 122.945, 19.083, 0.984)
pt3dadd(155.089, 123.052, 19.083, 1.002)
}
}
proc shape3d_97() {
dend_7[15] { pt3dadd(155.144, 123.157, 19.083, 1.02)
pt3dadd(155.2, 123.264, 19.083, 1.036)
pt3dadd(155.261, 123.367, 19.083, 1.038)
pt3dadd(155.323, 123.47, 19.083, 1.042)
pt3dadd(155.386, 123.572, 19.083, 1.044)
pt3dadd(155.447, 123.676, 19.083, 1.046)
pt3dadd(155.509, 123.779, 19.083, 1.048)
pt3dadd(155.57, 123.881, 19.083, 1.05)
pt3dadd(155.633, 123.984, 19.083, 1.052)
pt3dadd(155.695, 124.087, 19.083, 1.054)
pt3dadd(155.756, 124.189, 19.083, 1.056)
pt3dadd(155.819, 124.292, 19.083, 1.058)
pt3dadd(155.891, 124.388, 19.083, 1.042)
pt3dadd(155.963, 124.484, 19.083, 1.028)
pt3dadd(156.035, 124.58, 19.083, 1.012)
pt3dadd(156.107, 124.676, 19.083, 0.996)
pt3dadd(156.179, 124.771, 19.083, 0.982)
pt3dadd(156.252, 124.867, 19.083, 0.966)
pt3dadd(156.324, 124.963, 19.083, 0.95)
pt3dadd(156.396, 125.059, 19.083, 0.934)
pt3dadd(156.468, 125.155, 19.083, 0.92)
pt3dadd(156.54, 125.251, 19.083, 0.904)
}
dend_7[16] {pt3dclear()
pt3dadd(156.54, 125.251, 19.083, 0.904)
pt3dadd(156.583, 125.299, 19.083, 0.896)
pt3dadd(156.662, 125.389, 19.083, 0.882)
pt3dadd(156.742, 125.479, 19.083, 0.868)
pt3dadd(156.821, 125.569, 19.083, 0.852)
pt3dadd(156.901, 125.659, 19.083, 0.838)
pt3dadd(156.98, 125.749, 19.083, 0.824)
pt3dadd(157.06, 125.839, 19.083, 0.81)
pt3dadd(157.14, 125.928, 19.083, 0.794)
pt3dadd(157.22, 126.017, 19.083, 0.778)
pt3dadd(157.301, 126.107, 19.083, 0.762)
pt3dadd(157.38, 126.196, 19.083, 0.746)
pt3dadd(157.46, 126.284, 19.083, 0.728)
pt3dadd(157.541, 126.374, 19.083, 0.712)
pt3dadd(157.621, 126.463, 19.083, 0.696)
pt3dadd(157.702, 126.552, 19.083, 0.68)
pt3dadd(157.782, 126.642, 19.083, 0.664)
pt3dadd(157.862, 126.731, 19.083, 0.648)
pt3dadd(157.944, 126.818, 19.083, 0.626)
pt3dadd(158.029, 126.904, 19.083, 0.598)
pt3dadd(158.113, 126.989, 19.083, 0.57)
pt3dadd(158.198, 127.074, 19.083, 0.544)
pt3dadd(158.282, 127.159, 19.083, 0.516)
pt3dadd(158.368, 127.244, 19.083, 0.488)
pt3dadd(158.452, 127.33, 19.083, 0.462)
pt3dadd(158.536, 127.415, 19.083, 0.434)
pt3dadd(158.621, 127.5, 19.083, 0.406)
pt3dadd(158.705, 127.585, 19.083, 0.378)
pt3dadd(158.79, 127.67, 19.083, 0.376)
pt3dadd(158.874, 127.756, 19.083, 0.404)
pt3dadd(158.958, 127.841, 19.083, 0.432)
pt3dadd(159.042, 127.926, 19.083, 0.458)
pt3dadd(159.127, 128.011, 19.083, 0.486)
pt3dadd(159.211, 128.096, 19.083, 0.512)
pt3dadd(159.295, 128.183, 19.083, 0.54)
pt3dadd(159.38, 128.268, 19.083, 0.568)
pt3dadd(159.464, 128.353, 19.083, 0.594)
pt3dadd(159.548, 128.438, 19.083, 0.622)
pt3dadd(159.634, 128.524, 19.083, 0.674)
pt3dadd(159.718, 128.609, 19.083, 0.758)
pt3dadd(159.802, 128.695, 19.083, 0.84)
pt3dadd(159.886, 128.78, 19.083, 0.922)
pt3dadd(159.97, 128.867, 19.083, 1.006)
pt3dadd(160.054, 128.952, 19.083, 1.088)
pt3dadd(160.138, 129.037, 19.083, 1.17)
pt3dadd(160.222, 129.124, 19.083, 1.254)
pt3dadd(160.306, 129.209, 19.083, 1.336)
pt3dadd(160.39, 129.294, 19.083, 1.418)
pt3dadd(160.474, 129.38, 19.083, 1.446)
pt3dadd(160.556, 129.467, 19.083, 1.412)
pt3dadd(160.64, 129.553, 19.083, 1.376)
pt3dadd(160.724, 129.638, 19.083, 1.34)
pt3dadd(160.807, 129.725, 19.083, 1.304)
pt3dadd(160.891, 129.811, 19.083, 1.268)
pt3dadd(160.974, 129.898, 19.083, 1.232)
pt3dadd(161.058, 129.984, 19.083, 1.196)
pt3dadd(161.141, 130.07, 19.083, 1.16)
pt3dadd(161.225, 130.157, 19.083, 1.126)
pt3dadd(161.308, 130.243, 19.083, 1.088)
pt3dadd(161.39, 130.33, 19.083, 1.048)
pt3dadd(161.473, 130.416, 19.083, 1.008)
pt3dadd(161.556, 130.504, 19.083, 0.97)
pt3dadd(161.64, 130.59, 19.083, 0.93)
pt3dadd(161.723, 130.676, 19.083, 0.89)
pt3dadd(161.806, 130.763, 19.083, 0.85)
pt3dadd(161.888, 130.85, 19.083, 0.812)
pt3dadd(161.971, 130.937, 19.083, 0.772)
pt3dadd(162.054, 131.023, 19.083, 0.732)
pt3dadd(162.136, 131.111, 19.083, 0.718)
pt3dadd(162.217, 131.2, 19.083, 0.732)
pt3dadd(162.298, 131.288, 19.083, 0.746)
pt3dadd(162.379, 131.376, 19.083, 0.76)
pt3dadd(162.461, 131.465, 19.083, 0.774)
pt3dadd(162.541, 131.554, 19.083, 0.788)
pt3dadd(162.623, 131.642, 19.083, 0.802)
pt3dadd(162.703, 131.73, 19.083, 0.818)
pt3dadd(162.785, 131.819, 19.083, 0.832)
pt3dadd(162.865, 131.908, 19.083, 0.846)
pt3dadd(162.946, 131.996, 19.083, 0.846)
pt3dadd(163.025, 132.088, 19.083, 0.832)
pt3dadd(163.104, 132.178, 19.083, 0.82)
pt3dadd(163.183, 132.268, 19.083, 0.806)
pt3dadd(163.262, 132.358, 19.083, 0.792)
pt3dadd(163.342, 132.448, 19.083, 0.778)
pt3dadd(163.421, 132.538, 19.083, 0.764)
pt3dadd(163.5, 132.628, 19.083, 0.75)
pt3dadd(163.579, 132.719, 19.083, 0.736)
pt3dadd(163.658, 132.809, 19.083, 0.722)
pt3dadd(163.735, 132.9, 19.083, 0.702)
pt3dadd(163.812, 132.992, 19.083, 0.676)
pt3dadd(163.888, 133.086, 19.083, 0.65)
pt3dadd(163.963, 133.178, 19.083, 0.624)
pt3dadd(164.039, 133.272, 19.083, 0.596)
pt3dadd(164.116, 133.364, 19.083, 0.57)
pt3dadd(164.191, 133.458, 19.083, 0.544)
pt3dadd(164.267, 133.55, 19.083, 0.518)
pt3dadd(164.342, 133.644, 19.083, 0.492)
pt3dadd(164.419, 133.736, 19.083, 0.466)
pt3dadd(164.485, 133.836, 19.083, 0.452)
pt3dadd(164.542, 133.942, 19.083, 0.452)
pt3dadd(164.598, 134.048, 19.083, 0.452)
pt3dadd(164.654, 134.154, 19.083, 0.452)
pt3dadd(164.71, 134.26, 19.083, 0.452)
pt3dadd(164.766, 134.366, 19.083, 0.452)
pt3dadd(164.822, 134.472, 19.083, 0.452)
pt3dadd(164.879, 134.578, 19.083, 0.452)
pt3dadd(164.935, 134.683, 19.083, 0.452)
pt3dadd(164.992, 134.79, 19.083, 0.452)
pt3dadd(165.052, 134.894, 19.083, 0.452)
pt3dadd(165.114, 134.996, 19.083, 0.452)
pt3dadd(165.178, 135.098, 19.083, 0.452)
pt3dadd(165.241, 135.2, 19.083, 0.452)
pt3dadd(165.304, 135.302, 19.083, 0.452)
pt3dadd(165.367, 135.404, 19.083, 0.452)
pt3dadd(165.43, 135.506, 19.083, 0.452)
pt3dadd(165.493, 135.608, 19.083, 0.452)
pt3dadd(165.557, 135.71, 19.083, 0.452)
pt3dadd(165.619, 135.812, 19.083, 0.452)
pt3dadd(165.682, 135.916, 19.083, 0.456)
pt3dadd(165.742, 136.019, 19.083, 0.462)
pt3dadd(165.802, 136.122, 19.083, 0.47)
pt3dadd(165.863, 136.226, 19.083, 0.478)
pt3dadd(165.923, 136.33, 19.083, 0.484)
pt3dadd(165.983, 136.434, 19.083, 0.492)
pt3dadd(166.043, 136.537, 19.083, 0.5)
pt3dadd(166.104, 136.642, 19.083, 0.506)
pt3dadd(166.164, 136.745, 19.083, 0.514)
pt3dadd(166.224, 136.849, 19.083, 0.522)
pt3dadd(166.283, 136.954, 19.083, 0.534)
pt3dadd(166.339, 137.059, 19.083, 0.554)
pt3dadd(166.396, 137.165, 19.083, 0.574)
pt3dadd(166.452, 137.27, 19.083, 0.594)
pt3dadd(166.508, 137.377, 19.083, 0.614)
pt3dadd(166.566, 137.483, 19.083, 0.632)
pt3dadd(166.622, 137.588, 19.083, 0.652)
pt3dadd(166.679, 137.694, 19.083, 0.672)
pt3dadd(166.735, 137.801, 19.083, 0.692)
pt3dadd(166.792, 137.906, 19.083, 0.712)
pt3dadd(166.858, 138.006, 19.083, 0.738)
pt3dadd(166.932, 138.1, 19.083, 0.77)
pt3dadd(167.006, 138.194, 19.084, 0.8)
pt3dadd(167.081, 138.288, 19.084, 0.832)
pt3dadd(167.155, 138.383, 19.084, 0.864)
pt3dadd(167.23, 138.476, 19.084, 0.896)
pt3dadd(167.303, 138.571, 19.084, 0.928)
pt3dadd(167.377, 138.665, 19.084, 0.96)
pt3dadd(167.452, 138.76, 19.084, 0.992)
pt3dadd(167.526, 138.853, 19.084, 1.024)
pt3dadd(167.604, 138.944, 19.084, 1.032)
pt3dadd(167.687, 139.032, 19.084, 1.018)
pt3dadd(167.768, 139.121, 19.084, 1.006)
pt3dadd(167.85, 139.208, 19.084, 0.994)
pt3dadd(167.932, 139.296, 19.084, 0.982)
pt3dadd(168.013, 139.384, 19.084, 0.968)
pt3dadd(168.095, 139.471, 19.084, 0.956)
pt3dadd(168.176, 139.56, 19.084, 0.944)
pt3dadd(168.258, 139.648, 19.084, 0.93)
pt3dadd(168.34, 139.735, 19.084, 0.918)
pt3dadd(168.425, 139.82, 19.084, 0.902)
pt3dadd(168.511, 139.903, 19.084, 0.882)
pt3dadd(168.599, 139.986, 19.084, 0.862)
pt3dadd(168.685, 140.069, 19.084, 0.842)
pt3dadd(168.772, 140.152, 19.084, 0.822)
pt3dadd(168.859, 140.234, 19.084, 0.802)
pt3dadd(168.946, 140.317, 19.084, 0.782)
pt3dadd(169.033, 140.4, 19.084, 0.762)
pt3dadd(169.12, 140.483, 19.084, 0.742)
pt3dadd(169.206, 140.566, 19.084, 0.722)
pt3dadd(169.297, 140.644, 19.084, 0.722)
pt3dadd(169.391, 140.719, 19.084, 0.738)
pt3dadd(169.484, 140.794, 19.084, 0.752)
pt3dadd(169.579, 140.868, 19.084, 0.768)
pt3dadd(169.673, 140.944, 19.084, 0.782)
pt3dadd(169.766, 141.018, 19.084, 0.798)
pt3dadd(169.86, 141.092, 19.084, 0.812)
pt3dadd(169.954, 141.168, 19.085, 0.828)
pt3dadd(170.047, 141.242, 19.085, 0.842)
pt3dadd(170.142, 141.318, 19.085, 0.858)
}
}
proc shape3d_98() {
dend_7[16] { pt3dadd(170.242, 141.382, 19.085, 0.86)
pt3dadd(170.348, 141.438, 19.085, 0.85)
pt3dadd(170.454, 141.494, 19.085, 0.842)
pt3dadd(170.56, 141.552, 19.085, 0.832)
pt3dadd(170.665, 141.608, 19.085, 0.824)
pt3dadd(170.771, 141.665, 19.085, 0.814)
pt3dadd(170.878, 141.721, 19.085, 0.804)
pt3dadd(170.983, 141.778, 19.085, 0.796)
pt3dadd(171.089, 141.834, 19.086, 0.786)
pt3dadd(171.194, 141.89, 19.086, 0.778)
pt3dadd(171.305, 141.938, 19.086, 0.774)
pt3dadd(171.418, 141.979, 19.086, 0.772)
pt3dadd(171.53, 142.021, 19.086, 0.772)
pt3dadd(171.642, 142.063, 19.086, 0.77)
pt3dadd(171.755, 142.105, 19.087, 0.768)
pt3dadd(171.868, 142.146, 19.087, 0.768)
pt3dadd(171.98, 142.188, 19.087, 0.766)
pt3dadd(172.092, 142.23, 19.087, 0.766)
pt3dadd(172.205, 142.272, 19.087, 0.764)
pt3dadd(172.318, 142.314, 19.088, 0.762)
pt3dadd(172.43, 142.352, 19.088, 0.766)
pt3dadd(172.544, 142.391, 19.088, 0.772)
pt3dadd(172.658, 142.429, 19.089, 0.778)
pt3dadd(172.772, 142.466, 19.089, 0.784)
pt3dadd(172.886, 142.505, 19.089, 0.79)
pt3dadd(173, 142.543, 19.09, 0.796)
pt3dadd(173.113, 142.58, 19.09, 0.802)
pt3dadd(173.227, 142.619, 19.09, 0.808)
pt3dadd(173.341, 142.656, 19.091, 0.814)
pt3dadd(173.455, 142.694, 19.091, 0.82)
pt3dadd(173.564, 142.745, 19.092, 0.798)
pt3dadd(173.67, 142.8, 19.092, 0.764)
pt3dadd(173.777, 142.855, 19.093, 0.73)
pt3dadd(173.884, 142.91, 19.093, 0.696)
pt3dadd(173.99, 142.966, 19.094, 0.662)
pt3dadd(174.096, 143.021, 19.094, 0.626)
pt3dadd(174.203, 143.076, 19.095, 0.592)
pt3dadd(174.31, 143.131, 19.096, 0.558)
pt3dadd(174.416, 143.186, 19.096, 0.524)
pt3dadd(174.522, 143.243, 19.097, 0.49)
pt3dadd(174.63, 143.296, 19.098, 0.488)
pt3dadd(174.738, 143.347, 19.099, 0.502)
pt3dadd(174.847, 143.399, 19.1, 0.514)
pt3dadd(174.955, 143.45, 19.101, 0.528)
pt3dadd(175.063, 143.502, 19.103, 0.542)
pt3dadd(175.172, 143.554, 19.104, 0.556)
pt3dadd(175.28, 143.605, 19.105, 0.568)
pt3dadd(175.388, 143.657, 19.106, 0.582)
pt3dadd(175.496, 143.707, 19.107, 0.596)
pt3dadd(175.606, 143.759, 19.109, 0.608)
pt3dadd(175.709, 143.819, 19.11, 0.61)
pt3dadd(175.811, 143.882, 19.112, 0.608)
pt3dadd(175.913, 143.946, 19.114, 0.604)
pt3dadd(176.014, 144.01, 19.116, 0.6)
pt3dadd(176.116, 144.073, 19.118, 0.598)
pt3dadd(176.218, 144.137, 19.12, 0.594)
pt3dadd(176.32, 144.202, 19.122, 0.59)
pt3dadd(176.42, 144.265, 19.124, 0.588)
pt3dadd(176.522, 144.329, 19.126, 0.584)
pt3dadd(176.624, 144.392, 19.128, 0.58)
pt3dadd(176.722, 144.461, 19.13, 0.572)
pt3dadd(176.819, 144.533, 19.133, 0.562)
pt3dadd(176.915, 144.604, 19.136, 0.552)
pt3dadd(177.011, 144.676, 19.139, 0.542)
pt3dadd(177.108, 144.746, 19.142, 0.532)
pt3dadd(177.204, 144.818, 19.145, 0.522)
pt3dadd(177.3, 144.889, 19.148, 0.512)
pt3dadd(177.397, 144.961, 19.151, 0.502)
pt3dadd(177.493, 145.032, 19.153, 0.492)
pt3dadd(177.589, 145.104, 19.156, 0.482)
pt3dadd(177.683, 145.178, 19.161, 0.49)
pt3dadd(177.776, 145.254, 19.167, 0.504)
pt3dadd(177.869, 145.331, 19.172, 0.52)
pt3dadd(177.961, 145.406, 19.177, 0.534)
pt3dadd(178.055, 145.482, 19.183, 0.55)
pt3dadd(178.147, 145.558, 19.188, 0.564)
pt3dadd(178.24, 145.633, 19.194, 0.58)
pt3dadd(178.333, 145.71, 19.199, 0.594)
pt3dadd(178.426, 145.786, 19.205, 0.61)
pt3dadd(178.518, 145.861, 19.21, 0.624)
pt3dadd(178.609, 145.938, 19.217, 0.64)
pt3dadd(178.7, 146.016, 19.225, 0.654)
pt3dadd(178.79, 146.094, 19.232, 0.668)
pt3dadd(178.882, 146.172, 19.24, 0.682)
pt3dadd(178.973, 146.251, 19.248, 0.698)
pt3dadd(179.063, 146.329, 19.255, 0.712)
pt3dadd(179.154, 146.407, 19.263, 0.726)
pt3dadd(179.244, 146.485, 19.271, 0.742)
pt3dadd(179.335, 146.563, 19.278, 0.756)
pt3dadd(179.426, 146.641, 19.286, 0.77)
pt3dadd(179.516, 146.718, 19.296, 0.784)
pt3dadd(179.608, 146.795, 19.307, 0.798)
pt3dadd(179.699, 146.873, 19.318, 0.81)
pt3dadd(179.789, 146.95, 19.33, 0.824)
pt3dadd(179.88, 147.028, 19.341, 0.836)
pt3dadd(179.971, 147.104, 19.352, 0.85)
pt3dadd(180.062, 147.181, 19.363, 0.862)
pt3dadd(180.152, 147.259, 19.374, 0.876)
pt3dadd(180.244, 147.336, 19.386, 0.888)
pt3dadd(180.335, 147.413, 19.397, 0.902)
pt3dadd(180.431, 147.475, 19.424, 0.904)
pt3dadd(180.528, 147.534, 19.457, 0.904)
pt3dadd(180.625, 147.592, 19.49, 0.904)
pt3dadd(180.722, 147.65, 19.522, 0.904)
pt3dadd(180.821, 147.708, 19.555, 0.904)
pt3dadd(180.918, 147.766, 19.587, 0.904)
pt3dadd(181.015, 147.824, 19.62, 0.904)
pt3dadd(181.112, 147.882, 19.652, 0.904)
pt3dadd(181.21, 147.941, 19.685, 0.904)
pt3dadd(181.308, 147.998, 19.717, 0.904)
pt3dadd(181.404, 148.063, 19.743, 0.888)
pt3dadd(181.5, 148.129, 19.767, 0.868)
pt3dadd(181.595, 148.196, 19.791, 0.848)
pt3dadd(181.691, 148.262, 19.815, 0.828)
pt3dadd(181.787, 148.328, 19.839, 0.808)
pt3dadd(181.883, 148.396, 19.863, 0.788)
pt3dadd(181.978, 148.462, 19.887, 0.768)
pt3dadd(182.074, 148.529, 19.911, 0.746)
pt3dadd(182.17, 148.595, 19.935, 0.726)
pt3dadd(182.266, 148.661, 19.958, 0.706)
pt3dadd(182.359, 148.732, 19.977, 0.682)
pt3dadd(182.453, 148.804, 19.995, 0.658)
pt3dadd(182.546, 148.876, 20.012, 0.632)
pt3dadd(182.64, 148.948, 20.03, 0.608)
pt3dadd(182.734, 149.02, 20.047, 0.582)
pt3dadd(182.827, 149.092, 20.065, 0.556)
pt3dadd(182.922, 149.164, 20.082, 0.532)
pt3dadd(183.016, 149.236, 20.1, 0.506)
pt3dadd(183.109, 149.308, 20.117, 0.482)
pt3dadd(183.203, 149.38, 20.135, 0.456)
pt3dadd(183.293, 149.458, 20.145, 0.452)
pt3dadd(183.384, 149.536, 20.153, 0.452)
pt3dadd(183.474, 149.615, 20.161, 0.452)
pt3dadd(183.564, 149.693, 20.17, 0.452)
pt3dadd(183.654, 149.772, 20.178, 0.452)
pt3dadd(183.744, 149.85, 20.186, 0.452)
pt3dadd(183.834, 149.929, 20.195, 0.452)
pt3dadd(183.924, 150.007, 20.203, 0.452)
pt3dadd(184.014, 150.086, 20.211, 0.452)
pt3dadd(184.104, 150.164, 20.22, 0.452)
pt3dadd(184.193, 150.246, 20.224, 0.466)
pt3dadd(184.28, 150.328, 20.227, 0.484)
pt3dadd(184.368, 150.409, 20.23, 0.5)
pt3dadd(184.456, 150.491, 20.234, 0.518)
pt3dadd(184.544, 150.572, 20.237, 0.534)
pt3dadd(184.632, 150.654, 20.24, 0.552)
pt3dadd(184.72, 150.736, 20.243, 0.568)
pt3dadd(184.807, 150.817, 20.246, 0.586)
pt3dadd(184.895, 150.899, 20.25, 0.602)
pt3dadd(184.984, 150.98, 20.253, 0.62)
pt3dadd(185.07, 151.064, 20.253, 0.646)
pt3dadd(185.156, 151.147, 20.253, 0.674)
pt3dadd(185.242, 151.231, 20.253, 0.702)
pt3dadd(185.328, 151.314, 20.253, 0.73)
pt3dadd(185.414, 151.398, 20.253, 0.758)
pt3dadd(185.501, 151.481, 20.253, 0.784)
pt3dadd(185.587, 151.565, 20.253, 0.812)
pt3dadd(185.674, 151.648, 20.253, 0.84)
pt3dadd(185.76, 151.732, 20.253, 0.868)
pt3dadd(185.846, 151.814, 20.253, 0.896)
pt3dadd(185.934, 151.896, 20.253, 0.912)
pt3dadd(186.022, 151.978, 20.253, 0.928)
pt3dadd(186.11, 152.059, 20.253, 0.942)
pt3dadd(186.198, 152.141, 20.253, 0.956)
pt3dadd(186.287, 152.221, 20.253, 0.97)
pt3dadd(186.374, 152.303, 20.253, 0.984)
pt3dadd(186.463, 152.384, 20.253, 0.998)
pt3dadd(186.551, 152.466, 20.253, 1.014)
pt3dadd(186.64, 152.548, 20.253, 1.028)
pt3dadd(186.728, 152.628, 20.253, 1.042)
pt3dadd(186.817, 152.708, 20.253, 1.046)
pt3dadd(186.906, 152.789, 20.253, 1.05)
pt3dadd(186.996, 152.869, 20.253, 1.052)
pt3dadd(187.085, 152.95, 20.253, 1.054)
pt3dadd(187.174, 153.03, 20.253, 1.058)
pt3dadd(187.264, 153.109, 20.253, 1.06)
pt3dadd(187.352, 153.19, 20.253, 1.064)
pt3dadd(187.442, 153.27, 20.253, 1.066)
pt3dadd(187.531, 153.35, 20.253, 1.068)
pt3dadd(187.62, 153.431, 20.253, 1.072)
pt3dadd(187.711, 153.509, 20.253, 1.06)
pt3dadd(187.802, 153.588, 20.253, 1.046)
pt3dadd(187.892, 153.666, 20.253, 1.03)
pt3dadd(187.984, 153.744, 20.253, 1.016)
pt3dadd(188.075, 153.823, 20.253, 1.002)
pt3dadd(188.165, 153.901, 20.253, 0.986)
pt3dadd(188.256, 153.98, 20.253, 0.972)
pt3dadd(188.347, 154.058, 20.253, 0.958)
pt3dadd(188.437, 154.136, 20.253, 0.942)
pt3dadd(188.528, 154.216, 20.253, 0.928)
pt3dadd(188.629, 154.28, 20.253, 0.936)
pt3dadd(188.732, 154.342, 20.253, 0.948)
pt3dadd(188.834, 154.403, 20.253, 0.96)
pt3dadd(188.938, 154.465, 20.253, 0.972)
pt3dadd(189.041, 154.526, 20.253, 0.984)
pt3dadd(189.144, 154.589, 20.253, 0.996)
pt3dadd(189.246, 154.65, 20.253, 1.01)
pt3dadd(189.349, 154.712, 20.253, 1.022)
pt3dadd(189.452, 154.774, 20.253, 1.034)
pt3dadd(189.556, 154.836, 20.253, 1.046)
}
}
proc shape3d_99() {
dend_7[16] { pt3dadd(189.658, 154.898, 20.253, 1.034)
pt3dadd(189.761, 154.961, 20.253, 1.016)
pt3dadd(189.863, 155.023, 20.253, 1)
pt3dadd(189.965, 155.086, 20.253, 0.984)
pt3dadd(190.068, 155.148, 20.253, 0.968)
pt3dadd(190.17, 155.21, 20.253, 0.952)
pt3dadd(190.272, 155.273, 20.253, 0.934)
pt3dadd(190.375, 155.335, 20.253, 0.918)
pt3dadd(190.477, 155.398, 20.253, 0.902)
pt3dadd(190.58, 155.46, 20.253, 0.886)
pt3dadd(190.68, 155.526, 20.253, 0.848)
pt3dadd(190.78, 155.592, 20.253, 0.808)
pt3dadd(190.88, 155.659, 20.253, 0.77)
pt3dadd(190.98, 155.725, 20.253, 0.73)
pt3dadd(191.08, 155.791, 20.253, 0.69)
pt3dadd(191.179, 155.858, 20.253, 0.65)
pt3dadd(191.28, 155.924, 20.253, 0.61)
pt3dadd(191.38, 155.992, 20.253, 0.572)
pt3dadd(191.479, 156.058, 20.253, 0.532)
pt3dadd(191.58, 156.124, 20.253, 0.492)
pt3dadd(191.677, 156.193, 20.253, 0.514)
pt3dadd(191.774, 156.264, 20.253, 0.546)
pt3dadd(191.872, 156.334, 20.253, 0.576)
pt3dadd(191.969, 156.404, 20.253, 0.608)
pt3dadd(192.066, 156.474, 20.253, 0.64)
pt3dadd(192.163, 156.545, 20.253, 0.67)
pt3dadd(192.262, 156.614, 20.253, 0.702)
pt3dadd(192.359, 156.685, 20.253, 0.734)
pt3dadd(192.456, 156.755, 20.253, 0.764)
pt3dadd(192.553, 156.826, 20.253, 0.796)
pt3dadd(192.656, 156.886, 20.252, 0.798)
pt3dadd(192.762, 156.944, 20.252, 0.798)
pt3dadd(192.866, 157.002, 20.252, 0.796)
pt3dadd(192.971, 157.061, 20.252, 0.796)
pt3dadd(193.076, 157.12, 20.252, 0.794)
pt3dadd(193.181, 157.177, 20.252, 0.792)
pt3dadd(193.286, 157.236, 20.252, 0.792)
pt3dadd(193.391, 157.295, 20.252, 0.79)
pt3dadd(193.495, 157.352, 20.252, 0.788)
pt3dadd(193.601, 157.411, 20.252, 0.788)
pt3dadd(193.708, 157.465, 20.252, 0.784)
pt3dadd(193.814, 157.519, 20.252, 0.778)
pt3dadd(193.922, 157.572, 20.252, 0.774)
pt3dadd(194.029, 157.626, 20.252, 0.77)
pt3dadd(194.137, 157.68, 20.251, 0.766)
pt3dadd(194.244, 157.734, 20.251, 0.76)
pt3dadd(194.352, 157.787, 20.251, 0.756)
pt3dadd(194.459, 157.841, 20.251, 0.75)
pt3dadd(194.566, 157.895, 20.251, 0.746)
pt3dadd(194.674, 157.948, 20.251, 0.742)
pt3dadd(194.78, 158.003, 20.251, 0.754)
pt3dadd(194.887, 158.058, 20.251, 0.768)
pt3dadd(194.993, 158.113, 20.25, 0.78)
pt3dadd(195.1, 158.168, 20.25, 0.794)
pt3dadd(195.206, 158.224, 20.25, 0.808)
pt3dadd(195.313, 158.279, 20.25, 0.822)
pt3dadd(195.42, 158.334, 20.25, 0.836)
pt3dadd(195.526, 158.389, 20.25, 0.848)
pt3dadd(195.632, 158.444, 20.25, 0.862)
pt3dadd(195.739, 158.5, 20.249, 0.876)
pt3dadd(195.854, 158.534, 20.249, 0.826)
pt3dadd(195.97, 158.567, 20.249, 0.77)
pt3dadd(196.085, 158.6, 20.248, 0.714)
pt3dadd(196.2, 158.633, 20.248, 0.658)
pt3dadd(196.315, 158.666, 20.248, 0.602)
pt3dadd(196.43, 158.699, 20.247, 0.546)
pt3dadd(196.547, 158.731, 20.247, 0.49)
pt3dadd(196.662, 158.765, 20.247, 0.434)
pt3dadd(196.777, 158.797, 20.246, 0.378)
pt3dadd(196.892, 158.83, 20.246, 0.322)
pt3dadd(197.01, 158.856, 20.245, 0.31)
pt3dadd(197.128, 158.881, 20.244, 0.3)
pt3dadd(197.244, 158.906, 20.244, 0.29)
pt3dadd(197.362, 158.932, 20.243, 0.282)
pt3dadd(197.479, 158.957, 20.242, 0.272)
pt3dadd(197.597, 158.982, 20.241, 0.264)
pt3dadd(197.713, 159.007, 20.241, 0.254)
pt3dadd(197.831, 159.032, 20.24, 0.244)
pt3dadd(197.948, 159.058, 20.239, 0.236)
pt3dadd(198.066, 159.083, 20.239, 0.226)
pt3dadd(198.184, 159.103, 20.237, 0.272)
pt3dadd(198.302, 159.124, 20.236, 0.322)
pt3dadd(198.42, 159.144, 20.234, 0.374)
pt3dadd(198.539, 159.164, 20.233, 0.424)
pt3dadd(198.656, 159.185, 20.232, 0.476)
pt3dadd(198.775, 159.204, 20.23, 0.526)
pt3dadd(198.894, 159.224, 20.229, 0.576)
pt3dadd(199.012, 159.245, 20.227, 0.628)
pt3dadd(199.13, 159.265, 20.226, 0.678)
pt3dadd(199.248, 159.286, 20.224, 0.728)
pt3dadd(199.363, 159.32, 20.222, 0.746)
pt3dadd(199.477, 159.356, 20.219, 0.758)
pt3dadd(199.591, 159.392, 20.217, 0.772)
pt3dadd(199.706, 159.43, 20.214, 0.786)
pt3dadd(199.82, 159.466, 20.212, 0.8)
pt3dadd(199.934, 159.502, 20.209, 0.814)
pt3dadd(200.048, 159.539, 20.207, 0.828)
pt3dadd(200.164, 159.575, 20.204, 0.842)
pt3dadd(200.278, 159.611, 20.201, 0.856)
pt3dadd(200.392, 159.648, 20.199, 0.866)
pt3dadd(200.5, 159.701, 20.194, 0.83)
pt3dadd(200.606, 159.754, 20.19, 0.792)
pt3dadd(200.714, 159.806, 20.185, 0.754)
pt3dadd(200.822, 159.859, 20.181, 0.718)
pt3dadd(200.93, 159.912, 20.176, 0.68)
pt3dadd(201.037, 159.964, 20.171, 0.642)
pt3dadd(201.145, 160.016, 20.167, 0.606)
pt3dadd(201.253, 160.069, 20.162, 0.568)
pt3dadd(201.361, 160.122, 20.158, 0.53)
pt3dadd(201.468, 160.175, 20.153, 0.496)
pt3dadd(201.577, 160.224, 20.144, 0.516)
pt3dadd(201.686, 160.272, 20.135, 0.534)
pt3dadd(201.796, 160.321, 20.126, 0.554)
pt3dadd(201.905, 160.37, 20.117, 0.572)
pt3dadd(202.014, 160.42, 20.108, 0.592)
pt3dadd(202.123, 160.468, 20.099, 0.612)
pt3dadd(202.232, 160.517, 20.09, 0.63)
pt3dadd(202.34, 160.566, 20.081, 0.65)
pt3dadd(202.45, 160.615, 20.072, 0.67)
pt3dadd(202.559, 160.664, 20.063, 0.688)
pt3dadd(202.656, 160.733, 20.049, 0.706)
pt3dadd(202.753, 160.801, 20.034, 0.726)
pt3dadd(202.85, 160.868, 20.02, 0.744)
pt3dadd(202.948, 160.937, 20.005, 0.762)
pt3dadd(203.045, 161.005, 19.991, 0.78)
pt3dadd(203.142, 161.072, 19.977, 0.798)
pt3dadd(203.239, 161.141, 19.963, 0.816)
pt3dadd(203.338, 161.209, 19.948, 0.836)
pt3dadd(203.435, 161.278, 19.934, 0.854)
pt3dadd(203.531, 161.345, 19.917, 0.868)
pt3dadd(203.614, 161.406, 19.865, 0.812)
pt3dadd(203.696, 161.466, 19.813, 0.756)
pt3dadd(203.778, 161.527, 19.761, 0.7)
pt3dadd(203.861, 161.587, 19.709, 0.644)
pt3dadd(203.944, 161.648, 19.657, 0.588)
pt3dadd(204.026, 161.708, 19.605, 0.532)
pt3dadd(204.109, 161.77, 19.553, 0.476)
pt3dadd(204.191, 161.831, 19.501, 0.42)
pt3dadd(204.274, 161.891, 19.449, 0.364)
pt3dadd(204.355, 161.954, 19.399, 0.32)
pt3dadd(204.436, 162.026, 19.355, 0.31)
pt3dadd(204.516, 162.098, 19.311, 0.3)
pt3dadd(204.596, 162.172, 19.267, 0.29)
pt3dadd(204.676, 162.244, 19.223, 0.282)
pt3dadd(204.756, 162.316, 19.18, 0.272)
pt3dadd(204.836, 162.388, 19.136, 0.262)
pt3dadd(204.917, 162.46, 19.092, 0.252)
pt3dadd(204.996, 162.533, 19.048, 0.242)
pt3dadd(205.076, 162.605, 19.004, 0.234)
pt3dadd(205.154, 162.673, 18.955, 0.23)
pt3dadd(205.226, 162.732, 18.892, 0.248)
pt3dadd(205.3, 162.791, 18.829, 0.266)
pt3dadd(205.372, 162.85, 18.766, 0.284)
pt3dadd(205.444, 162.908, 18.703, 0.302)
pt3dadd(205.516, 162.967, 18.64, 0.32)
pt3dadd(205.588, 163.026, 18.577, 0.338)
pt3dadd(205.661, 163.084, 18.514, 0.356)
pt3dadd(205.733, 163.142, 18.451, 0.374)
pt3dadd(205.805, 163.201, 18.388, 0.392)
pt3dadd(205.883, 163.262, 18.332, 0.398)
pt3dadd(205.97, 163.325, 18.288, 0.388)
pt3dadd(206.058, 163.388, 18.244, 0.376)
pt3dadd(206.144, 163.452, 18.2, 0.366)
pt3dadd(206.232, 163.516, 18.156, 0.354)
pt3dadd(206.32, 163.579, 18.112, 0.344)
pt3dadd(206.406, 163.642, 18.069, 0.332)
pt3dadd(206.494, 163.705, 18.025, 0.322)
pt3dadd(206.581, 163.769, 17.981, 0.31)
pt3dadd(206.669, 163.832, 17.937, 0.298)
pt3dadd(206.761, 163.885, 17.893, 0.29)
pt3dadd(206.86, 163.93, 17.848, 0.284)
pt3dadd(206.957, 163.973, 17.804, 0.276)
pt3dadd(207.055, 164.016, 17.759, 0.27)
pt3dadd(207.154, 164.06, 17.714, 0.262)
pt3dadd(207.252, 164.104, 17.67, 0.256)
pt3dadd(207.35, 164.148, 17.625, 0.25)
pt3dadd(207.448, 164.191, 17.581, 0.242)
pt3dadd(207.546, 164.234, 17.536, 0.236)
pt3dadd(207.644, 164.279, 17.491, 0.228)
pt3dadd(207.749, 164.311, 17.453, 0.226)
pt3dadd(207.859, 164.339, 17.419, 0.226)
pt3dadd(207.968, 164.365, 17.384, 0.226)
pt3dadd(208.078, 164.392, 17.35, 0.226)
pt3dadd(208.187, 164.418, 17.316, 0.226)
pt3dadd(208.297, 164.446, 17.281, 0.226)
pt3dadd(208.406, 164.472, 17.247, 0.226)
pt3dadd(208.516, 164.498, 17.213, 0.226)
pt3dadd(208.626, 164.525, 17.179, 0.226)
pt3dadd(208.735, 164.551, 17.144, 0.226)
pt3dadd(208.85, 164.573, 17.128, 0.25)
pt3dadd(208.969, 164.591, 17.118, 0.284)
pt3dadd(209.087, 164.61, 17.108, 0.318)
pt3dadd(209.204, 164.628, 17.098, 0.35)
pt3dadd(209.322, 164.647, 17.088, 0.384)
pt3dadd(209.441, 164.666, 17.079, 0.416)
pt3dadd(209.558, 164.684, 17.069, 0.45)
pt3dadd(209.676, 164.704, 17.059, 0.484)
pt3dadd(209.795, 164.722, 17.049, 0.516)
pt3dadd(209.912, 164.741, 17.039, 0.55)
pt3dadd(210.019, 164.766, 17.072, 0.538)
}
}
proc shape3d_100() {
dend_7[16] { pt3dadd(210.124, 164.794, 17.116, 0.516)
pt3dadd(210.228, 164.82, 17.159, 0.492)
pt3dadd(210.334, 164.846, 17.203, 0.47)
pt3dadd(210.438, 164.874, 17.247, 0.448)
pt3dadd(210.542, 164.9, 17.29, 0.424)
pt3dadd(210.647, 164.928, 17.334, 0.402)
pt3dadd(210.751, 164.954, 17.378, 0.38)
pt3dadd(210.856, 164.982, 17.421, 0.356)
pt3dadd(210.911, 165.055, 17.469, 0.34)
pt3dadd(210.937, 165.156, 17.518, 0.328)
pt3dadd(210.962, 165.257, 17.568, 0.314)
pt3dadd(210.988, 165.358, 17.617, 0.302)
pt3dadd(211.013, 165.46, 17.666, 0.29)
pt3dadd(211.039, 165.56, 17.716, 0.276)
pt3dadd(211.064, 165.661, 17.765, 0.264)
pt3dadd(211.09, 165.762, 17.815, 0.252)
pt3dadd(211.116, 165.864, 17.864, 0.238)
pt3dadd(211.141, 165.965, 17.913, 0.226)
}
dend_7[17] {pt3dclear()
pt3dadd(156.54, 125.251, 19.083, 0.904)
pt3dadd(156.534, 125.256, 19.083, 0.904)
pt3dadd(156.445, 125.336, 19.083, 0.904)
pt3dadd(156.356, 125.417, 19.083, 0.904)
pt3dadd(156.268, 125.497, 19.083, 0.904)
pt3dadd(156.178, 125.578, 19.083, 0.904)
pt3dadd(156.089, 125.658, 19.083, 0.904)
pt3dadd(156, 125.738, 19.083, 0.904)
pt3dadd(155.91, 125.819, 19.083, 0.904)
pt3dadd(155.821, 125.899, 19.083, 0.904)
pt3dadd(155.736, 125.983, 19.087, 0.904)
pt3dadd(155.654, 126.071, 19.092, 0.902)
pt3dadd(155.572, 126.158, 19.097, 0.9)
pt3dadd(155.49, 126.245, 19.102, 0.898)
pt3dadd(155.407, 126.332, 19.107, 0.896)
pt3dadd(155.326, 126.42, 19.113, 0.896)
pt3dadd(155.244, 126.506, 19.118, 0.894)
pt3dadd(155.161, 126.594, 19.123, 0.892)
pt3dadd(155.08, 126.682, 19.128, 0.89)
pt3dadd(155.009, 126.77, 19.139, 0.888)
pt3dadd(155.029, 126.872, 19.188, 0.872)
pt3dadd(155.051, 126.974, 19.237, 0.858)
pt3dadd(155.071, 127.078, 19.287, 0.842)
pt3dadd(155.092, 127.18, 19.336, 0.828)
pt3dadd(155.112, 127.282, 19.385, 0.814)
pt3dadd(155.134, 127.385, 19.434, 0.798)
pt3dadd(155.154, 127.487, 19.484, 0.784)
pt3dadd(155.174, 127.589, 19.533, 0.768)
pt3dadd(155.196, 127.691, 19.582, 0.754)
pt3dadd(155.218, 127.794, 19.63, 0.742)
pt3dadd(155.254, 127.901, 19.665, 0.746)
pt3dadd(155.29, 128.006, 19.701, 0.752)
pt3dadd(155.326, 128.113, 19.736, 0.756)
pt3dadd(155.362, 128.219, 19.772, 0.762)
pt3dadd(155.396, 128.326, 19.808, 0.766)
pt3dadd(155.432, 128.432, 19.843, 0.77)
pt3dadd(155.468, 128.538, 19.879, 0.776)
pt3dadd(155.504, 128.645, 19.915, 0.78)
pt3dadd(155.54, 128.75, 19.95, 0.786)
pt3dadd(155.576, 128.858, 19.982, 0.786)
pt3dadd(155.614, 128.97, 20.001, 0.774)
pt3dadd(155.651, 129.082, 20.02, 0.764)
pt3dadd(155.688, 129.193, 20.039, 0.752)
pt3dadd(155.726, 129.305, 20.058, 0.74)
pt3dadd(155.764, 129.416, 20.077, 0.728)
pt3dadd(155.801, 129.528, 20.097, 0.716)
pt3dadd(155.838, 129.64, 20.116, 0.706)
pt3dadd(155.875, 129.751, 20.135, 0.694)
pt3dadd(155.914, 129.863, 20.154, 0.682)
pt3dadd(155.945, 129.977, 20.17, 0.66)
pt3dadd(155.965, 130.094, 20.179, 0.614)
pt3dadd(155.986, 130.212, 20.187, 0.57)
pt3dadd(156.006, 130.331, 20.196, 0.524)
pt3dadd(156.026, 130.448, 20.205, 0.48)
pt3dadd(156.047, 130.566, 20.213, 0.434)
pt3dadd(156.067, 130.684, 20.222, 0.39)
pt3dadd(156.086, 130.801, 20.23, 0.344)
pt3dadd(156.107, 130.92, 20.239, 0.3)
pt3dadd(156.127, 131.038, 20.248, 0.254)
pt3dadd(156.142, 131.156, 20.253, 0.226)
pt3dadd(156.143, 131.276, 20.253, 0.226)
pt3dadd(156.145, 131.396, 20.253, 0.226)
pt3dadd(156.148, 131.516, 20.253, 0.226)
pt3dadd(156.149, 131.635, 20.253, 0.226)
pt3dadd(156.151, 131.755, 20.253, 0.226)
pt3dadd(156.154, 131.875, 20.253, 0.226)
pt3dadd(156.156, 131.995, 20.253, 0.226)
pt3dadd(156.157, 132.115, 20.253, 0.226)
pt3dadd(156.16, 132.235, 20.253, 0.226)
pt3dadd(156.155, 132.355, 20.253, 0.226)
pt3dadd(156.137, 132.474, 20.253, 0.226)
pt3dadd(156.118, 132.593, 20.253, 0.226)
pt3dadd(156.1, 132.712, 20.253, 0.226)
pt3dadd(156.082, 132.829, 20.253, 0.226)
pt3dadd(156.064, 132.948, 20.253, 0.226)
pt3dadd(156.046, 133.067, 20.253, 0.226)
pt3dadd(156.028, 133.186, 20.253, 0.226)
pt3dadd(156.01, 133.304, 20.253, 0.226)
pt3dadd(155.992, 133.423, 20.253, 0.226)
pt3dadd(155.963, 133.538, 20.253, 0.226)
pt3dadd(155.915, 133.649, 20.253, 0.226)
pt3dadd(155.867, 133.759, 20.253, 0.226)
pt3dadd(155.819, 133.868, 20.253, 0.226)
pt3dadd(155.772, 133.979, 20.253, 0.226)
pt3dadd(155.724, 134.089, 20.253, 0.226)
pt3dadd(155.676, 134.2, 20.253, 0.226)
pt3dadd(155.629, 134.309, 20.253, 0.226)
pt3dadd(155.581, 134.419, 20.253, 0.226)
pt3dadd(155.533, 134.53, 20.253, 0.226)
pt3dadd(155.485, 134.64, 20.253, 0.226)
pt3dadd(155.437, 134.749, 20.253, 0.226)
pt3dadd(155.389, 134.86, 20.253, 0.226)
pt3dadd(155.341, 134.969, 20.253, 0.226)
pt3dadd(155.293, 135.079, 20.253, 0.226)
pt3dadd(155.245, 135.19, 20.253, 0.226)
pt3dadd(155.197, 135.299, 20.253, 0.226)
pt3dadd(155.149, 135.409, 20.253, 0.226)
pt3dadd(155.101, 135.52, 20.253, 0.226)
pt3dadd(155.053, 135.629, 20.253, 0.226)
pt3dadd(155.005, 135.739, 20.253, 0.226)
pt3dadd(154.955, 135.848, 20.253, 0.226)
pt3dadd(154.906, 135.958, 20.253, 0.226)
pt3dadd(154.856, 136.067, 20.253, 0.226)
pt3dadd(154.807, 136.176, 20.253, 0.226)
pt3dadd(154.758, 136.286, 20.253, 0.226)
pt3dadd(154.709, 136.396, 20.253, 0.226)
pt3dadd(154.66, 136.505, 20.253, 0.226)
pt3dadd(154.61, 136.614, 20.253, 0.226)
pt3dadd(154.56, 136.723, 20.253, 0.226)
pt3dadd(154.506, 136.83, 20.253, 0.226)
pt3dadd(154.445, 136.933, 20.253, 0.226)
pt3dadd(154.384, 137.036, 20.253, 0.226)
pt3dadd(154.322, 137.14, 20.253, 0.226)
pt3dadd(154.261, 137.243, 20.253, 0.226)
pt3dadd(154.199, 137.346, 20.253, 0.226)
pt3dadd(154.138, 137.449, 20.253, 0.226)
pt3dadd(154.076, 137.552, 20.253, 0.226)
pt3dadd(154.015, 137.656, 20.253, 0.226)
pt3dadd(153.954, 137.759, 20.253, 0.226)
pt3dadd(153.9, 137.866, 20.253, 0.226)
pt3dadd(153.856, 137.977, 20.253, 0.226)
pt3dadd(153.811, 138.089, 20.253, 0.226)
pt3dadd(153.767, 138.199, 20.253, 0.226)
pt3dadd(153.722, 138.311, 20.253, 0.226)
pt3dadd(153.678, 138.422, 20.254, 0.226)
pt3dadd(153.634, 138.534, 20.254, 0.226)
pt3dadd(153.589, 138.646, 20.254, 0.226)
pt3dadd(153.545, 138.757, 20.254, 0.226)
pt3dadd(153.5, 138.869, 20.254, 0.226)
pt3dadd(153.451, 138.978, 20.254, 0.242)
pt3dadd(153.397, 139.085, 20.254, 0.276)
pt3dadd(153.343, 139.192, 20.254, 0.31)
pt3dadd(153.289, 139.3, 20.254, 0.344)
pt3dadd(153.234, 139.406, 20.254, 0.378)
pt3dadd(153.18, 139.513, 20.254, 0.412)
pt3dadd(153.126, 139.62, 20.254, 0.448)
pt3dadd(153.072, 139.727, 20.254, 0.482)
pt3dadd(153.018, 139.835, 20.254, 0.516)
pt3dadd(152.963, 139.942, 20.254, 0.55)
pt3dadd(152.91, 140.048, 20.254, 0.58)
pt3dadd(152.857, 140.156, 20.254, 0.608)
pt3dadd(152.804, 140.264, 20.254, 0.636)
pt3dadd(152.752, 140.372, 20.254, 0.664)
pt3dadd(152.699, 140.48, 20.254, 0.692)
pt3dadd(152.646, 140.588, 20.254, 0.72)
pt3dadd(152.594, 140.695, 20.254, 0.746)
pt3dadd(152.542, 140.803, 20.254, 0.774)
pt3dadd(152.489, 140.911, 20.254, 0.802)
pt3dadd(152.436, 141.019, 20.254, 0.83)
pt3dadd(152.39, 141.13, 20.254, 0.834)
pt3dadd(152.351, 141.244, 20.254, 0.818)
pt3dadd(152.312, 141.356, 20.254, 0.802)
pt3dadd(152.273, 141.47, 20.254, 0.786)
pt3dadd(152.233, 141.583, 20.254, 0.768)
pt3dadd(152.194, 141.697, 20.254, 0.752)
pt3dadd(152.155, 141.81, 20.255, 0.736)
pt3dadd(152.116, 141.924, 20.255, 0.718)
pt3dadd(152.076, 142.037, 20.255, 0.702)
pt3dadd(152.038, 142.151, 20.255, 0.686)
pt3dadd(151.993, 142.262, 20.255, 0.678)
pt3dadd(151.944, 142.372, 20.255, 0.678)
pt3dadd(151.895, 142.481, 20.255, 0.678)
pt3dadd(151.847, 142.591, 20.255, 0.678)
pt3dadd(151.798, 142.7, 20.255, 0.678)
pt3dadd(151.748, 142.81, 20.255, 0.678)
pt3dadd(151.699, 142.92, 20.256, 0.678)
pt3dadd(151.651, 143.029, 20.256, 0.678)
pt3dadd(151.602, 143.138, 20.256, 0.678)
pt3dadd(151.553, 143.249, 20.256, 0.678)
pt3dadd(151.518, 143.363, 20.256, 0.67)
pt3dadd(151.495, 143.48, 20.256, 0.654)
pt3dadd(151.472, 143.598, 20.257, 0.638)
pt3dadd(151.451, 143.716, 20.257, 0.622)
pt3dadd(151.428, 143.834, 20.257, 0.606)
pt3dadd(151.405, 143.952, 20.257, 0.59)
pt3dadd(151.382, 144.07, 20.258, 0.574)
pt3dadd(151.36, 144.187, 20.258, 0.56)
pt3dadd(151.338, 144.305, 20.258, 0.544)
pt3dadd(151.315, 144.424, 20.259, 0.528)
pt3dadd(151.314, 144.541, 20.259, 0.516)
pt3dadd(151.33, 144.661, 20.259, 0.51)
pt3dadd(151.344, 144.78, 20.26, 0.502)
}
}
proc shape3d_101() {
dend_7[17] { pt3dadd(151.358, 144.899, 20.26, 0.496)
pt3dadd(151.374, 145.018, 20.261, 0.488)
pt3dadd(151.388, 145.138, 20.261, 0.482)
pt3dadd(151.403, 145.256, 20.262, 0.474)
pt3dadd(151.418, 145.375, 20.263, 0.468)
pt3dadd(151.433, 145.494, 20.263, 0.46)
pt3dadd(151.447, 145.614, 20.264, 0.454)
pt3dadd(151.474, 145.73, 20.264, 0.458)
pt3dadd(151.502, 145.847, 20.265, 0.466)
pt3dadd(151.531, 145.963, 20.266, 0.476)
pt3dadd(151.56, 146.08, 20.267, 0.484)
pt3dadd(151.589, 146.196, 20.268, 0.492)
pt3dadd(151.618, 146.312, 20.269, 0.5)
pt3dadd(151.646, 146.43, 20.27, 0.508)
pt3dadd(151.675, 146.546, 20.271, 0.516)
pt3dadd(151.704, 146.663, 20.272, 0.526)
pt3dadd(151.733, 146.779, 20.273, 0.534)
pt3dadd(151.754, 146.897, 20.274, 0.542)
pt3dadd(151.774, 147.016, 20.276, 0.552)
pt3dadd(151.793, 147.133, 20.278, 0.56)
pt3dadd(151.813, 147.252, 20.28, 0.57)
pt3dadd(151.832, 147.371, 20.281, 0.58)
pt3dadd(151.852, 147.488, 20.283, 0.588)
pt3dadd(151.872, 147.607, 20.285, 0.598)
pt3dadd(151.891, 147.726, 20.287, 0.608)
pt3dadd(151.91, 147.844, 20.289, 0.616)
pt3dadd(151.931, 147.962, 20.29, 0.626)
pt3dadd(151.934, 148.081, 20.293, 0.612)
pt3dadd(151.936, 148.201, 20.297, 0.596)
pt3dadd(151.936, 148.321, 20.3, 0.578)
pt3dadd(151.936, 148.441, 20.304, 0.56)
pt3dadd(151.936, 148.561, 20.307, 0.542)
pt3dadd(151.937, 148.681, 20.31, 0.526)
pt3dadd(151.937, 148.801, 20.314, 0.508)
pt3dadd(151.937, 148.921, 20.317, 0.49)
pt3dadd(151.938, 149.041, 20.321, 0.472)
pt3dadd(151.938, 149.161, 20.324, 0.454)
pt3dadd(151.922, 149.28, 20.331, 0.452)
pt3dadd(151.903, 149.398, 20.338, 0.452)
pt3dadd(151.883, 149.515, 20.346, 0.452)
pt3dadd(151.864, 149.634, 20.353, 0.454)
pt3dadd(151.844, 149.752, 20.361, 0.454)
pt3dadd(151.825, 149.87, 20.368, 0.454)
pt3dadd(151.806, 149.988, 20.375, 0.454)
pt3dadd(151.787, 150.107, 20.383, 0.454)
pt3dadd(151.768, 150.224, 20.39, 0.454)
pt3dadd(151.748, 150.342, 20.398, 0.454)
pt3dadd(151.697, 150.45, 20.408, 0.47)
pt3dadd(151.64, 150.554, 20.42, 0.49)
pt3dadd(151.584, 150.659, 20.431, 0.51)
pt3dadd(151.528, 150.764, 20.442, 0.528)
pt3dadd(151.471, 150.869, 20.454, 0.548)
pt3dadd(151.414, 150.974, 20.465, 0.566)
pt3dadd(151.357, 151.079, 20.476, 0.586)
pt3dadd(151.301, 151.184, 20.487, 0.606)
pt3dadd(151.244, 151.289, 20.499, 0.624)
pt3dadd(151.188, 151.394, 20.51, 0.644)
pt3dadd(151.132, 151.488, 20.548, 0.65)
pt3dadd(151.075, 151.58, 20.591, 0.652)
pt3dadd(151.018, 151.673, 20.634, 0.656)
pt3dadd(150.961, 151.765, 20.677, 0.658)
pt3dadd(150.905, 151.858, 20.72, 0.662)
pt3dadd(150.848, 151.95, 20.763, 0.666)
pt3dadd(150.792, 152.042, 20.806, 0.668)
pt3dadd(150.736, 152.135, 20.849, 0.672)
pt3dadd(150.679, 152.227, 20.892, 0.674)
pt3dadd(150.623, 152.32, 20.936, 0.678)
pt3dadd(150.556, 152.413, 20.964, 0.66)
pt3dadd(150.49, 152.508, 20.992, 0.642)
pt3dadd(150.422, 152.602, 21.019, 0.624)
pt3dadd(150.356, 152.695, 21.047, 0.606)
pt3dadd(150.289, 152.79, 21.074, 0.588)
pt3dadd(150.222, 152.884, 21.102, 0.57)
pt3dadd(150.156, 152.978, 21.13, 0.552)
pt3dadd(150.089, 153.072, 21.157, 0.534)
pt3dadd(150.022, 153.166, 21.185, 0.516)
pt3dadd(149.956, 153.26, 21.212, 0.498)
pt3dadd(149.909, 153.37, 21.226, 0.494)
pt3dadd(149.862, 153.479, 21.239, 0.49)
pt3dadd(149.815, 153.588, 21.252, 0.484)
pt3dadd(149.768, 153.697, 21.265, 0.48)
pt3dadd(149.722, 153.806, 21.278, 0.476)
pt3dadd(149.675, 153.917, 21.291, 0.47)
pt3dadd(149.628, 154.026, 21.304, 0.466)
pt3dadd(149.581, 154.135, 21.317, 0.462)
pt3dadd(149.534, 154.244, 21.33, 0.456)
pt3dadd(149.489, 154.355, 21.342, 0.452)
pt3dadd(149.458, 154.47, 21.341, 0.438)
pt3dadd(149.428, 154.586, 21.341, 0.426)
pt3dadd(149.396, 154.703, 21.34, 0.412)
pt3dadd(149.365, 154.818, 21.34, 0.4)
pt3dadd(149.335, 154.934, 21.339, 0.386)
pt3dadd(149.304, 155.051, 21.338, 0.374)
pt3dadd(149.273, 155.166, 21.338, 0.36)
pt3dadd(149.242, 155.282, 21.337, 0.348)
pt3dadd(149.212, 155.398, 21.337, 0.336)
pt3dadd(149.18, 155.514, 21.335, 0.322)
pt3dadd(149.146, 155.628, 21.328, 0.314)
pt3dadd(149.111, 155.743, 21.321, 0.304)
pt3dadd(149.076, 155.857, 21.315, 0.294)
pt3dadd(149.041, 155.972, 21.307, 0.284)
pt3dadd(149.006, 156.086, 21.301, 0.274)
pt3dadd(148.972, 156.202, 21.294, 0.264)
pt3dadd(148.937, 156.316, 21.287, 0.254)
pt3dadd(148.902, 156.431, 21.28, 0.244)
pt3dadd(148.867, 156.545, 21.273, 0.234)
pt3dadd(148.831, 156.659, 21.265, 0.226)
pt3dadd(148.793, 156.772, 21.25, 0.232)
pt3dadd(148.753, 156.883, 21.235, 0.236)
pt3dadd(148.714, 156.995, 21.22, 0.242)
pt3dadd(148.674, 157.106, 21.205, 0.248)
pt3dadd(148.634, 157.219, 21.19, 0.252)
pt3dadd(148.596, 157.331, 21.176, 0.258)
pt3dadd(148.556, 157.442, 21.161, 0.262)
pt3dadd(148.517, 157.555, 21.146, 0.268)
pt3dadd(148.477, 157.667, 21.131, 0.272)
pt3dadd(148.442, 157.778, 21.112, 0.28)
pt3dadd(148.418, 157.89, 21.081, 0.3)
pt3dadd(148.396, 158.002, 21.05, 0.32)
pt3dadd(148.372, 158.113, 21.018, 0.338)
pt3dadd(148.349, 158.225, 20.987, 0.358)
pt3dadd(148.325, 158.336, 20.956, 0.378)
pt3dadd(148.302, 158.448, 20.924, 0.398)
pt3dadd(148.278, 158.56, 20.893, 0.416)
pt3dadd(148.255, 158.671, 20.862, 0.436)
pt3dadd(148.231, 158.783, 20.831, 0.456)
pt3dadd(148.214, 158.896, 20.804, 0.474)
pt3dadd(148.212, 159.016, 20.792, 0.494)
pt3dadd(148.21, 159.134, 20.779, 0.512)
pt3dadd(148.207, 159.253, 20.766, 0.532)
pt3dadd(148.205, 159.372, 20.754, 0.55)
pt3dadd(148.202, 159.491, 20.741, 0.568)
pt3dadd(148.2, 159.611, 20.729, 0.588)
pt3dadd(148.198, 159.73, 20.716, 0.606)
pt3dadd(148.195, 159.848, 20.704, 0.626)
pt3dadd(148.193, 159.967, 20.691, 0.644)
pt3dadd(148.204, 160.081, 20.696, 0.642)
pt3dadd(148.238, 160.187, 20.735, 0.6)
pt3dadd(148.273, 160.291, 20.775, 0.556)
pt3dadd(148.308, 160.396, 20.814, 0.512)
pt3dadd(148.344, 160.5, 20.853, 0.468)
pt3dadd(148.379, 160.604, 20.893, 0.426)
pt3dadd(148.414, 160.709, 20.932, 0.382)
pt3dadd(148.45, 160.813, 20.972, 0.338)
pt3dadd(148.484, 160.918, 21.011, 0.294)
pt3dadd(148.519, 161.022, 21.05, 0.25)
pt3dadd(148.566, 161.125, 21.083, 0.228)
pt3dadd(148.626, 161.225, 21.108, 0.23)
pt3dadd(148.686, 161.324, 21.133, 0.234)
pt3dadd(148.746, 161.424, 21.158, 0.236)
pt3dadd(148.806, 161.524, 21.182, 0.24)
pt3dadd(148.866, 161.623, 21.207, 0.244)
pt3dadd(148.926, 161.722, 21.232, 0.246)
pt3dadd(148.986, 161.821, 21.257, 0.25)
pt3dadd(149.046, 161.921, 21.282, 0.252)
pt3dadd(149.106, 162.02, 21.306, 0.256)
pt3dadd(149.16, 162.125, 21.325, 0.266)
pt3dadd(149.208, 162.234, 21.337, 0.286)
pt3dadd(149.256, 162.343, 21.349, 0.304)
pt3dadd(149.303, 162.452, 21.361, 0.324)
pt3dadd(149.351, 162.562, 21.373, 0.342)
pt3dadd(149.399, 162.671, 21.385, 0.362)
pt3dadd(149.447, 162.78, 21.397, 0.38)
pt3dadd(149.494, 162.889, 21.409, 0.4)
pt3dadd(149.542, 162.998, 21.421, 0.418)
pt3dadd(149.59, 163.108, 21.433, 0.438)
pt3dadd(149.642, 163.214, 21.44, 0.44)
pt3dadd(149.7, 163.32, 21.441, 0.422)
pt3dadd(149.759, 163.424, 21.443, 0.406)
pt3dadd(149.818, 163.529, 21.444, 0.388)
pt3dadd(149.876, 163.633, 21.446, 0.372)
pt3dadd(149.934, 163.739, 21.447, 0.354)
pt3dadd(149.993, 163.843, 21.448, 0.338)
pt3dadd(150.052, 163.948, 21.45, 0.32)
pt3dadd(150.11, 164.053, 21.451, 0.304)
pt3dadd(150.169, 164.158, 21.453, 0.286)
pt3dadd(150.221, 164.266, 21.455, 0.28)
pt3dadd(150.266, 164.376, 21.457, 0.288)
pt3dadd(150.312, 164.488, 21.46, 0.296)
pt3dadd(150.358, 164.598, 21.463, 0.304)
pt3dadd(150.402, 164.71, 21.465, 0.314)
pt3dadd(150.448, 164.82, 21.468, 0.322)
pt3dadd(150.493, 164.932, 21.471, 0.33)
pt3dadd(150.539, 165.042, 21.473, 0.338)
pt3dadd(150.583, 165.154, 21.476, 0.346)
pt3dadd(150.629, 165.265, 21.479, 0.354)
pt3dadd(150.67, 165.377, 21.483, 0.368)
pt3dadd(150.707, 165.491, 21.488, 0.388)
pt3dadd(150.743, 165.605, 21.494, 0.406)
pt3dadd(150.78, 165.719, 21.5, 0.426)
pt3dadd(150.817, 165.833, 21.505, 0.446)
pt3dadd(150.853, 165.948, 21.511, 0.464)
pt3dadd(150.89, 166.062, 21.516, 0.484)
pt3dadd(150.928, 166.176, 21.522, 0.504)
pt3dadd(150.964, 166.29, 21.528, 0.522)
pt3dadd(151.001, 166.404, 21.533, 0.542)
pt3dadd(151.04, 166.517, 21.541, 0.55)
pt3dadd(151.084, 166.627, 21.551, 0.55)
pt3dadd(151.128, 166.739, 21.561, 0.548)
pt3dadd(151.171, 166.849, 21.571, 0.548)
}
}
proc shape3d_102() {
dend_7[17] { pt3dadd(151.214, 166.961, 21.581, 0.546)
pt3dadd(151.258, 167.072, 21.591, 0.546)
pt3dadd(151.302, 167.183, 21.601, 0.544)
pt3dadd(151.345, 167.294, 21.611, 0.542)
pt3dadd(151.388, 167.406, 21.622, 0.542)
pt3dadd(151.432, 167.516, 21.632, 0.54)
pt3dadd(151.486, 167.622, 21.647, 0.524)
pt3dadd(151.547, 167.723, 21.667, 0.496)
pt3dadd(151.607, 167.824, 21.687, 0.468)
pt3dadd(151.668, 167.924, 21.707, 0.44)
pt3dadd(151.728, 168.025, 21.727, 0.412)
pt3dadd(151.789, 168.126, 21.747, 0.384)
pt3dadd(151.85, 168.227, 21.766, 0.356)
pt3dadd(151.91, 168.328, 21.786, 0.328)
pt3dadd(151.972, 168.427, 21.806, 0.3)
pt3dadd(152.033, 168.528, 21.826, 0.272)
pt3dadd(152.096, 168.617, 21.865, 0.278)
pt3dadd(152.161, 168.7, 21.913, 0.296)
pt3dadd(152.226, 168.782, 21.962, 0.316)
pt3dadd(152.291, 168.865, 22.01, 0.334)
pt3dadd(152.356, 168.948, 22.058, 0.352)
pt3dadd(152.42, 169.031, 22.106, 0.372)
pt3dadd(152.485, 169.114, 22.154, 0.39)
pt3dadd(152.551, 169.196, 22.202, 0.41)
pt3dadd(152.616, 169.279, 22.25, 0.428)
pt3dadd(152.681, 169.362, 22.298, 0.446)
pt3dadd(152.754, 169.446, 22.335, 0.452)
pt3dadd(152.83, 169.53, 22.367, 0.452)
pt3dadd(152.905, 169.614, 22.4, 0.452)
pt3dadd(152.982, 169.698, 22.433, 0.452)
pt3dadd(153.058, 169.783, 22.465, 0.452)
pt3dadd(153.133, 169.867, 22.498, 0.452)
pt3dadd(153.21, 169.951, 22.53, 0.452)
pt3dadd(153.286, 170.035, 22.563, 0.452)
pt3dadd(153.361, 170.119, 22.595, 0.452)
pt3dadd(153.438, 170.204, 22.628, 0.452)
pt3dadd(153.514, 170.291, 22.654, 0.44)
pt3dadd(153.589, 170.38, 22.678, 0.424)
pt3dadd(153.666, 170.467, 22.702, 0.408)
pt3dadd(153.743, 170.555, 22.726, 0.392)
pt3dadd(153.818, 170.644, 22.75, 0.376)
pt3dadd(153.895, 170.731, 22.774, 0.36)
pt3dadd(153.971, 170.82, 22.798, 0.344)
pt3dadd(154.048, 170.908, 22.823, 0.328)
pt3dadd(154.123, 170.995, 22.847, 0.312)
pt3dadd(154.2, 171.084, 22.871, 0.296)
pt3dadd(154.265, 171.175, 22.904, 0.302)
pt3dadd(154.326, 171.269, 22.941, 0.316)
pt3dadd(154.388, 171.361, 22.978, 0.332)
pt3dadd(154.45, 171.454, 23.016, 0.346)
pt3dadd(154.511, 171.547, 23.053, 0.36)
pt3dadd(154.573, 171.64, 23.09, 0.376)
pt3dadd(154.634, 171.732, 23.127, 0.39)
pt3dadd(154.696, 171.826, 23.164, 0.406)
pt3dadd(154.758, 171.918, 23.201, 0.42)
pt3dadd(154.819, 172.012, 23.238, 0.434)
pt3dadd(154.874, 172.104, 23.281, 0.448)
pt3dadd(154.93, 172.198, 23.324, 0.46)
pt3dadd(154.984, 172.291, 23.367, 0.474)
pt3dadd(155.039, 172.385, 23.411, 0.486)
pt3dadd(155.093, 172.478, 23.454, 0.5)
pt3dadd(155.148, 172.572, 23.497, 0.512)
pt3dadd(155.202, 172.664, 23.54, 0.524)
pt3dadd(155.257, 172.758, 23.584, 0.538)
pt3dadd(155.311, 172.852, 23.627, 0.55)
pt3dadd(155.366, 172.945, 23.67, 0.562)
pt3dadd(155.426, 173.034, 23.715, 0.536)
pt3dadd(155.486, 173.123, 23.76, 0.502)
pt3dadd(155.546, 173.212, 23.805, 0.466)
pt3dadd(155.608, 173.3, 23.85, 0.432)
pt3dadd(155.668, 173.388, 23.895, 0.398)
pt3dadd(155.728, 173.477, 23.94, 0.364)
pt3dadd(155.789, 173.566, 23.985, 0.33)
pt3dadd(155.849, 173.654, 24.029, 0.294)
pt3dadd(155.91, 173.742, 24.074, 0.26)
pt3dadd(155.97, 173.831, 24.119, 0.226)
pt3dadd(156.012, 173.887, 24.201, 0.226)
pt3dadd(156.054, 173.942, 24.282, 0.226)
pt3dadd(156.096, 173.999, 24.363, 0.226)
pt3dadd(156.138, 174.054, 24.445, 0.226)
pt3dadd(156.18, 174.11, 24.526, 0.226)
pt3dadd(156.221, 174.166, 24.608, 0.226)
pt3dadd(156.263, 174.222, 24.689, 0.226)
pt3dadd(156.305, 174.277, 24.77, 0.226)
pt3dadd(156.347, 174.334, 24.852, 0.226)
pt3dadd(156.389, 174.389, 24.933, 0.226)
}
dend_7[18] {pt3dclear()
pt3dadd(122.695, 114.766, 16.744, 0.904)
pt3dadd(122.695, 114.773, 16.739, 0.904)
pt3dadd(122.695, 114.872, 16.683, 0.892)
pt3dadd(122.695, 114.972, 16.627, 0.882)
pt3dadd(122.695, 115.071, 16.57, 0.87)
pt3dadd(122.695, 115.17, 16.514, 0.86)
pt3dadd(122.695, 115.269, 16.458, 0.848)
pt3dadd(122.695, 115.368, 16.402, 0.838)
pt3dadd(122.695, 115.467, 16.345, 0.826)
pt3dadd(122.695, 115.567, 16.289, 0.816)
pt3dadd(122.695, 115.666, 16.233, 0.806)
pt3dadd(122.695, 115.765, 16.177, 0.794)
pt3dadd(122.695, 115.864, 16.12, 0.784)
pt3dadd(122.695, 115.964, 16.064, 0.772)
pt3dadd(122.695, 116.063, 16.008, 0.762)
pt3dadd(122.695, 116.162, 15.951, 0.75)
pt3dadd(122.695, 116.261, 15.895, 0.74)
pt3dadd(122.694, 116.365, 15.848, 0.726)
pt3dadd(122.69, 116.48, 15.818, 0.702)
pt3dadd(122.688, 116.595, 15.788, 0.678)
pt3dadd(122.684, 116.709, 15.759, 0.654)
pt3dadd(122.681, 116.824, 15.729, 0.63)
pt3dadd(122.678, 116.938, 15.699, 0.606)
pt3dadd(122.675, 117.053, 15.67, 0.582)
pt3dadd(122.671, 117.167, 15.64, 0.558)
pt3dadd(122.668, 117.282, 15.61, 0.534)
pt3dadd(122.665, 117.396, 15.581, 0.512)
pt3dadd(122.659, 117.515, 15.574, 0.498)
pt3dadd(122.652, 117.635, 15.574, 0.486)
pt3dadd(122.645, 117.755, 15.574, 0.474)
pt3dadd(122.638, 117.874, 15.574, 0.464)
pt3dadd(122.632, 117.994, 15.574, 0.452)
pt3dadd(122.624, 118.114, 15.574, 0.442)
pt3dadd(122.617, 118.234, 15.574, 0.43)
pt3dadd(122.611, 118.354, 15.574, 0.42)
pt3dadd(122.604, 118.473, 15.574, 0.408)
pt3dadd(122.597, 118.593, 15.574, 0.396)
pt3dadd(122.587, 118.713, 15.574, 0.444)
pt3dadd(122.576, 118.832, 15.574, 0.51)
pt3dadd(122.567, 118.952, 15.575, 0.574)
pt3dadd(122.556, 119.071, 15.575, 0.64)
pt3dadd(122.545, 119.191, 15.575, 0.704)
pt3dadd(122.534, 119.31, 15.575, 0.77)
pt3dadd(122.524, 119.43, 15.575, 0.834)
pt3dadd(122.514, 119.55, 15.575, 0.9)
pt3dadd(122.503, 119.669, 15.575, 0.964)
pt3dadd(122.492, 119.789, 15.575, 1.028)
pt3dadd(122.478, 119.908, 15.575, 0.998)
pt3dadd(122.464, 120.026, 15.576, 0.942)
pt3dadd(122.449, 120.146, 15.576, 0.884)
pt3dadd(122.435, 120.265, 15.576, 0.826)
pt3dadd(122.419, 120.384, 15.576, 0.768)
pt3dadd(122.405, 120.503, 15.576, 0.712)
pt3dadd(122.39, 120.623, 15.576, 0.654)
pt3dadd(122.375, 120.742, 15.576, 0.596)
pt3dadd(122.36, 120.86, 15.576, 0.538)
pt3dadd(122.346, 120.979, 15.577, 0.482)
pt3dadd(122.308, 121.093, 15.577, 0.494)
pt3dadd(122.262, 121.204, 15.577, 0.528)
pt3dadd(122.218, 121.315, 15.577, 0.56)
pt3dadd(122.172, 121.426, 15.578, 0.594)
pt3dadd(122.126, 121.537, 15.578, 0.626)
pt3dadd(122.082, 121.649, 15.578, 0.66)
pt3dadd(122.036, 121.759, 15.579, 0.692)
pt3dadd(121.991, 121.871, 15.579, 0.726)
pt3dadd(121.946, 121.982, 15.579, 0.758)
pt3dadd(121.901, 122.093, 15.579, 0.792)
pt3dadd(121.862, 122.207, 15.58, 0.818)
pt3dadd(121.826, 122.321, 15.58, 0.842)
pt3dadd(121.79, 122.436, 15.581, 0.864)
pt3dadd(121.754, 122.55, 15.581, 0.888)
pt3dadd(121.718, 122.664, 15.582, 0.912)
pt3dadd(121.682, 122.779, 15.582, 0.936)
pt3dadd(121.645, 122.893, 15.583, 0.96)
pt3dadd(121.609, 123.007, 15.584, 0.984)
pt3dadd(121.573, 123.122, 15.584, 1.008)
pt3dadd(121.537, 123.236, 15.585, 1.03)
pt3dadd(121.508, 123.353, 15.585, 1.028)
pt3dadd(121.482, 123.47, 15.586, 1.018)
pt3dadd(121.454, 123.587, 15.587, 1.01)
pt3dadd(121.428, 123.704, 15.588, 1)
pt3dadd(121.4, 123.821, 15.59, 0.992)
pt3dadd(121.374, 123.937, 15.59, 0.982)
pt3dadd(121.348, 124.055, 15.591, 0.972)
pt3dadd(121.32, 124.171, 15.593, 0.964)
pt3dadd(121.294, 124.289, 15.594, 0.954)
pt3dadd(121.266, 124.405, 15.595, 0.944)
pt3dadd(121.246, 124.524, 15.596, 0.926)
pt3dadd(121.226, 124.642, 15.598, 0.906)
pt3dadd(121.206, 124.76, 15.6, 0.884)
pt3dadd(121.187, 124.879, 15.602, 0.864)
pt3dadd(121.168, 124.997, 15.604, 0.844)
pt3dadd(121.148, 125.116, 15.606, 0.822)
pt3dadd(121.129, 125.234, 15.608, 0.802)
pt3dadd(121.109, 125.352, 15.609, 0.782)
pt3dadd(121.09, 125.471, 15.611, 0.76)
pt3dadd(121.07, 125.59, 15.613, 0.74)
pt3dadd(121.051, 125.707, 15.616, 0.75)
pt3dadd(121.033, 125.826, 15.62, 0.766)
pt3dadd(121.015, 125.945, 15.623, 0.784)
pt3dadd(120.996, 126.064, 15.626, 0.8)
pt3dadd(120.978, 126.181, 15.63, 0.818)
pt3dadd(120.96, 126.3, 15.633, 0.834)
pt3dadd(120.941, 126.419, 15.637, 0.85)
pt3dadd(120.923, 126.538, 15.64, 0.868)
pt3dadd(120.905, 126.655, 15.643, 0.884)
pt3dadd(120.886, 126.774, 15.647, 0.902)
pt3dadd(120.844, 126.886, 15.653, 0.904)
pt3dadd(120.799, 126.997, 15.659, 0.904)
pt3dadd(120.754, 127.108, 15.666, 0.904)
pt3dadd(120.708, 127.218, 15.673, 0.904)
pt3dadd(120.662, 127.33, 15.679, 0.904)
pt3dadd(120.617, 127.44, 15.686, 0.904)
pt3dadd(120.571, 127.55, 15.693, 0.904)
}
}
proc shape3d_103() {
dend_7[18] { pt3dadd(120.526, 127.661, 15.699, 0.904)
pt3dadd(120.48, 127.772, 15.706, 0.904)
pt3dadd(120.434, 127.883, 15.712, 0.904)
pt3dadd(120.4, 127.997, 15.723, 0.89)
pt3dadd(120.367, 128.112, 15.734, 0.874)
pt3dadd(120.334, 128.226, 15.744, 0.858)
pt3dadd(120.3, 128.341, 15.755, 0.842)
pt3dadd(120.268, 128.455, 15.766, 0.826)
pt3dadd(120.234, 128.57, 15.777, 0.81)
pt3dadd(120.2, 128.684, 15.788, 0.794)
pt3dadd(120.168, 128.8, 15.798, 0.778)
pt3dadd(120.134, 128.914, 15.809, 0.762)
pt3dadd(120.102, 129.029, 15.82, 0.746)
pt3dadd(120.078, 129.142, 15.846, 0.728)
pt3dadd(120.055, 129.254, 15.875, 0.71)
pt3dadd(120.032, 129.367, 15.903, 0.692)
pt3dadd(120.01, 129.48, 15.932, 0.674)
pt3dadd(119.987, 129.593, 15.96, 0.656)
pt3dadd(119.964, 129.706, 15.988, 0.638)
pt3dadd(119.942, 129.818, 16.017, 0.62)
pt3dadd(119.919, 129.931, 16.045, 0.6)
pt3dadd(119.896, 130.044, 16.074, 0.582)
pt3dadd(119.874, 130.157, 16.102, 0.564)
pt3dadd(119.858, 130.268, 16.135, 0.574)
pt3dadd(119.842, 130.381, 16.168, 0.584)
pt3dadd(119.827, 130.493, 16.201, 0.594)
pt3dadd(119.811, 130.606, 16.234, 0.602)
pt3dadd(119.796, 130.717, 16.267, 0.612)
pt3dadd(119.78, 130.83, 16.3, 0.622)
pt3dadd(119.765, 130.942, 16.333, 0.632)
pt3dadd(119.749, 131.054, 16.366, 0.642)
pt3dadd(119.734, 131.166, 16.399, 0.652)
pt3dadd(119.718, 131.279, 16.433, 0.662)
pt3dadd(119.704, 131.394, 16.456, 0.706)
pt3dadd(119.689, 131.509, 16.48, 0.748)
pt3dadd(119.675, 131.626, 16.503, 0.792)
pt3dadd(119.66, 131.741, 16.527, 0.836)
pt3dadd(119.646, 131.857, 16.55, 0.88)
pt3dadd(119.631, 131.972, 16.574, 0.922)
pt3dadd(119.616, 132.089, 16.597, 0.966)
pt3dadd(119.602, 132.204, 16.621, 1.01)
pt3dadd(119.587, 132.32, 16.644, 1.054)
pt3dadd(119.573, 132.436, 16.668, 1.096)
pt3dadd(119.548, 132.552, 16.682, 1.078)
pt3dadd(119.524, 132.668, 16.695, 1.058)
pt3dadd(119.499, 132.785, 16.709, 1.038)
pt3dadd(119.475, 132.901, 16.723, 1.02)
pt3dadd(119.45, 133.016, 16.737, 1)
pt3dadd(119.426, 133.133, 16.751, 0.982)
pt3dadd(119.401, 133.249, 16.765, 0.962)
pt3dadd(119.377, 133.366, 16.779, 0.942)
pt3dadd(119.352, 133.482, 16.793, 0.924)
pt3dadd(119.328, 133.598, 16.807, 0.904)
}
dend_7[19] {pt3dclear()
pt3dadd(119.328, 133.598, 16.807, 0.904)
pt3dadd(119.289, 133.663, 16.811, 0.892)
pt3dadd(119.228, 133.766, 16.817, 0.874)
pt3dadd(119.167, 133.868, 16.824, 0.856)
pt3dadd(119.106, 133.972, 16.83, 0.84)
pt3dadd(119.045, 134.075, 16.837, 0.822)
pt3dadd(118.984, 134.178, 16.843, 0.804)
pt3dadd(118.923, 134.281, 16.849, 0.786)
pt3dadd(118.862, 134.384, 16.856, 0.768)
pt3dadd(118.8, 134.486, 16.862, 0.75)
pt3dadd(118.739, 134.59, 16.869, 0.732)
pt3dadd(118.678, 134.693, 16.875, 0.714)
pt3dadd(118.605, 134.788, 16.885, 0.724)
pt3dadd(118.532, 134.881, 16.894, 0.734)
pt3dadd(118.458, 134.976, 16.903, 0.744)
pt3dadd(118.385, 135.071, 16.912, 0.754)
pt3dadd(118.312, 135.164, 16.922, 0.762)
pt3dadd(118.239, 135.259, 16.931, 0.772)
pt3dadd(118.165, 135.353, 16.94, 0.782)
pt3dadd(118.092, 135.448, 16.949, 0.792)
pt3dadd(118.019, 135.542, 16.959, 0.802)
pt3dadd(117.945, 135.636, 16.968, 0.812)
pt3dadd(117.871, 135.725, 16.994, 0.8)
pt3dadd(117.797, 135.814, 17.02, 0.79)
pt3dadd(117.723, 135.904, 17.047, 0.78)
pt3dadd(117.648, 135.992, 17.073, 0.77)
pt3dadd(117.574, 136.081, 17.099, 0.758)
pt3dadd(117.5, 136.17, 17.125, 0.748)
pt3dadd(117.426, 136.259, 17.151, 0.738)
pt3dadd(117.351, 136.348, 17.177, 0.726)
pt3dadd(117.277, 136.436, 17.204, 0.716)
pt3dadd(117.204, 136.525, 17.232, 0.702)
pt3dadd(117.133, 136.612, 17.268, 0.668)
pt3dadd(117.063, 136.698, 17.305, 0.634)
pt3dadd(116.993, 136.784, 17.342, 0.6)
pt3dadd(116.922, 136.872, 17.379, 0.566)
pt3dadd(116.852, 136.958, 17.416, 0.532)
pt3dadd(116.781, 137.045, 17.452, 0.498)
pt3dadd(116.711, 137.131, 17.489, 0.464)
pt3dadd(116.641, 137.218, 17.526, 0.43)
pt3dadd(116.57, 137.305, 17.562, 0.396)
pt3dadd(116.501, 137.394, 17.595, 0.366)
pt3dadd(116.436, 137.491, 17.616, 0.352)
pt3dadd(116.371, 137.59, 17.637, 0.338)
pt3dadd(116.306, 137.687, 17.658, 0.322)
pt3dadd(116.241, 137.784, 17.679, 0.308)
pt3dadd(116.175, 137.882, 17.699, 0.294)
pt3dadd(116.11, 137.98, 17.72, 0.28)
pt3dadd(116.045, 138.077, 17.741, 0.264)
pt3dadd(115.98, 138.175, 17.762, 0.25)
pt3dadd(115.915, 138.272, 17.782, 0.236)
pt3dadd(115.855, 138.374, 17.799, 0.228)
pt3dadd(115.808, 138.484, 17.807, 0.232)
pt3dadd(115.761, 138.594, 17.816, 0.236)
pt3dadd(115.714, 138.703, 17.824, 0.242)
pt3dadd(115.666, 138.814, 17.833, 0.246)
pt3dadd(115.619, 138.924, 17.841, 0.25)
pt3dadd(115.572, 139.033, 17.849, 0.256)
pt3dadd(115.525, 139.144, 17.858, 0.26)
pt3dadd(115.478, 139.253, 17.866, 0.264)
pt3dadd(115.43, 139.363, 17.874, 0.27)
pt3dadd(115.38, 139.471, 17.879, 0.284)
pt3dadd(115.324, 139.578, 17.876, 0.318)
pt3dadd(115.269, 139.684, 17.874, 0.352)
pt3dadd(115.213, 139.79, 17.871, 0.386)
pt3dadd(115.157, 139.896, 17.869, 0.42)
pt3dadd(115.101, 140.003, 17.866, 0.456)
pt3dadd(115.045, 140.108, 17.864, 0.49)
pt3dadd(114.99, 140.215, 17.861, 0.524)
pt3dadd(114.934, 140.321, 17.859, 0.558)
pt3dadd(114.878, 140.428, 17.856, 0.592)
pt3dadd(114.829, 140.536, 17.852, 0.606)
pt3dadd(114.792, 140.651, 17.846, 0.582)
pt3dadd(114.756, 140.765, 17.84, 0.558)
pt3dadd(114.719, 140.879, 17.834, 0.534)
pt3dadd(114.683, 140.993, 17.828, 0.51)
pt3dadd(114.646, 141.107, 17.822, 0.486)
pt3dadd(114.61, 141.221, 17.816, 0.462)
pt3dadd(114.573, 141.335, 17.81, 0.438)
pt3dadd(114.537, 141.449, 17.804, 0.414)
pt3dadd(114.501, 141.563, 17.798, 0.39)
pt3dadd(114.468, 141.678, 17.791, 0.37)
pt3dadd(114.442, 141.794, 17.781, 0.354)
pt3dadd(114.417, 141.911, 17.772, 0.34)
pt3dadd(114.391, 142.028, 17.762, 0.324)
pt3dadd(114.365, 142.145, 17.753, 0.31)
pt3dadd(114.339, 142.261, 17.743, 0.296)
pt3dadd(114.314, 142.378, 17.734, 0.28)
pt3dadd(114.288, 142.495, 17.724, 0.266)
pt3dadd(114.262, 142.612, 17.715, 0.25)
pt3dadd(114.237, 142.728, 17.705, 0.236)
pt3dadd(114.214, 142.844, 17.691, 0.232)
pt3dadd(114.195, 142.96, 17.669, 0.246)
pt3dadd(114.177, 143.076, 17.647, 0.26)
pt3dadd(114.159, 143.191, 17.625, 0.274)
pt3dadd(114.141, 143.306, 17.604, 0.29)
pt3dadd(114.122, 143.423, 17.582, 0.304)
pt3dadd(114.104, 143.538, 17.56, 0.318)
pt3dadd(114.086, 143.654, 17.538, 0.332)
pt3dadd(114.068, 143.77, 17.516, 0.348)
pt3dadd(114.049, 143.885, 17.494, 0.362)
pt3dadd(114.031, 143.999, 17.466, 0.386)
pt3dadd(114.014, 144.109, 17.431, 0.422)
pt3dadd(113.996, 144.221, 17.396, 0.458)
pt3dadd(113.979, 144.331, 17.361, 0.494)
pt3dadd(113.961, 144.443, 17.325, 0.528)
pt3dadd(113.944, 144.553, 17.29, 0.564)
pt3dadd(113.926, 144.665, 17.255, 0.6)
pt3dadd(113.909, 144.775, 17.22, 0.636)
pt3dadd(113.891, 144.887, 17.185, 0.672)
pt3dadd(113.874, 144.997, 17.149, 0.708)
pt3dadd(113.842, 145.106, 17.121, 0.742)
pt3dadd(113.798, 145.216, 17.099, 0.778)
pt3dadd(113.754, 145.324, 17.076, 0.812)
pt3dadd(113.71, 145.432, 17.054, 0.848)
pt3dadd(113.666, 145.541, 17.032, 0.882)
pt3dadd(113.622, 145.649, 17.01, 0.918)
pt3dadd(113.578, 145.757, 16.987, 0.952)
pt3dadd(113.534, 145.866, 16.965, 0.986)
pt3dadd(113.49, 145.974, 16.943, 1.022)
pt3dadd(113.446, 146.082, 16.92, 1.056)
pt3dadd(113.408, 146.194, 16.903, 1.052)
pt3dadd(113.376, 146.309, 16.891, 1.01)
pt3dadd(113.343, 146.423, 16.878, 0.97)
pt3dadd(113.311, 146.538, 16.865, 0.928)
pt3dadd(113.278, 146.652, 16.853, 0.888)
pt3dadd(113.246, 146.766, 16.84, 0.846)
pt3dadd(113.213, 146.881, 16.828, 0.806)
pt3dadd(113.181, 146.995, 16.815, 0.764)
pt3dadd(113.149, 147.11, 16.802, 0.724)
pt3dadd(113.116, 147.224, 16.79, 0.682)
pt3dadd(113.089, 147.341, 16.782, 0.658)
pt3dadd(113.068, 147.458, 16.778, 0.65)
pt3dadd(113.046, 147.577, 16.774, 0.64)
pt3dadd(113.024, 147.695, 16.77, 0.63)
pt3dadd(113.002, 147.812, 16.766, 0.622)
pt3dadd(112.98, 147.93, 16.762, 0.612)
pt3dadd(112.959, 148.049, 16.757, 0.602)
pt3dadd(112.937, 148.166, 16.753, 0.594)
pt3dadd(112.915, 148.284, 16.749, 0.584)
pt3dadd(112.893, 148.402, 16.745, 0.574)
pt3dadd(112.876, 148.52, 16.744, 0.568)
pt3dadd(112.863, 148.64, 16.744, 0.56)
pt3dadd(112.85, 148.759, 16.744, 0.554)
pt3dadd(112.837, 148.879, 16.744, 0.548)
pt3dadd(112.824, 148.998, 16.744, 0.542)
pt3dadd(112.811, 149.117, 16.744, 0.536)
}
}
proc shape3d_104() {
dend_7[19] { pt3dadd(112.798, 149.237, 16.744, 0.53)
pt3dadd(112.785, 149.356, 16.744, 0.524)
pt3dadd(112.772, 149.476, 16.744, 0.518)
pt3dadd(112.759, 149.594, 16.744, 0.512)
pt3dadd(112.748, 149.714, 16.744, 0.502)
pt3dadd(112.738, 149.833, 16.744, 0.488)
pt3dadd(112.728, 149.953, 16.744, 0.476)
pt3dadd(112.718, 150.073, 16.744, 0.462)
pt3dadd(112.708, 150.192, 16.744, 0.45)
pt3dadd(112.698, 150.312, 16.744, 0.436)
pt3dadd(112.688, 150.432, 16.744, 0.424)
pt3dadd(112.679, 150.551, 16.744, 0.41)
pt3dadd(112.669, 150.671, 16.744, 0.398)
pt3dadd(112.659, 150.791, 16.744, 0.386)
pt3dadd(112.645, 150.91, 16.744, 0.41)
pt3dadd(112.629, 151.028, 16.744, 0.46)
pt3dadd(112.612, 151.147, 16.744, 0.512)
pt3dadd(112.596, 151.266, 16.744, 0.562)
pt3dadd(112.579, 151.385, 16.744, 0.614)
pt3dadd(112.563, 151.504, 16.744, 0.664)
pt3dadd(112.546, 151.622, 16.744, 0.716)
pt3dadd(112.53, 151.741, 16.744, 0.766)
pt3dadd(112.513, 151.86, 16.744, 0.816)
pt3dadd(112.497, 151.979, 16.744, 0.868)
pt3dadd(112.463, 152.094, 16.744, 0.878)
pt3dadd(112.419, 152.204, 16.744, 0.86)
pt3dadd(112.374, 152.316, 16.744, 0.842)
pt3dadd(112.33, 152.428, 16.744, 0.824)
pt3dadd(112.285, 152.539, 16.744, 0.806)
pt3dadd(112.241, 152.651, 16.744, 0.788)
pt3dadd(112.196, 152.762, 16.744, 0.77)
pt3dadd(112.151, 152.874, 16.744, 0.752)
pt3dadd(112.107, 152.984, 16.744, 0.734)
pt3dadd(112.062, 153.096, 16.744, 0.716)
pt3dadd(112.026, 153.21, 16.744, 0.688)
pt3dadd(111.995, 153.326, 16.744, 0.654)
pt3dadd(111.963, 153.442, 16.744, 0.62)
pt3dadd(111.932, 153.558, 16.744, 0.586)
pt3dadd(111.9, 153.673, 16.744, 0.55)
pt3dadd(111.869, 153.79, 16.744, 0.516)
pt3dadd(111.838, 153.906, 16.744, 0.482)
pt3dadd(111.806, 154.021, 16.744, 0.448)
pt3dadd(111.775, 154.138, 16.744, 0.414)
pt3dadd(111.744, 154.253, 16.744, 0.38)
pt3dadd(111.72, 154.37, 16.744, 0.358)
pt3dadd(111.702, 154.489, 16.744, 0.344)
pt3dadd(111.683, 154.608, 16.744, 0.33)
pt3dadd(111.664, 154.726, 16.744, 0.316)
pt3dadd(111.645, 154.844, 16.744, 0.302)
pt3dadd(111.627, 154.963, 16.744, 0.288)
pt3dadd(111.608, 155.082, 16.744, 0.274)
pt3dadd(111.589, 155.2, 16.744, 0.26)
pt3dadd(111.57, 155.318, 16.744, 0.246)
pt3dadd(111.551, 155.437, 16.744, 0.23)
pt3dadd(111.541, 155.556, 16.744, 0.226)
pt3dadd(111.534, 155.676, 16.744, 0.226)
pt3dadd(111.528, 155.796, 16.744, 0.226)
pt3dadd(111.521, 155.916, 16.744, 0.226)
pt3dadd(111.515, 156.036, 16.744, 0.226)
pt3dadd(111.508, 156.156, 16.744, 0.226)
pt3dadd(111.502, 156.276, 16.744, 0.226)
pt3dadd(111.495, 156.395, 16.744, 0.226)
pt3dadd(111.489, 156.515, 16.744, 0.226)
pt3dadd(111.482, 156.635, 16.744, 0.226)
pt3dadd(111.481, 156.755, 16.744, 0.234)
pt3dadd(111.482, 156.875, 16.744, 0.244)
pt3dadd(111.484, 156.995, 16.744, 0.254)
pt3dadd(111.485, 157.115, 16.744, 0.266)
pt3dadd(111.487, 157.235, 16.744, 0.276)
pt3dadd(111.488, 157.355, 16.744, 0.286)
pt3dadd(111.49, 157.475, 16.744, 0.298)
pt3dadd(111.491, 157.595, 16.744, 0.308)
pt3dadd(111.492, 157.715, 16.744, 0.32)
pt3dadd(111.494, 157.835, 16.744, 0.33)
pt3dadd(111.496, 157.955, 16.744, 0.356)
pt3dadd(111.499, 158.075, 16.744, 0.388)
pt3dadd(111.501, 158.195, 16.744, 0.42)
pt3dadd(111.504, 158.315, 16.744, 0.452)
pt3dadd(111.507, 158.435, 16.744, 0.484)
pt3dadd(111.509, 158.555, 16.744, 0.516)
pt3dadd(111.512, 158.675, 16.744, 0.55)
pt3dadd(111.515, 158.795, 16.744, 0.582)
pt3dadd(111.517, 158.915, 16.744, 0.614)
pt3dadd(111.52, 159.035, 16.744, 0.646)
pt3dadd(111.525, 159.155, 16.744, 0.644)
pt3dadd(111.531, 159.275, 16.744, 0.626)
pt3dadd(111.537, 159.394, 16.745, 0.606)
pt3dadd(111.543, 159.514, 16.745, 0.586)
pt3dadd(111.549, 159.634, 16.745, 0.568)
pt3dadd(111.555, 159.754, 16.745, 0.548)
pt3dadd(111.562, 159.874, 16.745, 0.528)
pt3dadd(111.568, 159.994, 16.745, 0.51)
pt3dadd(111.574, 160.114, 16.745, 0.49)
pt3dadd(111.58, 160.232, 16.745, 0.47)
pt3dadd(111.587, 160.352, 16.745, 0.464)
pt3dadd(111.595, 160.472, 16.745, 0.462)
pt3dadd(111.602, 160.592, 16.745, 0.462)
pt3dadd(111.61, 160.712, 16.746, 0.46)
pt3dadd(111.617, 160.832, 16.746, 0.458)
pt3dadd(111.625, 160.951, 16.746, 0.458)
pt3dadd(111.632, 161.071, 16.746, 0.456)
pt3dadd(111.64, 161.191, 16.746, 0.454)
pt3dadd(111.648, 161.311, 16.746, 0.454)
pt3dadd(111.655, 161.431, 16.746, 0.452)
pt3dadd(111.678, 161.548, 16.747, 0.462)
pt3dadd(111.709, 161.664, 16.747, 0.476)
pt3dadd(111.74, 161.779, 16.747, 0.49)
pt3dadd(111.771, 161.896, 16.747, 0.504)
pt3dadd(111.802, 162.012, 16.748, 0.518)
pt3dadd(111.833, 162.127, 16.748, 0.532)
pt3dadd(111.864, 162.244, 16.748, 0.546)
pt3dadd(111.895, 162.36, 16.748, 0.56)
pt3dadd(111.926, 162.475, 16.749, 0.574)
pt3dadd(111.956, 162.592, 16.749, 0.588)
pt3dadd(111.974, 162.71, 16.749, 0.598)
pt3dadd(111.986, 162.829, 16.75, 0.608)
pt3dadd(111.998, 162.949, 16.75, 0.616)
pt3dadd(112.01, 163.068, 16.751, 0.624)
pt3dadd(112.022, 163.187, 16.751, 0.634)
pt3dadd(112.034, 163.307, 16.752, 0.642)
pt3dadd(112.046, 163.426, 16.752, 0.652)
pt3dadd(112.059, 163.546, 16.753, 0.66)
pt3dadd(112.071, 163.664, 16.753, 0.668)
pt3dadd(112.083, 163.784, 16.754, 0.678)
pt3dadd(112.084, 163.904, 16.755, 0.69)
pt3dadd(112.085, 164.024, 16.756, 0.704)
pt3dadd(112.085, 164.144, 16.757, 0.718)
pt3dadd(112.086, 164.264, 16.758, 0.732)
pt3dadd(112.086, 164.384, 16.759, 0.746)
pt3dadd(112.086, 164.504, 16.76, 0.76)
pt3dadd(112.087, 164.624, 16.76, 0.772)
pt3dadd(112.087, 164.744, 16.761, 0.786)
pt3dadd(112.088, 164.864, 16.762, 0.8)
pt3dadd(112.089, 164.984, 16.763, 0.814)
pt3dadd(112.103, 165.103, 16.765, 0.846)
pt3dadd(112.116, 165.222, 16.767, 0.878)
pt3dadd(112.13, 165.342, 16.768, 0.91)
pt3dadd(112.144, 165.461, 16.77, 0.942)
pt3dadd(112.158, 165.58, 16.772, 0.974)
pt3dadd(112.172, 165.7, 16.774, 1.006)
pt3dadd(112.186, 165.818, 16.775, 1.038)
pt3dadd(112.2, 165.937, 16.777, 1.07)
pt3dadd(112.214, 166.057, 16.779, 1.102)
pt3dadd(112.224, 166.176, 16.781, 1.13)
pt3dadd(112.201, 166.294, 16.784, 1.13)
pt3dadd(112.179, 166.411, 16.787, 1.13)
pt3dadd(112.157, 166.529, 16.79, 1.13)
pt3dadd(112.134, 166.648, 16.792, 1.13)
pt3dadd(112.112, 166.765, 16.795, 1.13)
pt3dadd(112.089, 166.883, 16.798, 1.13)
pt3dadd(112.067, 167, 16.801, 1.13)
pt3dadd(112.044, 167.118, 16.804, 1.13)
pt3dadd(112.022, 167.237, 16.807, 1.13)
pt3dadd(112.002, 167.354, 16.811, 1.124)
pt3dadd(112, 167.474, 16.818, 1.066)
pt3dadd(111.998, 167.593, 16.825, 1.01)
pt3dadd(111.997, 167.713, 16.833, 0.954)
pt3dadd(111.995, 167.833, 16.84, 0.896)
pt3dadd(111.993, 167.952, 16.847, 0.84)
pt3dadd(111.992, 168.072, 16.854, 0.782)
pt3dadd(111.99, 168.192, 16.861, 0.726)
pt3dadd(111.988, 168.312, 16.869, 0.67)
pt3dadd(111.987, 168.431, 16.876, 0.612)
pt3dadd(111.988, 168.551, 16.884, 0.562)
pt3dadd(112.017, 168.666, 16.895, 0.566)
pt3dadd(112.046, 168.782, 16.906, 0.57)
pt3dadd(112.075, 168.898, 16.917, 0.574)
pt3dadd(112.104, 169.014, 16.928, 0.578)
pt3dadd(112.132, 169.129, 16.939, 0.582)
pt3dadd(112.161, 169.246, 16.95, 0.586)
pt3dadd(112.19, 169.361, 16.961, 0.59)
pt3dadd(112.219, 169.476, 16.972, 0.594)
pt3dadd(112.248, 169.592, 16.983, 0.598)
pt3dadd(112.277, 169.708, 16.997, 0.598)
pt3dadd(112.311, 169.818, 17.024, 0.586)
pt3dadd(112.344, 169.928, 17.051, 0.574)
pt3dadd(112.377, 170.039, 17.077, 0.56)
pt3dadd(112.411, 170.149, 17.104, 0.548)
pt3dadd(112.444, 170.26, 17.132, 0.534)
pt3dadd(112.478, 170.371, 17.159, 0.522)
pt3dadd(112.511, 170.482, 17.185, 0.51)
pt3dadd(112.544, 170.592, 17.212, 0.496)
pt3dadd(112.578, 170.702, 17.239, 0.484)
pt3dadd(112.61, 170.813, 17.268, 0.468)
pt3dadd(112.64, 170.921, 17.303, 0.442)
pt3dadd(112.669, 171.03, 17.337, 0.418)
pt3dadd(112.699, 171.139, 17.372, 0.392)
pt3dadd(112.728, 171.247, 17.406, 0.368)
pt3dadd(112.758, 171.356, 17.441, 0.344)
pt3dadd(112.788, 171.464, 17.475, 0.318)
pt3dadd(112.817, 171.574, 17.51, 0.294)
pt3dadd(112.847, 171.683, 17.544, 0.268)
pt3dadd(112.876, 171.791, 17.579, 0.244)
pt3dadd(112.904, 171.901, 17.611, 0.226)
pt3dadd(112.929, 172.014, 17.637, 0.23)
pt3dadd(112.953, 172.127, 17.663, 0.234)
pt3dadd(112.978, 172.241, 17.689, 0.236)
pt3dadd(113.002, 172.354, 17.715, 0.24)
pt3dadd(113.027, 172.466, 17.741, 0.244)
pt3dadd(113.051, 172.58, 17.767, 0.246)
}
}
proc shape3d_105() {
dend_7[19] { pt3dadd(113.076, 172.693, 17.794, 0.25)
pt3dadd(113.1, 172.806, 17.82, 0.254)
pt3dadd(113.125, 172.92, 17.846, 0.256)
pt3dadd(113.149, 173.034, 17.87, 0.27)
pt3dadd(113.173, 173.149, 17.889, 0.31)
pt3dadd(113.197, 173.264, 17.908, 0.352)
pt3dadd(113.22, 173.38, 17.927, 0.392)
pt3dadd(113.244, 173.495, 17.946, 0.432)
pt3dadd(113.268, 173.611, 17.965, 0.472)
pt3dadd(113.292, 173.726, 17.984, 0.512)
pt3dadd(113.315, 173.842, 18.003, 0.552)
pt3dadd(113.339, 173.957, 18.022, 0.592)
pt3dadd(113.363, 174.072, 18.041, 0.632)
pt3dadd(113.397, 174.184, 18.058, 0.65)
pt3dadd(113.457, 174.287, 18.07, 0.616)
pt3dadd(113.516, 174.39, 18.082, 0.582)
pt3dadd(113.576, 174.493, 18.094, 0.548)
pt3dadd(113.636, 174.596, 18.106, 0.514)
pt3dadd(113.695, 174.7, 18.118, 0.48)
pt3dadd(113.755, 174.803, 18.13, 0.444)
pt3dadd(113.814, 174.906, 18.142, 0.41)
pt3dadd(113.874, 175.009, 18.154, 0.376)
pt3dadd(113.933, 175.112, 18.166, 0.342)
pt3dadd(113.999, 175.208, 18.185, 0.316)
pt3dadd(114.077, 175.29, 18.22, 0.306)
pt3dadd(114.155, 175.37, 18.255, 0.298)
pt3dadd(114.233, 175.452, 18.29, 0.288)
pt3dadd(114.311, 175.532, 18.325, 0.278)
pt3dadd(114.389, 175.614, 18.36, 0.268)
pt3dadd(114.467, 175.694, 18.395, 0.26)
pt3dadd(114.545, 175.776, 18.43, 0.25)
pt3dadd(114.623, 175.856, 18.464, 0.24)
pt3dadd(114.701, 175.938, 18.499, 0.23)
pt3dadd(114.773, 176.023, 18.534, 0.232)
pt3dadd(114.839, 176.114, 18.57, 0.246)
pt3dadd(114.904, 176.206, 18.605, 0.26)
pt3dadd(114.97, 176.297, 18.64, 0.274)
pt3dadd(115.036, 176.388, 18.676, 0.288)
pt3dadd(115.102, 176.479, 18.711, 0.302)
pt3dadd(115.167, 176.569, 18.746, 0.316)
pt3dadd(115.233, 176.66, 18.781, 0.33)
pt3dadd(115.299, 176.752, 18.817, 0.344)
pt3dadd(115.365, 176.843, 18.852, 0.358)
pt3dadd(115.413, 176.946, 18.879, 0.36)
pt3dadd(115.451, 177.056, 18.901, 0.356)
pt3dadd(115.489, 177.167, 18.924, 0.35)
pt3dadd(115.527, 177.278, 18.946, 0.346)
pt3dadd(115.565, 177.389, 18.968, 0.34)
pt3dadd(115.603, 177.499, 18.99, 0.336)
pt3dadd(115.641, 177.61, 19.013, 0.332)
pt3dadd(115.679, 177.72, 19.035, 0.326)
pt3dadd(115.717, 177.832, 19.057, 0.322)
pt3dadd(115.756, 177.942, 19.08, 0.316)
pt3dadd(115.781, 178.057, 19.094, 0.308)
pt3dadd(115.802, 178.175, 19.105, 0.3)
pt3dadd(115.823, 178.292, 19.117, 0.29)
pt3dadd(115.845, 178.409, 19.128, 0.282)
pt3dadd(115.866, 178.526, 19.14, 0.274)
pt3dadd(115.887, 178.644, 19.151, 0.264)
pt3dadd(115.908, 178.762, 19.163, 0.254)
pt3dadd(115.929, 178.878, 19.174, 0.246)
pt3dadd(115.95, 178.996, 19.186, 0.238)
pt3dadd(115.971, 179.113, 19.197, 0.228)
pt3dadd(116.013, 179.224, 19.21, 0.226)
pt3dadd(116.061, 179.333, 19.223, 0.226)
pt3dadd(116.109, 179.442, 19.236, 0.226)
pt3dadd(116.156, 179.551, 19.25, 0.226)
pt3dadd(116.204, 179.659, 19.263, 0.226)
pt3dadd(116.252, 179.768, 19.276, 0.226)
pt3dadd(116.3, 179.878, 19.289, 0.226)
pt3dadd(116.347, 179.987, 19.302, 0.226)
pt3dadd(116.395, 180.096, 19.315, 0.226)
pt3dadd(116.443, 180.204, 19.33, 0.226)
pt3dadd(116.495, 180.302, 19.366, 0.226)
pt3dadd(116.547, 180.402, 19.403, 0.226)
pt3dadd(116.598, 180.5, 19.439, 0.226)
pt3dadd(116.65, 180.6, 19.476, 0.226)
pt3dadd(116.702, 180.698, 19.512, 0.226)
pt3dadd(116.754, 180.798, 19.549, 0.226)
pt3dadd(116.806, 180.896, 19.585, 0.226)
pt3dadd(116.857, 180.996, 19.622, 0.226)
pt3dadd(116.909, 181.094, 19.658, 0.226)
pt3dadd(116.958, 181.195, 19.694, 0.226)
pt3dadd(116.993, 181.302, 19.73, 0.226)
pt3dadd(117.028, 181.409, 19.765, 0.226)
pt3dadd(117.064, 181.514, 19.801, 0.226)
pt3dadd(117.099, 181.621, 19.836, 0.226)
pt3dadd(117.135, 181.728, 19.872, 0.226)
pt3dadd(117.17, 181.835, 19.907, 0.226)
pt3dadd(117.205, 181.94, 19.943, 0.226)
pt3dadd(117.241, 182.047, 19.978, 0.226)
pt3dadd(117.276, 182.154, 20.014, 0.226)
pt3dadd(117.312, 182.261, 20.046, 0.234)
pt3dadd(117.351, 182.371, 20.069, 0.268)
pt3dadd(117.39, 182.482, 20.092, 0.302)
pt3dadd(117.428, 182.592, 20.115, 0.336)
pt3dadd(117.467, 182.701, 20.139, 0.368)
pt3dadd(117.506, 182.812, 20.162, 0.402)
pt3dadd(117.544, 182.922, 20.185, 0.436)
pt3dadd(117.583, 183.032, 20.208, 0.47)
pt3dadd(117.622, 183.143, 20.231, 0.504)
pt3dadd(117.66, 183.252, 20.254, 0.536)
pt3dadd(117.701, 183.362, 20.275, 0.574)
pt3dadd(117.746, 183.472, 20.291, 0.622)
pt3dadd(117.792, 183.581, 20.306, 0.668)
pt3dadd(117.837, 183.691, 20.322, 0.714)
pt3dadd(117.883, 183.8, 20.338, 0.762)
pt3dadd(117.928, 183.91, 20.354, 0.808)
pt3dadd(117.974, 184.019, 20.37, 0.856)
pt3dadd(118.019, 184.128, 20.385, 0.902)
pt3dadd(118.064, 184.238, 20.401, 0.95)
pt3dadd(118.11, 184.348, 20.417, 0.996)
pt3dadd(118.153, 184.458, 20.431, 1.012)
pt3dadd(118.19, 184.571, 20.443, 0.958)
pt3dadd(118.227, 184.685, 20.455, 0.902)
pt3dadd(118.264, 184.798, 20.466, 0.848)
pt3dadd(118.301, 184.912, 20.478, 0.794)
pt3dadd(118.338, 185.024, 20.49, 0.738)
pt3dadd(118.375, 185.137, 20.501, 0.684)
pt3dadd(118.412, 185.251, 20.513, 0.628)
pt3dadd(118.449, 185.364, 20.525, 0.574)
pt3dadd(118.486, 185.478, 20.536, 0.52)
pt3dadd(118.521, 185.59, 20.555, 0.48)
pt3dadd(118.55, 185.698, 20.591, 0.478)
pt3dadd(118.578, 185.806, 20.627, 0.474)
pt3dadd(118.607, 185.914, 20.663, 0.472)
pt3dadd(118.636, 186.022, 20.699, 0.468)
pt3dadd(118.665, 186.13, 20.736, 0.466)
pt3dadd(118.694, 186.238, 20.771, 0.462)
pt3dadd(118.723, 186.347, 20.807, 0.46)
pt3dadd(118.752, 186.455, 20.844, 0.456)
pt3dadd(118.78, 186.563, 20.88, 0.454)
pt3dadd(118.813, 186.671, 20.913, 0.452)
pt3dadd(118.853, 186.778, 20.943, 0.452)
pt3dadd(118.893, 186.886, 20.972, 0.452)
pt3dadd(118.933, 186.994, 21.002, 0.452)
pt3dadd(118.972, 187.1, 21.031, 0.452)
pt3dadd(119.012, 187.208, 21.06, 0.452)
pt3dadd(119.052, 187.316, 21.09, 0.452)
pt3dadd(119.092, 187.423, 21.119, 0.452)
pt3dadd(119.132, 187.531, 21.149, 0.452)
pt3dadd(119.172, 187.638, 21.178, 0.452)
pt3dadd(119.215, 187.746, 21.205, 0.45)
pt3dadd(119.263, 187.853, 21.227, 0.444)
pt3dadd(119.312, 187.958, 21.249, 0.438)
pt3dadd(119.36, 188.065, 21.271, 0.432)
pt3dadd(119.408, 188.172, 21.293, 0.426)
pt3dadd(119.456, 188.279, 21.315, 0.422)
pt3dadd(119.505, 188.386, 21.337, 0.416)
pt3dadd(119.553, 188.492, 21.359, 0.41)
pt3dadd(119.601, 188.599, 21.381, 0.404)
pt3dadd(119.649, 188.705, 21.403, 0.398)
pt3dadd(119.699, 188.812, 21.423, 0.388)
pt3dadd(119.751, 188.918, 21.439, 0.372)
pt3dadd(119.803, 189.025, 21.456, 0.356)
pt3dadd(119.855, 189.131, 21.472, 0.338)
pt3dadd(119.907, 189.238, 21.489, 0.322)
pt3dadd(119.958, 189.344, 21.505, 0.306)
pt3dadd(120.011, 189.45, 21.522, 0.29)
pt3dadd(120.062, 189.557, 21.538, 0.272)
pt3dadd(120.114, 189.664, 21.555, 0.256)
pt3dadd(120.166, 189.769, 21.571, 0.24)
pt3dadd(120.191, 189.881, 21.586, 0.238)
pt3dadd(120.175, 189.998, 21.599, 0.256)
pt3dadd(120.16, 190.116, 21.611, 0.276)
pt3dadd(120.144, 190.235, 21.624, 0.296)
pt3dadd(120.128, 190.352, 21.636, 0.314)
pt3dadd(120.113, 190.471, 21.649, 0.334)
pt3dadd(120.097, 190.589, 21.662, 0.354)
pt3dadd(120.083, 190.706, 21.674, 0.372)
pt3dadd(120.067, 190.825, 21.687, 0.392)
pt3dadd(120.052, 190.943, 21.699, 0.412)
pt3dadd(120.03, 191.057, 21.721, 0.418)
pt3dadd(120.001, 191.166, 21.756, 0.406)
pt3dadd(119.973, 191.274, 21.791, 0.394)
pt3dadd(119.944, 191.383, 21.825, 0.382)
pt3dadd(119.915, 191.492, 21.86, 0.37)
pt3dadd(119.886, 191.6, 21.895, 0.358)
pt3dadd(119.857, 191.71, 21.93, 0.344)
pt3dadd(119.828, 191.818, 21.965, 0.332)
pt3dadd(119.799, 191.927, 22, 0.32)
pt3dadd(119.771, 192.035, 22.035, 0.308)
pt3dadd(119.732, 192.142, 22.068, 0.298)
pt3dadd(119.682, 192.244, 22.099, 0.29)
pt3dadd(119.633, 192.347, 22.131, 0.282)
pt3dadd(119.583, 192.449, 22.163, 0.276)
pt3dadd(119.534, 192.551, 22.194, 0.268)
pt3dadd(119.484, 192.654, 22.225, 0.26)
pt3dadd(119.434, 192.756, 22.257, 0.252)
pt3dadd(119.385, 192.859, 22.288, 0.244)
pt3dadd(119.335, 192.961, 22.32, 0.236)
pt3dadd(119.286, 193.064, 22.351, 0.23)
pt3dadd(119.231, 193.165, 22.379, 0.228)
pt3dadd(119.172, 193.266, 22.404, 0.234)
pt3dadd(119.114, 193.366, 22.429, 0.24)
pt3dadd(119.055, 193.466, 22.454, 0.244)
pt3dadd(118.997, 193.567, 22.478, 0.25)
pt3dadd(118.938, 193.668, 22.503, 0.254)
pt3dadd(118.88, 193.768, 22.528, 0.26)
pt3dadd(118.822, 193.868, 22.553, 0.264)
}
}
proc shape3d_106() {
dend_7[19] { pt3dadd(118.763, 193.969, 22.578, 0.27)
pt3dadd(118.705, 194.069, 22.603, 0.276)
pt3dadd(118.65, 194.172, 22.626, 0.292)
pt3dadd(118.599, 194.278, 22.648, 0.316)
pt3dadd(118.547, 194.382, 22.671, 0.34)
pt3dadd(118.495, 194.488, 22.693, 0.364)
pt3dadd(118.444, 194.592, 22.716, 0.388)
pt3dadd(118.392, 194.698, 22.738, 0.412)
pt3dadd(118.341, 194.802, 22.76, 0.436)
pt3dadd(118.289, 194.908, 22.783, 0.462)
pt3dadd(118.237, 195.012, 22.805, 0.486)
pt3dadd(118.186, 195.116, 22.828, 0.51)
pt3dadd(118.119, 195.209, 22.857, 0.534)
pt3dadd(118.044, 195.295, 22.888, 0.56)
pt3dadd(117.97, 195.382, 22.92, 0.586)
pt3dadd(117.896, 195.468, 22.952, 0.61)
pt3dadd(117.822, 195.553, 22.984, 0.636)
pt3dadd(117.747, 195.64, 23.016, 0.662)
pt3dadd(117.673, 195.726, 23.048, 0.688)
pt3dadd(117.599, 195.811, 23.08, 0.712)
pt3dadd(117.524, 195.898, 23.112, 0.738)
pt3dadd(117.45, 195.984, 23.144, 0.764)
pt3dadd(117.413, 196.07, 23.206, 0.71)
pt3dadd(117.376, 196.157, 23.268, 0.656)
pt3dadd(117.339, 196.244, 23.33, 0.602)
pt3dadd(117.302, 196.331, 23.392, 0.548)
pt3dadd(117.265, 196.417, 23.454, 0.494)
pt3dadd(117.228, 196.504, 23.515, 0.442)
pt3dadd(117.19, 196.59, 23.577, 0.388)
pt3dadd(117.153, 196.678, 23.639, 0.334)
pt3dadd(117.116, 196.764, 23.701, 0.28)
pt3dadd(117.079, 196.85, 23.763, 0.226)
}
dend_7[20] {pt3dclear()
pt3dadd(119.328, 133.598, 16.807, 0.904)
pt3dadd(119.338, 133.625, 16.785, 0.904)
pt3dadd(119.369, 133.706, 16.717, 0.904)
pt3dadd(119.4, 133.788, 16.649, 0.904)
pt3dadd(119.431, 133.871, 16.58, 0.904)
pt3dadd(119.462, 133.952, 16.512, 0.904)
pt3dadd(119.492, 134.035, 16.444, 0.904)
pt3dadd(119.523, 134.117, 16.375, 0.904)
pt3dadd(119.554, 134.198, 16.307, 0.904)
pt3dadd(119.585, 134.281, 16.239, 0.904)
pt3dadd(119.616, 134.363, 16.171, 0.904)
pt3dadd(119.648, 134.45, 16.108, 0.898)
pt3dadd(119.681, 134.54, 16.047, 0.89)
pt3dadd(119.714, 134.63, 15.987, 0.882)
pt3dadd(119.747, 134.719, 15.927, 0.872)
pt3dadd(119.78, 134.809, 15.866, 0.864)
pt3dadd(119.812, 134.899, 15.806, 0.856)
pt3dadd(119.845, 134.989, 15.745, 0.848)
pt3dadd(119.878, 135.079, 15.685, 0.84)
pt3dadd(119.911, 135.168, 15.624, 0.83)
pt3dadd(119.944, 135.258, 15.564, 0.822)
pt3dadd(119.979, 135.373, 15.558, 0.77)
pt3dadd(120.016, 135.487, 15.552, 0.718)
pt3dadd(120.052, 135.601, 15.545, 0.664)
pt3dadd(120.086, 135.715, 15.539, 0.612)
pt3dadd(120.122, 135.83, 15.533, 0.56)
pt3dadd(120.158, 135.944, 15.527, 0.508)
pt3dadd(120.194, 136.058, 15.521, 0.456)
pt3dadd(120.23, 136.172, 15.515, 0.402)
pt3dadd(120.265, 136.288, 15.509, 0.35)
pt3dadd(120.301, 136.402, 15.502, 0.298)
pt3dadd(120.361, 136.505, 15.494, 0.292)
pt3dadd(120.421, 136.608, 15.485, 0.284)
pt3dadd(120.481, 136.712, 15.477, 0.276)
pt3dadd(120.54, 136.816, 15.468, 0.27)
pt3dadd(120.6, 136.919, 15.46, 0.262)
pt3dadd(120.66, 137.023, 15.451, 0.254)
pt3dadd(120.72, 137.126, 15.443, 0.248)
pt3dadd(120.779, 137.23, 15.434, 0.24)
pt3dadd(120.839, 137.334, 15.426, 0.234)
pt3dadd(120.899, 137.437, 15.417, 0.226)
pt3dadd(120.955, 137.542, 15.404, 0.256)
pt3dadd(121.013, 137.646, 15.39, 0.284)
pt3dadd(121.069, 137.75, 15.377, 0.312)
pt3dadd(121.127, 137.855, 15.364, 0.34)
pt3dadd(121.183, 137.959, 15.35, 0.368)
pt3dadd(121.24, 138.064, 15.337, 0.396)
pt3dadd(121.297, 138.168, 15.324, 0.424)
pt3dadd(121.354, 138.272, 15.311, 0.452)
pt3dadd(121.411, 138.377, 15.297, 0.48)
pt3dadd(121.469, 138.481, 15.283, 0.508)
pt3dadd(121.54, 138.569, 15.249, 0.502)
pt3dadd(121.61, 138.656, 15.215, 0.498)
pt3dadd(121.68, 138.745, 15.182, 0.494)
pt3dadd(121.751, 138.833, 15.148, 0.49)
pt3dadd(121.822, 138.922, 15.114, 0.486)
pt3dadd(121.892, 139.009, 15.08, 0.482)
pt3dadd(121.963, 139.097, 15.046, 0.478)
pt3dadd(122.034, 139.186, 15.012, 0.474)
pt3dadd(122.105, 139.273, 14.978, 0.468)
pt3dadd(122.178, 139.356, 14.941, 0.464)
pt3dadd(122.258, 139.429, 14.899, 0.46)
pt3dadd(122.339, 139.502, 14.857, 0.454)
pt3dadd(122.419, 139.576, 14.814, 0.45)
pt3dadd(122.5, 139.649, 14.772, 0.444)
pt3dadd(122.58, 139.722, 14.73, 0.44)
pt3dadd(122.66, 139.795, 14.687, 0.434)
pt3dadd(122.741, 139.868, 14.645, 0.43)
pt3dadd(122.821, 139.942, 14.602, 0.424)
pt3dadd(122.902, 140.016, 14.56, 0.42)
pt3dadd(122.982, 140.09, 14.52, 0.434)
pt3dadd(123.061, 140.171, 14.485, 0.48)
pt3dadd(123.14, 140.25, 14.451, 0.524)
pt3dadd(123.221, 140.329, 14.416, 0.572)
pt3dadd(123.3, 140.408, 14.381, 0.616)
pt3dadd(123.38, 140.488, 14.346, 0.664)
pt3dadd(123.46, 140.567, 14.311, 0.71)
pt3dadd(123.539, 140.646, 14.276, 0.756)
pt3dadd(123.619, 140.725, 14.241, 0.802)
pt3dadd(123.698, 140.804, 14.207, 0.848)
pt3dadd(123.77, 140.887, 14.167, 0.856)
pt3dadd(123.828, 140.976, 14.119, 0.806)
pt3dadd(123.887, 141.065, 14.072, 0.756)
pt3dadd(123.944, 141.152, 14.025, 0.706)
pt3dadd(124.003, 141.241, 13.977, 0.656)
pt3dadd(124.061, 141.329, 13.93, 0.606)
pt3dadd(124.12, 141.418, 13.883, 0.556)
pt3dadd(124.177, 141.505, 13.835, 0.506)
pt3dadd(124.236, 141.594, 13.788, 0.456)
pt3dadd(124.294, 141.682, 13.741, 0.406)
pt3dadd(124.355, 141.772, 13.698, 0.37)
pt3dadd(124.42, 141.863, 13.664, 0.354)
pt3dadd(124.486, 141.955, 13.63, 0.34)
pt3dadd(124.55, 142.048, 13.595, 0.324)
pt3dadd(124.615, 142.139, 13.561, 0.31)
pt3dadd(124.681, 142.231, 13.527, 0.294)
pt3dadd(124.746, 142.324, 13.492, 0.28)
pt3dadd(124.811, 142.415, 13.458, 0.264)
pt3dadd(124.877, 142.507, 13.424, 0.25)
pt3dadd(124.942, 142.598, 13.39, 0.234)
pt3dadd(125.009, 142.691, 13.358, 0.23)
pt3dadd(125.08, 142.782, 13.332, 0.242)
pt3dadd(125.15, 142.873, 13.305, 0.252)
pt3dadd(125.221, 142.964, 13.278, 0.264)
pt3dadd(125.292, 143.056, 13.251, 0.274)
pt3dadd(125.364, 143.148, 13.224, 0.286)
pt3dadd(125.435, 143.239, 13.197, 0.296)
pt3dadd(125.506, 143.33, 13.17, 0.306)
pt3dadd(125.576, 143.422, 13.144, 0.318)
pt3dadd(125.647, 143.513, 13.117, 0.328)
pt3dadd(125.72, 143.603, 13.092, 0.35)
pt3dadd(125.797, 143.69, 13.068, 0.384)
pt3dadd(125.874, 143.779, 13.045, 0.416)
pt3dadd(125.951, 143.867, 13.022, 0.45)
pt3dadd(126.028, 143.954, 12.999, 0.484)
pt3dadd(126.103, 144.043, 12.976, 0.518)
pt3dadd(126.18, 144.131, 12.953, 0.55)
pt3dadd(126.257, 144.218, 12.93, 0.584)
pt3dadd(126.334, 144.307, 12.907, 0.618)
pt3dadd(126.41, 144.395, 12.884, 0.652)
pt3dadd(126.485, 144.475, 12.846, 0.68)
pt3dadd(126.556, 144.545, 12.791, 0.702)
pt3dadd(126.626, 144.616, 12.735, 0.724)
pt3dadd(126.697, 144.685, 12.679, 0.748)
pt3dadd(126.768, 144.755, 12.623, 0.77)
pt3dadd(126.839, 144.826, 12.568, 0.792)
pt3dadd(126.91, 144.895, 12.512, 0.814)
pt3dadd(126.98, 144.966, 12.456, 0.836)
pt3dadd(127.051, 145.036, 12.4, 0.86)
pt3dadd(127.122, 145.105, 12.345, 0.882)
pt3dadd(127.195, 145.178, 12.294, 0.894)
pt3dadd(127.272, 145.254, 12.25, 0.896)
pt3dadd(127.35, 145.328, 12.206, 0.896)
pt3dadd(127.427, 145.404, 12.161, 0.898)
pt3dadd(127.504, 145.48, 12.117, 0.898)
pt3dadd(127.58, 145.555, 12.073, 0.9)
pt3dadd(127.657, 145.63, 12.029, 0.9)
pt3dadd(127.734, 145.705, 11.984, 0.902)
pt3dadd(127.811, 145.781, 11.94, 0.902)
pt3dadd(127.888, 145.856, 11.896, 0.904)
pt3dadd(127.957, 145.924, 11.839, 0.886)
pt3dadd(128.02, 145.982, 11.769, 0.846)
pt3dadd(128.082, 146.04, 11.699, 0.806)
pt3dadd(128.144, 146.099, 11.629, 0.766)
pt3dadd(128.206, 146.158, 11.558, 0.726)
pt3dadd(128.268, 146.216, 11.488, 0.686)
pt3dadd(128.33, 146.274, 11.418, 0.646)
pt3dadd(128.393, 146.333, 11.347, 0.606)
pt3dadd(128.454, 146.392, 11.277, 0.566)
pt3dadd(128.516, 146.449, 11.207, 0.526)
pt3dadd(128.587, 146.514, 11.147, 0.516)
pt3dadd(128.664, 146.582, 11.096, 0.528)
pt3dadd(128.74, 146.652, 11.044, 0.54)
pt3dadd(128.816, 146.72, 10.993, 0.552)
pt3dadd(128.893, 146.789, 10.941, 0.564)
pt3dadd(128.97, 146.857, 10.89, 0.578)
pt3dadd(129.047, 146.927, 10.839, 0.59)
pt3dadd(129.124, 146.995, 10.787, 0.602)
pt3dadd(129.2, 147.064, 10.736, 0.614)
pt3dadd(129.277, 147.132, 10.685, 0.626)
pt3dadd(129.348, 147.191, 10.621, 0.646)
pt3dadd(129.414, 147.244, 10.551, 0.668)
pt3dadd(129.481, 147.296, 10.48, 0.69)
pt3dadd(129.547, 147.349, 10.41, 0.712)
pt3dadd(129.614, 147.402, 10.339, 0.734)
pt3dadd(129.68, 147.455, 10.269, 0.756)
pt3dadd(129.748, 147.508, 10.198, 0.778)
pt3dadd(129.814, 147.56, 10.128, 0.8)
}
}
proc shape3d_107() {
dend_7[20] { pt3dadd(129.881, 147.613, 10.057, 0.822)
pt3dadd(129.947, 147.667, 9.986, 0.844)
pt3dadd(130.019, 147.707, 9.914, 0.842)
pt3dadd(130.093, 147.743, 9.842, 0.834)
pt3dadd(130.168, 147.78, 9.769, 0.826)
pt3dadd(130.241, 147.816, 9.696, 0.816)
pt3dadd(130.315, 147.852, 9.623, 0.808)
pt3dadd(130.388, 147.888, 9.55, 0.8)
pt3dadd(130.463, 147.924, 9.478, 0.79)
pt3dadd(130.537, 147.961, 9.405, 0.782)
pt3dadd(130.61, 147.997, 9.332, 0.774)
pt3dadd(130.685, 148.033, 9.259, 0.766)
pt3dadd(130.765, 148.079, 9.196, 0.764)
pt3dadd(130.848, 148.127, 9.136, 0.766)
pt3dadd(130.931, 148.176, 9.076, 0.768)
pt3dadd(131.014, 148.224, 9.016, 0.77)
pt3dadd(131.096, 148.272, 8.956, 0.772)
pt3dadd(131.179, 148.321, 8.896, 0.772)
pt3dadd(131.262, 148.369, 8.836, 0.774)
pt3dadd(131.345, 148.417, 8.776, 0.776)
pt3dadd(131.428, 148.466, 8.716, 0.778)
pt3dadd(131.51, 148.514, 8.656, 0.78)
pt3dadd(131.591, 148.574, 8.6, 0.798)
pt3dadd(131.67, 148.636, 8.545, 0.818)
pt3dadd(131.75, 148.697, 8.491, 0.838)
pt3dadd(131.83, 148.758, 8.436, 0.856)
pt3dadd(131.909, 148.818, 8.381, 0.876)
pt3dadd(131.989, 148.879, 8.326, 0.896)
pt3dadd(132.068, 148.94, 8.271, 0.916)
pt3dadd(132.148, 149.002, 8.216, 0.934)
pt3dadd(132.228, 149.063, 8.161, 0.954)
pt3dadd(132.307, 149.124, 8.107, 0.974)
pt3dadd(132.377, 149.192, 8.048, 0.98)
pt3dadd(132.445, 149.261, 7.989, 0.986)
pt3dadd(132.514, 149.329, 7.93, 0.992)
pt3dadd(132.582, 149.398, 7.872, 0.996)
pt3dadd(132.652, 149.467, 7.813, 1.002)
pt3dadd(132.72, 149.536, 7.754, 1.008)
pt3dadd(132.788, 149.604, 7.696, 1.014)
pt3dadd(132.857, 149.672, 7.637, 1.02)
pt3dadd(132.925, 149.741, 7.578, 1.024)
pt3dadd(132.995, 149.812, 7.521, 1.028)
pt3dadd(133.063, 149.897, 7.481, 0.996)
pt3dadd(133.132, 149.983, 7.441, 0.962)
pt3dadd(133.201, 150.068, 7.401, 0.93)
pt3dadd(133.27, 150.155, 7.361, 0.898)
pt3dadd(133.339, 150.24, 7.321, 0.864)
pt3dadd(133.408, 150.326, 7.282, 0.832)
pt3dadd(133.477, 150.412, 7.242, 0.8)
pt3dadd(133.546, 150.498, 7.202, 0.766)
pt3dadd(133.614, 150.583, 7.162, 0.734)
pt3dadd(133.681, 150.67, 7.121, 0.706)
pt3dadd(133.726, 150.761, 7.067, 0.742)
pt3dadd(133.77, 150.851, 7.013, 0.778)
pt3dadd(133.814, 150.941, 6.958, 0.814)
pt3dadd(133.86, 151.032, 6.904, 0.85)
pt3dadd(133.904, 151.122, 6.85, 0.886)
pt3dadd(133.949, 151.212, 6.796, 0.922)
pt3dadd(133.993, 151.303, 6.741, 0.958)
pt3dadd(134.038, 151.393, 6.687, 0.994)
pt3dadd(134.082, 151.484, 6.633, 1.03)
pt3dadd(134.129, 151.574, 6.58, 1.06)
pt3dadd(134.189, 151.668, 6.543, 1.038)
pt3dadd(134.25, 151.762, 6.506, 1.018)
pt3dadd(134.311, 151.855, 6.469, 0.996)
pt3dadd(134.371, 151.948, 6.432, 0.976)
pt3dadd(134.432, 152.041, 6.394, 0.954)
pt3dadd(134.494, 152.135, 6.357, 0.934)
pt3dadd(134.554, 152.228, 6.32, 0.912)
pt3dadd(134.615, 152.322, 6.283, 0.89)
pt3dadd(134.676, 152.414, 6.246, 0.87)
pt3dadd(134.736, 152.507, 6.207, 0.85)
pt3dadd(134.796, 152.594, 6.16, 0.832)
pt3dadd(134.857, 152.682, 6.114, 0.814)
pt3dadd(134.917, 152.77, 6.067, 0.796)
pt3dadd(134.977, 152.856, 6.02, 0.778)
pt3dadd(135.037, 152.944, 5.973, 0.762)
pt3dadd(135.097, 153.031, 5.926, 0.744)
pt3dadd(135.157, 153.119, 5.88, 0.726)
pt3dadd(135.218, 153.205, 5.833, 0.708)
pt3dadd(135.278, 153.293, 5.786, 0.692)
pt3dadd(135.34, 153.379, 5.74, 0.678)
pt3dadd(135.404, 153.464, 5.694, 0.678)
pt3dadd(135.469, 153.548, 5.648, 0.678)
pt3dadd(135.535, 153.632, 5.602, 0.678)
pt3dadd(135.6, 153.718, 5.556, 0.678)
pt3dadd(135.665, 153.802, 5.51, 0.678)
pt3dadd(135.73, 153.887, 5.464, 0.678)
pt3dadd(135.796, 153.971, 5.418, 0.678)
pt3dadd(135.86, 154.055, 5.372, 0.678)
pt3dadd(135.925, 154.14, 5.326, 0.678)
pt3dadd(135.991, 154.228, 5.289, 0.678)
pt3dadd(136.06, 154.322, 5.263, 0.678)
pt3dadd(136.128, 154.416, 5.238, 0.678)
pt3dadd(136.195, 154.51, 5.212, 0.678)
pt3dadd(136.264, 154.603, 5.186, 0.678)
pt3dadd(136.332, 154.698, 5.16, 0.678)
pt3dadd(136.4, 154.792, 5.135, 0.678)
pt3dadd(136.468, 154.885, 5.109, 0.678)
pt3dadd(136.536, 154.979, 5.083, 0.678)
pt3dadd(136.604, 155.074, 5.057, 0.678)
pt3dadd(136.668, 155.171, 5.035, 0.676)
pt3dadd(136.727, 155.273, 5.018, 0.67)
pt3dadd(136.786, 155.376, 5, 0.666)
pt3dadd(136.846, 155.478, 4.982, 0.66)
pt3dadd(136.904, 155.58, 4.964, 0.654)
pt3dadd(136.963, 155.682, 4.947, 0.65)
pt3dadd(137.022, 155.784, 4.929, 0.644)
pt3dadd(137.082, 155.886, 4.911, 0.64)
pt3dadd(137.141, 155.989, 4.893, 0.634)
pt3dadd(137.2, 156.091, 4.876, 0.628)
pt3dadd(137.266, 156.19, 4.859, 0.616)
pt3dadd(137.338, 156.283, 4.845, 0.596)
pt3dadd(137.41, 156.378, 4.83, 0.578)
pt3dadd(137.483, 156.472, 4.815, 0.558)
pt3dadd(137.555, 156.566, 4.801, 0.538)
pt3dadd(137.627, 156.66, 4.786, 0.518)
pt3dadd(137.699, 156.755, 4.771, 0.5)
pt3dadd(137.771, 156.848, 4.757, 0.48)
pt3dadd(137.843, 156.943, 4.742, 0.46)
pt3dadd(137.916, 157.037, 4.727, 0.44)
pt3dadd(137.99, 157.117, 4.692, 0.42)
pt3dadd(138.066, 157.189, 4.642, 0.4)
pt3dadd(138.142, 157.261, 4.593, 0.378)
pt3dadd(138.217, 157.332, 4.544, 0.358)
pt3dadd(138.294, 157.404, 4.494, 0.336)
pt3dadd(138.37, 157.476, 4.445, 0.316)
pt3dadd(138.445, 157.547, 4.395, 0.294)
pt3dadd(138.521, 157.619, 4.346, 0.274)
pt3dadd(138.598, 157.69, 4.296, 0.254)
pt3dadd(138.673, 157.762, 4.247, 0.232)
pt3dadd(138.764, 157.826, 4.213, 0.226)
pt3dadd(138.863, 157.888, 4.187, 0.226)
pt3dadd(138.961, 157.949, 4.16, 0.226)
pt3dadd(139.058, 158.01, 4.133, 0.226)
pt3dadd(139.157, 158.071, 4.106, 0.226)
pt3dadd(139.255, 158.132, 4.08, 0.226)
pt3dadd(139.352, 158.194, 4.053, 0.226)
pt3dadd(139.451, 158.255, 4.026, 0.226)
pt3dadd(139.549, 158.316, 3.999, 0.226)
pt3dadd(139.648, 158.377, 3.973, 0.226)
pt3dadd(139.732, 158.46, 3.96, 0.226)
pt3dadd(139.812, 158.548, 3.95, 0.226)
pt3dadd(139.894, 158.635, 3.941, 0.226)
pt3dadd(139.974, 158.724, 3.931, 0.226)
pt3dadd(140.054, 158.812, 3.922, 0.226)
pt3dadd(140.136, 158.899, 3.912, 0.226)
pt3dadd(140.216, 158.988, 3.903, 0.226)
pt3dadd(140.297, 159.076, 3.893, 0.226)
pt3dadd(140.377, 159.163, 3.884, 0.226)
pt3dadd(140.459, 159.252, 3.874, 0.226)
pt3dadd(140.507, 159.361, 3.874, 0.226)
pt3dadd(140.556, 159.472, 3.874, 0.226)
pt3dadd(140.604, 159.581, 3.874, 0.226)
pt3dadd(140.653, 159.69, 3.874, 0.226)
pt3dadd(140.701, 159.8, 3.874, 0.226)
pt3dadd(140.75, 159.91, 3.874, 0.226)
pt3dadd(140.798, 160.02, 3.874, 0.226)
pt3dadd(140.848, 160.129, 3.874, 0.226)
pt3dadd(140.896, 160.24, 3.874, 0.226)
pt3dadd(140.945, 160.349, 3.874, 0.226)
}
dend_7[21] {pt3dclear()
pt3dadd(118.483, 111.301, 16.614, 1.582)
pt3dadd(118.55, 111.297, 16.62, 1.518)
pt3dadd(118.669, 111.289, 16.631, 1.402)
pt3dadd(118.788, 111.282, 16.642, 1.288)
pt3dadd(118.907, 111.274, 16.653, 1.172)
pt3dadd(119.026, 111.26, 16.663, 1.072)
pt3dadd(119.143, 111.24, 16.673, 0.988)
pt3dadd(119.261, 111.22, 16.683, 0.906)
pt3dadd(119.379, 111.199, 16.692, 0.822)
pt3dadd(119.496, 111.179, 16.702, 0.738)
pt3dadd(119.614, 111.159, 16.712, 0.654)
pt3dadd(119.732, 111.138, 16.721, 0.57)
pt3dadd(119.849, 111.118, 16.731, 0.488)
pt3dadd(119.967, 111.097, 16.741, 0.404)
pt3dadd(120.085, 111.077, 16.75, 0.32)
pt3dadd(120.192, 111.028, 16.756, 0.314)
pt3dadd(120.295, 110.966, 16.761, 0.344)
pt3dadd(120.397, 110.904, 16.765, 0.374)
pt3dadd(120.5, 110.842, 16.769, 0.404)
pt3dadd(120.602, 110.78, 16.774, 0.434)
pt3dadd(120.706, 110.718, 16.778, 0.464)
pt3dadd(120.808, 110.656, 16.782, 0.494)
pt3dadd(120.911, 110.594, 16.787, 0.522)
pt3dadd(121.013, 110.532, 16.791, 0.552)
pt3dadd(121.116, 110.47, 16.795, 0.582)
pt3dadd(121.224, 110.42, 16.801, 0.578)
pt3dadd(121.336, 110.377, 16.808, 0.556)
pt3dadd(121.447, 110.333, 16.815, 0.536)
pt3dadd(121.559, 110.289, 16.821, 0.514)
pt3dadd(121.67, 110.246, 16.828, 0.494)
pt3dadd(121.782, 110.202, 16.835, 0.472)
pt3dadd(121.892, 110.158, 16.841, 0.452)
pt3dadd(122.004, 110.115, 16.848, 0.43)
pt3dadd(122.116, 110.071, 16.855, 0.41)
pt3dadd(122.227, 110.027, 16.862, 0.39)
pt3dadd(122.342, 109.996, 16.871, 0.38)
pt3dadd(122.459, 109.968, 16.881, 0.376)
pt3dadd(122.575, 109.941, 16.891, 0.372)
pt3dadd(122.69, 109.913, 16.902, 0.368)
}
}
proc shape3d_108() {
dend_7[21] { pt3dadd(122.807, 109.886, 16.912, 0.364)
pt3dadd(122.923, 109.858, 16.922, 0.36)
pt3dadd(123.04, 109.831, 16.932, 0.356)
pt3dadd(123.156, 109.804, 16.942, 0.352)
pt3dadd(123.272, 109.776, 16.953, 0.348)
pt3dadd(123.388, 109.749, 16.963, 0.344)
pt3dadd(123.504, 109.728, 16.983, 0.358)
pt3dadd(123.619, 109.708, 17.006, 0.376)
pt3dadd(123.734, 109.689, 17.028, 0.394)
pt3dadd(123.85, 109.67, 17.051, 0.414)
pt3dadd(123.965, 109.651, 17.074, 0.432)
pt3dadd(124.08, 109.631, 17.097, 0.45)
pt3dadd(124.195, 109.612, 17.12, 0.468)
pt3dadd(124.31, 109.593, 17.143, 0.488)
pt3dadd(124.426, 109.574, 17.166, 0.506)
pt3dadd(124.541, 109.554, 17.188, 0.524)
pt3dadd(124.651, 109.535, 17.222, 0.54)
pt3dadd(124.762, 109.515, 17.258, 0.556)
pt3dadd(124.872, 109.495, 17.293, 0.57)
pt3dadd(124.982, 109.475, 17.329, 0.586)
pt3dadd(125.093, 109.455, 17.365, 0.6)
pt3dadd(125.203, 109.436, 17.4, 0.616)
pt3dadd(125.314, 109.416, 17.436, 0.632)
pt3dadd(125.424, 109.396, 17.472, 0.646)
pt3dadd(125.534, 109.376, 17.507, 0.662)
pt3dadd(125.645, 109.356, 17.543, 0.676)
pt3dadd(125.752, 109.312, 17.568, 0.678)
pt3dadd(125.858, 109.265, 17.591, 0.678)
pt3dadd(125.965, 109.218, 17.615, 0.678)
pt3dadd(126.072, 109.171, 17.639, 0.678)
pt3dadd(126.179, 109.124, 17.662, 0.678)
pt3dadd(126.286, 109.077, 17.686, 0.678)
pt3dadd(126.392, 109.03, 17.709, 0.678)
pt3dadd(126.499, 108.983, 17.733, 0.678)
pt3dadd(126.606, 108.936, 17.757, 0.678)
pt3dadd(126.713, 108.889, 17.78, 0.678)
pt3dadd(126.824, 108.85, 17.796, 0.692)
pt3dadd(126.936, 108.811, 17.811, 0.708)
pt3dadd(127.049, 108.772, 17.826, 0.726)
pt3dadd(127.16, 108.733, 17.841, 0.742)
pt3dadd(127.272, 108.694, 17.856, 0.758)
pt3dadd(127.385, 108.655, 17.871, 0.774)
pt3dadd(127.496, 108.616, 17.886, 0.79)
pt3dadd(127.608, 108.576, 17.901, 0.806)
pt3dadd(127.721, 108.537, 17.916, 0.822)
pt3dadd(127.832, 108.498, 17.931, 0.838)
pt3dadd(127.948, 108.465, 17.941, 0.846)
pt3dadd(128.062, 108.432, 17.95, 0.852)
pt3dadd(128.177, 108.399, 17.96, 0.858)
pt3dadd(128.292, 108.366, 17.969, 0.864)
pt3dadd(128.406, 108.333, 17.979, 0.872)
pt3dadd(128.521, 108.3, 17.988, 0.878)
pt3dadd(128.636, 108.267, 17.998, 0.884)
pt3dadd(128.75, 108.234, 18.008, 0.89)
pt3dadd(128.866, 108.201, 18.017, 0.896)
pt3dadd(128.981, 108.168, 18.027, 0.904)
pt3dadd(129.092, 108.126, 18.037, 0.904)
pt3dadd(129.204, 108.084, 18.047, 0.904)
pt3dadd(129.316, 108.041, 18.057, 0.904)
pt3dadd(129.427, 107.999, 18.066, 0.904)
pt3dadd(129.539, 107.956, 18.076, 0.904)
pt3dadd(129.65, 107.914, 18.086, 0.904)
pt3dadd(129.762, 107.871, 18.096, 0.904)
pt3dadd(129.874, 107.829, 18.106, 0.904)
pt3dadd(129.985, 107.786, 18.116, 0.904)
pt3dadd(130.097, 107.744, 18.126, 0.904)
pt3dadd(130.199, 107.691, 18.153, 0.894)
pt3dadd(130.302, 107.638, 18.18, 0.886)
pt3dadd(130.404, 107.585, 18.207, 0.876)
pt3dadd(130.507, 107.532, 18.235, 0.868)
pt3dadd(130.61, 107.479, 18.262, 0.858)
pt3dadd(130.712, 107.426, 18.289, 0.85)
pt3dadd(130.816, 107.373, 18.316, 0.84)
pt3dadd(130.918, 107.321, 18.343, 0.83)
pt3dadd(131.021, 107.268, 18.37, 0.822)
pt3dadd(131.123, 107.216, 18.4, 0.808)
pt3dadd(131.221, 107.171, 18.443, 0.772)
pt3dadd(131.32, 107.126, 18.486, 0.738)
pt3dadd(131.418, 107.081, 18.529, 0.704)
pt3dadd(131.516, 107.037, 18.572, 0.668)
pt3dadd(131.615, 106.992, 18.615, 0.634)
pt3dadd(131.714, 106.947, 18.658, 0.6)
pt3dadd(131.813, 106.902, 18.701, 0.564)
pt3dadd(131.911, 106.857, 18.745, 0.53)
pt3dadd(132.01, 106.812, 18.788, 0.496)
pt3dadd(132.11, 106.766, 18.825, 0.466)
pt3dadd(132.217, 106.719, 18.848, 0.452)
pt3dadd(132.324, 106.672, 18.872, 0.436)
pt3dadd(132.431, 106.625, 18.895, 0.42)
pt3dadd(132.538, 106.578, 18.919, 0.406)
pt3dadd(132.644, 106.531, 18.942, 0.39)
pt3dadd(132.751, 106.484, 18.966, 0.374)
pt3dadd(132.858, 106.437, 18.989, 0.36)
pt3dadd(132.965, 106.39, 19.013, 0.344)
pt3dadd(133.072, 106.343, 19.036, 0.33)
pt3dadd(133.178, 106.294, 19.055, 0.322)
pt3dadd(133.285, 106.241, 19.067, 0.328)
pt3dadd(133.392, 106.188, 19.079, 0.336)
pt3dadd(133.499, 106.135, 19.091, 0.344)
pt3dadd(133.606, 106.083, 19.103, 0.35)
pt3dadd(133.712, 106.03, 19.115, 0.358)
pt3dadd(133.819, 105.977, 19.127, 0.364)
pt3dadd(133.926, 105.924, 19.139, 0.372)
pt3dadd(134.033, 105.871, 19.151, 0.38)
pt3dadd(134.14, 105.818, 19.162, 0.386)
pt3dadd(134.248, 105.768, 19.173, 0.388)
pt3dadd(134.358, 105.722, 19.18, 0.384)
pt3dadd(134.468, 105.676, 19.188, 0.378)
pt3dadd(134.579, 105.63, 19.196, 0.372)
pt3dadd(134.689, 105.584, 19.203, 0.368)
pt3dadd(134.8, 105.538, 19.211, 0.362)
pt3dadd(134.91, 105.492, 19.219, 0.356)
pt3dadd(135.02, 105.446, 19.226, 0.352)
pt3dadd(135.131, 105.4, 19.234, 0.346)
pt3dadd(135.241, 105.354, 19.242, 0.34)
pt3dadd(135.349, 105.302, 19.251, 0.368)
pt3dadd(135.452, 105.243, 19.262, 0.442)
pt3dadd(135.556, 105.183, 19.274, 0.518)
pt3dadd(135.659, 105.123, 19.285, 0.594)
pt3dadd(135.762, 105.063, 19.296, 0.668)
pt3dadd(135.864, 105.004, 19.308, 0.744)
pt3dadd(135.967, 104.944, 19.319, 0.82)
pt3dadd(136.07, 104.884, 19.33, 0.894)
pt3dadd(136.174, 104.824, 19.342, 0.97)
pt3dadd(136.277, 104.765, 19.353, 1.044)
pt3dadd(136.378, 104.713, 19.38, 1.074)
pt3dadd(136.475, 104.674, 19.429, 1.032)
pt3dadd(136.571, 104.636, 19.479, 0.99)
pt3dadd(136.668, 104.597, 19.528, 0.948)
pt3dadd(136.765, 104.558, 19.578, 0.908)
pt3dadd(136.861, 104.519, 19.627, 0.866)
pt3dadd(136.958, 104.48, 19.677, 0.824)
pt3dadd(137.056, 104.442, 19.726, 0.782)
pt3dadd(137.152, 104.403, 19.776, 0.742)
pt3dadd(137.249, 104.364, 19.826, 0.7)
pt3dadd(137.353, 104.337, 19.865, 0.676)
pt3dadd(137.467, 104.323, 19.894, 0.674)
pt3dadd(137.581, 104.308, 19.923, 0.672)
pt3dadd(137.695, 104.294, 19.951, 0.668)
pt3dadd(137.809, 104.28, 19.98, 0.666)
pt3dadd(137.923, 104.266, 20.009, 0.664)
pt3dadd(138.038, 104.252, 20.038, 0.662)
pt3dadd(138.152, 104.238, 20.066, 0.658)
pt3dadd(138.266, 104.223, 20.095, 0.656)
pt3dadd(138.38, 104.209, 20.124, 0.654)
pt3dadd(138.497, 104.202, 20.144, 0.642)
pt3dadd(138.616, 104.203, 20.155, 0.622)
pt3dadd(138.736, 104.204, 20.167, 0.602)
pt3dadd(138.854, 104.205, 20.179, 0.582)
pt3dadd(138.973, 104.206, 20.19, 0.562)
pt3dadd(139.093, 104.207, 20.202, 0.542)
pt3dadd(139.212, 104.208, 20.213, 0.522)
pt3dadd(139.331, 104.209, 20.225, 0.502)
pt3dadd(139.451, 104.21, 20.236, 0.482)
pt3dadd(139.57, 104.211, 20.248, 0.462)
pt3dadd(139.69, 104.213, 20.253, 0.452)
pt3dadd(139.81, 104.214, 20.253, 0.452)
pt3dadd(139.928, 104.216, 20.253, 0.452)
pt3dadd(140.048, 104.218, 20.253, 0.452)
pt3dadd(140.168, 104.22, 20.253, 0.452)
pt3dadd(140.288, 104.222, 20.254, 0.452)
pt3dadd(140.408, 104.223, 20.254, 0.452)
pt3dadd(140.528, 104.225, 20.254, 0.452)
pt3dadd(140.648, 104.227, 20.254, 0.452)
pt3dadd(140.768, 104.229, 20.254, 0.452)
pt3dadd(140.888, 104.231, 20.254, 0.442)
pt3dadd(141.008, 104.235, 20.254, 0.426)
pt3dadd(141.128, 104.238, 20.254, 0.408)
pt3dadd(141.248, 104.241, 20.254, 0.39)
pt3dadd(141.368, 104.244, 20.254, 0.374)
pt3dadd(141.488, 104.247, 20.254, 0.356)
pt3dadd(141.608, 104.251, 20.254, 0.338)
pt3dadd(141.728, 104.254, 20.254, 0.322)
pt3dadd(141.848, 104.257, 20.254, 0.304)
pt3dadd(141.968, 104.26, 20.254, 0.286)
pt3dadd(142.088, 104.266, 20.254, 0.276)
pt3dadd(142.208, 104.273, 20.254, 0.27)
pt3dadd(142.328, 104.28, 20.254, 0.264)
pt3dadd(142.447, 104.287, 20.254, 0.26)
pt3dadd(142.567, 104.295, 20.254, 0.254)
pt3dadd(142.687, 104.302, 20.254, 0.25)
pt3dadd(142.807, 104.309, 20.254, 0.244)
pt3dadd(142.927, 104.316, 20.254, 0.238)
pt3dadd(143.047, 104.323, 20.254, 0.234)
pt3dadd(143.166, 104.331, 20.254, 0.228)
pt3dadd(143.286, 104.34, 20.254, 0.242)
pt3dadd(143.406, 104.352, 20.255, 0.274)
pt3dadd(143.525, 104.364, 20.255, 0.306)
pt3dadd(143.645, 104.375, 20.255, 0.338)
pt3dadd(143.764, 104.387, 20.255, 0.372)
pt3dadd(143.884, 104.399, 20.255, 0.404)
pt3dadd(144.002, 104.411, 20.255, 0.436)
pt3dadd(144.122, 104.422, 20.255, 0.468)
pt3dadd(144.241, 104.434, 20.255, 0.5)
pt3dadd(144.361, 104.446, 20.255, 0.532)
pt3dadd(144.479, 104.465, 20.256, 0.562)
pt3dadd(144.596, 104.491, 20.256, 0.592)
pt3dadd(144.713, 104.517, 20.256, 0.62)
pt3dadd(144.83, 104.544, 20.256, 0.65)
pt3dadd(144.948, 104.57, 20.256, 0.678)
}
}
proc shape3d_109() {
dend_7[21] { pt3dadd(145.064, 104.596, 20.257, 0.708)
pt3dadd(145.182, 104.622, 20.257, 0.738)
pt3dadd(145.298, 104.648, 20.257, 0.766)
pt3dadd(145.416, 104.674, 20.257, 0.796)
pt3dadd(145.534, 104.7, 20.257, 0.824)
pt3dadd(145.646, 104.737, 20.258, 0.826)
pt3dadd(145.759, 104.781, 20.258, 0.808)
pt3dadd(145.871, 104.824, 20.258, 0.79)
pt3dadd(145.982, 104.868, 20.259, 0.772)
pt3dadd(146.094, 104.911, 20.259, 0.754)
pt3dadd(146.206, 104.955, 20.259, 0.736)
pt3dadd(146.318, 104.998, 20.259, 0.718)
pt3dadd(146.43, 105.042, 20.26, 0.7)
pt3dadd(146.542, 105.086, 20.26, 0.682)
pt3dadd(146.653, 105.129, 20.26, 0.664)
pt3dadd(146.767, 105.165, 20.261, 0.644)
pt3dadd(146.884, 105.195, 20.262, 0.626)
pt3dadd(147, 105.225, 20.262, 0.608)
pt3dadd(147.116, 105.256, 20.263, 0.588)
pt3dadd(147.232, 105.286, 20.263, 0.57)
pt3dadd(147.348, 105.317, 20.264, 0.552)
pt3dadd(147.464, 105.347, 20.264, 0.532)
pt3dadd(147.581, 105.377, 20.265, 0.514)
pt3dadd(147.696, 105.408, 20.266, 0.496)
pt3dadd(147.812, 105.438, 20.266, 0.476)
pt3dadd(147.93, 105.461, 20.267, 0.5)
pt3dadd(148.049, 105.479, 20.269, 0.55)
pt3dadd(148.168, 105.496, 20.27, 0.6)
pt3dadd(148.286, 105.514, 20.271, 0.652)
pt3dadd(148.405, 105.532, 20.273, 0.702)
pt3dadd(148.524, 105.55, 20.274, 0.752)
pt3dadd(148.642, 105.567, 20.276, 0.802)
pt3dadd(148.76, 105.585, 20.277, 0.852)
pt3dadd(148.879, 105.603, 20.278, 0.904)
pt3dadd(148.998, 105.621, 20.279, 0.954)
pt3dadd(149.117, 105.634, 20.281, 0.974)
pt3dadd(149.237, 105.645, 20.284, 0.976)
pt3dadd(149.357, 105.656, 20.286, 0.978)
pt3dadd(149.476, 105.666, 20.289, 0.98)
pt3dadd(149.596, 105.677, 20.291, 0.982)
pt3dadd(149.714, 105.688, 20.294, 0.982)
pt3dadd(149.834, 105.698, 20.296, 0.984)
pt3dadd(149.953, 105.709, 20.299, 0.986)
pt3dadd(150.073, 105.72, 20.301, 0.988)
pt3dadd(150.193, 105.73, 20.304, 0.99)
pt3dadd(150.312, 105.741, 20.308, 0.966)
pt3dadd(150.431, 105.753, 20.313, 0.924)
pt3dadd(150.551, 105.765, 20.318, 0.884)
pt3dadd(150.67, 105.776, 20.323, 0.844)
pt3dadd(150.79, 105.788, 20.328, 0.804)
pt3dadd(150.908, 105.799, 20.333, 0.764)
pt3dadd(151.028, 105.811, 20.338, 0.722)
pt3dadd(151.147, 105.822, 20.344, 0.682)
pt3dadd(151.266, 105.834, 20.349, 0.642)
pt3dadd(151.386, 105.845, 20.354, 0.602)
pt3dadd(151.504, 105.865, 20.361, 0.576)
pt3dadd(151.62, 105.891, 20.37, 0.56)
pt3dadd(151.738, 105.916, 20.378, 0.544)
pt3dadd(151.854, 105.942, 20.386, 0.528)
pt3dadd(151.97, 105.967, 20.395, 0.512)
pt3dadd(152.088, 105.993, 20.403, 0.494)
pt3dadd(152.204, 106.018, 20.412, 0.478)
pt3dadd(152.321, 106.043, 20.42, 0.462)
pt3dadd(152.438, 106.069, 20.429, 0.446)
pt3dadd(152.555, 106.094, 20.437, 0.43)
pt3dadd(152.668, 106.132, 20.449, 0.456)
pt3dadd(152.779, 106.174, 20.463, 0.498)
pt3dadd(152.89, 106.217, 20.476, 0.54)
pt3dadd(153.001, 106.259, 20.49, 0.582)
pt3dadd(153.112, 106.302, 20.503, 0.626)
pt3dadd(153.223, 106.344, 20.516, 0.668)
pt3dadd(153.334, 106.387, 20.53, 0.71)
pt3dadd(153.445, 106.429, 20.543, 0.754)
pt3dadd(153.556, 106.472, 20.557, 0.796)
pt3dadd(153.667, 106.515, 20.57, 0.838)
pt3dadd(153.776, 106.545, 20.601, 0.81)
pt3dadd(153.884, 106.572, 20.637, 0.758)
pt3dadd(153.994, 106.599, 20.673, 0.704)
pt3dadd(154.102, 106.626, 20.71, 0.652)
pt3dadd(154.211, 106.653, 20.746, 0.6)
pt3dadd(154.319, 106.68, 20.782, 0.548)
pt3dadd(154.428, 106.707, 20.818, 0.494)
pt3dadd(154.536, 106.733, 20.855, 0.442)
pt3dadd(154.645, 106.76, 20.891, 0.39)
pt3dadd(154.753, 106.787, 20.927, 0.338)
pt3dadd(154.866, 106.806, 20.956, 0.34)
pt3dadd(154.981, 106.821, 20.982, 0.36)
pt3dadd(155.096, 106.837, 21.008, 0.38)
pt3dadd(155.21, 106.852, 21.035, 0.402)
pt3dadd(155.326, 106.868, 21.061, 0.422)
pt3dadd(155.441, 106.883, 21.087, 0.442)
pt3dadd(155.555, 106.899, 21.113, 0.462)
pt3dadd(155.67, 106.914, 21.139, 0.484)
pt3dadd(155.784, 106.93, 21.166, 0.504)
pt3dadd(155.899, 106.945, 21.192, 0.524)
pt3dadd(156.017, 106.953, 21.21, 0.55)
pt3dadd(156.136, 106.958, 21.227, 0.576)
pt3dadd(156.253, 106.963, 21.243, 0.602)
pt3dadd(156.372, 106.968, 21.259, 0.628)
pt3dadd(156.49, 106.973, 21.275, 0.656)
pt3dadd(156.608, 106.978, 21.292, 0.682)
pt3dadd(156.727, 106.983, 21.308, 0.708)
pt3dadd(156.845, 106.988, 21.324, 0.736)
pt3dadd(156.964, 106.993, 21.34, 0.762)
pt3dadd(157.081, 106.998, 21.356, 0.788)
pt3dadd(157.201, 106.999, 21.365, 0.788)
pt3dadd(157.321, 106.999, 21.371, 0.784)
pt3dadd(157.44, 106.998, 21.377, 0.778)
pt3dadd(157.56, 106.998, 21.384, 0.774)
pt3dadd(157.68, 106.998, 21.39, 0.768)
pt3dadd(157.8, 106.998, 21.396, 0.762)
pt3dadd(157.92, 106.998, 21.403, 0.758)
pt3dadd(158.039, 106.997, 21.409, 0.752)
pt3dadd(158.159, 106.997, 21.416, 0.746)
pt3dadd(158.279, 106.997, 21.422, 0.742)
pt3dadd(158.399, 106.997, 21.423, 0.72)
pt3dadd(158.519, 106.996, 21.423, 0.696)
pt3dadd(158.639, 106.996, 21.423, 0.674)
pt3dadd(158.759, 106.996, 21.423, 0.65)
pt3dadd(158.879, 106.996, 21.423, 0.626)
pt3dadd(158.999, 106.995, 21.423, 0.602)
pt3dadd(159.119, 106.995, 21.423, 0.578)
pt3dadd(159.239, 106.995, 21.423, 0.554)
pt3dadd(159.359, 106.995, 21.423, 0.53)
pt3dadd(159.479, 106.994, 21.423, 0.506)
pt3dadd(159.599, 106.994, 21.423, 0.516)
pt3dadd(159.719, 106.994, 21.423, 0.534)
pt3dadd(159.839, 106.993, 21.423, 0.55)
pt3dadd(159.959, 106.993, 21.423, 0.568)
pt3dadd(160.079, 106.992, 21.423, 0.586)
pt3dadd(160.199, 106.992, 21.423, 0.604)
pt3dadd(160.319, 106.991, 21.423, 0.622)
pt3dadd(160.439, 106.991, 21.423, 0.64)
pt3dadd(160.559, 106.99, 21.423, 0.658)
pt3dadd(160.679, 106.99, 21.423, 0.674)
pt3dadd(160.799, 106.989, 21.423, 0.678)
pt3dadd(160.919, 106.988, 21.423, 0.678)
pt3dadd(161.039, 106.987, 21.423, 0.678)
pt3dadd(161.159, 106.986, 21.423, 0.678)
pt3dadd(161.279, 106.984, 21.423, 0.678)
pt3dadd(161.399, 106.983, 21.423, 0.678)
pt3dadd(161.519, 106.982, 21.423, 0.678)
pt3dadd(161.639, 106.981, 21.423, 0.678)
pt3dadd(161.759, 106.98, 21.423, 0.678)
pt3dadd(161.879, 106.979, 21.423, 0.678)
pt3dadd(161.999, 106.977, 21.423, 0.65)
pt3dadd(162.119, 106.975, 21.423, 0.614)
pt3dadd(162.239, 106.973, 21.423, 0.578)
pt3dadd(162.359, 106.971, 21.423, 0.544)
pt3dadd(162.479, 106.969, 21.423, 0.508)
pt3dadd(162.599, 106.967, 21.423, 0.472)
pt3dadd(162.719, 106.965, 21.423, 0.438)
pt3dadd(162.839, 106.963, 21.423, 0.402)
pt3dadd(162.959, 106.961, 21.423, 0.366)
pt3dadd(163.079, 106.959, 21.423, 0.332)
pt3dadd(163.199, 106.954, 21.423, 0.328)
pt3dadd(163.319, 106.949, 21.423, 0.334)
pt3dadd(163.439, 106.944, 21.423, 0.338)
pt3dadd(163.558, 106.94, 21.423, 0.342)
pt3dadd(163.678, 106.935, 21.423, 0.346)
pt3dadd(163.798, 106.93, 21.423, 0.35)
pt3dadd(163.918, 106.925, 21.423, 0.356)
pt3dadd(164.038, 106.92, 21.423, 0.36)
pt3dadd(164.158, 106.915, 21.423, 0.364)
pt3dadd(164.278, 106.91, 21.423, 0.368)
pt3dadd(164.398, 106.904, 21.423, 0.394)
pt3dadd(164.518, 106.897, 21.423, 0.424)
pt3dadd(164.638, 106.891, 21.423, 0.454)
pt3dadd(164.756, 106.884, 21.423, 0.486)
pt3dadd(164.876, 106.878, 21.423, 0.516)
pt3dadd(164.996, 106.872, 21.423, 0.546)
pt3dadd(165.116, 106.865, 21.423, 0.576)
pt3dadd(165.236, 106.859, 21.423, 0.606)
pt3dadd(165.356, 106.852, 21.423, 0.636)
pt3dadd(165.475, 106.845, 21.423, 0.668)
pt3dadd(165.594, 106.829, 21.423, 0.674)
pt3dadd(165.713, 106.81, 21.423, 0.674)
pt3dadd(165.832, 106.791, 21.423, 0.676)
pt3dadd(165.95, 106.773, 21.423, 0.676)
pt3dadd(166.069, 106.754, 21.423, 0.678)
pt3dadd(166.187, 106.735, 21.423, 0.678)
pt3dadd(166.306, 106.717, 21.423, 0.68)
pt3dadd(166.424, 106.698, 21.423, 0.68)
pt3dadd(166.543, 106.679, 21.423, 0.682)
pt3dadd(166.661, 106.66, 21.423, 0.682)
pt3dadd(166.778, 106.633, 21.423, 0.644)
pt3dadd(166.895, 106.605, 21.423, 0.602)
pt3dadd(167.011, 106.577, 21.423, 0.558)
pt3dadd(167.128, 106.548, 21.423, 0.516)
pt3dadd(167.245, 106.52, 21.423, 0.474)
pt3dadd(167.362, 106.492, 21.423, 0.43)
pt3dadd(167.478, 106.464, 21.423, 0.388)
pt3dadd(167.594, 106.435, 21.423, 0.344)
pt3dadd(167.711, 106.407, 21.423, 0.302)
pt3dadd(167.827, 106.379, 21.423, 0.26)
pt3dadd(167.947, 106.389, 21.423, 0.278)
pt3dadd(168.067, 106.399, 21.423, 0.298)
pt3dadd(168.186, 106.409, 21.423, 0.318)
pt3dadd(168.306, 106.419, 21.423, 0.336)
pt3dadd(168.426, 106.429, 21.423, 0.356)
}
}
proc shape3d_110() {
dend_7[21] { pt3dadd(168.545, 106.439, 21.423, 0.374)
pt3dadd(168.665, 106.449, 21.423, 0.394)
pt3dadd(168.785, 106.458, 21.423, 0.414)
pt3dadd(168.904, 106.468, 21.423, 0.432)
pt3dadd(169.024, 106.478, 21.423, 0.452)
}
dend_7[22] {pt3dclear()
pt3dadd(169.024, 106.478, 21.423, 0.452)
pt3dadd(169.061, 106.479, 21.423, 0.452)
pt3dadd(169.181, 106.481, 21.423, 0.452)
pt3dadd(169.301, 106.484, 21.423, 0.452)
pt3dadd(169.421, 106.486, 21.423, 0.452)
pt3dadd(169.541, 106.488, 21.423, 0.452)
pt3dadd(169.66, 106.484, 21.423, 0.456)
pt3dadd(169.78, 106.476, 21.423, 0.462)
pt3dadd(169.9, 106.467, 21.423, 0.466)
pt3dadd(170.02, 106.459, 21.423, 0.472)
pt3dadd(170.14, 106.451, 21.423, 0.478)
pt3dadd(170.258, 106.443, 21.423, 0.482)
pt3dadd(170.378, 106.435, 21.423, 0.488)
pt3dadd(170.498, 106.427, 21.423, 0.494)
pt3dadd(170.618, 106.419, 21.423, 0.5)
pt3dadd(170.737, 106.411, 21.423, 0.504)
pt3dadd(170.854, 106.383, 21.423, 0.518)
pt3dadd(170.969, 106.35, 21.423, 0.532)
pt3dadd(171.085, 106.317, 21.423, 0.546)
pt3dadd(171.2, 106.284, 21.423, 0.56)
pt3dadd(171.316, 106.251, 21.423, 0.574)
pt3dadd(171.431, 106.218, 21.423, 0.59)
pt3dadd(171.546, 106.185, 21.423, 0.604)
pt3dadd(171.661, 106.152, 21.423, 0.618)
pt3dadd(171.776, 106.119, 21.423, 0.632)
pt3dadd(171.893, 106.086, 21.423, 0.648)
pt3dadd(172.009, 106.056, 21.423, 0.622)
pt3dadd(172.126, 106.028, 21.423, 0.584)
pt3dadd(172.242, 105.999, 21.423, 0.546)
pt3dadd(172.358, 105.97, 21.423, 0.508)
pt3dadd(172.475, 105.942, 21.423, 0.472)
pt3dadd(172.591, 105.913, 21.423, 0.434)
pt3dadd(172.708, 105.884, 21.423, 0.396)
pt3dadd(172.824, 105.856, 21.423, 0.358)
pt3dadd(172.94, 105.827, 21.423, 0.322)
pt3dadd(173.057, 105.798, 21.423, 0.284)
pt3dadd(173.176, 105.78, 21.423, 0.272)
pt3dadd(173.294, 105.765, 21.423, 0.266)
pt3dadd(173.414, 105.75, 21.423, 0.262)
pt3dadd(173.533, 105.735, 21.423, 0.256)
pt3dadd(173.652, 105.72, 21.423, 0.252)
pt3dadd(173.771, 105.705, 21.423, 0.246)
pt3dadd(173.89, 105.69, 21.423, 0.242)
pt3dadd(174.01, 105.675, 21.423, 0.236)
pt3dadd(174.128, 105.66, 21.423, 0.232)
pt3dadd(174.247, 105.645, 21.423, 0.228)
pt3dadd(174.367, 105.639, 21.423, 0.236)
pt3dadd(174.487, 105.635, 21.423, 0.25)
pt3dadd(174.607, 105.631, 21.423, 0.264)
pt3dadd(174.727, 105.627, 21.423, 0.276)
pt3dadd(174.847, 105.624, 21.423, 0.29)
pt3dadd(174.967, 105.62, 21.423, 0.304)
pt3dadd(175.087, 105.616, 21.423, 0.316)
pt3dadd(175.207, 105.612, 21.423, 0.33)
pt3dadd(175.327, 105.608, 21.423, 0.344)
pt3dadd(175.446, 105.604, 21.423, 0.356)
pt3dadd(175.566, 105.604, 21.423, 0.392)
pt3dadd(175.686, 105.605, 21.423, 0.43)
pt3dadd(175.806, 105.606, 21.423, 0.47)
pt3dadd(175.926, 105.606, 21.423, 0.51)
pt3dadd(176.046, 105.607, 21.423, 0.55)
pt3dadd(176.166, 105.608, 21.423, 0.588)
pt3dadd(176.286, 105.609, 21.423, 0.628)
pt3dadd(176.406, 105.609, 21.423, 0.668)
pt3dadd(176.526, 105.61, 21.423, 0.708)
pt3dadd(176.646, 105.611, 21.423, 0.746)
pt3dadd(176.766, 105.612, 21.423, 0.774)
pt3dadd(176.886, 105.613, 21.423, 0.798)
pt3dadd(177.006, 105.614, 21.423, 0.822)
pt3dadd(177.126, 105.615, 21.423, 0.846)
pt3dadd(177.246, 105.616, 21.423, 0.87)
pt3dadd(177.366, 105.617, 21.423, 0.894)
pt3dadd(177.486, 105.618, 21.423, 0.918)
pt3dadd(177.606, 105.619, 21.423, 0.942)
pt3dadd(177.726, 105.62, 21.423, 0.966)
pt3dadd(177.846, 105.621, 21.423, 0.988)
pt3dadd(177.966, 105.623, 21.423, 0.968)
pt3dadd(178.086, 105.626, 21.423, 0.936)
pt3dadd(178.206, 105.628, 21.423, 0.906)
pt3dadd(178.326, 105.63, 21.423, 0.874)
pt3dadd(178.446, 105.633, 21.423, 0.842)
pt3dadd(178.566, 105.635, 21.423, 0.81)
pt3dadd(178.686, 105.637, 21.423, 0.78)
pt3dadd(178.806, 105.639, 21.423, 0.748)
pt3dadd(178.926, 105.642, 21.423, 0.716)
pt3dadd(179.046, 105.644, 21.423, 0.684)
pt3dadd(179.166, 105.648, 21.423, 0.678)
pt3dadd(179.286, 105.651, 21.423, 0.678)
pt3dadd(179.406, 105.655, 21.423, 0.678)
pt3dadd(179.526, 105.659, 21.423, 0.678)
pt3dadd(179.646, 105.663, 21.423, 0.678)
pt3dadd(179.766, 105.667, 21.423, 0.678)
pt3dadd(179.886, 105.671, 21.423, 0.678)
pt3dadd(180.006, 105.674, 21.423, 0.678)
pt3dadd(180.126, 105.678, 21.423, 0.678)
pt3dadd(180.246, 105.682, 21.423, 0.678)
pt3dadd(180.365, 105.69, 21.423, 0.678)
pt3dadd(180.485, 105.699, 21.423, 0.678)
pt3dadd(180.605, 105.709, 21.423, 0.678)
pt3dadd(180.725, 105.718, 21.423, 0.678)
pt3dadd(180.844, 105.727, 21.423, 0.678)
pt3dadd(180.964, 105.736, 21.424, 0.678)
pt3dadd(181.084, 105.746, 21.424, 0.678)
pt3dadd(181.202, 105.755, 21.424, 0.678)
pt3dadd(181.322, 105.764, 21.424, 0.678)
pt3dadd(181.442, 105.773, 21.424, 0.678)
pt3dadd(181.561, 105.787, 21.424, 0.69)
pt3dadd(181.68, 105.801, 21.424, 0.706)
pt3dadd(181.8, 105.816, 21.424, 0.724)
pt3dadd(181.919, 105.83, 21.424, 0.74)
pt3dadd(182.038, 105.844, 21.424, 0.756)
pt3dadd(182.158, 105.859, 21.424, 0.772)
pt3dadd(182.276, 105.873, 21.424, 0.788)
pt3dadd(182.395, 105.888, 21.424, 0.804)
pt3dadd(182.514, 105.902, 21.424, 0.82)
pt3dadd(182.634, 105.916, 21.424, 0.836)
pt3dadd(182.749, 105.949, 21.424, 0.834)
pt3dadd(182.863, 105.986, 21.424, 0.83)
pt3dadd(182.977, 106.023, 21.424, 0.824)
pt3dadd(183.091, 106.059, 21.424, 0.818)
pt3dadd(183.205, 106.096, 21.424, 0.814)
pt3dadd(183.32, 106.133, 21.424, 0.808)
pt3dadd(183.434, 106.17, 21.424, 0.804)
pt3dadd(183.548, 106.207, 21.424, 0.798)
pt3dadd(183.662, 106.243, 21.424, 0.792)
pt3dadd(183.776, 106.28, 21.424, 0.788)
pt3dadd(183.889, 106.323, 21.424, 0.79)
pt3dadd(184.001, 106.366, 21.424, 0.794)
pt3dadd(184.112, 106.409, 21.424, 0.796)
pt3dadd(184.225, 106.452, 21.425, 0.8)
pt3dadd(184.337, 106.495, 21.425, 0.804)
pt3dadd(184.448, 106.538, 21.425, 0.806)
pt3dadd(184.561, 106.581, 21.425, 0.81)
pt3dadd(184.673, 106.625, 21.425, 0.814)
pt3dadd(184.784, 106.668, 21.425, 0.816)
pt3dadd(184.897, 106.711, 21.425, 0.82)
pt3dadd(185.011, 106.746, 21.425, 0.842)
pt3dadd(185.126, 106.781, 21.425, 0.868)
pt3dadd(185.24, 106.816, 21.426, 0.892)
pt3dadd(185.356, 106.851, 21.426, 0.918)
pt3dadd(185.471, 106.886, 21.426, 0.942)
pt3dadd(185.586, 106.92, 21.426, 0.968)
pt3dadd(185.7, 106.955, 21.426, 0.994)
pt3dadd(185.815, 106.99, 21.426, 1.018)
pt3dadd(185.93, 107.025, 21.427, 1.044)
pt3dadd(186.044, 107.06, 21.427, 1.068)
pt3dadd(186.162, 107.087, 21.427, 1.036)
pt3dadd(186.278, 107.114, 21.427, 0.998)
pt3dadd(186.396, 107.141, 21.427, 0.96)
pt3dadd(186.512, 107.167, 21.428, 0.924)
pt3dadd(186.63, 107.194, 21.428, 0.886)
pt3dadd(186.746, 107.221, 21.428, 0.848)
pt3dadd(186.864, 107.248, 21.429, 0.81)
pt3dadd(186.98, 107.274, 21.429, 0.772)
pt3dadd(187.098, 107.301, 21.429, 0.734)
pt3dadd(187.214, 107.328, 21.43, 0.698)
pt3dadd(187.327, 107.37, 21.43, 0.662)
pt3dadd(187.439, 107.414, 21.431, 0.626)
pt3dadd(187.55, 107.458, 21.431, 0.59)
pt3dadd(187.662, 107.502, 21.432, 0.554)
pt3dadd(187.774, 107.546, 21.432, 0.518)
pt3dadd(187.885, 107.589, 21.433, 0.482)
pt3dadd(187.997, 107.633, 21.434, 0.446)
pt3dadd(188.108, 107.677, 21.434, 0.41)
pt3dadd(188.22, 107.721, 21.435, 0.374)
pt3dadd(188.332, 107.765, 21.435, 0.338)
pt3dadd(188.447, 107.799, 21.436, 0.324)
pt3dadd(188.562, 107.833, 21.438, 0.314)
pt3dadd(188.677, 107.867, 21.439, 0.302)
pt3dadd(188.792, 107.901, 21.44, 0.292)
pt3dadd(188.908, 107.934, 21.441, 0.282)
pt3dadd(189.023, 107.968, 21.442, 0.27)
pt3dadd(189.138, 108.002, 21.443, 0.26)
pt3dadd(189.253, 108.036, 21.444, 0.248)
pt3dadd(189.368, 108.07, 21.445, 0.238)
pt3dadd(189.484, 108.103, 21.447, 0.226)
pt3dadd(189.601, 108.126, 21.449, 0.226)
pt3dadd(189.719, 108.147, 21.451, 0.226)
pt3dadd(189.838, 108.168, 21.453, 0.226)
pt3dadd(189.955, 108.19, 21.455, 0.226)
pt3dadd(190.073, 108.211, 21.457, 0.226)
pt3dadd(190.192, 108.233, 21.459, 0.226)
pt3dadd(190.309, 108.254, 21.461, 0.226)
pt3dadd(190.427, 108.276, 21.463, 0.226)
pt3dadd(190.546, 108.297, 21.465, 0.226)
pt3dadd(190.663, 108.318, 21.468, 0.226)
pt3dadd(190.783, 108.328, 21.472, 0.226)
pt3dadd(190.902, 108.338, 21.476, 0.226)
pt3dadd(191.022, 108.348, 21.48, 0.226)
pt3dadd(191.141, 108.357, 21.484, 0.226)
pt3dadd(191.261, 108.367, 21.488, 0.226)
pt3dadd(191.381, 108.376, 21.493, 0.226)
pt3dadd(191.5, 108.386, 21.497, 0.226)
pt3dadd(191.62, 108.396, 21.501, 0.226)
pt3dadd(191.738, 108.405, 21.505, 0.226)
}
}
proc shape3d_111() {
dend_7[22] { pt3dadd(191.858, 108.415, 21.509, 0.226)
pt3dadd(191.978, 108.416, 21.517, 0.232)
pt3dadd(192.097, 108.417, 21.524, 0.236)
pt3dadd(192.217, 108.418, 21.532, 0.242)
pt3dadd(192.337, 108.419, 21.54, 0.248)
pt3dadd(192.456, 108.42, 21.548, 0.252)
pt3dadd(192.576, 108.421, 21.555, 0.258)
pt3dadd(192.696, 108.422, 21.563, 0.264)
pt3dadd(192.816, 108.423, 21.57, 0.268)
pt3dadd(192.935, 108.424, 21.578, 0.274)
pt3dadd(193.055, 108.425, 21.586, 0.28)
pt3dadd(193.174, 108.426, 21.597, 0.318)
pt3dadd(193.294, 108.428, 21.609, 0.356)
pt3dadd(193.412, 108.43, 21.621, 0.394)
pt3dadd(193.531, 108.432, 21.632, 0.432)
pt3dadd(193.651, 108.433, 21.644, 0.47)
pt3dadd(193.77, 108.435, 21.655, 0.51)
pt3dadd(193.889, 108.437, 21.667, 0.548)
pt3dadd(194.009, 108.438, 21.679, 0.586)
pt3dadd(194.128, 108.44, 21.69, 0.624)
pt3dadd(194.246, 108.442, 21.702, 0.662)
pt3dadd(194.358, 108.445, 21.737, 0.632)
pt3dadd(194.471, 108.448, 21.774, 0.598)
pt3dadd(194.582, 108.452, 21.81, 0.566)
pt3dadd(194.694, 108.455, 21.846, 0.532)
pt3dadd(194.806, 108.458, 21.883, 0.5)
pt3dadd(194.917, 108.462, 21.919, 0.466)
pt3dadd(195.029, 108.465, 21.955, 0.432)
pt3dadd(195.14, 108.468, 21.992, 0.4)
pt3dadd(195.252, 108.472, 22.028, 0.366)
pt3dadd(195.365, 108.475, 22.064, 0.334)
pt3dadd(195.479, 108.482, 22.092, 0.322)
pt3dadd(195.594, 108.489, 22.12, 0.312)
pt3dadd(195.709, 108.496, 22.149, 0.3)
pt3dadd(195.824, 108.504, 22.177, 0.29)
pt3dadd(195.94, 108.511, 22.205, 0.28)
pt3dadd(196.054, 108.518, 22.233, 0.268)
pt3dadd(196.169, 108.525, 22.261, 0.258)
pt3dadd(196.284, 108.532, 22.289, 0.248)
pt3dadd(196.399, 108.539, 22.317, 0.236)
pt3dadd(196.514, 108.546, 22.345, 0.226)
pt3dadd(196.632, 108.558, 22.362, 0.236)
pt3dadd(196.75, 108.569, 22.38, 0.244)
pt3dadd(196.866, 108.581, 22.398, 0.254)
pt3dadd(196.984, 108.592, 22.416, 0.264)
pt3dadd(197.101, 108.604, 22.434, 0.274)
pt3dadd(197.219, 108.615, 22.451, 0.282)
pt3dadd(197.336, 108.627, 22.469, 0.292)
pt3dadd(197.454, 108.638, 22.487, 0.302)
pt3dadd(197.572, 108.65, 22.505, 0.31)
pt3dadd(197.689, 108.662, 22.522, 0.32)
pt3dadd(197.807, 108.686, 22.53, 0.346)
pt3dadd(197.923, 108.711, 22.538, 0.37)
pt3dadd(198.041, 108.735, 22.546, 0.394)
pt3dadd(198.157, 108.76, 22.554, 0.418)
pt3dadd(198.275, 108.784, 22.562, 0.442)
pt3dadd(198.391, 108.809, 22.57, 0.468)
pt3dadd(198.509, 108.833, 22.578, 0.492)
pt3dadd(198.626, 108.858, 22.586, 0.516)
pt3dadd(198.743, 108.882, 22.594, 0.54)
pt3dadd(198.859, 108.909, 22.602, 0.566)
pt3dadd(198.971, 108.955, 22.602, 0.598)
pt3dadd(199.081, 109, 22.603, 0.63)
pt3dadd(199.193, 109.046, 22.604, 0.662)
pt3dadd(199.303, 109.092, 22.604, 0.694)
pt3dadd(199.415, 109.137, 22.605, 0.726)
pt3dadd(199.525, 109.183, 22.605, 0.758)
pt3dadd(199.637, 109.228, 22.606, 0.79)
pt3dadd(199.747, 109.274, 22.607, 0.822)
pt3dadd(199.859, 109.32, 22.607, 0.854)
pt3dadd(199.97, 109.363, 22.608, 0.874)
pt3dadd(200.086, 109.396, 22.609, 0.82)
pt3dadd(200.201, 109.428, 22.611, 0.764)
pt3dadd(200.317, 109.46, 22.612, 0.708)
pt3dadd(200.432, 109.492, 22.613, 0.652)
pt3dadd(200.548, 109.524, 22.615, 0.596)
pt3dadd(200.664, 109.557, 22.616, 0.54)
pt3dadd(200.779, 109.589, 22.618, 0.484)
pt3dadd(200.894, 109.621, 22.619, 0.428)
pt3dadd(201.011, 109.653, 22.62, 0.372)
pt3dadd(201.126, 109.684, 22.622, 0.322)
pt3dadd(201.244, 109.708, 22.625, 0.312)
pt3dadd(201.361, 109.732, 22.627, 0.302)
pt3dadd(201.479, 109.756, 22.63, 0.292)
pt3dadd(201.596, 109.78, 22.632, 0.284)
pt3dadd(201.714, 109.804, 22.635, 0.274)
pt3dadd(201.832, 109.828, 22.638, 0.264)
pt3dadd(201.949, 109.852, 22.64, 0.254)
pt3dadd(202.067, 109.876, 22.643, 0.244)
pt3dadd(202.184, 109.9, 22.645, 0.234)
pt3dadd(202.302, 109.923, 22.648, 0.23)
pt3dadd(202.42, 109.941, 22.654, 0.268)
pt3dadd(202.538, 109.959, 22.659, 0.304)
pt3dadd(202.657, 109.978, 22.665, 0.34)
pt3dadd(202.775, 109.996, 22.67, 0.376)
pt3dadd(202.894, 110.014, 22.676, 0.412)
pt3dadd(203.012, 110.032, 22.681, 0.45)
pt3dadd(203.131, 110.05, 22.687, 0.486)
pt3dadd(203.249, 110.068, 22.693, 0.522)
pt3dadd(203.368, 110.086, 22.698, 0.558)
pt3dadd(203.485, 110.105, 22.704, 0.596)
pt3dadd(203.602, 110.136, 22.713, 0.636)
pt3dadd(203.717, 110.166, 22.722, 0.676)
pt3dadd(203.832, 110.196, 22.731, 0.716)
pt3dadd(203.948, 110.226, 22.739, 0.754)
pt3dadd(204.064, 110.257, 22.748, 0.794)
pt3dadd(204.18, 110.287, 22.757, 0.834)
pt3dadd(204.295, 110.317, 22.766, 0.874)
pt3dadd(204.41, 110.348, 22.775, 0.914)
pt3dadd(204.527, 110.378, 22.784, 0.954)
pt3dadd(204.641, 110.412, 22.794, 0.988)
pt3dadd(204.75, 110.457, 22.809, 1.002)
pt3dadd(204.859, 110.502, 22.825, 1.016)
pt3dadd(204.97, 110.547, 22.84, 1.032)
pt3dadd(205.079, 110.593, 22.855, 1.046)
pt3dadd(205.188, 110.638, 22.871, 1.06)
pt3dadd(205.298, 110.683, 22.886, 1.076)
pt3dadd(205.408, 110.728, 22.901, 1.09)
pt3dadd(205.518, 110.774, 22.917, 1.104)
pt3dadd(205.627, 110.819, 22.932, 1.12)
pt3dadd(205.735, 110.861, 22.953, 1.13)
pt3dadd(205.842, 110.896, 22.989, 1.13)
pt3dadd(205.949, 110.93, 23.026, 1.13)
pt3dadd(206.054, 110.965, 23.062, 1.13)
pt3dadd(206.161, 110.999, 23.098, 1.13)
pt3dadd(206.268, 111.034, 23.134, 1.13)
pt3dadd(206.375, 111.068, 23.17, 1.13)
pt3dadd(206.48, 111.103, 23.206, 1.13)
pt3dadd(206.587, 111.138, 23.242, 1.13)
pt3dadd(206.694, 111.172, 23.278, 1.13)
pt3dadd(206.802, 111.205, 23.312, 1.126)
pt3dadd(206.914, 111.233, 23.337, 1.11)
pt3dadd(207.026, 111.261, 23.364, 1.094)
pt3dadd(207.139, 111.289, 23.39, 1.078)
pt3dadd(207.251, 111.317, 23.416, 1.062)
pt3dadd(207.364, 111.345, 23.442, 1.046)
pt3dadd(207.476, 111.374, 23.468, 1.03)
pt3dadd(207.588, 111.402, 23.494, 1.014)
pt3dadd(207.701, 111.43, 23.52, 0.998)
pt3dadd(207.814, 111.458, 23.546, 0.982)
pt3dadd(207.925, 111.49, 23.569, 0.966)
pt3dadd(208.037, 111.53, 23.586, 0.948)
pt3dadd(208.148, 111.57, 23.603, 0.93)
pt3dadd(208.259, 111.61, 23.62, 0.91)
pt3dadd(208.37, 111.65, 23.637, 0.892)
pt3dadd(208.482, 111.69, 23.653, 0.874)
pt3dadd(208.594, 111.73, 23.67, 0.856)
pt3dadd(208.704, 111.77, 23.687, 0.838)
pt3dadd(208.816, 111.81, 23.704, 0.82)
pt3dadd(208.927, 111.85, 23.721, 0.8)
pt3dadd(209.039, 111.891, 23.735, 0.78)
pt3dadd(209.15, 111.933, 23.744, 0.754)
pt3dadd(209.262, 111.976, 23.753, 0.728)
pt3dadd(209.374, 112.019, 23.762, 0.702)
pt3dadd(209.485, 112.061, 23.771, 0.676)
pt3dadd(209.597, 112.104, 23.781, 0.65)
pt3dadd(209.708, 112.146, 23.79, 0.624)
pt3dadd(209.82, 112.189, 23.799, 0.598)
pt3dadd(209.932, 112.231, 23.808, 0.572)
pt3dadd(210.043, 112.274, 23.817, 0.546)
pt3dadd(210.156, 112.313, 23.825, 0.518)
pt3dadd(210.271, 112.347, 23.831, 0.488)
pt3dadd(210.386, 112.38, 23.837, 0.456)
pt3dadd(210.502, 112.413, 23.842, 0.426)
pt3dadd(210.617, 112.447, 23.848, 0.396)
pt3dadd(210.732, 112.48, 23.854, 0.366)
pt3dadd(210.847, 112.513, 23.86, 0.336)
pt3dadd(210.961, 112.547, 23.865, 0.306)
pt3dadd(211.076, 112.58, 23.871, 0.276)
pt3dadd(211.192, 112.614, 23.877, 0.244)
pt3dadd(211.307, 112.645, 23.885, 0.226)
pt3dadd(211.423, 112.672, 23.898, 0.226)
pt3dadd(211.538, 112.7, 23.911, 0.226)
pt3dadd(211.655, 112.727, 23.923, 0.226)
pt3dadd(211.77, 112.755, 23.936, 0.226)
pt3dadd(211.886, 112.782, 23.949, 0.226)
pt3dadd(212.002, 112.81, 23.961, 0.226)
pt3dadd(212.118, 112.837, 23.974, 0.226)
pt3dadd(212.233, 112.865, 23.987, 0.226)
pt3dadd(212.35, 112.892, 23.999, 0.226)
pt3dadd(212.462, 112.923, 24.019, 0.226)
pt3dadd(212.57, 112.96, 24.049, 0.226)
pt3dadd(212.678, 112.996, 24.08, 0.226)
pt3dadd(212.788, 113.033, 24.111, 0.226)
pt3dadd(212.896, 113.07, 24.141, 0.226)
pt3dadd(213.004, 113.106, 24.171, 0.226)
pt3dadd(213.112, 113.143, 24.202, 0.226)
pt3dadd(213.221, 113.179, 24.232, 0.226)
pt3dadd(213.329, 113.216, 24.263, 0.226)
pt3dadd(213.437, 113.253, 24.293, 0.226)
pt3dadd(213.488, 113.329, 24.357, 0.226)
pt3dadd(213.539, 113.406, 24.421, 0.226)
pt3dadd(213.59, 113.483, 24.485, 0.226)
pt3dadd(213.641, 113.56, 24.549, 0.226)
pt3dadd(213.692, 113.636, 24.613, 0.226)
pt3dadd(213.744, 113.713, 24.677, 0.226)
pt3dadd(213.794, 113.79, 24.741, 0.226)
pt3dadd(213.846, 113.867, 24.805, 0.226)
pt3dadd(213.896, 113.944, 24.869, 0.226)
pt3dadd(213.948, 114.02, 24.933, 0.226)
}
}
proc shape3d_112() {
dend_7[22] { }
dend_7[23] {pt3dclear()
pt3dadd(169.024, 106.478, 21.423, 0.452)
pt3dadd(169.069, 106.541, 21.423, 0.474)
pt3dadd(169.14, 106.638, 21.423, 0.508)
pt3dadd(169.211, 106.735, 21.423, 0.542)
pt3dadd(169.282, 106.832, 21.423, 0.576)
pt3dadd(169.352, 106.929, 21.423, 0.61)
pt3dadd(169.423, 107.026, 21.423, 0.644)
pt3dadd(169.494, 107.123, 21.423, 0.678)
pt3dadd(169.565, 107.22, 21.423, 0.714)
pt3dadd(169.636, 107.317, 21.423, 0.748)
pt3dadd(169.706, 107.414, 21.423, 0.782)
pt3dadd(169.776, 107.511, 21.423, 0.816)
pt3dadd(169.847, 107.608, 21.423, 0.85)
pt3dadd(169.919, 107.704, 21.423, 0.878)
pt3dadd(169.992, 107.799, 21.423, 0.894)
pt3dadd(170.065, 107.894, 21.423, 0.91)
pt3dadd(170.14, 107.989, 21.423, 0.926)
pt3dadd(170.213, 108.084, 21.423, 0.944)
pt3dadd(170.286, 108.178, 21.423, 0.96)
pt3dadd(170.359, 108.273, 21.423, 0.976)
pt3dadd(170.432, 108.368, 21.423, 0.992)
pt3dadd(170.507, 108.463, 21.422, 1.01)
pt3dadd(170.58, 108.558, 21.422, 1.026)
pt3dadd(170.656, 108.651, 21.422, 1.022)
pt3dadd(170.737, 108.739, 21.422, 0.984)
pt3dadd(170.819, 108.827, 21.421, 0.946)
pt3dadd(170.9, 108.915, 21.421, 0.908)
pt3dadd(170.981, 109.004, 21.421, 0.87)
pt3dadd(171.062, 109.092, 21.42, 0.83)
pt3dadd(171.144, 109.18, 21.42, 0.792)
pt3dadd(171.226, 109.268, 21.42, 0.754)
pt3dadd(171.307, 109.356, 21.419, 0.716)
pt3dadd(171.388, 109.445, 21.419, 0.678)
pt3dadd(171.469, 109.533, 21.418, 0.642)
pt3dadd(171.55, 109.622, 21.418, 0.614)
pt3dadd(171.63, 109.711, 21.418, 0.588)
pt3dadd(171.71, 109.8, 21.417, 0.56)
pt3dadd(171.791, 109.889, 21.417, 0.532)
pt3dadd(171.871, 109.978, 21.416, 0.504)
pt3dadd(171.952, 110.067, 21.416, 0.476)
pt3dadd(172.032, 110.156, 21.416, 0.448)
pt3dadd(172.114, 110.245, 21.415, 0.42)
pt3dadd(172.194, 110.334, 21.415, 0.392)
pt3dadd(172.273, 110.424, 21.414, 0.37)
pt3dadd(172.352, 110.514, 21.413, 0.358)
pt3dadd(172.432, 110.604, 21.413, 0.346)
pt3dadd(172.511, 110.694, 21.412, 0.334)
pt3dadd(172.59, 110.784, 21.412, 0.322)
pt3dadd(172.669, 110.875, 21.411, 0.31)
pt3dadd(172.748, 110.965, 21.411, 0.298)
pt3dadd(172.828, 111.055, 21.41, 0.286)
pt3dadd(172.907, 111.145, 21.409, 0.274)
pt3dadd(172.985, 111.236, 21.409, 0.262)
pt3dadd(173.063, 111.327, 21.408, 0.264)
pt3dadd(173.138, 111.421, 21.407, 0.294)
pt3dadd(173.213, 111.514, 21.406, 0.324)
pt3dadd(173.288, 111.608, 21.405, 0.356)
pt3dadd(173.363, 111.702, 21.404, 0.386)
pt3dadd(173.438, 111.795, 21.403, 0.416)
pt3dadd(173.513, 111.889, 21.401, 0.446)
pt3dadd(173.588, 111.983, 21.4, 0.476)
pt3dadd(173.663, 112.076, 21.399, 0.506)
pt3dadd(173.738, 112.17, 21.398, 0.536)
pt3dadd(173.808, 112.267, 21.397, 0.556)
pt3dadd(173.869, 112.371, 21.395, 0.558)
pt3dadd(173.929, 112.474, 21.392, 0.56)
pt3dadd(173.989, 112.578, 21.39, 0.562)
pt3dadd(174.05, 112.681, 21.388, 0.564)
pt3dadd(174.11, 112.785, 21.386, 0.564)
pt3dadd(174.172, 112.889, 21.384, 0.566)
pt3dadd(174.232, 112.992, 21.382, 0.568)
pt3dadd(174.293, 113.096, 21.38, 0.57)
pt3dadd(174.353, 113.199, 21.378, 0.572)
pt3dadd(174.407, 113.306, 21.375, 0.57)
pt3dadd(174.451, 113.418, 21.371, 0.564)
pt3dadd(174.496, 113.529, 21.367, 0.558)
pt3dadd(174.541, 113.64, 21.363, 0.552)
pt3dadd(174.586, 113.751, 21.359, 0.546)
pt3dadd(174.63, 113.863, 21.355, 0.54)
pt3dadd(174.674, 113.974, 21.351, 0.534)
pt3dadd(174.719, 114.085, 21.347, 0.528)
pt3dadd(174.764, 114.197, 21.343, 0.522)
pt3dadd(174.809, 114.308, 21.339, 0.516)
pt3dadd(174.85, 114.42, 21.334, 0.522)
pt3dadd(174.886, 114.534, 21.326, 0.54)
pt3dadd(174.922, 114.648, 21.319, 0.56)
pt3dadd(174.958, 114.762, 21.312, 0.578)
pt3dadd(174.995, 114.877, 21.304, 0.596)
pt3dadd(175.031, 114.991, 21.297, 0.616)
pt3dadd(175.067, 115.105, 21.29, 0.634)
pt3dadd(175.103, 115.219, 21.282, 0.654)
pt3dadd(175.139, 115.333, 21.275, 0.672)
pt3dadd(175.176, 115.447, 21.267, 0.69)
pt3dadd(175.222, 115.556, 21.258, 0.708)
pt3dadd(175.279, 115.661, 21.248, 0.726)
pt3dadd(175.337, 115.765, 21.237, 0.744)
pt3dadd(175.394, 115.87, 21.227, 0.762)
pt3dadd(175.452, 115.975, 21.216, 0.78)
pt3dadd(175.508, 116.079, 21.205, 0.796)
pt3dadd(175.566, 116.184, 21.195, 0.814)
pt3dadd(175.624, 116.289, 21.184, 0.832)
pt3dadd(175.681, 116.393, 21.174, 0.85)
pt3dadd(175.739, 116.498, 21.163, 0.866)
pt3dadd(175.794, 116.6, 21.142, 0.862)
pt3dadd(175.848, 116.7, 21.109, 0.836)
pt3dadd(175.902, 116.8, 21.077, 0.81)
pt3dadd(175.956, 116.9, 21.045, 0.782)
pt3dadd(176.011, 116.999, 21.012, 0.756)
pt3dadd(176.065, 117.099, 20.98, 0.73)
pt3dadd(176.119, 117.199, 20.948, 0.702)
pt3dadd(176.173, 117.299, 20.915, 0.676)
pt3dadd(176.227, 117.399, 20.883, 0.648)
pt3dadd(176.281, 117.498, 20.85, 0.622)
pt3dadd(176.342, 117.594, 20.82, 0.602)
pt3dadd(176.411, 117.687, 20.792, 0.586)
pt3dadd(176.479, 117.78, 20.763, 0.57)
pt3dadd(176.546, 117.873, 20.735, 0.554)
pt3dadd(176.615, 117.966, 20.706, 0.538)
pt3dadd(176.683, 118.059, 20.678, 0.522)
pt3dadd(176.75, 118.151, 20.649, 0.506)
pt3dadd(176.819, 118.244, 20.621, 0.49)
pt3dadd(176.886, 118.337, 20.592, 0.474)
pt3dadd(176.954, 118.43, 20.564, 0.458)
pt3dadd(177.034, 118.515, 20.541, 0.452)
pt3dadd(177.119, 118.596, 20.521, 0.452)
pt3dadd(177.204, 118.677, 20.502, 0.452)
pt3dadd(177.289, 118.758, 20.482, 0.452)
pt3dadd(177.374, 118.84, 20.463, 0.452)
pt3dadd(177.46, 118.921, 20.443, 0.452)
pt3dadd(177.545, 119.002, 20.423, 0.452)
pt3dadd(177.63, 119.083, 20.404, 0.452)
pt3dadd(177.715, 119.164, 20.384, 0.452)
pt3dadd(177.8, 119.245, 20.365, 0.452)
pt3dadd(177.901, 119.308, 20.352, 0.452)
pt3dadd(178.006, 119.364, 20.341, 0.454)
pt3dadd(178.111, 119.419, 20.33, 0.454)
pt3dadd(178.217, 119.475, 20.319, 0.456)
pt3dadd(178.322, 119.531, 20.309, 0.456)
pt3dadd(178.428, 119.587, 20.298, 0.456)
pt3dadd(178.534, 119.643, 20.287, 0.458)
pt3dadd(178.639, 119.698, 20.276, 0.458)
pt3dadd(178.745, 119.754, 20.265, 0.46)
pt3dadd(178.849, 119.81, 20.255, 0.46)
pt3dadd(178.956, 119.864, 20.252, 0.486)
pt3dadd(179.064, 119.918, 20.252, 0.52)
pt3dadd(179.171, 119.973, 20.251, 0.556)
pt3dadd(179.278, 120.026, 20.251, 0.59)
pt3dadd(179.386, 120.08, 20.251, 0.624)
pt3dadd(179.492, 120.134, 20.251, 0.658)
pt3dadd(179.599, 120.188, 20.251, 0.694)
pt3dadd(179.706, 120.242, 20.251, 0.728)
pt3dadd(179.814, 120.296, 20.251, 0.762)
pt3dadd(179.921, 120.35, 20.251, 0.796)
pt3dadd(180.034, 120.391, 20.25, 0.782)
pt3dadd(180.149, 120.426, 20.25, 0.752)
pt3dadd(180.263, 120.461, 20.25, 0.722)
pt3dadd(180.378, 120.496, 20.25, 0.69)
pt3dadd(180.492, 120.532, 20.25, 0.66)
pt3dadd(180.607, 120.566, 20.249, 0.63)
pt3dadd(180.722, 120.601, 20.249, 0.598)
pt3dadd(180.836, 120.637, 20.249, 0.568)
pt3dadd(180.952, 120.672, 20.249, 0.538)
pt3dadd(181.067, 120.707, 20.248, 0.506)
pt3dadd(181.184, 120.728, 20.248, 0.478)
pt3dadd(181.303, 120.746, 20.248, 0.452)
pt3dadd(181.421, 120.766, 20.247, 0.424)
pt3dadd(181.54, 120.784, 20.247, 0.396)
pt3dadd(181.658, 120.802, 20.246, 0.368)
pt3dadd(181.777, 120.82, 20.246, 0.342)
pt3dadd(181.896, 120.839, 20.245, 0.314)
pt3dadd(182.015, 120.857, 20.245, 0.286)
pt3dadd(182.132, 120.875, 20.244, 0.258)
pt3dadd(182.251, 120.893, 20.244, 0.23)
pt3dadd(182.371, 120.899, 20.243, 0.226)
pt3dadd(182.491, 120.902, 20.242, 0.226)
pt3dadd(182.611, 120.906, 20.241, 0.226)
pt3dadd(182.731, 120.91, 20.24, 0.226)
pt3dadd(182.851, 120.913, 20.239, 0.226)
pt3dadd(182.971, 120.916, 20.238, 0.226)
pt3dadd(183.091, 120.919, 20.237, 0.226)
pt3dadd(183.211, 120.923, 20.236, 0.226)
pt3dadd(183.331, 120.926, 20.236, 0.226)
pt3dadd(183.451, 120.93, 20.235, 0.226)
pt3dadd(183.57, 120.922, 20.233, 0.232)
pt3dadd(183.69, 120.912, 20.232, 0.238)
pt3dadd(183.81, 120.902, 20.23, 0.244)
pt3dadd(183.929, 120.893, 20.228, 0.25)
pt3dadd(184.049, 120.883, 20.227, 0.256)
pt3dadd(184.169, 120.874, 20.225, 0.264)
pt3dadd(184.288, 120.864, 20.223, 0.27)
pt3dadd(184.408, 120.854, 20.222, 0.276)
pt3dadd(184.528, 120.845, 20.22, 0.282)
pt3dadd(184.646, 120.835, 20.218, 0.288)
pt3dadd(184.766, 120.822, 20.216, 0.322)
pt3dadd(184.885, 120.808, 20.213, 0.36)
pt3dadd(185.004, 120.792, 20.21, 0.4)
pt3dadd(185.123, 120.778, 20.207, 0.438)
pt3dadd(185.242, 120.763, 20.204, 0.476)
pt3dadd(185.362, 120.749, 20.201, 0.514)
pt3dadd(185.48, 120.734, 20.199, 0.552)
}
}
proc shape3d_113() {
dend_7[23] { pt3dadd(185.599, 120.72, 20.196, 0.59)
pt3dadd(185.718, 120.706, 20.193, 0.63)
pt3dadd(185.838, 120.691, 20.19, 0.668)
pt3dadd(185.95, 120.65, 20.184, 0.688)
pt3dadd(186.06, 120.605, 20.178, 0.706)
pt3dadd(186.172, 120.559, 20.171, 0.724)
pt3dadd(186.282, 120.514, 20.165, 0.742)
pt3dadd(186.392, 120.468, 20.159, 0.76)
pt3dadd(186.503, 120.422, 20.152, 0.778)
pt3dadd(186.614, 120.377, 20.146, 0.796)
pt3dadd(186.725, 120.331, 20.139, 0.814)
pt3dadd(186.835, 120.286, 20.133, 0.834)
pt3dadd(186.947, 120.24, 20.126, 0.852)
pt3dadd(187.06, 120.204, 20.117, 0.824)
pt3dadd(187.174, 120.168, 20.107, 0.788)
pt3dadd(187.288, 120.133, 20.097, 0.754)
pt3dadd(187.402, 120.097, 20.087, 0.72)
pt3dadd(187.516, 120.062, 20.077, 0.684)
pt3dadd(187.63, 120.026, 20.068, 0.65)
pt3dadd(187.744, 119.991, 20.058, 0.614)
pt3dadd(187.859, 119.955, 20.048, 0.58)
pt3dadd(187.973, 119.92, 20.038, 0.544)
pt3dadd(188.087, 119.885, 20.028, 0.51)
pt3dadd(188.2, 119.858, 20.006, 0.504)
pt3dadd(188.314, 119.832, 19.982, 0.502)
pt3dadd(188.428, 119.807, 19.957, 0.5)
pt3dadd(188.54, 119.781, 19.933, 0.5)
pt3dadd(188.654, 119.755, 19.909, 0.498)
pt3dadd(188.768, 119.73, 19.885, 0.496)
pt3dadd(188.881, 119.704, 19.861, 0.494)
pt3dadd(188.995, 119.679, 19.837, 0.494)
pt3dadd(189.109, 119.653, 19.812, 0.492)
pt3dadd(189.222, 119.628, 19.788, 0.49)
pt3dadd(189.334, 119.61, 19.754, 0.526)
pt3dadd(189.445, 119.592, 19.721, 0.564)
pt3dadd(189.557, 119.575, 19.687, 0.602)
pt3dadd(189.668, 119.557, 19.653, 0.638)
pt3dadd(189.78, 119.54, 19.619, 0.676)
pt3dadd(189.892, 119.522, 19.585, 0.714)
pt3dadd(190.003, 119.505, 19.551, 0.75)
pt3dadd(190.115, 119.487, 19.517, 0.788)
pt3dadd(190.226, 119.469, 19.483, 0.824)
pt3dadd(190.337, 119.452, 19.449, 0.862)
pt3dadd(190.453, 119.44, 19.425, 0.844)
pt3dadd(190.57, 119.427, 19.401, 0.826)
pt3dadd(190.685, 119.415, 19.377, 0.808)
pt3dadd(190.801, 119.403, 19.354, 0.788)
pt3dadd(190.916, 119.391, 19.33, 0.77)
pt3dadd(191.033, 119.378, 19.306, 0.752)
pt3dadd(191.149, 119.366, 19.282, 0.734)
pt3dadd(191.264, 119.354, 19.259, 0.716)
pt3dadd(191.381, 119.342, 19.235, 0.696)
pt3dadd(191.496, 119.329, 19.211, 0.678)
pt3dadd(191.609, 119.288, 19.2, 0.678)
pt3dadd(191.72, 119.246, 19.19, 0.678)
pt3dadd(191.832, 119.205, 19.179, 0.678)
pt3dadd(191.944, 119.163, 19.169, 0.678)
pt3dadd(192.055, 119.122, 19.158, 0.678)
pt3dadd(192.168, 119.08, 19.148, 0.678)
pt3dadd(192.28, 119.039, 19.137, 0.678)
pt3dadd(192.391, 118.997, 19.127, 0.678)
pt3dadd(192.503, 118.956, 19.116, 0.678)
pt3dadd(192.616, 118.914, 19.106, 0.678)
pt3dadd(192.732, 118.888, 19.103, 0.65)
pt3dadd(192.85, 118.862, 19.1, 0.62)
pt3dadd(192.966, 118.836, 19.097, 0.59)
pt3dadd(193.084, 118.81, 19.095, 0.562)
pt3dadd(193.201, 118.785, 19.092, 0.532)
pt3dadd(193.318, 118.759, 19.089, 0.504)
pt3dadd(193.435, 118.733, 19.086, 0.474)
pt3dadd(193.552, 118.707, 19.083, 0.446)
pt3dadd(193.669, 118.681, 19.081, 0.416)
pt3dadd(193.787, 118.656, 19.078, 0.388)
pt3dadd(193.906, 118.647, 19.077, 0.384)
pt3dadd(194.026, 118.639, 19.077, 0.378)
pt3dadd(194.146, 118.631, 19.076, 0.372)
pt3dadd(194.266, 118.623, 19.076, 0.368)
pt3dadd(194.386, 118.615, 19.075, 0.362)
pt3dadd(194.504, 118.607, 19.075, 0.358)
pt3dadd(194.624, 118.598, 19.074, 0.352)
pt3dadd(194.744, 118.59, 19.074, 0.348)
pt3dadd(194.864, 118.582, 19.073, 0.342)
pt3dadd(194.983, 118.576, 19.073, 0.34)
pt3dadd(195.102, 118.596, 19.072, 0.374)
pt3dadd(195.221, 118.616, 19.071, 0.41)
pt3dadd(195.338, 118.636, 19.07, 0.444)
pt3dadd(195.457, 118.656, 19.069, 0.478)
pt3dadd(195.575, 118.675, 19.068, 0.512)
pt3dadd(195.694, 118.695, 19.067, 0.546)
pt3dadd(195.812, 118.715, 19.066, 0.582)
pt3dadd(195.93, 118.735, 19.065, 0.616)
pt3dadd(196.049, 118.755, 19.064, 0.65)
pt3dadd(196.165, 118.781, 19.063, 0.684)
pt3dadd(196.277, 118.824, 19.061, 0.72)
pt3dadd(196.388, 118.868, 19.059, 0.756)
pt3dadd(196.5, 118.912, 19.058, 0.792)
pt3dadd(196.613, 118.955, 19.056, 0.828)
pt3dadd(196.724, 118.999, 19.055, 0.864)
pt3dadd(196.836, 119.043, 19.053, 0.9)
pt3dadd(196.948, 119.086, 19.051, 0.936)
pt3dadd(197.059, 119.13, 19.049, 0.972)
pt3dadd(197.171, 119.173, 19.048, 1.008)
pt3dadd(197.284, 119.214, 19.046, 1.02)
pt3dadd(197.4, 119.246, 19.043, 0.962)
pt3dadd(197.515, 119.277, 19.04, 0.904)
pt3dadd(197.632, 119.309, 19.037, 0.848)
pt3dadd(197.747, 119.341, 19.034, 0.79)
pt3dadd(197.862, 119.372, 19.031, 0.732)
pt3dadd(197.978, 119.404, 19.028, 0.674)
pt3dadd(198.094, 119.436, 19.025, 0.616)
pt3dadd(198.21, 119.467, 19.022, 0.56)
pt3dadd(198.325, 119.499, 19.019, 0.502)
pt3dadd(198.442, 119.527, 19.015, 0.454)
pt3dadd(198.559, 119.546, 19.007, 0.432)
pt3dadd(198.678, 119.565, 18.999, 0.412)
pt3dadd(198.796, 119.584, 18.991, 0.39)
pt3dadd(198.914, 119.603, 18.984, 0.37)
pt3dadd(199.032, 119.622, 18.976, 0.348)
pt3dadd(199.151, 119.64, 18.968, 0.328)
pt3dadd(199.268, 119.659, 18.96, 0.306)
pt3dadd(199.387, 119.678, 18.953, 0.286)
pt3dadd(199.505, 119.697, 18.945, 0.264)
pt3dadd(199.622, 119.714, 18.936, 0.258)
pt3dadd(199.741, 119.727, 18.922, 0.296)
pt3dadd(199.86, 119.739, 18.909, 0.332)
pt3dadd(199.978, 119.751, 18.896, 0.368)
pt3dadd(200.096, 119.764, 18.883, 0.404)
pt3dadd(200.214, 119.776, 18.87, 0.44)
pt3dadd(200.333, 119.788, 18.857, 0.476)
pt3dadd(200.452, 119.801, 18.843, 0.512)
pt3dadd(200.569, 119.813, 18.83, 0.548)
pt3dadd(200.688, 119.825, 18.817, 0.586)
pt3dadd(200.801, 119.841, 18.794, 0.614)
pt3dadd(200.902, 119.865, 18.743, 0.62)
pt3dadd(201.002, 119.889, 18.692, 0.626)
pt3dadd(201.102, 119.913, 18.641, 0.634)
pt3dadd(201.203, 119.937, 18.59, 0.64)
pt3dadd(201.304, 119.961, 18.539, 0.648)
pt3dadd(201.404, 119.985, 18.488, 0.654)
pt3dadd(201.504, 120.008, 18.437, 0.66)
pt3dadd(201.605, 120.032, 18.386, 0.668)
pt3dadd(201.706, 120.056, 18.335, 0.674)
pt3dadd(201.804, 120.096, 18.292, 0.678)
pt3dadd(201.901, 120.156, 18.261, 0.678)
pt3dadd(201.998, 120.216, 18.23, 0.678)
pt3dadd(202.094, 120.276, 18.198, 0.678)
pt3dadd(202.192, 120.336, 18.167, 0.678)
pt3dadd(202.289, 120.396, 18.135, 0.678)
pt3dadd(202.386, 120.456, 18.104, 0.678)
pt3dadd(202.482, 120.516, 18.073, 0.678)
pt3dadd(202.579, 120.575, 18.041, 0.678)
pt3dadd(202.676, 120.635, 18.01, 0.678)
pt3dadd(202.774, 120.697, 17.983, 0.662)
pt3dadd(202.872, 120.762, 17.964, 0.624)
pt3dadd(202.97, 120.827, 17.944, 0.588)
pt3dadd(203.069, 120.892, 17.925, 0.55)
pt3dadd(203.167, 120.956, 17.905, 0.512)
pt3dadd(203.266, 121.021, 17.886, 0.476)
pt3dadd(203.364, 121.086, 17.867, 0.438)
pt3dadd(203.462, 121.151, 17.847, 0.4)
pt3dadd(203.561, 121.214, 17.828, 0.364)
pt3dadd(203.658, 121.279, 17.808, 0.326)
pt3dadd(203.766, 121.32, 17.79, 0.302)
pt3dadd(203.884, 121.328, 17.774, 0.294)
pt3dadd(204.001, 121.337, 17.758, 0.284)
pt3dadd(204.12, 121.345, 17.743, 0.276)
pt3dadd(204.238, 121.355, 17.727, 0.268)
pt3dadd(204.356, 121.363, 17.711, 0.26)
pt3dadd(204.474, 121.372, 17.695, 0.252)
pt3dadd(204.593, 121.38, 17.679, 0.244)
pt3dadd(204.71, 121.388, 17.663, 0.236)
pt3dadd(204.829, 121.397, 17.647, 0.228)
pt3dadd(204.934, 121.384, 17.604, 0.226)
pt3dadd(205.034, 121.363, 17.552, 0.226)
pt3dadd(205.134, 121.342, 17.5, 0.226)
pt3dadd(205.235, 121.321, 17.448, 0.226)
pt3dadd(205.334, 121.301, 17.395, 0.226)
pt3dadd(205.435, 121.279, 17.343, 0.226)
pt3dadd(205.535, 121.259, 17.291, 0.226)
pt3dadd(205.636, 121.238, 17.239, 0.226)
pt3dadd(205.735, 121.217, 17.187, 0.226)
pt3dadd(205.836, 121.196, 17.135, 0.226)
pt3dadd(205.945, 121.181, 17.095, 0.226)
pt3dadd(206.054, 121.165, 17.056, 0.226)
pt3dadd(206.164, 121.15, 17.017, 0.226)
pt3dadd(206.273, 121.134, 16.978, 0.226)
pt3dadd(206.382, 121.118, 16.939, 0.226)
pt3dadd(206.492, 121.103, 16.9, 0.226)
pt3dadd(206.602, 121.087, 16.861, 0.226)
pt3dadd(206.711, 121.072, 16.822, 0.226)
pt3dadd(206.82, 121.056, 16.783, 0.226)
pt3dadd(206.929, 121.04, 16.744, 0.226)
}
dend_0[5] {pt3dclear()
pt3dadd(104.444, 101.386, 14.404, 11.3)
pt3dadd(104.463, 101.367, 14.404, 11.276)
pt3dadd(104.548, 101.282, 14.404, 11.166)
pt3dadd(104.633, 101.197, 14.404, 11.058)
pt3dadd(104.718, 101.112, 14.404, 10.948)
pt3dadd(104.803, 101.027, 14.404, 10.838)
pt3dadd(104.888, 100.942, 14.404, 10.73)
pt3dadd(104.972, 100.857, 14.404, 10.62)
}
}
proc shape3d_114() {
dend_0[5] { pt3dadd(105.057, 100.773, 14.404, 10.51)
pt3dadd(105.142, 100.688, 14.404, 10.402)
pt3dadd(105.227, 100.603, 14.404, 10.292)
pt3dadd(105.312, 100.518, 14.404, 10.182)
pt3dadd(105.396, 100.433, 14.404, 10.074)
pt3dadd(105.481, 100.348, 14.404, 9.964)
pt3dadd(105.566, 100.263, 14.404, 9.854)
pt3dadd(105.651, 100.178, 14.404, 9.744)
pt3dadd(105.744, 100.105, 14.413, 9.602)
pt3dadd(105.844, 100.041, 14.428, 9.436)
pt3dadd(105.944, 99.977, 14.443, 9.27)
pt3dadd(106.044, 99.913, 14.458, 9.104)
pt3dadd(106.143, 99.849, 14.473, 8.938)
pt3dadd(106.243, 99.785, 14.488, 8.772)
pt3dadd(106.343, 99.72, 14.503, 8.604)
pt3dadd(106.443, 99.656, 14.518, 8.438)
pt3dadd(106.543, 99.592, 14.533, 8.272)
pt3dadd(106.642, 99.528, 14.549, 8.106)
pt3dadd(106.745, 99.473, 14.57, 7.92)
pt3dadd(106.85, 99.422, 14.595, 7.726)
pt3dadd(106.955, 99.372, 14.62, 7.53)
pt3dadd(107.059, 99.321, 14.645, 7.336)
pt3dadd(107.164, 99.27, 14.67, 7.14)
pt3dadd(107.268, 99.219, 14.694, 6.944)
pt3dadd(107.373, 99.169, 14.719, 6.75)
pt3dadd(107.478, 99.118, 14.744, 6.554)
pt3dadd(107.582, 99.067, 14.769, 6.36)
pt3dadd(107.687, 99.016, 14.794, 6.164)
pt3dadd(107.794, 98.984, 14.829, 5.946)
pt3dadd(107.901, 98.957, 14.867, 5.722)
pt3dadd(108.009, 98.931, 14.905, 5.498)
pt3dadd(108.117, 98.904, 14.943, 5.274)
pt3dadd(108.224, 98.877, 14.981, 5.048)
pt3dadd(108.332, 98.85, 15.02, 4.824)
pt3dadd(108.44, 98.823, 15.058, 4.6)
pt3dadd(108.547, 98.796, 15.096, 4.376)
pt3dadd(108.655, 98.77, 15.134, 4.152)
pt3dadd(108.762, 98.743, 15.172, 3.926)
pt3dadd(108.877, 98.728, 15.199, 3.748)
}
dend_7[24] {pt3dclear()
pt3dadd(108.877, 98.728, 15.199, 3.748)
pt3dadd(108.993, 98.717, 15.222, 3.58)
pt3dadd(109.109, 98.706, 15.246, 3.412)
pt3dadd(109.225, 98.694, 15.27, 3.244)
pt3dadd(109.341, 98.683, 15.294, 3.074)
pt3dadd(109.457, 98.672, 15.317, 2.908)
pt3dadd(109.573, 98.661, 15.341, 2.738)
pt3dadd(109.689, 98.649, 15.365, 2.57)
pt3dadd(109.805, 98.638, 15.389, 2.402)
pt3dadd(109.921, 98.627, 15.412, 2.234)
pt3dadd(110.039, 98.626, 15.427, 2.132)
pt3dadd(110.159, 98.628, 15.439, 2.046)
pt3dadd(110.278, 98.63, 15.451, 1.96)
pt3dadd(110.397, 98.632, 15.463, 1.874)
pt3dadd(110.516, 98.634, 15.475, 1.788)
pt3dadd(110.635, 98.636, 15.487, 1.702)
pt3dadd(110.754, 98.637, 15.499, 1.616)
pt3dadd(110.873, 98.639, 15.511, 1.53)
pt3dadd(110.992, 98.641, 15.523, 1.444)
pt3dadd(111.111, 98.643, 15.535, 1.358)
pt3dadd(111.231, 98.649, 15.54, 1.302)
pt3dadd(111.351, 98.656, 15.542, 1.252)
pt3dadd(111.471, 98.663, 15.545, 1.204)
pt3dadd(111.59, 98.67, 15.547, 1.154)
pt3dadd(111.71, 98.676, 15.55, 1.106)
pt3dadd(111.83, 98.683, 15.552, 1.056)
pt3dadd(111.95, 98.69, 15.555, 1.008)
pt3dadd(112.069, 98.697, 15.557, 0.958)
pt3dadd(112.189, 98.704, 15.56, 0.908)
pt3dadd(112.309, 98.711, 15.562, 0.86)
pt3dadd(112.428, 98.721, 15.562, 0.828)
pt3dadd(112.548, 98.732, 15.561, 0.8)
pt3dadd(112.667, 98.743, 15.56, 0.772)
pt3dadd(112.787, 98.755, 15.559, 0.744)
pt3dadd(112.906, 98.766, 15.557, 0.716)
pt3dadd(113.026, 98.777, 15.556, 0.688)
pt3dadd(113.145, 98.788, 15.555, 0.66)
pt3dadd(113.265, 98.799, 15.554, 0.634)
pt3dadd(113.384, 98.811, 15.553, 0.606)
pt3dadd(113.504, 98.822, 15.552, 0.578)
pt3dadd(113.621, 98.844, 15.55, 0.574)
pt3dadd(113.739, 98.869, 15.549, 0.574)
pt3dadd(113.856, 98.895, 15.547, 0.576)
pt3dadd(113.973, 98.92, 15.545, 0.578)
pt3dadd(114.091, 98.945, 15.543, 0.58)
pt3dadd(114.208, 98.97, 15.541, 0.58)
pt3dadd(114.325, 98.995, 15.539, 0.582)
pt3dadd(114.443, 99.02, 15.537, 0.584)
pt3dadd(114.56, 99.046, 15.535, 0.584)
pt3dadd(114.677, 99.071, 15.534, 0.586)
pt3dadd(114.79, 99.111, 15.53, 0.614)
pt3dadd(114.902, 99.153, 15.527, 0.646)
pt3dadd(115.015, 99.195, 15.524, 0.678)
pt3dadd(115.127, 99.237, 15.521, 0.71)
pt3dadd(115.239, 99.279, 15.518, 0.742)
pt3dadd(115.352, 99.321, 15.515, 0.774)
pt3dadd(115.464, 99.363, 15.512, 0.806)
pt3dadd(115.576, 99.405, 15.509, 0.838)
pt3dadd(115.689, 99.447, 15.505, 0.87)
pt3dadd(115.801, 99.489, 15.502, 0.902)
pt3dadd(115.917, 99.518, 15.496, 0.904)
pt3dadd(116.034, 99.545, 15.489, 0.904)
pt3dadd(116.15, 99.572, 15.482, 0.904)
pt3dadd(116.267, 99.599, 15.475, 0.904)
pt3dadd(116.384, 99.627, 15.468, 0.904)
pt3dadd(116.5, 99.654, 15.461, 0.904)
pt3dadd(116.617, 99.681, 15.455, 0.904)
pt3dadd(116.733, 99.708, 15.448, 0.904)
pt3dadd(116.85, 99.735, 15.441, 0.904)
pt3dadd(116.967, 99.762, 15.434, 0.904)
pt3dadd(117.085, 99.775, 15.423, 0.872)
pt3dadd(117.204, 99.786, 15.412, 0.838)
pt3dadd(117.323, 99.797, 15.401, 0.802)
pt3dadd(117.441, 99.808, 15.39, 0.768)
pt3dadd(117.56, 99.819, 15.379, 0.732)
pt3dadd(117.679, 99.831, 15.368, 0.698)
pt3dadd(117.798, 99.842, 15.357, 0.662)
pt3dadd(117.916, 99.853, 15.345, 0.628)
pt3dadd(118.035, 99.864, 15.334, 0.592)
pt3dadd(118.154, 99.875, 15.323, 0.558)
pt3dadd(118.268, 99.873, 15.294, 0.534)
pt3dadd(118.383, 99.87, 15.264, 0.51)
pt3dadd(118.497, 99.866, 15.233, 0.486)
pt3dadd(118.611, 99.863, 15.203, 0.462)
pt3dadd(118.725, 99.86, 15.172, 0.438)
pt3dadd(118.84, 99.857, 15.142, 0.416)
pt3dadd(118.954, 99.853, 15.111, 0.392)
pt3dadd(119.068, 99.85, 15.081, 0.368)
pt3dadd(119.182, 99.847, 15.05, 0.344)
pt3dadd(119.297, 99.843, 15.02, 0.322)
pt3dadd(119.41, 99.833, 14.989, 0.33)
pt3dadd(119.524, 99.822, 14.958, 0.338)
pt3dadd(119.637, 99.811, 14.927, 0.346)
pt3dadd(119.751, 99.801, 14.896, 0.354)
pt3dadd(119.865, 99.79, 14.865, 0.36)
pt3dadd(119.978, 99.779, 14.834, 0.368)
pt3dadd(120.091, 99.768, 14.803, 0.376)
pt3dadd(120.205, 99.758, 14.772, 0.384)
pt3dadd(120.319, 99.747, 14.741, 0.392)
pt3dadd(120.432, 99.736, 14.71, 0.402)
pt3dadd(120.548, 99.714, 14.69, 0.434)
pt3dadd(120.664, 99.692, 14.669, 0.466)
pt3dadd(120.779, 99.67, 14.649, 0.5)
pt3dadd(120.894, 99.648, 14.628, 0.532)
pt3dadd(121.009, 99.626, 14.608, 0.564)
pt3dadd(121.124, 99.604, 14.587, 0.596)
pt3dadd(121.241, 99.583, 14.567, 0.63)
pt3dadd(121.356, 99.561, 14.546, 0.662)
pt3dadd(121.471, 99.539, 14.526, 0.694)
pt3dadd(121.586, 99.514, 14.506, 0.726)
pt3dadd(121.697, 99.469, 14.496, 0.744)
pt3dadd(121.807, 99.424, 14.486, 0.76)
pt3dadd(121.918, 99.379, 14.476, 0.778)
pt3dadd(122.028, 99.333, 14.465, 0.796)
pt3dadd(122.138, 99.288, 14.455, 0.814)
pt3dadd(122.249, 99.243, 14.445, 0.832)
pt3dadd(122.359, 99.198, 14.435, 0.85)
pt3dadd(122.47, 99.153, 14.424, 0.868)
pt3dadd(122.58, 99.108, 14.414, 0.886)
pt3dadd(122.692, 99.065, 14.405, 0.902)
pt3dadd(122.808, 99.034, 14.405, 0.902)
pt3dadd(122.923, 99.003, 14.405, 0.902)
pt3dadd(123.04, 98.972, 14.405, 0.902)
pt3dadd(123.156, 98.941, 14.405, 0.902)
pt3dadd(123.271, 98.91, 14.404, 0.902)
pt3dadd(123.388, 98.879, 14.404, 0.902)
pt3dadd(123.503, 98.849, 14.404, 0.904)
pt3dadd(123.619, 98.818, 14.404, 0.904)
pt3dadd(123.736, 98.787, 14.404, 0.904)
pt3dadd(123.852, 98.757, 14.404, 0.902)
pt3dadd(123.97, 98.737, 14.404, 0.888)
pt3dadd(124.088, 98.717, 14.404, 0.872)
pt3dadd(124.206, 98.697, 14.404, 0.858)
pt3dadd(124.325, 98.677, 14.404, 0.842)
pt3dadd(124.444, 98.657, 14.404, 0.828)
pt3dadd(124.561, 98.636, 14.404, 0.814)
pt3dadd(124.68, 98.616, 14.404, 0.798)
pt3dadd(124.798, 98.596, 14.404, 0.784)
pt3dadd(124.916, 98.576, 14.404, 0.768)
pt3dadd(125.035, 98.557, 14.404, 0.756)
pt3dadd(125.154, 98.544, 14.404, 0.76)
pt3dadd(125.273, 98.532, 14.404, 0.764)
pt3dadd(125.393, 98.519, 14.404, 0.768)
pt3dadd(125.512, 98.506, 14.404, 0.77)
pt3dadd(125.632, 98.494, 14.404, 0.774)
pt3dadd(125.75, 98.481, 14.404, 0.778)
pt3dadd(125.87, 98.468, 14.404, 0.782)
pt3dadd(125.989, 98.456, 14.404, 0.786)
pt3dadd(126.109, 98.443, 14.404, 0.788)
pt3dadd(126.228, 98.431, 14.404, 0.792)
pt3dadd(126.347, 98.418, 14.404, 0.786)
pt3dadd(126.467, 98.406, 14.404, 0.782)
pt3dadd(126.586, 98.394, 14.403, 0.776)
pt3dadd(126.706, 98.381, 14.403, 0.772)
pt3dadd(126.824, 98.369, 14.403, 0.768)
pt3dadd(126.944, 98.356, 14.403, 0.762)
pt3dadd(127.063, 98.344, 14.403, 0.758)
pt3dadd(127.183, 98.332, 14.403, 0.752)
pt3dadd(127.302, 98.319, 14.403, 0.748)
pt3dadd(127.421, 98.305, 14.403, 0.742)
pt3dadd(127.538, 98.281, 14.403, 0.724)
}
}
proc shape3d_115() {
dend_7[24] { pt3dadd(127.656, 98.256, 14.403, 0.708)
pt3dadd(127.774, 98.232, 14.403, 0.692)
pt3dadd(127.891, 98.208, 14.403, 0.674)
pt3dadd(128.009, 98.183, 14.403, 0.658)
pt3dadd(128.126, 98.159, 14.403, 0.64)
pt3dadd(128.244, 98.134, 14.403, 0.624)
pt3dadd(128.362, 98.11, 14.403, 0.608)
pt3dadd(128.479, 98.085, 14.403, 0.59)
pt3dadd(128.594, 98.056, 14.403, 0.59)
pt3dadd(128.704, 98.007, 14.403, 0.642)
pt3dadd(128.814, 97.958, 14.403, 0.696)
pt3dadd(128.923, 97.91, 14.403, 0.748)
pt3dadd(129.034, 97.861, 14.403, 0.802)
pt3dadd(129.143, 97.812, 14.403, 0.854)
pt3dadd(129.252, 97.763, 14.403, 0.908)
pt3dadd(129.362, 97.715, 14.402, 0.96)
pt3dadd(129.472, 97.666, 14.402, 1.014)
pt3dadd(129.582, 97.617, 14.402, 1.066)
pt3dadd(129.692, 97.57, 14.402, 1.104)
pt3dadd(129.805, 97.53, 14.402, 1.09)
pt3dadd(129.918, 97.49, 14.402, 1.074)
pt3dadd(130.031, 97.45, 14.402, 1.058)
pt3dadd(130.145, 97.41, 14.402, 1.044)
pt3dadd(130.258, 97.37, 14.402, 1.028)
pt3dadd(130.37, 97.33, 14.402, 1.012)
pt3dadd(130.483, 97.29, 14.401, 0.998)
pt3dadd(130.597, 97.25, 14.401, 0.982)
pt3dadd(130.71, 97.209, 14.401, 0.966)
pt3dadd(130.823, 97.17, 14.401, 0.954)
pt3dadd(130.938, 97.134, 14.401, 0.948)
pt3dadd(131.052, 97.098, 14.401, 0.944)
pt3dadd(131.166, 97.061, 14.4, 0.938)
pt3dadd(131.281, 97.025, 14.4, 0.934)
pt3dadd(131.395, 96.988, 14.4, 0.928)
pt3dadd(131.509, 96.952, 14.399, 0.924)
pt3dadd(131.623, 96.916, 14.399, 0.918)
pt3dadd(131.738, 96.879, 14.399, 0.914)
pt3dadd(131.852, 96.843, 14.399, 0.908)
pt3dadd(131.966, 96.804, 14.399, 0.906)
pt3dadd(132.077, 96.758, 14.398, 0.914)
pt3dadd(132.187, 96.712, 14.398, 0.924)
pt3dadd(132.298, 96.666, 14.397, 0.932)
pt3dadd(132.409, 96.619, 14.397, 0.94)
pt3dadd(132.52, 96.573, 14.396, 0.948)
pt3dadd(132.63, 96.527, 14.396, 0.958)
pt3dadd(132.74, 96.48, 14.396, 0.966)
pt3dadd(132.852, 96.434, 14.395, 0.974)
pt3dadd(132.962, 96.388, 14.395, 0.984)
pt3dadd(133.072, 96.338, 14.394, 0.994)
pt3dadd(133.176, 96.279, 14.393, 1.008)
pt3dadd(133.28, 96.22, 14.393, 1.022)
pt3dadd(133.385, 96.161, 14.392, 1.036)
pt3dadd(133.489, 96.102, 14.391, 1.05)
pt3dadd(133.594, 96.042, 14.391, 1.064)
pt3dadd(133.698, 95.983, 14.39, 1.078)
pt3dadd(133.802, 95.924, 14.39, 1.092)
pt3dadd(133.907, 95.865, 14.389, 1.106)
pt3dadd(134.011, 95.806, 14.388, 1.12)
pt3dadd(134.114, 95.745, 14.387, 1.13)
pt3dadd(134.213, 95.676, 14.386, 1.13)
pt3dadd(134.311, 95.608, 14.385, 1.13)
pt3dadd(134.411, 95.54, 14.384, 1.13)
pt3dadd(134.509, 95.471, 14.383, 1.13)
pt3dadd(134.608, 95.403, 14.382, 1.13)
pt3dadd(134.706, 95.335, 14.38, 1.13)
pt3dadd(134.804, 95.267, 14.379, 1.13)
pt3dadd(134.904, 95.198, 14.378, 1.13)
pt3dadd(135.002, 95.13, 14.377, 1.13)
pt3dadd(135.103, 95.066, 14.375, 1.126)
pt3dadd(135.21, 95.011, 14.373, 1.112)
pt3dadd(135.317, 94.957, 14.371, 1.098)
pt3dadd(135.424, 94.903, 14.368, 1.084)
pt3dadd(135.532, 94.848, 14.366, 1.07)
pt3dadd(135.638, 94.794, 14.363, 1.056)
pt3dadd(135.745, 94.74, 14.361, 1.042)
pt3dadd(135.852, 94.686, 14.359, 1.028)
pt3dadd(135.959, 94.631, 14.357, 1.014)
pt3dadd(136.066, 94.577, 14.354, 1)
pt3dadd(136.175, 94.527, 14.351, 0.99)
pt3dadd(136.288, 94.486, 14.346, 0.992)
pt3dadd(136.4, 94.445, 14.341, 0.994)
pt3dadd(136.513, 94.405, 14.336, 0.996)
pt3dadd(136.626, 94.364, 14.33, 0.998)
pt3dadd(136.738, 94.323, 14.325, 1)
pt3dadd(136.85, 94.282, 14.32, 1.002)
pt3dadd(136.963, 94.241, 14.315, 1.004)
pt3dadd(137.076, 94.2, 14.31, 1.006)
pt3dadd(137.189, 94.16, 14.305, 1.008)
pt3dadd(137.302, 94.118, 14.298, 1.002)
pt3dadd(137.413, 94.076, 14.29, 0.984)
pt3dadd(137.525, 94.033, 14.28, 0.966)
pt3dadd(137.636, 93.991, 14.271, 0.948)
pt3dadd(137.748, 93.948, 14.262, 0.93)
pt3dadd(137.86, 93.906, 14.253, 0.912)
pt3dadd(137.971, 93.863, 14.245, 0.894)
pt3dadd(138.083, 93.821, 14.235, 0.876)
pt3dadd(138.194, 93.778, 14.226, 0.858)
pt3dadd(138.306, 93.736, 14.218, 0.84)
pt3dadd(138.414, 93.687, 14.204, 0.808)
pt3dadd(138.517, 93.629, 14.185, 0.75)
pt3dadd(138.619, 93.572, 14.165, 0.694)
pt3dadd(138.722, 93.514, 14.146, 0.638)
pt3dadd(138.824, 93.456, 14.126, 0.582)
pt3dadd(138.928, 93.398, 14.107, 0.526)
pt3dadd(139.03, 93.34, 14.087, 0.47)
pt3dadd(139.133, 93.283, 14.068, 0.414)
pt3dadd(139.235, 93.225, 14.048, 0.358)
pt3dadd(139.337, 93.167, 14.028, 0.302)
pt3dadd(139.433, 93.108, 13.996, 0.292)
pt3dadd(139.523, 93.047, 13.953, 0.326)
pt3dadd(139.613, 92.987, 13.91, 0.358)
pt3dadd(139.702, 92.926, 13.866, 0.39)
pt3dadd(139.792, 92.866, 13.823, 0.424)
pt3dadd(139.882, 92.805, 13.78, 0.456)
pt3dadd(139.97, 92.745, 13.736, 0.49)
pt3dadd(140.06, 92.684, 13.693, 0.522)
pt3dadd(140.15, 92.624, 13.65, 0.554)
pt3dadd(140.239, 92.563, 13.606, 0.588)
pt3dadd(140.333, 92.498, 13.575, 0.63)
pt3dadd(140.428, 92.431, 13.551, 0.678)
pt3dadd(140.522, 92.363, 13.527, 0.728)
pt3dadd(140.617, 92.295, 13.503, 0.776)
pt3dadd(140.712, 92.228, 13.479, 0.826)
pt3dadd(140.807, 92.16, 13.455, 0.874)
pt3dadd(140.902, 92.093, 13.431, 0.924)
pt3dadd(140.996, 92.025, 13.407, 0.972)
pt3dadd(141.091, 91.957, 13.383, 1.02)
pt3dadd(141.186, 91.89, 13.359, 1.07)
pt3dadd(141.292, 91.838, 13.343, 1.06)
pt3dadd(141.403, 91.796, 13.331, 1.02)
pt3dadd(141.515, 91.753, 13.32, 0.98)
pt3dadd(141.625, 91.71, 13.308, 0.94)
pt3dadd(141.737, 91.667, 13.296, 0.9)
pt3dadd(141.848, 91.625, 13.285, 0.86)
pt3dadd(141.959, 91.582, 13.273, 0.818)
pt3dadd(142.07, 91.539, 13.262, 0.778)
pt3dadd(142.182, 91.496, 13.25, 0.738)
pt3dadd(142.294, 91.454, 13.238, 0.698)
pt3dadd(142.403, 91.406, 13.234, 0.694)
pt3dadd(142.512, 91.356, 13.234, 0.712)
pt3dadd(142.621, 91.305, 13.233, 0.728)
pt3dadd(142.729, 91.255, 13.233, 0.744)
pt3dadd(142.838, 91.204, 13.233, 0.762)
pt3dadd(142.948, 91.154, 13.233, 0.778)
pt3dadd(143.057, 91.104, 13.232, 0.794)
pt3dadd(143.165, 91.053, 13.232, 0.812)
pt3dadd(143.274, 91.003, 13.232, 0.828)
pt3dadd(143.383, 90.953, 13.231, 0.844)
pt3dadd(143.497, 90.917, 13.231, 0.854)
pt3dadd(143.614, 90.89, 13.231, 0.86)
pt3dadd(143.731, 90.863, 13.23, 0.864)
pt3dadd(143.848, 90.835, 13.23, 0.87)
pt3dadd(143.964, 90.808, 13.23, 0.876)
pt3dadd(144.082, 90.781, 13.23, 0.882)
pt3dadd(144.198, 90.753, 13.229, 0.886)
pt3dadd(144.316, 90.726, 13.229, 0.892)
pt3dadd(144.432, 90.699, 13.229, 0.898)
pt3dadd(144.548, 90.672, 13.229, 0.902)
pt3dadd(144.668, 90.663, 13.228, 0.896)
pt3dadd(144.788, 90.661, 13.228, 0.886)
pt3dadd(144.908, 90.659, 13.227, 0.876)
pt3dadd(145.028, 90.657, 13.227, 0.866)
pt3dadd(145.148, 90.654, 13.226, 0.856)
pt3dadd(145.268, 90.652, 13.226, 0.846)
pt3dadd(145.388, 90.65, 13.226, 0.836)
pt3dadd(145.508, 90.648, 13.225, 0.826)
pt3dadd(145.628, 90.646, 13.225, 0.816)
pt3dadd(145.748, 90.644, 13.224, 0.808)
pt3dadd(145.865, 90.666, 13.223, 0.794)
pt3dadd(145.982, 90.693, 13.223, 0.782)
pt3dadd(146.099, 90.721, 13.222, 0.768)
pt3dadd(146.215, 90.748, 13.221, 0.756)
pt3dadd(146.333, 90.776, 13.22, 0.742)
pt3dadd(146.449, 90.804, 13.219, 0.73)
pt3dadd(146.566, 90.831, 13.218, 0.716)
pt3dadd(146.683, 90.859, 13.217, 0.704)
pt3dadd(146.8, 90.887, 13.216, 0.69)
pt3dadd(146.916, 90.915, 13.216, 0.678)
pt3dadd(147.02, 90.973, 13.214, 0.678)
pt3dadd(147.126, 91.031, 13.213, 0.678)
pt3dadd(147.23, 91.089, 13.212, 0.678)
pt3dadd(147.336, 91.148, 13.211, 0.678)
pt3dadd(147.44, 91.206, 13.209, 0.678)
pt3dadd(147.545, 91.264, 13.208, 0.678)
pt3dadd(147.65, 91.323, 13.207, 0.678)
pt3dadd(147.755, 91.381, 13.206, 0.678)
pt3dadd(147.86, 91.439, 13.204, 0.678)
pt3dadd(147.965, 91.498, 13.203, 0.678)
}
dend_7[25] {pt3dclear()
pt3dadd(147.965, 91.498, 13.203, 0.678)
pt3dadd(148.012, 91.453, 13.204, 0.664)
pt3dadd(148.098, 91.37, 13.206, 0.636)
pt3dadd(148.184, 91.287, 13.208, 0.608)
pt3dadd(148.271, 91.204, 13.21, 0.58)
pt3dadd(148.357, 91.121, 13.212, 0.552)
pt3dadd(148.445, 91.038, 13.214, 0.524)
pt3dadd(148.531, 90.955, 13.215, 0.496)
pt3dadd(148.618, 90.873, 13.217, 0.468)
pt3dadd(148.704, 90.789, 13.219, 0.44)
pt3dadd(148.792, 90.707, 13.221, 0.412)
pt3dadd(148.878, 90.624, 13.223, 0.386)
}
}
proc shape3d_116() {
dend_7[25] { pt3dadd(148.969, 90.546, 13.224, 0.37)
pt3dadd(149.06, 90.468, 13.225, 0.354)
pt3dadd(149.15, 90.389, 13.226, 0.336)
pt3dadd(149.242, 90.311, 13.227, 0.32)
pt3dadd(149.333, 90.232, 13.229, 0.304)
pt3dadd(149.423, 90.154, 13.23, 0.288)
pt3dadd(149.514, 90.075, 13.231, 0.272)
pt3dadd(149.605, 89.997, 13.232, 0.256)
pt3dadd(149.695, 89.918, 13.233, 0.24)
pt3dadd(149.788, 89.841, 13.234, 0.226)
pt3dadd(149.884, 89.77, 13.234, 0.226)
pt3dadd(149.98, 89.698, 13.234, 0.226)
pt3dadd(150.077, 89.626, 13.234, 0.226)
pt3dadd(150.173, 89.555, 13.234, 0.226)
pt3dadd(150.269, 89.483, 13.234, 0.226)
pt3dadd(150.365, 89.411, 13.234, 0.226)
pt3dadd(150.461, 89.34, 13.234, 0.226)
pt3dadd(150.558, 89.268, 13.234, 0.226)
pt3dadd(150.654, 89.196, 13.234, 0.226)
pt3dadd(150.752, 89.128, 13.234, 0.226)
pt3dadd(150.859, 89.073, 13.234, 0.226)
pt3dadd(150.965, 89.018, 13.234, 0.226)
pt3dadd(151.072, 88.963, 13.234, 0.226)
pt3dadd(151.178, 88.908, 13.234, 0.226)
pt3dadd(151.285, 88.852, 13.234, 0.226)
pt3dadd(151.392, 88.797, 13.234, 0.226)
pt3dadd(151.499, 88.742, 13.234, 0.226)
pt3dadd(151.604, 88.687, 13.234, 0.226)
pt3dadd(151.711, 88.632, 13.234, 0.226)
pt3dadd(151.817, 88.575, 13.234, 0.226)
pt3dadd(151.92, 88.513, 13.234, 0.226)
pt3dadd(152.022, 88.451, 13.234, 0.226)
pt3dadd(152.125, 88.388, 13.234, 0.226)
pt3dadd(152.227, 88.326, 13.234, 0.226)
pt3dadd(152.33, 88.263, 13.234, 0.226)
pt3dadd(152.432, 88.201, 13.234, 0.226)
pt3dadd(152.534, 88.139, 13.234, 0.226)
pt3dadd(152.638, 88.076, 13.234, 0.226)
pt3dadd(152.74, 88.014, 13.234, 0.226)
pt3dadd(152.843, 87.952, 13.234, 0.228)
pt3dadd(152.946, 87.89, 13.234, 0.236)
pt3dadd(153.048, 87.828, 13.234, 0.244)
pt3dadd(153.151, 87.767, 13.234, 0.252)
pt3dadd(153.254, 87.705, 13.234, 0.26)
pt3dadd(153.358, 87.643, 13.234, 0.268)
pt3dadd(153.46, 87.581, 13.234, 0.276)
pt3dadd(153.563, 87.52, 13.234, 0.284)
pt3dadd(153.666, 87.458, 13.234, 0.292)
pt3dadd(153.769, 87.396, 13.234, 0.3)
pt3dadd(153.871, 87.334, 13.234, 0.31)
pt3dadd(153.973, 87.27, 13.234, 0.324)
pt3dadd(154.074, 87.206, 13.234, 0.34)
pt3dadd(154.176, 87.141, 13.234, 0.354)
pt3dadd(154.277, 87.077, 13.234, 0.37)
pt3dadd(154.379, 87.013, 13.234, 0.384)
pt3dadd(154.48, 86.949, 13.234, 0.398)
pt3dadd(154.582, 86.885, 13.234, 0.414)
pt3dadd(154.682, 86.821, 13.234, 0.428)
pt3dadd(154.784, 86.757, 13.234, 0.442)
pt3dadd(154.878, 86.684, 13.234, 0.45)
pt3dadd(154.96, 86.596, 13.234, 0.446)
pt3dadd(155.041, 86.508, 13.234, 0.444)
pt3dadd(155.123, 86.419, 13.234, 0.44)
pt3dadd(155.204, 86.331, 13.234, 0.436)
pt3dadd(155.286, 86.243, 13.234, 0.432)
pt3dadd(155.368, 86.155, 13.234, 0.428)
pt3dadd(155.449, 86.067, 13.234, 0.424)
pt3dadd(155.53, 85.979, 13.234, 0.42)
pt3dadd(155.611, 85.891, 13.234, 0.416)
pt3dadd(155.695, 85.805, 13.234, 0.408)
pt3dadd(155.78, 85.721, 13.234, 0.39)
pt3dadd(155.867, 85.637, 13.234, 0.37)
pt3dadd(155.952, 85.553, 13.234, 0.352)
pt3dadd(156.038, 85.469, 13.234, 0.334)
pt3dadd(156.124, 85.385, 13.234, 0.316)
pt3dadd(156.21, 85.301, 13.234, 0.298)
pt3dadd(156.295, 85.217, 13.234, 0.28)
pt3dadd(156.382, 85.133, 13.234, 0.262)
pt3dadd(156.467, 85.05, 13.234, 0.242)
pt3dadd(156.559, 84.975, 13.234, 0.246)
pt3dadd(156.664, 84.914, 13.235, 0.282)
pt3dadd(156.767, 84.853, 13.235, 0.318)
pt3dadd(156.87, 84.792, 13.235, 0.354)
pt3dadd(156.973, 84.732, 13.235, 0.39)
pt3dadd(157.078, 84.671, 13.235, 0.426)
pt3dadd(157.181, 84.61, 13.235, 0.462)
pt3dadd(157.284, 84.549, 13.235, 0.498)
pt3dadd(157.387, 84.489, 13.235, 0.534)
pt3dadd(157.492, 84.428, 13.235, 0.57)
pt3dadd(157.595, 84.367, 13.235, 0.596)
pt3dadd(157.698, 84.306, 13.235, 0.604)
pt3dadd(157.8, 84.244, 13.235, 0.612)
pt3dadd(157.903, 84.182, 13.235, 0.622)
pt3dadd(158.006, 84.121, 13.236, 0.63)
pt3dadd(158.11, 84.059, 13.236, 0.638)
pt3dadd(158.213, 83.998, 13.236, 0.646)
pt3dadd(158.316, 83.936, 13.236, 0.656)
pt3dadd(158.419, 83.875, 13.236, 0.664)
pt3dadd(158.521, 83.813, 13.236, 0.672)
pt3dadd(158.626, 83.754, 13.236, 0.678)
pt3dadd(158.732, 83.699, 13.237, 0.678)
pt3dadd(158.839, 83.643, 13.237, 0.678)
pt3dadd(158.946, 83.588, 13.237, 0.678)
pt3dadd(159.052, 83.533, 13.237, 0.678)
pt3dadd(159.158, 83.478, 13.237, 0.678)
pt3dadd(159.265, 83.422, 13.238, 0.678)
pt3dadd(159.372, 83.367, 13.238, 0.678)
pt3dadd(159.478, 83.311, 13.238, 0.678)
pt3dadd(159.584, 83.256, 13.238, 0.678)
pt3dadd(159.692, 83.204, 13.238, 0.676)
pt3dadd(159.803, 83.156, 13.239, 0.672)
pt3dadd(159.912, 83.109, 13.239, 0.666)
pt3dadd(160.022, 83.061, 13.24, 0.662)
pt3dadd(160.133, 83.013, 13.24, 0.658)
pt3dadd(160.243, 82.965, 13.24, 0.652)
pt3dadd(160.352, 82.917, 13.241, 0.648)
pt3dadd(160.463, 82.87, 13.241, 0.644)
pt3dadd(160.573, 82.822, 13.241, 0.638)
pt3dadd(160.684, 82.774, 13.242, 0.634)
pt3dadd(160.789, 82.72, 13.242, 0.616)
pt3dadd(160.892, 82.657, 13.243, 0.584)
pt3dadd(160.994, 82.594, 13.243, 0.55)
pt3dadd(161.096, 82.532, 13.244, 0.518)
pt3dadd(161.198, 82.469, 13.245, 0.484)
pt3dadd(161.302, 82.406, 13.245, 0.452)
pt3dadd(161.404, 82.343, 13.246, 0.42)
pt3dadd(161.506, 82.281, 13.246, 0.386)
pt3dadd(161.608, 82.218, 13.247, 0.354)
pt3dadd(161.711, 82.155, 13.248, 0.32)
pt3dadd(161.815, 82.097, 13.249, 0.298)
pt3dadd(161.923, 82.046, 13.25, 0.29)
pt3dadd(162.032, 81.994, 13.251, 0.284)
pt3dadd(162.14, 81.943, 13.252, 0.276)
pt3dadd(162.248, 81.891, 13.254, 0.268)
pt3dadd(162.358, 81.84, 13.255, 0.26)
pt3dadd(162.466, 81.788, 13.256, 0.252)
pt3dadd(162.574, 81.736, 13.257, 0.246)
pt3dadd(162.683, 81.685, 13.259, 0.238)
pt3dadd(162.791, 81.633, 13.26, 0.23)
pt3dadd(162.898, 81.58, 13.262, 0.238)
pt3dadd(163.003, 81.523, 13.264, 0.262)
pt3dadd(163.11, 81.467, 13.266, 0.286)
pt3dadd(163.216, 81.41, 13.268, 0.31)
pt3dadd(163.321, 81.354, 13.27, 0.334)
pt3dadd(163.427, 81.297, 13.272, 0.358)
pt3dadd(163.532, 81.241, 13.274, 0.384)
pt3dadd(163.639, 81.184, 13.276, 0.408)
pt3dadd(163.745, 81.128, 13.278, 0.432)
pt3dadd(163.85, 81.071, 13.28, 0.456)
pt3dadd(163.954, 81.011, 13.283, 0.49)
pt3dadd(164.054, 80.946, 13.286, 0.534)
pt3dadd(164.155, 80.881, 13.289, 0.578)
pt3dadd(164.257, 80.816, 13.292, 0.62)
pt3dadd(164.358, 80.752, 13.296, 0.664)
pt3dadd(164.459, 80.687, 13.299, 0.708)
pt3dadd(164.56, 80.622, 13.302, 0.752)
pt3dadd(164.66, 80.557, 13.305, 0.794)
pt3dadd(164.761, 80.492, 13.308, 0.838)
pt3dadd(164.862, 80.428, 13.311, 0.882)
pt3dadd(164.963, 80.362, 13.316, 0.904)
pt3dadd(165.062, 80.295, 13.323, 0.904)
pt3dadd(165.162, 80.229, 13.329, 0.904)
pt3dadd(165.26, 80.162, 13.336, 0.904)
pt3dadd(165.36, 80.095, 13.342, 0.904)
pt3dadd(165.46, 80.029, 13.349, 0.904)
pt3dadd(165.559, 79.962, 13.355, 0.904)
pt3dadd(165.659, 79.895, 13.362, 0.904)
pt3dadd(165.758, 79.829, 13.368, 0.904)
pt3dadd(165.858, 79.762, 13.375, 0.904)
pt3dadd(165.961, 79.703, 13.384, 0.904)
pt3dadd(166.069, 79.652, 13.395, 0.904)
pt3dadd(166.177, 79.601, 13.405, 0.904)
pt3dadd(166.285, 79.55, 13.416, 0.904)
pt3dadd(166.393, 79.499, 13.427, 0.904)
pt3dadd(166.5, 79.448, 13.438, 0.904)
pt3dadd(166.608, 79.397, 13.449, 0.904)
pt3dadd(166.716, 79.346, 13.46, 0.904)
pt3dadd(166.824, 79.295, 13.47, 0.904)
pt3dadd(166.932, 79.243, 13.481, 0.904)
pt3dadd(167.041, 79.201, 13.5, 0.9)
pt3dadd(167.152, 79.167, 13.526, 0.892)
pt3dadd(167.262, 79.132, 13.551, 0.882)
pt3dadd(167.374, 79.097, 13.577, 0.874)
pt3dadd(167.484, 79.063, 13.603, 0.866)
pt3dadd(167.594, 79.028, 13.628, 0.858)
pt3dadd(167.705, 78.993, 13.654, 0.85)
pt3dadd(167.816, 78.959, 13.68, 0.842)
pt3dadd(167.927, 78.924, 13.705, 0.834)
pt3dadd(168.037, 78.89, 13.731, 0.824)
pt3dadd(168.146, 78.864, 13.766, 0.814)
pt3dadd(168.254, 78.842, 13.805, 0.804)
pt3dadd(168.364, 78.821, 13.844, 0.794)
pt3dadd(168.472, 78.799, 13.883, 0.782)
pt3dadd(168.58, 78.778, 13.922, 0.772)
pt3dadd(168.688, 78.756, 13.961, 0.762)
pt3dadd(168.797, 78.734, 14, 0.75)
pt3dadd(168.905, 78.713, 14.039, 0.74)
pt3dadd(169.013, 78.691, 14.078, 0.73)
pt3dadd(169.121, 78.67, 14.117, 0.72)
pt3dadd(169.231, 78.649, 14.153, 0.728)
}
}
proc shape3d_117() {
dend_7[25] { pt3dadd(169.343, 78.63, 14.186, 0.746)
pt3dadd(169.454, 78.61, 14.219, 0.764)
pt3dadd(169.566, 78.59, 14.253, 0.78)
pt3dadd(169.678, 78.57, 14.286, 0.798)
pt3dadd(169.789, 78.55, 14.319, 0.816)
pt3dadd(169.9, 78.53, 14.353, 0.834)
pt3dadd(170.011, 78.51, 14.386, 0.852)
pt3dadd(170.123, 78.49, 14.419, 0.87)
pt3dadd(170.234, 78.47, 14.453, 0.886)
pt3dadd(170.339, 78.425, 14.48, 0.866)
pt3dadd(170.44, 78.367, 14.506, 0.828)
pt3dadd(170.54, 78.31, 14.531, 0.792)
pt3dadd(170.641, 78.253, 14.556, 0.754)
pt3dadd(170.742, 78.196, 14.582, 0.716)
pt3dadd(170.844, 78.139, 14.607, 0.68)
pt3dadd(170.945, 78.082, 14.632, 0.642)
pt3dadd(171.046, 78.024, 14.657, 0.604)
pt3dadd(171.146, 77.967, 14.682, 0.566)
pt3dadd(171.247, 77.91, 14.708, 0.53)
pt3dadd(171.337, 77.852, 14.751, 0.514)
pt3dadd(171.422, 77.794, 14.803, 0.506)
pt3dadd(171.508, 77.736, 14.854, 0.5)
pt3dadd(171.593, 77.678, 14.906, 0.494)
pt3dadd(171.677, 77.62, 14.957, 0.486)
pt3dadd(171.762, 77.562, 15.009, 0.48)
pt3dadd(171.847, 77.505, 15.061, 0.474)
pt3dadd(171.932, 77.447, 15.112, 0.466)
pt3dadd(172.018, 77.388, 15.164, 0.46)
pt3dadd(172.102, 77.331, 15.215, 0.454)
pt3dadd(172.184, 77.262, 15.259, 0.452)
pt3dadd(172.267, 77.191, 15.301, 0.452)
pt3dadd(172.35, 77.119, 15.343, 0.452)
pt3dadd(172.432, 77.048, 15.385, 0.452)
pt3dadd(172.514, 76.977, 15.427, 0.452)
pt3dadd(172.597, 76.905, 15.469, 0.452)
pt3dadd(172.679, 76.834, 15.51, 0.452)
pt3dadd(172.762, 76.762, 15.552, 0.452)
pt3dadd(172.843, 76.691, 15.594, 0.452)
pt3dadd(172.926, 76.62, 15.636, 0.452)
pt3dadd(173.012, 76.559, 15.683, 0.452)
pt3dadd(173.099, 76.501, 15.732, 0.452)
pt3dadd(173.186, 76.442, 15.781, 0.452)
pt3dadd(173.273, 76.384, 15.829, 0.452)
pt3dadd(173.36, 76.325, 15.878, 0.452)
pt3dadd(173.448, 76.267, 15.927, 0.452)
pt3dadd(173.534, 76.208, 15.975, 0.452)
pt3dadd(173.622, 76.15, 16.024, 0.452)
pt3dadd(173.708, 76.091, 16.073, 0.452)
pt3dadd(173.796, 76.033, 16.121, 0.452)
pt3dadd(173.88, 75.969, 16.168, 0.46)
pt3dadd(173.964, 75.904, 16.215, 0.47)
pt3dadd(174.048, 75.839, 16.262, 0.478)
pt3dadd(174.132, 75.775, 16.308, 0.488)
pt3dadd(174.216, 75.71, 16.355, 0.498)
pt3dadd(174.3, 75.645, 16.402, 0.506)
pt3dadd(174.384, 75.58, 16.448, 0.516)
pt3dadd(174.469, 75.516, 16.495, 0.524)
pt3dadd(174.553, 75.451, 16.541, 0.534)
pt3dadd(174.637, 75.386, 16.588, 0.544)
pt3dadd(174.716, 75.306, 16.622, 0.558)
pt3dadd(174.797, 75.227, 16.657, 0.57)
pt3dadd(174.876, 75.147, 16.691, 0.584)
pt3dadd(174.955, 75.067, 16.726, 0.598)
pt3dadd(175.036, 74.988, 16.76, 0.612)
pt3dadd(175.115, 74.908, 16.795, 0.624)
pt3dadd(175.195, 74.829, 16.829, 0.638)
pt3dadd(175.274, 74.749, 16.863, 0.652)
pt3dadd(175.354, 74.669, 16.898, 0.666)
pt3dadd(175.434, 74.59, 16.932, 0.678)
pt3dadd(175.522, 74.518, 16.964, 0.68)
pt3dadd(175.609, 74.445, 16.996, 0.682)
pt3dadd(175.697, 74.373, 17.028, 0.684)
pt3dadd(175.784, 74.3, 17.059, 0.688)
pt3dadd(175.873, 74.228, 17.091, 0.69)
pt3dadd(175.961, 74.155, 17.123, 0.692)
pt3dadd(176.048, 74.083, 17.155, 0.694)
pt3dadd(176.136, 74.01, 17.187, 0.696)
pt3dadd(176.224, 73.938, 17.218, 0.698)
pt3dadd(176.312, 73.868, 17.252, 0.702)
pt3dadd(176.407, 73.826, 17.301, 0.72)
pt3dadd(176.503, 73.783, 17.349, 0.738)
pt3dadd(176.599, 73.74, 17.398, 0.756)
pt3dadd(176.695, 73.697, 17.446, 0.772)
pt3dadd(176.791, 73.655, 17.495, 0.79)
pt3dadd(176.887, 73.612, 17.543, 0.808)
pt3dadd(176.982, 73.569, 17.592, 0.826)
pt3dadd(177.078, 73.527, 17.641, 0.844)
pt3dadd(177.174, 73.484, 17.689, 0.862)
pt3dadd(177.27, 73.443, 17.739, 0.872)
pt3dadd(177.367, 73.421, 17.794, 0.834)
pt3dadd(177.464, 73.398, 17.849, 0.796)
pt3dadd(177.562, 73.376, 17.905, 0.758)
pt3dadd(177.659, 73.353, 17.96, 0.72)
pt3dadd(177.757, 73.331, 18.016, 0.68)
pt3dadd(177.854, 73.308, 18.071, 0.642)
pt3dadd(177.952, 73.286, 18.126, 0.604)
pt3dadd(178.049, 73.263, 18.182, 0.566)
pt3dadd(178.146, 73.241, 18.237, 0.528)
pt3dadd(178.244, 73.219, 18.292, 0.494)
pt3dadd(178.346, 73.202, 18.342, 0.484)
pt3dadd(178.448, 73.185, 18.392, 0.474)
pt3dadd(178.552, 73.168, 18.442, 0.462)
pt3dadd(178.654, 73.151, 18.492, 0.452)
pt3dadd(178.757, 73.134, 18.542, 0.442)
pt3dadd(178.859, 73.117, 18.593, 0.432)
pt3dadd(178.961, 73.1, 18.643, 0.422)
pt3dadd(179.064, 73.083, 18.693, 0.412)
pt3dadd(179.166, 73.065, 18.743, 0.402)
pt3dadd(179.269, 73.047, 18.791, 0.398)
pt3dadd(179.378, 73.023, 18.828, 0.422)
pt3dadd(179.486, 72.999, 18.866, 0.446)
pt3dadd(179.596, 72.975, 18.903, 0.47)
pt3dadd(179.704, 72.951, 18.941, 0.494)
pt3dadd(179.813, 72.927, 18.978, 0.518)
pt3dadd(179.921, 72.903, 19.016, 0.542)
pt3dadd(180.03, 72.879, 19.053, 0.566)
pt3dadd(180.138, 72.855, 19.091, 0.59)
pt3dadd(180.247, 72.831, 19.128, 0.614)
pt3dadd(180.354, 72.798, 19.162, 0.626)
pt3dadd(180.458, 72.747, 19.187, 0.606)
pt3dadd(180.563, 72.695, 19.212, 0.586)
pt3dadd(180.667, 72.644, 19.237, 0.566)
pt3dadd(180.77, 72.592, 19.262, 0.546)
pt3dadd(180.875, 72.541, 19.287, 0.526)
pt3dadd(180.979, 72.489, 19.312, 0.506)
pt3dadd(181.084, 72.438, 19.337, 0.486)
pt3dadd(181.188, 72.386, 19.362, 0.466)
pt3dadd(181.292, 72.335, 19.387, 0.448)
pt3dadd(181.393, 72.286, 19.42, 0.426)
pt3dadd(181.488, 72.241, 19.468, 0.406)
pt3dadd(181.583, 72.197, 19.517, 0.386)
pt3dadd(181.676, 72.152, 19.566, 0.364)
pt3dadd(181.771, 72.107, 19.615, 0.344)
pt3dadd(181.866, 72.063, 19.664, 0.322)
pt3dadd(181.961, 72.018, 19.713, 0.302)
pt3dadd(182.056, 71.973, 19.761, 0.28)
pt3dadd(182.15, 71.929, 19.81, 0.26)
pt3dadd(182.245, 71.884, 19.859, 0.238)
pt3dadd(182.346, 71.843, 19.9, 0.228)
pt3dadd(182.455, 71.808, 19.927, 0.232)
pt3dadd(182.566, 71.773, 19.955, 0.238)
pt3dadd(182.675, 71.737, 19.983, 0.242)
pt3dadd(182.785, 71.702, 20.01, 0.246)
pt3dadd(182.896, 71.667, 20.038, 0.252)
pt3dadd(183.005, 71.632, 20.066, 0.256)
pt3dadd(183.115, 71.597, 20.093, 0.26)
pt3dadd(183.224, 71.561, 20.121, 0.266)
pt3dadd(183.335, 71.526, 20.148, 0.27)
pt3dadd(183.448, 71.563, 20.159, 0.288)
pt3dadd(183.56, 71.601, 20.169, 0.306)
pt3dadd(183.674, 71.639, 20.18, 0.324)
pt3dadd(183.787, 71.677, 20.19, 0.342)
pt3dadd(183.9, 71.714, 20.201, 0.36)
pt3dadd(184.014, 71.752, 20.211, 0.38)
pt3dadd(184.127, 71.79, 20.222, 0.398)
pt3dadd(184.24, 71.828, 20.232, 0.416)
pt3dadd(184.354, 71.865, 20.243, 0.434)
pt3dadd(184.466, 71.903, 20.253, 0.452)
}
dend_7[26] {pt3dclear()
pt3dadd(147.965, 91.498, 13.203, 0.678)
pt3dadd(148.051, 91.562, 13.201, 0.678)
pt3dadd(148.147, 91.634, 13.199, 0.678)
pt3dadd(148.243, 91.705, 13.196, 0.678)
pt3dadd(148.34, 91.776, 13.194, 0.678)
pt3dadd(148.436, 91.848, 13.192, 0.678)
pt3dadd(148.534, 91.919, 13.19, 0.678)
pt3dadd(148.63, 91.991, 13.187, 0.678)
pt3dadd(148.726, 92.062, 13.185, 0.678)
pt3dadd(148.823, 92.133, 13.182, 0.678)
pt3dadd(148.919, 92.205, 13.18, 0.678)
pt3dadd(149.015, 92.276, 13.178, 0.678)
pt3dadd(149.114, 92.343, 13.174, 0.672)
pt3dadd(149.219, 92.403, 13.169, 0.66)
pt3dadd(149.322, 92.464, 13.164, 0.65)
pt3dadd(149.425, 92.524, 13.159, 0.638)
pt3dadd(149.528, 92.585, 13.154, 0.626)
pt3dadd(149.632, 92.645, 13.149, 0.614)
pt3dadd(149.735, 92.706, 13.144, 0.602)
pt3dadd(149.839, 92.766, 13.139, 0.59)
pt3dadd(149.942, 92.827, 13.134, 0.578)
pt3dadd(150.046, 92.888, 13.129, 0.566)
pt3dadd(150.15, 92.947, 13.122, 0.56)
pt3dadd(150.254, 93.005, 13.115, 0.562)
pt3dadd(150.359, 93.063, 13.107, 0.564)
pt3dadd(150.463, 93.121, 13.099, 0.564)
pt3dadd(150.568, 93.179, 13.092, 0.566)
pt3dadd(150.672, 93.237, 13.084, 0.566)
pt3dadd(150.778, 93.296, 13.077, 0.568)
pt3dadd(150.882, 93.354, 13.069, 0.568)
pt3dadd(150.986, 93.412, 13.061, 0.57)
pt3dadd(151.091, 93.47, 13.054, 0.57)
pt3dadd(151.194, 93.531, 13.045, 0.588)
pt3dadd(151.295, 93.594, 13.035, 0.62)
pt3dadd(151.397, 93.657, 13.025, 0.652)
pt3dadd(151.499, 93.72, 13.015, 0.686)
pt3dadd(151.6, 93.783, 13.005, 0.718)
pt3dadd(151.702, 93.846, 12.995, 0.75)
pt3dadd(151.802, 93.909, 12.985, 0.784)
pt3dadd(151.904, 93.972, 12.975, 0.816)
pt3dadd(152.005, 94.035, 12.965, 0.848)
pt3dadd(152.107, 94.098, 12.955, 0.882)
}
}
proc shape3d_118() {
dend_7[26] { pt3dadd(152.209, 94.153, 12.933, 0.89)
pt3dadd(152.311, 94.2, 12.899, 0.874)
pt3dadd(152.414, 94.247, 12.865, 0.86)
pt3dadd(152.516, 94.294, 12.831, 0.844)
pt3dadd(152.618, 94.341, 12.797, 0.828)
pt3dadd(152.722, 94.388, 12.763, 0.812)
pt3dadd(152.824, 94.435, 12.729, 0.796)
pt3dadd(152.927, 94.482, 12.695, 0.782)
pt3dadd(153.029, 94.529, 12.661, 0.766)
pt3dadd(153.132, 94.576, 12.627, 0.75)
pt3dadd(153.233, 94.629, 12.597, 0.74)
pt3dadd(153.332, 94.688, 12.571, 0.732)
pt3dadd(153.433, 94.746, 12.545, 0.726)
pt3dadd(153.533, 94.805, 12.519, 0.72)
pt3dadd(153.632, 94.864, 12.493, 0.714)
pt3dadd(153.732, 94.922, 12.467, 0.706)
pt3dadd(153.833, 94.981, 12.44, 0.7)
pt3dadd(153.932, 95.04, 12.414, 0.694)
pt3dadd(154.032, 95.098, 12.388, 0.688)
pt3dadd(154.132, 95.157, 12.362, 0.68)
pt3dadd(154.23, 95.22, 12.34, 0.678)
pt3dadd(154.327, 95.287, 12.321, 0.678)
pt3dadd(154.424, 95.353, 12.303, 0.678)
pt3dadd(154.522, 95.42, 12.284, 0.678)
pt3dadd(154.619, 95.487, 12.265, 0.678)
pt3dadd(154.716, 95.553, 12.246, 0.678)
pt3dadd(154.813, 95.62, 12.227, 0.678)
pt3dadd(154.91, 95.687, 12.209, 0.678)
pt3dadd(155.008, 95.754, 12.19, 0.678)
pt3dadd(155.105, 95.82, 12.171, 0.678)
pt3dadd(155.201, 95.89, 12.157, 0.678)
pt3dadd(155.297, 95.962, 12.148, 0.678)
pt3dadd(155.392, 96.034, 12.137, 0.678)
pt3dadd(155.488, 96.105, 12.128, 0.678)
pt3dadd(155.582, 96.177, 12.118, 0.678)
pt3dadd(155.678, 96.249, 12.108, 0.678)
pt3dadd(155.773, 96.321, 12.098, 0.678)
pt3dadd(155.869, 96.393, 12.088, 0.678)
pt3dadd(155.964, 96.465, 12.078, 0.678)
pt3dadd(156.06, 96.537, 12.068, 0.678)
pt3dadd(156.158, 96.603, 12.061, 0.692)
pt3dadd(156.26, 96.666, 12.056, 0.714)
pt3dadd(156.362, 96.729, 12.051, 0.738)
pt3dadd(156.466, 96.792, 12.046, 0.762)
pt3dadd(156.568, 96.854, 12.042, 0.786)
pt3dadd(156.67, 96.917, 12.037, 0.81)
pt3dadd(156.772, 96.98, 12.032, 0.832)
pt3dadd(156.874, 97.043, 12.028, 0.856)
pt3dadd(156.976, 97.105, 12.023, 0.88)
pt3dadd(157.078, 97.168, 12.018, 0.904)
pt3dadd(157.181, 97.23, 12.014, 0.912)
pt3dadd(157.284, 97.291, 12.01, 0.912)
pt3dadd(157.386, 97.353, 12.006, 0.91)
pt3dadd(157.489, 97.414, 12.003, 0.908)
pt3dadd(157.592, 97.475, 11.999, 0.908)
pt3dadd(157.696, 97.536, 11.995, 0.906)
pt3dadd(157.799, 97.598, 11.992, 0.904)
pt3dadd(157.902, 97.659, 11.988, 0.904)
pt3dadd(158.005, 97.72, 11.984, 0.902)
pt3dadd(158.108, 97.782, 11.981, 0.9)
pt3dadd(158.209, 97.846, 11.976, 0.862)
pt3dadd(158.31, 97.911, 11.97, 0.796)
pt3dadd(158.41, 97.977, 11.964, 0.732)
pt3dadd(158.509, 98.043, 11.958, 0.668)
pt3dadd(158.61, 98.109, 11.952, 0.604)
pt3dadd(158.71, 98.175, 11.946, 0.54)
pt3dadd(158.809, 98.241, 11.94, 0.474)
pt3dadd(158.91, 98.307, 11.934, 0.41)
pt3dadd(159.01, 98.373, 11.929, 0.346)
pt3dadd(159.11, 98.438, 11.923, 0.282)
pt3dadd(159.208, 98.507, 11.915, 0.272)
pt3dadd(159.305, 98.576, 11.906, 0.298)
pt3dadd(159.402, 98.646, 11.896, 0.326)
pt3dadd(159.499, 98.716, 11.887, 0.352)
pt3dadd(159.596, 98.786, 11.878, 0.378)
pt3dadd(159.694, 98.855, 11.868, 0.406)
pt3dadd(159.791, 98.925, 11.859, 0.432)
pt3dadd(159.887, 98.995, 11.85, 0.46)
pt3dadd(159.984, 99.065, 11.841, 0.486)
pt3dadd(160.081, 99.134, 11.832, 0.512)
pt3dadd(160.181, 99.198, 11.815, 0.522)
pt3dadd(160.28, 99.258, 11.793, 0.522)
pt3dadd(160.381, 99.319, 11.771, 0.52)
pt3dadd(160.482, 99.379, 11.748, 0.52)
pt3dadd(160.582, 99.439, 11.726, 0.518)
pt3dadd(160.682, 99.499, 11.704, 0.518)
pt3dadd(160.783, 99.559, 11.682, 0.516)
pt3dadd(160.883, 99.619, 11.66, 0.516)
pt3dadd(160.984, 99.679, 11.638, 0.514)
pt3dadd(161.084, 99.739, 11.616, 0.514)
pt3dadd(161.196, 99.739, 11.622, 0.524)
pt3dadd(161.311, 99.714, 11.639, 0.542)
pt3dadd(161.428, 99.69, 11.656, 0.558)
pt3dadd(161.526, 99.725, 11.667, 0.564)
pt3dadd(161.609, 99.812, 11.673, 0.564)
pt3dadd(161.692, 99.899, 11.679, 0.564)
pt3dadd(161.773, 99.985, 11.684, 0.564)
pt3dadd(161.856, 100.072, 11.69, 0.564)
pt3dadd(161.939, 100.159, 11.696, 0.564)
pt3dadd(162.022, 100.245, 11.702, 0.564)
pt3dadd(162.104, 100.332, 11.708, 0.564)
pt3dadd(162.187, 100.419, 11.714, 0.564)
pt3dadd(162.27, 100.505, 11.72, 0.564)
pt3dadd(162.353, 100.592, 11.726, 0.564)
pt3dadd(162.436, 100.679, 11.732, 0.564)
pt3dadd(162.518, 100.765, 11.738, 0.564)
pt3dadd(162.61, 100.831, 11.744, 0.564)
pt3dadd(162.728, 100.825, 11.751, 0.564)
pt3dadd(162.848, 100.819, 11.758, 0.564)
pt3dadd(162.967, 100.814, 11.765, 0.564)
pt3dadd(163.087, 100.808, 11.772, 0.564)
pt3dadd(163.207, 100.802, 11.779, 0.564)
pt3dadd(163.326, 100.796, 11.786, 0.564)
pt3dadd(163.446, 100.79, 11.793, 0.564)
pt3dadd(163.566, 100.784, 11.8, 0.564)
pt3dadd(163.685, 100.779, 11.807, 0.564)
pt3dadd(163.805, 100.773, 11.814, 0.564)
pt3dadd(163.925, 100.767, 11.821, 0.564)
pt3dadd(164.044, 100.761, 11.828, 0.564)
pt3dadd(164.162, 100.76, 11.834, 0.564)
pt3dadd(164.272, 100.809, 11.831, 0.564)
pt3dadd(164.381, 100.859, 11.828, 0.564)
pt3dadd(164.49, 100.908, 11.825, 0.564)
pt3dadd(164.599, 100.958, 11.822, 0.564)
pt3dadd(164.708, 101.007, 11.819, 0.564)
pt3dadd(164.818, 101.057, 11.816, 0.564)
pt3dadd(164.928, 101.106, 11.813, 0.564)
pt3dadd(165.037, 101.155, 11.81, 0.564)
pt3dadd(165.146, 101.205, 11.807, 0.564)
pt3dadd(165.256, 101.254, 11.804, 0.564)
pt3dadd(165.365, 101.304, 11.801, 0.564)
pt3dadd(165.482, 101.315, 11.803, 0.564)
pt3dadd(165.602, 101.318, 11.807, 0.564)
pt3dadd(165.722, 101.321, 11.81, 0.564)
pt3dadd(165.842, 101.323, 11.813, 0.564)
pt3dadd(165.962, 101.326, 11.817, 0.564)
pt3dadd(166.082, 101.329, 11.82, 0.564)
pt3dadd(166.202, 101.332, 11.823, 0.564)
pt3dadd(166.322, 101.335, 11.826, 0.564)
pt3dadd(166.442, 101.338, 11.83, 0.564)
pt3dadd(166.561, 101.341, 11.833, 0.564)
pt3dadd(166.681, 101.344, 11.837, 0.564)
pt3dadd(166.801, 101.347, 11.84, 0.564)
pt3dadd(166.921, 101.35, 11.843, 0.564)
pt3dadd(167.041, 101.352, 11.846, 0.564)
pt3dadd(167.161, 101.355, 11.85, 0.564)
pt3dadd(167.28, 101.363, 11.85, 0.564)
pt3dadd(167.383, 101.416, 11.826, 0.564)
pt3dadd(167.486, 101.469, 11.801, 0.564)
pt3dadd(167.59, 101.522, 11.776, 0.564)
pt3dadd(167.694, 101.575, 11.752, 0.564)
pt3dadd(167.797, 101.628, 11.727, 0.564)
pt3dadd(167.9, 101.681, 11.702, 0.564)
pt3dadd(168.005, 101.734, 11.678, 0.564)
pt3dadd(168.108, 101.787, 11.653, 0.564)
pt3dadd(168.211, 101.84, 11.628, 0.564)
pt3dadd(168.314, 101.893, 11.604, 0.564)
pt3dadd(168.419, 101.946, 11.579, 0.564)
pt3dadd(168.522, 101.999, 11.554, 0.564)
pt3dadd(168.625, 102.051, 11.53, 0.564)
pt3dadd(168.73, 102.104, 11.505, 0.564)
pt3dadd(168.833, 102.157, 11.481, 0.564)
pt3dadd(168.936, 102.21, 11.456, 0.564)
pt3dadd(169.04, 102.263, 11.431, 0.564)
pt3dadd(169.144, 102.316, 11.406, 0.564)
pt3dadd(169.247, 102.369, 11.382, 0.564)
pt3dadd(169.361, 102.406, 11.379, 0.564)
pt3dadd(169.475, 102.443, 11.377, 0.564)
pt3dadd(169.589, 102.48, 11.374, 0.564)
pt3dadd(169.704, 102.517, 11.371, 0.564)
pt3dadd(169.818, 102.554, 11.368, 0.564)
pt3dadd(169.932, 102.591, 11.366, 0.564)
pt3dadd(170.046, 102.628, 11.363, 0.564)
pt3dadd(170.16, 102.665, 11.36, 0.564)
pt3dadd(170.274, 102.702, 11.357, 0.564)
pt3dadd(170.388, 102.739, 11.355, 0.564)
pt3dadd(170.502, 102.776, 11.352, 0.564)
pt3dadd(170.616, 102.813, 11.349, 0.564)
pt3dadd(170.73, 102.851, 11.346, 0.564)
pt3dadd(170.844, 102.888, 11.344, 0.564)
pt3dadd(170.958, 102.925, 11.341, 0.564)
pt3dadd(171.048, 103.001, 11.327, 0.564)
pt3dadd(171.133, 103.083, 11.311, 0.564)
pt3dadd(171.218, 103.165, 11.294, 0.564)
pt3dadd(171.302, 103.248, 11.278, 0.564)
pt3dadd(171.388, 103.33, 11.262, 0.564)
pt3dadd(171.473, 103.412, 11.246, 0.564)
pt3dadd(171.558, 103.495, 11.23, 0.564)
pt3dadd(171.643, 103.577, 11.214, 0.564)
pt3dadd(171.728, 103.659, 11.198, 0.564)
pt3dadd(171.814, 103.742, 11.182, 0.564)
pt3dadd(171.899, 103.824, 11.166, 0.564)
pt3dadd(171.984, 103.906, 11.149, 0.564)
pt3dadd(172.069, 103.989, 11.133, 0.564)
pt3dadd(172.154, 104.071, 11.117, 0.564)
pt3dadd(172.24, 104.154, 11.101, 0.564)
pt3dadd(172.325, 104.236, 11.091, 0.564)
pt3dadd(172.412, 104.318, 11.086, 0.564)
pt3dadd(172.499, 104.401, 11.081, 0.564)
pt3dadd(172.586, 104.483, 11.076, 0.564)
}
}
proc shape3d_119() {
dend_7[26] { pt3dadd(172.673, 104.566, 11.071, 0.564)
pt3dadd(172.76, 104.648, 11.066, 0.564)
pt3dadd(172.847, 104.731, 11.061, 0.564)
pt3dadd(172.934, 104.813, 11.055, 0.564)
pt3dadd(173.021, 104.895, 11.05, 0.564)
pt3dadd(173.108, 104.978, 11.045, 0.564)
pt3dadd(173.195, 105.06, 11.04, 0.564)
pt3dadd(173.282, 105.143, 11.035, 0.564)
pt3dadd(173.369, 105.225, 11.03, 0.564)
pt3dadd(173.456, 105.308, 11.024, 0.564)
pt3dadd(173.543, 105.39, 11.019, 0.564)
pt3dadd(173.63, 105.473, 11.014, 0.564)
pt3dadd(173.722, 105.55, 11.012, 0.564)
pt3dadd(173.818, 105.622, 11.014, 0.564)
pt3dadd(173.914, 105.693, 11.016, 0.564)
pt3dadd(174.011, 105.765, 11.017, 0.564)
pt3dadd(174.107, 105.836, 11.019, 0.564)
pt3dadd(174.203, 105.908, 11.021, 0.564)
pt3dadd(174.299, 105.979, 11.023, 0.564)
pt3dadd(174.396, 106.051, 11.025, 0.564)
pt3dadd(174.492, 106.123, 11.026, 0.564)
pt3dadd(174.588, 106.194, 11.028, 0.564)
pt3dadd(174.684, 106.266, 11.03, 0.564)
pt3dadd(174.781, 106.337, 11.032, 0.564)
pt3dadd(174.877, 106.409, 11.034, 0.564)
pt3dadd(174.973, 106.48, 11.035, 0.564)
pt3dadd(175.069, 106.552, 11.037, 0.564)
pt3dadd(175.166, 106.623, 11.039, 0.564)
pt3dadd(175.274, 106.672, 11.032, 0.564)
pt3dadd(175.385, 106.718, 11.023, 0.564)
pt3dadd(175.495, 106.764, 11.015, 0.564)
pt3dadd(175.606, 106.81, 11.006, 0.564)
pt3dadd(175.711, 106.864, 11, 0.572)
pt3dadd(175.8, 106.945, 11, 0.602)
pt3dadd(175.89, 107.025, 11, 0.63)
pt3dadd(175.979, 107.105, 11, 0.658)
pt3dadd(176.046, 107.197, 11, 0.678)
pt3dadd(176.066, 107.316, 11, 0.678)
pt3dadd(176.086, 107.434, 11, 0.678)
pt3dadd(176.105, 107.552, 11, 0.678)
pt3dadd(176.125, 107.671, 11, 0.678)
pt3dadd(176.144, 107.789, 11, 0.678)
pt3dadd(176.168, 107.906, 11, 0.678)
pt3dadd(176.204, 108.021, 11, 0.678)
pt3dadd(176.24, 108.135, 11, 0.678)
pt3dadd(176.276, 108.25, 11, 0.678)
pt3dadd(176.312, 108.364, 11, 0.678)
pt3dadd(176.347, 108.479, 11, 0.678)
pt3dadd(176.395, 108.589, 11, 0.678)
pt3dadd(176.448, 108.696, 11, 0.678)
pt3dadd(176.502, 108.804, 11, 0.678)
pt3dadd(176.556, 108.911, 11, 0.678)
pt3dadd(176.609, 109.018, 11, 0.678)
pt3dadd(176.641, 109.131, 11, 0.678)
pt3dadd(176.642, 109.251, 11, 0.678)
pt3dadd(176.645, 109.371, 11, 0.678)
pt3dadd(176.646, 109.491, 11, 0.678)
pt3dadd(176.648, 109.611, 11, 0.678)
pt3dadd(176.651, 109.731, 11, 0.678)
pt3dadd(176.652, 109.851, 11, 0.678)
pt3dadd(176.671, 109.969, 11, 0.678)
pt3dadd(176.704, 110.084, 11, 0.678)
pt3dadd(176.737, 110.199, 11, 0.678)
pt3dadd(176.77, 110.315, 11, 0.678)
pt3dadd(176.803, 110.43, 11, 0.678)
pt3dadd(176.837, 110.545, 11, 0.678)
pt3dadd(176.864, 110.662, 11, 0.678)
pt3dadd(176.892, 110.779, 11, 0.678)
pt3dadd(176.92, 110.896, 11, 0.678)
pt3dadd(176.947, 111.012, 11, 0.678)
pt3dadd(176.974, 111.129, 11, 0.678)
pt3dadd(177.001, 111.246, 11, 0.678)
pt3dadd(177.016, 111.365, 11.004, 0.678)
pt3dadd(177.031, 111.484, 11.009, 0.678)
pt3dadd(177.064, 111.592, 11.031, 0.678)
pt3dadd(177.115, 111.687, 11.074, 0.678)
pt3dadd(177.18, 111.783, 11.092, 0.678)
pt3dadd(177.251, 111.88, 11.098, 0.678)
pt3dadd(177.347, 111.939, 11.1, 0.678)
pt3dadd(177.463, 111.972, 11.1, 0.678)
pt3dadd(177.577, 112.006, 11.1, 0.678)
pt3dadd(177.689, 112.05, 11.1, 0.678)
pt3dadd(177.806, 112.07, 11.1, 0.678)
pt3dadd(177.926, 112.074, 11.1, 0.678)
pt3dadd(178.046, 112.079, 11.1, 0.678)
pt3dadd(178.162, 112.105, 11.103, 0.678)
pt3dadd(178.277, 112.139, 11.108, 0.678)
pt3dadd(178.385, 112.168, 11.134, 0.678)
pt3dadd(178.481, 112.189, 11.191, 0.678)
pt3dadd(178.568, 112.231, 11.245, 0.678)
pt3dadd(178.645, 112.3, 11.296, 0.678)
pt3dadd(178.674, 112.384, 11.358, 0.678)
pt3dadd(178.682, 112.466, 11.43, 0.678)
pt3dadd(178.688, 112.537, 11.51, 0.678)
pt3dadd(178.709, 112.611, 11.584, 0.678)
pt3dadd(178.763, 112.695, 11.641, 0.678)
pt3dadd(178.811, 112.792, 11.675, 0.678)
pt3dadd(178.856, 112.902, 11.691, 0.678)
pt3dadd(178.919, 113.001, 11.7, 0.678)
pt3dadd(179, 113.089, 11.7, 0.678)
pt3dadd(179.093, 113.158, 11.7, 0.678)
pt3dadd(179.209, 113.191, 11.7, 0.678)
pt3dadd(179.312, 113.245, 11.716, 0.678)
pt3dadd(179.411, 113.308, 11.739, 0.678)
pt3dadd(179.509, 113.371, 11.761, 0.678)
pt3dadd(179.608, 113.434, 11.784, 0.678)
pt3dadd(179.704, 113.5, 11.806, 0.678)
pt3dadd(179.796, 113.573, 11.829, 0.678)
pt3dadd(179.887, 113.646, 11.852, 0.678)
pt3dadd(179.978, 113.718, 11.875, 0.678)
pt3dadd(180.07, 113.791, 11.897, 0.678)
pt3dadd(180.18, 113.835, 11.9, 0.678)
pt3dadd(180.294, 113.874, 11.9, 0.678)
pt3dadd(180.391, 113.938, 11.903, 0.678)
pt3dadd(180.476, 114.023, 11.908, 0.678)
pt3dadd(180.562, 114.085, 11.941, 0.678)
pt3dadd(180.65, 114.121, 12.001, 0.678)
pt3dadd(180.726, 114.174, 12.064, 0.678)
pt3dadd(180.794, 114.235, 12.128, 0.678)
pt3dadd(180.872, 114.295, 12.186, 0.678)
pt3dadd(180.95, 114.354, 12.243, 0.678)
pt3dadd(181.028, 114.414, 12.3, 0.678)
pt3dadd(181.116, 114.496, 12.3, 0.678)
pt3dadd(181.204, 114.578, 12.3, 0.678)
pt3dadd(181.297, 114.654, 12.3, 0.678)
pt3dadd(181.391, 114.729, 12.3, 0.678)
pt3dadd(181.481, 114.806, 12.3, 0.678)
pt3dadd(181.514, 114.921, 12.3, 0.678)
pt3dadd(181.548, 115.037, 12.3, 0.678)
pt3dadd(181.613, 115.133, 12.3, 0.678)
pt3dadd(181.698, 115.218, 12.3, 0.678)
pt3dadd(181.783, 115.303, 12.3, 0.678)
pt3dadd(181.896, 115.32, 12.3, 0.678)
pt3dadd(182.016, 115.32, 12.3, 0.678)
pt3dadd(182.136, 115.32, 12.3, 0.678)
pt3dadd(182.255, 115.332, 12.3, 0.678)
pt3dadd(182.358, 115.39, 12.3, 0.678)
pt3dadd(182.461, 115.453, 12.3, 0.678)
pt3dadd(182.563, 115.516, 12.3, 0.678)
pt3dadd(182.665, 115.579, 12.3, 0.678)
pt3dadd(182.767, 115.642, 12.3, 0.678)
pt3dadd(182.855, 115.723, 12.3, 0.678)
pt3dadd(182.938, 115.809, 12.3, 0.678)
pt3dadd(183.022, 115.896, 12.3, 0.678)
pt3dadd(183.106, 115.982, 12.3, 0.678)
pt3dadd(183.188, 116.068, 12.3, 0.678)
pt3dadd(183.275, 116.152, 12.3, 0.678)
pt3dadd(183.36, 116.235, 12.3, 0.678)
pt3dadd(183.446, 116.319, 12.3, 0.678)
pt3dadd(183.533, 116.403, 12.3, 0.678)
pt3dadd(183.619, 116.486, 12.3, 0.678)
pt3dadd(183.709, 116.565, 12.3, 0.678)
pt3dadd(183.8, 116.642, 12.3, 0.678)
pt3dadd(183.893, 116.72, 12.3, 0.678)
pt3dadd(183.984, 116.798, 12.3, 0.678)
pt3dadd(184.075, 116.876, 12.3, 0.678)
pt3dadd(184.151, 116.969, 12.3, 0.678)
pt3dadd(184.225, 117.063, 12.3, 0.678)
pt3dadd(184.336, 117.097, 12.3, 0.678)
pt3dadd(184.453, 117.117, 12.3, 0.678)
pt3dadd(184.568, 117.147, 12.299, 0.678)
pt3dadd(184.67, 117.21, 12.294, 0.678)
pt3dadd(184.763, 117.272, 12.279, 0.678)
pt3dadd(184.782, 117.325, 12.191, 0.678)
pt3dadd(184.806, 117.378, 12.104, 0.678)
pt3dadd(184.874, 117.428, 12.033, 0.678)
pt3dadd(184.942, 117.477, 11.961, 0.678)
pt3dadd(185.012, 117.526, 11.892, 0.678)
pt3dadd(185.102, 117.571, 11.836, 0.678)
pt3dadd(185.186, 117.6, 11.773, 0.678)
pt3dadd(185.268, 117.635, 11.712, 0.678)
pt3dadd(185.356, 117.69, 11.661, 0.678)
pt3dadd(185.443, 117.745, 11.609, 0.678)
pt3dadd(185.531, 117.8, 11.558, 0.678)
pt3dadd(185.628, 117.828, 11.51, 0.678)
pt3dadd(185.735, 117.831, 11.464, 0.678)
pt3dadd(185.842, 117.833, 11.419, 0.678)
pt3dadd(185.948, 117.836, 11.373, 0.678)
pt3dadd(186.055, 117.838, 11.328, 0.678)
pt3dadd(186.166, 117.84, 11.294, 0.678)
pt3dadd(186.284, 117.84, 11.28, 0.678)
pt3dadd(186.403, 117.84, 11.266, 0.678)
pt3dadd(186.522, 117.84, 11.251, 0.678)
pt3dadd(186.641, 117.84, 11.237, 0.678)
pt3dadd(186.76, 117.84, 11.222, 0.678)
pt3dadd(186.878, 117.845, 11.208, 0.678)
pt3dadd(186.995, 117.867, 11.193, 0.678)
pt3dadd(187.111, 117.889, 11.179, 0.678)
pt3dadd(187.228, 117.912, 11.164, 0.678)
pt3dadd(187.345, 117.934, 11.15, 0.678)
pt3dadd(187.462, 117.957, 11.136, 0.678)
pt3dadd(187.58, 117.96, 11.125, 0.678)
pt3dadd(187.699, 117.96, 11.114, 0.678)
pt3dadd(187.819, 117.96, 11.104, 0.678)
pt3dadd(187.938, 117.96, 11.093, 0.678)
pt3dadd(188.058, 117.96, 11.083, 0.678)
pt3dadd(188.177, 117.96, 11.072, 0.678)
pt3dadd(188.294, 117.96, 11.054, 0.678)
pt3dadd(188.41, 117.96, 11.026, 0.678)
pt3dadd(188.525, 117.96, 11, 0.678)
}
}
proc shape3d_120() {
dend_7[26] { pt3dadd(188.645, 117.96, 11.004, 0.678)
pt3dadd(188.765, 117.96, 11.008, 0.678)
pt3dadd(188.881, 117.953, 11.018, 0.678)
pt3dadd(188.976, 117.909, 11.067, 0.678)
pt3dadd(189.071, 117.865, 11.116, 0.678)
pt3dadd(189.167, 117.822, 11.165, 0.678)
pt3dadd(189.27, 117.777, 11.193, 0.678)
pt3dadd(189.38, 117.733, 11.202, 0.678)
pt3dadd(189.493, 117.729, 11.235, 0.678)
pt3dadd(189.607, 117.724, 11.267, 0.678)
pt3dadd(189.72, 117.72, 11.3, 0.678)
}
dend_0[6] {pt3dclear()
pt3dadd(104.444, 101.386, 14.404, 11.3)
pt3dadd(104.459, 101.386, 14.391, 11.278)
pt3dadd(104.544, 101.386, 14.321, 11.156)
pt3dadd(104.629, 101.386, 14.25, 11.032)
pt3dadd(104.714, 101.386, 14.179, 10.91)
pt3dadd(104.799, 101.386, 14.109, 10.786)
pt3dadd(104.883, 101.386, 14.038, 10.664)
pt3dadd(104.968, 101.386, 13.967, 10.542)
pt3dadd(105.053, 101.386, 13.896, 10.418)
pt3dadd(105.138, 101.386, 13.826, 10.296)
pt3dadd(105.223, 101.386, 13.755, 10.172)
pt3dadd(105.307, 101.386, 13.684, 10.05)
pt3dadd(105.392, 101.386, 13.613, 9.926)
pt3dadd(105.477, 101.381, 13.543, 9.788)
pt3dadd(105.563, 101.371, 13.473, 9.63)
pt3dadd(105.648, 101.361, 13.404, 9.472)
pt3dadd(105.734, 101.351, 13.334, 9.314)
pt3dadd(105.819, 101.341, 13.264, 9.156)
pt3dadd(105.904, 101.331, 13.195, 8.998)
pt3dadd(105.99, 101.321, 13.125, 8.84)
pt3dadd(106.075, 101.311, 13.055, 8.682)
pt3dadd(106.161, 101.301, 12.985, 8.522)
pt3dadd(106.246, 101.291, 12.915, 8.364)
pt3dadd(106.332, 101.277, 12.846, 8.192)
pt3dadd(106.417, 101.258, 12.778, 8.002)
pt3dadd(106.503, 101.239, 12.71, 7.814)
pt3dadd(106.588, 101.22, 12.641, 7.624)
pt3dadd(106.674, 101.2, 12.573, 7.434)
pt3dadd(106.759, 101.181, 12.505, 7.246)
pt3dadd(106.845, 101.162, 12.436, 7.056)
pt3dadd(106.93, 101.143, 12.368, 6.868)
pt3dadd(107.016, 101.124, 12.3, 6.678)
pt3dadd(107.101, 101.105, 12.232, 6.488)
pt3dadd(107.186, 101.083, 12.163, 6.358)
pt3dadd(107.27, 101.058, 12.095, 6.3)
pt3dadd(107.353, 101.032, 12.026, 6.242)
pt3dadd(107.437, 101.007, 11.958, 6.184)
pt3dadd(107.521, 100.982, 11.889, 6.128)
pt3dadd(107.605, 100.957, 11.821, 6.07)
pt3dadd(107.689, 100.932, 11.753, 6.012)
pt3dadd(107.772, 100.907, 11.684, 5.954)
pt3dadd(107.856, 100.882, 11.616, 5.896)
pt3dadd(107.94, 100.857, 11.547, 5.838)
pt3dadd(108.024, 100.821, 11.483, 5.756)
pt3dadd(108.107, 100.772, 11.424, 5.648)
pt3dadd(108.191, 100.723, 11.365, 5.538)
pt3dadd(108.274, 100.674, 11.306, 5.428)
pt3dadd(108.358, 100.625, 11.247, 5.32)
pt3dadd(108.441, 100.576, 11.188, 5.21)
pt3dadd(108.525, 100.527, 11.129, 5.102)
pt3dadd(108.608, 100.478, 11.07, 4.992)
pt3dadd(108.692, 100.429, 11.011, 4.882)
pt3dadd(108.775, 100.38, 10.951, 4.774)
pt3dadd(108.852, 100.316, 10.897, 4.63)
pt3dadd(108.926, 100.244, 10.845, 4.47)
pt3dadd(109, 100.173, 10.794, 4.308)
pt3dadd(109.074, 100.101, 10.742, 4.148)
pt3dadd(109.147, 100.03, 10.69, 3.986)
pt3dadd(109.221, 99.958, 10.639, 3.824)
pt3dadd(109.294, 99.887, 10.587, 3.664)
pt3dadd(109.368, 99.815, 10.535, 3.502)
pt3dadd(109.442, 99.743, 10.483, 3.342)
pt3dadd(109.515, 99.672, 10.432, 3.18)
pt3dadd(109.563, 99.587, 10.375, 3.044)
pt3dadd(109.604, 99.498, 10.317, 2.916)
pt3dadd(109.644, 99.409, 10.259, 2.786)
pt3dadd(109.684, 99.32, 10.2, 2.658)
}
dend_7[27] {pt3dclear()
pt3dadd(109.684, 99.32, 10.2, 2.658)
pt3dadd(109.725, 99.231, 10.142, 2.528)
pt3dadd(109.765, 99.142, 10.084, 2.4)
pt3dadd(109.805, 99.054, 10.026, 2.272)
pt3dadd(109.845, 98.965, 9.968, 2.142)
pt3dadd(109.886, 98.876, 9.91, 2.014)
pt3dadd(109.926, 98.787, 9.851, 1.886)
pt3dadd(109.954, 98.695, 9.792, 1.824)
pt3dadd(109.979, 98.602, 9.732, 1.786)
pt3dadd(110.003, 98.508, 9.673, 1.746)
pt3dadd(110.027, 98.415, 9.613, 1.706)
pt3dadd(110.051, 98.322, 9.553, 1.668)
pt3dadd(110.076, 98.229, 9.494, 1.628)
pt3dadd(110.1, 98.136, 9.434, 1.588)
pt3dadd(110.124, 98.043, 9.374, 1.55)
pt3dadd(110.149, 97.949, 9.314, 1.51)
pt3dadd(110.173, 97.856, 9.255, 1.47)
pt3dadd(110.194, 97.762, 9.195, 1.45)
pt3dadd(110.213, 97.668, 9.135, 1.436)
pt3dadd(110.233, 97.574, 9.075, 1.42)
pt3dadd(110.252, 97.48, 9.016, 1.406)
pt3dadd(110.272, 97.386, 8.956, 1.39)
pt3dadd(110.291, 97.291, 8.896, 1.374)
pt3dadd(110.311, 97.197, 8.836, 1.36)
pt3dadd(110.33, 97.103, 8.776, 1.344)
pt3dadd(110.35, 97.009, 8.717, 1.33)
pt3dadd(110.37, 96.915, 8.657, 1.314)
pt3dadd(110.388, 96.82, 8.597, 1.3)
pt3dadd(110.406, 96.726, 8.537, 1.284)
pt3dadd(110.424, 96.631, 8.478, 1.268)
pt3dadd(110.443, 96.537, 8.418, 1.254)
pt3dadd(110.461, 96.442, 8.358, 1.238)
pt3dadd(110.479, 96.348, 8.299, 1.224)
pt3dadd(110.497, 96.253, 8.239, 1.208)
pt3dadd(110.516, 96.159, 8.179, 1.192)
pt3dadd(110.534, 96.064, 8.12, 1.178)
pt3dadd(110.552, 95.97, 8.06, 1.162)
pt3dadd(110.594, 95.87, 8.018, 1.168)
pt3dadd(110.641, 95.769, 7.982, 1.178)
pt3dadd(110.689, 95.668, 7.946, 1.188)
pt3dadd(110.737, 95.567, 7.91, 1.198)
pt3dadd(110.784, 95.465, 7.873, 1.208)
pt3dadd(110.832, 95.364, 7.837, 1.22)
pt3dadd(110.88, 95.263, 7.801, 1.23)
pt3dadd(110.928, 95.162, 7.764, 1.24)
pt3dadd(110.975, 95.061, 7.728, 1.25)
pt3dadd(111.023, 94.96, 7.692, 1.26)
pt3dadd(111.082, 94.859, 7.669, 1.264)
pt3dadd(111.141, 94.758, 7.648, 1.266)
pt3dadd(111.201, 94.657, 7.626, 1.27)
pt3dadd(111.261, 94.556, 7.605, 1.272)
pt3dadd(111.321, 94.456, 7.583, 1.276)
pt3dadd(111.38, 94.355, 7.562, 1.278)
pt3dadd(111.44, 94.254, 7.54, 1.28)
pt3dadd(111.5, 94.153, 7.519, 1.284)
pt3dadd(111.56, 94.052, 7.497, 1.286)
pt3dadd(111.619, 93.951, 7.476, 1.29)
pt3dadd(111.686, 93.852, 7.467, 1.274)
pt3dadd(111.753, 93.753, 7.457, 1.258)
pt3dadd(111.82, 93.654, 7.448, 1.242)
pt3dadd(111.887, 93.555, 7.439, 1.226)
pt3dadd(111.954, 93.456, 7.43, 1.21)
pt3dadd(112.021, 93.357, 7.421, 1.194)
pt3dadd(112.088, 93.259, 7.412, 1.178)
pt3dadd(112.155, 93.16, 7.403, 1.162)
pt3dadd(112.222, 93.061, 7.393, 1.146)
pt3dadd(112.289, 92.962, 7.384, 1.13)
}
dend_7[28] {pt3dclear()
pt3dadd(112.289, 92.962, 7.384, 1.13)
pt3dadd(112.307, 92.919, 7.384, 1.122)
pt3dadd(112.355, 92.809, 7.384, 1.106)
pt3dadd(112.402, 92.698, 7.384, 1.088)
pt3dadd(112.45, 92.588, 7.384, 1.07)
pt3dadd(112.497, 92.478, 7.384, 1.052)
pt3dadd(112.545, 92.368, 7.384, 1.034)
pt3dadd(112.593, 92.258, 7.384, 1.016)
pt3dadd(112.64, 92.148, 7.384, 0.998)
pt3dadd(112.688, 92.038, 7.384, 0.982)
pt3dadd(112.736, 91.927, 7.384, 0.964)
pt3dadd(112.783, 91.817, 7.384, 0.946)
pt3dadd(112.831, 91.707, 7.384, 0.928)
pt3dadd(112.863, 91.592, 7.384, 0.924)
pt3dadd(112.893, 91.476, 7.384, 0.922)
pt3dadd(112.923, 91.359, 7.384, 0.92)
pt3dadd(112.952, 91.243, 7.384, 0.918)
pt3dadd(112.982, 91.127, 7.384, 0.914)
pt3dadd(113.012, 91.011, 7.384, 0.912)
pt3dadd(113.041, 90.894, 7.384, 0.91)
pt3dadd(113.071, 90.778, 7.384, 0.908)
pt3dadd(113.101, 90.662, 7.384, 0.906)
pt3dadd(113.13, 90.545, 7.384, 0.904)
pt3dadd(113.169, 90.432, 7.384, 0.924)
pt3dadd(113.209, 90.319, 7.384, 0.948)
pt3dadd(113.249, 90.206, 7.384, 0.974)
pt3dadd(113.29, 90.093, 7.384, 0.998)
pt3dadd(113.33, 89.98, 7.384, 1.022)
pt3dadd(113.37, 89.867, 7.384, 1.046)
pt3dadd(113.41, 89.753, 7.384, 1.07)
pt3dadd(113.45, 89.64, 7.384, 1.094)
pt3dadd(113.491, 89.527, 7.384, 1.12)
pt3dadd(113.531, 89.414, 7.384, 1.144)
pt3dadd(113.571, 89.301, 7.384, 1.144)
pt3dadd(113.611, 89.188, 7.384, 1.142)
pt3dadd(113.652, 89.075, 7.384, 1.14)
pt3dadd(113.692, 88.962, 7.384, 1.138)
pt3dadd(113.732, 88.849, 7.384, 1.136)
pt3dadd(113.772, 88.736, 7.384, 1.134)
pt3dadd(113.813, 88.623, 7.384, 1.132)
pt3dadd(113.853, 88.51, 7.384, 1.13)
pt3dadd(113.893, 88.397, 7.384, 1.128)
pt3dadd(113.934, 88.284, 7.384, 1.126)
pt3dadd(113.964, 88.168, 7.384, 1.088)
pt3dadd(113.994, 88.052, 7.384, 1.048)
pt3dadd(114.024, 87.935, 7.384, 1.006)
pt3dadd(114.054, 87.819, 7.384, 0.966)
pt3dadd(114.084, 87.703, 7.384, 0.924)
pt3dadd(114.113, 87.587, 7.384, 0.884)
pt3dadd(114.143, 87.471, 7.384, 0.842)
pt3dadd(114.173, 87.354, 7.384, 0.802)
pt3dadd(114.203, 87.238, 7.384, 0.76)
pt3dadd(114.232, 87.122, 7.384, 0.72)
pt3dadd(114.255, 87.004, 7.384, 0.732)
pt3dadd(114.276, 86.886, 7.384, 0.752)
}
}
proc shape3d_121() {
dend_7[28] { pt3dadd(114.297, 86.768, 7.384, 0.77)
pt3dadd(114.318, 86.649, 7.384, 0.79)
pt3dadd(114.339, 86.531, 7.384, 0.808)
pt3dadd(114.361, 86.413, 7.384, 0.826)
pt3dadd(114.382, 86.295, 7.384, 0.846)
pt3dadd(114.403, 86.177, 7.384, 0.864)
pt3dadd(114.424, 86.059, 7.384, 0.884)
pt3dadd(114.446, 85.941, 7.384, 0.902)
pt3dadd(114.46, 85.822, 7.384, 0.904)
pt3dadd(114.474, 85.703, 7.384, 0.904)
pt3dadd(114.488, 85.583, 7.384, 0.904)
pt3dadd(114.502, 85.464, 7.384, 0.904)
pt3dadd(114.516, 85.345, 7.384, 0.904)
pt3dadd(114.53, 85.226, 7.384, 0.904)
pt3dadd(114.544, 85.107, 7.384, 0.904)
pt3dadd(114.558, 84.987, 7.384, 0.904)
pt3dadd(114.572, 84.868, 7.384, 0.904)
pt3dadd(114.585, 84.749, 7.384, 0.904)
pt3dadd(114.623, 84.635, 7.384, 0.918)
pt3dadd(114.663, 84.522, 7.384, 0.932)
pt3dadd(114.702, 84.409, 7.384, 0.948)
pt3dadd(114.742, 84.295, 7.384, 0.962)
pt3dadd(114.782, 84.182, 7.384, 0.978)
pt3dadd(114.821, 84.069, 7.384, 0.992)
pt3dadd(114.861, 83.956, 7.384, 1.008)
pt3dadd(114.9, 83.842, 7.384, 1.022)
pt3dadd(114.94, 83.729, 7.384, 1.038)
pt3dadd(114.98, 83.616, 7.384, 1.052)
pt3dadd(115.016, 83.501, 7.384, 1.05)
pt3dadd(115.051, 83.387, 7.384, 1.048)
pt3dadd(115.087, 83.272, 7.384, 1.044)
pt3dadd(115.122, 83.158, 7.384, 1.04)
pt3dadd(115.158, 83.043, 7.384, 1.038)
pt3dadd(115.194, 82.929, 7.384, 1.034)
pt3dadd(115.229, 82.814, 7.384, 1.032)
pt3dadd(115.265, 82.699, 7.384, 1.028)
pt3dadd(115.301, 82.585, 7.384, 1.026)
pt3dadd(115.336, 82.47, 7.384, 1.022)
pt3dadd(115.36, 82.352, 7.384, 0.99)
pt3dadd(115.383, 82.235, 7.384, 0.958)
pt3dadd(115.406, 82.117, 7.384, 0.924)
pt3dadd(115.429, 81.999, 7.384, 0.892)
pt3dadd(115.452, 81.882, 7.384, 0.858)
pt3dadd(115.476, 81.764, 7.384, 0.824)
pt3dadd(115.499, 81.646, 7.384, 0.792)
pt3dadd(115.522, 81.528, 7.384, 0.758)
pt3dadd(115.545, 81.411, 7.384, 0.726)
pt3dadd(115.568, 81.293, 7.384, 0.692)
}
dend_7[29] {pt3dclear()
pt3dadd(115.568, 81.293, 7.384, 0.692)
pt3dadd(115.573, 81.266, 7.375, 0.672)
pt3dadd(115.584, 81.16, 7.371, 0.624)
pt3dadd(115.594, 81.054, 7.367, 0.578)
pt3dadd(115.605, 80.949, 7.362, 0.532)
pt3dadd(115.615, 80.843, 7.358, 0.484)
pt3dadd(115.626, 80.737, 7.354, 0.438)
pt3dadd(115.636, 80.632, 7.349, 0.39)
pt3dadd(115.647, 80.526, 7.345, 0.344)
pt3dadd(115.658, 80.42, 7.341, 0.298)
pt3dadd(115.668, 80.314, 7.337, 0.25)
pt3dadd(115.674, 80.209, 7.332, 0.226)
pt3dadd(115.674, 80.102, 7.328, 0.226)
pt3dadd(115.674, 79.996, 7.324, 0.226)
pt3dadd(115.674, 79.89, 7.319, 0.228)
pt3dadd(115.674, 79.784, 7.315, 0.228)
pt3dadd(115.674, 79.678, 7.311, 0.228)
pt3dadd(115.674, 79.571, 7.306, 0.228)
pt3dadd(115.674, 79.465, 7.302, 0.228)
pt3dadd(115.674, 79.359, 7.298, 0.23)
pt3dadd(115.674, 79.253, 7.293, 0.23)
pt3dadd(115.674, 79.147, 7.289, 0.238)
pt3dadd(115.674, 79.041, 7.285, 0.258)
pt3dadd(115.674, 78.934, 7.28, 0.278)
pt3dadd(115.674, 78.828, 7.276, 0.296)
pt3dadd(115.674, 78.722, 7.271, 0.316)
pt3dadd(115.674, 78.616, 7.267, 0.336)
pt3dadd(115.674, 78.51, 7.263, 0.354)
pt3dadd(115.674, 78.403, 7.258, 0.374)
pt3dadd(115.674, 78.297, 7.254, 0.394)
pt3dadd(115.674, 78.191, 7.249, 0.412)
pt3dadd(115.674, 78.085, 7.245, 0.416)
pt3dadd(115.674, 77.979, 7.24, 0.404)
pt3dadd(115.674, 77.873, 7.236, 0.39)
pt3dadd(115.674, 77.766, 7.231, 0.376)
pt3dadd(115.674, 77.66, 7.227, 0.362)
pt3dadd(115.674, 77.554, 7.222, 0.35)
pt3dadd(115.674, 77.448, 7.218, 0.336)
pt3dadd(115.674, 77.342, 7.213, 0.322)
pt3dadd(115.674, 77.235, 7.208, 0.308)
pt3dadd(115.674, 77.129, 7.204, 0.294)
pt3dadd(115.674, 77.023, 7.199, 0.284)
pt3dadd(115.674, 76.917, 7.194, 0.278)
pt3dadd(115.674, 76.811, 7.189, 0.272)
pt3dadd(115.674, 76.704, 7.184, 0.266)
pt3dadd(115.675, 76.598, 7.18, 0.26)
pt3dadd(115.675, 76.492, 7.175, 0.254)
pt3dadd(115.675, 76.386, 7.17, 0.248)
pt3dadd(115.675, 76.28, 7.165, 0.242)
pt3dadd(115.676, 76.174, 7.16, 0.236)
pt3dadd(115.676, 76.067, 7.155, 0.23)
pt3dadd(115.676, 75.961, 7.15, 0.23)
pt3dadd(115.677, 75.855, 7.145, 0.24)
pt3dadd(115.677, 75.749, 7.139, 0.25)
pt3dadd(115.678, 75.643, 7.134, 0.26)
pt3dadd(115.679, 75.537, 7.128, 0.27)
pt3dadd(115.679, 75.43, 7.123, 0.28)
pt3dadd(115.68, 75.324, 7.117, 0.29)
pt3dadd(115.68, 75.218, 7.112, 0.3)
pt3dadd(115.681, 75.112, 7.106, 0.31)
pt3dadd(115.682, 75.006, 7.101, 0.32)
pt3dadd(115.683, 74.899, 7.095, 0.33)
pt3dadd(115.684, 74.793, 7.088, 0.344)
pt3dadd(115.685, 74.687, 7.082, 0.356)
pt3dadd(115.686, 74.581, 7.075, 0.368)
pt3dadd(115.687, 74.475, 7.068, 0.382)
pt3dadd(115.688, 74.369, 7.062, 0.394)
pt3dadd(115.69, 74.263, 7.055, 0.408)
pt3dadd(115.691, 74.157, 7.049, 0.42)
pt3dadd(115.692, 74.05, 7.042, 0.432)
pt3dadd(115.693, 73.944, 7.036, 0.446)
pt3dadd(115.695, 73.838, 7.028, 0.454)
pt3dadd(115.697, 73.732, 7.02, 0.456)
pt3dadd(115.699, 73.626, 7.011, 0.46)
pt3dadd(115.702, 73.52, 7.002, 0.464)
pt3dadd(115.704, 73.414, 6.994, 0.466)
pt3dadd(115.706, 73.308, 6.985, 0.47)
pt3dadd(115.709, 73.202, 6.977, 0.474)
pt3dadd(115.711, 73.096, 6.968, 0.476)
pt3dadd(115.713, 72.99, 6.96, 0.48)
pt3dadd(115.715, 72.884, 6.951, 0.482)
pt3dadd(115.719, 72.778, 6.94, 0.494)
pt3dadd(115.723, 72.672, 6.928, 0.512)
pt3dadd(115.727, 72.566, 6.915, 0.532)
pt3dadd(115.731, 72.461, 6.903, 0.552)
pt3dadd(115.731, 72.474, 6.898, 0.552)
pt3dadd(115.731, 72.488, 6.894, 0.552)
pt3dadd(115.735, 72.383, 6.881, 0.57)
pt3dadd(115.739, 72.277, 6.869, 0.59)
pt3dadd(115.743, 72.171, 6.856, 0.61)
pt3dadd(115.747, 72.066, 6.843, 0.628)
pt3dadd(115.751, 71.96, 6.831, 0.648)
pt3dadd(115.755, 71.854, 6.818, 0.666)
pt3dadd(115.762, 71.749, 6.803, 0.676)
pt3dadd(115.772, 71.645, 6.784, 0.678)
pt3dadd(115.782, 71.54, 6.766, 0.678)
pt3dadd(115.792, 71.436, 6.747, 0.678)
pt3dadd(115.802, 71.331, 6.729, 0.678)
pt3dadd(115.812, 71.226, 6.71, 0.678)
pt3dadd(115.821, 71.122, 6.692, 0.678)
pt3dadd(115.831, 71.018, 6.673, 0.678)
pt3dadd(115.841, 70.913, 6.655, 0.678)
pt3dadd(115.851, 70.808, 6.636, 0.678)
pt3dadd(115.864, 70.708, 6.607, 0.684)
pt3dadd(115.878, 70.611, 6.565, 0.698)
pt3dadd(115.893, 70.514, 6.524, 0.712)
pt3dadd(115.908, 70.418, 6.483, 0.726)
pt3dadd(115.908, 70.431, 6.479, 0.726)
pt3dadd(115.923, 70.335, 6.437, 0.742)
pt3dadd(115.937, 70.238, 6.396, 0.756)
pt3dadd(115.952, 70.142, 6.354, 0.77)
pt3dadd(115.967, 70.045, 6.313, 0.784)
pt3dadd(115.981, 69.948, 6.272, 0.798)
pt3dadd(115.996, 69.852, 6.23, 0.812)
pt3dadd(116.021, 69.757, 6.189, 0.808)
pt3dadd(116.053, 69.665, 6.148, 0.792)
pt3dadd(116.086, 69.572, 6.106, 0.776)
pt3dadd(116.118, 69.479, 6.065, 0.758)
pt3dadd(116.151, 69.387, 6.024, 0.742)
pt3dadd(116.184, 69.294, 5.982, 0.726)
pt3dadd(116.216, 69.201, 5.941, 0.71)
pt3dadd(116.249, 69.108, 5.9, 0.692)
pt3dadd(116.282, 69.016, 5.858, 0.676)
pt3dadd(116.314, 68.923, 5.817, 0.66)
pt3dadd(116.356, 68.833, 5.778, 0.626)
pt3dadd(116.403, 68.744, 5.741, 0.582)
pt3dadd(116.451, 68.654, 5.704, 0.54)
pt3dadd(116.498, 68.565, 5.667, 0.498)
pt3dadd(116.545, 68.476, 5.629, 0.454)
pt3dadd(116.592, 68.387, 5.592, 0.412)
pt3dadd(116.639, 68.298, 5.555, 0.368)
pt3dadd(116.686, 68.209, 5.518, 0.326)
pt3dadd(116.733, 68.119, 5.481, 0.284)
pt3dadd(116.78, 68.03, 5.444, 0.24)
pt3dadd(116.821, 67.942, 5.4, 0.226)
pt3dadd(116.859, 67.854, 5.352, 0.226)
pt3dadd(116.896, 67.767, 5.305, 0.226)
pt3dadd(116.934, 67.679, 5.257, 0.226)
pt3dadd(116.971, 67.592, 5.21, 0.226)
pt3dadd(117.009, 67.504, 5.162, 0.226)
pt3dadd(117.046, 67.416, 5.115, 0.226)
pt3dadd(117.084, 67.329, 5.067, 0.226)
pt3dadd(117.122, 67.241, 5.02, 0.226)
pt3dadd(117.159, 67.154, 4.972, 0.226)
pt3dadd(117.205, 67.064, 4.936, 0.242)
pt3dadd(117.256, 66.975, 4.904, 0.268)
pt3dadd(117.307, 66.885, 4.873, 0.294)
pt3dadd(117.357, 66.795, 4.842, 0.32)
pt3dadd(117.408, 66.705, 4.811, 0.344)
pt3dadd(117.459, 66.614, 4.78, 0.37)
pt3dadd(117.51, 66.524, 4.749, 0.396)
pt3dadd(117.56, 66.434, 4.718, 0.422)
}
}
proc shape3d_122() {
dend_7[29] { pt3dadd(117.611, 66.344, 4.687, 0.446)
pt3dadd(117.662, 66.255, 4.656, 0.472)
pt3dadd(117.709, 66.161, 4.632, 0.482)
pt3dadd(117.755, 66.066, 4.61, 0.488)
pt3dadd(117.801, 65.97, 4.589, 0.492)
pt3dadd(117.846, 65.875, 4.568, 0.498)
pt3dadd(117.892, 65.78, 4.546, 0.502)
pt3dadd(117.938, 65.685, 4.525, 0.508)
pt3dadd(117.984, 65.59, 4.503, 0.512)
pt3dadd(118.029, 65.495, 4.482, 0.518)
pt3dadd(118.075, 65.4, 4.461, 0.522)
pt3dadd(118.121, 65.305, 4.439, 0.528)
pt3dadd(118.155, 65.204, 4.425, 0.504)
pt3dadd(118.185, 65.102, 4.412, 0.474)
pt3dadd(118.215, 65.001, 4.399, 0.444)
pt3dadd(118.245, 64.899, 4.386, 0.414)
pt3dadd(118.276, 64.797, 4.373, 0.384)
pt3dadd(118.306, 64.695, 4.36, 0.354)
pt3dadd(118.336, 64.593, 4.347, 0.322)
pt3dadd(118.366, 64.492, 4.334, 0.292)
pt3dadd(118.397, 64.39, 4.321, 0.262)
pt3dadd(118.427, 64.288, 4.308, 0.232)
pt3dadd(118.451, 64.184, 4.302, 0.226)
pt3dadd(118.473, 64.08, 4.298, 0.226)
pt3dadd(118.495, 63.976, 4.293, 0.226)
pt3dadd(118.517, 63.872, 4.289, 0.226)
pt3dadd(118.539, 63.768, 4.285, 0.226)
pt3dadd(118.562, 63.664, 4.281, 0.226)
pt3dadd(118.584, 63.56, 4.276, 0.226)
pt3dadd(118.606, 63.456, 4.272, 0.226)
pt3dadd(118.628, 63.352, 4.268, 0.226)
pt3dadd(118.65, 63.248, 4.263, 0.226)
pt3dadd(118.668, 63.143, 4.259, 0.226)
pt3dadd(118.684, 63.038, 4.255, 0.226)
pt3dadd(118.7, 62.932, 4.251, 0.226)
pt3dadd(118.716, 62.827, 4.246, 0.226)
pt3dadd(118.732, 62.722, 4.242, 0.226)
pt3dadd(118.748, 62.617, 4.238, 0.226)
pt3dadd(118.764, 62.512, 4.233, 0.226)
pt3dadd(118.78, 62.407, 4.229, 0.226)
pt3dadd(118.796, 62.302, 4.225, 0.226)
pt3dadd(118.812, 62.197, 4.22, 0.226)
pt3dadd(118.849, 62.097, 4.216, 0.238)
pt3dadd(118.892, 61.999, 4.212, 0.252)
pt3dadd(118.934, 61.9, 4.207, 0.266)
pt3dadd(118.976, 61.802, 4.203, 0.28)
pt3dadd(119.018, 61.703, 4.199, 0.296)
pt3dadd(119.06, 61.605, 4.194, 0.31)
pt3dadd(119.102, 61.506, 4.19, 0.324)
pt3dadd(119.144, 61.408, 4.186, 0.338)
pt3dadd(119.187, 61.309, 4.181, 0.354)
pt3dadd(119.229, 61.211, 4.177, 0.368)
pt3dadd(119.272, 61.112, 4.172, 0.402)
pt3dadd(119.315, 61.014, 4.168, 0.44)
pt3dadd(119.358, 60.916, 4.164, 0.478)
pt3dadd(119.401, 60.818, 4.159, 0.514)
pt3dadd(119.444, 60.72, 4.155, 0.552)
pt3dadd(119.487, 60.622, 4.15, 0.59)
pt3dadd(119.53, 60.523, 4.146, 0.628)
pt3dadd(119.573, 60.425, 4.141, 0.664)
pt3dadd(119.616, 60.327, 4.137, 0.702)
pt3dadd(119.659, 60.229, 4.132, 0.74)
pt3dadd(119.696, 60.129, 4.128, 0.758)
pt3dadd(119.732, 60.028, 4.123, 0.776)
pt3dadd(119.768, 59.928, 4.119, 0.792)
pt3dadd(119.804, 59.827, 4.114, 0.808)
pt3dadd(119.841, 59.726, 4.109, 0.824)
pt3dadd(119.877, 59.626, 4.105, 0.84)
pt3dadd(119.913, 59.526, 4.1, 0.856)
pt3dadd(119.949, 59.425, 4.095, 0.874)
pt3dadd(119.985, 59.324, 4.091, 0.89)
pt3dadd(120.022, 59.224, 4.086, 0.906)
pt3dadd(120.056, 59.122, 4.081, 0.848)
pt3dadd(120.089, 59.021, 4.076, 0.78)
pt3dadd(120.121, 58.92, 4.072, 0.71)
pt3dadd(120.155, 58.818, 4.067, 0.642)
pt3dadd(120.188, 58.717, 4.062, 0.574)
pt3dadd(120.221, 58.615, 4.057, 0.506)
pt3dadd(120.254, 58.514, 4.052, 0.438)
pt3dadd(120.288, 58.412, 4.047, 0.37)
pt3dadd(120.32, 58.311, 4.042, 0.302)
pt3dadd(120.354, 58.209, 4.037, 0.232)
pt3dadd(120.406, 58.115, 4.032, 0.226)
pt3dadd(120.458, 58.022, 4.026, 0.226)
pt3dadd(120.512, 57.928, 4.021, 0.226)
pt3dadd(120.566, 57.835, 4.015, 0.226)
pt3dadd(120.62, 57.741, 4.01, 0.226)
pt3dadd(120.674, 57.648, 4.004, 0.226)
pt3dadd(120.728, 57.555, 3.999, 0.226)
pt3dadd(120.782, 57.461, 3.993, 0.226)
pt3dadd(120.836, 57.368, 3.987, 0.226)
pt3dadd(120.889, 57.274, 3.982, 0.226)
pt3dadd(120.94, 57.179, 3.976, 0.238)
pt3dadd(120.988, 57.084, 3.969, 0.252)
pt3dadd(121.037, 56.988, 3.962, 0.266)
pt3dadd(121.086, 56.892, 3.956, 0.28)
pt3dadd(121.135, 56.797, 3.949, 0.294)
pt3dadd(121.184, 56.701, 3.943, 0.308)
pt3dadd(121.235, 56.606, 3.936, 0.32)
pt3dadd(121.284, 56.51, 3.93, 0.334)
pt3dadd(121.333, 56.415, 3.923, 0.348)
pt3dadd(121.382, 56.319, 3.916, 0.362)
pt3dadd(121.438, 56.227, 3.908, 0.378)
pt3dadd(121.493, 56.135, 3.899, 0.396)
pt3dadd(121.549, 56.043, 3.891, 0.412)
pt3dadd(121.606, 55.951, 3.882, 0.43)
pt3dadd(121.662, 55.859, 3.874, 0.446)
pt3dadd(121.718, 55.767, 3.865, 0.464)
pt3dadd(121.775, 55.675, 3.857, 0.48)
pt3dadd(121.831, 55.583, 3.848, 0.498)
pt3dadd(121.888, 55.491, 3.84, 0.516)
pt3dadd(121.944, 55.399, 3.831, 0.532)
pt3dadd(122.006, 55.311, 3.821, 0.544)
pt3dadd(122.071, 55.224, 3.81, 0.558)
pt3dadd(122.136, 55.137, 3.799, 0.57)
pt3dadd(122.2, 55.05, 3.789, 0.584)
pt3dadd(122.264, 54.963, 3.778, 0.596)
pt3dadd(122.329, 54.876, 3.767, 0.608)
pt3dadd(122.393, 54.789, 3.757, 0.622)
pt3dadd(122.458, 54.702, 3.746, 0.634)
pt3dadd(122.522, 54.615, 3.736, 0.646)
pt3dadd(122.587, 54.527, 3.725, 0.66)
pt3dadd(122.652, 54.442, 3.711, 0.646)
pt3dadd(122.718, 54.356, 3.697, 0.63)
pt3dadd(122.784, 54.27, 3.683, 0.614)
pt3dadd(122.85, 54.185, 3.669, 0.598)
pt3dadd(122.916, 54.099, 3.655, 0.582)
pt3dadd(122.983, 54.014, 3.641, 0.566)
pt3dadd(123.049, 53.928, 3.627, 0.55)
pt3dadd(123.115, 53.843, 3.613, 0.534)
pt3dadd(123.181, 53.757, 3.599, 0.518)
pt3dadd(123.247, 53.671, 3.585, 0.502)
pt3dadd(123.296, 53.581, 3.555, 0.518)
pt3dadd(123.346, 53.491, 3.523, 0.536)
pt3dadd(123.395, 53.401, 3.491, 0.556)
pt3dadd(123.445, 53.31, 3.459, 0.574)
pt3dadd(123.494, 53.22, 3.427, 0.594)
pt3dadd(123.544, 53.129, 3.395, 0.612)
pt3dadd(123.593, 53.039, 3.363, 0.632)
pt3dadd(123.642, 52.949, 3.331, 0.65)
pt3dadd(123.691, 52.858, 3.299, 0.668)
pt3dadd(123.738, 52.768, 3.266, 0.688)
pt3dadd(123.773, 52.673, 3.231, 0.71)
pt3dadd(123.808, 52.578, 3.195, 0.732)
pt3dadd(123.842, 52.483, 3.16, 0.754)
pt3dadd(123.877, 52.389, 3.124, 0.776)
pt3dadd(123.912, 52.294, 3.089, 0.798)
pt3dadd(123.947, 52.199, 3.053, 0.82)
pt3dadd(123.982, 52.104, 3.018, 0.84)
pt3dadd(124.016, 52.01, 2.982, 0.862)
pt3dadd(124.051, 51.915, 2.946, 0.884)
pt3dadd(124.084, 51.82, 2.912, 0.904)
pt3dadd(124.105, 51.719, 2.885, 0.896)
pt3dadd(124.128, 51.618, 2.858, 0.888)
pt3dadd(124.15, 51.517, 2.832, 0.882)
pt3dadd(124.172, 51.416, 2.805, 0.874)
pt3dadd(124.194, 51.315, 2.778, 0.868)
pt3dadd(124.217, 51.214, 2.751, 0.86)
pt3dadd(124.238, 51.113, 2.725, 0.852)
pt3dadd(124.261, 51.012, 2.698, 0.846)
pt3dadd(124.282, 50.911, 2.671, 0.838)
pt3dadd(124.304, 50.81, 2.646, 0.826)
pt3dadd(124.322, 50.706, 2.629, 0.77)
pt3dadd(124.339, 50.602, 2.613, 0.712)
pt3dadd(124.357, 50.498, 2.597, 0.656)
pt3dadd(124.375, 50.394, 2.581, 0.598)
pt3dadd(124.393, 50.29, 2.565, 0.542)
pt3dadd(124.411, 50.186, 2.548, 0.484)
pt3dadd(124.429, 50.082, 2.532, 0.428)
pt3dadd(124.447, 49.978, 2.516, 0.37)
pt3dadd(124.464, 49.874, 2.5, 0.314)
pt3dadd(124.486, 49.771, 2.484, 0.266)
pt3dadd(124.536, 49.676, 2.478, 0.296)
pt3dadd(124.586, 49.581, 2.471, 0.324)
pt3dadd(124.637, 49.486, 2.464, 0.352)
pt3dadd(124.687, 49.391, 2.457, 0.382)
pt3dadd(124.738, 49.296, 2.45, 0.41)
pt3dadd(124.788, 49.201, 2.443, 0.44)
pt3dadd(124.838, 49.106, 2.436, 0.468)
pt3dadd(124.889, 49.011, 2.429, 0.496)
pt3dadd(124.938, 48.916, 2.423, 0.526)
pt3dadd(124.987, 48.82, 2.416, 0.554)
pt3dadd(125.035, 48.724, 2.407, 0.578)
pt3dadd(125.082, 48.628, 2.399, 0.602)
pt3dadd(125.129, 48.531, 2.391, 0.626)
pt3dadd(125.177, 48.435, 2.383, 0.65)
pt3dadd(125.224, 48.338, 2.374, 0.674)
pt3dadd(125.27, 48.242, 2.366, 0.698)
pt3dadd(125.318, 48.146, 2.358, 0.722)
pt3dadd(125.364, 48.049, 2.35, 0.746)
pt3dadd(125.411, 47.953, 2.341, 0.77)
pt3dadd(125.459, 47.857, 2.333, 0.794)
pt3dadd(125.509, 47.762, 2.323, 0.804)
pt3dadd(125.56, 47.667, 2.312, 0.816)
pt3dadd(125.61, 47.572, 2.302, 0.826)
pt3dadd(125.66, 47.477, 2.292, 0.838)
pt3dadd(125.711, 47.382, 2.281, 0.85)
pt3dadd(125.761, 47.288, 2.271, 0.86)
pt3dadd(125.812, 47.193, 2.261, 0.872)
pt3dadd(125.861, 47.098, 2.251, 0.884)
}
}
proc shape3d_123() {
dend_7[29] { pt3dadd(125.911, 47.003, 2.24, 0.894)
pt3dadd(125.964, 46.909, 2.23, 0.904)
pt3dadd(126.024, 46.82, 2.218, 0.904)
pt3dadd(126.085, 46.731, 2.206, 0.904)
pt3dadd(126.145, 46.641, 2.194, 0.904)
pt3dadd(126.206, 46.552, 2.182, 0.904)
pt3dadd(126.266, 46.462, 2.17, 0.902)
pt3dadd(126.328, 46.373, 2.158, 0.902)
pt3dadd(126.388, 46.284, 2.146, 0.902)
pt3dadd(126.448, 46.194, 2.134, 0.902)
pt3dadd(126.509, 46.105, 2.123, 0.902)
pt3dadd(126.565, 46.015, 2.107, 0.898)
pt3dadd(126.606, 45.922, 2.073, 0.882)
pt3dadd(126.647, 45.828, 2.04, 0.864)
pt3dadd(126.686, 45.735, 2.006, 0.848)
pt3dadd(126.727, 45.641, 1.973, 0.83)
pt3dadd(126.768, 45.547, 1.939, 0.812)
pt3dadd(126.809, 45.454, 1.906, 0.796)
pt3dadd(126.848, 45.36, 1.872, 0.778)
pt3dadd(126.888, 45.267, 1.839, 0.76)
pt3dadd(126.929, 45.173, 1.805, 0.744)
pt3dadd(126.972, 45.08, 1.774, 0.724)
pt3dadd(127.025, 44.988, 1.753, 0.696)
pt3dadd(127.078, 44.896, 1.733, 0.666)
pt3dadd(127.13, 44.804, 1.712, 0.638)
pt3dadd(127.183, 44.712, 1.692, 0.608)
pt3dadd(127.236, 44.62, 1.671, 0.58)
pt3dadd(127.289, 44.528, 1.65, 0.55)
pt3dadd(127.34, 44.435, 1.63, 0.522)
pt3dadd(127.393, 44.343, 1.609, 0.492)
pt3dadd(127.446, 44.251, 1.589, 0.464)
pt3dadd(127.499, 44.158, 1.573, 0.436)
pt3dadd(127.548, 44.063, 1.571, 0.414)
pt3dadd(127.598, 43.968, 1.57, 0.392)
pt3dadd(127.649, 43.873, 1.569, 0.37)
pt3dadd(127.698, 43.777, 1.568, 0.348)
pt3dadd(127.748, 43.682, 1.567, 0.326)
pt3dadd(127.796, 43.587, 1.566, 0.304)
pt3dadd(127.847, 43.491, 1.565, 0.282)
pt3dadd(127.896, 43.396, 1.564, 0.26)
pt3dadd(127.946, 43.301, 1.563, 0.238)
pt3dadd(127.988, 43.205, 1.573, 0.226)
pt3dadd(128.022, 43.109, 1.597, 0.228)
pt3dadd(128.056, 43.012, 1.62, 0.23)
pt3dadd(128.088, 42.915, 1.644, 0.232)
pt3dadd(128.122, 42.819, 1.667, 0.234)
pt3dadd(128.155, 42.722, 1.691, 0.234)
pt3dadd(128.188, 42.626, 1.714, 0.236)
pt3dadd(128.221, 42.529, 1.738, 0.238)
pt3dadd(128.254, 42.433, 1.761, 0.24)
pt3dadd(128.287, 42.336, 1.785, 0.24)
pt3dadd(128.326, 42.241, 1.807, 0.25)
pt3dadd(128.368, 42.146, 1.827, 0.268)
pt3dadd(128.411, 42.052, 1.848, 0.284)
pt3dadd(128.453, 41.958, 1.868, 0.302)
pt3dadd(128.496, 41.863, 1.889, 0.32)
pt3dadd(128.538, 41.769, 1.91, 0.336)
pt3dadd(128.58, 41.675, 1.93, 0.354)
pt3dadd(128.622, 41.58, 1.951, 0.372)
pt3dadd(128.665, 41.486, 1.971, 0.388)
pt3dadd(128.707, 41.391, 1.992, 0.406)
pt3dadd(128.728, 41.293, 2.01, 0.418)
pt3dadd(128.722, 41.189, 2.025, 0.422)
pt3dadd(128.716, 41.085, 2.041, 0.424)
pt3dadd(128.711, 40.982, 2.056, 0.428)
pt3dadd(128.705, 40.878, 2.072, 0.432)
pt3dadd(128.698, 40.774, 2.087, 0.436)
pt3dadd(128.693, 40.67, 2.102, 0.44)
pt3dadd(128.687, 40.567, 2.118, 0.444)
pt3dadd(128.681, 40.463, 2.133, 0.448)
pt3dadd(128.675, 40.359, 2.148, 0.45)
pt3dadd(128.662, 40.256, 2.16, 0.444)
pt3dadd(128.645, 40.152, 2.17, 0.434)
pt3dadd(128.627, 40.048, 2.179, 0.422)
pt3dadd(128.61, 39.944, 2.189, 0.41)
pt3dadd(128.593, 39.84, 2.199, 0.4)
pt3dadd(128.575, 39.737, 2.209, 0.388)
pt3dadd(128.557, 39.633, 2.218, 0.378)
pt3dadd(128.54, 39.529, 2.228, 0.366)
pt3dadd(128.54, 39.543, 2.224, 0.366)
pt3dadd(128.524, 39.439, 2.234, 0.354)
pt3dadd(128.506, 39.336, 2.244, 0.344)
pt3dadd(128.49, 39.233, 2.259, 0.332)
pt3dadd(128.474, 39.131, 2.276, 0.32)
pt3dadd(128.459, 39.028, 2.294, 0.31)
pt3dadd(128.443, 38.926, 2.312, 0.298)
pt3dadd(128.426, 38.824, 2.329, 0.286)
pt3dadd(128.411, 38.722, 2.347, 0.274)
pt3dadd(128.396, 38.619, 2.365, 0.264)
pt3dadd(128.381, 38.517, 2.382, 0.252)
pt3dadd(128.365, 38.415, 2.4, 0.24)
pt3dadd(128.35, 38.313, 2.417, 0.228)
pt3dadd(128.336, 38.214, 2.446, 0.228)
pt3dadd(128.324, 38.116, 2.477, 0.23)
pt3dadd(128.312, 38.018, 2.508, 0.234)
pt3dadd(128.3, 37.92, 2.539, 0.236)
pt3dadd(128.288, 37.823, 2.57, 0.238)
pt3dadd(128.276, 37.725, 2.601, 0.24)
pt3dadd(128.264, 37.627, 2.632, 0.244)
pt3dadd(128.252, 37.529, 2.663, 0.246)
pt3dadd(128.24, 37.431, 2.694, 0.248)
pt3dadd(128.228, 37.334, 2.725, 0.25)
pt3dadd(128.224, 37.232, 2.748, 0.266)
pt3dadd(128.221, 37.129, 2.767, 0.286)
pt3dadd(128.219, 37.027, 2.787, 0.304)
pt3dadd(128.215, 36.924, 2.807, 0.322)
pt3dadd(128.213, 36.821, 2.827, 0.342)
pt3dadd(128.21, 36.719, 2.846, 0.36)
pt3dadd(128.208, 36.616, 2.866, 0.38)
pt3dadd(128.206, 36.513, 2.886, 0.398)
pt3dadd(128.203, 36.411, 2.906, 0.416)
pt3dadd(128.201, 36.308, 2.926, 0.436)
pt3dadd(128.197, 36.203, 2.936, 0.44)
pt3dadd(128.192, 36.098, 2.944, 0.442)
pt3dadd(128.186, 35.993, 2.952, 0.442)
pt3dadd(128.182, 35.888, 2.959, 0.444)
pt3dadd(128.177, 35.783, 2.967, 0.446)
pt3dadd(128.172, 35.677, 2.975, 0.446)
pt3dadd(128.167, 35.572, 2.983, 0.448)
pt3dadd(128.164, 35.467, 2.991, 0.45)
pt3dadd(128.159, 35.362, 2.998, 0.45)
pt3dadd(128.154, 35.256, 3.006, 0.452)
pt3dadd(128.144, 35.151, 3.006, 0.452)
pt3dadd(128.134, 35.045, 3.005, 0.452)
pt3dadd(128.12, 34.94, 3.003, 0.452)
pt3dadd(128.11, 34.834, 3.001, 0.452)
pt3dadd(128.099, 34.728, 3, 0.452)
pt3dadd(128.088, 34.623, 2.998, 0.452)
pt3dadd(128.077, 34.517, 2.996, 0.452)
pt3dadd(128.066, 34.411, 2.995, 0.452)
pt3dadd(128.056, 34.306, 2.993, 0.452)
pt3dadd(128.045, 34.2, 2.991, 0.452)
pt3dadd(128.029, 34.095, 2.988, 0.442)
pt3dadd(128.012, 33.99, 2.983, 0.43)
pt3dadd(127.994, 33.885, 2.979, 0.416)
pt3dadd(127.978, 33.78, 2.975, 0.404)
pt3dadd(127.961, 33.675, 2.971, 0.392)
pt3dadd(127.944, 33.57, 2.966, 0.38)
pt3dadd(127.927, 33.465, 2.962, 0.366)
pt3dadd(127.91, 33.36, 2.958, 0.354)
pt3dadd(127.894, 33.255, 2.954, 0.342)
pt3dadd(127.877, 33.15, 2.95, 0.33)
pt3dadd(127.84, 33.05, 2.945, 0.318)
pt3dadd(127.796, 32.951, 2.941, 0.308)
pt3dadd(127.754, 32.853, 2.937, 0.298)
pt3dadd(127.712, 32.754, 2.933, 0.288)
pt3dadd(127.672, 32.656, 2.928, 0.278)
pt3dadd(127.63, 32.557, 2.924, 0.268)
pt3dadd(127.588, 32.458, 2.92, 0.256)
pt3dadd(127.546, 32.36, 2.916, 0.246)
pt3dadd(127.504, 32.261, 2.911, 0.236)
pt3dadd(127.462, 32.162, 2.907, 0.226)
pt3dadd(127.399, 32.073, 2.903, 0.226)
pt3dadd(127.337, 31.984, 2.899, 0.226)
pt3dadd(127.274, 31.895, 2.894, 0.226)
pt3dadd(127.213, 31.806, 2.89, 0.226)
pt3dadd(127.151, 31.717, 2.886, 0.226)
pt3dadd(127.09, 31.628, 2.882, 0.226)
pt3dadd(127.027, 31.539, 2.877, 0.226)
pt3dadd(126.966, 31.45, 2.873, 0.226)
pt3dadd(126.904, 31.361, 2.869, 0.226)
pt3dadd(126.842, 31.272, 2.865, 0.226)
pt3dadd(126.842, 31.286, 2.86, 0.226)
pt3dadd(126.838, 31.18, 2.856, 0.744)
pt3dadd(126.833, 31.073, 2.852, 0.812)
pt3dadd(126.829, 30.967, 2.848, 0.878)
pt3dadd(126.824, 30.861, 2.844, 0.912)
pt3dadd(126.821, 30.755, 2.839, 0.946)
pt3dadd(126.816, 30.649, 2.835, 0.98)
pt3dadd(126.845, 30.546, 2.831, 0.99)
pt3dadd(126.874, 30.444, 2.827, 1)
pt3dadd(126.928, 30.353, 2.822, 0.99)
pt3dadd(126.998, 30.27, 2.818, 0.968)
pt3dadd(127.082, 30.2, 2.814, 0.924)
pt3dadd(127.18, 30.146, 2.81, 0.854)
pt3dadd(127.24, 30.056, 2.805, 0.834)
pt3dadd(127.3, 29.965, 2.801, 0.814)
pt3dadd(127.358, 29.875, 2.797, 0.794)
pt3dadd(127.417, 29.784, 2.793, 0.774)
pt3dadd(127.477, 29.694, 2.788, 0.756)
pt3dadd(127.536, 29.603, 2.784, 0.758)
pt3dadd(127.596, 29.513, 2.78, 0.762)
pt3dadd(127.655, 29.422, 2.776, 0.768)
pt3dadd(127.715, 29.332, 2.771, 0.772)
pt3dadd(127.772, 29.241, 2.767, 0.778)
pt3dadd(127.789, 29.138, 2.763, 0.784)
pt3dadd(127.794, 29.032, 2.759, 0.792)
pt3dadd(127.801, 28.926, 2.754, 0.8)
pt3dadd(127.806, 28.82, 2.75, 0.808)
pt3dadd(127.813, 28.714, 2.746, 0.816)
pt3dadd(127.818, 28.608, 2.742, 0.824)
pt3dadd(127.841, 28.506, 2.738, 0.834)
pt3dadd(127.894, 28.412, 2.733, 0.848)
pt3dadd(127.946, 28.319, 2.729, 0.862)
pt3dadd(127.999, 28.225, 2.725, 0.878)
pt3dadd(128.053, 28.131, 2.721, 0.892)
pt3dadd(128.1, 28.035, 2.716, 0.9)
pt3dadd(128.123, 27.931, 2.712, 0.88)
pt3dadd(128.144, 27.827, 2.708, 0.86)
pt3dadd(128.191, 27.733, 2.7, 0.83)
}
}
proc shape3d_124() {
dend_7[29] { pt3dadd(128.251, 27.643, 2.691, 0.794)
pt3dadd(128.302, 27.6, 2.632, 0.75)
pt3dadd(128.347, 27.593, 2.537, 0.702)
pt3dadd(128.368, 27.569, 2.442, 0.656)
pt3dadd(128.366, 27.53, 2.348, 0.61)
pt3dadd(128.375, 27.49, 2.256, 0.568)
pt3dadd(128.417, 27.45, 2.169, 0.526)
pt3dadd(128.458, 27.411, 2.083, 0.486)
pt3dadd(128.501, 27.363, 2.006, 0.444)
pt3dadd(128.552, 27.271, 1.979, 0.392)
pt3dadd(128.612, 27.187, 1.957, 0.35)
pt3dadd(128.704, 27.122, 1.953, 0.34)
pt3dadd(128.794, 27.058, 1.948, 0.332)
pt3dadd(128.879, 26.993, 1.961, 0.338)
pt3dadd(128.952, 26.928, 2.002, 0.366)
pt3dadd(129.02, 26.883, 2.06, 0.426)
pt3dadd(129.086, 26.842, 2.125, 0.426)
pt3dadd(129.145, 26.799, 2.193, 0.42)
pt3dadd(129.187, 26.753, 2.268, 0.392)
pt3dadd(129.242, 26.691, 2.31, 0.36)
pt3dadd(129.319, 26.612, 2.311, 0.324)
pt3dadd(129.367, 26.522, 2.31, 0.298)
pt3dadd(129.378, 26.416, 2.306, 0.288)
pt3dadd(129.388, 26.31, 2.302, 0.278)
pt3dadd(129.389, 26.204, 2.298, 0.284)
pt3dadd(129.384, 26.098, 2.293, 0.298)
pt3dadd(129.38, 26.001, 2.321, 0.312)
pt3dadd(129.377, 25.908, 2.361, 0.326)
pt3dadd(129.372, 25.814, 2.402, 0.34)
pt3dadd(129.368, 25.721, 2.442, 0.354)
pt3dadd(129.365, 25.627, 2.483, 0.37)
pt3dadd(129.361, 25.56, 2.545, 0.394)
pt3dadd(129.36, 25.521, 2.63, 0.376)
pt3dadd(129.356, 25.454, 2.7, 0.28)
pt3dadd(129.353, 25.362, 2.738, 0.234)
pt3dadd(129.349, 25.257, 2.749, 0.226)
pt3dadd(129.344, 25.151, 2.747, 0.226)
pt3dadd(129.326, 25.047, 2.742, 0.226)
pt3dadd(129.278, 24.956, 2.717, 0.274)
pt3dadd(129.226, 24.881, 2.664, 0.412)
pt3dadd(129.21, 24.797, 2.604, 0.56)
pt3dadd(129.208, 24.745, 2.519, 0.65)
pt3dadd(129.206, 24.748, 2.415, 0.67)
pt3dadd(129.206, 24.752, 2.311, 0.688)
pt3dadd(129.205, 24.751, 2.208, 0.706)
pt3dadd(129.204, 24.725, 2.11, 0.728)
pt3dadd(129.203, 24.699, 2.011, 0.75)
pt3dadd(129.199, 24.633, 1.935, 0.774)
pt3dadd(129.197, 24.558, 1.864, 0.802)
pt3dadd(129.193, 24.482, 1.793, 0.828)
pt3dadd(129.188, 24.378, 1.775, 0.856)
pt3dadd(129.185, 24.273, 1.759, 0.884)
pt3dadd(129.18, 24.171, 1.733, 0.914)
pt3dadd(129.172, 24.078, 1.683, 0.932)
pt3dadd(129.161, 23.985, 1.635, 0.936)
pt3dadd(129.149, 23.892, 1.586, 0.942)
pt3dadd(129.136, 23.799, 1.537, 0.946)
pt3dadd(129.125, 23.706, 1.488, 0.952)
pt3dadd(129.108, 23.618, 1.433, 0.952)
pt3dadd(129.086, 23.534, 1.373, 0.946)
pt3dadd(129.066, 23.45, 1.314, 0.94)
pt3dadd(129.044, 23.367, 1.254, 0.934)
pt3dadd(129.024, 23.283, 1.195, 0.93)
pt3dadd(129.019, 23.182, 1.161, 0.93)
pt3dadd(129.014, 23.08, 1.13, 0.93)
pt3dadd(129.011, 22.979, 1.098, 0.93)
pt3dadd(129.006, 22.878, 1.066, 0.93)
pt3dadd(129.002, 22.776, 1.035, 0.93)
pt3dadd(128.999, 22.673, 1.011, 0.928)
pt3dadd(128.994, 22.567, 1.007, 0.92)
pt3dadd(128.989, 22.461, 1.003, 0.912)
pt3dadd(128.986, 22.355, 0.998, 0.906)
pt3dadd(128.981, 22.249, 0.994, 0.898)
pt3dadd(128.977, 22.143, 0.99, 0.892)
pt3dadd(128.972, 22.036, 0.986, 0.884)
pt3dadd(128.977, 21.931, 0.981, 0.876)
pt3dadd(129.007, 21.829, 0.977, 0.866)
pt3dadd(129.035, 21.726, 0.973, 0.856)
pt3dadd(129.089, 21.635, 0.954, 0.854)
pt3dadd(129.146, 21.545, 0.933, 0.854)
pt3dadd(129.167, 21.457, 0.881, 0.866)
pt3dadd(129.184, 21.368, 0.826, 0.878)
pt3dadd(129.181, 21.293, 0.756, 0.89)
pt3dadd(129.179, 21.219, 0.683, 0.902)
pt3dadd(129.175, 21.141, 0.615, 0.89)
pt3dadd(129.181, 21.053, 0.562, 0.878)
pt3dadd(129.202, 20.953, 0.531, 0.872)
pt3dadd(129.221, 20.853, 0.5, 0.866)
pt3dadd(129.241, 20.753, 0.469, 0.862)
pt3dadd(129.26, 20.653, 0.438, 0.856)
pt3dadd(129.274, 20.551, 0.418, 0.854)
pt3dadd(129.275, 20.445, 0.413, 0.854)
pt3dadd(129.277, 20.338, 0.409, 0.854)
pt3dadd(129.278, 20.232, 0.405, 0.854)
pt3dadd(129.28, 20.126, 0.401, 0.854)
pt3dadd(129.282, 20.02, 0.397, 0.854)
pt3dadd(129.283, 19.914, 0.392, 0.854)
pt3dadd(129.307, 19.811, 0.383, 0.858)
pt3dadd(129.337, 19.709, 0.373, 0.862)
pt3dadd(129.368, 19.607, 0.362, 0.866)
pt3dadd(129.398, 19.505, 0.352, 0.872)
pt3dadd(129.43, 19.403, 0.342, 0.876)
pt3dadd(129.458, 19.301, 0.329, 0.878)
pt3dadd(129.481, 19.198, 0.312, 0.878)
pt3dadd(129.505, 19.095, 0.295, 0.878)
pt3dadd(129.528, 18.992, 0.278, 0.878)
pt3dadd(129.552, 18.889, 0.261, 0.878)
pt3dadd(129.574, 18.786, 0.246, 0.878)
pt3dadd(129.588, 18.681, 0.241, 0.862)
pt3dadd(129.6, 18.575, 0.237, 0.844)
pt3dadd(129.613, 18.47, 0.233, 0.828)
pt3dadd(129.626, 18.364, 0.229, 0.812)
pt3dadd(129.638, 18.259, 0.224, 0.796)
pt3dadd(129.653, 18.153, 0.22, 0.78)
pt3dadd(129.677, 18.051, 0.204, 0.766)
pt3dadd(129.704, 17.949, 0.187, 0.75)
pt3dadd(129.73, 17.847, 0.17, 0.736)
pt3dadd(129.757, 17.744, 0.153, 0.722)
pt3dadd(129.782, 17.642, 0.136, 0.708)
pt3dadd(129.815, 17.541, 0.124, 0.704)
pt3dadd(129.85, 17.44, 0.113, 0.704)
pt3dadd(129.882, 17.339, 0.103, 0.704)
pt3dadd(129.917, 17.238, 0.092, 0.704)
pt3dadd(129.95, 17.137, 0.081, 0.704)
pt3dadd(129.968, 17.034, 0.074, 0.71)
pt3dadd(129.964, 16.927, 0.069, 0.724)
pt3dadd(129.96, 16.821, 0.065, 0.738)
pt3dadd(129.955, 16.715, 0.061, 0.752)
pt3dadd(129.95, 16.609, 0.057, 0.766)
pt3dadd(129.947, 16.503, 0.052, 0.782)
pt3dadd(129.942, 16.397, 0.048, 0.796)
pt3dadd(129.938, 16.291, 0.044, 0.808)
pt3dadd(129.934, 16.185, 0.04, 0.82)
pt3dadd(129.929, 16.078, 0.035, 0.83)
pt3dadd(129.925, 15.972, 0.031, 0.84)
pt3dadd(129.92, 15.866, 0.027, 0.852)
pt3dadd(129.917, 15.76, 0.023, 0.862)
pt3dadd(129.912, 15.654, 0.018, 0.872)
pt3dadd(129.899, 15.549, 0.014, 0.88)
pt3dadd(129.876, 15.445, 0.01, 0.884)
pt3dadd(129.851, 15.341, 0.006, 0.888)
pt3dadd(129.828, 15.237, 0.001, 0.892)
pt3dadd(129.803, 15.134, -0.003, 0.898)
pt3dadd(129.78, 15.03, -0.007, 0.902)
pt3dadd(129.76, 14.925, -0.011, 0.904)
pt3dadd(129.75, 14.82, -0.016, 0.904)
pt3dadd(129.739, 14.714, -0.02, 0.904)
pt3dadd(129.728, 14.608, -0.024, 0.904)
pt3dadd(129.72, 14.502, -0.028, 0.904)
pt3dadd(129.709, 14.397, -0.032, 0.904)
pt3dadd(129.7, 14.291, -0.037, 0.904)
pt3dadd(129.67, 14.192, -0.06, 0.904)
pt3dadd(129.632, 14.097, -0.092, 0.904)
pt3dadd(129.595, 14.003, -0.125, 0.904)
pt3dadd(129.556, 13.908, -0.157, 0.904)
pt3dadd(129.518, 13.813, -0.189, 0.904)
pt3dadd(129.48, 13.722, -0.23, 0.904)
pt3dadd(129.44, 13.631, -0.271, 0.904)
pt3dadd(129.402, 13.54, -0.312, 0.904)
pt3dadd(129.362, 13.449, -0.353, 0.904)
pt3dadd(129.337, 13.352, -0.379, 0.91)
pt3dadd(129.334, 13.246, -0.383, 0.928)
pt3dadd(129.329, 13.14, -0.388, 0.944)
pt3dadd(129.324, 13.036, -0.403, 0.966)
pt3dadd(129.32, 12.934, -0.435, 0.998)
pt3dadd(129.316, 12.833, -0.466, 1.028)
pt3dadd(129.312, 12.729, -0.488, 1.058)
pt3dadd(129.307, 12.624, -0.509, 1.088)
pt3dadd(129.304, 12.542, -0.557, 1.11)
pt3dadd(129.302, 12.495, -0.647, 1.12)
pt3dadd(129.3, 12.458, -0.741, 1.128)
pt3dadd(129.3, 12.465, -0.845, 1.114)
pt3dadd(129.299, 12.448, -0.94, 1.1)
pt3dadd(129.295, 12.376, -1.013, 1.086)
pt3dadd(129.293, 12.303, -1.087, 1.07)
pt3dadd(129.289, 12.231, -1.161, 1.054)
pt3dadd(129.286, 12.159, -1.235, 1.04)
pt3dadd(129.283, 12.084, -1.306, 1.006)
pt3dadd(129.28, 12.004, -1.373, 0.934)
pt3dadd(129.276, 11.918, -1.428, 0.862)
pt3dadd(129.271, 11.813, -1.441, 0.784)
pt3dadd(129.268, 11.707, -1.454, 0.706)
pt3dadd(129.29, 11.613, -1.434, 0.616)
pt3dadd(129.33, 11.526, -1.397, 0.522)
pt3dadd(129.38, 11.433, -1.388, 0.474)
pt3dadd(129.432, 11.339, -1.387, 0.44)
pt3dadd(129.467, 11.241, -1.374, 0.45)
pt3dadd(129.487, 11.14, -1.358, 0.482)
pt3dadd(129.497, 11.035, -1.35, 0.498)
pt3dadd(129.506, 10.929, -1.343, 0.516)
pt3dadd(129.517, 10.825, -1.336, 0.534)
pt3dadd(129.526, 10.72, -1.328, 0.552)
pt3dadd(129.535, 10.614, -1.321, 0.568)
pt3dadd(129.545, 10.509, -1.319, 0.582)
pt3dadd(129.552, 10.404, -1.323, 0.59)
pt3dadd(129.562, 10.297, -1.328, 0.598)
pt3dadd(129.569, 10.192, -1.332, 0.606)
pt3dadd(129.578, 10.086, -1.336, 0.612)
pt3dadd(129.586, 9.98, -1.34, 0.62)
pt3dadd(129.598, 9.875, -1.349, 0.628)
}
}
proc shape3d_125() {
dend_7[29] { pt3dadd(129.643, 9.787, -1.389, 0.628)
pt3dadd(129.688, 9.698, -1.428, 0.628)
pt3dadd(129.733, 9.61, -1.468, 0.628)
pt3dadd(129.779, 9.521, -1.508, 0.628)
pt3dadd(129.808, 9.421, -1.527, 0.624)
pt3dadd(129.829, 9.317, -1.54, 0.62)
pt3dadd(129.852, 9.214, -1.552, 0.616)
pt3dadd(129.874, 9.111, -1.564, 0.61)
pt3dadd(129.898, 9.007, -1.577, 0.606)
pt3dadd(129.924, 8.905, -1.585, 0.602)
pt3dadd(129.966, 8.807, -1.581, 0.596)
pt3dadd(130.008, 8.708, -1.577, 0.588)
pt3dadd(130.049, 8.609, -1.573, 0.582)
pt3dadd(130.092, 8.512, -1.575, 0.578)
pt3dadd(130.135, 8.42, -1.61, 0.578)
pt3dadd(130.18, 8.329, -1.643, 0.578)
pt3dadd(130.223, 8.237, -1.677, 0.578)
pt3dadd(130.267, 8.145, -1.712, 0.578)
pt3dadd(130.33, 8.059, -1.725, 0.588)
pt3dadd(130.402, 7.977, -1.729, 0.604)
pt3dadd(130.474, 7.894, -1.734, 0.618)
pt3dadd(130.544, 7.812, -1.738, 0.634)
pt3dadd(130.616, 7.73, -1.742, 0.648)
pt3dadd(130.676, 7.641, -1.746, 0.678)
pt3dadd(130.733, 7.548, -1.751, 0.712)
pt3dadd(130.788, 7.455, -1.755, 0.746)
pt3dadd(130.843, 7.363, -1.759, 0.78)
pt3dadd(130.9, 7.271, -1.763, 0.814)
pt3dadd(130.963, 7.183, -1.767, 0.846)
pt3dadd(131.032, 7.099, -1.772, 0.876)
pt3dadd(131.1, 7.014, -1.776, 0.906)
pt3dadd(131.168, 6.929, -1.78, 0.936)
pt3dadd(131.237, 6.845, -1.784, 0.966)
pt3dadd(131.3, 6.757, -1.793, 0.986)
pt3dadd(131.359, 6.666, -1.804, 0.996)
pt3dadd(131.419, 6.577, -1.815, 1.006)
pt3dadd(131.479, 6.487, -1.826, 1.016)
pt3dadd(131.539, 6.396, -1.837, 1.026)
pt3dadd(131.598, 6.307, -1.854, 1.026)
pt3dadd(131.658, 6.218, -1.872, 1.02)
pt3dadd(131.717, 6.13, -1.891, 1.014)
pt3dadd(131.777, 6.041, -1.909, 1.01)
pt3dadd(131.836, 5.952, -1.927, 1.004)
pt3dadd(131.888, 5.857, -1.931, 0.994)
pt3dadd(131.941, 5.763, -1.935, 0.984)
pt3dadd(131.994, 5.67, -1.94, 0.974)
pt3dadd(132.048, 5.576, -1.944, 0.964)
pt3dadd(132.101, 5.482, -1.948, 0.956)
pt3dadd(132.132, 5.391, -1.991, 0.938)
pt3dadd(132.16, 5.3, -2.037, 0.922)
pt3dadd(132.188, 5.209, -2.083, 0.906)
pt3dadd(132.217, 5.118, -2.13, 0.888)
pt3dadd(132.247, 5.022, -2.16, 0.86)
pt3dadd(132.277, 4.92, -2.169, 0.818)
pt3dadd(132.306, 4.818, -2.178, 0.776)
pt3dadd(132.317, 4.711, -2.182, 0.748)
pt3dadd(132.328, 4.606, -2.186, 0.72)
pt3dadd(132.346, 4.501, -2.192, 0.698)
pt3dadd(132.377, 4.4, -2.201, 0.688)
pt3dadd(132.409, 4.302, -2.216, 0.676)
pt3dadd(132.478, 4.252, -2.284, 0.662)
pt3dadd(132.529, 4.191, -2.348, 0.638)
pt3dadd(132.559, 4.107, -2.403, 0.6)
pt3dadd(132.6, 4.01, -2.429, 0.584)
pt3dadd(132.64, 3.914, -2.455, 0.568)
pt3dadd(132.679, 3.817, -2.481, 0.552)
pt3dadd(132.72, 3.722, -2.508, 0.534)
pt3dadd(132.764, 3.627, -2.511, 0.524)
pt3dadd(132.812, 3.533, -2.496, 0.518)
pt3dadd(132.859, 3.439, -2.481, 0.514)
pt3dadd(132.907, 3.345, -2.467, 0.508)
pt3dadd(132.955, 3.252, -2.452, 0.502)
pt3dadd(133.01, 3.159, -2.454, 0.506)
pt3dadd(133.066, 3.067, -2.458, 0.512)
pt3dadd(133.122, 2.974, -2.463, 0.516)
pt3dadd(133.177, 2.882, -2.467, 0.522)
pt3dadd(133.234, 2.79, -2.471, 0.526)
pt3dadd(133.291, 2.71, -2.511, 0.546)
pt3dadd(133.35, 2.635, -2.561, 0.57)
pt3dadd(133.408, 2.56, -2.611, 0.594)
pt3dadd(133.465, 2.484, -2.661, 0.62)
pt3dadd(133.53, 2.403, -2.692, 0.642)
pt3dadd(133.597, 2.32, -2.714, 0.664)
pt3dadd(133.666, 2.237, -2.735, 0.686)
pt3dadd(133.733, 2.154, -2.757, 0.708)
pt3dadd(133.805, 2.075, -2.777, 0.732)
pt3dadd(133.906, 2.026, -2.788, 0.758)
pt3dadd(134.006, 1.976, -2.799, 0.784)
pt3dadd(134.11, 1.926, -2.81, 0.808)
pt3dadd(134.21, 1.876, -2.821, 0.834)
pt3dadd(134.31, 1.825, -2.836, 0.86)
pt3dadd(134.406, 1.773, -2.863, 0.882)
pt3dadd(134.503, 1.721, -2.889, 0.904)
pt3dadd(134.599, 1.669, -2.916, 0.926)
pt3dadd(134.695, 1.616, -2.943, 0.95)
pt3dadd(134.741, 1.541, -2.994, 0.986)
pt3dadd(134.773, 1.46, -3.053, 1.028)
pt3dadd(134.863, 1.41, -3.094, 1.004)
pt3dadd(134.953, 1.359, -3.133, 0.97)
pt3dadd(135.028, 1.28, -3.155, 0.892)
pt3dadd(135.109, 1.216, -3.174, 0.812)
pt3dadd(135.228, 1.221, -3.182, 0.732)
pt3dadd(135.348, 1.226, -3.19, 0.65)
pt3dadd(135.462, 1.254, -3.208, 0.58)
pt3dadd(135.566, 1.314, -3.24, 0.526)
pt3dadd(135.673, 1.374, -3.272, 0.47)
pt3dadd(135.773, 1.443, -3.298, 0.414)
pt3dadd(135.851, 1.548, -3.302, 0.356)
pt3dadd(135.929, 1.651, -3.307, 0.296)
pt3dadd(136.024, 1.74, -3.311, 0.252)
pt3dadd(136.115, 1.832, -3.315, 0.252)
pt3dadd(136.211, 1.915, -3.319, 0.256)
pt3dadd(136.326, 1.964, -3.324, 0.278)
pt3dadd(136.44, 2.013, -3.328, 0.298)
pt3dadd(136.559, 2.041, -3.332, 0.326)
pt3dadd(136.678, 2.065, -3.336, 0.354)
pt3dadd(136.795, 2.086, -3.346, 0.378)
pt3dadd(136.91, 2.089, -3.379, 0.39)
pt3dadd(137.026, 2.094, -3.412, 0.4)
pt3dadd(137.083, 2.032, -3.47, 0.39)
pt3dadd(137.128, 1.958, -3.527, 0.366)
pt3dadd(137.123, 1.855, -3.554, 0.284)
pt3dadd(137.119, 1.749, -3.566, 0.24)
pt3dadd(137.114, 1.644, -3.565, 0.238)
pt3dadd(137.111, 1.54, -3.549, 0.282)
pt3dadd(137.106, 1.445, -3.514, 0.396)
pt3dadd(137.102, 1.355, -3.47, 0.532)
pt3dadd(137.09, 1.291, -3.401, 0.64)
pt3dadd(137.027, 1.284, -3.326, 0.638)
pt3dadd(136.915, 1.302, -3.301, 0.562)
}
dend_7[30] {pt3dclear()
pt3dadd(115.568, 81.293, 7.384, 0.692)
pt3dadd(115.549, 81.277, 7.375, 0.698)
pt3dadd(115.447, 81.217, 7.347, 0.728)
pt3dadd(115.346, 81.157, 7.32, 0.756)
pt3dadd(115.244, 81.097, 7.292, 0.786)
pt3dadd(115.143, 81.037, 7.265, 0.816)
pt3dadd(115.041, 80.977, 7.237, 0.844)
pt3dadd(114.94, 80.917, 7.21, 0.874)
pt3dadd(114.838, 80.857, 7.182, 0.904)
pt3dadd(114.834, 80.809, 7.09, 0.904)
pt3dadd(114.833, 80.762, 6.995, 0.904)
pt3dadd(114.833, 80.715, 6.9, 0.904)
pt3dadd(114.832, 80.667, 6.805, 0.904)
pt3dadd(114.832, 80.62, 6.71, 0.904)
pt3dadd(114.831, 80.545, 6.632, 0.904)
pt3dadd(114.83, 80.451, 6.565, 0.904)
pt3dadd(114.83, 80.357, 6.498, 0.904)
pt3dadd(114.829, 80.263, 6.431, 0.904)
pt3dadd(114.829, 80.169, 6.364, 0.904)
pt3dadd(114.828, 80.066, 6.308, 0.904)
pt3dadd(114.828, 79.957, 6.258, 0.904)
pt3dadd(114.827, 79.849, 6.209, 0.904)
pt3dadd(114.826, 79.74, 6.16, 0.904)
pt3dadd(114.826, 79.632, 6.11, 0.904)
pt3dadd(114.825, 79.523, 6.062, 0.904)
pt3dadd(114.825, 79.413, 6.015, 0.904)
pt3dadd(114.824, 79.302, 5.969, 0.904)
pt3dadd(114.823, 79.192, 5.922, 0.904)
pt3dadd(114.823, 79.082, 5.875, 0.904)
pt3dadd(114.822, 78.978, 5.822, 0.904)
pt3dadd(114.822, 78.895, 5.746, 0.904)
pt3dadd(114.821, 78.811, 5.67, 0.904)
pt3dadd(114.82, 78.728, 5.594, 0.904)
pt3dadd(114.82, 78.644, 5.518, 0.904)
pt3dadd(114.819, 78.562, 5.44, 0.904)
pt3dadd(114.819, 78.485, 5.36, 0.904)
pt3dadd(114.818, 78.407, 5.28, 0.904)
pt3dadd(114.817, 78.329, 5.2, 0.904)
pt3dadd(114.817, 78.251, 5.12, 0.904)
pt3dadd(114.816, 78.165, 5.049, 0.904)
pt3dadd(114.816, 78.056, 4.999, 0.904)
pt3dadd(114.815, 77.948, 4.95, 0.904)
pt3dadd(114.814, 77.839, 4.901, 0.904)
pt3dadd(114.814, 77.73, 4.851, 0.904)
pt3dadd(114.813, 77.625, 4.799, 0.904)
pt3dadd(114.813, 77.541, 4.723, 0.904)
pt3dadd(114.812, 77.458, 4.647, 0.904)
pt3dadd(114.811, 77.375, 4.571, 0.904)
pt3dadd(114.811, 77.291, 4.495, 0.904)
pt3dadd(114.81, 77.205, 4.421, 0.904)
pt3dadd(114.81, 77.109, 4.356, 0.904)
pt3dadd(114.809, 77.012, 4.292, 0.904)
pt3dadd(114.802, 76.9, 4.25, 0.904)
pt3dadd(114.795, 76.787, 4.207, 0.904)
pt3dadd(114.748, 76.68, 4.179, 0.904)
pt3dadd(114.692, 76.575, 4.154, 0.904)
pt3dadd(114.611, 76.5, 4.11, 0.904)
pt3dadd(114.527, 76.432, 4.062, 0.904)
pt3dadd(114.441, 76.379, 4.004, 0.904)
pt3dadd(114.354, 76.327, 3.945, 0.904)
pt3dadd(114.277, 76.281, 3.88, 0.904)
pt3dadd(114.24, 76.267, 3.783, 0.904)
pt3dadd(114.204, 76.252, 3.686, 0.904)
pt3dadd(114.195, 76.196, 3.596, 0.904)
pt3dadd(114.16, 76.132, 3.512, 0.904)
pt3dadd(114.126, 76.068, 3.429, 0.904)
pt3dadd(114.092, 76.004, 3.345, 0.904)
pt3dadd(114.058, 75.94, 3.262, 0.904)
pt3dadd(114.014, 75.912, 3.17, 0.904)
pt3dadd(113.968, 75.89, 3.077, 0.904)
}
}
proc shape3d_126() {
dend_7[30] { pt3dadd(113.958, 75.883, 2.977, 0.904)
pt3dadd(113.957, 75.88, 2.975, 0.904)
pt3dadd(113.956, 75.877, 2.873, 0.904)
pt3dadd(113.956, 75.874, 2.771, 0.904)
pt3dadd(113.943, 75.876, 2.669, 0.904)
pt3dadd(113.927, 75.878, 2.568, 0.904)
pt3dadd(113.901, 75.897, 2.48, 0.904)
pt3dadd(113.833, 75.983, 2.44, 0.904)
pt3dadd(113.829, 75.86, 2.438, 0.516)
pt3dadd(113.824, 75.738, 2.436, 0.582)
pt3dadd(113.819, 75.615, 2.434, 0.646)
pt3dadd(113.814, 75.492, 2.432, 0.71)
pt3dadd(113.809, 75.37, 2.43, 0.774)
pt3dadd(113.805, 75.247, 2.428, 0.84)
pt3dadd(113.8, 75.124, 2.426, 0.904)
pt3dadd(113.774, 75.008, 2.398, 0.924)
pt3dadd(113.749, 74.893, 2.369, 0.944)
pt3dadd(113.723, 74.777, 2.34, 0.964)
pt3dadd(113.697, 74.661, 2.312, 0.984)
pt3dadd(113.672, 74.546, 2.283, 1.004)
pt3dadd(113.661, 74.451, 2.218, 0.992)
pt3dadd(113.65, 74.358, 2.151, 0.98)
pt3dadd(113.639, 74.251, 2.1, 0.926)
pt3dadd(113.629, 74.142, 2.052, 0.868)
pt3dadd(113.548, 74.079, 2.011, 0.822)
pt3dadd(113.445, 74.03, 1.974, 0.782)
pt3dadd(113.344, 73.987, 1.93, 0.766)
pt3dadd(113.243, 73.942, 1.887, 0.754)
pt3dadd(113.194, 73.834, 1.858, 0.754)
pt3dadd(113.144, 73.727, 1.828, 0.754)
pt3dadd(113.096, 73.619, 1.799, 0.754)
pt3dadd(113.018, 73.527, 1.791, 0.754)
pt3dadd(112.932, 73.44, 1.789, 0.754)
pt3dadd(112.879, 73.333, 1.787, 0.754)
pt3dadd(112.824, 73.238, 1.744, 0.748)
pt3dadd(112.766, 73.147, 1.694, 0.742)
pt3dadd(112.707, 73.057, 1.644, 0.736)
pt3dadd(112.649, 72.966, 1.594, 0.73)
pt3dadd(112.61, 72.864, 1.546, 0.732)
pt3dadd(112.58, 72.758, 1.501, 0.738)
pt3dadd(112.549, 72.651, 1.455, 0.742)
pt3dadd(112.518, 72.544, 1.409, 0.748)
pt3dadd(112.49, 72.437, 1.364, 0.754)
pt3dadd(112.479, 72.325, 1.323, 0.764)
pt3dadd(112.466, 72.212, 1.282, 0.774)
pt3dadd(112.454, 72.1, 1.24, 0.784)
pt3dadd(112.441, 71.987, 1.199, 0.794)
pt3dadd(112.43, 71.875, 1.157, 0.804)
pt3dadd(112.408, 71.765, 1.114, 0.836)
pt3dadd(112.387, 71.655, 1.07, 0.866)
pt3dadd(112.366, 71.545, 1.027, 0.898)
pt3dadd(112.345, 71.435, 0.983, 0.93)
pt3dadd(112.327, 71.322, 0.945, 0.956)
pt3dadd(112.323, 71.201, 0.926, 0.97)
pt3dadd(112.318, 71.08, 0.908, 0.982)
pt3dadd(112.313, 70.959, 0.889, 0.994)
pt3dadd(112.308, 70.838, 0.871, 1.006)
pt3dadd(112.304, 70.717, 0.852, 1.018)
pt3dadd(112.299, 70.596, 0.833, 1.032)
pt3dadd(112.294, 70.478, 0.803, 1.044)
pt3dadd(112.29, 70.36, 0.773, 1.058)
pt3dadd(112.285, 70.242, 0.744, 1.072)
pt3dadd(112.281, 70.124, 0.714, 1.084)
pt3dadd(112.276, 70.006, 0.685, 1.098)
pt3dadd(112.281, 69.886, 0.664, 1.104)
pt3dadd(112.298, 69.765, 0.655, 1.104)
pt3dadd(112.313, 69.644, 0.645, 1.104)
pt3dadd(112.33, 69.523, 0.635, 1.104)
pt3dadd(112.347, 69.402, 0.625, 1.104)
pt3dadd(112.363, 69.28, 0.615, 1.104)
pt3dadd(112.399, 69.164, 0.611, 1.116)
pt3dadd(112.439, 69.048, 0.609, 1.13)
pt3dadd(112.479, 68.932, 0.607, 1.144)
pt3dadd(112.519, 68.817, 0.605, 1.158)
pt3dadd(112.559, 68.701, 0.603, 1.172)
pt3dadd(112.596, 68.585, 0.595, 1.194)
pt3dadd(112.629, 68.468, 0.577, 1.23)
pt3dadd(112.671, 68.358, 0.553, 1.268)
pt3dadd(112.733, 68.264, 0.514, 1.31)
pt3dadd(112.774, 68.161, 0.475, 1.336)
pt3dadd(112.788, 68.048, 0.435, 1.348)
pt3dadd(112.796, 67.952, 0.377, 1.346)
pt3dadd(112.793, 67.882, 0.292, 1.324)
pt3dadd(112.789, 67.803, 0.215, 1.298)
pt3dadd(112.785, 67.698, 0.16, 1.262)
pt3dadd(112.781, 67.597, 0.101, 1.24)
pt3dadd(112.777, 67.496, 0.041, 1.22)
pt3dadd(112.773, 67.395, -0.018, 1.2)
pt3dadd(112.769, 67.294, -0.078, 1.18)
pt3dadd(112.765, 67.193, -0.137, 1.16)
pt3dadd(112.761, 67.082, -0.181, 1.14)
pt3dadd(112.756, 66.968, -0.22, 1.122)
pt3dadd(112.752, 66.854, -0.259, 1.104)
pt3dadd(112.747, 66.74, -0.298, 1.084)
pt3dadd(112.743, 66.626, -0.338, 1.066)
pt3dadd(112.738, 66.508, -0.367, 1.044)
pt3dadd(112.733, 66.387, -0.381, 1.016)
pt3dadd(112.729, 66.265, -0.396, 0.988)
pt3dadd(112.724, 66.143, -0.41, 0.96)
pt3dadd(112.719, 66.021, -0.425, 0.932)
pt3dadd(112.714, 65.899, -0.439, 0.904)
pt3dadd(112.707, 65.778, -0.455, 0.876)
pt3dadd(112.682, 65.661, -0.478, 0.852)
pt3dadd(112.657, 65.543, -0.502, 0.828)
pt3dadd(112.631, 65.426, -0.525, 0.804)
pt3dadd(112.606, 65.309, -0.548, 0.78)
pt3dadd(112.581, 65.191, -0.572, 0.756)
pt3dadd(112.543, 65.121, -0.648, 0.74)
pt3dadd(112.5, 65.054, -0.724, 0.732)
pt3dadd(112.404, 64.984, -0.75, 0.786)
pt3dadd(112.326, 64.902, -0.771, 0.838)
pt3dadd(112.326, 64.9, -0.773, 0.838)
pt3dadd(112.316, 64.777, -0.779, 0.884)
pt3dadd(112.307, 64.655, -0.785, 0.928)
pt3dadd(112.299, 64.535, -0.804, 0.972)
pt3dadd(112.295, 64.419, -0.839, 1.014)
pt3dadd(112.288, 64.306, -0.876, 1.056)
pt3dadd(112.244, 64.224, -0.945, 1.064)
pt3dadd(112.201, 64.143, -1.014, 1.072)
pt3dadd(112.157, 64.06, -1.079, 1.078)
pt3dadd(112.094, 63.955, -1.091, 1.066)
pt3dadd(112.032, 63.85, -1.105, 1.052)
pt3dadd(112.031, 63.848, -1.107, 1.052)
pt3dadd(112.031, 63.845, -1.109, 1.052)
pt3dadd(112.023, 63.728, -1.139, 0.974)
pt3dadd(111.999, 63.613, -1.172, 0.95)
pt3dadd(111.974, 63.499, -1.203, 0.93)
pt3dadd(111.916, 63.391, -1.205, 0.93)
pt3dadd(111.857, 63.283, -1.207, 0.93)
pt3dadd(111.77, 63.202, -1.224, 0.952)
pt3dadd(111.675, 63.126, -1.243, 0.976)
pt3dadd(111.572, 63.108, -1.291, 1.012)
pt3dadd(111.467, 63.096, -1.342, 1.05)
pt3dadd(111.399, 63.02, -1.393, 1.062)
pt3dadd(111.337, 62.933, -1.444, 1.07)
pt3dadd(111.274, 62.846, -1.496, 1.08)
pt3dadd(111.239, 62.752, -1.556, 1.054)
pt3dadd(111.204, 62.661, -1.616, 1.018)
pt3dadd(111.115, 62.596, -1.65, 0.868)
pt3dadd(111.053, 62.495, -1.68, 0.838)
pt3dadd(110.993, 62.394, -1.71, 0.81)
pt3dadd(110.931, 62.294, -1.74, 0.782)
pt3dadd(110.87, 62.193, -1.769, 0.754)
pt3dadd(110.771, 62.124, -1.786, 0.748)
pt3dadd(110.672, 62.055, -1.803, 0.742)
pt3dadd(110.572, 61.986, -1.819, 0.736)
pt3dadd(110.473, 61.917, -1.836, 0.732)
pt3dadd(110.377, 61.842, -1.846, 0.754)
pt3dadd(110.286, 61.761, -1.848, 0.812)
pt3dadd(110.186, 61.699, -1.852, 0.868)
pt3dadd(110.066, 61.685, -1.858, 0.916)
pt3dadd(109.946, 61.671, -1.864, 0.966)
pt3dadd(109.861, 61.647, -1.923, 0.998)
pt3dadd(109.788, 61.618, -2.002, 1.026)
pt3dadd(109.773, 61.516, -2.044, 1.02)
pt3dadd(109.768, 61.4, -2.079, 1.01)
pt3dadd(109.743, 61.292, -2.12, 1.004)
pt3dadd(109.681, 61.203, -2.157, 1.008)
pt3dadd(109.576, 61.14, -2.164, 1.02)
pt3dadd(109.48, 61.071, -2.176, 1.028)
pt3dadd(109.425, 60.97, -2.214, 1.014)
pt3dadd(109.386, 60.866, -2.255, 0.998)
pt3dadd(109.382, 60.756, -2.302, 0.976)
pt3dadd(109.377, 60.645, -2.347, 0.954)
pt3dadd(109.373, 60.525, -2.366, 0.944)
pt3dadd(109.368, 60.404, -2.385, 0.934)
pt3dadd(109.326, 60.302, -2.41, 0.94)
pt3dadd(109.238, 60.223, -2.441, 0.966)
pt3dadd(109.152, 60.145, -2.472, 0.99)
pt3dadd(109.055, 60.08, -2.491, 1.014)
pt3dadd(108.942, 60.035, -2.493, 1.036)
pt3dadd(108.837, 59.98, -2.495, 1.054)
pt3dadd(108.837, 59.977, -2.497, 1.054)
pt3dadd(108.789, 59.864, -2.499, 1.054)
pt3dadd(108.742, 59.751, -2.501, 1.054)
pt3dadd(108.695, 59.637, -2.504, 1.054)
pt3dadd(108.656, 59.521, -2.511, 1.044)
pt3dadd(108.616, 59.405, -2.517, 1.032)
pt3dadd(108.602, 59.287, -2.54, 1.074)
pt3dadd(108.529, 59.194, -2.558, 1.1)
pt3dadd(108.449, 59.103, -2.575, 1.122)
pt3dadd(108.369, 59.012, -2.592, 1.144)
pt3dadd(108.288, 58.921, -2.609, 1.166)
pt3dadd(108.214, 58.832, -2.638, 1.182)
pt3dadd(108.149, 58.747, -2.689, 1.188)
pt3dadd(108.083, 58.662, -2.739, 1.194)
pt3dadd(108.018, 58.576, -2.79, 1.2)
pt3dadd(107.953, 58.492, -2.841, 1.2)
pt3dadd(107.883, 58.41, -2.892, 1.182)
pt3dadd(107.815, 58.328, -2.943, 1.164)
pt3dadd(107.746, 58.246, -2.994, 1.144)
pt3dadd(107.675, 58.162, -3.04, 1.124)
pt3dadd(107.596, 58.074, -3.065, 1.09)
pt3dadd(107.515, 57.985, -3.09, 1.054)
pt3dadd(107.435, 57.897, -3.115, 1.02)
pt3dadd(107.356, 57.808, -3.14, 0.986)
pt3dadd(107.271, 57.725, -3.165, 0.956)
pt3dadd(107.184, 57.642, -3.19, 0.928)
pt3dadd(107.098, 57.56, -3.215, 0.898)
pt3dadd(107.013, 57.477, -3.24, 0.87)
}
}
proc shape3d_127() {
dend_7[30] { pt3dadd(106.922, 57.397, -3.255, 0.846)
pt3dadd(106.828, 57.32, -3.257, 0.832)
pt3dadd(106.733, 57.242, -3.259, 0.816)
pt3dadd(106.639, 57.165, -3.261, 0.802)
pt3dadd(106.544, 57.088, -3.263, 0.786)
pt3dadd(106.446, 57.024, -3.282, 0.778)
pt3dadd(106.344, 56.974, -3.32, 0.778)
pt3dadd(106.234, 56.933, -3.346, 0.794)
pt3dadd(106.119, 56.897, -3.363, 0.816)
pt3dadd(106.003, 56.863, -3.373, 0.838)
pt3dadd(105.886, 56.831, -3.375, 0.86)
pt3dadd(105.772, 56.795, -3.377, 0.88)
pt3dadd(105.701, 56.696, -3.379, 0.892)
pt3dadd(105.628, 56.597, -3.381, 0.902)
pt3dadd(105.602, 56.481, -3.403, 0.904)
pt3dadd(105.551, 56.385, -3.435, 0.906)
pt3dadd(105.459, 56.322, -3.477, 0.912)
pt3dadd(105.366, 56.258, -3.519, 0.918)
pt3dadd(105.274, 56.194, -3.561, 0.924)
pt3dadd(105.191, 56.121, -3.599, 0.93)
pt3dadd(105.134, 56.015, -3.623, 0.93)
pt3dadd(105.077, 55.91, -3.646, 0.93)
pt3dadd(105.021, 55.804, -3.67, 0.93)
pt3dadd(104.964, 55.698, -3.694, 0.93)
pt3dadd(104.963, 55.696, -3.696, 0.93)
pt3dadd(104.963, 55.693, -3.698, 0.93)
pt3dadd(104.883, 55.603, -3.712, 0.926)
pt3dadd(104.792, 55.522, -3.722, 0.92)
pt3dadd(104.701, 55.44, -3.731, 0.916)
pt3dadd(104.611, 55.359, -3.74, 0.91)
pt3dadd(104.52, 55.278, -3.749, 0.904)
pt3dadd(104.45, 55.198, -3.799, 0.882)
pt3dadd(104.381, 55.119, -3.853, 0.856)
pt3dadd(104.311, 55.04, -3.907, 0.832)
pt3dadd(104.243, 54.96, -3.961, 0.808)
pt3dadd(104.172, 54.926, -4.038, 0.788)
pt3dadd(104.101, 54.898, -4.118, 0.772)
pt3dadd(104.03, 54.87, -4.199, 0.754)
pt3dadd(103.959, 54.843, -4.279, 0.738)
pt3dadd(103.871, 54.823, -4.343, 0.726)
pt3dadd(103.762, 54.814, -4.388, 0.72)
pt3dadd(103.653, 54.804, -4.432, 0.716)
pt3dadd(103.544, 54.794, -4.477, 0.71)
pt3dadd(103.435, 54.784, -4.522, 0.706)
pt3dadd(103.363, 54.754, -4.589, 0.716)
pt3dadd(103.327, 54.704, -4.678, 0.742)
pt3dadd(103.242, 54.681, -4.726, 0.772)
pt3dadd(103.122, 54.677, -4.746, 0.802)
pt3dadd(103.009, 54.67, -4.772, 0.83)
pt3dadd(102.936, 54.642, -4.851, 0.844)
pt3dadd(102.879, 54.596, -4.925, 0.854)
pt3dadd(102.875, 54.495, -4.984, 0.854)
pt3dadd(102.871, 54.393, -5.043, 0.852)
pt3dadd(102.867, 54.297, -5.108, 0.836)
pt3dadd(102.839, 54.189, -5.142, 0.828)
pt3dadd(102.796, 54.076, -5.16, 0.828)
pt3dadd(102.765, 53.959, -5.179, 0.824)
pt3dadd(102.742, 53.841, -5.201, 0.812)
pt3dadd(102.72, 53.731, -5.234, 0.798)
pt3dadd(102.696, 53.653, -5.312, 0.772)
pt3dadd(102.656, 53.575, -5.38, 0.744)
pt3dadd(102.577, 53.499, -5.426, 0.716)
pt3dadd(102.476, 53.455, -5.46, 0.694)
pt3dadd(102.36, 53.438, -5.484, 0.678)
pt3dadd(102.244, 53.402, -5.486, 0.686)
pt3dadd(102.135, 53.349, -5.488, 0.736)
pt3dadd(102.036, 53.28, -5.49, 0.804)
pt3dadd(101.986, 53.177, -5.522, 0.776)
pt3dadd(101.977, 53.092, -5.594, 0.702)
pt3dadd(101.974, 53.036, -5.686, 0.644)
pt3dadd(101.972, 52.99, -5.781, 0.612)
pt3dadd(101.971, 52.954, -5.879, 0.602)
pt3dadd(101.969, 52.917, -5.976, 0.574)
pt3dadd(101.966, 52.86, -6.068, 0.564)
pt3dadd(101.963, 52.789, -6.151, 0.592)
pt3dadd(101.96, 52.709, -6.23, 0.618)
pt3dadd(101.957, 52.628, -6.308, 0.644)
pt3dadd(101.953, 52.548, -6.386, 0.668)
pt3dadd(101.95, 52.467, -6.464, 0.694)
pt3dadd(101.946, 52.366, -6.519, 0.724)
pt3dadd(101.942, 52.253, -6.561, 0.756)
pt3dadd(101.937, 52.14, -6.603, 0.79)
pt3dadd(101.933, 52.027, -6.644, 0.822)
pt3dadd(101.928, 51.914, -6.686, 0.856)
pt3dadd(101.924, 51.802, -6.728, 0.89)
pt3dadd(101.919, 51.689, -6.769, 0.922)
pt3dadd(101.915, 51.576, -6.811, 0.956)
pt3dadd(101.91, 51.463, -6.853, 0.988)
pt3dadd(101.906, 51.35, -6.894, 1.022)
pt3dadd(101.902, 51.237, -6.936, 1.054)
pt3dadd(101.898, 51.134, -6.993, 1.08)
pt3dadd(101.893, 51.031, -7.05, 1.104)
pt3dadd(101.893, 51.028, -7.052, 1.104)
pt3dadd(101.889, 50.925, -7.109, 1.128)
pt3dadd(101.885, 50.822, -7.166, 1.154)
pt3dadd(101.88, 50.719, -7.223, 1.178)
pt3dadd(101.878, 50.654, -7.309, 1.202)
pt3dadd(101.875, 50.591, -7.398, 1.228)
pt3dadd(101.872, 50.529, -7.487, 1.252)
pt3dadd(101.87, 50.466, -7.575, 1.276)
pt3dadd(101.867, 50.403, -7.664, 1.3)
pt3dadd(101.864, 50.334, -7.749, 1.334)
pt3dadd(101.861, 50.264, -7.834, 1.368)
pt3dadd(101.858, 50.189, -7.916, 1.388)
pt3dadd(101.855, 50.111, -7.996, 1.4)
pt3dadd(101.851, 50.011, -8.043, 1.392)
pt3dadd(101.846, 49.889, -8.057, 1.364)
pt3dadd(101.841, 49.767, -8.071, 1.336)
pt3dadd(101.837, 49.648, -8.098, 1.28)
pt3dadd(101.832, 49.53, -8.128, 1.218)
pt3dadd(101.827, 49.415, -8.164, 1.134)
pt3dadd(101.823, 49.305, -8.211, 1.016)
pt3dadd(101.819, 49.206, -8.271, 0.968)
pt3dadd(101.815, 49.107, -8.333, 0.928)
pt3dadd(101.811, 49.008, -8.395, 0.888)
pt3dadd(101.807, 48.909, -8.457, 0.848)
pt3dadd(101.803, 48.811, -8.519, 0.808)
pt3dadd(101.803, 48.808, -8.522, 0.808)
pt3dadd(101.8, 48.734, -8.604, 0.74)
pt3dadd(101.797, 48.664, -8.688, 0.67)
pt3dadd(101.794, 48.598, -8.776, 0.61)
pt3dadd(101.793, 48.596, -8.778, 0.61)
pt3dadd(101.791, 48.532, -8.866, 0.552)
pt3dadd(101.787, 48.457, -8.947, 0.52)
pt3dadd(101.784, 48.373, -9.022, 0.508)
pt3dadd(101.78, 48.272, -9.074, 0.51)
pt3dadd(101.775, 48.152, -9.093, 0.53)
pt3dadd(101.771, 48.031, -9.112, 0.55)
pt3dadd(101.766, 47.908, -9.117, 0.584)
pt3dadd(101.761, 47.785, -9.119, 0.622)
pt3dadd(101.756, 47.663, -9.121, 0.636)
pt3dadd(101.751, 47.54, -9.123, 0.648)
pt3dadd(101.747, 47.417, -9.125, 0.658)
pt3dadd(101.742, 47.295, -9.127, 0.668)
pt3dadd(101.737, 47.172, -9.129, 0.68)
pt3dadd(101.732, 47.049, -9.131, 0.69)
pt3dadd(101.728, 46.926, -9.133, 0.702)
pt3dadd(101.681, 46.815, -9.135, 0.7)
pt3dadd(101.626, 46.705, -9.137, 0.694)
pt3dadd(101.572, 46.595, -9.139, 0.69)
pt3dadd(101.516, 46.485, -9.141, 0.684)
pt3dadd(101.461, 46.375, -9.143, 0.68)
pt3dadd(101.425, 46.26, -9.145, 0.676)
pt3dadd(101.402, 46.139, -9.147, 0.672)
pt3dadd(101.381, 46.018, -9.149, 0.668)
pt3dadd(101.359, 45.897, -9.151, 0.664)
pt3dadd(101.337, 45.776, -9.154, 0.66)
pt3dadd(101.315, 45.655, -9.156, 0.656)
pt3dadd(101.291, 45.539, -9.173, 0.646)
pt3dadd(101.264, 45.429, -9.215, 0.63)
pt3dadd(101.237, 45.32, -9.258, 0.614)
pt3dadd(101.21, 45.21, -9.3, 0.598)
pt3dadd(101.183, 45.101, -9.342, 0.582)
pt3dadd(101.171, 44.982, -9.358, 0.582)
pt3dadd(101.166, 44.86, -9.361, 0.59)
pt3dadd(101.161, 44.737, -9.365, 0.598)
pt3dadd(101.157, 44.614, -9.369, 0.604)
pt3dadd(101.152, 44.492, -9.372, 0.612)
pt3dadd(101.147, 44.369, -9.376, 0.62)
pt3dadd(101.142, 44.246, -9.38, 0.626)
pt3dadd(101.153, 44.124, -9.382, 0.638)
pt3dadd(101.167, 44.002, -9.384, 0.65)
pt3dadd(101.183, 43.881, -9.386, 0.662)
pt3dadd(101.198, 43.759, -9.388, 0.674)
pt3dadd(101.213, 43.637, -9.39, 0.688)
pt3dadd(101.228, 43.515, -9.392, 0.7)
pt3dadd(101.254, 43.396, -9.394, 0.716)
pt3dadd(101.286, 43.278, -9.396, 0.734)
pt3dadd(101.317, 43.159, -9.399, 0.752)
pt3dadd(101.348, 43.041, -9.401, 0.77)
pt3dadd(101.38, 42.922, -9.403, 0.788)
pt3dadd(101.41, 42.804, -9.407, 0.802)
pt3dadd(101.438, 42.686, -9.427, 0.798)
pt3dadd(101.464, 42.568, -9.446, 0.794)
pt3dadd(101.491, 42.451, -9.466, 0.788)
pt3dadd(101.519, 42.333, -9.486, 0.782)
pt3dadd(101.545, 42.216, -9.504, 0.776)
pt3dadd(101.576, 42.097, -9.511, 0.756)
pt3dadd(101.606, 41.978, -9.518, 0.734)
pt3dadd(101.622, 41.857, -9.524, 0.72)
pt3dadd(101.632, 41.735, -9.531, 0.71)
pt3dadd(101.648, 41.619, -9.547, 0.71)
pt3dadd(101.689, 41.532, -9.612, 0.752)
pt3dadd(101.749, 41.454, -9.669, 0.8)
pt3dadd(101.836, 41.388, -9.715, 0.858)
pt3dadd(101.917, 41.305, -9.735, 0.888)
pt3dadd(101.994, 41.211, -9.741, 0.902)
pt3dadd(102.071, 41.116, -9.746, 0.916)
pt3dadd(102.143, 41.021, -9.757, 0.928)
pt3dadd(102.182, 40.916, -9.801, 0.914)
pt3dadd(102.224, 40.814, -9.845, 0.9)
pt3dadd(102.276, 40.715, -9.888, 0.89)
pt3dadd(102.327, 40.616, -9.932, 0.88)
pt3dadd(102.435, 40.599, -9.958, 0.896)
pt3dadd(102.552, 40.592, -9.982, 0.916)
pt3dadd(102.655, 40.571, -10.022, 0.944)
pt3dadd(102.736, 40.526, -10.089, 0.986)
pt3dadd(102.817, 40.482, -10.156, 1.028)
pt3dadd(102.86, 40.369, -10.16, 1.05)
pt3dadd(102.903, 40.254, -10.162, 1.072)
}
}
proc shape3d_128() {
dend_7[30] { pt3dadd(102.934, 40.136, -10.164, 1.038)
pt3dadd(102.946, 40.015, -10.178, 1.01)
pt3dadd(102.956, 39.894, -10.194, 0.988)
pt3dadd(102.966, 39.773, -10.21, 0.966)
pt3dadd(102.975, 39.652, -10.226, 0.944)
pt3dadd(102.985, 39.531, -10.241, 0.922)
pt3dadd(102.996, 39.41, -10.26, 0.898)
pt3dadd(103.015, 39.293, -10.286, 0.874)
pt3dadd(103.035, 39.175, -10.312, 0.848)
pt3dadd(103.054, 39.058, -10.339, 0.824)
pt3dadd(103.074, 38.94, -10.365, 0.798)
pt3dadd(103.088, 38.823, -10.393, 0.776)
pt3dadd(103.084, 38.708, -10.43, 0.762)
pt3dadd(103.079, 38.593, -10.467, 0.748)
pt3dadd(103.074, 38.477, -10.503, 0.734)
pt3dadd(103.07, 38.362, -10.54, 0.72)
pt3dadd(103.065, 38.247, -10.577, 0.706)
pt3dadd(103.072, 38.126, -10.591, 0.688)
pt3dadd(103.082, 38.004, -10.597, 0.67)
pt3dadd(103.096, 37.883, -10.603, 0.652)
pt3dadd(103.125, 37.763, -10.605, 0.64)
pt3dadd(103.154, 37.644, -10.607, 0.63)
pt3dadd(103.171, 37.528, -10.632, 0.62)
pt3dadd(103.185, 37.412, -10.665, 0.608)
pt3dadd(103.24, 37.315, -10.694, 0.61)
pt3dadd(103.323, 37.23, -10.72, 0.624)
pt3dadd(103.367, 37.149, -10.781, 0.628)
pt3dadd(103.366, 37.147, -10.783, 0.628)
pt3dadd(103.39, 37.047, -10.831, 0.63)
pt3dadd(103.408, 36.928, -10.852, 0.636)
pt3dadd(103.426, 36.809, -10.874, 0.64)
pt3dadd(103.444, 36.69, -10.895, 0.644)
pt3dadd(103.464, 36.571, -10.916, 0.65)
pt3dadd(103.475, 36.451, -10.937, 0.654)
pt3dadd(103.47, 36.33, -10.955, 0.658)
pt3dadd(103.465, 36.209, -10.974, 0.662)
pt3dadd(103.46, 36.088, -10.992, 0.666)
pt3dadd(103.456, 35.967, -11.011, 0.67)
pt3dadd(103.455, 35.964, -11.013, 0.67)
pt3dadd(103.45, 35.843, -11.031, 0.674)
pt3dadd(103.447, 35.722, -11.046, 0.68)
pt3dadd(103.448, 35.599, -11.048, 0.692)
pt3dadd(103.449, 35.476, -11.05, 0.704)
pt3dadd(103.45, 35.353, -11.052, 0.714)
pt3dadd(103.452, 35.231, -11.054, 0.726)
pt3dadd(103.453, 35.108, -11.056, 0.736)
pt3dadd(103.454, 34.985, -11.058, 0.748)
pt3dadd(103.471, 34.865, -11.063, 0.76)
pt3dadd(103.501, 34.746, -11.07, 0.77)
pt3dadd(103.523, 34.628, -11.083, 0.778)
pt3dadd(103.518, 34.512, -11.118, 0.778)
pt3dadd(103.514, 34.396, -11.153, 0.778)
pt3dadd(103.514, 34.276, -11.175, 0.77)
pt3dadd(103.514, 34.155, -11.195, 0.76)
pt3dadd(103.552, 34.059, -11.222, 0.754)
pt3dadd(103.651, 34.003, -11.259, 0.754)
pt3dadd(103.725, 33.935, -11.312, 0.748)
pt3dadd(103.775, 33.857, -11.379, 0.74)
pt3dadd(103.827, 33.78, -11.446, 0.732)
pt3dadd(103.845, 33.675, -11.476, 0.728)
pt3dadd(103.84, 33.552, -11.482, 0.728)
pt3dadd(103.835, 33.429, -11.488, 0.728)
pt3dadd(103.831, 33.307, -11.5, 0.748)
pt3dadd(103.849, 33.21, -11.556, 0.772)
pt3dadd(103.873, 33.118, -11.622, 0.796)
pt3dadd(103.896, 33.026, -11.687, 0.818)
pt3dadd(103.92, 32.933, -11.753, 0.842)
pt3dadd(103.932, 32.831, -11.807, 0.854)
pt3dadd(103.931, 32.829, -11.809, 0.854)
pt3dadd(103.926, 32.714, -11.848, 0.854)
pt3dadd(103.922, 32.6, -11.887, 0.854)
pt3dadd(103.917, 32.486, -11.926, 0.854)
pt3dadd(103.913, 32.372, -11.965, 0.854)
pt3dadd(103.91, 32.258, -12.005, 0.854)
pt3dadd(103.93, 32.145, -12.042, 0.848)
pt3dadd(103.951, 32.032, -12.079, 0.842)
pt3dadd(103.972, 31.919, -12.116, 0.838)
pt3dadd(103.994, 31.806, -12.153, 0.832)
pt3dadd(104.013, 31.692, -12.188, 0.82)
pt3dadd(104.031, 31.575, -12.219, 0.796)
pt3dadd(104.046, 31.459, -12.251, 0.77)
pt3dadd(104.063, 31.343, -12.282, 0.744)
pt3dadd(104.081, 31.227, -12.313, 0.72)
pt3dadd(104.091, 31.108, -12.338, 0.704)
pt3dadd(104.088, 30.986, -12.35, 0.708)
pt3dadd(104.086, 30.864, -12.363, 0.712)
pt3dadd(104.083, 30.742, -12.376, 0.716)
pt3dadd(104.081, 30.62, -12.388, 0.72)
pt3dadd(104.077, 30.498, -12.401, 0.724)
pt3dadd(104.079, 30.377, -12.416, 0.728)
pt3dadd(104.108, 30.264, -12.449, 0.728)
pt3dadd(104.138, 30.151, -12.482, 0.728)
pt3dadd(104.167, 30.039, -12.515, 0.728)
pt3dadd(104.198, 29.926, -12.548, 0.728)
pt3dadd(104.244, 29.819, -12.576, 0.734)
pt3dadd(104.312, 29.721, -12.598, 0.744)
pt3dadd(104.38, 29.623, -12.62, 0.756)
pt3dadd(104.448, 29.525, -12.642, 0.766)
pt3dadd(104.516, 29.427, -12.664, 0.778)
pt3dadd(104.542, 29.32, -12.71, 0.768)
pt3dadd(104.568, 29.213, -12.757, 0.756)
pt3dadd(104.592, 29.105, -12.803, 0.746)
pt3dadd(104.618, 28.998, -12.849, 0.734)
pt3dadd(104.661, 28.899, -12.897, 0.726)
pt3dadd(104.722, 28.81, -12.945, 0.72)
pt3dadd(104.784, 28.72, -12.993, 0.714)
pt3dadd(104.845, 28.631, -13.041, 0.706)
pt3dadd(104.897, 28.533, -13.081, 0.702)
pt3dadd(104.936, 28.42, -13.107, 0.696)
pt3dadd(104.975, 28.308, -13.132, 0.69)
pt3dadd(105.012, 28.195, -13.158, 0.686)
pt3dadd(105.051, 28.083, -13.184, 0.68)
pt3dadd(105.068, 27.963, -13.193, 0.68)
pt3dadd(105.077, 27.84, -13.195, 0.684)
pt3dadd(105.084, 27.718, -13.197, 0.688)
pt3dadd(105.092, 27.596, -13.199, 0.692)
pt3dadd(105.099, 27.473, -13.201, 0.696)
pt3dadd(105.108, 27.351, -13.204, 0.7)
pt3dadd(105.12, 27.229, -13.206, 0.704)
pt3dadd(105.143, 27.108, -13.208, 0.708)
pt3dadd(105.166, 26.988, -13.21, 0.714)
pt3dadd(105.189, 26.867, -13.212, 0.718)
pt3dadd(105.212, 26.747, -13.214, 0.722)
pt3dadd(105.235, 26.626, -13.216, 0.726)
pt3dadd(105.257, 26.512, -13.24, 0.734)
pt3dadd(105.279, 26.404, -13.286, 0.744)
pt3dadd(105.301, 26.295, -13.331, 0.756)
pt3dadd(105.322, 26.187, -13.377, 0.766)
pt3dadd(105.344, 26.079, -13.423, 0.778)
pt3dadd(105.361, 25.96, -13.446, 0.778)
pt3dadd(105.375, 25.84, -13.466, 0.778)
pt3dadd(105.391, 25.721, -13.488, 0.778)
pt3dadd(105.407, 25.601, -13.508, 0.778)
pt3dadd(105.423, 25.482, -13.53, 0.778)
pt3dadd(105.426, 25.36, -13.539, 0.776)
pt3dadd(105.424, 25.238, -13.543, 0.772)
pt3dadd(105.42, 25.115, -13.547, 0.768)
pt3dadd(105.418, 24.992, -13.55, 0.764)
pt3dadd(105.415, 24.869, -13.554, 0.762)
pt3dadd(105.412, 24.747, -13.558, 0.758)
pt3dadd(105.41, 24.624, -13.562, 0.754)
pt3dadd(105.432, 24.506, -13.581, 0.74)
pt3dadd(105.46, 24.389, -13.603, 0.726)
pt3dadd(105.488, 24.272, -13.626, 0.71)
pt3dadd(105.516, 24.156, -13.648, 0.694)
pt3dadd(105.543, 24.039, -13.67, 0.68)
pt3dadd(105.582, 23.933, -13.712, 0.666)
pt3dadd(105.62, 23.828, -13.754, 0.654)
pt3dadd(105.65, 23.709, -13.761, 0.664)
pt3dadd(105.68, 23.591, -13.768, 0.676)
pt3dadd(105.744, 23.49, -13.771, 0.704)
pt3dadd(105.822, 23.397, -13.773, 0.74)
pt3dadd(105.918, 23.328, -13.785, 0.746)
pt3dadd(106.025, 23.276, -13.803, 0.734)
pt3dadd(106.116, 23.213, -13.838, 0.682)
pt3dadd(106.208, 23.158, -13.871, 0.616)
pt3dadd(106.326, 23.139, -13.875, 0.584)
pt3dadd(106.445, 23.119, -13.878, 0.552)
pt3dadd(106.562, 23.099, -13.882, 0.52)
pt3dadd(106.68, 23.079, -13.886, 0.488)
pt3dadd(106.799, 23.06, -13.89, 0.456)
pt3dadd(106.917, 23.041, -13.894, 0.414)
pt3dadd(107.036, 23.033, -13.896, 0.292)
pt3dadd(107.153, 23.007, -13.898, 0.232)
pt3dadd(107.263, 22.959, -13.9, 0.278)
pt3dadd(107.371, 22.91, -13.912, 0.37)
pt3dadd(107.459, 22.888, -13.973, 0.48)
pt3dadd(107.491, 22.875, -14.07, 0.578)
pt3dadd(107.495, 22.844, -14.168, 0.626)
pt3dadd(107.492, 22.792, -14.261, 0.622)
pt3dadd(107.491, 22.757, -14.36, 0.614)
pt3dadd(107.478, 22.719, -14.456, 0.628)
pt3dadd(107.43, 22.633, -14.509, 0.562)
pt3dadd(107.368, 22.527, -14.518, 0.422)
pt3dadd(107.311, 22.419, -14.52, 0.326)
pt3dadd(107.26, 22.308, -14.522, 0.35)
pt3dadd(107.232, 22.188, -14.524, 0.424)
pt3dadd(107.213, 22.067, -14.526, 0.508)
pt3dadd(107.175, 21.952, -14.515, 0.58)
pt3dadd(107.114, 21.863, -14.472, 0.602)
pt3dadd(107.09, 21.751, -14.442, 0.636)
pt3dadd(107.089, 21.629, -14.434, 0.698)
pt3dadd(107.106, 21.508, -14.437, 0.786)
pt3dadd(107.146, 21.393, -14.439, 0.866)
pt3dadd(107.196, 21.281, -14.441, 0.904)
pt3dadd(107.278, 21.195, -14.443, 0.892)
pt3dadd(107.391, 21.158, -14.445, 0.846)
pt3dadd(107.508, 21.136, -14.447, 0.77)
pt3dadd(107.623, 21.1, -14.449, 0.704)
pt3dadd(107.687, 20.997, -14.451, 0.704)
pt3dadd(107.752, 20.893, -14.453, 0.704)
pt3dadd(107.761, 20.773, -14.455, 0.71)
pt3dadd(107.761, 20.65, -14.457, 0.718)
pt3dadd(107.761, 20.528, -14.459, 0.728)
pt3dadd(107.757, 20.405, -14.461, 0.776)
pt3dadd(107.752, 20.283, -14.47, 0.778)
pt3dadd(107.747, 20.16, -14.478, 0.778)
pt3dadd(107.742, 20.038, -14.487, 0.778)
pt3dadd(107.738, 19.915, -14.496, 0.778)
pt3dadd(107.733, 19.793, -14.505, 0.778)
}
}
proc shape3d_129() {
dend_7[30] { pt3dadd(107.728, 19.67, -14.513, 0.778)
pt3dadd(107.723, 19.55, -14.53, 0.778)
pt3dadd(107.719, 19.431, -14.56, 0.778)
pt3dadd(107.714, 19.313, -14.589, 0.778)
pt3dadd(107.709, 19.195, -14.619, 0.778)
pt3dadd(107.705, 19.077, -14.648, 0.778)
pt3dadd(107.7, 18.959, -14.678, 0.778)
pt3dadd(107.695, 18.838, -14.688, 0.76)
pt3dadd(107.691, 18.715, -14.69, 0.736)
pt3dadd(107.69, 18.712, -14.692, 0.736)
pt3dadd(107.685, 18.589, -14.694, 0.71)
pt3dadd(107.681, 18.467, -14.696, 0.686)
pt3dadd(107.68, 18.464, -14.698, 0.686)
}
dend_7[31] {pt3dclear()
pt3dadd(112.289, 92.962, 7.384, 1.13)
pt3dadd(112.392, 92.962, 7.384, 1.082)
pt3dadd(112.512, 92.962, 7.384, 1.028)
pt3dadd(112.632, 92.962, 7.384, 0.974)
pt3dadd(112.752, 92.962, 7.384, 0.918)
pt3dadd(112.872, 92.962, 7.384, 0.864)
pt3dadd(112.992, 92.962, 7.384, 0.81)
pt3dadd(113.112, 92.962, 7.384, 0.754)
pt3dadd(113.232, 92.962, 7.384, 0.7)
pt3dadd(113.352, 92.962, 7.384, 0.646)
pt3dadd(113.472, 92.962, 7.384, 0.59)
pt3dadd(113.592, 92.962, 7.384, 0.536)
pt3dadd(113.712, 92.962, 7.384, 0.48)
pt3dadd(113.832, 92.962, 7.384, 0.426)
pt3dadd(113.952, 92.962, 7.384, 0.372)
pt3dadd(114.072, 92.962, 7.384, 0.316)
pt3dadd(114.184, 92.995, 7.384, 0.292)
pt3dadd(114.291, 93.049, 7.384, 0.284)
pt3dadd(114.398, 93.103, 7.384, 0.278)
pt3dadd(114.505, 93.158, 7.384, 0.27)
pt3dadd(114.612, 93.212, 7.384, 0.264)
pt3dadd(114.72, 93.266, 7.384, 0.256)
pt3dadd(114.827, 93.32, 7.384, 0.248)
pt3dadd(114.934, 93.375, 7.384, 0.242)
pt3dadd(115.041, 93.429, 7.384, 0.234)
pt3dadd(115.148, 93.483, 7.384, 0.228)
pt3dadd(115.256, 93.535, 7.384, 0.226)
pt3dadd(115.364, 93.587, 7.384, 0.226)
pt3dadd(115.472, 93.639, 7.384, 0.226)
pt3dadd(115.58, 93.691, 7.384, 0.226)
pt3dadd(115.689, 93.743, 7.384, 0.226)
pt3dadd(115.797, 93.795, 7.384, 0.226)
pt3dadd(115.905, 93.846, 7.384, 0.226)
pt3dadd(116.013, 93.898, 7.384, 0.226)
pt3dadd(116.121, 93.95, 7.384, 0.226)
pt3dadd(116.23, 94.002, 7.384, 0.226)
pt3dadd(116.345, 94.035, 7.384, 0.226)
pt3dadd(116.461, 94.065, 7.384, 0.226)
pt3dadd(116.577, 94.095, 7.384, 0.226)
pt3dadd(116.693, 94.125, 7.384, 0.226)
pt3dadd(116.81, 94.155, 7.384, 0.226)
pt3dadd(116.926, 94.185, 7.384, 0.226)
pt3dadd(117.042, 94.214, 7.384, 0.226)
pt3dadd(117.158, 94.244, 7.384, 0.226)
pt3dadd(117.274, 94.274, 7.384, 0.226)
pt3dadd(117.391, 94.304, 7.384, 0.226)
pt3dadd(117.509, 94.323, 7.384, 0.226)
pt3dadd(117.628, 94.34, 7.384, 0.226)
pt3dadd(117.747, 94.357, 7.384, 0.226)
pt3dadd(117.865, 94.375, 7.384, 0.226)
pt3dadd(117.984, 94.392, 7.384, 0.226)
pt3dadd(118.103, 94.409, 7.384, 0.226)
pt3dadd(118.222, 94.427, 7.384, 0.226)
pt3dadd(118.34, 94.444, 7.384, 0.226)
pt3dadd(118.459, 94.461, 7.384, 0.226)
pt3dadd(118.578, 94.478, 7.384, 0.226)
pt3dadd(118.697, 94.49, 7.384, 0.226)
pt3dadd(118.817, 94.501, 7.384, 0.226)
pt3dadd(118.936, 94.512, 7.384, 0.226)
pt3dadd(119.056, 94.523, 7.384, 0.226)
pt3dadd(119.175, 94.534, 7.384, 0.226)
pt3dadd(119.295, 94.545, 7.384, 0.226)
pt3dadd(119.414, 94.557, 7.384, 0.226)
pt3dadd(119.534, 94.568, 7.384, 0.226)
pt3dadd(119.653, 94.579, 7.384, 0.226)
pt3dadd(119.773, 94.59, 7.384, 0.226)
pt3dadd(119.891, 94.607, 7.384, 0.27)
pt3dadd(120.01, 94.626, 7.384, 0.324)
pt3dadd(120.128, 94.645, 7.384, 0.376)
pt3dadd(120.247, 94.664, 7.384, 0.428)
pt3dadd(120.365, 94.683, 7.384, 0.482)
pt3dadd(120.484, 94.702, 7.384, 0.534)
pt3dadd(120.602, 94.72, 7.384, 0.586)
pt3dadd(120.721, 94.739, 7.384, 0.638)
pt3dadd(120.84, 94.758, 7.384, 0.692)
pt3dadd(120.958, 94.777, 7.384, 0.744)
pt3dadd(121.07, 94.819, 7.384, 0.754)
pt3dadd(121.181, 94.865, 7.384, 0.756)
pt3dadd(121.291, 94.911, 7.384, 0.758)
pt3dadd(121.403, 94.956, 7.384, 0.762)
pt3dadd(121.513, 95.002, 7.384, 0.764)
pt3dadd(121.625, 95.048, 7.384, 0.766)
pt3dadd(121.735, 95.094, 7.384, 0.77)
pt3dadd(121.847, 95.139, 7.384, 0.772)
pt3dadd(121.957, 95.185, 7.384, 0.774)
pt3dadd(122.069, 95.231, 7.384, 0.778)
pt3dadd(122.177, 95.283, 7.384, 0.782)
pt3dadd(122.284, 95.336, 7.384, 0.788)
pt3dadd(122.392, 95.389, 7.384, 0.792)
pt3dadd(122.5, 95.442, 7.384, 0.796)
pt3dadd(122.608, 95.494, 7.384, 0.802)
pt3dadd(122.716, 95.547, 7.384, 0.806)
pt3dadd(122.824, 95.6, 7.384, 0.81)
pt3dadd(122.93, 95.652, 7.384, 0.816)
pt3dadd(123.038, 95.705, 7.384, 0.82)
pt3dadd(123.146, 95.758, 7.384, 0.824)
pt3dadd(123.254, 95.81, 7.384, 0.85)
pt3dadd(123.362, 95.863, 7.384, 0.876)
pt3dadd(123.47, 95.915, 7.384, 0.902)
pt3dadd(123.578, 95.968, 7.384, 0.93)
pt3dadd(123.686, 96.02, 7.384, 0.956)
pt3dadd(123.794, 96.073, 7.384, 0.982)
pt3dadd(123.901, 96.125, 7.384, 1.008)
pt3dadd(124.009, 96.178, 7.384, 1.034)
pt3dadd(124.117, 96.23, 7.384, 1.06)
pt3dadd(124.225, 96.283, 7.384, 1.088)
pt3dadd(124.325, 96.35, 7.384, 1.058)
pt3dadd(124.424, 96.418, 7.384, 1.026)
pt3dadd(124.523, 96.485, 7.384, 0.994)
pt3dadd(124.622, 96.553, 7.384, 0.962)
pt3dadd(124.721, 96.621, 7.384, 0.93)
pt3dadd(124.82, 96.688, 7.384, 0.898)
pt3dadd(124.92, 96.756, 7.384, 0.866)
pt3dadd(125.018, 96.824, 7.384, 0.834)
pt3dadd(125.118, 96.891, 7.384, 0.802)
pt3dadd(125.216, 96.959, 7.384, 0.77)
pt3dadd(125.314, 97.031, 7.384, 0.76)
pt3dadd(125.41, 97.102, 7.384, 0.75)
pt3dadd(125.506, 97.174, 7.384, 0.742)
pt3dadd(125.602, 97.246, 7.384, 0.732)
pt3dadd(125.698, 97.317, 7.384, 0.724)
pt3dadd(125.794, 97.389, 7.384, 0.714)
pt3dadd(125.891, 97.461, 7.384, 0.706)
pt3dadd(125.987, 97.533, 7.384, 0.696)
pt3dadd(126.083, 97.604, 7.384, 0.688)
pt3dadd(126.179, 97.676, 7.384, 0.678)
pt3dadd(126.276, 97.746, 7.384, 0.686)
pt3dadd(126.373, 97.817, 7.384, 0.694)
pt3dadd(126.47, 97.888, 7.384, 0.702)
pt3dadd(126.568, 97.958, 7.384, 0.71)
pt3dadd(126.665, 98.029, 7.384, 0.718)
pt3dadd(126.762, 98.099, 7.384, 0.726)
pt3dadd(126.858, 98.17, 7.384, 0.734)
pt3dadd(126.955, 98.24, 7.384, 0.742)
pt3dadd(127.052, 98.311, 7.383, 0.75)
pt3dadd(127.15, 98.381, 7.383, 0.758)
pt3dadd(127.253, 98.443, 7.383, 0.79)
pt3dadd(127.356, 98.505, 7.383, 0.824)
pt3dadd(127.459, 98.566, 7.383, 0.856)
pt3dadd(127.561, 98.628, 7.383, 0.89)
pt3dadd(127.664, 98.689, 7.383, 0.922)
pt3dadd(127.768, 98.751, 7.383, 0.956)
pt3dadd(127.871, 98.812, 7.383, 0.99)
pt3dadd(127.974, 98.874, 7.383, 1.022)
pt3dadd(128.077, 98.936, 7.383, 1.056)
pt3dadd(128.179, 98.997, 7.383, 1.088)
pt3dadd(128.276, 99.068, 7.383, 1.08)
pt3dadd(128.374, 99.139, 7.383, 1.07)
pt3dadd(128.471, 99.209, 7.382, 1.06)
pt3dadd(128.568, 99.28, 7.382, 1.052)
pt3dadd(128.664, 99.351, 7.382, 1.042)
pt3dadd(128.761, 99.422, 7.382, 1.032)
pt3dadd(128.858, 99.492, 7.382, 1.022)
pt3dadd(128.956, 99.563, 7.382, 1.014)
pt3dadd(129.052, 99.634, 7.382, 1.004)
pt3dadd(129.149, 99.705, 7.382, 0.994)
pt3dadd(129.242, 99.78, 7.381, 0.968)
pt3dadd(129.336, 99.855, 7.381, 0.94)
pt3dadd(129.43, 99.93, 7.381, 0.914)
pt3dadd(129.523, 100.006, 7.381, 0.886)
pt3dadd(129.617, 100.081, 7.381, 0.858)
pt3dadd(129.71, 100.156, 7.381, 0.832)
pt3dadd(129.803, 100.231, 7.38, 0.804)
pt3dadd(129.896, 100.307, 7.38, 0.776)
pt3dadd(129.99, 100.382, 7.38, 0.75)
pt3dadd(130.084, 100.457, 7.38, 0.722)
pt3dadd(130.174, 100.536, 7.38, 0.678)
pt3dadd(130.264, 100.616, 7.379, 0.636)
pt3dadd(130.354, 100.695, 7.379, 0.592)
pt3dadd(130.444, 100.774, 7.379, 0.548)
pt3dadd(130.534, 100.854, 7.379, 0.504)
pt3dadd(130.624, 100.933, 7.378, 0.46)
pt3dadd(130.714, 101.012, 7.378, 0.416)
pt3dadd(130.804, 101.092, 7.378, 0.374)
pt3dadd(130.894, 101.171, 7.378, 0.33)
pt3dadd(130.984, 101.25, 7.377, 0.286)
pt3dadd(131.07, 101.334, 7.377, 0.28)
pt3dadd(131.156, 101.418, 7.376, 0.274)
pt3dadd(131.243, 101.501, 7.376, 0.268)
pt3dadd(131.328, 101.585, 7.375, 0.262)
pt3dadd(131.414, 101.669, 7.375, 0.256)
pt3dadd(131.501, 101.752, 7.375, 0.25)
pt3dadd(131.586, 101.836, 7.374, 0.244)
pt3dadd(131.672, 101.92, 7.374, 0.238)
pt3dadd(131.759, 102.003, 7.373, 0.232)
pt3dadd(131.844, 102.087, 7.373, 0.226)
pt3dadd(131.93, 102.171, 7.372, 0.232)
}
}
proc shape3d_130() {
dend_7[31] { pt3dadd(132.016, 102.255, 7.371, 0.24)
pt3dadd(132.102, 102.339, 7.371, 0.246)
pt3dadd(132.187, 102.423, 7.37, 0.252)
pt3dadd(132.272, 102.507, 7.37, 0.258)
pt3dadd(132.359, 102.591, 7.369, 0.266)
pt3dadd(132.444, 102.675, 7.368, 0.272)
pt3dadd(132.529, 102.759, 7.368, 0.278)
pt3dadd(132.616, 102.843, 7.367, 0.284)
pt3dadd(132.701, 102.928, 7.366, 0.292)
}
dend_7[32] {pt3dclear()
pt3dadd(132.701, 102.928, 7.366, 0.292)
pt3dadd(132.732, 102.977, 7.358, 0.304)
pt3dadd(132.812, 103.066, 7.353, 0.332)
pt3dadd(132.894, 103.155, 7.348, 0.36)
pt3dadd(132.977, 103.244, 7.343, 0.388)
pt3dadd(133.058, 103.333, 7.338, 0.416)
pt3dadd(133.139, 103.422, 7.334, 0.444)
pt3dadd(133.222, 103.511, 7.329, 0.474)
pt3dadd(133.303, 103.6, 7.324, 0.502)
pt3dadd(133.384, 103.689, 7.319, 0.53)
pt3dadd(133.466, 103.778, 7.314, 0.558)
pt3dadd(133.548, 103.867, 7.309, 0.578)
pt3dadd(133.631, 103.955, 7.303, 0.588)
pt3dadd(133.715, 104.043, 7.297, 0.598)
pt3dadd(133.796, 104.13, 7.291, 0.61)
pt3dadd(133.879, 104.218, 7.286, 0.62)
pt3dadd(133.963, 104.306, 7.28, 0.63)
pt3dadd(134.045, 104.394, 7.274, 0.64)
pt3dadd(134.041, 104.399, 7.27, 0.64)
pt3dadd(134.124, 104.487, 7.265, 0.652)
pt3dadd(134.207, 104.575, 7.259, 0.662)
pt3dadd(134.29, 104.663, 7.253, 0.672)
pt3dadd(134.372, 104.75, 7.247, 0.676)
pt3dadd(134.456, 104.837, 7.241, 0.674)
pt3dadd(134.54, 104.924, 7.234, 0.672)
pt3dadd(134.623, 105.011, 7.228, 0.668)
pt3dadd(134.707, 105.098, 7.221, 0.666)
pt3dadd(134.791, 105.185, 7.214, 0.664)
pt3dadd(134.875, 105.272, 7.208, 0.66)
pt3dadd(134.958, 105.358, 7.201, 0.658)
pt3dadd(135.042, 105.445, 7.195, 0.654)
pt3dadd(135.126, 105.532, 7.188, 0.652)
pt3dadd(135.21, 105.618, 7.18, 0.636)
pt3dadd(135.296, 105.703, 7.17, 0.604)
pt3dadd(135.382, 105.787, 7.16, 0.572)
pt3dadd(135.466, 105.872, 7.15, 0.542)
pt3dadd(135.552, 105.956, 7.14, 0.51)
pt3dadd(135.637, 106.041, 7.13, 0.478)
pt3dadd(135.722, 106.126, 7.12, 0.446)
pt3dadd(135.809, 106.21, 7.11, 0.414)
pt3dadd(135.894, 106.295, 7.099, 0.384)
pt3dadd(135.979, 106.38, 7.089, 0.352)
pt3dadd(136.069, 106.457, 7.077, 0.354)
pt3dadd(136.165, 106.528, 7.062, 0.394)
pt3dadd(136.26, 106.598, 7.048, 0.436)
pt3dadd(136.357, 106.668, 7.033, 0.476)
pt3dadd(136.452, 106.739, 7.018, 0.518)
pt3dadd(136.548, 106.809, 7.003, 0.56)
pt3dadd(136.644, 106.879, 6.988, 0.6)
pt3dadd(136.739, 106.949, 6.974, 0.642)
pt3dadd(136.835, 107.02, 6.959, 0.682)
pt3dadd(136.931, 107.09, 6.944, 0.724)
pt3dadd(137.024, 107.155, 6.916, 0.75)
pt3dadd(137.117, 107.216, 6.875, 0.762)
pt3dadd(137.21, 107.276, 6.835, 0.776)
pt3dadd(137.303, 107.337, 6.794, 0.788)
pt3dadd(137.396, 107.398, 6.753, 0.802)
pt3dadd(137.488, 107.458, 6.713, 0.814)
pt3dadd(137.58, 107.519, 6.672, 0.828)
pt3dadd(137.674, 107.58, 6.632, 0.84)
pt3dadd(137.766, 107.64, 6.591, 0.852)
pt3dadd(137.858, 107.701, 6.551, 0.866)
pt3dadd(137.942, 107.77, 6.504, 0.852)
pt3dadd(138.023, 107.841, 6.456, 0.834)
pt3dadd(138.103, 107.913, 6.408, 0.814)
pt3dadd(138.185, 107.984, 6.361, 0.796)
pt3dadd(138.265, 108.055, 6.313, 0.776)
pt3dadd(138.346, 108.126, 6.265, 0.756)
pt3dadd(138.427, 108.198, 6.217, 0.738)
pt3dadd(138.508, 108.269, 6.169, 0.718)
pt3dadd(138.588, 108.34, 6.121, 0.7)
pt3dadd(138.67, 108.411, 6.074, 0.68)
pt3dadd(138.739, 108.503, 6.038, 0.69)
pt3dadd(138.734, 108.508, 6.035, 0.69)
pt3dadd(138.804, 108.601, 6.001, 0.702)
pt3dadd(138.872, 108.695, 5.967, 0.714)
pt3dadd(138.941, 108.788, 5.933, 0.726)
pt3dadd(139.01, 108.882, 5.899, 0.738)
pt3dadd(139.079, 108.975, 5.865, 0.75)
pt3dadd(139.147, 109.069, 5.831, 0.764)
pt3dadd(139.217, 109.162, 5.797, 0.776)
pt3dadd(139.284, 109.255, 5.763, 0.788)
pt3dadd(139.352, 109.349, 5.729, 0.8)
pt3dadd(139.428, 109.435, 5.69, 0.79)
pt3dadd(139.501, 109.521, 5.652, 0.78)
pt3dadd(139.576, 109.607, 5.613, 0.77)
pt3dadd(139.65, 109.693, 5.575, 0.76)
pt3dadd(139.645, 109.699, 5.571, 0.76)
pt3dadd(139.718, 109.785, 5.533, 0.752)
pt3dadd(139.794, 109.871, 5.494, 0.742)
pt3dadd(139.867, 109.957, 5.455, 0.732)
pt3dadd(139.943, 110.043, 5.417, 0.722)
pt3dadd(140.016, 110.129, 5.378, 0.712)
pt3dadd(140.093, 110.212, 5.34, 0.7)
pt3dadd(140.18, 110.281, 5.3, 0.682)
pt3dadd(140.268, 110.35, 5.26, 0.662)
pt3dadd(140.354, 110.419, 5.22, 0.644)
pt3dadd(140.443, 110.488, 5.18, 0.624)
pt3dadd(140.531, 110.558, 5.139, 0.606)
pt3dadd(140.617, 110.627, 5.099, 0.586)
pt3dadd(140.706, 110.696, 5.059, 0.568)
pt3dadd(140.792, 110.765, 5.019, 0.548)
pt3dadd(140.88, 110.834, 4.979, 0.53)
pt3dadd(140.969, 110.904, 4.942, 0.52)
pt3dadd(141.061, 110.974, 4.913, 0.536)
pt3dadd(141.152, 111.044, 4.885, 0.552)
pt3dadd(141.246, 111.114, 4.856, 0.568)
pt3dadd(141.337, 111.184, 4.827, 0.584)
pt3dadd(141.43, 111.254, 4.799, 0.6)
pt3dadd(141.522, 111.324, 4.77, 0.616)
pt3dadd(141.614, 111.395, 4.742, 0.634)
pt3dadd(141.706, 111.465, 4.713, 0.65)
pt3dadd(141.799, 111.535, 4.684, 0.666)
pt3dadd(141.894, 111.6, 4.657, 0.678)
pt3dadd(141.997, 111.652, 4.636, 0.678)
pt3dadd(142.103, 111.704, 4.614, 0.678)
pt3dadd(142.206, 111.756, 4.593, 0.678)
pt3dadd(142.31, 111.807, 4.571, 0.678)
pt3dadd(142.415, 111.859, 4.55, 0.678)
pt3dadd(142.519, 111.911, 4.528, 0.678)
pt3dadd(142.622, 111.963, 4.506, 0.678)
pt3dadd(142.728, 112.015, 4.485, 0.678)
pt3dadd(142.831, 112.067, 4.463, 0.678)
pt3dadd(142.933, 112.123, 4.443, 0.678)
pt3dadd(143.029, 112.193, 4.427, 0.678)
pt3dadd(143.125, 112.263, 4.412, 0.678)
pt3dadd(143.22, 112.333, 4.396, 0.678)
pt3dadd(143.317, 112.403, 4.38, 0.678)
pt3dadd(143.412, 112.473, 4.364, 0.678)
pt3dadd(143.509, 112.543, 4.349, 0.678)
pt3dadd(143.604, 112.613, 4.333, 0.678)
pt3dadd(143.7, 112.683, 4.317, 0.678)
pt3dadd(143.796, 112.752, 4.302, 0.678)
pt3dadd(143.89, 112.822, 4.279, 0.682)
pt3dadd(143.978, 112.889, 4.239, 0.698)
pt3dadd(144.068, 112.956, 4.2, 0.712)
pt3dadd(144.157, 113.023, 4.16, 0.728)
pt3dadd(144.245, 113.09, 4.12, 0.742)
pt3dadd(144.335, 113.157, 4.08, 0.758)
pt3dadd(144.424, 113.225, 4.041, 0.772)
pt3dadd(144.512, 113.292, 4.001, 0.788)
pt3dadd(144.602, 113.359, 3.961, 0.802)
pt3dadd(144.691, 113.426, 3.921, 0.818)
pt3dadd(144.779, 113.496, 3.882, 0.824)
pt3dadd(144.865, 113.567, 3.844, 0.818)
pt3dadd(144.952, 113.639, 3.806, 0.812)
pt3dadd(145.038, 113.711, 3.768, 0.808)
pt3dadd(145.126, 113.783, 3.73, 0.802)
pt3dadd(145.212, 113.855, 3.691, 0.796)
pt3dadd(145.298, 113.926, 3.653, 0.792)
pt3dadd(145.386, 113.998, 3.615, 0.786)
pt3dadd(145.471, 114.07, 3.577, 0.78)
pt3dadd(145.558, 114.142, 3.538, 0.776)
pt3dadd(145.651, 114.209, 3.508, 0.756)
pt3dadd(145.75, 114.272, 3.484, 0.726)
pt3dadd(145.847, 114.335, 3.459, 0.696)
pt3dadd(145.945, 114.398, 3.435, 0.664)
pt3dadd(146.044, 114.461, 3.411, 0.634)
pt3dadd(146.141, 114.524, 3.386, 0.604)
pt3dadd(146.239, 114.586, 3.362, 0.574)
pt3dadd(146.338, 114.649, 3.338, 0.542)
pt3dadd(146.435, 114.712, 3.313, 0.512)
pt3dadd(146.533, 114.775, 3.289, 0.482)
pt3dadd(146.635, 114.832, 3.271, 0.454)
pt3dadd(146.742, 114.885, 3.256, 0.43)
pt3dadd(146.846, 114.937, 3.24, 0.406)
pt3dadd(146.951, 114.99, 3.225, 0.382)
pt3dadd(147.056, 115.043, 3.21, 0.356)
pt3dadd(147.161, 115.096, 3.195, 0.332)
pt3dadd(147.265, 115.149, 3.18, 0.308)
pt3dadd(147.371, 115.202, 3.165, 0.284)
pt3dadd(147.476, 115.255, 3.15, 0.258)
pt3dadd(147.581, 115.308, 3.135, 0.234)
pt3dadd(147.685, 115.363, 3.123, 0.226)
pt3dadd(147.79, 115.419, 3.112, 0.226)
pt3dadd(147.893, 115.475, 3.102, 0.226)
pt3dadd(147.998, 115.531, 3.091, 0.226)
pt3dadd(148.102, 115.587, 3.08, 0.226)
pt3dadd(148.205, 115.643, 3.07, 0.226)
pt3dadd(148.31, 115.699, 3.059, 0.226)
pt3dadd(148.414, 115.755, 3.049, 0.226)
pt3dadd(148.518, 115.811, 3.038, 0.226)
pt3dadd(148.622, 115.867, 3.028, 0.226)
pt3dadd(148.732, 115.905, 3.014, 0.226)
pt3dadd(148.843, 115.935, 2.999, 0.226)
pt3dadd(148.957, 115.965, 2.983, 0.226)
pt3dadd(149.069, 115.995, 2.968, 0.226)
pt3dadd(149.18, 116.025, 2.953, 0.226)
pt3dadd(149.293, 116.054, 2.938, 0.226)
pt3dadd(149.406, 116.084, 2.922, 0.226)
pt3dadd(149.518, 116.114, 2.907, 0.226)
}
}
proc shape3d_131() {
dend_7[32] { pt3dadd(149.63, 116.144, 2.892, 0.226)
pt3dadd(149.742, 116.174, 2.877, 0.226)
pt3dadd(149.851, 116.188, 2.845, 0.226)
pt3dadd(149.96, 116.197, 2.806, 0.226)
pt3dadd(150.068, 116.205, 2.768, 0.226)
pt3dadd(150.175, 116.214, 2.729, 0.226)
pt3dadd(150.284, 116.222, 2.691, 0.226)
pt3dadd(150.392, 116.231, 2.652, 0.226)
pt3dadd(150.499, 116.239, 2.613, 0.226)
pt3dadd(150.608, 116.248, 2.575, 0.226)
pt3dadd(150.716, 116.256, 2.536, 0.226)
pt3dadd(150.824, 116.265, 2.497, 0.226)
pt3dadd(150.934, 116.262, 2.462, 0.226)
pt3dadd(151.043, 116.256, 2.428, 0.226)
pt3dadd(151.153, 116.249, 2.395, 0.226)
pt3dadd(151.262, 116.243, 2.361, 0.226)
pt3dadd(151.37, 116.236, 2.327, 0.226)
pt3dadd(151.481, 116.23, 2.293, 0.226)
pt3dadd(151.59, 116.224, 2.259, 0.226)
pt3dadd(151.699, 116.217, 2.225, 0.226)
pt3dadd(151.81, 116.211, 2.192, 0.226)
pt3dadd(151.919, 116.205, 2.158, 0.226)
pt3dadd(152.026, 116.175, 2.134, 0.226)
pt3dadd(152.132, 116.138, 2.113, 0.226)
pt3dadd(152.238, 116.102, 2.092, 0.226)
pt3dadd(152.344, 116.065, 2.071, 0.226)
pt3dadd(152.45, 116.029, 2.05, 0.226)
pt3dadd(152.556, 115.993, 2.029, 0.226)
pt3dadd(152.662, 115.956, 2.008, 0.226)
pt3dadd(152.77, 115.92, 1.987, 0.226)
pt3dadd(152.875, 115.884, 1.967, 0.226)
pt3dadd(152.981, 115.847, 1.946, 0.226)
pt3dadd(153.079, 115.791, 1.933, 0.226)
pt3dadd(153.178, 115.735, 1.921, 0.226)
pt3dadd(153.275, 115.679, 1.909, 0.226)
pt3dadd(153.374, 115.623, 1.896, 0.226)
pt3dadd(153.472, 115.566, 1.884, 0.226)
pt3dadd(153.569, 115.51, 1.872, 0.226)
pt3dadd(153.668, 115.454, 1.859, 0.226)
pt3dadd(153.766, 115.398, 1.847, 0.226)
pt3dadd(153.864, 115.342, 1.835, 0.226)
pt3dadd(153.962, 115.286, 1.822, 0.226)
pt3dadd(153.958, 115.291, 1.819, 0.452)
pt3dadd(154.057, 115.237, 1.82, 0.488)
pt3dadd(154.157, 115.183, 1.821, 0.522)
pt3dadd(154.176, 115.129, 1.893, 0.558)
pt3dadd(154.183, 115.076, 1.976, 0.596)
pt3dadd(154.236, 115.068, 2.055, 0.63)
pt3dadd(154.298, 115.071, 2.134, 0.666)
pt3dadd(154.396, 115.073, 2.167, 0.696)
pt3dadd(154.511, 115.074, 2.175, 0.724)
pt3dadd(154.625, 115.075, 2.184, 0.752)
pt3dadd(154.74, 115.077, 2.181, 0.79)
pt3dadd(154.855, 115.078, 2.177, 0.828)
pt3dadd(154.972, 115.079, 2.173, 0.836)
pt3dadd(155.087, 115.08, 2.169, 0.842)
pt3dadd(155.202, 115.082, 2.166, 0.85)
pt3dadd(155.318, 115.083, 2.162, 0.858)
pt3dadd(155.434, 115.084, 2.158, 0.864)
pt3dadd(155.549, 115.085, 2.154, 0.872)
pt3dadd(155.664, 115.086, 2.15, 0.878)
pt3dadd(155.78, 115.093, 2.147, 0.878)
pt3dadd(155.896, 115.101, 2.143, 0.878)
pt3dadd(156.012, 115.108, 2.139, 0.878)
pt3dadd(156.127, 115.115, 2.135, 0.878)
pt3dadd(156.242, 115.122, 2.131, 0.878)
pt3dadd(156.358, 115.129, 2.128, 0.878)
pt3dadd(156.467, 115.156, 2.124, 0.872)
pt3dadd(156.559, 115.234, 2.12, 0.848)
pt3dadd(156.654, 115.302, 2.116, 0.824)
pt3dadd(156.769, 115.318, 2.112, 0.796)
pt3dadd(156.883, 115.334, 2.109, 0.768)
pt3dadd(156.998, 115.35, 2.107, 0.744)
pt3dadd(157.115, 115.367, 2.107, 0.726)
pt3dadd(157.229, 115.384, 2.108, 0.706)
pt3dadd(157.306, 115.428, 2.165, 0.678)
pt3dadd(157.376, 115.471, 2.231, 0.652)
pt3dadd(157.436, 115.475, 2.312, 0.634)
pt3dadd(157.53, 115.477, 2.354, 0.628)
pt3dadd(157.642, 115.478, 2.375, 0.628)
pt3dadd(157.753, 115.479, 2.397, 0.628)
pt3dadd(157.865, 115.481, 2.418, 0.628)
pt3dadd(157.976, 115.482, 2.439, 0.628)
pt3dadd(158.088, 115.483, 2.461, 0.628)
pt3dadd(158.201, 115.466, 2.452, 0.652)
pt3dadd(158.314, 115.446, 2.441, 0.678)
pt3dadd(158.426, 115.426, 2.429, 0.704)
pt3dadd(158.538, 115.406, 2.418, 0.732)
pt3dadd(158.651, 115.386, 2.406, 0.758)
pt3dadd(158.76, 115.372, 2.384, 0.788)
pt3dadd(158.857, 115.374, 2.327, 0.834)
pt3dadd(158.954, 115.375, 2.271, 0.878)
pt3dadd(159.054, 115.377, 2.215, 0.922)
pt3dadd(159.151, 115.379, 2.159, 0.966)
pt3dadd(159.251, 115.381, 2.108, 1.01)
pt3dadd(159.365, 115.382, 2.088, 1.042)
pt3dadd(159.479, 115.383, 2.068, 1.076)
pt3dadd(159.593, 115.385, 2.047, 1.108)
pt3dadd(159.706, 115.386, 2.027, 1.142)
pt3dadd(159.821, 115.387, 2.007, 1.174)
pt3dadd(159.934, 115.391, 1.985, 1.204)
pt3dadd(160.037, 115.424, 1.945, 1.2)
pt3dadd(160.141, 115.458, 1.905, 1.194)
pt3dadd(160.246, 115.491, 1.865, 1.188)
pt3dadd(160.35, 115.525, 1.825, 1.184)
pt3dadd(160.445, 115.554, 1.772, 1.162)
pt3dadd(160.53, 115.577, 1.704, 1.122)
pt3dadd(160.616, 115.6, 1.635, 1.084)
pt3dadd(160.702, 115.623, 1.567, 1.044)
pt3dadd(160.786, 115.647, 1.499, 1.004)
pt3dadd(160.894, 115.687, 1.473, 0.908)
pt3dadd(161, 115.728, 1.447, 0.81)
pt3dadd(161.089, 115.752, 1.383, 0.78)
pt3dadd(161.176, 115.774, 1.315, 0.754)
pt3dadd(161.232, 115.798, 1.227, 0.792)
pt3dadd(161.288, 115.823, 1.139, 0.832)
pt3dadd(161.305, 115.889, 1.05, 0.894)
pt3dadd(161.327, 115.952, 0.962, 0.954)
pt3dadd(161.384, 115.995, 0.879, 0.954)
pt3dadd(161.442, 116.037, 0.795, 0.954)
pt3dadd(161.5, 116.08, 0.712, 0.954)
pt3dadd(161.598, 116.125, 0.666, 0.914)
pt3dadd(161.696, 116.164, 0.626, 0.876)
pt3dadd(161.813, 116.165, 0.62, 0.856)
pt3dadd(161.928, 116.166, 0.613, 0.838)
pt3dadd(162.043, 116.167, 0.606, 0.818)
pt3dadd(162.158, 116.169, 0.6, 0.81)
pt3dadd(162.275, 116.17, 0.597, 0.836)
pt3dadd(162.39, 116.171, 0.593, 0.86)
pt3dadd(162.505, 116.172, 0.588, 0.888)
pt3dadd(162.622, 116.174, 0.582, 0.92)
pt3dadd(162.737, 116.175, 0.575, 0.952)
pt3dadd(162.852, 116.176, 0.568, 0.984)
pt3dadd(162.946, 116.178, 0.532, 1.02)
pt3dadd(163.003, 116.181, 0.442, 1.066)
pt3dadd(163.051, 116.185, 0.35, 1.11)
pt3dadd(163.075, 116.19, 0.251, 1.132)
pt3dadd(163.139, 116.196, 0.164, 1.136)
pt3dadd(163.201, 116.202, 0.078, 1.142)
pt3dadd(163.265, 116.207, -0.009, 1.146)
pt3dadd(163.327, 116.213, -0.095, 1.152)
pt3dadd(163.394, 116.235, -0.175, 1.156)
pt3dadd(163.39, 116.241, -0.179, 1.156)
pt3dadd(163.466, 116.299, -0.242, 1.164)
pt3dadd(163.542, 116.357, -0.306, 1.17)
pt3dadd(163.618, 116.415, -0.37, 1.176)
pt3dadd(163.694, 116.474, -0.433, 1.18)
pt3dadd(163.77, 116.536, -0.494, 1.18)
pt3dadd(163.847, 116.597, -0.555, 1.18)
pt3dadd(163.922, 116.659, -0.616, 1.18)
pt3dadd(164, 116.712, -0.679, 1.176)
pt3dadd(164.086, 116.717, -0.749, 1.156)
pt3dadd(164.171, 116.722, -0.818, 1.136)
pt3dadd(164.258, 116.727, -0.888, 1.116)
pt3dadd(164.344, 116.732, -0.958, 1.094)
pt3dadd(164.436, 116.743, -1.018, 1.072)
pt3dadd(164.543, 116.769, -1.054, 1.046)
pt3dadd(164.65, 116.796, -1.091, 1.02)
pt3dadd(164.756, 116.822, -1.127, 0.994)
pt3dadd(164.864, 116.849, -1.163, 0.968)
pt3dadd(164.969, 116.874, -1.205, 0.944)
pt3dadd(165.068, 116.899, -1.255, 0.922)
pt3dadd(165.169, 116.924, -1.304, 0.9)
pt3dadd(165.27, 116.949, -1.354, 0.878)
pt3dadd(165.371, 116.974, -1.404, 0.856)
pt3dadd(165.475, 117.008, -1.44, 0.858)
pt3dadd(165.58, 117.044, -1.475, 0.864)
pt3dadd(165.685, 117.08, -1.51, 0.87)
pt3dadd(165.792, 117.116, -1.545, 0.874)
pt3dadd(165.892, 117.154, -1.586, 0.882)
pt3dadd(165.972, 117.202, -1.652, 0.896)
pt3dadd(166.063, 117.23, -1.706, 0.904)
pt3dadd(166.171, 117.232, -1.743, 0.904)
pt3dadd(166.28, 117.235, -1.778, 0.902)
pt3dadd(166.392, 117.272, -1.786, 0.858)
pt3dadd(166.504, 117.308, -1.795, 0.814)
pt3dadd(166.571, 117.376, -1.847, 0.772)
pt3dadd(166.622, 117.455, -1.914, 0.728)
pt3dadd(166.654, 117.555, -1.971, 0.708)
pt3dadd(166.709, 117.654, -2.01, 0.716)
pt3dadd(166.772, 117.753, -2.042, 0.734)
pt3dadd(166.836, 117.851, -2.074, 0.75)
pt3dadd(166.9, 117.949, -2.106, 0.768)
pt3dadd(166.975, 118.033, -2.141, 0.79)
pt3dadd(167.066, 118.095, -2.182, 0.82)
pt3dadd(167.159, 118.156, -2.222, 0.85)
pt3dadd(167.25, 118.218, -2.263, 0.88)
pt3dadd(167.34, 118.285, -2.301, 0.916)
pt3dadd(167.417, 118.373, -2.329, 0.982)
pt3dadd(167.5, 118.449, -2.362, 1.038)
pt3dadd(167.598, 118.493, -2.407, 1.064)
pt3dadd(167.701, 118.534, -2.437, 1.084)
pt3dadd(167.813, 118.57, -2.445, 1.096)
pt3dadd(167.924, 118.602, -2.453, 1.104)
pt3dadd(168.04, 118.604, -2.457, 1.104)
pt3dadd(168.155, 118.605, -2.461, 1.104)
pt3dadd(168.27, 118.613, -2.465, 1.108)
pt3dadd(168.371, 118.676, -2.468, 1.13)
pt3dadd(168.472, 118.738, -2.472, 1.154)
pt3dadd(168.467, 118.743, -2.476, 1.154)
}
}
proc shape3d_132() {
dend_7[32] { pt3dadd(168.505, 118.859, -2.48, 1.156)
pt3dadd(168.544, 118.976, -2.484, 1.144)
pt3dadd(168.588, 119.089, -2.496, 1.13)
pt3dadd(168.606, 119.206, -2.53, 1.13)
pt3dadd(168.617, 119.315, -2.582, 1.13)
pt3dadd(168.643, 119.417, -2.638, 1.13)
pt3dadd(168.701, 119.506, -2.681, 1.118)
pt3dadd(168.792, 119.579, -2.708, 1.09)
pt3dadd(168.876, 119.65, -2.748, 1.054)
pt3dadd(168.958, 119.721, -2.796, 1.01)
pt3dadd(169.062, 119.733, -2.834, 0.96)
pt3dadd(169.171, 119.734, -2.871, 0.906)
pt3dadd(169.272, 119.772, -2.897, 0.872)
pt3dadd(169.366, 119.845, -2.91, 0.856)
pt3dadd(169.46, 119.919, -2.924, 0.842)
pt3dadd(169.553, 119.993, -2.937, 0.828)
pt3dadd(169.645, 120.07, -2.94, 0.816)
pt3dadd(169.738, 120.146, -2.944, 0.804)
pt3dadd(169.841, 120.204, -2.948, 0.856)
pt3dadd(169.943, 120.266, -2.952, 0.86)
pt3dadd(170.045, 120.328, -2.955, 0.864)
pt3dadd(170.146, 120.389, -2.959, 0.87)
pt3dadd(170.248, 120.45, -2.963, 0.874)
pt3dadd(170.351, 120.509, -2.967, 0.878)
pt3dadd(170.46, 120.55, -2.971, 0.878)
pt3dadd(170.572, 120.592, -2.974, 0.878)
pt3dadd(170.683, 120.601, -2.992, 0.872)
pt3dadd(170.798, 120.602, -3.012, 0.862)
pt3dadd(170.906, 120.604, -3.043, 0.852)
pt3dadd(170.989, 120.606, -3.115, 0.84)
pt3dadd(171.074, 120.613, -3.183, 0.83)
pt3dadd(171.173, 120.678, -3.192, 0.854)
pt3dadd(171.272, 120.744, -3.201, 0.878)
pt3dadd(171.293, 120.862, -3.226, 0.912)
pt3dadd(171.346, 120.955, -3.259, 0.936)
pt3dadd(171.438, 121.015, -3.299, 0.95)
pt3dadd(171.498, 121.111, -3.319, 0.932)
pt3dadd(171.538, 121.228, -3.328, 0.9)
pt3dadd(171.602, 121.31, -3.35, 0.864)
pt3dadd(171.706, 121.338, -3.392, 0.826)
pt3dadd(171.815, 121.356, -3.422, 0.8)
pt3dadd(171.93, 121.357, -3.429, 0.792)
pt3dadd(172.045, 121.358, -3.437, 0.782)
pt3dadd(172.16, 121.36, -3.443, 0.79)
pt3dadd(172.277, 121.361, -3.446, 0.816)
pt3dadd(172.391, 121.362, -3.458, 0.832)
pt3dadd(172.505, 121.363, -3.478, 0.842)
pt3dadd(172.619, 121.366, -3.499, 0.85)
pt3dadd(172.733, 121.367, -3.519, 0.858)
pt3dadd(172.847, 121.368, -3.539, 0.866)
pt3dadd(172.96, 121.369, -3.559, 0.874)
pt3dadd(173.066, 121.37, -3.597, 0.882)
pt3dadd(173.16, 121.373, -3.658, 0.892)
pt3dadd(173.254, 121.374, -3.719, 0.904)
pt3dadd(173.347, 121.376, -3.78, 0.914)
pt3dadd(173.441, 121.379, -3.842, 0.922)
pt3dadd(173.54, 121.379, -3.893, 0.934)
pt3dadd(173.65, 121.379, -3.927, 0.948)
pt3dadd(173.761, 121.378, -3.961, 0.962)
pt3dadd(173.87, 121.376, -3.995, 0.976)
pt3dadd(173.98, 121.375, -4.029, 0.99)
pt3dadd(174.089, 121.374, -4.063, 1.002)
pt3dadd(174.187, 121.33, -4.097, 1.03)
pt3dadd(174.283, 121.28, -4.131, 1.058)
pt3dadd(174.379, 121.231, -4.165, 1.086)
pt3dadd(174.474, 121.182, -4.199, 1.116)
pt3dadd(174.58, 121.157, -4.229, 1.144)
pt3dadd(174.691, 121.158, -4.255, 1.174)
pt3dadd(174.805, 121.159, -4.281, 1.204)
pt3dadd(174.87, 121.163, -4.365, 1.194)
pt3dadd(174.932, 121.165, -4.451, 1.182)
pt3dadd(175.007, 121.112, -4.507, 1.122)
pt3dadd(175.082, 121.046, -4.555, 1.052)
pt3dadd(175.136, 120.973, -4.617, 1.01)
pt3dadd(175.199, 120.901, -4.67, 0.98)
pt3dadd(175.282, 120.833, -4.707, 0.98)
pt3dadd(175.362, 120.764, -4.744, 0.98)
pt3dadd(175.454, 120.715, -4.771, 0.984)
pt3dadd(175.568, 120.713, -4.775, 1.002)
pt3dadd(175.684, 120.709, -4.779, 1.02)
pt3dadd(175.799, 120.708, -4.783, 1.01)
pt3dadd(175.91, 120.69, -4.786, 0.97)
pt3dadd(175.906, 120.695, -4.79, 0.97)
pt3dadd(176.01, 120.649, -4.794, 0.946)
pt3dadd(176.114, 120.604, -4.798, 0.922)
pt3dadd(176.218, 120.558, -4.802, 0.9)
pt3dadd(176.322, 120.511, -4.805, 0.876)
pt3dadd(176.428, 120.468, -4.809, 0.852)
pt3dadd(176.542, 120.451, -4.811, 0.826)
pt3dadd(176.654, 120.436, -4.813, 0.802)
pt3dadd(176.767, 120.419, -4.815, 0.778)
pt3dadd(176.881, 120.403, -4.817, 0.752)
pt3dadd(176.995, 120.386, -4.819, 0.728)
pt3dadd(177.108, 120.371, -4.82, 0.702)
pt3dadd(177.215, 120.372, -4.785, 0.67)
pt3dadd(177.32, 120.373, -4.75, 0.638)
pt3dadd(177.416, 120.407, -4.708, 0.598)
pt3dadd(177.509, 120.454, -4.663, 0.556)
pt3dadd(177.616, 120.485, -4.688, 0.516)
pt3dadd(177.724, 120.514, -4.721, 0.478)
pt3dadd(177.817, 120.583, -4.742, 0.438)
pt3dadd(177.913, 120.654, -4.762, 0.402)
pt3dadd(178.015, 120.713, -4.758, 0.42)
pt3dadd(178.122, 120.746, -4.739, 0.494)
pt3dadd(178.217, 120.781, -4.696, 0.626)
pt3dadd(178.285, 120.875, -4.677, 0.678)
pt3dadd(178.343, 120.982, -4.681, 0.634)
pt3dadd(178.422, 121.073, -4.695, 0.558)
pt3dadd(178.492, 121.115, -4.763, 0.538)
pt3dadd(178.522, 121.126, -4.862, 0.552)
pt3dadd(178.559, 121.13, -4.957, 0.546)
}
dend_7[33] {pt3dclear()
pt3dadd(132.701, 102.928, 7.366, 0.292)
pt3dadd(132.695, 102.851, 7.366, 0.318)
pt3dadd(132.685, 102.731, 7.366, 0.362)
pt3dadd(132.676, 102.611, 7.366, 0.406)
pt3dadd(132.666, 102.492, 7.366, 0.448)
pt3dadd(132.656, 102.372, 7.366, 0.492)
pt3dadd(132.647, 102.252, 7.366, 0.534)
pt3dadd(132.671, 102.18, 7.374, 0.564)
pt3dadd(132.779, 102.223, 7.4, 0.564)
pt3dadd(132.887, 102.266, 7.427, 0.564)
pt3dadd(132.994, 102.308, 7.454, 0.564)
pt3dadd(133.102, 102.351, 7.48, 0.564)
pt3dadd(133.208, 102.393, 7.507, 0.564)
pt3dadd(133.316, 102.436, 7.533, 0.564)
pt3dadd(133.424, 102.478, 7.56, 0.564)
pt3dadd(133.531, 102.521, 7.586, 0.564)
pt3dadd(133.639, 102.564, 7.613, 0.564)
pt3dadd(133.747, 102.606, 7.64, 0.564)
pt3dadd(133.858, 102.645, 7.648, 0.564)
pt3dadd(133.97, 102.679, 7.632, 0.564)
pt3dadd(134.084, 102.713, 7.616, 0.564)
pt3dadd(134.197, 102.747, 7.601, 0.564)
pt3dadd(134.311, 102.781, 7.585, 0.564)
pt3dadd(134.424, 102.816, 7.57, 0.564)
pt3dadd(134.538, 102.85, 7.554, 0.564)
pt3dadd(134.652, 102.884, 7.539, 0.564)
pt3dadd(134.765, 102.918, 7.523, 0.564)
pt3dadd(134.879, 102.952, 7.507, 0.564)
pt3dadd(134.992, 102.986, 7.492, 0.564)
pt3dadd(135.106, 103.02, 7.476, 0.564)
pt3dadd(135.22, 103.055, 7.461, 0.564)
pt3dadd(135.331, 103.092, 7.445, 0.564)
pt3dadd(135.443, 103.134, 7.43, 0.564)
pt3dadd(135.553, 103.175, 7.415, 0.564)
pt3dadd(135.665, 103.217, 7.4, 0.564)
pt3dadd(135.776, 103.259, 7.386, 0.564)
pt3dadd(135.887, 103.3, 7.371, 0.564)
pt3dadd(135.998, 103.342, 7.356, 0.564)
pt3dadd(136.11, 103.383, 7.341, 0.564)
pt3dadd(136.22, 103.425, 7.326, 0.564)
pt3dadd(136.331, 103.461, 7.331, 0.564)
pt3dadd(136.441, 103.491, 7.363, 0.564)
pt3dadd(136.55, 103.521, 7.395, 0.564)
pt3dadd(136.661, 103.551, 7.426, 0.564)
pt3dadd(136.77, 103.581, 7.458, 0.564)
pt3dadd(136.88, 103.611, 7.49, 0.564)
pt3dadd(136.99, 103.641, 7.522, 0.564)
pt3dadd(137.1, 103.67, 7.553, 0.564)
pt3dadd(137.209, 103.7, 7.585, 0.564)
pt3dadd(137.32, 103.73, 7.617, 0.564)
pt3dadd(137.429, 103.76, 7.649, 0.564)
pt3dadd(137.539, 103.79, 7.68, 0.564)
pt3dadd(137.648, 103.82, 7.712, 0.564)
pt3dadd(137.759, 103.85, 7.744, 0.564)
pt3dadd(137.868, 103.88, 7.776, 0.564)
pt3dadd(137.978, 103.909, 7.807, 0.564)
pt3dadd(138.088, 103.939, 7.839, 0.564)
pt3dadd(138.204, 103.953, 7.851, 0.564)
pt3dadd(138.324, 103.956, 7.853, 0.564)
pt3dadd(138.444, 103.96, 7.855, 0.564)
pt3dadd(138.564, 103.964, 7.856, 0.564)
pt3dadd(138.684, 103.968, 7.858, 0.564)
pt3dadd(138.804, 103.972, 7.859, 0.564)
pt3dadd(138.924, 103.976, 7.861, 0.564)
pt3dadd(139.044, 103.98, 7.862, 0.564)
pt3dadd(139.164, 103.984, 7.864, 0.564)
pt3dadd(139.284, 103.988, 7.866, 0.564)
pt3dadd(139.404, 103.992, 7.867, 0.564)
pt3dadd(139.524, 103.996, 7.869, 0.564)
pt3dadd(139.643, 104, 7.87, 0.564)
pt3dadd(139.754, 103.995, 7.898, 0.564)
pt3dadd(139.858, 103.981, 7.948, 0.564)
pt3dadd(139.96, 103.968, 7.998, 0.564)
pt3dadd(140.063, 103.955, 8.048, 0.564)
pt3dadd(140.166, 103.941, 8.099, 0.564)
pt3dadd(140.269, 103.928, 8.149, 0.564)
pt3dadd(140.372, 103.915, 8.199, 0.564)
pt3dadd(140.474, 103.901, 8.249, 0.564)
pt3dadd(140.578, 103.888, 8.299, 0.564)
pt3dadd(140.681, 103.875, 8.349, 0.564)
pt3dadd(140.784, 103.861, 8.399, 0.564)
pt3dadd(140.887, 103.848, 8.45, 0.564)
pt3dadd(140.989, 103.835, 8.5, 0.564)
pt3dadd(141.092, 103.821, 8.55, 0.564)
pt3dadd(141.196, 103.808, 8.6, 0.564)
pt3dadd(141.299, 103.795, 8.65, 0.564)
pt3dadd(141.4, 103.809, 8.643, 0.564)
pt3dadd(141.5, 103.843, 8.596, 0.564)
pt3dadd(141.6, 103.878, 8.549, 0.564)
}
}
proc shape3d_133() {
dend_7[33] { pt3dadd(141.701, 103.912, 8.502, 0.564)
pt3dadd(141.8, 103.946, 8.455, 0.564)
pt3dadd(141.901, 103.98, 8.408, 0.564)
pt3dadd(142.001, 104.014, 8.361, 0.564)
pt3dadd(142.102, 104.048, 8.314, 0.564)
pt3dadd(142.201, 104.082, 8.267, 0.564)
pt3dadd(142.302, 104.117, 8.22, 0.564)
pt3dadd(142.402, 104.151, 8.173, 0.564)
pt3dadd(142.502, 104.185, 8.125, 0.564)
pt3dadd(142.607, 104.212, 8.089, 0.564)
pt3dadd(142.727, 104.218, 8.085, 0.564)
pt3dadd(142.847, 104.223, 8.08, 0.564)
pt3dadd(142.967, 104.229, 8.075, 0.564)
pt3dadd(143.087, 104.235, 8.07, 0.564)
pt3dadd(143.206, 104.241, 8.066, 0.564)
pt3dadd(143.326, 104.247, 8.061, 0.564)
pt3dadd(143.446, 104.252, 8.056, 0.564)
pt3dadd(143.566, 104.258, 8.052, 0.564)
pt3dadd(143.684, 104.264, 8.047, 0.564)
pt3dadd(143.804, 104.27, 8.042, 0.564)
pt3dadd(143.924, 104.275, 8.038, 0.564)
pt3dadd(144.044, 104.281, 8.033, 0.564)
pt3dadd(144.163, 104.287, 8.028, 0.564)
pt3dadd(144.283, 104.293, 8.024, 0.564)
pt3dadd(144.398, 104.297, 8.051, 0.564)
pt3dadd(144.512, 104.301, 8.082, 0.564)
pt3dadd(144.626, 104.306, 8.113, 0.564)
pt3dadd(144.74, 104.31, 8.143, 0.564)
pt3dadd(144.854, 104.314, 8.174, 0.564)
pt3dadd(144.968, 104.318, 8.205, 0.564)
pt3dadd(145.082, 104.322, 8.236, 0.564)
pt3dadd(145.196, 104.327, 8.267, 0.564)
pt3dadd(145.31, 104.331, 8.297, 0.564)
pt3dadd(145.424, 104.335, 8.328, 0.564)
pt3dadd(145.54, 104.34, 8.359, 0.564)
pt3dadd(145.654, 104.344, 8.39, 0.564)
pt3dadd(145.768, 104.348, 8.42, 0.564)
pt3dadd(145.882, 104.352, 8.451, 0.564)
pt3dadd(145.996, 104.355, 8.481, 0.564)
pt3dadd(146.112, 104.351, 8.507, 0.564)
pt3dadd(146.227, 104.346, 8.532, 0.564)
pt3dadd(146.344, 104.342, 8.558, 0.564)
pt3dadd(146.459, 104.338, 8.584, 0.564)
pt3dadd(146.575, 104.334, 8.61, 0.564)
pt3dadd(146.692, 104.33, 8.635, 0.564)
pt3dadd(146.807, 104.326, 8.661, 0.564)
pt3dadd(146.923, 104.322, 8.687, 0.564)
pt3dadd(147.038, 104.317, 8.712, 0.564)
pt3dadd(147.155, 104.313, 8.738, 0.564)
pt3dadd(147.272, 104.307, 8.757, 0.564)
pt3dadd(147.391, 104.298, 8.768, 0.564)
pt3dadd(147.51, 104.289, 8.78, 0.564)
pt3dadd(147.629, 104.28, 8.791, 0.564)
pt3dadd(147.748, 104.271, 8.802, 0.564)
pt3dadd(147.866, 104.262, 8.814, 0.564)
pt3dadd(147.985, 104.253, 8.825, 0.564)
pt3dadd(148.104, 104.244, 8.836, 0.564)
pt3dadd(148.223, 104.235, 8.848, 0.564)
pt3dadd(148.342, 104.227, 8.859, 0.564)
pt3dadd(148.46, 104.218, 8.871, 0.564)
pt3dadd(148.58, 104.209, 8.882, 0.564)
pt3dadd(148.699, 104.2, 8.893, 0.564)
pt3dadd(148.818, 104.191, 8.905, 0.564)
pt3dadd(148.937, 104.182, 8.916, 0.564)
pt3dadd(149.056, 104.173, 8.927, 0.564)
pt3dadd(149.174, 104.164, 8.939, 0.564)
pt3dadd(149.293, 104.155, 8.95, 0.564)
pt3dadd(149.412, 104.146, 8.961, 0.564)
pt3dadd(149.531, 104.137, 8.973, 0.564)
pt3dadd(149.646, 104.115, 8.989, 0.564)
pt3dadd(149.76, 104.083, 9.009, 0.564)
pt3dadd(149.873, 104.052, 9.03, 0.564)
pt3dadd(149.986, 104.02, 9.05, 0.564)
pt3dadd(150.098, 103.988, 9.07, 0.564)
pt3dadd(150.212, 103.956, 9.091, 0.564)
pt3dadd(150.325, 103.924, 9.111, 0.564)
pt3dadd(150.438, 103.892, 9.131, 0.564)
pt3dadd(150.551, 103.86, 9.152, 0.564)
pt3dadd(150.665, 103.828, 9.172, 0.564)
pt3dadd(150.778, 103.797, 9.192, 0.564)
pt3dadd(150.89, 103.765, 9.213, 0.564)
pt3dadd(151.003, 103.733, 9.233, 0.564)
pt3dadd(151.117, 103.701, 9.253, 0.564)
pt3dadd(151.23, 103.669, 9.274, 0.564)
pt3dadd(151.343, 103.637, 9.294, 0.564)
pt3dadd(151.453, 103.591, 9.298, 0.564)
pt3dadd(151.561, 103.54, 9.296, 0.564)
pt3dadd(151.67, 103.49, 9.294, 0.564)
pt3dadd(151.778, 103.439, 9.292, 0.564)
pt3dadd(151.888, 103.388, 9.29, 0.564)
pt3dadd(151.996, 103.337, 9.288, 0.564)
pt3dadd(152.105, 103.286, 9.286, 0.564)
pt3dadd(152.213, 103.235, 9.284, 0.564)
pt3dadd(152.322, 103.184, 9.282, 0.564)
pt3dadd(152.43, 103.133, 9.28, 0.564)
pt3dadd(152.539, 103.082, 9.278, 0.564)
pt3dadd(152.647, 103.031, 9.275, 0.564)
pt3dadd(152.756, 102.98, 9.273, 0.564)
pt3dadd(152.864, 102.929, 9.271, 0.564)
pt3dadd(152.974, 102.878, 9.269, 0.564)
pt3dadd(153.088, 102.846, 9.284, 0.564)
pt3dadd(153.203, 102.815, 9.298, 0.564)
pt3dadd(153.317, 102.784, 9.313, 0.564)
pt3dadd(153.432, 102.753, 9.327, 0.564)
pt3dadd(153.546, 102.722, 9.342, 0.564)
pt3dadd(153.661, 102.691, 9.356, 0.564)
pt3dadd(153.775, 102.66, 9.371, 0.564)
pt3dadd(153.889, 102.629, 9.385, 0.564)
pt3dadd(154.004, 102.597, 9.4, 0.564)
pt3dadd(154.118, 102.566, 9.414, 0.564)
pt3dadd(154.234, 102.535, 9.429, 0.564)
pt3dadd(154.348, 102.504, 9.443, 0.564)
pt3dadd(154.463, 102.473, 9.458, 0.564)
pt3dadd(154.577, 102.442, 9.473, 0.564)
pt3dadd(154.691, 102.404, 9.47, 0.564)
pt3dadd(154.805, 102.365, 9.466, 0.564)
pt3dadd(154.918, 102.327, 9.462, 0.564)
pt3dadd(155.032, 102.288, 9.458, 0.564)
pt3dadd(155.146, 102.25, 9.454, 0.564)
pt3dadd(155.258, 102.211, 9.45, 0.564)
pt3dadd(155.372, 102.173, 9.446, 0.564)
pt3dadd(155.486, 102.135, 9.443, 0.564)
pt3dadd(155.599, 102.096, 9.439, 0.564)
pt3dadd(155.708, 102.061, 9.463, 0.564)
pt3dadd(155.816, 102.028, 9.496, 0.564)
pt3dadd(155.924, 101.994, 9.529, 0.564)
pt3dadd(156.032, 101.96, 9.563, 0.564)
pt3dadd(156.14, 101.927, 9.596, 0.564)
pt3dadd(156.25, 101.893, 9.629, 0.564)
pt3dadd(156.358, 101.859, 9.662, 0.564)
pt3dadd(156.466, 101.826, 9.696, 0.564)
pt3dadd(156.574, 101.792, 9.729, 0.564)
pt3dadd(156.682, 101.758, 9.762, 0.564)
pt3dadd(156.79, 101.725, 9.795, 0.564)
pt3dadd(156.898, 101.691, 9.829, 0.564)
pt3dadd(157.009, 101.65, 9.82, 0.564)
pt3dadd(157.121, 101.608, 9.808, 0.564)
pt3dadd(157.232, 101.567, 9.796, 0.564)
pt3dadd(157.344, 101.525, 9.784, 0.564)
pt3dadd(157.456, 101.483, 9.773, 0.564)
pt3dadd(157.567, 101.442, 9.761, 0.564)
pt3dadd(157.679, 101.4, 9.749, 0.564)
pt3dadd(157.79, 101.358, 9.737, 0.564)
pt3dadd(157.902, 101.317, 9.726, 0.564)
pt3dadd(158.014, 101.278, 9.714, 0.564)
pt3dadd(158.132, 101.286, 9.701, 0.564)
pt3dadd(158.251, 101.294, 9.688, 0.564)
pt3dadd(158.37, 101.302, 9.675, 0.564)
pt3dadd(158.489, 101.31, 9.662, 0.564)
pt3dadd(158.608, 101.318, 9.649, 0.564)
pt3dadd(158.726, 101.326, 9.636, 0.564)
pt3dadd(158.845, 101.334, 9.623, 0.564)
pt3dadd(158.964, 101.342, 9.611, 0.564)
pt3dadd(159.083, 101.35, 9.598, 0.564)
pt3dadd(159.202, 101.358, 9.585, 0.564)
pt3dadd(159.319, 101.358, 9.584, 0.564)
pt3dadd(159.437, 101.346, 9.602, 0.564)
pt3dadd(159.554, 101.334, 9.621, 0.564)
pt3dadd(159.672, 101.322, 9.639, 0.564)
pt3dadd(159.788, 101.31, 9.657, 0.564)
pt3dadd(159.906, 101.298, 9.675, 0.564)
pt3dadd(160.024, 101.285, 9.693, 0.564)
pt3dadd(160.141, 101.273, 9.711, 0.564)
pt3dadd(160.259, 101.261, 9.73, 0.564)
pt3dadd(160.376, 101.249, 9.748, 0.564)
pt3dadd(160.493, 101.237, 9.766, 0.564)
pt3dadd(160.61, 101.225, 9.784, 0.564)
pt3dadd(160.728, 101.213, 9.802, 0.564)
pt3dadd(160.846, 101.201, 9.82, 0.564)
pt3dadd(160.963, 101.189, 9.839, 0.564)
pt3dadd(161.08, 101.177, 9.857, 0.564)
pt3dadd(161.197, 101.164, 9.875, 0.564)
pt3dadd(161.315, 101.152, 9.893, 0.564)
pt3dadd(161.432, 101.14, 9.911, 0.564)
pt3dadd(161.55, 101.128, 9.929, 0.564)
pt3dadd(161.668, 101.116, 9.948, 0.564)
pt3dadd(161.784, 101.104, 9.966, 0.564)
pt3dadd(161.902, 101.103, 9.985, 0.564)
pt3dadd(162.019, 101.111, 10.005, 0.564)
pt3dadd(162.137, 101.118, 10.025, 0.564)
pt3dadd(162.253, 101.126, 10.045, 0.564)
pt3dadd(162.371, 101.133, 10.065, 0.564)
pt3dadd(162.488, 101.141, 10.085, 0.564)
pt3dadd(162.606, 101.148, 10.105, 0.564)
pt3dadd(162.724, 101.156, 10.125, 0.564)
pt3dadd(162.84, 101.163, 10.145, 0.564)
pt3dadd(162.958, 101.171, 10.165, 0.564)
pt3dadd(163.075, 101.178, 10.185, 0.564)
pt3dadd(163.193, 101.186, 10.205, 0.564)
pt3dadd(163.309, 101.193, 10.226, 0.564)
pt3dadd(163.427, 101.201, 10.246, 0.564)
pt3dadd(163.544, 101.208, 10.266, 0.564)
pt3dadd(163.662, 101.211, 10.282, 0.564)
pt3dadd(163.781, 101.198, 10.291, 0.564)
pt3dadd(163.9, 101.185, 10.299, 0.564)
pt3dadd(164.018, 101.172, 10.307, 0.564)
pt3dadd(164.137, 101.16, 10.315, 0.564)
pt3dadd(164.257, 101.147, 10.323, 0.564)
pt3dadd(164.376, 101.134, 10.331, 0.564)
pt3dadd(164.495, 101.121, 10.339, 0.564)
}
}
proc shape3d_134() {
dend_7[33] { pt3dadd(164.614, 101.109, 10.348, 0.564)
pt3dadd(164.732, 101.096, 10.356, 0.564)
pt3dadd(164.851, 101.083, 10.364, 0.564)
pt3dadd(164.97, 101.07, 10.372, 0.564)
pt3dadd(165.084, 101.084, 10.362, 0.564)
pt3dadd(165.192, 101.122, 10.334, 0.564)
pt3dadd(165.301, 101.161, 10.305, 0.564)
pt3dadd(165.409, 101.199, 10.277, 0.564)
pt3dadd(165.517, 101.238, 10.249, 0.564)
pt3dadd(165.626, 101.277, 10.221, 0.564)
pt3dadd(165.734, 101.316, 10.192, 0.564)
pt3dadd(165.842, 101.354, 10.164, 0.564)
pt3dadd(165.952, 101.393, 10.136, 0.564)
pt3dadd(166.06, 101.431, 10.108, 0.564)
pt3dadd(166.172, 101.444, 10.111, 0.564)
pt3dadd(166.289, 101.439, 10.135, 0.564)
pt3dadd(166.405, 101.434, 10.159, 0.564)
pt3dadd(166.522, 101.429, 10.184, 0.564)
pt3dadd(166.638, 101.424, 10.208, 0.564)
pt3dadd(166.754, 101.419, 10.232, 0.564)
pt3dadd(166.871, 101.414, 10.256, 0.564)
pt3dadd(166.987, 101.409, 10.281, 0.564)
pt3dadd(167.104, 101.404, 10.305, 0.564)
pt3dadd(167.22, 101.399, 10.329, 0.564)
pt3dadd(167.336, 101.394, 10.353, 0.564)
pt3dadd(167.452, 101.389, 10.378, 0.564)
pt3dadd(167.568, 101.384, 10.402, 0.564)
pt3dadd(167.68, 101.413, 10.382, 0.564)
pt3dadd(167.791, 101.447, 10.356, 0.564)
pt3dadd(167.902, 101.481, 10.33, 0.564)
pt3dadd(168.012, 101.515, 10.304, 0.564)
pt3dadd(168.122, 101.549, 10.277, 0.564)
pt3dadd(168.233, 101.583, 10.251, 0.564)
pt3dadd(168.344, 101.617, 10.225, 0.564)
pt3dadd(168.455, 101.651, 10.199, 0.564)
pt3dadd(168.565, 101.685, 10.172, 0.564)
pt3dadd(168.676, 101.719, 10.146, 0.564)
pt3dadd(168.786, 101.755, 10.137, 0.564)
pt3dadd(168.894, 101.797, 10.162, 0.564)
pt3dadd(169.002, 101.839, 10.187, 0.564)
pt3dadd(169.111, 101.881, 10.213, 0.564)
pt3dadd(169.219, 101.923, 10.238, 0.564)
pt3dadd(169.327, 101.965, 10.264, 0.564)
pt3dadd(169.435, 102.007, 10.289, 0.564)
pt3dadd(169.543, 102.049, 10.314, 0.564)
pt3dadd(169.652, 102.091, 10.34, 0.564)
pt3dadd(169.76, 102.133, 10.365, 0.564)
pt3dadd(169.868, 102.175, 10.39, 0.564)
pt3dadd(169.97, 102.238, 10.39, 0.564)
pt3dadd(170.074, 102.3, 10.389, 0.564)
pt3dadd(170.176, 102.363, 10.389, 0.564)
pt3dadd(170.278, 102.425, 10.388, 0.564)
pt3dadd(170.381, 102.487, 10.388, 0.564)
pt3dadd(170.483, 102.55, 10.387, 0.564)
pt3dadd(170.586, 102.612, 10.387, 0.564)
pt3dadd(170.688, 102.675, 10.387, 0.564)
pt3dadd(170.791, 102.737, 10.386, 0.564)
pt3dadd(170.893, 102.799, 10.386, 0.564)
pt3dadd(170.995, 102.862, 10.385, 0.564)
pt3dadd(171.096, 102.927, 10.384, 0.564)
pt3dadd(171.182, 103.01, 10.379, 0.564)
pt3dadd(171.269, 103.093, 10.373, 0.564)
pt3dadd(171.355, 103.176, 10.367, 0.564)
pt3dadd(171.442, 103.259, 10.361, 0.564)
pt3dadd(171.528, 103.342, 10.356, 0.564)
pt3dadd(171.614, 103.425, 10.35, 0.564)
pt3dadd(171.701, 103.508, 10.344, 0.564)
pt3dadd(171.787, 103.591, 10.339, 0.564)
pt3dadd(171.874, 103.674, 10.333, 0.564)
pt3dadd(171.96, 103.757, 10.327, 0.564)
pt3dadd(172.046, 103.84, 10.322, 0.564)
pt3dadd(172.133, 103.923, 10.316, 0.564)
pt3dadd(172.219, 104.006, 10.31, 0.564)
pt3dadd(172.306, 104.089, 10.305, 0.564)
pt3dadd(172.392, 104.172, 10.299, 0.564)
pt3dadd(172.477, 104.256, 10.293, 0.564)
pt3dadd(172.564, 104.339, 10.288, 0.564)
pt3dadd(172.65, 104.422, 10.282, 0.564)
pt3dadd(172.736, 104.505, 10.276, 0.564)
pt3dadd(172.823, 104.588, 10.27, 0.564)
pt3dadd(172.916, 104.659, 10.264, 0.564)
pt3dadd(173.028, 104.703, 10.258, 0.564)
pt3dadd(173.14, 104.746, 10.252, 0.564)
pt3dadd(173.251, 104.79, 10.246, 0.564)
pt3dadd(173.363, 104.833, 10.239, 0.564)
pt3dadd(173.474, 104.877, 10.233, 0.564)
pt3dadd(173.586, 104.92, 10.227, 0.564)
pt3dadd(173.698, 104.963, 10.22, 0.564)
pt3dadd(173.809, 105.007, 10.214, 0.564)
pt3dadd(173.921, 105.05, 10.208, 0.564)
pt3dadd(174.032, 105.093, 10.202, 0.564)
pt3dadd(174.144, 105.137, 10.195, 0.564)
pt3dadd(174.257, 105.18, 10.189, 0.564)
pt3dadd(174.368, 105.224, 10.183, 0.564)
pt3dadd(174.48, 105.267, 10.177, 0.564)
pt3dadd(174.592, 105.31, 10.17, 0.564)
pt3dadd(174.703, 105.354, 10.164, 0.564)
pt3dadd(174.808, 105.407, 10.151, 0.564)
pt3dadd(174.9, 105.477, 10.127, 0.564)
pt3dadd(174.994, 105.547, 10.103, 0.564)
pt3dadd(175.086, 105.617, 10.079, 0.564)
pt3dadd(175.18, 105.687, 10.055, 0.564)
pt3dadd(175.272, 105.758, 10.031, 0.564)
pt3dadd(175.366, 105.828, 10.007, 0.564)
pt3dadd(175.458, 105.898, 9.983, 0.564)
pt3dadd(175.552, 105.968, 9.958, 0.564)
pt3dadd(175.644, 106.038, 9.934, 0.564)
pt3dadd(175.738, 106.108, 9.91, 0.564)
pt3dadd(175.83, 106.178, 9.886, 0.564)
pt3dadd(175.924, 106.247, 9.861, 0.564)
pt3dadd(176.032, 106.265, 9.82, 0.564)
pt3dadd(176.14, 106.282, 9.779, 0.564)
pt3dadd(176.248, 106.299, 9.738, 0.564)
pt3dadd(176.356, 106.317, 9.697, 0.564)
pt3dadd(176.464, 106.334, 9.656, 0.564)
pt3dadd(176.572, 106.352, 9.615, 0.564)
pt3dadd(176.68, 106.369, 9.573, 0.564)
pt3dadd(176.788, 106.387, 9.532, 0.564)
pt3dadd(176.896, 106.404, 9.491, 0.564)
pt3dadd(177.004, 106.428, 9.47, 0.564)
pt3dadd(177.114, 106.466, 9.496, 0.564)
pt3dadd(177.223, 106.504, 9.521, 0.564)
pt3dadd(177.332, 106.542, 9.546, 0.564)
pt3dadd(177.443, 106.58, 9.572, 0.564)
pt3dadd(177.552, 106.618, 9.597, 0.564)
pt3dadd(177.662, 106.656, 9.622, 0.564)
pt3dadd(177.772, 106.694, 9.648, 0.564)
pt3dadd(177.882, 106.731, 9.673, 0.564)
pt3dadd(177.991, 106.77, 9.698, 0.564)
pt3dadd(178.091, 106.835, 9.691, 0.542)
pt3dadd(178.189, 106.902, 9.681, 0.516)
pt3dadd(178.288, 106.97, 9.671, 0.492)
pt3dadd(178.386, 107.038, 9.662, 0.466)
pt3dadd(178.484, 107.105, 9.652, 0.442)
pt3dadd(178.583, 107.173, 9.642, 0.416)
pt3dadd(178.681, 107.241, 9.632, 0.392)
pt3dadd(178.78, 107.308, 9.622, 0.366)
pt3dadd(178.878, 107.376, 9.612, 0.342)
pt3dadd(178.976, 107.444, 9.602, 0.316)
pt3dadd(179.075, 107.511, 9.593, 0.292)
pt3dadd(179.173, 107.579, 9.583, 0.266)
pt3dadd(179.272, 107.647, 9.573, 0.242)
pt3dadd(179.37, 107.707, 9.553, 0.23)
pt3dadd(179.471, 107.757, 9.517, 0.242)
pt3dadd(179.572, 107.806, 9.481, 0.252)
pt3dadd(179.672, 107.855, 9.446, 0.264)
pt3dadd(179.773, 107.905, 9.41, 0.274)
pt3dadd(179.873, 107.954, 9.374, 0.286)
pt3dadd(179.974, 108.004, 9.338, 0.298)
pt3dadd(180.074, 108.053, 9.302, 0.308)
pt3dadd(180.175, 108.103, 9.267, 0.32)
pt3dadd(180.276, 108.152, 9.231, 0.33)
pt3dadd(180.377, 108.197, 9.193, 0.348)
pt3dadd(180.479, 108.237, 9.152, 0.372)
pt3dadd(180.581, 108.277, 9.112, 0.396)
pt3dadd(180.683, 108.317, 9.072, 0.422)
pt3dadd(180.786, 108.358, 9.031, 0.446)
pt3dadd(180.888, 108.398, 8.991, 0.47)
pt3dadd(180.99, 108.438, 8.951, 0.494)
pt3dadd(181.092, 108.478, 8.91, 0.518)
pt3dadd(181.194, 108.519, 8.87, 0.542)
pt3dadd(181.296, 108.559, 8.83, 0.566)
pt3dadd(181.405, 108.595, 8.802, 0.576)
pt3dadd(181.518, 108.627, 8.782, 0.574)
pt3dadd(181.631, 108.66, 8.762, 0.572)
pt3dadd(181.744, 108.693, 8.742, 0.57)
pt3dadd(181.856, 108.726, 8.722, 0.568)
pt3dadd(181.969, 108.759, 8.702, 0.568)
pt3dadd(182.083, 108.791, 8.682, 0.566)
pt3dadd(182.196, 108.824, 8.662, 0.564)
pt3dadd(182.309, 108.857, 8.642, 0.562)
pt3dadd(182.422, 108.89, 8.622, 0.56)
pt3dadd(182.532, 108.933, 8.611, 0.548)
pt3dadd(182.642, 108.981, 8.605, 0.528)
pt3dadd(182.752, 109.029, 8.599, 0.51)
pt3dadd(182.861, 109.077, 8.592, 0.49)
pt3dadd(182.971, 109.126, 8.586, 0.472)
pt3dadd(183.08, 109.174, 8.58, 0.452)
pt3dadd(183.19, 109.222, 8.573, 0.434)
pt3dadd(183.299, 109.271, 8.567, 0.414)
pt3dadd(183.409, 109.319, 8.561, 0.396)
pt3dadd(183.518, 109.367, 8.554, 0.376)
pt3dadd(183.62, 109.43, 8.553, 0.362)
pt3dadd(183.72, 109.497, 8.553, 0.35)
pt3dadd(183.82, 109.563, 8.552, 0.336)
pt3dadd(183.919, 109.63, 8.552, 0.322)
pt3dadd(184.02, 109.697, 8.552, 0.31)
pt3dadd(184.12, 109.763, 8.552, 0.296)
pt3dadd(184.219, 109.83, 8.552, 0.284)
pt3dadd(184.319, 109.897, 8.552, 0.27)
pt3dadd(184.418, 109.963, 8.552, 0.256)
pt3dadd(184.518, 110.03, 8.552, 0.244)
pt3dadd(184.609, 110.108, 8.552, 0.252)
pt3dadd(184.699, 110.188, 8.552, 0.268)
pt3dadd(184.788, 110.268, 8.552, 0.282)
pt3dadd(184.877, 110.349, 8.551, 0.296)
pt3dadd(184.966, 110.429, 8.551, 0.31)
pt3dadd(185.056, 110.51, 8.551, 0.326)
pt3dadd(185.144, 110.59, 8.551, 0.34)
pt3dadd(185.233, 110.67, 8.551, 0.354)
}
}
proc shape3d_135() {
dend_7[33] { pt3dadd(185.322, 110.751, 8.551, 0.37)
pt3dadd(185.412, 110.831, 8.55, 0.384)
pt3dadd(185.498, 110.914, 8.55, 0.392)
pt3dadd(185.585, 110.997, 8.55, 0.398)
pt3dadd(185.67, 111.081, 8.55, 0.406)
pt3dadd(185.756, 111.165, 8.55, 0.412)
pt3dadd(185.843, 111.248, 8.549, 0.418)
pt3dadd(185.929, 111.332, 8.549, 0.424)
pt3dadd(186.014, 111.415, 8.549, 0.432)
pt3dadd(186.101, 111.499, 8.549, 0.438)
pt3dadd(186.187, 111.582, 8.548, 0.444)
pt3dadd(186.274, 111.666, 8.548, 0.45)
pt3dadd(186.358, 111.752, 8.548, 0.452)
pt3dadd(186.442, 111.838, 8.547, 0.452)
pt3dadd(186.524, 111.924, 8.547, 0.452)
pt3dadd(186.608, 112.01, 8.547, 0.452)
pt3dadd(186.692, 112.096, 8.547, 0.452)
pt3dadd(186.775, 112.182, 8.546, 0.452)
pt3dadd(186.859, 112.268, 8.546, 0.452)
pt3dadd(186.943, 112.354, 8.546, 0.452)
pt3dadd(187.026, 112.44, 8.545, 0.452)
pt3dadd(187.11, 112.526, 8.545, 0.452)
pt3dadd(187.193, 112.614, 8.544, 0.474)
pt3dadd(187.274, 112.701, 8.544, 0.5)
pt3dadd(187.356, 112.789, 8.543, 0.526)
pt3dadd(187.438, 112.877, 8.543, 0.554)
pt3dadd(187.519, 112.965, 8.542, 0.58)
pt3dadd(187.601, 113.052, 8.541, 0.606)
pt3dadd(187.684, 113.14, 8.541, 0.634)
pt3dadd(187.765, 113.228, 8.54, 0.66)
pt3dadd(187.847, 113.316, 8.539, 0.686)
pt3dadd(187.928, 113.404, 8.539, 0.714)
pt3dadd(188.01, 113.492, 8.538, 0.734)
pt3dadd(188.09, 113.581, 8.537, 0.752)
pt3dadd(188.171, 113.67, 8.536, 0.77)
pt3dadd(188.252, 113.758, 8.535, 0.788)
pt3dadd(188.333, 113.847, 8.534, 0.808)
pt3dadd(188.413, 113.936, 8.533, 0.826)
pt3dadd(188.495, 114.024, 8.532, 0.844)
pt3dadd(188.575, 114.113, 8.531, 0.864)
pt3dadd(188.656, 114.202, 8.53, 0.882)
pt3dadd(188.737, 114.291, 8.529, 0.9)
pt3dadd(188.816, 114.38, 8.527, 0.904)
pt3dadd(188.896, 114.47, 8.526, 0.904)
pt3dadd(188.975, 114.561, 8.524, 0.904)
pt3dadd(189.054, 114.651, 8.522, 0.904)
pt3dadd(189.133, 114.741, 8.521, 0.904)
pt3dadd(189.212, 114.831, 8.519, 0.904)
pt3dadd(189.293, 114.921, 8.517, 0.904)
pt3dadd(189.372, 115.011, 8.516, 0.904)
pt3dadd(189.451, 115.101, 8.514, 0.904)
pt3dadd(189.53, 115.191, 8.513, 0.904)
pt3dadd(189.596, 115.29, 8.51, 0.88)
pt3dadd(189.66, 115.392, 8.506, 0.852)
pt3dadd(189.724, 115.494, 8.503, 0.822)
pt3dadd(189.787, 115.595, 8.5, 0.792)
pt3dadd(189.851, 115.697, 8.496, 0.762)
pt3dadd(189.914, 115.799, 8.493, 0.734)
pt3dadd(189.977, 115.901, 8.49, 0.704)
pt3dadd(190.04, 116.003, 8.486, 0.676)
pt3dadd(190.104, 116.104, 8.483, 0.646)
pt3dadd(190.168, 116.206, 8.48, 0.616)
pt3dadd(190.232, 116.307, 8.473, 0.598)
pt3dadd(190.298, 116.407, 8.466, 0.582)
pt3dadd(190.364, 116.507, 8.459, 0.566)
pt3dadd(190.429, 116.607, 8.452, 0.55)
pt3dadd(190.495, 116.707, 8.445, 0.534)
pt3dadd(190.56, 116.808, 8.438, 0.518)
pt3dadd(190.626, 116.908, 8.431, 0.502)
pt3dadd(190.692, 117.008, 8.424, 0.486)
pt3dadd(190.757, 117.108, 8.417, 0.47)
pt3dadd(190.823, 117.208, 8.41, 0.454)
pt3dadd(190.894, 117.304, 8.4, 0.452)
pt3dadd(190.966, 117.399, 8.389, 0.452)
pt3dadd(191.038, 117.495, 8.378, 0.452)
pt3dadd(191.108, 117.59, 8.367, 0.452)
pt3dadd(191.18, 117.685, 8.356, 0.452)
pt3dadd(191.252, 117.78, 8.345, 0.452)
pt3dadd(191.324, 117.876, 8.334, 0.452)
pt3dadd(191.396, 117.971, 8.323, 0.452)
pt3dadd(191.468, 118.066, 8.312, 0.452)
pt3dadd(191.539, 118.161, 8.301, 0.452)
pt3dadd(191.616, 118.251, 8.283, 0.454)
pt3dadd(191.693, 118.341, 8.264, 0.454)
pt3dadd(191.77, 118.43, 8.245, 0.456)
pt3dadd(191.846, 118.519, 8.226, 0.458)
pt3dadd(191.923, 118.608, 8.207, 0.46)
pt3dadd(192.001, 118.697, 8.188, 0.462)
pt3dadd(192.078, 118.787, 8.169, 0.462)
pt3dadd(192.155, 118.876, 8.15, 0.464)
pt3dadd(192.232, 118.965, 8.131, 0.466)
pt3dadd(192.308, 119.054, 8.112, 0.468)
pt3dadd(192.366, 119.113, 8.039, 0.488)
pt3dadd(192.425, 119.171, 7.966, 0.51)
pt3dadd(192.482, 119.229, 7.894, 0.53)
pt3dadd(192.541, 119.287, 7.821, 0.552)
pt3dadd(192.599, 119.345, 7.748, 0.572)
pt3dadd(192.658, 119.404, 7.675, 0.594)
pt3dadd(192.715, 119.462, 7.602, 0.614)
pt3dadd(192.774, 119.52, 7.53, 0.636)
pt3dadd(192.833, 119.578, 7.457, 0.656)
pt3dadd(192.89, 119.636, 7.384, 0.678)
}
dend_0[7] {pt3dclear()
pt3dadd(103.04, 101.386, 14.404, 11.752)
pt3dadd(103.087, 101.339, 14.404, 11.766)
pt3dadd(103.172, 101.254, 14.404, 11.794)
pt3dadd(103.257, 101.169, 14.404, 11.822)
pt3dadd(103.341, 101.085, 14.404, 11.848)
pt3dadd(103.426, 101, 14.404, 11.876)
pt3dadd(103.511, 100.915, 14.404, 11.904)
pt3dadd(103.596, 100.83, 14.404, 11.93)
pt3dadd(103.681, 100.745, 14.404, 11.958)
pt3dadd(103.766, 100.66, 14.404, 11.986)
pt3dadd(103.85, 100.576, 14.404, 12.012)
pt3dadd(103.935, 100.491, 14.404, 12.04)
pt3dadd(104.02, 100.406, 14.404, 12.068)
pt3dadd(104.105, 100.321, 14.404, 12.094)
pt3dadd(104.19, 100.236, 14.404, 12.122)
pt3dadd(104.275, 100.151, 14.404, 12.15)
pt3dadd(104.36, 100.066, 14.404, 12.176)
pt3dadd(104.444, 99.982, 14.404, 12.204)
}
dend_0[8] {pt3dclear()
pt3dadd(104.444, 99.982, 14.404, 12.204)
pt3dadd(104.505, 99.919, 14.428, 12.104)
pt3dadd(104.584, 99.838, 14.461, 11.972)
pt3dadd(104.663, 99.757, 14.493, 11.84)
pt3dadd(104.742, 99.675, 14.526, 11.708)
pt3dadd(104.821, 99.594, 14.558, 11.576)
pt3dadd(104.9, 99.512, 14.59, 11.444)
pt3dadd(104.979, 99.431, 14.623, 11.312)
pt3dadd(105.058, 99.35, 14.655, 11.182)
pt3dadd(105.138, 99.268, 14.688, 11.05)
pt3dadd(105.217, 99.187, 14.72, 10.918)
pt3dadd(105.296, 99.105, 14.753, 10.786)
pt3dadd(105.375, 99.024, 14.785, 10.654)
pt3dadd(105.454, 98.943, 14.818, 10.522)
pt3dadd(105.53, 98.862, 14.854, 10.386)
pt3dadd(105.592, 98.782, 14.908, 10.238)
pt3dadd(105.654, 98.703, 14.963, 10.088)
pt3dadd(105.716, 98.623, 15.017, 9.938)
pt3dadd(105.779, 98.544, 15.071, 9.788)
pt3dadd(105.841, 98.464, 15.125, 9.638)
pt3dadd(105.903, 98.385, 15.179, 9.49)
pt3dadd(105.965, 98.306, 15.234, 9.34)
pt3dadd(106.027, 98.226, 15.288, 9.19)
pt3dadd(106.089, 98.147, 15.342, 9.04)
pt3dadd(106.154, 98.074, 15.399, 8.89)
pt3dadd(106.226, 98.018, 15.465, 8.736)
pt3dadd(106.298, 97.963, 15.53, 8.582)
pt3dadd(106.37, 97.908, 15.595, 8.428)
pt3dadd(106.441, 97.852, 15.661, 8.274)
pt3dadd(106.513, 97.797, 15.727, 8.12)
pt3dadd(106.585, 97.742, 15.792, 7.966)
pt3dadd(106.657, 97.687, 15.858, 7.812)
pt3dadd(106.729, 97.631, 15.923, 7.658)
pt3dadd(106.801, 97.576, 15.989, 7.504)
pt3dadd(106.877, 97.53, 16.055, 7.352)
pt3dadd(106.958, 97.496, 16.123, 7.202)
}
dend_7[34] {pt3dclear()
pt3dadd(106.958, 97.496, 16.123, 7.202)
pt3dadd(107.04, 97.462, 16.19, 7.052)
pt3dadd(107.122, 97.428, 16.258, 6.902)
pt3dadd(107.203, 97.393, 16.325, 6.752)
pt3dadd(107.285, 97.359, 16.393, 6.602)
pt3dadd(107.366, 97.325, 16.46, 6.452)
pt3dadd(107.448, 97.291, 16.528, 6.304)
pt3dadd(107.53, 97.257, 16.596, 6.154)
pt3dadd(107.611, 97.223, 16.663, 6.004)
pt3dadd(107.696, 97.196, 16.73, 5.856)
pt3dadd(107.785, 97.179, 16.796, 5.712)
pt3dadd(107.873, 97.161, 16.862, 5.568)
pt3dadd(107.962, 97.143, 16.928, 5.424)
pt3dadd(108.05, 97.125, 16.993, 5.28)
pt3dadd(108.139, 97.107, 17.059, 5.136)
pt3dadd(108.227, 97.089, 17.125, 4.992)
pt3dadd(108.316, 97.071, 17.191, 4.848)
pt3dadd(108.404, 97.053, 17.257, 4.704)
pt3dadd(108.493, 97.035, 17.323, 4.56)
pt3dadd(108.59, 97.02, 17.378, 4.402)
pt3dadd(108.697, 97.007, 17.422, 4.23)
pt3dadd(108.804, 96.993, 17.466, 4.056)
pt3dadd(108.911, 96.98, 17.51, 3.884)
pt3dadd(109.018, 96.967, 17.554, 3.712)
pt3dadd(109.125, 96.954, 17.598, 3.54)
pt3dadd(109.232, 96.941, 17.642, 3.366)
pt3dadd(109.339, 96.928, 17.686, 3.194)
pt3dadd(109.446, 96.915, 17.73, 3.022)
pt3dadd(109.553, 96.901, 17.774, 2.848)
pt3dadd(109.661, 96.879, 17.811, 2.718)
pt3dadd(109.771, 96.849, 17.842, 2.622)
pt3dadd(109.881, 96.818, 17.873, 2.528)
pt3dadd(109.991, 96.788, 17.904, 2.434)
pt3dadd(110.101, 96.757, 17.934, 2.338)
pt3dadd(110.211, 96.727, 17.965, 2.244)
pt3dadd(110.321, 96.696, 17.996, 2.15)
pt3dadd(110.431, 96.666, 18.027, 2.054)
pt3dadd(110.541, 96.636, 18.058, 1.96)
pt3dadd(110.651, 96.605, 18.089, 1.866)
pt3dadd(110.76, 96.57, 18.118, 1.812)
pt3dadd(110.869, 96.532, 18.148, 1.782)
pt3dadd(110.977, 96.495, 18.177, 1.752)
pt3dadd(111.086, 96.457, 18.206, 1.722)
pt3dadd(111.194, 96.419, 18.235, 1.692)
}
}
proc shape3d_136() {
dend_7[34] { pt3dadd(111.303, 96.382, 18.264, 1.662)
pt3dadd(111.411, 96.344, 18.293, 1.632)
pt3dadd(111.52, 96.306, 18.322, 1.602)
pt3dadd(111.628, 96.269, 18.351, 1.572)
pt3dadd(111.737, 96.231, 18.38, 1.542)
pt3dadd(111.843, 96.202, 18.418, 1.52)
pt3dadd(111.949, 96.178, 18.46, 1.504)
pt3dadd(112.055, 96.153, 18.503, 1.486)
pt3dadd(112.161, 96.129, 18.545, 1.47)
pt3dadd(112.267, 96.105, 18.587, 1.452)
pt3dadd(112.373, 96.08, 18.629, 1.436)
pt3dadd(112.479, 96.056, 18.672, 1.418)
pt3dadd(112.585, 96.031, 18.714, 1.402)
pt3dadd(112.691, 96.007, 18.756, 1.384)
pt3dadd(112.797, 95.982, 18.798, 1.368)
pt3dadd(112.907, 95.968, 18.836, 1.312)
pt3dadd(113.019, 95.959, 18.872, 1.242)
pt3dadd(113.131, 95.949, 18.907, 1.172)
pt3dadd(113.242, 95.94, 18.943, 1.102)
pt3dadd(113.354, 95.931, 18.978, 1.032)
pt3dadd(113.466, 95.921, 19.014, 0.962)
pt3dadd(113.578, 95.912, 19.049, 0.892)
pt3dadd(113.689, 95.903, 19.085, 0.822)
pt3dadd(113.801, 95.893, 19.121, 0.752)
pt3dadd(113.913, 95.884, 19.156, 0.682)
pt3dadd(114.022, 95.883, 19.198, 0.664)
pt3dadd(114.129, 95.887, 19.242, 0.666)
pt3dadd(114.237, 95.89, 19.286, 0.67)
pt3dadd(114.345, 95.893, 19.33, 0.672)
pt3dadd(114.452, 95.896, 19.375, 0.676)
pt3dadd(114.56, 95.899, 19.419, 0.678)
pt3dadd(114.667, 95.902, 19.463, 0.682)
pt3dadd(114.775, 95.905, 19.507, 0.686)
pt3dadd(114.882, 95.908, 19.552, 0.688)
pt3dadd(114.99, 95.912, 19.596, 0.692)
pt3dadd(115.098, 95.92, 19.638, 0.718)
pt3dadd(115.207, 95.931, 19.679, 0.754)
pt3dadd(115.316, 95.942, 19.721, 0.788)
pt3dadd(115.425, 95.953, 19.762, 0.824)
pt3dadd(115.533, 95.964, 19.804, 0.858)
pt3dadd(115.642, 95.975, 19.845, 0.894)
pt3dadd(115.751, 95.985, 19.886, 0.928)
pt3dadd(115.859, 95.996, 19.928, 0.964)
pt3dadd(115.968, 96.007, 19.969, 0.998)
pt3dadd(116.077, 96.018, 20.01, 1.034)
pt3dadd(116.189, 96.036, 20.043, 1.066)
pt3dadd(116.302, 96.055, 20.072, 1.098)
pt3dadd(116.415, 96.075, 20.101, 1.13)
pt3dadd(116.528, 96.094, 20.131, 1.16)
pt3dadd(116.641, 96.114, 20.16, 1.192)
pt3dadd(116.754, 96.133, 20.19, 1.224)
pt3dadd(116.867, 96.153, 20.22, 1.256)
pt3dadd(116.98, 96.172, 20.249, 1.288)
pt3dadd(117.093, 96.192, 20.278, 1.32)
pt3dadd(117.206, 96.212, 20.308, 1.35)
pt3dadd(117.314, 96.254, 20.331, 1.356)
pt3dadd(117.422, 96.3, 20.352, 1.356)
pt3dadd(117.529, 96.347, 20.374, 1.356)
pt3dadd(117.637, 96.393, 20.396, 1.356)
pt3dadd(117.744, 96.44, 20.417, 1.356)
pt3dadd(117.852, 96.486, 20.439, 1.356)
pt3dadd(117.959, 96.533, 20.461, 1.356)
pt3dadd(118.067, 96.579, 20.483, 1.356)
pt3dadd(118.174, 96.626, 20.504, 1.356)
pt3dadd(118.282, 96.673, 20.526, 1.356)
pt3dadd(118.388, 96.711, 20.559, 1.32)
pt3dadd(118.494, 96.748, 20.594, 1.278)
pt3dadd(118.6, 96.784, 20.629, 1.236)
pt3dadd(118.707, 96.821, 20.664, 1.194)
pt3dadd(118.813, 96.858, 20.699, 1.152)
pt3dadd(118.919, 96.894, 20.734, 1.108)
pt3dadd(119.025, 96.931, 20.769, 1.066)
pt3dadd(119.131, 96.968, 20.805, 1.024)
pt3dadd(119.238, 97.004, 20.84, 0.982)
pt3dadd(119.344, 97.041, 20.875, 0.94)
pt3dadd(119.452, 97.073, 20.909, 0.918)
pt3dadd(119.561, 97.104, 20.942, 0.902)
pt3dadd(119.669, 97.136, 20.976, 0.886)
pt3dadd(119.778, 97.167, 21.01, 0.87)
pt3dadd(119.886, 97.198, 21.043, 0.852)
pt3dadd(119.995, 97.229, 21.077, 0.836)
pt3dadd(120.103, 97.261, 21.111, 0.82)
pt3dadd(120.212, 97.292, 21.145, 0.802)
pt3dadd(120.32, 97.323, 21.178, 0.786)
pt3dadd(120.43, 97.354, 21.212, 0.77)
pt3dadd(120.54, 97.387, 21.24, 0.784)
pt3dadd(120.65, 97.42, 21.268, 0.8)
pt3dadd(120.761, 97.452, 21.295, 0.818)
pt3dadd(120.871, 97.485, 21.323, 0.836)
pt3dadd(120.983, 97.518, 21.35, 0.854)
pt3dadd(121.093, 97.55, 21.377, 0.872)
pt3dadd(121.204, 97.583, 21.405, 0.89)
pt3dadd(121.314, 97.615, 21.432, 0.908)
pt3dadd(121.426, 97.648, 21.46, 0.926)
pt3dadd(121.536, 97.681, 21.487, 0.944)
pt3dadd(121.643, 97.727, 21.508, 0.96)
pt3dadd(121.751, 97.775, 21.529, 0.978)
pt3dadd(121.858, 97.823, 21.549, 0.996)
pt3dadd(121.966, 97.871, 21.569, 1.012)
pt3dadd(122.072, 97.919, 21.59, 1.03)
pt3dadd(122.179, 97.967, 21.61, 1.048)
pt3dadd(122.287, 98.014, 21.631, 1.064)
pt3dadd(122.394, 98.062, 21.651, 1.082)
pt3dadd(122.502, 98.11, 21.672, 1.1)
pt3dadd(122.609, 98.158, 21.692, 1.116)
pt3dadd(122.714, 98.197, 21.726, 1.134)
pt3dadd(122.821, 98.235, 21.76, 1.15)
pt3dadd(122.927, 98.273, 21.795, 1.168)
pt3dadd(123.032, 98.311, 21.829, 1.184)
pt3dadd(123.139, 98.349, 21.864, 1.202)
pt3dadd(123.245, 98.387, 21.898, 1.218)
pt3dadd(123.35, 98.425, 21.933, 1.236)
pt3dadd(123.457, 98.463, 21.967, 1.252)
pt3dadd(123.563, 98.501, 22.002, 1.27)
pt3dadd(123.668, 98.539, 22.036, 1.286)
pt3dadd(123.778, 98.576, 22.065, 1.294)
pt3dadd(123.887, 98.611, 22.094, 1.302)
pt3dadd(123.996, 98.647, 22.122, 1.308)
pt3dadd(124.106, 98.683, 22.15, 1.314)
pt3dadd(124.216, 98.719, 22.179, 1.322)
pt3dadd(124.325, 98.755, 22.207, 1.328)
pt3dadd(124.434, 98.791, 22.236, 1.336)
pt3dadd(124.543, 98.826, 22.264, 1.342)
pt3dadd(124.652, 98.862, 22.292, 1.348)
pt3dadd(124.762, 98.898, 22.321, 1.356)
pt3dadd(124.872, 98.94, 22.34, 1.356)
pt3dadd(124.981, 98.983, 22.36, 1.356)
pt3dadd(125.092, 99.026, 22.379, 1.356)
pt3dadd(125.201, 99.069, 22.399, 1.356)
pt3dadd(125.31, 99.111, 22.418, 1.356)
pt3dadd(125.42, 99.154, 22.437, 1.356)
pt3dadd(125.53, 99.197, 22.456, 1.356)
pt3dadd(125.64, 99.24, 22.476, 1.356)
pt3dadd(125.749, 99.282, 22.495, 1.356)
pt3dadd(125.86, 99.325, 22.514, 1.356)
pt3dadd(125.964, 99.382, 22.525, 1.356)
pt3dadd(126.068, 99.439, 22.536, 1.356)
pt3dadd(126.173, 99.496, 22.547, 1.356)
pt3dadd(126.278, 99.553, 22.558, 1.356)
pt3dadd(126.383, 99.611, 22.569, 1.356)
pt3dadd(126.487, 99.668, 22.58, 1.356)
pt3dadd(126.592, 99.725, 22.591, 1.356)
pt3dadd(126.697, 99.782, 22.602, 1.356)
pt3dadd(126.802, 99.839, 22.613, 1.356)
pt3dadd(126.906, 99.896, 22.624, 1.356)
}
dend_7[35] {pt3dclear()
pt3dadd(126.906, 99.896, 22.624, 1.356)
pt3dadd(126.955, 99.932, 22.625, 1.348)
pt3dadd(127.052, 100.002, 22.627, 1.332)
pt3dadd(127.151, 100.071, 22.63, 1.316)
pt3dadd(127.248, 100.141, 22.632, 1.302)
pt3dadd(127.345, 100.211, 22.634, 1.286)
pt3dadd(127.442, 100.281, 22.637, 1.27)
pt3dadd(127.54, 100.351, 22.639, 1.254)
pt3dadd(127.637, 100.422, 22.641, 1.238)
pt3dadd(127.734, 100.492, 22.644, 1.222)
pt3dadd(127.832, 100.562, 22.646, 1.208)
pt3dadd(127.93, 100.632, 22.649, 1.192)
pt3dadd(128.027, 100.702, 22.651, 1.176)
pt3dadd(128.124, 100.772, 22.653, 1.16)
pt3dadd(128.221, 100.842, 22.656, 1.144)
pt3dadd(128.327, 100.898, 22.661, 1.128)
pt3dadd(128.435, 100.951, 22.667, 1.11)
pt3dadd(128.542, 101.004, 22.673, 1.092)
pt3dadd(128.65, 101.057, 22.68, 1.076)
pt3dadd(128.756, 101.11, 22.686, 1.058)
pt3dadd(128.864, 101.163, 22.692, 1.04)
pt3dadd(128.971, 101.216, 22.698, 1.024)
pt3dadd(129.079, 101.269, 22.704, 1.006)
pt3dadd(129.186, 101.322, 22.71, 0.988)
pt3dadd(129.294, 101.375, 22.716, 0.972)
pt3dadd(129.401, 101.429, 22.725, 0.974)
pt3dadd(129.508, 101.483, 22.734, 0.978)
pt3dadd(129.614, 101.536, 22.742, 0.982)
pt3dadd(129.721, 101.59, 22.751, 0.986)
pt3dadd(129.828, 101.643, 22.76, 0.99)
pt3dadd(129.935, 101.697, 22.769, 0.994)
pt3dadd(130.042, 101.751, 22.778, 0.998)
pt3dadd(130.148, 101.804, 22.787, 1.002)
pt3dadd(130.255, 101.858, 22.796, 1.006)
pt3dadd(130.362, 101.912, 22.805, 1.01)
pt3dadd(130.47, 101.96, 22.822, 1.026)
pt3dadd(130.578, 102.008, 22.84, 1.042)
pt3dadd(130.686, 102.055, 22.859, 1.06)
pt3dadd(130.793, 102.103, 22.877, 1.078)
pt3dadd(130.901, 102.151, 22.896, 1.096)
pt3dadd(131.009, 102.198, 22.914, 1.112)
pt3dadd(131.117, 102.246, 22.932, 1.13)
pt3dadd(131.225, 102.294, 22.951, 1.148)
pt3dadd(131.333, 102.341, 22.969, 1.164)
pt3dadd(131.441, 102.389, 22.987, 1.182)
pt3dadd(131.549, 102.417, 23.024, 1.2)
pt3dadd(131.657, 102.445, 23.06, 1.216)
pt3dadd(131.765, 102.474, 23.097, 1.234)
pt3dadd(131.873, 102.502, 23.133, 1.252)
pt3dadd(131.981, 102.53, 23.169, 1.268)
pt3dadd(132.09, 102.559, 23.206, 1.286)
pt3dadd(132.198, 102.587, 23.242, 1.304)
pt3dadd(132.306, 102.615, 23.279, 1.322)
pt3dadd(132.414, 102.644, 23.315, 1.338)
pt3dadd(132.522, 102.672, 23.351, 1.356)
}
}
proc shape3d_137() {
dend_7[35] { }
dend_7[36] {pt3dclear()
pt3dadd(132.522, 102.672, 23.351, 1.356)
pt3dadd(132.625, 102.687, 23.373, 1.34)
pt3dadd(132.74, 102.703, 23.398, 1.32)
pt3dadd(132.856, 102.72, 23.422, 1.302)
pt3dadd(132.971, 102.735, 23.445, 1.284)
pt3dadd(133.087, 102.751, 23.469, 1.266)
pt3dadd(133.202, 102.766, 23.492, 1.246)
pt3dadd(133.318, 102.782, 23.515, 1.228)
pt3dadd(133.434, 102.797, 23.538, 1.21)
pt3dadd(133.549, 102.813, 23.561, 1.19)
pt3dadd(133.666, 102.828, 23.585, 1.172)
pt3dadd(133.781, 102.844, 23.608, 1.154)
pt3dadd(133.896, 102.859, 23.631, 1.134)
pt3dadd(134.012, 102.875, 23.654, 1.116)
pt3dadd(134.13, 102.886, 23.67, 1.098)
pt3dadd(134.249, 102.894, 23.683, 1.078)
pt3dadd(134.368, 102.903, 23.695, 1.06)
pt3dadd(134.486, 102.912, 23.708, 1.04)
pt3dadd(134.605, 102.921, 23.72, 1.02)
pt3dadd(134.724, 102.929, 23.733, 1.002)
pt3dadd(134.843, 102.938, 23.745, 0.982)
pt3dadd(134.962, 102.947, 23.758, 0.964)
pt3dadd(135.08, 102.956, 23.771, 0.944)
pt3dadd(135.198, 102.964, 23.783, 0.926)
pt3dadd(135.318, 102.977, 23.79, 0.93)
pt3dadd(135.437, 102.992, 23.793, 0.946)
pt3dadd(135.556, 103.006, 23.798, 0.962)
pt3dadd(135.674, 103.02, 23.801, 0.978)
pt3dadd(135.793, 103.035, 23.805, 0.994)
pt3dadd(135.913, 103.049, 23.809, 1.01)
pt3dadd(136.032, 103.064, 23.813, 1.026)
pt3dadd(136.151, 103.078, 23.817, 1.042)
pt3dadd(136.27, 103.092, 23.821, 1.06)
pt3dadd(136.388, 103.107, 23.825, 1.076)
pt3dadd(136.504, 103.138, 23.83, 1.074)
pt3dadd(136.618, 103.176, 23.837, 1.066)
pt3dadd(136.73, 103.215, 23.843, 1.058)
pt3dadd(136.844, 103.253, 23.849, 1.05)
pt3dadd(136.957, 103.292, 23.855, 1.042)
pt3dadd(137.071, 103.33, 23.861, 1.034)
pt3dadd(137.184, 103.368, 23.867, 1.024)
pt3dadd(137.298, 103.407, 23.874, 1.016)
pt3dadd(137.412, 103.445, 23.88, 1.008)
pt3dadd(137.525, 103.484, 23.886, 1)
pt3dadd(137.638, 103.523, 23.895, 0.978)
pt3dadd(137.75, 103.563, 23.905, 0.95)
pt3dadd(137.863, 103.603, 23.914, 0.924)
pt3dadd(137.975, 103.643, 23.924, 0.898)
pt3dadd(138.088, 103.683, 23.934, 0.87)
pt3dadd(138.2, 103.723, 23.944, 0.844)
pt3dadd(138.313, 103.763, 23.953, 0.816)
pt3dadd(138.426, 103.803, 23.963, 0.79)
pt3dadd(138.538, 103.843, 23.973, 0.764)
pt3dadd(138.65, 103.883, 23.983, 0.736)
pt3dadd(138.764, 103.915, 24, 0.712)
pt3dadd(138.878, 103.945, 24.019, 0.688)
pt3dadd(138.992, 103.975, 24.038, 0.664)
pt3dadd(139.105, 104.005, 24.058, 0.64)
pt3dadd(139.219, 104.035, 24.077, 0.616)
pt3dadd(139.333, 104.065, 24.096, 0.594)
pt3dadd(139.447, 104.096, 24.115, 0.57)
pt3dadd(139.561, 104.126, 24.135, 0.546)
pt3dadd(139.675, 104.156, 24.154, 0.522)
pt3dadd(139.789, 104.186, 24.173, 0.498)
pt3dadd(139.898, 104.209, 24.209, 0.51)
pt3dadd(140.006, 104.23, 24.249, 0.526)
pt3dadd(140.114, 104.252, 24.288, 0.544)
pt3dadd(140.222, 104.274, 24.327, 0.562)
pt3dadd(140.332, 104.296, 24.366, 0.58)
pt3dadd(140.44, 104.317, 24.405, 0.596)
pt3dadd(140.548, 104.339, 24.444, 0.614)
pt3dadd(140.656, 104.361, 24.483, 0.632)
pt3dadd(140.764, 104.382, 24.522, 0.648)
pt3dadd(140.873, 104.404, 24.562, 0.666)
pt3dadd(140.984, 104.423, 24.594, 0.654)
pt3dadd(141.097, 104.441, 24.625, 0.638)
pt3dadd(141.21, 104.458, 24.656, 0.622)
pt3dadd(141.323, 104.476, 24.687, 0.606)
pt3dadd(141.434, 104.494, 24.719, 0.59)
pt3dadd(141.547, 104.512, 24.75, 0.574)
pt3dadd(141.66, 104.53, 24.781, 0.558)
pt3dadd(141.773, 104.548, 24.812, 0.54)
pt3dadd(141.886, 104.566, 24.843, 0.524)
pt3dadd(141.997, 104.584, 24.875, 0.508)
pt3dadd(142.106, 104.623, 24.9, 0.532)
pt3dadd(142.216, 104.665, 24.925, 0.564)
pt3dadd(142.324, 104.707, 24.949, 0.594)
pt3dadd(142.432, 104.75, 24.974, 0.624)
pt3dadd(142.54, 104.792, 24.999, 0.654)
pt3dadd(142.649, 104.834, 25.023, 0.686)
pt3dadd(142.757, 104.876, 25.048, 0.716)
pt3dadd(142.865, 104.919, 25.073, 0.746)
pt3dadd(142.973, 104.961, 25.097, 0.778)
pt3dadd(143.082, 105.003, 25.122, 0.808)
pt3dadd(143.186, 105.052, 25.15, 0.816)
pt3dadd(143.291, 105.101, 25.177, 0.824)
pt3dadd(143.395, 105.15, 25.205, 0.832)
pt3dadd(143.5, 105.199, 25.233, 0.84)
pt3dadd(143.604, 105.247, 25.261, 0.848)
pt3dadd(143.708, 105.296, 25.289, 0.856)
pt3dadd(143.813, 105.345, 25.317, 0.864)
pt3dadd(143.917, 105.394, 25.345, 0.872)
pt3dadd(144.022, 105.443, 25.372, 0.878)
pt3dadd(144.126, 105.492, 25.4, 0.886)
pt3dadd(144.228, 105.535, 25.438, 0.82)
pt3dadd(144.33, 105.579, 25.476, 0.754)
pt3dadd(144.432, 105.622, 25.514, 0.688)
pt3dadd(144.534, 105.666, 25.552, 0.622)
pt3dadd(144.636, 105.709, 25.59, 0.556)
pt3dadd(144.738, 105.753, 25.628, 0.49)
pt3dadd(144.841, 105.796, 25.666, 0.424)
pt3dadd(144.943, 105.84, 25.704, 0.358)
pt3dadd(145.045, 105.883, 25.742, 0.292)
pt3dadd(145.147, 105.926, 25.78, 0.226)
}
dend_7[37] {pt3dclear()
pt3dadd(145.147, 105.926, 25.78, 0.226)
pt3dadd(145.237, 105.981, 25.806, 0.24)
pt3dadd(145.336, 106.04, 25.835, 0.256)
pt3dadd(145.433, 106.1, 25.863, 0.272)
pt3dadd(145.531, 106.16, 25.892, 0.288)
pt3dadd(145.63, 106.219, 25.921, 0.304)
pt3dadd(145.728, 106.279, 25.949, 0.32)
pt3dadd(145.826, 106.339, 25.977, 0.33)
pt3dadd(145.925, 106.399, 26.005, 0.342)
pt3dadd(146.023, 106.459, 26.033, 0.352)
pt3dadd(146.122, 106.519, 26.062, 0.362)
pt3dadd(146.22, 106.578, 26.09, 0.374)
pt3dadd(146.318, 106.638, 26.118, 0.384)
pt3dadd(146.417, 106.698, 26.146, 0.394)
pt3dadd(146.515, 106.758, 26.174, 0.406)
pt3dadd(146.614, 106.818, 26.202, 0.416)
pt3dadd(146.712, 106.878, 26.23, 0.424)
pt3dadd(146.812, 106.938, 26.255, 0.408)
pt3dadd(146.911, 106.998, 26.28, 0.392)
pt3dadd(147.01, 107.058, 26.306, 0.376)
pt3dadd(147.109, 107.118, 26.331, 0.358)
pt3dadd(147.209, 107.179, 26.357, 0.342)
pt3dadd(147.307, 107.239, 26.382, 0.326)
pt3dadd(147.407, 107.299, 26.407, 0.31)
pt3dadd(147.506, 107.359, 26.433, 0.294)
pt3dadd(147.606, 107.419, 26.458, 0.278)
pt3dadd(147.706, 107.477, 26.485, 0.262)
pt3dadd(147.809, 107.511, 26.527, 0.258)
pt3dadd(147.912, 107.544, 26.569, 0.254)
pt3dadd(148.015, 107.578, 26.612, 0.252)
pt3dadd(148.118, 107.612, 26.654, 0.248)
pt3dadd(148.223, 107.646, 26.696, 0.244)
pt3dadd(148.326, 107.68, 26.738, 0.24)
pt3dadd(148.429, 107.714, 26.78, 0.236)
pt3dadd(148.532, 107.748, 26.823, 0.232)
pt3dadd(148.636, 107.781, 26.865, 0.228)
pt3dadd(148.739, 107.81, 26.909, 0.232)
pt3dadd(148.841, 107.818, 26.962, 0.264)
pt3dadd(148.942, 107.827, 27.015, 0.296)
pt3dadd(149.044, 107.835, 27.067, 0.328)
pt3dadd(149.146, 107.843, 27.12, 0.36)
pt3dadd(149.248, 107.852, 27.173, 0.39)
pt3dadd(149.348, 107.86, 27.226, 0.422)
pt3dadd(149.45, 107.869, 27.278, 0.454)
pt3dadd(149.552, 107.877, 27.331, 0.486)
pt3dadd(149.653, 107.885, 27.383, 0.518)
pt3dadd(149.754, 107.884, 27.437, 0.56)
pt3dadd(149.851, 107.865, 27.493, 0.62)
pt3dadd(149.948, 107.845, 27.549, 0.68)
pt3dadd(150.047, 107.826, 27.605, 0.74)
pt3dadd(150.144, 107.806, 27.661, 0.8)
pt3dadd(150.241, 107.787, 27.718, 0.86)
pt3dadd(150.338, 107.768, 27.774, 0.92)
pt3dadd(150.436, 107.748, 27.83, 0.98)
pt3dadd(150.534, 107.729, 27.886, 1.04)
pt3dadd(150.631, 107.71, 27.942, 1.1)
pt3dadd(150.726, 107.667, 27.987, 1.13)
pt3dadd(150.817, 107.601, 28.021, 1.13)
pt3dadd(150.908, 107.536, 28.056, 1.13)
pt3dadd(151.001, 107.47, 28.09, 1.13)
pt3dadd(151.092, 107.405, 28.125, 1.13)
pt3dadd(151.183, 107.339, 28.159, 1.13)
pt3dadd(151.276, 107.274, 28.194, 1.13)
pt3dadd(151.367, 107.208, 28.229, 1.13)
pt3dadd(151.459, 107.143, 28.263, 1.13)
pt3dadd(151.55, 107.077, 28.298, 1.13)
pt3dadd(151.631, 106.998, 28.326, 1.122)
pt3dadd(151.702, 106.904, 28.347, 1.106)
pt3dadd(151.771, 106.81, 28.369, 1.09)
pt3dadd(151.841, 106.716, 28.39, 1.074)
pt3dadd(151.912, 106.622, 28.412, 1.056)
pt3dadd(151.981, 106.528, 28.433, 1.04)
pt3dadd(152.051, 106.434, 28.455, 1.024)
pt3dadd(152.122, 106.34, 28.476, 1.008)
pt3dadd(152.191, 106.246, 28.498, 0.992)
pt3dadd(152.262, 106.152, 28.52, 0.976)
pt3dadd(152.33, 106.056, 28.536, 0.944)
pt3dadd(152.399, 105.959, 28.549, 0.902)
pt3dadd(152.467, 105.861, 28.563, 0.86)
pt3dadd(152.536, 105.764, 28.576, 0.816)
pt3dadd(152.604, 105.667, 28.589, 0.774)
pt3dadd(152.672, 105.57, 28.603, 0.732)
pt3dadd(152.741, 105.472, 28.616, 0.69)
pt3dadd(152.809, 105.375, 28.629, 0.648)
pt3dadd(152.878, 105.278, 28.643, 0.606)
pt3dadd(152.946, 105.18, 28.656, 0.564)
}
}
proc shape3d_138() {
dend_7[37] { pt3dadd(153.016, 105.086, 28.677, 0.534)
pt3dadd(153.086, 104.994, 28.702, 0.51)
pt3dadd(153.157, 104.903, 28.728, 0.486)
pt3dadd(153.228, 104.811, 28.753, 0.462)
pt3dadd(153.299, 104.719, 28.779, 0.438)
pt3dadd(153.37, 104.627, 28.805, 0.416)
pt3dadd(153.44, 104.535, 28.83, 0.392)
pt3dadd(153.511, 104.443, 28.856, 0.368)
pt3dadd(153.582, 104.351, 28.881, 0.344)
pt3dadd(153.653, 104.26, 28.907, 0.32)
pt3dadd(153.728, 104.176, 28.942, 0.32)
pt3dadd(153.804, 104.095, 28.98, 0.328)
pt3dadd(153.88, 104.014, 29.018, 0.334)
pt3dadd(153.955, 103.933, 29.056, 0.34)
pt3dadd(154.031, 103.852, 29.095, 0.346)
pt3dadd(154.106, 103.771, 29.133, 0.354)
pt3dadd(154.182, 103.689, 29.171, 0.36)
pt3dadd(154.258, 103.608, 29.209, 0.366)
pt3dadd(154.333, 103.527, 29.247, 0.372)
pt3dadd(154.409, 103.446, 29.285, 0.378)
pt3dadd(154.494, 103.366, 29.308, 0.366)
pt3dadd(154.58, 103.287, 29.329, 0.35)
pt3dadd(154.667, 103.207, 29.351, 0.334)
pt3dadd(154.753, 103.127, 29.372, 0.32)
pt3dadd(154.838, 103.048, 29.393, 0.304)
pt3dadd(154.925, 102.968, 29.414, 0.288)
pt3dadd(155.011, 102.889, 29.436, 0.274)
pt3dadd(155.096, 102.809, 29.457, 0.258)
pt3dadd(155.183, 102.729, 29.479, 0.242)
pt3dadd(155.269, 102.65, 29.5, 0.228)
pt3dadd(155.359, 102.571, 29.511, 0.226)
pt3dadd(155.448, 102.492, 29.52, 0.226)
pt3dadd(155.538, 102.414, 29.53, 0.226)
pt3dadd(155.628, 102.335, 29.54, 0.226)
pt3dadd(155.718, 102.256, 29.549, 0.226)
pt3dadd(155.808, 102.178, 29.559, 0.226)
pt3dadd(155.898, 102.099, 29.569, 0.226)
pt3dadd(155.988, 102.02, 29.578, 0.226)
pt3dadd(156.078, 101.942, 29.588, 0.226)
pt3dadd(156.167, 101.863, 29.598, 0.226)
pt3dadd(156.26, 101.787, 29.601, 0.248)
pt3dadd(156.354, 101.712, 29.604, 0.272)
pt3dadd(156.448, 101.637, 29.606, 0.296)
pt3dadd(156.541, 101.562, 29.609, 0.32)
pt3dadd(156.635, 101.487, 29.611, 0.344)
pt3dadd(156.728, 101.412, 29.614, 0.368)
pt3dadd(156.822, 101.337, 29.616, 0.392)
pt3dadd(156.916, 101.262, 29.619, 0.416)
pt3dadd(157.008, 101.186, 29.621, 0.442)
pt3dadd(157.102, 101.111, 29.624, 0.466)
pt3dadd(157.202, 101.045, 29.625, 0.492)
pt3dadd(157.303, 100.98, 29.626, 0.52)
pt3dadd(157.403, 100.914, 29.627, 0.546)
pt3dadd(157.504, 100.849, 29.628, 0.574)
pt3dadd(157.604, 100.783, 29.628, 0.6)
pt3dadd(157.705, 100.718, 29.629, 0.628)
pt3dadd(157.806, 100.653, 29.63, 0.656)
pt3dadd(157.907, 100.587, 29.631, 0.682)
pt3dadd(158.008, 100.522, 29.632, 0.71)
pt3dadd(158.107, 100.457, 29.633, 0.736)
pt3dadd(158.22, 100.414, 29.634, 0.756)
pt3dadd(158.332, 100.371, 29.636, 0.774)
pt3dadd(158.444, 100.328, 29.638, 0.792)
pt3dadd(158.556, 100.285, 29.639, 0.812)
pt3dadd(158.668, 100.242, 29.641, 0.83)
pt3dadd(158.78, 100.199, 29.643, 0.848)
pt3dadd(158.892, 100.156, 29.644, 0.868)
pt3dadd(159.004, 100.113, 29.646, 0.886)
pt3dadd(159.116, 100.07, 29.648, 0.904)
pt3dadd(159.228, 100.028, 29.649, 0.924)
pt3dadd(159.346, 100.004, 29.653, 0.944)
pt3dadd(159.463, 99.98, 29.656, 0.964)
pt3dadd(159.581, 99.956, 29.659, 0.984)
pt3dadd(159.698, 99.932, 29.663, 1.006)
pt3dadd(159.816, 99.908, 29.666, 1.026)
pt3dadd(159.934, 99.884, 29.669, 1.046)
pt3dadd(160.051, 99.86, 29.673, 1.066)
pt3dadd(160.169, 99.836, 29.676, 1.086)
pt3dadd(160.286, 99.812, 29.679, 1.108)
pt3dadd(160.403, 99.788, 29.683, 1.128)
pt3dadd(160.522, 99.77, 29.692, 1.128)
pt3dadd(160.639, 99.751, 29.7, 1.128)
pt3dadd(160.758, 99.733, 29.709, 1.128)
pt3dadd(160.876, 99.715, 29.717, 1.128)
pt3dadd(160.994, 99.697, 29.726, 1.128)
pt3dadd(161.112, 99.679, 29.734, 1.128)
pt3dadd(161.231, 99.66, 29.743, 1.13)
pt3dadd(161.348, 99.642, 29.751, 1.13)
pt3dadd(161.467, 99.624, 29.76, 1.13)
pt3dadd(161.585, 99.605, 29.769, 1.128)
pt3dadd(161.682, 99.538, 29.788, 1.044)
pt3dadd(161.779, 99.472, 29.808, 0.958)
pt3dadd(161.876, 99.405, 29.828, 0.874)
pt3dadd(161.974, 99.339, 29.847, 0.788)
pt3dadd(162.071, 99.273, 29.867, 0.704)
pt3dadd(162.168, 99.206, 29.886, 0.62)
pt3dadd(162.265, 99.14, 29.906, 0.534)
pt3dadd(162.362, 99.074, 29.926, 0.45)
pt3dadd(162.46, 99.007, 29.945, 0.364)
pt3dadd(162.556, 98.944, 29.969, 0.302)
pt3dadd(162.652, 98.9, 30.016, 0.384)
pt3dadd(162.748, 98.855, 30.063, 0.468)
pt3dadd(162.844, 98.811, 30.11, 0.552)
pt3dadd(162.941, 98.767, 30.158, 0.634)
pt3dadd(163.037, 98.722, 30.205, 0.718)
pt3dadd(163.133, 98.678, 30.252, 0.802)
pt3dadd(163.229, 98.634, 30.299, 0.884)
pt3dadd(163.325, 98.589, 30.347, 0.968)
pt3dadd(163.421, 98.545, 30.394, 1.052)
pt3dadd(163.518, 98.502, 30.439, 1.118)
pt3dadd(163.625, 98.468, 30.474, 1.076)
pt3dadd(163.733, 98.433, 30.509, 1.034)
pt3dadd(163.84, 98.399, 30.543, 0.992)
pt3dadd(163.946, 98.364, 30.578, 0.95)
pt3dadd(164.053, 98.33, 30.613, 0.908)
pt3dadd(164.161, 98.296, 30.648, 0.866)
pt3dadd(164.268, 98.261, 30.682, 0.822)
pt3dadd(164.375, 98.227, 30.717, 0.78)
pt3dadd(164.482, 98.192, 30.752, 0.738)
pt3dadd(164.588, 98.155, 30.785, 0.704)
pt3dadd(164.692, 98.1, 30.808, 0.72)
pt3dadd(164.795, 98.045, 30.831, 0.734)
pt3dadd(164.897, 97.989, 30.854, 0.75)
pt3dadd(165, 97.934, 30.877, 0.766)
pt3dadd(165.103, 97.879, 30.9, 0.78)
pt3dadd(165.206, 97.824, 30.923, 0.796)
pt3dadd(165.308, 97.768, 30.946, 0.81)
pt3dadd(165.412, 97.713, 30.97, 0.826)
pt3dadd(165.515, 97.658, 30.992, 0.84)
pt3dadd(165.616, 97.602, 31.018, 0.85)
pt3dadd(165.708, 97.544, 31.061, 0.82)
pt3dadd(165.799, 97.487, 31.103, 0.79)
pt3dadd(165.892, 97.429, 31.146, 0.762)
pt3dadd(165.984, 97.371, 31.188, 0.732)
pt3dadd(166.075, 97.313, 31.231, 0.702)
pt3dadd(166.168, 97.256, 31.273, 0.672)
pt3dadd(166.26, 97.198, 31.316, 0.642)
pt3dadd(166.352, 97.14, 31.358, 0.614)
pt3dadd(166.444, 97.082, 31.401, 0.584)
pt3dadd(166.536, 97.022, 31.441, 0.554)
pt3dadd(166.626, 96.953, 31.473, 0.528)
pt3dadd(166.717, 96.885, 31.505, 0.502)
pt3dadd(166.807, 96.816, 31.537, 0.476)
pt3dadd(166.898, 96.748, 31.569, 0.45)
pt3dadd(166.988, 96.679, 31.601, 0.424)
pt3dadd(167.08, 96.61, 31.633, 0.398)
pt3dadd(167.171, 96.542, 31.664, 0.372)
pt3dadd(167.261, 96.473, 31.696, 0.346)
pt3dadd(167.352, 96.405, 31.728, 0.32)
pt3dadd(167.446, 96.339, 31.757, 0.304)
pt3dadd(167.549, 96.282, 31.776, 0.308)
pt3dadd(167.652, 96.225, 31.795, 0.312)
pt3dadd(167.755, 96.168, 31.815, 0.318)
pt3dadd(167.858, 96.111, 31.834, 0.322)
pt3dadd(167.96, 96.054, 31.853, 0.326)
pt3dadd(168.064, 95.997, 31.873, 0.33)
pt3dadd(168.167, 95.94, 31.892, 0.334)
pt3dadd(168.27, 95.883, 31.911, 0.34)
pt3dadd(168.373, 95.826, 31.931, 0.344)
pt3dadd(168.478, 95.771, 31.947, 0.36)
pt3dadd(168.584, 95.719, 31.957, 0.394)
pt3dadd(168.692, 95.667, 31.968, 0.43)
pt3dadd(168.799, 95.615, 31.979, 0.464)
pt3dadd(168.907, 95.563, 31.99, 0.498)
pt3dadd(169.014, 95.511, 32, 0.532)
pt3dadd(169.122, 95.459, 32.011, 0.568)
pt3dadd(169.229, 95.406, 32.022, 0.602)
pt3dadd(169.337, 95.354, 32.033, 0.636)
pt3dadd(169.444, 95.302, 32.043, 0.67)
pt3dadd(169.55, 95.249, 32.053, 0.708)
pt3dadd(169.657, 95.194, 32.06, 0.752)
pt3dadd(169.763, 95.139, 32.067, 0.796)
pt3dadd(169.87, 95.083, 32.074, 0.84)
pt3dadd(169.975, 95.028, 32.081, 0.886)
pt3dadd(170.082, 94.973, 32.089, 0.928)
pt3dadd(170.188, 94.918, 32.096, 0.972)
pt3dadd(170.294, 94.863, 32.103, 1.016)
pt3dadd(170.4, 94.807, 32.11, 1.06)
pt3dadd(170.507, 94.752, 32.117, 1.104)
pt3dadd(170.616, 94.704, 32.127, 1.13)
pt3dadd(170.729, 94.666, 32.138, 1.13)
pt3dadd(170.842, 94.628, 32.15, 1.13)
pt3dadd(170.954, 94.59, 32.162, 1.13)
pt3dadd(171.067, 94.552, 32.174, 1.13)
pt3dadd(171.18, 94.514, 32.185, 1.13)
pt3dadd(171.293, 94.476, 32.197, 1.13)
pt3dadd(171.406, 94.438, 32.209, 1.13)
pt3dadd(171.518, 94.4, 32.22, 1.13)
pt3dadd(171.632, 94.362, 32.232, 1.13)
pt3dadd(171.743, 94.328, 32.254, 1.108)
pt3dadd(171.851, 94.298, 32.29, 1.06)
pt3dadd(171.959, 94.269, 32.326, 1.012)
pt3dadd(172.067, 94.239, 32.362, 0.962)
pt3dadd(172.175, 94.21, 32.398, 0.914)
pt3dadd(172.283, 94.18, 32.434, 0.866)
pt3dadd(172.391, 94.151, 32.47, 0.816)
pt3dadd(172.499, 94.121, 32.506, 0.768)
pt3dadd(172.607, 94.092, 32.542, 0.718)
pt3dadd(172.715, 94.062, 32.578, 0.67)
pt3dadd(172.822, 94.026, 32.611, 0.646)
}
}
proc shape3d_139() {
dend_7[37] { pt3dadd(172.927, 93.982, 32.641, 0.65)
pt3dadd(173.033, 93.937, 32.672, 0.652)
pt3dadd(173.138, 93.893, 32.702, 0.656)
pt3dadd(173.244, 93.849, 32.732, 0.66)
pt3dadd(173.348, 93.804, 32.763, 0.664)
pt3dadd(173.454, 93.76, 32.793, 0.668)
pt3dadd(173.56, 93.716, 32.823, 0.672)
pt3dadd(173.665, 93.671, 32.854, 0.676)
pt3dadd(173.771, 93.627, 32.884, 0.68)
pt3dadd(173.876, 93.579, 32.91, 0.692)
pt3dadd(173.981, 93.529, 32.933, 0.716)
pt3dadd(174.086, 93.479, 32.956, 0.738)
pt3dadd(174.192, 93.429, 32.979, 0.76)
pt3dadd(174.298, 93.379, 33.002, 0.782)
pt3dadd(174.403, 93.328, 33.025, 0.804)
pt3dadd(174.509, 93.278, 33.048, 0.826)
pt3dadd(174.614, 93.228, 33.071, 0.85)
pt3dadd(174.72, 93.178, 33.094, 0.872)
pt3dadd(174.826, 93.128, 33.117, 0.894)
pt3dadd(174.93, 93.075, 33.137, 0.904)
pt3dadd(175.036, 93.021, 33.155, 0.904)
pt3dadd(175.14, 92.967, 33.173, 0.904)
pt3dadd(175.244, 92.913, 33.191, 0.904)
pt3dadd(175.35, 92.859, 33.208, 0.904)
pt3dadd(175.454, 92.804, 33.226, 0.904)
pt3dadd(175.56, 92.75, 33.244, 0.904)
pt3dadd(175.664, 92.696, 33.262, 0.904)
pt3dadd(175.77, 92.642, 33.28, 0.904)
pt3dadd(175.874, 92.588, 33.298, 0.904)
pt3dadd(175.973, 92.524, 33.319, 0.9)
pt3dadd(176.066, 92.455, 33.343, 0.894)
pt3dadd(176.16, 92.386, 33.367, 0.888)
pt3dadd(176.255, 92.317, 33.39, 0.882)
pt3dadd(176.348, 92.248, 33.414, 0.874)
pt3dadd(176.442, 92.179, 33.438, 0.868)
pt3dadd(176.537, 92.11, 33.462, 0.862)
pt3dadd(176.63, 92.042, 33.485, 0.856)
pt3dadd(176.724, 91.973, 33.509, 0.85)
pt3dadd(176.819, 91.904, 33.533, 0.844)
pt3dadd(176.921, 91.863, 33.571, 0.828)
pt3dadd(177.024, 91.826, 33.612, 0.812)
pt3dadd(177.127, 91.79, 33.653, 0.796)
pt3dadd(177.23, 91.754, 33.693, 0.778)
pt3dadd(177.334, 91.717, 33.734, 0.762)
pt3dadd(177.438, 91.681, 33.775, 0.746)
pt3dadd(177.541, 91.645, 33.815, 0.73)
pt3dadd(177.644, 91.609, 33.856, 0.712)
pt3dadd(177.748, 91.572, 33.897, 0.696)
pt3dadd(177.851, 91.536, 33.938, 0.68)
pt3dadd(177.964, 91.508, 33.964, 0.674)
pt3dadd(178.076, 91.482, 33.989, 0.67)
pt3dadd(178.189, 91.455, 34.014, 0.664)
pt3dadd(178.303, 91.428, 34.039, 0.66)
pt3dadd(178.416, 91.402, 34.064, 0.656)
pt3dadd(178.529, 91.375, 34.089, 0.652)
pt3dadd(178.642, 91.348, 34.114, 0.646)
pt3dadd(178.754, 91.322, 34.139, 0.642)
pt3dadd(178.868, 91.295, 34.164, 0.638)
pt3dadd(178.981, 91.268, 34.189, 0.634)
pt3dadd(179.098, 91.245, 34.202, 0.598)
pt3dadd(179.214, 91.222, 34.215, 0.56)
pt3dadd(179.332, 91.199, 34.227, 0.522)
pt3dadd(179.448, 91.175, 34.239, 0.486)
pt3dadd(179.564, 91.152, 34.251, 0.448)
pt3dadd(179.682, 91.129, 34.263, 0.41)
pt3dadd(179.798, 91.106, 34.276, 0.372)
pt3dadd(179.916, 91.083, 34.288, 0.334)
pt3dadd(180.032, 91.06, 34.3, 0.296)
pt3dadd(180.149, 91.036, 34.312, 0.26)
pt3dadd(180.257, 90.985, 34.316, 0.254)
pt3dadd(180.364, 90.93, 34.32, 0.25)
pt3dadd(180.47, 90.876, 34.323, 0.248)
pt3dadd(180.577, 90.822, 34.326, 0.244)
pt3dadd(180.684, 90.767, 34.33, 0.242)
pt3dadd(180.791, 90.713, 34.333, 0.238)
pt3dadd(180.898, 90.658, 34.336, 0.236)
pt3dadd(181.004, 90.604, 34.34, 0.232)
pt3dadd(181.111, 90.549, 34.343, 0.23)
pt3dadd(181.219, 90.495, 34.346, 0.226)
pt3dadd(181.32, 90.431, 34.351, 0.262)
pt3dadd(181.422, 90.367, 34.355, 0.3)
pt3dadd(181.523, 90.304, 34.36, 0.336)
pt3dadd(181.625, 90.24, 34.364, 0.374)
pt3dadd(181.726, 90.176, 34.369, 0.412)
pt3dadd(181.828, 90.112, 34.373, 0.45)
pt3dadd(181.928, 90.048, 34.378, 0.488)
pt3dadd(182.03, 89.984, 34.382, 0.524)
pt3dadd(182.132, 89.92, 34.387, 0.562)
pt3dadd(182.233, 89.856, 34.391, 0.6)
pt3dadd(182.334, 89.791, 34.398, 0.652)
pt3dadd(182.434, 89.725, 34.405, 0.706)
pt3dadd(182.533, 89.659, 34.411, 0.758)
pt3dadd(182.634, 89.594, 34.418, 0.812)
pt3dadd(182.734, 89.528, 34.424, 0.864)
pt3dadd(182.834, 89.462, 34.431, 0.918)
pt3dadd(182.934, 89.397, 34.438, 0.97)
pt3dadd(183.034, 89.331, 34.444, 1.024)
pt3dadd(183.134, 89.265, 34.451, 1.076)
pt3dadd(183.234, 89.199, 34.458, 1.13)
pt3dadd(183.342, 89.149, 34.468, 1.13)
pt3dadd(183.45, 89.098, 34.479, 1.13)
pt3dadd(183.558, 89.047, 34.489, 1.13)
pt3dadd(183.666, 88.997, 34.5, 1.13)
pt3dadd(183.774, 88.946, 34.511, 1.13)
pt3dadd(183.882, 88.895, 34.521, 1.13)
pt3dadd(183.99, 88.845, 34.532, 1.13)
pt3dadd(184.098, 88.794, 34.543, 1.13)
pt3dadd(184.206, 88.743, 34.553, 1.13)
pt3dadd(184.314, 88.693, 34.564, 1.13)
pt3dadd(184.422, 88.656, 34.597, 1.07)
pt3dadd(184.529, 88.619, 34.63, 1.01)
pt3dadd(184.636, 88.582, 34.663, 0.948)
pt3dadd(184.744, 88.546, 34.696, 0.888)
pt3dadd(184.85, 88.509, 34.729, 0.828)
pt3dadd(184.957, 88.472, 34.762, 0.766)
pt3dadd(185.064, 88.435, 34.795, 0.706)
pt3dadd(185.172, 88.399, 34.828, 0.646)
pt3dadd(185.279, 88.362, 34.861, 0.584)
pt3dadd(185.386, 88.325, 34.894, 0.526)
pt3dadd(185.49, 88.276, 34.923, 0.514)
pt3dadd(185.594, 88.228, 34.951, 0.504)
pt3dadd(185.699, 88.179, 34.979, 0.492)
pt3dadd(185.803, 88.131, 35.007, 0.482)
pt3dadd(185.908, 88.083, 35.036, 0.47)
pt3dadd(186.012, 88.034, 35.064, 0.458)
pt3dadd(186.116, 87.986, 35.092, 0.448)
pt3dadd(186.221, 87.937, 35.12, 0.436)
pt3dadd(186.325, 87.889, 35.149, 0.424)
pt3dadd(186.43, 87.839, 35.176, 0.418)
pt3dadd(186.529, 87.777, 35.196, 0.444)
pt3dadd(186.63, 87.715, 35.215, 0.47)
pt3dadd(186.73, 87.653, 35.235, 0.496)
pt3dadd(186.829, 87.591, 35.254, 0.524)
pt3dadd(186.93, 87.529, 35.273, 0.55)
pt3dadd(187.03, 87.467, 35.293, 0.576)
pt3dadd(187.129, 87.405, 35.313, 0.602)
pt3dadd(187.23, 87.343, 35.332, 0.628)
pt3dadd(187.33, 87.281, 35.352, 0.656)
pt3dadd(187.429, 87.217, 35.37, 0.678)
pt3dadd(187.523, 87.143, 35.38, 0.678)
pt3dadd(187.616, 87.069, 35.39, 0.678)
pt3dadd(187.71, 86.995, 35.401, 0.678)
pt3dadd(187.804, 86.921, 35.411, 0.678)
pt3dadd(187.896, 86.846, 35.421, 0.678)
pt3dadd(187.99, 86.772, 35.431, 0.678)
pt3dadd(188.083, 86.698, 35.442, 0.678)
pt3dadd(188.177, 86.624, 35.452, 0.678)
pt3dadd(188.27, 86.55, 35.462, 0.678)
pt3dadd(188.365, 86.477, 35.472, 0.68)
pt3dadd(188.465, 86.41, 35.476, 0.694)
pt3dadd(188.564, 86.344, 35.48, 0.708)
pt3dadd(188.664, 86.277, 35.485, 0.722)
pt3dadd(188.764, 86.211, 35.489, 0.736)
pt3dadd(188.864, 86.145, 35.494, 0.752)
pt3dadd(188.964, 86.078, 35.498, 0.766)
pt3dadd(189.064, 86.012, 35.503, 0.78)
pt3dadd(189.163, 85.945, 35.507, 0.794)
pt3dadd(189.263, 85.879, 35.511, 0.808)
pt3dadd(189.362, 85.812, 35.516, 0.816)
pt3dadd(189.458, 85.74, 35.521, 0.796)
pt3dadd(189.554, 85.669, 35.526, 0.774)
pt3dadd(189.652, 85.597, 35.531, 0.752)
pt3dadd(189.748, 85.526, 35.536, 0.73)
pt3dadd(189.844, 85.455, 35.541, 0.71)
pt3dadd(189.94, 85.383, 35.546, 0.688)
pt3dadd(190.036, 85.312, 35.551, 0.666)
pt3dadd(190.133, 85.24, 35.556, 0.644)
pt3dadd(190.229, 85.169, 35.561, 0.624)
pt3dadd(190.322, 85.095, 35.567, 0.604)
pt3dadd(190.405, 85.009, 35.576, 0.6)
pt3dadd(190.488, 84.923, 35.585, 0.598)
pt3dadd(190.572, 84.837, 35.594, 0.594)
pt3dadd(190.655, 84.751, 35.603, 0.59)
pt3dadd(190.738, 84.665, 35.612, 0.586)
pt3dadd(190.82, 84.579, 35.621, 0.582)
pt3dadd(190.903, 84.493, 35.631, 0.578)
pt3dadd(190.986, 84.407, 35.64, 0.574)
pt3dadd(191.069, 84.321, 35.649, 0.572)
pt3dadd(191.144, 84.231, 35.663, 0.584)
pt3dadd(191.203, 84.13, 35.688, 0.636)
pt3dadd(191.261, 84.03, 35.714, 0.686)
pt3dadd(191.32, 83.929, 35.739, 0.738)
pt3dadd(191.377, 83.829, 35.764, 0.788)
pt3dadd(191.436, 83.729, 35.79, 0.84)
pt3dadd(191.494, 83.628, 35.815, 0.892)
pt3dadd(191.552, 83.528, 35.841, 0.942)
pt3dadd(191.61, 83.427, 35.866, 0.994)
pt3dadd(191.669, 83.327, 35.892, 1.044)
pt3dadd(191.725, 83.231, 35.927, 1.034)
pt3dadd(191.782, 83.14, 35.972, 0.964)
pt3dadd(191.838, 83.049, 36.018, 0.892)
pt3dadd(191.894, 82.959, 36.063, 0.82)
pt3dadd(191.951, 82.868, 36.109, 0.748)
pt3dadd(192.007, 82.777, 36.154, 0.676)
pt3dadd(192.065, 82.686, 36.199, 0.606)
pt3dadd(192.121, 82.596, 36.245, 0.534)
pt3dadd(192.178, 82.505, 36.29, 0.462)
pt3dadd(192.234, 82.414, 36.336, 0.39)
pt3dadd(192.299, 82.322, 36.368, 0.37)
pt3dadd(192.368, 82.229, 36.394, 0.382)
}
}
proc shape3d_140() {
dend_7[37] { pt3dadd(192.438, 82.136, 36.419, 0.392)
pt3dadd(192.508, 82.043, 36.444, 0.402)
pt3dadd(192.577, 81.951, 36.47, 0.414)
pt3dadd(192.647, 81.858, 36.495, 0.424)
pt3dadd(192.718, 81.765, 36.52, 0.434)
pt3dadd(192.787, 81.672, 36.545, 0.446)
pt3dadd(192.857, 81.579, 36.571, 0.456)
pt3dadd(192.926, 81.487, 36.596, 0.466)
pt3dadd(193.002, 81.397, 36.614, 0.494)
pt3dadd(193.082, 81.309, 36.629, 0.53)
pt3dadd(193.162, 81.221, 36.644, 0.568)
pt3dadd(193.242, 81.133, 36.659, 0.604)
pt3dadd(193.321, 81.045, 36.674, 0.64)
pt3dadd(193.4, 80.957, 36.689, 0.678)
pt3dadd(193.481, 80.869, 36.704, 0.714)
pt3dadd(193.56, 80.781, 36.719, 0.75)
pt3dadd(193.639, 80.693, 36.734, 0.788)
pt3dadd(193.72, 80.605, 36.749, 0.824)
pt3dadd(193.818, 80.539, 36.761, 0.818)
pt3dadd(193.919, 80.476, 36.773, 0.802)
pt3dadd(194.021, 80.414, 36.784, 0.786)
pt3dadd(194.122, 80.351, 36.796, 0.772)
pt3dadd(194.224, 80.289, 36.808, 0.756)
pt3dadd(194.324, 80.226, 36.819, 0.742)
pt3dadd(194.426, 80.163, 36.831, 0.726)
pt3dadd(194.527, 80.101, 36.843, 0.71)
pt3dadd(194.629, 80.038, 36.855, 0.696)
pt3dadd(194.73, 79.976, 36.866, 0.68)
pt3dadd(194.833, 79.918, 36.883, 0.676)
pt3dadd(194.936, 79.861, 36.902, 0.676)
pt3dadd(195.04, 79.804, 36.92, 0.674)
pt3dadd(195.143, 79.747, 36.938, 0.672)
pt3dadd(195.247, 79.69, 36.956, 0.67)
pt3dadd(195.35, 79.633, 36.974, 0.668)
pt3dadd(195.454, 79.576, 36.992, 0.666)
pt3dadd(195.557, 79.519, 37.01, 0.666)
pt3dadd(195.66, 79.462, 37.028, 0.664)
pt3dadd(195.763, 79.405, 37.047, 0.662)
pt3dadd(195.868, 79.377, 37.089, 0.646)
pt3dadd(195.972, 79.351, 37.133, 0.63)
pt3dadd(196.076, 79.325, 37.178, 0.612)
pt3dadd(196.181, 79.299, 37.222, 0.596)
pt3dadd(196.285, 79.273, 37.267, 0.578)
pt3dadd(196.39, 79.247, 37.311, 0.562)
pt3dadd(196.494, 79.221, 37.356, 0.544)
pt3dadd(196.598, 79.195, 37.4, 0.528)
pt3dadd(196.702, 79.169, 37.445, 0.51)
pt3dadd(196.806, 79.143, 37.489, 0.494)
pt3dadd(196.914, 79.126, 37.53, 0.49)
pt3dadd(197.023, 79.11, 37.571, 0.484)
pt3dadd(197.131, 79.093, 37.612, 0.48)
pt3dadd(197.239, 79.077, 37.652, 0.476)
pt3dadd(197.348, 79.061, 37.693, 0.472)
pt3dadd(197.456, 79.044, 37.734, 0.468)
pt3dadd(197.564, 79.028, 37.774, 0.464)
pt3dadd(197.674, 79.011, 37.815, 0.46)
pt3dadd(197.782, 78.995, 37.856, 0.456)
pt3dadd(197.89, 78.979, 37.896, 0.452)
pt3dadd(197.994, 78.972, 37.946, 0.444)
pt3dadd(198.097, 78.967, 37.996, 0.436)
pt3dadd(198.202, 78.961, 38.047, 0.428)
pt3dadd(198.305, 78.956, 38.097, 0.418)
pt3dadd(198.408, 78.95, 38.147, 0.41)
pt3dadd(198.512, 78.945, 38.198, 0.402)
pt3dadd(198.616, 78.939, 38.248, 0.394)
pt3dadd(198.719, 78.934, 38.298, 0.386)
pt3dadd(198.823, 78.928, 38.348, 0.376)
pt3dadd(198.926, 78.923, 38.398, 0.368)
pt3dadd(199.025, 78.923, 38.456, 0.354)
pt3dadd(199.123, 78.923, 38.513, 0.34)
pt3dadd(199.222, 78.923, 38.571, 0.326)
pt3dadd(199.32, 78.923, 38.628, 0.312)
pt3dadd(199.417, 78.923, 38.685, 0.298)
pt3dadd(199.516, 78.923, 38.743, 0.282)
pt3dadd(199.614, 78.923, 38.8, 0.268)
pt3dadd(199.712, 78.923, 38.857, 0.254)
pt3dadd(199.811, 78.923, 38.915, 0.24)
pt3dadd(199.909, 78.923, 38.972, 0.226)
}
dend_7[38] {pt3dclear()
pt3dadd(145.147, 105.926, 25.78, 0.226)
pt3dadd(145.168, 105.921, 25.785, 0.236)
pt3dadd(145.28, 105.895, 25.81, 0.29)
pt3dadd(145.394, 105.868, 25.836, 0.344)
pt3dadd(145.507, 105.842, 25.862, 0.398)
pt3dadd(145.62, 105.817, 25.887, 0.45)
pt3dadd(145.734, 105.791, 25.912, 0.502)
pt3dadd(145.847, 105.765, 25.937, 0.554)
pt3dadd(145.961, 105.74, 25.961, 0.606)
pt3dadd(146.074, 105.714, 25.986, 0.658)
pt3dadd(146.186, 105.689, 26.011, 0.71)
pt3dadd(146.3, 105.663, 26.036, 0.762)
pt3dadd(146.413, 105.637, 26.061, 0.816)
pt3dadd(146.527, 105.612, 26.086, 0.868)
pt3dadd(146.642, 105.596, 26.1, 0.892)
pt3dadd(146.762, 105.594, 26.095, 0.874)
pt3dadd(146.882, 105.593, 26.09, 0.858)
pt3dadd(147.002, 105.591, 26.085, 0.84)
pt3dadd(147.122, 105.59, 26.08, 0.822)
pt3dadd(147.242, 105.589, 26.075, 0.806)
pt3dadd(147.362, 105.587, 26.07, 0.788)
pt3dadd(147.482, 105.586, 26.065, 0.77)
pt3dadd(147.601, 105.584, 26.06, 0.754)
pt3dadd(147.721, 105.583, 26.056, 0.736)
pt3dadd(147.841, 105.581, 26.05, 0.71)
pt3dadd(147.961, 105.579, 26.043, 0.674)
pt3dadd(148.081, 105.577, 26.036, 0.638)
pt3dadd(148.2, 105.576, 26.029, 0.602)
pt3dadd(148.32, 105.574, 26.021, 0.566)
pt3dadd(148.44, 105.572, 26.014, 0.53)
pt3dadd(148.559, 105.57, 26.007, 0.494)
pt3dadd(148.679, 105.568, 26, 0.458)
pt3dadd(148.799, 105.566, 25.993, 0.422)
pt3dadd(148.919, 105.564, 25.986, 0.386)
pt3dadd(149.038, 105.562, 25.978, 0.362)
pt3dadd(149.158, 105.558, 25.967, 0.362)
pt3dadd(149.276, 105.555, 25.957, 0.362)
pt3dadd(149.396, 105.552, 25.947, 0.362)
pt3dadd(149.515, 105.549, 25.936, 0.36)
pt3dadd(149.634, 105.546, 25.926, 0.36)
pt3dadd(149.754, 105.543, 25.916, 0.36)
pt3dadd(149.873, 105.54, 25.905, 0.358)
pt3dadd(149.993, 105.537, 25.895, 0.358)
pt3dadd(150.112, 105.534, 25.884, 0.358)
pt3dadd(150.23, 105.529, 25.868, 0.358)
pt3dadd(150.346, 105.523, 25.844, 0.358)
pt3dadd(150.462, 105.516, 25.819, 0.358)
pt3dadd(150.578, 105.51, 25.795, 0.358)
pt3dadd(150.695, 105.504, 25.77, 0.36)
pt3dadd(150.81, 105.498, 25.745, 0.36)
pt3dadd(150.926, 105.491, 25.721, 0.36)
pt3dadd(151.043, 105.485, 25.696, 0.36)
pt3dadd(151.159, 105.479, 25.671, 0.36)
pt3dadd(151.276, 105.472, 25.647, 0.362)
pt3dadd(151.39, 105.464, 25.617, 0.356)
pt3dadd(151.501, 105.454, 25.584, 0.342)
pt3dadd(151.614, 105.444, 25.55, 0.328)
pt3dadd(151.727, 105.434, 25.516, 0.314)
pt3dadd(151.84, 105.423, 25.482, 0.3)
pt3dadd(151.951, 105.413, 25.448, 0.288)
pt3dadd(152.064, 105.403, 25.414, 0.274)
pt3dadd(152.177, 105.393, 25.38, 0.26)
pt3dadd(152.288, 105.382, 25.347, 0.246)
pt3dadd(152.401, 105.372, 25.313, 0.232)
pt3dadd(152.515, 105.359, 25.284, 0.226)
pt3dadd(152.63, 105.343, 25.261, 0.226)
pt3dadd(152.747, 105.327, 25.238, 0.228)
pt3dadd(152.862, 105.311, 25.214, 0.228)
pt3dadd(152.977, 105.295, 25.191, 0.228)
pt3dadd(153.094, 105.279, 25.168, 0.228)
pt3dadd(153.209, 105.262, 25.144, 0.23)
pt3dadd(153.324, 105.246, 25.121, 0.23)
pt3dadd(153.44, 105.23, 25.098, 0.23)
pt3dadd(153.556, 105.214, 25.074, 0.23)
pt3dadd(153.668, 105.182, 25.058, 0.24)
pt3dadd(153.778, 105.135, 25.048, 0.258)
pt3dadd(153.888, 105.087, 25.038, 0.276)
pt3dadd(153.997, 105.04, 25.028, 0.292)
pt3dadd(154.106, 104.993, 25.019, 0.31)
pt3dadd(154.217, 104.946, 25.009, 0.328)
pt3dadd(154.326, 104.899, 24.999, 0.346)
pt3dadd(154.436, 104.852, 24.989, 0.364)
pt3dadd(154.546, 104.804, 24.979, 0.382)
pt3dadd(154.656, 104.757, 24.969, 0.398)
pt3dadd(154.766, 104.714, 24.963, 0.41)
pt3dadd(154.88, 104.675, 24.962, 0.414)
pt3dadd(154.993, 104.635, 24.959, 0.418)
pt3dadd(155.107, 104.596, 24.957, 0.424)
pt3dadd(155.22, 104.556, 24.955, 0.428)
pt3dadd(155.334, 104.517, 24.953, 0.432)
pt3dadd(155.447, 104.477, 24.951, 0.436)
pt3dadd(155.56, 104.438, 24.949, 0.44)
pt3dadd(155.674, 104.399, 24.947, 0.446)
pt3dadd(155.786, 104.359, 24.945, 0.45)
pt3dadd(155.902, 104.324, 24.945, 0.462)
pt3dadd(156.017, 104.292, 24.946, 0.482)
pt3dadd(156.133, 104.26, 24.947, 0.502)
pt3dadd(156.248, 104.228, 24.948, 0.522)
pt3dadd(156.364, 104.197, 24.949, 0.54)
pt3dadd(156.48, 104.165, 24.95, 0.56)
pt3dadd(156.595, 104.133, 24.951, 0.58)
pt3dadd(156.712, 104.101, 24.952, 0.6)
pt3dadd(156.827, 104.069, 24.953, 0.618)
pt3dadd(156.943, 104.037, 24.954, 0.638)
pt3dadd(157.058, 104.005, 24.955, 0.658)
pt3dadd(157.174, 103.971, 24.957, 0.678)
pt3dadd(157.289, 103.938, 24.959, 0.698)
pt3dadd(157.404, 103.904, 24.961, 0.718)
pt3dadd(157.519, 103.871, 24.963, 0.738)
pt3dadd(157.634, 103.837, 24.965, 0.758)
pt3dadd(157.75, 103.804, 24.966, 0.778)
pt3dadd(157.865, 103.77, 24.968, 0.798)
pt3dadd(157.98, 103.737, 24.97, 0.82)
pt3dadd(158.095, 103.704, 24.972, 0.84)
pt3dadd(158.208, 103.663, 24.974, 0.838)
pt3dadd(158.318, 103.618, 24.977, 0.824)
pt3dadd(158.43, 103.572, 24.98, 0.808)
pt3dadd(158.54, 103.527, 24.983, 0.794)
pt3dadd(158.652, 103.482, 24.986, 0.778)
pt3dadd(158.764, 103.436, 24.989, 0.764)
pt3dadd(158.874, 103.391, 24.992, 0.748)
pt3dadd(158.986, 103.346, 24.995, 0.732)
}
}
proc shape3d_141() {
dend_7[38] { pt3dadd(159.096, 103.3, 24.998, 0.718)
pt3dadd(159.208, 103.255, 25, 0.702)
pt3dadd(159.32, 103.217, 25.006, 0.718)
pt3dadd(159.436, 103.185, 25.013, 0.756)
pt3dadd(159.551, 103.153, 25.02, 0.792)
pt3dadd(159.667, 103.121, 25.026, 0.83)
pt3dadd(159.782, 103.089, 25.033, 0.866)
pt3dadd(159.898, 103.056, 25.04, 0.904)
pt3dadd(160.013, 103.024, 25.047, 0.942)
pt3dadd(160.128, 102.992, 25.054, 0.978)
pt3dadd(160.243, 102.96, 25.061, 1.016)
pt3dadd(160.358, 102.928, 25.068, 1.052)
pt3dadd(160.475, 102.9, 25.077, 1.062)
pt3dadd(160.591, 102.877, 25.088, 1.052)
pt3dadd(160.709, 102.853, 25.099, 1.044)
pt3dadd(160.825, 102.829, 25.11, 1.034)
pt3dadd(160.943, 102.805, 25.12, 1.024)
pt3dadd(161.059, 102.782, 25.131, 1.014)
pt3dadd(161.176, 102.758, 25.142, 1.006)
pt3dadd(161.293, 102.734, 25.153, 0.996)
pt3dadd(161.41, 102.71, 25.164, 0.986)
pt3dadd(161.527, 102.686, 25.175, 0.976)
pt3dadd(161.642, 102.666, 25.196, 0.956)
pt3dadd(161.755, 102.649, 25.224, 0.926)
pt3dadd(161.869, 102.631, 25.252, 0.896)
pt3dadd(161.983, 102.614, 25.281, 0.866)
pt3dadd(162.097, 102.596, 25.309, 0.836)
pt3dadd(162.211, 102.579, 25.337, 0.808)
pt3dadd(162.324, 102.561, 25.365, 0.778)
pt3dadd(162.438, 102.543, 25.393, 0.748)
pt3dadd(162.552, 102.526, 25.422, 0.718)
pt3dadd(162.666, 102.508, 25.45, 0.688)
pt3dadd(162.778, 102.485, 25.481, 0.668)
pt3dadd(162.888, 102.459, 25.514, 0.65)
pt3dadd(162.998, 102.432, 25.546, 0.634)
pt3dadd(163.109, 102.406, 25.579, 0.618)
pt3dadd(163.219, 102.38, 25.612, 0.6)
pt3dadd(163.328, 102.353, 25.644, 0.584)
pt3dadd(163.439, 102.327, 25.677, 0.568)
pt3dadd(163.549, 102.301, 25.71, 0.55)
pt3dadd(163.66, 102.274, 25.742, 0.534)
pt3dadd(163.77, 102.248, 25.775, 0.518)
pt3dadd(163.878, 102.207, 25.8, 0.528)
pt3dadd(163.986, 102.161, 25.823, 0.546)
pt3dadd(164.094, 102.115, 25.845, 0.564)
pt3dadd(164.201, 102.069, 25.868, 0.584)
pt3dadd(164.309, 102.024, 25.891, 0.602)
pt3dadd(164.416, 101.978, 25.914, 0.62)
pt3dadd(164.524, 101.932, 25.937, 0.638)
pt3dadd(164.632, 101.886, 25.959, 0.656)
pt3dadd(164.738, 101.841, 25.982, 0.674)
pt3dadd(164.846, 101.795, 26.005, 0.692)
pt3dadd(164.958, 101.756, 26.02, 0.726)
pt3dadd(165.071, 101.719, 26.033, 0.762)
pt3dadd(165.184, 101.683, 26.047, 0.798)
pt3dadd(165.298, 101.646, 26.06, 0.834)
pt3dadd(165.41, 101.609, 26.073, 0.87)
pt3dadd(165.523, 101.572, 26.086, 0.908)
pt3dadd(165.636, 101.535, 26.099, 0.944)
pt3dadd(165.75, 101.498, 26.113, 0.98)
pt3dadd(165.863, 101.461, 26.126, 1.016)
pt3dadd(165.976, 101.424, 26.139, 1.052)
pt3dadd(166.091, 101.393, 26.148, 1.03)
pt3dadd(166.207, 101.364, 26.156, 0.992)
pt3dadd(166.322, 101.334, 26.164, 0.954)
pt3dadd(166.439, 101.304, 26.172, 0.914)
pt3dadd(166.554, 101.274, 26.18, 0.876)
pt3dadd(166.67, 101.244, 26.188, 0.838)
pt3dadd(166.787, 101.215, 26.196, 0.798)
pt3dadd(166.902, 101.185, 26.205, 0.76)
pt3dadd(167.018, 101.155, 26.212, 0.722)
pt3dadd(167.134, 101.125, 26.22, 0.684)
pt3dadd(167.248, 101.087, 26.23, 0.674)
pt3dadd(167.359, 101.047, 26.239, 0.674)
pt3dadd(167.472, 101.007, 26.248, 0.672)
pt3dadd(167.585, 100.968, 26.257, 0.672)
pt3dadd(167.698, 100.927, 26.266, 0.67)
pt3dadd(167.81, 100.887, 26.275, 0.668)
pt3dadd(167.923, 100.848, 26.284, 0.668)
pt3dadd(168.035, 100.808, 26.293, 0.666)
pt3dadd(168.148, 100.768, 26.303, 0.666)
pt3dadd(168.26, 100.728, 26.312, 0.664)
pt3dadd(168.371, 100.685, 26.329, 0.68)
pt3dadd(168.48, 100.641, 26.348, 0.698)
pt3dadd(168.589, 100.597, 26.367, 0.718)
pt3dadd(168.7, 100.554, 26.385, 0.736)
pt3dadd(168.809, 100.51, 26.404, 0.754)
pt3dadd(168.918, 100.467, 26.423, 0.772)
pt3dadd(169.027, 100.423, 26.442, 0.792)
pt3dadd(169.138, 100.38, 26.461, 0.81)
pt3dadd(169.247, 100.336, 26.48, 0.828)
pt3dadd(169.356, 100.293, 26.498, 0.848)
pt3dadd(169.463, 100.257, 26.532, 0.834)
pt3dadd(169.57, 100.223, 26.568, 0.816)
pt3dadd(169.676, 100.188, 26.604, 0.798)
pt3dadd(169.783, 100.154, 26.639, 0.782)
pt3dadd(169.89, 100.119, 26.675, 0.764)
pt3dadd(169.997, 100.084, 26.71, 0.746)
pt3dadd(170.104, 100.05, 26.746, 0.73)
pt3dadd(170.21, 100.015, 26.781, 0.712)
pt3dadd(170.317, 99.981, 26.817, 0.696)
pt3dadd(170.423, 99.946, 26.853, 0.678)
pt3dadd(170.536, 99.918, 26.877, 0.642)
pt3dadd(170.65, 99.891, 26.9, 0.606)
pt3dadd(170.762, 99.863, 26.924, 0.57)
pt3dadd(170.876, 99.836, 26.947, 0.534)
pt3dadd(170.989, 99.808, 26.971, 0.496)
pt3dadd(171.103, 99.781, 26.994, 0.46)
pt3dadd(171.216, 99.753, 27.017, 0.424)
pt3dadd(171.33, 99.726, 27.041, 0.388)
pt3dadd(171.443, 99.698, 27.064, 0.35)
pt3dadd(171.557, 99.671, 27.088, 0.314)
pt3dadd(171.668, 99.629, 27.102, 0.304)
pt3dadd(171.779, 99.587, 27.115, 0.294)
pt3dadd(171.89, 99.544, 27.129, 0.286)
pt3dadd(172.001, 99.501, 27.142, 0.278)
pt3dadd(172.112, 99.459, 27.155, 0.27)
pt3dadd(172.223, 99.416, 27.169, 0.26)
pt3dadd(172.334, 99.373, 27.182, 0.252)
pt3dadd(172.445, 99.331, 27.196, 0.244)
pt3dadd(172.556, 99.288, 27.209, 0.234)
pt3dadd(172.667, 99.245, 27.222, 0.226)
pt3dadd(172.78, 99.203, 27.228, 0.234)
pt3dadd(172.891, 99.161, 27.234, 0.244)
pt3dadd(173.004, 99.12, 27.239, 0.252)
pt3dadd(173.116, 99.078, 27.245, 0.262)
pt3dadd(173.228, 99.036, 27.25, 0.27)
pt3dadd(173.34, 98.994, 27.255, 0.28)
pt3dadd(173.453, 98.952, 27.261, 0.288)
pt3dadd(173.564, 98.91, 27.266, 0.298)
pt3dadd(173.677, 98.868, 27.272, 0.306)
pt3dadd(173.789, 98.826, 27.277, 0.316)
pt3dadd(173.904, 98.791, 27.278, 0.334)
pt3dadd(174.019, 98.757, 27.278, 0.352)
pt3dadd(174.134, 98.724, 27.278, 0.37)
pt3dadd(174.25, 98.69, 27.279, 0.39)
pt3dadd(174.365, 98.656, 27.279, 0.408)
pt3dadd(174.48, 98.622, 27.279, 0.426)
pt3dadd(174.595, 98.588, 27.28, 0.444)
pt3dadd(174.709, 98.554, 27.28, 0.464)
pt3dadd(174.824, 98.52, 27.28, 0.482)
pt3dadd(174.94, 98.486, 27.281, 0.5)
pt3dadd(175.056, 98.458, 27.281, 0.52)
pt3dadd(175.174, 98.43, 27.282, 0.538)
pt3dadd(175.29, 98.401, 27.283, 0.556)
pt3dadd(175.406, 98.373, 27.283, 0.576)
pt3dadd(175.523, 98.345, 27.284, 0.594)
pt3dadd(175.64, 98.317, 27.285, 0.614)
pt3dadd(175.757, 98.289, 27.286, 0.632)
pt3dadd(175.873, 98.261, 27.286, 0.65)
pt3dadd(175.99, 98.233, 27.287, 0.67)
pt3dadd(176.106, 98.205, 27.288, 0.688)
pt3dadd(176.218, 98.159, 27.289, 0.706)
pt3dadd(176.329, 98.114, 27.29, 0.724)
pt3dadd(176.44, 98.069, 27.291, 0.742)
pt3dadd(176.551, 98.024, 27.293, 0.76)
pt3dadd(176.662, 97.978, 27.294, 0.778)
pt3dadd(176.773, 97.933, 27.295, 0.796)
pt3dadd(176.885, 97.888, 27.297, 0.814)
pt3dadd(176.995, 97.843, 27.298, 0.832)
pt3dadd(177.107, 97.797, 27.299, 0.85)
pt3dadd(177.218, 97.752, 27.301, 0.868)
pt3dadd(177.334, 97.719, 27.303, 0.872)
pt3dadd(177.449, 97.685, 27.306, 0.874)
pt3dadd(177.564, 97.652, 27.308, 0.878)
pt3dadd(177.679, 97.619, 27.311, 0.882)
pt3dadd(177.794, 97.585, 27.313, 0.886)
pt3dadd(177.91, 97.552, 27.315, 0.89)
pt3dadd(178.025, 97.518, 27.318, 0.892)
pt3dadd(178.14, 97.485, 27.32, 0.896)
pt3dadd(178.255, 97.452, 27.323, 0.9)
pt3dadd(178.37, 97.418, 27.325, 0.904)
pt3dadd(178.488, 97.396, 27.331, 0.87)
pt3dadd(178.606, 97.374, 27.336, 0.836)
pt3dadd(178.723, 97.351, 27.341, 0.802)
pt3dadd(178.841, 97.329, 27.346, 0.77)
pt3dadd(178.958, 97.306, 27.352, 0.736)
pt3dadd(179.076, 97.284, 27.357, 0.702)
pt3dadd(179.194, 97.262, 27.362, 0.668)
pt3dadd(179.312, 97.239, 27.367, 0.636)
pt3dadd(179.43, 97.217, 27.372, 0.602)
pt3dadd(179.548, 97.195, 27.378, 0.568)
pt3dadd(179.666, 97.181, 27.387, 0.542)
pt3dadd(179.785, 97.168, 27.395, 0.514)
pt3dadd(179.904, 97.155, 27.404, 0.488)
pt3dadd(180.023, 97.141, 27.413, 0.462)
pt3dadd(180.142, 97.128, 27.422, 0.436)
pt3dadd(180.26, 97.114, 27.431, 0.408)
pt3dadd(180.379, 97.101, 27.439, 0.382)
pt3dadd(180.498, 97.087, 27.448, 0.356)
pt3dadd(180.617, 97.074, 27.457, 0.328)
pt3dadd(180.736, 97.06, 27.466, 0.304)
pt3dadd(180.853, 97.051, 27.483, 0.33)
pt3dadd(180.971, 97.041, 27.501, 0.358)
pt3dadd(181.088, 97.032, 27.518, 0.384)
pt3dadd(181.206, 97.022, 27.535, 0.412)
pt3dadd(181.324, 97.013, 27.552, 0.438)
pt3dadd(181.442, 97.003, 27.57, 0.464)
pt3dadd(181.56, 96.994, 27.587, 0.492)
pt3dadd(181.678, 96.984, 27.604, 0.518)
}
}
proc shape3d_142() {
dend_7[38] { pt3dadd(181.795, 96.975, 27.621, 0.546)
pt3dadd(181.913, 96.965, 27.64, 0.574)
pt3dadd(182.023, 96.951, 27.677, 0.628)
pt3dadd(182.134, 96.938, 27.714, 0.682)
pt3dadd(182.245, 96.925, 27.751, 0.736)
pt3dadd(182.356, 96.912, 27.788, 0.788)
pt3dadd(182.466, 96.898, 27.825, 0.842)
pt3dadd(182.576, 96.885, 27.862, 0.896)
pt3dadd(182.688, 96.872, 27.899, 0.948)
pt3dadd(182.798, 96.858, 27.936, 1.002)
pt3dadd(182.909, 96.845, 27.973, 1.056)
pt3dadd(183.019, 96.829, 28.009, 1.102)
pt3dadd(183.128, 96.786, 28.032, 1.07)
pt3dadd(183.236, 96.744, 28.055, 1.04)
pt3dadd(183.346, 96.701, 28.078, 1.01)
pt3dadd(183.454, 96.658, 28.101, 0.978)
pt3dadd(183.563, 96.615, 28.124, 0.948)
pt3dadd(183.671, 96.573, 28.148, 0.918)
pt3dadd(183.78, 96.53, 28.171, 0.886)
pt3dadd(183.889, 96.487, 28.194, 0.856)
pt3dadd(183.997, 96.444, 28.217, 0.826)
pt3dadd(184.106, 96.403, 28.239, 0.796)
pt3dadd(184.22, 96.368, 28.254, 0.77)
pt3dadd(184.333, 96.332, 28.269, 0.746)
pt3dadd(184.447, 96.297, 28.283, 0.722)
pt3dadd(184.56, 96.262, 28.298, 0.698)
pt3dadd(184.673, 96.227, 28.313, 0.674)
pt3dadd(184.787, 96.192, 28.328, 0.65)
pt3dadd(184.9, 96.157, 28.343, 0.626)
pt3dadd(185.014, 96.122, 28.358, 0.602)
pt3dadd(185.126, 96.086, 28.372, 0.576)
pt3dadd(185.24, 96.053, 28.386, 0.554)
pt3dadd(185.358, 96.028, 28.392, 0.534)
pt3dadd(185.476, 96.004, 28.398, 0.516)
pt3dadd(185.592, 95.979, 28.405, 0.496)
pt3dadd(185.71, 95.955, 28.411, 0.478)
pt3dadd(185.827, 95.931, 28.417, 0.46)
pt3dadd(185.944, 95.906, 28.423, 0.44)
pt3dadd(186.061, 95.882, 28.429, 0.422)
pt3dadd(186.179, 95.857, 28.436, 0.402)
pt3dadd(186.296, 95.833, 28.442, 0.384)
pt3dadd(186.414, 95.81, 28.447, 0.366)
pt3dadd(186.533, 95.795, 28.447, 0.352)
pt3dadd(186.652, 95.781, 28.448, 0.336)
pt3dadd(186.77, 95.766, 28.448, 0.322)
pt3dadd(186.89, 95.751, 28.448, 0.308)
pt3dadd(187.009, 95.736, 28.449, 0.294)
pt3dadd(187.128, 95.722, 28.449, 0.28)
pt3dadd(187.247, 95.707, 28.449, 0.266)
pt3dadd(187.366, 95.692, 28.45, 0.252)
pt3dadd(187.486, 95.677, 28.45, 0.238)
pt3dadd(187.604, 95.664, 28.451, 0.226)
pt3dadd(187.724, 95.654, 28.451, 0.228)
pt3dadd(187.843, 95.645, 28.452, 0.23)
pt3dadd(187.963, 95.636, 28.453, 0.232)
pt3dadd(188.083, 95.627, 28.453, 0.232)
pt3dadd(188.203, 95.617, 28.454, 0.234)
pt3dadd(188.322, 95.608, 28.455, 0.236)
pt3dadd(188.442, 95.599, 28.455, 0.238)
pt3dadd(188.562, 95.59, 28.456, 0.24)
pt3dadd(188.681, 95.58, 28.457, 0.24)
pt3dadd(188.801, 95.57, 28.457, 0.246)
pt3dadd(188.92, 95.555, 28.459, 0.264)
pt3dadd(189.038, 95.541, 28.46, 0.284)
pt3dadd(189.158, 95.526, 28.461, 0.304)
pt3dadd(189.277, 95.511, 28.463, 0.322)
pt3dadd(189.396, 95.496, 28.464, 0.342)
pt3dadd(189.515, 95.482, 28.465, 0.36)
pt3dadd(189.635, 95.467, 28.467, 0.38)
pt3dadd(189.754, 95.452, 28.468, 0.4)
pt3dadd(189.872, 95.437, 28.469, 0.418)
pt3dadd(189.99, 95.417, 28.471, 0.438)
pt3dadd(190.102, 95.374, 28.473, 0.456)
pt3dadd(190.214, 95.33, 28.476, 0.474)
pt3dadd(190.326, 95.287, 28.478, 0.492)
pt3dadd(190.438, 95.243, 28.481, 0.51)
pt3dadd(190.549, 95.2, 28.483, 0.528)
pt3dadd(190.661, 95.157, 28.485, 0.546)
pt3dadd(190.772, 95.113, 28.488, 0.564)
pt3dadd(190.885, 95.07, 28.49, 0.582)
pt3dadd(190.997, 95.026, 28.493, 0.6)
pt3dadd(191.108, 94.984, 28.496, 0.618)
pt3dadd(191.222, 94.946, 28.501, 0.636)
pt3dadd(191.336, 94.909, 28.506, 0.654)
pt3dadd(191.45, 94.871, 28.511, 0.672)
pt3dadd(191.564, 94.833, 28.516, 0.69)
pt3dadd(191.677, 94.796, 28.521, 0.708)
pt3dadd(191.791, 94.758, 28.526, 0.728)
pt3dadd(191.905, 94.721, 28.531, 0.746)
pt3dadd(192.019, 94.683, 28.536, 0.764)
pt3dadd(192.133, 94.645, 28.541, 0.782)
pt3dadd(192.247, 94.61, 28.547, 0.796)
pt3dadd(192.364, 94.581, 28.555, 0.79)
pt3dadd(192.48, 94.553, 28.563, 0.786)
pt3dadd(192.595, 94.524, 28.572, 0.78)
pt3dadd(192.712, 94.496, 28.58, 0.774)
pt3dadd(192.828, 94.467, 28.588, 0.77)
pt3dadd(192.944, 94.439, 28.596, 0.766)
pt3dadd(193.061, 94.41, 28.605, 0.76)
pt3dadd(193.176, 94.382, 28.613, 0.756)
pt3dadd(193.292, 94.353, 28.621, 0.75)
pt3dadd(193.409, 94.327, 28.632, 0.74)
pt3dadd(193.525, 94.305, 28.648, 0.714)
pt3dadd(193.642, 94.283, 28.664, 0.688)
pt3dadd(193.758, 94.262, 28.68, 0.664)
pt3dadd(193.874, 94.24, 28.697, 0.638)
pt3dadd(193.991, 94.218, 28.713, 0.612)
pt3dadd(194.107, 94.196, 28.729, 0.586)
pt3dadd(194.224, 94.175, 28.746, 0.56)
pt3dadd(194.34, 94.153, 28.762, 0.534)
pt3dadd(194.456, 94.131, 28.778, 0.51)
pt3dadd(194.572, 94.111, 28.8, 0.496)
pt3dadd(194.682, 94.095, 28.836, 0.514)
pt3dadd(194.792, 94.079, 28.872, 0.532)
pt3dadd(194.904, 94.063, 28.908, 0.55)
pt3dadd(195.014, 94.046, 28.943, 0.568)
pt3dadd(195.126, 94.03, 28.979, 0.586)
pt3dadd(195.236, 94.014, 29.015, 0.604)
pt3dadd(195.347, 93.998, 29.051, 0.622)
pt3dadd(195.458, 93.982, 29.086, 0.64)
pt3dadd(195.569, 93.965, 29.122, 0.658)
pt3dadd(195.679, 93.939, 29.153, 0.666)
pt3dadd(195.786, 93.89, 29.173, 0.65)
pt3dadd(195.893, 93.841, 29.193, 0.634)
pt3dadd(196, 93.792, 29.214, 0.618)
pt3dadd(196.106, 93.744, 29.234, 0.602)
pt3dadd(196.213, 93.694, 29.254, 0.588)
pt3dadd(196.32, 93.645, 29.274, 0.572)
pt3dadd(196.427, 93.597, 29.294, 0.556)
pt3dadd(196.534, 93.548, 29.314, 0.54)
pt3dadd(196.64, 93.499, 29.334, 0.524)
pt3dadd(196.748, 93.451, 29.351, 0.508)
pt3dadd(196.859, 93.406, 29.361, 0.492)
pt3dadd(196.969, 93.361, 29.37, 0.474)
pt3dadd(197.081, 93.316, 29.38, 0.456)
pt3dadd(197.191, 93.271, 29.389, 0.438)
pt3dadd(197.302, 93.226, 29.399, 0.42)
pt3dadd(197.412, 93.181, 29.408, 0.402)
pt3dadd(197.522, 93.136, 29.418, 0.384)
pt3dadd(197.634, 93.091, 29.427, 0.366)
pt3dadd(197.744, 93.046, 29.437, 0.348)
pt3dadd(197.855, 93, 29.442, 0.334)
pt3dadd(197.965, 92.953, 29.441, 0.322)
pt3dadd(198.076, 92.905, 29.439, 0.31)
pt3dadd(198.186, 92.858, 29.437, 0.3)
pt3dadd(198.296, 92.811, 29.436, 0.288)
pt3dadd(198.407, 92.764, 29.434, 0.278)
pt3dadd(198.516, 92.716, 29.433, 0.266)
pt3dadd(198.626, 92.669, 29.431, 0.254)
pt3dadd(198.737, 92.622, 29.429, 0.244)
pt3dadd(198.847, 92.575, 29.428, 0.232)
pt3dadd(198.956, 92.525, 29.422, 0.226)
pt3dadd(199.062, 92.47, 29.41, 0.226)
pt3dadd(199.169, 92.416, 29.398, 0.226)
pt3dadd(199.274, 92.362, 29.387, 0.226)
pt3dadd(199.38, 92.308, 29.375, 0.226)
pt3dadd(199.487, 92.253, 29.363, 0.226)
pt3dadd(199.592, 92.199, 29.351, 0.226)
pt3dadd(199.699, 92.145, 29.339, 0.226)
pt3dadd(199.805, 92.091, 29.328, 0.226)
pt3dadd(199.912, 92.037, 29.316, 0.226)
pt3dadd(200.018, 91.993, 29.293, 0.226)
pt3dadd(200.126, 91.964, 29.257, 0.226)
pt3dadd(200.234, 91.934, 29.221, 0.226)
pt3dadd(200.341, 91.904, 29.185, 0.226)
pt3dadd(200.449, 91.874, 29.149, 0.226)
pt3dadd(200.557, 91.845, 29.113, 0.226)
pt3dadd(200.665, 91.815, 29.077, 0.226)
pt3dadd(200.773, 91.785, 29.041, 0.226)
pt3dadd(200.881, 91.755, 29.005, 0.226)
pt3dadd(200.989, 91.726, 28.969, 0.226)
pt3dadd(201.1, 91.699, 28.937, 0.238)
pt3dadd(201.212, 91.675, 28.911, 0.266)
pt3dadd(201.326, 91.652, 28.884, 0.294)
pt3dadd(201.439, 91.629, 28.857, 0.322)
pt3dadd(201.552, 91.605, 28.83, 0.35)
pt3dadd(201.666, 91.582, 28.804, 0.378)
pt3dadd(201.779, 91.559, 28.777, 0.406)
pt3dadd(201.893, 91.535, 28.75, 0.434)
pt3dadd(202.006, 91.512, 28.723, 0.462)
pt3dadd(202.118, 91.489, 28.696, 0.49)
pt3dadd(202.234, 91.468, 28.674, 0.514)
pt3dadd(202.351, 91.45, 28.657, 0.53)
pt3dadd(202.468, 91.433, 28.64, 0.548)
pt3dadd(202.584, 91.416, 28.623, 0.566)
pt3dadd(202.702, 91.398, 28.606, 0.582)
pt3dadd(202.818, 91.381, 28.589, 0.6)
pt3dadd(202.936, 91.363, 28.572, 0.618)
pt3dadd(203.052, 91.346, 28.555, 0.634)
pt3dadd(203.17, 91.328, 28.538, 0.652)
pt3dadd(203.286, 91.311, 28.521, 0.67)
pt3dadd(203.404, 91.29, 28.508, 0.672)
pt3dadd(203.52, 91.264, 28.501, 0.66)
pt3dadd(203.638, 91.239, 28.494, 0.646)
pt3dadd(203.754, 91.213, 28.486, 0.634)
pt3dadd(203.87, 91.188, 28.479, 0.622)
pt3dadd(203.988, 91.162, 28.471, 0.61)
pt3dadd(204.104, 91.137, 28.464, 0.596)
pt3dadd(204.222, 91.112, 28.457, 0.584)
pt3dadd(204.338, 91.086, 28.449, 0.572)
}
}
proc shape3d_143() {
dend_7[38] { pt3dadd(204.456, 91.061, 28.442, 0.558)
pt3dadd(204.57, 91.025, 28.438, 0.536)
pt3dadd(204.682, 90.98, 28.438, 0.506)
pt3dadd(204.793, 90.936, 28.438, 0.478)
pt3dadd(204.904, 90.892, 28.437, 0.448)
pt3dadd(205.015, 90.848, 28.437, 0.418)
pt3dadd(205.127, 90.804, 28.437, 0.388)
pt3dadd(205.238, 90.759, 28.436, 0.36)
pt3dadd(205.35, 90.715, 28.436, 0.33)
pt3dadd(205.462, 90.671, 28.436, 0.3)
pt3dadd(205.573, 90.627, 28.435, 0.27)
pt3dadd(205.687, 90.59, 28.435, 0.28)
pt3dadd(205.804, 90.559, 28.434, 0.318)
pt3dadd(205.92, 90.528, 28.434, 0.356)
pt3dadd(206.035, 90.497, 28.433, 0.394)
pt3dadd(206.152, 90.466, 28.432, 0.43)
pt3dadd(206.267, 90.435, 28.432, 0.468)
pt3dadd(206.383, 90.405, 28.431, 0.506)
pt3dadd(206.5, 90.374, 28.43, 0.544)
pt3dadd(206.615, 90.343, 28.43, 0.58)
pt3dadd(206.731, 90.312, 28.429, 0.618)
pt3dadd(206.849, 90.287, 28.428, 0.616)
pt3dadd(206.966, 90.268, 28.427, 0.586)
pt3dadd(207.085, 90.249, 28.425, 0.558)
pt3dadd(207.204, 90.229, 28.424, 0.528)
pt3dadd(207.322, 90.21, 28.423, 0.498)
pt3dadd(207.44, 90.19, 28.421, 0.468)
pt3dadd(207.559, 90.171, 28.42, 0.438)
pt3dadd(207.677, 90.151, 28.418, 0.408)
pt3dadd(207.796, 90.132, 28.417, 0.38)
pt3dadd(207.914, 90.113, 28.416, 0.35)
pt3dadd(208.033, 90.097, 28.413, 0.33)
pt3dadd(208.152, 90.084, 28.411, 0.32)
pt3dadd(208.272, 90.071, 28.408, 0.308)
pt3dadd(208.391, 90.058, 28.405, 0.298)
pt3dadd(208.51, 90.045, 28.403, 0.286)
pt3dadd(208.63, 90.031, 28.4, 0.276)
pt3dadd(208.748, 90.018, 28.397, 0.264)
pt3dadd(208.867, 90.005, 28.395, 0.252)
pt3dadd(208.987, 89.992, 28.392, 0.242)
pt3dadd(209.106, 89.979, 28.389, 0.23)
pt3dadd(209.225, 89.964, 28.385, 0.232)
pt3dadd(209.344, 89.948, 28.379, 0.244)
pt3dadd(209.462, 89.933, 28.374, 0.256)
pt3dadd(209.581, 89.917, 28.368, 0.266)
pt3dadd(209.7, 89.901, 28.362, 0.278)
pt3dadd(209.819, 89.885, 28.357, 0.29)
pt3dadd(209.938, 89.869, 28.351, 0.3)
pt3dadd(210.056, 89.853, 28.345, 0.312)
pt3dadd(210.175, 89.837, 28.34, 0.324)
pt3dadd(210.294, 89.821, 28.334, 0.334)
pt3dadd(210.409, 89.792, 28.326, 0.342)
pt3dadd(210.523, 89.755, 28.316, 0.344)
pt3dadd(210.636, 89.718, 28.306, 0.348)
pt3dadd(210.75, 89.68, 28.296, 0.35)
pt3dadd(210.863, 89.643, 28.286, 0.354)
pt3dadd(210.977, 89.605, 28.276, 0.356)
pt3dadd(211.09, 89.568, 28.267, 0.36)
pt3dadd(211.204, 89.53, 28.257, 0.362)
pt3dadd(211.316, 89.493, 28.247, 0.366)
pt3dadd(211.43, 89.456, 28.237, 0.37)
pt3dadd(211.535, 89.403, 28.22, 0.358)
pt3dadd(211.638, 89.345, 28.2, 0.344)
pt3dadd(211.74, 89.288, 28.18, 0.33)
pt3dadd(211.843, 89.23, 28.161, 0.316)
pt3dadd(211.946, 89.173, 28.141, 0.3)
pt3dadd(212.048, 89.115, 28.121, 0.286)
pt3dadd(212.152, 89.058, 28.102, 0.272)
pt3dadd(212.254, 89, 28.082, 0.258)
pt3dadd(212.357, 88.943, 28.063, 0.242)
pt3dadd(212.459, 88.885, 28.043, 0.228)
pt3dadd(212.554, 88.829, 28.004, 0.226)
pt3dadd(212.646, 88.773, 27.961, 0.226)
pt3dadd(212.74, 88.716, 27.919, 0.226)
pt3dadd(212.832, 88.66, 27.876, 0.226)
pt3dadd(212.926, 88.604, 27.834, 0.226)
pt3dadd(213.018, 88.548, 27.792, 0.226)
pt3dadd(213.112, 88.491, 27.749, 0.226)
pt3dadd(213.204, 88.435, 27.707, 0.226)
pt3dadd(213.298, 88.379, 27.664, 0.226)
pt3dadd(213.39, 88.323, 27.622, 0.226)
pt3dadd(213.445, 88.225, 27.587, 0.226)
pt3dadd(213.502, 88.127, 27.552, 0.226)
pt3dadd(213.557, 88.03, 27.517, 0.226)
pt3dadd(213.613, 87.932, 27.482, 0.226)
pt3dadd(213.668, 87.834, 27.447, 0.226)
pt3dadd(213.725, 87.737, 27.412, 0.226)
pt3dadd(213.781, 87.639, 27.377, 0.226)
pt3dadd(213.836, 87.541, 27.343, 0.226)
pt3dadd(213.893, 87.444, 27.308, 0.226)
pt3dadd(213.948, 87.346, 27.273, 0.226)
}
dend_7[39] {pt3dclear()
pt3dadd(132.522, 102.672, 23.351, 1.356)
pt3dadd(132.533, 102.673, 23.363, 1.35)
pt3dadd(132.604, 102.679, 23.444, 1.316)
pt3dadd(132.676, 102.685, 23.524, 1.282)
pt3dadd(132.746, 102.691, 23.604, 1.248)
pt3dadd(132.817, 102.697, 23.685, 1.214)
pt3dadd(132.889, 102.703, 23.765, 1.178)
pt3dadd(132.96, 102.709, 23.846, 1.144)
pt3dadd(133.031, 102.715, 23.926, 1.11)
pt3dadd(133.103, 102.721, 24.006, 1.076)
pt3dadd(133.174, 102.727, 24.086, 1.04)
pt3dadd(133.246, 102.733, 24.167, 1.006)
pt3dadd(133.316, 102.739, 24.247, 0.972)
pt3dadd(133.387, 102.745, 24.327, 0.938)
pt3dadd(133.459, 102.751, 24.408, 0.904)
pt3dadd(133.53, 102.757, 24.488, 0.868)
pt3dadd(133.602, 102.763, 24.568, 0.834)
pt3dadd(133.673, 102.769, 24.648, 0.8)
pt3dadd(133.744, 102.775, 24.729, 0.766)
pt3dadd(133.824, 102.766, 24.803, 0.756)
pt3dadd(133.906, 102.756, 24.876, 0.748)
pt3dadd(133.986, 102.747, 24.95, 0.738)
pt3dadd(134.066, 102.737, 25.023, 0.73)
pt3dadd(134.147, 102.727, 25.097, 0.722)
pt3dadd(134.228, 102.718, 25.17, 0.712)
pt3dadd(134.309, 102.708, 25.244, 0.704)
pt3dadd(134.389, 102.699, 25.317, 0.696)
pt3dadd(134.471, 102.689, 25.391, 0.686)
pt3dadd(134.551, 102.679, 25.465, 0.678)
pt3dadd(134.634, 102.664, 25.535, 0.686)
pt3dadd(134.717, 102.648, 25.607, 0.692)
pt3dadd(134.8, 102.632, 25.677, 0.7)
pt3dadd(134.884, 102.617, 25.748, 0.706)
pt3dadd(134.966, 102.601, 25.819, 0.714)
pt3dadd(135.049, 102.586, 25.89, 0.722)
pt3dadd(135.132, 102.57, 25.961, 0.728)
pt3dadd(135.216, 102.554, 26.032, 0.736)
pt3dadd(135.299, 102.539, 26.103, 0.744)
pt3dadd(135.382, 102.523, 26.174, 0.75)
pt3dadd(135.463, 102.504, 26.246, 0.788)
pt3dadd(135.546, 102.486, 26.317, 0.826)
pt3dadd(135.628, 102.467, 26.388, 0.864)
pt3dadd(135.709, 102.448, 26.46, 0.902)
pt3dadd(135.792, 102.429, 26.531, 0.94)
pt3dadd(135.874, 102.41, 26.602, 0.978)
pt3dadd(135.955, 102.391, 26.674, 1.016)
pt3dadd(136.037, 102.372, 26.745, 1.054)
pt3dadd(136.12, 102.354, 26.817, 1.092)
pt3dadd(136.201, 102.335, 26.888, 1.13)
}
dend_7[40] {pt3dclear()
pt3dadd(136.201, 102.335, 26.888, 1.13)
pt3dadd(136.231, 102.302, 26.914, 1.12)
pt3dadd(136.298, 102.231, 26.973, 1.096)
pt3dadd(136.364, 102.16, 27.031, 1.074)
pt3dadd(136.43, 102.089, 27.09, 1.05)
pt3dadd(136.498, 102.017, 27.148, 1.028)
pt3dadd(136.564, 101.946, 27.207, 1.006)
pt3dadd(136.63, 101.875, 27.265, 0.982)
pt3dadd(136.697, 101.804, 27.323, 0.96)
pt3dadd(136.763, 101.732, 27.382, 0.936)
pt3dadd(136.826, 101.662, 27.442, 0.904)
pt3dadd(136.878, 101.593, 27.512, 0.836)
pt3dadd(136.931, 101.524, 27.581, 0.768)
pt3dadd(136.982, 101.454, 27.65, 0.7)
pt3dadd(137.035, 101.385, 27.72, 0.632)
pt3dadd(137.087, 101.316, 27.789, 0.564)
pt3dadd(137.138, 101.247, 27.858, 0.496)
pt3dadd(137.191, 101.178, 27.928, 0.428)
pt3dadd(137.243, 101.109, 27.997, 0.36)
pt3dadd(137.294, 101.04, 28.067, 0.292)
pt3dadd(137.352, 100.968, 28.128, 0.252)
pt3dadd(137.426, 100.884, 28.164, 0.294)
pt3dadd(137.501, 100.801, 28.201, 0.336)
pt3dadd(137.575, 100.717, 28.238, 0.378)
pt3dadd(137.648, 100.634, 28.274, 0.422)
pt3dadd(137.723, 100.55, 28.311, 0.464)
pt3dadd(137.797, 100.467, 28.348, 0.506)
pt3dadd(137.872, 100.383, 28.384, 0.548)
pt3dadd(137.946, 100.3, 28.421, 0.59)
pt3dadd(138.019, 100.216, 28.458, 0.632)
pt3dadd(138.097, 100.134, 28.492, 0.656)
pt3dadd(138.184, 100.058, 28.517, 0.622)
pt3dadd(138.27, 99.981, 28.543, 0.586)
pt3dadd(138.358, 99.904, 28.569, 0.552)
pt3dadd(138.444, 99.827, 28.595, 0.518)
pt3dadd(138.53, 99.75, 28.62, 0.482)
pt3dadd(138.618, 99.673, 28.646, 0.448)
pt3dadd(138.704, 99.597, 28.672, 0.414)
pt3dadd(138.791, 99.52, 28.698, 0.38)
pt3dadd(138.878, 99.443, 28.724, 0.344)
pt3dadd(138.964, 99.37, 28.755, 0.324)
pt3dadd(139.048, 99.308, 28.806, 0.35)
pt3dadd(139.13, 99.247, 28.856, 0.376)
pt3dadd(139.214, 99.185, 28.907, 0.402)
pt3dadd(139.297, 99.124, 28.957, 0.426)
pt3dadd(139.381, 99.062, 29.008, 0.452)
pt3dadd(139.465, 99.001, 29.058, 0.478)
pt3dadd(139.548, 98.939, 29.108, 0.502)
pt3dadd(139.632, 98.878, 29.159, 0.528)
pt3dadd(139.715, 98.816, 29.209, 0.554)
pt3dadd(139.804, 98.765, 29.26, 0.588)
pt3dadd(139.9, 98.73, 29.312, 0.636)
pt3dadd(139.997, 98.695, 29.364, 0.682)
pt3dadd(140.093, 98.66, 29.415, 0.73)
pt3dadd(140.189, 98.625, 29.467, 0.778)
pt3dadd(140.286, 98.59, 29.519, 0.826)
pt3dadd(140.382, 98.555, 29.571, 0.874)
pt3dadd(140.479, 98.52, 29.623, 0.922)
pt3dadd(140.575, 98.485, 29.674, 0.97)
pt3dadd(140.672, 98.45, 29.726, 1.016)
}
}
proc shape3d_144() {
dend_7[40] { pt3dadd(140.767, 98.423, 29.781, 1.04)
pt3dadd(140.862, 98.404, 29.841, 1.032)
pt3dadd(140.957, 98.385, 29.9, 1.024)
pt3dadd(141.052, 98.366, 29.959, 1.016)
pt3dadd(141.146, 98.348, 30.018, 1.01)
pt3dadd(141.241, 98.329, 30.078, 1.002)
pt3dadd(141.336, 98.31, 30.137, 0.994)
pt3dadd(141.431, 98.291, 30.196, 0.986)
pt3dadd(141.527, 98.273, 30.255, 0.98)
pt3dadd(141.622, 98.254, 30.315, 0.972)
pt3dadd(141.713, 98.22, 30.371, 0.958)
pt3dadd(141.8, 98.17, 30.425, 0.934)
pt3dadd(141.889, 98.12, 30.478, 0.912)
pt3dadd(141.977, 98.07, 30.532, 0.888)
pt3dadd(142.066, 98.02, 30.585, 0.866)
pt3dadd(142.153, 97.97, 30.639, 0.842)
pt3dadd(142.242, 97.92, 30.692, 0.82)
pt3dadd(142.33, 97.87, 30.746, 0.798)
pt3dadd(142.418, 97.821, 30.8, 0.774)
pt3dadd(142.506, 97.771, 30.853, 0.752)
pt3dadd(142.592, 97.721, 30.91, 0.73)
pt3dadd(142.676, 97.673, 30.968, 0.708)
pt3dadd(142.762, 97.624, 31.026, 0.688)
pt3dadd(142.846, 97.575, 31.084, 0.666)
pt3dadd(142.931, 97.526, 31.142, 0.644)
pt3dadd(143.016, 97.477, 31.2, 0.624)
pt3dadd(143.1, 97.428, 31.258, 0.602)
pt3dadd(143.185, 97.379, 31.316, 0.582)
pt3dadd(143.269, 97.331, 31.374, 0.56)
pt3dadd(143.354, 97.282, 31.432, 0.538)
pt3dadd(143.447, 97.24, 31.484, 0.518)
pt3dadd(143.543, 97.2, 31.535, 0.496)
pt3dadd(143.639, 97.161, 31.585, 0.476)
pt3dadd(143.735, 97.122, 31.636, 0.454)
pt3dadd(143.831, 97.083, 31.686, 0.432)
pt3dadd(143.927, 97.043, 31.736, 0.412)
pt3dadd(144.023, 97.004, 31.787, 0.39)
pt3dadd(144.118, 96.965, 31.837, 0.368)
pt3dadd(144.214, 96.925, 31.888, 0.348)
pt3dadd(144.31, 96.886, 31.938, 0.326)
pt3dadd(144.4, 96.836, 31.99, 0.342)
pt3dadd(144.487, 96.782, 32.042, 0.368)
pt3dadd(144.575, 96.729, 32.094, 0.394)
pt3dadd(144.662, 96.676, 32.146, 0.418)
pt3dadd(144.75, 96.622, 32.198, 0.444)
pt3dadd(144.838, 96.569, 32.25, 0.47)
pt3dadd(144.925, 96.516, 32.302, 0.494)
pt3dadd(145.013, 96.462, 32.353, 0.52)
pt3dadd(145.1, 96.409, 32.405, 0.546)
pt3dadd(145.188, 96.356, 32.457, 0.572)
pt3dadd(145.271, 96.293, 32.506, 0.574)
pt3dadd(145.355, 96.229, 32.554, 0.576)
pt3dadd(145.439, 96.166, 32.603, 0.58)
pt3dadd(145.522, 96.102, 32.651, 0.582)
pt3dadd(145.606, 96.039, 32.699, 0.584)
pt3dadd(145.69, 95.975, 32.748, 0.586)
pt3dadd(145.772, 95.912, 32.796, 0.588)
pt3dadd(145.856, 95.848, 32.845, 0.592)
pt3dadd(145.94, 95.785, 32.893, 0.594)
pt3dadd(146.024, 95.721, 32.94, 0.594)
pt3dadd(146.117, 95.653, 32.971, 0.556)
pt3dadd(146.209, 95.586, 33.001, 0.52)
pt3dadd(146.302, 95.518, 33.031, 0.482)
pt3dadd(146.393, 95.45, 33.062, 0.444)
pt3dadd(146.485, 95.383, 33.092, 0.408)
pt3dadd(146.578, 95.315, 33.122, 0.37)
pt3dadd(146.67, 95.247, 33.153, 0.334)
pt3dadd(146.762, 95.18, 33.183, 0.296)
pt3dadd(146.855, 95.112, 33.213, 0.258)
pt3dadd(146.946, 95.043, 33.243, 0.228)
pt3dadd(147.031, 94.966, 33.27, 0.24)
pt3dadd(147.118, 94.888, 33.296, 0.254)
pt3dadd(147.203, 94.811, 33.323, 0.268)
pt3dadd(147.289, 94.733, 33.35, 0.28)
pt3dadd(147.374, 94.656, 33.376, 0.294)
pt3dadd(147.461, 94.578, 33.403, 0.308)
pt3dadd(147.546, 94.5, 33.43, 0.32)
pt3dadd(147.632, 94.423, 33.456, 0.334)
pt3dadd(147.718, 94.345, 33.483, 0.348)
pt3dadd(147.802, 94.267, 33.512, 0.368)
pt3dadd(147.875, 94.185, 33.552, 0.418)
pt3dadd(147.948, 94.103, 33.592, 0.47)
pt3dadd(148.022, 94.021, 33.632, 0.52)
pt3dadd(148.096, 93.939, 33.672, 0.572)
pt3dadd(148.169, 93.857, 33.712, 0.622)
pt3dadd(148.242, 93.775, 33.752, 0.674)
pt3dadd(148.315, 93.693, 33.792, 0.726)
pt3dadd(148.388, 93.612, 33.832, 0.776)
pt3dadd(148.462, 93.53, 33.872, 0.828)
pt3dadd(148.54, 93.452, 33.909, 0.856)
pt3dadd(148.638, 93.391, 33.938, 0.794)
pt3dadd(148.736, 93.331, 33.966, 0.732)
pt3dadd(148.834, 93.27, 33.994, 0.668)
pt3dadd(148.932, 93.21, 34.023, 0.606)
pt3dadd(149.029, 93.149, 34.051, 0.542)
pt3dadd(149.128, 93.088, 34.08, 0.48)
pt3dadd(149.225, 93.028, 34.108, 0.418)
pt3dadd(149.323, 92.967, 34.136, 0.354)
pt3dadd(149.42, 92.907, 34.165, 0.292)
pt3dadd(149.521, 92.85, 34.191, 0.248)
pt3dadd(149.633, 92.809, 34.206, 0.286)
pt3dadd(149.744, 92.769, 34.221, 0.324)
pt3dadd(149.856, 92.729, 34.236, 0.362)
pt3dadd(149.968, 92.688, 34.251, 0.4)
pt3dadd(150.079, 92.648, 34.266, 0.438)
pt3dadd(150.191, 92.608, 34.281, 0.476)
pt3dadd(150.302, 92.567, 34.297, 0.516)
pt3dadd(150.413, 92.527, 34.312, 0.554)
pt3dadd(150.524, 92.486, 34.327, 0.592)
pt3dadd(150.635, 92.443, 34.34, 0.624)
pt3dadd(150.742, 92.387, 34.348, 0.628)
pt3dadd(150.847, 92.331, 34.356, 0.634)
pt3dadd(150.953, 92.276, 34.363, 0.64)
pt3dadd(151.058, 92.22, 34.371, 0.646)
pt3dadd(151.165, 92.164, 34.378, 0.652)
pt3dadd(151.271, 92.108, 34.386, 0.656)
pt3dadd(151.376, 92.053, 34.394, 0.662)
pt3dadd(151.482, 91.997, 34.401, 0.668)
pt3dadd(151.588, 91.941, 34.409, 0.674)
pt3dadd(151.693, 91.883, 34.416, 0.682)
pt3dadd(151.793, 91.818, 34.425, 0.698)
pt3dadd(151.894, 91.753, 34.433, 0.714)
pt3dadd(151.993, 91.688, 34.441, 0.73)
pt3dadd(152.094, 91.623, 34.45, 0.748)
pt3dadd(152.194, 91.557, 34.458, 0.764)
pt3dadd(152.294, 91.492, 34.466, 0.78)
pt3dadd(152.394, 91.427, 34.474, 0.796)
pt3dadd(152.495, 91.362, 34.483, 0.812)
pt3dadd(152.594, 91.296, 34.491, 0.83)
pt3dadd(152.694, 91.23, 34.5, 0.848)
pt3dadd(152.791, 91.16, 34.512, 0.876)
pt3dadd(152.887, 91.09, 34.523, 0.904)
pt3dadd(152.983, 91.02, 34.535, 0.932)
pt3dadd(153.08, 90.95, 34.547, 0.96)
pt3dadd(153.176, 90.88, 34.559, 0.986)
pt3dadd(153.272, 90.81, 34.571, 1.014)
pt3dadd(153.37, 90.74, 34.582, 1.042)
pt3dadd(153.466, 90.67, 34.594, 1.07)
pt3dadd(153.562, 90.6, 34.606, 1.098)
pt3dadd(153.659, 90.534, 34.624, 1.114)
pt3dadd(153.758, 90.482, 34.659, 1.098)
pt3dadd(153.858, 90.43, 34.694, 1.082)
pt3dadd(153.958, 90.378, 34.729, 1.064)
pt3dadd(154.057, 90.326, 34.764, 1.048)
pt3dadd(154.157, 90.274, 34.799, 1.032)
pt3dadd(154.256, 90.222, 34.834, 1.016)
pt3dadd(154.356, 90.169, 34.869, 1)
pt3dadd(154.456, 90.117, 34.904, 0.984)
pt3dadd(154.555, 90.065, 34.939, 0.968)
pt3dadd(154.655, 90.011, 34.972, 0.954)
pt3dadd(154.754, 89.952, 34.999, 0.948)
pt3dadd(154.853, 89.893, 35.027, 0.944)
pt3dadd(154.952, 89.833, 35.054, 0.938)
pt3dadd(155.051, 89.774, 35.081, 0.934)
pt3dadd(155.15, 89.715, 35.108, 0.928)
pt3dadd(155.25, 89.656, 35.136, 0.922)
pt3dadd(155.348, 89.596, 35.163, 0.918)
pt3dadd(155.448, 89.537, 35.19, 0.912)
pt3dadd(155.546, 89.478, 35.217, 0.908)
pt3dadd(155.647, 89.419, 35.243, 0.904)
pt3dadd(155.748, 89.361, 35.265, 0.904)
pt3dadd(155.85, 89.303, 35.286, 0.904)
pt3dadd(155.952, 89.244, 35.308, 0.904)
pt3dadd(156.053, 89.186, 35.33, 0.904)
pt3dadd(156.155, 89.128, 35.352, 0.904)
pt3dadd(156.257, 89.07, 35.374, 0.904)
pt3dadd(156.358, 89.012, 35.396, 0.904)
pt3dadd(156.46, 88.953, 35.417, 0.904)
pt3dadd(156.562, 88.895, 35.439, 0.904)
pt3dadd(156.665, 88.839, 35.459, 0.904)
pt3dadd(156.77, 88.787, 35.477, 0.902)
pt3dadd(156.877, 88.735, 35.494, 0.9)
pt3dadd(156.983, 88.683, 35.511, 0.896)
pt3dadd(157.09, 88.631, 35.528, 0.894)
pt3dadd(157.195, 88.58, 35.545, 0.892)
pt3dadd(157.302, 88.528, 35.563, 0.89)
pt3dadd(157.408, 88.476, 35.58, 0.888)
pt3dadd(157.514, 88.424, 35.597, 0.886)
pt3dadd(157.62, 88.372, 35.614, 0.884)
pt3dadd(157.723, 88.314, 35.629, 0.876)
pt3dadd(157.818, 88.242, 35.64, 0.858)
pt3dadd(157.914, 88.171, 35.652, 0.84)
pt3dadd(158.01, 88.099, 35.663, 0.822)
pt3dadd(158.105, 88.028, 35.674, 0.804)
pt3dadd(158.201, 87.957, 35.685, 0.786)
pt3dadd(158.296, 87.885, 35.696, 0.768)
pt3dadd(158.392, 87.814, 35.708, 0.75)
pt3dadd(158.488, 87.743, 35.719, 0.732)
pt3dadd(158.582, 87.671, 35.73, 0.714)
pt3dadd(158.672, 87.6, 35.753, 0.688)
pt3dadd(158.753, 87.528, 35.798, 0.644)
pt3dadd(158.832, 87.456, 35.843, 0.6)
pt3dadd(158.911, 87.384, 35.888, 0.556)
pt3dadd(158.99, 87.312, 35.933, 0.512)
pt3dadd(159.071, 87.24, 35.978, 0.468)
pt3dadd(159.15, 87.168, 36.022, 0.426)
pt3dadd(159.229, 87.097, 36.067, 0.382)
pt3dadd(159.308, 87.025, 36.112, 0.338)
pt3dadd(159.389, 86.953, 36.157, 0.294)
pt3dadd(159.466, 86.874, 36.195, 0.29)
}
}
proc shape3d_145() {
dend_7[40] { pt3dadd(159.54, 86.786, 36.223, 0.338)
pt3dadd(159.614, 86.698, 36.252, 0.386)
pt3dadd(159.688, 86.61, 36.28, 0.434)
pt3dadd(159.762, 86.522, 36.308, 0.482)
pt3dadd(159.836, 86.434, 36.337, 0.53)
pt3dadd(159.911, 86.346, 36.365, 0.578)
pt3dadd(159.985, 86.258, 36.394, 0.626)
pt3dadd(160.058, 86.17, 36.422, 0.674)
pt3dadd(160.133, 86.082, 36.45, 0.722)
pt3dadd(160.2, 85.988, 36.474, 0.76)
pt3dadd(160.26, 85.886, 36.491, 0.79)
pt3dadd(160.32, 85.784, 36.509, 0.82)
pt3dadd(160.38, 85.682, 36.526, 0.85)
pt3dadd(160.44, 85.58, 36.544, 0.88)
pt3dadd(160.5, 85.479, 36.562, 0.91)
pt3dadd(160.56, 85.377, 36.579, 0.94)
pt3dadd(160.62, 85.275, 36.597, 0.97)
pt3dadd(160.68, 85.173, 36.614, 1)
pt3dadd(160.74, 85.071, 36.632, 1.03)
pt3dadd(160.8, 84.969, 36.646, 1.03)
pt3dadd(160.861, 84.867, 36.656, 1.002)
pt3dadd(160.924, 84.764, 36.666, 0.976)
pt3dadd(160.985, 84.662, 36.676, 0.948)
pt3dadd(161.046, 84.56, 36.686, 0.922)
pt3dadd(161.107, 84.457, 36.696, 0.894)
pt3dadd(161.17, 84.355, 36.706, 0.868)
pt3dadd(161.231, 84.253, 36.716, 0.84)
pt3dadd(161.292, 84.15, 36.726, 0.814)
pt3dadd(161.353, 84.048, 36.736, 0.786)
pt3dadd(161.418, 83.948, 36.745, 0.746)
pt3dadd(161.486, 83.849, 36.752, 0.694)
pt3dadd(161.555, 83.751, 36.759, 0.64)
pt3dadd(161.622, 83.652, 36.766, 0.588)
pt3dadd(161.69, 83.554, 36.773, 0.536)
pt3dadd(161.758, 83.455, 36.781, 0.482)
pt3dadd(161.826, 83.356, 36.788, 0.43)
pt3dadd(161.894, 83.258, 36.795, 0.378)
pt3dadd(161.962, 83.159, 36.802, 0.324)
pt3dadd(162.03, 83.061, 36.81, 0.272)
pt3dadd(162.101, 82.964, 36.819, 0.258)
pt3dadd(162.173, 82.869, 36.83, 0.274)
pt3dadd(162.245, 82.774, 36.84, 0.288)
pt3dadd(162.317, 82.68, 36.851, 0.304)
pt3dadd(162.389, 82.585, 36.862, 0.32)
pt3dadd(162.462, 82.49, 36.873, 0.336)
pt3dadd(162.534, 82.395, 36.884, 0.352)
pt3dadd(162.606, 82.3, 36.895, 0.366)
pt3dadd(162.678, 82.205, 36.906, 0.382)
pt3dadd(162.75, 82.11, 36.917, 0.398)
pt3dadd(162.816, 82.014, 36.938, 0.408)
pt3dadd(162.877, 81.916, 36.967, 0.412)
pt3dadd(162.938, 81.819, 36.996, 0.416)
pt3dadd(162.998, 81.722, 37.026, 0.422)
pt3dadd(163.06, 81.625, 37.055, 0.426)
pt3dadd(163.121, 81.527, 37.084, 0.432)
pt3dadd(163.181, 81.43, 37.114, 0.436)
pt3dadd(163.242, 81.333, 37.143, 0.44)
pt3dadd(163.303, 81.235, 37.172, 0.446)
pt3dadd(163.363, 81.138, 37.201, 0.45)
pt3dadd(163.423, 81.041, 37.234, 0.448)
pt3dadd(163.481, 80.945, 37.269, 0.444)
pt3dadd(163.54, 80.849, 37.304, 0.438)
pt3dadd(163.597, 80.753, 37.338, 0.434)
pt3dadd(163.656, 80.656, 37.373, 0.428)
pt3dadd(163.715, 80.56, 37.407, 0.422)
pt3dadd(163.772, 80.464, 37.442, 0.418)
pt3dadd(163.831, 80.367, 37.477, 0.412)
pt3dadd(163.889, 80.271, 37.511, 0.408)
pt3dadd(163.948, 80.175, 37.546, 0.402)
pt3dadd(164.01, 80.08, 37.577, 0.39)
pt3dadd(164.076, 79.985, 37.606, 0.372)
pt3dadd(164.141, 79.891, 37.636, 0.356)
pt3dadd(164.207, 79.797, 37.665, 0.338)
pt3dadd(164.272, 79.703, 37.694, 0.322)
pt3dadd(164.338, 79.608, 37.723, 0.306)
pt3dadd(164.402, 79.514, 37.753, 0.288)
pt3dadd(164.468, 79.42, 37.782, 0.272)
pt3dadd(164.533, 79.326, 37.812, 0.256)
pt3dadd(164.599, 79.231, 37.841, 0.238)
pt3dadd(164.669, 79.139, 37.867, 0.278)
pt3dadd(164.74, 79.047, 37.892, 0.346)
pt3dadd(164.81, 78.955, 37.917, 0.412)
pt3dadd(164.881, 78.863, 37.942, 0.48)
pt3dadd(164.953, 78.771, 37.966, 0.548)
pt3dadd(165.024, 78.679, 37.991, 0.614)
pt3dadd(165.095, 78.587, 38.016, 0.682)
pt3dadd(165.167, 78.495, 38.041, 0.75)
pt3dadd(165.238, 78.403, 38.066, 0.818)
pt3dadd(165.308, 78.311, 38.09, 0.884)
pt3dadd(165.373, 78.227, 38.134, 0.91)
pt3dadd(165.434, 78.145, 38.187, 0.916)
pt3dadd(165.496, 78.064, 38.24, 0.922)
pt3dadd(165.557, 77.983, 38.293, 0.928)
pt3dadd(165.618, 77.901, 38.346, 0.934)
pt3dadd(165.679, 77.82, 38.399, 0.938)
pt3dadd(165.74, 77.739, 38.452, 0.944)
pt3dadd(165.802, 77.658, 38.505, 0.95)
pt3dadd(165.863, 77.576, 38.558, 0.956)
pt3dadd(165.924, 77.495, 38.611, 0.962)
pt3dadd(165.956, 77.406, 38.672, 0.896)
pt3dadd(165.985, 77.316, 38.733, 0.824)
pt3dadd(166.013, 77.225, 38.795, 0.75)
pt3dadd(166.042, 77.135, 38.856, 0.676)
pt3dadd(166.07, 77.045, 38.918, 0.604)
pt3dadd(166.099, 76.955, 38.979, 0.53)
pt3dadd(166.127, 76.864, 39.041, 0.456)
pt3dadd(166.156, 76.774, 39.102, 0.382)
pt3dadd(166.184, 76.684, 39.164, 0.31)
pt3dadd(166.213, 76.594, 39.225, 0.236)
pt3dadd(166.213, 76.545, 39.317, 0.234)
pt3dadd(166.213, 76.497, 39.408, 0.234)
pt3dadd(166.214, 76.45, 39.5, 0.232)
pt3dadd(166.214, 76.402, 39.592, 0.232)
pt3dadd(166.214, 76.354, 39.683, 0.23)
pt3dadd(166.214, 76.306, 39.775, 0.23)
pt3dadd(166.214, 76.258, 39.867, 0.228)
pt3dadd(166.216, 76.211, 39.959, 0.228)
pt3dadd(166.216, 76.163, 40.05, 0.226)
pt3dadd(166.216, 76.115, 40.142, 0.226)
}
dend_7[41] {pt3dclear()
pt3dadd(136.201, 102.335, 26.888, 1.13)
pt3dadd(136.218, 102.393, 26.936, 1.13)
pt3dadd(136.242, 102.476, 27.006, 1.13)
pt3dadd(136.266, 102.559, 27.075, 1.13)
pt3dadd(136.29, 102.642, 27.145, 1.13)
pt3dadd(136.313, 102.725, 27.214, 1.13)
pt3dadd(136.337, 102.808, 27.284, 1.13)
pt3dadd(136.361, 102.891, 27.353, 1.13)
pt3dadd(136.385, 102.974, 27.423, 1.13)
pt3dadd(136.409, 103.057, 27.492, 1.13)
pt3dadd(136.433, 103.14, 27.561, 1.13)
pt3dadd(136.456, 103.223, 27.631, 1.13)
pt3dadd(136.48, 103.306, 27.701, 1.13)
pt3dadd(136.504, 103.389, 27.77, 1.13)
pt3dadd(136.528, 103.472, 27.839, 1.13)
pt3dadd(136.552, 103.555, 27.909, 1.13)
pt3dadd(136.58, 103.633, 27.98, 1.13)
pt3dadd(136.614, 103.707, 28.054, 1.13)
pt3dadd(136.649, 103.78, 28.128, 1.13)
pt3dadd(136.684, 103.853, 28.202, 1.13)
pt3dadd(136.718, 103.926, 28.276, 1.13)
pt3dadd(136.752, 103.999, 28.35, 1.13)
pt3dadd(136.787, 104.073, 28.424, 1.13)
pt3dadd(136.822, 104.146, 28.497, 1.13)
pt3dadd(136.855, 104.219, 28.571, 1.13)
pt3dadd(136.89, 104.292, 28.645, 1.13)
pt3dadd(136.942, 104.344, 28.723, 1.13)
pt3dadd(137, 104.387, 28.802, 1.13)
pt3dadd(137.059, 104.43, 28.882, 1.13)
pt3dadd(137.118, 104.473, 28.961, 1.13)
pt3dadd(137.178, 104.516, 29.04, 1.13)
pt3dadd(137.237, 104.559, 29.12, 1.13)
pt3dadd(137.296, 104.602, 29.199, 1.13)
pt3dadd(137.354, 104.645, 29.278, 1.13)
pt3dadd(137.413, 104.688, 29.358, 1.13)
pt3dadd(137.473, 104.731, 29.437, 1.13)
pt3dadd(137.516, 104.79, 29.515, 1.13)
pt3dadd(137.552, 104.856, 29.593, 1.13)
pt3dadd(137.59, 104.922, 29.671, 1.13)
pt3dadd(137.626, 104.988, 29.748, 1.13)
pt3dadd(137.663, 105.055, 29.826, 1.13)
pt3dadd(137.699, 105.121, 29.904, 1.13)
pt3dadd(137.736, 105.187, 29.981, 1.13)
pt3dadd(137.772, 105.253, 30.059, 1.13)
pt3dadd(137.809, 105.319, 30.136, 1.13)
pt3dadd(137.845, 105.386, 30.214, 1.13)
pt3dadd(137.868, 105.463, 30.288, 1.116)
pt3dadd(137.888, 105.543, 30.36, 1.1)
pt3dadd(137.909, 105.624, 30.433, 1.084)
pt3dadd(137.928, 105.704, 30.505, 1.068)
pt3dadd(137.948, 105.784, 30.578, 1.052)
pt3dadd(137.968, 105.864, 30.65, 1.036)
pt3dadd(137.988, 105.944, 30.723, 1.02)
pt3dadd(138.007, 106.025, 30.795, 1.004)
pt3dadd(138.028, 106.105, 30.868, 0.988)
pt3dadd(138.048, 106.185, 30.94, 0.972)
pt3dadd(138.06, 106.272, 31.008, 0.942)
pt3dadd(138.071, 106.36, 31.075, 0.91)
pt3dadd(138.082, 106.449, 31.142, 0.878)
pt3dadd(138.092, 106.537, 31.21, 0.846)
pt3dadd(138.103, 106.625, 31.277, 0.814)
pt3dadd(138.114, 106.713, 31.344, 0.784)
pt3dadd(138.125, 106.801, 31.411, 0.752)
pt3dadd(138.136, 106.89, 31.478, 0.72)
pt3dadd(138.146, 106.978, 31.546, 0.688)
pt3dadd(138.157, 107.066, 31.613, 0.656)
pt3dadd(138.16, 107.171, 31.661, 0.622)
pt3dadd(138.162, 107.278, 31.706, 0.588)
pt3dadd(138.163, 107.385, 31.752, 0.554)
pt3dadd(138.166, 107.491, 31.797, 0.52)
pt3dadd(138.167, 107.598, 31.842, 0.484)
pt3dadd(138.169, 107.705, 31.888, 0.45)
pt3dadd(138.17, 107.812, 31.933, 0.416)
pt3dadd(138.173, 107.919, 31.979, 0.382)
pt3dadd(138.174, 108.026, 32.024, 0.348)
pt3dadd(138.176, 108.133, 32.07, 0.314)
pt3dadd(138.179, 108.237, 32.119, 0.312)
pt3dadd(138.182, 108.341, 32.169, 0.318)
pt3dadd(138.185, 108.445, 32.219, 0.322)
pt3dadd(138.188, 108.549, 32.269, 0.326)
pt3dadd(138.191, 108.653, 32.319, 0.33)
}
}
proc shape3d_146() {
dend_7[41] { pt3dadd(138.194, 108.756, 32.369, 0.334)
pt3dadd(138.197, 108.86, 32.419, 0.338)
pt3dadd(138.2, 108.964, 32.469, 0.344)
pt3dadd(138.203, 109.068, 32.519, 0.348)
pt3dadd(138.206, 109.172, 32.569, 0.352)
pt3dadd(138.211, 109.278, 32.615, 0.362)
pt3dadd(138.217, 109.385, 32.661, 0.372)
pt3dadd(138.223, 109.491, 32.707, 0.382)
pt3dadd(138.228, 109.598, 32.752, 0.392)
pt3dadd(138.234, 109.704, 32.798, 0.402)
pt3dadd(138.24, 109.811, 32.844, 0.412)
pt3dadd(138.245, 109.918, 32.89, 0.422)
pt3dadd(138.251, 110.024, 32.936, 0.432)
pt3dadd(138.257, 110.131, 32.981, 0.442)
pt3dadd(138.263, 110.237, 33.027, 0.452)
pt3dadd(138.272, 110.347, 33.066, 0.454)
pt3dadd(138.282, 110.457, 33.105, 0.456)
pt3dadd(138.292, 110.567, 33.144, 0.458)
pt3dadd(138.301, 110.677, 33.183, 0.462)
pt3dadd(138.311, 110.788, 33.222, 0.464)
pt3dadd(138.32, 110.898, 33.261, 0.466)
pt3dadd(138.33, 111.008, 33.3, 0.468)
pt3dadd(138.34, 111.118, 33.339, 0.47)
pt3dadd(138.349, 111.228, 33.378, 0.474)
pt3dadd(138.36, 111.338, 33.417, 0.476)
pt3dadd(138.373, 111.441, 33.467, 0.492)
pt3dadd(138.388, 111.543, 33.517, 0.508)
pt3dadd(138.402, 111.646, 33.568, 0.524)
pt3dadd(138.416, 111.748, 33.619, 0.542)
pt3dadd(138.431, 111.85, 33.67, 0.558)
pt3dadd(138.445, 111.953, 33.721, 0.574)
pt3dadd(138.46, 112.055, 33.772, 0.59)
pt3dadd(138.474, 112.157, 33.822, 0.608)
pt3dadd(138.488, 112.26, 33.873, 0.624)
pt3dadd(138.503, 112.362, 33.924, 0.64)
pt3dadd(138.542, 112.466, 33.962, 0.658)
pt3dadd(138.582, 112.569, 34, 0.674)
pt3dadd(138.623, 112.673, 34.037, 0.692)
pt3dadd(138.664, 112.776, 34.075, 0.708)
pt3dadd(138.704, 112.88, 34.112, 0.726)
pt3dadd(138.744, 112.984, 34.15, 0.744)
pt3dadd(138.785, 113.087, 34.187, 0.76)
pt3dadd(138.826, 113.191, 34.225, 0.778)
pt3dadd(138.865, 113.295, 34.262, 0.794)
pt3dadd(138.906, 113.398, 34.3, 0.81)
pt3dadd(138.949, 113.5, 34.34, 0.804)
pt3dadd(138.991, 113.601, 34.379, 0.8)
pt3dadd(139.034, 113.703, 34.419, 0.794)
pt3dadd(139.076, 113.804, 34.459, 0.788)
pt3dadd(139.12, 113.906, 34.499, 0.782)
pt3dadd(139.163, 114.007, 34.539, 0.776)
pt3dadd(139.205, 114.108, 34.578, 0.77)
pt3dadd(139.248, 114.21, 34.618, 0.766)
pt3dadd(139.291, 114.311, 34.658, 0.76)
pt3dadd(139.333, 114.413, 34.698, 0.752)
pt3dadd(139.37, 114.513, 34.744, 0.726)
pt3dadd(139.408, 114.612, 34.79, 0.7)
pt3dadd(139.444, 114.712, 34.836, 0.672)
pt3dadd(139.481, 114.812, 34.882, 0.646)
pt3dadd(139.518, 114.912, 34.929, 0.62)
pt3dadd(139.555, 115.012, 34.975, 0.594)
pt3dadd(139.592, 115.112, 35.021, 0.566)
pt3dadd(139.63, 115.212, 35.067, 0.54)
pt3dadd(139.666, 115.311, 35.113, 0.514)
pt3dadd(139.703, 115.412, 35.158, 0.492)
pt3dadd(139.741, 115.518, 35.191, 0.53)
pt3dadd(139.78, 115.625, 35.224, 0.568)
pt3dadd(139.818, 115.731, 35.258, 0.606)
pt3dadd(139.856, 115.838, 35.291, 0.644)
pt3dadd(139.895, 115.944, 35.324, 0.684)
pt3dadd(139.933, 116.051, 35.358, 0.722)
pt3dadd(139.972, 116.157, 35.391, 0.76)
pt3dadd(140.01, 116.263, 35.424, 0.798)
pt3dadd(140.048, 116.37, 35.457, 0.836)
pt3dadd(140.089, 116.476, 35.49, 0.874)
pt3dadd(140.154, 116.572, 35.517, 0.894)
pt3dadd(140.219, 116.668, 35.543, 0.916)
pt3dadd(140.282, 116.764, 35.57, 0.936)
pt3dadd(140.347, 116.86, 35.596, 0.956)
pt3dadd(140.412, 116.956, 35.623, 0.978)
pt3dadd(140.477, 117.052, 35.649, 0.998)
pt3dadd(140.54, 117.148, 35.676, 1.018)
pt3dadd(140.605, 117.244, 35.702, 1.04)
pt3dadd(140.67, 117.34, 35.729, 1.06)
pt3dadd(140.724, 117.434, 35.76, 0.926)
pt3dadd(140.749, 117.513, 35.804, 0.226)
pt3dadd(140.836, 117.592, 35.827, 0.226)
pt3dadd(140.921, 117.671, 35.85, 0.226)
pt3dadd(141.007, 117.75, 35.873, 0.226)
pt3dadd(141.094, 117.829, 35.896, 0.226)
pt3dadd(141.179, 117.909, 35.919, 0.226)
pt3dadd(141.262, 117.986, 35.93, 0.248)
pt3dadd(141.326, 118.049, 35.865, 0.41)
pt3dadd(141.392, 118.113, 35.8, 0.572)
pt3dadd(141.457, 118.177, 35.735, 0.732)
pt3dadd(141.486, 118.273, 35.731, 0.792)
pt3dadd(141.506, 118.384, 35.761, 0.792)
pt3dadd(141.562, 118.487, 35.784, 0.792)
pt3dadd(141.628, 118.582, 35.8, 0.792)
pt3dadd(141.721, 118.656, 35.8, 0.792)
pt3dadd(141.818, 118.726, 35.8, 0.792)
pt3dadd(141.931, 118.766, 35.8, 0.792)
pt3dadd(142.044, 118.805, 35.8, 0.792)
pt3dadd(142.118, 118.894, 35.811, 0.792)
pt3dadd(142.182, 118.994, 35.824, 0.792)
pt3dadd(142.247, 119.094, 35.837, 0.792)
pt3dadd(142.289, 119.161, 35.89, 0.792)
pt3dadd(142.307, 119.191, 35.985, 0.792)
pt3dadd(142.32, 119.238, 36.072, 0.792)
pt3dadd(142.343, 119.294, 36.15, 0.792)
pt3dadd(142.386, 119.319, 36.241, 0.792)
pt3dadd(142.428, 119.344, 36.333, 0.792)
pt3dadd(142.47, 119.37, 36.424, 0.792)
pt3dadd(142.512, 119.395, 36.515, 0.792)
pt3dadd(142.585, 119.4, 36.592, 0.792)
pt3dadd(142.666, 119.4, 36.667, 0.792)
pt3dadd(142.746, 119.4, 36.741, 0.792)
pt3dadd(142.826, 119.4, 36.815, 0.792)
pt3dadd(142.908, 119.4, 36.889, 0.792)
pt3dadd(143.015, 119.4, 36.931, 0.792)
pt3dadd(143.125, 119.4, 36.969, 0.792)
pt3dadd(143.237, 119.4, 37.006, 0.792)
pt3dadd(143.348, 119.4, 37.043, 0.792)
pt3dadd(143.46, 119.4, 37.08, 0.792)
pt3dadd(143.555, 119.4, 37.136, 0.792)
pt3dadd(143.629, 119.4, 37.214, 0.792)
pt3dadd(143.71, 119.398, 37.288, 0.792)
pt3dadd(143.801, 119.391, 37.353, 0.792)
pt3dadd(143.884, 119.366, 37.416, 0.792)
pt3dadd(143.945, 119.289, 37.473, 0.792)
pt3dadd(144.013, 119.21, 37.52, 0.792)
pt3dadd(144.089, 119.127, 37.558, 0.792)
pt3dadd(144.122, 119.03, 37.605, 0.792)
pt3dadd(144.163, 118.946, 37.661, 0.792)
pt3dadd(144.232, 118.883, 37.724, 0.792)
pt3dadd(144.301, 118.821, 37.787, 0.792)
pt3dadd(144.371, 118.758, 37.85, 0.792)
pt3dadd(144.449, 118.692, 37.897, 0.792)
pt3dadd(144.541, 118.62, 37.917, 0.792)
pt3dadd(144.635, 118.548, 37.937, 0.792)
pt3dadd(144.727, 118.477, 37.957, 0.792)
pt3dadd(144.821, 118.405, 37.977, 0.792)
pt3dadd(144.883, 118.312, 38.012, 0.792)
pt3dadd(144.942, 118.218, 38.049, 0.792)
pt3dadd(145.002, 118.123, 38.085, 0.792)
pt3dadd(145.062, 118.029, 38.122, 0.792)
pt3dadd(145.106, 117.926, 38.157, 0.792)
pt3dadd(145.145, 117.82, 38.191, 0.792)
pt3dadd(145.183, 117.714, 38.226, 0.792)
pt3dadd(145.22, 117.608, 38.26, 0.792)
pt3dadd(145.265, 117.504, 38.293, 0.792)
pt3dadd(145.334, 117.411, 38.315, 0.792)
pt3dadd(145.404, 117.317, 38.338, 0.792)
pt3dadd(145.474, 117.223, 38.361, 0.792)
pt3dadd(145.543, 117.129, 38.383, 0.792)
pt3dadd(145.573, 117.025, 38.42, 0.792)
pt3dadd(145.589, 116.917, 38.462, 0.792)
pt3dadd(145.606, 116.809, 38.504, 0.792)
pt3dadd(145.622, 116.701, 38.545, 0.792)
pt3dadd(145.639, 116.593, 38.587, 0.792)
pt3dadd(145.674, 116.48, 38.598, 0.792)
pt3dadd(145.71, 116.366, 38.608, 0.792)
pt3dadd(145.774, 116.279, 38.643, 0.792)
pt3dadd(145.85, 116.203, 38.687, 0.792)
pt3dadd(145.95, 116.139, 38.694, 0.792)
pt3dadd(146.052, 116.075, 38.699, 0.792)
pt3dadd(146.155, 116.014, 38.7, 0.792)
pt3dadd(146.258, 115.953, 38.7, 0.792)
pt3dadd(146.37, 115.911, 38.7, 0.792)
pt3dadd(146.485, 115.877, 38.7, 0.792)
pt3dadd(146.579, 115.801, 38.7, 0.792)
pt3dadd(146.671, 115.726, 38.7, 0.792)
pt3dadd(146.766, 115.651, 38.7, 0.792)
pt3dadd(146.86, 115.577, 38.7, 0.792)
pt3dadd(146.928, 115.5, 38.745, 0.792)
pt3dadd(146.988, 115.423, 38.802, 0.792)
pt3dadd(147.016, 115.33, 38.861, 0.792)
pt3dadd(147.049, 115.238, 38.919, 0.792)
pt3dadd(147.106, 115.149, 38.966, 0.792)
pt3dadd(147.113, 115.035, 38.995, 0.792)
pt3dadd(147.118, 114.92, 39.023, 0.792)
pt3dadd(147.164, 114.826, 39.062, 0.792)
pt3dadd(147.233, 114.742, 39.106, 0.792)
pt3dadd(147.32, 114.68, 39.15, 0.792)
pt3dadd(147.409, 114.618, 39.192, 0.792)
pt3dadd(147.498, 114.545, 39.223, 0.792)
pt3dadd(147.586, 114.479, 39.259, 0.792)
pt3dadd(147.676, 114.43, 39.312, 0.792)
pt3dadd(147.766, 114.381, 39.364, 0.792)
pt3dadd(147.828, 114.31, 39.406, 0.792)
pt3dadd(147.834, 114.192, 39.423, 0.792)
pt3dadd(147.839, 114.074, 39.441, 0.792)
pt3dadd(147.84, 113.989, 39.506, 0.792)
pt3dadd(147.84, 113.887, 39.558, 0.792)
pt3dadd(147.84, 113.784, 39.611, 0.792)
pt3dadd(147.84, 113.682, 39.663, 0.792)
pt3dadd(147.84, 113.58, 39.716, 0.792)
pt3dadd(147.84, 113.478, 39.768, 0.792)
pt3dadd(147.84, 113.389, 39.836, 0.792)
pt3dadd(147.84, 113.301, 39.903, 0.792)
}
}
proc shape3d_147() {
dend_7[41] { pt3dadd(147.84, 113.212, 39.97, 0.792)
pt3dadd(147.84, 113.123, 40.037, 0.792)
pt3dadd(147.84, 113.038, 40.106, 0.792)
pt3dadd(147.84, 113.005, 40.203, 0.792)
pt3dadd(147.84, 112.971, 40.299, 0.792)
pt3dadd(147.84, 112.934, 40.394, 0.792)
pt3dadd(147.84, 112.895, 40.488, 0.792)
pt3dadd(147.841, 112.835, 40.565, 0.792)
pt3dadd(147.847, 112.722, 40.6, 0.792)
pt3dadd(147.854, 112.61, 40.634, 0.792)
pt3dadd(147.906, 112.515, 40.677, 0.792)
pt3dadd(147.956, 112.428, 40.728, 0.792)
pt3dadd(148, 112.371, 40.808, 0.792)
pt3dadd(148.044, 112.314, 40.889, 0.792)
pt3dadd(148.081, 112.253, 40.967, 0.792)
pt3dadd(148.087, 112.168, 41.038, 0.792)
pt3dadd(148.098, 112.091, 41.111, 0.792)
pt3dadd(148.15, 112.069, 41.198, 0.792)
pt3dadd(148.223, 112.041, 41.274, 0.792)
pt3dadd(148.296, 112.014, 41.35, 0.792)
pt3dadd(148.368, 111.987, 41.426, 0.792)
pt3dadd(148.442, 111.959, 41.501, 0.792)
pt3dadd(148.546, 111.933, 41.548, 0.792)
pt3dadd(148.648, 111.907, 41.594, 0.792)
pt3dadd(148.751, 111.88, 41.64, 0.792)
pt3dadd(148.854, 111.854, 41.687, 0.792)
pt3dadd(148.961, 111.837, 41.728, 0.792)
pt3dadd(149.074, 111.831, 41.762, 0.792)
pt3dadd(149.176, 111.814, 41.805, 0.792)
pt3dadd(149.244, 111.761, 41.874, 0.792)
pt3dadd(149.28, 111.724, 41.958, 0.792)
pt3dadd(149.28, 111.703, 42.056, 0.792)
pt3dadd(149.28, 111.683, 42.155, 0.792)
pt3dadd(149.28, 111.651, 42.251, 0.792)
pt3dadd(149.28, 111.618, 42.347, 0.792)
pt3dadd(149.28, 111.6, 42.445, 0.792)
pt3dadd(149.28, 111.6, 42.545, 0.792)
pt3dadd(149.294, 111.6, 42.643, 0.792)
pt3dadd(149.328, 111.6, 42.739, 0.792)
pt3dadd(149.36, 111.6, 42.836, 0.792)
pt3dadd(149.376, 111.6, 42.935, 0.792)
pt3dadd(149.39, 111.6, 43.034, 0.792)
pt3dadd(149.4, 111.582, 43.13, 0.792)
pt3dadd(149.4, 111.528, 43.219, 0.792)
pt3dadd(149.402, 111.47, 43.305, 0.792)
pt3dadd(149.422, 111.369, 43.356, 0.792)
pt3dadd(149.452, 111.276, 43.407, 0.792)
pt3dadd(149.548, 111.252, 43.463, 0.792)
pt3dadd(149.645, 111.227, 43.519, 0.792)
pt3dadd(149.741, 111.202, 43.574, 0.792)
pt3dadd(149.752, 111.168, 43.668, 0.792)
pt3dadd(149.758, 111.133, 43.763, 0.792)
pt3dadd(149.76, 111.12, 43.861, 0.792)
pt3dadd(149.76, 111.108, 43.961, 0.792)
pt3dadd(149.76, 111.088, 44.059, 0.792)
pt3dadd(149.76, 111.068, 44.158, 0.792)
pt3dadd(149.76, 111.049, 44.257, 0.792)
pt3dadd(149.76, 111.029, 44.355, 0.792)
pt3dadd(149.76, 111.009, 44.454, 0.792)
pt3dadd(149.76, 110.96, 44.542, 0.792)
pt3dadd(149.76, 110.885, 44.62, 0.792)
pt3dadd(149.76, 110.81, 44.698, 0.792)
pt3dadd(149.76, 110.735, 44.776, 0.792)
pt3dadd(149.76, 110.66, 44.854, 0.792)
pt3dadd(149.76, 110.57, 44.917, 0.792)
pt3dadd(149.76, 110.466, 44.968, 0.792)
pt3dadd(149.762, 110.374, 45.029, 0.792)
pt3dadd(149.768, 110.304, 45.11, 0.792)
pt3dadd(149.786, 110.222, 45.171, 0.792)
pt3dadd(149.832, 110.112, 45.188, 0.792)
pt3dadd(149.869, 110.001, 45.2, 0.792)
pt3dadd(149.879, 109.881, 45.2, 0.792)
pt3dadd(149.888, 109.761, 45.2, 0.792)
pt3dadd(149.916, 109.647, 45.2, 0.792)
pt3dadd(149.97, 109.54, 45.2, 0.792)
pt3dadd(150.018, 109.43, 45.2, 0.792)
pt3dadd(150.066, 109.32, 45.2, 0.792)
pt3dadd(150.114, 109.209, 45.2, 0.792)
pt3dadd(150.161, 109.099, 45.2, 0.792)
pt3dadd(150.209, 108.989, 45.2, 0.792)
pt3dadd(150.247, 108.876, 45.208, 0.792)
pt3dadd(150.281, 108.762, 45.221, 0.792)
pt3dadd(150.314, 108.648, 45.234, 0.792)
pt3dadd(150.348, 108.534, 45.247, 0.792)
pt3dadd(150.382, 108.42, 45.26, 0.792)
pt3dadd(150.434, 108.317, 45.278, 0.792)
pt3dadd(150.508, 108.225, 45.3, 0.792)
pt3dadd(150.581, 108.134, 45.323, 0.792)
pt3dadd(150.654, 108.043, 45.346, 0.792)
pt3dadd(150.726, 107.952, 45.367, 0.792)
pt3dadd(150.796, 107.854, 45.374, 0.792)
pt3dadd(150.865, 107.757, 45.381, 0.792)
pt3dadd(150.935, 107.659, 45.388, 0.792)
pt3dadd(151.004, 107.562, 45.395, 0.792)
pt3dadd(151.072, 107.463, 45.4, 0.792)
pt3dadd(151.133, 107.359, 45.4, 0.792)
pt3dadd(151.189, 107.254, 45.401, 0.792)
pt3dadd(151.211, 107.136, 45.405, 0.792)
pt3dadd(151.231, 107.018, 45.409, 0.792)
pt3dadd(151.295, 106.941, 45.442, 0.792)
pt3dadd(151.385, 106.889, 45.492, 0.792)
pt3dadd(151.444, 106.805, 45.542, 0.792)
pt3dadd(151.499, 106.718, 45.589, 0.792)
pt3dadd(151.613, 106.683, 45.597, 0.792)
pt3dadd(151.711, 106.621, 45.6, 0.792)
pt3dadd(151.794, 106.535, 45.6, 0.792)
pt3dadd(151.878, 106.449, 45.6, 0.792)
pt3dadd(151.961, 106.362, 45.6, 0.792)
pt3dadd(152.045, 106.276, 45.6, 0.792)
pt3dadd(152.14, 106.204, 45.6, 0.792)
pt3dadd(152.243, 106.144, 45.6, 0.792)
pt3dadd(152.324, 106.065, 45.609, 0.792)
pt3dadd(152.371, 105.958, 45.631, 0.792)
pt3dadd(152.416, 105.883, 45.681, 0.792)
pt3dadd(152.455, 105.857, 45.773, 0.792)
pt3dadd(152.501, 105.826, 45.86, 0.792)
pt3dadd(152.562, 105.785, 45.939, 0.792)
pt3dadd(152.644, 105.749, 45.992, 0.792)
pt3dadd(152.76, 105.72, 46, 0.792)
}
dend_7[42] {pt3dclear()
pt3dadd(126.906, 99.896, 22.624, 1.356)
pt3dadd(127.016, 99.903, 22.622, 1.268)
pt3dadd(127.135, 99.91, 22.619, 1.172)
pt3dadd(127.255, 99.917, 22.616, 1.074)
pt3dadd(127.375, 99.925, 22.614, 0.978)
pt3dadd(127.495, 99.932, 22.611, 0.882)
pt3dadd(127.614, 99.939, 22.608, 0.786)
pt3dadd(127.734, 99.946, 22.606, 0.69)
pt3dadd(127.852, 99.936, 22.604, 0.622)
pt3dadd(127.967, 99.902, 22.603, 0.598)
pt3dadd(128.082, 99.867, 22.602, 0.574)
pt3dadd(128.197, 99.832, 22.601, 0.548)
pt3dadd(128.311, 99.798, 22.6, 0.524)
pt3dadd(128.426, 99.763, 22.599, 0.5)
pt3dadd(128.542, 99.729, 22.598, 0.476)
pt3dadd(128.657, 99.694, 22.597, 0.45)
pt3dadd(128.771, 99.66, 22.596, 0.426)
pt3dadd(128.886, 99.625, 22.594, 0.402)
pt3dadd(128.992, 99.568, 22.595, 0.42)
pt3dadd(129.095, 99.507, 22.595, 0.446)
pt3dadd(129.198, 99.445, 22.595, 0.472)
pt3dadd(129.301, 99.384, 22.595, 0.496)
pt3dadd(129.404, 99.323, 22.595, 0.522)
pt3dadd(129.508, 99.262, 22.596, 0.548)
pt3dadd(129.611, 99.201, 22.596, 0.574)
pt3dadd(129.714, 99.14, 22.596, 0.6)
pt3dadd(129.817, 99.079, 22.596, 0.624)
pt3dadd(129.92, 99.018, 22.596, 0.65)
pt3dadd(130.034, 98.979, 22.597, 0.618)
pt3dadd(130.148, 98.942, 22.597, 0.576)
pt3dadd(130.262, 98.905, 22.597, 0.534)
pt3dadd(130.376, 98.869, 22.597, 0.492)
pt3dadd(130.49, 98.832, 22.598, 0.452)
pt3dadd(130.606, 98.796, 22.598, 0.41)
pt3dadd(130.72, 98.759, 22.598, 0.368)
pt3dadd(130.834, 98.722, 22.599, 0.326)
pt3dadd(130.948, 98.686, 22.599, 0.284)
pt3dadd(131.063, 98.649, 22.599, 0.244)
pt3dadd(131.179, 98.624, 22.6, 0.238)
pt3dadd(131.297, 98.599, 22.601, 0.236)
pt3dadd(131.414, 98.575, 22.601, 0.234)
pt3dadd(131.532, 98.551, 22.602, 0.234)
pt3dadd(131.65, 98.527, 22.602, 0.232)
pt3dadd(131.767, 98.503, 22.603, 0.232)
pt3dadd(131.885, 98.479, 22.604, 0.23)
pt3dadd(132.002, 98.455, 22.604, 0.228)
pt3dadd(132.12, 98.431, 22.605, 0.228)
pt3dadd(132.238, 98.407, 22.606, 0.226)
pt3dadd(132.355, 98.386, 22.607, 0.226)
pt3dadd(132.474, 98.366, 22.608, 0.226)
pt3dadd(132.593, 98.346, 22.609, 0.226)
pt3dadd(132.71, 98.326, 22.611, 0.226)
pt3dadd(132.829, 98.306, 22.612, 0.226)
pt3dadd(132.947, 98.286, 22.613, 0.226)
pt3dadd(133.066, 98.266, 22.614, 0.226)
pt3dadd(133.184, 98.246, 22.615, 0.226)
pt3dadd(133.302, 98.226, 22.617, 0.226)
pt3dadd(133.421, 98.205, 22.618, 0.226)
pt3dadd(133.534, 98.167, 22.62, 0.246)
pt3dadd(133.646, 98.125, 22.622, 0.268)
pt3dadd(133.759, 98.084, 22.624, 0.29)
pt3dadd(133.872, 98.043, 22.627, 0.312)
pt3dadd(133.985, 98.002, 22.629, 0.334)
pt3dadd(134.096, 97.96, 22.631, 0.356)
pt3dadd(134.209, 97.919, 22.633, 0.378)
pt3dadd(134.322, 97.878, 22.635, 0.4)
pt3dadd(134.435, 97.836, 22.638, 0.422)
pt3dadd(134.548, 97.795, 22.64, 0.444)
pt3dadd(134.656, 97.743, 22.644, 0.462)
pt3dadd(134.762, 97.69, 22.648, 0.478)
pt3dadd(134.87, 97.637, 22.652, 0.496)
pt3dadd(134.978, 97.584, 22.656, 0.512)
pt3dadd(135.086, 97.532, 22.66, 0.53)
pt3dadd(135.193, 97.479, 22.664, 0.546)
pt3dadd(135.301, 97.426, 22.668, 0.562)
pt3dadd(135.409, 97.374, 22.672, 0.58)
pt3dadd(135.517, 97.321, 22.676, 0.596)
pt3dadd(135.624, 97.268, 22.68, 0.614)
pt3dadd(135.732, 97.216, 22.688, 0.6)
pt3dadd(135.84, 97.164, 22.695, 0.586)
pt3dadd(135.948, 97.112, 22.703, 0.572)
}
}
proc shape3d_148() {
dend_7[42] { pt3dadd(136.056, 97.06, 22.71, 0.56)
pt3dadd(136.164, 97.008, 22.718, 0.546)
pt3dadd(136.271, 96.956, 22.725, 0.532)
pt3dadd(136.379, 96.904, 22.733, 0.518)
pt3dadd(136.487, 96.852, 22.74, 0.504)
pt3dadd(136.595, 96.8, 22.748, 0.49)
pt3dadd(136.702, 96.748, 22.755, 0.478)
pt3dadd(136.799, 96.678, 22.766, 0.496)
pt3dadd(136.896, 96.609, 22.776, 0.514)
pt3dadd(136.993, 96.539, 22.787, 0.532)
pt3dadd(137.09, 96.47, 22.798, 0.548)
pt3dadd(137.186, 96.4, 22.808, 0.566)
pt3dadd(137.284, 96.33, 22.819, 0.584)
pt3dadd(137.381, 96.261, 22.83, 0.602)
pt3dadd(137.478, 96.191, 22.84, 0.62)
pt3dadd(137.574, 96.122, 22.851, 0.638)
pt3dadd(137.671, 96.052, 22.862, 0.656)
pt3dadd(137.756, 95.985, 22.904, 0.676)
pt3dadd(137.843, 95.917, 22.946, 0.698)
pt3dadd(137.928, 95.85, 22.988, 0.72)
pt3dadd(138.013, 95.782, 23.03, 0.742)
pt3dadd(138.098, 95.715, 23.071, 0.764)
pt3dadd(138.185, 95.647, 23.113, 0.786)
pt3dadd(138.27, 95.579, 23.155, 0.808)
pt3dadd(138.355, 95.512, 23.197, 0.83)
pt3dadd(138.442, 95.444, 23.239, 0.852)
pt3dadd(138.527, 95.375, 23.279, 0.866)
pt3dadd(138.611, 95.296, 23.305, 0.824)
pt3dadd(138.695, 95.216, 23.332, 0.782)
pt3dadd(138.778, 95.136, 23.358, 0.738)
pt3dadd(138.862, 95.056, 23.384, 0.696)
pt3dadd(138.946, 94.976, 23.411, 0.654)
pt3dadd(139.03, 94.896, 23.437, 0.612)
pt3dadd(139.114, 94.817, 23.464, 0.568)
pt3dadd(139.198, 94.737, 23.49, 0.526)
pt3dadd(139.28, 94.657, 23.516, 0.484)
pt3dadd(139.364, 94.577, 23.541, 0.444)
pt3dadd(139.45, 94.494, 23.556, 0.422)
pt3dadd(139.536, 94.412, 23.57, 0.4)
pt3dadd(139.621, 94.329, 23.585, 0.378)
pt3dadd(139.706, 94.246, 23.6, 0.356)
pt3dadd(139.792, 94.164, 23.615, 0.334)
pt3dadd(139.877, 94.081, 23.629, 0.31)
pt3dadd(139.962, 93.999, 23.644, 0.288)
pt3dadd(140.047, 93.916, 23.659, 0.266)
pt3dadd(140.132, 93.833, 23.674, 0.244)
pt3dadd(140.218, 93.751, 23.687, 0.226)
pt3dadd(140.304, 93.668, 23.695, 0.228)
pt3dadd(140.39, 93.585, 23.702, 0.23)
pt3dadd(140.477, 93.502, 23.71, 0.232)
pt3dadd(140.563, 93.419, 23.718, 0.234)
pt3dadd(140.65, 93.336, 23.726, 0.236)
pt3dadd(140.736, 93.254, 23.734, 0.238)
pt3dadd(140.821, 93.171, 23.741, 0.24)
pt3dadd(140.908, 93.088, 23.749, 0.242)
pt3dadd(140.994, 93.005, 23.757, 0.244)
pt3dadd(141.082, 92.923, 23.763, 0.248)
pt3dadd(141.169, 92.841, 23.763, 0.262)
pt3dadd(141.258, 92.76, 23.763, 0.276)
pt3dadd(141.346, 92.679, 23.763, 0.29)
pt3dadd(141.434, 92.598, 23.763, 0.304)
pt3dadd(141.523, 92.516, 23.763, 0.32)
pt3dadd(141.611, 92.435, 23.763, 0.334)
pt3dadd(141.7, 92.354, 23.763, 0.348)
pt3dadd(141.787, 92.273, 23.763, 0.362)
pt3dadd(141.876, 92.191, 23.763, 0.376)
pt3dadd(141.965, 92.111, 23.763, 0.394)
pt3dadd(142.054, 92.031, 23.763, 0.424)
pt3dadd(142.144, 91.951, 23.763, 0.454)
pt3dadd(142.234, 91.871, 23.763, 0.484)
pt3dadd(142.324, 91.791, 23.763, 0.514)
pt3dadd(142.412, 91.712, 23.763, 0.544)
pt3dadd(142.502, 91.632, 23.763, 0.576)
pt3dadd(142.592, 91.552, 23.763, 0.606)
pt3dadd(142.681, 91.472, 23.763, 0.636)
pt3dadd(142.771, 91.392, 23.763, 0.666)
pt3dadd(142.861, 91.313, 23.763, 0.7)
pt3dadd(142.951, 91.234, 23.763, 0.744)
pt3dadd(143.042, 91.156, 23.763, 0.786)
pt3dadd(143.134, 91.077, 23.763, 0.83)
pt3dadd(143.224, 90.999, 23.763, 0.874)
pt3dadd(143.315, 90.92, 23.763, 0.918)
pt3dadd(143.406, 90.842, 23.763, 0.962)
pt3dadd(143.496, 90.763, 23.763, 1.006)
pt3dadd(143.587, 90.685, 23.763, 1.05)
pt3dadd(143.678, 90.606, 23.763, 1.094)
pt3dadd(143.771, 90.531, 23.763, 1.116)
pt3dadd(143.875, 90.473, 23.763, 1.05)
pt3dadd(143.981, 90.414, 23.763, 0.982)
pt3dadd(144.085, 90.355, 23.763, 0.916)
pt3dadd(144.19, 90.296, 23.763, 0.848)
pt3dadd(144.294, 90.238, 23.763, 0.78)
pt3dadd(144.398, 90.179, 23.763, 0.714)
pt3dadd(144.504, 90.12, 23.763, 0.646)
pt3dadd(144.608, 90.061, 23.763, 0.58)
pt3dadd(144.713, 90.003, 23.763, 0.512)
pt3dadd(144.817, 89.943, 23.763, 0.452)
pt3dadd(144.919, 89.879, 23.763, 0.43)
pt3dadd(145.02, 89.816, 23.763, 0.406)
pt3dadd(145.122, 89.752, 23.763, 0.384)
pt3dadd(145.224, 89.688, 23.763, 0.36)
pt3dadd(145.326, 89.625, 23.763, 0.338)
pt3dadd(145.427, 89.561, 23.763, 0.314)
pt3dadd(145.529, 89.497, 23.763, 0.29)
pt3dadd(145.631, 89.433, 23.763, 0.268)
pt3dadd(145.733, 89.37, 23.763, 0.244)
pt3dadd(145.834, 89.305, 23.763, 0.228)
pt3dadd(145.933, 89.238, 23.763, 0.24)
pt3dadd(146.033, 89.171, 23.763, 0.252)
pt3dadd(146.131, 89.103, 23.763, 0.264)
pt3dadd(146.231, 89.036, 23.763, 0.276)
pt3dadd(146.33, 88.969, 23.763, 0.288)
pt3dadd(146.43, 88.902, 23.763, 0.3)
pt3dadd(146.528, 88.834, 23.763, 0.312)
pt3dadd(146.628, 88.767, 23.763, 0.324)
pt3dadd(146.728, 88.7, 23.763, 0.336)
pt3dadd(146.826, 88.632, 23.763, 0.354)
pt3dadd(146.923, 88.561, 23.763, 0.4)
pt3dadd(147.02, 88.49, 23.763, 0.448)
pt3dadd(147.118, 88.42, 23.763, 0.494)
pt3dadd(147.215, 88.349, 23.763, 0.542)
pt3dadd(147.312, 88.278, 23.763, 0.588)
pt3dadd(147.408, 88.208, 23.763, 0.636)
pt3dadd(147.505, 88.137, 23.763, 0.682)
pt3dadd(147.602, 88.066, 23.763, 0.73)
pt3dadd(147.7, 87.996, 23.763, 0.776)
pt3dadd(147.798, 87.928, 23.763, 0.81)
pt3dadd(147.904, 87.871, 23.763, 0.792)
pt3dadd(148.009, 87.814, 23.763, 0.772)
pt3dadd(148.115, 87.757, 23.763, 0.754)
pt3dadd(148.22, 87.701, 23.763, 0.734)
pt3dadd(148.327, 87.644, 23.763, 0.716)
pt3dadd(148.433, 87.587, 23.763, 0.696)
pt3dadd(148.538, 87.53, 23.763, 0.678)
pt3dadd(148.644, 87.473, 23.763, 0.658)
pt3dadd(148.75, 87.417, 23.763, 0.64)
pt3dadd(148.855, 87.36, 23.763, 0.622)
pt3dadd(148.961, 87.304, 23.763, 0.604)
pt3dadd(149.068, 87.248, 23.763, 0.586)
pt3dadd(149.173, 87.192, 23.763, 0.57)
pt3dadd(149.28, 87.136, 23.763, 0.552)
pt3dadd(149.386, 87.08, 23.763, 0.534)
pt3dadd(149.492, 87.024, 23.763, 0.518)
pt3dadd(149.598, 86.968, 23.763, 0.5)
pt3dadd(149.705, 86.912, 23.764, 0.482)
pt3dadd(149.81, 86.856, 23.764, 0.466)
pt3dadd(149.917, 86.8, 23.764, 0.452)
pt3dadd(150.023, 86.745, 23.764, 0.448)
pt3dadd(150.13, 86.689, 23.764, 0.446)
pt3dadd(150.236, 86.634, 23.764, 0.442)
pt3dadd(150.342, 86.578, 23.764, 0.44)
pt3dadd(150.449, 86.522, 23.764, 0.436)
pt3dadd(150.554, 86.467, 23.764, 0.434)
pt3dadd(150.661, 86.411, 23.764, 0.43)
pt3dadd(150.768, 86.355, 23.764, 0.428)
pt3dadd(150.874, 86.3, 23.764, 0.424)
pt3dadd(150.982, 86.248, 23.764, 0.418)
pt3dadd(151.094, 86.208, 23.764, 0.4)
pt3dadd(151.208, 86.168, 23.764, 0.382)
pt3dadd(151.321, 86.128, 23.764, 0.364)
pt3dadd(151.434, 86.088, 23.764, 0.346)
pt3dadd(151.548, 86.048, 23.764, 0.328)
pt3dadd(151.661, 86.008, 23.764, 0.31)
pt3dadd(151.774, 85.968, 23.764, 0.29)
pt3dadd(151.886, 85.927, 23.764, 0.272)
pt3dadd(152, 85.887, 23.764, 0.254)
pt3dadd(152.113, 85.848, 23.764, 0.244)
pt3dadd(152.227, 85.812, 23.765, 0.26)
pt3dadd(152.342, 85.775, 23.765, 0.276)
pt3dadd(152.456, 85.739, 23.765, 0.29)
pt3dadd(152.57, 85.702, 23.765, 0.306)
pt3dadd(152.684, 85.666, 23.765, 0.322)
pt3dadd(152.8, 85.629, 23.765, 0.338)
pt3dadd(152.914, 85.593, 23.765, 0.352)
pt3dadd(153.028, 85.557, 23.765, 0.368)
pt3dadd(153.143, 85.52, 23.766, 0.384)
pt3dadd(153.256, 85.48, 23.766, 0.396)
pt3dadd(153.364, 85.428, 23.766, 0.402)
pt3dadd(153.472, 85.377, 23.766, 0.408)
pt3dadd(153.58, 85.325, 23.766, 0.414)
pt3dadd(153.689, 85.274, 23.767, 0.42)
pt3dadd(153.797, 85.222, 23.767, 0.426)
pt3dadd(153.905, 85.17, 23.767, 0.43)
pt3dadd(154.014, 85.119, 23.767, 0.436)
pt3dadd(154.122, 85.067, 23.768, 0.442)
pt3dadd(154.23, 85.016, 23.768, 0.448)
pt3dadd(154.337, 84.961, 23.768, 0.45)
pt3dadd(154.439, 84.898, 23.768, 0.444)
pt3dadd(154.541, 84.835, 23.769, 0.44)
pt3dadd(154.644, 84.772, 23.769, 0.434)
pt3dadd(154.746, 84.709, 23.77, 0.428)
pt3dadd(154.848, 84.646, 23.77, 0.422)
pt3dadd(154.95, 84.584, 23.77, 0.418)
pt3dadd(155.052, 84.521, 23.771, 0.412)
pt3dadd(155.154, 84.458, 23.771, 0.406)
pt3dadd(155.257, 84.395, 23.771, 0.4)
pt3dadd(155.357, 84.33, 23.772, 0.392)
pt3dadd(155.454, 84.258, 23.772, 0.376)
pt3dadd(155.55, 84.187, 23.773, 0.36)
pt3dadd(155.647, 84.116, 23.773, 0.346)
}
}
proc shape3d_149() {
dend_7[42] { pt3dadd(155.743, 84.045, 23.774, 0.33)
pt3dadd(155.84, 83.974, 23.774, 0.314)
pt3dadd(155.936, 83.903, 23.775, 0.298)
pt3dadd(156.034, 83.831, 23.775, 0.282)
pt3dadd(156.13, 83.76, 23.776, 0.268)
pt3dadd(156.227, 83.689, 23.776, 0.252)
pt3dadd(156.326, 83.622, 23.777, 0.254)
pt3dadd(156.432, 83.566, 23.778, 0.3)
pt3dadd(156.538, 83.51, 23.779, 0.344)
pt3dadd(156.644, 83.453, 23.781, 0.39)
pt3dadd(156.75, 83.397, 23.782, 0.436)
pt3dadd(156.856, 83.341, 23.783, 0.48)
pt3dadd(156.962, 83.284, 23.784, 0.526)
pt3dadd(157.068, 83.228, 23.786, 0.57)
pt3dadd(157.174, 83.172, 23.787, 0.616)
pt3dadd(157.279, 83.116, 23.788, 0.662)
pt3dadd(157.385, 83.058, 23.79, 0.702)
pt3dadd(157.49, 83, 23.792, 0.732)
pt3dadd(157.595, 82.941, 23.793, 0.764)
pt3dadd(157.699, 82.882, 23.795, 0.794)
pt3dadd(157.804, 82.823, 23.798, 0.826)
pt3dadd(157.908, 82.764, 23.799, 0.856)
pt3dadd(158.012, 82.705, 23.802, 0.888)
pt3dadd(158.117, 82.646, 23.804, 0.918)
pt3dadd(158.221, 82.587, 23.806, 0.95)
pt3dadd(158.326, 82.529, 23.807, 0.98)
pt3dadd(158.431, 82.47, 23.81, 1)
pt3dadd(158.536, 82.412, 23.813, 0.998)
pt3dadd(158.64, 82.354, 23.817, 0.994)
pt3dadd(158.746, 82.296, 23.82, 0.99)
pt3dadd(158.85, 82.237, 23.824, 0.988)
pt3dadd(158.956, 82.179, 23.827, 0.984)
pt3dadd(159.06, 82.121, 23.831, 0.98)
pt3dadd(159.166, 82.063, 23.834, 0.978)
pt3dadd(159.27, 82.005, 23.838, 0.974)
pt3dadd(159.374, 81.947, 23.841, 0.972)
pt3dadd(159.482, 81.893, 23.846, 0.944)
pt3dadd(159.593, 81.849, 23.852, 0.872)
pt3dadd(159.704, 81.804, 23.859, 0.802)
pt3dadd(159.815, 81.759, 23.865, 0.73)
pt3dadd(159.926, 81.714, 23.872, 0.658)
pt3dadd(160.037, 81.67, 23.879, 0.586)
pt3dadd(160.148, 81.625, 23.885, 0.514)
pt3dadd(160.259, 81.58, 23.892, 0.444)
pt3dadd(160.37, 81.536, 23.899, 0.372)
pt3dadd(160.482, 81.491, 23.905, 0.3)
pt3dadd(160.59, 81.441, 23.913, 0.274)
pt3dadd(160.692, 81.379, 23.923, 0.334)
pt3dadd(160.795, 81.318, 23.933, 0.394)
pt3dadd(160.897, 81.257, 23.943, 0.456)
pt3dadd(160.999, 81.196, 23.954, 0.516)
pt3dadd(161.102, 81.134, 23.963, 0.578)
pt3dadd(161.204, 81.073, 23.974, 0.638)
pt3dadd(161.308, 81.012, 23.984, 0.7)
pt3dadd(161.41, 80.951, 23.994, 0.76)
pt3dadd(161.512, 80.889, 24.004, 0.82)
pt3dadd(161.615, 80.832, 24.019, 0.87)
pt3dadd(161.719, 80.78, 24.045, 0.898)
pt3dadd(161.824, 80.729, 24.07, 0.924)
pt3dadd(161.928, 80.678, 24.095, 0.952)
pt3dadd(162.032, 80.627, 24.121, 0.98)
pt3dadd(162.136, 80.576, 24.146, 1.006)
pt3dadd(162.24, 80.525, 24.171, 1.034)
pt3dadd(162.344, 80.474, 24.197, 1.06)
pt3dadd(162.449, 80.423, 24.222, 1.088)
pt3dadd(162.553, 80.372, 24.248, 1.116)
pt3dadd(162.656, 80.322, 24.276, 1.124)
pt3dadd(162.76, 80.274, 24.308, 1.112)
pt3dadd(162.863, 80.226, 24.341, 1.1)
pt3dadd(162.966, 80.179, 24.373, 1.088)
pt3dadd(163.069, 80.131, 24.405, 1.076)
pt3dadd(163.172, 80.083, 24.437, 1.064)
pt3dadd(163.276, 80.036, 24.469, 1.052)
pt3dadd(163.379, 79.988, 24.502, 1.04)
pt3dadd(163.482, 79.94, 24.534, 1.028)
pt3dadd(163.584, 79.892, 24.566, 1.016)
pt3dadd(163.686, 79.838, 24.593, 0.986)
pt3dadd(163.784, 79.775, 24.615, 0.938)
pt3dadd(163.884, 79.713, 24.637, 0.888)
pt3dadd(163.984, 79.651, 24.659, 0.84)
pt3dadd(164.083, 79.589, 24.681, 0.792)
pt3dadd(164.182, 79.527, 24.702, 0.742)
pt3dadd(164.281, 79.465, 24.724, 0.694)
pt3dadd(164.381, 79.403, 24.746, 0.646)
pt3dadd(164.479, 79.34, 24.768, 0.598)
pt3dadd(164.579, 79.278, 24.79, 0.548)
pt3dadd(164.682, 79.221, 24.808, 0.528)
pt3dadd(164.789, 79.169, 24.823, 0.536)
pt3dadd(164.896, 79.118, 24.837, 0.544)
pt3dadd(165.002, 79.066, 24.851, 0.552)
pt3dadd(165.109, 79.014, 24.865, 0.56)
pt3dadd(165.216, 78.962, 24.88, 0.568)
pt3dadd(165.323, 78.91, 24.894, 0.576)
pt3dadd(165.43, 78.858, 24.908, 0.584)
pt3dadd(165.536, 78.806, 24.923, 0.592)
pt3dadd(165.643, 78.755, 24.937, 0.6)
pt3dadd(165.748, 78.698, 24.949, 0.604)
pt3dadd(165.851, 78.636, 24.958, 0.6)
pt3dadd(165.953, 78.574, 24.967, 0.598)
pt3dadd(166.055, 78.513, 24.976, 0.596)
pt3dadd(166.158, 78.451, 24.985, 0.592)
pt3dadd(166.26, 78.389, 24.994, 0.59)
pt3dadd(166.362, 78.328, 25.003, 0.588)
pt3dadd(166.465, 78.266, 25.012, 0.584)
pt3dadd(166.567, 78.204, 25.021, 0.582)
pt3dadd(166.669, 78.143, 25.03, 0.58)
pt3dadd(166.769, 78.076, 25.038, 0.576)
pt3dadd(166.865, 78.005, 25.045, 0.572)
pt3dadd(166.961, 77.934, 25.052, 0.568)
pt3dadd(167.058, 77.863, 25.059, 0.564)
pt3dadd(167.154, 77.792, 25.066, 0.56)
pt3dadd(167.25, 77.721, 25.074, 0.556)
pt3dadd(167.347, 77.65, 25.081, 0.552)
pt3dadd(167.443, 77.579, 25.088, 0.548)
pt3dadd(167.539, 77.508, 25.095, 0.544)
pt3dadd(167.636, 77.437, 25.102, 0.54)
pt3dadd(167.73, 77.364, 25.111, 0.556)
pt3dadd(167.822, 77.288, 25.122, 0.59)
pt3dadd(167.915, 77.212, 25.132, 0.624)
pt3dadd(168.007, 77.136, 25.142, 0.656)
pt3dadd(168.1, 77.061, 25.152, 0.69)
pt3dadd(168.192, 76.985, 25.162, 0.724)
pt3dadd(168.283, 76.909, 25.173, 0.758)
pt3dadd(168.376, 76.834, 25.183, 0.792)
pt3dadd(168.468, 76.758, 25.193, 0.826)
pt3dadd(168.56, 76.682, 25.203, 0.858)
pt3dadd(168.648, 76.61, 25.232, 0.864)
pt3dadd(168.732, 76.542, 25.275, 0.846)
pt3dadd(168.816, 76.473, 25.318, 0.83)
pt3dadd(168.9, 76.405, 25.361, 0.812)
pt3dadd(168.984, 76.337, 25.404, 0.796)
pt3dadd(169.068, 76.268, 25.447, 0.778)
pt3dadd(169.152, 76.2, 25.49, 0.76)
pt3dadd(169.236, 76.131, 25.534, 0.744)
pt3dadd(169.319, 76.063, 25.577, 0.726)
pt3dadd(169.403, 75.994, 25.62, 0.71)
pt3dadd(169.493, 75.926, 25.654, 0.69)
pt3dadd(169.585, 75.858, 25.682, 0.67)
pt3dadd(169.679, 75.791, 25.71, 0.65)
pt3dadd(169.771, 75.723, 25.739, 0.628)
pt3dadd(169.865, 75.655, 25.767, 0.608)
pt3dadd(169.957, 75.587, 25.795, 0.588)
pt3dadd(170.051, 75.519, 25.823, 0.568)
pt3dadd(170.143, 75.451, 25.852, 0.548)
pt3dadd(170.237, 75.384, 25.88, 0.526)
pt3dadd(170.329, 75.316, 25.908, 0.506)
pt3dadd(170.432, 75.261, 25.929, 0.516)
pt3dadd(170.542, 75.214, 25.944, 0.542)
pt3dadd(170.65, 75.167, 25.96, 0.57)
pt3dadd(170.759, 75.12, 25.976, 0.596)
pt3dadd(170.868, 75.072, 25.992, 0.622)
pt3dadd(170.976, 75.025, 26.007, 0.65)
pt3dadd(171.085, 74.978, 26.023, 0.676)
pt3dadd(171.193, 74.931, 26.039, 0.702)
pt3dadd(171.302, 74.883, 26.054, 0.728)
pt3dadd(171.41, 74.836, 26.07, 0.756)
pt3dadd(171.524, 74.8, 26.078, 0.772)
pt3dadd(171.64, 74.768, 26.083, 0.788)
pt3dadd(171.755, 74.736, 26.089, 0.802)
pt3dadd(171.871, 74.703, 26.094, 0.816)
pt3dadd(171.986, 74.671, 26.099, 0.83)
pt3dadd(172.102, 74.639, 26.105, 0.844)
pt3dadd(172.217, 74.607, 26.11, 0.858)
pt3dadd(172.332, 74.575, 26.115, 0.872)
pt3dadd(172.448, 74.543, 26.12, 0.886)
pt3dadd(172.564, 74.511, 26.126, 0.9)
pt3dadd(172.678, 74.475, 26.128, 0.892)
pt3dadd(172.793, 74.439, 26.13, 0.876)
pt3dadd(172.907, 74.403, 26.133, 0.86)
pt3dadd(173.022, 74.367, 26.135, 0.844)
pt3dadd(173.136, 74.331, 26.137, 0.828)
pt3dadd(173.25, 74.295, 26.139, 0.812)
pt3dadd(173.365, 74.259, 26.141, 0.796)
pt3dadd(173.479, 74.223, 26.143, 0.78)
pt3dadd(173.593, 74.187, 26.145, 0.762)
pt3dadd(173.708, 74.151, 26.147, 0.746)
pt3dadd(173.82, 74.109, 26.15, 0.718)
pt3dadd(173.932, 74.065, 26.154, 0.686)
pt3dadd(174.043, 74.021, 26.157, 0.652)
pt3dadd(174.155, 73.977, 26.161, 0.62)
pt3dadd(174.266, 73.933, 26.164, 0.588)
pt3dadd(174.378, 73.89, 26.168, 0.554)
pt3dadd(174.49, 73.846, 26.172, 0.522)
pt3dadd(174.601, 73.802, 26.175, 0.49)
pt3dadd(174.713, 73.758, 26.179, 0.456)
pt3dadd(174.824, 73.714, 26.182, 0.424)
pt3dadd(174.94, 73.68, 26.189, 0.402)
pt3dadd(175.055, 73.647, 26.196, 0.384)
pt3dadd(175.17, 73.614, 26.203, 0.366)
pt3dadd(175.285, 73.582, 26.21, 0.348)
pt3dadd(175.4, 73.549, 26.217, 0.328)
pt3dadd(175.516, 73.516, 26.224, 0.31)
pt3dadd(175.631, 73.484, 26.231, 0.292)
pt3dadd(175.746, 73.451, 26.238, 0.272)
pt3dadd(175.861, 73.419, 26.245, 0.254)
pt3dadd(175.976, 73.386, 26.253, 0.236)
pt3dadd(176.093, 73.361, 26.264, 0.246)
pt3dadd(176.209, 73.337, 26.276, 0.264)
pt3dadd(176.326, 73.314, 26.288, 0.282)
pt3dadd(176.443, 73.291, 26.299, 0.3)
}
}
proc shape3d_150() {
dend_7[42] { pt3dadd(176.56, 73.267, 26.311, 0.318)
pt3dadd(176.676, 73.244, 26.323, 0.334)
pt3dadd(176.794, 73.22, 26.335, 0.352)
pt3dadd(176.91, 73.197, 26.347, 0.37)
pt3dadd(177.026, 73.174, 26.359, 0.388)
pt3dadd(177.144, 73.15, 26.371, 0.406)
pt3dadd(177.257, 73.131, 26.4, 0.436)
pt3dadd(177.368, 73.113, 26.433, 0.468)
pt3dadd(177.48, 73.095, 26.465, 0.5)
pt3dadd(177.593, 73.078, 26.498, 0.532)
pt3dadd(177.704, 73.06, 26.531, 0.564)
pt3dadd(177.816, 73.042, 26.564, 0.596)
pt3dadd(177.929, 73.024, 26.597, 0.628)
pt3dadd(178.04, 73.006, 26.629, 0.66)
pt3dadd(178.152, 72.988, 26.662, 0.692)
pt3dadd(178.264, 72.97, 26.695, 0.726)
pt3dadd(178.373, 72.938, 26.727, 0.728)
pt3dadd(178.481, 72.903, 26.759, 0.728)
pt3dadd(178.59, 72.869, 26.791, 0.728)
pt3dadd(178.698, 72.834, 26.823, 0.728)
pt3dadd(178.806, 72.8, 26.855, 0.728)
pt3dadd(178.914, 72.766, 26.887, 0.728)
pt3dadd(179.023, 72.731, 26.919, 0.728)
pt3dadd(179.131, 72.697, 26.951, 0.728)
pt3dadd(179.239, 72.662, 26.983, 0.728)
pt3dadd(179.348, 72.628, 27.015, 0.726)
pt3dadd(179.454, 72.578, 27.039, 0.696)
pt3dadd(179.56, 72.529, 27.063, 0.664)
pt3dadd(179.665, 72.48, 27.086, 0.632)
pt3dadd(179.771, 72.43, 27.11, 0.602)
pt3dadd(179.876, 72.381, 27.134, 0.57)
pt3dadd(179.982, 72.331, 27.157, 0.538)
pt3dadd(180.088, 72.282, 27.181, 0.506)
pt3dadd(180.193, 72.233, 27.205, 0.476)
pt3dadd(180.299, 72.183, 27.228, 0.444)
pt3dadd(180.404, 72.134, 27.252, 0.412)
pt3dadd(180.514, 72.09, 27.27, 0.396)
pt3dadd(180.623, 72.046, 27.289, 0.378)
pt3dadd(180.732, 72.002, 27.307, 0.36)
pt3dadd(180.842, 71.958, 27.326, 0.342)
pt3dadd(180.952, 71.915, 27.344, 0.324)
pt3dadd(181.061, 71.871, 27.362, 0.306)
pt3dadd(181.17, 71.827, 27.381, 0.288)
pt3dadd(181.28, 71.783, 27.399, 0.27)
pt3dadd(181.39, 71.739, 27.417, 0.252)
pt3dadd(181.499, 71.695, 27.436, 0.236)
pt3dadd(181.601, 71.635, 27.449, 0.292)
pt3dadd(181.704, 71.574, 27.461, 0.348)
pt3dadd(181.806, 71.513, 27.474, 0.404)
pt3dadd(181.908, 71.452, 27.487, 0.46)
pt3dadd(182.011, 71.391, 27.499, 0.516)
pt3dadd(182.113, 71.331, 27.512, 0.572)
pt3dadd(182.215, 71.27, 27.525, 0.628)
pt3dadd(182.317, 71.209, 27.538, 0.684)
pt3dadd(182.42, 71.148, 27.55, 0.74)
pt3dadd(182.522, 71.088, 27.563, 0.796)
pt3dadd(182.617, 71.042, 27.611, 0.808)
pt3dadd(182.712, 70.995, 27.659, 0.818)
pt3dadd(182.807, 70.949, 27.706, 0.83)
pt3dadd(182.902, 70.903, 27.754, 0.84)
pt3dadd(182.996, 70.857, 27.802, 0.852)
pt3dadd(183.091, 70.811, 27.849, 0.862)
pt3dadd(183.186, 70.764, 27.897, 0.874)
pt3dadd(183.281, 70.718, 27.944, 0.884)
pt3dadd(183.376, 70.672, 27.992, 0.894)
pt3dadd(183.473, 70.63, 28.038, 0.9)
pt3dadd(183.58, 70.604, 28.079, 0.88)
pt3dadd(183.686, 70.578, 28.12, 0.858)
pt3dadd(183.793, 70.552, 28.16, 0.838)
pt3dadd(183.899, 70.526, 28.201, 0.816)
pt3dadd(184.006, 70.5, 28.242, 0.796)
pt3dadd(184.112, 70.474, 28.282, 0.774)
pt3dadd(184.219, 70.448, 28.323, 0.754)
pt3dadd(184.325, 70.422, 28.364, 0.732)
pt3dadd(184.432, 70.396, 28.404, 0.712)
pt3dadd(184.54, 70.372, 28.442, 0.686)
pt3dadd(184.655, 70.356, 28.469, 0.646)
pt3dadd(184.769, 70.339, 28.495, 0.604)
pt3dadd(184.883, 70.322, 28.522, 0.564)
pt3dadd(184.998, 70.305, 28.549, 0.522)
pt3dadd(185.112, 70.288, 28.576, 0.482)
pt3dadd(185.226, 70.272, 28.602, 0.44)
pt3dadd(185.341, 70.255, 28.629, 0.398)
pt3dadd(185.455, 70.238, 28.656, 0.358)
pt3dadd(185.569, 70.221, 28.683, 0.316)
pt3dadd(185.683, 70.203, 28.712, 0.284)
pt3dadd(185.791, 70.177, 28.749, 0.278)
pt3dadd(185.9, 70.152, 28.786, 0.272)
pt3dadd(186.008, 70.127, 28.823, 0.266)
pt3dadd(186.118, 70.102, 28.86, 0.26)
pt3dadd(186.226, 70.077, 28.897, 0.254)
pt3dadd(186.334, 70.052, 28.934, 0.248)
pt3dadd(186.443, 70.026, 28.971, 0.242)
pt3dadd(186.551, 70.001, 29.008, 0.236)
pt3dadd(186.66, 69.976, 29.045, 0.23)
pt3dadd(186.767, 69.945, 29.081, 0.226)
pt3dadd(186.869, 69.893, 29.111, 0.226)
pt3dadd(186.971, 69.84, 29.142, 0.226)
pt3dadd(187.072, 69.788, 29.172, 0.226)
pt3dadd(187.174, 69.736, 29.203, 0.226)
pt3dadd(187.276, 69.684, 29.233, 0.226)
pt3dadd(187.378, 69.632, 29.264, 0.226)
pt3dadd(187.478, 69.58, 29.294, 0.226)
pt3dadd(187.58, 69.528, 29.325, 0.226)
pt3dadd(187.682, 69.476, 29.355, 0.226)
pt3dadd(187.78, 69.415, 29.382, 0.232)
pt3dadd(187.872, 69.342, 29.404, 0.246)
pt3dadd(187.963, 69.269, 29.426, 0.26)
pt3dadd(188.054, 69.196, 29.448, 0.274)
pt3dadd(188.147, 69.123, 29.469, 0.288)
pt3dadd(188.238, 69.051, 29.491, 0.302)
pt3dadd(188.33, 68.978, 29.513, 0.316)
pt3dadd(188.422, 68.905, 29.535, 0.33)
pt3dadd(188.513, 68.832, 29.556, 0.344)
pt3dadd(188.605, 68.759, 29.578, 0.358)
pt3dadd(188.692, 68.68, 29.597, 0.388)
pt3dadd(188.773, 68.593, 29.612, 0.436)
pt3dadd(188.854, 68.507, 29.627, 0.484)
pt3dadd(188.935, 68.42, 29.642, 0.532)
pt3dadd(189.016, 68.333, 29.658, 0.58)
pt3dadd(189.097, 68.247, 29.673, 0.628)
pt3dadd(189.178, 68.16, 29.688, 0.678)
pt3dadd(189.259, 68.073, 29.703, 0.726)
pt3dadd(189.34, 67.987, 29.718, 0.774)
pt3dadd(189.421, 67.9, 29.733, 0.822)
pt3dadd(189.491, 67.805, 29.747, 0.844)
pt3dadd(189.547, 67.7, 29.758, 0.834)
pt3dadd(189.604, 67.595, 29.77, 0.822)
pt3dadd(189.66, 67.49, 29.781, 0.812)
pt3dadd(189.718, 67.385, 29.793, 0.802)
pt3dadd(189.774, 67.281, 29.804, 0.79)
pt3dadd(189.83, 67.176, 29.816, 0.78)
pt3dadd(189.887, 67.071, 29.827, 0.77)
pt3dadd(189.943, 66.966, 29.839, 0.76)
pt3dadd(190.001, 66.861, 29.85, 0.748)
pt3dadd(190.051, 66.756, 29.87, 0.728)
pt3dadd(190.097, 66.65, 29.899, 0.698)
pt3dadd(190.142, 66.545, 29.928, 0.666)
pt3dadd(190.187, 66.439, 29.957, 0.636)
pt3dadd(190.232, 66.334, 29.986, 0.606)
pt3dadd(190.278, 66.228, 30.015, 0.574)
pt3dadd(190.324, 66.123, 30.044, 0.544)
pt3dadd(190.369, 66.017, 30.073, 0.512)
pt3dadd(190.414, 65.912, 30.102, 0.482)
pt3dadd(190.459, 65.806, 30.131, 0.452)
pt3dadd(190.51, 65.704, 30.163, 0.426)
pt3dadd(190.562, 65.604, 30.196, 0.404)
pt3dadd(190.615, 65.504, 30.23, 0.384)
pt3dadd(190.668, 65.404, 30.263, 0.362)
pt3dadd(190.721, 65.304, 30.296, 0.34)
pt3dadd(190.774, 65.204, 30.33, 0.318)
pt3dadd(190.826, 65.104, 30.363, 0.296)
pt3dadd(190.879, 65.004, 30.396, 0.276)
pt3dadd(190.932, 64.903, 30.429, 0.254)
pt3dadd(190.985, 64.803, 30.463, 0.232)
pt3dadd(191.058, 64.715, 30.488, 0.226)
pt3dadd(191.141, 64.632, 30.509, 0.226)
pt3dadd(191.224, 64.548, 30.531, 0.226)
pt3dadd(191.305, 64.465, 30.552, 0.226)
pt3dadd(191.388, 64.382, 30.574, 0.226)
pt3dadd(191.47, 64.298, 30.595, 0.226)
pt3dadd(191.552, 64.215, 30.617, 0.226)
pt3dadd(191.635, 64.131, 30.639, 0.226)
pt3dadd(191.717, 64.048, 30.66, 0.226)
pt3dadd(191.8, 63.965, 30.682, 0.226)
pt3dadd(191.909, 63.916, 30.692, 0.226)
pt3dadd(192.018, 63.868, 30.702, 0.226)
pt3dadd(192.127, 63.819, 30.712, 0.226)
pt3dadd(192.236, 63.771, 30.722, 0.226)
pt3dadd(192.344, 63.722, 30.732, 0.226)
pt3dadd(192.454, 63.674, 30.742, 0.226)
pt3dadd(192.563, 63.625, 30.752, 0.226)
pt3dadd(192.672, 63.577, 30.762, 0.226)
pt3dadd(192.781, 63.528, 30.773, 0.226)
pt3dadd(192.89, 63.48, 30.783, 0.226)
}
dend_0[9] {pt3dclear()
pt3dadd(104.444, 99.982, 14.404, 12.204)
pt3dadd(104.501, 99.982, 14.357, 12.096)
pt3dadd(104.585, 99.982, 14.286, 11.932)
pt3dadd(104.67, 99.982, 14.215, 11.768)
pt3dadd(104.755, 99.982, 14.145, 11.604)
pt3dadd(104.84, 99.982, 14.074, 11.44)
pt3dadd(104.925, 99.982, 14.003, 11.276)
pt3dadd(105.01, 99.982, 13.932, 11.112)
pt3dadd(105.094, 99.982, 13.862, 10.948)
pt3dadd(105.179, 99.981, 13.791, 10.782)
pt3dadd(105.261, 99.978, 13.718, 10.606)
pt3dadd(105.344, 99.975, 13.646, 10.43)
pt3dadd(105.427, 99.972, 13.573, 10.256)
pt3dadd(105.509, 99.968, 13.501, 10.08)
pt3dadd(105.592, 99.965, 13.428, 9.904)
pt3dadd(105.674, 99.962, 13.356, 9.728)
pt3dadd(105.757, 99.959, 13.283, 9.554)
pt3dadd(105.839, 99.956, 13.211, 9.378)
pt3dadd(105.922, 99.953, 13.138, 9.202)
pt3dadd(106.002, 99.946, 13.064, 9.016)
pt3dadd(106.074, 99.93, 12.985, 8.794)
pt3dadd(106.146, 99.914, 12.906, 8.574)
pt3dadd(106.218, 99.898, 12.827, 8.352)
pt3dadd(106.29, 99.882, 12.749, 8.132)
pt3dadd(106.362, 99.865, 12.67, 7.91)
}
}
proc shape3d_151() {
dend_0[9] { pt3dadd(106.434, 99.849, 12.591, 7.688)
pt3dadd(106.506, 99.833, 12.512, 7.468)
pt3dadd(106.578, 99.817, 12.433, 7.246)
pt3dadd(106.65, 99.801, 12.354, 7.026)
pt3dadd(106.721, 99.784, 12.275, 6.818)
pt3dadd(106.79, 99.764, 12.195, 6.65)
pt3dadd(106.858, 99.745, 12.114, 6.482)
pt3dadd(106.927, 99.726, 12.034, 6.314)
pt3dadd(106.996, 99.706, 11.954, 6.144)
pt3dadd(107.064, 99.687, 11.873, 5.978)
pt3dadd(107.133, 99.668, 11.793, 5.808)
pt3dadd(107.202, 99.648, 11.712, 5.64)
pt3dadd(107.271, 99.629, 11.632, 5.472)
pt3dadd(107.339, 99.61, 11.552, 5.304)
pt3dadd(107.405, 99.587, 11.47, 5.138)
pt3dadd(107.46, 99.554, 11.386, 4.976)
pt3dadd(107.515, 99.521, 11.301, 4.816)
}
dend_7[43] {pt3dclear()
pt3dadd(107.515, 99.521, 11.301, 4.816)
pt3dadd(107.571, 99.488, 11.217, 4.654)
pt3dadd(107.626, 99.455, 11.132, 4.492)
pt3dadd(107.681, 99.423, 11.048, 4.33)
pt3dadd(107.736, 99.39, 10.964, 4.17)
pt3dadd(107.792, 99.357, 10.879, 4.008)
pt3dadd(107.847, 99.324, 10.795, 3.846)
pt3dadd(107.902, 99.291, 10.71, 3.686)
pt3dadd(107.943, 99.247, 10.625, 3.488)
pt3dadd(107.968, 99.19, 10.54, 3.252)
pt3dadd(107.993, 99.133, 10.454, 3.014)
pt3dadd(108.018, 99.077, 10.368, 2.778)
pt3dadd(108.043, 99.02, 10.283, 2.54)
pt3dadd(108.068, 98.963, 10.197, 2.304)
pt3dadd(108.093, 98.906, 10.112, 2.066)
pt3dadd(108.118, 98.85, 10.026, 1.83)
pt3dadd(108.143, 98.793, 9.94, 1.594)
pt3dadd(108.168, 98.736, 9.855, 1.356)
pt3dadd(108.176, 98.673, 9.771, 1.226)
pt3dadd(108.166, 98.603, 9.691, 1.216)
pt3dadd(108.155, 98.533, 9.61, 1.206)
pt3dadd(108.144, 98.463, 9.529, 1.196)
pt3dadd(108.134, 98.394, 9.448, 1.186)
pt3dadd(108.123, 98.324, 9.367, 1.176)
pt3dadd(108.113, 98.254, 9.287, 1.166)
pt3dadd(108.102, 98.184, 9.206, 1.156)
pt3dadd(108.092, 98.114, 9.125, 1.146)
pt3dadd(108.081, 98.044, 9.044, 1.136)
pt3dadd(108.055, 97.98, 8.964, 1.134)
pt3dadd(108.012, 97.921, 8.884, 1.144)
pt3dadd(107.97, 97.862, 8.805, 1.154)
pt3dadd(107.927, 97.803, 8.725, 1.164)
pt3dadd(107.885, 97.744, 8.646, 1.174)
pt3dadd(107.843, 97.685, 8.566, 1.182)
pt3dadd(107.8, 97.626, 8.486, 1.192)
pt3dadd(107.758, 97.567, 8.407, 1.202)
pt3dadd(107.715, 97.508, 8.327, 1.212)
pt3dadd(107.673, 97.449, 8.247, 1.222)
pt3dadd(107.612, 97.401, 8.172, 1.228)
pt3dadd(107.544, 97.357, 8.098, 1.236)
pt3dadd(107.477, 97.312, 8.024, 1.244)
pt3dadd(107.41, 97.267, 7.95, 1.25)
pt3dadd(107.343, 97.223, 7.876, 1.258)
pt3dadd(107.275, 97.178, 7.802, 1.264)
pt3dadd(107.208, 97.134, 7.728, 1.272)
pt3dadd(107.141, 97.089, 7.654, 1.28)
pt3dadd(107.073, 97.044, 7.58, 1.286)
pt3dadd(107.006, 97, 7.506, 1.294)
pt3dadd(106.925, 96.965, 7.439, 1.27)
pt3dadd(106.841, 96.933, 7.373, 1.236)
pt3dadd(106.756, 96.901, 7.307, 1.204)
pt3dadd(106.672, 96.869, 7.241, 1.172)
pt3dadd(106.588, 96.837, 7.175, 1.14)
pt3dadd(106.503, 96.804, 7.109, 1.108)
pt3dadd(106.419, 96.772, 7.043, 1.076)
pt3dadd(106.335, 96.74, 6.977, 1.044)
pt3dadd(106.25, 96.708, 6.911, 1.012)
pt3dadd(106.166, 96.676, 6.845, 0.98)
pt3dadd(106.075, 96.626, 6.797, 0.956)
pt3dadd(105.982, 96.572, 6.752, 0.936)
pt3dadd(105.889, 96.518, 6.707, 0.916)
pt3dadd(105.796, 96.465, 6.663, 0.896)
pt3dadd(105.703, 96.411, 6.618, 0.874)
pt3dadd(105.61, 96.357, 6.574, 0.854)
pt3dadd(105.518, 96.303, 6.529, 0.834)
pt3dadd(105.425, 96.249, 6.484, 0.814)
pt3dadd(105.332, 96.195, 6.44, 0.794)
pt3dadd(105.239, 96.141, 6.395, 0.772)
pt3dadd(105.148, 96.073, 6.363, 0.77)
pt3dadd(105.058, 96.004, 6.332, 0.768)
pt3dadd(104.967, 95.934, 6.301, 0.766)
pt3dadd(104.876, 95.865, 6.27, 0.764)
pt3dadd(104.786, 95.796, 6.239, 0.764)
pt3dadd(104.695, 95.726, 6.208, 0.762)
pt3dadd(104.605, 95.657, 6.177, 0.76)
pt3dadd(104.514, 95.588, 6.146, 0.758)
pt3dadd(104.423, 95.519, 6.115, 0.756)
pt3dadd(104.333, 95.449, 6.084, 0.756)
}
dend_7[44] {pt3dclear()
pt3dadd(104.333, 95.449, 6.084, 0.756)
pt3dadd(104.28, 95.391, 6.055, 0.766)
pt3dadd(104.197, 95.306, 6.023, 0.784)
pt3dadd(104.114, 95.221, 5.991, 0.802)
pt3dadd(104.03, 95.136, 5.959, 0.82)
pt3dadd(103.947, 95.052, 5.927, 0.838)
pt3dadd(103.864, 94.967, 5.896, 0.856)
pt3dadd(103.781, 94.882, 5.864, 0.874)
pt3dadd(103.698, 94.798, 5.832, 0.892)
pt3dadd(103.614, 94.713, 5.8, 0.912)
pt3dadd(103.531, 94.628, 5.768, 0.93)
pt3dadd(103.464, 94.542, 5.719, 0.946)
pt3dadd(103.402, 94.455, 5.662, 0.962)
pt3dadd(103.341, 94.367, 5.606, 0.978)
pt3dadd(103.279, 94.28, 5.549, 0.994)
pt3dadd(103.218, 94.193, 5.493, 1.01)
pt3dadd(103.156, 94.105, 5.436, 1.026)
pt3dadd(103.095, 94.018, 5.38, 1.042)
pt3dadd(103.033, 93.931, 5.323, 1.058)
pt3dadd(102.972, 93.844, 5.267, 1.074)
pt3dadd(102.91, 93.756, 5.21, 1.09)
pt3dadd(102.859, 93.657, 5.163, 1.09)
pt3dadd(102.811, 93.553, 5.118, 1.084)
pt3dadd(102.764, 93.45, 5.073, 1.08)
pt3dadd(102.716, 93.346, 5.028, 1.074)
pt3dadd(102.669, 93.242, 4.983, 1.07)
pt3dadd(102.621, 93.139, 4.938, 1.064)
pt3dadd(102.574, 93.035, 4.893, 1.06)
pt3dadd(102.526, 92.931, 4.848, 1.054)
pt3dadd(102.479, 92.828, 4.803, 1.05)
pt3dadd(102.431, 92.724, 4.758, 1.044)
pt3dadd(102.368, 92.627, 4.719, 1.084)
pt3dadd(102.302, 92.53, 4.681, 1.134)
pt3dadd(102.235, 92.434, 4.643, 1.186)
pt3dadd(102.169, 92.338, 4.605, 1.238)
pt3dadd(102.102, 92.242, 4.567, 1.288)
pt3dadd(102.036, 92.146, 4.53, 1.34)
pt3dadd(101.97, 92.049, 4.492, 1.39)
pt3dadd(101.903, 91.953, 4.454, 1.442)
pt3dadd(101.836, 91.857, 4.416, 1.492)
pt3dadd(101.77, 91.761, 4.378, 1.544)
pt3dadd(101.701, 91.681, 4.321, 1.53)
pt3dadd(101.631, 91.604, 4.261, 1.506)
pt3dadd(101.562, 91.527, 4.201, 1.484)
pt3dadd(101.492, 91.449, 4.141, 1.462)
pt3dadd(101.423, 91.372, 4.081, 1.438)
pt3dadd(101.353, 91.295, 4.021, 1.416)
pt3dadd(101.284, 91.217, 3.962, 1.392)
pt3dadd(101.214, 91.14, 3.902, 1.37)
pt3dadd(101.145, 91.063, 3.842, 1.346)
pt3dadd(101.075, 90.985, 3.782, 1.324)
pt3dadd(100.992, 90.909, 3.736, 1.304)
pt3dadd(100.908, 90.834, 3.691, 1.286)
pt3dadd(100.824, 90.758, 3.647, 1.268)
pt3dadd(100.739, 90.682, 3.602, 1.25)
pt3dadd(100.655, 90.606, 3.558, 1.232)
pt3dadd(100.571, 90.531, 3.513, 1.214)
pt3dadd(100.486, 90.455, 3.468, 1.196)
pt3dadd(100.402, 90.379, 3.424, 1.178)
pt3dadd(100.318, 90.303, 3.379, 1.158)
pt3dadd(100.233, 90.228, 3.335, 1.14)
pt3dadd(100.142, 90.177, 3.278, 1.158)
pt3dadd(100.05, 90.127, 3.22, 1.178)
pt3dadd(99.957, 90.078, 3.162, 1.196)
pt3dadd(99.865, 90.029, 3.104, 1.216)
pt3dadd(99.773, 89.979, 3.046, 1.236)
pt3dadd(99.681, 89.93, 2.988, 1.256)
pt3dadd(99.589, 89.881, 2.93, 1.276)
pt3dadd(99.497, 89.832, 2.872, 1.294)
pt3dadd(99.405, 89.782, 2.815, 1.314)
pt3dadd(99.312, 89.733, 2.757, 1.334)
pt3dadd(99.23, 89.654, 2.715, 1.338)
pt3dadd(99.149, 89.572, 2.674, 1.34)
pt3dadd(99.067, 89.49, 2.634, 1.342)
pt3dadd(98.986, 89.408, 2.593, 1.344)
pt3dadd(98.904, 89.327, 2.553, 1.346)
pt3dadd(98.823, 89.245, 2.512, 1.348)
pt3dadd(98.742, 89.163, 2.471, 1.35)
pt3dadd(98.66, 89.081, 2.431, 1.352)
pt3dadd(98.579, 89, 2.39, 1.354)
pt3dadd(98.497, 88.918, 2.35, 1.356)
pt3dadd(98.388, 88.867, 2.331, 1.244)
pt3dadd(98.278, 88.816, 2.312, 1.13)
pt3dadd(98.169, 88.766, 2.293, 1.016)
pt3dadd(98.059, 88.715, 2.274, 0.904)
pt3dadd(97.949, 88.665, 2.255, 0.792)
pt3dadd(97.84, 88.614, 2.236, 0.678)
pt3dadd(97.73, 88.563, 2.217, 0.564)
pt3dadd(97.621, 88.513, 2.197, 0.452)
pt3dadd(97.511, 88.462, 2.178, 0.338)
pt3dadd(97.402, 88.411, 2.159, 0.226)
pt3dadd(97.432, 88.292, 2.149, 0.432)
pt3dadd(97.463, 88.172, 2.138, 0.636)
pt3dadd(97.452, 88.089, 2.075, 0.794)
pt3dadd(97.425, 88.034, 1.983, 0.916)
pt3dadd(97.409, 88.026, 1.878, 0.974)
pt3dadd(97.393, 88.018, 1.773, 1.032)
pt3dadd(97.386, 87.975, 1.676, 1.076)
pt3dadd(97.383, 87.911, 1.584, 1.11)
pt3dadd(97.381, 87.845, 1.492, 1.158)
pt3dadd(97.378, 87.777, 1.402, 1.228)
pt3dadd(97.377, 87.749, 1.298, 1.25)
pt3dadd(97.376, 87.723, 1.194, 1.272)
pt3dadd(97.375, 87.697, 1.09, 1.292)
pt3dadd(97.374, 87.671, 0.986, 1.314)
}
}
proc shape3d_152() {
dend_7[44] { pt3dadd(97.373, 87.645, 0.881, 1.334)
pt3dadd(97.372, 87.619, 0.777, 1.356)
pt3dadd(97.369, 87.548, 0.689, 1.38)
pt3dadd(97.367, 87.475, 0.601, 1.406)
pt3dadd(97.364, 87.402, 0.513, 1.43)
pt3dadd(97.361, 87.33, 0.425, 1.456)
pt3dadd(97.359, 87.257, 0.338, 1.48)
pt3dadd(97.356, 87.19, 0.247, 1.496)
pt3dadd(97.356, 87.186, 0.241, 1.496)
pt3dadd(97.354, 87.12, 0.149, 1.51)
pt3dadd(97.351, 87.053, 0.058, 1.526)
pt3dadd(97.349, 86.987, -0.033, 1.54)
pt3dadd(97.346, 86.92, -0.124, 1.554)
pt3dadd(97.335, 86.824, -0.192, 1.548)
pt3dadd(97.323, 86.723, -0.256, 1.538)
pt3dadd(97.311, 86.623, -0.32, 1.526)
pt3dadd(97.299, 86.522, -0.384, 1.516)
pt3dadd(97.287, 86.42, -0.446, 1.504)
pt3dadd(97.266, 86.308, -0.491, 1.48)
pt3dadd(97.247, 86.195, -0.536, 1.454)
pt3dadd(97.226, 86.083, -0.58, 1.428)
pt3dadd(97.205, 85.97, -0.625, 1.402)
pt3dadd(97.188, 85.855, -0.662, 1.378)
pt3dadd(97.183, 85.732, -0.668, 1.36)
pt3dadd(97.179, 85.608, -0.674, 1.342)
pt3dadd(97.174, 85.485, -0.68, 1.324)
pt3dadd(97.17, 85.361, -0.686, 1.306)
pt3dadd(97.166, 85.237, -0.692, 1.288)
pt3dadd(97.161, 85.114, -0.698, 1.27)
pt3dadd(97.151, 84.991, -0.704, 1.26)
pt3dadd(97.113, 84.873, -0.71, 1.28)
pt3dadd(97.075, 84.756, -0.716, 1.302)
pt3dadd(97.05, 84.636, -0.737, 1.374)
pt3dadd(97.028, 84.517, -0.762, 1.462)
pt3dadd(97.016, 84.424, -0.82, 1.556)
pt3dadd(97.014, 84.359, -0.912, 1.66)
pt3dadd(97.011, 84.291, -1.002, 1.742)
pt3dadd(97.008, 84.212, -1.086, 1.778)
pt3dadd(97.003, 84.134, -1.17, 1.804)
pt3dadd(96.99, 84.059, -1.256, 1.774)
pt3dadd(96.975, 83.984, -1.341, 1.744)
pt3dadd(96.96, 83.909, -1.427, 1.714)
pt3dadd(96.888, 83.827, -1.463, 1.624)
pt3dadd(96.8, 83.743, -1.486, 1.518)
pt3dadd(96.761, 83.647, -1.511, 1.306)
}
dend_7[45] {pt3dclear()
pt3dadd(96.761, 83.647, -1.511, 1.306)
pt3dadd(96.749, 83.62, -1.522, 1.296)
pt3dadd(96.707, 83.519, -1.562, 1.262)
pt3dadd(96.664, 83.417, -1.602, 1.228)
pt3dadd(96.621, 83.316, -1.643, 1.194)
pt3dadd(96.579, 83.215, -1.683, 1.16)
pt3dadd(96.524, 83.115, -1.712, 1.14)
pt3dadd(96.466, 83.015, -1.74, 1.124)
pt3dadd(96.409, 82.915, -1.767, 1.106)
pt3dadd(96.351, 82.815, -1.795, 1.09)
pt3dadd(96.297, 82.716, -1.829, 1.08)
pt3dadd(96.251, 82.619, -1.873, 1.08)
pt3dadd(96.204, 82.521, -1.916, 1.08)
pt3dadd(96.157, 82.424, -1.96, 1.08)
pt3dadd(96.112, 82.326, -2.003, 1.08)
pt3dadd(96.079, 82.217, -2.036, 1.092)
pt3dadd(96.048, 82.108, -2.069, 1.102)
pt3dadd(96.016, 81.999, -2.102, 1.112)
pt3dadd(95.984, 81.891, -2.134, 1.124)
pt3dadd(95.962, 81.783, -2.171, 1.154)
pt3dadd(95.949, 81.669, -2.197, 1.2)
pt3dadd(95.914, 81.555, -2.2, 1.206)
pt3dadd(95.833, 81.467, -2.205, 1.254)
pt3dadd(95.746, 81.413, -2.249, 1.334)
pt3dadd(95.717, 81.402, -2.345, 1.4)
pt3dadd(95.709, 81.402, -2.445, 1.476)
pt3dadd(95.709, 81.402, -2.545, 1.566)
pt3dadd(95.703, 81.403, -2.644, 1.632)
pt3dadd(95.667, 81.404, -2.738, 1.638)
pt3dadd(95.568, 81.407, -2.791, 1.602)
pt3dadd(95.468, 81.411, -2.832, 1.524)
pt3dadd(95.406, 81.413, -2.919, 1.488)
pt3dadd(95.346, 81.415, -3.005, 1.454)
pt3dadd(95.314, 81.416, -3.101, 1.412)
pt3dadd(95.28, 81.417, -3.198, 1.372)
pt3dadd(95.225, 81.406, -3.284, 1.348)
pt3dadd(95.156, 81.388, -3.364, 1.334)
pt3dadd(95.06, 81.353, -3.404, 1.322)
pt3dadd(94.95, 81.31, -3.426, 1.31)
pt3dadd(94.959, 81.253, -3.481, 1.298)
pt3dadd(95.018, 81.19, -3.551, 1.288)
pt3dadd(95.051, 81.127, -3.624, 1.256)
pt3dadd(95.022, 81.065, -3.706, 1.172)
pt3dadd(94.97, 81.02, -3.786, 1.024)
pt3dadd(94.944, 80.982, -3.878, 0.998)
pt3dadd(94.917, 80.944, -3.97, 0.972)
pt3dadd(94.89, 80.906, -4.063, 0.946)
pt3dadd(94.865, 80.868, -4.155, 0.92)
pt3dadd(94.831, 80.833, -4.246, 0.902)
pt3dadd(94.786, 80.803, -4.335, 0.896)
pt3dadd(94.742, 80.773, -4.425, 0.89)
pt3dadd(94.697, 80.742, -4.514, 0.886)
pt3dadd(94.653, 80.712, -4.603, 0.88)
pt3dadd(94.626, 80.652, -4.686, 0.89)
pt3dadd(94.603, 80.584, -4.766, 0.902)
pt3dadd(94.554, 80.532, -4.845, 0.928)
pt3dadd(94.5, 80.483, -4.925, 0.954)
pt3dadd(94.428, 80.457, -5.002, 0.968)
pt3dadd(94.365, 80.419, -5.074, 0.978)
pt3dadd(94.356, 80.313, -5.121, 0.966)
pt3dadd(94.346, 80.207, -5.167, 0.954)
pt3dadd(94.371, 80.093, -5.191, 0.954)
pt3dadd(94.398, 79.978, -5.2, 0.96)
pt3dadd(94.426, 79.861, -5.2, 0.97)
pt3dadd(94.449, 79.745, -5.205, 0.984)
pt3dadd(94.439, 79.631, -5.234, 1.018)
pt3dadd(94.43, 79.516, -5.262, 1.05)
pt3dadd(94.362, 79.456, -5.321, 1.08)
pt3dadd(94.287, 79.403, -5.384, 1.104)
pt3dadd(94.23, 79.329, -5.447, 1.104)
pt3dadd(94.192, 79.239, -5.493, 1.1)
pt3dadd(94.188, 79.12, -5.506, 1.086)
pt3dadd(94.156, 79.015, -5.535, 1.064)
pt3dadd(94.101, 78.922, -5.578, 1.036)
pt3dadd(94.032, 78.831, -5.606, 1.03)
pt3dadd(93.957, 78.741, -5.63, 1.03)
pt3dadd(93.939, 78.638, -5.674, 1.03)
pt3dadd(93.929, 78.532, -5.72, 1.03)
pt3dadd(93.927, 78.42, -5.754, 1.046)
pt3dadd(93.929, 78.305, -5.783, 1.066)
pt3dadd(93.945, 78.19, -5.8, 1.08)
pt3dadd(93.986, 78.077, -5.8, 1.08)
pt3dadd(93.988, 77.978, -5.85, 1.074)
pt3dadd(93.985, 77.881, -5.909, 1.066)
pt3dadd(93.982, 77.784, -5.968, 1.06)
pt3dadd(93.973, 77.694, -6.032, 1.052)
pt3dadd(93.946, 77.622, -6.109, 1.038)
pt3dadd(93.921, 77.55, -6.187, 1.026)
pt3dadd(93.895, 77.478, -6.264, 1.014)
pt3dadd(93.869, 77.411, -6.343, 1.006)
pt3dadd(93.844, 77.357, -6.43, 1.012)
pt3dadd(93.82, 77.303, -6.517, 1.016)
pt3dadd(93.794, 77.249, -6.603, 1.022)
pt3dadd(93.769, 77.194, -6.69, 1.028)
pt3dadd(93.758, 77.115, -6.762, 1.04)
pt3dadd(93.755, 77.022, -6.824, 1.054)
pt3dadd(93.751, 76.928, -6.886, 1.07)
pt3dadd(93.748, 76.834, -6.949, 1.084)
pt3dadd(93.745, 76.741, -7.011, 1.1)
pt3dadd(93.742, 76.655, -7.081, 1.128)
pt3dadd(93.739, 76.573, -7.154, 1.164)
pt3dadd(93.735, 76.472, -7.191, 1.18)
pt3dadd(93.731, 76.352, -7.195, 1.18)
pt3dadd(93.727, 76.232, -7.199, 1.18)
pt3dadd(93.723, 76.122, -7.232, 1.18)
pt3dadd(93.72, 76.019, -7.283, 1.18)
pt3dadd(93.717, 75.958, -7.356, 1.184)
pt3dadd(93.717, 75.948, -7.455, 1.194)
pt3dadd(93.717, 75.938, -7.555, 1.202)
pt3dadd(93.716, 75.907, -7.65, 1.248)
pt3dadd(93.714, 75.86, -7.742, 1.308)
pt3dadd(93.711, 75.782, -7.818, 1.328)
pt3dadd(93.709, 75.704, -7.894, 1.348)
pt3dadd(93.706, 75.626, -7.97, 1.368)
pt3dadd(93.703, 75.549, -8.046, 1.388)
pt3dadd(93.7, 75.47, -8.122, 1.41)
pt3dadd(93.698, 75.39, -8.196, 1.43)
pt3dadd(93.695, 75.309, -8.27, 1.45)
pt3dadd(93.692, 75.228, -8.344, 1.47)
pt3dadd(93.689, 75.148, -8.418, 1.49)
pt3dadd(93.686, 75.068, -8.493, 1.514)
pt3dadd(93.684, 75.013, -8.579, 1.532)
pt3dadd(93.683, 74.98, -8.675, 1.49)
pt3dadd(93.682, 74.946, -8.771, 1.452)
pt3dadd(93.68, 74.893, -8.861, 1.396)
pt3dadd(93.678, 74.827, -8.944, 1.362)
pt3dadd(93.675, 74.724, -8.99, 1.352)
pt3dadd(93.693, 74.606, -9, 1.312)
pt3dadd(93.745, 74.5, -9, 1.21)
pt3dadd(93.832, 74.419, -9, 1.1)
pt3dadd(93.935, 74.36, -9.006, 1.068)
pt3dadd(93.985, 74.307, -9.071, 1.08)
pt3dadd(94.01, 74.259, -9.16, 1.08)
pt3dadd(94.052, 74.191, -9.232, 1.07)
pt3dadd(94.103, 74.113, -9.295, 1.056)
pt3dadd(94.183, 74.026, -9.3, 1.022)
pt3dadd(94.264, 73.938, -9.3, 0.986)
pt3dadd(94.347, 73.853, -9.3, 0.95)
pt3dadd(94.45, 73.788, -9.3, 0.904)
pt3dadd(94.551, 73.724, -9.3, 0.858)
pt3dadd(94.654, 73.663, -9.3, 0.752)
pt3dadd(94.752, 73.594, -9.3, 0.742)
pt3dadd(94.85, 73.525, -9.3, 0.732)
pt3dadd(94.948, 73.455, -9.3, 0.722)
pt3dadd(95.046, 73.386, -9.3, 0.712)
pt3dadd(95.143, 73.315, -9.3, 0.704)
pt3dadd(95.228, 73.23, -9.3, 0.704)
pt3dadd(95.312, 73.146, -9.3, 0.704)
pt3dadd(95.431, 73.131, -9.3, 0.712)
pt3dadd(95.55, 73.117, -9.3, 0.72)
pt3dadd(95.661, 73.088, -9.3, 0.736)
pt3dadd(95.739, 72.997, -9.3, 0.77)
pt3dadd(95.815, 72.905, -9.3, 0.806)
pt3dadd(95.866, 72.796, -9.3, 0.84)
pt3dadd(95.916, 72.687, -9.3, 0.874)
}
}
proc shape3d_153() {
dend_7[45] { pt3dadd(96.017, 72.631, -9.302, 0.906)
pt3dadd(96.127, 72.585, -9.305, 0.94)
pt3dadd(96.238, 72.539, -9.308, 0.972)
pt3dadd(96.35, 72.494, -9.313, 1.006)
pt3dadd(96.458, 72.471, -9.35, 1.042)
pt3dadd(96.567, 72.448, -9.388, 1.078)
pt3dadd(96.643, 72.358, -9.4, 1.13)
pt3dadd(96.706, 72.257, -9.4, 1.13)
pt3dadd(96.777, 72.166, -9.41, 1.13)
pt3dadd(96.869, 72.127, -9.464, 1.13)
pt3dadd(96.95, 72.083, -9.525, 1.13)
pt3dadd(97.008, 72.028, -9.6, 1.13)
pt3dadd(97.071, 71.995, -9.679, 1.13)
pt3dadd(97.136, 71.98, -9.761, 1.13)
pt3dadd(97.19, 71.924, -9.83, 1.13)
pt3dadd(97.231, 71.833, -9.885, 1.13)
pt3dadd(97.272, 71.743, -9.941, 1.13)
pt3dadd(97.312, 71.644, -9.986, 1.122)
pt3dadd(97.35, 71.538, -10.02, 1.11)
pt3dadd(97.383, 71.469, -10.089, 1.1)
pt3dadd(97.411, 71.422, -10.178, 1.09)
pt3dadd(97.439, 71.376, -10.267, 1.08)
pt3dadd(97.473, 71.375, -10.363, 1.07)
pt3dadd(97.505, 71.373, -10.459, 1.06)
pt3dadd(97.519, 71.364, -10.557, 1.07)
pt3dadd(97.518, 71.319, -10.648, 1.086)
pt3dadd(97.516, 71.259, -10.734, 1.096)
pt3dadd(97.514, 71.199, -10.821, 1.106)
pt3dadd(97.512, 71.14, -10.908, 1.116)
pt3dadd(97.509, 71.08, -10.995, 1.126)
pt3dadd(97.507, 71.015, -11.079, 1.138)
pt3dadd(97.505, 70.946, -11.16, 1.154)
pt3dadd(97.502, 70.877, -11.242, 1.168)
pt3dadd(97.5, 70.808, -11.324, 1.184)
pt3dadd(97.498, 70.739, -11.406, 1.198)
pt3dadd(97.509, 70.668, -11.484, 1.218)
pt3dadd(97.535, 70.594, -11.561, 1.24)
pt3dadd(97.56, 70.52, -11.637, 1.264)
pt3dadd(97.583, 70.446, -11.713, 1.286)
pt3dadd(97.605, 70.374, -11.79, 1.308)
pt3dadd(97.603, 70.311, -11.875, 1.328)
pt3dadd(97.601, 70.248, -11.96, 1.348)
pt3dadd(97.598, 70.185, -12.045, 1.368)
pt3dadd(97.596, 70.122, -12.131, 1.388)
pt3dadd(97.594, 70.059, -12.216, 1.408)
pt3dadd(97.592, 69.991, -12.298, 1.456)
pt3dadd(97.589, 69.923, -12.38, 1.502)
pt3dadd(97.587, 69.862, -12.466, 1.516)
pt3dadd(97.585, 69.801, -12.552, 1.528)
pt3dadd(97.587, 69.754, -12.644, 1.508)
pt3dadd(97.591, 69.712, -12.738, 1.474)
pt3dadd(97.612, 69.689, -12.832, 1.418)
pt3dadd(97.652, 69.687, -12.926, 1.332)
pt3dadd(97.688, 69.69, -13.021, 1.25)
pt3dadd(97.693, 69.723, -13.116, 1.192)
pt3dadd(97.697, 69.757, -13.212, 1.136)
pt3dadd(97.702, 69.791, -13.308, 1.078)
pt3dadd(97.706, 69.835, -13.397, 1.016)
pt3dadd(97.71, 69.939, -13.448, 0.936)
pt3dadd(97.713, 70.042, -13.498, 0.856)
pt3dadd(97.721, 70.125, -13.569, 0.768)
pt3dadd(97.756, 70.232, -13.598, 0.774)
pt3dadd(97.814, 70.332, -13.619, 0.846)
pt3dadd(97.833, 70.432, -13.668, 0.904)
pt3dadd(97.787, 70.536, -13.696, 0.888)
pt3dadd(97.734, 70.644, -13.7, 0.83)
pt3dadd(97.655, 70.73, -13.7, 0.734)
pt3dadd(97.542, 70.767, -13.7, 0.688)
pt3dadd(97.423, 70.776, -13.708, 0.678)
pt3dadd(97.313, 70.78, -13.744, 0.678)
pt3dadd(97.269, 70.781, -13.836, 0.678)
pt3dadd(97.259, 70.776, -13.935, 0.678)
pt3dadd(97.258, 70.753, -14.033, 0.678)
pt3dadd(97.256, 70.707, -14.125, 0.678)
pt3dadd(97.256, 70.693, -14.222, 0.678)
pt3dadd(97.257, 70.731, -14.316, 0.696)
pt3dadd(97.258, 70.747, -14.414, 0.71)
pt3dadd(97.258, 70.753, -14.514, 0.716)
pt3dadd(97.258, 70.759, -14.613, 0.724)
pt3dadd(97.258, 70.765, -14.713, 0.732)
pt3dadd(97.259, 70.771, -14.813, 0.74)
pt3dadd(97.259, 70.777, -14.913, 0.746)
pt3dadd(97.261, 70.782, -15.013, 0.754)
pt3dadd(97.279, 70.781, -15.112, 0.768)
pt3dadd(97.297, 70.78, -15.211, 0.78)
pt3dadd(97.315, 70.78, -15.309, 0.794)
pt3dadd(97.333, 70.779, -15.408, 0.806)
pt3dadd(97.351, 70.779, -15.507, 0.818)
pt3dadd(97.359, 70.778, -15.605, 0.834)
pt3dadd(97.319, 70.78, -15.7, 0.866)
pt3dadd(97.279, 70.781, -15.794, 0.898)
pt3dadd(97.269, 70.785, -15.893, 0.926)
pt3dadd(97.264, 70.79, -15.993, 0.954)
pt3dadd(97.259, 70.797, -16.092, 0.98)
pt3dadd(97.261, 70.843, -16.184, 1.014)
pt3dadd(97.263, 70.89, -16.277, 1.046)
pt3dadd(97.245, 70.976, -16.339, 1.064)
pt3dadd(97.221, 71.075, -16.392, 1.078)
pt3dadd(97.131, 71.137, -16.422, 1.064)
pt3dadd(97.056, 71.219, -16.445, 1.046)
pt3dadd(97.004, 71.324, -16.468, 1.028)
pt3dadd(96.951, 71.429, -16.49, 1.012)
pt3dadd(96.9, 71.533, -16.512, 0.996)
pt3dadd(96.847, 71.638, -16.534, 0.978)
pt3dadd(96.81, 71.744, -16.569, 0.952)
pt3dadd(96.769, 71.848, -16.604, 0.928)
pt3dadd(96.696, 71.933, -16.641, 0.914)
pt3dadd(96.617, 72.008, -16.68, 0.908)
pt3dadd(96.524, 72.063, -16.723, 0.922)
pt3dadd(96.455, 72.1, -16.79, 0.942)
pt3dadd(96.41, 72.121, -16.881, 0.966)
pt3dadd(96.358, 72.134, -16.97, 1.002)
pt3dadd(96.294, 72.136, -17.054, 1.054)
pt3dadd(96.183, 72.146, -17.09, 1.076)
pt3dadd(96.07, 72.156, -17.124, 1.098)
pt3dadd(96.02, 72.211, -17.189, 1.104)
pt3dadd(95.995, 72.283, -17.266, 1.104)
pt3dadd(95.994, 72.381, -17.321, 1.086)
pt3dadd(95.998, 72.485, -17.372, 1.062)
pt3dadd(95.998, 72.587, -17.424, 1.032)
pt3dadd(95.994, 72.689, -17.477, 0.996)
pt3dadd(95.967, 72.74, -17.551, 0.97)
pt3dadd(95.924, 72.751, -17.644, 0.956)
pt3dadd(95.909, 72.769, -17.742, 0.966)
pt3dadd(95.893, 72.786, -17.84, 0.976)
pt3dadd(95.875, 72.824, -17.933, 1.014)
pt3dadd(95.857, 72.87, -18.024, 1.064)
pt3dadd(95.796, 72.936, -18.076, 1.106)
pt3dadd(95.71, 73.012, -18.106, 1.148)
pt3dadd(95.682, 73.1, -18.164, 1.166)
pt3dadd(95.664, 73.191, -18.228, 1.18)
pt3dadd(95.664, 73.248, -18.315, 1.134)
pt3dadd(95.666, 73.304, -18.403, 1.09)
pt3dadd(95.668, 73.365, -18.489, 1.056)
pt3dadd(95.671, 73.436, -18.567, 1.026)
pt3dadd(95.674, 73.539, -18.618, 1.016)
pt3dadd(95.679, 73.643, -18.667, 1.006)
pt3dadd(95.699, 73.76, -18.681, 1.026)
pt3dadd(95.72, 73.877, -18.695, 1.048)
pt3dadd(95.792, 73.961, -18.704, 1.062)
pt3dadd(95.891, 74.029, -18.709, 1.074)
pt3dadd(95.997, 74.06, -18.734, 1.06)
pt3dadd(96.107, 74.071, -18.771, 1.026)
pt3dadd(96.21, 74.119, -18.804, 0.996)
pt3dadd(96.311, 74.168, -18.837, 0.968)
pt3dadd(96.414, 74.216, -18.87, 0.94)
pt3dadd(96.516, 74.264, -18.903, 0.91)
pt3dadd(96.605, 74.338, -18.927, 0.882)
pt3dadd(96.69, 74.42, -18.947, 0.854)
pt3dadd(96.774, 74.502, -18.967, 0.826)
pt3dadd(96.859, 74.583, -18.987, 0.796)
pt3dadd(96.934, 74.673, -19, 0.766)
pt3dadd(96.991, 74.779, -19, 0.732)
pt3dadd(97.05, 74.883, -19.001, 0.702)
pt3dadd(97.125, 74.977, -19.006, 0.69)
pt3dadd(97.197, 75.07, -19.014, 0.678)
pt3dadd(97.262, 75.137, -19.078, 0.678)
pt3dadd(97.34, 75.188, -19.134, 0.678)
pt3dadd(97.449, 75.203, -19.171, 0.678)
pt3dadd(97.559, 75.224, -19.194, 0.678)
pt3dadd(97.67, 75.26, -19.167, 0.678)
pt3dadd(97.779, 75.296, -19.14, 0.678)
pt3dadd(97.89, 75.333, -19.113, 0.678)
pt3dadd(97.94, 75.437, -19.107, 0.678)
pt3dadd(97.985, 75.548, -19.102, 0.678)
pt3dadd(98.052, 75.646, -19.1, 0.678)
pt3dadd(98.117, 75.747, -19.1, 0.668)
pt3dadd(98.181, 75.848, -19.1, 0.656)
pt3dadd(98.257, 75.942, -19.1, 0.644)
pt3dadd(98.336, 76.032, -19.1, 0.632)
pt3dadd(98.377, 76.14, -19.1, 0.622)
pt3dadd(98.395, 76.259, -19.1, 0.612)
pt3dadd(98.414, 76.378, -19.1, 0.604)
pt3dadd(98.419, 76.497, -19.1, 0.61)
pt3dadd(98.423, 76.617, -19.1, 0.62)
pt3dadd(98.427, 76.737, -19.1, 0.628)
pt3dadd(98.432, 76.855, -19.118, 0.642)
pt3dadd(98.436, 76.973, -19.136, 0.654)
pt3dadd(98.44, 77.092, -19.146, 0.658)
pt3dadd(98.444, 77.212, -19.157, 0.662)
pt3dadd(98.448, 77.331, -19.167, 0.666)
pt3dadd(98.452, 77.45, -19.178, 0.67)
pt3dadd(98.457, 77.569, -19.188, 0.674)
pt3dadd(98.461, 77.689, -19.199, 0.678)
pt3dadd(98.465, 77.808, -19.2, 0.678)
pt3dadd(98.469, 77.928, -19.2, 0.678)
pt3dadd(98.473, 78.048, -19.2, 0.678)
pt3dadd(98.478, 78.168, -19.2, 0.678)
pt3dadd(98.482, 78.288, -19.2, 0.678)
pt3dadd(98.486, 78.408, -19.2, 0.678)
pt3dadd(98.49, 78.528, -19.2, 0.678)
pt3dadd(98.463, 78.644, -19.2, 0.682)
pt3dadd(98.431, 78.76, -19.2, 0.686)
pt3dadd(98.399, 78.876, -19.2, 0.69)
pt3dadd(98.367, 78.991, -19.2, 0.696)
pt3dadd(98.335, 79.107, -19.2, 0.7)
pt3dadd(98.304, 79.222, -19.206, 0.706)
pt3dadd(98.277, 79.336, -19.226, 0.716)
pt3dadd(98.248, 79.45, -19.246, 0.726)
pt3dadd(98.22, 79.565, -19.266, 0.736)
}
}
proc shape3d_154() {
dend_7[45] { pt3dadd(98.192, 79.679, -19.286, 0.746)
pt3dadd(98.169, 79.794, -19.3, 0.76)
pt3dadd(98.159, 79.914, -19.3, 0.778)
pt3dadd(98.148, 80.034, -19.3, 0.796)
pt3dadd(98.117, 80.13, -19.34, 0.804)
pt3dadd(98.075, 80.214, -19.402, 0.804)
pt3dadd(98.033, 80.232, -19.491, 0.794)
pt3dadd(97.993, 80.24, -19.585, 0.782)
pt3dadd(97.931, 80.257, -19.668, 0.786)
pt3dadd(97.855, 80.28, -19.743, 0.8)
pt3dadd(97.808, 80.361, -19.79, 0.824)
pt3dadd(97.775, 80.469, -19.824, 0.856)
pt3dadd(97.741, 80.577, -19.858, 0.886)
pt3dadd(97.705, 80.674, -19.905, 0.928)
pt3dadd(97.663, 80.758, -19.967, 0.984)
pt3dadd(97.627, 80.862, -19.999, 1.028)
pt3dadd(97.558, 80.955, -20.024, 1.014)
pt3dadd(97.487, 81.047, -20.05, 0.996)
pt3dadd(97.416, 81.138, -20.075, 0.978)
pt3dadd(97.345, 81.23, -20.101, 0.96)
pt3dadd(97.303, 81.295, -20.166, 0.932)
pt3dadd(97.277, 81.343, -20.255, 0.894)
pt3dadd(97.236, 81.409, -20.328, 0.852)
pt3dadd(97.186, 81.487, -20.391, 0.81)
pt3dadd(97.123, 81.585, -20.4, 0.784)
pt3dadd(97.059, 81.687, -20.4, 0.76)
pt3dadd(96.99, 81.784, -20.4, 0.72)
pt3dadd(96.918, 81.881, -20.4, 0.672)
pt3dadd(96.828, 81.956, -20.403, 0.632)
pt3dadd(96.724, 82.016, -20.408, 0.598)
pt3dadd(96.628, 82.07, -20.435, 0.56)
pt3dadd(96.585, 82.092, -20.523, 0.61)
pt3dadd(96.573, 82.096, -20.622, 0.66)
pt3dadd(96.568, 82.118, -20.72, 0.69)
pt3dadd(96.52, 82.175, -20.792, 0.756)
pt3dadd(96.429, 82.199, -20.855, 0.808)
pt3dadd(96.345, 82.224, -20.922, 0.86)
pt3dadd(96.299, 82.252, -21.011, 0.91)
pt3dadd(96.257, 82.289, -21.096, 0.96)
pt3dadd(96.24, 82.386, -21.153, 1.012)
pt3dadd(96.227, 82.482, -21.212, 1.06)
pt3dadd(96.23, 82.576, -21.274, 1.082)
pt3dadd(96.233, 82.67, -21.337, 1.104)
pt3dadd(96.237, 82.763, -21.399, 1.104)
pt3dadd(96.225, 82.837, -21.475, 1.098)
pt3dadd(96.203, 82.9, -21.558, 1.086)
pt3dadd(96.181, 82.963, -21.641, 1.076)
pt3dadd(96.16, 83.025, -21.725, 1.064)
pt3dadd(96.141, 83.09, -21.807, 1.054)
pt3dadd(96.141, 83.169, -21.883, 1.038)
pt3dadd(96.141, 83.248, -21.958, 1.022)
pt3dadd(96.141, 83.327, -22.033, 1.006)
pt3dadd(96.141, 83.406, -22.108, 0.992)
pt3dadd(96.142, 83.491, -22.178, 0.974)
pt3dadd(96.145, 83.594, -22.228, 0.952)
pt3dadd(96.149, 83.697, -22.279, 0.928)
pt3dadd(96.131, 83.788, -22.343, 0.902)
pt3dadd(96.107, 83.877, -22.405, 0.878)
pt3dadd(96.033, 83.949, -22.457, 0.862)
pt3dadd(95.949, 84.016, -22.491, 0.846)
pt3dadd(95.844, 84.076, -22.496, 0.822)
pt3dadd(95.744, 84.138, -22.507, 0.802)
pt3dadd(95.655, 84.211, -22.535, 0.794)
pt3dadd(95.565, 84.284, -22.564, 0.786)
pt3dadd(95.487, 84.359, -22.598, 0.774)
pt3dadd(95.462, 84.453, -22.657, 0.748)
pt3dadd(95.433, 84.532, -22.724, 0.718)
pt3dadd(95.38, 84.612, -22.771, 0.694)
pt3dadd(95.321, 84.712, -22.794, 0.682)
pt3dadd(95.257, 84.802, -22.833, 0.668)
pt3dadd(95.192, 84.888, -22.877, 0.654)
pt3dadd(95.136, 84.897, -22.964, 0.63)
pt3dadd(95.081, 84.905, -23.052, 0.606)
pt3dadd(95.016, 84.946, -23.129, 0.58)
pt3dadd(94.951, 84.992, -23.204, 0.552)
pt3dadd(94.903, 85.023, -23.292, 0.544)
pt3dadd(94.855, 85.053, -23.38, 0.536)
pt3dadd(94.808, 85.083, -23.468, 0.53)
pt3dadd(94.788, 85.181, -23.492, 0.52)
pt3dadd(94.776, 85.301, -23.497, 0.51)
pt3dadd(94.766, 85.42, -23.5, 0.486)
pt3dadd(94.746, 85.537, -23.5, 0.402)
pt3dadd(94.703, 85.65, -23.5, 0.314)
pt3dadd(94.66, 85.762, -23.5, 0.226)
}
dend_7[46] {pt3dclear()
pt3dadd(96.761, 83.647, -1.511, 1.306)
pt3dadd(96.692, 83.63, -1.47, 1.256)
pt3dadd(96.596, 83.607, -1.413, 1.186)
pt3dadd(96.5, 83.583, -1.356, 1.116)
pt3dadd(96.405, 83.56, -1.299, 1.046)
pt3dadd(96.308, 83.537, -1.243, 0.976)
pt3dadd(96.212, 83.513, -1.186, 0.906)
pt3dadd(96.117, 83.49, -1.129, 0.836)
pt3dadd(96.021, 83.466, -1.072, 0.766)
pt3dadd(95.925, 83.443, -1.015, 0.696)
pt3dadd(95.897, 83.349, -1, 0.72)
pt3dadd(95.892, 83.229, -1, 0.778)
pt3dadd(95.888, 83.109, -1, 0.836)
pt3dadd(95.884, 82.989, -1, 0.892)
pt3dadd(95.88, 82.869, -1, 0.95)
pt3dadd(95.876, 82.749, -1, 1.008)
pt3dadd(95.872, 82.629, -1, 1.064)
pt3dadd(95.854, 82.51, -1, 1.074)
pt3dadd(95.833, 82.392, -1, 1.066)
pt3dadd(95.812, 82.274, -1, 1.058)
pt3dadd(95.79, 82.156, -1, 1.05)
pt3dadd(95.769, 82.038, -1, 1.042)
pt3dadd(95.747, 81.92, -1, 1.034)
pt3dadd(95.735, 81.806, -0.979, 1.014)
pt3dadd(95.728, 81.695, -0.941, 0.986)
pt3dadd(95.722, 81.584, -0.903, 0.956)
pt3dadd(95.716, 81.473, -0.865, 0.928)
pt3dadd(95.71, 81.362, -0.827, 0.9)
pt3dadd(95.703, 81.252, -0.79, 0.872)
pt3dadd(95.7, 81.14, -0.752, 0.844)
pt3dadd(95.696, 81.029, -0.715, 0.816)
pt3dadd(95.692, 80.917, -0.678, 0.788)
pt3dadd(95.688, 80.806, -0.641, 0.76)
pt3dadd(95.684, 80.695, -0.604, 0.732)
pt3dadd(95.669, 80.577, -0.6, 0.724)
pt3dadd(95.652, 80.458, -0.6, 0.72)
pt3dadd(95.635, 80.339, -0.6, 0.716)
pt3dadd(95.618, 80.22, -0.6, 0.712)
pt3dadd(95.602, 80.101, -0.6, 0.708)
pt3dadd(95.585, 79.983, -0.6, 0.704)
pt3dadd(95.558, 79.866, -0.6, 0.708)
pt3dadd(95.52, 79.752, -0.6, 0.716)
pt3dadd(95.484, 79.638, -0.6, 0.726)
pt3dadd(95.446, 79.524, -0.6, 0.734)
pt3dadd(95.41, 79.409, -0.6, 0.744)
pt3dadd(95.373, 79.295, -0.6, 0.752)
pt3dadd(95.329, 79.184, -0.6, 0.762)
pt3dadd(95.283, 79.073, -0.6, 0.77)
pt3dadd(95.238, 78.962, -0.6, 0.78)
pt3dadd(95.192, 78.851, -0.6, 0.788)
pt3dadd(95.146, 78.74, -0.6, 0.798)
pt3dadd(95.078, 78.648, -0.6, 0.814)
pt3dadd(94.976, 78.583, -0.6, 0.836)
pt3dadd(94.88, 78.514, -0.6, 0.86)
pt3dadd(94.796, 78.429, -0.6, 0.884)
pt3dadd(94.717, 78.339, -0.6, 0.908)
pt3dadd(94.68, 78.225, -0.6, 0.94)
pt3dadd(94.643, 78.111, -0.6, 0.97)
pt3dadd(94.629, 77.993, -0.6, 0.98)
pt3dadd(94.625, 77.873, -0.6, 0.98)
pt3dadd(94.621, 77.753, -0.6, 0.98)
pt3dadd(94.616, 77.633, -0.6, 0.944)
pt3dadd(94.612, 77.513, -0.6, 0.894)
pt3dadd(94.608, 77.393, -0.6, 0.85)
pt3dadd(94.604, 77.273, -0.6, 0.808)
pt3dadd(94.6, 77.154, -0.6, 0.766)
pt3dadd(94.596, 77.034, -0.6, 0.742)
pt3dadd(94.591, 76.914, -0.6, 0.724)
pt3dadd(94.587, 76.794, -0.6, 0.708)
pt3dadd(94.579, 76.674, -0.6, 0.728)
pt3dadd(94.572, 76.554, -0.6, 0.762)
pt3dadd(94.563, 76.435, -0.6, 0.798)
pt3dadd(94.478, 76.36, -0.6, 0.852)
pt3dadd(94.376, 76.296, -0.6, 0.91)
pt3dadd(94.285, 76.22, -0.6, 0.976)
pt3dadd(94.216, 76.129, -0.6, 1.03)
pt3dadd(94.207, 76.009, -0.6, 1.03)
pt3dadd(94.198, 75.889, -0.6, 1.03)
pt3dadd(94.186, 75.77, -0.6, 1.02)
pt3dadd(94.167, 75.652, -0.6, 0.992)
pt3dadd(94.148, 75.533, -0.6, 0.964)
pt3dadd(94.103, 75.423, -0.6, 0.932)
pt3dadd(94.047, 75.318, -0.6, 0.898)
pt3dadd(93.979, 75.22, -0.602, 0.868)
pt3dadd(93.897, 75.132, -0.608, 0.844)
pt3dadd(93.816, 75.052, -0.629, 0.852)
pt3dadd(93.743, 74.976, -0.668, 0.906)
pt3dadd(93.704, 74.863, -0.674, 0.916)
pt3dadd(93.666, 74.749, -0.68, 0.924)
pt3dadd(93.626, 74.636, -0.687, 0.934)
pt3dadd(93.587, 74.523, -0.693, 0.944)
pt3dadd(93.548, 74.41, -0.699, 0.952)
pt3dadd(93.539, 74.291, -0.7, 0.954)
pt3dadd(93.535, 74.171, -0.7, 0.954)
pt3dadd(93.531, 74.051, -0.7, 0.954)
pt3dadd(93.527, 73.931, -0.7, 0.954)
pt3dadd(93.522, 73.811, -0.7, 0.954)
pt3dadd(93.518, 73.691, -0.7, 0.954)
pt3dadd(93.514, 73.571, -0.7, 0.954)
pt3dadd(93.505, 73.452, -0.7, 0.934)
pt3dadd(93.495, 73.332, -0.7, 0.912)
pt3dadd(93.485, 73.212, -0.7, 0.89)
pt3dadd(93.474, 73.093, -0.7, 0.868)
pt3dadd(93.464, 72.973, -0.7, 0.844)
pt3dadd(93.454, 72.854, -0.7, 0.822)
pt3dadd(93.439, 72.735, -0.699, 0.794)
pt3dadd(93.4, 72.622, -0.694, 0.74)
pt3dadd(93.362, 72.508, -0.69, 0.686)
pt3dadd(93.336, 72.399, -0.657, 0.658)
pt3dadd(93.313, 72.29, -0.619, 0.632)
pt3dadd(93.23, 72.214, -0.607, 0.648)
pt3dadd(93.132, 72.147, -0.602, 0.672)
pt3dadd(93.038, 72.082, -0.573, 0.698)
pt3dadd(92.947, 72.018, -0.536, 0.726)
pt3dadd(92.882, 71.919, -0.524, 0.734)
pt3dadd(92.821, 71.816, -0.515, 0.742)
}
}
proc shape3d_155() {
dend_7[46] { pt3dadd(92.759, 71.714, -0.505, 0.75)
pt3dadd(92.722, 71.604, -0.5, 0.744)
pt3dadd(92.713, 71.484, -0.5, 0.728)
pt3dadd(92.706, 71.364, -0.5, 0.71)
pt3dadd(92.662, 71.26, -0.484, 0.68)
pt3dadd(92.589, 71.191, -0.443, 0.626)
pt3dadd(92.511, 71.188, -0.368, 0.628)
pt3dadd(92.456, 71.185, -0.28, 0.662)
pt3dadd(92.39, 71.153, -0.201, 0.678)
pt3dadd(92.349, 71.086, -0.126, 0.678)
pt3dadd(92.318, 71.016, -0.049, 0.678)
pt3dadd(92.28, 70.925, -0.009, 0.678)
pt3dadd(92.235, 70.814, -0.004, 0.678)
pt3dadd(92.191, 70.702, 0, 0.686)
pt3dadd(92.154, 70.588, 0, 0.708)
pt3dadd(92.114, 70.475, 0, 0.716)
pt3dadd(92.074, 70.362, 0, 0.726)
pt3dadd(92.034, 70.249, 0, 0.734)
pt3dadd(91.994, 70.136, 0, 0.744)
pt3dadd(91.954, 70.022, 0, 0.752)
pt3dadd(91.932, 69.905, 0, 0.764)
pt3dadd(91.913, 69.786, 0, 0.776)
pt3dadd(91.894, 69.668, 0, 0.788)
pt3dadd(91.875, 69.549, 0, 0.8)
pt3dadd(91.857, 69.431, 0, 0.812)
pt3dadd(91.837, 69.312, 0, 0.824)
pt3dadd(91.793, 69.203, 0.001, 0.832)
pt3dadd(91.731, 69.1, 0.004, 0.836)
pt3dadd(91.67, 68.997, 0.006, 0.842)
pt3dadd(91.608, 68.894, 0.008, 0.846)
pt3dadd(91.547, 68.79, 0.01, 0.852)
pt3dadd(91.489, 68.695, 0.037, 0.854)
pt3dadd(91.434, 68.607, 0.087, 0.854)
pt3dadd(91.384, 68.515, 0.136, 0.834)
pt3dadd(91.336, 68.422, 0.185, 0.806)
pt3dadd(91.314, 68.306, 0.193, 0.804)
pt3dadd(91.296, 68.187, 0.197, 0.804)
pt3dadd(91.279, 68.069, 0.2, 0.8)
pt3dadd(91.27, 67.949, 0.2, 0.792)
pt3dadd(91.261, 67.829, 0.2, 0.784)
pt3dadd(91.231, 67.716, 0.2, 0.778)
pt3dadd(91.173, 67.611, 0.2, 0.778)
pt3dadd(91.131, 67.501, 0.217, 0.774)
pt3dadd(91.089, 67.39, 0.235, 0.768)
pt3dadd(91.048, 67.28, 0.254, 0.764)
pt3dadd(91.005, 67.17, 0.272, 0.758)
pt3dadd(90.963, 67.059, 0.289, 0.754)
pt3dadd(90.923, 66.946, 0.291, 0.762)
pt3dadd(90.882, 66.834, 0.293, 0.772)
pt3dadd(90.842, 66.721, 0.295, 0.782)
pt3dadd(90.801, 66.608, 0.297, 0.79)
pt3dadd(90.761, 66.495, 0.299, 0.8)
pt3dadd(90.732, 66.379, 0.3, 0.81)
pt3dadd(90.71, 66.261, 0.3, 0.822)
pt3dadd(90.689, 66.143, 0.3, 0.836)
pt3dadd(90.668, 66.025, 0.3, 0.848)
pt3dadd(90.646, 65.907, 0.3, 0.86)
pt3dadd(90.625, 65.788, 0.3, 0.872)
pt3dadd(90.601, 65.671, 0.3, 0.882)
pt3dadd(90.574, 65.554, 0.3, 0.89)
pt3dadd(90.549, 65.437, 0.3, 0.9)
pt3dadd(90.522, 65.32, 0.3, 0.908)
pt3dadd(90.496, 65.203, 0.3, 0.916)
pt3dadd(90.469, 65.085, 0.3, 0.924)
pt3dadd(90.452, 64.967, 0.3, 0.922)
pt3dadd(90.448, 64.847, 0.3, 0.906)
pt3dadd(90.444, 64.727, 0.3, 0.888)
pt3dadd(90.433, 64.608, 0.3, 0.868)
pt3dadd(90.415, 64.49, 0.3, 0.84)
pt3dadd(90.395, 64.371, 0.3, 0.812)
pt3dadd(90.329, 64.277, 0.3, 0.786)
pt3dadd(90.245, 64.192, 0.3, 0.762)
pt3dadd(90.144, 64.132, 0.3, 0.76)
pt3dadd(90.031, 64.089, 0.3, 0.77)
pt3dadd(89.942, 64.025, 0.3, 0.78)
pt3dadd(89.905, 63.911, 0.3, 0.786)
pt3dadd(89.868, 63.797, 0.3, 0.792)
pt3dadd(89.831, 63.682, 0.3, 0.798)
pt3dadd(89.799, 63.567, 0.3, 0.808)
pt3dadd(89.78, 63.449, 0.3, 0.828)
pt3dadd(89.761, 63.33, 0.3, 0.846)
pt3dadd(89.72, 63.219, 0.3, 0.854)
pt3dadd(89.7, 63.104, 0.288, 0.85)
pt3dadd(89.69, 62.985, 0.272, 0.846)
pt3dadd(89.679, 62.867, 0.257, 0.842)
pt3dadd(89.667, 62.749, 0.242, 0.838)
pt3dadd(89.657, 62.631, 0.227, 0.834)
pt3dadd(89.646, 62.513, 0.212, 0.828)
pt3dadd(89.617, 62.411, 0.166, 0.812)
pt3dadd(89.587, 62.309, 0.12, 0.796)
pt3dadd(89.557, 62.207, 0.073, 0.78)
pt3dadd(89.527, 62.105, 0.027, 0.762)
pt3dadd(89.508, 61.996, -0.007, 0.75)
pt3dadd(89.503, 61.878, -0.023, 0.742)
pt3dadd(89.499, 61.759, -0.04, 0.734)
pt3dadd(89.495, 61.641, -0.056, 0.726)
pt3dadd(89.491, 61.523, -0.073, 0.716)
pt3dadd(89.487, 61.405, -0.089, 0.708)
pt3dadd(89.483, 61.286, -0.1, 0.698)
pt3dadd(89.479, 61.166, -0.1, 0.68)
pt3dadd(89.474, 61.046, -0.1, 0.664)
pt3dadd(89.471, 60.926, -0.1, 0.646)
pt3dadd(89.472, 60.806, -0.1, 0.63)
pt3dadd(89.473, 60.686, -0.1, 0.612)
pt3dadd(89.499, 60.572, -0.1, 0.592)
pt3dadd(89.556, 60.467, -0.1, 0.57)
pt3dadd(89.613, 60.361, -0.1, 0.552)
pt3dadd(89.67, 60.256, -0.1, 0.552)
pt3dadd(89.729, 60.152, -0.099, 0.554)
pt3dadd(89.81, 60.066, -0.081, 0.58)
pt3dadd(89.885, 59.982, -0.055, 0.616)
pt3dadd(89.913, 59.918, 0.025, 0.674)
pt3dadd(89.914, 59.883, 0.12, 0.68)
pt3dadd(89.914, 59.869, 0.219, 0.708)
pt3dadd(89.913, 59.848, 0.318, 0.738)
pt3dadd(89.911, 59.805, 0.411, 0.728)
pt3dadd(89.91, 59.752, 0.5, 0.678)
}
dend_7[47] {pt3dclear()
pt3dadd(104.333, 95.449, 6.084, 0.756)
pt3dadd(104.303, 95.45, 6.049, 0.774)
pt3dadd(104.229, 95.446, 5.967, 0.824)
pt3dadd(104.155, 95.441, 5.885, 0.876)
pt3dadd(104.081, 95.436, 5.803, 0.928)
pt3dadd(104.007, 95.431, 5.721, 0.978)
pt3dadd(103.933, 95.426, 5.639, 1.028)
pt3dadd(103.859, 95.421, 5.557, 1.08)
pt3dadd(103.786, 95.417, 5.474, 1.13)
pt3dadd(103.764, 95.418, 5.373, 1.13)
pt3dadd(103.742, 95.42, 5.272, 1.13)
pt3dadd(103.68, 95.422, 5.199, 1.13)
pt3dadd(103.566, 95.424, 5.164, 1.13)
pt3dadd(103.45, 95.426, 5.128, 1.13)
pt3dadd(103.334, 95.428, 5.098, 1.13)
pt3dadd(103.217, 95.43, 5.068, 1.13)
pt3dadd(103.097, 95.431, 5.048, 1.13)
pt3dadd(102.977, 95.433, 5.033, 1.13)
pt3dadd(102.856, 95.435, 5.018, 1.13)
pt3dadd(102.742, 95.437, 4.98, 1.13)
pt3dadd(102.626, 95.439, 4.955, 1.13)
pt3dadd(102.504, 95.441, 4.949, 1.13)
pt3dadd(102.383, 95.442, 4.943, 1.13)
pt3dadd(102.261, 95.444, 4.937, 1.13)
pt3dadd(102.14, 95.446, 4.932, 1.13)
pt3dadd(102.018, 95.448, 4.926, 1.13)
pt3dadd(101.897, 95.45, 4.92, 1.13)
pt3dadd(101.785, 95.452, 4.885, 1.13)
pt3dadd(101.68, 95.454, 4.832, 1.13)
pt3dadd(101.574, 95.455, 4.78, 1.13)
pt3dadd(101.469, 95.457, 4.727, 1.13)
pt3dadd(101.363, 95.459, 4.675, 1.13)
pt3dadd(101.25, 95.461, 4.641, 1.13)
pt3dadd(101.13, 95.463, 4.626, 1.13)
pt3dadd(101.009, 95.465, 4.611, 1.13)
pt3dadd(100.891, 95.467, 4.584, 1.13)
pt3dadd(100.775, 95.468, 4.554, 1.13)
pt3dadd(100.66, 95.486, 4.526, 1.13)
pt3dadd(100.548, 95.526, 4.502, 1.13)
pt3dadd(100.546, 95.528, 4.499, 1.13)
pt3dadd(100.545, 95.53, 4.497, 1.13)
pt3dadd(100.452, 95.59, 4.465, 1.13)
pt3dadd(100.451, 95.592, 4.463, 1.13)
pt3dadd(100.398, 95.689, 4.417, 1.13)
pt3dadd(100.326, 95.777, 4.381, 1.13)
pt3dadd(100.239, 95.857, 4.353, 1.13)
pt3dadd(100.151, 95.936, 4.325, 1.13)
pt3dadd(100.078, 96.004, 4.274, 1.13)
pt3dadd(100.025, 96.058, 4.192, 1.13)
pt3dadd(99.993, 96.09, 4.098, 1.13)
pt3dadd(99.9, 96.094, 4.044, 1.13)
pt3dadd(99.789, 96.096, 3.999, 1.13)
pt3dadd(99.679, 96.098, 3.954, 1.13)
pt3dadd(99.569, 96.1, 3.909, 1.13)
pt3dadd(99.458, 96.102, 3.865, 1.13)
pt3dadd(99.359, 96.104, 3.806, 1.13)
pt3dadd(99.27, 96.105, 3.735, 1.13)
pt3dadd(99.17, 96.107, 3.679, 1.13)
pt3dadd(99.055, 96.109, 3.644, 1.13)
pt3dadd(98.943, 96.111, 3.605, 1.13)
pt3dadd(98.871, 96.113, 3.522, 1.13)
pt3dadd(98.799, 96.115, 3.438, 1.13)
pt3dadd(98.784, 96.117, 3.336, 1.13)
pt3dadd(98.783, 96.118, 3.334, 1.13)
pt3dadd(98.662, 96.124, 3.314, 0.314)
pt3dadd(98.543, 96.13, 3.294, 0.4)
pt3dadd(98.45, 96.118, 3.248, 0.484)
pt3dadd(98.398, 96.079, 3.161, 0.566)
pt3dadd(98.352, 96.052, 3.07, 0.634)
pt3dadd(98.313, 96.037, 2.974, 0.694)
pt3dadd(98.288, 96.028, 2.875, 0.746)
pt3dadd(98.286, 96.03, 2.772, 0.788)
pt3dadd(98.285, 96.032, 2.669, 0.828)
pt3dadd(98.267, 96.034, 2.569, 0.864)
pt3dadd(98.224, 96.038, 2.473, 0.89)
pt3dadd(98.182, 96.041, 2.376, 0.916)
pt3dadd(98.14, 96.044, 2.28, 0.942)
pt3dadd(98.058, 96.057, 2.223, 0.976)
pt3dadd(97.94, 96.08, 2.207, 1.018)
pt3dadd(97.824, 96.108, 2.19, 1.068)
pt3dadd(97.726, 96.169, 2.157, 1.136)
pt3dadd(97.631, 96.225, 2.11, 1.148)
pt3dadd(97.537, 96.28, 2.063, 1.16)
}
}
proc shape3d_156() {
dend_7[47] { pt3dadd(97.442, 96.336, 2.016, 1.172)
pt3dadd(97.349, 96.393, 1.968, 1.18)
pt3dadd(97.26, 96.452, 1.917, 1.18)
pt3dadd(97.17, 96.512, 1.866, 1.18)
pt3dadd(97.082, 96.571, 1.815, 1.18)
pt3dadd(97.08, 96.573, 1.813, 1.18)
pt3dadd(96.988, 96.633, 1.766, 1.178)
pt3dadd(96.883, 96.694, 1.758, 1.142)
pt3dadd(96.778, 96.756, 1.75, 1.106)
pt3dadd(96.682, 96.813, 1.707, 1.04)
pt3dadd(96.589, 96.874, 1.665, 0.97)
pt3dadd(96.51, 96.966, 1.651, 0.908)
pt3dadd(96.434, 97.049, 1.627, 0.846)
pt3dadd(96.37, 97.082, 1.542, 0.792)
pt3dadd(96.304, 97.117, 1.46, 0.748)
pt3dadd(96.233, 97.161, 1.384, 0.732)
pt3dadd(96.163, 97.205, 1.307, 0.716)
pt3dadd(96.081, 97.24, 1.244, 0.698)
pt3dadd(95.96, 97.246, 1.225, 0.68)
pt3dadd(95.841, 97.252, 1.205, 0.66)
pt3dadd(95.728, 97.257, 1.167, 0.674)
pt3dadd(95.608, 97.263, 1.156, 0.692)
pt3dadd(95.487, 97.269, 1.148, 0.706)
pt3dadd(95.366, 97.275, 1.141, 0.722)
pt3dadd(95.245, 97.281, 1.133, 0.736)
pt3dadd(95.123, 97.288, 1.125, 0.752)
pt3dadd(95.002, 97.294, 1.118, 0.766)
pt3dadd(94.88, 97.3, 1.115, 0.786)
pt3dadd(94.761, 97.306, 1.129, 0.824)
pt3dadd(94.641, 97.312, 1.143, 0.86)
pt3dadd(94.64, 97.313, 1.14, 0.86)
pt3dadd(94.519, 97.319, 1.154, 0.898)
pt3dadd(94.4, 97.325, 1.168, 0.936)
pt3dadd(94.28, 97.331, 1.182, 0.972)
pt3dadd(94.161, 97.34, 1.193, 1.008)
pt3dadd(94.042, 97.366, 1.191, 1.032)
pt3dadd(94.04, 97.368, 1.188, 1.032)
pt3dadd(93.92, 97.393, 1.185, 1.058)
pt3dadd(93.802, 97.419, 1.183, 1.082)
pt3dadd(93.683, 97.445, 1.18, 1.106)
pt3dadd(93.563, 97.47, 1.178, 1.132)
pt3dadd(93.445, 97.497, 1.175, 1.156)
pt3dadd(93.333, 97.548, 1.172, 1.156)
pt3dadd(93.222, 97.598, 1.17, 1.156)
pt3dadd(93.11, 97.648, 1.167, 1.156)
pt3dadd(93, 97.699, 1.164, 1.156)
pt3dadd(92.888, 97.749, 1.162, 1.156)
pt3dadd(92.771, 97.77, 1.147, 1.142)
pt3dadd(92.652, 97.775, 1.126, 1.12)
pt3dadd(92.533, 97.781, 1.105, 1.1)
pt3dadd(92.413, 97.787, 1.084, 1.078)
pt3dadd(92.294, 97.793, 1.062, 1.058)
pt3dadd(92.175, 97.799, 1.041, 1.036)
pt3dadd(92.056, 97.819, 1.021, 1.024)
pt3dadd(91.939, 97.844, 1.002, 1.014)
pt3dadd(91.822, 97.87, 0.983, 1.004)
pt3dadd(91.704, 97.896, 0.964, 0.996)
pt3dadd(91.587, 97.922, 0.945, 0.986)
pt3dadd(91.469, 97.944, 0.931, 0.982)
pt3dadd(91.348, 97.958, 0.928, 0.994)
pt3dadd(91.227, 97.972, 0.925, 1.006)
pt3dadd(91.105, 97.986, 0.923, 1.018)
pt3dadd(90.984, 98.001, 0.92, 1.028)
pt3dadd(90.864, 98.015, 0.918, 1.04)
pt3dadd(90.743, 98.029, 0.915, 1.052)
pt3dadd(90.626, 98.063, 0.912, 1.068)
pt3dadd(90.512, 98.105, 0.91, 1.086)
pt3dadd(90.397, 98.146, 0.907, 1.104)
pt3dadd(90.282, 98.188, 0.905, 1.122)
pt3dadd(90.168, 98.229, 0.902, 1.14)
pt3dadd(90.055, 98.276, 0.899, 1.156)
pt3dadd(89.958, 98.35, 0.897, 1.156)
pt3dadd(89.86, 98.424, 0.894, 1.156)
pt3dadd(89.764, 98.499, 0.892, 1.156)
pt3dadd(89.667, 98.573, 0.889, 1.156)
pt3dadd(89.571, 98.649, 0.886, 1.152)
pt3dadd(89.483, 98.734, 0.884, 1.132)
pt3dadd(89.396, 98.82, 0.881, 1.112)
pt3dadd(89.308, 98.905, 0.879, 1.092)
pt3dadd(89.221, 98.991, 0.876, 1.072)
pt3dadd(89.129, 99.071, 0.873, 1.054)
pt3dadd(89.019, 99.124, 0.871, 1.044)
pt3dadd(88.909, 99.177, 0.868, 1.034)
pt3dadd(88.799, 99.231, 0.866, 1.024)
pt3dadd(88.69, 99.284, 0.863, 1.016)
pt3dadd(88.58, 99.337, 0.86, 1.006)
pt3dadd(88.486, 99.415, 0.858, 1.016)
pt3dadd(88.396, 99.498, 0.855, 1.032)
pt3dadd(88.306, 99.581, 0.853, 1.048)
pt3dadd(88.216, 99.664, 0.85, 1.062)
pt3dadd(88.126, 99.747, 0.847, 1.078)
pt3dadd(88.019, 99.804, 0.845, 1.114)
pt3dadd(87.909, 99.857, 0.842, 1.15)
pt3dadd(87.799, 99.911, 0.84, 1.188)
pt3dadd(87.689, 99.964, 0.837, 1.226)
pt3dadd(87.579, 100.017, 0.834, 1.264)
pt3dadd(87.471, 100.074, 0.832, 1.318)
pt3dadd(87.364, 100.133, 0.829, 1.386)
pt3dadd(87.253, 100.18, 0.827, 1.44)
pt3dadd(87.132, 100.201, 0.824, 1.468)
pt3dadd(87.013, 100.222, 0.821, 1.496)
pt3dadd(86.902, 100.233, 0.787, 1.514)
pt3dadd(86.797, 100.238, 0.734, 1.526)
pt3dadd(86.717, 100.243, 0.663, 1.528)
pt3dadd(86.669, 100.246, 0.568, 1.516)
pt3dadd(86.613, 100.258, 0.483, 1.504)
pt3dadd(86.511, 100.317, 0.456, 1.488)
pt3dadd(86.406, 100.376, 0.429, 1.474)
pt3dadd(86.304, 100.434, 0.403, 1.458)
pt3dadd(86.235, 100.534, 0.398, 1.414)
pt3dadd(86.169, 100.637, 0.395, 1.368)
pt3dadd(86.064, 100.688, 0.393, 1.356)
pt3dadd(85.947, 100.722, 0.39, 1.356)
pt3dadd(85.83, 100.756, 0.388, 1.356)
pt3dadd(85.714, 100.786, 0.371, 1.362)
pt3dadd(85.602, 100.81, 0.337, 1.372)
pt3dadd(85.496, 100.85, 0.302, 1.408)
pt3dadd(85.405, 100.921, 0.267, 1.422)
pt3dadd(85.312, 100.991, 0.234, 1.408)
pt3dadd(85.237, 101.028, 0.161, 1.406)
pt3dadd(85.166, 101.061, 0.081, 1.406)
pt3dadd(85.065, 101.129, 0.073, 1.43)
pt3dadd(84.963, 101.198, 0.065, 1.454)
pt3dadd(84.852, 101.246, 0.062, 1.504)
pt3dadd(84.739, 101.292, 0.059, 1.558)
pt3dadd(84.621, 101.316, 0.056, 1.608)
pt3dadd(84.499, 101.322, 0.054, 1.66)
pt3dadd(84.379, 101.337, 0.051, 1.68)
pt3dadd(84.259, 101.361, 0.049, 1.676)
pt3dadd(84.14, 101.384, 0.046, 1.672)
pt3dadd(84.02, 101.407, 0.043, 1.668)
pt3dadd(83.901, 101.431, 0.041, 1.664)
pt3dadd(83.781, 101.454, 0.038, 1.66)
pt3dadd(83.661, 101.479, 0.036, 1.646)
pt3dadd(83.543, 101.507, 0.033, 1.612)
pt3dadd(83.425, 101.535, 0.03, 1.578)
pt3dadd(83.306, 101.563, 0.028, 1.544)
pt3dadd(83.187, 101.592, 0.025, 1.512)
pt3dadd(83.069, 101.62, 0.023, 1.478)
pt3dadd(82.949, 101.64, 0.02, 1.42)
pt3dadd(82.827, 101.646, 0.017, 1.318)
pt3dadd(82.706, 101.652, 0.015, 1.218)
pt3dadd(82.586, 101.66, 0.008, 1.116)
pt3dadd(82.465, 101.671, -0.008, 1.008)
pt3dadd(82.344, 101.682, -0.023, 0.902)
pt3dadd(82.259, 101.73, -0.079, 0.822)
pt3dadd(82.185, 101.787, -0.145, 0.754)
pt3dadd(82.134, 101.843, -0.227, 0.754)
pt3dadd(82.069, 101.895, -0.293, 0.758)
pt3dadd(81.957, 101.939, -0.298, 0.776)
pt3dadd(81.842, 101.983, -0.304, 0.796)
pt3dadd(81.728, 102.026, -0.309, 0.816)
pt3dadd(81.613, 102.064, -0.314, 0.836)
pt3dadd(81.493, 102.09, -0.316, 0.854)
pt3dadd(81.375, 102.117, -0.319, 0.874)
pt3dadd(81.373, 102.118, -0.322, 0.874)
pt3dadd(81.263, 102.17, -0.324, 0.878)
pt3dadd(81.143, 102.191, -0.327, 0.87)
pt3dadd(81.024, 102.211, -0.329, 0.86)
pt3dadd(80.907, 102.227, -0.346, 0.854)
pt3dadd(80.798, 102.233, -0.393, 0.854)
pt3dadd(80.693, 102.245, -0.442, 0.858)
pt3dadd(80.692, 102.246, -0.444, 0.858)
pt3dadd(80.632, 102.327, -0.505, 0.9)
pt3dadd(80.581, 102.418, -0.557, 0.946)
pt3dadd(80.55, 102.529, -0.593, 0.998)
pt3dadd(80.492, 102.616, -0.628, 1.038)
pt3dadd(80.385, 102.663, -0.661, 1.062)
pt3dadd(80.278, 102.709, -0.695, 1.084)
pt3dadd(80.17, 102.752, -0.726, 1.106)
pt3dadd(80.05, 102.763, -0.742, 1.126)
pt3dadd(79.93, 102.774, -0.757, 1.146)
pt3dadd(79.831, 102.827, -0.772, 1.166)
pt3dadd(79.75, 102.919, -0.788, 1.184)
pt3dadd(79.67, 103.01, -0.803, 1.204)
pt3dadd(79.628, 103.116, -0.839, 1.23)
pt3dadd(79.588, 103.224, -0.876, 1.256)
pt3dadd(79.516, 103.321, -0.886, 1.168)
pt3dadd(79.448, 103.418, -0.914, 1.12)
pt3dadd(79.379, 103.514, -0.942, 1.074)
pt3dadd(79.31, 103.611, -0.971, 1.028)
pt3dadd(79.242, 103.707, -0.999, 0.982)
pt3dadd(79.172, 103.804, -1.022, 0.922)
pt3dadd(79.101, 103.902, -1.044, 0.86)
pt3dadd(79.031, 103.999, -1.067, 0.796)
pt3dadd(78.961, 104.096, -1.089, 0.734)
pt3dadd(78.888, 104.194, -1.102, 0.668)
pt3dadd(78.816, 104.292, -1.105, 0.598)
pt3dadd(78.736, 104.383, -1.107, 0.548)
pt3dadd(78.643, 104.463, -1.11, 0.536)
pt3dadd(78.549, 104.542, -1.116, 0.536)
pt3dadd(78.454, 104.616, -1.136, 0.574)
pt3dadd(78.378, 104.683, -1.176, 0.61)
pt3dadd(78.352, 104.732, -1.268, 0.636)
pt3dadd(78.327, 104.783, -1.36, 0.66)
pt3dadd(78.306, 104.836, -1.452, 0.688)
pt3dadd(78.249, 104.89, -1.497, 0.744)
pt3dadd(78.155, 104.939, -1.453, 0.902)
pt3dadd(78.06, 105.002, -1.42, 1.03)
pt3dadd(77.962, 105.049, -1.379, 0.994)
}
}
proc shape3d_157() {
dend_7[47] { pt3dadd(77.864, 105.104, -1.342, 0.956)
pt3dadd(77.765, 105.159, -1.309, 0.93)
pt3dadd(77.664, 105.219, -1.279, 0.902)
pt3dadd(77.575, 105.275, -1.276, 0.878)
pt3dadd(77.516, 105.323, -1.358, 0.878)
pt3dadd(77.438, 105.372, -1.417, 0.884)
pt3dadd(77.33, 105.425, -1.441, 0.896)
pt3dadd(77.222, 105.476, -1.457, 0.932)
pt3dadd(77.109, 105.525, -1.459, 0.996)
pt3dadd(77.004, 105.585, -1.462, 1.018)
pt3dadd(76.898, 105.648, -1.465, 1.032)
pt3dadd(76.793, 105.71, -1.467, 1.046)
pt3dadd(76.688, 105.772, -1.47, 1.06)
pt3dadd(76.583, 105.834, -1.472, 1.076)
pt3dadd(76.475, 105.888, -1.486, 1.098)
pt3dadd(76.365, 105.939, -1.505, 1.122)
pt3dadd(76.273, 105.994, -1.55, 1.14)
pt3dadd(76.19, 106.052, -1.609, 1.154)
pt3dadd(76.128, 106.101, -1.688, 1.168)
pt3dadd(76.073, 106.149, -1.771, 1.18)
pt3dadd(76.067, 106.207, -1.862, 1.192)
pt3dadd(76.06, 106.265, -1.952, 1.204)
pt3dadd(76, 106.31, -2.033, 1.19)
pt3dadd(75.934, 106.353, -2.112, 1.174)
pt3dadd(75.868, 106.397, -2.192, 1.158)
pt3dadd(75.867, 106.399, -2.194, 1.158)
pt3dadd(75.792, 106.469, -2.251, 1.13)
pt3dadd(75.711, 106.537, -2.298, 1.104)
pt3dadd(75.594, 106.572, -2.304, 1.096)
pt3dadd(75.477, 106.607, -2.31, 1.088)
pt3dadd(75.361, 106.642, -2.316, 1.08)
pt3dadd(75.249, 106.693, -2.319, 1.11)
pt3dadd(75.139, 106.746, -2.322, 1.144)
pt3dadd(75.031, 106.802, -2.324, 1.22)
pt3dadd(74.924, 106.861, -2.327, 1.24)
pt3dadd(74.817, 106.92, -2.33, 1.252)
pt3dadd(74.727, 106.993, -2.357, 1.238)
pt3dadd(74.645, 107.072, -2.397, 1.208)
pt3dadd(74.632, 107.177, -2.445, 1.184)
pt3dadd(74.628, 107.285, -2.494, 1.162)
pt3dadd(74.617, 107.402, -2.52, 1.148)
pt3dadd(74.603, 107.522, -2.536, 1.136)
pt3dadd(74.561, 107.626, -2.55, 1.13)
pt3dadd(74.464, 107.702, -2.558, 1.13)
pt3dadd(74.367, 107.764, -2.578, 1.13)
pt3dadd(74.295, 107.776, -2.655, 1.13)
pt3dadd(74.257, 107.779, -2.753, 1.128)
pt3dadd(74.212, 107.782, -2.847, 1.086)
pt3dadd(74.131, 107.798, -2.924, 0.99)
pt3dadd(74.028, 107.854, -2.948, 0.946)
pt3dadd(73.923, 107.912, -2.967, 0.908)
pt3dadd(73.816, 107.971, -2.971, 0.864)
pt3dadd(73.709, 108.03, -2.974, 0.82)
pt3dadd(73.603, 108.085, -2.996, 0.778)
pt3dadd(73.499, 108.138, -3.029, 0.738)
pt3dadd(73.401, 108.187, -3.068, 0.7)
pt3dadd(73.347, 108.21, -3.159, 0.662)
pt3dadd(73.29, 108.239, -3.244, 0.628)
pt3dadd(73.203, 108.322, -3.264, 0.638)
pt3dadd(73.115, 108.405, -3.284, 0.648)
pt3dadd(73.032, 108.493, -3.295, 0.672)
pt3dadd(72.953, 108.586, -3.297, 0.706)
pt3dadd(72.868, 108.673, -3.3, 0.784)
pt3dadd(72.779, 108.758, -3.304, 0.832)
pt3dadd(72.693, 108.845, -3.309, 0.838)
pt3dadd(72.606, 108.931, -3.314, 0.842)
pt3dadd(72.52, 109.018, -3.319, 0.848)
pt3dadd(72.434, 109.105, -3.324, 0.852)
pt3dadd(72.371, 109.161, -3.391, 0.842)
pt3dadd(72.313, 109.209, -3.473, 0.828)
pt3dadd(72.197, 109.238, -3.496, 0.806)
pt3dadd(72.082, 109.268, -3.519, 0.784)
pt3dadd(72.028, 109.365, -3.526, 0.778)
pt3dadd(71.991, 109.482, -3.528, 0.778)
pt3dadd(71.952, 109.593, -3.549, 0.8)
pt3dadd(71.911, 109.697, -3.593, 0.856)
pt3dadd(71.838, 109.771, -3.636, 0.906)
pt3dadd(71.738, 109.824, -3.678, 0.956)
pt3dadd(71.639, 109.877, -3.721, 1.004)
pt3dadd(71.563, 109.954, -3.761, 1.068)
pt3dadd(71.516, 110.058, -3.799, 1.148)
pt3dadd(71.443, 110.142, -3.838, 1.23)
pt3dadd(71.375, 110.243, -3.843, 1.226)
pt3dadd(71.306, 110.345, -3.848, 1.22)
pt3dadd(71.239, 110.446, -3.853, 1.214)
pt3dadd(71.17, 110.548, -3.858, 1.21)
pt3dadd(71.105, 110.65, -3.862, 1.204)
pt3dadd(71.067, 110.767, -3.865, 1.182)
pt3dadd(71.03, 110.883, -3.867, 1.162)
pt3dadd(70.941, 110.954, -3.87, 1.148)
pt3dadd(70.831, 111.006, -3.873, 1.136)
pt3dadd(70.741, 111.08, -3.877, 1.126)
pt3dadd(70.679, 111.186, -3.885, 1.114)
pt3dadd(70.629, 111.281, -3.916, 1.092)
pt3dadd(70.601, 111.355, -3.996, 1.052)
pt3dadd(70.547, 111.428, -4.058, 0.992)
pt3dadd(70.458, 111.502, -4.088, 0.924)
pt3dadd(70.366, 111.582, -4.091, 0.9)
pt3dadd(70.281, 111.666, -4.094, 0.88)
pt3dadd(70.263, 111.787, -4.096, 0.9)
pt3dadd(70.245, 111.907, -4.099, 0.92)
pt3dadd(70.194, 112.012, -4.104, 0.954)
pt3dadd(70.11, 112.101, -4.112, 1.004)
pt3dadd(70.027, 112.172, -4.147, 1.042)
pt3dadd(69.946, 112.222, -4.212, 1.072)
pt3dadd(69.859, 112.291, -4.251, 1.08)
pt3dadd(69.769, 112.369, -4.279, 1.08)
pt3dadd(69.68, 112.447, -4.306, 1.08)
pt3dadd(69.621, 112.547, -4.322, 1.06)
pt3dadd(69.581, 112.663, -4.33, 1.026)
pt3dadd(69.522, 112.758, -4.348, 0.994)
pt3dadd(69.42, 112.812, -4.386, 0.964)
pt3dadd(69.319, 112.865, -4.424, 0.934)
pt3dadd(69.202, 112.891, -4.433, 0.89)
pt3dadd(69.082, 112.912, -4.435, 0.844)
pt3dadd(68.966, 112.942, -4.438, 0.8)
pt3dadd(68.965, 112.944, -4.44, 0.8)
pt3dadd(68.963, 112.945, -4.443, 0.8)
pt3dadd(68.876, 113.03, -4.446, 0.774)
pt3dadd(68.787, 113.115, -4.448, 0.746)
pt3dadd(68.703, 113.199, -4.465, 0.728)
pt3dadd(68.629, 113.279, -4.512, 0.728)
pt3dadd(68.585, 113.351, -4.581, 0.814)
pt3dadd(68.543, 113.449, -4.629, 0.854)
pt3dadd(68.498, 113.552, -4.673, 0.884)
pt3dadd(68.496, 113.553, -4.675, 0.884)
pt3dadd(68.453, 113.656, -4.719, 0.914)
pt3dadd(68.408, 113.758, -4.763, 0.942)
pt3dadd(68.348, 113.849, -4.81, 0.962)
pt3dadd(68.278, 113.932, -4.859, 0.974)
pt3dadd(68.207, 114.015, -4.908, 0.986)
pt3dadd(68.136, 114.097, -4.957, 0.998)
pt3dadd(68.061, 114.182, -4.994, 1.004)
pt3dadd(67.979, 114.27, -5.019, 1.004)
pt3dadd(67.978, 114.272, -5.022, 1.004)
pt3dadd(67.896, 114.359, -5.047, 1.004)
pt3dadd(67.815, 114.446, -5.073, 1.004)
pt3dadd(67.731, 114.53, -5.095, 1.004)
pt3dadd(67.629, 114.596, -5.098, 1.004)
pt3dadd(67.525, 114.663, -5.1, 1.004)
pt3dadd(67.407, 114.691, -5.103, 1.014)
pt3dadd(67.288, 114.717, -5.105, 1.024)
pt3dadd(67.287, 114.719, -5.108, 1.024)
pt3dadd(67.197, 114.778, -5.111, 1.034)
pt3dadd(67.161, 114.894, -5.113, 1.044)
pt3dadd(67.124, 115.011, -5.116, 1.054)
pt3dadd(67.058, 115.104, -5.156, 1.04)
pt3dadd(66.984, 115.188, -5.19, 1.028)
pt3dadd(66.873, 115.238, -5.201, 1.022)
pt3dadd(66.762, 115.288, -5.213, 1.014)
pt3dadd(66.651, 115.338, -5.225, 1.008)
pt3dadd(66.537, 115.381, -5.231, 0.992)
pt3dadd(66.421, 115.42, -5.234, 0.972)
pt3dadd(66.306, 115.456, -5.237, 0.95)
pt3dadd(66.189, 115.48, -5.251, 0.926)
pt3dadd(66.083, 115.511, -5.298, 0.916)
pt3dadd(65.978, 115.543, -5.344, 0.904)
pt3dadd(65.873, 115.575, -5.39, 0.894)
pt3dadd(65.769, 115.606, -5.436, 0.882)
pt3dadd(65.676, 115.638, -5.498, 0.872)
pt3dadd(65.59, 115.671, -5.567, 0.86)
pt3dadd(65.504, 115.703, -5.636, 0.848)
pt3dadd(65.417, 115.736, -5.705, 0.836)
pt3dadd(65.338, 115.776, -5.775, 0.814)
pt3dadd(65.27, 115.833, -5.847, 0.772)
pt3dadd(65.22, 115.863, -5.934, 0.748)
pt3dadd(65.185, 115.872, -6.032, 0.736)
pt3dadd(65.154, 115.88, -6.131, 0.734)
pt3dadd(65.137, 115.888, -6.233, 0.752)
pt3dadd(65.12, 115.895, -6.334, 0.772)
pt3dadd(65.116, 115.958, -6.415, 0.818)
pt3dadd(65.117, 116.048, -6.486, 0.878)
pt3dadd(65.116, 116.147, -6.545, 0.936)
pt3dadd(65.112, 116.255, -6.594, 0.994)
pt3dadd(65.082, 116.349, -6.648, 1.082)
pt3dadd(65.081, 116.351, -6.651, 1.082)
pt3dadd(64.973, 116.382, -6.687, 1.098)
pt3dadd(64.853, 116.391, -6.699, 1.036)
pt3dadd(64.736, 116.418, -6.707, 0.98)
pt3dadd(64.653, 116.493, -6.738, 1.056)
pt3dadd(64.629, 116.603, -6.779, 1.106)
pt3dadd(64.603, 116.712, -6.821, 1.156)
pt3dadd(64.536, 116.8, -6.868, 1.184)
pt3dadd(64.466, 116.882, -6.916, 1.208)
pt3dadd(64.381, 116.949, -6.966, 1.218)
pt3dadd(64.296, 117.016, -7.015, 1.23)
pt3dadd(64.243, 117.031, -7.105, 1.262)
pt3dadd(64.192, 117.04, -7.199, 1.296)
pt3dadd(64.115, 117.079, -7.267, 1.32)
pt3dadd(64.025, 117.128, -7.326, 1.342)
pt3dadd(63.929, 117.164, -7.377, 1.35)
pt3dadd(63.813, 117.169, -7.412, 1.328)
pt3dadd(63.699, 117.175, -7.448, 1.306)
pt3dadd(63.598, 117.181, -7.503, 1.164)
pt3dadd(63.529, 117.185, -7.588, 1.094)
pt3dadd(63.457, 117.189, -7.67, 1.026)
pt3dadd(63.345, 117.195, -7.712, 0.982)
pt3dadd(63.234, 117.201, -7.753, 0.94)
pt3dadd(63.125, 117.227, -7.795, 0.88)
pt3dadd(63.016, 117.259, -7.837, 0.818)
}
}
proc shape3d_158() {
dend_7[47] { pt3dadd(62.94, 117.342, -7.866, 0.794)
pt3dadd(62.87, 117.438, -7.892, 0.78)
pt3dadd(62.782, 117.503, -7.94, 0.816)
pt3dadd(62.718, 117.598, -7.959, 0.88)
pt3dadd(62.665, 117.708, -7.967, 0.95)
pt3dadd(62.603, 117.813, -7.982, 1.01)
pt3dadd(62.537, 117.913, -8.001, 1.062)
pt3dadd(62.444, 117.957, -8.04, 1.094)
pt3dadd(62.337, 117.969, -8.089, 1.118)
pt3dadd(62.225, 117.978, -8.129, 1.124)
pt3dadd(62.108, 117.984, -8.159, 1.114)
pt3dadd(61.991, 117.989, -8.187, 1.104)
pt3dadd(61.87, 117.996, -8.19, 1.078)
pt3dadd(61.748, 118.002, -8.193, 1.048)
pt3dadd(61.628, 118.008, -8.211, 0.964)
pt3dadd(61.515, 118.013, -8.247, 0.868)
pt3dadd(61.401, 118.019, -8.284, 0.77)
pt3dadd(61.281, 118.025, -8.302, 0.708)
pt3dadd(61.16, 118.031, -8.317, 0.678)
pt3dadd(61.061, 118.063, -8.364, 0.678)
pt3dadd(61.029, 118.138, -8.438, 0.68)
pt3dadd(61.001, 118.234, -8.495, 0.754)
pt3dadd(60.949, 118.341, -8.516, 0.916)
pt3dadd(60.925, 118.46, -8.519, 0.97)
pt3dadd(60.881, 118.564, -8.531, 0.944)
pt3dadd(60.794, 118.646, -8.556, 0.922)
pt3dadd(60.706, 118.727, -8.582, 0.898)
pt3dadd(60.705, 118.729, -8.585, 0.898)
pt3dadd(60.618, 118.81, -8.61, 0.876)
pt3dadd(60.532, 118.892, -8.636, 0.852)
pt3dadd(60.473, 118.988, -8.679, 0.834)
pt3dadd(60.415, 119.084, -8.721, 0.816)
pt3dadd(60.356, 119.18, -8.763, 0.798)
pt3dadd(60.297, 119.276, -8.806, 0.78)
pt3dadd(60.223, 119.366, -8.839, 0.774)
pt3dadd(60.147, 119.455, -8.87, 0.768)
pt3dadd(60.07, 119.544, -8.901, 0.762)
pt3dadd(59.994, 119.633, -8.932, 0.756)
pt3dadd(59.905, 119.709, -8.962, 0.75)
pt3dadd(59.808, 119.778, -8.989, 0.744)
pt3dadd(59.712, 119.847, -9.017, 0.738)
pt3dadd(59.615, 119.916, -9.045, 0.732)
pt3dadd(59.528, 119.991, -9.074, 0.728)
pt3dadd(59.471, 120.094, -9.107, 0.728)
pt3dadd(59.414, 120.196, -9.141, 0.728)
pt3dadd(59.358, 120.298, -9.174, 0.728)
pt3dadd(59.301, 120.4, -9.207, 0.728)
pt3dadd(59.209, 120.473, -9.227, 0.732)
pt3dadd(59.109, 120.541, -9.244, 0.738)
pt3dadd(59.009, 120.61, -9.26, 0.744)
pt3dadd(58.909, 120.678, -9.277, 0.748)
pt3dadd(58.813, 120.751, -9.296, 0.756)
pt3dadd(58.733, 120.84, -9.318, 0.774)
pt3dadd(58.653, 120.93, -9.341, 0.792)
pt3dadd(58.573, 121.019, -9.364, 0.808)
pt3dadd(58.493, 121.108, -9.387, 0.826)
pt3dadd(58.416, 121.192, -9.426, 0.834)
pt3dadd(58.339, 121.274, -9.469, 0.84)
pt3dadd(58.264, 121.356, -9.512, 0.846)
pt3dadd(58.187, 121.439, -9.555, 0.852)
pt3dadd(58.122, 121.534, -9.586, 0.836)
pt3dadd(58.06, 121.637, -9.612, 0.81)
pt3dadd(57.987, 121.733, -9.624, 0.756)
pt3dadd(57.91, 121.829, -9.632, 0.696)
pt3dadd(57.869, 121.908, -9.692, 0.63)
pt3dadd(57.842, 121.982, -9.771, 0.562)
pt3dadd(57.774, 122.042, -9.839, 0.516)
pt3dadd(57.696, 122.1, -9.901, 0.476)
pt3dadd(57.584, 122.149, -9.912, 0.47)
pt3dadd(57.474, 122.2, -9.924, 0.462)
pt3dadd(57.362, 122.249, -9.936, 0.456)
pt3dadd(57.276, 122.326, -9.946, 0.458)
pt3dadd(57.214, 122.431, -9.954, 0.47)
pt3dadd(57.151, 122.533, -9.974, 0.54)
pt3dadd(57.057, 122.603, -9.998, 0.602)
pt3dadd(56.955, 122.665, -10.017, 0.636)
pt3dadd(56.852, 122.729, -10.036, 0.668)
pt3dadd(56.748, 122.791, -10.056, 0.7)
pt3dadd(56.645, 122.849, -10.078, 0.732)
pt3dadd(56.535, 122.874, -10.12, 0.758)
pt3dadd(56.427, 122.899, -10.162, 0.784)
pt3dadd(56.317, 122.924, -10.204, 0.81)
pt3dadd(56.208, 122.95, -10.246, 0.836)
pt3dadd(56.095, 122.975, -10.275, 0.854)
pt3dadd(55.976, 123.001, -10.277, 0.854)
pt3dadd(55.858, 123.028, -10.28, 0.854)
pt3dadd(55.754, 123.089, -10.282, 0.836)
pt3dadd(55.656, 123.162, -10.285, 0.814)
pt3dadd(55.608, 123.264, -10.29, 0.798)
pt3dadd(55.596, 123.385, -10.297, 0.788)
pt3dadd(55.583, 123.506, -10.304, 0.778)
pt3dadd(55.54, 123.605, -10.356, 0.792)
pt3dadd(55.5, 123.697, -10.413, 0.804)
pt3dadd(55.47, 123.764, -10.496, 0.804)
pt3dadd(55.426, 123.848, -10.562, 0.79)
pt3dadd(55.386, 123.929, -10.631, 0.776)
pt3dadd(55.367, 123.985, -10.722, 0.764)
pt3dadd(55.34, 124.04, -10.809, 0.754)
pt3dadd(55.264, 124.098, -10.875, 0.754)
pt3dadd(55.175, 124.153, -10.923, 0.744)
pt3dadd(55.066, 124.205, -10.941, 0.72)
pt3dadd(54.96, 124.254, -10.969, 0.69)
pt3dadd(54.864, 124.307, -11.013, 0.652)
pt3dadd(54.783, 124.399, -11.018, 0.642)
pt3dadd(54.703, 124.492, -11.023, 0.632)
pt3dadd(54.623, 124.584, -11.028, 0.622)
pt3dadd(54.542, 124.676, -11.033, 0.61)
pt3dadd(54.462, 124.764, -11.046, 0.606)
pt3dadd(54.379, 124.84, -11.089, 0.618)
pt3dadd(54.296, 124.915, -11.132, 0.63)
pt3dadd(54.213, 124.991, -11.175, 0.642)
pt3dadd(54.13, 125.068, -11.217, 0.654)
pt3dadd(54.043, 125.147, -11.248, 0.666)
pt3dadd(53.957, 125.227, -11.279, 0.678)
pt3dadd(53.871, 125.306, -11.31, 0.69)
pt3dadd(53.785, 125.387, -11.341, 0.7)
pt3dadd(53.733, 125.484, -11.383, 0.712)
pt3dadd(53.688, 125.586, -11.427, 0.724)
pt3dadd(53.643, 125.689, -11.47, 0.736)
pt3dadd(53.642, 125.69, -11.473, 0.736)
pt3dadd(53.64, 125.693, -11.476, 0.736)
pt3dadd(53.595, 125.795, -11.52, 0.748)
pt3dadd(53.546, 125.9, -11.546, 0.754)
pt3dadd(53.492, 126.01, -11.556, 0.754)
pt3dadd(53.437, 126.119, -11.565, 0.754)
pt3dadd(53.383, 126.228, -11.574, 0.754)
pt3dadd(53.329, 126.337, -11.584, 0.754)
pt3dadd(53.281, 126.446, -11.606, 0.754)
pt3dadd(53.238, 126.556, -11.638, 0.754)
pt3dadd(53.197, 126.665, -11.67, 0.754)
pt3dadd(53.155, 126.774, -11.702, 0.754)
pt3dadd(53.113, 126.882, -11.735, 0.754)
pt3dadd(53.058, 126.958, -11.803, 0.754)
pt3dadd(53.004, 127.033, -11.871, 0.754)
pt3dadd(52.949, 127.109, -11.939, 0.754)
pt3dadd(52.894, 127.184, -12.007, 0.754)
pt3dadd(52.83, 127.265, -12.065, 0.748)
pt3dadd(52.765, 127.344, -12.122, 0.742)
pt3dadd(52.701, 127.424, -12.179, 0.734)
pt3dadd(52.637, 127.504, -12.237, 0.728)
pt3dadd(52.572, 127.601, -12.268, 0.722)
pt3dadd(52.506, 127.699, -12.296, 0.718)
pt3dadd(52.44, 127.799, -12.324, 0.712)
pt3dadd(52.374, 127.897, -12.352, 0.706)
pt3dadd(52.324, 127.998, -12.389, 0.696)
pt3dadd(52.287, 128.102, -12.435, 0.686)
pt3dadd(52.249, 128.206, -12.481, 0.674)
pt3dadd(52.212, 128.31, -12.527, 0.662)
pt3dadd(52.174, 128.414, -12.572, 0.652)
pt3dadd(52.137, 128.52, -12.615, 0.646)
pt3dadd(52.1, 128.626, -12.658, 0.64)
pt3dadd(52.063, 128.731, -12.701, 0.636)
pt3dadd(52.025, 128.838, -12.744, 0.63)
pt3dadd(51.968, 128.924, -12.797, 0.624)
pt3dadd(51.903, 129.004, -12.855, 0.616)
pt3dadd(51.838, 129.083, -12.912, 0.61)
pt3dadd(51.773, 129.163, -12.97, 0.604)
pt3dadd(51.72, 129.264, -13.001, 0.606)
pt3dadd(51.672, 129.374, -13.02, 0.612)
pt3dadd(51.623, 129.485, -13.039, 0.616)
pt3dadd(51.574, 129.595, -13.058, 0.622)
pt3dadd(51.526, 129.706, -13.077, 0.628)
pt3dadd(51.468, 129.812, -13.094, 0.638)
pt3dadd(51.412, 129.919, -13.111, 0.648)
pt3dadd(51.354, 130.026, -13.127, 0.66)
pt3dadd(51.296, 130.132, -13.144, 0.67)
pt3dadd(51.239, 130.24, -13.159, 0.68)
pt3dadd(51.185, 130.349, -13.168, 0.69)
pt3dadd(51.131, 130.458, -13.178, 0.702)
pt3dadd(51.075, 130.567, -13.187, 0.712)
pt3dadd(51.021, 130.676, -13.196, 0.722)
pt3dadd(50.973, 130.783, -13.22, 0.732)
pt3dadd(50.939, 130.884, -13.271, 0.744)
pt3dadd(50.903, 130.985, -13.323, 0.756)
pt3dadd(50.868, 131.087, -13.374, 0.766)
pt3dadd(50.833, 131.188, -13.425, 0.778)
pt3dadd(50.758, 131.268, -13.472, 0.778)
pt3dadd(50.682, 131.351, -13.509, 0.776)
pt3dadd(50.598, 131.441, -13.517, 0.762)
pt3dadd(50.524, 131.536, -13.524, 0.746)
pt3dadd(50.487, 131.652, -13.527, 0.714)
pt3dadd(50.45, 131.768, -13.53, 0.682)
pt3dadd(50.446, 131.886, -13.555, 0.642)
pt3dadd(50.449, 132.002, -13.585, 0.602)
pt3dadd(50.444, 132.113, -13.628, 0.564)
pt3dadd(50.43, 132.211, -13.688, 0.534)
pt3dadd(50.416, 132.311, -13.748, 0.504)
pt3dadd(50.393, 132.402, -13.808, 0.468)
pt3dadd(50.299, 132.436, -13.87, 0.402)
pt3dadd(50.227, 132.491, -13.919, 0.348)
pt3dadd(50.222, 132.612, -13.932, 0.334)
pt3dadd(50.218, 132.733, -13.944, 0.32)
pt3dadd(50.212, 132.854, -13.956, 0.304)
pt3dadd(50.177, 132.967, -13.978, 0.302)
pt3dadd(50.133, 133.078, -14.003, 0.302)
pt3dadd(50.091, 133.128, -14.081, 0.316)
pt3dadd(50.051, 133.16, -14.175, 0.334)
pt3dadd(50.006, 133.198, -14.26, 0.352)
pt3dadd(50.004, 133.2, -14.263, 0.352)
pt3dadd(49.915, 133.283, -14.271, 0.352)
}
}
proc shape3d_159() {
dend_7[47] { pt3dadd(49.825, 133.364, -14.279, 0.35)
pt3dadd(49.71, 133.408, -14.281, 0.326)
pt3dadd(49.602, 133.463, -14.284, 0.32)
pt3dadd(49.494, 133.519, -14.287, 0.316)
pt3dadd(49.385, 133.576, -14.289, 0.31)
pt3dadd(49.276, 133.632, -14.292, 0.306)
pt3dadd(49.168, 133.687, -14.295, 0.302)
pt3dadd(49.071, 133.762, -14.29, 0.302)
pt3dadd(48.975, 133.837, -14.286, 0.302)
pt3dadd(48.878, 133.912, -14.282, 0.302)
pt3dadd(48.782, 133.986, -14.277, 0.302)
pt3dadd(48.685, 134.06, -14.272, 0.302)
pt3dadd(48.585, 134.129, -14.26, 0.302)
pt3dadd(48.485, 134.197, -14.248, 0.302)
pt3dadd(48.385, 134.266, -14.237, 0.302)
pt3dadd(48.286, 134.334, -14.225, 0.302)
pt3dadd(48.199, 134.418, -14.22, 0.308)
pt3dadd(48.198, 134.42, -14.223, 0.308)
pt3dadd(48.125, 134.518, -14.226, 0.32)
pt3dadd(48.043, 134.606, -14.228, 0.34)
pt3dadd(47.944, 134.68, -14.231, 0.376)
pt3dadd(47.851, 134.75, -14.247, 0.418)
pt3dadd(47.775, 134.816, -14.307, 0.49)
pt3dadd(47.711, 134.881, -14.376, 0.562)
pt3dadd(47.66, 134.945, -14.453, 0.632)
pt3dadd(47.589, 135.016, -14.511, 0.73)
pt3dadd(47.514, 135.072, -14.576, 0.788)
pt3dadd(47.44, 135.114, -14.652, 0.806)
pt3dadd(47.368, 135.156, -14.728, 0.824)
pt3dadd(47.296, 135.198, -14.804, 0.842)
pt3dadd(47.229, 135.236, -14.884, 0.86)
pt3dadd(47.176, 135.266, -14.974, 0.882)
pt3dadd(47.123, 135.296, -15.064, 0.904)
pt3dadd(47.071, 135.326, -15.154, 0.926)
pt3dadd(47.017, 135.355, -15.243, 0.948)
pt3dadd(47.016, 135.358, -15.246, 0.948)
pt3dadd(46.936, 135.402, -15.313, 0.974)
pt3dadd(46.848, 135.451, -15.371, 1.002)
pt3dadd(46.751, 135.479, -15.431, 1.04)
pt3dadd(46.654, 135.504, -15.491, 1.08)
pt3dadd(46.612, 135.508, -15.587, 1.1)
pt3dadd(46.571, 135.511, -15.684, 1.122)
pt3dadd(46.542, 135.514, -15.784, 1.142)
pt3dadd(46.52, 135.516, -15.885, 1.162)
pt3dadd(46.497, 135.521, -15.986, 1.18)
pt3dadd(46.445, 135.554, -16.075, 1.2)
pt3dadd(46.416, 135.611, -16.162, 1.196)
pt3dadd(46.398, 135.674, -16.249, 1.182)
pt3dadd(46.361, 135.724, -16.338, 1.16)
pt3dadd(46.319, 135.769, -16.428, 1.134)
pt3dadd(46.281, 135.782, -16.525, 1.092)
pt3dadd(46.247, 135.791, -16.623, 1.05)
pt3dadd(46.174, 135.824, -16.685, 1.002)
pt3dadd(46.07, 135.878, -16.717, 0.948)
pt3dadd(45.97, 135.929, -16.759, 0.878)
pt3dadd(45.876, 135.983, -16.806, 0.824)
pt3dadd(45.786, 136.046, -16.855, 0.812)
pt3dadd(45.697, 136.109, -16.903, 0.8)
pt3dadd(45.608, 136.171, -16.951, 0.788)
pt3dadd(45.521, 136.241, -16.994, 0.772)
pt3dadd(45.444, 136.332, -17.02, 0.744)
pt3dadd(45.359, 136.406, -17.053, 0.724)
pt3dadd(45.258, 136.454, -17.097, 0.71)
pt3dadd(45.206, 136.528, -17.151, 0.69)
pt3dadd(45.202, 136.626, -17.212, 0.666)
pt3dadd(45.198, 136.717, -17.281, 0.648)
pt3dadd(45.192, 136.796, -17.36, 0.636)
pt3dadd(45.163, 136.885, -17.414, 0.628)
pt3dadd(45.097, 136.986, -17.43, 0.628)
pt3dadd(45.029, 137.088, -17.446, 0.628)
pt3dadd(44.964, 137.19, -17.461, 0.63)
pt3dadd(44.912, 137.3, -17.464, 0.664)
pt3dadd(44.861, 137.412, -17.466, 0.698)
pt3dadd(44.848, 137.53, -17.451, 0.744)
pt3dadd(44.834, 137.636, -17.419, 0.788)
pt3dadd(44.777, 137.676, -17.341, 0.754)
pt3dadd(44.723, 137.68, -17.254, 0.694)
pt3dadd(44.656, 137.684, -17.173, 0.642)
pt3dadd(44.573, 137.714, -17.112, 0.516)
pt3dadd(44.571, 137.716, -17.115, 0.516)
pt3dadd(44.483, 137.797, -17.1, 0.436)
pt3dadd(44.411, 137.887, -17.086, 0.366)
pt3dadd(44.396, 138.007, -17.074, 0.322)
pt3dadd(44.381, 138.126, -17.062, 0.278)
pt3dadd(44.38, 138.128, -17.065, 0.278)
}
dend_0[10] {pt3dclear()
pt3dadd(103.04, 101.386, 14.404, 11.752)
pt3dadd(103.043, 101.386, 14.401, 11.75)
pt3dadd(103.128, 101.386, 14.331, 11.682)
pt3dadd(103.213, 101.386, 14.26, 11.614)
pt3dadd(103.298, 101.386, 14.19, 11.546)
pt3dadd(103.383, 101.386, 14.119, 11.476)
pt3dadd(103.468, 101.386, 14.048, 11.408)
pt3dadd(103.553, 101.386, 13.977, 11.34)
pt3dadd(103.637, 101.386, 13.907, 11.272)
pt3dadd(103.722, 101.386, 13.836, 11.204)
pt3dadd(103.807, 101.386, 13.765, 11.136)
pt3dadd(103.892, 101.386, 13.695, 11.068)
pt3dadd(103.977, 101.386, 13.624, 10.998)
pt3dadd(104.062, 101.386, 13.553, 10.93)
pt3dadd(104.146, 101.386, 13.482, 10.862)
pt3dadd(104.232, 101.394, 13.413, 10.712)
pt3dadd(104.318, 101.408, 13.344, 10.52)
pt3dadd(104.404, 101.421, 13.275, 10.328)
pt3dadd(104.49, 101.434, 13.207, 10.134)
pt3dadd(104.577, 101.447, 13.138, 9.942)
pt3dadd(104.663, 101.46, 13.069, 9.75)
pt3dadd(104.749, 101.474, 13, 9.556)
pt3dadd(104.835, 101.487, 12.931, 9.364)
pt3dadd(104.921, 101.5, 12.863, 9.172)
pt3dadd(105.007, 101.514, 12.794, 8.978)
pt3dadd(105.093, 101.531, 12.726, 8.746)
pt3dadd(105.179, 101.551, 12.658, 8.496)
pt3dadd(105.266, 101.571, 12.591, 8.246)
pt3dadd(105.352, 101.591, 12.523, 7.994)
pt3dadd(105.438, 101.61, 12.456, 7.744)
pt3dadd(105.524, 101.63, 12.388, 7.494)
pt3dadd(105.611, 101.65, 12.321, 7.244)
pt3dadd(105.697, 101.67, 12.253, 6.992)
pt3dadd(105.783, 101.69, 12.186, 6.742)
pt3dadd(105.869, 101.709, 12.118, 6.492)
pt3dadd(105.955, 101.734, 12.051, 6.228)
pt3dadd(106.039, 101.761, 11.983, 5.958)
pt3dadd(106.124, 101.787, 11.916, 5.688)
pt3dadd(106.209, 101.814, 11.849, 5.418)
pt3dadd(106.293, 101.841, 11.781, 5.148)
pt3dadd(106.378, 101.867, 11.714, 4.878)
pt3dadd(106.462, 101.894, 11.647, 4.608)
pt3dadd(106.547, 101.92, 11.579, 4.338)
pt3dadd(106.632, 101.947, 11.512, 4.068)
pt3dadd(106.716, 101.974, 11.445, 3.798)
pt3dadd(106.8, 102.025, 11.39, 3.626)
pt3dadd(106.884, 102.087, 11.34, 3.498)
pt3dadd(106.968, 102.149, 11.29, 3.372)
pt3dadd(107.051, 102.211, 11.24, 3.244)
pt3dadd(107.135, 102.273, 11.191, 3.116)
pt3dadd(107.219, 102.335, 11.141, 2.99)
pt3dadd(107.302, 102.397, 11.091, 2.862)
pt3dadd(107.386, 102.459, 11.042, 2.736)
pt3dadd(107.469, 102.521, 10.992, 2.608)
pt3dadd(107.553, 102.583, 10.942, 2.48)
pt3dadd(107.617, 102.665, 10.894, 2.392)
pt3dadd(107.677, 102.751, 10.846, 2.31)
pt3dadd(107.737, 102.838, 10.797, 2.228)
pt3dadd(107.797, 102.924, 10.749, 2.146)
pt3dadd(107.857, 103.011, 10.701, 2.064)
pt3dadd(107.917, 103.097, 10.653, 1.982)
pt3dadd(107.977, 103.183, 10.605, 1.9)
}
dend_7[48] {pt3dclear()
pt3dadd(107.977, 103.183, 10.605, 1.9)
pt3dadd(108.036, 103.27, 10.556, 1.818)
pt3dadd(108.096, 103.356, 10.508, 1.736)
pt3dadd(108.154, 103.444, 10.46, 1.658)
pt3dadd(108.183, 103.548, 10.416, 1.608)
pt3dadd(108.211, 103.651, 10.371, 1.56)
pt3dadd(108.24, 103.754, 10.326, 1.51)
pt3dadd(108.269, 103.858, 10.281, 1.462)
pt3dadd(108.298, 103.961, 10.237, 1.412)
pt3dadd(108.327, 104.064, 10.192, 1.364)
pt3dadd(108.355, 104.168, 10.148, 1.316)
pt3dadd(108.384, 104.271, 10.103, 1.266)
pt3dadd(108.413, 104.375, 10.058, 1.218)
pt3dadd(108.436, 104.481, 10.017, 1.182)
pt3dadd(108.44, 104.596, 9.989, 1.196)
pt3dadd(108.443, 104.711, 9.961, 1.208)
pt3dadd(108.446, 104.826, 9.932, 1.222)
pt3dadd(108.45, 104.941, 9.904, 1.236)
pt3dadd(108.453, 105.056, 9.876, 1.248)
pt3dadd(108.456, 105.171, 9.848, 1.262)
pt3dadd(108.46, 105.286, 9.82, 1.276)
pt3dadd(108.463, 105.401, 9.792, 1.288)
pt3dadd(108.467, 105.516, 9.763, 1.302)
pt3dadd(108.466, 105.632, 9.737, 1.298)
pt3dadd(108.451, 105.748, 9.715, 1.238)
pt3dadd(108.437, 105.864, 9.693, 1.178)
pt3dadd(108.422, 105.98, 9.67, 1.116)
pt3dadd(108.408, 106.096, 9.649, 1.056)
pt3dadd(108.393, 106.213, 9.626, 0.996)
pt3dadd(108.379, 106.329, 9.604, 0.936)
pt3dadd(108.364, 106.445, 9.582, 0.876)
pt3dadd(108.35, 106.561, 9.56, 0.814)
pt3dadd(108.335, 106.677, 9.538, 0.754)
pt3dadd(108.313, 106.791, 9.517, 0.712)
pt3dadd(108.266, 106.899, 9.497, 0.728)
pt3dadd(108.219, 107.007, 9.478, 0.742)
pt3dadd(108.172, 107.115, 9.458, 0.758)
pt3dadd(108.125, 107.223, 9.439, 0.774)
pt3dadd(108.078, 107.331, 9.42, 0.79)
pt3dadd(108.031, 107.439, 9.4, 0.806)
pt3dadd(107.984, 107.547, 9.38, 0.82)
pt3dadd(107.937, 107.655, 9.361, 0.836)
pt3dadd(107.89, 107.762, 9.342, 0.852)
pt3dadd(107.845, 107.866, 9.313, 0.864)
pt3dadd(107.806, 107.959, 9.258, 0.868)
pt3dadd(107.767, 108.051, 9.203, 0.874)
pt3dadd(107.729, 108.143, 9.148, 0.878)
pt3dadd(107.69, 108.236, 9.093, 0.882)
pt3dadd(107.651, 108.328, 9.038, 0.886)
pt3dadd(107.612, 108.42, 8.983, 0.89)
pt3dadd(107.574, 108.513, 8.927, 0.894)
pt3dadd(107.535, 108.605, 8.872, 0.898)
pt3dadd(107.496, 108.697, 8.817, 0.902)
}
}
proc shape3d_160() {
dend_7[48] { pt3dadd(107.467, 108.788, 8.757, 0.912)
pt3dadd(107.45, 108.877, 8.692, 0.926)
pt3dadd(107.433, 108.966, 8.626, 0.942)
pt3dadd(107.415, 109.055, 8.56, 0.958)
pt3dadd(107.398, 109.144, 8.495, 0.974)
pt3dadd(107.381, 109.232, 8.429, 0.99)
pt3dadd(107.364, 109.321, 8.363, 1.006)
pt3dadd(107.347, 109.41, 8.298, 1.022)
pt3dadd(107.33, 109.499, 8.232, 1.038)
pt3dadd(107.313, 109.588, 8.166, 1.054)
pt3dadd(107.302, 109.684, 8.108, 1.072)
pt3dadd(107.298, 109.787, 8.057, 1.09)
pt3dadd(107.293, 109.891, 8.007, 1.112)
pt3dadd(107.289, 109.994, 7.957, 1.13)
pt3dadd(107.285, 110.098, 7.906, 1.15)
pt3dadd(107.281, 110.202, 7.856, 1.17)
pt3dadd(107.277, 110.305, 7.806, 1.19)
pt3dadd(107.272, 110.409, 7.755, 1.21)
pt3dadd(107.268, 110.512, 7.705, 1.23)
pt3dadd(107.264, 110.616, 7.654, 1.25)
pt3dadd(107.263, 110.726, 7.616, 1.234)
pt3dadd(107.264, 110.84, 7.586, 1.194)
pt3dadd(107.265, 110.955, 7.556, 1.154)
pt3dadd(107.266, 111.069, 7.526, 1.114)
pt3dadd(107.267, 111.184, 7.496, 1.074)
pt3dadd(107.268, 111.298, 7.466, 1.032)
pt3dadd(107.269, 111.413, 7.436, 0.992)
pt3dadd(107.27, 111.527, 7.406, 0.952)
pt3dadd(107.271, 111.642, 7.376, 0.912)
pt3dadd(107.272, 111.756, 7.346, 0.87)
pt3dadd(107.274, 111.873, 7.324, 0.82)
pt3dadd(107.276, 111.991, 7.306, 0.764)
pt3dadd(107.279, 112.109, 7.287, 0.708)
pt3dadd(107.281, 112.227, 7.269, 0.652)
pt3dadd(107.283, 112.345, 7.252, 0.596)
pt3dadd(107.285, 112.463, 7.234, 0.54)
pt3dadd(107.287, 112.581, 7.215, 0.482)
pt3dadd(107.289, 112.699, 7.197, 0.426)
pt3dadd(107.292, 112.817, 7.179, 0.37)
pt3dadd(107.294, 112.935, 7.161, 0.314)
pt3dadd(107.297, 113.052, 7.141, 0.312)
pt3dadd(107.301, 113.169, 7.119, 0.336)
pt3dadd(107.305, 113.286, 7.097, 0.36)
pt3dadd(107.309, 113.403, 7.075, 0.384)
pt3dadd(107.313, 113.52, 7.053, 0.408)
pt3dadd(107.317, 113.637, 7.031, 0.432)
pt3dadd(107.321, 113.754, 7.009, 0.456)
pt3dadd(107.325, 113.871, 6.987, 0.48)
pt3dadd(107.329, 113.988, 6.965, 0.504)
pt3dadd(107.333, 114.105, 6.943, 0.528)
pt3dadd(107.339, 114.214, 6.903, 0.562)
pt3dadd(107.346, 114.321, 6.857, 0.6)
pt3dadd(107.352, 114.427, 6.811, 0.638)
pt3dadd(107.359, 114.533, 6.765, 0.678)
pt3dadd(107.366, 114.639, 6.719, 0.716)
pt3dadd(107.373, 114.745, 6.672, 0.754)
pt3dadd(107.379, 114.852, 6.626, 0.792)
pt3dadd(107.386, 114.958, 6.58, 0.83)
pt3dadd(107.393, 115.064, 6.534, 0.868)
pt3dadd(107.4, 115.17, 6.488, 0.906)
pt3dadd(107.414, 115.278, 6.446, 0.948)
pt3dadd(107.43, 115.387, 6.405, 0.99)
pt3dadd(107.447, 115.495, 6.365, 1.034)
pt3dadd(107.464, 115.604, 6.324, 1.076)
pt3dadd(107.481, 115.712, 6.284, 1.12)
pt3dadd(107.497, 115.821, 6.243, 1.162)
pt3dadd(107.514, 115.929, 6.203, 1.206)
pt3dadd(107.531, 116.037, 6.162, 1.25)
pt3dadd(107.547, 116.146, 6.122, 1.292)
pt3dadd(107.564, 116.254, 6.081, 1.336)
pt3dadd(107.603, 116.339, 6.022, 1.32)
pt3dadd(107.649, 116.416, 5.956, 1.286)
pt3dadd(107.696, 116.493, 5.89, 1.254)
pt3dadd(107.742, 116.571, 5.824, 1.22)
pt3dadd(107.789, 116.648, 5.758, 1.186)
pt3dadd(107.835, 116.725, 5.691, 1.152)
pt3dadd(107.882, 116.802, 5.625, 1.118)
pt3dadd(107.929, 116.879, 5.559, 1.084)
pt3dadd(107.975, 116.956, 5.493, 1.052)
pt3dadd(108.022, 117.034, 5.427, 1.018)
}
dend_7[49] {pt3dclear()
pt3dadd(108.022, 117.034, 5.427, 1.018)
pt3dadd(107.432, 117.631, 4.233, 0.968)
pt3dadd(107.525, 117.689, 4.196, 0.896)
pt3dadd(107.617, 117.746, 4.16, 0.824)
pt3dadd(107.71, 117.803, 4.124, 0.752)
pt3dadd(107.803, 117.86, 4.088, 0.68)
pt3dadd(107.895, 117.918, 4.052, 0.608)
pt3dadd(107.988, 117.975, 4.015, 0.536)
pt3dadd(108.081, 118.032, 3.979, 0.464)
pt3dadd(108.174, 118.09, 3.943, 0.394)
pt3dadd(108.267, 118.147, 3.907, 0.322)
pt3dadd(108.357, 118.213, 3.883, 0.328)
pt3dadd(108.448, 118.281, 3.864, 0.364)
pt3dadd(108.538, 118.35, 3.846, 0.4)
pt3dadd(108.628, 118.419, 3.827, 0.436)
pt3dadd(108.719, 118.488, 3.808, 0.47)
pt3dadd(108.809, 118.557, 3.789, 0.506)
pt3dadd(108.899, 118.625, 3.77, 0.542)
pt3dadd(108.99, 118.694, 3.751, 0.578)
pt3dadd(109.08, 118.763, 3.733, 0.614)
pt3dadd(109.17, 118.832, 3.714, 0.648)
pt3dadd(109.257, 118.906, 3.702, 0.65)
pt3dadd(109.342, 118.982, 3.693, 0.638)
pt3dadd(109.428, 119.059, 3.684, 0.624)
pt3dadd(109.513, 119.135, 3.675, 0.612)
pt3dadd(109.599, 119.211, 3.666, 0.6)
pt3dadd(109.684, 119.288, 3.656, 0.588)
pt3dadd(109.77, 119.364, 3.647, 0.576)
pt3dadd(109.855, 119.44, 3.638, 0.564)
pt3dadd(109.94, 119.517, 3.629, 0.552)
pt3dadd(110.026, 119.593, 3.62, 0.54)
pt3dadd(110.11, 119.671, 3.611, 0.536)
pt3dadd(110.194, 119.749, 3.602, 0.532)
pt3dadd(110.277, 119.827, 3.594, 0.53)
pt3dadd(110.361, 119.906, 3.585, 0.528)
pt3dadd(110.445, 119.984, 3.577, 0.526)
pt3dadd(110.529, 120.062, 3.568, 0.524)
pt3dadd(110.613, 120.14, 3.559, 0.522)
pt3dadd(110.696, 120.22, 3.551, 0.52)
pt3dadd(110.78, 120.298, 3.542, 0.518)
pt3dadd(110.864, 120.376, 3.534, 0.516)
pt3dadd(110.947, 120.456, 3.525, 0.526)
pt3dadd(111.029, 120.535, 3.516, 0.54)
pt3dadd(111.111, 120.616, 3.508, 0.554)
pt3dadd(111.103, 120.617, 3.499, 0.554)
pt3dadd(111.185, 120.697, 3.491, 0.568)
pt3dadd(111.267, 120.776, 3.482, 0.584)
pt3dadd(111.349, 120.858, 3.474, 0.598)
pt3dadd(111.431, 120.938, 3.465, 0.612)
pt3dadd(111.514, 121.018, 3.456, 0.626)
pt3dadd(111.596, 121.098, 3.448, 0.642)
pt3dadd(111.678, 121.178, 3.439, 0.656)
pt3dadd(111.769, 121.248, 3.431, 0.672)
pt3dadd(111.862, 121.312, 3.422, 0.688)
pt3dadd(111.956, 121.378, 3.413, 0.704)
pt3dadd(112.049, 121.442, 3.405, 0.72)
pt3dadd(112.143, 121.507, 3.396, 0.736)
pt3dadd(112.237, 121.572, 3.388, 0.754)
pt3dadd(112.33, 121.637, 3.379, 0.77)
pt3dadd(112.424, 121.702, 3.37, 0.786)
pt3dadd(112.517, 121.766, 3.362, 0.802)
pt3dadd(112.611, 121.832, 3.353, 0.818)
pt3dadd(112.703, 121.9, 3.345, 0.81)
pt3dadd(112.795, 121.967, 3.336, 0.796)
pt3dadd(112.887, 122.035, 3.327, 0.78)
pt3dadd(112.978, 122.102, 3.319, 0.764)
pt3dadd(113.07, 122.17, 3.31, 0.748)
pt3dadd(113.162, 122.238, 3.302, 0.734)
pt3dadd(113.253, 122.306, 3.293, 0.718)
pt3dadd(113.345, 122.374, 3.284, 0.702)
pt3dadd(113.436, 122.442, 3.276, 0.688)
}
dend_7[50] {pt3dclear()
pt3dadd(113.436, 122.442, 3.276, 0.688)
pt3dadd(113.536, 122.504, 3.281, 0.672)
pt3dadd(113.632, 122.569, 3.285, 0.634)
pt3dadd(113.727, 122.636, 3.29, 0.59)
pt3dadd(113.822, 122.704, 3.295, 0.548)
pt3dadd(113.917, 122.77, 3.299, 0.504)
pt3dadd(114.013, 122.837, 3.304, 0.46)
pt3dadd(114.108, 122.904, 3.309, 0.416)
pt3dadd(114.203, 122.97, 3.314, 0.374)
pt3dadd(114.298, 123.037, 3.318, 0.33)
pt3dadd(114.393, 123.104, 3.323, 0.286)
pt3dadd(114.489, 123.17, 3.328, 0.242)
pt3dadd(114.579, 123.244, 3.333, 0.244)
pt3dadd(114.669, 123.318, 3.337, 0.258)
pt3dadd(114.758, 123.391, 3.342, 0.272)
pt3dadd(114.847, 123.466, 3.347, 0.288)
pt3dadd(114.937, 123.54, 3.351, 0.302)
pt3dadd(115.026, 123.613, 3.356, 0.316)
pt3dadd(115.116, 123.688, 3.361, 0.33)
pt3dadd(115.205, 123.762, 3.366, 0.346)
pt3dadd(115.294, 123.836, 3.37, 0.36)
pt3dadd(115.383, 123.91, 3.375, 0.374)
pt3dadd(115.471, 123.985, 3.38, 0.394)
pt3dadd(115.558, 124.062, 3.384, 0.414)
pt3dadd(115.646, 124.139, 3.389, 0.434)
pt3dadd(115.733, 124.214, 3.394, 0.456)
pt3dadd(115.732, 124.21, 3.399, 0.456)
pt3dadd(115.819, 124.285, 3.403, 0.476)
pt3dadd(115.907, 124.362, 3.408, 0.496)
pt3dadd(115.994, 124.439, 3.413, 0.518)
pt3dadd(116.081, 124.514, 3.417, 0.538)
pt3dadd(116.168, 124.592, 3.422, 0.558)
pt3dadd(116.255, 124.668, 3.427, 0.58)
pt3dadd(116.341, 124.746, 3.432, 0.606)
pt3dadd(116.425, 124.825, 3.436, 0.634)
pt3dadd(116.51, 124.904, 3.441, 0.66)
pt3dadd(116.595, 124.982, 3.446, 0.688)
pt3dadd(116.68, 125.063, 3.45, 0.716)
pt3dadd(116.764, 125.141, 3.455, 0.742)
pt3dadd(116.849, 125.22, 3.46, 0.77)
pt3dadd(116.934, 125.299, 3.465, 0.798)
pt3dadd(117.019, 125.377, 3.469, 0.824)
pt3dadd(117.103, 125.458, 3.474, 0.852)
pt3dadd(117.188, 125.536, 3.479, 0.852)
pt3dadd(117.273, 125.614, 3.484, 0.846)
pt3dadd(117.358, 125.693, 3.488, 0.838)
pt3dadd(117.443, 125.772, 3.493, 0.832)
pt3dadd(117.528, 125.85, 3.498, 0.826)
pt3dadd(117.613, 125.929, 3.502, 0.818)
}
}
proc shape3d_161() {
dend_7[50] { pt3dadd(117.698, 126.007, 3.507, 0.812)
pt3dadd(117.783, 126.086, 3.512, 0.804)
pt3dadd(117.868, 126.166, 3.516, 0.798)
pt3dadd(117.953, 126.244, 3.521, 0.792)
pt3dadd(118.038, 126.323, 3.526, 0.776)
pt3dadd(118.124, 126.401, 3.531, 0.76)
pt3dadd(118.209, 126.479, 3.535, 0.744)
pt3dadd(118.294, 126.558, 3.54, 0.728)
pt3dadd(118.379, 126.636, 3.545, 0.71)
pt3dadd(118.464, 126.715, 3.549, 0.694)
pt3dadd(118.549, 126.794, 3.554, 0.678)
pt3dadd(118.634, 126.872, 3.559, 0.662)
pt3dadd(118.719, 126.952, 3.564, 0.644)
pt3dadd(118.805, 127.03, 3.568, 0.628)
pt3dadd(118.89, 127.108, 3.573, 0.604)
pt3dadd(118.976, 127.186, 3.578, 0.576)
pt3dadd(119.062, 127.264, 3.582, 0.548)
pt3dadd(119.148, 127.34, 3.587, 0.52)
pt3dadd(119.233, 127.42, 3.592, 0.492)
pt3dadd(119.319, 127.496, 3.596, 0.464)
pt3dadd(119.404, 127.576, 3.601, 0.436)
pt3dadd(119.49, 127.652, 3.606, 0.408)
pt3dadd(119.576, 127.73, 3.611, 0.382)
pt3dadd(119.662, 127.81, 3.615, 0.354)
pt3dadd(119.749, 127.885, 3.62, 0.356)
pt3dadd(119.835, 127.962, 3.625, 0.368)
pt3dadd(119.922, 128.04, 3.629, 0.38)
pt3dadd(120.01, 128.116, 3.634, 0.392)
pt3dadd(120.096, 128.192, 3.639, 0.404)
pt3dadd(120.184, 128.269, 3.643, 0.416)
pt3dadd(120.27, 128.346, 3.648, 0.428)
pt3dadd(120.356, 128.423, 3.653, 0.44)
pt3dadd(120.444, 128.5, 3.657, 0.452)
pt3dadd(120.532, 128.576, 3.662, 0.464)
pt3dadd(120.618, 128.652, 3.667, 0.5)
pt3dadd(120.707, 128.728, 3.671, 0.542)
pt3dadd(120.793, 128.803, 3.676, 0.584)
pt3dadd(120.882, 128.88, 3.681, 0.628)
pt3dadd(120.97, 128.954, 3.685, 0.67)
pt3dadd(121.057, 129.031, 3.69, 0.712)
pt3dadd(121.145, 129.107, 3.695, 0.756)
pt3dadd(121.234, 129.182, 3.699, 0.798)
pt3dadd(121.32, 129.258, 3.704, 0.84)
pt3dadd(121.409, 129.334, 3.709, 0.882)
pt3dadd(121.498, 129.407, 3.713, 0.872)
pt3dadd(121.588, 129.481, 3.718, 0.844)
pt3dadd(121.679, 129.554, 3.723, 0.816)
pt3dadd(121.768, 129.626, 3.727, 0.79)
pt3dadd(121.859, 129.701, 3.732, 0.762)
pt3dadd(121.949, 129.774, 3.736, 0.734)
pt3dadd(122.039, 129.847, 3.741, 0.708)
pt3dadd(122.129, 129.92, 3.746, 0.68)
pt3dadd(122.219, 129.992, 3.75, 0.654)
pt3dadd(122.309, 130.067, 3.755, 0.626)
pt3dadd(122.405, 130.134, 3.759, 0.618)
pt3dadd(122.5, 130.199, 3.764, 0.616)
pt3dadd(122.597, 130.265, 3.768, 0.614)
pt3dadd(122.694, 130.33, 3.773, 0.61)
pt3dadd(122.789, 130.396, 3.778, 0.608)
pt3dadd(122.886, 130.46, 3.782, 0.606)
pt3dadd(122.982, 130.525, 3.787, 0.602)
pt3dadd(123.079, 130.591, 3.791, 0.6)
pt3dadd(123.175, 130.656, 3.796, 0.598)
pt3dadd(123.271, 130.721, 3.8, 0.594)
pt3dadd(123.374, 130.777, 3.805, 0.618)
pt3dadd(123.476, 130.831, 3.809, 0.648)
pt3dadd(123.581, 130.885, 3.813, 0.678)
pt3dadd(123.685, 130.94, 3.818, 0.708)
pt3dadd(123.787, 130.994, 3.822, 0.738)
pt3dadd(123.892, 131.048, 3.827, 0.768)
pt3dadd(123.996, 131.102, 3.831, 0.798)
pt3dadd(124.099, 131.156, 3.835, 0.826)
pt3dadd(124.202, 131.212, 3.84, 0.856)
pt3dadd(124.306, 131.266, 3.844, 0.886)
pt3dadd(124.405, 131.326, 3.848, 0.878)
pt3dadd(124.505, 131.388, 3.852, 0.862)
pt3dadd(124.603, 131.449, 3.857, 0.846)
pt3dadd(124.703, 131.512, 3.861, 0.83)
pt3dadd(124.801, 131.573, 3.865, 0.814)
pt3dadd(124.9, 131.634, 3.869, 0.798)
pt3dadd(124.999, 131.698, 3.873, 0.782)
pt3dadd(125.098, 131.759, 3.877, 0.766)
pt3dadd(125.197, 131.82, 3.881, 0.75)
pt3dadd(125.296, 131.882, 3.885, 0.734)
pt3dadd(125.393, 131.946, 3.889, 0.718)
pt3dadd(125.489, 132.011, 3.893, 0.702)
pt3dadd(125.586, 132.077, 3.897, 0.688)
pt3dadd(125.682, 132.142, 3.9, 0.672)
pt3dadd(125.779, 132.208, 3.904, 0.656)
pt3dadd(125.875, 132.272, 3.907, 0.64)
pt3dadd(125.971, 132.337, 3.911, 0.624)
pt3dadd(126.068, 132.403, 3.915, 0.608)
pt3dadd(126.164, 132.467, 3.918, 0.594)
pt3dadd(126.262, 132.532, 3.922, 0.578)
pt3dadd(126.359, 132.598, 3.925, 0.562)
pt3dadd(126.455, 132.661, 3.928, 0.546)
pt3dadd(126.553, 132.726, 3.932, 0.53)
pt3dadd(126.649, 132.79, 3.935, 0.514)
pt3dadd(126.746, 132.854, 3.938, 0.498)
pt3dadd(126.844, 132.919, 3.941, 0.482)
pt3dadd(126.941, 132.983, 3.944, 0.468)
pt3dadd(127.038, 133.046, 3.947, 0.452)
pt3dadd(127.135, 133.112, 3.95, 0.436)
pt3dadd(127.231, 133.176, 3.953, 0.42)
pt3dadd(127.336, 133.23, 3.955, 0.404)
pt3dadd(127.438, 133.285, 3.957, 0.386)
pt3dadd(127.542, 133.338, 3.959, 0.37)
pt3dadd(127.646, 133.393, 3.961, 0.352)
pt3dadd(127.75, 133.446, 3.963, 0.336)
pt3dadd(127.854, 133.5, 3.965, 0.318)
pt3dadd(127.958, 133.554, 3.966, 0.302)
pt3dadd(128.062, 133.608, 3.968, 0.286)
pt3dadd(128.165, 133.661, 3.97, 0.268)
pt3dadd(128.268, 133.716, 3.972, 0.252)
pt3dadd(128.369, 133.775, 3.971, 0.248)
pt3dadd(128.468, 133.836, 3.97, 0.244)
pt3dadd(128.567, 133.896, 3.968, 0.242)
pt3dadd(128.668, 133.956, 3.967, 0.24)
pt3dadd(128.767, 134.017, 3.965, 0.238)
pt3dadd(128.866, 134.078, 3.964, 0.236)
pt3dadd(128.965, 134.138, 3.963, 0.234)
pt3dadd(129.065, 134.2, 3.961, 0.23)
pt3dadd(129.164, 134.26, 3.96, 0.228)
pt3dadd(129.264, 134.32, 3.958, 0.226)
pt3dadd(129.36, 134.384, 3.955, 0.226)
pt3dadd(129.457, 134.448, 3.951, 0.226)
pt3dadd(129.554, 134.513, 3.947, 0.226)
pt3dadd(129.65, 134.576, 3.943, 0.226)
pt3dadd(129.748, 134.64, 3.939, 0.226)
pt3dadd(129.844, 134.706, 3.935, 0.226)
pt3dadd(129.941, 134.77, 3.931, 0.226)
pt3dadd(130.037, 134.833, 3.927, 0.226)
pt3dadd(130.133, 134.898, 3.923, 0.226)
pt3dadd(130.23, 134.962, 3.919, 0.226)
pt3dadd(130.324, 135.028, 3.913, 0.226)
pt3dadd(130.418, 135.096, 3.906, 0.226)
pt3dadd(130.513, 135.162, 3.899, 0.226)
pt3dadd(130.607, 135.229, 3.892, 0.226)
pt3dadd(130.702, 135.296, 3.886, 0.226)
pt3dadd(130.796, 135.362, 3.879, 0.226)
pt3dadd(130.89, 135.43, 3.872, 0.226)
pt3dadd(130.985, 135.496, 3.865, 0.226)
pt3dadd(131.078, 135.563, 3.859, 0.226)
pt3dadd(131.173, 135.63, 3.852, 0.226)
pt3dadd(131.269, 135.682, 3.823, 0.226)
pt3dadd(131.364, 135.733, 3.79, 0.226)
pt3dadd(131.461, 135.782, 3.758, 0.226)
pt3dadd(131.557, 135.832, 3.725, 0.226)
pt3dadd(131.652, 135.882, 3.692, 0.226)
pt3dadd(131.749, 135.932, 3.66, 0.226)
pt3dadd(131.844, 135.982, 3.627, 0.226)
pt3dadd(131.941, 136.032, 3.595, 0.226)
pt3dadd(132.037, 136.082, 3.562, 0.226)
pt3dadd(132.132, 136.132, 3.529, 0.226)
pt3dadd(132.227, 136.189, 3.5, 0.236)
pt3dadd(132.322, 136.246, 3.472, 0.246)
pt3dadd(132.414, 136.303, 3.443, 0.256)
pt3dadd(132.508, 136.361, 3.415, 0.268)
pt3dadd(132.601, 136.417, 3.386, 0.278)
pt3dadd(132.695, 136.475, 3.357, 0.288)
pt3dadd(132.79, 136.532, 3.329, 0.3)
pt3dadd(132.882, 136.589, 3.3, 0.31)
pt3dadd(132.977, 136.648, 3.272, 0.32)
pt3dadd(133.07, 136.704, 3.243, 0.332)
pt3dadd(133.16, 136.768, 3.218, 0.338)
pt3dadd(133.253, 136.831, 3.194, 0.344)
pt3dadd(133.343, 136.895, 3.17, 0.352)
pt3dadd(133.343, 136.89, 3.174, 0.352)
pt3dadd(133.434, 136.954, 3.15, 0.358)
pt3dadd(133.524, 137.017, 3.125, 0.364)
pt3dadd(133.615, 137.081, 3.101, 0.372)
pt3dadd(133.706, 137.144, 3.077, 0.378)
pt3dadd(133.798, 137.208, 3.052, 0.384)
pt3dadd(133.889, 137.273, 3.028, 0.39)
pt3dadd(133.979, 137.336, 3.003, 0.398)
pt3dadd(134.066, 137.406, 2.979, 0.382)
pt3dadd(134.153, 137.474, 2.955, 0.366)
pt3dadd(134.239, 137.544, 2.931, 0.348)
pt3dadd(134.327, 137.615, 2.908, 0.33)
pt3dadd(134.413, 137.683, 2.884, 0.314)
pt3dadd(134.5, 137.753, 2.86, 0.296)
pt3dadd(134.586, 137.822, 2.836, 0.278)
pt3dadd(134.672, 137.892, 2.812, 0.26)
pt3dadd(134.759, 137.962, 2.788, 0.244)
pt3dadd(134.846, 138.031, 2.764, 0.226)
pt3dadd(134.903, 138.083, 2.696, 0.226)
pt3dadd(134.962, 138.137, 2.628, 0.226)
pt3dadd(135.019, 138.188, 2.56, 0.226)
pt3dadd(135.077, 138.241, 2.492, 0.226)
pt3dadd(135.134, 138.294, 2.424, 0.226)
pt3dadd(135.192, 138.347, 2.356, 0.226)
pt3dadd(135.25, 138.398, 2.288, 0.226)
pt3dadd(135.308, 138.452, 2.22, 0.226)
pt3dadd(135.365, 138.505, 2.152, 0.226)
pt3dadd(135.365, 138.5, 2.156, 0.226)
pt3dadd(135.424, 138.552, 2.088, 0.226)
pt3dadd(135.422, 138.546, 2.093, 0.226)
pt3dadd(135.49, 138.641, 2.091, 0.33)
pt3dadd(135.557, 138.734, 2.089, 0.436)
pt3dadd(135.63, 138.815, 2.055, 0.488)
}
}
proc shape3d_162() {
dend_7[50] { pt3dadd(135.706, 138.89, 2.017, 0.526)
pt3dadd(135.809, 138.937, 1.999, 0.514)
pt3dadd(135.804, 138.935, 1.997, 0.514)
pt3dadd(135.908, 138.979, 1.979, 0.5)
pt3dadd(136.024, 138.977, 1.977, 0.466)
pt3dadd(136.139, 138.976, 1.975, 0.432)
pt3dadd(136.25, 138.979, 1.964, 0.4)
pt3dadd(136.332, 139.014, 1.899, 0.392)
pt3dadd(136.414, 139.048, 1.834, 0.384)
pt3dadd(136.493, 139.091, 1.778, 0.382)
pt3dadd(136.564, 139.183, 1.771, 0.418)
pt3dadd(136.637, 139.27, 1.764, 0.468)
pt3dadd(136.746, 139.303, 1.762, 0.636)
pt3dadd(136.848, 139.357, 1.76, 0.666)
pt3dadd(136.95, 139.411, 1.758, 0.694)
pt3dadd(137.052, 139.464, 1.756, 0.724)
pt3dadd(137.153, 139.518, 1.754, 0.754)
pt3dadd(137.251, 139.577, 1.752, 0.782)
pt3dadd(137.318, 139.67, 1.75, 0.806)
pt3dadd(137.388, 139.764, 1.748, 0.832)
pt3dadd(137.455, 139.858, 1.746, 0.856)
pt3dadd(137.522, 139.951, 1.745, 0.882)
pt3dadd(137.593, 140.044, 1.743, 0.904)
pt3dadd(137.678, 140.122, 1.741, 0.91)
pt3dadd(137.764, 140.2, 1.739, 0.914)
pt3dadd(137.848, 140.278, 1.737, 0.92)
pt3dadd(137.933, 140.354, 1.735, 0.924)
pt3dadd(138.006, 140.44, 1.733, 0.93)
pt3dadd(138.02, 140.555, 1.731, 0.94)
pt3dadd(138.036, 140.671, 1.729, 0.95)
pt3dadd(138.079, 140.774, 1.727, 0.96)
pt3dadd(138.152, 140.863, 1.725, 0.972)
pt3dadd(138.21, 140.959, 1.718, 0.994)
pt3dadd(138.234, 141.073, 1.702, 1.038)
pt3dadd(138.258, 141.184, 1.683, 1.082)
pt3dadd(138.308, 141.239, 1.606, 1.138)
pt3dadd(138.346, 141.301, 1.53, 1.188)
pt3dadd(138.348, 141.384, 1.458, 1.216)
pt3dadd(138.35, 141.466, 1.385, 1.246)
pt3dadd(138.353, 141.548, 1.313, 1.274)
pt3dadd(138.35, 141.566, 1.217, 1.28)
pt3dadd(138.347, 141.569, 1.115, 1.28)
pt3dadd(138.343, 141.571, 1.013, 1.28)
pt3dadd(138.368, 141.58, 0.915, 1.266)
pt3dadd(138.395, 141.589, 0.817, 1.248)
pt3dadd(138.421, 141.599, 0.719, 1.232)
pt3dadd(138.418, 141.596, 0.717, 1.232)
pt3dadd(138.413, 141.594, 0.715, 1.232)
pt3dadd(138.409, 141.593, 0.713, 1.232)
pt3dadd(138.406, 141.59, 0.711, 1.232)
pt3dadd(138.478, 141.664, 0.678, 1.158)
pt3dadd(138.554, 141.744, 0.651, 1.074)
pt3dadd(138.631, 141.804, 0.598, 0.954)
pt3dadd(138.719, 141.858, 0.552, 0.898)
pt3dadd(138.782, 141.877, 0.477, 0.894)
pt3dadd(138.835, 141.878, 0.387, 0.918)
pt3dadd(138.868, 141.902, 0.295, 0.962)
pt3dadd(138.884, 141.944, 0.202, 1.022)
pt3dadd(138.906, 142.015, 0.133, 1.114)
pt3dadd(138.931, 142.118, 0.092, 1.24)
pt3dadd(138.991, 142.204, 0.065, 1.376)
pt3dadd(139.084, 142.267, 0.051, 1.51)
pt3dadd(139.144, 142.352, 0.007, 1.534)
pt3dadd(139.204, 142.438, -0.038, 1.558)
pt3dadd(139.264, 142.523, -0.083, 1.582)
pt3dadd(139.322, 142.608, -0.127, 1.606)
pt3dadd(139.346, 142.722, -0.136, 1.598)
pt3dadd(139.367, 142.836, -0.142, 1.588)
pt3dadd(139.403, 142.932, -0.175, 1.562)
pt3dadd(139.454, 143.003, -0.241, 1.52)
pt3dadd(139.511, 143.021, -0.322, 1.474)
pt3dadd(139.566, 143.017, -0.41, 1.428)
pt3dadd(139.646, 143.022, -0.477, 1.362)
pt3dadd(139.75, 143.035, -0.523, 1.274)
pt3dadd(139.852, 143.068, -0.551, 1.158)
pt3dadd(139.952, 143.12, -0.564, 1.026)
pt3dadd(140.038, 143.183, -0.606, 0.996)
pt3dadd(140.123, 143.244, -0.648, 0.966)
pt3dadd(140.207, 143.306, -0.69, 0.936)
pt3dadd(140.293, 143.368, -0.733, 0.906)
pt3dadd(140.347, 143.436, -0.798, 0.91)
pt3dadd(140.401, 143.503, -0.866, 0.916)
pt3dadd(140.455, 143.57, -0.933, 0.922)
pt3dadd(140.509, 143.639, -1, 0.928)
pt3dadd(140.561, 143.716, -1.06, 0.966)
pt3dadd(140.615, 143.796, -1.117, 1.006)
pt3dadd(140.61, 143.794, -1.119, 1.006)
pt3dadd(140.677, 143.878, -1.158, 1.02)
pt3dadd(140.741, 143.966, -1.185, 1.026)
pt3dadd(140.801, 144.065, -1.187, 1.014)
pt3dadd(140.867, 144.157, -1.191, 1.004)
pt3dadd(140.972, 144.196, -1.209, 1.004)
pt3dadd(141.08, 144.233, -1.228, 1.006)
pt3dadd(141.188, 144.226, -1.266, 1.038)
pt3dadd(141.283, 144.25, -1.312, 1.06)
pt3dadd(141.365, 144.304, -1.365, 1.074)
pt3dadd(141.448, 144.356, -1.419, 1.086)
pt3dadd(141.53, 144.409, -1.472, 1.098)
pt3dadd(141.6, 144.464, -1.535, 1.104)
pt3dadd(141.65, 144.52, -1.612, 1.104)
pt3dadd(141.721, 144.545, -1.684, 1.09)
pt3dadd(141.805, 144.553, -1.753, 1.064)
pt3dadd(141.901, 144.587, -1.79, 1.038)
pt3dadd(142.006, 144.634, -1.808, 1.014)
pt3dadd(142.086, 144.708, -1.827, 0.988)
pt3dadd(142.153, 144.8, -1.846, 0.962)
pt3dadd(142.213, 144.887, -1.886, 0.954)
pt3dadd(142.283, 144.966, -1.925, 0.952)
pt3dadd(142.366, 145.038, -1.956, 0.946)
pt3dadd(142.448, 145.111, -1.987, 0.94)
pt3dadd(142.531, 145.184, -2.017, 0.934)
pt3dadd(142.6, 145.265, -2.05, 0.932)
pt3dadd(142.618, 145.372, -2.089, 0.944)
pt3dadd(142.638, 145.477, -2.129, 0.95)
pt3dadd(142.664, 145.582, -2.17, 0.924)
pt3dadd(142.704, 145.675, -2.207, 0.9)
pt3dadd(142.807, 145.722, -2.225, 0.874)
pt3dadd(142.908, 145.772, -2.244, 0.848)
pt3dadd(142.997, 145.843, -2.263, 0.808)
pt3dadd(143.081, 145.913, -2.292, 0.788)
pt3dadd(143.148, 145.978, -2.351, 0.832)
pt3dadd(143.215, 146.052, -2.402, 0.868)
pt3dadd(143.284, 146.125, -2.453, 0.906)
pt3dadd(143.35, 146.198, -2.504, 0.942)
pt3dadd(143.418, 146.273, -2.555, 0.98)
pt3dadd(143.48, 146.368, -2.579, 1.024)
pt3dadd(143.542, 146.461, -2.604, 1.07)
pt3dadd(143.603, 146.555, -2.628, 1.116)
pt3dadd(143.666, 146.65, -2.653, 1.16)
pt3dadd(143.719, 146.75, -2.665, 1.19)
pt3dadd(143.767, 146.856, -2.666, 1.21)
pt3dadd(143.814, 146.963, -2.668, 1.228)
pt3dadd(143.861, 147.068, -2.67, 1.248)
pt3dadd(143.908, 147.174, -2.672, 1.266)
pt3dadd(143.95, 147.28, -2.683, 1.282)
pt3dadd(143.972, 147.384, -2.725, 1.288)
pt3dadd(143.994, 147.488, -2.767, 1.292)
pt3dadd(144.017, 147.593, -2.81, 1.298)
pt3dadd(144.04, 147.697, -2.852, 1.304)
pt3dadd(144.067, 147.805, -2.875, 1.294)
pt3dadd(144.102, 147.917, -2.882, 1.274)
pt3dadd(144.134, 148.027, -2.894, 1.25)
pt3dadd(144.161, 148.134, -2.929, 1.226)
pt3dadd(144.197, 148.231, -2.961, 1.2)
pt3dadd(144.304, 148.271, -2.979, 1.164)
pt3dadd(144.412, 148.309, -2.995, 1.128)
pt3dadd(144.521, 148.343, -2.997, 1.108)
pt3dadd(144.632, 148.375, -2.999, 1.086)
pt3dadd(144.686, 148.436, -3.054, 1.068)
pt3dadd(144.72, 148.507, -3.129, 1.052)
pt3dadd(144.754, 148.578, -3.203, 1.036)
pt3dadd(144.827, 148.61, -3.268, 1.02)
pt3dadd(144.92, 148.626, -3.327, 1.008)
pt3dadd(145.016, 148.639, -3.381, 0.998)
pt3dadd(145.115, 148.654, -3.434, 0.988)
pt3dadd(145.204, 148.679, -3.483, 0.982)
pt3dadd(145.2, 148.676, -3.485, 0.982)
pt3dadd(145.211, 148.792, -3.5, 1.002)
pt3dadd(145.222, 148.907, -3.516, 1.022)
pt3dadd(145.256, 149.015, -3.523, 1.05)
pt3dadd(145.348, 149.075, -3.551, 1.06)
pt3dadd(145.444, 149.126, -3.584, 1.066)
pt3dadd(145.54, 149.179, -3.616, 1.072)
pt3dadd(145.636, 149.232, -3.649, 1.078)
pt3dadd(145.712, 149.264, -3.71, 1.06)
pt3dadd(145.769, 149.28, -3.796, 1.022)
pt3dadd(145.843, 149.314, -3.864, 0.982)
pt3dadd(145.931, 149.36, -3.916, 0.938)
pt3dadd(145.926, 149.358, -3.918, 0.938)
pt3dadd(145.979, 149.453, -3.935, 0.904)
pt3dadd(146.018, 149.561, -3.941, 0.87)
pt3dadd(146.089, 149.645, -3.946, 0.86)
pt3dadd(146.186, 149.707, -3.948, 0.872)
pt3dadd(146.288, 149.76, -3.95, 0.902)
pt3dadd(146.398, 149.797, -3.952, 0.968)
pt3dadd(146.5, 149.851, -3.954, 0.996)
pt3dadd(146.599, 149.908, -3.955, 1.016)
pt3dadd(146.7, 149.964, -3.957, 1.034)
pt3dadd(146.8, 150.02, -3.959, 1.054)
pt3dadd(146.9, 150.078, -3.961, 1.074)
pt3dadd(146.981, 150.157, -3.963, 1.098)
pt3dadd(147.056, 150.246, -3.965, 1.12)
pt3dadd(147.125, 150.338, -3.967, 1.116)
pt3dadd(147.192, 150.433, -3.969, 1.092)
pt3dadd(147.247, 150.534, -3.971, 1.062)
pt3dadd(147.288, 150.643, -3.973, 1.018)
pt3dadd(147.323, 150.752, -3.975, 0.976)
pt3dadd(147.323, 150.87, -3.977, 0.926)
pt3dadd(147.324, 150.988, -3.979, 0.874)
pt3dadd(147.326, 151.105, -3.981, 0.826)
pt3dadd(147.349, 151.22, -3.983, 0.78)
pt3dadd(147.368, 151.336, -3.985, 0.754)
pt3dadd(147.383, 151.451, -3.986, 0.754)
pt3dadd(147.398, 151.567, -3.988, 0.754)
pt3dadd(147.413, 151.684, -3.99, 0.754)
pt3dadd(147.427, 151.8, -3.992, 0.754)
pt3dadd(147.443, 151.915, -3.994, 0.754)
pt3dadd(147.461, 152.03, -3.996, 0.754)
pt3dadd(147.502, 152.14, -3.998, 0.764)
pt3dadd(147.544, 152.249, -4, 0.772)
}
}
proc shape3d_163() {
dend_7[50] { pt3dadd(147.586, 152.357, -4.002, 0.782)
pt3dadd(147.628, 152.466, -4.004, 0.792)
pt3dadd(147.667, 152.574, -4.006, 0.8)
pt3dadd(147.69, 152.688, -4.008, 0.806)
pt3dadd(147.702, 152.804, -4.01, 0.81)
pt3dadd(147.715, 152.921, -4.012, 0.814)
pt3dadd(147.728, 153.037, -4.014, 0.818)
pt3dadd(147.74, 153.154, -4.015, 0.822)
pt3dadd(147.754, 153.27, -4.017, 0.826)
pt3dadd(147.769, 153.386, -4.019, 0.828)
pt3dadd(147.794, 153.5, -4.021, 0.828)
pt3dadd(147.791, 153.498, -4.023, 0.828)
pt3dadd(147.815, 153.612, -4.025, 0.828)
pt3dadd(147.84, 153.726, -4.027, 0.828)
pt3dadd(147.865, 153.84, -4.029, 0.828)
pt3dadd(147.889, 153.954, -4.031, 0.828)
pt3dadd(147.906, 154.07, -4.033, 0.832)
pt3dadd(147.911, 154.187, -4.035, 0.838)
pt3dadd(147.914, 154.304, -4.037, 0.846)
pt3dadd(147.918, 154.422, -4.039, 0.854)
pt3dadd(147.922, 154.54, -4.041, 0.862)
pt3dadd(147.925, 154.657, -4.043, 0.868)
pt3dadd(147.93, 154.774, -4.045, 0.876)
pt3dadd(147.954, 154.885, -4.057, 0.888)
pt3dadd(147.991, 154.993, -4.078, 0.904)
pt3dadd(148.03, 155.101, -4.098, 0.918)
pt3dadd(148.068, 155.209, -4.118, 0.934)
pt3dadd(148.106, 155.317, -4.138, 0.95)
pt3dadd(148.145, 155.425, -4.149, 0.978)
pt3dadd(148.186, 155.534, -4.155, 1.012)
pt3dadd(148.25, 155.617, -4.143, 1.016)
pt3dadd(148.345, 155.67, -4.109, 0.99)
pt3dadd(148.382, 155.762, -4.089, 0.936)
pt3dadd(148.387, 155.879, -4.078, 0.868)
pt3dadd(148.392, 155.995, -4.068, 0.8)
pt3dadd(148.392, 156.113, -4.07, 0.724)
pt3dadd(148.392, 156.23, -4.072, 0.65)
pt3dadd(148.392, 156.348, -4.073, 0.572)
pt3dadd(148.392, 156.463, -4.055, 0.47)
pt3dadd(148.406, 156.574, -4.032, 0.398)
pt3dadd(148.447, 156.673, -3.999, 0.384)
pt3dadd(148.478, 156.781, -3.983, 0.386)
pt3dadd(148.493, 156.896, -3.989, 0.404)
pt3dadd(148.508, 157.013, -3.996, 0.424)
pt3dadd(148.51, 157.103, -4.056, 0.478)
pt3dadd(148.508, 157.188, -4.126, 0.536)
pt3dadd(148.505, 157.295, -4.16, 0.574)
pt3dadd(148.499, 157.411, -4.179, 0.604)
pt3dadd(148.482, 157.523, -4.204, 0.638)
pt3dadd(148.427, 157.62, -4.242, 0.678)
pt3dadd(148.418, 157.724, -4.288, 0.688)
pt3dadd(148.411, 157.829, -4.335, 0.698)
pt3dadd(148.402, 157.934, -4.381, 0.708)
pt3dadd(148.393, 158.039, -4.428, 0.718)
pt3dadd(148.386, 158.144, -4.473, 0.728)
pt3dadd(148.386, 158.262, -4.48, 0.744)
pt3dadd(148.386, 158.38, -4.487, 0.758)
pt3dadd(148.386, 158.497, -4.494, 0.774)
pt3dadd(148.386, 158.615, -4.501, 0.788)
pt3dadd(148.386, 158.731, -4.508, 0.804)
pt3dadd(148.386, 158.849, -4.515, 0.82)
pt3dadd(148.386, 158.966, -4.52, 0.838)
pt3dadd(148.386, 159.084, -4.522, 0.862)
pt3dadd(148.386, 159.202, -4.524, 0.888)
pt3dadd(148.386, 159.319, -4.526, 0.914)
pt3dadd(148.386, 159.437, -4.528, 0.938)
pt3dadd(148.381, 159.434, -4.53, 0.938)
pt3dadd(148.382, 159.552, -4.532, 0.964)
pt3dadd(148.382, 159.67, -4.534, 0.988)
pt3dadd(148.381, 159.782, -4.551, 1.01)
pt3dadd(148.381, 159.888, -4.598, 1.024)
pt3dadd(148.381, 159.992, -4.645, 1.038)
pt3dadd(148.38, 160.098, -4.691, 1.052)
pt3dadd(148.38, 160.202, -4.738, 1.068)
pt3dadd(148.38, 160.309, -4.78, 1.08)
pt3dadd(148.38, 160.426, -4.792, 1.08)
pt3dadd(148.38, 160.543, -4.805, 1.08)
pt3dadd(148.38, 160.66, -4.817, 1.08)
pt3dadd(148.38, 160.777, -4.829, 1.08)
pt3dadd(148.38, 160.894, -4.842, 1.08)
pt3dadd(148.38, 161.01, -4.854, 1.08)
pt3dadd(148.38, 161.128, -4.859, 1.064)
pt3dadd(148.38, 161.245, -4.861, 1.042)
pt3dadd(148.38, 161.363, -4.863, 1.02)
pt3dadd(148.38, 161.48, -4.865, 0.998)
pt3dadd(148.38, 161.598, -4.866, 0.976)
pt3dadd(148.38, 161.716, -4.868, 0.956)
pt3dadd(148.38, 161.833, -4.87, 0.934)
pt3dadd(148.39, 161.95, -4.872, 0.914)
pt3dadd(148.403, 162.066, -4.874, 0.894)
pt3dadd(148.415, 162.182, -4.876, 0.874)
pt3dadd(148.428, 162.299, -4.878, 0.854)
pt3dadd(148.44, 162.416, -4.88, 0.836)
pt3dadd(148.453, 162.533, -4.882, 0.816)
pt3dadd(148.463, 162.649, -4.884, 0.796)
pt3dadd(148.469, 162.767, -4.886, 0.778)
pt3dadd(148.475, 162.883, -4.888, 0.758)
pt3dadd(148.481, 163.001, -4.89, 0.74)
pt3dadd(148.477, 162.998, -4.892, 0.74)
pt3dadd(148.483, 163.116, -4.894, 0.72)
pt3dadd(148.489, 163.232, -4.895, 0.702)
pt3dadd(148.495, 163.35, -4.897, 0.684)
pt3dadd(148.501, 163.468, -4.899, 0.672)
pt3dadd(148.507, 163.584, -4.901, 0.666)
pt3dadd(148.512, 163.702, -4.903, 0.658)
pt3dadd(148.518, 163.819, -4.905, 0.65)
pt3dadd(148.524, 163.936, -4.907, 0.642)
pt3dadd(148.53, 164.053, -4.909, 0.636)
pt3dadd(148.537, 164.171, -4.911, 0.628)
pt3dadd(148.552, 164.287, -4.913, 0.632)
pt3dadd(148.567, 164.402, -4.915, 0.636)
pt3dadd(148.582, 164.519, -4.917, 0.64)
pt3dadd(148.596, 164.635, -4.919, 0.644)
pt3dadd(148.612, 164.75, -4.921, 0.648)
pt3dadd(148.626, 164.867, -4.923, 0.652)
pt3dadd(148.643, 164.983, -4.925, 0.66)
pt3dadd(148.661, 165.098, -4.926, 0.668)
pt3dadd(148.678, 165.215, -4.928, 0.676)
pt3dadd(148.696, 165.33, -4.93, 0.684)
pt3dadd(148.712, 165.445, -4.932, 0.692)
pt3dadd(148.729, 165.562, -4.934, 0.7)
pt3dadd(148.736, 165.678, -4.936, 0.706)
pt3dadd(148.736, 165.796, -4.938, 0.708)
pt3dadd(148.736, 165.913, -4.94, 0.712)
pt3dadd(148.736, 166.031, -4.942, 0.716)
pt3dadd(148.736, 166.148, -4.944, 0.72)
pt3dadd(148.736, 166.266, -4.946, 0.724)
pt3dadd(148.736, 166.384, -4.948, 0.726)
pt3dadd(148.736, 166.501, -4.95, 0.718)
pt3dadd(148.736, 166.619, -4.952, 0.702)
pt3dadd(148.736, 166.736, -4.954, 0.684)
pt3dadd(148.728, 166.854, -4.955, 0.666)
pt3dadd(148.712, 166.97, -4.957, 0.648)
pt3dadd(148.698, 167.088, -4.959, 0.63)
pt3dadd(148.642, 167.192, -4.961, 0.628)
pt3dadd(148.579, 167.296, -4.963, 0.628)
pt3dadd(148.495, 167.38, -4.978, 0.628)
pt3dadd(148.404, 167.456, -4.997, 0.628)
pt3dadd(148.35, 167.543, -5.047, 0.612)
pt3dadd(148.288, 167.633, -5.085, 0.596)
pt3dadd(148.213, 167.724, -5.109, 0.584)
pt3dadd(148.139, 167.815, -5.134, 0.572)
pt3dadd(148.064, 167.906, -5.159, 0.562)
pt3dadd(147.996, 168.001, -5.179, 0.552)
pt3dadd(147.941, 168.108, -5.181, 0.552)
pt3dadd(147.888, 168.215, -5.183, 0.552)
pt3dadd(147.839, 168.324, -5.19, 0.574)
pt3dadd(147.788, 168.433, -5.196, 0.598)
pt3dadd(147.773, 168.504, -5.267, 0.612)
pt3dadd(147.766, 168.565, -5.353, 0.624)
pt3dadd(147.761, 168.614, -5.445, 0.62)
pt3dadd(147.757, 168.659, -5.539, 0.61)
pt3dadd(147.756, 168.719, -5.625, 0.56)
pt3dadd(147.755, 168.8, -5.697, 0.454)
}
dend_7[51] {pt3dclear()
pt3dadd(113.436, 122.442, 3.276, 0.688)
pt3dadd(113.433, 122.446, 3.269, 0.904)
pt3dadd(113.429, 122.449, 3.263, 0.904)
pt3dadd(113.425, 122.452, 3.256, 0.904)
pt3dadd(113.486, 122.555, 3.232, 0.968)
pt3dadd(113.545, 122.657, 3.208, 1.032)
pt3dadd(113.545, 122.753, 3.138, 1.09)
pt3dadd(113.544, 122.85, 3.069, 1.148)
pt3dadd(113.544, 122.956, 3.011, 1.166)
pt3dadd(113.544, 123.062, 2.953, 1.176)
pt3dadd(113.54, 123.065, 2.947, 1.176)
pt3dadd(113.537, 123.068, 2.94, 1.176)
pt3dadd(113.535, 123.131, 2.852, 1.18)
pt3dadd(113.533, 123.173, 2.751, 1.18)
pt3dadd(113.539, 123.221, 2.652, 1.178)
pt3dadd(113.561, 123.275, 2.558, 1.17)
pt3dadd(113.584, 123.33, 2.464, 1.162)
pt3dadd(113.608, 123.386, 2.372, 1.158)
pt3dadd(113.659, 123.484, 2.322, 1.198)
pt3dadd(113.721, 123.559, 2.272, 1.236)
pt3dadd(113.823, 123.563, 2.219, 1.262)
pt3dadd(113.927, 123.568, 2.166, 1.288)
pt3dadd(114.028, 123.57, 2.112, 1.31)
pt3dadd(114.128, 123.569, 2.055, 1.322)
pt3dadd(114.223, 123.575, 1.994, 1.33)
pt3dadd(114.292, 123.614, 1.913, 1.318)
pt3dadd(114.361, 123.654, 1.833, 1.308)
pt3dadd(114.443, 123.718, 1.785, 1.296)
pt3dadd(114.53, 123.791, 1.748, 1.282)
pt3dadd(114.575, 123.812, 1.655, 1.254)
pt3dadd(114.635, 123.816, 1.564, 1.244)
pt3dadd(114.696, 123.82, 1.473, 1.234)
pt3dadd(114.756, 123.823, 1.381, 1.224)
pt3dadd(114.816, 123.827, 1.29, 1.214)
pt3dadd(114.878, 123.841, 1.203, 1.202)
pt3dadd(114.949, 123.898, 1.131, 1.184)
pt3dadd(115.019, 123.954, 1.059, 1.164)
pt3dadd(115.089, 124.01, 0.987, 1.146)
pt3dadd(115.16, 124.067, 0.917, 1.128)
pt3dadd(115.243, 124.129, 0.861, 1.11)
pt3dadd(115.326, 124.192, 0.806, 1.09)
pt3dadd(115.409, 124.253, 0.751, 1.072)
pt3dadd(115.492, 124.315, 0.695, 1.054)
pt3dadd(115.585, 124.367, 0.646, 0.998)
pt3dadd(115.675, 124.409, 0.589, 0.944)
pt3dadd(115.75, 124.416, 0.507, 0.894)
}
}
proc shape3d_164() {
dend_7[51] { pt3dadd(115.826, 124.421, 0.425, 0.846)
pt3dadd(115.903, 124.422, 0.345, 0.798)
pt3dadd(115.982, 124.422, 0.267, 0.754)
pt3dadd(116.098, 124.426, 0.257, 0.744)
pt3dadd(116.214, 124.429, 0.246, 0.734)
pt3dadd(116.328, 124.444, 0.236, 0.732)
pt3dadd(116.439, 124.486, 0.23, 0.748)
pt3dadd(116.553, 124.502, 0.223, 0.762)
pt3dadd(116.669, 124.507, 0.216, 0.772)
pt3dadd(116.785, 124.512, 0.21, 0.784)
pt3dadd(116.901, 124.517, 0.203, 0.796)
pt3dadd(117.018, 124.522, 0.196, 0.806)
pt3dadd(117.134, 124.526, 0.19, 0.818)
pt3dadd(117.251, 124.531, 0.183, 0.828)
pt3dadd(117.365, 124.531, 0.16, 0.838)
pt3dadd(117.48, 124.53, 0.136, 0.846)
pt3dadd(117.595, 124.529, 0.113, 0.854)
pt3dadd(117.708, 124.528, 0.09, 0.862)
pt3dadd(117.823, 124.526, 0.067, 0.87)
pt3dadd(117.939, 124.526, 0.044, 0.878)
pt3dadd(118.055, 124.525, 0.037, 0.882)
pt3dadd(118.171, 124.524, 0.03, 0.886)
pt3dadd(118.287, 124.523, 0.023, 0.89)
pt3dadd(118.403, 124.522, 0.017, 0.894)
pt3dadd(118.52, 124.522, 0.01, 0.896)
pt3dadd(118.636, 124.52, 0.003, 0.9)
pt3dadd(118.752, 124.519, -0.003, 0.904)
pt3dadd(118.866, 124.525, -0.026, 0.908)
pt3dadd(118.98, 124.53, -0.05, 0.912)
pt3dadd(119.095, 124.536, -0.075, 0.916)
pt3dadd(119.21, 124.542, -0.098, 0.922)
pt3dadd(119.324, 124.548, -0.123, 0.926)
pt3dadd(119.438, 124.56, -0.143, 0.93)
pt3dadd(119.549, 124.595, -0.15, 0.934)
pt3dadd(119.662, 124.63, -0.157, 0.938)
pt3dadd(119.774, 124.664, -0.163, 0.944)
pt3dadd(119.886, 124.699, -0.17, 0.948)
pt3dadd(119.998, 124.735, -0.177, 0.952)
pt3dadd(120.108, 124.775, -0.183, 0.956)
pt3dadd(120.217, 124.819, -0.19, 0.962)
pt3dadd(120.326, 124.862, -0.197, 0.966)
pt3dadd(120.437, 124.907, -0.203, 0.97)
pt3dadd(120.545, 124.95, -0.21, 0.976)
pt3dadd(120.655, 124.99, -0.221, 0.98)
pt3dadd(120.767, 125.012, -0.246, 0.98)
pt3dadd(120.88, 125.034, -0.272, 0.98)
pt3dadd(120.992, 125.057, -0.298, 0.98)
pt3dadd(121.105, 125.078, -0.324, 0.98)
pt3dadd(121.217, 125.101, -0.35, 0.98)
pt3dadd(121.33, 125.126, -0.376, 0.98)
pt3dadd(121.441, 125.152, -0.403, 0.98)
pt3dadd(121.553, 125.177, -0.429, 0.98)
pt3dadd(121.666, 125.202, -0.455, 0.98)
pt3dadd(121.777, 125.227, -0.481, 0.98)
pt3dadd(121.849, 125.32, -0.49, 0.98)
pt3dadd(121.916, 125.419, -0.496, 0.98)
pt3dadd(122.01, 125.49, -0.503, 0.97)
pt3dadd(122.111, 125.55, -0.51, 0.96)
pt3dadd(122.214, 125.608, -0.519, 0.942)
pt3dadd(122.318, 125.663, -0.531, 0.918)
pt3dadd(122.386, 125.73, -0.571, 0.894)
pt3dadd(122.399, 125.814, -0.65, 0.868)
pt3dadd(122.443, 125.89, -0.715, 0.844)
pt3dadd(122.527, 125.96, -0.761, 0.83)
pt3dadd(122.598, 126.04, -0.813, 0.836)
pt3dadd(122.668, 126.119, -0.866, 0.842)
pt3dadd(122.738, 126.198, -0.919, 0.848)
pt3dadd(122.813, 126.268, -0.974, 0.858)
pt3dadd(122.905, 126.288, -1.038, 0.884)
pt3dadd(123.001, 126.308, -1.1, 0.91)
pt3dadd(123.098, 126.328, -1.158, 0.934)
pt3dadd(123.2, 126.352, -1.203, 0.96)
pt3dadd(123.311, 126.391, -1.21, 0.98)
pt3dadd(123.422, 126.43, -1.216, 1.002)
pt3dadd(123.506, 126.512, -1.223, 1.004)
pt3dadd(123.588, 126.601, -1.23, 1.004)
pt3dadd(123.671, 126.686, -1.236, 1.004)
pt3dadd(123.757, 126.768, -1.243, 1)
pt3dadd(123.85, 126.844, -1.25, 0.988)
pt3dadd(123.934, 126.925, -1.256, 0.976)
pt3dadd(123.98, 127.038, -1.263, 0.966)
pt3dadd(124.027, 127.15, -1.27, 0.956)
pt3dadd(124.062, 127.26, -1.307, 0.93)
pt3dadd(124.094, 127.369, -1.348, 0.906)
pt3dadd(124.2, 127.387, -1.384, 0.862)
pt3dadd(124.31, 127.398, -1.421, 0.816)
pt3dadd(124.422, 127.421, -1.449, 0.788)
pt3dadd(124.534, 127.45, -1.474, 0.768)
pt3dadd(124.645, 127.478, -1.499, 0.748)
pt3dadd(124.757, 127.505, -1.523, 0.728)
pt3dadd(124.873, 127.508, -1.529, 0.718)
pt3dadd(124.99, 127.512, -1.536, 0.71)
pt3dadd(125.101, 127.529, -1.545, 0.706)
pt3dadd(125.196, 127.6, -1.565, 0.726)
pt3dadd(125.29, 127.67, -1.584, 0.744)
pt3dadd(125.365, 127.745, -1.628, 0.786)
pt3dadd(125.426, 127.823, -1.692, 0.844)
pt3dadd(125.464, 127.916, -1.748, 0.932)
pt3dadd(125.545, 127.993, -1.79, 0.95)
pt3dadd(125.627, 128.07, -1.831, 0.968)
pt3dadd(125.708, 128.147, -1.872, 0.986)
pt3dadd(125.79, 128.224, -1.913, 1.004)
pt3dadd(125.881, 128.296, -1.94, 1.016)
pt3dadd(125.974, 128.368, -1.967, 1.026)
pt3dadd(126.065, 128.44, -1.993, 1.038)
pt3dadd(126.156, 128.512, -2.02, 1.05)
pt3dadd(126.242, 128.58, -2.062, 1.062)
pt3dadd(126.323, 128.646, -2.117, 1.074)
pt3dadd(126.403, 128.712, -2.173, 1.086)
pt3dadd(126.484, 128.777, -2.229, 1.098)
pt3dadd(126.559, 128.843, -2.288, 1.108)
pt3dadd(126.631, 128.91, -2.353, 1.114)
pt3dadd(126.702, 128.976, -2.417, 1.12)
pt3dadd(126.774, 129.042, -2.481, 1.126)
pt3dadd(126.845, 129.114, -2.541, 1.126)
pt3dadd(126.916, 129.193, -2.594, 1.112)
pt3dadd(126.985, 129.272, -2.647, 1.1)
pt3dadd(127.056, 129.352, -2.7, 1.088)
pt3dadd(127.105, 129.439, -2.754, 1.072)
pt3dadd(127.104, 129.546, -2.812, 1.05)
pt3dadd(127.11, 129.65, -2.87, 1.03)
pt3dadd(127.154, 129.742, -2.932, 1.03)
pt3dadd(127.19, 129.823, -3.004, 1.042)
pt3dadd(127.208, 129.886, -3.095, 1.08)
pt3dadd(127.219, 129.944, -3.189, 1.12)
pt3dadd(127.218, 129.995, -3.288, 1.164)
pt3dadd(127.216, 130.046, -3.386, 1.204)
pt3dadd(127.214, 130.124, -3.471, 1.198)
pt3dadd(127.213, 130.202, -3.555, 1.19)
pt3dadd(127.212, 130.28, -3.64, 1.184)
pt3dadd(127.212, 130.381, -3.687, 1.166)
pt3dadd(127.212, 130.505, -3.697, 1.14)
pt3dadd(127.213, 130.627, -3.708, 1.114)
pt3dadd(127.213, 130.75, -3.723, 1.018)
pt3dadd(127.224, 130.871, -3.745, 0.972)
pt3dadd(127.24, 130.991, -3.768, 0.964)
pt3dadd(127.254, 131.111, -3.79, 0.954)
pt3dadd(127.268, 131.232, -3.813, 0.946)
pt3dadd(127.284, 131.352, -3.836, 0.936)
pt3dadd(127.297, 131.468, -3.865, 0.928)
pt3dadd(127.306, 131.572, -3.927, 0.922)
pt3dadd(127.314, 131.674, -3.989, 0.918)
pt3dadd(127.321, 131.776, -4.051, 0.912)
pt3dadd(127.33, 131.879, -4.113, 0.908)
pt3dadd(127.334, 131.968, -4.186, 0.904)
pt3dadd(127.332, 132.031, -4.279, 0.904)
pt3dadd(127.337, 132.103, -4.361, 0.904)
pt3dadd(127.376, 132.216, -4.39, 0.904)
pt3dadd(127.414, 132.329, -4.416, 0.902)
pt3dadd(127.429, 132.45, -4.422, 0.884)
pt3dadd(127.444, 132.572, -4.429, 0.864)
pt3dadd(127.468, 132.692, -4.436, 0.846)
pt3dadd(127.5, 132.809, -4.442, 0.824)
pt3dadd(127.534, 132.926, -4.449, 0.804)
pt3dadd(127.544, 133.044, -4.482, 0.79)
pt3dadd(127.555, 133.163, -4.514, 0.778)
pt3dadd(127.566, 133.28, -4.547, 0.764)
pt3dadd(127.566, 133.394, -4.585, 0.756)
pt3dadd(127.562, 133.398, -4.592, 0.756)
pt3dadd(127.518, 133.492, -4.654, 0.77)
pt3dadd(127.47, 133.584, -4.717, 0.782)
pt3dadd(127.417, 133.674, -4.78, 0.794)
pt3dadd(127.368, 133.763, -4.844, 0.804)
pt3dadd(127.346, 133.804, -4.945, 0.828)
pt3dadd(127.326, 133.846, -5.045, 0.852)
pt3dadd(127.318, 133.904, -5.138, 0.93)
pt3dadd(127.29, 133.994, -5.211, 0.942)
pt3dadd(127.261, 134.084, -5.284, 0.954)
pt3dadd(127.258, 134.088, -5.291, 0.954)
pt3dadd(127.23, 134.177, -5.364, 0.966)
pt3dadd(127.201, 134.267, -5.437, 0.976)
pt3dadd(127.189, 134.356, -5.513, 0.97)
pt3dadd(127.182, 134.443, -5.59, 0.958)
pt3dadd(127.136, 134.54, -5.642, 0.914)
pt3dadd(127.078, 134.641, -5.685, 0.858)
pt3dadd(127.015, 134.717, -5.754, 0.828)
pt3dadd(126.962, 134.779, -5.831, 0.804)
pt3dadd(126.955, 134.783, -5.937, 0.804)
pt3dadd(126.947, 134.786, -6.044, 0.804)
pt3dadd(126.93, 134.806, -6.146, 0.804)
pt3dadd(126.894, 134.864, -6.237, 0.804)
pt3dadd(126.859, 134.923, -6.328, 0.804)
pt3dadd(126.827, 134.989, -6.414, 0.8)
pt3dadd(126.821, 135.098, -6.468, 0.764)
pt3dadd(126.815, 135.208, -6.521, 0.728)
pt3dadd(126.796, 135.324, -6.554, 0.676)
pt3dadd(126.772, 135.445, -6.57, 0.67)
pt3dadd(126.749, 135.566, -6.587, 0.666)
pt3dadd(126.725, 135.688, -6.603, 0.66)
pt3dadd(126.7, 135.809, -6.62, 0.654)
pt3dadd(126.697, 135.929, -6.61, 0.668)
pt3dadd(126.697, 136.049, -6.593, 0.684)
pt3dadd(126.697, 136.169, -6.577, 0.702)
pt3dadd(126.698, 136.289, -6.561, 0.718)
pt3dadd(126.698, 136.408, -6.545, 0.736)
pt3dadd(126.698, 136.528, -6.528, 0.754)
pt3dadd(126.695, 136.531, -6.535, 0.754)
pt3dadd(126.676, 136.654, -6.542, 0.766)
pt3dadd(126.656, 136.776, -6.548, 0.778)
pt3dadd(126.637, 136.898, -6.555, 0.79)
}
}
proc shape3d_165() {
dend_7[51] { pt3dadd(126.618, 137.02, -6.562, 0.802)
pt3dadd(126.599, 137.142, -6.568, 0.816)
pt3dadd(126.578, 137.264, -6.575, 0.828)
pt3dadd(126.514, 137.37, -6.582, 0.842)
pt3dadd(126.445, 137.473, -6.588, 0.858)
pt3dadd(126.376, 137.578, -6.595, 0.872)
pt3dadd(126.307, 137.681, -6.602, 0.888)
pt3dadd(126.236, 137.784, -6.608, 0.902)
pt3dadd(126.176, 137.893, -6.615, 0.9)
pt3dadd(126.116, 138.002, -6.622, 0.894)
pt3dadd(126.056, 138.112, -6.628, 0.89)
pt3dadd(125.996, 138.221, -6.635, 0.886)
pt3dadd(125.938, 138.331, -6.642, 0.88)
pt3dadd(125.862, 138.43, -6.65, 0.876)
pt3dadd(125.782, 138.526, -6.659, 0.87)
pt3dadd(125.702, 138.622, -6.668, 0.864)
pt3dadd(125.623, 138.718, -6.677, 0.86)
pt3dadd(125.543, 138.814, -6.686, 0.854)
pt3dadd(125.465, 138.9, -6.726, 0.848)
pt3dadd(125.387, 138.986, -6.77, 0.842)
pt3dadd(125.309, 139.073, -6.814, 0.836)
pt3dadd(125.231, 139.159, -6.858, 0.83)
pt3dadd(125.173, 139.253, -6.91, 0.824)
pt3dadd(125.122, 139.35, -6.964, 0.818)
pt3dadd(125.07, 139.447, -7.019, 0.812)
pt3dadd(125.018, 139.544, -7.073, 0.806)
pt3dadd(124.964, 139.638, -7.131, 0.796)
pt3dadd(124.909, 139.728, -7.192, 0.784)
pt3dadd(124.853, 139.817, -7.253, 0.772)
pt3dadd(124.798, 139.907, -7.313, 0.76)
pt3dadd(124.765, 140.002, -7.375, 0.744)
pt3dadd(124.765, 140.104, -7.438, 0.72)
pt3dadd(124.758, 140.194, -7.511, 0.704)
pt3dadd(124.738, 140.25, -7.605, 0.704)
pt3dadd(124.696, 140.312, -7.678, 0.71)
pt3dadd(124.597, 140.389, -7.69, 0.734)
pt3dadd(124.504, 140.465, -7.713, 0.764)
pt3dadd(124.426, 140.532, -7.777, 0.822)
pt3dadd(124.369, 140.621, -7.828, 0.868)
pt3dadd(124.338, 140.735, -7.864, 0.896)
pt3dadd(124.307, 140.85, -7.901, 0.926)
pt3dadd(124.277, 140.964, -7.936, 0.956)
pt3dadd(124.277, 141.086, -7.955, 0.974)
pt3dadd(124.278, 141.209, -7.974, 0.992)
pt3dadd(124.271, 141.325, -8.007, 0.976)
pt3dadd(124.248, 141.431, -8.063, 0.934)
pt3dadd(124.224, 141.536, -8.119, 0.906)
pt3dadd(124.201, 141.643, -8.174, 0.88)
pt3dadd(124.177, 141.749, -8.229, 0.852)
pt3dadd(124.157, 141.853, -8.287, 0.826)
pt3dadd(124.153, 141.949, -8.357, 0.806)
pt3dadd(124.151, 142.045, -8.427, 0.784)
pt3dadd(124.147, 142.141, -8.497, 0.764)
pt3dadd(124.145, 142.237, -8.568, 0.744)
pt3dadd(124.13, 142.338, -8.625, 0.728)
pt3dadd(124.086, 142.452, -8.648, 0.728)
pt3dadd(124.048, 142.566, -8.674, 0.736)
pt3dadd(124.042, 142.682, -8.716, 0.782)
pt3dadd(124.036, 142.798, -8.757, 0.826)
pt3dadd(124.03, 142.903, -8.815, 0.896)
pt3dadd(124.024, 143.009, -8.875, 0.968)
pt3dadd(123.98, 143.052, -8.965, 1.01)
pt3dadd(123.931, 143.083, -9.061, 1.048)
pt3dadd(123.913, 143.14, -9.155, 1.04)
pt3dadd(123.907, 143.214, -9.241, 0.998)
pt3dadd(123.907, 143.305, -9.315, 0.926)
pt3dadd(123.906, 143.401, -9.384, 0.856)
pt3dadd(123.906, 143.508, -9.442, 0.788)
pt3dadd(123.906, 143.606, -9.505, 0.724)
pt3dadd(123.904, 143.657, -9.604, 0.69)
pt3dadd(123.902, 143.706, -9.702, 0.658)
pt3dadd(123.905, 143.752, -9.803, 0.682)
pt3dadd(123.908, 143.796, -9.903, 0.714)
pt3dadd(123.942, 143.863, -9.981, 0.754)
pt3dadd(123.995, 143.947, -10.045, 0.796)
pt3dadd(124.049, 144.03, -10.109, 0.84)
pt3dadd(124.129, 144.097, -10.159, 0.882)
pt3dadd(124.223, 144.155, -10.202, 0.922)
pt3dadd(124.218, 144.158, -10.208, 0.922)
pt3dadd(124.259, 144.253, -10.261, 0.874)
pt3dadd(124.321, 144.348, -10.301, 0.85)
pt3dadd(124.382, 144.443, -10.342, 0.828)
pt3dadd(124.445, 144.538, -10.382, 0.804)
pt3dadd(124.507, 144.634, -10.423, 0.78)
pt3dadd(124.558, 144.728, -10.474, 0.762)
pt3dadd(124.608, 144.824, -10.525, 0.744)
pt3dadd(124.657, 144.922, -10.576, 0.726)
pt3dadd(124.709, 145.016, -10.628, 0.708)
pt3dadd(124.784, 145.079, -10.685, 0.698)
pt3dadd(124.872, 145.127, -10.745, 0.692)
pt3dadd(124.96, 145.176, -10.805, 0.686)
pt3dadd(125.047, 145.224, -10.865, 0.68)
pt3dadd(125.14, 145.278, -10.91, 0.678)
pt3dadd(125.238, 145.338, -10.941, 0.678)
pt3dadd(125.335, 145.398, -10.973, 0.678)
pt3dadd(125.434, 145.457, -11.005, 0.678)
pt3dadd(125.527, 145.514, -11.042, 0.678)
pt3dadd(125.598, 145.552, -11.122, 0.678)
pt3dadd(125.656, 145.612, -11.185, 0.682)
pt3dadd(125.68, 145.73, -11.206, 0.692)
pt3dadd(125.704, 145.849, -11.227, 0.702)
pt3dadd(125.736, 145.967, -11.234, 0.744)
pt3dadd(125.77, 146.084, -11.241, 0.786)
pt3dadd(125.784, 146.204, -11.247, 0.832)
pt3dadd(125.785, 146.328, -11.254, 0.882)
pt3dadd(125.785, 146.45, -11.261, 0.932)
pt3dadd(125.807, 146.57, -11.267, 0.976)
pt3dadd(125.844, 146.686, -11.274, 1.014)
pt3dadd(125.881, 146.802, -11.281, 1.052)
pt3dadd(125.917, 146.918, -11.287, 1.09)
pt3dadd(125.993, 147.004, -11.291, 1.118)
pt3dadd(126.092, 147.066, -11.292, 1.142)
pt3dadd(126.197, 147.107, -11.281, 1.138)
pt3dadd(126.305, 147.131, -11.256, 1.082)
pt3dadd(126.413, 147.155, -11.23, 1.022)
pt3dadd(126.464, 147.247, -11.238, 0.948)
pt3dadd(126.494, 147.364, -11.26, 0.868)
pt3dadd(126.564, 147.434, -11.29, 0.78)
pt3dadd(126.672, 147.46, -11.33, 0.682)
pt3dadd(126.782, 147.473, -11.356, 0.608)
pt3dadd(126.899, 147.472, -11.366, 0.564)
pt3dadd(127.015, 147.47, -11.377, 0.522)
pt3dadd(127.098, 147.47, -11.433, 0.49)
pt3dadd(127.156, 147.472, -11.526, 0.466)
pt3dadd(127.195, 147.473, -11.624, 0.452)
pt3dadd(127.218, 147.485, -11.727, 0.468)
pt3dadd(127.272, 147.551, -11.792, 0.592)
pt3dadd(127.301, 147.667, -11.814, 0.792)
pt3dadd(127.306, 147.787, -11.844, 0.916)
pt3dadd(127.304, 147.864, -11.925, 0.908)
pt3dadd(127.303, 147.935, -12.014, 0.886)
pt3dadd(127.3, 147.961, -12.116, 0.854)
pt3dadd(127.297, 147.97, -12.222, 0.82)
pt3dadd(127.294, 147.977, -12.329, 0.784)
pt3dadd(127.29, 147.982, -12.436, 0.716)
pt3dadd(127.286, 147.988, -12.542, 0.696)
pt3dadd(127.283, 147.996, -12.649, 0.688)
pt3dadd(127.279, 148.003, -12.755, 0.678)
pt3dadd(127.283, 148.045, -12.856, 0.688)
pt3dadd(127.285, 148.09, -12.956, 0.7)
pt3dadd(127.312, 148.11, -13.057, 0.718)
pt3dadd(127.35, 148.117, -13.157, 0.74)
pt3dadd(127.374, 148.15, -13.254, 0.764)
pt3dadd(127.379, 148.216, -13.345, 0.788)
pt3dadd(127.382, 148.3, -13.413, 0.808)
pt3dadd(127.382, 148.422, -13.432, 0.822)
pt3dadd(127.382, 148.514, -13.49, 0.822)
pt3dadd(127.381, 148.578, -13.583, 0.812)
pt3dadd(127.366, 148.631, -13.678, 0.804)
pt3dadd(127.324, 148.661, -13.777, 0.804)
pt3dadd(127.288, 148.717, -13.851, 0.804)
pt3dadd(127.267, 148.838, -13.862, 0.804)
pt3dadd(127.247, 148.961, -13.873, 0.804)
pt3dadd(127.211, 149.08, -13.88, 0.838)
pt3dadd(127.171, 149.197, -13.887, 0.88)
pt3dadd(127.117, 149.308, -13.894, 0.922)
pt3dadd(127.046, 149.411, -13.9, 0.964)
pt3dadd(126.976, 149.513, -13.907, 1.006)
pt3dadd(126.905, 149.616, -13.914, 1.048)
pt3dadd(126.814, 149.7, -13.92, 1.146)
pt3dadd(126.718, 149.782, -13.927, 1.252)
pt3dadd(126.668, 149.891, -13.934, 1.416)
pt3dadd(126.662, 150.013, -13.94, 1.448)
pt3dadd(126.659, 150.137, -13.947, 1.464)
pt3dadd(126.653, 150.259, -13.954, 1.48)
pt3dadd(126.599, 150.372, -13.96, 1.424)
pt3dadd(126.546, 150.484, -13.967, 1.368)
pt3dadd(126.47, 150.582, -13.974, 1.282)
pt3dadd(126.389, 150.676, -13.98, 1.186)
pt3dadd(126.292, 150.752, -13.987, 1.078)
pt3dadd(126.185, 150.821, -13.993, 0.964)
pt3dadd(126.078, 150.877, -14.012, 0.842)
pt3dadd(125.968, 150.926, -14.045, 0.722)
pt3dadd(125.872, 150.991, -14.088, 0.682)
pt3dadd(125.773, 151.061, -14.122, 0.652)
pt3dadd(125.676, 151.138, -14.134, 0.652)
pt3dadd(125.597, 151.223, -14.153, 0.652)
pt3dadd(125.593, 151.226, -14.16, 0.652)
pt3dadd(125.574, 151.339, -14.204, 0.652)
pt3dadd(125.558, 151.454, -14.243, 0.648)
pt3dadd(125.558, 151.578, -14.253, 0.612)
pt3dadd(125.56, 151.7, -14.264, 0.578)
pt3dadd(125.56, 151.824, -14.273, 0.532)
pt3dadd(125.561, 151.946, -14.28, 0.456)
pt3dadd(125.561, 152.07, -14.287, 0.378)
pt3dadd(125.561, 152.194, -14.293, 0.29)
}
dend_7[52] {pt3dclear()
pt3dadd(108.022, 117.034, 5.427, 1.018)
pt3dadd(107.993, 117.036, 5.431, 1.02)
pt3dadd(107.875, 117.044, 5.448, 1.032)
pt3dadd(107.757, 117.052, 5.465, 1.042)
pt3dadd(107.639, 117.061, 5.481, 1.052)
pt3dadd(107.521, 117.069, 5.498, 1.064)
pt3dadd(107.403, 117.077, 5.515, 1.074)
pt3dadd(107.285, 117.086, 5.531, 1.086)
pt3dadd(107.167, 117.094, 5.548, 1.096)
pt3dadd(107.049, 117.102, 5.565, 1.106)
pt3dadd(106.931, 117.111, 5.581, 1.118)
pt3dadd(106.813, 117.119, 5.598, 1.128)
pt3dadd(106.8, 117.225, 5.585, 1.13)
pt3dadd(106.8, 117.343, 5.569, 1.13)
}
}
proc shape3d_166() {
dend_7[52] { pt3dadd(106.8, 117.462, 5.553, 1.13)
pt3dadd(106.8, 117.58, 5.536, 1.13)
pt3dadd(106.8, 117.699, 5.52, 1.13)
pt3dadd(106.8, 117.817, 5.503, 1.13)
pt3dadd(106.8, 117.937, 5.5, 1.13)
pt3dadd(106.8, 118.057, 5.5, 1.13)
pt3dadd(106.8, 118.177, 5.5, 1.13)
pt3dadd(106.8, 118.297, 5.5, 1.13)
pt3dadd(106.8, 118.417, 5.5, 1.13)
pt3dadd(106.8, 118.537, 5.5, 1.13)
pt3dadd(106.8, 118.657, 5.5, 1.13)
pt3dadd(106.8, 118.777, 5.5, 1.13)
pt3dadd(106.8, 118.897, 5.5, 1.13)
pt3dadd(106.8, 119.017, 5.5, 1.13)
pt3dadd(106.8, 119.137, 5.5, 1.13)
pt3dadd(106.8, 119.257, 5.5, 1.13)
pt3dadd(106.8, 119.377, 5.5, 1.13)
pt3dadd(106.8, 119.497, 5.5, 1.13)
pt3dadd(106.8, 119.615, 5.487, 1.13)
pt3dadd(106.8, 119.734, 5.47, 1.13)
pt3dadd(106.8, 119.852, 5.454, 1.13)
pt3dadd(106.8, 119.97, 5.438, 1.13)
pt3dadd(106.8, 120.089, 5.421, 1.13)
pt3dadd(106.8, 120.208, 5.405, 1.13)
pt3dadd(106.8, 120.326, 5.4, 1.13)
pt3dadd(106.8, 120.446, 5.4, 1.13)
pt3dadd(106.8, 120.566, 5.4, 1.13)
pt3dadd(106.8, 120.686, 5.397, 1.13)
pt3dadd(106.8, 120.806, 5.393, 1.13)
pt3dadd(106.8, 120.926, 5.39, 1.13)
pt3dadd(106.8, 121.014, 5.328, 1.13)
pt3dadd(106.8, 121.096, 5.255, 1.13)
pt3dadd(106.8, 121.186, 5.189, 1.13)
pt3dadd(106.8, 121.28, 5.127, 1.13)
pt3dadd(106.8, 121.378, 5.069, 1.13)
pt3dadd(106.8, 121.481, 5.018, 1.13)
pt3dadd(106.8, 121.594, 4.983, 1.13)
pt3dadd(106.8, 121.705, 4.949, 1.13)
pt3dadd(106.8, 121.818, 4.914, 1.13)
pt3dadd(106.8, 121.931, 4.879, 1.13)
pt3dadd(106.8, 122.044, 4.844, 1.13)
pt3dadd(106.8, 122.161, 4.83, 1.13)
pt3dadd(106.8, 122.281, 4.825, 1.13)
pt3dadd(106.8, 122.401, 4.82, 1.13)
pt3dadd(106.8, 122.52, 4.815, 1.13)
pt3dadd(106.8, 122.64, 4.81, 1.13)
pt3dadd(106.8, 122.76, 4.805, 1.13)
pt3dadd(106.8, 122.88, 4.8, 1.13)
}
dend_7[53] {pt3dclear()
pt3dadd(106.8, 122.88, 4.8, 1.13)
pt3dadd(106.794, 122.957, 4.765, 1.13)
pt3dadd(106.791, 123.072, 4.722, 1.13)
pt3dadd(106.788, 123.187, 4.679, 1.13)
pt3dadd(106.785, 123.301, 4.636, 1.13)
pt3dadd(106.782, 123.416, 4.593, 1.13)
pt3dadd(106.789, 123.532, 4.559, 1.13)
pt3dadd(106.828, 123.648, 4.553, 1.13)
pt3dadd(106.867, 123.763, 4.547, 1.13)
pt3dadd(106.905, 123.88, 4.541, 1.13)
pt3dadd(106.944, 123.996, 4.536, 1.13)
pt3dadd(106.983, 124.112, 4.53, 1.13)
pt3dadd(107.026, 124.226, 4.524, 1.13)
pt3dadd(107.069, 124.339, 4.518, 1.13)
pt3dadd(107.145, 124.422, 4.512, 1.13)
pt3dadd(107.253, 124.471, 4.506, 1.13)
pt3dadd(107.355, 124.53, 4.499, 1.13)
pt3dadd(107.436, 124.619, 4.488, 1.13)
pt3dadd(107.511, 124.708, 4.467, 1.13)
pt3dadd(107.508, 124.711, 4.461, 1.13)
pt3dadd(107.55, 124.796, 4.393, 1.13)
pt3dadd(107.579, 124.882, 4.32, 1.13)
pt3dadd(107.588, 124.963, 4.241, 1.13)
pt3dadd(107.637, 125.057, 4.185, 1.13)
pt3dadd(107.634, 125.06, 4.179, 1.13)
pt3dadd(107.672, 125.153, 4.118, 1.13)
pt3dadd(107.675, 125.24, 4.041, 1.13)
pt3dadd(107.677, 125.333, 3.969, 1.13)
pt3dadd(107.675, 125.44, 3.912, 1.13)
pt3dadd(107.672, 125.548, 3.857, 1.13)
pt3dadd(107.669, 125.67, 3.839, 1.13)
pt3dadd(107.666, 125.791, 3.821, 1.13)
pt3dadd(107.663, 125.915, 3.807, 1.13)
pt3dadd(107.66, 126.038, 3.801, 1.13)
pt3dadd(107.657, 126.042, 3.795, 1.13)
pt3dadd(107.654, 126.164, 3.783, 1.13)
pt3dadd(107.651, 126.287, 3.761, 1.13)
pt3dadd(107.648, 126.409, 3.739, 1.13)
pt3dadd(107.645, 126.53, 3.716, 1.13)
pt3dadd(107.642, 126.653, 3.694, 1.13)
pt3dadd(107.639, 126.774, 3.672, 1.13)
pt3dadd(107.636, 126.896, 3.654, 1.13)
pt3dadd(107.633, 127.02, 3.648, 1.13)
pt3dadd(107.63, 127.144, 3.642, 1.13)
pt3dadd(107.627, 127.267, 3.636, 1.13)
pt3dadd(107.624, 127.391, 3.63, 1.13)
pt3dadd(107.622, 127.514, 3.624, 1.13)
pt3dadd(107.619, 127.638, 3.619, 1.13)
pt3dadd(107.616, 127.762, 3.613, 1.13)
pt3dadd(107.613, 127.885, 3.607, 1.13)
pt3dadd(107.61, 128.008, 3.601, 1.13)
pt3dadd(107.606, 128.131, 3.595, 1.13)
pt3dadd(107.598, 128.254, 3.589, 1.13)
pt3dadd(107.591, 128.377, 3.583, 1.13)
pt3dadd(107.557, 128.488, 3.564, 1.13)
pt3dadd(107.48, 128.573, 3.521, 1.13)
pt3dadd(107.406, 128.668, 3.489, 1.13)
pt3dadd(107.334, 128.767, 3.466, 1.13)
pt3dadd(107.295, 128.881, 3.454, 1.13)
pt3dadd(107.274, 129.002, 3.448, 1.13)
pt3dadd(107.252, 129.125, 3.442, 1.13)
pt3dadd(107.231, 129.247, 3.436, 1.13)
pt3dadd(107.214, 129.37, 3.431, 1.13)
pt3dadd(107.211, 129.493, 3.425, 1.13)
pt3dadd(107.208, 129.617, 3.419, 1.13)
pt3dadd(107.205, 129.74, 3.413, 1.13)
pt3dadd(107.203, 129.864, 3.407, 1.13)
pt3dadd(107.2, 129.988, 3.401, 1.13)
pt3dadd(107.197, 130.11, 3.395, 1.13)
pt3dadd(107.194, 130.234, 3.39, 1.13)
pt3dadd(107.191, 130.357, 3.384, 1.13)
pt3dadd(107.188, 130.481, 3.378, 1.13)
pt3dadd(107.185, 130.604, 3.372, 1.13)
pt3dadd(107.182, 130.728, 3.366, 1.13)
pt3dadd(107.179, 130.852, 3.36, 1.13)
pt3dadd(107.176, 130.975, 3.354, 1.13)
pt3dadd(107.173, 131.099, 3.349, 1.13)
pt3dadd(107.17, 131.221, 3.343, 1.13)
pt3dadd(107.167, 131.345, 3.337, 1.13)
pt3dadd(107.164, 131.468, 3.331, 1.13)
pt3dadd(107.161, 131.592, 3.322, 1.13)
pt3dadd(107.158, 131.714, 3.304, 1.13)
pt3dadd(107.155, 131.837, 3.285, 1.13)
pt3dadd(107.152, 131.942, 3.235, 1.13)
pt3dadd(107.15, 132.034, 3.161, 1.13)
pt3dadd(107.147, 132.114, 3.08, 1.13)
pt3dadd(107.144, 132.181, 2.99, 1.13)
pt3dadd(107.141, 132.185, 2.984, 1.13)
pt3dadd(107.138, 132.188, 2.978, 1.13)
pt3dadd(107.135, 132.192, 2.972, 0.678)
pt3dadd(107.039, 132.244, 2.918, 0.76)
pt3dadd(106.943, 132.3, 2.871, 0.834)
pt3dadd(106.851, 132.384, 2.859, 0.858)
pt3dadd(106.766, 132.473, 2.849, 0.88)
pt3dadd(106.763, 132.476, 2.843, 0.88)
pt3dadd(106.76, 132.48, 2.837, 0.88)
pt3dadd(106.714, 132.595, 2.831, 0.892)
pt3dadd(106.668, 132.71, 2.825, 0.902)
pt3dadd(106.659, 132.833, 2.82, 0.912)
pt3dadd(106.655, 132.956, 2.814, 0.92)
pt3dadd(106.652, 133.08, 2.808, 0.928)
pt3dadd(106.653, 133.204, 2.802, 0.964)
pt3dadd(106.654, 133.327, 2.796, 1.002)
pt3dadd(106.633, 133.438, 2.75, 1.02)
pt3dadd(106.611, 133.548, 2.701, 1.036)
pt3dadd(106.589, 133.657, 2.652, 1.052)
pt3dadd(106.567, 133.768, 2.603, 1.068)
pt3dadd(106.548, 133.866, 2.542, 1.084)
pt3dadd(106.542, 133.933, 2.452, 1.096)
pt3dadd(106.536, 134.008, 2.368, 1.098)
pt3dadd(106.537, 134.114, 2.311, 1.064)
pt3dadd(106.538, 134.221, 2.255, 1.03)
pt3dadd(106.539, 134.345, 2.245, 1.012)
pt3dadd(106.54, 134.467, 2.235, 0.994)
pt3dadd(106.538, 134.591, 2.226, 0.978)
pt3dadd(106.498, 134.708, 2.22, 0.968)
pt3dadd(106.46, 134.826, 2.214, 0.956)
pt3dadd(106.394, 134.93, 2.208, 0.954)
pt3dadd(106.342, 135.037, 2.197, 0.95)
pt3dadd(106.336, 135.16, 2.173, 0.936)
pt3dadd(106.331, 135.281, 2.15, 0.924)
pt3dadd(106.325, 135.402, 2.127, 0.91)
pt3dadd(106.319, 135.524, 2.104, 0.898)
pt3dadd(106.314, 135.646, 2.081, 0.884)
pt3dadd(106.312, 135.768, 2.067, 0.872)
pt3dadd(106.313, 135.892, 2.061, 0.862)
pt3dadd(106.314, 136.015, 2.055, 0.852)
pt3dadd(106.315, 136.139, 2.05, 0.84)
pt3dadd(106.317, 136.262, 2.044, 0.83)
pt3dadd(106.318, 136.385, 2.038, 0.82)
pt3dadd(106.319, 136.508, 2.032, 0.808)
pt3dadd(106.32, 136.632, 2.026, 0.8)
pt3dadd(106.322, 136.756, 2.02, 0.792)
pt3dadd(106.323, 136.879, 2.014, 0.786)
pt3dadd(106.324, 137.002, 2.008, 0.778)
pt3dadd(106.325, 137.125, 2.003, 0.77)
pt3dadd(106.327, 137.249, 1.997, 0.764)
pt3dadd(106.328, 137.372, 1.991, 0.756)
pt3dadd(106.309, 137.494, 1.985, 0.756)
pt3dadd(106.274, 137.612, 1.979, 0.76)
pt3dadd(106.239, 137.731, 1.973, 0.764)
pt3dadd(106.204, 137.851, 1.967, 0.77)
pt3dadd(106.17, 137.97, 1.962, 0.774)
pt3dadd(106.135, 138.089, 1.956, 0.778)
pt3dadd(106.118, 138.211, 1.936, 0.778)
pt3dadd(106.104, 138.332, 1.916, 0.778)
pt3dadd(106.098, 138.452, 1.889, 0.772)
pt3dadd(106.099, 138.571, 1.855, 0.762)
pt3dadd(106.1, 138.69, 1.824, 0.746)
pt3dadd(106.101, 138.812, 1.801, 0.708)
pt3dadd(106.102, 138.934, 1.778, 0.67)
pt3dadd(106.102, 139.022, 1.715, 0.64)
}
}
proc shape3d_167() {
dend_7[53] { pt3dadd(106.102, 139.087, 1.623, 0.616)
pt3dadd(106.101, 139.169, 1.547, 0.606)
pt3dadd(106.102, 139.279, 1.496, 0.612)
pt3dadd(106.103, 139.39, 1.446, 0.618)
pt3dadd(106.104, 139.501, 1.395, 0.626)
pt3dadd(106.105, 139.62, 1.374, 0.66)
pt3dadd(106.106, 139.744, 1.368, 0.71)
pt3dadd(106.107, 139.866, 1.362, 0.76)
pt3dadd(106.109, 139.99, 1.356, 0.828)
pt3dadd(106.109, 140.11, 1.332, 0.854)
pt3dadd(106.107, 140.228, 1.298, 0.854)
pt3dadd(106.106, 140.347, 1.264, 0.854)
pt3dadd(106.105, 140.466, 1.23, 0.854)
pt3dadd(106.103, 140.585, 1.196, 0.854)
pt3dadd(106.099, 140.701, 1.159, 0.852)
pt3dadd(106.076, 140.792, 1.088, 0.828)
pt3dadd(106.052, 140.885, 1.016, 0.806)
pt3dadd(106.028, 140.976, 0.945, 0.784)
pt3dadd(106.004, 141.068, 0.874, 0.76)
pt3dadd(105.981, 141.144, 0.791, 0.75)
pt3dadd(105.96, 141.212, 0.702, 0.744)
pt3dadd(105.939, 141.281, 0.614, 0.738)
pt3dadd(105.917, 141.349, 0.525, 0.734)
pt3dadd(105.89, 141.415, 0.438, 0.726)
pt3dadd(105.815, 141.467, 0.364, 0.712)
pt3dadd(105.76, 141.514, 0.28, 0.704)
pt3dadd(105.757, 141.517, 0.274, 0.704)
pt3dadd(105.754, 141.521, 0.269, 0.704)
pt3dadd(105.748, 141.558, 0.167, 0.704)
pt3dadd(105.74, 141.596, 0.066, 0.704)
pt3dadd(105.741, 141.698, 0.003, 0.692)
pt3dadd(105.741, 141.802, -0.059, 0.68)
pt3dadd(105.739, 141.922, -0.077, 0.686)
pt3dadd(105.735, 142.045, -0.087, 0.694)
pt3dadd(105.729, 142.168, -0.096, 0.704)
pt3dadd(105.686, 142.284, -0.102, 0.704)
pt3dadd(105.639, 142.399, -0.108, 0.704)
pt3dadd(105.585, 142.512, -0.114, 0.704)
pt3dadd(105.543, 142.627, -0.121, 0.7)
pt3dadd(105.53, 142.75, -0.131, 0.69)
pt3dadd(105.516, 142.873, -0.141, 0.68)
pt3dadd(105.511, 142.981, -0.188, 0.686)
pt3dadd(105.512, 143.083, -0.251, 0.698)
pt3dadd(105.512, 143.177, -0.322, 0.728)
pt3dadd(105.512, 143.262, -0.401, 0.776)
pt3dadd(105.513, 143.363, -0.452, 0.842)
pt3dadd(105.514, 143.485, -0.464, 0.936)
pt3dadd(105.515, 143.609, -0.475, 0.996)
pt3dadd(105.516, 143.732, -0.486, 1.026)
pt3dadd(105.517, 143.856, -0.497, 1.056)
pt3dadd(105.519, 143.978, -0.508, 1.086)
pt3dadd(105.52, 144.102, -0.519, 1.116)
pt3dadd(105.521, 144.226, -0.53, 1.146)
pt3dadd(105.522, 144.348, -0.54, 1.176)
pt3dadd(105.523, 144.457, -0.592, 1.196)
pt3dadd(105.524, 144.562, -0.65, 1.216)
pt3dadd(105.524, 144.667, -0.708, 1.236)
pt3dadd(105.525, 144.773, -0.766, 1.256)
pt3dadd(105.526, 144.878, -0.825, 1.276)
pt3dadd(105.526, 144.978, -0.891, 1.276)
pt3dadd(105.526, 145.075, -0.959, 1.272)
pt3dadd(105.527, 145.172, -1.027, 1.266)
pt3dadd(105.527, 145.27, -1.096, 1.262)
pt3dadd(105.527, 145.367, -1.164, 1.256)
pt3dadd(105.528, 145.477, -1.213, 1.24)
pt3dadd(105.529, 145.592, -1.255, 1.222)
pt3dadd(105.53, 145.708, -1.299, 1.204)
pt3dadd(105.531, 145.822, -1.342, 1.184)
pt3dadd(105.532, 145.937, -1.384, 1.166)
pt3dadd(105.533, 146.052, -1.427, 1.152)
pt3dadd(105.534, 146.168, -1.467, 1.142)
pt3dadd(105.535, 146.284, -1.508, 1.132)
pt3dadd(105.536, 146.4, -1.548, 1.124)
pt3dadd(105.537, 146.516, -1.589, 1.114)
pt3dadd(105.538, 146.632, -1.629, 1.106)
pt3dadd(105.539, 146.749, -1.667, 1.114)
pt3dadd(105.54, 146.866, -1.706, 1.122)
pt3dadd(105.541, 146.983, -1.744, 1.132)
pt3dadd(105.542, 147.1, -1.782, 1.14)
pt3dadd(105.543, 147.217, -1.82, 1.15)
pt3dadd(105.544, 147.329, -1.866, 1.18)
pt3dadd(105.544, 147.437, -1.923, 1.238)
pt3dadd(105.549, 147.547, -1.968, 1.292)
pt3dadd(105.566, 147.668, -1.978, 1.342)
pt3dadd(105.582, 147.791, -1.988, 1.39)
pt3dadd(105.65, 147.881, -1.995, 1.446)
pt3dadd(105.743, 147.956, -2.001, 1.504)
pt3dadd(105.823, 148.028, -2.037, 1.554)
pt3dadd(105.892, 148.099, -2.101, 1.598)
pt3dadd(105.906, 148.19, -2.168, 1.622)
pt3dadd(105.934, 148.286, -2.217, 1.624)
pt3dadd(105.931, 148.29, -2.223, 1.624)
pt3dadd(106.005, 148.385, -2.238, 1.602)
pt3dadd(106.079, 148.48, -2.254, 1.582)
pt3dadd(106.154, 148.574, -2.269, 1.56)
pt3dadd(106.228, 148.669, -2.284, 1.538)
pt3dadd(106.257, 148.763, -2.337, 1.482)
pt3dadd(106.263, 148.856, -2.408, 1.408)
pt3dadd(106.295, 148.962, -2.448, 1.336)
pt3dadd(106.34, 149.074, -2.47, 1.262)
pt3dadd(106.337, 149.076, -2.476, 1.262)
pt3dadd(106.334, 149.08, -2.482, 1.262)
pt3dadd(106.331, 149.083, -2.488, 1.262)
pt3dadd(106.41, 149.162, -2.51, 1.202)
pt3dadd(106.516, 149.215, -2.533, 1.152)
pt3dadd(106.607, 149.28, -2.566, 1.1)
pt3dadd(106.69, 149.356, -2.61, 1.042)
pt3dadd(106.769, 149.442, -2.631, 0.958)
pt3dadd(106.853, 149.519, -2.66, 0.886)
pt3dadd(106.942, 149.58, -2.709, 0.844)
pt3dadd(107.038, 149.641, -2.734, 0.828)
pt3dadd(107.139, 149.705, -2.745, 0.828)
pt3dadd(107.218, 149.791, -2.754, 0.842)
pt3dadd(107.28, 149.896, -2.76, 0.864)
pt3dadd(107.322, 150.006, -2.77, 0.878)
pt3dadd(107.329, 150.128, -2.789, 0.878)
pt3dadd(107.335, 150.251, -2.807, 0.878)
pt3dadd(107.337, 150.364, -2.851, 0.866)
pt3dadd(107.345, 150.475, -2.896, 0.854)
pt3dadd(107.374, 150.59, -2.93, 0.854)
pt3dadd(107.402, 150.704, -2.963, 0.854)
pt3dadd(107.431, 150.82, -2.996, 0.854)
pt3dadd(107.458, 150.934, -3.029, 0.854)
pt3dadd(107.496, 151.044, -3.063, 0.856)
pt3dadd(107.548, 151.148, -3.1, 0.862)
pt3dadd(107.599, 151.252, -3.136, 0.868)
pt3dadd(107.652, 151.356, -3.172, 0.874)
pt3dadd(107.704, 151.46, -3.208, 0.878)
pt3dadd(107.706, 151.579, -3.237, 0.878)
pt3dadd(107.707, 151.7, -3.265, 0.878)
pt3dadd(107.708, 151.82, -3.294, 0.878)
pt3dadd(107.709, 151.94, -3.323, 0.878)
pt3dadd(107.711, 152.06, -3.352, 0.878)
pt3dadd(107.712, 152.182, -3.377, 0.876)
pt3dadd(107.713, 152.304, -3.383, 0.86)
pt3dadd(107.714, 152.428, -3.389, 0.842)
pt3dadd(107.72, 152.55, -3.394, 0.826)
pt3dadd(107.755, 152.668, -3.4, 0.804)
pt3dadd(107.788, 152.785, -3.406, 0.784)
pt3dadd(107.84, 152.896, -3.416, 0.778)
pt3dadd(107.897, 153.004, -3.427, 0.778)
pt3dadd(107.944, 153.083, -3.481, 0.778)
pt3dadd(107.987, 153.144, -3.566, 0.778)
pt3dadd(108.041, 153.212, -3.642, 0.794)
pt3dadd(108.065, 153.3, -3.709, 0.804)
pt3dadd(108.069, 153.401, -3.774, 0.804)
pt3dadd(108.072, 153.502, -3.838, 0.804)
pt3dadd(108.075, 153.601, -3.903, 0.804)
pt3dadd(108.078, 153.702, -3.967, 0.804)
pt3dadd(108.08, 153.806, -4.027, 0.814)
pt3dadd(108.08, 153.912, -4.086, 0.828)
pt3dadd(108.081, 154.018, -4.144, 0.842)
pt3dadd(108.081, 154.123, -4.202, 0.858)
pt3dadd(108.082, 154.229, -4.261, 0.872)
pt3dadd(108.083, 154.343, -4.299, 0.884)
pt3dadd(108.084, 154.464, -4.324, 0.892)
pt3dadd(108.085, 154.585, -4.348, 0.9)
pt3dadd(108.087, 154.706, -4.373, 0.908)
pt3dadd(108.088, 154.829, -4.397, 0.918)
pt3dadd(108.089, 154.95, -4.422, 0.926)
pt3dadd(108.09, 155.071, -4.445, 0.934)
pt3dadd(108.091, 155.194, -4.467, 0.942)
pt3dadd(108.093, 155.315, -4.489, 0.95)
pt3dadd(108.094, 155.436, -4.512, 0.958)
pt3dadd(108.095, 155.558, -4.534, 0.966)
pt3dadd(108.096, 155.68, -4.556, 0.976)
pt3dadd(108.097, 155.798, -4.588, 0.98)
pt3dadd(108.098, 155.915, -4.628, 0.98)
pt3dadd(108.099, 156.031, -4.669, 0.98)
pt3dadd(108.1, 156.146, -4.709, 0.98)
pt3dadd(108.101, 156.263, -4.75, 0.98)
pt3dadd(108.102, 156.379, -4.789, 0.98)
pt3dadd(108.103, 156.5, -4.814, 0.974)
pt3dadd(108.104, 156.622, -4.838, 0.97)
pt3dadd(108.105, 156.743, -4.863, 0.966)
pt3dadd(108.107, 156.864, -4.887, 0.962)
pt3dadd(108.108, 156.985, -4.911, 0.958)
pt3dadd(108.111, 157.106, -4.936, 0.954)
pt3dadd(108.162, 157.213, -4.966, 0.948)
pt3dadd(108.212, 157.32, -4.997, 0.942)
pt3dadd(108.264, 157.427, -5.027, 0.938)
pt3dadd(108.313, 157.534, -5.057, 0.932)
pt3dadd(108.34, 157.638, -5.103, 0.926)
pt3dadd(108.343, 157.741, -5.165, 0.922)
pt3dadd(108.347, 157.844, -5.227, 0.916)
pt3dadd(108.35, 157.946, -5.288, 0.912)
pt3dadd(108.353, 158.05, -5.35, 0.906)
pt3dadd(108.363, 158.161, -5.392, 0.906)
pt3dadd(108.379, 158.281, -5.416, 0.912)
pt3dadd(108.395, 158.401, -5.44, 0.916)
pt3dadd(108.41, 158.521, -5.465, 0.92)
pt3dadd(108.427, 158.641, -5.489, 0.924)
pt3dadd(108.441, 158.76, -5.515, 0.93)
pt3dadd(108.45, 158.867, -5.571, 0.94)
pt3dadd(108.459, 158.974, -5.627, 0.95)
pt3dadd(108.468, 159.08, -5.682, 0.96)
pt3dadd(108.476, 159.187, -5.738, 0.97)
pt3dadd(108.492, 159.294, -5.791, 0.984)
pt3dadd(108.534, 159.4, -5.832, 1.01)
pt3dadd(108.572, 159.51, -5.868, 1.026)
}
}
proc shape3d_168() {
dend_7[53] { pt3dadd(108.596, 159.629, -5.888, 1.016)
pt3dadd(108.62, 159.748, -5.908, 1.004)
pt3dadd(108.617, 159.751, -5.914, 1.004)
pt3dadd(108.614, 159.755, -5.92, 1.004)
pt3dadd(108.718, 159.791, -5.959, 0.956)
pt3dadd(108.824, 159.824, -5.998, 0.904)
pt3dadd(108.905, 159.899, -6.042, 0.834)
pt3dadd(108.989, 159.974, -6.083, 0.766)
pt3dadd(109.075, 160.051, -6.116, 0.704)
pt3dadd(109.072, 160.055, -6.122, 0.704)
pt3dadd(109.158, 160.138, -6.128, 0.698)
pt3dadd(109.245, 160.222, -6.134, 0.694)
pt3dadd(109.331, 160.306, -6.14, 0.688)
pt3dadd(109.417, 160.39, -6.146, 0.682)
pt3dadd(109.503, 160.474, -6.152, 0.678)
pt3dadd(109.586, 160.56, -6.158, 0.684)
pt3dadd(109.67, 160.646, -6.164, 0.688)
pt3dadd(109.753, 160.734, -6.169, 0.694)
pt3dadd(109.837, 160.82, -6.175, 0.698)
pt3dadd(109.919, 160.908, -6.181, 0.704)
pt3dadd(109.991, 161.005, -6.187, 0.708)
pt3dadd(110.064, 161.102, -6.193, 0.714)
pt3dadd(110.136, 161.198, -6.199, 0.718)
pt3dadd(110.208, 161.296, -6.205, 0.724)
pt3dadd(110.283, 161.39, -6.21, 0.728)
pt3dadd(110.376, 161.466, -6.216, 0.74)
pt3dadd(110.469, 161.542, -6.222, 0.748)
pt3dadd(110.563, 161.616, -6.228, 0.76)
pt3dadd(110.656, 161.692, -6.234, 0.77)
pt3dadd(110.749, 161.767, -6.24, 0.78)
pt3dadd(110.838, 161.848, -6.246, 0.79)
pt3dadd(110.926, 161.929, -6.251, 0.8)
pt3dadd(111.015, 162.01, -6.257, 0.81)
pt3dadd(111.103, 162.091, -6.263, 0.82)
pt3dadd(111.19, 162.174, -6.269, 0.83)
pt3dadd(111.255, 162.276, -6.275, 0.846)
pt3dadd(111.322, 162.378, -6.281, 0.86)
pt3dadd(111.388, 162.479, -6.287, 0.876)
pt3dadd(111.455, 162.581, -6.293, 0.89)
pt3dadd(111.52, 162.683, -6.298, 0.906)
pt3dadd(111.582, 162.787, -6.304, 0.928)
pt3dadd(111.642, 162.892, -6.31, 0.952)
pt3dadd(111.732, 162.935, -6.364, 0.942)
pt3dadd(111.82, 162.974, -6.424, 0.928)
pt3dadd(111.818, 162.978, -6.43, 0.928)
pt3dadd(111.824, 163.087, -6.482, 0.892)
pt3dadd(111.832, 163.196, -6.535, 0.858)
pt3dadd(111.833, 163.307, -6.586, 0.824)
pt3dadd(111.834, 163.417, -6.636, 0.79)
pt3dadd(111.884, 163.511, -6.679, 0.778)
pt3dadd(111.96, 163.596, -6.718, 0.778)
pt3dadd(112.036, 163.681, -6.758, 0.778)
pt3dadd(112.08, 163.789, -6.775, 0.792)
pt3dadd(112.106, 163.909, -6.78, 0.812)
pt3dadd(112.146, 164.018, -6.786, 0.838)
pt3dadd(112.143, 164.022, -6.792, 0.838)
pt3dadd(112.234, 164.093, -6.798, 0.88)
pt3dadd(112.304, 164.192, -6.804, 0.886)
pt3dadd(112.373, 164.292, -6.81, 0.89)
pt3dadd(112.443, 164.39, -6.816, 0.896)
pt3dadd(112.512, 164.49, -6.821, 0.9)
pt3dadd(112.557, 164.598, -6.827, 0.904)
pt3dadd(112.563, 164.722, -6.833, 0.904)
pt3dadd(112.569, 164.844, -6.839, 0.904)
pt3dadd(112.595, 164.963, -6.845, 0.898)
pt3dadd(112.643, 165.074, -6.851, 0.888)
pt3dadd(112.7, 165.18, -6.857, 0.874)
pt3dadd(112.793, 165.254, -6.863, 0.85)
pt3dadd(112.887, 165.326, -6.869, 0.826)
pt3dadd(113.001, 165.361, -6.879, 0.794)
pt3dadd(113.113, 165.395, -6.89, 0.762)
pt3dadd(113.213, 165.452, -6.918, 0.742)
pt3dadd(113.307, 165.517, -6.953, 0.726)
pt3dadd(113.401, 165.582, -6.988, 0.708)
pt3dadd(113.482, 165.666, -7.004, 0.696)
pt3dadd(113.558, 165.76, -7.009, 0.684)
pt3dadd(113.612, 165.866, -7.015, 0.694)
pt3dadd(113.644, 165.985, -7.023, 0.71)
pt3dadd(113.676, 166.103, -7.03, 0.718)
pt3dadd(113.707, 166.222, -7.038, 0.728)
pt3dadd(113.74, 166.34, -7.046, 0.736)
pt3dadd(113.771, 166.458, -7.054, 0.746)
pt3dadd(113.802, 166.576, -7.065, 0.754)
pt3dadd(113.819, 166.686, -7.112, 0.77)
pt3dadd(113.837, 166.798, -7.159, 0.786)
pt3dadd(113.855, 166.908, -7.207, 0.802)
pt3dadd(113.872, 167.018, -7.254, 0.816)
pt3dadd(113.885, 167.131, -7.299, 0.832)
pt3dadd(113.886, 167.248, -7.338, 0.842)
pt3dadd(113.887, 167.364, -7.377, 0.852)
pt3dadd(113.903, 167.485, -7.39, 0.846)
pt3dadd(113.918, 167.608, -7.4, 0.836)
pt3dadd(113.956, 167.718, -7.409, 0.818)
pt3dadd(113.953, 167.722, -7.415, 0.818)
pt3dadd(114.035, 167.81, -7.421, 0.782)
pt3dadd(114.118, 167.897, -7.427, 0.748)
pt3dadd(114.207, 167.98, -7.433, 0.726)
pt3dadd(114.295, 168.058, -7.438, 0.704)
pt3dadd(114.41, 168.09, -7.444, 0.704)
pt3dadd(114.516, 168.138, -7.45, 0.714)
pt3dadd(114.614, 168.206, -7.456, 0.736)
pt3dadd(114.688, 168.289, -7.462, 0.762)
pt3dadd(114.704, 168.412, -7.468, 0.79)
pt3dadd(114.72, 168.534, -7.474, 0.818)
pt3dadd(114.748, 168.653, -7.482, 0.836)
pt3dadd(114.783, 168.769, -7.493, 0.846)
pt3dadd(114.821, 168.87, -7.525, 0.854)
pt3dadd(114.864, 168.931, -7.61, 0.854)
pt3dadd(114.931, 168.989, -7.675, 0.834)
pt3dadd(115.024, 169.051, -7.709, 0.802)
pt3dadd(115.105, 169.141, -7.715, 0.798)
pt3dadd(115.186, 169.23, -7.721, 0.792)
pt3dadd(115.267, 169.32, -7.726, 0.788)
pt3dadd(115.347, 169.409, -7.732, 0.782)
pt3dadd(115.344, 169.412, -7.738, 0.782)
pt3dadd(115.421, 169.505, -7.744, 0.776)
pt3dadd(115.484, 169.609, -7.75, 0.766)
pt3dadd(115.547, 169.712, -7.756, 0.756)
pt3dadd(115.61, 169.816, -7.762, 0.746)
pt3dadd(115.675, 169.919, -7.767, 0.736)
pt3dadd(115.734, 170.024, -7.777, 0.728)
pt3dadd(115.78, 170.134, -7.805, 0.722)
pt3dadd(115.827, 170.244, -7.832, 0.716)
pt3dadd(115.873, 170.353, -7.859, 0.71)
pt3dadd(115.92, 170.464, -7.886, 0.706)
pt3dadd(115.982, 170.562, -7.914, 0.7)
pt3dadd(116.063, 170.647, -7.943, 0.694)
pt3dadd(116.142, 170.734, -7.972, 0.688)
pt3dadd(116.221, 170.82, -8, 0.682)
pt3dadd(116.3, 170.908, -8.026, 0.678)
pt3dadd(116.375, 171.002, -8.032, 0.678)
pt3dadd(116.45, 171.097, -8.038, 0.678)
pt3dadd(116.49, 171.212, -8.044, 0.688)
pt3dadd(116.531, 171.328, -8.05, 0.7)
pt3dadd(116.59, 171.433, -8.055, 0.71)
pt3dadd(116.658, 171.533, -8.061, 0.722)
pt3dadd(116.745, 171.61, -8.067, 0.74)
pt3dadd(116.852, 171.662, -8.073, 0.762)
pt3dadd(116.954, 171.718, -8.089, 0.78)
pt3dadd(117.047, 171.775, -8.136, 0.788)
pt3dadd(117.139, 171.833, -8.182, 0.798)
pt3dadd(117.219, 171.892, -8.239, 0.808)
pt3dadd(117.261, 171.952, -8.324, 0.82)
pt3dadd(117.316, 172.016, -8.4, 0.81)
pt3dadd(117.392, 172.093, -8.448, 0.798)
pt3dadd(117.469, 172.171, -8.495, 0.792)
pt3dadd(117.546, 172.25, -8.541, 0.786)
pt3dadd(117.624, 172.328, -8.587, 0.78)
pt3dadd(117.711, 172.405, -8.609, 0.778)
pt3dadd(117.804, 172.481, -8.622, 0.778)
pt3dadd(117.897, 172.558, -8.635, 0.778)
pt3dadd(117.989, 172.633, -8.648, 0.778)
pt3dadd(118.081, 172.709, -8.661, 0.778)
pt3dadd(118.139, 172.816, -8.667, 0.788)
pt3dadd(118.196, 172.922, -8.673, 0.798)
pt3dadd(118.254, 173.03, -8.679, 0.808)
pt3dadd(118.311, 173.137, -8.684, 0.818)
pt3dadd(118.369, 173.244, -8.69, 0.826)
pt3dadd(118.45, 173.332, -8.696, 0.858)
pt3dadd(118.539, 173.413, -8.702, 0.892)
pt3dadd(118.629, 173.492, -8.712, 0.92)
pt3dadd(118.719, 173.57, -8.723, 0.946)
pt3dadd(118.804, 173.628, -8.77, 0.962)
pt3dadd(118.885, 173.674, -8.838, 0.978)
pt3dadd(118.988, 173.68, -8.886, 0.97)
pt3dadd(119.095, 173.68, -8.931, 0.958)
pt3dadd(119.196, 173.701, -8.983, 0.95)
pt3dadd(119.289, 173.741, -9.039, 0.942)
pt3dadd(119.384, 173.78, -9.096, 0.934)
pt3dadd(119.476, 173.838, -9.136, 0.936)
pt3dadd(119.566, 173.914, -9.159, 0.948)
pt3dadd(119.646, 174.001, -9.172, 1.014)
pt3dadd(119.726, 174.089, -9.198, 1.044)
pt3dadd(119.805, 174.175, -9.227, 1.062)
pt3dadd(119.885, 174.262, -9.255, 1.08)
pt3dadd(119.964, 174.347, -9.284, 1.096)
pt3dadd(120.053, 174.425, -9.302, 1.1)
pt3dadd(120.152, 174.492, -9.307, 1.088)
pt3dadd(120.218, 174.572, -9.331, 1.072)
pt3dadd(120.226, 174.677, -9.39, 1.048)
pt3dadd(120.235, 174.758, -9.46, 1.024)
pt3dadd(120.253, 174.767, -9.564, 1.004)
pt3dadd(120.272, 174.775, -9.668, 0.984)
pt3dadd(120.36, 174.781, -9.724, 0.97)
pt3dadd(120.469, 174.786, -9.764, 0.96)
pt3dadd(120.54, 174.847, -9.797, 0.944)
pt3dadd(120.569, 174.964, -9.821, 0.924)
pt3dadd(120.6, 175.08, -9.845, 0.902)
pt3dadd(120.63, 175.196, -9.87, 0.882)
pt3dadd(120.72, 175.271, -9.878, 0.848)
pt3dadd(120.817, 175.339, -9.884, 0.814)
pt3dadd(120.905, 175.418, -9.904, 0.778)
pt3dadd(120.962, 175.51, -9.955, 0.784)
pt3dadd(121.02, 175.601, -10.007, 0.792)
pt3dadd(121.078, 175.692, -10.058, 0.798)
pt3dadd(121.136, 175.783, -10.109, 0.804)
pt3dadd(121.186, 175.894, -10.119, 0.804)
pt3dadd(121.234, 176.005, -10.125, 0.804)
pt3dadd(121.283, 176.117, -10.131, 0.804)
pt3dadd(121.33, 176.23, -10.136, 0.804)
}
}
proc shape3d_169() {
dend_7[53] { pt3dadd(121.379, 176.341, -10.142, 0.804)
pt3dadd(121.454, 176.431, -10.148, 0.798)
pt3dadd(121.548, 176.506, -10.154, 0.788)
pt3dadd(121.642, 176.581, -10.16, 0.778)
pt3dadd(121.734, 176.657, -10.166, 0.768)
pt3dadd(121.828, 176.731, -10.172, 0.758)
pt3dadd(121.927, 176.795, -10.177, 0.748)
pt3dadd(122.032, 176.851, -10.183, 0.738)
pt3dadd(122.137, 176.909, -10.189, 0.728)
pt3dadd(122.242, 176.965, -10.195, 0.718)
pt3dadd(122.346, 177.022, -10.201, 0.708)
pt3dadd(122.443, 177.09, -10.207, 0.698)
pt3dadd(122.531, 177.172, -10.213, 0.686)
pt3dadd(122.627, 177.241, -10.219, 0.682)
pt3dadd(122.736, 177.288, -10.224, 0.692)
pt3dadd(122.844, 177.335, -10.23, 0.704)
pt3dadd(122.942, 177.402, -10.236, 0.728)
pt3dadd(123.041, 177.47, -10.242, 0.75)
pt3dadd(123.072, 177.584, -10.248, 0.778)
pt3dadd(123.094, 177.706, -10.254, 0.808)
pt3dadd(123.121, 177.824, -10.26, 0.834)
pt3dadd(123.166, 177.938, -10.266, 0.85)
pt3dadd(123.218, 178.049, -10.271, 0.862)
pt3dadd(123.272, 178.157, -10.277, 0.874)
pt3dadd(123.319, 178.27, -10.283, 0.878)
pt3dadd(123.36, 178.385, -10.289, 0.878)
pt3dadd(123.408, 178.493, -10.295, 0.882)
pt3dadd(123.51, 178.556, -10.307, 0.906)
pt3dadd(123.61, 178.619, -10.319, 0.93)
pt3dadd(123.704, 178.662, -10.374, 0.93)
pt3dadd(123.794, 178.709, -10.431, 0.924)
pt3dadd(123.875, 178.768, -10.492, 0.902)
pt3dadd(123.98, 178.813, -10.52, 0.864)
pt3dadd(124.084, 178.862, -10.55, 0.828)
pt3dadd(124.144, 178.954, -10.599, 0.798)
pt3dadd(124.2, 179.051, -10.638, 0.778)
pt3dadd(124.25, 179.161, -10.649, 0.778)
pt3dadd(124.298, 179.273, -10.659, 0.78)
pt3dadd(124.346, 179.386, -10.665, 0.79)
pt3dadd(124.394, 179.497, -10.671, 0.802)
pt3dadd(124.417, 179.617, -10.677, 0.792)
pt3dadd(124.433, 179.74, -10.683, 0.778)
pt3dadd(124.484, 179.85, -10.689, 0.764)
pt3dadd(124.535, 179.96, -10.694, 0.75)
pt3dadd(124.588, 180.071, -10.7, 0.736)
pt3dadd(124.639, 180.181, -10.706, 0.722)
pt3dadd(124.69, 180.292, -10.712, 0.706)
pt3dadd(124.716, 180.404, -10.744, 0.688)
pt3dadd(124.734, 180.518, -10.786, 0.668)
pt3dadd(124.75, 180.632, -10.828, 0.648)
pt3dadd(124.768, 180.745, -10.87, 0.628)
pt3dadd(124.784, 180.859, -10.912, 0.606)
pt3dadd(124.843, 180.931, -10.976, 0.58)
pt3dadd(124.91, 180.996, -11.042, 0.55)
pt3dadd(124.974, 181.099, -11.054, 0.514)
pt3dadd(125.039, 181.202, -11.065, 0.478)
pt3dadd(125.14, 181.265, -11.071, 0.456)
pt3dadd(125.242, 181.325, -11.076, 0.432)
pt3dadd(125.353, 181.366, -11.082, 0.41)
pt3dadd(125.467, 181.399, -11.088, 0.388)
pt3dadd(125.578, 181.439, -11.094, 0.416)
}
dend_7[54] {pt3dclear()
pt3dadd(106.8, 122.88, 4.8, 1.13)
pt3dadd(106.775, 122.873, 4.802, 1.126)
pt3dadd(106.662, 122.846, 4.83, 1.102)
pt3dadd(106.548, 122.821, 4.859, 1.078)
pt3dadd(106.435, 122.795, 4.888, 1.056)
pt3dadd(106.321, 122.77, 4.917, 1.032)
pt3dadd(106.208, 122.743, 4.946, 1.01)
pt3dadd(106.095, 122.717, 4.974, 0.986)
pt3dadd(105.981, 122.692, 5.003, 0.962)
pt3dadd(105.868, 122.665, 5.032, 0.94)
pt3dadd(105.755, 122.639, 5.061, 0.916)
pt3dadd(105.654, 122.634, 5.04, 0.904)
pt3dadd(105.567, 122.651, 4.969, 0.904)
pt3dadd(105.48, 122.668, 4.898, 0.904)
pt3dadd(105.392, 122.684, 4.828, 0.904)
pt3dadd(105.305, 122.701, 4.757, 0.904)
pt3dadd(105.211, 122.708, 4.691, 0.904)
pt3dadd(105.116, 122.716, 4.626, 0.904)
pt3dadd(105.021, 122.723, 4.561, 0.904)
pt3dadd(104.927, 122.73, 4.495, 0.904)
pt3dadd(104.834, 122.743, 4.429, 0.904)
pt3dadd(104.75, 122.779, 4.362, 0.904)
pt3dadd(104.666, 122.816, 4.294, 0.904)
pt3dadd(104.582, 122.852, 4.226, 0.904)
pt3dadd(104.498, 122.89, 4.158, 0.904)
pt3dadd(104.432, 122.936, 4.081, 0.904)
pt3dadd(104.366, 122.983, 4.004, 0.904)
pt3dadd(104.3, 123.03, 3.928, 0.904)
pt3dadd(104.234, 123.077, 3.851, 0.904)
pt3dadd(104.149, 123.132, 3.796, 0.904)
pt3dadd(104.06, 123.188, 3.745, 0.904)
pt3dadd(103.971, 123.246, 3.694, 0.904)
pt3dadd(103.881, 123.302, 3.644, 0.904)
pt3dadd(103.791, 123.364, 3.599, 0.904)
pt3dadd(103.699, 123.426, 3.557, 0.904)
pt3dadd(103.608, 123.49, 3.515, 0.904)
pt3dadd(103.516, 123.551, 3.472, 0.904)
pt3dadd(103.43, 123.625, 3.439, 0.904)
pt3dadd(103.349, 123.709, 3.414, 0.904)
pt3dadd(103.267, 123.793, 3.389, 0.904)
pt3dadd(103.186, 123.878, 3.364, 0.904)
pt3dadd(103.107, 123.964, 3.338, 0.904)
pt3dadd(103.043, 124.058, 3.305, 0.904)
pt3dadd(102.98, 124.153, 3.272, 0.904)
pt3dadd(102.916, 124.248, 3.239, 0.904)
pt3dadd(102.852, 124.343, 3.205, 0.904)
pt3dadd(102.762, 124.416, 3.179, 0.904)
pt3dadd(102.668, 124.487, 3.153, 0.904)
pt3dadd(102.643, 124.561, 3.077, 0.904)
pt3dadd(102.622, 124.638, 3.002, 0.904)
pt3dadd(102.62, 124.751, 2.966, 0.904)
pt3dadd(102.618, 124.862, 2.931, 0.904)
pt3dadd(102.616, 124.978, 2.905, 0.904)
pt3dadd(102.614, 125.094, 2.884, 0.904)
pt3dadd(102.612, 125.093, 2.882, 0.904)
pt3dadd(102.61, 125.092, 2.879, 0.904)
pt3dadd(102.608, 125.09, 2.877, 0.904)
pt3dadd(102.606, 125.089, 2.875, 0.452)
pt3dadd(102.604, 125.088, 2.873, 0.452)
pt3dadd(102.492, 125.136, 2.871, 0.504)
pt3dadd(102.38, 125.183, 2.869, 0.554)
pt3dadd(102.268, 125.23, 2.867, 0.606)
pt3dadd(102.158, 125.278, 2.864, 0.658)
pt3dadd(102.046, 125.324, 2.862, 0.708)
pt3dadd(101.936, 125.375, 2.852, 0.732)
pt3dadd(101.828, 125.428, 2.836, 0.736)
pt3dadd(101.72, 125.479, 2.82, 0.742)
pt3dadd(101.612, 125.532, 2.804, 0.746)
pt3dadd(101.504, 125.584, 2.788, 0.752)
pt3dadd(101.401, 125.647, 2.777, 0.74)
pt3dadd(101.3, 125.712, 2.768, 0.726)
pt3dadd(101.198, 125.778, 2.759, 0.71)
pt3dadd(101.097, 125.844, 2.75, 0.694)
pt3dadd(100.996, 125.909, 2.741, 0.678)
pt3dadd(100.887, 125.963, 2.739, 0.664)
pt3dadd(100.779, 126.016, 2.736, 0.65)
pt3dadd(100.669, 126.07, 2.734, 0.636)
pt3dadd(100.56, 126.122, 2.732, 0.622)
pt3dadd(100.451, 126.175, 2.73, 0.608)
pt3dadd(100.34, 126.224, 2.728, 0.61)
pt3dadd(100.228, 126.272, 2.726, 0.618)
pt3dadd(100.117, 126.319, 2.724, 0.628)
pt3dadd(100.005, 126.366, 2.721, 0.638)
pt3dadd(99.894, 126.414, 2.719, 0.646)
pt3dadd(99.797, 126.478, 2.717, 0.67)
pt3dadd(99.738, 126.582, 2.715, 0.726)
pt3dadd(99.676, 126.683, 2.711, 0.782)
pt3dadd(99.586, 126.761, 2.692, 0.822)
pt3dadd(99.496, 126.828, 2.663, 0.85)
pt3dadd(99.407, 126.844, 2.594, 0.824)
pt3dadd(99.325, 126.866, 2.522, 0.798)
pt3dadd(99.275, 126.918, 2.44, 0.77)
pt3dadd(99.242, 126.955, 2.351, 0.754)
pt3dadd(99.24, 126.97, 2.249, 0.754)
pt3dadd(99.24, 127.009, 2.156, 0.774)
pt3dadd(99.24, 127.069, 2.067, 0.808)
pt3dadd(99.232, 127.126, 1.978, 0.838)
pt3dadd(99.213, 127.178, 1.888, 0.864)
pt3dadd(99.161, 127.23, 1.82, 0.878)
pt3dadd(99.056, 127.282, 1.789, 0.878)
pt3dadd(98.965, 127.344, 1.751, 0.866)
pt3dadd(98.89, 127.422, 1.705, 0.838)
pt3dadd(98.81, 127.505, 1.677, 0.8)
pt3dadd(98.725, 127.58, 1.645, 0.776)
pt3dadd(98.638, 127.644, 1.598, 0.77)
pt3dadd(98.55, 127.706, 1.55, 0.764)
pt3dadd(98.464, 127.77, 1.502, 0.758)
pt3dadd(98.373, 127.834, 1.461, 0.756)
pt3dadd(98.275, 127.898, 1.436, 0.76)
pt3dadd(98.177, 127.963, 1.412, 0.766)
pt3dadd(98.078, 128.028, 1.387, 0.772)
pt3dadd(97.98, 128.093, 1.362, 0.778)
pt3dadd(97.921, 128.195, 1.357, 0.778)
pt3dadd(97.869, 128.303, 1.355, 0.766)
pt3dadd(97.827, 128.413, 1.343, 0.774)
pt3dadd(97.787, 128.509, 1.298, 0.84)
pt3dadd(97.73, 128.546, 1.215, 0.828)
pt3dadd(97.699, 128.545, 1.116, 0.778)
pt3dadd(97.686, 128.545, 1.015, 0.794)
pt3dadd(97.685, 128.544, 0.913, 0.844)
pt3dadd(97.678, 128.543, 0.811, 0.888)
pt3dadd(97.653, 128.55, 0.712, 0.918)
pt3dadd(97.578, 128.587, 0.643, 0.982)
pt3dadd(97.478, 128.633, 0.599, 1.024)
pt3dadd(97.377, 128.677, 0.557, 1.06)
pt3dadd(97.272, 128.722, 0.52, 1.086)
pt3dadd(97.178, 128.774, 0.476, 1.092)
pt3dadd(97.085, 128.839, 0.446, 1.042)
pt3dadd(96.984, 128.902, 0.426, 0.992)
pt3dadd(96.876, 128.956, 0.416, 0.928)
pt3dadd(96.767, 129.007, 0.409, 0.858)
pt3dadd(96.66, 129.035, 0.375, 0.816)
pt3dadd(96.558, 129.043, 0.32, 0.792)
pt3dadd(96.467, 129.073, 0.26, 0.792)
pt3dadd(96.39, 129.128, 0.195, 0.82)
pt3dadd(96.367, 129.206, 0.126, 0.864)
pt3dadd(96.364, 129.293, 0.057, 0.916)
pt3dadd(96.361, 129.38, -0.013, 0.966)
pt3dadd(96.36, 129.474, -0.074, 1.02)
}
}
proc shape3d_170() {
dend_7[54] { pt3dadd(96.362, 129.586, -0.109, 1.084)
pt3dadd(96.364, 129.698, -0.144, 1.148)
pt3dadd(96.329, 129.727, -0.233, 1.194)
pt3dadd(96.291, 129.745, -0.329, 1.238)
pt3dadd(96.253, 129.766, -0.425, 1.282)
pt3dadd(96.24, 129.823, -0.514, 1.294)
pt3dadd(96.227, 129.882, -0.602, 1.306)
pt3dadd(96.149, 129.972, -0.613, 1.288)
pt3dadd(96.052, 130.04, -0.619, 1.194)
pt3dadd(95.946, 130.097, -0.621, 1.094)
pt3dadd(95.838, 130.152, -0.623, 1.054)
pt3dadd(95.735, 130.214, -0.636, 1.03)
pt3dadd(95.664, 130.282, -0.691, 1.004)
pt3dadd(95.662, 130.28, -0.693, 1.004)
pt3dadd(95.641, 130.338, -0.779, 1.03)
pt3dadd(95.64, 130.363, -0.879, 1.01)
pt3dadd(95.638, 130.376, -0.98, 0.942)
pt3dadd(95.637, 130.4, -1.08, 0.852)
pt3dadd(95.636, 130.464, -1.164, 0.75)
pt3dadd(95.605, 130.555, -1.217, 0.684)
pt3dadd(95.541, 130.613, -1.163, 0.678)
pt3dadd(95.519, 130.675, -1.086, 0.672)
pt3dadd(95.521, 130.788, -1.079, 0.614)
pt3dadd(95.481, 130.891, -1.114, 0.58)
pt3dadd(95.432, 130.992, -1.152, 0.552)
pt3dadd(95.349, 131.08, -1.16, 0.552)
pt3dadd(95.265, 131.166, -1.168, 0.552)
pt3dadd(95.167, 131.219, -1.209, 0.562)
pt3dadd(95.07, 131.27, -1.252, 0.572)
pt3dadd(94.997, 131.306, -1.319, 0.578)
pt3dadd(94.95, 131.326, -1.413, 0.578)
pt3dadd(94.923, 131.342, -1.51, 0.59)
pt3dadd(94.886, 131.382, -1.592, 0.626)
pt3dadd(94.817, 131.444, -1.659, 0.668)
pt3dadd(94.743, 131.507, -1.72, 0.746)
pt3dadd(94.667, 131.568, -1.781, 0.832)
pt3dadd(94.619, 131.596, -1.872, 0.894)
pt3dadd(94.574, 131.622, -1.964, 0.956)
pt3dadd(94.567, 131.656, -2.062, 1)
pt3dadd(94.56, 131.689, -2.159, 1.042)
pt3dadd(94.526, 131.701, -2.256, 1.064)
pt3dadd(94.483, 131.705, -2.352, 1.078)
pt3dadd(94.439, 131.708, -2.447, 1.09)
pt3dadd(94.395, 131.712, -2.543, 1.104)
pt3dadd(94.358, 131.815, -2.572, 1.094)
pt3dadd(94.356, 131.814, -2.574, 1.094)
pt3dadd(94.319, 131.926, -2.598, 1.082)
pt3dadd(94.316, 132.043, -2.602, 0.992)
pt3dadd(94.254, 132.136, -2.632, 0.964)
pt3dadd(94.183, 132.224, -2.666, 0.946)
pt3dadd(94.111, 132.314, -2.699, 0.928)
pt3dadd(94.04, 132.403, -2.733, 0.91)
pt3dadd(93.969, 132.485, -2.778, 0.904)
pt3dadd(93.897, 132.562, -2.829, 0.904)
pt3dadd(93.826, 132.638, -2.881, 0.904)
pt3dadd(93.755, 132.715, -2.932, 0.904)
pt3dadd(93.666, 132.778, -2.976, 0.934)
pt3dadd(93.565, 132.829, -3.014, 0.988)
pt3dadd(93.477, 132.906, -3.03, 1.022)
pt3dadd(93.394, 132.992, -3.038, 1.046)
pt3dadd(93.32, 133.063, -3.084, 1.064)
pt3dadd(93.251, 133.126, -3.15, 1.078)
pt3dadd(93.249, 133.124, -3.152, 1.078)
pt3dadd(93.246, 133.224, -3.206, 1.07)
pt3dadd(93.247, 133.326, -3.259, 1.058)
pt3dadd(93.182, 133.398, -3.307, 1.054)
pt3dadd(93.092, 133.458, -3.355, 1.054)
pt3dadd(93.002, 133.518, -3.402, 1.054)
pt3dadd(92.9, 133.574, -3.427, 1.046)
pt3dadd(92.795, 133.63, -3.446, 1.032)
pt3dadd(92.741, 133.729, -3.452, 1.018)
pt3dadd(92.706, 133.843, -3.454, 1.002)
pt3dadd(92.669, 133.957, -3.456, 0.986)
pt3dadd(92.629, 134.069, -3.468, 0.972)
pt3dadd(92.586, 134.178, -3.486, 0.96)
pt3dadd(92.519, 134.255, -3.525, 0.976)
pt3dadd(92.465, 134.34, -3.581, 0.996)
pt3dadd(92.414, 134.428, -3.637, 1.014)
pt3dadd(92.364, 134.515, -3.693, 1.032)
pt3dadd(92.313, 134.602, -3.749, 1.05)
pt3dadd(92.305, 134.713, -3.772, 1.076)
pt3dadd(92.307, 134.832, -3.776, 1.058)
pt3dadd(92.309, 134.951, -3.778, 1.01)
pt3dadd(92.311, 135.068, -3.791, 1.004)
pt3dadd(92.288, 135.168, -3.836, 1.138)
pt3dadd(92.286, 135.167, -3.838, 1.138)
pt3dadd(92.214, 135.203, -3.912, 1.364)
pt3dadd(92.13, 135.204, -3.987, 1.504)
pt3dadd(92.035, 135.206, -4.052, 1.51)
pt3dadd(91.92, 135.209, -4.084, 1.426)
pt3dadd(91.803, 135.217, -4.115, 1.372)
pt3dadd(91.716, 135.266, -4.164, 1.382)
pt3dadd(91.704, 135.379, -4.196, 1.414)
pt3dadd(91.706, 135.493, -4.225, 1.416)
pt3dadd(91.695, 135.598, -4.271, 1.356)
pt3dadd(91.639, 135.695, -4.301, 1.276)
pt3dadd(91.563, 135.787, -4.308, 1.23)
pt3dadd(91.473, 135.865, -4.328, 1.204)
pt3dadd(91.383, 135.942, -4.349, 1.178)
pt3dadd(91.289, 136.003, -4.388, 1.15)
pt3dadd(91.187, 136.051, -4.417, 1.108)
pt3dadd(91.073, 136.086, -4.424, 1.048)
pt3dadd(90.97, 136.148, -4.44, 1.032)
pt3dadd(90.868, 136.211, -4.457, 1.016)
pt3dadd(90.765, 136.272, -4.473, 1)
pt3dadd(90.663, 136.334, -4.49, 0.984)
pt3dadd(90.554, 136.381, -4.507, 0.972)
pt3dadd(90.44, 136.422, -4.525, 0.96)
pt3dadd(90.323, 136.452, -4.534, 0.96)
pt3dadd(90.204, 136.476, -4.536, 0.97)
pt3dadd(90.084, 136.499, -4.538, 0.98)
pt3dadd(90.044, 136.609, -4.54, 1)
pt3dadd(90.008, 136.723, -4.542, 1.022)
pt3dadd(89.969, 136.831, -4.566, 1.022)
pt3dadd(89.929, 136.936, -4.603, 1.008)
pt3dadd(89.917, 137.027, -4.664, 0.984)
pt3dadd(89.918, 137.112, -4.735, 0.956)
pt3dadd(89.919, 137.197, -4.806, 0.928)
pt3dadd(89.919, 137.28, -4.88, 0.896)
pt3dadd(89.913, 137.342, -4.967, 0.848)
pt3dadd(89.904, 137.407, -5.049, 0.804)
pt3dadd(89.848, 137.513, -5.059, 0.804)
pt3dadd(89.768, 137.6, -5.064, 0.874)
pt3dadd(89.652, 137.638, -5.066, 0.954)
pt3dadd(89.539, 137.68, -5.068, 0.944)
pt3dadd(89.452, 137.759, -5.07, 0.908)
pt3dadd(89.395, 137.849, -5.101, 0.904)
pt3dadd(89.351, 137.899, -5.187, 0.904)
pt3dadd(89.3, 137.951, -5.268, 0.894)
pt3dadd(89.231, 138.005, -5.339, 0.866)
pt3dadd(89.172, 138.09, -5.372, 0.834)
pt3dadd(89.119, 138.197, -5.378, 0.798)
pt3dadd(89.065, 138.304, -5.384, 0.764)
pt3dadd(89.028, 138.416, -5.388, 0.71)
pt3dadd(88.996, 138.532, -5.39, 0.648)
pt3dadd(88.974, 138.648, -5.392, 0.574)
pt3dadd(88.976, 138.767, -5.391, 0.486)
pt3dadd(88.979, 138.883, -5.375, 0.464)
pt3dadd(88.98, 138.992, -5.339, 0.478)
pt3dadd(88.983, 139.105, -5.311, 0.476)
pt3dadd(88.959, 139.22, -5.303, 0.386)
pt3dadd(88.881, 139.303, -5.305, 0.32)
pt3dadd(88.764, 139.331, -5.307, 0.342)
pt3dadd(88.644, 139.349, -5.309, 0.444)
pt3dadd(88.529, 139.387, -5.313, 0.592)
pt3dadd(88.427, 139.441, -5.341, 0.672)
pt3dadd(88.338, 139.459, -5.407, 0.678)
pt3dadd(88.273, 139.415, -5.481, 0.678)
pt3dadd(88.22, 139.313, -5.514, 0.678)
pt3dadd(88.122, 139.255, -5.522, 0.68)
pt3dadd(88.028, 139.325, -5.524, 0.718)
pt3dadd(87.964, 139.424, -5.512, 0.75)
pt3dadd(87.897, 139.505, -5.467, 0.686)
pt3dadd(87.829, 139.576, -5.412, 0.56)
pt3dadd(87.782, 139.661, -5.358, 0.502)
pt3dadd(87.764, 139.763, -5.31, 0.52)
pt3dadd(87.709, 139.862, -5.285, 0.514)
pt3dadd(87.661, 139.964, -5.286, 0.498)
pt3dadd(87.636, 140.071, -5.327, 0.486)
pt3dadd(87.61, 140.148, -5.389, 0.474)
pt3dadd(87.582, 140.17, -5.486, 0.466)
pt3dadd(87.553, 140.192, -5.584, 0.456)
pt3dadd(87.517, 140.238, -5.669, 0.458)
pt3dadd(87.473, 140.314, -5.74, 0.472)
pt3dadd(87.431, 140.395, -5.805, 0.502)
pt3dadd(87.418, 140.424, -5.902, 0.482)
pt3dadd(87.416, 140.437, -6.004, 0.426)
pt3dadd(87.404, 140.464, -6.102, 0.382)
pt3dadd(87.335, 140.527, -6.156, 0.376)
pt3dadd(87.229, 140.586, -6.165, 0.398)
pt3dadd(87.13, 140.65, -6.148, 0.444)
pt3dadd(87.054, 140.719, -6.101, 0.504)
pt3dadd(86.959, 140.785, -6.075, 0.586)
pt3dadd(86.853, 140.843, -6.074, 0.706)
pt3dadd(86.747, 140.902, -6.076, 0.776)
pt3dadd(86.644, 140.965, -6.078, 0.764)
pt3dadd(86.546, 141.031, -6.084, 0.746)
pt3dadd(86.496, 141.127, -6.129, 0.662)
pt3dadd(86.437, 141.208, -6.18, 0.582)
pt3dadd(86.352, 141.247, -6.247, 0.51)
pt3dadd(86.269, 141.288, -6.314, 0.436)
pt3dadd(86.16, 141.312, -6.351, 0.396)
pt3dadd(86.046, 141.332, -6.385, 0.36)
pt3dadd(85.937, 141.38, -6.395, 0.352)
pt3dadd(85.82, 141.414, -6.4, 0.376)
pt3dadd(85.703, 141.433, -6.423, 0.39)
pt3dadd(85.606, 141.474, -6.471, 0.43)
pt3dadd(85.506, 141.532, -6.493, 0.452)
pt3dadd(85.405, 141.577, -6.459, 0.496)
pt3dadd(85.328, 141.637, -6.404, 0.58)
pt3dadd(85.275, 141.671, -6.323, 0.602)
pt3dadd(85.239, 141.676, -6.229, 0.626)
pt3dadd(85.189, 141.698, -6.146, 0.706)
pt3dadd(85.084, 141.744, -6.125, 0.774)
pt3dadd(84.971, 141.788, -6.122, 0.808)
pt3dadd(84.861, 141.839, -6.121, 0.838)
pt3dadd(84.759, 141.902, -6.123, 0.86)
pt3dadd(84.658, 141.968, -6.125, 0.892)
pt3dadd(84.552, 142.018, -6.127, 0.93)
pt3dadd(84.432, 142.036, -6.13, 0.93)
}
}
proc shape3d_171() {
dend_7[54] { pt3dadd(84.311, 142.054, -6.132, 0.93)
pt3dadd(84.19, 142.063, -6.134, 0.93)
pt3dadd(84.068, 142.07, -6.136, 0.93)
pt3dadd(83.947, 142.078, -6.138, 0.93)
pt3dadd(83.875, 142.168, -6.14, 0.908)
pt3dadd(83.808, 142.268, -6.143, 0.886)
pt3dadd(83.745, 142.37, -6.149, 0.878)
pt3dadd(83.683, 142.472, -6.156, 0.878)
pt3dadd(83.587, 142.519, -6.181, 0.884)
pt3dadd(83.474, 142.532, -6.217, 0.89)
pt3dadd(83.36, 142.546, -6.252, 0.896)
pt3dadd(83.246, 142.559, -6.287, 0.904)
pt3dadd(83.167, 142.561, -6.366, 0.926)
pt3dadd(83.091, 142.562, -6.446, 0.95)
pt3dadd(83.022, 142.633, -6.497, 0.954)
pt3dadd(82.955, 142.72, -6.542, 0.954)
pt3dadd(82.886, 142.81, -6.566, 0.944)
pt3dadd(82.812, 142.904, -6.568, 0.92)
pt3dadd(82.745, 143.004, -6.571, 0.904)
pt3dadd(82.697, 143.113, -6.573, 0.91)
pt3dadd(82.651, 143.224, -6.575, 0.918)
pt3dadd(82.605, 143.335, -6.577, 0.928)
pt3dadd(82.56, 143.446, -6.579, 0.938)
pt3dadd(82.514, 143.556, -6.581, 0.948)
pt3dadd(82.459, 143.659, -6.589, 0.958)
pt3dadd(82.378, 143.743, -6.615, 0.976)
pt3dadd(82.296, 143.827, -6.64, 0.994)
pt3dadd(82.214, 143.912, -6.665, 1.01)
pt3dadd(82.133, 143.996, -6.69, 1.028)
pt3dadd(82.038, 144.07, -6.7, 1.024)
pt3dadd(81.94, 144.14, -6.71, 1.02)
pt3dadd(81.843, 144.212, -6.719, 1.014)
pt3dadd(81.747, 144.284, -6.728, 1.01)
pt3dadd(81.652, 144.358, -6.74, 0.998)
pt3dadd(81.579, 144.442, -6.78, 0.942)
pt3dadd(81.489, 144.499, -6.808, 0.89)
pt3dadd(81.367, 144.508, -6.815, 0.844)
pt3dadd(81.246, 144.515, -6.821, 0.798)
pt3dadd(81.139, 144.548, -6.848, 0.748)
pt3dadd(81.043, 144.601, -6.893, 0.692)
pt3dadd(81.041, 144.6, -6.895, 0.692)
pt3dadd(80.976, 144.692, -6.913, 0.678)
pt3dadd(80.922, 144.799, -6.92, 0.678)
pt3dadd(80.85, 144.894, -6.924, 0.688)
pt3dadd(80.764, 144.979, -6.926, 0.708)
pt3dadd(80.672, 145.056, -6.929, 0.73)
pt3dadd(80.579, 145.133, -6.931, 0.752)
pt3dadd(80.506, 145.229, -6.933, 0.742)
pt3dadd(80.433, 145.324, -6.935, 0.73)
pt3dadd(80.319, 145.364, -6.937, 0.71)
pt3dadd(80.203, 145.4, -6.939, 0.688)
pt3dadd(80.103, 145.441, -6.971, 0.658)
pt3dadd(80.021, 145.488, -7.036, 0.616)
pt3dadd(79.923, 145.504, -7.093, 0.594)
pt3dadd(79.819, 145.506, -7.147, 0.58)
pt3dadd(79.714, 145.508, -7.201, 0.566)
pt3dadd(79.608, 145.513, -7.252, 0.552)
pt3dadd(79.495, 145.555, -7.254, 0.552)
pt3dadd(79.382, 145.597, -7.257, 0.552)
pt3dadd(79.283, 145.664, -7.259, 0.628)
pt3dadd(79.186, 145.73, -7.286, 0.656)
pt3dadd(79.089, 145.796, -7.313, 0.684)
pt3dadd(79.087, 145.795, -7.316, 0.684)
pt3dadd(78.99, 145.861, -7.343, 0.714)
pt3dadd(78.893, 145.927, -7.371, 0.742)
pt3dadd(78.829, 145.988, -7.43, 0.794)
pt3dadd(78.784, 146.047, -7.512, 0.864)
pt3dadd(78.727, 146.137, -7.55, 0.91)
pt3dadd(78.666, 146.236, -7.575, 0.95)
pt3dadd(78.664, 146.234, -7.577, 0.95)
pt3dadd(78.559, 146.291, -7.582, 0.944)
pt3dadd(78.447, 146.34, -7.585, 0.934)
pt3dadd(78.342, 146.396, -7.587, 0.908)
pt3dadd(78.238, 146.46, -7.589, 0.874)
pt3dadd(78.129, 146.512, -7.594, 0.846)
pt3dadd(78.014, 146.546, -7.605, 0.826)
pt3dadd(77.898, 146.58, -7.616, 0.806)
pt3dadd(77.781, 146.615, -7.627, 0.786)
pt3dadd(77.666, 146.63, -7.652, 0.778)
pt3dadd(77.551, 146.633, -7.687, 0.778)
pt3dadd(77.436, 146.636, -7.721, 0.786)
pt3dadd(77.318, 146.648, -7.745, 0.804)
pt3dadd(77.2, 146.674, -7.762, 0.804)
pt3dadd(77.082, 146.699, -7.779, 0.804)
pt3dadd(76.965, 146.724, -7.795, 0.804)
pt3dadd(76.846, 146.749, -7.812, 0.804)
pt3dadd(76.73, 146.774, -7.83, 0.802)
pt3dadd(76.625, 146.809, -7.874, 0.786)
pt3dadd(76.521, 146.844, -7.918, 0.77)
pt3dadd(76.416, 146.879, -7.962, 0.752)
pt3dadd(76.311, 146.915, -8.006, 0.736)
pt3dadd(76.212, 146.959, -8.051, 0.706)
pt3dadd(76.116, 147.013, -8.096, 0.664)
pt3dadd(76.015, 147.034, -8.148, 0.644)
pt3dadd(75.911, 147.042, -8.204, 0.632)
pt3dadd(75.812, 147.091, -8.229, 0.644)
pt3dadd(75.716, 147.164, -8.236, 0.668)
pt3dadd(75.641, 147.254, -8.241, 0.684)
pt3dadd(75.582, 147.359, -8.243, 0.696)
pt3dadd(75.504, 147.443, -8.246, 0.704)
pt3dadd(75.393, 147.492, -8.251, 0.704)
pt3dadd(75.282, 147.541, -8.256, 0.704)
pt3dadd(75.172, 147.59, -8.261, 0.704)
pt3dadd(75.071, 147.628, -8.302, 0.712)
pt3dadd(74.978, 147.658, -8.363, 0.724)
pt3dadd(74.907, 147.737, -8.404, 0.768)
pt3dadd(74.842, 147.83, -8.438, 0.818)
pt3dadd(74.78, 147.923, -8.476, 0.868)
pt3dadd(74.721, 148.014, -8.522, 0.91)
pt3dadd(74.67, 148.092, -8.584, 0.906)
pt3dadd(74.668, 148.091, -8.586, 0.906)
pt3dadd(74.585, 148.157, -8.633, 0.876)
pt3dadd(74.499, 148.224, -8.678, 0.846)
pt3dadd(74.411, 148.29, -8.723, 0.814)
pt3dadd(74.324, 148.356, -8.769, 0.784)
pt3dadd(74.267, 148.454, -8.793, 0.758)
pt3dadd(74.216, 148.561, -8.811, 0.734)
pt3dadd(74.158, 148.655, -8.851, 0.728)
pt3dadd(74.099, 148.745, -8.897, 0.728)
pt3dadd(74.094, 148.823, -8.975, 0.716)
pt3dadd(74.088, 148.898, -9.053, 0.704)
pt3dadd(74.047, 148.951, -9.139, 0.678)
pt3dadd(74.002, 149.004, -9.222, 0.652)
pt3dadd(73.954, 149.086, -9.285, 0.634)
pt3dadd(73.904, 149.168, -9.347, 0.618)
pt3dadd(73.862, 149.256, -9.403, 0.604)
pt3dadd(73.854, 149.374, -9.418, 0.614)
pt3dadd(73.845, 149.49, -9.434, 0.624)
pt3dadd(73.804, 149.596, -9.462, 0.628)
pt3dadd(73.746, 149.693, -9.495, 0.628)
pt3dadd(73.687, 149.777, -9.539, 0.628)
pt3dadd(73.623, 149.806, -9.623, 0.628)
pt3dadd(73.549, 149.827, -9.701, 0.626)
pt3dadd(73.454, 149.828, -9.766, 0.616)
pt3dadd(73.357, 149.831, -9.83, 0.608)
pt3dadd(73.292, 149.832, -9.91, 0.612)
pt3dadd(73.263, 149.832, -10.01, 0.632)
pt3dadd(73.235, 149.832, -10.11, 0.652)
pt3dadd(73.201, 149.836, -10.207, 0.732)
pt3dadd(73.16, 149.863, -10.301, 0.758)
pt3dadd(73.12, 149.892, -10.395, 0.784)
pt3dadd(73.079, 149.92, -10.488, 0.812)
pt3dadd(73.039, 149.948, -10.582, 0.838)
pt3dadd(72.99, 149.987, -10.669, 0.87)
pt3dadd(72.93, 150.04, -10.746, 0.912)
pt3dadd(72.868, 150.065, -10.829, 0.952)
pt3dadd(72.802, 150.072, -10.916, 0.986)
pt3dadd(72.748, 150.079, -11.007, 1.01)
pt3dadd(72.705, 150.085, -11.103, 1.022)
pt3dadd(72.666, 150.118, -11.185, 1.036)
pt3dadd(72.641, 150.224, -11.226, 1.062)
pt3dadd(72.596, 150.314, -11.266, 1.078)
pt3dadd(72.491, 150.359, -11.303, 1.07)
pt3dadd(72.386, 150.402, -11.34, 1.062)
pt3dadd(72.285, 150.443, -11.381, 1.052)
pt3dadd(72.236, 150.444, -11.476, 1.008)
pt3dadd(72.187, 150.444, -11.57, 0.964)
pt3dadd(72.093, 150.478, -11.615, 0.886)
pt3dadd(71.986, 150.522, -11.647, 0.8)
pt3dadd(71.877, 150.565, -11.674, 0.716)
pt3dadd(71.764, 150.607, -11.676, 0.64)
pt3dadd(71.649, 150.649, -11.678, 0.566)
pt3dadd(71.533, 150.686, -11.681, 0.478)
pt3dadd(71.421, 150.7, -11.72, 0.492)
pt3dadd(71.31, 150.713, -11.76, 0.506)
pt3dadd(71.196, 150.726, -11.799, 0.522)
pt3dadd(71.084, 150.738, -11.839, 0.536)
pt3dadd(70.973, 150.751, -11.878, 0.552)
pt3dadd(70.858, 150.788, -11.89, 0.566)
pt3dadd(70.742, 150.827, -11.901, 0.58)
pt3dadd(70.627, 150.865, -11.911, 0.594)
pt3dadd(70.625, 150.864, -11.914, 0.594)
pt3dadd(70.623, 150.863, -11.916, 0.594)
pt3dadd(70.509, 150.901, -11.926, 0.61)
pt3dadd(70.394, 150.94, -11.937, 0.624)
pt3dadd(70.288, 150.983, -11.968, 0.636)
pt3dadd(70.184, 151.027, -12.008, 0.648)
pt3dadd(70.081, 151.072, -12.048, 0.658)
pt3dadd(69.978, 151.116, -12.088, 0.67)
pt3dadd(69.883, 151.171, -12.128, 0.678)
pt3dadd(69.814, 151.256, -12.171, 0.678)
pt3dadd(69.744, 151.342, -12.213, 0.678)
pt3dadd(69.674, 151.427, -12.256, 0.678)
pt3dadd(69.6, 151.507, -12.299, 0.678)
pt3dadd(69.599, 151.506, -12.302, 0.678)
pt3dadd(69.505, 151.555, -12.351, 0.678)
pt3dadd(69.41, 151.604, -12.4, 0.678)
pt3dadd(69.315, 151.654, -12.45, 0.678)
pt3dadd(69.219, 151.703, -12.499, 0.678)
pt3dadd(69.115, 151.758, -12.521, 0.678)
pt3dadd(69.009, 151.813, -12.539, 0.678)
pt3dadd(68.891, 151.84, -12.543, 0.678)
pt3dadd(68.772, 151.864, -12.545, 0.678)
pt3dadd(68.662, 151.904, -12.547, 0.686)
pt3dadd(68.576, 151.988, -12.549, 0.708)
pt3dadd(68.49, 152.071, -12.56, 0.742)
pt3dadd(68.415, 152.149, -12.606, 0.812)
pt3dadd(68.35, 152.219, -12.666, 0.882)
pt3dadd(68.295, 152.278, -12.743, 0.95)
pt3dadd(68.241, 152.336, -12.82, 1.018)
}
}
proc shape3d_172() {
dend_7[54] { pt3dadd(68.206, 152.422, -12.869, 1.08)
pt3dadd(68.191, 152.539, -12.885, 1.132)
pt3dadd(68.178, 152.654, -12.903, 1.178)
pt3dadd(68.164, 152.761, -12.944, 1.142)
pt3dadd(68.119, 152.867, -12.974, 1.104)
pt3dadd(68.074, 152.972, -13.002, 1.064)
pt3dadd(68.027, 153.078, -13.032, 1.026)
pt3dadd(67.982, 153.185, -13.061, 0.988)
pt3dadd(67.897, 153.25, -13.102, 0.902)
pt3dadd(67.803, 153.302, -13.147, 0.806)
pt3dadd(67.732, 153.396, -13.174, 0.738)
pt3dadd(67.662, 153.484, -13.205, 0.676)
pt3dadd(67.59, 153.512, -13.284, 0.648)
pt3dadd(67.508, 153.536, -13.35, 0.626)
pt3dadd(67.387, 153.539, -13.369, 0.616)
pt3dadd(67.267, 153.542, -13.388, 0.606)
pt3dadd(67.147, 153.527, -13.397, 0.61)
pt3dadd(67.028, 153.5, -13.399, 0.622)
pt3dadd(66.909, 153.474, -13.401, 0.634)
pt3dadd(66.789, 153.448, -13.403, 0.646)
pt3dadd(66.69, 153.389, -13.405, 0.67)
pt3dadd(66.61, 153.296, -13.407, 0.706)
pt3dadd(66.525, 153.22, -13.429, 0.744)
pt3dadd(66.432, 153.172, -13.482, 0.786)
pt3dadd(66.339, 153.122, -13.535, 0.828)
pt3dadd(66.23, 153.106, -13.582, 0.866)
pt3dadd(66.122, 153.088, -13.628, 0.902)
pt3dadd(66.004, 153.09, -13.655, 0.902)
pt3dadd(65.883, 153.091, -13.668, 0.894)
pt3dadd(65.761, 153.091, -13.681, 0.886)
pt3dadd(65.64, 153.092, -13.694, 0.878)
pt3dadd(65.518, 153.094, -13.707, 0.87)
pt3dadd(65.398, 153.094, -13.719, 0.862)
pt3dadd(65.277, 153.095, -13.732, 0.854)
pt3dadd(65.16, 153.06, -13.735, 0.838)
pt3dadd(65.043, 153.022, -13.738, 0.818)
pt3dadd(64.929, 152.982, -13.74, 0.8)
pt3dadd(64.812, 152.944, -13.742, 0.782)
pt3dadd(64.696, 152.904, -13.744, 0.764)
pt3dadd(64.578, 152.885, -13.739, 0.754)
pt3dadd(64.458, 152.887, -13.724, 0.754)
pt3dadd(64.338, 152.891, -13.71, 0.754)
pt3dadd(64.218, 152.893, -13.696, 0.754)
pt3dadd(64.097, 152.896, -13.682, 0.754)
pt3dadd(63.977, 152.899, -13.667, 0.754)
pt3dadd(63.857, 152.91, -13.659, 0.756)
pt3dadd(63.738, 152.933, -13.661, 0.766)
pt3dadd(63.618, 152.956, -13.663, 0.776)
pt3dadd(63.526, 153.029, -13.661, 0.788)
pt3dadd(63.443, 153.115, -13.658, 0.8)
pt3dadd(63.371, 153.185, -13.612, 0.772)
pt3dadd(63.302, 153.247, -13.551, 0.728)
pt3dadd(63.277, 153.353, -13.513, 0.678)
pt3dadd(63.252, 153.46, -13.476, 0.628)
pt3dadd(63.15, 153.526, -13.484, 0.592)
pt3dadd(63.05, 153.592, -13.491, 0.556)
pt3dadd(62.966, 153.632, -13.552, 0.574)
pt3dadd(62.91, 153.64, -13.642, 0.624)
pt3dadd(62.855, 153.638, -13.734, 0.582)
pt3dadd(62.813, 153.61, -13.827, 0.434)
pt3dadd(62.724, 153.55, -13.866, 0.358)
pt3dadd(62.624, 153.486, -13.893, 0.302)
pt3dadd(62.622, 153.485, -13.895, 0.302)
pt3dadd(62.62, 153.484, -13.897, 0.302)
}
dend_0[11] {pt3dclear()
pt3dstyle(1, 103.04, 100.942, 14.404)
pt3dadd(103.04, 100.822, 14.404, 11.298)
pt3dadd(103.04, 100.702, 14.404, 11.202)
pt3dadd(103.04, 100.582, 14.404, 11.104)
pt3dadd(103.04, 100.462, 14.404, 11.008)
pt3dadd(103.04, 100.342, 14.404, 10.912)
pt3dadd(103.04, 100.222, 14.404, 10.816)
pt3dadd(103.04, 100.102, 14.404, 10.718)
pt3dadd(103.04, 99.982, 14.404, 10.622)
}
dend_0[12] {pt3dclear()
pt3dadd(103.04, 99.982, 14.404, 10.622)
pt3dadd(103.077, 99.872, 14.411, 10.542)
pt3dadd(103.116, 99.759, 14.419, 10.46)
pt3dadd(103.154, 99.645, 14.427, 10.378)
pt3dadd(103.193, 99.532, 14.435, 10.296)
pt3dadd(103.231, 99.419, 14.443, 10.214)
pt3dadd(103.269, 99.305, 14.451, 10.132)
pt3dadd(103.308, 99.192, 14.459, 10.05)
pt3dadd(103.346, 99.079, 14.466, 9.968)
pt3dadd(103.384, 98.965, 14.474, 9.886)
pt3dadd(103.428, 98.854, 14.483, 9.802)
pt3dadd(103.479, 98.747, 14.493, 9.712)
pt3dadd(103.531, 98.639, 14.502, 9.624)
pt3dadd(103.583, 98.532, 14.512, 9.534)
pt3dadd(103.635, 98.424, 14.522, 9.446)
pt3dadd(103.687, 98.316, 14.531, 9.358)
pt3dadd(103.739, 98.209, 14.541, 9.268)
pt3dadd(103.791, 98.101, 14.551, 9.18)
pt3dadd(103.842, 97.994, 14.56, 9.09)
pt3dadd(103.894, 97.886, 14.57, 9.002)
pt3dadd(103.951, 97.781, 14.581, 8.908)
pt3dadd(104.014, 97.68, 14.595, 8.81)
pt3dadd(104.076, 97.579, 14.608, 8.71)
pt3dadd(104.139, 97.478, 14.622, 8.61)
pt3dadd(104.202, 97.377, 14.635, 8.51)
pt3dadd(104.265, 97.276, 14.649, 8.412)
pt3dadd(104.328, 97.175, 14.662, 8.312)
pt3dadd(104.391, 97.074, 14.675, 8.212)
pt3dadd(104.454, 96.974, 14.689, 8.112)
pt3dadd(104.516, 96.873, 14.702, 8.014)
pt3dadd(104.581, 96.773, 14.717, 7.908)
pt3dadd(104.646, 96.675, 14.735, 7.798)
pt3dadd(104.712, 96.577, 14.753, 7.688)
pt3dadd(104.778, 96.479, 14.77, 7.578)
pt3dadd(104.844, 96.381, 14.788, 7.468)
pt3dadd(104.91, 96.283, 14.805, 7.356)
pt3dadd(104.976, 96.185, 14.823, 7.246)
pt3dadd(105.042, 96.087, 14.841, 7.136)
pt3dadd(105.108, 95.989, 14.859, 7.026)
pt3dadd(105.174, 95.891, 14.876, 6.914)
pt3dadd(105.229, 95.793, 14.906, 6.766)
pt3dadd(105.271, 95.695, 14.952, 6.568)
pt3dadd(105.313, 95.597, 14.998, 6.368)
pt3dadd(105.355, 95.499, 15.044, 6.17)
pt3dadd(105.397, 95.401, 15.09, 5.97)
pt3dadd(105.439, 95.303, 15.136, 5.772)
pt3dadd(105.481, 95.206, 15.182, 5.574)
pt3dadd(105.524, 95.108, 15.229, 5.374)
pt3dadd(105.566, 95.01, 15.275, 5.176)
pt3dadd(105.608, 94.912, 15.321, 4.976)
pt3dadd(105.645, 94.815, 15.371, 4.786)
pt3dadd(105.676, 94.719, 15.425, 4.608)
pt3dadd(105.707, 94.623, 15.479, 4.43)
pt3dadd(105.738, 94.527, 15.533, 4.252)
pt3dadd(105.77, 94.431, 15.587, 4.072)
pt3dadd(105.801, 94.335, 15.641, 3.894)
pt3dadd(105.832, 94.239, 15.695, 3.714)
pt3dadd(105.863, 94.143, 15.749, 3.536)
pt3dadd(105.894, 94.047, 15.804, 3.358)
pt3dadd(105.926, 93.951, 15.858, 3.18)
}
dend_7[55] {pt3dclear()
pt3dadd(105.926, 93.951, 15.858, 3.18)
pt3dadd(105.952, 93.857, 15.915, 3.014)
pt3dadd(105.974, 93.763, 15.975, 2.864)
pt3dadd(105.996, 93.67, 16.035, 2.712)
pt3dadd(106.018, 93.576, 16.095, 2.562)
pt3dadd(106.039, 93.483, 16.155, 2.41)
pt3dadd(106.061, 93.389, 16.215, 2.26)
pt3dadd(106.083, 93.296, 16.275, 2.108)
pt3dadd(106.105, 93.202, 16.335, 1.958)
pt3dadd(106.127, 93.109, 16.395, 1.806)
pt3dadd(106.149, 93.015, 16.455, 1.654)
pt3dadd(106.146, 92.911, 16.495, 1.62)
pt3dadd(106.121, 92.796, 16.516, 1.694)
pt3dadd(106.096, 92.682, 16.537, 1.766)
pt3dadd(106.07, 92.567, 16.558, 1.84)
pt3dadd(106.045, 92.453, 16.579, 1.914)
pt3dadd(106.02, 92.338, 16.6, 1.986)
pt3dadd(105.995, 92.224, 16.621, 2.06)
pt3dadd(105.979, 92.108, 16.643, 2.1)
pt3dadd(105.964, 91.992, 16.665, 2.134)
pt3dadd(105.95, 91.875, 16.688, 2.168)
pt3dadd(105.935, 91.759, 16.71, 2.204)
pt3dadd(105.921, 91.643, 16.732, 2.238)
pt3dadd(105.906, 91.527, 16.755, 2.272)
pt3dadd(105.892, 91.411, 16.777, 2.306)
pt3dadd(105.877, 91.295, 16.799, 2.342)
pt3dadd(105.863, 91.179, 16.821, 2.376)
pt3dadd(105.848, 91.063, 16.844, 2.41)
pt3dadd(105.847, 90.947, 16.869, 2.394)
pt3dadd(105.847, 90.831, 16.895, 2.372)
pt3dadd(105.848, 90.715, 16.92, 2.352)
pt3dadd(105.848, 90.599, 16.946, 2.33)
pt3dadd(105.848, 90.483, 16.971, 2.31)
pt3dadd(105.848, 90.367, 16.997, 2.288)
pt3dadd(105.848, 90.251, 17.022, 2.268)
pt3dadd(105.848, 90.135, 17.048, 2.246)
pt3dadd(105.848, 90.019, 17.073, 2.226)
pt3dadd(105.848, 89.903, 17.099, 2.204)
pt3dadd(105.849, 89.794, 17.141, 2.148)
pt3dadd(105.849, 89.686, 17.185, 2.09)
pt3dadd(105.849, 89.578, 17.229, 2.03)
pt3dadd(105.849, 89.47, 17.273, 1.972)
pt3dadd(105.849, 89.363, 17.316, 1.914)
pt3dadd(105.849, 89.255, 17.36, 1.854)
pt3dadd(105.849, 89.147, 17.404, 1.796)
pt3dadd(105.849, 89.039, 17.447, 1.736)
pt3dadd(105.849, 88.931, 17.491, 1.678)
pt3dadd(105.85, 88.823, 17.535, 1.62)
pt3dadd(105.85, 88.709, 17.567, 1.612)
pt3dadd(105.85, 88.595, 17.598, 1.608)
pt3dadd(105.85, 88.482, 17.63, 1.606)
pt3dadd(105.851, 88.368, 17.661, 1.602)
pt3dadd(105.851, 88.254, 17.693, 1.598)
pt3dadd(105.851, 88.14, 17.724, 1.596)
pt3dadd(105.851, 88.026, 17.756, 1.592)
pt3dadd(105.852, 87.912, 17.787, 1.588)
pt3dadd(105.852, 87.798, 17.818, 1.586)
pt3dadd(105.852, 87.684, 17.85, 1.582)
pt3dadd(105.852, 87.568, 17.875, 1.556)
pt3dadd(105.853, 87.452, 17.901, 1.53)
pt3dadd(105.853, 87.336, 17.926, 1.502)
pt3dadd(105.853, 87.22, 17.951, 1.474)
pt3dadd(105.854, 87.104, 17.976, 1.448)
pt3dadd(105.854, 86.988, 18.002, 1.42)
pt3dadd(105.855, 86.871, 18.027, 1.392)
pt3dadd(105.855, 86.755, 18.052, 1.366)
pt3dadd(105.855, 86.639, 18.078, 1.338)
}
}
proc shape3d_173() {
dend_7[55] { pt3dadd(105.856, 86.523, 18.103, 1.312)
pt3dadd(105.856, 86.409, 18.134, 1.302)
pt3dadd(105.857, 86.295, 18.166, 1.294)
pt3dadd(105.858, 86.182, 18.198, 1.284)
pt3dadd(105.858, 86.068, 18.229, 1.276)
pt3dadd(105.859, 85.954, 18.261, 1.268)
pt3dadd(105.86, 85.84, 18.293, 1.26)
pt3dadd(105.861, 85.726, 18.324, 1.25)
pt3dadd(105.861, 85.613, 18.356, 1.242)
pt3dadd(105.862, 85.499, 18.388, 1.234)
pt3dadd(105.863, 85.385, 18.42, 1.226)
pt3dadd(105.864, 85.273, 18.456, 1.232)
pt3dadd(105.865, 85.161, 18.492, 1.24)
pt3dadd(105.867, 85.049, 18.528, 1.248)
pt3dadd(105.868, 84.938, 18.565, 1.256)
pt3dadd(105.869, 84.826, 18.601, 1.264)
pt3dadd(105.871, 84.714, 18.637, 1.272)
pt3dadd(105.872, 84.602, 18.673, 1.28)
pt3dadd(105.873, 84.49, 18.709, 1.288)
pt3dadd(105.875, 84.378, 18.746, 1.294)
pt3dadd(105.876, 84.267, 18.782, 1.302)
pt3dadd(105.879, 84.151, 18.81, 1.286)
pt3dadd(105.881, 84.036, 18.837, 1.268)
pt3dadd(105.884, 83.921, 18.865, 1.25)
pt3dadd(105.887, 83.805, 18.892, 1.234)
pt3dadd(105.889, 83.69, 18.92, 1.216)
pt3dadd(105.892, 83.575, 18.948, 1.2)
pt3dadd(105.894, 83.459, 18.975, 1.182)
pt3dadd(105.897, 83.344, 19.003, 1.164)
pt3dadd(105.9, 83.229, 19.03, 1.148)
pt3dadd(105.902, 83.114, 19.058, 1.13)
pt3dadd(105.908, 82.996, 19.08, 1.13)
pt3dadd(105.913, 82.879, 19.101, 1.128)
pt3dadd(105.918, 82.762, 19.122, 1.128)
pt3dadd(105.923, 82.645, 19.144, 1.126)
pt3dadd(105.928, 82.528, 19.165, 1.126)
pt3dadd(105.933, 82.411, 19.187, 1.124)
pt3dadd(105.939, 82.294, 19.208, 1.124)
pt3dadd(105.944, 82.177, 19.23, 1.122)
pt3dadd(105.949, 82.06, 19.251, 1.122)
pt3dadd(105.954, 81.943, 19.273, 1.12)
pt3dadd(105.967, 81.825, 19.291, 1.032)
pt3dadd(105.98, 81.708, 19.309, 0.942)
pt3dadd(105.994, 81.591, 19.327, 0.852)
pt3dadd(106.007, 81.473, 19.345, 0.762)
pt3dadd(106.02, 81.356, 19.363, 0.674)
pt3dadd(106.033, 81.239, 19.381, 0.584)
pt3dadd(106.046, 81.122, 19.399, 0.494)
pt3dadd(106.06, 81.004, 19.417, 0.404)
pt3dadd(106.073, 80.887, 19.435, 0.316)
pt3dadd(106.086, 80.77, 19.453, 0.226)
}
dend_7[56] {pt3dclear()
pt3dadd(106.086, 80.77, 19.453, 0.226)
pt3dadd(106.106, 80.708, 19.503, 0.266)
pt3dadd(106.134, 80.625, 19.571, 0.318)
pt3dadd(106.161, 80.541, 19.639, 0.372)
pt3dadd(106.189, 80.457, 19.707, 0.424)
pt3dadd(106.216, 80.374, 19.774, 0.478)
pt3dadd(106.244, 80.29, 19.843, 0.532)
pt3dadd(106.271, 80.207, 19.91, 0.584)
pt3dadd(106.299, 80.123, 19.978, 0.638)
pt3dadd(106.354, 80.042, 20.033, 0.684)
pt3dadd(106.422, 79.961, 20.08, 0.728)
pt3dadd(106.491, 79.881, 20.128, 0.774)
pt3dadd(106.559, 79.801, 20.176, 0.818)
pt3dadd(106.628, 79.72, 20.223, 0.862)
pt3dadd(106.696, 79.64, 20.271, 0.906)
pt3dadd(106.765, 79.56, 20.319, 0.95)
pt3dadd(106.833, 79.48, 20.366, 0.994)
pt3dadd(106.902, 79.399, 20.414, 1.038)
pt3dadd(106.97, 79.319, 20.461, 1.082)
pt3dadd(107.037, 79.257, 20.525, 1.07)
pt3dadd(107.102, 79.202, 20.595, 1.032)
pt3dadd(107.167, 79.147, 20.665, 0.994)
pt3dadd(107.233, 79.092, 20.736, 0.956)
pt3dadd(107.298, 79.037, 20.806, 0.918)
pt3dadd(107.364, 78.983, 20.876, 0.88)
pt3dadd(107.429, 78.928, 20.946, 0.842)
pt3dadd(107.495, 78.873, 21.017, 0.804)
pt3dadd(107.56, 78.818, 21.087, 0.766)
pt3dadd(107.626, 78.763, 21.157, 0.728)
pt3dadd(107.705, 78.702, 21.211, 0.728)
pt3dadd(107.788, 78.638, 21.259, 0.742)
pt3dadd(107.872, 78.574, 21.308, 0.756)
pt3dadd(107.955, 78.51, 21.356, 0.768)
pt3dadd(108.039, 78.447, 21.404, 0.782)
pt3dadd(108.122, 78.383, 21.452, 0.796)
pt3dadd(108.206, 78.319, 21.501, 0.81)
pt3dadd(108.289, 78.255, 21.549, 0.824)
pt3dadd(108.372, 78.191, 21.597, 0.836)
pt3dadd(108.456, 78.127, 21.646, 0.85)
pt3dadd(108.542, 78.08, 21.702, 0.846)
pt3dadd(108.629, 78.036, 21.76, 0.838)
pt3dadd(108.716, 77.993, 21.819, 0.83)
pt3dadd(108.803, 77.95, 21.878, 0.822)
pt3dadd(108.89, 77.906, 21.936, 0.814)
pt3dadd(108.978, 77.863, 21.995, 0.806)
pt3dadd(109.065, 77.82, 22.054, 0.798)
pt3dadd(109.152, 77.776, 22.112, 0.79)
pt3dadd(109.239, 77.733, 22.171, 0.782)
pt3dadd(109.326, 77.69, 22.229, 0.774)
pt3dadd(109.412, 77.658, 22.293, 0.766)
pt3dadd(109.499, 77.628, 22.358, 0.756)
pt3dadd(109.585, 77.598, 22.423, 0.746)
pt3dadd(109.671, 77.568, 22.487, 0.736)
pt3dadd(109.758, 77.538, 22.552, 0.728)
pt3dadd(109.844, 77.507, 22.617, 0.718)
pt3dadd(109.931, 77.477, 22.681, 0.708)
pt3dadd(110.017, 77.447, 22.746, 0.698)
pt3dadd(110.103, 77.417, 22.811, 0.688)
pt3dadd(110.19, 77.387, 22.875, 0.68)
pt3dadd(110.274, 77.358, 22.943, 0.682)
pt3dadd(110.358, 77.33, 23.01, 0.688)
pt3dadd(110.441, 77.302, 23.078, 0.694)
pt3dadd(110.525, 77.274, 23.146, 0.698)
pt3dadd(110.609, 77.246, 23.213, 0.704)
pt3dadd(110.693, 77.217, 23.281, 0.708)
pt3dadd(110.776, 77.189, 23.349, 0.714)
pt3dadd(110.86, 77.161, 23.417, 0.72)
pt3dadd(110.944, 77.133, 23.484, 0.724)
pt3dadd(111.027, 77.105, 23.552, 0.73)
pt3dadd(111.092, 77.051, 23.623, 0.768)
pt3dadd(111.156, 76.996, 23.694, 0.808)
pt3dadd(111.22, 76.941, 23.765, 0.848)
pt3dadd(111.284, 76.886, 23.836, 0.888)
pt3dadd(111.348, 76.831, 23.908, 0.928)
pt3dadd(111.412, 76.776, 23.979, 0.968)
pt3dadd(111.476, 76.721, 24.05, 1.008)
pt3dadd(111.54, 76.666, 24.121, 1.048)
pt3dadd(111.603, 76.611, 24.192, 1.088)
pt3dadd(111.667, 76.556, 24.263, 1.128)
pt3dadd(111.728, 76.521, 24.345, 1.128)
pt3dadd(111.788, 76.487, 24.427, 1.126)
pt3dadd(111.848, 76.453, 24.508, 1.124)
pt3dadd(111.908, 76.419, 24.59, 1.122)
pt3dadd(111.968, 76.384, 24.672, 1.12)
pt3dadd(112.028, 76.35, 24.753, 1.12)
pt3dadd(112.088, 76.316, 24.835, 1.118)
pt3dadd(112.148, 76.282, 24.917, 1.116)
pt3dadd(112.208, 76.247, 24.999, 1.114)
pt3dadd(112.268, 76.213, 25.08, 1.112)
pt3dadd(112.289, 76.193, 25.177, 1.068)
pt3dadd(112.309, 76.173, 25.274, 1.024)
pt3dadd(112.33, 76.152, 25.372, 0.982)
pt3dadd(112.35, 76.132, 25.469, 0.938)
pt3dadd(112.371, 76.112, 25.566, 0.894)
pt3dadd(112.392, 76.092, 25.663, 0.852)
pt3dadd(112.412, 76.072, 25.76, 0.808)
pt3dadd(112.433, 76.051, 25.857, 0.764)
pt3dadd(112.453, 76.031, 25.954, 0.722)
pt3dadd(112.474, 76.011, 26.051, 0.678)
}
dend_7[57] {pt3dclear()
pt3dadd(112.474, 76.011, 26.051, 0.678)
pt3dadd(112.472, 76.009, 26.068, 0.682)
pt3dadd(112.465, 75.997, 26.167, 0.702)
pt3dadd(112.458, 75.985, 26.267, 0.722)
pt3dadd(112.452, 75.974, 26.366, 0.742)
pt3dadd(112.445, 75.962, 26.465, 0.762)
pt3dadd(112.438, 75.95, 26.565, 0.782)
pt3dadd(112.415, 75.936, 26.662, 0.78)
pt3dadd(112.385, 75.921, 26.758, 0.768)
pt3dadd(112.354, 75.906, 26.854, 0.754)
pt3dadd(112.324, 75.89, 26.949, 0.742)
pt3dadd(112.293, 75.875, 27.045, 0.728)
pt3dadd(112.263, 75.86, 27.141, 0.716)
pt3dadd(112.232, 75.845, 27.237, 0.702)
pt3dadd(112.202, 75.829, 27.333, 0.69)
pt3dadd(112.171, 75.814, 27.429, 0.676)
pt3dadd(112.141, 75.799, 27.525, 0.664)
pt3dadd(112.084, 75.771, 27.609, 0.64)
pt3dadd(112.025, 75.743, 27.693, 0.616)
pt3dadd(111.966, 75.715, 27.777, 0.594)
pt3dadd(111.907, 75.687, 27.861, 0.57)
pt3dadd(111.848, 75.659, 27.945, 0.546)
pt3dadd(111.789, 75.631, 28.029, 0.522)
pt3dadd(111.73, 75.603, 28.113, 0.5)
pt3dadd(111.671, 75.575, 28.197, 0.476)
pt3dadd(111.612, 75.547, 28.281, 0.452)
pt3dadd(111.553, 75.517, 28.364, 0.434)
pt3dadd(111.5, 75.459, 28.439, 0.526)
pt3dadd(111.446, 75.4, 28.514, 0.618)
pt3dadd(111.392, 75.341, 28.589, 0.71)
pt3dadd(111.338, 75.282, 28.663, 0.804)
pt3dadd(111.285, 75.223, 28.738, 0.896)
pt3dadd(111.231, 75.165, 28.813, 0.99)
pt3dadd(111.177, 75.106, 28.888, 1.082)
pt3dadd(111.123, 75.047, 28.962, 1.174)
pt3dadd(111.069, 74.988, 29.037, 1.268)
pt3dadd(111.014, 74.929, 29.111, 1.352)
pt3dadd(110.923, 74.87, 29.154, 1.248)
pt3dadd(110.833, 74.811, 29.197, 1.144)
pt3dadd(110.742, 74.752, 29.24, 1.042)
pt3dadd(110.651, 74.693, 29.283, 0.938)
pt3dadd(110.56, 74.634, 29.326, 0.834)
pt3dadd(110.469, 74.575, 29.369, 0.73)
pt3dadd(110.378, 74.517, 29.412, 0.628)
pt3dadd(110.288, 74.455, 29.452, 0.536)
pt3dadd(110.198, 74.383, 29.479, 0.504)
pt3dadd(110.107, 74.311, 29.507, 0.472)
pt3dadd(110.017, 74.238, 29.534, 0.44)
pt3dadd(109.927, 74.166, 29.561, 0.408)
pt3dadd(109.837, 74.094, 29.588, 0.376)
}
}
proc shape3d_174() {
dend_7[57] { pt3dadd(109.747, 74.022, 29.616, 0.346)
pt3dadd(109.657, 73.949, 29.643, 0.314)
pt3dadd(109.567, 73.877, 29.67, 0.282)
pt3dadd(109.477, 73.805, 29.697, 0.25)
pt3dadd(109.388, 73.731, 29.722, 0.23)
pt3dadd(109.301, 73.651, 29.741, 0.246)
pt3dadd(109.214, 73.572, 29.76, 0.262)
pt3dadd(109.126, 73.493, 29.778, 0.278)
pt3dadd(109.039, 73.413, 29.797, 0.294)
pt3dadd(108.952, 73.334, 29.816, 0.308)
pt3dadd(108.865, 73.254, 29.834, 0.324)
pt3dadd(108.778, 73.175, 29.853, 0.34)
pt3dadd(108.691, 73.095, 29.871, 0.356)
pt3dadd(108.604, 73.016, 29.89, 0.372)
pt3dadd(108.518, 72.936, 29.91, 0.392)
pt3dadd(108.435, 72.853, 29.933, 0.426)
pt3dadd(108.353, 72.771, 29.956, 0.458)
pt3dadd(108.27, 72.688, 29.979, 0.492)
pt3dadd(108.188, 72.605, 30.002, 0.524)
pt3dadd(108.105, 72.523, 30.026, 0.558)
pt3dadd(108.023, 72.44, 30.049, 0.59)
pt3dadd(107.94, 72.358, 30.072, 0.624)
pt3dadd(107.858, 72.275, 30.095, 0.656)
pt3dadd(107.775, 72.192, 30.119, 0.69)
pt3dadd(107.703, 72.111, 30.156, 0.716)
pt3dadd(107.646, 72.033, 30.214, 0.736)
pt3dadd(107.589, 71.954, 30.273, 0.756)
pt3dadd(107.532, 71.875, 30.332, 0.776)
pt3dadd(107.475, 71.796, 30.39, 0.796)
pt3dadd(107.418, 71.717, 30.449, 0.814)
pt3dadd(107.361, 71.639, 30.507, 0.834)
pt3dadd(107.304, 71.56, 30.566, 0.854)
pt3dadd(107.247, 71.481, 30.625, 0.874)
pt3dadd(107.19, 71.402, 30.683, 0.892)
pt3dadd(107.143, 71.321, 30.744, 0.904)
pt3dadd(107.112, 71.235, 30.809, 0.904)
pt3dadd(107.08, 71.149, 30.874, 0.904)
pt3dadd(107.049, 71.064, 30.939, 0.904)
pt3dadd(107.018, 70.978, 31.004, 0.904)
pt3dadd(106.986, 70.893, 31.069, 0.904)
pt3dadd(106.955, 70.807, 31.134, 0.904)
pt3dadd(106.923, 70.721, 31.199, 0.904)
pt3dadd(106.892, 70.636, 31.264, 0.904)
pt3dadd(106.86, 70.55, 31.329, 0.904)
pt3dadd(106.819, 70.46, 31.384, 0.89)
pt3dadd(106.765, 70.365, 31.424, 0.858)
pt3dadd(106.711, 70.269, 31.465, 0.824)
pt3dadd(106.657, 70.174, 31.505, 0.792)
pt3dadd(106.603, 70.079, 31.545, 0.758)
pt3dadd(106.548, 69.983, 31.586, 0.724)
pt3dadd(106.494, 69.888, 31.626, 0.692)
pt3dadd(106.44, 69.792, 31.667, 0.658)
pt3dadd(106.386, 69.697, 31.707, 0.626)
pt3dadd(106.332, 69.601, 31.748, 0.592)
pt3dadd(106.278, 69.502, 31.781, 0.582)
pt3dadd(106.226, 69.398, 31.806, 0.596)
pt3dadd(106.174, 69.295, 31.831, 0.61)
pt3dadd(106.122, 69.191, 31.857, 0.624)
pt3dadd(106.069, 69.087, 31.882, 0.636)
pt3dadd(106.017, 68.983, 31.907, 0.65)
pt3dadd(105.965, 68.88, 31.932, 0.664)
pt3dadd(105.913, 68.776, 31.957, 0.678)
pt3dadd(105.86, 68.672, 31.982, 0.692)
pt3dadd(105.808, 68.569, 32.008, 0.706)
pt3dadd(105.75, 68.467, 32.028, 0.716)
pt3dadd(105.687, 68.366, 32.044, 0.726)
pt3dadd(105.624, 68.266, 32.06, 0.736)
pt3dadd(105.562, 68.166, 32.076, 0.746)
pt3dadd(105.499, 68.065, 32.092, 0.754)
pt3dadd(105.436, 67.965, 32.108, 0.764)
pt3dadd(105.373, 67.864, 32.125, 0.774)
pt3dadd(105.31, 67.764, 32.141, 0.784)
pt3dadd(105.247, 67.664, 32.157, 0.792)
pt3dadd(105.184, 67.563, 32.173, 0.802)
pt3dadd(105.113, 67.472, 32.197, 0.804)
pt3dadd(105.036, 67.387, 32.226, 0.8)
pt3dadd(104.959, 67.302, 32.255, 0.796)
pt3dadd(104.882, 67.216, 32.284, 0.792)
pt3dadd(104.805, 67.131, 32.313, 0.786)
pt3dadd(104.728, 67.046, 32.342, 0.782)
pt3dadd(104.652, 66.96, 32.371, 0.778)
pt3dadd(104.575, 66.875, 32.4, 0.774)
pt3dadd(104.498, 66.79, 32.429, 0.77)
pt3dadd(104.421, 66.705, 32.458, 0.766)
pt3dadd(104.331, 66.653, 32.507, 0.768)
pt3dadd(104.24, 66.605, 32.558, 0.77)
pt3dadd(104.149, 66.557, 32.61, 0.772)
pt3dadd(104.057, 66.509, 32.661, 0.774)
pt3dadd(103.966, 66.461, 32.712, 0.776)
pt3dadd(103.875, 66.413, 32.764, 0.778)
pt3dadd(103.784, 66.365, 32.815, 0.78)
pt3dadd(103.693, 66.317, 32.866, 0.782)
pt3dadd(103.602, 66.269, 32.917, 0.784)
pt3dadd(103.508, 66.225, 32.966, 0.786)
pt3dadd(103.397, 66.202, 33, 0.774)
pt3dadd(103.287, 66.179, 33.035, 0.764)
pt3dadd(103.176, 66.156, 33.069, 0.752)
pt3dadd(103.066, 66.133, 33.103, 0.742)
pt3dadd(102.956, 66.11, 33.137, 0.73)
pt3dadd(102.845, 66.087, 33.171, 0.72)
pt3dadd(102.735, 66.064, 33.205, 0.708)
pt3dadd(102.624, 66.041, 33.239, 0.698)
pt3dadd(102.514, 66.018, 33.273, 0.688)
pt3dadd(102.405, 65.991, 33.308, 0.68)
pt3dadd(102.306, 65.946, 33.35, 0.694)
pt3dadd(102.206, 65.902, 33.392, 0.71)
pt3dadd(102.107, 65.857, 33.433, 0.724)
pt3dadd(102.007, 65.812, 33.475, 0.738)
pt3dadd(101.908, 65.767, 33.517, 0.752)
pt3dadd(101.809, 65.722, 33.559, 0.766)
pt3dadd(101.709, 65.677, 33.6, 0.782)
pt3dadd(101.61, 65.633, 33.642, 0.796)
pt3dadd(101.511, 65.588, 33.684, 0.81)
pt3dadd(101.411, 65.542, 33.724, 0.81)
pt3dadd(101.311, 65.493, 33.762, 0.79)
pt3dadd(101.211, 65.445, 33.8, 0.77)
pt3dadd(101.111, 65.397, 33.838, 0.748)
pt3dadd(101.011, 65.349, 33.876, 0.728)
pt3dadd(100.911, 65.3, 33.914, 0.708)
pt3dadd(100.811, 65.252, 33.952, 0.688)
pt3dadd(100.711, 65.204, 33.991, 0.668)
pt3dadd(100.611, 65.156, 34.029, 0.648)
pt3dadd(100.511, 65.107, 34.067, 0.628)
pt3dadd(100.405, 65.068, 34.096, 0.616)
pt3dadd(100.292, 65.036, 34.117, 0.612)
pt3dadd(100.179, 65.005, 34.139, 0.61)
pt3dadd(100.066, 64.973, 34.16, 0.606)
pt3dadd(99.953, 64.941, 34.181, 0.602)
pt3dadd(99.84, 64.91, 34.203, 0.6)
pt3dadd(99.727, 64.878, 34.224, 0.596)
pt3dadd(99.614, 64.847, 34.245, 0.594)
pt3dadd(99.502, 64.815, 34.267, 0.59)
pt3dadd(99.389, 64.784, 34.288, 0.586)
pt3dadd(99.273, 64.757, 34.304, 0.59)
pt3dadd(99.156, 64.735, 34.315, 0.6)
pt3dadd(99.039, 64.713, 34.326, 0.61)
pt3dadd(98.922, 64.69, 34.338, 0.618)
pt3dadd(98.805, 64.668, 34.349, 0.628)
pt3dadd(98.688, 64.646, 34.361, 0.636)
pt3dadd(98.571, 64.624, 34.372, 0.646)
pt3dadd(98.454, 64.601, 34.383, 0.656)
pt3dadd(98.336, 64.579, 34.395, 0.664)
pt3dadd(98.219, 64.557, 34.406, 0.674)
pt3dadd(98.103, 64.529, 34.417, 0.682)
pt3dadd(97.988, 64.497, 34.426, 0.688)
pt3dadd(97.873, 64.465, 34.436, 0.694)
pt3dadd(97.758, 64.433, 34.445, 0.702)
pt3dadd(97.643, 64.4, 34.455, 0.708)
pt3dadd(97.528, 64.368, 34.465, 0.714)
pt3dadd(97.413, 64.336, 34.474, 0.72)
pt3dadd(97.298, 64.304, 34.484, 0.726)
pt3dadd(97.183, 64.272, 34.494, 0.732)
pt3dadd(97.068, 64.24, 34.504, 0.74)
pt3dadd(96.959, 64.193, 34.516, 0.752)
pt3dadd(96.853, 64.14, 34.53, 0.768)
pt3dadd(96.746, 64.087, 34.543, 0.784)
pt3dadd(96.64, 64.033, 34.557, 0.798)
pt3dadd(96.534, 63.98, 34.571, 0.814)
pt3dadd(96.428, 63.927, 34.584, 0.83)
pt3dadd(96.321, 63.874, 34.598, 0.844)
pt3dadd(96.215, 63.821, 34.612, 0.86)
pt3dadd(96.109, 63.767, 34.625, 0.876)
pt3dadd(96.002, 63.714, 34.639, 0.892)
pt3dadd(95.899, 63.667, 34.67, 0.884)
pt3dadd(95.798, 63.622, 34.708, 0.868)
pt3dadd(95.696, 63.577, 34.746, 0.852)
pt3dadd(95.595, 63.532, 34.784, 0.834)
pt3dadd(95.493, 63.488, 34.822, 0.818)
pt3dadd(95.392, 63.443, 34.86, 0.802)
pt3dadd(95.29, 63.398, 34.898, 0.786)
pt3dadd(95.189, 63.353, 34.936, 0.77)
pt3dadd(95.087, 63.308, 34.974, 0.752)
pt3dadd(94.986, 63.263, 35.012, 0.736)
pt3dadd(94.886, 63.21, 35.046, 0.712)
pt3dadd(94.788, 63.153, 35.078, 0.686)
pt3dadd(94.689, 63.096, 35.11, 0.66)
pt3dadd(94.591, 63.039, 35.142, 0.634)
pt3dadd(94.492, 62.982, 35.174, 0.606)
pt3dadd(94.394, 62.925, 35.205, 0.58)
pt3dadd(94.295, 62.868, 35.237, 0.554)
pt3dadd(94.197, 62.812, 35.269, 0.528)
pt3dadd(94.098, 62.755, 35.301, 0.5)
pt3dadd(94, 62.698, 35.333, 0.474)
pt3dadd(93.903, 62.636, 35.362, 0.458)
pt3dadd(93.807, 62.573, 35.39, 0.444)
pt3dadd(93.71, 62.51, 35.418, 0.43)
pt3dadd(93.614, 62.447, 35.446, 0.416)
pt3dadd(93.518, 62.384, 35.474, 0.404)
pt3dadd(93.421, 62.321, 35.502, 0.39)
pt3dadd(93.325, 62.257, 35.53, 0.376)
pt3dadd(93.229, 62.194, 35.558, 0.362)
pt3dadd(93.132, 62.131, 35.586, 0.35)
pt3dadd(93.036, 62.068, 35.614, 0.336)
pt3dadd(92.94, 62.003, 35.641, 0.368)
pt3dadd(92.845, 61.937, 35.667, 0.414)
pt3dadd(92.749, 61.872, 35.692, 0.462)
pt3dadd(92.654, 61.806, 35.718, 0.508)
pt3dadd(92.558, 61.74, 35.744, 0.554)
pt3dadd(92.463, 61.674, 35.77, 0.602)
pt3dadd(92.367, 61.609, 35.795, 0.648)
}
}
proc shape3d_175() {
dend_7[57] { pt3dadd(92.272, 61.543, 35.821, 0.696)
pt3dadd(92.176, 61.477, 35.847, 0.742)
pt3dadd(92.081, 61.412, 35.873, 0.788)
pt3dadd(91.984, 61.359, 35.911, 0.79)
pt3dadd(91.886, 61.311, 35.953, 0.774)
pt3dadd(91.789, 61.262, 35.995, 0.76)
pt3dadd(91.692, 61.214, 36.038, 0.746)
pt3dadd(91.594, 61.165, 36.08, 0.73)
pt3dadd(91.497, 61.117, 36.122, 0.716)
pt3dadd(91.399, 61.068, 36.165, 0.7)
pt3dadd(91.302, 61.02, 36.207, 0.686)
pt3dadd(91.205, 60.972, 36.249, 0.672)
pt3dadd(91.107, 60.923, 36.292, 0.656)
pt3dadd(91.011, 60.885, 36.342, 0.652)
pt3dadd(90.916, 60.849, 36.395, 0.65)
pt3dadd(90.82, 60.813, 36.447, 0.646)
pt3dadd(90.725, 60.777, 36.5, 0.644)
pt3dadd(90.629, 60.741, 36.552, 0.642)
pt3dadd(90.534, 60.705, 36.605, 0.64)
pt3dadd(90.438, 60.669, 36.658, 0.638)
pt3dadd(90.342, 60.634, 36.71, 0.634)
pt3dadd(90.247, 60.598, 36.763, 0.632)
pt3dadd(90.151, 60.562, 36.815, 0.63)
pt3dadd(90.059, 60.537, 36.876, 0.672)
pt3dadd(89.967, 60.514, 36.937, 0.72)
pt3dadd(89.876, 60.491, 36.999, 0.766)
pt3dadd(89.784, 60.468, 37.06, 0.814)
pt3dadd(89.692, 60.445, 37.122, 0.862)
pt3dadd(89.6, 60.421, 37.183, 0.91)
pt3dadd(89.509, 60.398, 37.245, 0.958)
pt3dadd(89.417, 60.375, 37.306, 1.006)
pt3dadd(89.325, 60.352, 37.368, 1.052)
pt3dadd(89.233, 60.329, 37.429, 1.1)
pt3dadd(89.139, 60.288, 37.48, 1.05)
pt3dadd(89.045, 60.244, 37.53, 0.988)
pt3dadd(88.95, 60.201, 37.58, 0.924)
pt3dadd(88.855, 60.157, 37.629, 0.86)
pt3dadd(88.761, 60.113, 37.679, 0.798)
pt3dadd(88.666, 60.07, 37.729, 0.734)
pt3dadd(88.572, 60.026, 37.778, 0.67)
pt3dadd(88.477, 59.983, 37.828, 0.608)
pt3dadd(88.383, 59.939, 37.878, 0.544)
pt3dadd(88.288, 59.895, 37.928, 0.482)
pt3dadd(88.202, 59.855, 37.989, 0.452)
pt3dadd(88.117, 59.816, 38.051, 0.428)
pt3dadd(88.032, 59.776, 38.114, 0.402)
pt3dadd(87.948, 59.736, 38.176, 0.378)
pt3dadd(87.863, 59.697, 38.239, 0.352)
pt3dadd(87.778, 59.657, 38.301, 0.328)
pt3dadd(87.693, 59.617, 38.364, 0.302)
pt3dadd(87.608, 59.577, 38.426, 0.276)
pt3dadd(87.523, 59.538, 38.489, 0.252)
pt3dadd(87.438, 59.498, 38.551, 0.226)
pt3dadd(87.354, 59.469, 38.618, 0.226)
pt3dadd(87.27, 59.441, 38.685, 0.226)
pt3dadd(87.186, 59.412, 38.753, 0.226)
pt3dadd(87.102, 59.384, 38.82, 0.226)
pt3dadd(87.018, 59.355, 38.887, 0.226)
pt3dadd(86.934, 59.327, 38.954, 0.226)
pt3dadd(86.849, 59.299, 39.022, 0.226)
pt3dadd(86.765, 59.27, 39.089, 0.226)
pt3dadd(86.681, 59.242, 39.156, 0.226)
pt3dadd(86.597, 59.213, 39.223, 0.226)
pt3dadd(86.5, 59.193, 39.28, 0.226)
pt3dadd(86.403, 59.173, 39.337, 0.226)
pt3dadd(86.307, 59.153, 39.393, 0.226)
pt3dadd(86.21, 59.132, 39.45, 0.226)
pt3dadd(86.113, 59.112, 39.507, 0.226)
pt3dadd(86.016, 59.092, 39.563, 0.226)
pt3dadd(85.919, 59.072, 39.62, 0.226)
pt3dadd(85.823, 59.052, 39.677, 0.226)
pt3dadd(85.726, 59.032, 39.733, 0.226)
pt3dadd(85.628, 59.011, 39.788, 0.226)
pt3dadd(85.518, 58.988, 39.824, 0.23)
pt3dadd(85.409, 58.964, 39.86, 0.234)
pt3dadd(85.299, 58.941, 39.896, 0.238)
pt3dadd(85.19, 58.917, 39.932, 0.242)
pt3dadd(85.08, 58.893, 39.967, 0.246)
pt3dadd(84.971, 58.87, 40.004, 0.25)
pt3dadd(84.861, 58.847, 40.039, 0.254)
pt3dadd(84.752, 58.823, 40.075, 0.258)
pt3dadd(84.642, 58.8, 40.111, 0.262)
pt3dadd(84.533, 58.771, 40.144, 0.27)
pt3dadd(84.425, 58.724, 40.162, 0.286)
pt3dadd(84.317, 58.677, 40.181, 0.304)
pt3dadd(84.209, 58.629, 40.199, 0.322)
pt3dadd(84.101, 58.582, 40.217, 0.34)
pt3dadd(83.993, 58.535, 40.236, 0.358)
pt3dadd(83.885, 58.488, 40.255, 0.374)
pt3dadd(83.777, 58.441, 40.273, 0.392)
pt3dadd(83.668, 58.394, 40.292, 0.41)
pt3dadd(83.56, 58.346, 40.31, 0.428)
pt3dadd(83.451, 58.301, 40.328, 0.444)
pt3dadd(83.339, 58.263, 40.344, 0.464)
pt3dadd(83.227, 58.225, 40.359, 0.482)
pt3dadd(83.115, 58.187, 40.375, 0.5)
pt3dadd(83.002, 58.149, 40.391, 0.518)
pt3dadd(82.89, 58.111, 40.407, 0.536)
pt3dadd(82.778, 58.073, 40.422, 0.556)
pt3dadd(82.666, 58.035, 40.438, 0.574)
pt3dadd(82.553, 57.997, 40.454, 0.592)
pt3dadd(82.441, 57.959, 40.47, 0.61)
pt3dadd(82.33, 57.923, 40.49, 0.626)
pt3dadd(82.223, 57.893, 40.527, 0.632)
pt3dadd(82.116, 57.863, 40.564, 0.636)
pt3dadd(82.008, 57.833, 40.602, 0.642)
pt3dadd(81.901, 57.803, 40.639, 0.648)
pt3dadd(81.794, 57.773, 40.676, 0.652)
pt3dadd(81.687, 57.743, 40.713, 0.658)
pt3dadd(81.579, 57.713, 40.75, 0.664)
pt3dadd(81.472, 57.683, 40.788, 0.668)
pt3dadd(81.365, 57.653, 40.825, 0.674)
pt3dadd(81.259, 57.621, 40.864, 0.678)
pt3dadd(81.157, 57.586, 40.908, 0.678)
pt3dadd(81.055, 57.551, 40.952, 0.678)
pt3dadd(80.953, 57.516, 40.995, 0.678)
pt3dadd(80.851, 57.48, 41.039, 0.678)
pt3dadd(80.749, 57.445, 41.083, 0.678)
pt3dadd(80.647, 57.41, 41.127, 0.678)
pt3dadd(80.545, 57.374, 41.17, 0.678)
pt3dadd(80.443, 57.339, 41.214, 0.678)
pt3dadd(80.341, 57.304, 41.258, 0.678)
pt3dadd(80.241, 57.265, 41.301, 0.678)
pt3dadd(80.143, 57.218, 41.344, 0.68)
pt3dadd(80.045, 57.171, 41.387, 0.682)
pt3dadd(79.947, 57.125, 41.43, 0.684)
pt3dadd(79.849, 57.078, 41.472, 0.686)
pt3dadd(79.751, 57.032, 41.515, 0.688)
pt3dadd(79.653, 56.985, 41.558, 0.69)
pt3dadd(79.555, 56.938, 41.601, 0.692)
pt3dadd(79.457, 56.892, 41.644, 0.694)
pt3dadd(79.359, 56.845, 41.687, 0.696)
pt3dadd(79.264, 56.802, 41.736, 0.704)
pt3dadd(79.175, 56.766, 41.795, 0.72)
pt3dadd(79.085, 56.73, 41.853, 0.738)
pt3dadd(78.995, 56.693, 41.912, 0.754)
pt3dadd(78.905, 56.657, 41.971, 0.772)
pt3dadd(78.815, 56.62, 42.03, 0.79)
pt3dadd(78.725, 56.584, 42.089, 0.806)
pt3dadd(78.635, 56.547, 42.148, 0.824)
pt3dadd(78.545, 56.511, 42.207, 0.84)
pt3dadd(78.456, 56.475, 42.266, 0.858)
pt3dadd(78.373, 56.438, 42.331, 0.87)
pt3dadd(78.302, 56.402, 42.405, 0.874)
pt3dadd(78.232, 56.366, 42.48, 0.876)
pt3dadd(78.161, 56.329, 42.555, 0.88)
pt3dadd(78.09, 56.293, 42.63, 0.884)
pt3dadd(78.02, 56.257, 42.705, 0.888)
pt3dadd(77.949, 56.221, 42.78, 0.892)
pt3dadd(77.878, 56.184, 42.855, 0.894)
pt3dadd(77.808, 56.148, 42.93, 0.898)
pt3dadd(77.737, 56.112, 43.005, 0.902)
pt3dadd(77.665, 56.066, 43.075, 0.898)
pt3dadd(77.592, 56.008, 43.137, 0.882)
pt3dadd(77.518, 55.949, 43.2, 0.868)
pt3dadd(77.445, 55.891, 43.262, 0.854)
pt3dadd(77.371, 55.833, 43.324, 0.838)
pt3dadd(77.298, 55.774, 43.387, 0.824)
pt3dadd(77.225, 55.716, 43.449, 0.81)
pt3dadd(77.151, 55.658, 43.512, 0.796)
pt3dadd(77.078, 55.6, 43.574, 0.78)
pt3dadd(77.004, 55.541, 43.637, 0.766)
pt3dadd(76.937, 55.478, 43.7, 0.738)
pt3dadd(76.875, 55.41, 43.764, 0.702)
pt3dadd(76.812, 55.342, 43.828, 0.666)
pt3dadd(76.749, 55.275, 43.892, 0.63)
pt3dadd(76.687, 55.207, 43.956, 0.596)
pt3dadd(76.624, 55.139, 44.02, 0.56)
pt3dadd(76.562, 55.071, 44.084, 0.524)
pt3dadd(76.499, 55.004, 44.148, 0.488)
pt3dadd(76.436, 54.936, 44.212, 0.452)
pt3dadd(76.374, 54.868, 44.276, 0.416)
pt3dadd(76.311, 54.792, 44.332, 0.408)
pt3dadd(76.249, 54.71, 44.384, 0.414)
pt3dadd(76.187, 54.628, 44.435, 0.42)
pt3dadd(76.125, 54.546, 44.487, 0.426)
pt3dadd(76.063, 54.465, 44.539, 0.432)
pt3dadd(76.001, 54.383, 44.591, 0.438)
pt3dadd(75.938, 54.301, 44.642, 0.444)
pt3dadd(75.876, 54.219, 44.694, 0.452)
pt3dadd(75.814, 54.138, 44.746, 0.458)
pt3dadd(75.752, 54.056, 44.797, 0.464)
pt3dadd(75.697, 53.965, 44.844, 0.482)
pt3dadd(75.644, 53.872, 44.89, 0.504)
pt3dadd(75.591, 53.78, 44.935, 0.526)
pt3dadd(75.538, 53.687, 44.981, 0.548)
pt3dadd(75.485, 53.594, 45.026, 0.568)
pt3dadd(75.432, 53.501, 45.072, 0.59)
pt3dadd(75.379, 53.409, 45.118, 0.612)
pt3dadd(75.326, 53.316, 45.163, 0.634)
pt3dadd(75.273, 53.223, 45.209, 0.654)
pt3dadd(75.22, 53.13, 45.254, 0.676)
pt3dadd(75.184, 53.032, 45.303, 0.674)
pt3dadd(75.149, 52.934, 45.352, 0.67)
pt3dadd(75.114, 52.835, 45.401, 0.666)
pt3dadd(75.079, 52.736, 45.45, 0.66)
pt3dadd(75.044, 52.638, 45.498, 0.656)
pt3dadd(75.009, 52.539, 45.547, 0.652)
pt3dadd(74.973, 52.44, 45.596, 0.648)
pt3dadd(74.938, 52.342, 45.645, 0.642)
}
}
proc shape3d_176() {
dend_7[57] { pt3dadd(74.903, 52.243, 45.694, 0.638)
pt3dadd(74.868, 52.145, 45.743, 0.634)
pt3dadd(74.837, 52.037, 45.779, 0.616)
pt3dadd(74.806, 51.929, 45.815, 0.598)
pt3dadd(74.775, 51.821, 45.85, 0.58)
pt3dadd(74.745, 51.714, 45.886, 0.562)
pt3dadd(74.714, 51.606, 45.921, 0.544)
pt3dadd(74.683, 51.498, 45.957, 0.526)
pt3dadd(74.652, 51.39, 45.992, 0.508)
pt3dadd(74.621, 51.282, 46.028, 0.488)
pt3dadd(74.59, 51.174, 46.063, 0.47)
pt3dadd(74.559, 51.067, 46.099, 0.452)
pt3dadd(74.506, 50.965, 46.128, 0.452)
pt3dadd(74.451, 50.864, 46.158, 0.452)
pt3dadd(74.397, 50.763, 46.187, 0.452)
pt3dadd(74.343, 50.662, 46.217, 0.45)
pt3dadd(74.289, 50.561, 46.246, 0.45)
pt3dadd(74.235, 50.46, 46.276, 0.45)
pt3dadd(74.181, 50.359, 46.305, 0.45)
pt3dadd(74.127, 50.258, 46.334, 0.45)
pt3dadd(74.073, 50.157, 46.364, 0.45)
pt3dadd(74.018, 50.055, 46.393, 0.448)
pt3dadd(73.972, 49.994, 46.47, 0.426)
pt3dadd(73.926, 49.932, 46.547, 0.404)
pt3dadd(73.88, 49.871, 46.624, 0.382)
pt3dadd(73.834, 49.809, 46.701, 0.36)
pt3dadd(73.788, 49.748, 46.777, 0.338)
pt3dadd(73.742, 49.687, 46.854, 0.316)
pt3dadd(73.696, 49.625, 46.931, 0.292)
pt3dadd(73.65, 49.564, 47.008, 0.27)
pt3dadd(73.604, 49.502, 47.085, 0.248)
pt3dadd(73.558, 49.441, 47.161, 0.226)
}
dend_7[58] {pt3dclear()
pt3dadd(112.474, 76.011, 26.051, 0.678)
pt3dadd(112.535, 76.014, 26.053, 0.67)
pt3dadd(112.655, 76.021, 26.056, 0.656)
pt3dadd(112.775, 76.028, 26.06, 0.64)
pt3dadd(112.894, 76.035, 26.063, 0.626)
pt3dadd(113.014, 76.042, 26.067, 0.61)
pt3dadd(113.134, 76.049, 26.07, 0.596)
pt3dadd(113.254, 76.056, 26.073, 0.58)
pt3dadd(113.373, 76.062, 26.08, 0.564)
pt3dadd(113.493, 76.067, 26.088, 0.55)
pt3dadd(113.612, 76.072, 26.095, 0.534)
pt3dadd(113.732, 76.077, 26.103, 0.518)
pt3dadd(113.851, 76.082, 26.111, 0.502)
pt3dadd(113.971, 76.087, 26.119, 0.488)
pt3dadd(114.09, 76.092, 26.127, 0.472)
pt3dadd(114.21, 76.097, 26.135, 0.456)
pt3dadd(114.329, 76.102, 26.143, 0.442)
pt3dadd(114.449, 76.107, 26.151, 0.426)
pt3dadd(114.566, 76.106, 26.171, 0.41)
pt3dadd(114.681, 76.102, 26.198, 0.392)
pt3dadd(114.797, 76.099, 26.225, 0.376)
pt3dadd(114.912, 76.095, 26.252, 0.358)
pt3dadd(115.028, 76.092, 26.279, 0.342)
pt3dadd(115.143, 76.088, 26.306, 0.326)
pt3dadd(115.259, 76.084, 26.333, 0.308)
pt3dadd(115.374, 76.081, 26.36, 0.292)
pt3dadd(115.49, 76.077, 26.386, 0.276)
pt3dadd(115.606, 76.074, 26.413, 0.258)
pt3dadd(115.716, 76.07, 26.452, 0.25)
pt3dadd(115.823, 76.065, 26.497, 0.248)
pt3dadd(115.93, 76.061, 26.542, 0.246)
pt3dadd(116.037, 76.056, 26.587, 0.242)
pt3dadd(116.144, 76.052, 26.632, 0.24)
pt3dadd(116.251, 76.048, 26.677, 0.238)
pt3dadd(116.358, 76.043, 26.722, 0.234)
pt3dadd(116.465, 76.039, 26.767, 0.232)
pt3dadd(116.573, 76.035, 26.811, 0.23)
pt3dadd(116.68, 76.03, 26.856, 0.226)
pt3dadd(116.788, 76.023, 26.898, 0.268)
pt3dadd(116.897, 76.015, 26.939, 0.328)
pt3dadd(117.007, 76.006, 26.98, 0.386)
pt3dadd(117.116, 75.998, 27.021, 0.446)
pt3dadd(117.225, 75.99, 27.062, 0.506)
pt3dadd(117.334, 75.981, 27.103, 0.564)
pt3dadd(117.444, 75.973, 27.143, 0.624)
pt3dadd(117.553, 75.965, 27.184, 0.684)
pt3dadd(117.662, 75.957, 27.225, 0.744)
pt3dadd(117.771, 75.948, 27.266, 0.802)
pt3dadd(117.879, 75.937, 27.308, 0.844)
pt3dadd(117.987, 75.924, 27.351, 0.878)
pt3dadd(118.095, 75.911, 27.393, 0.91)
pt3dadd(118.203, 75.898, 27.436, 0.944)
pt3dadd(118.31, 75.885, 27.479, 0.978)
pt3dadd(118.418, 75.873, 27.522, 1.012)
pt3dadd(118.526, 75.86, 27.564, 1.046)
pt3dadd(118.634, 75.847, 27.607, 1.078)
pt3dadd(118.741, 75.834, 27.65, 1.112)
pt3dadd(118.849, 75.821, 27.692, 1.146)
pt3dadd(118.953, 75.804, 27.741, 1.116)
pt3dadd(119.055, 75.786, 27.791, 1.068)
pt3dadd(119.157, 75.768, 27.841, 1.018)
pt3dadd(119.259, 75.749, 27.891, 0.968)
pt3dadd(119.361, 75.731, 27.941, 0.92)
pt3dadd(119.463, 75.712, 27.992, 0.87)
pt3dadd(119.566, 75.694, 28.042, 0.82)
pt3dadd(119.668, 75.676, 28.092, 0.772)
pt3dadd(119.77, 75.657, 28.142, 0.722)
pt3dadd(119.872, 75.639, 28.192, 0.672)
pt3dadd(119.973, 75.594, 28.229, 0.636)
pt3dadd(120.073, 75.542, 28.262, 0.602)
pt3dadd(120.174, 75.49, 28.295, 0.568)
pt3dadd(120.275, 75.438, 28.328, 0.536)
pt3dadd(120.376, 75.386, 28.361, 0.502)
pt3dadd(120.476, 75.334, 28.394, 0.468)
pt3dadd(120.577, 75.282, 28.427, 0.436)
pt3dadd(120.678, 75.23, 28.46, 0.402)
pt3dadd(120.778, 75.178, 28.493, 0.368)
pt3dadd(120.878, 75.126, 28.526, 0.334)
pt3dadd(120.977, 75.077, 28.566, 0.338)
pt3dadd(121.074, 75.029, 28.609, 0.35)
pt3dadd(121.171, 74.982, 28.653, 0.364)
pt3dadd(121.268, 74.934, 28.695, 0.376)
pt3dadd(121.366, 74.887, 28.739, 0.39)
pt3dadd(121.463, 74.839, 28.782, 0.404)
pt3dadd(121.56, 74.791, 28.825, 0.416)
pt3dadd(121.657, 74.744, 28.868, 0.43)
pt3dadd(121.756, 74.696, 28.911, 0.442)
pt3dadd(121.853, 74.649, 28.954, 0.456)
pt3dadd(121.948, 74.596, 28.996, 0.472)
pt3dadd(122.044, 74.543, 29.037, 0.488)
pt3dadd(122.138, 74.489, 29.079, 0.504)
pt3dadd(122.233, 74.436, 29.12, 0.52)
pt3dadd(122.328, 74.382, 29.162, 0.536)
pt3dadd(122.424, 74.329, 29.203, 0.552)
pt3dadd(122.519, 74.275, 29.245, 0.568)
pt3dadd(122.614, 74.222, 29.286, 0.586)
pt3dadd(122.71, 74.168, 29.328, 0.602)
pt3dadd(122.804, 74.115, 29.369, 0.618)
pt3dadd(122.897, 74.048, 29.4, 0.604)
pt3dadd(122.989, 73.98, 29.43, 0.586)
pt3dadd(123.08, 73.911, 29.459, 0.57)
pt3dadd(123.173, 73.843, 29.489, 0.552)
pt3dadd(123.265, 73.775, 29.518, 0.536)
pt3dadd(123.356, 73.706, 29.548, 0.518)
pt3dadd(123.449, 73.638, 29.577, 0.5)
pt3dadd(123.541, 73.569, 29.607, 0.484)
pt3dadd(123.634, 73.501, 29.636, 0.466)
pt3dadd(123.725, 73.433, 29.666, 0.45)
pt3dadd(123.802, 73.347, 29.694, 0.428)
pt3dadd(123.876, 73.259, 29.723, 0.408)
pt3dadd(123.95, 73.172, 29.751, 0.386)
pt3dadd(124.025, 73.084, 29.78, 0.366)
pt3dadd(124.099, 72.996, 29.808, 0.344)
pt3dadd(124.174, 72.908, 29.836, 0.324)
pt3dadd(124.248, 72.821, 29.865, 0.302)
pt3dadd(124.322, 72.733, 29.893, 0.28)
pt3dadd(124.397, 72.645, 29.922, 0.26)
pt3dadd(124.471, 72.557, 29.95, 0.238)
pt3dadd(124.558, 72.499, 29.998, 0.236)
pt3dadd(124.645, 72.444, 30.049, 0.234)
pt3dadd(124.733, 72.39, 30.1, 0.234)
pt3dadd(124.82, 72.335, 30.151, 0.232)
pt3dadd(124.908, 72.281, 30.202, 0.232)
pt3dadd(124.996, 72.226, 30.253, 0.23)
pt3dadd(125.083, 72.172, 30.304, 0.23)
pt3dadd(125.171, 72.117, 30.355, 0.228)
pt3dadd(125.258, 72.062, 30.406, 0.228)
pt3dadd(125.346, 72.008, 30.457, 0.226)
pt3dadd(125.447, 71.973, 30.502, 0.262)
pt3dadd(125.55, 71.94, 30.547, 0.3)
pt3dadd(125.652, 71.907, 30.592, 0.338)
pt3dadd(125.754, 71.874, 30.636, 0.378)
pt3dadd(125.856, 71.841, 30.681, 0.416)
pt3dadd(125.958, 71.809, 30.726, 0.454)
pt3dadd(126.06, 71.776, 30.771, 0.494)
pt3dadd(126.162, 71.743, 30.815, 0.532)
pt3dadd(126.264, 71.71, 30.86, 0.57)
pt3dadd(126.366, 71.677, 30.905, 0.608)
pt3dadd(126.455, 71.646, 30.968, 0.616)
pt3dadd(126.542, 71.616, 31.032, 0.624)
pt3dadd(126.629, 71.586, 31.095, 0.63)
pt3dadd(126.716, 71.556, 31.159, 0.638)
pt3dadd(126.804, 71.526, 31.223, 0.644)
pt3dadd(126.892, 71.495, 31.287, 0.65)
pt3dadd(126.978, 71.465, 31.351, 0.658)
pt3dadd(127.066, 71.435, 31.414, 0.664)
pt3dadd(127.153, 71.405, 31.478, 0.672)
pt3dadd(127.241, 71.374, 31.542, 0.678)
pt3dadd(127.328, 71.307, 31.581, 0.678)
pt3dadd(127.416, 71.24, 31.621, 0.678)
pt3dadd(127.504, 71.173, 31.66, 0.678)
pt3dadd(127.591, 71.106, 31.7, 0.678)
pt3dadd(127.679, 71.039, 31.739, 0.678)
pt3dadd(127.765, 70.972, 31.779, 0.678)
pt3dadd(127.853, 70.905, 31.818, 0.678)
pt3dadd(127.94, 70.838, 31.858, 0.678)
pt3dadd(128.028, 70.771, 31.897, 0.678)
pt3dadd(128.116, 70.703, 31.935, 0.68)
pt3dadd(128.201, 70.624, 31.961, 0.694)
pt3dadd(128.286, 70.545, 31.988, 0.708)
pt3dadd(128.37, 70.467, 32.014, 0.722)
pt3dadd(128.455, 70.388, 32.041, 0.736)
pt3dadd(128.54, 70.309, 32.067, 0.75)
pt3dadd(128.624, 70.231, 32.094, 0.764)
pt3dadd(128.71, 70.152, 32.12, 0.778)
pt3dadd(128.795, 70.073, 32.147, 0.792)
pt3dadd(128.88, 69.995, 32.173, 0.806)
pt3dadd(128.964, 69.916, 32.201, 0.818)
}
}
proc shape3d_177() {
dend_7[58] { pt3dadd(129.046, 69.842, 32.24, 0.828)
pt3dadd(129.127, 69.767, 32.279, 0.836)
pt3dadd(129.209, 69.693, 32.318, 0.844)
pt3dadd(129.29, 69.618, 32.358, 0.854)
pt3dadd(129.372, 69.544, 32.397, 0.862)
pt3dadd(129.454, 69.469, 32.436, 0.872)
pt3dadd(129.535, 69.395, 32.475, 0.88)
pt3dadd(129.617, 69.32, 32.514, 0.888)
pt3dadd(129.698, 69.246, 32.553, 0.898)
pt3dadd(129.779, 69.173, 32.594, 0.906)
pt3dadd(129.86, 69.104, 32.64, 0.914)
pt3dadd(129.941, 69.036, 32.687, 0.922)
pt3dadd(130.022, 68.967, 32.734, 0.93)
pt3dadd(130.104, 68.899, 32.781, 0.938)
pt3dadd(130.184, 68.83, 32.827, 0.946)
pt3dadd(130.266, 68.762, 32.874, 0.954)
pt3dadd(130.346, 68.693, 32.921, 0.962)
pt3dadd(130.428, 68.625, 32.967, 0.97)
pt3dadd(130.508, 68.556, 33.014, 0.978)
pt3dadd(130.591, 68.489, 33.059, 0.988)
pt3dadd(130.679, 68.424, 33.101, 0.998)
pt3dadd(130.766, 68.359, 33.142, 1.008)
pt3dadd(130.854, 68.294, 33.184, 1.02)
pt3dadd(130.943, 68.229, 33.226, 1.03)
pt3dadd(131.03, 68.164, 33.267, 1.042)
pt3dadd(131.118, 68.099, 33.309, 1.052)
pt3dadd(131.206, 68.034, 33.351, 1.064)
pt3dadd(131.293, 67.969, 33.392, 1.074)
pt3dadd(131.381, 67.904, 33.434, 1.086)
pt3dadd(131.47, 67.847, 33.48, 1.086)
pt3dadd(131.562, 67.802, 33.532, 1.068)
pt3dadd(131.653, 67.758, 33.585, 1.052)
pt3dadd(131.746, 67.714, 33.637, 1.034)
pt3dadd(131.838, 67.67, 33.69, 1.016)
pt3dadd(131.93, 67.626, 33.743, 1)
pt3dadd(132.022, 67.582, 33.795, 0.982)
pt3dadd(132.114, 67.538, 33.848, 0.966)
pt3dadd(132.206, 67.494, 33.9, 0.948)
pt3dadd(132.298, 67.449, 33.953, 0.93)
pt3dadd(132.391, 67.399, 33.999, 0.924)
pt3dadd(132.485, 67.337, 34.033, 0.938)
pt3dadd(132.58, 67.275, 34.067, 0.952)
pt3dadd(132.674, 67.214, 34.101, 0.964)
pt3dadd(132.768, 67.152, 34.135, 0.978)
pt3dadd(132.863, 67.09, 34.17, 0.992)
pt3dadd(132.956, 67.028, 34.204, 1.004)
pt3dadd(133.051, 66.966, 34.238, 1.018)
pt3dadd(133.146, 66.904, 34.272, 1.032)
pt3dadd(133.24, 66.842, 34.306, 1.044)
pt3dadd(133.334, 66.783, 34.342, 1.046)
pt3dadd(133.428, 66.727, 34.383, 1.026)
pt3dadd(133.523, 66.671, 34.424, 1.006)
pt3dadd(133.616, 66.615, 34.465, 0.986)
pt3dadd(133.711, 66.559, 34.506, 0.966)
pt3dadd(133.805, 66.503, 34.547, 0.946)
pt3dadd(133.9, 66.447, 34.587, 0.928)
pt3dadd(133.993, 66.391, 34.628, 0.908)
pt3dadd(134.088, 66.335, 34.669, 0.888)
pt3dadd(134.182, 66.279, 34.71, 0.868)
pt3dadd(134.274, 66.222, 34.753, 0.842)
pt3dadd(134.364, 66.165, 34.798, 0.804)
pt3dadd(134.454, 66.107, 34.844, 0.768)
pt3dadd(134.544, 66.05, 34.89, 0.732)
pt3dadd(134.634, 65.992, 34.935, 0.694)
pt3dadd(134.724, 65.935, 34.981, 0.658)
pt3dadd(134.814, 65.877, 35.027, 0.622)
pt3dadd(134.904, 65.82, 35.072, 0.584)
pt3dadd(134.994, 65.762, 35.118, 0.548)
pt3dadd(135.084, 65.705, 35.163, 0.512)
pt3dadd(135.164, 65.631, 35.202, 0.506)
pt3dadd(135.239, 65.545, 35.235, 0.524)
pt3dadd(135.312, 65.459, 35.267, 0.542)
pt3dadd(135.386, 65.373, 35.3, 0.56)
pt3dadd(135.46, 65.287, 35.333, 0.578)
pt3dadd(135.534, 65.201, 35.365, 0.596)
pt3dadd(135.607, 65.115, 35.398, 0.616)
pt3dadd(135.682, 65.029, 35.431, 0.634)
pt3dadd(135.756, 64.943, 35.463, 0.652)
pt3dadd(135.829, 64.857, 35.496, 0.67)
pt3dadd(135.906, 64.771, 35.522, 0.678)
pt3dadd(135.986, 64.685, 35.544, 0.678)
pt3dadd(136.066, 64.599, 35.566, 0.678)
pt3dadd(136.145, 64.513, 35.588, 0.678)
pt3dadd(136.225, 64.427, 35.61, 0.678)
pt3dadd(136.304, 64.341, 35.632, 0.678)
pt3dadd(136.384, 64.255, 35.654, 0.678)
pt3dadd(136.463, 64.17, 35.676, 0.678)
pt3dadd(136.543, 64.084, 35.698, 0.678)
pt3dadd(136.622, 63.998, 35.72, 0.678)
pt3dadd(136.706, 63.921, 35.75, 0.678)
pt3dadd(136.794, 63.851, 35.787, 0.678)
pt3dadd(136.882, 63.781, 35.823, 0.678)
pt3dadd(136.968, 63.711, 35.859, 0.678)
pt3dadd(137.056, 63.642, 35.896, 0.678)
pt3dadd(137.143, 63.572, 35.932, 0.678)
pt3dadd(137.231, 63.502, 35.968, 0.678)
pt3dadd(137.317, 63.432, 36.005, 0.678)
pt3dadd(137.405, 63.362, 36.041, 0.678)
pt3dadd(137.492, 63.292, 36.077, 0.678)
pt3dadd(137.58, 63.221, 36.111, 0.672)
pt3dadd(137.668, 63.148, 36.142, 0.662)
pt3dadd(137.755, 63.075, 36.173, 0.654)
pt3dadd(137.843, 63.002, 36.204, 0.644)
pt3dadd(137.93, 62.929, 36.235, 0.634)
pt3dadd(138.018, 62.856, 36.266, 0.624)
pt3dadd(138.106, 62.783, 36.298, 0.616)
pt3dadd(138.193, 62.71, 36.329, 0.606)
pt3dadd(138.281, 62.637, 36.36, 0.596)
pt3dadd(138.368, 62.564, 36.391, 0.586)
pt3dadd(138.451, 62.484, 36.418, 0.584)
pt3dadd(138.533, 62.401, 36.442, 0.588)
pt3dadd(138.614, 62.317, 36.466, 0.59)
pt3dadd(138.695, 62.234, 36.491, 0.592)
pt3dadd(138.776, 62.15, 36.515, 0.594)
pt3dadd(138.858, 62.067, 36.539, 0.598)
pt3dadd(138.938, 61.984, 36.564, 0.6)
pt3dadd(139.02, 61.9, 36.588, 0.602)
pt3dadd(139.102, 61.817, 36.612, 0.604)
pt3dadd(139.182, 61.734, 36.637, 0.608)
pt3dadd(139.247, 61.636, 36.659, 0.662)
pt3dadd(139.303, 61.534, 36.679, 0.736)
pt3dadd(139.361, 61.431, 36.7, 0.81)
pt3dadd(139.418, 61.329, 36.72, 0.886)
pt3dadd(139.476, 61.227, 36.741, 0.96)
pt3dadd(139.534, 61.124, 36.762, 1.034)
pt3dadd(139.59, 61.022, 36.782, 1.108)
pt3dadd(139.648, 60.919, 36.803, 1.184)
pt3dadd(139.705, 60.817, 36.824, 1.258)
pt3dadd(139.763, 60.714, 36.844, 1.332)
pt3dadd(139.82, 60.611, 36.862, 1.316)
pt3dadd(139.878, 60.508, 36.879, 1.268)
pt3dadd(139.936, 60.405, 36.896, 1.218)
pt3dadd(139.994, 60.302, 36.913, 1.168)
pt3dadd(140.052, 60.199, 36.93, 1.118)
pt3dadd(140.11, 60.096, 36.947, 1.068)
pt3dadd(140.168, 59.993, 36.964, 1.02)
pt3dadd(140.226, 59.89, 36.981, 0.97)
pt3dadd(140.284, 59.787, 36.998, 0.92)
pt3dadd(140.342, 59.683, 37.015, 0.87)
pt3dadd(140.39, 59.581, 37.045, 0.842)
pt3dadd(140.435, 59.478, 37.081, 0.826)
pt3dadd(140.479, 59.375, 37.117, 0.808)
pt3dadd(140.524, 59.272, 37.153, 0.788)
pt3dadd(140.568, 59.169, 37.189, 0.77)
pt3dadd(140.612, 59.067, 37.225, 0.752)
pt3dadd(140.657, 58.964, 37.261, 0.734)
pt3dadd(140.701, 58.861, 37.297, 0.716)
pt3dadd(140.746, 58.758, 37.333, 0.698)
pt3dadd(140.79, 58.655, 37.369, 0.68)
pt3dadd(140.826, 58.556, 37.416, 0.67)
pt3dadd(140.86, 58.457, 37.464, 0.662)
pt3dadd(140.894, 58.358, 37.513, 0.654)
pt3dadd(140.929, 58.259, 37.561, 0.644)
pt3dadd(140.964, 58.16, 37.61, 0.636)
pt3dadd(140.998, 58.061, 37.659, 0.628)
pt3dadd(141.032, 57.962, 37.707, 0.62)
pt3dadd(141.067, 57.862, 37.756, 0.61)
pt3dadd(141.102, 57.763, 37.804, 0.602)
pt3dadd(141.136, 57.664, 37.853, 0.594)
pt3dadd(141.167, 57.569, 37.908, 0.564)
pt3dadd(141.198, 57.475, 37.964, 0.532)
pt3dadd(141.228, 57.38, 38.02, 0.502)
pt3dadd(141.258, 57.285, 38.076, 0.47)
pt3dadd(141.289, 57.191, 38.132, 0.438)
pt3dadd(141.319, 57.096, 38.188, 0.406)
pt3dadd(141.35, 57.002, 38.244, 0.376)
pt3dadd(141.38, 56.907, 38.3, 0.344)
pt3dadd(141.41, 56.813, 38.356, 0.312)
pt3dadd(141.442, 56.718, 38.412, 0.28)
pt3dadd(141.491, 56.623, 38.456, 0.296)
pt3dadd(141.544, 56.527, 38.498, 0.32)
pt3dadd(141.596, 56.432, 38.54, 0.344)
pt3dadd(141.649, 56.337, 38.582, 0.366)
pt3dadd(141.702, 56.241, 38.624, 0.39)
pt3dadd(141.755, 56.146, 38.666, 0.412)
pt3dadd(141.808, 56.051, 38.708, 0.436)
pt3dadd(141.86, 55.955, 38.75, 0.46)
pt3dadd(141.913, 55.86, 38.792, 0.482)
pt3dadd(141.966, 55.764, 38.833, 0.506)
pt3dadd(142.031, 55.672, 38.866, 0.522)
pt3dadd(142.097, 55.579, 38.898, 0.54)
pt3dadd(142.163, 55.486, 38.93, 0.558)
pt3dadd(142.228, 55.393, 38.961, 0.574)
pt3dadd(142.294, 55.301, 38.993, 0.592)
pt3dadd(142.36, 55.208, 39.025, 0.61)
pt3dadd(142.426, 55.115, 39.057, 0.626)
pt3dadd(142.492, 55.023, 39.089, 0.644)
pt3dadd(142.558, 54.93, 39.12, 0.66)
pt3dadd(142.624, 54.837, 39.152, 0.678)
pt3dadd(142.698, 54.749, 39.181, 0.678)
pt3dadd(142.772, 54.662, 39.211, 0.678)
pt3dadd(142.846, 54.574, 39.24, 0.678)
pt3dadd(142.92, 54.487, 39.27, 0.678)
pt3dadd(142.994, 54.399, 39.299, 0.678)
pt3dadd(143.069, 54.312, 39.328, 0.678)
pt3dadd(143.142, 54.224, 39.358, 0.678)
pt3dadd(143.216, 54.137, 39.387, 0.678)
pt3dadd(143.291, 54.049, 39.416, 0.678)
pt3dadd(143.364, 53.962, 39.448, 0.678)
pt3dadd(143.429, 53.889, 39.505, 0.682)
}
}
proc shape3d_178() {
dend_7[58] { pt3dadd(143.494, 53.815, 39.562, 0.684)
pt3dadd(143.56, 53.741, 39.62, 0.688)
pt3dadd(143.624, 53.667, 39.677, 0.69)
pt3dadd(143.689, 53.593, 39.734, 0.692)
pt3dadd(143.754, 53.52, 39.792, 0.696)
pt3dadd(143.819, 53.446, 39.849, 0.698)
pt3dadd(143.884, 53.372, 39.906, 0.702)
pt3dadd(143.948, 53.298, 39.963, 0.704)
pt3dadd(144.013, 53.224, 40.02, 0.708)
pt3dadd(144.077, 53.142, 40.072, 0.728)
pt3dadd(144.14, 53.061, 40.123, 0.748)
pt3dadd(144.203, 52.98, 40.175, 0.768)
pt3dadd(144.266, 52.899, 40.227, 0.788)
pt3dadd(144.33, 52.818, 40.278, 0.808)
pt3dadd(144.392, 52.737, 40.33, 0.828)
pt3dadd(144.456, 52.656, 40.382, 0.848)
pt3dadd(144.518, 52.575, 40.433, 0.868)
pt3dadd(144.582, 52.494, 40.485, 0.888)
pt3dadd(144.64, 52.415, 40.54, 0.904)
pt3dadd(144.668, 52.347, 40.619, 0.902)
pt3dadd(144.697, 52.279, 40.698, 0.9)
pt3dadd(144.726, 52.211, 40.777, 0.898)
pt3dadd(144.755, 52.143, 40.856, 0.896)
pt3dadd(144.782, 52.075, 40.935, 0.894)
pt3dadd(144.811, 52.007, 41.014, 0.892)
pt3dadd(144.84, 51.939, 41.093, 0.89)
pt3dadd(144.869, 51.871, 41.172, 0.888)
pt3dadd(144.896, 51.804, 41.251, 0.886)
pt3dadd(144.922, 51.733, 41.329, 0.882)
pt3dadd(144.925, 51.651, 41.402, 0.862)
pt3dadd(144.93, 51.569, 41.475, 0.842)
pt3dadd(144.934, 51.487, 41.547, 0.822)
pt3dadd(144.938, 51.405, 41.62, 0.804)
pt3dadd(144.943, 51.323, 41.693, 0.784)
pt3dadd(144.947, 51.241, 41.766, 0.764)
pt3dadd(144.952, 51.159, 41.839, 0.744)
pt3dadd(144.955, 51.077, 41.912, 0.726)
pt3dadd(144.96, 50.995, 41.985, 0.706)
pt3dadd(144.961, 50.91, 42.054, 0.69)
pt3dadd(144.944, 50.81, 42.109, 0.688)
pt3dadd(144.929, 50.711, 42.163, 0.688)
pt3dadd(144.913, 50.611, 42.218, 0.686)
pt3dadd(144.898, 50.512, 42.272, 0.686)
pt3dadd(144.881, 50.413, 42.327, 0.684)
pt3dadd(144.865, 50.313, 42.381, 0.682)
pt3dadd(144.85, 50.214, 42.436, 0.682)
pt3dadd(144.834, 50.115, 42.49, 0.68)
pt3dadd(144.818, 50.015, 42.545, 0.678)
pt3dadd(144.794, 49.92, 42.6, 0.678)
pt3dadd(144.742, 49.839, 42.66, 0.678)
pt3dadd(144.69, 49.758, 42.719, 0.678)
pt3dadd(144.637, 49.677, 42.778, 0.678)
pt3dadd(144.584, 49.596, 42.838, 0.678)
pt3dadd(144.533, 49.514, 42.897, 0.678)
pt3dadd(144.48, 49.433, 42.957, 0.678)
pt3dadd(144.427, 49.352, 43.016, 0.678)
pt3dadd(144.374, 49.271, 43.075, 0.678)
pt3dadd(144.323, 49.19, 43.135, 0.678)
pt3dadd(144.271, 49.104, 43.189, 0.666)
pt3dadd(144.223, 49.005, 43.229, 0.628)
pt3dadd(144.175, 48.906, 43.269, 0.588)
pt3dadd(144.127, 48.807, 43.309, 0.55)
pt3dadd(144.079, 48.709, 43.349, 0.51)
pt3dadd(144.031, 48.61, 43.389, 0.472)
pt3dadd(143.983, 48.511, 43.43, 0.434)
pt3dadd(143.935, 48.412, 43.47, 0.394)
pt3dadd(143.887, 48.313, 43.51, 0.356)
pt3dadd(143.839, 48.214, 43.55, 0.316)
pt3dadd(143.797, 48.111, 43.585, 0.29)
pt3dadd(143.764, 48.001, 43.613, 0.284)
pt3dadd(143.73, 47.89, 43.64, 0.276)
pt3dadd(143.696, 47.78, 43.668, 0.27)
pt3dadd(143.664, 47.669, 43.696, 0.264)
pt3dadd(143.63, 47.559, 43.723, 0.256)
pt3dadd(143.597, 47.448, 43.751, 0.25)
pt3dadd(143.563, 47.338, 43.778, 0.244)
pt3dadd(143.531, 47.227, 43.806, 0.236)
pt3dadd(143.497, 47.117, 43.833, 0.23)
pt3dadd(143.458, 47.008, 43.859, 0.24)
pt3dadd(143.41, 46.902, 43.883, 0.278)
pt3dadd(143.362, 46.796, 43.906, 0.316)
pt3dadd(143.312, 46.69, 43.93, 0.354)
pt3dadd(143.264, 46.584, 43.953, 0.392)
pt3dadd(143.216, 46.477, 43.977, 0.43)
pt3dadd(143.168, 46.371, 44, 0.468)
pt3dadd(143.119, 46.265, 44.024, 0.506)
pt3dadd(143.071, 46.159, 44.047, 0.542)
pt3dadd(143.023, 46.053, 44.071, 0.58)
pt3dadd(142.979, 45.958, 44.112, 0.616)
pt3dadd(142.942, 45.879, 44.181, 0.646)
pt3dadd(142.903, 45.8, 44.25, 0.676)
pt3dadd(142.866, 45.721, 44.318, 0.706)
pt3dadd(142.828, 45.643, 44.387, 0.736)
pt3dadd(142.79, 45.564, 44.455, 0.766)
pt3dadd(142.752, 45.485, 44.524, 0.796)
pt3dadd(142.715, 45.406, 44.592, 0.826)
pt3dadd(142.676, 45.327, 44.661, 0.856)
pt3dadd(142.639, 45.249, 44.729, 0.886)
pt3dadd(142.627, 45.197, 44.816, 0.908)
pt3dadd(142.626, 45.158, 44.91, 0.928)
pt3dadd(142.625, 45.119, 45.005, 0.946)
pt3dadd(142.625, 45.08, 45.099, 0.966)
pt3dadd(142.624, 45.041, 45.194, 0.984)
pt3dadd(142.624, 45.002, 45.289, 1.002)
pt3dadd(142.622, 44.963, 45.383, 1.022)
pt3dadd(142.621, 44.923, 45.478, 1.04)
pt3dadd(142.621, 44.884, 45.572, 1.06)
pt3dadd(142.62, 44.845, 45.667, 1.08)
pt3dadd(142.65, 44.786, 45.748, 1.018)
pt3dadd(142.691, 44.721, 45.825, 0.93)
pt3dadd(142.73, 44.655, 45.902, 0.842)
pt3dadd(142.77, 44.589, 45.978, 0.754)
pt3dadd(142.81, 44.524, 46.055, 0.666)
pt3dadd(142.85, 44.458, 46.132, 0.578)
pt3dadd(142.89, 44.393, 46.209, 0.49)
pt3dadd(142.93, 44.327, 46.286, 0.402)
pt3dadd(142.97, 44.262, 46.363, 0.314)
pt3dadd(143.01, 44.196, 46.44, 0.226)
pt3dadd(143.084, 44.159, 46.512, 0.226)
pt3dadd(143.159, 44.122, 46.584, 0.226)
pt3dadd(143.233, 44.085, 46.656, 0.226)
pt3dadd(143.308, 44.048, 46.728, 0.226)
pt3dadd(143.382, 44.011, 46.8, 0.226)
pt3dadd(143.455, 43.974, 46.873, 0.226)
pt3dadd(143.53, 43.936, 46.945, 0.226)
pt3dadd(143.604, 43.899, 47.017, 0.226)
pt3dadd(143.678, 43.862, 47.089, 0.226)
pt3dadd(143.753, 43.825, 47.161, 0.226)
}
dend_7[59] {pt3dclear()
pt3dadd(106.086, 80.77, 19.453, 0.226)
pt3dadd(106.043, 80.721, 19.443, 0.352)
pt3dadd(105.964, 80.633, 19.425, 0.582)
pt3dadd(105.886, 80.545, 19.408, 0.812)
pt3dadd(105.807, 80.457, 19.39, 1.042)
pt3dadd(105.729, 80.368, 19.372, 1.13)
pt3dadd(105.65, 80.28, 19.355, 1.13)
pt3dadd(105.572, 80.192, 19.337, 1.13)
pt3dadd(105.493, 80.103, 19.319, 1.13)
pt3dadd(105.415, 80.015, 19.302, 1.13)
pt3dadd(105.336, 79.927, 19.284, 1.13)
pt3dadd(105.258, 79.839, 19.266, 1.13)
pt3dadd(105.18, 79.75, 19.249, 1.13)
pt3dadd(105.101, 79.662, 19.231, 1.13)
pt3dadd(105.023, 79.574, 19.214, 1.13)
pt3dadd(104.955, 79.478, 19.193, 1.13)
pt3dadd(104.894, 79.379, 19.171, 1.13)
pt3dadd(104.832, 79.279, 19.149, 1.13)
pt3dadd(104.771, 79.179, 19.128, 1.13)
pt3dadd(104.71, 79.079, 19.106, 1.13)
pt3dadd(104.649, 78.979, 19.084, 1.13)
pt3dadd(104.587, 78.879, 19.062, 1.13)
pt3dadd(104.526, 78.78, 19.04, 1.13)
pt3dadd(104.465, 78.68, 19.018, 1.13)
pt3dadd(104.404, 78.58, 18.996, 1.13)
pt3dadd(104.39, 78.466, 18.967, 1.13)
pt3dadd(104.377, 78.352, 18.938, 1.13)
pt3dadd(104.363, 78.238, 18.91, 1.13)
pt3dadd(104.35, 78.124, 18.88, 1.13)
pt3dadd(104.336, 78.01, 18.851, 1.13)
pt3dadd(104.323, 77.896, 18.823, 1.13)
pt3dadd(104.31, 77.782, 18.793, 1.13)
pt3dadd(104.296, 77.668, 18.765, 1.13)
pt3dadd(104.283, 77.553, 18.736, 1.13)
pt3dadd(104.269, 77.439, 18.707, 1.13)
}
dend_7[60] {pt3dclear()
pt3dadd(104.269, 77.439, 18.707, 1.13)
pt3dadd(104.267, 77.423, 18.698, 1.106)
pt3dadd(104.253, 77.321, 18.646, 0.954)
pt3dadd(104.238, 77.22, 18.595, 0.802)
pt3dadd(104.224, 77.118, 18.543, 0.65)
pt3dadd(104.21, 77.016, 18.491, 0.5)
pt3dadd(104.187, 76.914, 18.442, 0.53)
pt3dadd(104.163, 76.812, 18.393, 0.584)
pt3dadd(104.139, 76.71, 18.345, 0.636)
pt3dadd(104.115, 76.608, 18.296, 0.69)
pt3dadd(104.091, 76.506, 18.247, 0.744)
pt3dadd(104.068, 76.405, 18.198, 0.796)
pt3dadd(104.044, 76.303, 18.149, 0.85)
pt3dadd(104.02, 76.201, 18.1, 0.904)
pt3dadd(103.996, 76.099, 18.051, 0.958)
pt3dadd(103.972, 75.997, 18.002, 1.01)
pt3dadd(103.929, 75.898, 17.96, 1.044)
pt3dadd(103.884, 75.799, 17.917, 1.078)
pt3dadd(103.839, 75.7, 17.875, 1.112)
pt3dadd(103.795, 75.6, 17.832, 1.144)
pt3dadd(103.75, 75.501, 17.789, 1.178)
pt3dadd(103.706, 75.402, 17.747, 1.21)
pt3dadd(103.661, 75.303, 17.704, 1.244)
pt3dadd(103.617, 75.204, 17.662, 1.278)
pt3dadd(103.572, 75.105, 17.619, 1.312)
pt3dadd(103.528, 75.006, 17.577, 1.344)
pt3dadd(103.495, 74.926, 17.507, 1.322)
pt3dadd(103.463, 74.847, 17.437, 1.302)
pt3dadd(103.43, 74.767, 17.368, 1.28)
pt3dadd(103.398, 74.687, 17.298, 1.258)
pt3dadd(103.366, 74.607, 17.228, 1.238)
pt3dadd(103.333, 74.528, 17.159, 1.216)
pt3dadd(103.301, 74.448, 17.089, 1.194)
pt3dadd(103.268, 74.368, 17.019, 1.172)
pt3dadd(103.236, 74.288, 16.95, 1.152)
pt3dadd(103.204, 74.209, 16.88, 1.13)
}
dend_7[61] {pt3dclear()
pt3dadd(103.204, 74.209, 16.88, 1.13)
}
}
proc shape3d_179() {
dend_7[61] { pt3dadd(103.202, 74.194, 16.869, 1.124)
pt3dadd(103.189, 74.103, 16.805, 1.086)
pt3dadd(103.177, 74.013, 16.74, 1.046)
pt3dadd(103.164, 73.922, 16.675, 1.008)
pt3dadd(103.151, 73.832, 16.61, 0.968)
pt3dadd(103.138, 73.741, 16.545, 0.93)
pt3dadd(103.126, 73.651, 16.48, 0.892)
pt3dadd(103.113, 73.56, 16.416, 0.852)
pt3dadd(103.1, 73.47, 16.351, 0.814)
pt3dadd(103.088, 73.379, 16.286, 0.776)
pt3dadd(103.075, 73.289, 16.221, 0.736)
pt3dadd(103.063, 73.197, 16.158, 0.702)
pt3dadd(103.064, 73.086, 16.119, 0.72)
pt3dadd(103.065, 72.976, 16.08, 0.736)
pt3dadd(103.066, 72.865, 16.041, 0.752)
pt3dadd(103.067, 72.755, 16.002, 0.77)
pt3dadd(103.068, 72.645, 15.963, 0.786)
pt3dadd(103.069, 72.534, 15.924, 0.802)
pt3dadd(103.07, 72.424, 15.885, 0.82)
pt3dadd(103.071, 72.313, 15.845, 0.836)
pt3dadd(103.072, 72.203, 15.806, 0.852)
pt3dadd(103.073, 72.091, 15.77, 0.864)
pt3dadd(103.076, 71.973, 15.754, 0.836)
pt3dadd(103.079, 71.855, 15.738, 0.808)
pt3dadd(103.083, 71.736, 15.722, 0.78)
pt3dadd(103.086, 71.618, 15.707, 0.752)
pt3dadd(103.089, 71.499, 15.691, 0.724)
pt3dadd(103.092, 71.381, 15.675, 0.696)
pt3dadd(103.095, 71.262, 15.659, 0.668)
pt3dadd(103.098, 71.144, 15.643, 0.64)
pt3dadd(103.101, 71.025, 15.627, 0.612)
pt3dadd(103.105, 70.907, 15.613, 0.592)
pt3dadd(103.112, 70.787, 15.61, 0.602)
pt3dadd(103.118, 70.667, 15.606, 0.614)
pt3dadd(103.125, 70.548, 15.602, 0.624)
pt3dadd(103.131, 70.428, 15.598, 0.636)
pt3dadd(103.138, 70.308, 15.594, 0.646)
pt3dadd(103.144, 70.188, 15.59, 0.658)
pt3dadd(103.151, 70.069, 15.587, 0.668)
pt3dadd(103.157, 69.949, 15.583, 0.68)
pt3dadd(103.164, 69.829, 15.579, 0.69)
pt3dadd(103.171, 69.71, 15.576, 0.704)
pt3dadd(103.182, 69.59, 15.576, 0.724)
pt3dadd(103.193, 69.471, 15.576, 0.744)
pt3dadd(103.204, 69.351, 15.576, 0.766)
pt3dadd(103.215, 69.231, 15.576, 0.786)
pt3dadd(103.225, 69.112, 15.577, 0.806)
pt3dadd(103.236, 68.993, 15.577, 0.826)
pt3dadd(103.247, 68.873, 15.577, 0.846)
pt3dadd(103.258, 68.754, 15.577, 0.868)
pt3dadd(103.269, 68.634, 15.577, 0.888)
pt3dadd(103.282, 68.515, 15.578, 0.904)
pt3dadd(103.306, 68.397, 15.578, 0.904)
pt3dadd(103.329, 68.279, 15.578, 0.904)
pt3dadd(103.352, 68.162, 15.579, 0.904)
pt3dadd(103.375, 68.044, 15.579, 0.904)
pt3dadd(103.398, 67.926, 15.579, 0.904)
pt3dadd(103.422, 67.808, 15.58, 0.904)
pt3dadd(103.445, 67.691, 15.58, 0.904)
pt3dadd(103.468, 67.573, 15.58, 0.904)
pt3dadd(103.491, 67.455, 15.581, 0.904)
pt3dadd(103.52, 67.339, 15.581, 0.904)
pt3dadd(103.564, 67.227, 15.582, 0.902)
pt3dadd(103.608, 67.116, 15.582, 0.902)
pt3dadd(103.651, 67.004, 15.583, 0.902)
pt3dadd(103.695, 66.892, 15.584, 0.9)
pt3dadd(103.739, 66.781, 15.584, 0.9)
pt3dadd(103.783, 66.669, 15.585, 0.898)
pt3dadd(103.827, 66.557, 15.585, 0.898)
pt3dadd(103.871, 66.445, 15.586, 0.896)
pt3dadd(103.914, 66.334, 15.586, 0.896)
pt3dadd(103.954, 66.221, 15.587, 0.89)
pt3dadd(103.983, 66.104, 15.588, 0.872)
pt3dadd(104.011, 65.988, 15.59, 0.852)
pt3dadd(104.039, 65.871, 15.591, 0.832)
pt3dadd(104.068, 65.754, 15.592, 0.814)
pt3dadd(104.096, 65.638, 15.593, 0.794)
pt3dadd(104.125, 65.521, 15.595, 0.776)
pt3dadd(104.153, 65.405, 15.596, 0.756)
pt3dadd(104.182, 65.288, 15.597, 0.738)
pt3dadd(104.21, 65.172, 15.598, 0.718)
pt3dadd(104.235, 65.054, 15.6, 0.7)
pt3dadd(104.249, 64.935, 15.602, 0.68)
pt3dadd(104.263, 64.816, 15.605, 0.66)
pt3dadd(104.277, 64.697, 15.607, 0.64)
pt3dadd(104.291, 64.578, 15.61, 0.62)
pt3dadd(104.306, 64.459, 15.612, 0.6)
pt3dadd(104.32, 64.34, 15.615, 0.58)
pt3dadd(104.334, 64.22, 15.617, 0.56)
pt3dadd(104.348, 64.101, 15.62, 0.542)
pt3dadd(104.362, 63.982, 15.622, 0.522)
pt3dadd(104.373, 63.863, 15.625, 0.51)
pt3dadd(104.373, 63.743, 15.631, 0.52)
pt3dadd(104.374, 63.623, 15.637, 0.528)
pt3dadd(104.374, 63.503, 15.642, 0.538)
pt3dadd(104.375, 63.384, 15.648, 0.548)
pt3dadd(104.376, 63.264, 15.654, 0.558)
pt3dadd(104.376, 63.144, 15.66, 0.568)
pt3dadd(104.377, 63.024, 15.665, 0.576)
pt3dadd(104.377, 62.904, 15.671, 0.586)
pt3dadd(104.378, 62.785, 15.677, 0.596)
pt3dadd(104.376, 62.665, 15.684, 0.618)
pt3dadd(104.369, 62.546, 15.694, 0.668)
pt3dadd(104.361, 62.427, 15.704, 0.716)
pt3dadd(104.353, 62.308, 15.714, 0.766)
pt3dadd(104.346, 62.188, 15.724, 0.816)
pt3dadd(104.338, 62.069, 15.734, 0.866)
pt3dadd(104.331, 61.95, 15.743, 0.916)
pt3dadd(104.323, 61.831, 15.753, 0.966)
pt3dadd(104.316, 61.712, 15.763, 1.014)
pt3dadd(104.308, 61.593, 15.773, 1.064)
pt3dadd(104.298, 61.476, 15.792, 1.08)
pt3dadd(104.281, 61.367, 15.83, 1.02)
pt3dadd(104.264, 61.257, 15.869, 0.958)
pt3dadd(104.247, 61.148, 15.907, 0.896)
pt3dadd(104.23, 61.038, 15.945, 0.836)
pt3dadd(104.213, 60.929, 15.984, 0.774)
pt3dadd(104.196, 60.819, 16.022, 0.714)
pt3dadd(104.179, 60.71, 16.06, 0.652)
pt3dadd(104.162, 60.6, 16.099, 0.592)
pt3dadd(104.145, 60.491, 16.137, 0.53)
pt3dadd(104.107, 60.385, 16.17, 0.508)
pt3dadd(104.054, 60.283, 16.198, 0.52)
pt3dadd(104.001, 60.181, 16.227, 0.53)
pt3dadd(103.948, 60.079, 16.255, 0.54)
pt3dadd(103.894, 59.977, 16.284, 0.55)
pt3dadd(103.841, 59.876, 16.312, 0.562)
pt3dadd(103.788, 59.774, 16.341, 0.572)
pt3dadd(103.735, 59.672, 16.369, 0.582)
pt3dadd(103.682, 59.57, 16.398, 0.592)
pt3dadd(103.628, 59.468, 16.426, 0.604)
pt3dadd(103.583, 59.358, 16.436, 0.612)
pt3dadd(103.541, 59.246, 16.438, 0.618)
pt3dadd(103.499, 59.133, 16.441, 0.626)
pt3dadd(103.457, 59.021, 16.444, 0.634)
pt3dadd(103.415, 58.909, 16.447, 0.64)
pt3dadd(103.373, 58.796, 16.449, 0.648)
pt3dadd(103.331, 58.684, 16.452, 0.654)
pt3dadd(103.289, 58.572, 16.455, 0.662)
pt3dadd(103.247, 58.459, 16.457, 0.67)
pt3dadd(103.205, 58.347, 16.46, 0.676)
pt3dadd(103.176, 58.243, 16.422, 0.748)
pt3dadd(103.149, 58.142, 16.373, 0.834)
pt3dadd(103.123, 58.041, 16.324, 0.922)
pt3dadd(103.097, 57.939, 16.275, 1.01)
pt3dadd(103.071, 57.838, 16.226, 1.096)
pt3dadd(103.044, 57.736, 16.177, 1.184)
pt3dadd(103.018, 57.635, 16.128, 1.272)
pt3dadd(102.992, 57.534, 16.08, 1.358)
pt3dadd(102.966, 57.432, 16.031, 1.446)
pt3dadd(102.94, 57.331, 15.982, 1.534)
pt3dadd(102.929, 57.217, 15.951, 1.412)
pt3dadd(102.919, 57.103, 15.922, 1.28)
pt3dadd(102.909, 56.989, 15.892, 1.148)
pt3dadd(102.899, 56.875, 15.862, 1.016)
pt3dadd(102.889, 56.761, 15.833, 0.884)
pt3dadd(102.879, 56.647, 15.803, 0.752)
pt3dadd(102.869, 56.532, 15.773, 0.622)
pt3dadd(102.859, 56.418, 15.744, 0.49)
pt3dadd(102.849, 56.304, 15.714, 0.358)
pt3dadd(102.839, 56.19, 15.684, 0.226)
pt3dadd(102.802, 56.077, 15.672, 0.226)
pt3dadd(102.766, 55.963, 15.659, 0.226)
pt3dadd(102.73, 55.85, 15.647, 0.226)
pt3dadd(102.693, 55.737, 15.634, 0.226)
pt3dadd(102.657, 55.623, 15.622, 0.226)
pt3dadd(102.621, 55.51, 15.609, 0.226)
pt3dadd(102.584, 55.396, 15.597, 0.226)
pt3dadd(102.548, 55.283, 15.584, 0.226)
pt3dadd(102.512, 55.17, 15.572, 0.226)
pt3dadd(102.475, 55.056, 15.559, 0.226)
}
dend_7[62] {pt3dclear()
pt3dadd(102.475, 55.056, 15.559, 0.226)
pt3dadd(102.479, 55.032, 15.559, 0.226)
pt3dadd(102.497, 54.914, 15.557, 0.226)
pt3dadd(102.515, 54.795, 15.556, 0.226)
pt3dadd(102.533, 54.677, 15.554, 0.226)
pt3dadd(102.551, 54.558, 15.553, 0.226)
pt3dadd(102.569, 54.439, 15.552, 0.226)
pt3dadd(102.587, 54.321, 15.55, 0.226)
pt3dadd(102.604, 54.202, 15.548, 0.242)
pt3dadd(102.621, 54.083, 15.546, 0.258)
pt3dadd(102.638, 53.964, 15.544, 0.276)
pt3dadd(102.655, 53.846, 15.541, 0.292)
pt3dadd(102.672, 53.727, 15.539, 0.31)
pt3dadd(102.689, 53.608, 15.537, 0.328)
pt3dadd(102.706, 53.489, 15.535, 0.344)
pt3dadd(102.723, 53.371, 15.533, 0.362)
pt3dadd(102.741, 53.252, 15.531, 0.378)
pt3dadd(102.758, 53.133, 15.529, 0.396)
pt3dadd(102.773, 53.014, 15.525, 0.422)
pt3dadd(102.788, 52.895, 15.521, 0.45)
pt3dadd(102.803, 52.776, 15.516, 0.478)
pt3dadd(102.818, 52.657, 15.512, 0.506)
pt3dadd(102.833, 52.538, 15.508, 0.534)
pt3dadd(102.848, 52.419, 15.504, 0.562)
pt3dadd(102.863, 52.301, 15.5, 0.59)
pt3dadd(102.878, 52.182, 15.496, 0.618)
pt3dadd(102.893, 52.063, 15.492, 0.646)
pt3dadd(102.908, 51.944, 15.488, 0.674)
pt3dadd(102.919, 51.825, 15.48, 0.68)
}
}
proc shape3d_180() {
dend_7[62] { pt3dadd(102.93, 51.705, 15.473, 0.682)
pt3dadd(102.941, 51.586, 15.465, 0.682)
pt3dadd(102.952, 51.467, 15.457, 0.684)
pt3dadd(102.963, 51.348, 15.449, 0.686)
pt3dadd(102.975, 51.229, 15.442, 0.688)
pt3dadd(102.986, 51.11, 15.434, 0.69)
pt3dadd(102.997, 50.991, 15.426, 0.692)
pt3dadd(103.008, 50.871, 15.418, 0.694)
pt3dadd(103.019, 50.752, 15.411, 0.694)
pt3dadd(103.019, 50.633, 15.399, 0.712)
pt3dadd(103.017, 50.514, 15.387, 0.732)
pt3dadd(103.015, 50.395, 15.374, 0.75)
pt3dadd(103.014, 50.276, 15.362, 0.77)
pt3dadd(103.012, 50.157, 15.35, 0.788)
pt3dadd(103.01, 50.038, 15.338, 0.808)
pt3dadd(103.008, 49.919, 15.326, 0.828)
pt3dadd(103.007, 49.8, 15.313, 0.846)
pt3dadd(103.005, 49.681, 15.301, 0.866)
pt3dadd(103.003, 49.561, 15.289, 0.884)
pt3dadd(102.999, 49.449, 15.256, 0.846)
pt3dadd(102.995, 49.337, 15.22, 0.798)
pt3dadd(102.991, 49.225, 15.183, 0.75)
pt3dadd(102.987, 49.113, 15.147, 0.704)
pt3dadd(102.983, 49.002, 15.111, 0.656)
pt3dadd(102.978, 48.89, 15.075, 0.61)
pt3dadd(102.974, 48.778, 15.039, 0.562)
pt3dadd(102.97, 48.666, 15.003, 0.516)
pt3dadd(102.966, 48.554, 14.967, 0.468)
pt3dadd(102.962, 48.442, 14.931, 0.422)
pt3dadd(102.957, 48.329, 14.899, 0.4)
pt3dadd(102.952, 48.214, 14.868, 0.38)
pt3dadd(102.948, 48.1, 14.838, 0.362)
pt3dadd(102.943, 47.986, 14.807, 0.342)
pt3dadd(102.938, 47.872, 14.776, 0.322)
pt3dadd(102.933, 47.758, 14.745, 0.304)
pt3dadd(102.929, 47.644, 14.714, 0.284)
pt3dadd(102.924, 47.53, 14.683, 0.266)
pt3dadd(102.919, 47.416, 14.652, 0.246)
pt3dadd(102.915, 47.302, 14.621, 0.228)
pt3dadd(102.899, 47.187, 14.598, 0.226)
pt3dadd(102.883, 47.071, 14.575, 0.226)
pt3dadd(102.867, 46.955, 14.552, 0.226)
pt3dadd(102.85, 46.84, 14.529, 0.226)
pt3dadd(102.834, 46.724, 14.506, 0.226)
pt3dadd(102.818, 46.608, 14.483, 0.226)
pt3dadd(102.801, 46.493, 14.46, 0.226)
pt3dadd(102.785, 46.377, 14.437, 0.226)
pt3dadd(102.769, 46.261, 14.414, 0.226)
pt3dadd(102.752, 46.146, 14.391, 0.226)
pt3dadd(102.731, 46.029, 14.375, 0.23)
pt3dadd(102.709, 45.913, 14.358, 0.234)
pt3dadd(102.687, 45.797, 14.341, 0.238)
pt3dadd(102.666, 45.681, 14.325, 0.24)
pt3dadd(102.644, 45.564, 14.308, 0.244)
pt3dadd(102.622, 45.448, 14.291, 0.248)
pt3dadd(102.6, 45.332, 14.274, 0.252)
pt3dadd(102.579, 45.215, 14.258, 0.256)
pt3dadd(102.557, 45.099, 14.241, 0.26)
pt3dadd(102.542, 44.982, 14.225, 0.266)
pt3dadd(102.562, 44.865, 14.213, 0.284)
pt3dadd(102.582, 44.748, 14.201, 0.304)
pt3dadd(102.602, 44.63, 14.189, 0.322)
pt3dadd(102.623, 44.513, 14.177, 0.342)
pt3dadd(102.643, 44.395, 14.165, 0.36)
pt3dadd(102.663, 44.278, 14.153, 0.38)
pt3dadd(102.683, 44.161, 14.141, 0.398)
pt3dadd(102.703, 44.043, 14.128, 0.418)
pt3dadd(102.723, 43.926, 14.116, 0.436)
pt3dadd(102.743, 43.81, 14.1, 0.452)
pt3dadd(102.762, 43.7, 14.062, 0.452)
pt3dadd(102.781, 43.591, 14.024, 0.452)
pt3dadd(102.8, 43.482, 13.986, 0.452)
pt3dadd(102.819, 43.372, 13.948, 0.452)
pt3dadd(102.838, 43.263, 13.91, 0.452)
pt3dadd(102.857, 43.153, 13.872, 0.452)
pt3dadd(102.876, 43.044, 13.835, 0.452)
pt3dadd(102.895, 42.935, 13.796, 0.452)
pt3dadd(102.914, 42.825, 13.759, 0.452)
pt3dadd(102.933, 42.715, 13.722, 0.456)
pt3dadd(102.955, 42.603, 13.692, 0.482)
pt3dadd(102.977, 42.49, 13.662, 0.508)
pt3dadd(102.998, 42.378, 13.633, 0.536)
pt3dadd(103.02, 42.265, 13.603, 0.562)
pt3dadd(103.041, 42.153, 13.573, 0.588)
pt3dadd(103.063, 42.04, 13.544, 0.614)
pt3dadd(103.085, 41.928, 13.514, 0.64)
pt3dadd(103.106, 41.815, 13.484, 0.668)
pt3dadd(103.128, 41.703, 13.455, 0.694)
pt3dadd(103.149, 41.59, 13.426, 0.716)
pt3dadd(103.17, 41.475, 13.404, 0.716)
pt3dadd(103.191, 41.36, 13.381, 0.716)
pt3dadd(103.211, 41.244, 13.359, 0.718)
pt3dadd(103.232, 41.129, 13.336, 0.718)
pt3dadd(103.252, 41.014, 13.314, 0.718)
pt3dadd(103.273, 40.899, 13.291, 0.718)
pt3dadd(103.293, 40.784, 13.269, 0.72)
pt3dadd(103.314, 40.669, 13.246, 0.72)
pt3dadd(103.334, 40.554, 13.224, 0.72)
pt3dadd(103.356, 40.439, 13.202, 0.716)
pt3dadd(103.385, 40.324, 13.186, 0.688)
pt3dadd(103.414, 40.209, 13.169, 0.662)
pt3dadd(103.442, 40.094, 13.153, 0.634)
pt3dadd(103.471, 39.979, 13.136, 0.608)
pt3dadd(103.499, 39.865, 13.12, 0.58)
pt3dadd(103.528, 39.75, 13.103, 0.552)
pt3dadd(103.557, 39.635, 13.086, 0.526)
pt3dadd(103.585, 39.52, 13.07, 0.498)
pt3dadd(103.614, 39.405, 13.053, 0.472)
pt3dadd(103.649, 39.293, 13.038, 0.452)
pt3dadd(103.703, 39.186, 13.026, 0.452)
pt3dadd(103.756, 39.079, 13.015, 0.452)
pt3dadd(103.809, 38.973, 13.003, 0.452)
pt3dadd(103.863, 38.866, 12.991, 0.452)
pt3dadd(103.916, 38.76, 12.98, 0.452)
pt3dadd(103.969, 38.653, 12.968, 0.452)
pt3dadd(104.022, 38.546, 12.957, 0.452)
pt3dadd(104.076, 38.44, 12.945, 0.452)
pt3dadd(104.129, 38.333, 12.933, 0.452)
pt3dadd(104.179, 38.228, 12.914, 0.462)
pt3dadd(104.223, 38.125, 12.877, 0.496)
pt3dadd(104.266, 38.023, 12.84, 0.53)
pt3dadd(104.309, 37.92, 12.802, 0.562)
pt3dadd(104.353, 37.818, 12.765, 0.596)
pt3dadd(104.396, 37.715, 12.728, 0.63)
pt3dadd(104.439, 37.612, 12.691, 0.664)
pt3dadd(104.483, 37.51, 12.653, 0.698)
pt3dadd(104.526, 37.407, 12.616, 0.732)
pt3dadd(104.569, 37.305, 12.579, 0.766)
pt3dadd(104.617, 37.203, 12.543, 0.786)
pt3dadd(104.674, 37.104, 12.512, 0.776)
pt3dadd(104.731, 37.005, 12.482, 0.764)
pt3dadd(104.788, 36.907, 12.451, 0.754)
pt3dadd(104.845, 36.808, 12.42, 0.744)
pt3dadd(104.902, 36.709, 12.39, 0.732)
pt3dadd(104.96, 36.61, 12.359, 0.722)
pt3dadd(105.017, 36.511, 12.329, 0.71)
pt3dadd(105.074, 36.412, 12.298, 0.7)
pt3dadd(105.131, 36.313, 12.267, 0.69)
pt3dadd(105.19, 36.214, 12.238, 0.678)
pt3dadd(105.25, 36.115, 12.213, 0.668)
pt3dadd(105.311, 36.016, 12.188, 0.656)
pt3dadd(105.372, 35.917, 12.163, 0.646)
pt3dadd(105.432, 35.818, 12.138, 0.634)
pt3dadd(105.493, 35.719, 12.113, 0.624)
pt3dadd(105.554, 35.62, 12.087, 0.612)
pt3dadd(105.614, 35.521, 12.062, 0.602)
pt3dadd(105.675, 35.422, 12.037, 0.59)
pt3dadd(105.736, 35.323, 12.012, 0.58)
pt3dadd(105.795, 35.223, 11.987, 0.58)
pt3dadd(105.853, 35.122, 11.963, 0.606)
pt3dadd(105.91, 35.021, 11.939, 0.632)
pt3dadd(105.968, 34.919, 11.916, 0.656)
pt3dadd(106.025, 34.818, 11.892, 0.682)
pt3dadd(106.082, 34.716, 11.868, 0.706)
pt3dadd(106.14, 34.615, 11.844, 0.732)
pt3dadd(106.197, 34.513, 11.82, 0.758)
pt3dadd(106.255, 34.412, 11.796, 0.782)
pt3dadd(106.312, 34.311, 11.773, 0.808)
pt3dadd(106.38, 34.221, 11.742, 0.796)
pt3dadd(106.463, 34.147, 11.704, 0.736)
pt3dadd(106.545, 34.073, 11.665, 0.678)
pt3dadd(106.627, 33.999, 11.626, 0.618)
pt3dadd(106.709, 33.925, 11.588, 0.56)
pt3dadd(106.792, 33.851, 11.549, 0.5)
pt3dadd(106.874, 33.777, 11.51, 0.44)
pt3dadd(106.956, 33.703, 11.472, 0.382)
pt3dadd(107.038, 33.629, 11.433, 0.322)
pt3dadd(107.12, 33.555, 11.394, 0.262)
pt3dadd(107.202, 33.475, 11.365, 0.238)
pt3dadd(107.284, 33.39, 11.348, 0.258)
pt3dadd(107.366, 33.305, 11.331, 0.276)
pt3dadd(107.448, 33.22, 11.313, 0.296)
pt3dadd(107.53, 33.134, 11.296, 0.314)
pt3dadd(107.612, 33.049, 11.279, 0.334)
pt3dadd(107.694, 32.964, 11.261, 0.352)
pt3dadd(107.775, 32.879, 11.244, 0.372)
pt3dadd(107.857, 32.793, 11.227, 0.39)
pt3dadd(107.939, 32.708, 11.21, 0.41)
pt3dadd(108.013, 32.616, 11.199, 0.414)
pt3dadd(108.077, 32.514, 11.196, 0.4)
pt3dadd(108.141, 32.412, 11.194, 0.386)
pt3dadd(108.204, 32.311, 11.191, 0.372)
pt3dadd(108.268, 32.209, 11.189, 0.358)
pt3dadd(108.332, 32.108, 11.186, 0.344)
pt3dadd(108.396, 32.006, 11.184, 0.33)
pt3dadd(108.459, 31.904, 11.181, 0.316)
pt3dadd(108.523, 31.803, 11.179, 0.302)
pt3dadd(108.587, 31.701, 11.176, 0.29)
pt3dadd(108.641, 31.598, 11.19, 0.28)
pt3dadd(108.686, 31.492, 11.219, 0.274)
pt3dadd(108.731, 31.386, 11.248, 0.268)
pt3dadd(108.776, 31.28, 11.277, 0.262)
pt3dadd(108.821, 31.175, 11.306, 0.256)
pt3dadd(108.865, 31.069, 11.335, 0.25)
pt3dadd(108.91, 30.963, 11.364, 0.244)
pt3dadd(108.955, 30.858, 11.393, 0.24)
pt3dadd(109, 30.752, 11.422, 0.234)
pt3dadd(109.045, 30.646, 11.451, 0.228)
pt3dadd(109.101, 30.548, 11.484, 0.226)
pt3dadd(109.162, 30.453, 11.518, 0.226)
}
}
proc shape3d_181() {
dend_7[62] { pt3dadd(109.223, 30.359, 11.553, 0.226)
pt3dadd(109.284, 30.264, 11.587, 0.226)
pt3dadd(109.345, 30.169, 11.621, 0.226)
pt3dadd(109.406, 30.074, 11.656, 0.226)
pt3dadd(109.467, 29.979, 11.69, 0.226)
pt3dadd(109.528, 29.885, 11.724, 0.226)
pt3dadd(109.589, 29.79, 11.758, 0.226)
pt3dadd(109.65, 29.695, 11.793, 0.226)
pt3dadd(109.731, 29.61, 11.813, 0.226)
pt3dadd(109.814, 29.527, 11.832, 0.226)
pt3dadd(109.896, 29.443, 11.852, 0.226)
pt3dadd(109.979, 29.359, 11.871, 0.226)
pt3dadd(110.062, 29.276, 11.89, 0.226)
pt3dadd(110.145, 29.192, 11.909, 0.226)
pt3dadd(110.228, 29.108, 11.928, 0.226)
pt3dadd(110.311, 29.025, 11.948, 0.226)
pt3dadd(110.394, 28.941, 11.967, 0.226)
pt3dadd(110.477, 28.857, 11.986, 0.226)
pt3dadd(110.558, 28.77, 11.994, 0.23)
pt3dadd(110.64, 28.682, 12.002, 0.234)
pt3dadd(110.721, 28.594, 12.01, 0.24)
pt3dadd(110.802, 28.506, 12.017, 0.244)
pt3dadd(110.883, 28.419, 12.025, 0.248)
pt3dadd(110.965, 28.331, 12.033, 0.252)
pt3dadd(111.046, 28.243, 12.041, 0.258)
pt3dadd(111.127, 28.155, 12.048, 0.262)
pt3dadd(111.208, 28.067, 12.056, 0.266)
pt3dadd(111.29, 27.98, 12.064, 0.272)
pt3dadd(111.357, 27.88, 12.064, 0.29)
pt3dadd(111.424, 27.781, 12.064, 0.308)
pt3dadd(111.491, 27.681, 12.064, 0.326)
pt3dadd(111.558, 27.582, 12.064, 0.344)
pt3dadd(111.625, 27.482, 12.064, 0.362)
pt3dadd(111.692, 27.383, 12.064, 0.38)
pt3dadd(111.759, 27.283, 12.064, 0.398)
pt3dadd(111.826, 27.184, 12.064, 0.416)
pt3dadd(111.893, 27.084, 12.064, 0.434)
pt3dadd(111.96, 26.985, 12.064, 0.452)
pt3dadd(112.033, 26.889, 12.064, 0.436)
pt3dadd(112.105, 26.793, 12.064, 0.422)
pt3dadd(112.177, 26.697, 12.064, 0.406)
pt3dadd(112.249, 26.601, 12.064, 0.39)
pt3dadd(112.321, 26.505, 12.064, 0.374)
pt3dadd(112.393, 26.409, 12.064, 0.36)
pt3dadd(112.465, 26.313, 12.064, 0.344)
pt3dadd(112.537, 26.217, 12.064, 0.328)
pt3dadd(112.61, 26.121, 12.064, 0.312)
pt3dadd(112.682, 26.026, 12.064, 0.298)
pt3dadd(112.758, 25.933, 12.064, 0.29)
pt3dadd(112.834, 25.84, 12.064, 0.282)
pt3dadd(112.91, 25.748, 12.064, 0.276)
pt3dadd(112.987, 25.655, 12.064, 0.268)
pt3dadd(113.063, 25.562, 12.064, 0.262)
pt3dadd(113.139, 25.47, 12.064, 0.254)
pt3dadd(113.215, 25.377, 12.064, 0.248)
pt3dadd(113.292, 25.284, 12.064, 0.24)
pt3dadd(113.368, 25.192, 12.064, 0.234)
pt3dadd(113.444, 25.099, 12.064, 0.226)
pt3dadd(113.524, 25.009, 12.064, 0.226)
pt3dadd(113.604, 24.92, 12.064, 0.226)
pt3dadd(113.683, 24.83, 12.064, 0.226)
pt3dadd(113.763, 24.74, 12.064, 0.226)
pt3dadd(113.843, 24.65, 12.064, 0.226)
pt3dadd(113.922, 24.561, 12.064, 0.226)
pt3dadd(114.002, 24.471, 12.064, 0.226)
pt3dadd(114.082, 24.381, 12.064, 0.226)
pt3dadd(114.161, 24.291, 12.064, 0.226)
pt3dadd(114.241, 24.202, 12.064, 0.226)
pt3dadd(114.326, 24.117, 12.064, 0.24)
pt3dadd(114.411, 24.032, 12.064, 0.254)
pt3dadd(114.495, 23.947, 12.064, 0.266)
pt3dadd(114.58, 23.862, 12.064, 0.28)
pt3dadd(114.665, 23.777, 12.064, 0.294)
pt3dadd(114.75, 23.692, 12.064, 0.308)
pt3dadd(114.834, 23.607, 12.064, 0.322)
pt3dadd(114.919, 23.522, 12.064, 0.336)
pt3dadd(115.004, 23.437, 12.064, 0.35)
pt3dadd(115.089, 23.352, 12.064, 0.362)
pt3dadd(115.174, 23.268, 12.064, 0.366)
pt3dadd(115.258, 23.183, 12.064, 0.37)
pt3dadd(115.343, 23.098, 12.064, 0.374)
pt3dadd(115.428, 23.013, 12.064, 0.378)
pt3dadd(115.513, 22.928, 12.064, 0.382)
pt3dadd(115.598, 22.844, 12.064, 0.384)
pt3dadd(115.683, 22.759, 12.064, 0.388)
pt3dadd(115.768, 22.674, 12.064, 0.392)
pt3dadd(115.853, 22.589, 12.064, 0.396)
pt3dadd(115.938, 22.504, 12.064, 0.4)
pt3dadd(116.023, 22.419, 12.064, 0.384)
pt3dadd(116.107, 22.335, 12.064, 0.37)
pt3dadd(116.192, 22.25, 12.064, 0.354)
pt3dadd(116.277, 22.165, 12.064, 0.34)
pt3dadd(116.362, 22.08, 12.064, 0.324)
pt3dadd(116.447, 21.995, 12.064, 0.31)
pt3dadd(116.532, 21.91, 12.064, 0.294)
pt3dadd(116.617, 21.825, 12.064, 0.28)
pt3dadd(116.701, 21.741, 12.064, 0.266)
pt3dadd(116.786, 21.656, 12.064, 0.25)
pt3dadd(116.871, 21.571, 12.064, 0.268)
pt3dadd(116.956, 21.486, 12.064, 0.286)
pt3dadd(117.041, 21.401, 12.064, 0.304)
pt3dadd(117.126, 21.316, 12.064, 0.322)
pt3dadd(117.21, 21.231, 12.064, 0.342)
pt3dadd(117.295, 21.147, 12.064, 0.36)
pt3dadd(117.38, 21.062, 12.064, 0.378)
pt3dadd(117.465, 20.977, 12.064, 0.396)
pt3dadd(117.55, 20.892, 12.064, 0.414)
pt3dadd(117.635, 20.807, 12.064, 0.432)
pt3dadd(117.72, 20.722, 12.064, 0.456)
pt3dadd(117.804, 20.637, 12.064, 0.482)
pt3dadd(117.889, 20.553, 12.064, 0.506)
pt3dadd(117.974, 20.468, 12.064, 0.53)
pt3dadd(118.059, 20.383, 12.064, 0.556)
pt3dadd(118.144, 20.298, 12.064, 0.58)
pt3dadd(118.229, 20.213, 12.064, 0.604)
pt3dadd(118.314, 20.128, 12.064, 0.628)
pt3dadd(118.398, 20.043, 12.064, 0.654)
pt3dadd(118.483, 19.959, 12.064, 0.678)
}
dend_7[63] {pt3dclear()
pt3dadd(102.475, 55.056, 15.559, 0.226)
pt3dadd(102.377, 54.995, 15.56, 0.226)
pt3dadd(102.275, 54.931, 15.56, 0.226)
pt3dadd(102.173, 54.868, 15.561, 0.226)
pt3dadd(102.072, 54.804, 15.562, 0.226)
pt3dadd(101.97, 54.74, 15.562, 0.226)
pt3dadd(101.868, 54.677, 15.563, 0.226)
pt3dadd(101.767, 54.613, 15.564, 0.226)
pt3dadd(101.665, 54.549, 15.564, 0.226)
pt3dadd(101.563, 54.486, 15.565, 0.226)
pt3dadd(101.462, 54.422, 15.566, 0.226)
pt3dadd(101.36, 54.358, 15.566, 0.226)
pt3dadd(101.258, 54.294, 15.567, 0.226)
pt3dadd(101.157, 54.231, 15.568, 0.226)
pt3dadd(101.055, 54.167, 15.568, 0.226)
pt3dadd(100.96, 54.095, 15.56, 0.228)
pt3dadd(100.869, 54.019, 15.548, 0.232)
pt3dadd(100.777, 53.943, 15.535, 0.236)
pt3dadd(100.685, 53.866, 15.523, 0.24)
pt3dadd(100.594, 53.79, 15.511, 0.242)
pt3dadd(100.502, 53.714, 15.499, 0.246)
pt3dadd(100.41, 53.638, 15.487, 0.25)
pt3dadd(100.319, 53.562, 15.474, 0.254)
pt3dadd(100.227, 53.486, 15.462, 0.256)
pt3dadd(100.158, 53.402, 15.435, 0.264)
pt3dadd(100.129, 53.305, 15.382, 0.278)
pt3dadd(100.1, 53.208, 15.328, 0.294)
pt3dadd(100.071, 53.111, 15.274, 0.308)
pt3dadd(100.042, 53.014, 15.221, 0.324)
pt3dadd(100.014, 52.917, 15.167, 0.338)
pt3dadd(99.985, 52.82, 15.113, 0.354)
pt3dadd(99.956, 52.723, 15.06, 0.368)
pt3dadd(99.927, 52.626, 15.006, 0.382)
pt3dadd(99.898, 52.529, 14.952, 0.398)
pt3dadd(99.862, 52.431, 14.904, 0.408)
pt3dadd(99.812, 52.333, 14.865, 0.414)
pt3dadd(99.762, 52.234, 14.826, 0.418)
pt3dadd(99.712, 52.136, 14.787, 0.422)
pt3dadd(99.662, 52.037, 14.748, 0.426)
pt3dadd(99.611, 51.939, 14.709, 0.432)
pt3dadd(99.561, 51.84, 14.67, 0.436)
pt3dadd(99.511, 51.741, 14.632, 0.44)
pt3dadd(99.461, 51.643, 14.593, 0.444)
pt3dadd(99.411, 51.545, 14.554, 0.45)
pt3dadd(99.359, 51.444, 14.52, 0.462)
pt3dadd(99.306, 51.342, 14.492, 0.482)
pt3dadd(99.252, 51.24, 14.465, 0.502)
pt3dadd(99.198, 51.138, 14.437, 0.522)
pt3dadd(99.145, 51.036, 14.41, 0.544)
pt3dadd(99.091, 50.933, 14.382, 0.564)
pt3dadd(99.038, 50.831, 14.354, 0.584)
pt3dadd(98.984, 50.729, 14.327, 0.604)
pt3dadd(98.931, 50.627, 14.299, 0.626)
pt3dadd(98.877, 50.525, 14.272, 0.646)
pt3dadd(98.82, 50.425, 14.242, 0.66)
pt3dadd(98.76, 50.329, 14.21, 0.67)
pt3dadd(98.7, 50.232, 14.179, 0.682)
pt3dadd(98.639, 50.136, 14.147, 0.692)
pt3dadd(98.579, 50.039, 14.116, 0.702)
pt3dadd(98.519, 49.943, 14.084, 0.712)
pt3dadd(98.458, 49.846, 14.052, 0.722)
pt3dadd(98.398, 49.749, 14.021, 0.732)
pt3dadd(98.338, 49.653, 13.989, 0.742)
pt3dadd(98.277, 49.556, 13.958, 0.752)
pt3dadd(98.209, 49.47, 13.92, 0.734)
pt3dadd(98.136, 49.388, 13.878, 0.704)
pt3dadd(98.063, 49.307, 13.837, 0.674)
pt3dadd(97.99, 49.225, 13.796, 0.642)
pt3dadd(97.918, 49.143, 13.755, 0.612)
pt3dadd(97.845, 49.062, 13.714, 0.582)
pt3dadd(97.772, 48.98, 13.673, 0.55)
pt3dadd(97.699, 48.898, 13.632, 0.52)
pt3dadd(97.627, 48.816, 13.59, 0.49)
pt3dadd(97.554, 48.735, 13.549, 0.46)
pt3dadd(97.491, 48.641, 13.518, 0.456)
pt3dadd(97.43, 48.543, 13.49, 0.46)
pt3dadd(97.37, 48.445, 13.462, 0.464)
pt3dadd(97.309, 48.347, 13.434, 0.468)
pt3dadd(97.248, 48.249, 13.405, 0.472)
pt3dadd(97.188, 48.151, 13.377, 0.476)
pt3dadd(97.127, 48.053, 13.349, 0.48)
pt3dadd(97.067, 47.955, 13.321, 0.486)
}
}
proc shape3d_182() {
dend_7[63] { pt3dadd(97.006, 47.857, 13.293, 0.49)
pt3dadd(96.946, 47.759, 13.265, 0.494)
pt3dadd(96.876, 47.665, 13.245, 0.51)
pt3dadd(96.803, 47.571, 13.228, 0.528)
pt3dadd(96.731, 47.478, 13.21, 0.546)
pt3dadd(96.659, 47.384, 13.193, 0.564)
pt3dadd(96.587, 47.291, 13.176, 0.582)
pt3dadd(96.514, 47.197, 13.158, 0.6)
pt3dadd(96.442, 47.104, 13.141, 0.618)
pt3dadd(96.37, 47.01, 13.124, 0.636)
pt3dadd(96.298, 46.917, 13.106, 0.654)
pt3dadd(96.225, 46.823, 13.089, 0.674)
pt3dadd(96.166, 46.721, 13.076, 0.646)
pt3dadd(96.109, 46.616, 13.065, 0.608)
pt3dadd(96.052, 46.511, 13.053, 0.57)
pt3dadd(95.995, 46.406, 13.041, 0.532)
pt3dadd(95.939, 46.301, 13.03, 0.494)
pt3dadd(95.882, 46.197, 13.018, 0.456)
pt3dadd(95.825, 46.092, 13.006, 0.416)
pt3dadd(95.768, 45.987, 12.995, 0.378)
pt3dadd(95.711, 45.882, 12.983, 0.34)
pt3dadd(95.655, 45.777, 12.971, 0.302)
pt3dadd(95.578, 45.695, 12.941, 0.302)
pt3dadd(95.496, 45.617, 12.906, 0.31)
pt3dadd(95.414, 45.54, 12.872, 0.32)
pt3dadd(95.333, 45.463, 12.837, 0.328)
pt3dadd(95.251, 45.385, 12.802, 0.336)
pt3dadd(95.169, 45.308, 12.767, 0.344)
pt3dadd(95.088, 45.231, 12.733, 0.354)
pt3dadd(95.006, 45.153, 12.698, 0.362)
pt3dadd(94.924, 45.076, 12.663, 0.37)
pt3dadd(94.843, 44.999, 12.628, 0.38)
pt3dadd(94.756, 44.923, 12.599, 0.376)
pt3dadd(94.668, 44.848, 12.571, 0.374)
pt3dadd(94.581, 44.773, 12.542, 0.37)
pt3dadd(94.494, 44.698, 12.513, 0.368)
pt3dadd(94.407, 44.623, 12.485, 0.364)
pt3dadd(94.32, 44.548, 12.456, 0.362)
pt3dadd(94.233, 44.473, 12.427, 0.358)
pt3dadd(94.146, 44.398, 12.399, 0.356)
pt3dadd(94.058, 44.323, 12.37, 0.352)
pt3dadd(93.971, 44.248, 12.342, 0.35)
pt3dadd(93.884, 44.169, 12.323, 0.338)
pt3dadd(93.797, 44.09, 12.304, 0.324)
pt3dadd(93.71, 44.011, 12.285, 0.312)
pt3dadd(93.622, 43.931, 12.267, 0.3)
pt3dadd(93.535, 43.852, 12.248, 0.288)
pt3dadd(93.448, 43.773, 12.229, 0.276)
pt3dadd(93.361, 43.693, 12.21, 0.264)
pt3dadd(93.274, 43.614, 12.191, 0.25)
pt3dadd(93.186, 43.535, 12.173, 0.238)
pt3dadd(93.099, 43.456, 12.154, 0.226)
pt3dadd(93.014, 43.372, 12.144, 0.226)
pt3dadd(92.929, 43.288, 12.134, 0.226)
pt3dadd(92.844, 43.205, 12.124, 0.226)
pt3dadd(92.758, 43.121, 12.115, 0.226)
pt3dadd(92.673, 43.037, 12.105, 0.226)
pt3dadd(92.588, 42.954, 12.095, 0.226)
pt3dadd(92.503, 42.87, 12.085, 0.226)
pt3dadd(92.417, 42.786, 12.075, 0.226)
pt3dadd(92.332, 42.703, 12.065, 0.226)
pt3dadd(92.247, 42.619, 12.055, 0.226)
pt3dadd(92.168, 42.529, 12.051, 0.25)
pt3dadd(92.089, 42.438, 12.047, 0.272)
pt3dadd(92.01, 42.348, 12.043, 0.294)
pt3dadd(91.931, 42.258, 12.039, 0.318)
pt3dadd(91.852, 42.168, 12.035, 0.34)
pt3dadd(91.773, 42.077, 12.031, 0.362)
pt3dadd(91.695, 41.987, 12.027, 0.386)
pt3dadd(91.616, 41.897, 12.023, 0.408)
pt3dadd(91.537, 41.807, 12.018, 0.43)
pt3dadd(91.458, 41.716, 12.014, 0.454)
pt3dadd(91.387, 41.62, 12.011, 0.476)
pt3dadd(91.316, 41.523, 12.007, 0.498)
pt3dadd(91.244, 41.427, 12.004, 0.522)
pt3dadd(91.173, 41.33, 12.001, 0.544)
pt3dadd(91.102, 41.234, 11.997, 0.566)
pt3dadd(91.031, 41.137, 11.994, 0.59)
pt3dadd(90.959, 41.041, 11.991, 0.612)
pt3dadd(90.888, 40.944, 11.987, 0.634)
pt3dadd(90.817, 40.848, 11.984, 0.658)
pt3dadd(90.748, 40.75, 11.98, 0.678)
pt3dadd(90.696, 40.642, 11.974, 0.678)
pt3dadd(90.643, 40.535, 11.967, 0.678)
pt3dadd(90.591, 40.427, 11.96, 0.678)
pt3dadd(90.539, 40.319, 11.954, 0.678)
pt3dadd(90.487, 40.211, 11.947, 0.678)
pt3dadd(90.435, 40.103, 11.94, 0.678)
pt3dadd(90.383, 39.996, 11.934, 0.678)
pt3dadd(90.331, 39.888, 11.927, 0.678)
pt3dadd(90.279, 39.78, 11.92, 0.678)
pt3dadd(90.226, 39.672, 11.913, 0.676)
pt3dadd(90.17, 39.567, 11.903, 0.642)
pt3dadd(90.114, 39.462, 11.892, 0.61)
pt3dadd(90.058, 39.356, 11.882, 0.578)
pt3dadd(90.002, 39.251, 11.871, 0.546)
pt3dadd(89.946, 39.146, 11.86, 0.514)
pt3dadd(89.89, 39.04, 11.85, 0.482)
pt3dadd(89.834, 38.935, 11.839, 0.45)
pt3dadd(89.778, 38.829, 11.829, 0.418)
pt3dadd(89.722, 38.724, 11.818, 0.386)
pt3dadd(89.667, 38.619, 11.806, 0.356)
pt3dadd(89.627, 38.511, 11.778, 0.342)
pt3dadd(89.586, 38.403, 11.75, 0.328)
pt3dadd(89.545, 38.295, 11.722, 0.316)
pt3dadd(89.504, 38.187, 11.695, 0.302)
pt3dadd(89.463, 38.08, 11.667, 0.29)
pt3dadd(89.422, 37.972, 11.639, 0.276)
pt3dadd(89.381, 37.864, 11.611, 0.262)
pt3dadd(89.34, 37.756, 11.583, 0.25)
pt3dadd(89.299, 37.649, 11.556, 0.236)
pt3dadd(89.262, 37.54, 11.526, 0.226)
pt3dadd(89.233, 37.431, 11.492, 0.226)
pt3dadd(89.205, 37.322, 11.458, 0.226)
pt3dadd(89.177, 37.213, 11.424, 0.226)
pt3dadd(89.148, 37.104, 11.39, 0.226)
pt3dadd(89.12, 36.995, 11.356, 0.226)
pt3dadd(89.092, 36.885, 11.321, 0.226)
pt3dadd(89.064, 36.776, 11.287, 0.226)
pt3dadd(89.035, 36.667, 11.253, 0.226)
pt3dadd(89.007, 36.558, 11.219, 0.226)
pt3dadd(88.98, 36.448, 11.187, 0.226)
pt3dadd(88.958, 36.334, 11.161, 0.226)
pt3dadd(88.935, 36.22, 11.135, 0.226)
pt3dadd(88.913, 36.107, 11.109, 0.226)
pt3dadd(88.89, 35.993, 11.083, 0.226)
pt3dadd(88.867, 35.879, 11.057, 0.226)
pt3dadd(88.845, 35.766, 11.031, 0.226)
pt3dadd(88.822, 35.652, 11.004, 0.226)
pt3dadd(88.8, 35.538, 10.978, 0.226)
pt3dadd(88.777, 35.425, 10.952, 0.226)
pt3dadd(88.755, 35.311, 10.928, 0.226)
pt3dadd(88.736, 35.194, 10.909, 0.226)
pt3dadd(88.717, 35.078, 10.889, 0.226)
pt3dadd(88.698, 34.962, 10.87, 0.226)
pt3dadd(88.679, 34.846, 10.851, 0.226)
pt3dadd(88.66, 34.73, 10.832, 0.226)
pt3dadd(88.641, 34.613, 10.812, 0.226)
pt3dadd(88.622, 34.497, 10.793, 0.226)
pt3dadd(88.603, 34.381, 10.774, 0.226)
pt3dadd(88.584, 34.265, 10.754, 0.226)
pt3dadd(88.555, 34.152, 10.737, 0.226)
pt3dadd(88.498, 34.047, 10.725, 0.226)
pt3dadd(88.44, 33.943, 10.712, 0.226)
pt3dadd(88.383, 33.838, 10.7, 0.226)
pt3dadd(88.326, 33.734, 10.688, 0.226)
pt3dadd(88.269, 33.63, 10.675, 0.226)
pt3dadd(88.211, 33.525, 10.663, 0.226)
pt3dadd(88.154, 33.421, 10.651, 0.226)
pt3dadd(88.097, 33.316, 10.639, 0.226)
pt3dadd(88.04, 33.212, 10.626, 0.226)
pt3dadd(87.982, 33.111, 10.605, 0.232)
pt3dadd(87.924, 33.021, 10.56, 0.252)
pt3dadd(87.866, 32.931, 10.516, 0.27)
pt3dadd(87.809, 32.841, 10.471, 0.29)
pt3dadd(87.751, 32.75, 10.426, 0.31)
pt3dadd(87.693, 32.66, 10.381, 0.33)
pt3dadd(87.635, 32.57, 10.336, 0.35)
pt3dadd(87.577, 32.479, 10.291, 0.37)
pt3dadd(87.519, 32.389, 10.246, 0.39)
pt3dadd(87.461, 32.299, 10.201, 0.41)
pt3dadd(87.399, 32.209, 10.161, 0.422)
pt3dadd(87.33, 32.119, 10.129, 0.426)
pt3dadd(87.261, 32.028, 10.096, 0.428)
pt3dadd(87.192, 31.938, 10.064, 0.432)
pt3dadd(87.123, 31.848, 10.032, 0.436)
pt3dadd(87.054, 31.758, 10, 0.438)
pt3dadd(86.985, 31.668, 9.968, 0.442)
pt3dadd(86.916, 31.578, 9.936, 0.444)
pt3dadd(86.846, 31.487, 9.903, 0.448)
pt3dadd(86.777, 31.397, 9.871, 0.45)
pt3dadd(86.715, 31.301, 9.843, 0.458)
pt3dadd(86.661, 31.198, 9.819, 0.476)
pt3dadd(86.607, 31.094, 9.796, 0.492)
pt3dadd(86.553, 30.99, 9.773, 0.508)
pt3dadd(86.5, 30.887, 9.75, 0.524)
pt3dadd(86.446, 30.783, 9.727, 0.54)
pt3dadd(86.392, 30.68, 9.703, 0.556)
pt3dadd(86.339, 30.576, 9.68, 0.572)
pt3dadd(86.285, 30.472, 9.657, 0.588)
pt3dadd(86.231, 30.369, 9.634, 0.606)
pt3dadd(86.182, 30.262, 9.614, 0.602)
pt3dadd(86.138, 30.152, 9.597, 0.58)
pt3dadd(86.094, 30.042, 9.58, 0.558)
pt3dadd(86.05, 29.933, 9.564, 0.536)
pt3dadd(86.006, 29.823, 9.547, 0.512)
pt3dadd(85.962, 29.713, 9.53, 0.49)
pt3dadd(85.918, 29.603, 9.514, 0.468)
pt3dadd(85.874, 29.493, 9.497, 0.444)
pt3dadd(85.83, 29.384, 9.48, 0.422)
pt3dadd(85.785, 29.274, 9.464, 0.4)
pt3dadd(85.731, 29.174, 9.437, 0.38)
pt3dadd(85.665, 29.083, 9.401, 0.364)
pt3dadd(85.599, 28.993, 9.365, 0.346)
pt3dadd(85.533, 28.903, 9.328, 0.33)
pt3dadd(85.467, 28.813, 9.292, 0.312)
pt3dadd(85.401, 28.722, 9.256, 0.296)
pt3dadd(85.335, 28.632, 9.219, 0.28)
pt3dadd(85.269, 28.542, 9.183, 0.262)
pt3dadd(85.203, 28.452, 9.147, 0.246)
}
}
proc shape3d_183() {
dend_7[63] { pt3dadd(85.137, 28.361, 9.11, 0.228)
pt3dadd(85.056, 28.287, 9.071, 0.226)
pt3dadd(84.974, 28.214, 9.031, 0.226)
pt3dadd(84.891, 28.142, 8.99, 0.226)
pt3dadd(84.808, 28.07, 8.95, 0.226)
pt3dadd(84.725, 27.998, 8.91, 0.226)
pt3dadd(84.642, 27.926, 8.87, 0.226)
pt3dadd(84.559, 27.854, 8.829, 0.226)
pt3dadd(84.476, 27.782, 8.789, 0.226)
pt3dadd(84.393, 27.71, 8.749, 0.226)
pt3dadd(84.311, 27.638, 8.708, 0.226)
pt3dadd(84.223, 27.565, 8.677, 0.226)
pt3dadd(84.136, 27.492, 8.646, 0.226)
pt3dadd(84.048, 27.419, 8.615, 0.226)
pt3dadd(83.96, 27.345, 8.584, 0.226)
pt3dadd(83.873, 27.272, 8.553, 0.226)
pt3dadd(83.785, 27.199, 8.522, 0.226)
pt3dadd(83.697, 27.126, 8.491, 0.226)
pt3dadd(83.61, 27.053, 8.461, 0.226)
pt3dadd(83.522, 26.98, 8.43, 0.226)
pt3dadd(83.434, 26.907, 8.399, 0.226)
pt3dadd(83.347, 26.832, 8.37, 0.226)
pt3dadd(83.26, 26.757, 8.341, 0.226)
pt3dadd(83.173, 26.682, 8.313, 0.226)
pt3dadd(83.086, 26.607, 8.284, 0.226)
pt3dadd(82.999, 26.532, 8.255, 0.226)
pt3dadd(82.912, 26.457, 8.226, 0.226)
pt3dadd(82.825, 26.382, 8.198, 0.226)
pt3dadd(82.738, 26.307, 8.169, 0.226)
pt3dadd(82.651, 26.232, 8.141, 0.226)
pt3dadd(82.564, 26.156, 8.112, 0.226)
pt3dadd(82.505, 26.098, 8.039, 0.226)
pt3dadd(82.447, 26.04, 7.966, 0.226)
pt3dadd(82.389, 25.982, 7.893, 0.226)
pt3dadd(82.331, 25.924, 7.821, 0.226)
pt3dadd(82.273, 25.865, 7.748, 0.226)
pt3dadd(82.214, 25.807, 7.675, 0.226)
pt3dadd(82.156, 25.749, 7.602, 0.226)
pt3dadd(82.098, 25.691, 7.53, 0.226)
pt3dadd(82.04, 25.632, 7.457, 0.226)
pt3dadd(81.982, 25.574, 7.384, 0.226)
}
dend_7[64] {pt3dclear()
pt3dadd(103.204, 74.209, 16.88, 1.13)
pt3dadd(103.098, 74.242, 16.871, 1.068)
pt3dadd(102.984, 74.279, 16.861, 1.004)
pt3dadd(102.87, 74.315, 16.851, 0.938)
pt3dadd(102.757, 74.352, 16.841, 0.872)
pt3dadd(102.643, 74.388, 16.831, 0.806)
pt3dadd(102.529, 74.425, 16.821, 0.742)
pt3dadd(102.416, 74.461, 16.812, 0.676)
pt3dadd(102.297, 74.471, 16.809, 0.642)
pt3dadd(102.177, 74.475, 16.809, 0.616)
pt3dadd(102.057, 74.48, 16.808, 0.588)
pt3dadd(101.937, 74.485, 16.807, 0.562)
pt3dadd(101.817, 74.49, 16.807, 0.534)
pt3dadd(101.697, 74.495, 16.806, 0.508)
pt3dadd(101.577, 74.499, 16.805, 0.48)
pt3dadd(101.457, 74.504, 16.805, 0.454)
pt3dadd(101.337, 74.509, 16.804, 0.426)
pt3dadd(101.231, 74.466, 16.817, 0.462)
pt3dadd(101.13, 74.405, 16.835, 0.52)
pt3dadd(101.029, 74.344, 16.854, 0.578)
pt3dadd(100.928, 74.283, 16.872, 0.636)
pt3dadd(100.827, 74.222, 16.89, 0.696)
pt3dadd(100.726, 74.161, 16.908, 0.754)
pt3dadd(100.625, 74.1, 16.927, 0.812)
pt3dadd(100.524, 74.04, 16.945, 0.87)
pt3dadd(100.423, 73.979, 16.963, 0.93)
pt3dadd(100.322, 73.918, 16.982, 0.988)
pt3dadd(100.218, 73.872, 17.012, 1.002)
pt3dadd(100.113, 73.833, 17.047, 1)
pt3dadd(100.008, 73.794, 17.083, 0.998)
pt3dadd(99.902, 73.754, 17.118, 0.996)
pt3dadd(99.797, 73.715, 17.153, 0.992)
pt3dadd(99.692, 73.676, 17.188, 0.99)
pt3dadd(99.587, 73.636, 17.223, 0.988)
pt3dadd(99.482, 73.597, 17.259, 0.986)
pt3dadd(99.376, 73.558, 17.294, 0.984)
pt3dadd(99.271, 73.518, 17.329, 0.98)
pt3dadd(99.161, 73.49, 17.36, 0.966)
pt3dadd(99.05, 73.463, 17.39, 0.946)
pt3dadd(98.938, 73.437, 17.42, 0.928)
pt3dadd(98.827, 73.411, 17.451, 0.908)
pt3dadd(98.715, 73.384, 17.481, 0.89)
pt3dadd(98.604, 73.358, 17.511, 0.872)
pt3dadd(98.493, 73.332, 17.541, 0.852)
pt3dadd(98.381, 73.306, 17.571, 0.834)
pt3dadd(98.27, 73.279, 17.601, 0.814)
pt3dadd(98.159, 73.253, 17.631, 0.796)
pt3dadd(98.043, 73.233, 17.652, 0.796)
pt3dadd(97.927, 73.213, 17.671, 0.798)
pt3dadd(97.811, 73.194, 17.69, 0.802)
pt3dadd(97.694, 73.175, 17.708, 0.804)
pt3dadd(97.578, 73.155, 17.727, 0.806)
pt3dadd(97.462, 73.136, 17.746, 0.81)
pt3dadd(97.346, 73.117, 17.765, 0.812)
pt3dadd(97.229, 73.097, 17.784, 0.814)
pt3dadd(97.113, 73.078, 17.803, 0.818)
pt3dadd(96.997, 73.059, 17.822, 0.82)
pt3dadd(96.88, 73.037, 17.832, 0.844)
pt3dadd(96.762, 73.016, 17.841, 0.872)
pt3dadd(96.645, 72.994, 17.85, 0.9)
pt3dadd(96.527, 72.972, 17.859, 0.928)
pt3dadd(96.409, 72.951, 17.868, 0.956)
pt3dadd(96.292, 72.929, 17.877, 0.984)
pt3dadd(96.174, 72.907, 17.886, 1.012)
pt3dadd(96.057, 72.886, 17.895, 1.04)
pt3dadd(95.939, 72.864, 17.904, 1.068)
pt3dadd(95.822, 72.843, 17.913, 1.096)
pt3dadd(95.711, 72.797, 17.913, 1.08)
pt3dadd(95.601, 72.749, 17.913, 1.062)
pt3dadd(95.491, 72.702, 17.913, 1.044)
pt3dadd(95.38, 72.654, 17.913, 1.026)
pt3dadd(95.27, 72.607, 17.913, 1.01)
pt3dadd(95.16, 72.559, 17.913, 0.992)
pt3dadd(95.05, 72.512, 17.913, 0.974)
pt3dadd(94.939, 72.464, 17.913, 0.956)
pt3dadd(94.829, 72.417, 17.913, 0.938)
pt3dadd(94.719, 72.37, 17.913, 0.92)
pt3dadd(94.605, 72.331, 17.913, 0.934)
pt3dadd(94.491, 72.294, 17.913, 0.95)
pt3dadd(94.377, 72.256, 17.913, 0.964)
pt3dadd(94.263, 72.219, 17.913, 0.98)
pt3dadd(94.149, 72.181, 17.913, 0.994)
pt3dadd(94.036, 72.143, 17.913, 1.01)
pt3dadd(93.922, 72.106, 17.913, 1.026)
pt3dadd(93.808, 72.068, 17.913, 1.04)
pt3dadd(93.694, 72.03, 17.913, 1.056)
pt3dadd(93.58, 71.993, 17.913, 1.072)
pt3dadd(93.464, 71.962, 17.913, 1.04)
pt3dadd(93.348, 71.932, 17.913, 1.008)
pt3dadd(93.232, 71.901, 17.913, 0.976)
pt3dadd(93.115, 71.871, 17.913, 0.942)
pt3dadd(92.999, 71.841, 17.913, 0.91)
pt3dadd(92.883, 71.81, 17.913, 0.876)
pt3dadd(92.767, 71.78, 17.913, 0.844)
pt3dadd(92.651, 71.75, 17.913, 0.812)
pt3dadd(92.535, 71.719, 17.913, 0.778)
pt3dadd(92.419, 71.689, 17.913, 0.746)
pt3dadd(92.304, 71.653, 17.913, 0.732)
pt3dadd(92.19, 71.616, 17.913, 0.72)
pt3dadd(92.076, 71.58, 17.913, 0.708)
pt3dadd(91.962, 71.543, 17.913, 0.696)
pt3dadd(91.847, 71.506, 17.913, 0.684)
pt3dadd(91.733, 71.47, 17.913, 0.672)
pt3dadd(91.619, 71.433, 17.913, 0.66)
pt3dadd(91.504, 71.397, 17.913, 0.648)
pt3dadd(91.39, 71.36, 17.912, 0.636)
pt3dadd(91.276, 71.324, 17.912, 0.624)
pt3dadd(91.164, 71.281, 17.912, 0.648)
pt3dadd(91.052, 71.237, 17.912, 0.672)
pt3dadd(90.94, 71.194, 17.912, 0.696)
pt3dadd(90.828, 71.151, 17.912, 0.72)
pt3dadd(90.716, 71.108, 17.912, 0.744)
pt3dadd(90.604, 71.065, 17.912, 0.768)
pt3dadd(90.492, 71.021, 17.912, 0.792)
pt3dadd(90.38, 70.978, 17.912, 0.816)
pt3dadd(90.268, 70.935, 17.912, 0.84)
pt3dadd(90.156, 70.892, 17.911, 0.864)
pt3dadd(90.041, 70.86, 17.911, 0.846)
pt3dadd(89.925, 70.827, 17.911, 0.826)
pt3dadd(89.809, 70.795, 17.911, 0.808)
pt3dadd(89.694, 70.763, 17.911, 0.79)
pt3dadd(89.578, 70.731, 17.911, 0.772)
pt3dadd(89.463, 70.698, 17.91, 0.752)
pt3dadd(89.347, 70.666, 17.91, 0.734)
pt3dadd(89.232, 70.634, 17.91, 0.716)
pt3dadd(89.116, 70.602, 17.91, 0.696)
pt3dadd(89, 70.569, 17.91, 0.678)
}
dend_7[65] {pt3dclear()
pt3dadd(89, 70.569, 17.91, 0.678)
pt3dadd(88.944, 70.559, 17.91, 0.66)
pt3dadd(88.826, 70.536, 17.909, 0.622)
pt3dadd(88.709, 70.514, 17.909, 0.584)
pt3dadd(88.591, 70.492, 17.909, 0.546)
pt3dadd(88.473, 70.47, 17.908, 0.51)
pt3dadd(88.355, 70.447, 17.908, 0.472)
pt3dadd(88.237, 70.425, 17.907, 0.434)
pt3dadd(88.119, 70.403, 17.907, 0.398)
pt3dadd(88.001, 70.381, 17.907, 0.36)
pt3dadd(87.883, 70.359, 17.906, 0.322)
pt3dadd(87.765, 70.336, 17.906, 0.284)
pt3dadd(87.647, 70.314, 17.906, 0.248)
pt3dadd(87.529, 70.294, 17.905, 0.226)
pt3dadd(87.41, 70.279, 17.904, 0.226)
pt3dadd(87.291, 70.263, 17.904, 0.226)
pt3dadd(87.172, 70.247, 17.903, 0.226)
pt3dadd(87.053, 70.231, 17.902, 0.226)
pt3dadd(86.934, 70.215, 17.901, 0.226)
pt3dadd(86.815, 70.199, 17.901, 0.226)
pt3dadd(86.696, 70.183, 17.9, 0.226)
pt3dadd(86.577, 70.167, 17.899, 0.226)
pt3dadd(86.458, 70.151, 17.898, 0.226)
pt3dadd(86.342, 70.124, 17.897, 0.244)
pt3dadd(86.23, 70.081, 17.896, 0.29)
pt3dadd(86.118, 70.038, 17.894, 0.334)
pt3dadd(86.006, 69.995, 17.893, 0.378)
pt3dadd(85.894, 69.952, 17.891, 0.424)
pt3dadd(85.782, 69.91, 17.89, 0.468)
pt3dadd(85.67, 69.867, 17.888, 0.512)
pt3dadd(85.558, 69.824, 17.887, 0.558)
pt3dadd(85.446, 69.781, 17.885, 0.602)
}
}
proc shape3d_184() {
dend_7[65] { pt3dadd(85.334, 69.738, 17.884, 0.646)
pt3dadd(85.222, 69.696, 17.882, 0.676)
pt3dadd(85.109, 69.653, 17.879, 0.69)
pt3dadd(84.997, 69.611, 17.877, 0.702)
pt3dadd(84.885, 69.569, 17.874, 0.716)
pt3dadd(84.773, 69.527, 17.872, 0.728)
pt3dadd(84.66, 69.484, 17.869, 0.742)
pt3dadd(84.548, 69.442, 17.867, 0.756)
pt3dadd(84.436, 69.4, 17.864, 0.768)
pt3dadd(84.324, 69.358, 17.861, 0.782)
pt3dadd(84.211, 69.315, 17.859, 0.794)
pt3dadd(84.098, 69.276, 17.855, 0.792)
pt3dadd(83.983, 69.241, 17.85, 0.774)
pt3dadd(83.869, 69.206, 17.845, 0.756)
pt3dadd(83.754, 69.171, 17.84, 0.738)
pt3dadd(83.64, 69.136, 17.835, 0.718)
pt3dadd(83.525, 69.101, 17.83, 0.7)
pt3dadd(83.41, 69.066, 17.826, 0.682)
pt3dadd(83.296, 69.03, 17.821, 0.664)
pt3dadd(83.181, 68.995, 17.816, 0.646)
pt3dadd(83.067, 68.96, 17.811, 0.626)
pt3dadd(82.952, 68.926, 17.804, 0.612)
pt3dadd(82.837, 68.894, 17.795, 0.598)
pt3dadd(82.722, 68.862, 17.786, 0.586)
pt3dadd(82.606, 68.83, 17.778, 0.574)
pt3dadd(82.491, 68.798, 17.769, 0.56)
pt3dadd(82.376, 68.766, 17.76, 0.548)
pt3dadd(82.261, 68.733, 17.751, 0.536)
pt3dadd(82.146, 68.701, 17.742, 0.522)
pt3dadd(82.031, 68.669, 17.734, 0.51)
pt3dadd(81.915, 68.637, 17.725, 0.498)
pt3dadd(81.804, 68.595, 17.714, 0.508)
pt3dadd(81.697, 68.545, 17.701, 0.544)
pt3dadd(81.589, 68.494, 17.688, 0.578)
pt3dadd(81.482, 68.443, 17.674, 0.612)
pt3dadd(81.374, 68.392, 17.661, 0.648)
pt3dadd(81.266, 68.342, 17.648, 0.682)
pt3dadd(81.159, 68.291, 17.635, 0.716)
pt3dadd(81.051, 68.24, 17.622, 0.752)
pt3dadd(80.944, 68.189, 17.609, 0.786)
pt3dadd(80.836, 68.138, 17.596, 0.82)
pt3dadd(80.73, 68.093, 17.571, 0.834)
pt3dadd(80.625, 68.053, 17.535, 0.828)
pt3dadd(80.521, 68.012, 17.5, 0.82)
pt3dadd(80.416, 67.972, 17.464, 0.814)
pt3dadd(80.312, 67.931, 17.428, 0.806)
pt3dadd(80.207, 67.891, 17.393, 0.8)
pt3dadd(80.102, 67.851, 17.357, 0.794)
pt3dadd(79.998, 67.81, 17.322, 0.786)
pt3dadd(79.893, 67.77, 17.286, 0.78)
pt3dadd(79.789, 67.73, 17.25, 0.772)
pt3dadd(79.685, 67.687, 17.214, 0.764)
pt3dadd(79.583, 67.643, 17.178, 0.756)
pt3dadd(79.48, 67.598, 17.141, 0.746)
pt3dadd(79.377, 67.554, 17.104, 0.736)
pt3dadd(79.275, 67.51, 17.068, 0.728)
pt3dadd(79.172, 67.466, 17.031, 0.718)
pt3dadd(79.07, 67.421, 16.995, 0.71)
pt3dadd(78.967, 67.377, 16.958, 0.7)
pt3dadd(78.865, 67.333, 16.922, 0.69)
pt3dadd(78.762, 67.289, 16.885, 0.682)
pt3dadd(78.66, 67.24, 16.851, 0.676)
pt3dadd(78.559, 67.19, 16.819, 0.674)
pt3dadd(78.457, 67.139, 16.787, 0.672)
pt3dadd(78.355, 67.088, 16.755, 0.67)
pt3dadd(78.254, 67.037, 16.723, 0.668)
pt3dadd(78.152, 66.986, 16.691, 0.666)
pt3dadd(78.05, 66.936, 16.658, 0.664)
pt3dadd(77.949, 66.885, 16.626, 0.662)
pt3dadd(77.847, 66.834, 16.594, 0.66)
pt3dadd(77.745, 66.783, 16.562, 0.658)
pt3dadd(77.643, 66.748, 16.521, 0.636)
pt3dadd(77.539, 66.721, 16.476, 0.604)
pt3dadd(77.435, 66.695, 16.431, 0.57)
pt3dadd(77.332, 66.669, 16.385, 0.536)
pt3dadd(77.228, 66.642, 16.34, 0.504)
pt3dadd(77.124, 66.616, 16.295, 0.47)
pt3dadd(77.021, 66.589, 16.249, 0.436)
pt3dadd(76.917, 66.563, 16.204, 0.404)
pt3dadd(76.814, 66.537, 16.158, 0.37)
pt3dadd(76.71, 66.51, 16.113, 0.336)
pt3dadd(76.601, 66.489, 16.076, 0.326)
pt3dadd(76.489, 66.471, 16.044, 0.33)
pt3dadd(76.377, 66.452, 16.012, 0.332)
pt3dadd(76.265, 66.434, 15.979, 0.336)
pt3dadd(76.152, 66.416, 15.947, 0.34)
pt3dadd(76.04, 66.397, 15.915, 0.342)
pt3dadd(75.928, 66.379, 15.883, 0.346)
pt3dadd(75.816, 66.36, 15.851, 0.348)
pt3dadd(75.704, 66.342, 15.819, 0.352)
pt3dadd(75.592, 66.324, 15.786, 0.356)
pt3dadd(75.477, 66.311, 15.761, 0.37)
pt3dadd(75.36, 66.302, 15.739, 0.388)
pt3dadd(75.243, 66.292, 15.716, 0.406)
pt3dadd(75.127, 66.282, 15.694, 0.426)
pt3dadd(75.01, 66.272, 15.672, 0.444)
pt3dadd(74.894, 66.262, 15.649, 0.464)
pt3dadd(74.777, 66.253, 15.627, 0.482)
pt3dadd(74.661, 66.243, 15.605, 0.5)
pt3dadd(74.544, 66.233, 15.583, 0.52)
pt3dadd(74.427, 66.223, 15.56, 0.538)
pt3dadd(74.31, 66.216, 15.543, 0.55)
pt3dadd(74.191, 66.21, 15.526, 0.558)
pt3dadd(74.073, 66.204, 15.51, 0.564)
pt3dadd(73.955, 66.198, 15.495, 0.572)
pt3dadd(73.836, 66.192, 15.479, 0.58)
pt3dadd(73.718, 66.186, 15.462, 0.588)
pt3dadd(73.6, 66.18, 15.446, 0.596)
pt3dadd(73.482, 66.173, 15.43, 0.604)
pt3dadd(73.363, 66.167, 15.415, 0.612)
pt3dadd(73.245, 66.161, 15.399, 0.62)
pt3dadd(73.127, 66.151, 15.384, 0.612)
pt3dadd(73.008, 66.14, 15.369, 0.596)
pt3dadd(72.89, 66.129, 15.355, 0.582)
pt3dadd(72.772, 66.118, 15.341, 0.566)
pt3dadd(72.654, 66.107, 15.326, 0.55)
pt3dadd(72.536, 66.095, 15.312, 0.536)
pt3dadd(72.417, 66.084, 15.298, 0.52)
pt3dadd(72.299, 66.073, 15.283, 0.506)
pt3dadd(72.181, 66.062, 15.269, 0.49)
pt3dadd(72.063, 66.051, 15.255, 0.476)
pt3dadd(71.95, 66.035, 15.224, 0.484)
pt3dadd(71.84, 66.018, 15.187, 0.502)
pt3dadd(71.73, 66.001, 15.15, 0.52)
pt3dadd(71.619, 65.985, 15.113, 0.538)
pt3dadd(71.509, 65.968, 15.076, 0.556)
pt3dadd(71.399, 65.951, 15.039, 0.574)
pt3dadd(71.289, 65.934, 15.003, 0.592)
pt3dadd(71.178, 65.917, 14.966, 0.61)
pt3dadd(71.068, 65.9, 14.929, 0.626)
pt3dadd(70.958, 65.883, 14.892, 0.644)
pt3dadd(70.85, 65.844, 14.865, 0.672)
pt3dadd(70.743, 65.798, 14.84, 0.704)
pt3dadd(70.636, 65.752, 14.816, 0.736)
pt3dadd(70.529, 65.706, 14.792, 0.768)
pt3dadd(70.423, 65.66, 14.767, 0.798)
pt3dadd(70.316, 65.614, 14.743, 0.83)
pt3dadd(70.209, 65.568, 14.719, 0.862)
pt3dadd(70.102, 65.522, 14.695, 0.894)
pt3dadd(69.995, 65.475, 14.67, 0.924)
pt3dadd(69.888, 65.429, 14.646, 0.956)
pt3dadd(69.78, 65.382, 14.629, 0.96)
pt3dadd(69.672, 65.334, 14.613, 0.96)
pt3dadd(69.563, 65.286, 14.597, 0.958)
pt3dadd(69.455, 65.238, 14.581, 0.958)
pt3dadd(69.347, 65.19, 14.565, 0.956)
pt3dadd(69.238, 65.142, 14.549, 0.956)
pt3dadd(69.13, 65.094, 14.533, 0.954)
pt3dadd(69.022, 65.046, 14.517, 0.952)
pt3dadd(68.913, 64.998, 14.501, 0.952)
pt3dadd(68.805, 64.951, 14.485, 0.95)
pt3dadd(68.696, 64.902, 14.476, 0.93)
pt3dadd(68.586, 64.854, 14.469, 0.906)
pt3dadd(68.477, 64.805, 14.461, 0.884)
pt3dadd(68.368, 64.757, 14.453, 0.86)
pt3dadd(68.258, 64.708, 14.445, 0.838)
pt3dadd(68.149, 64.66, 14.437, 0.814)
pt3dadd(68.04, 64.611, 14.43, 0.79)
pt3dadd(67.93, 64.563, 14.422, 0.768)
pt3dadd(67.821, 64.514, 14.414, 0.744)
pt3dadd(67.712, 64.466, 14.406, 0.72)
pt3dadd(67.608, 64.406, 14.405, 0.732)
pt3dadd(67.505, 64.344, 14.406, 0.748)
pt3dadd(67.402, 64.282, 14.406, 0.766)
pt3dadd(67.299, 64.221, 14.406, 0.782)
pt3dadd(67.196, 64.159, 14.406, 0.798)
pt3dadd(67.093, 64.098, 14.406, 0.816)
pt3dadd(66.99, 64.036, 14.406, 0.832)
pt3dadd(66.887, 63.974, 14.406, 0.848)
pt3dadd(66.784, 63.913, 14.406, 0.866)
pt3dadd(66.681, 63.851, 14.407, 0.882)
pt3dadd(66.571, 63.803, 14.407, 0.844)
pt3dadd(66.46, 63.757, 14.407, 0.798)
pt3dadd(66.35, 63.711, 14.407, 0.752)
pt3dadd(66.239, 63.664, 14.408, 0.708)
pt3dadd(66.128, 63.618, 14.408, 0.662)
pt3dadd(66.018, 63.572, 14.408, 0.616)
pt3dadd(65.907, 63.525, 14.408, 0.572)
pt3dadd(65.796, 63.479, 14.409, 0.526)
pt3dadd(65.685, 63.433, 14.409, 0.48)
pt3dadd(65.575, 63.387, 14.409, 0.434)
pt3dadd(65.467, 63.333, 14.41, 0.422)
pt3dadd(65.361, 63.278, 14.41, 0.41)
pt3dadd(65.254, 63.223, 14.41, 0.4)
pt3dadd(65.147, 63.168, 14.411, 0.39)
pt3dadd(65.04, 63.114, 14.411, 0.382)
pt3dadd(64.934, 63.059, 14.412, 0.372)
pt3dadd(64.827, 63.004, 14.412, 0.362)
pt3dadd(64.72, 62.949, 14.413, 0.352)
pt3dadd(64.613, 62.895, 14.413, 0.342)
pt3dadd(64.506, 62.84, 14.414, 0.332)
pt3dadd(64.4, 62.784, 14.414, 0.336)
pt3dadd(64.294, 62.728, 14.415, 0.344)
pt3dadd(64.188, 62.672, 14.416, 0.352)
pt3dadd(64.082, 62.616, 14.417, 0.358)
pt3dadd(63.976, 62.56, 14.417, 0.366)
pt3dadd(63.87, 62.504, 14.418, 0.372)
pt3dadd(63.763, 62.448, 14.419, 0.38)
pt3dadd(63.657, 62.392, 14.42, 0.388)
pt3dadd(63.551, 62.336, 14.42, 0.394)
}
}
proc shape3d_185() {
dend_7[65] { pt3dadd(63.445, 62.28, 14.421, 0.402)
pt3dadd(63.333, 62.236, 14.423, 0.386)
pt3dadd(63.221, 62.193, 14.424, 0.368)
pt3dadd(63.109, 62.15, 14.425, 0.35)
pt3dadd(62.997, 62.107, 14.427, 0.332)
pt3dadd(62.885, 62.064, 14.428, 0.314)
pt3dadd(62.773, 62.022, 14.43, 0.298)
pt3dadd(62.661, 61.979, 14.431, 0.28)
pt3dadd(62.549, 61.936, 14.432, 0.262)
pt3dadd(62.437, 61.893, 14.434, 0.244)
pt3dadd(62.325, 61.85, 14.435, 0.226)
pt3dadd(62.219, 61.793, 14.438, 0.226)
pt3dadd(62.114, 61.735, 14.44, 0.226)
pt3dadd(62.009, 61.678, 14.443, 0.226)
pt3dadd(61.904, 61.621, 14.446, 0.226)
pt3dadd(61.798, 61.563, 14.448, 0.226)
pt3dadd(61.693, 61.506, 14.451, 0.226)
pt3dadd(61.588, 61.448, 14.453, 0.226)
pt3dadd(61.482, 61.391, 14.456, 0.226)
pt3dadd(61.377, 61.333, 14.458, 0.226)
pt3dadd(61.272, 61.276, 14.461, 0.226)
pt3dadd(61.159, 61.234, 14.467, 0.254)
pt3dadd(61.047, 61.193, 14.473, 0.284)
pt3dadd(60.934, 61.152, 14.479, 0.314)
pt3dadd(60.822, 61.112, 14.485, 0.344)
pt3dadd(60.709, 61.071, 14.491, 0.374)
pt3dadd(60.597, 61.03, 14.497, 0.402)
pt3dadd(60.484, 60.989, 14.503, 0.432)
pt3dadd(60.371, 60.948, 14.51, 0.462)
pt3dadd(60.259, 60.907, 14.516, 0.492)
pt3dadd(60.146, 60.866, 14.522, 0.522)
pt3dadd(60.031, 60.837, 14.532, 0.538)
pt3dadd(59.915, 60.807, 14.543, 0.554)
pt3dadd(59.799, 60.777, 14.554, 0.568)
pt3dadd(59.684, 60.747, 14.564, 0.584)
pt3dadd(59.568, 60.717, 14.575, 0.6)
pt3dadd(59.453, 60.687, 14.585, 0.616)
pt3dadd(59.337, 60.658, 14.596, 0.632)
pt3dadd(59.222, 60.628, 14.607, 0.646)
pt3dadd(59.106, 60.598, 14.617, 0.662)
pt3dadd(58.991, 60.568, 14.628, 0.678)
pt3dadd(58.882, 60.542, 14.664, 0.664)
pt3dadd(58.773, 60.515, 14.7, 0.65)
pt3dadd(58.665, 60.489, 14.736, 0.634)
pt3dadd(58.556, 60.462, 14.772, 0.62)
pt3dadd(58.447, 60.435, 14.808, 0.606)
pt3dadd(58.338, 60.409, 14.844, 0.592)
pt3dadd(58.23, 60.382, 14.88, 0.576)
pt3dadd(58.121, 60.356, 14.916, 0.562)
pt3dadd(58.012, 60.329, 14.953, 0.548)
pt3dadd(57.906, 60.296, 14.989, 0.538)
pt3dadd(57.807, 60.244, 15.025, 0.544)
pt3dadd(57.708, 60.192, 15.061, 0.55)
pt3dadd(57.61, 60.139, 15.098, 0.556)
pt3dadd(57.511, 60.087, 15.134, 0.56)
pt3dadd(57.412, 60.035, 15.17, 0.566)
pt3dadd(57.313, 59.982, 15.207, 0.572)
pt3dadd(57.214, 59.93, 15.243, 0.578)
pt3dadd(57.116, 59.878, 15.28, 0.584)
pt3dadd(57.017, 59.826, 15.316, 0.588)
pt3dadd(56.916, 59.771, 15.344, 0.6)
pt3dadd(56.812, 59.715, 15.362, 0.622)
pt3dadd(56.708, 59.659, 15.38, 0.642)
pt3dadd(56.605, 59.602, 15.398, 0.662)
pt3dadd(56.501, 59.546, 15.416, 0.682)
pt3dadd(56.397, 59.489, 15.434, 0.702)
pt3dadd(56.294, 59.433, 15.451, 0.722)
pt3dadd(56.19, 59.377, 15.47, 0.742)
pt3dadd(56.086, 59.32, 15.487, 0.762)
pt3dadd(55.982, 59.264, 15.505, 0.782)
pt3dadd(55.878, 59.207, 15.518, 0.798)
pt3dadd(55.772, 59.151, 15.524, 0.81)
pt3dadd(55.667, 59.094, 15.531, 0.82)
pt3dadd(55.562, 59.037, 15.538, 0.832)
pt3dadd(55.456, 58.98, 15.545, 0.842)
pt3dadd(55.351, 58.923, 15.552, 0.854)
pt3dadd(55.245, 58.867, 15.559, 0.866)
pt3dadd(55.14, 58.81, 15.566, 0.876)
pt3dadd(55.035, 58.753, 15.572, 0.888)
pt3dadd(54.929, 58.696, 15.579, 0.898)
pt3dadd(54.826, 58.636, 15.583, 0.902)
pt3dadd(54.724, 58.572, 15.583, 0.9)
pt3dadd(54.622, 58.508, 15.584, 0.898)
pt3dadd(54.521, 58.445, 15.585, 0.896)
pt3dadd(54.419, 58.381, 15.585, 0.894)
pt3dadd(54.317, 58.317, 15.586, 0.892)
pt3dadd(54.216, 58.253, 15.586, 0.89)
pt3dadd(54.114, 58.19, 15.587, 0.888)
pt3dadd(54.012, 58.126, 15.587, 0.886)
pt3dadd(53.911, 58.062, 15.588, 0.884)
pt3dadd(53.806, 58.005, 15.589, 0.864)
pt3dadd(53.698, 57.953, 15.59, 0.828)
pt3dadd(53.589, 57.9, 15.592, 0.792)
pt3dadd(53.481, 57.848, 15.593, 0.758)
pt3dadd(53.373, 57.796, 15.594, 0.722)
pt3dadd(53.265, 57.743, 15.595, 0.686)
pt3dadd(53.157, 57.691, 15.597, 0.65)
pt3dadd(53.049, 57.639, 15.598, 0.616)
pt3dadd(52.941, 57.587, 15.599, 0.58)
pt3dadd(52.833, 57.534, 15.601, 0.544)
pt3dadd(52.731, 57.473, 15.602, 0.518)
pt3dadd(52.632, 57.405, 15.605, 0.496)
pt3dadd(52.533, 57.337, 15.607, 0.476)
pt3dadd(52.435, 57.268, 15.609, 0.456)
pt3dadd(52.336, 57.2, 15.611, 0.436)
pt3dadd(52.238, 57.132, 15.613, 0.416)
pt3dadd(52.139, 57.063, 15.615, 0.396)
pt3dadd(52.04, 56.995, 15.618, 0.374)
pt3dadd(51.942, 56.927, 15.62, 0.354)
pt3dadd(51.843, 56.859, 15.622, 0.334)
pt3dadd(51.748, 56.786, 15.625, 0.324)
pt3dadd(51.654, 56.71, 15.629, 0.32)
pt3dadd(51.561, 56.635, 15.632, 0.316)
pt3dadd(51.468, 56.559, 15.636, 0.312)
pt3dadd(51.375, 56.484, 15.64, 0.308)
pt3dadd(51.282, 56.408, 15.643, 0.304)
pt3dadd(51.189, 56.332, 15.647, 0.3)
pt3dadd(51.096, 56.257, 15.651, 0.296)
pt3dadd(51.003, 56.181, 15.654, 0.292)
pt3dadd(50.91, 56.106, 15.658, 0.288)
pt3dadd(50.819, 56.027, 15.663, 0.296)
pt3dadd(50.73, 55.947, 15.669, 0.312)
pt3dadd(50.642, 55.866, 15.674, 0.328)
pt3dadd(50.553, 55.786, 15.68, 0.344)
pt3dadd(50.464, 55.705, 15.686, 0.36)
pt3dadd(50.376, 55.625, 15.692, 0.376)
pt3dadd(50.287, 55.544, 15.698, 0.39)
pt3dadd(50.198, 55.464, 15.703, 0.406)
pt3dadd(50.11, 55.383, 15.709, 0.422)
pt3dadd(50.021, 55.302, 15.715, 0.438)
pt3dadd(49.937, 55.218, 15.723, 0.446)
pt3dadd(49.855, 55.13, 15.733, 0.446)
pt3dadd(49.774, 55.043, 15.742, 0.446)
pt3dadd(49.693, 54.955, 15.752, 0.448)
pt3dadd(49.612, 54.867, 15.761, 0.448)
pt3dadd(49.531, 54.78, 15.771, 0.448)
pt3dadd(49.449, 54.692, 15.78, 0.45)
pt3dadd(49.368, 54.605, 15.79, 0.45)
pt3dadd(49.287, 54.517, 15.799, 0.452)
pt3dadd(49.206, 54.429, 15.809, 0.452)
pt3dadd(49.128, 54.342, 15.83, 0.46)
pt3dadd(49.054, 54.255, 15.861, 0.472)
pt3dadd(48.979, 54.169, 15.891, 0.484)
pt3dadd(48.905, 54.082, 15.921, 0.496)
pt3dadd(48.831, 53.995, 15.952, 0.51)
pt3dadd(48.756, 53.908, 15.982, 0.522)
pt3dadd(48.681, 53.822, 16.013, 0.534)
pt3dadd(48.607, 53.735, 16.043, 0.546)
pt3dadd(48.533, 53.648, 16.073, 0.56)
pt3dadd(48.458, 53.562, 16.104, 0.572)
pt3dadd(48.397, 53.468, 16.139, 0.564)
pt3dadd(48.34, 53.373, 16.177, 0.55)
pt3dadd(48.282, 53.277, 16.214, 0.536)
pt3dadd(48.225, 53.182, 16.252, 0.52)
pt3dadd(48.168, 53.086, 16.289, 0.506)
pt3dadd(48.111, 52.991, 16.326, 0.492)
pt3dadd(48.054, 52.895, 16.364, 0.478)
pt3dadd(47.996, 52.8, 16.401, 0.464)
pt3dadd(47.939, 52.704, 16.439, 0.45)
pt3dadd(47.882, 52.609, 16.476, 0.436)
pt3dadd(47.822, 52.509, 16.497, 0.416)
pt3dadd(47.762, 52.407, 16.516, 0.394)
pt3dadd(47.701, 52.306, 16.535, 0.374)
pt3dadd(47.641, 52.205, 16.554, 0.352)
pt3dadd(47.581, 52.104, 16.573, 0.332)
pt3dadd(47.52, 52.002, 16.592, 0.31)
pt3dadd(47.46, 51.901, 16.611, 0.29)
pt3dadd(47.4, 51.8, 16.63, 0.268)
pt3dadd(47.34, 51.699, 16.649, 0.248)
pt3dadd(47.279, 51.597, 16.668, 0.226)
pt3dadd(47.207, 51.502, 16.676, 0.226)
pt3dadd(47.135, 51.407, 16.683, 0.226)
pt3dadd(47.062, 51.311, 16.691, 0.226)
pt3dadd(46.99, 51.216, 16.698, 0.226)
pt3dadd(46.918, 51.121, 16.706, 0.226)
pt3dadd(46.845, 51.026, 16.713, 0.226)
pt3dadd(46.773, 50.93, 16.721, 0.226)
pt3dadd(46.701, 50.835, 16.729, 0.226)
pt3dadd(46.628, 50.74, 16.736, 0.226)
pt3dadd(46.556, 50.644, 16.744, 0.226)
pt3dadd(46.477, 50.554, 16.744, 0.226)
pt3dadd(46.398, 50.464, 16.744, 0.226)
pt3dadd(46.318, 50.374, 16.744, 0.226)
pt3dadd(46.239, 50.284, 16.744, 0.226)
pt3dadd(46.16, 50.194, 16.744, 0.226)
pt3dadd(46.081, 50.103, 16.744, 0.226)
pt3dadd(46.002, 50.013, 16.744, 0.226)
pt3dadd(45.922, 49.923, 16.744, 0.226)
pt3dadd(45.843, 49.833, 16.744, 0.226)
pt3dadd(45.764, 49.743, 16.744, 0.226)
pt3dadd(45.68, 49.657, 16.744, 0.226)
pt3dadd(45.596, 49.571, 16.744, 0.226)
pt3dadd(45.512, 49.485, 16.744, 0.226)
pt3dadd(45.428, 49.4, 16.744, 0.226)
pt3dadd(45.344, 49.314, 16.744, 0.226)
pt3dadd(45.26, 49.228, 16.744, 0.226)
pt3dadd(45.176, 49.143, 16.744, 0.226)
pt3dadd(45.092, 49.057, 16.744, 0.226)
pt3dadd(45.008, 48.971, 16.744, 0.226)
pt3dadd(44.924, 48.885, 16.744, 0.226)
}
}
proc shape3d_186() {
dend_7[65] { pt3dadd(44.84, 48.801, 16.744, 0.226)
pt3dadd(44.755, 48.716, 16.744, 0.226)
pt3dadd(44.67, 48.631, 16.744, 0.226)
pt3dadd(44.585, 48.546, 16.744, 0.226)
pt3dadd(44.5, 48.461, 16.744, 0.226)
pt3dadd(44.415, 48.376, 16.744, 0.226)
pt3dadd(44.33, 48.291, 16.744, 0.226)
pt3dadd(44.246, 48.207, 16.744, 0.226)
pt3dadd(44.161, 48.122, 16.744, 0.226)
pt3dadd(44.076, 48.037, 16.744, 0.226)
}
dend_7[66] {pt3dclear()
pt3dadd(89, 70.569, 17.91, 0.678)
pt3dadd(89, 70.533, 17.939, 0.672)
pt3dadd(89, 70.446, 18.008, 0.66)
pt3dadd(89, 70.359, 18.077, 0.646)
pt3dadd(89, 70.272, 18.146, 0.632)
pt3dadd(89, 70.186, 18.215, 0.62)
pt3dadd(89, 70.099, 18.284, 0.606)
pt3dadd(89, 70.012, 18.353, 0.592)
pt3dadd(89, 69.925, 18.422, 0.58)
pt3dadd(89, 69.839, 18.491, 0.566)
pt3dadd(89, 69.752, 18.561, 0.552)
pt3dadd(89, 69.665, 18.63, 0.54)
pt3dadd(88.982, 69.572, 18.687, 0.534)
pt3dadd(88.948, 69.472, 18.736, 0.536)
pt3dadd(88.914, 69.373, 18.784, 0.54)
pt3dadd(88.879, 69.273, 18.832, 0.542)
pt3dadd(88.845, 69.174, 18.88, 0.544)
pt3dadd(88.811, 69.075, 18.929, 0.546)
pt3dadd(88.777, 68.975, 18.977, 0.548)
pt3dadd(88.743, 68.876, 19.025, 0.552)
pt3dadd(88.709, 68.776, 19.074, 0.554)
pt3dadd(88.646, 68.682, 19.092, 0.572)
pt3dadd(88.568, 68.591, 19.094, 0.598)
pt3dadd(88.49, 68.5, 19.096, 0.624)
pt3dadd(88.412, 68.409, 19.097, 0.65)
pt3dadd(88.334, 68.318, 19.099, 0.678)
pt3dadd(88.256, 68.227, 19.101, 0.704)
pt3dadd(88.178, 68.136, 19.103, 0.73)
pt3dadd(88.1, 68.044, 19.105, 0.756)
pt3dadd(88.022, 67.953, 19.107, 0.782)
pt3dadd(87.944, 67.862, 19.109, 0.81)
pt3dadd(87.867, 67.77, 19.111, 0.81)
pt3dadd(87.79, 67.678, 19.113, 0.796)
pt3dadd(87.713, 67.586, 19.115, 0.782)
pt3dadd(87.636, 67.494, 19.118, 0.768)
pt3dadd(87.558, 67.403, 19.12, 0.754)
pt3dadd(87.481, 67.311, 19.123, 0.738)
pt3dadd(87.404, 67.219, 19.125, 0.724)
pt3dadd(87.327, 67.127, 19.127, 0.71)
pt3dadd(87.25, 67.035, 19.13, 0.696)
pt3dadd(87.173, 66.943, 19.132, 0.682)
pt3dadd(87.101, 66.847, 19.135, 0.666)
pt3dadd(87.031, 66.75, 19.139, 0.65)
pt3dadd(86.962, 66.652, 19.143, 0.632)
pt3dadd(86.892, 66.554, 19.147, 0.616)
pt3dadd(86.822, 66.457, 19.151, 0.598)
pt3dadd(86.752, 66.359, 19.155, 0.582)
pt3dadd(86.683, 66.262, 19.159, 0.564)
pt3dadd(86.613, 66.164, 19.163, 0.548)
pt3dadd(86.543, 66.067, 19.167, 0.53)
pt3dadd(86.474, 65.969, 19.17, 0.514)
pt3dadd(86.415, 65.865, 19.176, 0.52)
pt3dadd(86.36, 65.759, 19.183, 0.536)
pt3dadd(86.306, 65.652, 19.189, 0.554)
pt3dadd(86.251, 65.545, 19.196, 0.57)
pt3dadd(86.197, 65.439, 19.202, 0.588)
pt3dadd(86.142, 65.332, 19.209, 0.606)
pt3dadd(86.088, 65.225, 19.215, 0.622)
pt3dadd(86.033, 65.119, 19.222, 0.638)
pt3dadd(85.979, 65.012, 19.229, 0.656)
pt3dadd(85.924, 64.905, 19.235, 0.674)
pt3dadd(85.865, 64.802, 19.245, 0.678)
pt3dadd(85.804, 64.699, 19.255, 0.678)
pt3dadd(85.742, 64.597, 19.265, 0.678)
pt3dadd(85.681, 64.495, 19.276, 0.678)
pt3dadd(85.62, 64.392, 19.286, 0.678)
pt3dadd(85.558, 64.29, 19.297, 0.678)
pt3dadd(85.497, 64.188, 19.307, 0.678)
pt3dadd(85.436, 64.085, 19.318, 0.678)
pt3dadd(85.374, 63.983, 19.328, 0.678)
pt3dadd(85.313, 63.88, 19.339, 0.678)
pt3dadd(85.26, 63.776, 19.361, 0.662)
pt3dadd(85.211, 63.672, 19.388, 0.642)
pt3dadd(85.162, 63.567, 19.415, 0.62)
pt3dadd(85.113, 63.463, 19.442, 0.598)
pt3dadd(85.064, 63.358, 19.469, 0.576)
pt3dadd(85.015, 63.253, 19.496, 0.554)
pt3dadd(84.966, 63.149, 19.523, 0.532)
pt3dadd(84.917, 63.044, 19.55, 0.512)
pt3dadd(84.868, 62.94, 19.577, 0.49)
pt3dadd(84.819, 62.835, 19.604, 0.468)
pt3dadd(84.772, 62.731, 19.636, 0.448)
pt3dadd(84.725, 62.628, 19.668, 0.43)
pt3dadd(84.678, 62.524, 19.701, 0.41)
pt3dadd(84.631, 62.421, 19.733, 0.39)
pt3dadd(84.585, 62.318, 19.765, 0.372)
pt3dadd(84.538, 62.214, 19.798, 0.352)
pt3dadd(84.491, 62.111, 19.83, 0.334)
pt3dadd(84.444, 62.007, 19.862, 0.314)
pt3dadd(84.397, 61.904, 19.895, 0.294)
pt3dadd(84.35, 61.801, 19.927, 0.276)
pt3dadd(84.292, 61.7, 19.952, 0.286)
pt3dadd(84.233, 61.599, 19.975, 0.302)
pt3dadd(84.173, 61.499, 19.998, 0.318)
pt3dadd(84.114, 61.398, 20.021, 0.336)
pt3dadd(84.054, 61.298, 20.044, 0.352)
pt3dadd(83.995, 61.197, 20.067, 0.368)
pt3dadd(83.935, 61.097, 20.09, 0.384)
pt3dadd(83.876, 60.997, 20.113, 0.4)
pt3dadd(83.816, 60.896, 20.136, 0.416)
pt3dadd(83.757, 60.796, 20.159, 0.432)
pt3dadd(83.71, 60.688, 20.177, 0.45)
pt3dadd(83.665, 60.578, 20.195, 0.468)
pt3dadd(83.62, 60.469, 20.212, 0.484)
pt3dadd(83.576, 60.36, 20.23, 0.502)
pt3dadd(83.531, 60.25, 20.247, 0.52)
pt3dadd(83.486, 60.141, 20.265, 0.538)
pt3dadd(83.442, 60.031, 20.282, 0.556)
pt3dadd(83.397, 59.922, 20.299, 0.572)
pt3dadd(83.352, 59.813, 20.317, 0.59)
pt3dadd(83.308, 59.703, 20.334, 0.608)
pt3dadd(83.256, 59.596, 20.348, 0.626)
pt3dadd(83.203, 59.489, 20.36, 0.642)
pt3dadd(83.151, 59.383, 20.373, 0.66)
pt3dadd(83.098, 59.276, 20.386, 0.676)
pt3dadd(83.045, 59.169, 20.398, 0.694)
pt3dadd(82.992, 59.063, 20.411, 0.712)
pt3dadd(82.94, 58.956, 20.424, 0.728)
pt3dadd(82.887, 58.849, 20.437, 0.746)
pt3dadd(82.834, 58.742, 20.449, 0.762)
pt3dadd(82.782, 58.636, 20.462, 0.78)
pt3dadd(82.728, 58.53, 20.479, 0.788)
pt3dadd(82.674, 58.425, 20.496, 0.796)
pt3dadd(82.621, 58.319, 20.513, 0.804)
pt3dadd(82.567, 58.214, 20.53, 0.812)
pt3dadd(82.514, 58.109, 20.548, 0.82)
pt3dadd(82.46, 58.003, 20.565, 0.826)
pt3dadd(82.407, 57.898, 20.582, 0.834)
pt3dadd(82.353, 57.792, 20.599, 0.842)
pt3dadd(82.3, 57.687, 20.616, 0.85)
pt3dadd(82.246, 57.582, 20.634, 0.858)
pt3dadd(82.207, 57.476, 20.669, 0.84)
pt3dadd(82.169, 57.371, 20.704, 0.824)
pt3dadd(82.13, 57.265, 20.74, 0.806)
pt3dadd(82.092, 57.16, 20.775, 0.79)
pt3dadd(82.053, 57.055, 20.81, 0.772)
pt3dadd(82.015, 56.949, 20.846, 0.756)
pt3dadd(81.976, 56.844, 20.881, 0.738)
pt3dadd(81.938, 56.738, 20.917, 0.722)
pt3dadd(81.899, 56.633, 20.952, 0.704)
pt3dadd(81.861, 56.528, 20.987, 0.688)
pt3dadd(81.823, 56.417, 21.011, 0.654)
pt3dadd(81.786, 56.307, 21.035, 0.618)
pt3dadd(81.748, 56.196, 21.059, 0.584)
pt3dadd(81.711, 56.086, 21.083, 0.548)
pt3dadd(81.674, 55.976, 21.107, 0.514)
pt3dadd(81.636, 55.866, 21.131, 0.478)
pt3dadd(81.599, 55.755, 21.155, 0.444)
pt3dadd(81.561, 55.645, 21.178, 0.41)
pt3dadd(81.524, 55.534, 21.202, 0.374)
pt3dadd(81.486, 55.424, 21.226, 0.34)
pt3dadd(81.432, 55.319, 21.24, 0.362)
pt3dadd(81.377, 55.213, 21.255, 0.386)
pt3dadd(81.322, 55.108, 21.269, 0.408)
pt3dadd(81.267, 55.003, 21.284, 0.43)
pt3dadd(81.212, 54.897, 21.298, 0.454)
pt3dadd(81.157, 54.792, 21.312, 0.476)
pt3dadd(81.102, 54.687, 21.327, 0.5)
pt3dadd(81.047, 54.582, 21.341, 0.522)
pt3dadd(80.992, 54.476, 21.355, 0.546)
pt3dadd(80.937, 54.371, 21.369, 0.568)
pt3dadd(80.87, 54.272, 21.376, 0.598)
pt3dadd(80.802, 54.173, 21.384, 0.626)
pt3dadd(80.735, 54.074, 21.391, 0.656)
pt3dadd(80.668, 53.975, 21.398, 0.684)
pt3dadd(80.601, 53.876, 21.405, 0.714)
pt3dadd(80.534, 53.777, 21.413, 0.742)
pt3dadd(80.466, 53.678, 21.42, 0.77)
pt3dadd(80.399, 53.579, 21.427, 0.8)
pt3dadd(80.332, 53.48, 21.434, 0.828)
pt3dadd(80.264, 53.381, 21.441, 0.852)
pt3dadd(80.188, 53.289, 21.442, 0.838)
pt3dadd(80.111, 53.196, 21.443, 0.822)
pt3dadd(80.035, 53.104, 21.444, 0.808)
pt3dadd(79.958, 53.011, 21.445, 0.792)
pt3dadd(79.882, 52.919, 21.446, 0.776)
pt3dadd(79.806, 52.826, 21.448, 0.762)
pt3dadd(79.729, 52.734, 21.449, 0.746)
pt3dadd(79.653, 52.641, 21.45, 0.73)
pt3dadd(79.576, 52.549, 21.451, 0.716)
pt3dadd(79.5, 52.457, 21.452, 0.702)
pt3dadd(79.419, 52.367, 21.454, 0.714)
pt3dadd(79.339, 52.278, 21.456, 0.724)
pt3dadd(79.259, 52.189, 21.458, 0.734)
pt3dadd(79.179, 52.1, 21.461, 0.746)
pt3dadd(79.098, 52.011, 21.463, 0.756)
pt3dadd(79.018, 51.922, 21.465, 0.766)
pt3dadd(78.938, 51.832, 21.467, 0.778)
pt3dadd(78.857, 51.743, 21.469, 0.788)
pt3dadd(78.777, 51.654, 21.471, 0.798)
}
}
proc shape3d_187() {
dend_7[66] { pt3dadd(78.697, 51.564, 21.473, 0.81)
pt3dadd(78.624, 51.47, 21.477, 0.826)
pt3dadd(78.55, 51.375, 21.482, 0.844)
pt3dadd(78.477, 51.28, 21.486, 0.86)
pt3dadd(78.403, 51.186, 21.49, 0.876)
pt3dadd(78.329, 51.091, 21.494, 0.894)
pt3dadd(78.256, 50.997, 21.498, 0.91)
pt3dadd(78.182, 50.902, 21.502, 0.926)
pt3dadd(78.108, 50.807, 21.506, 0.944)
pt3dadd(78.035, 50.713, 21.51, 0.96)
pt3dadd(77.963, 50.617, 21.514, 0.976)
pt3dadd(77.898, 50.517, 21.522, 0.98)
pt3dadd(77.832, 50.416, 21.53, 0.982)
pt3dadd(77.767, 50.316, 21.539, 0.986)
pt3dadd(77.702, 50.216, 21.547, 0.99)
pt3dadd(77.637, 50.115, 21.555, 0.994)
pt3dadd(77.572, 50.015, 21.563, 0.998)
pt3dadd(77.507, 49.914, 21.571, 1.002)
pt3dadd(77.442, 49.814, 21.579, 1.006)
pt3dadd(77.377, 49.714, 21.587, 1.01)
pt3dadd(77.309, 49.616, 21.597, 1.002)
pt3dadd(77.228, 49.53, 21.616, 0.944)
pt3dadd(77.148, 49.444, 21.634, 0.888)
pt3dadd(77.067, 49.358, 21.652, 0.832)
pt3dadd(76.986, 49.272, 21.671, 0.774)
pt3dadd(76.906, 49.186, 21.689, 0.718)
pt3dadd(76.825, 49.1, 21.708, 0.662)
pt3dadd(76.744, 49.014, 21.726, 0.604)
pt3dadd(76.664, 48.928, 21.744, 0.548)
pt3dadd(76.583, 48.842, 21.763, 0.49)
pt3dadd(76.51, 48.753, 21.788, 0.452)
pt3dadd(76.455, 48.658, 21.829, 0.452)
pt3dadd(76.4, 48.564, 21.87, 0.45)
pt3dadd(76.345, 48.469, 21.912, 0.45)
pt3dadd(76.29, 48.375, 21.952, 0.448)
pt3dadd(76.235, 48.28, 21.994, 0.448)
pt3dadd(76.18, 48.186, 22.035, 0.448)
pt3dadd(76.125, 48.091, 22.076, 0.446)
pt3dadd(76.07, 47.997, 22.117, 0.446)
pt3dadd(76.015, 47.902, 22.158, 0.444)
pt3dadd(75.956, 47.807, 22.193, 0.438)
pt3dadd(75.889, 47.712, 22.215, 0.422)
pt3dadd(75.821, 47.616, 22.237, 0.404)
pt3dadd(75.753, 47.52, 22.26, 0.386)
pt3dadd(75.686, 47.425, 22.282, 0.37)
pt3dadd(75.618, 47.329, 22.304, 0.352)
pt3dadd(75.551, 47.234, 22.326, 0.334)
pt3dadd(75.483, 47.138, 22.349, 0.318)
pt3dadd(75.416, 47.043, 22.371, 0.3)
pt3dadd(75.348, 46.947, 22.393, 0.282)
pt3dadd(75.281, 46.851, 22.412, 0.278)
pt3dadd(75.216, 46.751, 22.425, 0.296)
pt3dadd(75.15, 46.652, 22.438, 0.316)
pt3dadd(75.084, 46.553, 22.451, 0.336)
pt3dadd(75.019, 46.454, 22.464, 0.354)
pt3dadd(74.953, 46.354, 22.477, 0.374)
pt3dadd(74.887, 46.255, 22.49, 0.394)
pt3dadd(74.822, 46.156, 22.502, 0.412)
pt3dadd(74.756, 46.057, 22.515, 0.432)
pt3dadd(74.69, 45.957, 22.528, 0.452)
pt3dadd(74.628, 45.856, 22.539, 0.468)
pt3dadd(74.571, 45.751, 22.545, 0.476)
pt3dadd(74.514, 45.645, 22.552, 0.486)
pt3dadd(74.457, 45.54, 22.559, 0.494)
pt3dadd(74.4, 45.435, 22.565, 0.504)
pt3dadd(74.343, 45.33, 22.572, 0.514)
pt3dadd(74.286, 45.224, 22.578, 0.522)
pt3dadd(74.229, 45.119, 22.585, 0.532)
pt3dadd(74.172, 45.014, 22.591, 0.54)
pt3dadd(74.115, 44.908, 22.598, 0.55)
pt3dadd(74.065, 44.799, 22.602, 0.542)
pt3dadd(74.028, 44.686, 22.603, 0.508)
pt3dadd(73.99, 44.572, 22.603, 0.476)
pt3dadd(73.952, 44.458, 22.604, 0.442)
pt3dadd(73.915, 44.344, 22.605, 0.41)
pt3dadd(73.877, 44.23, 22.605, 0.376)
pt3dadd(73.839, 44.116, 22.606, 0.344)
pt3dadd(73.802, 44.002, 22.607, 0.31)
pt3dadd(73.764, 43.888, 22.607, 0.278)
pt3dadd(73.726, 43.774, 22.608, 0.244)
pt3dadd(73.7, 43.658, 22.609, 0.226)
pt3dadd(73.687, 43.539, 22.611, 0.226)
pt3dadd(73.674, 43.419, 22.612, 0.226)
pt3dadd(73.661, 43.3, 22.613, 0.226)
pt3dadd(73.648, 43.181, 22.615, 0.226)
pt3dadd(73.635, 43.061, 22.616, 0.226)
pt3dadd(73.623, 42.942, 22.618, 0.226)
pt3dadd(73.61, 42.823, 22.619, 0.226)
pt3dadd(73.597, 42.703, 22.62, 0.226)
pt3dadd(73.584, 42.584, 22.622, 0.226)
pt3dadd(73.577, 42.465, 22.624, 0.226)
pt3dadd(73.576, 42.345, 22.626, 0.226)
pt3dadd(73.576, 42.225, 22.629, 0.226)
pt3dadd(73.576, 42.105, 22.632, 0.226)
pt3dadd(73.575, 41.985, 22.635, 0.226)
pt3dadd(73.575, 41.865, 22.638, 0.226)
pt3dadd(73.575, 41.745, 22.64, 0.226)
pt3dadd(73.574, 41.625, 22.643, 0.226)
pt3dadd(73.574, 41.505, 22.646, 0.226)
pt3dadd(73.573, 41.385, 22.649, 0.226)
pt3dadd(73.574, 41.265, 22.653, 0.238)
pt3dadd(73.575, 41.145, 22.659, 0.268)
pt3dadd(73.576, 41.025, 22.665, 0.296)
pt3dadd(73.578, 40.906, 22.671, 0.326)
pt3dadd(73.579, 40.786, 22.677, 0.354)
pt3dadd(73.58, 40.666, 22.683, 0.384)
pt3dadd(73.582, 40.546, 22.689, 0.412)
pt3dadd(73.583, 40.427, 22.695, 0.44)
pt3dadd(73.584, 40.307, 22.701, 0.47)
pt3dadd(73.586, 40.187, 22.707, 0.498)
pt3dadd(73.588, 40.067, 22.714, 0.526)
pt3dadd(73.59, 39.948, 22.724, 0.554)
pt3dadd(73.593, 39.829, 22.734, 0.582)
pt3dadd(73.596, 39.709, 22.743, 0.61)
pt3dadd(73.598, 39.59, 22.753, 0.636)
pt3dadd(73.601, 39.47, 22.763, 0.664)
pt3dadd(73.603, 39.351, 22.772, 0.692)
pt3dadd(73.606, 39.232, 22.782, 0.718)
pt3dadd(73.609, 39.112, 22.792, 0.746)
pt3dadd(73.611, 38.993, 22.801, 0.774)
pt3dadd(73.615, 38.874, 22.816, 0.784)
pt3dadd(73.62, 38.757, 22.838, 0.774)
pt3dadd(73.626, 38.641, 22.86, 0.764)
pt3dadd(73.631, 38.524, 22.882, 0.754)
pt3dadd(73.636, 38.407, 22.904, 0.744)
pt3dadd(73.641, 38.29, 22.926, 0.734)
pt3dadd(73.646, 38.173, 22.948, 0.724)
pt3dadd(73.652, 38.056, 22.97, 0.714)
pt3dadd(73.657, 37.939, 22.992, 0.704)
pt3dadd(73.662, 37.822, 23.014, 0.694)
pt3dadd(73.669, 37.708, 23.043, 0.666)
pt3dadd(73.677, 37.596, 23.079, 0.618)
pt3dadd(73.686, 37.484, 23.114, 0.572)
pt3dadd(73.694, 37.372, 23.15, 0.526)
pt3dadd(73.702, 37.26, 23.185, 0.48)
pt3dadd(73.711, 37.148, 23.221, 0.434)
pt3dadd(73.719, 37.036, 23.256, 0.386)
pt3dadd(73.728, 36.924, 23.291, 0.34)
pt3dadd(73.736, 36.812, 23.327, 0.294)
pt3dadd(73.745, 36.701, 23.362, 0.248)
pt3dadd(73.756, 36.587, 23.391, 0.226)
pt3dadd(73.769, 36.471, 23.415, 0.226)
pt3dadd(73.782, 36.355, 23.439, 0.226)
pt3dadd(73.796, 36.239, 23.463, 0.226)
pt3dadd(73.809, 36.124, 23.487, 0.226)
pt3dadd(73.822, 36.008, 23.511, 0.226)
pt3dadd(73.836, 35.892, 23.535, 0.226)
pt3dadd(73.849, 35.776, 23.559, 0.226)
pt3dadd(73.862, 35.661, 23.583, 0.226)
pt3dadd(73.875, 35.545, 23.607, 0.226)
pt3dadd(73.904, 35.431, 23.625, 0.244)
pt3dadd(73.946, 35.32, 23.636, 0.278)
pt3dadd(73.988, 35.208, 23.648, 0.31)
pt3dadd(74.03, 35.097, 23.659, 0.344)
pt3dadd(74.072, 34.985, 23.671, 0.376)
pt3dadd(74.114, 34.874, 23.683, 0.41)
pt3dadd(74.156, 34.762, 23.694, 0.444)
pt3dadd(74.197, 34.65, 23.706, 0.476)
pt3dadd(74.239, 34.539, 23.718, 0.51)
pt3dadd(74.281, 34.427, 23.729, 0.542)
pt3dadd(74.318, 34.314, 23.736, 0.564)
pt3dadd(74.352, 34.198, 23.74, 0.576)
pt3dadd(74.385, 34.083, 23.745, 0.588)
pt3dadd(74.418, 33.968, 23.749, 0.6)
pt3dadd(74.452, 33.853, 23.752, 0.612)
pt3dadd(74.485, 33.738, 23.757, 0.624)
pt3dadd(74.518, 33.623, 23.761, 0.636)
pt3dadd(74.552, 33.507, 23.765, 0.648)
pt3dadd(74.585, 33.392, 23.769, 0.662)
pt3dadd(74.619, 33.277, 23.773, 0.674)
pt3dadd(74.644, 33.16, 23.775, 0.666)
pt3dadd(74.664, 33.042, 23.776, 0.648)
pt3dadd(74.684, 32.923, 23.777, 0.63)
pt3dadd(74.704, 32.805, 23.778, 0.612)
pt3dadd(74.724, 32.687, 23.779, 0.594)
pt3dadd(74.744, 32.568, 23.78, 0.576)
pt3dadd(74.764, 32.45, 23.781, 0.558)
pt3dadd(74.784, 32.332, 23.782, 0.54)
pt3dadd(74.805, 32.214, 23.783, 0.522)
pt3dadd(74.825, 32.095, 23.784, 0.504)
pt3dadd(74.836, 31.976, 23.786, 0.488)
pt3dadd(74.842, 31.856, 23.788, 0.472)
pt3dadd(74.847, 31.736, 23.79, 0.458)
pt3dadd(74.853, 31.617, 23.792, 0.442)
pt3dadd(74.859, 31.497, 23.794, 0.426)
pt3dadd(74.865, 31.377, 23.796, 0.412)
pt3dadd(74.871, 31.257, 23.798, 0.396)
pt3dadd(74.877, 31.137, 23.8, 0.382)
pt3dadd(74.883, 31.017, 23.802, 0.366)
pt3dadd(74.889, 30.897, 23.804, 0.35)
pt3dadd(74.886, 30.778, 23.807, 0.364)
pt3dadd(74.88, 30.658, 23.811, 0.39)
pt3dadd(74.873, 30.538, 23.815, 0.416)
pt3dadd(74.866, 30.419, 23.819, 0.444)
pt3dadd(74.859, 30.299, 23.823, 0.47)
pt3dadd(74.853, 30.179, 23.827, 0.498)
pt3dadd(74.846, 30.059, 23.83, 0.524)
pt3dadd(74.839, 29.94, 23.834, 0.55)
pt3dadd(74.833, 29.82, 23.838, 0.578)
pt3dadd(74.826, 29.7, 23.842, 0.604)
}
}
proc shape3d_188() {
dend_7[66] { pt3dadd(74.817, 29.581, 23.848, 0.588)
pt3dadd(74.806, 29.462, 23.857, 0.55)
pt3dadd(74.795, 29.343, 23.864, 0.512)
pt3dadd(74.784, 29.223, 23.872, 0.474)
pt3dadd(74.774, 29.104, 23.88, 0.436)
pt3dadd(74.763, 28.985, 23.888, 0.398)
pt3dadd(74.752, 28.866, 23.896, 0.362)
pt3dadd(74.742, 28.747, 23.904, 0.324)
pt3dadd(74.731, 28.628, 23.912, 0.286)
pt3dadd(74.72, 28.509, 23.92, 0.248)
pt3dadd(74.692, 28.394, 23.932, 0.248)
pt3dadd(74.655, 28.281, 23.945, 0.268)
pt3dadd(74.617, 28.168, 23.959, 0.29)
pt3dadd(74.58, 28.055, 23.972, 0.31)
pt3dadd(74.543, 27.942, 23.986, 0.33)
pt3dadd(74.505, 27.829, 24, 0.35)
pt3dadd(74.468, 27.716, 24.013, 0.372)
pt3dadd(74.431, 27.603, 24.027, 0.392)
pt3dadd(74.393, 27.491, 24.04, 0.412)
pt3dadd(74.356, 27.378, 24.054, 0.434)
pt3dadd(74.333, 27.269, 24.088, 0.426)
pt3dadd(74.318, 27.163, 24.133, 0.408)
pt3dadd(74.303, 27.057, 24.178, 0.388)
pt3dadd(74.288, 26.951, 24.223, 0.368)
pt3dadd(74.273, 26.845, 24.268, 0.348)
pt3dadd(74.258, 26.739, 24.313, 0.328)
pt3dadd(74.242, 26.632, 24.358, 0.308)
pt3dadd(74.227, 26.526, 24.403, 0.288)
pt3dadd(74.212, 26.42, 24.447, 0.27)
pt3dadd(74.197, 26.314, 24.492, 0.25)
pt3dadd(74.249, 26.231, 24.537, 0.242)
pt3dadd(74.328, 26.158, 24.581, 0.24)
pt3dadd(74.407, 26.085, 24.625, 0.238)
pt3dadd(74.486, 26.012, 24.669, 0.238)
pt3dadd(74.565, 25.939, 24.713, 0.236)
pt3dadd(74.645, 25.866, 24.757, 0.234)
pt3dadd(74.724, 25.793, 24.801, 0.232)
pt3dadd(74.803, 25.72, 24.845, 0.23)
pt3dadd(74.882, 25.647, 24.889, 0.228)
pt3dadd(74.962, 25.574, 24.933, 0.226)
}
dend_7[67] {pt3dclear()
pt3dadd(104.269, 77.439, 18.707, 1.13)
pt3dadd(104.28, 77.358, 18.73, 0.282)
pt3dadd(104.295, 77.246, 18.762, 0.358)
pt3dadd(104.31, 77.133, 18.794, 0.436)
pt3dadd(104.325, 77.02, 18.826, 0.512)
pt3dadd(104.34, 76.907, 18.858, 0.588)
pt3dadd(104.355, 76.795, 18.89, 0.666)
pt3dadd(104.37, 76.682, 18.922, 0.742)
pt3dadd(104.385, 76.569, 18.954, 0.82)
pt3dadd(104.4, 76.457, 18.986, 0.896)
pt3dadd(104.414, 76.344, 19.018, 0.974)
pt3dadd(104.466, 76.252, 19.045, 0.984)
pt3dadd(104.564, 76.188, 19.064, 0.908)
pt3dadd(104.662, 76.123, 19.084, 0.832)
pt3dadd(104.761, 76.058, 19.104, 0.756)
pt3dadd(104.859, 75.994, 19.123, 0.68)
pt3dadd(104.957, 75.929, 19.143, 0.602)
pt3dadd(105.056, 75.864, 19.162, 0.526)
pt3dadd(105.154, 75.8, 19.182, 0.45)
pt3dadd(105.252, 75.735, 19.201, 0.374)
pt3dadd(105.351, 75.671, 19.221, 0.298)
pt3dadd(105.414, 75.574, 19.248, 0.314)
pt3dadd(105.477, 75.478, 19.275, 0.33)
pt3dadd(105.54, 75.381, 19.303, 0.346)
pt3dadd(105.604, 75.284, 19.33, 0.36)
pt3dadd(105.667, 75.188, 19.357, 0.376)
pt3dadd(105.73, 75.091, 19.385, 0.392)
pt3dadd(105.793, 74.994, 19.412, 0.408)
pt3dadd(105.856, 74.898, 19.439, 0.424)
pt3dadd(105.919, 74.801, 19.467, 0.44)
pt3dadd(105.979, 74.705, 19.499, 0.45)
pt3dadd(106.028, 74.612, 19.548, 0.442)
pt3dadd(106.077, 74.52, 19.596, 0.432)
pt3dadd(106.126, 74.427, 19.644, 0.424)
pt3dadd(106.175, 74.334, 19.693, 0.416)
pt3dadd(106.224, 74.241, 19.741, 0.408)
pt3dadd(106.272, 74.148, 19.79, 0.398)
pt3dadd(106.321, 74.055, 19.838, 0.39)
pt3dadd(106.37, 73.962, 19.886, 0.382)
pt3dadd(106.419, 73.869, 19.934, 0.372)
pt3dadd(106.469, 73.771, 19.973, 0.362)
pt3dadd(106.521, 73.667, 19.997, 0.348)
pt3dadd(106.572, 73.563, 20.022, 0.334)
pt3dadd(106.624, 73.458, 20.046, 0.32)
pt3dadd(106.675, 73.354, 20.07, 0.304)
pt3dadd(106.727, 73.25, 20.095, 0.29)
pt3dadd(106.779, 73.145, 20.119, 0.276)
pt3dadd(106.83, 73.041, 20.143, 0.262)
pt3dadd(106.882, 72.936, 20.167, 0.248)
pt3dadd(106.933, 72.832, 20.192, 0.234)
pt3dadd(106.978, 72.724, 20.211, 0.226)
pt3dadd(107.015, 72.611, 20.224, 0.226)
pt3dadd(107.052, 72.497, 20.237, 0.226)
pt3dadd(107.089, 72.384, 20.25, 0.226)
pt3dadd(107.126, 72.271, 20.263, 0.226)
pt3dadd(107.162, 72.158, 20.277, 0.226)
pt3dadd(107.199, 72.045, 20.29, 0.226)
pt3dadd(107.236, 71.932, 20.303, 0.226)
pt3dadd(107.273, 71.819, 20.316, 0.226)
pt3dadd(107.31, 71.706, 20.329, 0.226)
pt3dadd(107.342, 71.591, 20.339, 0.226)
pt3dadd(107.369, 71.474, 20.347, 0.228)
pt3dadd(107.396, 71.358, 20.354, 0.228)
pt3dadd(107.423, 71.241, 20.361, 0.23)
pt3dadd(107.45, 71.124, 20.368, 0.23)
pt3dadd(107.477, 71.008, 20.375, 0.23)
pt3dadd(107.503, 70.891, 20.383, 0.232)
pt3dadd(107.53, 70.775, 20.39, 0.232)
pt3dadd(107.557, 70.658, 20.397, 0.234)
pt3dadd(107.584, 70.541, 20.404, 0.234)
pt3dadd(107.619, 70.428, 20.413, 0.26)
pt3dadd(107.664, 70.317, 20.425, 0.314)
pt3dadd(107.708, 70.206, 20.436, 0.368)
pt3dadd(107.753, 70.096, 20.448, 0.422)
pt3dadd(107.797, 69.985, 20.459, 0.474)
pt3dadd(107.841, 69.874, 20.47, 0.528)
pt3dadd(107.886, 69.764, 20.482, 0.582)
pt3dadd(107.93, 69.653, 20.493, 0.634)
pt3dadd(107.975, 69.542, 20.504, 0.688)
pt3dadd(108.019, 69.432, 20.515, 0.742)
pt3dadd(108.057, 69.322, 20.536, 0.762)
pt3dadd(108.089, 69.212, 20.567, 0.75)
pt3dadd(108.12, 69.102, 20.598, 0.738)
pt3dadd(108.152, 68.993, 20.629, 0.726)
pt3dadd(108.184, 68.883, 20.661, 0.712)
pt3dadd(108.215, 68.774, 20.692, 0.7)
pt3dadd(108.247, 68.664, 20.723, 0.688)
pt3dadd(108.278, 68.554, 20.754, 0.674)
pt3dadd(108.31, 68.445, 20.785, 0.662)
pt3dadd(108.342, 68.335, 20.816, 0.65)
pt3dadd(108.367, 68.224, 20.848, 0.638)
pt3dadd(108.388, 68.113, 20.88, 0.626)
pt3dadd(108.408, 68.001, 20.913, 0.616)
pt3dadd(108.429, 67.89, 20.945, 0.606)
pt3dadd(108.45, 67.778, 20.978, 0.594)
pt3dadd(108.471, 67.667, 21.011, 0.584)
pt3dadd(108.491, 67.555, 21.043, 0.572)
pt3dadd(108.512, 67.444, 21.076, 0.562)
pt3dadd(108.533, 67.332, 21.109, 0.55)
pt3dadd(108.553, 67.221, 21.141, 0.54)
pt3dadd(108.568, 67.106, 21.169, 0.538)
pt3dadd(108.578, 66.991, 21.193, 0.544)
pt3dadd(108.588, 66.875, 21.218, 0.55)
pt3dadd(108.599, 66.759, 21.243, 0.556)
pt3dadd(108.609, 66.643, 21.267, 0.562)
pt3dadd(108.62, 66.527, 21.292, 0.566)
pt3dadd(108.63, 66.411, 21.316, 0.572)
pt3dadd(108.64, 66.295, 21.341, 0.578)
pt3dadd(108.651, 66.18, 21.365, 0.584)
pt3dadd(108.661, 66.064, 21.39, 0.59)
pt3dadd(108.665, 65.946, 21.41, 0.57)
pt3dadd(108.666, 65.828, 21.428, 0.532)
pt3dadd(108.667, 65.71, 21.446, 0.496)
pt3dadd(108.668, 65.592, 21.464, 0.46)
pt3dadd(108.669, 65.474, 21.481, 0.422)
pt3dadd(108.669, 65.356, 21.499, 0.386)
pt3dadd(108.67, 65.238, 21.517, 0.35)
pt3dadd(108.671, 65.12, 21.535, 0.314)
pt3dadd(108.672, 65.002, 21.552, 0.276)
pt3dadd(108.673, 64.884, 21.57, 0.24)
pt3dadd(108.674, 64.765, 21.584, 0.226)
pt3dadd(108.676, 64.646, 21.596, 0.226)
pt3dadd(108.678, 64.527, 21.608, 0.226)
pt3dadd(108.679, 64.407, 21.62, 0.226)
pt3dadd(108.681, 64.288, 21.632, 0.226)
pt3dadd(108.683, 64.169, 21.644, 0.226)
pt3dadd(108.684, 64.05, 21.655, 0.226)
pt3dadd(108.686, 63.931, 21.667, 0.226)
pt3dadd(108.688, 63.812, 21.679, 0.226)
pt3dadd(108.689, 63.693, 21.691, 0.226)
pt3dadd(108.692, 63.577, 21.717, 0.236)
pt3dadd(108.695, 63.465, 21.751, 0.252)
pt3dadd(108.698, 63.352, 21.785, 0.266)
pt3dadd(108.701, 63.239, 21.819, 0.282)
pt3dadd(108.704, 63.127, 21.854, 0.298)
pt3dadd(108.707, 63.014, 21.888, 0.312)
pt3dadd(108.71, 62.901, 21.922, 0.328)
pt3dadd(108.713, 62.788, 21.956, 0.344)
pt3dadd(108.716, 62.676, 21.99, 0.36)
pt3dadd(108.719, 62.563, 22.025, 0.374)
pt3dadd(108.724, 62.449, 22.056, 0.392)
pt3dadd(108.73, 62.335, 22.087, 0.41)
pt3dadd(108.737, 62.221, 22.117, 0.428)
pt3dadd(108.743, 62.107, 22.147, 0.448)
pt3dadd(108.749, 61.993, 22.178, 0.466)
pt3dadd(108.755, 61.878, 22.208, 0.484)
pt3dadd(108.762, 61.764, 22.238, 0.502)
pt3dadd(108.768, 61.65, 22.269, 0.52)
pt3dadd(108.774, 61.536, 22.299, 0.538)
pt3dadd(108.78, 61.422, 22.329, 0.558)
pt3dadd(108.79, 61.306, 22.353, 0.566)
pt3dadd(108.8, 61.189, 22.374, 0.57)
pt3dadd(108.811, 61.072, 22.395, 0.574)
pt3dadd(108.821, 60.955, 22.416, 0.578)
pt3dadd(108.832, 60.838, 22.437, 0.582)
pt3dadd(108.843, 60.721, 22.458, 0.588)
pt3dadd(108.853, 60.604, 22.479, 0.592)
pt3dadd(108.864, 60.488, 22.499, 0.596)
pt3dadd(108.874, 60.371, 22.52, 0.6)
pt3dadd(108.885, 60.254, 22.541, 0.604)
}
}
proc shape3d_189() {
dend_7[67] { pt3dadd(108.902, 60.137, 22.556, 0.594)
pt3dadd(108.923, 60.019, 22.569, 0.58)
pt3dadd(108.943, 59.902, 22.581, 0.564)
pt3dadd(108.963, 59.785, 22.594, 0.548)
pt3dadd(108.983, 59.667, 22.606, 0.532)
pt3dadd(109.004, 59.55, 22.619, 0.518)
pt3dadd(109.024, 59.433, 22.631, 0.502)
pt3dadd(109.044, 59.315, 22.644, 0.486)
pt3dadd(109.065, 59.198, 22.656, 0.47)
pt3dadd(109.085, 59.081, 22.669, 0.456)
pt3dadd(109.124, 58.968, 22.677, 0.452)
pt3dadd(109.169, 58.857, 22.683, 0.452)
pt3dadd(109.214, 58.746, 22.69, 0.452)
pt3dadd(109.259, 58.635, 22.696, 0.452)
pt3dadd(109.304, 58.524, 22.703, 0.452)
pt3dadd(109.349, 58.413, 22.71, 0.452)
pt3dadd(109.394, 58.303, 22.716, 0.452)
pt3dadd(109.439, 58.192, 22.723, 0.452)
pt3dadd(109.484, 58.081, 22.73, 0.452)
pt3dadd(109.529, 57.97, 22.736, 0.452)
pt3dadd(109.563, 57.856, 22.747, 0.438)
pt3dadd(109.595, 57.741, 22.758, 0.422)
pt3dadd(109.626, 57.625, 22.769, 0.404)
pt3dadd(109.657, 57.51, 22.78, 0.388)
pt3dadd(109.688, 57.395, 22.791, 0.37)
pt3dadd(109.72, 57.28, 22.802, 0.352)
pt3dadd(109.751, 57.165, 22.813, 0.336)
pt3dadd(109.782, 57.05, 22.825, 0.318)
pt3dadd(109.813, 56.935, 22.836, 0.3)
pt3dadd(109.844, 56.82, 22.847, 0.284)
pt3dadd(109.867, 56.706, 22.873, 0.286)
pt3dadd(109.887, 56.594, 22.903, 0.292)
pt3dadd(109.906, 56.481, 22.933, 0.3)
pt3dadd(109.926, 56.369, 22.964, 0.308)
pt3dadd(109.946, 56.256, 22.994, 0.314)
pt3dadd(109.965, 56.143, 23.024, 0.322)
pt3dadd(109.985, 56.031, 23.054, 0.33)
pt3dadd(110.005, 55.918, 23.085, 0.336)
pt3dadd(110.025, 55.805, 23.115, 0.344)
pt3dadd(110.044, 55.692, 23.145, 0.352)
pt3dadd(110.057, 55.58, 23.177, 0.354)
pt3dadd(110.069, 55.467, 23.209, 0.356)
pt3dadd(110.081, 55.354, 23.241, 0.358)
pt3dadd(110.093, 55.241, 23.274, 0.36)
pt3dadd(110.105, 55.128, 23.306, 0.36)
pt3dadd(110.117, 55.015, 23.338, 0.362)
pt3dadd(110.129, 54.902, 23.371, 0.364)
pt3dadd(110.141, 54.789, 23.403, 0.366)
pt3dadd(110.153, 54.676, 23.435, 0.368)
pt3dadd(110.165, 54.563, 23.467, 0.37)
pt3dadd(110.174, 54.447, 23.491, 0.358)
pt3dadd(110.183, 54.33, 23.514, 0.344)
pt3dadd(110.192, 54.214, 23.537, 0.328)
pt3dadd(110.201, 54.097, 23.56, 0.314)
pt3dadd(110.209, 53.981, 23.583, 0.3)
pt3dadd(110.218, 53.864, 23.605, 0.286)
pt3dadd(110.227, 53.748, 23.628, 0.27)
pt3dadd(110.236, 53.631, 23.651, 0.256)
pt3dadd(110.245, 53.515, 23.674, 0.242)
pt3dadd(110.254, 53.398, 23.697, 0.228)
pt3dadd(110.268, 53.281, 23.712, 0.226)
pt3dadd(110.282, 53.163, 23.725, 0.228)
pt3dadd(110.296, 53.045, 23.739, 0.228)
pt3dadd(110.31, 52.927, 23.753, 0.228)
pt3dadd(110.325, 52.809, 23.767, 0.23)
pt3dadd(110.339, 52.691, 23.781, 0.23)
pt3dadd(110.353, 52.573, 23.795, 0.232)
pt3dadd(110.368, 52.455, 23.808, 0.232)
pt3dadd(110.382, 52.337, 23.822, 0.232)
pt3dadd(110.396, 52.219, 23.836, 0.234)
pt3dadd(110.437, 52.107, 23.844, 0.25)
pt3dadd(110.481, 51.995, 23.851, 0.268)
pt3dadd(110.524, 51.884, 23.858, 0.286)
pt3dadd(110.568, 51.772, 23.866, 0.304)
pt3dadd(110.611, 51.661, 23.873, 0.322)
pt3dadd(110.654, 51.549, 23.88, 0.34)
pt3dadd(110.698, 51.438, 23.887, 0.358)
pt3dadd(110.741, 51.326, 23.895, 0.376)
pt3dadd(110.785, 51.215, 23.902, 0.394)
pt3dadd(110.828, 51.103, 23.909, 0.412)
pt3dadd(110.858, 50.988, 23.92, 0.418)
pt3dadd(110.886, 50.872, 23.932, 0.422)
pt3dadd(110.914, 50.756, 23.944, 0.426)
pt3dadd(110.943, 50.64, 23.956, 0.43)
pt3dadd(110.971, 50.525, 23.968, 0.434)
pt3dadd(110.999, 50.409, 23.98, 0.436)
pt3dadd(111.027, 50.293, 23.992, 0.44)
pt3dadd(111.056, 50.177, 24.003, 0.444)
pt3dadd(111.084, 50.062, 24.015, 0.448)
pt3dadd(111.112, 49.946, 24.027, 0.452)
pt3dadd(111.127, 49.832, 24.056, 0.442)
pt3dadd(111.142, 49.719, 24.086, 0.43)
pt3dadd(111.156, 49.605, 24.116, 0.42)
pt3dadd(111.17, 49.491, 24.146, 0.408)
pt3dadd(111.185, 49.378, 24.176, 0.398)
pt3dadd(111.199, 49.264, 24.206, 0.386)
pt3dadd(111.213, 49.151, 24.236, 0.376)
pt3dadd(111.228, 49.037, 24.266, 0.364)
pt3dadd(111.242, 48.924, 24.296, 0.354)
pt3dadd(111.255, 48.81, 24.327, 0.342)
pt3dadd(111.248, 48.7, 24.365, 0.33)
pt3dadd(111.241, 48.589, 24.403, 0.318)
pt3dadd(111.234, 48.478, 24.441, 0.306)
pt3dadd(111.227, 48.367, 24.479, 0.294)
pt3dadd(111.22, 48.256, 24.517, 0.282)
pt3dadd(111.213, 48.146, 24.555, 0.27)
pt3dadd(111.206, 48.035, 24.593, 0.26)
pt3dadd(111.199, 47.924, 24.631, 0.248)
pt3dadd(111.192, 47.813, 24.669, 0.236)
pt3dadd(111.181, 47.702, 24.705, 0.226)
pt3dadd(111.157, 47.591, 24.737, 0.226)
pt3dadd(111.132, 47.48, 24.768, 0.226)
pt3dadd(111.107, 47.369, 24.799, 0.226)
pt3dadd(111.083, 47.257, 24.831, 0.226)
pt3dadd(111.058, 47.146, 24.862, 0.226)
pt3dadd(111.034, 47.035, 24.893, 0.226)
pt3dadd(111.009, 46.923, 24.925, 0.226)
pt3dadd(110.985, 46.812, 24.956, 0.226)
pt3dadd(110.96, 46.701, 24.987, 0.226)
pt3dadd(110.951, 46.589, 25.018, 0.226)
pt3dadd(110.972, 46.476, 25.046, 0.228)
pt3dadd(110.993, 46.363, 25.075, 0.23)
pt3dadd(111.014, 46.25, 25.103, 0.232)
pt3dadd(111.035, 46.137, 25.132, 0.234)
pt3dadd(111.056, 46.024, 25.161, 0.236)
pt3dadd(111.077, 45.911, 25.189, 0.238)
pt3dadd(111.098, 45.798, 25.218, 0.24)
pt3dadd(111.119, 45.685, 25.247, 0.24)
pt3dadd(111.14, 45.572, 25.275, 0.242)
pt3dadd(111.162, 45.464, 25.313, 0.252)
pt3dadd(111.186, 45.366, 25.368, 0.272)
pt3dadd(111.21, 45.269, 25.422, 0.294)
pt3dadd(111.233, 45.171, 25.477, 0.314)
pt3dadd(111.257, 45.073, 25.531, 0.336)
pt3dadd(111.28, 44.975, 25.586, 0.356)
pt3dadd(111.304, 44.877, 25.64, 0.376)
pt3dadd(111.328, 44.779, 25.694, 0.398)
pt3dadd(111.351, 44.682, 25.749, 0.418)
pt3dadd(111.375, 44.584, 25.803, 0.44)
pt3dadd(111.397, 44.481, 25.851, 0.452)
pt3dadd(111.415, 44.371, 25.888, 0.452)
pt3dadd(111.434, 44.261, 25.925, 0.452)
pt3dadd(111.453, 44.152, 25.962, 0.452)
pt3dadd(111.472, 44.042, 26, 0.452)
pt3dadd(111.491, 43.932, 26.037, 0.452)
pt3dadd(111.51, 43.822, 26.074, 0.452)
pt3dadd(111.529, 43.713, 26.111, 0.452)
pt3dadd(111.548, 43.603, 26.149, 0.452)
pt3dadd(111.566, 43.493, 26.186, 0.452)
pt3dadd(111.582, 43.381, 26.22, 0.452)
pt3dadd(111.593, 43.267, 26.249, 0.452)
pt3dadd(111.604, 43.153, 26.279, 0.452)
pt3dadd(111.615, 43.039, 26.308, 0.452)
pt3dadd(111.627, 42.925, 26.338, 0.452)
pt3dadd(111.638, 42.811, 26.367, 0.452)
pt3dadd(111.649, 42.697, 26.396, 0.452)
pt3dadd(111.66, 42.582, 26.426, 0.452)
pt3dadd(111.671, 42.468, 26.455, 0.452)
pt3dadd(111.683, 42.354, 26.485, 0.452)
pt3dadd(111.696, 42.243, 26.52, 0.452)
pt3dadd(111.711, 42.135, 26.562, 0.452)
pt3dadd(111.726, 42.028, 26.605, 0.452)
pt3dadd(111.742, 41.92, 26.647, 0.452)
pt3dadd(111.757, 41.812, 26.689, 0.452)
pt3dadd(111.772, 41.705, 26.732, 0.452)
pt3dadd(111.788, 41.597, 26.774, 0.452)
pt3dadd(111.803, 41.49, 26.816, 0.452)
pt3dadd(111.819, 41.382, 26.858, 0.452)
pt3dadd(111.834, 41.274, 26.901, 0.452)
pt3dadd(111.861, 41.168, 26.939, 0.452)
pt3dadd(111.903, 41.063, 26.973, 0.452)
pt3dadd(111.945, 40.958, 27.006, 0.452)
pt3dadd(111.988, 40.853, 27.04, 0.452)
pt3dadd(112.03, 40.748, 27.074, 0.452)
pt3dadd(112.072, 40.644, 27.107, 0.452)
pt3dadd(112.114, 40.539, 27.141, 0.452)
pt3dadd(112.156, 40.434, 27.175, 0.452)
pt3dadd(112.198, 40.329, 27.208, 0.452)
pt3dadd(112.241, 40.224, 27.242, 0.452)
pt3dadd(112.283, 40.12, 27.277, 0.452)
pt3dadd(112.325, 40.017, 27.314, 0.452)
pt3dadd(112.368, 39.914, 27.352, 0.452)
pt3dadd(112.41, 39.811, 27.389, 0.452)
pt3dadd(112.452, 39.708, 27.426, 0.452)
pt3dadd(112.495, 39.605, 27.463, 0.452)
pt3dadd(112.537, 39.502, 27.5, 0.452)
pt3dadd(112.579, 39.399, 27.538, 0.452)
pt3dadd(112.622, 39.296, 27.575, 0.452)
pt3dadd(112.664, 39.193, 27.612, 0.452)
pt3dadd(112.704, 39.09, 27.652, 0.452)
pt3dadd(112.74, 38.988, 27.694, 0.45)
pt3dadd(112.777, 38.885, 27.736, 0.448)
pt3dadd(112.814, 38.783, 27.778, 0.448)
pt3dadd(112.851, 38.68, 27.82, 0.446)
pt3dadd(112.888, 38.578, 27.862, 0.444)
pt3dadd(112.924, 38.475, 27.904, 0.442)
pt3dadd(112.961, 38.373, 27.946, 0.442)
pt3dadd(112.998, 38.271, 27.988, 0.44)
pt3dadd(113.035, 38.168, 28.03, 0.438)
pt3dadd(113.079, 38.064, 28.061, 0.428)
}
}
proc shape3d_190() {
dend_7[67] { pt3dadd(113.129, 37.958, 28.083, 0.412)
pt3dadd(113.178, 37.852, 28.106, 0.394)
pt3dadd(113.228, 37.746, 28.128, 0.378)
pt3dadd(113.278, 37.64, 28.151, 0.36)
pt3dadd(113.327, 37.534, 28.173, 0.344)
pt3dadd(113.377, 37.428, 28.195, 0.326)
pt3dadd(113.427, 37.323, 28.218, 0.31)
pt3dadd(113.476, 37.217, 28.24, 0.292)
pt3dadd(113.526, 37.111, 28.262, 0.276)
pt3dadd(113.565, 37, 28.28, 0.266)
pt3dadd(113.595, 36.885, 28.295, 0.262)
pt3dadd(113.625, 36.77, 28.31, 0.256)
pt3dadd(113.655, 36.655, 28.325, 0.252)
pt3dadd(113.685, 36.541, 28.339, 0.248)
pt3dadd(113.716, 36.426, 28.354, 0.244)
pt3dadd(113.746, 36.311, 28.369, 0.24)
pt3dadd(113.776, 36.196, 28.384, 0.236)
pt3dadd(113.806, 36.082, 28.398, 0.232)
pt3dadd(113.836, 35.967, 28.413, 0.228)
pt3dadd(113.847, 35.849, 28.423, 0.24)
pt3dadd(113.846, 35.729, 28.43, 0.26)
pt3dadd(113.845, 35.61, 28.437, 0.282)
pt3dadd(113.844, 35.49, 28.445, 0.304)
pt3dadd(113.843, 35.37, 28.452, 0.326)
pt3dadd(113.842, 35.25, 28.459, 0.346)
pt3dadd(113.841, 35.131, 28.466, 0.368)
pt3dadd(113.84, 35.011, 28.473, 0.39)
pt3dadd(113.839, 34.891, 28.48, 0.412)
pt3dadd(113.838, 34.772, 28.487, 0.432)
pt3dadd(113.833, 34.652, 28.492, 0.444)
pt3dadd(113.827, 34.532, 28.497, 0.456)
pt3dadd(113.82, 34.413, 28.501, 0.466)
pt3dadd(113.814, 34.293, 28.505, 0.476)
pt3dadd(113.808, 34.173, 28.51, 0.486)
pt3dadd(113.801, 34.053, 28.514, 0.496)
pt3dadd(113.795, 33.934, 28.519, 0.506)
pt3dadd(113.789, 33.814, 28.523, 0.518)
pt3dadd(113.782, 33.694, 28.527, 0.528)
pt3dadd(113.776, 33.575, 28.532, 0.538)
pt3dadd(113.792, 33.456, 28.539, 0.516)
pt3dadd(113.81, 33.338, 28.547, 0.492)
pt3dadd(113.828, 33.219, 28.555, 0.468)
pt3dadd(113.845, 33.101, 28.563, 0.442)
pt3dadd(113.863, 32.983, 28.57, 0.418)
pt3dadd(113.881, 32.865, 28.578, 0.394)
pt3dadd(113.899, 32.746, 28.586, 0.37)
pt3dadd(113.916, 32.628, 28.594, 0.346)
pt3dadd(113.934, 32.51, 28.601, 0.32)
pt3dadd(113.952, 32.391, 28.609, 0.296)
pt3dadd(113.968, 32.273, 28.62, 0.33)
pt3dadd(113.984, 32.155, 28.632, 0.368)
pt3dadd(114, 32.037, 28.643, 0.406)
pt3dadd(114.016, 31.919, 28.655, 0.444)
pt3dadd(114.033, 31.801, 28.666, 0.482)
pt3dadd(114.049, 31.683, 28.678, 0.52)
pt3dadd(114.065, 31.565, 28.689, 0.558)
pt3dadd(114.081, 31.446, 28.701, 0.596)
pt3dadd(114.097, 31.328, 28.712, 0.636)
pt3dadd(114.113, 31.21, 28.724, 0.674)
pt3dadd(114.126, 31.099, 28.759, 0.642)
pt3dadd(114.138, 30.988, 28.796, 0.608)
pt3dadd(114.15, 30.877, 28.833, 0.572)
pt3dadd(114.163, 30.766, 28.87, 0.536)
pt3dadd(114.175, 30.656, 28.907, 0.502)
pt3dadd(114.187, 30.545, 28.944, 0.466)
pt3dadd(114.2, 30.434, 28.981, 0.43)
pt3dadd(114.212, 30.323, 29.017, 0.396)
pt3dadd(114.224, 30.212, 29.054, 0.36)
pt3dadd(114.237, 30.101, 29.091, 0.324)
pt3dadd(114.241, 29.986, 29.12, 0.314)
pt3dadd(114.244, 29.871, 29.148, 0.304)
pt3dadd(114.247, 29.756, 29.175, 0.294)
pt3dadd(114.251, 29.641, 29.203, 0.284)
pt3dadd(114.254, 29.526, 29.231, 0.274)
pt3dadd(114.258, 29.41, 29.259, 0.266)
pt3dadd(114.261, 29.295, 29.286, 0.256)
pt3dadd(114.264, 29.18, 29.314, 0.246)
pt3dadd(114.268, 29.065, 29.342, 0.236)
pt3dadd(114.271, 28.949, 29.37, 0.226)
pt3dadd(114.271, 28.831, 29.387, 0.246)
pt3dadd(114.271, 28.713, 29.405, 0.266)
pt3dadd(114.271, 28.595, 29.422, 0.288)
pt3dadd(114.271, 28.477, 29.439, 0.308)
pt3dadd(114.271, 28.358, 29.456, 0.33)
pt3dadd(114.271, 28.24, 29.473, 0.35)
pt3dadd(114.271, 28.122, 29.491, 0.372)
pt3dadd(114.271, 28.004, 29.508, 0.392)
pt3dadd(114.271, 27.886, 29.525, 0.412)
pt3dadd(114.271, 27.767, 29.542, 0.434)
pt3dadd(114.271, 27.648, 29.549, 0.45)
pt3dadd(114.271, 27.528, 29.556, 0.466)
pt3dadd(114.271, 27.408, 29.564, 0.484)
pt3dadd(114.271, 27.289, 29.57, 0.5)
pt3dadd(114.271, 27.169, 29.578, 0.516)
pt3dadd(114.271, 27.049, 29.585, 0.534)
pt3dadd(114.271, 26.93, 29.592, 0.55)
pt3dadd(114.271, 26.81, 29.599, 0.566)
pt3dadd(114.271, 26.69, 29.606, 0.584)
pt3dadd(114.271, 26.57, 29.613, 0.6)
pt3dadd(114.271, 26.45, 29.613, 0.596)
pt3dadd(114.271, 26.33, 29.613, 0.592)
pt3dadd(114.271, 26.21, 29.613, 0.586)
pt3dadd(114.271, 26.09, 29.613, 0.582)
pt3dadd(114.271, 25.97, 29.613, 0.578)
pt3dadd(114.271, 25.85, 29.613, 0.574)
pt3dadd(114.271, 25.73, 29.613, 0.57)
pt3dadd(114.271, 25.61, 29.613, 0.564)
pt3dadd(114.271, 25.49, 29.613, 0.56)
pt3dadd(114.271, 25.37, 29.613, 0.556)
pt3dadd(114.271, 25.25, 29.613, 0.59)
pt3dadd(114.271, 25.13, 29.613, 0.626)
pt3dadd(114.271, 25.01, 29.613, 0.66)
pt3dadd(114.271, 24.89, 29.613, 0.696)
pt3dadd(114.271, 24.77, 29.613, 0.73)
pt3dadd(114.271, 24.65, 29.613, 0.764)
pt3dadd(114.271, 24.53, 29.613, 0.8)
pt3dadd(114.271, 24.41, 29.613, 0.834)
pt3dadd(114.271, 24.29, 29.613, 0.87)
pt3dadd(114.271, 24.17, 29.613, 0.904)
}
dend_0[13] {pt3dclear()
pt3dadd(103.04, 99.982, 14.404, 10.622)
pt3dadd(103.04, 99.962, 14.42, 10.592)
pt3dadd(103.04, 99.877, 14.491, 10.47)
pt3dadd(103.04, 99.792, 14.562, 10.346)
pt3dadd(103.04, 99.707, 14.633, 10.224)
pt3dadd(103.04, 99.622, 14.703, 10.1)
pt3dadd(103.04, 99.537, 14.774, 9.978)
pt3dadd(103.04, 99.453, 14.845, 9.854)
pt3dadd(103.04, 99.368, 14.915, 9.732)
pt3dadd(103.04, 99.283, 14.986, 9.61)
pt3dadd(103.04, 99.198, 15.057, 9.486)
pt3dadd(103.04, 99.113, 15.128, 9.364)
pt3dadd(103.04, 99.028, 15.198, 9.24)
pt3dadd(103.04, 98.943, 15.269, 9.118)
pt3dadd(103.04, 98.859, 15.34, 8.994)
pt3dadd(103.041, 98.774, 15.411, 8.862)
pt3dadd(103.043, 98.69, 15.482, 8.73)
pt3dadd(103.044, 98.606, 15.554, 8.598)
pt3dadd(103.045, 98.522, 15.625, 8.464)
pt3dadd(103.046, 98.438, 15.696, 8.332)
pt3dadd(103.047, 98.354, 15.768, 8.198)
pt3dadd(103.049, 98.27, 15.839, 8.066)
pt3dadd(103.05, 98.186, 15.91, 7.934)
pt3dadd(103.051, 98.101, 15.982, 7.8)
pt3dadd(103.052, 98.017, 16.053, 7.668)
pt3dadd(103.054, 97.933, 16.124, 7.53)
pt3dadd(103.056, 97.85, 16.196, 7.394)
pt3dadd(103.057, 97.766, 16.267, 7.256)
pt3dadd(103.059, 97.682, 16.339, 7.118)
pt3dadd(103.061, 97.598, 16.41, 6.982)
pt3dadd(103.062, 97.514, 16.482, 6.844)
pt3dadd(103.064, 97.43, 16.554, 6.706)
pt3dadd(103.066, 97.347, 16.625, 6.57)
pt3dadd(103.067, 97.263, 16.696, 6.432)
pt3dadd(103.069, 97.179, 16.768, 6.294)
pt3dadd(103.071, 97.095, 16.84, 6.154)
pt3dadd(103.074, 97.012, 16.912, 6.012)
pt3dadd(103.076, 96.929, 16.984, 5.872)
pt3dadd(103.079, 96.845, 17.056, 5.73)
pt3dadd(103.081, 96.762, 17.127, 5.59)
pt3dadd(103.083, 96.678, 17.199, 5.448)
pt3dadd(103.086, 96.595, 17.271, 5.308)
pt3dadd(103.088, 96.512, 17.343, 5.168)
pt3dadd(103.091, 96.428, 17.415, 5.026)
pt3dadd(103.093, 96.345, 17.487, 4.884)
pt3dadd(103.096, 96.262, 17.559, 4.764)
pt3dadd(103.1, 96.18, 17.632, 4.648)
pt3dadd(103.104, 96.097, 17.705, 4.53)
pt3dadd(103.108, 96.015, 17.777, 4.412)
pt3dadd(103.111, 95.932, 17.85, 4.296)
pt3dadd(103.115, 95.85, 17.922, 4.178)
pt3dadd(103.119, 95.768, 17.995, 4.06)
pt3dadd(103.122, 95.685, 18.067, 3.942)
pt3dadd(103.126, 95.603, 18.14, 3.826)
pt3dadd(103.13, 95.52, 18.212, 3.708)
pt3dadd(103.135, 95.439, 18.286, 3.618)
pt3dadd(103.141, 95.357, 18.359, 3.532)
pt3dadd(103.146, 95.276, 18.432, 3.446)
pt3dadd(103.152, 95.194, 18.506, 3.36)
pt3dadd(103.157, 95.113, 18.579, 3.274)
pt3dadd(103.163, 95.032, 18.653, 3.188)
pt3dadd(103.168, 94.95, 18.726, 3.102)
pt3dadd(103.174, 94.869, 18.799, 3.016)
pt3dadd(103.179, 94.788, 18.873, 2.93)
pt3dadd(103.185, 94.706, 18.946, 2.844)
pt3dadd(103.193, 94.627, 19.021, 2.79)
pt3dadd(103.202, 94.548, 19.095, 2.74)
pt3dadd(103.211, 94.468, 19.17, 2.688)
pt3dadd(103.219, 94.389, 19.245, 2.638)
}
dend_7[68] {pt3dclear()
pt3dadd(103.219, 94.389, 19.245, 2.638)
pt3dadd(103.228, 94.31, 19.32, 2.588)
pt3dadd(103.236, 94.231, 19.395, 2.538)
pt3dadd(103.245, 94.152, 19.469, 2.486)
pt3dadd(103.254, 94.072, 19.544, 2.436)
pt3dadd(103.262, 93.993, 19.619, 2.386)
pt3dadd(103.271, 93.914, 19.694, 2.336)
pt3dadd(103.289, 93.842, 19.772, 2.304)
pt3dadd(103.308, 93.77, 19.851, 2.274)
pt3dadd(103.327, 93.698, 19.929, 2.244)
pt3dadd(103.346, 93.627, 20.008, 2.214)
pt3dadd(103.365, 93.555, 20.086, 2.184)
}
}
proc shape3d_191() {
dend_7[68] { pt3dadd(103.384, 93.483, 20.165, 2.154)
pt3dadd(103.403, 93.412, 20.244, 2.124)
pt3dadd(103.422, 93.34, 20.322, 2.094)
pt3dadd(103.441, 93.269, 20.401, 2.064)
pt3dadd(103.46, 93.197, 20.48, 2.034)
pt3dadd(103.498, 93.142, 20.563, 2.034)
pt3dadd(103.536, 93.087, 20.646, 2.034)
pt3dadd(103.575, 93.032, 20.729, 2.034)
pt3dadd(103.613, 92.976, 20.812, 2.034)
pt3dadd(103.651, 92.921, 20.895, 2.034)
pt3dadd(103.689, 92.866, 20.977, 2.034)
pt3dadd(103.727, 92.811, 21.06, 2.034)
pt3dadd(103.765, 92.756, 21.143, 2.034)
pt3dadd(103.803, 92.701, 21.226, 2.034)
pt3dadd(103.841, 92.646, 21.309, 2.034)
}
dend_7[69] {pt3dclear()
pt3dadd(103.841, 92.646, 21.309, 2.034)
pt3dadd(103.848, 92.615, 21.346, 2.034)
pt3dadd(103.866, 92.546, 21.426, 2.034)
pt3dadd(103.883, 92.477, 21.507, 2.034)
pt3dadd(103.9, 92.408, 21.587, 2.034)
pt3dadd(103.918, 92.339, 21.668, 2.034)
pt3dadd(103.935, 92.27, 21.749, 2.034)
pt3dadd(103.952, 92.201, 21.829, 2.034)
pt3dadd(103.969, 92.132, 21.91, 2.034)
pt3dadd(103.987, 92.063, 21.99, 2.034)
pt3dadd(104.004, 91.994, 22.071, 2.034)
pt3dadd(104.016, 91.927, 22.153, 2.02)
pt3dadd(104.016, 91.863, 22.237, 1.972)
pt3dadd(104.016, 91.799, 22.322, 1.926)
pt3dadd(104.016, 91.734, 22.406, 1.878)
pt3dadd(104.016, 91.67, 22.491, 1.83)
pt3dadd(104.017, 91.606, 22.575, 1.784)
pt3dadd(104.017, 91.542, 22.66, 1.736)
pt3dadd(104.017, 91.478, 22.744, 1.688)
pt3dadd(104.017, 91.414, 22.829, 1.642)
pt3dadd(104.017, 91.35, 22.913, 1.594)
pt3dadd(104.001, 91.278, 22.988, 1.556)
pt3dadd(103.954, 91.192, 23.047, 1.534)
pt3dadd(103.907, 91.107, 23.105, 1.512)
pt3dadd(103.86, 91.021, 23.163, 1.49)
pt3dadd(103.813, 90.936, 23.222, 1.468)
pt3dadd(103.766, 90.85, 23.28, 1.446)
pt3dadd(103.719, 90.765, 23.338, 1.424)
pt3dadd(103.673, 90.679, 23.396, 1.402)
pt3dadd(103.626, 90.594, 23.455, 1.38)
pt3dadd(103.579, 90.508, 23.513, 1.358)
pt3dadd(103.521, 90.411, 23.545, 1.356)
pt3dadd(103.463, 90.313, 23.575, 1.356)
pt3dadd(103.404, 90.214, 23.604, 1.356)
pt3dadd(103.345, 90.115, 23.633, 1.356)
pt3dadd(103.286, 90.017, 23.662, 1.356)
pt3dadd(103.228, 89.918, 23.691, 1.356)
pt3dadd(103.169, 89.82, 23.72, 1.356)
pt3dadd(103.11, 89.721, 23.75, 1.356)
pt3dadd(103.051, 89.622, 23.779, 1.356)
pt3dadd(102.993, 89.524, 23.808, 1.356)
pt3dadd(102.929, 89.424, 23.824, 1.338)
pt3dadd(102.865, 89.324, 23.84, 1.32)
pt3dadd(102.801, 89.225, 23.855, 1.302)
pt3dadd(102.737, 89.125, 23.871, 1.284)
pt3dadd(102.673, 89.025, 23.887, 1.266)
pt3dadd(102.609, 88.925, 23.902, 1.248)
pt3dadd(102.545, 88.825, 23.918, 1.228)
pt3dadd(102.481, 88.726, 23.933, 1.21)
pt3dadd(102.417, 88.626, 23.949, 1.192)
pt3dadd(102.353, 88.526, 23.965, 1.174)
}
dend_7[70] {pt3dclear()
pt3dadd(102.353, 88.526, 23.965, 1.174)
pt3dadd(102.337, 88.507, 23.969, 1.166)
pt3dadd(102.262, 88.416, 23.991, 1.132)
pt3dadd(102.188, 88.326, 24.013, 1.098)
pt3dadd(102.113, 88.236, 24.035, 1.064)
pt3dadd(102.039, 88.146, 24.057, 1.03)
pt3dadd(101.964, 88.055, 24.08, 0.996)
pt3dadd(101.89, 87.965, 24.101, 0.962)
pt3dadd(101.815, 87.875, 24.124, 0.928)
pt3dadd(101.741, 87.784, 24.146, 0.894)
pt3dadd(101.666, 87.694, 24.168, 0.86)
pt3dadd(101.589, 87.612, 24.198, 0.836)
pt3dadd(101.506, 87.542, 24.241, 0.826)
pt3dadd(101.424, 87.472, 24.284, 0.816)
pt3dadd(101.341, 87.401, 24.327, 0.808)
pt3dadd(101.259, 87.331, 24.37, 0.798)
pt3dadd(101.176, 87.261, 24.413, 0.79)
pt3dadd(101.094, 87.19, 24.456, 0.78)
pt3dadd(101.011, 87.12, 24.499, 0.77)
pt3dadd(100.929, 87.05, 24.542, 0.762)
pt3dadd(100.846, 86.98, 24.585, 0.752)
pt3dadd(100.754, 86.916, 24.618, 0.754)
pt3dadd(100.652, 86.859, 24.641, 0.764)
pt3dadd(100.55, 86.801, 24.664, 0.776)
pt3dadd(100.449, 86.744, 24.687, 0.786)
pt3dadd(100.347, 86.686, 24.711, 0.796)
pt3dadd(100.246, 86.629, 24.734, 0.808)
pt3dadd(100.144, 86.572, 24.757, 0.818)
pt3dadd(100.042, 86.514, 24.78, 0.828)
pt3dadd(99.941, 86.457, 24.804, 0.84)
pt3dadd(99.839, 86.399, 24.827, 0.85)
pt3dadd(99.729, 86.36, 24.842, 0.846)
pt3dadd(99.613, 86.332, 24.853, 0.83)
pt3dadd(99.497, 86.304, 24.863, 0.816)
pt3dadd(99.381, 86.276, 24.874, 0.8)
pt3dadd(99.265, 86.248, 24.884, 0.786)
pt3dadd(99.149, 86.22, 24.895, 0.772)
pt3dadd(99.033, 86.191, 24.905, 0.756)
pt3dadd(98.917, 86.163, 24.916, 0.742)
pt3dadd(98.801, 86.135, 24.927, 0.728)
pt3dadd(98.685, 86.107, 24.937, 0.712)
pt3dadd(98.567, 86.089, 24.941, 0.72)
pt3dadd(98.447, 86.078, 24.942, 0.74)
pt3dadd(98.328, 86.066, 24.943, 0.758)
pt3dadd(98.208, 86.055, 24.943, 0.778)
pt3dadd(98.089, 86.043, 24.944, 0.796)
pt3dadd(97.97, 86.031, 24.945, 0.816)
pt3dadd(97.85, 86.02, 24.945, 0.836)
pt3dadd(97.731, 86.008, 24.946, 0.854)
pt3dadd(97.611, 85.997, 24.947, 0.874)
pt3dadd(97.492, 85.985, 24.947, 0.894)
pt3dadd(97.372, 85.983, 24.948, 0.9)
pt3dadd(97.252, 85.986, 24.95, 0.9)
pt3dadd(97.132, 85.989, 24.951, 0.9)
pt3dadd(97.012, 85.992, 24.953, 0.902)
pt3dadd(96.892, 85.995, 24.954, 0.902)
pt3dadd(96.772, 85.998, 24.956, 0.902)
pt3dadd(96.652, 86.001, 24.957, 0.902)
pt3dadd(96.532, 86.004, 24.959, 0.904)
pt3dadd(96.412, 86.008, 24.96, 0.904)
pt3dadd(96.292, 86.011, 24.962, 0.904)
pt3dadd(96.173, 86.017, 24.964, 0.894)
pt3dadd(96.053, 86.024, 24.967, 0.878)
pt3dadd(95.933, 86.031, 24.97, 0.862)
pt3dadd(95.814, 86.039, 24.972, 0.848)
pt3dadd(95.694, 86.046, 24.975, 0.832)
pt3dadd(95.574, 86.054, 24.978, 0.816)
pt3dadd(95.454, 86.061, 24.98, 0.8)
pt3dadd(95.335, 86.068, 24.983, 0.784)
pt3dadd(95.215, 86.076, 24.986, 0.77)
pt3dadd(95.095, 86.083, 24.989, 0.754)
pt3dadd(94.976, 86.094, 24.993, 0.776)
pt3dadd(94.857, 86.105, 24.999, 0.818)
pt3dadd(94.737, 86.117, 25.005, 0.86)
pt3dadd(94.618, 86.129, 25.011, 0.9)
pt3dadd(94.499, 86.141, 25.016, 0.942)
pt3dadd(94.38, 86.152, 25.022, 0.984)
pt3dadd(94.26, 86.164, 25.028, 1.026)
pt3dadd(94.141, 86.176, 25.034, 1.068)
pt3dadd(94.022, 86.188, 25.04, 1.108)
pt3dadd(93.903, 86.199, 25.045, 1.15)
pt3dadd(93.786, 86.222, 25.053, 1.186)
pt3dadd(93.669, 86.25, 25.063, 1.22)
pt3dadd(93.553, 86.278, 25.072, 1.254)
pt3dadd(93.437, 86.305, 25.081, 1.288)
pt3dadd(93.321, 86.333, 25.091, 1.322)
pt3dadd(93.205, 86.361, 25.1, 1.356)
pt3dadd(93.088, 86.389, 25.109, 1.39)
pt3dadd(92.972, 86.417, 25.119, 1.424)
pt3dadd(92.856, 86.444, 25.128, 1.458)
pt3dadd(92.74, 86.472, 25.137, 1.492)
pt3dadd(92.628, 86.51, 25.152, 1.49)
pt3dadd(92.517, 86.551, 25.168, 1.476)
pt3dadd(92.406, 86.592, 25.185, 1.46)
pt3dadd(92.295, 86.633, 25.202, 1.446)
pt3dadd(92.184, 86.674, 25.218, 1.432)
pt3dadd(92.073, 86.715, 25.235, 1.418)
pt3dadd(91.962, 86.756, 25.251, 1.402)
pt3dadd(91.851, 86.798, 25.268, 1.388)
pt3dadd(91.74, 86.839, 25.285, 1.374)
pt3dadd(91.629, 86.88, 25.301, 1.358)
pt3dadd(91.52, 86.908, 25.335, 1.356)
pt3dadd(91.412, 86.935, 25.373, 1.356)
pt3dadd(91.304, 86.961, 25.411, 1.356)
pt3dadd(91.196, 86.987, 25.448, 1.356)
pt3dadd(91.088, 87.013, 25.486, 1.356)
pt3dadd(90.98, 87.039, 25.524, 1.356)
pt3dadd(90.872, 87.066, 25.562, 1.356)
pt3dadd(90.764, 87.092, 25.599, 1.356)
pt3dadd(90.656, 87.118, 25.637, 1.356)
pt3dadd(90.548, 87.144, 25.675, 1.356)
pt3dadd(90.435, 87.159, 25.705, 1.328)
pt3dadd(90.321, 87.173, 25.733, 1.296)
pt3dadd(90.206, 87.186, 25.762, 1.262)
pt3dadd(90.092, 87.199, 25.79, 1.228)
pt3dadd(89.978, 87.212, 25.818, 1.196)
pt3dadd(89.863, 87.225, 25.847, 1.162)
pt3dadd(89.749, 87.238, 25.875, 1.128)
pt3dadd(89.635, 87.252, 25.904, 1.096)
pt3dadd(89.52, 87.265, 25.932, 1.062)
pt3dadd(89.406, 87.278, 25.96, 1.028)
pt3dadd(89.29, 87.281, 25.983, 0.98)
pt3dadd(89.172, 87.283, 26.006, 0.928)
pt3dadd(89.055, 87.285, 26.028, 0.878)
pt3dadd(88.938, 87.286, 26.05, 0.826)
pt3dadd(88.821, 87.288, 26.072, 0.774)
pt3dadd(88.704, 87.29, 26.094, 0.724)
pt3dadd(88.587, 87.291, 26.116, 0.672)
pt3dadd(88.47, 87.293, 26.138, 0.622)
pt3dadd(88.353, 87.295, 26.16, 0.57)
pt3dadd(88.236, 87.297, 26.183, 0.518)
pt3dadd(88.118, 87.293, 26.201, 0.486)
pt3dadd(88, 87.288, 26.218, 0.458)
pt3dadd(87.882, 87.283, 26.235, 0.43)
}
}
proc shape3d_192() {
dend_7[70] { pt3dadd(87.764, 87.279, 26.252, 0.402)
pt3dadd(87.646, 87.274, 26.27, 0.372)
pt3dadd(87.528, 87.269, 26.287, 0.344)
pt3dadd(87.41, 87.265, 26.305, 0.316)
pt3dadd(87.292, 87.26, 26.322, 0.288)
pt3dadd(87.174, 87.255, 26.339, 0.258)
pt3dadd(87.056, 87.251, 26.357, 0.23)
pt3dadd(86.94, 87.242, 26.382, 0.244)
pt3dadd(86.825, 87.233, 26.408, 0.264)
pt3dadd(86.709, 87.224, 26.435, 0.284)
pt3dadd(86.594, 87.215, 26.461, 0.304)
pt3dadd(86.478, 87.206, 26.487, 0.324)
pt3dadd(86.363, 87.197, 26.514, 0.344)
pt3dadd(86.248, 87.188, 26.54, 0.364)
pt3dadd(86.132, 87.179, 26.567, 0.384)
pt3dadd(86.017, 87.17, 26.593, 0.404)
pt3dadd(85.901, 87.161, 26.62, 0.424)
pt3dadd(85.795, 87.145, 26.664, 0.47)
pt3dadd(85.689, 87.13, 26.709, 0.514)
pt3dadd(85.583, 87.114, 26.754, 0.56)
pt3dadd(85.477, 87.099, 26.798, 0.606)
pt3dadd(85.371, 87.083, 26.843, 0.65)
pt3dadd(85.265, 87.067, 26.888, 0.696)
pt3dadd(85.158, 87.052, 26.933, 0.742)
pt3dadd(85.052, 87.036, 26.978, 0.786)
pt3dadd(84.946, 87.02, 27.023, 0.832)
pt3dadd(84.84, 87.005, 27.068, 0.876)
pt3dadd(84.733, 86.977, 27.107, 0.856)
pt3dadd(84.626, 86.949, 27.145, 0.838)
pt3dadd(84.519, 86.921, 27.184, 0.818)
pt3dadd(84.412, 86.892, 27.223, 0.798)
pt3dadd(84.305, 86.864, 27.262, 0.778)
pt3dadd(84.198, 86.836, 27.301, 0.758)
pt3dadd(84.092, 86.808, 27.34, 0.738)
pt3dadd(83.985, 86.78, 27.379, 0.718)
pt3dadd(83.878, 86.752, 27.418, 0.698)
pt3dadd(83.771, 86.724, 27.457, 0.678)
}
dend_7[71] {pt3dclear()
pt3dadd(83.771, 86.724, 27.457, 0.678)
pt3dadd(83.747, 86.698, 27.476, 0.67)
pt3dadd(83.679, 86.623, 27.53, 0.652)
pt3dadd(83.61, 86.549, 27.585, 0.632)
pt3dadd(83.542, 86.475, 27.639, 0.612)
pt3dadd(83.474, 86.401, 27.694, 0.594)
pt3dadd(83.406, 86.327, 27.748, 0.574)
pt3dadd(83.337, 86.249, 27.797, 0.562)
pt3dadd(83.267, 86.168, 27.842, 0.558)
pt3dadd(83.196, 86.086, 27.886, 0.554)
pt3dadd(83.125, 86.005, 27.93, 0.55)
pt3dadd(83.055, 85.924, 27.974, 0.546)
pt3dadd(82.984, 85.842, 28.018, 0.544)
pt3dadd(82.914, 85.761, 28.063, 0.54)
pt3dadd(82.843, 85.68, 28.107, 0.536)
pt3dadd(82.773, 85.598, 28.151, 0.532)
pt3dadd(82.702, 85.517, 28.195, 0.528)
pt3dadd(82.63, 85.431, 28.229, 0.536)
pt3dadd(82.558, 85.341, 28.257, 0.554)
pt3dadd(82.485, 85.251, 28.284, 0.572)
pt3dadd(82.412, 85.162, 28.312, 0.59)
pt3dadd(82.34, 85.073, 28.34, 0.606)
pt3dadd(82.267, 84.983, 28.368, 0.624)
pt3dadd(82.194, 84.894, 28.395, 0.642)
pt3dadd(82.122, 84.804, 28.423, 0.658)
pt3dadd(82.049, 84.715, 28.451, 0.676)
pt3dadd(81.976, 84.625, 28.479, 0.694)
pt3dadd(81.902, 84.535, 28.501, 0.71)
pt3dadd(81.827, 84.444, 28.521, 0.728)
pt3dadd(81.752, 84.354, 28.541, 0.744)
pt3dadd(81.676, 84.264, 28.56, 0.76)
pt3dadd(81.601, 84.173, 28.58, 0.776)
pt3dadd(81.526, 84.083, 28.6, 0.794)
pt3dadd(81.451, 83.992, 28.619, 0.81)
pt3dadd(81.376, 83.902, 28.639, 0.826)
pt3dadd(81.3, 83.811, 28.659, 0.842)
pt3dadd(81.225, 83.721, 28.679, 0.86)
pt3dadd(81.153, 83.634, 28.711, 0.856)
pt3dadd(81.082, 83.55, 28.751, 0.844)
pt3dadd(81.011, 83.466, 28.792, 0.832)
pt3dadd(80.941, 83.382, 28.832, 0.818)
pt3dadd(80.87, 83.298, 28.872, 0.806)
pt3dadd(80.799, 83.214, 28.912, 0.792)
pt3dadd(80.729, 83.129, 28.952, 0.78)
pt3dadd(80.658, 83.045, 28.992, 0.766)
pt3dadd(80.587, 82.961, 29.032, 0.754)
pt3dadd(80.516, 82.877, 29.073, 0.74)
pt3dadd(80.446, 82.789, 29.107, 0.744)
pt3dadd(80.375, 82.7, 29.139, 0.752)
pt3dadd(80.304, 82.612, 29.171, 0.76)
pt3dadd(80.233, 82.523, 29.203, 0.768)
pt3dadd(80.162, 82.434, 29.235, 0.776)
pt3dadd(80.091, 82.345, 29.267, 0.784)
pt3dadd(80.02, 82.256, 29.298, 0.794)
pt3dadd(79.949, 82.167, 29.33, 0.802)
pt3dadd(79.878, 82.078, 29.362, 0.81)
pt3dadd(79.808, 81.989, 29.394, 0.818)
pt3dadd(79.747, 81.89, 29.417, 0.818)
pt3dadd(79.689, 81.788, 29.437, 0.814)
pt3dadd(79.631, 81.685, 29.457, 0.812)
pt3dadd(79.574, 81.583, 29.477, 0.81)
pt3dadd(79.516, 81.48, 29.497, 0.806)
pt3dadd(79.458, 81.378, 29.517, 0.804)
pt3dadd(79.401, 81.275, 29.537, 0.8)
pt3dadd(79.343, 81.173, 29.557, 0.798)
pt3dadd(79.285, 81.07, 29.577, 0.794)
pt3dadd(79.227, 80.968, 29.596, 0.792)
pt3dadd(79.176, 80.861, 29.609, 0.794)
pt3dadd(79.124, 80.753, 29.62, 0.798)
pt3dadd(79.073, 80.645, 29.632, 0.8)
pt3dadd(79.022, 80.538, 29.643, 0.804)
pt3dadd(78.971, 80.43, 29.654, 0.806)
pt3dadd(78.92, 80.322, 29.665, 0.81)
pt3dadd(78.869, 80.214, 29.677, 0.812)
pt3dadd(78.818, 80.107, 29.688, 0.816)
pt3dadd(78.767, 79.999, 29.699, 0.82)
pt3dadd(78.716, 79.891, 29.71, 0.822)
pt3dadd(78.661, 79.785, 29.718, 0.85)
pt3dadd(78.606, 79.678, 29.725, 0.88)
pt3dadd(78.551, 79.572, 29.733, 0.912)
pt3dadd(78.496, 79.466, 29.74, 0.942)
pt3dadd(78.441, 79.36, 29.747, 0.972)
pt3dadd(78.386, 79.253, 29.755, 1.004)
pt3dadd(78.331, 79.147, 29.762, 1.034)
pt3dadd(78.276, 79.041, 29.769, 1.066)
pt3dadd(78.221, 78.935, 29.776, 1.096)
pt3dadd(78.166, 78.828, 29.784, 1.126)
pt3dadd(78.127, 78.716, 29.795, 1.13)
pt3dadd(78.091, 78.602, 29.808, 1.13)
pt3dadd(78.055, 78.489, 29.82, 1.13)
pt3dadd(78.019, 78.375, 29.833, 1.13)
pt3dadd(77.982, 78.262, 29.845, 1.13)
pt3dadd(77.946, 78.148, 29.857, 1.13)
pt3dadd(77.91, 78.035, 29.87, 1.13)
pt3dadd(77.874, 77.922, 29.882, 1.13)
pt3dadd(77.837, 77.808, 29.894, 1.13)
pt3dadd(77.801, 77.695, 29.907, 1.13)
pt3dadd(77.773, 77.585, 29.939, 1.104)
pt3dadd(77.747, 77.476, 29.974, 1.074)
pt3dadd(77.72, 77.367, 30.009, 1.044)
pt3dadd(77.694, 77.257, 30.044, 1.014)
pt3dadd(77.667, 77.148, 30.079, 0.984)
pt3dadd(77.64, 77.039, 30.114, 0.954)
pt3dadd(77.614, 76.93, 30.149, 0.924)
pt3dadd(77.587, 76.821, 30.184, 0.894)
pt3dadd(77.56, 76.711, 30.219, 0.864)
pt3dadd(77.534, 76.602, 30.254, 0.834)
pt3dadd(77.499, 76.495, 30.287, 0.836)
pt3dadd(77.463, 76.387, 30.32, 0.84)
pt3dadd(77.428, 76.279, 30.353, 0.844)
pt3dadd(77.392, 76.172, 30.386, 0.846)
pt3dadd(77.357, 76.064, 30.419, 0.85)
pt3dadd(77.322, 75.957, 30.452, 0.854)
pt3dadd(77.286, 75.849, 30.486, 0.858)
pt3dadd(77.251, 75.741, 30.518, 0.862)
pt3dadd(77.215, 75.634, 30.552, 0.864)
pt3dadd(77.18, 75.526, 30.584, 0.868)
pt3dadd(77.139, 75.418, 30.611, 0.882)
pt3dadd(77.099, 75.31, 30.638, 0.894)
pt3dadd(77.058, 75.201, 30.665, 0.908)
pt3dadd(77.018, 75.093, 30.691, 0.92)
pt3dadd(76.977, 74.985, 30.718, 0.934)
pt3dadd(76.937, 74.876, 30.745, 0.948)
pt3dadd(76.896, 74.768, 30.772, 0.96)
pt3dadd(76.856, 74.66, 30.798, 0.974)
pt3dadd(76.815, 74.551, 30.825, 0.986)
pt3dadd(76.775, 74.443, 30.852, 1)
pt3dadd(76.745, 74.33, 30.873, 0.944)
pt3dadd(76.715, 74.217, 30.895, 0.89)
pt3dadd(76.685, 74.103, 30.917, 0.836)
pt3dadd(76.655, 73.99, 30.938, 0.78)
pt3dadd(76.625, 73.877, 30.96, 0.726)
pt3dadd(76.595, 73.764, 30.982, 0.67)
pt3dadd(76.565, 73.65, 31.003, 0.616)
pt3dadd(76.535, 73.537, 31.025, 0.562)
pt3dadd(76.505, 73.424, 31.046, 0.506)
pt3dadd(76.475, 73.311, 31.068, 0.452)
}
dend_7[72] {pt3dclear()
pt3dadd(76.475, 73.311, 31.068, 0.452)
pt3dadd(76.471, 73.282, 31.078, 0.456)
pt3dadd(76.455, 73.172, 31.115, 0.474)
pt3dadd(76.438, 73.061, 31.152, 0.492)
pt3dadd(76.422, 72.951, 31.189, 0.51)
pt3dadd(76.406, 72.841, 31.227, 0.528)
pt3dadd(76.389, 72.731, 31.264, 0.546)
pt3dadd(76.373, 72.621, 31.301, 0.564)
pt3dadd(76.357, 72.51, 31.338, 0.582)
pt3dadd(76.341, 72.4, 31.375, 0.598)
pt3dadd(76.324, 72.29, 31.412, 0.616)
pt3dadd(76.308, 72.18, 31.449, 0.634)
pt3dadd(76.293, 72.068, 31.483, 0.636)
pt3dadd(76.282, 71.953, 31.51, 0.608)
pt3dadd(76.271, 71.838, 31.537, 0.582)
pt3dadd(76.259, 71.723, 31.564, 0.554)
pt3dadd(76.248, 71.608, 31.591, 0.526)
pt3dadd(76.237, 71.493, 31.618, 0.498)
pt3dadd(76.225, 71.378, 31.645, 0.47)
pt3dadd(76.214, 71.263, 31.671, 0.442)
pt3dadd(76.203, 71.148, 31.698, 0.414)
pt3dadd(76.192, 71.033, 31.725, 0.388)
pt3dadd(76.179, 70.917, 31.748, 0.374)
pt3dadd(76.164, 70.8, 31.766, 0.382)
pt3dadd(76.148, 70.682, 31.783, 0.392)
pt3dadd(76.133, 70.565, 31.8, 0.402)
}
}
proc shape3d_193() {
dend_7[72] { pt3dadd(76.118, 70.448, 31.817, 0.41)
pt3dadd(76.102, 70.331, 31.834, 0.42)
pt3dadd(76.087, 70.213, 31.852, 0.43)
pt3dadd(76.072, 70.096, 31.869, 0.438)
pt3dadd(76.057, 69.979, 31.886, 0.448)
pt3dadd(76.041, 69.862, 31.903, 0.458)
pt3dadd(76.019, 69.746, 31.917, 0.472)
pt3dadd(75.984, 69.631, 31.925, 0.494)
pt3dadd(75.95, 69.516, 31.933, 0.516)
pt3dadd(75.915, 69.402, 31.942, 0.536)
pt3dadd(75.881, 69.287, 31.95, 0.558)
pt3dadd(75.847, 69.173, 31.958, 0.58)
pt3dadd(75.812, 69.058, 31.966, 0.602)
pt3dadd(75.778, 68.944, 31.974, 0.624)
pt3dadd(75.743, 68.829, 31.983, 0.646)
pt3dadd(75.709, 68.715, 31.991, 0.668)
pt3dadd(75.665, 68.604, 31.997, 0.68)
pt3dadd(75.612, 68.496, 32, 0.682)
pt3dadd(75.56, 68.388, 32.004, 0.686)
pt3dadd(75.507, 68.28, 32.007, 0.69)
pt3dadd(75.454, 68.173, 32.01, 0.692)
pt3dadd(75.402, 68.065, 32.014, 0.696)
pt3dadd(75.349, 67.957, 32.017, 0.7)
pt3dadd(75.296, 67.85, 32.021, 0.702)
pt3dadd(75.243, 67.742, 32.024, 0.706)
pt3dadd(75.191, 67.634, 32.027, 0.708)
pt3dadd(75.141, 67.525, 32.033, 0.72)
pt3dadd(75.094, 67.415, 32.04, 0.74)
pt3dadd(75.047, 67.305, 32.047, 0.758)
pt3dadd(75, 67.195, 32.054, 0.778)
pt3dadd(74.952, 67.085, 32.061, 0.796)
pt3dadd(74.905, 66.975, 32.068, 0.816)
pt3dadd(74.858, 66.865, 32.075, 0.834)
pt3dadd(74.811, 66.755, 32.082, 0.854)
pt3dadd(74.764, 66.645, 32.089, 0.872)
pt3dadd(74.717, 66.535, 32.095, 0.892)
pt3dadd(74.659, 66.431, 32.105, 0.892)
pt3dadd(74.593, 66.332, 32.116, 0.874)
pt3dadd(74.526, 66.233, 32.126, 0.856)
pt3dadd(74.46, 66.134, 32.137, 0.84)
pt3dadd(74.393, 66.035, 32.148, 0.822)
pt3dadd(74.327, 65.935, 32.159, 0.804)
pt3dadd(74.26, 65.836, 32.17, 0.788)
pt3dadd(74.194, 65.737, 32.181, 0.77)
pt3dadd(74.127, 65.638, 32.192, 0.752)
pt3dadd(74.061, 65.539, 32.203, 0.736)
pt3dadd(73.998, 65.444, 32.229, 0.724)
pt3dadd(73.937, 65.352, 32.268, 0.72)
pt3dadd(73.876, 65.26, 32.307, 0.714)
pt3dadd(73.815, 65.168, 32.347, 0.71)
pt3dadd(73.754, 65.076, 32.386, 0.704)
pt3dadd(73.693, 64.984, 32.425, 0.7)
pt3dadd(73.632, 64.892, 32.465, 0.694)
pt3dadd(73.571, 64.8, 32.504, 0.69)
pt3dadd(73.511, 64.708, 32.543, 0.684)
pt3dadd(73.45, 64.616, 32.582, 0.68)
pt3dadd(73.384, 64.524, 32.616, 0.658)
pt3dadd(73.316, 64.433, 32.648, 0.628)
pt3dadd(73.247, 64.342, 32.679, 0.598)
pt3dadd(73.179, 64.25, 32.71, 0.566)
pt3dadd(73.111, 64.159, 32.742, 0.536)
pt3dadd(73.043, 64.068, 32.773, 0.506)
pt3dadd(72.974, 63.977, 32.805, 0.476)
pt3dadd(72.906, 63.885, 32.836, 0.446)
pt3dadd(72.838, 63.794, 32.867, 0.416)
pt3dadd(72.77, 63.703, 32.899, 0.386)
pt3dadd(72.711, 63.602, 32.92, 0.394)
pt3dadd(72.655, 63.498, 32.938, 0.416)
pt3dadd(72.599, 63.394, 32.956, 0.438)
pt3dadd(72.543, 63.291, 32.974, 0.458)
pt3dadd(72.487, 63.187, 32.992, 0.48)
pt3dadd(72.431, 63.083, 33.01, 0.502)
pt3dadd(72.375, 62.979, 33.028, 0.524)
pt3dadd(72.319, 62.875, 33.046, 0.546)
pt3dadd(72.263, 62.771, 33.064, 0.566)
pt3dadd(72.207, 62.667, 33.083, 0.588)
pt3dadd(72.156, 62.559, 33.092, 0.618)
pt3dadd(72.105, 62.451, 33.1, 0.65)
pt3dadd(72.055, 62.342, 33.108, 0.68)
pt3dadd(72.005, 62.234, 33.116, 0.712)
pt3dadd(71.955, 62.125, 33.124, 0.744)
pt3dadd(71.904, 62.016, 33.132, 0.774)
pt3dadd(71.854, 61.908, 33.14, 0.806)
pt3dadd(71.804, 61.799, 33.148, 0.838)
pt3dadd(71.754, 61.691, 33.156, 0.868)
pt3dadd(71.703, 61.582, 33.164, 0.9)
pt3dadd(71.652, 61.474, 33.168, 0.896)
pt3dadd(71.6, 61.366, 33.171, 0.888)
pt3dadd(71.549, 61.257, 33.174, 0.878)
pt3dadd(71.497, 61.149, 33.177, 0.87)
pt3dadd(71.445, 61.041, 33.181, 0.86)
pt3dadd(71.394, 60.933, 33.184, 0.852)
pt3dadd(71.342, 60.824, 33.187, 0.842)
pt3dadd(71.291, 60.716, 33.19, 0.834)
pt3dadd(71.239, 60.608, 33.194, 0.826)
pt3dadd(71.187, 60.5, 33.197, 0.816)
pt3dadd(71.155, 60.385, 33.203, 0.766)
pt3dadd(71.124, 60.269, 33.21, 0.71)
pt3dadd(71.093, 60.153, 33.217, 0.654)
pt3dadd(71.062, 60.037, 33.224, 0.598)
pt3dadd(71.032, 59.922, 33.23, 0.542)
pt3dadd(71.001, 59.806, 33.237, 0.486)
pt3dadd(70.97, 59.69, 33.244, 0.43)
pt3dadd(70.94, 59.575, 33.251, 0.374)
pt3dadd(70.909, 59.459, 33.258, 0.318)
pt3dadd(70.878, 59.343, 33.264, 0.262)
pt3dadd(70.859, 59.226, 33.275, 0.27)
pt3dadd(70.84, 59.108, 33.286, 0.286)
pt3dadd(70.822, 58.99, 33.298, 0.3)
pt3dadd(70.804, 58.872, 33.309, 0.314)
pt3dadd(70.785, 58.754, 33.32, 0.33)
pt3dadd(70.767, 58.636, 33.331, 0.344)
pt3dadd(70.749, 58.519, 33.342, 0.36)
pt3dadd(70.73, 58.401, 33.354, 0.374)
pt3dadd(70.712, 58.283, 33.365, 0.388)
pt3dadd(70.694, 58.165, 33.376, 0.404)
pt3dadd(70.681, 58.051, 33.405, 0.434)
pt3dadd(70.669, 57.938, 33.436, 0.466)
pt3dadd(70.657, 57.824, 33.467, 0.498)
pt3dadd(70.645, 57.711, 33.498, 0.53)
pt3dadd(70.633, 57.597, 33.529, 0.562)
pt3dadd(70.621, 57.484, 33.56, 0.594)
pt3dadd(70.609, 57.371, 33.591, 0.626)
pt3dadd(70.597, 57.257, 33.622, 0.656)
pt3dadd(70.585, 57.144, 33.653, 0.688)
pt3dadd(70.573, 57.03, 33.684, 0.72)
pt3dadd(70.559, 56.917, 33.715, 0.722)
pt3dadd(70.545, 56.803, 33.745, 0.722)
pt3dadd(70.53, 56.69, 33.776, 0.722)
pt3dadd(70.516, 56.577, 33.807, 0.722)
pt3dadd(70.502, 56.463, 33.837, 0.722)
pt3dadd(70.488, 56.35, 33.868, 0.722)
pt3dadd(70.474, 56.237, 33.898, 0.722)
pt3dadd(70.459, 56.123, 33.929, 0.722)
pt3dadd(70.445, 56.01, 33.96, 0.722)
pt3dadd(70.431, 55.897, 33.99, 0.722)
pt3dadd(70.403, 55.783, 34.011, 0.7)
pt3dadd(70.375, 55.668, 34.031, 0.678)
pt3dadd(70.347, 55.554, 34.051, 0.654)
pt3dadd(70.319, 55.44, 34.071, 0.632)
pt3dadd(70.29, 55.326, 34.092, 0.61)
pt3dadd(70.262, 55.212, 34.112, 0.586)
pt3dadd(70.234, 55.098, 34.132, 0.564)
pt3dadd(70.206, 54.984, 34.153, 0.542)
pt3dadd(70.178, 54.87, 34.173, 0.518)
pt3dadd(70.147, 54.757, 34.192, 0.5)
pt3dadd(70.094, 54.65, 34.202, 0.518)
pt3dadd(70.04, 54.543, 34.212, 0.534)
pt3dadd(69.987, 54.436, 34.222, 0.552)
pt3dadd(69.933, 54.329, 34.232, 0.57)
pt3dadd(69.88, 54.223, 34.242, 0.586)
pt3dadd(69.826, 54.116, 34.252, 0.604)
pt3dadd(69.773, 54.009, 34.262, 0.62)
pt3dadd(69.72, 53.902, 34.272, 0.638)
pt3dadd(69.666, 53.796, 34.282, 0.654)
pt3dadd(69.613, 53.688, 34.291, 0.668)
pt3dadd(69.565, 53.579, 34.292, 0.652)
pt3dadd(69.517, 53.469, 34.292, 0.636)
pt3dadd(69.469, 53.359, 34.293, 0.62)
pt3dadd(69.421, 53.249, 34.294, 0.604)
pt3dadd(69.372, 53.139, 34.295, 0.588)
pt3dadd(69.324, 53.029, 34.295, 0.572)
pt3dadd(69.276, 52.919, 34.296, 0.556)
pt3dadd(69.228, 52.809, 34.297, 0.54)
pt3dadd(69.18, 52.699, 34.297, 0.524)
pt3dadd(69.13, 52.59, 34.298, 0.506)
pt3dadd(69.071, 52.486, 34.299, 0.49)
pt3dadd(69.012, 52.381, 34.299, 0.474)
pt3dadd(68.953, 52.277, 34.299, 0.456)
pt3dadd(68.894, 52.172, 34.3, 0.44)
pt3dadd(68.835, 52.068, 34.3, 0.422)
pt3dadd(68.776, 51.963, 34.301, 0.406)
pt3dadd(68.717, 51.859, 34.301, 0.39)
pt3dadd(68.658, 51.754, 34.302, 0.372)
pt3dadd(68.599, 51.65, 34.302, 0.356)
pt3dadd(68.539, 51.546, 34.303, 0.342)
pt3dadd(68.475, 51.445, 34.303, 0.338)
pt3dadd(68.41, 51.344, 34.304, 0.336)
pt3dadd(68.345, 51.242, 34.305, 0.334)
pt3dadd(68.281, 51.141, 34.306, 0.334)
pt3dadd(68.216, 51.04, 34.306, 0.332)
pt3dadd(68.151, 50.939, 34.307, 0.33)
pt3dadd(68.087, 50.838, 34.308, 0.328)
pt3dadd(68.022, 50.737, 34.308, 0.324)
pt3dadd(67.958, 50.636, 34.309, 0.324)
pt3dadd(67.893, 50.535, 34.31, 0.326)
pt3dadd(67.827, 50.434, 34.311, 0.358)
pt3dadd(67.761, 50.334, 34.313, 0.39)
pt3dadd(67.696, 50.234, 34.314, 0.422)
pt3dadd(67.63, 50.133, 34.315, 0.456)
pt3dadd(67.564, 50.033, 34.316, 0.488)
pt3dadd(67.498, 49.933, 34.317, 0.52)
pt3dadd(67.432, 49.832, 34.319, 0.552)
pt3dadd(67.367, 49.732, 34.32, 0.584)
pt3dadd(67.301, 49.632, 34.321, 0.616)
pt3dadd(67.238, 49.53, 34.322, 0.648)
pt3dadd(67.193, 49.418, 34.325, 0.666)
pt3dadd(67.148, 49.307, 34.327, 0.686)
pt3dadd(67.104, 49.196, 34.33, 0.706)
pt3dadd(67.059, 49.085, 34.333, 0.726)
}
}
proc shape3d_194() {
dend_7[72] { pt3dadd(67.014, 48.973, 34.335, 0.746)
pt3dadd(66.969, 48.862, 34.338, 0.764)
pt3dadd(66.924, 48.751, 34.34, 0.784)
pt3dadd(66.88, 48.639, 34.343, 0.804)
pt3dadd(66.835, 48.528, 34.345, 0.824)
pt3dadd(66.793, 48.416, 34.348, 0.842)
pt3dadd(66.767, 48.299, 34.354, 0.848)
pt3dadd(66.74, 48.182, 34.359, 0.854)
pt3dadd(66.714, 48.065, 34.365, 0.86)
pt3dadd(66.688, 47.948, 34.37, 0.866)
pt3dadd(66.661, 47.832, 34.376, 0.874)
pt3dadd(66.635, 47.715, 34.381, 0.88)
pt3dadd(66.608, 47.598, 34.387, 0.886)
pt3dadd(66.582, 47.481, 34.392, 0.892)
pt3dadd(66.556, 47.364, 34.398, 0.9)
pt3dadd(66.532, 47.247, 34.404, 0.898)
pt3dadd(66.518, 47.128, 34.414, 0.872)
pt3dadd(66.503, 47.01, 34.423, 0.846)
pt3dadd(66.489, 46.891, 34.432, 0.818)
pt3dadd(66.475, 46.772, 34.441, 0.792)
pt3dadd(66.46, 46.654, 34.45, 0.766)
pt3dadd(66.446, 46.535, 34.459, 0.74)
pt3dadd(66.432, 46.416, 34.468, 0.712)
pt3dadd(66.418, 46.298, 34.478, 0.686)
pt3dadd(66.403, 46.179, 34.487, 0.66)
pt3dadd(66.39, 46.061, 34.498, 0.63)
pt3dadd(66.377, 45.944, 34.517, 0.588)
pt3dadd(66.365, 45.826, 34.536, 0.546)
pt3dadd(66.352, 45.709, 34.555, 0.504)
pt3dadd(66.34, 45.592, 34.574, 0.464)
pt3dadd(66.328, 45.475, 34.593, 0.422)
pt3dadd(66.315, 45.358, 34.612, 0.38)
pt3dadd(66.303, 45.24, 34.631, 0.338)
pt3dadd(66.291, 45.123, 34.65, 0.296)
pt3dadd(66.278, 45.006, 34.669, 0.256)
pt3dadd(66.264, 44.891, 34.693, 0.226)
pt3dadd(66.247, 44.781, 34.73, 0.226)
pt3dadd(66.23, 44.671, 34.767, 0.226)
pt3dadd(66.213, 44.561, 34.805, 0.226)
pt3dadd(66.196, 44.451, 34.842, 0.226)
pt3dadd(66.178, 44.34, 34.879, 0.226)
pt3dadd(66.161, 44.23, 34.916, 0.226)
pt3dadd(66.144, 44.12, 34.953, 0.226)
pt3dadd(66.127, 44.01, 34.99, 0.226)
pt3dadd(66.11, 43.9, 35.027, 0.226)
pt3dadd(66.082, 43.791, 35.059, 0.226)
pt3dadd(66.03, 43.686, 35.082, 0.226)
pt3dadd(65.979, 43.581, 35.104, 0.226)
pt3dadd(65.927, 43.476, 35.126, 0.226)
pt3dadd(65.876, 43.371, 35.149, 0.226)
pt3dadd(65.824, 43.267, 35.171, 0.226)
pt3dadd(65.772, 43.162, 35.194, 0.226)
pt3dadd(65.721, 43.057, 35.216, 0.226)
pt3dadd(65.669, 42.952, 35.238, 0.226)
pt3dadd(65.618, 42.847, 35.261, 0.226)
pt3dadd(65.567, 42.741, 35.281, 0.226)
pt3dadd(65.52, 42.632, 35.296, 0.226)
pt3dadd(65.473, 42.523, 35.311, 0.226)
pt3dadd(65.427, 42.414, 35.326, 0.226)
pt3dadd(65.379, 42.305, 35.342, 0.226)
pt3dadd(65.333, 42.196, 35.357, 0.226)
pt3dadd(65.286, 42.087, 35.372, 0.226)
pt3dadd(65.239, 41.978, 35.387, 0.226)
pt3dadd(65.192, 41.869, 35.403, 0.226)
pt3dadd(65.145, 41.76, 35.418, 0.226)
pt3dadd(65.096, 41.652, 35.431, 0.23)
pt3dadd(65.043, 41.545, 35.439, 0.246)
pt3dadd(64.99, 41.437, 35.447, 0.26)
pt3dadd(64.938, 41.33, 35.455, 0.274)
pt3dadd(64.885, 41.222, 35.463, 0.288)
pt3dadd(64.832, 41.115, 35.471, 0.304)
pt3dadd(64.78, 41.008, 35.479, 0.318)
pt3dadd(64.727, 40.9, 35.487, 0.332)
pt3dadd(64.674, 40.793, 35.495, 0.348)
pt3dadd(64.622, 40.685, 35.503, 0.362)
pt3dadd(64.566, 40.58, 35.509, 0.382)
pt3dadd(64.504, 40.477, 35.512, 0.41)
pt3dadd(64.443, 40.374, 35.515, 0.44)
pt3dadd(64.382, 40.271, 35.519, 0.468)
pt3dadd(64.32, 40.168, 35.522, 0.498)
pt3dadd(64.259, 40.065, 35.525, 0.526)
pt3dadd(64.197, 39.962, 35.528, 0.556)
pt3dadd(64.136, 39.858, 35.531, 0.584)
pt3dadd(64.074, 39.756, 35.535, 0.614)
pt3dadd(64.013, 39.652, 35.538, 0.642)
pt3dadd(63.957, 39.547, 35.543, 0.654)
pt3dadd(63.91, 39.437, 35.55, 0.634)
pt3dadd(63.864, 39.327, 35.558, 0.614)
pt3dadd(63.817, 39.216, 35.565, 0.596)
pt3dadd(63.77, 39.106, 35.573, 0.576)
pt3dadd(63.723, 38.996, 35.581, 0.558)
pt3dadd(63.677, 38.886, 35.588, 0.538)
pt3dadd(63.63, 38.776, 35.596, 0.52)
pt3dadd(63.583, 38.666, 35.603, 0.5)
pt3dadd(63.536, 38.556, 35.611, 0.482)
pt3dadd(63.483, 38.449, 35.62, 0.488)
pt3dadd(63.419, 38.349, 35.632, 0.534)
pt3dadd(63.354, 38.248, 35.644, 0.582)
pt3dadd(63.29, 38.148, 35.656, 0.63)
pt3dadd(63.226, 38.048, 35.668, 0.678)
pt3dadd(63.162, 37.947, 35.679, 0.726)
pt3dadd(63.097, 37.847, 35.691, 0.772)
pt3dadd(63.033, 37.747, 35.703, 0.82)
pt3dadd(62.969, 37.647, 35.715, 0.868)
pt3dadd(62.904, 37.546, 35.727, 0.916)
pt3dadd(62.842, 37.449, 35.75, 0.946)
pt3dadd(62.782, 37.356, 35.789, 0.95)
pt3dadd(62.723, 37.263, 35.828, 0.952)
pt3dadd(62.663, 37.17, 35.867, 0.956)
pt3dadd(62.603, 37.077, 35.906, 0.958)
pt3dadd(62.544, 36.984, 35.946, 0.962)
pt3dadd(62.484, 36.891, 35.985, 0.966)
pt3dadd(62.425, 36.799, 36.024, 0.968)
pt3dadd(62.365, 36.706, 36.063, 0.972)
pt3dadd(62.305, 36.613, 36.103, 0.974)
pt3dadd(62.244, 36.521, 36.142, 0.956)
pt3dadd(62.181, 36.43, 36.181, 0.92)
pt3dadd(62.118, 36.339, 36.219, 0.886)
pt3dadd(62.055, 36.248, 36.258, 0.852)
pt3dadd(61.993, 36.157, 36.297, 0.816)
pt3dadd(61.93, 36.066, 36.336, 0.782)
pt3dadd(61.867, 35.975, 36.375, 0.746)
pt3dadd(61.804, 35.884, 36.414, 0.712)
pt3dadd(61.741, 35.793, 36.452, 0.678)
pt3dadd(61.679, 35.702, 36.491, 0.642)
pt3dadd(61.623, 35.603, 36.523, 0.612)
pt3dadd(61.572, 35.5, 36.552, 0.582)
pt3dadd(61.522, 35.397, 36.58, 0.552)
pt3dadd(61.471, 35.293, 36.608, 0.524)
pt3dadd(61.42, 35.19, 36.636, 0.494)
pt3dadd(61.369, 35.087, 36.665, 0.466)
pt3dadd(61.318, 34.984, 36.693, 0.436)
pt3dadd(61.267, 34.881, 36.721, 0.406)
pt3dadd(61.216, 34.777, 36.75, 0.378)
pt3dadd(61.165, 34.674, 36.778, 0.348)
pt3dadd(61.128, 34.566, 36.807, 0.332)
pt3dadd(61.095, 34.456, 36.837, 0.32)
pt3dadd(61.063, 34.347, 36.867, 0.31)
pt3dadd(61.03, 34.237, 36.897, 0.298)
pt3dadd(60.997, 34.127, 36.927, 0.286)
pt3dadd(60.965, 34.017, 36.957, 0.274)
pt3dadd(60.932, 33.907, 36.987, 0.264)
pt3dadd(60.9, 33.798, 37.017, 0.252)
pt3dadd(60.867, 33.688, 37.047, 0.24)
pt3dadd(60.834, 33.578, 37.077, 0.228)
pt3dadd(60.807, 33.469, 37.111, 0.23)
pt3dadd(60.781, 33.36, 37.147, 0.236)
pt3dadd(60.755, 33.251, 37.183, 0.242)
pt3dadd(60.729, 33.142, 37.218, 0.248)
pt3dadd(60.703, 33.033, 37.254, 0.254)
pt3dadd(60.677, 32.924, 37.29, 0.26)
pt3dadd(60.651, 32.815, 37.326, 0.266)
pt3dadd(60.625, 32.706, 37.361, 0.272)
pt3dadd(60.599, 32.597, 37.397, 0.276)
pt3dadd(60.573, 32.488, 37.433, 0.282)
pt3dadd(60.545, 32.376, 37.46, 0.314)
pt3dadd(60.518, 32.263, 37.486, 0.352)
pt3dadd(60.49, 32.151, 37.512, 0.39)
pt3dadd(60.462, 32.038, 37.538, 0.426)
pt3dadd(60.435, 31.926, 37.563, 0.464)
pt3dadd(60.407, 31.813, 37.589, 0.502)
pt3dadd(60.38, 31.7, 37.615, 0.54)
pt3dadd(60.352, 31.588, 37.641, 0.578)
pt3dadd(60.324, 31.475, 37.667, 0.616)
pt3dadd(60.297, 31.362, 37.692, 0.652)
pt3dadd(60.239, 31.261, 37.708, 0.676)
pt3dadd(60.173, 31.161, 37.722, 0.694)
pt3dadd(60.108, 31.062, 37.736, 0.712)
pt3dadd(60.042, 30.963, 37.749, 0.73)
pt3dadd(59.977, 30.864, 37.763, 0.748)
pt3dadd(59.911, 30.765, 37.777, 0.766)
pt3dadd(59.845, 30.666, 37.79, 0.784)
pt3dadd(59.78, 30.567, 37.804, 0.802)
pt3dadd(59.714, 30.467, 37.818, 0.82)
pt3dadd(59.649, 30.368, 37.831, 0.838)
pt3dadd(59.571, 30.278, 37.841, 0.838)
pt3dadd(59.491, 30.189, 37.851, 0.834)
pt3dadd(59.411, 30.1, 37.86, 0.83)
pt3dadd(59.331, 30.012, 37.869, 0.826)
pt3dadd(59.251, 29.923, 37.879, 0.822)
pt3dadd(59.171, 29.834, 37.888, 0.818)
pt3dadd(59.091, 29.746, 37.897, 0.814)
pt3dadd(59.011, 29.657, 37.907, 0.81)
pt3dadd(58.931, 29.568, 37.916, 0.806)
pt3dadd(58.851, 29.479, 37.925, 0.802)
pt3dadd(58.762, 29.399, 37.934, 0.782)
pt3dadd(58.672, 29.32, 37.942, 0.762)
pt3dadd(58.582, 29.241, 37.951, 0.742)
pt3dadd(58.493, 29.163, 37.959, 0.722)
pt3dadd(58.403, 29.084, 37.968, 0.702)
pt3dadd(58.313, 29.005, 37.976, 0.68)
pt3dadd(58.223, 28.926, 37.985, 0.66)
pt3dadd(58.134, 28.847, 37.993, 0.64)
pt3dadd(58.044, 28.768, 38.002, 0.62)
pt3dadd(57.954, 28.689, 38.011, 0.6)
pt3dadd(57.856, 28.621, 38.023, 0.566)
pt3dadd(57.757, 28.555, 38.036, 0.534)
pt3dadd(57.659, 28.488, 38.049, 0.5)
pt3dadd(57.56, 28.422, 38.061, 0.466)
pt3dadd(57.461, 28.355, 38.074, 0.432)
}
}
proc shape3d_195() {
dend_7[72] { pt3dadd(57.363, 28.289, 38.087, 0.398)
pt3dadd(57.264, 28.222, 38.1, 0.366)
pt3dadd(57.165, 28.156, 38.112, 0.332)
pt3dadd(57.066, 28.089, 38.125, 0.298)
pt3dadd(56.968, 28.023, 38.138, 0.264)
pt3dadd(56.863, 27.998, 38.179, 0.258)
pt3dadd(56.757, 27.977, 38.224, 0.254)
pt3dadd(56.652, 27.956, 38.268, 0.25)
pt3dadd(56.546, 27.935, 38.312, 0.248)
pt3dadd(56.441, 27.914, 38.356, 0.244)
pt3dadd(56.335, 27.893, 38.401, 0.24)
pt3dadd(56.229, 27.872, 38.445, 0.236)
pt3dadd(56.124, 27.851, 38.489, 0.234)
pt3dadd(56.019, 27.83, 38.534, 0.23)
pt3dadd(55.913, 27.813, 38.578, 0.226)
pt3dadd(55.813, 27.856, 38.62, 0.226)
pt3dadd(55.714, 27.899, 38.662, 0.226)
pt3dadd(55.614, 27.943, 38.705, 0.226)
pt3dadd(55.514, 27.986, 38.747, 0.226)
pt3dadd(55.414, 28.029, 38.789, 0.226)
pt3dadd(55.315, 28.073, 38.831, 0.226)
pt3dadd(55.215, 28.116, 38.874, 0.226)
pt3dadd(55.115, 28.159, 38.916, 0.226)
pt3dadd(55.015, 28.203, 38.958, 0.226)
pt3dadd(54.933, 28.266, 39.003, 0.238)
pt3dadd(54.867, 28.35, 39.049, 0.258)
pt3dadd(54.801, 28.433, 39.096, 0.28)
pt3dadd(54.735, 28.516, 39.142, 0.302)
pt3dadd(54.669, 28.599, 39.188, 0.324)
pt3dadd(54.603, 28.683, 39.235, 0.346)
pt3dadd(54.537, 28.766, 39.281, 0.368)
pt3dadd(54.47, 28.849, 39.328, 0.39)
pt3dadd(54.404, 28.932, 39.374, 0.412)
pt3dadd(54.338, 29.015, 39.421, 0.434)
pt3dadd(54.301, 29.115, 39.465, 0.458)
pt3dadd(54.27, 29.219, 39.508, 0.482)
pt3dadd(54.238, 29.322, 39.552, 0.506)
pt3dadd(54.207, 29.425, 39.595, 0.53)
pt3dadd(54.175, 29.529, 39.639, 0.556)
pt3dadd(54.144, 29.632, 39.682, 0.58)
pt3dadd(54.112, 29.736, 39.726, 0.604)
pt3dadd(54.081, 29.839, 39.769, 0.628)
pt3dadd(54.049, 29.942, 39.813, 0.654)
pt3dadd(54.018, 30.046, 39.856, 0.678)
pt3dadd(54.006, 30.16, 39.884, 0.678)
pt3dadd(53.995, 30.275, 39.913, 0.678)
pt3dadd(53.983, 30.389, 39.942, 0.678)
pt3dadd(53.972, 30.503, 39.97, 0.678)
pt3dadd(53.96, 30.618, 39.999, 0.678)
pt3dadd(53.949, 30.732, 40.028, 0.678)
pt3dadd(53.937, 30.847, 40.056, 0.678)
pt3dadd(53.926, 30.961, 40.085, 0.678)
pt3dadd(53.915, 31.076, 40.113, 0.678)
pt3dadd(53.903, 31.19, 40.142, 0.678)
}
dend_7[73] {pt3dclear()
pt3dadd(76.475, 73.311, 31.068, 0.452)
pt3dadd(76.447, 73.311, 31.084, 0.452)
pt3dadd(76.349, 73.31, 31.142, 0.452)
pt3dadd(76.251, 73.31, 31.199, 0.452)
pt3dadd(76.153, 73.31, 31.256, 0.452)
pt3dadd(76.055, 73.31, 31.314, 0.452)
pt3dadd(75.956, 73.309, 31.371, 0.452)
pt3dadd(75.858, 73.309, 31.429, 0.452)
pt3dadd(75.758, 73.304, 31.484, 0.452)
pt3dadd(75.657, 73.297, 31.538, 0.452)
pt3dadd(75.557, 73.291, 31.592, 0.452)
pt3dadd(75.456, 73.284, 31.647, 0.452)
pt3dadd(75.356, 73.278, 31.701, 0.452)
pt3dadd(75.255, 73.271, 31.755, 0.452)
pt3dadd(75.155, 73.264, 31.809, 0.452)
pt3dadd(75.054, 73.258, 31.864, 0.452)
pt3dadd(74.954, 73.251, 31.918, 0.452)
pt3dadd(74.853, 73.245, 31.972, 0.452)
pt3dadd(74.751, 73.186, 31.992, 0.452)
pt3dadd(74.649, 73.127, 32.011, 0.452)
pt3dadd(74.547, 73.069, 32.03, 0.452)
pt3dadd(74.445, 73.01, 32.049, 0.452)
pt3dadd(74.343, 72.951, 32.068, 0.452)
pt3dadd(74.241, 72.892, 32.087, 0.452)
pt3dadd(74.139, 72.833, 32.106, 0.452)
pt3dadd(74.036, 72.774, 32.125, 0.452)
pt3dadd(73.934, 72.716, 32.144, 0.452)
pt3dadd(73.832, 72.657, 32.163, 0.452)
pt3dadd(73.727, 72.615, 32.195, 0.464)
pt3dadd(73.621, 72.573, 32.227, 0.476)
pt3dadd(73.515, 72.532, 32.259, 0.486)
pt3dadd(73.41, 72.49, 32.291, 0.498)
pt3dadd(73.304, 72.448, 32.324, 0.51)
pt3dadd(73.198, 72.406, 32.356, 0.52)
pt3dadd(73.092, 72.365, 32.388, 0.532)
pt3dadd(72.987, 72.323, 32.42, 0.544)
pt3dadd(72.881, 72.281, 32.452, 0.556)
pt3dadd(72.775, 72.242, 32.485, 0.568)
pt3dadd(72.664, 72.22, 32.519, 0.588)
pt3dadd(72.554, 72.199, 32.554, 0.606)
pt3dadd(72.443, 72.177, 32.588, 0.626)
pt3dadd(72.333, 72.156, 32.623, 0.644)
pt3dadd(72.222, 72.134, 32.657, 0.664)
pt3dadd(72.112, 72.112, 32.692, 0.684)
pt3dadd(72.001, 72.091, 32.726, 0.702)
pt3dadd(71.891, 72.069, 32.761, 0.722)
pt3dadd(71.78, 72.047, 32.795, 0.74)
pt3dadd(71.668, 72.028, 32.828, 0.756)
pt3dadd(71.552, 72.02, 32.851, 0.758)
pt3dadd(71.436, 72.012, 32.874, 0.76)
pt3dadd(71.319, 72.004, 32.897, 0.762)
pt3dadd(71.203, 71.996, 32.92, 0.764)
pt3dadd(71.086, 71.988, 32.943, 0.766)
pt3dadd(70.97, 71.98, 32.966, 0.768)
pt3dadd(70.853, 71.972, 32.99, 0.77)
pt3dadd(70.737, 71.964, 33.013, 0.772)
pt3dadd(70.62, 71.956, 33.036, 0.774)
pt3dadd(70.503, 71.95, 33.057, 0.764)
pt3dadd(70.384, 71.954, 33.071, 0.71)
pt3dadd(70.266, 71.958, 33.085, 0.656)
pt3dadd(70.147, 71.963, 33.098, 0.604)
pt3dadd(70.028, 71.967, 33.112, 0.55)
pt3dadd(69.909, 71.971, 33.126, 0.496)
pt3dadd(69.791, 71.975, 33.14, 0.442)
pt3dadd(69.672, 71.979, 33.153, 0.39)
pt3dadd(69.553, 71.983, 33.167, 0.336)
pt3dadd(69.434, 71.987, 33.181, 0.282)
pt3dadd(69.315, 71.992, 33.194, 0.244)
pt3dadd(69.196, 72.002, 33.201, 0.266)
pt3dadd(69.077, 72.011, 33.209, 0.286)
pt3dadd(68.958, 72.021, 33.216, 0.306)
pt3dadd(68.838, 72.03, 33.224, 0.328)
pt3dadd(68.719, 72.039, 33.231, 0.348)
pt3dadd(68.6, 72.049, 33.239, 0.368)
pt3dadd(68.48, 72.058, 33.246, 0.39)
pt3dadd(68.361, 72.068, 33.254, 0.41)
pt3dadd(68.242, 72.077, 33.262, 0.43)
pt3dadd(68.123, 72.088, 33.27, 0.46)
pt3dadd(68.005, 72.105, 33.283, 0.524)
pt3dadd(67.887, 72.121, 33.296, 0.588)
pt3dadd(67.769, 72.137, 33.309, 0.652)
pt3dadd(67.651, 72.153, 33.322, 0.714)
pt3dadd(67.533, 72.17, 33.335, 0.778)
pt3dadd(67.416, 72.186, 33.348, 0.842)
pt3dadd(67.298, 72.202, 33.361, 0.904)
pt3dadd(67.18, 72.218, 33.373, 0.968)
pt3dadd(67.062, 72.235, 33.386, 1.032)
pt3dadd(66.95, 72.26, 33.407, 1.072)
pt3dadd(66.861, 72.317, 33.453, 1.034)
pt3dadd(66.771, 72.375, 33.499, 0.996)
pt3dadd(66.681, 72.432, 33.545, 0.956)
pt3dadd(66.592, 72.489, 33.591, 0.918)
pt3dadd(66.502, 72.547, 33.638, 0.88)
pt3dadd(66.412, 72.604, 33.684, 0.842)
pt3dadd(66.323, 72.662, 33.73, 0.802)
pt3dadd(66.233, 72.719, 33.776, 0.764)
pt3dadd(66.144, 72.776, 33.823, 0.726)
pt3dadd(66.048, 72.828, 33.864, 0.684)
pt3dadd(65.942, 72.869, 33.895, 0.638)
pt3dadd(65.835, 72.91, 33.925, 0.592)
pt3dadd(65.729, 72.951, 33.956, 0.546)
pt3dadd(65.622, 72.992, 33.987, 0.5)
pt3dadd(65.515, 73.033, 34.018, 0.454)
pt3dadd(65.409, 73.074, 34.049, 0.406)
pt3dadd(65.302, 73.115, 34.08, 0.36)
pt3dadd(65.196, 73.155, 34.111, 0.314)
pt3dadd(65.089, 73.196, 34.142, 0.268)
pt3dadd(64.979, 73.232, 34.166, 0.252)
pt3dadd(64.863, 73.257, 34.18, 0.292)
pt3dadd(64.747, 73.282, 34.193, 0.334)
pt3dadd(64.631, 73.307, 34.207, 0.374)
pt3dadd(64.514, 73.332, 34.22, 0.414)
pt3dadd(64.398, 73.357, 34.234, 0.454)
pt3dadd(64.282, 73.382, 34.247, 0.496)
pt3dadd(64.166, 73.407, 34.261, 0.536)
pt3dadd(64.049, 73.432, 34.274, 0.576)
pt3dadd(63.933, 73.457, 34.288, 0.616)
pt3dadd(63.816, 73.479, 34.297, 0.656)
pt3dadd(63.697, 73.495, 34.3, 0.696)
pt3dadd(63.578, 73.511, 34.302, 0.736)
pt3dadd(63.459, 73.527, 34.305, 0.776)
pt3dadd(63.34, 73.544, 34.307, 0.816)
pt3dadd(63.222, 73.56, 34.31, 0.854)
pt3dadd(63.103, 73.576, 34.312, 0.894)
pt3dadd(62.984, 73.592, 34.314, 0.934)
pt3dadd(62.865, 73.608, 34.317, 0.974)
pt3dadd(62.746, 73.624, 34.319, 1.014)
pt3dadd(62.63, 73.65, 34.322, 1.026)
pt3dadd(62.517, 73.691, 34.325, 0.992)
pt3dadd(62.404, 73.732, 34.327, 0.958)
pt3dadd(62.292, 73.774, 34.33, 0.924)
pt3dadd(62.179, 73.815, 34.333, 0.89)
pt3dadd(62.067, 73.856, 34.335, 0.856)
pt3dadd(61.954, 73.898, 34.338, 0.822)
pt3dadd(61.841, 73.939, 34.34, 0.788)
pt3dadd(61.729, 73.98, 34.343, 0.754)
pt3dadd(61.616, 74.022, 34.346, 0.72)
pt3dadd(61.504, 74.064, 34.35, 0.69)
pt3dadd(61.392, 74.106, 34.355, 0.664)
pt3dadd(61.28, 74.149, 34.361, 0.64)
pt3dadd(61.168, 74.191, 34.367, 0.614)
pt3dadd(61.056, 74.234, 34.373, 0.59)
pt3dadd(60.944, 74.276, 34.379, 0.564)
pt3dadd(60.832, 74.319, 34.384, 0.54)
pt3dadd(60.72, 74.361, 34.39, 0.516)
pt3dadd(60.608, 74.404, 34.396, 0.49)
}
}
proc shape3d_196() {
dend_7[73] { pt3dadd(60.496, 74.446, 34.402, 0.466)
pt3dadd(60.383, 74.485, 34.41, 0.474)
pt3dadd(60.269, 74.52, 34.422, 0.52)
pt3dadd(60.155, 74.556, 34.434, 0.564)
pt3dadd(60.041, 74.591, 34.445, 0.612)
pt3dadd(59.927, 74.626, 34.457, 0.656)
pt3dadd(59.814, 74.661, 34.469, 0.702)
pt3dadd(59.7, 74.696, 34.481, 0.748)
pt3dadd(59.586, 74.731, 34.492, 0.794)
pt3dadd(59.472, 74.766, 34.504, 0.84)
pt3dadd(59.358, 74.802, 34.516, 0.886)
pt3dadd(59.251, 74.836, 34.545, 0.896)
pt3dadd(59.152, 74.87, 34.594, 0.864)
pt3dadd(59.053, 74.904, 34.644, 0.834)
pt3dadd(58.954, 74.938, 34.692, 0.802)
pt3dadd(58.856, 74.972, 34.742, 0.77)
pt3dadd(58.757, 75.006, 34.791, 0.74)
pt3dadd(58.658, 75.04, 34.84, 0.708)
pt3dadd(58.559, 75.074, 34.889, 0.678)
pt3dadd(58.46, 75.108, 34.938, 0.646)
pt3dadd(58.361, 75.142, 34.986, 0.614)
pt3dadd(58.278, 75.185, 34.924, 0.652)
pt3dadd(58.196, 75.229, 34.861, 0.69)
pt3dadd(58.113, 75.273, 34.798, 0.726)
pt3dadd(58.03, 75.316, 34.735, 0.764)
pt3dadd(57.948, 75.36, 34.673, 0.802)
pt3dadd(57.865, 75.404, 34.61, 0.838)
pt3dadd(57.782, 75.447, 34.547, 0.876)
pt3dadd(57.692, 75.474, 34.505, 0.904)
pt3dadd(57.577, 75.451, 34.527, 0.904)
pt3dadd(57.462, 75.427, 34.549, 0.904)
pt3dadd(57.348, 75.404, 34.57, 0.904)
pt3dadd(57.233, 75.38, 34.592, 0.904)
pt3dadd(57.118, 75.36, 34.616, 0.904)
pt3dadd(57.006, 75.36, 34.65, 0.904)
pt3dadd(56.893, 75.36, 34.685, 0.904)
pt3dadd(56.781, 75.36, 34.72, 0.904)
pt3dadd(56.668, 75.36, 34.754, 0.904)
pt3dadd(56.556, 75.36, 34.789, 0.904)
pt3dadd(56.438, 75.361, 34.8, 0.904)
pt3dadd(56.318, 75.363, 34.8, 0.904)
pt3dadd(56.198, 75.365, 34.8, 0.904)
pt3dadd(56.078, 75.367, 34.8, 0.904)
pt3dadd(55.958, 75.369, 34.8, 0.904)
pt3dadd(55.838, 75.371, 34.8, 0.904)
pt3dadd(55.718, 75.373, 34.8, 0.904)
pt3dadd(55.599, 75.387, 34.8, 0.904)
pt3dadd(55.48, 75.404, 34.8, 0.904)
pt3dadd(55.361, 75.422, 34.8, 0.904)
pt3dadd(55.243, 75.439, 34.8, 0.904)
pt3dadd(55.124, 75.456, 34.8, 0.904)
pt3dadd(55.005, 75.473, 34.8, 0.904)
pt3dadd(54.897, 75.519, 34.8, 0.904)
pt3dadd(54.795, 75.582, 34.8, 0.904)
pt3dadd(54.692, 75.645, 34.8, 0.904)
pt3dadd(54.59, 75.708, 34.8, 0.904)
pt3dadd(54.488, 75.771, 34.8, 0.904)
pt3dadd(54.383, 75.828, 34.804, 0.904)
pt3dadd(54.276, 75.882, 34.81, 0.904)
pt3dadd(54.169, 75.936, 34.817, 0.904)
pt3dadd(54.062, 75.989, 34.824, 0.904)
pt3dadd(53.955, 76.043, 34.83, 0.904)
pt3dadd(53.841, 76.068, 34.839, 0.904)
pt3dadd(53.722, 76.07, 34.85, 0.904)
pt3dadd(53.602, 76.072, 34.861, 0.904)
pt3dadd(53.483, 76.074, 34.871, 0.904)
pt3dadd(53.364, 76.076, 34.882, 0.904)
pt3dadd(53.244, 76.078, 34.892, 0.904)
pt3dadd(53.13, 76.08, 34.915, 0.904)
pt3dadd(53.026, 76.08, 34.964, 0.904)
pt3dadd(52.922, 76.08, 35.014, 0.904)
pt3dadd(52.818, 76.08, 35.064, 0.904)
pt3dadd(52.713, 76.08, 35.114, 0.904)
pt3dadd(52.609, 76.08, 35.163, 0.904)
pt3dadd(52.503, 76.08, 35.211, 0.904)
pt3dadd(52.398, 76.08, 35.258, 0.904)
pt3dadd(52.292, 76.08, 35.305, 0.904)
pt3dadd(52.186, 76.08, 35.353, 0.904)
pt3dadd(52.08, 76.08, 35.4, 0.904)
pt3dadd(51.96, 76.08, 35.4, 0.904)
pt3dadd(51.84, 76.08, 35.4, 0.904)
pt3dadd(51.72, 76.08, 35.4, 0.904)
pt3dadd(51.6, 76.08, 35.4, 0.904)
pt3dadd(51.48, 76.08, 35.4, 0.904)
pt3dadd(51.36, 76.08, 35.4, 0.904)
pt3dadd(51.24, 76.08, 35.4, 0.904)
pt3dadd(51.122, 76.08, 35.416, 0.904)
pt3dadd(51.004, 76.08, 35.433, 0.904)
pt3dadd(50.885, 76.08, 35.449, 0.904)
pt3dadd(50.767, 76.08, 35.466, 0.904)
pt3dadd(50.649, 76.08, 35.482, 0.904)
pt3dadd(50.53, 76.08, 35.499, 0.904)
pt3dadd(50.41, 76.08, 35.5, 0.904)
pt3dadd(50.29, 76.08, 35.5, 0.904)
pt3dadd(50.17, 76.08, 35.5, 0.904)
pt3dadd(50.051, 76.08, 35.504, 0.904)
pt3dadd(49.931, 76.08, 35.507, 0.904)
pt3dadd(49.811, 76.081, 35.512, 0.904)
pt3dadd(49.716, 76.125, 35.561, 0.904)
pt3dadd(49.629, 76.174, 35.614, 0.904)
pt3dadd(49.576, 76.242, 35.683, 0.904)
pt3dadd(49.506, 76.309, 35.736, 0.904)
pt3dadd(49.413, 76.374, 35.768, 0.904)
pt3dadd(49.32, 76.44, 35.8, 0.904)
}
dend_7[74] {pt3dclear()
pt3dadd(83.771, 86.724, 27.457, 0.678)
pt3dadd(83.722, 86.78, 27.452, 0.678)
pt3dadd(83.643, 86.869, 27.443, 0.678)
pt3dadd(83.564, 86.959, 27.435, 0.678)
pt3dadd(83.484, 87.049, 27.427, 0.678)
pt3dadd(83.405, 87.138, 27.419, 0.678)
pt3dadd(83.326, 87.228, 27.411, 0.678)
pt3dadd(83.247, 87.318, 27.403, 0.678)
pt3dadd(83.168, 87.407, 27.395, 0.678)
pt3dadd(83.088, 87.497, 27.386, 0.678)
pt3dadd(83.009, 87.587, 27.378, 0.678)
pt3dadd(82.93, 87.676, 27.37, 0.678)
pt3dadd(82.851, 87.766, 27.362, 0.678)
pt3dadd(82.772, 87.855, 27.354, 0.678)
pt3dadd(82.692, 87.945, 27.346, 0.678)
pt3dadd(82.613, 88.035, 27.338, 0.678)
pt3dadd(82.534, 88.124, 27.33, 0.678)
pt3dadd(82.455, 88.214, 27.321, 0.678)
pt3dadd(82.376, 88.304, 27.313, 0.678)
pt3dadd(82.296, 88.393, 27.305, 0.678)
pt3dadd(82.217, 88.483, 27.297, 0.678)
pt3dadd(82.138, 88.572, 27.289, 0.678)
pt3dadd(82.05, 88.64, 27.288, 0.674)
pt3dadd(81.933, 88.638, 27.309, 0.658)
pt3dadd(81.816, 88.635, 27.33, 0.642)
pt3dadd(81.698, 88.632, 27.352, 0.626)
pt3dadd(81.581, 88.63, 27.373, 0.61)
pt3dadd(81.464, 88.627, 27.394, 0.594)
pt3dadd(81.347, 88.624, 27.415, 0.578)
pt3dadd(81.229, 88.622, 27.436, 0.562)
pt3dadd(81.112, 88.619, 27.458, 0.546)
pt3dadd(80.995, 88.616, 27.479, 0.53)
pt3dadd(80.883, 88.603, 27.511, 0.538)
pt3dadd(80.772, 88.587, 27.547, 0.554)
pt3dadd(80.661, 88.57, 27.583, 0.568)
pt3dadd(80.55, 88.554, 27.619, 0.584)
pt3dadd(80.439, 88.537, 27.654, 0.598)
pt3dadd(80.328, 88.521, 27.69, 0.614)
pt3dadd(80.217, 88.504, 27.726, 0.628)
pt3dadd(80.107, 88.488, 27.762, 0.644)
pt3dadd(79.996, 88.472, 27.798, 0.658)
pt3dadd(79.885, 88.455, 27.833, 0.674)
pt3dadd(79.778, 88.426, 27.872, 0.688)
pt3dadd(79.672, 88.395, 27.911, 0.704)
pt3dadd(79.566, 88.363, 27.949, 0.72)
pt3dadd(79.46, 88.332, 27.988, 0.734)
pt3dadd(79.354, 88.3, 28.027, 0.75)
pt3dadd(79.248, 88.269, 28.066, 0.766)
pt3dadd(79.142, 88.238, 28.105, 0.78)
pt3dadd(79.036, 88.206, 28.144, 0.796)
pt3dadd(78.93, 88.175, 28.183, 0.812)
pt3dadd(78.824, 88.143, 28.222, 0.826)
pt3dadd(78.72, 88.095, 28.251, 0.814)
pt3dadd(78.616, 88.047, 28.281, 0.798)
pt3dadd(78.513, 87.998, 28.31, 0.784)
pt3dadd(78.409, 87.949, 28.339, 0.768)
pt3dadd(78.305, 87.9, 28.369, 0.754)
pt3dadd(78.201, 87.852, 28.398, 0.738)
pt3dadd(78.097, 87.803, 28.427, 0.724)
pt3dadd(77.993, 87.754, 28.457, 0.708)
pt3dadd(77.889, 87.705, 28.486, 0.694)
pt3dadd(77.786, 87.656, 28.515, 0.678)
pt3dadd(77.679, 87.612, 28.542, 0.68)
pt3dadd(77.571, 87.568, 28.568, 0.682)
pt3dadd(77.464, 87.524, 28.594, 0.682)
pt3dadd(77.357, 87.48, 28.62, 0.684)
pt3dadd(77.25, 87.437, 28.646, 0.686)
pt3dadd(77.143, 87.393, 28.673, 0.688)
pt3dadd(77.036, 87.349, 28.699, 0.69)
pt3dadd(76.929, 87.305, 28.725, 0.692)
pt3dadd(76.821, 87.261, 28.751, 0.694)
pt3dadd(76.714, 87.217, 28.778, 0.696)
pt3dadd(76.626, 87.166, 28.83, 0.736)
pt3dadd(76.538, 87.115, 28.883, 0.776)
pt3dadd(76.449, 87.065, 28.936, 0.818)
pt3dadd(76.361, 87.014, 28.989, 0.858)
pt3dadd(76.273, 86.963, 29.042, 0.9)
pt3dadd(76.185, 86.912, 29.095, 0.942)
pt3dadd(76.097, 86.861, 29.148, 0.982)
pt3dadd(76.009, 86.81, 29.201, 1.024)
pt3dadd(75.921, 86.759, 29.254, 1.064)
pt3dadd(75.833, 86.708, 29.307, 1.104)
pt3dadd(75.745, 86.637, 29.342, 1.084)
pt3dadd(75.658, 86.567, 29.376, 1.062)
pt3dadd(75.57, 86.496, 29.41, 1.04)
pt3dadd(75.482, 86.425, 29.445, 1.018)
pt3dadd(75.394, 86.355, 29.479, 0.996)
pt3dadd(75.306, 86.284, 29.514, 0.974)
pt3dadd(75.219, 86.213, 29.548, 0.954)
pt3dadd(75.131, 86.143, 29.582, 0.932)
pt3dadd(75.043, 86.072, 29.617, 0.91)
pt3dadd(74.955, 86.001, 29.651, 0.888)
pt3dadd(74.87, 85.921, 29.673, 0.834)
pt3dadd(74.785, 85.842, 29.696, 0.78)
pt3dadd(74.699, 85.762, 29.718, 0.728)
pt3dadd(74.614, 85.682, 29.741, 0.674)
}
}
proc shape3d_197() {
dend_7[74] { pt3dadd(74.528, 85.602, 29.763, 0.62)
pt3dadd(74.443, 85.522, 29.786, 0.568)
pt3dadd(74.357, 85.442, 29.808, 0.514)
pt3dadd(74.272, 85.363, 29.831, 0.46)
pt3dadd(74.186, 85.283, 29.853, 0.406)
pt3dadd(74.101, 85.203, 29.876, 0.356)
pt3dadd(74.018, 85.134, 29.919, 0.41)
pt3dadd(73.935, 85.064, 29.962, 0.464)
pt3dadd(73.852, 84.995, 30.005, 0.518)
pt3dadd(73.768, 84.925, 30.048, 0.572)
pt3dadd(73.685, 84.856, 30.091, 0.626)
pt3dadd(73.602, 84.786, 30.134, 0.68)
pt3dadd(73.519, 84.717, 30.177, 0.734)
pt3dadd(73.436, 84.647, 30.22, 0.788)
pt3dadd(73.353, 84.578, 30.263, 0.842)
pt3dadd(73.269, 84.509, 30.305, 0.892)
pt3dadd(73.179, 84.444, 30.343, 0.886)
pt3dadd(73.089, 84.378, 30.38, 0.882)
pt3dadd(72.999, 84.313, 30.418, 0.876)
pt3dadd(72.909, 84.248, 30.456, 0.872)
pt3dadd(72.819, 84.182, 30.493, 0.866)
pt3dadd(72.729, 84.117, 30.531, 0.862)
pt3dadd(72.639, 84.052, 30.569, 0.856)
pt3dadd(72.549, 83.987, 30.607, 0.85)
pt3dadd(72.459, 83.921, 30.644, 0.846)
pt3dadd(72.367, 83.858, 30.681, 0.836)
pt3dadd(72.263, 83.811, 30.71, 0.796)
pt3dadd(72.158, 83.763, 30.739, 0.756)
pt3dadd(72.054, 83.715, 30.767, 0.716)
pt3dadd(71.949, 83.667, 30.796, 0.674)
pt3dadd(71.845, 83.62, 30.825, 0.634)
pt3dadd(71.74, 83.572, 30.854, 0.594)
pt3dadd(71.636, 83.524, 30.883, 0.554)
pt3dadd(71.531, 83.476, 30.912, 0.514)
pt3dadd(71.427, 83.429, 30.941, 0.472)
pt3dadd(71.321, 83.386, 30.97, 0.436)
pt3dadd(71.211, 83.357, 31.002, 0.416)
pt3dadd(71.101, 83.329, 31.034, 0.394)
pt3dadd(70.99, 83.301, 31.066, 0.372)
pt3dadd(70.88, 83.272, 31.097, 0.35)
pt3dadd(70.77, 83.244, 31.129, 0.328)
pt3dadd(70.66, 83.216, 31.161, 0.306)
pt3dadd(70.55, 83.188, 31.193, 0.284)
pt3dadd(70.439, 83.159, 31.225, 0.264)
pt3dadd(70.329, 83.131, 31.257, 0.242)
pt3dadd(70.219, 83.105, 31.29, 0.226)
pt3dadd(70.11, 83.086, 31.328, 0.23)
pt3dadd(70, 83.066, 31.365, 0.234)
pt3dadd(69.891, 83.047, 31.403, 0.236)
pt3dadd(69.782, 83.027, 31.441, 0.24)
pt3dadd(69.672, 83.007, 31.479, 0.242)
pt3dadd(69.563, 82.988, 31.516, 0.246)
pt3dadd(69.453, 82.968, 31.554, 0.248)
pt3dadd(69.344, 82.949, 31.592, 0.252)
pt3dadd(69.235, 82.929, 31.63, 0.254)
pt3dadd(69.124, 82.911, 31.665, 0.262)
pt3dadd(69.011, 82.896, 31.696, 0.28)
pt3dadd(68.898, 82.881, 31.727, 0.298)
pt3dadd(68.784, 82.866, 31.757, 0.316)
pt3dadd(68.671, 82.851, 31.788, 0.334)
pt3dadd(68.558, 82.836, 31.819, 0.354)
pt3dadd(68.445, 82.821, 31.849, 0.372)
pt3dadd(68.331, 82.806, 31.88, 0.39)
pt3dadd(68.218, 82.791, 31.91, 0.408)
pt3dadd(68.105, 82.776, 31.941, 0.426)
pt3dadd(67.993, 82.753, 31.969, 0.444)
pt3dadd(67.885, 82.708, 31.992, 0.462)
pt3dadd(67.777, 82.664, 32.014, 0.48)
pt3dadd(67.669, 82.619, 32.037, 0.496)
pt3dadd(67.561, 82.575, 32.059, 0.514)
pt3dadd(67.452, 82.53, 32.082, 0.532)
pt3dadd(67.344, 82.486, 32.104, 0.55)
pt3dadd(67.236, 82.441, 32.127, 0.566)
pt3dadd(67.128, 82.397, 32.149, 0.584)
pt3dadd(67.02, 82.353, 32.172, 0.602)
pt3dadd(66.912, 82.31, 32.198, 0.612)
pt3dadd(66.806, 82.271, 32.23, 0.608)
pt3dadd(66.699, 82.232, 32.262, 0.604)
pt3dadd(66.592, 82.193, 32.294, 0.6)
pt3dadd(66.486, 82.153, 32.327, 0.596)
pt3dadd(66.379, 82.114, 32.359, 0.59)
pt3dadd(66.272, 82.075, 32.391, 0.586)
pt3dadd(66.166, 82.036, 32.423, 0.582)
pt3dadd(66.059, 81.997, 32.456, 0.578)
pt3dadd(65.952, 81.958, 32.488, 0.574)
pt3dadd(65.846, 81.921, 32.521, 0.568)
pt3dadd(65.738, 81.889, 32.557, 0.562)
pt3dadd(65.631, 81.857, 32.593, 0.556)
pt3dadd(65.524, 81.825, 32.629, 0.55)
pt3dadd(65.417, 81.793, 32.665, 0.544)
pt3dadd(65.309, 81.76, 32.701, 0.536)
pt3dadd(65.202, 81.728, 32.737, 0.53)
pt3dadd(65.095, 81.696, 32.773, 0.524)
pt3dadd(64.987, 81.664, 32.808, 0.518)
pt3dadd(64.88, 81.632, 32.844, 0.512)
pt3dadd(64.772, 81.601, 32.878, 0.514)
pt3dadd(64.661, 81.572, 32.908, 0.532)
pt3dadd(64.55, 81.544, 32.938, 0.55)
pt3dadd(64.439, 81.516, 32.968, 0.568)
pt3dadd(64.328, 81.487, 32.998, 0.586)
pt3dadd(64.217, 81.459, 33.028, 0.604)
pt3dadd(64.106, 81.43, 33.058, 0.622)
pt3dadd(63.995, 81.402, 33.088, 0.64)
pt3dadd(63.884, 81.373, 33.118, 0.66)
pt3dadd(63.773, 81.345, 33.148, 0.678)
pt3dadd(63.664, 81.309, 33.175, 0.696)
pt3dadd(63.557, 81.262, 33.197, 0.712)
pt3dadd(63.45, 81.215, 33.219, 0.73)
pt3dadd(63.343, 81.168, 33.242, 0.748)
pt3dadd(63.236, 81.12, 33.264, 0.766)
pt3dadd(63.129, 81.073, 33.286, 0.784)
pt3dadd(63.022, 81.026, 33.308, 0.802)
pt3dadd(62.915, 80.978, 33.33, 0.82)
pt3dadd(62.808, 80.931, 33.353, 0.836)
pt3dadd(62.701, 80.884, 33.375, 0.854)
pt3dadd(62.595, 80.84, 33.403, 0.856)
pt3dadd(62.49, 80.802, 33.439, 0.832)
pt3dadd(62.385, 80.763, 33.475, 0.808)
pt3dadd(62.28, 80.725, 33.512, 0.782)
pt3dadd(62.175, 80.687, 33.548, 0.758)
pt3dadd(62.07, 80.649, 33.585, 0.734)
pt3dadd(61.964, 80.611, 33.621, 0.71)
pt3dadd(61.859, 80.572, 33.658, 0.684)
pt3dadd(61.754, 80.534, 33.694, 0.66)
pt3dadd(61.649, 80.496, 33.73, 0.636)
pt3dadd(61.543, 80.46, 33.767, 0.618)
pt3dadd(61.436, 80.429, 33.803, 0.612)
pt3dadd(61.329, 80.397, 33.84, 0.606)
pt3dadd(61.222, 80.365, 33.876, 0.6)
pt3dadd(61.115, 80.334, 33.913, 0.594)
pt3dadd(61.008, 80.302, 33.949, 0.586)
pt3dadd(60.901, 80.27, 33.986, 0.58)
pt3dadd(60.794, 80.238, 34.022, 0.574)
pt3dadd(60.687, 80.206, 34.059, 0.568)
pt3dadd(60.579, 80.175, 34.095, 0.562)
pt3dadd(60.473, 80.138, 34.13, 0.562)
pt3dadd(60.368, 80.095, 34.163, 0.576)
pt3dadd(60.263, 80.052, 34.195, 0.588)
pt3dadd(60.158, 80.01, 34.228, 0.6)
pt3dadd(60.053, 79.967, 34.261, 0.612)
pt3dadd(59.948, 79.924, 34.293, 0.624)
pt3dadd(59.843, 79.881, 34.326, 0.636)
pt3dadd(59.738, 79.838, 34.359, 0.648)
pt3dadd(59.633, 79.795, 34.391, 0.66)
pt3dadd(59.528, 79.752, 34.424, 0.672)
pt3dadd(59.426, 79.706, 34.46, 0.666)
pt3dadd(59.327, 79.658, 34.5, 0.644)
pt3dadd(59.228, 79.609, 34.539, 0.622)
pt3dadd(59.129, 79.56, 34.578, 0.6)
pt3dadd(59.03, 79.511, 34.617, 0.576)
pt3dadd(58.931, 79.463, 34.657, 0.554)
pt3dadd(58.832, 79.414, 34.696, 0.532)
pt3dadd(58.733, 79.365, 34.735, 0.51)
pt3dadd(58.634, 79.316, 34.774, 0.488)
pt3dadd(58.535, 79.268, 34.814, 0.466)
pt3dadd(58.431, 79.234, 34.853, 0.448)
pt3dadd(58.323, 79.209, 34.892, 0.436)
pt3dadd(58.216, 79.184, 34.931, 0.422)
pt3dadd(58.108, 79.159, 34.97, 0.408)
pt3dadd(58, 79.134, 35.009, 0.394)
pt3dadd(57.893, 79.109, 35.048, 0.38)
pt3dadd(57.785, 79.083, 35.087, 0.366)
pt3dadd(57.678, 79.058, 35.126, 0.352)
pt3dadd(57.57, 79.033, 35.165, 0.338)
pt3dadd(57.462, 79.008, 35.204, 0.324)
pt3dadd(57.349, 78.994, 35.233, 0.342)
pt3dadd(57.234, 78.984, 35.259, 0.368)
pt3dadd(57.118, 78.973, 35.285, 0.394)
pt3dadd(57.003, 78.963, 35.311, 0.422)
pt3dadd(56.887, 78.953, 35.336, 0.448)
pt3dadd(56.772, 78.943, 35.362, 0.476)
pt3dadd(56.656, 78.932, 35.388, 0.502)
pt3dadd(56.541, 78.922, 35.413, 0.53)
pt3dadd(56.425, 78.912, 35.439, 0.556)
pt3dadd(56.31, 78.902, 35.465, 0.584)
pt3dadd(56.192, 78.898, 35.484, 0.606)
pt3dadd(56.074, 78.896, 35.502, 0.628)
pt3dadd(55.956, 78.894, 35.52, 0.65)
pt3dadd(55.838, 78.892, 35.537, 0.67)
pt3dadd(55.719, 78.89, 35.555, 0.692)
pt3dadd(55.601, 78.888, 35.572, 0.714)
pt3dadd(55.483, 78.886, 35.59, 0.736)
pt3dadd(55.365, 78.884, 35.608, 0.758)
pt3dadd(55.247, 78.882, 35.625, 0.778)
pt3dadd(55.129, 78.88, 35.643, 0.8)
pt3dadd(55.01, 78.877, 35.657, 0.76)
pt3dadd(54.891, 78.873, 35.67, 0.704)
pt3dadd(54.772, 78.87, 35.683, 0.646)
pt3dadd(54.654, 78.866, 35.696, 0.588)
pt3dadd(54.535, 78.863, 35.709, 0.53)
pt3dadd(54.416, 78.859, 35.722, 0.474)
pt3dadd(54.297, 78.856, 35.735, 0.416)
pt3dadd(54.178, 78.852, 35.749, 0.358)
pt3dadd(54.059, 78.849, 35.762, 0.302)
pt3dadd(53.94, 78.845, 35.775, 0.244)
pt3dadd(53.828, 78.838, 35.808, 0.272)
pt3dadd(53.718, 78.83, 35.848, 0.324)
pt3dadd(53.608, 78.822, 35.887, 0.376)
pt3dadd(53.498, 78.815, 35.927, 0.428)
pt3dadd(53.388, 78.807, 35.966, 0.48)
}
}
proc shape3d_198() {
dend_7[74] { pt3dadd(53.278, 78.799, 36.005, 0.532)
pt3dadd(53.168, 78.791, 36.045, 0.584)
pt3dadd(53.058, 78.783, 36.084, 0.636)
pt3dadd(52.948, 78.775, 36.124, 0.688)
pt3dadd(52.838, 78.767, 36.163, 0.74)
pt3dadd(52.726, 78.756, 36.198, 0.754)
pt3dadd(52.614, 78.744, 36.231, 0.756)
pt3dadd(52.501, 78.732, 36.264, 0.758)
pt3dadd(52.389, 78.72, 36.298, 0.76)
pt3dadd(52.276, 78.708, 36.331, 0.762)
pt3dadd(52.164, 78.696, 36.364, 0.764)
pt3dadd(52.051, 78.684, 36.398, 0.766)
pt3dadd(51.939, 78.672, 36.431, 0.768)
pt3dadd(51.826, 78.66, 36.464, 0.77)
pt3dadd(51.714, 78.648, 36.498, 0.774)
pt3dadd(51.601, 78.623, 36.526, 0.766)
pt3dadd(51.489, 78.595, 36.553, 0.756)
pt3dadd(51.377, 78.566, 36.579, 0.746)
pt3dadd(51.265, 78.538, 36.606, 0.736)
pt3dadd(51.153, 78.509, 36.633, 0.728)
pt3dadd(51.041, 78.481, 36.66, 0.718)
pt3dadd(50.929, 78.453, 36.687, 0.708)
pt3dadd(50.817, 78.424, 36.714, 0.698)
pt3dadd(50.705, 78.396, 36.741, 0.688)
pt3dadd(50.593, 78.367, 36.767, 0.68)
pt3dadd(50.484, 78.327, 36.793, 0.672)
pt3dadd(50.376, 78.286, 36.818, 0.666)
pt3dadd(50.267, 78.244, 36.843, 0.66)
pt3dadd(50.159, 78.203, 36.869, 0.654)
pt3dadd(50.05, 78.161, 36.894, 0.648)
pt3dadd(49.942, 78.12, 36.919, 0.642)
pt3dadd(49.833, 78.078, 36.944, 0.636)
pt3dadd(49.725, 78.037, 36.97, 0.628)
pt3dadd(49.617, 77.995, 36.995, 0.622)
pt3dadd(49.508, 77.954, 37.02, 0.616)
pt3dadd(49.401, 77.924, 37.058, 0.584)
pt3dadd(49.294, 77.896, 37.096, 0.55)
pt3dadd(49.187, 77.868, 37.135, 0.516)
pt3dadd(49.08, 77.84, 37.174, 0.482)
pt3dadd(48.973, 77.811, 37.213, 0.446)
pt3dadd(48.866, 77.783, 37.252, 0.412)
pt3dadd(48.759, 77.755, 37.291, 0.378)
pt3dadd(48.653, 77.727, 37.329, 0.344)
pt3dadd(48.546, 77.698, 37.368, 0.308)
pt3dadd(48.439, 77.67, 37.407, 0.274)
pt3dadd(48.327, 77.651, 37.44, 0.296)
pt3dadd(48.215, 77.633, 37.472, 0.324)
pt3dadd(48.103, 77.615, 37.504, 0.35)
pt3dadd(47.991, 77.597, 37.537, 0.378)
pt3dadd(47.879, 77.579, 37.569, 0.404)
pt3dadd(47.766, 77.561, 37.601, 0.432)
pt3dadd(47.654, 77.543, 37.633, 0.458)
pt3dadd(47.542, 77.524, 37.666, 0.486)
pt3dadd(47.43, 77.506, 37.698, 0.512)
pt3dadd(47.318, 77.488, 37.73, 0.54)
pt3dadd(47.203, 77.475, 37.758, 0.544)
pt3dadd(47.089, 77.463, 37.785, 0.546)
pt3dadd(46.974, 77.451, 37.813, 0.548)
pt3dadd(46.859, 77.438, 37.84, 0.55)
pt3dadd(46.744, 77.426, 37.867, 0.552)
pt3dadd(46.63, 77.413, 37.895, 0.554)
pt3dadd(46.515, 77.401, 37.922, 0.556)
pt3dadd(46.4, 77.389, 37.949, 0.558)
pt3dadd(46.285, 77.376, 37.977, 0.56)
pt3dadd(46.17, 77.364, 38.004, 0.562)
pt3dadd(46.058, 77.352, 38.036, 0.564)
pt3dadd(45.945, 77.339, 38.068, 0.568)
pt3dadd(45.832, 77.327, 38.101, 0.572)
pt3dadd(45.719, 77.314, 38.133, 0.574)
pt3dadd(45.606, 77.302, 38.165, 0.578)
pt3dadd(45.493, 77.29, 38.198, 0.582)
pt3dadd(45.38, 77.277, 38.23, 0.584)
pt3dadd(45.267, 77.265, 38.262, 0.588)
pt3dadd(45.154, 77.253, 38.294, 0.59)
pt3dadd(45.042, 77.24, 38.327, 0.594)
pt3dadd(44.934, 77.221, 38.368, 0.624)
pt3dadd(44.827, 77.202, 38.41, 0.656)
pt3dadd(44.719, 77.182, 38.451, 0.688)
pt3dadd(44.612, 77.163, 38.493, 0.718)
pt3dadd(44.505, 77.143, 38.535, 0.75)
pt3dadd(44.397, 77.124, 38.576, 0.78)
pt3dadd(44.29, 77.105, 38.618, 0.812)
pt3dadd(44.182, 77.085, 38.659, 0.842)
pt3dadd(44.075, 77.066, 38.701, 0.874)
pt3dadd(43.968, 77.046, 38.742, 0.904)
pt3dadd(43.865, 76.997, 38.774, 0.904)
pt3dadd(43.762, 76.948, 38.806, 0.904)
pt3dadd(43.659, 76.899, 38.838, 0.904)
pt3dadd(43.557, 76.85, 38.87, 0.904)
pt3dadd(43.454, 76.801, 38.902, 0.904)
pt3dadd(43.351, 76.752, 38.933, 0.904)
pt3dadd(43.249, 76.704, 38.965, 0.904)
pt3dadd(43.146, 76.655, 38.997, 0.904)
pt3dadd(43.043, 76.606, 39.029, 0.904)
pt3dadd(42.941, 76.557, 39.061, 0.904)
pt3dadd(42.839, 76.517, 39.103, 0.88)
pt3dadd(42.738, 76.476, 39.144, 0.854)
pt3dadd(42.636, 76.436, 39.186, 0.83)
pt3dadd(42.535, 76.395, 39.227, 0.806)
pt3dadd(42.434, 76.354, 39.269, 0.782)
pt3dadd(42.332, 76.314, 39.31, 0.758)
pt3dadd(42.231, 76.273, 39.352, 0.734)
pt3dadd(42.13, 76.233, 39.393, 0.71)
pt3dadd(42.028, 76.192, 39.435, 0.684)
pt3dadd(41.927, 76.152, 39.476, 0.66)
pt3dadd(41.825, 76.107, 39.514, 0.64)
pt3dadd(41.723, 76.063, 39.552, 0.618)
pt3dadd(41.621, 76.019, 39.589, 0.598)
pt3dadd(41.519, 75.975, 39.627, 0.576)
pt3dadd(41.417, 75.931, 39.665, 0.556)
pt3dadd(41.315, 75.887, 39.702, 0.534)
pt3dadd(41.213, 75.843, 39.74, 0.512)
pt3dadd(41.111, 75.799, 39.778, 0.492)
pt3dadd(41.009, 75.755, 39.816, 0.47)
pt3dadd(40.907, 75.71, 39.852, 0.452)
pt3dadd(40.804, 75.655, 39.876, 0.452)
pt3dadd(40.701, 75.6, 39.901, 0.452)
pt3dadd(40.599, 75.545, 39.925, 0.452)
pt3dadd(40.496, 75.49, 39.95, 0.452)
pt3dadd(40.394, 75.435, 39.974, 0.452)
pt3dadd(40.291, 75.381, 39.999, 0.452)
pt3dadd(40.188, 75.326, 40.023, 0.452)
pt3dadd(40.086, 75.271, 40.048, 0.452)
pt3dadd(39.983, 75.216, 40.073, 0.452)
pt3dadd(39.879, 75.164, 40.096, 0.452)
pt3dadd(39.766, 75.131, 40.116, 0.452)
pt3dadd(39.653, 75.099, 40.135, 0.452)
pt3dadd(39.54, 75.066, 40.154, 0.452)
pt3dadd(39.427, 75.033, 40.174, 0.452)
pt3dadd(39.314, 75, 40.193, 0.452)
pt3dadd(39.201, 74.967, 40.212, 0.452)
pt3dadd(39.088, 74.935, 40.231, 0.452)
pt3dadd(38.974, 74.902, 40.251, 0.452)
pt3dadd(38.861, 74.869, 40.27, 0.452)
pt3dadd(38.748, 74.837, 40.289, 0.45)
pt3dadd(38.632, 74.811, 40.305, 0.434)
pt3dadd(38.517, 74.785, 40.322, 0.418)
pt3dadd(38.401, 74.76, 40.338, 0.402)
pt3dadd(38.286, 74.734, 40.355, 0.386)
pt3dadd(38.17, 74.708, 40.371, 0.37)
pt3dadd(38.055, 74.682, 40.388, 0.354)
pt3dadd(37.94, 74.656, 40.404, 0.338)
pt3dadd(37.824, 74.63, 40.42, 0.322)
pt3dadd(37.709, 74.604, 40.437, 0.306)
pt3dadd(37.594, 74.579, 40.456, 0.294)
pt3dadd(37.484, 74.559, 40.494, 0.314)
pt3dadd(37.375, 74.54, 40.532, 0.332)
pt3dadd(37.266, 74.521, 40.569, 0.352)
pt3dadd(37.156, 74.501, 40.607, 0.372)
pt3dadd(37.047, 74.482, 40.645, 0.39)
pt3dadd(36.938, 74.462, 40.683, 0.41)
pt3dadd(36.828, 74.443, 40.721, 0.43)
pt3dadd(36.719, 74.424, 40.759, 0.448)
pt3dadd(36.609, 74.404, 40.796, 0.468)
pt3dadd(36.503, 74.379, 40.837, 0.488)
pt3dadd(36.406, 74.338, 40.885, 0.508)
pt3dadd(36.31, 74.296, 40.933, 0.528)
pt3dadd(36.213, 74.255, 40.981, 0.548)
pt3dadd(36.116, 74.214, 41.029, 0.568)
pt3dadd(36.019, 74.172, 41.077, 0.588)
pt3dadd(35.922, 74.131, 41.125, 0.608)
pt3dadd(35.826, 74.09, 41.173, 0.628)
pt3dadd(35.729, 74.049, 41.221, 0.648)
pt3dadd(35.632, 74.007, 41.269, 0.668)
pt3dadd(35.54, 73.959, 41.319, 0.678)
pt3dadd(35.453, 73.905, 41.371, 0.678)
pt3dadd(35.365, 73.852, 41.423, 0.678)
pt3dadd(35.278, 73.798, 41.475, 0.678)
pt3dadd(35.191, 73.744, 41.527, 0.678)
pt3dadd(35.104, 73.69, 41.578, 0.678)
pt3dadd(35.017, 73.636, 41.63, 0.678)
pt3dadd(34.93, 73.582, 41.682, 0.678)
pt3dadd(34.842, 73.528, 41.734, 0.678)
pt3dadd(34.755, 73.474, 41.786, 0.678)
pt3dadd(34.665, 73.425, 41.838, 0.674)
pt3dadd(34.572, 73.379, 41.888, 0.67)
pt3dadd(34.479, 73.334, 41.939, 0.664)
pt3dadd(34.386, 73.288, 41.99, 0.658)
pt3dadd(34.293, 73.243, 42.041, 0.652)
pt3dadd(34.2, 73.197, 42.091, 0.648)
pt3dadd(34.108, 73.152, 42.142, 0.642)
pt3dadd(34.015, 73.106, 42.193, 0.636)
pt3dadd(33.922, 73.061, 42.243, 0.63)
pt3dadd(33.829, 73.015, 42.294, 0.626)
pt3dadd(33.732, 72.965, 42.334, 0.612)
pt3dadd(33.632, 72.913, 42.369, 0.596)
pt3dadd(33.532, 72.861, 42.404, 0.578)
pt3dadd(33.432, 72.809, 42.438, 0.56)
pt3dadd(33.333, 72.756, 42.473, 0.544)
pt3dadd(33.233, 72.704, 42.507, 0.526)
pt3dadd(33.133, 72.652, 42.542, 0.51)
pt3dadd(33.033, 72.6, 42.577, 0.492)
pt3dadd(32.934, 72.547, 42.611, 0.474)
pt3dadd(32.834, 72.495, 42.646, 0.458)
pt3dadd(32.731, 72.466, 42.688, 0.452)
pt3dadd(32.625, 72.447, 42.733, 0.452)
pt3dadd(32.52, 72.429, 42.778, 0.452)
pt3dadd(32.415, 72.41, 42.824, 0.452)
pt3dadd(32.309, 72.392, 42.869, 0.452)
pt3dadd(32.204, 72.373, 42.915, 0.452)
}
}
proc shape3d_199() {
dend_7[74] { pt3dadd(32.099, 72.355, 42.96, 0.452)
pt3dadd(31.993, 72.336, 43.005, 0.452)
pt3dadd(31.888, 72.318, 43.051, 0.452)
pt3dadd(31.783, 72.3, 43.096, 0.452)
pt3dadd(31.671, 72.291, 43.131, 0.452)
pt3dadd(31.557, 72.288, 43.161, 0.452)
pt3dadd(31.443, 72.284, 43.192, 0.452)
pt3dadd(31.328, 72.28, 43.222, 0.452)
pt3dadd(31.214, 72.277, 43.252, 0.452)
pt3dadd(31.099, 72.273, 43.282, 0.452)
pt3dadd(30.985, 72.27, 43.312, 0.452)
pt3dadd(30.871, 72.266, 43.342, 0.452)
pt3dadd(30.756, 72.263, 43.372, 0.452)
pt3dadd(30.642, 72.259, 43.402, 0.452)
pt3dadd(30.527, 72.279, 43.423, 0.452)
pt3dadd(30.412, 72.306, 43.44, 0.452)
pt3dadd(30.297, 72.334, 43.458, 0.452)
pt3dadd(30.182, 72.361, 43.475, 0.452)
pt3dadd(30.067, 72.389, 43.493, 0.452)
pt3dadd(29.952, 72.416, 43.51, 0.452)
pt3dadd(29.838, 72.444, 43.528, 0.452)
pt3dadd(29.723, 72.471, 43.545, 0.452)
pt3dadd(29.608, 72.498, 43.563, 0.452)
pt3dadd(29.493, 72.526, 43.58, 0.452)
pt3dadd(29.381, 72.569, 43.588, 0.446)
pt3dadd(29.27, 72.613, 43.595, 0.44)
pt3dadd(29.158, 72.657, 43.602, 0.434)
pt3dadd(29.047, 72.7, 43.609, 0.428)
pt3dadd(28.935, 72.744, 43.616, 0.422)
pt3dadd(28.824, 72.788, 43.623, 0.416)
pt3dadd(28.713, 72.831, 43.63, 0.41)
pt3dadd(28.601, 72.875, 43.638, 0.404)
pt3dadd(28.49, 72.919, 43.645, 0.398)
pt3dadd(28.378, 72.962, 43.652, 0.392)
pt3dadd(28.263, 72.997, 43.652, 0.376)
pt3dadd(28.148, 73.031, 43.652, 0.36)
pt3dadd(28.034, 73.066, 43.652, 0.342)
pt3dadd(27.919, 73.1, 43.652, 0.326)
pt3dadd(27.804, 73.135, 43.652, 0.31)
pt3dadd(27.689, 73.169, 43.652, 0.292)
pt3dadd(27.574, 73.204, 43.652, 0.276)
pt3dadd(27.459, 73.238, 43.652, 0.26)
pt3dadd(27.344, 73.273, 43.652, 0.242)
pt3dadd(27.229, 73.307, 43.652, 0.226)
}
dend_7[75] {pt3dclear()
pt3dadd(102.353, 88.526, 23.965, 1.174)
pt3dadd(102.354, 88.425, 24.007, 1.14)
pt3dadd(102.355, 88.318, 24.051, 1.104)
pt3dadd(102.356, 88.211, 24.096, 1.068)
pt3dadd(102.357, 88.103, 24.14, 1.032)
pt3dadd(102.357, 87.996, 24.185, 0.996)
pt3dadd(102.358, 87.888, 24.23, 0.96)
pt3dadd(102.359, 87.781, 24.275, 0.924)
pt3dadd(102.36, 87.668, 24.3, 0.904)
pt3dadd(102.36, 87.548, 24.3, 0.904)
pt3dadd(102.36, 87.428, 24.3, 0.904)
pt3dadd(102.36, 87.308, 24.3, 0.904)
pt3dadd(102.36, 87.188, 24.3, 0.904)
pt3dadd(102.36, 87.068, 24.3, 0.904)
pt3dadd(102.36, 86.948, 24.3, 0.904)
pt3dadd(102.369, 86.829, 24.3, 0.904)
pt3dadd(102.388, 86.711, 24.3, 0.904)
pt3dadd(102.408, 86.592, 24.3, 0.904)
pt3dadd(102.428, 86.474, 24.3, 0.904)
pt3dadd(102.447, 86.356, 24.3, 0.904)
pt3dadd(102.467, 86.237, 24.3, 0.904)
pt3dadd(102.495, 86.121, 24.3, 0.904)
pt3dadd(102.536, 86.008, 24.3, 0.904)
pt3dadd(102.578, 85.896, 24.3, 0.904)
pt3dadd(102.619, 85.783, 24.3, 0.904)
pt3dadd(102.661, 85.671, 24.3, 0.904)
pt3dadd(102.703, 85.558, 24.3, 0.904)
pt3dadd(102.752, 85.462, 24.34, 0.904)
pt3dadd(102.803, 85.367, 24.385, 0.904)
pt3dadd(102.853, 85.272, 24.43, 0.904)
pt3dadd(102.904, 85.178, 24.474, 0.904)
pt3dadd(102.935, 85.067, 24.492, 0.904)
pt3dadd(102.956, 84.949, 24.496, 0.904)
pt3dadd(102.99, 84.839, 24.503, 0.904)
pt3dadd(103.08, 84.763, 24.521, 0.904)
pt3dadd(103.16, 84.68, 24.543, 0.904)
pt3dadd(103.21, 84.58, 24.579, 0.904)
pt3dadd(103.258, 84.487, 24.625, 0.904)
pt3dadd(103.303, 84.405, 24.687, 0.904)
pt3dadd(103.345, 84.321, 24.75, 0.904)
pt3dadd(103.385, 84.237, 24.813, 0.904)
pt3dadd(103.425, 84.152, 24.876, 0.904)
pt3dadd(103.486, 84.062, 24.9, 0.904)
pt3dadd(103.561, 83.968, 24.9, 0.904)
pt3dadd(103.636, 83.875, 24.9, 0.904)
pt3dadd(103.716, 83.786, 24.9, 0.904)
pt3dadd(103.798, 83.698, 24.9, 0.904)
pt3dadd(103.857, 83.597, 24.915, 0.904)
pt3dadd(103.904, 83.49, 24.937, 0.904)
pt3dadd(103.92, 83.423, 25.005, 0.904)
pt3dadd(103.92, 83.376, 25.097, 0.904)
pt3dadd(103.92, 83.311, 25.176, 0.904)
pt3dadd(103.92, 83.212, 25.233, 0.904)
pt3dadd(103.929, 83.112, 25.286, 0.904)
pt3dadd(103.971, 83.01, 25.325, 0.904)
pt3dadd(104.014, 82.908, 25.364, 0.904)
pt3dadd(104.059, 82.807, 25.4, 0.904)
pt3dadd(104.141, 82.719, 25.4, 0.904)
pt3dadd(104.223, 82.632, 25.4, 0.904)
pt3dadd(104.247, 82.543, 25.462, 0.904)
pt3dadd(104.267, 82.454, 25.527, 0.904)
pt3dadd(104.298, 82.371, 25.593, 0.904)
pt3dadd(104.343, 82.296, 25.662, 0.904)
pt3dadd(104.39, 82.207, 25.714, 0.904)
pt3dadd(104.439, 82.109, 25.755, 0.904)
pt3dadd(104.486, 82.009, 25.79, 0.904)
pt3dadd(104.52, 81.894, 25.794, 0.904)
pt3dadd(104.554, 81.779, 25.799, 0.904)
pt3dadd(104.618, 81.681, 25.804, 0.904)
pt3dadd(104.653, 81.575, 25.841, 0.904)
pt3dadd(104.688, 81.469, 25.878, 0.904)
pt3dadd(104.723, 81.363, 25.915, 0.904)
pt3dadd(104.759, 81.257, 25.952, 0.904)
pt3dadd(104.803, 81.153, 25.984, 0.904)
pt3dadd(104.854, 81.051, 26.014, 0.904)
pt3dadd(104.906, 80.949, 26.045, 0.904)
pt3dadd(104.957, 80.846, 26.075, 0.904)
pt3dadd(105.008, 80.743, 26.103, 0.904)
pt3dadd(105.061, 80.637, 26.119, 0.904)
pt3dadd(105.114, 80.533, 26.139, 0.904)
pt3dadd(105.166, 80.438, 26.182, 0.904)
pt3dadd(105.207, 80.344, 26.232, 0.904)
pt3dadd(105.228, 80.254, 26.295, 0.904)
pt3dadd(105.266, 80.189, 26.366, 0.904)
pt3dadd(105.329, 80.161, 26.448, 0.904)
pt3dadd(105.413, 80.118, 26.493, 0.904)
pt3dadd(105.514, 80.058, 26.505, 0.904)
pt3dadd(105.586, 79.983, 26.555, 0.904)
pt3dadd(105.659, 79.908, 26.604, 0.904)
pt3dadd(105.731, 79.832, 26.653, 0.904)
pt3dadd(105.803, 79.756, 26.701, 0.904)
pt3dadd(105.861, 79.658, 26.732, 0.904)
pt3dadd(105.919, 79.56, 26.763, 0.904)
pt3dadd(105.978, 79.461, 26.793, 0.904)
pt3dadd(106.036, 79.363, 26.824, 0.904)
pt3dadd(106.111, 79.281, 26.859, 0.904)
pt3dadd(106.193, 79.206, 26.897, 0.904)
pt3dadd(106.251, 79.105, 26.921, 0.904)
pt3dadd(106.305, 79.002, 26.944, 0.904)
pt3dadd(106.353, 78.974, 27.031, 0.904)
pt3dadd(106.4, 78.947, 27.121, 0.904)
pt3dadd(106.451, 78.896, 27.201, 0.904)
pt3dadd(106.504, 78.845, 27.28, 0.904)
pt3dadd(106.566, 78.796, 27.354, 0.904)
pt3dadd(106.629, 78.746, 27.429, 0.904)
pt3dadd(106.687, 78.685, 27.491, 0.904)
pt3dadd(106.723, 78.571, 27.501, 0.904)
pt3dadd(106.759, 78.457, 27.511, 0.904)
pt3dadd(106.792, 78.374, 27.577, 0.904)
pt3dadd(106.824, 78.293, 27.645, 0.904)
pt3dadd(106.866, 78.227, 27.719, 0.904)
pt3dadd(106.918, 78.175, 27.799, 0.904)
pt3dadd(106.969, 78.112, 27.872, 0.904)
pt3dadd(107.02, 78.044, 27.943, 0.904)
pt3dadd(107.075, 77.965, 27.991, 0.904)
pt3dadd(107.139, 77.863, 27.996, 0.904)
pt3dadd(107.207, 77.766, 28.004, 0.904)
pt3dadd(107.256, 77.668, 28.035, 0.904)
pt3dadd(107.283, 77.561, 28.074, 0.904)
pt3dadd(107.347, 77.47, 28.096, 0.904)
pt3dadd(107.435, 77.39, 28.107, 0.904)
pt3dadd(107.499, 77.333, 28.164, 0.904)
pt3dadd(107.548, 77.29, 28.248, 0.904)
pt3dadd(107.607, 77.28, 28.333, 0.904)
pt3dadd(107.667, 77.28, 28.42, 0.904)
pt3dadd(107.755, 77.263, 28.479, 0.904)
pt3dadd(107.86, 77.235, 28.52, 0.904)
pt3dadd(107.966, 77.206, 28.561, 0.904)
pt3dadd(108.059, 77.155, 28.59, 0.904)
pt3dadd(108.123, 77.054, 28.596, 0.904)
pt3dadd(108.192, 76.958, 28.6, 0.904)
pt3dadd(108.279, 76.876, 28.607, 0.904)
pt3dadd(108.359, 76.788, 28.622, 0.904)
pt3dadd(108.438, 76.7, 28.637, 0.904)
pt3dadd(108.517, 76.612, 28.651, 0.904)
pt3dadd(108.597, 76.524, 28.666, 0.904)
pt3dadd(108.697, 76.462, 28.683, 0.904)
pt3dadd(108.799, 76.401, 28.7, 0.904)
pt3dadd(108.899, 76.358, 28.741, 0.904)
pt3dadd(108.999, 76.319, 28.785, 0.904)
pt3dadd(109.101, 76.313, 28.837, 0.904)
pt3dadd(109.201, 76.304, 28.889, 0.904)
pt3dadd(109.257, 76.198, 28.894, 0.904)
pt3dadd(109.314, 76.092, 28.899, 0.904)
pt3dadd(109.349, 75.978, 28.9, 0.904)
pt3dadd(109.391, 75.867, 28.9, 0.904)
pt3dadd(109.46, 75.769, 28.9, 0.904)
pt3dadd(109.529, 75.671, 28.9, 0.904)
pt3dadd(109.598, 75.572, 28.9, 0.904)
pt3dadd(109.667, 75.474, 28.9, 0.904)
pt3dadd(109.746, 75.387, 28.9, 0.904)
pt3dadd(109.853, 75.333, 28.9, 0.904)
pt3dadd(109.96, 75.279, 28.9, 0.904)
pt3dadd(110.064, 75.219, 28.9, 0.904)
pt3dadd(110.167, 75.158, 28.9, 0.904)
pt3dadd(110.219, 75.054, 28.9, 0.904)
}
}
proc shape3d_200() {
dend_7[75] { pt3dadd(110.259, 74.941, 28.9, 0.904)
pt3dadd(110.282, 74.825, 28.9, 0.904)
pt3dadd(110.287, 74.705, 28.9, 0.904)
pt3dadd(110.291, 74.585, 28.9, 0.904)
pt3dadd(110.322, 74.472, 28.902, 0.904)
pt3dadd(110.373, 74.363, 28.905, 0.904)
pt3dadd(110.424, 74.254, 28.908, 0.904)
pt3dadd(110.475, 74.146, 28.911, 0.904)
pt3dadd(110.504, 74.092, 28.99, 0.904)
pt3dadd(110.53, 74.045, 29.08, 0.904)
pt3dadd(110.568, 74.017, 29.171, 0.904)
pt3dadd(110.615, 73.964, 29.251, 0.904)
pt3dadd(110.662, 73.911, 29.332, 0.904)
pt3dadd(110.709, 73.857, 29.413, 0.904)
pt3dadd(110.756, 73.804, 29.493, 0.904)
pt3dadd(110.8, 73.745, 29.572, 0.904)
pt3dadd(110.845, 73.686, 29.651, 0.904)
pt3dadd(110.889, 73.626, 29.729, 0.904)
pt3dadd(110.933, 73.566, 29.808, 0.904)
pt3dadd(110.965, 73.474, 29.86, 0.904)
pt3dadd(110.992, 73.367, 29.899, 0.904)
pt3dadd(111, 73.266, 29.95, 0.904)
pt3dadd(111, 73.167, 30.007, 0.904)
pt3dadd(111, 73.088, 30.079, 0.904)
pt3dadd(111, 73.027, 30.165, 0.904)
pt3dadd(111, 72.966, 30.251, 0.904)
pt3dadd(111, 72.905, 30.337, 0.904)
pt3dadd(111, 72.852, 30.426, 0.904)
pt3dadd(111, 72.845, 30.525, 0.904)
pt3dadd(111.009, 72.821, 30.618, 0.904)
pt3dadd(111.043, 72.746, 30.691, 0.904)
pt3dadd(111.077, 72.671, 30.764, 0.904)
pt3dadd(111.111, 72.597, 30.837, 0.904)
pt3dadd(111.146, 72.522, 30.909, 0.904)
pt3dadd(111.167, 72.451, 30.988, 0.904)
pt3dadd(111.187, 72.38, 31.067, 0.904)
pt3dadd(111.208, 72.309, 31.146, 0.904)
pt3dadd(111.229, 72.238, 31.224, 0.904)
pt3dadd(111.24, 72.171, 31.306, 0.904)
pt3dadd(111.24, 72.108, 31.391, 0.904)
pt3dadd(111.24, 72.045, 31.477, 0.904)
pt3dadd(111.24, 71.982, 31.562, 0.904)
pt3dadd(111.24, 71.919, 31.647, 0.904)
pt3dadd(111.24, 71.865, 31.736, 0.904)
pt3dadd(111.24, 71.825, 31.83, 0.904)
pt3dadd(111.24, 71.784, 31.923, 0.904)
pt3dadd(111.24, 71.671, 31.956, 0.904)
pt3dadd(111.24, 71.558, 31.989, 0.904)
pt3dadd(111.252, 71.445, 32.021, 0.904)
pt3dadd(111.271, 71.332, 32.052, 0.904)
pt3dadd(111.3, 71.22, 32.075, 0.904)
pt3dadd(111.337, 71.108, 32.091, 0.904)
pt3dadd(111.36, 70.992, 32.1, 0.904)
pt3dadd(111.36, 70.872, 32.1, 0.904)
pt3dadd(111.366, 70.754, 32.109, 0.904)
pt3dadd(111.381, 70.638, 32.132, 0.904)
pt3dadd(111.396, 70.522, 32.155, 0.904)
pt3dadd(111.412, 70.407, 32.178, 0.904)
pt3dadd(111.427, 70.291, 32.201, 0.904)
pt3dadd(111.441, 70.177, 32.228, 0.904)
pt3dadd(111.45, 70.082, 32.289, 0.904)
pt3dadd(111.458, 69.987, 32.349, 0.904)
pt3dadd(111.466, 69.892, 32.41, 0.904)
pt3dadd(111.474, 69.797, 32.471, 0.904)
pt3dadd(111.48, 69.696, 32.523, 0.904)
pt3dadd(111.48, 69.585, 32.561, 0.904)
pt3dadd(111.48, 69.473, 32.598, 0.904)
pt3dadd(111.48, 69.362, 32.635, 0.904)
pt3dadd(111.48, 69.25, 32.672, 0.904)
pt3dadd(111.48, 69.139, 32.709, 0.904)
pt3dadd(111.48, 69.05, 32.776, 0.904)
pt3dadd(111.48, 68.962, 32.844, 0.904)
pt3dadd(111.48, 68.853, 32.883, 0.904)
pt3dadd(111.48, 68.74, 32.916, 0.904)
pt3dadd(111.483, 68.647, 32.971, 0.904)
pt3dadd(111.489, 68.576, 33.052, 0.904)
pt3dadd(111.512, 68.523, 33.136, 0.904)
pt3dadd(111.559, 68.496, 33.225, 0.904)
pt3dadd(111.602, 68.437, 33.293, 0.904)
pt3dadd(111.64, 68.333, 33.332, 0.904)
pt3dadd(111.677, 68.229, 33.37, 0.904)
pt3dadd(111.716, 68.123, 33.401, 0.904)
pt3dadd(111.757, 68.01, 33.406, 0.904)
pt3dadd(111.799, 67.898, 33.411, 0.904)
pt3dadd(111.87, 67.812, 33.447, 0.904)
pt3dadd(111.943, 67.728, 33.485, 0.904)
pt3dadd(112.039, 67.69, 33.52, 0.904)
pt3dadd(112.152, 67.684, 33.555, 0.904)
pt3dadd(112.236, 67.68, 33.61, 0.904)
pt3dadd(112.264, 67.68, 33.708, 0.904)
pt3dadd(112.292, 67.68, 33.805, 0.904)
pt3dadd(112.32, 67.679, 33.902, 0.904)
pt3dadd(112.32, 67.618, 33.988, 0.904)
pt3dadd(112.32, 67.557, 34.074, 0.904)
pt3dadd(112.32, 67.448, 34.094, 0.904)
pt3dadd(112.32, 67.328, 34.1, 0.904)
pt3dadd(112.32, 67.208, 34.1, 0.904)
pt3dadd(112.32, 67.088, 34.1, 0.904)
pt3dadd(112.335, 66.969, 34.1, 0.904)
pt3dadd(112.372, 66.855, 34.1, 0.904)
pt3dadd(112.418, 66.746, 34.108, 0.904)
pt3dadd(112.448, 66.64, 34.146, 0.904)
pt3dadd(112.475, 66.537, 34.192, 0.904)
pt3dadd(112.517, 66.464, 34.262, 0.904)
pt3dadd(112.563, 66.399, 34.336, 0.904)
pt3dadd(112.652, 66.378, 34.401, 0.904)
pt3dadd(112.74, 66.358, 34.466, 0.904)
pt3dadd(112.826, 66.305, 34.5, 0.904)
pt3dadd(112.907, 66.217, 34.5, 0.904)
pt3dadd(112.979, 66.122, 34.5, 0.904)
pt3dadd(113.042, 66.032, 34.53, 0.904)
pt3dadd(113.111, 65.953, 34.579, 0.904)
pt3dadd(113.18, 65.875, 34.628, 0.904)
pt3dadd(113.249, 65.796, 34.677, 0.904)
pt3dadd(113.322, 65.71, 34.7, 0.904)
pt3dadd(113.4, 65.619, 34.7, 0.904)
pt3dadd(113.478, 65.528, 34.7, 0.904)
pt3dadd(113.556, 65.436, 34.7, 0.904)
pt3dadd(113.634, 65.345, 34.7, 0.904)
pt3dadd(113.71, 65.253, 34.7, 0.904)
pt3dadd(113.766, 65.147, 34.7, 0.904)
pt3dadd(113.828, 65.045, 34.7, 0.904)
pt3dadd(113.903, 64.951, 34.7, 0.904)
pt3dadd(113.973, 64.854, 34.7, 0.904)
pt3dadd(114.03, 64.75, 34.708, 0.904)
pt3dadd(114.09, 64.689, 34.768, 0.904)
pt3dadd(114.115, 64.68, 34.865, 0.904)
pt3dadd(114.12, 64.67, 34.964, 0.904)
pt3dadd(114.12, 64.642, 35.061, 0.904)
pt3dadd(114.14, 64.581, 35.146, 0.904)
pt3dadd(114.164, 64.516, 35.227, 0.904)
pt3dadd(114.188, 64.451, 35.309, 0.904)
pt3dadd(114.211, 64.386, 35.39, 0.904)
pt3dadd(114.235, 64.32, 35.472, 0.904)
pt3dadd(114.274, 64.267, 35.555, 0.904)
pt3dadd(114.317, 64.217, 35.638, 0.904)
pt3dadd(114.353, 64.202, 35.733, 0.904)
pt3dadd(114.389, 64.19, 35.827, 0.904)
pt3dadd(114.433, 64.111, 35.871, 0.904)
pt3dadd(114.48, 64.004, 35.894, 0.904)
pt3dadd(114.531, 63.914, 35.94, 0.904)
pt3dadd(114.584, 63.831, 35.997, 0.904)
pt3dadd(114.595, 63.783, 36.088, 0.904)
pt3dadd(114.62, 63.747, 36.18, 0.904)
pt3dadd(114.659, 63.721, 36.272, 0.904)
pt3dadd(114.69, 63.672, 36.356, 0.904)
pt3dadd(114.71, 63.596, 36.431, 0.904)
pt3dadd(114.72, 63.499, 36.481, 0.904)
pt3dadd(114.72, 63.384, 36.509, 0.904)
pt3dadd(114.72, 63.268, 36.536, 0.904)
pt3dadd(114.72, 63.153, 36.564, 0.904)
pt3dadd(114.72, 63.037, 36.591, 0.904)
pt3dadd(114.72, 62.922, 36.619, 0.904)
pt3dadd(114.72, 62.807, 36.646, 0.904)
pt3dadd(114.72, 62.691, 36.674, 0.904)
pt3dadd(114.72, 62.576, 36.701, 0.904)
pt3dadd(114.72, 62.495, 36.765, 0.904)
pt3dadd(114.72, 62.434, 36.852, 0.904)
pt3dadd(114.72, 62.4, 36.944, 0.904)
pt3dadd(114.72, 62.385, 37.042, 0.904)
pt3dadd(114.72, 62.352, 37.138, 0.904)
pt3dadd(114.72, 62.32, 37.235, 0.904)
pt3dadd(114.72, 62.287, 37.331, 0.904)
pt3dadd(114.72, 62.254, 37.427, 0.904)
pt3dadd(114.72, 62.221, 37.523, 0.904)
pt3dadd(114.72, 62.146, 37.598, 0.904)
pt3dadd(114.72, 62.06, 37.668, 0.904)
pt3dadd(114.72, 61.974, 37.738, 0.904)
pt3dadd(114.72, 61.888, 37.807, 0.904)
pt3dadd(114.72, 61.802, 37.877, 0.904)
pt3dadd(114.72, 61.73, 37.957, 0.904)
pt3dadd(114.72, 61.661, 38.038, 0.904)
pt3dadd(114.72, 61.592, 38.12, 0.904)
pt3dadd(114.72, 61.523, 38.202, 0.904)
pt3dadd(114.72, 61.454, 38.284, 0.904)
pt3dadd(114.72, 61.345, 38.314, 0.904)
pt3dadd(114.72, 61.227, 38.331, 0.904)
pt3dadd(114.72, 61.119, 38.362, 0.904)
pt3dadd(114.72, 61.051, 38.444, 0.904)
pt3dadd(114.72, 60.982, 38.526, 0.904)
pt3dadd(114.713, 60.898, 38.596, 0.904)
pt3dadd(114.707, 60.813, 38.667, 0.904)
pt3dadd(114.651, 60.765, 38.746, 0.904)
pt3dadd(114.613, 60.742, 38.832, 0.904)
pt3dadd(114.613, 60.769, 38.929, 0.904)
pt3dadd(114.613, 60.795, 39.026, 0.904)
pt3dadd(114.613, 60.822, 39.124, 0.904)
pt3dadd(114.626, 60.84, 39.22, 0.904)
pt3dadd(114.666, 60.84, 39.315, 0.904)
pt3dadd(114.706, 60.84, 39.409, 0.904)
pt3dadd(114.72, 60.838, 39.508, 0.904)
pt3dadd(114.72, 60.819, 39.607, 0.904)
pt3dadd(114.72, 60.799, 39.705, 0.904)
pt3dadd(114.72, 60.779, 39.804, 0.904)
pt3dadd(114.72, 60.759, 39.903, 0.904)
pt3dadd(114.72, 60.74, 40.001, 0.904)
pt3dadd(114.72, 60.72, 40.1, 0.904)
}
dend_7[76] {pt3dclear()
pt3dadd(114.72, 60.72, 40.1, 0.904)
pt3dadd(114.72, 60.716, 40.117, 0.904)
pt3dadd(114.72, 60.691, 40.215, 0.904)
}
}
proc shape3d_201() {
dend_7[76] { pt3dadd(114.72, 60.666, 40.313, 0.904)
pt3dadd(114.72, 60.641, 40.41, 0.904)
pt3dadd(114.72, 60.616, 40.508, 0.904)
pt3dadd(114.72, 60.592, 40.606, 0.904)
pt3dadd(114.72, 60.563, 40.703, 0.904)
pt3dadd(114.72, 60.523, 40.797, 0.904)
pt3dadd(114.72, 60.483, 40.892, 0.904)
pt3dadd(114.72, 60.461, 40.99, 0.904)
pt3dadd(114.72, 60.441, 41.088, 0.904)
pt3dadd(114.722, 60.4, 41.178, 0.904)
pt3dadd(114.729, 60.315, 41.249, 0.904)
pt3dadd(114.748, 60.246, 41.323, 0.904)
pt3dadd(114.803, 60.218, 41.409, 0.904)
pt3dadd(114.872, 60.179, 41.476, 0.904)
pt3dadd(114.963, 60.113, 41.505, 0.904)
pt3dadd(115.001, 60.028, 41.568, 0.904)
pt3dadd(115.039, 59.943, 41.631, 0.904)
pt3dadd(115.076, 59.857, 41.694, 0.904)
pt3dadd(115.114, 59.772, 41.757, 0.904)
pt3dadd(115.179, 59.682, 41.793, 0.904)
pt3dadd(115.248, 59.592, 41.825, 0.904)
pt3dadd(115.317, 59.501, 41.856, 0.904)
pt3dadd(115.386, 59.41, 41.887, 0.904)
pt3dadd(115.447, 59.312, 41.913, 0.904)
pt3dadd(115.503, 59.209, 41.935, 0.904)
pt3dadd(115.558, 59.107, 41.957, 0.904)
pt3dadd(115.614, 59.004, 41.979, 0.904)
pt3dadd(115.67, 58.901, 42, 0.904)
pt3dadd(115.731, 58.797, 42, 0.904)
pt3dadd(115.792, 58.694, 42, 0.904)
pt3dadd(115.896, 58.64, 42, 0.904)
pt3dadd(116.006, 58.593, 42, 0.904)
pt3dadd(116.11, 58.534, 42, 0.904)
pt3dadd(116.209, 58.466, 42, 0.904)
pt3dadd(116.269, 58.383, 42.02, 0.904)
pt3dadd(116.276, 58.277, 42.066, 0.904)
pt3dadd(116.289, 58.179, 42.12, 0.904)
pt3dadd(116.321, 58.101, 42.189, 0.904)
pt3dadd(116.356, 57.986, 42.194, 0.904)
pt3dadd(116.391, 57.871, 42.199, 0.904)
pt3dadd(116.419, 57.76, 42.224, 0.904)
pt3dadd(116.445, 57.649, 42.256, 0.904)
pt3dadd(116.531, 57.597, 42.28, 0.904)
pt3dadd(116.646, 57.573, 42.3, 0.904)
pt3dadd(116.743, 57.528, 42.335, 0.904)
pt3dadd(116.819, 57.459, 42.386, 0.904)
pt3dadd(116.863, 57.402, 42.463, 0.904)
pt3dadd(116.887, 57.366, 42.554, 0.904)
pt3dadd(116.928, 57.36, 42.647, 0.904)
pt3dadd(117.025, 57.337, 42.697, 0.904)
pt3dadd(117.12, 57.28, 42.734, 0.904)
pt3dadd(117.187, 57.235, 42.808, 0.904)
pt3dadd(117.231, 57.163, 42.873, 0.904)
pt3dadd(117.24, 57.047, 42.895, 0.904)
pt3dadd(117.24, 56.928, 42.9, 0.904)
pt3dadd(117.24, 56.808, 42.9, 0.904)
pt3dadd(117.24, 56.688, 42.9, 0.904)
pt3dadd(117.249, 56.568, 42.9, 0.904)
pt3dadd(117.296, 56.46, 42.9, 0.904)
pt3dadd(117.357, 56.357, 42.9, 0.904)
pt3dadd(117.437, 56.272, 42.9, 0.904)
pt3dadd(117.536, 56.204, 42.9, 0.904)
pt3dadd(117.636, 56.139, 42.906, 0.904)
pt3dadd(117.742, 56.09, 42.93, 0.904)
pt3dadd(117.849, 56.046, 42.956, 0.904)
pt3dadd(117.956, 56.003, 42.983, 0.904)
pt3dadd(118.063, 55.959, 43.009, 0.904)
pt3dadd(118.167, 55.912, 43.037, 0.904)
pt3dadd(118.238, 55.828, 43.077, 0.904)
pt3dadd(118.309, 55.744, 43.118, 0.904)
pt3dadd(118.38, 55.66, 43.158, 0.904)
pt3dadd(118.45, 55.577, 43.198, 0.904)
pt3dadd(118.495, 55.48, 43.245, 0.904)
pt3dadd(118.539, 55.384, 43.292, 0.904)
pt3dadd(118.583, 55.287, 43.339, 0.904)
pt3dadd(118.627, 55.191, 43.385, 0.904)
pt3dadd(118.664, 55.085, 43.419, 0.904)
pt3dadd(118.697, 54.975, 43.448, 0.904)
pt3dadd(118.731, 54.865, 43.476, 0.904)
pt3dadd(118.765, 54.755, 43.504, 0.904)
pt3dadd(118.799, 54.645, 43.532, 0.904)
pt3dadd(118.854, 54.547, 43.568, 0.904)
pt3dadd(118.91, 54.451, 43.605, 0.904)
pt3dadd(118.966, 54.354, 43.641, 0.904)
pt3dadd(119.022, 54.257, 43.677, 0.904)
pt3dadd(119.077, 54.154, 43.69, 0.904)
pt3dadd(119.132, 54.047, 43.693, 0.904)
pt3dadd(119.187, 53.94, 43.695, 0.904)
pt3dadd(119.241, 53.833, 43.697, 0.904)
pt3dadd(119.296, 53.726, 43.699, 0.904)
pt3dadd(119.329, 53.617, 43.719, 0.904)
pt3dadd(119.345, 53.505, 43.752, 0.904)
pt3dadd(119.361, 53.393, 43.785, 0.904)
pt3dadd(119.377, 53.281, 43.819, 0.904)
pt3dadd(119.393, 53.169, 43.852, 0.904)
pt3dadd(119.435, 53.066, 43.884, 0.904)
pt3dadd(119.497, 52.97, 43.915, 0.904)
pt3dadd(119.559, 52.874, 43.946, 0.904)
pt3dadd(119.62, 52.778, 43.977, 0.904)
pt3dadd(119.684, 52.681, 44, 0.904)
pt3dadd(119.752, 52.582, 44, 0.904)
pt3dadd(119.824, 52.489, 44, 0.904)
pt3dadd(119.937, 52.45, 44, 0.904)
pt3dadd(120.05, 52.41, 44, 0.904)
pt3dadd(120.136, 52.331, 44, 0.904)
pt3dadd(120.21, 52.237, 44, 0.904)
pt3dadd(120.276, 52.143, 44.022, 0.904)
pt3dadd(120.334, 52.047, 44.059, 0.904)
pt3dadd(120.36, 51.936, 44.084, 0.904)
pt3dadd(120.39, 51.824, 44.105, 0.904)
pt3dadd(120.448, 51.722, 44.125, 0.904)
pt3dadd(120.506, 51.62, 44.145, 0.904)
pt3dadd(120.565, 51.518, 44.164, 0.904)
pt3dadd(120.623, 51.416, 44.183, 0.904)
pt3dadd(120.679, 51.31, 44.19, 0.904)
pt3dadd(120.733, 51.203, 44.193, 0.904)
pt3dadd(120.788, 51.097, 44.195, 0.904)
pt3dadd(120.844, 50.99, 44.197, 0.904)
pt3dadd(120.899, 50.883, 44.199, 0.904)
pt3dadd(120.94, 50.771, 44.2, 0.904)
pt3dadd(120.972, 50.656, 44.2, 0.904)
pt3dadd(121.006, 50.541, 44.203, 0.904)
pt3dadd(121.044, 50.428, 44.218, 0.904)
pt3dadd(121.081, 50.317, 44.236, 0.904)
pt3dadd(121.127, 50.235, 44.298, 0.904)
pt3dadd(121.168, 50.161, 44.367, 0.904)
pt3dadd(121.194, 50.115, 44.456, 0.904)
pt3dadd(121.236, 50.068, 44.537, 0.904)
pt3dadd(121.324, 50.021, 44.592, 0.904)
pt3dadd(121.382, 49.937, 44.644, 0.904)
pt3dadd(121.441, 49.852, 44.695, 0.904)
pt3dadd(121.5, 49.767, 44.747, 0.904)
pt3dadd(121.558, 49.683, 44.798, 0.904)
pt3dadd(121.654, 49.612, 44.805, 0.904)
pt3dadd(121.75, 49.541, 44.811, 0.904)
pt3dadd(121.841, 49.48, 44.85, 0.904)
pt3dadd(121.927, 49.415, 44.889, 0.904)
pt3dadd(121.991, 49.313, 44.895, 0.904)
pt3dadd(122.054, 49.212, 44.901, 0.904)
pt3dadd(122.105, 49.112, 44.936, 0.904)
pt3dadd(122.148, 49.012, 44.975, 0.904)
pt3dadd(122.158, 48.914, 45.033, 0.904)
pt3dadd(122.165, 48.826, 45.1, 0.904)
pt3dadd(122.172, 48.742, 45.171, 0.904)
pt3dadd(122.214, 48.643, 45.206, 0.904)
pt3dadd(122.269, 48.54, 45.229, 0.904)
pt3dadd(122.36, 48.48, 45.262, 0.904)
pt3dadd(122.461, 48.43, 45.298, 0.904)
pt3dadd(122.531, 48.334, 45.3, 0.904)
pt3dadd(122.599, 48.235, 45.3, 0.904)
pt3dadd(122.693, 48.163, 45.3, 0.904)
pt3dadd(122.792, 48.1, 45.31, 0.904)
pt3dadd(122.891, 48.042, 45.341, 0.904)
pt3dadd(122.989, 47.984, 45.372, 0.904)
pt3dadd(123.088, 47.926, 45.402, 0.904)
pt3dadd(123.186, 47.867, 45.433, 0.904)
pt3dadd(123.258, 47.792, 45.482, 0.904)
pt3dadd(123.33, 47.717, 45.531, 0.904)
pt3dadd(123.402, 47.641, 45.58, 0.904)
pt3dadd(123.475, 47.565, 45.63, 0.904)
pt3dadd(123.518, 47.463, 45.666, 0.904)
pt3dadd(123.56, 47.359, 45.7, 0.904)
pt3dadd(123.595, 47.244, 45.705, 0.904)
pt3dadd(123.629, 47.129, 45.71, 0.904)
pt3dadd(123.683, 47.074, 45.767, 0.904)
pt3dadd(123.746, 47.046, 45.849, 0.904)
pt3dadd(123.791, 47.02, 45.939, 0.904)
pt3dadd(123.829, 46.994, 46.031, 0.904)
pt3dadd(123.866, 46.903, 46.064, 0.904)
pt3dadd(123.904, 46.79, 46.077, 0.904)
pt3dadd(123.94, 46.677, 46.089, 0.904)
pt3dadd(123.984, 46.571, 46.1, 0.904)
pt3dadd(124.1, 46.545, 46.1, 0.904)
pt3dadd(124.218, 46.518, 46.1, 0.904)
pt3dadd(124.31, 46.453, 46.1, 0.904)
pt3dadd(124.374, 46.355, 46.119, 0.904)
pt3dadd(124.427, 46.266, 46.167, 0.904)
pt3dadd(124.445, 46.151, 46.193, 0.904)
pt3dadd(124.472, 46.036, 46.2, 0.904)
pt3dadd(124.56, 45.96, 46.2, 0.904)
}
dend_7[77] {pt3dclear()
pt3dadd(114.72, 60.72, 40.1, 0.904)
pt3dadd(114.704, 60.718, 40.103, 0.902)
pt3dadd(114.587, 60.707, 40.122, 0.878)
pt3dadd(114.47, 60.695, 40.142, 0.856)
pt3dadd(114.353, 60.683, 40.161, 0.834)
pt3dadd(114.236, 60.672, 40.181, 0.812)
pt3dadd(114.119, 60.66, 40.2, 0.79)
pt3dadd(114.002, 60.648, 40.22, 0.768)
pt3dadd(113.885, 60.636, 40.239, 0.746)
pt3dadd(113.768, 60.625, 40.259, 0.724)
pt3dadd(113.65, 60.613, 40.278, 0.702)
pt3dadd(113.533, 60.601, 40.298, 0.68)
pt3dadd(113.474, 60.507, 40.319, 0.678)
pt3dadd(113.421, 60.402, 40.341, 0.678)
pt3dadd(113.369, 60.298, 40.363, 0.678)
pt3dadd(113.316, 60.193, 40.385, 0.678)
pt3dadd(113.257, 60.092, 40.4, 0.678)
pt3dadd(113.182, 59.998, 40.4, 0.678)
pt3dadd(113.104, 59.907, 40.4, 0.678)
pt3dadd(113.011, 59.832, 40.4, 0.678)
}
}
proc shape3d_202() {
dend_7[77] { pt3dadd(112.917, 59.757, 40.4, 0.678)
pt3dadd(112.823, 59.683, 40.4, 0.678)
pt3dadd(112.729, 59.608, 40.4, 0.678)
pt3dadd(112.706, 59.493, 40.4, 0.678)
pt3dadd(112.692, 59.374, 40.4, 0.678)
pt3dadd(112.678, 59.255, 40.4, 0.678)
pt3dadd(112.666, 59.136, 40.4, 0.678)
pt3dadd(112.655, 59.016, 40.4, 0.678)
pt3dadd(112.643, 58.897, 40.4, 0.678)
pt3dadd(112.631, 58.777, 40.4, 0.678)
pt3dadd(112.553, 58.716, 40.4, 0.678)
pt3dadd(112.436, 58.69, 40.4, 0.678)
pt3dadd(112.319, 58.663, 40.4, 0.678)
pt3dadd(112.211, 58.616, 40.4, 0.678)
pt3dadd(112.12, 58.538, 40.4, 0.678)
pt3dadd(112.029, 58.46, 40.4, 0.678)
pt3dadd(111.938, 58.382, 40.4, 0.678)
pt3dadd(111.846, 58.304, 40.4, 0.678)
pt3dadd(111.77, 58.216, 40.408, 0.678)
pt3dadd(111.721, 58.11, 40.429, 0.678)
pt3dadd(111.672, 58.003, 40.451, 0.678)
pt3dadd(111.623, 57.897, 40.472, 0.678)
pt3dadd(111.574, 57.79, 40.494, 0.678)
pt3dadd(111.515, 57.689, 40.516, 0.678)
pt3dadd(111.452, 57.591, 40.538, 0.678)
pt3dadd(111.39, 57.492, 40.561, 0.678)
pt3dadd(111.327, 57.394, 40.583, 0.678)
pt3dadd(111.264, 57.294, 40.6, 0.678)
pt3dadd(111.203, 57.19, 40.6, 0.678)
pt3dadd(111.14, 57.089, 40.6, 0.678)
pt3dadd(111.041, 57.021, 40.6, 0.678)
pt3dadd(110.942, 56.953, 40.6, 0.678)
pt3dadd(110.914, 56.84, 40.6, 0.678)
pt3dadd(110.894, 56.722, 40.6, 0.678)
pt3dadd(110.88, 56.603, 40.6, 0.678)
pt3dadd(110.88, 56.483, 40.6, 0.678)
pt3dadd(110.88, 56.363, 40.6, 0.678)
pt3dadd(110.873, 56.244, 40.6, 0.678)
pt3dadd(110.85, 56.126, 40.6, 0.678)
pt3dadd(110.803, 56.017, 40.6, 0.678)
pt3dadd(110.742, 55.913, 40.6, 0.678)
pt3dadd(110.673, 55.816, 40.6, 0.678)
pt3dadd(110.591, 55.729, 40.6, 0.678)
pt3dadd(110.532, 55.633, 40.608, 0.678)
pt3dadd(110.526, 55.518, 40.637, 0.678)
pt3dadd(110.52, 55.403, 40.666, 0.678)
pt3dadd(110.52, 55.284, 40.679, 0.678)
pt3dadd(110.52, 55.165, 40.691, 0.678)
pt3dadd(110.52, 55.046, 40.7, 0.678)
pt3dadd(110.52, 54.926, 40.7, 0.678)
pt3dadd(110.526, 54.807, 40.702, 0.678)
pt3dadd(110.547, 54.689, 40.707, 0.678)
pt3dadd(110.568, 54.571, 40.713, 0.678)
pt3dadd(110.588, 54.453, 40.719, 0.678)
pt3dadd(110.609, 54.335, 40.725, 0.678)
pt3dadd(110.63, 54.217, 40.73, 0.678)
pt3dadd(110.64, 54.098, 40.739, 0.678)
pt3dadd(110.64, 53.979, 40.749, 0.678)
pt3dadd(110.64, 53.859, 40.76, 0.678)
pt3dadd(110.64, 53.74, 40.77, 0.678)
pt3dadd(110.64, 53.621, 40.781, 0.678)
pt3dadd(110.64, 53.501, 40.791, 0.678)
pt3dadd(110.634, 53.383, 40.8, 0.678)
pt3dadd(110.592, 53.271, 40.8, 0.678)
pt3dadd(110.55, 53.158, 40.8, 0.678)
pt3dadd(110.509, 53.045, 40.8, 0.678)
pt3dadd(110.467, 52.933, 40.8, 0.678)
pt3dadd(110.426, 52.82, 40.8, 0.678)
pt3dadd(110.41, 52.703, 40.808, 0.678)
pt3dadd(110.406, 52.584, 40.818, 0.678)
pt3dadd(110.402, 52.465, 40.829, 0.678)
pt3dadd(110.397, 52.345, 40.84, 0.678)
pt3dadd(110.393, 52.226, 40.851, 0.678)
pt3dadd(110.389, 52.107, 40.862, 0.678)
pt3dadd(110.364, 51.991, 40.87, 0.678)
pt3dadd(110.323, 51.879, 40.877, 0.678)
pt3dadd(110.282, 51.766, 40.883, 0.678)
pt3dadd(110.241, 51.654, 40.889, 0.678)
pt3dadd(110.2, 51.541, 40.896, 0.678)
pt3dadd(110.166, 51.427, 40.9, 0.678)
pt3dadd(110.143, 51.309, 40.9, 0.678)
pt3dadd(110.121, 51.191, 40.9, 0.678)
pt3dadd(110.099, 51.073, 40.9, 0.678)
pt3dadd(110.077, 50.955, 40.9, 0.678)
pt3dadd(110.055, 50.837, 40.9, 0.678)
pt3dadd(110.033, 50.719, 40.9, 0.678)
pt3dadd(110.013, 50.601, 40.9, 0.678)
pt3dadd(109.994, 50.483, 40.9, 0.678)
pt3dadd(109.974, 50.364, 40.9, 0.678)
pt3dadd(109.954, 50.246, 40.9, 0.678)
pt3dadd(109.935, 50.127, 40.9, 0.678)
pt3dadd(109.907, 50.012, 40.9, 0.678)
pt3dadd(109.856, 49.903, 40.9, 0.678)
pt3dadd(109.806, 49.794, 40.9, 0.678)
pt3dadd(109.755, 49.685, 40.9, 0.678)
pt3dadd(109.705, 49.576, 40.9, 0.678)
pt3dadd(109.654, 49.467, 40.9, 0.678)
pt3dadd(109.614, 49.354, 40.9, 0.678)
pt3dadd(109.574, 49.241, 40.9, 0.678)
pt3dadd(109.535, 49.128, 40.9, 0.678)
pt3dadd(109.495, 49.015, 40.9, 0.678)
pt3dadd(109.443, 48.909, 40.902, 0.678)
pt3dadd(109.358, 48.825, 40.907, 0.678)
pt3dadd(109.281, 48.742, 40.926, 0.678)
pt3dadd(109.227, 48.666, 40.99, 0.678)
pt3dadd(109.2, 48.585, 41.056, 0.678)
pt3dadd(109.197, 48.5, 41.125, 0.678)
pt3dadd(109.15, 48.401, 41.166, 0.678)
pt3dadd(109.104, 48.302, 41.208, 0.678)
pt3dadd(109.057, 48.203, 41.249, 0.678)
pt3dadd(109.011, 48.104, 41.29, 0.678)
pt3dadd(108.959, 48.003, 41.321, 0.678)
pt3dadd(108.905, 47.901, 41.348, 0.678)
pt3dadd(108.851, 47.799, 41.376, 0.678)
pt3dadd(108.797, 47.697, 41.403, 0.678)
pt3dadd(108.75, 47.591, 41.427, 0.678)
pt3dadd(108.719, 47.476, 41.442, 0.678)
pt3dadd(108.688, 47.362, 41.457, 0.678)
pt3dadd(108.656, 47.247, 41.472, 0.678)
pt3dadd(108.625, 47.133, 41.488, 0.678)
pt3dadd(108.599, 47.017, 41.5, 0.678)
pt3dadd(108.595, 46.898, 41.5, 0.678)
pt3dadd(108.59, 46.778, 41.5, 0.678)
pt3dadd(108.575, 46.66, 41.5, 0.678)
pt3dadd(108.535, 46.546, 41.5, 0.678)
pt3dadd(108.495, 46.433, 41.5, 0.678)
pt3dadd(108.488, 46.316, 41.517, 0.678)
pt3dadd(108.483, 46.198, 41.535, 0.678)
pt3dadd(108.472, 46.123, 41.589, 0.678)
pt3dadd(108.455, 46.099, 41.686, 0.678)
pt3dadd(108.436, 46.065, 41.777, 0.678)
pt3dadd(108.411, 45.976, 41.841, 0.678)
pt3dadd(108.385, 45.887, 41.904, 0.678)
pt3dadd(108.36, 45.798, 41.967, 0.678)
pt3dadd(108.365, 45.679, 41.98, 0.678)
pt3dadd(108.37, 45.56, 41.993, 0.678)
pt3dadd(108.387, 45.443, 42, 0.678)
pt3dadd(108.42, 45.327, 42, 0.678)
pt3dadd(108.453, 45.212, 42, 0.678)
pt3dadd(108.487, 45.097, 42, 0.678)
pt3dadd(108.52, 44.981, 42, 0.678)
pt3dadd(108.553, 44.866, 42, 0.678)
pt3dadd(108.586, 44.751, 42, 0.678)
pt3dadd(108.642, 44.649, 42.024, 0.678)
pt3dadd(108.698, 44.547, 42.049, 0.678)
pt3dadd(108.755, 44.446, 42.074, 0.678)
pt3dadd(108.812, 44.344, 42.099, 0.678)
pt3dadd(108.864, 44.243, 42.129, 0.678)
pt3dadd(108.912, 44.141, 42.164, 0.678)
pt3dadd(108.96, 44.04, 42.2, 0.678)
}
dend_7[78] {pt3dclear()
pt3dadd(103.841, 92.646, 21.309, 2.034)
pt3dadd(103.863, 92.657, 21.356, 1.992)
pt3dadd(103.906, 92.68, 21.448, 1.912)
pt3dadd(103.949, 92.702, 21.539, 1.832)
pt3dadd(103.992, 92.725, 21.63, 1.752)
pt3dadd(104.035, 92.747, 21.722, 1.672)
pt3dadd(104.078, 92.77, 21.813, 1.59)
pt3dadd(104.121, 92.792, 21.905, 1.51)
pt3dadd(104.163, 92.813, 21.997, 1.436)
pt3dadd(104.204, 92.831, 22.09, 1.374)
pt3dadd(104.244, 92.849, 22.183, 1.314)
pt3dadd(104.285, 92.867, 22.276, 1.254)
pt3dadd(104.325, 92.884, 22.369, 1.192)
pt3dadd(104.366, 92.902, 22.462, 1.132)
pt3dadd(104.406, 92.92, 22.555, 1.072)
pt3dadd(104.446, 92.938, 22.648, 1.01)
pt3dadd(104.487, 92.956, 22.74, 0.95)
pt3dadd(104.527, 92.973, 22.833, 0.888)
pt3dadd(104.566, 92.988, 22.927, 0.842)
pt3dadd(104.603, 92.996, 23.022, 0.828)
pt3dadd(104.639, 93.003, 23.117, 0.812)
pt3dadd(104.675, 93.011, 23.212, 0.798)
pt3dadd(104.712, 93.019, 23.307, 0.782)
pt3dadd(104.748, 93.027, 23.403, 0.768)
pt3dadd(104.784, 93.034, 23.498, 0.752)
pt3dadd(104.82, 93.042, 23.593, 0.738)
pt3dadd(104.857, 93.05, 23.688, 0.722)
pt3dadd(104.893, 93.057, 23.783, 0.708)
pt3dadd(104.938, 93.066, 23.875, 0.71)
pt3dadd(105.001, 93.077, 23.959, 0.752)
pt3dadd(105.064, 93.088, 24.044, 0.794)
pt3dadd(105.127, 93.1, 24.129, 0.834)
pt3dadd(105.19, 93.111, 24.213, 0.876)
pt3dadd(105.253, 93.122, 24.298, 0.916)
pt3dadd(105.315, 93.133, 24.383, 0.958)
pt3dadd(105.378, 93.144, 24.467, 0.998)
pt3dadd(105.441, 93.155, 24.552, 1.04)
pt3dadd(105.504, 93.167, 24.637, 1.08)
pt3dadd(105.564, 93.18, 24.722, 1.108)
pt3dadd(105.617, 93.199, 24.811, 1.112)
pt3dadd(105.67, 93.217, 24.899, 1.114)
pt3dadd(105.723, 93.236, 24.988, 1.116)
pt3dadd(105.775, 93.255, 25.076, 1.118)
pt3dadd(105.828, 93.273, 25.165, 1.12)
pt3dadd(105.881, 93.292, 25.253, 1.122)
pt3dadd(105.934, 93.31, 25.341, 1.124)
pt3dadd(105.987, 93.329, 25.43, 1.126)
pt3dadd(106.04, 93.348, 25.518, 1.128)
pt3dadd(106.101, 93.379, 25.597, 1.13)
pt3dadd(106.179, 93.436, 25.657, 1.13)
}
}
proc shape3d_203() {
dend_7[78] { pt3dadd(106.257, 93.493, 25.716, 1.13)
pt3dadd(106.334, 93.549, 25.776, 1.13)
pt3dadd(106.412, 93.606, 25.836, 1.13)
pt3dadd(106.49, 93.663, 25.895, 1.13)
pt3dadd(106.568, 93.72, 25.955, 1.13)
pt3dadd(106.645, 93.776, 26.015, 1.13)
pt3dadd(106.723, 93.833, 26.075, 1.13)
pt3dadd(106.801, 93.89, 26.134, 1.13)
pt3dadd(106.875, 93.948, 26.196, 1.12)
pt3dadd(106.946, 94.006, 26.26, 1.102)
pt3dadd(107.017, 94.065, 26.324, 1.084)
pt3dadd(107.089, 94.124, 26.388, 1.066)
pt3dadd(107.16, 94.183, 26.452, 1.048)
pt3dadd(107.231, 94.241, 26.516, 1.03)
pt3dadd(107.302, 94.3, 26.58, 1.012)
pt3dadd(107.374, 94.359, 26.644, 0.992)
pt3dadd(107.445, 94.417, 26.708, 0.974)
pt3dadd(107.516, 94.476, 26.771, 0.956)
pt3dadd(107.595, 94.541, 26.822, 0.956)
pt3dadd(107.679, 94.611, 26.863, 0.968)
pt3dadd(107.763, 94.681, 26.905, 0.98)
pt3dadd(107.848, 94.75, 26.946, 0.994)
pt3dadd(107.932, 94.82, 26.987, 1.006)
pt3dadd(108.016, 94.89, 27.028, 1.018)
pt3dadd(108.1, 94.959, 27.069, 1.03)
pt3dadd(108.185, 95.029, 27.11, 1.042)
pt3dadd(108.269, 95.099, 27.151, 1.056)
pt3dadd(108.353, 95.169, 27.192, 1.068)
pt3dadd(108.449, 95.229, 27.226, 1.098)
pt3dadd(108.549, 95.284, 27.255, 1.136)
pt3dadd(108.649, 95.34, 27.285, 1.172)
pt3dadd(108.749, 95.396, 27.315, 1.21)
pt3dadd(108.849, 95.452, 27.344, 1.248)
pt3dadd(108.949, 95.508, 27.374, 1.286)
pt3dadd(109.049, 95.563, 27.404, 1.324)
pt3dadd(109.149, 95.619, 27.434, 1.36)
pt3dadd(109.249, 95.675, 27.463, 1.398)
pt3dadd(109.349, 95.731, 27.493, 1.436)
pt3dadd(109.445, 95.782, 27.535, 1.418)
pt3dadd(109.539, 95.831, 27.582, 1.38)
pt3dadd(109.633, 95.881, 27.628, 1.344)
pt3dadd(109.727, 95.93, 27.674, 1.306)
pt3dadd(109.821, 95.98, 27.721, 1.268)
pt3dadd(109.915, 96.029, 27.767, 1.232)
pt3dadd(110.01, 96.079, 27.813, 1.194)
pt3dadd(110.104, 96.129, 27.86, 1.158)
pt3dadd(110.198, 96.178, 27.906, 1.12)
pt3dadd(110.292, 96.228, 27.952, 1.084)
pt3dadd(110.382, 96.291, 27.992, 1.076)
pt3dadd(110.471, 96.357, 28.03, 1.074)
pt3dadd(110.56, 96.423, 28.068, 1.072)
pt3dadd(110.649, 96.489, 28.106, 1.07)
pt3dadd(110.738, 96.555, 28.144, 1.068)
pt3dadd(110.827, 96.621, 28.183, 1.064)
pt3dadd(110.916, 96.687, 28.221, 1.062)
pt3dadd(111.006, 96.753, 28.259, 1.06)
pt3dadd(111.095, 96.819, 28.297, 1.058)
pt3dadd(111.184, 96.885, 28.335, 1.056)
pt3dadd(111.27, 96.962, 28.361, 1.034)
pt3dadd(111.357, 97.04, 28.386, 1.008)
pt3dadd(111.443, 97.118, 28.411, 0.984)
pt3dadd(111.53, 97.195, 28.436, 0.958)
pt3dadd(111.616, 97.273, 28.461, 0.934)
pt3dadd(111.702, 97.351, 28.485, 0.91)
pt3dadd(111.789, 97.429, 28.51, 0.884)
pt3dadd(111.875, 97.506, 28.535, 0.86)
pt3dadd(111.962, 97.584, 28.56, 0.836)
pt3dadd(112.048, 97.662, 28.585, 0.81)
pt3dadd(112.135, 97.739, 28.61, 0.79)
pt3dadd(112.222, 97.815, 28.635, 0.77)
pt3dadd(112.309, 97.892, 28.66, 0.75)
pt3dadd(112.397, 97.969, 28.685, 0.73)
pt3dadd(112.484, 98.046, 28.71, 0.71)
pt3dadd(112.571, 98.123, 28.735, 0.69)
pt3dadd(112.658, 98.2, 28.76, 0.668)
pt3dadd(112.745, 98.277, 28.785, 0.648)
pt3dadd(112.832, 98.354, 28.811, 0.628)
pt3dadd(112.919, 98.43, 28.836, 0.608)
pt3dadd(113.011, 98.495, 28.872, 0.66)
pt3dadd(113.102, 98.559, 28.908, 0.714)
pt3dadd(113.193, 98.624, 28.944, 0.766)
pt3dadd(113.285, 98.688, 28.98, 0.818)
pt3dadd(113.376, 98.753, 29.016, 0.87)
pt3dadd(113.468, 98.817, 29.053, 0.922)
pt3dadd(113.559, 98.882, 29.089, 0.974)
pt3dadd(113.65, 98.947, 29.125, 1.026)
pt3dadd(113.742, 99.011, 29.161, 1.078)
pt3dadd(113.833, 99.076, 29.197, 1.13)
}
dend_7[79] {pt3dclear()
pt3dadd(113.833, 99.076, 29.197, 1.13)
pt3dadd(113.853, 99.105, 29.205, 1.118)
pt3dadd(113.918, 99.2, 29.232, 1.076)
pt3dadd(113.983, 99.296, 29.258, 1.036)
pt3dadd(114.049, 99.391, 29.285, 0.994)
pt3dadd(114.114, 99.487, 29.312, 0.954)
pt3dadd(114.179, 99.582, 29.338, 0.912)
pt3dadd(114.245, 99.679, 29.361, 0.886)
pt3dadd(114.311, 99.776, 29.38, 0.874)
pt3dadd(114.378, 99.873, 29.399, 0.86)
pt3dadd(114.444, 99.971, 29.419, 0.848)
pt3dadd(114.51, 100.068, 29.438, 0.834)
pt3dadd(114.577, 100.165, 29.457, 0.822)
pt3dadd(114.643, 100.263, 29.477, 0.808)
pt3dadd(114.709, 100.36, 29.496, 0.796)
pt3dadd(114.776, 100.457, 29.515, 0.782)
pt3dadd(114.842, 100.554, 29.535, 0.768)
pt3dadd(114.906, 100.654, 29.548, 0.774)
pt3dadd(114.968, 100.756, 29.557, 0.792)
pt3dadd(115.031, 100.858, 29.566, 0.81)
pt3dadd(115.093, 100.96, 29.575, 0.828)
pt3dadd(115.156, 101.062, 29.584, 0.846)
pt3dadd(115.218, 101.164, 29.593, 0.866)
pt3dadd(115.281, 101.266, 29.602, 0.884)
pt3dadd(115.343, 101.368, 29.611, 0.902)
pt3dadd(115.405, 101.47, 29.62, 0.92)
pt3dadd(115.468, 101.572, 29.628, 0.938)
pt3dadd(115.519, 101.68, 29.633, 0.956)
pt3dadd(115.564, 101.791, 29.634, 0.974)
pt3dadd(115.609, 101.902, 29.636, 0.992)
pt3dadd(115.654, 102.013, 29.637, 1.01)
pt3dadd(115.699, 102.124, 29.639, 1.028)
pt3dadd(115.744, 102.236, 29.64, 1.048)
pt3dadd(115.789, 102.347, 29.642, 1.066)
pt3dadd(115.834, 102.458, 29.643, 1.084)
pt3dadd(115.879, 102.569, 29.645, 1.102)
pt3dadd(115.924, 102.681, 29.646, 1.12)
pt3dadd(115.981, 102.786, 29.649, 1.106)
pt3dadd(116.044, 102.888, 29.652, 1.072)
pt3dadd(116.106, 102.99, 29.655, 1.038)
pt3dadd(116.169, 103.093, 29.657, 1.006)
pt3dadd(116.232, 103.195, 29.66, 0.972)
pt3dadd(116.295, 103.297, 29.663, 0.94)
pt3dadd(116.357, 103.399, 29.666, 0.906)
pt3dadd(116.42, 103.502, 29.669, 0.872)
pt3dadd(116.483, 103.604, 29.672, 0.84)
pt3dadd(116.546, 103.706, 29.675, 0.806)
pt3dadd(116.602, 103.812, 29.68, 0.796)
pt3dadd(116.655, 103.919, 29.686, 0.796)
pt3dadd(116.708, 104.027, 29.692, 0.798)
pt3dadd(116.76, 104.134, 29.698, 0.798)
pt3dadd(116.813, 104.241, 29.705, 0.8)
pt3dadd(116.866, 104.349, 29.711, 0.802)
pt3dadd(116.919, 104.456, 29.717, 0.802)
pt3dadd(116.972, 104.564, 29.724, 0.804)
pt3dadd(117.025, 104.671, 29.73, 0.806)
pt3dadd(117.078, 104.779, 29.736, 0.806)
pt3dadd(117.133, 104.884, 29.745, 0.832)
pt3dadd(117.191, 104.989, 29.756, 0.872)
pt3dadd(117.248, 105.094, 29.767, 0.91)
pt3dadd(117.305, 105.198, 29.778, 0.948)
pt3dadd(117.362, 105.303, 29.788, 0.986)
pt3dadd(117.42, 105.408, 29.799, 1.026)
pt3dadd(117.477, 105.512, 29.81, 1.064)
pt3dadd(117.534, 105.617, 29.82, 1.102)
pt3dadd(117.592, 105.722, 29.831, 1.14)
pt3dadd(117.649, 105.826, 29.842, 1.18)
pt3dadd(117.712, 105.924, 29.865, 1.202)
pt3dadd(117.778, 106.018, 29.893, 1.218)
pt3dadd(117.844, 106.113, 29.921, 1.232)
pt3dadd(117.91, 106.207, 29.949, 1.248)
pt3dadd(117.976, 106.301, 29.977, 1.264)
pt3dadd(118.042, 106.396, 30.005, 1.28)
pt3dadd(118.108, 106.49, 30.033, 1.296)
pt3dadd(118.174, 106.585, 30.061, 1.312)
pt3dadd(118.24, 106.679, 30.089, 1.328)
pt3dadd(118.306, 106.773, 30.117, 1.344)
pt3dadd(118.365, 106.856, 30.17, 1.29)
pt3dadd(118.424, 106.939, 30.224, 1.234)
pt3dadd(118.483, 107.021, 30.277, 1.178)
pt3dadd(118.542, 107.104, 30.331, 1.124)
pt3dadd(118.601, 107.187, 30.384, 1.068)
pt3dadd(118.659, 107.269, 30.438, 1.012)
pt3dadd(118.718, 107.352, 30.491, 0.958)
pt3dadd(118.777, 107.434, 30.545, 0.902)
pt3dadd(118.836, 107.517, 30.598, 0.846)
pt3dadd(118.895, 107.599, 30.652, 0.792)
}
dend_7[80] {pt3dclear()
pt3dadd(118.895, 107.599, 30.652, 0.792)
pt3dadd(118.961, 107.653, 30.685, 0.758)
pt3dadd(119.046, 107.721, 30.727, 0.718)
pt3dadd(119.131, 107.79, 30.769, 0.676)
pt3dadd(119.215, 107.858, 30.811, 0.634)
pt3dadd(119.3, 107.927, 30.853, 0.594)
pt3dadd(119.385, 107.995, 30.895, 0.552)
pt3dadd(119.469, 108.064, 30.937, 0.51)
pt3dadd(119.554, 108.132, 30.979, 0.468)
pt3dadd(119.639, 108.201, 31.021, 0.428)
pt3dadd(119.725, 108.266, 31.063, 0.39)
pt3dadd(119.826, 108.3, 31.109, 0.386)
pt3dadd(119.928, 108.333, 31.154, 0.382)
pt3dadd(120.03, 108.367, 31.199, 0.378)
pt3dadd(120.131, 108.401, 31.244, 0.374)
pt3dadd(120.233, 108.435, 31.289, 0.37)
pt3dadd(120.334, 108.469, 31.335, 0.366)
pt3dadd(120.436, 108.503, 31.38, 0.362)
pt3dadd(120.538, 108.536, 31.425, 0.356)
pt3dadd(120.638, 108.57, 31.47, 0.352)
pt3dadd(120.74, 108.604, 31.516, 0.352)
pt3dadd(120.842, 108.636, 31.561, 0.37)
pt3dadd(120.944, 108.669, 31.606, 0.388)
pt3dadd(121.046, 108.702, 31.652, 0.404)
pt3dadd(121.148, 108.734, 31.697, 0.422)
}
}
proc shape3d_204() {
dend_7[80] { pt3dadd(121.249, 108.767, 31.742, 0.44)
pt3dadd(121.351, 108.799, 31.788, 0.458)
pt3dadd(121.453, 108.832, 31.833, 0.476)
pt3dadd(121.555, 108.865, 31.878, 0.492)
pt3dadd(121.657, 108.897, 31.923, 0.51)
pt3dadd(121.759, 108.931, 31.968, 0.528)
pt3dadd(121.861, 108.971, 32.009, 0.542)
pt3dadd(121.963, 109.011, 32.051, 0.556)
pt3dadd(122.064, 109.051, 32.092, 0.57)
pt3dadd(122.166, 109.091, 32.133, 0.584)
pt3dadd(122.268, 109.131, 32.175, 0.598)
pt3dadd(122.37, 109.171, 32.216, 0.614)
pt3dadd(122.471, 109.211, 32.257, 0.628)
pt3dadd(122.573, 109.25, 32.299, 0.642)
pt3dadd(122.675, 109.29, 32.34, 0.656)
pt3dadd(122.776, 109.327, 32.384, 0.664)
pt3dadd(122.87, 109.351, 32.442, 0.65)
pt3dadd(122.966, 109.374, 32.499, 0.634)
pt3dadd(123.061, 109.398, 32.556, 0.618)
pt3dadd(123.157, 109.422, 32.613, 0.604)
pt3dadd(123.253, 109.445, 32.671, 0.588)
pt3dadd(123.348, 109.469, 32.728, 0.572)
pt3dadd(123.444, 109.493, 32.785, 0.558)
pt3dadd(123.539, 109.516, 32.842, 0.542)
pt3dadd(123.635, 109.54, 32.899, 0.526)
pt3dadd(123.73, 109.562, 32.957, 0.516)
pt3dadd(123.824, 109.578, 33.018, 0.528)
pt3dadd(123.919, 109.593, 33.078, 0.54)
pt3dadd(124.013, 109.609, 33.139, 0.552)
pt3dadd(124.108, 109.625, 33.199, 0.562)
pt3dadd(124.201, 109.641, 33.26, 0.574)
pt3dadd(124.296, 109.656, 33.32, 0.586)
pt3dadd(124.39, 109.672, 33.381, 0.598)
pt3dadd(124.484, 109.688, 33.441, 0.61)
pt3dadd(124.578, 109.704, 33.502, 0.622)
pt3dadd(124.673, 109.718, 33.563, 0.636)
pt3dadd(124.765, 109.728, 33.626, 0.66)
pt3dadd(124.858, 109.737, 33.688, 0.682)
pt3dadd(124.951, 109.747, 33.751, 0.706)
pt3dadd(125.044, 109.756, 33.814, 0.73)
pt3dadd(125.137, 109.766, 33.877, 0.754)
pt3dadd(125.23, 109.776, 33.94, 0.776)
pt3dadd(125.322, 109.785, 34.002, 0.8)
pt3dadd(125.416, 109.795, 34.065, 0.824)
pt3dadd(125.508, 109.804, 34.128, 0.848)
pt3dadd(125.6, 109.812, 34.191, 0.856)
pt3dadd(125.692, 109.812, 34.256, 0.812)
pt3dadd(125.783, 109.812, 34.321, 0.768)
pt3dadd(125.874, 109.812, 34.387, 0.724)
pt3dadd(125.965, 109.812, 34.452, 0.68)
pt3dadd(126.056, 109.813, 34.517, 0.636)
pt3dadd(126.148, 109.813, 34.582, 0.592)
pt3dadd(126.239, 109.813, 34.647, 0.548)
pt3dadd(126.33, 109.813, 34.712, 0.504)
pt3dadd(126.42, 109.813, 34.777, 0.46)
pt3dadd(126.514, 109.813, 34.84, 0.426)
pt3dadd(126.613, 109.814, 34.896, 0.424)
pt3dadd(126.713, 109.814, 34.952, 0.422)
pt3dadd(126.811, 109.814, 35.008, 0.422)
pt3dadd(126.911, 109.815, 35.064, 0.42)
pt3dadd(127.01, 109.815, 35.12, 0.418)
pt3dadd(127.11, 109.815, 35.177, 0.416)
pt3dadd(127.21, 109.816, 35.233, 0.416)
pt3dadd(127.309, 109.816, 35.289, 0.414)
pt3dadd(127.408, 109.817, 35.345, 0.412)
pt3dadd(127.508, 109.817, 35.399, 0.422)
pt3dadd(127.613, 109.818, 35.448, 0.458)
pt3dadd(127.718, 109.818, 35.497, 0.496)
pt3dadd(127.823, 109.819, 35.546, 0.532)
pt3dadd(127.927, 109.82, 35.595, 0.57)
pt3dadd(128.032, 109.821, 35.644, 0.608)
pt3dadd(128.136, 109.821, 35.693, 0.644)
pt3dadd(128.24, 109.822, 35.742, 0.682)
pt3dadd(128.345, 109.823, 35.791, 0.718)
pt3dadd(128.449, 109.824, 35.84, 0.756)
pt3dadd(128.554, 109.824, 35.891, 0.796)
pt3dadd(128.656, 109.825, 35.944, 0.846)
pt3dadd(128.756, 109.826, 35.997, 0.894)
pt3dadd(128.858, 109.827, 36.051, 0.944)
pt3dadd(128.959, 109.829, 36.104, 0.992)
pt3dadd(129.061, 109.83, 36.157, 1.042)
pt3dadd(129.162, 109.831, 36.211, 1.09)
pt3dadd(129.264, 109.832, 36.264, 1.14)
pt3dadd(129.366, 109.833, 36.317, 1.188)
pt3dadd(129.467, 109.834, 36.371, 1.238)
pt3dadd(129.569, 109.835, 36.424, 1.258)
pt3dadd(129.668, 109.838, 36.479, 1.198)
pt3dadd(129.769, 109.84, 36.533, 1.14)
pt3dadd(129.87, 109.842, 36.588, 1.08)
pt3dadd(129.971, 109.844, 36.642, 1.02)
pt3dadd(130.072, 109.846, 36.697, 0.962)
pt3dadd(130.172, 109.848, 36.751, 0.902)
pt3dadd(130.273, 109.851, 36.806, 0.842)
pt3dadd(130.373, 109.853, 36.86, 0.784)
pt3dadd(130.474, 109.855, 36.914, 0.724)
pt3dadd(130.577, 109.857, 36.966, 0.674)
pt3dadd(130.682, 109.861, 37.013, 0.654)
pt3dadd(130.789, 109.866, 37.058, 0.632)
pt3dadd(130.896, 109.869, 37.105, 0.61)
pt3dadd(131.002, 109.873, 37.151, 0.588)
pt3dadd(131.108, 109.877, 37.197, 0.566)
pt3dadd(131.215, 109.881, 37.243, 0.546)
pt3dadd(131.322, 109.885, 37.289, 0.524)
pt3dadd(131.428, 109.889, 37.335, 0.502)
pt3dadd(131.534, 109.893, 37.381, 0.48)
pt3dadd(131.644, 109.898, 37.421, 0.482)
pt3dadd(131.758, 109.906, 37.451, 0.53)
pt3dadd(131.872, 109.913, 37.482, 0.578)
pt3dadd(131.986, 109.92, 37.512, 0.626)
pt3dadd(132.1, 109.927, 37.542, 0.674)
pt3dadd(132.215, 109.935, 37.572, 0.722)
pt3dadd(132.329, 109.942, 37.603, 0.77)
pt3dadd(132.443, 109.949, 37.633, 0.818)
pt3dadd(132.557, 109.956, 37.663, 0.866)
pt3dadd(132.671, 109.964, 37.693, 0.914)
pt3dadd(132.787, 109.972, 37.717, 0.95)
pt3dadd(132.905, 109.984, 37.729, 0.968)
pt3dadd(133.024, 109.995, 37.741, 0.986)
pt3dadd(133.142, 110.007, 37.754, 1.004)
pt3dadd(133.261, 110.019, 37.766, 1.022)
pt3dadd(133.38, 110.03, 37.778, 1.04)
pt3dadd(133.498, 110.042, 37.791, 1.058)
pt3dadd(133.616, 110.053, 37.803, 1.076)
pt3dadd(133.735, 110.065, 37.815, 1.094)
pt3dadd(133.854, 110.076, 37.828, 1.112)
pt3dadd(133.97, 110.098, 37.836, 1.116)
pt3dadd(134.083, 110.137, 37.839, 1.098)
pt3dadd(134.197, 110.175, 37.842, 1.078)
pt3dadd(134.311, 110.214, 37.845, 1.06)
pt3dadd(134.424, 110.252, 37.848, 1.042)
pt3dadd(134.538, 110.291, 37.851, 1.022)
pt3dadd(134.652, 110.329, 37.854, 1.004)
pt3dadd(134.765, 110.368, 37.857, 0.984)
pt3dadd(134.879, 110.406, 37.86, 0.966)
pt3dadd(134.993, 110.445, 37.863, 0.948)
pt3dadd(135.108, 110.476, 37.867, 0.934)
pt3dadd(135.226, 110.496, 37.874, 0.932)
pt3dadd(135.343, 110.517, 37.881, 0.928)
pt3dadd(135.462, 110.537, 37.888, 0.924)
pt3dadd(135.58, 110.557, 37.895, 0.922)
pt3dadd(135.697, 110.577, 37.902, 0.918)
pt3dadd(135.816, 110.598, 37.909, 0.916)
pt3dadd(135.934, 110.618, 37.916, 0.912)
pt3dadd(136.051, 110.638, 37.923, 0.908)
pt3dadd(136.17, 110.658, 37.93, 0.906)
pt3dadd(136.288, 110.66, 37.939, 0.904)
pt3dadd(136.404, 110.637, 37.951, 0.904)
pt3dadd(136.52, 110.614, 37.963, 0.904)
pt3dadd(136.638, 110.59, 37.975, 0.904)
pt3dadd(136.754, 110.567, 37.987, 0.904)
pt3dadd(136.871, 110.544, 37.999, 0.904)
pt3dadd(136.988, 110.521, 38.011, 0.904)
pt3dadd(137.105, 110.497, 38.023, 0.904)
pt3dadd(137.222, 110.474, 38.035, 0.904)
pt3dadd(137.339, 110.451, 38.047, 0.904)
pt3dadd(137.447, 110.417, 38.076, 0.904)
pt3dadd(137.55, 110.378, 38.116, 0.904)
pt3dadd(137.652, 110.338, 38.156, 0.904)
pt3dadd(137.755, 110.298, 38.196, 0.904)
pt3dadd(137.857, 110.259, 38.235, 0.904)
pt3dadd(137.96, 110.219, 38.275, 0.904)
pt3dadd(138.064, 110.179, 38.315, 0.904)
pt3dadd(138.166, 110.14, 38.355, 0.904)
pt3dadd(138.269, 110.1, 38.395, 0.904)
pt3dadd(138.371, 110.06, 38.434, 0.904)
pt3dadd(138.478, 110.034, 38.474, 0.89)
pt3dadd(138.584, 110.009, 38.514, 0.872)
pt3dadd(138.692, 109.985, 38.554, 0.854)
pt3dadd(138.799, 109.961, 38.594, 0.836)
pt3dadd(138.907, 109.936, 38.634, 0.82)
pt3dadd(139.014, 109.912, 38.674, 0.802)
pt3dadd(139.121, 109.888, 38.714, 0.784)
pt3dadd(139.229, 109.863, 38.754, 0.768)
pt3dadd(139.336, 109.839, 38.794, 0.75)
pt3dadd(139.444, 109.815, 38.834, 0.732)
pt3dadd(139.559, 109.806, 38.859, 0.694)
pt3dadd(139.675, 109.799, 38.883, 0.656)
pt3dadd(139.792, 109.792, 38.907, 0.618)
pt3dadd(139.908, 109.785, 38.931, 0.58)
pt3dadd(140.024, 109.778, 38.954, 0.542)
pt3dadd(140.141, 109.771, 38.978, 0.502)
pt3dadd(140.257, 109.764, 39.002, 0.464)
pt3dadd(140.374, 109.757, 39.026, 0.426)
pt3dadd(140.489, 109.75, 39.05, 0.388)
pt3dadd(140.605, 109.743, 39.074, 0.348)
pt3dadd(140.724, 109.736, 39.089, 0.336)
pt3dadd(140.843, 109.729, 39.104, 0.324)
pt3dadd(140.96, 109.722, 39.12, 0.312)
pt3dadd(141.079, 109.715, 39.135, 0.3)
pt3dadd(141.198, 109.708, 39.15, 0.288)
pt3dadd(141.316, 109.701, 39.166, 0.274)
pt3dadd(141.434, 109.694, 39.181, 0.262)
pt3dadd(141.553, 109.687, 39.196, 0.25)
pt3dadd(141.671, 109.68, 39.211, 0.238)
pt3dadd(141.79, 109.673, 39.227, 0.226)
pt3dadd(141.905, 109.662, 39.254, 0.244)
pt3dadd(142.02, 109.651, 39.281, 0.264)
pt3dadd(142.134, 109.641, 39.308, 0.282)
pt3dadd(142.249, 109.63, 39.336, 0.302)
pt3dadd(142.364, 109.619, 39.363, 0.32)
}
}
proc shape3d_205() {
dend_7[80] { pt3dadd(142.48, 109.608, 39.39, 0.338)
pt3dadd(142.594, 109.598, 39.418, 0.358)
pt3dadd(142.709, 109.587, 39.445, 0.376)
pt3dadd(142.824, 109.576, 39.472, 0.396)
pt3dadd(142.938, 109.565, 39.5, 0.414)
pt3dadd(143.048, 109.544, 39.537, 0.438)
pt3dadd(143.158, 109.524, 39.575, 0.46)
pt3dadd(143.267, 109.503, 39.612, 0.482)
pt3dadd(143.377, 109.483, 39.649, 0.504)
pt3dadd(143.486, 109.462, 39.686, 0.526)
pt3dadd(143.596, 109.442, 39.723, 0.55)
pt3dadd(143.705, 109.422, 39.76, 0.572)
pt3dadd(143.815, 109.401, 39.797, 0.594)
pt3dadd(143.924, 109.381, 39.834, 0.616)
pt3dadd(144.034, 109.357, 39.87, 0.632)
pt3dadd(144.14, 109.314, 39.899, 0.616)
pt3dadd(144.247, 109.272, 39.928, 0.598)
pt3dadd(144.354, 109.229, 39.957, 0.582)
pt3dadd(144.461, 109.186, 39.985, 0.564)
pt3dadd(144.566, 109.143, 40.014, 0.546)
pt3dadd(144.673, 109.101, 40.043, 0.53)
pt3dadd(144.78, 109.058, 40.072, 0.512)
pt3dadd(144.887, 109.015, 40.101, 0.496)
pt3dadd(144.994, 108.972, 40.13, 0.478)
pt3dadd(145.102, 108.932, 40.158, 0.466)
pt3dadd(145.214, 108.903, 40.181, 0.482)
pt3dadd(145.327, 108.874, 40.204, 0.498)
pt3dadd(145.44, 108.845, 40.228, 0.514)
pt3dadd(145.553, 108.816, 40.251, 0.53)
pt3dadd(145.667, 108.787, 40.274, 0.546)
pt3dadd(145.78, 108.758, 40.298, 0.56)
pt3dadd(145.892, 108.729, 40.321, 0.576)
pt3dadd(146.005, 108.7, 40.345, 0.592)
pt3dadd(146.118, 108.672, 40.368, 0.608)
pt3dadd(146.231, 108.644, 40.393, 0.62)
pt3dadd(146.342, 108.627, 40.427, 0.6)
pt3dadd(146.454, 108.61, 40.462, 0.582)
pt3dadd(146.566, 108.593, 40.497, 0.562)
pt3dadd(146.676, 108.576, 40.531, 0.544)
pt3dadd(146.788, 108.559, 40.566, 0.524)
pt3dadd(146.899, 108.542, 40.601, 0.506)
pt3dadd(147.011, 108.525, 40.635, 0.486)
pt3dadd(147.121, 108.508, 40.67, 0.468)
pt3dadd(147.233, 108.491, 40.705, 0.448)
pt3dadd(147.344, 108.476, 40.739, 0.432)
pt3dadd(147.456, 108.469, 40.776, 0.426)
pt3dadd(147.568, 108.462, 40.811, 0.42)
pt3dadd(147.679, 108.454, 40.847, 0.416)
pt3dadd(147.791, 108.447, 40.883, 0.41)
pt3dadd(147.902, 108.44, 40.919, 0.404)
pt3dadd(148.014, 108.433, 40.955, 0.398)
pt3dadd(148.127, 108.426, 40.991, 0.394)
pt3dadd(148.238, 108.418, 41.027, 0.388)
pt3dadd(148.35, 108.411, 41.063, 0.382)
pt3dadd(148.462, 108.406, 41.098, 0.384)
pt3dadd(148.577, 108.406, 41.127, 0.414)
pt3dadd(148.692, 108.406, 41.157, 0.444)
pt3dadd(148.806, 108.406, 41.186, 0.474)
pt3dadd(148.921, 108.406, 41.216, 0.504)
pt3dadd(149.035, 108.406, 41.245, 0.534)
pt3dadd(149.15, 108.406, 41.275, 0.564)
pt3dadd(149.264, 108.406, 41.304, 0.594)
pt3dadd(149.38, 108.406, 41.334, 0.624)
pt3dadd(149.494, 108.406, 41.364, 0.654)
pt3dadd(149.609, 108.406, 41.392, 0.678)
pt3dadd(149.725, 108.406, 41.415, 0.678)
pt3dadd(149.843, 108.406, 41.439, 0.678)
pt3dadd(149.959, 108.406, 41.462, 0.678)
pt3dadd(150.076, 108.407, 41.486, 0.678)
pt3dadd(150.192, 108.407, 41.509, 0.678)
pt3dadd(150.308, 108.407, 41.533, 0.678)
pt3dadd(150.426, 108.407, 41.557, 0.678)
pt3dadd(150.542, 108.408, 41.58, 0.678)
pt3dadd(150.659, 108.408, 41.604, 0.678)
pt3dadd(150.774, 108.408, 41.631, 0.67)
pt3dadd(150.884, 108.408, 41.67, 0.636)
pt3dadd(150.995, 108.408, 41.71, 0.6)
pt3dadd(151.105, 108.409, 41.749, 0.566)
pt3dadd(151.216, 108.409, 41.788, 0.53)
pt3dadd(151.326, 108.409, 41.827, 0.496)
pt3dadd(151.436, 108.409, 41.867, 0.46)
pt3dadd(151.547, 108.41, 41.906, 0.426)
pt3dadd(151.657, 108.41, 41.945, 0.392)
pt3dadd(151.766, 108.41, 41.985, 0.356)
pt3dadd(151.878, 108.411, 42.023, 0.336)
pt3dadd(151.991, 108.411, 42.056, 0.366)
pt3dadd(152.105, 108.411, 42.089, 0.394)
pt3dadd(152.218, 108.412, 42.122, 0.422)
pt3dadd(152.33, 108.412, 42.156, 0.452)
pt3dadd(152.444, 108.412, 42.189, 0.48)
pt3dadd(152.557, 108.413, 42.222, 0.51)
pt3dadd(152.67, 108.413, 42.255, 0.538)
pt3dadd(152.783, 108.413, 42.289, 0.568)
pt3dadd(152.897, 108.414, 42.322, 0.596)
pt3dadd(153.011, 108.414, 42.354, 0.618)
pt3dadd(153.126, 108.415, 42.381, 0.62)
pt3dadd(153.241, 108.416, 42.407, 0.62)
pt3dadd(153.356, 108.417, 42.434, 0.622)
pt3dadd(153.473, 108.418, 42.461, 0.622)
pt3dadd(153.588, 108.419, 42.488, 0.624)
pt3dadd(153.703, 108.42, 42.515, 0.624)
pt3dadd(153.82, 108.421, 42.542, 0.626)
pt3dadd(153.935, 108.422, 42.569, 0.628)
pt3dadd(154.05, 108.423, 42.596, 0.628)
pt3dadd(154.165, 108.424, 42.623, 0.62)
pt3dadd(154.282, 108.426, 42.651, 0.578)
pt3dadd(154.397, 108.427, 42.679, 0.538)
pt3dadd(154.512, 108.429, 42.706, 0.498)
pt3dadd(154.627, 108.43, 42.734, 0.458)
pt3dadd(154.742, 108.432, 42.762, 0.416)
pt3dadd(154.858, 108.433, 42.79, 0.376)
pt3dadd(154.973, 108.435, 42.817, 0.336)
pt3dadd(155.088, 108.436, 42.845, 0.296)
pt3dadd(155.203, 108.438, 42.873, 0.256)
pt3dadd(155.317, 108.44, 42.903, 0.226)
pt3dadd(155.428, 108.442, 42.942, 0.226)
pt3dadd(155.539, 108.445, 42.98, 0.226)
pt3dadd(155.65, 108.447, 43.019, 0.226)
pt3dadd(155.76, 108.449, 43.057, 0.226)
pt3dadd(155.872, 108.452, 43.096, 0.226)
pt3dadd(155.982, 108.454, 43.134, 0.226)
pt3dadd(156.092, 108.457, 43.173, 0.226)
pt3dadd(156.203, 108.459, 43.211, 0.226)
pt3dadd(156.314, 108.462, 43.25, 0.226)
pt3dadd(156.426, 108.465, 43.285, 0.226)
pt3dadd(156.541, 108.471, 43.313, 0.226)
pt3dadd(156.656, 108.478, 43.341, 0.226)
pt3dadd(156.772, 108.484, 43.368, 0.226)
pt3dadd(156.887, 108.49, 43.396, 0.226)
pt3dadd(157.002, 108.497, 43.423, 0.226)
pt3dadd(157.117, 108.503, 43.451, 0.226)
pt3dadd(157.232, 108.51, 43.479, 0.226)
pt3dadd(157.348, 108.516, 43.506, 0.226)
pt3dadd(157.463, 108.522, 43.534, 0.226)
pt3dadd(157.578, 108.53, 43.56, 0.236)
pt3dadd(157.694, 108.539, 43.581, 0.27)
pt3dadd(157.812, 108.549, 43.602, 0.306)
pt3dadd(157.928, 108.559, 43.623, 0.342)
pt3dadd(158.046, 108.569, 43.644, 0.376)
pt3dadd(158.162, 108.579, 43.665, 0.412)
pt3dadd(158.28, 108.589, 43.686, 0.446)
pt3dadd(158.396, 108.598, 43.707, 0.482)
pt3dadd(158.513, 108.608, 43.728, 0.516)
pt3dadd(158.63, 108.618, 43.749, 0.552)
pt3dadd(158.746, 108.634, 43.768, 0.584)
pt3dadd(158.86, 108.668, 43.784, 0.61)
pt3dadd(158.974, 108.701, 43.8, 0.636)
pt3dadd(159.088, 108.734, 43.815, 0.662)
pt3dadd(159.202, 108.767, 43.831, 0.688)
pt3dadd(159.316, 108.801, 43.847, 0.714)
pt3dadd(159.428, 108.834, 43.862, 0.74)
pt3dadd(159.542, 108.867, 43.878, 0.766)
pt3dadd(159.656, 108.9, 43.894, 0.792)
pt3dadd(159.77, 108.933, 43.909, 0.816)
pt3dadd(159.881, 108.964, 43.935, 0.83)
pt3dadd(159.984, 108.99, 43.981, 0.82)
pt3dadd(160.087, 109.015, 44.027, 0.808)
pt3dadd(160.192, 109.041, 44.072, 0.798)
pt3dadd(160.295, 109.067, 44.118, 0.786)
pt3dadd(160.399, 109.092, 44.164, 0.776)
pt3dadd(160.502, 109.118, 44.209, 0.764)
pt3dadd(160.606, 109.143, 44.255, 0.754)
pt3dadd(160.71, 109.169, 44.3, 0.742)
pt3dadd(160.813, 109.195, 44.346, 0.732)
pt3dadd(160.914, 109.177, 44.391, 0.712)
pt3dadd(161.015, 109.137, 44.435, 0.688)
pt3dadd(161.114, 109.097, 44.478, 0.662)
pt3dadd(161.215, 109.057, 44.522, 0.638)
pt3dadd(161.315, 109.016, 44.566, 0.614)
pt3dadd(161.414, 108.976, 44.61, 0.59)
pt3dadd(161.515, 108.936, 44.654, 0.564)
pt3dadd(161.615, 108.895, 44.698, 0.54)
pt3dadd(161.714, 108.855, 44.742, 0.516)
pt3dadd(161.815, 108.815, 44.785, 0.492)
pt3dadd(161.918, 108.765, 44.815, 0.52)
pt3dadd(162.022, 108.715, 44.845, 0.554)
pt3dadd(162.125, 108.665, 44.874, 0.586)
pt3dadd(162.228, 108.615, 44.903, 0.618)
pt3dadd(162.331, 108.565, 44.932, 0.65)
pt3dadd(162.434, 108.515, 44.961, 0.684)
pt3dadd(162.538, 108.465, 44.99, 0.716)
pt3dadd(162.641, 108.415, 45.019, 0.748)
pt3dadd(162.744, 108.365, 45.049, 0.782)
pt3dadd(162.847, 108.315, 45.078, 0.814)
pt3dadd(162.934, 108.25, 45.121, 0.776)
pt3dadd(163.019, 108.184, 45.165, 0.732)
pt3dadd(163.104, 108.118, 45.209, 0.69)
pt3dadd(163.189, 108.052, 45.253, 0.646)
pt3dadd(163.274, 107.986, 45.297, 0.604)
pt3dadd(163.36, 107.92, 45.34, 0.56)
pt3dadd(163.445, 107.854, 45.384, 0.518)
pt3dadd(163.53, 107.788, 45.428, 0.476)
pt3dadd(163.615, 107.722, 45.472, 0.432)
pt3dadd(163.702, 107.656, 45.516, 0.392)
pt3dadd(163.801, 107.61, 45.556, 0.408)
pt3dadd(163.901, 107.565, 45.597, 0.426)
pt3dadd(164, 107.519, 45.637, 0.444)
pt3dadd(164.1, 107.473, 45.678, 0.462)
pt3dadd(164.2, 107.427, 45.718, 0.478)
pt3dadd(164.299, 107.381, 45.758, 0.496)
}
}
proc shape3d_206() {
dend_7[80] { pt3dadd(164.399, 107.335, 45.799, 0.514)
pt3dadd(164.498, 107.289, 45.839, 0.53)
pt3dadd(164.599, 107.243, 45.88, 0.548)
pt3dadd(164.7, 107.2, 45.918, 0.562)
pt3dadd(164.813, 107.175, 45.946, 0.558)
pt3dadd(164.926, 107.15, 45.974, 0.554)
pt3dadd(165.037, 107.125, 46.002, 0.55)
pt3dadd(165.15, 107.1, 46.03, 0.546)
pt3dadd(165.263, 107.075, 46.059, 0.542)
pt3dadd(165.374, 107.05, 46.087, 0.536)
pt3dadd(165.487, 107.025, 46.115, 0.532)
pt3dadd(165.6, 107, 46.143, 0.528)
pt3dadd(165.712, 106.975, 46.171, 0.524)
pt3dadd(165.824, 106.952, 46.2, 0.516)
pt3dadd(165.937, 106.941, 46.234, 0.498)
pt3dadd(166.049, 106.929, 46.269, 0.478)
pt3dadd(166.162, 106.917, 46.302, 0.458)
pt3dadd(166.273, 106.905, 46.336, 0.438)
pt3dadd(166.386, 106.893, 46.37, 0.42)
pt3dadd(166.498, 106.882, 46.405, 0.4)
pt3dadd(166.61, 106.87, 46.439, 0.38)
pt3dadd(166.722, 106.858, 46.473, 0.362)
pt3dadd(166.835, 106.846, 46.507, 0.342)
pt3dadd(166.946, 106.833, 46.54, 0.324)
pt3dadd(167.058, 106.813, 46.573, 0.314)
pt3dadd(167.17, 106.793, 46.605, 0.304)
pt3dadd(167.281, 106.773, 46.638, 0.294)
pt3dadd(167.394, 106.753, 46.67, 0.284)
pt3dadd(167.506, 106.733, 46.703, 0.274)
pt3dadd(167.617, 106.713, 46.735, 0.264)
pt3dadd(167.729, 106.694, 46.768, 0.254)
pt3dadd(167.84, 106.674, 46.8, 0.244)
pt3dadd(167.952, 106.654, 46.833, 0.234)
pt3dadd(168.065, 106.632, 46.862, 0.23)
pt3dadd(168.179, 106.607, 46.883, 0.244)
pt3dadd(168.294, 106.581, 46.905, 0.256)
pt3dadd(168.408, 106.556, 46.927, 0.27)
pt3dadd(168.522, 106.531, 46.948, 0.282)
pt3dadd(168.637, 106.506, 46.97, 0.296)
pt3dadd(168.751, 106.48, 46.991, 0.308)
pt3dadd(168.865, 106.455, 47.013, 0.322)
pt3dadd(168.98, 106.43, 47.035, 0.334)
pt3dadd(169.094, 106.404, 47.056, 0.348)
pt3dadd(169.21, 106.398, 47.073, 0.362)
pt3dadd(169.327, 106.42, 47.083, 0.38)
pt3dadd(169.445, 106.441, 47.092, 0.398)
pt3dadd(169.562, 106.462, 47.102, 0.416)
pt3dadd(169.68, 106.483, 47.112, 0.434)
pt3dadd(169.798, 106.504, 47.122, 0.452)
pt3dadd(169.915, 106.526, 47.132, 0.468)
pt3dadd(170.033, 106.547, 47.141, 0.486)
pt3dadd(170.15, 106.568, 47.151, 0.504)
pt3dadd(170.268, 106.589, 47.161, 0.522)
pt3dadd(170.352, 106.673, 47.161, 0.494)
pt3dadd(170.435, 106.761, 47.161, 0.464)
pt3dadd(170.516, 106.848, 47.161, 0.434)
pt3dadd(170.599, 106.935, 47.161, 0.404)
pt3dadd(170.682, 107.022, 47.161, 0.376)
pt3dadd(170.765, 107.109, 47.161, 0.346)
pt3dadd(170.848, 107.196, 47.161, 0.316)
pt3dadd(170.929, 107.283, 47.161, 0.286)
pt3dadd(171.012, 107.37, 47.161, 0.256)
pt3dadd(171.095, 107.457, 47.161, 0.226)
pt3dadd(171.168, 107.552, 47.161, 0.226)
pt3dadd(171.242, 107.647, 47.161, 0.226)
pt3dadd(171.316, 107.742, 47.161, 0.226)
pt3dadd(171.39, 107.836, 47.161, 0.226)
pt3dadd(171.463, 107.931, 47.161, 0.226)
pt3dadd(171.536, 108.026, 47.161, 0.226)
pt3dadd(171.611, 108.12, 47.161, 0.226)
pt3dadd(171.684, 108.215, 47.161, 0.226)
pt3dadd(171.758, 108.31, 47.161, 0.226)
pt3dadd(171.832, 108.404, 47.161, 0.226)
}
dend_7[81] {pt3dclear()
pt3dadd(118.895, 107.599, 30.652, 0.792)
pt3dadd(118.851, 107.64, 30.628, 0.784)
pt3dadd(118.772, 107.714, 30.584, 0.774)
pt3dadd(118.693, 107.787, 30.54, 0.762)
pt3dadd(118.614, 107.861, 30.496, 0.752)
pt3dadd(118.536, 107.935, 30.453, 0.742)
pt3dadd(118.457, 108.008, 30.409, 0.73)
pt3dadd(118.378, 108.082, 30.365, 0.72)
pt3dadd(118.299, 108.156, 30.321, 0.708)
pt3dadd(118.22, 108.229, 30.278, 0.698)
pt3dadd(118.141, 108.303, 30.234, 0.686)
pt3dadd(118.06, 108.378, 30.2, 0.678)
pt3dadd(117.972, 108.46, 30.2, 0.678)
pt3dadd(117.885, 108.542, 30.2, 0.678)
pt3dadd(117.803, 108.63, 30.2, 0.678)
pt3dadd(117.722, 108.718, 30.2, 0.678)
pt3dadd(117.668, 108.825, 30.2, 0.678)
pt3dadd(117.614, 108.932, 30.2, 0.678)
pt3dadd(117.586, 109.043, 30.223, 0.678)
pt3dadd(117.568, 109.156, 30.254, 0.678)
pt3dadd(117.529, 109.263, 30.282, 0.678)
pt3dadd(117.482, 109.369, 30.307, 0.678)
pt3dadd(117.447, 109.481, 30.327, 0.678)
pt3dadd(117.411, 109.593, 30.347, 0.678)
pt3dadd(117.376, 109.705, 30.368, 0.678)
pt3dadd(117.34, 109.817, 30.388, 0.678)
pt3dadd(117.28, 109.913, 30.4, 0.678)
pt3dadd(117.186, 109.988, 30.4, 0.678)
pt3dadd(117.1, 110.07, 30.4, 0.678)
pt3dadd(117.032, 110.169, 30.4, 0.678)
pt3dadd(116.967, 110.269, 30.402, 0.678)
pt3dadd(116.922, 110.379, 30.418, 0.678)
pt3dadd(116.88, 110.489, 30.435, 0.678)
pt3dadd(116.88, 110.604, 30.463, 0.678)
pt3dadd(116.88, 110.719, 30.49, 0.678)
pt3dadd(116.837, 110.825, 30.5, 0.678)
pt3dadd(116.77, 110.924, 30.5, 0.678)
pt3dadd(116.704, 111.024, 30.5, 0.678)
pt3dadd(116.637, 111.124, 30.5, 0.678)
pt3dadd(116.569, 111.223, 30.5, 0.678)
pt3dadd(116.502, 111.322, 30.5, 0.678)
pt3dadd(116.469, 111.437, 30.5, 0.678)
pt3dadd(116.44, 111.553, 30.5, 0.678)
pt3dadd(116.412, 111.67, 30.5, 0.678)
pt3dadd(116.4, 111.788, 30.502, 0.678)
pt3dadd(116.4, 111.908, 30.506, 0.678)
pt3dadd(116.4, 112.028, 30.51, 0.678)
pt3dadd(116.4, 112.145, 30.53, 0.678)
pt3dadd(116.4, 112.242, 30.588, 0.678)
pt3dadd(116.4, 112.335, 30.65, 0.678)
pt3dadd(116.395, 112.438, 30.701, 0.678)
pt3dadd(116.389, 112.544, 30.748, 0.678)
pt3dadd(116.333, 112.632, 30.777, 0.678)
pt3dadd(116.242, 112.708, 30.794, 0.678)
pt3dadd(116.172, 112.802, 30.8, 0.678)
pt3dadd(116.111, 112.906, 30.8, 0.678)
pt3dadd(116.068, 113.016, 30.8, 0.678)
pt3dadd(116.045, 113.134, 30.8, 0.678)
pt3dadd(116.024, 113.252, 30.805, 0.678)
pt3dadd(116.003, 113.37, 30.81, 0.678)
pt3dadd(115.982, 113.488, 30.816, 0.678)
pt3dadd(115.961, 113.606, 30.822, 0.678)
pt3dadd(115.941, 113.724, 30.828, 0.678)
pt3dadd(115.92, 113.842, 30.834, 0.678)
pt3dadd(115.92, 113.95, 30.876, 0.678)
pt3dadd(115.92, 114.059, 30.918, 0.678)
pt3dadd(115.92, 114.168, 30.961, 0.678)
pt3dadd(115.92, 114.277, 31.003, 0.678)
pt3dadd(115.92, 114.385, 31.045, 0.678)
pt3dadd(115.904, 114.501, 31.061, 0.678)
pt3dadd(115.883, 114.619, 31.069, 0.678)
pt3dadd(115.862, 114.736, 31.077, 0.678)
pt3dadd(115.841, 114.854, 31.085, 0.678)
pt3dadd(115.819, 114.972, 31.093, 0.678)
pt3dadd(115.8, 115.09, 31.102, 0.678)
pt3dadd(115.8, 115.208, 31.12, 0.678)
pt3dadd(115.8, 115.326, 31.139, 0.678)
pt3dadd(115.8, 115.443, 31.157, 0.678)
pt3dadd(115.8, 115.561, 31.176, 0.678)
pt3dadd(115.8, 115.679, 31.194, 0.678)
pt3dadd(115.8, 115.797, 31.212, 0.678)
pt3dadd(115.8, 115.916, 31.227, 0.678)
pt3dadd(115.8, 116.035, 31.241, 0.678)
pt3dadd(115.8, 116.154, 31.256, 0.678)
pt3dadd(115.8, 116.272, 31.27, 0.678)
pt3dadd(115.8, 116.391, 31.284, 0.678)
pt3dadd(115.8, 116.51, 31.299, 0.678)
pt3dadd(115.8, 116.628, 31.315, 0.678)
pt3dadd(115.8, 116.747, 31.332, 0.678)
pt3dadd(115.8, 116.865, 31.348, 0.678)
pt3dadd(115.8, 116.983, 31.364, 0.678)
pt3dadd(115.8, 117.102, 31.381, 0.678)
pt3dadd(115.8, 117.22, 31.397, 0.678)
pt3dadd(115.8, 117.34, 31.4, 0.678)
pt3dadd(115.8, 117.46, 31.4, 0.678)
pt3dadd(115.8, 117.58, 31.4, 0.678)
pt3dadd(115.8, 117.7, 31.403, 0.678)
pt3dadd(115.8, 117.82, 31.407, 0.678)
pt3dadd(115.8, 117.939, 31.411, 0.678)
pt3dadd(115.8, 118.053, 31.442, 0.678)
pt3dadd(115.8, 118.166, 31.475, 0.678)
pt3dadd(115.8, 118.274, 31.519, 0.678)
pt3dadd(115.8, 118.377, 31.569, 0.678)
pt3dadd(115.8, 118.465, 31.633, 0.678)
pt3dadd(115.8, 118.53, 31.717, 0.678)
pt3dadd(115.8, 118.638, 31.76, 0.678)
pt3dadd(115.8, 118.748, 31.799, 0.678)
pt3dadd(115.8, 118.858, 31.839, 0.678)
pt3dadd(115.8, 118.968, 31.878, 0.678)
pt3dadd(115.8, 119.078, 31.918, 0.678)
pt3dadd(115.8, 119.185, 31.964, 0.678)
pt3dadd(115.8, 119.289, 32.014, 0.678)
pt3dadd(115.8, 119.393, 32.064, 0.678)
pt3dadd(115.8, 119.497, 32.114, 0.678)
pt3dadd(115.8, 119.601, 32.164, 0.678)
pt3dadd(115.8, 119.712, 32.196, 0.678)
pt3dadd(115.8, 119.831, 32.21, 0.678)
pt3dadd(115.8, 119.949, 32.225, 0.678)
pt3dadd(115.8, 120.068, 32.239, 0.678)
pt3dadd(115.8, 120.187, 32.254, 0.678)
pt3dadd(115.8, 120.306, 32.268, 0.678)
pt3dadd(115.8, 120.42, 32.294, 0.678)
pt3dadd(115.8, 120.523, 32.345, 0.678)
pt3dadd(115.797, 120.628, 32.394, 0.678)
pt3dadd(115.778, 120.737, 32.431, 0.678)
pt3dadd(115.755, 120.844, 32.468, 0.678)
pt3dadd(115.653, 120.905, 32.485, 0.678)
}
}
proc shape3d_207() {
dend_7[81] { pt3dadd(115.554, 120.968, 32.5, 0.678)
pt3dadd(115.479, 121.062, 32.5, 0.678)
pt3dadd(115.404, 121.156, 32.5, 0.678)
pt3dadd(115.359, 121.266, 32.5, 0.678)
pt3dadd(115.316, 121.379, 32.502, 0.678)
pt3dadd(115.275, 121.49, 32.507, 0.678)
pt3dadd(115.232, 121.601, 32.518, 0.678)
pt3dadd(115.181, 121.697, 32.56, 0.678)
pt3dadd(115.114, 121.782, 32.597, 0.678)
pt3dadd(115.016, 121.844, 32.62, 0.678)
pt3dadd(114.924, 121.889, 32.663, 0.678)
pt3dadd(114.841, 121.91, 32.733, 0.678)
pt3dadd(114.745, 121.92, 32.79, 0.678)
pt3dadd(114.637, 121.92, 32.834, 0.678)
pt3dadd(114.527, 121.946, 32.867, 0.678)
pt3dadd(114.416, 121.972, 32.899, 0.678)
pt3dadd(114.339, 122.06, 32.917, 0.678)
pt3dadd(114.262, 122.147, 32.936, 0.678)
pt3dadd(114.16, 122.153, 32.989, 0.678)
pt3dadd(114.059, 122.16, 33.041, 0.678)
pt3dadd(114.021, 122.198, 33.129, 0.678)
pt3dadd(113.988, 122.239, 33.219, 0.678)
pt3dadd(113.876, 122.266, 33.243, 0.678)
pt3dadd(113.762, 122.291, 33.264, 0.678)
pt3dadd(113.648, 122.316, 33.286, 0.678)
pt3dadd(113.547, 122.364, 33.306, 0.678)
pt3dadd(113.47, 122.454, 33.323, 0.678)
pt3dadd(113.391, 122.515, 33.363, 0.678)
pt3dadd(113.295, 122.544, 33.417, 0.678)
pt3dadd(113.196, 122.574, 33.467, 0.678)
pt3dadd(113.097, 122.604, 33.517, 0.678)
pt3dadd(112.997, 122.634, 33.568, 0.678)
pt3dadd(112.895, 122.67, 33.608, 0.678)
pt3dadd(112.789, 122.719, 33.629, 0.678)
pt3dadd(112.683, 122.768, 33.651, 0.678)
pt3dadd(112.576, 122.818, 33.672, 0.678)
pt3dadd(112.47, 122.867, 33.694, 0.678)
pt3dadd(112.377, 122.922, 33.735, 0.678)
pt3dadd(112.29, 122.981, 33.784, 0.678)
pt3dadd(112.202, 123.038, 33.832, 0.678)
pt3dadd(112.115, 123.097, 33.881, 0.678)
pt3dadd(112.012, 123.143, 33.904, 0.678)
pt3dadd(111.898, 123.181, 33.91, 0.678)
pt3dadd(111.785, 123.218, 33.916, 0.678)
pt3dadd(111.671, 123.257, 33.923, 0.678)
pt3dadd(111.558, 123.294, 33.929, 0.678)
pt3dadd(111.447, 123.334, 33.944, 0.678)
pt3dadd(111.342, 123.374, 33.979, 0.678)
pt3dadd(111.249, 123.436, 34.007, 0.678)
pt3dadd(111.173, 123.527, 34.024, 0.678)
pt3dadd(111.13, 123.624, 34.056, 0.678)
pt3dadd(111.124, 123.73, 34.102, 0.678)
pt3dadd(111.118, 123.839, 34.143, 0.678)
pt3dadd(111.112, 123.954, 34.172, 0.678)
pt3dadd(111.105, 124.068, 34.2, 0.678)
pt3dadd(111.012, 124.142, 34.2, 0.678)
pt3dadd(110.918, 124.218, 34.2, 0.678)
pt3dadd(110.824, 124.292, 34.2, 0.678)
pt3dadd(110.726, 124.361, 34.2, 0.678)
pt3dadd(110.622, 124.422, 34.2, 0.678)
pt3dadd(110.527, 124.492, 34.2, 0.678)
pt3dadd(110.468, 124.595, 34.2, 0.678)
pt3dadd(110.421, 124.705, 34.2, 0.678)
pt3dadd(110.365, 124.81, 34.2, 0.678)
pt3dadd(110.283, 124.897, 34.2, 0.678)
pt3dadd(110.206, 124.987, 34.205, 0.678)
pt3dadd(110.156, 125.088, 34.241, 0.678)
pt3dadd(110.094, 125.177, 34.277, 0.678)
pt3dadd(109.999, 125.234, 34.313, 0.678)
pt3dadd(109.902, 125.286, 34.354, 0.678)
pt3dadd(109.808, 125.338, 34.395, 0.678)
pt3dadd(109.724, 125.418, 34.42, 0.678)
pt3dadd(109.641, 125.498, 34.446, 0.678)
pt3dadd(109.557, 125.579, 34.472, 0.678)
pt3dadd(109.474, 125.659, 34.498, 0.678)
pt3dadd(109.383, 125.737, 34.5, 0.678)
pt3dadd(109.292, 125.815, 34.5, 0.678)
pt3dadd(109.2, 125.893, 34.5, 0.678)
pt3dadd(109.109, 125.971, 34.5, 0.678)
pt3dadd(109.017, 126.049, 34.5, 0.678)
pt3dadd(108.934, 126.134, 34.5, 0.678)
pt3dadd(108.85, 126.221, 34.5, 0.678)
pt3dadd(108.767, 126.307, 34.5, 0.678)
pt3dadd(108.684, 126.394, 34.5, 0.678)
pt3dadd(108.6, 126.48, 34.5, 0.678)
pt3dadd(108.537, 126.582, 34.5, 0.678)
pt3dadd(108.474, 126.684, 34.5, 0.678)
pt3dadd(108.411, 126.786, 34.5, 0.678)
pt3dadd(108.348, 126.888, 34.5, 0.678)
pt3dadd(108.285, 126.99, 34.5, 0.678)
pt3dadd(108.273, 127.108, 34.514, 0.678)
pt3dadd(108.267, 127.226, 34.529, 0.678)
pt3dadd(108.26, 127.344, 34.544, 0.678)
pt3dadd(108.253, 127.463, 34.559, 0.678)
pt3dadd(108.246, 127.582, 34.575, 0.678)
pt3dadd(108.24, 127.699, 34.59, 0.678)
pt3dadd(108.24, 127.818, 34.608, 0.678)
pt3dadd(108.24, 127.936, 34.627, 0.678)
pt3dadd(108.24, 128.053, 34.646, 0.678)
pt3dadd(108.24, 128.171, 34.664, 0.678)
pt3dadd(108.24, 128.29, 34.683, 0.678)
pt3dadd(108.239, 128.407, 34.7, 0.678)
pt3dadd(108.219, 128.526, 34.7, 0.678)
pt3dadd(108.199, 128.644, 34.7, 0.678)
pt3dadd(108.18, 128.762, 34.7, 0.678)
pt3dadd(108.16, 128.88, 34.7, 0.678)
pt3dadd(108.14, 128.999, 34.7, 0.678)
pt3dadd(108.12, 129.118, 34.7, 0.678)
pt3dadd(108.097, 129.233, 34.719, 0.678)
pt3dadd(108.074, 129.348, 34.738, 0.678)
pt3dadd(108.051, 129.463, 34.757, 0.678)
pt3dadd(108.028, 129.58, 34.777, 0.678)
pt3dadd(108.005, 129.695, 34.796, 0.678)
pt3dadd(108, 129.812, 34.813, 0.678)
pt3dadd(108, 129.931, 34.829, 0.678)
pt3dadd(108, 130.049, 34.846, 0.678)
pt3dadd(108, 130.168, 34.862, 0.678)
pt3dadd(108, 130.286, 34.879, 0.678)
pt3dadd(108, 130.404, 34.895, 0.678)
pt3dadd(107.963, 130.513, 34.915, 0.678)
pt3dadd(107.911, 130.618, 34.937, 0.678)
pt3dadd(107.859, 130.722, 34.959, 0.678)
pt3dadd(107.806, 130.828, 34.981, 0.678)
pt3dadd(107.76, 130.934, 35.001, 0.678)
pt3dadd(107.76, 131.053, 35.006, 0.678)
pt3dadd(107.76, 131.173, 35.011, 0.678)
pt3dadd(107.76, 131.293, 35.015, 0.678)
pt3dadd(107.76, 131.413, 35.021, 0.678)
pt3dadd(107.76, 131.533, 35.026, 0.678)
pt3dadd(107.76, 131.653, 35.03, 0.678)
pt3dadd(107.749, 131.768, 35.047, 0.678)
pt3dadd(107.724, 131.88, 35.08, 0.678)
pt3dadd(107.699, 131.99, 35.112, 0.678)
pt3dadd(107.674, 132.101, 35.145, 0.678)
pt3dadd(107.649, 132.212, 35.177, 0.678)
pt3dadd(107.623, 132.323, 35.208, 0.678)
pt3dadd(107.595, 132.434, 35.238, 0.678)
pt3dadd(107.567, 132.545, 35.268, 0.678)
pt3dadd(107.54, 132.656, 35.298, 0.678)
pt3dadd(107.512, 132.767, 35.328, 0.678)
pt3dadd(107.487, 132.857, 35.389, 0.678)
pt3dadd(107.463, 132.941, 35.457, 0.678)
pt3dadd(107.439, 133.026, 35.525, 0.678)
pt3dadd(107.414, 133.11, 35.593, 0.678)
pt3dadd(107.391, 133.205, 35.647, 0.678)
pt3dadd(107.369, 133.315, 35.682, 0.678)
pt3dadd(107.347, 133.426, 35.716, 0.678)
pt3dadd(107.325, 133.536, 35.751, 0.678)
pt3dadd(107.302, 133.648, 35.785, 0.678)
pt3dadd(107.292, 133.763, 35.8, 0.678)
pt3dadd(107.29, 133.883, 35.8, 0.678)
pt3dadd(107.288, 134.003, 35.8, 0.678)
pt3dadd(107.286, 134.123, 35.8, 0.678)
pt3dadd(107.284, 134.243, 35.8, 0.678)
pt3dadd(107.283, 134.363, 35.8, 0.678)
pt3dadd(107.281, 134.483, 35.8, 0.678)
pt3dadd(107.28, 134.603, 35.8, 0.678)
pt3dadd(107.28, 134.723, 35.8, 0.678)
pt3dadd(107.28, 134.843, 35.8, 0.678)
pt3dadd(107.28, 134.963, 35.8, 0.678)
pt3dadd(107.28, 135.083, 35.8, 0.678)
pt3dadd(107.28, 135.203, 35.8, 0.678)
pt3dadd(107.28, 135.323, 35.8, 0.678)
pt3dadd(107.28, 135.443, 35.8, 0.678)
pt3dadd(107.28, 135.563, 35.8, 0.678)
pt3dadd(107.28, 135.683, 35.8, 0.678)
pt3dadd(107.277, 135.803, 35.8, 0.678)
pt3dadd(107.272, 135.923, 35.8, 0.678)
pt3dadd(107.268, 136.043, 35.8, 0.678)
pt3dadd(107.229, 136.152, 35.818, 0.678)
pt3dadd(107.182, 136.26, 35.84, 0.678)
pt3dadd(107.132, 136.321, 35.909, 0.678)
pt3dadd(107.08, 136.373, 35.988, 0.678)
pt3dadd(107.055, 136.489, 35.996, 0.678)
pt3dadd(107.04, 136.607, 36.002, 0.678)
pt3dadd(107.04, 136.727, 36.005, 0.678)
pt3dadd(107.04, 136.847, 36.009, 0.678)
pt3dadd(107.04, 136.962, 36.031, 0.678)
pt3dadd(107.04, 137.072, 36.069, 0.678)
pt3dadd(107.04, 137.18, 36.112, 0.678)
pt3dadd(107.04, 137.28, 36.169, 0.678)
pt3dadd(107.04, 137.377, 36.227, 0.678)
pt3dadd(107.033, 137.441, 36.311, 0.678)
pt3dadd(107.027, 137.504, 36.396, 0.678)
pt3dadd(106.997, 137.612, 36.428, 0.678)
pt3dadd(106.965, 137.722, 36.458, 0.678)
pt3dadd(106.934, 137.832, 36.487, 0.678)
pt3dadd(106.886, 137.939, 36.5, 0.678)
pt3dadd(106.825, 138.042, 36.5, 0.678)
pt3dadd(106.742, 138.108, 36.5, 0.678)
pt3dadd(106.622, 138.112, 36.5, 0.678)
pt3dadd(106.502, 138.115, 36.5, 0.678)
pt3dadd(106.382, 138.119, 36.5, 0.678)
pt3dadd(106.265, 138.139, 36.5, 0.678)
pt3dadd(106.152, 138.179, 36.5, 0.678)
pt3dadd(106.044, 138.224, 36.505, 0.678)
pt3dadd(105.971, 138.308, 36.542, 0.678)
pt3dadd(105.898, 138.392, 36.58, 0.678)
pt3dadd(105.836, 138.491, 36.597, 0.678)
pt3dadd(105.777, 138.595, 36.608, 0.678)
}
}
proc shape3d_208() {
dend_7[81] { pt3dadd(105.732, 138.7, 36.636, 0.678)
pt3dadd(105.72, 138.804, 36.685, 0.678)
pt3dadd(105.706, 138.907, 36.734, 0.678)
pt3dadd(105.654, 138.967, 36.809, 0.678)
pt3dadd(105.598, 139.034, 36.871, 0.678)
pt3dadd(105.529, 139.132, 36.888, 0.678)
pt3dadd(105.453, 139.222, 36.9, 0.678)
pt3dadd(105.359, 139.296, 36.9, 0.678)
pt3dadd(105.278, 139.378, 36.9, 0.678)
pt3dadd(105.27, 139.498, 36.9, 0.678)
pt3dadd(105.261, 139.616, 36.9, 0.678)
pt3dadd(105.253, 139.736, 36.9, 0.678)
pt3dadd(105.245, 139.856, 36.9, 0.678)
pt3dadd(105.24, 139.976, 36.9, 0.678)
pt3dadd(105.24, 140.096, 36.9, 0.678)
pt3dadd(105.24, 140.216, 36.9, 0.678)
pt3dadd(105.24, 140.336, 36.9, 0.678)
pt3dadd(105.24, 140.455, 36.891, 0.678)
pt3dadd(105.24, 140.573, 36.873, 0.678)
pt3dadd(105.24, 140.69, 36.854, 0.678)
pt3dadd(105.24, 140.809, 36.836, 0.678)
pt3dadd(105.24, 140.927, 36.817, 0.678)
pt3dadd(105.24, 141.044, 36.799, 0.678)
pt3dadd(105.24, 141.161, 36.773, 0.678)
pt3dadd(105.24, 141.274, 36.74, 0.678)
pt3dadd(105.242, 141.388, 36.711, 0.678)
pt3dadd(105.257, 141.506, 36.706, 0.678)
pt3dadd(105.273, 141.625, 36.702, 0.678)
pt3dadd(105.302, 141.737, 36.681, 0.678)
pt3dadd(105.344, 141.841, 36.646, 0.678)
pt3dadd(105.364, 141.937, 36.593, 0.678)
pt3dadd(105.37, 142.028, 36.528, 0.678)
pt3dadd(105.406, 142.099, 36.457, 0.678)
pt3dadd(105.45, 142.177, 36.403, 0.678)
pt3dadd(105.474, 142.292, 36.383, 0.678)
pt3dadd(105.503, 142.392, 36.352, 0.678)
pt3dadd(105.558, 142.42, 36.266, 0.678)
pt3dadd(105.625, 142.44, 36.189, 0.678)
pt3dadd(105.733, 142.44, 36.145, 0.678)
pt3dadd(105.84, 142.44, 36.1, 0.678)
}
dend_7[82] {pt3dclear()
pt3dadd(113.833, 99.076, 29.197, 1.13)
pt3dadd(113.86, 99.048, 29.203, 1.116)
pt3dadd(113.942, 98.963, 29.222, 1.076)
pt3dadd(114.024, 98.878, 29.24, 1.036)
pt3dadd(114.106, 98.793, 29.259, 0.996)
pt3dadd(114.188, 98.709, 29.277, 0.956)
pt3dadd(114.27, 98.624, 29.296, 0.916)
pt3dadd(114.352, 98.539, 29.314, 0.876)
pt3dadd(114.434, 98.454, 29.333, 0.836)
pt3dadd(114.516, 98.37, 29.351, 0.794)
pt3dadd(114.598, 98.285, 29.37, 0.754)
pt3dadd(114.68, 98.2, 29.388, 0.714)
pt3dadd(114.762, 98.116, 29.407, 0.674)
pt3dadd(114.844, 98.031, 29.425, 0.634)
pt3dadd(114.926, 97.946, 29.444, 0.594)
pt3dadd(115.013, 97.866, 29.462, 0.558)
pt3dadd(115.102, 97.789, 29.481, 0.526)
pt3dadd(115.191, 97.712, 29.499, 0.494)
pt3dadd(115.28, 97.634, 29.518, 0.462)
pt3dadd(115.369, 97.557, 29.536, 0.43)
pt3dadd(115.458, 97.479, 29.555, 0.398)
pt3dadd(115.547, 97.402, 29.573, 0.366)
pt3dadd(115.636, 97.325, 29.591, 0.334)
pt3dadd(115.725, 97.247, 29.61, 0.302)
pt3dadd(115.814, 97.17, 29.628, 0.27)
pt3dadd(115.93, 97.157, 29.643, 0.3)
pt3dadd(116.049, 97.149, 29.656, 0.336)
pt3dadd(116.167, 97.141, 29.67, 0.37)
pt3dadd(116.286, 97.133, 29.684, 0.406)
pt3dadd(116.404, 97.125, 29.698, 0.44)
pt3dadd(116.523, 97.117, 29.712, 0.474)
pt3dadd(116.642, 97.109, 29.726, 0.51)
pt3dadd(116.76, 97.101, 29.74, 0.544)
pt3dadd(116.879, 97.093, 29.754, 0.58)
pt3dadd(116.997, 97.085, 29.768, 0.614)
pt3dadd(117.115, 97.074, 29.784, 0.59)
pt3dadd(117.233, 97.062, 29.8, 0.56)
pt3dadd(117.351, 97.051, 29.816, 0.53)
pt3dadd(117.469, 97.039, 29.832, 0.5)
pt3dadd(117.586, 97.027, 29.848, 0.47)
pt3dadd(117.704, 97.016, 29.865, 0.442)
pt3dadd(117.822, 97.004, 29.881, 0.412)
pt3dadd(117.94, 96.993, 29.897, 0.382)
pt3dadd(118.058, 96.981, 29.913, 0.352)
pt3dadd(118.176, 96.969, 29.93, 0.324)
pt3dadd(118.286, 96.953, 29.966, 0.312)
pt3dadd(118.395, 96.936, 30.004, 0.302)
pt3dadd(118.505, 96.919, 30.042, 0.294)
pt3dadd(118.615, 96.902, 30.081, 0.284)
pt3dadd(118.724, 96.885, 30.119, 0.274)
pt3dadd(118.834, 96.868, 30.157, 0.264)
pt3dadd(118.944, 96.851, 30.195, 0.254)
pt3dadd(119.053, 96.834, 30.233, 0.246)
pt3dadd(119.163, 96.817, 30.271, 0.236)
pt3dadd(119.272, 96.8, 30.31, 0.226)
pt3dadd(119.376, 96.764, 30.349, 0.234)
pt3dadd(119.48, 96.727, 30.389, 0.244)
pt3dadd(119.584, 96.69, 30.428, 0.252)
pt3dadd(119.688, 96.654, 30.467, 0.262)
pt3dadd(119.792, 96.617, 30.507, 0.27)
pt3dadd(119.896, 96.58, 30.546, 0.278)
pt3dadd(120, 96.543, 30.586, 0.288)
pt3dadd(120.104, 96.507, 30.625, 0.296)
pt3dadd(120.209, 96.47, 30.665, 0.306)
pt3dadd(120.312, 96.431, 30.704, 0.316)
pt3dadd(120.409, 96.378, 30.741, 0.336)
pt3dadd(120.508, 96.325, 30.778, 0.356)
pt3dadd(120.605, 96.271, 30.815, 0.378)
pt3dadd(120.703, 96.218, 30.852, 0.398)
pt3dadd(120.802, 96.165, 30.889, 0.418)
pt3dadd(120.899, 96.111, 30.926, 0.438)
pt3dadd(120.997, 96.058, 30.963, 0.46)
pt3dadd(121.094, 96.005, 31, 0.48)
pt3dadd(121.193, 95.952, 31.037, 0.5)
pt3dadd(121.29, 95.899, 31.076, 0.524)
pt3dadd(121.382, 95.851, 31.124, 0.558)
pt3dadd(121.476, 95.802, 31.173, 0.592)
pt3dadd(121.568, 95.754, 31.222, 0.626)
pt3dadd(121.661, 95.706, 31.271, 0.662)
pt3dadd(121.754, 95.657, 31.32, 0.696)
pt3dadd(121.847, 95.609, 31.369, 0.73)
pt3dadd(121.94, 95.561, 31.418, 0.764)
pt3dadd(122.033, 95.512, 31.467, 0.8)
pt3dadd(122.125, 95.464, 31.516, 0.834)
pt3dadd(122.215, 95.411, 31.563, 0.86)
pt3dadd(122.292, 95.329, 31.601, 0.846)
pt3dadd(122.368, 95.248, 31.638, 0.832)
pt3dadd(122.443, 95.166, 31.676, 0.818)
pt3dadd(122.519, 95.085, 31.714, 0.804)
pt3dadd(122.594, 95.004, 31.752, 0.79)
pt3dadd(122.67, 94.922, 31.789, 0.776)
pt3dadd(122.746, 94.841, 31.827, 0.762)
pt3dadd(122.821, 94.76, 31.865, 0.748)
pt3dadd(122.897, 94.678, 31.902, 0.734)
pt3dadd(122.974, 94.596, 31.938, 0.724)
pt3dadd(123.05, 94.511, 31.966, 0.734)
pt3dadd(123.127, 94.425, 31.994, 0.746)
pt3dadd(123.205, 94.34, 32.022, 0.756)
pt3dadd(123.282, 94.254, 32.049, 0.766)
pt3dadd(123.36, 94.169, 32.077, 0.776)
pt3dadd(123.437, 94.083, 32.105, 0.786)
pt3dadd(123.515, 93.998, 32.133, 0.796)
pt3dadd(123.592, 93.913, 32.161, 0.808)
pt3dadd(123.67, 93.827, 32.189, 0.818)
pt3dadd(123.749, 93.745, 32.22, 0.83)
pt3dadd(123.833, 93.674, 32.258, 0.848)
pt3dadd(123.918, 93.603, 32.297, 0.868)
pt3dadd(124.003, 93.532, 32.336, 0.886)
pt3dadd(124.087, 93.461, 32.375, 0.906)
pt3dadd(124.172, 93.39, 32.414, 0.924)
pt3dadd(124.256, 93.319, 32.453, 0.944)
pt3dadd(124.342, 93.248, 32.492, 0.962)
pt3dadd(124.427, 93.177, 32.53, 0.982)
pt3dadd(124.511, 93.106, 32.569, 1)
pt3dadd(124.595, 93.037, 32.611, 1.016)
pt3dadd(124.678, 92.97, 32.657, 1.028)
pt3dadd(124.762, 92.904, 32.704, 1.04)
pt3dadd(124.844, 92.838, 32.75, 1.052)
pt3dadd(124.927, 92.771, 32.797, 1.064)
pt3dadd(125.01, 92.705, 32.843, 1.076)
pt3dadd(125.093, 92.638, 32.89, 1.088)
pt3dadd(125.176, 92.572, 32.937, 1.1)
pt3dadd(125.258, 92.506, 32.983, 1.112)
pt3dadd(125.341, 92.439, 33.03, 1.122)
pt3dadd(125.422, 92.372, 33.078, 1.126)
pt3dadd(125.498, 92.302, 33.128, 1.112)
pt3dadd(125.575, 92.233, 33.179, 1.1)
pt3dadd(125.652, 92.163, 33.229, 1.088)
pt3dadd(125.73, 92.094, 33.279, 1.076)
pt3dadd(125.807, 92.024, 33.33, 1.064)
pt3dadd(125.884, 91.955, 33.38, 1.052)
pt3dadd(125.96, 91.885, 33.43, 1.038)
pt3dadd(126.037, 91.816, 33.481, 1.026)
pt3dadd(126.114, 91.746, 33.531, 1.014)
pt3dadd(126.193, 91.686, 33.586, 0.992)
pt3dadd(126.276, 91.636, 33.645, 0.958)
pt3dadd(126.359, 91.585, 33.704, 0.924)
pt3dadd(126.442, 91.534, 33.763, 0.892)
pt3dadd(126.524, 91.484, 33.822, 0.858)
pt3dadd(126.606, 91.433, 33.881, 0.826)
pt3dadd(126.689, 91.382, 33.94, 0.792)
pt3dadd(126.772, 91.332, 33.999, 0.758)
pt3dadd(126.854, 91.281, 34.058, 0.726)
pt3dadd(126.936, 91.23, 34.118, 0.692)
pt3dadd(127.021, 91.171, 34.167, 0.678)
pt3dadd(127.108, 91.104, 34.208, 0.678)
pt3dadd(127.195, 91.038, 34.249, 0.678)
pt3dadd(127.282, 90.971, 34.291, 0.678)
pt3dadd(127.368, 90.905, 34.332, 0.678)
pt3dadd(127.454, 90.838, 34.373, 0.678)
pt3dadd(127.542, 90.772, 34.415, 0.678)
pt3dadd(127.628, 90.705, 34.456, 0.678)
pt3dadd(127.715, 90.639, 34.498, 0.678)
pt3dadd(127.801, 90.573, 34.539, 0.678)
pt3dadd(127.878, 90.516, 34.598, 0.678)
pt3dadd(127.945, 90.468, 34.67, 0.678)
pt3dadd(128.014, 90.419, 34.742, 0.678)
pt3dadd(128.081, 90.371, 34.814, 0.678)
pt3dadd(128.149, 90.322, 34.886, 0.678)
pt3dadd(128.216, 90.274, 34.958, 0.678)
}
}
proc shape3d_209() {
dend_7[82] { pt3dadd(128.284, 90.225, 35.03, 0.678)
pt3dadd(128.352, 90.177, 35.101, 0.678)
pt3dadd(128.419, 90.128, 35.173, 0.678)
pt3dadd(128.488, 90.08, 35.245, 0.678)
pt3dadd(128.563, 90.032, 35.312, 0.666)
pt3dadd(128.645, 89.984, 35.373, 0.642)
pt3dadd(128.725, 89.936, 35.435, 0.62)
pt3dadd(128.807, 89.888, 35.496, 0.598)
pt3dadd(128.888, 89.84, 35.558, 0.574)
pt3dadd(128.97, 89.792, 35.62, 0.552)
pt3dadd(129.052, 89.744, 35.681, 0.53)
pt3dadd(129.132, 89.696, 35.743, 0.506)
pt3dadd(129.214, 89.648, 35.805, 0.484)
pt3dadd(129.295, 89.6, 35.867, 0.462)
pt3dadd(129.353, 89.541, 35.937, 0.452)
pt3dadd(129.395, 89.474, 36.012, 0.452)
pt3dadd(129.436, 89.407, 36.087, 0.452)
pt3dadd(129.478, 89.34, 36.163, 0.452)
pt3dadd(129.52, 89.273, 36.238, 0.452)
pt3dadd(129.56, 89.206, 36.314, 0.452)
pt3dadd(129.602, 89.139, 36.389, 0.452)
pt3dadd(129.644, 89.072, 36.464, 0.452)
pt3dadd(129.686, 89.005, 36.54, 0.452)
pt3dadd(129.727, 88.938, 36.615, 0.452)
pt3dadd(129.762, 88.867, 36.69, 0.47)
pt3dadd(129.792, 88.793, 36.765, 0.5)
pt3dadd(129.822, 88.719, 36.84, 0.53)
pt3dadd(129.852, 88.645, 36.914, 0.56)
pt3dadd(129.882, 88.571, 36.989, 0.588)
pt3dadd(129.912, 88.497, 37.063, 0.618)
pt3dadd(129.942, 88.423, 37.138, 0.648)
pt3dadd(129.972, 88.349, 37.213, 0.678)
pt3dadd(130.002, 88.275, 37.287, 0.708)
pt3dadd(130.032, 88.201, 37.362, 0.738)
pt3dadd(130.069, 88.135, 37.439, 0.758)
pt3dadd(130.111, 88.073, 37.517, 0.774)
pt3dadd(130.153, 88.011, 37.596, 0.79)
pt3dadd(130.195, 87.949, 37.674, 0.806)
pt3dadd(130.237, 87.888, 37.752, 0.822)
pt3dadd(130.279, 87.826, 37.83, 0.836)
pt3dadd(130.321, 87.764, 37.909, 0.852)
pt3dadd(130.363, 87.702, 37.987, 0.868)
pt3dadd(130.404, 87.64, 38.065, 0.884)
pt3dadd(130.446, 87.579, 38.144, 0.9)
pt3dadd(130.495, 87.525, 38.223, 0.906)
pt3dadd(130.548, 87.474, 38.303, 0.91)
pt3dadd(130.6, 87.424, 38.382, 0.912)
pt3dadd(130.651, 87.374, 38.462, 0.916)
pt3dadd(130.704, 87.323, 38.542, 0.918)
pt3dadd(130.756, 87.273, 38.622, 0.922)
pt3dadd(130.807, 87.222, 38.701, 0.924)
pt3dadd(130.859, 87.172, 38.781, 0.928)
pt3dadd(130.912, 87.121, 38.861, 0.932)
pt3dadd(130.963, 87.071, 38.94, 0.934)
pt3dadd(131.012, 87.017, 39.02, 0.948)
pt3dadd(131.062, 86.961, 39.098, 0.964)
pt3dadd(131.11, 86.905, 39.177, 0.982)
pt3dadd(131.159, 86.85, 39.256, 1)
pt3dadd(131.207, 86.794, 39.335, 1.016)
pt3dadd(131.256, 86.738, 39.414, 1.034)
pt3dadd(131.304, 86.683, 39.492, 1.052)
pt3dadd(131.353, 86.627, 39.571, 1.068)
pt3dadd(131.401, 86.572, 39.65, 1.086)
pt3dadd(131.45, 86.516, 39.729, 1.104)
pt3dadd(131.524, 86.474, 39.798, 1.096)
pt3dadd(131.605, 86.437, 39.864, 1.08)
pt3dadd(131.688, 86.401, 39.931, 1.064)
pt3dadd(131.77, 86.364, 39.997, 1.048)
pt3dadd(131.852, 86.327, 40.063, 1.032)
pt3dadd(131.934, 86.291, 40.129, 1.016)
pt3dadd(132.017, 86.254, 40.195, 1)
pt3dadd(132.098, 86.217, 40.261, 0.984)
pt3dadd(132.181, 86.181, 40.327, 0.966)
pt3dadd(132.263, 86.144, 40.394, 0.95)
pt3dadd(132.348, 86.121, 40.462, 0.956)
pt3dadd(132.433, 86.102, 40.53, 0.966)
pt3dadd(132.518, 86.083, 40.599, 0.976)
pt3dadd(132.604, 86.064, 40.668, 0.986)
pt3dadd(132.688, 86.044, 40.736, 0.996)
pt3dadd(132.773, 86.025, 40.805, 1.008)
pt3dadd(132.858, 86.006, 40.873, 1.018)
pt3dadd(132.943, 85.986, 40.942, 1.028)
pt3dadd(133.028, 85.967, 41.011, 1.038)
pt3dadd(133.114, 85.948, 41.079, 1.048)
pt3dadd(133.188, 85.935, 41.157, 1.056)
pt3dadd(133.261, 85.924, 41.236, 1.064)
pt3dadd(133.334, 85.913, 41.315, 1.072)
pt3dadd(133.406, 85.902, 41.394, 1.08)
pt3dadd(133.48, 85.891, 41.472, 1.088)
pt3dadd(133.553, 85.88, 41.552, 1.098)
pt3dadd(133.625, 85.869, 41.631, 1.104)
pt3dadd(133.698, 85.858, 41.709, 1.114)
pt3dadd(133.771, 85.847, 41.788, 1.122)
pt3dadd(133.843, 85.836, 41.867, 1.13)
pt3dadd(133.909, 85.827, 41.951, 1.13)
pt3dadd(133.974, 85.818, 42.035, 1.13)
pt3dadd(134.038, 85.81, 42.119, 1.13)
pt3dadd(134.102, 85.801, 42.203, 1.13)
pt3dadd(134.167, 85.792, 42.287, 1.13)
pt3dadd(134.232, 85.784, 42.371, 1.13)
pt3dadd(134.297, 85.775, 42.455, 1.13)
pt3dadd(134.362, 85.766, 42.539, 1.13)
pt3dadd(134.425, 85.758, 42.623, 1.13)
pt3dadd(134.49, 85.749, 42.707, 1.13)
pt3dadd(134.556, 85.735, 42.789, 1.13)
pt3dadd(134.622, 85.72, 42.872, 1.13)
pt3dadd(134.688, 85.705, 42.954, 1.13)
pt3dadd(134.754, 85.69, 43.037, 1.13)
pt3dadd(134.821, 85.675, 43.119, 1.13)
pt3dadd(134.887, 85.66, 43.202, 1.13)
pt3dadd(134.953, 85.645, 43.285, 1.13)
pt3dadd(135.019, 85.63, 43.367, 1.13)
pt3dadd(135.085, 85.615, 43.45, 1.13)
pt3dadd(135.151, 85.6, 43.532, 1.13)
pt3dadd(135.205, 85.557, 43.614, 1.13)
pt3dadd(135.259, 85.513, 43.695, 1.13)
pt3dadd(135.312, 85.469, 43.777, 1.13)
pt3dadd(135.366, 85.425, 43.858, 1.13)
pt3dadd(135.419, 85.38, 43.94, 1.13)
pt3dadd(135.473, 85.336, 44.022, 1.13)
pt3dadd(135.527, 85.292, 44.103, 1.13)
pt3dadd(135.58, 85.248, 44.185, 1.13)
pt3dadd(135.634, 85.204, 44.266, 1.13)
pt3dadd(135.686, 85.16, 44.348, 1.13)
pt3dadd(135.692, 85.107, 44.438, 1.104)
pt3dadd(135.696, 85.055, 44.527, 1.076)
pt3dadd(135.7, 85.002, 44.617, 1.05)
pt3dadd(135.703, 84.95, 44.707, 1.022)
pt3dadd(135.707, 84.897, 44.797, 0.996)
pt3dadd(135.712, 84.845, 44.887, 0.968)
pt3dadd(135.715, 84.792, 44.977, 0.942)
pt3dadd(135.719, 84.74, 45.066, 0.914)
pt3dadd(135.674, 84.66, 45.1, 0.904)
pt3dadd(135.602, 84.564, 45.1, 0.904)
pt3dadd(135.53, 84.468, 45.1, 0.904)
pt3dadd(135.458, 84.372, 45.1, 0.904)
pt3dadd(135.386, 84.276, 45.1, 0.904)
pt3dadd(135.36, 84.165, 45.1, 0.904)
pt3dadd(135.36, 84.045, 45.1, 0.904)
pt3dadd(135.36, 83.925, 45.1, 0.904)
pt3dadd(135.35, 83.805, 45.1, 0.904)
pt3dadd(135.319, 83.692, 45.112, 0.904)
pt3dadd(135.263, 83.645, 45.186, 0.904)
pt3dadd(135.242, 83.64, 45.283, 0.904)
pt3dadd(135.228, 83.64, 45.383, 0.904)
pt3dadd(135.167, 83.64, 45.464, 0.904)
pt3dadd(135.055, 83.64, 45.501, 0.904)
pt3dadd(134.94, 83.64, 45.528, 0.904)
pt3dadd(134.832, 83.64, 45.57, 0.904)
pt3dadd(134.724, 83.64, 45.615, 0.904)
pt3dadd(134.617, 83.64, 45.66, 0.904)
pt3dadd(134.5, 83.64, 45.677, 0.904)
pt3dadd(134.381, 83.64, 45.689, 0.904)
pt3dadd(134.262, 83.642, 45.7, 0.904)
pt3dadd(134.143, 83.662, 45.7, 0.904)
pt3dadd(134.032, 83.704, 45.7, 0.904)
pt3dadd(133.919, 83.743, 45.7, 0.904)
pt3dadd(133.8, 83.76, 45.7, 0.904)
pt3dadd(133.68, 83.76, 45.7, 0.904)
pt3dadd(133.56, 83.76, 45.7, 0.904)
pt3dadd(133.44, 83.76, 45.7, 0.904)
}
}
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()
shape3d_188()
shape3d_189()
shape3d_190()
shape3d_191()
shape3d_192()
shape3d_193()
shape3d_194()
shape3d_195()
shape3d_196()
shape3d_197()
shape3d_198()
shape3d_199()
shape3d_200()
basic_shape_2()
}
proc basic_shape_2() {
shape3d_201()
shape3d_202()
shape3d_203()
shape3d_204()
shape3d_205()
shape3d_206()
shape3d_207()
shape3d_208()
shape3d_209()
}
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, 13 dend_0[i] all.append()
for i=0, 82 dend_7[i] all.append()
for i=0, 28 apic[i] all.append()
for i=0, 6 dend_5[i] all.append()
dendritic_0 = new SectionList()
for i=0, 13 dend_0[i] dendritic_0.append()
somatic = new SectionList()
soma somatic.append()
apical = new SectionList()
for i=0, 28 apic[i] apical.append()
dendritic_5 = new SectionList()
for i=0, 6 dend_5[i] dendritic_5.append()
dendritic_7 = new SectionList()
for i=0, 82 dend_7[i] dendritic_7.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()