proc celldef() {
topol()
subsets()
geom()
biophys()
geom_nseg()
}
create soma, dend_0[8], apic[50], dend_5[19], dend_7[49]
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, 5 connect dend_0[i](0), dend_0[3](1)
connect dend_0[6](0), dend_0(1)
connect dend_0[7](0), soma(0.5)
connect apic(0), dend_0[1](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)
connect apic[15](0), apic[1](1)
for i = 16, 18 connect apic[i](0), apic[i-1](1)
connect apic[19](0), apic[17](1)
connect apic[20](0), apic[16](1)
for i = 21, 24 connect apic[i](0), apic[i-1](1)
connect apic[25](0), apic[23](1)
connect apic[26](0), apic[22](1)
connect apic[27](0), apic[21](1)
connect apic[28](0), apic[20](1)
for i = 29, 30 connect apic[i](0), apic[28](1)
for i = 31, 32 connect apic[i](0), apic[30](1)
connect apic[33](0), apic[15](1)
connect apic[34](0), apic[1](1)
for i = 35, 37 connect apic[i](0), apic[i-1](1)
connect apic[38](0), apic[36](1)
connect apic[39](0), apic[35](1)
connect apic[40](0), apic[34](1)
connect apic[41](0), apic(1)
for i = 42, 43 connect apic[i](0), apic[41](1)
for i = 44, 45 connect apic[i](0), apic[i-1](1)
connect apic[46](0), apic[44](1)
connect apic[47](0), apic[43](1)
for i = 48, 49 connect apic[i](0), apic[47](1)
connect dend_5(0), apic[6](1)
for i = 1, 2 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[3](0), dend_5[1](1)
connect dend_5[4](0), dend_5(1)
connect dend_5[5](0), apic[18](1)
for i = 6, 8 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[9](0), dend_5[7](1)
connect dend_5[10](0), dend_5[6](1)
connect dend_5[11](0), dend_5[5](1)
connect dend_5[12](0), apic[39](1)
for i = 13, 15 connect dend_5[i](0), dend_5[i-1](1)
connect dend_5[16](0), dend_5[14](1)
connect dend_5[17](0), dend_5[13](1)
connect dend_5[18](0), dend_5[12](1)
connect dend_7(0), dend_0[2](1)
for i = 1, 4 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[5](0), dend_7[3](1)
connect dend_7[6](0), dend_7[2](1)
connect dend_7[7](0), dend_7[1](1)
for i = 8, 9 connect dend_7[i](0), dend_7[7](1)
connect dend_7[10](0), dend_7(1)
for i = 11, 12 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[13](0), dend_7[11](1)
connect dend_7[14](0), dend_7[10](1)
for i = 15, 16 connect dend_7[i](0), dend_7[14](1)
connect dend_7[17](0), dend_0[4](1)
for i = 18, 19 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[20](0), dend_7[18](1)
connect dend_7[21](0), dend_7[17](1)
for i = 22, 24 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[25](0), dend_7[23](1)
connect dend_7[26](0), dend_7[22](1)
for i = 27, 28 connect dend_7[i](0), dend_7[26](1)
connect dend_7[29](0), dend_7[21](1)
connect dend_7[30](0), dend_0[5](1)
for i = 31, 32 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[33](0), dend_7[31](1)
connect dend_7[34](0), dend_7[30](1)
for i = 35, 36 connect dend_7[i](0), dend_7[34](1)
connect dend_7[37](0), dend_0[6](1)
for i = 38, 41 connect dend_7[i](0), dend_7[i-1](1)
connect dend_7[42](0), dend_7[40](1)
connect dend_7[43](0), dend_7[39](1)
connect dend_7[44](0), dend_7[38](1)
connect dend_7[45](0), dend_7[37](1)
for i = 46, 47 connect dend_7[i](0), dend_7[45](1)
connect dend_7[48](0), dend_0[7](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(120.507, 104.51, 17.58, 13.532)
pt3dadd(127.273, 104.51, 17.58, 13.532)
pt3dadd(134.039, 104.51, 17.58, 13.532)
}
dend_0 {pt3dclear()
pt3dstyle(1, 127.273, 104.51, 17.58)
pt3dadd(127.273, 104.426, 17.65, 13.664)
pt3dadd(127.273, 104.341, 17.721, 13.798)
pt3dadd(127.273, 104.256, 17.792, 13.93)
pt3dadd(127.273, 104.171, 17.862, 14.064)
pt3dadd(127.273, 104.086, 17.933, 14.196)
pt3dadd(127.273, 104.059, 17.955, 14.238)
}
dend_0[1] {pt3dclear()
pt3dadd(127.273, 104.059, 17.955, 14.238)
pt3dadd(127.198, 104.133, 17.951, 14.102)
pt3dadd(127.111, 104.217, 17.945, 13.95)
pt3dadd(127.026, 104.301, 17.94, 13.798)
pt3dadd(126.94, 104.384, 17.935, 13.644)
pt3dadd(126.854, 104.468, 17.929, 13.492)
pt3dadd(126.768, 104.551, 17.924, 13.34)
pt3dadd(126.683, 104.635, 17.919, 13.186)
pt3dadd(126.596, 104.719, 17.913, 13.034)
pt3dadd(126.51, 104.802, 17.908, 12.882)
pt3dadd(126.425, 104.886, 17.903, 12.728)
pt3dadd(126.338, 104.97, 17.897, 12.576)
pt3dadd(126.253, 105.053, 17.892, 12.424)
pt3dadd(126.167, 105.137, 17.887, 12.27)
pt3dadd(126.082, 105.22, 17.882, 12.118)
pt3dadd(125.995, 105.304, 17.876, 11.966)
pt3dadd(125.91, 105.388, 17.871, 11.812)
pt3dadd(125.824, 105.471, 17.865, 11.66)
pt3dadd(125.738, 105.555, 17.86, 11.508)
pt3dadd(125.652, 105.638, 17.854, 11.348)
pt3dadd(125.566, 105.721, 17.847, 11.188)
pt3dadd(125.479, 105.804, 17.841, 11.028)
pt3dadd(125.393, 105.887, 17.834, 10.868)
pt3dadd(125.308, 105.97, 17.827, 10.706)
pt3dadd(125.221, 106.053, 17.82, 10.546)
pt3dadd(125.135, 106.136, 17.814, 10.386)
pt3dadd(125.048, 106.219, 17.807, 10.226)
pt3dadd(124.962, 106.302, 17.801, 10.064)
pt3dadd(124.876, 106.386, 17.794, 9.904)
pt3dadd(124.789, 106.468, 17.786, 9.736)
pt3dadd(124.703, 106.551, 17.778, 9.568)
pt3dadd(124.616, 106.633, 17.769, 9.396)
pt3dadd(124.529, 106.715, 17.761, 9.226)
pt3dadd(124.442, 106.798, 17.753, 9.056)
pt3dadd(124.356, 106.88, 17.745, 8.886)
pt3dadd(124.27, 106.963, 17.736, 8.716)
pt3dadd(124.183, 107.045, 17.728, 8.546)
pt3dadd(124.096, 107.128, 17.72, 8.376)
pt3dadd(124.009, 107.21, 17.711, 8.206)
pt3dadd(123.923, 107.292, 17.7, 8.066)
pt3dadd(123.836, 107.374, 17.688, 7.936)
pt3dadd(123.75, 107.457, 17.677, 7.808)
pt3dadd(123.664, 107.539, 17.665, 7.678)
pt3dadd(123.578, 107.621, 17.653, 7.548)
pt3dadd(123.492, 107.703, 17.641, 7.42)
pt3dadd(123.406, 107.785, 17.629, 7.29)
pt3dadd(123.319, 107.867, 17.617, 7.162)
pt3dadd(123.233, 107.949, 17.605, 7.032)
pt3dadd(123.146, 108.031, 17.593, 6.902)
pt3dadd(123.06, 108.113, 17.579, 6.794)
pt3dadd(122.974, 108.195, 17.565, 6.694)
pt3dadd(122.888, 108.277, 17.551, 6.594)
pt3dadd(122.802, 108.359, 17.536, 6.492)
pt3dadd(122.716, 108.44, 17.522, 6.392)
pt3dadd(122.629, 108.522, 17.507, 6.292)
}
apic {pt3dclear()
pt3dadd(122.629, 108.522, 17.507, 6.292)
pt3dadd(122.544, 108.604, 17.493, 6.19)
pt3dadd(122.458, 108.686, 17.478, 6.09)
pt3dadd(122.371, 108.767, 17.464, 5.99)
pt3dadd(122.285, 108.849, 17.449, 5.888)
pt3dadd(122.197, 108.923, 17.423, 5.798)
pt3dadd(122.107, 108.994, 17.391, 5.712)
pt3dadd(122.018, 109.065, 17.36, 5.626)
pt3dadd(121.93, 109.136, 17.329, 5.54)
pt3dadd(121.84, 109.206, 17.297, 5.454)
pt3dadd(121.751, 109.277, 17.266, 5.366)
pt3dadd(121.661, 109.348, 17.235, 5.28)
pt3dadd(121.572, 109.419, 17.203, 5.194)
pt3dadd(121.483, 109.49, 17.172, 5.108)
pt3dadd(121.393, 109.561, 17.14, 5.022)
pt3dadd(121.304, 109.623, 17.098, 4.946)
pt3dadd(121.214, 109.683, 17.055, 4.874)
pt3dadd(121.126, 109.744, 17.011, 4.8)
pt3dadd(121.036, 109.804, 16.968, 4.728)
pt3dadd(120.947, 109.865, 16.924, 4.654)
pt3dadd(120.857, 109.926, 16.88, 4.58)
pt3dadd(120.768, 109.986, 16.837, 4.508)
pt3dadd(120.678, 110.047, 16.793, 4.434)
pt3dadd(120.589, 110.107, 16.75, 4.36)
pt3dadd(120.499, 110.168, 16.706, 4.288)
pt3dadd(120.427, 110.24, 16.654, 4.284)
pt3dadd(120.356, 110.313, 16.601, 4.29)
pt3dadd(120.286, 110.387, 16.549, 4.294)
pt3dadd(120.215, 110.46, 16.496, 4.3)
pt3dadd(120.145, 110.534, 16.443, 4.306)
pt3dadd(120.074, 110.607, 16.39, 4.312)
pt3dadd(120.004, 110.681, 16.337, 4.318)
pt3dadd(119.933, 110.754, 16.284, 4.324)
pt3dadd(119.863, 110.828, 16.232, 4.33)
pt3dadd(119.792, 110.902, 16.179, 4.334)
pt3dadd(119.73, 110.979, 16.123, 4.372)
pt3dadd(119.668, 111.057, 16.067, 4.408)
pt3dadd(119.606, 111.135, 16.011, 4.446)
pt3dadd(119.544, 111.213, 15.955, 4.484)
pt3dadd(119.482, 111.291, 15.9, 4.52)
pt3dadd(119.42, 111.369, 15.844, 4.558)
pt3dadd(119.358, 111.446, 15.788, 4.596)
pt3dadd(119.296, 111.524, 15.732, 4.634)
pt3dadd(119.234, 111.602, 15.676, 4.67)
pt3dadd(119.172, 111.68, 15.62, 4.708)
pt3dadd(119.099, 111.767, 15.587, 4.702)
pt3dadd(119.026, 111.853, 15.555, 4.696)
pt3dadd(118.953, 111.94, 15.523, 4.688)
pt3dadd(118.879, 112.027, 15.491, 4.682)
pt3dadd(118.806, 112.114, 15.458, 4.674)
pt3dadd(118.733, 112.201, 15.426, 4.668)
pt3dadd(118.66, 112.288, 15.394, 4.66)
pt3dadd(118.586, 112.374, 15.362, 4.652)
pt3dadd(118.513, 112.461, 15.33, 4.646)
pt3dadd(118.44, 112.548, 15.297, 4.638)
pt3dadd(118.366, 112.636, 15.268, 4.626)
pt3dadd(118.292, 112.723, 15.238, 4.616)
pt3dadd(118.217, 112.811, 15.209, 4.604)
pt3dadd(118.143, 112.898, 15.179, 4.592)
pt3dadd(118.069, 112.986, 15.15, 4.58)
pt3dadd(117.995, 113.073, 15.12, 4.568)
pt3dadd(117.921, 113.16, 15.091, 4.556)
pt3dadd(117.847, 113.248, 15.061, 4.544)
pt3dadd(117.773, 113.335, 15.032, 4.532)
pt3dadd(117.698, 113.423, 15.002, 4.52)
}
apic[1] {pt3dclear()
pt3dadd(117.698, 113.423, 15.002, 4.52)
pt3dadd(117.622, 113.508, 14.994, 4.51)
pt3dadd(117.543, 113.597, 14.986, 4.498)
pt3dadd(117.463, 113.687, 14.977, 4.488)
pt3dadd(117.384, 113.776, 14.969, 4.478)
pt3dadd(117.304, 113.865, 14.96, 4.466)
pt3dadd(117.224, 113.954, 14.952, 4.456)
pt3dadd(117.145, 114.044, 14.943, 4.444)
pt3dadd(117.065, 114.133, 14.935, 4.434)
pt3dadd(116.986, 114.222, 14.926, 4.424)
pt3dadd(116.906, 114.311, 14.918, 4.412)
pt3dadd(116.827, 114.401, 14.909, 4.402)
pt3dadd(116.747, 114.49, 14.901, 4.39)
pt3dadd(116.668, 114.579, 14.892, 4.38)
pt3dadd(116.587, 114.668, 14.885, 4.362)
pt3dadd(116.506, 114.756, 14.878, 4.342)
pt3dadd(116.425, 114.844, 14.872, 4.322)
pt3dadd(116.345, 114.933, 14.865, 4.302)
pt3dadd(116.264, 115.021, 14.858, 4.282)
pt3dadd(116.183, 115.11, 14.852, 4.262)
pt3dadd(116.102, 115.198, 14.845, 4.242)
pt3dadd(116.021, 115.286, 14.838, 4.224)
pt3dadd(115.941, 115.375, 14.832, 4.204)
pt3dadd(115.86, 115.463, 14.825, 4.184)
pt3dadd(115.775, 115.548, 14.823, 4.138)
pt3dadd(115.69, 115.633, 14.823, 4.086)
pt3dadd(115.605, 115.717, 14.823, 4.034)
pt3dadd(115.52, 115.802, 14.822, 3.984)
pt3dadd(115.435, 115.887, 14.822, 3.932)
pt3dadd(115.35, 115.971, 14.821, 3.88)
pt3dadd(115.265, 116.056, 14.821, 3.828)
pt3dadd(115.18, 116.14, 14.82, 3.778)
pt3dadd(115.095, 116.225, 14.82, 3.726)
pt3dadd(115.01, 116.31, 14.82, 3.674)
pt3dadd(114.924, 116.394, 14.819, 3.624)
pt3dadd(114.839, 116.479, 14.819, 3.574)
pt3dadd(114.754, 116.564, 14.818, 3.526)
pt3dadd(114.669, 116.648, 14.818, 3.476)
pt3dadd(114.584, 116.733, 14.817, 3.426)
pt3dadd(114.499, 116.817, 14.817, 3.376)
pt3dadd(114.414, 116.902, 14.817, 3.326)
pt3dadd(114.329, 116.987, 14.816, 3.276)
pt3dadd(114.244, 117.071, 14.816, 3.226)
pt3dadd(114.159, 117.156, 14.815, 3.176)
pt3dadd(114.073, 117.24, 14.814, 3.186)
pt3dadd(113.988, 117.325, 14.813, 3.206)
pt3dadd(113.903, 117.409, 14.813, 3.228)
pt3dadd(113.817, 117.493, 14.812, 3.248)
pt3dadd(113.732, 117.578, 14.811, 3.268)
pt3dadd(113.647, 117.662, 14.81, 3.29)
pt3dadd(113.561, 117.746, 14.809, 3.31)
pt3dadd(113.476, 117.831, 14.808, 3.33)
pt3dadd(113.391, 117.915, 14.807, 3.352)
pt3dadd(113.305, 117.999, 14.806, 3.372)
pt3dadd(113.22, 118.084, 14.805, 3.392)
pt3dadd(113.135, 118.168, 14.804, 3.414)
pt3dadd(113.049, 118.253, 14.803, 3.434)
pt3dadd(112.964, 118.337, 14.802, 3.454)
pt3dadd(112.879, 118.421, 14.801, 3.476)
pt3dadd(112.794, 118.506, 14.8, 3.496)
pt3dadd(112.708, 118.59, 14.799, 3.516)
pt3dadd(112.623, 118.674, 14.798, 3.538)
pt3dadd(112.537, 118.759, 14.797, 3.558)
pt3dadd(112.452, 118.843, 14.796, 3.578)
pt3dadd(112.367, 118.927, 14.795, 3.57)
pt3dadd(112.281, 119.011, 14.793, 3.556)
pt3dadd(112.195, 119.095, 14.791, 3.542)
pt3dadd(112.11, 119.179, 14.79, 3.528)
pt3dadd(112.024, 119.263, 14.788, 3.514)
pt3dadd(111.938, 119.347, 14.786, 3.5)
pt3dadd(111.852, 119.431, 14.784, 3.486)
}
}
proc shape3d_2() {
apic[1] { pt3dadd(111.767, 119.515, 14.782, 3.472)
pt3dadd(111.681, 119.599, 14.781, 3.458)
pt3dadd(111.595, 119.683, 14.779, 3.444)
pt3dadd(111.51, 119.767, 14.777, 3.424)
pt3dadd(111.424, 119.851, 14.775, 3.404)
pt3dadd(111.338, 119.935, 14.773, 3.382)
pt3dadd(111.252, 120.019, 14.771, 3.362)
pt3dadd(111.167, 120.102, 14.769, 3.34)
pt3dadd(111.081, 120.186, 14.767, 3.32)
pt3dadd(110.995, 120.27, 14.766, 3.298)
pt3dadd(110.909, 120.354, 14.764, 3.278)
pt3dadd(110.823, 120.438, 14.762, 3.258)
pt3dadd(110.738, 120.522, 14.76, 3.236)
pt3dadd(110.651, 120.605, 14.756, 3.208)
pt3dadd(110.564, 120.688, 14.752, 3.18)
pt3dadd(110.478, 120.77, 14.748, 3.152)
pt3dadd(110.391, 120.853, 14.745, 3.124)
pt3dadd(110.304, 120.936, 14.741, 3.096)
pt3dadd(110.217, 121.019, 14.737, 3.066)
pt3dadd(110.13, 121.102, 14.733, 3.038)
pt3dadd(110.044, 121.184, 14.729, 3.01)
pt3dadd(109.957, 121.267, 14.725, 2.982)
pt3dadd(109.87, 121.35, 14.721, 2.954)
pt3dadd(109.783, 121.433, 14.716, 2.922)
pt3dadd(109.696, 121.514, 14.711, 2.89)
pt3dadd(109.609, 121.597, 14.707, 2.858)
pt3dadd(109.522, 121.679, 14.702, 2.826)
pt3dadd(109.434, 121.762, 14.697, 2.792)
pt3dadd(109.347, 121.843, 14.692, 2.76)
pt3dadd(109.26, 121.926, 14.687, 2.728)
pt3dadd(109.173, 122.008, 14.682, 2.696)
pt3dadd(109.086, 122.09, 14.677, 2.664)
pt3dadd(108.999, 122.172, 14.672, 2.632)
pt3dadd(108.911, 122.254, 14.666, 2.616)
pt3dadd(108.823, 122.335, 14.659, 2.602)
pt3dadd(108.735, 122.417, 14.652, 2.586)
pt3dadd(108.647, 122.497, 14.646, 2.572)
pt3dadd(108.559, 122.579, 14.639, 2.558)
pt3dadd(108.471, 122.66, 14.632, 2.544)
pt3dadd(108.383, 122.741, 14.625, 2.53)
pt3dadd(108.295, 122.822, 14.619, 2.516)
pt3dadd(108.207, 122.904, 14.612, 2.502)
pt3dadd(108.119, 122.986, 14.605, 2.488)
pt3dadd(108.031, 123.066, 14.597, 2.486)
pt3dadd(107.942, 123.146, 14.589, 2.486)
pt3dadd(107.854, 123.227, 14.581, 2.486)
pt3dadd(107.765, 123.307, 14.572, 2.486)
pt3dadd(107.677, 123.388, 14.564, 2.486)
pt3dadd(107.588, 123.468, 14.556, 2.486)
pt3dadd(107.499, 123.548, 14.548, 2.486)
pt3dadd(107.411, 123.629, 14.539, 2.486)
pt3dadd(107.322, 123.709, 14.531, 2.486)
pt3dadd(107.234, 123.79, 14.523, 2.486)
pt3dadd(107.141, 123.862, 14.503, 2.48)
pt3dadd(107.048, 123.932, 14.482, 2.474)
pt3dadd(106.955, 124.003, 14.46, 2.466)
pt3dadd(106.862, 124.075, 14.438, 2.46)
pt3dadd(106.769, 124.146, 14.417, 2.454)
pt3dadd(106.676, 124.217, 14.395, 2.446)
pt3dadd(106.582, 124.288, 14.373, 2.44)
pt3dadd(106.489, 124.358, 14.352, 2.434)
pt3dadd(106.396, 124.43, 14.33, 2.426)
pt3dadd(106.303, 124.501, 14.309, 2.42)
pt3dadd(106.208, 124.562, 14.276, 2.408)
pt3dadd(106.112, 124.622, 14.242, 2.394)
pt3dadd(106.017, 124.684, 14.209, 2.382)
pt3dadd(105.921, 124.745, 14.176, 2.37)
pt3dadd(105.826, 124.805, 14.143, 2.356)
pt3dadd(105.73, 124.866, 14.109, 2.344)
pt3dadd(105.635, 124.927, 14.076, 2.332)
pt3dadd(105.54, 124.987, 14.043, 2.318)
pt3dadd(105.444, 125.048, 14.01, 2.306)
pt3dadd(105.349, 125.11, 13.976, 2.292)
pt3dadd(105.257, 125.182, 13.954, 2.29)
pt3dadd(105.165, 125.254, 13.931, 2.286)
pt3dadd(105.073, 125.327, 13.909, 2.282)
pt3dadd(104.981, 125.399, 13.887, 2.28)
pt3dadd(104.889, 125.472, 13.865, 2.276)
pt3dadd(104.798, 125.544, 13.843, 2.274)
pt3dadd(104.706, 125.616, 13.82, 2.27)
pt3dadd(104.614, 125.689, 13.798, 2.266)
pt3dadd(104.522, 125.761, 13.776, 2.264)
pt3dadd(104.43, 125.834, 13.754, 2.26)
pt3dadd(104.34, 125.91, 13.735, 2.26)
pt3dadd(104.25, 125.987, 13.717, 2.26)
pt3dadd(104.16, 126.062, 13.699, 2.26)
pt3dadd(104.07, 126.139, 13.68, 2.26)
pt3dadd(103.98, 126.215, 13.662, 2.26)
pt3dadd(103.89, 126.292, 13.644, 2.26)
pt3dadd(103.8, 126.367, 13.626, 2.26)
pt3dadd(103.71, 126.444, 13.607, 2.26)
pt3dadd(103.62, 126.52, 13.589, 2.26)
pt3dadd(103.53, 126.596, 13.571, 2.26)
}
apic[2] {pt3dclear()
pt3dadd(103.53, 126.596, 13.571, 2.26)
pt3dadd(103.5, 126.643, 13.57, 2.246)
pt3dadd(103.437, 126.745, 13.569, 2.214)
pt3dadd(103.373, 126.847, 13.567, 2.184)
pt3dadd(103.309, 126.949, 13.566, 2.152)
pt3dadd(103.245, 127.05, 13.565, 2.122)
pt3dadd(103.182, 127.152, 13.563, 2.09)
pt3dadd(103.118, 127.254, 13.562, 2.058)
pt3dadd(103.054, 127.355, 13.561, 2.028)
pt3dadd(102.99, 127.457, 13.562, 2)
pt3dadd(102.925, 127.558, 13.568, 1.98)
pt3dadd(102.86, 127.658, 13.574, 1.96)
pt3dadd(102.795, 127.758, 13.58, 1.94)
pt3dadd(102.73, 127.859, 13.586, 1.92)
pt3dadd(102.665, 127.96, 13.592, 1.9)
pt3dadd(102.6, 128.06, 13.598, 1.88)
pt3dadd(102.535, 128.161, 13.604, 1.86)
pt3dadd(102.47, 128.262, 13.61, 1.84)
pt3dadd(102.405, 128.363, 13.616, 1.822)
pt3dadd(102.34, 128.462, 13.626, 1.808)
pt3dadd(102.273, 128.56, 13.645, 1.808)
pt3dadd(102.207, 128.657, 13.663, 1.808)
pt3dadd(102.141, 128.754, 13.682, 1.808)
pt3dadd(102.074, 128.851, 13.701, 1.808)
pt3dadd(102.008, 128.948, 13.72, 1.808)
pt3dadd(101.941, 129.047, 13.738, 1.808)
pt3dadd(101.875, 129.144, 13.757, 1.808)
pt3dadd(101.809, 129.241, 13.776, 1.808)
pt3dadd(101.742, 129.338, 13.795, 1.808)
pt3dadd(101.679, 129.43, 13.827, 1.814)
pt3dadd(101.623, 129.509, 13.885, 1.828)
pt3dadd(101.566, 129.588, 13.944, 1.844)
pt3dadd(101.51, 129.668, 14.002, 1.86)
pt3dadd(101.453, 129.748, 14.06, 1.874)
pt3dadd(101.397, 129.827, 14.118, 1.89)
pt3dadd(101.34, 129.906, 14.177, 1.904)
pt3dadd(101.283, 129.986, 14.235, 1.92)
pt3dadd(101.227, 130.066, 14.293, 1.936)
pt3dadd(101.17, 130.145, 14.351, 1.95)
pt3dadd(101.119, 130.213, 14.42, 1.95)
pt3dadd(101.071, 130.274, 14.497, 1.936)
pt3dadd(101.024, 130.336, 14.573, 1.922)
pt3dadd(100.976, 130.396, 14.65, 1.906)
pt3dadd(100.929, 130.457, 14.726, 1.892)
pt3dadd(100.881, 130.518, 14.803, 1.878)
pt3dadd(100.834, 130.578, 14.88, 1.864)
pt3dadd(100.786, 130.639, 14.956, 1.85)
pt3dadd(100.738, 130.699, 15.033, 1.836)
pt3dadd(100.691, 130.76, 15.109, 1.822)
pt3dadd(100.638, 130.824, 15.182, 1.804)
pt3dadd(100.582, 130.89, 15.252, 1.786)
pt3dadd(100.527, 130.955, 15.321, 1.768)
pt3dadd(100.471, 131.02, 15.391, 1.75)
pt3dadd(100.415, 131.086, 15.461, 1.732)
pt3dadd(100.359, 131.15, 15.531, 1.714)
pt3dadd(100.303, 131.216, 15.601, 1.696)
pt3dadd(100.248, 131.281, 15.67, 1.678)
pt3dadd(100.192, 131.347, 15.74, 1.66)
pt3dadd(100.136, 131.412, 15.81, 1.642)
pt3dadd(100.064, 131.495, 15.851, 1.66)
pt3dadd(99.993, 131.578, 15.891, 1.676)
pt3dadd(99.921, 131.66, 15.932, 1.692)
pt3dadd(99.849, 131.744, 15.973, 1.71)
pt3dadd(99.777, 131.827, 16.013, 1.726)
pt3dadd(99.706, 131.91, 16.054, 1.742)
pt3dadd(99.634, 131.993, 16.095, 1.758)
pt3dadd(99.562, 132.076, 16.135, 1.776)
pt3dadd(99.491, 132.158, 16.176, 1.792)
pt3dadd(99.419, 132.241, 16.217, 1.808)
}
apic[3] {pt3dclear()
pt3dadd(99.419, 132.241, 16.217, 1.808)
pt3dadd(99.375, 132.313, 16.225, 1.808)
pt3dadd(99.313, 132.415, 16.236, 1.808)
pt3dadd(99.251, 132.517, 16.248, 1.808)
pt3dadd(99.189, 132.619, 16.26, 1.808)
pt3dadd(99.127, 132.721, 16.271, 1.808)
pt3dadd(99.066, 132.823, 16.283, 1.808)
pt3dadd(99.004, 132.925, 16.294, 1.808)
pt3dadd(98.942, 133.026, 16.306, 1.808)
pt3dadd(98.88, 133.128, 16.317, 1.808)
pt3dadd(98.818, 133.23, 16.329, 1.808)
pt3dadd(98.757, 133.332, 16.34, 1.808)
pt3dadd(98.695, 133.434, 16.352, 1.808)
pt3dadd(98.633, 133.536, 16.363, 1.808)
pt3dadd(98.571, 133.638, 16.375, 1.808)
pt3dadd(98.509, 133.74, 16.386, 1.808)
}
apic[4] {pt3dclear()
pt3dadd(98.509, 133.74, 16.386, 1.808)
pt3dadd(98.462, 133.793, 16.386, 1.8)
pt3dadd(98.383, 133.883, 16.385, 1.788)
pt3dadd(98.303, 133.973, 16.385, 1.774)
pt3dadd(98.224, 134.063, 16.384, 1.762)
pt3dadd(98.145, 134.153, 16.384, 1.75)
pt3dadd(98.065, 134.243, 16.383, 1.736)
pt3dadd(97.986, 134.333, 16.383, 1.724)
pt3dadd(97.907, 134.423, 16.382, 1.71)
pt3dadd(97.827, 134.513, 16.382, 1.698)
pt3dadd(97.748, 134.604, 16.381, 1.686)
pt3dadd(97.669, 134.694, 16.381, 1.672)
pt3dadd(97.589, 134.784, 16.38, 1.66)
pt3dadd(97.51, 134.874, 16.38, 1.646)
pt3dadd(97.431, 134.964, 16.379, 1.634)
pt3dadd(97.351, 135.054, 16.379, 1.62)
pt3dadd(97.272, 135.144, 16.378, 1.608)
pt3dadd(97.18, 135.218, 16.377, 1.594)
pt3dadd(97.079, 135.284, 16.376, 1.58)
pt3dadd(96.979, 135.35, 16.375, 1.566)
pt3dadd(96.879, 135.416, 16.374, 1.552)
pt3dadd(96.778, 135.482, 16.373, 1.538)
}
}
proc shape3d_3() {
apic[4] { pt3dadd(96.678, 135.547, 16.372, 1.524)
pt3dadd(96.578, 135.613, 16.371, 1.51)
pt3dadd(96.477, 135.679, 16.369, 1.496)
pt3dadd(96.377, 135.745, 16.368, 1.482)
pt3dadd(96.276, 135.811, 16.367, 1.468)
pt3dadd(96.174, 135.874, 16.366, 1.45)
pt3dadd(96.071, 135.935, 16.364, 1.434)
pt3dadd(95.968, 135.996, 16.363, 1.416)
pt3dadd(95.864, 136.056, 16.361, 1.4)
pt3dadd(95.761, 136.117, 16.36, 1.382)
pt3dadd(95.658, 136.178, 16.358, 1.366)
pt3dadd(95.554, 136.24, 16.357, 1.348)
pt3dadd(95.451, 136.301, 16.355, 1.332)
pt3dadd(95.348, 136.362, 16.354, 1.314)
pt3dadd(95.245, 136.423, 16.352, 1.298)
pt3dadd(95.142, 136.486, 16.35, 1.274)
pt3dadd(95.04, 136.548, 16.348, 1.248)
pt3dadd(94.938, 136.61, 16.346, 1.224)
pt3dadd(94.836, 136.674, 16.343, 1.198)
pt3dadd(94.733, 136.736, 16.341, 1.172)
pt3dadd(94.631, 136.8, 16.339, 1.148)
pt3dadd(94.529, 136.862, 16.337, 1.122)
pt3dadd(94.427, 136.925, 16.334, 1.096)
pt3dadd(94.325, 136.988, 16.332, 1.072)
pt3dadd(94.222, 137.051, 16.33, 1.046)
pt3dadd(94.117, 137.108, 16.326, 1.038)
pt3dadd(94.011, 137.164, 16.322, 1.038)
pt3dadd(93.905, 137.22, 16.318, 1.038)
pt3dadd(93.798, 137.275, 16.314, 1.038)
pt3dadd(93.692, 137.33, 16.309, 1.038)
pt3dadd(93.586, 137.386, 16.305, 1.038)
pt3dadd(93.48, 137.442, 16.301, 1.038)
pt3dadd(93.373, 137.497, 16.297, 1.038)
pt3dadd(93.267, 137.552, 16.293, 1.038)
pt3dadd(93.161, 137.608, 16.289, 1.04)
pt3dadd(93.052, 137.658, 16.283, 1.06)
pt3dadd(92.942, 137.705, 16.277, 1.088)
pt3dadd(92.832, 137.752, 16.27, 1.116)
pt3dadd(92.721, 137.798, 16.264, 1.146)
pt3dadd(92.611, 137.845, 16.258, 1.174)
pt3dadd(92.501, 137.893, 16.251, 1.202)
pt3dadd(92.391, 137.94, 16.245, 1.23)
pt3dadd(92.281, 137.987, 16.239, 1.26)
pt3dadd(92.171, 138.034, 16.232, 1.288)
pt3dadd(92.061, 138.08, 16.226, 1.316)
pt3dadd(91.957, 138.14, 16.218, 1.336)
pt3dadd(91.856, 138.204, 16.208, 1.352)
pt3dadd(91.756, 138.269, 16.199, 1.366)
pt3dadd(91.655, 138.334, 16.19, 1.382)
pt3dadd(91.554, 138.397, 16.181, 1.396)
pt3dadd(91.454, 138.462, 16.171, 1.412)
pt3dadd(91.353, 138.527, 16.162, 1.428)
pt3dadd(91.252, 138.59, 16.153, 1.442)
pt3dadd(91.152, 138.655, 16.144, 1.458)
pt3dadd(91.051, 138.719, 16.134, 1.472)
pt3dadd(90.952, 138.785, 16.119, 1.488)
pt3dadd(90.854, 138.85, 16.101, 1.502)
pt3dadd(90.755, 138.914, 16.083, 1.518)
pt3dadd(90.657, 138.98, 16.065, 1.532)
pt3dadd(90.559, 139.045, 16.046, 1.546)
pt3dadd(90.46, 139.111, 16.028, 1.562)
pt3dadd(90.362, 139.176, 16.01, 1.576)
pt3dadd(90.264, 139.241, 15.992, 1.592)
pt3dadd(90.165, 139.307, 15.974, 1.606)
pt3dadd(90.067, 139.372, 15.956, 1.62)
pt3dadd(89.976, 139.43, 15.914, 1.638)
pt3dadd(89.887, 139.487, 15.867, 1.656)
pt3dadd(89.797, 139.544, 15.821, 1.674)
pt3dadd(89.707, 139.602, 15.775, 1.692)
pt3dadd(89.618, 139.66, 15.728, 1.71)
pt3dadd(89.528, 139.716, 15.682, 1.728)
pt3dadd(89.438, 139.774, 15.636, 1.746)
pt3dadd(89.349, 139.831, 15.59, 1.764)
pt3dadd(89.259, 139.888, 15.543, 1.782)
pt3dadd(89.169, 139.945, 15.497, 1.8)
pt3dadd(89.075, 140.012, 15.474, 1.778)
pt3dadd(88.98, 140.082, 15.454, 1.748)
pt3dadd(88.885, 140.152, 15.435, 1.72)
pt3dadd(88.79, 140.221, 15.415, 1.69)
pt3dadd(88.695, 140.291, 15.396, 1.662)
pt3dadd(88.6, 140.36, 15.377, 1.632)
pt3dadd(88.505, 140.43, 15.357, 1.604)
pt3dadd(88.41, 140.5, 15.338, 1.574)
pt3dadd(88.315, 140.568, 15.318, 1.544)
pt3dadd(88.22, 140.638, 15.299, 1.516)
pt3dadd(88.116, 140.698, 15.288, 1.512)
pt3dadd(88.012, 140.755, 15.279, 1.51)
pt3dadd(87.907, 140.812, 15.269, 1.51)
pt3dadd(87.802, 140.869, 15.26, 1.51)
pt3dadd(87.697, 140.927, 15.251, 1.508)
pt3dadd(87.593, 140.984, 15.241, 1.508)
pt3dadd(87.488, 141.042, 15.232, 1.506)
pt3dadd(87.383, 141.1, 15.223, 1.506)
pt3dadd(87.279, 141.157, 15.213, 1.504)
pt3dadd(87.174, 141.215, 15.204, 1.504)
pt3dadd(87.062, 141.258, 15.205, 1.534)
pt3dadd(86.95, 141.301, 15.205, 1.566)
pt3dadd(86.838, 141.344, 15.205, 1.596)
pt3dadd(86.726, 141.388, 15.206, 1.626)
pt3dadd(86.614, 141.431, 15.207, 1.656)
pt3dadd(86.502, 141.474, 15.207, 1.686)
pt3dadd(86.39, 141.517, 15.208, 1.716)
pt3dadd(86.278, 141.56, 15.208, 1.748)
pt3dadd(86.166, 141.604, 15.209, 1.778)
pt3dadd(86.054, 141.647, 15.209, 1.808)
}
apic[5] {pt3dclear()
pt3dadd(86.054, 141.647, 15.209, 1.808)
pt3dadd(85.993, 141.664, 15.23, 1.794)
pt3dadd(85.885, 141.695, 15.266, 1.768)
pt3dadd(85.777, 141.725, 15.302, 1.742)
pt3dadd(85.669, 141.755, 15.338, 1.716)
pt3dadd(85.562, 141.786, 15.374, 1.69)
pt3dadd(85.454, 141.816, 15.41, 1.664)
pt3dadd(85.346, 141.847, 15.446, 1.638)
pt3dadd(85.239, 141.877, 15.482, 1.612)
pt3dadd(85.131, 141.907, 15.518, 1.586)
pt3dadd(85.023, 141.938, 15.554, 1.56)
pt3dadd(84.915, 141.968, 15.59, 1.534)
pt3dadd(84.808, 142, 15.626, 1.506)
pt3dadd(84.7, 142.03, 15.662, 1.48)
pt3dadd(84.592, 142.061, 15.698, 1.454)
pt3dadd(84.486, 142.099, 15.728, 1.438)
pt3dadd(84.38, 142.146, 15.755, 1.43)
pt3dadd(84.274, 142.193, 15.781, 1.42)
pt3dadd(84.168, 142.24, 15.808, 1.412)
pt3dadd(84.062, 142.286, 15.834, 1.404)
pt3dadd(83.956, 142.333, 15.86, 1.394)
pt3dadd(83.85, 142.38, 15.887, 1.386)
pt3dadd(83.744, 142.427, 15.913, 1.378)
pt3dadd(83.639, 142.474, 15.94, 1.368)
pt3dadd(83.533, 142.52, 15.966, 1.36)
pt3dadd(83.428, 142.572, 15.99, 1.356)
pt3dadd(83.324, 142.627, 16.011, 1.356)
pt3dadd(83.22, 142.681, 16.032, 1.356)
pt3dadd(83.117, 142.735, 16.054, 1.356)
pt3dadd(83.013, 142.79, 16.075, 1.356)
pt3dadd(82.909, 142.844, 16.096, 1.356)
pt3dadd(82.805, 142.9, 16.118, 1.356)
pt3dadd(82.701, 142.954, 16.139, 1.356)
pt3dadd(82.598, 143.008, 16.16, 1.356)
pt3dadd(82.494, 143.063, 16.181, 1.356)
pt3dadd(82.388, 143.116, 16.197, 1.364)
pt3dadd(82.281, 143.168, 16.208, 1.374)
pt3dadd(82.174, 143.221, 16.22, 1.386)
pt3dadd(82.067, 143.274, 16.231, 1.396)
pt3dadd(81.96, 143.327, 16.243, 1.408)
pt3dadd(81.853, 143.38, 16.254, 1.418)
pt3dadd(81.747, 143.432, 16.266, 1.43)
pt3dadd(81.64, 143.485, 16.277, 1.44)
pt3dadd(81.533, 143.537, 16.289, 1.452)
pt3dadd(81.426, 143.59, 16.3, 1.464)
pt3dadd(81.319, 143.644, 16.31, 1.472)
pt3dadd(81.213, 143.699, 16.319, 1.482)
pt3dadd(81.107, 143.754, 16.328, 1.49)
pt3dadd(81, 143.808, 16.336, 1.5)
pt3dadd(80.894, 143.863, 16.345, 1.508)
pt3dadd(80.788, 143.917, 16.354, 1.516)
pt3dadd(80.682, 143.972, 16.363, 1.526)
pt3dadd(80.575, 144.028, 16.371, 1.534)
pt3dadd(80.469, 144.082, 16.38, 1.544)
pt3dadd(80.363, 144.137, 16.389, 1.552)
pt3dadd(80.263, 144.203, 16.392, 1.54)
pt3dadd(80.168, 144.275, 16.392, 1.518)
pt3dadd(80.072, 144.347, 16.392, 1.494)
pt3dadd(79.976, 144.42, 16.392, 1.47)
pt3dadd(79.88, 144.492, 16.391, 1.448)
pt3dadd(79.784, 144.564, 16.391, 1.424)
pt3dadd(79.688, 144.636, 16.391, 1.402)
pt3dadd(79.593, 144.708, 16.391, 1.378)
pt3dadd(79.497, 144.78, 16.391, 1.356)
pt3dadd(79.401, 144.853, 16.391, 1.332)
pt3dadd(79.306, 144.925, 16.391, 1.308)
pt3dadd(79.211, 145, 16.391, 1.286)
pt3dadd(79.116, 145.073, 16.391, 1.264)
pt3dadd(79.021, 145.146, 16.39, 1.24)
pt3dadd(78.926, 145.219, 16.39, 1.218)
pt3dadd(78.831, 145.294, 16.39, 1.194)
pt3dadd(78.736, 145.367, 16.39, 1.172)
pt3dadd(78.642, 145.44, 16.39, 1.148)
pt3dadd(78.547, 145.513, 16.39, 1.126)
pt3dadd(78.452, 145.588, 16.39, 1.102)
pt3dadd(78.36, 145.664, 16.389, 1.08)
pt3dadd(78.271, 145.745, 16.389, 1.058)
pt3dadd(78.181, 145.824, 16.389, 1.036)
pt3dadd(78.091, 145.903, 16.389, 1.016)
pt3dadd(78.001, 145.984, 16.389, 0.994)
pt3dadd(77.912, 146.063, 16.388, 0.972)
pt3dadd(77.822, 146.143, 16.388, 0.95)
pt3dadd(77.732, 146.222, 16.388, 0.928)
pt3dadd(77.642, 146.302, 16.388, 0.906)
pt3dadd(77.553, 146.382, 16.388, 0.886)
pt3dadd(77.463, 146.461, 16.387, 0.866)
pt3dadd(77.374, 146.542, 16.387, 0.848)
pt3dadd(77.284, 146.622, 16.387, 0.828)
pt3dadd(77.195, 146.702, 16.387, 0.81)
pt3dadd(77.106, 146.782, 16.386, 0.792)
pt3dadd(77.016, 146.862, 16.386, 0.774)
pt3dadd(76.927, 146.942, 16.386, 0.756)
pt3dadd(76.838, 147.023, 16.385, 0.738)
pt3dadd(76.748, 147.102, 16.385, 0.72)
pt3dadd(76.659, 147.182, 16.385, 0.702)
}
}
proc shape3d_4() {
apic[5] { pt3dadd(76.573, 147.265, 16.385, 0.708)
pt3dadd(76.488, 147.35, 16.384, 0.728)
pt3dadd(76.403, 147.436, 16.384, 0.75)
pt3dadd(76.318, 147.521, 16.383, 0.77)
pt3dadd(76.233, 147.605, 16.383, 0.79)
pt3dadd(76.148, 147.69, 16.382, 0.812)
pt3dadd(76.063, 147.775, 16.382, 0.832)
pt3dadd(75.979, 147.859, 16.382, 0.852)
pt3dadd(75.894, 147.944, 16.381, 0.874)
pt3dadd(75.809, 148.03, 16.381, 0.894)
pt3dadd(75.724, 148.115, 16.38, 0.914)
pt3dadd(75.639, 148.199, 16.38, 0.934)
pt3dadd(75.554, 148.284, 16.379, 0.956)
pt3dadd(75.47, 148.369, 16.379, 0.976)
pt3dadd(75.385, 148.453, 16.378, 0.996)
pt3dadd(75.3, 148.538, 16.378, 1.018)
pt3dadd(75.215, 148.624, 16.377, 1.038)
pt3dadd(75.13, 148.709, 16.377, 1.058)
pt3dadd(75.045, 148.793, 16.376, 1.078)
pt3dadd(74.96, 148.878, 16.376, 1.1)
pt3dadd(74.876, 148.963, 16.375, 1.114)
pt3dadd(74.791, 149.047, 16.374, 1.126)
pt3dadd(74.706, 149.132, 16.373, 1.138)
pt3dadd(74.621, 149.218, 16.372, 1.148)
pt3dadd(74.536, 149.303, 16.372, 1.16)
pt3dadd(74.451, 149.387, 16.371, 1.172)
pt3dadd(74.367, 149.472, 16.37, 1.184)
pt3dadd(74.282, 149.557, 16.369, 1.194)
pt3dadd(74.197, 149.641, 16.368, 1.206)
pt3dadd(74.112, 149.726, 16.367, 1.218)
pt3dadd(74.027, 149.812, 16.366, 1.228)
pt3dadd(73.942, 149.896, 16.365, 1.24)
pt3dadd(73.857, 149.981, 16.364, 1.25)
pt3dadd(73.773, 150.066, 16.363, 1.26)
pt3dadd(73.688, 150.151, 16.362, 1.27)
pt3dadd(73.603, 150.235, 16.361, 1.28)
pt3dadd(73.518, 150.32, 16.36, 1.292)
pt3dadd(73.433, 150.406, 16.359, 1.302)
pt3dadd(73.348, 150.49, 16.358, 1.312)
pt3dadd(73.263, 150.575, 16.357, 1.322)
pt3dadd(73.179, 150.66, 16.355, 1.314)
pt3dadd(73.094, 150.745, 16.353, 1.294)
pt3dadd(73.009, 150.829, 16.351, 1.274)
pt3dadd(72.924, 150.914, 16.35, 1.254)
pt3dadd(72.839, 151, 16.348, 1.236)
pt3dadd(72.754, 151.084, 16.346, 1.216)
pt3dadd(72.67, 151.169, 16.344, 1.196)
pt3dadd(72.585, 151.254, 16.343, 1.178)
pt3dadd(72.5, 151.338, 16.341, 1.158)
pt3dadd(72.415, 151.423, 16.339, 1.138)
pt3dadd(72.33, 151.508, 16.337, 1.112)
pt3dadd(72.245, 151.594, 16.335, 1.08)
pt3dadd(72.161, 151.678, 16.333, 1.048)
pt3dadd(72.076, 151.763, 16.331, 1.016)
pt3dadd(71.991, 151.848, 16.329, 0.984)
pt3dadd(71.906, 151.932, 16.327, 0.954)
pt3dadd(71.821, 152.017, 16.325, 0.922)
pt3dadd(71.736, 152.102, 16.323, 0.89)
pt3dadd(71.652, 152.186, 16.32, 0.858)
pt3dadd(71.567, 152.272, 16.318, 0.826)
pt3dadd(71.482, 152.357, 16.315, 0.818)
pt3dadd(71.397, 152.441, 16.311, 0.824)
pt3dadd(71.312, 152.526, 16.307, 0.828)
pt3dadd(71.228, 152.611, 16.303, 0.834)
pt3dadd(71.143, 152.695, 16.299, 0.838)
pt3dadd(71.058, 152.78, 16.295, 0.842)
pt3dadd(70.973, 152.866, 16.292, 0.848)
pt3dadd(70.888, 152.95, 16.288, 0.852)
pt3dadd(70.804, 153.035, 16.284, 0.858)
pt3dadd(70.719, 153.12, 16.28, 0.862)
pt3dadd(70.634, 153.204, 16.275, 0.886)
pt3dadd(70.549, 153.289, 16.27, 0.918)
pt3dadd(70.465, 153.373, 16.264, 0.952)
pt3dadd(70.38, 153.458, 16.259, 0.984)
pt3dadd(70.295, 153.544, 16.254, 1.018)
pt3dadd(70.21, 153.628, 16.248, 1.05)
pt3dadd(70.126, 153.713, 16.243, 1.084)
pt3dadd(70.041, 153.798, 16.238, 1.116)
pt3dadd(69.956, 153.882, 16.232, 1.15)
pt3dadd(69.871, 153.967, 16.227, 1.182)
pt3dadd(69.787, 154.051, 16.22, 1.2)
pt3dadd(69.702, 154.136, 16.213, 1.212)
pt3dadd(69.618, 154.22, 16.206, 1.222)
pt3dadd(69.533, 154.306, 16.198, 1.232)
pt3dadd(69.448, 154.39, 16.191, 1.242)
pt3dadd(69.364, 154.475, 16.184, 1.252)
pt3dadd(69.279, 154.559, 16.176, 1.262)
pt3dadd(69.194, 154.644, 16.169, 1.274)
pt3dadd(69.11, 154.728, 16.162, 1.284)
pt3dadd(69.025, 154.813, 16.154, 1.294)
pt3dadd(68.941, 154.897, 16.146, 1.29)
pt3dadd(68.856, 154.982, 16.136, 1.278)
pt3dadd(68.772, 155.066, 16.127, 1.266)
pt3dadd(68.687, 155.152, 16.118, 1.254)
pt3dadd(68.603, 155.236, 16.108, 1.244)
pt3dadd(68.518, 155.32, 16.099, 1.232)
pt3dadd(68.434, 155.405, 16.09, 1.22)
pt3dadd(68.349, 155.489, 16.08, 1.208)
pt3dadd(68.265, 155.574, 16.071, 1.198)
pt3dadd(68.18, 155.658, 16.062, 1.186)
pt3dadd(68.098, 155.741, 16.04, 1.178)
pt3dadd(68.016, 155.822, 16.012, 1.174)
pt3dadd(67.935, 155.904, 15.984, 1.168)
pt3dadd(67.854, 155.984, 15.956, 1.162)
pt3dadd(67.772, 156.066, 15.928, 1.158)
pt3dadd(67.691, 156.148, 15.9, 1.152)
pt3dadd(67.609, 156.229, 15.872, 1.146)
pt3dadd(67.528, 156.311, 15.844, 1.142)
pt3dadd(67.446, 156.392, 15.816, 1.136)
pt3dadd(67.365, 156.474, 15.788, 1.132)
pt3dadd(67.287, 156.552, 15.749, 1.128)
pt3dadd(67.209, 156.629, 15.708, 1.126)
pt3dadd(67.132, 156.707, 15.667, 1.124)
pt3dadd(67.055, 156.784, 15.626, 1.122)
pt3dadd(66.977, 156.862, 15.585, 1.118)
pt3dadd(66.9, 156.938, 15.544, 1.116)
pt3dadd(66.823, 157.016, 15.502, 1.114)
pt3dadd(66.745, 157.093, 15.461, 1.112)
pt3dadd(66.668, 157.17, 15.42, 1.11)
pt3dadd(66.591, 157.248, 15.379, 1.108)
pt3dadd(66.509, 157.33, 15.354, 1.086)
pt3dadd(66.426, 157.412, 15.331, 1.058)
pt3dadd(66.343, 157.495, 15.308, 1.032)
pt3dadd(66.261, 157.578, 15.286, 1.006)
pt3dadd(66.178, 157.661, 15.263, 0.98)
pt3dadd(66.095, 157.744, 15.241, 0.954)
pt3dadd(66.013, 157.825, 15.218, 0.926)
pt3dadd(65.93, 157.908, 15.196, 0.9)
pt3dadd(65.847, 157.991, 15.173, 0.874)
pt3dadd(65.765, 158.074, 15.15, 0.848)
pt3dadd(65.681, 158.158, 15.132, 0.822)
pt3dadd(65.598, 158.24, 15.115, 0.796)
pt3dadd(65.514, 158.324, 15.097, 0.772)
pt3dadd(65.431, 158.407, 15.08, 0.746)
pt3dadd(65.347, 158.491, 15.062, 0.72)
pt3dadd(65.264, 158.575, 15.045, 0.696)
pt3dadd(65.18, 158.658, 15.028, 0.67)
pt3dadd(65.096, 158.742, 15.01, 0.646)
pt3dadd(65.013, 158.826, 14.993, 0.62)
pt3dadd(64.929, 158.909, 14.975, 0.594)
pt3dadd(64.845, 158.994, 14.965, 0.572)
pt3dadd(64.76, 159.078, 14.957, 0.548)
pt3dadd(64.676, 159.162, 14.948, 0.526)
pt3dadd(64.591, 159.247, 14.939, 0.502)
pt3dadd(64.507, 159.331, 14.93, 0.48)
pt3dadd(64.422, 159.416, 14.921, 0.456)
pt3dadd(64.338, 159.5, 14.912, 0.434)
pt3dadd(64.253, 159.586, 14.904, 0.412)
pt3dadd(64.169, 159.67, 14.895, 0.388)
pt3dadd(64.084, 159.754, 14.886, 0.366)
pt3dadd(63.999, 159.839, 14.88, 0.372)
pt3dadd(63.915, 159.924, 14.875, 0.384)
pt3dadd(63.83, 160.008, 14.87, 0.394)
pt3dadd(63.745, 160.093, 14.865, 0.406)
pt3dadd(63.661, 160.178, 14.859, 0.418)
pt3dadd(63.576, 160.262, 14.854, 0.43)
pt3dadd(63.491, 160.348, 14.849, 0.44)
pt3dadd(63.406, 160.432, 14.844, 0.452)
pt3dadd(63.322, 160.517, 14.839, 0.464)
pt3dadd(63.237, 160.602, 14.833, 0.476)
pt3dadd(63.152, 160.686, 14.833, 0.53)
pt3dadd(63.067, 160.771, 14.833, 0.59)
pt3dadd(62.982, 160.856, 14.833, 0.652)
pt3dadd(62.898, 160.94, 14.833, 0.714)
pt3dadd(62.813, 161.026, 14.833, 0.774)
pt3dadd(62.728, 161.111, 14.833, 0.836)
pt3dadd(62.643, 161.196, 14.833, 0.898)
pt3dadd(62.558, 161.28, 14.833, 0.96)
pt3dadd(62.473, 161.365, 14.833, 1.02)
pt3dadd(62.388, 161.45, 14.833, 1.082)
pt3dadd(62.304, 161.534, 14.833, 1.126)
pt3dadd(62.219, 161.62, 14.833, 1.166)
pt3dadd(62.134, 161.705, 14.833, 1.208)
pt3dadd(62.049, 161.79, 14.833, 1.248)
pt3dadd(61.964, 161.874, 14.833, 1.29)
pt3dadd(61.879, 161.959, 14.833, 1.33)
pt3dadd(61.794, 162.044, 14.833, 1.372)
pt3dadd(61.71, 162.128, 14.833, 1.412)
pt3dadd(61.625, 162.214, 14.833, 1.454)
pt3dadd(61.54, 162.299, 14.833, 1.494)
pt3dadd(61.455, 162.383, 14.833, 1.464)
pt3dadd(61.37, 162.468, 14.833, 1.424)
pt3dadd(61.285, 162.553, 14.833, 1.384)
pt3dadd(61.2, 162.638, 14.833, 1.342)
pt3dadd(61.116, 162.722, 14.833, 1.302)
pt3dadd(61.031, 162.808, 14.833, 1.26)
pt3dadd(60.946, 162.893, 14.833, 1.22)
pt3dadd(60.861, 162.977, 14.833, 1.178)
pt3dadd(60.776, 163.062, 14.833, 1.138)
pt3dadd(60.691, 163.147, 14.833, 1.096)
pt3dadd(60.606, 163.232, 14.833, 1.056)
pt3dadd(60.522, 163.316, 14.833, 1.014)
pt3dadd(60.437, 163.402, 14.833, 0.974)
pt3dadd(60.352, 163.487, 14.833, 0.932)
pt3dadd(60.267, 163.571, 14.833, 0.892)
pt3dadd(60.182, 163.656, 14.833, 0.85)
pt3dadd(60.097, 163.741, 14.833, 0.81)
pt3dadd(60.012, 163.825, 14.833, 0.77)
pt3dadd(59.927, 163.91, 14.833, 0.728)
pt3dadd(59.842, 163.994, 14.833, 0.688)
}
}
proc shape3d_5() {
apic[5] { pt3dadd(59.757, 164.08, 14.833, 0.69)
pt3dadd(59.673, 164.165, 14.833, 0.7)
pt3dadd(59.588, 164.25, 14.833, 0.71)
pt3dadd(59.503, 164.334, 14.833, 0.72)
pt3dadd(59.418, 164.419, 14.833, 0.73)
pt3dadd(59.333, 164.504, 14.833, 0.738)
pt3dadd(59.248, 164.588, 14.833, 0.748)
pt3dadd(59.163, 164.674, 14.833, 0.758)
pt3dadd(59.079, 164.759, 14.833, 0.768)
pt3dadd(58.994, 164.844, 14.833, 0.778)
pt3dadd(58.909, 164.928, 14.833, 0.788)
pt3dadd(58.824, 165.013, 14.833, 0.798)
pt3dadd(58.739, 165.098, 14.833, 0.808)
pt3dadd(58.654, 165.182, 14.833, 0.82)
pt3dadd(58.569, 165.268, 14.833, 0.83)
pt3dadd(58.485, 165.353, 14.833, 0.84)
pt3dadd(58.4, 165.438, 14.833, 0.85)
pt3dadd(58.315, 165.522, 14.833, 0.86)
pt3dadd(58.23, 165.607, 14.833, 0.87)
pt3dadd(58.145, 165.692, 14.833, 0.88)
pt3dadd(58.06, 165.776, 14.833, 0.898)
pt3dadd(57.975, 165.862, 14.833, 0.916)
pt3dadd(57.891, 165.947, 14.833, 0.934)
pt3dadd(57.806, 166.032, 14.833, 0.952)
pt3dadd(57.721, 166.116, 14.833, 0.97)
pt3dadd(57.636, 166.201, 14.833, 0.988)
pt3dadd(57.551, 166.286, 14.833, 1.008)
pt3dadd(57.466, 166.37, 14.833, 1.026)
pt3dadd(57.381, 166.456, 14.833, 1.044)
pt3dadd(57.297, 166.541, 14.833, 1.062)
pt3dadd(57.212, 166.626, 14.833, 1.082)
pt3dadd(57.127, 166.71, 14.833, 1.102)
pt3dadd(57.042, 166.795, 14.833, 1.124)
pt3dadd(56.957, 166.88, 14.833, 1.144)
pt3dadd(56.872, 166.964, 14.833, 1.164)
pt3dadd(56.787, 167.05, 14.833, 1.184)
pt3dadd(56.703, 167.135, 14.833, 1.206)
pt3dadd(56.618, 167.219, 14.833, 1.226)
pt3dadd(56.533, 167.304, 14.833, 1.246)
pt3dadd(56.448, 167.389, 14.833, 1.266)
pt3dadd(56.363, 167.474, 14.833, 1.288)
pt3dadd(56.278, 167.558, 14.833, 1.308)
pt3dadd(56.193, 167.644, 14.833, 1.328)
pt3dadd(56.108, 167.728, 14.833, 1.348)
pt3dadd(56.023, 167.813, 14.833, 1.37)
pt3dadd(55.938, 167.898, 14.833, 1.39)
pt3dadd(55.853, 167.982, 14.833, 1.41)
pt3dadd(55.768, 168.067, 14.833, 1.43)
pt3dadd(55.683, 168.151, 14.833, 1.45)
pt3dadd(55.598, 168.236, 14.833, 1.472)
pt3dadd(55.513, 168.322, 14.833, 1.492)
pt3dadd(55.429, 168.406, 14.833, 1.512)
pt3dadd(55.344, 168.491, 14.833, 1.532)
pt3dadd(55.259, 168.576, 14.833, 1.554)
pt3dadd(55.174, 168.66, 14.833, 1.574)
pt3dadd(55.089, 168.745, 14.833, 1.594)
pt3dadd(55.004, 168.83, 14.833, 1.614)
pt3dadd(54.919, 168.914, 14.833, 1.636)
pt3dadd(54.834, 169, 14.833, 1.656)
pt3dadd(54.749, 169.085, 14.833, 1.676)
pt3dadd(54.664, 169.169, 14.833, 1.694)
pt3dadd(54.579, 169.254, 14.833, 1.71)
pt3dadd(54.494, 169.338, 14.833, 1.726)
pt3dadd(54.409, 169.423, 14.833, 1.744)
pt3dadd(54.324, 169.508, 14.833, 1.76)
pt3dadd(54.239, 169.592, 14.833, 1.776)
pt3dadd(54.154, 169.678, 14.833, 1.794)
pt3dadd(54.069, 169.763, 14.833, 1.81)
pt3dadd(53.985, 169.847, 14.833, 1.826)
pt3dadd(53.9, 169.932, 14.833, 1.844)
pt3dadd(53.815, 170.016, 14.833, 1.854)
pt3dadd(53.73, 170.101, 14.833, 1.864)
pt3dadd(53.645, 170.186, 14.833, 1.876)
pt3dadd(53.56, 170.27, 14.833, 1.886)
pt3dadd(53.475, 170.356, 14.833, 1.896)
pt3dadd(53.39, 170.44, 14.832, 1.906)
pt3dadd(53.305, 170.525, 14.832, 1.916)
pt3dadd(53.22, 170.61, 14.832, 1.926)
pt3dadd(53.135, 170.694, 14.832, 1.936)
pt3dadd(53.05, 170.779, 14.832, 1.946)
pt3dadd(52.965, 170.863, 14.832, 1.948)
pt3dadd(52.88, 170.948, 14.832, 1.948)
pt3dadd(52.794, 171.032, 14.832, 1.948)
pt3dadd(52.709, 171.118, 14.832, 1.948)
pt3dadd(52.624, 171.202, 14.832, 1.948)
pt3dadd(52.539, 171.287, 14.832, 1.948)
pt3dadd(52.454, 171.371, 14.832, 1.948)
pt3dadd(52.369, 171.456, 14.832, 1.948)
pt3dadd(52.284, 171.54, 14.832, 1.948)
pt3dadd(52.199, 171.625, 14.832, 1.948)
pt3dadd(52.114, 171.709, 14.832, 1.904)
pt3dadd(52.029, 171.794, 14.832, 1.852)
pt3dadd(51.943, 171.878, 14.832, 1.8)
pt3dadd(51.858, 171.964, 14.832, 1.75)
pt3dadd(51.773, 172.048, 14.832, 1.698)
pt3dadd(51.688, 172.132, 14.832, 1.646)
pt3dadd(51.602, 172.217, 14.832, 1.596)
pt3dadd(51.517, 172.301, 14.832, 1.544)
pt3dadd(51.432, 172.386, 14.832, 1.492)
pt3dadd(51.347, 172.47, 14.832, 1.442)
pt3dadd(51.262, 172.555, 14.832, 1.39)
pt3dadd(51.177, 172.639, 14.832, 1.338)
pt3dadd(51.091, 172.723, 14.832, 1.288)
pt3dadd(51.006, 172.808, 14.832, 1.236)
pt3dadd(50.921, 172.892, 14.832, 1.184)
pt3dadd(50.836, 172.978, 14.832, 1.132)
pt3dadd(50.751, 173.062, 14.832, 1.082)
pt3dadd(50.666, 173.147, 14.832, 1.03)
pt3dadd(50.58, 173.231, 14.832, 0.98)
pt3dadd(50.495, 173.316, 14.832, 0.928)
pt3dadd(50.41, 173.4, 14.832, 0.91)
pt3dadd(50.324, 173.484, 14.832, 0.898)
pt3dadd(50.239, 173.568, 14.832, 0.886)
pt3dadd(50.153, 173.652, 14.832, 0.876)
pt3dadd(50.067, 173.736, 14.832, 0.864)
pt3dadd(49.982, 173.82, 14.832, 0.852)
pt3dadd(49.896, 173.905, 14.832, 0.84)
pt3dadd(49.811, 173.989, 14.832, 0.828)
pt3dadd(49.725, 174.073, 14.832, 0.818)
pt3dadd(49.64, 174.157, 14.832, 0.806)
pt3dadd(49.554, 174.241, 14.832, 0.796)
pt3dadd(49.468, 174.325, 14.832, 0.784)
pt3dadd(49.383, 174.409, 14.832, 0.774)
pt3dadd(49.297, 174.493, 14.832, 0.764)
pt3dadd(49.212, 174.577, 14.832, 0.754)
pt3dadd(49.126, 174.661, 14.832, 0.744)
pt3dadd(49.041, 174.746, 14.832, 0.734)
pt3dadd(48.955, 174.83, 14.832, 0.722)
pt3dadd(48.87, 174.914, 14.832, 0.712)
pt3dadd(48.784, 174.998, 14.832, 0.702)
pt3dadd(48.698, 175.081, 14.832, 0.698)
pt3dadd(48.612, 175.165, 14.832, 0.696)
pt3dadd(48.525, 175.248, 14.832, 0.694)
pt3dadd(48.439, 175.332, 14.832, 0.692)
pt3dadd(48.353, 175.415, 14.832, 0.69)
pt3dadd(48.266, 175.499, 14.832, 0.688)
pt3dadd(48.18, 175.582, 14.832, 0.686)
pt3dadd(48.094, 175.666, 14.832, 0.682)
pt3dadd(48.007, 175.748, 14.832, 0.68)
pt3dadd(47.921, 175.832, 14.832, 0.678)
pt3dadd(47.835, 175.915, 14.832, 0.678)
pt3dadd(47.749, 175.999, 14.832, 0.678)
pt3dadd(47.662, 176.082, 14.832, 0.678)
pt3dadd(47.576, 176.166, 14.832, 0.678)
pt3dadd(47.49, 176.249, 14.832, 0.678)
pt3dadd(47.403, 176.333, 14.832, 0.678)
pt3dadd(47.317, 176.416, 14.832, 0.678)
pt3dadd(47.231, 176.5, 14.832, 0.678)
pt3dadd(47.144, 176.582, 14.832, 0.678)
pt3dadd(47.058, 176.665, 14.832, 0.678)
pt3dadd(46.97, 176.748, 14.832, 0.684)
pt3dadd(46.883, 176.83, 14.832, 0.69)
pt3dadd(46.795, 176.911, 14.832, 0.696)
pt3dadd(46.707, 176.994, 14.832, 0.704)
pt3dadd(46.62, 177.076, 14.832, 0.71)
pt3dadd(46.532, 177.157, 14.832, 0.716)
pt3dadd(46.444, 177.24, 14.832, 0.722)
pt3dadd(46.357, 177.322, 14.832, 0.73)
pt3dadd(46.269, 177.403, 14.832, 0.736)
pt3dadd(46.181, 177.485, 14.832, 0.742)
pt3dadd(46.093, 177.566, 14.832, 0.752)
pt3dadd(46.004, 177.647, 14.831, 0.764)
pt3dadd(45.915, 177.728, 14.831, 0.774)
pt3dadd(45.827, 177.809, 14.831, 0.784)
pt3dadd(45.738, 177.889, 14.831, 0.796)
pt3dadd(45.649, 177.971, 14.831, 0.806)
pt3dadd(45.561, 178.051, 14.831, 0.816)
pt3dadd(45.472, 178.133, 14.831, 0.828)
pt3dadd(45.383, 178.213, 14.831, 0.838)
pt3dadd(45.295, 178.294, 14.831, 0.848)
pt3dadd(45.205, 178.374, 14.831, 0.86)
pt3dadd(45.115, 178.453, 14.831, 0.87)
pt3dadd(45.025, 178.532, 14.831, 0.882)
pt3dadd(44.935, 178.612, 14.831, 0.892)
pt3dadd(44.845, 178.692, 14.831, 0.904)
pt3dadd(44.755, 178.771, 14.831, 0.914)
pt3dadd(44.665, 178.85, 14.83, 0.924)
pt3dadd(44.576, 178.93, 14.83, 0.936)
pt3dadd(44.486, 179.01, 14.83, 0.946)
pt3dadd(44.396, 179.089, 14.83, 0.958)
pt3dadd(44.304, 179.167, 14.83, 0.968)
pt3dadd(44.213, 179.245, 14.83, 0.98)
pt3dadd(44.122, 179.322, 14.83, 0.99)
pt3dadd(44.03, 179.4, 14.83, 1.002)
pt3dadd(43.939, 179.478, 14.83, 1.012)
pt3dadd(43.847, 179.556, 14.83, 1.024)
pt3dadd(43.756, 179.633, 14.83, 1.034)
pt3dadd(43.665, 179.711, 14.829, 1.046)
pt3dadd(43.573, 179.789, 14.829, 1.056)
pt3dadd(43.482, 179.867, 14.829, 1.068)
pt3dadd(43.384, 179.936, 14.829, 1.074)
pt3dadd(43.285, 180.005, 14.829, 1.08)
pt3dadd(43.187, 180.072, 14.829, 1.086)
pt3dadd(43.088, 180.14, 14.829, 1.092)
pt3dadd(42.989, 180.209, 14.828, 1.098)
pt3dadd(42.89, 180.277, 14.828, 1.106)
pt3dadd(42.792, 180.346, 14.828, 1.112)
pt3dadd(42.693, 180.414, 14.828, 1.118)
pt3dadd(42.594, 180.481, 14.828, 1.124)
pt3dadd(42.495, 180.55, 14.827, 1.13)
}
}
proc shape3d_6() {
apic[5] { pt3dadd(42.39, 180.606, 14.827, 1.13)
pt3dadd(42.283, 180.661, 14.827, 1.13)
pt3dadd(42.177, 180.716, 14.827, 1.13)
pt3dadd(42.07, 180.773, 14.826, 1.13)
pt3dadd(41.964, 180.828, 14.826, 1.13)
pt3dadd(41.857, 180.883, 14.826, 1.13)
pt3dadd(41.751, 180.938, 14.826, 1.13)
pt3dadd(41.644, 180.994, 14.825, 1.13)
pt3dadd(41.538, 181.049, 14.825, 1.13)
pt3dadd(41.431, 181.104, 14.825, 1.13)
pt3dadd(41.328, 181.165, 14.824, 1.114)
pt3dadd(41.224, 181.225, 14.824, 1.098)
pt3dadd(41.121, 181.286, 14.823, 1.08)
pt3dadd(41.017, 181.348, 14.823, 1.062)
pt3dadd(40.914, 181.409, 14.823, 1.046)
pt3dadd(40.811, 181.469, 14.822, 1.028)
pt3dadd(40.707, 181.53, 14.822, 1.01)
pt3dadd(40.604, 181.591, 14.821, 0.994)
pt3dadd(40.5, 181.652, 14.821, 0.976)
pt3dadd(40.397, 181.712, 14.82, 0.96)
pt3dadd(40.295, 181.776, 14.82, 0.934)
pt3dadd(40.193, 181.838, 14.819, 0.91)
pt3dadd(40.091, 181.902, 14.819, 0.886)
pt3dadd(39.989, 181.966, 14.818, 0.86)
pt3dadd(39.887, 182.028, 14.818, 0.836)
pt3dadd(39.785, 182.092, 14.817, 0.812)
pt3dadd(39.682, 182.154, 14.816, 0.786)
pt3dadd(39.58, 182.218, 14.816, 0.762)
pt3dadd(39.478, 182.28, 14.815, 0.736)
pt3dadd(39.376, 182.344, 14.815, 0.712)
pt3dadd(39.268, 182.395, 14.814, 0.708)
pt3dadd(39.159, 182.447, 14.813, 0.704)
pt3dadd(39.051, 182.497, 14.811, 0.7)
pt3dadd(38.942, 182.549, 14.81, 0.698)
pt3dadd(38.834, 182.599, 14.809, 0.694)
pt3dadd(38.725, 182.651, 14.808, 0.692)
pt3dadd(38.616, 182.701, 14.806, 0.688)
pt3dadd(38.508, 182.752, 14.805, 0.684)
pt3dadd(38.399, 182.803, 14.804, 0.682)
pt3dadd(38.29, 182.854, 14.803, 0.678)
pt3dadd(38.182, 182.906, 14.801, 0.684)
pt3dadd(38.074, 182.959, 14.8, 0.692)
pt3dadd(37.967, 183.011, 14.798, 0.698)
pt3dadd(37.859, 183.064, 14.797, 0.704)
pt3dadd(37.751, 183.116, 14.795, 0.712)
pt3dadd(37.643, 183.168, 14.794, 0.718)
pt3dadd(37.535, 183.221, 14.792, 0.726)
pt3dadd(37.427, 183.274, 14.791, 0.732)
pt3dadd(37.319, 183.325, 14.789, 0.74)
pt3dadd(37.211, 183.378, 14.788, 0.746)
pt3dadd(37.111, 183.444, 14.785, 0.782)
pt3dadd(37.011, 183.51, 14.783, 0.82)
pt3dadd(36.911, 183.577, 14.78, 0.856)
pt3dadd(36.811, 183.643, 14.778, 0.894)
pt3dadd(36.711, 183.709, 14.775, 0.93)
pt3dadd(36.612, 183.776, 14.773, 0.968)
pt3dadd(36.512, 183.842, 14.771, 1.006)
pt3dadd(36.412, 183.91, 14.768, 1.042)
pt3dadd(36.312, 183.976, 14.766, 1.08)
pt3dadd(36.212, 184.043, 14.763, 1.116)
pt3dadd(36.113, 184.11, 14.759, 1.136)
pt3dadd(36.015, 184.178, 14.756, 1.156)
pt3dadd(35.916, 184.247, 14.752, 1.176)
pt3dadd(35.817, 184.314, 14.748, 1.194)
pt3dadd(35.718, 184.382, 14.744, 1.214)
pt3dadd(35.62, 184.451, 14.741, 1.234)
pt3dadd(35.521, 184.519, 14.737, 1.252)
pt3dadd(35.422, 184.586, 14.733, 1.272)
pt3dadd(35.324, 184.655, 14.729, 1.29)
pt3dadd(35.225, 184.723, 14.726, 1.31)
pt3dadd(35.128, 184.794, 14.72, 1.298)
pt3dadd(35.032, 184.865, 14.713, 1.286)
pt3dadd(34.936, 184.936, 14.707, 1.274)
pt3dadd(34.839, 185.008, 14.701, 1.262)
pt3dadd(34.743, 185.078, 14.695, 1.248)
pt3dadd(34.646, 185.149, 14.689, 1.236)
pt3dadd(34.55, 185.22, 14.683, 1.224)
pt3dadd(34.454, 185.292, 14.677, 1.212)
pt3dadd(34.357, 185.363, 14.671, 1.198)
pt3dadd(34.261, 185.434, 14.665, 1.186)
pt3dadd(34.159, 185.496, 14.656, 1.204)
pt3dadd(34.056, 185.557, 14.646, 1.222)
pt3dadd(33.954, 185.62, 14.637, 1.242)
pt3dadd(33.852, 185.681, 14.628, 1.26)
pt3dadd(33.749, 185.743, 14.619, 1.278)
pt3dadd(33.647, 185.804, 14.609, 1.298)
pt3dadd(33.545, 185.866, 14.6, 1.316)
pt3dadd(33.443, 185.928, 14.591, 1.334)
pt3dadd(33.34, 185.989, 14.582, 1.354)
pt3dadd(33.238, 186.052, 14.573, 1.372)
pt3dadd(33.132, 186.106, 14.561, 1.416)
pt3dadd(33.025, 186.16, 14.549, 1.46)
pt3dadd(32.919, 186.214, 14.538, 1.502)
pt3dadd(32.813, 186.268, 14.526, 1.546)
pt3dadd(32.707, 186.322, 14.514, 1.59)
pt3dadd(32.601, 186.376, 14.502, 1.634)
pt3dadd(32.494, 186.43, 14.491, 1.678)
pt3dadd(32.388, 186.484, 14.479, 1.72)
pt3dadd(32.282, 186.538, 14.467, 1.764)
pt3dadd(32.176, 186.592, 14.456, 1.808)
}
apic[6] {pt3dclear()
pt3dadd(32.176, 186.592, 14.456, 1.808)
pt3dadd(32.116, 186.618, 14.422, 1.784)
}
dend_5 {pt3dclear()
pt3dadd(32.116, 186.618, 14.422, 1.784)
pt3dadd(32.022, 186.66, 14.37, 1.746)
pt3dadd(31.929, 186.702, 14.318, 1.708)
pt3dadd(31.836, 186.744, 14.266, 1.67)
pt3dadd(31.742, 186.786, 14.214, 1.632)
pt3dadd(31.649, 186.828, 14.161, 1.596)
pt3dadd(31.555, 186.87, 14.109, 1.558)
pt3dadd(31.462, 186.912, 14.057, 1.52)
pt3dadd(31.366, 186.964, 14.015, 1.504)
pt3dadd(31.27, 187.019, 13.978, 1.498)
pt3dadd(31.174, 187.074, 13.941, 1.492)
pt3dadd(31.077, 187.13, 13.903, 1.486)
pt3dadd(30.981, 187.186, 13.866, 1.48)
pt3dadd(30.884, 187.242, 13.828, 1.474)
pt3dadd(30.788, 187.297, 13.791, 1.468)
pt3dadd(30.692, 187.352, 13.754, 1.462)
pt3dadd(30.595, 187.409, 13.716, 1.456)
pt3dadd(30.499, 187.464, 13.679, 1.45)
pt3dadd(30.401, 187.525, 13.652, 1.46)
pt3dadd(30.303, 187.588, 13.628, 1.472)
pt3dadd(30.204, 187.65, 13.604, 1.486)
pt3dadd(30.106, 187.712, 13.579, 1.5)
pt3dadd(30.008, 187.775, 13.555, 1.514)
pt3dadd(29.91, 187.837, 13.53, 1.526)
pt3dadd(29.812, 187.9, 13.506, 1.54)
pt3dadd(29.713, 187.962, 13.481, 1.554)
pt3dadd(29.615, 188.024, 13.457, 1.566)
pt3dadd(29.517, 188.087, 13.433, 1.58)
pt3dadd(29.411, 188.14, 13.419, 1.582)
pt3dadd(29.303, 188.191, 13.408, 1.582)
pt3dadd(29.195, 188.242, 13.397, 1.582)
pt3dadd(29.088, 188.293, 13.385, 1.582)
pt3dadd(28.98, 188.345, 13.374, 1.582)
pt3dadd(28.872, 188.395, 13.363, 1.582)
pt3dadd(28.764, 188.447, 13.351, 1.582)
pt3dadd(28.657, 188.498, 13.34, 1.582)
pt3dadd(28.549, 188.549, 13.329, 1.582)
pt3dadd(28.441, 188.6, 13.317, 1.582)
pt3dadd(28.337, 188.659, 13.312, 1.544)
pt3dadd(28.233, 188.719, 13.307, 1.498)
pt3dadd(28.129, 188.779, 13.303, 1.452)
pt3dadd(28.026, 188.839, 13.298, 1.406)
pt3dadd(27.922, 188.899, 13.294, 1.36)
pt3dadd(27.818, 188.959, 13.29, 1.316)
pt3dadd(27.714, 189.018, 13.285, 1.27)
pt3dadd(27.61, 189.078, 13.281, 1.224)
pt3dadd(27.507, 189.138, 13.276, 1.178)
pt3dadd(27.403, 189.198, 13.272, 1.134)
pt3dadd(27.302, 189.263, 13.271, 1.062)
pt3dadd(27.201, 189.329, 13.271, 0.988)
pt3dadd(27.101, 189.394, 13.271, 0.914)
pt3dadd(27, 189.46, 13.271, 0.838)
pt3dadd(26.899, 189.524, 13.271, 0.764)
pt3dadd(26.799, 189.59, 13.271, 0.69)
pt3dadd(26.698, 189.655, 13.271, 0.616)
pt3dadd(26.597, 189.721, 13.271, 0.542)
pt3dadd(26.497, 189.786, 13.271, 0.466)
pt3dadd(26.396, 189.852, 13.271, 0.392)
pt3dadd(26.291, 189.91, 13.271, 0.388)
pt3dadd(26.185, 189.966, 13.271, 0.394)
pt3dadd(26.079, 190.022, 13.271, 0.4)
pt3dadd(25.974, 190.08, 13.271, 0.404)
pt3dadd(25.868, 190.136, 13.271, 0.41)
pt3dadd(25.762, 190.193, 13.271, 0.416)
pt3dadd(25.656, 190.249, 13.271, 0.422)
pt3dadd(25.551, 190.307, 13.271, 0.426)
pt3dadd(25.445, 190.363, 13.271, 0.432)
pt3dadd(25.339, 190.42, 13.271, 0.438)
pt3dadd(25.234, 190.477, 13.271, 0.462)
pt3dadd(25.128, 190.534, 13.271, 0.49)
pt3dadd(25.022, 190.591, 13.271, 0.516)
pt3dadd(24.917, 190.648, 13.271, 0.542)
pt3dadd(24.811, 190.705, 13.271, 0.57)
pt3dadd(24.706, 190.762, 13.271, 0.596)
pt3dadd(24.6, 190.819, 13.271, 0.622)
pt3dadd(24.494, 190.876, 13.271, 0.65)
pt3dadd(24.389, 190.933, 13.271, 0.676)
pt3dadd(24.283, 190.99, 13.271, 0.704)
pt3dadd(24.19, 191.065, 13.271, 0.728)
pt3dadd(24.098, 191.142, 13.271, 0.752)
pt3dadd(24.005, 191.219, 13.271, 0.778)
pt3dadd(23.913, 191.296, 13.271, 0.802)
pt3dadd(23.821, 191.371, 13.271, 0.826)
pt3dadd(23.728, 191.448, 13.271, 0.852)
pt3dadd(23.636, 191.525, 13.271, 0.876)
pt3dadd(23.544, 191.602, 13.271, 0.902)
pt3dadd(23.451, 191.678, 13.271, 0.926)
pt3dadd(23.359, 191.755, 13.271, 0.95)
pt3dadd(23.27, 191.834, 13.271, 0.978)
pt3dadd(23.18, 191.915, 13.271, 1.006)
pt3dadd(23.091, 191.995, 13.271, 1.034)
pt3dadd(23.001, 192.076, 13.271, 1.062)
pt3dadd(22.912, 192.155, 13.271, 1.09)
pt3dadd(22.823, 192.235, 13.271, 1.118)
pt3dadd(22.733, 192.316, 13.271, 1.146)
pt3dadd(22.644, 192.395, 13.271, 1.174)
pt3dadd(22.554, 192.475, 13.271, 1.202)
pt3dadd(22.465, 192.556, 13.271, 1.23)
}
}
proc shape3d_7() {
dend_5 { pt3dadd(22.383, 192.643, 13.271, 1.266)
pt3dadd(22.302, 192.731, 13.271, 1.302)
pt3dadd(22.22, 192.82, 13.271, 1.338)
pt3dadd(22.139, 192.907, 13.271, 1.374)
pt3dadd(22.058, 192.996, 13.271, 1.41)
pt3dadd(21.976, 193.084, 13.272, 1.448)
pt3dadd(21.895, 193.172, 13.272, 1.484)
pt3dadd(21.813, 193.26, 13.272, 1.52)
pt3dadd(21.732, 193.349, 13.272, 1.556)
pt3dadd(21.651, 193.436, 13.272, 1.592)
pt3dadd(21.58, 193.534, 13.272, 1.6)
pt3dadd(21.509, 193.631, 13.272, 1.604)
pt3dadd(21.439, 193.728, 13.272, 1.61)
pt3dadd(21.368, 193.825, 13.272, 1.614)
pt3dadd(21.298, 193.922, 13.272, 1.62)
pt3dadd(21.227, 194.02, 13.272, 1.624)
pt3dadd(21.157, 194.117, 13.272, 1.63)
pt3dadd(21.086, 194.213, 13.272, 1.636)
pt3dadd(21.016, 194.31, 13.272, 1.64)
pt3dadd(20.946, 194.408, 13.272, 1.644)
pt3dadd(20.893, 194.515, 13.272, 1.604)
pt3dadd(20.84, 194.623, 13.272, 1.564)
pt3dadd(20.787, 194.731, 13.272, 1.524)
pt3dadd(20.734, 194.838, 13.272, 1.484)
pt3dadd(20.681, 194.946, 13.272, 1.444)
pt3dadd(20.627, 195.054, 13.272, 1.406)
pt3dadd(20.574, 195.161, 13.272, 1.366)
pt3dadd(20.521, 195.269, 13.272, 1.326)
pt3dadd(20.468, 195.377, 13.272, 1.286)
pt3dadd(20.415, 195.484, 13.272, 1.248)
pt3dadd(20.37, 195.595, 13.272, 1.256)
pt3dadd(20.325, 195.707, 13.272, 1.264)
pt3dadd(20.281, 195.818, 13.272, 1.272)
pt3dadd(20.236, 195.929, 13.272, 1.28)
pt3dadd(20.191, 196.04, 13.272, 1.288)
pt3dadd(20.146, 196.152, 13.272, 1.296)
pt3dadd(20.101, 196.264, 13.272, 1.304)
pt3dadd(20.056, 196.374, 13.272, 1.314)
pt3dadd(20.012, 196.486, 13.273, 1.322)
pt3dadd(19.967, 196.597, 13.273, 1.33)
pt3dadd(19.922, 196.709, 13.273, 1.358)
pt3dadd(19.878, 196.82, 13.273, 1.384)
pt3dadd(19.833, 196.932, 13.273, 1.41)
pt3dadd(19.789, 197.044, 13.273, 1.438)
pt3dadd(19.745, 197.154, 13.273, 1.464)
pt3dadd(19.7, 197.266, 13.273, 1.49)
pt3dadd(19.656, 197.377, 13.273, 1.518)
pt3dadd(19.611, 197.489, 13.273, 1.544)
pt3dadd(19.567, 197.6, 13.273, 1.572)
pt3dadd(19.52, 197.711, 13.273, 1.596)
pt3dadd(19.451, 197.809, 13.273, 1.61)
pt3dadd(19.382, 197.906, 13.274, 1.622)
pt3dadd(19.313, 198.005, 13.274, 1.636)
pt3dadd(19.244, 198.103, 13.274, 1.648)
pt3dadd(19.174, 198.2, 13.274, 1.662)
pt3dadd(19.105, 198.299, 13.274, 1.674)
pt3dadd(19.036, 198.397, 13.274, 1.688)
pt3dadd(18.967, 198.494, 13.274, 1.7)
pt3dadd(18.897, 198.593, 13.274, 1.714)
pt3dadd(18.828, 198.69, 13.274, 1.726)
pt3dadd(18.751, 198.784, 13.275, 1.726)
pt3dadd(18.675, 198.876, 13.275, 1.724)
pt3dadd(18.598, 198.968, 13.275, 1.724)
pt3dadd(18.522, 199.061, 13.275, 1.724)
pt3dadd(18.445, 199.153, 13.275, 1.724)
pt3dadd(18.369, 199.246, 13.276, 1.722)
pt3dadd(18.292, 199.338, 13.276, 1.722)
pt3dadd(18.216, 199.43, 13.276, 1.722)
pt3dadd(18.14, 199.523, 13.276, 1.72)
pt3dadd(18.062, 199.614, 13.276, 1.716)
pt3dadd(17.974, 199.697, 13.276, 1.694)
pt3dadd(17.887, 199.778, 13.277, 1.67)
pt3dadd(17.799, 199.861, 13.277, 1.646)
pt3dadd(17.712, 199.943, 13.277, 1.622)
pt3dadd(17.624, 200.024, 13.277, 1.598)
pt3dadd(17.537, 200.107, 13.278, 1.574)
pt3dadd(17.449, 200.189, 13.278, 1.55)
pt3dadd(17.362, 200.272, 13.278, 1.528)
pt3dadd(17.275, 200.353, 13.278, 1.504)
pt3dadd(17.186, 200.434, 13.279, 1.48)
pt3dadd(17.088, 200.503, 13.279, 1.454)
pt3dadd(16.99, 200.573, 13.28, 1.43)
pt3dadd(16.892, 200.641, 13.28, 1.404)
pt3dadd(16.794, 200.711, 13.28, 1.38)
pt3dadd(16.695, 200.78, 13.281, 1.354)
pt3dadd(16.597, 200.849, 13.281, 1.328)
pt3dadd(16.499, 200.918, 13.281, 1.304)
pt3dadd(16.401, 200.988, 13.282, 1.278)
pt3dadd(16.303, 201.056, 13.282, 1.254)
pt3dadd(16.203, 201.122, 13.283, 1.228)
pt3dadd(16.095, 201.174, 13.283, 1.202)
pt3dadd(15.987, 201.227, 13.284, 1.176)
pt3dadd(15.879, 201.28, 13.284, 1.15)
pt3dadd(15.771, 201.332, 13.285, 1.124)
pt3dadd(15.664, 201.385, 13.286, 1.098)
pt3dadd(15.556, 201.438, 13.286, 1.072)
pt3dadd(15.448, 201.491, 13.287, 1.046)
pt3dadd(15.34, 201.544, 13.287, 1.02)
pt3dadd(15.232, 201.595, 13.288, 0.994)
pt3dadd(15.125, 201.649, 13.288, 0.978)
pt3dadd(15.019, 201.706, 13.29, 0.988)
pt3dadd(14.913, 201.761, 13.291, 1)
pt3dadd(14.806, 201.817, 13.292, 1.012)
pt3dadd(14.7, 201.872, 13.293, 1.024)
pt3dadd(14.594, 201.929, 13.294, 1.034)
pt3dadd(14.488, 201.984, 13.295, 1.046)
pt3dadd(14.382, 202.04, 13.296, 1.058)
pt3dadd(14.275, 202.096, 13.297, 1.07)
pt3dadd(14.169, 202.152, 13.298, 1.08)
pt3dadd(14.063, 202.208, 13.299, 1.096)
pt3dadd(13.958, 202.265, 13.301, 1.12)
pt3dadd(13.852, 202.322, 13.302, 1.146)
pt3dadd(13.746, 202.379, 13.303, 1.172)
pt3dadd(13.641, 202.436, 13.304, 1.198)
pt3dadd(13.535, 202.494, 13.305, 1.222)
pt3dadd(13.43, 202.55, 13.307, 1.248)
pt3dadd(13.324, 202.608, 13.308, 1.274)
pt3dadd(13.219, 202.664, 13.309, 1.3)
pt3dadd(13.113, 202.722, 13.31, 1.324)
pt3dadd(13.006, 202.774, 13.312, 1.344)
pt3dadd(12.892, 202.812, 13.315, 1.346)
pt3dadd(12.778, 202.849, 13.317, 1.346)
pt3dadd(12.664, 202.886, 13.32, 1.348)
pt3dadd(12.549, 202.924, 13.323, 1.35)
pt3dadd(12.435, 202.961, 13.325, 1.35)
pt3dadd(12.321, 202.998, 13.328, 1.352)
pt3dadd(12.207, 203.035, 13.331, 1.352)
pt3dadd(12.093, 203.072, 13.333, 1.354)
pt3dadd(11.979, 203.11, 13.336, 1.356)
pt3dadd(11.865, 203.146, 13.339, 1.358)
pt3dadd(11.75, 203.179, 13.343, 1.368)
pt3dadd(11.635, 203.213, 13.347, 1.376)
pt3dadd(11.52, 203.245, 13.351, 1.384)
pt3dadd(11.404, 203.279, 13.355, 1.394)
pt3dadd(11.289, 203.312, 13.359, 1.402)
pt3dadd(11.174, 203.345, 13.363, 1.412)
pt3dadd(11.059, 203.378, 13.367, 1.42)
pt3dadd(10.944, 203.412, 13.371, 1.43)
pt3dadd(10.828, 203.446, 13.375, 1.438)
pt3dadd(10.713, 203.477, 13.38, 1.452)
pt3dadd(10.596, 203.503, 13.387, 1.48)
pt3dadd(10.479, 203.53, 13.394, 1.508)
pt3dadd(10.363, 203.556, 13.401, 1.536)
pt3dadd(10.246, 203.584, 13.407, 1.564)
pt3dadd(10.129, 203.61, 13.414, 1.592)
pt3dadd(10.012, 203.636, 13.421, 1.62)
pt3dadd(9.896, 203.663, 13.428, 1.65)
pt3dadd(9.779, 203.689, 13.435, 1.678)
pt3dadd(9.662, 203.717, 13.442, 1.706)
pt3dadd(9.547, 203.747, 13.449, 1.724)
pt3dadd(9.434, 203.785, 13.459, 1.712)
pt3dadd(9.321, 203.825, 13.469, 1.702)
pt3dadd(9.208, 203.864, 13.478, 1.69)
pt3dadd(9.095, 203.903, 13.488, 1.68)
pt3dadd(8.982, 203.942, 13.497, 1.67)
pt3dadd(8.87, 203.982, 13.507, 1.658)
pt3dadd(8.757, 204.02, 13.517, 1.648)
pt3dadd(8.644, 204.06, 13.526, 1.636)
pt3dadd(8.531, 204.1, 13.536, 1.626)
pt3dadd(8.419, 204.139, 13.546, 1.61)
pt3dadd(8.308, 204.184, 13.557, 1.584)
pt3dadd(8.197, 204.228, 13.569, 1.556)
pt3dadd(8.087, 204.272, 13.58, 1.528)
pt3dadd(7.976, 204.316, 13.591, 1.502)
pt3dadd(7.865, 204.36, 13.602, 1.474)
pt3dadd(7.754, 204.404, 13.613, 1.448)
pt3dadd(7.643, 204.449, 13.625, 1.42)
pt3dadd(7.533, 204.492, 13.636, 1.392)
pt3dadd(7.422, 204.536, 13.647, 1.366)
pt3dadd(7.312, 204.576, 13.666, 1.33)
pt3dadd(7.203, 204.602, 13.702, 1.278)
pt3dadd(7.095, 204.629, 13.738, 1.226)
pt3dadd(6.986, 204.656, 13.775, 1.174)
pt3dadd(6.877, 204.683, 13.811, 1.122)
pt3dadd(6.769, 204.71, 13.847, 1.07)
pt3dadd(6.66, 204.737, 13.883, 1.016)
pt3dadd(6.552, 204.763, 13.92, 0.964)
pt3dadd(6.443, 204.791, 13.956, 0.912)
pt3dadd(6.335, 204.817, 13.992, 0.86)
pt3dadd(6.225, 204.844, 14.027, 0.81)
pt3dadd(6.114, 204.866, 14.06, 0.77)
pt3dadd(6.003, 204.889, 14.093, 0.728)
pt3dadd(5.892, 204.911, 14.126, 0.686)
pt3dadd(5.781, 204.934, 14.159, 0.646)
pt3dadd(5.67, 204.956, 14.191, 0.604)
pt3dadd(5.559, 204.979, 14.224, 0.562)
pt3dadd(5.448, 205.002, 14.257, 0.522)
pt3dadd(5.337, 205.025, 14.29, 0.48)
pt3dadd(5.226, 205.048, 14.322, 0.438)
pt3dadd(5.113, 205.068, 14.352, 0.406)
pt3dadd(4.997, 205.08, 14.376, 0.392)
pt3dadd(4.882, 205.093, 14.4, 0.378)
pt3dadd(4.766, 205.106, 14.424, 0.364)
pt3dadd(4.65, 205.12, 14.448, 0.35)
pt3dadd(4.534, 205.133, 14.472, 0.336)
pt3dadd(4.418, 205.145, 14.496, 0.322)
pt3dadd(4.303, 205.158, 14.519, 0.308)
pt3dadd(4.187, 205.171, 14.543, 0.294)
pt3dadd(4.071, 205.184, 14.567, 0.28)
pt3dadd(3.954, 205.194, 14.588, 0.276)
}
}
proc shape3d_8() {
dend_5 { pt3dadd(3.836, 205.199, 14.604, 0.292)
pt3dadd(3.717, 205.202, 14.619, 0.306)
pt3dadd(3.599, 205.207, 14.634, 0.32)
pt3dadd(3.48, 205.211, 14.65, 0.336)
pt3dadd(3.362, 205.216, 14.665, 0.35)
pt3dadd(3.243, 205.219, 14.68, 0.366)
pt3dadd(3.125, 205.224, 14.696, 0.38)
pt3dadd(3.006, 205.228, 14.711, 0.396)
pt3dadd(2.888, 205.232, 14.726, 0.41)
pt3dadd(2.769, 205.235, 14.74, 0.428)
pt3dadd(2.65, 205.235, 14.75, 0.452)
pt3dadd(2.53, 205.235, 14.76, 0.478)
pt3dadd(2.411, 205.235, 14.77, 0.502)
pt3dadd(2.291, 205.235, 14.78, 0.526)
pt3dadd(2.172, 205.236, 14.79, 0.55)
pt3dadd(2.053, 205.236, 14.8, 0.574)
pt3dadd(1.933, 205.236, 14.81, 0.598)
pt3dadd(1.814, 205.236, 14.821, 0.624)
pt3dadd(1.694, 205.236, 14.831, 0.648)
pt3dadd(1.575, 205.236, 14.837, 0.658)
pt3dadd(1.455, 205.236, 14.837, 0.644)
pt3dadd(1.335, 205.236, 14.838, 0.628)
pt3dadd(1.215, 205.236, 14.838, 0.614)
pt3dadd(1.095, 205.236, 14.838, 0.6)
pt3dadd(0.975, 205.237, 14.839, 0.586)
pt3dadd(0.855, 205.237, 14.839, 0.57)
pt3dadd(0.735, 205.237, 14.839, 0.556)
pt3dadd(0.615, 205.237, 14.84, 0.542)
pt3dadd(0.495, 205.237, 14.84, 0.528)
pt3dadd(0.375, 205.237, 14.84, 0.518)
pt3dadd(0.255, 205.237, 14.841, 0.52)
pt3dadd(0.135, 205.238, 14.841, 0.522)
pt3dadd(0.015, 205.238, 14.842, 0.522)
pt3dadd(-0.105, 205.238, 14.842, 0.524)
pt3dadd(-0.225, 205.24, 14.843, 0.524)
pt3dadd(-0.345, 205.24, 14.843, 0.526)
pt3dadd(-0.465, 205.24, 14.844, 0.528)
pt3dadd(-0.585, 205.241, 14.844, 0.528)
pt3dadd(-0.705, 205.241, 14.845, 0.53)
pt3dadd(-0.825, 205.241, 14.845, 0.536)
pt3dadd(-0.945, 205.241, 14.846, 0.55)
pt3dadd(-1.065, 205.242, 14.846, 0.564)
pt3dadd(-1.185, 205.242, 14.847, 0.58)
pt3dadd(-1.305, 205.242, 14.848, 0.594)
pt3dadd(-1.425, 205.243, 14.848, 0.608)
pt3dadd(-1.545, 205.243, 14.849, 0.622)
pt3dadd(-1.665, 205.243, 14.85, 0.636)
pt3dadd(-1.785, 205.244, 14.85, 0.652)
pt3dadd(-1.905, 205.244, 14.851, 0.666)
pt3dadd(-2.025, 205.244, 14.852, 0.69)
pt3dadd(-2.145, 205.246, 14.853, 0.734)
pt3dadd(-2.265, 205.246, 14.855, 0.776)
pt3dadd(-2.385, 205.247, 14.856, 0.82)
pt3dadd(-2.505, 205.248, 14.858, 0.862)
pt3dadd(-2.625, 205.248, 14.859, 0.904)
pt3dadd(-2.745, 205.249, 14.86, 0.948)
pt3dadd(-2.865, 205.249, 14.862, 0.99)
pt3dadd(-2.985, 205.25, 14.863, 1.034)
pt3dadd(-3.105, 205.252, 14.865, 1.076)
pt3dadd(-3.225, 205.252, 14.866, 1.112)
pt3dadd(-3.345, 205.253, 14.868, 1.138)
pt3dadd(-3.465, 205.254, 14.871, 1.164)
pt3dadd(-3.585, 205.255, 14.873, 1.188)
pt3dadd(-3.705, 205.256, 14.875, 1.214)
pt3dadd(-3.825, 205.258, 14.877, 1.238)
pt3dadd(-3.945, 205.259, 14.879, 1.264)
pt3dadd(-4.065, 205.26, 14.881, 1.29)
pt3dadd(-4.185, 205.261, 14.883, 1.314)
pt3dadd(-4.305, 205.262, 14.885, 1.34)
pt3dadd(-4.425, 205.265, 14.887, 1.356)
pt3dadd(-4.545, 205.266, 14.89, 1.356)
pt3dadd(-4.665, 205.267, 14.893, 1.356)
pt3dadd(-4.784, 205.27, 14.896, 1.356)
pt3dadd(-4.904, 205.271, 14.899, 1.356)
pt3dadd(-5.024, 205.273, 14.902, 1.356)
pt3dadd(-5.144, 205.274, 14.905, 1.356)
pt3dadd(-5.264, 205.276, 14.908, 1.356)
pt3dadd(-5.384, 205.278, 14.911, 1.356)
pt3dadd(-5.504, 205.279, 14.914, 1.356)
pt3dadd(-5.624, 205.282, 14.918, 1.366)
pt3dadd(-5.744, 205.285, 14.924, 1.39)
pt3dadd(-5.863, 205.288, 14.931, 1.414)
pt3dadd(-5.983, 205.291, 14.938, 1.44)
pt3dadd(-6.103, 205.295, 14.944, 1.464)
pt3dadd(-6.222, 205.297, 14.951, 1.488)
pt3dadd(-6.342, 205.301, 14.957, 1.514)
pt3dadd(-6.462, 205.304, 14.964, 1.538)
pt3dadd(-6.582, 205.308, 14.97, 1.564)
pt3dadd(-6.701, 205.31, 14.977, 1.588)
pt3dadd(-6.821, 205.314, 14.984, 1.606)
pt3dadd(-6.94, 205.319, 14.993, 1.614)
pt3dadd(-7.06, 205.324, 15.001, 1.622)
pt3dadd(-7.179, 205.328, 15.01, 1.63)
pt3dadd(-7.299, 205.333, 15.018, 1.638)
pt3dadd(-7.418, 205.338, 15.027, 1.646)
pt3dadd(-7.538, 205.343, 15.035, 1.654)
pt3dadd(-7.657, 205.348, 15.044, 1.662)
pt3dadd(-7.777, 205.352, 15.052, 1.67)
pt3dadd(-7.896, 205.357, 15.061, 1.678)
pt3dadd(-8.015, 205.364, 15.071, 1.666)
pt3dadd(-8.134, 205.373, 15.082, 1.624)
pt3dadd(-8.253, 205.381, 15.094, 1.58)
pt3dadd(-8.372, 205.39, 15.106, 1.538)
pt3dadd(-8.491, 205.398, 15.118, 1.494)
pt3dadd(-8.61, 205.406, 15.13, 1.452)
pt3dadd(-8.728, 205.415, 15.141, 1.408)
pt3dadd(-8.847, 205.423, 15.153, 1.366)
pt3dadd(-8.966, 205.432, 15.165, 1.322)
pt3dadd(-9.085, 205.441, 15.177, 1.28)
pt3dadd(-9.202, 205.451, 15.196, 1.248)
pt3dadd(-9.316, 205.463, 15.226, 1.236)
pt3dadd(-9.429, 205.474, 15.256, 1.224)
pt3dadd(-9.543, 205.486, 15.287, 1.212)
pt3dadd(-9.657, 205.498, 15.317, 1.198)
pt3dadd(-9.771, 205.51, 15.348, 1.186)
pt3dadd(-9.884, 205.522, 15.378, 1.174)
pt3dadd(-9.998, 205.534, 15.408, 1.162)
pt3dadd(-10.112, 205.546, 15.439, 1.15)
pt3dadd(-10.225, 205.556, 15.469, 1.136)
pt3dadd(-10.338, 205.57, 15.502, 1.13)
pt3dadd(-10.448, 205.583, 15.54, 1.13)
pt3dadd(-10.559, 205.597, 15.577, 1.132)
pt3dadd(-10.669, 205.61, 15.614, 1.132)
pt3dadd(-10.78, 205.624, 15.651, 1.132)
pt3dadd(-10.89, 205.638, 15.689, 1.132)
pt3dadd(-11.001, 205.651, 15.726, 1.134)
pt3dadd(-11.111, 205.664, 15.763, 1.134)
pt3dadd(-11.222, 205.679, 15.8, 1.134)
pt3dadd(-11.332, 205.692, 15.838, 1.134)
pt3dadd(-11.442, 205.72, 15.869, 1.146)
pt3dadd(-11.55, 205.763, 15.892, 1.172)
pt3dadd(-11.658, 205.806, 15.916, 1.198)
pt3dadd(-11.766, 205.85, 15.939, 1.226)
pt3dadd(-11.874, 205.894, 15.963, 1.252)
pt3dadd(-11.983, 205.938, 15.986, 1.278)
pt3dadd(-12.091, 205.981, 16.01, 1.304)
pt3dadd(-12.199, 206.024, 16.033, 1.33)
pt3dadd(-12.307, 206.069, 16.057, 1.356)
pt3dadd(-12.415, 206.112, 16.08, 1.382)
pt3dadd(-12.524, 206.154, 16.103, 1.402)
pt3dadd(-12.635, 206.194, 16.123, 1.418)
pt3dadd(-12.745, 206.233, 16.144, 1.432)
pt3dadd(-12.856, 206.273, 16.165, 1.446)
pt3dadd(-12.966, 206.312, 16.185, 1.462)
pt3dadd(-13.077, 206.352, 16.206, 1.476)
pt3dadd(-13.188, 206.392, 16.227, 1.49)
pt3dadd(-13.298, 206.431, 16.248, 1.506)
pt3dadd(-13.409, 206.471, 16.268, 1.52)
pt3dadd(-13.519, 206.51, 16.289, 1.534)
pt3dadd(-13.632, 206.545, 16.306, 1.536)
pt3dadd(-13.747, 206.574, 16.319, 1.522)
pt3dadd(-13.863, 206.603, 16.333, 1.508)
pt3dadd(-13.978, 206.633, 16.346, 1.494)
pt3dadd(-14.093, 206.662, 16.36, 1.48)
pt3dadd(-14.208, 206.69, 16.373, 1.466)
pt3dadd(-14.324, 206.72, 16.387, 1.452)
pt3dadd(-14.439, 206.749, 16.4, 1.438)
pt3dadd(-14.554, 206.778, 16.413, 1.424)
pt3dadd(-14.67, 206.807, 16.427, 1.41)
pt3dadd(-14.786, 206.832, 16.438, 1.396)
pt3dadd(-14.904, 206.851, 16.447, 1.382)
pt3dadd(-15.022, 206.872, 16.457, 1.368)
pt3dadd(-15.14, 206.891, 16.466, 1.354)
pt3dadd(-15.257, 206.911, 16.475, 1.34)
pt3dadd(-15.375, 206.93, 16.484, 1.326)
pt3dadd(-15.493, 206.951, 16.493, 1.31)
pt3dadd(-15.611, 206.97, 16.502, 1.296)
pt3dadd(-15.729, 206.989, 16.512, 1.282)
pt3dadd(-15.847, 207.01, 16.521, 1.268)
pt3dadd(-15.965, 207.026, 16.529, 1.256)
pt3dadd(-16.084, 207.04, 16.537, 1.244)
pt3dadd(-16.203, 207.054, 16.544, 1.232)
pt3dadd(-16.322, 207.068, 16.551, 1.22)
pt3dadd(-16.44, 207.082, 16.559, 1.208)
pt3dadd(-16.559, 207.096, 16.566, 1.196)
pt3dadd(-16.678, 207.11, 16.573, 1.184)
pt3dadd(-16.797, 207.124, 16.581, 1.172)
pt3dadd(-16.916, 207.138, 16.588, 1.16)
pt3dadd(-17.035, 207.151, 16.595, 1.148)
pt3dadd(-17.154, 207.16, 16.605, 1.15)
pt3dadd(-17.273, 207.163, 16.616, 1.164)
pt3dadd(-17.392, 207.167, 16.628, 1.178)
pt3dadd(-17.511, 207.17, 16.64, 1.192)
pt3dadd(-17.63, 207.174, 16.651, 1.206)
pt3dadd(-17.75, 207.178, 16.663, 1.222)
pt3dadd(-17.869, 207.181, 16.674, 1.236)
pt3dadd(-17.988, 207.185, 16.686, 1.25)
pt3dadd(-18.107, 207.188, 16.698, 1.264)
pt3dadd(-18.226, 207.192, 16.709, 1.278)
pt3dadd(-18.344, 207.196, 16.727, 1.3)
pt3dadd(-18.46, 207.202, 16.752, 1.328)
pt3dadd(-18.576, 207.208, 16.777, 1.356)
pt3dadd(-18.692, 207.214, 16.802, 1.384)
pt3dadd(-18.808, 207.218, 16.827, 1.412)
pt3dadd(-18.924, 207.224, 16.852, 1.44)
pt3dadd(-19.04, 207.23, 16.877, 1.468)
pt3dadd(-19.156, 207.236, 16.902, 1.494)
pt3dadd(-19.272, 207.241, 16.926, 1.522)
pt3dadd(-19.389, 207.247, 16.951, 1.55)
pt3dadd(-19.502, 207.254, 16.984, 1.586)
}
}
proc shape3d_9() {
dend_5 { pt3dadd(-19.613, 207.263, 17.021, 1.626)
pt3dadd(-19.724, 207.27, 17.058, 1.666)
pt3dadd(-19.835, 207.278, 17.095, 1.706)
pt3dadd(-19.946, 207.286, 17.132, 1.746)
pt3dadd(-20.057, 207.294, 17.169, 1.786)
pt3dadd(-20.169, 207.302, 17.206, 1.828)
pt3dadd(-20.28, 207.31, 17.243, 1.868)
pt3dadd(-20.391, 207.318, 17.28, 1.908)
pt3dadd(-20.502, 207.325, 17.318, 1.948)
pt3dadd(-20.616, 207.336, 17.348, 1.94)
pt3dadd(-20.731, 207.349, 17.374, 1.902)
pt3dadd(-20.846, 207.361, 17.401, 1.862)
pt3dadd(-20.961, 207.373, 17.427, 1.822)
pt3dadd(-21.076, 207.386, 17.453, 1.784)
pt3dadd(-21.191, 207.398, 17.479, 1.744)
pt3dadd(-21.306, 207.412, 17.505, 1.706)
pt3dadd(-21.421, 207.424, 17.532, 1.666)
pt3dadd(-21.537, 207.437, 17.558, 1.628)
pt3dadd(-21.652, 207.449, 17.584, 1.588)
pt3dadd(-21.767, 207.466, 17.607, 1.55)
pt3dadd(-21.882, 207.486, 17.629, 1.514)
pt3dadd(-21.998, 207.506, 17.65, 1.478)
pt3dadd(-22.114, 207.526, 17.671, 1.442)
pt3dadd(-22.229, 207.546, 17.692, 1.406)
pt3dadd(-22.345, 207.566, 17.713, 1.37)
pt3dadd(-22.46, 207.587, 17.735, 1.334)
pt3dadd(-22.576, 207.606, 17.756, 1.296)
pt3dadd(-22.691, 207.626, 17.777, 1.26)
pt3dadd(-22.807, 207.647, 17.799, 1.224)
pt3dadd(-22.919, 207.683, 17.812, 1.24)
pt3dadd(-23.03, 207.727, 17.823, 1.28)
pt3dadd(-23.141, 207.772, 17.833, 1.32)
pt3dadd(-23.252, 207.816, 17.844, 1.36)
pt3dadd(-23.362, 207.86, 17.854, 1.4)
pt3dadd(-23.473, 207.905, 17.864, 1.44)
pt3dadd(-23.584, 207.949, 17.875, 1.48)
pt3dadd(-23.695, 207.992, 17.885, 1.522)
pt3dadd(-23.806, 208.037, 17.896, 1.562)
pt3dadd(-23.917, 208.081, 17.906, 1.602)
pt3dadd(-24.03, 208.121, 17.913, 1.598)
pt3dadd(-24.144, 208.157, 17.918, 1.574)
pt3dadd(-24.258, 208.194, 17.923, 1.55)
pt3dadd(-24.372, 208.23, 17.928, 1.524)
pt3dadd(-24.486, 208.266, 17.934, 1.5)
pt3dadd(-24.6, 208.303, 17.939, 1.476)
pt3dadd(-24.715, 208.339, 17.944, 1.452)
pt3dadd(-24.829, 208.376, 17.949, 1.428)
pt3dadd(-24.943, 208.412, 17.955, 1.404)
pt3dadd(-25.057, 208.45, 17.96, 1.38)
pt3dadd(-25.173, 208.48, 17.961, 1.312)
pt3dadd(-25.289, 208.51, 17.962, 1.228)
pt3dadd(-25.406, 208.538, 17.962, 1.144)
pt3dadd(-25.522, 208.567, 17.962, 1.06)
pt3dadd(-25.639, 208.596, 17.962, 0.974)
pt3dadd(-25.755, 208.625, 17.963, 0.89)
pt3dadd(-25.872, 208.654, 17.963, 0.806)
pt3dadd(-25.988, 208.682, 17.963, 0.722)
pt3dadd(-26.105, 208.711, 17.964, 0.638)
pt3dadd(-26.221, 208.74, 17.964, 0.554)
pt3dadd(-26.339, 208.759, 17.965, 0.524)
pt3dadd(-26.458, 208.774, 17.965, 0.516)
pt3dadd(-26.577, 208.789, 17.966, 0.508)
pt3dadd(-26.697, 208.804, 17.966, 0.502)
pt3dadd(-26.816, 208.819, 17.967, 0.494)
pt3dadd(-26.935, 208.834, 17.968, 0.486)
pt3dadd(-27.054, 208.848, 17.968, 0.478)
pt3dadd(-27.173, 208.864, 17.969, 0.47)
pt3dadd(-27.292, 208.878, 17.97, 0.462)
pt3dadd(-27.411, 208.894, 17.97, 0.454)
pt3dadd(-27.53, 208.904, 17.971, 0.452)
pt3dadd(-27.65, 208.913, 17.972, 0.452)
pt3dadd(-27.77, 208.922, 17.973, 0.452)
pt3dadd(-27.889, 208.931, 17.974, 0.452)
pt3dadd(-28.009, 208.94, 17.975, 0.452)
pt3dadd(-28.129, 208.949, 17.976, 0.452)
pt3dadd(-28.248, 208.958, 17.977, 0.452)
pt3dadd(-28.368, 208.967, 17.978, 0.452)
pt3dadd(-28.488, 208.976, 17.979, 0.452)
pt3dadd(-28.607, 208.985, 17.98, 0.452)
pt3dadd(-28.727, 208.987, 17.981, 0.452)
pt3dadd(-28.847, 208.987, 17.982, 0.452)
pt3dadd(-28.967, 208.988, 17.984, 0.452)
pt3dadd(-29.087, 208.988, 17.985, 0.452)
pt3dadd(-29.207, 208.988, 17.987, 0.452)
pt3dadd(-29.327, 208.988, 17.988, 0.452)
pt3dadd(-29.447, 208.988, 17.99, 0.452)
pt3dadd(-29.567, 208.99, 17.991, 0.452)
pt3dadd(-29.687, 208.99, 17.993, 0.452)
pt3dadd(-29.807, 208.99, 17.994, 0.452)
pt3dadd(-29.927, 208.99, 17.997, 0.468)
pt3dadd(-30.047, 208.991, 17.999, 0.492)
pt3dadd(-30.167, 208.992, 18.002, 0.514)
pt3dadd(-30.287, 208.992, 18.005, 0.536)
pt3dadd(-30.407, 208.993, 18.007, 0.558)
pt3dadd(-30.527, 208.993, 18.01, 0.58)
pt3dadd(-30.647, 208.994, 18.013, 0.604)
pt3dadd(-30.767, 208.996, 18.015, 0.626)
pt3dadd(-30.887, 208.996, 18.018, 0.648)
pt3dadd(-31.007, 208.997, 18.021, 0.67)
pt3dadd(-31.127, 208.998, 18.024, 0.706)
pt3dadd(-31.246, 208.999, 18.028, 0.748)
pt3dadd(-31.366, 208.999, 18.032, 0.788)
pt3dadd(-31.486, 209, 18.036, 0.83)
pt3dadd(-31.606, 209.002, 18.04, 0.872)
pt3dadd(-31.726, 209.003, 18.044, 0.912)
pt3dadd(-31.846, 209.004, 18.048, 0.954)
pt3dadd(-31.966, 209.005, 18.052, 0.994)
pt3dadd(-32.086, 209.006, 18.056, 1.036)
pt3dadd(-32.206, 209.008, 18.06, 1.078)
pt3dadd(-32.325, 209.009, 18.067, 1.152)
pt3dadd(-32.445, 209.01, 18.074, 1.238)
pt3dadd(-32.565, 209.012, 18.081, 1.326)
pt3dadd(-32.684, 209.014, 18.089, 1.412)
pt3dadd(-32.804, 209.016, 18.096, 1.498)
pt3dadd(-32.924, 209.017, 18.103, 1.586)
pt3dadd(-33.043, 209.018, 18.111, 1.672)
pt3dadd(-33.163, 209.021, 18.118, 1.758)
pt3dadd(-33.283, 209.022, 18.125, 1.846)
pt3dadd(-33.402, 209.024, 18.133, 1.932)
pt3dadd(-33.522, 209.027, 18.143, 1.956)
pt3dadd(-33.641, 209.029, 18.153, 1.958)
pt3dadd(-33.76, 209.033, 18.164, 1.962)
pt3dadd(-33.88, 209.035, 18.174, 1.964)
pt3dadd(-33.999, 209.038, 18.185, 1.968)
pt3dadd(-34.118, 209.041, 18.196, 1.97)
pt3dadd(-34.238, 209.044, 18.206, 1.972)
pt3dadd(-34.357, 209.047, 18.217, 1.976)
pt3dadd(-34.476, 209.05, 18.227, 1.978)
pt3dadd(-34.595, 209.052, 18.238, 1.98)
pt3dadd(-34.714, 209.056, 18.251, 1.95)
pt3dadd(-34.833, 209.06, 18.265, 1.908)
pt3dadd(-34.952, 209.064, 18.28, 1.866)
pt3dadd(-35.07, 209.068, 18.294, 1.824)
pt3dadd(-35.189, 209.071, 18.308, 1.782)
pt3dadd(-35.308, 209.075, 18.323, 1.74)
pt3dadd(-35.427, 209.08, 18.337, 1.698)
pt3dadd(-35.545, 209.083, 18.351, 1.656)
pt3dadd(-35.664, 209.087, 18.365, 1.614)
pt3dadd(-35.783, 209.09, 18.38, 1.572)
pt3dadd(-35.895, 209.098, 18.413, 1.542)
pt3dadd(-36.005, 209.106, 18.451, 1.516)
pt3dadd(-36.116, 209.113, 18.49, 1.488)
pt3dadd(-36.226, 209.122, 18.528, 1.462)
pt3dadd(-36.337, 209.13, 18.567, 1.436)
pt3dadd(-36.447, 209.137, 18.605, 1.408)
pt3dadd(-36.558, 209.146, 18.643, 1.382)
pt3dadd(-36.668, 209.153, 18.682, 1.356)
pt3dadd(-36.779, 209.161, 18.72, 1.328)
pt3dadd(-36.889, 209.17, 18.759, 1.302)
pt3dadd(-37.001, 209.179, 18.794, 1.28)
pt3dadd(-37.114, 209.189, 18.828, 1.258)
pt3dadd(-37.226, 209.198, 18.862, 1.236)
pt3dadd(-37.338, 209.209, 18.896, 1.214)
pt3dadd(-37.451, 209.219, 18.931, 1.192)
pt3dadd(-37.563, 209.23, 18.965, 1.17)
pt3dadd(-37.675, 209.239, 18.999, 1.148)
pt3dadd(-37.788, 209.249, 19.033, 1.126)
pt3dadd(-37.9, 209.26, 19.067, 1.104)
pt3dadd(-38.012, 209.269, 19.102, 1.082)
pt3dadd(-38.126, 209.282, 19.13, 1.066)
pt3dadd(-38.241, 209.297, 19.157, 1.052)
pt3dadd(-38.356, 209.31, 19.184, 1.04)
pt3dadd(-38.471, 209.324, 19.211, 1.026)
pt3dadd(-38.585, 209.338, 19.238, 1.012)
pt3dadd(-38.7, 209.352, 19.265, 0.998)
pt3dadd(-38.815, 209.365, 19.292, 0.984)
pt3dadd(-38.93, 209.38, 19.319, 0.97)
pt3dadd(-39.044, 209.393, 19.346, 0.956)
pt3dadd(-39.159, 209.407, 19.373, 0.942)
pt3dadd(-39.271, 209.438, 19.395, 0.944)
pt3dadd(-39.383, 209.476, 19.415, 0.95)
pt3dadd(-39.494, 209.513, 19.435, 0.958)
pt3dadd(-39.606, 209.55, 19.455, 0.964)
pt3dadd(-39.717, 209.586, 19.476, 0.97)
pt3dadd(-39.829, 209.623, 19.496, 0.976)
pt3dadd(-39.941, 209.66, 19.516, 0.982)
pt3dadd(-40.052, 209.696, 19.537, 0.988)
pt3dadd(-40.164, 209.734, 19.557, 0.994)
pt3dadd(-40.275, 209.771, 19.577, 1.002)
pt3dadd(-40.385, 209.814, 19.596, 1.014)
pt3dadd(-40.494, 209.858, 19.613, 1.028)
pt3dadd(-40.604, 209.902, 19.631, 1.042)
pt3dadd(-40.714, 209.946, 19.649, 1.054)
pt3dadd(-40.823, 209.99, 19.667, 1.068)
pt3dadd(-40.933, 210.035, 19.684, 1.082)
pt3dadd(-41.042, 210.079, 19.702, 1.096)
pt3dadd(-41.152, 210.122, 19.72, 1.11)
pt3dadd(-41.261, 210.167, 19.737, 1.122)
pt3dadd(-41.371, 210.211, 19.755, 1.136)
pt3dadd(-41.485, 210.244, 19.77, 1.162)
pt3dadd(-41.6, 210.274, 19.784, 1.19)
pt3dadd(-41.715, 210.304, 19.798, 1.218)
pt3dadd(-41.83, 210.334, 19.812, 1.246)
pt3dadd(-41.945, 210.365, 19.826, 1.274)
pt3dadd(-42.06, 210.395, 19.84, 1.302)
pt3dadd(-42.174, 210.425, 19.854, 1.33)
pt3dadd(-42.289, 210.455, 19.868, 1.356)
pt3dadd(-42.404, 210.486, 19.881, 1.384)
pt3dadd(-42.519, 210.516, 19.895, 1.412)
pt3dadd(-42.633, 210.541, 19.92, 1.412)
}
}
proc shape3d_10() {
dend_5 { pt3dadd(-42.746, 210.565, 19.945, 1.408)
pt3dadd(-42.859, 210.59, 19.971, 1.404)
pt3dadd(-42.973, 210.614, 19.997, 1.4)
pt3dadd(-43.086, 210.64, 20.022, 1.394)
pt3dadd(-43.2, 210.664, 20.048, 1.39)
pt3dadd(-43.313, 210.688, 20.074, 1.386)
pt3dadd(-43.426, 210.713, 20.099, 1.382)
pt3dadd(-43.539, 210.737, 20.125, 1.378)
pt3dadd(-43.653, 210.762, 20.151, 1.372)
pt3dadd(-43.761, 210.778, 20.193, 1.322)
pt3dadd(-43.868, 210.792, 20.235, 1.27)
pt3dadd(-43.976, 210.808, 20.278, 1.218)
pt3dadd(-44.083, 210.823, 20.32, 1.166)
pt3dadd(-44.191, 210.839, 20.363, 1.114)
pt3dadd(-44.298, 210.854, 20.405, 1.062)
pt3dadd(-44.406, 210.869, 20.448, 1.01)
pt3dadd(-44.514, 210.884, 20.49, 0.958)
pt3dadd(-44.621, 210.9, 20.532, 0.906)
pt3dadd(-44.729, 210.916, 20.575, 0.854)
pt3dadd(-44.84, 210.926, 20.612, 0.88)
pt3dadd(-44.95, 210.937, 20.649, 0.908)
pt3dadd(-45.061, 210.948, 20.686, 0.936)
pt3dadd(-45.172, 210.959, 20.723, 0.964)
pt3dadd(-45.283, 210.97, 20.761, 0.99)
pt3dadd(-45.394, 210.982, 20.798, 1.018)
pt3dadd(-45.505, 210.992, 20.835, 1.046)
pt3dadd(-45.616, 211.003, 20.872, 1.074)
pt3dadd(-45.726, 211.014, 20.909, 1.102)
pt3dadd(-45.837, 211.025, 20.946, 1.128)
pt3dadd(-45.95, 211.033, 20.981, 1.196)
pt3dadd(-46.062, 211.042, 21.015, 1.264)
pt3dadd(-46.174, 211.051, 21.05, 1.332)
pt3dadd(-46.287, 211.06, 21.084, 1.4)
pt3dadd(-46.399, 211.068, 21.118, 1.468)
pt3dadd(-46.511, 211.076, 21.153, 1.536)
pt3dadd(-46.624, 211.085, 21.187, 1.604)
pt3dadd(-46.736, 211.094, 21.222, 1.672)
pt3dadd(-46.848, 211.103, 21.256, 1.74)
pt3dadd(-46.961, 211.111, 21.29, 1.808)
}
dend_5[1] {pt3dclear()
pt3dadd(-46.961, 211.111, 21.29, 1.808)
pt3dadd(-47.051, 211.123, 21.33, 1.808)
pt3dadd(-47.157, 211.136, 21.376, 1.808)
pt3dadd(-47.263, 211.151, 21.422, 1.808)
pt3dadd(-47.368, 211.165, 21.468, 1.808)
pt3dadd(-47.474, 211.178, 21.514, 1.808)
pt3dadd(-47.58, 211.193, 21.559, 1.808)
pt3dadd(-47.685, 211.206, 21.605, 1.808)
pt3dadd(-47.791, 211.22, 21.651, 1.808)
pt3dadd(-47.897, 211.234, 21.697, 1.808)
pt3dadd(-48.003, 211.248, 21.743, 1.808)
pt3dadd(-48.108, 211.261, 21.789, 1.808)
pt3dadd(-48.214, 211.276, 21.835, 1.808)
pt3dadd(-48.32, 211.289, 21.881, 1.808)
pt3dadd(-48.425, 211.303, 21.927, 1.808)
pt3dadd(-48.532, 211.327, 21.966, 1.788)
pt3dadd(-48.64, 211.363, 21.998, 1.742)
pt3dadd(-48.748, 211.4, 22.029, 1.698)
pt3dadd(-48.856, 211.436, 22.06, 1.652)
pt3dadd(-48.964, 211.472, 22.091, 1.608)
pt3dadd(-49.072, 211.51, 22.123, 1.562)
pt3dadd(-49.18, 211.546, 22.154, 1.518)
pt3dadd(-49.288, 211.583, 22.185, 1.472)
pt3dadd(-49.396, 211.619, 22.216, 1.428)
pt3dadd(-49.504, 211.656, 22.248, 1.382)
pt3dadd(-49.611, 211.698, 22.274, 1.326)
pt3dadd(-49.718, 211.745, 22.298, 1.26)
pt3dadd(-49.825, 211.792, 22.322, 1.194)
pt3dadd(-49.932, 211.837, 22.345, 1.128)
pt3dadd(-50.039, 211.884, 22.369, 1.064)
pt3dadd(-50.146, 211.931, 22.392, 0.998)
pt3dadd(-50.253, 211.978, 22.416, 0.932)
pt3dadd(-50.36, 212.023, 22.44, 0.868)
pt3dadd(-50.466, 212.07, 22.463, 0.802)
pt3dadd(-50.573, 212.117, 22.487, 0.736)
pt3dadd(-50.684, 212.158, 22.505, 0.708)
pt3dadd(-50.796, 212.196, 22.519, 0.704)
pt3dadd(-50.909, 212.233, 22.534, 0.702)
pt3dadd(-51.022, 212.27, 22.548, 0.698)
pt3dadd(-51.135, 212.308, 22.562, 0.694)
pt3dadd(-51.247, 212.345, 22.576, 0.692)
pt3dadd(-51.36, 212.383, 22.59, 0.688)
pt3dadd(-51.473, 212.42, 22.604, 0.686)
pt3dadd(-51.585, 212.458, 22.618, 0.682)
pt3dadd(-51.698, 212.495, 22.633, 0.68)
pt3dadd(-51.812, 212.531, 22.645, 0.69)
pt3dadd(-51.926, 212.564, 22.657, 0.71)
pt3dadd(-52.04, 212.599, 22.668, 0.732)
pt3dadd(-52.154, 212.633, 22.68, 0.752)
pt3dadd(-52.269, 212.668, 22.692, 0.772)
pt3dadd(-52.383, 212.701, 22.703, 0.794)
pt3dadd(-52.497, 212.735, 22.715, 0.814)
pt3dadd(-52.611, 212.77, 22.727, 0.834)
pt3dadd(-52.725, 212.803, 22.738, 0.854)
pt3dadd(-52.84, 212.838, 22.75, 0.876)
pt3dadd(-52.955, 212.868, 22.759, 0.92)
pt3dadd(-53.071, 212.897, 22.767, 0.98)
pt3dadd(-53.188, 212.924, 22.774, 1.04)
pt3dadd(-53.304, 212.953, 22.782, 1.1)
pt3dadd(-53.42, 212.982, 22.79, 1.162)
pt3dadd(-53.536, 213.01, 22.797, 1.222)
pt3dadd(-53.653, 213.038, 22.805, 1.282)
pt3dadd(-53.769, 213.067, 22.813, 1.342)
pt3dadd(-53.885, 213.095, 22.82, 1.402)
pt3dadd(-54.001, 213.124, 22.828, 1.462)
pt3dadd(-54.114, 213.162, 22.838, 1.47)
pt3dadd(-54.224, 213.209, 22.85, 1.442)
pt3dadd(-54.333, 213.254, 22.862, 1.414)
pt3dadd(-54.443, 213.3, 22.874, 1.386)
pt3dadd(-54.553, 213.347, 22.885, 1.358)
pt3dadd(-54.663, 213.392, 22.897, 1.33)
pt3dadd(-54.773, 213.439, 22.909, 1.302)
pt3dadd(-54.883, 213.485, 22.921, 1.274)
pt3dadd(-54.993, 213.53, 22.932, 1.246)
pt3dadd(-55.103, 213.577, 22.944, 1.218)
pt3dadd(-55.21, 213.623, 22.965, 1.192)
pt3dadd(-55.316, 213.67, 22.991, 1.168)
pt3dadd(-55.422, 213.716, 23.017, 1.142)
pt3dadd(-55.528, 213.763, 23.043, 1.118)
pt3dadd(-55.634, 213.81, 23.07, 1.092)
pt3dadd(-55.74, 213.857, 23.096, 1.068)
pt3dadd(-55.846, 213.904, 23.122, 1.042)
pt3dadd(-55.952, 213.95, 23.148, 1.018)
pt3dadd(-56.058, 213.997, 23.174, 0.992)
pt3dadd(-56.164, 214.044, 23.2, 0.968)
pt3dadd(-56.262, 214.081, 23.248, 0.974)
pt3dadd(-56.358, 214.118, 23.3, 0.986)
pt3dadd(-56.454, 214.154, 23.352, 1)
pt3dadd(-56.55, 214.19, 23.404, 1.012)
pt3dadd(-56.646, 214.226, 23.455, 1.024)
pt3dadd(-56.742, 214.264, 23.507, 1.038)
pt3dadd(-56.838, 214.3, 23.559, 1.05)
pt3dadd(-56.934, 214.336, 23.611, 1.062)
pt3dadd(-57.03, 214.372, 23.663, 1.076)
pt3dadd(-57.126, 214.408, 23.715, 1.088)
pt3dadd(-57.235, 214.427, 23.751, 1.058)
pt3dadd(-57.347, 214.444, 23.785, 1.022)
pt3dadd(-57.459, 214.459, 23.819, 0.986)
pt3dadd(-57.57, 214.476, 23.853, 0.95)
pt3dadd(-57.682, 214.492, 23.887, 0.914)
pt3dadd(-57.794, 214.508, 23.921, 0.878)
pt3dadd(-57.905, 214.525, 23.955, 0.844)
pt3dadd(-58.017, 214.541, 23.989, 0.808)
pt3dadd(-58.129, 214.558, 24.023, 0.772)
pt3dadd(-58.24, 214.573, 24.057, 0.736)
pt3dadd(-58.357, 214.578, 24.081, 0.764)
pt3dadd(-58.474, 214.58, 24.103, 0.798)
pt3dadd(-58.591, 214.583, 24.125, 0.834)
pt3dadd(-58.708, 214.585, 24.147, 0.87)
pt3dadd(-58.825, 214.588, 24.17, 0.904)
pt3dadd(-58.941, 214.59, 24.192, 0.94)
pt3dadd(-59.058, 214.592, 24.214, 0.976)
pt3dadd(-59.175, 214.595, 24.236, 1.01)
pt3dadd(-59.292, 214.597, 24.258, 1.046)
pt3dadd(-59.409, 214.6, 24.28, 1.082)
pt3dadd(-59.528, 214.6, 24.297, 1.086)
pt3dadd(-59.646, 214.6, 24.314, 1.088)
pt3dadd(-59.765, 214.6, 24.33, 1.092)
pt3dadd(-59.883, 214.6, 24.346, 1.094)
pt3dadd(-60.001, 214.6, 24.363, 1.096)
pt3dadd(-60.12, 214.598, 24.379, 1.098)
pt3dadd(-60.238, 214.598, 24.395, 1.1)
pt3dadd(-60.356, 214.598, 24.412, 1.102)
pt3dadd(-60.475, 214.598, 24.428, 1.104)
pt3dadd(-60.593, 214.598, 24.444, 1.106)
pt3dadd(-60.712, 214.598, 24.457, 1.054)
pt3dadd(-60.831, 214.598, 24.468, 0.996)
pt3dadd(-60.951, 214.597, 24.48, 0.938)
pt3dadd(-61.07, 214.597, 24.491, 0.882)
pt3dadd(-61.189, 214.597, 24.503, 0.824)
pt3dadd(-61.308, 214.597, 24.514, 0.766)
pt3dadd(-61.428, 214.597, 24.526, 0.708)
pt3dadd(-61.547, 214.596, 24.538, 0.652)
pt3dadd(-61.666, 214.596, 24.549, 0.594)
pt3dadd(-61.785, 214.596, 24.561, 0.536)
pt3dadd(-61.899, 214.596, 24.593, 0.568)
pt3dadd(-62.011, 214.595, 24.626, 0.606)
pt3dadd(-62.124, 214.595, 24.66, 0.644)
pt3dadd(-62.237, 214.595, 24.694, 0.682)
pt3dadd(-62.35, 214.595, 24.728, 0.722)
pt3dadd(-62.463, 214.594, 24.762, 0.76)
pt3dadd(-62.576, 214.594, 24.795, 0.798)
pt3dadd(-62.689, 214.594, 24.829, 0.836)
pt3dadd(-62.802, 214.592, 24.863, 0.876)
pt3dadd(-62.915, 214.592, 24.896, 0.914)
pt3dadd(-63.028, 214.592, 24.931, 0.95)
pt3dadd(-63.14, 214.591, 24.966, 0.986)
pt3dadd(-63.252, 214.591, 25.001, 1.024)
pt3dadd(-63.365, 214.591, 25.036, 1.06)
pt3dadd(-63.477, 214.591, 25.071, 1.096)
pt3dadd(-63.59, 214.59, 25.106, 1.134)
pt3dadd(-63.702, 214.59, 25.141, 1.17)
pt3dadd(-63.815, 214.59, 25.176, 1.206)
pt3dadd(-63.927, 214.589, 25.21, 1.244)
pt3dadd(-64.04, 214.589, 25.245, 1.28)
pt3dadd(-64.156, 214.588, 25.27, 1.238)
pt3dadd(-64.273, 214.588, 25.293, 1.196)
pt3dadd(-64.389, 214.586, 25.317, 1.154)
pt3dadd(-64.506, 214.586, 25.341, 1.112)
pt3dadd(-64.622, 214.585, 25.365, 1.07)
pt3dadd(-64.739, 214.584, 25.389, 1.028)
}
}
proc shape3d_11() {
dend_5[1] { pt3dadd(-64.855, 214.584, 25.413, 0.986)
pt3dadd(-64.972, 214.583, 25.437, 0.944)
pt3dadd(-65.088, 214.583, 25.461, 0.902)
pt3dadd(-65.205, 214.582, 25.485, 0.86)
pt3dadd(-65.323, 214.58, 25.502, 0.858)
pt3dadd(-65.441, 214.579, 25.518, 0.856)
pt3dadd(-65.56, 214.578, 25.535, 0.854)
pt3dadd(-65.678, 214.577, 25.552, 0.852)
pt3dadd(-65.796, 214.576, 25.568, 0.85)
pt3dadd(-65.915, 214.573, 25.585, 0.848)
pt3dadd(-66.033, 214.572, 25.602, 0.848)
pt3dadd(-66.151, 214.571, 25.618, 0.846)
pt3dadd(-66.27, 214.57, 25.635, 0.844)
pt3dadd(-66.388, 214.568, 25.651, 0.842)
pt3dadd(-66.507, 214.566, 25.662, 0.872)
pt3dadd(-66.626, 214.565, 25.673, 0.9)
pt3dadd(-66.746, 214.564, 25.684, 0.928)
pt3dadd(-66.865, 214.561, 25.696, 0.958)
pt3dadd(-66.984, 214.559, 25.707, 0.986)
pt3dadd(-67.103, 214.558, 25.718, 1.014)
pt3dadd(-67.223, 214.555, 25.729, 1.044)
pt3dadd(-67.342, 214.554, 25.74, 1.072)
pt3dadd(-67.461, 214.553, 25.751, 1.102)
pt3dadd(-67.58, 214.55, 25.762, 1.13)
}
dend_5[2] {pt3dclear()
pt3dadd(-67.58, 214.55, 25.762, 1.13)
pt3dadd(-67.581, 214.55, 25.762, 1.13)
pt3dadd(-67.701, 214.547, 25.762, 1.086)
pt3dadd(-67.821, 214.543, 25.762, 1.042)
pt3dadd(-67.941, 214.54, 25.762, 1)
pt3dadd(-68.061, 214.535, 25.762, 0.956)
pt3dadd(-68.181, 214.531, 25.762, 0.912)
pt3dadd(-68.3, 214.528, 25.762, 0.87)
pt3dadd(-68.42, 214.524, 25.762, 0.826)
pt3dadd(-68.54, 214.52, 25.762, 0.782)
pt3dadd(-68.66, 214.517, 25.762, 0.74)
pt3dadd(-68.78, 214.513, 25.762, 0.696)
pt3dadd(-68.9, 214.51, 25.762, 0.652)
pt3dadd(-69.02, 214.506, 25.762, 0.608)
pt3dadd(-69.14, 214.502, 25.762, 0.566)
pt3dadd(-69.26, 214.499, 25.762, 0.522)
pt3dadd(-69.38, 214.494, 25.762, 0.486)
pt3dadd(-69.5, 214.486, 25.762, 0.468)
pt3dadd(-69.619, 214.477, 25.762, 0.452)
pt3dadd(-69.739, 214.469, 25.762, 0.434)
pt3dadd(-69.859, 214.46, 25.762, 0.418)
pt3dadd(-69.978, 214.452, 25.762, 0.4)
pt3dadd(-70.098, 214.444, 25.762, 0.384)
pt3dadd(-70.218, 214.435, 25.762, 0.366)
pt3dadd(-70.338, 214.427, 25.762, 0.35)
pt3dadd(-70.457, 214.418, 25.762, 0.332)
pt3dadd(-70.577, 214.41, 25.762, 0.318)
pt3dadd(-70.696, 214.399, 25.762, 0.308)
pt3dadd(-70.816, 214.387, 25.762, 0.298)
pt3dadd(-70.935, 214.376, 25.761, 0.29)
pt3dadd(-71.055, 214.366, 25.761, 0.28)
pt3dadd(-71.174, 214.355, 25.761, 0.27)
pt3dadd(-71.294, 214.344, 25.761, 0.262)
pt3dadd(-71.413, 214.333, 25.761, 0.252)
pt3dadd(-71.533, 214.322, 25.761, 0.242)
pt3dadd(-71.652, 214.312, 25.761, 0.234)
pt3dadd(-71.772, 214.3, 25.761, 0.226)
pt3dadd(-71.891, 214.284, 25.761, 0.226)
pt3dadd(-72.01, 214.27, 25.761, 0.226)
pt3dadd(-72.129, 214.255, 25.761, 0.226)
pt3dadd(-72.248, 214.241, 25.761, 0.226)
pt3dadd(-72.367, 214.225, 25.761, 0.226)
pt3dadd(-72.486, 214.211, 25.761, 0.226)
pt3dadd(-72.605, 214.196, 25.761, 0.226)
pt3dadd(-72.725, 214.181, 25.761, 0.226)
pt3dadd(-72.844, 214.166, 25.761, 0.226)
pt3dadd(-72.961, 214.145, 25.761, 0.228)
pt3dadd(-73.075, 214.106, 25.761, 0.24)
pt3dadd(-73.188, 214.067, 25.761, 0.25)
pt3dadd(-73.301, 214.027, 25.761, 0.26)
pt3dadd(-73.415, 213.988, 25.761, 0.27)
pt3dadd(-73.528, 213.948, 25.761, 0.28)
pt3dadd(-73.641, 213.908, 25.761, 0.292)
pt3dadd(-73.755, 213.87, 25.761, 0.302)
pt3dadd(-73.868, 213.83, 25.761, 0.312)
pt3dadd(-73.981, 213.791, 25.761, 0.322)
pt3dadd(-74.094, 213.75, 25.761, 0.334)
pt3dadd(-74.205, 213.704, 25.76, 0.348)
pt3dadd(-74.316, 213.659, 25.76, 0.36)
pt3dadd(-74.428, 213.614, 25.76, 0.374)
pt3dadd(-74.539, 213.569, 25.76, 0.388)
pt3dadd(-74.65, 213.524, 25.76, 0.4)
pt3dadd(-74.761, 213.479, 25.76, 0.414)
pt3dadd(-74.872, 213.433, 25.76, 0.428)
pt3dadd(-74.984, 213.389, 25.76, 0.44)
pt3dadd(-75.095, 213.343, 25.76, 0.454)
pt3dadd(-75.207, 213.302, 25.76, 0.468)
pt3dadd(-75.323, 213.27, 25.76, 0.482)
pt3dadd(-75.438, 213.238, 25.76, 0.496)
pt3dadd(-75.554, 213.205, 25.76, 0.51)
pt3dadd(-75.669, 213.173, 25.759, 0.524)
pt3dadd(-75.785, 213.139, 25.759, 0.538)
pt3dadd(-75.9, 213.107, 25.759, 0.552)
pt3dadd(-76.016, 213.074, 25.759, 0.566)
pt3dadd(-76.131, 213.042, 25.759, 0.58)
pt3dadd(-76.247, 213.01, 25.759, 0.594)
pt3dadd(-76.363, 212.978, 25.758, 0.606)
pt3dadd(-76.479, 212.951, 25.758, 0.612)
pt3dadd(-76.596, 212.922, 25.758, 0.62)
pt3dadd(-76.713, 212.894, 25.758, 0.628)
pt3dadd(-76.829, 212.866, 25.758, 0.636)
pt3dadd(-76.946, 212.838, 25.758, 0.642)
pt3dadd(-77.063, 212.809, 25.757, 0.65)
pt3dadd(-77.179, 212.782, 25.757, 0.658)
pt3dadd(-77.296, 212.753, 25.757, 0.666)
pt3dadd(-77.412, 212.724, 25.757, 0.674)
pt3dadd(-77.529, 212.698, 25.756, 0.678)
pt3dadd(-77.647, 212.675, 25.756, 0.678)
pt3dadd(-77.765, 212.652, 25.756, 0.678)
pt3dadd(-77.883, 212.629, 25.755, 0.678)
pt3dadd(-78, 212.605, 25.755, 0.678)
pt3dadd(-78.118, 212.582, 25.755, 0.678)
pt3dadd(-78.236, 212.56, 25.755, 0.678)
pt3dadd(-78.354, 212.536, 25.754, 0.678)
pt3dadd(-78.471, 212.513, 25.754, 0.678)
pt3dadd(-78.589, 212.49, 25.754, 0.678)
pt3dadd(-78.707, 212.468, 25.753, 0.674)
pt3dadd(-78.826, 212.45, 25.753, 0.662)
pt3dadd(-78.945, 212.432, 25.752, 0.648)
pt3dadd(-79.063, 212.414, 25.752, 0.636)
pt3dadd(-79.182, 212.396, 25.751, 0.624)
pt3dadd(-79.3, 212.378, 25.75, 0.612)
pt3dadd(-79.419, 212.36, 25.75, 0.6)
pt3dadd(-79.538, 212.342, 25.749, 0.586)
pt3dadd(-79.656, 212.324, 25.748, 0.574)
pt3dadd(-79.775, 212.306, 25.748, 0.562)
pt3dadd(-79.893, 212.285, 25.747, 0.552)
pt3dadd(-80.01, 212.257, 25.746, 0.546)
pt3dadd(-80.127, 212.23, 25.745, 0.538)
pt3dadd(-80.243, 212.202, 25.745, 0.532)
pt3dadd(-80.36, 212.174, 25.744, 0.526)
pt3dadd(-80.477, 212.148, 25.743, 0.52)
pt3dadd(-80.594, 212.12, 25.742, 0.512)
pt3dadd(-80.711, 212.093, 25.741, 0.506)
pt3dadd(-80.827, 212.065, 25.74, 0.5)
pt3dadd(-80.944, 212.038, 25.74, 0.494)
pt3dadd(-81.057, 211.999, 25.739, 0.496)
pt3dadd(-81.166, 211.949, 25.737, 0.508)
pt3dadd(-81.274, 211.897, 25.736, 0.522)
pt3dadd(-81.383, 211.846, 25.735, 0.534)
pt3dadd(-81.492, 211.795, 25.733, 0.548)
pt3dadd(-81.6, 211.744, 25.732, 0.562)
pt3dadd(-81.708, 211.692, 25.731, 0.574)
pt3dadd(-81.817, 211.642, 25.73, 0.588)
pt3dadd(-81.925, 211.59, 25.728, 0.6)
pt3dadd(-82.034, 211.538, 25.727, 0.614)
pt3dadd(-82.143, 211.49, 25.725, 0.616)
pt3dadd(-82.254, 211.444, 25.723, 0.608)
pt3dadd(-82.365, 211.398, 25.721, 0.598)
pt3dadd(-82.476, 211.352, 25.719, 0.588)
pt3dadd(-82.587, 211.307, 25.717, 0.578)
pt3dadd(-82.698, 211.261, 25.715, 0.568)
pt3dadd(-82.809, 211.216, 25.712, 0.558)
pt3dadd(-82.92, 211.17, 25.71, 0.55)
pt3dadd(-83.031, 211.124, 25.708, 0.54)
pt3dadd(-83.142, 211.079, 25.706, 0.53)
pt3dadd(-83.254, 211.036, 25.704, 0.512)
pt3dadd(-83.366, 210.994, 25.701, 0.486)
pt3dadd(-83.479, 210.953, 25.698, 0.458)
pt3dadd(-83.592, 210.912, 25.695, 0.43)
pt3dadd(-83.704, 210.87, 25.693, 0.404)
pt3dadd(-83.817, 210.829, 25.69, 0.376)
pt3dadd(-83.93, 210.787, 25.687, 0.35)
pt3dadd(-84.042, 210.746, 25.684, 0.322)
pt3dadd(-84.155, 210.706, 25.682, 0.294)
pt3dadd(-84.267, 210.664, 25.679, 0.268)
pt3dadd(-84.378, 210.617, 25.675, 0.262)
pt3dadd(-84.484, 210.563, 25.669, 0.282)
pt3dadd(-84.591, 210.509, 25.663, 0.302)
pt3dadd(-84.698, 210.455, 25.657, 0.324)
pt3dadd(-84.805, 210.401, 25.651, 0.344)
pt3dadd(-84.912, 210.347, 25.645, 0.364)
pt3dadd(-85.019, 210.293, 25.639, 0.384)
pt3dadd(-85.126, 210.24, 25.633, 0.406)
pt3dadd(-85.233, 210.186, 25.627, 0.426)
pt3dadd(-85.34, 210.132, 25.621, 0.446)
pt3dadd(-85.448, 210.079, 25.614, 0.47)
pt3dadd(-85.555, 210.026, 25.607, 0.498)
pt3dadd(-85.663, 209.975, 25.6, 0.526)
pt3dadd(-85.771, 209.923, 25.593, 0.554)
pt3dadd(-85.879, 209.872, 25.586, 0.582)
pt3dadd(-85.987, 209.819, 25.579, 0.61)
pt3dadd(-86.095, 209.767, 25.571, 0.638)
pt3dadd(-86.203, 209.716, 25.564, 0.666)
pt3dadd(-86.31, 209.664, 25.557, 0.694)
pt3dadd(-86.418, 209.611, 25.55, 0.722)
pt3dadd(-86.53, 209.57, 25.541, 0.758)
pt3dadd(-86.645, 209.54, 25.529, 0.8)
pt3dadd(-86.76, 209.51, 25.518, 0.84)
pt3dadd(-86.876, 209.48, 25.506, 0.882)
pt3dadd(-86.991, 209.45, 25.495, 0.924)
pt3dadd(-87.107, 209.419, 25.483, 0.966)
pt3dadd(-87.222, 209.389, 25.472, 1.008)
pt3dadd(-87.337, 209.359, 25.46, 1.05)
pt3dadd(-87.453, 209.329, 25.449, 1.092)
pt3dadd(-87.568, 209.299, 25.437, 1.134)
}
}
proc shape3d_12() {
dend_5[2] { pt3dadd(-87.682, 209.273, 25.419, 1.152)
pt3dadd(-87.796, 209.25, 25.394, 1.144)
pt3dadd(-87.91, 209.227, 25.368, 1.136)
pt3dadd(-88.024, 209.203, 25.343, 1.128)
pt3dadd(-88.138, 209.18, 25.318, 1.12)
pt3dadd(-88.251, 209.158, 25.292, 1.112)
pt3dadd(-88.365, 209.135, 25.267, 1.104)
pt3dadd(-88.479, 209.112, 25.242, 1.096)
pt3dadd(-88.593, 209.089, 25.216, 1.088)
pt3dadd(-88.707, 209.066, 25.191, 1.08)
pt3dadd(-88.818, 209.047, 25.158, 1.046)
pt3dadd(-88.928, 209.032, 25.121, 0.992)
pt3dadd(-89.038, 209.016, 25.083, 0.94)
pt3dadd(-89.148, 209, 25.046, 0.886)
pt3dadd(-89.259, 208.985, 25.008, 0.832)
pt3dadd(-89.369, 208.969, 24.971, 0.778)
pt3dadd(-89.479, 208.954, 24.933, 0.726)
pt3dadd(-89.589, 208.938, 24.895, 0.672)
pt3dadd(-89.699, 208.922, 24.858, 0.618)
pt3dadd(-89.809, 208.907, 24.82, 0.564)
pt3dadd(-89.922, 208.895, 24.789, 0.544)
pt3dadd(-90.037, 208.885, 24.761, 0.546)
pt3dadd(-90.152, 208.876, 24.733, 0.55)
pt3dadd(-90.267, 208.866, 24.706, 0.552)
pt3dadd(-90.382, 208.856, 24.678, 0.556)
pt3dadd(-90.497, 208.847, 24.651, 0.558)
pt3dadd(-90.612, 208.837, 24.623, 0.56)
pt3dadd(-90.727, 208.826, 24.595, 0.562)
pt3dadd(-90.841, 208.817, 24.568, 0.566)
pt3dadd(-90.956, 208.807, 24.54, 0.568)
pt3dadd(-91.072, 208.798, 24.515, 0.572)
pt3dadd(-91.189, 208.788, 24.492, 0.576)
pt3dadd(-91.305, 208.777, 24.469, 0.58)
pt3dadd(-91.421, 208.768, 24.446, 0.584)
pt3dadd(-91.538, 208.758, 24.424, 0.588)
pt3dadd(-91.654, 208.747, 24.401, 0.592)
pt3dadd(-91.77, 208.738, 24.378, 0.596)
pt3dadd(-91.887, 208.728, 24.355, 0.6)
pt3dadd(-92.003, 208.717, 24.332, 0.604)
pt3dadd(-92.12, 208.708, 24.309, 0.608)
pt3dadd(-92.237, 208.694, 24.292, 0.592)
pt3dadd(-92.355, 208.68, 24.278, 0.562)
pt3dadd(-92.473, 208.666, 24.263, 0.532)
pt3dadd(-92.591, 208.651, 24.249, 0.504)
pt3dadd(-92.709, 208.637, 24.235, 0.474)
pt3dadd(-92.826, 208.621, 24.221, 0.444)
pt3dadd(-92.944, 208.607, 24.207, 0.416)
pt3dadd(-93.062, 208.592, 24.193, 0.386)
pt3dadd(-93.18, 208.578, 24.179, 0.358)
pt3dadd(-93.298, 208.564, 24.165, 0.328)
pt3dadd(-93.413, 208.534, 24.153, 0.324)
pt3dadd(-93.526, 208.495, 24.144, 0.334)
pt3dadd(-93.639, 208.458, 24.135, 0.344)
pt3dadd(-93.753, 208.42, 24.126, 0.356)
pt3dadd(-93.866, 208.381, 24.116, 0.366)
pt3dadd(-93.979, 208.343, 24.107, 0.376)
pt3dadd(-94.092, 208.304, 24.098, 0.388)
pt3dadd(-94.205, 208.266, 24.089, 0.398)
pt3dadd(-94.318, 208.228, 24.08, 0.408)
pt3dadd(-94.432, 208.189, 24.07, 0.42)
pt3dadd(-94.543, 208.145, 24.062, 0.438)
pt3dadd(-94.653, 208.098, 24.055, 0.46)
pt3dadd(-94.763, 208.051, 24.047, 0.484)
pt3dadd(-94.873, 208.003, 24.04, 0.506)
pt3dadd(-94.983, 207.956, 24.032, 0.528)
pt3dadd(-95.093, 207.91, 24.025, 0.55)
pt3dadd(-95.203, 207.863, 24.017, 0.574)
pt3dadd(-95.313, 207.815, 24.01, 0.596)
pt3dadd(-95.423, 207.768, 24.003, 0.618)
pt3dadd(-95.533, 207.721, 23.995, 0.64)
pt3dadd(-95.646, 207.683, 23.984, 0.624)
pt3dadd(-95.76, 207.648, 23.972, 0.594)
pt3dadd(-95.873, 207.613, 23.959, 0.562)
pt3dadd(-95.987, 207.58, 23.946, 0.532)
pt3dadd(-96.101, 207.545, 23.934, 0.5)
pt3dadd(-96.215, 207.51, 23.921, 0.47)
pt3dadd(-96.329, 207.475, 23.909, 0.438)
pt3dadd(-96.443, 207.44, 23.896, 0.408)
pt3dadd(-96.557, 207.406, 23.884, 0.376)
pt3dadd(-96.671, 207.371, 23.872, 0.344)
pt3dadd(-96.779, 207.34, 23.839, 0.374)
pt3dadd(-96.884, 207.311, 23.799, 0.428)
pt3dadd(-96.99, 207.281, 23.758, 0.482)
pt3dadd(-97.096, 207.251, 23.718, 0.536)
pt3dadd(-97.201, 207.222, 23.677, 0.588)
pt3dadd(-97.307, 207.192, 23.637, 0.642)
pt3dadd(-97.413, 207.162, 23.596, 0.696)
pt3dadd(-97.518, 207.133, 23.556, 0.75)
pt3dadd(-97.624, 207.103, 23.516, 0.804)
pt3dadd(-97.73, 207.073, 23.475, 0.856)
pt3dadd(-97.836, 207.052, 23.432, 0.89)
pt3dadd(-97.942, 207.031, 23.389, 0.922)
pt3dadd(-98.048, 207.01, 23.346, 0.954)
pt3dadd(-98.155, 206.989, 23.303, 0.986)
pt3dadd(-98.261, 206.968, 23.26, 1.018)
pt3dadd(-98.367, 206.946, 23.216, 1.05)
pt3dadd(-98.473, 206.926, 23.173, 1.082)
pt3dadd(-98.579, 206.904, 23.13, 1.114)
pt3dadd(-98.685, 206.884, 23.087, 1.146)
pt3dadd(-98.792, 206.862, 23.045, 1.176)
pt3dadd(-98.906, 206.843, 23.018, 1.144)
pt3dadd(-99.02, 206.825, 22.992, 1.114)
pt3dadd(-99.135, 206.806, 22.965, 1.082)
pt3dadd(-99.249, 206.786, 22.939, 1.05)
pt3dadd(-99.363, 206.767, 22.913, 1.02)
pt3dadd(-99.477, 206.749, 22.886, 0.988)
pt3dadd(-99.591, 206.73, 22.86, 0.956)
pt3dadd(-99.706, 206.711, 22.834, 0.926)
pt3dadd(-99.82, 206.692, 22.807, 0.894)
pt3dadd(-99.934, 206.672, 22.782, 0.864)
pt3dadd(-100.05, 206.646, 22.77, 0.848)
pt3dadd(-100.166, 206.618, 22.758, 0.832)
pt3dadd(-100.282, 206.592, 22.746, 0.816)
pt3dadd(-100.398, 206.564, 22.734, 0.8)
pt3dadd(-100.514, 206.538, 22.722, 0.786)
pt3dadd(-100.63, 206.512, 22.71, 0.77)
pt3dadd(-100.746, 206.484, 22.698, 0.754)
pt3dadd(-100.863, 206.458, 22.685, 0.738)
pt3dadd(-100.979, 206.43, 22.673, 0.722)
pt3dadd(-101.094, 206.401, 22.662, 0.706)
pt3dadd(-101.202, 206.348, 22.66, 0.682)
pt3dadd(-101.309, 206.296, 22.658, 0.658)
pt3dadd(-101.417, 206.243, 22.655, 0.634)
pt3dadd(-101.525, 206.19, 22.653, 0.612)
pt3dadd(-101.633, 206.137, 22.651, 0.588)
pt3dadd(-101.74, 206.084, 22.648, 0.564)
pt3dadd(-101.848, 206.032, 22.646, 0.54)
pt3dadd(-101.956, 205.979, 22.644, 0.516)
pt3dadd(-102.063, 205.926, 22.641, 0.492)
pt3dadd(-102.171, 205.872, 22.64, 0.47)
pt3dadd(-102.275, 205.814, 22.64, 0.444)
pt3dadd(-102.38, 205.756, 22.64, 0.42)
pt3dadd(-102.485, 205.697, 22.64, 0.396)
pt3dadd(-102.59, 205.638, 22.64, 0.37)
pt3dadd(-102.694, 205.579, 22.64, 0.346)
pt3dadd(-102.799, 205.52, 22.64, 0.32)
pt3dadd(-102.904, 205.463, 22.64, 0.296)
pt3dadd(-103.008, 205.404, 22.64, 0.272)
pt3dadd(-103.113, 205.345, 22.64, 0.246)
pt3dadd(-103.217, 205.284, 22.64, 0.226)
pt3dadd(-103.313, 205.213, 22.64, 0.226)
pt3dadd(-103.409, 205.141, 22.64, 0.226)
pt3dadd(-103.506, 205.07, 22.64, 0.226)
pt3dadd(-103.602, 204.998, 22.64, 0.226)
pt3dadd(-103.698, 204.926, 22.64, 0.226)
pt3dadd(-103.795, 204.856, 22.64, 0.226)
pt3dadd(-103.891, 204.784, 22.64, 0.226)
pt3dadd(-103.988, 204.713, 22.64, 0.226)
pt3dadd(-104.084, 204.641, 22.64, 0.226)
pt3dadd(-104.181, 204.57, 22.64, 0.226)
pt3dadd(-104.278, 204.499, 22.64, 0.226)
pt3dadd(-104.375, 204.43, 22.64, 0.226)
pt3dadd(-104.472, 204.359, 22.64, 0.226)
pt3dadd(-104.57, 204.289, 22.64, 0.226)
pt3dadd(-104.667, 204.218, 22.64, 0.226)
pt3dadd(-104.764, 204.148, 22.64, 0.226)
pt3dadd(-104.861, 204.078, 22.64, 0.226)
pt3dadd(-104.959, 204.007, 22.64, 0.226)
pt3dadd(-105.056, 203.938, 22.64, 0.226)
pt3dadd(-105.155, 203.869, 22.64, 0.226)
pt3dadd(-105.261, 203.814, 22.64, 0.226)
pt3dadd(-105.368, 203.759, 22.64, 0.226)
pt3dadd(-105.474, 203.702, 22.64, 0.226)
pt3dadd(-105.58, 203.647, 22.64, 0.226)
pt3dadd(-105.687, 203.592, 22.641, 0.226)
pt3dadd(-105.793, 203.536, 22.641, 0.226)
pt3dadd(-105.899, 203.48, 22.641, 0.226)
pt3dadd(-106.006, 203.425, 22.641, 0.226)
pt3dadd(-106.112, 203.369, 22.641, 0.226)
pt3dadd(-106.218, 203.314, 22.641, 0.226)
pt3dadd(-106.323, 203.255, 22.641, 0.226)
pt3dadd(-106.428, 203.197, 22.641, 0.226)
pt3dadd(-106.533, 203.138, 22.641, 0.226)
pt3dadd(-106.638, 203.081, 22.641, 0.226)
pt3dadd(-106.743, 203.022, 22.641, 0.226)
pt3dadd(-106.848, 202.964, 22.641, 0.226)
pt3dadd(-106.953, 202.906, 22.641, 0.226)
pt3dadd(-107.058, 202.848, 22.642, 0.226)
pt3dadd(-107.163, 202.789, 22.642, 0.226)
pt3dadd(-107.267, 202.73, 22.642, 0.226)
pt3dadd(-107.369, 202.667, 22.642, 0.226)
pt3dadd(-107.471, 202.603, 22.642, 0.226)
pt3dadd(-107.572, 202.54, 22.642, 0.226)
pt3dadd(-107.674, 202.476, 22.642, 0.226)
pt3dadd(-107.776, 202.412, 22.642, 0.226)
pt3dadd(-107.878, 202.349, 22.642, 0.226)
pt3dadd(-107.98, 202.285, 22.643, 0.226)
pt3dadd(-108.081, 202.223, 22.643, 0.226)
pt3dadd(-108.183, 202.159, 22.643, 0.226)
pt3dadd(-108.286, 202.097, 22.643, 0.228)
pt3dadd(-108.391, 202.039, 22.643, 0.242)
pt3dadd(-108.497, 201.982, 22.643, 0.254)
pt3dadd(-108.602, 201.925, 22.644, 0.266)
pt3dadd(-108.708, 201.868, 22.644, 0.28)
pt3dadd(-108.813, 201.81, 22.644, 0.292)
pt3dadd(-108.919, 201.752, 22.644, 0.306)
pt3dadd(-109.024, 201.696, 22.645, 0.318)
pt3dadd(-109.13, 201.638, 22.645, 0.33)
pt3dadd(-109.235, 201.581, 22.645, 0.344)
pt3dadd(-109.341, 201.526, 22.645, 0.36)
}
}
proc shape3d_13() {
dend_5[2] { pt3dadd(-109.45, 201.475, 22.646, 0.386)
pt3dadd(-109.559, 201.425, 22.646, 0.412)
pt3dadd(-109.668, 201.374, 22.646, 0.438)
pt3dadd(-109.777, 201.324, 22.646, 0.464)
pt3dadd(-109.886, 201.274, 22.647, 0.492)
pt3dadd(-109.995, 201.223, 22.647, 0.518)
pt3dadd(-110.104, 201.174, 22.647, 0.544)
pt3dadd(-110.213, 201.124, 22.648, 0.57)
pt3dadd(-110.322, 201.073, 22.648, 0.596)
pt3dadd(-110.429, 201.02, 22.648, 0.616)
pt3dadd(-110.531, 200.956, 22.649, 0.602)
pt3dadd(-110.632, 200.892, 22.649, 0.59)
pt3dadd(-110.733, 200.827, 22.65, 0.578)
pt3dadd(-110.835, 200.762, 22.65, 0.564)
pt3dadd(-110.936, 200.699, 22.651, 0.552)
pt3dadd(-111.037, 200.634, 22.651, 0.54)
pt3dadd(-111.139, 200.57, 22.652, 0.528)
pt3dadd(-111.24, 200.506, 22.652, 0.514)
pt3dadd(-111.341, 200.442, 22.653, 0.502)
pt3dadd(-111.442, 200.377, 22.653, 0.486)
pt3dadd(-111.541, 200.309, 22.654, 0.462)
pt3dadd(-111.64, 200.24, 22.655, 0.438)
pt3dadd(-111.738, 200.172, 22.655, 0.414)
pt3dadd(-111.837, 200.104, 22.656, 0.39)
pt3dadd(-111.936, 200.036, 22.656, 0.366)
pt3dadd(-112.035, 199.968, 22.657, 0.342)
pt3dadd(-112.134, 199.9, 22.657, 0.318)
pt3dadd(-112.232, 199.831, 22.658, 0.294)
pt3dadd(-112.331, 199.763, 22.659, 0.27)
pt3dadd(-112.429, 199.694, 22.659, 0.258)
pt3dadd(-112.524, 199.62, 22.66, 0.286)
pt3dadd(-112.618, 199.547, 22.662, 0.314)
pt3dadd(-112.713, 199.472, 22.663, 0.344)
pt3dadd(-112.808, 199.399, 22.664, 0.372)
pt3dadd(-112.902, 199.325, 22.665, 0.4)
pt3dadd(-112.997, 199.252, 22.666, 0.43)
pt3dadd(-113.092, 199.178, 22.668, 0.458)
pt3dadd(-113.186, 199.104, 22.669, 0.488)
pt3dadd(-113.281, 199.031, 22.67, 0.516)
pt3dadd(-113.376, 198.956, 22.671, 0.546)
pt3dadd(-113.47, 198.882, 22.672, 0.58)
pt3dadd(-113.564, 198.808, 22.674, 0.616)
pt3dadd(-113.658, 198.733, 22.675, 0.65)
pt3dadd(-113.752, 198.659, 22.676, 0.686)
pt3dadd(-113.846, 198.584, 22.677, 0.72)
pt3dadd(-113.941, 198.51, 22.679, 0.756)
pt3dadd(-114.035, 198.436, 22.68, 0.79)
pt3dadd(-114.129, 198.361, 22.681, 0.824)
pt3dadd(-114.223, 198.287, 22.682, 0.86)
pt3dadd(-114.319, 198.215, 22.684, 0.878)
pt3dadd(-114.42, 198.15, 22.687, 0.844)
pt3dadd(-114.521, 198.086, 22.69, 0.81)
pt3dadd(-114.622, 198.022, 22.692, 0.774)
pt3dadd(-114.724, 197.958, 22.695, 0.74)
pt3dadd(-114.825, 197.893, 22.698, 0.704)
pt3dadd(-114.926, 197.828, 22.701, 0.67)
pt3dadd(-115.027, 197.765, 22.703, 0.634)
pt3dadd(-115.129, 197.7, 22.706, 0.6)
pt3dadd(-115.23, 197.636, 22.709, 0.564)
pt3dadd(-115.331, 197.57, 22.712, 0.53)
pt3dadd(-115.431, 197.504, 22.715, 0.5)
pt3dadd(-115.53, 197.438, 22.719, 0.468)
pt3dadd(-115.63, 197.371, 22.722, 0.436)
pt3dadd(-115.73, 197.305, 22.726, 0.406)
pt3dadd(-115.83, 197.239, 22.729, 0.374)
pt3dadd(-115.93, 197.172, 22.733, 0.344)
pt3dadd(-116.03, 197.106, 22.736, 0.312)
pt3dadd(-116.129, 197.039, 22.74, 0.28)
pt3dadd(-116.229, 196.973, 22.743, 0.25)
pt3dadd(-116.327, 196.903, 22.748, 0.226)
pt3dadd(-116.419, 196.826, 22.754, 0.226)
pt3dadd(-116.51, 196.75, 22.761, 0.226)
pt3dadd(-116.602, 196.673, 22.767, 0.226)
pt3dadd(-116.693, 196.595, 22.774, 0.226)
pt3dadd(-116.785, 196.518, 22.781, 0.226)
pt3dadd(-116.876, 196.441, 22.787, 0.226)
pt3dadd(-116.968, 196.363, 22.794, 0.226)
pt3dadd(-117.06, 196.286, 22.8, 0.226)
pt3dadd(-117.151, 196.21, 22.807, 0.226)
pt3dadd(-117.242, 196.132, 22.814, 0.23)
pt3dadd(-117.329, 196.049, 22.822, 0.242)
pt3dadd(-117.416, 195.967, 22.83, 0.256)
pt3dadd(-117.504, 195.886, 22.839, 0.268)
pt3dadd(-117.591, 195.804, 22.847, 0.282)
pt3dadd(-117.678, 195.722, 22.855, 0.296)
pt3dadd(-117.766, 195.641, 22.863, 0.308)
pt3dadd(-117.853, 195.559, 22.871, 0.322)
pt3dadd(-117.941, 195.478, 22.88, 0.334)
pt3dadd(-118.028, 195.396, 22.888, 0.348)
pt3dadd(-118.113, 195.313, 22.897, 0.368)
pt3dadd(-118.193, 195.224, 22.908, 0.404)
pt3dadd(-118.273, 195.134, 22.919, 0.44)
pt3dadd(-118.352, 195.046, 22.93, 0.476)
pt3dadd(-118.432, 194.957, 22.941, 0.512)
pt3dadd(-118.511, 194.868, 22.951, 0.548)
pt3dadd(-118.591, 194.779, 22.962, 0.584)
pt3dadd(-118.671, 194.69, 22.973, 0.622)
pt3dadd(-118.75, 194.602, 22.984, 0.658)
pt3dadd(-118.83, 194.513, 22.995, 0.694)
pt3dadd(-118.905, 194.422, 23.01, 0.72)
pt3dadd(-118.97, 194.324, 23.034, 0.72)
pt3dadd(-119.034, 194.227, 23.058, 0.72)
pt3dadd(-119.098, 194.13, 23.082, 0.72)
pt3dadd(-119.162, 194.033, 23.106, 0.72)
pt3dadd(-119.226, 193.936, 23.13, 0.72)
pt3dadd(-119.29, 193.838, 23.154, 0.722)
pt3dadd(-119.354, 193.741, 23.179, 0.722)
pt3dadd(-119.418, 193.644, 23.203, 0.722)
pt3dadd(-119.483, 193.547, 23.227, 0.722)
pt3dadd(-119.538, 193.448, 23.257, 0.704)
pt3dadd(-119.584, 193.346, 23.293, 0.668)
pt3dadd(-119.629, 193.244, 23.33, 0.63)
pt3dadd(-119.675, 193.142, 23.367, 0.594)
pt3dadd(-119.721, 193.04, 23.403, 0.556)
pt3dadd(-119.766, 192.938, 23.44, 0.52)
pt3dadd(-119.812, 192.836, 23.477, 0.482)
pt3dadd(-119.858, 192.734, 23.514, 0.446)
pt3dadd(-119.903, 192.632, 23.55, 0.408)
pt3dadd(-119.949, 192.532, 23.587, 0.372)
pt3dadd(-119.99, 192.426, 23.622, 0.346)
pt3dadd(-120.024, 192.318, 23.654, 0.334)
pt3dadd(-120.06, 192.21, 23.686, 0.32)
pt3dadd(-120.095, 192.102, 23.719, 0.308)
pt3dadd(-120.13, 191.994, 23.751, 0.296)
pt3dadd(-120.164, 191.886, 23.783, 0.282)
pt3dadd(-120.2, 191.778, 23.815, 0.27)
pt3dadd(-120.235, 191.67, 23.848, 0.258)
pt3dadd(-120.27, 191.562, 23.88, 0.244)
pt3dadd(-120.305, 191.454, 23.912, 0.232)
pt3dadd(-120.337, 191.345, 23.943, 0.226)
pt3dadd(-120.367, 191.234, 23.973, 0.226)
pt3dadd(-120.396, 191.123, 24.003, 0.226)
pt3dadd(-120.426, 191.012, 24.033, 0.226)
pt3dadd(-120.455, 190.902, 24.062, 0.226)
pt3dadd(-120.485, 190.792, 24.092, 0.226)
pt3dadd(-120.514, 190.68, 24.122, 0.226)
pt3dadd(-120.544, 190.57, 24.152, 0.226)
pt3dadd(-120.572, 190.459, 24.182, 0.226)
pt3dadd(-120.602, 190.349, 24.212, 0.226)
pt3dadd(-120.642, 190.241, 24.237, 0.226)
pt3dadd(-120.694, 190.135, 24.258, 0.226)
pt3dadd(-120.746, 190.03, 24.279, 0.226)
pt3dadd(-120.798, 189.924, 24.3, 0.226)
pt3dadd(-120.85, 189.82, 24.321, 0.226)
pt3dadd(-120.901, 189.714, 24.343, 0.226)
pt3dadd(-120.953, 189.608, 24.364, 0.226)
pt3dadd(-121.004, 189.504, 24.385, 0.226)
pt3dadd(-121.056, 189.398, 24.406, 0.226)
pt3dadd(-121.108, 189.293, 24.427, 0.226)
pt3dadd(-121.159, 189.187, 24.45, 0.228)
pt3dadd(-121.21, 189.083, 24.475, 0.23)
pt3dadd(-121.259, 188.978, 24.499, 0.234)
pt3dadd(-121.309, 188.873, 24.524, 0.236)
pt3dadd(-121.36, 188.768, 24.549, 0.238)
pt3dadd(-121.409, 188.663, 24.573, 0.242)
pt3dadd(-121.459, 188.558, 24.598, 0.244)
pt3dadd(-121.51, 188.453, 24.622, 0.248)
pt3dadd(-121.56, 188.348, 24.647, 0.25)
pt3dadd(-121.609, 188.243, 24.672, 0.254)
pt3dadd(-121.656, 188.14, 24.703, 0.262)
pt3dadd(-121.698, 188.036, 24.74, 0.274)
pt3dadd(-121.741, 187.933, 24.777, 0.288)
pt3dadd(-121.783, 187.83, 24.814, 0.3)
pt3dadd(-121.825, 187.727, 24.851, 0.312)
pt3dadd(-121.868, 187.624, 24.888, 0.326)
pt3dadd(-121.91, 187.52, 24.925, 0.338)
pt3dadd(-121.954, 187.418, 24.962, 0.352)
pt3dadd(-121.996, 187.315, 24.999, 0.364)
pt3dadd(-122.039, 187.212, 25.037, 0.378)
pt3dadd(-122.086, 187.11, 25.071, 0.384)
pt3dadd(-122.138, 187.009, 25.102, 0.384)
pt3dadd(-122.191, 186.907, 25.134, 0.386)
pt3dadd(-122.243, 186.806, 25.165, 0.386)
pt3dadd(-122.296, 186.706, 25.197, 0.388)
pt3dadd(-122.348, 186.605, 25.228, 0.388)
pt3dadd(-122.4, 186.503, 25.26, 0.39)
pt3dadd(-122.453, 186.402, 25.291, 0.39)
pt3dadd(-122.504, 186.301, 25.323, 0.392)
pt3dadd(-122.557, 186.2, 25.354, 0.392)
pt3dadd(-122.616, 186.101, 25.382, 0.386)
pt3dadd(-122.68, 186.004, 25.407, 0.372)
pt3dadd(-122.742, 185.905, 25.432, 0.36)
pt3dadd(-122.806, 185.808, 25.457, 0.348)
pt3dadd(-122.869, 185.711, 25.481, 0.334)
pt3dadd(-122.933, 185.614, 25.506, 0.322)
pt3dadd(-122.995, 185.515, 25.531, 0.308)
pt3dadd(-123.059, 185.418, 25.556, 0.296)
pt3dadd(-123.122, 185.321, 25.581, 0.284)
pt3dadd(-123.185, 185.222, 25.605, 0.27)
pt3dadd(-123.242, 185.122, 25.628, 0.288)
pt3dadd(-123.296, 185.017, 25.65, 0.324)
pt3dadd(-123.349, 184.913, 25.672, 0.362)
pt3dadd(-123.402, 184.808, 25.693, 0.398)
pt3dadd(-123.456, 184.704, 25.715, 0.436)
pt3dadd(-123.509, 184.6, 25.736, 0.474)
pt3dadd(-123.562, 184.495, 25.758, 0.51)
pt3dadd(-123.616, 184.391, 25.78, 0.548)
pt3dadd(-123.668, 184.286, 25.801, 0.584)
pt3dadd(-123.722, 184.182, 25.823, 0.622)
pt3dadd(-123.776, 184.078, 25.843, 0.662)
}
}
proc shape3d_14() {
dend_5[2] { pt3dadd(-123.832, 183.974, 25.863, 0.702)
pt3dadd(-123.887, 183.87, 25.883, 0.744)
pt3dadd(-123.943, 183.767, 25.903, 0.784)
pt3dadd(-123.998, 183.664, 25.923, 0.826)
pt3dadd(-124.054, 183.559, 25.942, 0.866)
pt3dadd(-124.109, 183.456, 25.962, 0.908)
pt3dadd(-124.164, 183.352, 25.982, 0.948)
pt3dadd(-124.219, 183.248, 26.002, 0.99)
pt3dadd(-124.274, 183.144, 26.022, 1.03)
pt3dadd(-124.351, 183.056, 26.04, 1.006)
pt3dadd(-124.436, 182.974, 26.058, 0.954)
pt3dadd(-124.52, 182.891, 26.075, 0.902)
pt3dadd(-124.606, 182.809, 26.092, 0.85)
pt3dadd(-124.691, 182.726, 26.11, 0.798)
pt3dadd(-124.776, 182.645, 26.127, 0.744)
pt3dadd(-124.86, 182.562, 26.145, 0.692)
pt3dadd(-124.945, 182.48, 26.162, 0.64)
pt3dadd(-125.03, 182.398, 26.18, 0.588)
pt3dadd(-125.114, 182.316, 26.197, 0.536)
pt3dadd(-125.179, 182.228, 26.236, 0.526)
pt3dadd(-125.234, 182.138, 26.284, 0.534)
pt3dadd(-125.29, 182.048, 26.331, 0.54)
pt3dadd(-125.346, 181.96, 26.379, 0.546)
pt3dadd(-125.401, 181.87, 26.427, 0.554)
pt3dadd(-125.456, 181.78, 26.474, 0.56)
pt3dadd(-125.512, 181.69, 26.522, 0.568)
pt3dadd(-125.567, 181.601, 26.57, 0.574)
pt3dadd(-125.623, 181.511, 26.617, 0.582)
pt3dadd(-125.678, 181.421, 26.665, 0.588)
pt3dadd(-125.735, 181.33, 26.711, 0.596)
pt3dadd(-125.791, 181.24, 26.756, 0.606)
pt3dadd(-125.849, 181.148, 26.801, 0.614)
pt3dadd(-125.905, 181.057, 26.846, 0.624)
pt3dadd(-125.963, 180.967, 26.891, 0.632)
pt3dadd(-126.019, 180.876, 26.936, 0.642)
pt3dadd(-126.076, 180.785, 26.981, 0.65)
pt3dadd(-126.133, 180.695, 27.026, 0.66)
pt3dadd(-126.19, 180.604, 27.071, 0.668)
pt3dadd(-126.246, 180.512, 27.116, 0.676)
pt3dadd(-126.311, 180.421, 27.153, 0.678)
pt3dadd(-126.376, 180.33, 27.189, 0.678)
pt3dadd(-126.44, 180.239, 27.225, 0.678)
pt3dadd(-126.505, 180.148, 27.261, 0.678)
pt3dadd(-126.57, 180.056, 27.297, 0.678)
pt3dadd(-126.635, 179.965, 27.333, 0.678)
pt3dadd(-126.7, 179.874, 27.369, 0.678)
pt3dadd(-126.764, 179.783, 27.405, 0.678)
pt3dadd(-126.829, 179.692, 27.441, 0.678)
pt3dadd(-126.894, 179.6, 27.477, 0.678)
pt3dadd(-126.946, 179.514, 27.532, 0.704)
pt3dadd(-126.995, 179.429, 27.589, 0.732)
pt3dadd(-127.044, 179.344, 27.646, 0.762)
pt3dadd(-127.094, 179.258, 27.703, 0.792)
pt3dadd(-127.144, 179.173, 27.76, 0.82)
pt3dadd(-127.194, 179.089, 27.817, 0.85)
pt3dadd(-127.243, 179.004, 27.874, 0.878)
pt3dadd(-127.292, 178.919, 27.931, 0.908)
pt3dadd(-127.343, 178.834, 27.988, 0.936)
pt3dadd(-127.392, 178.748, 28.045, 0.966)
pt3dadd(-127.435, 178.651, 28.092, 0.948)
pt3dadd(-127.478, 178.554, 28.137, 0.928)
pt3dadd(-127.522, 178.456, 28.183, 0.908)
pt3dadd(-127.565, 178.358, 28.229, 0.888)
pt3dadd(-127.608, 178.26, 28.274, 0.868)
pt3dadd(-127.65, 178.163, 28.32, 0.848)
pt3dadd(-127.693, 178.064, 28.366, 0.828)
pt3dadd(-127.736, 177.967, 28.411, 0.808)
pt3dadd(-127.78, 177.87, 28.457, 0.788)
pt3dadd(-127.822, 177.77, 28.501, 0.764)
pt3dadd(-127.865, 177.664, 28.528, 0.71)
pt3dadd(-127.907, 177.556, 28.555, 0.654)
pt3dadd(-127.949, 177.449, 28.582, 0.6)
pt3dadd(-127.992, 177.341, 28.609, 0.546)
pt3dadd(-128.034, 177.233, 28.636, 0.49)
pt3dadd(-128.076, 177.126, 28.663, 0.436)
pt3dadd(-128.118, 177.018, 28.69, 0.382)
pt3dadd(-128.161, 176.911, 28.717, 0.328)
pt3dadd(-128.203, 176.803, 28.744, 0.272)
pt3dadd(-128.248, 176.696, 28.769, 0.226)
pt3dadd(-128.305, 176.592, 28.782, 0.226)
pt3dadd(-128.363, 176.488, 28.795, 0.226)
pt3dadd(-128.42, 176.384, 28.808, 0.226)
pt3dadd(-128.478, 176.28, 28.821, 0.226)
pt3dadd(-128.536, 176.176, 28.834, 0.226)
pt3dadd(-128.593, 176.071, 28.847, 0.226)
pt3dadd(-128.651, 175.968, 28.86, 0.226)
pt3dadd(-128.708, 175.864, 28.873, 0.226)
pt3dadd(-128.766, 175.759, 28.886, 0.226)
pt3dadd(-128.822, 175.655, 28.898, 0.226)
pt3dadd(-128.872, 175.546, 28.905, 0.226)
pt3dadd(-128.922, 175.436, 28.913, 0.226)
pt3dadd(-128.971, 175.328, 28.921, 0.226)
pt3dadd(-129.022, 175.219, 28.928, 0.226)
pt3dadd(-129.071, 175.11, 28.936, 0.226)
pt3dadd(-129.12, 175.001, 28.944, 0.226)
pt3dadd(-129.17, 174.893, 28.951, 0.226)
pt3dadd(-129.22, 174.784, 28.959, 0.226)
pt3dadd(-129.27, 174.674, 28.967, 0.226)
pt3dadd(-129.318, 174.565, 28.974, 0.226)
pt3dadd(-129.364, 174.455, 28.979, 0.226)
pt3dadd(-129.408, 174.343, 28.983, 0.226)
pt3dadd(-129.454, 174.232, 28.988, 0.226)
pt3dadd(-129.498, 174.121, 28.993, 0.226)
pt3dadd(-129.542, 174.01, 28.998, 0.226)
pt3dadd(-129.588, 173.899, 29.002, 0.226)
pt3dadd(-129.632, 173.788, 29.007, 0.226)
pt3dadd(-129.678, 173.676, 29.012, 0.226)
pt3dadd(-129.722, 173.566, 29.016, 0.226)
pt3dadd(-129.77, 173.455, 29.021, 0.232)
pt3dadd(-129.833, 173.353, 29.028, 0.272)
pt3dadd(-129.896, 173.251, 29.035, 0.31)
pt3dadd(-129.959, 173.149, 29.042, 0.348)
pt3dadd(-130.021, 173.047, 29.049, 0.388)
pt3dadd(-130.084, 172.945, 29.055, 0.426)
pt3dadd(-130.147, 172.843, 29.062, 0.464)
pt3dadd(-130.21, 172.741, 29.069, 0.504)
pt3dadd(-130.272, 172.639, 29.076, 0.542)
pt3dadd(-130.334, 172.537, 29.083, 0.58)
pt3dadd(-130.397, 172.435, 29.09, 0.616)
pt3dadd(-130.456, 172.332, 29.103, 0.634)
pt3dadd(-130.514, 172.229, 29.115, 0.652)
pt3dadd(-130.573, 172.124, 29.128, 0.672)
pt3dadd(-130.632, 172.021, 29.14, 0.69)
pt3dadd(-130.691, 171.918, 29.153, 0.708)
pt3dadd(-130.75, 171.814, 29.165, 0.726)
pt3dadd(-130.808, 171.71, 29.178, 0.746)
pt3dadd(-130.867, 171.607, 29.19, 0.764)
pt3dadd(-130.926, 171.504, 29.203, 0.782)
pt3dadd(-130.981, 171.4, 29.219, 0.786)
pt3dadd(-131.026, 171.294, 29.248, 0.742)
pt3dadd(-131.07, 171.188, 29.278, 0.7)
pt3dadd(-131.116, 171.083, 29.307, 0.656)
pt3dadd(-131.16, 170.976, 29.336, 0.614)
pt3dadd(-131.204, 170.87, 29.365, 0.57)
pt3dadd(-131.249, 170.765, 29.394, 0.528)
pt3dadd(-131.293, 170.659, 29.423, 0.484)
pt3dadd(-131.339, 170.554, 29.453, 0.44)
pt3dadd(-131.383, 170.448, 29.482, 0.398)
pt3dadd(-131.431, 170.344, 29.508, 0.362)
pt3dadd(-131.491, 170.242, 29.525, 0.348)
pt3dadd(-131.552, 170.14, 29.541, 0.334)
pt3dadd(-131.612, 170.038, 29.558, 0.32)
pt3dadd(-131.672, 169.936, 29.575, 0.306)
pt3dadd(-131.732, 169.834, 29.592, 0.292)
pt3dadd(-131.794, 169.733, 29.608, 0.278)
pt3dadd(-131.854, 169.631, 29.625, 0.264)
pt3dadd(-131.914, 169.529, 29.642, 0.25)
pt3dadd(-131.974, 169.427, 29.659, 0.236)
pt3dadd(-132.036, 169.326, 29.667, 0.226)
pt3dadd(-132.104, 169.228, 29.659, 0.226)
pt3dadd(-132.173, 169.129, 29.65, 0.226)
pt3dadd(-132.24, 169.031, 29.642, 0.226)
pt3dadd(-132.308, 168.932, 29.634, 0.226)
pt3dadd(-132.376, 168.834, 29.625, 0.226)
pt3dadd(-132.444, 168.736, 29.617, 0.226)
pt3dadd(-132.511, 168.637, 29.608, 0.226)
pt3dadd(-132.58, 168.539, 29.6, 0.226)
pt3dadd(-132.647, 168.44, 29.591, 0.226)
pt3dadd(-132.698, 168.372, 29.521, 0.226)
pt3dadd(-132.749, 168.305, 29.45, 0.226)
pt3dadd(-132.8, 168.236, 29.379, 0.226)
pt3dadd(-132.851, 168.168, 29.309, 0.226)
pt3dadd(-132.902, 168.101, 29.238, 0.226)
pt3dadd(-132.953, 168.032, 29.167, 0.226)
pt3dadd(-133.004, 167.965, 29.097, 0.226)
pt3dadd(-133.055, 167.897, 29.026, 0.226)
pt3dadd(-133.106, 167.83, 28.955, 0.226)
pt3dadd(-133.157, 167.761, 28.885, 0.226)
}
dend_5[3] {pt3dclear()
pt3dadd(-67.58, 214.55, 25.762, 1.13)
pt3dadd(-67.633, 214.604, 25.762, 1.118)
pt3dadd(-67.716, 214.69, 25.762, 1.098)
pt3dadd(-67.8, 214.776, 25.762, 1.076)
pt3dadd(-67.884, 214.862, 25.762, 1.056)
pt3dadd(-67.968, 214.948, 25.762, 1.036)
pt3dadd(-68.051, 215.034, 25.762, 1.016)
pt3dadd(-68.135, 215.12, 25.762, 0.996)
pt3dadd(-68.219, 215.206, 25.762, 0.976)
pt3dadd(-68.302, 215.292, 25.762, 0.956)
pt3dadd(-68.386, 215.378, 25.762, 0.936)
pt3dadd(-68.47, 215.464, 25.762, 0.916)
pt3dadd(-68.553, 215.55, 25.762, 0.896)
pt3dadd(-68.637, 215.636, 25.762, 0.876)
pt3dadd(-68.721, 215.722, 25.762, 0.854)
pt3dadd(-68.804, 215.808, 25.762, 0.834)
pt3dadd(-68.883, 215.897, 25.769, 0.82)
pt3dadd(-68.955, 215.992, 25.786, 0.81)
pt3dadd(-69.026, 216.085, 25.803, 0.8)
pt3dadd(-69.098, 216.18, 25.82, 0.792)
pt3dadd(-69.17, 216.274, 25.837, 0.782)
pt3dadd(-69.241, 216.367, 25.854, 0.774)
pt3dadd(-69.313, 216.462, 25.872, 0.764)
pt3dadd(-69.384, 216.556, 25.889, 0.756)
pt3dadd(-69.456, 216.65, 25.906, 0.746)
pt3dadd(-69.528, 216.744, 25.923, 0.736)
pt3dadd(-69.554, 216.839, 25.979, 0.758)
pt3dadd(-69.58, 216.935, 26.036, 0.778)
pt3dadd(-69.607, 217.03, 26.093, 0.798)
pt3dadd(-69.633, 217.124, 26.15, 0.82)
pt3dadd(-69.659, 217.22, 26.207, 0.84)
pt3dadd(-69.685, 217.315, 26.263, 0.86)
}
}
proc shape3d_15() {
dend_5[3] { pt3dadd(-69.711, 217.411, 26.32, 0.882)
pt3dadd(-69.737, 217.506, 26.377, 0.902)
pt3dadd(-69.764, 217.601, 26.434, 0.922)
pt3dadd(-69.79, 217.697, 26.49, 0.944)
pt3dadd(-69.819, 217.793, 26.545, 0.96)
pt3dadd(-69.848, 217.889, 26.6, 0.978)
pt3dadd(-69.877, 217.984, 26.655, 0.996)
pt3dadd(-69.906, 218.08, 26.71, 1.012)
pt3dadd(-69.935, 218.176, 26.765, 1.03)
pt3dadd(-69.964, 218.272, 26.82, 1.048)
pt3dadd(-69.993, 218.368, 26.875, 1.064)
pt3dadd(-70.022, 218.464, 26.93, 1.082)
pt3dadd(-70.051, 218.56, 26.985, 1.1)
pt3dadd(-70.081, 218.656, 27.04, 1.116)
pt3dadd(-70.134, 218.754, 27.076, 1.102)
pt3dadd(-70.188, 218.852, 27.112, 1.09)
pt3dadd(-70.241, 218.951, 27.149, 1.076)
pt3dadd(-70.294, 219.049, 27.185, 1.062)
pt3dadd(-70.348, 219.148, 27.221, 1.05)
pt3dadd(-70.401, 219.246, 27.258, 1.036)
pt3dadd(-70.454, 219.343, 27.294, 1.022)
pt3dadd(-70.508, 219.442, 27.33, 1.01)
pt3dadd(-70.561, 219.54, 27.367, 0.996)
pt3dadd(-70.614, 219.638, 27.403, 0.982)
pt3dadd(-70.661, 219.737, 27.444, 0.964)
pt3dadd(-70.709, 219.835, 27.486, 0.946)
pt3dadd(-70.756, 219.934, 27.527, 0.93)
pt3dadd(-70.803, 220.033, 27.568, 0.912)
pt3dadd(-70.85, 220.132, 27.609, 0.894)
pt3dadd(-70.898, 220.23, 27.651, 0.876)
pt3dadd(-70.945, 220.328, 27.692, 0.858)
pt3dadd(-70.992, 220.427, 27.733, 0.84)
pt3dadd(-71.04, 220.525, 27.775, 0.824)
pt3dadd(-71.086, 220.624, 27.816, 0.806)
pt3dadd(-71.124, 220.722, 27.864, 0.782)
pt3dadd(-71.162, 220.82, 27.912, 0.758)
pt3dadd(-71.2, 220.919, 27.96, 0.734)
pt3dadd(-71.238, 221.016, 28.008, 0.71)
pt3dadd(-71.277, 221.114, 28.056, 0.686)
pt3dadd(-71.315, 221.213, 28.105, 0.662)
pt3dadd(-71.353, 221.311, 28.153, 0.638)
pt3dadd(-71.391, 221.408, 28.201, 0.614)
pt3dadd(-71.429, 221.507, 28.249, 0.592)
pt3dadd(-71.467, 221.605, 28.296, 0.568)
pt3dadd(-71.515, 221.705, 28.336, 0.55)
pt3dadd(-71.563, 221.804, 28.375, 0.532)
pt3dadd(-71.61, 221.903, 28.415, 0.514)
pt3dadd(-71.658, 222.002, 28.455, 0.496)
pt3dadd(-71.706, 222.102, 28.494, 0.478)
pt3dadd(-71.753, 222.202, 28.534, 0.46)
pt3dadd(-71.801, 222.301, 28.574, 0.442)
pt3dadd(-71.848, 222.4, 28.613, 0.424)
pt3dadd(-71.896, 222.499, 28.653, 0.406)
pt3dadd(-71.945, 222.599, 28.691, 0.388)
pt3dadd(-72.001, 222.698, 28.722, 0.376)
pt3dadd(-72.057, 222.797, 28.753, 0.364)
pt3dadd(-72.113, 222.896, 28.784, 0.352)
pt3dadd(-72.169, 222.996, 28.815, 0.34)
pt3dadd(-72.226, 223.096, 28.846, 0.328)
pt3dadd(-72.282, 223.195, 28.877, 0.316)
pt3dadd(-72.338, 223.294, 28.908, 0.304)
pt3dadd(-72.394, 223.393, 28.939, 0.292)
pt3dadd(-72.45, 223.493, 28.97, 0.28)
pt3dadd(-72.505, 223.592, 29.002, 0.268)
pt3dadd(-72.549, 223.693, 29.042, 0.264)
pt3dadd(-72.593, 223.794, 29.082, 0.26)
pt3dadd(-72.637, 223.895, 29.123, 0.256)
pt3dadd(-72.681, 223.996, 29.163, 0.252)
pt3dadd(-72.725, 224.095, 29.203, 0.248)
pt3dadd(-72.768, 224.196, 29.243, 0.242)
pt3dadd(-72.812, 224.297, 29.283, 0.238)
pt3dadd(-72.856, 224.398, 29.324, 0.234)
pt3dadd(-72.9, 224.498, 29.364, 0.23)
pt3dadd(-72.943, 224.599, 29.405, 0.226)
pt3dadd(-72.98, 224.7, 29.45, 0.226)
pt3dadd(-73.017, 224.801, 29.495, 0.226)
pt3dadd(-73.053, 224.9, 29.54, 0.226)
pt3dadd(-73.09, 225.001, 29.585, 0.226)
pt3dadd(-73.127, 225.102, 29.631, 0.226)
pt3dadd(-73.164, 225.203, 29.676, 0.226)
pt3dadd(-73.2, 225.304, 29.721, 0.226)
pt3dadd(-73.237, 225.404, 29.766, 0.226)
pt3dadd(-73.274, 225.504, 29.811, 0.226)
pt3dadd(-73.311, 225.606, 29.853, 0.234)
pt3dadd(-73.348, 225.715, 29.883, 0.28)
pt3dadd(-73.385, 225.823, 29.913, 0.326)
pt3dadd(-73.422, 225.931, 29.943, 0.37)
pt3dadd(-73.46, 226.039, 29.973, 0.416)
pt3dadd(-73.497, 226.147, 30.003, 0.462)
pt3dadd(-73.534, 226.256, 30.033, 0.506)
pt3dadd(-73.571, 226.364, 30.063, 0.552)
pt3dadd(-73.608, 226.472, 30.093, 0.598)
pt3dadd(-73.646, 226.58, 30.123, 0.644)
pt3dadd(-73.684, 226.69, 30.152, 0.686)
pt3dadd(-73.726, 226.798, 30.177, 0.722)
pt3dadd(-73.768, 226.906, 30.202, 0.758)
pt3dadd(-73.811, 227.014, 30.227, 0.792)
pt3dadd(-73.853, 227.123, 30.252, 0.828)
pt3dadd(-73.895, 227.231, 30.277, 0.864)
pt3dadd(-73.937, 227.339, 30.301, 0.898)
pt3dadd(-73.979, 227.447, 30.326, 0.934)
pt3dadd(-74.022, 227.555, 30.351, 0.97)
pt3dadd(-74.064, 227.664, 30.376, 1.006)
pt3dadd(-74.112, 227.77, 30.399, 1.016)
pt3dadd(-74.175, 227.869, 30.416, 0.964)
pt3dadd(-74.239, 227.969, 30.433, 0.91)
pt3dadd(-74.302, 228.068, 30.45, 0.856)
pt3dadd(-74.366, 228.168, 30.468, 0.802)
pt3dadd(-74.429, 228.268, 30.485, 0.748)
pt3dadd(-74.493, 228.368, 30.502, 0.694)
pt3dadd(-74.556, 228.468, 30.519, 0.642)
pt3dadd(-74.62, 228.568, 30.536, 0.588)
pt3dadd(-74.683, 228.667, 30.553, 0.534)
pt3dadd(-74.749, 228.766, 30.57, 0.488)
pt3dadd(-74.823, 228.858, 30.584, 0.46)
pt3dadd(-74.896, 228.952, 30.598, 0.434)
pt3dadd(-74.969, 229.045, 30.612, 0.406)
pt3dadd(-75.043, 229.139, 30.627, 0.38)
pt3dadd(-75.116, 229.232, 30.641, 0.352)
pt3dadd(-75.189, 229.326, 30.655, 0.326)
pt3dadd(-75.263, 229.42, 30.669, 0.298)
pt3dadd(-75.336, 229.513, 30.683, 0.272)
pt3dadd(-75.409, 229.606, 30.698, 0.244)
pt3dadd(-75.486, 229.697, 30.711, 0.226)
pt3dadd(-75.568, 229.783, 30.722, 0.226)
pt3dadd(-75.651, 229.87, 30.733, 0.226)
pt3dadd(-75.733, 229.955, 30.744, 0.226)
pt3dadd(-75.816, 230.041, 30.755, 0.226)
pt3dadd(-75.898, 230.128, 30.766, 0.226)
pt3dadd(-75.981, 230.214, 30.777, 0.226)
pt3dadd(-76.064, 230.299, 30.788, 0.226)
pt3dadd(-76.146, 230.386, 30.799, 0.226)
pt3dadd(-76.229, 230.472, 30.811, 0.226)
pt3dadd(-76.312, 230.554, 30.831, 0.242)
pt3dadd(-76.396, 230.624, 30.87, 0.292)
pt3dadd(-76.48, 230.695, 30.91, 0.344)
pt3dadd(-76.565, 230.766, 30.949, 0.394)
pt3dadd(-76.649, 230.838, 30.989, 0.444)
pt3dadd(-76.733, 230.909, 31.028, 0.496)
pt3dadd(-76.817, 230.98, 31.068, 0.546)
pt3dadd(-76.901, 231.05, 31.107, 0.596)
pt3dadd(-76.986, 231.122, 31.147, 0.648)
pt3dadd(-77.07, 231.193, 31.186, 0.698)
pt3dadd(-77.158, 231.258, 31.227, 0.738)
pt3dadd(-77.25, 231.314, 31.27, 0.766)
pt3dadd(-77.343, 231.372, 31.312, 0.794)
pt3dadd(-77.435, 231.428, 31.355, 0.82)
pt3dadd(-77.527, 231.486, 31.398, 0.848)
pt3dadd(-77.62, 231.542, 31.44, 0.876)
pt3dadd(-77.712, 231.6, 31.483, 0.904)
pt3dadd(-77.805, 231.656, 31.526, 0.932)
pt3dadd(-77.897, 231.714, 31.568, 0.958)
pt3dadd(-77.989, 231.77, 31.611, 0.986)
pt3dadd(-78.089, 231.821, 31.648, 0.978)
pt3dadd(-78.193, 231.865, 31.68, 0.946)
pt3dadd(-78.297, 231.911, 31.712, 0.912)
pt3dadd(-78.402, 231.955, 31.744, 0.878)
pt3dadd(-78.506, 232, 31.777, 0.846)
pt3dadd(-78.61, 232.045, 31.809, 0.812)
pt3dadd(-78.715, 232.09, 31.841, 0.78)
pt3dadd(-78.819, 232.135, 31.873, 0.746)
pt3dadd(-78.923, 232.18, 31.905, 0.712)
pt3dadd(-79.028, 232.225, 31.938, 0.68)
pt3dadd(-79.13, 232.28, 31.962, 0.65)
pt3dadd(-79.229, 232.343, 31.98, 0.622)
pt3dadd(-79.329, 232.405, 31.999, 0.596)
pt3dadd(-79.429, 232.468, 32.018, 0.568)
pt3dadd(-79.529, 232.53, 32.037, 0.54)
pt3dadd(-79.629, 232.592, 32.056, 0.514)
pt3dadd(-79.729, 232.655, 32.074, 0.486)
pt3dadd(-79.829, 232.717, 32.093, 0.46)
pt3dadd(-79.929, 232.78, 32.112, 0.432)
pt3dadd(-80.029, 232.843, 32.13, 0.404)
pt3dadd(-80.128, 232.907, 32.148, 0.384)
pt3dadd(-80.226, 232.973, 32.164, 0.366)
pt3dadd(-80.325, 233.039, 32.18, 0.35)
pt3dadd(-80.423, 233.105, 32.196, 0.334)
pt3dadd(-80.521, 233.171, 32.213, 0.316)
pt3dadd(-80.62, 233.237, 32.229, 0.3)
pt3dadd(-80.718, 233.303, 32.245, 0.282)
pt3dadd(-80.817, 233.368, 32.261, 0.266)
pt3dadd(-80.915, 233.434, 32.278, 0.25)
pt3dadd(-81.013, 233.5, 32.294, 0.232)
pt3dadd(-81.11, 233.569, 32.308, 0.226)
pt3dadd(-81.206, 233.64, 32.32, 0.226)
pt3dadd(-81.301, 233.711, 32.332, 0.226)
pt3dadd(-81.397, 233.782, 32.345, 0.226)
pt3dadd(-81.492, 233.854, 32.357, 0.226)
pt3dadd(-81.588, 233.924, 32.369, 0.226)
pt3dadd(-81.684, 233.995, 32.381, 0.226)
pt3dadd(-81.779, 234.066, 32.394, 0.226)
pt3dadd(-81.875, 234.137, 32.406, 0.226)
pt3dadd(-81.97, 234.209, 32.418, 0.226)
pt3dadd(-82.067, 234.275, 32.438, 0.232)
pt3dadd(-82.165, 234.337, 32.463, 0.242)
pt3dadd(-82.262, 234.401, 32.487, 0.254)
pt3dadd(-82.36, 234.464, 32.512, 0.264)
pt3dadd(-82.458, 234.528, 32.537, 0.274)
pt3dadd(-82.555, 234.59, 32.562, 0.284)
pt3dadd(-82.653, 234.654, 32.586, 0.296)
}
}
proc shape3d_16() {
dend_5[3] { pt3dadd(-82.75, 234.716, 32.611, 0.306)
pt3dadd(-82.848, 234.78, 32.636, 0.316)
pt3dadd(-82.946, 234.844, 32.66, 0.328)
pt3dadd(-83.043, 234.898, 32.696, 0.348)
pt3dadd(-83.14, 234.949, 32.737, 0.372)
pt3dadd(-83.238, 235, 32.777, 0.396)
pt3dadd(-83.335, 235.051, 32.817, 0.418)
pt3dadd(-83.432, 235.102, 32.857, 0.442)
pt3dadd(-83.53, 235.153, 32.897, 0.466)
pt3dadd(-83.627, 235.204, 32.938, 0.49)
pt3dadd(-83.724, 235.255, 32.978, 0.514)
pt3dadd(-83.822, 235.306, 33.018, 0.538)
pt3dadd(-83.919, 235.357, 33.058, 0.562)
pt3dadd(-84.016, 235.411, 33.095, 0.576)
pt3dadd(-84.113, 235.468, 33.132, 0.588)
pt3dadd(-84.21, 235.524, 33.168, 0.598)
pt3dadd(-84.306, 235.58, 33.204, 0.61)
pt3dadd(-84.403, 235.636, 33.24, 0.62)
pt3dadd(-84.5, 235.692, 33.277, 0.632)
pt3dadd(-84.596, 235.748, 33.313, 0.642)
pt3dadd(-84.693, 235.805, 33.349, 0.654)
pt3dadd(-84.79, 235.86, 33.385, 0.664)
pt3dadd(-84.887, 235.916, 33.422, 0.676)
pt3dadd(-84.983, 235.976, 33.455, 0.678)
pt3dadd(-85.079, 236.036, 33.488, 0.678)
pt3dadd(-85.175, 236.096, 33.521, 0.678)
pt3dadd(-85.271, 236.156, 33.554, 0.678)
pt3dadd(-85.367, 236.218, 33.586, 0.678)
pt3dadd(-85.463, 236.278, 33.619, 0.678)
pt3dadd(-85.559, 236.338, 33.652, 0.678)
pt3dadd(-85.655, 236.399, 33.685, 0.678)
pt3dadd(-85.75, 236.459, 33.717, 0.678)
pt3dadd(-85.846, 236.519, 33.75, 0.678)
pt3dadd(-85.942, 236.572, 33.792, 0.666)
pt3dadd(-86.037, 236.622, 33.836, 0.65)
pt3dadd(-86.132, 236.672, 33.88, 0.634)
pt3dadd(-86.228, 236.722, 33.924, 0.62)
pt3dadd(-86.323, 236.772, 33.969, 0.604)
pt3dadd(-86.418, 236.822, 34.013, 0.588)
pt3dadd(-86.513, 236.873, 34.057, 0.572)
pt3dadd(-86.609, 236.922, 34.101, 0.556)
pt3dadd(-86.704, 236.972, 34.146, 0.54)
pt3dadd(-86.799, 237.023, 34.19, 0.524)
pt3dadd(-86.893, 237.067, 34.239, 0.502)
pt3dadd(-86.987, 237.112, 34.289, 0.478)
pt3dadd(-87.081, 237.155, 34.339, 0.452)
pt3dadd(-87.176, 237.199, 34.39, 0.428)
pt3dadd(-87.27, 237.242, 34.44, 0.404)
pt3dadd(-87.364, 237.287, 34.49, 0.38)
pt3dadd(-87.458, 237.33, 34.54, 0.356)
pt3dadd(-87.552, 237.374, 34.591, 0.33)
pt3dadd(-87.646, 237.418, 34.641, 0.306)
pt3dadd(-87.74, 237.462, 34.691, 0.282)
pt3dadd(-87.833, 237.52, 34.731, 0.29)
pt3dadd(-87.926, 237.581, 34.769, 0.304)
pt3dadd(-88.019, 237.642, 34.806, 0.318)
pt3dadd(-88.112, 237.703, 34.844, 0.334)
pt3dadd(-88.204, 237.764, 34.882, 0.348)
pt3dadd(-88.297, 237.826, 34.919, 0.364)
pt3dadd(-88.39, 237.887, 34.957, 0.378)
pt3dadd(-88.483, 237.948, 34.994, 0.392)
pt3dadd(-88.576, 238.009, 35.032, 0.408)
pt3dadd(-88.669, 238.07, 35.07, 0.422)
pt3dadd(-88.761, 238.134, 35.104, 0.446)
pt3dadd(-88.853, 238.2, 35.138, 0.47)
pt3dadd(-88.945, 238.265, 35.172, 0.496)
pt3dadd(-89.037, 238.331, 35.206, 0.522)
pt3dadd(-89.129, 238.396, 35.24, 0.546)
pt3dadd(-89.221, 238.462, 35.274, 0.572)
pt3dadd(-89.313, 238.526, 35.308, 0.596)
pt3dadd(-89.405, 238.592, 35.342, 0.622)
pt3dadd(-89.497, 238.657, 35.376, 0.646)
pt3dadd(-89.589, 238.723, 35.41, 0.672)
pt3dadd(-89.661, 238.795, 35.462, 0.688)
pt3dadd(-89.729, 238.868, 35.517, 0.702)
pt3dadd(-89.797, 238.942, 35.572, 0.714)
pt3dadd(-89.866, 239.016, 35.627, 0.728)
pt3dadd(-89.934, 239.089, 35.682, 0.742)
pt3dadd(-90.002, 239.162, 35.737, 0.756)
pt3dadd(-90.071, 239.236, 35.792, 0.77)
pt3dadd(-90.139, 239.309, 35.847, 0.784)
pt3dadd(-90.207, 239.382, 35.901, 0.798)
pt3dadd(-90.276, 239.455, 35.956, 0.812)
pt3dadd(-90.354, 239.522, 36.008, 0.808)
pt3dadd(-90.434, 239.588, 36.058, 0.8)
pt3dadd(-90.514, 239.653, 36.109, 0.792)
pt3dadd(-90.594, 239.719, 36.16, 0.786)
pt3dadd(-90.674, 239.785, 36.211, 0.778)
pt3dadd(-90.754, 239.85, 36.261, 0.77)
pt3dadd(-90.834, 239.916, 36.312, 0.764)
pt3dadd(-90.914, 239.981, 36.363, 0.756)
pt3dadd(-90.994, 240.047, 36.413, 0.748)
pt3dadd(-91.074, 240.113, 36.464, 0.74)
pt3dadd(-91.174, 240.16, 36.504, 0.692)
pt3dadd(-91.273, 240.206, 36.544, 0.646)
pt3dadd(-91.372, 240.253, 36.584, 0.598)
pt3dadd(-91.472, 240.3, 36.624, 0.55)
pt3dadd(-91.571, 240.348, 36.664, 0.502)
pt3dadd(-91.671, 240.395, 36.704, 0.454)
pt3dadd(-91.77, 240.442, 36.744, 0.406)
pt3dadd(-91.87, 240.488, 36.784, 0.358)
pt3dadd(-91.969, 240.535, 36.824, 0.31)
pt3dadd(-92.068, 240.582, 36.864, 0.264)
pt3dadd(-92.172, 240.598, 36.913, 0.26)
pt3dadd(-92.275, 240.613, 36.962, 0.256)
pt3dadd(-92.379, 240.628, 37.011, 0.252)
pt3dadd(-92.482, 240.643, 37.06, 0.248)
pt3dadd(-92.586, 240.659, 37.109, 0.244)
pt3dadd(-92.689, 240.674, 37.158, 0.24)
pt3dadd(-92.793, 240.689, 37.207, 0.238)
pt3dadd(-92.896, 240.704, 37.256, 0.234)
pt3dadd(-93, 240.72, 37.305, 0.23)
pt3dadd(-93.103, 240.734, 37.354, 0.226)
pt3dadd(-93.212, 240.743, 37.396, 0.236)
pt3dadd(-93.321, 240.751, 37.438, 0.244)
pt3dadd(-93.429, 240.761, 37.48, 0.252)
pt3dadd(-93.538, 240.769, 37.522, 0.262)
pt3dadd(-93.646, 240.778, 37.564, 0.27)
pt3dadd(-93.755, 240.786, 37.606, 0.28)
pt3dadd(-93.863, 240.794, 37.648, 0.288)
pt3dadd(-93.972, 240.803, 37.69, 0.298)
pt3dadd(-94.08, 240.811, 37.732, 0.306)
pt3dadd(-94.19, 240.818, 37.771, 0.318)
pt3dadd(-94.307, 240.817, 37.795, 0.346)
pt3dadd(-94.423, 240.817, 37.819, 0.374)
pt3dadd(-94.539, 240.816, 37.843, 0.402)
pt3dadd(-94.656, 240.816, 37.867, 0.43)
pt3dadd(-94.773, 240.815, 37.891, 0.458)
pt3dadd(-94.889, 240.814, 37.915, 0.486)
pt3dadd(-95.006, 240.814, 37.939, 0.514)
pt3dadd(-95.122, 240.812, 37.963, 0.542)
pt3dadd(-95.238, 240.812, 37.987, 0.57)
pt3dadd(-95.355, 240.811, 38.01, 0.598)
pt3dadd(-95.474, 240.81, 38.025, 0.628)
pt3dadd(-95.593, 240.808, 38.04, 0.656)
pt3dadd(-95.711, 240.806, 38.055, 0.684)
pt3dadd(-95.83, 240.805, 38.069, 0.714)
pt3dadd(-95.949, 240.804, 38.084, 0.742)
pt3dadd(-96.067, 240.803, 38.099, 0.77)
pt3dadd(-96.186, 240.8, 38.114, 0.8)
pt3dadd(-96.305, 240.799, 38.129, 0.828)
pt3dadd(-96.423, 240.798, 38.144, 0.856)
pt3dadd(-96.542, 240.797, 38.158, 0.884)
pt3dadd(-96.661, 240.794, 38.167, 0.9)
pt3dadd(-96.781, 240.793, 38.177, 0.918)
pt3dadd(-96.9, 240.791, 38.187, 0.936)
pt3dadd(-97.02, 240.788, 38.196, 0.952)
pt3dadd(-97.139, 240.787, 38.206, 0.97)
pt3dadd(-97.259, 240.785, 38.215, 0.986)
pt3dadd(-97.378, 240.784, 38.225, 1.004)
pt3dadd(-97.497, 240.781, 38.234, 1.022)
pt3dadd(-97.617, 240.779, 38.244, 1.038)
pt3dadd(-97.736, 240.776, 38.252, 1.044)
pt3dadd(-97.856, 240.774, 38.252, 0.986)
pt3dadd(-97.976, 240.77, 38.252, 0.928)
pt3dadd(-98.096, 240.767, 38.252, 0.87)
pt3dadd(-98.216, 240.763, 38.252, 0.812)
pt3dadd(-98.336, 240.76, 38.252, 0.754)
pt3dadd(-98.456, 240.756, 38.252, 0.696)
pt3dadd(-98.576, 240.752, 38.252, 0.638)
pt3dadd(-98.696, 240.749, 38.252, 0.58)
pt3dadd(-98.816, 240.745, 38.252, 0.522)
pt3dadd(-98.936, 240.742, 38.252, 0.474)
pt3dadd(-99.056, 240.736, 38.251, 0.474)
pt3dadd(-99.176, 240.728, 38.251, 0.474)
pt3dadd(-99.295, 240.722, 38.251, 0.474)
pt3dadd(-99.415, 240.715, 38.251, 0.474)
pt3dadd(-99.535, 240.709, 38.251, 0.474)
pt3dadd(-99.655, 240.703, 38.251, 0.474)
pt3dadd(-99.775, 240.696, 38.251, 0.474)
pt3dadd(-99.894, 240.69, 38.251, 0.474)
pt3dadd(-100.014, 240.683, 38.251, 0.474)
pt3dadd(-100.134, 240.677, 38.251, 0.482)
pt3dadd(-100.254, 240.668, 38.251, 0.524)
pt3dadd(-100.374, 240.659, 38.251, 0.566)
pt3dadd(-100.493, 240.65, 38.25, 0.61)
pt3dadd(-100.613, 240.642, 38.25, 0.652)
pt3dadd(-100.733, 240.634, 38.25, 0.694)
pt3dadd(-100.852, 240.625, 38.25, 0.738)
pt3dadd(-100.972, 240.616, 38.25, 0.78)
pt3dadd(-101.092, 240.607, 38.25, 0.822)
pt3dadd(-101.211, 240.599, 38.25, 0.866)
pt3dadd(-101.331, 240.589, 38.25, 0.894)
pt3dadd(-101.45, 240.575, 38.25, 0.85)
pt3dadd(-101.569, 240.56, 38.25, 0.806)
pt3dadd(-101.688, 240.546, 38.249, 0.764)
pt3dadd(-101.808, 240.532, 38.249, 0.72)
pt3dadd(-101.927, 240.517, 38.249, 0.678)
pt3dadd(-102.046, 240.504, 38.249, 0.634)
pt3dadd(-102.165, 240.49, 38.248, 0.59)
pt3dadd(-102.284, 240.475, 38.248, 0.548)
pt3dadd(-102.403, 240.461, 38.248, 0.504)
pt3dadd(-102.522, 240.444, 38.248, 0.466)
pt3dadd(-102.639, 240.415, 38.248, 0.446)
pt3dadd(-102.755, 240.388, 38.247, 0.428)
pt3dadd(-102.872, 240.359, 38.247, 0.41)
pt3dadd(-102.989, 240.331, 38.247, 0.392)
pt3dadd(-103.105, 240.302, 38.246, 0.372)
pt3dadd(-103.222, 240.275, 38.246, 0.354)
pt3dadd(-103.338, 240.246, 38.246, 0.336)
}
}
proc shape3d_17() {
dend_5[3] { pt3dadd(-103.455, 240.218, 38.245, 0.318)
pt3dadd(-103.572, 240.19, 38.245, 0.298)
pt3dadd(-103.687, 240.157, 38.245, 0.288)
pt3dadd(-103.798, 240.112, 38.244, 0.302)
pt3dadd(-103.909, 240.066, 38.244, 0.316)
pt3dadd(-104.02, 240.02, 38.244, 0.328)
pt3dadd(-104.131, 239.975, 38.243, 0.342)
pt3dadd(-104.242, 239.93, 38.243, 0.356)
pt3dadd(-104.353, 239.885, 38.243, 0.37)
pt3dadd(-104.464, 239.839, 38.242, 0.382)
pt3dadd(-104.575, 239.794, 38.242, 0.396)
pt3dadd(-104.686, 239.748, 38.241, 0.41)
pt3dadd(-104.798, 239.705, 38.241, 0.418)
pt3dadd(-104.913, 239.671, 38.24, 0.41)
pt3dadd(-105.028, 239.636, 38.239, 0.402)
pt3dadd(-105.143, 239.603, 38.239, 0.396)
pt3dadd(-105.258, 239.568, 38.238, 0.388)
pt3dadd(-105.373, 239.533, 38.237, 0.38)
pt3dadd(-105.488, 239.5, 38.236, 0.372)
pt3dadd(-105.603, 239.465, 38.235, 0.364)
pt3dadd(-105.718, 239.43, 38.235, 0.358)
pt3dadd(-105.833, 239.396, 38.234, 0.35)
pt3dadd(-105.948, 239.363, 38.233, 0.342)
pt3dadd(-106.065, 239.335, 38.232, 0.33)
pt3dadd(-106.182, 239.306, 38.231, 0.318)
pt3dadd(-106.298, 239.278, 38.23, 0.306)
pt3dadd(-106.415, 239.25, 38.229, 0.294)
pt3dadd(-106.531, 239.221, 38.228, 0.282)
pt3dadd(-106.648, 239.192, 38.226, 0.27)
pt3dadd(-106.764, 239.164, 38.225, 0.258)
pt3dadd(-106.881, 239.136, 38.224, 0.246)
pt3dadd(-106.998, 239.107, 38.223, 0.234)
pt3dadd(-107.115, 239.082, 38.222, 0.226)
pt3dadd(-107.233, 239.064, 38.22, 0.226)
pt3dadd(-107.352, 239.047, 38.218, 0.226)
pt3dadd(-107.471, 239.03, 38.215, 0.226)
pt3dadd(-107.59, 239.012, 38.213, 0.226)
pt3dadd(-107.708, 238.996, 38.211, 0.226)
pt3dadd(-107.827, 238.978, 38.209, 0.226)
pt3dadd(-107.946, 238.961, 38.207, 0.226)
pt3dadd(-108.065, 238.944, 38.205, 0.226)
pt3dadd(-108.183, 238.926, 38.203, 0.226)
pt3dadd(-108.302, 238.91, 38.2, 0.226)
pt3dadd(-108.421, 238.898, 38.197, 0.226)
pt3dadd(-108.541, 238.886, 38.194, 0.226)
pt3dadd(-108.66, 238.873, 38.19, 0.226)
pt3dadd(-108.779, 238.861, 38.187, 0.226)
pt3dadd(-108.899, 238.849, 38.183, 0.226)
pt3dadd(-109.018, 238.837, 38.18, 0.226)
pt3dadd(-109.137, 238.825, 38.176, 0.226)
pt3dadd(-109.257, 238.812, 38.173, 0.226)
pt3dadd(-109.376, 238.8, 38.169, 0.226)
pt3dadd(-109.495, 238.788, 38.166, 0.226)
pt3dadd(-109.615, 238.778, 38.16, 0.226)
pt3dadd(-109.734, 238.768, 38.155, 0.226)
pt3dadd(-109.853, 238.758, 38.15, 0.226)
pt3dadd(-109.973, 238.747, 38.144, 0.226)
pt3dadd(-110.092, 238.736, 38.139, 0.226)
pt3dadd(-110.212, 238.727, 38.134, 0.226)
pt3dadd(-110.331, 238.716, 38.129, 0.226)
pt3dadd(-110.45, 238.706, 38.123, 0.226)
pt3dadd(-110.57, 238.696, 38.118, 0.226)
pt3dadd(-110.689, 238.684, 38.111, 0.226)
pt3dadd(-110.807, 238.667, 38.099, 0.226)
pt3dadd(-110.925, 238.649, 38.087, 0.226)
pt3dadd(-111.042, 238.632, 38.075, 0.226)
pt3dadd(-111.16, 238.615, 38.063, 0.226)
pt3dadd(-111.278, 238.598, 38.052, 0.226)
pt3dadd(-111.396, 238.582, 38.04, 0.226)
pt3dadd(-111.514, 238.564, 38.028, 0.226)
pt3dadd(-111.632, 238.547, 38.016, 0.226)
pt3dadd(-111.75, 238.53, 38.004, 0.226)
pt3dadd(-111.865, 238.505, 37.991, 0.226)
pt3dadd(-111.975, 238.459, 37.975, 0.226)
pt3dadd(-112.084, 238.414, 37.96, 0.226)
pt3dadd(-112.194, 238.368, 37.944, 0.226)
pt3dadd(-112.303, 238.322, 37.928, 0.226)
pt3dadd(-112.413, 238.277, 37.913, 0.226)
pt3dadd(-112.522, 238.231, 37.897, 0.226)
pt3dadd(-112.631, 238.186, 37.881, 0.226)
pt3dadd(-112.741, 238.14, 37.866, 0.226)
pt3dadd(-112.85, 238.094, 37.85, 0.226)
pt3dadd(-112.953, 238.045, 37.824, 0.226)
pt3dadd(-113.048, 237.989, 37.783, 0.226)
pt3dadd(-113.143, 237.934, 37.743, 0.226)
pt3dadd(-113.238, 237.878, 37.702, 0.226)
pt3dadd(-113.332, 237.823, 37.662, 0.226)
pt3dadd(-113.427, 237.768, 37.621, 0.226)
pt3dadd(-113.522, 237.713, 37.581, 0.226)
pt3dadd(-113.616, 237.656, 37.541, 0.226)
pt3dadd(-113.711, 237.601, 37.5, 0.226)
pt3dadd(-113.806, 237.546, 37.459, 0.226)
pt3dadd(-113.867, 237.5, 37.383, 0.226)
pt3dadd(-113.929, 237.454, 37.306, 0.226)
pt3dadd(-113.99, 237.408, 37.229, 0.226)
pt3dadd(-114.051, 237.361, 37.152, 0.226)
pt3dadd(-114.113, 237.316, 37.075, 0.226)
pt3dadd(-114.174, 237.27, 36.998, 0.226)
pt3dadd(-114.236, 237.223, 36.922, 0.226)
pt3dadd(-114.297, 237.178, 36.845, 0.226)
pt3dadd(-114.359, 237.131, 36.768, 0.226)
pt3dadd(-114.42, 237.085, 36.691, 0.226)
}
dend_5[4] {pt3dclear()
pt3dadd(-46.961, 211.111, 21.29, 1.808)
pt3dadd(-46.961, 211.184, 21.281, 1.736)
pt3dadd(-46.962, 211.302, 21.265, 1.62)
pt3dadd(-46.963, 211.421, 21.25, 1.504)
pt3dadd(-46.963, 211.54, 21.234, 1.388)
pt3dadd(-46.964, 211.658, 21.219, 1.272)
pt3dadd(-46.965, 211.777, 21.203, 1.156)
pt3dadd(-46.966, 211.895, 21.187, 1.04)
pt3dadd(-46.966, 212.014, 21.172, 0.924)
pt3dadd(-46.978, 212.131, 21.16, 0.838)
pt3dadd(-46.999, 212.25, 21.151, 0.778)
pt3dadd(-47.02, 212.368, 21.142, 0.718)
pt3dadd(-47.042, 212.485, 21.133, 0.66)
pt3dadd(-47.063, 212.603, 21.124, 0.6)
pt3dadd(-47.084, 212.72, 21.115, 0.54)
pt3dadd(-47.105, 212.838, 21.106, 0.48)
pt3dadd(-47.126, 212.956, 21.097, 0.422)
pt3dadd(-47.148, 213.073, 21.088, 0.362)
pt3dadd(-47.169, 213.191, 21.079, 0.302)
pt3dadd(-47.208, 213.304, 21.077, 0.296)
pt3dadd(-47.254, 213.414, 21.076, 0.31)
pt3dadd(-47.3, 213.524, 21.076, 0.324)
pt3dadd(-47.346, 213.636, 21.076, 0.338)
pt3dadd(-47.391, 213.746, 21.076, 0.35)
pt3dadd(-47.437, 213.858, 21.075, 0.364)
pt3dadd(-47.483, 213.968, 21.075, 0.378)
pt3dadd(-47.529, 214.079, 21.075, 0.392)
pt3dadd(-47.575, 214.19, 21.075, 0.406)
pt3dadd(-47.621, 214.301, 21.074, 0.42)
pt3dadd(-47.681, 214.404, 21.074, 0.416)
pt3dadd(-47.747, 214.505, 21.074, 0.408)
pt3dadd(-47.812, 214.606, 21.074, 0.398)
pt3dadd(-47.878, 214.705, 21.073, 0.388)
pt3dadd(-47.944, 214.806, 21.073, 0.38)
pt3dadd(-48.009, 214.907, 21.073, 0.37)
pt3dadd(-48.075, 215.006, 21.072, 0.362)
pt3dadd(-48.141, 215.107, 21.072, 0.352)
pt3dadd(-48.207, 215.208, 21.072, 0.344)
pt3dadd(-48.272, 215.308, 21.071, 0.334)
pt3dadd(-48.348, 215.401, 21.071, 0.338)
pt3dadd(-48.426, 215.492, 21.071, 0.346)
pt3dadd(-48.505, 215.582, 21.07, 0.354)
pt3dadd(-48.583, 215.674, 21.07, 0.36)
pt3dadd(-48.661, 215.765, 21.069, 0.368)
pt3dadd(-48.74, 215.855, 21.069, 0.376)
pt3dadd(-48.818, 215.946, 21.069, 0.384)
pt3dadd(-48.897, 216.037, 21.068, 0.39)
pt3dadd(-48.975, 216.128, 21.068, 0.398)
pt3dadd(-49.053, 216.218, 21.067, 0.406)
pt3dadd(-49.145, 216.295, 21.066, 0.458)
pt3dadd(-49.239, 216.37, 21.066, 0.518)
pt3dadd(-49.334, 216.444, 21.065, 0.58)
pt3dadd(-49.428, 216.518, 21.065, 0.64)
pt3dadd(-49.522, 216.593, 21.064, 0.7)
pt3dadd(-49.616, 216.667, 21.063, 0.76)
pt3dadd(-49.71, 216.742, 21.062, 0.822)
pt3dadd(-49.804, 216.816, 21.062, 0.882)
pt3dadd(-49.899, 216.89, 21.061, 0.942)
pt3dadd(-49.993, 216.965, 21.06, 1.002)
pt3dadd(-50.072, 217.055, 21.059, 0.978)
pt3dadd(-50.149, 217.147, 21.058, 0.94)
pt3dadd(-50.226, 217.238, 21.056, 0.9)
pt3dadd(-50.302, 217.331, 21.055, 0.862)
pt3dadd(-50.379, 217.423, 21.054, 0.822)
pt3dadd(-50.456, 217.516, 21.052, 0.784)
pt3dadd(-50.533, 217.608, 21.051, 0.744)
pt3dadd(-50.61, 217.7, 21.049, 0.706)
pt3dadd(-50.686, 217.793, 21.048, 0.666)
pt3dadd(-50.763, 217.884, 21.046, 0.628)
pt3dadd(-50.835, 217.98, 21.045, 0.588)
pt3dadd(-50.908, 218.076, 21.042, 0.548)
pt3dadd(-50.98, 218.172, 21.041, 0.508)
pt3dadd(-51.052, 218.268, 21.038, 0.468)
pt3dadd(-51.124, 218.364, 21.037, 0.428)
pt3dadd(-51.196, 218.46, 21.035, 0.388)
pt3dadd(-51.268, 218.555, 21.032, 0.348)
pt3dadd(-51.34, 218.651, 21.03, 0.31)
pt3dadd(-51.412, 218.747, 21.028, 0.27)
pt3dadd(-51.485, 218.843, 21.027, 0.23)
pt3dadd(-51.557, 218.939, 21.024, 0.226)
pt3dadd(-51.629, 219.035, 21.021, 0.226)
pt3dadd(-51.701, 219.131, 21.018, 0.226)
pt3dadd(-51.774, 219.226, 21.016, 0.226)
pt3dadd(-51.846, 219.322, 21.013, 0.226)
pt3dadd(-51.918, 219.418, 21.01, 0.226)
pt3dadd(-51.99, 219.514, 21.007, 0.226)
pt3dadd(-52.062, 219.61, 21.005, 0.226)
pt3dadd(-52.135, 219.704, 21.002, 0.226)
pt3dadd(-52.207, 219.8, 20.999, 0.226)
pt3dadd(-52.279, 219.896, 20.994, 0.25)
pt3dadd(-52.351, 219.992, 20.989, 0.276)
pt3dadd(-52.422, 220.088, 20.984, 0.302)
pt3dadd(-52.494, 220.184, 20.979, 0.328)
pt3dadd(-52.566, 220.28, 20.974, 0.354)
pt3dadd(-52.638, 220.376, 20.969, 0.38)
pt3dadd(-52.709, 220.472, 20.963, 0.406)
pt3dadd(-52.781, 220.568, 20.958, 0.432)
pt3dadd(-52.853, 220.664, 20.953, 0.458)
}
}
proc shape3d_18() {
dend_5[4] { pt3dadd(-52.925, 220.76, 20.948, 0.484)
pt3dadd(-52.996, 220.856, 20.942, 0.52)
pt3dadd(-53.068, 220.952, 20.935, 0.558)
pt3dadd(-53.139, 221.048, 20.929, 0.596)
pt3dadd(-53.211, 221.144, 20.923, 0.634)
pt3dadd(-53.283, 221.24, 20.917, 0.67)
pt3dadd(-53.354, 221.336, 20.91, 0.708)
pt3dadd(-53.426, 221.432, 20.904, 0.746)
pt3dadd(-53.498, 221.528, 20.898, 0.784)
pt3dadd(-53.569, 221.624, 20.892, 0.822)
pt3dadd(-53.641, 221.72, 20.886, 0.86)
pt3dadd(-53.699, 221.825, 20.875, 0.866)
pt3dadd(-53.756, 221.929, 20.863, 0.87)
pt3dadd(-53.813, 222.034, 20.851, 0.874)
pt3dadd(-53.869, 222.139, 20.84, 0.878)
pt3dadd(-53.926, 222.244, 20.828, 0.882)
pt3dadd(-53.983, 222.348, 20.817, 0.888)
pt3dadd(-54.04, 222.452, 20.805, 0.892)
pt3dadd(-54.097, 222.558, 20.794, 0.896)
pt3dadd(-54.154, 222.662, 20.782, 0.9)
pt3dadd(-54.21, 222.767, 20.771, 0.904)
pt3dadd(-54.263, 222.87, 20.744, 0.892)
pt3dadd(-54.316, 222.973, 20.716, 0.876)
pt3dadd(-54.368, 223.075, 20.688, 0.862)
pt3dadd(-54.421, 223.178, 20.66, 0.848)
pt3dadd(-54.473, 223.28, 20.632, 0.834)
pt3dadd(-54.526, 223.384, 20.605, 0.82)
pt3dadd(-54.578, 223.486, 20.577, 0.806)
pt3dadd(-54.631, 223.589, 20.549, 0.792)
pt3dadd(-54.683, 223.691, 20.521, 0.778)
pt3dadd(-54.735, 223.792, 20.49, 0.762)
pt3dadd(-54.784, 223.883, 20.439, 0.73)
pt3dadd(-54.834, 223.974, 20.389, 0.698)
pt3dadd(-54.883, 224.065, 20.338, 0.666)
pt3dadd(-54.933, 224.156, 20.288, 0.634)
pt3dadd(-54.982, 224.248, 20.238, 0.602)
pt3dadd(-55.031, 224.339, 20.187, 0.572)
pt3dadd(-55.081, 224.43, 20.137, 0.54)
pt3dadd(-55.13, 224.521, 20.087, 0.508)
pt3dadd(-55.179, 224.612, 20.036, 0.476)
pt3dadd(-55.234, 224.704, 19.991, 0.452)
pt3dadd(-55.303, 224.794, 19.961, 0.452)
pt3dadd(-55.373, 224.885, 19.931, 0.452)
pt3dadd(-55.443, 224.976, 19.901, 0.452)
pt3dadd(-55.512, 225.067, 19.871, 0.452)
pt3dadd(-55.582, 225.157, 19.841, 0.452)
pt3dadd(-55.651, 225.248, 19.811, 0.452)
pt3dadd(-55.721, 225.34, 19.781, 0.452)
pt3dadd(-55.791, 225.431, 19.752, 0.452)
pt3dadd(-55.86, 225.522, 19.722, 0.452)
pt3dadd(-55.928, 225.614, 19.694, 0.458)
pt3dadd(-55.992, 225.713, 19.675, 0.486)
pt3dadd(-56.056, 225.812, 19.656, 0.512)
pt3dadd(-56.12, 225.911, 19.638, 0.538)
pt3dadd(-56.184, 226.01, 19.619, 0.566)
pt3dadd(-56.248, 226.109, 19.6, 0.592)
pt3dadd(-56.312, 226.208, 19.581, 0.62)
pt3dadd(-56.376, 226.307, 19.562, 0.646)
pt3dadd(-56.44, 226.406, 19.543, 0.672)
pt3dadd(-56.504, 226.505, 19.524, 0.7)
pt3dadd(-56.572, 226.602, 19.506, 0.72)
pt3dadd(-56.65, 226.691, 19.493, 0.724)
pt3dadd(-56.727, 226.781, 19.479, 0.728)
pt3dadd(-56.805, 226.871, 19.466, 0.732)
pt3dadd(-56.883, 226.961, 19.452, 0.736)
pt3dadd(-56.961, 227.051, 19.438, 0.74)
pt3dadd(-57.039, 227.14, 19.425, 0.742)
pt3dadd(-57.117, 227.23, 19.411, 0.746)
pt3dadd(-57.195, 227.32, 19.398, 0.75)
pt3dadd(-57.273, 227.41, 19.384, 0.754)
pt3dadd(-57.358, 227.492, 19.372, 0.744)
pt3dadd(-57.453, 227.564, 19.362, 0.718)
pt3dadd(-57.548, 227.638, 19.353, 0.69)
pt3dadd(-57.642, 227.71, 19.343, 0.662)
pt3dadd(-57.737, 227.783, 19.333, 0.634)
pt3dadd(-57.832, 227.855, 19.323, 0.606)
pt3dadd(-57.927, 227.928, 19.313, 0.578)
pt3dadd(-58.022, 228.001, 19.303, 0.55)
pt3dadd(-58.116, 228.073, 19.293, 0.524)
pt3dadd(-58.211, 228.146, 19.284, 0.496)
pt3dadd(-58.305, 228.22, 19.272, 0.492)
pt3dadd(-58.398, 228.294, 19.258, 0.522)
pt3dadd(-58.491, 228.368, 19.244, 0.552)
pt3dadd(-58.583, 228.442, 19.23, 0.58)
pt3dadd(-58.676, 228.516, 19.216, 0.61)
pt3dadd(-58.769, 228.59, 19.202, 0.638)
pt3dadd(-58.861, 228.665, 19.188, 0.668)
pt3dadd(-58.954, 228.739, 19.174, 0.698)
pt3dadd(-59.047, 228.814, 19.16, 0.726)
pt3dadd(-59.14, 228.888, 19.146, 0.756)
pt3dadd(-59.231, 228.96, 19.122, 0.778)
pt3dadd(-59.319, 229.028, 19.087, 0.792)
pt3dadd(-59.408, 229.097, 19.051, 0.806)
pt3dadd(-59.497, 229.165, 19.015, 0.818)
pt3dadd(-59.585, 229.234, 18.98, 0.832)
pt3dadd(-59.674, 229.302, 18.944, 0.846)
pt3dadd(-59.763, 229.372, 18.908, 0.858)
pt3dadd(-59.851, 229.44, 18.872, 0.872)
pt3dadd(-59.94, 229.508, 18.837, 0.886)
pt3dadd(-60.029, 229.577, 18.801, 0.9)
pt3dadd(-60.114, 229.643, 18.757, 0.906)
pt3dadd(-60.196, 229.708, 18.708, 0.908)
pt3dadd(-60.279, 229.771, 18.66, 0.912)
pt3dadd(-60.362, 229.836, 18.611, 0.914)
pt3dadd(-60.445, 229.9, 18.562, 0.918)
pt3dadd(-60.527, 229.964, 18.514, 0.92)
pt3dadd(-60.61, 230.029, 18.465, 0.924)
pt3dadd(-60.693, 230.093, 18.416, 0.926)
pt3dadd(-60.776, 230.158, 18.368, 0.93)
pt3dadd(-60.858, 230.221, 18.319, 0.932)
pt3dadd(-60.942, 230.293, 18.28, 0.942)
pt3dadd(-61.027, 230.368, 18.245, 0.956)
pt3dadd(-61.111, 230.442, 18.211, 0.97)
pt3dadd(-61.195, 230.516, 18.176, 0.984)
pt3dadd(-61.28, 230.592, 18.142, 1)
pt3dadd(-61.364, 230.666, 18.107, 1.014)
pt3dadd(-61.448, 230.741, 18.073, 1.028)
pt3dadd(-61.533, 230.815, 18.038, 1.042)
pt3dadd(-61.617, 230.89, 18.004, 1.056)
pt3dadd(-61.701, 230.964, 17.969, 1.07)
pt3dadd(-61.788, 231.038, 17.937, 1.056)
pt3dadd(-61.875, 231.112, 17.906, 1.03)
pt3dadd(-61.962, 231.186, 17.875, 1.004)
pt3dadd(-62.049, 231.259, 17.844, 0.978)
pt3dadd(-62.136, 231.334, 17.813, 0.952)
pt3dadd(-62.223, 231.407, 17.781, 0.928)
pt3dadd(-62.31, 231.48, 17.75, 0.902)
pt3dadd(-62.397, 231.554, 17.719, 0.876)
pt3dadd(-62.484, 231.628, 17.688, 0.85)
pt3dadd(-62.571, 231.701, 17.657, 0.824)
pt3dadd(-62.66, 231.774, 17.627, 0.78)
pt3dadd(-62.748, 231.847, 17.598, 0.728)
pt3dadd(-62.837, 231.92, 17.569, 0.674)
pt3dadd(-62.926, 231.992, 17.541, 0.622)
pt3dadd(-63.015, 232.066, 17.512, 0.57)
pt3dadd(-63.104, 232.139, 17.483, 0.518)
pt3dadd(-63.193, 232.211, 17.454, 0.466)
pt3dadd(-63.282, 232.284, 17.425, 0.412)
pt3dadd(-63.371, 232.357, 17.396, 0.36)
pt3dadd(-63.459, 232.429, 17.368, 0.308)
pt3dadd(-63.552, 232.486, 17.326, 0.286)
pt3dadd(-63.646, 232.535, 17.279, 0.28)
pt3dadd(-63.74, 232.583, 17.231, 0.274)
pt3dadd(-63.834, 232.631, 17.184, 0.268)
pt3dadd(-63.927, 232.68, 17.136, 0.26)
pt3dadd(-64.021, 232.728, 17.089, 0.254)
pt3dadd(-64.115, 232.776, 17.042, 0.248)
pt3dadd(-64.209, 232.825, 16.994, 0.24)
pt3dadd(-64.303, 232.873, 16.947, 0.234)
pt3dadd(-64.397, 232.921, 16.899, 0.228)
pt3dadd(-64.49, 232.966, 16.847, 0.232)
pt3dadd(-64.582, 233.008, 16.794, 0.24)
pt3dadd(-64.674, 233.051, 16.741, 0.25)
pt3dadd(-64.766, 233.093, 16.688, 0.258)
pt3dadd(-64.859, 233.136, 16.635, 0.266)
pt3dadd(-64.951, 233.178, 16.582, 0.276)
pt3dadd(-65.043, 233.221, 16.528, 0.284)
pt3dadd(-65.136, 233.263, 16.475, 0.292)
pt3dadd(-65.228, 233.305, 16.422, 0.3)
pt3dadd(-65.32, 233.348, 16.369, 0.31)
pt3dadd(-65.397, 233.377, 16.297, 0.37)
pt3dadd(-65.471, 233.402, 16.221, 0.444)
pt3dadd(-65.544, 233.426, 16.144, 0.518)
pt3dadd(-65.617, 233.452, 16.068, 0.592)
pt3dadd(-65.69, 233.477, 15.991, 0.664)
pt3dadd(-65.764, 233.502, 15.915, 0.738)
pt3dadd(-65.837, 233.527, 15.839, 0.812)
pt3dadd(-65.91, 233.552, 15.762, 0.886)
pt3dadd(-65.984, 233.578, 15.686, 0.96)
pt3dadd(-66.057, 233.603, 15.61, 1.034)
pt3dadd(-66.139, 233.636, 15.543, 1.052)
pt3dadd(-66.223, 233.671, 15.478, 1.058)
pt3dadd(-66.307, 233.707, 15.413, 1.064)
pt3dadd(-66.392, 233.743, 15.348, 1.07)
pt3dadd(-66.476, 233.779, 15.284, 1.074)
pt3dadd(-66.56, 233.814, 15.219, 1.08)
pt3dadd(-66.644, 233.85, 15.154, 1.086)
pt3dadd(-66.728, 233.886, 15.089, 1.09)
pt3dadd(-66.813, 233.921, 15.025, 1.096)
pt3dadd(-66.897, 233.957, 14.96, 1.102)
pt3dadd(-66.987, 233.998, 14.904, 1.064)
pt3dadd(-67.078, 234.04, 14.848, 1.02)
pt3dadd(-67.168, 234.082, 14.793, 0.976)
pt3dadd(-67.259, 234.124, 14.738, 0.934)
pt3dadd(-67.35, 234.166, 14.682, 0.89)
pt3dadd(-67.441, 234.208, 14.627, 0.848)
pt3dadd(-67.532, 234.248, 14.571, 0.804)
pt3dadd(-67.622, 234.29, 14.516, 0.762)
pt3dadd(-67.713, 234.332, 14.461, 0.718)
pt3dadd(-67.804, 234.374, 14.405, 0.676)
pt3dadd(-67.9, 234.391, 14.347, 0.648)
pt3dadd(-67.996, 234.407, 14.289, 0.622)
pt3dadd(-68.093, 234.421, 14.231, 0.596)
pt3dadd(-68.189, 234.437, 14.173, 0.57)
pt3dadd(-68.286, 234.451, 14.115, 0.542)
pt3dadd(-68.382, 234.467, 14.057, 0.516)
pt3dadd(-68.479, 234.481, 13.998, 0.49)
pt3dadd(-68.575, 234.497, 13.94, 0.464)
pt3dadd(-68.672, 234.511, 13.882, 0.438)
pt3dadd(-68.768, 234.527, 13.824, 0.412)
}
}
proc shape3d_19() {
dend_5[4] { pt3dadd(-68.866, 234.535, 13.766, 0.392)
pt3dadd(-68.963, 234.542, 13.708, 0.374)
pt3dadd(-69.061, 234.551, 13.651, 0.356)
pt3dadd(-69.159, 234.558, 13.593, 0.338)
pt3dadd(-69.256, 234.566, 13.535, 0.318)
pt3dadd(-69.354, 234.574, 13.477, 0.3)
pt3dadd(-69.452, 234.581, 13.42, 0.282)
pt3dadd(-69.549, 234.589, 13.362, 0.264)
pt3dadd(-69.647, 234.596, 13.304, 0.246)
pt3dadd(-69.745, 234.605, 13.247, 0.226)
pt3dadd(-69.843, 234.595, 13.191, 0.226)
pt3dadd(-69.943, 234.587, 13.135, 0.226)
pt3dadd(-70.042, 234.577, 13.079, 0.226)
pt3dadd(-70.141, 234.568, 13.023, 0.226)
pt3dadd(-70.24, 234.558, 12.967, 0.226)
pt3dadd(-70.339, 234.548, 12.911, 0.226)
pt3dadd(-70.438, 234.539, 12.855, 0.226)
pt3dadd(-70.537, 234.529, 12.799, 0.226)
pt3dadd(-70.636, 234.52, 12.743, 0.226)
pt3dadd(-70.735, 234.51, 12.687, 0.226)
pt3dadd(-70.836, 234.482, 12.638, 0.226)
pt3dadd(-70.936, 234.454, 12.59, 0.226)
pt3dadd(-71.037, 234.425, 12.541, 0.226)
pt3dadd(-71.138, 234.396, 12.493, 0.226)
pt3dadd(-71.239, 234.367, 12.444, 0.226)
pt3dadd(-71.34, 234.338, 12.396, 0.226)
pt3dadd(-71.441, 234.31, 12.347, 0.226)
pt3dadd(-71.542, 234.281, 12.299, 0.226)
pt3dadd(-71.643, 234.252, 12.25, 0.226)
pt3dadd(-71.743, 234.218, 12.204, 0.226)
pt3dadd(-71.841, 234.163, 12.169, 0.226)
pt3dadd(-71.939, 234.108, 12.133, 0.226)
pt3dadd(-72.037, 234.053, 12.098, 0.226)
pt3dadd(-72.135, 233.998, 12.063, 0.226)
pt3dadd(-72.233, 233.944, 12.028, 0.226)
pt3dadd(-72.33, 233.888, 11.993, 0.226)
pt3dadd(-72.429, 233.833, 11.957, 0.226)
pt3dadd(-72.526, 233.778, 11.922, 0.226)
pt3dadd(-72.624, 233.723, 11.887, 0.226)
pt3dadd(-72.722, 233.666, 11.853, 0.226)
pt3dadd(-72.819, 233.604, 11.826, 0.226)
pt3dadd(-72.916, 233.54, 11.8, 0.226)
pt3dadd(-73.012, 233.477, 11.773, 0.226)
pt3dadd(-73.109, 233.413, 11.746, 0.226)
pt3dadd(-73.206, 233.351, 11.719, 0.226)
pt3dadd(-73.302, 233.287, 11.692, 0.226)
pt3dadd(-73.399, 233.224, 11.665, 0.226)
pt3dadd(-73.496, 233.161, 11.638, 0.226)
pt3dadd(-73.593, 233.098, 11.611, 0.226)
pt3dadd(-73.689, 233.033, 11.586, 0.226)
pt3dadd(-73.783, 232.962, 11.568, 0.226)
pt3dadd(-73.878, 232.891, 11.55, 0.226)
pt3dadd(-73.972, 232.82, 11.531, 0.226)
pt3dadd(-74.067, 232.75, 11.513, 0.226)
pt3dadd(-74.161, 232.679, 11.495, 0.226)
pt3dadd(-74.255, 232.608, 11.476, 0.226)
pt3dadd(-74.35, 232.537, 11.458, 0.226)
pt3dadd(-74.444, 232.466, 11.439, 0.226)
pt3dadd(-74.539, 232.396, 11.421, 0.226)
pt3dadd(-74.634, 232.327, 11.401, 0.234)
pt3dadd(-74.731, 232.265, 11.374, 0.266)
pt3dadd(-74.828, 232.202, 11.347, 0.298)
pt3dadd(-74.925, 232.14, 11.321, 0.33)
pt3dadd(-75.023, 232.076, 11.294, 0.362)
pt3dadd(-75.12, 232.014, 11.267, 0.394)
pt3dadd(-75.217, 231.952, 11.24, 0.426)
pt3dadd(-75.314, 231.889, 11.213, 0.456)
pt3dadd(-75.411, 231.827, 11.187, 0.488)
pt3dadd(-75.509, 231.764, 11.16, 0.52)
pt3dadd(-75.606, 231.703, 11.131, 0.562)
pt3dadd(-75.705, 231.649, 11.097, 0.622)
pt3dadd(-75.804, 231.595, 11.063, 0.682)
pt3dadd(-75.903, 231.54, 11.029, 0.742)
pt3dadd(-76.002, 231.486, 10.994, 0.802)
pt3dadd(-76.1, 231.432, 10.96, 0.862)
pt3dadd(-76.199, 231.378, 10.926, 0.922)
pt3dadd(-76.298, 231.323, 10.892, 0.984)
pt3dadd(-76.397, 231.269, 10.858, 1.044)
pt3dadd(-76.496, 231.215, 10.824, 1.104)
pt3dadd(-76.594, 231.158, 10.792, 1.14)
pt3dadd(-76.693, 231.097, 10.765, 1.122)
pt3dadd(-76.792, 231.037, 10.739, 1.102)
pt3dadd(-76.89, 230.977, 10.712, 1.084)
pt3dadd(-76.989, 230.917, 10.686, 1.066)
pt3dadd(-77.088, 230.856, 10.659, 1.048)
pt3dadd(-77.187, 230.796, 10.632, 1.028)
pt3dadd(-77.285, 230.736, 10.606, 1.01)
pt3dadd(-77.384, 230.675, 10.579, 0.992)
pt3dadd(-77.483, 230.615, 10.553, 0.974)
pt3dadd(-77.581, 230.554, 10.527, 0.942)
pt3dadd(-77.679, 230.49, 10.505, 0.88)
pt3dadd(-77.778, 230.426, 10.483, 0.82)
pt3dadd(-77.876, 230.364, 10.46, 0.758)
pt3dadd(-77.974, 230.3, 10.438, 0.698)
pt3dadd(-78.073, 230.237, 10.415, 0.638)
pt3dadd(-78.171, 230.173, 10.393, 0.576)
pt3dadd(-78.269, 230.11, 10.37, 0.516)
pt3dadd(-78.367, 230.047, 10.348, 0.456)
pt3dadd(-78.466, 229.984, 10.325, 0.394)
pt3dadd(-78.564, 229.919, 10.305, 0.348)
pt3dadd(-78.662, 229.853, 10.29, 0.336)
pt3dadd(-78.761, 229.787, 10.275, 0.324)
pt3dadd(-78.859, 229.721, 10.26, 0.31)
pt3dadd(-78.958, 229.654, 10.245, 0.298)
pt3dadd(-79.056, 229.588, 10.23, 0.286)
pt3dadd(-79.154, 229.522, 10.215, 0.272)
pt3dadd(-79.253, 229.456, 10.2, 0.26)
pt3dadd(-79.351, 229.388, 10.185, 0.248)
pt3dadd(-79.449, 229.322, 10.17, 0.234)
pt3dadd(-79.548, 229.256, 10.155, 0.226)
pt3dadd(-79.646, 229.189, 10.142, 0.226)
pt3dadd(-79.744, 229.122, 10.129, 0.226)
pt3dadd(-79.843, 229.055, 10.116, 0.226)
pt3dadd(-79.941, 228.988, 10.103, 0.226)
pt3dadd(-80.039, 228.92, 10.09, 0.226)
pt3dadd(-80.137, 228.853, 10.077, 0.226)
pt3dadd(-80.236, 228.786, 10.064, 0.226)
pt3dadd(-80.334, 228.719, 10.051, 0.226)
pt3dadd(-80.432, 228.652, 10.038, 0.226)
pt3dadd(-80.534, 228.593, 10.025, 0.226)
pt3dadd(-80.645, 228.547, 10.014, 0.226)
pt3dadd(-80.755, 228.502, 10.003, 0.226)
pt3dadd(-80.865, 228.457, 9.992, 0.226)
pt3dadd(-80.976, 228.412, 9.981, 0.226)
pt3dadd(-81.086, 228.367, 9.969, 0.226)
pt3dadd(-81.197, 228.322, 9.958, 0.226)
pt3dadd(-81.307, 228.276, 9.947, 0.226)
pt3dadd(-81.417, 228.232, 9.936, 0.226)
pt3dadd(-81.528, 228.186, 9.925, 0.226)
pt3dadd(-81.639, 228.145, 9.912, 0.226)
pt3dadd(-81.754, 228.114, 9.897, 0.226)
pt3dadd(-81.868, 228.083, 9.882, 0.226)
pt3dadd(-81.983, 228.05, 9.868, 0.226)
pt3dadd(-82.097, 228.019, 9.853, 0.226)
pt3dadd(-82.211, 227.988, 9.838, 0.226)
pt3dadd(-82.326, 227.956, 9.823, 0.226)
pt3dadd(-82.44, 227.924, 9.808, 0.226)
pt3dadd(-82.554, 227.893, 9.793, 0.226)
pt3dadd(-82.669, 227.861, 9.778, 0.226)
pt3dadd(-82.782, 227.837, 9.754, 0.23)
pt3dadd(-82.892, 227.824, 9.717, 0.24)
pt3dadd(-83.003, 227.81, 9.679, 0.25)
pt3dadd(-83.113, 227.797, 9.642, 0.258)
pt3dadd(-83.224, 227.784, 9.605, 0.268)
pt3dadd(-83.335, 227.771, 9.568, 0.278)
pt3dadd(-83.445, 227.756, 9.531, 0.288)
pt3dadd(-83.556, 227.743, 9.494, 0.298)
pt3dadd(-83.667, 227.73, 9.457, 0.306)
pt3dadd(-83.777, 227.717, 9.419, 0.316)
pt3dadd(-83.844, 227.717, 9.336, 0.352)
pt3dadd(-83.91, 227.717, 9.253, 0.388)
pt3dadd(-83.977, 227.717, 9.17, 0.426)
pt3dadd(-84.043, 227.717, 9.087, 0.462)
pt3dadd(-84.11, 227.717, 9.003, 0.498)
pt3dadd(-84.176, 227.717, 8.92, 0.534)
pt3dadd(-84.243, 227.717, 8.837, 0.57)
pt3dadd(-84.31, 227.717, 8.754, 0.606)
pt3dadd(-84.376, 227.717, 8.67, 0.642)
pt3dadd(-84.443, 227.717, 8.587, 0.678)
}
apic[7] {pt3dclear()
pt3dadd(32.176, 186.592, 14.456, 1.808)
pt3dadd(32.149, 186.696, 14.478, 1.728)
pt3dadd(32.12, 186.809, 14.502, 1.642)
pt3dadd(32.091, 186.922, 14.526, 1.556)
pt3dadd(32.062, 187.034, 14.55, 1.47)
pt3dadd(32.033, 187.147, 14.573, 1.384)
pt3dadd(32.004, 187.261, 14.597, 1.298)
pt3dadd(31.976, 187.374, 14.621, 1.212)
pt3dadd(31.947, 187.487, 14.645, 1.126)
pt3dadd(31.918, 187.6, 14.669, 1.04)
pt3dadd(31.889, 187.712, 14.693, 0.954)
pt3dadd(31.86, 187.825, 14.717, 0.868)
pt3dadd(31.833, 187.938, 14.741, 0.788)
pt3dadd(31.821, 188.054, 14.763, 0.746)
pt3dadd(31.81, 188.171, 14.786, 0.704)
pt3dadd(31.798, 188.287, 14.808, 0.662)
pt3dadd(31.786, 188.404, 14.831, 0.62)
pt3dadd(31.775, 188.52, 14.853, 0.578)
pt3dadd(31.763, 188.636, 14.876, 0.536)
pt3dadd(31.751, 188.753, 14.898, 0.492)
pt3dadd(31.739, 188.869, 14.92, 0.45)
pt3dadd(31.728, 188.986, 14.943, 0.408)
pt3dadd(31.718, 189.102, 14.965, 0.372)
pt3dadd(31.718, 189.22, 14.986, 0.36)
pt3dadd(31.718, 189.336, 15.008, 0.348)
pt3dadd(31.718, 189.454, 15.029, 0.334)
pt3dadd(31.718, 189.571, 15.05, 0.322)
pt3dadd(31.718, 189.688, 15.071, 0.308)
pt3dadd(31.718, 189.805, 15.093, 0.296)
pt3dadd(31.718, 189.923, 15.114, 0.284)
pt3dadd(31.717, 190.04, 15.135, 0.27)
pt3dadd(31.717, 190.157, 15.157, 0.258)
pt3dadd(31.717, 190.273, 15.181, 0.248)
pt3dadd(31.717, 190.385, 15.219, 0.246)
pt3dadd(31.717, 190.495, 15.257, 0.244)
pt3dadd(31.717, 190.607, 15.295, 0.24)
pt3dadd(31.717, 190.717, 15.332, 0.238)
pt3dadd(31.717, 190.829, 15.37, 0.236)
pt3dadd(31.716, 190.939, 15.408, 0.234)
pt3dadd(31.716, 191.051, 15.446, 0.232)
pt3dadd(31.716, 191.162, 15.484, 0.23)
}
}
proc shape3d_20() {
apic[7] { pt3dadd(31.716, 191.273, 15.521, 0.228)
pt3dadd(31.716, 191.384, 15.559, 0.226)
pt3dadd(31.716, 191.496, 15.595, 0.226)
pt3dadd(31.716, 191.609, 15.631, 0.226)
pt3dadd(31.715, 191.72, 15.667, 0.226)
pt3dadd(31.715, 191.832, 15.703, 0.226)
pt3dadd(31.715, 191.944, 15.739, 0.226)
pt3dadd(31.714, 192.056, 15.775, 0.226)
pt3dadd(31.714, 192.168, 15.811, 0.226)
pt3dadd(31.714, 192.28, 15.847, 0.226)
pt3dadd(31.714, 192.392, 15.883, 0.226)
pt3dadd(31.713, 192.505, 15.916, 0.226)
pt3dadd(31.713, 192.622, 15.94, 0.226)
pt3dadd(31.713, 192.738, 15.964, 0.226)
pt3dadd(31.712, 192.854, 15.988, 0.226)
pt3dadd(31.712, 192.971, 16.012, 0.226)
pt3dadd(31.712, 193.087, 16.036, 0.226)
pt3dadd(31.711, 193.204, 16.06, 0.226)
pt3dadd(31.711, 193.32, 16.084, 0.226)
pt3dadd(31.711, 193.436, 16.108, 0.226)
pt3dadd(31.71, 193.553, 16.132, 0.226)
pt3dadd(31.71, 193.67, 16.154, 0.228)
pt3dadd(31.709, 193.789, 16.169, 0.238)
pt3dadd(31.709, 193.908, 16.184, 0.248)
pt3dadd(31.708, 194.027, 16.199, 0.258)
pt3dadd(31.707, 194.144, 16.214, 0.268)
pt3dadd(31.707, 194.263, 16.229, 0.28)
pt3dadd(31.706, 194.382, 16.245, 0.29)
pt3dadd(31.706, 194.501, 16.26, 0.3)
pt3dadd(31.705, 194.62, 16.275, 0.31)
pt3dadd(31.704, 194.738, 16.29, 0.32)
pt3dadd(31.704, 194.857, 16.303, 0.33)
pt3dadd(31.703, 194.976, 16.313, 0.342)
pt3dadd(31.702, 195.096, 16.323, 0.356)
pt3dadd(31.701, 195.215, 16.333, 0.368)
pt3dadd(31.7, 195.335, 16.342, 0.38)
pt3dadd(31.699, 195.454, 16.352, 0.394)
pt3dadd(31.698, 195.574, 16.362, 0.406)
pt3dadd(31.697, 195.692, 16.372, 0.418)
pt3dadd(31.696, 195.812, 16.382, 0.43)
pt3dadd(31.695, 195.931, 16.391, 0.444)
pt3dadd(31.694, 196.051, 16.398, 0.452)
pt3dadd(31.692, 196.171, 16.399, 0.452)
pt3dadd(31.69, 196.291, 16.399, 0.452)
pt3dadd(31.689, 196.411, 16.399, 0.452)
pt3dadd(31.687, 196.531, 16.4, 0.452)
pt3dadd(31.685, 196.651, 16.4, 0.452)
pt3dadd(31.683, 196.771, 16.4, 0.452)
pt3dadd(31.681, 196.891, 16.401, 0.452)
pt3dadd(31.68, 197.011, 16.401, 0.452)
pt3dadd(31.678, 197.131, 16.401, 0.452)
pt3dadd(31.676, 197.251, 16.401, 0.45)
pt3dadd(31.673, 197.371, 16.402, 0.442)
pt3dadd(31.67, 197.491, 16.402, 0.432)
pt3dadd(31.667, 197.611, 16.403, 0.424)
pt3dadd(31.665, 197.731, 16.403, 0.416)
pt3dadd(31.662, 197.851, 16.404, 0.408)
pt3dadd(31.659, 197.971, 16.404, 0.4)
pt3dadd(31.656, 198.091, 16.405, 0.392)
pt3dadd(31.653, 198.211, 16.405, 0.382)
pt3dadd(31.651, 198.331, 16.406, 0.374)
pt3dadd(31.648, 198.451, 16.406, 0.364)
pt3dadd(31.644, 198.571, 16.407, 0.35)
pt3dadd(31.64, 198.69, 16.408, 0.336)
pt3dadd(31.636, 198.81, 16.408, 0.322)
pt3dadd(31.632, 198.93, 16.409, 0.308)
pt3dadd(31.629, 199.05, 16.41, 0.294)
pt3dadd(31.625, 199.17, 16.41, 0.278)
pt3dadd(31.621, 199.29, 16.411, 0.264)
pt3dadd(31.617, 199.41, 16.412, 0.25)
pt3dadd(31.613, 199.53, 16.412, 0.236)
pt3dadd(31.608, 199.65, 16.413, 0.226)
pt3dadd(31.599, 199.77, 16.415, 0.226)
pt3dadd(31.59, 199.889, 16.416, 0.226)
pt3dadd(31.581, 200.009, 16.417, 0.226)
pt3dadd(31.572, 200.129, 16.419, 0.226)
pt3dadd(31.563, 200.249, 16.42, 0.226)
pt3dadd(31.554, 200.368, 16.422, 0.226)
pt3dadd(31.546, 200.488, 16.423, 0.226)
pt3dadd(31.537, 200.608, 16.425, 0.226)
pt3dadd(31.528, 200.726, 16.426, 0.226)
pt3dadd(31.518, 200.846, 16.428, 0.234)
pt3dadd(31.506, 200.966, 16.43, 0.262)
pt3dadd(31.494, 201.085, 16.432, 0.29)
pt3dadd(31.482, 201.205, 16.434, 0.318)
pt3dadd(31.471, 201.324, 16.436, 0.346)
pt3dadd(31.459, 201.444, 16.438, 0.376)
pt3dadd(31.447, 201.563, 16.441, 0.404)
pt3dadd(31.435, 201.682, 16.443, 0.432)
pt3dadd(31.423, 201.802, 16.445, 0.46)
pt3dadd(31.411, 201.92, 16.447, 0.488)
pt3dadd(31.398, 202.04, 16.449, 0.526)
pt3dadd(31.383, 202.159, 16.452, 0.584)
pt3dadd(31.368, 202.278, 16.455, 0.644)
pt3dadd(31.353, 202.397, 16.458, 0.702)
pt3dadd(31.338, 202.516, 16.461, 0.762)
pt3dadd(31.323, 202.636, 16.464, 0.82)
pt3dadd(31.308, 202.754, 16.467, 0.88)
pt3dadd(31.292, 202.873, 16.47, 0.94)
pt3dadd(31.277, 202.992, 16.473, 0.998)
pt3dadd(31.262, 203.111, 16.476, 1.058)
pt3dadd(31.238, 203.227, 16.48, 1.096)
pt3dadd(31.19, 203.338, 16.487, 1.086)
pt3dadd(31.143, 203.448, 16.493, 1.076)
pt3dadd(31.096, 203.557, 16.5, 1.064)
pt3dadd(31.049, 203.668, 16.507, 1.054)
pt3dadd(31.001, 203.778, 16.514, 1.044)
pt3dadd(30.954, 203.887, 16.52, 1.034)
pt3dadd(30.907, 203.998, 16.527, 1.024)
pt3dadd(30.86, 204.108, 16.534, 1.014)
pt3dadd(30.812, 204.217, 16.54, 1.002)
pt3dadd(30.766, 204.328, 16.548, 0.994)
pt3dadd(30.722, 204.439, 16.557, 0.99)
pt3dadd(30.677, 204.55, 16.566, 0.988)
pt3dadd(30.633, 204.661, 16.574, 0.984)
pt3dadd(30.588, 204.772, 16.583, 0.98)
pt3dadd(30.544, 204.883, 16.592, 0.976)
pt3dadd(30.5, 204.994, 16.601, 0.972)
pt3dadd(30.455, 205.105, 16.61, 0.968)
pt3dadd(30.411, 205.216, 16.619, 0.964)
pt3dadd(30.367, 205.327, 16.628, 0.962)
pt3dadd(30.325, 205.439, 16.638, 0.964)
pt3dadd(30.289, 205.552, 16.65, 0.98)
pt3dadd(30.253, 205.666, 16.663, 0.994)
pt3dadd(30.217, 205.78, 16.675, 1.01)
pt3dadd(30.181, 205.892, 16.688, 1.026)
pt3dadd(30.145, 206.006, 16.7, 1.042)
pt3dadd(30.109, 206.119, 16.713, 1.058)
pt3dadd(30.073, 206.233, 16.726, 1.072)
pt3dadd(30.037, 206.346, 16.738, 1.088)
pt3dadd(30.001, 206.46, 16.75, 1.104)
pt3dadd(29.967, 206.569, 16.776, 1.096)
pt3dadd(29.936, 206.668, 16.825, 1.046)
pt3dadd(29.904, 206.767, 16.875, 0.994)
pt3dadd(29.873, 206.866, 16.925, 0.944)
pt3dadd(29.842, 206.965, 16.975, 0.892)
pt3dadd(29.81, 207.065, 17.025, 0.842)
pt3dadd(29.779, 207.163, 17.075, 0.79)
pt3dadd(29.748, 207.263, 17.125, 0.74)
pt3dadd(29.717, 207.361, 17.175, 0.688)
pt3dadd(29.685, 207.461, 17.225, 0.638)
pt3dadd(29.658, 207.564, 17.27, 0.596)
pt3dadd(29.635, 207.673, 17.307, 0.568)
pt3dadd(29.612, 207.782, 17.344, 0.538)
pt3dadd(29.589, 207.89, 17.382, 0.51)
pt3dadd(29.566, 208, 17.419, 0.48)
pt3dadd(29.543, 208.109, 17.457, 0.452)
pt3dadd(29.52, 208.218, 17.494, 0.422)
pt3dadd(29.497, 208.326, 17.531, 0.394)
pt3dadd(29.474, 208.435, 17.569, 0.364)
pt3dadd(29.451, 208.544, 17.606, 0.334)
pt3dadd(29.422, 208.655, 17.636, 0.316)
pt3dadd(29.386, 208.766, 17.658, 0.306)
pt3dadd(29.35, 208.878, 17.68, 0.296)
pt3dadd(29.314, 208.988, 17.702, 0.286)
pt3dadd(29.278, 209.1, 17.724, 0.278)
pt3dadd(29.243, 209.212, 17.746, 0.268)
pt3dadd(29.207, 209.323, 17.768, 0.258)
pt3dadd(29.171, 209.435, 17.79, 0.248)
pt3dadd(29.135, 209.546, 17.812, 0.238)
pt3dadd(29.099, 209.658, 17.834, 0.23)
pt3dadd(29.053, 209.766, 17.849, 0.226)
pt3dadd(29, 209.873, 17.861, 0.226)
pt3dadd(28.948, 209.981, 17.872, 0.226)
pt3dadd(28.896, 210.088, 17.884, 0.226)
pt3dadd(28.843, 210.194, 17.895, 0.226)
pt3dadd(28.791, 210.301, 17.907, 0.226)
pt3dadd(28.738, 210.408, 17.918, 0.226)
pt3dadd(28.686, 210.516, 17.93, 0.226)
pt3dadd(28.634, 210.623, 17.941, 0.226)
pt3dadd(28.581, 210.73, 17.953, 0.226)
pt3dadd(28.537, 210.841, 17.958, 0.226)
pt3dadd(28.498, 210.954, 17.96, 0.226)
pt3dadd(28.459, 211.068, 17.961, 0.226)
pt3dadd(28.421, 211.181, 17.963, 0.226)
pt3dadd(28.382, 211.295, 17.965, 0.226)
pt3dadd(28.343, 211.409, 17.966, 0.226)
pt3dadd(28.304, 211.522, 17.968, 0.226)
pt3dadd(28.265, 211.636, 17.97, 0.226)
pt3dadd(28.226, 211.748, 17.971, 0.226)
pt3dadd(28.187, 211.862, 17.973, 0.226)
pt3dadd(28.15, 211.976, 17.974, 0.226)
pt3dadd(28.115, 212.092, 17.975, 0.226)
pt3dadd(28.079, 212.206, 17.976, 0.226)
pt3dadd(28.044, 212.321, 17.977, 0.226)
pt3dadd(28.008, 212.435, 17.978, 0.226)
pt3dadd(27.972, 212.55, 17.979, 0.226)
pt3dadd(27.937, 212.664, 17.98, 0.226)
pt3dadd(27.901, 212.779, 17.981, 0.226)
pt3dadd(27.866, 212.893, 17.983, 0.226)
pt3dadd(27.83, 213.008, 17.984, 0.226)
pt3dadd(27.799, 213.124, 17.985, 0.226)
pt3dadd(27.769, 213.24, 17.987, 0.226)
pt3dadd(27.739, 213.356, 17.989, 0.226)
pt3dadd(27.709, 213.473, 17.99, 0.226)
pt3dadd(27.68, 213.589, 17.992, 0.226)
pt3dadd(27.65, 213.704, 17.994, 0.226)
pt3dadd(27.62, 213.821, 17.996, 0.226)
pt3dadd(27.591, 213.937, 17.997, 0.226)
pt3dadd(27.561, 214.054, 17.999, 0.226)
}
}
proc shape3d_21() {
apic[7] { pt3dadd(27.531, 214.17, 18.001, 0.226)
pt3dadd(27.492, 214.283, 18.003, 0.238)
pt3dadd(27.448, 214.394, 18.006, 0.256)
pt3dadd(27.404, 214.506, 18.009, 0.272)
pt3dadd(27.36, 214.618, 18.012, 0.29)
pt3dadd(27.315, 214.729, 18.015, 0.308)
pt3dadd(27.271, 214.841, 18.017, 0.326)
pt3dadd(27.227, 214.952, 18.02, 0.344)
pt3dadd(27.183, 215.064, 18.023, 0.36)
pt3dadd(27.139, 215.176, 18.026, 0.378)
pt3dadd(27.095, 215.287, 18.029, 0.396)
pt3dadd(27.046, 215.396, 18.032, 0.42)
pt3dadd(26.995, 215.506, 18.035, 0.446)
pt3dadd(26.944, 215.614, 18.039, 0.472)
pt3dadd(26.893, 215.723, 18.042, 0.498)
pt3dadd(26.842, 215.831, 18.045, 0.524)
pt3dadd(26.791, 215.939, 18.049, 0.552)
pt3dadd(26.741, 216.048, 18.052, 0.578)
pt3dadd(26.69, 216.156, 18.056, 0.604)
pt3dadd(26.639, 216.265, 18.059, 0.63)
pt3dadd(26.588, 216.373, 18.062, 0.656)
pt3dadd(26.544, 216.485, 18.069, 0.664)
pt3dadd(26.503, 216.598, 18.077, 0.666)
pt3dadd(26.461, 216.709, 18.085, 0.668)
pt3dadd(26.42, 216.822, 18.094, 0.67)
pt3dadd(26.379, 216.934, 18.102, 0.67)
pt3dadd(26.338, 217.046, 18.11, 0.672)
pt3dadd(26.297, 217.159, 18.118, 0.674)
pt3dadd(26.256, 217.271, 18.126, 0.674)
pt3dadd(26.214, 217.384, 18.134, 0.676)
pt3dadd(26.173, 217.495, 18.142, 0.678)
pt3dadd(26.13, 217.607, 18.152, 0.678)
pt3dadd(26.085, 217.717, 18.162, 0.678)
pt3dadd(26.041, 217.829, 18.172, 0.678)
pt3dadd(25.996, 217.939, 18.182, 0.678)
pt3dadd(25.951, 218.05, 18.192, 0.678)
pt3dadd(25.907, 218.16, 18.202, 0.678)
pt3dadd(25.862, 218.272, 18.212, 0.678)
pt3dadd(25.818, 218.382, 18.222, 0.678)
pt3dadd(25.773, 218.492, 18.232, 0.678)
pt3dadd(25.728, 218.604, 18.242, 0.678)
pt3dadd(25.677, 218.711, 18.255, 0.678)
pt3dadd(25.623, 218.816, 18.269, 0.678)
pt3dadd(25.569, 218.923, 18.283, 0.678)
pt3dadd(25.516, 219.029, 18.297, 0.678)
pt3dadd(25.462, 219.134, 18.31, 0.678)
pt3dadd(25.408, 219.241, 18.324, 0.678)
pt3dadd(25.354, 219.347, 18.338, 0.678)
pt3dadd(25.301, 219.452, 18.352, 0.678)
pt3dadd(25.247, 219.559, 18.366, 0.678)
pt3dadd(25.193, 219.665, 18.38, 0.678)
pt3dadd(25.151, 219.772, 18.406, 0.672)
pt3dadd(25.113, 219.88, 18.438, 0.666)
pt3dadd(25.075, 219.986, 18.469, 0.658)
pt3dadd(25.037, 220.094, 18.501, 0.65)
pt3dadd(24.999, 220.201, 18.532, 0.644)
pt3dadd(24.96, 220.309, 18.563, 0.636)
pt3dadd(24.922, 220.416, 18.595, 0.628)
pt3dadd(24.884, 220.524, 18.626, 0.622)
pt3dadd(24.846, 220.631, 18.657, 0.614)
pt3dadd(24.808, 220.739, 18.689, 0.606)
pt3dadd(24.783, 220.843, 18.732, 0.594)
pt3dadd(24.759, 220.948, 18.777, 0.58)
pt3dadd(24.735, 221.053, 18.821, 0.568)
pt3dadd(24.711, 221.158, 18.865, 0.554)
pt3dadd(24.687, 221.262, 18.91, 0.542)
pt3dadd(24.662, 221.368, 18.954, 0.528)
pt3dadd(24.638, 221.472, 18.999, 0.516)
pt3dadd(24.614, 221.576, 19.043, 0.502)
pt3dadd(24.59, 221.682, 19.087, 0.49)
pt3dadd(24.566, 221.786, 19.132, 0.476)
pt3dadd(24.555, 221.894, 19.173, 0.462)
pt3dadd(24.546, 222.004, 19.215, 0.448)
pt3dadd(24.537, 222.113, 19.256, 0.434)
pt3dadd(24.528, 222.222, 19.297, 0.42)
pt3dadd(24.518, 222.331, 19.338, 0.406)
pt3dadd(24.509, 222.439, 19.379, 0.392)
pt3dadd(24.5, 222.548, 19.42, 0.378)
pt3dadd(24.491, 222.658, 19.462, 0.364)
pt3dadd(24.481, 222.767, 19.503, 0.348)
pt3dadd(24.472, 222.875, 19.544, 0.334)
pt3dadd(24.47, 222.983, 19.589, 0.328)
pt3dadd(24.468, 223.09, 19.634, 0.32)
pt3dadd(24.466, 223.198, 19.679, 0.312)
pt3dadd(24.465, 223.304, 19.723, 0.304)
pt3dadd(24.463, 223.411, 19.768, 0.296)
pt3dadd(24.461, 223.519, 19.813, 0.29)
pt3dadd(24.459, 223.626, 19.858, 0.282)
pt3dadd(24.457, 223.733, 19.903, 0.274)
pt3dadd(24.455, 223.841, 19.948, 0.266)
pt3dadd(24.454, 223.948, 19.993, 0.26)
pt3dadd(24.464, 224.045, 20.05, 0.272)
pt3dadd(24.475, 224.143, 20.108, 0.286)
pt3dadd(24.486, 224.24, 20.165, 0.3)
pt3dadd(24.497, 224.338, 20.223, 0.314)
pt3dadd(24.507, 224.435, 20.281, 0.328)
pt3dadd(24.518, 224.532, 20.338, 0.34)
pt3dadd(24.529, 224.63, 20.396, 0.354)
pt3dadd(24.54, 224.728, 20.454, 0.368)
pt3dadd(24.551, 224.825, 20.511, 0.382)
pt3dadd(24.561, 224.922, 20.569, 0.396)
pt3dadd(24.598, 225.014, 20.626, 0.4)
pt3dadd(24.634, 225.106, 20.683, 0.406)
pt3dadd(24.67, 225.197, 20.741, 0.412)
pt3dadd(24.706, 225.288, 20.798, 0.418)
pt3dadd(24.743, 225.38, 20.855, 0.424)
pt3dadd(24.779, 225.472, 20.912, 0.43)
pt3dadd(24.815, 225.563, 20.97, 0.436)
pt3dadd(24.852, 225.654, 21.027, 0.442)
pt3dadd(24.888, 225.745, 21.084, 0.448)
pt3dadd(24.925, 225.836, 21.142, 0.454)
pt3dadd(24.968, 225.922, 21.202, 0.464)
pt3dadd(25.01, 226.008, 21.262, 0.474)
pt3dadd(25.053, 226.093, 21.323, 0.484)
pt3dadd(25.095, 226.18, 21.383, 0.494)
pt3dadd(25.138, 226.265, 21.443, 0.504)
pt3dadd(25.181, 226.351, 21.503, 0.516)
pt3dadd(25.223, 226.436, 21.564, 0.526)
pt3dadd(25.266, 226.523, 21.624, 0.536)
pt3dadd(25.308, 226.608, 21.684, 0.546)
pt3dadd(25.344, 226.693, 21.747, 0.562)
pt3dadd(25.363, 226.778, 21.816, 0.592)
pt3dadd(25.382, 226.864, 21.884, 0.624)
pt3dadd(25.401, 226.949, 21.953, 0.654)
pt3dadd(25.419, 227.034, 22.022, 0.684)
pt3dadd(25.438, 227.119, 22.091, 0.716)
pt3dadd(25.457, 227.204, 22.159, 0.746)
pt3dadd(25.475, 227.29, 22.228, 0.778)
pt3dadd(25.494, 227.375, 22.297, 0.808)
pt3dadd(25.513, 227.46, 22.365, 0.838)
pt3dadd(25.525, 227.545, 22.434, 0.862)
pt3dadd(25.52, 227.634, 22.502, 0.866)
pt3dadd(25.515, 227.722, 22.57, 0.87)
pt3dadd(25.509, 227.809, 22.638, 0.876)
pt3dadd(25.504, 227.897, 22.706, 0.88)
pt3dadd(25.499, 227.984, 22.774, 0.884)
pt3dadd(25.494, 228.073, 22.842, 0.888)
pt3dadd(25.489, 228.161, 22.91, 0.892)
pt3dadd(25.484, 228.248, 22.978, 0.896)
pt3dadd(25.478, 228.336, 23.046, 0.902)
pt3dadd(25.466, 228.424, 23.113, 0.9)
pt3dadd(25.439, 228.51, 23.179, 0.886)
pt3dadd(25.412, 228.596, 23.244, 0.872)
pt3dadd(25.385, 228.684, 23.309, 0.856)
pt3dadd(25.357, 228.77, 23.375, 0.842)
pt3dadd(25.33, 228.857, 23.44, 0.828)
pt3dadd(25.303, 228.943, 23.506, 0.814)
pt3dadd(25.275, 229.03, 23.571, 0.8)
pt3dadd(25.248, 229.116, 23.637, 0.786)
pt3dadd(25.221, 229.202, 23.702, 0.77)
pt3dadd(25.165, 229.28, 23.759, 0.734)
pt3dadd(25.094, 229.354, 23.811, 0.684)
pt3dadd(25.022, 229.427, 23.863, 0.634)
pt3dadd(24.95, 229.5, 23.915, 0.584)
pt3dadd(24.878, 229.573, 23.967, 0.534)
pt3dadd(24.806, 229.646, 24.019, 0.484)
pt3dadd(24.734, 229.72, 24.071, 0.434)
pt3dadd(24.662, 229.793, 24.123, 0.384)
pt3dadd(24.59, 229.866, 24.175, 0.332)
pt3dadd(24.519, 229.938, 24.227, 0.282)
pt3dadd(24.44, 230.016, 24.265, 0.262)
pt3dadd(24.358, 230.095, 24.296, 0.258)
pt3dadd(24.277, 230.176, 24.327, 0.254)
pt3dadd(24.195, 230.255, 24.357, 0.25)
pt3dadd(24.113, 230.334, 24.388, 0.246)
pt3dadd(24.031, 230.414, 24.418, 0.242)
pt3dadd(23.949, 230.494, 24.449, 0.238)
pt3dadd(23.867, 230.573, 24.48, 0.236)
pt3dadd(23.785, 230.653, 24.51, 0.232)
pt3dadd(23.703, 230.732, 24.541, 0.228)
pt3dadd(23.628, 230.812, 24.581, 0.242)
pt3dadd(23.555, 230.891, 24.627, 0.268)
pt3dadd(23.483, 230.969, 24.672, 0.292)
pt3dadd(23.411, 231.048, 24.718, 0.316)
pt3dadd(23.339, 231.126, 24.763, 0.342)
pt3dadd(23.266, 231.205, 24.809, 0.366)
pt3dadd(23.194, 231.284, 24.854, 0.392)
pt3dadd(23.122, 231.362, 24.899, 0.416)
pt3dadd(23.049, 231.442, 24.945, 0.442)
pt3dadd(22.977, 231.521, 24.99, 0.466)
pt3dadd(22.926, 231.6, 25.05, 0.504)
pt3dadd(22.877, 231.68, 25.113, 0.546)
pt3dadd(22.828, 231.761, 25.175, 0.586)
pt3dadd(22.78, 231.841, 25.237, 0.626)
pt3dadd(22.731, 231.922, 25.3, 0.666)
pt3dadd(22.683, 232.002, 25.362, 0.708)
pt3dadd(22.634, 232.082, 25.425, 0.748)
pt3dadd(22.586, 232.162, 25.487, 0.788)
pt3dadd(22.537, 232.242, 25.549, 0.83)
pt3dadd(22.489, 232.322, 25.612, 0.868)
pt3dadd(22.471, 232.424, 25.663, 0.852)
pt3dadd(22.453, 232.525, 25.715, 0.836)
pt3dadd(22.435, 232.627, 25.766, 0.82)
pt3dadd(22.417, 232.728, 25.818, 0.802)
pt3dadd(22.399, 232.829, 25.869, 0.786)
pt3dadd(22.381, 232.931, 25.92, 0.77)
pt3dadd(22.363, 233.032, 25.972, 0.752)
pt3dadd(22.345, 233.134, 26.023, 0.736)
pt3dadd(22.327, 233.234, 26.075, 0.72)
pt3dadd(22.309, 233.335, 26.127, 0.702)
}
}
proc shape3d_22() {
apic[7] { pt3dadd(22.302, 233.431, 26.186, 0.678)
pt3dadd(22.294, 233.528, 26.246, 0.652)
pt3dadd(22.287, 233.624, 26.305, 0.626)
pt3dadd(22.279, 233.72, 26.365, 0.602)
pt3dadd(22.272, 233.816, 26.425, 0.576)
pt3dadd(22.264, 233.912, 26.484, 0.55)
pt3dadd(22.257, 234.008, 26.544, 0.526)
pt3dadd(22.249, 234.104, 26.604, 0.5)
pt3dadd(22.242, 234.2, 26.663, 0.476)
pt3dadd(22.235, 234.296, 26.723, 0.45)
pt3dadd(22.229, 234.391, 26.784, 0.428)
pt3dadd(22.223, 234.486, 26.845, 0.404)
pt3dadd(22.217, 234.581, 26.906, 0.382)
pt3dadd(22.211, 234.676, 26.967, 0.36)
pt3dadd(22.205, 234.77, 27.028, 0.338)
pt3dadd(22.199, 234.865, 27.089, 0.316)
pt3dadd(22.193, 234.96, 27.15, 0.292)
pt3dadd(22.188, 235.055, 27.211, 0.27)
pt3dadd(22.182, 235.15, 27.272, 0.248)
pt3dadd(22.176, 235.244, 27.333, 0.226)
pt3dadd(22.168, 235.339, 27.395, 0.226)
pt3dadd(22.16, 235.433, 27.457, 0.226)
pt3dadd(22.152, 235.526, 27.519, 0.226)
pt3dadd(22.145, 235.621, 27.581, 0.226)
pt3dadd(22.137, 235.715, 27.642, 0.226)
pt3dadd(22.129, 235.808, 27.704, 0.226)
pt3dadd(22.121, 235.903, 27.766, 0.226)
pt3dadd(22.113, 235.997, 27.828, 0.226)
pt3dadd(22.106, 236.09, 27.89, 0.226)
pt3dadd(22.097, 236.185, 27.951, 0.226)
pt3dadd(22.081, 236.282, 28.008, 0.23)
pt3dadd(22.064, 236.38, 28.066, 0.236)
pt3dadd(22.047, 236.476, 28.123, 0.24)
pt3dadd(22.03, 236.573, 28.18, 0.246)
pt3dadd(22.013, 236.67, 28.237, 0.25)
pt3dadd(21.996, 236.767, 28.294, 0.254)
pt3dadd(21.98, 236.864, 28.352, 0.26)
pt3dadd(21.963, 236.962, 28.409, 0.264)
pt3dadd(21.946, 237.058, 28.466, 0.268)
pt3dadd(21.927, 237.156, 28.522, 0.274)
pt3dadd(21.893, 237.256, 28.569, 0.288)
pt3dadd(21.859, 237.356, 28.616, 0.302)
pt3dadd(21.825, 237.456, 28.663, 0.316)
pt3dadd(21.791, 237.557, 28.71, 0.33)
pt3dadd(21.757, 237.658, 28.757, 0.344)
pt3dadd(21.723, 237.757, 28.804, 0.358)
pt3dadd(21.69, 237.858, 28.851, 0.372)
pt3dadd(21.656, 237.959, 28.898, 0.386)
pt3dadd(21.622, 238.058, 28.944, 0.4)
pt3dadd(21.589, 238.158, 28.993, 0.414)
pt3dadd(21.568, 238.247, 29.058, 0.418)
pt3dadd(21.546, 238.336, 29.123, 0.422)
pt3dadd(21.525, 238.424, 29.188, 0.426)
pt3dadd(21.503, 238.513, 29.253, 0.43)
pt3dadd(21.482, 238.602, 29.318, 0.434)
pt3dadd(21.46, 238.691, 29.383, 0.438)
pt3dadd(21.439, 238.78, 29.447, 0.442)
pt3dadd(21.418, 238.868, 29.512, 0.444)
pt3dadd(21.396, 238.957, 29.577, 0.448)
pt3dadd(21.386, 239.047, 29.639, 0.45)
pt3dadd(21.421, 239.143, 29.692, 0.442)
pt3dadd(21.455, 239.239, 29.745, 0.432)
pt3dadd(21.489, 239.335, 29.798, 0.424)
pt3dadd(21.523, 239.43, 29.852, 0.414)
pt3dadd(21.557, 239.526, 29.905, 0.404)
pt3dadd(21.591, 239.622, 29.958, 0.396)
pt3dadd(21.625, 239.718, 30.011, 0.388)
pt3dadd(21.659, 239.814, 30.064, 0.378)
pt3dadd(21.694, 239.91, 30.117, 0.37)
pt3dadd(21.759, 240.002, 30.149, 0.354)
pt3dadd(21.825, 240.095, 30.182, 0.34)
pt3dadd(21.891, 240.186, 30.215, 0.326)
pt3dadd(21.957, 240.278, 30.248, 0.312)
pt3dadd(22.023, 240.371, 30.281, 0.298)
pt3dadd(22.089, 240.463, 30.314, 0.284)
pt3dadd(22.155, 240.556, 30.347, 0.268)
pt3dadd(22.221, 240.647, 30.38, 0.254)
pt3dadd(22.287, 240.739, 30.413, 0.24)
pt3dadd(22.352, 240.832, 30.446, 0.226)
}
apic[8] {pt3dclear()
pt3dadd(86.054, 141.647, 15.209, 1.808)
pt3dadd(86.054, 141.658, 15.207, 1.802)
pt3dadd(86.054, 141.774, 15.182, 1.726)
pt3dadd(86.054, 141.889, 15.157, 1.652)
pt3dadd(86.054, 142.006, 15.132, 1.578)
pt3dadd(86.054, 142.122, 15.108, 1.502)
pt3dadd(86.054, 142.238, 15.083, 1.428)
pt3dadd(86.054, 142.355, 15.058, 1.354)
pt3dadd(86.054, 142.471, 15.033, 1.278)
pt3dadd(86.054, 142.586, 15.008, 1.204)
pt3dadd(86.054, 142.703, 14.983, 1.128)
pt3dadd(86.05, 142.819, 14.959, 1.06)
pt3dadd(86.012, 142.931, 14.943, 1.024)
pt3dadd(85.975, 143.044, 14.928, 0.988)
pt3dadd(85.938, 143.156, 14.912, 0.954)
pt3dadd(85.9, 143.269, 14.896, 0.918)
pt3dadd(85.863, 143.381, 14.88, 0.882)
pt3dadd(85.825, 143.494, 14.865, 0.848)
pt3dadd(85.788, 143.606, 14.849, 0.812)
pt3dadd(85.751, 143.718, 14.833, 0.776)
pt3dadd(85.713, 143.831, 14.817, 0.742)
pt3dadd(85.651, 143.932, 14.809, 0.738)
pt3dadd(85.578, 144.026, 14.805, 0.748)
pt3dadd(85.506, 144.122, 14.801, 0.76)
pt3dadd(85.433, 144.217, 14.797, 0.77)
pt3dadd(85.36, 144.313, 14.793, 0.782)
pt3dadd(85.288, 144.408, 14.788, 0.792)
pt3dadd(85.215, 144.503, 14.784, 0.804)
pt3dadd(85.142, 144.599, 14.78, 0.814)
pt3dadd(85.069, 144.694, 14.776, 0.826)
pt3dadd(84.997, 144.79, 14.772, 0.836)
pt3dadd(84.929, 144.888, 14.766, 0.834)
pt3dadd(84.864, 144.989, 14.761, 0.828)
pt3dadd(84.798, 145.09, 14.755, 0.822)
pt3dadd(84.733, 145.189, 14.749, 0.816)
pt3dadd(84.668, 145.29, 14.744, 0.81)
pt3dadd(84.603, 145.391, 14.738, 0.804)
pt3dadd(84.537, 145.49, 14.732, 0.796)
pt3dadd(84.472, 145.591, 14.727, 0.79)
pt3dadd(84.407, 145.692, 14.721, 0.784)
pt3dadd(84.342, 145.793, 14.715, 0.778)
pt3dadd(84.285, 145.897, 14.708, 0.754)
pt3dadd(84.231, 146.004, 14.7, 0.722)
pt3dadd(84.178, 146.112, 14.693, 0.69)
pt3dadd(84.124, 146.219, 14.685, 0.658)
pt3dadd(84.071, 146.326, 14.677, 0.626)
pt3dadd(84.017, 146.432, 14.669, 0.596)
pt3dadd(83.964, 146.539, 14.661, 0.564)
pt3dadd(83.91, 146.646, 14.653, 0.532)
pt3dadd(83.856, 146.753, 14.646, 0.5)
pt3dadd(83.803, 146.861, 14.638, 0.47)
pt3dadd(83.739, 146.96, 14.628, 0.45)
pt3dadd(83.671, 147.059, 14.617, 0.436)
pt3dadd(83.603, 147.157, 14.606, 0.422)
pt3dadd(83.535, 147.254, 14.595, 0.41)
pt3dadd(83.467, 147.353, 14.584, 0.396)
pt3dadd(83.399, 147.451, 14.573, 0.382)
pt3dadd(83.331, 147.55, 14.562, 0.368)
pt3dadd(83.263, 147.647, 14.551, 0.354)
pt3dadd(83.195, 147.745, 14.54, 0.34)
pt3dadd(83.127, 147.844, 14.529, 0.326)
pt3dadd(83.059, 147.94, 14.51, 0.326)
pt3dadd(82.991, 148.034, 14.489, 0.33)
pt3dadd(82.923, 148.13, 14.467, 0.334)
pt3dadd(82.855, 148.225, 14.446, 0.34)
pt3dadd(82.787, 148.321, 14.424, 0.344)
pt3dadd(82.719, 148.416, 14.403, 0.348)
pt3dadd(82.651, 148.512, 14.381, 0.354)
pt3dadd(82.583, 148.607, 14.359, 0.358)
pt3dadd(82.515, 148.703, 14.338, 0.362)
pt3dadd(82.447, 148.798, 14.316, 0.368)
pt3dadd(82.384, 148.884, 14.271, 0.414)
pt3dadd(82.32, 148.968, 14.224, 0.464)
pt3dadd(82.257, 149.052, 14.176, 0.516)
pt3dadd(82.194, 149.137, 14.128, 0.566)
pt3dadd(82.131, 149.221, 14.08, 0.618)
pt3dadd(82.067, 149.305, 14.033, 0.668)
pt3dadd(82.004, 149.39, 13.985, 0.72)
pt3dadd(81.941, 149.474, 13.937, 0.77)
pt3dadd(81.878, 149.558, 13.889, 0.822)
pt3dadd(81.814, 149.642, 13.842, 0.872)
pt3dadd(81.74, 149.73, 13.813, 0.892)
pt3dadd(81.664, 149.818, 13.787, 0.908)
pt3dadd(81.588, 149.905, 13.76, 0.924)
pt3dadd(81.512, 149.992, 13.734, 0.94)
pt3dadd(81.436, 150.079, 13.707, 0.956)
pt3dadd(81.36, 150.167, 13.681, 0.972)
pt3dadd(81.284, 150.254, 13.654, 0.988)
pt3dadd(81.208, 150.341, 13.628, 1.004)
pt3dadd(81.132, 150.428, 13.601, 1.02)
pt3dadd(81.056, 150.516, 13.575, 1.036)
pt3dadd(80.98, 150.605, 13.554, 1.038)
pt3dadd(80.904, 150.695, 13.533, 1.038)
pt3dadd(80.828, 150.784, 13.512, 1.04)
pt3dadd(80.751, 150.872, 13.491, 1.04)
pt3dadd(80.675, 150.961, 13.47, 1.042)
pt3dadd(80.599, 151.051, 13.449, 1.042)
pt3dadd(80.523, 151.14, 13.428, 1.044)
pt3dadd(80.446, 151.229, 13.407, 1.044)
pt3dadd(80.37, 151.319, 13.386, 1.046)
pt3dadd(80.294, 151.408, 13.365, 1.046)
pt3dadd(80.218, 151.5, 13.352, 1.024)
pt3dadd(80.143, 151.591, 13.34, 0.998)
pt3dadd(80.067, 151.684, 13.328, 0.974)
pt3dadd(79.992, 151.776, 13.316, 0.948)
pt3dadd(79.917, 151.868, 13.304, 0.924)
pt3dadd(79.842, 151.961, 13.292, 0.898)
pt3dadd(79.766, 152.053, 13.28, 0.874)
pt3dadd(79.691, 152.146, 13.268, 0.848)
pt3dadd(79.615, 152.238, 13.256, 0.824)
pt3dadd(79.54, 152.33, 13.244, 0.798)
pt3dadd(79.476, 152.43, 13.234, 0.772)
pt3dadd(79.412, 152.531, 13.225, 0.746)
pt3dadd(79.348, 152.633, 13.216, 0.72)
pt3dadd(79.284, 152.734, 13.207, 0.696)
pt3dadd(79.22, 152.834, 13.198, 0.67)
pt3dadd(79.156, 152.935, 13.189, 0.644)
pt3dadd(79.093, 153.036, 13.179, 0.618)
pt3dadd(79.029, 153.138, 13.17, 0.592)
pt3dadd(78.965, 153.239, 13.161, 0.566)
pt3dadd(78.901, 153.34, 13.152, 0.542)
}
}
proc shape3d_23() {
apic[8] { pt3dadd(78.849, 153.448, 13.146, 0.516)
pt3dadd(78.796, 153.554, 13.14, 0.49)
pt3dadd(78.743, 153.662, 13.133, 0.464)
pt3dadd(78.691, 153.77, 13.127, 0.438)
pt3dadd(78.638, 153.877, 13.121, 0.412)
pt3dadd(78.585, 153.985, 13.114, 0.386)
pt3dadd(78.533, 154.092, 13.108, 0.36)
pt3dadd(78.48, 154.2, 13.101, 0.334)
pt3dadd(78.427, 154.308, 13.095, 0.308)
pt3dadd(78.375, 154.415, 13.089, 0.282)
pt3dadd(78.319, 154.52, 13.08, 0.296)
pt3dadd(78.262, 154.626, 13.07, 0.31)
pt3dadd(78.206, 154.732, 13.061, 0.324)
pt3dadd(78.15, 154.837, 13.051, 0.338)
pt3dadd(78.094, 154.943, 13.042, 0.354)
pt3dadd(78.038, 155.048, 13.032, 0.368)
pt3dadd(77.981, 155.153, 13.023, 0.382)
pt3dadd(77.925, 155.258, 13.014, 0.396)
pt3dadd(77.869, 155.364, 13.004, 0.41)
pt3dadd(77.813, 155.47, 12.995, 0.424)
pt3dadd(77.756, 155.574, 12.985, 0.45)
pt3dadd(77.699, 155.68, 12.974, 0.476)
pt3dadd(77.642, 155.784, 12.964, 0.5)
pt3dadd(77.585, 155.89, 12.954, 0.526)
pt3dadd(77.528, 155.994, 12.944, 0.552)
pt3dadd(77.471, 156.098, 12.933, 0.576)
pt3dadd(77.414, 156.204, 12.923, 0.602)
pt3dadd(77.357, 156.308, 12.913, 0.628)
pt3dadd(77.3, 156.414, 12.903, 0.652)
pt3dadd(77.243, 156.518, 12.892, 0.678)
}
apic[9] {pt3dclear()
pt3dadd(77.243, 156.518, 12.892, 0.678)
pt3dadd(77.222, 156.582, 12.871, 0.678)
pt3dadd(77.187, 156.689, 12.835, 0.678)
pt3dadd(77.152, 156.796, 12.799, 0.678)
pt3dadd(77.118, 156.902, 12.764, 0.678)
pt3dadd(77.083, 157.009, 12.728, 0.678)
pt3dadd(77.048, 157.115, 12.692, 0.678)
pt3dadd(77.014, 157.222, 12.656, 0.678)
pt3dadd(76.979, 157.328, 12.621, 0.678)
pt3dadd(76.944, 157.435, 12.585, 0.678)
pt3dadd(76.91, 157.542, 12.549, 0.678)
pt3dadd(76.875, 157.648, 12.513, 0.678)
pt3dadd(76.84, 157.754, 12.478, 0.678)
pt3dadd(76.808, 157.864, 12.446, 0.672)
pt3dadd(76.776, 157.974, 12.416, 0.666)
pt3dadd(76.744, 158.083, 12.385, 0.662)
pt3dadd(76.713, 158.192, 12.354, 0.656)
pt3dadd(76.681, 158.303, 12.323, 0.65)
pt3dadd(76.649, 158.412, 12.292, 0.644)
pt3dadd(76.617, 158.521, 12.261, 0.638)
pt3dadd(76.585, 158.632, 12.231, 0.634)
pt3dadd(76.553, 158.741, 12.2, 0.628)
pt3dadd(76.521, 158.85, 12.169, 0.622)
pt3dadd(76.493, 158.964, 12.145, 0.608)
pt3dadd(76.466, 159.077, 12.121, 0.594)
pt3dadd(76.438, 159.19, 12.098, 0.582)
pt3dadd(76.41, 159.304, 12.074, 0.568)
pt3dadd(76.382, 159.416, 12.05, 0.554)
pt3dadd(76.354, 159.529, 12.027, 0.54)
pt3dadd(76.326, 159.643, 12.003, 0.526)
pt3dadd(76.299, 159.756, 11.979, 0.512)
pt3dadd(76.271, 159.869, 11.956, 0.5)
pt3dadd(76.243, 159.983, 11.932, 0.486)
pt3dadd(76.2, 160.093, 11.918, 0.472)
pt3dadd(76.157, 160.204, 11.904, 0.458)
pt3dadd(76.114, 160.315, 11.89, 0.444)
pt3dadd(76.071, 160.426, 11.876, 0.432)
pt3dadd(76.028, 160.536, 11.862, 0.418)
pt3dadd(75.985, 160.648, 11.848, 0.404)
pt3dadd(75.942, 160.758, 11.835, 0.392)
pt3dadd(75.898, 160.868, 11.821, 0.378)
pt3dadd(75.855, 160.979, 11.807, 0.364)
pt3dadd(75.812, 161.09, 11.793, 0.35)
pt3dadd(75.765, 161.2, 11.783, 0.338)
pt3dadd(75.718, 161.309, 11.772, 0.326)
pt3dadd(75.67, 161.419, 11.762, 0.314)
pt3dadd(75.623, 161.528, 11.752, 0.3)
pt3dadd(75.576, 161.638, 11.742, 0.288)
pt3dadd(75.529, 161.748, 11.732, 0.276)
pt3dadd(75.482, 161.857, 11.721, 0.264)
pt3dadd(75.435, 161.968, 11.711, 0.25)
pt3dadd(75.387, 162.077, 11.701, 0.238)
pt3dadd(75.34, 162.186, 11.691, 0.226)
pt3dadd(75.302, 162.3, 11.689, 0.226)
pt3dadd(75.264, 162.414, 11.688, 0.226)
pt3dadd(75.226, 162.528, 11.687, 0.226)
pt3dadd(75.188, 162.642, 11.685, 0.226)
pt3dadd(75.15, 162.756, 11.684, 0.226)
pt3dadd(75.112, 162.869, 11.682, 0.226)
pt3dadd(75.074, 162.983, 11.681, 0.226)
pt3dadd(75.036, 163.097, 11.68, 0.226)
pt3dadd(74.998, 163.211, 11.678, 0.226)
pt3dadd(74.96, 163.325, 11.677, 0.226)
pt3dadd(74.925, 163.44, 11.675, 0.232)
pt3dadd(74.891, 163.554, 11.673, 0.238)
pt3dadd(74.856, 163.669, 11.671, 0.244)
pt3dadd(74.822, 163.784, 11.669, 0.252)
pt3dadd(74.787, 163.898, 11.667, 0.258)
pt3dadd(74.752, 164.014, 11.665, 0.264)
pt3dadd(74.718, 164.129, 11.663, 0.27)
pt3dadd(74.683, 164.244, 11.661, 0.276)
pt3dadd(74.649, 164.358, 11.659, 0.282)
pt3dadd(74.614, 164.473, 11.657, 0.29)
pt3dadd(74.584, 164.59, 11.654, 0.304)
pt3dadd(74.554, 164.706, 11.651, 0.318)
pt3dadd(74.523, 164.821, 11.648, 0.332)
pt3dadd(74.493, 164.938, 11.646, 0.346)
pt3dadd(74.463, 165.054, 11.643, 0.362)
pt3dadd(74.433, 165.17, 11.64, 0.376)
pt3dadd(74.403, 165.286, 11.637, 0.39)
pt3dadd(74.372, 165.402, 11.634, 0.404)
pt3dadd(74.342, 165.518, 11.631, 0.418)
pt3dadd(74.312, 165.634, 11.628, 0.432)
pt3dadd(74.262, 165.743, 11.622, 0.422)
pt3dadd(74.212, 165.852, 11.616, 0.412)
pt3dadd(74.163, 165.961, 11.61, 0.402)
pt3dadd(74.113, 166.07, 11.603, 0.392)
pt3dadd(74.063, 166.178, 11.597, 0.382)
pt3dadd(74.014, 166.288, 11.591, 0.372)
pt3dadd(73.964, 166.397, 11.584, 0.362)
pt3dadd(73.914, 166.506, 11.578, 0.35)
pt3dadd(73.865, 166.615, 11.572, 0.34)
pt3dadd(73.815, 166.723, 11.566, 0.33)
pt3dadd(73.764, 166.832, 11.557, 0.328)
pt3dadd(73.713, 166.94, 11.549, 0.324)
pt3dadd(73.662, 167.048, 11.541, 0.322)
pt3dadd(73.611, 167.156, 11.533, 0.318)
pt3dadd(73.56, 167.264, 11.525, 0.316)
pt3dadd(73.509, 167.374, 11.517, 0.312)
pt3dadd(73.458, 167.482, 11.509, 0.31)
pt3dadd(73.407, 167.59, 11.501, 0.306)
pt3dadd(73.356, 167.698, 11.493, 0.304)
pt3dadd(73.306, 167.806, 11.484, 0.302)
pt3dadd(73.26, 167.916, 11.472, 0.332)
pt3dadd(73.214, 168.026, 11.46, 0.362)
pt3dadd(73.168, 168.136, 11.448, 0.392)
pt3dadd(73.122, 168.246, 11.436, 0.422)
pt3dadd(73.077, 168.355, 11.424, 0.452)
pt3dadd(73.031, 168.466, 11.412, 0.482)
pt3dadd(72.985, 168.576, 11.4, 0.512)
pt3dadd(72.939, 168.685, 11.388, 0.542)
pt3dadd(72.893, 168.796, 11.376, 0.572)
pt3dadd(72.847, 168.905, 11.362, 0.602)
pt3dadd(72.796, 169.002, 11.321, 0.61)
pt3dadd(72.745, 169.098, 11.28, 0.616)
pt3dadd(72.694, 169.195, 11.239, 0.624)
pt3dadd(72.642, 169.292, 11.198, 0.632)
pt3dadd(72.591, 169.388, 11.157, 0.64)
pt3dadd(72.54, 169.486, 11.116, 0.648)
pt3dadd(72.489, 169.583, 11.075, 0.656)
pt3dadd(72.438, 169.679, 11.034, 0.664)
pt3dadd(72.387, 169.776, 10.993, 0.672)
pt3dadd(72.333, 169.871, 10.953, 0.674)
pt3dadd(72.269, 169.962, 10.915, 0.66)
pt3dadd(72.205, 170.053, 10.877, 0.646)
pt3dadd(72.141, 170.143, 10.839, 0.632)
pt3dadd(72.077, 170.234, 10.801, 0.618)
pt3dadd(72.013, 170.326, 10.763, 0.604)
pt3dadd(71.949, 170.416, 10.725, 0.588)
pt3dadd(71.885, 170.507, 10.688, 0.574)
pt3dadd(71.821, 170.598, 10.65, 0.56)
pt3dadd(71.757, 170.688, 10.612, 0.546)
pt3dadd(71.69, 170.779, 10.579, 0.526)
pt3dadd(71.616, 170.868, 10.554, 0.498)
pt3dadd(71.541, 170.958, 10.53, 0.47)
pt3dadd(71.467, 171.047, 10.505, 0.44)
pt3dadd(71.392, 171.137, 10.481, 0.412)
pt3dadd(71.318, 171.227, 10.456, 0.384)
pt3dadd(71.244, 171.316, 10.432, 0.354)
pt3dadd(71.169, 171.406, 10.407, 0.326)
pt3dadd(71.095, 171.494, 10.383, 0.298)
pt3dadd(71.021, 171.584, 10.359, 0.268)
pt3dadd(70.943, 171.673, 10.339, 0.25)
pt3dadd(70.861, 171.758, 10.329, 0.246)
pt3dadd(70.779, 171.845, 10.318, 0.244)
pt3dadd(70.696, 171.931, 10.308, 0.242)
pt3dadd(70.614, 172.018, 10.298, 0.24)
pt3dadd(70.531, 172.104, 10.288, 0.238)
pt3dadd(70.449, 172.19, 10.277, 0.234)
pt3dadd(70.366, 172.277, 10.267, 0.232)
pt3dadd(70.284, 172.363, 10.257, 0.23)
pt3dadd(70.201, 172.45, 10.247, 0.228)
pt3dadd(70.119, 172.536, 10.237, 0.226)
pt3dadd(70.035, 172.621, 10.228, 0.226)
pt3dadd(69.952, 172.708, 10.219, 0.226)
pt3dadd(69.869, 172.793, 10.21, 0.226)
pt3dadd(69.786, 172.879, 10.201, 0.226)
pt3dadd(69.703, 172.964, 10.192, 0.226)
pt3dadd(69.62, 173.051, 10.183, 0.226)
pt3dadd(69.537, 173.137, 10.174, 0.226)
pt3dadd(69.454, 173.222, 10.165, 0.226)
pt3dadd(69.371, 173.309, 10.156, 0.226)
pt3dadd(69.288, 173.395, 10.15, 0.226)
pt3dadd(69.207, 173.483, 10.15, 0.226)
pt3dadd(69.125, 173.572, 10.15, 0.226)
pt3dadd(69.044, 173.659, 10.15, 0.226)
pt3dadd(68.962, 173.748, 10.15, 0.226)
pt3dadd(68.88, 173.836, 10.149, 0.226)
pt3dadd(68.799, 173.923, 10.149, 0.226)
pt3dadd(68.718, 174.012, 10.149, 0.226)
}
}
proc shape3d_24() {
apic[9] { pt3dadd(68.636, 174.1, 10.149, 0.226)
pt3dadd(68.555, 174.188, 10.149, 0.226)
pt3dadd(68.473, 174.276, 10.149, 0.226)
pt3dadd(68.391, 174.364, 10.149, 0.226)
pt3dadd(68.31, 174.452, 10.149, 0.226)
pt3dadd(68.228, 174.54, 10.149, 0.226)
pt3dadd(68.147, 174.628, 10.149, 0.226)
pt3dadd(68.065, 174.716, 10.149, 0.226)
pt3dadd(67.984, 174.804, 10.149, 0.226)
pt3dadd(67.902, 174.893, 10.149, 0.226)
pt3dadd(67.821, 174.98, 10.149, 0.226)
pt3dadd(67.739, 175.068, 10.149, 0.226)
pt3dadd(67.658, 175.157, 10.149, 0.24)
pt3dadd(67.579, 175.247, 10.149, 0.276)
pt3dadd(67.5, 175.337, 10.149, 0.314)
pt3dadd(67.42, 175.427, 10.149, 0.35)
pt3dadd(67.341, 175.517, 10.149, 0.388)
pt3dadd(67.261, 175.607, 10.149, 0.424)
pt3dadd(67.182, 175.697, 10.149, 0.462)
pt3dadd(67.102, 175.787, 10.149, 0.498)
pt3dadd(67.023, 175.877, 10.149, 0.536)
pt3dadd(66.944, 175.967, 10.149, 0.572)
pt3dadd(66.864, 176.057, 10.149, 0.612)
pt3dadd(66.785, 176.147, 10.149, 0.656)
pt3dadd(66.706, 176.237, 10.149, 0.7)
pt3dadd(66.627, 176.328, 10.149, 0.742)
pt3dadd(66.548, 176.418, 10.149, 0.786)
pt3dadd(66.469, 176.508, 10.149, 0.83)
pt3dadd(66.39, 176.598, 10.149, 0.874)
pt3dadd(66.311, 176.688, 10.149, 0.918)
pt3dadd(66.232, 176.779, 10.149, 0.96)
pt3dadd(66.153, 176.869, 10.149, 1.004)
pt3dadd(66.079, 176.963, 10.149, 1.026)
pt3dadd(66.014, 177.065, 10.149, 1.006)
pt3dadd(65.949, 177.166, 10.149, 0.986)
pt3dadd(65.884, 177.266, 10.149, 0.968)
pt3dadd(65.82, 177.367, 10.149, 0.948)
pt3dadd(65.755, 177.468, 10.149, 0.928)
pt3dadd(65.69, 177.569, 10.149, 0.908)
pt3dadd(65.625, 177.671, 10.149, 0.89)
pt3dadd(65.56, 177.772, 10.149, 0.87)
pt3dadd(65.496, 177.872, 10.149, 0.85)
pt3dadd(65.433, 177.974, 10.149, 0.824)
pt3dadd(65.372, 178.078, 10.149, 0.786)
pt3dadd(65.312, 178.182, 10.149, 0.75)
pt3dadd(65.251, 178.285, 10.149, 0.712)
pt3dadd(65.191, 178.39, 10.149, 0.674)
pt3dadd(65.13, 178.493, 10.149, 0.636)
pt3dadd(65.07, 178.596, 10.149, 0.598)
pt3dadd(65.009, 178.7, 10.149, 0.562)
pt3dadd(64.949, 178.804, 10.149, 0.524)
pt3dadd(64.888, 178.907, 10.149, 0.486)
pt3dadd(64.824, 179.009, 10.149, 0.458)
pt3dadd(64.755, 179.106, 10.149, 0.446)
pt3dadd(64.685, 179.204, 10.149, 0.434)
pt3dadd(64.615, 179.302, 10.149, 0.422)
pt3dadd(64.546, 179.4, 10.149, 0.408)
pt3dadd(64.476, 179.497, 10.149, 0.396)
pt3dadd(64.407, 179.594, 10.149, 0.384)
pt3dadd(64.337, 179.693, 10.149, 0.37)
pt3dadd(64.267, 179.79, 10.149, 0.358)
pt3dadd(64.198, 179.888, 10.149, 0.346)
pt3dadd(64.128, 179.986, 10.149, 0.334)
pt3dadd(64.058, 180.083, 10.149, 0.322)
pt3dadd(63.987, 180.18, 10.149, 0.312)
pt3dadd(63.917, 180.277, 10.149, 0.3)
pt3dadd(63.847, 180.376, 10.149, 0.288)
pt3dadd(63.777, 180.473, 10.149, 0.278)
pt3dadd(63.707, 180.57, 10.149, 0.266)
pt3dadd(63.636, 180.667, 10.149, 0.256)
pt3dadd(63.566, 180.764, 10.149, 0.244)
pt3dadd(63.496, 180.862, 10.149, 0.232)
pt3dadd(63.424, 180.958, 10.149, 0.226)
pt3dadd(63.349, 181.051, 10.149, 0.226)
pt3dadd(63.274, 181.145, 10.149, 0.226)
pt3dadd(63.198, 181.238, 10.149, 0.226)
pt3dadd(63.123, 181.332, 10.149, 0.226)
pt3dadd(63.048, 181.426, 10.149, 0.226)
pt3dadd(62.973, 181.519, 10.149, 0.226)
pt3dadd(62.898, 181.613, 10.149, 0.226)
pt3dadd(62.823, 181.706, 10.149, 0.226)
pt3dadd(62.748, 181.8, 10.149, 0.226)
pt3dadd(62.673, 181.894, 10.149, 0.226)
pt3dadd(62.597, 181.987, 10.149, 0.228)
pt3dadd(62.522, 182.08, 10.149, 0.228)
pt3dadd(62.447, 182.173, 10.149, 0.23)
pt3dadd(62.371, 182.267, 10.149, 0.23)
pt3dadd(62.296, 182.36, 10.149, 0.232)
pt3dadd(62.221, 182.454, 10.149, 0.232)
pt3dadd(62.145, 182.548, 10.149, 0.234)
pt3dadd(62.07, 182.641, 10.149, 0.234)
pt3dadd(61.995, 182.734, 10.149, 0.236)
pt3dadd(61.918, 182.827, 10.149, 0.244)
pt3dadd(61.841, 182.918, 10.149, 0.266)
pt3dadd(61.763, 183.01, 10.149, 0.288)
pt3dadd(61.685, 183.101, 10.149, 0.31)
pt3dadd(61.607, 183.192, 10.149, 0.332)
pt3dadd(61.529, 183.283, 10.149, 0.354)
pt3dadd(61.451, 183.374, 10.149, 0.376)
pt3dadd(61.373, 183.466, 10.149, 0.398)
pt3dadd(61.295, 183.557, 10.149, 0.42)
pt3dadd(61.217, 183.648, 10.149, 0.442)
pt3dadd(61.139, 183.739, 10.149, 0.464)
pt3dadd(61.061, 183.83, 10.149, 0.486)
pt3dadd(60.984, 183.922, 10.149, 0.508)
pt3dadd(60.906, 184.013, 10.149, 0.53)
pt3dadd(60.828, 184.104, 10.149, 0.552)
pt3dadd(60.75, 184.195, 10.149, 0.574)
pt3dadd(60.672, 184.288, 10.149, 0.596)
pt3dadd(60.594, 184.379, 10.149, 0.618)
pt3dadd(60.516, 184.47, 10.149, 0.64)
pt3dadd(60.438, 184.561, 10.149, 0.662)
pt3dadd(60.369, 184.658, 10.149, 0.666)
pt3dadd(60.313, 184.764, 10.149, 0.64)
pt3dadd(60.257, 184.871, 10.149, 0.616)
pt3dadd(60.201, 184.976, 10.149, 0.59)
pt3dadd(60.146, 185.083, 10.149, 0.566)
pt3dadd(60.09, 185.189, 10.149, 0.54)
pt3dadd(60.034, 185.296, 10.149, 0.514)
pt3dadd(59.978, 185.401, 10.149, 0.49)
pt3dadd(59.922, 185.508, 10.149, 0.464)
pt3dadd(59.866, 185.614, 10.149, 0.44)
pt3dadd(59.809, 185.719, 10.149, 0.416)
pt3dadd(59.752, 185.825, 10.149, 0.396)
pt3dadd(59.694, 185.93, 10.149, 0.376)
pt3dadd(59.636, 186.035, 10.149, 0.356)
pt3dadd(59.579, 186.14, 10.149, 0.336)
pt3dadd(59.521, 186.246, 10.149, 0.318)
pt3dadd(59.463, 186.352, 10.149, 0.298)
pt3dadd(59.406, 186.456, 10.149, 0.278)
pt3dadd(59.348, 186.562, 10.149, 0.258)
pt3dadd(59.29, 186.667, 10.149, 0.238)
pt3dadd(59.23, 186.77, 10.149, 0.226)
pt3dadd(59.166, 186.872, 10.149, 0.226)
pt3dadd(59.102, 186.973, 10.149, 0.226)
pt3dadd(59.039, 187.075, 10.149, 0.226)
pt3dadd(58.975, 187.177, 10.149, 0.226)
pt3dadd(58.911, 187.278, 10.149, 0.226)
pt3dadd(58.847, 187.38, 10.149, 0.226)
pt3dadd(58.783, 187.482, 10.149, 0.226)
pt3dadd(58.719, 187.583, 10.149, 0.226)
pt3dadd(58.655, 187.685, 10.149, 0.226)
pt3dadd(58.593, 187.787, 10.149, 0.226)
pt3dadd(58.534, 187.891, 10.149, 0.226)
pt3dadd(58.475, 187.996, 10.149, 0.226)
pt3dadd(58.416, 188.101, 10.149, 0.226)
pt3dadd(58.357, 188.206, 10.149, 0.226)
pt3dadd(58.298, 188.31, 10.148, 0.226)
pt3dadd(58.239, 188.414, 10.148, 0.226)
pt3dadd(58.179, 188.519, 10.148, 0.226)
pt3dadd(58.12, 188.623, 10.148, 0.226)
pt3dadd(58.061, 188.728, 10.148, 0.226)
pt3dadd(58.006, 188.833, 10.148, 0.226)
pt3dadd(57.954, 188.942, 10.148, 0.226)
pt3dadd(57.903, 189.05, 10.148, 0.226)
pt3dadd(57.852, 189.16, 10.148, 0.226)
pt3dadd(57.801, 189.268, 10.148, 0.226)
pt3dadd(57.75, 189.377, 10.148, 0.226)
pt3dadd(57.699, 189.485, 10.148, 0.226)
pt3dadd(57.648, 189.594, 10.148, 0.226)
pt3dadd(57.597, 189.702, 10.148, 0.226)
pt3dadd(57.546, 189.811, 10.148, 0.226)
pt3dadd(57.489, 189.917, 10.148, 0.226)
pt3dadd(57.426, 190.018, 10.148, 0.226)
pt3dadd(57.362, 190.12, 10.148, 0.226)
pt3dadd(57.298, 190.222, 10.148, 0.226)
pt3dadd(57.235, 190.324, 10.148, 0.226)
pt3dadd(57.171, 190.424, 10.148, 0.226)
pt3dadd(57.107, 190.526, 10.148, 0.226)
pt3dadd(57.044, 190.628, 10.148, 0.226)
pt3dadd(56.98, 190.73, 10.148, 0.226)
pt3dadd(56.916, 190.831, 10.148, 0.226)
pt3dadd(56.85, 190.932, 10.148, 0.226)
pt3dadd(56.78, 191.029, 10.148, 0.226)
pt3dadd(56.71, 191.126, 10.148, 0.226)
pt3dadd(56.64, 191.225, 10.148, 0.226)
pt3dadd(56.57, 191.322, 10.148, 0.226)
pt3dadd(56.5, 191.419, 10.148, 0.226)
pt3dadd(56.431, 191.518, 10.148, 0.226)
pt3dadd(56.361, 191.615, 10.148, 0.226)
pt3dadd(56.291, 191.712, 10.148, 0.226)
pt3dadd(56.221, 191.809, 10.148, 0.226)
pt3dadd(56.15, 191.906, 10.148, 0.23)
pt3dadd(56.076, 192.001, 10.148, 0.238)
pt3dadd(56.002, 192.096, 10.148, 0.246)
pt3dadd(55.929, 192.191, 10.148, 0.254)
pt3dadd(55.855, 192.286, 10.148, 0.264)
pt3dadd(55.781, 192.38, 10.148, 0.272)
pt3dadd(55.708, 192.475, 10.148, 0.28)
pt3dadd(55.634, 192.569, 10.148, 0.288)
pt3dadd(55.56, 192.664, 10.148, 0.296)
pt3dadd(55.487, 192.758, 10.147, 0.306)
pt3dadd(55.413, 192.853, 10.147, 0.316)
pt3dadd(55.338, 192.947, 10.147, 0.326)
pt3dadd(55.263, 193.04, 10.147, 0.338)
pt3dadd(55.188, 193.134, 10.147, 0.348)
pt3dadd(55.113, 193.228, 10.147, 0.36)
pt3dadd(55.038, 193.321, 10.147, 0.372)
pt3dadd(54.963, 193.415, 10.147, 0.382)
pt3dadd(54.888, 193.51, 10.147, 0.394)
}
}
proc shape3d_25() {
apic[9] { pt3dadd(54.813, 193.603, 10.147, 0.406)
pt3dadd(54.738, 193.697, 10.147, 0.416)
pt3dadd(54.662, 193.789, 10.147, 0.42)
pt3dadd(54.585, 193.882, 10.147, 0.416)
pt3dadd(54.508, 193.974, 10.147, 0.41)
pt3dadd(54.432, 194.066, 10.147, 0.404)
pt3dadd(54.355, 194.158, 10.146, 0.4)
pt3dadd(54.278, 194.25, 10.146, 0.394)
pt3dadd(54.201, 194.342, 10.146, 0.388)
pt3dadd(54.124, 194.435, 10.146, 0.384)
pt3dadd(54.047, 194.527, 10.146, 0.378)
pt3dadd(53.971, 194.62, 10.146, 0.372)
pt3dadd(53.893, 194.711, 10.146, 0.364)
pt3dadd(53.816, 194.803, 10.146, 0.354)
pt3dadd(53.739, 194.894, 10.146, 0.342)
pt3dadd(53.661, 194.986, 10.146, 0.332)
pt3dadd(53.584, 195.078, 10.146, 0.32)
pt3dadd(53.506, 195.169, 10.146, 0.31)
pt3dadd(53.429, 195.26, 10.145, 0.298)
pt3dadd(53.351, 195.353, 10.145, 0.288)
pt3dadd(53.274, 195.444, 10.145, 0.276)
pt3dadd(53.196, 195.535, 10.145, 0.266)
pt3dadd(53.126, 195.632, 10.145, 0.258)
pt3dadd(53.064, 195.736, 10.145, 0.254)
pt3dadd(53.003, 195.839, 10.144, 0.25)
pt3dadd(52.941, 195.941, 10.144, 0.248)
pt3dadd(52.879, 196.044, 10.144, 0.244)
pt3dadd(52.818, 196.147, 10.144, 0.24)
pt3dadd(52.756, 196.25, 10.144, 0.238)
pt3dadd(52.694, 196.354, 10.143, 0.234)
pt3dadd(52.633, 196.456, 10.143, 0.23)
pt3dadd(52.571, 196.559, 10.143, 0.228)
pt3dadd(52.513, 196.664, 10.143, 0.226)
pt3dadd(52.459, 196.771, 10.142, 0.226)
pt3dadd(52.404, 196.878, 10.142, 0.226)
pt3dadd(52.35, 196.985, 10.142, 0.226)
pt3dadd(52.296, 197.092, 10.142, 0.226)
pt3dadd(52.242, 197.2, 10.141, 0.226)
pt3dadd(52.188, 197.306, 10.141, 0.226)
pt3dadd(52.133, 197.413, 10.141, 0.226)
pt3dadd(52.079, 197.52, 10.141, 0.226)
pt3dadd(52.025, 197.628, 10.14, 0.226)
pt3dadd(51.967, 197.732, 10.14, 0.226)
pt3dadd(51.906, 197.836, 10.139, 0.226)
pt3dadd(51.845, 197.939, 10.139, 0.226)
pt3dadd(51.785, 198.043, 10.138, 0.226)
pt3dadd(51.724, 198.146, 10.138, 0.226)
pt3dadd(51.663, 198.25, 10.137, 0.226)
pt3dadd(51.602, 198.353, 10.137, 0.226)
pt3dadd(51.541, 198.456, 10.136, 0.226)
pt3dadd(51.48, 198.559, 10.135, 0.226)
pt3dadd(51.419, 198.664, 10.135, 0.226)
pt3dadd(51.36, 198.767, 10.134, 0.23)
pt3dadd(51.301, 198.872, 10.134, 0.236)
pt3dadd(51.243, 198.977, 10.133, 0.242)
pt3dadd(51.185, 199.082, 10.132, 0.25)
pt3dadd(51.127, 199.187, 10.132, 0.256)
pt3dadd(51.068, 199.292, 10.131, 0.262)
pt3dadd(51.01, 199.397, 10.13, 0.268)
pt3dadd(50.952, 199.501, 10.13, 0.276)
pt3dadd(50.893, 199.607, 10.129, 0.282)
pt3dadd(50.835, 199.711, 10.128, 0.288)
pt3dadd(50.785, 199.82, 10.127, 0.314)
pt3dadd(50.742, 199.932, 10.126, 0.354)
pt3dadd(50.7, 200.045, 10.125, 0.396)
pt3dadd(50.657, 200.156, 10.123, 0.438)
pt3dadd(50.614, 200.268, 10.122, 0.478)
pt3dadd(50.571, 200.381, 10.121, 0.52)
pt3dadd(50.528, 200.492, 10.119, 0.562)
pt3dadd(50.485, 200.605, 10.118, 0.602)
pt3dadd(50.442, 200.717, 10.116, 0.644)
pt3dadd(50.4, 200.828, 10.115, 0.686)
pt3dadd(50.352, 200.939, 10.113, 0.712)
pt3dadd(50.301, 201.048, 10.111, 0.726)
pt3dadd(50.25, 201.156, 10.109, 0.738)
pt3dadd(50.199, 201.265, 10.107, 0.752)
pt3dadd(50.148, 201.373, 10.105, 0.764)
pt3dadd(50.097, 201.481, 10.103, 0.778)
pt3dadd(50.046, 201.59, 10.101, 0.79)
pt3dadd(49.994, 201.698, 10.099, 0.804)
pt3dadd(49.943, 201.808, 10.097, 0.816)
pt3dadd(49.892, 201.916, 10.095, 0.83)
pt3dadd(49.837, 202.022, 10.093, 0.828)
pt3dadd(49.778, 202.127, 10.09, 0.816)
pt3dadd(49.72, 202.232, 10.088, 0.802)
pt3dadd(49.662, 202.337, 10.085, 0.788)
pt3dadd(49.603, 202.441, 10.083, 0.776)
pt3dadd(49.545, 202.546, 10.08, 0.762)
pt3dadd(49.486, 202.651, 10.077, 0.75)
pt3dadd(49.428, 202.756, 10.075, 0.736)
pt3dadd(49.369, 202.86, 10.072, 0.722)
pt3dadd(49.311, 202.966, 10.07, 0.71)
pt3dadd(49.262, 203.074, 10.065, 0.688)
pt3dadd(49.22, 203.186, 10.059, 0.662)
pt3dadd(49.179, 203.299, 10.052, 0.634)
pt3dadd(49.137, 203.411, 10.046, 0.608)
pt3dadd(49.095, 203.524, 10.039, 0.582)
pt3dadd(49.054, 203.635, 10.033, 0.554)
pt3dadd(49.012, 203.748, 10.026, 0.528)
pt3dadd(48.97, 203.86, 10.02, 0.5)
pt3dadd(48.929, 203.972, 10.014, 0.474)
pt3dadd(48.887, 204.085, 10.007, 0.446)
pt3dadd(48.849, 204.198, 9.999, 0.432)
pt3dadd(48.813, 204.312, 9.99, 0.426)
pt3dadd(48.778, 204.426, 9.981, 0.42)
pt3dadd(48.742, 204.54, 9.971, 0.416)
pt3dadd(48.707, 204.654, 9.962, 0.41)
pt3dadd(48.671, 204.768, 9.953, 0.404)
pt3dadd(48.636, 204.882, 9.943, 0.398)
pt3dadd(48.6, 204.996, 9.934, 0.394)
pt3dadd(48.565, 205.111, 9.925, 0.388)
pt3dadd(48.529, 205.225, 9.916, 0.382)
pt3dadd(48.496, 205.339, 9.904, 0.41)
pt3dadd(48.465, 205.454, 9.891, 0.46)
pt3dadd(48.434, 205.568, 9.877, 0.51)
pt3dadd(48.403, 205.684, 9.864, 0.56)
pt3dadd(48.372, 205.799, 9.851, 0.61)
pt3dadd(48.342, 205.913, 9.837, 0.66)
pt3dadd(48.311, 206.028, 9.824, 0.71)
pt3dadd(48.28, 206.143, 9.81, 0.76)
pt3dadd(48.249, 206.257, 9.797, 0.81)
pt3dadd(48.218, 206.372, 9.784, 0.86)
pt3dadd(48.18, 206.472, 9.744, 0.844)
pt3dadd(48.139, 206.561, 9.686, 0.786)
pt3dadd(48.097, 206.65, 9.628, 0.726)
pt3dadd(48.055, 206.738, 9.571, 0.666)
pt3dadd(48.013, 206.826, 9.513, 0.606)
pt3dadd(47.971, 206.915, 9.455, 0.548)
pt3dadd(47.93, 207.004, 9.398, 0.488)
pt3dadd(47.888, 207.092, 9.34, 0.428)
pt3dadd(47.846, 207.181, 9.282, 0.37)
pt3dadd(47.804, 207.27, 9.225, 0.31)
pt3dadd(47.737, 207.353, 9.182, 0.286)
pt3dadd(47.657, 207.432, 9.148, 0.278)
pt3dadd(47.577, 207.511, 9.114, 0.272)
pt3dadd(47.497, 207.59, 9.08, 0.266)
pt3dadd(47.417, 207.671, 9.046, 0.26)
pt3dadd(47.337, 207.75, 9.012, 0.254)
pt3dadd(47.257, 207.829, 8.978, 0.246)
pt3dadd(47.177, 207.908, 8.944, 0.24)
pt3dadd(47.097, 207.988, 8.91, 0.234)
pt3dadd(47.017, 208.068, 8.876, 0.228)
pt3dadd(46.917, 208.127, 8.854, 0.226)
pt3dadd(46.812, 208.18, 8.836, 0.226)
pt3dadd(46.706, 208.232, 8.818, 0.226)
pt3dadd(46.601, 208.285, 8.8, 0.226)
pt3dadd(46.495, 208.339, 8.782, 0.226)
pt3dadd(46.39, 208.392, 8.764, 0.226)
pt3dadd(46.284, 208.445, 8.746, 0.226)
pt3dadd(46.179, 208.498, 8.728, 0.226)
pt3dadd(46.073, 208.55, 8.71, 0.226)
pt3dadd(45.967, 208.603, 8.692, 0.226)
pt3dadd(45.854, 208.64, 8.682, 0.226)
pt3dadd(45.741, 208.679, 8.671, 0.226)
pt3dadd(45.628, 208.716, 8.661, 0.226)
pt3dadd(45.515, 208.754, 8.65, 0.226)
pt3dadd(45.402, 208.792, 8.64, 0.226)
pt3dadd(45.288, 208.83, 8.629, 0.226)
pt3dadd(45.175, 208.867, 8.619, 0.226)
pt3dadd(45.062, 208.906, 8.608, 0.226)
pt3dadd(44.949, 208.943, 8.598, 0.226)
pt3dadd(44.836, 208.981, 8.587, 0.226)
}
apic[10] {pt3dclear()
pt3dadd(77.243, 156.518, 12.892, 0.678)
pt3dadd(77.148, 156.518, 12.846, 0.66)
pt3dadd(77.044, 156.518, 12.796, 0.64)
pt3dadd(76.94, 156.518, 12.745, 0.622)
pt3dadd(76.837, 156.518, 12.695, 0.602)
pt3dadd(76.733, 156.518, 12.644, 0.584)
pt3dadd(76.629, 156.518, 12.594, 0.564)
pt3dadd(76.526, 156.518, 12.543, 0.544)
pt3dadd(76.422, 156.518, 12.493, 0.526)
pt3dadd(76.319, 156.518, 12.443, 0.506)
pt3dadd(76.215, 156.518, 12.392, 0.486)
pt3dadd(76.111, 156.518, 12.342, 0.468)
pt3dadd(76.008, 156.518, 12.291, 0.448)
pt3dadd(75.904, 156.518, 12.241, 0.428)
pt3dadd(75.8, 156.52, 12.191, 0.41)
pt3dadd(75.697, 156.52, 12.14, 0.39)
pt3dadd(75.593, 156.52, 12.09, 0.372)
pt3dadd(75.489, 156.52, 12.039, 0.352)
pt3dadd(75.386, 156.52, 11.989, 0.332)
pt3dadd(75.282, 156.522, 11.94, 0.314)
pt3dadd(75.172, 156.557, 11.912, 0.304)
pt3dadd(75.062, 156.59, 11.884, 0.296)
pt3dadd(74.952, 156.625, 11.856, 0.286)
pt3dadd(74.842, 156.659, 11.828, 0.276)
pt3dadd(74.732, 156.694, 11.8, 0.266)
pt3dadd(74.622, 156.727, 11.771, 0.258)
pt3dadd(74.512, 156.762, 11.743, 0.248)
pt3dadd(74.402, 156.796, 11.715, 0.238)
pt3dadd(74.292, 156.83, 11.687, 0.23)
pt3dadd(74.187, 156.883, 11.673, 0.226)
pt3dadd(74.086, 156.947, 11.667, 0.226)
pt3dadd(73.984, 157.009, 11.66, 0.226)
pt3dadd(73.882, 157.073, 11.654, 0.226)
pt3dadd(73.78, 157.135, 11.648, 0.226)
pt3dadd(73.679, 157.199, 11.641, 0.226)
pt3dadd(73.577, 157.262, 11.635, 0.226)
pt3dadd(73.475, 157.325, 11.628, 0.226)
pt3dadd(73.373, 157.388, 11.622, 0.226)
}
}
proc shape3d_26() {
apic[10] { pt3dadd(73.272, 157.451, 11.616, 0.226)
pt3dadd(73.196, 157.541, 11.607, 0.226)
pt3dadd(73.131, 157.642, 11.597, 0.226)
pt3dadd(73.066, 157.741, 11.588, 0.226)
pt3dadd(73.001, 157.842, 11.578, 0.226)
pt3dadd(72.936, 157.942, 11.569, 0.226)
pt3dadd(72.872, 158.042, 11.559, 0.226)
pt3dadd(72.807, 158.143, 11.549, 0.226)
pt3dadd(72.742, 158.243, 11.54, 0.226)
pt3dadd(72.677, 158.344, 11.53, 0.226)
pt3dadd(72.612, 158.443, 11.521, 0.226)
pt3dadd(72.544, 158.542, 11.51, 0.226)
pt3dadd(72.475, 158.639, 11.499, 0.226)
pt3dadd(72.407, 158.737, 11.488, 0.226)
pt3dadd(72.338, 158.834, 11.477, 0.226)
pt3dadd(72.27, 158.932, 11.466, 0.226)
pt3dadd(72.201, 159.03, 11.455, 0.226)
pt3dadd(72.132, 159.127, 11.444, 0.226)
pt3dadd(72.064, 159.224, 11.433, 0.226)
pt3dadd(71.995, 159.322, 11.422, 0.226)
pt3dadd(71.926, 159.42, 11.411, 0.226)
pt3dadd(71.86, 159.518, 11.397, 0.23)
pt3dadd(71.794, 159.617, 11.382, 0.236)
pt3dadd(71.728, 159.715, 11.366, 0.242)
pt3dadd(71.662, 159.814, 11.351, 0.25)
pt3dadd(71.596, 159.912, 11.336, 0.256)
pt3dadd(71.53, 160.01, 11.32, 0.262)
pt3dadd(71.464, 160.109, 11.305, 0.268)
pt3dadd(71.397, 160.207, 11.289, 0.274)
pt3dadd(71.331, 160.306, 11.274, 0.28)
pt3dadd(71.265, 160.404, 11.259, 0.286)
pt3dadd(71.213, 160.505, 11.228, 0.316)
pt3dadd(71.165, 160.607, 11.193, 0.354)
pt3dadd(71.117, 160.708, 11.157, 0.39)
pt3dadd(71.068, 160.81, 11.122, 0.428)
pt3dadd(71.02, 160.91, 11.087, 0.464)
pt3dadd(70.971, 161.011, 11.052, 0.502)
pt3dadd(70.923, 161.113, 11.016, 0.538)
pt3dadd(70.875, 161.214, 10.981, 0.574)
pt3dadd(70.826, 161.316, 10.946, 0.612)
pt3dadd(70.778, 161.417, 10.91, 0.648)
pt3dadd(70.724, 161.518, 10.878, 0.676)
pt3dadd(70.668, 161.617, 10.847, 0.702)
pt3dadd(70.613, 161.717, 10.816, 0.726)
pt3dadd(70.557, 161.816, 10.785, 0.75)
pt3dadd(70.502, 161.916, 10.754, 0.776)
pt3dadd(70.446, 162.016, 10.723, 0.8)
pt3dadd(70.391, 162.115, 10.692, 0.826)
pt3dadd(70.335, 162.215, 10.661, 0.85)
pt3dadd(70.28, 162.314, 10.63, 0.876)
pt3dadd(70.224, 162.414, 10.599, 0.9)
pt3dadd(70.157, 162.509, 10.576, 0.904)
pt3dadd(70.088, 162.604, 10.554, 0.904)
pt3dadd(70.019, 162.698, 10.531, 0.904)
pt3dadd(69.949, 162.792, 10.51, 0.904)
pt3dadd(69.88, 162.887, 10.488, 0.904)
pt3dadd(69.811, 162.98, 10.465, 0.904)
pt3dadd(69.742, 163.075, 10.443, 0.904)
pt3dadd(69.672, 163.17, 10.421, 0.904)
pt3dadd(69.603, 163.264, 10.399, 0.904)
pt3dadd(69.534, 163.358, 10.378, 0.904)
pt3dadd(69.462, 163.452, 10.358, 0.896)
pt3dadd(69.39, 163.544, 10.339, 0.888)
pt3dadd(69.318, 163.638, 10.32, 0.88)
pt3dadd(69.246, 163.732, 10.301, 0.872)
pt3dadd(69.174, 163.824, 10.281, 0.864)
pt3dadd(69.102, 163.918, 10.262, 0.854)
pt3dadd(69.03, 164.011, 10.243, 0.846)
pt3dadd(68.958, 164.104, 10.224, 0.838)
pt3dadd(68.886, 164.197, 10.205, 0.83)
pt3dadd(68.814, 164.291, 10.186, 0.822)
pt3dadd(68.738, 164.382, 10.171, 0.8)
pt3dadd(68.661, 164.472, 10.157, 0.778)
pt3dadd(68.585, 164.563, 10.143, 0.756)
pt3dadd(68.508, 164.654, 10.128, 0.734)
pt3dadd(68.432, 164.744, 10.114, 0.71)
pt3dadd(68.355, 164.836, 10.1, 0.688)
pt3dadd(68.279, 164.927, 10.086, 0.666)
pt3dadd(68.202, 165.017, 10.072, 0.642)
pt3dadd(68.125, 165.108, 10.057, 0.62)
pt3dadd(68.049, 165.199, 10.043, 0.598)
pt3dadd(67.971, 165.288, 10.031, 0.578)
pt3dadd(67.892, 165.378, 10.018, 0.56)
pt3dadd(67.813, 165.467, 10.006, 0.542)
pt3dadd(67.734, 165.557, 9.993, 0.524)
pt3dadd(67.656, 165.646, 9.981, 0.506)
pt3dadd(67.577, 165.736, 9.969, 0.486)
pt3dadd(67.498, 165.824, 9.956, 0.468)
pt3dadd(67.42, 165.914, 9.944, 0.45)
pt3dadd(67.341, 166.003, 9.932, 0.432)
pt3dadd(67.262, 166.093, 9.919, 0.412)
pt3dadd(67.181, 166.18, 9.91, 0.4)
pt3dadd(67.098, 166.267, 9.901, 0.39)
pt3dadd(67.016, 166.354, 9.891, 0.378)
pt3dadd(66.934, 166.44, 9.882, 0.368)
pt3dadd(66.851, 166.526, 9.873, 0.356)
pt3dadd(66.769, 166.613, 9.864, 0.344)
pt3dadd(66.687, 166.699, 9.855, 0.334)
pt3dadd(66.604, 166.787, 9.846, 0.322)
pt3dadd(66.522, 166.873, 9.836, 0.31)
pt3dadd(66.44, 166.96, 9.827, 0.3)
pt3dadd(66.363, 167.05, 9.81, 0.296)
pt3dadd(66.287, 167.14, 9.791, 0.294)
pt3dadd(66.21, 167.23, 9.772, 0.29)
pt3dadd(66.134, 167.32, 9.753, 0.288)
pt3dadd(66.058, 167.41, 9.734, 0.284)
pt3dadd(65.982, 167.498, 9.716, 0.282)
pt3dadd(65.906, 167.588, 9.697, 0.28)
pt3dadd(65.83, 167.678, 9.678, 0.278)
pt3dadd(65.754, 167.768, 9.659, 0.274)
pt3dadd(65.678, 167.858, 9.64, 0.272)
pt3dadd(65.615, 167.952, 9.605, 0.284)
pt3dadd(65.552, 168.044, 9.57, 0.296)
pt3dadd(65.489, 168.138, 9.534, 0.31)
pt3dadd(65.426, 168.23, 9.499, 0.322)
pt3dadd(65.364, 168.324, 9.464, 0.334)
pt3dadd(65.301, 168.416, 9.428, 0.348)
pt3dadd(65.238, 168.51, 9.393, 0.36)
pt3dadd(65.175, 168.602, 9.357, 0.372)
pt3dadd(65.112, 168.696, 9.322, 0.386)
pt3dadd(65.05, 168.788, 9.286, 0.398)
pt3dadd(64.97, 168.871, 9.256, 0.404)
pt3dadd(64.891, 168.954, 9.226, 0.41)
pt3dadd(64.811, 169.036, 9.196, 0.414)
pt3dadd(64.731, 169.117, 9.166, 0.42)
pt3dadd(64.651, 169.2, 9.136, 0.426)
pt3dadd(64.572, 169.282, 9.106, 0.43)
pt3dadd(64.492, 169.364, 9.076, 0.436)
pt3dadd(64.412, 169.446, 9.046, 0.442)
pt3dadd(64.333, 169.529, 9.016, 0.448)
pt3dadd(64.252, 169.609, 8.986, 0.452)
pt3dadd(64.161, 169.682, 8.961, 0.452)
pt3dadd(64.071, 169.756, 8.936, 0.452)
pt3dadd(63.98, 169.828, 8.91, 0.45)
pt3dadd(63.89, 169.901, 8.885, 0.45)
pt3dadd(63.799, 169.973, 8.86, 0.45)
pt3dadd(63.709, 170.046, 8.835, 0.45)
pt3dadd(63.618, 170.119, 8.81, 0.45)
pt3dadd(63.528, 170.191, 8.785, 0.448)
pt3dadd(63.437, 170.264, 8.76, 0.448)
pt3dadd(63.347, 170.338, 8.736, 0.446)
pt3dadd(63.256, 170.416, 8.725, 0.434)
pt3dadd(63.166, 170.492, 8.714, 0.422)
pt3dadd(63.075, 170.57, 8.703, 0.41)
pt3dadd(62.984, 170.648, 8.692, 0.396)
pt3dadd(62.894, 170.725, 8.681, 0.384)
pt3dadd(62.803, 170.803, 8.67, 0.372)
pt3dadd(62.713, 170.881, 8.659, 0.36)
pt3dadd(62.622, 170.958, 8.648, 0.346)
pt3dadd(62.532, 171.036, 8.637, 0.334)
pt3dadd(62.441, 171.114, 8.627, 0.322)
pt3dadd(62.351, 171.192, 8.618, 0.318)
pt3dadd(62.261, 171.271, 8.609, 0.314)
pt3dadd(62.171, 171.349, 8.6, 0.308)
pt3dadd(62.081, 171.428, 8.59, 0.304)
pt3dadd(61.991, 171.506, 8.582, 0.298)
pt3dadd(61.901, 171.586, 8.573, 0.294)
pt3dadd(61.811, 171.664, 8.563, 0.29)
pt3dadd(61.72, 171.743, 8.554, 0.284)
pt3dadd(61.63, 171.821, 8.545, 0.28)
pt3dadd(61.54, 171.9, 8.537, 0.278)
pt3dadd(61.452, 171.98, 8.535, 0.3)
pt3dadd(61.363, 172.061, 8.532, 0.322)
pt3dadd(61.274, 172.142, 8.53, 0.344)
pt3dadd(61.186, 172.223, 8.527, 0.366)
pt3dadd(61.097, 172.303, 8.525, 0.388)
pt3dadd(61.008, 172.385, 8.522, 0.41)
pt3dadd(60.92, 172.465, 8.52, 0.432)
pt3dadd(60.831, 172.546, 8.518, 0.454)
pt3dadd(60.742, 172.626, 8.515, 0.476)
pt3dadd(60.654, 172.708, 8.513, 0.496)
pt3dadd(60.566, 172.789, 8.51, 0.514)
pt3dadd(60.479, 172.872, 8.507, 0.53)
pt3dadd(60.391, 172.954, 8.504, 0.546)
pt3dadd(60.303, 173.035, 8.501, 0.562)
pt3dadd(60.216, 173.118, 8.498, 0.58)
pt3dadd(60.128, 173.2, 8.495, 0.596)
pt3dadd(60.041, 173.281, 8.492, 0.612)
pt3dadd(59.953, 173.364, 8.489, 0.628)
pt3dadd(59.866, 173.446, 8.486, 0.646)
pt3dadd(59.779, 173.528, 8.483, 0.658)
pt3dadd(59.697, 173.616, 8.477, 0.648)
pt3dadd(59.615, 173.702, 8.471, 0.638)
pt3dadd(59.533, 173.79, 8.466, 0.626)
pt3dadd(59.451, 173.878, 8.46, 0.616)
pt3dadd(59.369, 173.965, 8.455, 0.606)
pt3dadd(59.287, 174.053, 8.449, 0.596)
pt3dadd(59.205, 174.14, 8.443, 0.584)
pt3dadd(59.124, 174.228, 8.438, 0.574)
pt3dadd(59.042, 174.314, 8.432, 0.564)
pt3dadd(58.96, 174.402, 8.426, 0.552)
pt3dadd(58.878, 174.49, 8.42, 0.542)
pt3dadd(58.796, 174.577, 8.415, 0.532)
pt3dadd(58.714, 174.665, 8.409, 0.52)
pt3dadd(58.633, 174.752, 8.403, 0.51)
pt3dadd(58.551, 174.84, 8.397, 0.5)
pt3dadd(58.469, 174.928, 8.391, 0.488)
pt3dadd(58.387, 175.015, 8.385, 0.478)
pt3dadd(58.305, 175.103, 8.38, 0.468)
pt3dadd(58.224, 175.19, 8.374, 0.456)
}
}
proc shape3d_27() {
apic[10] { pt3dadd(58.142, 175.278, 8.367, 0.446)
pt3dadd(58.062, 175.367, 8.358, 0.436)
pt3dadd(57.983, 175.456, 8.348, 0.424)
pt3dadd(57.903, 175.544, 8.338, 0.414)
pt3dadd(57.823, 175.633, 8.328, 0.402)
pt3dadd(57.743, 175.722, 8.318, 0.392)
pt3dadd(57.664, 175.811, 8.308, 0.38)
pt3dadd(57.584, 175.9, 8.298, 0.37)
pt3dadd(57.504, 175.988, 8.288, 0.358)
pt3dadd(57.424, 176.078, 8.279, 0.348)
pt3dadd(57.345, 176.167, 8.269, 0.338)
pt3dadd(57.265, 176.256, 8.259, 0.326)
pt3dadd(57.185, 176.345, 8.249, 0.316)
pt3dadd(57.105, 176.434, 8.239, 0.304)
pt3dadd(57.025, 176.522, 8.229, 0.294)
pt3dadd(56.946, 176.611, 8.219, 0.282)
pt3dadd(56.866, 176.7, 8.209, 0.272)
pt3dadd(56.786, 176.789, 8.2, 0.262)
pt3dadd(56.706, 176.878, 8.19, 0.25)
pt3dadd(56.626, 176.966, 8.18, 0.24)
pt3dadd(56.549, 177.055, 8.167, 0.232)
pt3dadd(56.489, 177.151, 8.133, 0.254)
pt3dadd(56.429, 177.246, 8.098, 0.278)
pt3dadd(56.369, 177.342, 8.063, 0.3)
pt3dadd(56.309, 177.437, 8.029, 0.322)
pt3dadd(56.25, 177.533, 7.994, 0.346)
pt3dadd(56.19, 177.628, 7.959, 0.368)
pt3dadd(56.13, 177.724, 7.925, 0.39)
pt3dadd(56.07, 177.818, 7.89, 0.414)
pt3dadd(56.01, 177.913, 7.855, 0.436)
pt3dadd(55.95, 178.009, 7.821, 0.46)
pt3dadd(55.89, 178.104, 7.786, 0.482)
pt3dadd(55.83, 178.199, 7.751, 0.504)
pt3dadd(55.77, 178.295, 7.716, 0.526)
pt3dadd(55.71, 178.39, 7.681, 0.548)
pt3dadd(55.649, 178.484, 7.647, 0.57)
pt3dadd(55.589, 178.579, 7.612, 0.592)
pt3dadd(55.529, 178.674, 7.577, 0.614)
pt3dadd(55.469, 178.77, 7.542, 0.636)
pt3dadd(55.409, 178.865, 7.507, 0.658)
pt3dadd(55.347, 178.958, 7.474, 0.678)
pt3dadd(55.274, 179.048, 7.448, 0.678)
pt3dadd(55.2, 179.138, 7.422, 0.678)
pt3dadd(55.127, 179.228, 7.396, 0.678)
pt3dadd(55.054, 179.317, 7.37, 0.678)
pt3dadd(54.98, 179.407, 7.344, 0.678)
pt3dadd(54.907, 179.497, 7.318, 0.678)
pt3dadd(54.834, 179.587, 7.292, 0.678)
pt3dadd(54.76, 179.677, 7.266, 0.678)
pt3dadd(54.687, 179.766, 7.24, 0.678)
pt3dadd(54.614, 179.856, 7.214, 0.678)
pt3dadd(54.539, 179.945, 7.189, 0.674)
pt3dadd(54.463, 180.034, 7.164, 0.67)
pt3dadd(54.388, 180.122, 7.139, 0.668)
pt3dadd(54.313, 180.211, 7.114, 0.664)
pt3dadd(54.238, 180.3, 7.089, 0.66)
pt3dadd(54.163, 180.388, 7.064, 0.656)
pt3dadd(54.088, 180.476, 7.039, 0.654)
pt3dadd(54.013, 180.565, 7.014, 0.65)
pt3dadd(53.938, 180.654, 6.989, 0.646)
pt3dadd(53.861, 180.742, 6.965, 0.64)
pt3dadd(53.777, 180.824, 6.946, 0.618)
pt3dadd(53.692, 180.906, 6.928, 0.594)
pt3dadd(53.608, 180.989, 6.909, 0.572)
pt3dadd(53.523, 181.07, 6.891, 0.548)
pt3dadd(53.439, 181.153, 6.872, 0.526)
pt3dadd(53.354, 181.235, 6.853, 0.502)
pt3dadd(53.27, 181.318, 6.835, 0.48)
pt3dadd(53.185, 181.399, 6.816, 0.456)
pt3dadd(53.101, 181.482, 6.797, 0.434)
pt3dadd(53.016, 181.564, 6.778, 0.41)
pt3dadd(52.928, 181.642, 6.757, 0.394)
pt3dadd(52.841, 181.718, 6.735, 0.378)
pt3dadd(52.753, 181.796, 6.713, 0.362)
pt3dadd(52.665, 181.874, 6.692, 0.344)
pt3dadd(52.577, 181.952, 6.67, 0.328)
pt3dadd(52.49, 182.029, 6.648, 0.312)
pt3dadd(52.402, 182.107, 6.626, 0.294)
pt3dadd(52.314, 182.185, 6.605, 0.278)
pt3dadd(52.227, 182.262, 6.583, 0.262)
pt3dadd(52.137, 182.335, 6.559, 0.25)
pt3dadd(52.038, 182.39, 6.524, 0.262)
pt3dadd(51.94, 182.444, 6.49, 0.274)
pt3dadd(51.841, 182.5, 6.456, 0.286)
pt3dadd(51.743, 182.555, 6.421, 0.298)
pt3dadd(51.644, 182.609, 6.387, 0.31)
pt3dadd(51.546, 182.664, 6.353, 0.322)
pt3dadd(51.447, 182.719, 6.319, 0.334)
pt3dadd(51.348, 182.773, 6.284, 0.346)
pt3dadd(51.25, 182.828, 6.25, 0.358)
pt3dadd(51.151, 182.884, 6.216, 0.37)
pt3dadd(51.053, 182.941, 6.185, 0.378)
pt3dadd(50.955, 182.999, 6.154, 0.386)
pt3dadd(50.856, 183.056, 6.123, 0.396)
pt3dadd(50.758, 183.114, 6.092, 0.404)
pt3dadd(50.659, 183.172, 6.061, 0.412)
pt3dadd(50.561, 183.23, 6.03, 0.42)
pt3dadd(50.463, 183.288, 5.999, 0.428)
pt3dadd(50.364, 183.346, 5.969, 0.438)
pt3dadd(50.266, 183.403, 5.938, 0.446)
pt3dadd(50.168, 183.462, 5.908, 0.452)
pt3dadd(50.07, 183.527, 5.886, 0.452)
pt3dadd(49.972, 183.59, 5.863, 0.452)
pt3dadd(49.875, 183.654, 5.84, 0.452)
pt3dadd(49.777, 183.719, 5.817, 0.452)
pt3dadd(49.679, 183.782, 5.794, 0.452)
pt3dadd(49.581, 183.847, 5.771, 0.452)
pt3dadd(49.484, 183.911, 5.748, 0.452)
pt3dadd(49.386, 183.974, 5.726, 0.452)
pt3dadd(49.288, 184.039, 5.703, 0.452)
pt3dadd(49.191, 184.104, 5.681, 0.45)
pt3dadd(49.093, 184.17, 5.661, 0.446)
pt3dadd(48.996, 184.235, 5.641, 0.44)
pt3dadd(48.898, 184.301, 5.621, 0.436)
pt3dadd(48.801, 184.367, 5.602, 0.43)
pt3dadd(48.704, 184.433, 5.582, 0.426)
pt3dadd(48.606, 184.499, 5.562, 0.422)
pt3dadd(48.509, 184.565, 5.542, 0.416)
pt3dadd(48.411, 184.631, 5.523, 0.412)
pt3dadd(48.314, 184.697, 5.503, 0.406)
pt3dadd(48.216, 184.763, 5.484, 0.4)
pt3dadd(48.12, 184.831, 5.469, 0.388)
pt3dadd(48.023, 184.9, 5.453, 0.376)
pt3dadd(47.926, 184.968, 5.438, 0.364)
pt3dadd(47.829, 185.036, 5.423, 0.352)
pt3dadd(47.732, 185.105, 5.408, 0.34)
pt3dadd(47.635, 185.173, 5.392, 0.328)
pt3dadd(47.538, 185.242, 5.377, 0.316)
pt3dadd(47.442, 185.31, 5.362, 0.304)
pt3dadd(47.345, 185.378, 5.346, 0.292)
pt3dadd(47.246, 185.446, 5.331, 0.28)
pt3dadd(47.144, 185.504, 5.318, 0.274)
pt3dadd(47.041, 185.564, 5.304, 0.27)
pt3dadd(46.938, 185.624, 5.291, 0.264)
pt3dadd(46.835, 185.684, 5.278, 0.258)
pt3dadd(46.732, 185.743, 5.264, 0.252)
pt3dadd(46.629, 185.803, 5.251, 0.248)
pt3dadd(46.527, 185.863, 5.238, 0.242)
pt3dadd(46.424, 185.923, 5.224, 0.236)
pt3dadd(46.321, 185.983, 5.211, 0.23)
pt3dadd(46.217, 186.041, 5.198, 0.226)
pt3dadd(46.11, 186.092, 5.186, 0.226)
pt3dadd(46.002, 186.144, 5.174, 0.226)
pt3dadd(45.895, 186.196, 5.162, 0.226)
pt3dadd(45.788, 186.247, 5.151, 0.226)
pt3dadd(45.68, 186.3, 5.139, 0.226)
pt3dadd(45.573, 186.352, 5.127, 0.226)
pt3dadd(45.466, 186.403, 5.116, 0.226)
pt3dadd(45.359, 186.455, 5.104, 0.226)
pt3dadd(45.251, 186.506, 5.092, 0.226)
pt3dadd(45.144, 186.553, 5.073, 0.226)
pt3dadd(45.039, 186.587, 5.034, 0.226)
pt3dadd(44.934, 186.62, 4.995, 0.226)
pt3dadd(44.829, 186.654, 4.956, 0.226)
pt3dadd(44.723, 186.686, 4.917, 0.226)
pt3dadd(44.618, 186.72, 4.877, 0.226)
pt3dadd(44.513, 186.754, 4.838, 0.226)
pt3dadd(44.407, 186.786, 4.799, 0.226)
pt3dadd(44.302, 186.82, 4.76, 0.226)
pt3dadd(44.197, 186.853, 4.721, 0.226)
pt3dadd(44.093, 186.89, 4.682, 0.226)
pt3dadd(43.994, 186.938, 4.643, 0.226)
pt3dadd(43.894, 186.986, 4.603, 0.226)
pt3dadd(43.795, 187.034, 4.564, 0.226)
pt3dadd(43.695, 187.082, 4.525, 0.226)
pt3dadd(43.596, 187.13, 4.486, 0.226)
pt3dadd(43.496, 187.178, 4.447, 0.226)
pt3dadd(43.397, 187.226, 4.408, 0.226)
pt3dadd(43.298, 187.276, 4.369, 0.226)
pt3dadd(43.198, 187.324, 4.33, 0.226)
pt3dadd(43.104, 187.382, 4.294, 0.228)
pt3dadd(43.016, 187.454, 4.262, 0.23)
pt3dadd(42.928, 187.526, 4.231, 0.232)
pt3dadd(42.839, 187.598, 4.199, 0.234)
pt3dadd(42.751, 187.669, 4.167, 0.236)
pt3dadd(42.663, 187.741, 4.135, 0.238)
pt3dadd(42.575, 187.813, 4.103, 0.242)
pt3dadd(42.486, 187.885, 4.071, 0.244)
pt3dadd(42.398, 187.957, 4.039, 0.246)
pt3dadd(42.31, 188.028, 4.008, 0.248)
pt3dadd(42.215, 188.094, 3.982, 0.258)
pt3dadd(42.113, 188.153, 3.962, 0.278)
pt3dadd(42.011, 188.212, 3.942, 0.294)
pt3dadd(41.909, 188.27, 3.922, 0.314)
pt3dadd(41.808, 188.329, 3.902, 0.332)
pt3dadd(41.706, 188.388, 3.882, 0.35)
pt3dadd(41.604, 188.447, 3.862, 0.368)
pt3dadd(41.502, 188.506, 3.842, 0.386)
pt3dadd(41.401, 188.564, 3.822, 0.404)
pt3dadd(41.299, 188.623, 3.801, 0.422)
pt3dadd(41.2, 188.689, 3.787, 0.432)
pt3dadd(41.104, 188.76, 3.778, 0.434)
pt3dadd(41.009, 188.832, 3.768, 0.436)
pt3dadd(40.913, 188.903, 3.759, 0.438)
pt3dadd(40.817, 188.975, 3.749, 0.44)
pt3dadd(40.721, 189.046, 3.74, 0.442)
pt3dadd(40.626, 189.118, 3.73, 0.444)
pt3dadd(40.53, 189.188, 3.721, 0.446)
pt3dadd(40.434, 189.26, 3.712, 0.448)
pt3dadd(40.338, 189.331, 3.702, 0.45)
}
}
proc shape3d_28() {
apic[10] { pt3dadd(40.242, 189.402, 3.687, 0.452)
pt3dadd(40.147, 189.47, 3.668, 0.452)
pt3dadd(40.051, 189.539, 3.648, 0.452)
pt3dadd(39.955, 189.607, 3.628, 0.452)
pt3dadd(39.86, 189.676, 3.609, 0.452)
pt3dadd(39.764, 189.744, 3.589, 0.452)
pt3dadd(39.669, 189.812, 3.569, 0.452)
pt3dadd(39.573, 189.881, 3.55, 0.452)
pt3dadd(39.477, 189.95, 3.53, 0.452)
pt3dadd(39.382, 190.019, 3.511, 0.452)
pt3dadd(39.287, 190.082, 3.482, 0.45)
pt3dadd(39.193, 190.145, 3.448, 0.446)
pt3dadd(39.098, 190.207, 3.414, 0.444)
pt3dadd(39.004, 190.27, 3.38, 0.44)
pt3dadd(38.91, 190.332, 3.346, 0.438)
pt3dadd(38.816, 190.394, 3.313, 0.434)
pt3dadd(38.721, 190.456, 3.279, 0.43)
pt3dadd(38.627, 190.518, 3.245, 0.428)
pt3dadd(38.533, 190.58, 3.211, 0.424)
pt3dadd(38.439, 190.643, 3.177, 0.422)
pt3dadd(38.345, 190.714, 3.16, 0.408)
pt3dadd(38.25, 190.786, 3.148, 0.39)
pt3dadd(38.156, 190.859, 3.137, 0.374)
pt3dadd(38.062, 190.932, 3.125, 0.356)
pt3dadd(37.968, 191.005, 3.113, 0.34)
pt3dadd(37.874, 191.078, 3.102, 0.322)
pt3dadd(37.78, 191.152, 3.09, 0.306)
pt3dadd(37.686, 191.225, 3.079, 0.288)
pt3dadd(37.592, 191.298, 3.067, 0.272)
pt3dadd(37.498, 191.371, 3.055, 0.254)
pt3dadd(37.398, 191.42, 3.081, 0.248)
pt3dadd(37.295, 191.461, 3.121, 0.246)
pt3dadd(37.192, 191.501, 3.16, 0.244)
pt3dadd(37.09, 191.542, 3.2, 0.24)
pt3dadd(36.987, 191.581, 3.239, 0.238)
pt3dadd(36.885, 191.622, 3.279, 0.236)
pt3dadd(36.782, 191.662, 3.318, 0.234)
pt3dadd(36.679, 191.702, 3.358, 0.23)
pt3dadd(36.577, 191.742, 3.397, 0.228)
pt3dadd(36.474, 191.783, 3.437, 0.226)
pt3dadd(36.373, 191.816, 3.484, 0.226)
pt3dadd(36.273, 191.85, 3.53, 0.226)
pt3dadd(36.172, 191.884, 3.577, 0.226)
pt3dadd(36.071, 191.917, 3.624, 0.226)
pt3dadd(35.971, 191.951, 3.67, 0.226)
pt3dadd(35.87, 191.984, 3.717, 0.226)
pt3dadd(35.769, 192.018, 3.763, 0.226)
pt3dadd(35.669, 192.052, 3.81, 0.226)
pt3dadd(35.568, 192.085, 3.857, 0.226)
pt3dadd(35.467, 192.119, 3.903, 0.226)
}
apic[11] {pt3dclear()
pt3dadd(98.509, 133.74, 16.386, 1.808)
pt3dadd(98.581, 133.801, 16.386, 1.764)
pt3dadd(98.672, 133.879, 16.387, 1.706)
pt3dadd(98.763, 133.957, 16.387, 1.65)
pt3dadd(98.854, 134.035, 16.387, 1.592)
pt3dadd(98.945, 134.113, 16.388, 1.536)
pt3dadd(99.036, 134.192, 16.388, 1.478)
pt3dadd(99.127, 134.27, 16.388, 1.422)
pt3dadd(99.218, 134.348, 16.388, 1.366)
pt3dadd(99.309, 134.426, 16.389, 1.308)
pt3dadd(99.4, 134.504, 16.389, 1.252)
pt3dadd(99.492, 134.582, 16.389, 1.194)
pt3dadd(99.583, 134.66, 16.389, 1.138)
pt3dadd(99.674, 134.738, 16.39, 1.08)
pt3dadd(99.765, 134.816, 16.39, 1.024)
pt3dadd(99.856, 134.894, 16.39, 0.968)
pt3dadd(99.948, 134.972, 16.391, 0.91)
pt3dadd(100.039, 135.05, 16.391, 0.854)
pt3dadd(100.13, 135.128, 16.391, 0.796)
pt3dadd(100.221, 135.206, 16.391, 0.74)
pt3dadd(100.312, 135.284, 16.392, 0.686)
pt3dadd(100.402, 135.364, 16.392, 0.638)
pt3dadd(100.492, 135.443, 16.393, 0.59)
pt3dadd(100.583, 135.522, 16.393, 0.542)
pt3dadd(100.673, 135.601, 16.394, 0.494)
pt3dadd(100.763, 135.68, 16.395, 0.446)
pt3dadd(100.853, 135.76, 16.395, 0.398)
pt3dadd(100.943, 135.839, 16.396, 0.348)
pt3dadd(101.034, 135.918, 16.396, 0.3)
pt3dadd(101.124, 135.997, 16.397, 0.252)
pt3dadd(101.211, 136.079, 16.398, 0.226)
pt3dadd(101.296, 136.164, 16.4, 0.226)
pt3dadd(101.381, 136.248, 16.403, 0.226)
pt3dadd(101.466, 136.333, 16.405, 0.226)
pt3dadd(101.551, 136.418, 16.407, 0.226)
pt3dadd(101.635, 136.504, 16.409, 0.226)
pt3dadd(101.72, 136.588, 16.411, 0.226)
pt3dadd(101.805, 136.673, 16.413, 0.226)
pt3dadd(101.89, 136.758, 16.415, 0.226)
pt3dadd(101.974, 136.843, 16.417, 0.226)
pt3dadd(102.059, 136.927, 16.42, 0.226)
pt3dadd(102.144, 137.012, 16.422, 0.226)
pt3dadd(102.229, 137.098, 16.424, 0.226)
pt3dadd(102.314, 137.183, 16.426, 0.226)
pt3dadd(102.398, 137.267, 16.428, 0.226)
pt3dadd(102.483, 137.352, 16.431, 0.226)
pt3dadd(102.568, 137.437, 16.433, 0.226)
pt3dadd(102.653, 137.522, 16.435, 0.226)
pt3dadd(102.737, 137.606, 16.437, 0.226)
pt3dadd(102.822, 137.692, 16.439, 0.226)
pt3dadd(102.907, 137.777, 16.442, 0.23)
pt3dadd(102.992, 137.862, 16.444, 0.24)
pt3dadd(103.076, 137.946, 16.447, 0.248)
pt3dadd(103.161, 138.031, 16.45, 0.258)
pt3dadd(103.246, 138.116, 16.453, 0.268)
pt3dadd(103.33, 138.202, 16.456, 0.276)
pt3dadd(103.415, 138.287, 16.458, 0.286)
pt3dadd(103.5, 138.371, 16.461, 0.294)
pt3dadd(103.584, 138.456, 16.464, 0.304)
pt3dadd(103.669, 138.541, 16.467, 0.314)
pt3dadd(103.754, 138.626, 16.47, 0.324)
pt3dadd(103.839, 138.71, 16.473, 0.336)
pt3dadd(103.923, 138.796, 16.476, 0.348)
pt3dadd(104.008, 138.881, 16.479, 0.36)
pt3dadd(104.093, 138.966, 16.482, 0.372)
pt3dadd(104.178, 139.05, 16.485, 0.384)
pt3dadd(104.262, 139.135, 16.488, 0.396)
pt3dadd(104.347, 139.22, 16.491, 0.408)
pt3dadd(104.432, 139.306, 16.494, 0.42)
pt3dadd(104.517, 139.39, 16.497, 0.432)
pt3dadd(104.601, 139.475, 16.502, 0.434)
pt3dadd(104.686, 139.56, 16.508, 0.426)
pt3dadd(104.771, 139.644, 16.514, 0.418)
pt3dadd(104.855, 139.729, 16.521, 0.408)
pt3dadd(104.94, 139.814, 16.527, 0.4)
pt3dadd(105.024, 139.898, 16.533, 0.392)
pt3dadd(105.109, 139.984, 16.54, 0.384)
pt3dadd(105.193, 140.069, 16.546, 0.374)
pt3dadd(105.278, 140.153, 16.552, 0.366)
pt3dadd(105.363, 140.238, 16.559, 0.358)
pt3dadd(105.447, 140.323, 16.565, 0.348)
pt3dadd(105.531, 140.407, 16.572, 0.336)
pt3dadd(105.616, 140.492, 16.579, 0.326)
pt3dadd(105.7, 140.578, 16.586, 0.314)
pt3dadd(105.785, 140.662, 16.592, 0.304)
pt3dadd(105.869, 140.747, 16.599, 0.292)
pt3dadd(105.954, 140.832, 16.606, 0.28)
pt3dadd(106.038, 140.917, 16.613, 0.27)
pt3dadd(106.123, 141.001, 16.62, 0.258)
pt3dadd(106.207, 141.086, 16.626, 0.248)
pt3dadd(106.292, 141.172, 16.635, 0.254)
pt3dadd(106.375, 141.256, 16.647, 0.284)
pt3dadd(106.459, 141.341, 16.659, 0.314)
pt3dadd(106.543, 141.425, 16.67, 0.342)
pt3dadd(106.627, 141.51, 16.682, 0.372)
pt3dadd(106.711, 141.594, 16.694, 0.402)
pt3dadd(106.795, 141.679, 16.706, 0.43)
pt3dadd(106.879, 141.763, 16.718, 0.46)
pt3dadd(106.963, 141.848, 16.729, 0.49)
pt3dadd(107.047, 141.932, 16.741, 0.518)
pt3dadd(107.131, 142.018, 16.753, 0.552)
pt3dadd(107.214, 142.102, 16.766, 0.588)
pt3dadd(107.298, 142.186, 16.778, 0.622)
pt3dadd(107.382, 142.271, 16.791, 0.658)
pt3dadd(107.466, 142.355, 16.803, 0.694)
pt3dadd(107.55, 142.44, 16.816, 0.73)
pt3dadd(107.634, 142.524, 16.828, 0.766)
pt3dadd(107.718, 142.608, 16.841, 0.802)
pt3dadd(107.802, 142.693, 16.853, 0.838)
pt3dadd(107.886, 142.777, 16.866, 0.874)
pt3dadd(107.963, 142.856, 16.897, 0.886)
pt3dadd(108.033, 142.93, 16.951, 0.872)
pt3dadd(108.104, 143.002, 17.005, 0.856)
pt3dadd(108.174, 143.075, 17.059, 0.842)
pt3dadd(108.244, 143.147, 17.113, 0.826)
pt3dadd(108.315, 143.22, 17.167, 0.812)
pt3dadd(108.385, 143.292, 17.221, 0.798)
pt3dadd(108.455, 143.365, 17.275, 0.782)
pt3dadd(108.525, 143.437, 17.329, 0.768)
pt3dadd(108.596, 143.51, 17.383, 0.752)
pt3dadd(108.667, 143.585, 17.433, 0.734)
pt3dadd(108.741, 143.66, 17.48, 0.708)
pt3dadd(108.814, 143.737, 17.527, 0.684)
pt3dadd(108.887, 143.814, 17.574, 0.66)
pt3dadd(108.96, 143.891, 17.621, 0.636)
pt3dadd(109.034, 143.968, 17.668, 0.61)
pt3dadd(109.107, 144.043, 17.715, 0.586)
pt3dadd(109.18, 144.12, 17.762, 0.562)
pt3dadd(109.253, 144.197, 17.809, 0.536)
pt3dadd(109.326, 144.274, 17.856, 0.512)
pt3dadd(109.4, 144.352, 17.901, 0.488)
pt3dadd(109.474, 144.43, 17.945, 0.464)
pt3dadd(109.548, 144.509, 17.988, 0.438)
pt3dadd(109.622, 144.587, 18.032, 0.414)
pt3dadd(109.695, 144.666, 18.076, 0.39)
pt3dadd(109.769, 144.745, 18.12, 0.364)
pt3dadd(109.843, 144.823, 18.163, 0.34)
pt3dadd(109.917, 144.902, 18.207, 0.316)
pt3dadd(109.991, 144.98, 18.25, 0.292)
pt3dadd(110.065, 145.06, 18.294, 0.266)
pt3dadd(110.129, 145.132, 18.351, 0.274)
pt3dadd(110.185, 145.2, 18.419, 0.308)
pt3dadd(110.242, 145.267, 18.487, 0.342)
pt3dadd(110.298, 145.336, 18.555, 0.374)
pt3dadd(110.355, 145.403, 18.623, 0.408)
pt3dadd(110.411, 145.47, 18.691, 0.442)
pt3dadd(110.467, 145.538, 18.759, 0.476)
pt3dadd(110.524, 145.606, 18.827, 0.508)
pt3dadd(110.58, 145.673, 18.895, 0.542)
pt3dadd(110.637, 145.741, 18.963, 0.576)
}
}
proc shape3d_29() {
apic[11] { pt3dadd(110.699, 145.817, 19.018, 0.596)
pt3dadd(110.767, 145.9, 19.063, 0.604)
pt3dadd(110.835, 145.982, 19.109, 0.612)
pt3dadd(110.902, 146.065, 19.154, 0.622)
pt3dadd(110.97, 146.148, 19.199, 0.63)
pt3dadd(111.038, 146.231, 19.244, 0.64)
pt3dadd(111.106, 146.315, 19.289, 0.648)
pt3dadd(111.174, 146.398, 19.334, 0.658)
pt3dadd(111.241, 146.48, 19.38, 0.666)
pt3dadd(111.309, 146.563, 19.425, 0.676)
pt3dadd(111.377, 146.65, 19.465, 0.678)
pt3dadd(111.445, 146.737, 19.503, 0.678)
pt3dadd(111.513, 146.825, 19.54, 0.678)
pt3dadd(111.581, 146.912, 19.578, 0.678)
pt3dadd(111.65, 147, 19.616, 0.678)
pt3dadd(111.718, 147.089, 19.653, 0.678)
pt3dadd(111.786, 147.176, 19.691, 0.678)
pt3dadd(111.854, 147.264, 19.729, 0.678)
pt3dadd(111.922, 147.352, 19.766, 0.678)
pt3dadd(111.99, 147.439, 19.804, 0.678)
pt3dadd(112.043, 147.533, 19.849, 0.678)
pt3dadd(112.089, 147.626, 19.897, 0.678)
pt3dadd(112.136, 147.721, 19.945, 0.678)
pt3dadd(112.182, 147.816, 19.993, 0.678)
pt3dadd(112.229, 147.911, 20.041, 0.678)
pt3dadd(112.276, 148.004, 20.088, 0.678)
pt3dadd(112.322, 148.099, 20.136, 0.678)
pt3dadd(112.369, 148.194, 20.184, 0.678)
pt3dadd(112.415, 148.288, 20.232, 0.678)
pt3dadd(112.462, 148.382, 20.28, 0.678)
pt3dadd(112.513, 148.478, 20.323, 0.672)
pt3dadd(112.565, 148.574, 20.363, 0.664)
pt3dadd(112.618, 148.672, 20.404, 0.656)
pt3dadd(112.67, 148.768, 20.444, 0.648)
pt3dadd(112.723, 148.864, 20.485, 0.64)
pt3dadd(112.775, 148.96, 20.526, 0.63)
pt3dadd(112.827, 149.057, 20.566, 0.622)
pt3dadd(112.88, 149.153, 20.607, 0.614)
pt3dadd(112.932, 149.249, 20.647, 0.606)
pt3dadd(112.985, 149.346, 20.688, 0.598)
pt3dadd(113.045, 149.443, 20.717, 0.578)
pt3dadd(113.108, 149.54, 20.743, 0.554)
pt3dadd(113.17, 149.638, 20.769, 0.53)
pt3dadd(113.232, 149.736, 20.795, 0.506)
pt3dadd(113.295, 149.833, 20.82, 0.484)
pt3dadd(113.357, 149.932, 20.846, 0.46)
pt3dadd(113.42, 150.029, 20.872, 0.436)
pt3dadd(113.482, 150.126, 20.898, 0.412)
pt3dadd(113.544, 150.224, 20.924, 0.388)
pt3dadd(113.607, 150.322, 20.95, 0.366)
pt3dadd(113.67, 150.42, 20.974, 0.35)
pt3dadd(113.734, 150.517, 20.997, 0.336)
pt3dadd(113.798, 150.616, 21.02, 0.322)
pt3dadd(113.862, 150.713, 21.042, 0.31)
pt3dadd(113.925, 150.811, 21.065, 0.296)
pt3dadd(113.989, 150.908, 21.088, 0.282)
pt3dadd(114.053, 151.007, 21.111, 0.27)
pt3dadd(114.117, 151.105, 21.134, 0.256)
pt3dadd(114.18, 151.202, 21.157, 0.242)
pt3dadd(114.244, 151.301, 21.18, 0.228)
pt3dadd(114.309, 151.398, 21.199, 0.226)
pt3dadd(114.375, 151.496, 21.218, 0.226)
pt3dadd(114.44, 151.595, 21.237, 0.226)
pt3dadd(114.506, 151.692, 21.256, 0.226)
pt3dadd(114.571, 151.79, 21.275, 0.226)
pt3dadd(114.637, 151.888, 21.293, 0.226)
pt3dadd(114.702, 151.986, 21.312, 0.226)
pt3dadd(114.768, 152.084, 21.331, 0.226)
pt3dadd(114.834, 152.182, 21.35, 0.226)
pt3dadd(114.899, 152.28, 21.369, 0.226)
pt3dadd(114.955, 152.381, 21.395, 0.232)
pt3dadd(115.009, 152.483, 21.422, 0.238)
pt3dadd(115.063, 152.585, 21.45, 0.244)
pt3dadd(115.117, 152.687, 21.477, 0.25)
pt3dadd(115.171, 152.789, 21.505, 0.258)
pt3dadd(115.225, 152.891, 21.532, 0.264)
pt3dadd(115.279, 152.993, 21.56, 0.27)
pt3dadd(115.333, 153.095, 21.587, 0.278)
pt3dadd(115.387, 153.197, 21.615, 0.284)
pt3dadd(115.441, 153.299, 21.643, 0.29)
pt3dadd(115.485, 153.402, 21.677, 0.302)
pt3dadd(115.527, 153.506, 21.712, 0.314)
pt3dadd(115.569, 153.611, 21.748, 0.328)
pt3dadd(115.611, 153.715, 21.783, 0.34)
pt3dadd(115.653, 153.818, 21.818, 0.352)
pt3dadd(115.695, 153.923, 21.854, 0.364)
pt3dadd(115.737, 154.027, 21.889, 0.378)
pt3dadd(115.779, 154.132, 21.924, 0.39)
pt3dadd(115.821, 154.236, 21.959, 0.402)
pt3dadd(115.863, 154.339, 21.995, 0.414)
pt3dadd(115.894, 154.45, 22.023, 0.438)
pt3dadd(115.924, 154.561, 22.051, 0.46)
pt3dadd(115.953, 154.673, 22.079, 0.484)
pt3dadd(115.983, 154.784, 22.107, 0.506)
pt3dadd(116.013, 154.895, 22.135, 0.53)
pt3dadd(116.043, 155.006, 22.163, 0.554)
pt3dadd(116.073, 155.118, 22.191, 0.576)
pt3dadd(116.103, 155.23, 22.218, 0.6)
pt3dadd(116.133, 155.341, 22.246, 0.624)
pt3dadd(116.163, 155.452, 22.274, 0.646)
pt3dadd(116.188, 155.566, 22.298, 0.67)
pt3dadd(116.212, 155.68, 22.322, 0.696)
pt3dadd(116.237, 155.794, 22.346, 0.72)
pt3dadd(116.262, 155.908, 22.37, 0.744)
pt3dadd(116.287, 156.02, 22.394, 0.77)
pt3dadd(116.311, 156.134, 22.418, 0.794)
pt3dadd(116.336, 156.248, 22.442, 0.82)
pt3dadd(116.361, 156.362, 22.466, 0.844)
pt3dadd(116.386, 156.476, 22.49, 0.868)
pt3dadd(116.41, 156.59, 22.514, 0.892)
pt3dadd(116.434, 156.707, 22.529, 0.882)
pt3dadd(116.458, 156.823, 22.542, 0.868)
pt3dadd(116.482, 156.94, 22.556, 0.854)
pt3dadd(116.506, 157.056, 22.569, 0.84)
pt3dadd(116.53, 157.172, 22.583, 0.826)
pt3dadd(116.554, 157.289, 22.597, 0.812)
pt3dadd(116.577, 157.405, 22.61, 0.798)
pt3dadd(116.601, 157.522, 22.624, 0.784)
pt3dadd(116.625, 157.638, 22.637, 0.77)
pt3dadd(116.649, 157.754, 22.651, 0.756)
pt3dadd(116.688, 157.867, 22.661, 0.746)
pt3dadd(116.728, 157.98, 22.672, 0.74)
pt3dadd(116.768, 158.093, 22.682, 0.732)
pt3dadd(116.807, 158.204, 22.692, 0.724)
pt3dadd(116.847, 158.317, 22.703, 0.716)
pt3dadd(116.887, 158.43, 22.713, 0.708)
pt3dadd(116.927, 158.543, 22.723, 0.7)
pt3dadd(116.967, 158.654, 22.734, 0.692)
pt3dadd(117.007, 158.767, 22.744, 0.686)
pt3dadd(117.048, 158.88, 22.754, 0.678)
pt3dadd(117.106, 158.984, 22.76, 0.678)
pt3dadd(117.164, 159.089, 22.766, 0.678)
pt3dadd(117.222, 159.194, 22.773, 0.678)
pt3dadd(117.28, 159.299, 22.779, 0.678)
pt3dadd(117.338, 159.403, 22.785, 0.678)
pt3dadd(117.396, 159.508, 22.791, 0.678)
pt3dadd(117.454, 159.613, 22.798, 0.678)
pt3dadd(117.512, 159.718, 22.804, 0.678)
pt3dadd(117.57, 159.822, 22.81, 0.678)
pt3dadd(117.629, 159.926, 22.816, 0.678)
pt3dadd(117.695, 160.026, 22.825, 0.67)
pt3dadd(117.762, 160.126, 22.833, 0.662)
pt3dadd(117.828, 160.225, 22.841, 0.654)
pt3dadd(117.895, 160.324, 22.85, 0.646)
pt3dadd(117.962, 160.423, 22.858, 0.638)
pt3dadd(118.028, 160.523, 22.867, 0.63)
pt3dadd(118.095, 160.622, 22.875, 0.624)
pt3dadd(118.161, 160.721, 22.883, 0.616)
pt3dadd(118.228, 160.82, 22.892, 0.608)
pt3dadd(118.295, 160.92, 22.9, 0.6)
pt3dadd(118.366, 161.016, 22.91, 0.588)
pt3dadd(118.437, 161.112, 22.919, 0.576)
pt3dadd(118.507, 161.208, 22.929, 0.564)
pt3dadd(118.578, 161.304, 22.938, 0.554)
pt3dadd(118.649, 161.401, 22.948, 0.542)
pt3dadd(118.72, 161.497, 22.957, 0.53)
pt3dadd(118.791, 161.593, 22.966, 0.518)
pt3dadd(118.861, 161.689, 22.976, 0.506)
pt3dadd(118.932, 161.785, 22.985, 0.494)
pt3dadd(119.002, 161.882, 22.996, 0.484)
pt3dadd(119.059, 161.982, 23.023, 0.48)
pt3dadd(119.116, 162.083, 23.051, 0.478)
pt3dadd(119.173, 162.184, 23.078, 0.474)
pt3dadd(119.231, 162.283, 23.105, 0.47)
pt3dadd(119.288, 162.384, 23.133, 0.468)
pt3dadd(119.345, 162.484, 23.16, 0.464)
pt3dadd(119.402, 162.584, 23.188, 0.462)
pt3dadd(119.459, 162.684, 23.215, 0.458)
pt3dadd(119.516, 162.785, 23.242, 0.454)
pt3dadd(119.573, 162.886, 23.271, 0.452)
pt3dadd(119.624, 162.985, 23.304, 0.452)
pt3dadd(119.675, 163.086, 23.338, 0.452)
pt3dadd(119.726, 163.187, 23.372, 0.452)
pt3dadd(119.778, 163.288, 23.406, 0.452)
pt3dadd(119.829, 163.388, 23.44, 0.452)
pt3dadd(119.88, 163.489, 23.473, 0.452)
pt3dadd(119.931, 163.59, 23.507, 0.452)
pt3dadd(119.982, 163.691, 23.541, 0.452)
pt3dadd(120.034, 163.79, 23.575, 0.452)
pt3dadd(120.086, 163.891, 23.607, 0.45)
pt3dadd(120.145, 163.992, 23.63, 0.44)
pt3dadd(120.204, 164.093, 23.653, 0.43)
pt3dadd(120.263, 164.194, 23.676, 0.42)
pt3dadd(120.322, 164.294, 23.699, 0.408)
pt3dadd(120.38, 164.395, 23.722, 0.398)
pt3dadd(120.439, 164.496, 23.745, 0.388)
pt3dadd(120.498, 164.597, 23.768, 0.376)
pt3dadd(120.557, 164.699, 23.791, 0.366)
pt3dadd(120.616, 164.8, 23.814, 0.356)
pt3dadd(120.676, 164.9, 23.837, 0.346)
pt3dadd(120.736, 165.001, 23.858, 0.334)
pt3dadd(120.796, 165.101, 23.879, 0.32)
pt3dadd(120.856, 165.202, 23.901, 0.308)
pt3dadd(120.916, 165.302, 23.922, 0.296)
pt3dadd(120.976, 165.403, 23.943, 0.284)
pt3dadd(121.036, 165.504, 23.965, 0.272)
pt3dadd(121.096, 165.605, 23.986, 0.26)
pt3dadd(121.156, 165.706, 24.007, 0.248)
pt3dadd(121.216, 165.806, 24.028, 0.236)
pt3dadd(121.272, 165.908, 24.048, 0.226)
}
}
proc shape3d_30() {
apic[11] { pt3dadd(121.316, 166.02, 24.059, 0.226)
pt3dadd(121.36, 166.13, 24.071, 0.226)
pt3dadd(121.403, 166.242, 24.083, 0.226)
pt3dadd(121.447, 166.352, 24.094, 0.226)
pt3dadd(121.49, 166.464, 24.106, 0.226)
pt3dadd(121.534, 166.574, 24.117, 0.226)
pt3dadd(121.577, 166.686, 24.129, 0.226)
pt3dadd(121.621, 166.796, 24.14, 0.226)
pt3dadd(121.664, 166.908, 24.152, 0.226)
pt3dadd(121.709, 167.018, 24.163, 0.226)
pt3dadd(121.758, 167.128, 24.172, 0.226)
pt3dadd(121.807, 167.237, 24.181, 0.226)
pt3dadd(121.856, 167.345, 24.189, 0.226)
pt3dadd(121.904, 167.454, 24.198, 0.226)
pt3dadd(121.954, 167.563, 24.207, 0.226)
pt3dadd(122.003, 167.672, 24.216, 0.226)
pt3dadd(122.052, 167.782, 24.224, 0.226)
pt3dadd(122.101, 167.891, 24.233, 0.226)
pt3dadd(122.149, 168, 24.242, 0.226)
pt3dadd(122.201, 168.108, 24.249, 0.226)
pt3dadd(122.261, 168.211, 24.252, 0.226)
pt3dadd(122.322, 168.314, 24.254, 0.226)
pt3dadd(122.382, 168.419, 24.257, 0.226)
pt3dadd(122.442, 168.522, 24.259, 0.226)
pt3dadd(122.502, 168.626, 24.262, 0.226)
pt3dadd(122.563, 168.73, 24.264, 0.226)
pt3dadd(122.623, 168.834, 24.267, 0.226)
pt3dadd(122.683, 168.937, 24.269, 0.226)
pt3dadd(122.743, 169.042, 24.272, 0.226)
pt3dadd(122.802, 169.146, 24.275, 0.23)
pt3dadd(122.852, 169.254, 24.279, 0.252)
pt3dadd(122.903, 169.363, 24.284, 0.272)
pt3dadd(122.954, 169.471, 24.288, 0.292)
pt3dadd(123.005, 169.58, 24.293, 0.314)
pt3dadd(123.055, 169.688, 24.298, 0.334)
pt3dadd(123.107, 169.798, 24.302, 0.354)
pt3dadd(123.157, 169.906, 24.307, 0.376)
pt3dadd(123.208, 170.015, 24.311, 0.396)
pt3dadd(123.258, 170.123, 24.316, 0.416)
pt3dadd(123.307, 170.233, 24.321, 0.442)
pt3dadd(123.348, 170.345, 24.328, 0.482)
pt3dadd(123.389, 170.458, 24.334, 0.524)
pt3dadd(123.43, 170.57, 24.341, 0.564)
pt3dadd(123.47, 170.683, 24.347, 0.606)
pt3dadd(123.512, 170.795, 24.354, 0.646)
pt3dadd(123.553, 170.908, 24.361, 0.686)
pt3dadd(123.594, 171.02, 24.367, 0.728)
pt3dadd(123.635, 171.133, 24.374, 0.768)
pt3dadd(123.676, 171.245, 24.38, 0.808)
pt3dadd(123.72, 171.356, 24.388, 0.838)
pt3dadd(123.772, 171.464, 24.397, 0.834)
pt3dadd(123.824, 171.571, 24.407, 0.83)
pt3dadd(123.877, 171.679, 24.417, 0.826)
pt3dadd(123.929, 171.786, 24.427, 0.82)
pt3dadd(123.982, 171.893, 24.436, 0.816)
pt3dadd(124.033, 172.001, 24.446, 0.812)
pt3dadd(124.086, 172.108, 24.456, 0.808)
pt3dadd(124.138, 172.216, 24.466, 0.804)
pt3dadd(124.19, 172.322, 24.475, 0.8)
pt3dadd(124.243, 172.43, 24.486, 0.794)
pt3dadd(124.295, 172.537, 24.498, 0.784)
pt3dadd(124.348, 172.644, 24.51, 0.774)
pt3dadd(124.4, 172.751, 24.523, 0.764)
pt3dadd(124.453, 172.858, 24.535, 0.754)
pt3dadd(124.506, 172.964, 24.548, 0.744)
pt3dadd(124.558, 173.071, 24.56, 0.734)
pt3dadd(124.61, 173.178, 24.572, 0.724)
pt3dadd(124.663, 173.285, 24.585, 0.716)
pt3dadd(124.716, 173.392, 24.597, 0.706)
pt3dadd(124.76, 173.5, 24.617, 0.706)
pt3dadd(124.787, 173.608, 24.653, 0.732)
pt3dadd(124.814, 173.717, 24.689, 0.758)
pt3dadd(124.841, 173.825, 24.725, 0.784)
pt3dadd(124.867, 173.934, 24.762, 0.812)
pt3dadd(124.895, 174.042, 24.798, 0.838)
pt3dadd(124.921, 174.151, 24.834, 0.864)
pt3dadd(124.949, 174.259, 24.87, 0.89)
pt3dadd(124.975, 174.368, 24.906, 0.916)
pt3dadd(125.002, 174.476, 24.943, 0.942)
pt3dadd(125.028, 174.586, 24.978, 0.96)
pt3dadd(125.05, 174.697, 25.01, 0.956)
pt3dadd(125.072, 174.809, 25.042, 0.954)
pt3dadd(125.094, 174.92, 25.074, 0.952)
pt3dadd(125.117, 175.032, 25.106, 0.948)
pt3dadd(125.14, 175.144, 25.138, 0.946)
pt3dadd(125.161, 175.255, 25.17, 0.944)
pt3dadd(125.184, 175.367, 25.202, 0.942)
pt3dadd(125.206, 175.477, 25.234, 0.938)
pt3dadd(125.228, 175.589, 25.266, 0.936)
pt3dadd(125.248, 175.702, 25.295, 0.914)
pt3dadd(125.261, 175.818, 25.319, 0.858)
pt3dadd(125.274, 175.933, 25.343, 0.802)
pt3dadd(125.287, 176.05, 25.366, 0.746)
pt3dadd(125.3, 176.165, 25.39, 0.692)
pt3dadd(125.314, 176.281, 25.414, 0.636)
pt3dadd(125.327, 176.396, 25.438, 0.58)
pt3dadd(125.34, 176.513, 25.462, 0.524)
pt3dadd(125.353, 176.628, 25.486, 0.468)
pt3dadd(125.366, 176.744, 25.51, 0.412)
pt3dadd(125.376, 176.861, 25.53, 0.378)
pt3dadd(125.381, 176.98, 25.545, 0.384)
pt3dadd(125.384, 177.098, 25.559, 0.39)
pt3dadd(125.388, 177.217, 25.574, 0.396)
pt3dadd(125.393, 177.336, 25.588, 0.402)
pt3dadd(125.396, 177.455, 25.603, 0.408)
pt3dadd(125.401, 177.572, 25.617, 0.414)
pt3dadd(125.405, 177.691, 25.632, 0.42)
pt3dadd(125.408, 177.81, 25.646, 0.426)
pt3dadd(125.413, 177.929, 25.661, 0.434)
pt3dadd(125.416, 178.048, 25.673, 0.444)
pt3dadd(125.417, 178.168, 25.683, 0.464)
pt3dadd(125.418, 178.286, 25.692, 0.482)
pt3dadd(125.418, 178.406, 25.701, 0.502)
pt3dadd(125.419, 178.525, 25.711, 0.522)
pt3dadd(125.42, 178.645, 25.72, 0.542)
pt3dadd(125.42, 178.765, 25.729, 0.56)
pt3dadd(125.422, 178.884, 25.739, 0.58)
pt3dadd(125.423, 179.004, 25.748, 0.6)
pt3dadd(125.424, 179.123, 25.757, 0.62)
pt3dadd(125.425, 179.243, 25.763, 0.62)
pt3dadd(125.426, 179.363, 25.763, 0.59)
pt3dadd(125.428, 179.483, 25.763, 0.562)
pt3dadd(125.43, 179.603, 25.763, 0.534)
pt3dadd(125.431, 179.723, 25.763, 0.504)
pt3dadd(125.434, 179.843, 25.763, 0.476)
pt3dadd(125.435, 179.963, 25.763, 0.446)
pt3dadd(125.436, 180.083, 25.763, 0.418)
pt3dadd(125.438, 180.203, 25.763, 0.388)
pt3dadd(125.44, 180.323, 25.764, 0.36)
pt3dadd(125.442, 180.443, 25.764, 0.338)
pt3dadd(125.444, 180.563, 25.764, 0.326)
pt3dadd(125.447, 180.683, 25.764, 0.314)
pt3dadd(125.45, 180.803, 25.764, 0.302)
pt3dadd(125.453, 180.923, 25.764, 0.292)
pt3dadd(125.455, 181.043, 25.764, 0.28)
pt3dadd(125.459, 181.163, 25.764, 0.268)
pt3dadd(125.461, 181.283, 25.764, 0.256)
pt3dadd(125.464, 181.403, 25.764, 0.244)
pt3dadd(125.467, 181.523, 25.764, 0.234)
pt3dadd(125.47, 181.643, 25.765, 0.226)
pt3dadd(125.473, 181.763, 25.765, 0.226)
pt3dadd(125.477, 181.883, 25.765, 0.226)
pt3dadd(125.48, 182.003, 25.765, 0.226)
pt3dadd(125.485, 182.122, 25.765, 0.226)
pt3dadd(125.489, 182.242, 25.765, 0.226)
pt3dadd(125.492, 182.362, 25.765, 0.226)
pt3dadd(125.496, 182.482, 25.766, 0.226)
pt3dadd(125.5, 182.602, 25.766, 0.226)
pt3dadd(125.503, 182.722, 25.766, 0.226)
pt3dadd(125.509, 182.842, 25.766, 0.226)
pt3dadd(125.518, 182.962, 25.766, 0.226)
pt3dadd(125.526, 183.082, 25.767, 0.226)
pt3dadd(125.534, 183.2, 25.767, 0.226)
pt3dadd(125.543, 183.32, 25.767, 0.226)
pt3dadd(125.551, 183.44, 25.768, 0.226)
pt3dadd(125.56, 183.56, 25.768, 0.226)
pt3dadd(125.568, 183.679, 25.768, 0.226)
pt3dadd(125.576, 183.799, 25.768, 0.226)
pt3dadd(125.585, 183.919, 25.769, 0.226)
pt3dadd(125.593, 184.039, 25.769, 0.228)
pt3dadd(125.605, 184.158, 25.77, 0.236)
pt3dadd(125.616, 184.278, 25.77, 0.242)
pt3dadd(125.627, 184.397, 25.771, 0.25)
pt3dadd(125.638, 184.517, 25.771, 0.256)
pt3dadd(125.65, 184.636, 25.771, 0.262)
pt3dadd(125.66, 184.756, 25.772, 0.27)
pt3dadd(125.671, 184.876, 25.772, 0.276)
pt3dadd(125.682, 184.994, 25.773, 0.282)
pt3dadd(125.693, 185.114, 25.773, 0.29)
pt3dadd(125.705, 185.233, 25.774, 0.3)
pt3dadd(125.719, 185.353, 25.774, 0.314)
pt3dadd(125.734, 185.472, 25.775, 0.328)
pt3dadd(125.747, 185.591, 25.776, 0.342)
pt3dadd(125.761, 185.711, 25.776, 0.358)
pt3dadd(125.774, 185.83, 25.777, 0.372)
pt3dadd(125.789, 185.948, 25.778, 0.386)
pt3dadd(125.803, 186.067, 25.778, 0.4)
pt3dadd(125.816, 186.187, 25.779, 0.414)
pt3dadd(125.831, 186.306, 25.78, 0.428)
pt3dadd(125.855, 186.422, 25.78, 0.442)
pt3dadd(125.897, 186.535, 25.782, 0.456)
pt3dadd(125.939, 186.648, 25.783, 0.47)
pt3dadd(125.98, 186.761, 25.784, 0.484)
pt3dadd(126.022, 186.872, 25.785, 0.498)
pt3dadd(126.064, 186.985, 25.787, 0.51)
pt3dadd(126.106, 187.098, 25.788, 0.524)
pt3dadd(126.146, 187.211, 25.789, 0.538)
pt3dadd(126.188, 187.322, 25.79, 0.552)
pt3dadd(126.23, 187.435, 25.792, 0.566)
pt3dadd(126.271, 187.548, 25.793, 0.578)
pt3dadd(126.313, 187.661, 25.795, 0.588)
pt3dadd(126.354, 187.774, 25.796, 0.598)
pt3dadd(126.396, 187.886, 25.798, 0.61)
pt3dadd(126.437, 187.999, 25.8, 0.62)
pt3dadd(126.478, 188.111, 25.801, 0.63)
pt3dadd(126.52, 188.224, 25.803, 0.64)
pt3dadd(126.56, 188.336, 25.805, 0.65)
pt3dadd(126.602, 188.449, 25.806, 0.662)
pt3dadd(126.643, 188.562, 25.808, 0.672)
pt3dadd(126.679, 188.676, 25.81, 0.678)
}
}
proc shape3d_31() {
apic[11] { pt3dadd(126.708, 188.792, 25.813, 0.678)
pt3dadd(126.737, 188.909, 25.816, 0.678)
pt3dadd(126.766, 189.025, 25.818, 0.678)
pt3dadd(126.794, 189.142, 25.821, 0.678)
pt3dadd(126.823, 189.258, 25.824, 0.678)
pt3dadd(126.852, 189.374, 25.827, 0.678)
pt3dadd(126.881, 189.491, 25.83, 0.678)
pt3dadd(126.91, 189.607, 25.832, 0.678)
pt3dadd(126.938, 189.724, 25.835, 0.678)
pt3dadd(126.964, 189.841, 25.839, 0.674)
pt3dadd(126.983, 189.96, 25.844, 0.666)
pt3dadd(127.002, 190.078, 25.85, 0.656)
pt3dadd(127.021, 190.196, 25.855, 0.648)
pt3dadd(127.04, 190.314, 25.861, 0.64)
pt3dadd(127.06, 190.433, 25.866, 0.63)
pt3dadd(127.079, 190.55, 25.871, 0.622)
pt3dadd(127.098, 190.669, 25.877, 0.612)
pt3dadd(127.117, 190.788, 25.882, 0.604)
pt3dadd(127.136, 190.906, 25.887, 0.596)
pt3dadd(127.153, 191.024, 25.894, 0.584)
pt3dadd(127.166, 191.143, 25.901, 0.57)
pt3dadd(127.178, 191.262, 25.908, 0.556)
pt3dadd(127.192, 191.381, 25.915, 0.542)
pt3dadd(127.205, 191.501, 25.922, 0.526)
pt3dadd(127.217, 191.62, 25.929, 0.512)
pt3dadd(127.23, 191.738, 25.937, 0.498)
pt3dadd(127.243, 191.857, 25.944, 0.484)
pt3dadd(127.255, 191.976, 25.951, 0.47)
pt3dadd(127.268, 192.096, 25.958, 0.454)
pt3dadd(127.276, 192.215, 25.967, 0.44)
pt3dadd(127.276, 192.334, 25.979, 0.426)
pt3dadd(127.276, 192.452, 25.99, 0.412)
pt3dadd(127.276, 192.572, 26.002, 0.398)
pt3dadd(127.276, 192.691, 26.014, 0.384)
pt3dadd(127.277, 192.81, 26.025, 0.368)
pt3dadd(127.277, 192.93, 26.037, 0.354)
pt3dadd(127.277, 193.049, 26.049, 0.34)
pt3dadd(127.277, 193.168, 26.06, 0.326)
pt3dadd(127.277, 193.288, 26.072, 0.312)
pt3dadd(127.277, 193.405, 26.089, 0.3)
pt3dadd(127.277, 193.522, 26.113, 0.292)
pt3dadd(127.278, 193.638, 26.136, 0.284)
pt3dadd(127.278, 193.754, 26.16, 0.276)
pt3dadd(127.278, 193.872, 26.184, 0.268)
pt3dadd(127.278, 193.988, 26.208, 0.26)
pt3dadd(127.278, 194.105, 26.231, 0.252)
pt3dadd(127.279, 194.221, 26.255, 0.246)
pt3dadd(127.279, 194.338, 26.279, 0.238)
pt3dadd(127.279, 194.454, 26.303, 0.23)
pt3dadd(127.279, 194.568, 26.334, 0.226)
pt3dadd(127.279, 194.68, 26.371, 0.226)
pt3dadd(127.28, 194.791, 26.408, 0.226)
pt3dadd(127.28, 194.902, 26.445, 0.226)
pt3dadd(127.28, 195.013, 26.483, 0.226)
pt3dadd(127.282, 195.125, 26.52, 0.226)
pt3dadd(127.282, 195.236, 26.557, 0.226)
pt3dadd(127.282, 195.348, 26.595, 0.226)
pt3dadd(127.283, 195.458, 26.632, 0.226)
pt3dadd(127.283, 195.57, 26.669, 0.226)
pt3dadd(127.283, 195.684, 26.701, 0.226)
pt3dadd(127.284, 195.799, 26.728, 0.226)
pt3dadd(127.285, 195.914, 26.755, 0.226)
pt3dadd(127.285, 196.031, 26.783, 0.226)
pt3dadd(127.286, 196.146, 26.81, 0.226)
pt3dadd(127.286, 196.261, 26.837, 0.226)
pt3dadd(127.288, 196.376, 26.864, 0.226)
pt3dadd(127.289, 196.492, 26.891, 0.226)
pt3dadd(127.289, 196.608, 26.918, 0.226)
pt3dadd(127.29, 196.723, 26.945, 0.226)
pt3dadd(127.29, 196.84, 26.97, 0.226)
pt3dadd(127.291, 196.956, 26.992, 0.226)
pt3dadd(127.292, 197.074, 27.014, 0.226)
pt3dadd(127.294, 197.19, 27.036, 0.226)
pt3dadd(127.295, 197.308, 27.058, 0.226)
pt3dadd(127.295, 197.425, 27.08, 0.226)
pt3dadd(127.296, 197.542, 27.102, 0.226)
pt3dadd(127.297, 197.659, 27.125, 0.226)
pt3dadd(127.298, 197.776, 27.147, 0.226)
pt3dadd(127.3, 197.893, 27.169, 0.226)
pt3dadd(127.301, 198.011, 27.185, 0.226)
pt3dadd(127.302, 198.13, 27.197, 0.226)
pt3dadd(127.304, 198.25, 27.208, 0.226)
pt3dadd(127.306, 198.368, 27.22, 0.226)
pt3dadd(127.308, 198.487, 27.232, 0.226)
pt3dadd(127.309, 198.607, 27.243, 0.226)
pt3dadd(127.312, 198.726, 27.255, 0.226)
pt3dadd(127.313, 198.845, 27.267, 0.226)
pt3dadd(127.315, 198.965, 27.278, 0.226)
pt3dadd(127.316, 199.084, 27.29, 0.226)
pt3dadd(127.319, 199.204, 27.298, 0.23)
pt3dadd(127.322, 199.322, 27.304, 0.24)
pt3dadd(127.325, 199.442, 27.309, 0.248)
pt3dadd(127.328, 199.562, 27.315, 0.256)
pt3dadd(127.331, 199.682, 27.32, 0.266)
pt3dadd(127.333, 199.802, 27.326, 0.274)
pt3dadd(127.337, 199.921, 27.331, 0.282)
pt3dadd(127.339, 200.041, 27.337, 0.292)
pt3dadd(127.343, 200.161, 27.342, 0.3)
pt3dadd(127.345, 200.281, 27.348, 0.308)
pt3dadd(127.349, 200.401, 27.351, 0.32)
pt3dadd(127.352, 200.521, 27.352, 0.336)
pt3dadd(127.357, 200.641, 27.354, 0.35)
pt3dadd(127.361, 200.761, 27.355, 0.364)
pt3dadd(127.364, 200.881, 27.357, 0.38)
pt3dadd(127.368, 201, 27.358, 0.394)
pt3dadd(127.373, 201.12, 27.36, 0.408)
pt3dadd(127.376, 201.24, 27.361, 0.422)
pt3dadd(127.38, 201.36, 27.363, 0.436)
pt3dadd(127.385, 201.48, 27.364, 0.452)
pt3dadd(127.391, 201.6, 27.367, 0.466)
pt3dadd(127.4, 201.72, 27.37, 0.48)
pt3dadd(127.409, 201.839, 27.372, 0.494)
pt3dadd(127.418, 201.959, 27.375, 0.508)
pt3dadd(127.427, 202.079, 27.378, 0.524)
pt3dadd(127.435, 202.198, 27.381, 0.538)
pt3dadd(127.445, 202.318, 27.384, 0.552)
pt3dadd(127.453, 202.438, 27.386, 0.566)
pt3dadd(127.462, 202.556, 27.389, 0.582)
pt3dadd(127.471, 202.676, 27.392, 0.596)
pt3dadd(127.482, 202.796, 27.396, 0.61)
pt3dadd(127.493, 202.915, 27.401, 0.624)
pt3dadd(127.505, 203.034, 27.406, 0.638)
pt3dadd(127.517, 203.154, 27.411, 0.654)
pt3dadd(127.528, 203.273, 27.415, 0.668)
pt3dadd(127.54, 203.393, 27.42, 0.682)
pt3dadd(127.552, 203.512, 27.425, 0.696)
pt3dadd(127.564, 203.632, 27.43, 0.71)
pt3dadd(127.574, 203.75, 27.434, 0.726)
pt3dadd(127.586, 203.869, 27.439, 0.74)
pt3dadd(127.6, 203.989, 27.445, 0.754)
pt3dadd(127.615, 204.108, 27.452, 0.768)
pt3dadd(127.63, 204.226, 27.459, 0.782)
pt3dadd(127.645, 204.344, 27.466, 0.796)
pt3dadd(127.66, 204.463, 27.473, 0.812)
pt3dadd(127.674, 204.582, 27.48, 0.826)
pt3dadd(127.69, 204.701, 27.487, 0.84)
pt3dadd(127.704, 204.82, 27.494, 0.854)
pt3dadd(127.72, 204.938, 27.501, 0.868)
pt3dadd(127.734, 205.057, 27.508, 0.882)
pt3dadd(127.765, 205.172, 27.517, 0.882)
pt3dadd(127.808, 205.284, 27.527, 0.872)
pt3dadd(127.852, 205.394, 27.538, 0.862)
pt3dadd(127.895, 205.506, 27.548, 0.852)
pt3dadd(127.937, 205.618, 27.558, 0.842)
pt3dadd(127.98, 205.729, 27.569, 0.83)
pt3dadd(128.023, 205.84, 27.579, 0.82)
pt3dadd(128.066, 205.951, 27.589, 0.81)
pt3dadd(128.11, 206.063, 27.6, 0.8)
pt3dadd(128.152, 206.174, 27.61, 0.79)
pt3dadd(128.196, 206.285, 27.623, 0.776)
pt3dadd(128.239, 206.395, 27.639, 0.76)
pt3dadd(128.282, 206.506, 27.655, 0.744)
pt3dadd(128.326, 206.616, 27.67, 0.728)
pt3dadd(128.369, 206.726, 27.686, 0.712)
pt3dadd(128.413, 206.837, 27.701, 0.696)
pt3dadd(128.456, 206.946, 27.717, 0.68)
pt3dadd(128.5, 207.056, 27.733, 0.666)
pt3dadd(128.543, 207.167, 27.748, 0.65)
pt3dadd(128.587, 207.277, 27.764, 0.634)
pt3dadd(128.622, 207.386, 27.793, 0.61)
pt3dadd(128.652, 207.493, 27.829, 0.584)
pt3dadd(128.683, 207.601, 27.865, 0.558)
pt3dadd(128.713, 207.709, 27.901, 0.532)
pt3dadd(128.744, 207.816, 27.937, 0.506)
pt3dadd(128.776, 207.924, 27.973, 0.48)
pt3dadd(128.806, 208.032, 28.009, 0.454)
pt3dadd(128.837, 208.14, 28.045, 0.428)
pt3dadd(128.867, 208.247, 28.081, 0.402)
pt3dadd(128.898, 208.355, 28.117, 0.376)
pt3dadd(128.927, 208.465, 28.149, 0.358)
pt3dadd(128.954, 208.576, 28.18, 0.344)
pt3dadd(128.981, 208.687, 28.21, 0.33)
pt3dadd(129.008, 208.798, 28.24, 0.316)
pt3dadd(129.036, 208.909, 28.271, 0.302)
pt3dadd(129.064, 209.02, 28.301, 0.288)
pt3dadd(129.091, 209.131, 28.332, 0.274)
pt3dadd(129.119, 209.242, 28.362, 0.258)
pt3dadd(129.146, 209.352, 28.393, 0.244)
pt3dadd(129.174, 209.464, 28.423, 0.23)
pt3dadd(129.198, 209.576, 28.449, 0.226)
pt3dadd(129.221, 209.692, 28.472, 0.226)
pt3dadd(129.245, 209.806, 28.496, 0.226)
pt3dadd(129.268, 209.92, 28.519, 0.226)
pt3dadd(129.29, 210.034, 28.543, 0.226)
pt3dadd(129.314, 210.149, 28.566, 0.226)
pt3dadd(129.337, 210.263, 28.59, 0.226)
pt3dadd(129.361, 210.377, 28.613, 0.226)
pt3dadd(129.384, 210.491, 28.637, 0.226)
pt3dadd(129.407, 210.606, 28.66, 0.226)
pt3dadd(129.428, 210.722, 28.677, 0.226)
pt3dadd(129.448, 210.839, 28.69, 0.226)
pt3dadd(129.468, 210.956, 28.703, 0.226)
pt3dadd(129.488, 211.074, 28.717, 0.226)
pt3dadd(129.508, 211.19, 28.73, 0.226)
pt3dadd(129.528, 211.308, 28.743, 0.226)
pt3dadd(129.548, 211.426, 28.757, 0.226)
pt3dadd(129.568, 211.542, 28.77, 0.226)
pt3dadd(129.588, 211.66, 28.783, 0.226)
pt3dadd(129.608, 211.777, 28.797, 0.226)
pt3dadd(129.634, 211.894, 28.807, 0.23)
}
}
proc shape3d_32() {
apic[11] { pt3dadd(129.66, 212.01, 28.815, 0.236)
pt3dadd(129.688, 212.126, 28.824, 0.242)
pt3dadd(129.714, 212.243, 28.833, 0.248)
pt3dadd(129.742, 212.359, 28.841, 0.254)
pt3dadd(129.769, 212.476, 28.85, 0.258)
pt3dadd(129.796, 212.592, 28.858, 0.264)
pt3dadd(129.823, 212.708, 28.867, 0.27)
pt3dadd(129.85, 212.825, 28.876, 0.276)
pt3dadd(129.877, 212.941, 28.884, 0.282)
pt3dadd(129.926, 213.05, 28.886, 0.304)
pt3dadd(129.98, 213.157, 28.886, 0.33)
pt3dadd(130.036, 213.264, 28.886, 0.356)
pt3dadd(130.09, 213.371, 28.886, 0.382)
pt3dadd(130.144, 213.479, 28.886, 0.408)
pt3dadd(130.198, 213.586, 28.886, 0.432)
pt3dadd(130.253, 213.692, 28.886, 0.458)
pt3dadd(130.307, 213.799, 28.887, 0.484)
pt3dadd(130.361, 213.906, 28.887, 0.51)
pt3dadd(130.416, 214.013, 28.887, 0.536)
pt3dadd(130.468, 214.121, 28.887, 0.542)
pt3dadd(130.52, 214.229, 28.887, 0.544)
pt3dadd(130.572, 214.338, 28.887, 0.544)
pt3dadd(130.624, 214.446, 28.887, 0.546)
pt3dadd(130.675, 214.554, 28.887, 0.548)
pt3dadd(130.728, 214.662, 28.888, 0.548)
pt3dadd(130.78, 214.77, 28.888, 0.55)
pt3dadd(130.831, 214.878, 28.888, 0.552)
pt3dadd(130.884, 214.986, 28.888, 0.552)
pt3dadd(130.936, 215.094, 28.888, 0.554)
pt3dadd(130.986, 215.203, 28.888, 0.532)
pt3dadd(131.035, 215.314, 28.888, 0.506)
pt3dadd(131.084, 215.423, 28.889, 0.48)
pt3dadd(131.134, 215.532, 28.889, 0.454)
pt3dadd(131.183, 215.641, 28.889, 0.426)
pt3dadd(131.232, 215.75, 28.889, 0.4)
pt3dadd(131.281, 215.86, 28.889, 0.374)
pt3dadd(131.33, 215.97, 28.889, 0.348)
pt3dadd(131.381, 216.079, 28.89, 0.322)
pt3dadd(131.43, 216.188, 28.89, 0.294)
pt3dadd(131.49, 216.292, 28.89, 0.284)
pt3dadd(131.552, 216.395, 28.89, 0.278)
pt3dadd(131.615, 216.497, 28.891, 0.272)
pt3dadd(131.677, 216.599, 28.891, 0.266)
pt3dadd(131.74, 216.702, 28.891, 0.26)
pt3dadd(131.802, 216.804, 28.892, 0.252)
pt3dadd(131.864, 216.907, 28.892, 0.246)
pt3dadd(131.927, 217.009, 28.892, 0.24)
pt3dadd(131.989, 217.111, 28.893, 0.234)
pt3dadd(132.052, 217.214, 28.893, 0.226)
pt3dadd(132.118, 217.314, 28.893, 0.226)
pt3dadd(132.184, 217.415, 28.894, 0.226)
pt3dadd(132.25, 217.514, 28.894, 0.226)
pt3dadd(132.317, 217.614, 28.894, 0.226)
pt3dadd(132.383, 217.715, 28.895, 0.226)
pt3dadd(132.449, 217.814, 28.895, 0.226)
pt3dadd(132.516, 217.914, 28.895, 0.226)
pt3dadd(132.582, 218.015, 28.896, 0.226)
pt3dadd(132.648, 218.114, 28.896, 0.226)
pt3dadd(132.715, 218.214, 28.897, 0.226)
pt3dadd(132.785, 218.312, 28.897, 0.226)
pt3dadd(132.854, 218.41, 28.898, 0.226)
pt3dadd(132.925, 218.507, 28.899, 0.226)
pt3dadd(132.996, 218.604, 28.899, 0.226)
pt3dadd(133.066, 218.701, 28.9, 0.226)
pt3dadd(133.136, 218.797, 28.901, 0.226)
pt3dadd(133.207, 218.894, 28.901, 0.226)
pt3dadd(133.277, 218.992, 28.902, 0.226)
pt3dadd(133.348, 219.089, 28.903, 0.226)
pt3dadd(133.418, 219.186, 28.903, 0.226)
pt3dadd(133.489, 219.283, 28.904, 0.226)
pt3dadd(133.56, 219.38, 28.905, 0.226)
pt3dadd(133.631, 219.476, 28.906, 0.226)
pt3dadd(133.703, 219.574, 28.906, 0.226)
pt3dadd(133.774, 219.67, 28.907, 0.226)
pt3dadd(133.844, 219.767, 28.908, 0.226)
pt3dadd(133.915, 219.864, 28.909, 0.226)
pt3dadd(133.986, 219.96, 28.909, 0.226)
pt3dadd(134.058, 220.057, 28.91, 0.226)
pt3dadd(134.129, 220.153, 28.911, 0.226)
pt3dadd(134.186, 220.259, 28.912, 0.226)
pt3dadd(134.242, 220.366, 28.914, 0.226)
pt3dadd(134.297, 220.471, 28.916, 0.226)
pt3dadd(134.352, 220.578, 28.918, 0.226)
pt3dadd(134.407, 220.685, 28.92, 0.226)
pt3dadd(134.462, 220.792, 28.921, 0.226)
pt3dadd(134.516, 220.898, 28.923, 0.226)
pt3dadd(134.572, 221.004, 28.925, 0.226)
pt3dadd(134.627, 221.111, 28.927, 0.226)
pt3dadd(134.682, 221.218, 28.929, 0.226)
pt3dadd(134.738, 221.324, 28.931, 0.23)
pt3dadd(134.794, 221.43, 28.933, 0.236)
pt3dadd(134.85, 221.537, 28.935, 0.24)
pt3dadd(134.905, 221.642, 28.938, 0.246)
pt3dadd(134.96, 221.749, 28.94, 0.252)
pt3dadd(135.017, 221.855, 28.942, 0.256)
pt3dadd(135.072, 221.962, 28.944, 0.262)
pt3dadd(135.128, 222.067, 28.946, 0.266)
pt3dadd(135.184, 222.174, 28.948, 0.272)
pt3dadd(135.239, 222.281, 28.951, 0.278)
pt3dadd(135.3, 222.384, 28.954, 0.3)
pt3dadd(135.361, 222.487, 28.958, 0.324)
pt3dadd(135.421, 222.59, 28.961, 0.35)
pt3dadd(135.482, 222.694, 28.964, 0.376)
pt3dadd(135.544, 222.797, 28.968, 0.4)
pt3dadd(135.605, 222.9, 28.972, 0.426)
pt3dadd(135.666, 223.003, 28.975, 0.45)
pt3dadd(135.727, 223.106, 28.979, 0.476)
pt3dadd(135.788, 223.21, 28.982, 0.5)
pt3dadd(135.848, 223.313, 28.986, 0.526)
pt3dadd(135.904, 223.42, 28.991, 0.532)
pt3dadd(135.956, 223.526, 28.998, 0.536)
pt3dadd(136.01, 223.634, 29.004, 0.54)
pt3dadd(136.063, 223.741, 29.01, 0.544)
pt3dadd(136.117, 223.848, 29.016, 0.548)
pt3dadd(136.17, 223.956, 29.022, 0.552)
pt3dadd(136.224, 224.063, 29.029, 0.556)
pt3dadd(136.277, 224.17, 29.035, 0.558)
pt3dadd(136.331, 224.278, 29.041, 0.562)
pt3dadd(136.385, 224.384, 29.047, 0.566)
pt3dadd(136.428, 224.496, 29.057, 0.542)
pt3dadd(136.47, 224.608, 29.067, 0.514)
pt3dadd(136.512, 224.719, 29.077, 0.488)
pt3dadd(136.554, 224.831, 29.087, 0.46)
pt3dadd(136.596, 224.942, 29.097, 0.434)
pt3dadd(136.639, 225.054, 29.107, 0.406)
pt3dadd(136.681, 225.166, 29.117, 0.38)
pt3dadd(136.723, 225.277, 29.127, 0.352)
pt3dadd(136.765, 225.389, 29.137, 0.324)
pt3dadd(136.807, 225.5, 29.147, 0.298)
pt3dadd(136.861, 225.607, 29.16, 0.298)
pt3dadd(136.915, 225.713, 29.173, 0.302)
pt3dadd(136.97, 225.818, 29.186, 0.304)
pt3dadd(137.024, 225.924, 29.199, 0.308)
pt3dadd(137.08, 226.03, 29.212, 0.312)
pt3dadd(137.134, 226.135, 29.225, 0.314)
pt3dadd(137.189, 226.241, 29.238, 0.318)
pt3dadd(137.243, 226.348, 29.251, 0.32)
pt3dadd(137.298, 226.453, 29.264, 0.324)
pt3dadd(137.352, 226.559, 29.277, 0.328)
pt3dadd(137.408, 226.662, 29.294, 0.338)
pt3dadd(137.465, 226.766, 29.311, 0.35)
pt3dadd(137.521, 226.87, 29.328, 0.362)
pt3dadd(137.578, 226.974, 29.346, 0.372)
pt3dadd(137.635, 227.077, 29.363, 0.384)
pt3dadd(137.692, 227.182, 29.38, 0.396)
pt3dadd(137.748, 227.285, 29.398, 0.408)
pt3dadd(137.804, 227.389, 29.415, 0.42)
pt3dadd(137.861, 227.492, 29.432, 0.43)
pt3dadd(137.917, 227.597, 29.449, 0.442)
pt3dadd(137.947, 227.696, 29.499, 0.432)
pt3dadd(137.977, 227.796, 29.549, 0.42)
pt3dadd(138.007, 227.896, 29.599, 0.41)
pt3dadd(138.037, 227.995, 29.649, 0.4)
pt3dadd(138.067, 228.095, 29.699, 0.388)
pt3dadd(138.096, 228.194, 29.748, 0.378)
pt3dadd(138.126, 228.294, 29.798, 0.366)
pt3dadd(138.156, 228.394, 29.848, 0.356)
pt3dadd(138.186, 228.493, 29.898, 0.346)
pt3dadd(138.216, 228.593, 29.948, 0.334)
pt3dadd(138.246, 228.692, 29.998, 0.324)
pt3dadd(138.276, 228.792, 30.047, 0.312)
pt3dadd(138.306, 228.893, 30.097, 0.302)
pt3dadd(138.336, 228.992, 30.147, 0.29)
pt3dadd(138.366, 229.092, 30.197, 0.28)
pt3dadd(138.395, 229.192, 30.247, 0.27)
pt3dadd(138.425, 229.291, 30.296, 0.258)
pt3dadd(138.455, 229.391, 30.346, 0.248)
pt3dadd(138.485, 229.49, 30.396, 0.236)
pt3dadd(138.515, 229.59, 30.446, 0.226)
}
apic[12] {pt3dclear()
pt3dadd(99.419, 132.241, 16.217, 1.808)
pt3dadd(99.355, 132.239, 16.269, 1.78)
pt3dadd(99.27, 132.236, 16.339, 1.744)
pt3dadd(99.184, 132.233, 16.409, 1.708)
pt3dadd(99.098, 132.229, 16.479, 1.672)
pt3dadd(99.013, 132.227, 16.549, 1.636)
pt3dadd(98.927, 132.223, 16.619, 1.598)
pt3dadd(98.842, 132.221, 16.689, 1.562)
pt3dadd(98.756, 132.217, 16.759, 1.526)
pt3dadd(98.67, 132.214, 16.829, 1.49)
pt3dadd(98.585, 132.211, 16.899, 1.454)
pt3dadd(98.499, 132.208, 16.97, 1.416)
pt3dadd(98.414, 132.204, 17.04, 1.38)
pt3dadd(98.328, 132.202, 17.11, 1.344)
pt3dadd(98.243, 132.198, 17.18, 1.308)
pt3dadd(98.157, 132.194, 17.25, 1.27)
pt3dadd(98.072, 132.191, 17.32, 1.234)
pt3dadd(97.986, 132.188, 17.39, 1.198)
pt3dadd(97.9, 132.185, 17.46, 1.162)
pt3dadd(97.799, 132.187, 17.514, 1.122)
pt3dadd(97.698, 132.188, 17.567, 1.082)
pt3dadd(97.596, 132.191, 17.62, 1.042)
pt3dadd(97.495, 132.192, 17.674, 1.004)
pt3dadd(97.393, 132.194, 17.727, 0.964)
pt3dadd(97.292, 132.197, 17.78, 0.924)
pt3dadd(97.19, 132.198, 17.834, 0.886)
pt3dadd(97.089, 132.2, 17.887, 0.846)
pt3dadd(96.987, 132.202, 17.94, 0.806)
pt3dadd(96.875, 132.211, 17.964, 0.768)
pt3dadd(96.756, 132.224, 17.966, 0.728)
pt3dadd(96.637, 132.238, 17.968, 0.69)
}
}
proc shape3d_33() {
apic[12] { pt3dadd(96.518, 132.251, 17.971, 0.65)
pt3dadd(96.399, 132.264, 17.973, 0.612)
pt3dadd(96.279, 132.278, 17.976, 0.572)
pt3dadd(96.16, 132.292, 17.978, 0.534)
pt3dadd(96.041, 132.305, 17.98, 0.494)
pt3dadd(95.922, 132.318, 17.983, 0.456)
pt3dadd(95.802, 132.331, 17.985, 0.418)
pt3dadd(95.683, 132.346, 17.988, 0.396)
pt3dadd(95.564, 132.36, 17.991, 0.388)
pt3dadd(95.445, 132.374, 17.993, 0.38)
pt3dadd(95.326, 132.389, 17.996, 0.37)
pt3dadd(95.207, 132.404, 17.999, 0.362)
pt3dadd(95.088, 132.419, 18.002, 0.352)
pt3dadd(94.969, 132.433, 18.005, 0.344)
pt3dadd(94.85, 132.448, 18.008, 0.336)
pt3dadd(94.731, 132.462, 18.011, 0.326)
pt3dadd(94.612, 132.476, 18.013, 0.318)
pt3dadd(94.493, 132.494, 18.017, 0.324)
pt3dadd(94.375, 132.514, 18.021, 0.342)
pt3dadd(94.257, 132.534, 18.024, 0.36)
pt3dadd(94.138, 132.553, 18.028, 0.378)
pt3dadd(94.02, 132.574, 18.032, 0.396)
pt3dadd(93.902, 132.594, 18.036, 0.414)
pt3dadd(93.784, 132.613, 18.04, 0.432)
pt3dadd(93.665, 132.634, 18.043, 0.45)
pt3dadd(93.547, 132.653, 18.047, 0.468)
pt3dadd(93.429, 132.673, 18.051, 0.486)
pt3dadd(93.315, 132.708, 18.056, 0.508)
pt3dadd(93.204, 132.754, 18.063, 0.536)
pt3dadd(93.093, 132.798, 18.07, 0.562)
pt3dadd(92.982, 132.842, 18.076, 0.59)
pt3dadd(92.871, 132.887, 18.083, 0.616)
pt3dadd(92.759, 132.931, 18.09, 0.644)
pt3dadd(92.648, 132.976, 18.097, 0.67)
pt3dadd(92.537, 133.02, 18.103, 0.696)
pt3dadd(92.426, 133.064, 18.11, 0.724)
pt3dadd(92.315, 133.109, 18.116, 0.75)
pt3dadd(92.202, 133.15, 18.125, 0.766)
pt3dadd(92.088, 133.187, 18.134, 0.774)
pt3dadd(91.975, 133.223, 18.142, 0.782)
pt3dadd(91.861, 133.26, 18.151, 0.788)
pt3dadd(91.748, 133.297, 18.16, 0.796)
pt3dadd(91.634, 133.334, 18.169, 0.804)
pt3dadd(91.521, 133.372, 18.178, 0.812)
pt3dadd(91.407, 133.409, 18.187, 0.82)
pt3dadd(91.293, 133.446, 18.196, 0.828)
pt3dadd(91.18, 133.483, 18.205, 0.836)
pt3dadd(91.065, 133.514, 18.216, 0.83)
pt3dadd(90.949, 133.543, 18.227, 0.816)
pt3dadd(90.833, 133.572, 18.239, 0.802)
pt3dadd(90.717, 133.601, 18.25, 0.788)
pt3dadd(90.602, 133.628, 18.262, 0.774)
pt3dadd(90.486, 133.657, 18.274, 0.76)
pt3dadd(90.37, 133.686, 18.285, 0.746)
pt3dadd(90.255, 133.714, 18.297, 0.732)
pt3dadd(90.139, 133.742, 18.308, 0.718)
pt3dadd(90.023, 133.771, 18.32, 0.704)
pt3dadd(89.91, 133.79, 18.346, 0.682)
pt3dadd(89.798, 133.805, 18.38, 0.658)
pt3dadd(89.686, 133.819, 18.414, 0.632)
pt3dadd(89.574, 133.834, 18.448, 0.608)
pt3dadd(89.462, 133.848, 18.482, 0.582)
pt3dadd(89.35, 133.862, 18.516, 0.556)
pt3dadd(89.238, 133.877, 18.55, 0.532)
pt3dadd(89.126, 133.891, 18.584, 0.506)
pt3dadd(89.014, 133.906, 18.618, 0.482)
pt3dadd(88.903, 133.92, 18.652, 0.456)
pt3dadd(88.791, 133.931, 18.688, 0.444)
pt3dadd(88.679, 133.94, 18.723, 0.436)
pt3dadd(88.568, 133.95, 18.759, 0.428)
pt3dadd(88.456, 133.961, 18.795, 0.42)
pt3dadd(88.344, 133.97, 18.831, 0.412)
pt3dadd(88.233, 133.98, 18.866, 0.404)
pt3dadd(88.121, 133.99, 18.902, 0.396)
pt3dadd(88.009, 133.999, 18.938, 0.386)
pt3dadd(87.898, 134.01, 18.974, 0.38)
pt3dadd(87.786, 134.02, 19.009, 0.37)
pt3dadd(87.671, 134.021, 19.038, 0.43)
pt3dadd(87.555, 134.02, 19.063, 0.516)
pt3dadd(87.439, 134.02, 19.089, 0.602)
pt3dadd(87.323, 134.018, 19.115, 0.686)
pt3dadd(87.207, 134.017, 19.14, 0.772)
pt3dadd(87.091, 134.016, 19.166, 0.856)
pt3dadd(86.975, 134.015, 19.191, 0.942)
pt3dadd(86.859, 134.014, 19.217, 1.026)
pt3dadd(86.743, 134.012, 19.242, 1.112)
pt3dadd(86.627, 134.011, 19.268, 1.198)
pt3dadd(86.51, 134.01, 19.289, 1.222)
pt3dadd(86.392, 134.009, 19.308, 1.224)
pt3dadd(86.274, 134.006, 19.327, 1.226)
pt3dadd(86.157, 134.005, 19.346, 1.228)
pt3dadd(86.039, 134.003, 19.365, 1.232)
pt3dadd(85.921, 134.002, 19.384, 1.234)
pt3dadd(85.803, 134, 19.403, 1.236)
pt3dadd(85.686, 133.998, 19.423, 1.238)
pt3dadd(85.568, 133.997, 19.442, 1.24)
pt3dadd(85.45, 133.994, 19.461, 1.242)
pt3dadd(85.331, 133.992, 19.476, 1.2)
pt3dadd(85.213, 133.99, 19.49, 1.142)
pt3dadd(85.094, 133.987, 19.504, 1.086)
pt3dadd(84.975, 133.985, 19.518, 1.028)
pt3dadd(84.856, 133.982, 19.532, 0.972)
pt3dadd(84.737, 133.98, 19.546, 0.914)
pt3dadd(84.619, 133.978, 19.56, 0.856)
pt3dadd(84.5, 133.975, 19.574, 0.8)
pt3dadd(84.381, 133.973, 19.588, 0.742)
pt3dadd(84.262, 133.97, 19.602, 0.686)
pt3dadd(84.143, 133.966, 19.611, 0.66)
pt3dadd(84.023, 133.961, 19.618, 0.644)
pt3dadd(83.904, 133.956, 19.626, 0.628)
pt3dadd(83.784, 133.951, 19.633, 0.614)
pt3dadd(83.665, 133.946, 19.641, 0.598)
pt3dadd(83.545, 133.94, 19.648, 0.582)
pt3dadd(83.425, 133.936, 19.656, 0.566)
pt3dadd(83.306, 133.931, 19.663, 0.552)
pt3dadd(83.186, 133.926, 19.671, 0.536)
pt3dadd(83.067, 133.921, 19.679, 0.52)
pt3dadd(82.948, 133.913, 19.688, 0.512)
pt3dadd(82.829, 133.904, 19.699, 0.506)
pt3dadd(82.71, 133.895, 19.71, 0.498)
pt3dadd(82.591, 133.885, 19.721, 0.492)
pt3dadd(82.472, 133.876, 19.731, 0.486)
pt3dadd(82.353, 133.867, 19.742, 0.48)
pt3dadd(82.234, 133.858, 19.753, 0.474)
pt3dadd(82.115, 133.848, 19.764, 0.466)
pt3dadd(81.996, 133.84, 19.774, 0.46)
pt3dadd(81.877, 133.83, 19.785, 0.454)
pt3dadd(81.76, 133.816, 19.804, 0.458)
pt3dadd(81.644, 133.801, 19.825, 0.466)
pt3dadd(81.528, 133.786, 19.846, 0.472)
pt3dadd(81.411, 133.77, 19.867, 0.48)
pt3dadd(81.295, 133.756, 19.888, 0.488)
pt3dadd(81.179, 133.74, 19.909, 0.494)
pt3dadd(81.062, 133.724, 19.93, 0.502)
pt3dadd(80.946, 133.709, 19.951, 0.51)
pt3dadd(80.83, 133.694, 19.972, 0.518)
pt3dadd(80.713, 133.679, 19.993, 0.524)
pt3dadd(80.614, 133.652, 20.044, 0.56)
pt3dadd(80.517, 133.625, 20.098, 0.596)
pt3dadd(80.419, 133.597, 20.151, 0.634)
pt3dadd(80.322, 133.568, 20.205, 0.67)
pt3dadd(80.224, 133.541, 20.258, 0.708)
pt3dadd(80.127, 133.513, 20.311, 0.744)
pt3dadd(80.029, 133.486, 20.365, 0.782)
pt3dadd(79.931, 133.458, 20.418, 0.818)
pt3dadd(79.834, 133.43, 20.472, 0.856)
pt3dadd(79.736, 133.403, 20.525, 0.892)
pt3dadd(79.64, 133.34, 20.552, 0.864)
pt3dadd(79.544, 133.276, 20.579, 0.834)
pt3dadd(79.448, 133.211, 20.605, 0.802)
pt3dadd(79.352, 133.146, 20.631, 0.772)
pt3dadd(79.255, 133.082, 20.657, 0.742)
pt3dadd(79.159, 133.018, 20.684, 0.71)
pt3dadd(79.063, 132.953, 20.71, 0.68)
pt3dadd(78.967, 132.888, 20.736, 0.65)
pt3dadd(78.871, 132.823, 20.763, 0.618)
pt3dadd(78.775, 132.758, 20.789, 0.588)
pt3dadd(78.673, 132.7, 20.807, 0.582)
pt3dadd(78.57, 132.641, 20.825, 0.576)
pt3dadd(78.468, 132.582, 20.843, 0.57)
pt3dadd(78.365, 132.524, 20.86, 0.566)
pt3dadd(78.263, 132.466, 20.878, 0.56)
pt3dadd(78.16, 132.407, 20.896, 0.554)
pt3dadd(78.058, 132.348, 20.914, 0.55)
pt3dadd(77.955, 132.289, 20.931, 0.544)
pt3dadd(77.853, 132.23, 20.949, 0.538)
pt3dadd(77.751, 132.172, 20.967, 0.534)
pt3dadd(77.644, 132.118, 20.978, 0.548)
pt3dadd(77.538, 132.064, 20.989, 0.562)
pt3dadd(77.431, 132.011, 21, 0.576)
pt3dadd(77.325, 131.957, 21.011, 0.592)
pt3dadd(77.218, 131.903, 21.022, 0.606)
pt3dadd(77.112, 131.849, 21.034, 0.62)
pt3dadd(77.005, 131.795, 21.045, 0.634)
pt3dadd(76.899, 131.742, 21.056, 0.65)
pt3dadd(76.792, 131.688, 21.067, 0.664)
pt3dadd(76.686, 131.634, 21.078, 0.678)
}
apic[13] {pt3dclear()
pt3dadd(76.686, 131.634, 21.078, 0.678)
pt3dadd(76.677, 131.628, 21.078, 0.676)
pt3dadd(76.577, 131.562, 21.078, 0.664)
pt3dadd(76.476, 131.496, 21.078, 0.652)
pt3dadd(76.376, 131.43, 21.078, 0.64)
pt3dadd(76.276, 131.364, 21.078, 0.628)
pt3dadd(76.176, 131.298, 21.078, 0.616)
pt3dadd(76.075, 131.232, 21.078, 0.604)
pt3dadd(75.975, 131.166, 21.078, 0.592)
pt3dadd(75.875, 131.101, 21.078, 0.58)
pt3dadd(75.775, 131.035, 21.078, 0.568)
pt3dadd(75.675, 130.968, 21.078, 0.556)
pt3dadd(75.574, 130.902, 21.078, 0.544)
pt3dadd(75.474, 130.836, 21.078, 0.532)
pt3dadd(75.374, 130.77, 21.078, 0.52)
pt3dadd(75.274, 130.704, 21.078, 0.508)
pt3dadd(75.174, 130.638, 21.078, 0.496)
pt3dadd(75.074, 130.572, 21.078, 0.484)
pt3dadd(74.973, 130.506, 21.078, 0.472)
pt3dadd(74.873, 130.44, 21.078, 0.46)
pt3dadd(74.774, 130.373, 21.078, 0.448)
pt3dadd(74.677, 130.302, 21.078, 0.436)
pt3dadd(74.579, 130.232, 21.078, 0.424)
}
}
proc shape3d_34() {
apic[13] { pt3dadd(74.482, 130.162, 21.078, 0.412)
pt3dadd(74.385, 130.092, 21.078, 0.4)
pt3dadd(74.287, 130.021, 21.078, 0.388)
pt3dadd(74.19, 129.952, 21.078, 0.376)
pt3dadd(74.093, 129.881, 21.078, 0.366)
pt3dadd(73.995, 129.811, 21.078, 0.354)
pt3dadd(73.898, 129.74, 21.078, 0.342)
pt3dadd(73.8, 129.671, 21.078, 0.33)
pt3dadd(73.702, 129.602, 21.078, 0.32)
pt3dadd(73.604, 129.533, 21.078, 0.31)
pt3dadd(73.506, 129.464, 21.078, 0.302)
pt3dadd(73.407, 129.395, 21.078, 0.292)
pt3dadd(73.309, 129.326, 21.078, 0.282)
pt3dadd(73.211, 129.258, 21.078, 0.272)
pt3dadd(73.113, 129.188, 21.078, 0.262)
pt3dadd(73.014, 129.12, 21.078, 0.252)
pt3dadd(72.916, 129.052, 21.078, 0.242)
pt3dadd(72.814, 128.988, 21.078, 0.242)
pt3dadd(72.706, 128.936, 21.078, 0.254)
pt3dadd(72.598, 128.885, 21.078, 0.268)
pt3dadd(72.49, 128.832, 21.078, 0.28)
pt3dadd(72.381, 128.78, 21.078, 0.294)
pt3dadd(72.273, 128.729, 21.078, 0.306)
pt3dadd(72.165, 128.676, 21.078, 0.32)
pt3dadd(72.057, 128.624, 21.078, 0.332)
pt3dadd(71.949, 128.573, 21.078, 0.346)
pt3dadd(71.841, 128.52, 21.078, 0.358)
pt3dadd(71.733, 128.468, 21.078, 0.372)
pt3dadd(71.625, 128.414, 21.078, 0.384)
pt3dadd(71.518, 128.362, 21.078, 0.398)
pt3dadd(71.41, 128.308, 21.078, 0.41)
pt3dadd(71.303, 128.255, 21.078, 0.424)
pt3dadd(71.196, 128.201, 21.078, 0.436)
pt3dadd(71.088, 128.148, 21.078, 0.45)
pt3dadd(70.981, 128.094, 21.078, 0.462)
pt3dadd(70.873, 128.041, 21.078, 0.476)
pt3dadd(70.766, 127.987, 21.078, 0.488)
pt3dadd(70.659, 127.933, 21.078, 0.502)
pt3dadd(70.553, 127.877, 21.078, 0.514)
pt3dadd(70.446, 127.82, 21.078, 0.526)
pt3dadd(70.34, 127.765, 21.078, 0.54)
pt3dadd(70.234, 127.709, 21.078, 0.552)
pt3dadd(70.128, 127.652, 21.078, 0.564)
pt3dadd(70.022, 127.597, 21.078, 0.578)
pt3dadd(69.916, 127.541, 21.078, 0.59)
pt3dadd(69.81, 127.484, 21.078, 0.604)
pt3dadd(69.704, 127.429, 21.078, 0.616)
pt3dadd(69.595, 127.378, 21.078, 0.62)
pt3dadd(69.483, 127.336, 21.078, 0.61)
pt3dadd(69.371, 127.294, 21.078, 0.598)
pt3dadd(69.258, 127.25, 21.078, 0.588)
pt3dadd(69.146, 127.208, 21.078, 0.576)
pt3dadd(69.034, 127.166, 21.078, 0.566)
pt3dadd(68.922, 127.123, 21.078, 0.554)
pt3dadd(68.809, 127.081, 21.078, 0.544)
pt3dadd(68.697, 127.039, 21.078, 0.532)
pt3dadd(68.585, 126.996, 21.078, 0.522)
pt3dadd(68.471, 126.959, 21.078, 0.504)
pt3dadd(68.355, 126.926, 21.078, 0.476)
pt3dadd(68.24, 126.894, 21.078, 0.448)
pt3dadd(68.124, 126.862, 21.078, 0.42)
pt3dadd(68.009, 126.829, 21.078, 0.392)
pt3dadd(67.893, 126.797, 21.078, 0.364)
pt3dadd(67.778, 126.764, 21.078, 0.336)
pt3dadd(67.662, 126.732, 21.078, 0.308)
pt3dadd(67.546, 126.7, 21.078, 0.28)
pt3dadd(67.431, 126.667, 21.078, 0.252)
pt3dadd(67.314, 126.64, 21.078, 0.236)
pt3dadd(67.197, 126.617, 21.078, 0.236)
pt3dadd(67.079, 126.594, 21.078, 0.234)
pt3dadd(66.961, 126.572, 21.078, 0.234)
pt3dadd(66.843, 126.55, 21.078, 0.232)
pt3dadd(66.725, 126.527, 21.078, 0.23)
pt3dadd(66.607, 126.504, 21.078, 0.23)
pt3dadd(66.489, 126.481, 21.078, 0.228)
pt3dadd(66.372, 126.46, 21.078, 0.228)
pt3dadd(66.254, 126.437, 21.078, 0.226)
pt3dadd(66.135, 126.415, 21.078, 0.226)
pt3dadd(66.017, 126.395, 21.078, 0.226)
pt3dadd(65.899, 126.376, 21.078, 0.226)
pt3dadd(65.781, 126.355, 21.078, 0.226)
pt3dadd(65.662, 126.336, 21.078, 0.226)
pt3dadd(65.544, 126.316, 21.078, 0.226)
pt3dadd(65.425, 126.296, 21.078, 0.226)
pt3dadd(65.307, 126.276, 21.078, 0.226)
pt3dadd(65.189, 126.257, 21.078, 0.226)
pt3dadd(65.07, 126.236, 21.078, 0.226)
pt3dadd(64.952, 126.218, 21.078, 0.226)
pt3dadd(64.833, 126.203, 21.078, 0.226)
pt3dadd(64.714, 126.187, 21.078, 0.226)
pt3dadd(64.595, 126.172, 21.078, 0.226)
pt3dadd(64.476, 126.156, 21.078, 0.226)
pt3dadd(64.357, 126.14, 21.078, 0.226)
pt3dadd(64.238, 126.125, 21.078, 0.226)
pt3dadd(64.119, 126.109, 21.078, 0.226)
pt3dadd(64, 126.094, 21.078, 0.226)
pt3dadd(63.881, 126.078, 21.078, 0.226)
pt3dadd(63.765, 126.052, 21.078, 0.23)
pt3dadd(63.652, 126.011, 21.078, 0.242)
pt3dadd(63.539, 125.969, 21.078, 0.252)
pt3dadd(63.427, 125.928, 21.078, 0.262)
pt3dadd(63.314, 125.886, 21.078, 0.274)
pt3dadd(63.201, 125.845, 21.078, 0.284)
pt3dadd(63.089, 125.803, 21.078, 0.294)
pt3dadd(62.976, 125.762, 21.078, 0.306)
pt3dadd(62.864, 125.72, 21.078, 0.316)
pt3dadd(62.751, 125.68, 21.078, 0.326)
pt3dadd(62.639, 125.635, 21.078, 0.338)
pt3dadd(62.529, 125.588, 21.078, 0.35)
pt3dadd(62.418, 125.542, 21.078, 0.362)
pt3dadd(62.308, 125.495, 21.078, 0.374)
pt3dadd(62.197, 125.449, 21.078, 0.386)
pt3dadd(62.087, 125.402, 21.078, 0.398)
pt3dadd(61.976, 125.356, 21.078, 0.41)
pt3dadd(61.866, 125.309, 21.078, 0.422)
pt3dadd(61.755, 125.262, 21.078, 0.434)
pt3dadd(61.644, 125.215, 21.078, 0.446)
pt3dadd(61.532, 125.173, 21.078, 0.452)
pt3dadd(61.418, 125.136, 21.078, 0.452)
pt3dadd(61.304, 125.1, 21.078, 0.452)
pt3dadd(61.189, 125.063, 21.078, 0.452)
pt3dadd(61.075, 125.026, 21.078, 0.452)
pt3dadd(60.961, 124.988, 21.078, 0.452)
pt3dadd(60.847, 124.952, 21.078, 0.452)
pt3dadd(60.733, 124.915, 21.078, 0.452)
pt3dadd(60.618, 124.878, 21.078, 0.452)
pt3dadd(60.504, 124.842, 21.078, 0.452)
pt3dadd(60.39, 124.806, 21.078, 0.448)
pt3dadd(60.274, 124.774, 21.078, 0.442)
pt3dadd(60.159, 124.74, 21.078, 0.436)
pt3dadd(60.043, 124.708, 21.078, 0.43)
pt3dadd(59.928, 124.674, 21.078, 0.424)
pt3dadd(59.813, 124.642, 21.078, 0.416)
pt3dadd(59.697, 124.608, 21.078, 0.41)
pt3dadd(59.582, 124.576, 21.078, 0.404)
pt3dadd(59.467, 124.542, 21.078, 0.398)
pt3dadd(59.351, 124.51, 21.078, 0.392)
pt3dadd(59.235, 124.478, 21.078, 0.382)
pt3dadd(59.119, 124.451, 21.078, 0.368)
pt3dadd(59.002, 124.422, 21.078, 0.352)
pt3dadd(58.885, 124.394, 21.078, 0.338)
pt3dadd(58.769, 124.366, 21.078, 0.324)
pt3dadd(58.652, 124.338, 21.078, 0.31)
pt3dadd(58.535, 124.309, 21.078, 0.296)
pt3dadd(58.419, 124.282, 21.078, 0.282)
pt3dadd(58.302, 124.253, 21.078, 0.268)
pt3dadd(58.185, 124.225, 21.078, 0.254)
pt3dadd(58.071, 124.189, 21.078, 0.258)
pt3dadd(57.96, 124.144, 21.078, 0.278)
pt3dadd(57.849, 124.099, 21.078, 0.298)
pt3dadd(57.737, 124.055, 21.078, 0.318)
pt3dadd(57.626, 124.01, 21.078, 0.34)
pt3dadd(57.514, 123.966, 21.078, 0.36)
pt3dadd(57.403, 123.922, 21.078, 0.38)
pt3dadd(57.292, 123.876, 21.078, 0.4)
pt3dadd(57.18, 123.832, 21.078, 0.422)
pt3dadd(57.069, 123.787, 21.078, 0.442)
pt3dadd(56.958, 123.743, 21.078, 0.462)
pt3dadd(56.847, 123.696, 21.078, 0.48)
pt3dadd(56.736, 123.65, 21.078, 0.498)
pt3dadd(56.625, 123.605, 21.078, 0.516)
pt3dadd(56.514, 123.559, 21.078, 0.536)
pt3dadd(56.403, 123.514, 21.078, 0.554)
pt3dadd(56.292, 123.468, 21.078, 0.572)
pt3dadd(56.181, 123.422, 21.078, 0.59)
pt3dadd(56.07, 123.377, 21.078, 0.61)
pt3dadd(55.959, 123.331, 21.078, 0.628)
pt3dadd(55.846, 123.29, 21.078, 0.622)
pt3dadd(55.732, 123.254, 21.078, 0.594)
pt3dadd(55.617, 123.218, 21.078, 0.568)
pt3dadd(55.503, 123.182, 21.078, 0.54)
pt3dadd(55.388, 123.145, 21.078, 0.512)
pt3dadd(55.274, 123.109, 21.078, 0.484)
pt3dadd(55.16, 123.073, 21.078, 0.456)
pt3dadd(55.045, 123.037, 21.078, 0.428)
pt3dadd(54.931, 123.001, 21.078, 0.402)
pt3dadd(54.816, 122.964, 21.078, 0.374)
pt3dadd(54.701, 122.93, 21.078, 0.354)
pt3dadd(54.585, 122.899, 21.078, 0.34)
pt3dadd(54.47, 122.868, 21.078, 0.326)
pt3dadd(54.354, 122.837, 21.078, 0.314)
pt3dadd(54.238, 122.806, 21.078, 0.3)
pt3dadd(54.122, 122.774, 21.078, 0.286)
pt3dadd(54.006, 122.743, 21.078, 0.272)
pt3dadd(53.89, 122.712, 21.078, 0.26)
pt3dadd(53.775, 122.68, 21.078, 0.246)
pt3dadd(53.659, 122.648, 21.078, 0.232)
pt3dadd(53.542, 122.62, 21.078, 0.226)
pt3dadd(53.425, 122.593, 21.078, 0.226)
pt3dadd(53.308, 122.567, 21.078, 0.226)
pt3dadd(53.191, 122.54, 21.078, 0.226)
pt3dadd(53.074, 122.513, 21.078, 0.226)
pt3dadd(52.957, 122.486, 21.078, 0.226)
pt3dadd(52.84, 122.46, 21.078, 0.226)
pt3dadd(52.723, 122.434, 21.078, 0.226)
pt3dadd(52.606, 122.407, 21.078, 0.226)
pt3dadd(52.489, 122.38, 21.078, 0.226)
pt3dadd(52.375, 122.345, 21.078, 0.238)
pt3dadd(52.263, 122.302, 21.078, 0.264)
pt3dadd(52.151, 122.258, 21.078, 0.288)
}
}
proc shape3d_35() {
apic[13] { pt3dadd(52.039, 122.215, 21.078, 0.312)
pt3dadd(51.927, 122.173, 21.078, 0.336)
pt3dadd(51.815, 122.13, 21.079, 0.362)
pt3dadd(51.703, 122.087, 21.079, 0.386)
pt3dadd(51.591, 122.044, 21.079, 0.41)
pt3dadd(51.479, 122, 21.079, 0.436)
pt3dadd(51.367, 121.957, 21.079, 0.46)
pt3dadd(51.254, 121.915, 21.079, 0.482)
pt3dadd(51.141, 121.874, 21.079, 0.502)
pt3dadd(51.029, 121.834, 21.079, 0.524)
pt3dadd(50.916, 121.793, 21.079, 0.544)
pt3dadd(50.803, 121.752, 21.079, 0.564)
pt3dadd(50.69, 121.711, 21.079, 0.586)
pt3dadd(50.577, 121.67, 21.079, 0.606)
pt3dadd(50.465, 121.628, 21.079, 0.628)
pt3dadd(50.352, 121.588, 21.079, 0.648)
pt3dadd(50.239, 121.547, 21.079, 0.668)
pt3dadd(50.124, 121.513, 21.079, 0.678)
pt3dadd(50.008, 121.484, 21.079, 0.678)
pt3dadd(49.891, 121.456, 21.079, 0.678)
pt3dadd(49.775, 121.427, 21.079, 0.678)
pt3dadd(49.658, 121.399, 21.079, 0.678)
pt3dadd(49.542, 121.37, 21.079, 0.678)
pt3dadd(49.425, 121.342, 21.079, 0.678)
pt3dadd(49.308, 121.313, 21.079, 0.678)
pt3dadd(49.192, 121.284, 21.08, 0.678)
pt3dadd(49.075, 121.256, 21.08, 0.678)
pt3dadd(48.958, 121.232, 21.08, 0.668)
pt3dadd(48.839, 121.214, 21.08, 0.65)
pt3dadd(48.721, 121.195, 21.08, 0.632)
pt3dadd(48.602, 121.176, 21.08, 0.614)
pt3dadd(48.484, 121.157, 21.08, 0.596)
pt3dadd(48.365, 121.139, 21.08, 0.578)
pt3dadd(48.247, 121.12, 21.08, 0.56)
pt3dadd(48.128, 121.1, 21.08, 0.542)
pt3dadd(48.01, 121.081, 21.08, 0.524)
pt3dadd(47.891, 121.063, 21.081, 0.506)
pt3dadd(47.772, 121.048, 21.081, 0.484)
pt3dadd(47.653, 121.036, 21.081, 0.458)
pt3dadd(47.533, 121.024, 21.081, 0.432)
pt3dadd(47.414, 121.012, 21.081, 0.406)
pt3dadd(47.295, 120.998, 21.081, 0.382)
pt3dadd(47.175, 120.986, 21.081, 0.356)
pt3dadd(47.056, 120.974, 21.082, 0.33)
pt3dadd(46.936, 120.962, 21.082, 0.304)
pt3dadd(46.817, 120.949, 21.082, 0.278)
pt3dadd(46.698, 120.937, 21.082, 0.252)
pt3dadd(46.578, 120.932, 21.082, 0.258)
pt3dadd(46.458, 120.934, 21.083, 0.286)
pt3dadd(46.338, 120.935, 21.083, 0.316)
pt3dadd(46.218, 120.936, 21.083, 0.344)
pt3dadd(46.098, 120.936, 21.083, 0.374)
pt3dadd(45.978, 120.937, 21.084, 0.402)
pt3dadd(45.858, 120.938, 21.084, 0.432)
pt3dadd(45.738, 120.938, 21.084, 0.46)
pt3dadd(45.618, 120.94, 21.085, 0.49)
pt3dadd(45.498, 120.941, 21.085, 0.518)
pt3dadd(45.378, 120.942, 21.085, 0.53)
pt3dadd(45.258, 120.943, 21.086, 0.532)
pt3dadd(45.138, 120.944, 21.086, 0.532)
pt3dadd(45.018, 120.946, 21.087, 0.532)
pt3dadd(44.898, 120.947, 21.087, 0.534)
pt3dadd(44.778, 120.948, 21.088, 0.534)
pt3dadd(44.658, 120.949, 21.088, 0.534)
pt3dadd(44.538, 120.95, 21.089, 0.534)
pt3dadd(44.418, 120.952, 21.089, 0.536)
pt3dadd(44.298, 120.953, 21.09, 0.536)
pt3dadd(44.178, 120.954, 21.09, 0.52)
pt3dadd(44.058, 120.955, 21.091, 0.49)
pt3dadd(43.938, 120.958, 21.091, 0.462)
pt3dadd(43.818, 120.959, 21.092, 0.432)
pt3dadd(43.698, 120.96, 21.093, 0.404)
pt3dadd(43.578, 120.962, 21.093, 0.374)
pt3dadd(43.458, 120.964, 21.094, 0.346)
pt3dadd(43.338, 120.966, 21.094, 0.316)
pt3dadd(43.218, 120.967, 21.095, 0.288)
pt3dadd(43.098, 120.968, 21.096, 0.258)
pt3dadd(42.978, 120.972, 21.097, 0.246)
pt3dadd(42.858, 120.974, 21.098, 0.244)
pt3dadd(42.738, 120.978, 21.099, 0.242)
pt3dadd(42.618, 120.982, 21.101, 0.24)
pt3dadd(42.498, 120.984, 21.102, 0.238)
pt3dadd(42.378, 120.988, 21.104, 0.236)
pt3dadd(42.259, 120.991, 21.105, 0.234)
pt3dadd(42.139, 120.994, 21.106, 0.23)
pt3dadd(42.019, 120.997, 21.108, 0.228)
pt3dadd(41.899, 121.001, 21.109, 0.226)
pt3dadd(41.779, 121.006, 21.111, 0.232)
pt3dadd(41.659, 121.01, 21.113, 0.242)
pt3dadd(41.539, 121.015, 21.115, 0.254)
pt3dadd(41.419, 121.021, 21.117, 0.264)
pt3dadd(41.299, 121.026, 21.118, 0.274)
pt3dadd(41.18, 121.032, 21.12, 0.284)
pt3dadd(41.06, 121.037, 21.122, 0.296)
pt3dadd(40.94, 121.042, 21.124, 0.306)
pt3dadd(40.82, 121.048, 21.126, 0.316)
pt3dadd(40.7, 121.052, 21.128, 0.328)
pt3dadd(40.58, 121.06, 21.131, 0.348)
pt3dadd(40.461, 121.068, 21.134, 0.378)
pt3dadd(40.341, 121.076, 21.136, 0.406)
pt3dadd(40.221, 121.085, 21.139, 0.436)
pt3dadd(40.102, 121.093, 21.142, 0.464)
pt3dadd(39.982, 121.102, 21.145, 0.492)
pt3dadd(39.862, 121.11, 21.148, 0.522)
pt3dadd(39.743, 121.118, 21.151, 0.55)
pt3dadd(39.623, 121.127, 21.153, 0.58)
pt3dadd(39.503, 121.135, 21.156, 0.608)
pt3dadd(39.384, 121.146, 21.161, 0.61)
pt3dadd(39.265, 121.159, 21.167, 0.594)
pt3dadd(39.146, 121.171, 21.173, 0.576)
pt3dadd(39.027, 121.184, 21.18, 0.558)
pt3dadd(38.908, 121.198, 21.186, 0.542)
pt3dadd(38.789, 121.21, 21.192, 0.524)
pt3dadd(38.67, 121.223, 21.198, 0.508)
pt3dadd(38.55, 121.235, 21.204, 0.49)
pt3dadd(38.431, 121.248, 21.21, 0.472)
pt3dadd(38.312, 121.261, 21.216, 0.456)
pt3dadd(38.194, 121.278, 21.224, 0.438)
pt3dadd(38.076, 121.298, 21.232, 0.422)
pt3dadd(37.958, 121.32, 21.239, 0.406)
pt3dadd(37.84, 121.34, 21.247, 0.39)
pt3dadd(37.723, 121.361, 21.255, 0.374)
pt3dadd(37.605, 121.382, 21.263, 0.358)
pt3dadd(37.487, 121.403, 21.271, 0.34)
pt3dadd(37.369, 121.423, 21.279, 0.324)
pt3dadd(37.251, 121.445, 21.287, 0.308)
pt3dadd(37.134, 121.465, 21.294, 0.292)
pt3dadd(37.02, 121.501, 21.304, 0.304)
pt3dadd(36.91, 121.546, 21.315, 0.33)
pt3dadd(36.799, 121.59, 21.326, 0.356)
pt3dadd(36.688, 121.634, 21.336, 0.384)
pt3dadd(36.577, 121.678, 21.347, 0.41)
pt3dadd(36.466, 121.722, 21.358, 0.436)
pt3dadd(36.356, 121.766, 21.369, 0.464)
pt3dadd(36.245, 121.811, 21.379, 0.49)
pt3dadd(36.134, 121.855, 21.39, 0.518)
pt3dadd(36.023, 121.9, 21.401, 0.544)
pt3dadd(35.913, 121.938, 21.421, 0.562)
pt3dadd(35.802, 121.973, 21.445, 0.574)
pt3dadd(35.691, 122.009, 21.47, 0.586)
pt3dadd(35.58, 122.044, 21.495, 0.6)
pt3dadd(35.469, 122.08, 21.519, 0.612)
pt3dadd(35.358, 122.114, 21.544, 0.624)
pt3dadd(35.248, 122.149, 21.568, 0.638)
pt3dadd(35.137, 122.185, 21.593, 0.65)
pt3dadd(35.026, 122.22, 21.618, 0.662)
pt3dadd(34.915, 122.256, 21.642, 0.674)
pt3dadd(34.806, 122.285, 21.676, 0.678)
pt3dadd(34.697, 122.311, 21.712, 0.678)
pt3dadd(34.589, 122.338, 21.748, 0.678)
pt3dadd(34.48, 122.364, 21.784, 0.678)
pt3dadd(34.371, 122.392, 21.821, 0.678)
pt3dadd(34.263, 122.418, 21.857, 0.678)
pt3dadd(34.154, 122.444, 21.893, 0.678)
pt3dadd(34.046, 122.471, 21.929, 0.678)
pt3dadd(33.937, 122.497, 21.966, 0.678)
pt3dadd(33.828, 122.525, 22.002, 0.678)
pt3dadd(33.715, 122.543, 22.031, 0.678)
pt3dadd(33.6, 122.557, 22.057, 0.678)
pt3dadd(33.486, 122.573, 22.083, 0.678)
pt3dadd(33.371, 122.588, 22.11, 0.678)
pt3dadd(33.256, 122.604, 22.136, 0.678)
pt3dadd(33.141, 122.618, 22.162, 0.678)
pt3dadd(33.027, 122.634, 22.188, 0.678)
pt3dadd(32.912, 122.65, 22.215, 0.678)
pt3dadd(32.797, 122.664, 22.241, 0.678)
pt3dadd(32.682, 122.68, 22.267, 0.678)
pt3dadd(32.566, 122.69, 22.29, 0.678)
pt3dadd(32.449, 122.701, 22.311, 0.678)
pt3dadd(32.332, 122.711, 22.333, 0.678)
pt3dadd(32.216, 122.72, 22.354, 0.678)
pt3dadd(32.099, 122.731, 22.375, 0.678)
pt3dadd(31.982, 122.741, 22.397, 0.678)
pt3dadd(31.865, 122.75, 22.418, 0.678)
pt3dadd(31.748, 122.761, 22.44, 0.678)
pt3dadd(31.632, 122.771, 22.461, 0.678)
pt3dadd(31.515, 122.78, 22.483, 0.678)
pt3dadd(31.396, 122.782, 22.496, 0.678)
pt3dadd(31.277, 122.782, 22.507, 0.678)
pt3dadd(31.158, 122.78, 22.518, 0.678)
pt3dadd(31.038, 122.779, 22.529, 0.678)
pt3dadd(30.919, 122.779, 22.54, 0.678)
pt3dadd(30.8, 122.778, 22.551, 0.678)
pt3dadd(30.681, 122.777, 22.562, 0.678)
pt3dadd(30.561, 122.777, 22.573, 0.678)
pt3dadd(30.442, 122.776, 22.584, 0.678)
pt3dadd(30.323, 122.774, 22.595, 0.678)
pt3dadd(30.203, 122.773, 22.601, 0.664)
pt3dadd(30.083, 122.772, 22.605, 0.646)
pt3dadd(29.963, 122.77, 22.609, 0.628)
pt3dadd(29.843, 122.768, 22.613, 0.61)
pt3dadd(29.723, 122.767, 22.618, 0.592)
pt3dadd(29.604, 122.765, 22.622, 0.574)
pt3dadd(29.484, 122.764, 22.626, 0.556)
pt3dadd(29.364, 122.762, 22.63, 0.538)
pt3dadd(29.244, 122.761, 22.634, 0.52)
pt3dadd(29.124, 122.759, 22.639, 0.502)
pt3dadd(29.004, 122.758, 22.639, 0.476)
pt3dadd(28.884, 122.755, 22.639, 0.45)
pt3dadd(28.764, 122.753, 22.639, 0.422)
}
}
proc shape3d_36() {
apic[13] { pt3dadd(28.644, 122.752, 22.639, 0.394)
pt3dadd(28.524, 122.749, 22.639, 0.368)
pt3dadd(28.404, 122.747, 22.639, 0.34)
pt3dadd(28.284, 122.744, 22.639, 0.312)
pt3dadd(28.164, 122.743, 22.639, 0.286)
pt3dadd(28.044, 122.741, 22.639, 0.258)
pt3dadd(27.924, 122.738, 22.639, 0.23)
pt3dadd(27.804, 122.735, 22.639, 0.226)
pt3dadd(27.684, 122.731, 22.639, 0.226)
pt3dadd(27.564, 122.728, 22.639, 0.226)
pt3dadd(27.444, 122.723, 22.639, 0.226)
pt3dadd(27.324, 122.719, 22.639, 0.226)
pt3dadd(27.205, 122.716, 22.639, 0.226)
pt3dadd(27.085, 122.711, 22.639, 0.226)
pt3dadd(26.965, 122.707, 22.639, 0.226)
pt3dadd(26.845, 122.704, 22.639, 0.226)
pt3dadd(26.725, 122.7, 22.639, 0.226)
pt3dadd(26.605, 122.693, 22.639, 0.238)
pt3dadd(26.485, 122.687, 22.639, 0.252)
pt3dadd(26.365, 122.68, 22.639, 0.266)
pt3dadd(26.246, 122.674, 22.639, 0.28)
pt3dadd(26.126, 122.666, 22.639, 0.296)
pt3dadd(26.006, 122.66, 22.639, 0.31)
pt3dadd(25.886, 122.653, 22.639, 0.324)
pt3dadd(25.766, 122.647, 22.639, 0.338)
pt3dadd(25.646, 122.641, 22.639, 0.352)
pt3dadd(25.527, 122.634, 22.639, 0.366)
pt3dadd(25.407, 122.626, 22.639, 0.394)
pt3dadd(25.287, 122.616, 22.639, 0.422)
pt3dadd(25.168, 122.606, 22.639, 0.45)
pt3dadd(25.048, 122.597, 22.639, 0.48)
pt3dadd(24.928, 122.587, 22.639, 0.508)
pt3dadd(24.809, 122.578, 22.639, 0.538)
pt3dadd(24.689, 122.568, 22.639, 0.566)
pt3dadd(24.57, 122.558, 22.639, 0.596)
pt3dadd(24.45, 122.549, 22.639, 0.624)
pt3dadd(24.33, 122.539, 22.639, 0.652)
pt3dadd(24.211, 122.525, 22.639, 0.638)
pt3dadd(24.092, 122.509, 22.639, 0.614)
pt3dadd(23.973, 122.494, 22.639, 0.588)
pt3dadd(23.854, 122.478, 22.639, 0.564)
pt3dadd(23.735, 122.462, 22.639, 0.538)
pt3dadd(23.616, 122.447, 22.639, 0.514)
pt3dadd(23.497, 122.431, 22.639, 0.49)
pt3dadd(23.378, 122.416, 22.639, 0.464)
pt3dadd(23.259, 122.4, 22.639, 0.44)
pt3dadd(23.14, 122.384, 22.639, 0.416)
pt3dadd(23.023, 122.359, 22.639, 0.404)
pt3dadd(22.907, 122.332, 22.639, 0.394)
pt3dadd(22.79, 122.304, 22.639, 0.386)
pt3dadd(22.673, 122.275, 22.639, 0.376)
pt3dadd(22.556, 122.248, 22.639, 0.368)
pt3dadd(22.44, 122.22, 22.639, 0.358)
pt3dadd(22.323, 122.192, 22.639, 0.348)
pt3dadd(22.206, 122.164, 22.639, 0.34)
pt3dadd(22.089, 122.136, 22.639, 0.33)
pt3dadd(21.973, 122.108, 22.639, 0.322)
pt3dadd(21.862, 122.062, 22.639, 0.346)
pt3dadd(21.752, 122.014, 22.639, 0.372)
pt3dadd(21.642, 121.966, 22.639, 0.398)
pt3dadd(21.533, 121.918, 22.639, 0.424)
pt3dadd(21.423, 121.87, 22.639, 0.452)
pt3dadd(21.313, 121.82, 22.639, 0.478)
pt3dadd(21.203, 121.772, 22.639, 0.504)
pt3dadd(21.093, 121.724, 22.639, 0.53)
pt3dadd(20.983, 121.676, 22.639, 0.558)
pt3dadd(20.873, 121.628, 22.639, 0.584)
pt3dadd(20.761, 121.585, 22.639, 0.578)
pt3dadd(20.649, 121.543, 22.639, 0.57)
pt3dadd(20.536, 121.501, 22.639, 0.56)
pt3dadd(20.424, 121.459, 22.639, 0.552)
pt3dadd(20.311, 121.418, 22.639, 0.542)
pt3dadd(20.199, 121.376, 22.639, 0.534)
pt3dadd(20.086, 121.334, 22.639, 0.524)
pt3dadd(19.974, 121.292, 22.639, 0.516)
pt3dadd(19.862, 121.25, 22.639, 0.508)
pt3dadd(19.749, 121.208, 22.639, 0.498)
pt3dadd(19.636, 121.17, 22.639, 0.472)
pt3dadd(19.522, 121.132, 22.639, 0.446)
pt3dadd(19.408, 121.093, 22.639, 0.418)
pt3dadd(19.295, 121.055, 22.639, 0.392)
pt3dadd(19.181, 121.016, 22.639, 0.364)
pt3dadd(19.067, 120.978, 22.639, 0.336)
pt3dadd(18.954, 120.94, 22.639, 0.31)
pt3dadd(18.84, 120.901, 22.639, 0.282)
pt3dadd(18.726, 120.862, 22.639, 0.256)
pt3dadd(18.612, 120.823, 22.639, 0.228)
pt3dadd(18.497, 120.792, 22.639, 0.226)
pt3dadd(18.381, 120.761, 22.639, 0.226)
pt3dadd(18.265, 120.728, 22.639, 0.226)
pt3dadd(18.149, 120.697, 22.639, 0.226)
pt3dadd(18.034, 120.666, 22.639, 0.226)
pt3dadd(17.918, 120.635, 22.639, 0.226)
pt3dadd(17.802, 120.604, 22.639, 0.226)
pt3dadd(17.686, 120.571, 22.639, 0.226)
pt3dadd(17.57, 120.54, 22.639, 0.226)
pt3dadd(17.454, 120.509, 22.639, 0.226)
pt3dadd(17.342, 120.468, 22.639, 0.23)
pt3dadd(17.229, 120.427, 22.639, 0.236)
pt3dadd(17.116, 120.386, 22.639, 0.242)
pt3dadd(17.003, 120.346, 22.639, 0.248)
pt3dadd(16.891, 120.304, 22.639, 0.252)
pt3dadd(16.778, 120.263, 22.639, 0.258)
pt3dadd(16.665, 120.222, 22.639, 0.264)
pt3dadd(16.552, 120.181, 22.639, 0.268)
pt3dadd(16.44, 120.139, 22.639, 0.274)
pt3dadd(16.327, 120.098, 22.639, 0.28)
pt3dadd(16.22, 120.044, 22.639, 0.292)
pt3dadd(16.113, 119.99, 22.639, 0.306)
pt3dadd(16.006, 119.935, 22.639, 0.318)
pt3dadd(15.899, 119.88, 22.639, 0.332)
pt3dadd(15.792, 119.826, 22.639, 0.344)
pt3dadd(15.686, 119.771, 22.639, 0.358)
pt3dadd(15.579, 119.716, 22.639, 0.37)
pt3dadd(15.472, 119.662, 22.639, 0.384)
pt3dadd(15.365, 119.607, 22.639, 0.396)
pt3dadd(15.258, 119.553, 22.639, 0.41)
pt3dadd(15.149, 119.502, 22.639, 0.404)
pt3dadd(15.04, 119.453, 22.639, 0.398)
pt3dadd(14.931, 119.403, 22.639, 0.394)
pt3dadd(14.822, 119.353, 22.639, 0.388)
pt3dadd(14.713, 119.303, 22.639, 0.382)
pt3dadd(14.604, 119.253, 22.639, 0.376)
pt3dadd(14.495, 119.203, 22.639, 0.37)
pt3dadd(14.385, 119.153, 22.639, 0.366)
pt3dadd(14.276, 119.103, 22.639, 0.36)
pt3dadd(14.167, 119.053, 22.639, 0.354)
pt3dadd(14.058, 119.003, 22.639, 0.342)
pt3dadd(13.949, 118.953, 22.639, 0.328)
pt3dadd(13.84, 118.903, 22.639, 0.316)
pt3dadd(13.731, 118.852, 22.639, 0.304)
pt3dadd(13.622, 118.802, 22.639, 0.29)
pt3dadd(13.513, 118.752, 22.639, 0.278)
pt3dadd(13.404, 118.702, 22.639, 0.264)
pt3dadd(13.295, 118.652, 22.639, 0.252)
pt3dadd(13.186, 118.602, 22.639, 0.238)
pt3dadd(13.077, 118.551, 22.639, 0.226)
pt3dadd(12.979, 118.482, 22.639, 0.226)
pt3dadd(12.881, 118.414, 22.639, 0.226)
pt3dadd(12.782, 118.345, 22.639, 0.226)
pt3dadd(12.684, 118.276, 22.639, 0.226)
pt3dadd(12.586, 118.207, 22.639, 0.226)
pt3dadd(12.487, 118.138, 22.639, 0.226)
pt3dadd(12.389, 118.07, 22.639, 0.226)
pt3dadd(12.291, 118.001, 22.639, 0.226)
pt3dadd(12.192, 117.932, 22.639, 0.226)
pt3dadd(12.094, 117.863, 22.639, 0.226)
pt3dadd(11.996, 117.794, 22.639, 0.226)
pt3dadd(11.897, 117.726, 22.639, 0.226)
pt3dadd(11.799, 117.657, 22.639, 0.226)
pt3dadd(11.701, 117.588, 22.639, 0.226)
pt3dadd(11.602, 117.519, 22.639, 0.226)
pt3dadd(11.504, 117.45, 22.639, 0.226)
pt3dadd(11.406, 117.382, 22.639, 0.226)
pt3dadd(11.307, 117.313, 22.639, 0.226)
pt3dadd(11.209, 117.244, 22.639, 0.226)
pt3dadd(11.111, 117.175, 22.639, 0.226)
}
apic[14] {pt3dclear()
pt3dadd(76.686, 131.634, 21.078, 0.678)
pt3dadd(76.634, 131.701, 21.078, 0.684)
pt3dadd(76.56, 131.795, 21.078, 0.694)
pt3dadd(76.486, 131.89, 21.078, 0.702)
pt3dadd(76.413, 131.984, 21.078, 0.71)
pt3dadd(76.339, 132.079, 21.078, 0.72)
pt3dadd(76.265, 132.174, 21.078, 0.728)
pt3dadd(76.191, 132.269, 21.078, 0.738)
pt3dadd(76.117, 132.364, 21.078, 0.746)
pt3dadd(76.044, 132.457, 21.078, 0.756)
pt3dadd(75.97, 132.552, 21.078, 0.764)
pt3dadd(75.896, 132.647, 21.078, 0.774)
pt3dadd(75.822, 132.742, 21.078, 0.782)
pt3dadd(75.748, 132.836, 21.078, 0.792)
pt3dadd(75.674, 132.931, 21.078, 0.8)
pt3dadd(75.601, 133.025, 21.078, 0.808)
pt3dadd(75.527, 133.12, 21.078, 0.818)
pt3dadd(75.453, 133.214, 21.078, 0.826)
pt3dadd(75.379, 133.309, 21.078, 0.836)
pt3dadd(75.306, 133.404, 21.084, 0.84)
pt3dadd(75.236, 133.498, 21.103, 0.834)
pt3dadd(75.165, 133.592, 21.122, 0.828)
pt3dadd(75.095, 133.686, 21.141, 0.82)
pt3dadd(75.024, 133.781, 21.16, 0.814)
pt3dadd(74.953, 133.876, 21.179, 0.808)
pt3dadd(74.883, 133.969, 21.198, 0.802)
pt3dadd(74.812, 134.064, 21.218, 0.796)
pt3dadd(74.742, 134.158, 21.237, 0.788)
pt3dadd(74.671, 134.252, 21.256, 0.782)
pt3dadd(74.614, 134.335, 21.306, 0.75)
pt3dadd(74.561, 134.416, 21.366, 0.71)
pt3dadd(74.508, 134.495, 21.427, 0.668)
pt3dadd(74.455, 134.574, 21.487, 0.628)
pt3dadd(74.402, 134.654, 21.548, 0.586)
pt3dadd(74.349, 134.734, 21.608, 0.546)
pt3dadd(74.296, 134.813, 21.669, 0.506)
pt3dadd(74.243, 134.892, 21.729, 0.464)
pt3dadd(74.19, 134.972, 21.79, 0.424)
pt3dadd(74.138, 135.052, 21.85, 0.382)
pt3dadd(74.059, 135.119, 21.899, 0.36)
pt3dadd(73.973, 135.182, 21.943, 0.346)
pt3dadd(73.886, 135.246, 21.987, 0.33)
pt3dadd(73.799, 135.311, 22.031, 0.316)
}
}
proc shape3d_37() {
apic[14] { pt3dadd(73.712, 135.374, 22.075, 0.3)
pt3dadd(73.625, 135.438, 22.119, 0.286)
pt3dadd(73.538, 135.502, 22.163, 0.27)
pt3dadd(73.451, 135.565, 22.208, 0.254)
pt3dadd(73.364, 135.629, 22.252, 0.24)
pt3dadd(73.276, 135.69, 22.294, 0.226)
pt3dadd(73.167, 135.733, 22.318, 0.226)
pt3dadd(73.059, 135.776, 22.341, 0.226)
pt3dadd(72.951, 135.82, 22.365, 0.226)
pt3dadd(72.842, 135.863, 22.389, 0.226)
pt3dadd(72.734, 135.906, 22.413, 0.226)
pt3dadd(72.626, 135.949, 22.436, 0.226)
pt3dadd(72.517, 135.992, 22.46, 0.226)
pt3dadd(72.409, 136.036, 22.484, 0.226)
pt3dadd(72.301, 136.079, 22.507, 0.226)
pt3dadd(72.191, 136.12, 22.529, 0.226)
pt3dadd(72.077, 136.152, 22.541, 0.226)
pt3dadd(71.962, 136.183, 22.554, 0.226)
pt3dadd(71.847, 136.216, 22.566, 0.226)
pt3dadd(71.733, 136.248, 22.578, 0.226)
pt3dadd(71.618, 136.279, 22.591, 0.226)
pt3dadd(71.503, 136.312, 22.603, 0.226)
pt3dadd(71.389, 136.344, 22.615, 0.226)
pt3dadd(71.274, 136.376, 22.628, 0.226)
pt3dadd(71.159, 136.408, 22.64, 0.226)
pt3dadd(71.046, 136.444, 22.65, 0.232)
pt3dadd(70.936, 136.492, 22.651, 0.258)
pt3dadd(70.826, 136.54, 22.652, 0.284)
pt3dadd(70.716, 136.589, 22.652, 0.31)
pt3dadd(70.606, 136.637, 22.653, 0.338)
pt3dadd(70.497, 136.686, 22.654, 0.364)
pt3dadd(70.387, 136.734, 22.654, 0.39)
pt3dadd(70.277, 136.782, 22.655, 0.416)
pt3dadd(70.167, 136.831, 22.656, 0.444)
pt3dadd(70.058, 136.879, 22.657, 0.47)
pt3dadd(69.948, 136.927, 22.657, 0.494)
pt3dadd(69.837, 136.973, 22.658, 0.504)
pt3dadd(69.726, 137.02, 22.659, 0.514)
pt3dadd(69.615, 137.065, 22.66, 0.524)
pt3dadd(69.504, 137.111, 22.661, 0.536)
pt3dadd(69.393, 137.156, 22.662, 0.546)
pt3dadd(69.282, 137.203, 22.663, 0.556)
pt3dadd(69.171, 137.249, 22.664, 0.568)
pt3dadd(69.061, 137.294, 22.665, 0.578)
pt3dadd(68.95, 137.34, 22.666, 0.588)
pt3dadd(68.838, 137.384, 22.667, 0.592)
pt3dadd(68.725, 137.424, 22.669, 0.564)
pt3dadd(68.611, 137.464, 22.671, 0.536)
pt3dadd(68.498, 137.502, 22.672, 0.508)
pt3dadd(68.385, 137.542, 22.674, 0.482)
pt3dadd(68.271, 137.581, 22.676, 0.454)
pt3dadd(68.158, 137.62, 22.677, 0.426)
pt3dadd(68.044, 137.659, 22.679, 0.4)
pt3dadd(67.931, 137.698, 22.681, 0.372)
pt3dadd(67.818, 137.737, 22.682, 0.344)
pt3dadd(67.704, 137.776, 22.684, 0.32)
pt3dadd(67.589, 137.812, 22.687, 0.31)
pt3dadd(67.475, 137.848, 22.69, 0.302)
pt3dadd(67.36, 137.882, 22.693, 0.292)
pt3dadd(67.246, 137.918, 22.696, 0.282)
pt3dadd(67.131, 137.954, 22.698, 0.272)
pt3dadd(67.017, 137.99, 22.701, 0.262)
pt3dadd(66.902, 138.026, 22.704, 0.252)
pt3dadd(66.788, 138.061, 22.707, 0.244)
pt3dadd(66.673, 138.097, 22.71, 0.234)
pt3dadd(66.559, 138.133, 22.713, 0.226)
pt3dadd(66.444, 138.168, 22.716, 0.228)
pt3dadd(66.329, 138.202, 22.72, 0.228)
pt3dadd(66.214, 138.236, 22.723, 0.23)
pt3dadd(66.099, 138.271, 22.727, 0.232)
pt3dadd(65.985, 138.306, 22.73, 0.232)
pt3dadd(65.87, 138.341, 22.734, 0.234)
pt3dadd(65.755, 138.374, 22.738, 0.234)
pt3dadd(65.64, 138.409, 22.741, 0.236)
pt3dadd(65.525, 138.444, 22.745, 0.238)
pt3dadd(65.412, 138.482, 22.749, 0.246)
pt3dadd(65.306, 138.538, 22.757, 0.286)
pt3dadd(65.199, 138.592, 22.765, 0.324)
pt3dadd(65.093, 138.647, 22.773, 0.364)
pt3dadd(64.987, 138.702, 22.78, 0.402)
pt3dadd(64.88, 138.756, 22.788, 0.442)
pt3dadd(64.774, 138.811, 22.796, 0.48)
pt3dadd(64.668, 138.866, 22.804, 0.52)
pt3dadd(64.561, 138.92, 22.811, 0.558)
pt3dadd(64.455, 138.976, 22.819, 0.598)
pt3dadd(64.349, 139.031, 22.827, 0.632)
pt3dadd(64.244, 139.088, 22.837, 0.654)
pt3dadd(64.139, 139.146, 22.846, 0.674)
pt3dadd(64.035, 139.204, 22.855, 0.694)
pt3dadd(63.93, 139.261, 22.864, 0.714)
pt3dadd(63.825, 139.319, 22.874, 0.734)
pt3dadd(63.721, 139.376, 22.883, 0.754)
pt3dadd(63.616, 139.434, 22.892, 0.774)
pt3dadd(63.512, 139.492, 22.901, 0.794)
pt3dadd(63.407, 139.549, 22.91, 0.814)
pt3dadd(63.303, 139.609, 22.92, 0.826)
pt3dadd(63.203, 139.673, 22.933, 0.8)
pt3dadd(63.103, 139.738, 22.946, 0.776)
pt3dadd(63.003, 139.802, 22.959, 0.75)
pt3dadd(62.903, 139.867, 22.972, 0.726)
pt3dadd(62.803, 139.931, 22.984, 0.702)
pt3dadd(62.703, 139.996, 22.997, 0.676)
pt3dadd(62.603, 140.06, 23.01, 0.652)
pt3dadd(62.503, 140.124, 23.023, 0.626)
pt3dadd(62.403, 140.189, 23.035, 0.602)
pt3dadd(62.302, 140.25, 23.052, 0.58)
pt3dadd(62.199, 140.302, 23.08, 0.574)
pt3dadd(62.095, 140.352, 23.108, 0.568)
pt3dadd(61.992, 140.404, 23.136, 0.56)
pt3dadd(61.889, 140.454, 23.164, 0.554)
pt3dadd(61.786, 140.506, 23.192, 0.546)
pt3dadd(61.683, 140.557, 23.22, 0.54)
pt3dadd(61.579, 140.608, 23.249, 0.532)
pt3dadd(61.476, 140.659, 23.277, 0.526)
pt3dadd(61.373, 140.71, 23.305, 0.52)
pt3dadd(61.27, 140.754, 23.34, 0.52)
pt3dadd(61.168, 140.789, 23.384, 0.534)
pt3dadd(61.066, 140.822, 23.427, 0.548)
pt3dadd(60.964, 140.857, 23.471, 0.56)
pt3dadd(60.862, 140.892, 23.515, 0.574)
pt3dadd(60.759, 140.927, 23.559, 0.588)
pt3dadd(60.657, 140.96, 23.603, 0.6)
pt3dadd(60.555, 140.995, 23.647, 0.614)
pt3dadd(60.453, 141.03, 23.691, 0.626)
pt3dadd(60.351, 141.064, 23.735, 0.64)
pt3dadd(60.246, 141.088, 23.777, 0.644)
pt3dadd(60.137, 141.096, 23.818, 0.636)
pt3dadd(60.027, 141.104, 23.859, 0.626)
pt3dadd(59.918, 141.113, 23.9, 0.618)
pt3dadd(59.809, 141.121, 23.941, 0.61)
pt3dadd(59.7, 141.13, 23.982, 0.6)
pt3dadd(59.591, 141.138, 24.023, 0.592)
pt3dadd(59.481, 141.146, 24.064, 0.584)
pt3dadd(59.372, 141.155, 24.104, 0.574)
pt3dadd(59.263, 141.163, 24.145, 0.566)
pt3dadd(59.156, 141.164, 24.19, 0.56)
pt3dadd(59.05, 141.157, 24.237, 0.56)
pt3dadd(58.945, 141.15, 24.284, 0.558)
pt3dadd(58.839, 141.142, 24.332, 0.556)
pt3dadd(58.734, 141.134, 24.379, 0.554)
pt3dadd(58.629, 141.127, 24.426, 0.552)
pt3dadd(58.523, 141.12, 24.474, 0.55)
pt3dadd(58.418, 141.113, 24.521, 0.55)
pt3dadd(58.312, 141.104, 24.568, 0.548)
pt3dadd(58.207, 141.097, 24.616, 0.546)
pt3dadd(58.114, 141.076, 24.675, 0.568)
pt3dadd(58.028, 141.047, 24.741, 0.602)
pt3dadd(57.942, 141.018, 24.806, 0.638)
pt3dadd(57.856, 140.99, 24.872, 0.672)
pt3dadd(57.77, 140.962, 24.937, 0.706)
pt3dadd(57.684, 140.933, 25.003, 0.742)
pt3dadd(57.598, 140.904, 25.068, 0.776)
pt3dadd(57.512, 140.875, 25.134, 0.81)
pt3dadd(57.426, 140.846, 25.199, 0.846)
pt3dadd(57.34, 140.818, 25.265, 0.88)
pt3dadd(57.25, 140.765, 25.31, 0.874)
pt3dadd(57.159, 140.7, 25.345, 0.846)
pt3dadd(57.067, 140.635, 25.38, 0.82)
pt3dadd(56.976, 140.569, 25.416, 0.792)
pt3dadd(56.884, 140.504, 25.451, 0.766)
pt3dadd(56.793, 140.44, 25.486, 0.738)
pt3dadd(56.701, 140.374, 25.521, 0.712)
pt3dadd(56.61, 140.309, 25.556, 0.684)
pt3dadd(56.518, 140.244, 25.591, 0.656)
pt3dadd(56.427, 140.179, 25.626, 0.63)
pt3dadd(56.335, 140.111, 25.657, 0.606)
pt3dadd(56.244, 140.041, 25.686, 0.584)
pt3dadd(56.152, 139.972, 25.716, 0.562)
pt3dadd(56.061, 139.902, 25.745, 0.54)
pt3dadd(55.97, 139.832, 25.774, 0.518)
pt3dadd(55.878, 139.764, 25.803, 0.496)
pt3dadd(55.787, 139.694, 25.832, 0.474)
pt3dadd(55.695, 139.625, 25.861, 0.45)
pt3dadd(55.604, 139.555, 25.89, 0.428)
pt3dadd(55.512, 139.486, 25.92, 0.406)
pt3dadd(55.421, 139.414, 25.944, 0.392)
pt3dadd(55.33, 139.34, 25.966, 0.378)
pt3dadd(55.239, 139.267, 25.989, 0.366)
pt3dadd(55.148, 139.193, 26.011, 0.354)
pt3dadd(55.057, 139.12, 26.033, 0.342)
pt3dadd(54.966, 139.046, 26.056, 0.33)
pt3dadd(54.875, 138.973, 26.078, 0.318)
pt3dadd(54.784, 138.9, 26.101, 0.304)
pt3dadd(54.693, 138.827, 26.123, 0.292)
pt3dadd(54.602, 138.752, 26.145, 0.28)
pt3dadd(54.507, 138.69, 26.176, 0.278)
pt3dadd(54.41, 138.632, 26.209, 0.28)
pt3dadd(54.313, 138.574, 26.242, 0.282)
pt3dadd(54.216, 138.515, 26.276, 0.284)
pt3dadd(54.119, 138.457, 26.309, 0.286)
pt3dadd(54.022, 138.398, 26.342, 0.288)
pt3dadd(53.925, 138.34, 26.376, 0.29)
pt3dadd(53.828, 138.282, 26.409, 0.292)
pt3dadd(53.731, 138.223, 26.442, 0.294)
pt3dadd(53.634, 138.166, 26.476, 0.296)
pt3dadd(53.535, 138.116, 26.515, 0.306)
pt3dadd(53.436, 138.07, 26.555, 0.318)
pt3dadd(53.337, 138.022, 26.595, 0.33)
pt3dadd(53.238, 137.975, 26.635, 0.342)
pt3dadd(53.138, 137.928, 26.676, 0.354)
}
}
proc shape3d_38() {
apic[14] { pt3dadd(53.039, 137.881, 26.716, 0.366)
pt3dadd(52.94, 137.834, 26.756, 0.378)
pt3dadd(52.84, 137.786, 26.796, 0.39)
pt3dadd(52.741, 137.74, 26.836, 0.402)
pt3dadd(52.642, 137.693, 26.877, 0.414)
pt3dadd(52.541, 137.644, 26.913, 0.434)
pt3dadd(52.441, 137.593, 26.948, 0.454)
pt3dadd(52.34, 137.543, 26.983, 0.476)
pt3dadd(52.24, 137.494, 27.019, 0.496)
pt3dadd(52.139, 137.443, 27.054, 0.516)
pt3dadd(52.039, 137.393, 27.089, 0.538)
pt3dadd(51.938, 137.342, 27.124, 0.558)
pt3dadd(51.838, 137.293, 27.16, 0.58)
pt3dadd(51.737, 137.243, 27.195, 0.6)
pt3dadd(51.637, 137.192, 27.23, 0.62)
pt3dadd(51.536, 137.142, 27.264, 0.644)
pt3dadd(51.435, 137.09, 27.297, 0.668)
pt3dadd(51.334, 137.039, 27.33, 0.694)
pt3dadd(51.233, 136.987, 27.363, 0.718)
pt3dadd(51.132, 136.937, 27.396, 0.742)
pt3dadd(51.031, 136.885, 27.429, 0.766)
pt3dadd(50.931, 136.834, 27.463, 0.79)
pt3dadd(50.83, 136.782, 27.496, 0.816)
pt3dadd(50.729, 136.73, 27.529, 0.84)
pt3dadd(50.628, 136.68, 27.562, 0.864)
pt3dadd(50.526, 136.646, 27.607, 0.854)
pt3dadd(50.425, 136.619, 27.654, 0.836)
pt3dadd(50.323, 136.59, 27.702, 0.82)
pt3dadd(50.221, 136.561, 27.749, 0.802)
pt3dadd(50.119, 136.534, 27.797, 0.784)
pt3dadd(50.018, 136.505, 27.844, 0.766)
pt3dadd(49.916, 136.476, 27.892, 0.75)
pt3dadd(49.814, 136.447, 27.939, 0.732)
pt3dadd(49.713, 136.42, 27.987, 0.714)
pt3dadd(49.611, 136.391, 28.034, 0.696)
pt3dadd(49.509, 136.366, 28.083, 0.674)
pt3dadd(49.408, 136.342, 28.133, 0.65)
pt3dadd(49.306, 136.318, 28.182, 0.624)
pt3dadd(49.205, 136.294, 28.232, 0.6)
pt3dadd(49.103, 136.27, 28.281, 0.576)
pt3dadd(49.002, 136.246, 28.33, 0.552)
pt3dadd(48.9, 136.222, 28.38, 0.528)
pt3dadd(48.799, 136.198, 28.429, 0.504)
pt3dadd(48.697, 136.174, 28.479, 0.48)
pt3dadd(48.596, 136.15, 28.528, 0.454)
pt3dadd(48.485, 136.136, 28.565, 0.452)
pt3dadd(48.373, 136.127, 28.6, 0.452)
pt3dadd(48.261, 136.116, 28.635, 0.452)
pt3dadd(48.149, 136.105, 28.67, 0.452)
pt3dadd(48.037, 136.094, 28.704, 0.452)
pt3dadd(47.925, 136.084, 28.739, 0.452)
pt3dadd(47.814, 136.074, 28.774, 0.452)
pt3dadd(47.702, 136.063, 28.809, 0.452)
pt3dadd(47.59, 136.052, 28.844, 0.452)
pt3dadd(47.478, 136.042, 28.879, 0.452)
pt3dadd(47.367, 136.036, 28.918, 0.464)
pt3dadd(47.257, 136.031, 28.957, 0.478)
pt3dadd(47.147, 136.025, 28.996, 0.492)
pt3dadd(47.037, 136.019, 29.036, 0.506)
pt3dadd(46.927, 136.014, 29.075, 0.518)
pt3dadd(46.816, 136.008, 29.115, 0.532)
pt3dadd(46.706, 136.003, 29.154, 0.546)
pt3dadd(46.596, 135.997, 29.193, 0.56)
pt3dadd(46.486, 135.992, 29.233, 0.574)
pt3dadd(46.376, 135.986, 29.272, 0.588)
pt3dadd(46.27, 135.99, 29.319, 0.624)
pt3dadd(46.164, 135.994, 29.366, 0.662)
pt3dadd(46.058, 135.998, 29.413, 0.702)
pt3dadd(45.953, 136.002, 29.461, 0.74)
pt3dadd(45.847, 136.006, 29.508, 0.78)
pt3dadd(45.741, 136.01, 29.555, 0.818)
pt3dadd(45.636, 136.014, 29.603, 0.858)
pt3dadd(45.53, 136.018, 29.65, 0.896)
pt3dadd(45.424, 136.021, 29.697, 0.936)
pt3dadd(45.319, 136.026, 29.745, 0.974)
pt3dadd(45.207, 136.033, 29.781, 0.96)
pt3dadd(45.096, 136.042, 29.817, 0.94)
pt3dadd(44.984, 136.049, 29.853, 0.92)
pt3dadd(44.872, 136.057, 29.888, 0.9)
pt3dadd(44.76, 136.066, 29.924, 0.88)
pt3dadd(44.649, 136.073, 29.96, 0.86)
pt3dadd(44.537, 136.081, 29.995, 0.84)
pt3dadd(44.425, 136.09, 30.031, 0.82)
pt3dadd(44.313, 136.097, 30.067, 0.802)
pt3dadd(44.201, 136.105, 30.102, 0.782)
pt3dadd(44.086, 136.116, 30.13, 0.728)
pt3dadd(43.972, 136.127, 30.158, 0.674)
pt3dadd(43.857, 136.138, 30.185, 0.618)
pt3dadd(43.742, 136.148, 30.213, 0.564)
pt3dadd(43.627, 136.159, 30.24, 0.51)
pt3dadd(43.512, 136.17, 30.268, 0.456)
pt3dadd(43.398, 136.181, 30.296, 0.402)
pt3dadd(43.283, 136.193, 30.323, 0.346)
pt3dadd(43.168, 136.204, 30.351, 0.292)
pt3dadd(43.053, 136.214, 30.378, 0.238)
pt3dadd(42.937, 136.234, 30.399, 0.266)
pt3dadd(42.821, 136.253, 30.419, 0.296)
pt3dadd(42.705, 136.272, 30.439, 0.328)
pt3dadd(42.589, 136.291, 30.46, 0.358)
pt3dadd(42.474, 136.31, 30.48, 0.388)
pt3dadd(42.358, 136.33, 30.501, 0.42)
pt3dadd(42.242, 136.349, 30.521, 0.45)
pt3dadd(42.126, 136.368, 30.541, 0.48)
pt3dadd(42.01, 136.387, 30.562, 0.512)
pt3dadd(41.894, 136.408, 30.582, 0.542)
pt3dadd(41.784, 136.448, 30.599, 0.556)
pt3dadd(41.673, 136.492, 30.616, 0.57)
pt3dadd(41.563, 136.534, 30.633, 0.584)
pt3dadd(41.453, 136.576, 30.65, 0.598)
pt3dadd(41.342, 136.619, 30.667, 0.612)
pt3dadd(41.232, 136.661, 30.684, 0.624)
pt3dadd(41.121, 136.704, 30.702, 0.638)
pt3dadd(41.011, 136.746, 30.719, 0.652)
pt3dadd(40.901, 136.788, 30.736, 0.666)
pt3dadd(40.791, 136.832, 30.752, 0.678)
pt3dadd(40.689, 136.892, 30.767, 0.678)
pt3dadd(40.586, 136.951, 30.781, 0.678)
pt3dadd(40.483, 137.011, 30.796, 0.678)
pt3dadd(40.38, 137.07, 30.81, 0.678)
pt3dadd(40.277, 137.13, 30.825, 0.68)
pt3dadd(40.174, 137.189, 30.839, 0.68)
pt3dadd(40.071, 137.249, 30.854, 0.68)
pt3dadd(39.969, 137.308, 30.868, 0.68)
pt3dadd(39.866, 137.368, 30.883, 0.68)
pt3dadd(39.767, 137.426, 30.903, 0.682)
pt3dadd(39.689, 137.486, 30.961, 0.702)
pt3dadd(39.611, 137.548, 31.018, 0.72)
pt3dadd(39.533, 137.608, 31.075, 0.738)
pt3dadd(39.455, 137.668, 31.132, 0.756)
pt3dadd(39.377, 137.729, 31.189, 0.774)
pt3dadd(39.299, 137.789, 31.246, 0.792)
pt3dadd(39.221, 137.849, 31.303, 0.81)
pt3dadd(39.144, 137.91, 31.36, 0.828)
pt3dadd(39.066, 137.97, 31.417, 0.846)
pt3dadd(38.988, 138.032, 31.472, 0.862)
pt3dadd(38.908, 138.107, 31.514, 0.866)
pt3dadd(38.828, 138.181, 31.555, 0.87)
pt3dadd(38.748, 138.257, 31.596, 0.874)
pt3dadd(38.668, 138.331, 31.637, 0.88)
pt3dadd(38.589, 138.406, 31.679, 0.884)
pt3dadd(38.509, 138.48, 31.72, 0.888)
pt3dadd(38.429, 138.556, 31.761, 0.892)
pt3dadd(38.349, 138.63, 31.802, 0.896)
pt3dadd(38.27, 138.704, 31.844, 0.9)
pt3dadd(38.19, 138.779, 31.886, 0.902)
pt3dadd(38.113, 138.854, 31.93, 0.896)
pt3dadd(38.035, 138.929, 31.974, 0.89)
pt3dadd(37.958, 139.003, 32.018, 0.884)
pt3dadd(37.88, 139.079, 32.062, 0.876)
pt3dadd(37.803, 139.153, 32.106, 0.87)
pt3dadd(37.725, 139.228, 32.15, 0.864)
pt3dadd(37.648, 139.303, 32.194, 0.858)
pt3dadd(37.57, 139.378, 32.238, 0.852)
pt3dadd(37.493, 139.453, 32.282, 0.844)
pt3dadd(37.416, 139.526, 32.329, 0.834)
pt3dadd(37.341, 139.596, 32.381, 0.816)
pt3dadd(37.266, 139.666, 32.433, 0.796)
pt3dadd(37.191, 139.735, 32.485, 0.776)
pt3dadd(37.117, 139.805, 32.538, 0.758)
pt3dadd(37.042, 139.874, 32.59, 0.738)
pt3dadd(36.967, 139.944, 32.642, 0.718)
pt3dadd(36.892, 140.015, 32.694, 0.7)
pt3dadd(36.817, 140.084, 32.747, 0.68)
pt3dadd(36.742, 140.154, 32.799, 0.66)
pt3dadd(36.663, 140.23, 32.833, 0.642)
pt3dadd(36.577, 140.312, 32.846, 0.626)
pt3dadd(36.492, 140.395, 32.86, 0.61)
pt3dadd(36.406, 140.478, 32.873, 0.594)
pt3dadd(36.321, 140.561, 32.886, 0.578)
pt3dadd(36.235, 140.644, 32.9, 0.562)
pt3dadd(36.15, 140.726, 32.913, 0.546)
pt3dadd(36.065, 140.809, 32.926, 0.53)
pt3dadd(35.979, 140.892, 32.939, 0.514)
pt3dadd(35.894, 140.975, 32.953, 0.498)
pt3dadd(35.804, 141.049, 32.948, 0.48)
pt3dadd(35.708, 141.114, 32.923, 0.462)
pt3dadd(35.612, 141.18, 32.897, 0.446)
pt3dadd(35.516, 141.245, 32.872, 0.428)
pt3dadd(35.42, 141.31, 32.846, 0.41)
pt3dadd(35.324, 141.374, 32.821, 0.392)
pt3dadd(35.228, 141.44, 32.795, 0.374)
pt3dadd(35.132, 141.505, 32.77, 0.356)
pt3dadd(35.036, 141.57, 32.744, 0.338)
pt3dadd(34.94, 141.636, 32.718, 0.32)
pt3dadd(34.857, 141.712, 32.685, 0.31)
pt3dadd(34.778, 141.791, 32.648, 0.3)
pt3dadd(34.7, 141.871, 32.612, 0.29)
pt3dadd(34.622, 141.95, 32.575, 0.282)
pt3dadd(34.543, 142.03, 32.539, 0.272)
pt3dadd(34.465, 142.11, 32.502, 0.262)
pt3dadd(34.387, 142.189, 32.466, 0.254)
pt3dadd(34.308, 142.268, 32.429, 0.244)
pt3dadd(34.23, 142.349, 32.392, 0.236)
pt3dadd(34.152, 142.428, 32.356, 0.226)
pt3dadd(34.096, 142.526, 32.321, 0.226)
pt3dadd(34.04, 142.624, 32.286, 0.226)
pt3dadd(33.984, 142.721, 32.251, 0.226)
pt3dadd(33.929, 142.819, 32.216, 0.226)
pt3dadd(33.873, 142.916, 32.182, 0.226)
pt3dadd(33.817, 143.014, 32.147, 0.226)
}
}
proc shape3d_39() {
apic[14] { pt3dadd(33.761, 143.112, 32.112, 0.226)
pt3dadd(33.706, 143.209, 32.077, 0.226)
pt3dadd(33.65, 143.308, 32.042, 0.226)
pt3dadd(33.594, 143.405, 32.007, 0.226)
}
apic[15] {pt3dclear()
pt3dadd(103.53, 126.596, 13.571, 2.26)
pt3dadd(103.513, 126.649, 13.517, 2.228)
pt3dadd(103.488, 126.722, 13.441, 2.182)
pt3dadd(103.463, 126.797, 13.365, 2.136)
pt3dadd(103.438, 126.871, 13.29, 2.09)
pt3dadd(103.413, 126.946, 13.214, 2.044)
pt3dadd(103.388, 127.019, 13.138, 1.998)
pt3dadd(103.363, 127.093, 13.062, 1.952)
pt3dadd(103.338, 127.168, 12.986, 1.906)
pt3dadd(103.313, 127.242, 12.91, 1.86)
pt3dadd(103.288, 127.316, 12.835, 1.812)
pt3dadd(103.263, 127.39, 12.759, 1.768)
pt3dadd(103.238, 127.464, 12.683, 1.72)
pt3dadd(103.213, 127.538, 12.607, 1.674)
pt3dadd(103.188, 127.613, 12.531, 1.628)
pt3dadd(103.163, 127.687, 12.456, 1.582)
pt3dadd(103.138, 127.76, 12.38, 1.536)
pt3dadd(103.113, 127.835, 12.304, 1.49)
pt3dadd(103.088, 127.909, 12.228, 1.444)
pt3dadd(103.062, 127.984, 12.152, 1.398)
pt3dadd(103.037, 128.058, 12.077, 1.352)
pt3dadd(103.012, 128.131, 12.001, 1.306)
pt3dadd(102.963, 128.221, 11.952, 1.288)
pt3dadd(102.907, 128.315, 11.911, 1.278)
pt3dadd(102.85, 128.408, 11.869, 1.266)
pt3dadd(102.794, 128.502, 11.828, 1.256)
pt3dadd(102.738, 128.596, 11.786, 1.246)
pt3dadd(102.682, 128.689, 11.745, 1.236)
pt3dadd(102.625, 128.783, 11.704, 1.224)
pt3dadd(102.569, 128.876, 11.662, 1.214)
pt3dadd(102.513, 128.97, 11.621, 1.204)
pt3dadd(102.452, 129.065, 11.588, 1.2)
pt3dadd(102.383, 129.161, 11.57, 1.21)
pt3dadd(102.314, 129.257, 11.552, 1.222)
pt3dadd(102.246, 129.353, 11.534, 1.232)
pt3dadd(102.177, 129.449, 11.516, 1.242)
pt3dadd(102.108, 129.545, 11.498, 1.252)
pt3dadd(102.039, 129.64, 11.48, 1.264)
pt3dadd(101.97, 129.736, 11.462, 1.274)
pt3dadd(101.902, 129.832, 11.444, 1.284)
pt3dadd(101.833, 129.928, 11.426, 1.294)
pt3dadd(101.768, 130.025, 11.404, 1.314)
pt3dadd(101.71, 130.124, 11.376, 1.344)
pt3dadd(101.652, 130.224, 11.348, 1.378)
pt3dadd(101.594, 130.324, 11.32, 1.408)
pt3dadd(101.536, 130.423, 11.292, 1.44)
pt3dadd(101.478, 130.523, 11.263, 1.472)
pt3dadd(101.42, 130.622, 11.235, 1.504)
pt3dadd(101.362, 130.722, 11.207, 1.536)
pt3dadd(101.304, 130.82, 11.179, 1.568)
pt3dadd(101.246, 130.92, 11.15, 1.6)
pt3dadd(101.195, 131.021, 11.117, 1.644)
pt3dadd(101.15, 131.122, 11.078, 1.698)
pt3dadd(101.105, 131.222, 11.039, 1.754)
pt3dadd(101.06, 131.323, 11, 1.808)
pt3dadd(101.015, 131.425, 10.961, 1.864)
pt3dadd(100.97, 131.526, 10.922, 1.918)
pt3dadd(100.925, 131.627, 10.884, 1.974)
pt3dadd(100.881, 131.728, 10.845, 2.028)
pt3dadd(100.836, 131.828, 10.806, 2.084)
pt3dadd(100.791, 131.929, 10.767, 2.138)
pt3dadd(100.74, 132.031, 10.734, 2.166)
pt3dadd(100.683, 132.132, 10.709, 2.166)
pt3dadd(100.626, 132.233, 10.684, 2.164)
pt3dadd(100.569, 132.334, 10.658, 2.164)
pt3dadd(100.512, 132.436, 10.633, 2.164)
pt3dadd(100.455, 132.536, 10.607, 2.162)
pt3dadd(100.398, 132.637, 10.582, 2.162)
pt3dadd(100.341, 132.738, 10.556, 2.16)
pt3dadd(100.284, 132.839, 10.531, 2.16)
pt3dadd(100.227, 132.941, 10.505, 2.158)
pt3dadd(100.169, 133.042, 10.481, 2.152)
pt3dadd(100.109, 133.142, 10.459, 2.14)
pt3dadd(100.05, 133.243, 10.436, 2.128)
pt3dadd(99.991, 133.344, 10.414, 2.116)
pt3dadd(99.931, 133.445, 10.391, 2.104)
pt3dadd(99.872, 133.544, 10.368, 2.092)
pt3dadd(99.813, 133.645, 10.346, 2.078)
pt3dadd(99.753, 133.746, 10.323, 2.066)
pt3dadd(99.694, 133.847, 10.3, 2.054)
pt3dadd(99.635, 133.948, 10.278, 2.042)
pt3dadd(99.584, 134.054, 10.259, 2.044)
pt3dadd(99.542, 134.165, 10.245, 2.056)
pt3dadd(99.5, 134.276, 10.23, 2.07)
pt3dadd(99.458, 134.387, 10.215, 2.082)
pt3dadd(99.416, 134.498, 10.201, 2.096)
pt3dadd(99.374, 134.609, 10.186, 2.108)
pt3dadd(99.332, 134.72, 10.172, 2.122)
pt3dadd(99.29, 134.831, 10.157, 2.136)
pt3dadd(99.248, 134.942, 10.142, 2.148)
pt3dadd(99.206, 135.053, 10.128, 2.162)
pt3dadd(99.162, 135.163, 10.114, 2.168)
pt3dadd(99.115, 135.272, 10.101, 2.168)
pt3dadd(99.069, 135.383, 10.089, 2.17)
pt3dadd(99.022, 135.492, 10.076, 2.17)
pt3dadd(98.975, 135.601, 10.063, 2.172)
pt3dadd(98.928, 135.71, 10.051, 2.172)
pt3dadd(98.882, 135.821, 10.038, 2.174)
pt3dadd(98.835, 135.93, 10.025, 2.174)
pt3dadd(98.788, 136.039, 10.012, 2.174)
pt3dadd(98.742, 136.148, 10, 2.176)
pt3dadd(98.69, 136.256, 9.989, 2.162)
pt3dadd(98.633, 136.361, 9.98, 2.136)
pt3dadd(98.576, 136.466, 9.971, 2.11)
pt3dadd(98.519, 136.571, 9.962, 2.084)
pt3dadd(98.462, 136.676, 9.953, 2.058)
pt3dadd(98.405, 136.782, 9.944, 2.032)
pt3dadd(98.348, 136.886, 9.936, 2.006)
pt3dadd(98.291, 136.992, 9.927, 1.98)
pt3dadd(98.235, 137.096, 9.918, 1.954)
pt3dadd(98.178, 137.202, 9.909, 1.928)
pt3dadd(98.128, 137.31, 9.896, 1.928)
pt3dadd(98.085, 137.42, 9.882, 1.952)
pt3dadd(98.041, 137.531, 9.867, 1.976)
pt3dadd(97.998, 137.641, 9.852, 2)
pt3dadd(97.955, 137.752, 9.837, 2.024)
pt3dadd(97.911, 137.862, 9.822, 2.048)
pt3dadd(97.868, 137.972, 9.807, 2.072)
pt3dadd(97.825, 138.083, 9.792, 2.096)
pt3dadd(97.781, 138.193, 9.777, 2.12)
pt3dadd(97.738, 138.304, 9.762, 2.144)
pt3dadd(97.701, 138.416, 9.744, 2.186)
pt3dadd(97.668, 138.529, 9.723, 2.242)
pt3dadd(97.635, 138.641, 9.703, 2.296)
pt3dadd(97.602, 138.754, 9.682, 2.35)
pt3dadd(97.569, 138.866, 9.662, 2.406)
pt3dadd(97.536, 138.979, 9.641, 2.46)
pt3dadd(97.503, 139.092, 9.621, 2.514)
pt3dadd(97.47, 139.205, 9.601, 2.57)
pt3dadd(97.437, 139.318, 9.58, 2.624)
pt3dadd(97.404, 139.43, 9.559, 2.678)
pt3dadd(97.379, 139.536, 9.521, 2.682)
pt3dadd(97.358, 139.638, 9.471, 2.654)
pt3dadd(97.337, 139.74, 9.421, 2.626)
pt3dadd(97.316, 139.842, 9.371, 2.598)
pt3dadd(97.295, 139.944, 9.321, 2.57)
pt3dadd(97.274, 140.046, 9.272, 2.542)
pt3dadd(97.253, 140.148, 9.222, 2.514)
pt3dadd(97.232, 140.25, 9.172, 2.486)
pt3dadd(97.211, 140.352, 9.122, 2.458)
pt3dadd(97.19, 140.454, 9.073, 2.43)
pt3dadd(97.17, 140.551, 9.016, 2.402)
pt3dadd(97.151, 140.645, 8.956, 2.372)
pt3dadd(97.132, 140.738, 8.896, 2.342)
pt3dadd(97.113, 140.833, 8.836, 2.312)
pt3dadd(97.094, 140.927, 8.776, 2.28)
pt3dadd(97.075, 141.02, 8.715, 2.25)
pt3dadd(97.056, 141.114, 8.655, 2.22)
pt3dadd(97.038, 141.209, 8.595, 2.19)
pt3dadd(97.019, 141.302, 8.535, 2.16)
pt3dadd(97, 141.396, 8.475, 2.13)
pt3dadd(96.982, 141.481, 8.406, 2.1)
pt3dadd(96.965, 141.563, 8.334, 2.07)
pt3dadd(96.948, 141.644, 8.262, 2.038)
pt3dadd(96.931, 141.726, 8.19, 2.008)
pt3dadd(96.914, 141.808, 8.118, 1.978)
pt3dadd(96.897, 141.889, 8.046, 1.948)
pt3dadd(96.88, 141.971, 7.974, 1.916)
pt3dadd(96.863, 142.052, 7.902, 1.886)
pt3dadd(96.846, 142.134, 7.83, 1.856)
pt3dadd(96.829, 142.216, 7.758, 1.824)
pt3dadd(96.785, 142.309, 7.712, 1.842)
pt3dadd(96.733, 142.406, 7.673, 1.874)
pt3dadd(96.681, 142.505, 7.634, 1.904)
pt3dadd(96.63, 142.602, 7.595, 1.936)
pt3dadd(96.578, 142.699, 7.556, 1.968)
pt3dadd(96.526, 142.796, 7.517, 1.998)
pt3dadd(96.474, 142.895, 7.478, 2.03)
pt3dadd(96.422, 142.992, 7.439, 2.06)
pt3dadd(96.37, 143.089, 7.4, 2.092)
pt3dadd(96.318, 143.188, 7.361, 2.124)
pt3dadd(96.274, 143.293, 7.334, 2.112)
pt3dadd(96.234, 143.402, 7.31, 2.088)
pt3dadd(96.193, 143.512, 7.286, 2.064)
pt3dadd(96.152, 143.621, 7.262, 2.04)
pt3dadd(96.111, 143.73, 7.238, 2.016)
pt3dadd(96.07, 143.839, 7.214, 1.992)
pt3dadd(96.029, 143.948, 7.191, 1.968)
pt3dadd(95.988, 144.058, 7.167, 1.946)
pt3dadd(95.947, 144.167, 7.143, 1.922)
pt3dadd(95.907, 144.276, 7.119, 1.898)
pt3dadd(95.876, 144.391, 7.107, 1.848)
pt3dadd(95.846, 144.506, 7.096, 1.796)
pt3dadd(95.817, 144.622, 7.084, 1.744)
pt3dadd(95.787, 144.737, 7.073, 1.692)
pt3dadd(95.757, 144.853, 7.062, 1.64)
pt3dadd(95.728, 144.968, 7.051, 1.586)
pt3dadd(95.698, 145.084, 7.04, 1.534)
pt3dadd(95.669, 145.199, 7.029, 1.482)
pt3dadd(95.639, 145.315, 7.018, 1.43)
pt3dadd(95.609, 145.43, 7.006, 1.378)
pt3dadd(95.595, 145.549, 7.004, 1.388)
pt3dadd(95.581, 145.669, 7.003, 1.404)
pt3dadd(95.568, 145.788, 7.002, 1.418)
pt3dadd(95.554, 145.907, 7, 1.432)
pt3dadd(95.541, 146.027, 6.999, 1.446)
}
}
proc shape3d_40() {
apic[15] { pt3dadd(95.527, 146.146, 6.997, 1.46)
pt3dadd(95.514, 146.264, 6.996, 1.474)
pt3dadd(95.5, 146.384, 6.994, 1.49)
pt3dadd(95.487, 146.503, 6.993, 1.504)
pt3dadd(95.473, 146.622, 6.992, 1.518)
pt3dadd(95.466, 146.742, 6.989, 1.532)
pt3dadd(95.459, 146.862, 6.987, 1.546)
pt3dadd(95.453, 146.982, 6.985, 1.562)
pt3dadd(95.446, 147.102, 6.983, 1.576)
pt3dadd(95.44, 147.221, 6.981, 1.59)
pt3dadd(95.433, 147.341, 6.978, 1.604)
pt3dadd(95.427, 147.461, 6.976, 1.62)
pt3dadd(95.421, 147.581, 6.974, 1.634)
pt3dadd(95.414, 147.701, 6.972, 1.648)
pt3dadd(95.407, 147.821, 6.97, 1.662)
pt3dadd(95.406, 147.941, 6.967, 1.678)
pt3dadd(95.406, 148.06, 6.964, 1.692)
pt3dadd(95.405, 148.18, 6.961, 1.706)
pt3dadd(95.404, 148.3, 6.958, 1.72)
pt3dadd(95.404, 148.42, 6.955, 1.736)
pt3dadd(95.403, 148.54, 6.952, 1.75)
pt3dadd(95.402, 148.66, 6.95, 1.764)
pt3dadd(95.401, 148.78, 6.947, 1.778)
pt3dadd(95.401, 148.9, 6.944, 1.792)
pt3dadd(95.4, 149.02, 6.941, 1.808)
pt3dadd(95.398, 149.14, 6.934, 1.822)
pt3dadd(95.397, 149.26, 6.927, 1.836)
pt3dadd(95.395, 149.378, 6.92, 1.85)
pt3dadd(95.393, 149.498, 6.913, 1.866)
pt3dadd(95.392, 149.618, 6.906, 1.88)
pt3dadd(95.39, 149.738, 6.899, 1.894)
pt3dadd(95.388, 149.857, 6.892, 1.908)
pt3dadd(95.387, 149.977, 6.885, 1.922)
pt3dadd(95.385, 150.097, 6.878, 1.938)
pt3dadd(95.383, 150.217, 6.871, 1.952)
pt3dadd(95.381, 150.336, 6.862, 1.984)
pt3dadd(95.379, 150.456, 6.853, 2.018)
pt3dadd(95.376, 150.575, 6.844, 2.05)
pt3dadd(95.374, 150.695, 6.835, 2.084)
pt3dadd(95.371, 150.814, 6.826, 2.116)
pt3dadd(95.369, 150.934, 6.817, 2.15)
pt3dadd(95.367, 151.054, 6.808, 2.182)
pt3dadd(95.364, 151.172, 6.799, 2.216)
pt3dadd(95.362, 151.292, 6.79, 2.25)
pt3dadd(95.359, 151.411, 6.781, 2.282)
pt3dadd(95.356, 151.531, 6.77, 2.338)
pt3dadd(95.352, 151.65, 6.758, 2.396)
pt3dadd(95.349, 151.769, 6.747, 2.454)
pt3dadd(95.345, 151.889, 6.735, 2.512)
pt3dadd(95.342, 152.008, 6.724, 2.568)
pt3dadd(95.338, 152.126, 6.712, 2.626)
pt3dadd(95.335, 152.245, 6.701, 2.684)
pt3dadd(95.331, 152.365, 6.689, 2.74)
pt3dadd(95.328, 152.484, 6.678, 2.798)
pt3dadd(95.325, 152.603, 6.666, 2.856)
pt3dadd(95.318, 152.716, 6.633, 2.844)
pt3dadd(95.31, 152.828, 6.6, 2.828)
pt3dadd(95.303, 152.941, 6.566, 2.814)
pt3dadd(95.296, 153.054, 6.532, 2.798)
pt3dadd(95.289, 153.167, 6.498, 2.784)
pt3dadd(95.281, 153.28, 6.465, 2.768)
pt3dadd(95.274, 153.392, 6.431, 2.752)
pt3dadd(95.267, 153.505, 6.397, 2.738)
pt3dadd(95.26, 153.618, 6.363, 2.722)
pt3dadd(95.252, 153.731, 6.33, 2.706)
}
apic[16] {pt3dclear()
pt3dadd(95.252, 153.731, 6.33, 2.706)
pt3dadd(95.245, 153.826, 6.3, 2.682)
pt3dadd(95.236, 153.937, 6.266, 2.652)
pt3dadd(95.227, 154.05, 6.231, 2.622)
pt3dadd(95.218, 154.162, 6.196, 2.594)
pt3dadd(95.209, 154.274, 6.161, 2.564)
pt3dadd(95.2, 154.386, 6.127, 2.534)
pt3dadd(95.192, 154.499, 6.092, 2.504)
pt3dadd(95.183, 154.61, 6.057, 2.476)
pt3dadd(95.174, 154.723, 6.022, 2.446)
pt3dadd(95.165, 154.835, 5.988, 2.416)
pt3dadd(95.152, 154.95, 5.962, 2.376)
pt3dadd(95.139, 155.066, 5.938, 2.334)
pt3dadd(95.125, 155.182, 5.915, 2.292)
pt3dadd(95.112, 155.298, 5.891, 2.25)
pt3dadd(95.098, 155.413, 5.867, 2.208)
pt3dadd(95.085, 155.53, 5.844, 2.166)
pt3dadd(95.072, 155.645, 5.82, 2.124)
pt3dadd(95.058, 155.761, 5.796, 2.082)
pt3dadd(95.045, 155.876, 5.772, 2.042)
pt3dadd(95.031, 155.993, 5.748, 2)
pt3dadd(95.003, 156.107, 5.731, 1.99)
pt3dadd(94.972, 156.221, 5.715, 1.986)
pt3dadd(94.941, 156.335, 5.698, 1.982)
pt3dadd(94.909, 156.45, 5.682, 1.98)
pt3dadd(94.878, 156.564, 5.666, 1.976)
pt3dadd(94.847, 156.678, 5.649, 1.972)
pt3dadd(94.816, 156.792, 5.633, 1.968)
pt3dadd(94.785, 156.906, 5.617, 1.964)
pt3dadd(94.754, 157.021, 5.6, 1.962)
pt3dadd(94.723, 157.135, 5.584, 1.958)
pt3dadd(94.679, 157.246, 5.574, 1.984)
pt3dadd(94.635, 157.357, 5.564, 2.01)
pt3dadd(94.59, 157.468, 5.554, 2.036)
pt3dadd(94.546, 157.578, 5.543, 2.064)
pt3dadd(94.502, 157.69, 5.533, 2.09)
pt3dadd(94.457, 157.8, 5.523, 2.116)
pt3dadd(94.413, 157.91, 5.513, 2.144)
pt3dadd(94.368, 158.022, 5.503, 2.17)
pt3dadd(94.324, 158.132, 5.493, 2.196)
pt3dadd(94.28, 158.244, 5.483, 2.224)
pt3dadd(94.248, 158.359, 5.481, 2.228)
pt3dadd(94.217, 158.476, 5.48, 2.232)
pt3dadd(94.186, 158.591, 5.479, 2.236)
pt3dadd(94.155, 158.707, 5.478, 2.238)
pt3dadd(94.125, 158.822, 5.477, 2.242)
pt3dadd(94.094, 158.939, 5.476, 2.246)
pt3dadd(94.063, 159.055, 5.475, 2.25)
pt3dadd(94.032, 159.17, 5.474, 2.252)
pt3dadd(94.001, 159.287, 5.472, 2.256)
pt3dadd(93.97, 159.403, 5.471, 2.26)
pt3dadd(93.945, 159.52, 5.472, 2.252)
pt3dadd(93.921, 159.637, 5.472, 2.246)
pt3dadd(93.896, 159.755, 5.473, 2.238)
pt3dadd(93.871, 159.872, 5.473, 2.23)
pt3dadd(93.846, 159.99, 5.473, 2.222)
pt3dadd(93.821, 160.108, 5.474, 2.216)
pt3dadd(93.797, 160.224, 5.474, 2.208)
pt3dadd(93.772, 160.342, 5.475, 2.2)
pt3dadd(93.747, 160.459, 5.475, 2.192)
pt3dadd(93.722, 160.577, 5.475, 2.186)
}
apic[17] {pt3dclear()
pt3dadd(93.722, 160.577, 5.475, 2.186)
pt3dadd(93.709, 160.694, 5.476, 2.156)
pt3dadd(93.696, 160.813, 5.477, 2.128)
pt3dadd(93.683, 160.933, 5.477, 2.1)
pt3dadd(93.669, 161.052, 5.478, 2.07)
pt3dadd(93.656, 161.172, 5.479, 2.042)
pt3dadd(93.643, 161.291, 5.479, 2.012)
pt3dadd(93.629, 161.41, 5.48, 1.984)
pt3dadd(93.616, 161.53, 5.481, 1.956)
pt3dadd(93.603, 161.648, 5.481, 1.926)
pt3dadd(93.589, 161.767, 5.482, 1.898)
pt3dadd(93.585, 161.887, 5.483, 1.898)
pt3dadd(93.581, 162.007, 5.484, 1.9)
pt3dadd(93.577, 162.127, 5.486, 1.9)
pt3dadd(93.573, 162.247, 5.487, 1.902)
pt3dadd(93.569, 162.367, 5.488, 1.902)
pt3dadd(93.565, 162.487, 5.489, 1.904)
pt3dadd(93.561, 162.607, 5.491, 1.904)
pt3dadd(93.557, 162.727, 5.492, 1.906)
pt3dadd(93.552, 162.847, 5.493, 1.906)
pt3dadd(93.548, 162.967, 5.494, 1.908)
pt3dadd(93.548, 163.087, 5.496, 1.912)
pt3dadd(93.548, 163.207, 5.498, 1.914)
pt3dadd(93.548, 163.327, 5.499, 1.918)
pt3dadd(93.548, 163.447, 5.501, 1.922)
pt3dadd(93.548, 163.567, 5.503, 1.924)
pt3dadd(93.548, 163.687, 5.504, 1.928)
pt3dadd(93.548, 163.807, 5.506, 1.932)
pt3dadd(93.548, 163.927, 5.508, 1.936)
pt3dadd(93.548, 164.047, 5.509, 1.938)
pt3dadd(93.548, 164.167, 5.511, 1.942)
pt3dadd(93.548, 164.287, 5.514, 1.87)
pt3dadd(93.548, 164.407, 5.517, 1.798)
pt3dadd(93.548, 164.526, 5.52, 1.726)
pt3dadd(93.548, 164.646, 5.523, 1.652)
pt3dadd(93.548, 164.766, 5.526, 1.58)
pt3dadd(93.548, 164.886, 5.529, 1.508)
pt3dadd(93.548, 165.006, 5.532, 1.436)
pt3dadd(93.547, 165.126, 5.535, 1.364)
pt3dadd(93.547, 165.246, 5.538, 1.29)
pt3dadd(93.547, 165.366, 5.541, 1.218)
pt3dadd(93.547, 165.486, 5.547, 1.204)
pt3dadd(93.547, 165.606, 5.552, 1.188)
pt3dadd(93.547, 165.726, 5.557, 1.174)
pt3dadd(93.547, 165.846, 5.563, 1.158)
pt3dadd(93.547, 165.965, 5.568, 1.142)
pt3dadd(93.547, 166.085, 5.574, 1.128)
pt3dadd(93.547, 166.205, 5.579, 1.112)
pt3dadd(93.547, 166.325, 5.585, 1.098)
pt3dadd(93.547, 166.445, 5.59, 1.082)
pt3dadd(93.547, 166.565, 5.595, 1.068)
pt3dadd(93.547, 166.684, 5.603, 1.096)
pt3dadd(93.547, 166.804, 5.61, 1.124)
pt3dadd(93.547, 166.924, 5.617, 1.154)
pt3dadd(93.547, 167.044, 5.625, 1.182)
pt3dadd(93.547, 167.162, 5.632, 1.212)
pt3dadd(93.547, 167.282, 5.64, 1.24)
pt3dadd(93.547, 167.402, 5.647, 1.27)
pt3dadd(93.547, 167.522, 5.654, 1.298)
pt3dadd(93.547, 167.641, 5.661, 1.328)
pt3dadd(93.547, 167.761, 5.669, 1.356)
}
apic[18] {pt3dclear()
pt3dadd(93.547, 167.761, 5.669, 1.356)
pt3dadd(93.547, 167.806, 5.673, 1.362)
pt3dadd(93.547, 167.924, 5.686, 1.376)
pt3dadd(93.547, 168.043, 5.698, 1.39)
pt3dadd(93.547, 168.162, 5.71, 1.404)
pt3dadd(93.547, 168.282, 5.722, 1.418)
pt3dadd(93.546, 168.401, 5.734, 1.434)
pt3dadd(93.546, 168.52, 5.747, 1.448)
pt3dadd(93.546, 168.638, 5.759, 1.462)
pt3dadd(93.546, 168.758, 5.771, 1.476)
pt3dadd(93.546, 168.877, 5.783, 1.49)
pt3dadd(93.546, 168.994, 5.805, 1.494)
pt3dadd(93.546, 169.111, 5.827, 1.5)
}
}
proc shape3d_41() {
apic[18] { pt3dadd(93.545, 169.229, 5.849, 1.504)
pt3dadd(93.545, 169.345, 5.871, 1.508)
pt3dadd(93.545, 169.463, 5.893, 1.512)
pt3dadd(93.545, 169.579, 5.915, 1.516)
pt3dadd(93.544, 169.697, 5.937, 1.52)
pt3dadd(93.544, 169.813, 5.959, 1.526)
pt3dadd(93.544, 169.931, 5.981, 1.53)
pt3dadd(93.544, 170.047, 6.004, 1.532)
pt3dadd(93.543, 170.158, 6.042, 1.518)
pt3dadd(93.543, 170.269, 6.08, 1.506)
pt3dadd(93.543, 170.38, 6.119, 1.492)
pt3dadd(93.542, 170.491, 6.157, 1.478)
pt3dadd(93.542, 170.602, 6.195, 1.466)
pt3dadd(93.541, 170.712, 6.234, 1.452)
pt3dadd(93.541, 170.824, 6.272, 1.438)
pt3dadd(93.541, 170.934, 6.31, 1.426)
pt3dadd(93.54, 171.044, 6.349, 1.412)
pt3dadd(93.54, 171.156, 6.387, 1.398)
pt3dadd(93.539, 171.27, 6.417, 1.364)
pt3dadd(93.539, 171.384, 6.448, 1.332)
pt3dadd(93.538, 171.498, 6.478, 1.3)
pt3dadd(93.538, 171.613, 6.509, 1.266)
pt3dadd(93.537, 171.727, 6.539, 1.234)
pt3dadd(93.536, 171.841, 6.57, 1.202)
pt3dadd(93.536, 171.955, 6.6, 1.168)
pt3dadd(93.535, 172.07, 6.631, 1.136)
pt3dadd(93.535, 172.184, 6.662, 1.104)
pt3dadd(93.534, 172.298, 6.692, 1.07)
pt3dadd(93.533, 172.415, 6.718, 1.03)
pt3dadd(93.533, 172.53, 6.744, 0.99)
pt3dadd(93.532, 172.646, 6.77, 0.95)
pt3dadd(93.531, 172.762, 6.797, 0.908)
pt3dadd(93.53, 172.878, 6.823, 0.868)
pt3dadd(93.53, 172.993, 6.849, 0.828)
pt3dadd(93.529, 173.11, 6.875, 0.788)
pt3dadd(93.528, 173.225, 6.901, 0.748)
pt3dadd(93.528, 173.341, 6.928, 0.706)
pt3dadd(93.527, 173.456, 6.953, 0.668)
pt3dadd(93.525, 173.575, 6.971, 0.654)
pt3dadd(93.524, 173.693, 6.989, 0.64)
pt3dadd(93.522, 173.81, 7.008, 0.626)
pt3dadd(93.521, 173.929, 7.026, 0.612)
pt3dadd(93.519, 174.047, 7.044, 0.598)
pt3dadd(93.518, 174.164, 7.062, 0.584)
pt3dadd(93.517, 174.283, 7.08, 0.57)
pt3dadd(93.515, 174.401, 7.098, 0.556)
pt3dadd(93.514, 174.518, 7.116, 0.542)
pt3dadd(93.512, 174.637, 7.134, 0.528)
pt3dadd(93.51, 174.755, 7.15, 0.534)
pt3dadd(93.508, 174.874, 7.165, 0.54)
pt3dadd(93.505, 174.992, 7.18, 0.546)
pt3dadd(93.503, 175.111, 7.196, 0.552)
pt3dadd(93.501, 175.23, 7.211, 0.558)
pt3dadd(93.498, 175.348, 7.226, 0.564)
pt3dadd(93.496, 175.466, 7.242, 0.57)
pt3dadd(93.494, 175.585, 7.257, 0.574)
pt3dadd(93.492, 175.704, 7.273, 0.58)
pt3dadd(93.489, 175.823, 7.288, 0.588)
pt3dadd(93.486, 175.942, 7.3, 0.618)
pt3dadd(93.483, 176.06, 7.312, 0.646)
pt3dadd(93.48, 176.179, 7.324, 0.674)
pt3dadd(93.477, 176.299, 7.336, 0.704)
pt3dadd(93.474, 176.418, 7.349, 0.732)
pt3dadd(93.471, 176.537, 7.361, 0.76)
pt3dadd(93.468, 176.656, 7.373, 0.79)
pt3dadd(93.464, 176.774, 7.385, 0.818)
pt3dadd(93.461, 176.894, 7.397, 0.848)
pt3dadd(93.458, 177.012, 7.412, 0.876)
pt3dadd(93.451, 177.125, 7.447, 0.902)
pt3dadd(93.444, 177.236, 7.483, 0.93)
pt3dadd(93.437, 177.348, 7.518, 0.956)
pt3dadd(93.43, 177.46, 7.554, 0.984)
pt3dadd(93.423, 177.572, 7.59, 1.01)
pt3dadd(93.417, 177.684, 7.625, 1.038)
pt3dadd(93.41, 177.796, 7.661, 1.064)
pt3dadd(93.403, 177.908, 7.696, 1.092)
pt3dadd(93.396, 178.02, 7.732, 1.118)
pt3dadd(93.389, 178.132, 7.768, 1.146)
pt3dadd(93.381, 178.243, 7.803, 1.172)
pt3dadd(93.373, 178.355, 7.839, 1.2)
pt3dadd(93.364, 178.466, 7.875, 1.226)
pt3dadd(93.356, 178.578, 7.911, 1.254)
pt3dadd(93.348, 178.69, 7.947, 1.28)
pt3dadd(93.34, 178.802, 7.983, 1.308)
pt3dadd(93.332, 178.914, 8.019, 1.334)
pt3dadd(93.324, 179.026, 8.055, 1.362)
pt3dadd(93.315, 179.137, 8.091, 1.388)
pt3dadd(93.307, 179.249, 8.125, 1.416)
pt3dadd(93.294, 179.364, 8.152, 1.444)
pt3dadd(93.282, 179.479, 8.178, 1.472)
pt3dadd(93.27, 179.594, 8.205, 1.498)
pt3dadd(93.258, 179.71, 8.231, 1.526)
pt3dadd(93.246, 179.825, 8.258, 1.554)
pt3dadd(93.233, 179.94, 8.284, 1.582)
pt3dadd(93.221, 180.055, 8.311, 1.61)
pt3dadd(93.209, 180.169, 8.337, 1.638)
pt3dadd(93.197, 180.284, 8.363, 1.666)
pt3dadd(93.182, 180.4, 8.389, 1.69)
pt3dadd(93.153, 180.514, 8.41, 1.702)
pt3dadd(93.123, 180.626, 8.431, 1.714)
pt3dadd(93.094, 180.74, 8.452, 1.726)
pt3dadd(93.065, 180.854, 8.473, 1.738)
pt3dadd(93.035, 180.967, 8.494, 1.75)
pt3dadd(93.006, 181.081, 8.516, 1.762)
pt3dadd(92.977, 181.195, 8.537, 1.774)
pt3dadd(92.948, 181.308, 8.558, 1.786)
pt3dadd(92.918, 181.422, 8.579, 1.798)
pt3dadd(92.886, 181.535, 8.599, 1.808)
pt3dadd(92.844, 181.645, 8.616, 1.808)
pt3dadd(92.802, 181.757, 8.632, 1.808)
pt3dadd(92.76, 181.867, 8.649, 1.808)
pt3dadd(92.719, 181.978, 8.666, 1.808)
pt3dadd(92.677, 182.088, 8.683, 1.808)
pt3dadd(92.635, 182.198, 8.699, 1.808)
pt3dadd(92.593, 182.31, 8.716, 1.808)
pt3dadd(92.551, 182.42, 8.733, 1.808)
pt3dadd(92.509, 182.531, 8.75, 1.808)
pt3dadd(92.471, 182.642, 8.765, 1.802)
pt3dadd(92.447, 182.759, 8.777, 1.778)
pt3dadd(92.422, 182.875, 8.789, 1.752)
pt3dadd(92.397, 182.993, 8.801, 1.728)
pt3dadd(92.372, 183.109, 8.814, 1.702)
pt3dadd(92.348, 183.226, 8.826, 1.678)
pt3dadd(92.323, 183.342, 8.838, 1.654)
pt3dadd(92.298, 183.458, 8.85, 1.628)
pt3dadd(92.273, 183.575, 8.862, 1.604)
pt3dadd(92.248, 183.691, 8.874, 1.578)
pt3dadd(92.226, 183.808, 8.887, 1.552)
pt3dadd(92.209, 183.925, 8.906, 1.52)
pt3dadd(92.192, 184.042, 8.925, 1.488)
pt3dadd(92.175, 184.158, 8.944, 1.456)
pt3dadd(92.158, 184.274, 8.963, 1.424)
pt3dadd(92.141, 184.391, 8.982, 1.392)
pt3dadd(92.124, 184.507, 9, 1.36)
pt3dadd(92.107, 184.625, 9.019, 1.328)
pt3dadd(92.09, 184.741, 9.038, 1.296)
pt3dadd(92.073, 184.858, 9.057, 1.264)
pt3dadd(92.061, 184.973, 9.082, 1.23)
pt3dadd(92.058, 185.084, 9.119, 1.19)
pt3dadd(92.055, 185.195, 9.156, 1.15)
pt3dadd(92.053, 185.306, 9.193, 1.108)
pt3dadd(92.05, 185.418, 9.231, 1.068)
pt3dadd(92.047, 185.53, 9.268, 1.028)
pt3dadd(92.045, 185.641, 9.305, 0.988)
pt3dadd(92.042, 185.752, 9.342, 0.948)
pt3dadd(92.04, 185.863, 9.379, 0.908)
pt3dadd(92.037, 185.975, 9.417, 0.868)
pt3dadd(92.042, 186.086, 9.451, 0.84)
pt3dadd(92.064, 186.199, 9.48, 0.84)
pt3dadd(92.085, 186.312, 9.51, 0.84)
pt3dadd(92.106, 186.425, 9.539, 0.84)
pt3dadd(92.127, 186.538, 9.568, 0.84)
pt3dadd(92.148, 186.65, 9.597, 0.838)
pt3dadd(92.169, 186.763, 9.626, 0.838)
pt3dadd(92.19, 186.876, 9.655, 0.838)
pt3dadd(92.211, 186.989, 9.684, 0.838)
pt3dadd(92.232, 187.102, 9.714, 0.838)
pt3dadd(92.261, 187.214, 9.74, 0.85)
pt3dadd(92.298, 187.325, 9.763, 0.878)
pt3dadd(92.334, 187.435, 9.786, 0.904)
pt3dadd(92.371, 187.547, 9.809, 0.932)
pt3dadd(92.408, 187.657, 9.831, 0.958)
pt3dadd(92.445, 187.769, 9.854, 0.984)
pt3dadd(92.481, 187.879, 9.877, 1.012)
pt3dadd(92.518, 187.99, 9.9, 1.038)
pt3dadd(92.555, 188.101, 9.923, 1.064)
pt3dadd(92.591, 188.212, 9.946, 1.092)
pt3dadd(92.619, 188.326, 9.964, 1.088)
pt3dadd(92.636, 188.444, 9.976, 1.05)
pt3dadd(92.653, 188.562, 9.989, 1.014)
pt3dadd(92.67, 188.68, 10.001, 0.978)
pt3dadd(92.688, 188.797, 10.013, 0.942)
pt3dadd(92.705, 188.915, 10.026, 0.906)
pt3dadd(92.722, 189.032, 10.038, 0.868)
pt3dadd(92.74, 189.151, 10.05, 0.832)
pt3dadd(92.757, 189.269, 10.063, 0.796)
pt3dadd(92.774, 189.386, 10.075, 0.76)
pt3dadd(92.783, 189.505, 10.085, 0.734)
pt3dadd(92.782, 189.625, 10.093, 0.718)
pt3dadd(92.782, 189.744, 10.101, 0.702)
pt3dadd(92.781, 189.864, 10.109, 0.686)
pt3dadd(92.781, 189.984, 10.117, 0.67)
pt3dadd(92.781, 190.103, 10.125, 0.654)
pt3dadd(92.78, 190.223, 10.133, 0.638)
pt3dadd(92.78, 190.343, 10.141, 0.622)
pt3dadd(92.78, 190.462, 10.149, 0.606)
pt3dadd(92.779, 190.582, 10.157, 0.59)
pt3dadd(92.755, 190.698, 10.16, 0.616)
pt3dadd(92.722, 190.813, 10.16, 0.658)
pt3dadd(92.689, 190.928, 10.161, 0.7)
pt3dadd(92.655, 191.044, 10.161, 0.742)
pt3dadd(92.622, 191.159, 10.162, 0.782)
pt3dadd(92.589, 191.274, 10.163, 0.824)
pt3dadd(92.555, 191.39, 10.163, 0.866)
pt3dadd(92.522, 191.506, 10.164, 0.908)
pt3dadd(92.488, 191.621, 10.164, 0.95)
pt3dadd(92.455, 191.736, 10.165, 0.992)
pt3dadd(92.424, 191.851, 10.166, 1.012)
pt3dadd(92.394, 191.968, 10.167, 1.026)
pt3dadd(92.363, 192.084, 10.168, 1.038)
}
}
proc shape3d_42() {
apic[18] { pt3dadd(92.333, 192.199, 10.17, 1.05)
pt3dadd(92.303, 192.316, 10.171, 1.064)
pt3dadd(92.272, 192.432, 10.172, 1.076)
pt3dadd(92.242, 192.548, 10.173, 1.088)
pt3dadd(92.211, 192.664, 10.174, 1.102)
pt3dadd(92.181, 192.78, 10.175, 1.114)
pt3dadd(92.151, 192.896, 10.176, 1.126)
pt3dadd(92.122, 193.013, 10.178, 1.128)
pt3dadd(92.095, 193.129, 10.179, 1.124)
pt3dadd(92.067, 193.247, 10.181, 1.12)
pt3dadd(92.04, 193.363, 10.182, 1.116)
pt3dadd(92.012, 193.48, 10.184, 1.112)
pt3dadd(91.984, 193.597, 10.185, 1.108)
pt3dadd(91.957, 193.714, 10.187, 1.104)
pt3dadd(91.929, 193.83, 10.188, 1.1)
pt3dadd(91.901, 193.946, 10.19, 1.098)
pt3dadd(91.874, 194.064, 10.191, 1.094)
pt3dadd(91.856, 194.183, 10.194, 1.062)
pt3dadd(91.843, 194.302, 10.197, 1.018)
pt3dadd(91.829, 194.42, 10.2, 0.974)
pt3dadd(91.816, 194.539, 10.202, 0.932)
pt3dadd(91.802, 194.659, 10.205, 0.888)
pt3dadd(91.788, 194.778, 10.208, 0.846)
pt3dadd(91.775, 194.897, 10.211, 0.802)
pt3dadd(91.761, 195.017, 10.214, 0.76)
pt3dadd(91.748, 195.136, 10.217, 0.716)
pt3dadd(91.734, 195.254, 10.219, 0.672)
pt3dadd(91.725, 195.374, 10.224, 0.64)
pt3dadd(91.718, 195.494, 10.229, 0.612)
pt3dadd(91.711, 195.613, 10.234, 0.584)
pt3dadd(91.704, 195.733, 10.239, 0.556)
pt3dadd(91.698, 195.853, 10.244, 0.526)
pt3dadd(91.691, 195.973, 10.249, 0.498)
pt3dadd(91.684, 196.092, 10.254, 0.47)
pt3dadd(91.677, 196.212, 10.259, 0.442)
pt3dadd(91.67, 196.332, 10.264, 0.414)
pt3dadd(91.663, 196.451, 10.269, 0.386)
pt3dadd(91.66, 196.571, 10.275, 0.366)
pt3dadd(91.659, 196.691, 10.282, 0.352)
pt3dadd(91.659, 196.811, 10.289, 0.338)
pt3dadd(91.658, 196.93, 10.296, 0.324)
pt3dadd(91.657, 197.05, 10.303, 0.31)
pt3dadd(91.656, 197.17, 10.31, 0.294)
pt3dadd(91.655, 197.29, 10.317, 0.28)
pt3dadd(91.654, 197.408, 10.324, 0.266)
pt3dadd(91.653, 197.528, 10.331, 0.252)
pt3dadd(91.653, 197.648, 10.339, 0.238)
pt3dadd(91.651, 197.767, 10.349, 0.252)
pt3dadd(91.65, 197.887, 10.36, 0.28)
pt3dadd(91.648, 198.006, 10.371, 0.306)
pt3dadd(91.647, 198.125, 10.383, 0.332)
pt3dadd(91.645, 198.245, 10.394, 0.36)
pt3dadd(91.643, 198.364, 10.405, 0.386)
pt3dadd(91.642, 198.482, 10.417, 0.412)
pt3dadd(91.64, 198.602, 10.428, 0.438)
pt3dadd(91.639, 198.721, 10.439, 0.466)
pt3dadd(91.637, 198.84, 10.451, 0.492)
pt3dadd(91.635, 198.959, 10.469, 0.508)
pt3dadd(91.633, 199.075, 10.491, 0.522)
pt3dadd(91.631, 199.193, 10.512, 0.534)
pt3dadd(91.628, 199.309, 10.534, 0.548)
pt3dadd(91.626, 199.427, 10.555, 0.56)
pt3dadd(91.624, 199.544, 10.577, 0.574)
pt3dadd(91.621, 199.661, 10.598, 0.586)
pt3dadd(91.619, 199.778, 10.62, 0.6)
pt3dadd(91.617, 199.896, 10.641, 0.612)
pt3dadd(91.614, 200.012, 10.662, 0.624)
pt3dadd(91.611, 200.125, 10.697, 0.616)
pt3dadd(91.608, 200.237, 10.734, 0.602)
pt3dadd(91.605, 200.348, 10.771, 0.59)
pt3dadd(91.602, 200.459, 10.808, 0.576)
pt3dadd(91.599, 200.57, 10.845, 0.562)
pt3dadd(91.596, 200.682, 10.883, 0.548)
pt3dadd(91.593, 200.794, 10.92, 0.536)
pt3dadd(91.59, 200.905, 10.957, 0.522)
pt3dadd(91.587, 201.016, 10.994, 0.508)
pt3dadd(91.583, 201.127, 11.031, 0.496)
pt3dadd(91.577, 201.242, 11.061, 0.514)
pt3dadd(91.571, 201.356, 11.089, 0.538)
pt3dadd(91.564, 201.472, 11.117, 0.564)
pt3dadd(91.557, 201.587, 11.145, 0.59)
pt3dadd(91.551, 201.702, 11.173, 0.614)
pt3dadd(91.544, 201.817, 11.201, 0.64)
pt3dadd(91.538, 201.932, 11.229, 0.666)
pt3dadd(91.531, 202.046, 11.257, 0.69)
pt3dadd(91.524, 202.162, 11.285, 0.716)
pt3dadd(91.518, 202.277, 11.313, 0.74)
pt3dadd(91.509, 202.393, 11.337, 0.776)
pt3dadd(91.501, 202.51, 11.359, 0.814)
pt3dadd(91.492, 202.626, 11.382, 0.85)
pt3dadd(91.483, 202.742, 11.405, 0.888)
pt3dadd(91.474, 202.859, 11.428, 0.926)
pt3dadd(91.466, 202.975, 11.451, 0.962)
pt3dadd(91.457, 203.093, 11.474, 1)
pt3dadd(91.448, 203.209, 11.497, 1.038)
pt3dadd(91.439, 203.326, 11.519, 1.074)
pt3dadd(91.431, 203.442, 11.542, 1.112)
pt3dadd(91.418, 203.56, 11.555, 1.106)
pt3dadd(91.404, 203.678, 11.566, 1.092)
pt3dadd(91.39, 203.797, 11.577, 1.078)
pt3dadd(91.376, 203.915, 11.588, 1.064)
pt3dadd(91.362, 204.034, 11.599, 1.048)
pt3dadd(91.349, 204.152, 11.61, 1.034)
pt3dadd(91.335, 204.271, 11.621, 1.02)
pt3dadd(91.321, 204.389, 11.632, 1.006)
pt3dadd(91.307, 204.508, 11.643, 0.992)
pt3dadd(91.293, 204.626, 11.654, 0.978)
pt3dadd(91.266, 204.743, 11.66, 0.974)
pt3dadd(91.237, 204.859, 11.666, 0.974)
pt3dadd(91.207, 204.974, 11.671, 0.974)
pt3dadd(91.177, 205.091, 11.677, 0.974)
pt3dadd(91.148, 205.207, 11.682, 0.974)
pt3dadd(91.118, 205.324, 11.688, 0.974)
pt3dadd(91.089, 205.439, 11.693, 0.972)
pt3dadd(91.059, 205.555, 11.699, 0.972)
pt3dadd(91.029, 205.672, 11.704, 0.972)
pt3dadd(91, 205.788, 11.71, 0.972)
pt3dadd(90.956, 205.9, 11.71, 0.984)
pt3dadd(90.911, 206.01, 11.71, 0.998)
pt3dadd(90.867, 206.122, 11.71, 1.012)
pt3dadd(90.822, 206.233, 11.71, 1.024)
pt3dadd(90.777, 206.345, 11.71, 1.038)
pt3dadd(90.733, 206.456, 11.71, 1.052)
pt3dadd(90.688, 206.568, 11.71, 1.064)
pt3dadd(90.644, 206.678, 11.71, 1.078)
pt3dadd(90.599, 206.79, 11.71, 1.092)
pt3dadd(90.554, 206.902, 11.71, 1.106)
pt3dadd(90.522, 207.017, 11.71, 1.13)
pt3dadd(90.49, 207.133, 11.71, 1.156)
pt3dadd(90.459, 207.248, 11.71, 1.182)
pt3dadd(90.427, 207.365, 11.71, 1.206)
pt3dadd(90.396, 207.48, 11.71, 1.232)
pt3dadd(90.364, 207.596, 11.71, 1.258)
pt3dadd(90.332, 207.712, 11.71, 1.284)
pt3dadd(90.301, 207.828, 11.71, 1.308)
pt3dadd(90.269, 207.943, 11.71, 1.334)
pt3dadd(90.237, 208.06, 11.71, 1.36)
pt3dadd(90.212, 208.176, 11.71, 1.37)
pt3dadd(90.186, 208.294, 11.71, 1.38)
pt3dadd(90.161, 208.411, 11.71, 1.39)
pt3dadd(90.135, 208.528, 11.71, 1.4)
pt3dadd(90.11, 208.645, 11.71, 1.41)
pt3dadd(90.084, 208.763, 11.71, 1.42)
pt3dadd(90.059, 208.88, 11.71, 1.43)
pt3dadd(90.033, 208.997, 11.71, 1.44)
pt3dadd(90.008, 209.114, 11.71, 1.45)
pt3dadd(89.983, 209.232, 11.71, 1.46)
pt3dadd(89.969, 209.351, 11.71, 1.404)
pt3dadd(89.956, 209.471, 11.71, 1.346)
pt3dadd(89.942, 209.59, 11.71, 1.288)
pt3dadd(89.929, 209.708, 11.71, 1.232)
pt3dadd(89.916, 209.828, 11.71, 1.174)
pt3dadd(89.902, 209.947, 11.71, 1.116)
pt3dadd(89.889, 210.066, 11.71, 1.058)
pt3dadd(89.876, 210.186, 11.71, 1)
pt3dadd(89.862, 210.305, 11.71, 0.944)
pt3dadd(89.849, 210.425, 11.71, 0.886)
pt3dadd(89.844, 210.544, 11.71, 0.864)
pt3dadd(89.839, 210.664, 11.71, 0.844)
pt3dadd(89.834, 210.784, 11.71, 0.822)
pt3dadd(89.83, 210.904, 11.71, 0.802)
pt3dadd(89.825, 211.024, 11.71, 0.782)
pt3dadd(89.82, 211.144, 11.71, 0.76)
pt3dadd(89.815, 211.264, 11.71, 0.74)
pt3dadd(89.81, 211.384, 11.71, 0.72)
pt3dadd(89.806, 211.504, 11.71, 0.698)
pt3dadd(89.801, 211.624, 11.71, 0.678)
pt3dadd(89.801, 211.744, 11.71, 0.676)
pt3dadd(89.801, 211.864, 11.71, 0.674)
pt3dadd(89.801, 211.984, 11.71, 0.67)
pt3dadd(89.801, 212.104, 11.71, 0.668)
pt3dadd(89.801, 212.224, 11.71, 0.666)
pt3dadd(89.801, 212.344, 11.71, 0.664)
pt3dadd(89.801, 212.464, 11.71, 0.662)
pt3dadd(89.801, 212.584, 11.71, 0.66)
pt3dadd(89.801, 212.704, 11.71, 0.656)
pt3dadd(89.801, 212.824, 11.71, 0.654)
pt3dadd(89.801, 212.944, 11.71, 0.626)
pt3dadd(89.801, 213.064, 11.71, 0.596)
pt3dadd(89.8, 213.184, 11.71, 0.568)
pt3dadd(89.8, 213.304, 11.71, 0.54)
pt3dadd(89.8, 213.424, 11.71, 0.51)
pt3dadd(89.8, 213.544, 11.71, 0.482)
pt3dadd(89.8, 213.664, 11.71, 0.452)
pt3dadd(89.8, 213.784, 11.71, 0.424)
pt3dadd(89.8, 213.904, 11.71, 0.394)
pt3dadd(89.8, 214.024, 11.71, 0.366)
pt3dadd(89.799, 214.144, 11.71, 0.352)
pt3dadd(89.799, 214.264, 11.71, 0.338)
pt3dadd(89.799, 214.384, 11.71, 0.324)
pt3dadd(89.799, 214.504, 11.71, 0.31)
pt3dadd(89.799, 214.624, 11.71, 0.296)
pt3dadd(89.799, 214.744, 11.71, 0.282)
pt3dadd(89.799, 214.864, 11.71, 0.268)
pt3dadd(89.799, 214.984, 11.71, 0.254)
pt3dadd(89.799, 215.104, 11.71, 0.24)
pt3dadd(89.798, 215.224, 11.71, 0.226)
pt3dadd(89.798, 215.344, 11.71, 0.226)
pt3dadd(89.798, 215.464, 11.71, 0.226)
pt3dadd(89.798, 215.584, 11.71, 0.226)
}
}
proc shape3d_43() {
apic[18] { pt3dadd(89.798, 215.704, 11.71, 0.226)
pt3dadd(89.798, 215.824, 11.71, 0.226)
pt3dadd(89.798, 215.944, 11.71, 0.226)
pt3dadd(89.798, 216.064, 11.71, 0.226)
pt3dadd(89.797, 216.184, 11.71, 0.226)
pt3dadd(89.797, 216.304, 11.71, 0.226)
pt3dadd(89.797, 216.424, 11.71, 0.226)
pt3dadd(89.797, 216.544, 11.71, 0.226)
pt3dadd(89.796, 216.664, 11.71, 0.226)
pt3dadd(89.796, 216.784, 11.71, 0.226)
pt3dadd(89.796, 216.904, 11.71, 0.226)
pt3dadd(89.795, 217.024, 11.71, 0.226)
pt3dadd(89.795, 217.144, 11.71, 0.226)
pt3dadd(89.795, 217.264, 11.71, 0.226)
pt3dadd(89.794, 217.384, 11.71, 0.226)
pt3dadd(89.794, 217.504, 11.71, 0.226)
pt3dadd(89.794, 217.624, 11.71, 0.226)
pt3dadd(89.793, 217.744, 11.71, 0.244)
pt3dadd(89.792, 217.864, 11.71, 0.26)
pt3dadd(89.792, 217.984, 11.71, 0.278)
pt3dadd(89.791, 218.104, 11.71, 0.294)
pt3dadd(89.791, 218.224, 11.71, 0.312)
pt3dadd(89.79, 218.344, 11.71, 0.33)
pt3dadd(89.789, 218.464, 11.71, 0.346)
pt3dadd(89.789, 218.584, 11.71, 0.364)
pt3dadd(89.788, 218.704, 11.71, 0.38)
pt3dadd(89.788, 218.824, 11.71, 0.398)
pt3dadd(89.787, 218.944, 11.71, 0.442)
pt3dadd(89.786, 219.064, 11.71, 0.484)
pt3dadd(89.785, 219.184, 11.71, 0.528)
pt3dadd(89.785, 219.304, 11.71, 0.572)
pt3dadd(89.784, 219.424, 11.71, 0.614)
pt3dadd(89.783, 219.544, 11.71, 0.658)
pt3dadd(89.783, 219.664, 11.71, 0.702)
pt3dadd(89.782, 219.784, 11.71, 0.746)
pt3dadd(89.781, 219.904, 11.71, 0.788)
pt3dadd(89.78, 220.024, 11.71, 0.832)
pt3dadd(89.779, 220.144, 11.71, 0.876)
pt3dadd(89.777, 220.264, 11.71, 0.918)
pt3dadd(89.776, 220.384, 11.71, 0.962)
pt3dadd(89.774, 220.504, 11.71, 1.006)
pt3dadd(89.773, 220.624, 11.71, 1.05)
pt3dadd(89.771, 220.744, 11.71, 1.092)
pt3dadd(89.769, 220.864, 11.71, 1.136)
pt3dadd(89.768, 220.984, 11.71, 1.18)
pt3dadd(89.766, 221.104, 11.71, 1.222)
pt3dadd(89.765, 221.224, 11.71, 1.266)
pt3dadd(89.763, 221.344, 11.71, 1.286)
pt3dadd(89.76, 221.464, 11.71, 1.306)
pt3dadd(89.758, 221.584, 11.71, 1.326)
pt3dadd(89.756, 221.704, 11.71, 1.346)
pt3dadd(89.753, 221.824, 11.71, 1.364)
pt3dadd(89.751, 221.944, 11.71, 1.384)
}
dend_5[5] {pt3dclear()
pt3dadd(89.751, 221.944, 11.71, 1.384)
pt3dadd(89.749, 222.064, 11.71, 1.404)
pt3dadd(89.747, 222.182, 11.71, 1.424)
pt3dadd(89.744, 222.302, 11.71, 1.444)
pt3dadd(89.742, 222.422, 11.71, 1.464)
pt3dadd(89.738, 222.542, 11.71, 1.42)
pt3dadd(89.735, 222.662, 11.71, 1.376)
pt3dadd(89.731, 222.782, 11.71, 1.334)
pt3dadd(89.728, 222.902, 11.71, 1.29)
pt3dadd(89.724, 223.022, 11.71, 1.246)
pt3dadd(89.72, 223.142, 11.71, 1.202)
pt3dadd(89.717, 223.262, 11.71, 1.16)
pt3dadd(89.713, 223.382, 11.71, 1.116)
pt3dadd(89.71, 223.502, 11.71, 1.072)
pt3dadd(89.706, 223.622, 11.71, 1.03)
}
dend_5[6] {pt3dclear()
pt3dadd(89.706, 223.622, 11.71, 1.03)
pt3dadd(89.701, 223.704, 11.71, 1)
pt3dadd(89.694, 223.824, 11.71, 0.956)
pt3dadd(89.687, 223.943, 11.71, 0.914)
pt3dadd(89.68, 224.063, 11.71, 0.87)
pt3dadd(89.673, 224.183, 11.71, 0.826)
pt3dadd(89.666, 224.303, 11.71, 0.784)
pt3dadd(89.659, 224.423, 11.71, 0.74)
pt3dadd(89.652, 224.542, 11.71, 0.696)
pt3dadd(89.645, 224.662, 11.71, 0.654)
pt3dadd(89.637, 224.782, 11.71, 0.61)
pt3dadd(89.629, 224.902, 11.71, 0.572)
pt3dadd(89.62, 225.022, 11.71, 0.534)
pt3dadd(89.61, 225.14, 11.71, 0.496)
pt3dadd(89.601, 225.26, 11.71, 0.46)
pt3dadd(89.591, 225.38, 11.71, 0.424)
pt3dadd(89.582, 225.499, 11.71, 0.386)
pt3dadd(89.573, 225.619, 11.71, 0.348)
pt3dadd(89.563, 225.739, 11.71, 0.312)
pt3dadd(89.554, 225.858, 11.71, 0.274)
pt3dadd(89.545, 225.978, 11.71, 0.238)
pt3dadd(89.532, 226.098, 11.71, 0.226)
pt3dadd(89.518, 226.217, 11.71, 0.226)
pt3dadd(89.503, 226.336, 11.71, 0.226)
pt3dadd(89.489, 226.454, 11.71, 0.226)
pt3dadd(89.475, 226.574, 11.71, 0.226)
pt3dadd(89.46, 226.693, 11.71, 0.226)
pt3dadd(89.446, 226.812, 11.71, 0.226)
pt3dadd(89.432, 226.932, 11.71, 0.226)
pt3dadd(89.418, 227.051, 11.71, 0.226)
pt3dadd(89.403, 227.17, 11.71, 0.226)
pt3dadd(89.377, 227.286, 11.71, 0.242)
pt3dadd(89.345, 227.402, 11.71, 0.266)
pt3dadd(89.313, 227.518, 11.71, 0.288)
pt3dadd(89.28, 227.633, 11.71, 0.312)
pt3dadd(89.248, 227.749, 11.71, 0.334)
pt3dadd(89.216, 227.864, 11.71, 0.358)
pt3dadd(89.184, 227.98, 11.71, 0.382)
pt3dadd(89.152, 228.096, 11.71, 0.404)
pt3dadd(89.119, 228.211, 11.71, 0.428)
pt3dadd(89.087, 228.326, 11.71, 0.452)
pt3dadd(89.045, 228.439, 11.71, 0.488)
pt3dadd(89, 228.551, 11.71, 0.528)
pt3dadd(88.954, 228.661, 11.71, 0.568)
pt3dadd(88.909, 228.773, 11.71, 0.608)
pt3dadd(88.864, 228.883, 11.71, 0.648)
pt3dadd(88.819, 228.995, 11.71, 0.688)
pt3dadd(88.773, 229.106, 11.71, 0.73)
pt3dadd(88.728, 229.217, 11.71, 0.77)
pt3dadd(88.683, 229.328, 11.71, 0.81)
pt3dadd(88.638, 229.439, 11.71, 0.85)
pt3dadd(88.603, 229.554, 11.71, 0.872)
pt3dadd(88.571, 229.669, 11.71, 0.89)
pt3dadd(88.539, 229.786, 11.71, 0.906)
pt3dadd(88.507, 229.901, 11.71, 0.922)
pt3dadd(88.475, 230.017, 11.71, 0.94)
pt3dadd(88.443, 230.132, 11.71, 0.956)
pt3dadd(88.411, 230.248, 11.71, 0.974)
pt3dadd(88.379, 230.364, 11.71, 0.99)
pt3dadd(88.347, 230.479, 11.71, 1.008)
pt3dadd(88.315, 230.596, 11.71, 1.024)
pt3dadd(88.287, 230.712, 11.71, 1.04)
pt3dadd(88.261, 230.828, 11.71, 1.054)
pt3dadd(88.234, 230.946, 11.71, 1.068)
pt3dadd(88.207, 231.062, 11.71, 1.082)
pt3dadd(88.181, 231.18, 11.71, 1.096)
pt3dadd(88.154, 231.296, 11.71, 1.11)
pt3dadd(88.127, 231.414, 11.71, 1.124)
pt3dadd(88.101, 231.53, 11.71, 1.138)
pt3dadd(88.074, 231.648, 11.71, 1.152)
pt3dadd(88.047, 231.764, 11.71, 1.166)
pt3dadd(88.029, 231.883, 11.71, 1.18)
pt3dadd(88.012, 232.002, 11.71, 1.194)
pt3dadd(87.995, 232.121, 11.71, 1.21)
pt3dadd(87.979, 232.24, 11.71, 1.224)
pt3dadd(87.962, 232.358, 11.71, 1.238)
pt3dadd(87.946, 232.477, 11.71, 1.252)
pt3dadd(87.929, 232.596, 11.71, 1.266)
pt3dadd(87.913, 232.715, 11.71, 1.28)
pt3dadd(87.896, 232.834, 11.71, 1.296)
pt3dadd(87.879, 232.952, 11.71, 1.31)
pt3dadd(87.867, 233.072, 11.71, 1.316)
pt3dadd(87.856, 233.191, 11.71, 1.32)
pt3dadd(87.846, 233.311, 11.71, 1.324)
pt3dadd(87.835, 233.431, 11.71, 1.33)
pt3dadd(87.824, 233.55, 11.71, 1.334)
pt3dadd(87.813, 233.67, 11.71, 1.338)
pt3dadd(87.802, 233.789, 11.71, 1.342)
pt3dadd(87.791, 233.909, 11.71, 1.346)
pt3dadd(87.78, 234.029, 11.71, 1.35)
pt3dadd(87.769, 234.148, 11.71, 1.356)
pt3dadd(87.76, 234.268, 11.71, 1.356)
pt3dadd(87.75, 234.386, 11.71, 1.356)
pt3dadd(87.741, 234.506, 11.71, 1.356)
pt3dadd(87.732, 234.626, 11.71, 1.356)
pt3dadd(87.723, 234.746, 11.71, 1.356)
pt3dadd(87.714, 234.865, 11.71, 1.356)
pt3dadd(87.705, 234.985, 11.71, 1.356)
pt3dadd(87.696, 235.105, 11.71, 1.356)
pt3dadd(87.687, 235.224, 11.71, 1.356)
pt3dadd(87.678, 235.344, 11.71, 1.356)
pt3dadd(87.665, 235.464, 11.71, 1.356)
pt3dadd(87.651, 235.583, 11.71, 1.356)
pt3dadd(87.637, 235.702, 11.71, 1.356)
pt3dadd(87.623, 235.822, 11.709, 1.356)
pt3dadd(87.609, 235.94, 11.709, 1.356)
pt3dadd(87.595, 236.059, 11.709, 1.356)
pt3dadd(87.581, 236.179, 11.709, 1.356)
pt3dadd(87.567, 236.298, 11.709, 1.356)
pt3dadd(87.553, 236.417, 11.709, 1.356)
pt3dadd(87.539, 236.537, 11.709, 1.356)
pt3dadd(87.512, 236.653, 11.709, 1.356)
pt3dadd(87.48, 236.768, 11.709, 1.356)
pt3dadd(87.449, 236.885, 11.709, 1.356)
pt3dadd(87.417, 237, 11.709, 1.356)
pt3dadd(87.386, 237.116, 11.709, 1.356)
pt3dadd(87.355, 237.232, 11.709, 1.356)
pt3dadd(87.323, 237.348, 11.709, 1.356)
pt3dadd(87.292, 237.463, 11.709, 1.356)
pt3dadd(87.261, 237.58, 11.709, 1.356)
pt3dadd(87.229, 237.695, 11.709, 1.356)
pt3dadd(87.186, 237.808, 11.709, 1.356)
pt3dadd(87.142, 237.918, 11.709, 1.356)
pt3dadd(87.097, 238.03, 11.709, 1.356)
pt3dadd(87.052, 238.141, 11.709, 1.356)
pt3dadd(87.008, 238.253, 11.708, 1.356)
pt3dadd(86.963, 238.364, 11.708, 1.356)
pt3dadd(86.918, 238.476, 11.708, 1.356)
pt3dadd(86.874, 238.586, 11.708, 1.356)
pt3dadd(86.829, 238.698, 11.708, 1.356)
pt3dadd(86.784, 238.81, 11.708, 1.356)
pt3dadd(86.752, 238.925, 11.708, 1.312)
}
}
proc shape3d_44() {
dend_5[6] { pt3dadd(86.721, 239.041, 11.708, 1.262)
pt3dadd(86.691, 239.158, 11.708, 1.214)
pt3dadd(86.66, 239.273, 11.708, 1.164)
pt3dadd(86.629, 239.389, 11.708, 1.114)
pt3dadd(86.598, 239.506, 11.707, 1.066)
pt3dadd(86.568, 239.621, 11.707, 1.016)
pt3dadd(86.537, 239.737, 11.707, 0.966)
pt3dadd(86.506, 239.854, 11.707, 0.916)
pt3dadd(86.475, 239.969, 11.707, 0.868)
pt3dadd(86.45, 240.086, 11.707, 0.846)
pt3dadd(86.425, 240.204, 11.707, 0.828)
pt3dadd(86.401, 240.322, 11.707, 0.81)
pt3dadd(86.376, 240.439, 11.706, 0.794)
pt3dadd(86.352, 240.556, 11.706, 0.776)
pt3dadd(86.327, 240.673, 11.706, 0.758)
pt3dadd(86.302, 240.791, 11.706, 0.74)
pt3dadd(86.278, 240.908, 11.706, 0.722)
pt3dadd(86.253, 241.026, 11.705, 0.706)
pt3dadd(86.228, 241.144, 11.705, 0.688)
pt3dadd(86.214, 241.262, 11.705, 0.764)
pt3dadd(86.201, 241.381, 11.705, 0.85)
pt3dadd(86.187, 241.501, 11.704, 0.936)
pt3dadd(86.174, 241.62, 11.704, 1.022)
pt3dadd(86.161, 241.739, 11.704, 1.108)
pt3dadd(86.147, 241.859, 11.703, 1.196)
pt3dadd(86.134, 241.978, 11.703, 1.282)
pt3dadd(86.121, 242.098, 11.703, 1.368)
pt3dadd(86.107, 242.216, 11.703, 1.454)
pt3dadd(86.094, 242.335, 11.702, 1.54)
pt3dadd(86.089, 242.455, 11.702, 1.544)
pt3dadd(86.085, 242.575, 11.701, 1.54)
pt3dadd(86.081, 242.695, 11.701, 1.536)
pt3dadd(86.077, 242.815, 11.7, 1.532)
pt3dadd(86.073, 242.935, 11.7, 1.528)
pt3dadd(86.069, 243.055, 11.699, 1.522)
pt3dadd(86.065, 243.175, 11.698, 1.518)
pt3dadd(86.061, 243.295, 11.698, 1.514)
pt3dadd(86.058, 243.415, 11.698, 1.51)
pt3dadd(86.054, 243.535, 11.697, 1.504)
pt3dadd(86.053, 243.655, 11.696, 1.466)
pt3dadd(86.053, 243.775, 11.696, 1.424)
pt3dadd(86.053, 243.895, 11.695, 1.384)
pt3dadd(86.053, 244.015, 11.694, 1.342)
pt3dadd(86.053, 244.135, 11.693, 1.3)
pt3dadd(86.052, 244.255, 11.693, 1.26)
pt3dadd(86.052, 244.375, 11.692, 1.218)
pt3dadd(86.052, 244.495, 11.691, 1.176)
pt3dadd(86.052, 244.615, 11.69, 1.134)
pt3dadd(86.052, 244.735, 11.69, 1.094)
pt3dadd(86.052, 244.855, 11.688, 1.064)
pt3dadd(86.052, 244.975, 11.687, 1.034)
pt3dadd(86.052, 245.095, 11.685, 1.006)
pt3dadd(86.052, 245.215, 11.684, 0.976)
pt3dadd(86.051, 245.335, 11.682, 0.948)
pt3dadd(86.051, 245.455, 11.681, 0.918)
pt3dadd(86.051, 245.575, 11.68, 0.89)
pt3dadd(86.051, 245.695, 11.678, 0.86)
pt3dadd(86.051, 245.815, 11.677, 0.832)
pt3dadd(86.051, 245.935, 11.675, 0.802)
pt3dadd(86.05, 246.055, 11.673, 0.812)
pt3dadd(86.05, 246.175, 11.671, 0.826)
pt3dadd(86.05, 246.295, 11.669, 0.838)
pt3dadd(86.049, 246.415, 11.667, 0.85)
pt3dadd(86.049, 246.535, 11.664, 0.864)
pt3dadd(86.049, 246.655, 11.662, 0.876)
pt3dadd(86.048, 246.774, 11.66, 0.89)
pt3dadd(86.048, 246.894, 11.657, 0.902)
pt3dadd(86.048, 247.014, 11.655, 0.914)
pt3dadd(86.047, 247.134, 11.653, 0.928)
pt3dadd(86.047, 247.254, 11.65, 0.968)
pt3dadd(86.046, 247.374, 11.647, 1.01)
pt3dadd(86.046, 247.494, 11.644, 1.054)
pt3dadd(86.046, 247.614, 11.641, 1.096)
pt3dadd(86.045, 247.734, 11.638, 1.138)
pt3dadd(86.045, 247.854, 11.635, 1.182)
pt3dadd(86.045, 247.974, 11.633, 1.224)
pt3dadd(86.044, 248.094, 11.63, 1.268)
pt3dadd(86.044, 248.214, 11.627, 1.31)
pt3dadd(86.044, 248.334, 11.624, 1.352)
pt3dadd(86.043, 248.454, 11.617, 1.356)
pt3dadd(86.042, 248.573, 11.61, 1.356)
pt3dadd(86.042, 248.693, 11.603, 1.356)
pt3dadd(86.041, 248.813, 11.596, 1.356)
pt3dadd(86.04, 248.933, 11.589, 1.356)
pt3dadd(86.039, 249.053, 11.582, 1.356)
pt3dadd(86.039, 249.172, 11.575, 1.356)
pt3dadd(86.038, 249.292, 11.568, 1.356)
pt3dadd(86.037, 249.412, 11.561, 1.356)
pt3dadd(86.036, 249.532, 11.554, 1.356)
pt3dadd(86.035, 249.65, 11.545, 1.356)
pt3dadd(86.034, 249.77, 11.536, 1.356)
pt3dadd(86.033, 249.889, 11.527, 1.356)
pt3dadd(86.031, 250.009, 11.518, 1.356)
pt3dadd(86.03, 250.128, 11.509, 1.356)
pt3dadd(86.029, 250.248, 11.5, 1.356)
pt3dadd(86.027, 250.368, 11.491, 1.356)
pt3dadd(86.026, 250.487, 11.482, 1.356)
pt3dadd(86.025, 250.607, 11.473, 1.356)
pt3dadd(86.023, 250.726, 11.464, 1.356)
pt3dadd(86.022, 250.846, 11.452, 1.356)
pt3dadd(86.02, 250.964, 11.441, 1.356)
pt3dadd(86.018, 251.083, 11.429, 1.356)
pt3dadd(86.016, 251.203, 11.417, 1.356)
pt3dadd(86.014, 251.322, 11.406, 1.356)
pt3dadd(86.013, 251.441, 11.394, 1.356)
pt3dadd(86.011, 251.561, 11.383, 1.356)
pt3dadd(86.009, 251.68, 11.371, 1.356)
pt3dadd(86.007, 251.798, 11.36, 1.356)
pt3dadd(86.005, 251.918, 11.348, 1.356)
pt3dadd(86.002, 252.031, 11.316, 1.324)
pt3dadd(85.999, 252.144, 11.281, 1.288)
pt3dadd(85.996, 252.257, 11.247, 1.252)
pt3dadd(85.993, 252.37, 11.213, 1.216)
pt3dadd(85.99, 252.482, 11.179, 1.182)
pt3dadd(85.987, 252.595, 11.145, 1.146)
pt3dadd(85.983, 252.708, 11.111, 1.11)
pt3dadd(85.98, 252.821, 11.076, 1.074)
pt3dadd(85.977, 252.932, 11.042, 1.04)
pt3dadd(85.974, 253.045, 11.008, 1.004)
pt3dadd(85.97, 253.158, 10.974, 0.98)
pt3dadd(85.965, 253.271, 10.939, 0.954)
pt3dadd(85.961, 253.384, 10.904, 0.93)
pt3dadd(85.957, 253.495, 10.87, 0.906)
pt3dadd(85.953, 253.608, 10.835, 0.882)
pt3dadd(85.948, 253.721, 10.8, 0.858)
pt3dadd(85.944, 253.834, 10.766, 0.834)
pt3dadd(85.94, 253.945, 10.731, 0.81)
pt3dadd(85.935, 254.058, 10.696, 0.784)
pt3dadd(85.931, 254.171, 10.662, 0.76)
pt3dadd(85.923, 254.287, 10.638, 0.802)
pt3dadd(85.914, 254.402, 10.614, 0.844)
pt3dadd(85.905, 254.519, 10.59, 0.886)
pt3dadd(85.897, 254.635, 10.566, 0.928)
pt3dadd(85.888, 254.752, 10.542, 0.97)
pt3dadd(85.88, 254.868, 10.518, 1.012)
pt3dadd(85.871, 254.984, 10.494, 1.054)
pt3dadd(85.863, 255.1, 10.47, 1.096)
pt3dadd(85.854, 255.216, 10.446, 1.138)
pt3dadd(85.846, 255.332, 10.422, 1.18)
pt3dadd(85.834, 255.45, 10.406, 1.206)
pt3dadd(85.821, 255.568, 10.389, 1.232)
pt3dadd(85.809, 255.686, 10.373, 1.258)
pt3dadd(85.797, 255.804, 10.357, 1.284)
pt3dadd(85.785, 255.922, 10.34, 1.31)
pt3dadd(85.773, 256.039, 10.324, 1.336)
pt3dadd(85.761, 256.157, 10.307, 1.362)
pt3dadd(85.749, 256.274, 10.291, 1.388)
pt3dadd(85.737, 256.392, 10.275, 1.414)
pt3dadd(85.724, 256.51, 10.258, 1.44)
pt3dadd(85.71, 256.628, 10.247, 1.454)
pt3dadd(85.695, 256.747, 10.236, 1.468)
pt3dadd(85.681, 256.865, 10.226, 1.482)
pt3dadd(85.666, 256.984, 10.215, 1.496)
pt3dadd(85.652, 257.102, 10.204, 1.51)
pt3dadd(85.637, 257.22, 10.193, 1.524)
pt3dadd(85.623, 257.339, 10.182, 1.54)
pt3dadd(85.608, 257.458, 10.171, 1.554)
pt3dadd(85.594, 257.575, 10.16, 1.568)
pt3dadd(85.579, 257.694, 10.149, 1.582)
}
dend_5[7] {pt3dclear()
pt3dadd(85.579, 257.694, 10.149, 1.582)
pt3dadd(85.579, 257.695, 10.149, 1.582)
pt3dadd(85.533, 257.807, 10.149, 1.582)
pt3dadd(85.487, 257.917, 10.149, 1.582)
pt3dadd(85.441, 258.028, 10.149, 1.582)
pt3dadd(85.395, 258.139, 10.149, 1.582)
pt3dadd(85.349, 258.25, 10.149, 1.582)
pt3dadd(85.303, 258.36, 10.149, 1.582)
pt3dadd(85.257, 258.472, 10.149, 1.582)
pt3dadd(85.211, 258.582, 10.149, 1.582)
pt3dadd(85.165, 258.694, 10.149, 1.582)
pt3dadd(85.121, 258.805, 10.149, 1.572)
pt3dadd(85.079, 258.917, 10.149, 1.554)
pt3dadd(85.036, 259.03, 10.149, 1.536)
pt3dadd(84.994, 259.141, 10.149, 1.518)
pt3dadd(84.952, 259.254, 10.149, 1.5)
pt3dadd(84.909, 259.366, 10.149, 1.482)
pt3dadd(84.867, 259.478, 10.149, 1.464)
pt3dadd(84.825, 259.591, 10.149, 1.446)
pt3dadd(84.782, 259.703, 10.149, 1.426)
pt3dadd(84.74, 259.816, 10.149, 1.408)
pt3dadd(84.703, 259.93, 10.149, 1.364)
pt3dadd(84.671, 260.045, 10.149, 1.294)
pt3dadd(84.639, 260.161, 10.149, 1.224)
pt3dadd(84.607, 260.276, 10.149, 1.154)
pt3dadd(84.575, 260.392, 10.149, 1.084)
pt3dadd(84.543, 260.508, 10.15, 1.014)
pt3dadd(84.511, 260.623, 10.15, 0.944)
pt3dadd(84.479, 260.738, 10.15, 0.876)
pt3dadd(84.447, 260.855, 10.15, 0.806)
pt3dadd(84.415, 260.97, 10.15, 0.736)
pt3dadd(84.386, 261.086, 10.15, 0.698)
pt3dadd(84.361, 261.204, 10.15, 0.692)
pt3dadd(84.336, 261.322, 10.15, 0.686)
pt3dadd(84.311, 261.439, 10.15, 0.678)
pt3dadd(84.285, 261.556, 10.15, 0.672)
pt3dadd(84.26, 261.673, 10.15, 0.666)
pt3dadd(84.235, 261.791, 10.15, 0.658)
pt3dadd(84.21, 261.908, 10.15, 0.652)
pt3dadd(84.185, 262.025, 10.15, 0.644)
pt3dadd(84.159, 262.142, 10.151, 0.638)
}
}
proc shape3d_45() {
dend_5[7] { pt3dadd(84.136, 262.26, 10.151, 0.648)
pt3dadd(84.115, 262.379, 10.151, 0.672)
pt3dadd(84.094, 262.496, 10.151, 0.696)
pt3dadd(84.073, 262.615, 10.151, 0.722)
pt3dadd(84.052, 262.733, 10.151, 0.746)
pt3dadd(84.031, 262.85, 10.151, 0.77)
pt3dadd(84.01, 262.969, 10.151, 0.796)
pt3dadd(83.988, 263.087, 10.151, 0.82)
pt3dadd(83.967, 263.206, 10.151, 0.844)
pt3dadd(83.946, 263.323, 10.152, 0.868)
pt3dadd(83.929, 263.442, 10.152, 0.856)
pt3dadd(83.915, 263.561, 10.152, 0.814)
pt3dadd(83.901, 263.681, 10.152, 0.77)
pt3dadd(83.887, 263.8, 10.152, 0.728)
pt3dadd(83.873, 263.918, 10.153, 0.684)
pt3dadd(83.859, 264.038, 10.153, 0.64)
pt3dadd(83.845, 264.157, 10.153, 0.598)
pt3dadd(83.831, 264.276, 10.153, 0.554)
pt3dadd(83.817, 264.396, 10.154, 0.512)
pt3dadd(83.802, 264.515, 10.154, 0.468)
pt3dadd(83.78, 264.632, 10.154, 0.454)
pt3dadd(83.751, 264.749, 10.154, 0.464)
pt3dadd(83.721, 264.865, 10.155, 0.474)
pt3dadd(83.692, 264.982, 10.155, 0.486)
pt3dadd(83.663, 265.098, 10.155, 0.496)
pt3dadd(83.633, 265.214, 10.156, 0.506)
pt3dadd(83.604, 265.331, 10.156, 0.518)
pt3dadd(83.574, 265.447, 10.156, 0.528)
pt3dadd(83.545, 265.564, 10.157, 0.538)
pt3dadd(83.515, 265.68, 10.157, 0.548)
pt3dadd(83.476, 265.793, 10.157, 0.594)
pt3dadd(83.431, 265.904, 10.158, 0.662)
pt3dadd(83.386, 266.015, 10.158, 0.73)
pt3dadd(83.341, 266.126, 10.159, 0.796)
pt3dadd(83.296, 266.238, 10.159, 0.864)
pt3dadd(83.251, 266.348, 10.159, 0.932)
pt3dadd(83.206, 266.46, 10.16, 0.998)
pt3dadd(83.161, 266.572, 10.16, 1.066)
pt3dadd(83.116, 266.682, 10.161, 1.132)
pt3dadd(83.071, 266.794, 10.161, 1.2)
pt3dadd(83.034, 266.908, 10.162, 1.22)
pt3dadd(83.001, 267.023, 10.163, 1.21)
pt3dadd(82.969, 267.138, 10.164, 1.2)
pt3dadd(82.936, 267.254, 10.164, 1.19)
pt3dadd(82.903, 267.37, 10.165, 1.18)
pt3dadd(82.871, 267.485, 10.166, 1.17)
pt3dadd(82.838, 267.6, 10.167, 1.162)
pt3dadd(82.805, 267.716, 10.168, 1.152)
pt3dadd(82.773, 267.832, 10.169, 1.142)
pt3dadd(82.74, 267.947, 10.17, 1.132)
pt3dadd(82.711, 268.063, 10.171, 1.118)
pt3dadd(82.684, 268.18, 10.172, 1.102)
pt3dadd(82.657, 268.297, 10.173, 1.086)
pt3dadd(82.631, 268.414, 10.174, 1.068)
pt3dadd(82.604, 268.531, 10.176, 1.052)
pt3dadd(82.577, 268.648, 10.177, 1.036)
pt3dadd(82.55, 268.765, 10.178, 1.02)
pt3dadd(82.524, 268.882, 10.179, 1.002)
pt3dadd(82.497, 268.999, 10.181, 0.986)
pt3dadd(82.47, 269.116, 10.182, 0.97)
pt3dadd(82.451, 269.234, 10.184, 0.982)
pt3dadd(82.436, 269.353, 10.186, 1.012)
pt3dadd(82.42, 269.472, 10.188, 1.04)
pt3dadd(82.405, 269.591, 10.19, 1.07)
pt3dadd(82.39, 269.71, 10.192, 1.098)
pt3dadd(82.375, 269.83, 10.195, 1.128)
pt3dadd(82.36, 269.948, 10.197, 1.158)
pt3dadd(82.345, 270.067, 10.199, 1.186)
pt3dadd(82.33, 270.186, 10.201, 1.216)
pt3dadd(82.314, 270.305, 10.203, 1.244)
pt3dadd(82.304, 270.425, 10.207, 1.242)
pt3dadd(82.296, 270.545, 10.211, 1.224)
pt3dadd(82.289, 270.664, 10.214, 1.204)
pt3dadd(82.281, 270.784, 10.218, 1.186)
pt3dadd(82.273, 270.904, 10.222, 1.166)
pt3dadd(82.266, 271.024, 10.226, 1.148)
pt3dadd(82.258, 271.142, 10.23, 1.128)
pt3dadd(82.25, 271.262, 10.234, 1.11)
pt3dadd(82.243, 271.382, 10.238, 1.09)
pt3dadd(82.235, 271.501, 10.241, 1.072)
pt3dadd(82.229, 271.621, 10.246, 1.042)
pt3dadd(82.225, 271.741, 10.252, 1.008)
pt3dadd(82.221, 271.861, 10.258, 0.972)
pt3dadd(82.216, 271.98, 10.263, 0.938)
pt3dadd(82.212, 272.1, 10.269, 0.904)
pt3dadd(82.207, 272.22, 10.274, 0.87)
pt3dadd(82.203, 272.34, 10.28, 0.834)
pt3dadd(82.198, 272.46, 10.286, 0.8)
pt3dadd(82.194, 272.579, 10.291, 0.766)
pt3dadd(82.19, 272.699, 10.297, 0.732)
pt3dadd(82.182, 272.818, 10.306, 0.74)
pt3dadd(82.172, 272.936, 10.317, 0.77)
pt3dadd(82.163, 273.056, 10.329, 0.802)
pt3dadd(82.153, 273.175, 10.34, 0.832)
pt3dadd(82.144, 273.294, 10.351, 0.864)
pt3dadd(82.134, 273.413, 10.362, 0.894)
pt3dadd(82.125, 273.532, 10.374, 0.924)
pt3dadd(82.115, 273.65, 10.385, 0.956)
pt3dadd(82.106, 273.769, 10.396, 0.986)
pt3dadd(82.096, 273.888, 10.407, 1.018)
pt3dadd(82.084, 274.006, 10.424, 1.034)
pt3dadd(82.07, 274.123, 10.442, 1.044)
pt3dadd(82.056, 274.24, 10.461, 1.054)
pt3dadd(82.042, 274.357, 10.479, 1.066)
pt3dadd(82.028, 274.474, 10.497, 1.076)
pt3dadd(82.014, 274.591, 10.516, 1.086)
pt3dadd(82, 274.708, 10.535, 1.096)
pt3dadd(81.986, 274.825, 10.553, 1.106)
pt3dadd(81.972, 274.943, 10.572, 1.116)
pt3dadd(81.958, 275.059, 10.59, 1.126)
pt3dadd(81.936, 275.172, 10.618, 1.122)
pt3dadd(81.91, 275.282, 10.65, 1.11)
pt3dadd(81.883, 275.393, 10.682, 1.098)
pt3dadd(81.857, 275.503, 10.715, 1.086)
pt3dadd(81.831, 275.614, 10.747, 1.074)
pt3dadd(81.805, 275.725, 10.779, 1.062)
pt3dadd(81.778, 275.836, 10.811, 1.05)
pt3dadd(81.752, 275.946, 10.843, 1.04)
pt3dadd(81.726, 276.056, 10.876, 1.028)
pt3dadd(81.7, 276.167, 10.908, 1.016)
}
dend_5[8] {pt3dclear()
pt3dadd(81.7, 276.167, 10.908, 1.016)
pt3dadd(81.699, 276.167, 10.908, 1.016)
pt3dadd(81.645, 276.246, 10.968, 0.968)
pt3dadd(81.59, 276.325, 11.028, 0.92)
pt3dadd(81.535, 276.404, 11.088, 0.872)
pt3dadd(81.481, 276.484, 11.148, 0.824)
pt3dadd(81.426, 276.562, 11.208, 0.776)
pt3dadd(81.372, 276.641, 11.268, 0.73)
pt3dadd(81.317, 276.72, 11.328, 0.682)
pt3dadd(81.262, 276.799, 11.388, 0.634)
pt3dadd(81.208, 276.878, 11.448, 0.586)
pt3dadd(81.153, 276.956, 11.508, 0.54)
pt3dadd(81.118, 277.04, 11.574, 0.52)
pt3dadd(81.083, 277.123, 11.64, 0.5)
pt3dadd(81.048, 277.206, 11.706, 0.48)
pt3dadd(81.013, 277.29, 11.772, 0.46)
pt3dadd(80.978, 277.373, 11.837, 0.44)
pt3dadd(80.943, 277.456, 11.903, 0.42)
pt3dadd(80.907, 277.54, 11.969, 0.4)
pt3dadd(80.872, 277.622, 12.035, 0.38)
pt3dadd(80.837, 277.705, 12.101, 0.362)
pt3dadd(80.802, 277.789, 12.167, 0.342)
pt3dadd(80.772, 277.876, 12.231, 0.332)
pt3dadd(80.743, 277.962, 12.296, 0.322)
pt3dadd(80.713, 278.05, 12.36, 0.312)
pt3dadd(80.683, 278.136, 12.425, 0.302)
pt3dadd(80.654, 278.222, 12.489, 0.292)
pt3dadd(80.624, 278.31, 12.554, 0.284)
pt3dadd(80.595, 278.396, 12.618, 0.274)
pt3dadd(80.565, 278.483, 12.683, 0.264)
pt3dadd(80.535, 278.57, 12.747, 0.254)
pt3dadd(80.506, 278.658, 12.81, 0.246)
pt3dadd(80.485, 278.762, 12.857, 0.26)
pt3dadd(80.463, 278.866, 12.904, 0.274)
pt3dadd(80.442, 278.97, 12.951, 0.288)
pt3dadd(80.421, 279.073, 12.998, 0.302)
pt3dadd(80.399, 279.178, 13.045, 0.316)
pt3dadd(80.378, 279.281, 13.091, 0.33)
pt3dadd(80.357, 279.385, 13.138, 0.344)
pt3dadd(80.335, 279.488, 13.185, 0.358)
pt3dadd(80.314, 279.593, 13.232, 0.372)
pt3dadd(80.293, 279.696, 13.279, 0.386)
pt3dadd(80.276, 279.802, 13.326, 0.394)
pt3dadd(80.259, 279.906, 13.372, 0.4)
pt3dadd(80.243, 280.01, 13.419, 0.406)
pt3dadd(80.226, 280.116, 13.466, 0.412)
pt3dadd(80.209, 280.22, 13.512, 0.42)
pt3dadd(80.192, 280.325, 13.559, 0.426)
pt3dadd(80.175, 280.43, 13.606, 0.432)
pt3dadd(80.159, 280.535, 13.652, 0.44)
pt3dadd(80.142, 280.639, 13.699, 0.446)
pt3dadd(80.125, 280.745, 13.746, 0.452)
pt3dadd(80.113, 280.85, 13.792, 0.452)
pt3dadd(80.1, 280.956, 13.838, 0.452)
pt3dadd(80.087, 281.062, 13.885, 0.452)
pt3dadd(80.074, 281.166, 13.931, 0.452)
pt3dadd(80.062, 281.272, 13.978, 0.452)
pt3dadd(80.049, 281.377, 14.024, 0.452)
pt3dadd(80.036, 281.483, 14.071, 0.452)
pt3dadd(80.023, 281.588, 14.117, 0.452)
pt3dadd(80.011, 281.694, 14.163, 0.452)
pt3dadd(79.996, 281.8, 14.209, 0.454)
pt3dadd(79.959, 281.908, 14.239, 0.474)
pt3dadd(79.922, 282.016, 14.27, 0.494)
pt3dadd(79.885, 282.125, 14.3, 0.514)
pt3dadd(79.848, 282.233, 14.331, 0.534)
pt3dadd(79.812, 282.341, 14.361, 0.554)
pt3dadd(79.775, 282.449, 14.392, 0.574)
pt3dadd(79.738, 282.557, 14.422, 0.594)
pt3dadd(79.701, 282.665, 14.453, 0.614)
pt3dadd(79.664, 282.773, 14.483, 0.634)
pt3dadd(79.626, 282.881, 14.513, 0.654)
pt3dadd(79.582, 282.989, 14.538, 0.68)
pt3dadd(79.538, 283.097, 14.562, 0.706)
pt3dadd(79.494, 283.205, 14.587, 0.732)
pt3dadd(79.451, 283.312, 14.612, 0.758)
pt3dadd(79.407, 283.42, 14.637, 0.782)
pt3dadd(79.363, 283.528, 14.662, 0.808)
pt3dadd(79.319, 283.634, 14.687, 0.834)
pt3dadd(79.275, 283.742, 14.712, 0.86)
}
}
proc shape3d_46() {
dend_5[8] { pt3dadd(79.232, 283.85, 14.737, 0.886)
pt3dadd(79.19, 283.96, 14.76, 0.91)
pt3dadd(79.16, 284.074, 14.778, 0.924)
pt3dadd(79.13, 284.188, 14.796, 0.938)
pt3dadd(79.099, 284.302, 14.814, 0.952)
pt3dadd(79.069, 284.416, 14.832, 0.964)
pt3dadd(79.039, 284.53, 14.85, 0.978)
pt3dadd(79.008, 284.644, 14.868, 0.992)
pt3dadd(78.978, 284.758, 14.886, 1.006)
pt3dadd(78.947, 284.872, 14.904, 1.02)
pt3dadd(78.917, 284.986, 14.922, 1.034)
pt3dadd(78.888, 285.1, 14.94, 1.048)
pt3dadd(78.862, 285.216, 14.956, 1.056)
pt3dadd(78.837, 285.331, 14.972, 1.064)
pt3dadd(78.811, 285.448, 14.988, 1.072)
pt3dadd(78.786, 285.563, 15.004, 1.08)
pt3dadd(78.76, 285.678, 15.02, 1.09)
pt3dadd(78.735, 285.794, 15.036, 1.098)
pt3dadd(78.709, 285.91, 15.052, 1.106)
pt3dadd(78.684, 286.026, 15.068, 1.114)
pt3dadd(78.658, 286.141, 15.084, 1.124)
pt3dadd(78.635, 286.258, 15.099, 1.13)
pt3dadd(78.617, 286.375, 15.113, 1.13)
pt3dadd(78.6, 286.493, 15.126, 1.13)
pt3dadd(78.582, 286.61, 15.138, 1.13)
pt3dadd(78.565, 286.728, 15.151, 1.13)
pt3dadd(78.548, 286.846, 15.165, 1.13)
pt3dadd(78.53, 286.963, 15.177, 1.13)
pt3dadd(78.513, 287.081, 15.191, 1.13)
pt3dadd(78.495, 287.198, 15.204, 1.13)
pt3dadd(78.478, 287.317, 15.216, 1.13)
pt3dadd(78.462, 287.432, 15.234, 1.126)
pt3dadd(78.451, 287.544, 15.27, 1.102)
pt3dadd(78.439, 287.657, 15.305, 1.08)
pt3dadd(78.428, 287.767, 15.341, 1.058)
pt3dadd(78.417, 287.879, 15.377, 1.036)
pt3dadd(78.405, 287.992, 15.412, 1.014)
pt3dadd(78.394, 288.102, 15.448, 0.992)
pt3dadd(78.383, 288.214, 15.483, 0.968)
pt3dadd(78.371, 288.325, 15.519, 0.946)
pt3dadd(78.36, 288.438, 15.554, 0.924)
pt3dadd(78.349, 288.548, 15.591, 0.902)
pt3dadd(78.338, 288.659, 15.63, 0.884)
pt3dadd(78.327, 288.768, 15.669, 0.866)
pt3dadd(78.315, 288.878, 15.708, 0.848)
pt3dadd(78.304, 288.989, 15.747, 0.828)
pt3dadd(78.293, 289.098, 15.786, 0.81)
pt3dadd(78.282, 289.208, 15.825, 0.792)
pt3dadd(78.271, 289.318, 15.864, 0.774)
pt3dadd(78.26, 289.428, 15.903, 0.754)
pt3dadd(78.249, 289.538, 15.942, 0.736)
pt3dadd(78.236, 289.649, 15.979, 0.732)
pt3dadd(78.218, 289.76, 16.011, 0.76)
pt3dadd(78.2, 289.873, 16.043, 0.79)
pt3dadd(78.182, 289.985, 16.075, 0.82)
pt3dadd(78.164, 290.098, 16.107, 0.848)
pt3dadd(78.145, 290.209, 16.139, 0.878)
pt3dadd(78.127, 290.322, 16.171, 0.906)
pt3dadd(78.109, 290.434, 16.203, 0.936)
pt3dadd(78.091, 290.546, 16.235, 0.964)
pt3dadd(78.073, 290.659, 16.267, 0.994)
pt3dadd(78.048, 290.77, 16.297, 1.018)
pt3dadd(78.006, 290.878, 16.323, 1.03)
pt3dadd(77.965, 290.986, 16.35, 1.042)
pt3dadd(77.923, 291.094, 16.376, 1.052)
pt3dadd(77.882, 291.202, 16.403, 1.064)
pt3dadd(77.841, 291.31, 16.429, 1.076)
pt3dadd(77.799, 291.418, 16.455, 1.088)
pt3dadd(77.757, 291.526, 16.482, 1.1)
pt3dadd(77.716, 291.634, 16.508, 1.112)
pt3dadd(77.675, 291.743, 16.534, 1.124)
pt3dadd(77.627, 291.848, 16.559, 1.13)
pt3dadd(77.571, 291.95, 16.581, 1.13)
pt3dadd(77.515, 292.054, 16.603, 1.13)
pt3dadd(77.459, 292.157, 16.625, 1.13)
pt3dadd(77.403, 292.259, 16.647, 1.13)
pt3dadd(77.346, 292.362, 16.669, 1.13)
pt3dadd(77.29, 292.464, 16.691, 1.13)
pt3dadd(77.234, 292.567, 16.713, 1.13)
pt3dadd(77.178, 292.67, 16.736, 1.13)
pt3dadd(77.122, 292.772, 16.758, 1.13)
pt3dadd(77.066, 292.87, 16.791, 1.114)
pt3dadd(77.009, 292.957, 16.84, 1.08)
pt3dadd(76.953, 293.045, 16.889, 1.044)
pt3dadd(76.896, 293.134, 16.938, 1.01)
pt3dadd(76.84, 293.221, 16.987, 0.974)
pt3dadd(76.783, 293.309, 17.036, 0.94)
pt3dadd(76.726, 293.398, 17.085, 0.904)
pt3dadd(76.67, 293.485, 17.134, 0.868)
pt3dadd(76.613, 293.574, 17.182, 0.834)
pt3dadd(76.556, 293.662, 17.231, 0.798)
pt3dadd(76.496, 293.752, 17.273, 0.774)
pt3dadd(76.43, 293.844, 17.306, 0.764)
pt3dadd(76.364, 293.936, 17.338, 0.754)
pt3dadd(76.298, 294.029, 17.371, 0.744)
pt3dadd(76.232, 294.121, 17.403, 0.734)
pt3dadd(76.166, 294.214, 17.436, 0.724)
pt3dadd(76.1, 294.306, 17.468, 0.714)
pt3dadd(76.034, 294.397, 17.501, 0.704)
pt3dadd(75.968, 294.49, 17.533, 0.694)
pt3dadd(75.902, 294.582, 17.566, 0.682)
pt3dadd(75.837, 294.677, 17.593, 0.674)
pt3dadd(75.772, 294.774, 17.616, 0.668)
pt3dadd(75.708, 294.872, 17.639, 0.662)
pt3dadd(75.643, 294.97, 17.662, 0.656)
pt3dadd(75.578, 295.067, 17.685, 0.65)
pt3dadd(75.514, 295.164, 17.708, 0.644)
pt3dadd(75.449, 295.261, 17.731, 0.638)
pt3dadd(75.385, 295.358, 17.754, 0.632)
pt3dadd(75.32, 295.456, 17.777, 0.626)
pt3dadd(75.256, 295.553, 17.8, 0.62)
pt3dadd(75.203, 295.658, 17.817, 0.6)
pt3dadd(75.158, 295.769, 17.829, 0.57)
pt3dadd(75.114, 295.879, 17.841, 0.54)
pt3dadd(75.069, 295.99, 17.852, 0.508)
pt3dadd(75.025, 296.1, 17.864, 0.478)
pt3dadd(74.981, 296.21, 17.876, 0.448)
pt3dadd(74.936, 296.322, 17.888, 0.418)
pt3dadd(74.892, 296.432, 17.9, 0.388)
pt3dadd(74.848, 296.543, 17.912, 0.358)
pt3dadd(74.803, 296.653, 17.924, 0.328)
pt3dadd(74.762, 296.766, 17.931, 0.316)
pt3dadd(74.723, 296.879, 17.935, 0.316)
pt3dadd(74.684, 296.993, 17.939, 0.318)
pt3dadd(74.645, 297.106, 17.943, 0.318)
pt3dadd(74.606, 297.22, 17.947, 0.32)
pt3dadd(74.567, 297.332, 17.951, 0.32)
pt3dadd(74.528, 297.446, 17.955, 0.32)
pt3dadd(74.489, 297.559, 17.959, 0.322)
pt3dadd(74.45, 297.673, 17.963, 0.322)
pt3dadd(74.411, 297.786, 17.967, 0.324)
pt3dadd(74.373, 297.9, 17.969, 0.334)
pt3dadd(74.334, 298.013, 17.969, 0.348)
pt3dadd(74.296, 298.127, 17.97, 0.364)
pt3dadd(74.258, 298.241, 17.971, 0.38)
pt3dadd(74.219, 298.355, 17.971, 0.396)
pt3dadd(74.181, 298.468, 17.972, 0.412)
pt3dadd(74.143, 298.582, 17.973, 0.428)
pt3dadd(74.104, 298.696, 17.973, 0.444)
pt3dadd(74.066, 298.81, 17.974, 0.46)
pt3dadd(74.028, 298.922, 17.975, 0.476)
pt3dadd(73.977, 299.032, 17.976, 0.504)
pt3dadd(73.918, 299.136, 17.977, 0.542)
pt3dadd(73.859, 299.24, 17.978, 0.582)
pt3dadd(73.8, 299.345, 17.979, 0.62)
pt3dadd(73.741, 299.449, 17.981, 0.658)
pt3dadd(73.682, 299.554, 17.982, 0.696)
pt3dadd(73.623, 299.658, 17.983, 0.734)
pt3dadd(73.564, 299.762, 17.984, 0.774)
pt3dadd(73.505, 299.867, 17.986, 0.812)
pt3dadd(73.446, 299.971, 17.987, 0.85)
pt3dadd(73.384, 300.074, 17.988, 0.876)
pt3dadd(73.32, 300.176, 17.99, 0.896)
pt3dadd(73.257, 300.277, 17.992, 0.916)
pt3dadd(73.193, 300.379, 17.993, 0.934)
pt3dadd(73.129, 300.481, 17.995, 0.954)
pt3dadd(73.066, 300.583, 17.996, 0.972)
pt3dadd(73.002, 300.685, 17.998, 0.992)
pt3dadd(72.939, 300.786, 18, 1.01)
pt3dadd(72.875, 300.888, 18.001, 1.03)
pt3dadd(72.811, 300.99, 18.003, 1.05)
pt3dadd(72.742, 301.087, 18.005, 1.042)
pt3dadd(72.669, 301.182, 18.007, 1.018)
pt3dadd(72.596, 301.278, 18.01, 0.994)
pt3dadd(72.523, 301.373, 18.012, 0.97)
pt3dadd(72.45, 301.468, 18.014, 0.946)
pt3dadd(72.376, 301.564, 18.017, 0.924)
pt3dadd(72.303, 301.658, 18.019, 0.9)
pt3dadd(72.23, 301.753, 18.021, 0.876)
pt3dadd(72.157, 301.849, 18.024, 0.852)
pt3dadd(72.084, 301.944, 18.026, 0.828)
pt3dadd(72.014, 302.041, 18.029, 0.814)
pt3dadd(71.947, 302.14, 18.034, 0.806)
pt3dadd(71.879, 302.239, 18.038, 0.796)
pt3dadd(71.811, 302.338, 18.042, 0.788)
pt3dadd(71.743, 302.437, 18.046, 0.78)
pt3dadd(71.676, 302.536, 18.05, 0.77)
pt3dadd(71.608, 302.635, 18.054, 0.762)
pt3dadd(71.54, 302.734, 18.058, 0.754)
pt3dadd(71.472, 302.833, 18.062, 0.744)
pt3dadd(71.405, 302.932, 18.066, 0.736)
pt3dadd(71.342, 303.034, 18.072, 0.742)
pt3dadd(71.283, 303.138, 18.079, 0.756)
pt3dadd(71.223, 303.241, 18.085, 0.768)
pt3dadd(71.163, 303.346, 18.092, 0.782)
pt3dadd(71.104, 303.449, 18.098, 0.796)
pt3dadd(71.044, 303.553, 18.105, 0.81)
pt3dadd(70.984, 303.656, 18.112, 0.824)
pt3dadd(70.925, 303.761, 18.118, 0.836)
pt3dadd(70.865, 303.864, 18.125, 0.85)
pt3dadd(70.805, 303.968, 18.132, 0.864)
pt3dadd(70.74, 304.068, 18.14, 0.884)
pt3dadd(70.673, 304.166, 18.15, 0.906)
pt3dadd(70.605, 304.265, 18.16, 0.93)
pt3dadd(70.537, 304.363, 18.17, 0.954)
pt3dadd(70.47, 304.462, 18.179, 0.978)
pt3dadd(70.402, 304.56, 18.189, 1)
pt3dadd(70.335, 304.658, 18.199, 1.024)
pt3dadd(70.267, 304.757, 18.208, 1.048)
pt3dadd(70.199, 304.855, 18.218, 1.07)
}
}
proc shape3d_47() {
dend_5[8] { pt3dadd(70.132, 304.954, 18.228, 1.094)
pt3dadd(70.062, 305.051, 18.24, 1.118)
pt3dadd(69.991, 305.147, 18.252, 1.142)
pt3dadd(69.921, 305.243, 18.265, 1.168)
pt3dadd(69.85, 305.339, 18.278, 1.192)
pt3dadd(69.779, 305.434, 18.29, 1.216)
pt3dadd(69.709, 305.53, 18.303, 1.242)
pt3dadd(69.638, 305.626, 18.315, 1.266)
pt3dadd(69.567, 305.722, 18.328, 1.29)
pt3dadd(69.497, 305.818, 18.341, 1.316)
pt3dadd(69.426, 305.914, 18.353, 1.34)
pt3dadd(69.357, 305.998, 18.39, 1.336)
pt3dadd(69.288, 306.078, 18.437, 1.318)
pt3dadd(69.219, 306.158, 18.485, 1.302)
pt3dadd(69.15, 306.239, 18.532, 1.284)
pt3dadd(69.082, 306.319, 18.579, 1.268)
pt3dadd(69.013, 306.4, 18.627, 1.25)
pt3dadd(68.944, 306.48, 18.674, 1.234)
pt3dadd(68.875, 306.56, 18.721, 1.216)
pt3dadd(68.807, 306.641, 18.768, 1.2)
pt3dadd(68.738, 306.721, 18.816, 1.182)
pt3dadd(68.66, 306.8, 18.852, 1.16)
pt3dadd(68.578, 306.88, 18.882, 1.134)
pt3dadd(68.495, 306.959, 18.913, 1.11)
pt3dadd(68.413, 307.038, 18.944, 1.084)
pt3dadd(68.331, 307.117, 18.974, 1.06)
pt3dadd(68.249, 307.198, 19.005, 1.034)
pt3dadd(68.167, 307.277, 19.036, 1.01)
pt3dadd(68.085, 307.356, 19.066, 0.984)
pt3dadd(68.003, 307.435, 19.097, 0.96)
pt3dadd(67.92, 307.514, 19.128, 0.934)
pt3dadd(67.835, 307.592, 19.152, 0.91)
pt3dadd(67.748, 307.672, 19.175, 0.884)
pt3dadd(67.661, 307.75, 19.198, 0.86)
pt3dadd(67.574, 307.828, 19.22, 0.834)
pt3dadd(67.487, 307.906, 19.243, 0.81)
pt3dadd(67.4, 307.984, 19.266, 0.784)
pt3dadd(67.314, 308.063, 19.288, 0.758)
pt3dadd(67.227, 308.141, 19.311, 0.734)
pt3dadd(67.14, 308.219, 19.334, 0.708)
pt3dadd(67.053, 308.297, 19.356, 0.684)
pt3dadd(66.963, 308.375, 19.369, 0.678)
pt3dadd(66.873, 308.453, 19.379, 0.678)
pt3dadd(66.783, 308.531, 19.389, 0.678)
pt3dadd(66.693, 308.609, 19.399, 0.678)
pt3dadd(66.602, 308.687, 19.409, 0.678)
pt3dadd(66.512, 308.765, 19.419, 0.678)
pt3dadd(66.422, 308.844, 19.429, 0.678)
pt3dadd(66.331, 308.922, 19.439, 0.678)
pt3dadd(66.241, 309, 19.449, 0.678)
pt3dadd(66.15, 309.078, 19.459, 0.678)
pt3dadd(66.057, 309.152, 19.468, 0.678)
pt3dadd(65.963, 309.226, 19.475, 0.678)
pt3dadd(65.869, 309.3, 19.483, 0.678)
pt3dadd(65.775, 309.373, 19.491, 0.678)
pt3dadd(65.68, 309.448, 19.498, 0.678)
pt3dadd(65.586, 309.521, 19.506, 0.678)
pt3dadd(65.492, 309.595, 19.514, 0.678)
pt3dadd(65.398, 309.668, 19.522, 0.678)
pt3dadd(65.303, 309.743, 19.529, 0.678)
pt3dadd(65.209, 309.816, 19.537, 0.678)
pt3dadd(65.107, 309.88, 19.539, 0.678)
pt3dadd(65.004, 309.94, 19.541, 0.678)
pt3dadd(64.9, 310.001, 19.542, 0.678)
pt3dadd(64.797, 310.061, 19.543, 0.678)
pt3dadd(64.693, 310.122, 19.544, 0.678)
pt3dadd(64.59, 310.183, 19.546, 0.678)
pt3dadd(64.486, 310.243, 19.547, 0.678)
pt3dadd(64.383, 310.304, 19.548, 0.678)
pt3dadd(64.28, 310.366, 19.549, 0.678)
pt3dadd(64.176, 310.426, 19.551, 0.678)
pt3dadd(64.075, 310.49, 19.552, 0.674)
pt3dadd(63.975, 310.556, 19.554, 0.668)
pt3dadd(63.874, 310.621, 19.556, 0.662)
pt3dadd(63.774, 310.687, 19.558, 0.656)
pt3dadd(63.673, 310.753, 19.559, 0.65)
pt3dadd(63.573, 310.819, 19.561, 0.644)
pt3dadd(63.472, 310.884, 19.563, 0.638)
pt3dadd(63.372, 310.95, 19.565, 0.632)
pt3dadd(63.271, 311.016, 19.566, 0.626)
pt3dadd(63.171, 311.081, 19.568, 0.622)
pt3dadd(63.074, 311.15, 19.571, 0.61)
pt3dadd(62.977, 311.221, 19.573, 0.598)
pt3dadd(62.88, 311.292, 19.575, 0.586)
pt3dadd(62.783, 311.363, 19.578, 0.574)
pt3dadd(62.686, 311.434, 19.58, 0.562)
pt3dadd(62.589, 311.504, 19.583, 0.55)
pt3dadd(62.492, 311.575, 19.585, 0.538)
pt3dadd(62.395, 311.646, 19.587, 0.526)
pt3dadd(62.298, 311.717, 19.59, 0.514)
pt3dadd(62.202, 311.788, 19.592, 0.502)
pt3dadd(62.107, 311.862, 19.596, 0.52)
pt3dadd(62.014, 311.936, 19.601, 0.544)
pt3dadd(61.92, 312.012, 19.605, 0.568)
pt3dadd(61.826, 312.086, 19.609, 0.592)
pt3dadd(61.733, 312.161, 19.614, 0.616)
pt3dadd(61.639, 312.236, 19.618, 0.64)
pt3dadd(61.545, 312.311, 19.623, 0.664)
pt3dadd(61.452, 312.385, 19.627, 0.688)
pt3dadd(61.358, 312.461, 19.632, 0.712)
pt3dadd(61.264, 312.535, 19.636, 0.736)
pt3dadd(61.173, 312.612, 19.641, 0.78)
pt3dadd(61.081, 312.69, 19.647, 0.826)
pt3dadd(60.99, 312.767, 19.653, 0.874)
pt3dadd(60.898, 312.845, 19.659, 0.922)
pt3dadd(60.807, 312.922, 19.665, 0.97)
pt3dadd(60.715, 313, 19.67, 1.016)
pt3dadd(60.624, 313.076, 19.676, 1.064)
pt3dadd(60.532, 313.154, 19.682, 1.112)
pt3dadd(60.441, 313.231, 19.688, 1.16)
pt3dadd(60.35, 313.309, 19.693, 1.206)
pt3dadd(60.26, 313.388, 19.701, 1.212)
pt3dadd(60.171, 313.468, 19.71, 1.21)
pt3dadd(60.082, 313.547, 19.719, 1.206)
pt3dadd(59.992, 313.627, 19.727, 1.204)
pt3dadd(59.903, 313.706, 19.736, 1.2)
pt3dadd(59.814, 313.786, 19.744, 1.198)
pt3dadd(59.725, 313.866, 19.753, 1.196)
pt3dadd(59.635, 313.945, 19.761, 1.192)
pt3dadd(59.546, 314.024, 19.77, 1.19)
pt3dadd(59.457, 314.105, 19.778, 1.186)
pt3dadd(59.369, 314.185, 19.788, 1.166)
pt3dadd(59.281, 314.266, 19.798, 1.142)
pt3dadd(59.193, 314.346, 19.807, 1.118)
pt3dadd(59.105, 314.426, 19.817, 1.094)
pt3dadd(59.016, 314.508, 19.827, 1.07)
pt3dadd(58.928, 314.588, 19.836, 1.046)
pt3dadd(58.84, 314.669, 19.846, 1.02)
pt3dadd(58.752, 314.749, 19.856, 0.996)
pt3dadd(58.664, 314.83, 19.865, 0.972)
pt3dadd(58.576, 314.911, 19.875, 0.948)
pt3dadd(58.49, 314.981, 19.912, 0.904)
pt3dadd(58.405, 315.05, 19.953, 0.858)
pt3dadd(58.32, 315.119, 19.994, 0.812)
pt3dadd(58.235, 315.187, 20.035, 0.764)
pt3dadd(58.149, 315.256, 20.076, 0.718)
pt3dadd(58.064, 315.324, 20.117, 0.67)
pt3dadd(57.979, 315.392, 20.158, 0.624)
pt3dadd(57.894, 315.461, 20.199, 0.576)
pt3dadd(57.809, 315.53, 20.24, 0.53)
pt3dadd(57.723, 315.599, 20.281, 0.482)
pt3dadd(57.628, 315.655, 20.32, 0.456)
pt3dadd(57.533, 315.71, 20.359, 0.43)
pt3dadd(57.437, 315.767, 20.397, 0.404)
pt3dadd(57.341, 315.822, 20.436, 0.378)
pt3dadd(57.246, 315.878, 20.474, 0.354)
pt3dadd(57.15, 315.934, 20.513, 0.328)
pt3dadd(57.054, 315.99, 20.551, 0.302)
pt3dadd(56.959, 316.045, 20.59, 0.276)
pt3dadd(56.863, 316.102, 20.629, 0.25)
pt3dadd(56.767, 316.157, 20.666, 0.226)
pt3dadd(56.662, 316.205, 20.692, 0.228)
pt3dadd(56.557, 316.254, 20.718, 0.232)
pt3dadd(56.451, 316.303, 20.744, 0.234)
pt3dadd(56.346, 316.351, 20.77, 0.236)
pt3dadd(56.241, 316.4, 20.796, 0.24)
pt3dadd(56.136, 316.448, 20.822, 0.242)
pt3dadd(56.031, 316.498, 20.848, 0.244)
pt3dadd(55.926, 316.547, 20.874, 0.248)
pt3dadd(55.821, 316.595, 20.9, 0.25)
pt3dadd(55.716, 316.645, 20.924, 0.254)
pt3dadd(55.615, 316.71, 20.935, 0.268)
pt3dadd(55.515, 316.774, 20.945, 0.282)
pt3dadd(55.414, 316.838, 20.956, 0.296)
pt3dadd(55.314, 316.902, 20.967, 0.31)
pt3dadd(55.213, 316.967, 20.977, 0.324)
pt3dadd(55.113, 317.03, 20.988, 0.34)
pt3dadd(55.012, 317.095, 20.999, 0.354)
pt3dadd(54.911, 317.159, 21.009, 0.368)
pt3dadd(54.811, 317.224, 21.02, 0.382)
pt3dadd(54.711, 317.288, 21.03, 0.394)
pt3dadd(54.613, 317.358, 21.034, 0.4)
pt3dadd(54.516, 317.429, 21.039, 0.406)
pt3dadd(54.419, 317.498, 21.043, 0.412)
pt3dadd(54.321, 317.568, 21.047, 0.418)
pt3dadd(54.224, 317.639, 21.051, 0.424)
pt3dadd(54.127, 317.708, 21.056, 0.43)
pt3dadd(54.029, 317.778, 21.06, 0.436)
pt3dadd(53.932, 317.849, 21.064, 0.442)
pt3dadd(53.835, 317.918, 21.068, 0.448)
pt3dadd(53.738, 317.989, 21.072, 0.452)
pt3dadd(53.643, 318.062, 21.072, 0.452)
pt3dadd(53.549, 318.137, 21.071, 0.452)
pt3dadd(53.454, 318.21, 21.071, 0.452)
pt3dadd(53.359, 318.284, 21.071, 0.452)
pt3dadd(53.265, 318.358, 21.071, 0.452)
pt3dadd(53.17, 318.432, 21.07, 0.452)
pt3dadd(53.075, 318.505, 21.07, 0.452)
pt3dadd(52.981, 318.58, 21.07, 0.452)
pt3dadd(52.886, 318.653, 21.07, 0.452)
pt3dadd(52.79, 318.725, 21.069, 0.454)
pt3dadd(52.688, 318.787, 21.069, 0.464)
pt3dadd(52.585, 318.85, 21.068, 0.474)
pt3dadd(52.483, 318.913, 21.068, 0.486)
pt3dadd(52.38, 318.976, 21.067, 0.496)
pt3dadd(52.278, 319.038, 21.067, 0.506)
pt3dadd(52.176, 319.1, 21.066, 0.518)
pt3dadd(52.073, 319.163, 21.066, 0.528)
pt3dadd(51.971, 319.225, 21.065, 0.54)
pt3dadd(51.868, 319.288, 21.064, 0.55)
}
}
proc shape3d_48() {
dend_5[8] { pt3dadd(51.766, 319.35, 21.064, 0.562)
pt3dadd(51.663, 319.412, 21.063, 0.576)
pt3dadd(51.561, 319.475, 21.062, 0.592)
pt3dadd(51.458, 319.537, 21.061, 0.606)
pt3dadd(51.356, 319.6, 21.06, 0.622)
pt3dadd(51.253, 319.662, 21.059, 0.636)
pt3dadd(51.151, 319.724, 21.059, 0.65)
pt3dadd(51.048, 319.787, 21.058, 0.666)
pt3dadd(50.946, 319.849, 21.057, 0.68)
pt3dadd(50.843, 319.912, 21.056, 0.696)
pt3dadd(50.743, 319.978, 21.055, 0.712)
pt3dadd(50.655, 320.058, 21.053, 0.73)
pt3dadd(50.566, 320.138, 21.051, 0.746)
pt3dadd(50.478, 320.22, 21.049, 0.764)
pt3dadd(50.389, 320.3, 21.048, 0.782)
pt3dadd(50.3, 320.382, 21.046, 0.8)
pt3dadd(50.212, 320.462, 21.044, 0.818)
pt3dadd(50.123, 320.544, 21.042, 0.836)
pt3dadd(50.034, 320.624, 21.04, 0.854)
pt3dadd(49.946, 320.705, 21.038, 0.872)
pt3dadd(49.853, 320.78, 21.036, 0.882)
pt3dadd(49.745, 320.832, 21.033, 0.868)
pt3dadd(49.637, 320.884, 21.029, 0.854)
pt3dadd(49.529, 320.936, 21.026, 0.84)
pt3dadd(49.421, 320.988, 21.022, 0.826)
pt3dadd(49.313, 321.04, 21.019, 0.812)
pt3dadd(49.204, 321.091, 21.015, 0.798)
pt3dadd(49.096, 321.143, 21.012, 0.784)
pt3dadd(48.988, 321.194, 21.008, 0.77)
pt3dadd(48.88, 321.247, 21.004, 0.756)
pt3dadd(48.771, 321.295, 21, 0.746)
pt3dadd(48.657, 321.335, 20.994, 0.75)
pt3dadd(48.544, 321.374, 20.988, 0.752)
pt3dadd(48.431, 321.413, 20.981, 0.756)
pt3dadd(48.318, 321.452, 20.975, 0.758)
pt3dadd(48.205, 321.492, 20.969, 0.76)
pt3dadd(48.092, 321.53, 20.962, 0.764)
pt3dadd(47.979, 321.57, 20.956, 0.766)
pt3dadd(47.865, 321.61, 20.95, 0.768)
pt3dadd(47.752, 321.648, 20.943, 0.772)
pt3dadd(47.639, 321.686, 20.937, 0.776)
pt3dadd(47.525, 321.724, 20.928, 0.782)
pt3dadd(47.411, 321.76, 20.919, 0.788)
pt3dadd(47.297, 321.796, 20.911, 0.796)
pt3dadd(47.183, 321.832, 20.902, 0.802)
pt3dadd(47.069, 321.869, 20.894, 0.808)
pt3dadd(46.955, 321.905, 20.885, 0.816)
pt3dadd(46.841, 321.941, 20.877, 0.822)
pt3dadd(46.728, 321.977, 20.868, 0.828)
pt3dadd(46.614, 322.014, 20.86, 0.836)
pt3dadd(46.502, 322.055, 20.85, 0.828)
pt3dadd(46.394, 322.105, 20.839, 0.79)
pt3dadd(46.286, 322.157, 20.828, 0.75)
pt3dadd(46.178, 322.207, 20.817, 0.712)
pt3dadd(46.071, 322.259, 20.806, 0.672)
pt3dadd(45.963, 322.31, 20.795, 0.634)
pt3dadd(45.855, 322.361, 20.783, 0.594)
pt3dadd(45.747, 322.412, 20.772, 0.556)
pt3dadd(45.64, 322.463, 20.761, 0.516)
pt3dadd(45.532, 322.514, 20.75, 0.478)
pt3dadd(45.424, 322.564, 20.735, 0.444)
pt3dadd(45.317, 322.61, 20.713, 0.428)
pt3dadd(45.209, 322.657, 20.691, 0.41)
pt3dadd(45.102, 322.703, 20.669, 0.394)
pt3dadd(44.994, 322.75, 20.647, 0.376)
pt3dadd(44.887, 322.796, 20.625, 0.36)
pt3dadd(44.78, 322.842, 20.602, 0.342)
pt3dadd(44.672, 322.889, 20.58, 0.324)
pt3dadd(44.565, 322.936, 20.558, 0.308)
pt3dadd(44.457, 322.981, 20.536, 0.29)
pt3dadd(44.351, 323.026, 20.508, 0.284)
pt3dadd(44.246, 323.064, 20.472, 0.298)
pt3dadd(44.142, 323.102, 20.435, 0.31)
pt3dadd(44.037, 323.141, 20.399, 0.322)
pt3dadd(43.932, 323.18, 20.362, 0.336)
pt3dadd(43.827, 323.219, 20.325, 0.348)
pt3dadd(43.722, 323.257, 20.289, 0.36)
pt3dadd(43.618, 323.297, 20.252, 0.374)
pt3dadd(43.513, 323.335, 20.216, 0.386)
pt3dadd(43.408, 323.374, 20.179, 0.398)
pt3dadd(43.304, 323.417, 20.146, 0.404)
pt3dadd(43.2, 323.465, 20.117, 0.402)
pt3dadd(43.096, 323.514, 20.088, 0.398)
pt3dadd(42.992, 323.563, 20.059, 0.394)
pt3dadd(42.888, 323.611, 20.03, 0.392)
pt3dadd(42.783, 323.66, 20.001, 0.388)
pt3dadd(42.679, 323.71, 19.973, 0.384)
pt3dadd(42.575, 323.758, 19.944, 0.382)
pt3dadd(42.471, 323.807, 19.915, 0.378)
pt3dadd(42.367, 323.856, 19.886, 0.374)
pt3dadd(42.264, 323.906, 19.859, 0.368)
pt3dadd(42.161, 323.96, 19.835, 0.356)
pt3dadd(42.058, 324.016, 19.81, 0.342)
pt3dadd(41.955, 324.07, 19.786, 0.33)
pt3dadd(41.852, 324.124, 19.762, 0.318)
pt3dadd(41.749, 324.179, 19.737, 0.306)
pt3dadd(41.646, 324.233, 19.713, 0.292)
pt3dadd(41.543, 324.287, 19.689, 0.28)
pt3dadd(41.44, 324.341, 19.665, 0.268)
pt3dadd(41.337, 324.396, 19.64, 0.256)
pt3dadd(41.231, 324.443, 19.618, 0.256)
pt3dadd(41.119, 324.478, 19.598, 0.278)
pt3dadd(41.007, 324.514, 19.578, 0.298)
pt3dadd(40.895, 324.55, 19.558, 0.318)
pt3dadd(40.783, 324.586, 19.538, 0.338)
pt3dadd(40.671, 324.622, 19.518, 0.358)
pt3dadd(40.559, 324.656, 19.498, 0.38)
pt3dadd(40.447, 324.692, 19.478, 0.4)
pt3dadd(40.335, 324.728, 19.458, 0.42)
pt3dadd(40.223, 324.764, 19.438, 0.44)
pt3dadd(40.11, 324.797, 19.419, 0.46)
pt3dadd(39.995, 324.827, 19.401, 0.478)
pt3dadd(39.881, 324.857, 19.383, 0.494)
pt3dadd(39.767, 324.887, 19.365, 0.512)
pt3dadd(39.653, 324.917, 19.346, 0.53)
pt3dadd(39.539, 324.947, 19.328, 0.548)
pt3dadd(39.425, 324.977, 19.31, 0.566)
pt3dadd(39.31, 325.007, 19.292, 0.584)
pt3dadd(39.196, 325.037, 19.274, 0.6)
pt3dadd(39.082, 325.067, 19.256, 0.618)
pt3dadd(38.967, 325.092, 19.239, 0.616)
pt3dadd(38.85, 325.114, 19.224, 0.586)
pt3dadd(38.733, 325.136, 19.209, 0.558)
pt3dadd(38.617, 325.158, 19.194, 0.53)
pt3dadd(38.5, 325.18, 19.18, 0.502)
pt3dadd(38.383, 325.201, 19.165, 0.474)
pt3dadd(38.267, 325.223, 19.15, 0.446)
pt3dadd(38.15, 325.244, 19.135, 0.416)
pt3dadd(38.034, 325.266, 19.12, 0.388)
pt3dadd(37.917, 325.288, 19.105, 0.36)
pt3dadd(37.802, 325.308, 19.083, 0.34)
pt3dadd(37.69, 325.325, 19.051, 0.328)
pt3dadd(37.577, 325.342, 19.018, 0.316)
pt3dadd(37.465, 325.358, 18.986, 0.304)
pt3dadd(37.353, 325.376, 18.954, 0.292)
pt3dadd(37.24, 325.393, 18.922, 0.28)
pt3dadd(37.128, 325.41, 18.89, 0.268)
pt3dadd(37.016, 325.427, 18.858, 0.256)
pt3dadd(36.903, 325.445, 18.826, 0.244)
pt3dadd(36.791, 325.462, 18.794, 0.23)
pt3dadd(36.682, 325.477, 18.755, 0.226)
pt3dadd(36.575, 325.49, 18.711, 0.226)
pt3dadd(36.468, 325.504, 18.667, 0.226)
pt3dadd(36.361, 325.517, 18.623, 0.226)
pt3dadd(36.254, 325.531, 18.579, 0.226)
pt3dadd(36.147, 325.544, 18.535, 0.226)
pt3dadd(36.04, 325.558, 18.491, 0.226)
pt3dadd(35.933, 325.572, 18.447, 0.226)
pt3dadd(35.826, 325.585, 18.403, 0.226)
pt3dadd(35.719, 325.598, 18.359, 0.226)
pt3dadd(35.614, 325.627, 18.319, 0.246)
pt3dadd(35.51, 325.668, 18.283, 0.278)
pt3dadd(35.405, 325.708, 18.247, 0.312)
pt3dadd(35.301, 325.748, 18.21, 0.344)
pt3dadd(35.197, 325.788, 18.174, 0.378)
pt3dadd(35.092, 325.829, 18.138, 0.41)
pt3dadd(34.988, 325.868, 18.101, 0.444)
pt3dadd(34.884, 325.909, 18.065, 0.476)
pt3dadd(34.78, 325.949, 18.028, 0.51)
pt3dadd(34.675, 325.99, 17.992, 0.542)
pt3dadd(34.572, 326.032, 17.955, 0.576)
pt3dadd(34.469, 326.075, 17.919, 0.608)
pt3dadd(34.366, 326.118, 17.882, 0.64)
pt3dadd(34.263, 326.161, 17.846, 0.674)
pt3dadd(34.16, 326.204, 17.809, 0.706)
pt3dadd(34.057, 326.248, 17.773, 0.738)
pt3dadd(33.954, 326.29, 17.736, 0.77)
pt3dadd(33.851, 326.333, 17.7, 0.804)
pt3dadd(33.747, 326.376, 17.663, 0.836)
pt3dadd(33.645, 326.419, 17.627, 0.868)
pt3dadd(33.545, 326.454, 17.58, 0.864)
pt3dadd(33.446, 326.484, 17.528, 0.838)
pt3dadd(33.348, 326.514, 17.477, 0.812)
pt3dadd(33.25, 326.544, 17.425, 0.786)
pt3dadd(33.152, 326.574, 17.373, 0.76)
pt3dadd(33.053, 326.604, 17.322, 0.736)
pt3dadd(32.955, 326.634, 17.27, 0.71)
pt3dadd(32.857, 326.663, 17.218, 0.684)
pt3dadd(32.758, 326.693, 17.167, 0.658)
pt3dadd(32.66, 326.723, 17.115, 0.634)
pt3dadd(32.56, 326.752, 17.066, 0.612)
pt3dadd(32.458, 326.78, 17.018, 0.596)
pt3dadd(32.356, 326.808, 16.971, 0.578)
pt3dadd(32.254, 326.837, 16.924, 0.56)
pt3dadd(32.152, 326.864, 16.876, 0.544)
pt3dadd(32.05, 326.893, 16.829, 0.526)
pt3dadd(31.948, 326.921, 16.782, 0.51)
pt3dadd(31.847, 326.95, 16.734, 0.492)
pt3dadd(31.745, 326.977, 16.687, 0.474)
pt3dadd(31.643, 327.006, 16.639, 0.458)
pt3dadd(31.537, 327.031, 16.598, 0.452)
pt3dadd(31.428, 327.055, 16.56, 0.452)
pt3dadd(31.32, 327.079, 16.522, 0.452)
pt3dadd(31.212, 327.104, 16.484, 0.452)
pt3dadd(31.104, 327.128, 16.446, 0.452)
pt3dadd(30.995, 327.152, 16.408, 0.452)
pt3dadd(30.887, 327.178, 16.37, 0.452)
pt3dadd(30.779, 327.202, 16.332, 0.452)
pt3dadd(30.671, 327.226, 16.294, 0.452)
pt3dadd(30.562, 327.251, 16.256, 0.452)
}
}
proc shape3d_49() {
dend_5[8] { pt3dadd(30.465, 327.274, 16.202, 0.502)
pt3dadd(30.372, 327.296, 16.141, 0.576)
pt3dadd(30.28, 327.319, 16.08, 0.65)
pt3dadd(30.188, 327.342, 16.019, 0.724)
pt3dadd(30.095, 327.365, 15.959, 0.798)
pt3dadd(30.003, 327.388, 15.898, 0.872)
pt3dadd(29.911, 327.41, 15.837, 0.946)
pt3dadd(29.818, 327.433, 15.776, 1.02)
pt3dadd(29.726, 327.455, 15.715, 1.094)
pt3dadd(29.634, 327.478, 15.654, 1.168)
pt3dadd(29.539, 327.518, 15.603, 1.174)
pt3dadd(29.444, 327.565, 15.556, 1.16)
pt3dadd(29.349, 327.612, 15.509, 1.146)
pt3dadd(29.254, 327.659, 15.461, 1.132)
pt3dadd(29.159, 327.706, 15.414, 1.116)
pt3dadd(29.064, 327.751, 15.367, 1.102)
pt3dadd(28.97, 327.798, 15.319, 1.088)
pt3dadd(28.875, 327.845, 15.272, 1.074)
pt3dadd(28.78, 327.892, 15.225, 1.058)
pt3dadd(28.685, 327.938, 15.179, 1.04)
pt3dadd(28.587, 328, 15.15, 0.96)
pt3dadd(28.49, 328.061, 15.121, 0.88)
pt3dadd(28.393, 328.122, 15.092, 0.8)
pt3dadd(28.295, 328.183, 15.063, 0.72)
pt3dadd(28.198, 328.244, 15.034, 0.64)
pt3dadd(28.101, 328.306, 15.005, 0.562)
pt3dadd(28.003, 328.367, 14.977, 0.482)
pt3dadd(27.906, 328.428, 14.948, 0.402)
pt3dadd(27.809, 328.489, 14.919, 0.322)
pt3dadd(27.711, 328.549, 14.891, 0.25)
pt3dadd(27.604, 328.597, 14.871, 0.266)
pt3dadd(27.497, 328.646, 14.851, 0.282)
pt3dadd(27.39, 328.696, 14.831, 0.298)
pt3dadd(27.283, 328.744, 14.811, 0.314)
pt3dadd(27.176, 328.793, 14.791, 0.33)
pt3dadd(27.069, 328.842, 14.772, 0.346)
pt3dadd(26.962, 328.891, 14.752, 0.36)
pt3dadd(26.855, 328.939, 14.732, 0.376)
pt3dadd(26.748, 328.988, 14.712, 0.392)
pt3dadd(26.641, 329.039, 14.693, 0.406)
pt3dadd(26.538, 329.098, 14.679, 0.4)
pt3dadd(26.435, 329.156, 14.665, 0.396)
pt3dadd(26.332, 329.216, 14.652, 0.39)
pt3dadd(26.229, 329.275, 14.638, 0.384)
pt3dadd(26.126, 329.335, 14.624, 0.38)
pt3dadd(26.023, 329.394, 14.61, 0.374)
pt3dadd(25.92, 329.453, 14.597, 0.368)
pt3dadd(25.817, 329.513, 14.583, 0.362)
pt3dadd(25.714, 329.572, 14.569, 0.356)
pt3dadd(25.611, 329.632, 14.555, 0.35)
pt3dadd(25.51, 329.693, 14.54, 0.338)
pt3dadd(25.409, 329.754, 14.524, 0.324)
pt3dadd(25.307, 329.816, 14.509, 0.312)
pt3dadd(25.206, 329.878, 14.493, 0.3)
pt3dadd(25.105, 329.94, 14.478, 0.288)
pt3dadd(25.004, 330.001, 14.462, 0.274)
pt3dadd(24.902, 330.062, 14.447, 0.262)
pt3dadd(24.801, 330.125, 14.432, 0.248)
pt3dadd(24.7, 330.186, 14.416, 0.236)
pt3dadd(24.6, 330.244, 14.393, 0.226)
pt3dadd(24.507, 330.286, 14.341, 0.226)
pt3dadd(24.414, 330.328, 14.288, 0.226)
pt3dadd(24.321, 330.37, 14.236, 0.226)
pt3dadd(24.228, 330.412, 14.183, 0.226)
pt3dadd(24.135, 330.454, 14.131, 0.226)
pt3dadd(24.042, 330.496, 14.078, 0.226)
pt3dadd(23.948, 330.538, 14.026, 0.226)
pt3dadd(23.855, 330.58, 13.973, 0.226)
pt3dadd(23.762, 330.622, 13.921, 0.226)
pt3dadd(23.668, 330.666, 13.872, 0.226)
pt3dadd(23.568, 330.721, 13.84, 0.226)
pt3dadd(23.469, 330.775, 13.807, 0.226)
pt3dadd(23.37, 330.829, 13.774, 0.226)
pt3dadd(23.27, 330.884, 13.741, 0.226)
pt3dadd(23.171, 330.938, 13.708, 0.226)
pt3dadd(23.071, 330.992, 13.675, 0.226)
pt3dadd(22.972, 331.048, 13.642, 0.226)
pt3dadd(22.872, 331.102, 13.609, 0.226)
pt3dadd(22.773, 331.156, 13.576, 0.226)
pt3dadd(22.669, 331.196, 13.546, 0.228)
pt3dadd(22.552, 331.19, 13.528, 0.238)
pt3dadd(22.434, 331.184, 13.509, 0.248)
pt3dadd(22.316, 331.178, 13.49, 0.258)
pt3dadd(22.199, 331.171, 13.471, 0.268)
pt3dadd(22.081, 331.165, 13.452, 0.276)
pt3dadd(21.963, 331.159, 13.433, 0.286)
pt3dadd(21.846, 331.153, 13.414, 0.296)
pt3dadd(21.728, 331.147, 13.395, 0.306)
pt3dadd(21.61, 331.141, 13.376, 0.316)
pt3dadd(21.497, 331.104, 13.366, 0.33)
pt3dadd(21.384, 331.066, 13.355, 0.342)
pt3dadd(21.271, 331.028, 13.345, 0.356)
pt3dadd(21.157, 330.99, 13.334, 0.37)
pt3dadd(21.044, 330.953, 13.324, 0.384)
pt3dadd(20.931, 330.916, 13.313, 0.398)
pt3dadd(20.818, 330.877, 13.303, 0.412)
pt3dadd(20.704, 330.84, 13.292, 0.424)
pt3dadd(20.591, 330.802, 13.282, 0.438)
pt3dadd(20.478, 330.764, 13.271, 0.452)
}
dend_5[9] {pt3dclear()
pt3dadd(81.7, 276.167, 10.908, 1.016)
pt3dadd(81.62, 276.127, 10.867, 0.976)
pt3dadd(81.525, 276.082, 10.818, 0.93)
pt3dadd(81.44, 276.046, 10.757, 0.904)
pt3dadd(81.379, 276.036, 10.674, 0.904)
pt3dadd(81.36, 276.071, 10.583, 0.886)
pt3dadd(81.36, 276.107, 10.488, 0.828)
pt3dadd(81.36, 276.12, 10.389, 0.748)
pt3dadd(81.36, 276.12, 10.289, 0.7)
pt3dadd(81.362, 276.12, 10.189, 0.678)
pt3dadd(81.381, 276.124, 10.091, 0.678)
pt3dadd(81.435, 276.168, 10.015, 0.678)
pt3dadd(81.47, 276.278, 10, 0.672)
pt3dadd(81.48, 276.397, 10, 0.638)
pt3dadd(81.48, 276.517, 10, 0.598)
pt3dadd(81.48, 276.637, 10, 0.58)
pt3dadd(81.48, 276.757, 10, 0.564)
pt3dadd(81.48, 276.877, 9.999, 0.552)
pt3dadd(81.48, 276.997, 9.995, 0.552)
pt3dadd(81.48, 277.117, 9.991, 0.552)
pt3dadd(81.48, 277.236, 9.977, 0.592)
pt3dadd(81.454, 277.344, 9.945, 0.652)
pt3dadd(81.412, 277.448, 9.91, 0.692)
pt3dadd(81.389, 277.562, 9.897, 0.716)
pt3dadd(81.374, 277.682, 9.893, 0.736)
pt3dadd(81.358, 277.795, 9.879, 0.75)
pt3dadd(81.337, 277.864, 9.799, 0.724)
pt3dadd(81.305, 277.925, 9.722, 0.696)
pt3dadd(81.219, 277.954, 9.656, 0.656)
pt3dadd(81.157, 278.01, 9.609, 0.62)
pt3dadd(81.148, 278.13, 9.605, 0.598)
pt3dadd(81.139, 278.249, 9.6, 0.576)
pt3dadd(81.13, 278.369, 9.595, 0.554)
pt3dadd(81.121, 278.488, 9.59, 0.53)
pt3dadd(81.103, 278.597, 9.552, 0.516)
pt3dadd(81.084, 278.702, 9.508, 0.504)
pt3dadd(81.01, 278.777, 9.465, 0.51)
pt3dadd(80.925, 278.844, 9.422, 0.522)
pt3dadd(80.836, 278.915, 9.4, 0.538)
pt3dadd(80.742, 278.99, 9.4, 0.562)
pt3dadd(80.675, 279.079, 9.393, 0.58)
pt3dadd(80.663, 279.196, 9.371, 0.588)
pt3dadd(80.65, 279.312, 9.35, 0.596)
pt3dadd(80.64, 279.428, 9.33, 0.606)
pt3dadd(80.64, 279.547, 9.318, 0.614)
pt3dadd(80.64, 279.667, 9.306, 0.624)
pt3dadd(80.64, 279.786, 9.3, 0.642)
pt3dadd(80.64, 279.904, 9.283, 0.658)
pt3dadd(80.64, 280.018, 9.254, 0.666)
pt3dadd(80.64, 280.133, 9.224, 0.676)
pt3dadd(80.64, 280.247, 9.194, 0.684)
pt3dadd(80.64, 280.362, 9.164, 0.694)
pt3dadd(80.64, 280.476, 9.134, 0.702)
pt3dadd(80.64, 280.584, 9.09, 0.698)
pt3dadd(80.64, 280.691, 9.045, 0.694)
pt3dadd(80.64, 280.799, 9.001, 0.688)
pt3dadd(80.64, 280.906, 8.956, 0.684)
pt3dadd(80.64, 281.012, 8.911, 0.68)
pt3dadd(80.606, 281.12, 8.884, 0.682)
pt3dadd(80.56, 281.228, 8.863, 0.688)
pt3dadd(80.515, 281.336, 8.841, 0.692)
pt3dadd(80.469, 281.444, 8.82, 0.698)
pt3dadd(80.425, 281.554, 8.799, 0.702)
pt3dadd(80.396, 281.668, 8.782, 0.698)
pt3dadd(80.367, 281.783, 8.764, 0.692)
pt3dadd(80.339, 281.897, 8.747, 0.688)
pt3dadd(80.31, 282.012, 8.729, 0.684)
pt3dadd(80.282, 282.127, 8.712, 0.678)
pt3dadd(80.28, 282.246, 8.705, 0.686)
pt3dadd(80.28, 282.366, 8.698, 0.692)
pt3dadd(80.28, 282.486, 8.691, 0.7)
pt3dadd(80.28, 282.605, 8.684, 0.708)
pt3dadd(80.28, 282.725, 8.678, 0.716)
pt3dadd(80.28, 282.845, 8.671, 0.724)
pt3dadd(80.28, 282.962, 8.656, 0.728)
pt3dadd(80.28, 283.078, 8.626, 0.728)
pt3dadd(80.28, 283.192, 8.596, 0.728)
pt3dadd(80.28, 283.306, 8.566, 0.728)
pt3dadd(80.28, 283.421, 8.536, 0.728)
pt3dadd(80.28, 283.535, 8.507, 0.728)
pt3dadd(80.28, 283.652, 8.487, 0.732)
pt3dadd(80.28, 283.771, 8.471, 0.736)
pt3dadd(80.28, 283.89, 8.454, 0.74)
pt3dadd(80.28, 284.008, 8.438, 0.744)
pt3dadd(80.28, 284.126, 8.421, 0.748)
pt3dadd(80.28, 284.244, 8.405, 0.752)
pt3dadd(80.28, 284.364, 8.4, 0.758)
pt3dadd(80.28, 284.484, 8.4, 0.766)
pt3dadd(80.28, 284.604, 8.4, 0.772)
pt3dadd(80.28, 284.724, 8.4, 0.78)
pt3dadd(80.28, 284.844, 8.4, 0.788)
pt3dadd(80.28, 284.964, 8.4, 0.794)
pt3dadd(80.28, 285.084, 8.4, 0.802)
pt3dadd(80.28, 285.203, 8.389, 0.816)
pt3dadd(80.28, 285.322, 8.372, 0.832)
pt3dadd(80.28, 285.439, 8.356, 0.848)
pt3dadd(80.28, 285.558, 8.339, 0.864)
pt3dadd(80.28, 285.677, 8.323, 0.882)
pt3dadd(80.28, 285.794, 8.306, 0.898)
pt3dadd(80.28, 285.908, 8.277, 0.924)
pt3dadd(80.28, 286.02, 8.24, 0.956)
}
}
proc shape3d_50() {
dend_5[9] { pt3dadd(80.28, 286.132, 8.203, 0.99)
pt3dadd(80.28, 286.243, 8.166, 1.022)
pt3dadd(80.28, 286.355, 8.128, 1.054)
pt3dadd(80.28, 286.468, 8.1, 1.096)
pt3dadd(80.28, 286.588, 8.1, 1.162)
pt3dadd(80.28, 286.708, 8.1, 1.23)
pt3dadd(80.28, 286.828, 8.1, 1.296)
pt3dadd(80.28, 286.948, 8.1, 1.364)
pt3dadd(80.28, 287.068, 8.1, 1.43)
pt3dadd(80.279, 287.188, 8.1, 1.496)
pt3dadd(80.274, 287.308, 8.1, 1.556)
pt3dadd(80.27, 287.428, 8.1, 1.618)
pt3dadd(80.233, 287.53, 8.1, 1.658)
pt3dadd(80.134, 287.598, 8.1, 1.658)
pt3dadd(80.038, 287.669, 8.1, 1.638)
pt3dadd(79.953, 287.754, 8.1, 1.532)
pt3dadd(79.922, 287.864, 8.1, 1.466)
pt3dadd(79.907, 287.983, 8.1, 1.414)
pt3dadd(79.892, 288.103, 8.1, 1.362)
pt3dadd(79.877, 288.222, 8.1, 1.31)
pt3dadd(79.862, 288.341, 8.1, 1.258)
pt3dadd(79.847, 288.46, 8.1, 1.206)
pt3dadd(79.833, 288.578, 8.094, 1.158)
pt3dadd(79.819, 288.697, 8.083, 1.114)
pt3dadd(79.805, 288.816, 8.071, 1.072)
pt3dadd(79.791, 288.934, 8.059, 1.028)
pt3dadd(79.778, 289.052, 8.048, 0.984)
pt3dadd(79.764, 289.171, 8.036, 0.94)
pt3dadd(79.749, 289.288, 8.016, 0.908)
pt3dadd(79.734, 289.403, 7.993, 0.88)
pt3dadd(79.719, 289.519, 7.97, 0.85)
pt3dadd(79.703, 289.634, 7.947, 0.822)
pt3dadd(79.688, 289.75, 7.924, 0.794)
pt3dadd(79.68, 289.868, 7.91, 0.776)
pt3dadd(79.68, 289.988, 7.909, 0.774)
pt3dadd(79.68, 290.108, 7.907, 0.77)
pt3dadd(79.68, 290.228, 7.905, 0.766)
pt3dadd(79.68, 290.348, 7.904, 0.762)
pt3dadd(79.68, 290.468, 7.902, 0.758)
pt3dadd(79.68, 290.587, 7.901, 0.754)
pt3dadd(79.68, 290.707, 7.9, 0.754)
pt3dadd(79.68, 290.827, 7.9, 0.754)
pt3dadd(79.68, 290.947, 7.9, 0.754)
pt3dadd(79.68, 291.067, 7.9, 0.754)
pt3dadd(79.68, 291.187, 7.9, 0.754)
pt3dadd(79.68, 291.307, 7.9, 0.754)
pt3dadd(79.68, 291.427, 7.9, 0.754)
pt3dadd(79.691, 291.547, 7.9, 0.748)
pt3dadd(79.711, 291.665, 7.9, 0.74)
pt3dadd(79.731, 291.784, 7.9, 0.732)
pt3dadd(79.75, 291.902, 7.9, 0.724)
pt3dadd(79.77, 292.02, 7.9, 0.716)
pt3dadd(79.79, 292.139, 7.9, 0.708)
pt3dadd(79.8, 292.258, 7.9, 0.698)
pt3dadd(79.8, 292.378, 7.9, 0.688)
pt3dadd(79.8, 292.498, 7.9, 0.676)
pt3dadd(79.8, 292.618, 7.9, 0.666)
pt3dadd(79.8, 292.738, 7.9, 0.654)
pt3dadd(79.8, 292.858, 7.9, 0.644)
pt3dadd(79.8, 292.978, 7.9, 0.634)
pt3dadd(79.81, 293.096, 7.897, 0.62)
pt3dadd(79.831, 293.215, 7.891, 0.602)
pt3dadd(79.852, 293.333, 7.886, 0.584)
pt3dadd(79.872, 293.45, 7.88, 0.568)
pt3dadd(79.893, 293.569, 7.874, 0.55)
pt3dadd(79.914, 293.687, 7.868, 0.532)
pt3dadd(79.92, 293.806, 7.859, 0.524)
pt3dadd(79.92, 293.926, 7.849, 0.52)
pt3dadd(79.92, 294.044, 7.838, 0.516)
pt3dadd(79.92, 294.163, 7.828, 0.512)
pt3dadd(79.92, 294.283, 7.817, 0.508)
pt3dadd(79.92, 294.402, 7.807, 0.504)
pt3dadd(79.92, 294.522, 7.796, 0.504)
pt3dadd(79.92, 294.641, 7.786, 0.512)
pt3dadd(79.92, 294.761, 7.775, 0.52)
pt3dadd(79.92, 294.88, 7.765, 0.528)
pt3dadd(79.92, 295, 7.754, 0.536)
pt3dadd(79.92, 295.118, 7.744, 0.544)
pt3dadd(79.92, 295.237, 7.734, 0.552)
pt3dadd(79.92, 295.357, 7.721, 0.598)
pt3dadd(79.92, 295.476, 7.709, 0.646)
pt3dadd(79.92, 295.595, 7.7, 0.69)
pt3dadd(79.92, 295.715, 7.7, 0.732)
pt3dadd(79.92, 295.835, 7.7, 0.774)
pt3dadd(79.919, 295.955, 7.7, 0.808)
pt3dadd(79.914, 296.075, 7.7, 0.826)
pt3dadd(79.91, 296.195, 7.7, 0.844)
pt3dadd(79.877, 296.3, 7.685, 0.848)
pt3dadd(79.802, 296.382, 7.647, 0.834)
pt3dadd(79.714, 296.453, 7.617, 0.778)
pt3dadd(79.626, 296.528, 7.6, 0.722)
pt3dadd(79.551, 296.622, 7.6, 0.708)
pt3dadd(79.476, 296.716, 7.6, 0.692)
pt3dadd(79.401, 296.81, 7.6, 0.678)
pt3dadd(79.326, 296.904, 7.6, 0.662)
pt3dadd(79.265, 297.005, 7.6, 0.64)
pt3dadd(79.225, 297.118, 7.6, 0.608)
pt3dadd(79.185, 297.232, 7.6, 0.578)
pt3dadd(79.145, 297.344, 7.6, 0.578)
pt3dadd(79.106, 297.458, 7.6, 0.578)
pt3dadd(79.093, 297.576, 7.6, 0.578)
pt3dadd(79.093, 297.696, 7.6, 0.578)
pt3dadd(79.093, 297.816, 7.6, 0.578)
pt3dadd(79.148, 297.92, 7.6, 0.608)
pt3dadd(79.209, 298.024, 7.6, 0.644)
pt3dadd(79.24, 298.139, 7.6, 0.662)
pt3dadd(79.26, 298.256, 7.6, 0.674)
pt3dadd(79.279, 298.375, 7.6, 0.686)
pt3dadd(79.298, 298.494, 7.6, 0.698)
pt3dadd(79.284, 298.609, 7.597, 0.716)
pt3dadd(79.242, 298.721, 7.592, 0.738)
pt3dadd(79.201, 298.831, 7.579, 0.742)
pt3dadd(79.153, 298.93, 7.539, 0.72)
pt3dadd(79.101, 299.026, 7.496, 0.706)
pt3dadd(79.088, 299.135, 7.46, 0.694)
pt3dadd(79.082, 299.248, 7.425, 0.682)
pt3dadd(79.08, 299.364, 7.409, 0.672)
pt3dadd(79.08, 299.484, 7.405, 0.664)
pt3dadd(79.08, 299.604, 7.401, 0.656)
pt3dadd(79.076, 299.72, 7.42, 0.638)
pt3dadd(79.07, 299.836, 7.449, 0.616)
pt3dadd(79.047, 299.946, 7.477, 0.58)
pt3dadd(78.998, 300.05, 7.503, 0.526)
pt3dadd(78.985, 300.162, 7.536, 0.514)
pt3dadd(78.977, 300.275, 7.568, 0.504)
pt3dadd(79.03, 300.38, 7.585, 0.516)
pt3dadd(79.084, 300.486, 7.6, 0.528)
pt3dadd(79.152, 300.584, 7.6, 0.552)
pt3dadd(79.22, 300.684, 7.6, 0.576)
pt3dadd(79.294, 300.768, 7.566, 0.59)
pt3dadd(79.367, 300.852, 7.531, 0.602)
pt3dadd(79.424, 300.955, 7.512, 0.602)
pt3dadd(79.46, 301.06, 7.55, 0.602)
pt3dadd(79.496, 301.162, 7.588, 0.602)
pt3dadd(79.608, 301.189, 7.559, 0.602)
pt3dadd(79.719, 301.218, 7.531, 0.602)
pt3dadd(79.829, 301.264, 7.515, 0.602)
pt3dadd(79.939, 301.307, 7.5, 0.602)
pt3dadd(80.058, 301.312, 7.504, 0.602)
pt3dadd(80.178, 301.316, 7.508, 0.602)
pt3dadd(80.295, 301.32, 7.523, 0.594)
pt3dadd(80.402, 301.32, 7.568, 0.56)
pt3dadd(80.479, 301.32, 7.641, 0.544)
pt3dadd(80.547, 301.32, 7.724, 0.532)
pt3dadd(80.646, 301.316, 7.767, 0.54)
pt3dadd(80.763, 301.312, 7.784, 0.56)
pt3dadd(80.88, 301.301, 7.8, 0.588)
pt3dadd(80.991, 301.254, 7.8, 0.676)
pt3dadd(81.102, 301.207, 7.8, 0.764)
pt3dadd(81.212, 301.162, 7.8, 0.852)
pt3dadd(81.323, 301.115, 7.8, 0.94)
pt3dadd(81.434, 301.091, 7.781, 0.994)
pt3dadd(81.547, 301.088, 7.746, 1.02)
pt3dadd(81.659, 301.085, 7.711, 1.046)
pt3dadd(81.771, 301.081, 7.676, 1.074)
pt3dadd(81.837, 301.048, 7.605, 1.06)
pt3dadd(81.887, 301.004, 7.521, 1.032)
pt3dadd(81.991, 300.988, 7.48, 0.992)
pt3dadd(82.103, 300.973, 7.446, 0.948)
pt3dadd(82.214, 300.96, 7.411, 0.904)
pt3dadd(82.334, 300.96, 7.403, 0.85)
pt3dadd(82.454, 300.96, 7.395, 0.796)
pt3dadd(82.572, 300.96, 7.383, 0.72)
pt3dadd(82.688, 300.95, 7.362, 0.618)
pt3dadd(82.806, 300.929, 7.352, 0.594)
pt3dadd(82.923, 300.906, 7.342, 0.572)
pt3dadd(83.04, 300.883, 7.331, 0.548)
pt3dadd(83.157, 300.86, 7.321, 0.524)
pt3dadd(83.273, 300.84, 7.316, 0.5)
pt3dadd(83.36, 300.84, 7.384, 0.464)
pt3dadd(83.448, 300.84, 7.452, 0.428)
pt3dadd(83.565, 300.84, 7.472, 0.418)
pt3dadd(83.683, 300.84, 7.489, 0.408)
pt3dadd(83.802, 300.835, 7.498, 0.412)
pt3dadd(83.92, 300.82, 7.494, 0.442)
pt3dadd(84.039, 300.804, 7.49, 0.47)
pt3dadd(84.112, 300.767, 7.428, 0.508)
pt3dadd(84.17, 300.722, 7.349, 0.55)
pt3dadd(84.286, 300.72, 7.336, 0.572)
pt3dadd(84.405, 300.714, 7.33, 0.568)
pt3dadd(84.525, 300.707, 7.326, 0.552)
pt3dadd(84.645, 300.7, 7.322, 0.538)
pt3dadd(84.764, 300.691, 7.317, 0.522)
pt3dadd(84.884, 300.684, 7.313, 0.508)
pt3dadd(85.001, 300.671, 7.325, 0.49)
pt3dadd(85.116, 300.655, 7.349, 0.47)
pt3dadd(85.232, 300.64, 7.373, 0.452)
pt3dadd(85.347, 300.624, 7.397, 0.432)
pt3dadd(85.463, 300.608, 7.421, 0.412)
pt3dadd(85.578, 300.6, 7.448, 0.392)
pt3dadd(85.692, 300.6, 7.478, 0.374)
pt3dadd(85.807, 300.6, 7.508, 0.356)
pt3dadd(85.921, 300.6, 7.538, 0.338)
pt3dadd(86.036, 300.6, 7.568, 0.32)
pt3dadd(86.15, 300.6, 7.597, 0.302)
pt3dadd(86.268, 300.6, 7.615, 0.294)
pt3dadd(86.387, 300.6, 7.632, 0.286)
pt3dadd(86.505, 300.6, 7.648, 0.278)
pt3dadd(86.623, 300.6, 7.664, 0.268)
pt3dadd(86.742, 300.6, 7.681, 0.26)
}
}
proc shape3d_51() {
dend_5[9] { pt3dadd(86.86, 300.6, 7.697, 0.252)
pt3dadd(86.967, 300.622, 7.736, 0.252)
pt3dadd(87.072, 300.648, 7.78, 0.252)
pt3dadd(87.177, 300.674, 7.824, 0.252)
pt3dadd(87.282, 300.701, 7.867, 0.252)
pt3dadd(87.388, 300.731, 7.9, 0.252)
pt3dadd(87.499, 300.775, 7.9, 0.256)
pt3dadd(87.611, 300.821, 7.9, 0.262)
pt3dadd(87.722, 300.865, 7.9, 0.266)
pt3dadd(87.834, 300.91, 7.9, 0.27)
pt3dadd(87.945, 300.954, 7.9, 0.276)
pt3dadd(88.053, 301.007, 7.9, 0.286)
pt3dadd(88.16, 301.06, 7.9, 0.298)
pt3dadd(88.238, 301.145, 7.9, 0.294)
pt3dadd(88.299, 301.248, 7.9, 0.282)
pt3dadd(88.357, 301.34, 7.928, 0.276)
pt3dadd(88.41, 301.416, 7.991, 0.276)
pt3dadd(88.455, 301.444, 8.075, 0.276)
pt3dadd(88.497, 301.45, 8.169, 0.276)
pt3dadd(88.564, 301.478, 8.233, 0.28)
pt3dadd(88.664, 301.537, 8.257, 0.288)
pt3dadd(88.764, 301.596, 8.282, 0.296)
pt3dadd(88.869, 301.646, 8.304, 0.298)
pt3dadd(88.985, 301.669, 8.318, 0.288)
pt3dadd(89.102, 301.692, 8.333, 0.276)
pt3dadd(89.199, 301.739, 8.367, 0.246)
pt3dadd(89.306, 301.793, 8.367, 0.232)
pt3dadd(89.383, 301.872, 8.344, 0.234)
pt3dadd(89.441, 301.967, 8.308, 0.248)
pt3dadd(89.544, 302.011, 8.288, 0.268)
pt3dadd(89.659, 302.04, 8.273, 0.292)
pt3dadd(89.751, 302.084, 8.23, 0.326)
pt3dadd(89.827, 302.137, 8.167, 0.37)
pt3dadd(89.861, 302.154, 8.075, 0.39)
pt3dadd(89.884, 302.171, 7.979, 0.402)
pt3dadd(89.904, 302.215, 7.888, 0.402)
pt3dadd(89.933, 302.267, 7.81, 0.4)
pt3dadd(90.018, 302.351, 7.805, 0.388)
pt3dadd(90.1, 302.438, 7.8, 0.378)
pt3dadd(90.161, 302.542, 7.8, 0.39)
pt3dadd(90.222, 302.645, 7.8, 0.4)
pt3dadd(90.231, 302.764, 7.8, 0.41)
pt3dadd(90.236, 302.884, 7.8, 0.418)
pt3dadd(90.24, 303.004, 7.799, 0.428)
pt3dadd(90.221, 303.115, 7.768, 0.438)
pt3dadd(90.202, 303.228, 7.737, 0.45)
pt3dadd(90.138, 303.301, 7.682, 0.466)
pt3dadd(90.071, 303.353, 7.612, 0.54)
pt3dadd(90.004, 303.397, 7.538, 0.578)
pt3dadd(89.929, 303.454, 7.477, 0.52)
pt3dadd(89.844, 303.492, 7.414, 0.504)
pt3dadd(89.759, 303.529, 7.351, 0.486)
pt3dadd(89.674, 303.568, 7.288, 0.468)
pt3dadd(89.592, 303.6, 7.222, 0.448)
pt3dadd(89.531, 303.6, 7.136, 0.414)
pt3dadd(89.471, 303.6, 7.049, 0.378)
pt3dadd(89.357, 303.617, 7.026, 0.356)
pt3dadd(89.241, 303.634, 7.007, 0.334)
pt3dadd(89.131, 303.676, 6.997, 0.326)
pt3dadd(89.025, 303.732, 6.991, 0.326)
pt3dadd(88.959, 303.784, 6.944, 0.346)
pt3dadd(88.933, 303.83, 6.854, 0.384)
pt3dadd(88.872, 303.886, 6.792, 0.414)
pt3dadd(88.78, 303.947, 6.755, 0.44)
pt3dadd(88.687, 304.009, 6.718, 0.464)
pt3dadd(88.596, 304.081, 6.7, 0.488)
pt3dadd(88.508, 304.163, 6.7, 0.512)
pt3dadd(88.441, 304.256, 6.7, 0.528)
pt3dadd(88.38, 304.356, 6.7, 0.548)
pt3dadd(88.299, 304.444, 6.7, 0.582)
pt3dadd(88.244, 304.546, 6.7, 0.628)
pt3dadd(88.224, 304.663, 6.7, 0.686)
pt3dadd(88.203, 304.782, 6.7, 0.744)
pt3dadd(88.2, 304.896, 6.672, 0.826)
pt3dadd(88.2, 305.009, 6.639, 0.91)
pt3dadd(88.178, 305.095, 6.583, 0.982)
pt3dadd(88.134, 305.154, 6.504, 1.036)
pt3dadd(88.098, 305.231, 6.435, 1.054)
pt3dadd(88.08, 305.327, 6.38, 1.04)
pt3dadd(88.08, 305.435, 6.335, 1.006)
pt3dadd(88.076, 305.534, 6.283, 0.972)
pt3dadd(88.055, 305.603, 6.203, 0.932)
pt3dadd(88.03, 305.682, 6.139, 0.888)
pt3dadd(87.991, 305.792, 6.117, 0.826)
pt3dadd(87.96, 305.905, 6.097, 0.766)
pt3dadd(87.96, 306.024, 6.085, 0.71)
pt3dadd(87.96, 306.143, 6.073, 0.654)
pt3dadd(87.96, 306.262, 6.058, 0.59)
pt3dadd(87.96, 306.38, 6.042, 0.514)
pt3dadd(87.95, 306.491, 6.058, 0.44)
pt3dadd(87.904, 306.571, 6.118, 0.446)
pt3dadd(87.841, 306.6, 6.199, 0.526)
pt3dadd(87.759, 306.606, 6.269, 0.73)
pt3dadd(87.665, 306.647, 6.318, 0.814)
pt3dadd(87.575, 306.701, 6.367, 0.832)
pt3dadd(87.485, 306.756, 6.415, 0.852)
pt3dadd(87.395, 306.81, 6.463, 0.87)
pt3dadd(87.302, 306.852, 6.514, 0.866)
pt3dadd(87.206, 306.88, 6.569, 0.838)
pt3dadd(87.11, 306.906, 6.625, 0.81)
pt3dadd(87.013, 306.934, 6.68, 0.78)
pt3dadd(86.916, 306.96, 6.734, 0.752)
pt3dadd(86.801, 306.96, 6.762, 0.678)
pt3dadd(86.686, 306.96, 6.789, 0.606)
pt3dadd(86.568, 306.96, 6.802, 0.546)
pt3dadd(86.448, 306.96, 6.806, 0.494)
pt3dadd(86.328, 306.96, 6.81, 0.442)
pt3dadd(86.239, 306.974, 6.865, 0.408)
pt3dadd(86.163, 306.995, 6.94, 0.382)
pt3dadd(86.071, 307.034, 6.994, 0.388)
pt3dadd(85.976, 307.079, 7.043, 0.402)
pt3dadd(85.9, 307.102, 7.117, 0.416)
pt3dadd(85.824, 307.136, 7.173, 0.438)
pt3dadd(85.734, 307.189, 7.13, 0.452)
pt3dadd(85.62, 307.2, 7.1, 0.452)
pt3dadd(85.505, 307.2, 7.073, 0.47)
pt3dadd(85.407, 307.201, 7.017, 0.536)
pt3dadd(85.342, 307.231, 6.94, 0.636)
pt3dadd(85.298, 307.294, 6.863, 0.686)
pt3dadd(85.227, 307.36, 6.811, 0.728)
pt3dadd(85.14, 307.44, 6.8, 0.74)
pt3dadd(85.046, 307.516, 6.8, 0.728)
pt3dadd(84.937, 307.556, 6.819, 0.78)
pt3dadd(84.854, 307.598, 6.877, 0.854)
pt3dadd(84.84, 307.657, 6.962, 0.832)
pt3dadd(84.828, 307.715, 7.049, 0.826)
pt3dadd(84.754, 307.799, 7.078, 0.854)
pt3dadd(84.674, 307.883, 7.1, 0.882)
pt3dadd(84.558, 307.915, 7.1, 0.944)
pt3dadd(84.443, 307.948, 7.1, 1.006)
pt3dadd(84.333, 307.994, 7.1, 1.156)
pt3dadd(84.216, 308.018, 7.1, 1.21)
pt3dadd(84.097, 308.038, 7.1, 1.242)
pt3dadd(83.979, 308.057, 7.1, 1.276)
pt3dadd(83.861, 308.077, 7.1, 1.308)
pt3dadd(83.742, 308.096, 7.1, 1.342)
pt3dadd(83.624, 308.117, 7.1, 1.374)
pt3dadd(83.509, 308.149, 7.1, 1.402)
pt3dadd(83.394, 308.184, 7.1, 1.43)
pt3dadd(83.279, 308.22, 7.1, 1.456)
pt3dadd(83.165, 308.256, 7.1, 1.484)
pt3dadd(83.05, 308.292, 7.1, 1.51)
pt3dadd(82.941, 308.336, 7.1, 1.534)
pt3dadd(82.852, 308.418, 7.1, 1.55)
pt3dadd(82.764, 308.498, 7.1, 1.566)
pt3dadd(82.675, 308.579, 7.1, 1.58)
pt3dadd(82.587, 308.66, 7.1, 1.596)
pt3dadd(82.496, 308.738, 7.102, 1.604)
pt3dadd(82.401, 308.812, 7.109, 1.594)
pt3dadd(82.306, 308.885, 7.116, 1.584)
pt3dadd(82.211, 308.957, 7.123, 1.572)
pt3dadd(82.116, 309.03, 7.13, 1.562)
pt3dadd(82.027, 309.107, 7.144, 1.542)
pt3dadd(81.944, 309.19, 7.167, 1.514)
pt3dadd(81.862, 309.272, 7.19, 1.486)
pt3dadd(81.779, 309.355, 7.213, 1.456)
pt3dadd(81.701, 309.436, 7.243, 1.4)
pt3dadd(81.648, 309.478, 7.322, 1.14)
pt3dadd(81.592, 309.482, 7.411, 0.9)
pt3dadd(81.527, 309.526, 7.483, 0.718)
pt3dadd(81.488, 309.632, 7.48, 0.678)
pt3dadd(81.48, 309.742, 7.441, 0.698)
pt3dadd(81.462, 309.853, 7.407, 0.762)
pt3dadd(81.407, 309.94, 7.361, 0.824)
pt3dadd(81.347, 309.96, 7.278, 0.788)
pt3dadd(81.283, 309.96, 7.194, 0.682)
pt3dadd(81.185, 309.96, 7.138, 0.626)
pt3dadd(81.082, 309.96, 7.087, 0.592)
pt3dadd(80.987, 310, 7.045, 0.578)
pt3dadd(80.898, 310.067, 7.007, 0.578)
pt3dadd(80.818, 310.151, 6.998, 0.68)
pt3dadd(80.709, 310.196, 6.977, 0.708)
pt3dadd(80.601, 310.242, 6.956, 0.734)
pt3dadd(80.493, 310.286, 6.934, 0.76)
pt3dadd(80.385, 310.332, 6.913, 0.788)
pt3dadd(80.296, 310.4, 6.9, 0.812)
pt3dadd(80.235, 310.504, 6.9, 0.836)
pt3dadd(80.165, 310.598, 6.9, 0.85)
pt3dadd(80.062, 310.66, 6.9, 0.826)
pt3dadd(79.959, 310.72, 6.899, 0.802)
pt3dadd(79.87, 310.765, 6.844, 0.732)
pt3dadd(79.782, 310.81, 6.786, 0.662)
pt3dadd(79.7, 310.855, 6.724, 0.592)
pt3dadd(79.608, 310.894, 6.67, 0.526)
pt3dadd(79.504, 310.925, 6.629, 0.476)
pt3dadd(79.394, 310.958, 6.601, 0.464)
pt3dadd(79.284, 310.992, 6.573, 0.454)
pt3dadd(79.173, 311.027, 6.544, 0.444)
pt3dadd(79.063, 311.06, 6.516, 0.434)
pt3dadd(78.955, 311.101, 6.491, 0.422)
pt3dadd(78.851, 311.154, 6.469, 0.412)
pt3dadd(78.746, 311.207, 6.447, 0.4)
pt3dadd(78.641, 311.258, 6.425, 0.39)
pt3dadd(78.537, 311.311, 6.404, 0.378)
pt3dadd(78.441, 311.383, 6.4, 0.366)
pt3dadd(78.348, 311.458, 6.4, 0.356)
pt3dadd(78.252, 311.528, 6.388, 0.36)
pt3dadd(78.156, 311.597, 6.371, 0.374)
pt3dadd(78.07, 311.671, 6.338, 0.41)
pt3dadd(77.988, 311.746, 6.301, 0.452)
}
}
proc shape3d_52() {
dend_5[9] { pt3dadd(77.883, 311.753, 6.254, 0.464)
pt3dadd(77.777, 311.759, 6.207, 0.476)
pt3dadd(77.681, 311.76, 6.147, 0.462)
pt3dadd(77.585, 311.76, 6.087, 0.438)
pt3dadd(77.486, 311.76, 6.031, 0.402)
pt3dadd(77.406, 311.772, 5.966, 0.366)
pt3dadd(77.38, 311.819, 5.876, 0.33)
pt3dadd(77.335, 311.873, 5.805, 0.294)
pt3dadd(77.243, 311.944, 5.781, 0.268)
pt3dadd(77.157, 312.019, 5.752, 0.246)
pt3dadd(77.082, 312.101, 5.715, 0.232)
pt3dadd(77.032, 312.203, 5.696, 0.236)
pt3dadd(76.996, 312.314, 5.683, 0.254)
pt3dadd(76.951, 312.397, 5.621, 0.298)
pt3dadd(76.907, 312.485, 5.565, 0.352)
pt3dadd(76.863, 312.584, 5.523, 0.432)
pt3dadd(76.833, 312.694, 5.5, 0.506)
pt3dadd(76.818, 312.812, 5.5, 0.572)
pt3dadd(76.803, 312.931, 5.5, 0.638)
pt3dadd(76.8, 313.051, 5.5, 0.684)
pt3dadd(76.8, 313.171, 5.5, 0.726)
pt3dadd(76.8, 313.291, 5.5, 0.768)
pt3dadd(76.818, 313.404, 5.527, 0.778)
pt3dadd(76.842, 313.513, 5.563, 0.778)
pt3dadd(76.865, 313.622, 5.599, 0.778)
pt3dadd(76.905, 313.715, 5.645, 0.762)
pt3dadd(76.974, 313.776, 5.709, 0.72)
pt3dadd(77.011, 313.871, 5.747, 0.688)
pt3dadd(77.029, 313.987, 5.769, 0.662)
pt3dadd(77.046, 314.102, 5.792, 0.638)
pt3dadd(77.079, 314.216, 5.803, 0.628)
pt3dadd(77.12, 314.328, 5.808, 0.628)
pt3dadd(77.148, 314.414, 5.845, 0.63)
pt3dadd(77.153, 314.454, 5.94, 0.638)
pt3dadd(77.157, 314.492, 6.034, 0.648)
pt3dadd(77.16, 314.538, 6.126, 0.656)
pt3dadd(77.16, 314.599, 6.212, 0.668)
pt3dadd(77.16, 314.666, 6.292, 0.678)
pt3dadd(77.16, 314.782, 6.319, 0.678)
pt3dadd(77.15, 314.89, 6.358, 0.66)
pt3dadd(77.08, 314.969, 6.393, 0.612)
pt3dadd(76.966, 315.004, 6.4, 0.562)
pt3dadd(76.851, 315.036, 6.4, 0.53)
pt3dadd(76.765, 315.115, 6.397, 0.56)
pt3dadd(76.72, 315.224, 6.381, 0.596)
pt3dadd(76.68, 315.335, 6.363, 0.632)
pt3dadd(76.68, 315.45, 6.336, 0.662)
pt3dadd(76.68, 315.565, 6.308, 0.694)
pt3dadd(76.68, 315.684, 6.3, 0.72)
pt3dadd(76.707, 315.794, 6.276, 0.716)
pt3dadd(76.745, 315.9, 6.242, 0.7)
pt3dadd(76.783, 316.006, 6.207, 0.684)
pt3dadd(76.821, 316.112, 6.173, 0.666)
pt3dadd(76.865, 316.217, 6.143, 0.65)
pt3dadd(76.936, 316.313, 6.133, 0.628)
pt3dadd(77.006, 316.409, 6.124, 0.606)
pt3dadd(77.077, 316.505, 6.115, 0.586)
pt3dadd(77.148, 316.601, 6.105, 0.564)
pt3dadd(77.224, 316.693, 6.1, 0.542)
pt3dadd(77.306, 316.781, 6.1, 0.518)
pt3dadd(77.382, 316.872, 6.108, 0.506)
pt3dadd(77.444, 316.97, 6.131, 0.52)
pt3dadd(77.489, 317.046, 6.184, 0.538)
pt3dadd(77.508, 317.092, 6.275, 0.562)
pt3dadd(77.527, 317.146, 6.362, 0.572)
pt3dadd(77.548, 317.214, 6.442, 0.56)
pt3dadd(77.593, 317.291, 6.492, 0.528)
pt3dadd(77.669, 317.382, 6.5, 0.476)
pt3dadd(77.709, 317.496, 6.5, 0.454)
pt3dadd(77.749, 317.609, 6.5, 0.432)
pt3dadd(77.76, 317.714, 6.537, 0.436)
pt3dadd(77.76, 317.819, 6.587, 0.446)
pt3dadd(77.757, 317.878, 6.663, 0.462)
pt3dadd(77.752, 317.899, 6.762, 0.482)
pt3dadd(77.745, 317.922, 6.859, 0.502)
pt3dadd(77.694, 317.965, 6.943, 0.502)
pt3dadd(77.652, 318.012, 7.026, 0.5)
pt3dadd(77.646, 318.074, 7.111, 0.488)
pt3dadd(77.64, 318.143, 7.19, 0.478)
pt3dadd(77.64, 318.262, 7.198, 0.488)
pt3dadd(77.64, 318.38, 7.181, 0.554)
pt3dadd(77.65, 318.488, 7.142, 0.64)
pt3dadd(77.7, 318.57, 7.088, 0.712)
pt3dadd(77.8, 318.604, 7.043, 0.736)
pt3dadd(77.907, 318.63, 7.003, 0.748)
pt3dadd(77.968, 318.665, 6.932, 0.746)
pt3dadd(78.002, 318.706, 6.843, 0.732)
pt3dadd(78.054, 318.775, 6.78, 0.722)
pt3dadd(78.116, 318.86, 6.733, 0.71)
pt3dadd(78.178, 318.952, 6.7, 0.7)
pt3dadd(78.239, 319.055, 6.7, 0.688)
pt3dadd(78.303, 319.156, 6.7, 0.682)
pt3dadd(78.393, 319.232, 6.691, 0.71)
pt3dadd(78.476, 319.315, 6.668, 0.728)
pt3dadd(78.558, 319.398, 6.645, 0.744)
pt3dadd(78.641, 319.481, 6.622, 0.762)
pt3dadd(78.722, 319.565, 6.6, 0.78)
pt3dadd(78.767, 319.675, 6.598, 0.808)
pt3dadd(78.813, 319.787, 6.596, 0.836)
pt3dadd(78.858, 319.897, 6.594, 0.866)
pt3dadd(78.903, 320.009, 6.592, 0.894)
pt3dadd(78.949, 320.119, 6.589, 0.922)
pt3dadd(78.96, 320.213, 6.537, 0.982)
pt3dadd(78.96, 320.3, 6.469, 1.054)
pt3dadd(79.005, 320.392, 6.429, 1.106)
pt3dadd(79.076, 320.484, 6.406, 1.146)
pt3dadd(79.172, 320.552, 6.4, 1.138)
pt3dadd(79.275, 320.614, 6.4, 1.114)
pt3dadd(79.373, 320.682, 6.4, 1.078)
pt3dadd(79.467, 320.758, 6.4, 1.032)
pt3dadd(79.561, 320.832, 6.4, 0.974)
pt3dadd(79.654, 320.906, 6.4, 0.904)
pt3dadd(79.765, 320.953, 6.4, 0.87)
pt3dadd(79.876, 321, 6.4, 0.838)
pt3dadd(79.967, 321.074, 6.404, 0.784)
pt3dadd(80.052, 321.16, 6.409, 0.724)
pt3dadd(80.109, 321.226, 6.464, 0.648)
pt3dadd(80.153, 321.284, 6.544, 0.564)
pt3dadd(80.16, 321.394, 6.57, 0.494)
pt3dadd(80.16, 321.511, 6.587, 0.428)
pt3dadd(80.16, 321.63, 6.6, 0.364)
pt3dadd(80.16, 321.75, 6.6, 0.314)
pt3dadd(80.164, 321.87, 6.605, 0.274)
pt3dadd(80.178, 321.986, 6.623, 0.264)
pt3dadd(80.193, 322.104, 6.641, 0.256)
pt3dadd(80.208, 322.22, 6.66, 0.246)
pt3dadd(80.223, 322.338, 6.678, 0.238)
pt3dadd(80.237, 322.454, 6.696, 0.228)
pt3dadd(80.256, 322.573, 6.7, 0.226)
pt3dadd(80.277, 322.691, 6.7, 0.226)
pt3dadd(80.305, 322.801, 6.711, 0.226)
pt3dadd(80.366, 322.878, 6.768, 0.226)
pt3dadd(80.448, 322.922, 6.821, 0.226)
pt3dadd(80.554, 322.928, 6.868, 0.226)
pt3dadd(80.654, 322.958, 6.9, 0.226)
pt3dadd(80.742, 323.041, 6.9, 0.226)
pt3dadd(80.829, 323.123, 6.901, 0.226)
pt3dadd(80.914, 323.208, 6.906, 0.226)
pt3dadd(80.989, 323.296, 6.915, 0.226)
pt3dadd(81, 323.406, 6.953, 0.24)
pt3dadd(80.987, 323.518, 6.988, 0.276)
pt3dadd(80.946, 323.628, 7, 0.292)
pt3dadd(80.9, 323.738, 7.008, 0.258)
pt3dadd(80.888, 323.822, 7.072, 0.252)
pt3dadd(80.882, 323.9, 7.148, 0.252)
pt3dadd(80.88, 323.965, 7.232, 0.268)
pt3dadd(80.88, 324.026, 7.318, 0.292)
pt3dadd(80.896, 324.118, 7.366, 0.316)
pt3dadd(80.923, 324.232, 7.385, 0.342)
pt3dadd(80.951, 324.347, 7.404, 0.368)
pt3dadd(80.989, 324.449, 7.443, 0.404)
pt3dadd(81.032, 324.544, 7.491, 0.444)
pt3dadd(81.098, 324.605, 7.553, 0.588)
pt3dadd(81.175, 324.685, 7.59, 0.63)
pt3dadd(81.252, 324.766, 7.628, 0.672)
pt3dadd(81.328, 324.846, 7.665, 0.714)
pt3dadd(81.406, 324.926, 7.7, 0.756)
pt3dadd(81.486, 325.015, 7.7, 0.796)
pt3dadd(81.567, 325.104, 7.7, 0.838)
pt3dadd(81.648, 325.193, 7.7, 0.878)
pt3dadd(81.729, 325.282, 7.7, 0.918)
pt3dadd(81.807, 325.373, 7.7, 0.956)
pt3dadd(81.861, 325.48, 7.698, 0.976)
pt3dadd(81.916, 325.586, 7.695, 0.996)
pt3dadd(81.971, 325.693, 7.693, 1.016)
pt3dadd(82.025, 325.8, 7.691, 1.036)
pt3dadd(82.08, 325.907, 7.689, 1.054)
pt3dadd(82.084, 326.02, 7.657, 1.04)
pt3dadd(82.115, 326.123, 7.615, 1.004)
pt3dadd(82.173, 326.218, 7.579, 1.03)
pt3dadd(82.216, 326.312, 7.531, 0.972)
pt3dadd(82.275, 326.408, 7.504, 0.854)
pt3dadd(82.359, 326.486, 7.519, 0.742)
pt3dadd(82.433, 326.518, 7.59, 0.682)
pt3dadd(82.495, 326.543, 7.672, 0.634)
pt3dadd(82.563, 326.603, 7.737, 0.552)
pt3dadd(82.627, 326.635, 7.816, 0.586)
pt3dadd(82.683, 326.641, 7.904, 0.654)
pt3dadd(82.747, 326.68, 7.978, 0.662)
pt3dadd(82.791, 326.782, 7.978, 0.546)
pt3dadd(82.8, 326.868, 7.913, 0.42)
pt3dadd(82.821, 326.936, 7.834, 0.376)
pt3dadd(82.876, 327.032, 7.801, 0.354)
pt3dadd(82.908, 327.146, 7.8, 0.324)
pt3dadd(82.923, 327.266, 7.8, 0.326)
pt3dadd(82.946, 327.383, 7.801, 0.418)
pt3dadd(82.985, 327.497, 7.803, 0.47)
pt3dadd(83.025, 327.61, 7.805, 0.52)
pt3dadd(83.064, 327.724, 7.807, 0.572)
pt3dadd(83.104, 327.836, 7.809, 0.622)
pt3dadd(83.143, 327.949, 7.811, 0.674)
pt3dadd(83.193, 328.046, 7.852, 0.77)
pt3dadd(83.243, 328.141, 7.896, 0.872)
pt3dadd(83.294, 328.235, 7.941, 0.972)
pt3dadd(83.345, 328.33, 7.986, 1.074)
pt3dadd(83.387, 328.438, 8, 1.154)
pt3dadd(83.425, 328.552, 8, 1.228)
pt3dadd(83.464, 328.666, 8, 1.3)
pt3dadd(83.502, 328.778, 8, 1.374)
pt3dadd(83.541, 328.892, 8, 1.446)
}
}
proc shape3d_53() {
dend_5[9] { pt3dadd(83.586, 329.002, 8, 1.524)
pt3dadd(83.668, 329.089, 8, 1.63)
pt3dadd(83.748, 329.178, 8, 1.734)
pt3dadd(83.768, 329.297, 8, 1.752)
pt3dadd(83.788, 329.414, 8, 1.772)
pt3dadd(83.815, 329.532, 8.002, 1.768)
pt3dadd(83.85, 329.646, 8.007, 1.736)
pt3dadd(83.883, 329.755, 8.021, 1.696)
pt3dadd(83.903, 329.824, 8.101, 1.606)
pt3dadd(83.931, 329.886, 8.182, 1.494)
pt3dadd(83.996, 329.917, 8.262, 1.294)
pt3dadd(84.071, 329.999, 8.296, 1.214)
pt3dadd(84.147, 330.084, 8.328, 1.142)
pt3dadd(84.222, 330.169, 8.359, 1.072)
pt3dadd(84.298, 330.254, 8.391, 1)
pt3dadd(84.365, 330.349, 8.416, 0.878)
pt3dadd(84.428, 330.448, 8.44, 0.732)
pt3dadd(84.46, 330.486, 8.521, 0.622)
pt3dadd(84.484, 330.51, 8.617, 0.518)
pt3dadd(84.536, 330.575, 8.67, 0.438)
pt3dadd(84.606, 330.667, 8.693, 0.37)
pt3dadd(84.675, 330.764, 8.7, 0.344)
pt3dadd(84.743, 330.864, 8.7, 0.332)
pt3dadd(84.83, 330.943, 8.7, 0.346)
pt3dadd(84.928, 331.009, 8.698, 0.378)
pt3dadd(85.001, 331.1, 8.675, 0.39)
pt3dadd(85.074, 331.193, 8.652, 0.4)
pt3dadd(85.147, 331.284, 8.629, 0.412)
pt3dadd(85.219, 331.375, 8.606, 0.424)
pt3dadd(85.268, 331.482, 8.6, 0.442)
pt3dadd(85.308, 331.596, 8.6, 0.464)
pt3dadd(85.352, 331.702, 8.584, 0.488)
pt3dadd(85.404, 331.798, 8.541, 0.516)
pt3dadd(85.43, 331.862, 8.47, 0.546)
pt3dadd(85.436, 331.904, 8.376, 0.58)
pt3dadd(85.44, 331.96, 8.29, 0.61)
pt3dadd(85.44, 332.048, 8.222, 0.634)
pt3dadd(85.44, 332.136, 8.154, 0.652)
pt3dadd(85.44, 332.22, 8.083, 0.652)
pt3dadd(85.44, 332.266, 7.993, 0.606)
pt3dadd(85.458, 332.28, 7.895, 0.552)
pt3dadd(85.501, 332.287, 7.804, 0.58)
pt3dadd(85.548, 332.324, 7.718, 0.652)
pt3dadd(85.56, 332.412, 7.652, 0.608)
pt3dadd(85.56, 332.521, 7.614, 0.468)
pt3dadd(85.56, 332.64, 7.6, 0.326)
pt3dadd(85.56, 332.76, 7.6, 0.248)
pt3dadd(85.56, 332.88, 7.6, 0.226)
}
dend_5[10] {pt3dclear()
pt3dadd(85.579, 257.694, 10.149, 1.582)
pt3dadd(85.606, 257.801, 10.149, 1.504)
pt3dadd(85.636, 257.917, 10.149, 1.42)
pt3dadd(85.665, 258.034, 10.149, 1.336)
pt3dadd(85.695, 258.15, 10.149, 1.252)
pt3dadd(85.724, 258.265, 10.149, 1.168)
pt3dadd(85.754, 258.382, 10.149, 1.084)
pt3dadd(85.783, 258.498, 10.149, 1)
pt3dadd(85.813, 258.614, 10.149, 0.916)
pt3dadd(85.842, 258.731, 10.149, 0.832)
pt3dadd(85.872, 258.847, 10.149, 0.748)
pt3dadd(85.902, 258.964, 10.149, 0.664)
pt3dadd(85.981, 259.054, 10.149, 0.614)
pt3dadd(86.059, 259.145, 10.149, 0.564)
pt3dadd(86.137, 259.236, 10.149, 0.516)
pt3dadd(86.215, 259.327, 10.149, 0.466)
pt3dadd(86.293, 259.418, 10.149, 0.416)
pt3dadd(86.371, 259.51, 10.149, 0.366)
pt3dadd(86.45, 259.601, 10.149, 0.316)
pt3dadd(86.528, 259.692, 10.149, 0.268)
pt3dadd(86.612, 259.775, 10.149, 0.226)
pt3dadd(86.724, 259.817, 10.149, 0.226)
pt3dadd(86.836, 259.859, 10.149, 0.226)
pt3dadd(86.949, 259.9, 10.149, 0.226)
pt3dadd(87.061, 259.942, 10.149, 0.226)
pt3dadd(87.174, 259.984, 10.15, 0.226)
pt3dadd(87.286, 260.026, 10.15, 0.226)
pt3dadd(87.399, 260.068, 10.15, 0.226)
pt3dadd(87.511, 260.11, 10.15, 0.226)
pt3dadd(87.624, 260.152, 10.15, 0.226)
pt3dadd(87.735, 260.196, 10.15, 0.226)
pt3dadd(87.841, 260.252, 10.15, 0.226)
pt3dadd(87.947, 260.309, 10.15, 0.226)
pt3dadd(88.053, 260.365, 10.15, 0.226)
pt3dadd(88.158, 260.422, 10.151, 0.226)
pt3dadd(88.264, 260.479, 10.151, 0.226)
pt3dadd(88.37, 260.536, 10.151, 0.226)
pt3dadd(88.476, 260.592, 10.151, 0.226)
pt3dadd(88.582, 260.648, 10.151, 0.226)
pt3dadd(88.687, 260.705, 10.151, 0.226)
pt3dadd(88.792, 260.764, 10.151, 0.226)
pt3dadd(88.893, 260.828, 10.151, 0.226)
pt3dadd(88.994, 260.893, 10.152, 0.226)
pt3dadd(89.095, 260.958, 10.152, 0.226)
pt3dadd(89.196, 261.023, 10.152, 0.226)
pt3dadd(89.297, 261.088, 10.152, 0.226)
pt3dadd(89.398, 261.152, 10.152, 0.226)
pt3dadd(89.499, 261.217, 10.152, 0.226)
pt3dadd(89.6, 261.282, 10.152, 0.226)
pt3dadd(89.701, 261.347, 10.153, 0.226)
pt3dadd(89.801, 261.413, 10.153, 0.226)
pt3dadd(89.896, 261.486, 10.153, 0.226)
pt3dadd(89.991, 261.559, 10.153, 0.226)
pt3dadd(90.087, 261.632, 10.153, 0.226)
pt3dadd(90.182, 261.706, 10.154, 0.226)
pt3dadd(90.277, 261.779, 10.154, 0.226)
pt3dadd(90.372, 261.852, 10.154, 0.226)
pt3dadd(90.467, 261.925, 10.154, 0.226)
pt3dadd(90.562, 261.997, 10.155, 0.226)
pt3dadd(90.658, 262.07, 10.155, 0.226)
pt3dadd(90.753, 262.144, 10.155, 0.226)
pt3dadd(90.848, 262.217, 10.155, 0.226)
pt3dadd(90.943, 262.29, 10.156, 0.226)
pt3dadd(91.038, 262.363, 10.156, 0.226)
pt3dadd(91.133, 262.436, 10.156, 0.226)
pt3dadd(91.229, 262.51, 10.156, 0.226)
pt3dadd(91.324, 262.583, 10.156, 0.226)
pt3dadd(91.419, 262.656, 10.157, 0.226)
pt3dadd(91.514, 262.729, 10.157, 0.226)
pt3dadd(91.609, 262.801, 10.157, 0.226)
pt3dadd(91.706, 262.872, 10.157, 0.226)
pt3dadd(91.809, 262.933, 10.158, 0.226)
pt3dadd(91.913, 262.994, 10.159, 0.226)
pt3dadd(92.016, 263.056, 10.159, 0.226)
pt3dadd(92.119, 263.118, 10.16, 0.226)
pt3dadd(92.222, 263.179, 10.16, 0.226)
pt3dadd(92.325, 263.24, 10.161, 0.226)
pt3dadd(92.428, 263.302, 10.161, 0.226)
pt3dadd(92.532, 263.363, 10.162, 0.226)
pt3dadd(92.635, 263.424, 10.162, 0.226)
pt3dadd(92.738, 263.485, 10.163, 0.226)
pt3dadd(92.839, 263.549, 10.164, 0.226)
pt3dadd(92.941, 263.612, 10.164, 0.226)
pt3dadd(93.043, 263.676, 10.165, 0.226)
pt3dadd(93.145, 263.738, 10.166, 0.226)
pt3dadd(93.247, 263.802, 10.166, 0.226)
pt3dadd(93.349, 263.866, 10.167, 0.226)
pt3dadd(93.451, 263.929, 10.168, 0.226)
pt3dadd(93.553, 263.993, 10.168, 0.226)
pt3dadd(93.655, 264.055, 10.169, 0.226)
pt3dadd(93.755, 264.121, 10.17, 0.226)
pt3dadd(93.852, 264.192, 10.171, 0.226)
pt3dadd(93.948, 264.264, 10.172, 0.226)
pt3dadd(94.045, 264.335, 10.173, 0.226)
pt3dadd(94.141, 264.407, 10.174, 0.226)
pt3dadd(94.237, 264.478, 10.175, 0.226)
pt3dadd(94.334, 264.55, 10.177, 0.226)
pt3dadd(94.43, 264.622, 10.178, 0.226)
pt3dadd(94.527, 264.692, 10.179, 0.226)
pt3dadd(94.623, 264.764, 10.18, 0.226)
pt3dadd(94.719, 264.836, 10.181, 0.226)
pt3dadd(94.814, 264.91, 10.182, 0.226)
pt3dadd(94.909, 264.983, 10.184, 0.226)
pt3dadd(95.004, 265.056, 10.185, 0.226)
pt3dadd(95.099, 265.129, 10.187, 0.226)
pt3dadd(95.194, 265.202, 10.188, 0.226)
pt3dadd(95.289, 265.276, 10.19, 0.226)
pt3dadd(95.384, 265.349, 10.191, 0.226)
pt3dadd(95.479, 265.423, 10.193, 0.226)
pt3dadd(95.574, 265.496, 10.194, 0.226)
pt3dadd(95.668, 265.571, 10.196, 0.226)
pt3dadd(95.758, 265.649, 10.198, 0.226)
pt3dadd(95.849, 265.728, 10.2, 0.226)
pt3dadd(95.94, 265.806, 10.202, 0.226)
pt3dadd(96.03, 265.885, 10.204, 0.226)
pt3dadd(96.121, 265.963, 10.206, 0.226)
pt3dadd(96.211, 266.042, 10.208, 0.226)
pt3dadd(96.302, 266.12, 10.211, 0.226)
pt3dadd(96.393, 266.2, 10.213, 0.226)
pt3dadd(96.483, 266.278, 10.215, 0.226)
pt3dadd(96.574, 266.357, 10.217, 0.226)
pt3dadd(96.664, 266.436, 10.22, 0.226)
pt3dadd(96.754, 266.515, 10.223, 0.226)
pt3dadd(96.844, 266.596, 10.226, 0.226)
pt3dadd(96.933, 266.675, 10.229, 0.226)
pt3dadd(97.023, 266.754, 10.231, 0.226)
pt3dadd(97.113, 266.833, 10.234, 0.226)
pt3dadd(97.203, 266.912, 10.237, 0.226)
pt3dadd(97.293, 266.992, 10.24, 0.226)
pt3dadd(97.383, 267.071, 10.243, 0.226)
pt3dadd(97.473, 267.151, 10.246, 0.226)
pt3dadd(97.56, 267.234, 10.251, 0.226)
pt3dadd(97.647, 267.316, 10.256, 0.226)
pt3dadd(97.734, 267.398, 10.262, 0.226)
pt3dadd(97.821, 267.48, 10.267, 0.226)
pt3dadd(97.908, 267.563, 10.272, 0.226)
pt3dadd(97.995, 267.646, 10.277, 0.226)
pt3dadd(98.082, 267.727, 10.282, 0.226)
pt3dadd(98.169, 267.81, 10.288, 0.226)
pt3dadd(98.256, 267.892, 10.293, 0.226)
pt3dadd(98.343, 267.974, 10.298, 0.226)
pt3dadd(98.431, 268.056, 10.304, 0.226)
pt3dadd(98.518, 268.139, 10.309, 0.226)
pt3dadd(98.605, 268.22, 10.315, 0.226)
pt3dadd(98.692, 268.303, 10.32, 0.226)
pt3dadd(98.78, 268.385, 10.326, 0.226)
pt3dadd(98.867, 268.468, 10.331, 0.226)
pt3dadd(98.954, 268.549, 10.337, 0.226)
pt3dadd(99.041, 268.632, 10.342, 0.226)
pt3dadd(99.128, 268.714, 10.348, 0.226)
pt3dadd(99.216, 268.795, 10.354, 0.226)
pt3dadd(99.304, 268.877, 10.363, 0.226)
}
}
proc shape3d_54() {
dend_5[10] { pt3dadd(99.392, 268.957, 10.372, 0.226)
pt3dadd(99.481, 269.038, 10.381, 0.226)
pt3dadd(99.569, 269.118, 10.39, 0.226)
pt3dadd(99.657, 269.198, 10.399, 0.226)
pt3dadd(99.745, 269.279, 10.407, 0.226)
pt3dadd(99.834, 269.359, 10.416, 0.226)
pt3dadd(99.922, 269.441, 10.425, 0.226)
pt3dadd(100.01, 269.521, 10.434, 0.226)
pt3dadd(100.099, 269.602, 10.443, 0.226)
pt3dadd(100.187, 269.681, 10.453, 0.226)
pt3dadd(100.276, 269.761, 10.463, 0.226)
pt3dadd(100.365, 269.842, 10.473, 0.226)
pt3dadd(100.453, 269.921, 10.483, 0.226)
pt3dadd(100.542, 270.001, 10.493, 0.226)
pt3dadd(100.631, 270.082, 10.503, 0.226)
pt3dadd(100.719, 270.161, 10.512, 0.226)
pt3dadd(100.808, 270.241, 10.522, 0.226)
pt3dadd(100.896, 270.322, 10.532, 0.226)
pt3dadd(100.987, 270.397, 10.548, 0.226)
pt3dadd(101.081, 270.458, 10.582, 0.226)
pt3dadd(101.175, 270.52, 10.617, 0.226)
pt3dadd(101.27, 270.582, 10.651, 0.226)
pt3dadd(101.364, 270.643, 10.685, 0.226)
pt3dadd(101.458, 270.704, 10.72, 0.226)
pt3dadd(101.553, 270.767, 10.754, 0.226)
pt3dadd(101.647, 270.828, 10.788, 0.226)
pt3dadd(101.742, 270.889, 10.823, 0.226)
pt3dadd(101.836, 270.952, 10.857, 0.226)
pt3dadd(101.93, 271.014, 10.891, 0.226)
pt3dadd(102.024, 271.079, 10.922, 0.23)
pt3dadd(102.117, 271.144, 10.954, 0.232)
pt3dadd(102.21, 271.21, 10.985, 0.234)
pt3dadd(102.304, 271.274, 11.017, 0.238)
pt3dadd(102.397, 271.339, 11.048, 0.24)
pt3dadd(102.491, 271.404, 11.08, 0.242)
pt3dadd(102.584, 271.47, 11.111, 0.246)
pt3dadd(102.678, 271.535, 11.143, 0.248)
pt3dadd(102.771, 271.6, 11.175, 0.25)
pt3dadd(102.863, 271.668, 11.203, 0.256)
pt3dadd(102.951, 271.746, 11.224, 0.268)
pt3dadd(103.039, 271.823, 11.245, 0.28)
pt3dadd(103.128, 271.9, 11.267, 0.294)
pt3dadd(103.216, 271.978, 11.288, 0.306)
pt3dadd(103.304, 272.054, 11.309, 0.318)
pt3dadd(103.392, 272.132, 11.33, 0.33)
pt3dadd(103.481, 272.209, 11.351, 0.342)
pt3dadd(103.569, 272.286, 11.372, 0.356)
pt3dadd(103.657, 272.364, 11.393, 0.368)
pt3dadd(103.743, 272.443, 11.413, 0.376)
pt3dadd(103.823, 272.531, 11.43, 0.38)
pt3dadd(103.902, 272.618, 11.448, 0.382)
pt3dadd(103.981, 272.706, 11.465, 0.384)
pt3dadd(104.061, 272.794, 11.482, 0.386)
pt3dadd(104.14, 272.881, 11.499, 0.388)
pt3dadd(104.22, 272.969, 11.517, 0.39)
pt3dadd(104.299, 273.056, 11.534, 0.392)
pt3dadd(104.378, 273.144, 11.551, 0.396)
pt3dadd(104.458, 273.232, 11.568, 0.398)
pt3dadd(104.531, 273.325, 11.583, 0.394)
pt3dadd(104.594, 273.426, 11.593, 0.38)
pt3dadd(104.657, 273.528, 11.604, 0.366)
pt3dadd(104.72, 273.629, 11.615, 0.352)
pt3dadd(104.783, 273.73, 11.625, 0.338)
pt3dadd(104.846, 273.832, 11.636, 0.324)
pt3dadd(104.909, 273.932, 11.646, 0.31)
pt3dadd(104.971, 274.034, 11.657, 0.296)
pt3dadd(105.034, 274.135, 11.668, 0.284)
pt3dadd(105.097, 274.237, 11.678, 0.27)
pt3dadd(105.161, 274.338, 11.686, 0.26)
pt3dadd(105.226, 274.439, 11.689, 0.256)
pt3dadd(105.29, 274.541, 11.691, 0.252)
pt3dadd(105.355, 274.642, 11.694, 0.25)
pt3dadd(105.42, 274.742, 11.697, 0.246)
pt3dadd(105.484, 274.843, 11.7, 0.242)
pt3dadd(105.549, 274.944, 11.703, 0.238)
pt3dadd(105.614, 275.046, 11.705, 0.236)
pt3dadd(105.678, 275.147, 11.708, 0.232)
pt3dadd(105.743, 275.248, 11.711, 0.228)
pt3dadd(105.808, 275.348, 11.713, 0.226)
pt3dadd(105.873, 275.449, 11.713, 0.226)
pt3dadd(105.938, 275.55, 11.713, 0.226)
pt3dadd(106.003, 275.651, 11.713, 0.226)
pt3dadd(106.068, 275.752, 11.713, 0.226)
pt3dadd(106.134, 275.852, 11.713, 0.226)
pt3dadd(106.199, 275.953, 11.714, 0.226)
pt3dadd(106.264, 276.054, 11.714, 0.226)
pt3dadd(106.329, 276.155, 11.714, 0.226)
pt3dadd(106.395, 276.256, 11.714, 0.226)
pt3dadd(106.461, 276.355, 11.714, 0.226)
pt3dadd(106.528, 276.455, 11.714, 0.226)
pt3dadd(106.596, 276.554, 11.714, 0.226)
pt3dadd(106.663, 276.653, 11.715, 0.226)
pt3dadd(106.73, 276.752, 11.715, 0.226)
pt3dadd(106.798, 276.852, 11.715, 0.226)
pt3dadd(106.865, 276.95, 11.715, 0.226)
pt3dadd(106.933, 277.05, 11.716, 0.226)
pt3dadd(107, 277.15, 11.716, 0.226)
pt3dadd(107.068, 277.249, 11.716, 0.226)
pt3dadd(107.135, 277.348, 11.716, 0.226)
pt3dadd(107.203, 277.447, 11.717, 0.226)
pt3dadd(107.271, 277.546, 11.717, 0.226)
pt3dadd(107.338, 277.645, 11.717, 0.226)
pt3dadd(107.406, 277.744, 11.717, 0.226)
pt3dadd(107.474, 277.843, 11.718, 0.226)
pt3dadd(107.542, 277.942, 11.718, 0.226)
pt3dadd(107.61, 278.041, 11.718, 0.226)
pt3dadd(107.677, 278.14, 11.718, 0.226)
pt3dadd(107.745, 278.239, 11.719, 0.226)
pt3dadd(107.805, 278.342, 11.719, 0.226)
pt3dadd(107.854, 278.452, 11.72, 0.226)
pt3dadd(107.903, 278.562, 11.72, 0.226)
pt3dadd(107.952, 278.671, 11.721, 0.226)
pt3dadd(108.001, 278.78, 11.721, 0.226)
pt3dadd(108.05, 278.891, 11.722, 0.226)
pt3dadd(108.099, 279, 11.723, 0.226)
pt3dadd(108.148, 279.109, 11.723, 0.226)
pt3dadd(108.197, 279.218, 11.724, 0.226)
pt3dadd(108.246, 279.329, 11.724, 0.226)
pt3dadd(108.293, 279.439, 11.725, 0.226)
pt3dadd(108.337, 279.551, 11.726, 0.226)
pt3dadd(108.381, 279.662, 11.727, 0.226)
pt3dadd(108.424, 279.774, 11.727, 0.226)
pt3dadd(108.468, 279.886, 11.728, 0.226)
pt3dadd(108.512, 279.997, 11.729, 0.226)
pt3dadd(108.556, 280.109, 11.73, 0.226)
pt3dadd(108.6, 280.22, 11.731, 0.226)
pt3dadd(108.644, 280.332, 11.732, 0.226)
pt3dadd(108.688, 280.444, 11.732, 0.226)
pt3dadd(108.726, 280.558, 11.733, 0.226)
pt3dadd(108.757, 280.674, 11.735, 0.226)
pt3dadd(108.787, 280.789, 11.736, 0.226)
pt3dadd(108.818, 280.906, 11.738, 0.226)
pt3dadd(108.848, 281.022, 11.739, 0.226)
pt3dadd(108.879, 281.137, 11.74, 0.226)
pt3dadd(108.91, 281.254, 11.742, 0.226)
pt3dadd(108.94, 281.37, 11.743, 0.226)
pt3dadd(108.971, 281.485, 11.745, 0.226)
pt3dadd(109.001, 281.602, 11.746, 0.226)
pt3dadd(109.038, 281.716, 11.748, 0.234)
pt3dadd(109.084, 281.826, 11.75, 0.252)
pt3dadd(109.13, 281.938, 11.752, 0.268)
pt3dadd(109.175, 282.048, 11.755, 0.286)
pt3dadd(109.221, 282.16, 11.757, 0.304)
pt3dadd(109.266, 282.27, 11.759, 0.322)
pt3dadd(109.312, 282.382, 11.761, 0.338)
pt3dadd(109.357, 282.492, 11.764, 0.356)
pt3dadd(109.403, 282.604, 11.766, 0.374)
pt3dadd(109.448, 282.714, 11.768, 0.39)
pt3dadd(109.497, 282.824, 11.77, 0.412)
pt3dadd(109.55, 282.931, 11.773, 0.438)
pt3dadd(109.603, 283.039, 11.776, 0.464)
pt3dadd(109.655, 283.147, 11.778, 0.49)
pt3dadd(109.708, 283.255, 11.781, 0.516)
pt3dadd(109.761, 283.363, 11.783, 0.542)
pt3dadd(109.813, 283.47, 11.786, 0.568)
pt3dadd(109.866, 283.578, 11.789, 0.594)
pt3dadd(109.919, 283.686, 11.791, 0.62)
pt3dadd(109.971, 283.794, 11.794, 0.646)
pt3dadd(110.021, 283.903, 11.798, 0.65)
pt3dadd(110.065, 284.014, 11.805, 0.626)
pt3dadd(110.11, 284.125, 11.811, 0.602)
pt3dadd(110.155, 284.236, 11.818, 0.58)
pt3dadd(110.2, 284.347, 11.824, 0.556)
pt3dadd(110.245, 284.458, 11.83, 0.532)
pt3dadd(110.29, 284.569, 11.837, 0.51)
pt3dadd(110.335, 284.68, 11.843, 0.486)
pt3dadd(110.38, 284.791, 11.85, 0.462)
pt3dadd(110.425, 284.902, 11.856, 0.44)
pt3dadd(110.472, 285.012, 11.863, 0.418)
pt3dadd(110.52, 285.121, 11.871, 0.398)
pt3dadd(110.569, 285.23, 11.878, 0.378)
pt3dadd(110.618, 285.34, 11.886, 0.358)
pt3dadd(110.667, 285.449, 11.893, 0.336)
pt3dadd(110.716, 285.558, 11.901, 0.316)
pt3dadd(110.765, 285.668, 11.909, 0.296)
pt3dadd(110.813, 285.778, 11.916, 0.276)
pt3dadd(110.862, 285.887, 11.924, 0.256)
pt3dadd(110.911, 285.996, 11.931, 0.236)
pt3dadd(110.966, 286.102, 11.94, 0.226)
pt3dadd(111.027, 286.204, 11.95, 0.226)
pt3dadd(111.089, 286.306, 11.961, 0.226)
pt3dadd(111.15, 286.409, 11.971, 0.226)
pt3dadd(111.211, 286.511, 11.981, 0.226)
pt3dadd(111.273, 286.613, 11.991, 0.226)
pt3dadd(111.334, 286.716, 12.002, 0.226)
pt3dadd(111.395, 286.818, 12.012, 0.226)
pt3dadd(111.457, 286.92, 12.022, 0.226)
pt3dadd(111.518, 287.023, 12.032, 0.226)
pt3dadd(111.575, 287.126, 12.048, 0.226)
pt3dadd(111.629, 287.231, 12.07, 0.226)
pt3dadd(111.682, 287.335, 12.091, 0.226)
pt3dadd(111.736, 287.44, 12.112, 0.226)
pt3dadd(111.789, 287.544, 12.134, 0.226)
pt3dadd(111.842, 287.648, 12.155, 0.226)
pt3dadd(111.896, 287.753, 12.176, 0.226)
pt3dadd(111.949, 287.857, 12.198, 0.226)
pt3dadd(112.003, 287.962, 12.219, 0.226)
pt3dadd(112.056, 288.066, 12.24, 0.226)
pt3dadd(112.102, 288.17, 12.27, 0.226)
pt3dadd(112.143, 288.275, 12.306, 0.226)
}
}
proc shape3d_55() {
dend_5[10] { pt3dadd(112.185, 288.378, 12.342, 0.226)
pt3dadd(112.226, 288.482, 12.377, 0.226)
pt3dadd(112.267, 288.587, 12.413, 0.226)
pt3dadd(112.308, 288.691, 12.448, 0.226)
pt3dadd(112.35, 288.796, 12.484, 0.226)
pt3dadd(112.391, 288.9, 12.52, 0.226)
pt3dadd(112.432, 289.004, 12.555, 0.226)
pt3dadd(112.473, 289.109, 12.591, 0.226)
pt3dadd(112.522, 289.212, 12.621, 0.226)
pt3dadd(112.576, 289.314, 12.649, 0.226)
pt3dadd(112.629, 289.416, 12.676, 0.226)
pt3dadd(112.683, 289.518, 12.703, 0.226)
pt3dadd(112.736, 289.621, 12.73, 0.226)
pt3dadd(112.789, 289.723, 12.758, 0.226)
pt3dadd(112.843, 289.825, 12.785, 0.226)
pt3dadd(112.896, 289.927, 12.812, 0.226)
pt3dadd(112.95, 290.03, 12.839, 0.226)
pt3dadd(113.003, 290.132, 12.867, 0.226)
pt3dadd(113.061, 290.233, 12.891, 0.226)
pt3dadd(113.121, 290.334, 12.913, 0.226)
pt3dadd(113.181, 290.435, 12.935, 0.226)
pt3dadd(113.241, 290.536, 12.957, 0.226)
pt3dadd(113.3, 290.635, 12.98, 0.226)
pt3dadd(113.36, 290.736, 13.002, 0.226)
pt3dadd(113.42, 290.837, 13.024, 0.226)
pt3dadd(113.48, 290.938, 13.047, 0.226)
pt3dadd(113.54, 291.037, 13.069, 0.226)
pt3dadd(113.6, 291.138, 13.091, 0.226)
pt3dadd(113.65, 291.245, 13.109, 0.226)
pt3dadd(113.696, 291.354, 13.124, 0.226)
pt3dadd(113.742, 291.463, 13.14, 0.226)
pt3dadd(113.788, 291.572, 13.155, 0.226)
pt3dadd(113.834, 291.682, 13.17, 0.226)
pt3dadd(113.88, 291.791, 13.186, 0.226)
pt3dadd(113.926, 291.9, 13.201, 0.226)
pt3dadd(113.972, 292.009, 13.216, 0.226)
pt3dadd(114.018, 292.118, 13.232, 0.226)
pt3dadd(114.064, 292.228, 13.247, 0.226)
pt3dadd(114.11, 292.338, 13.261, 0.226)
pt3dadd(114.155, 292.448, 13.273, 0.226)
pt3dadd(114.2, 292.559, 13.286, 0.226)
pt3dadd(114.246, 292.668, 13.298, 0.226)
pt3dadd(114.291, 292.778, 13.311, 0.226)
pt3dadd(114.336, 292.889, 13.323, 0.226)
pt3dadd(114.381, 292.998, 13.336, 0.226)
pt3dadd(114.427, 293.108, 13.349, 0.226)
pt3dadd(114.472, 293.219, 13.361, 0.226)
pt3dadd(114.517, 293.329, 13.374, 0.226)
pt3dadd(114.573, 293.435, 13.382, 0.226)
pt3dadd(114.632, 293.538, 13.39, 0.226)
pt3dadd(114.692, 293.642, 13.397, 0.226)
pt3dadd(114.751, 293.746, 13.404, 0.226)
pt3dadd(114.811, 293.85, 13.411, 0.226)
pt3dadd(114.87, 293.953, 13.418, 0.226)
pt3dadd(114.93, 294.058, 13.425, 0.226)
pt3dadd(114.989, 294.162, 13.432, 0.226)
pt3dadd(115.049, 294.265, 13.44, 0.226)
pt3dadd(115.108, 294.37, 13.447, 0.226)
pt3dadd(115.16, 294.476, 13.456, 0.258)
pt3dadd(115.208, 294.586, 13.467, 0.304)
pt3dadd(115.257, 294.695, 13.477, 0.35)
pt3dadd(115.305, 294.804, 13.488, 0.396)
pt3dadd(115.354, 294.913, 13.499, 0.442)
pt3dadd(115.402, 295.022, 13.509, 0.488)
pt3dadd(115.45, 295.132, 13.52, 0.534)
pt3dadd(115.499, 295.24, 13.53, 0.58)
pt3dadd(115.547, 295.349, 13.541, 0.626)
pt3dadd(115.596, 295.458, 13.552, 0.672)
pt3dadd(115.635, 295.57, 13.566, 0.75)
pt3dadd(115.672, 295.682, 13.581, 0.838)
pt3dadd(115.709, 295.795, 13.597, 0.926)
pt3dadd(115.745, 295.908, 13.612, 1.014)
pt3dadd(115.782, 296.021, 13.628, 1.102)
pt3dadd(115.819, 296.134, 13.643, 1.19)
pt3dadd(115.856, 296.246, 13.659, 1.278)
pt3dadd(115.892, 296.359, 13.674, 1.364)
pt3dadd(115.929, 296.472, 13.689, 1.452)
pt3dadd(115.966, 296.585, 13.705, 1.54)
pt3dadd(115.999, 296.682, 13.753, 1.496)
pt3dadd(116.031, 296.776, 13.81, 1.42)
pt3dadd(116.063, 296.869, 13.866, 1.344)
pt3dadd(116.096, 296.963, 13.923, 1.266)
pt3dadd(116.128, 297.056, 13.979, 1.19)
pt3dadd(116.16, 297.15, 14.036, 1.114)
pt3dadd(116.193, 297.244, 14.093, 1.038)
pt3dadd(116.225, 297.337, 14.149, 0.962)
pt3dadd(116.257, 297.431, 14.205, 0.886)
pt3dadd(116.289, 297.524, 14.262, 0.81)
pt3dadd(116.316, 297.628, 14.307, 0.786)
pt3dadd(116.341, 297.734, 14.348, 0.774)
pt3dadd(116.367, 297.84, 14.39, 0.762)
pt3dadd(116.392, 297.947, 14.432, 0.75)
pt3dadd(116.417, 298.052, 14.473, 0.738)
pt3dadd(116.442, 298.159, 14.515, 0.726)
pt3dadd(116.468, 298.265, 14.556, 0.716)
pt3dadd(116.493, 298.37, 14.598, 0.704)
pt3dadd(116.518, 298.477, 14.64, 0.692)
pt3dadd(116.543, 298.583, 14.681, 0.68)
pt3dadd(116.585, 298.688, 14.713, 0.692)
pt3dadd(116.63, 298.794, 14.743, 0.708)
pt3dadd(116.675, 298.9, 14.773, 0.724)
pt3dadd(116.72, 299.005, 14.803, 0.74)
pt3dadd(116.764, 299.11, 14.833, 0.756)
pt3dadd(116.809, 299.215, 14.863, 0.774)
pt3dadd(116.854, 299.321, 14.893, 0.79)
pt3dadd(116.899, 299.426, 14.923, 0.806)
pt3dadd(116.944, 299.531, 14.953, 0.822)
pt3dadd(116.989, 299.636, 14.983, 0.838)
pt3dadd(117.048, 299.737, 15.005, 0.866)
pt3dadd(117.108, 299.838, 15.028, 0.894)
pt3dadd(117.168, 299.939, 15.05, 0.924)
pt3dadd(117.228, 300.038, 15.073, 0.952)
pt3dadd(117.287, 300.139, 15.095, 0.98)
pt3dadd(117.347, 300.24, 15.117, 1.008)
pt3dadd(117.407, 300.341, 15.14, 1.036)
pt3dadd(117.467, 300.44, 15.162, 1.064)
pt3dadd(117.526, 300.541, 15.184, 1.092)
pt3dadd(117.586, 300.642, 15.207, 1.122)
pt3dadd(117.636, 300.743, 15.243, 1.072)
pt3dadd(117.686, 300.842, 15.279, 1.022)
pt3dadd(117.735, 300.943, 15.315, 0.972)
pt3dadd(117.785, 301.043, 15.351, 0.922)
pt3dadd(117.835, 301.144, 15.387, 0.872)
pt3dadd(117.885, 301.243, 15.423, 0.822)
pt3dadd(117.934, 301.344, 15.46, 0.772)
pt3dadd(117.984, 301.444, 15.496, 0.722)
pt3dadd(118.034, 301.544, 15.532, 0.672)
pt3dadd(118.083, 301.645, 15.568, 0.622)
pt3dadd(118.138, 301.744, 15.601, 0.582)
pt3dadd(118.194, 301.842, 15.634, 0.542)
pt3dadd(118.249, 301.942, 15.668, 0.502)
pt3dadd(118.304, 302.04, 15.701, 0.462)
pt3dadd(118.359, 302.138, 15.734, 0.424)
pt3dadd(118.414, 302.238, 15.767, 0.384)
pt3dadd(118.469, 302.336, 15.801, 0.344)
pt3dadd(118.524, 302.435, 15.834, 0.304)
pt3dadd(118.58, 302.534, 15.867, 0.264)
pt3dadd(118.635, 302.633, 15.9, 0.226)
pt3dadd(118.707, 302.725, 15.923, 0.226)
pt3dadd(118.779, 302.818, 15.945, 0.226)
pt3dadd(118.85, 302.91, 15.967, 0.226)
pt3dadd(118.922, 303.002, 15.99, 0.226)
pt3dadd(118.993, 303.095, 16.012, 0.226)
pt3dadd(119.065, 303.187, 16.035, 0.226)
pt3dadd(119.137, 303.28, 16.057, 0.226)
pt3dadd(119.208, 303.372, 16.08, 0.226)
pt3dadd(119.28, 303.464, 16.102, 0.226)
pt3dadd(119.352, 303.557, 16.125, 0.226)
pt3dadd(119.436, 303.64, 16.143, 0.242)
pt3dadd(119.519, 303.724, 16.161, 0.256)
pt3dadd(119.603, 303.806, 16.179, 0.272)
pt3dadd(119.686, 303.889, 16.197, 0.286)
pt3dadd(119.77, 303.973, 16.216, 0.3)
pt3dadd(119.854, 304.056, 16.234, 0.316)
pt3dadd(119.937, 304.14, 16.252, 0.33)
pt3dadd(120.02, 304.223, 16.27, 0.346)
pt3dadd(120.104, 304.306, 16.288, 0.36)
pt3dadd(120.19, 304.387, 16.306, 0.378)
pt3dadd(120.284, 304.459, 16.319, 0.408)
pt3dadd(120.379, 304.531, 16.333, 0.438)
pt3dadd(120.474, 304.603, 16.346, 0.468)
pt3dadd(120.569, 304.675, 16.359, 0.5)
pt3dadd(120.662, 304.747, 16.372, 0.53)
pt3dadd(120.757, 304.819, 16.386, 0.56)
pt3dadd(120.852, 304.891, 16.399, 0.59)
pt3dadd(120.947, 304.963, 16.412, 0.62)
pt3dadd(121.042, 305.035, 16.426, 0.652)
pt3dadd(121.134, 305.111, 16.437, 0.672)
pt3dadd(121.21, 305.203, 16.441, 0.64)
pt3dadd(121.285, 305.297, 16.444, 0.608)
pt3dadd(121.361, 305.389, 16.448, 0.574)
pt3dadd(121.438, 305.482, 16.451, 0.542)
pt3dadd(121.513, 305.575, 16.455, 0.508)
pt3dadd(121.589, 305.668, 16.458, 0.476)
pt3dadd(121.664, 305.761, 16.462, 0.442)
pt3dadd(121.74, 305.854, 16.465, 0.41)
pt3dadd(121.817, 305.946, 16.469, 0.378)
pt3dadd(121.892, 306.04, 16.473, 0.348)
pt3dadd(121.969, 306.131, 16.479, 0.334)
pt3dadd(122.046, 306.223, 16.485, 0.322)
pt3dadd(122.123, 306.316, 16.491, 0.31)
pt3dadd(122.2, 306.408, 16.497, 0.298)
pt3dadd(122.275, 306.499, 16.502, 0.286)
pt3dadd(122.352, 306.592, 16.508, 0.274)
pt3dadd(122.429, 306.684, 16.514, 0.262)
pt3dadd(122.506, 306.775, 16.52, 0.248)
pt3dadd(122.582, 306.868, 16.526, 0.236)
pt3dadd(122.659, 306.96, 16.532, 0.226)
pt3dadd(122.737, 307.05, 16.54, 0.228)
pt3dadd(122.815, 307.141, 16.548, 0.23)
pt3dadd(122.893, 307.231, 16.556, 0.232)
pt3dadd(122.971, 307.322, 16.563, 0.234)
pt3dadd(123.05, 307.412, 16.571, 0.234)
pt3dadd(123.128, 307.504, 16.579, 0.236)
pt3dadd(123.206, 307.594, 16.587, 0.238)
pt3dadd(123.284, 307.685, 16.595, 0.24)
pt3dadd(123.362, 307.775, 16.602, 0.242)
pt3dadd(123.443, 307.864, 16.611, 0.248)
pt3dadd(123.533, 307.94, 16.625, 0.28)
pt3dadd(123.623, 308.017, 16.638, 0.31)
}
}
proc shape3d_56() {
dend_5[10] { pt3dadd(123.714, 308.095, 16.652, 0.342)
pt3dadd(123.804, 308.172, 16.666, 0.374)
pt3dadd(123.894, 308.249, 16.68, 0.406)
pt3dadd(123.985, 308.327, 16.693, 0.438)
pt3dadd(124.075, 308.404, 16.707, 0.468)
pt3dadd(124.166, 308.48, 16.721, 0.5)
pt3dadd(124.256, 308.557, 16.734, 0.532)
pt3dadd(124.344, 308.636, 16.751, 0.558)
pt3dadd(124.416, 308.724, 16.784, 0.55)
pt3dadd(124.487, 308.812, 16.817, 0.544)
pt3dadd(124.559, 308.899, 16.851, 0.536)
pt3dadd(124.63, 308.987, 16.884, 0.53)
pt3dadd(124.702, 309.074, 16.917, 0.522)
pt3dadd(124.774, 309.163, 16.951, 0.516)
pt3dadd(124.844, 309.251, 16.984, 0.508)
pt3dadd(124.916, 309.338, 17.017, 0.502)
pt3dadd(124.987, 309.426, 17.05, 0.494)
pt3dadd(125.053, 309.516, 17.087, 0.48)
pt3dadd(125.108, 309.61, 17.129, 0.454)
pt3dadd(125.164, 309.703, 17.172, 0.428)
pt3dadd(125.219, 309.797, 17.214, 0.4)
pt3dadd(125.274, 309.89, 17.257, 0.374)
pt3dadd(125.329, 309.984, 17.299, 0.348)
pt3dadd(125.384, 310.078, 17.341, 0.322)
pt3dadd(125.44, 310.171, 17.384, 0.294)
pt3dadd(125.495, 310.265, 17.426, 0.268)
pt3dadd(125.55, 310.358, 17.469, 0.242)
pt3dadd(125.599, 310.457, 17.506, 0.226)
pt3dadd(125.638, 310.565, 17.537, 0.226)
pt3dadd(125.676, 310.672, 17.568, 0.226)
pt3dadd(125.714, 310.78, 17.598, 0.226)
pt3dadd(125.753, 310.888, 17.629, 0.226)
pt3dadd(125.791, 310.994, 17.66, 0.226)
pt3dadd(125.83, 311.102, 17.691, 0.226)
pt3dadd(125.869, 311.209, 17.721, 0.226)
pt3dadd(125.908, 311.317, 17.752, 0.226)
pt3dadd(125.946, 311.424, 17.783, 0.226)
pt3dadd(125.99, 311.531, 17.811, 0.226)
pt3dadd(126.043, 311.634, 17.835, 0.226)
pt3dadd(126.097, 311.737, 17.859, 0.226)
pt3dadd(126.15, 311.842, 17.883, 0.226)
pt3dadd(126.203, 311.945, 17.907, 0.226)
pt3dadd(126.257, 312.048, 17.932, 0.226)
pt3dadd(126.31, 312.151, 17.956, 0.226)
pt3dadd(126.364, 312.256, 17.98, 0.226)
pt3dadd(126.416, 312.359, 18.004, 0.226)
pt3dadd(126.469, 312.462, 18.028, 0.226)
pt3dadd(126.527, 312.565, 18.051, 0.226)
pt3dadd(126.587, 312.665, 18.071, 0.226)
pt3dadd(126.647, 312.766, 18.092, 0.226)
pt3dadd(126.708, 312.866, 18.112, 0.226)
pt3dadd(126.768, 312.967, 18.133, 0.226)
pt3dadd(126.829, 313.068, 18.154, 0.226)
pt3dadd(126.889, 313.169, 18.174, 0.226)
pt3dadd(126.949, 313.27, 18.195, 0.226)
pt3dadd(127.01, 313.37, 18.215, 0.226)
pt3dadd(127.07, 313.471, 18.236, 0.226)
pt3dadd(127.139, 313.567, 18.254, 0.226)
pt3dadd(127.216, 313.657, 18.268, 0.226)
pt3dadd(127.292, 313.747, 18.283, 0.226)
pt3dadd(127.37, 313.837, 18.297, 0.226)
pt3dadd(127.447, 313.927, 18.312, 0.226)
pt3dadd(127.524, 314.018, 18.326, 0.226)
pt3dadd(127.601, 314.108, 18.341, 0.226)
pt3dadd(127.679, 314.198, 18.356, 0.226)
pt3dadd(127.756, 314.288, 18.37, 0.226)
pt3dadd(127.832, 314.378, 18.385, 0.226)
pt3dadd(127.908, 314.465, 18.412, 0.23)
pt3dadd(127.981, 314.546, 18.453, 0.236)
pt3dadd(128.054, 314.627, 18.495, 0.244)
pt3dadd(128.126, 314.707, 18.537, 0.25)
pt3dadd(128.2, 314.789, 18.579, 0.258)
pt3dadd(128.273, 314.869, 18.621, 0.266)
pt3dadd(128.346, 314.951, 18.663, 0.272)
pt3dadd(128.418, 315.031, 18.705, 0.28)
pt3dadd(128.491, 315.113, 18.747, 0.286)
pt3dadd(128.564, 315.193, 18.789, 0.294)
pt3dadd(128.623, 315.252, 18.862, 0.31)
pt3dadd(128.681, 315.31, 18.934, 0.326)
pt3dadd(128.74, 315.368, 19.007, 0.342)
pt3dadd(128.797, 315.426, 19.08, 0.358)
pt3dadd(128.856, 315.485, 19.153, 0.374)
pt3dadd(128.914, 315.542, 19.226, 0.388)
pt3dadd(128.972, 315.601, 19.298, 0.404)
pt3dadd(129.03, 315.659, 19.371, 0.42)
pt3dadd(129.088, 315.718, 19.444, 0.436)
pt3dadd(129.146, 315.775, 19.517, 0.452)
}
dend_5[11] {pt3dclear()
pt3dadd(89.706, 223.622, 11.71, 1.03)
pt3dadd(89.707, 223.621, 11.729, 1.04)
pt3dadd(89.712, 223.615, 11.829, 1.092)
pt3dadd(89.718, 223.609, 11.928, 1.146)
pt3dadd(89.723, 223.602, 12.028, 1.198)
pt3dadd(89.729, 223.596, 12.128, 1.252)
pt3dadd(89.734, 223.59, 12.228, 1.306)
pt3dadd(89.74, 223.584, 12.327, 1.358)
pt3dadd(89.745, 223.577, 12.427, 1.412)
pt3dadd(89.751, 223.571, 12.527, 1.464)
pt3dadd(89.756, 223.565, 12.627, 1.518)
pt3dadd(89.76, 223.591, 12.7, 1.532)
pt3dadd(89.76, 223.711, 12.7, 1.44)
pt3dadd(89.76, 223.831, 12.7, 1.348)
pt3dadd(89.76, 223.951, 12.7, 1.258)
pt3dadd(89.76, 224.071, 12.7, 1.174)
pt3dadd(89.76, 224.191, 12.7, 1.092)
pt3dadd(89.76, 224.311, 12.703, 1.014)
pt3dadd(89.76, 224.43, 12.716, 0.958)
pt3dadd(89.76, 224.55, 12.728, 0.902)
pt3dadd(89.76, 224.651, 12.772, 0.866)
pt3dadd(89.76, 224.738, 12.841, 0.842)
pt3dadd(89.765, 224.815, 12.916, 0.832)
pt3dadd(89.777, 224.878, 13.001, 0.84)
pt3dadd(89.789, 224.94, 13.086, 0.846)
pt3dadd(89.801, 225, 13.171, 0.854)
pt3dadd(89.834, 225, 13.267, 0.864)
pt3dadd(89.867, 225, 13.363, 0.876)
pt3dadd(89.88, 225, 13.462, 0.878)
pt3dadd(89.88, 225.012, 13.561, 0.878)
pt3dadd(89.88, 225.032, 13.66, 0.878)
pt3dadd(89.88, 225.052, 13.758, 0.878)
pt3dadd(89.88, 225.071, 13.857, 0.878)
pt3dadd(89.88, 225.091, 13.955, 0.878)
pt3dadd(89.88, 225.11, 14.054, 0.878)
pt3dadd(89.88, 225.131, 14.153, 0.878)
pt3dadd(89.88, 225.15, 14.252, 0.878)
pt3dadd(89.88, 225.17, 14.35, 0.878)
pt3dadd(89.88, 225.19, 14.449, 0.878)
pt3dadd(89.88, 225.21, 14.547, 0.878)
pt3dadd(89.88, 225.229, 14.646, 0.878)
pt3dadd(89.896, 225.24, 14.743, 0.888)
pt3dadd(89.932, 225.24, 14.839, 0.904)
pt3dadd(89.968, 225.24, 14.934, 0.922)
pt3dadd(90.004, 225.24, 15.03, 0.94)
pt3dadd(90.04, 225.24, 15.125, 0.958)
pt3dadd(90.075, 225.24, 15.22, 0.976)
pt3dadd(90.086, 225.256, 15.319, 0.986)
pt3dadd(90.093, 225.274, 15.417, 0.996)
pt3dadd(90.1, 225.293, 15.516, 1.004)
pt3dadd(90.107, 225.311, 15.615, 1.012)
pt3dadd(90.113, 225.329, 15.713, 1.022)
pt3dadd(90.12, 225.347, 15.812, 1.03)
pt3dadd(90.12, 225.398, 15.903, 1.04)
pt3dadd(90.12, 225.449, 15.993, 1.048)
pt3dadd(90.12, 225.499, 16.084, 1.058)
pt3dadd(90.12, 225.55, 16.175, 1.068)
pt3dadd(90.12, 225.6, 16.265, 1.078)
pt3dadd(90.114, 225.68, 16.337, 1.064)
pt3dadd(90.105, 225.77, 16.403, 1.042)
pt3dadd(90.097, 225.86, 16.469, 1.022)
pt3dadd(90.089, 225.95, 16.534, 1)
pt3dadd(90.08, 226.04, 16.6, 0.98)
pt3dadd(90.032, 226.108, 16.672, 0.956)
pt3dadd(89.984, 226.175, 16.745, 0.93)
pt3dadd(89.935, 226.243, 16.817, 0.906)
pt3dadd(89.887, 226.31, 16.889, 0.882)
pt3dadd(89.88, 226.4, 16.953, 0.828)
pt3dadd(89.88, 226.494, 17.015, 0.77)
pt3dadd(89.884, 226.544, 17.102, 0.738)
pt3dadd(89.89, 226.579, 17.198, 0.716)
pt3dadd(89.917, 226.627, 17.281, 0.698)
pt3dadd(89.979, 226.696, 17.345, 0.682)
pt3dadd(90.038, 226.782, 17.39, 0.688)
pt3dadd(90.097, 226.877, 17.427, 0.7)
pt3dadd(90.143, 226.945, 17.497, 0.716)
pt3dadd(90.188, 227.006, 17.575, 0.734)
pt3dadd(90.232, 227.068, 17.652, 0.75)
pt3dadd(90.24, 227.123, 17.739, 0.772)
pt3dadd(90.24, 227.177, 17.829, 0.794)
pt3dadd(90.24, 227.231, 17.918, 0.784)
pt3dadd(90.251, 227.246, 18.016, 0.768)
pt3dadd(90.264, 227.252, 18.115, 0.756)
pt3dadd(90.278, 227.258, 18.214, 0.744)
pt3dadd(90.291, 227.266, 18.313, 0.73)
pt3dadd(90.304, 227.272, 18.413, 0.718)
pt3dadd(90.318, 227.279, 18.512, 0.706)
pt3dadd(90.325, 227.28, 18.611, 0.698)
pt3dadd(90.331, 227.28, 18.711, 0.69)
pt3dadd(90.337, 227.28, 18.811, 0.682)
pt3dadd(90.343, 227.28, 18.911, 0.674)
pt3dadd(90.349, 227.28, 19.011, 0.668)
pt3dadd(90.355, 227.28, 19.111, 0.66)
pt3dadd(90.361, 227.285, 19.21, 0.654)
pt3dadd(90.368, 227.326, 19.304, 0.668)
pt3dadd(90.376, 227.366, 19.398, 0.684)
pt3dadd(90.384, 227.407, 19.491, 0.698)
pt3dadd(90.391, 227.448, 19.585, 0.712)
pt3dadd(90.399, 227.489, 19.679, 0.726)
pt3dadd(90.431, 227.53, 19.769, 0.752)
pt3dadd(90.466, 227.57, 19.858, 0.78)
pt3dadd(90.501, 227.611, 19.948, 0.808)
pt3dadd(90.536, 227.651, 20.037, 0.834)
pt3dadd(90.566, 227.698, 20.125, 0.866)
pt3dadd(90.587, 227.759, 20.21, 0.904)
pt3dadd(90.6, 227.81, 20.298, 0.922)
pt3dadd(90.6, 227.844, 20.394, 0.902)
pt3dadd(90.6, 227.876, 20.491, 0.88)
pt3dadd(90.605, 227.911, 20.586, 0.86)
pt3dadd(90.611, 227.946, 20.682, 0.838)
pt3dadd(90.657, 227.972, 20.766, 0.822)
pt3dadd(90.734, 227.993, 20.841, 0.808)
pt3dadd(90.837, 228, 20.88, 0.814)
}
}
proc shape3d_57() {
dend_5[11] { pt3dadd(90.955, 228, 20.899, 0.828)
pt3dadd(91.043, 228.065, 20.938, 0.812)
pt3dadd(91.13, 228.132, 20.979, 0.794)
pt3dadd(91.217, 228.199, 21.019, 0.774)
pt3dadd(91.303, 228.266, 21.059, 0.756)
pt3dadd(91.396, 228.328, 21.092, 0.656)
pt3dadd(91.512, 228.354, 21.1, 0.63)
pt3dadd(91.631, 228.368, 21.1, 0.686)
pt3dadd(91.746, 228.4, 21.111, 0.752)
pt3dadd(91.827, 228.467, 21.156, 0.712)
pt3dadd(91.891, 228.535, 21.217, 0.668)
pt3dadd(91.919, 228.584, 21.304, 0.63)
pt3dadd(91.92, 228.6, 21.403, 0.604)
pt3dadd(91.92, 228.6, 21.503, 0.628)
pt3dadd(91.922, 228.618, 21.601, 0.652)
pt3dadd(91.962, 228.67, 21.68, 0.616)
pt3dadd(92.057, 228.733, 21.7, 0.514)
pt3dadd(92.142, 228.817, 21.7, 0.46)
pt3dadd(92.2, 228.922, 21.7, 0.426)
pt3dadd(92.276, 229.015, 21.7, 0.392)
pt3dadd(92.334, 229.117, 21.713, 0.384)
pt3dadd(92.381, 229.224, 21.735, 0.396)
pt3dadd(92.41, 229.28, 21.802, 0.414)
pt3dadd(92.428, 229.304, 21.899, 0.436)
pt3dadd(92.463, 229.32, 21.99, 0.474)
pt3dadd(92.542, 229.32, 22.066, 0.516)
pt3dadd(92.623, 229.32, 22.139, 0.54)
pt3dadd(92.694, 229.34, 22.215, 0.558)
pt3dadd(92.753, 229.385, 22.294, 0.572)
pt3dadd(92.835, 229.433, 22.35, 0.596)
pt3dadd(92.931, 229.484, 22.393, 0.624)
pt3dadd(92.998, 229.579, 22.4, 0.628)
pt3dadd(93.058, 229.682, 22.4, 0.628)
pt3dadd(93.105, 229.783, 22.43, 0.628)
pt3dadd(93.144, 229.882, 22.476, 0.628)
pt3dadd(93.182, 229.981, 22.523, 0.628)
pt3dadd(93.23, 230.03, 22.591, 0.616)
pt3dadd(93.286, 230.036, 22.68, 0.592)
pt3dadd(93.351, 230.056, 22.761, 0.574)
pt3dadd(93.428, 230.094, 22.83, 0.562)
pt3dadd(93.505, 230.134, 22.899, 0.552)
pt3dadd(93.546, 230.245, 22.9, 0.542)
pt3dadd(93.585, 230.358, 22.9, 0.532)
pt3dadd(93.6, 230.462, 22.937, 0.532)
pt3dadd(93.6, 230.56, 22.995, 0.542)
pt3dadd(93.6, 230.657, 23.053, 0.55)
pt3dadd(93.652, 230.72, 23.12, 0.574)
pt3dadd(93.721, 230.773, 23.189, 0.604)
pt3dadd(93.807, 230.806, 23.244, 0.654)
pt3dadd(93.86, 230.822, 23.332, 0.66)
pt3dadd(93.913, 230.839, 23.421, 0.666)
pt3dadd(93.966, 230.856, 23.509, 0.67)
pt3dadd(94.019, 230.873, 23.598, 0.676)
pt3dadd(94.074, 230.884, 23.686, 0.678)
pt3dadd(94.13, 230.89, 23.774, 0.678)
pt3dadd(94.17, 230.938, 23.848, 0.684)
pt3dadd(94.19, 231.034, 23.906, 0.696)
pt3dadd(94.213, 231.138, 23.95, 0.71)
pt3dadd(94.239, 231.248, 23.983, 0.722)
pt3dadd(94.308, 231.317, 24, 0.728)
pt3dadd(94.426, 231.337, 24, 0.728)
pt3dadd(94.544, 231.358, 24, 0.728)
pt3dadd(94.664, 231.36, 24.005, 0.682)
pt3dadd(94.784, 231.36, 24.011, 0.63)
pt3dadd(94.877, 231.43, 24.031, 0.594)
pt3dadd(94.97, 231.503, 24.051, 0.56)
pt3dadd(95.063, 231.575, 24.071, 0.528)
pt3dadd(95.156, 231.647, 24.091, 0.494)
pt3dadd(95.257, 231.708, 24.101, 0.462)
pt3dadd(95.365, 231.76, 24.103, 0.432)
pt3dadd(95.474, 231.811, 24.105, 0.404)
pt3dadd(95.582, 231.862, 24.108, 0.374)
pt3dadd(95.69, 231.913, 24.11, 0.346)
pt3dadd(95.792, 231.968, 24.127, 0.312)
pt3dadd(95.882, 232.028, 24.17, 0.268)
pt3dadd(95.978, 232.091, 24.192, 0.252)
pt3dadd(96.08, 232.153, 24.197, 0.252)
pt3dadd(96.184, 232.21, 24.211, 0.264)
pt3dadd(96.291, 232.256, 24.233, 0.288)
pt3dadd(96.35, 232.308, 24.287, 0.318)
pt3dadd(96.356, 232.363, 24.375, 0.354)
pt3dadd(96.37, 232.41, 24.466, 0.388)
pt3dadd(96.398, 232.438, 24.56, 0.424)
pt3dadd(96.472, 232.486, 24.627, 0.432)
pt3dadd(96.549, 232.534, 24.691, 0.438)
pt3dadd(96.627, 232.583, 24.756, 0.444)
pt3dadd(96.705, 232.631, 24.821, 0.45)
pt3dadd(96.768, 232.682, 24.894, 0.464)
pt3dadd(96.828, 232.735, 24.968, 0.478)
pt3dadd(96.855, 232.834, 25.021, 0.504)
pt3dadd(96.892, 232.926, 25.069, 0.534)
pt3dadd(96.998, 232.979, 25.085, 0.584)
pt3dadd(97.104, 233.028, 25.105, 0.632)
pt3dadd(97.205, 233.034, 25.158, 0.68)
pt3dadd(97.307, 233.04, 25.211, 0.728)
pt3dadd(97.28, 233.04, 25.309, 0.754)
pt3dadd(97.253, 233.04, 25.406, 0.778)
pt3dadd(97.227, 233.04, 25.504, 0.804)
pt3dadd(97.2, 233.04, 25.601, 0.828)
pt3dadd(97.205, 233.056, 25.7, 0.848)
pt3dadd(97.21, 233.071, 25.799, 0.868)
pt3dadd(97.243, 233.11, 25.88, 0.878)
pt3dadd(97.283, 233.129, 25.97, 0.866)
pt3dadd(97.319, 233.14, 26.065, 0.852)
pt3dadd(97.354, 233.149, 26.16, 0.838)
pt3dadd(97.39, 233.159, 26.255, 0.824)
pt3dadd(97.426, 233.17, 26.351, 0.81)
pt3dadd(97.471, 233.189, 26.441, 0.79)
pt3dadd(97.524, 233.215, 26.528, 0.768)
pt3dadd(97.576, 233.242, 26.616, 0.746)
pt3dadd(97.628, 233.267, 26.703, 0.724)
pt3dadd(97.681, 233.294, 26.789, 0.702)
pt3dadd(97.786, 233.342, 26.818, 0.664)
pt3dadd(97.885, 233.387, 26.852, 0.628)
pt3dadd(97.941, 233.394, 26.941, 0.64)
pt3dadd(97.998, 233.4, 27.029, 0.652)
pt3dadd(98.017, 233.422, 27.125, 0.674)
pt3dadd(98.034, 233.444, 27.222, 0.696)
pt3dadd(98.04, 233.507, 27.304, 0.718)
pt3dadd(98.04, 233.588, 27.377, 0.742)
pt3dadd(98.069, 233.635, 27.458, 0.754)
pt3dadd(98.124, 233.651, 27.546, 0.754)
pt3dadd(98.179, 233.666, 27.634, 0.754)
pt3dadd(98.23, 233.693, 27.716, 0.756)
pt3dadd(98.257, 233.8, 27.755, 0.782)
pt3dadd(98.282, 233.909, 27.791, 0.816)
pt3dadd(98.312, 234.012, 27.821, 0.886)
pt3dadd(98.367, 234.088, 27.884, 0.904)
pt3dadd(98.423, 234.162, 27.946, 0.922)
pt3dadd(98.479, 234.238, 28.009, 0.94)
pt3dadd(98.527, 234.317, 28.071, 0.948)
pt3dadd(98.555, 234.409, 28.13, 0.92)
pt3dadd(98.618, 234.47, 28.172, 0.884)
pt3dadd(98.736, 234.481, 28.185, 0.834)
pt3dadd(98.855, 234.492, 28.199, 0.784)
pt3dadd(98.921, 234.587, 28.2, 0.716)
pt3dadd(98.982, 234.69, 28.2, 0.648)
pt3dadd(99.014, 234.798, 28.227, 0.602)
pt3dadd(99.033, 234.907, 28.264, 0.566)
pt3dadd(99.063, 234.976, 28.333, 0.548)
pt3dadd(99.101, 235.022, 28.42, 0.54)
pt3dadd(99.139, 235.068, 28.507, 0.532)
pt3dadd(99.191, 235.117, 28.585, 0.52)
pt3dadd(99.262, 235.174, 28.651, 0.506)
pt3dadd(99.36, 235.2, 28.7, 0.452)
}
apic[19] {pt3dclear()
pt3dadd(93.547, 167.761, 5.669, 1.356)
pt3dadd(93.604, 167.736, 5.655, 1.316)
pt3dadd(93.718, 167.723, 5.639, 1.244)
pt3dadd(93.832, 167.71, 5.622, 1.172)
pt3dadd(93.947, 167.696, 5.606, 1.102)
pt3dadd(94.061, 167.684, 5.589, 1.03)
pt3dadd(94.175, 167.671, 5.573, 0.958)
pt3dadd(94.29, 167.658, 5.557, 0.886)
pt3dadd(94.404, 167.645, 5.54, 0.814)
pt3dadd(94.519, 167.633, 5.524, 0.744)
pt3dadd(94.633, 167.62, 5.508, 0.672)
pt3dadd(94.747, 167.606, 5.491, 0.6)
pt3dadd(94.855, 167.63, 5.48, 0.554)
pt3dadd(94.961, 167.664, 5.47, 0.514)
pt3dadd(95.066, 167.698, 5.46, 0.476)
pt3dadd(95.172, 167.731, 5.45, 0.436)
pt3dadd(95.277, 167.766, 5.44, 0.398)
pt3dadd(95.383, 167.8, 5.43, 0.36)
pt3dadd(95.489, 167.833, 5.42, 0.32)
pt3dadd(95.594, 167.866, 5.41, 0.282)
pt3dadd(95.7, 167.9, 5.4, 0.242)
pt3dadd(95.79, 167.957, 5.394, 0.226)
pt3dadd(95.87, 168.029, 5.392, 0.226)
pt3dadd(95.949, 168.102, 5.389, 0.226)
pt3dadd(96.029, 168.175, 5.386, 0.226)
pt3dadd(96.108, 168.247, 5.384, 0.226)
pt3dadd(96.188, 168.32, 5.381, 0.226)
pt3dadd(96.267, 168.394, 5.379, 0.226)
pt3dadd(96.347, 168.466, 5.376, 0.226)
pt3dadd(96.426, 168.539, 5.373, 0.226)
pt3dadd(96.506, 168.611, 5.371, 0.226)
pt3dadd(96.585, 168.685, 5.368, 0.226)
pt3dadd(96.664, 168.757, 5.365, 0.228)
pt3dadd(96.744, 168.829, 5.363, 0.23)
pt3dadd(96.823, 168.902, 5.36, 0.23)
pt3dadd(96.903, 168.976, 5.358, 0.232)
pt3dadd(96.982, 169.049, 5.355, 0.234)
pt3dadd(97.061, 169.121, 5.353, 0.234)
pt3dadd(97.141, 169.194, 5.35, 0.236)
pt3dadd(97.22, 169.267, 5.347, 0.238)
pt3dadd(97.299, 169.339, 5.345, 0.238)
pt3dadd(97.379, 169.412, 5.342, 0.246)
pt3dadd(97.458, 169.486, 5.34, 0.258)
pt3dadd(97.537, 169.559, 5.338, 0.27)
pt3dadd(97.616, 169.632, 5.336, 0.282)
pt3dadd(97.695, 169.704, 5.333, 0.294)
pt3dadd(97.774, 169.778, 5.331, 0.306)
pt3dadd(97.854, 169.85, 5.329, 0.318)
pt3dadd(97.933, 169.924, 5.327, 0.33)
pt3dadd(98.012, 169.998, 5.324, 0.342)
pt3dadd(98.091, 170.07, 5.322, 0.354)
pt3dadd(98.17, 170.143, 5.32, 0.366)
pt3dadd(98.249, 170.216, 5.318, 0.376)
pt3dadd(98.327, 170.291, 5.316, 0.388)
pt3dadd(98.323, 170.278, 5.313, 0.388)
}
}
proc shape3d_58() {
apic[19] { pt3dadd(98.402, 170.35, 5.311, 0.4)
pt3dadd(98.481, 170.423, 5.309, 0.412)
pt3dadd(98.559, 170.497, 5.307, 0.424)
pt3dadd(98.638, 170.57, 5.305, 0.436)
pt3dadd(98.717, 170.644, 5.303, 0.448)
pt3dadd(98.796, 170.717, 5.301, 0.46)
pt3dadd(98.875, 170.79, 5.299, 0.47)
pt3dadd(98.953, 170.864, 5.297, 0.482)
pt3dadd(99.03, 170.939, 5.296, 0.494)
pt3dadd(99.108, 171.013, 5.295, 0.504)
pt3dadd(99.186, 171.088, 5.293, 0.516)
pt3dadd(99.263, 171.162, 5.292, 0.526)
pt3dadd(99.341, 171.236, 5.291, 0.538)
pt3dadd(99.419, 171.311, 5.29, 0.548)
pt3dadd(99.496, 171.385, 5.289, 0.56)
pt3dadd(99.574, 171.46, 5.287, 0.57)
pt3dadd(99.652, 171.534, 5.286, 0.582)
pt3dadd(99.729, 171.61, 5.285, 0.594)
pt3dadd(99.807, 171.684, 5.285, 0.606)
pt3dadd(99.884, 171.757, 5.284, 0.62)
pt3dadd(99.961, 171.833, 5.283, 0.634)
pt3dadd(100.039, 171.907, 5.283, 0.646)
pt3dadd(100.116, 171.982, 5.282, 0.66)
pt3dadd(100.194, 172.056, 5.281, 0.672)
pt3dadd(100.271, 172.132, 5.281, 0.686)
pt3dadd(100.348, 172.206, 5.28, 0.7)
pt3dadd(100.426, 172.28, 5.279, 0.712)
pt3dadd(100.502, 172.356, 5.281, 0.732)
pt3dadd(100.578, 172.433, 5.283, 0.756)
pt3dadd(100.654, 172.508, 5.285, 0.78)
pt3dadd(100.729, 172.584, 5.288, 0.802)
pt3dadd(100.805, 172.661, 5.29, 0.826)
pt3dadd(100.881, 172.736, 5.293, 0.85)
pt3dadd(100.957, 172.812, 5.295, 0.874)
pt3dadd(101.033, 172.888, 5.297, 0.898)
pt3dadd(101.109, 172.964, 5.3, 0.922)
pt3dadd(101.184, 173.04, 5.302, 0.946)
pt3dadd(101.257, 173.118, 5.305, 0.964)
pt3dadd(101.328, 173.197, 5.31, 0.978)
pt3dadd(101.399, 173.278, 5.314, 0.99)
pt3dadd(101.47, 173.358, 5.318, 1.004)
pt3dadd(101.541, 173.437, 5.322, 1.016)
pt3dadd(101.612, 173.516, 5.326, 1.03)
pt3dadd(101.682, 173.598, 5.33, 1.044)
pt3dadd(101.753, 173.677, 5.334, 1.056)
pt3dadd(101.824, 173.758, 5.339, 1.07)
pt3dadd(101.895, 173.838, 5.343, 1.084)
pt3dadd(101.957, 173.923, 5.35, 1.08)
pt3dadd(102.014, 174.012, 5.359, 1.064)
pt3dadd(102.07, 174.101, 5.368, 1.048)
pt3dadd(102.126, 174.192, 5.376, 1.034)
pt3dadd(102.183, 174.281, 5.385, 1.018)
pt3dadd(102.239, 174.37, 5.394, 1.002)
pt3dadd(102.296, 174.458, 5.403, 0.988)
pt3dadd(102.352, 174.548, 5.412, 0.972)
pt3dadd(102.348, 174.535, 5.408, 0.972)
pt3dadd(102.404, 174.625, 5.417, 0.956)
pt3dadd(102.461, 174.715, 5.426, 0.942)
pt3dadd(102.517, 174.794, 5.457, 0.924)
pt3dadd(102.573, 174.866, 5.502, 0.904)
pt3dadd(102.63, 174.938, 5.547, 0.884)
pt3dadd(102.686, 175.013, 5.591, 0.864)
pt3dadd(102.742, 175.085, 5.636, 0.844)
pt3dadd(102.799, 175.157, 5.681, 0.824)
pt3dadd(102.855, 175.23, 5.726, 0.804)
pt3dadd(102.912, 175.303, 5.771, 0.784)
pt3dadd(102.968, 175.375, 5.816, 0.766)
pt3dadd(103.024, 175.448, 5.861, 0.746)
pt3dadd(103.105, 175.502, 5.9, 0.714)
pt3dadd(103.191, 175.55, 5.937, 0.68)
pt3dadd(103.277, 175.598, 5.974, 0.646)
pt3dadd(103.363, 175.646, 6.012, 0.614)
pt3dadd(103.449, 175.696, 6.049, 0.58)
pt3dadd(103.535, 175.745, 6.086, 0.546)
pt3dadd(103.621, 175.793, 6.124, 0.512)
pt3dadd(103.707, 175.841, 6.161, 0.478)
pt3dadd(103.794, 175.89, 6.198, 0.444)
pt3dadd(103.88, 175.938, 6.234, 0.412)
pt3dadd(103.978, 175.984, 6.252, 0.394)
pt3dadd(104.075, 176.029, 6.27, 0.374)
pt3dadd(104.172, 176.075, 6.287, 0.356)
pt3dadd(104.269, 176.12, 6.305, 0.336)
pt3dadd(104.366, 176.165, 6.322, 0.318)
pt3dadd(104.463, 176.212, 6.34, 0.298)
pt3dadd(104.561, 176.257, 6.357, 0.28)
pt3dadd(104.658, 176.302, 6.375, 0.262)
pt3dadd(104.755, 176.347, 6.392, 0.242)
pt3dadd(104.852, 176.394, 6.408, 0.226)
pt3dadd(104.948, 176.446, 6.415, 0.226)
pt3dadd(105.044, 176.497, 6.421, 0.226)
pt3dadd(105.14, 176.548, 6.428, 0.226)
pt3dadd(105.236, 176.6, 6.434, 0.226)
pt3dadd(105.332, 176.652, 6.44, 0.226)
pt3dadd(105.427, 176.704, 6.447, 0.226)
pt3dadd(105.523, 176.755, 6.453, 0.226)
pt3dadd(105.619, 176.807, 6.46, 0.226)
pt3dadd(105.715, 176.858, 6.466, 0.226)
pt3dadd(105.81, 176.91, 6.471, 0.226)
pt3dadd(105.902, 176.97, 6.468, 0.226)
pt3dadd(105.993, 177.03, 6.465, 0.226)
pt3dadd(106.084, 177.089, 6.462, 0.226)
pt3dadd(106.175, 177.148, 6.458, 0.226)
pt3dadd(106.266, 177.209, 6.455, 0.226)
pt3dadd(106.357, 177.268, 6.452, 0.226)
pt3dadd(106.448, 177.326, 6.448, 0.226)
pt3dadd(106.539, 177.386, 6.445, 0.226)
pt3dadd(106.631, 177.446, 6.442, 0.226)
pt3dadd(106.722, 177.505, 6.438, 0.226)
pt3dadd(106.812, 177.565, 6.433, 0.226)
pt3dadd(106.902, 177.626, 6.428, 0.226)
pt3dadd(106.993, 177.686, 6.424, 0.226)
pt3dadd(107.083, 177.748, 6.419, 0.226)
pt3dadd(107.173, 177.808, 6.414, 0.226)
pt3dadd(107.264, 177.869, 6.409, 0.226)
pt3dadd(107.354, 177.929, 6.405, 0.226)
pt3dadd(107.444, 177.989, 6.4, 0.226)
pt3dadd(107.535, 178.05, 6.395, 0.226)
pt3dadd(107.626, 178.109, 6.39, 0.23)
pt3dadd(107.724, 178.158, 6.384, 0.254)
pt3dadd(107.822, 178.206, 6.377, 0.278)
pt3dadd(107.92, 178.256, 6.371, 0.302)
pt3dadd(108.018, 178.306, 6.364, 0.326)
pt3dadd(108.116, 178.354, 6.358, 0.35)
pt3dadd(108.214, 178.403, 6.352, 0.374)
pt3dadd(108.312, 178.453, 6.345, 0.398)
pt3dadd(108.41, 178.502, 6.339, 0.422)
pt3dadd(108.508, 178.55, 6.332, 0.448)
pt3dadd(108.606, 178.6, 6.326, 0.47)
pt3dadd(108.704, 178.651, 6.319, 0.486)
pt3dadd(108.801, 178.7, 6.311, 0.502)
pt3dadd(108.898, 178.751, 6.304, 0.52)
pt3dadd(108.995, 178.802, 6.297, 0.536)
pt3dadd(109.093, 178.852, 6.289, 0.552)
pt3dadd(109.19, 178.902, 6.282, 0.568)
pt3dadd(109.287, 178.952, 6.275, 0.584)
pt3dadd(109.385, 179.003, 6.267, 0.6)
pt3dadd(109.482, 179.053, 6.26, 0.618)
pt3dadd(109.578, 179.105, 6.252, 0.626)
pt3dadd(109.669, 179.162, 6.241, 0.602)
pt3dadd(109.761, 179.222, 6.231, 0.576)
pt3dadd(109.851, 179.281, 6.22, 0.55)
pt3dadd(109.943, 179.34, 6.209, 0.526)
pt3dadd(110.034, 179.4, 6.198, 0.5)
pt3dadd(110.125, 179.459, 6.187, 0.474)
pt3dadd(110.216, 179.518, 6.176, 0.45)
pt3dadd(110.307, 179.575, 6.166, 0.424)
pt3dadd(110.398, 179.635, 6.155, 0.398)
pt3dadd(110.489, 179.695, 6.144, 0.374)
pt3dadd(110.577, 179.756, 6.131, 0.36)
pt3dadd(110.665, 179.819, 6.118, 0.344)
pt3dadd(110.753, 179.882, 6.105, 0.33)
pt3dadd(110.841, 179.945, 6.092, 0.314)
pt3dadd(110.929, 180.007, 6.079, 0.298)
pt3dadd(111.017, 180.07, 6.066, 0.284)
pt3dadd(111.105, 180.132, 6.053, 0.268)
pt3dadd(111.193, 180.194, 6.04, 0.254)
pt3dadd(111.281, 180.257, 6.027, 0.238)
pt3dadd(111.368, 180.32, 6.014, 0.226)
pt3dadd(111.452, 180.388, 5.998, 0.226)
pt3dadd(111.535, 180.455, 5.982, 0.226)
pt3dadd(111.618, 180.522, 5.966, 0.226)
pt3dadd(111.701, 180.59, 5.95, 0.226)
pt3dadd(111.784, 180.658, 5.934, 0.226)
pt3dadd(111.867, 180.725, 5.918, 0.226)
pt3dadd(111.951, 180.792, 5.902, 0.226)
pt3dadd(112.034, 180.86, 5.886, 0.226)
pt3dadd(112.117, 180.928, 5.87, 0.226)
pt3dadd(112.198, 180.995, 5.85, 0.23)
pt3dadd(112.27, 181.064, 5.809, 0.25)
pt3dadd(112.342, 181.133, 5.769, 0.268)
pt3dadd(112.413, 181.2, 5.729, 0.288)
pt3dadd(112.485, 181.268, 5.688, 0.308)
pt3dadd(112.557, 181.338, 5.648, 0.328)
pt3dadd(112.629, 181.405, 5.608, 0.346)
pt3dadd(112.701, 181.474, 5.567, 0.366)
pt3dadd(112.773, 181.542, 5.527, 0.386)
pt3dadd(112.844, 181.61, 5.487, 0.406)
pt3dadd(112.912, 181.679, 5.442, 0.428)
pt3dadd(112.974, 181.746, 5.389, 0.458)
pt3dadd(113.037, 181.814, 5.337, 0.486)
pt3dadd(113.099, 181.882, 5.285, 0.514)
pt3dadd(113.161, 181.95, 5.232, 0.544)
pt3dadd(113.223, 182.017, 5.18, 0.572)
pt3dadd(113.285, 182.086, 5.128, 0.6)
pt3dadd(113.347, 182.153, 5.075, 0.63)
pt3dadd(113.409, 182.22, 5.023, 0.658)
pt3dadd(113.472, 182.288, 4.971, 0.686)
pt3dadd(113.535, 182.36, 4.924, 0.71)
pt3dadd(113.599, 182.435, 4.885, 0.724)
pt3dadd(113.663, 182.51, 4.846, 0.738)
pt3dadd(113.727, 182.587, 4.807, 0.752)
pt3dadd(113.791, 182.663, 4.768, 0.766)
pt3dadd(113.855, 182.738, 4.729, 0.78)
pt3dadd(113.919, 182.813, 4.69, 0.794)
pt3dadd(113.983, 182.89, 4.65, 0.808)
pt3dadd(114.047, 182.965, 4.611, 0.822)
pt3dadd(114.111, 183.041, 4.572, 0.838)
pt3dadd(114.106, 183.028, 4.569, 0.838)
pt3dadd(114.163, 183.107, 4.527, 0.844)
pt3dadd(114.211, 183.188, 4.48, 0.842)
}
}
proc shape3d_59() {
apic[19] { pt3dadd(114.259, 183.27, 4.434, 0.84)
pt3dadd(114.307, 183.353, 4.388, 0.838)
pt3dadd(114.355, 183.434, 4.342, 0.836)
pt3dadd(114.403, 183.516, 4.296, 0.834)
pt3dadd(114.451, 183.599, 4.25, 0.832)
pt3dadd(114.499, 183.682, 4.204, 0.83)
pt3dadd(114.547, 183.763, 4.157, 0.828)
pt3dadd(114.595, 183.845, 4.111, 0.826)
pt3dadd(114.636, 183.928, 4.063, 0.82)
pt3dadd(114.672, 184.014, 4.012, 0.806)
pt3dadd(114.708, 184.098, 3.962, 0.792)
pt3dadd(114.744, 184.183, 3.911, 0.78)
pt3dadd(114.78, 184.267, 3.861, 0.766)
pt3dadd(114.775, 184.255, 3.857, 0.766)
pt3dadd(114.811, 184.34, 3.807, 0.752)
pt3dadd(114.846, 184.424, 3.756, 0.74)
pt3dadd(114.842, 184.412, 3.753, 0.74)
pt3dadd(114.878, 184.498, 3.702, 0.726)
pt3dadd(114.914, 184.582, 3.652, 0.712)
pt3dadd(114.949, 184.667, 3.601, 0.7)
pt3dadd(114.992, 184.756, 3.562, 0.68)
pt3dadd(115.04, 184.846, 3.534, 0.656)
pt3dadd(115.088, 184.937, 3.506, 0.634)
pt3dadd(115.136, 185.027, 3.478, 0.61)
pt3dadd(115.184, 185.118, 3.45, 0.586)
pt3dadd(115.232, 185.209, 3.422, 0.562)
pt3dadd(115.28, 185.299, 3.394, 0.538)
pt3dadd(115.328, 185.39, 3.366, 0.514)
pt3dadd(115.376, 185.482, 3.337, 0.49)
pt3dadd(115.424, 185.572, 3.309, 0.466)
pt3dadd(115.472, 185.663, 3.283, 0.442)
pt3dadd(115.519, 185.756, 3.259, 0.42)
pt3dadd(115.566, 185.849, 3.235, 0.396)
pt3dadd(115.614, 185.94, 3.211, 0.374)
pt3dadd(115.661, 186.032, 3.187, 0.35)
pt3dadd(115.709, 186.126, 3.162, 0.328)
pt3dadd(115.756, 186.217, 3.138, 0.304)
pt3dadd(115.804, 186.31, 3.114, 0.282)
pt3dadd(115.851, 186.403, 3.09, 0.258)
pt3dadd(115.899, 186.494, 3.065, 0.236)
pt3dadd(115.933, 186.593, 3.047, 0.226)
pt3dadd(115.959, 186.695, 3.032, 0.226)
pt3dadd(115.985, 186.798, 3.017, 0.226)
pt3dadd(116.01, 186.9, 3.003, 0.226)
pt3dadd(116.036, 187.002, 2.988, 0.226)
pt3dadd(116.061, 187.104, 2.973, 0.226)
pt3dadd(116.087, 187.207, 2.958, 0.226)
pt3dadd(116.113, 187.31, 2.944, 0.226)
pt3dadd(116.138, 187.412, 2.929, 0.226)
pt3dadd(116.164, 187.514, 2.914, 0.226)
pt3dadd(116.186, 187.619, 2.902, 0.23)
pt3dadd(116.205, 187.723, 2.892, 0.236)
pt3dadd(116.225, 187.826, 2.882, 0.244)
pt3dadd(116.244, 187.932, 2.872, 0.25)
pt3dadd(116.264, 188.036, 2.862, 0.258)
pt3dadd(116.283, 188.14, 2.852, 0.264)
pt3dadd(116.303, 188.244, 2.842, 0.272)
pt3dadd(116.322, 188.35, 2.832, 0.278)
pt3dadd(116.342, 188.454, 2.822, 0.286)
pt3dadd(116.361, 188.557, 2.812, 0.292)
pt3dadd(116.376, 188.663, 2.805, 0.304)
pt3dadd(116.388, 188.77, 2.8, 0.318)
pt3dadd(116.4, 188.875, 2.795, 0.332)
pt3dadd(116.413, 188.981, 2.79, 0.348)
pt3dadd(116.425, 189.088, 2.785, 0.362)
pt3dadd(116.437, 189.193, 2.781, 0.376)
pt3dadd(116.449, 189.299, 2.776, 0.392)
pt3dadd(116.461, 189.404, 2.771, 0.406)
pt3dadd(116.473, 189.511, 2.766, 0.42)
pt3dadd(116.486, 189.617, 2.761, 0.434)
pt3dadd(116.493, 189.722, 2.756, 0.432)
pt3dadd(116.498, 189.829, 2.749, 0.42)
pt3dadd(116.503, 189.937, 2.743, 0.408)
pt3dadd(116.507, 190.043, 2.737, 0.396)
pt3dadd(116.512, 190.15, 2.731, 0.382)
pt3dadd(116.517, 190.258, 2.725, 0.37)
pt3dadd(116.522, 190.363, 2.718, 0.358)
pt3dadd(116.526, 190.47, 2.712, 0.346)
pt3dadd(116.531, 190.577, 2.706, 0.332)
pt3dadd(116.536, 190.684, 2.7, 0.32)
pt3dadd(116.542, 190.79, 2.692, 0.31)
pt3dadd(116.548, 190.896, 2.684, 0.3)
pt3dadd(116.554, 191.003, 2.676, 0.292)
pt3dadd(116.561, 191.11, 2.668, 0.282)
pt3dadd(116.567, 191.216, 2.66, 0.274)
pt3dadd(116.574, 191.322, 2.651, 0.266)
pt3dadd(116.58, 191.429, 2.643, 0.256)
pt3dadd(116.587, 191.536, 2.635, 0.248)
pt3dadd(116.593, 191.642, 2.627, 0.238)
pt3dadd(116.599, 191.748, 2.619, 0.23)
pt3dadd(116.608, 191.855, 2.609, 0.226)
pt3dadd(116.619, 191.96, 2.598, 0.226)
pt3dadd(116.629, 192.066, 2.587, 0.226)
pt3dadd(116.639, 192.172, 2.576, 0.226)
pt3dadd(116.649, 192.278, 2.565, 0.226)
pt3dadd(116.66, 192.384, 2.554, 0.226)
pt3dadd(116.67, 192.49, 2.544, 0.226)
pt3dadd(116.68, 192.595, 2.533, 0.226)
pt3dadd(116.69, 192.702, 2.522, 0.226)
pt3dadd(116.701, 192.808, 2.511, 0.226)
pt3dadd(116.731, 192.907, 2.497, 0.234)
pt3dadd(116.774, 193.004, 2.482, 0.248)
pt3dadd(116.816, 193.1, 2.467, 0.262)
pt3dadd(116.859, 193.196, 2.452, 0.276)
pt3dadd(116.902, 193.292, 2.437, 0.29)
pt3dadd(116.944, 193.391, 2.422, 0.304)
pt3dadd(116.987, 193.487, 2.407, 0.318)
pt3dadd(117.03, 193.583, 2.392, 0.332)
pt3dadd(117.072, 193.679, 2.377, 0.346)
pt3dadd(117.115, 193.776, 2.362, 0.36)
pt3dadd(117.157, 193.87, 2.335, 0.382)
pt3dadd(117.199, 193.961, 2.302, 0.406)
pt3dadd(117.24, 194.053, 2.268, 0.432)
pt3dadd(117.282, 194.146, 2.235, 0.458)
pt3dadd(117.324, 194.237, 2.202, 0.482)
pt3dadd(117.366, 194.328, 2.169, 0.508)
pt3dadd(117.407, 194.422, 2.136, 0.532)
pt3dadd(117.449, 194.513, 2.103, 0.558)
pt3dadd(117.491, 194.604, 2.069, 0.584)
pt3dadd(117.532, 194.696, 2.036, 0.608)
pt3dadd(117.563, 194.784, 1.987, 0.626)
pt3dadd(117.593, 194.87, 1.935, 0.642)
pt3dadd(117.623, 194.956, 1.883, 0.658)
pt3dadd(117.652, 195.042, 1.831, 0.674)
pt3dadd(117.682, 195.13, 1.78, 0.692)
pt3dadd(117.712, 195.216, 1.728, 0.708)
pt3dadd(117.741, 195.301, 1.676, 0.724)
pt3dadd(117.771, 195.389, 1.624, 0.74)
pt3dadd(117.801, 195.475, 1.572, 0.756)
pt3dadd(117.831, 195.56, 1.521, 0.772)
pt3dadd(117.843, 195.66, 1.486, 0.72)
pt3dadd(117.855, 195.761, 1.451, 0.664)
pt3dadd(117.867, 195.86, 1.417, 0.61)
pt3dadd(117.879, 195.96, 1.382, 0.556)
pt3dadd(117.892, 196.06, 1.348, 0.5)
pt3dadd(117.904, 196.16, 1.313, 0.446)
pt3dadd(117.916, 196.26, 1.279, 0.392)
pt3dadd(117.928, 196.36, 1.244, 0.336)
pt3dadd(117.94, 196.46, 1.21, 0.282)
pt3dadd(117.953, 196.56, 1.175, 0.228)
pt3dadd(117.948, 196.666, 1.158, 0.226)
pt3dadd(117.944, 196.771, 1.141, 0.226)
pt3dadd(117.939, 196.878, 1.124, 0.226)
pt3dadd(117.934, 196.984, 1.107, 0.226)
pt3dadd(117.93, 197.089, 1.09, 0.226)
pt3dadd(117.925, 197.195, 1.072, 0.226)
pt3dadd(117.921, 197.303, 1.055, 0.226)
pt3dadd(117.916, 197.408, 1.038, 0.226)
pt3dadd(117.911, 197.514, 1.021, 0.226)
pt3dadd(117.907, 197.621, 1.004, 0.226)
pt3dadd(117.902, 197.728, 0.997, 0.226)
pt3dadd(117.897, 197.834, 0.99, 0.226)
pt3dadd(117.893, 197.94, 0.983, 0.226)
pt3dadd(117.888, 198.048, 0.976, 0.226)
pt3dadd(117.884, 198.155, 0.969, 0.226)
pt3dadd(117.879, 198.262, 0.962, 0.226)
pt3dadd(117.874, 198.368, 0.954, 0.226)
pt3dadd(117.87, 198.476, 0.947, 0.226)
pt3dadd(117.865, 198.583, 0.94, 0.226)
pt3dadd(117.86, 198.69, 0.933, 0.226)
pt3dadd(117.856, 198.798, 0.93, 0.226)
pt3dadd(117.851, 198.905, 0.927, 0.226)
pt3dadd(117.847, 199.012, 0.923, 0.226)
pt3dadd(117.842, 199.118, 0.92, 0.226)
pt3dadd(117.837, 199.226, 0.916, 0.226)
pt3dadd(117.833, 199.333, 0.913, 0.226)
pt3dadd(117.828, 199.44, 0.91, 0.226)
pt3dadd(117.823, 199.547, 0.906, 0.226)
pt3dadd(117.819, 199.655, 0.903, 0.226)
pt3dadd(117.814, 199.762, 0.899, 0.226)
pt3dadd(117.706, 199.804, 0.874, 0.262)
pt3dadd(117.597, 199.843, 0.849, 0.3)
pt3dadd(117.568, 199.854, 0.753, 0.342)
pt3dadd(117.543, 199.861, 0.653, 0.386)
pt3dadd(117.477, 199.88, 0.573, 0.438)
pt3dadd(117.391, 199.908, 0.504, 0.49)
pt3dadd(117.387, 199.895, 0.501, 0.49)
pt3dadd(117.382, 199.883, 0.497, 0.49)
pt3dadd(117.378, 199.87, 0.494, 0.49)
pt3dadd(117.357, 199.96, 0.473, 0.518)
pt3dadd(117.354, 200.066, 0.466, 0.536)
pt3dadd(117.354, 200.17, 0.447, 0.55)
pt3dadd(117.367, 200.254, 0.387, 0.536)
pt3dadd(117.379, 200.338, 0.326, 0.52)
pt3dadd(117.392, 200.423, 0.266, 0.506)
pt3dadd(117.451, 200.473, 0.205, 0.452)
pt3dadd(117.531, 200.512, 0.145, 0.38)
pt3dadd(117.573, 200.606, 0.138, 0.348)
pt3dadd(117.612, 200.706, 0.135, 0.318)
pt3dadd(117.652, 200.804, 0.132, 0.288)
pt3dadd(117.674, 200.908, 0.128, 0.27)
pt3dadd(117.686, 201.013, 0.125, 0.262)
pt3dadd(117.698, 201.12, 0.121, 0.254)
pt3dadd(117.71, 201.226, 0.118, 0.284)
pt3dadd(117.747, 201.323, 0.119, 0.316)
pt3dadd(117.799, 201.416, 0.122, 0.34)
pt3dadd(117.85, 201.509, 0.125, 0.364)
pt3dadd(117.902, 201.601, 0.128, 0.388)
pt3dadd(117.954, 201.695, 0.131, 0.414)
pt3dadd(118.002, 201.79, 0.129, 0.438)
}
}
proc shape3d_60() {
apic[19] { pt3dadd(118.047, 201.886, 0.12, 0.468)
pt3dadd(118.091, 201.983, 0.112, 0.496)
pt3dadd(118.135, 202.078, 0.103, 0.524)
pt3dadd(118.179, 202.176, 0.095, 0.552)
pt3dadd(118.191, 202.28, 0.09, 0.574)
pt3dadd(118.203, 202.386, 0.085, 0.596)
pt3dadd(118.215, 202.493, 0.08, 0.618)
pt3dadd(118.227, 202.598, 0.075, 0.64)
pt3dadd(118.239, 202.704, 0.07, 0.662)
pt3dadd(118.251, 202.811, 0.065, 0.684)
pt3dadd(118.266, 202.916, 0.06, 0.706)
pt3dadd(118.298, 203.017, 0.057, 0.726)
pt3dadd(118.33, 203.118, 0.054, 0.744)
pt3dadd(118.396, 203.192, 0.041, 0.76)
pt3dadd(118.491, 203.242, 0.02, 0.774)
pt3dadd(118.539, 203.293, -0.041, 0.756)
pt3dadd(118.557, 203.344, -0.127, 0.718)
pt3dadd(118.618, 203.365, -0.199, 0.68)
pt3dadd(118.709, 203.366, -0.261, 0.64)
pt3dadd(118.774, 203.43, -0.301, 0.612)
pt3dadd(118.829, 203.515, -0.332, 0.588)
pt3dadd(118.883, 203.603, -0.362, 0.564)
pt3dadd(118.945, 203.687, -0.38, 0.552)
pt3dadd(119.015, 203.767, -0.384, 0.552)
pt3dadd(119.073, 203.854, -0.387, 0.568)
pt3dadd(119.1, 203.958, -0.391, 0.61)
pt3dadd(119.127, 204.06, -0.394, 0.628)
pt3dadd(119.153, 204.163, -0.397, 0.648)
pt3dadd(119.197, 204.254, -0.424, 0.662)
pt3dadd(119.248, 204.338, -0.463, 0.676)
pt3dadd(119.269, 204.434, -0.5, 0.686)
pt3dadd(119.28, 204.534, -0.536, 0.696)
pt3dadd(119.305, 204.605, -0.593, 0.708)
pt3dadd(119.35, 204.635, -0.68, 0.722)
pt3dadd(119.403, 204.692, -0.739, 0.732)
pt3dadd(119.463, 204.774, -0.774, 0.74)
pt3dadd(119.523, 204.854, -0.809, 0.748)
pt3dadd(119.563, 204.946, -0.831, 0.75)
pt3dadd(119.575, 205.051, -0.835, 0.742)
pt3dadd(119.587, 205.158, -0.838, 0.734)
pt3dadd(119.599, 205.264, -0.847, 0.716)
pt3dadd(119.611, 205.364, -0.874, 0.704)
pt3dadd(119.622, 205.464, -0.912, 0.704)
pt3dadd(119.633, 205.562, -0.95, 0.704)
pt3dadd(119.644, 205.661, -0.988, 0.704)
pt3dadd(119.655, 205.759, -1.026, 0.704)
pt3dadd(119.667, 205.858, -1.064, 0.704)
pt3dadd(119.703, 205.944, -1.111, 0.714)
pt3dadd(119.739, 206.032, -1.158, 0.726)
pt3dadd(119.775, 206.119, -1.205, 0.736)
pt3dadd(119.771, 206.106, -1.209, 0.736)
pt3dadd(119.766, 206.094, -1.212, 0.736)
pt3dadd(119.802, 206.18, -1.259, 0.748)
pt3dadd(119.834, 206.274, -1.294, 0.758)
pt3dadd(119.863, 206.374, -1.316, 0.768)
pt3dadd(119.892, 206.474, -1.338, 0.776)
pt3dadd(119.921, 206.574, -1.361, 0.786)
pt3dadd(119.95, 206.675, -1.383, 0.796)
pt3dadd(119.983, 206.773, -1.403, 0.804)
pt3dadd(120.053, 206.854, -1.406, 0.804)
pt3dadd(120.122, 206.935, -1.409, 0.804)
pt3dadd(120.179, 207.024, -1.427, 0.782)
pt3dadd(120.235, 207.113, -1.447, 0.758)
pt3dadd(120.265, 207.178, -1.516, 0.732)
pt3dadd(120.293, 207.238, -1.595, 0.706)
pt3dadd(120.341, 207.293, -1.667, 0.69)
pt3dadd(120.395, 207.347, -1.738, 0.678)
pt3dadd(120.468, 207.392, -1.799, 0.678)
pt3dadd(120.538, 207.466, -1.834, 0.678)
pt3dadd(120.607, 207.539, -1.868, 0.678)
pt3dadd(120.678, 207.612, -1.902, 0.678)
pt3dadd(120.749, 207.685, -1.937, 0.678)
pt3dadd(120.799, 207.775, -1.951, 0.676)
pt3dadd(120.841, 207.874, -1.957, 0.67)
pt3dadd(120.883, 207.971, -1.962, 0.666)
pt3dadd(120.925, 208.068, -1.968, 0.662)
pt3dadd(120.967, 208.166, -1.973, 0.658)
pt3dadd(121.008, 208.264, -1.98, 0.652)
pt3dadd(121.044, 208.352, -2.024, 0.648)
pt3dadd(121.08, 208.441, -2.068, 0.642)
pt3dadd(121.116, 208.53, -2.112, 0.636)
pt3dadd(121.152, 208.62, -2.156, 0.63)
pt3dadd(121.195, 208.702, -2.204, 0.626)
pt3dadd(121.252, 208.774, -2.258, 0.62)
pt3dadd(121.307, 208.844, -2.312, 0.614)
pt3dadd(121.362, 208.916, -2.365, 0.608)
pt3dadd(121.41, 208.993, -2.417, 0.604)
pt3dadd(121.428, 209.086, -2.463, 0.608)
pt3dadd(121.446, 209.18, -2.508, 0.614)
pt3dadd(121.465, 209.273, -2.553, 0.618)
pt3dadd(121.483, 209.368, -2.599, 0.624)
pt3dadd(121.51, 209.458, -2.64, 0.628)
pt3dadd(121.579, 209.538, -2.66, 0.634)
pt3dadd(121.649, 209.616, -2.68, 0.64)
pt3dadd(121.72, 209.695, -2.701, 0.646)
pt3dadd(121.789, 209.776, -2.721, 0.65)
pt3dadd(121.852, 209.86, -2.732, 0.656)
pt3dadd(121.909, 209.95, -2.735, 0.66)
pt3dadd(121.967, 210.04, -2.738, 0.666)
pt3dadd(122.026, 210.13, -2.742, 0.67)
pt3dadd(122.083, 210.218, -2.745, 0.674)
pt3dadd(122.15, 210.298, -2.749, 0.678)
pt3dadd(122.249, 210.347, -2.752, 0.678)
pt3dadd(122.347, 210.395, -2.755, 0.678)
pt3dadd(122.447, 210.443, -2.759, 0.678)
pt3dadd(122.545, 210.491, -2.762, 0.678)
pt3dadd(122.648, 210.524, -2.766, 0.678)
pt3dadd(122.764, 210.515, -2.769, 0.678)
pt3dadd(122.879, 210.505, -2.772, 0.678)
pt3dadd(122.976, 210.545, -2.776, 0.686)
pt3dadd(123.064, 210.607, -2.779, 0.698)
pt3dadd(123.128, 210.689, -2.783, 0.708)
pt3dadd(123.173, 210.786, -2.786, 0.72)
pt3dadd(123.22, 210.882, -2.789, 0.73)
pt3dadd(123.283, 210.967, -2.793, 0.74)
pt3dadd(123.347, 211.052, -2.796, 0.752)
pt3dadd(123.438, 211.11, -2.799, 0.746)
pt3dadd(123.534, 211.163, -2.803, 0.74)
pt3dadd(123.63, 211.214, -2.806, 0.732)
pt3dadd(123.732, 211.254, -2.81, 0.728)
pt3dadd(123.845, 211.264, -2.813, 0.728)
pt3dadd(123.958, 211.274, -2.816, 0.728)
pt3dadd(124.027, 211.357, -2.82, 0.728)
pt3dadd(124.094, 211.439, -2.823, 0.728)
pt3dadd(124.163, 211.522, -2.827, 0.728)
pt3dadd(124.226, 211.608, -2.83, 0.728)
pt3dadd(124.29, 211.693, -2.833, 0.728)
pt3dadd(124.351, 211.78, -2.84, 0.678)
pt3dadd(124.369, 211.874, -2.882, 0.668)
pt3dadd(124.388, 211.97, -2.925, 0.658)
pt3dadd(124.406, 212.065, -2.968, 0.648)
pt3dadd(124.424, 212.16, -3.01, 0.638)
pt3dadd(124.444, 212.255, -3.053, 0.628)
pt3dadd(124.456, 212.36, -3.061, 0.628)
pt3dadd(124.468, 212.467, -3.068, 0.628)
pt3dadd(124.48, 212.572, -3.078, 0.63)
pt3dadd(124.496, 212.67, -3.116, 0.664)
pt3dadd(124.513, 212.766, -3.154, 0.698)
pt3dadd(124.597, 212.82, -3.183, 0.748)
pt3dadd(124.694, 212.864, -3.21, 0.802)
pt3dadd(124.79, 212.891, -3.255, 0.87)
pt3dadd(124.882, 212.921, -3.304, 0.932)
pt3dadd(124.932, 212.982, -3.372, 0.958)
pt3dadd(124.984, 213.042, -3.439, 0.984)
pt3dadd(125.036, 213.107, -3.497, 1.01)
pt3dadd(125.099, 213.193, -3.517, 1.048)
pt3dadd(125.162, 213.268, -3.546, 1.086)
pt3dadd(125.221, 213.311, -3.617, 1.112)
pt3dadd(125.273, 213.373, -3.683, 1.126)
pt3dadd(125.293, 213.47, -3.707, 1.13)
pt3dadd(125.305, 213.575, -3.718, 1.13)
pt3dadd(125.317, 213.68, -3.729, 1.13)
pt3dadd(125.324, 213.749, -3.806, 1.13)
pt3dadd(125.33, 213.816, -3.882, 1.13)
pt3dadd(125.382, 213.866, -3.956, 1.092)
pt3dadd(125.444, 213.912, -4.025, 1.044)
pt3dadd(125.544, 213.94, -4.064, 0.942)
pt3dadd(125.639, 213.97, -4.109, 0.898)
pt3dadd(125.734, 214.001, -4.155, 0.862)
pt3dadd(125.828, 214.033, -4.201, 0.826)
pt3dadd(125.923, 214.063, -4.247, 0.79)
pt3dadd(126.014, 214.111, -4.277, 0.774)
pt3dadd(126.106, 214.168, -4.301, 0.768)
pt3dadd(126.196, 214.224, -4.324, 0.762)
pt3dadd(126.287, 214.28, -4.348, 0.758)
pt3dadd(126.382, 214.326, -4.372, 0.754)
pt3dadd(126.491, 214.343, -4.397, 0.76)
pt3dadd(126.6, 214.36, -4.421, 0.766)
pt3dadd(126.708, 214.378, -4.446, 0.77)
pt3dadd(126.817, 214.394, -4.471, 0.776)
pt3dadd(126.929, 214.396, -4.483, 0.79)
pt3dadd(127.045, 214.386, -4.486, 0.81)
pt3dadd(127.16, 214.378, -4.49, 0.828)
pt3dadd(127.258, 214.41, -4.53, 0.814)
pt3dadd(127.348, 214.447, -4.573, 0.802)
pt3dadd(127.399, 214.517, -4.632, 0.786)
pt3dadd(127.45, 214.595, -4.676, 0.77)
pt3dadd(127.499, 214.688, -4.695, 0.746)
pt3dadd(127.552, 214.78, -4.712, 0.724)
pt3dadd(127.618, 214.864, -4.723, 0.706)
pt3dadd(127.706, 214.903, -4.765, 0.692)
pt3dadd(127.798, 214.939, -4.811, 0.678)
pt3dadd(127.868, 215.015, -4.837, 0.678)
pt3dadd(127.933, 215.086, -4.874, 0.678)
pt3dadd(127.956, 215.131, -4.962, 0.678)
pt3dadd(127.976, 215.178, -5.048, 0.678)
pt3dadd(127.982, 215.239, -5.13, 0.678)
pt3dadd(127.99, 215.303, -5.208, 0.678)
pt3dadd(128.029, 215.399, -5.235, 0.696)
pt3dadd(128.075, 215.491, -5.261, 0.71)
pt3dadd(128.124, 215.582, -5.286, 0.722)
pt3dadd(128.144, 215.628, -5.355, 0.734)
pt3dadd(128.143, 215.641, -5.456, 0.744)
pt3dadd(128.147, 215.657, -5.555, 0.752)
pt3dadd(128.198, 215.72, -5.62, 0.738)
pt3dadd(128.244, 215.794, -5.672, 0.718)
pt3dadd(128.279, 215.892, -5.69, 0.686)
pt3dadd(128.312, 215.992, -5.708, 0.652)
pt3dadd(128.372, 216.025, -5.786, 0.59)
pt3dadd(128.436, 216.083, -5.845, 0.562)
}
}
proc shape3d_61() {
apic[19] { pt3dadd(128.501, 216.146, -5.9, 0.544)
pt3dadd(128.567, 216.209, -5.955, 0.526)
pt3dadd(128.632, 216.272, -6.01, 0.508)
pt3dadd(128.699, 216.347, -6.038, 0.506)
pt3dadd(128.768, 216.428, -6.056, 0.512)
pt3dadd(128.837, 216.508, -6.074, 0.516)
pt3dadd(128.906, 216.589, -6.091, 0.522)
pt3dadd(128.975, 216.668, -6.108, 0.528)
pt3dadd(129.05, 216.745, -6.105, 0.532)
pt3dadd(129.125, 216.822, -6.101, 0.538)
pt3dadd(129.2, 216.899, -6.098, 0.544)
pt3dadd(129.275, 216.974, -6.094, 0.548)
pt3dadd(129.347, 217.051, -6.084, 0.564)
pt3dadd(129.406, 217.132, -6.052, 0.618)
pt3dadd(129.482, 217.187, -6.032, 0.66)
pt3dadd(129.596, 217.196, -6.036, 0.682)
pt3dadd(129.709, 217.207, -6.039, 0.702)
pt3dadd(129.799, 217.226, -5.987, 0.744)
pt3dadd(129.892, 217.236, -5.937, 0.78)
pt3dadd(129.992, 217.208, -5.895, 0.792)
pt3dadd(130.094, 217.18, -5.854, 0.804)
pt3dadd(130.164, 217.168, -5.779, 0.818)
pt3dadd(130.231, 217.157, -5.703, 0.834)
pt3dadd(130.3, 217.146, -5.627, 0.848)
pt3dadd(130.361, 217.171, -5.557, 0.846)
pt3dadd(130.418, 217.218, -5.491, 0.83)
pt3dadd(130.517, 217.228, -5.451, 0.804)
pt3dadd(130.622, 217.23, -5.417, 0.776)
pt3dadd(130.729, 217.225, -5.389, 0.716)
pt3dadd(130.843, 217.195, -5.387, 0.558)
pt3dadd(130.838, 217.183, -5.39, 0.558)
pt3dadd(130.834, 217.17, -5.394, 0.558)
pt3dadd(130.829, 217.157, -5.397, 0.558)
pt3dadd(130.825, 217.144, -5.401, 0.558)
}
apic[20] {pt3dclear()
pt3dadd(93.722, 160.577, 5.475, 2.186)
pt3dadd(93.627, 160.517, 5.383, 2.19)
pt3dadd(93.524, 160.459, 5.293, 2.198)
pt3dadd(93.421, 160.4, 5.203, 2.208)
pt3dadd(93.318, 160.343, 5.113, 2.216)
pt3dadd(93.215, 160.283, 5.023, 2.224)
pt3dadd(93.112, 160.225, 4.933, 2.232)
pt3dadd(93.009, 160.166, 4.843, 2.242)
pt3dadd(92.906, 160.108, 4.753, 2.25)
pt3dadd(92.802, 160.049, 4.663, 2.258)
pt3dadd(92.76, 160.078, 4.563, 2.294)
pt3dadd(92.738, 160.138, 4.459, 2.342)
pt3dadd(92.716, 160.187, 4.351, 2.41)
pt3dadd(92.694, 160.231, 4.239, 2.49)
pt3dadd(92.672, 160.3, 4.156, 2.576)
pt3dadd(92.65, 160.403, 4.114, 2.674)
pt3dadd(92.628, 160.504, 4.071, 2.77)
pt3dadd(92.607, 160.608, 4.043, 2.87)
pt3dadd(92.585, 160.711, 4.017, 2.97)
pt3dadd(92.563, 160.816, 3.992, 3.07)
pt3dadd(92.541, 160.888, 3.907, 3.146)
pt3dadd(92.519, 160.956, 3.81, 3.218)
pt3dadd(92.497, 161.023, 3.712, 3.288)
pt3dadd(92.475, 161.09, 3.616, 3.364)
pt3dadd(92.454, 161.162, 3.522, 3.446)
pt3dadd(92.432, 161.232, 3.427, 3.526)
pt3dadd(92.41, 161.296, 3.327, 3.566)
pt3dadd(92.388, 161.365, 3.232, 3.566)
pt3dadd(92.366, 161.436, 3.138, 3.566)
pt3dadd(92.344, 161.506, 3.043, 3.566)
pt3dadd(92.322, 161.576, 2.948, 3.566)
pt3dadd(92.301, 161.658, 2.869, 3.564)
pt3dadd(92.279, 161.754, 2.806, 3.558)
pt3dadd(92.257, 161.85, 2.744, 3.554)
pt3dadd(92.235, 161.945, 2.681, 3.55)
pt3dadd(92.213, 162.04, 2.619, 3.544)
pt3dadd(92.189, 162.134, 2.557, 3.544)
pt3dadd(92.149, 162.232, 2.5, 3.566)
pt3dadd(92.108, 162.328, 2.444, 3.59)
pt3dadd(92.027, 162.414, 2.401, 3.616)
pt3dadd(91.944, 162.498, 2.359, 3.642)
pt3dadd(91.84, 162.57, 2.333, 3.642)
pt3dadd(91.736, 162.642, 2.308, 3.642)
pt3dadd(91.607, 162.677, 2.283, 3.574)
pt3dadd(91.475, 162.708, 2.257, 3.496)
pt3dadd(91.353, 162.755, 2.232, 3.34)
pt3dadd(91.244, 162.82, 2.206, 3.138)
pt3dadd(91.168, 162.91, 2.181, 2.98)
pt3dadd(91.093, 163.002, 2.156, 2.824)
pt3dadd(91.004, 163.085, 2.13, 2.694)
pt3dadd(90.914, 163.168, 2.105, 2.566)
pt3dadd(90.818, 163.232, 2.045, 2.448)
pt3dadd(90.72, 163.291, 1.975, 2.334)
pt3dadd(90.62, 163.282, 1.874, 2.248)
pt3dadd(90.52, 163.272, 1.772, 2.162)
pt3dadd(90.498, 163.256, 1.747, 2.162)
pt3dadd(90.421, 163.306, 1.653, 2.086)
pt3dadd(90.345, 163.358, 1.559, 2.008)
pt3dadd(90.27, 163.412, 1.467, 1.928)
pt3dadd(90.248, 163.51, 1.408, 1.812)
pt3dadd(90.227, 163.607, 1.35, 1.694)
pt3dadd(90.205, 163.7, 1.284, 1.404)
pt3dadd(90.177, 163.769, 1.189, 1.278)
pt3dadd(90.149, 163.838, 1.093, 1.166)
pt3dadd(90.087, 163.931, 1.051, 1.092)
pt3dadd(90.022, 164.026, 1.015, 1.022)
pt3dadd(89.932, 164.089, 0.95, 0.962)
pt3dadd(89.834, 164.142, 0.873, 0.904)
pt3dadd(89.812, 164.126, 0.848, 1.356)
pt3dadd(89.79, 164.11, 0.822, 1.356)
pt3dadd(89.768, 164.094, 0.797, 1.356)
pt3dadd(89.763, 164.196, 0.771, 1.49)
pt3dadd(89.758, 164.299, 0.746, 1.624)
pt3dadd(89.753, 164.402, 0.721, 1.758)
pt3dadd(89.747, 164.504, 0.694, 1.79)
pt3dadd(89.742, 164.608, 0.667, 1.824)
pt3dadd(89.737, 164.71, 0.64, 1.856)
pt3dadd(89.732, 164.813, 0.613, 1.888)
pt3dadd(89.727, 164.915, 0.586, 1.922)
pt3dadd(89.721, 165.018, 0.559, 1.954)
pt3dadd(89.713, 165.12, 0.528, 1.986)
pt3dadd(89.682, 165.216, 0.467, 2.008)
pt3dadd(89.65, 165.311, 0.407, 2.028)
pt3dadd(89.619, 165.407, 0.346, 2.05)
pt3dadd(89.587, 165.503, 0.286, 2.07)
pt3dadd(89.565, 165.487, 0.26, 2.07)
pt3dadd(89.543, 165.583, 0.203, 2.08)
pt3dadd(89.537, 165.682, 0.15, 2.066)
pt3dadd(89.531, 165.78, 0.097, 2.052)
pt3dadd(89.525, 165.878, 0.044, 2.04)
pt3dadd(89.52, 165.976, -0.009, 2.026)
pt3dadd(89.514, 166.074, -0.061, 2.012)
pt3dadd(89.499, 166.153, -0.143, 1.98)
pt3dadd(89.481, 166.225, -0.236, 1.936)
pt3dadd(89.463, 166.297, -0.33, 1.894)
pt3dadd(89.445, 166.368, -0.423, 1.852)
pt3dadd(89.427, 166.44, -0.517, 1.81)
pt3dadd(89.367, 166.514, -0.599, 1.778)
pt3dadd(89.306, 166.589, -0.681, 1.748)
pt3dadd(89.244, 166.663, -0.763, 1.718)
pt3dadd(89.183, 166.738, -0.846, 1.686)
pt3dadd(89.103, 166.816, -0.909, 1.672)
pt3dadd(89.021, 166.895, -0.968, 1.66)
pt3dadd(88.939, 166.974, -1.028, 1.648)
pt3dadd(88.856, 167.052, -1.088, 1.636)
pt3dadd(88.794, 167.137, -1.155, 1.646)
pt3dadd(88.739, 167.226, -1.216, 1.652)
pt3dadd(88.677, 167.32, -1.264, 1.638)
pt3dadd(88.59, 167.377, -1.329, 1.638)
pt3dadd(88.475, 167.394, -1.412, 1.652)
pt3dadd(88.366, 167.404, -1.502, 1.678)
pt3dadd(88.262, 167.406, -1.598, 1.714)
pt3dadd(88.158, 167.434, -1.68, 1.782)
pt3dadd(88.056, 167.49, -1.75, 1.88)
pt3dadd(87.957, 167.557, -1.807, 1.996)
pt3dadd(87.862, 167.627, -1.864, 2.08)
pt3dadd(87.769, 167.696, -1.927, 2.122)
pt3dadd(87.665, 167.756, -1.989, 2.106)
pt3dadd(87.557, 167.81, -2.051, 2.064)
pt3dadd(87.535, 167.795, -2.077, 2.064)
pt3dadd(87.508, 167.862, -2.169, 1.984)
pt3dadd(87.491, 167.93, -2.265, 1.898)
pt3dadd(87.435, 167.996, -2.355, 1.8)
pt3dadd(87.368, 168.064, -2.441, 1.704)
pt3dadd(87.267, 168.126, -2.504, 1.662)
pt3dadd(87.198, 168.178, -2.6, 1.682)
pt3dadd(87.129, 168.23, -2.694, 1.714)
pt3dadd(87.028, 168.302, -2.737, 1.766)
pt3dadd(86.944, 168.379, -2.781, 1.808)
pt3dadd(86.922, 168.362, -2.807, 1.808)
pt3dadd(86.9, 168.347, -2.832, 1.808)
pt3dadd(86.889, 168.445, -2.886, 1.808)
pt3dadd(86.877, 168.544, -2.94, 1.808)
pt3dadd(86.832, 168.634, -3.006, 1.784)
pt3dadd(86.81, 168.618, -3.031, 1.784)
pt3dadd(86.76, 168.707, -3.098, 1.758)
pt3dadd(86.713, 168.786, -3.181, 1.74)
pt3dadd(86.667, 168.865, -3.264, 1.722)
pt3dadd(86.621, 168.943, -3.347, 1.704)
pt3dadd(86.574, 169.022, -3.429, 1.688)
pt3dadd(86.546, 169.116, -3.492, 1.676)
pt3dadd(86.524, 169.214, -3.549, 1.666)
pt3dadd(86.502, 169.312, -3.605, 1.656)
pt3dadd(86.48, 169.41, -3.661, 1.646)
pt3dadd(86.459, 169.508, -3.717, 1.636)
pt3dadd(86.437, 169.492, -3.742, 1.636)
pt3dadd(86.397, 169.579, -3.813, 1.624)
pt3dadd(86.348, 169.662, -3.89, 1.612)
pt3dadd(86.299, 169.745, -3.968, 1.6)
pt3dadd(86.25, 169.828, -4.046, 1.59)
pt3dadd(86.209, 169.914, -4.117, 1.576)
pt3dadd(86.18, 170.009, -4.18, 1.56)
pt3dadd(86.151, 170.105, -4.242, 1.544)
pt3dadd(86.123, 170.2, -4.305, 1.528)
pt3dadd(86.094, 170.294, -4.367, 1.512)
pt3dadd(86.054, 170.353, -4.462, 1.506)
pt3dadd(86.004, 170.41, -4.558, 1.522)
pt3dadd(85.945, 170.496, -4.626, 1.562)
pt3dadd(85.87, 170.548, -4.713, 1.618)
pt3dadd(85.782, 170.568, -4.815, 1.684)
pt3dadd(85.68, 170.573, -4.911, 1.73)
pt3dadd(85.57, 170.569, -5.005, 1.766)
pt3dadd(85.468, 170.588, -5.095, 1.776)
pt3dadd(85.371, 170.629, -5.183, 1.762)
pt3dadd(85.349, 170.614, -5.208, 1.762)
pt3dadd(85.272, 170.644, -5.312, 1.74)
}
}
proc shape3d_62() {
apic[20] { pt3dadd(85.2, 170.671, -5.421, 1.718)
pt3dadd(85.13, 170.699, -5.53, 1.694)
pt3dadd(85.059, 170.726, -5.639, 1.672)
pt3dadd(84.999, 170.754, -5.751, 1.646)
pt3dadd(84.958, 170.783, -5.868, 1.614)
pt3dadd(84.916, 170.812, -5.984, 1.582)
pt3dadd(84.876, 170.84, -6.101, 1.55)
pt3dadd(84.835, 170.872, -6.218, 1.518)
pt3dadd(84.808, 170.892, -6.337, 1.43)
pt3dadd(84.789, 170.893, -6.461, 1.384)
pt3dadd(84.767, 170.879, -6.587, 1.404)
pt3dadd(84.732, 170.864, -6.711, 1.43)
pt3dadd(84.672, 170.858, -6.83, 1.398)
pt3dadd(84.604, 170.88, -6.942, 1.36)
pt3dadd(84.54, 170.929, -7.042, 1.408)
pt3dadd(84.432, 170.969, -7.112, 1.574)
pt3dadd(84.331, 171.04, -7.148, 1.81)
pt3dadd(84.265, 171.133, -7.173, 2.026)
pt3dadd(84.192, 171.216, -7.227, 2.224)
pt3dadd(84.109, 171.274, -7.311, 2.342)
pt3dadd(84.006, 171.298, -7.402, 2.382)
pt3dadd(83.903, 171.294, -7.5, 2.41)
}
apic[21] {pt3dclear()
pt3dadd(83.903, 171.294, -7.5, 2.41)
pt3dadd(83.892, 171.332, -7.547, 2.41)
pt3dadd(83.874, 171.398, -7.629, 2.41)
pt3dadd(83.841, 171.494, -7.671, 2.384)
pt3dadd(83.801, 171.605, -7.694, 2.346)
pt3dadd(83.76, 171.714, -7.717, 2.316)
pt3dadd(83.721, 171.824, -7.74, 2.29)
pt3dadd(83.668, 171.908, -7.792, 2.29)
pt3dadd(83.613, 171.986, -7.853, 2.296)
pt3dadd(83.557, 172.064, -7.913, 2.302)
pt3dadd(83.501, 172.142, -7.974, 2.308)
pt3dadd(83.399, 172.174, -7.998, 2.352)
pt3dadd(83.293, 172.223, -8.018, 2.37)
pt3dadd(83.189, 172.276, -8.04, 2.384)
pt3dadd(83.171, 172.336, -8.113, 2.344)
pt3dadd(83.175, 172.397, -8.199, 2.29)
pt3dadd(83.179, 172.458, -8.285, 2.238)
pt3dadd(83.195, 172.571, -8.31, 2.148)
pt3dadd(83.211, 172.687, -8.332, 2.058)
pt3dadd(83.225, 172.784, -8.379, 1.974)
pt3dadd(83.235, 172.858, -8.457, 1.896)
pt3dadd(83.245, 172.933, -8.536, 1.818)
pt3dadd(83.256, 173.006, -8.614, 1.742)
pt3dadd(83.207, 173.098, -8.662, 1.618)
pt3dadd(83.148, 173.188, -8.7, 1.492)
pt3dadd(83.065, 173.274, -8.7, 1.386)
pt3dadd(82.983, 173.363, -8.7, 1.282)
pt3dadd(82.984, 173.483, -8.7, 1.216)
pt3dadd(82.986, 173.602, -8.7, 1.15)
pt3dadd(82.988, 173.722, -8.701, 1.096)
pt3dadd(82.989, 173.842, -8.706, 1.066)
pt3dadd(82.991, 173.963, -8.71, 1.038)
pt3dadd(82.97, 174.07, -8.743, 1.042)
pt3dadd(82.941, 174.174, -8.786, 1.06)
pt3dadd(82.912, 174.277, -8.83, 1.078)
pt3dadd(82.882, 174.382, -8.874, 1.094)
pt3dadd(82.869, 174.481, -8.925, 1.118)
pt3dadd(82.88, 174.577, -8.986, 1.148)
pt3dadd(82.891, 174.671, -9.047, 1.178)
pt3dadd(82.901, 174.766, -9.108, 1.21)
pt3dadd(82.912, 174.859, -9.169, 1.24)
pt3dadd(82.915, 174.954, -9.232, 1.272)
pt3dadd(82.91, 175.045, -9.295, 1.306)
pt3dadd(82.905, 175.138, -9.359, 1.338)
pt3dadd(82.9, 175.231, -9.422, 1.372)
pt3dadd(82.895, 175.322, -9.486, 1.404)
pt3dadd(82.882, 175.434, -9.52, 1.406)
pt3dadd(82.886, 175.547, -9.553, 1.38)
pt3dadd(82.901, 175.658, -9.586, 1.338)
pt3dadd(82.915, 175.758, -9.633, 1.286)
pt3dadd(82.924, 175.818, -9.719, 1.206)
pt3dadd(82.932, 175.876, -9.806, 1.128)
pt3dadd(82.935, 175.896, -9.905, 1.11)
pt3dadd(82.938, 175.916, -10.003, 1.09)
pt3dadd(82.946, 175.973, -10.082, 1.09)
pt3dadd(82.959, 176.07, -10.139, 1.114)
pt3dadd(82.971, 176.159, -10.203, 1.14)
pt3dadd(82.978, 176.226, -10.286, 1.176)
pt3dadd(82.984, 176.292, -10.369, 1.212)
pt3dadd(82.991, 176.359, -10.452, 1.248)
pt3dadd(82.998, 176.426, -10.535, 1.282)
pt3dadd(82.987, 176.472, -10.621, 1.34)
pt3dadd(82.944, 176.478, -10.714, 1.436)
pt3dadd(82.926, 176.518, -10.806, 1.486)
pt3dadd(82.913, 176.566, -10.897, 1.522)
pt3dadd(82.92, 176.653, -10.959, 1.516)
pt3dadd(82.934, 176.755, -11.01, 1.492)
pt3dadd(82.949, 176.86, -11.057, 1.452)
pt3dadd(82.964, 176.965, -11.102, 1.396)
pt3dadd(82.978, 177.066, -11.154, 1.342)
pt3dadd(82.99, 177.154, -11.222, 1.294)
pt3dadd(83, 177.241, -11.288, 1.254)
pt3dadd(82.996, 177.34, -11.346, 1.25)
pt3dadd(82.992, 177.437, -11.405, 1.244)
pt3dadd(82.988, 177.534, -11.463, 1.238)
pt3dadd(82.984, 177.631, -11.521, 1.232)
pt3dadd(82.972, 177.713, -11.592, 1.23)
pt3dadd(82.954, 177.782, -11.672, 1.23)
pt3dadd(82.936, 177.852, -11.753, 1.23)
pt3dadd(82.919, 177.92, -11.833, 1.23)
pt3dadd(82.905, 177.995, -11.909, 1.23)
pt3dadd(82.911, 178.094, -11.964, 1.224)
pt3dadd(82.916, 178.195, -12.02, 1.22)
pt3dadd(82.922, 178.295, -12.075, 1.214)
pt3dadd(82.928, 178.394, -12.131, 1.208)
pt3dadd(82.937, 178.496, -12.182, 1.202)
pt3dadd(82.952, 178.603, -12.227, 1.192)
pt3dadd(82.967, 178.709, -12.272, 1.182)
pt3dadd(82.981, 178.814, -12.316, 1.174)
pt3dadd(82.996, 178.921, -12.361, 1.164)
pt3dadd(83.011, 179.023, -12.41, 1.156)
pt3dadd(83.021, 179.095, -12.49, 1.166)
pt3dadd(83.031, 179.166, -12.57, 1.176)
pt3dadd(83.041, 179.238, -12.65, 1.186)
pt3dadd(83.051, 179.309, -12.73, 1.196)
pt3dadd(83.061, 179.382, -12.808, 1.218)
pt3dadd(83.074, 179.476, -12.87, 1.324)
pt3dadd(83.09, 179.585, -12.905, 1.42)
pt3dadd(83.106, 179.7, -12.927, 1.51)
pt3dadd(83.121, 179.806, -12.961, 1.598)
pt3dadd(83.129, 179.866, -13.047, 1.678)
pt3dadd(83.138, 179.926, -13.134, 1.758)
pt3dadd(83.14, 179.946, -13.232, 1.806)
pt3dadd(83.143, 179.966, -13.331, 1.854)
pt3dadd(83.147, 179.994, -13.427, 1.896)
pt3dadd(83.153, 180.034, -13.522, 1.928)
pt3dadd(83.157, 180.071, -13.616, 1.96)
pt3dadd(83.129, 180.077, -13.713, 1.972)
pt3dadd(83.102, 180.083, -13.811, 1.986)
pt3dadd(83.074, 180.09, -13.908, 1.998)
pt3dadd(83.047, 180.096, -14.005, 2.012)
pt3dadd(83.02, 180.102, -14.102, 2.026)
pt3dadd(82.979, 180.115, -14.194, 2.038)
pt3dadd(82.912, 180.143, -14.274, 2.048)
pt3dadd(82.846, 180.169, -14.354, 2.06)
pt3dadd(82.779, 180.197, -14.434, 2.07)
pt3dadd(82.712, 180.223, -14.514, 2.082)
pt3dadd(82.687, 180.254, -14.606, 2.074)
pt3dadd(82.676, 180.287, -14.701, 2.058)
pt3dadd(82.665, 180.319, -14.797, 2.044)
pt3dadd(82.654, 180.353, -14.893, 2.03)
pt3dadd(82.643, 180.384, -14.989, 2.016)
pt3dadd(82.623, 180.426, -15.081, 1.992)
pt3dadd(82.594, 180.474, -15.169, 1.958)
pt3dadd(82.565, 180.522, -15.257, 1.924)
pt3dadd(82.537, 180.571, -15.345, 1.892)
pt3dadd(82.508, 180.62, -15.434, 1.858)
pt3dadd(82.516, 180.673, -15.523, 1.82)
pt3dadd(82.523, 180.726, -15.613, 1.782)
pt3dadd(82.53, 180.779, -15.702, 1.742)
pt3dadd(82.538, 180.833, -15.791, 1.704)
pt3dadd(82.545, 180.886, -15.881, 1.666)
pt3dadd(82.555, 180.955, -15.962, 1.646)
pt3dadd(82.566, 181.03, -16.04, 1.63)
pt3dadd(82.576, 181.104, -16.118, 1.616)
pt3dadd(82.587, 181.178, -16.196, 1.6)
pt3dadd(82.597, 181.252, -16.274, 1.584)
pt3dadd(82.607, 181.324, -16.354, 1.578)
pt3dadd(82.617, 181.394, -16.434, 1.572)
pt3dadd(82.627, 181.466, -16.514, 1.568)
pt3dadd(82.637, 181.537, -16.594, 1.562)
pt3dadd(82.647, 181.609, -16.674, 1.558)
pt3dadd(82.657, 181.678, -16.755, 1.56)
pt3dadd(82.666, 181.746, -16.837, 1.566)
pt3dadd(82.676, 181.814, -16.919, 1.57)
pt3dadd(82.686, 181.883, -17, 1.576)
pt3dadd(82.695, 181.951, -17.082, 1.58)
pt3dadd(82.702, 182, -17.173, 1.578)
pt3dadd(82.708, 182.045, -17.265, 1.574)
pt3dadd(82.715, 182.089, -17.358, 1.57)
pt3dadd(82.721, 182.132, -17.451, 1.564)
pt3dadd(82.727, 182.178, -17.544, 1.56)
pt3dadd(82.731, 182.204, -17.64, 1.542)
pt3dadd(82.731, 182.204, -17.74, 1.504)
pt3dadd(82.731, 182.204, -17.84, 1.472)
pt3dadd(82.731, 182.204, -17.94, 1.446)
pt3dadd(82.731, 182.204, -18.04, 1.422)
pt3dadd(82.731, 182.204, -18.14, 1.41)
pt3dadd(82.731, 182.204, -18.24, 1.418)
pt3dadd(82.731, 182.204, -18.34, 1.426)
pt3dadd(82.734, 182.227, -18.434, 1.464)
pt3dadd(82.743, 182.288, -18.521, 1.544)
pt3dadd(82.752, 182.358, -18.596, 1.624)
pt3dadd(82.768, 182.471, -18.629, 1.71)
pt3dadd(82.784, 182.584, -18.662, 1.796)
pt3dadd(82.8, 182.698, -18.69, 1.848)
pt3dadd(82.815, 182.801, -18.73, 1.872)
pt3dadd(82.824, 182.868, -18.813, 1.826)
pt3dadd(82.836, 182.933, -18.895, 1.774)
pt3dadd(82.886, 182.977, -18.979, 1.666)
pt3dadd(82.937, 183.011, -19.063, 1.562)
pt3dadd(82.994, 183.01, -19.151, 1.468)
pt3dadd(83.047, 183.008, -19.24, 1.378)
pt3dadd(83.066, 183.023, -19.338, 1.336)
pt3dadd(83.085, 183.037, -19.436, 1.294)
pt3dadd(83.094, 183.061, -19.534, 1.292)
pt3dadd(83.097, 183.088, -19.631, 1.31)
pt3dadd(83.101, 183.115, -19.729, 1.328)
}
}
proc shape3d_63() {
apic[21] { pt3dadd(83.105, 183.143, -19.826, 1.344)
pt3dadd(83.109, 183.17, -19.923, 1.362)
pt3dadd(83.113, 183.197, -20.021, 1.378)
pt3dadd(83.122, 183.263, -20.103, 1.434)
pt3dadd(83.132, 183.334, -20.183, 1.494)
pt3dadd(83.142, 183.406, -20.263, 1.554)
pt3dadd(83.152, 183.476, -20.343, 1.614)
pt3dadd(83.162, 183.548, -20.423, 1.674)
pt3dadd(83.168, 183.61, -20.508, 1.744)
pt3dadd(83.174, 183.671, -20.594, 1.812)
pt3dadd(83.18, 183.731, -20.681, 1.882)
pt3dadd(83.186, 183.792, -20.767, 1.952)
pt3dadd(83.192, 183.853, -20.853, 2.022)
pt3dadd(83.184, 183.946, -20.912, 2.076)
pt3dadd(83.175, 184.046, -20.967, 2.126)
pt3dadd(83.165, 184.147, -21.021, 2.176)
pt3dadd(83.155, 184.247, -21.075, 2.226)
pt3dadd(83.153, 184.346, -21.131, 2.262)
pt3dadd(83.167, 184.444, -21.188, 2.266)
pt3dadd(83.18, 184.541, -21.246, 2.272)
pt3dadd(83.194, 184.638, -21.303, 2.276)
pt3dadd(83.208, 184.735, -21.361, 2.282)
pt3dadd(83.22, 184.826, -21.424, 2.278)
pt3dadd(83.232, 184.907, -21.498, 2.258)
pt3dadd(83.243, 184.987, -21.571, 2.238)
pt3dadd(83.254, 185.066, -21.646, 2.218)
pt3dadd(83.265, 185.147, -21.72, 2.198)
pt3dadd(83.278, 185.237, -21.783, 2.172)
pt3dadd(83.293, 185.342, -21.828, 2.138)
pt3dadd(83.308, 185.448, -21.872, 2.106)
pt3dadd(83.323, 185.555, -21.917, 2.072)
pt3dadd(83.338, 185.66, -21.962, 2.038)
pt3dadd(83.353, 185.768, -22, 1.996)
pt3dadd(83.37, 185.887, -22, 1.908)
pt3dadd(83.386, 186.006, -22.006, 1.824)
pt3dadd(83.401, 186.112, -22.051, 1.756)
pt3dadd(83.416, 186.218, -22.096, 1.688)
pt3dadd(83.426, 186.288, -22.175, 1.65)
pt3dadd(83.435, 186.356, -22.257, 1.616)
pt3dadd(83.446, 186.433, -22.333, 1.598)
pt3dadd(83.458, 186.514, -22.406, 1.586)
pt3dadd(83.464, 186.558, -22.495, 1.576)
pt3dadd(83.467, 186.578, -22.593, 1.566)
pt3dadd(83.47, 186.6, -22.691, 1.556)
pt3dadd(83.479, 186.665, -22.775, 1.546)
pt3dadd(83.488, 186.731, -22.859, 1.536)
pt3dadd(83.497, 186.796, -22.942, 1.526)
pt3dadd(83.506, 186.86, -23.026, 1.516)
pt3dadd(83.516, 186.926, -23.109, 1.506)
pt3dadd(83.526, 187, -23.187, 1.492)
pt3dadd(83.536, 187.074, -23.265, 1.476)
pt3dadd(83.547, 187.148, -23.344, 1.462)
pt3dadd(83.557, 187.223, -23.422, 1.446)
pt3dadd(83.568, 187.297, -23.5, 1.432)
pt3dadd(83.581, 187.39, -23.562, 1.426)
pt3dadd(83.594, 187.482, -23.625, 1.422)
pt3dadd(83.607, 187.576, -23.687, 1.416)
pt3dadd(83.62, 187.668, -23.75, 1.412)
pt3dadd(83.633, 187.759, -23.813, 1.406)
pt3dadd(83.634, 187.766, -23.913, 1.406)
pt3dadd(83.635, 187.775, -24.012, 1.408)
pt3dadd(83.638, 187.795, -24.111, 1.418)
pt3dadd(83.64, 187.816, -24.209, 1.426)
pt3dadd(83.651, 187.886, -24.265, 1.426)
pt3dadd(83.667, 188.004, -24.282, 1.416)
pt3dadd(83.683, 188.12, -24.299, 1.406)
pt3dadd(83.7, 188.239, -24.3, 1.414)
pt3dadd(83.717, 188.358, -24.3, 1.422)
pt3dadd(83.734, 188.477, -24.3, 1.43)
pt3dadd(83.749, 188.584, -24.342, 1.484)
pt3dadd(83.764, 188.692, -24.386, 1.54)
pt3dadd(83.779, 188.8, -24.428, 1.59)
pt3dadd(83.794, 188.909, -24.467, 1.636)
pt3dadd(83.809, 189.017, -24.507, 1.684)
pt3dadd(83.825, 189.126, -24.546, 1.732)
pt3dadd(83.84, 189.235, -24.586, 1.778)
pt3dadd(83.845, 189.342, -24.629, 1.822)
pt3dadd(83.833, 189.446, -24.679, 1.862)
pt3dadd(83.82, 189.55, -24.728, 1.9)
pt3dadd(83.808, 189.653, -24.778, 1.94)
pt3dadd(83.796, 189.756, -24.827, 1.978)
pt3dadd(83.794, 189.869, -24.862, 1.984)
pt3dadd(83.793, 189.983, -24.896, 1.984)
pt3dadd(83.793, 190.094, -24.929, 1.984)
pt3dadd(83.793, 190.207, -24.962, 1.984)
pt3dadd(83.792, 190.321, -24.996, 1.984)
pt3dadd(83.802, 190.44, -25, 1.958)
pt3dadd(83.813, 190.56, -25, 1.928)
pt3dadd(83.823, 190.679, -25, 1.898)
pt3dadd(83.834, 190.798, -25, 1.868)
pt3dadd(83.845, 190.918, -25, 1.838)
pt3dadd(83.856, 191.038, -25, 1.808)
pt3dadd(83.862, 191.155, -25.008, 1.774)
pt3dadd(83.851, 191.263, -25.049, 1.724)
pt3dadd(83.841, 191.372, -25.09, 1.676)
pt3dadd(83.83, 191.482, -25.13, 1.626)
pt3dadd(83.819, 191.592, -25.171, 1.578)
pt3dadd(83.823, 191.701, -25.208, 1.534)
pt3dadd(83.839, 191.813, -25.243, 1.492)
pt3dadd(83.855, 191.924, -25.278, 1.45)
pt3dadd(83.87, 192.036, -25.313, 1.408)
pt3dadd(83.886, 192.146, -25.347, 1.368)
pt3dadd(83.901, 192.254, -25.386, 1.326)
pt3dadd(83.913, 192.338, -25.458, 1.292)
pt3dadd(83.924, 192.421, -25.53, 1.256)
pt3dadd(83.936, 192.503, -25.602, 1.22)
pt3dadd(83.948, 192.587, -25.673, 1.184)
pt3dadd(83.96, 192.671, -25.743, 1.15)
pt3dadd(83.976, 192.764, -25.804, 1.12)
pt3dadd(83.992, 192.858, -25.865, 1.088)
pt3dadd(84.008, 192.953, -25.927, 1.058)
pt3dadd(84.023, 193.046, -25.988, 1.028)
pt3dadd(84.047, 193.142, -26.042, 1)
pt3dadd(84.093, 193.244, -26.075, 0.984)
pt3dadd(84.139, 193.349, -26.108, 0.968)
pt3dadd(84.186, 193.451, -26.142, 0.952)
pt3dadd(84.232, 193.555, -26.175, 0.936)
pt3dadd(84.269, 193.65, -26.225, 0.93)
pt3dadd(84.299, 193.74, -26.286, 0.93)
pt3dadd(84.33, 193.831, -26.347, 0.93)
pt3dadd(84.36, 193.921, -26.408, 0.93)
pt3dadd(84.39, 194.011, -26.468, 0.93)
pt3dadd(84.389, 194.124, -26.501, 0.934)
pt3dadd(84.389, 194.238, -26.534, 0.94)
pt3dadd(84.389, 194.351, -26.568, 0.944)
pt3dadd(84.388, 194.464, -26.601, 0.95)
pt3dadd(84.387, 194.576, -26.635, 0.954)
pt3dadd(84.362, 194.666, -26.698, 0.966)
pt3dadd(84.336, 194.755, -26.761, 0.978)
pt3dadd(84.311, 194.845, -26.824, 0.99)
pt3dadd(84.285, 194.935, -26.888, 1.002)
pt3dadd(84.286, 195.04, -26.934, 1)
pt3dadd(84.293, 195.148, -26.976, 0.996)
pt3dadd(84.301, 195.257, -27.017, 0.99)
pt3dadd(84.308, 195.365, -27.059, 0.986)
pt3dadd(84.315, 195.475, -27.101, 0.98)
pt3dadd(84.314, 195.576, -27.154, 0.97)
pt3dadd(84.311, 195.677, -27.209, 0.96)
pt3dadd(84.307, 195.775, -27.265, 0.95)
pt3dadd(84.303, 195.875, -27.32, 0.938)
pt3dadd(84.298, 195.976, -27.375, 0.924)
pt3dadd(84.285, 196.078, -27.427, 0.896)
pt3dadd(84.273, 196.178, -27.48, 0.868)
pt3dadd(84.26, 196.28, -27.532, 0.84)
pt3dadd(84.247, 196.381, -27.584, 0.812)
pt3dadd(84.253, 196.487, -27.631, 0.78)
pt3dadd(84.269, 196.6, -27.66, 0.788)
pt3dadd(84.285, 196.715, -27.687, 0.798)
pt3dadd(84.288, 196.826, -27.721, 0.824)
pt3dadd(84.279, 196.937, -27.761, 0.86)
pt3dadd(84.27, 197.045, -27.801, 0.898)
pt3dadd(84.253, 197.141, -27.848, 0.936)
pt3dadd(84.196, 197.17, -27.933, 0.974)
pt3dadd(84.149, 197.214, -28.009, 1.012)
pt3dadd(84.144, 197.321, -28.053, 1.05)
pt3dadd(84.144, 197.431, -28.09, 1.082)
pt3dadd(84.16, 197.55, -28.094, 1.09)
pt3dadd(84.177, 197.669, -28.097, 1.098)
pt3dadd(84.199, 197.785, -28.109, 1.108)
pt3dadd(84.233, 197.894, -28.14, 1.12)
pt3dadd(84.267, 198.004, -28.171, 1.13)
pt3dadd(84.301, 198.114, -28.197, 1.13)
pt3dadd(84.335, 198.224, -28.223, 1.13)
pt3dadd(84.369, 198.336, -28.249, 1.13)
pt3dadd(84.403, 198.445, -28.275, 1.13)
pt3dadd(84.436, 198.557, -28.302, 1.13)
pt3dadd(84.436, 198.664, -28.345, 1.13)
pt3dadd(84.437, 198.773, -28.388, 1.13)
pt3dadd(84.437, 198.881, -28.431, 1.13)
pt3dadd(84.411, 198.977, -28.48, 1.13)
pt3dadd(84.388, 199.087, -28.5, 1.102)
pt3dadd(84.39, 199.207, -28.5, 1.074)
pt3dadd(84.384, 199.326, -28.505, 1.066)
pt3dadd(84.339, 199.416, -28.549, 1.078)
pt3dadd(84.306, 199.433, -28.644, 1.022)
pt3dadd(84.273, 199.438, -28.74, 0.93)
pt3dadd(84.21, 199.446, -28.823, 0.828)
pt3dadd(84.136, 199.457, -28.901, 0.732)
pt3dadd(84.075, 199.465, -28.986, 0.684)
pt3dadd(84.015, 199.511, -29.063, 0.714)
pt3dadd(83.982, 199.607, -29.092, 0.748)
pt3dadd(83.965, 199.726, -29.097, 0.782)
pt3dadd(83.932, 199.83, -29.117, 0.814)
pt3dadd(83.868, 199.909, -29.17, 0.846)
pt3dadd(83.803, 199.988, -29.222, 0.878)
pt3dadd(83.742, 199.997, -29.308, 0.868)
pt3dadd(83.682, 200.005, -29.395, 0.856)
pt3dadd(83.627, 200.04, -29.477, 0.834)
pt3dadd(83.573, 200.083, -29.559, 0.81)
pt3dadd(83.518, 200.125, -29.641, 0.786)
pt3dadd(83.431, 200.156, -29.7, 0.754)
pt3dadd(83.33, 200.184, -29.749, 0.716)
pt3dadd(83.238, 200.234, -29.794, 0.694)
pt3dadd(83.15, 200.299, -29.837, 0.68)
pt3dadd(83.118, 200.352, -29.917, 0.678)
pt3dadd(83.098, 200.402, -30.007, 0.678)
pt3dadd(83.059, 200.473, -30.08, 0.69)
pt3dadd(83.016, 200.545, -30.15, 0.704)
pt3dadd(82.967, 200.588, -30.233, 0.722)
pt3dadd(82.918, 200.633, -30.317, 0.738)
}
}
proc shape3d_64() {
apic[21] { pt3dadd(82.868, 200.677, -30.401, 0.756)
pt3dadd(82.819, 200.72, -30.484, 0.772)
pt3dadd(82.79, 200.79, -30.56, 0.81)
pt3dadd(82.77, 200.869, -30.632, 0.856)
pt3dadd(82.751, 200.951, -30.704, 0.904)
pt3dadd(82.731, 201.031, -30.776, 0.95)
pt3dadd(82.712, 201.119, -30.842, 1.002)
pt3dadd(82.695, 201.22, -30.895, 1.066)
pt3dadd(82.679, 201.32, -30.948, 1.128)
pt3dadd(82.662, 201.42, -31.001, 1.192)
pt3dadd(82.646, 201.521, -31.054, 1.254)
pt3dadd(82.639, 201.634, -31.086, 1.32)
pt3dadd(82.634, 201.748, -31.118, 1.386)
pt3dadd(82.628, 201.862, -31.15, 1.454)
pt3dadd(82.621, 201.976, -31.182, 1.52)
pt3dadd(82.616, 202.082, -31.218, 1.604)
pt3dadd(82.623, 202.133, -31.304, 1.858)
pt3dadd(82.637, 202.23, -31.361, 1.95)
pt3dadd(82.65, 202.33, -31.415, 2.038)
pt3dadd(82.66, 202.442, -31.449, 2.084)
pt3dadd(82.67, 202.554, -31.484, 2.128)
pt3dadd(82.622, 202.656, -31.5, 2.172)
pt3dadd(82.518, 202.715, -31.5, 2.106)
pt3dadd(82.415, 202.775, -31.5, 2.02)
pt3dadd(82.353, 202.876, -31.503, 2.016)
pt3dadd(82.313, 202.948, -31.558, 2.06)
pt3dadd(82.278, 202.987, -31.648, 2.112)
pt3dadd(82.266, 203.038, -31.736, 2.16)
pt3dadd(82.274, 203.098, -31.822, 2.206)
pt3dadd(82.282, 203.154, -31.91, 2.242)
pt3dadd(82.288, 203.198, -32.002, 2.264)
pt3dadd(82.291, 203.246, -32.093, 2.284)
pt3dadd(82.223, 203.31, -32.156, 2.254)
pt3dadd(82.143, 203.37, -32.2, 2.226)
pt3dadd(82.037, 203.425, -32.2, 2.194)
pt3dadd(81.93, 203.48, -32.2, 2.162)
pt3dadd(81.837, 203.557, -32.2, 2.16)
pt3dadd(81.764, 203.648, -32.209, 2.192)
pt3dadd(81.71, 203.753, -32.226, 2.256)
pt3dadd(81.684, 203.863, -32.251, 2.318)
pt3dadd(81.681, 203.977, -32.282, 2.376)
pt3dadd(81.687, 204.091, -32.312, 2.42)
pt3dadd(81.703, 204.205, -32.339, 2.44)
pt3dadd(81.719, 204.319, -32.367, 2.46)
}
apic[22] {pt3dclear()
pt3dadd(81.719, 204.319, -32.367, 2.46)
pt3dadd(81.729, 204.396, -32.375, 2.43)
pt3dadd(81.746, 204.515, -32.387, 2.384)
pt3dadd(81.763, 204.632, -32.399, 2.338)
pt3dadd(81.779, 204.751, -32.4, 2.166)
pt3dadd(81.796, 204.87, -32.4, 2.096)
pt3dadd(81.813, 204.989, -32.4, 2.028)
pt3dadd(81.83, 205.108, -32.4, 1.962)
pt3dadd(81.84, 205.217, -32.44, 1.934)
pt3dadd(81.851, 205.325, -32.481, 1.908)
pt3dadd(81.861, 205.433, -32.524, 1.882)
pt3dadd(81.817, 205.481, -32.607, 1.856)
pt3dadd(81.781, 205.541, -32.683, 1.832)
pt3dadd(81.79, 205.654, -32.715, 1.818)
pt3dadd(81.799, 205.768, -32.748, 1.804)
pt3dadd(81.808, 205.88, -32.78, 1.792)
pt3dadd(81.804, 205.996, -32.8, 1.758)
pt3dadd(81.781, 206.113, -32.8, 1.694)
pt3dadd(81.758, 206.23, -32.8, 1.63)
pt3dadd(81.77, 206.35, -32.8, 1.578)
pt3dadd(81.783, 206.468, -32.8, 1.526)
pt3dadd(81.789, 206.588, -32.803, 1.472)
pt3dadd(81.766, 206.702, -32.825, 1.412)
pt3dadd(81.744, 206.81, -32.853, 1.352)
pt3dadd(81.73, 206.836, -32.95, 1.308)
pt3dadd(81.716, 206.86, -33.047, 1.264)
pt3dadd(81.721, 206.924, -33.129, 1.2)
pt3dadd(81.73, 206.989, -33.212, 1.146)
pt3dadd(81.737, 207.034, -33.305, 1.126)
pt3dadd(81.743, 207.082, -33.396, 1.108)
pt3dadd(81.745, 207.145, -33.481, 1.156)
pt3dadd(81.748, 207.209, -33.565, 1.204)
pt3dadd(81.65, 207.271, -33.589, 1.304)
pt3dadd(81.551, 207.332, -33.611, 1.406)
pt3dadd(81.49, 207.341, -33.697, 1.52)
pt3dadd(81.43, 207.35, -33.783, 1.634)
pt3dadd(81.42, 207.364, -33.88, 1.814)
pt3dadd(81.414, 207.454, -33.941, 1.892)
pt3dadd(81.407, 207.552, -33.998, 1.956)
pt3dadd(81.33, 207.64, -34.017, 1.996)
pt3dadd(81.251, 207.726, -34.035, 2.038)
pt3dadd(81.147, 207.754, -34.077, 2.146)
pt3dadd(81.031, 207.769, -34.096, 2.2)
pt3dadd(80.912, 207.786, -34.1, 2.192)
pt3dadd(80.794, 207.803, -34.108, 2.128)
pt3dadd(80.689, 207.834, -34.139, 2.086)
pt3dadd(80.67, 207.893, -34.225, 2.098)
pt3dadd(80.655, 207.956, -34.306, 2.11)
pt3dadd(80.669, 208.058, -34.357, 2.122)
pt3dadd(80.683, 208.162, -34.408, 2.134)
pt3dadd(80.681, 208.272, -34.446, 2.1)
pt3dadd(80.677, 208.384, -34.484, 2.064)
pt3dadd(80.661, 208.501, -34.493, 2.004)
pt3dadd(80.643, 208.619, -34.498, 1.938)
pt3dadd(80.613, 208.734, -34.5, 1.878)
pt3dadd(80.575, 208.849, -34.5, 1.822)
pt3dadd(80.532, 208.956, -34.514, 1.782)
pt3dadd(80.475, 209.046, -34.56, 1.776)
pt3dadd(80.419, 209.136, -34.606, 1.768)
pt3dadd(80.363, 209.226, -34.653, 1.762)
pt3dadd(80.31, 209.314, -34.703, 1.758)
pt3dadd(80.272, 209.394, -34.771, 1.758)
pt3dadd(80.235, 209.474, -34.838, 1.758)
pt3dadd(80.197, 209.555, -34.905, 1.758)
pt3dadd(80.158, 209.638, -34.969, 1.754)
pt3dadd(80.107, 209.741, -34.996, 1.714)
pt3dadd(80.095, 209.845, -35.043, 1.654)
pt3dadd(80.089, 209.948, -35.093, 1.59)
pt3dadd(80.101, 210.055, -35.139, 1.534)
pt3dadd(80.116, 210.161, -35.184, 1.476)
pt3dadd(80.132, 210.275, -35.2, 1.436)
pt3dadd(80.149, 210.394, -35.2, 1.402)
pt3dadd(80.166, 210.512, -35.2, 1.368)
pt3dadd(80.182, 210.631, -35.2, 1.34)
pt3dadd(80.199, 210.75, -35.2, 1.316)
pt3dadd(80.216, 210.869, -35.2, 1.29)
pt3dadd(80.215, 210.982, -35.226, 1.274)
pt3dadd(80.204, 211.091, -35.267, 1.262)
pt3dadd(80.193, 211.2, -35.307, 1.252)
pt3dadd(80.182, 211.308, -35.348, 1.242)
pt3dadd(80.172, 211.417, -35.389, 1.23)
pt3dadd(80.168, 211.538, -35.391, 1.23)
pt3dadd(80.165, 211.657, -35.393, 1.23)
pt3dadd(80.161, 211.778, -35.395, 1.23)
pt3dadd(80.158, 211.897, -35.396, 1.23)
pt3dadd(80.154, 212.017, -35.398, 1.23)
pt3dadd(80.151, 212.137, -35.4, 1.23)
pt3dadd(80.148, 212.257, -35.4, 1.248)
pt3dadd(80.145, 212.377, -35.4, 1.264)
pt3dadd(80.142, 212.497, -35.4, 1.28)
pt3dadd(80.139, 212.617, -35.4, 1.296)
pt3dadd(80.136, 212.737, -35.4, 1.314)
pt3dadd(80.133, 212.857, -35.4, 1.33)
pt3dadd(80.148, 212.975, -35.416, 1.354)
pt3dadd(80.165, 213.092, -35.432, 1.38)
pt3dadd(80.181, 213.209, -35.448, 1.404)
pt3dadd(80.197, 213.326, -35.465, 1.428)
pt3dadd(80.214, 213.443, -35.481, 1.454)
pt3dadd(80.23, 213.56, -35.498, 1.478)
pt3dadd(80.208, 213.678, -35.5, 1.506)
pt3dadd(80.18, 213.794, -35.5, 1.534)
pt3dadd(80.151, 213.91, -35.5, 1.562)
pt3dadd(80.122, 214.026, -35.5, 1.59)
pt3dadd(80.094, 214.144, -35.5, 1.618)
pt3dadd(80.086, 214.26, -35.5, 1.632)
pt3dadd(80.103, 214.379, -35.5, 1.616)
pt3dadd(80.12, 214.498, -35.5, 1.582)
pt3dadd(80.136, 214.616, -35.5, 1.55)
pt3dadd(80.138, 214.735, -35.506, 1.51)
pt3dadd(80.122, 214.854, -35.518, 1.462)
pt3dadd(80.106, 214.972, -35.53, 1.414)
pt3dadd(80.09, 215.09, -35.541, 1.368)
pt3dadd(80.059, 215.149, -35.612, 1.318)
pt3dadd(80.024, 215.188, -35.702, 1.268)
pt3dadd(80.013, 215.281, -35.751, 1.218)
pt3dadd(80.009, 215.394, -35.789, 1.17)
pt3dadd(80.016, 215.51, -35.8, 1.142)
pt3dadd(80.029, 215.629, -35.8, 1.126)
pt3dadd(80.041, 215.749, -35.8, 1.108)
pt3dadd(80.014, 215.857, -35.829, 1.082)
pt3dadd(79.978, 215.964, -35.865, 1.056)
pt3dadd(79.943, 216.068, -35.903, 1.06)
pt3dadd(79.908, 216.174, -35.942, 1.066)
pt3dadd(79.872, 216.278, -35.981, 1.072)
pt3dadd(79.837, 216.383, -36.019, 1.078)
pt3dadd(79.809, 216.428, -36.095, 1.1)
pt3dadd(79.785, 216.444, -36.192, 1.132)
pt3dadd(79.743, 216.527, -36.255, 1.204)
pt3dadd(79.697, 216.617, -36.3, 1.278)
pt3dadd(79.644, 216.724, -36.3, 1.36)
pt3dadd(79.587, 216.828, -36.3, 1.44)
pt3dadd(79.504, 216.914, -36.3, 1.512)
pt3dadd(79.422, 217.003, -36.3, 1.582)
pt3dadd(79.368, 217.11, -36.3, 1.57)
pt3dadd(79.315, 217.217, -36.3, 1.558)
pt3dadd(79.297, 217.332, -36.319, 1.528)
pt3dadd(79.287, 217.448, -36.34, 1.492)
pt3dadd(79.276, 217.565, -36.363, 1.458)
pt3dadd(79.266, 217.681, -36.385, 1.422)
pt3dadd(79.256, 217.798, -36.407, 1.388)
pt3dadd(79.218, 217.9, -36.448, 1.342)
pt3dadd(79.173, 217.997, -36.493, 1.294)
pt3dadd(79.128, 218.094, -36.539, 1.246)
pt3dadd(79.084, 218.191, -36.584, 1.196)
pt3dadd(79.056, 218.267, -36.654, 1.166)
pt3dadd(79.038, 218.333, -36.736, 1.142)
pt3dadd(79.021, 218.4, -36.818, 1.12)
pt3dadd(79.003, 218.465, -36.901, 1.098)
pt3dadd(78.99, 218.528, -36.984, 1.074)
pt3dadd(78.999, 218.592, -37.068, 1.07)
pt3dadd(79.009, 218.665, -37.146, 1.106)
pt3dadd(79.008, 218.747, -37.217, 1.148)
pt3dadd(78.981, 218.844, -37.272, 1.206)
pt3dadd(78.955, 218.941, -37.327, 1.264)
pt3dadd(78.912, 219.032, -37.371, 1.342)
pt3dadd(78.826, 219.114, -37.389, 1.472)
}
}
proc shape3d_65() {
apic[22] { pt3dadd(78.765, 219.203, -37.418, 1.588)
pt3dadd(78.751, 219.302, -37.47, 1.68)
pt3dadd(78.75, 219.407, -37.519, 1.748)
pt3dadd(78.765, 219.512, -37.564, 1.78)
pt3dadd(78.78, 219.622, -37.6, 1.81)
pt3dadd(78.797, 219.74, -37.6, 1.818)
pt3dadd(78.813, 219.859, -37.6, 1.826)
pt3dadd(78.83, 219.977, -37.603, 1.834)
pt3dadd(78.846, 220.094, -37.62, 1.834)
pt3dadd(78.863, 220.213, -37.636, 1.834)
pt3dadd(78.879, 220.33, -37.653, 1.834)
pt3dadd(78.896, 220.447, -37.669, 1.834)
pt3dadd(78.912, 220.565, -37.685, 1.834)
pt3dadd(78.929, 220.681, -37.703, 1.832)
pt3dadd(78.945, 220.794, -37.733, 1.824)
pt3dadd(78.961, 220.908, -37.763, 1.814)
pt3dadd(78.976, 221.021, -37.793, 1.806)
pt3dadd(78.993, 221.135, -37.823, 1.796)
pt3dadd(79.008, 221.248, -37.853, 1.788)
pt3dadd(79.025, 221.363, -37.875, 1.772)
pt3dadd(79.041, 221.48, -37.892, 1.752)
pt3dadd(79.057, 221.597, -37.908, 1.73)
pt3dadd(79.074, 221.714, -37.925, 1.71)
pt3dadd(79.091, 221.832, -37.941, 1.69)
pt3dadd(79.107, 221.948, -37.958, 1.668)
pt3dadd(79.123, 222.061, -37.987, 1.648)
pt3dadd(79.138, 222.168, -38.031, 1.63)
pt3dadd(79.153, 222.275, -38.076, 1.61)
pt3dadd(79.167, 222.38, -38.121, 1.592)
pt3dadd(79.182, 222.487, -38.165, 1.572)
pt3dadd(79.198, 222.595, -38.206, 1.554)
pt3dadd(79.214, 222.709, -38.234, 1.546)
pt3dadd(79.23, 222.823, -38.261, 1.538)
pt3dadd(79.246, 222.937, -38.289, 1.528)
pt3dadd(79.262, 223.051, -38.316, 1.52)
pt3dadd(79.278, 223.165, -38.344, 1.51)
pt3dadd(79.294, 223.28, -38.371, 1.498)
pt3dadd(79.31, 223.394, -38.398, 1.482)
pt3dadd(79.327, 223.513, -38.4, 1.466)
pt3dadd(79.344, 223.632, -38.4, 1.448)
pt3dadd(79.36, 223.752, -38.4, 1.432)
pt3dadd(79.377, 223.87, -38.412, 1.422)
pt3dadd(79.393, 223.987, -38.424, 1.414)
pt3dadd(79.408, 224.094, -38.453, 1.416)
pt3dadd(79.419, 224.167, -38.531, 1.45)
pt3dadd(79.43, 224.245, -38.608, 1.494)
pt3dadd(79.443, 224.338, -38.67, 1.586)
pt3dadd(79.456, 224.43, -38.732, 1.68)
pt3dadd(79.47, 224.536, -38.777, 1.72)
pt3dadd(79.485, 224.642, -38.822, 1.758)
pt3dadd(79.5, 224.748, -38.867, 1.798)
pt3dadd(79.515, 224.855, -38.912, 1.836)
pt3dadd(79.53, 224.962, -38.957, 1.874)
pt3dadd(79.546, 225.073, -38.988, 2.004)
pt3dadd(79.563, 225.192, -38.993, 2.008)
pt3dadd(79.579, 225.311, -38.996, 2.008)
pt3dadd(79.593, 225.428, -39.002, 2.008)
pt3dadd(79.564, 225.541, -39.025, 2)
pt3dadd(79.536, 225.655, -39.048, 1.994)
pt3dadd(79.507, 225.769, -39.072, 1.986)
pt3dadd(79.462, 225.856, -39.125, 1.962)
pt3dadd(79.411, 225.931, -39.189, 1.934)
}
apic[23] {pt3dclear()
pt3dadd(79.411, 225.931, -39.189, 1.934)
pt3dadd(79.375, 226.007, -39.197, 1.916)
pt3dadd(79.323, 226.114, -39.208, 1.892)
pt3dadd(79.29, 226.216, -39.248, 1.824)
pt3dadd(79.285, 226.315, -39.29, 1.738)
pt3dadd(79.335, 226.424, -39.295, 1.664)
pt3dadd(79.385, 226.532, -39.3, 1.588)
pt3dadd(79.404, 226.65, -39.285, 1.548)
pt3dadd(79.42, 226.766, -39.268, 1.51)
pt3dadd(79.437, 226.884, -39.252, 1.474)
pt3dadd(79.453, 227.002, -39.235, 1.436)
pt3dadd(79.47, 227.118, -39.219, 1.398)
pt3dadd(79.486, 227.236, -39.202, 1.362)
pt3dadd(79.503, 227.353, -39.195, 1.288)
pt3dadd(79.52, 227.472, -39.189, 1.21)
pt3dadd(79.532, 227.561, -39.124, 1.172)
pt3dadd(79.544, 227.648, -39.056, 1.136)
pt3dadd(79.556, 227.73, -38.983, 1.15)
pt3dadd(79.567, 227.81, -38.91, 1.174)
pt3dadd(79.57, 227.864, -38.823, 1.212)
pt3dadd(79.571, 227.906, -38.729, 1.256)
pt3dadd(79.531, 227.945, -38.649, 1.31)
pt3dadd(79.445, 227.977, -38.586, 1.376)
pt3dadd(79.365, 227.998, -38.514, 1.444)
pt3dadd(79.308, 228.006, -38.427, 1.426)
pt3dadd(79.261, 228.013, -38.335, 1.37)
pt3dadd(79.238, 228.024, -38.238, 1.356)
pt3dadd(79.24, 228.068, -38.146, 1.38)
pt3dadd(79.255, 228.176, -38.108, 1.45)
pt3dadd(79.272, 228.295, -38.1, 1.524)
pt3dadd(79.288, 228.414, -38.1, 1.566)
pt3dadd(79.305, 228.533, -38.1, 1.59)
pt3dadd(79.322, 228.652, -38.1, 1.624)
pt3dadd(79.338, 228.77, -38.1, 1.7)
pt3dadd(79.355, 228.889, -38.1, 1.842)
pt3dadd(79.371, 229.007, -38.106, 1.97)
pt3dadd(79.385, 229.124, -38.122, 2.004)
pt3dadd(79.4, 229.242, -38.139, 2.038)
pt3dadd(79.414, 229.36, -38.156, 2.07)
pt3dadd(79.428, 229.477, -38.173, 2.104)
pt3dadd(79.442, 229.594, -38.189, 2.138)
pt3dadd(79.451, 229.712, -38.2, 2.168)
pt3dadd(79.451, 229.832, -38.2, 2.188)
pt3dadd(79.45, 229.952, -38.2, 2.208)
pt3dadd(79.449, 230.072, -38.2, 2.228)
pt3dadd(79.449, 230.192, -38.2, 2.248)
pt3dadd(79.448, 230.314, -38.2, 2.268)
pt3dadd(79.451, 230.432, -38.2, 2.286)
pt3dadd(79.468, 230.551, -38.2, 2.29)
pt3dadd(79.484, 230.67, -38.2, 2.292)
pt3dadd(79.501, 230.789, -38.2, 2.296)
pt3dadd(79.518, 230.908, -38.2, 2.3)
pt3dadd(79.534, 231.026, -38.2, 2.304)
pt3dadd(79.551, 231.145, -38.2, 2.308)
pt3dadd(79.568, 231.264, -38.2, 2.306)
pt3dadd(79.585, 231.383, -38.2, 2.28)
pt3dadd(79.601, 231.502, -38.2, 2.254)
pt3dadd(79.618, 231.62, -38.2, 2.22)
pt3dadd(79.635, 231.739, -38.2, 2.186)
pt3dadd(79.651, 231.859, -38.2, 2.148)
pt3dadd(79.668, 231.978, -38.2, 2.09)
pt3dadd(79.685, 232.097, -38.2, 2.032)
pt3dadd(79.701, 232.212, -38.209, 1.964)
pt3dadd(79.715, 232.314, -38.26, 1.862)
pt3dadd(79.73, 232.417, -38.311, 1.758)
pt3dadd(79.738, 232.476, -38.397, 1.656)
pt3dadd(79.747, 232.537, -38.483, 1.552)
pt3dadd(79.738, 232.639, -38.529, 1.514)
pt3dadd(79.725, 232.75, -38.564, 1.492)
pt3dadd(79.711, 232.861, -38.6, 1.472)
pt3dadd(79.698, 232.973, -38.636, 1.45)
pt3dadd(79.686, 233.084, -38.67, 1.43)
pt3dadd(79.681, 233.2, -38.697, 1.426)
pt3dadd(79.676, 233.315, -38.723, 1.42)
pt3dadd(79.671, 233.431, -38.75, 1.416)
pt3dadd(79.666, 233.548, -38.776, 1.41)
pt3dadd(79.662, 233.662, -38.804, 1.408)
pt3dadd(79.677, 233.766, -38.852, 1.416)
pt3dadd(79.692, 233.87, -38.899, 1.426)
pt3dadd(79.707, 233.975, -38.946, 1.436)
pt3dadd(79.721, 234.08, -38.993, 1.446)
pt3dadd(79.736, 234.186, -39.041, 1.456)
pt3dadd(79.751, 234.289, -39.09, 1.46)
pt3dadd(79.765, 234.391, -39.14, 1.466)
pt3dadd(79.779, 234.494, -39.19, 1.47)
pt3dadd(79.794, 234.598, -39.24, 1.476)
pt3dadd(79.808, 234.7, -39.29, 1.48)
pt3dadd(79.81, 234.808, -39.333, 1.49)
pt3dadd(79.809, 234.917, -39.375, 1.5)
pt3dadd(79.807, 235.026, -39.416, 1.51)
pt3dadd(79.806, 235.135, -39.458, 1.522)
pt3dadd(79.804, 235.244, -39.499, 1.532)
pt3dadd(79.814, 235.363, -39.515, 1.532)
pt3dadd(79.823, 235.481, -39.53, 1.532)
pt3dadd(79.833, 235.6, -39.545, 1.532)
pt3dadd(79.843, 235.718, -39.56, 1.532)
pt3dadd(79.853, 235.835, -39.576, 1.532)
pt3dadd(79.861, 235.954, -39.589, 1.532)
pt3dadd(79.855, 236.074, -39.591, 1.528)
pt3dadd(79.849, 236.194, -39.593, 1.522)
pt3dadd(79.843, 236.312, -39.595, 1.518)
pt3dadd(79.837, 236.434, -39.597, 1.514)
pt3dadd(79.831, 236.554, -39.599, 1.51)
pt3dadd(79.812, 236.67, -39.6, 1.504)
pt3dadd(79.755, 236.774, -39.6, 1.488)
pt3dadd(79.697, 236.88, -39.6, 1.474)
pt3dadd(79.639, 236.986, -39.6, 1.458)
pt3dadd(79.581, 237.09, -39.6, 1.442)
pt3dadd(79.528, 237.196, -39.608, 1.428)
pt3dadd(79.49, 237.302, -39.641, 1.41)
pt3dadd(79.453, 237.409, -39.674, 1.392)
pt3dadd(79.415, 237.516, -39.707, 1.376)
pt3dadd(79.378, 237.623, -39.74, 1.358)
pt3dadd(79.37, 237.724, -39.792, 1.332)
pt3dadd(79.366, 237.823, -39.848, 1.306)
pt3dadd(79.363, 237.923, -39.903, 1.278)
pt3dadd(79.359, 238.022, -39.959, 1.25)
pt3dadd(79.352, 238.128, -40, 1.182)
pt3dadd(79.348, 238.246, -40.008, 1.062)
pt3dadd(79.359, 238.363, -40.026, 1.022)
pt3dadd(79.371, 238.482, -40.044, 0.982)
pt3dadd(79.342, 238.507, -40.135, 0.992)
pt3dadd(79.312, 238.531, -40.23, 1.006)
pt3dadd(79.282, 238.554, -40.325, 1.02)
pt3dadd(79.257, 238.584, -40.419, 1.054)
pt3dadd(79.245, 238.632, -40.51, 1.126)
pt3dadd(79.226, 238.682, -40.598, 1.198)
pt3dadd(79.191, 238.747, -40.677, 1.266)
pt3dadd(79.158, 238.829, -40.74, 1.306)
pt3dadd(79.129, 238.933, -40.782, 1.306)
pt3dadd(79.08, 239.036, -40.803, 1.278)
pt3dadd(79.016, 239.137, -40.808, 1.228)
pt3dadd(78.979, 239.243, -40.832, 1.188)
pt3dadd(78.968, 239.353, -40.873, 1.156)
pt3dadd(78.957, 239.461, -40.914, 1.124)
pt3dadd(78.947, 239.57, -40.955, 1.09)
pt3dadd(78.936, 239.68, -40.995, 1.058)
pt3dadd(78.936, 239.796, -41.018, 1.038)
}
}
proc shape3d_66() {
apic[23] { pt3dadd(78.937, 239.914, -41.039, 1.02)
pt3dadd(78.939, 240.03, -41.06, 1)
pt3dadd(78.94, 240.148, -41.08, 0.982)
pt3dadd(78.941, 240.265, -41.101, 0.964)
pt3dadd(78.931, 240.371, -41.141, 0.952)
pt3dadd(78.91, 240.464, -41.201, 0.946)
pt3dadd(78.889, 240.559, -41.261, 0.94)
pt3dadd(78.867, 240.653, -41.32, 0.934)
pt3dadd(78.852, 240.748, -41.379, 0.942)
pt3dadd(78.856, 240.847, -41.436, 0.996)
pt3dadd(78.826, 240.916, -41.512, 1.074)
pt3dadd(78.789, 240.979, -41.589, 1.158)
pt3dadd(78.725, 241.081, -41.595, 1.244)
pt3dadd(78.661, 241.182, -41.6, 1.33)
pt3dadd(78.579, 241.27, -41.6, 1.388)
pt3dadd(78.496, 241.357, -41.6, 1.448)
pt3dadd(78.48, 241.471, -41.6, 1.456)
pt3dadd(78.477, 241.592, -41.6, 1.456)
pt3dadd(78.467, 241.711, -41.6, 1.44)
pt3dadd(78.44, 241.828, -41.6, 1.376)
pt3dadd(78.389, 241.936, -41.6, 1.306)
pt3dadd(78.328, 242.039, -41.6, 1.236)
pt3dadd(78.28, 242.148, -41.6, 1.18)
pt3dadd(78.241, 242.261, -41.6, 1.134)
pt3dadd(78.221, 242.377, -41.6, 1.108)
pt3dadd(78.238, 242.496, -41.6, 1.116)
pt3dadd(78.255, 242.615, -41.6, 1.124)
pt3dadd(78.271, 242.734, -41.6, 1.144)
pt3dadd(78.288, 242.852, -41.6, 1.186)
pt3dadd(78.305, 242.971, -41.6, 1.228)
pt3dadd(78.321, 243.088, -41.612, 1.264)
pt3dadd(78.337, 243.198, -41.649, 1.292)
pt3dadd(78.352, 243.307, -41.687, 1.32)
pt3dadd(78.368, 243.418, -41.724, 1.348)
pt3dadd(78.383, 243.528, -41.761, 1.376)
pt3dadd(78.399, 243.638, -41.798, 1.404)
pt3dadd(78.438, 243.734, -41.849, 1.416)
pt3dadd(78.478, 243.828, -41.902, 1.428)
pt3dadd(78.518, 243.922, -41.954, 1.44)
pt3dadd(78.559, 244.015, -42.006, 1.45)
pt3dadd(78.587, 244.115, -42.055, 1.472)
pt3dadd(78.647, 244.208, -42.084, 1.492)
pt3dadd(78.723, 244.297, -42.107, 1.504)
pt3dadd(78.783, 244.391, -42.144, 1.534)
pt3dadd(78.839, 244.486, -42.183, 1.566)
pt3dadd(78.895, 244.58, -42.222, 1.598)
pt3dadd(78.947, 244.624, -42.296, 1.652)
pt3dadd(78.997, 244.644, -42.385, 1.714)
pt3dadd(79.02, 244.679, -42.477, 1.788)
pt3dadd(79.032, 244.718, -42.571, 1.866)
pt3dadd(79.044, 244.78, -42.653, 1.94)
pt3dadd(79.056, 244.866, -42.721, 2.012)
pt3dadd(79.069, 244.962, -42.776, 2.072)
pt3dadd(79.085, 245.076, -42.803, 2.114)
pt3dadd(79.102, 245.191, -42.831, 2.156)
pt3dadd(79.115, 245.286, -42.89, 2.16)
pt3dadd(79.149, 245.378, -42.942, 2.14)
pt3dadd(79.206, 245.472, -42.984, 2.1)
pt3dadd(79.274, 245.567, -43, 2.056)
pt3dadd(79.348, 245.66, -43, 2.01)
pt3dadd(79.431, 245.747, -43, 1.964)
pt3dadd(79.523, 245.822, -43, 1.916)
pt3dadd(79.621, 245.891, -43, 1.872)
pt3dadd(79.728, 245.945, -43, 1.838)
pt3dadd(79.834, 246.001, -43, 1.806)
pt3dadd(79.928, 246.076, -43, 1.79)
pt3dadd(80.023, 246.149, -43, 1.776)
pt3dadd(80.117, 246.222, -43, 1.76)
pt3dadd(80.212, 246.296, -43, 1.744)
pt3dadd(80.308, 246.367, -43, 1.712)
pt3dadd(80.404, 246.438, -43, 1.652)
pt3dadd(80.491, 246.521, -43, 1.64)
pt3dadd(80.561, 246.605, -43.022, 1.634)
pt3dadd(80.599, 246.689, -43.086, 1.644)
pt3dadd(80.636, 246.773, -43.15, 1.65)
pt3dadd(80.668, 246.854, -43.217, 1.664)
pt3dadd(80.678, 246.922, -43.3, 1.7)
pt3dadd(80.688, 246.99, -43.381, 1.734)
pt3dadd(80.722, 247.082, -43.438, 1.76)
pt3dadd(80.76, 247.175, -43.489, 1.78)
pt3dadd(80.837, 247.267, -43.495, 1.756)
pt3dadd(80.914, 247.36, -43.5, 1.732)
pt3dadd(81.01, 247.43, -43.506, 1.634)
pt3dadd(81.106, 247.502, -43.511, 1.536)
pt3dadd(81.183, 247.584, -43.547, 1.474)
pt3dadd(81.258, 247.666, -43.584, 1.414)
pt3dadd(81.333, 247.748, -43.621, 1.356)
pt3dadd(81.409, 247.83, -43.658, 1.296)
pt3dadd(81.494, 247.912, -43.672, 1.252)
pt3dadd(81.582, 247.993, -43.679, 1.216)
pt3dadd(81.669, 248.075, -43.686, 1.178)
pt3dadd(81.757, 248.155, -43.693, 1.142)
pt3dadd(81.845, 248.237, -43.7, 1.104)
}
apic[24] {pt3dclear()
pt3dadd(81.845, 248.237, -43.7, 1.104)
pt3dadd(81.913, 248.282, -43.7, 1.108)
pt3dadd(82.013, 248.35, -43.7, 1.114)
pt3dadd(82.112, 248.418, -43.7, 1.118)
pt3dadd(82.211, 248.485, -43.7, 1.124)
pt3dadd(82.31, 248.554, -43.7, 1.128)
pt3dadd(82.412, 248.616, -43.7, 1.206)
pt3dadd(82.526, 248.654, -43.7, 1.274)
pt3dadd(82.64, 248.692, -43.7, 1.342)
pt3dadd(82.743, 248.753, -43.7, 1.384)
pt3dadd(82.844, 248.818, -43.7, 1.42)
pt3dadd(82.944, 248.884, -43.7, 1.454)
pt3dadd(83.025, 248.962, -43.7, 1.496)
pt3dadd(83.047, 249.079, -43.7, 1.556)
pt3dadd(83.068, 249.198, -43.7, 1.618)
pt3dadd(83.12, 249.292, -43.702, 1.674)
pt3dadd(83.229, 249.34, -43.707, 1.722)
pt3dadd(83.332, 249.385, -43.728, 1.768)
pt3dadd(83.412, 249.42, -43.797, 1.81)
pt3dadd(83.468, 249.466, -43.873, 1.838)
pt3dadd(83.496, 249.522, -43.957, 1.852)
pt3dadd(83.541, 249.593, -44.025, 1.856)
pt3dadd(83.601, 249.678, -44.075, 1.85)
pt3dadd(83.661, 249.762, -44.125, 1.844)
pt3dadd(83.721, 249.846, -44.176, 1.838)
pt3dadd(83.792, 249.918, -44.225, 1.822)
pt3dadd(83.891, 249.955, -44.273, 1.786)
pt3dadd(83.989, 249.994, -44.321, 1.75)
pt3dadd(84.088, 250.03, -44.369, 1.714)
pt3dadd(84.188, 250.067, -44.413, 1.678)
pt3dadd(84.302, 250.096, -44.432, 1.636)
pt3dadd(84.417, 250.124, -44.45, 1.594)
pt3dadd(84.531, 250.153, -44.469, 1.552)
pt3dadd(84.645, 250.182, -44.488, 1.51)
pt3dadd(84.761, 250.211, -44.5, 1.472)
pt3dadd(84.878, 250.235, -44.5, 1.444)
pt3dadd(84.995, 250.261, -44.5, 1.418)
pt3dadd(85.112, 250.288, -44.5, 1.39)
pt3dadd(85.23, 250.313, -44.5, 1.362)
pt3dadd(85.347, 250.338, -44.5, 1.334)
pt3dadd(85.463, 250.362, -44.512, 1.33)
pt3dadd(85.58, 250.386, -44.525, 1.33)
pt3dadd(85.696, 250.411, -44.539, 1.33)
pt3dadd(85.813, 250.435, -44.552, 1.33)
pt3dadd(85.929, 250.459, -44.565, 1.33)
pt3dadd(86.032, 250.5, -44.602, 1.346)
pt3dadd(86.134, 250.543, -44.641, 1.364)
pt3dadd(86.235, 250.586, -44.681, 1.382)
pt3dadd(86.337, 250.628, -44.72, 1.4)
pt3dadd(86.434, 250.679, -44.76, 1.418)
pt3dadd(86.53, 250.734, -44.8, 1.436)
pt3dadd(86.625, 250.788, -44.84, 1.454)
pt3dadd(86.721, 250.844, -44.88, 1.472)
pt3dadd(86.827, 250.885, -44.9, 1.484)
pt3dadd(86.943, 250.913, -44.9, 1.488)
pt3dadd(87.06, 250.942, -44.9, 1.494)
pt3dadd(87.176, 250.97, -44.9, 1.498)
pt3dadd(87.293, 251, -44.9, 1.502)
pt3dadd(87.409, 251.029, -44.903, 1.508)
pt3dadd(87.52, 251.066, -44.925, 1.512)
pt3dadd(87.631, 251.104, -44.946, 1.518)
pt3dadd(87.742, 251.142, -44.968, 1.524)
pt3dadd(87.853, 251.178, -44.99, 1.53)
pt3dadd(87.966, 251.196, -45.014, 1.54)
pt3dadd(88.082, 251.198, -45.04, 1.554)
pt3dadd(88.198, 251.201, -45.066, 1.57)
pt3dadd(88.314, 251.203, -45.092, 1.584)
pt3dadd(88.43, 251.204, -45.118, 1.598)
pt3dadd(88.536, 251.219, -45.157, 1.696)
pt3dadd(88.649, 251.243, -45.18, 1.782)
pt3dadd(88.766, 251.264, -45.195, 1.84)
pt3dadd(88.883, 251.285, -45.208, 1.864)
pt3dadd(89, 251.305, -45.219, 1.872)
pt3dadd(89.118, 251.326, -45.23, 1.882)
pt3dadd(89.203, 251.345, -45.291, 1.824)
pt3dadd(89.277, 251.362, -45.368, 1.742)
pt3dadd(89.307, 251.462, -45.406, 1.662)
pt3dadd(89.329, 251.573, -45.439, 1.582)
pt3dadd(89.352, 251.683, -45.471, 1.502)
pt3dadd(89.384, 251.788, -45.5, 1.418)
pt3dadd(89.495, 251.834, -45.5, 1.28)
pt3dadd(89.606, 251.88, -45.5, 1.142)
pt3dadd(89.724, 251.869, -45.5, 1.076)
pt3dadd(89.843, 251.852, -45.5, 1.018)
pt3dadd(89.961, 251.836, -45.5, 0.96)
pt3dadd(90.079, 251.819, -45.516, 0.946)
pt3dadd(90.196, 251.802, -45.533, 0.936)
pt3dadd(90.29, 251.789, -45.573, 0.942)
pt3dadd(90.336, 251.783, -45.666, 0.986)
pt3dadd(90.384, 251.776, -45.756, 1.03)
pt3dadd(90.503, 251.782, -45.764, 1.07)
pt3dadd(90.623, 251.786, -45.771, 1.11)
pt3dadd(90.742, 251.79, -45.779, 1.15)
pt3dadd(90.862, 251.795, -45.787, 1.19)
pt3dadd(90.981, 251.8, -45.795, 1.23)
pt3dadd(91.101, 251.797, -45.805, 1.268)
pt3dadd(91.218, 251.783, -45.82, 1.306)
pt3dadd(91.336, 251.768, -45.835, 1.344)
pt3dadd(91.454, 251.754, -45.849, 1.38)
pt3dadd(91.572, 251.74, -45.864, 1.418)
pt3dadd(91.69, 251.725, -45.879, 1.456)
pt3dadd(91.808, 251.716, -45.889, 1.486)
pt3dadd(91.928, 251.717, -45.891, 1.504)
pt3dadd(92.048, 251.718, -45.893, 1.52)
pt3dadd(92.168, 251.718, -45.895, 1.536)
pt3dadd(92.288, 251.719, -45.897, 1.552)
pt3dadd(92.408, 251.72, -45.899, 1.57)
}
}
proc shape3d_67() {
apic[24] { pt3dadd(92.527, 251.722, -45.904, 1.578)
pt3dadd(92.645, 251.73, -45.924, 1.558)
pt3dadd(92.762, 251.736, -45.943, 1.54)
pt3dadd(92.88, 251.743, -45.962, 1.52)
pt3dadd(92.997, 251.749, -45.981, 1.5)
pt3dadd(93.115, 251.756, -46.001, 1.482)
pt3dadd(93.228, 251.765, -46.033, 1.476)
pt3dadd(93.341, 251.774, -46.066, 1.472)
pt3dadd(93.455, 251.784, -46.098, 1.466)
pt3dadd(93.568, 251.794, -46.13, 1.46)
pt3dadd(93.681, 251.802, -46.162, 1.456)
pt3dadd(93.794, 251.812, -46.195, 1.45)
pt3dadd(93.907, 251.821, -46.227, 1.444)
pt3dadd(94.02, 251.831, -46.259, 1.44)
pt3dadd(94.134, 251.84, -46.292, 1.434)
pt3dadd(94.248, 251.856, -46.319, 1.44)
pt3dadd(94.363, 251.881, -46.337, 1.46)
pt3dadd(94.478, 251.908, -46.355, 1.482)
pt3dadd(94.593, 251.933, -46.374, 1.502)
pt3dadd(94.708, 251.958, -46.392, 1.524)
pt3dadd(94.824, 251.974, -46.411, 1.562)
pt3dadd(94.942, 251.98, -46.43, 1.616)
pt3dadd(95.06, 251.988, -46.45, 1.668)
pt3dadd(95.177, 251.994, -46.469, 1.722)
pt3dadd(95.295, 252.001, -46.488, 1.776)
pt3dadd(95.413, 252.01, -46.501, 1.822)
pt3dadd(95.532, 252.02, -46.503, 1.856)
pt3dadd(95.652, 252.031, -46.505, 1.892)
pt3dadd(95.771, 252.044, -46.507, 1.926)
pt3dadd(95.891, 252.055, -46.508, 1.962)
pt3dadd(96.01, 252.066, -46.51, 1.996)
pt3dadd(96.129, 252.077, -46.522, 2.018)
pt3dadd(96.246, 252.085, -46.539, 2.032)
pt3dadd(96.364, 252.095, -46.557, 2.048)
pt3dadd(96.482, 252.104, -46.574, 2.062)
pt3dadd(96.6, 252.114, -46.591, 2.076)
pt3dadd(96.715, 252.134, -46.61, 2.074)
pt3dadd(96.828, 252.168, -46.632, 2.052)
pt3dadd(96.94, 252.2, -46.653, 2.03)
pt3dadd(97.052, 252.235, -46.675, 2.01)
pt3dadd(97.164, 252.269, -46.696, 1.988)
pt3dadd(97.282, 252.26, -46.7, 1.858)
pt3dadd(97.401, 252.244, -46.7, 1.708)
pt3dadd(97.52, 252.227, -46.7, 1.62)
pt3dadd(97.638, 252.21, -46.7, 1.586)
pt3dadd(97.757, 252.194, -46.71, 1.582)
pt3dadd(97.851, 252.193, -46.759, 1.61)
pt3dadd(97.887, 252.251, -46.841, 1.622)
pt3dadd(97.917, 252.308, -46.925, 1.632)
pt3dadd(97.931, 252.364, -47.013, 1.632)
pt3dadd(97.952, 252.409, -47.101, 1.626)
pt3dadd(98.02, 252.4, -47.183, 1.58)
pt3dadd(98.087, 252.39, -47.266, 1.532)
pt3dadd(98.185, 252.397, -47.323, 1.442)
pt3dadd(98.282, 252.406, -47.381, 1.352)
pt3dadd(98.352, 252.466, -47.444, 1.236)
pt3dadd(98.436, 252.517, -47.494, 1.116)
pt3dadd(98.549, 252.552, -47.51, 0.986)
pt3dadd(98.626, 252.594, -47.577, 0.898)
pt3dadd(98.7, 252.631, -47.648, 0.814)
pt3dadd(98.771, 252.642, -47.728, 0.736)
pt3dadd(98.853, 252.654, -47.79, 0.664)
pt3dadd(98.972, 252.673, -47.795, 0.61)
pt3dadd(99.09, 252.691, -47.8, 0.556)
pt3dadd(99.204, 252.727, -47.8, 0.522)
pt3dadd(99.318, 252.766, -47.8, 0.488)
pt3dadd(99.432, 252.803, -47.8, 0.466)
pt3dadd(99.547, 252.838, -47.8, 0.45)
pt3dadd(99.664, 252.862, -47.8, 0.44)
pt3dadd(99.782, 252.886, -47.8, 0.428)
pt3dadd(99.89, 252.919, -47.83, 0.438)
pt3dadd(99.996, 252.955, -47.866, 0.452)
pt3dadd(100.108, 252.992, -47.883, 0.488)
pt3dadd(100.22, 253.031, -47.899, 0.526)
pt3dadd(100.27, 253.078, -47.82, 0.6)
pt3dadd(100.318, 253.126, -47.737, 0.676)
pt3dadd(100.365, 253.174, -47.655, 0.752)
pt3dadd(100.413, 253.22, -47.572, 0.828)
pt3dadd(100.46, 253.268, -47.489, 0.904)
}
apic[25] {pt3dclear()
pt3dadd(81.845, 248.237, -43.7, 1.104)
pt3dadd(81.842, 248.238, -43.701, 1.11)
pt3dadd(81.748, 248.305, -43.729, 1.272)
pt3dadd(81.653, 248.37, -43.757, 1.434)
pt3dadd(81.559, 248.437, -43.785, 1.596)
pt3dadd(81.465, 248.503, -43.813, 1.758)
pt3dadd(81.37, 248.569, -43.841, 1.918)
pt3dadd(81.276, 248.635, -43.869, 2.08)
pt3dadd(81.182, 248.701, -43.897, 2.242)
pt3dadd(81.078, 248.761, -43.9, 2.144)
pt3dadd(80.974, 248.821, -43.9, 2.014)
pt3dadd(80.87, 248.88, -43.9, 1.882)
pt3dadd(80.766, 248.94, -43.9, 1.752)
pt3dadd(80.662, 249, -43.9, 1.622)
pt3dadd(80.558, 249.06, -43.9, 1.52)
pt3dadd(80.454, 249.119, -43.9, 1.444)
pt3dadd(80.35, 249.179, -43.9, 1.37)
pt3dadd(80.245, 249.239, -43.9, 1.296)
pt3dadd(80.141, 249.298, -43.9, 1.22)
pt3dadd(80.038, 249.358, -43.904, 1.148)
pt3dadd(79.938, 249.407, -43.941, 1.086)
pt3dadd(79.838, 249.456, -43.978, 1.026)
pt3dadd(79.738, 249.506, -44.015, 0.966)
pt3dadd(79.638, 249.556, -44.052, 0.904)
pt3dadd(79.548, 249.611, -44.098, 0.864)
pt3dadd(79.467, 249.671, -44.151, 0.84)
pt3dadd(79.385, 249.731, -44.205, 0.816)
pt3dadd(79.303, 249.791, -44.258, 0.792)
pt3dadd(79.21, 249.842, -44.3, 0.774)
pt3dadd(79.101, 249.882, -44.327, 0.764)
pt3dadd(78.993, 249.922, -44.354, 0.754)
pt3dadd(78.884, 249.961, -44.381, 0.744)
pt3dadd(78.775, 250.001, -44.408, 0.734)
pt3dadd(78.678, 250.061, -44.43, 0.72)
pt3dadd(78.595, 250.144, -44.447, 0.704)
pt3dadd(78.511, 250.229, -44.465, 0.688)
pt3dadd(78.427, 250.312, -44.482, 0.67)
pt3dadd(78.344, 250.396, -44.499, 0.654)
pt3dadd(78.239, 250.447, -44.519, 0.634)
pt3dadd(78.133, 250.498, -44.54, 0.612)
pt3dadd(78.027, 250.549, -44.56, 0.592)
pt3dadd(77.921, 250.598, -44.581, 0.572)
pt3dadd(77.817, 250.652, -44.601, 0.55)
pt3dadd(77.734, 250.735, -44.622, 0.522)
pt3dadd(77.652, 250.819, -44.643, 0.492)
pt3dadd(77.57, 250.903, -44.663, 0.462)
pt3dadd(77.487, 250.987, -44.684, 0.434)
pt3dadd(77.413, 251.08, -44.691, 0.416)
pt3dadd(77.34, 251.176, -44.694, 0.402)
pt3dadd(77.268, 251.27, -44.697, 0.388)
pt3dadd(77.198, 251.368, -44.7, 0.372)
pt3dadd(77.132, 251.467, -44.692, 0.37)
pt3dadd(77.07, 251.556, -44.655, 0.376)
pt3dadd(76.978, 251.612, -44.612, 0.4)
pt3dadd(76.893, 251.684, -44.625, 0.442)
pt3dadd(76.873, 251.773, -44.687, 0.452)
pt3dadd(76.84, 251.844, -44.759, 0.452)
pt3dadd(76.747, 251.875, -44.814, 0.452)
pt3dadd(76.673, 251.896, -44.888, 0.432)
pt3dadd(76.646, 251.936, -44.977, 0.402)
pt3dadd(76.583, 251.99, -45.049, 0.402)
pt3dadd(76.519, 252.043, -45.121, 0.402)
pt3dadd(76.456, 252.098, -45.193, 0.402)
pt3dadd(76.393, 252.152, -45.265, 0.402)
pt3dadd(76.311, 252.199, -45.328, 0.408)
pt3dadd(76.229, 252.245, -45.39, 0.414)
pt3dadd(76.148, 252.292, -45.452, 0.42)
pt3dadd(76.066, 252.336, -45.514, 0.426)
pt3dadd(75.989, 252.396, -45.573, 0.426)
pt3dadd(75.914, 252.46, -45.63, 0.426)
pt3dadd(75.849, 252.485, -45.711, 0.404)
pt3dadd(75.786, 252.506, -45.794, 0.378)
pt3dadd(75.756, 252.557, -45.88, 0.352)
pt3dadd(75.728, 252.611, -45.967, 0.326)
pt3dadd(75.626, 252.671, -45.983, 0.314)
pt3dadd(75.524, 252.73, -45.999, 0.302)
pt3dadd(75.456, 252.828, -46, 0.294)
pt3dadd(75.39, 252.929, -46, 0.288)
pt3dadd(75.324, 253.028, -46, 0.28)
pt3dadd(75.266, 253.133, -46, 0.272)
pt3dadd(75.22, 253.244, -46, 0.26)
pt3dadd(75.171, 253.352, -46, 0.258)
pt3dadd(75.107, 253.454, -46, 0.304)
pt3dadd(75.038, 253.553, -46, 0.364)
pt3dadd(74.985, 253.657, -46, 0.432)
pt3dadd(74.962, 253.776, -46, 0.518)
pt3dadd(74.939, 253.894, -46, 0.602)
pt3dadd(74.851, 253.942, -46.054, 0.684)
pt3dadd(74.765, 253.994, -46.109, 0.758)
pt3dadd(74.691, 254.063, -46.163, 0.79)
pt3dadd(74.617, 254.126, -46.157, 0.798)
pt3dadd(74.542, 254.186, -46.097, 0.788)
pt3dadd(74.474, 254.243, -46.055, 0.778)
pt3dadd(74.46, 254.255, -46.154, 0.778)
pt3dadd(74.445, 254.268, -46.253, 0.778)
pt3dadd(74.408, 254.328, -46.322, 0.786)
pt3dadd(74.357, 254.418, -46.375, 0.796)
pt3dadd(74.301, 254.504, -46.425, 0.804)
pt3dadd(74.237, 254.591, -46.469, 0.804)
pt3dadd(74.167, 254.68, -46.476, 0.786)
pt3dadd(74.093, 254.77, -46.452, 0.754)
pt3dadd(74.025, 254.857, -46.42, 0.714)
pt3dadd(73.973, 254.934, -46.356, 0.64)
pt3dadd(73.924, 255.018, -46.299, 0.576)
pt3dadd(73.876, 255.11, -46.248, 0.52)
pt3dadd(73.825, 255.19, -46.231, 0.466)
pt3dadd(73.766, 255.235, -46.31, 0.426)
pt3dadd(73.737, 255.305, -46.374, 0.402)
pt3dadd(73.71, 255.406, -46.417, 0.406)
pt3dadd(73.662, 255.503, -46.46, 0.412)
pt3dadd(73.614, 255.599, -46.503, 0.418)
pt3dadd(73.566, 255.697, -46.546, 0.424)
pt3dadd(73.499, 255.786, -46.575, 0.44)
pt3dadd(73.413, 255.868, -46.593, 0.466)
pt3dadd(73.334, 255.956, -46.6, 0.49)
pt3dadd(73.258, 256.049, -46.6, 0.514)
pt3dadd(73.199, 256.146, -46.619, 0.54)
pt3dadd(73.162, 256.248, -46.662, 0.568)
pt3dadd(73.14, 256.32, -46.733, 0.586)
pt3dadd(73.128, 256.375, -46.822, 0.598)
pt3dadd(73.075, 256.445, -46.878, 0.602)
}
}
proc shape3d_68() {
apic[25] { pt3dadd(73.008, 256.523, -46.927, 0.606)
pt3dadd(72.959, 256.598, -46.993, 0.612)
pt3dadd(72.911, 256.675, -47.058, 0.618)
pt3dadd(72.862, 256.752, -47.124, 0.624)
pt3dadd(72.807, 256.826, -47.187, 0.632)
pt3dadd(72.739, 256.897, -47.244, 0.648)
pt3dadd(72.665, 256.973, -47.289, 0.652)
pt3dadd(72.585, 257.051, -47.326, 0.652)
pt3dadd(72.527, 257.146, -47.363, 0.63)
pt3dadd(72.474, 257.244, -47.4, 0.602)
pt3dadd(72.474, 257.363, -47.414, 0.57)
pt3dadd(72.474, 257.482, -47.428, 0.54)
pt3dadd(72.451, 257.561, -47.485, 0.518)
pt3dadd(72.416, 257.618, -47.568, 0.5)
pt3dadd(72.38, 257.675, -47.651, 0.484)
pt3dadd(72.341, 257.746, -47.723, 0.47)
pt3dadd(72.299, 257.83, -47.787, 0.454)
pt3dadd(72.297, 257.941, -47.795, 0.464)
pt3dadd(72.306, 258.06, -47.789, 0.478)
pt3dadd(72.322, 258.17, -47.755, 0.516)
pt3dadd(72.334, 258.253, -47.685, 0.57)
pt3dadd(72.34, 258.296, -47.593, 0.626)
pt3dadd(72.342, 258.311, -47.494, 0.654)
pt3dadd(72.342, 258.311, -47.394, 0.678)
pt3dadd(72.342, 258.311, -47.294, 0.67)
pt3dadd(72.342, 258.311, -47.194, 0.66)
pt3dadd(72.342, 258.311, -47.094, 0.652)
pt3dadd(72.342, 258.316, -46.994, 0.634)
pt3dadd(72.343, 258.32, -46.894, 0.616)
pt3dadd(72.339, 258.335, -46.797, 0.592)
pt3dadd(72.317, 258.403, -46.717, 0.532)
pt3dadd(72.274, 258.51, -46.7, 0.424)
pt3dadd(72.237, 258.625, -46.7, 0.324)
pt3dadd(72.179, 258.73, -46.701, 0.248)
pt3dadd(72.105, 258.816, -46.727, 0.226)
pt3dadd(72.045, 258.906, -46.77, 0.226)
pt3dadd(71.987, 258.996, -46.814, 0.226)
pt3dadd(71.907, 259.068, -46.858, 0.242)
pt3dadd(71.819, 259.135, -46.893, 0.282)
pt3dadd(71.732, 259.211, -46.911, 0.346)
pt3dadd(71.66, 259.303, -46.932, 0.38)
pt3dadd(71.587, 259.396, -46.952, 0.414)
pt3dadd(71.515, 259.488, -46.972, 0.448)
pt3dadd(71.445, 259.583, -46.99, 0.49)
pt3dadd(71.388, 259.69, -46.995, 0.576)
pt3dadd(71.328, 259.79, -47, 0.658)
pt3dadd(71.229, 259.859, -47, 0.714)
pt3dadd(71.13, 259.926, -47, 0.77)
pt3dadd(71.02, 259.955, -47.024, 0.788)
pt3dadd(70.907, 259.978, -47.053, 0.798)
pt3dadd(70.831, 260.033, -47.098, 0.788)
pt3dadd(70.787, 260.119, -47.158, 0.758)
pt3dadd(70.793, 260.225, -47.2, 0.678)
}
apic[26] {pt3dclear()
pt3dadd(79.411, 225.931, -39.189, 1.934)
pt3dadd(79.415, 225.919, -39.213, 1.932)
pt3dadd(79.431, 225.872, -39.304, 1.924)
pt3dadd(79.448, 225.827, -39.396, 1.916)
pt3dadd(79.464, 225.781, -39.487, 1.908)
pt3dadd(79.48, 225.734, -39.578, 1.902)
pt3dadd(79.497, 225.688, -39.67, 1.894)
pt3dadd(79.513, 225.642, -39.761, 1.886)
pt3dadd(79.529, 225.596, -39.852, 1.878)
pt3dadd(79.545, 225.55, -39.943, 1.87)
pt3dadd(79.562, 225.503, -40.035, 1.864)
pt3dadd(79.578, 225.457, -40.126, 1.856)
pt3dadd(79.594, 225.412, -40.217, 1.848)
pt3dadd(79.61, 225.365, -40.308, 1.84)
pt3dadd(79.627, 225.318, -40.4, 1.832)
pt3dadd(79.643, 225.272, -40.491, 1.826)
pt3dadd(79.659, 225.227, -40.582, 1.818)
pt3dadd(79.676, 225.18, -40.674, 1.81)
pt3dadd(79.702, 225.084, -40.7, 1.87)
pt3dadd(79.733, 224.968, -40.7, 1.958)
pt3dadd(79.764, 224.854, -40.709, 2.008)
pt3dadd(79.796, 224.741, -40.732, 2.008)
pt3dadd(79.822, 224.654, -40.783, 2.004)
pt3dadd(79.842, 224.605, -40.872, 1.99)
pt3dadd(79.872, 224.544, -40.952, 1.978)
pt3dadd(79.915, 224.468, -41.022, 1.964)
pt3dadd(79.944, 224.435, -41.11, 1.954)
pt3dadd(79.966, 224.423, -41.208, 1.948)
pt3dadd(79.988, 224.41, -41.306, 1.942)
pt3dadd(80.01, 224.396, -41.403, 1.936)
pt3dadd(80.072, 224.384, -41.484, 1.9)
pt3dadd(80.153, 224.374, -41.558, 1.854)
pt3dadd(80.253, 224.359, -41.605, 1.762)
pt3dadd(80.326, 224.348, -41.677, 1.706)
pt3dadd(80.386, 224.34, -41.763, 1.672)
pt3dadd(80.423, 224.335, -41.856, 1.668)
pt3dadd(80.444, 224.333, -41.955, 1.688)
pt3dadd(80.464, 224.329, -42.054, 1.708)
pt3dadd(80.563, 224.275, -42.083, 1.708)
pt3dadd(80.664, 224.22, -42.111, 1.708)
pt3dadd(80.753, 224.164, -42.16, 1.694)
pt3dadd(80.83, 224.106, -42.214, 1.662)
pt3dadd(80.852, 224.038, -42.294, 1.54)
pt3dadd(80.864, 223.974, -42.378, 1.462)
pt3dadd(80.876, 223.91, -42.463, 1.384)
pt3dadd(80.933, 223.834, -42.522, 1.27)
pt3dadd(80.985, 223.748, -42.576, 1.166)
pt3dadd(81.014, 223.644, -42.618, 1.098)
pt3dadd(81.016, 223.566, -42.676, 1.042)
pt3dadd(80.971, 223.538, -42.766, 1.002)
pt3dadd(80.944, 223.478, -42.832, 0.976)
pt3dadd(80.946, 223.362, -42.858, 0.968)
pt3dadd(80.947, 223.246, -42.883, 0.96)
pt3dadd(80.914, 223.146, -42.9, 0.936)
pt3dadd(80.815, 223.079, -42.9, 0.886)
pt3dadd(80.718, 223.015, -42.916, 0.83)
pt3dadd(80.625, 222.959, -42.959, 0.766)
pt3dadd(80.534, 222.905, -43.003, 0.7)
pt3dadd(80.507, 222.886, -43.099, 0.614)
pt3dadd(80.505, 222.864, -43.191, 0.508)
pt3dadd(80.535, 222.823, -43.28, 0.428)
pt3dadd(80.547, 222.775, -43.371, 0.392)
pt3dadd(80.538, 222.727, -43.461, 0.356)
pt3dadd(80.511, 222.677, -43.549, 0.318)
pt3dadd(80.46, 222.604, -43.595, 0.288)
pt3dadd(80.387, 222.508, -43.606, 0.264)
pt3dadd(80.322, 222.414, -43.632, 0.244)
pt3dadd(80.266, 222.32, -43.674, 0.23)
pt3dadd(80.219, 222.215, -43.693, 0.226)
pt3dadd(80.179, 222.102, -43.7, 0.226)
pt3dadd(80.15, 221.987, -43.7, 0.234)
pt3dadd(80.12, 221.869, -43.7, 0.242)
pt3dadd(80.091, 221.754, -43.7, 0.25)
pt3dadd(80.062, 221.638, -43.7, 0.258)
pt3dadd(80.033, 221.52, -43.7, 0.266)
pt3dadd(80.004, 221.405, -43.7, 0.274)
pt3dadd(79.965, 221.291, -43.7, 0.288)
pt3dadd(79.922, 221.179, -43.7, 0.306)
pt3dadd(79.878, 221.068, -43.7, 0.322)
pt3dadd(79.835, 220.956, -43.7, 0.34)
pt3dadd(79.792, 220.843, -43.7, 0.356)
pt3dadd(79.748, 220.732, -43.7, 0.374)
pt3dadd(79.695, 220.628, -43.725, 0.41)
pt3dadd(79.64, 220.529, -43.754, 0.448)
pt3dadd(79.584, 220.428, -43.783, 0.486)
pt3dadd(79.529, 220.327, -43.812, 0.524)
pt3dadd(79.477, 220.225, -43.841, 0.568)
pt3dadd(79.437, 220.12, -43.874, 0.63)
pt3dadd(79.39, 220.015, -43.9, 0.684)
pt3dadd(79.322, 219.917, -43.9, 0.718)
pt3dadd(79.254, 219.817, -43.9, 0.752)
pt3dadd(79.159, 219.75, -43.877, 0.754)
pt3dadd(79.065, 219.69, -43.848, 0.754)
pt3dadd(78.99, 219.671, -43.771, 0.754)
pt3dadd(78.909, 219.648, -43.718, 0.754)
pt3dadd(78.803, 219.602, -43.748, 0.754)
pt3dadd(78.698, 219.559, -43.778, 0.754)
pt3dadd(78.594, 219.509, -43.8, 0.75)
pt3dadd(78.495, 219.44, -43.8, 0.738)
pt3dadd(78.396, 219.373, -43.8, 0.72)
pt3dadd(78.286, 219.331, -43.8, 0.672)
pt3dadd(78.167, 219.322, -43.8, 0.66)
pt3dadd(78.047, 219.311, -43.8, 0.646)
pt3dadd(77.928, 219.3, -43.8, 0.634)
pt3dadd(77.808, 219.288, -43.8, 0.62)
pt3dadd(77.689, 219.277, -43.8, 0.608)
pt3dadd(77.57, 219.283, -43.8, 0.592)
pt3dadd(77.451, 219.3, -43.8, 0.576)
pt3dadd(77.332, 219.317, -43.8, 0.56)
pt3dadd(77.213, 219.325, -43.8, 0.552)
pt3dadd(77.093, 219.326, -43.8, 0.552)
pt3dadd(76.973, 219.329, -43.8, 0.552)
pt3dadd(76.866, 219.302, -43.838, 0.576)
pt3dadd(76.762, 219.276, -43.881, 0.604)
pt3dadd(76.677, 219.28, -43.951, 0.616)
pt3dadd(76.592, 219.286, -44.022, 0.628)
pt3dadd(76.522, 219.21, -44.071, 0.62)
pt3dadd(76.451, 219.132, -44.12, 0.61)
pt3dadd(76.382, 219.054, -44.168, 0.6)
pt3dadd(76.321, 218.951, -44.184, 0.564)
pt3dadd(76.261, 218.849, -44.2, 0.528)
pt3dadd(76.241, 218.74, -44.237, 0.518)
pt3dadd(76.221, 218.63, -44.274, 0.51)
pt3dadd(76.201, 218.52, -44.311, 0.502)
pt3dadd(76.195, 218.473, -44.403, 0.502)
pt3dadd(76.188, 218.428, -44.495, 0.502)
pt3dadd(76.145, 218.376, -44.575, 0.516)
pt3dadd(76.087, 218.322, -44.649, 0.538)
pt3dadd(76.018, 218.273, -44.718, 0.558)
pt3dadd(75.928, 218.231, -44.775, 0.572)
pt3dadd(75.833, 218.174, -44.8, 0.592)
pt3dadd(75.733, 218.108, -44.8, 0.62)
pt3dadd(75.634, 218.041, -44.8, 0.646)
pt3dadd(75.524, 217.996, -44.8, 0.678)
pt3dadd(75.41, 217.958, -44.8, 0.712)
pt3dadd(75.293, 217.94, -44.805, 0.746)
pt3dadd(75.174, 217.945, -44.815, 0.784)
pt3dadd(75.055, 217.951, -44.825, 0.822)
pt3dadd(74.942, 217.956, -44.843, 0.86)
pt3dadd(74.875, 217.966, -44.926, 0.906)
pt3dadd(74.807, 217.975, -45.008, 0.952)
pt3dadd(74.802, 217.975, -45.108, 0.972)
pt3dadd(74.799, 217.976, -45.208, 0.992)
pt3dadd(74.795, 217.976, -45.308, 1.012)
pt3dadd(74.788, 217.978, -45.407, 1.032)
pt3dadd(74.735, 217.985, -45.496, 1.054)
pt3dadd(74.682, 217.992, -45.586, 1.076)
}
}
proc shape3d_69() {
apic[26] { pt3dadd(74.605, 218.003, -45.657, 1.106)
pt3dadd(74.588, 218.005, -45.756, 1.118)
pt3dadd(74.571, 218.008, -45.855, 1.13)
pt3dadd(74.554, 218.01, -45.954, 1.144)
pt3dadd(74.537, 218.012, -46.053, 1.156)
pt3dadd(74.52, 218.015, -46.152, 1.168)
pt3dadd(74.503, 218.017, -46.251, 1.18)
pt3dadd(74.466, 218.045, -46.343, 1.19)
pt3dadd(74.428, 218.071, -46.435, 1.2)
pt3dadd(74.39, 218.099, -46.527, 1.21)
pt3dadd(74.352, 218.128, -46.619, 1.222)
pt3dadd(74.313, 218.16, -46.709, 1.238)
pt3dadd(74.27, 218.226, -46.784, 1.294)
pt3dadd(74.226, 218.298, -46.855, 1.34)
pt3dadd(74.184, 218.381, -46.918, 1.37)
pt3dadd(74.158, 218.419, -47.002, 1.386)
pt3dadd(74.144, 218.426, -47.101, 1.396)
pt3dadd(74.129, 218.434, -47.2, 1.406)
pt3dadd(74.09, 218.44, -47.295, 1.352)
pt3dadd(74.05, 218.444, -47.389, 1.3)
pt3dadd(73.988, 218.454, -47.473, 1.166)
pt3dadd(73.928, 218.464, -47.556, 1)
pt3dadd(73.913, 218.47, -47.655, 0.874)
pt3dadd(73.898, 218.477, -47.754, 0.748)
pt3dadd(73.85, 218.521, -47.83, 0.602)
pt3dadd(73.782, 218.585, -47.893, 0.444)
pt3dadd(73.669, 218.612, -47.9, 0.332)
pt3dadd(73.552, 218.636, -47.9, 0.226)
}
apic[27] {pt3dclear()
pt3dadd(81.719, 204.319, -32.367, 2.46)
pt3dadd(81.622, 204.34, -32.406, 2.346)
pt3dadd(81.516, 204.36, -32.45, 2.218)
pt3dadd(81.411, 204.383, -32.493, 2.09)
pt3dadd(81.305, 204.403, -32.537, 1.964)
pt3dadd(81.199, 204.426, -32.581, 1.836)
pt3dadd(81.093, 204.446, -32.624, 1.71)
pt3dadd(80.987, 204.468, -32.668, 1.582)
pt3dadd(80.881, 204.49, -32.711, 1.454)
pt3dadd(80.776, 204.511, -32.755, 1.328)
pt3dadd(80.67, 204.533, -32.798, 1.2)
pt3dadd(80.564, 204.554, -32.842, 1.074)
pt3dadd(80.458, 204.576, -32.886, 0.946)
pt3dadd(80.395, 204.587, -32.963, 0.904)
pt3dadd(80.354, 204.593, -33.056, 0.904)
pt3dadd(80.313, 204.599, -33.15, 0.904)
pt3dadd(80.272, 204.605, -33.244, 0.904)
pt3dadd(80.23, 204.61, -33.338, 0.904)
pt3dadd(80.195, 204.616, -33.433, 0.904)
pt3dadd(80.185, 204.617, -33.532, 0.904)
pt3dadd(80.185, 204.617, -33.632, 0.896)
pt3dadd(80.185, 204.617, -33.732, 0.862)
pt3dadd(80.18, 204.617, -33.832, 0.802)
pt3dadd(80.15, 204.622, -33.927, 0.724)
pt3dadd(80.06, 204.634, -33.986, 0.68)
pt3dadd(79.943, 204.65, -34, 0.652)
pt3dadd(79.826, 204.667, -33.985, 0.624)
pt3dadd(79.714, 204.683, -33.952, 0.614)
pt3dadd(79.602, 204.698, -33.924, 0.65)
pt3dadd(79.492, 204.686, -33.952, 0.73)
pt3dadd(79.38, 204.661, -33.971, 0.76)
pt3dadd(79.262, 204.64, -33.978, 0.77)
pt3dadd(79.145, 204.618, -33.984, 0.78)
pt3dadd(79.027, 204.596, -33.99, 0.788)
pt3dadd(78.909, 204.574, -33.996, 0.798)
pt3dadd(78.793, 204.546, -34, 0.804)
pt3dadd(78.679, 204.506, -34, 0.804)
pt3dadd(78.567, 204.48, -34.01, 0.798)
pt3dadd(78.461, 204.496, -34.054, 0.776)
pt3dadd(78.355, 204.51, -34.099, 0.754)
pt3dadd(78.304, 204.511, -34.189, 0.73)
pt3dadd(78.255, 204.512, -34.281, 0.708)
pt3dadd(78.195, 204.458, -34.35, 0.704)
pt3dadd(78.132, 204.391, -34.414, 0.706)
pt3dadd(78.079, 204.331, -34.488, 0.768)
pt3dadd(78.025, 204.268, -34.56, 0.804)
pt3dadd(77.97, 204.204, -34.632, 0.834)
pt3dadd(77.916, 204.142, -34.704, 0.864)
pt3dadd(77.862, 204.078, -34.776, 0.894)
pt3dadd(77.831, 204.002, -34.847, 0.922)
pt3dadd(77.811, 203.918, -34.918, 0.948)
pt3dadd(77.791, 203.837, -34.988, 0.974)
pt3dadd(77.77, 203.754, -35.058, 1.002)
pt3dadd(77.75, 203.67, -35.129, 1.028)
pt3dadd(77.745, 203.633, -35.223, 1.038)
pt3dadd(77.739, 203.597, -35.318, 1.048)
pt3dadd(77.735, 203.562, -35.414, 1.056)
pt3dadd(77.73, 203.527, -35.509, 1.066)
pt3dadd(77.725, 203.491, -35.605, 1.074)
pt3dadd(77.724, 203.443, -35.695, 1.08)
pt3dadd(77.732, 203.371, -35.775, 1.08)
pt3dadd(77.739, 203.3, -35.855, 1.08)
pt3dadd(77.747, 203.228, -35.935, 1.08)
pt3dadd(77.755, 203.158, -36.015, 1.08)
pt3dadd(77.756, 203.088, -36.097, 1.076)
pt3dadd(77.754, 203.022, -36.18, 1.07)
pt3dadd(77.753, 202.955, -36.263, 1.066)
pt3dadd(77.752, 202.888, -36.346, 1.06)
pt3dadd(77.751, 202.82, -36.429, 1.054)
pt3dadd(77.794, 202.777, -36.514, 1.066)
pt3dadd(77.84, 202.734, -36.599, 1.076)
pt3dadd(77.886, 202.691, -36.685, 1.088)
pt3dadd(77.931, 202.648, -36.77, 1.1)
pt3dadd(77.962, 202.601, -36.858, 1.118)
pt3dadd(77.977, 202.55, -36.947, 1.146)
pt3dadd(77.993, 202.5, -37.037, 1.172)
pt3dadd(78.009, 202.448, -37.127, 1.198)
pt3dadd(78.025, 202.398, -37.216, 1.226)
pt3dadd(78.11, 202.355, -37.265, 1.312)
pt3dadd(78.213, 202.314, -37.304, 1.412)
pt3dadd(78.254, 202.27, -37.384, 1.514)
pt3dadd(78.282, 202.224, -37.474, 1.616)
pt3dadd(78.322, 202.189, -37.564, 1.686)
pt3dadd(78.365, 202.157, -37.653, 1.748)
pt3dadd(78.364, 202.062, -37.706, 1.788)
pt3dadd(78.355, 201.956, -37.753, 1.822)
pt3dadd(78.346, 201.88, -37.826, 1.842)
pt3dadd(78.337, 201.812, -37.909, 1.856)
pt3dadd(78.328, 201.748, -37.992, 1.87)
pt3dadd(78.319, 201.684, -38.076, 1.886)
pt3dadd(78.314, 201.653, -38.173, 1.906)
pt3dadd(78.31, 201.619, -38.269, 1.926)
pt3dadd(78.307, 201.599, -38.367, 1.896)
pt3dadd(78.299, 201.541, -38.452, 1.868)
pt3dadd(78.289, 201.474, -38.534, 1.848)
pt3dadd(78.28, 201.406, -38.616, 1.828)
pt3dadd(78.27, 201.337, -38.698, 1.808)
pt3dadd(78.261, 201.269, -38.78, 1.788)
pt3dadd(78.252, 201.205, -38.864, 1.772)
pt3dadd(78.243, 201.143, -38.949, 1.756)
pt3dadd(78.234, 201.08, -39.034, 1.742)
pt3dadd(78.225, 201.018, -39.119, 1.728)
pt3dadd(78.217, 200.956, -39.205, 1.712)
pt3dadd(78.211, 200.917, -39.298, 1.714)
pt3dadd(78.207, 200.89, -39.395, 1.722)
pt3dadd(78.203, 200.862, -39.493, 1.73)
pt3dadd(78.2, 200.834, -39.59, 1.74)
pt3dadd(78.196, 200.808, -39.687, 1.748)
pt3dadd(78.192, 200.782, -39.785, 1.756)
pt3dadd(78.191, 200.776, -39.884, 1.768)
pt3dadd(78.191, 200.773, -39.984, 1.778)
pt3dadd(78.191, 200.771, -40.084, 1.788)
pt3dadd(78.19, 200.77, -40.184, 1.8)
pt3dadd(78.19, 200.767, -40.284, 1.81)
pt3dadd(78.19, 200.766, -40.384, 1.822)
pt3dadd(78.189, 200.764, -40.484, 1.832)
pt3dadd(78.183, 200.719, -40.577, 1.844)
pt3dadd(78.177, 200.674, -40.669, 1.854)
pt3dadd(78.17, 200.627, -40.761, 1.85)
pt3dadd(78.164, 200.58, -40.853, 1.84)
pt3dadd(78.156, 200.527, -40.942, 1.828)
pt3dadd(78.147, 200.459, -41.024, 1.818)
pt3dadd(78.136, 200.382, -41.094, 1.806)
pt3dadd(78.12, 200.267, -41.116, 1.796)
pt3dadd(78.103, 200.15, -41.138, 1.786)
pt3dadd(78.094, 200.086, -41.21, 1.748)
pt3dadd(78.088, 200.041, -41.302, 1.704)
pt3dadd(78.079, 199.978, -41.387, 1.68)
pt3dadd(78.07, 199.916, -41.472, 1.654)
pt3dadd(78.062, 199.853, -41.558, 1.63)
pt3dadd(78.053, 199.792, -41.643, 1.606)
pt3dadd(78.047, 199.729, -41.727, 1.58)
pt3dadd(78.082, 199.66, -41.804, 1.544)
pt3dadd(78.117, 199.591, -41.88, 1.508)
pt3dadd(78.153, 199.522, -41.957, 1.472)
pt3dadd(78.188, 199.453, -42.033, 1.436)
pt3dadd(78.262, 199.434, -42.107, 1.38)
pt3dadd(78.343, 199.422, -42.18, 1.322)
pt3dadd(78.407, 199.393, -42.26, 1.258)
pt3dadd(78.466, 199.356, -42.342, 1.192)
pt3dadd(78.462, 199.253, -42.37, 1.156)
pt3dadd(78.445, 199.135, -42.387, 1.128)
pt3dadd(78.434, 199.02, -42.409, 1.102)
pt3dadd(78.437, 198.908, -42.446, 1.09)
pt3dadd(78.45, 198.812, -42.492, 1.084)
pt3dadd(78.507, 198.788, -42.578, 1.114)
pt3dadd(78.563, 198.764, -42.664, 1.144)
pt3dadd(78.62, 198.742, -42.749, 1.174)
pt3dadd(78.642, 198.704, -42.841, 1.228)
pt3dadd(78.655, 198.665, -42.935, 1.286)
pt3dadd(78.709, 198.643, -43.018, 1.398)
pt3dadd(78.735, 198.569, -43.091, 1.406)
pt3dadd(78.759, 198.488, -43.164, 1.406)
pt3dadd(78.782, 198.41, -43.237, 1.406)
pt3dadd(78.806, 198.332, -43.309, 1.406)
pt3dadd(78.807, 198.26, -43.389, 1.39)
pt3dadd(78.798, 198.192, -43.471, 1.368)
pt3dadd(78.793, 198.139, -43.559, 1.338)
pt3dadd(78.793, 198.097, -43.653, 1.306)
pt3dadd(78.811, 198.056, -43.742, 1.266)
pt3dadd(78.877, 198.018, -43.819, 1.214)
pt3dadd(78.948, 197.96, -43.873, 1.154)
pt3dadd(79.027, 197.873, -43.891, 1.09)
pt3dadd(79.077, 197.771, -43.9, 1.012)
pt3dadd(79.093, 197.652, -43.9, 0.918)
pt3dadd(79.128, 197.548, -43.936, 0.846)
pt3dadd(79.166, 197.448, -43.98, 0.778)
pt3dadd(79.21, 197.389, -44.06, 0.736)
pt3dadd(79.258, 197.326, -44.132, 0.7)
pt3dadd(79.323, 197.239, -44.176, 0.686)
pt3dadd(79.389, 197.147, -44.2, 0.678)
pt3dadd(79.457, 197.05, -44.2, 0.678)
}
}
proc shape3d_70() {
apic[27] { pt3dadd(79.513, 196.945, -44.208, 0.678)
pt3dadd(79.545, 196.834, -44.23, 0.678)
pt3dadd(79.563, 196.741, -44.275, 0.678)
pt3dadd(79.559, 196.711, -44.371, 0.678)
pt3dadd(79.558, 196.706, -44.47, 0.678)
pt3dadd(79.558, 196.706, -44.57, 0.678)
pt3dadd(79.558, 196.706, -44.67, 0.696)
pt3dadd(79.558, 196.706, -44.77, 0.756)
pt3dadd(79.552, 196.661, -44.859, 0.796)
pt3dadd(79.543, 196.595, -44.942, 0.82)
pt3dadd(79.533, 196.53, -45.026, 0.846)
pt3dadd(79.524, 196.464, -45.109, 0.87)
pt3dadd(79.515, 196.399, -45.193, 0.896)
pt3dadd(79.486, 196.32, -45.262, 0.922)
pt3dadd(79.446, 196.234, -45.323, 0.952)
pt3dadd(79.407, 196.147, -45.383, 0.98)
pt3dadd(79.367, 196.061, -45.444, 1.008)
pt3dadd(79.334, 195.97, -45.502, 1.036)
pt3dadd(79.319, 195.868, -45.553, 1.058)
pt3dadd(79.301, 195.764, -45.601, 1.078)
pt3dadd(79.241, 195.664, -45.617, 1.04)
pt3dadd(79.181, 195.562, -45.633, 1.004)
pt3dadd(79.069, 195.571, -45.668, 0.938)
pt3dadd(78.957, 195.581, -45.702, 0.87)
pt3dadd(78.876, 195.575, -45.771, 0.796)
pt3dadd(78.805, 195.564, -45.852, 0.718)
pt3dadd(78.785, 195.516, -45.938, 0.692)
pt3dadd(78.777, 195.458, -46.025, 0.678)
pt3dadd(78.769, 195.401, -46.113, 0.664)
pt3dadd(78.752, 195.34, -46.19, 0.652)
pt3dadd(78.675, 195.247, -46.195, 0.652)
pt3dadd(78.597, 195.157, -46.2, 0.654)
pt3dadd(78.481, 195.134, -46.208, 0.678)
pt3dadd(78.379, 195.09, -46.245, 0.678)
pt3dadd(78.279, 195.044, -46.284, 0.678)
pt3dadd(78.181, 194.998, -46.328, 0.678)
pt3dadd(78.109, 194.981, -46.398, 0.678)
pt3dadd(78.053, 194.983, -46.487, 0.678)
pt3dadd(78.014, 194.984, -46.58, 0.678)
pt3dadd(77.993, 194.988, -46.679, 0.678)
pt3dadd(77.973, 194.99, -46.777, 0.678)
pt3dadd(77.881, 195.004, -46.833, 0.678)
pt3dadd(77.778, 195.018, -46.884, 0.678)
pt3dadd(77.665, 195.034, -46.9, 0.66)
pt3dadd(77.546, 195.05, -46.9, 0.636)
pt3dadd(77.427, 195.067, -46.9, 0.61)
pt3dadd(77.308, 195.084, -46.9, 0.62)
pt3dadd(77.189, 195.101, -46.9, 0.662)
pt3dadd(77.07, 195.118, -46.9, 0.712)
pt3dadd(76.952, 195.134, -46.9, 0.734)
pt3dadd(76.833, 195.151, -46.9, 0.742)
pt3dadd(76.714, 195.168, -46.9, 0.75)
pt3dadd(76.605, 195.187, -46.932, 0.754)
pt3dadd(76.501, 195.209, -46.979, 0.754)
pt3dadd(76.443, 195.25, -47.047, 0.768)
pt3dadd(76.424, 195.307, -47.133, 0.794)
pt3dadd(76.395, 195.395, -47.188, 0.836)
pt3dadd(76.359, 195.5, -47.224, 0.89)
pt3dadd(76.314, 195.575, -47.289, 0.982)
pt3dadd(76.273, 195.64, -47.366, 1.044)
pt3dadd(76.238, 195.703, -47.445, 1.072)
pt3dadd(76.205, 195.785, -47.512, 1.06)
pt3dadd(76.171, 195.872, -47.575, 1.032)
pt3dadd(76.129, 195.955, -47.638, 0.962)
pt3dadd(76.076, 196.036, -47.69, 0.89)
pt3dadd(75.979, 196.105, -47.695, 0.82)
pt3dadd(75.882, 196.175, -47.701, 0.746)
pt3dadd(75.787, 196.242, -47.727, 0.63)
pt3dadd(75.682, 196.288, -47.754, 0.58)
pt3dadd(75.573, 196.327, -47.781, 0.548)
pt3dadd(75.465, 196.367, -47.808, 0.518)
pt3dadd(75.356, 196.406, -47.835, 0.488)
pt3dadd(75.248, 196.446, -47.862, 0.458)
pt3dadd(75.132, 196.471, -47.877, 0.412)
pt3dadd(75.015, 196.493, -47.89, 0.364)
pt3dadd(74.898, 196.513, -47.9, 0.32)
pt3dadd(74.779, 196.53, -47.9, 0.296)
pt3dadd(74.66, 196.547, -47.9, 0.27)
pt3dadd(74.542, 196.55, -47.9, 0.248)
pt3dadd(74.429, 196.513, -47.9, 0.238)
pt3dadd(74.315, 196.474, -47.9, 0.226)
}
apic[28] {pt3dclear()
pt3dadd(83.903, 171.294, -7.5, 2.41)
pt3dadd(83.828, 171.289, -7.478, 2.35)
pt3dadd(83.715, 171.282, -7.446, 2.256)
pt3dadd(83.602, 171.275, -7.413, 2.164)
pt3dadd(83.488, 171.268, -7.38, 2.072)
pt3dadd(83.375, 171.26, -7.347, 1.98)
pt3dadd(83.262, 171.253, -7.315, 1.888)
pt3dadd(83.149, 171.246, -7.282, 1.796)
pt3dadd(83.036, 171.239, -7.249, 1.702)
pt3dadd(82.922, 171.232, -7.217, 1.61)
pt3dadd(82.809, 171.226, -7.184, 1.518)
pt3dadd(82.696, 171.218, -7.151, 1.426)
pt3dadd(82.583, 171.211, -7.119, 1.334)
pt3dadd(82.497, 171.253, -7.1, 1.282)
pt3dadd(82.449, 171.362, -7.1, 1.288)
pt3dadd(82.401, 171.474, -7.1, 1.292)
pt3dadd(82.353, 171.583, -7.1, 1.298)
pt3dadd(82.305, 171.694, -7.1, 1.302)
pt3dadd(82.26, 171.804, -7.1, 1.322)
pt3dadd(82.222, 171.918, -7.1, 1.37)
pt3dadd(82.184, 172.032, -7.1, 1.418)
pt3dadd(82.146, 172.146, -7.1, 1.466)
pt3dadd(82.108, 172.259, -7.1, 1.514)
pt3dadd(82.074, 172.374, -7.1, 1.572)
pt3dadd(82.077, 172.494, -7.1, 1.692)
pt3dadd(82.079, 172.615, -7.1, 1.814)
pt3dadd(82.053, 172.727, -7.1, 1.924)
pt3dadd(81.991, 172.829, -7.1, 2.018)
pt3dadd(81.948, 172.937, -7.094, 2.078)
pt3dadd(81.947, 173.054, -7.075, 2.056)
pt3dadd(81.946, 173.172, -7.056, 2.034)
}
apic[29] {pt3dclear()
pt3dadd(81.946, 173.172, -7.056, 2.034)
pt3dadd(81.935, 173.184, -7.028, 1.996)
pt3dadd(81.9, 173.222, -6.938, 1.868)
pt3dadd(81.865, 173.286, -6.87, 1.752)
pt3dadd(81.831, 173.398, -6.846, 1.66)
pt3dadd(81.798, 173.508, -6.822, 1.568)
pt3dadd(81.764, 173.62, -6.8, 1.476)
pt3dadd(81.718, 173.731, -6.8, 1.386)
pt3dadd(81.672, 173.843, -6.8, 1.294)
pt3dadd(81.652, 173.96, -6.8, 1.232)
pt3dadd(81.641, 174.079, -6.8, 1.244)
pt3dadd(81.63, 174.198, -6.8, 1.258)
pt3dadd(81.619, 174.319, -6.8, 1.27)
pt3dadd(81.607, 174.438, -6.8, 1.282)
pt3dadd(81.596, 174.557, -6.8, 1.296)
pt3dadd(81.58, 174.676, -6.8, 1.312)
pt3dadd(81.545, 174.791, -6.8, 1.336)
pt3dadd(81.51, 174.905, -6.8, 1.358)
pt3dadd(81.475, 175.02, -6.8, 1.382)
pt3dadd(81.44, 175.135, -6.8, 1.406)
pt3dadd(81.405, 175.25, -6.8, 1.43)
pt3dadd(81.4, 175.37, -6.8, 1.478)
pt3dadd(81.397, 175.489, -6.8, 1.526)
pt3dadd(81.362, 175.596, -6.8, 1.562)
pt3dadd(81.273, 175.676, -6.8, 1.572)
pt3dadd(81.179, 175.745, -6.8, 1.572)
pt3dadd(81.061, 175.766, -6.8, 1.53)
pt3dadd(80.942, 175.787, -6.8, 1.486)
pt3dadd(80.824, 175.807, -6.804, 1.43)
pt3dadd(80.707, 175.824, -6.816, 1.346)
pt3dadd(80.589, 175.841, -6.829, 1.262)
pt3dadd(80.487, 175.886, -6.856, 1.162)
pt3dadd(80.395, 175.95, -6.892, 1.054)
pt3dadd(80.328, 176.044, -6.9, 0.954)
pt3dadd(80.316, 176.164, -6.9, 0.968)
pt3dadd(80.318, 176.282, -6.9, 1.004)
pt3dadd(80.302, 176.4, -6.9, 1.02)
pt3dadd(80.233, 176.495, -6.9, 1.03)
pt3dadd(80.157, 176.587, -6.915, 1.036)
pt3dadd(80.08, 176.677, -6.929, 1.04)
pt3dadd(80.004, 176.768, -6.944, 1.046)
pt3dadd(79.928, 176.858, -6.959, 1.052)
pt3dadd(79.869, 176.959, -6.977, 1.054)
pt3dadd(79.832, 177.07, -6.999, 1.054)
pt3dadd(79.795, 177.181, -7.02, 1.054)
pt3dadd(79.757, 177.293, -7.042, 1.054)
pt3dadd(79.72, 177.403, -7.064, 1.054)
pt3dadd(79.661, 177.508, -7.073, 1.06)
pt3dadd(79.599, 177.61, -7.08, 1.064)
pt3dadd(79.537, 177.712, -7.087, 1.07)
pt3dadd(79.475, 177.814, -7.094, 1.076)
pt3dadd(79.416, 177.917, -7.1, 1.082)
pt3dadd(79.377, 178.032, -7.1, 1.106)
pt3dadd(79.339, 178.145, -7.1, 1.128)
pt3dadd(79.32, 178.262, -7.1, 1.148)
pt3dadd(79.303, 178.382, -7.1, 1.17)
pt3dadd(79.293, 178.501, -7.1, 1.18)
pt3dadd(79.289, 178.621, -7.1, 1.18)
pt3dadd(79.285, 178.741, -7.1, 1.18)
pt3dadd(79.19, 178.798, -7.113, 1.17)
pt3dadd(79.08, 178.842, -7.128, 1.158)
pt3dadd(78.997, 178.91, -7.164, 1.17)
pt3dadd(78.926, 178.997, -7.194, 1.188)
pt3dadd(78.852, 179.09, -7.203, 1.204)
pt3dadd(78.778, 179.185, -7.213, 1.22)
pt3dadd(78.705, 179.279, -7.222, 1.236)
pt3dadd(78.631, 179.372, -7.232, 1.252)
pt3dadd(78.551, 179.447, -7.271, 1.27)
pt3dadd(78.47, 179.516, -7.317, 1.288)
pt3dadd(78.389, 179.586, -7.362, 1.306)
pt3dadd(78.308, 179.656, -7.407, 1.326)
pt3dadd(78.213, 179.701, -7.452, 1.322)
pt3dadd(78.111, 179.735, -7.496, 1.31)
pt3dadd(78.034, 179.804, -7.54, 1.286)
pt3dadd(77.969, 179.89, -7.585, 1.258)
pt3dadd(77.919, 179.998, -7.594, 1.244)
pt3dadd(77.87, 180.107, -7.599, 1.232)
pt3dadd(77.818, 180.215, -7.6, 1.25)
pt3dadd(77.764, 180.322, -7.6, 1.272)
pt3dadd(77.721, 180.433, -7.6, 1.292)
pt3dadd(77.683, 180.548, -7.6, 1.306)
pt3dadd(77.648, 180.662, -7.6, 1.3)
pt3dadd(77.613, 180.778, -7.6, 1.296)
pt3dadd(77.578, 180.893, -7.6, 1.29)
pt3dadd(77.543, 181.007, -7.6, 1.286)
pt3dadd(77.508, 181.122, -7.6, 1.282)
pt3dadd(77.476, 181.237, -7.6, 1.264)
pt3dadd(77.444, 181.354, -7.6, 1.246)
}
}
proc shape3d_71() {
apic[29] { pt3dadd(77.412, 181.469, -7.6, 1.226)
pt3dadd(77.381, 181.584, -7.6, 1.208)
pt3dadd(77.349, 181.7, -7.6, 1.188)
pt3dadd(77.295, 181.804, -7.613, 1.17)
pt3dadd(77.225, 181.897, -7.636, 1.154)
pt3dadd(77.155, 181.99, -7.659, 1.136)
pt3dadd(77.085, 182.083, -7.682, 1.118)
pt3dadd(77.017, 182.178, -7.705, 1.102)
pt3dadd(76.957, 182.279, -7.727, 1.084)
pt3dadd(76.897, 182.378, -7.75, 1.068)
pt3dadd(76.837, 182.478, -7.773, 1.05)
pt3dadd(76.778, 182.579, -7.796, 1.032)
pt3dadd(76.72, 182.676, -7.831, 1.03)
pt3dadd(76.662, 182.771, -7.868, 1.03)
pt3dadd(76.605, 182.867, -7.905, 1.03)
pt3dadd(76.547, 182.962, -7.943, 1.03)
pt3dadd(76.481, 183.058, -7.962, 1.034)
pt3dadd(76.411, 183.154, -7.971, 1.038)
pt3dadd(76.341, 183.251, -7.981, 1.044)
pt3dadd(76.271, 183.348, -7.99, 1.05)
pt3dadd(76.201, 183.444, -8, 1.054)
pt3dadd(76.161, 183.558, -8.002, 1.07)
pt3dadd(76.122, 183.671, -8.004, 1.084)
pt3dadd(76.082, 183.785, -8.007, 1.098)
pt3dadd(76.043, 183.898, -8.009, 1.114)
pt3dadd(76.003, 184.012, -8.011, 1.128)
pt3dadd(75.982, 184.127, -8.027, 1.138)
pt3dadd(75.963, 184.243, -8.045, 1.148)
pt3dadd(75.944, 184.36, -8.063, 1.158)
pt3dadd(75.926, 184.476, -8.08, 1.17)
pt3dadd(75.907, 184.592, -8.098, 1.18)
pt3dadd(75.882, 184.71, -8.1, 1.184)
pt3dadd(75.856, 184.828, -8.1, 1.188)
pt3dadd(75.831, 184.945, -8.1, 1.194)
pt3dadd(75.805, 185.062, -8.1, 1.198)
pt3dadd(75.78, 185.179, -8.1, 1.202)
pt3dadd(75.731, 185.285, -8.107, 1.208)
pt3dadd(75.655, 185.376, -8.122, 1.214)
pt3dadd(75.578, 185.467, -8.136, 1.218)
pt3dadd(75.502, 185.557, -8.151, 1.224)
pt3dadd(75.426, 185.648, -8.166, 1.23)
pt3dadd(75.336, 185.72, -8.192, 1.236)
pt3dadd(75.245, 185.791, -8.22, 1.242)
pt3dadd(75.154, 185.862, -8.248, 1.248)
pt3dadd(75.063, 185.933, -8.276, 1.252)
pt3dadd(74.991, 186.017, -8.31, 1.256)
pt3dadd(74.936, 186.112, -8.35, 1.256)
pt3dadd(74.882, 186.206, -8.39, 1.256)
pt3dadd(74.827, 186.304, -8.43, 1.256)
pt3dadd(74.765, 186.398, -8.459, 1.25)
pt3dadd(74.692, 186.492, -8.469, 1.234)
pt3dadd(74.618, 186.586, -8.478, 1.218)
pt3dadd(74.544, 186.679, -8.488, 1.2)
pt3dadd(74.471, 186.774, -8.497, 1.184)
pt3dadd(74.422, 186.882, -8.5, 1.166)
pt3dadd(74.384, 186.996, -8.5, 1.148)
pt3dadd(74.346, 187.11, -8.5, 1.128)
pt3dadd(74.308, 187.223, -8.5, 1.108)
pt3dadd(74.27, 187.338, -8.5, 1.09)
pt3dadd(74.227, 187.441, -8.523, 1.068)
pt3dadd(74.178, 187.537, -8.568, 1.044)
pt3dadd(74.129, 187.631, -8.614, 1.02)
pt3dadd(74.081, 187.727, -8.66, 0.994)
pt3dadd(74.022, 187.82, -8.691, 0.976)
pt3dadd(73.945, 187.913, -8.695, 0.966)
pt3dadd(73.868, 188.005, -8.7, 0.954)
pt3dadd(73.791, 188.096, -8.705, 0.944)
pt3dadd(73.714, 188.189, -8.709, 0.934)
pt3dadd(73.649, 188.28, -8.736, 0.914)
pt3dadd(73.593, 188.371, -8.78, 0.884)
pt3dadd(73.579, 188.486, -8.793, 0.87)
pt3dadd(73.574, 188.606, -8.797, 0.86)
pt3dadd(73.559, 188.72, -8.813, 0.846)
pt3dadd(73.521, 188.821, -8.856, 0.818)
pt3dadd(73.489, 188.896, -8.923, 0.798)
pt3dadd(73.461, 188.94, -9.013, 0.784)
pt3dadd(73.392, 188.989, -9.062, 0.774)
pt3dadd(73.285, 189.041, -9.074, 0.768)
pt3dadd(73.178, 189.092, -9.086, 0.76)
pt3dadd(73.071, 189.144, -9.098, 0.754)
pt3dadd(73.017, 189.247, -9.1, 0.754)
pt3dadd(72.971, 189.359, -9.1, 0.754)
pt3dadd(72.967, 189.47, -9.121, 0.754)
pt3dadd(72.983, 189.583, -9.153, 0.754)
pt3dadd(72.999, 189.696, -9.185, 0.754)
pt3dadd(72.991, 189.803, -9.225, 0.746)
pt3dadd(72.96, 189.902, -9.274, 0.732)
pt3dadd(72.92, 190.009, -9.3, 0.702)
pt3dadd(72.887, 190.126, -9.305, 0.692)
pt3dadd(72.854, 190.24, -9.31, 0.68)
pt3dadd(72.839, 190.35, -9.344, 0.678)
pt3dadd(72.828, 190.46, -9.383, 0.678)
pt3dadd(72.75, 190.544, -9.398, 0.678)
pt3dadd(72.661, 190.624, -9.409, 0.678)
pt3dadd(72.556, 190.66, -9.441, 0.688)
pt3dadd(72.447, 190.687, -9.477, 0.7)
pt3dadd(72.367, 190.763, -9.495, 0.716)
pt3dadd(72.308, 190.867, -9.5, 0.736)
pt3dadd(72.262, 190.978, -9.5, 0.758)
pt3dadd(72.209, 191.083, -9.503, 0.78)
pt3dadd(72.115, 191.15, -9.526, 0.794)
pt3dadd(72.023, 191.21, -9.559, 0.81)
pt3dadd(71.94, 191.227, -9.629, 0.848)
pt3dadd(71.852, 191.246, -9.694, 0.886)
pt3dadd(71.74, 191.262, -9.727, 0.928)
pt3dadd(71.628, 191.278, -9.76, 0.97)
pt3dadd(71.538, 191.334, -9.802, 1.02)
pt3dadd(71.452, 191.399, -9.847, 1.07)
pt3dadd(71.367, 191.465, -9.891, 1.12)
pt3dadd(71.336, 191.573, -9.904, 1.164)
pt3dadd(71.318, 191.69, -9.909, 1.208)
pt3dadd(71.271, 191.79, -9.929, 1.23)
pt3dadd(71.199, 191.875, -9.966, 1.182)
pt3dadd(71.127, 191.962, -10, 1.126)
pt3dadd(71.048, 192.05, -10.006, 1.076)
pt3dadd(70.971, 192.14, -10.014, 1.028)
pt3dadd(70.955, 192.23, -10.079, 1.002)
pt3dadd(70.943, 192.314, -10.148, 0.98)
pt3dadd(70.951, 192.373, -10.234, 0.98)
pt3dadd(70.96, 192.434, -10.321, 0.98)
pt3dadd(70.923, 192.535, -10.364, 0.952)
pt3dadd(70.878, 192.635, -10.4, 0.912)
pt3dadd(70.783, 192.703, -10.4, 0.812)
pt3dadd(70.67, 192.742, -10.4, 0.778)
pt3dadd(70.554, 192.773, -10.4, 0.8)
pt3dadd(70.444, 192.82, -10.401, 0.8)
pt3dadd(70.354, 192.882, -10.434, 0.742)
pt3dadd(70.266, 192.922, -10.493, 0.716)
pt3dadd(70.194, 192.985, -10.548, 0.688)
pt3dadd(70.136, 193.072, -10.599, 0.66)
pt3dadd(70.098, 193.174, -10.639, 0.63)
pt3dadd(70.036, 193.264, -10.679, 0.642)
pt3dadd(69.974, 193.354, -10.719, 0.654)
pt3dadd(69.911, 193.445, -10.76, 0.666)
pt3dadd(69.849, 193.535, -10.8, 0.678)
pt3dadd(69.753, 193.59, -10.838, 0.718)
pt3dadd(69.657, 193.646, -10.876, 0.758)
pt3dadd(69.561, 193.703, -10.913, 0.798)
pt3dadd(69.465, 193.759, -10.951, 0.838)
pt3dadd(69.381, 193.836, -10.971, 0.886)
pt3dadd(69.306, 193.93, -10.978, 0.938)
pt3dadd(69.231, 194.022, -10.985, 0.992)
pt3dadd(69.156, 194.116, -10.992, 1.044)
pt3dadd(69.08, 194.209, -10.999, 1.098)
pt3dadd(68.983, 194.269, -11.025, 1.128)
pt3dadd(68.883, 194.324, -11.054, 1.156)
pt3dadd(68.782, 194.38, -11.083, 1.184)
pt3dadd(68.681, 194.435, -11.112, 1.21)
pt3dadd(68.577, 194.483, -11.14, 1.228)
pt3dadd(68.464, 194.508, -11.165, 1.218)
pt3dadd(68.35, 194.533, -11.189, 1.21)
pt3dadd(68.237, 194.561, -11.214, 1.2)
pt3dadd(68.124, 194.586, -11.239, 1.19)
pt3dadd(68.01, 194.612, -11.263, 1.182)
pt3dadd(67.903, 194.66, -11.28, 1.1)
pt3dadd(67.797, 194.713, -11.296, 1.006)
pt3dadd(67.7, 194.783, -11.3, 0.922)
pt3dadd(67.606, 194.856, -11.3, 0.84)
pt3dadd(67.549, 194.954, -11.3, 0.78)
pt3dadd(67.526, 195.072, -11.3, 0.738)
pt3dadd(67.506, 195.191, -11.3, 0.702)
pt3dadd(67.502, 195.31, -11.3, 0.692)
pt3dadd(67.499, 195.431, -11.3, 0.682)
pt3dadd(67.434, 195.511, -11.3, 0.686)
pt3dadd(67.326, 195.564, -11.3, 0.698)
pt3dadd(67.218, 195.616, -11.3, 0.71)
pt3dadd(67.11, 195.668, -11.3, 0.724)
pt3dadd(67.011, 195.734, -11.3, 0.756)
pt3dadd(66.917, 195.809, -11.3, 0.802)
pt3dadd(66.826, 195.887, -11.302, 0.856)
pt3dadd(66.741, 195.972, -11.306, 0.918)
pt3dadd(66.657, 196.056, -11.31, 0.982)
pt3dadd(66.588, 196.133, -11.352, 1.068)
pt3dadd(66.528, 196.202, -11.416, 1.17)
pt3dadd(66.522, 196.295, -11.474, 1.306)
pt3dadd(66.476, 196.394, -11.514, 1.306)
pt3dadd(66.429, 196.494, -11.554, 1.306)
pt3dadd(66.382, 196.592, -11.593, 1.306)
pt3dadd(66.335, 196.693, -11.633, 1.306)
pt3dadd(66.265, 196.787, -11.656, 1.272)
pt3dadd(66.195, 196.88, -11.679, 1.236)
pt3dadd(66.124, 196.973, -11.702, 1.202)
pt3dadd(66.054, 197.066, -11.725, 1.168)
pt3dadd(65.97, 197.141, -11.756, 1.096)
pt3dadd(65.877, 197.203, -11.792, 1.002)
pt3dadd(65.774, 197.26, -11.8, 0.938)
pt3dadd(65.667, 197.316, -11.8, 0.886)
pt3dadd(65.586, 197.394, -11.8, 0.85)
pt3dadd(65.54, 197.504, -11.8, 0.838)
pt3dadd(65.496, 197.617, -11.8, 0.824)
pt3dadd(65.458, 197.73, -11.8, 0.802)
pt3dadd(65.42, 197.844, -11.8, 0.778)
pt3dadd(65.334, 197.928, -11.8, 0.75)
pt3dadd(65.248, 198.011, -11.8, 0.722)
pt3dadd(65.162, 198.095, -11.8, 0.694)
pt3dadd(65.069, 198.169, -11.807, 0.654)
pt3dadd(64.967, 198.229, -11.823, 0.592)
pt3dadd(64.878, 198.301, -11.843, 0.546)
pt3dadd(64.815, 198.398, -11.87, 0.524)
pt3dadd(64.752, 198.496, -11.897, 0.504)
}
}
proc shape3d_72() {
apic[29] { pt3dadd(64.729, 198.612, -11.904, 0.512)
pt3dadd(64.71, 198.73, -11.909, 0.522)
pt3dadd(64.711, 198.841, -11.936, 0.546)
pt3dadd(64.726, 198.948, -11.981, 0.58)
pt3dadd(64.741, 199.054, -12.026, 0.614)
pt3dadd(64.709, 199.121, -12.089, 0.658)
pt3dadd(64.642, 199.158, -12.166, 0.712)
pt3dadd(64.574, 199.238, -12.192, 0.748)
pt3dadd(64.504, 199.337, -12.196, 0.774)
pt3dadd(64.435, 199.433, -12.2, 0.802)
pt3dadd(64.443, 199.552, -12.2, 0.812)
pt3dadd(64.455, 199.672, -12.2, 0.82)
pt3dadd(64.464, 199.79, -12.2, 0.828)
pt3dadd(64.426, 199.904, -12.2, 0.828)
pt3dadd(64.388, 200.017, -12.2, 0.828)
pt3dadd(64.346, 200.129, -12.2, 0.83)
pt3dadd(64.252, 200.203, -12.2, 0.854)
pt3dadd(64.158, 200.278, -12.2, 0.876)
pt3dadd(64.065, 200.352, -12.2, 0.958)
pt3dadd(64.004, 200.455, -12.2, 0.98)
pt3dadd(63.943, 200.558, -12.2, 1.004)
pt3dadd(63.919, 200.675, -12.2, 0.984)
pt3dadd(63.895, 200.794, -12.2, 0.962)
pt3dadd(63.867, 200.91, -12.2, 0.918)
pt3dadd(63.836, 201.026, -12.2, 0.864)
pt3dadd(63.785, 201.127, -12.208, 0.81)
pt3dadd(63.696, 201.203, -12.232, 0.758)
pt3dadd(63.633, 201.247, -12.288, 0.714)
pt3dadd(63.601, 201.252, -12.384, 0.684)
pt3dadd(63.564, 201.335, -12.44, 0.678)
pt3dadd(63.526, 201.433, -12.488, 0.678)
pt3dadd(63.489, 201.532, -12.535, 0.678)
pt3dadd(63.451, 201.63, -12.583, 0.678)
pt3dadd(63.396, 201.72, -12.629, 0.688)
pt3dadd(63.331, 201.806, -12.673, 0.702)
pt3dadd(63.303, 201.899, -12.732, 0.728)
pt3dadd(63.276, 201.99, -12.789, 0.756)
pt3dadd(63.204, 202.086, -12.795, 0.792)
pt3dadd(63.133, 202.182, -12.8, 0.83)
pt3dadd(63.109, 202.3, -12.8, 0.85)
pt3dadd(63.085, 202.417, -12.8, 0.872)
pt3dadd(63.052, 202.532, -12.8, 0.878)
pt3dadd(63.014, 202.644, -12.807, 0.878)
pt3dadd(62.972, 202.748, -12.843, 0.872)
pt3dadd(62.93, 202.852, -12.879, 0.866)
pt3dadd(62.888, 202.955, -12.916, 0.86)
pt3dadd(62.845, 203.058, -12.952, 0.854)
pt3dadd(62.797, 203.165, -12.977, 0.842)
pt3dadd(62.749, 203.27, -13, 0.828)
pt3dadd(62.687, 203.374, -13, 0.84)
pt3dadd(62.625, 203.477, -13, 0.852)
pt3dadd(62.619, 203.594, -13, 0.87)
pt3dadd(62.621, 203.713, -13, 0.888)
pt3dadd(62.625, 203.834, -13, 0.908)
pt3dadd(62.642, 203.953, -13, 0.934)
pt3dadd(62.659, 204.072, -13, 0.958)
pt3dadd(62.675, 204.19, -13.003, 0.982)
pt3dadd(62.692, 204.306, -13.023, 0.996)
pt3dadd(62.686, 204.419, -13.05, 1.002)
pt3dadd(62.655, 204.527, -13.085, 0.996)
pt3dadd(62.625, 204.635, -13.121, 0.99)
pt3dadd(62.594, 204.743, -13.156, 0.984)
pt3dadd(62.56, 204.85, -13.191, 0.978)
pt3dadd(62.483, 204.932, -13.222, 0.966)
pt3dadd(62.406, 205.018, -13.254, 0.954)
pt3dadd(62.329, 205.102, -13.285, 0.944)
pt3dadd(62.252, 205.184, -13.317, 0.932)
pt3dadd(62.199, 205.28, -13.357, 0.924)
pt3dadd(62.151, 205.376, -13.4, 0.918)
pt3dadd(62.103, 205.475, -13.443, 0.912)
pt3dadd(62.055, 205.572, -13.486, 0.906)
pt3dadd(61.997, 205.667, -13.523, 0.896)
pt3dadd(61.932, 205.759, -13.557, 0.884)
pt3dadd(61.868, 205.852, -13.592, 0.872)
pt3dadd(61.804, 205.944, -13.626, 0.86)
pt3dadd(61.755, 206.039, -13.669, 0.846)
pt3dadd(61.725, 206.136, -13.722, 0.828)
pt3dadd(61.694, 206.232, -13.775, 0.81)
pt3dadd(61.663, 206.33, -13.828, 0.792)
pt3dadd(61.618, 206.423, -13.875, 0.776)
pt3dadd(61.538, 206.504, -13.906, 0.77)
pt3dadd(61.458, 206.585, -13.938, 0.766)
pt3dadd(61.378, 206.666, -13.969, 0.76)
pt3dadd(61.298, 206.746, -14, 0.754)
pt3dadd(61.214, 206.832, -14.007, 0.764)
pt3dadd(61.13, 206.917, -14.014, 0.774)
pt3dadd(61.045, 207.002, -14.021, 0.786)
pt3dadd(60.962, 207.088, -14.028, 0.796)
pt3dadd(60.885, 207.176, -14.043, 0.806)
pt3dadd(60.834, 207.272, -14.083, 0.818)
pt3dadd(60.784, 207.371, -14.123, 0.83)
pt3dadd(60.733, 207.468, -14.163, 0.842)
pt3dadd(60.679, 207.564, -14.202, 0.852)
pt3dadd(60.591, 207.641, -14.225, 0.826)
pt3dadd(60.517, 207.715, -14.258, 0.8)
pt3dadd(60.52, 207.778, -14.343, 0.776)
pt3dadd(60.52, 207.845, -14.425, 0.754)
pt3dadd(60.492, 207.95, -14.467, 0.754)
pt3dadd(60.468, 208.057, -14.5, 0.758)
pt3dadd(60.464, 208.178, -14.5, 0.776)
pt3dadd(60.46, 208.297, -14.5, 0.796)
pt3dadd(60.409, 208.398, -14.5, 0.804)
pt3dadd(60.326, 208.484, -14.5, 0.804)
pt3dadd(60.244, 208.572, -14.5, 0.804)
pt3dadd(60.162, 208.66, -14.5, 0.802)
pt3dadd(60.087, 208.753, -14.5, 0.778)
pt3dadd(60.011, 208.847, -14.5, 0.756)
pt3dadd(59.915, 208.884, -14.547, 0.744)
pt3dadd(59.817, 208.919, -14.597, 0.734)
pt3dadd(59.733, 208.945, -14.659, 0.734)
pt3dadd(59.679, 208.952, -14.749, 0.758)
pt3dadd(59.628, 208.962, -14.838, 0.78)
pt3dadd(59.616, 209.008, -14.93, 0.816)
pt3dadd(59.603, 209.053, -15.022, 0.852)
pt3dadd(59.586, 209.117, -15.092, 0.892)
pt3dadd(59.559, 209.233, -15.102, 0.938)
pt3dadd(59.531, 209.348, -15.115, 0.984)
pt3dadd(59.501, 209.46, -15.145, 1.002)
pt3dadd(59.466, 209.57, -15.169, 0.996)
pt3dadd(59.432, 209.682, -15.194, 0.99)
pt3dadd(59.397, 209.794, -15.218, 0.986)
pt3dadd(59.363, 209.903, -15.242, 0.98)
pt3dadd(59.29, 209.988, -15.279, 0.962)
pt3dadd(59.215, 210.07, -15.316, 0.944)
pt3dadd(59.139, 210.151, -15.353, 0.926)
pt3dadd(59.063, 210.233, -15.391, 0.908)
pt3dadd(58.983, 210.304, -15.436, 0.89)
pt3dadd(58.902, 210.37, -15.484, 0.872)
pt3dadd(58.821, 210.437, -15.532, 0.854)
pt3dadd(58.739, 210.503, -15.58, 0.836)
pt3dadd(58.673, 210.59, -15.613, 0.828)
pt3dadd(58.617, 210.692, -15.636, 0.828)
pt3dadd(58.561, 210.797, -15.659, 0.828)
pt3dadd(58.505, 210.899, -15.682, 0.828)
pt3dadd(58.451, 211, -15.709, 0.83)
pt3dadd(58.405, 211.094, -15.758, 0.836)
pt3dadd(58.36, 211.188, -15.806, 0.842)
pt3dadd(58.314, 211.283, -15.855, 0.848)
pt3dadd(58.272, 211.379, -15.901, 0.854)
pt3dadd(58.273, 211.498, -15.922, 0.868)
pt3dadd(58.275, 211.614, -15.943, 0.882)
pt3dadd(58.277, 211.732, -15.963, 0.896)
pt3dadd(58.278, 211.849, -15.984, 0.91)
pt3dadd(58.28, 211.967, -16.004, 0.924)
pt3dadd(58.243, 212.075, -16.025, 0.93)
pt3dadd(58.188, 212.178, -16.045, 0.93)
pt3dadd(58.134, 212.282, -16.064, 0.93)
pt3dadd(58.079, 212.387, -16.084, 0.93)
pt3dadd(58.031, 212.494, -16.1, 0.93)
pt3dadd(58.008, 212.612, -16.1, 0.93)
pt3dadd(57.986, 212.729, -16.1, 0.93)
pt3dadd(57.963, 212.848, -16.1, 0.93)
pt3dadd(57.941, 212.965, -16.1, 0.93)
pt3dadd(57.918, 213.083, -16.1, 0.93)
pt3dadd(57.902, 213.2, -16.116, 0.922)
pt3dadd(57.888, 213.316, -16.138, 0.912)
pt3dadd(57.875, 213.432, -16.16, 0.902)
pt3dadd(57.861, 213.548, -16.183, 0.892)
pt3dadd(57.848, 213.665, -16.205, 0.882)
pt3dadd(57.836, 213.776, -16.24, 0.86)
pt3dadd(57.825, 213.886, -16.279, 0.836)
pt3dadd(57.808, 214.002, -16.292, 0.804)
pt3dadd(57.79, 214.121, -16.297, 0.772)
pt3dadd(57.763, 214.237, -16.3, 0.744)
pt3dadd(57.725, 214.351, -16.3, 0.722)
pt3dadd(57.676, 214.458, -16.3, 0.7)
pt3dadd(57.588, 214.54, -16.3, 0.69)
pt3dadd(57.5, 214.621, -16.3, 0.678)
pt3dadd(57.439, 214.724, -16.3, 0.696)
pt3dadd(57.399, 214.835, -16.304, 0.712)
pt3dadd(57.372, 214.951, -16.31, 0.726)
pt3dadd(57.345, 215.069, -16.316, 0.738)
pt3dadd(57.317, 215.186, -16.322, 0.752)
pt3dadd(57.27, 215.293, -16.338, 0.768)
pt3dadd(57.22, 215.401, -16.355, 0.784)
pt3dadd(57.17, 215.508, -16.372, 0.802)
pt3dadd(57.121, 215.616, -16.389, 0.818)
pt3dadd(57.061, 215.717, -16.4, 0.832)
pt3dadd(56.981, 215.807, -16.4, 0.842)
pt3dadd(56.901, 215.897, -16.4, 0.852)
pt3dadd(56.822, 215.987, -16.4, 0.862)
pt3dadd(56.742, 216.076, -16.4, 0.872)
pt3dadd(56.675, 216.174, -16.4, 0.888)
pt3dadd(56.63, 216.284, -16.4, 0.91)
pt3dadd(56.588, 216.397, -16.4, 0.932)
pt3dadd(56.564, 216.515, -16.4, 0.942)
pt3dadd(56.541, 216.631, -16.4, 0.952)
pt3dadd(56.458, 216.714, -16.4, 0.974)
pt3dadd(56.364, 216.788, -16.4, 0.996)
pt3dadd(56.257, 216.826, -16.418, 1.012)
pt3dadd(56.143, 216.841, -16.445, 1.022)
pt3dadd(56.042, 216.874, -16.477, 1.034)
pt3dadd(55.985, 216.964, -16.522, 1.05)
pt3dadd(55.929, 217.056, -16.568, 1.068)
pt3dadd(55.879, 217.145, -16.618, 1.08)
pt3dadd(55.846, 217.234, -16.681, 1.08)
pt3dadd(55.808, 217.308, -16.751, 1.074)
pt3dadd(55.767, 217.369, -16.83, 1.064)
pt3dadd(55.72, 217.43, -16.905, 1.05)
pt3dadd(55.632, 217.488, -16.954, 0.994)
}
}
proc shape3d_73() {
apic[29] { pt3dadd(55.536, 217.532, -16.992, 0.93)
pt3dadd(55.434, 217.577, -17.009, 0.874)
pt3dadd(55.357, 217.664, -17.032, 0.864)
pt3dadd(55.28, 217.753, -17.055, 0.852)
pt3dadd(55.203, 217.84, -17.077, 0.84)
pt3dadd(55.127, 217.928, -17.1, 0.828)
pt3dadd(55.095, 218.044, -17.1, 0.838)
pt3dadd(55.063, 218.16, -17.1, 0.848)
pt3dadd(55.032, 218.276, -17.1, 0.858)
pt3dadd(55, 218.392, -17.1, 0.866)
pt3dadd(54.968, 218.508, -17.1, 0.876)
pt3dadd(54.902, 218.604, -17.105, 0.886)
pt3dadd(54.821, 218.692, -17.112, 0.896)
pt3dadd(54.74, 218.78, -17.119, 0.908)
pt3dadd(54.659, 218.868, -17.126, 0.918)
pt3dadd(54.577, 218.956, -17.133, 0.928)
pt3dadd(54.495, 219.041, -17.147, 0.94)
pt3dadd(54.412, 219.126, -17.162, 0.95)
pt3dadd(54.329, 219.211, -17.176, 0.962)
pt3dadd(54.247, 219.296, -17.191, 0.972)
pt3dadd(54.167, 219.385, -17.2, 0.978)
pt3dadd(54.09, 219.478, -17.2, 0.972)
pt3dadd(54.013, 219.569, -17.2, 0.968)
pt3dadd(53.937, 219.662, -17.2, 0.962)
pt3dadd(53.86, 219.755, -17.2, 0.958)
pt3dadd(53.807, 219.858, -17.2, 0.954)
pt3dadd(53.784, 219.976, -17.2, 0.954)
pt3dadd(53.762, 220.093, -17.2, 0.954)
pt3dadd(53.739, 220.211, -17.2, 0.954)
pt3dadd(53.717, 220.33, -17.2, 0.954)
pt3dadd(53.694, 220.446, -17.2, 0.954)
pt3dadd(53.707, 220.561, -17.175, 0.964)
pt3dadd(53.723, 220.675, -17.148, 0.974)
pt3dadd(53.717, 220.79, -17.125, 0.992)
pt3dadd(53.687, 220.904, -17.109, 1.016)
pt3dadd(53.632, 220.998, -17.085, 1.024)
pt3dadd(53.54, 221.062, -17.049, 1.01)
pt3dadd(53.435, 221.11, -17.026, 0.976)
pt3dadd(53.321, 221.141, -17.012, 0.922)
pt3dadd(53.217, 221.188, -17, 0.872)
pt3dadd(53.16, 221.292, -17, 0.83)
pt3dadd(53.103, 221.399, -17, 0.788)
pt3dadd(53.047, 221.504, -17, 0.746)
pt3dadd(52.983, 221.605, -17, 0.7)
pt3dadd(52.915, 221.705, -17, 0.654)
pt3dadd(52.85, 221.804, -17, 0.678)
pt3dadd(52.813, 221.918, -17, 0.724)
pt3dadd(52.784, 222.035, -17, 0.752)
pt3dadd(52.755, 222.151, -17, 0.78)
pt3dadd(52.727, 222.268, -17, 0.808)
pt3dadd(52.698, 222.385, -17, 0.836)
pt3dadd(52.684, 222.502, -17, 0.864)
pt3dadd(52.695, 222.622, -17, 0.894)
pt3dadd(52.706, 222.742, -17, 0.926)
pt3dadd(52.716, 222.86, -17, 0.956)
pt3dadd(52.727, 222.98, -17, 0.986)
pt3dadd(52.738, 223.099, -17, 1.016)
pt3dadd(52.749, 223.219, -17, 1.046)
pt3dadd(52.764, 223.338, -16.997, 1.072)
pt3dadd(52.781, 223.457, -16.993, 1.098)
pt3dadd(52.797, 223.576, -16.99, 1.124)
pt3dadd(52.808, 223.688, -16.961, 1.13)
pt3dadd(52.818, 223.801, -16.927, 1.13)
pt3dadd(52.805, 223.915, -16.908, 1.104)
pt3dadd(52.772, 224.029, -16.903, 1.06)
pt3dadd(52.729, 224.141, -16.9, 1.012)
pt3dadd(52.668, 224.244, -16.9, 0.966)
pt3dadd(52.596, 224.335, -16.9, 0.912)
pt3dadd(52.486, 224.383, -16.9, 0.834)
pt3dadd(52.418, 224.47, -16.887, 0.79)
pt3dadd(52.377, 224.579, -16.865, 0.768)
pt3dadd(52.336, 224.688, -16.843, 0.746)
pt3dadd(52.295, 224.798, -16.821, 0.724)
pt3dadd(52.252, 224.905, -16.796, 0.698)
pt3dadd(52.177, 224.969, -16.74, 0.628)
pt3dadd(52.105, 225.042, -16.689, 0.564)
pt3dadd(52.043, 225.133, -16.651, 0.522)
pt3dadd(51.968, 225.221, -16.633, 0.486)
pt3dadd(51.883, 225.306, -16.633, 0.456)
pt3dadd(51.824, 225.401, -16.665, 0.464)
pt3dadd(51.773, 225.5, -16.7, 0.48)
pt3dadd(51.757, 225.619, -16.7, 0.526)
pt3dadd(51.737, 225.737, -16.709, 0.564)
pt3dadd(51.714, 225.852, -16.73, 0.59)
pt3dadd(51.691, 225.967, -16.751, 0.616)
pt3dadd(51.668, 226.081, -16.771, 0.642)
pt3dadd(51.645, 226.198, -16.792, 0.668)
pt3dadd(51.626, 226.313, -16.787, 0.694)
pt3dadd(51.61, 226.429, -16.767, 0.72)
pt3dadd(51.594, 226.546, -16.747, 0.744)
pt3dadd(51.578, 226.662, -16.727, 0.77)
pt3dadd(51.561, 226.778, -16.707, 0.796)
pt3dadd(51.567, 226.896, -16.7, 0.82)
pt3dadd(51.584, 227.015, -16.7, 0.846)
pt3dadd(51.601, 227.134, -16.7, 0.87)
pt3dadd(51.592, 227.251, -16.69, 0.878)
pt3dadd(51.57, 227.368, -16.674, 0.878)
pt3dadd(51.518, 227.465, -16.647, 0.864)
pt3dadd(51.439, 227.544, -16.61, 0.836)
pt3dadd(51.368, 227.638, -16.6, 0.802)
pt3dadd(51.3, 227.735, -16.6, 0.766)
pt3dadd(51.213, 227.807, -16.579, 0.73)
pt3dadd(51.128, 227.869, -16.536, 0.702)
pt3dadd(51.069, 227.948, -16.478, 0.694)
pt3dadd(51.01, 228.026, -16.42, 0.688)
pt3dadd(50.951, 228.106, -16.363, 0.682)
pt3dadd(50.89, 228.178, -16.303, 0.678)
pt3dadd(50.822, 228.242, -16.24, 0.678)
pt3dadd(50.742, 228.314, -16.205, 0.678)
pt3dadd(50.653, 228.394, -16.194, 0.678)
pt3dadd(50.609, 228.488, -16.169, 0.678)
pt3dadd(50.605, 228.6, -16.132, 0.678)
pt3dadd(50.595, 228.715, -16.109, 0.682)
pt3dadd(50.577, 228.833, -16.104, 0.694)
pt3dadd(50.56, 228.952, -16.1, 0.706)
pt3dadd(50.553, 229.072, -16.1, 0.72)
pt3dadd(50.537, 229.189, -16.091, 0.73)
pt3dadd(50.507, 229.302, -16.069, 0.736)
pt3dadd(50.476, 229.415, -16.048, 0.742)
pt3dadd(50.446, 229.529, -16.027, 0.746)
pt3dadd(50.416, 229.642, -16.005, 0.752)
pt3dadd(50.356, 229.744, -16, 0.75)
pt3dadd(50.286, 229.841, -16, 0.744)
pt3dadd(50.215, 229.937, -16, 0.74)
pt3dadd(50.144, 230.034, -16, 0.734)
pt3dadd(50.074, 230.131, -16, 0.73)
pt3dadd(50.035, 230.243, -15.989, 0.724)
pt3dadd(50.004, 230.358, -15.975, 0.718)
pt3dadd(49.973, 230.472, -15.962, 0.714)
pt3dadd(49.942, 230.587, -15.948, 0.708)
pt3dadd(49.911, 230.701, -15.934, 0.704)
pt3dadd(49.869, 230.792, -15.881, 0.698)
pt3dadd(49.825, 230.881, -15.824, 0.692)
pt3dadd(49.782, 230.97, -15.767, 0.686)
pt3dadd(49.738, 231.058, -15.71, 0.68)
pt3dadd(49.743, 231.161, -15.663, 0.678)
pt3dadd(49.752, 231.269, -15.623, 0.69)
pt3dadd(49.738, 231.385, -15.601, 0.748)
pt3dadd(49.7, 231.499, -15.6, 0.804)
pt3dadd(49.653, 231.61, -15.6, 0.788)
pt3dadd(49.569, 231.689, -15.587, 0.782)
pt3dadd(49.465, 231.715, -15.545, 0.84)
pt3dadd(49.384, 231.727, -15.473, 0.832)
pt3dadd(49.326, 231.736, -15.386, 0.734)
pt3dadd(49.235, 231.748, -15.327, 0.62)
pt3dadd(49.122, 231.744, -15.349, 0.566)
pt3dadd(49.012, 231.736, -15.372, 0.526)
pt3dadd(48.958, 231.686, -15.293, 0.512)
pt3dadd(48.9, 231.638, -15.215, 0.51)
pt3dadd(48.843, 231.595, -15.136, 0.544)
pt3dadd(48.836, 231.6, -15.038, 0.6)
pt3dadd(48.842, 231.648, -14.947, 0.616)
pt3dadd(48.846, 231.674, -14.85, 0.708)
pt3dadd(48.847, 231.682, -14.75, 0.878)
pt3dadd(48.859, 231.686, -14.651, 0.998)
pt3dadd(48.882, 231.698, -14.554, 1.034)
pt3dadd(48.906, 231.71, -14.457, 1.072)
pt3dadd(48.93, 231.721, -14.359, 1.108)
pt3dadd(48.954, 231.733, -14.261, 1.144)
pt3dadd(48.977, 231.745, -14.164, 1.186)
pt3dadd(48.985, 231.799, -14.074, 1.326)
pt3dadd(49.003, 231.854, -13.988, 1.356)
pt3dadd(49.052, 231.887, -13.902, 1.356)
pt3dadd(49.102, 231.899, -13.812, 1.356)
pt3dadd(49.102, 231.953, -13.729, 1.32)
pt3dadd(49.043, 232.046, -13.7, 1.282)
pt3dadd(48.952, 232.122, -13.7, 1.316)
pt3dadd(48.842, 232.17, -13.7, 1.33)
pt3dadd(48.732, 232.218, -13.7, 1.288)
pt3dadd(48.653, 232.306, -13.699, 1.232)
pt3dadd(48.601, 232.414, -13.692, 1.236)
pt3dadd(48.55, 232.522, -13.685, 1.242)
pt3dadd(48.498, 232.63, -13.678, 1.248)
pt3dadd(48.446, 232.738, -13.671, 1.252)
pt3dadd(48.399, 232.847, -13.659, 1.264)
pt3dadd(48.362, 232.957, -13.637, 1.286)
pt3dadd(48.324, 233.069, -13.615, 1.308)
pt3dadd(48.287, 233.179, -13.593, 1.33)
pt3dadd(48.25, 233.291, -13.571, 1.352)
pt3dadd(48.228, 233.378, -13.511, 1.398)
pt3dadd(48.211, 233.461, -13.439, 1.452)
pt3dadd(48.188, 233.572, -13.413, 1.478)
pt3dadd(48.165, 233.688, -13.392, 1.504)
pt3dadd(48.129, 233.791, -13.352, 1.482)
pt3dadd(48.089, 233.892, -13.311, 1.454)
pt3dadd(48.01, 233.982, -13.305, 1.418)
pt3dadd(47.931, 234.072, -13.3, 1.382)
pt3dadd(47.888, 234.184, -13.29, 1.344)
pt3dadd(47.845, 234.295, -13.281, 1.308)
pt3dadd(47.802, 234.407, -13.271, 1.272)
pt3dadd(47.791, 234.515, -13.242, 1.224)
pt3dadd(47.806, 234.622, -13.197, 1.168)
pt3dadd(47.807, 234.73, -13.159, 1.112)
pt3dadd(47.776, 234.842, -13.133, 1.054)
pt3dadd(47.746, 234.954, -13.108, 0.996)
pt3dadd(47.665, 235.031, -13.1, 0.934)
pt3dadd(47.562, 235.092, -13.1, 0.868)
pt3dadd(47.467, 235.16, -13.087, 0.812)
pt3dadd(47.384, 235.237, -13.055, 0.77)
pt3dadd(47.301, 235.315, -13.023, 0.73)
}
}
proc shape3d_74() {
apic[29] { pt3dadd(47.303, 235.4, -12.954, 0.728)
pt3dadd(47.309, 235.486, -12.884, 0.728)
pt3dadd(47.268, 235.589, -12.849, 0.756)
pt3dadd(47.223, 235.693, -12.818, 0.786)
pt3dadd(47.167, 235.795, -12.8, 0.82)
pt3dadd(47.098, 235.894, -12.8, 0.854)
pt3dadd(47.029, 235.991, -12.794, 0.866)
pt3dadd(46.946, 236.064, -12.76, 0.834)
pt3dadd(46.859, 236.126, -12.717, 0.808)
pt3dadd(46.848, 236.24, -12.707, 0.804)
pt3dadd(46.85, 236.359, -12.703, 0.804)
pt3dadd(46.849, 236.479, -12.7, 0.814)
pt3dadd(46.846, 236.599, -12.7, 0.854)
pt3dadd(46.842, 236.719, -12.7, 0.892)
pt3dadd(46.764, 236.786, -12.7, 0.938)
pt3dadd(46.652, 236.828, -12.7, 0.988)
pt3dadd(46.546, 236.88, -12.7, 1.038)
pt3dadd(46.474, 236.976, -12.7, 1.092)
pt3dadd(46.428, 237.085, -12.695, 1.116)
pt3dadd(46.39, 237.198, -12.688, 1.132)
pt3dadd(46.352, 237.312, -12.682, 1.146)
pt3dadd(46.314, 237.426, -12.675, 1.162)
pt3dadd(46.276, 237.539, -12.668, 1.176)
pt3dadd(46.203, 237.631, -12.655, 1.194)
pt3dadd(46.121, 237.716, -12.641, 1.21)
pt3dadd(46.038, 237.802, -12.626, 1.226)
pt3dadd(45.955, 237.886, -12.611, 1.242)
pt3dadd(45.876, 237.974, -12.6, 1.26)
pt3dadd(45.808, 238.074, -12.6, 1.28)
pt3dadd(45.741, 238.174, -12.6, 1.3)
pt3dadd(45.674, 238.272, -12.6, 1.32)
pt3dadd(45.606, 238.372, -12.6, 1.342)
pt3dadd(45.535, 238.468, -12.597, 1.356)
pt3dadd(45.452, 238.554, -12.588, 1.356)
pt3dadd(45.369, 238.639, -12.579, 1.356)
pt3dadd(45.287, 238.727, -12.569, 1.356)
pt3dadd(45.204, 238.812, -12.56, 1.356)
pt3dadd(45.127, 238.898, -12.534, 1.35)
pt3dadd(45.055, 238.982, -12.497, 1.338)
pt3dadd(44.982, 239.068, -12.459, 1.326)
pt3dadd(44.91, 239.152, -12.422, 1.312)
pt3dadd(44.844, 239.244, -12.4, 1.296)
pt3dadd(44.786, 239.35, -12.4, 1.27)
pt3dadd(44.728, 239.454, -12.4, 1.246)
pt3dadd(44.67, 239.56, -12.4, 1.22)
pt3dadd(44.612, 239.665, -12.4, 1.194)
pt3dadd(44.562, 239.773, -12.4, 1.124)
pt3dadd(44.551, 239.892, -12.4, 1.024)
pt3dadd(44.564, 240.011, -12.4, 1.004)
pt3dadd(44.57, 240.13, -12.4, 1.026)
pt3dadd(44.553, 240.248, -12.4, 1.058)
pt3dadd(44.484, 240.346, -12.4, 1.116)
pt3dadd(44.385, 240.408, -12.4, 1.234)
pt3dadd(44.27, 240.443, -12.4, 1.302)
pt3dadd(44.151, 240.461, -12.4, 1.282)
pt3dadd(44.032, 240.476, -12.4, 1.186)
pt3dadd(43.913, 240.493, -12.4, 1.086)
pt3dadd(43.798, 240.526, -12.4, 1.004)
pt3dadd(43.702, 240.596, -12.396, 0.978)
pt3dadd(43.614, 240.677, -12.381, 0.972)
pt3dadd(43.526, 240.755, -12.367, 0.966)
pt3dadd(43.438, 240.835, -12.352, 0.962)
pt3dadd(43.35, 240.914, -12.338, 0.956)
pt3dadd(43.242, 240.952, -12.325, 0.934)
pt3dadd(43.124, 240.968, -12.313, 0.908)
pt3dadd(43.006, 240.985, -12.3, 0.88)
pt3dadd(42.907, 241.052, -12.3, 0.824)
pt3dadd(42.808, 241.121, -12.3, 0.766)
pt3dadd(42.729, 241.196, -12.267, 0.71)
pt3dadd(42.656, 241.277, -12.222, 0.654)
pt3dadd(42.588, 241.339, -12.159, 0.624)
pt3dadd(42.529, 241.415, -12.109, 0.612)
pt3dadd(42.498, 241.531, -12.102, 0.646)
pt3dadd(42.457, 241.642, -12.082, 0.67)
pt3dadd(42.412, 241.75, -12.06, 0.692)
pt3dadd(42.368, 241.858, -12.038, 0.716)
pt3dadd(42.323, 241.966, -12.016, 0.738)
pt3dadd(42.271, 242.071, -12, 0.76)
pt3dadd(42.204, 242.17, -12, 0.786)
pt3dadd(42.136, 242.269, -12, 0.812)
pt3dadd(42.069, 242.368, -12, 0.836)
pt3dadd(42.002, 242.468, -12, 0.862)
pt3dadd(41.918, 242.545, -12, 0.888)
pt3dadd(41.804, 242.582, -12, 0.918)
pt3dadd(41.689, 242.62, -12, 0.946)
pt3dadd(41.584, 242.672, -11.988, 0.946)
pt3dadd(41.482, 242.734, -11.972, 0.932)
pt3dadd(41.451, 242.796, -11.909, 0.904)
pt3dadd(41.453, 242.86, -11.825, 0.868)
pt3dadd(41.431, 242.893, -11.735, 0.822)
pt3dadd(41.391, 242.904, -11.641, 0.766)
pt3dadd(41.328, 242.92, -11.567, 0.718)
pt3dadd(41.217, 242.94, -11.532, 0.684)
pt3dadd(41.107, 242.965, -11.5, 0.646)
pt3dadd(41.021, 243.046, -11.5, 0.578)
pt3dadd(40.961, 243.148, -11.5, 0.556)
pt3dadd(40.877, 243.233, -11.5, 0.546)
pt3dadd(40.785, 243.31, -11.5, 0.528)
pt3dadd(40.71, 243.403, -11.5, 0.534)
pt3dadd(40.636, 243.497, -11.5, 0.544)
pt3dadd(40.562, 243.592, -11.5, 0.556)
pt3dadd(40.488, 243.686, -11.5, 0.566)
pt3dadd(40.414, 243.781, -11.5, 0.576)
pt3dadd(40.326, 243.859, -11.483, 0.586)
pt3dadd(40.235, 243.931, -11.46, 0.598)
pt3dadd(40.143, 244.003, -11.438, 0.608)
pt3dadd(40.051, 244.076, -11.416, 0.62)
pt3dadd(39.963, 244.152, -11.393, 0.632)
pt3dadd(39.883, 244.237, -11.371, 0.65)
pt3dadd(39.803, 244.322, -11.348, 0.668)
pt3dadd(39.723, 244.408, -11.325, 0.684)
pt3dadd(39.643, 244.493, -11.302, 0.702)
pt3dadd(39.555, 244.574, -11.3, 0.704)
pt3dadd(39.466, 244.655, -11.3, 0.704)
pt3dadd(39.415, 244.76, -11.3, 0.704)
pt3dadd(39.377, 244.874, -11.3, 0.704)
pt3dadd(39.335, 244.986, -11.292, 0.696)
pt3dadd(39.289, 245.094, -11.275, 0.684)
pt3dadd(39.249, 245.179, -11.225, 0.67)
pt3dadd(39.214, 245.244, -11.145, 0.656)
pt3dadd(39.161, 245.3, -11.069, 0.652)
pt3dadd(39.084, 245.36, -11.018, 0.652)
pt3dadd(38.992, 245.429, -10.987, 0.652)
pt3dadd(38.901, 245.497, -10.957, 0.652)
pt3dadd(38.809, 245.566, -10.927, 0.652)
pt3dadd(38.715, 245.632, -10.9, 0.656)
pt3dadd(38.608, 245.687, -10.9, 0.69)
pt3dadd(38.502, 245.743, -10.9, 0.72)
pt3dadd(38.425, 245.831, -10.9, 0.756)
pt3dadd(38.357, 245.929, -10.9, 0.792)
pt3dadd(38.321, 246.041, -10.897, 0.846)
pt3dadd(38.302, 246.16, -10.892, 0.91)
pt3dadd(38.293, 246.276, -10.878, 0.972)
pt3dadd(38.303, 246.389, -10.843, 1.028)
pt3dadd(38.309, 246.5, -10.811, 1.082)
pt3dadd(38.267, 246.612, -10.802, 1.118)
pt3dadd(38.211, 246.718, -10.8, 1.116)
pt3dadd(38.15, 246.821, -10.8, 1.096)
pt3dadd(38.089, 246.924, -10.8, 1.076)
pt3dadd(38.028, 247.028, -10.8, 1.056)
pt3dadd(37.967, 247.132, -10.8, 1.036)
pt3dadd(37.918, 247.238, -10.786, 1.006)
pt3dadd(37.874, 247.348, -10.767, 0.974)
pt3dadd(37.831, 247.457, -10.747, 0.94)
pt3dadd(37.787, 247.566, -10.728, 0.908)
pt3dadd(37.742, 247.675, -10.711, 0.876)
pt3dadd(37.686, 247.782, -10.708, 0.856)
pt3dadd(37.63, 247.888, -10.706, 0.836)
pt3dadd(37.574, 247.993, -10.704, 0.814)
pt3dadd(37.518, 248.1, -10.702, 0.794)
pt3dadd(37.472, 248.208, -10.697, 0.778)
pt3dadd(37.465, 248.327, -10.68, 0.772)
pt3dadd(37.459, 248.444, -10.663, 0.768)
pt3dadd(37.453, 248.562, -10.646, 0.764)
pt3dadd(37.446, 248.681, -10.629, 0.758)
pt3dadd(37.44, 248.798, -10.613, 0.754)
pt3dadd(37.436, 248.918, -10.609, 0.754)
pt3dadd(37.433, 249.038, -10.608, 0.754)
pt3dadd(37.43, 249.16, -10.606, 0.754)
pt3dadd(37.426, 249.278, -10.604, 0.754)
pt3dadd(37.423, 249.398, -10.602, 0.754)
pt3dadd(37.419, 249.518, -10.6, 0.754)
pt3dadd(37.4, 249.629, -10.565, 0.758)
pt3dadd(37.38, 249.738, -10.529, 0.764)
pt3dadd(37.36, 249.848, -10.492, 0.77)
pt3dadd(37.34, 249.958, -10.455, 0.776)
pt3dadd(37.328, 250.072, -10.431, 0.778)
pt3dadd(37.329, 250.192, -10.425, 0.778)
pt3dadd(37.33, 250.31, -10.42, 0.778)
pt3dadd(37.331, 250.43, -10.414, 0.778)
pt3dadd(37.332, 250.55, -10.409, 0.778)
pt3dadd(37.333, 250.67, -10.403, 0.778)
pt3dadd(37.322, 250.789, -10.4, 0.776)
pt3dadd(37.296, 250.907, -10.4, 0.772)
pt3dadd(37.271, 251.024, -10.4, 0.768)
pt3dadd(37.245, 251.141, -10.4, 0.762)
pt3dadd(37.22, 251.258, -10.4, 0.758)
pt3dadd(37.194, 251.376, -10.4, 0.754)
pt3dadd(37.211, 251.495, -10.4, 0.746)
pt3dadd(37.228, 251.614, -10.4, 0.738)
pt3dadd(37.245, 251.732, -10.4, 0.732)
pt3dadd(37.261, 251.851, -10.4, 0.724)
pt3dadd(37.278, 251.97, -10.4, 0.718)
pt3dadd(37.295, 252.089, -10.4, 0.71)
pt3dadd(37.311, 252.208, -10.4, 0.704)
pt3dadd(37.328, 252.326, -10.4, 0.71)
pt3dadd(37.345, 252.445, -10.4, 0.718)
pt3dadd(37.361, 252.564, -10.4, 0.724)
pt3dadd(37.378, 252.683, -10.4, 0.732)
pt3dadd(37.395, 252.802, -10.4, 0.74)
pt3dadd(37.412, 252.92, -10.4, 0.746)
pt3dadd(37.428, 253.039, -10.4, 0.754)
pt3dadd(37.445, 253.158, -10.4, 0.768)
pt3dadd(37.462, 253.277, -10.4, 0.782)
pt3dadd(37.478, 253.396, -10.4, 0.796)
pt3dadd(37.495, 253.514, -10.4, 0.81)
pt3dadd(37.512, 253.633, -10.4, 0.826)
pt3dadd(37.528, 253.752, -10.4, 0.84)
pt3dadd(37.546, 253.871, -10.4, 0.854)
pt3dadd(37.614, 253.969, -10.4, 0.864)
}
}
proc shape3d_75() {
apic[29] { pt3dadd(37.682, 254.069, -10.4, 0.874)
pt3dadd(37.75, 254.167, -10.4, 0.882)
pt3dadd(37.818, 254.267, -10.4, 0.892)
pt3dadd(37.886, 254.365, -10.4, 0.902)
pt3dadd(37.96, 254.459, -10.4, 0.884)
pt3dadd(38.037, 254.551, -10.4, 0.86)
pt3dadd(38.114, 254.645, -10.4, 0.836)
pt3dadd(38.19, 254.737, -10.4, 0.81)
pt3dadd(38.267, 254.828, -10.4, 0.786)
pt3dadd(38.33, 254.93, -10.401, 0.748)
pt3dadd(38.388, 255.035, -10.404, 0.706)
pt3dadd(38.445, 255.14, -10.406, 0.664)
pt3dadd(38.503, 255.245, -10.408, 0.622)
pt3dadd(38.561, 255.352, -10.41, 0.58)
pt3dadd(38.615, 255.452, -10.426, 0.538)
pt3dadd(38.665, 255.55, -10.469, 0.498)
pt3dadd(38.715, 255.646, -10.512, 0.46)
pt3dadd(38.765, 255.742, -10.554, 0.42)
pt3dadd(38.815, 255.839, -10.597, 0.38)
pt3dadd(38.89, 255.931, -10.605, 0.354)
pt3dadd(38.967, 256.022, -10.61, 0.33)
pt3dadd(39.027, 256.102, -10.663, 0.362)
pt3dadd(39.081, 256.176, -10.726, 0.404)
pt3dadd(39.09, 256.242, -10.808, 0.45)
pt3dadd(39.1, 256.31, -10.891, 0.496)
pt3dadd(39.084, 256.369, -10.976, 0.536)
pt3dadd(39.064, 256.428, -11.062, 0.576)
pt3dadd(38.966, 256.482, -11.09, 0.578)
pt3dadd(38.87, 256.549, -11.11, 0.532)
pt3dadd(38.803, 256.603, -11.174, 0.478)
pt3dadd(38.783, 256.644, -11.266, 0.502)
pt3dadd(38.794, 256.724, -11.34, 0.518)
pt3dadd(38.809, 256.829, -11.382, 0.484)
pt3dadd(38.826, 256.946, -11.398, 0.456)
pt3dadd(38.842, 257.064, -11.389, 0.452)
pt3dadd(38.887, 257.161, -11.352, 0.5)
pt3dadd(38.986, 257.196, -11.311, 0.58)
pt3dadd(39.098, 257.232, -11.3, 0.592)
pt3dadd(39.184, 257.312, -11.3, 0.564)
pt3dadd(39.258, 257.406, -11.3, 0.54)
pt3dadd(39.338, 257.496, -11.3, 0.518)
pt3dadd(39.426, 257.578, -11.3, 0.494)
pt3dadd(39.498, 257.67, -11.301, 0.478)
pt3dadd(39.529, 257.785, -11.306, 0.478)
pt3dadd(39.561, 257.9, -11.31, 0.478)
pt3dadd(39.581, 257.978, -11.371, 0.502)
pt3dadd(39.596, 258.04, -11.456, 0.538)
pt3dadd(39.64, 258.055, -11.54, 0.574)
pt3dadd(39.702, 258.041, -11.625, 0.61)
pt3dadd(39.782, 258.006, -11.684, 0.668)
pt3dadd(39.878, 257.938, -11.7, 0.64)
pt3dadd(39.99, 257.897, -11.7, 0.57)
pt3dadd(40.107, 257.873, -11.694, 0.514)
pt3dadd(40.223, 257.856, -11.672, 0.52)
pt3dadd(40.334, 257.856, -11.637, 0.556)
pt3dadd(40.446, 257.86, -11.599, 0.592)
pt3dadd(40.542, 257.905, -11.559, 0.614)
pt3dadd(40.629, 257.97, -11.526, 0.626)
pt3dadd(40.678, 258.068, -11.565, 0.604)
pt3dadd(40.695, 258.175, -11.609, 0.514)
pt3dadd(40.718, 258.277, -11.656, 0.46)
pt3dadd(40.773, 258.372, -11.695, 0.472)
pt3dadd(40.839, 258.462, -11.73, 0.658)
pt3dadd(40.861, 258.572, -11.761, 0.716)
pt3dadd(40.879, 258.685, -11.792, 0.756)
pt3dadd(40.897, 258.799, -11.822, 0.798)
pt3dadd(40.916, 258.911, -11.852, 0.84)
pt3dadd(40.934, 259.024, -11.883, 0.88)
pt3dadd(40.951, 259.139, -11.901, 0.92)
pt3dadd(40.968, 259.258, -11.902, 0.956)
pt3dadd(40.985, 259.376, -11.904, 0.992)
pt3dadd(41.001, 259.495, -11.906, 1.03)
pt3dadd(41.018, 259.614, -11.907, 1.066)
pt3dadd(41.035, 259.733, -11.909, 1.102)
pt3dadd(41.052, 259.852, -11.91, 1.138)
pt3dadd(41.068, 259.968, -11.926, 1.18)
pt3dadd(41.084, 260.082, -11.954, 1.224)
pt3dadd(41.1, 260.196, -11.981, 1.268)
pt3dadd(41.116, 260.311, -12.009, 1.312)
pt3dadd(41.132, 260.426, -12.036, 1.356)
pt3dadd(41.148, 260.54, -12.064, 1.4)
pt3dadd(41.142, 260.652, -12.098, 1.444)
pt3dadd(41.132, 260.764, -12.133, 1.486)
pt3dadd(41.122, 260.875, -12.168, 1.528)
pt3dadd(41.112, 260.988, -12.203, 1.57)
pt3dadd(41.106, 261.098, -12.24, 1.608)
pt3dadd(41.12, 261.199, -12.293, 1.608)
pt3dadd(41.134, 261.3, -12.345, 1.608)
pt3dadd(41.148, 261.402, -12.397, 1.608)
pt3dadd(41.163, 261.504, -12.45, 1.608)
pt3dadd(41.177, 261.605, -12.501, 1.606)
pt3dadd(41.19, 261.718, -12.532, 1.568)
pt3dadd(41.204, 261.833, -12.562, 1.532)
pt3dadd(41.217, 261.946, -12.593, 1.496)
pt3dadd(41.231, 262.058, -12.623, 1.458)
pt3dadd(41.244, 262.172, -12.653, 1.422)
pt3dadd(41.243, 262.272, -12.705, 1.364)
pt3dadd(41.231, 262.358, -12.773, 1.29)
pt3dadd(41.219, 262.446, -12.841, 1.216)
pt3dadd(41.207, 262.532, -12.909, 1.142)
pt3dadd(41.199, 262.624, -12.973, 1.07)
pt3dadd(41.214, 262.73, -13.015, 1.008)
pt3dadd(41.229, 262.838, -13.057, 0.946)
pt3dadd(41.244, 262.946, -13.1, 0.884)
pt3dadd(41.259, 263.053, -13.142, 0.822)
pt3dadd(41.274, 263.161, -13.184, 0.76)
pt3dadd(41.298, 263.276, -13.197, 0.712)
pt3dadd(41.322, 263.395, -13.206, 0.666)
pt3dadd(41.347, 263.512, -13.215, 0.622)
pt3dadd(41.372, 263.629, -13.224, 0.576)
pt3dadd(41.396, 263.746, -13.233, 0.53)
pt3dadd(41.448, 263.854, -13.227, 0.508)
pt3dadd(41.502, 263.959, -13.221, 0.49)
pt3dadd(41.555, 264.067, -13.215, 0.47)
pt3dadd(41.609, 264.175, -13.208, 0.452)
pt3dadd(41.662, 264.281, -13.202, 0.434)
pt3dadd(41.708, 264.388, -13.222, 0.438)
pt3dadd(41.751, 264.492, -13.255, 0.454)
pt3dadd(41.795, 264.598, -13.288, 0.47)
pt3dadd(41.838, 264.701, -13.321, 0.486)
pt3dadd(41.881, 264.806, -13.354, 0.502)
pt3dadd(41.919, 264.92, -13.363, 0.524)
pt3dadd(41.956, 265.033, -13.371, 0.546)
pt3dadd(41.993, 265.147, -13.379, 0.568)
pt3dadd(42.031, 265.261, -13.387, 0.59)
pt3dadd(42.068, 265.374, -13.394, 0.612)
pt3dadd(42.108, 265.487, -13.4, 0.662)
pt3dadd(42.167, 265.591, -13.4, 0.744)
pt3dadd(42.221, 265.698, -13.4, 0.754)
pt3dadd(42.253, 265.813, -13.4, 0.752)
pt3dadd(42.27, 265.932, -13.4, 0.728)
pt3dadd(42.286, 266.048, -13.416, 0.694)
pt3dadd(42.298, 266.136, -13.478, 0.64)
pt3dadd(42.302, 266.164, -13.573, 0.61)
pt3dadd(42.303, 266.167, -13.673, 0.622)
pt3dadd(42.303, 266.167, -13.773, 0.646)
pt3dadd(42.313, 266.166, -13.873, 0.674)
pt3dadd(42.356, 266.179, -13.963, 0.708)
pt3dadd(42.45, 266.232, -13.998, 0.748)
pt3dadd(42.533, 266.316, -13.997, 0.69)
pt3dadd(42.576, 266.424, -13.975, 0.62)
pt3dadd(42.596, 266.531, -13.933, 0.602)
pt3dadd(42.615, 266.645, -13.908, 0.602)
pt3dadd(42.66, 266.741, -13.925, 0.608)
pt3dadd(42.724, 266.809, -13.989, 0.622)
pt3dadd(42.752, 266.87, -14.067, 0.644)
pt3dadd(42.76, 266.929, -14.155, 0.668)
pt3dadd(42.713, 266.972, -14.229, 0.714)
pt3dadd(42.63, 267.008, -14.295, 0.774)
pt3dadd(42.583, 267.077, -14.366, 0.852)
pt3dadd(42.617, 267.164, -14.394, 0.928)
pt3dadd(42.695, 267.254, -14.405, 0.99)
pt3dadd(42.79, 267.313, -14.436, 1.002)
pt3dadd(42.868, 267.383, -14.484, 0.98)
pt3dadd(42.959, 267.457, -14.5, 1.02)
pt3dadd(43.053, 267.53, -14.504, 1.062)
pt3dadd(43.153, 267.595, -14.511, 1.078)
pt3dadd(43.253, 267.661, -14.518, 1.094)
pt3dadd(43.353, 267.727, -14.525, 1.11)
pt3dadd(43.454, 267.792, -14.532, 1.126)
pt3dadd(43.556, 267.853, -14.545, 1.138)
pt3dadd(43.658, 267.912, -14.559, 1.15)
pt3dadd(43.761, 267.972, -14.574, 1.16)
pt3dadd(43.864, 268.031, -14.589, 1.172)
pt3dadd(43.966, 268.092, -14.6, 1.18)
pt3dadd(44.068, 268.157, -14.6, 1.174)
pt3dadd(44.169, 268.222, -14.6, 1.168)
pt3dadd(44.27, 268.285, -14.6, 1.164)
pt3dadd(44.372, 268.35, -14.6, 1.158)
pt3dadd(44.469, 268.412, -14.612, 1.15)
pt3dadd(44.557, 268.474, -14.658, 1.132)
pt3dadd(44.645, 268.534, -14.704, 1.114)
pt3dadd(44.733, 268.594, -14.751, 1.094)
pt3dadd(44.823, 268.648, -14.796, 1.068)
pt3dadd(44.928, 268.676, -14.838, 1)
pt3dadd(45.034, 268.714, -14.872, 0.934)
pt3dadd(45.138, 268.769, -14.889, 0.87)
pt3dadd(45.226, 268.842, -14.902, 0.804)
pt3dadd(45.282, 268.946, -14.907, 0.736)
pt3dadd(45.336, 269.05, -14.92, 0.67)
pt3dadd(45.367, 269.122, -14.995, 0.604)
pt3dadd(45.395, 269.202, -15.063, 0.54)
pt3dadd(45.411, 269.312, -15.098, 0.474)
pt3dadd(45.443, 269.419, -15.136, 0.428)
pt3dadd(45.484, 269.521, -15.175, 0.39)
pt3dadd(45.565, 269.594, -15.204, 0.36)
pt3dadd(45.666, 269.652, -15.228, 0.332)
pt3dadd(45.755, 269.726, -15.251, 0.326)
pt3dadd(45.842, 269.801, -15.255, 0.34)
pt3dadd(45.934, 269.863, -15.218, 0.382)
pt3dadd(46.028, 269.932, -15.2, 0.44)
pt3dadd(46.126, 269.999, -15.203, 0.506)
pt3dadd(46.237, 270.036, -15.224, 0.54)
pt3dadd(46.348, 270.074, -15.246, 0.572)
pt3dadd(46.459, 270.11, -15.268, 0.604)
pt3dadd(46.57, 270.149, -15.29, 0.638)
pt3dadd(46.686, 270.164, -15.3, 0.664)
pt3dadd(46.806, 270.163, -15.3, 0.684)
pt3dadd(46.926, 270.162, -15.3, 0.704)
pt3dadd(47.046, 270.16, -15.3, 0.724)
}
}
proc shape3d_76() {
apic[29] { pt3dadd(47.166, 270.157, -15.3, 0.744)
pt3dadd(47.286, 270.156, -15.3, 0.764)
pt3dadd(47.403, 270.168, -15.3, 0.786)
pt3dadd(47.511, 270.22, -15.3, 0.81)
pt3dadd(47.619, 270.271, -15.3, 0.834)
pt3dadd(47.728, 270.323, -15.3, 0.86)
pt3dadd(47.836, 270.374, -15.3, 0.884)
pt3dadd(47.946, 270.422, -15.3, 0.906)
pt3dadd(48.058, 270.464, -15.3, 0.916)
pt3dadd(48.171, 270.506, -15.3, 0.926)
pt3dadd(48.284, 270.547, -15.3, 0.936)
pt3dadd(48.396, 270.589, -15.3, 0.944)
pt3dadd(48.508, 270.631, -15.3, 0.954)
pt3dadd(48.6, 270.708, -15.3, 0.96)
pt3dadd(48.692, 270.785, -15.3, 0.964)
pt3dadd(48.784, 270.862, -15.3, 0.97)
pt3dadd(48.877, 270.938, -15.3, 0.974)
pt3dadd(48.969, 271.014, -15.303, 0.978)
pt3dadd(49.065, 271.072, -15.341, 0.972)
pt3dadd(49.16, 271.128, -15.378, 0.966)
pt3dadd(49.255, 271.187, -15.415, 0.96)
pt3dadd(49.35, 271.243, -15.453, 0.954)
pt3dadd(49.427, 271.288, -15.52, 0.938)
pt3dadd(49.502, 271.328, -15.59, 0.92)
pt3dadd(49.576, 271.37, -15.66, 0.9)
pt3dadd(49.651, 271.412, -15.73, 0.882)
pt3dadd(49.728, 271.417, -15.805, 0.84)
pt3dadd(49.806, 271.414, -15.881, 0.79)
pt3dadd(49.88, 271.438, -15.955, 0.736)
pt3dadd(49.952, 271.472, -16.03, 0.68)
pt3dadd(49.96, 271.506, -16.125, 0.648)
pt3dadd(49.965, 271.537, -16.221, 0.618)
pt3dadd(49.971, 271.582, -16.314, 0.58)
pt3dadd(49.978, 271.633, -16.403, 0.534)
pt3dadd(49.973, 271.69, -16.49, 0.478)
pt3dadd(49.938, 271.75, -16.572, 0.4)
pt3dadd(49.903, 271.804, -16.656, 0.378)
pt3dadd(49.867, 271.858, -16.74, 0.354)
pt3dadd(49.831, 271.913, -16.824, 0.332)
pt3dadd(49.796, 271.967, -16.908, 0.308)
pt3dadd(49.787, 272, -17.002, 0.27)
pt3dadd(49.791, 272.022, -17.1, 0.226)
}
apic[30] {pt3dclear()
pt3dadd(81.946, 173.172, -7.056, 2.034)
pt3dadd(81.926, 173.173, -7.07, 2.004)
pt3dadd(81.836, 173.176, -7.136, 1.87)
pt3dadd(81.746, 173.178, -7.203, 1.736)
pt3dadd(81.657, 173.18, -7.269, 1.6)
pt3dadd(81.567, 173.184, -7.335, 1.466)
pt3dadd(81.477, 173.185, -7.401, 1.33)
pt3dadd(81.387, 173.188, -7.467, 1.196)
pt3dadd(81.331, 173.191, -7.55, 1.13)
pt3dadd(81.309, 173.194, -7.648, 1.13)
pt3dadd(81.287, 173.197, -7.746, 1.13)
pt3dadd(81.265, 173.201, -7.845, 1.13)
pt3dadd(81.243, 173.203, -7.943, 1.13)
pt3dadd(81.221, 173.207, -8.041, 1.13)
pt3dadd(81.169, 173.214, -8.127, 1.124)
pt3dadd(81.088, 173.225, -8.2, 1.112)
pt3dadd(81.012, 173.236, -8.276, 1.096)
pt3dadd(80.945, 173.245, -8.359, 1.072)
pt3dadd(80.87, 173.256, -8.434, 1.046)
pt3dadd(80.767, 173.27, -8.485, 1.012)
pt3dadd(80.664, 173.285, -8.534, 0.978)
pt3dadd(80.55, 173.3, -8.562, 0.958)
pt3dadd(80.436, 173.317, -8.589, 0.936)
pt3dadd(80.322, 173.333, -8.617, 0.93)
pt3dadd(80.207, 173.35, -8.644, 0.93)
pt3dadd(80.104, 173.364, -8.694, 0.934)
pt3dadd(80.001, 173.378, -8.744, 0.938)
pt3dadd(79.898, 173.393, -8.794, 0.944)
pt3dadd(79.795, 173.407, -8.844, 0.948)
pt3dadd(79.692, 173.422, -8.894, 0.954)
pt3dadd(79.583, 173.43, -8.934, 0.958)
pt3dadd(79.473, 173.437, -8.974, 0.964)
pt3dadd(79.363, 173.444, -9.013, 0.968)
pt3dadd(79.253, 173.453, -9.052, 0.974)
pt3dadd(79.143, 173.46, -9.091, 0.978)
pt3dadd(79.026, 173.447, -9.105, 0.976)
pt3dadd(78.908, 173.429, -9.111, 0.97)
pt3dadd(78.789, 173.41, -9.117, 0.966)
pt3dadd(78.671, 173.392, -9.123, 0.962)
pt3dadd(78.553, 173.374, -9.13, 0.956)
pt3dadd(78.446, 173.365, -9.161, 0.944)
pt3dadd(78.355, 173.37, -9.226, 0.92)
pt3dadd(78.254, 173.381, -9.271, 0.896)
pt3dadd(78.137, 173.398, -9.284, 0.878)
pt3dadd(78.018, 173.414, -9.296, 0.86)
pt3dadd(77.903, 173.426, -9.32, 0.854)
pt3dadd(77.789, 173.437, -9.349, 0.854)
pt3dadd(77.686, 173.411, -9.373, 0.864)
pt3dadd(77.605, 173.326, -9.39, 0.89)
pt3dadd(77.521, 173.242, -9.4, 0.926)
pt3dadd(77.434, 173.16, -9.4, 0.98)
pt3dadd(77.317, 173.143, -9.42, 0.984)
pt3dadd(77.201, 173.126, -9.44, 0.99)
pt3dadd(77.085, 173.111, -9.461, 0.994)
pt3dadd(76.968, 173.095, -9.481, 1)
pt3dadd(76.851, 173.08, -9.5, 1.004)
pt3dadd(76.732, 173.076, -9.513, 1)
pt3dadd(76.613, 173.074, -9.525, 0.996)
pt3dadd(76.494, 173.071, -9.537, 0.99)
pt3dadd(76.375, 173.069, -9.549, 0.986)
pt3dadd(76.256, 173.066, -9.561, 0.982)
pt3dadd(76.145, 173.068, -9.591, 0.97)
pt3dadd(76.041, 173.075, -9.641, 0.948)
pt3dadd(75.937, 173.081, -9.691, 0.928)
pt3dadd(75.833, 173.087, -9.741, 0.908)
pt3dadd(75.729, 173.094, -9.791, 0.888)
pt3dadd(75.634, 173.093, -9.851, 0.866)
pt3dadd(75.544, 173.087, -9.917, 0.844)
pt3dadd(75.454, 173.083, -9.983, 0.822)
pt3dadd(75.365, 173.077, -10.049, 0.8)
pt3dadd(75.277, 173.072, -10.117, 0.776)
pt3dadd(75.216, 173.081, -10.203, 0.73)
pt3dadd(75.156, 173.089, -10.289, 0.684)
pt3dadd(75.107, 173.08, -10.38, 0.646)
pt3dadd(75.06, 173.066, -10.471, 0.61)
pt3dadd(74.956, 173.048, -10.497, 0.584)
pt3dadd(74.838, 173.029, -10.507, 0.562)
pt3dadd(74.728, 173.003, -10.535, 0.552)
pt3dadd(74.623, 172.974, -10.577, 0.552)
pt3dadd(74.507, 172.96, -10.594, 0.574)
pt3dadd(74.388, 172.955, -10.6, 0.604)
pt3dadd(74.269, 172.972, -10.6, 0.622)
pt3dadd(74.15, 172.988, -10.6, 0.638)
pt3dadd(74.032, 173.005, -10.603, 0.654)
pt3dadd(73.918, 173.021, -10.631, 0.664)
pt3dadd(73.803, 173.038, -10.658, 0.674)
pt3dadd(73.697, 173.052, -10.702, 0.678)
pt3dadd(73.595, 173.066, -10.753, 0.678)
pt3dadd(73.5, 173.08, -10.812, 0.684)
pt3dadd(73.413, 173.092, -10.88, 0.696)
pt3dadd(73.331, 173.104, -10.952, 0.716)
pt3dadd(73.256, 173.114, -11.03, 0.752)
pt3dadd(73.2, 173.122, -11.118, 0.762)
pt3dadd(73.143, 173.13, -11.206, 0.772)
pt3dadd(73.087, 173.138, -11.294, 0.782)
pt3dadd(73.031, 173.146, -11.382, 0.792)
pt3dadd(72.975, 173.154, -11.47, 0.802)
pt3dadd(72.892, 173.165, -11.54, 0.804)
pt3dadd(72.802, 173.178, -11.605, 0.804)
pt3dadd(72.711, 173.191, -11.67, 0.804)
pt3dadd(72.621, 173.203, -11.735, 0.804)
pt3dadd(72.53, 173.216, -11.799, 0.804)
pt3dadd(72.423, 173.231, -11.842, 0.796)
pt3dadd(72.313, 173.246, -11.879, 0.786)
pt3dadd(72.203, 173.262, -11.916, 0.778)
pt3dadd(72.093, 173.278, -11.953, 0.768)
pt3dadd(71.982, 173.293, -11.99, 0.758)
pt3dadd(71.87, 173.309, -12.021, 0.752)
pt3dadd(71.754, 173.326, -12.044, 0.748)
pt3dadd(71.638, 173.341, -12.067, 0.742)
pt3dadd(71.522, 173.358, -12.09, 0.738)
pt3dadd(71.407, 173.374, -12.113, 0.734)
pt3dadd(71.291, 173.39, -12.135, 0.73)
pt3dadd(71.183, 173.406, -12.175, 0.732)
pt3dadd(71.08, 173.42, -12.225, 0.736)
pt3dadd(70.977, 173.435, -12.275, 0.742)
pt3dadd(70.874, 173.449, -12.325, 0.746)
pt3dadd(70.771, 173.464, -12.374, 0.75)
pt3dadd(70.665, 173.478, -12.418, 0.762)
pt3dadd(70.554, 173.494, -12.455, 0.782)
pt3dadd(70.444, 173.509, -12.492, 0.8)
pt3dadd(70.334, 173.525, -12.53, 0.818)
pt3dadd(70.223, 173.54, -12.567, 0.838)
pt3dadd(70.112, 173.556, -12.6, 0.858)
pt3dadd(69.993, 173.573, -12.604, 0.902)
pt3dadd(69.875, 173.59, -12.608, 0.944)
pt3dadd(69.758, 173.606, -12.619, 0.99)
pt3dadd(69.648, 173.621, -12.658, 1.046)
pt3dadd(69.539, 173.636, -12.697, 1.1)
pt3dadd(69.481, 173.645, -12.782, 1.116)
pt3dadd(69.428, 173.652, -12.872, 1.126)
pt3dadd(69.401, 173.656, -12.968, 1.098)
pt3dadd(69.387, 173.658, -13.067, 1.052)
pt3dadd(69.372, 173.66, -13.166, 1.004)
pt3dadd(69.261, 173.676, -13.201, 0.946)
pt3dadd(69.149, 173.692, -13.235, 0.888)
pt3dadd(69.037, 173.707, -13.269, 0.832)
pt3dadd(68.925, 173.723, -13.302, 0.772)
pt3dadd(68.808, 173.74, -13.319, 0.694)
pt3dadd(68.691, 173.755, -13.336, 0.616)
pt3dadd(68.584, 173.771, -13.373, 0.56)
pt3dadd(68.487, 173.784, -13.431, 0.526)
pt3dadd(68.391, 173.798, -13.49, 0.49)
pt3dadd(68.317, 173.808, -13.565, 0.478)
pt3dadd(68.257, 173.816, -13.651, 0.478)
pt3dadd(68.224, 173.827, -13.743, 0.514)
pt3dadd(68.225, 173.857, -13.84, 0.576)
pt3dadd(68.225, 173.899, -13.933, 0.622)
pt3dadd(68.199, 173.935, -14.019, 0.664)
pt3dadd(68.11, 173.954, -14.084, 0.7)
pt3dadd(68.014, 173.972, -14.14, 0.73)
pt3dadd(67.9, 173.988, -14.167, 0.742)
pt3dadd(67.786, 174.004, -14.195, 0.752)
pt3dadd(67.672, 174.02, -14.222, 0.77)
pt3dadd(67.557, 174.036, -14.25, 0.792)
pt3dadd(67.467, 174.049, -14.301, 0.82)
pt3dadd(67.414, 174.056, -14.391, 0.86)
pt3dadd(67.36, 174.064, -14.48, 0.9)
}
}
proc shape3d_77() {
apic[30] { pt3dadd(67.307, 174.072, -14.57, 0.94)
pt3dadd(67.263, 174.078, -14.662, 1.018)
pt3dadd(67.224, 174.083, -14.757, 1.114)
pt3dadd(67.161, 174.092, -14.829, 1.2)
pt3dadd(67.046, 174.108, -14.853, 1.27)
pt3dadd(66.93, 174.125, -14.876, 1.338)
pt3dadd(66.815, 174.14, -14.9, 1.406)
pt3dadd(66.7, 174.157, -14.927, 1.438)
pt3dadd(66.586, 174.173, -14.955, 1.468)
pt3dadd(66.476, 174.188, -14.992, 1.444)
pt3dadd(66.377, 174.202, -15.047, 1.398)
pt3dadd(66.28, 174.216, -15.105, 1.358)
pt3dadd(66.183, 174.229, -15.162, 1.318)
pt3dadd(66.086, 174.244, -15.22, 1.278)
pt3dadd(65.989, 174.257, -15.277, 1.238)
pt3dadd(65.875, 174.274, -15.299, 1.204)
pt3dadd(65.758, 174.293, -15.312, 1.172)
pt3dadd(65.64, 174.312, -15.324, 1.14)
pt3dadd(65.523, 174.331, -15.337, 1.106)
pt3dadd(65.405, 174.349, -15.349, 1.074)
pt3dadd(65.287, 174.367, -15.362, 1.042)
pt3dadd(65.176, 174.408, -15.371, 1.006)
pt3dadd(65.069, 174.462, -15.377, 0.968)
pt3dadd(64.962, 174.515, -15.383, 0.93)
pt3dadd(64.855, 174.569, -15.39, 0.892)
pt3dadd(64.748, 174.623, -15.396, 0.854)
pt3dadd(64.646, 174.673, -15.418, 0.818)
pt3dadd(64.554, 174.72, -15.469, 0.79)
pt3dadd(64.461, 174.767, -15.52, 0.762)
pt3dadd(64.369, 174.814, -15.571, 0.732)
pt3dadd(64.277, 174.86, -15.621, 0.704)
pt3dadd(64.204, 174.929, -15.676, 0.686)
pt3dadd(64.131, 174.998, -15.73, 0.666)
pt3dadd(64.059, 175.068, -15.785, 0.648)
pt3dadd(63.986, 175.138, -15.839, 0.63)
pt3dadd(63.928, 175.182, -15.918, 0.622)
pt3dadd(63.873, 175.224, -15.999, 0.616)
pt3dadd(63.817, 175.266, -16.081, 0.612)
pt3dadd(63.761, 175.308, -16.162, 0.606)
pt3dadd(63.699, 175.343, -16.242, 0.606)
pt3dadd(63.632, 175.374, -16.321, 0.612)
pt3dadd(63.565, 175.404, -16.4, 0.616)
pt3dadd(63.498, 175.434, -16.479, 0.622)
pt3dadd(63.43, 175.464, -16.557, 0.628)
pt3dadd(63.343, 175.477, -16.625, 0.628)
pt3dadd(63.255, 175.489, -16.693, 0.628)
pt3dadd(63.151, 175.504, -16.74, 0.608)
pt3dadd(63.045, 175.519, -16.785, 0.586)
pt3dadd(62.93, 175.535, -16.8, 0.55)
pt3dadd(62.811, 175.552, -16.8, 0.508)
pt3dadd(62.693, 175.568, -16.8, 0.466)
pt3dadd(62.577, 175.548, -16.8, 0.414)
pt3dadd(62.463, 175.511, -16.8, 0.358)
pt3dadd(62.38, 175.524, -16.828, 0.352)
pt3dadd(62.339, 175.604, -16.892, 0.414)
pt3dadd(62.297, 175.686, -16.957, 0.474)
pt3dadd(62.255, 175.768, -17.022, 0.536)
pt3dadd(62.213, 175.849, -17.086, 0.596)
pt3dadd(62.172, 175.931, -17.151, 0.656)
pt3dadd(62.13, 176.012, -17.216, 0.718)
pt3dadd(62.088, 176.093, -17.28, 0.778)
pt3dadd(62.047, 176.176, -17.345, 0.84)
pt3dadd(62.005, 176.256, -17.41, 0.9)
pt3dadd(61.963, 176.338, -17.475, 0.962)
pt3dadd(61.921, 176.419, -17.539, 1.022)
pt3dadd(61.88, 176.501, -17.604, 1.084)
pt3dadd(61.838, 176.582, -17.669, 1.144)
pt3dadd(61.796, 176.664, -17.733, 1.206)
}
apic[31] {pt3dclear()
pt3dadd(61.796, 176.664, -17.733, 1.206)
pt3dadd(61.831, 176.659, -17.757, 1.166)
pt3dadd(61.924, 176.646, -17.819, 1.06)
pt3dadd(62.013, 176.668, -17.878, 0.954)
pt3dadd(62.063, 176.764, -17.9, 0.9)
pt3dadd(62.044, 176.88, -17.9, 0.848)
pt3dadd(62.018, 176.998, -17.9, 0.752)
pt3dadd(62.021, 177.116, -17.9, 0.678)
}
apic[32] {pt3dclear()
pt3dadd(61.796, 176.664, -17.733, 1.206)
pt3dadd(61.77, 176.668, -17.727, 1.226)
pt3dadd(61.654, 176.683, -17.706, 1.292)
pt3dadd(61.536, 176.7, -17.7, 1.28)
pt3dadd(61.416, 176.71, -17.7, 1.182)
pt3dadd(61.297, 176.7, -17.7, 1.032)
pt3dadd(61.189, 176.66, -17.72, 0.916)
pt3dadd(61.125, 176.639, -17.797, 0.86)
pt3dadd(61.104, 176.624, -17.894, 0.83)
pt3dadd(61.095, 176.558, -17.975, 0.876)
pt3dadd(61.081, 176.465, -18.037, 0.946)
pt3dadd(61.031, 176.412, -18.115, 0.954)
pt3dadd(60.966, 176.368, -18.17, 0.946)
pt3dadd(60.86, 176.335, -18.131, 0.902)
pt3dadd(60.748, 176.326, -18.105, 0.838)
pt3dadd(60.63, 176.323, -18.1, 0.792)
pt3dadd(60.511, 176.306, -18.1, 0.77)
pt3dadd(60.392, 176.29, -18.1, 0.754)
pt3dadd(60.273, 176.274, -18.1, 0.754)
pt3dadd(60.154, 176.257, -18.1, 0.754)
pt3dadd(60.046, 176.232, -18.13, 0.744)
pt3dadd(59.941, 176.203, -18.172, 0.73)
pt3dadd(59.857, 176.17, -18.237, 0.704)
pt3dadd(59.775, 176.138, -18.306, 0.676)
pt3dadd(59.683, 176.14, -18.369, 0.654)
pt3dadd(59.59, 176.14, -18.432, 0.63)
pt3dadd(59.497, 176.141, -18.495, 0.608)
pt3dadd(59.39, 176.154, -18.536, 0.594)
pt3dadd(59.277, 176.17, -18.569, 0.584)
pt3dadd(59.163, 176.185, -18.594, 0.6)
pt3dadd(59.045, 176.182, -18.6, 0.638)
pt3dadd(58.928, 176.155, -18.6, 0.656)
pt3dadd(58.811, 176.13, -18.6, 0.674)
pt3dadd(58.694, 176.104, -18.6, 0.692)
pt3dadd(58.576, 176.078, -18.6, 0.71)
pt3dadd(58.459, 176.054, -18.6, 0.732)
pt3dadd(58.339, 176.059, -18.6, 0.812)
pt3dadd(58.22, 176.076, -18.6, 0.862)
pt3dadd(58.101, 176.09, -18.6, 0.912)
pt3dadd(57.983, 176.081, -18.6, 0.954)
pt3dadd(57.893, 176.012, -18.6, 0.936)
pt3dadd(57.852, 175.902, -18.611, 0.904)
pt3dadd(57.838, 175.807, -18.664, 0.904)
pt3dadd(57.833, 175.772, -18.759, 0.904)
pt3dadd(57.833, 175.766, -18.858, 0.89)
pt3dadd(57.824, 175.768, -18.958, 0.846)
pt3dadd(57.792, 175.759, -19.053, 0.756)
pt3dadd(57.691, 175.732, -19.097, 0.698)
pt3dadd(57.576, 175.708, -19.119, 0.686)
pt3dadd(57.465, 175.682, -19.147, 0.67)
pt3dadd(57.36, 175.654, -19.189, 0.642)
pt3dadd(57.252, 175.626, -19.227, 0.628)
pt3dadd(57.146, 175.632, -19.271, 0.636)
pt3dadd(57.04, 175.644, -19.316, 0.646)
pt3dadd(56.934, 175.656, -19.362, 0.656)
pt3dadd(56.828, 175.669, -19.408, 0.666)
pt3dadd(56.722, 175.681, -19.453, 0.676)
pt3dadd(56.614, 175.657, -19.486, 0.702)
pt3dadd(56.505, 175.618, -19.514, 0.736)
pt3dadd(56.397, 175.578, -19.541, 0.77)
pt3dadd(56.288, 175.538, -19.569, 0.804)
pt3dadd(56.178, 175.502, -19.589, 0.832)
pt3dadd(56.063, 175.469, -19.592, 0.846)
pt3dadd(55.947, 175.436, -19.594, 0.862)
pt3dadd(55.832, 175.403, -19.596, 0.876)
pt3dadd(55.716, 175.37, -19.598, 0.89)
pt3dadd(55.601, 175.338, -19.6, 0.904)
pt3dadd(55.483, 175.315, -19.6, 0.892)
pt3dadd(55.366, 175.291, -19.6, 0.882)
pt3dadd(55.25, 175.286, -19.58, 0.856)
pt3dadd(55.136, 175.29, -19.55, 0.822)
pt3dadd(55.025, 175.271, -19.543, 0.78)
pt3dadd(54.919, 175.223, -19.566, 0.73)
pt3dadd(54.806, 175.189, -19.588, 0.716)
pt3dadd(54.693, 175.158, -19.611, 0.704)
pt3dadd(54.624, 175.135, -19.689, 0.664)
pt3dadd(54.542, 175.12, -19.761, 0.648)
pt3dadd(54.455, 175.108, -19.829, 0.644)
pt3dadd(54.368, 175.096, -19.897, 0.638)
pt3dadd(54.281, 175.084, -19.965, 0.632)
pt3dadd(54.185, 175.075, -20.021, 0.616)
pt3dadd(54.078, 175.07, -20.064, 0.626)
pt3dadd(53.969, 175.038, -20.094, 0.664)
pt3dadd(53.855, 175.008, -20.11, 0.678)
pt3dadd(53.744, 175.003, -20.145, 0.678)
pt3dadd(53.637, 174.978, -20.177, 0.678)
pt3dadd(53.556, 174.928, -20.124, 0.678)
pt3dadd(53.502, 174.922, -20.036, 0.678)
pt3dadd(53.47, 174.925, -19.94, 0.678)
pt3dadd(53.423, 174.932, -19.849, 0.678)
pt3dadd(53.337, 174.986, -19.798, 0.678)
pt3dadd(53.253, 175.043, -19.746, 0.676)
pt3dadd(53.205, 175.097, -19.666, 0.662)
pt3dadd(53.157, 175.169, -19.645, 0.638)
pt3dadd(53.109, 175.261, -19.695, 0.604)
pt3dadd(53.046, 175.338, -19.74, 0.564)
pt3dadd(52.935, 175.366, -19.77, 0.508)
pt3dadd(52.824, 175.393, -19.8, 0.452)
pt3dadd(52.72, 175.45, -19.8, 0.344)
pt3dadd(52.638, 175.537, -19.8, 0.36)
pt3dadd(52.571, 175.636, -19.8, 0.43)
pt3dadd(52.496, 175.729, -19.8, 0.452)
pt3dadd(52.428, 175.825, -19.811, 0.478)
pt3dadd(52.372, 175.907, -19.863, 0.578)
pt3dadd(52.319, 175.936, -19.947, 0.664)
pt3dadd(52.318, 175.936, -20.046, 0.738)
pt3dadd(52.363, 175.93, -20.138, 0.832)
pt3dadd(52.359, 175.93, -20.234, 0.878)
pt3dadd(52.268, 175.926, -20.291, 0.822)
pt3dadd(52.157, 175.888, -20.3, 0.778)
pt3dadd(52.061, 175.819, -20.313, 0.86)
pt3dadd(52.015, 175.721, -20.354, 0.986)
pt3dadd(51.994, 175.612, -20.387, 0.958)
pt3dadd(51.944, 175.504, -20.391, 0.932)
pt3dadd(51.892, 175.394, -20.393, 0.91)
pt3dadd(51.84, 175.286, -20.395, 0.886)
pt3dadd(51.788, 175.178, -20.397, 0.864)
pt3dadd(51.736, 175.072, -20.399, 0.842)
pt3dadd(51.692, 174.961, -20.409, 0.808)
pt3dadd(51.659, 174.848, -20.428, 0.766)
pt3dadd(51.622, 174.745, -20.457, 0.722)
pt3dadd(51.564, 174.703, -20.537, 0.68)
pt3dadd(51.496, 174.648, -20.599, 0.648)
pt3dadd(51.412, 174.57, -20.63, 0.634)
}
}
proc shape3d_78() {
apic[32] { pt3dadd(51.354, 174.526, -20.694, 0.622)
pt3dadd(51.322, 174.512, -20.79, 0.61)
pt3dadd(51.267, 174.498, -20.869, 0.602)
pt3dadd(51.16, 174.482, -20.912, 0.602)
pt3dadd(51.096, 174.433, -20.983, 0.56)
pt3dadd(51.052, 174.418, -21.074, 0.53)
pt3dadd(50.978, 174.427, -21.152, 0.566)
pt3dadd(50.896, 174.425, -21.224, 0.628)
pt3dadd(50.815, 174.374, -21.277, 0.676)
pt3dadd(50.709, 174.349, -21.245, 0.636)
pt3dadd(50.597, 174.36, -21.212, 0.628)
pt3dadd(50.479, 174.376, -21.2, 0.714)
pt3dadd(50.36, 174.374, -21.197, 0.84)
pt3dadd(50.25, 174.348, -21.167, 0.874)
pt3dadd(50.148, 174.319, -21.121, 0.862)
pt3dadd(50.046, 174.288, -21.074, 0.85)
pt3dadd(49.944, 174.259, -21.027, 0.838)
pt3dadd(49.84, 174.233, -20.987, 0.822)
pt3dadd(49.721, 174.221, -20.975, 0.792)
pt3dadd(49.602, 174.21, -20.964, 0.76)
pt3dadd(49.484, 174.199, -20.952, 0.73)
pt3dadd(49.365, 174.187, -20.941, 0.698)
pt3dadd(49.255, 174.169, -20.953, 0.658)
pt3dadd(49.16, 174.137, -21.009, 0.602)
pt3dadd(49.056, 174.118, -21.052, 0.57)
pt3dadd(48.943, 174.107, -21.084, 0.558)
pt3dadd(48.833, 174.084, -21.082, 0.552)
pt3dadd(48.727, 174.048, -21.046, 0.552)
pt3dadd(48.613, 174.031, -21.024, 0.56)
pt3dadd(48.494, 174.024, -21.009, 0.57)
pt3dadd(48.377, 174.018, -21.009, 0.578)
pt3dadd(48.26, 174.012, -21.033, 0.578)
pt3dadd(48.144, 174.006, -21.058, 0.578)
pt3dadd(48.028, 174, -21.082, 0.578)
pt3dadd(47.915, 174.005, -21.114, 0.594)
pt3dadd(47.803, 174.016, -21.149, 0.616)
pt3dadd(47.692, 174.007, -21.184, 0.684)
pt3dadd(47.574, 173.992, -21.191, 0.718)
pt3dadd(47.455, 173.977, -21.193, 0.736)
pt3dadd(47.336, 173.963, -21.194, 0.754)
pt3dadd(47.217, 173.948, -21.196, 0.772)
pt3dadd(47.098, 173.934, -21.198, 0.79)
pt3dadd(46.979, 173.92, -21.201, 0.808)
pt3dadd(46.859, 173.91, -21.207, 0.826)
pt3dadd(46.74, 173.9, -21.213, 0.844)
pt3dadd(46.62, 173.891, -21.219, 0.862)
pt3dadd(46.501, 173.881, -21.225, 0.88)
pt3dadd(46.382, 173.872, -21.231, 0.898)
pt3dadd(46.269, 173.845, -21.252, 0.904)
pt3dadd(46.161, 173.809, -21.282, 0.904)
pt3dadd(46.052, 173.772, -21.312, 0.904)
pt3dadd(45.944, 173.736, -21.342, 0.904)
pt3dadd(45.836, 173.707, -21.376, 0.902)
pt3dadd(45.731, 173.711, -21.424, 0.892)
pt3dadd(45.626, 173.714, -21.472, 0.882)
pt3dadd(45.521, 173.718, -21.52, 0.872)
pt3dadd(45.415, 173.723, -21.568, 0.86)
pt3dadd(45.309, 173.711, -21.608, 0.846)
pt3dadd(45.199, 173.67, -21.63, 0.824)
pt3dadd(45.089, 173.629, -21.652, 0.802)
pt3dadd(44.98, 173.588, -21.674, 0.78)
pt3dadd(44.87, 173.546, -21.696, 0.758)
pt3dadd(44.754, 173.518, -21.702, 0.75)
pt3dadd(44.637, 173.491, -21.704, 0.744)
pt3dadd(44.52, 173.465, -21.706, 0.74)
pt3dadd(44.403, 173.438, -21.708, 0.736)
pt3dadd(44.286, 173.412, -21.71, 0.73)
pt3dadd(44.178, 173.371, -21.724, 0.73)
pt3dadd(44.078, 173.312, -21.753, 0.736)
pt3dadd(43.979, 173.255, -21.781, 0.742)
pt3dadd(43.88, 173.196, -21.81, 0.748)
pt3dadd(43.779, 173.144, -21.839, 0.756)
pt3dadd(43.667, 173.129, -21.872, 0.772)
pt3dadd(43.555, 173.113, -21.906, 0.788)
pt3dadd(43.443, 173.096, -21.939, 0.804)
pt3dadd(43.331, 173.081, -21.972, 0.82)
pt3dadd(43.216, 173.06, -21.991, 0.846)
pt3dadd(43.099, 173.034, -21.996, 0.88)
pt3dadd(42.983, 173.017, -22.008, 0.91)
pt3dadd(42.868, 173.021, -22.038, 0.932)
pt3dadd(42.754, 173.023, -22.067, 0.954)
pt3dadd(42.642, 172.992, -22.09, 0.968)
pt3dadd(42.531, 172.962, -22.114, 0.98)
pt3dadd(42.467, 172.964, -22.199, 0.98)
pt3dadd(42.403, 172.967, -22.284, 0.98)
pt3dadd(42.297, 172.946, -22.325, 0.98)
pt3dadd(42.189, 172.924, -22.363, 0.98)
pt3dadd(42.08, 172.901, -22.401, 0.98)
pt3dadd(41.97, 172.892, -22.439, 0.988)
pt3dadd(41.859, 172.889, -22.477, 1)
pt3dadd(41.749, 172.856, -22.5, 1.004)
pt3dadd(41.632, 172.849, -22.52, 1.004)
pt3dadd(41.514, 172.842, -22.539, 1.004)
pt3dadd(41.397, 172.835, -22.558, 1.004)
pt3dadd(41.279, 172.829, -22.577, 1.004)
pt3dadd(41.162, 172.822, -22.597, 1.004)
pt3dadd(41.043, 172.829, -22.612, 0.998)
pt3dadd(40.925, 172.838, -22.628, 0.988)
pt3dadd(40.807, 172.848, -22.643, 0.98)
pt3dadd(40.689, 172.858, -22.658, 0.972)
pt3dadd(40.571, 172.867, -22.673, 0.962)
pt3dadd(40.452, 172.878, -22.688, 0.954)
pt3dadd(40.336, 172.894, -22.707, 0.95)
pt3dadd(40.219, 172.91, -22.725, 0.946)
pt3dadd(40.102, 172.926, -22.744, 0.942)
pt3dadd(39.985, 172.943, -22.762, 0.938)
pt3dadd(39.869, 172.96, -22.781, 0.934)
pt3dadd(39.752, 172.975, -22.799, 0.93)
pt3dadd(39.64, 172.969, -22.836, 0.93)
pt3dadd(39.529, 172.962, -22.874, 0.93)
pt3dadd(39.418, 172.955, -22.911, 0.93)
pt3dadd(39.307, 172.949, -22.948, 0.93)
pt3dadd(39.197, 172.945, -22.987, 0.932)
pt3dadd(39.089, 172.958, -23.03, 0.946)
pt3dadd(38.982, 172.97, -23.073, 0.962)
pt3dadd(38.874, 172.984, -23.115, 0.976)
pt3dadd(38.766, 172.996, -23.158, 0.99)
pt3dadd(38.659, 173.008, -23.202, 1.006)
pt3dadd(38.562, 173.022, -23.259, 1.024)
pt3dadd(38.464, 173.035, -23.317, 1.046)
pt3dadd(38.367, 173.05, -23.374, 1.066)
pt3dadd(38.27, 173.063, -23.432, 1.086)
pt3dadd(38.173, 173.076, -23.489, 1.106)
pt3dadd(38.054, 173.093, -23.497, 1.142)
pt3dadd(37.936, 173.11, -23.505, 1.178)
pt3dadd(37.819, 173.126, -23.52, 1.208)
pt3dadd(37.71, 173.142, -23.558, 1.218)
pt3dadd(37.6, 173.156, -23.597, 1.23)
pt3dadd(37.501, 173.171, -23.653, 1.242)
pt3dadd(37.403, 173.184, -23.709, 1.252)
pt3dadd(37.305, 173.198, -23.766, 1.256)
pt3dadd(37.207, 173.212, -23.822, 1.256)
pt3dadd(37.143, 173.221, -23.902, 1.286)
pt3dadd(37.097, 173.227, -23.991, 1.332)
pt3dadd(36.984, 173.244, -24.023, 1.34)
pt3dadd(36.872, 173.26, -24.056, 1.35)
pt3dadd(36.759, 173.275, -24.088, 1.358)
pt3dadd(36.647, 173.291, -24.12, 1.368)
pt3dadd(36.534, 173.306, -24.152, 1.378)
pt3dadd(36.424, 173.335, -24.181, 1.384)
pt3dadd(36.315, 173.376, -24.208, 1.388)
pt3dadd(36.207, 173.416, -24.235, 1.394)
pt3dadd(36.098, 173.455, -24.262, 1.398)
pt3dadd(35.99, 173.495, -24.289, 1.404)
pt3dadd(35.876, 173.52, -24.311, 1.396)
pt3dadd(35.76, 173.537, -24.33, 1.38)
pt3dadd(35.643, 173.554, -24.348, 1.362)
pt3dadd(35.526, 173.569, -24.367, 1.346)
pt3dadd(35.409, 173.586, -24.385, 1.33)
pt3dadd(35.292, 173.603, -24.404, 1.312)
pt3dadd(35.175, 173.605, -24.421, 1.286)
pt3dadd(35.057, 173.599, -24.438, 1.252)
pt3dadd(34.939, 173.592, -24.455, 1.22)
pt3dadd(34.821, 173.586, -24.472, 1.186)
pt3dadd(34.702, 173.58, -24.488, 1.152)
pt3dadd(34.584, 173.574, -24.502, 1.118)
pt3dadd(34.464, 173.57, -24.508, 1.084)
pt3dadd(34.344, 173.566, -24.513, 1.05)
pt3dadd(34.225, 173.562, -24.519, 1.014)
pt3dadd(34.105, 173.557, -24.525, 0.98)
pt3dadd(33.985, 173.554, -24.531, 0.944)
pt3dadd(33.869, 173.56, -24.55, 0.916)
pt3dadd(33.755, 173.576, -24.58, 0.894)
pt3dadd(33.642, 173.592, -24.609, 0.872)
pt3dadd(33.529, 173.608, -24.639, 0.85)
pt3dadd(33.415, 173.624, -24.669, 0.826)
pt3dadd(33.302, 173.64, -24.699, 0.804)
pt3dadd(33.185, 173.657, -24.716, 0.796)
pt3dadd(33.068, 173.672, -24.732, 0.788)
pt3dadd(32.95, 173.689, -24.749, 0.78)
pt3dadd(32.833, 173.706, -24.765, 0.77)
pt3dadd(32.716, 173.722, -24.782, 0.762)
pt3dadd(32.599, 173.738, -24.798, 0.754)
pt3dadd(32.481, 173.755, -24.811, 0.76)
pt3dadd(32.363, 173.772, -24.823, 0.768)
pt3dadd(32.245, 173.789, -24.836, 0.776)
pt3dadd(32.127, 173.804, -24.848, 0.784)
pt3dadd(32.009, 173.821, -24.861, 0.792)
pt3dadd(31.891, 173.838, -24.873, 0.8)
pt3dadd(31.783, 173.863, -24.905, 0.81)
pt3dadd(31.68, 173.896, -24.949, 0.82)
pt3dadd(31.577, 173.927, -24.994, 0.832)
pt3dadd(31.474, 173.958, -25.038, 0.842)
pt3dadd(31.371, 173.99, -25.082, 0.852)
pt3dadd(31.302, 174.035, -25.153, 0.874)
pt3dadd(31.239, 174.08, -25.229, 0.898)
pt3dadd(31.176, 174.127, -25.304, 0.92)
pt3dadd(31.113, 174.174, -25.38, 0.944)
pt3dadd(31.056, 174.214, -25.461, 0.954)
pt3dadd(31.005, 174.247, -25.547, 0.954)
pt3dadd(30.953, 174.281, -25.633, 0.954)
pt3dadd(30.901, 174.316, -25.719, 0.954)
pt3dadd(30.848, 174.349, -25.803, 0.954)
pt3dadd(30.76, 174.37, -25.869, 0.948)
pt3dadd(30.672, 174.39, -25.935, 0.944)
pt3dadd(30.584, 174.412, -26, 0.938)
pt3dadd(30.496, 174.432, -26.066, 0.932)
pt3dadd(30.402, 174.457, -26.123, 0.922)
pt3dadd(30.298, 174.492, -26.163, 0.902)
pt3dadd(30.193, 174.526, -26.202, 0.88)
}
}
proc shape3d_79() {
apic[32] { pt3dadd(30.088, 174.56, -26.242, 0.86)
pt3dadd(29.983, 174.595, -26.281, 0.838)
pt3dadd(29.878, 174.641, -26.3, 0.828)
pt3dadd(29.772, 174.698, -26.3, 0.828)
pt3dadd(29.667, 174.755, -26.3, 0.828)
pt3dadd(29.561, 174.811, -26.3, 0.828)
pt3dadd(29.455, 174.869, -26.3, 0.828)
pt3dadd(29.349, 174.924, -26.301, 0.83)
pt3dadd(29.237, 174.96, -26.32, 0.838)
pt3dadd(29.125, 174.996, -26.339, 0.848)
pt3dadd(29.013, 175.032, -26.358, 0.858)
pt3dadd(28.901, 175.069, -26.377, 0.868)
pt3dadd(28.789, 175.105, -26.396, 0.876)
pt3dadd(28.686, 175.126, -26.442, 0.894)
pt3dadd(28.586, 175.142, -26.496, 0.914)
pt3dadd(28.486, 175.159, -26.549, 0.934)
pt3dadd(28.386, 175.176, -26.603, 0.956)
pt3dadd(28.286, 175.193, -26.656, 0.976)
pt3dadd(28.172, 175.211, -26.675, 0.98)
pt3dadd(28.054, 175.23, -26.686, 0.98)
pt3dadd(27.936, 175.248, -26.696, 0.98)
pt3dadd(27.818, 175.267, -26.707, 0.98)
pt3dadd(27.7, 175.285, -26.718, 0.98)
pt3dadd(27.582, 175.304, -26.728, 0.98)
pt3dadd(27.476, 175.35, -26.741, 0.974)
pt3dadd(27.381, 175.421, -26.755, 0.962)
pt3dadd(27.285, 175.492, -26.769, 0.952)
pt3dadd(27.189, 175.562, -26.783, 0.942)
pt3dadd(27.094, 175.632, -26.797, 0.932)
pt3dadd(26.984, 175.676, -26.81, 0.914)
pt3dadd(26.871, 175.715, -26.822, 0.896)
pt3dadd(26.758, 175.752, -26.834, 0.878)
pt3dadd(26.645, 175.79, -26.847, 0.86)
pt3dadd(26.533, 175.829, -26.859, 0.84)
pt3dadd(26.426, 175.878, -26.872, 0.824)
pt3dadd(26.33, 175.949, -26.886, 0.814)
pt3dadd(26.235, 176.02, -26.9, 0.804)
pt3dadd(26.139, 176.09, -26.914, 0.794)
pt3dadd(26.044, 176.161, -26.928, 0.782)
pt3dadd(25.935, 176.203, -26.94, 0.776)
pt3dadd(25.818, 176.228, -26.952, 0.772)
pt3dadd(25.702, 176.254, -26.963, 0.768)
pt3dadd(25.585, 176.279, -26.974, 0.762)
pt3dadd(25.469, 176.304, -26.985, 0.758)
pt3dadd(25.352, 176.329, -26.997, 0.754)
pt3dadd(25.234, 176.348, -27, 0.754)
pt3dadd(25.116, 176.365, -27, 0.754)
pt3dadd(24.997, 176.382, -27, 0.754)
pt3dadd(24.889, 176.429, -27.011, 0.762)
pt3dadd(24.787, 176.489, -27.027, 0.774)
pt3dadd(24.753, 176.58, -27.054, 0.806)
pt3dadd(24.763, 176.693, -27.089, 0.85)
pt3dadd(24.765, 176.804, -27.125, 0.902)
pt3dadd(24.754, 176.914, -27.164, 0.964)
pt3dadd(24.704, 176.993, -27.19, 1.016)
pt3dadd(24.587, 177.018, -27.192, 1.05)
pt3dadd(24.469, 177.043, -27.195, 1.082)
pt3dadd(24.352, 177.068, -27.197, 1.116)
pt3dadd(24.235, 177.094, -27.199, 1.148)
pt3dadd(24.126, 177.143, -27.2, 1.164)
pt3dadd(24.019, 177.198, -27.2, 1.174)
pt3dadd(23.928, 177.27, -27.208, 1.146)
pt3dadd(23.841, 177.338, -27.242, 1.098)
pt3dadd(23.75, 177.402, -27.281, 1.056)
pt3dadd(23.659, 177.464, -27.32, 1.016)
pt3dadd(23.568, 177.528, -27.358, 0.974)
pt3dadd(23.464, 177.568, -27.389, 0.942)
pt3dadd(23.349, 177.583, -27.412, 0.916)
pt3dadd(23.233, 177.6, -27.435, 0.89)
pt3dadd(23.117, 177.616, -27.458, 0.864)
pt3dadd(23.002, 177.632, -27.481, 0.838)
pt3dadd(22.886, 177.648, -27.504, 0.812)
pt3dadd(22.783, 177.688, -27.54, 0.788)
pt3dadd(22.687, 177.737, -27.582, 0.766)
pt3dadd(22.59, 177.787, -27.625, 0.744)
pt3dadd(22.494, 177.836, -27.668, 0.72)
pt3dadd(22.399, 177.893, -27.704, 0.704)
pt3dadd(22.307, 177.967, -27.721, 0.712)
pt3dadd(22.215, 178.042, -27.738, 0.72)
pt3dadd(22.123, 178.117, -27.755, 0.728)
pt3dadd(22.011, 178.152, -27.774, 0.77)
pt3dadd(21.898, 178.184, -27.793, 0.814)
pt3dadd(21.825, 178.267, -27.8, 0.868)
pt3dadd(21.771, 178.375, -27.8, 0.926)
pt3dadd(21.743, 178.489, -27.802, 0.964)
pt3dadd(21.738, 178.608, -27.807, 0.984)
pt3dadd(21.733, 178.727, -27.812, 1.004)
pt3dadd(21.674, 178.763, -27.894, 0.992)
pt3dadd(21.616, 178.796, -27.977, 0.976)
pt3dadd(21.563, 178.804, -28.066, 0.942)
pt3dadd(21.493, 178.837, -28.139, 0.922)
pt3dadd(21.414, 178.886, -28.202, 0.91)
pt3dadd(21.335, 178.936, -28.265, 0.898)
pt3dadd(21.256, 178.985, -28.328, 0.886)
pt3dadd(21.168, 179.036, -28.375, 0.87)
pt3dadd(21.064, 179.089, -28.397, 0.846)
pt3dadd(20.958, 179.131, -28.424, 0.818)
pt3dadd(20.848, 179.147, -28.463, 0.784)
pt3dadd(20.74, 179.165, -28.502, 0.752)
pt3dadd(20.652, 179.225, -28.548, 0.706)
pt3dadd(20.58, 179.293, -28.555, 0.666)
pt3dadd(20.533, 179.375, -28.493, 0.636)
pt3dadd(20.434, 179.417, -28.481, 0.622)
pt3dadd(20.318, 179.447, -28.484, 0.614)
pt3dadd(20.201, 179.477, -28.488, 0.606)
pt3dadd(20.095, 179.495, -28.526, 0.62)
pt3dadd(19.993, 179.509, -28.577, 0.642)
pt3dadd(19.912, 179.564, -28.623, 0.664)
pt3dadd(19.85, 179.653, -28.666, 0.686)
pt3dadd(19.778, 179.732, -28.7, 0.704)
pt3dadd(19.664, 179.768, -28.7, 0.714)
pt3dadd(19.55, 179.806, -28.7, 0.724)
pt3dadd(19.433, 179.831, -28.693, 0.678)
pt3dadd(19.32, 179.862, -28.677, 0.646)
pt3dadd(19.208, 179.9, -28.66, 0.636)
pt3dadd(19.096, 179.939, -28.643, 0.628)
pt3dadd(18.984, 179.978, -28.627, 0.618)
pt3dadd(18.873, 180.017, -28.61, 0.608)
pt3dadd(18.758, 180.047, -28.6, 0.606)
pt3dadd(18.639, 180.064, -28.6, 0.614)
pt3dadd(18.52, 180.079, -28.6, 0.622)
pt3dadd(18.402, 180.096, -28.605, 0.648)
pt3dadd(18.284, 180.113, -28.617, 0.694)
pt3dadd(18.166, 180.13, -28.63, 0.74)
pt3dadd(18.074, 180.175, -28.674, 0.794)
pt3dadd(17.992, 180.232, -28.73, 0.85)
pt3dadd(17.9, 180.275, -28.782, 0.866)
pt3dadd(17.806, 180.316, -28.835, 0.878)
pt3dadd(17.726, 180.385, -28.882, 0.836)
pt3dadd(17.635, 180.44, -28.928, 0.814)
pt3dadd(17.543, 180.493, -28.974, 0.796)
pt3dadd(17.451, 180.547, -29.02, 0.78)
pt3dadd(17.359, 180.6, -29.067, 0.762)
pt3dadd(17.265, 180.659, -29.104, 0.74)
pt3dadd(17.169, 180.721, -29.133, 0.714)
pt3dadd(17.104, 180.781, -29.192, 0.694)
pt3dadd(17.06, 180.839, -29.271, 0.682)
pt3dadd(16.962, 180.882, -29.292, 0.686)
pt3dadd(16.848, 180.918, -29.297, 0.696)
pt3dadd(16.751, 180.976, -29.295, 0.71)
pt3dadd(16.697, 181.081, -29.278, 0.736)
pt3dadd(16.639, 181.184, -29.259, 0.758)
pt3dadd(16.576, 181.283, -29.238, 0.774)
pt3dadd(16.512, 181.381, -29.217, 0.792)
pt3dadd(16.438, 181.463, -29.2, 0.802)
pt3dadd(16.319, 181.48, -29.2, 0.794)
pt3dadd(16.2, 181.496, -29.2, 0.786)
pt3dadd(16.082, 181.517, -29.2, 0.762)
pt3dadd(15.971, 181.558, -29.193, 0.7)
pt3dadd(15.873, 181.62, -29.172, 0.688)
pt3dadd(15.774, 181.684, -29.15, 0.678)
pt3dadd(15.676, 181.747, -29.129, 0.668)
pt3dadd(15.577, 181.811, -29.107, 0.656)
pt3dadd(15.468, 181.855, -29.1, 0.658)
pt3dadd(15.353, 181.891, -29.1, 0.666)
pt3dadd(15.239, 181.927, -29.1, 0.676)
pt3dadd(15.124, 181.963, -29.1, 0.684)
pt3dadd(15.01, 181.999, -29.1, 0.692)
pt3dadd(14.895, 182.035, -29.1, 0.7)
pt3dadd(14.783, 182.076, -29.097, 0.716)
pt3dadd(14.671, 182.119, -29.092, 0.74)
pt3dadd(14.559, 182.164, -29.087, 0.764)
pt3dadd(14.448, 182.207, -29.082, 0.786)
pt3dadd(14.341, 182.248, -29.092, 0.814)
pt3dadd(14.248, 182.281, -29.149, 0.852)
pt3dadd(14.152, 182.321, -29.196, 0.882)
pt3dadd(14.048, 182.376, -29.217, 0.894)
pt3dadd(13.942, 182.419, -29.24, 0.902)
pt3dadd(13.828, 182.436, -29.268, 0.892)
pt3dadd(13.713, 182.452, -29.295, 0.88)
pt3dadd(13.595, 182.468, -29.297, 0.872)
pt3dadd(13.476, 182.485, -29.293, 0.864)
pt3dadd(13.358, 182.502, -29.289, 0.854)
pt3dadd(13.246, 182.518, -29.255, 0.854)
pt3dadd(13.133, 182.533, -29.238, 0.856)
pt3dadd(13.015, 182.55, -29.25, 0.86)
pt3dadd(12.897, 182.567, -29.261, 0.864)
pt3dadd(12.779, 182.584, -29.273, 0.868)
pt3dadd(12.661, 182.599, -29.285, 0.874)
pt3dadd(12.543, 182.616, -29.296, 0.878)
pt3dadd(12.425, 182.633, -29.289, 0.878)
pt3dadd(12.308, 182.65, -29.272, 0.878)
pt3dadd(12.191, 182.665, -29.256, 0.878)
pt3dadd(12.074, 182.682, -29.239, 0.878)
pt3dadd(11.956, 182.699, -29.223, 0.878)
pt3dadd(11.839, 182.716, -29.207, 0.878)
pt3dadd(11.721, 182.732, -29.2, 0.876)
pt3dadd(11.602, 182.748, -29.2, 0.874)
pt3dadd(11.483, 182.765, -29.2, 0.87)
pt3dadd(11.364, 182.782, -29.2, 0.866)
pt3dadd(11.246, 182.798, -29.2, 0.862)
pt3dadd(11.127, 182.815, -29.2, 0.858)
pt3dadd(11.008, 182.832, -29.2, 0.856)
pt3dadd(10.89, 182.849, -29.209, 0.856)
pt3dadd(10.772, 182.866, -29.224, 0.86)
pt3dadd(10.655, 182.881, -29.239, 0.864)
pt3dadd(10.537, 182.898, -29.254, 0.868)
pt3dadd(10.42, 182.915, -29.269, 0.874)
pt3dadd(10.302, 182.932, -29.284, 0.878)
pt3dadd(10.186, 182.947, -29.276, 0.89)
}
}
proc shape3d_80() {
apic[32] { pt3dadd(10.069, 182.964, -29.255, 0.906)
pt3dadd(9.953, 182.981, -29.234, 0.924)
pt3dadd(9.837, 182.996, -29.214, 0.94)
pt3dadd(9.721, 183.013, -29.193, 0.958)
pt3dadd(9.604, 183.029, -29.172, 0.974)
pt3dadd(9.486, 183.035, -29.158, 0.988)
pt3dadd(9.367, 183.038, -29.146, 1.002)
pt3dadd(9.248, 183.041, -29.135, 1.016)
pt3dadd(9.128, 183.043, -29.123, 1.028)
pt3dadd(9.009, 183.047, -29.112, 1.042)
pt3dadd(8.89, 183.048, -29.1, 1.054)
pt3dadd(8.77, 183.04, -29.1, 1.054)
pt3dadd(8.651, 183.032, -29.1, 1.054)
pt3dadd(8.531, 183.024, -29.1, 1.054)
pt3dadd(8.411, 183.016, -29.1, 1.054)
pt3dadd(8.292, 183.007, -29.1, 1.054)
pt3dadd(8.172, 183.001, -29.098, 1.054)
pt3dadd(8.055, 183.016, -29.082, 1.036)
pt3dadd(7.937, 183.03, -29.065, 1.02)
pt3dadd(7.82, 183.043, -29.048, 1.002)
pt3dadd(7.702, 183.058, -29.031, 0.986)
pt3dadd(7.585, 183.073, -29.015, 0.97)
pt3dadd(7.467, 183.084, -29, 0.952)
pt3dadd(7.348, 183.07, -29, 0.94)
pt3dadd(7.229, 183.056, -29, 0.926)
pt3dadd(7.11, 183.043, -29, 0.914)
pt3dadd(6.99, 183.03, -29, 0.9)
pt3dadd(6.871, 183.016, -29, 0.888)
pt3dadd(6.754, 182.993, -29, 0.874)
pt3dadd(6.64, 182.954, -29, 0.86)
pt3dadd(6.527, 182.915, -29, 0.844)
pt3dadd(6.413, 182.878, -29, 0.83)
pt3dadd(6.299, 182.839, -29, 0.816)
pt3dadd(6.187, 182.797, -29, 0.802)
pt3dadd(6.086, 182.732, -29, 0.792)
pt3dadd(5.985, 182.668, -29, 0.782)
pt3dadd(5.884, 182.603, -29, 0.772)
pt3dadd(5.782, 182.539, -29, 0.762)
pt3dadd(5.677, 182.485, -29, 0.75)
pt3dadd(5.558, 182.48, -29, 0.738)
pt3dadd(5.438, 182.474, -29, 0.726)
pt3dadd(5.318, 182.47, -29, 0.714)
pt3dadd(5.198, 182.464, -29, 0.7)
pt3dadd(5.078, 182.459, -29, 0.688)
pt3dadd(4.96, 182.447, -28.995, 0.676)
pt3dadd(4.849, 182.412, -28.971, 0.664)
pt3dadd(4.738, 182.378, -28.946, 0.654)
pt3dadd(4.627, 182.342, -28.922, 0.642)
pt3dadd(4.515, 182.309, -28.898, 0.632)
pt3dadd(4.402, 182.28, -28.877, 0.628)
pt3dadd(4.287, 182.254, -28.859, 0.628)
pt3dadd(4.172, 182.228, -28.84, 0.628)
pt3dadd(4.056, 182.202, -28.822, 0.628)
pt3dadd(3.941, 182.177, -28.804, 0.628)
pt3dadd(3.827, 182.143, -28.8, 0.636)
pt3dadd(3.712, 182.108, -28.8, 0.646)
pt3dadd(3.597, 182.074, -28.8, 0.654)
pt3dadd(3.482, 182.039, -28.8, 0.664)
pt3dadd(3.367, 182.003, -28.8, 0.674)
pt3dadd(3.252, 181.982, -28.815, 0.69)
pt3dadd(3.138, 181.97, -28.842, 0.71)
pt3dadd(3.023, 181.958, -28.869, 0.73)
pt3dadd(2.908, 181.946, -28.897, 0.75)
pt3dadd(2.793, 181.936, -28.924, 0.772)
pt3dadd(2.676, 181.924, -28.925, 0.786)
pt3dadd(2.557, 181.913, -28.912, 0.798)
pt3dadd(2.439, 181.901, -28.899, 0.81)
pt3dadd(2.321, 181.889, -28.886, 0.822)
pt3dadd(2.202, 181.883, -28.872, 0.828)
pt3dadd(2.083, 181.884, -28.858, 0.828)
pt3dadd(1.964, 181.888, -28.845, 0.828)
pt3dadd(1.846, 181.89, -28.831, 0.828)
pt3dadd(1.727, 181.892, -28.817, 0.828)
pt3dadd(1.608, 181.895, -28.804, 0.828)
pt3dadd(1.491, 181.913, -28.787, 0.818)
pt3dadd(1.376, 181.937, -28.77, 0.804)
pt3dadd(1.26, 181.962, -28.753, 0.788)
pt3dadd(1.144, 181.986, -28.736, 0.774)
pt3dadd(1.028, 182.01, -28.719, 0.76)
pt3dadd(0.91, 182.018, -28.71, 0.75)
pt3dadd(0.791, 182.011, -28.708, 0.746)
pt3dadd(0.671, 182.005, -28.706, 0.742)
pt3dadd(0.551, 181.999, -28.704, 0.736)
pt3dadd(0.431, 181.993, -28.702, 0.732)
pt3dadd(0.314, 181.978, -28.7, 0.732)
pt3dadd(0.204, 181.93, -28.7, 0.746)
pt3dadd(0.094, 181.882, -28.7, 0.762)
pt3dadd(-0.016, 181.834, -28.7, 0.776)
pt3dadd(-0.126, 181.786, -28.7, 0.792)
pt3dadd(-0.237, 181.744, -28.7, 0.808)
pt3dadd(-0.358, 181.74, -28.7, 0.836)
pt3dadd(-0.477, 181.738, -28.7, 0.866)
pt3dadd(-0.597, 181.734, -28.7, 0.894)
pt3dadd(-0.717, 181.732, -28.7, 0.924)
pt3dadd(-0.837, 181.728, -28.7, 0.952)
pt3dadd(-0.957, 181.727, -28.698, 0.982)
pt3dadd(-1.07, 181.742, -28.668, 1.012)
pt3dadd(-1.184, 181.758, -28.639, 1.044)
pt3dadd(-1.297, 181.775, -28.609, 1.076)
pt3dadd(-1.411, 181.79, -28.579, 1.106)
pt3dadd(-1.524, 181.806, -28.549, 1.138)
pt3dadd(-1.638, 181.823, -28.523, 1.162)
pt3dadd(-1.754, 181.838, -28.5, 1.174)
pt3dadd(-1.87, 181.855, -28.477, 1.186)
pt3dadd(-1.986, 181.871, -28.454, 1.2)
pt3dadd(-2.101, 181.888, -28.431, 1.212)
pt3dadd(-2.217, 181.903, -28.408, 1.226)
pt3dadd(-2.325, 181.948, -28.4, 1.228)
pt3dadd(-2.429, 182.008, -28.4, 1.222)
pt3dadd(-2.533, 182.066, -28.4, 1.218)
pt3dadd(-2.637, 182.128, -28.4, 1.214)
pt3dadd(-2.742, 182.186, -28.4, 1.208)
pt3dadd(-2.85, 182.234, -28.4, 1.204)
pt3dadd(-2.968, 182.251, -28.4, 1.2)
pt3dadd(-3.087, 182.268, -28.4, 1.198)
pt3dadd(-3.206, 182.285, -28.4, 1.194)
pt3dadd(-3.325, 182.302, -28.4, 1.19)
pt3dadd(-3.444, 182.318, -28.4, 1.186)
pt3dadd(-3.563, 182.335, -28.4, 1.182)
pt3dadd(-3.679, 182.348, -28.39, 1.178)
pt3dadd(-3.789, 182.357, -28.35, 1.168)
pt3dadd(-3.899, 182.364, -28.311, 1.158)
pt3dadd(-4.009, 182.372, -28.272, 1.148)
pt3dadd(-4.119, 182.38, -28.232, 1.138)
pt3dadd(-4.231, 182.387, -28.2, 1.128)
pt3dadd(-4.351, 182.392, -28.2, 1.116)
pt3dadd(-4.471, 182.395, -28.2, 1.104)
pt3dadd(-4.591, 182.4, -28.2, 1.092)
pt3dadd(-4.711, 182.404, -28.2, 1.08)
pt3dadd(-4.831, 182.407, -28.2, 1.068)
pt3dadd(-4.951, 182.411, -28.2, 1.058)
pt3dadd(-5.069, 182.425, -28.187, 1.038)
pt3dadd(-5.186, 182.442, -28.17, 1.018)
pt3dadd(-5.303, 182.459, -28.154, 0.996)
pt3dadd(-5.42, 182.474, -28.137, 0.976)
pt3dadd(-5.537, 182.491, -28.121, 0.956)
pt3dadd(-5.655, 182.508, -28.105, 0.934)
pt3dadd(-5.773, 182.525, -28.1, 0.922)
pt3dadd(-5.892, 182.542, -28.1, 0.91)
pt3dadd(-6.011, 182.558, -28.1, 0.9)
pt3dadd(-6.129, 182.574, -28.1, 0.89)
pt3dadd(-6.248, 182.591, -28.1, 0.878)
pt3dadd(-6.367, 182.608, -28.1, 0.868)
pt3dadd(-6.486, 182.624, -28.1, 0.856)
pt3dadd(-6.602, 182.652, -28.088, 0.848)
pt3dadd(-6.716, 182.682, -28.072, 0.838)
pt3dadd(-6.83, 182.713, -28.056, 0.83)
pt3dadd(-6.945, 182.743, -28.04, 0.82)
pt3dadd(-7.059, 182.774, -28.024, 0.812)
pt3dadd(-7.174, 182.803, -28.008, 0.802)
pt3dadd(-7.288, 182.83, -27.988, 0.794)
pt3dadd(-7.403, 182.855, -27.968, 0.784)
pt3dadd(-7.518, 182.881, -27.948, 0.774)
pt3dadd(-7.633, 182.908, -27.928, 0.766)
pt3dadd(-7.747, 182.933, -27.908, 0.756)
pt3dadd(-7.861, 182.964, -27.889, 0.754)
pt3dadd(-7.973, 183.001, -27.87, 0.754)
pt3dadd(-8.085, 183.037, -27.851, 0.754)
pt3dadd(-8.197, 183.073, -27.832, 0.754)
pt3dadd(-8.309, 183.109, -27.813, 0.754)
pt3dadd(-8.423, 183.139, -27.8, 0.756)
pt3dadd(-8.542, 183.156, -27.8, 0.768)
pt3dadd(-8.661, 183.173, -27.8, 0.778)
pt3dadd(-8.78, 183.19, -27.8, 0.788)
pt3dadd(-8.899, 183.206, -27.8, 0.8)
pt3dadd(-9.018, 183.223, -27.8, 0.81)
pt3dadd(-9.136, 183.24, -27.8, 0.822)
pt3dadd(-9.255, 183.257, -27.8, 0.838)
pt3dadd(-9.374, 183.275, -27.8, 0.866)
pt3dadd(-9.492, 183.294, -27.8, 0.896)
pt3dadd(-9.611, 183.312, -27.8, 0.926)
pt3dadd(-9.729, 183.331, -27.8, 0.954)
pt3dadd(-9.848, 183.349, -27.8, 0.984)
pt3dadd(-9.966, 183.368, -27.8, 1.012)
pt3dadd(-10.081, 183.4, -27.8, 1.04)
pt3dadd(-10.191, 183.449, -27.8, 1.068)
pt3dadd(-10.301, 183.498, -27.8, 1.094)
pt3dadd(-10.41, 183.546, -27.8, 1.12)
pt3dadd(-10.52, 183.595, -27.8, 1.148)
pt3dadd(-10.63, 183.643, -27.8, 1.174)
pt3dadd(-10.731, 183.707, -27.8, 1.194)
pt3dadd(-10.83, 183.774, -27.8, 1.214)
pt3dadd(-10.929, 183.842, -27.8, 1.234)
pt3dadd(-11.028, 183.911, -27.8, 1.252)
pt3dadd(-11.126, 183.978, -27.8, 1.272)
pt3dadd(-11.235, 184.026, -27.797, 1.274)
pt3dadd(-11.351, 184.056, -27.792, 1.262)
pt3dadd(-11.467, 184.086, -27.786, 1.25)
pt3dadd(-11.583, 184.115, -27.78, 1.236)
pt3dadd(-11.699, 184.145, -27.775, 1.224)
pt3dadd(-11.815, 184.175, -27.77, 1.212)
pt3dadd(-11.931, 184.202, -27.76, 1.194)
pt3dadd(-12.048, 184.224, -27.747, 1.174)
pt3dadd(-12.165, 184.248, -27.734, 1.152)
pt3dadd(-12.281, 184.271, -27.721, 1.132)
pt3dadd(-12.398, 184.294, -27.708, 1.11)
pt3dadd(-12.515, 184.316, -27.695, 1.09)
pt3dadd(-12.621, 184.336, -27.658, 1.036)
pt3dadd(-12.719, 184.349, -27.601, 0.954)
pt3dadd(-12.81, 184.362, -27.538, 0.88)
}
}
proc shape3d_81() {
apic[32] { pt3dadd(-12.891, 184.373, -27.465, 0.822)
pt3dadd(-12.976, 184.4, -27.408, 0.766)
pt3dadd(-13.071, 184.474, -27.397, 0.716)
pt3dadd(-13.149, 184.553, -27.38, 0.67)
pt3dadd(-13.169, 184.661, -27.34, 0.63)
pt3dadd(-13.217, 184.745, -27.315, 0.596)
pt3dadd(-13.333, 184.772, -27.329, 0.57)
pt3dadd(-13.449, 184.798, -27.343, 0.544)
pt3dadd(-13.564, 184.825, -27.358, 0.518)
pt3dadd(-13.681, 184.848, -27.371, 0.496)
pt3dadd(-13.799, 184.865, -27.383, 0.478)
pt3dadd(-13.917, 184.88, -27.396, 0.458)
pt3dadd(-14.035, 184.897, -27.4, 0.468)
pt3dadd(-14.153, 184.914, -27.411, 0.488)
pt3dadd(-14.27, 184.931, -27.427, 0.504)
pt3dadd(-14.387, 184.946, -27.444, 0.522)
pt3dadd(-14.505, 184.963, -27.46, 0.538)
pt3dadd(-14.622, 184.98, -27.477, 0.554)
pt3dadd(-14.739, 184.997, -27.493, 0.57)
pt3dadd(-14.857, 185.012, -27.494, 0.582)
pt3dadd(-14.975, 185.029, -27.483, 0.59)
pt3dadd(-15.093, 185.046, -27.473, 0.598)
pt3dadd(-15.211, 185.063, -27.462, 0.606)
pt3dadd(-15.33, 185.08, -27.452, 0.614)
pt3dadd(-15.448, 185.096, -27.442, 0.622)
pt3dadd(-15.566, 185.112, -27.432, 0.628)
pt3dadd(-15.685, 185.129, -27.427, 0.628)
pt3dadd(-15.803, 185.146, -27.422, 0.628)
pt3dadd(-15.922, 185.162, -27.417, 0.628)
pt3dadd(-16.041, 185.179, -27.412, 0.628)
pt3dadd(-16.159, 185.196, -27.407, 0.628)
pt3dadd(-16.278, 185.213, -27.402, 0.628)
pt3dadd(-16.397, 185.23, -27.4, 0.628)
pt3dadd(-16.516, 185.246, -27.4, 0.628)
pt3dadd(-16.635, 185.263, -27.4, 0.628)
pt3dadd(-16.753, 185.28, -27.4, 0.628)
pt3dadd(-16.872, 185.296, -27.4, 0.628)
pt3dadd(-16.991, 185.312, -27.4, 0.628)
pt3dadd(-17.11, 185.329, -27.4, 0.628)
pt3dadd(-17.229, 185.346, -27.401, 0.63)
pt3dadd(-17.347, 185.363, -27.403, 0.634)
pt3dadd(-17.466, 185.38, -27.404, 0.638)
pt3dadd(-17.585, 185.396, -27.406, 0.64)
pt3dadd(-17.704, 185.413, -27.407, 0.644)
pt3dadd(-17.823, 185.43, -27.409, 0.648)
pt3dadd(-17.942, 185.447, -27.411, 0.652)
pt3dadd(-18.055, 185.462, -27.435, 0.652)
pt3dadd(-18.165, 185.478, -27.472, 0.652)
pt3dadd(-18.276, 185.494, -27.509, 0.652)
pt3dadd(-18.386, 185.509, -27.546, 0.652)
pt3dadd(-18.496, 185.525, -27.583, 0.652)
pt3dadd(-18.602, 185.539, -27.627, 0.652)
pt3dadd(-18.695, 185.552, -27.69, 0.646)
pt3dadd(-18.788, 185.566, -27.752, 0.642)
pt3dadd(-18.88, 185.579, -27.815, 0.636)
pt3dadd(-18.973, 185.592, -27.877, 0.632)
pt3dadd(-19.067, 185.604, -27.939, 0.63)
pt3dadd(-19.162, 185.618, -27.999, 0.634)
pt3dadd(-19.257, 185.632, -28.059, 0.64)
pt3dadd(-19.352, 185.645, -28.119, 0.644)
pt3dadd(-19.447, 185.658, -28.179, 0.65)
pt3dadd(-19.548, 185.672, -28.226, 0.656)
pt3dadd(-19.667, 185.687, -28.238, 0.664)
pt3dadd(-19.785, 185.701, -28.251, 0.672)
pt3dadd(-19.903, 185.714, -28.264, 0.68)
pt3dadd(-20.021, 185.729, -28.276, 0.688)
pt3dadd(-20.139, 185.744, -28.289, 0.696)
pt3dadd(-20.257, 185.753, -28.298, 0.704)
pt3dadd(-20.37, 185.72, -28.279, 0.716)
pt3dadd(-20.483, 185.687, -28.26, 0.726)
pt3dadd(-20.596, 185.654, -28.241, 0.736)
pt3dadd(-20.71, 185.622, -28.222, 0.746)
pt3dadd(-20.819, 185.579, -28.21, 0.75)
pt3dadd(-20.924, 185.519, -28.208, 0.738)
pt3dadd(-21.028, 185.46, -28.206, 0.728)
pt3dadd(-21.132, 185.4, -28.203, 0.718)
pt3dadd(-21.236, 185.341, -28.201, 0.708)
pt3dadd(-21.344, 185.292, -28.189, 0.694)
pt3dadd(-21.455, 185.256, -28.167, 0.678)
pt3dadd(-21.566, 185.218, -28.146, 0.662)
pt3dadd(-21.677, 185.182, -28.124, 0.646)
pt3dadd(-21.788, 185.143, -28.102, 0.63)
pt3dadd(-21.903, 185.112, -28.1, 0.598)
pt3dadd(-22.019, 185.082, -28.1, 0.564)
pt3dadd(-22.138, 185.074, -28.1, 0.552)
pt3dadd(-22.258, 185.081, -28.1, 0.552)
pt3dadd(-22.377, 185.088, -28.1, 0.552)
pt3dadd(-22.494, 185.065, -28.1, 0.562)
pt3dadd(-22.61, 185.034, -28.1, 0.572)
pt3dadd(-22.71, 184.975, -28.1, 0.584)
pt3dadd(-22.797, 184.892, -28.1, 0.596)
pt3dadd(-22.885, 184.81, -28.1, 0.602)
pt3dadd(-22.972, 184.727, -28.1, 0.602)
pt3dadd(-23.062, 184.648, -28.1, 0.608)
pt3dadd(-23.152, 184.568, -28.1, 0.612)
pt3dadd(-23.241, 184.489, -28.1, 0.618)
pt3dadd(-23.331, 184.409, -28.1, 0.622)
pt3dadd(-23.421, 184.33, -28.1, 0.628)
pt3dadd(-23.517, 184.258, -28.093, 0.628)
pt3dadd(-23.612, 184.186, -28.086, 0.628)
pt3dadd(-23.708, 184.114, -28.079, 0.628)
pt3dadd(-23.804, 184.042, -28.072, 0.628)
pt3dadd(-23.9, 183.976, -28.077, 0.628)
pt3dadd(-23.999, 183.922, -28.113, 0.628)
pt3dadd(-24.097, 183.869, -28.149, 0.628)
pt3dadd(-24.195, 183.815, -28.185, 0.628)
pt3dadd(-24.292, 183.745, -28.191, 0.618)
pt3dadd(-24.387, 183.673, -28.193, 0.608)
pt3dadd(-24.483, 183.601, -28.195, 0.598)
pt3dadd(-24.579, 183.528, -28.198, 0.588)
pt3dadd(-24.675, 183.456, -28.2, 0.578)
pt3dadd(-24.763, 183.379, -28.223, 0.578)
pt3dadd(-24.851, 183.302, -28.246, 0.578)
pt3dadd(-24.939, 183.226, -28.269, 0.578)
pt3dadd(-25.026, 183.149, -28.292, 0.578)
pt3dadd(-25.104, 183.062, -28.314, 0.578)
pt3dadd(-25.177, 182.97, -28.337, 0.578)
pt3dadd(-25.25, 182.879, -28.359, 0.578)
pt3dadd(-25.323, 182.788, -28.381, 0.578)
pt3dadd(-25.401, 182.704, -28.403, 0.582)
pt3dadd(-25.514, 182.666, -28.419, 0.606)
pt3dadd(-25.62, 182.622, -28.438, 0.63)
pt3dadd(-25.691, 182.536, -28.475, 0.644)
pt3dadd(-25.769, 182.453, -28.5, 0.656)
pt3dadd(-25.862, 182.377, -28.5, 0.668)
pt3dadd(-25.945, 182.294, -28.5, 0.68)
pt3dadd(-25.982, 182.18, -28.5, 0.69)
pt3dadd(-26.018, 182.065, -28.5, 0.7)
pt3dadd(-26.074, 181.961, -28.5, 0.744)
pt3dadd(-26.141, 181.861, -28.5, 0.808)
pt3dadd(-26.198, 181.756, -28.5, 0.84)
pt3dadd(-26.255, 181.65, -28.5, 0.872)
pt3dadd(-26.311, 181.544, -28.5, 0.904)
pt3dadd(-26.368, 181.439, -28.5, 0.936)
pt3dadd(-26.425, 181.333, -28.5, 0.968)
pt3dadd(-26.487, 181.23, -28.5, 1.002)
pt3dadd(-26.553, 181.129, -28.5, 1.034)
pt3dadd(-26.618, 181.028, -28.5, 1.068)
pt3dadd(-26.683, 180.928, -28.5, 1.102)
pt3dadd(-26.748, 180.827, -28.5, 1.134)
pt3dadd(-26.824, 180.737, -28.5, 1.164)
pt3dadd(-26.918, 180.661, -28.5, 1.188)
pt3dadd(-26.998, 180.576, -28.5, 1.2)
pt3dadd(-27.04, 180.463, -28.5, 1.18)
pt3dadd(-27.083, 180.352, -28.5, 1.16)
pt3dadd(-27.139, 180.246, -28.5, 1.13)
pt3dadd(-27.201, 180.143, -28.5, 1.098)
pt3dadd(-27.287, 180.07, -28.5, 1.086)
pt3dadd(-27.4, 180.031, -28.5, 1.096)
pt3dadd(-27.515, 179.999, -28.501, 1.11)
pt3dadd(-27.635, 179.986, -28.503, 1.128)
pt3dadd(-27.754, 179.972, -28.506, 1.146)
pt3dadd(-27.873, 179.959, -28.509, 1.166)
pt3dadd(-27.972, 179.926, -28.518, 1.19)
pt3dadd(-27.993, 179.814, -28.553, 1.234)
pt3dadd(-28.015, 179.704, -28.587, 1.278)
pt3dadd(-28.039, 179.594, -28.618, 1.304)
pt3dadd(-28.105, 179.513, -28.666, 1.292)
pt3dadd(-28.172, 179.432, -28.715, 1.28)
pt3dadd(-28.238, 179.351, -28.763, 1.268)
pt3dadd(-28.305, 179.269, -28.811, 1.256)
pt3dadd(-28.369, 179.188, -28.861, 1.186)
pt3dadd(-28.427, 179.102, -28.911, 1.116)
pt3dadd(-28.461, 179.005, -28.962, 1.052)
pt3dadd(-28.494, 178.916, -29.02, 0.996)
pt3dadd(-28.523, 178.859, -29.105, 0.956)
pt3dadd(-28.559, 178.818, -29.191, 0.926)
pt3dadd(-28.615, 178.819, -29.279, 0.914)
pt3dadd(-28.672, 178.813, -29.364, 0.902)
pt3dadd(-28.739, 178.753, -29.431, 0.88)
pt3dadd(-28.81, 178.686, -29.489, 0.838)
pt3dadd(-28.884, 178.63, -29.549, 0.792)
pt3dadd(-28.966, 178.613, -29.621, 0.738)
pt3dadd(-29.043, 178.566, -29.673, 0.69)
pt3dadd(-29.109, 178.469, -29.689, 0.652)
pt3dadd(-29.16, 178.364, -29.704, 0.628)
pt3dadd(-29.183, 178.248, -29.717, 0.628)
pt3dadd(-29.204, 178.13, -29.73, 0.628)
pt3dadd(-29.244, 178.028, -29.766, 0.642)
pt3dadd(-29.293, 177.925, -29.79, 0.656)
pt3dadd(-29.344, 177.817, -29.792, 0.66)
pt3dadd(-29.397, 177.709, -29.794, 0.664)
pt3dadd(-29.448, 177.601, -29.796, 0.668)
pt3dadd(-29.5, 177.492, -29.798, 0.674)
pt3dadd(-29.553, 177.384, -29.8, 0.678)
pt3dadd(-29.628, 177.295, -29.822, 0.678)
pt3dadd(-29.704, 177.206, -29.845, 0.678)
pt3dadd(-29.781, 177.118, -29.867, 0.678)
pt3dadd(-29.856, 177.029, -29.889, 0.678)
pt3dadd(-29.941, 176.947, -29.901, 0.676)
pt3dadd(-30.034, 176.872, -29.903, 0.67)
pt3dadd(-30.129, 176.796, -29.906, 0.664)
pt3dadd(-30.222, 176.722, -29.908, 0.66)
pt3dadd(-30.316, 176.646, -29.91, 0.654)
pt3dadd(-30.399, 176.568, -29.936, 0.648)
pt3dadd(-30.477, 176.49, -29.973, 0.642)
pt3dadd(-30.556, 176.411, -30.01, 0.636)
pt3dadd(-30.635, 176.332, -30.047, 0.63)
pt3dadd(-30.718, 176.257, -30.082, 0.622)
pt3dadd(-30.808, 176.186, -30.113, 0.61)
}
}
proc shape3d_82() {
apic[32] { pt3dadd(-30.898, 176.117, -30.145, 0.598)
pt3dadd(-30.987, 176.046, -30.176, 0.586)
pt3dadd(-31.076, 175.973, -30.206, 0.578)
pt3dadd(-31.161, 175.892, -30.229, 0.578)
pt3dadd(-31.245, 175.812, -30.251, 0.578)
pt3dadd(-31.33, 175.732, -30.274, 0.578)
pt3dadd(-31.415, 175.652, -30.297, 0.578)
pt3dadd(-31.499, 175.567, -30.313, 0.578)
pt3dadd(-31.581, 175.482, -30.327, 0.578)
pt3dadd(-31.663, 175.397, -30.342, 0.578)
pt3dadd(-31.745, 175.312, -30.356, 0.578)
pt3dadd(-31.829, 175.226, -30.368, 0.582)
pt3dadd(-31.912, 175.14, -30.373, 0.598)
pt3dadd(-31.996, 175.055, -30.377, 0.614)
pt3dadd(-32.08, 174.968, -30.382, 0.63)
pt3dadd(-32.163, 174.883, -30.387, 0.646)
pt3dadd(-32.25, 174.802, -30.377, 0.66)
pt3dadd(-32.336, 174.722, -30.357, 0.67)
pt3dadd(-32.423, 174.643, -30.337, 0.682)
pt3dadd(-32.511, 174.564, -30.317, 0.694)
pt3dadd(-32.59, 174.48, -30.3, 0.704)
pt3dadd(-32.634, 174.368, -30.3, 0.714)
pt3dadd(-32.678, 174.257, -30.3, 0.722)
pt3dadd(-32.721, 174.145, -30.3, 0.73)
pt3dadd(-32.765, 174.032, -30.3, 0.74)
pt3dadd(-32.808, 173.921, -30.3, 0.748)
pt3dadd(-32.853, 173.81, -30.3, 0.752)
pt3dadd(-32.903, 173.7, -30.3, 0.748)
pt3dadd(-32.951, 173.591, -30.3, 0.742)
pt3dadd(-33, 173.482, -30.3, 0.738)
pt3dadd(-33.048, 173.371, -30.3, 0.734)
pt3dadd(-33.097, 173.262, -30.3, 0.73)
pt3dadd(-33.159, 173.159, -30.3, 0.726)
pt3dadd(-33.228, 173.06, -30.3, 0.72)
pt3dadd(-33.295, 172.962, -30.3, 0.716)
pt3dadd(-33.363, 172.862, -30.3, 0.71)
pt3dadd(-33.432, 172.764, -30.3, 0.706)
pt3dadd(-33.477, 172.663, -30.279, 0.698)
pt3dadd(-33.498, 172.559, -30.232, 0.686)
pt3dadd(-33.531, 172.462, -30.182, 0.678)
pt3dadd(-33.587, 172.38, -30.127, 0.678)
pt3dadd(-33.653, 172.291, -30.1, 0.672)
pt3dadd(-33.728, 172.198, -30.1, 0.66)
pt3dadd(-33.813, 172.117, -30.1, 0.646)
pt3dadd(-33.921, 172.063, -30.1, 0.622)
pt3dadd(-34.018, 172, -30.1, 0.598)
pt3dadd(-34.067, 171.89, -30.1, 0.566)
pt3dadd(-34.111, 171.78, -30.089, 0.55)
pt3dadd(-34.154, 171.671, -30.07, 0.544)
pt3dadd(-34.194, 171.56, -30.05, 0.54)
pt3dadd(-34.237, 171.45, -30.03, 0.534)
pt3dadd(-34.279, 171.341, -30.011, 0.53)
pt3dadd(-34.331, 171.246, -29.975, 0.52)
pt3dadd(-34.395, 171.17, -29.918, 0.506)
pt3dadd(-34.443, 171.083, -29.864, 0.484)
pt3dadd(-34.484, 170.99, -29.812, 0.458)
pt3dadd(-34.566, 170.91, -29.8, 0.442)
pt3dadd(-34.659, 170.834, -29.8, 0.43)
pt3dadd(-34.762, 170.773, -29.8, 0.442)
pt3dadd(-34.869, 170.72, -29.8, 0.466)
pt3dadd(-34.957, 170.646, -29.788, 0.492)
pt3dadd(-35.025, 170.551, -29.764, 0.524)
pt3dadd(-35.091, 170.456, -29.74, 0.556)
pt3dadd(-35.144, 170.369, -29.7, 0.59)
pt3dadd(-35.153, 170.302, -29.617, 0.636)
pt3dadd(-35.163, 170.228, -29.543, 0.68)
pt3dadd(-35.18, 170.111, -29.531, 0.694)
pt3dadd(-35.196, 169.993, -29.518, 0.708)
pt3dadd(-35.213, 169.874, -29.506, 0.722)
pt3dadd(-35.23, 169.757, -29.5, 0.732)
pt3dadd(-35.246, 169.638, -29.5, 0.742)
pt3dadd(-35.263, 169.519, -29.5, 0.75)
pt3dadd(-35.278, 169.41, -29.472, 0.754)
pt3dadd(-35.292, 169.309, -29.418, 0.754)
pt3dadd(-35.307, 169.21, -29.364, 0.754)
pt3dadd(-35.333, 169.115, -29.308, 0.77)
pt3dadd(-35.367, 169.021, -29.251, 0.796)
pt3dadd(-35.441, 168.962, -29.197, 0.834)
pt3dadd(-35.533, 168.918, -29.145, 0.876)
pt3dadd(-35.629, 168.866, -29.108, 0.962)
pt3dadd(-35.728, 168.8, -29.1, 1.13)
}
apic[33] {pt3dclear()
pt3dadd(95.252, 153.731, 6.33, 2.706)
pt3dadd(95.248, 153.724, 6.311, 2.686)
pt3dadd(95.335, 153.697, 6.254, 2.574)
pt3dadd(95.422, 153.671, 6.196, 2.462)
pt3dadd(95.508, 153.643, 6.139, 2.35)
pt3dadd(95.595, 153.617, 6.081, 2.238)
pt3dadd(95.682, 153.589, 6.024, 2.126)
pt3dadd(95.769, 153.563, 5.966, 2.016)
pt3dadd(95.856, 153.536, 5.909, 1.904)
pt3dadd(95.943, 153.51, 5.851, 1.792)
pt3dadd(96.03, 153.484, 5.794, 1.68)
pt3dadd(96.116, 153.457, 5.736, 1.568)
pt3dadd(96.203, 153.43, 5.679, 1.456)
pt3dadd(96.29, 153.403, 5.621, 1.344)
pt3dadd(96.377, 153.376, 5.564, 1.232)
pt3dadd(96.461, 153.348, 5.516, 1.13)
pt3dadd(96.517, 153.302, 5.587, 1.09)
pt3dadd(96.598, 153.245, 5.618, 0.92)
pt3dadd(96.703, 153.22, 5.62, 0.764)
pt3dadd(96.811, 153.214, 5.616, 0.678)
pt3dadd(96.919, 153.211, 5.603, 0.634)
pt3dadd(97.024, 153.21, 5.575, 0.58)
pt3dadd(97.129, 153.185, 5.558, 0.578)
pt3dadd(97.234, 153.158, 5.542, 0.578)
pt3dadd(97.339, 153.133, 5.525, 0.578)
pt3dadd(97.444, 153.107, 5.508, 0.578)
pt3dadd(97.549, 153.082, 5.492, 0.578)
pt3dadd(97.655, 153.06, 5.482, 0.578)
pt3dadd(97.762, 153.04, 5.478, 0.578)
pt3dadd(97.869, 153.022, 5.474, 0.578)
pt3dadd(97.977, 153.002, 5.47, 0.578)
pt3dadd(98.084, 152.984, 5.466, 0.578)
pt3dadd(98.191, 152.965, 5.461, 0.578)
pt3dadd(98.297, 152.945, 5.449, 0.58)
pt3dadd(98.401, 152.921, 5.426, 0.584)
pt3dadd(98.505, 152.897, 5.402, 0.59)
pt3dadd(98.609, 152.87, 5.379, 0.594)
pt3dadd(98.713, 152.846, 5.356, 0.598)
pt3dadd(98.816, 152.818, 5.336, 0.602)
pt3dadd(98.805, 152.816, 5.332, 0.602)
pt3dadd(98.905, 152.771, 5.328, 0.602)
pt3dadd(99.005, 152.725, 5.324, 0.602)
pt3dadd(99.105, 152.68, 5.319, 0.602)
pt3dadd(99.204, 152.633, 5.315, 0.602)
pt3dadd(99.304, 152.587, 5.311, 0.602)
pt3dadd(99.395, 152.522, 5.307, 0.606)
pt3dadd(99.484, 152.455, 5.303, 0.612)
pt3dadd(99.573, 152.388, 5.298, 0.616)
pt3dadd(99.661, 152.321, 5.294, 0.622)
pt3dadd(99.75, 152.254, 5.29, 0.626)
pt3dadd(99.835, 152.182, 5.286, 0.64)
pt3dadd(99.92, 152.108, 5.282, 0.654)
pt3dadd(100.005, 152.035, 5.277, 0.67)
pt3dadd(100.089, 151.961, 5.273, 0.684)
pt3dadd(100.173, 151.888, 5.269, 0.7)
pt3dadd(100.219, 151.784, 5.265, 0.72)
pt3dadd(100.255, 151.673, 5.261, 0.742)
pt3dadd(100.29, 151.561, 5.256, 0.754)
pt3dadd(100.325, 151.45, 5.252, 0.754)
pt3dadd(100.368, 151.344, 5.248, 0.746)
pt3dadd(100.445, 151.261, 5.244, 0.71)
pt3dadd(100.521, 151.177, 5.239, 0.676)
pt3dadd(100.594, 151.091, 5.23, 0.652)
pt3dadd(100.668, 151.007, 5.218, 0.626)
pt3dadd(100.745, 150.996, 5.148, 0.59)
pt3dadd(100.819, 150.955, 5.084, 0.578)
pt3dadd(100.891, 150.9, 5.023, 0.578)
pt3dadd(100.967, 150.82, 5.014, 0.588)
pt3dadd(101.044, 150.737, 5.01, 0.6)
pt3dadd(101.135, 150.677, 5.019, 0.632)
pt3dadd(101.229, 150.622, 5.032, 0.67)
pt3dadd(101.269, 150.552, 5.089, 0.678)
pt3dadd(101.293, 150.478, 5.158, 0.678)
pt3dadd(101.35, 150.407, 5.211, 0.636)
pt3dadd(101.436, 150.382, 5.258, 0.588)
pt3dadd(101.529, 150.368, 5.302, 0.54)
pt3dadd(101.58, 150.288, 5.337, 0.496)
pt3dadd(101.618, 150.185, 5.369, 0.456)
pt3dadd(101.689, 150.103, 5.347, 0.44)
pt3dadd(101.763, 150.024, 5.318, 0.428)
pt3dadd(101.823, 149.995, 5.236, 0.44)
pt3dadd(101.888, 149.964, 5.17, 0.456)
pt3dadd(101.987, 149.927, 5.19, 0.488)
pt3dadd(102.087, 149.888, 5.21, 0.518)
pt3dadd(102.186, 149.85, 5.229, 0.548)
pt3dadd(102.279, 149.791, 5.228, 0.608)
pt3dadd(102.372, 149.731, 5.224, 0.668)
pt3dadd(102.428, 149.641, 5.188, 0.732)
pt3dadd(102.477, 149.546, 5.147, 0.794)
pt3dadd(102.541, 149.467, 5.106, 0.846)
pt3dadd(102.625, 149.407, 5.065, 0.888)
pt3dadd(102.705, 149.342, 5.024, 0.854)
pt3dadd(102.746, 149.238, 4.996, 0.814)
pt3dadd(102.788, 149.132, 4.967, 0.776)
pt3dadd(102.83, 149.027, 4.938, 0.736)
pt3dadd(102.871, 148.922, 4.909, 0.698)
pt3dadd(102.914, 148.817, 4.895, 0.648)
pt3dadd(102.959, 148.71, 4.896, 0.59)
pt3dadd(103.011, 148.613, 4.911, 0.548)
pt3dadd(103.075, 148.536, 4.951, 0.532)
pt3dadd(103.147, 148.462, 4.944, 0.564)
pt3dadd(103.223, 148.388, 4.907, 0.624)
pt3dadd(103.312, 148.325, 4.885, 0.664)
pt3dadd(103.402, 148.262, 4.864, 0.702)
pt3dadd(103.487, 148.198, 4.833, 0.742)
pt3dadd(103.532, 148.103, 4.797, 0.734)
pt3dadd(103.562, 147.997, 4.758, 0.708)
pt3dadd(103.624, 147.905, 4.746, 0.674)
pt3dadd(103.695, 147.816, 4.742, 0.64)
pt3dadd(103.786, 147.76, 4.738, 0.606)
pt3dadd(103.888, 147.718, 4.734, 0.574)
pt3dadd(103.992, 147.684, 4.73, 0.552)
pt3dadd(104.099, 147.668, 4.725, 0.552)
pt3dadd(104.207, 147.653, 4.721, 0.552)
pt3dadd(104.296, 147.595, 4.717, 0.562)
pt3dadd(104.375, 147.515, 4.713, 0.576)
pt3dadd(104.454, 147.434, 4.709, 0.59)
pt3dadd(104.532, 147.354, 4.704, 0.604)
pt3dadd(104.602, 147.264, 4.7, 0.628)
}
}
proc shape3d_83() {
apic[33] { pt3dadd(104.672, 147.175, 4.696, 0.652)
pt3dadd(104.776, 147.143, 4.692, 0.668)
pt3dadd(104.882, 147.114, 4.688, 0.682)
pt3dadd(104.987, 147.084, 4.683, 0.698)
pt3dadd(105.091, 147.052, 4.679, 0.716)
pt3dadd(105.195, 147.017, 4.675, 0.738)
pt3dadd(105.292, 146.974, 4.662, 0.762)
pt3dadd(105.364, 146.899, 4.621, 0.806)
pt3dadd(105.437, 146.825, 4.579, 0.848)
pt3dadd(105.492, 146.726, 4.565, 0.874)
pt3dadd(105.544, 146.623, 4.555, 0.898)
pt3dadd(105.635, 146.573, 4.55, 0.88)
pt3dadd(105.715, 146.518, 4.5, 0.844)
pt3dadd(105.793, 146.462, 4.448, 0.808)
pt3dadd(105.872, 146.406, 4.396, 0.772)
pt3dadd(105.95, 146.35, 4.343, 0.736)
pt3dadd(106.046, 146.311, 4.311, 0.708)
pt3dadd(106.147, 146.276, 4.284, 0.682)
pt3dadd(106.247, 146.243, 4.257, 0.656)
pt3dadd(106.348, 146.209, 4.23, 0.63)
pt3dadd(106.449, 146.176, 4.203, 0.606)
pt3dadd(106.539, 146.131, 4.159, 0.566)
pt3dadd(106.628, 146.089, 4.113, 0.528)
pt3dadd(106.729, 146.081, 4.074, 0.54)
pt3dadd(106.83, 146.074, 4.036, 0.55)
pt3dadd(106.92, 146.021, 4.042, 0.566)
pt3dadd(107.009, 145.974, 4.068, 0.584)
pt3dadd(107.103, 145.967, 4.11, 0.608)
pt3dadd(107.2, 145.961, 4.146, 0.628)
pt3dadd(107.308, 145.96, 4.147, 0.634)
pt3dadd(107.417, 145.958, 4.147, 0.64)
pt3dadd(107.525, 145.957, 4.148, 0.646)
pt3dadd(107.634, 145.955, 4.149, 0.65)
pt3dadd(107.738, 145.954, 4.126, 0.666)
pt3dadd(107.84, 145.952, 4.089, 0.688)
pt3dadd(107.943, 145.951, 4.057, 0.71)
pt3dadd(108.05, 145.95, 4.039, 0.732)
pt3dadd(108.157, 145.949, 4.018, 0.744)
pt3dadd(108.264, 145.948, 3.998, 0.758)
pt3dadd(108.371, 145.946, 3.977, 0.77)
pt3dadd(108.478, 145.944, 3.956, 0.782)
pt3dadd(108.585, 145.943, 3.936, 0.794)
pt3dadd(108.691, 145.936, 3.915, 0.81)
pt3dadd(108.796, 145.912, 3.894, 0.834)
pt3dadd(108.9, 145.888, 3.873, 0.858)
pt3dadd(109.005, 145.864, 3.852, 0.882)
pt3dadd(109.109, 145.84, 3.831, 0.906)
pt3dadd(109.214, 145.816, 3.81, 0.928)
pt3dadd(109.32, 145.806, 3.786, 0.96)
pt3dadd(109.426, 145.798, 3.762, 0.99)
pt3dadd(109.532, 145.79, 3.739, 1.022)
pt3dadd(109.638, 145.782, 3.715, 1.052)
pt3dadd(109.744, 145.774, 3.691, 1.084)
pt3dadd(109.851, 145.764, 3.673, 1.108)
pt3dadd(109.958, 145.75, 3.669, 1.12)
pt3dadd(110.066, 145.736, 3.665, 1.132)
pt3dadd(110.174, 145.721, 3.661, 1.144)
pt3dadd(110.282, 145.708, 3.657, 1.156)
pt3dadd(110.39, 145.693, 3.652, 1.168)
pt3dadd(110.498, 145.68, 3.648, 1.18)
pt3dadd(110.606, 145.678, 3.644, 1.17)
pt3dadd(110.715, 145.676, 3.64, 1.16)
pt3dadd(110.823, 145.675, 3.636, 1.148)
pt3dadd(110.932, 145.674, 3.631, 1.138)
pt3dadd(111.04, 145.672, 3.627, 1.128)
pt3dadd(111.149, 145.67, 3.623, 1.116)
pt3dadd(111.257, 145.669, 3.619, 1.106)
pt3dadd(111.363, 145.668, 3.593, 1.076)
pt3dadd(111.468, 145.667, 3.566, 1.046)
pt3dadd(111.573, 145.666, 3.539, 1.016)
pt3dadd(111.679, 145.664, 3.512, 0.986)
pt3dadd(111.784, 145.663, 3.485, 0.956)
pt3dadd(111.889, 145.662, 3.457, 0.926)
pt3dadd(111.992, 145.66, 3.423, 0.904)
pt3dadd(112.095, 145.658, 3.389, 0.882)
pt3dadd(112.198, 145.657, 3.355, 0.86)
pt3dadd(112.301, 145.656, 3.321, 0.836)
pt3dadd(112.404, 145.655, 3.287, 0.814)
pt3dadd(112.51, 145.654, 3.267, 0.798)
pt3dadd(112.619, 145.652, 3.262, 0.786)
pt3dadd(112.727, 145.651, 3.256, 0.776)
pt3dadd(112.836, 145.649, 3.25, 0.766)
pt3dadd(112.944, 145.648, 3.244, 0.754)
pt3dadd(113.053, 145.646, 3.238, 0.744)
pt3dadd(113.161, 145.645, 3.233, 0.732)
pt3dadd(113.262, 145.658, 3.202, 0.722)
pt3dadd(113.358, 145.68, 3.158, 0.71)
pt3dadd(113.454, 145.702, 3.113, 0.7)
pt3dadd(113.55, 145.723, 3.069, 0.69)
pt3dadd(113.646, 145.744, 3.025, 0.678)
pt3dadd(113.727, 145.75, 2.957, 0.656)
pt3dadd(113.806, 145.754, 2.888, 0.63)
pt3dadd(113.905, 145.771, 2.849, 0.618)
pt3dadd(114.006, 145.788, 2.813, 0.606)
pt3dadd(114.109, 145.817, 2.801, 0.61)
pt3dadd(114.213, 145.848, 2.797, 0.62)
pt3dadd(114.316, 145.859, 2.793, 0.632)
pt3dadd(114.305, 145.856, 2.789, 0.632)
pt3dadd(114.409, 145.822, 2.784, 0.642)
pt3dadd(114.513, 145.788, 2.78, 0.652)
pt3dadd(114.61, 145.735, 2.776, 0.668)
pt3dadd(114.709, 145.693, 2.765, 0.68)
pt3dadd(114.814, 145.669, 2.744, 0.684)
pt3dadd(114.918, 145.645, 2.723, 0.69)
pt3dadd(115.023, 145.622, 2.702, 0.694)
pt3dadd(115.128, 145.597, 2.681, 0.7)
pt3dadd(115.23, 145.571, 2.657, 0.704)
pt3dadd(115.32, 145.526, 2.612, 0.716)
pt3dadd(115.409, 145.482, 2.567, 0.728)
pt3dadd(115.498, 145.438, 2.522, 0.74)
pt3dadd(115.587, 145.393, 2.477, 0.75)
pt3dadd(115.651, 145.36, 2.403, 0.77)
pt3dadd(115.707, 145.327, 2.32, 0.794)
pt3dadd(115.763, 145.295, 2.237, 0.816)
pt3dadd(115.819, 145.262, 2.154, 0.84)
pt3dadd(115.866, 145.24, 2.066, 0.86)
pt3dadd(115.902, 145.231, 1.97, 0.874)
pt3dadd(115.938, 145.222, 1.874, 0.89)
pt3dadd(115.974, 145.213, 1.778, 0.904)
pt3dadd(116.009, 145.205, 1.682, 0.918)
pt3dadd(116.032, 145.187, 1.585, 0.93)
pt3dadd(116.026, 145.151, 1.485, 0.93)
pt3dadd(116.021, 145.115, 1.385, 0.93)
pt3dadd(116.009, 145.08, 1.285, 0.868)
pt3dadd(115.998, 145.045, 1.185, 0.806)
pt3dadd(116.007, 145.019, 1.086, 0.726)
pt3dadd(116.033, 145, 0.988, 0.632)
pt3dadd(116.067, 144.99, 0.892, 0.544)
pt3dadd(116.112, 144.995, 0.8, 0.462)
pt3dadd(116.149, 145.025, 0.716, 0.396)
pt3dadd(116.167, 145.116, 0.655, 0.37)
pt3dadd(116.185, 145.21, 0.594, 0.346)
pt3dadd(116.217, 145.291, 0.542, 0.324)
pt3dadd(116.324, 145.31, 0.537, 0.304)
pt3dadd(116.431, 145.33, 0.533, 0.284)
pt3dadd(116.538, 145.337, 0.529, 0.262)
pt3dadd(116.647, 145.336, 0.525, 0.246)
pt3dadd(116.755, 145.334, 0.521, 0.238)
pt3dadd(116.864, 145.332, 0.516, 0.23)
pt3dadd(116.97, 145.349, 0.512, 0.226)
pt3dadd(117.074, 145.381, 0.508, 0.226)
pt3dadd(117.175, 145.418, 0.504, 0.226)
pt3dadd(117.257, 145.493, 0.5, 0.226)
pt3dadd(117.339, 145.566, 0.495, 0.226)
pt3dadd(117.343, 145.562, 0.392, 0.716)
pt3dadd(117.346, 145.559, 0.289, 0.752)
pt3dadd(117.363, 145.554, 0.189, 0.79)
pt3dadd(117.412, 145.543, 0.099, 0.824)
pt3dadd(117.468, 145.534, 0.017, 0.854)
pt3dadd(117.574, 145.522, -0.005, 0.866)
pt3dadd(117.68, 145.508, -0.027, 0.876)
pt3dadd(117.772, 145.549, -0.042, 0.856)
pt3dadd(117.856, 145.62, -0.051, 0.82)
pt3dadd(117.939, 145.667, -0.09, 0.766)
pt3dadd(118.027, 145.679, -0.146, 0.722)
pt3dadd(118.122, 145.663, -0.195, 0.708)
pt3dadd(118.216, 145.646, -0.244, 0.694)
pt3dadd(118.311, 145.63, -0.293, 0.68)
pt3dadd(118.406, 145.614, -0.341, 0.664)
pt3dadd(118.502, 145.604, -0.386, 0.652)
pt3dadd(118.606, 145.626, -0.411, 0.646)
pt3dadd(118.71, 145.648, -0.436, 0.642)
pt3dadd(118.813, 145.669, -0.461, 0.636)
pt3dadd(118.917, 145.691, -0.486, 0.632)
pt3dadd(119.01, 145.722, -0.523, 0.626)
pt3dadd(119.085, 145.772, -0.582, 0.62)
pt3dadd(119.161, 145.822, -0.641, 0.614)
pt3dadd(119.236, 145.871, -0.7, 0.608)
pt3dadd(119.306, 145.926, -0.76, 0.604)
pt3dadd(119.364, 145.993, -0.821, 0.61)
pt3dadd(119.422, 146.062, -0.883, 0.616)
pt3dadd(119.48, 146.13, -0.944, 0.624)
pt3dadd(119.539, 146.192, -1.009, 0.634)
pt3dadd(119.602, 146.234, -1.082, 0.662)
pt3dadd(119.667, 146.28, -1.153, 0.698)
pt3dadd(119.732, 146.329, -1.222, 0.742)
pt3dadd(119.751, 146.376, -1.309, 0.77)
pt3dadd(119.752, 146.423, -1.405, 0.794)
pt3dadd(119.803, 146.438, -1.477, 0.798)
pt3dadd(119.898, 146.429, -1.527, 0.786)
pt3dadd(119.997, 146.418, -1.56, 0.758)
pt3dadd(120.106, 146.407, -1.564, 0.704)
pt3dadd(120.204, 146.416, -1.592, 0.67)
pt3dadd(120.295, 146.444, -1.643, 0.652)
pt3dadd(120.385, 146.473, -1.694, 0.634)
pt3dadd(120.475, 146.502, -1.745, 0.616)
pt3dadd(120.566, 146.528, -1.796, 0.602)
pt3dadd(120.659, 146.549, -1.845, 0.602)
pt3dadd(120.752, 146.57, -1.895, 0.602)
pt3dadd(120.845, 146.591, -1.945, 0.602)
pt3dadd(120.938, 146.611, -1.995, 0.602)
pt3dadd(121.034, 146.651, -2.025, 0.612)
pt3dadd(121.13, 146.694, -2.051, 0.624)
pt3dadd(121.228, 146.737, -2.078, 0.634)
pt3dadd(121.324, 146.78, -2.104, 0.646)
pt3dadd(121.411, 146.825, -2.145, 0.652)
pt3dadd(121.478, 146.868, -2.215, 0.652)
pt3dadd(121.546, 146.911, -2.285, 0.652)
pt3dadd(121.613, 146.956, -2.354, 0.652)
pt3dadd(121.688, 146.998, -2.414, 0.652)
}
}
proc shape3d_84() {
apic[33] { pt3dadd(121.784, 147.036, -2.445, 0.646)
pt3dadd(121.882, 147.073, -2.477, 0.64)
pt3dadd(121.979, 147.112, -2.509, 0.634)
pt3dadd(122.076, 147.149, -2.54, 0.628)
pt3dadd(122.178, 147.181, -2.563, 0.624)
pt3dadd(122.28, 147.211, -2.583, 0.618)
pt3dadd(122.383, 147.242, -2.604, 0.614)
pt3dadd(122.485, 147.272, -2.624, 0.608)
pt3dadd(122.588, 147.301, -2.645, 0.602)
pt3dadd(122.694, 147.283, -2.661, 0.602)
pt3dadd(122.801, 147.265, -2.678, 0.602)
pt3dadd(122.906, 147.26, -2.695, 0.598)
pt3dadd(123.012, 147.281, -2.715, 0.586)
pt3dadd(123.114, 147.3, -2.742, 0.574)
pt3dadd(123.204, 147.312, -2.799, 0.562)
pt3dadd(123.275, 147.334, -2.866, 0.548)
pt3dadd(123.305, 147.376, -2.957, 0.536)
pt3dadd(123.354, 147.425, -3.028, 0.53)
pt3dadd(123.437, 147.487, -3.065, 0.538)
pt3dadd(123.518, 147.548, -3.103, 0.548)
pt3dadd(123.606, 147.606, -3.128, 0.556)
pt3dadd(123.702, 147.659, -3.132, 0.568)
pt3dadd(123.798, 147.712, -3.136, 0.586)
pt3dadd(123.872, 147.79, -3.142, 0.606)
pt3dadd(123.93, 147.887, -3.148, 0.61)
pt3dadd(123.988, 147.984, -3.154, 0.614)
pt3dadd(124.045, 148.081, -3.161, 0.62)
pt3dadd(124.102, 148.177, -3.167, 0.624)
pt3dadd(124.15, 148.276, -3.188, 0.632)
pt3dadd(124.182, 148.374, -3.234, 0.642)
pt3dadd(124.214, 148.472, -3.28, 0.654)
pt3dadd(124.247, 148.572, -3.325, 0.666)
pt3dadd(124.278, 148.67, -3.371, 0.676)
pt3dadd(124.324, 148.757, -3.424, 0.688)
pt3dadd(124.373, 148.84, -3.478, 0.7)
pt3dadd(124.421, 148.922, -3.533, 0.712)
pt3dadd(124.47, 149.006, -3.587, 0.724)
pt3dadd(124.528, 149.063, -3.654, 0.728)
pt3dadd(124.591, 149.105, -3.727, 0.728)
pt3dadd(124.616, 149.14, -3.82, 0.708)
pt3dadd(124.636, 149.174, -3.917, 0.682)
pt3dadd(124.705, 149.185, -3.99, 0.656)
pt3dadd(124.786, 149.192, -4.057, 0.63)
pt3dadd(124.86, 149.186, -4.132, 0.616)
pt3dadd(124.933, 149.18, -4.207, 0.604)
pt3dadd(125.03, 149.207, -4.236, 0.618)
pt3dadd(125.101, 149.228, -4.292, 0.634)
pt3dadd(125.137, 149.24, -4.388, 0.646)
pt3dadd(125.177, 149.245, -4.482, 0.662)
pt3dadd(125.221, 149.243, -4.574, 0.686)
pt3dadd(125.276, 149.251, -4.656, 0.706)
pt3dadd(125.362, 149.288, -4.711, 0.72)
pt3dadd(125.448, 149.308, -4.767, 0.734)
pt3dadd(125.537, 149.305, -4.826, 0.746)
pt3dadd(125.633, 149.317, -4.863, 0.746)
pt3dadd(125.737, 149.347, -4.875, 0.728)
pt3dadd(125.842, 149.377, -4.879, 0.724)
pt3dadd(125.946, 149.408, -4.883, 0.718)
pt3dadd(126.05, 149.438, -4.888, 0.714)
pt3dadd(126.154, 149.468, -4.892, 0.71)
pt3dadd(126.258, 149.5, -4.896, 0.704)
pt3dadd(126.35, 149.555, -4.905, 0.7)
pt3dadd(126.437, 149.623, -4.916, 0.694)
pt3dadd(126.523, 149.69, -4.928, 0.688)
pt3dadd(126.61, 149.758, -4.939, 0.684)
pt3dadd(126.696, 149.825, -4.95, 0.678)
pt3dadd(126.793, 149.87, -4.971, 0.678)
pt3dadd(126.89, 149.915, -4.992, 0.678)
pt3dadd(126.989, 149.959, -5.013, 0.678)
pt3dadd(127.086, 150.005, -5.034, 0.678)
pt3dadd(127.187, 150.035, -5.055, 0.678)
pt3dadd(127.294, 150.04, -5.076, 0.678)
pt3dadd(127.4, 150.044, -5.097, 0.678)
pt3dadd(127.506, 150.049, -5.118, 0.678)
pt3dadd(127.613, 150.054, -5.139, 0.678)
pt3dadd(127.718, 150.064, -5.16, 0.678)
pt3dadd(127.81, 150.122, -5.179, 0.678)
pt3dadd(127.901, 150.18, -5.198, 0.678)
pt3dadd(127.992, 150.239, -5.217, 0.678)
pt3dadd(128.083, 150.296, -5.236, 0.678)
pt3dadd(128.176, 150.352, -5.256, 0.678)
pt3dadd(128.269, 150.406, -5.277, 0.678)
pt3dadd(128.35, 150.451, -5.325, 0.678)
pt3dadd(128.42, 150.492, -5.393, 0.678)
pt3dadd(128.456, 150.493, -5.486, 0.678)
pt3dadd(128.484, 150.486, -5.585, 0.678)
pt3dadd(128.519, 150.479, -5.681, 0.668)
pt3dadd(128.56, 150.469, -5.775, 0.644)
pt3dadd(128.612, 150.461, -5.861, 0.622)
pt3dadd(128.699, 150.449, -5.922, 0.602)
pt3dadd(128.786, 150.438, -5.983, 0.58)
pt3dadd(128.873, 150.426, -6.044, 0.558)
pt3dadd(128.962, 150.45, -6.095, 0.512)
pt3dadd(129.052, 150.486, -6.142, 0.456)
pt3dadd(129.146, 150.487, -6.187, 0.428)
pt3dadd(129.215, 150.475, -6.265, 0.434)
pt3dadd(129.283, 150.462, -6.343, 0.438)
pt3dadd(129.272, 150.461, -6.347, 0.438)
pt3dadd(129.341, 150.449, -6.425, 0.444)
pt3dadd(129.409, 150.436, -6.504, 0.448)
pt3dadd(129.481, 150.422, -6.579, 0.456)
pt3dadd(129.564, 150.408, -6.643, 0.476)
pt3dadd(129.648, 150.394, -6.707, 0.496)
pt3dadd(129.732, 150.379, -6.771, 0.518)
pt3dadd(129.815, 150.364, -6.835, 0.538)
pt3dadd(129.888, 150.35, -6.907, 0.558)
pt3dadd(129.93, 150.342, -7, 0.582)
pt3dadd(129.972, 150.334, -7.094, 0.606)
pt3dadd(130.013, 150.324, -7.188, 0.63)
pt3dadd(130.055, 150.316, -7.281, 0.654)
pt3dadd(130.097, 150.307, -7.375, 0.68)
pt3dadd(130.166, 150.294, -7.452, 0.738)
pt3dadd(130.236, 150.281, -7.529, 0.798)
pt3dadd(130.312, 150.268, -7.602, 0.836)
pt3dadd(130.387, 150.254, -7.675, 0.872)
pt3dadd(130.463, 150.24, -7.747, 0.878)
pt3dadd(130.538, 150.227, -7.819, 0.878)
pt3dadd(130.56, 150.221, -7.912, 0.868)
pt3dadd(130.553, 150.22, -8.016, 0.85)
pt3dadd(130.546, 150.217, -8.12, 0.832)
pt3dadd(130.566, 150.211, -8.22, 0.814)
pt3dadd(130.595, 150.204, -8.318, 0.794)
pt3dadd(130.625, 150.197, -8.416, 0.776)
pt3dadd(130.654, 150.19, -8.514, 0.756)
pt3dadd(130.746, 150.174, -8.555, 0.744)
pt3dadd(130.849, 150.157, -8.587, 0.734)
pt3dadd(130.948, 150.139, -8.626, 0.742)
pt3dadd(131.039, 150.122, -8.681, 0.76)
pt3dadd(131.128, 150.104, -8.739, 0.77)
pt3dadd(131.216, 150.086, -8.796, 0.78)
pt3dadd(131.304, 150.068, -8.854, 0.79)
pt3dadd(131.393, 150.05, -8.911, 0.8)
pt3dadd(131.467, 149.998, -8.967, 0.808)
pt3dadd(131.534, 149.929, -9.022, 0.814)
pt3dadd(131.602, 149.862, -9.078, 0.82)
pt3dadd(131.669, 149.794, -9.133, 0.826)
pt3dadd(131.737, 149.756, -9.201, 0.822)
pt3dadd(131.807, 149.744, -9.279, 0.81)
pt3dadd(131.882, 149.728, -9.35, 0.81)
pt3dadd(131.965, 149.707, -9.413, 0.822)
pt3dadd(132.018, 149.675, -9.488, 0.838)
pt3dadd(132.019, 149.627, -9.583, 0.862)
pt3dadd(132.016, 149.58, -9.68, 0.892)
pt3dadd(131.998, 149.539, -9.779, 0.934)
pt3dadd(131.981, 149.498, -9.877, 0.976)
pt3dadd(131.998, 149.429, -9.959, 0.988)
pt3dadd(132.016, 149.357, -10.04, 0.996)
pt3dadd(132.035, 149.285, -10.121, 1.004)
pt3dadd(132.026, 149.17, -10.15, 0.984)
pt3dadd(132.016, 149.051, -10.174, 0.962)
pt3dadd(132.054, 148.957, -10.208, 0.854)
pt3dadd(132.043, 148.955, -10.212, 0.854)
pt3dadd(132.133, 148.906, -10.25, 0.816)
pt3dadd(132.222, 148.854, -10.287, 0.778)
pt3dadd(132.257, 148.742, -10.291, 0.79)
pt3dadd(132.29, 148.63, -10.295, 0.802)
pt3dadd(132.287, 148.511, -10.311, 0.83)
pt3dadd(132.275, 148.391, -10.329, 0.862)
pt3dadd(132.259, 148.291, -10.377, 0.89)
pt3dadd(132.238, 148.216, -10.459, 0.914)
pt3dadd(132.24, 148.141, -10.535, 0.92)
pt3dadd(132.296, 148.068, -10.596, 0.89)
pt3dadd(132.38, 148.019, -10.624, 0.814)
pt3dadd(132.487, 147.996, -10.629, 0.71)
pt3dadd(132.594, 147.978, -10.633, 0.626)
pt3dadd(132.702, 147.96, -10.637, 0.55)
pt3dadd(132.809, 147.942, -10.641, 0.492)
pt3dadd(132.917, 147.924, -10.645, 0.46)
pt3dadd(133.024, 147.906, -10.65, 0.452)
pt3dadd(133.132, 147.888, -10.654, 0.452)
pt3dadd(133.237, 147.87, -10.667, 0.452)
pt3dadd(133.333, 147.853, -10.71, 0.454)
pt3dadd(133.396, 147.842, -10.793, 0.5)
pt3dadd(133.47, 147.828, -10.865, 0.594)
pt3dadd(133.546, 147.818, -10.936, 0.66)
pt3dadd(133.576, 147.841, -11.03, 0.66)
pt3dadd(133.555, 147.9, -11.118, 0.582)
pt3dadd(133.483, 147.974, -11.175, 0.456)
pt3dadd(133.4, 148.067, -11.186, 0.338)
pt3dadd(133.348, 148.159, -11.149, 0.246)
}
apic[34] {pt3dclear()
pt3dadd(103.53, 126.596, 13.571, 2.26)
pt3dadd(103.443, 126.594, 13.506, 2.244)
pt3dadd(103.354, 126.593, 13.439, 2.228)
pt3dadd(103.265, 126.59, 13.372, 2.212)
pt3dadd(103.176, 126.589, 13.305, 2.196)
pt3dadd(103.086, 126.587, 13.239, 2.18)
pt3dadd(102.997, 126.584, 13.172, 2.164)
pt3dadd(102.908, 126.583, 13.105, 2.146)
pt3dadd(102.819, 126.581, 13.038, 2.13)
pt3dadd(102.729, 126.58, 12.971, 2.114)
pt3dadd(102.64, 126.577, 12.905, 2.098)
pt3dadd(102.551, 126.575, 12.838, 2.082)
pt3dadd(102.462, 126.574, 12.771, 2.066)
pt3dadd(102.372, 126.571, 12.704, 2.05)
pt3dadd(102.283, 126.57, 12.637, 2.034)
pt3dadd(102.194, 126.568, 12.571, 2.018)
pt3dadd(102.104, 126.565, 12.504, 2)
pt3dadd(102.015, 126.564, 12.437, 1.984)
pt3dadd(101.926, 126.562, 12.37, 1.968)
pt3dadd(101.837, 126.56, 12.303, 1.952)
}
}
proc shape3d_85() {
apic[34] { pt3dadd(101.747, 126.558, 12.237, 1.936)
pt3dadd(101.658, 126.556, 12.17, 1.92)
pt3dadd(101.569, 126.554, 12.103, 1.904)
pt3dadd(101.479, 126.552, 12.036, 1.888)
pt3dadd(101.39, 126.551, 11.969, 1.872)
pt3dadd(101.301, 126.548, 11.903, 1.854)
pt3dadd(101.212, 126.546, 11.836, 1.838)
pt3dadd(101.122, 126.545, 11.769, 1.822)
pt3dadd(101.03, 126.533, 11.707, 1.804)
pt3dadd(100.935, 126.511, 11.648, 1.782)
pt3dadd(100.84, 126.49, 11.59, 1.762)
pt3dadd(100.745, 126.468, 11.531, 1.74)
pt3dadd(100.65, 126.446, 11.473, 1.72)
pt3dadd(100.555, 126.425, 11.414, 1.698)
pt3dadd(100.46, 126.403, 11.356, 1.678)
pt3dadd(100.365, 126.382, 11.298, 1.656)
pt3dadd(100.27, 126.361, 11.239, 1.636)
pt3dadd(100.175, 126.34, 11.181, 1.614)
pt3dadd(100.08, 126.317, 11.123, 1.594)
pt3dadd(99.985, 126.295, 11.065, 1.572)
pt3dadd(99.889, 126.272, 11.007, 1.552)
pt3dadd(99.794, 126.251, 10.949, 1.53)
pt3dadd(99.699, 126.228, 10.891, 1.51)
pt3dadd(99.604, 126.206, 10.833, 1.488)
pt3dadd(99.508, 126.184, 10.775, 1.466)
pt3dadd(99.413, 126.162, 10.717, 1.446)
pt3dadd(99.318, 126.14, 10.659, 1.424)
pt3dadd(99.223, 126.118, 10.601, 1.404)
pt3dadd(99.125, 126.084, 10.552, 1.398)
pt3dadd(99.025, 126.041, 10.51, 1.406)
pt3dadd(98.926, 125.996, 10.468, 1.412)
pt3dadd(98.826, 125.952, 10.426, 1.42)
pt3dadd(98.726, 125.909, 10.384, 1.428)
pt3dadd(98.626, 125.864, 10.343, 1.436)
pt3dadd(98.527, 125.82, 10.301, 1.444)
pt3dadd(98.427, 125.777, 10.259, 1.452)
pt3dadd(98.327, 125.732, 10.217, 1.46)
pt3dadd(98.227, 125.689, 10.175, 1.468)
pt3dadd(98.127, 125.645, 10.134, 1.474)
pt3dadd(98.028, 125.6, 10.093, 1.48)
pt3dadd(97.928, 125.556, 10.052, 1.486)
pt3dadd(97.828, 125.512, 10.011, 1.492)
pt3dadd(97.728, 125.466, 9.97, 1.498)
pt3dadd(97.628, 125.422, 9.929, 1.502)
pt3dadd(97.528, 125.377, 9.888, 1.508)
pt3dadd(97.428, 125.333, 9.847, 1.514)
pt3dadd(97.328, 125.288, 9.806, 1.52)
pt3dadd(97.228, 125.244, 9.764, 1.526)
pt3dadd(97.128, 125.209, 9.717, 1.512)
pt3dadd(97.03, 125.18, 9.665, 1.486)
pt3dadd(96.931, 125.15, 9.614, 1.46)
pt3dadd(96.833, 125.122, 9.562, 1.436)
pt3dadd(96.734, 125.092, 9.511, 1.41)
pt3dadd(96.636, 125.063, 9.459, 1.384)
pt3dadd(96.537, 125.034, 9.408, 1.358)
pt3dadd(96.438, 125.004, 9.356, 1.332)
pt3dadd(96.34, 124.975, 9.305, 1.308)
pt3dadd(96.241, 124.945, 9.253, 1.282)
pt3dadd(96.14, 124.919, 9.205, 1.268)
pt3dadd(96.036, 124.892, 9.16, 1.26)
pt3dadd(95.933, 124.866, 9.114, 1.252)
pt3dadd(95.829, 124.84, 9.069, 1.244)
pt3dadd(95.725, 124.813, 9.023, 1.236)
pt3dadd(95.622, 124.787, 8.977, 1.23)
pt3dadd(95.518, 124.76, 8.932, 1.222)
pt3dadd(95.415, 124.734, 8.886, 1.214)
pt3dadd(95.311, 124.708, 8.841, 1.206)
pt3dadd(95.208, 124.682, 8.795, 1.198)
pt3dadd(95.101, 124.658, 8.755, 1.206)
pt3dadd(94.992, 124.636, 8.717, 1.22)
pt3dadd(94.883, 124.613, 8.68, 1.236)
pt3dadd(94.774, 124.59, 8.642, 1.25)
pt3dadd(94.665, 124.568, 8.605, 1.266)
pt3dadd(94.556, 124.546, 8.567, 1.28)
pt3dadd(94.447, 124.523, 8.53, 1.296)
pt3dadd(94.338, 124.5, 8.492, 1.31)
pt3dadd(94.23, 124.477, 8.454, 1.324)
pt3dadd(94.121, 124.456, 8.417, 1.34)
pt3dadd(94.023, 124.435, 8.363, 1.368)
pt3dadd(93.931, 124.417, 8.3, 1.402)
pt3dadd(93.84, 124.399, 8.237, 1.436)
pt3dadd(93.748, 124.38, 8.174, 1.472)
pt3dadd(93.657, 124.362, 8.111, 1.506)
pt3dadd(93.565, 124.344, 8.049, 1.54)
pt3dadd(93.474, 124.326, 7.986, 1.576)
pt3dadd(93.382, 124.307, 7.923, 1.61)
pt3dadd(93.291, 124.289, 7.86, 1.644)
pt3dadd(93.199, 124.271, 7.797, 1.68)
pt3dadd(93.102, 124.235, 7.749, 1.706)
pt3dadd(93.002, 124.19, 7.707, 1.73)
pt3dadd(92.902, 124.147, 7.665, 1.752)
pt3dadd(92.802, 124.103, 7.623, 1.776)
pt3dadd(92.703, 124.06, 7.582, 1.798)
pt3dadd(92.603, 124.015, 7.54, 1.822)
pt3dadd(92.503, 123.972, 7.498, 1.846)
pt3dadd(92.403, 123.928, 7.456, 1.868)
pt3dadd(92.303, 123.884, 7.414, 1.892)
pt3dadd(92.204, 123.84, 7.373, 1.916)
pt3dadd(92.099, 123.792, 7.346, 1.92)
pt3dadd(91.994, 123.743, 7.321, 1.924)
pt3dadd(91.888, 123.694, 7.295, 1.926)
pt3dadd(91.783, 123.644, 7.27, 1.93)
pt3dadd(91.678, 123.595, 7.245, 1.932)
pt3dadd(91.573, 123.546, 7.219, 1.936)
pt3dadd(91.468, 123.498, 7.194, 1.94)
pt3dadd(91.362, 123.449, 7.168, 1.942)
pt3dadd(91.257, 123.4, 7.143, 1.946)
pt3dadd(91.152, 123.35, 7.117, 1.948)
}
apic[35] {pt3dclear()
pt3dadd(91.152, 123.35, 7.117, 1.948)
pt3dadd(91.11, 123.326, 7.097, 1.94)
pt3dadd(90.993, 123.287, 7.075, 1.908)
pt3dadd(90.876, 123.247, 7.052, 1.878)
pt3dadd(90.759, 123.206, 7.03, 1.846)
pt3dadd(90.642, 123.167, 7.007, 1.816)
pt3dadd(90.525, 123.126, 6.984, 1.784)
pt3dadd(90.408, 123.086, 6.962, 1.754)
pt3dadd(90.291, 123.047, 6.939, 1.722)
pt3dadd(90.174, 123.006, 6.917, 1.692)
pt3dadd(90.057, 122.966, 6.894, 1.66)
pt3dadd(89.938, 122.932, 6.874, 1.634)
pt3dadd(89.817, 122.904, 6.857, 1.616)
pt3dadd(89.696, 122.879, 6.841, 1.6)
pt3dadd(89.575, 122.851, 6.825, 1.582)
pt3dadd(89.454, 122.826, 6.809, 1.564)
pt3dadd(89.333, 122.8, 6.793, 1.546)
pt3dadd(89.212, 122.773, 6.777, 1.53)
pt3dadd(89.091, 122.747, 6.76, 1.512)
pt3dadd(88.969, 122.722, 6.744, 1.494)
pt3dadd(88.848, 122.694, 6.728, 1.478)
pt3dadd(88.727, 122.67, 6.712, 1.462)
pt3dadd(88.605, 122.648, 6.696, 1.446)
pt3dadd(88.483, 122.627, 6.681, 1.432)
pt3dadd(88.361, 122.606, 6.665, 1.418)
pt3dadd(88.239, 122.584, 6.649, 1.404)
pt3dadd(88.118, 122.563, 6.634, 1.39)
pt3dadd(87.996, 122.542, 6.618, 1.376)
pt3dadd(87.874, 122.52, 6.602, 1.36)
pt3dadd(87.752, 122.5, 6.586, 1.346)
pt3dadd(87.63, 122.478, 6.571, 1.332)
pt3dadd(87.508, 122.458, 6.554, 1.318)
pt3dadd(87.386, 122.443, 6.535, 1.304)
pt3dadd(87.264, 122.428, 6.515, 1.29)
pt3dadd(87.142, 122.413, 6.496, 1.274)
pt3dadd(87.02, 122.398, 6.477, 1.26)
pt3dadd(86.898, 122.382, 6.457, 1.246)
pt3dadd(86.776, 122.368, 6.438, 1.232)
pt3dadd(86.654, 122.352, 6.419, 1.218)
pt3dadd(86.532, 122.336, 6.4, 1.202)
pt3dadd(86.409, 122.322, 6.38, 1.188)
pt3dadd(86.289, 122.306, 6.355, 1.18)
pt3dadd(86.171, 122.287, 6.319, 1.184)
pt3dadd(86.054, 122.269, 6.283, 1.188)
pt3dadd(85.936, 122.25, 6.247, 1.192)
pt3dadd(85.819, 122.232, 6.21, 1.196)
pt3dadd(85.701, 122.214, 6.174, 1.2)
pt3dadd(85.583, 122.195, 6.138, 1.204)
pt3dadd(85.466, 122.177, 6.102, 1.208)
pt3dadd(85.348, 122.159, 6.066, 1.212)
pt3dadd(85.231, 122.14, 6.029, 1.216)
pt3dadd(85.115, 122.12, 5.989, 1.224)
pt3dadd(85.001, 122.1, 5.945, 1.236)
pt3dadd(84.887, 122.08, 5.9, 1.25)
pt3dadd(84.773, 122.06, 5.855, 1.264)
pt3dadd(84.66, 122.04, 5.811, 1.276)
pt3dadd(84.546, 122.02, 5.766, 1.29)
pt3dadd(84.432, 122, 5.721, 1.304)
pt3dadd(84.318, 121.979, 5.676, 1.316)
pt3dadd(84.204, 121.96, 5.632, 1.33)
pt3dadd(84.09, 121.94, 5.587, 1.344)
pt3dadd(83.978, 121.907, 5.548, 1.336)
pt3dadd(83.866, 121.856, 5.517, 1.298)
pt3dadd(83.755, 121.806, 5.487, 1.26)
pt3dadd(83.643, 121.756, 5.456, 1.224)
pt3dadd(83.532, 121.706, 5.425, 1.186)
pt3dadd(83.421, 121.655, 5.394, 1.15)
pt3dadd(83.309, 121.606, 5.363, 1.112)
pt3dadd(83.198, 121.555, 5.333, 1.074)
pt3dadd(83.086, 121.505, 5.302, 1.038)
pt3dadd(82.975, 121.454, 5.271, 1)
pt3dadd(82.863, 121.404, 5.242, 0.964)
pt3dadd(82.75, 121.356, 5.214, 0.926)
pt3dadd(82.637, 121.308, 5.186, 0.89)
pt3dadd(82.524, 121.259, 5.159, 0.854)
pt3dadd(82.41, 121.211, 5.131, 0.816)
pt3dadd(82.297, 121.163, 5.103, 0.78)
pt3dadd(82.184, 121.115, 5.076, 0.744)
pt3dadd(82.071, 121.067, 5.048, 0.708)
pt3dadd(81.958, 121.019, 5.02, 0.67)
pt3dadd(81.845, 120.97, 4.993, 0.634)
pt3dadd(81.73, 120.926, 4.969, 0.602)
pt3dadd(81.612, 120.887, 4.95, 0.574)
pt3dadd(81.494, 120.85, 4.931, 0.546)
pt3dadd(81.376, 120.811, 4.912, 0.518)
pt3dadd(81.258, 120.773, 4.893, 0.49)
pt3dadd(81.139, 120.734, 4.874, 0.464)
pt3dadd(81.021, 120.697, 4.855, 0.436)
pt3dadd(80.903, 120.658, 4.836, 0.408)
pt3dadd(80.785, 120.62, 4.817, 0.38)
pt3dadd(80.667, 120.581, 4.798, 0.352)
pt3dadd(80.548, 120.546, 4.782, 0.332)
}
}
proc shape3d_86() {
apic[35] { pt3dadd(80.428, 120.514, 4.769, 0.322)
pt3dadd(80.307, 120.481, 4.756, 0.31)
pt3dadd(80.187, 120.449, 4.743, 0.298)
pt3dadd(80.067, 120.416, 4.73, 0.288)
pt3dadd(79.947, 120.384, 4.716, 0.276)
pt3dadd(79.827, 120.352, 4.703, 0.266)
pt3dadd(79.707, 120.319, 4.69, 0.254)
pt3dadd(79.586, 120.287, 4.677, 0.242)
pt3dadd(79.466, 120.254, 4.664, 0.232)
pt3dadd(79.346, 120.223, 4.653, 0.226)
pt3dadd(79.224, 120.196, 4.643, 0.226)
pt3dadd(79.103, 120.168, 4.634, 0.228)
pt3dadd(78.982, 120.139, 4.625, 0.228)
pt3dadd(78.861, 120.112, 4.616, 0.228)
pt3dadd(78.74, 120.084, 4.606, 0.23)
pt3dadd(78.618, 120.055, 4.597, 0.23)
pt3dadd(78.497, 120.026, 4.588, 0.23)
pt3dadd(78.376, 119.998, 4.579, 0.23)
pt3dadd(78.255, 119.97, 4.57, 0.232)
pt3dadd(78.133, 119.946, 4.56, 0.252)
pt3dadd(78.011, 119.925, 4.549, 0.296)
pt3dadd(77.889, 119.904, 4.538, 0.34)
pt3dadd(77.766, 119.883, 4.527, 0.382)
pt3dadd(77.644, 119.862, 4.516, 0.426)
pt3dadd(77.522, 119.841, 4.505, 0.468)
pt3dadd(77.4, 119.819, 4.495, 0.512)
pt3dadd(77.277, 119.799, 4.484, 0.556)
pt3dadd(77.155, 119.778, 4.473, 0.598)
pt3dadd(77.033, 119.757, 4.462, 0.642)
pt3dadd(76.912, 119.729, 4.45, 0.682)
pt3dadd(76.792, 119.694, 4.438, 0.718)
pt3dadd(76.673, 119.658, 4.425, 0.754)
pt3dadd(76.553, 119.623, 4.412, 0.79)
pt3dadd(76.434, 119.588, 4.4, 0.828)
pt3dadd(76.314, 119.553, 4.387, 0.864)
pt3dadd(76.195, 119.516, 4.374, 0.9)
pt3dadd(76.075, 119.481, 4.362, 0.936)
pt3dadd(75.956, 119.446, 4.349, 0.972)
pt3dadd(75.953, 119.439, 4.342, 0.972)
pt3dadd(75.833, 119.404, 4.329, 1.008)
pt3dadd(75.717, 119.359, 4.315, 1.04)
pt3dadd(75.603, 119.306, 4.3, 1.066)
pt3dadd(75.49, 119.254, 4.285, 1.092)
pt3dadd(75.376, 119.201, 4.271, 1.12)
pt3dadd(75.263, 119.149, 4.256, 1.146)
pt3dadd(75.149, 119.095, 4.241, 1.174)
pt3dadd(75.035, 119.043, 4.226, 1.2)
pt3dadd(74.922, 118.99, 4.211, 1.228)
pt3dadd(74.808, 118.938, 4.196, 1.254)
pt3dadd(74.694, 118.885, 4.182, 1.28)
pt3dadd(74.579, 118.838, 4.164, 1.296)
pt3dadd(74.462, 118.796, 4.145, 1.302)
pt3dadd(74.345, 118.754, 4.126, 1.308)
pt3dadd(74.228, 118.712, 4.107, 1.316)
pt3dadd(74.111, 118.67, 4.088, 1.322)
pt3dadd(73.994, 118.628, 4.069, 1.328)
pt3dadd(73.877, 118.586, 4.05, 1.334)
pt3dadd(73.76, 118.544, 4.031, 1.34)
pt3dadd(73.643, 118.502, 4.012, 1.346)
pt3dadd(73.526, 118.46, 3.992, 1.354)
pt3dadd(73.409, 118.421, 3.97, 1.358)
pt3dadd(73.291, 118.385, 3.945, 1.362)
pt3dadd(73.174, 118.348, 3.92, 1.366)
pt3dadd(73.056, 118.311, 3.896, 1.372)
pt3dadd(72.939, 118.274, 3.871, 1.376)
pt3dadd(72.821, 118.237, 3.846, 1.38)
pt3dadd(72.704, 118.2, 3.822, 1.384)
pt3dadd(72.587, 118.163, 3.797, 1.388)
pt3dadd(72.469, 118.127, 3.772, 1.392)
pt3dadd(72.352, 118.09, 3.747, 1.396)
pt3dadd(72.238, 118.059, 3.707, 1.416)
pt3dadd(72.127, 118.033, 3.66, 1.442)
pt3dadd(72.016, 118.006, 3.612, 1.468)
pt3dadd(71.905, 117.979, 3.564, 1.496)
pt3dadd(71.793, 117.953, 3.516, 1.524)
pt3dadd(71.682, 117.926, 3.468, 1.55)
pt3dadd(71.571, 117.899, 3.421, 1.578)
pt3dadd(71.46, 117.873, 3.373, 1.604)
pt3dadd(71.349, 117.846, 3.325, 1.63)
pt3dadd(71.237, 117.819, 3.277, 1.658)
pt3dadd(71.125, 117.794, 3.232, 1.668)
pt3dadd(71.011, 117.77, 3.187, 1.666)
pt3dadd(70.898, 117.746, 3.143, 1.666)
pt3dadd(70.784, 117.723, 3.099, 1.666)
pt3dadd(70.671, 117.699, 3.054, 1.666)
pt3dadd(70.557, 117.675, 3.01, 1.666)
pt3dadd(70.444, 117.651, 2.966, 1.666)
pt3dadd(70.33, 117.627, 2.921, 1.666)
pt3dadd(70.217, 117.603, 2.877, 1.666)
pt3dadd(70.103, 117.579, 2.833, 1.666)
pt3dadd(69.988, 117.558, 2.791, 1.646)
pt3dadd(69.873, 117.537, 2.75, 1.618)
pt3dadd(69.757, 117.516, 2.71, 1.588)
pt3dadd(69.642, 117.495, 2.669, 1.558)
pt3dadd(69.526, 117.475, 2.629, 1.528)
pt3dadd(69.41, 117.454, 2.588, 1.498)
pt3dadd(69.294, 117.433, 2.548, 1.468)
pt3dadd(69.179, 117.413, 2.507, 1.44)
pt3dadd(69.063, 117.392, 2.467, 1.41)
pt3dadd(68.948, 117.371, 2.426, 1.38)
pt3dadd(68.836, 117.328, 2.391, 1.388)
pt3dadd(68.727, 117.275, 2.359, 1.414)
pt3dadd(68.617, 117.221, 2.326, 1.442)
pt3dadd(68.508, 117.167, 2.294, 1.468)
pt3dadd(68.399, 117.113, 2.262, 1.494)
pt3dadd(68.289, 117.059, 2.229, 1.522)
pt3dadd(68.18, 117.006, 2.197, 1.548)
pt3dadd(68.07, 116.952, 2.164, 1.574)
pt3dadd(67.961, 116.898, 2.132, 1.602)
pt3dadd(67.852, 116.844, 2.1, 1.628)
pt3dadd(67.747, 116.79, 2.057, 1.654)
pt3dadd(67.644, 116.737, 2.01, 1.68)
pt3dadd(67.541, 116.683, 1.963, 1.708)
pt3dadd(67.438, 116.63, 1.916, 1.734)
pt3dadd(67.335, 116.576, 1.869, 1.76)
pt3dadd(67.232, 116.522, 1.822, 1.786)
pt3dadd(67.129, 116.469, 1.775, 1.812)
pt3dadd(67.026, 116.415, 1.728, 1.838)
pt3dadd(66.923, 116.361, 1.681, 1.866)
pt3dadd(66.82, 116.308, 1.634, 1.892)
pt3dadd(66.721, 116.266, 1.575, 1.882)
pt3dadd(66.621, 116.225, 1.515, 1.868)
pt3dadd(66.522, 116.185, 1.454, 1.854)
pt3dadd(66.423, 116.144, 1.394, 1.838)
pt3dadd(66.324, 116.104, 1.334, 1.824)
pt3dadd(66.224, 116.063, 1.273, 1.81)
pt3dadd(66.125, 116.023, 1.213, 1.796)
pt3dadd(66.026, 115.982, 1.152, 1.78)
pt3dadd(65.927, 115.942, 1.092, 1.766)
pt3dadd(65.827, 115.901, 1.031, 1.752)
pt3dadd(65.715, 115.879, 0.985, 1.668)
pt3dadd(65.602, 115.857, 0.938, 1.582)
pt3dadd(65.49, 115.835, 0.891, 1.498)
pt3dadd(65.377, 115.813, 0.844, 1.412)
pt3dadd(65.265, 115.791, 0.798, 1.328)
pt3dadd(65.152, 115.769, 0.751, 1.244)
pt3dadd(65.039, 115.747, 0.704, 1.158)
pt3dadd(64.927, 115.725, 0.658, 1.074)
pt3dadd(64.814, 115.703, 0.611, 0.988)
pt3dadd(64.702, 115.681, 0.564, 0.904)
pt3dadd(64.698, 115.674, 0.556, 0.226)
pt3dadd(64.578, 115.642, 0.549, 0.374)
pt3dadd(64.458, 115.61, 0.541, 0.52)
pt3dadd(64.337, 115.578, 0.533, 0.668)
pt3dadd(64.217, 115.546, 0.526, 0.816)
pt3dadd(64.096, 115.514, 0.518, 0.964)
pt3dadd(63.974, 115.497, 0.51, 1.056)
pt3dadd(63.851, 115.493, 0.503, 1.104)
pt3dadd(63.728, 115.488, 0.495, 1.152)
pt3dadd(63.605, 115.483, 0.487, 1.2)
pt3dadd(63.482, 115.479, 0.48, 1.248)
pt3dadd(63.358, 115.474, 0.472, 1.296)
pt3dadd(63.235, 115.472, 0.461, 1.338)
pt3dadd(63.114, 115.475, 0.443, 1.364)
pt3dadd(62.991, 115.479, 0.424, 1.388)
pt3dadd(62.869, 115.483, 0.405, 1.412)
pt3dadd(62.747, 115.486, 0.387, 1.438)
pt3dadd(62.625, 115.49, 0.368, 1.462)
pt3dadd(62.504, 115.485, 0.35, 1.484)
pt3dadd(62.383, 115.454, 0.336, 1.494)
pt3dadd(62.263, 115.422, 0.322, 1.504)
pt3dadd(62.143, 115.391, 0.308, 1.512)
pt3dadd(62.022, 115.36, 0.294, 1.522)
pt3dadd(61.902, 115.329, 0.28, 1.532)
pt3dadd(61.785, 115.308, 0.244, 1.532)
pt3dadd(61.667, 115.286, 0.209, 1.532)
pt3dadd(61.549, 115.265, 0.173, 1.532)
pt3dadd(61.432, 115.244, 0.138, 1.532)
pt3dadd(61.316, 115.23, 0.099, 1.53)
pt3dadd(61.207, 115.238, 0.046, 1.518)
pt3dadd(61.097, 115.246, -0.006, 1.506)
pt3dadd(60.982, 115.256, -0.047, 1.486)
pt3dadd(60.867, 115.265, -0.088, 1.464)
pt3dadd(60.751, 115.271, -0.129, 1.456)
pt3dadd(60.636, 115.274, -0.172, 1.456)
pt3dadd(60.533, 115.246, -0.217, 1.462)
pt3dadd(60.451, 115.167, -0.269, 1.476)
pt3dadd(60.402, 115.069, -0.323, 1.47)
pt3dadd(60.357, 114.977, -0.376, 1.452)
pt3dadd(60.243, 114.947, -0.418, 1.436)
pt3dadd(60.13, 114.918, -0.46, 1.42)
pt3dadd(60.016, 114.888, -0.502, 1.402)
pt3dadd(59.902, 114.859, -0.544, 1.386)
pt3dadd(59.788, 114.821, -0.579, 1.374)
pt3dadd(59.674, 114.78, -0.611, 1.362)
pt3dadd(59.56, 114.739, -0.643, 1.352)
pt3dadd(59.445, 114.698, -0.675, 1.34)
pt3dadd(59.331, 114.657, -0.706, 1.332)
pt3dadd(59.214, 114.617, -0.727, 1.342)
pt3dadd(59.097, 114.576, -0.749, 1.354)
pt3dadd(58.98, 114.535, -0.77, 1.364)
pt3dadd(58.863, 114.494, -0.792, 1.374)
pt3dadd(58.745, 114.469, -0.816, 1.384)
pt3dadd(58.626, 114.476, -0.847, 1.392)
pt3dadd(58.507, 114.483, -0.878, 1.402)
pt3dadd(58.388, 114.491, -0.909, 1.41)
pt3dadd(58.269, 114.499, -0.94, 1.418)
pt3dadd(58.15, 114.506, -0.971, 1.428)
pt3dadd(58.147, 114.5, -0.979, 1.428)
pt3dadd(58.027, 114.496, -1.008, 1.426)
}
}
proc shape3d_87() {
apic[35] { pt3dadd(57.906, 114.486, -1.037, 1.416)
pt3dadd(57.786, 114.475, -1.066, 1.406)
pt3dadd(57.666, 114.464, -1.096, 1.396)
pt3dadd(57.546, 114.453, -1.125, 1.386)
pt3dadd(57.433, 114.449, -1.168, 1.368)
pt3dadd(57.333, 114.453, -1.235, 1.332)
pt3dadd(57.233, 114.458, -1.301, 1.296)
pt3dadd(57.134, 114.462, -1.367, 1.26)
pt3dadd(57.034, 114.467, -1.433, 1.224)
pt3dadd(56.926, 114.473, -1.486, 1.19)
pt3dadd(56.809, 114.483, -1.524, 1.16)
pt3dadd(56.693, 114.492, -1.561, 1.128)
pt3dadd(56.576, 114.502, -1.599, 1.096)
pt3dadd(56.46, 114.511, -1.636, 1.064)
pt3dadd(56.343, 114.521, -1.674, 1.034)
pt3dadd(56.226, 114.53, -1.709, 0.994)
pt3dadd(56.108, 114.54, -1.744, 0.952)
pt3dadd(55.995, 114.53, -1.785, 0.934)
pt3dadd(55.886, 114.494, -1.835, 0.948)
pt3dadd(55.789, 114.438, -1.886, 0.988)
pt3dadd(55.7, 114.367, -1.938, 1.046)
pt3dadd(55.619, 114.273, -1.958, 1.114)
pt3dadd(55.539, 114.175, -1.971, 1.186)
pt3dadd(55.427, 114.147, -1.985, 1.222)
pt3dadd(55.305, 114.145, -2.001, 1.246)
pt3dadd(55.182, 114.143, -2.016, 1.27)
pt3dadd(55.059, 114.141, -2.032, 1.294)
pt3dadd(54.94, 114.144, -2.059, 1.32)
pt3dadd(54.824, 114.153, -2.1, 1.352)
pt3dadd(54.709, 114.162, -2.14, 1.388)
pt3dadd(54.593, 114.163, -2.179, 1.436)
pt3dadd(54.482, 114.142, -2.228, 1.452)
pt3dadd(54.37, 114.121, -2.277, 1.47)
pt3dadd(54.259, 114.101, -2.326, 1.486)
pt3dadd(54.147, 114.08, -2.375, 1.502)
pt3dadd(54.041, 114.04, -2.425, 1.516)
pt3dadd(53.937, 113.994, -2.475, 1.528)
pt3dadd(53.832, 113.947, -2.525, 1.54)
pt3dadd(53.728, 113.901, -2.574, 1.552)
pt3dadd(53.616, 113.869, -2.616, 1.562)
pt3dadd(53.498, 113.851, -2.651, 1.572)
pt3dadd(53.38, 113.833, -2.686, 1.582)
pt3dadd(53.262, 113.815, -2.721, 1.594)
pt3dadd(53.144, 113.798, -2.756, 1.604)
pt3dadd(53.036, 113.763, -2.804, 1.608)
pt3dadd(52.935, 113.719, -2.86, 1.608)
pt3dadd(52.833, 113.675, -2.915, 1.608)
pt3dadd(52.731, 113.631, -2.971, 1.608)
pt3dadd(52.623, 113.61, -3.019, 1.606)
pt3dadd(52.507, 113.616, -3.06, 1.6)
pt3dadd(52.392, 113.623, -3.1, 1.596)
pt3dadd(52.276, 113.63, -3.141, 1.592)
pt3dadd(52.16, 113.637, -3.181, 1.586)
pt3dadd(52.044, 113.644, -3.222, 1.582)
pt3dadd(52.041, 113.637, -3.23, 1.582)
pt3dadd(51.925, 113.639, -3.271, 1.556)
pt3dadd(51.81, 113.641, -3.313, 1.532)
pt3dadd(51.694, 113.643, -3.355, 1.508)
pt3dadd(51.578, 113.644, -3.397, 1.484)
pt3dadd(51.463, 113.646, -3.439, 1.46)
pt3dadd(51.343, 113.64, -3.469, 1.436)
pt3dadd(51.222, 113.632, -3.498, 1.412)
pt3dadd(51.102, 113.624, -3.527, 1.39)
pt3dadd(50.982, 113.616, -3.555, 1.366)
pt3dadd(50.861, 113.609, -3.584, 1.342)
pt3dadd(50.747, 113.592, -3.626, 1.322)
pt3dadd(50.638, 113.567, -3.678, 1.304)
pt3dadd(50.529, 113.542, -3.731, 1.288)
pt3dadd(50.42, 113.517, -3.784, 1.272)
pt3dadd(50.311, 113.491, -3.834, 1.258)
pt3dadd(50.193, 113.458, -3.863, 1.274)
pt3dadd(50.076, 113.425, -3.892, 1.288)
pt3dadd(49.958, 113.392, -3.92, 1.304)
pt3dadd(49.841, 113.359, -3.949, 1.32)
pt3dadd(49.724, 113.323, -3.976, 1.346)
pt3dadd(49.721, 113.317, -3.984, 1.346)
pt3dadd(49.605, 113.275, -4.008, 1.388)
pt3dadd(49.488, 113.233, -4.032, 1.43)
pt3dadd(49.372, 113.192, -4.056, 1.472)
pt3dadd(49.256, 113.15, -4.08, 1.516)
pt3dadd(49.143, 113.121, -4.12, 1.558)
pt3dadd(49.031, 113.1, -4.169, 1.602)
pt3dadd(48.92, 113.079, -4.218, 1.646)
pt3dadd(48.808, 113.059, -4.267, 1.69)
pt3dadd(48.696, 113.039, -4.315, 1.732)
pt3dadd(48.579, 113.027, -4.352, 1.738)
pt3dadd(48.461, 113.014, -4.389, 1.744)
pt3dadd(48.343, 113.002, -4.425, 1.748)
pt3dadd(48.225, 112.99, -4.462, 1.754)
pt3dadd(48.107, 112.98, -4.498, 1.756)
pt3dadd(47.986, 112.99, -4.522, 1.726)
pt3dadd(47.866, 113, -4.546, 1.698)
pt3dadd(47.746, 113.01, -4.57, 1.668)
pt3dadd(47.625, 113.02, -4.594, 1.64)
pt3dadd(47.505, 113.03, -4.618, 1.61)
pt3dadd(47.384, 113.04, -4.642, 1.582)
pt3dadd(47.268, 113.025, -4.682, 1.53)
pt3dadd(47.151, 113.009, -4.723, 1.478)
pt3dadd(47.035, 112.993, -4.762, 1.426)
pt3dadd(46.919, 112.977, -4.803, 1.374)
pt3dadd(46.803, 112.954, -4.838, 1.326)
pt3dadd(46.692, 112.895, -4.852, 1.294)
pt3dadd(46.581, 112.837, -4.867, 1.262)
pt3dadd(46.47, 112.778, -4.881, 1.232)
pt3dadd(46.359, 112.72, -4.896, 1.2)
pt3dadd(46.247, 112.663, -4.908, 1.178)
pt3dadd(46.134, 112.609, -4.916, 1.174)
pt3dadd(46.021, 112.554, -4.923, 1.168)
pt3dadd(45.908, 112.5, -4.931, 1.164)
pt3dadd(45.794, 112.446, -4.939, 1.158)
pt3dadd(45.679, 112.399, -4.946, 1.156)
pt3dadd(45.558, 112.37, -4.954, 1.156)
pt3dadd(45.437, 112.341, -4.962, 1.156)
pt3dadd(45.316, 112.312, -4.969, 1.156)
pt3dadd(45.195, 112.283, -4.977, 1.156)
pt3dadd(45.074, 112.254, -4.985, 1.156)
pt3dadd(45.039, 112.236, -5, 1.156)
}
apic[36] {pt3dclear()
pt3dadd(45.039, 112.236, -5, 1.156)
pt3dadd(45.012, 112.235, -5, 1.156)
pt3dadd(44.893, 112.235, -5, 1.166)
pt3dadd(44.772, 112.234, -5, 1.174)
pt3dadd(44.653, 112.233, -5, 1.182)
pt3dadd(44.532, 112.233, -5, 1.19)
pt3dadd(44.412, 112.232, -5, 1.198)
pt3dadd(44.292, 112.232, -5, 1.206)
pt3dadd(44.172, 112.231, -5, 1.218)
pt3dadd(44.053, 112.231, -5, 1.23)
pt3dadd(43.932, 112.23, -5, 1.242)
pt3dadd(43.813, 112.229, -5, 1.254)
pt3dadd(43.692, 112.229, -5, 1.266)
pt3dadd(43.573, 112.228, -5, 1.28)
pt3dadd(43.454, 112.208, -5, 1.304)
pt3dadd(43.337, 112.186, -5, 1.332)
pt3dadd(43.219, 112.163, -5, 1.36)
pt3dadd(43.101, 112.141, -5, 1.386)
pt3dadd(42.983, 112.118, -5, 1.414)
pt3dadd(42.866, 112.093, -5, 1.438)
pt3dadd(42.749, 112.065, -5, 1.456)
pt3dadd(42.633, 112.036, -5, 1.476)
pt3dadd(42.516, 112.008, -5, 1.494)
pt3dadd(42.399, 111.979, -5, 1.512)
pt3dadd(42.283, 111.95, -5, 1.532)
pt3dadd(42.163, 111.96, -5, 1.536)
pt3dadd(42.044, 111.971, -5, 1.54)
pt3dadd(41.924, 111.982, -5, 1.542)
pt3dadd(41.805, 111.993, -5, 1.546)
pt3dadd(41.685, 112.003, -5, 1.55)
pt3dadd(41.566, 112.014, -5, 1.554)
pt3dadd(41.447, 112.027, -5, 1.554)
pt3dadd(41.328, 112.043, -5, 1.542)
pt3dadd(41.209, 112.06, -5, 1.532)
pt3dadd(41.09, 112.077, -5, 1.522)
pt3dadd(40.971, 112.094, -5, 1.51)
pt3dadd(40.852, 112.11, -5, 1.5)
pt3dadd(40.734, 112.127, -5, 1.49)
pt3dadd(40.614, 112.138, -5, 1.476)
pt3dadd(40.494, 112.135, -5, 1.46)
pt3dadd(40.374, 112.132, -5, 1.444)
pt3dadd(40.254, 112.129, -5, 1.428)
pt3dadd(40.135, 112.126, -5, 1.41)
pt3dadd(40.015, 112.122, -5, 1.394)
pt3dadd(39.896, 112.123, -4.994, 1.378)
pt3dadd(39.782, 112.14, -4.967, 1.36)
pt3dadd(39.667, 112.156, -4.939, 1.342)
pt3dadd(39.553, 112.172, -4.912, 1.324)
pt3dadd(39.439, 112.188, -4.884, 1.306)
pt3dadd(39.325, 112.204, -4.857, 1.288)
pt3dadd(39.207, 112.217, -4.84, 1.276)
pt3dadd(39.088, 112.227, -4.833, 1.268)
pt3dadd(38.969, 112.237, -4.826, 1.26)
pt3dadd(38.85, 112.248, -4.819, 1.252)
pt3dadd(38.731, 112.258, -4.812, 1.244)
pt3dadd(38.611, 112.269, -4.805, 1.236)
pt3dadd(38.493, 112.267, -4.8, 1.226)
pt3dadd(38.376, 112.239, -4.8, 1.212)
pt3dadd(38.26, 112.21, -4.8, 1.198)
pt3dadd(38.143, 112.181, -4.8, 1.184)
pt3dadd(38.027, 112.153, -4.8, 1.17)
pt3dadd(37.91, 112.124, -4.8, 1.156)
pt3dadd(37.791, 112.125, -4.8, 1.134)
pt3dadd(37.671, 112.129, -4.8, 1.11)
pt3dadd(37.551, 112.134, -4.8, 1.086)
pt3dadd(37.431, 112.138, -4.8, 1.062)
pt3dadd(37.311, 112.142, -4.8, 1.038)
pt3dadd(37.191, 112.146, -4.8, 1.014)
pt3dadd(37.073, 112.157, -4.791, 0.99)
pt3dadd(36.955, 112.173, -4.774, 0.966)
pt3dadd(36.838, 112.19, -4.758, 0.942)
pt3dadd(36.721, 112.206, -4.742, 0.916)
pt3dadd(36.604, 112.223, -4.725, 0.892)
pt3dadd(36.486, 112.239, -4.709, 0.866)
pt3dadd(36.368, 112.256, -4.7, 0.85)
pt3dadd(36.25, 112.272, -4.7, 0.844)
pt3dadd(36.131, 112.289, -4.7, 0.836)
pt3dadd(36.012, 112.306, -4.7, 0.828)
pt3dadd(35.893, 112.323, -4.7, 0.822)
pt3dadd(35.774, 112.339, -4.7, 0.814)
pt3dadd(35.655, 112.356, -4.7, 0.808)
pt3dadd(35.536, 112.36, -4.7, 0.812)
pt3dadd(35.417, 112.349, -4.7, 0.828)
}
}
proc shape3d_88() {
apic[36] { pt3dadd(35.297, 112.338, -4.7, 0.846)
pt3dadd(35.178, 112.327, -4.7, 0.864)
pt3dadd(35.058, 112.316, -4.7, 0.88)
pt3dadd(34.939, 112.305, -4.7, 0.898)
pt3dadd(34.819, 112.304, -4.703, 0.914)
pt3dadd(34.699, 112.307, -4.709, 0.932)
pt3dadd(34.58, 112.31, -4.715, 0.948)
pt3dadd(34.46, 112.314, -4.72, 0.964)
pt3dadd(34.34, 112.317, -4.726, 0.982)
pt3dadd(34.22, 112.321, -4.731, 0.998)
pt3dadd(34.101, 112.332, -4.74, 1.01)
pt3dadd(33.983, 112.349, -4.75, 1.016)
pt3dadd(33.865, 112.365, -4.76, 1.024)
pt3dadd(33.747, 112.382, -4.771, 1.032)
pt3dadd(33.629, 112.398, -4.781, 1.04)
pt3dadd(33.51, 112.415, -4.792, 1.048)
pt3dadd(33.393, 112.431, -4.804, 1.056)
pt3dadd(33.275, 112.445, -4.821, 1.06)
pt3dadd(33.158, 112.46, -4.837, 1.064)
pt3dadd(33.04, 112.474, -4.854, 1.068)
pt3dadd(32.923, 112.488, -4.871, 1.072)
pt3dadd(32.805, 112.502, -4.888, 1.076)
pt3dadd(32.687, 112.513, -4.9, 1.082)
pt3dadd(32.567, 112.512, -4.9, 1.09)
pt3dadd(32.447, 112.512, -4.9, 1.098)
pt3dadd(32.327, 112.511, -4.9, 1.106)
pt3dadd(32.207, 112.51, -4.9, 1.114)
pt3dadd(32.087, 112.51, -4.9, 1.122)
pt3dadd(31.967, 112.511, -4.901, 1.132)
pt3dadd(31.85, 112.527, -4.918, 1.144)
pt3dadd(31.733, 112.544, -4.934, 1.156)
pt3dadd(31.616, 112.56, -4.951, 1.168)
pt3dadd(31.499, 112.577, -4.967, 1.18)
pt3dadd(31.381, 112.593, -4.984, 1.192)
pt3dadd(31.264, 112.609, -5, 1.206)
}
apic[37] {pt3dclear()
pt3dadd(31.264, 112.609, -5, 1.206)
pt3dadd(31.164, 112.624, -5.009, 1.212)
pt3dadd(31.045, 112.64, -5.019, 1.22)
pt3dadd(30.927, 112.657, -5.03, 1.228)
pt3dadd(30.809, 112.673, -5.04, 1.236)
pt3dadd(30.691, 112.69, -5.051, 1.244)
pt3dadd(30.573, 112.707, -5.061, 1.252)
pt3dadd(30.454, 112.723, -5.069, 1.254)
pt3dadd(30.336, 112.74, -5.074, 1.25)
pt3dadd(30.217, 112.757, -5.079, 1.246)
pt3dadd(30.098, 112.773, -5.084, 1.242)
pt3dadd(29.979, 112.79, -5.089, 1.238)
pt3dadd(29.861, 112.807, -5.094, 1.234)
pt3dadd(29.742, 112.823, -5.099, 1.232)
pt3dadd(29.623, 112.84, -5.1, 1.216)
pt3dadd(29.505, 112.857, -5.1, 1.2)
pt3dadd(29.386, 112.874, -5.1, 1.184)
pt3dadd(29.267, 112.89, -5.1, 1.166)
pt3dadd(29.148, 112.907, -5.1, 1.15)
pt3dadd(29.029, 112.924, -5.1, 1.134)
pt3dadd(28.912, 112.94, -5.114, 1.146)
pt3dadd(28.795, 112.957, -5.131, 1.164)
pt3dadd(28.692, 112.971, -5.164, 1.184)
pt3dadd(28.647, 112.977, -5.256, 1.206)
pt3dadd(28.601, 112.984, -5.348, 1.228)
pt3dadd(28.492, 112.991, -5.383, 1.276)
pt3dadd(28.378, 112.993, -5.414, 1.302)
pt3dadd(28.266, 112.986, -5.448, 1.292)
pt3dadd(28.153, 112.98, -5.483, 1.28)
pt3dadd(28.041, 112.973, -5.517, 1.27)
pt3dadd(27.929, 112.967, -5.552, 1.26)
pt3dadd(27.813, 112.973, -5.573, 1.244)
pt3dadd(27.695, 112.99, -5.583, 1.224)
pt3dadd(27.576, 113.007, -5.594, 1.204)
pt3dadd(27.458, 113.023, -5.604, 1.186)
pt3dadd(27.34, 113.04, -5.615, 1.166)
pt3dadd(27.222, 113.056, -5.625, 1.146)
pt3dadd(27.104, 113.073, -5.635, 1.124)
pt3dadd(26.986, 113.09, -5.646, 1.092)
pt3dadd(26.867, 113.106, -5.656, 1.06)
pt3dadd(26.749, 113.123, -5.667, 1.028)
pt3dadd(26.631, 113.139, -5.677, 0.998)
pt3dadd(26.513, 113.156, -5.688, 0.966)
pt3dadd(26.395, 113.173, -5.698, 0.934)
pt3dadd(26.277, 113.17, -5.716, 0.908)
pt3dadd(26.16, 113.163, -5.735, 0.884)
pt3dadd(26.042, 113.156, -5.755, 0.86)
pt3dadd(25.924, 113.149, -5.774, 0.836)
pt3dadd(25.807, 113.142, -5.793, 0.812)
pt3dadd(25.688, 113.151, -5.8, 0.8)
pt3dadd(25.57, 113.167, -5.8, 0.792)
pt3dadd(25.451, 113.184, -5.8, 0.784)
pt3dadd(25.332, 113.201, -5.8, 0.778)
pt3dadd(25.213, 113.218, -5.8, 0.77)
pt3dadd(25.094, 113.234, -5.8, 0.762)
pt3dadd(24.975, 113.251, -5.8, 0.756)
pt3dadd(24.86, 113.267, -5.819, 0.75)
pt3dadd(24.747, 113.283, -5.849, 0.746)
pt3dadd(24.633, 113.299, -5.879, 0.742)
pt3dadd(24.52, 113.315, -5.909, 0.736)
pt3dadd(24.406, 113.331, -5.938, 0.732)
pt3dadd(24.293, 113.344, -5.967, 0.728)
pt3dadd(24.177, 113.313, -5.974, 0.722)
pt3dadd(24.062, 113.282, -5.98, 0.718)
pt3dadd(23.946, 113.25, -5.987, 0.714)
pt3dadd(23.831, 113.219, -5.993, 0.708)
pt3dadd(23.715, 113.187, -6, 0.704)
pt3dadd(23.596, 113.202, -6, 0.704)
pt3dadd(23.478, 113.219, -6, 0.704)
pt3dadd(23.359, 113.236, -6, 0.704)
pt3dadd(23.24, 113.253, -6, 0.704)
pt3dadd(23.121, 113.269, -6, 0.704)
pt3dadd(23.002, 113.286, -6, 0.704)
pt3dadd(22.883, 113.303, -6, 0.704)
pt3dadd(22.765, 113.319, -6, 0.712)
pt3dadd(22.646, 113.336, -6, 0.72)
pt3dadd(22.527, 113.353, -6, 0.728)
pt3dadd(22.408, 113.369, -6.004, 0.728)
pt3dadd(22.289, 113.386, -6.008, 0.728)
pt3dadd(22.174, 113.402, -6.017, 0.726)
pt3dadd(22.107, 113.412, -6.099, 0.69)
pt3dadd(22.04, 113.421, -6.182, 0.656)
pt3dadd(21.954, 113.433, -6.251, 0.632)
pt3dadd(21.867, 113.445, -6.319, 0.608)
pt3dadd(21.778, 113.508, -6.35, 0.616)
pt3dadd(21.688, 113.583, -6.371, 0.63)
pt3dadd(21.598, 113.659, -6.391, 0.646)
pt3dadd(21.499, 113.722, -6.4, 0.696)
pt3dadd(21.392, 113.777, -6.4, 0.77)
pt3dadd(21.289, 113.838, -6.401, 0.84)
pt3dadd(21.2, 113.917, -6.405, 0.894)
pt3dadd(21.11, 113.997, -6.409, 0.948)
pt3dadd(21.03, 114.048, -6.445, 0.994)
pt3dadd(20.963, 114.057, -6.528, 1.028)
pt3dadd(20.904, 114.066, -6.614, 1.054)
pt3dadd(20.846, 114.099, -6.682, 1.052)
pt3dadd(20.756, 114.168, -6.715, 1.046)
pt3dadd(20.666, 114.236, -6.748, 1.04)
pt3dadd(20.576, 114.305, -6.782, 1.034)
pt3dadd(20.488, 114.371, -6.819, 1.028)
pt3dadd(20.415, 114.419, -6.888, 1.01)
pt3dadd(20.342, 114.468, -6.956, 0.992)
pt3dadd(20.269, 114.516, -7.024, 0.974)
pt3dadd(20.196, 114.564, -7.093, 0.956)
pt3dadd(20.135, 114.648, -7.141, 0.932)
pt3dadd(20.075, 114.736, -7.188, 0.908)
pt3dadd(20.015, 114.824, -7.234, 0.882)
pt3dadd(19.955, 114.911, -7.28, 0.858)
pt3dadd(19.875, 114.977, -7.33, 0.844)
pt3dadd(19.79, 115.037, -7.38, 0.832)
pt3dadd(19.706, 115.097, -7.431, 0.82)
pt3dadd(19.621, 115.157, -7.481, 0.808)
pt3dadd(19.521, 115.211, -7.503, 0.804)
pt3dadd(19.412, 115.26, -7.508, 0.804)
pt3dadd(19.324, 115.305, -7.537, 0.804)
pt3dadd(19.286, 115.336, -7.629, 0.804)
pt3dadd(19.194, 115.329, -7.671, 0.794)
pt3dadd(19.079, 115.305, -7.693, 0.782)
pt3dadd(18.962, 115.308, -7.7, 0.778)
pt3dadd(18.843, 115.325, -7.7, 0.778)
pt3dadd(18.724, 115.341, -7.7, 0.778)
pt3dadd(18.605, 115.358, -7.696, 0.788)
pt3dadd(18.487, 115.375, -7.69, 0.8)
pt3dadd(18.392, 115.388, -7.637, 0.822)
pt3dadd(18.305, 115.4, -7.569, 0.846)
pt3dadd(18.199, 115.415, -7.533, 0.872)
pt3dadd(18.082, 115.432, -7.516, 0.902)
pt3dadd(17.965, 115.448, -7.5, 0.932)
pt3dadd(17.847, 115.465, -7.513, 0.998)
pt3dadd(17.729, 115.481, -7.525, 1.062)
pt3dadd(17.626, 115.496, -7.561, 1.142)
pt3dadd(17.552, 115.506, -7.639, 1.248)
pt3dadd(17.474, 115.517, -7.714, 1.366)
pt3dadd(17.381, 115.53, -7.776, 1.524)
pt3dadd(17.27, 115.546, -7.805, 1.578)
pt3dadd(17.154, 115.562, -7.826, 1.602)
pt3dadd(17.037, 115.578, -7.847, 1.628)
pt3dadd(16.921, 115.595, -7.867, 1.654)
pt3dadd(16.805, 115.611, -7.888, 1.68)
pt3dadd(16.689, 115.627, -7.909, 1.704)
pt3dadd(16.589, 115.641, -7.962, 1.712)
pt3dadd(16.492, 115.655, -8.02, 1.718)
pt3dadd(16.395, 115.669, -8.077, 1.722)
pt3dadd(16.298, 115.682, -8.135, 1.728)
pt3dadd(16.2, 115.696, -8.192, 1.732)
pt3dadd(16.086, 115.712, -8.214, 1.722)
pt3dadd(15.969, 115.729, -8.231, 1.71)
pt3dadd(15.851, 115.745, -8.247, 1.698)
pt3dadd(15.734, 115.761, -8.264, 1.684)
pt3dadd(15.617, 115.778, -8.28, 1.672)
pt3dadd(15.5, 115.794, -8.296, 1.66)
pt3dadd(15.382, 115.794, -8.315, 1.63)
pt3dadd(15.265, 115.79, -8.335, 1.596)
pt3dadd(15.147, 115.785, -8.355, 1.56)
pt3dadd(15.03, 115.78, -8.375, 1.526)
pt3dadd(14.912, 115.775, -8.394, 1.492)
pt3dadd(14.805, 115.801, -8.429, 1.458)
pt3dadd(14.701, 115.838, -8.469, 1.426)
pt3dadd(14.598, 115.875, -8.509, 1.394)
pt3dadd(14.495, 115.913, -8.549, 1.362)
pt3dadd(14.391, 115.95, -8.589, 1.33)
pt3dadd(14.293, 115.991, -8.636, 1.304)
pt3dadd(14.195, 116.031, -8.682, 1.276)
pt3dadd(14.097, 116.072, -8.729, 1.248)
pt3dadd(13.998, 116.112, -8.775, 1.22)
}
}
proc shape3d_89() {
apic[37] { pt3dadd(13.891, 116.142, -8.8, 1.198)
pt3dadd(13.772, 116.158, -8.8, 1.18)
pt3dadd(13.653, 116.175, -8.8, 1.164)
pt3dadd(13.535, 116.194, -8.8, 1.156)
pt3dadd(13.416, 116.215, -8.8, 1.156)
pt3dadd(13.298, 116.236, -8.8, 1.156)
pt3dadd(13.197, 116.292, -8.8, 1.168)
pt3dadd(13.109, 116.373, -8.8, 1.192)
pt3dadd(13.038, 116.466, -8.807, 1.222)
pt3dadd(12.992, 116.574, -8.824, 1.26)
pt3dadd(12.959, 116.683, -8.852, 1.29)
pt3dadd(12.945, 116.79, -8.896, 1.304)
pt3dadd(12.94, 116.897, -8.94, 1.292)
pt3dadd(12.924, 116.995, -8.986, 1.274)
pt3dadd(12.836, 117.036, -9.045, 1.22)
pt3dadd(12.742, 117.079, -9.09, 1.166)
pt3dadd(12.634, 117.13, -9.095, 1.112)
pt3dadd(12.525, 117.18, -9.1, 1.058)
pt3dadd(12.409, 117.212, -9.1, 1.01)
pt3dadd(12.294, 117.243, -9.1, 0.964)
pt3dadd(12.186, 117.288, -9.1, 0.92)
pt3dadd(12.104, 117.376, -9.1, 0.886)
pt3dadd(12.024, 117.463, -9.117, 0.884)
pt3dadd(11.945, 117.55, -9.137, 0.89)
pt3dadd(11.866, 117.637, -9.157, 0.894)
pt3dadd(11.788, 117.725, -9.177, 0.9)
pt3dadd(11.705, 117.807, -9.199, 0.904)
pt3dadd(11.618, 117.884, -9.224, 0.904)
pt3dadd(11.531, 117.96, -9.25, 0.904)
pt3dadd(11.443, 118.037, -9.275, 0.904)
pt3dadd(11.356, 118.113, -9.3, 0.904)
pt3dadd(11.249, 118.161, -9.32, 0.888)
pt3dadd(11.141, 118.209, -9.34, 0.874)
pt3dadd(11.034, 118.257, -9.361, 0.858)
pt3dadd(10.927, 118.305, -9.381, 0.844)
pt3dadd(10.819, 118.351, -9.4, 0.828)
pt3dadd(10.701, 118.374, -9.4, 0.806)
pt3dadd(10.583, 118.397, -9.4, 0.782)
pt3dadd(10.465, 118.419, -9.4, 0.76)
pt3dadd(10.347, 118.442, -9.4, 0.738)
pt3dadd(10.229, 118.464, -9.4, 0.714)
pt3dadd(10.112, 118.487, -9.4, 0.692)
pt3dadd(9.994, 118.512, -9.402, 0.674)
pt3dadd(9.878, 118.542, -9.408, 0.66)
pt3dadd(9.762, 118.572, -9.413, 0.648)
pt3dadd(9.646, 118.601, -9.419, 0.636)
pt3dadd(9.53, 118.631, -9.424, 0.624)
pt3dadd(9.414, 118.661, -9.43, 0.612)
pt3dadd(9.301, 118.696, -9.442, 0.6)
pt3dadd(9.195, 118.741, -9.47, 0.596)
pt3dadd(9.09, 118.787, -9.498, 0.59)
pt3dadd(8.984, 118.833, -9.526, 0.586)
pt3dadd(8.878, 118.878, -9.554, 0.58)
pt3dadd(8.772, 118.909, -9.591, 0.582)
pt3dadd(8.667, 118.927, -9.636, 0.592)
pt3dadd(8.562, 118.944, -9.682, 0.602)
pt3dadd(8.456, 118.962, -9.727, 0.612)
pt3dadd(8.351, 118.979, -9.773, 0.622)
pt3dadd(8.24, 118.998, -9.8, 0.63)
pt3dadd(8.123, 119.021, -9.8, 0.638)
pt3dadd(8.005, 119.043, -9.8, 0.646)
pt3dadd(7.887, 119.066, -9.8, 0.654)
pt3dadd(7.769, 119.089, -9.8, 0.662)
pt3dadd(7.651, 119.111, -9.8, 0.668)
pt3dadd(7.533, 119.134, -9.8, 0.676)
pt3dadd(7.434, 119.196, -9.8, 0.686)
pt3dadd(7.342, 119.272, -9.8, 0.696)
pt3dadd(7.249, 119.349, -9.8, 0.704)
pt3dadd(7.157, 119.425, -9.8, 0.714)
pt3dadd(7.064, 119.502, -9.8, 0.724)
pt3dadd(6.976, 119.574, -9.825, 0.736)
pt3dadd(6.89, 119.643, -9.865, 0.748)
pt3dadd(6.805, 119.713, -9.904, 0.76)
pt3dadd(6.719, 119.782, -9.944, 0.772)
pt3dadd(6.626, 119.848, -9.969, 0.778)
pt3dadd(6.524, 119.91, -9.976, 0.778)
pt3dadd(6.422, 119.973, -9.983, 0.778)
pt3dadd(6.319, 120.035, -9.989, 0.778)
pt3dadd(6.217, 120.096, -9.996, 0.778)
pt3dadd(6.114, 120.157, -10, 0.776)
pt3dadd(6.009, 120.217, -10, 0.772)
pt3dadd(5.905, 120.277, -10, 0.768)
pt3dadd(5.801, 120.337, -10, 0.762)
pt3dadd(5.697, 120.396, -10, 0.758)
pt3dadd(5.593, 120.456, -10, 0.754)
pt3dadd(5.49, 120.518, -10.006, 0.734)
pt3dadd(5.388, 120.58, -10.013, 0.716)
pt3dadd(5.286, 120.642, -10.019, 0.696)
pt3dadd(5.183, 120.704, -10.026, 0.676)
pt3dadd(5.081, 120.766, -10.032, 0.656)
pt3dadd(4.991, 120.842, -10.046, 0.638)
pt3dadd(4.903, 120.923, -10.06, 0.622)
pt3dadd(4.814, 121.002, -10.075, 0.606)
pt3dadd(4.726, 121.082, -10.089, 0.59)
pt3dadd(4.634, 121.154, -10.105, 0.578)
pt3dadd(4.526, 121.201, -10.125, 0.578)
pt3dadd(4.419, 121.249, -10.145, 0.578)
pt3dadd(4.311, 121.297, -10.165, 0.578)
pt3dadd(4.204, 121.344, -10.186, 0.578)
pt3dadd(4.098, 121.397, -10.2, 0.584)
pt3dadd(3.995, 121.459, -10.2, 0.602)
pt3dadd(3.893, 121.522, -10.2, 0.62)
pt3dadd(3.79, 121.584, -10.2, 0.64)
pt3dadd(3.688, 121.646, -10.2, 0.658)
pt3dadd(3.585, 121.709, -10.2, 0.678)
pt3dadd(3.502, 121.794, -10.2, 0.746)
pt3dadd(3.42, 121.882, -10.2, 0.816)
pt3dadd(3.361, 121.986, -10.2, 0.858)
pt3dadd(3.308, 122.093, -10.2, 0.892)
pt3dadd(3.254, 122.201, -10.2, 0.912)
pt3dadd(3.201, 122.308, -10.2, 0.924)
pt3dadd(3.114, 122.371, -10.2, 0.916)
pt3dadd(2.996, 122.393, -10.2, 0.89)
pt3dadd(2.878, 122.414, -10.2, 0.864)
pt3dadd(2.76, 122.432, -10.2, 0.846)
pt3dadd(2.641, 122.449, -10.2, 0.834)
pt3dadd(2.522, 122.47, -10.2, 0.826)
pt3dadd(2.405, 122.491, -10.2, 0.822)
pt3dadd(2.287, 122.514, -10.2, 0.818)
pt3dadd(2.169, 122.537, -10.2, 0.816)
pt3dadd(2.051, 122.56, -10.2, 0.812)
pt3dadd(1.933, 122.582, -10.2, 0.808)
pt3dadd(1.815, 122.604, -10.2, 0.804)
pt3dadd(1.706, 122.635, -10.232, 0.808)
pt3dadd(1.597, 122.668, -10.265, 0.814)
pt3dadd(1.489, 122.699, -10.298, 0.818)
pt3dadd(1.38, 122.73, -10.332, 0.824)
pt3dadd(1.271, 122.761, -10.365, 0.828)
pt3dadd(1.158, 122.798, -10.372, 0.824)
pt3dadd(1.044, 122.836, -10.378, 0.82)
pt3dadd(0.93, 122.873, -10.384, 0.816)
pt3dadd(0.816, 122.909, -10.389, 0.812)
pt3dadd(0.702, 122.946, -10.395, 0.808)
pt3dadd(0.589, 122.986, -10.4, 0.802)
pt3dadd(0.481, 123.037, -10.4, 0.794)
pt3dadd(0.372, 123.089, -10.4, 0.784)
pt3dadd(0.264, 123.14, -10.4, 0.774)
pt3dadd(0.156, 123.192, -10.4, 0.766)
pt3dadd(0.047, 123.244, -10.4, 0.756)
pt3dadd(-0.039, 123.322, -10.4, 0.748)
pt3dadd(-0.11, 123.419, -10.4, 0.738)
pt3dadd(-0.181, 123.516, -10.4, 0.728)
pt3dadd(-0.251, 123.612, -10.4, 0.716)
pt3dadd(-0.322, 123.709, -10.4, 0.706)
pt3dadd(-0.405, 123.794, -10.4, 0.696)
pt3dadd(-0.495, 123.875, -10.4, 0.686)
pt3dadd(-0.585, 123.953, -10.4, 0.676)
pt3dadd(-0.676, 124.033, -10.4, 0.666)
pt3dadd(-0.766, 124.112, -10.4, 0.656)
pt3dadd(-0.861, 124.184, -10.4, 0.652)
pt3dadd(-0.96, 124.253, -10.4, 0.652)
pt3dadd(-1.064, 124.309, -10.4, 0.66)
pt3dadd(-1.178, 124.346, -10.4, 0.68)
pt3dadd(-1.293, 124.382, -10.4, 0.698)
pt3dadd(-1.36, 124.474, -10.4, 0.774)
pt3dadd(-1.414, 124.58, -10.4, 0.866)
pt3dadd(-1.476, 124.682, -10.4, 0.968)
pt3dadd(-1.545, 124.782, -10.4, 1.074)
pt3dadd(-1.62, 124.874, -10.4, 1.156)
pt3dadd(-1.703, 124.962, -10.4, 1.214)
pt3dadd(-1.785, 125.05, -10.4, 1.27)
pt3dadd(-1.867, 125.136, -10.4, 1.326)
pt3dadd(-1.983, 125.159, -10.4, 1.324)
pt3dadd(-2.102, 125.176, -10.4, 1.314)
pt3dadd(-2.221, 125.192, -10.4, 1.306)
pt3dadd(-2.337, 125.222, -10.4, 1.154)
pt3dadd(-2.446, 125.272, -10.4, 1.11)
pt3dadd(-2.556, 125.32, -10.4, 1.066)
pt3dadd(-2.666, 125.369, -10.4, 1.022)
pt3dadd(-2.775, 125.418, -10.4, 0.976)
pt3dadd(-2.885, 125.466, -10.4, 0.932)
pt3dadd(-2.991, 125.522, -10.4, 0.892)
pt3dadd(-3.09, 125.591, -10.4, 0.858)
pt3dadd(-3.188, 125.658, -10.4, 0.824)
pt3dadd(-3.287, 125.726, -10.4, 0.79)
pt3dadd(-3.386, 125.795, -10.4, 0.758)
pt3dadd(-3.488, 125.856, -10.4, 0.724)
pt3dadd(-3.606, 125.876, -10.4, 0.688)
pt3dadd(-3.724, 125.898, -10.4, 0.654)
pt3dadd(-3.835, 125.933, -10.401, 0.624)
pt3dadd(-3.927, 126.011, -10.407, 0.612)
pt3dadd(-4.007, 126.092, -10.417, 0.602)
pt3dadd(-4.018, 126.203, -10.456, 0.602)
pt3dadd(-4.041, 126.307, -10.493, 0.602)
pt3dadd(-4.123, 126.391, -10.516, 0.602)
pt3dadd(-4.206, 126.473, -10.539, 0.606)
pt3dadd(-4.292, 126.553, -10.56, 0.612)
pt3dadd(-4.378, 126.632, -10.581, 0.62)
pt3dadd(-4.467, 126.707, -10.6, 0.63)
pt3dadd(-4.585, 126.728, -10.6, 0.656)
pt3dadd(-4.703, 126.749, -10.6, 0.682)
pt3dadd(-4.821, 126.773, -10.6, 0.726)
pt3dadd(-4.937, 126.804, -10.6, 0.808)
pt3dadd(-5.052, 126.838, -10.6, 0.82)
pt3dadd(-5.167, 126.872, -10.6, 0.832)
pt3dadd(-5.282, 126.906, -10.6, 0.844)
pt3dadd(-5.397, 126.94, -10.6, 0.856)
pt3dadd(-5.513, 126.973, -10.6, 0.868)
pt3dadd(-5.628, 127.004, -10.6, 0.882)
pt3dadd(-5.747, 127.021, -10.6, 0.904)
}
}
proc shape3d_90() {
apic[37] { pt3dadd(-5.866, 127.038, -10.6, 0.904)
pt3dadd(-5.985, 127.054, -10.6, 0.9)
pt3dadd(-6.103, 127.07, -10.602, 0.868)
pt3dadd(-6.22, 127.087, -10.618, 0.766)
pt3dadd(-6.327, 127.111, -10.655, 0.596)
pt3dadd(-6.404, 127.169, -10.71, 0.502)
pt3dadd(-6.421, 127.268, -10.763, 0.502)
pt3dadd(-6.408, 127.382, -10.79, 0.442)
pt3dadd(-6.42, 127.5, -10.8, 0.366)
pt3dadd(-6.493, 127.588, -10.8, 0.352)
pt3dadd(-6.606, 127.625, -10.8, 0.398)
pt3dadd(-6.725, 127.643, -10.8, 0.426)
pt3dadd(-6.844, 127.66, -10.8, 0.45)
pt3dadd(-6.961, 127.676, -10.812, 0.452)
pt3dadd(-7.074, 127.692, -10.843, 0.468)
pt3dadd(-7.181, 127.716, -10.882, 0.57)
pt3dadd(-7.292, 127.752, -10.905, 0.624)
pt3dadd(-7.404, 127.788, -10.927, 0.654)
pt3dadd(-7.515, 127.825, -10.948, 0.682)
pt3dadd(-7.627, 127.861, -10.969, 0.712)
pt3dadd(-7.738, 127.897, -10.991, 0.74)
pt3dadd(-7.851, 127.933, -11, 0.76)
pt3dadd(-7.966, 127.969, -11, 0.772)
pt3dadd(-8.08, 128.005, -11, 0.786)
pt3dadd(-8.194, 128.041, -11, 0.798)
pt3dadd(-8.309, 128.077, -11, 0.81)
pt3dadd(-8.423, 128.113, -11, 0.822)
pt3dadd(-8.54, 128.141, -11, 0.828)
pt3dadd(-8.658, 128.16, -11, 0.828)
pt3dadd(-8.777, 128.178, -11, 0.828)
pt3dadd(-8.896, 128.197, -11, 0.828)
pt3dadd(-9.014, 128.215, -11, 0.828)
pt3dadd(-9.133, 128.234, -11, 0.828)
pt3dadd(-9.251, 128.252, -11, 0.828)
pt3dadd(-9.354, 128.298, -10.979, 0.796)
pt3dadd(-9.446, 128.362, -10.943, 0.742)
pt3dadd(-9.547, 128.394, -10.899, 0.71)
pt3dadd(-9.651, 128.416, -10.852, 0.688)
pt3dadd(-9.756, 128.455, -10.824, 0.678)
pt3dadd(-9.862, 128.508, -10.809, 0.678)
pt3dadd(-9.958, 128.576, -10.8, 0.694)
pt3dadd(-10.04, 128.664, -10.8, 0.73)
pt3dadd(-10.112, 128.758, -10.8, 0.764)
pt3dadd(-10.162, 128.867, -10.8, 0.8)
pt3dadd(-10.255, 128.932, -10.774, 0.808)
pt3dadd(-10.353, 128.99, -10.745, 0.814)
pt3dadd(-10.452, 129.049, -10.715, 0.82)
pt3dadd(-10.551, 129.107, -10.686, 0.826)
pt3dadd(-10.653, 129.161, -10.662, 0.832)
pt3dadd(-10.764, 129.204, -10.65, 0.842)
pt3dadd(-10.875, 129.247, -10.637, 0.85)
pt3dadd(-10.986, 129.292, -10.625, 0.86)
pt3dadd(-11.097, 129.335, -10.612, 0.87)
pt3dadd(-11.207, 129.379, -10.6, 0.88)
pt3dadd(-11.306, 129.448, -10.6, 0.89)
pt3dadd(-11.405, 129.515, -10.6, 0.898)
pt3dadd(-11.504, 129.583, -10.6, 0.908)
pt3dadd(-11.602, 129.652, -10.6, 0.918)
pt3dadd(-11.701, 129.719, -10.6, 0.928)
pt3dadd(-11.779, 129.81, -10.6, 0.95)
pt3dadd(-11.853, 129.905, -10.6, 0.976)
pt3dadd(-11.926, 130, -10.6, 1)
pt3dadd(-12, 130.093, -10.6, 1.026)
pt3dadd(-12.074, 130.188, -10.6, 1.052)
pt3dadd(-12.173, 130.255, -10.6, 1.076)
pt3dadd(-12.275, 130.318, -10.6, 1.1)
pt3dadd(-12.378, 130.38, -10.6, 1.122)
pt3dadd(-12.48, 130.442, -10.6, 1.146)
pt3dadd(-12.583, 130.505, -10.6, 1.17)
pt3dadd(-12.688, 130.561, -10.6, 1.198)
pt3dadd(-12.797, 130.613, -10.6, 1.228)
pt3dadd(-12.905, 130.664, -10.6, 1.26)
pt3dadd(-13.014, 130.715, -10.6, 1.292)
pt3dadd(-13.122, 130.766, -10.6, 1.324)
pt3dadd(-13.23, 130.818, -10.6, 1.354)
pt3dadd(-13.343, 130.86, -10.6, 1.364)
pt3dadd(-13.456, 130.901, -10.6, 1.372)
pt3dadd(-13.569, 130.942, -10.6, 1.382)
pt3dadd(-13.682, 130.982, -10.6, 1.39)
pt3dadd(-13.794, 131.023, -10.6, 1.398)
pt3dadd(-13.907, 131.064, -10.6, 1.406)
pt3dadd(-14.021, 131.102, -10.6, 1.388)
pt3dadd(-14.135, 131.141, -10.6, 1.372)
pt3dadd(-14.248, 131.179, -10.6, 1.354)
pt3dadd(-14.362, 131.218, -10.6, 1.338)
pt3dadd(-14.476, 131.256, -10.6, 1.322)
pt3dadd(-14.589, 131.296, -10.6, 1.302)
pt3dadd(-14.697, 131.347, -10.6, 1.258)
pt3dadd(-14.806, 131.398, -10.6, 1.212)
pt3dadd(-14.914, 131.449, -10.6, 1.168)
pt3dadd(-15.023, 131.501, -10.6, 1.124)
pt3dadd(-15.131, 131.552, -10.6, 1.078)
pt3dadd(-15.237, 131.608, -10.599, 1.032)
pt3dadd(-15.341, 131.669, -10.597, 0.984)
pt3dadd(-15.444, 131.729, -10.595, 0.936)
pt3dadd(-15.548, 131.79, -10.593, 0.89)
pt3dadd(-15.652, 131.85, -10.591, 0.842)
pt3dadd(-15.749, 131.914, -10.58, 0.788)
pt3dadd(-15.822, 131.993, -10.536, 0.702)
pt3dadd(-15.914, 132.052, -10.507, 0.652)
pt3dadd(-16.029, 132.084, -10.498, 0.652)
pt3dadd(-16.144, 132.116, -10.489, 0.652)
pt3dadd(-16.242, 132.131, -10.435, 0.698)
pt3dadd(-16.34, 132.145, -10.378, 0.744)
pt3dadd(-16.391, 132.152, -10.291, 0.796)
pt3dadd(-16.431, 132.157, -10.197, 0.85)
pt3dadd(-16.505, 132.168, -10.14, 0.886)
pt3dadd(-16.623, 132.185, -10.13, 0.902)
pt3dadd(-16.741, 132.202, -10.121, 0.92)
pt3dadd(-16.86, 132.218, -10.111, 0.936)
pt3dadd(-16.978, 132.234, -10.101, 0.952)
pt3dadd(-17.097, 132.251, -10.1, 0.954)
pt3dadd(-17.216, 132.268, -10.1, 0.954)
pt3dadd(-17.334, 132.284, -10.1, 0.954)
pt3dadd(-17.453, 132.301, -10.1, 0.91)
pt3dadd(-17.572, 132.318, -10.097, 0.882)
pt3dadd(-17.691, 132.335, -10.093, 0.856)
pt3dadd(-17.81, 132.352, -10.089, 0.83)
pt3dadd(-17.919, 132.367, -10.051, 0.796)
pt3dadd(-18.029, 132.382, -10.012, 0.764)
pt3dadd(-18.109, 132.374, -9.944, 0.726)
pt3dadd(-18.175, 132.355, -9.862, 0.686)
pt3dadd(-18.249, 132.282, -9.826, 0.658)
pt3dadd(-18.325, 132.193, -9.803, 0.63)
pt3dadd(-18.434, 132.149, -9.8, 0.614)
pt3dadd(-18.546, 132.121, -9.783, 0.608)
pt3dadd(-18.653, 132.109, -9.74, 0.618)
pt3dadd(-18.76, 132.098, -9.696, 0.628)
pt3dadd(-18.867, 132.086, -9.652, 0.64)
pt3dadd(-18.975, 132.076, -9.609, 0.65)
pt3dadd(-19.092, 132.065, -9.6, 0.664)
pt3dadd(-19.212, 132.054, -9.6, 0.676)
pt3dadd(-19.331, 132.043, -9.6, 0.69)
pt3dadd(-19.45, 132.032, -9.6, 0.702)
pt3dadd(-19.57, 132.022, -9.6, 0.716)
pt3dadd(-19.689, 132.01, -9.6, 0.728)
pt3dadd(-19.807, 132.026, -9.584, 0.744)
pt3dadd(-19.924, 132.043, -9.567, 0.76)
pt3dadd(-20.041, 132.059, -9.551, 0.778)
pt3dadd(-20.158, 132.076, -9.535, 0.794)
pt3dadd(-20.276, 132.092, -9.518, 0.81)
pt3dadd(-20.393, 132.108, -9.502, 0.828)
pt3dadd(-20.513, 132.114, -9.5, 0.832)
pt3dadd(-20.632, 132.118, -9.5, 0.836)
pt3dadd(-20.752, 132.122, -9.5, 0.84)
pt3dadd(-20.872, 132.126, -9.5, 0.844)
pt3dadd(-20.992, 132.131, -9.5, 0.848)
pt3dadd(-21.112, 132.134, -9.5, 0.852)
pt3dadd(-21.232, 132.138, -9.5, 0.858)
pt3dadd(-21.352, 132.139, -9.5, 0.868)
pt3dadd(-21.472, 132.142, -9.5, 0.878)
pt3dadd(-21.591, 132.156, -9.5, 0.886)
pt3dadd(-21.71, 132.173, -9.5, 0.894)
pt3dadd(-21.829, 132.19, -9.5, 0.902)
pt3dadd(-21.947, 132.172, -9.5, 0.93)
pt3dadd(-22.064, 132.149, -9.5, 0.962)
pt3dadd(-22.157, 132.089, -9.492, 0.98)
pt3dadd(-22.224, 131.992, -9.475, 0.98)
pt3dadd(-22.293, 131.918, -9.433, 0.968)
pt3dadd(-22.363, 131.874, -9.361, 0.942)
pt3dadd(-22.434, 131.828, -9.289, 0.916)
pt3dadd(-22.512, 131.81, -9.218, 0.872)
pt3dadd(-22.597, 131.815, -9.148, 0.81)
pt3dadd(-22.695, 131.826, -9.096, 0.766)
pt3dadd(-22.808, 131.842, -9.064, 0.744)
pt3dadd(-22.921, 131.858, -9.032, 0.72)
pt3dadd(-23.035, 131.874, -9.009, 0.704)
pt3dadd(-23.154, 131.891, -9.001, 0.704)
pt3dadd(-23.272, 131.908, -8.993, 0.704)
pt3dadd(-23.388, 131.923, -8.974, 0.736)
pt3dadd(-23.502, 131.926, -8.944, 0.77)
pt3dadd(-23.616, 131.923, -8.913, 0.794)
pt3dadd(-23.731, 131.905, -8.891, 0.804)
pt3dadd(-23.845, 131.875, -8.874, 0.804)
pt3dadd(-23.918, 131.834, -8.822, 0.784)
pt3dadd(-23.953, 131.784, -8.736, 0.744)
pt3dadd(-23.998, 131.732, -8.654, 0.704)
pt3dadd(-24.049, 131.681, -8.575, 0.662)
pt3dadd(-24.121, 131.671, -8.498, 0.634)
pt3dadd(-24.199, 131.676, -8.422, 0.61)
pt3dadd(-24.297, 131.688, -8.368, 0.626)
pt3dadd(-24.404, 131.707, -8.327, 0.62)
pt3dadd(-24.504, 131.761, -8.303, 0.526)
pt3dadd(-24.568, 131.861, -8.298, 0.386)
pt3dadd(-24.619, 131.962, -8.268, 0.334)
pt3dadd(-24.675, 132.054, -8.224, 0.348)
pt3dadd(-24.713, 132.161, -8.195, 0.406)
pt3dadd(-24.744, 132.274, -8.173, 0.482)
pt3dadd(-24.834, 132.329, -8.151, 0.556)
pt3dadd(-24.946, 132.362, -8.128, 0.632)
pt3dadd(-25.058, 132.396, -8.106, 0.708)
pt3dadd(-25.173, 132.427, -8.1, 0.802)
pt3dadd(-25.289, 132.458, -8.1, 0.906)
pt3dadd(-25.404, 132.491, -8.1, 1.016)
pt3dadd(-25.505, 132.55, -8.089, 1.27)
pt3dadd(-25.611, 132.581, -8.05, 1.322)
pt3dadd(-25.717, 132.612, -8.011, 1.374)
pt3dadd(-25.823, 132.643, -7.973, 1.426)
pt3dadd(-25.929, 132.674, -7.934, 1.476)
pt3dadd(-26.024, 132.731, -7.909, 1.542)
}
}
proc shape3d_91() {
apic[37] { pt3dadd(-26.103, 132.821, -7.904, 1.628)
pt3dadd(-26.193, 132.89, -7.889, 1.7)
pt3dadd(-26.301, 132.924, -7.857, 1.746)
pt3dadd(-26.405, 132.954, -7.818, 1.786)
pt3dadd(-26.492, 132.966, -7.75, 1.798)
pt3dadd(-26.577, 132.978, -7.68, 1.808)
pt3dadd(-26.637, 132.986, -7.594, 1.808)
pt3dadd(-26.697, 132.995, -7.508, 1.808)
pt3dadd(-26.808, 133.01, -7.478, 1.808)
pt3dadd(-26.923, 133.026, -7.454, 1.808)
pt3dadd(-27.038, 133.043, -7.429, 1.808)
pt3dadd(-27.153, 133.058, -7.405, 1.808)
pt3dadd(-27.272, 133.075, -7.4, 1.822)
pt3dadd(-27.39, 133.092, -7.4, 1.838)
pt3dadd(-27.509, 133.109, -7.4, 1.854)
pt3dadd(-27.628, 133.126, -7.4, 1.898)
pt3dadd(-27.744, 133.156, -7.4, 1.906)
pt3dadd(-27.859, 133.189, -7.4, 1.902)
pt3dadd(-27.975, 133.223, -7.4, 1.898)
pt3dadd(-28.09, 133.256, -7.4, 1.892)
pt3dadd(-28.205, 133.29, -7.4, 1.888)
pt3dadd(-28.32, 133.324, -7.4, 1.884)
pt3dadd(-28.433, 133.364, -7.4, 1.86)
pt3dadd(-28.543, 133.411, -7.4, 1.82)
pt3dadd(-28.654, 133.457, -7.4, 1.78)
pt3dadd(-28.765, 133.502, -7.4, 1.742)
pt3dadd(-28.876, 133.549, -7.4, 1.702)
pt3dadd(-28.987, 133.595, -7.4, 1.662)
pt3dadd(-29.096, 133.644, -7.398, 1.598)
pt3dadd(-29.206, 133.693, -7.396, 1.53)
pt3dadd(-29.315, 133.742, -7.394, 1.462)
pt3dadd(-29.424, 133.792, -7.392, 1.394)
pt3dadd(-29.534, 133.841, -7.39, 1.328)
pt3dadd(-29.646, 133.882, -7.384, 1.262)
pt3dadd(-29.763, 133.9, -7.37, 1.2)
pt3dadd(-29.88, 133.919, -7.355, 1.138)
pt3dadd(-29.997, 133.937, -7.34, 1.074)
pt3dadd(-30.114, 133.956, -7.326, 1.012)
pt3dadd(-30.232, 133.974, -7.311, 0.95)
pt3dadd(-30.349, 133.992, -7.3, 0.894)
pt3dadd(-30.468, 134.006, -7.3, 0.854)
pt3dadd(-30.588, 134.022, -7.3, 0.814)
pt3dadd(-30.707, 134.036, -7.3, 0.774)
pt3dadd(-30.826, 134.051, -7.3, 0.734)
pt3dadd(-30.945, 134.066, -7.3, 0.694)
pt3dadd(-31.064, 134.081, -7.3, 0.654)
pt3dadd(-31.182, 134.082, -7.3, 0.608)
pt3dadd(-31.3, 134.058, -7.3, 0.556)
pt3dadd(-31.418, 134.035, -7.3, 0.502)
pt3dadd(-31.537, 134.047, -7.3, 0.494)
pt3dadd(-31.656, 134.059, -7.3, 0.484)
pt3dadd(-31.775, 134.071, -7.303, 0.478)
pt3dadd(-31.89, 134.088, -7.331, 0.488)
pt3dadd(-32.004, 134.104, -7.358, 0.5)
pt3dadd(-32.11, 134.119, -7.401, 0.526)
pt3dadd(-32.212, 134.134, -7.452, 0.56)
pt3dadd(-32.29, 134.144, -7.522, 0.586)
pt3dadd(-32.344, 134.152, -7.611, 0.602)
pt3dadd(-32.439, 134.165, -7.671, 0.612)
pt3dadd(-32.534, 134.178, -7.731, 0.622)
pt3dadd(-32.629, 134.191, -7.791, 0.632)
pt3dadd(-32.724, 134.206, -7.851, 0.642)
pt3dadd(-32.819, 134.219, -7.911, 0.652)
pt3dadd(-32.931, 134.226, -7.948, 0.658)
pt3dadd(-33.042, 134.234, -7.985, 0.662)
pt3dadd(-33.153, 134.242, -8.021, 0.668)
pt3dadd(-33.264, 134.25, -8.058, 0.672)
pt3dadd(-33.376, 134.257, -8.095, 0.678)
pt3dadd(-33.494, 134.25, -8.1, 0.69)
pt3dadd(-33.614, 134.238, -8.1, 0.702)
pt3dadd(-33.733, 134.227, -8.1, 0.714)
pt3dadd(-33.853, 134.216, -8.1, 0.728)
pt3dadd(-33.972, 134.206, -8.1, 0.74)
pt3dadd(-34.092, 134.195, -8.1, 0.754)
pt3dadd(-34.211, 134.206, -8.1, 0.762)
pt3dadd(-34.33, 134.216, -8.1, 0.768)
pt3dadd(-34.45, 134.227, -8.1, 0.776)
pt3dadd(-34.57, 134.238, -8.1, 0.784)
pt3dadd(-34.689, 134.249, -8.1, 0.792)
pt3dadd(-34.809, 134.26, -8.1, 0.798)
pt3dadd(-34.928, 134.258, -8.1, 0.802)
pt3dadd(-35.045, 134.236, -8.1, 0.798)
pt3dadd(-35.163, 134.213, -8.1, 0.792)
pt3dadd(-35.281, 134.191, -8.1, 0.788)
pt3dadd(-35.399, 134.168, -8.1, 0.784)
pt3dadd(-35.517, 134.146, -8.1, 0.78)
pt3dadd(-35.618, 134.1, -8.066, 0.778)
pt3dadd(-35.716, 134.048, -8.026, 0.778)
pt3dadd(-35.813, 133.998, -7.986, 0.778)
pt3dadd(-35.911, 133.948, -7.946, 0.778)
pt3dadd(-36.019, 133.925, -7.915, 0.782)
pt3dadd(-36.136, 133.916, -7.888, 0.786)
pt3dadd(-36.251, 133.908, -7.861, 0.792)
pt3dadd(-36.366, 133.9, -7.835, 0.798)
pt3dadd(-36.481, 133.891, -7.808, 0.802)
pt3dadd(-36.599, 133.902, -7.8, 0.812)
pt3dadd(-36.718, 133.918, -7.8, 0.822)
pt3dadd(-36.837, 133.934, -7.8, 0.832)
pt3dadd(-36.956, 133.951, -7.8, 0.844)
pt3dadd(-37.075, 133.968, -7.8, 0.854)
pt3dadd(-37.194, 133.985, -7.8, 0.866)
pt3dadd(-37.312, 134.002, -7.8, 0.876)
pt3dadd(-37.431, 134.018, -7.8, 0.878)
pt3dadd(-37.55, 134.035, -7.8, 0.878)
pt3dadd(-37.669, 134.052, -7.8, 0.878)
pt3dadd(-37.787, 134.045, -7.8, 0.872)
pt3dadd(-37.906, 134.028, -7.8, 0.862)
pt3dadd(-38.023, 134.005, -7.8, 0.85)
pt3dadd(-38.138, 133.967, -7.8, 0.84)
pt3dadd(-38.25, 133.93, -7.797, 0.828)
pt3dadd(-38.349, 133.924, -7.74, 0.802)
pt3dadd(-38.446, 133.919, -7.683, 0.776)
pt3dadd(-38.548, 133.933, -7.631, 0.748)
pt3dadd(-38.649, 133.948, -7.579, 0.72)
pt3dadd(-38.752, 133.962, -7.527, 0.692)
pt3dadd(-38.861, 133.976, -7.5, 0.662)
pt3dadd(-38.98, 133.993, -7.5, 0.628)
pt3dadd(-39.099, 134.01, -7.5, 0.596)
pt3dadd(-39.217, 134.027, -7.494, 0.564)
pt3dadd(-39.333, 134.052, -7.48, 0.556)
pt3dadd(-39.447, 134.082, -7.464, 0.56)
pt3dadd(-39.562, 134.113, -7.448, 0.564)
pt3dadd(-39.676, 134.143, -7.432, 0.568)
pt3dadd(-39.79, 134.174, -7.416, 0.574)
pt3dadd(-39.905, 134.206, -7.4, 0.578)
pt3dadd(-40.022, 134.228, -7.415, 0.59)
pt3dadd(-40.138, 134.251, -7.431, 0.604)
pt3dadd(-40.254, 134.274, -7.446, 0.616)
pt3dadd(-40.371, 134.298, -7.461, 0.63)
pt3dadd(-40.487, 134.321, -7.476, 0.642)
pt3dadd(-40.604, 134.344, -7.489, 0.654)
pt3dadd(-40.722, 134.359, -7.493, 0.666)
pt3dadd(-40.841, 134.376, -7.496, 0.676)
pt3dadd(-40.959, 134.393, -7.499, 0.688)
pt3dadd(-41.078, 134.41, -7.503, 0.7)
pt3dadd(-41.197, 134.426, -7.506, 0.71)
pt3dadd(-41.316, 134.443, -7.509, 0.722)
pt3dadd(-41.435, 134.46, -7.517, 0.734)
pt3dadd(-41.552, 134.477, -7.531, 0.75)
pt3dadd(-41.67, 134.492, -7.545, 0.768)
pt3dadd(-41.788, 134.509, -7.56, 0.784)
pt3dadd(-41.905, 134.526, -7.574, 0.8)
pt3dadd(-42.023, 134.543, -7.589, 0.816)
pt3dadd(-42.141, 134.56, -7.602, 0.828)
pt3dadd(-42.258, 134.575, -7.613, 0.828)
pt3dadd(-42.377, 134.592, -7.623, 0.828)
pt3dadd(-42.495, 134.609, -7.634, 0.828)
pt3dadd(-42.612, 134.626, -7.644, 0.828)
pt3dadd(-42.731, 134.642, -7.655, 0.828)
pt3dadd(-42.849, 134.659, -7.665, 0.828)
pt3dadd(-42.966, 134.675, -7.681, 0.804)
pt3dadd(-43.084, 134.692, -7.698, 0.776)
pt3dadd(-43.198, 134.707, -7.721, 0.742)
pt3dadd(-43.309, 134.723, -7.759, 0.698)
pt3dadd(-43.418, 134.738, -7.798, 0.654)
pt3dadd(-43.496, 134.755, -7.872, 0.618)
pt3dadd(-43.572, 134.773, -7.948, 0.582)
pt3dadd(-43.633, 134.838, -8.013, 0.564)
pt3dadd(-43.701, 134.905, -8.068, 0.55)
pt3dadd(-43.811, 134.952, -8.077, 0.536)
pt3dadd(-43.921, 134.999, -8.086, 0.524)
pt3dadd(-44.03, 135.047, -8.094, 0.51)
pt3dadd(-44.144, 135.083, -8.1, 0.502)
pt3dadd(-44.263, 135.1, -8.1, 0.502)
pt3dadd(-44.382, 135.116, -8.1, 0.502)
pt3dadd(-44.5, 135.133, -8.1, 0.52)
pt3dadd(-44.617, 135.156, -8.1, 0.558)
pt3dadd(-44.732, 135.192, -8.1, 0.574)
pt3dadd(-44.847, 135.228, -8.1, 0.592)
pt3dadd(-44.961, 135.264, -8.1, 0.608)
pt3dadd(-45.076, 135.3, -8.1, 0.624)
pt3dadd(-45.189, 135.336, -8.1, 0.64)
pt3dadd(-45.304, 135.371, -8.1, 0.662)
pt3dadd(-45.421, 135.402, -8.1, 0.7)
pt3dadd(-45.537, 135.433, -8.1, 0.738)
pt3dadd(-45.648, 135.475, -8.1, 0.766)
pt3dadd(-45.758, 135.523, -8.1, 0.786)
pt3dadd(-45.868, 135.568, -8.096, 0.806)
pt3dadd(-45.983, 135.584, -8.068, 0.828)
pt3dadd(-46.097, 135.6, -8.041, 0.848)
pt3dadd(-46.196, 135.613, -7.988, 0.87)
pt3dadd(-46.289, 135.626, -7.926, 0.894)
pt3dadd(-46.395, 135.64, -7.885, 0.916)
pt3dadd(-46.511, 135.653, -7.86, 0.934)
pt3dadd(-46.626, 135.666, -7.836, 0.952)
pt3dadd(-46.741, 135.678, -7.811, 0.972)
pt3dadd(-46.858, 135.671, -7.8, 0.986)
pt3dadd(-46.975, 135.647, -7.8, 0.996)
pt3dadd(-47.094, 135.629, -7.8, 1.004)
pt3dadd(-47.213, 135.636, -7.8, 1)
pt3dadd(-47.332, 135.653, -7.8, 0.99)
pt3dadd(-47.451, 135.668, -7.8, 0.98)
pt3dadd(-47.57, 135.685, -7.8, 0.968)
pt3dadd(-47.689, 135.702, -7.8, 0.958)
pt3dadd(-47.808, 135.719, -7.8, 0.948)
pt3dadd(-47.926, 135.736, -7.8, 0.936)
pt3dadd(-48.044, 135.758, -7.8, 0.924)
pt3dadd(-48.16, 135.792, -7.8, 0.908)
pt3dadd(-48.275, 135.826, -7.8, 0.892)
pt3dadd(-48.39, 135.859, -7.8, 0.876)
}
}
proc shape3d_92() {
apic[37] { pt3dadd(-48.505, 135.893, -7.8, 0.858)
pt3dadd(-48.621, 135.926, -7.8, 0.842)
pt3dadd(-48.735, 135.96, -7.8, 0.824)
pt3dadd(-48.849, 135.998, -7.8, 0.79)
pt3dadd(-48.962, 136.038, -7.8, 0.756)
pt3dadd(-49.076, 136.076, -7.8, 0.724)
pt3dadd(-49.19, 136.115, -7.8, 0.69)
pt3dadd(-49.304, 136.153, -7.8, 0.656)
pt3dadd(-49.414, 136.198, -7.8, 0.622)
pt3dadd(-49.503, 136.277, -7.8, 0.588)
pt3dadd(-49.594, 136.356, -7.8, 0.554)
pt3dadd(-49.683, 136.435, -7.8, 0.518)
pt3dadd(-49.774, 136.514, -7.8, 0.484)
pt3dadd(-49.865, 136.594, -7.8, 0.448)
pt3dadd(-49.958, 136.668, -7.8, 0.402)
pt3dadd(-50.052, 136.742, -7.8, 0.356)
pt3dadd(-50.168, 136.774, -7.8, 0.36)
pt3dadd(-50.284, 136.799, -7.8, 0.368)
pt3dadd(-50.396, 136.83, -7.792, 0.382)
pt3dadd(-50.464, 136.894, -7.729, 0.424)
pt3dadd(-50.529, 136.939, -7.658, 0.46)
pt3dadd(-50.591, 136.954, -7.573, 0.484)
pt3dadd(-50.665, 136.979, -7.505, 0.504)
pt3dadd(-50.771, 137.028, -7.483, 0.512)
pt3dadd(-50.876, 137.078, -7.46, 0.518)
pt3dadd(-50.982, 137.128, -7.438, 0.526)
pt3dadd(-51.097, 137.15, -7.423, 0.52)
pt3dadd(-51.215, 137.167, -7.411, 0.51)
pt3dadd(-51.334, 137.185, -7.4, 0.508)
pt3dadd(-51.449, 137.218, -7.4, 0.558)
pt3dadd(-51.563, 137.254, -7.4, 0.582)
pt3dadd(-51.678, 137.29, -7.4, 0.608)
pt3dadd(-51.793, 137.326, -7.4, 0.632)
pt3dadd(-51.906, 137.362, -7.4, 0.656)
pt3dadd(-52.021, 137.398, -7.4, 0.682)
pt3dadd(-52.135, 137.437, -7.4, 0.708)
pt3dadd(-52.241, 137.491, -7.402, 0.746)
pt3dadd(-52.348, 137.546, -7.404, 0.782)
pt3dadd(-52.454, 137.602, -7.406, 0.82)
pt3dadd(-52.562, 137.656, -7.408, 0.856)
pt3dadd(-52.668, 137.711, -7.411, 0.894)
pt3dadd(-52.778, 137.756, -7.424, 0.912)
pt3dadd(-52.889, 137.797, -7.441, 0.92)
pt3dadd(-52.999, 137.839, -7.458, 0.93)
pt3dadd(-53.109, 137.88, -7.475, 0.94)
pt3dadd(-53.221, 137.922, -7.492, 0.95)
pt3dadd(-53.334, 137.959, -7.5, 0.946)
pt3dadd(-53.449, 137.993, -7.5, 0.93)
pt3dadd(-53.564, 138.026, -7.5, 0.914)
pt3dadd(-53.679, 138.06, -7.5, 0.896)
pt3dadd(-53.794, 138.094, -7.5, 0.88)
pt3dadd(-53.91, 138.127, -7.5, 0.864)
pt3dadd(-54.026, 138.156, -7.5, 0.848)
pt3dadd(-54.144, 138.176, -7.5, 0.834)
pt3dadd(-54.262, 138.198, -7.5, 0.82)
pt3dadd(-54.381, 138.218, -7.5, 0.804)
pt3dadd(-54.499, 138.239, -7.5, 0.79)
pt3dadd(-54.617, 138.259, -7.5, 0.774)
pt3dadd(-54.735, 138.28, -7.5, 0.76)
pt3dadd(-54.851, 138.307, -7.5, 0.756)
pt3dadd(-54.967, 138.341, -7.5, 0.76)
pt3dadd(-55.082, 138.374, -7.5, 0.764)
pt3dadd(-55.197, 138.408, -7.5, 0.768)
pt3dadd(-55.312, 138.443, -7.5, 0.772)
pt3dadd(-55.428, 138.476, -7.5, 0.776)
pt3dadd(-55.544, 138.503, -7.5, 0.784)
pt3dadd(-55.663, 138.52, -7.5, 0.798)
pt3dadd(-55.781, 138.536, -7.5, 0.812)
pt3dadd(-55.9, 138.553, -7.5, 0.828)
pt3dadd(-56.019, 138.57, -7.5, 0.842)
pt3dadd(-56.138, 138.587, -7.5, 0.856)
pt3dadd(-56.257, 138.604, -7.5, 0.87)
pt3dadd(-56.377, 138.611, -7.5, 0.894)
pt3dadd(-56.496, 138.606, -7.5, 0.932)
pt3dadd(-56.616, 138.6, -7.5, 0.97)
pt3dadd(-56.737, 138.594, -7.5, 1.006)
pt3dadd(-56.856, 138.589, -7.5, 1.044)
pt3dadd(-56.976, 138.583, -7.5, 1.082)
pt3dadd(-57.095, 138.578, -7.508, 1.12)
pt3dadd(-57.212, 138.574, -7.526, 1.158)
pt3dadd(-57.33, 138.57, -7.546, 1.196)
pt3dadd(-57.448, 138.566, -7.564, 1.234)
pt3dadd(-57.566, 138.563, -7.583, 1.272)
pt3dadd(-57.684, 138.562, -7.602, 1.308)
pt3dadd(-57.801, 138.577, -7.618, 1.328)
pt3dadd(-57.918, 138.594, -7.635, 1.35)
pt3dadd(-58.036, 138.611, -7.651, 1.37)
pt3dadd(-58.152, 138.628, -7.668, 1.39)
pt3dadd(-58.27, 138.643, -7.684, 1.412)
pt3dadd(-58.386, 138.659, -7.7, 1.43)
pt3dadd(-58.507, 138.654, -7.7, 1.4)
pt3dadd(-58.627, 138.648, -7.7, 1.372)
pt3dadd(-58.746, 138.642, -7.7, 1.342)
pt3dadd(-58.867, 138.637, -7.7, 1.314)
pt3dadd(-58.987, 138.631, -7.7, 1.284)
pt3dadd(-59.106, 138.624, -7.7, 1.254)
pt3dadd(-59.22, 138.588, -7.702, 1.21)
pt3dadd(-59.335, 138.552, -7.704, 1.166)
pt3dadd(-59.45, 138.516, -7.707, 1.122)
pt3dadd(-59.564, 138.481, -7.709, 1.078)
pt3dadd(-59.678, 138.444, -7.711, 1.036)
pt3dadd(-59.768, 138.384, -7.75, 0.942)
pt3dadd(-59.855, 138.318, -7.79, 0.852)
pt3dadd(-59.951, 138.246, -7.795, 0.84)
pt3dadd(-60.047, 138.179, -7.8, 0.828)
pt3dadd(-60.167, 138.192, -7.8, 0.828)
pt3dadd(-60.286, 138.204, -7.8, 0.828)
pt3dadd(-60.406, 138.217, -7.802, 0.83)
pt3dadd(-60.523, 138.233, -7.815, 0.84)
pt3dadd(-60.641, 138.25, -7.827, 0.85)
pt3dadd(-60.747, 138.265, -7.864, 0.872)
pt3dadd(-60.841, 138.278, -7.925, 0.906)
pt3dadd(-60.954, 138.294, -7.958, 0.95)
pt3dadd(-61.065, 138.31, -7.991, 0.992)
pt3dadd(-61.183, 138.326, -8, 1.028)
pt3dadd(-61.302, 138.343, -8, 1.062)
pt3dadd(-61.421, 138.359, -8, 1.096)
pt3dadd(-61.533, 138.331, -8, 1.114)
pt3dadd(-61.644, 138.286, -8, 1.124)
pt3dadd(-61.74, 138.217, -8, 1.106)
pt3dadd(-61.82, 138.128, -8, 1.06)
pt3dadd(-61.913, 138.077, -8.009, 1.014)
pt3dadd(-62.029, 138.09, -8.034, 0.97)
pt3dadd(-62.145, 138.103, -8.059, 0.926)
pt3dadd(-62.261, 138.116, -8.084, 0.882)
pt3dadd(-62.355, 138.127, -8.131, 0.826)
pt3dadd(-62.407, 138.134, -8.221, 0.748)
pt3dadd(-62.461, 138.137, -8.309, 0.674)
pt3dadd(-62.516, 138.095, -8.391, 0.632)
pt3dadd(-62.571, 138.053, -8.472, 0.592)
pt3dadd(-62.663, 138.008, -8.5, 0.578)
pt3dadd(-62.774, 137.963, -8.5, 0.578)
pt3dadd(-62.889, 137.93, -8.5, 0.6)
pt3dadd(-63.008, 137.914, -8.5, 0.646)
pt3dadd(-63.127, 137.898, -8.5, 0.692)
pt3dadd(-63.246, 137.888, -8.5, 0.74)
pt3dadd(-63.365, 137.905, -8.5, 0.79)
pt3dadd(-63.484, 137.922, -8.5, 0.84)
pt3dadd(-63.603, 137.939, -8.5, 0.89)
pt3dadd(-63.718, 137.956, -8.511, 0.902)
pt3dadd(-63.825, 137.97, -8.555, 0.79)
pt3dadd(-63.931, 137.986, -8.6, 0.678)
}
apic[38] {pt3dclear()
pt3dadd(31.264, 112.609, -5, 1.206)
pt3dadd(31.257, 112.604, -4.987, 1.202)
pt3dadd(31.213, 112.571, -4.898, 1.186)
pt3dadd(31.168, 112.537, -4.81, 1.17)
pt3dadd(31.123, 112.503, -4.722, 1.152)
pt3dadd(31.078, 112.469, -4.633, 1.136)
pt3dadd(31.033, 112.435, -4.545, 1.12)
pt3dadd(30.988, 112.401, -4.457, 1.104)
pt3dadd(30.943, 112.368, -4.368, 1.086)
pt3dadd(30.898, 112.334, -4.28, 1.07)
pt3dadd(30.846, 112.305, -4.2, 1.048)
pt3dadd(30.727, 112.321, -4.2, 0.98)
pt3dadd(30.609, 112.338, -4.2, 0.924)
pt3dadd(30.49, 112.355, -4.2, 0.876)
pt3dadd(30.371, 112.371, -4.2, 0.852)
pt3dadd(30.252, 112.388, -4.2, 0.836)
pt3dadd(30.133, 112.405, -4.2, 0.908)
pt3dadd(30.015, 112.422, -4.2, 0.954)
pt3dadd(29.896, 112.438, -4.2, 0.958)
pt3dadd(29.777, 112.455, -4.2, 0.962)
pt3dadd(29.658, 112.472, -4.2, 0.966)
pt3dadd(29.539, 112.488, -4.2, 0.968)
pt3dadd(29.42, 112.505, -4.2, 0.972)
pt3dadd(29.301, 112.522, -4.2, 0.976)
pt3dadd(29.183, 112.539, -4.2, 0.978)
pt3dadd(29.064, 112.555, -4.2, 0.96)
pt3dadd(28.945, 112.572, -4.2, 0.942)
pt3dadd(28.826, 112.589, -4.2, 0.924)
pt3dadd(28.707, 112.605, -4.2, 0.906)
pt3dadd(28.588, 112.622, -4.2, 0.888)
pt3dadd(28.47, 112.639, -4.2, 0.87)
pt3dadd(28.351, 112.653, -4.2, 0.852)
pt3dadd(28.232, 112.639, -4.2, 0.84)
pt3dadd(28.112, 112.625, -4.2, 0.826)
pt3dadd(27.993, 112.611, -4.2, 0.814)
pt3dadd(27.874, 112.598, -4.2, 0.8)
pt3dadd(27.755, 112.584, -4.2, 0.786)
pt3dadd(27.636, 112.569, -4.198, 0.774)
pt3dadd(27.518, 112.55, -4.192, 0.766)
pt3dadd(27.399, 112.531, -4.185, 0.756)
pt3dadd(27.281, 112.513, -4.179, 0.746)
pt3dadd(27.163, 112.494, -4.173, 0.738)
pt3dadd(27.044, 112.476, -4.167, 0.728)
pt3dadd(26.926, 112.49, -4.156, 0.732)
pt3dadd(26.808, 112.505, -4.145, 0.736)
pt3dadd(26.689, 112.519, -4.135, 0.74)
pt3dadd(26.571, 112.533, -4.124, 0.744)
pt3dadd(26.452, 112.548, -4.113, 0.748)
pt3dadd(26.334, 112.563, -4.103, 0.752)
pt3dadd(26.216, 112.547, -4.1, 0.75)
pt3dadd(26.099, 112.522, -4.1, 0.746)
pt3dadd(25.982, 112.496, -4.1, 0.74)
pt3dadd(25.864, 112.471, -4.1, 0.736)
pt3dadd(25.747, 112.445, -4.1, 0.732)
pt3dadd(25.629, 112.432, -4.1, 0.72)
pt3dadd(25.512, 112.449, -4.092, 0.704)
pt3dadd(25.398, 112.464, -4.064, 0.704)
pt3dadd(25.283, 112.481, -4.037, 0.704)
}
}
proc shape3d_93() {
apic[38] { pt3dadd(25.171, 112.479, -4.002, 0.71)
pt3dadd(25.059, 112.476, -3.966, 0.72)
pt3dadd(24.953, 112.463, -3.932, 0.728)
pt3dadd(24.907, 112.354, -3.917, 0.728)
pt3dadd(24.862, 112.244, -3.902, 0.728)
pt3dadd(24.754, 112.233, -3.879, 0.716)
pt3dadd(24.637, 112.235, -3.856, 0.704)
pt3dadd(24.521, 112.237, -3.833, 0.69)
pt3dadd(24.405, 112.24, -3.807, 0.676)
pt3dadd(24.307, 112.254, -3.75, 0.652)
pt3dadd(24.209, 112.268, -3.694, 0.63)
pt3dadd(24.151, 112.258, -3.608, 0.628)
pt3dadd(24.095, 112.246, -3.52, 0.628)
pt3dadd(23.988, 112.216, -3.491, 0.64)
pt3dadd(23.876, 112.185, -3.469, 0.652)
pt3dadd(23.788, 112.117, -3.433, 0.666)
pt3dadd(23.704, 112.044, -3.396, 0.678)
pt3dadd(23.633, 111.954, -3.367, 0.678)
pt3dadd(23.561, 111.864, -3.338, 0.678)
pt3dadd(23.49, 111.774, -3.309, 0.678)
pt3dadd(23.418, 111.684, -3.28, 0.678)
pt3dadd(23.347, 111.594, -3.251, 0.678)
pt3dadd(23.276, 111.504, -3.222, 0.678)
pt3dadd(23.192, 111.441, -3.2, 0.698)
pt3dadd(23.073, 111.458, -3.2, 0.772)
pt3dadd(22.955, 111.475, -3.2, 0.848)
pt3dadd(22.838, 111.476, -3.2, 0.916)
pt3dadd(22.727, 111.43, -3.2, 0.962)
pt3dadd(22.618, 111.381, -3.2, 1.004)
pt3dadd(22.544, 111.287, -3.2, 1.004)
pt3dadd(22.469, 111.193, -3.2, 1.004)
pt3dadd(22.395, 111.099, -3.2, 0.964)
pt3dadd(22.32, 111.005, -3.2, 0.918)
pt3dadd(22.25, 110.908, -3.2, 0.846)
pt3dadd(22.176, 110.814, -3.2, 0.776)
pt3dadd(22.079, 110.744, -3.2, 0.76)
pt3dadd(21.982, 110.673, -3.2, 0.746)
pt3dadd(21.885, 110.602, -3.2, 0.73)
pt3dadd(21.788, 110.531, -3.2, 0.714)
pt3dadd(21.702, 110.452, -3.2, 0.704)
pt3dadd(21.646, 110.345, -3.2, 0.704)
pt3dadd(21.591, 110.239, -3.2, 0.704)
pt3dadd(21.531, 110.135, -3.2, 0.722)
pt3dadd(21.469, 110.032, -3.2, 0.744)
pt3dadd(21.376, 109.968, -3.2, 0.766)
pt3dadd(21.262, 109.93, -3.2, 0.79)
pt3dadd(21.147, 109.91, -3.2, 0.806)
pt3dadd(21.027, 109.922, -3.2, 0.816)
pt3dadd(20.908, 109.934, -3.2, 0.824)
pt3dadd(20.793, 109.918, -3.2, 0.826)
pt3dadd(20.682, 109.871, -3.2, 0.818)
pt3dadd(20.572, 109.823, -3.2, 0.812)
pt3dadd(20.462, 109.776, -3.2, 0.804)
pt3dadd(20.392, 109.682, -3.2, 0.794)
pt3dadd(20.331, 109.579, -3.2, 0.784)
pt3dadd(20.255, 109.487, -3.2, 0.768)
pt3dadd(20.168, 109.405, -3.2, 0.752)
pt3dadd(20.081, 109.323, -3.2, 0.734)
pt3dadd(19.971, 109.286, -3.2, 0.728)
pt3dadd(19.853, 109.269, -3.2, 0.728)
pt3dadd(19.734, 109.262, -3.2, 0.734)
pt3dadd(19.615, 109.272, -3.2, 0.756)
pt3dadd(19.495, 109.267, -3.2, 0.77)
pt3dadd(19.375, 109.261, -3.2, 0.782)
pt3dadd(19.255, 109.256, -3.2, 0.794)
pt3dadd(19.135, 109.25, -3.2, 0.808)
pt3dadd(19.015, 109.244, -3.2, 0.82)
pt3dadd(18.896, 109.234, -3.2, 0.832)
pt3dadd(18.778, 109.21, -3.2, 0.842)
pt3dadd(18.661, 109.187, -3.2, 0.852)
pt3dadd(18.541, 109.191, -3.2, 0.854)
pt3dadd(18.421, 109.199, -3.2, 0.854)
pt3dadd(18.307, 109.193, -3.2, 0.852)
pt3dadd(18.226, 109.104, -3.2, 0.84)
pt3dadd(18.145, 109.016, -3.2, 0.828)
pt3dadd(18.064, 108.927, -3.2, 0.84)
pt3dadd(17.983, 108.839, -3.2, 0.852)
pt3dadd(17.871, 108.81, -3.2, 0.866)
pt3dadd(17.757, 108.782, -3.197, 0.882)
pt3dadd(17.663, 108.709, -3.182, 0.898)
pt3dadd(17.57, 108.636, -3.168, 0.916)
pt3dadd(17.476, 108.562, -3.153, 0.932)
pt3dadd(17.383, 108.489, -3.138, 0.948)
pt3dadd(17.288, 108.417, -3.129, 0.968)
pt3dadd(17.192, 108.345, -3.122, 0.99)
pt3dadd(17.097, 108.273, -3.115, 1.012)
pt3dadd(17.001, 108.201, -3.107, 1.032)
pt3dadd(16.905, 108.129, -3.1, 1.054)
pt3dadd(16.79, 108.098, -3.1, 1.076)
pt3dadd(16.674, 108.069, -3.1, 1.1)
pt3dadd(16.557, 108.04, -3.1, 1.124)
pt3dadd(16.44, 108.012, -3.1, 1.146)
pt3dadd(16.324, 107.983, -3.1, 1.17)
pt3dadd(16.212, 107.957, -3.079, 1.186)
pt3dadd(16.103, 107.933, -3.042, 1.198)
pt3dadd(15.994, 107.91, -3.004, 1.208)
pt3dadd(15.885, 107.886, -2.967, 1.22)
pt3dadd(15.777, 107.86, -2.931, 1.228)
pt3dadd(15.668, 107.821, -2.903, 1.212)
pt3dadd(15.56, 107.782, -2.876, 1.194)
pt3dadd(15.451, 107.743, -2.848, 1.178)
pt3dadd(15.343, 107.703, -2.821, 1.162)
pt3dadd(15.244, 107.662, -2.778, 1.136)
pt3dadd(15.15, 107.62, -2.727, 1.106)
pt3dadd(15.056, 107.578, -2.676, 1.074)
pt3dadd(14.961, 107.536, -2.625, 1.044)
pt3dadd(14.867, 107.493, -2.574, 1.014)
pt3dadd(14.773, 107.451, -2.522, 0.984)
pt3dadd(14.679, 107.409, -2.471, 0.954)
pt3dadd(14.585, 107.366, -2.42, 0.922)
pt3dadd(14.499, 107.31, -2.371, 0.904)
pt3dadd(14.427, 107.232, -2.325, 0.904)
pt3dadd(14.354, 107.154, -2.279, 0.904)
pt3dadd(14.281, 107.077, -2.234, 0.904)
pt3dadd(14.204, 107.011, -2.184, 0.904)
pt3dadd(14.115, 106.978, -2.122, 0.904)
pt3dadd(14.026, 106.945, -2.061, 0.904)
pt3dadd(13.937, 106.912, -1.999, 0.904)
pt3dadd(13.851, 106.872, -1.942, 0.902)
pt3dadd(13.79, 106.773, -1.92, 0.89)
pt3dadd(13.722, 106.681, -1.897, 0.87)
pt3dadd(13.61, 106.65, -1.875, 0.794)
pt3dadd(13.505, 106.623, -1.844, 0.72)
pt3dadd(13.46, 106.629, -1.752, 0.654)
pt3dadd(13.414, 106.636, -1.66, 0.588)
pt3dadd(13.309, 106.65, -1.63, 0.546)
pt3dadd(13.192, 106.667, -1.613, 0.506)
pt3dadd(13.077, 106.683, -1.589, 0.474)
pt3dadd(12.971, 106.698, -1.545, 0.464)
pt3dadd(12.864, 106.713, -1.5, 0.452)
}
apic[39] {pt3dclear()
pt3dadd(45.039, 112.236, -5, 1.156)
pt3dadd(45.039, 112.237, -5.036, 1.17)
pt3dadd(45.036, 112.24, -5.136, 1.21)
pt3dadd(45.034, 112.243, -5.236, 1.25)
pt3dadd(45.032, 112.246, -5.336, 1.29)
pt3dadd(45.03, 112.248, -5.436, 1.33)
pt3dadd(45.028, 112.25, -5.536, 1.372)
pt3dadd(45.028, 112.25, -5.636, 1.414)
pt3dadd(45.028, 112.25, -5.736, 1.458)
pt3dadd(45.028, 112.25, -5.836, 1.5)
pt3dadd(45.028, 112.25, -5.936, 1.544)
pt3dadd(45.028, 112.25, -6.036, 1.586)
pt3dadd(45.028, 112.25, -6.136, 1.63)
pt3dadd(45.028, 112.25, -6.236, 1.662)
pt3dadd(45.028, 112.25, -6.336, 1.676)
pt3dadd(45.028, 112.25, -6.436, 1.692)
pt3dadd(45.028, 112.25, -6.536, 1.706)
pt3dadd(45.028, 112.25, -6.636, 1.72)
pt3dadd(45.028, 112.25, -6.736, 1.734)
pt3dadd(45.028, 112.25, -6.836, 1.748)
pt3dadd(45.023, 112.251, -6.936, 1.764)
pt3dadd(45.008, 112.253, -7.035, 1.784)
pt3dadd(44.994, 112.255, -7.134, 1.802)
pt3dadd(44.934, 112.264, -7.216, 1.816)
pt3dadd(44.853, 112.275, -7.289, 1.828)
pt3dadd(44.755, 112.289, -7.34, 1.844)
pt3dadd(44.643, 112.305, -7.373, 1.866)
pt3dadd(44.53, 112.32, -7.405, 1.884)
pt3dadd(44.416, 112.336, -7.433, 1.884)
pt3dadd(44.302, 112.353, -7.46, 1.884)
pt3dadd(44.186, 112.369, -7.482, 1.816)
pt3dadd(44.069, 112.385, -7.5, 1.726)
pt3dadd(43.95, 112.402, -7.5, 1.626)
pt3dadd(43.832, 112.419, -7.5, 1.524)
pt3dadd(43.714, 112.435, -7.504, 1.422)
pt3dadd(43.611, 112.449, -7.554, 1.284)
pt3dadd(43.509, 112.464, -7.605, 1.146)
pt3dadd(43.448, 112.455, -7.689, 1.042)
pt3dadd(43.393, 112.443, -7.777, 0.942)
pt3dadd(43.289, 112.404, -7.798, 0.908)
pt3dadd(43.178, 112.361, -7.809, 0.884)
pt3dadd(43.106, 112.313, -7.872, 0.896)
pt3dadd(43.025, 112.301, -7.939, 0.926)
pt3dadd(42.933, 112.311, -8.003, 0.962)
pt3dadd(42.841, 112.322, -8.067, 0.998)
pt3dadd(42.749, 112.332, -8.13, 1.034)
pt3dadd(42.657, 112.342, -8.194, 1.07)
pt3dadd(42.577, 112.353, -8.268, 1.108)
pt3dadd(42.503, 112.363, -8.346, 1.15)
pt3dadd(42.429, 112.373, -8.424, 1.19)
pt3dadd(42.355, 112.384, -8.502, 1.23)
pt3dadd(42.281, 112.394, -8.58, 1.27)
pt3dadd(42.22, 112.398, -8.666, 1.368)
pt3dadd(42.163, 112.4, -8.754, 1.486)
pt3dadd(42.073, 112.381, -8.802, 1.57)
pt3dadd(41.96, 112.35, -8.825, 1.632)
pt3dadd(41.847, 112.331, -8.853, 1.68)
pt3dadd(41.734, 112.321, -8.886, 1.716)
pt3dadd(41.627, 112.282, -8.9, 1.706)
pt3dadd(41.524, 112.221, -8.9, 1.66)
pt3dadd(41.414, 112.182, -8.9, 1.582)
pt3dadd(41.294, 112.176, -8.9, 1.464)
pt3dadd(41.176, 112.186, -8.912, 1.402)
pt3dadd(41.059, 112.202, -8.928, 1.36)
pt3dadd(40.942, 112.219, -8.945, 1.318)
pt3dadd(40.824, 112.235, -8.961, 1.278)
pt3dadd(40.707, 112.252, -8.978, 1.236)
pt3dadd(40.59, 112.268, -8.994, 1.196)
pt3dadd(40.496, 112.281, -9.047, 1.142)
pt3dadd(40.415, 112.293, -9.121, 1.082)
}
}
proc shape3d_94() {
apic[39] { pt3dadd(40.315, 112.298, -9.166, 1.054)
pt3dadd(40.198, 112.297, -9.185, 1.054)
pt3dadd(40.083, 112.288, -9.208, 1.064)
pt3dadd(39.976, 112.252, -9.244, 1.104)
pt3dadd(39.886, 112.196, -9.28, 1.144)
pt3dadd(39.822, 112.104, -9.315, 1.184)
pt3dadd(39.746, 112.02, -9.346, 1.218)
pt3dadd(39.657, 111.945, -9.371, 1.242)
pt3dadd(39.568, 111.871, -9.396, 1.266)
pt3dadd(39.489, 111.828, -9.446, 1.286)
pt3dadd(39.426, 111.83, -9.531, 1.298)
pt3dadd(39.365, 111.834, -9.617, 1.274)
pt3dadd(39.285, 111.846, -9.684, 1.184)
pt3dadd(39.182, 111.86, -9.735, 1.104)
pt3dadd(39.078, 111.875, -9.783, 1.03)
pt3dadd(38.972, 111.89, -9.828, 0.962)
pt3dadd(38.866, 111.896, -9.87, 0.9)
pt3dadd(38.76, 111.847, -9.893, 0.874)
pt3dadd(38.673, 111.792, -9.928, 0.862)
pt3dadd(38.648, 111.714, -10.001, 0.9)
pt3dadd(38.603, 111.645, -10.065, 0.944)
pt3dadd(38.499, 111.604, -10.101, 1.004)
pt3dadd(38.395, 111.559, -10.135, 1.016)
pt3dadd(38.292, 111.515, -10.168, 1.028)
pt3dadd(38.188, 111.469, -10.202, 1.04)
pt3dadd(38.084, 111.425, -10.235, 1.052)
pt3dadd(37.987, 111.409, -10.289, 1.05)
pt3dadd(37.892, 111.405, -10.35, 1.046)
pt3dadd(37.797, 111.401, -10.411, 1.04)
pt3dadd(37.702, 111.396, -10.472, 1.034)
pt3dadd(37.604, 111.392, -10.529, 1.03)
pt3dadd(37.493, 111.388, -10.566, 1.03)
pt3dadd(37.381, 111.384, -10.6, 1.032)
pt3dadd(37.261, 111.38, -10.6, 1.05)
pt3dadd(37.141, 111.376, -10.6, 1.07)
pt3dadd(37.04, 111.333, -10.612, 1.106)
pt3dadd(36.956, 111.251, -10.636, 1.16)
pt3dadd(36.876, 111.224, -10.692, 1.188)
pt3dadd(36.798, 111.229, -10.768, 1.2)
pt3dadd(36.707, 111.239, -10.831, 1.174)
pt3dadd(36.607, 111.253, -10.885, 1.122)
pt3dadd(36.504, 111.267, -10.935, 1.064)
pt3dadd(36.402, 111.282, -10.986, 1.008)
pt3dadd(36.29, 111.297, -11.02, 0.984)
pt3dadd(36.178, 111.313, -11.053, 0.962)
pt3dadd(36.065, 111.302, -11.076, 0.962)
pt3dadd(35.95, 111.273, -11.092, 0.974)
pt3dadd(35.855, 111.211, -11.103, 1.004)
pt3dadd(35.778, 111.119, -11.108, 1.052)
pt3dadd(35.693, 111.052, -11.135, 1.116)
pt3dadd(35.598, 111.026, -11.191, 1.192)
pt3dadd(35.5, 111.019, -11.248, 1.244)
pt3dadd(35.397, 111.008, -11.295, 1.29)
pt3dadd(35.282, 110.985, -11.317, 1.328)
pt3dadd(35.168, 110.966, -11.34, 1.364)
pt3dadd(35.054, 110.963, -11.372, 1.4)
pt3dadd(34.943, 110.952, -11.4, 1.434)
pt3dadd(34.862, 110.864, -11.4, 1.47)
pt3dadd(34.781, 110.775, -11.4, 1.504)
pt3dadd(34.73, 110.667, -11.4, 1.55)
pt3dadd(34.665, 110.577, -11.411, 1.588)
pt3dadd(34.563, 110.528, -11.445, 1.606)
pt3dadd(34.461, 110.479, -11.479, 1.622)
pt3dadd(34.359, 110.43, -11.512, 1.64)
pt3dadd(34.257, 110.382, -11.546, 1.658)
pt3dadd(34.152, 110.346, -11.585, 1.67)
pt3dadd(34.048, 110.311, -11.624, 1.682)
pt3dadd(33.943, 110.276, -11.663, 1.692)
pt3dadd(33.838, 110.241, -11.701, 1.704)
pt3dadd(33.746, 110.189, -11.748, 1.708)
pt3dadd(33.659, 110.132, -11.797, 1.708)
pt3dadd(33.571, 110.075, -11.846, 1.708)
pt3dadd(33.484, 110.017, -11.895, 1.708)
pt3dadd(33.391, 109.968, -11.944, 1.7)
pt3dadd(33.297, 109.923, -11.993, 1.688)
pt3dadd(33.202, 109.877, -12.041, 1.674)
pt3dadd(33.108, 109.832, -12.089, 1.662)
pt3dadd(33.018, 109.78, -12.139, 1.642)
pt3dadd(32.933, 109.722, -12.191, 1.612)
pt3dadd(32.837, 109.722, -12.246, 1.598)
pt3dadd(32.739, 109.736, -12.303, 1.586)
pt3dadd(32.636, 109.722, -12.35, 1.582)
pt3dadd(32.531, 109.693, -12.392, 1.582)
pt3dadd(32.416, 109.669, -12.4, 1.582)
pt3dadd(32.298, 109.646, -12.4, 1.582)
pt3dadd(32.204, 109.591, -12.411, 1.59)
pt3dadd(32.135, 109.499, -12.439, 1.614)
pt3dadd(32.049, 109.428, -12.476, 1.656)
pt3dadd(31.957, 109.363, -12.506, 1.712)
pt3dadd(31.852, 109.308, -12.524, 1.788)
pt3dadd(31.746, 109.281, -12.553, 1.868)
pt3dadd(31.641, 109.289, -12.6, 1.95)
pt3dadd(31.535, 109.3, -12.646, 2.032)
pt3dadd(31.429, 109.315, -12.691, 2.11)
pt3dadd(31.322, 109.329, -12.735, 2.188)
pt3dadd(31.212, 109.335, -12.774, 2.24)
pt3dadd(31.101, 109.333, -12.813, 2.25)
pt3dadd(30.992, 109.326, -12.853, 2.234)
pt3dadd(30.882, 109.318, -12.893, 2.218)
pt3dadd(30.772, 109.311, -12.934, 2.202)
pt3dadd(30.663, 109.303, -12.974, 2.186)
pt3dadd(30.558, 109.295, -13.021, 2.146)
pt3dadd(30.453, 109.286, -13.07, 2.102)
pt3dadd(30.349, 109.277, -13.119, 2.058)
pt3dadd(30.244, 109.268, -13.167, 2.014)
pt3dadd(30.137, 109.25, -13.202, 1.968)
pt3dadd(30.022, 109.216, -13.209, 1.918)
pt3dadd(29.907, 109.181, -13.215, 1.868)
pt3dadd(29.793, 109.146, -13.222, 1.818)
pt3dadd(29.678, 109.112, -13.229, 1.768)
pt3dadd(29.566, 109.075, -13.243, 1.72)
pt3dadd(29.461, 109.034, -13.277, 1.68)
pt3dadd(29.356, 108.993, -13.31, 1.64)
pt3dadd(29.25, 108.951, -13.343, 1.598)
pt3dadd(29.145, 108.91, -13.377, 1.558)
pt3dadd(29.031, 108.888, -13.403, 1.516)
pt3dadd(28.917, 108.868, -13.429, 1.474)
pt3dadd(28.803, 108.847, -13.455, 1.43)
pt3dadd(28.689, 108.826, -13.48, 1.388)
pt3dadd(28.578, 108.803, -13.511, 1.344)
pt3dadd(28.476, 108.773, -13.558, 1.298)
pt3dadd(28.375, 108.743, -13.605, 1.25)
pt3dadd(28.273, 108.713, -13.651, 1.204)
pt3dadd(28.171, 108.683, -13.698, 1.156)
pt3dadd(28.06, 108.695, -13.734, 1.132)
pt3dadd(27.948, 108.708, -13.769, 1.108)
pt3dadd(27.837, 108.721, -13.805, 1.086)
pt3dadd(27.726, 108.734, -13.84, 1.062)
pt3dadd(27.614, 108.748, -13.875, 1.038)
pt3dadd(27.505, 108.748, -13.915, 1.036)
pt3dadd(27.397, 108.74, -13.958, 1.048)
pt3dadd(27.288, 108.732, -14.001, 1.058)
pt3dadd(27.18, 108.724, -14.044, 1.068)
pt3dadd(27.072, 108.716, -14.087, 1.08)
pt3dadd(26.965, 108.668, -14.105, 1.128)
pt3dadd(26.858, 108.618, -14.122, 1.176)
pt3dadd(26.751, 108.568, -14.139, 1.226)
pt3dadd(26.643, 108.518, -14.156, 1.276)
pt3dadd(26.554, 108.449, -14.176, 1.326)
pt3dadd(26.493, 108.35, -14.198, 1.376)
pt3dadd(26.417, 108.274, -14.231, 1.39)
pt3dadd(26.321, 108.235, -14.281, 1.346)
pt3dadd(26.217, 108.229, -14.324, 1.256)
pt3dadd(26.107, 108.245, -14.363, 1.136)
pt3dadd(25.995, 108.261, -14.392, 1.034)
pt3dadd(25.876, 108.277, -14.399, 0.97)
pt3dadd(25.758, 108.294, -14.407, 0.908)
pt3dadd(25.654, 108.294, -14.446, 0.87)
pt3dadd(25.562, 108.282, -14.509, 0.854)
pt3dadd(25.47, 108.269, -14.573, 0.838)
pt3dadd(25.391, 108.237, -14.639, 0.84)
pt3dadd(25.329, 108.177, -14.708, 0.868)
pt3dadd(25.291, 108.133, -14.793, 0.878)
pt3dadd(25.205, 108.123, -14.86, 0.874)
pt3dadd(25.113, 108.115, -14.924, 0.868)
pt3dadd(25.022, 108.107, -14.989, 0.862)
pt3dadd(24.931, 108.098, -15.054, 0.856)
pt3dadd(24.828, 108.088, -15.099, 0.856)
pt3dadd(24.712, 108.074, -15.122, 0.862)
pt3dadd(24.596, 108.061, -15.144, 0.866)
pt3dadd(24.48, 108.047, -15.166, 0.872)
pt3dadd(24.364, 108.033, -15.189, 0.876)
pt3dadd(24.255, 108.028, -15.227, 0.89)
pt3dadd(24.154, 108.031, -15.28, 0.91)
pt3dadd(24.052, 108.034, -15.334, 0.932)
pt3dadd(23.951, 108.037, -15.388, 0.952)
pt3dadd(23.85, 108.04, -15.441, 0.974)
pt3dadd(23.74, 108.034, -15.479, 0.994)
pt3dadd(23.627, 108.025, -15.512, 1.016)
pt3dadd(23.513, 108.015, -15.544, 1.036)
pt3dadd(23.4, 108.006, -15.576, 1.058)
pt3dadd(23.287, 107.997, -15.608, 1.078)
pt3dadd(23.172, 107.973, -15.628, 1.084)
pt3dadd(23.057, 107.947, -15.646, 1.09)
pt3dadd(22.942, 107.921, -15.665, 1.094)
pt3dadd(22.827, 107.896, -15.683, 1.1)
pt3dadd(22.711, 107.872, -15.702, 1.104)
pt3dadd(22.594, 107.868, -15.723, 1.084)
pt3dadd(22.477, 107.863, -15.745, 1.064)
pt3dadd(22.36, 107.859, -15.766, 1.046)
pt3dadd(22.243, 107.855, -15.787, 1.026)
pt3dadd(22.126, 107.851, -15.809, 1.006)
pt3dadd(22.022, 107.817, -15.849, 0.968)
pt3dadd(21.92, 107.781, -15.892, 0.93)
pt3dadd(21.809, 107.778, -15.929, 0.942)
pt3dadd(21.698, 107.773, -15.967, 0.954)
pt3dadd(21.592, 107.725, -15.99, 1.06)
pt3dadd(21.492, 107.671, -16.016, 1.166)
pt3dadd(21.451, 107.573, -16.062, 1.284)
pt3dadd(21.401, 107.49, -16.11, 1.39)
pt3dadd(21.308, 107.491, -16.174, 1.442)
pt3dadd(21.216, 107.492, -16.237, 1.494)
pt3dadd(21.123, 107.493, -16.3, 1.548)
pt3dadd(21.057, 107.5, -16.382, 1.576)
pt3dadd(20.997, 107.509, -16.469, 1.598)
pt3dadd(20.909, 107.508, -16.532, 1.558)
pt3dadd(20.798, 107.501, -16.57, 1.52)
pt3dadd(20.687, 107.494, -16.607, 1.484)
pt3dadd(20.576, 107.487, -16.644, 1.448)
pt3dadd(20.465, 107.48, -16.682, 1.41)
}
}
proc shape3d_95() {
apic[39] { pt3dadd(20.355, 107.469, -16.721, 1.372)
pt3dadd(20.254, 107.439, -16.768, 1.324)
pt3dadd(20.152, 107.409, -16.815, 1.278)
pt3dadd(20.05, 107.379, -16.861, 1.23)
pt3dadd(19.948, 107.349, -16.908, 1.184)
pt3dadd(19.895, 107.329, -16.995, 1.11)
pt3dadd(19.845, 107.309, -17.084, 1.034)
pt3dadd(19.759, 107.319, -17.153, 1.008)
pt3dadd(19.672, 107.331, -17.221, 0.984)
pt3dadd(19.563, 107.331, -17.259, 0.98)
pt3dadd(19.449, 107.328, -17.29, 0.98)
pt3dadd(19.335, 107.301, -17.3, 0.986)
pt3dadd(19.222, 107.263, -17.3, 0.998)
pt3dadd(19.108, 107.225, -17.3, 1.012)
pt3dadd(18.994, 107.186, -17.3, 1.028)
pt3dadd(18.879, 107.154, -17.3, 1.03)
pt3dadd(18.763, 107.123, -17.3, 1.03)
pt3dadd(18.647, 107.091, -17.3, 1.03)
pt3dadd(18.531, 107.059, -17.3, 1.03)
pt3dadd(18.416, 107.027, -17.3, 1.03)
pt3dadd(18.299, 107.001, -17.3, 1.01)
pt3dadd(18.181, 106.977, -17.3, 0.978)
pt3dadd(18.063, 106.959, -17.3, 0.948)
pt3dadd(17.943, 106.956, -17.3, 0.93)
pt3dadd(17.823, 106.952, -17.3, 0.91)
pt3dadd(17.725, 106.896, -17.312, 0.914)
pt3dadd(17.637, 106.818, -17.329, 0.926)
pt3dadd(17.581, 106.748, -17.389, 0.992)
pt3dadd(17.535, 106.68, -17.463, 1.076)
pt3dadd(17.422, 106.675, -17.488, 1.19)
pt3dadd(17.33, 106.63, -17.509, 1.272)
pt3dadd(17.269, 106.529, -17.531, 1.31)
pt3dadd(17.209, 106.429, -17.552, 1.346)
pt3dadd(17.149, 106.328, -17.573, 1.384)
pt3dadd(17.089, 106.227, -17.595, 1.422)
pt3dadd(17.023, 106.128, -17.6, 1.464)
pt3dadd(16.955, 106.029, -17.6, 1.51)
pt3dadd(16.887, 105.93, -17.6, 1.532)
pt3dadd(16.819, 105.831, -17.6, 1.532)
pt3dadd(16.745, 105.737, -17.6, 1.526)
pt3dadd(16.658, 105.655, -17.6, 1.502)
pt3dadd(16.567, 105.58, -17.6, 1.476)
pt3dadd(16.451, 105.549, -17.6, 1.444)
pt3dadd(16.335, 105.518, -17.6, 1.41)
pt3dadd(16.234, 105.522, -17.649, 1.406)
pt3dadd(16.136, 105.532, -17.705, 1.406)
pt3dadd(16.038, 105.542, -17.762, 1.406)
pt3dadd(15.937, 105.545, -17.816, 1.406)
pt3dadd(15.831, 105.532, -17.861, 1.406)
pt3dadd(15.738, 105.488, -17.896, 1.392)
pt3dadd(15.644, 105.451, -17.939, 1.368)
pt3dadd(15.544, 105.435, -17.992, 1.352)
pt3dadd(15.443, 105.418, -18.045, 1.334)
pt3dadd(15.343, 105.402, -18.098, 1.318)
pt3dadd(15.237, 105.386, -18.138, 1.298)
pt3dadd(15.118, 105.372, -18.15, 1.274)
}
dend_5[12] {pt3dclear()
pt3dadd(15.118, 105.372, -18.15, 1.274)
pt3dadd(15, 105.357, -18.163, 1.25)
pt3dadd(14.882, 105.343, -18.176, 1.226)
pt3dadd(14.764, 105.329, -18.189, 1.202)
pt3dadd(14.647, 105.311, -18.2, 1.18)
pt3dadd(14.535, 105.266, -18.2, 1.174)
pt3dadd(14.424, 105.221, -18.2, 1.17)
pt3dadd(14.313, 105.176, -18.2, 1.164)
pt3dadd(14.201, 105.131, -18.2, 1.16)
pt3dadd(14.09, 105.086, -18.2, 1.156)
}
dend_5[13] {pt3dclear()
pt3dadd(14.09, 105.086, -18.2, 1.156)
pt3dadd(13.996, 105.078, -18.229, 1.16)
pt3dadd(13.884, 105.068, -18.265, 1.164)
pt3dadd(13.772, 105.059, -18.3, 1.17)
pt3dadd(13.66, 105.049, -18.335, 1.176)
pt3dadd(13.548, 105.041, -18.369, 1.182)
pt3dadd(13.432, 105.05, -18.393, 1.196)
pt3dadd(13.316, 105.059, -18.417, 1.208)
pt3dadd(13.2, 105.068, -18.441, 1.222)
pt3dadd(13.083, 105.077, -18.466, 1.236)
pt3dadd(12.967, 105.086, -18.49, 1.25)
pt3dadd(12.853, 105.072, -18.512, 1.252)
pt3dadd(12.74, 105.042, -18.534, 1.248)
pt3dadd(12.626, 105.012, -18.555, 1.242)
pt3dadd(12.513, 104.982, -18.576, 1.236)
pt3dadd(12.4, 104.952, -18.598, 1.232)
pt3dadd(12.315, 104.87, -18.6, 1.2)
pt3dadd(12.234, 104.781, -18.6, 1.164)
pt3dadd(12.145, 104.712, -18.628, 1.134)
pt3dadd(12.053, 104.649, -18.665, 1.106)
pt3dadd(11.936, 104.662, -18.679, 1.132)
pt3dadd(11.819, 104.679, -18.691, 1.16)
pt3dadd(11.702, 104.695, -18.707, 1.192)
pt3dadd(11.587, 104.711, -18.735, 1.232)
pt3dadd(11.473, 104.727, -18.762, 1.274)
pt3dadd(11.365, 104.742, -18.804, 1.308)
pt3dadd(11.263, 104.756, -18.854, 1.328)
pt3dadd(11.169, 104.766, -18.916, 1.318)
pt3dadd(11.074, 104.777, -18.976, 1.306)
pt3dadd(10.98, 104.787, -19.038, 1.296)
pt3dadd(10.885, 104.798, -19.099, 1.286)
pt3dadd(10.791, 104.786, -19.155, 1.278)
pt3dadd(10.697, 104.743, -19.207, 1.272)
pt3dadd(10.603, 104.701, -19.258, 1.266)
pt3dadd(10.509, 104.659, -19.309, 1.26)
pt3dadd(10.409, 104.632, -19.353, 1.258)
pt3dadd(10.294, 104.641, -19.382, 1.268)
pt3dadd(10.18, 104.649, -19.412, 1.278)
pt3dadd(10.065, 104.658, -19.441, 1.286)
pt3dadd(9.951, 104.666, -19.47, 1.296)
pt3dadd(9.836, 104.675, -19.499, 1.306)
pt3dadd(9.722, 104.65, -19.52, 1.332)
pt3dadd(9.608, 104.623, -19.541, 1.358)
pt3dadd(9.493, 104.597, -19.562, 1.384)
pt3dadd(9.379, 104.57, -19.583, 1.41)
pt3dadd(9.264, 104.553, -19.605, 1.436)
pt3dadd(9.149, 104.569, -19.628, 1.458)
pt3dadd(9.033, 104.585, -19.651, 1.478)
pt3dadd(8.917, 104.602, -19.674, 1.5)
pt3dadd(8.802, 104.618, -19.696, 1.522)
pt3dadd(8.686, 104.634, -19.719, 1.544)
pt3dadd(8.572, 104.65, -19.748, 1.562)
pt3dadd(8.462, 104.666, -19.785, 1.576)
pt3dadd(8.352, 104.681, -19.822, 1.59)
pt3dadd(8.242, 104.697, -19.859, 1.604)
pt3dadd(8.131, 104.712, -19.896, 1.618)
pt3dadd(8.021, 104.728, -19.933, 1.632)
pt3dadd(7.92, 104.742, -19.986, 1.638)
pt3dadd(7.819, 104.756, -20.038, 1.642)
pt3dadd(7.717, 104.77, -20.091, 1.646)
pt3dadd(7.616, 104.784, -20.143, 1.652)
pt3dadd(7.515, 104.799, -20.195, 1.656)
pt3dadd(7.398, 104.796, -20.217, 1.652)
pt3dadd(7.281, 104.793, -20.236, 1.648)
pt3dadd(7.163, 104.789, -20.255, 1.644)
pt3dadd(7.045, 104.785, -20.274, 1.638)
pt3dadd(6.927, 104.781, -20.293, 1.634)
pt3dadd(6.814, 104.788, -20.324, 1.624)
pt3dadd(6.704, 104.801, -20.362, 1.608)
pt3dadd(6.594, 104.814, -20.4, 1.594)
pt3dadd(6.483, 104.827, -20.437, 1.58)
pt3dadd(6.373, 104.84, -20.475, 1.566)
pt3dadd(6.264, 104.853, -20.515, 1.552)
pt3dadd(6.158, 104.868, -20.56, 1.538)
pt3dadd(6.052, 104.883, -20.605, 1.524)
pt3dadd(5.945, 104.898, -20.65, 1.508)
pt3dadd(5.839, 104.913, -20.694, 1.494)
pt3dadd(5.733, 104.928, -20.739, 1.48)
pt3dadd(5.626, 104.943, -20.784, 1.466)
pt3dadd(5.52, 104.958, -20.829, 1.45)
pt3dadd(5.414, 104.973, -20.873, 1.436)
pt3dadd(5.308, 104.988, -20.918, 1.422)
pt3dadd(5.201, 105.003, -20.963, 1.408)
pt3dadd(5.088, 105.019, -20.992, 1.358)
pt3dadd(4.973, 105.035, -21.019, 1.308)
pt3dadd(4.863, 105.05, -21.055, 1.27)
pt3dadd(4.757, 105.065, -21.1, 1.248)
pt3dadd(4.649, 105.076, -21.141, 1.236)
pt3dadd(4.535, 105.073, -21.172, 1.26)
pt3dadd(4.424, 105.06, -21.2, 1.284)
pt3dadd(4.343, 104.972, -21.2, 1.32)
pt3dadd(4.262, 104.883, -21.2, 1.354)
pt3dadd(4.204, 104.778, -21.203, 1.374)
pt3dadd(4.147, 104.673, -21.206, 1.394)
pt3dadd(4.089, 104.568, -21.209, 1.414)
pt3dadd(4.027, 104.478, -21.221, 1.438)
pt3dadd(3.934, 104.47, -21.285, 1.476)
pt3dadd(3.856, 104.465, -21.356, 1.522)
pt3dadd(3.826, 104.469, -21.453, 1.556)
pt3dadd(3.8, 104.473, -21.55, 1.556)
pt3dadd(3.774, 104.476, -21.648, 1.556)
pt3dadd(3.666, 104.455, -21.676, 1.534)
pt3dadd(3.551, 104.432, -21.697, 1.51)
pt3dadd(3.437, 104.396, -21.7, 1.478)
pt3dadd(3.323, 104.358, -21.7, 1.444)
pt3dadd(3.206, 104.345, -21.7, 1.408)
pt3dadd(3.086, 104.346, -21.7, 1.37)
pt3dadd(2.966, 104.348, -21.7, 1.332)
pt3dadd(2.847, 104.364, -21.7, 1.284)
pt3dadd(2.728, 104.381, -21.7, 1.234)
pt3dadd(2.611, 104.355, -21.7, 1.208)
pt3dadd(2.495, 104.326, -21.7, 1.186)
pt3dadd(2.378, 104.298, -21.7, 1.162)
pt3dadd(2.262, 104.269, -21.7, 1.138)
pt3dadd(2.145, 104.24, -21.7, 1.116)
pt3dadd(2.029, 104.228, -21.714, 1.096)
pt3dadd(1.913, 104.229, -21.74, 1.082)
pt3dadd(1.797, 104.23, -21.765, 1.068)
pt3dadd(1.681, 104.231, -21.791, 1.054)
pt3dadd(1.565, 104.231, -21.816, 1.04)
pt3dadd(1.448, 104.228, -21.838, 1.024)
pt3dadd(1.33, 104.217, -21.85, 1.01)
pt3dadd(1.211, 104.205, -21.863, 0.996)
pt3dadd(1.092, 104.194, -21.875, 0.982)
pt3dadd(0.974, 104.183, -21.888, 0.968)
pt3dadd(0.855, 104.172, -21.9, 0.954)
pt3dadd(0.735, 104.168, -21.9, 0.944)
pt3dadd(0.616, 104.164, -21.9, 0.934)
pt3dadd(0.51, 104.125, -21.9, 0.93)
pt3dadd(0.423, 104.043, -21.9, 0.93)
pt3dadd(0.334, 103.968, -21.914, 0.934)
pt3dadd(0.242, 103.913, -21.958, 0.948)
pt3dadd(0.171, 103.881, -22.027, 0.968)
pt3dadd(0.116, 103.869, -22.115, 0.992)
}
}
proc shape3d_96() {
dend_5[13] { pt3dadd(0.029, 103.844, -22.163, 1.004)
pt3dadd(-0.085, 103.81, -22.175, 1.004)
pt3dadd(-0.199, 103.775, -22.188, 1.004)
pt3dadd(-0.312, 103.739, -22.201, 1.004)
pt3dadd(-0.417, 103.684, -22.219, 1.004)
pt3dadd(-0.522, 103.636, -22.24, 0.998)
pt3dadd(-0.629, 103.63, -22.283, 0.982)
pt3dadd(-0.742, 103.624, -22.318, 0.986)
pt3dadd(-0.854, 103.617, -22.352, 0.992)
pt3dadd(-0.967, 103.611, -22.387, 0.998)
pt3dadd(-1.079, 103.604, -22.421, 1.002)
pt3dadd(-1.192, 103.611, -22.453, 1.004)
pt3dadd(-1.306, 103.624, -22.484, 1.004)
pt3dadd(-1.419, 103.638, -22.514, 1.004)
pt3dadd(-1.533, 103.651, -22.544, 1.004)
pt3dadd(-1.646, 103.665, -22.575, 1.004)
pt3dadd(-1.76, 103.679, -22.602, 1.002)
pt3dadd(-1.878, 103.695, -22.615, 0.982)
pt3dadd(-1.996, 103.712, -22.627, 0.964)
pt3dadd(-2.11, 103.707, -22.65, 0.928)
pt3dadd(-2.219, 103.681, -22.685, 0.876)
pt3dadd(-2.322, 103.665, -22.733, 0.84)
pt3dadd(-2.42, 103.658, -22.79, 0.814)
pt3dadd(-2.492, 103.648, -22.866, 0.812)
pt3dadd(-2.547, 103.635, -22.955, 0.824)
pt3dadd(-2.634, 103.599, -22.993, 0.842)
pt3dadd(-2.743, 103.548, -22.999, 0.864)
pt3dadd(-2.851, 103.498, -23.006, 0.886)
pt3dadd(-2.953, 103.441, -23.018, 0.908)
pt3dadd(-3.017, 103.354, -23.06, 0.936)
pt3dadd(-3.099, 103.289, -23.094, 0.978)
pt3dadd(-3.21, 103.272, -23.126, 1.012)
pt3dadd(-3.318, 103.257, -23.167, 1.022)
pt3dadd(-3.427, 103.243, -23.209, 1.034)
pt3dadd(-3.535, 103.229, -23.25, 1.044)
pt3dadd(-3.643, 103.213, -23.291, 1.056)
pt3dadd(-3.75, 103.176, -23.324, 1.086)
pt3dadd(-3.857, 103.138, -23.357, 1.114)
pt3dadd(-3.964, 103.101, -23.39, 1.142)
pt3dadd(-4.071, 103.063, -23.423, 1.172)
pt3dadd(-4.168, 103.001, -23.444, 1.196)
pt3dadd(-4.262, 102.928, -23.458, 1.218)
pt3dadd(-4.355, 102.855, -23.473, 1.24)
pt3dadd(-4.449, 102.782, -23.488, 1.262)
pt3dadd(-4.538, 102.706, -23.505, 1.282)
pt3dadd(-4.607, 102.614, -23.535, 1.288)
pt3dadd(-4.675, 102.522, -23.566, 1.294)
pt3dadd(-4.743, 102.431, -23.596, 1.298)
pt3dadd(-4.811, 102.339, -23.627, 1.304)
pt3dadd(-4.842, 102.237, -23.67, 1.25)
pt3dadd(-4.863, 102.133, -23.717, 1.18)
pt3dadd(-4.907, 102.036, -23.76, 1.104)
pt3dadd(-4.963, 101.943, -23.802, 1.022)
pt3dadd(-5.037, 101.871, -23.851, 0.982)
pt3dadd(-5.117, 101.806, -23.902, 0.958)
pt3dadd(-5.218, 101.776, -23.951, 1.068)
pt3dadd(-5.322, 101.756, -23.99, 1.19)
pt3dadd(-5.441, 101.772, -23.996, 1.348)
pt3dadd(-5.559, 101.789, -24.006, 1.472)
pt3dadd(-5.675, 101.805, -24.025, 1.524)
pt3dadd(-5.792, 101.822, -24.043, 1.574)
pt3dadd(-5.909, 101.838, -24.062, 1.624)
pt3dadd(-6.026, 101.855, -24.08, 1.674)
pt3dadd(-6.142, 101.871, -24.099, 1.724)
pt3dadd(-6.253, 101.886, -24.13, 1.762)
pt3dadd(-6.35, 101.9, -24.188, 1.772)
pt3dadd(-6.447, 101.914, -24.245, 1.782)
pt3dadd(-6.544, 101.928, -24.303, 1.792)
pt3dadd(-6.642, 101.941, -24.36, 1.8)
pt3dadd(-6.743, 101.955, -24.411, 1.8)
pt3dadd(-6.853, 101.971, -24.449, 1.772)
pt3dadd(-6.963, 101.986, -24.486, 1.744)
pt3dadd(-7.074, 102.002, -24.523, 1.716)
pt3dadd(-7.184, 102.017, -24.56, 1.688)
pt3dadd(-7.295, 102.033, -24.597, 1.66)
pt3dadd(-7.411, 102.049, -24.615, 1.612)
pt3dadd(-7.528, 102.066, -24.632, 1.562)
pt3dadd(-7.646, 102.082, -24.648, 1.512)
pt3dadd(-7.763, 102.099, -24.665, 1.462)
pt3dadd(-7.88, 102.115, -24.681, 1.414)
pt3dadd(-7.997, 102.132, -24.697, 1.364)
pt3dadd(-8.108, 102.141, -24.733, 1.314)
pt3dadd(-8.219, 102.148, -24.772, 1.266)
pt3dadd(-8.329, 102.156, -24.812, 1.216)
pt3dadd(-8.439, 102.163, -24.851, 1.166)
pt3dadd(-8.549, 102.171, -24.89, 1.118)
pt3dadd(-8.666, 102.164, -24.9, 1.082)
pt3dadd(-8.785, 102.153, -24.9, 1.052)
pt3dadd(-8.905, 102.142, -24.9, 1.022)
pt3dadd(-9.024, 102.131, -24.9, 0.992)
pt3dadd(-9.144, 102.12, -24.9, 0.962)
pt3dadd(-9.263, 102.11, -24.9, 0.932)
pt3dadd(-9.382, 102.093, -24.9, 0.882)
pt3dadd(-9.501, 102.077, -24.9, 0.924)
pt3dadd(-9.617, 102.049, -24.9, 0.938)
pt3dadd(-9.731, 102.011, -24.9, 0.852)
pt3dadd(-9.829, 101.953, -24.924, 0.794)
pt3dadd(-9.87, 101.874, -24.987, 0.926)
pt3dadd(-9.878, 101.817, -25.073, 1.08)
pt3dadd(-9.881, 101.795, -25.17, 1.164)
pt3dadd(-9.883, 101.78, -25.27, 1.2)
pt3dadd(-9.891, 101.732, -25.359, 1.208)
pt3dadd(-9.942, 101.637, -25.396, 1.262)
pt3dadd(-10.046, 101.585, -25.4, 1.306)
pt3dadd(-10.165, 101.588, -25.4, 1.272)
pt3dadd(-10.284, 101.605, -25.4, 1.198)
pt3dadd(-10.403, 101.622, -25.4, 1.12)
pt3dadd(-10.522, 101.638, -25.4, 1.016)
pt3dadd(-10.64, 101.655, -25.403, 0.898)
pt3dadd(-10.752, 101.671, -25.437, 0.846)
pt3dadd(-10.864, 101.686, -25.47, 0.792)
pt3dadd(-10.958, 101.7, -25.529, 0.76)
pt3dadd(-11.045, 101.712, -25.597, 0.736)
pt3dadd(-11.136, 101.724, -25.661, 0.728)
pt3dadd(-11.248, 101.715, -25.692, 0.738)
pt3dadd(-11.363, 101.703, -25.719, 0.748)
pt3dadd(-11.478, 101.692, -25.746, 0.758)
pt3dadd(-11.593, 101.681, -25.774, 0.768)
pt3dadd(-11.708, 101.668, -25.802, 0.78)
pt3dadd(-11.813, 101.63, -25.837, 0.802)
pt3dadd(-11.918, 101.592, -25.874, 0.826)
pt3dadd(-12.023, 101.553, -25.91, 0.85)
pt3dadd(-12.128, 101.515, -25.946, 0.872)
pt3dadd(-12.237, 101.471, -25.962, 0.91)
pt3dadd(-12.347, 101.425, -25.972, 0.952)
pt3dadd(-12.457, 101.379, -25.981, 0.992)
pt3dadd(-12.568, 101.333, -25.99, 1.034)
pt3dadd(-12.678, 101.286, -25.999, 1.076)
pt3dadd(-12.76, 101.202, -26.013, 1.134)
pt3dadd(-12.84, 101.113, -26.028, 1.194)
pt3dadd(-12.919, 101.025, -26.042, 1.254)
pt3dadd(-12.999, 100.937, -26.057, 1.314)
pt3dadd(-13.08, 100.861, -26.085, 1.396)
pt3dadd(-13.164, 100.811, -26.142, 1.526)
pt3dadd(-13.241, 100.751, -26.2, 1.632)
pt3dadd(-13.313, 100.683, -26.257, 1.718)
pt3dadd(-13.399, 100.638, -26.314, 1.756)
pt3dadd(-13.491, 100.601, -26.368, 1.784)
pt3dadd(-13.608, 100.618, -26.385, 1.794)
pt3dadd(-13.725, 100.634, -26.402, 1.804)
pt3dadd(-13.827, 100.649, -26.445, 1.808)
pt3dadd(-13.91, 100.66, -26.516, 1.806)
pt3dadd(-13.977, 100.67, -26.599, 1.784)
pt3dadd(-14.044, 100.679, -26.681, 1.76)
pt3dadd(-14.142, 100.687, -26.737, 1.704)
pt3dadd(-14.244, 100.695, -26.79, 1.644)
pt3dadd(-14.336, 100.663, -26.846, 1.528)
pt3dadd(-14.427, 100.625, -26.9, 1.402)
pt3dadd(-14.547, 100.637, -26.9, 1.316)
pt3dadd(-14.666, 100.649, -26.9, 1.228)
pt3dadd(-14.786, 100.658, -26.9, 1.134)
pt3dadd(-14.905, 100.651, -26.9, 1.002)
pt3dadd(-15.02, 100.634, -26.916, 0.916)
pt3dadd(-15.128, 100.603, -26.951, 0.888)
pt3dadd(-15.236, 100.573, -26.987, 0.86)
pt3dadd(-15.344, 100.542, -27.022, 0.83)
pt3dadd(-15.453, 100.513, -27.056, 0.804)
pt3dadd(-15.571, 100.528, -27.069, 0.812)
pt3dadd(-15.689, 100.542, -27.081, 0.82)
pt3dadd(-15.807, 100.557, -27.094, 0.828)
pt3dadd(-15.925, 100.571, -27.107, 0.836)
pt3dadd(-16.043, 100.585, -27.119, 0.844)
pt3dadd(-16.161, 100.6, -27.132, 0.852)
pt3dadd(-16.276, 100.596, -27.161, 0.88)
pt3dadd(-16.389, 100.59, -27.193, 0.912)
pt3dadd(-16.503, 100.584, -27.225, 0.942)
pt3dadd(-16.617, 100.578, -27.257, 0.974)
pt3dadd(-16.73, 100.572, -27.289, 1.004)
pt3dadd(-16.848, 100.581, -27.306, 1.034)
pt3dadd(-16.966, 100.591, -27.323, 1.064)
pt3dadd(-17.083, 100.601, -27.341, 1.096)
pt3dadd(-17.201, 100.61, -27.358, 1.126)
pt3dadd(-17.319, 100.62, -27.375, 1.156)
pt3dadd(-17.437, 100.628, -27.389, 1.182)
pt3dadd(-17.557, 100.632, -27.391, 1.186)
pt3dadd(-17.677, 100.636, -27.393, 1.188)
pt3dadd(-17.797, 100.64, -27.395, 1.194)
pt3dadd(-17.917, 100.644, -27.396, 1.198)
pt3dadd(-18.037, 100.648, -27.398, 1.202)
pt3dadd(-18.157, 100.652, -27.4, 1.206)
pt3dadd(-18.274, 100.626, -27.402, 1.196)
pt3dadd(-18.391, 100.6, -27.404, 1.186)
pt3dadd(-18.508, 100.574, -27.406, 1.178)
pt3dadd(-18.625, 100.547, -27.408, 1.168)
pt3dadd(-18.742, 100.521, -27.41, 1.158)
pt3dadd(-18.854, 100.519, -27.436, 1.146)
pt3dadd(-18.963, 100.531, -27.477, 1.132)
pt3dadd(-19.072, 100.544, -27.517, 1.118)
pt3dadd(-19.181, 100.557, -27.557, 1.102)
pt3dadd(-19.29, 100.57, -27.598, 1.088)
pt3dadd(-19.401, 100.565, -27.629, 1.08)
pt3dadd(-19.515, 100.533, -27.645, 1.08)
pt3dadd(-19.629, 100.501, -27.661, 1.08)
pt3dadd(-19.743, 100.47, -27.677, 1.08)
pt3dadd(-19.858, 100.438, -27.694, 1.08)
pt3dadd(-19.972, 100.411, -27.712, 1.09)
pt3dadd(-20.087, 100.389, -27.733, 1.104)
pt3dadd(-20.202, 100.365, -27.754, 1.12)
pt3dadd(-20.318, 100.343, -27.775, 1.136)
pt3dadd(-20.433, 100.32, -27.796, 1.152)
}
}
proc shape3d_97() {
dend_5[13] { pt3dadd(-20.521, 100.245, -27.8, 1.182)
pt3dadd(-20.602, 100.157, -27.8, 1.218)
pt3dadd(-20.704, 100.105, -27.81, 1.23)
pt3dadd(-20.819, 100.076, -27.826, 1.23)
pt3dadd(-20.929, 100.071, -27.858, 1.206)
pt3dadd(-21.035, 100.086, -27.903, 1.16)
pt3dadd(-21.144, 100.102, -27.942, 1.114)
pt3dadd(-21.258, 100.118, -27.97, 1.062)
pt3dadd(-21.373, 100.134, -27.997, 1.01)
pt3dadd(-21.489, 100.15, -28.018, 0.992)
pt3dadd(-21.606, 100.167, -28.035, 0.982)
pt3dadd(-21.724, 100.183, -28.046, 0.994)
pt3dadd(-21.842, 100.2, -28.056, 1.006)
pt3dadd(-21.96, 100.216, -28.067, 1.018)
pt3dadd(-22.079, 100.233, -28.077, 1.028)
pt3dadd(-22.197, 100.25, -28.088, 1.04)
pt3dadd(-22.315, 100.266, -28.098, 1.052)
pt3dadd(-22.432, 100.283, -28.115, 1.068)
pt3dadd(-22.549, 100.299, -28.134, 1.086)
pt3dadd(-22.665, 100.315, -28.153, 1.102)
pt3dadd(-22.782, 100.332, -28.171, 1.118)
pt3dadd(-22.899, 100.348, -28.19, 1.136)
pt3dadd(-23.016, 100.365, -28.208, 1.152)
pt3dadd(-23.128, 100.38, -28.24, 1.156)
pt3dadd(-23.24, 100.396, -28.275, 1.156)
pt3dadd(-23.351, 100.412, -28.309, 1.156)
pt3dadd(-23.463, 100.427, -28.344, 1.156)
pt3dadd(-23.574, 100.443, -28.379, 1.156)
pt3dadd(-23.685, 100.459, -28.414, 1.146)
pt3dadd(-23.797, 100.474, -28.448, 1.122)
pt3dadd(-23.908, 100.49, -28.483, 1.1)
pt3dadd(-24.02, 100.506, -28.517, 1.078)
pt3dadd(-24.131, 100.521, -28.552, 1.054)
pt3dadd(-24.243, 100.537, -28.587, 1.032)
pt3dadd(-24.337, 100.542, -28.648, 1)
pt3dadd(-24.43, 100.547, -28.711, 0.968)
pt3dadd(-24.523, 100.551, -28.775, 0.936)
pt3dadd(-24.615, 100.556, -28.838, 0.904)
pt3dadd(-24.707, 100.559, -28.902, 0.874)
pt3dadd(-24.794, 100.553, -28.971, 0.846)
pt3dadd(-24.881, 100.547, -29.039, 0.818)
pt3dadd(-24.969, 100.542, -29.108, 0.79)
pt3dadd(-25.055, 100.536, -29.177, 0.762)
pt3dadd(-25.149, 100.543, -29.238, 0.75)
pt3dadd(-25.246, 100.557, -29.296, 0.744)
pt3dadd(-25.344, 100.571, -29.353, 0.74)
pt3dadd(-25.441, 100.584, -29.411, 0.734)
pt3dadd(-25.538, 100.598, -29.468, 0.73)
pt3dadd(-25.644, 100.613, -29.511, 0.732)
pt3dadd(-25.756, 100.629, -29.546, 0.736)
pt3dadd(-25.867, 100.644, -29.58, 0.74)
pt3dadd(-25.979, 100.66, -29.615, 0.744)
pt3dadd(-26.09, 100.676, -29.65, 0.75)
pt3dadd(-26.201, 100.691, -29.685, 0.758)
pt3dadd(-26.31, 100.707, -29.725, 0.786)
pt3dadd(-26.419, 100.722, -29.765, 0.816)
pt3dadd(-26.529, 100.737, -29.804, 0.844)
pt3dadd(-26.638, 100.752, -29.844, 0.872)
pt3dadd(-26.747, 100.768, -29.883, 0.9)
pt3dadd(-26.863, 100.766, -29.907, 0.942)
pt3dadd(-26.98, 100.762, -29.929, 0.986)
pt3dadd(-27.097, 100.758, -29.95, 1.028)
pt3dadd(-27.214, 100.753, -29.972, 1.072)
pt3dadd(-27.331, 100.749, -29.993, 1.116)
pt3dadd(-27.443, 100.72, -30.017, 1.174)
pt3dadd(-27.551, 100.678, -30.041, 1.242)
pt3dadd(-27.66, 100.636, -30.066, 1.31)
pt3dadd(-27.768, 100.594, -30.091, 1.378)
pt3dadd(-27.878, 100.56, -30.114, 1.438)
pt3dadd(-27.997, 100.559, -30.131, 1.47)
pt3dadd(-28.115, 100.559, -30.147, 1.502)
pt3dadd(-28.233, 100.558, -30.163, 1.534)
pt3dadd(-28.352, 100.557, -30.179, 1.566)
pt3dadd(-28.47, 100.557, -30.196, 1.598)
pt3dadd(-28.574, 100.506, -30.2, 1.616)
pt3dadd(-28.672, 100.438, -30.2, 1.628)
pt3dadd(-28.782, 100.392, -30.2, 1.592)
pt3dadd(-28.898, 100.361, -30.2, 1.526)
pt3dadd(-29.014, 100.333, -30.2, 1.462)
pt3dadd(-29.132, 100.31, -30.2, 1.398)
pt3dadd(-29.249, 100.286, -30.2, 1.332)
pt3dadd(-29.367, 100.296, -30.217, 1.302)
pt3dadd(-29.485, 100.307, -30.235, 1.272)
pt3dadd(-29.566, 100.316, -30.289, 1.256)
pt3dadd(-29.609, 100.322, -30.383, 1.256)
pt3dadd(-29.721, 100.338, -30.406, 1.252)
pt3dadd(-29.837, 100.354, -30.425, 1.248)
pt3dadd(-29.954, 100.37, -30.443, 1.244)
pt3dadd(-30.071, 100.387, -30.462, 1.24)
pt3dadd(-30.188, 100.403, -30.48, 1.234)
pt3dadd(-30.304, 100.419, -30.499, 1.23)
pt3dadd(-30.424, 100.417, -30.502, 1.214)
pt3dadd(-30.544, 100.414, -30.504, 1.198)
pt3dadd(-30.664, 100.41, -30.505, 1.182)
pt3dadd(-30.784, 100.407, -30.507, 1.164)
pt3dadd(-30.904, 100.404, -30.509, 1.148)
pt3dadd(-31.024, 100.4, -30.511, 1.13)
pt3dadd(-31.135, 100.413, -30.545, 1.134)
pt3dadd(-31.247, 100.426, -30.58, 1.14)
pt3dadd(-31.359, 100.439, -30.616, 1.144)
pt3dadd(-31.47, 100.452, -30.651, 1.148)
pt3dadd(-31.581, 100.465, -30.686, 1.154)
pt3dadd(-31.696, 100.455, -30.7, 1.184)
pt3dadd(-31.814, 100.429, -30.7, 1.23)
pt3dadd(-31.931, 100.404, -30.7, 1.276)
pt3dadd(-32.048, 100.378, -30.7, 1.322)
pt3dadd(-32.166, 100.353, -30.7, 1.368)
pt3dadd(-32.283, 100.334, -30.703, 1.418)
pt3dadd(-32.4, 100.35, -30.722, 1.484)
pt3dadd(-32.516, 100.367, -30.74, 1.552)
pt3dadd(-32.633, 100.383, -30.759, 1.618)
pt3dadd(-32.75, 100.4, -30.777, 1.686)
pt3dadd(-32.867, 100.416, -30.796, 1.752)
pt3dadd(-32.981, 100.432, -30.819, 1.816)
pt3dadd(-33.088, 100.447, -30.864, 1.864)
pt3dadd(-33.194, 100.462, -30.908, 1.912)
pt3dadd(-33.3, 100.477, -30.953, 1.96)
pt3dadd(-33.407, 100.492, -30.998, 2.008)
pt3dadd(-33.513, 100.507, -31.043, 2.058)
pt3dadd(-33.61, 100.465, -31.088, 2.06)
pt3dadd(-33.708, 100.42, -31.133, 2.06)
pt3dadd(-33.804, 100.375, -31.179, 2.06)
pt3dadd(-33.902, 100.33, -31.224, 2.06)
pt3dadd(-34.014, 100.318, -31.255, 2.034)
pt3dadd(-34.129, 100.313, -31.281, 2.006)
pt3dadd(-34.245, 100.308, -31.308, 1.976)
pt3dadd(-34.36, 100.302, -31.334, 1.946)
pt3dadd(-34.476, 100.297, -31.361, 1.916)
pt3dadd(-34.583, 100.251, -31.372, 1.868)
pt3dadd(-34.687, 100.192, -31.379, 1.816)
pt3dadd(-34.791, 100.133, -31.386, 1.762)
pt3dadd(-34.896, 100.075, -31.393, 1.71)
pt3dadd(-35, 100.016, -31.4, 1.658)
}
dend_5[14] {pt3dclear()
pt3dadd(-35, 100.016, -31.4, 1.658)
pt3dadd(-35.069, 99.993, -31.414, 1.624)
pt3dadd(-35.18, 99.955, -31.435, 1.568)
pt3dadd(-35.291, 99.918, -31.457, 1.514)
pt3dadd(-35.402, 99.881, -31.479, 1.46)
pt3dadd(-35.512, 99.842, -31.501, 1.404)
pt3dadd(-35.607, 99.771, -31.518, 1.342)
pt3dadd(-35.701, 99.7, -31.536, 1.28)
pt3dadd(-35.795, 99.629, -31.553, 1.218)
pt3dadd(-35.89, 99.558, -31.57, 1.156)
pt3dadd(-35.995, 99.515, -31.592, 1.112)
pt3dadd(-36.109, 99.494, -31.618, 1.08)
pt3dadd(-36.223, 99.473, -31.644, 1.048)
pt3dadd(-36.337, 99.452, -31.67, 1.016)
pt3dadd(-36.451, 99.431, -31.696, 0.984)
pt3dadd(-36.557, 99.38, -31.714, 0.97)
pt3dadd(-36.66, 99.323, -31.732, 0.958)
pt3dadd(-36.764, 99.266, -31.749, 0.948)
pt3dadd(-36.867, 99.209, -31.766, 0.936)
pt3dadd(-36.968, 99.16, -31.795, 0.932)
pt3dadd(-37.065, 99.129, -31.848, 0.936)
pt3dadd(-37.163, 99.098, -31.901, 0.942)
pt3dadd(-37.26, 99.067, -31.953, 0.948)
pt3dadd(-37.359, 99.039, -32.002, 0.956)
pt3dadd(-37.478, 99.032, -32.016, 0.966)
pt3dadd(-37.596, 99.025, -32.031, 0.978)
pt3dadd(-37.705, 99.036, -32.07, 0.96)
pt3dadd(-37.811, 99.051, -32.115, 0.938)
pt3dadd(-37.922, 99.063, -32.15, 0.916)
pt3dadd(-38.037, 99.073, -32.179, 0.894)
pt3dadd(-38.14, 99.056, -32.2, 0.87)
pt3dadd(-38.215, 98.962, -32.2, 0.836)
pt3dadd(-38.292, 98.871, -32.201, 0.802)
pt3dadd(-38.395, 98.811, -32.215, 0.796)
pt3dadd(-38.498, 98.752, -32.228, 0.788)
pt3dadd(-38.601, 98.692, -32.242, 0.78)
pt3dadd(-38.689, 98.684, -32.301, 0.758)
pt3dadd(-38.774, 98.69, -32.371, 0.734)
pt3dadd(-38.842, 98.616, -32.401, 0.714)
pt3dadd(-38.906, 98.516, -32.417, 0.696)
pt3dadd(-38.971, 98.418, -32.434, 0.678)
pt3dadd(-39.073, 98.373, -32.471, 0.65)
pt3dadd(-39.177, 98.326, -32.5, 0.626)
pt3dadd(-39.283, 98.271, -32.5, 0.618)
pt3dadd(-39.389, 98.215, -32.5, 0.608)
pt3dadd(-39.499, 98.17, -32.5, 0.606)
pt3dadd(-39.618, 98.147, -32.5, 0.616)
pt3dadd(-39.735, 98.124, -32.5, 0.628)
pt3dadd(-39.852, 98.101, -32.501, 0.656)
pt3dadd(-39.96, 98.049, -32.508, 0.672)
pt3dadd(-40.068, 97.997, -32.515, 0.686)
pt3dadd(-40.176, 97.945, -32.522, 0.702)
pt3dadd(-40.283, 97.893, -32.529, 0.718)
pt3dadd(-40.384, 97.831, -32.539, 0.736)
pt3dadd(-40.472, 97.752, -32.553, 0.758)
pt3dadd(-40.56, 97.672, -32.568, 0.78)
pt3dadd(-40.648, 97.593, -32.583, 0.802)
pt3dadd(-40.737, 97.513, -32.597, 0.824)
pt3dadd(-40.839, 97.452, -32.608, 0.854)
pt3dadd(-40.944, 97.396, -32.617, 0.886)
pt3dadd(-41.05, 97.339, -32.627, 0.918)
pt3dadd(-41.154, 97.282, -32.636, 0.95)
pt3dadd(-41.253, 97.226, -32.653, 0.986)
pt3dadd(-41.298, 97.166, -32.731, 1.054)
pt3dadd(-41.36, 97.111, -32.79, 1.114)
pt3dadd(-41.473, 97.071, -32.795, 1.15)
pt3dadd(-41.586, 97.034, -32.804, 1.18)
}
}
proc shape3d_98() {
dend_5[14] { pt3dadd(-41.699, 97.023, -32.836, 1.18)
pt3dadd(-41.805, 97.006, -32.87, 1.178)
pt3dadd(-41.826, 96.902, -32.917, 1.156)
pt3dadd(-41.848, 96.798, -32.963, 1.132)
pt3dadd(-41.864, 96.685, -32.992, 1.086)
pt3dadd(-41.897, 96.581, -33.025, 1.052)
pt3dadd(-41.966, 96.5, -33.071, 1.046)
pt3dadd(-42.036, 96.419, -33.116, 1.04)
pt3dadd(-42.105, 96.338, -33.162, 1.034)
pt3dadd(-42.176, 96.257, -33.208, 1.032)
pt3dadd(-42.245, 96.179, -33.256, 1.044)
pt3dadd(-42.315, 96.101, -33.305, 1.056)
pt3dadd(-42.385, 96.022, -33.353, 1.068)
pt3dadd(-42.455, 95.944, -33.402, 1.082)
pt3dadd(-42.524, 95.866, -33.45, 1.118)
pt3dadd(-42.595, 95.787, -33.499, 1.154)
pt3dadd(-42.664, 95.709, -33.547, 1.19)
pt3dadd(-42.734, 95.631, -33.596, 1.228)
pt3dadd(-42.774, 95.52, -33.6, 1.284)
pt3dadd(-42.811, 95.405, -33.6, 1.342)
pt3dadd(-42.866, 95.304, -33.602, 1.396)
pt3dadd(-42.961, 95.232, -33.607, 1.446)
pt3dadd(-43.043, 95.164, -33.632, 1.482)
pt3dadd(-43.088, 95.104, -33.711, 1.482)
pt3dadd(-43.165, 95.077, -33.763, 1.482)
pt3dadd(-43.281, 95.094, -33.78, 1.482)
pt3dadd(-43.399, 95.11, -33.797, 1.482)
pt3dadd(-43.518, 95.107, -33.8, 1.47)
pt3dadd(-43.637, 95.098, -33.802, 1.454)
pt3dadd(-43.754, 95.077, -33.818, 1.444)
pt3dadd(-43.87, 95.055, -33.833, 1.432)
}
dend_5[15] {pt3dclear()
pt3dadd(-43.87, 95.055, -33.833, 1.432)
pt3dadd(-43.88, 95.057, -33.837, 1.43)
pt3dadd(-43.986, 95.072, -33.882, 1.406)
pt3dadd(-44.091, 95.086, -33.927, 1.384)
pt3dadd(-44.178, 95.074, -33.994, 1.358)
pt3dadd(-44.259, 95.057, -34.066, 1.332)
pt3dadd(-44.282, 94.947, -34.101, 1.32)
pt3dadd(-44.304, 94.836, -34.135, 1.308)
pt3dadd(-44.378, 94.805, -34.189, 1.288)
pt3dadd(-44.473, 94.802, -34.25, 1.266)
pt3dadd(-44.569, 94.799, -34.312, 1.242)
pt3dadd(-44.649, 94.781, -34.381, 1.218)
pt3dadd(-44.714, 94.746, -34.46, 1.19)
pt3dadd(-44.803, 94.696, -34.492, 1.168)
pt3dadd(-44.908, 94.638, -34.495, 1.15)
pt3dadd(-45.013, 94.58, -34.499, 1.132)
pt3dadd(-45.094, 94.496, -34.52, 1.118)
pt3dadd(-45.17, 94.407, -34.543, 1.106)
pt3dadd(-45.242, 94.384, -34.617, 1.11)
pt3dadd(-45.331, 94.343, -34.674, 1.124)
pt3dadd(-45.413, 94.273, -34.7, 1.154)
pt3dadd(-45.488, 94.179, -34.7, 1.2)
pt3dadd(-45.569, 94.093, -34.706, 1.244)
pt3dadd(-45.664, 94.022, -34.723, 1.284)
pt3dadd(-45.739, 93.96, -34.767, 1.306)
pt3dadd(-45.791, 93.908, -34.847, 1.306)
pt3dadd(-45.843, 93.88, -34.933, 1.25)
pt3dadd(-45.905, 93.859, -35.012, 1.17)
pt3dadd(-46, 93.814, -35.061, 1.128)
pt3dadd(-46.093, 93.768, -35.109, 1.084)
pt3dadd(-46.188, 93.723, -35.158, 1.042)
pt3dadd(-46.284, 93.678, -35.205, 0.998)
pt3dadd(-46.385, 93.64, -35.248, 0.942)
pt3dadd(-46.473, 93.594, -35.299, 0.904)
pt3dadd(-46.527, 93.525, -35.368, 0.904)
pt3dadd(-46.587, 93.45, -35.426, 0.918)
pt3dadd(-46.652, 93.369, -35.476, 0.946)
pt3dadd(-46.756, 93.335, -35.493, 0.954)
pt3dadd(-46.875, 93.316, -35.497, 0.954)
pt3dadd(-46.993, 93.313, -35.508, 0.948)
pt3dadd(-47.11, 93.329, -35.528, 0.934)
pt3dadd(-47.222, 93.319, -35.56, 0.93)
pt3dadd(-47.331, 93.299, -35.597, 0.93)
pt3dadd(-47.44, 93.279, -35.633, 0.93)
pt3dadd(-47.55, 93.259, -35.67, 0.93)
pt3dadd(-47.658, 93.235, -35.71, 0.932)
pt3dadd(-47.75, 93.196, -35.764, 0.944)
pt3dadd(-47.844, 93.157, -35.818, 0.956)
pt3dadd(-47.937, 93.118, -35.871, 0.968)
pt3dadd(-48.03, 93.077, -35.925, 0.98)
pt3dadd(-48.112, 93.007, -35.968, 0.986)
pt3dadd(-48.194, 92.936, -36.011, 0.992)
pt3dadd(-48.276, 92.866, -36.055, 0.998)
pt3dadd(-48.358, 92.795, -36.098, 1.004)
pt3dadd(-48.459, 92.739, -36.122, 0.994)
pt3dadd(-48.563, 92.683, -36.144, 0.982)
pt3dadd(-48.665, 92.627, -36.167, 0.97)
pt3dadd(-48.768, 92.571, -36.19, 0.96)
pt3dadd(-48.85, 92.493, -36.212, 0.94)
pt3dadd(-48.917, 92.397, -36.234, 0.912)
pt3dadd(-48.984, 92.3, -36.256, 0.884)
pt3dadd(-49.049, 92.204, -36.277, 0.856)
pt3dadd(-49.116, 92.107, -36.299, 0.83)
pt3dadd(-49.18, 92.018, -36.34, 0.812)
pt3dadd(-49.242, 91.929, -36.382, 0.794)
pt3dadd(-49.305, 91.84, -36.424, 0.776)
pt3dadd(-49.369, 91.751, -36.465, 0.758)
pt3dadd(-49.447, 91.679, -36.51, 0.748)
pt3dadd(-49.532, 91.615, -36.556, 0.742)
pt3dadd(-49.616, 91.551, -36.603, 0.736)
pt3dadd(-49.701, 91.487, -36.649, 0.73)
pt3dadd(-49.794, 91.431, -36.692, 0.74)
pt3dadd(-49.892, 91.381, -36.731, 0.758)
pt3dadd(-49.989, 91.33, -36.771, 0.776)
pt3dadd(-50.087, 91.279, -36.811, 0.794)
pt3dadd(-50.172, 91.22, -36.859, 0.81)
pt3dadd(-50.241, 91.15, -36.917, 0.822)
pt3dadd(-50.31, 91.08, -36.974, 0.834)
pt3dadd(-50.38, 91.011, -37.031, 0.846)
pt3dadd(-50.452, 90.934, -37.075, 0.86)
pt3dadd(-50.527, 90.845, -37.098, 0.878)
pt3dadd(-50.604, 90.756, -37.12, 0.894)
pt3dadd(-50.68, 90.667, -37.142, 0.912)
pt3dadd(-50.755, 90.578, -37.165, 0.928)
pt3dadd(-50.832, 90.492, -37.193, 0.924)
pt3dadd(-50.91, 90.407, -37.221, 0.918)
pt3dadd(-50.987, 90.321, -37.249, 0.912)
pt3dadd(-51.064, 90.236, -37.277, 0.906)
pt3dadd(-51.127, 90.152, -37.323, 0.896)
pt3dadd(-51.18, 90.07, -37.381, 0.886)
pt3dadd(-51.233, 89.988, -37.439, 0.874)
pt3dadd(-51.287, 89.906, -37.497, 0.862)
pt3dadd(-51.354, 89.833, -37.548, 0.844)
pt3dadd(-51.447, 89.774, -37.589, 0.82)
pt3dadd(-51.54, 89.716, -37.629, 0.796)
pt3dadd(-51.633, 89.657, -37.669, 0.772)
pt3dadd(-51.718, 89.6, -37.718, 0.754)
pt3dadd(-51.778, 89.548, -37.793, 0.754)
pt3dadd(-51.849, 89.501, -37.862, 0.772)
pt3dadd(-51.931, 89.458, -37.926, 0.816)
pt3dadd(-52.012, 89.439, -37.997, 0.874)
pt3dadd(-52.089, 89.429, -38.073, 0.94)
pt3dadd(-52.2, 89.427, -38.096, 0.97)
pt3dadd(-52.32, 89.428, -38.105, 0.99)
pt3dadd(-52.424, 89.403, -38.125, 1)
pt3dadd(-52.495, 89.322, -38.17, 0.982)
pt3dadd(-52.565, 89.242, -38.215, 0.966)
pt3dadd(-52.616, 89.161, -38.269, 0.942)
pt3dadd(-52.627, 89.08, -38.342, 0.906)
pt3dadd(-52.639, 88.994, -38.41, 0.872)
pt3dadd(-52.662, 88.903, -38.469, 0.872)
pt3dadd(-52.692, 88.83, -38.544, 0.912)
pt3dadd(-52.737, 88.76, -38.615, 0.976)
pt3dadd(-52.792, 88.692, -38.684, 1.06)
pt3dadd(-52.831, 88.602, -38.739, 1.148)
pt3dadd(-52.865, 88.504, -38.79, 1.238)
pt3dadd(-52.945, 88.478, -38.851, 1.328)
pt3dadd(-53.037, 88.47, -38.914, 1.42)
pt3dadd(-53.12, 88.47, -38.987, 1.496)
pt3dadd(-53.182, 88.43, -39.057, 1.538)
pt3dadd(-53.232, 88.354, -39.123, 1.55)
pt3dadd(-53.281, 88.278, -39.189, 1.562)
pt3dadd(-53.33, 88.202, -39.254, 1.574)
pt3dadd(-53.386, 88.129, -39.318, 1.582)
pt3dadd(-53.457, 88.061, -39.375, 1.582)
pt3dadd(-53.5, 87.965, -39.402, 1.582)
pt3dadd(-53.521, 87.847, -39.406, 1.582)
pt3dadd(-53.543, 87.729, -39.41, 1.582)
pt3dadd(-53.61, 87.647, -39.446, 1.582)
pt3dadd(-53.688, 87.574, -39.49, 1.582)
pt3dadd(-53.768, 87.507, -39.541, 1.568)
pt3dadd(-53.829, 87.444, -39.603, 1.546)
pt3dadd(-53.846, 87.389, -39.69, 1.51)
pt3dadd(-53.931, 87.339, -39.743, 1.49)
pt3dadd(-54.023, 87.289, -39.792, 1.472)
pt3dadd(-54.115, 87.24, -39.841, 1.454)
pt3dadd(-54.207, 87.19, -39.89, 1.436)
pt3dadd(-54.303, 87.147, -39.938, 1.418)
pt3dadd(-54.4, 87.106, -39.986, 1.398)
pt3dadd(-54.496, 87.064, -40.034, 1.38)
pt3dadd(-54.593, 87.023, -40.083, 1.362)
pt3dadd(-54.703, 87.015, -40.108, 1.318)
pt3dadd(-54.822, 87.026, -40.121, 1.26)
pt3dadd(-54.939, 87.038, -40.137, 1.2)
pt3dadd(-55.032, 87.051, -40.199, 1.106)
pt3dadd(-55.124, 87.064, -40.262, 1.012)
pt3dadd(-55.238, 87.038, -40.282, 0.904)
pt3dadd(-55.353, 87.008, -40.298, 0.794)
pt3dadd(-55.424, 86.929, -40.337, 0.766)
pt3dadd(-55.487, 86.843, -40.381, 0.758)
pt3dadd(-55.53, 86.772, -40.453, 0.86)
pt3dadd(-55.608, 86.697, -40.49, 0.926)
pt3dadd(-55.694, 86.621, -40.518, 0.986)
pt3dadd(-55.781, 86.545, -40.547, 1.044)
pt3dadd(-55.867, 86.469, -40.576, 1.102)
pt3dadd(-55.931, 86.386, -40.619, 1.148)
pt3dadd(-55.974, 86.296, -40.675, 1.182)
pt3dadd(-56.017, 86.206, -40.731, 1.218)
pt3dadd(-56.061, 86.117, -40.787, 1.252)
pt3dadd(-56.106, 86.034, -40.846, 1.286)
pt3dadd(-56.167, 85.982, -40.921, 1.314)
pt3dadd(-56.214, 85.905, -40.972, 1.32)
pt3dadd(-56.241, 85.79, -40.985, 1.288)
pt3dadd(-56.268, 85.674, -40.999, 1.258)
pt3dadd(-56.328, 85.602, -41.058, 1.19)
pt3dadd(-56.384, 85.542, -41.126, 1.122)
pt3dadd(-56.391, 85.527, -41.226, 1.074)
pt3dadd(-56.398, 85.513, -41.325, 1.026)
pt3dadd(-56.447, 85.487, -41.406, 0.98)
}
}
proc shape3d_99() {
dend_5[15] { pt3dadd(-56.527, 85.453, -41.475, 0.938)
pt3dadd(-56.638, 85.459, -41.499, 0.906)
pt3dadd(-56.757, 85.476, -41.5, 0.904)
pt3dadd(-56.874, 85.492, -41.511, 0.93)
pt3dadd(-56.985, 85.508, -41.545, 0.96)
pt3dadd(-57.074, 85.51, -41.611, 0.942)
pt3dadd(-57.13, 85.465, -41.689, 0.906)
pt3dadd(-57.182, 85.413, -41.768, 0.878)
pt3dadd(-57.234, 85.361, -41.847, 0.85)
pt3dadd(-57.284, 85.32, -41.93, 0.83)
pt3dadd(-57.329, 85.322, -42.022, 0.838)
pt3dadd(-57.374, 85.324, -42.115, 0.848)
pt3dadd(-57.432, 85.328, -42.197, 0.856)
pt3dadd(-57.541, 85.343, -42.236, 0.866)
pt3dadd(-57.651, 85.359, -42.274, 0.878)
pt3dadd(-57.741, 85.371, -42.338, 0.904)
pt3dadd(-57.816, 85.382, -42.416, 0.904)
pt3dadd(-57.857, 85.388, -42.508, 0.904)
pt3dadd(-57.873, 85.39, -42.607, 0.934)
pt3dadd(-57.892, 85.389, -42.706, 0.998)
pt3dadd(-57.949, 85.355, -42.783, 1.136)
pt3dadd(-58.003, 85.259, -42.819, 1.376)
pt3dadd(-58.036, 85.156, -42.861, 1.63)
pt3dadd(-58.095, 85.06, -42.893, 1.714)
pt3dadd(-58.156, 84.96, -42.909, 1.64)
pt3dadd(-58.221, 84.88, -42.947, 1.556)
pt3dadd(-58.316, 84.865, -43.007, 1.556)
pt3dadd(-58.407, 84.859, -43.071, 1.562)
pt3dadd(-58.487, 84.871, -43.144, 1.572)
pt3dadd(-58.574, 84.878, -43.212, 1.6)
pt3dadd(-58.665, 84.856, -43.272, 1.632)
pt3dadd(-58.747, 84.822, -43.339, 1.632)
pt3dadd(-58.83, 84.788, -43.406, 1.632)
pt3dadd(-58.912, 84.754, -43.473, 1.632)
pt3dadd(-58.99, 84.701, -43.53, 1.614)
pt3dadd(-59.062, 84.62, -43.573, 1.572)
pt3dadd(-59.154, 84.558, -43.608, 1.504)
pt3dadd(-59.256, 84.507, -43.639, 1.422)
pt3dadd(-59.346, 84.506, -43.699, 1.35)
pt3dadd(-59.434, 84.519, -43.767, 1.278)
pt3dadd(-59.542, 84.531, -43.792, 1.218)
pt3dadd(-59.662, 84.543, -43.796, 1.164)
pt3dadd(-59.781, 84.555, -43.8, 1.11)
pt3dadd(-59.886, 84.501, -43.8, 1.042)
pt3dadd(-59.986, 84.443, -43.818, 0.984)
pt3dadd(-60.083, 84.389, -43.855, 0.942)
pt3dadd(-60.185, 84.368, -43.901, 0.93)
pt3dadd(-60.288, 84.362, -43.952, 0.93)
pt3dadd(-60.381, 84.337, -44.011, 0.958)
pt3dadd(-60.468, 84.304, -44.073, 1.002)
pt3dadd(-60.513, 84.301, -44.165, 1.014)
pt3dadd(-60.556, 84.302, -44.258, 1.026)
pt3dadd(-60.628, 84.255, -44.314, 1.018)
pt3dadd(-60.715, 84.185, -44.352, 1.002)
pt3dadd(-60.801, 84.116, -44.389, 0.984)
pt3dadd(-60.907, 84.073, -44.416, 0.934)
pt3dadd(-61.019, 84.041, -44.438, 0.872)
pt3dadd(-61.083, 84.034, -44.511, 0.848)
pt3dadd(-61.128, 84.036, -44.604, 0.84)
pt3dadd(-61.172, 84.037, -44.696, 0.832)
pt3dadd(-61.243, 84.013, -44.772, 0.838)
pt3dadd(-61.323, 83.979, -44.84, 0.852)
pt3dadd(-61.356, 83.941, -44.93, 0.902)
pt3dadd(-61.401, 83.888, -45.012, 0.89)
pt3dadd(-61.444, 83.835, -45.093, 0.878)
pt3dadd(-61.489, 83.783, -45.175, 0.866)
pt3dadd(-61.534, 83.73, -45.257, 0.856)
pt3dadd(-61.617, 83.683, -45.315, 0.842)
pt3dadd(-61.707, 83.636, -45.369, 0.83)
pt3dadd(-61.796, 83.589, -45.424, 0.818)
pt3dadd(-61.885, 83.542, -45.478, 0.806)
pt3dadd(-61.986, 83.523, -45.529, 0.794)
pt3dadd(-62.09, 83.511, -45.578, 0.784)
pt3dadd(-62.193, 83.498, -45.627, 0.772)
pt3dadd(-62.297, 83.486, -45.677, 0.76)
pt3dadd(-62.381, 83.466, -45.739, 0.762)
pt3dadd(-62.42, 83.431, -45.829, 0.786)
pt3dadd(-62.477, 83.402, -45.908, 0.816)
pt3dadd(-62.572, 83.387, -45.968, 0.856)
pt3dadd(-62.631, 83.35, -46.038, 0.89)
pt3dadd(-62.647, 83.288, -46.123, 0.914)
pt3dadd(-62.659, 83.227, -46.208, 0.92)
pt3dadd(-62.668, 83.167, -46.294, 0.898)
pt3dadd(-62.68, 83.105, -46.379, 0.876)
pt3dadd(-62.717, 83.033, -46.453, 0.852)
pt3dadd(-62.752, 82.961, -46.527, 0.828)
pt3dadd(-62.788, 82.888, -46.6, 0.804)
pt3dadd(-62.837, 82.778, -46.6, 0.804)
pt3dadd(-62.886, 82.668, -46.6, 0.804)
pt3dadd(-62.946, 82.565, -46.6, 0.844)
pt3dadd(-63.02, 82.472, -46.614, 0.876)
pt3dadd(-63.093, 82.38, -46.631, 0.9)
pt3dadd(-63.133, 82.276, -46.666, 0.904)
pt3dadd(-63.168, 82.17, -46.704, 0.904)
pt3dadd(-63.225, 82.095, -46.762, 0.928)
pt3dadd(-63.29, 82.029, -46.825, 0.956)
pt3dadd(-63.39, 81.999, -46.873, 0.998)
pt3dadd(-63.486, 81.971, -46.928, 1.048)
pt3dadd(-63.566, 81.949, -47, 1.13)
}
dend_5[16] {pt3dclear()
pt3dadd(-43.87, 95.055, -33.833, 1.432)
pt3dadd(-43.897, 95.001, -33.853, 1.452)
pt3dadd(-43.947, 94.901, -33.89, 1.492)
pt3dadd(-43.996, 94.801, -33.927, 1.53)
pt3dadd(-44.046, 94.701, -33.964, 1.568)
pt3dadd(-44.095, 94.602, -34.001, 1.608)
pt3dadd(-44.1, 94.569, -34.097, 1.638)
pt3dadd(-44.105, 94.537, -34.193, 1.67)
pt3dadd(-44.108, 94.514, -34.291, 1.72)
pt3dadd(-44.11, 94.5, -34.39, 1.786)
pt3dadd(-44.112, 94.485, -34.49, 1.852)
pt3dadd(-44.112, 94.483, -34.59, 1.926)
pt3dadd(-44.112, 94.483, -34.689, 2.002)
pt3dadd(-44.112, 94.483, -34.789, 2.076)
pt3dadd(-44.112, 94.483, -34.889, 2.208)
pt3dadd(-44.112, 94.483, -34.989, 2.346)
pt3dadd(-44.112, 94.483, -35.09, 2.396)
pt3dadd(-44.112, 94.483, -35.189, 2.436)
pt3dadd(-44.112, 94.483, -35.289, 2.474)
pt3dadd(-44.112, 94.483, -35.389, 2.514)
pt3dadd(-44.112, 94.483, -35.489, 2.554)
pt3dadd(-44.112, 94.483, -35.59, 2.594)
pt3dadd(-44.112, 94.483, -35.689, 2.632)
pt3dadd(-44.118, 94.444, -35.783, 2.682)
pt3dadd(-44.124, 94.4, -35.876, 2.734)
pt3dadd(-44.13, 94.356, -35.969, 2.786)
pt3dadd(-44.136, 94.311, -36.062, 2.836)
pt3dadd(-44.142, 94.267, -36.155, 2.888)
pt3dadd(-44.151, 94.205, -36.238, 2.93)
pt3dadd(-44.162, 94.125, -36.312, 2.966)
pt3dadd(-44.174, 94.045, -36.386, 3.002)
pt3dadd(-44.185, 93.965, -36.46, 3.038)
pt3dadd(-44.196, 93.885, -36.534, 3.072)
pt3dadd(-44.208, 93.802, -36.605, 3.092)
pt3dadd(-44.22, 93.717, -36.675, 3.096)
pt3dadd(-44.232, 93.632, -36.744, 3.102)
pt3dadd(-44.244, 93.546, -36.814, 3.106)
pt3dadd(-44.256, 93.461, -36.884, 3.112)
pt3dadd(-44.267, 93.378, -36.955, 3.086)
pt3dadd(-44.279, 93.297, -37.029, 3.038)
pt3dadd(-44.289, 93.227, -37.108, 2.986)
pt3dadd(-44.297, 93.166, -37.194, 2.928)
pt3dadd(-44.32, 93.098, -37.27, 2.864)
pt3dadd(-44.376, 93.01, -37.319, 2.782)
pt3dadd(-44.443, 92.965, -37.38, 2.686)
pt3dadd(-44.521, 92.97, -37.456, 2.576)
pt3dadd(-44.611, 92.978, -37.519, 2.414)
pt3dadd(-44.718, 92.993, -37.563, 2.178)
pt3dadd(-44.789, 92.981, -37.642, 2.092)
pt3dadd(-44.856, 92.967, -37.724, 2.02)
pt3dadd(-44.923, 92.952, -37.805, 1.948)
pt3dadd(-44.992, 92.938, -37.887, 1.874)
pt3dadd(-45.065, 92.921, -37.964, 1.818)
pt3dadd(-45.146, 92.901, -38.036, 1.784)
pt3dadd(-45.227, 92.881, -38.108, 1.748)
pt3dadd(-45.308, 92.862, -38.181, 1.714)
pt3dadd(-45.382, 92.842, -38.255, 1.684)
pt3dadd(-45.416, 92.829, -38.351, 1.694)
pt3dadd(-45.448, 92.815, -38.446, 1.706)
pt3dadd(-45.515, 92.741, -38.495, 1.72)
pt3dadd(-45.591, 92.669, -38.539, 1.724)
pt3dadd(-45.695, 92.663, -38.59, 1.662)
pt3dadd(-45.798, 92.66, -38.64, 1.594)
pt3dadd(-45.905, 92.675, -38.685, 1.504)
pt3dadd(-46.011, 92.69, -38.729, 1.414)
pt3dadd(-46.092, 92.702, -38.802, 1.36)
pt3dadd(-46.17, 92.713, -38.877, 1.312)
pt3dadd(-46.249, 92.724, -38.953, 1.262)
pt3dadd(-46.297, 92.73, -39.037, 1.224)
pt3dadd(-46.297, 92.73, -39.137, 1.208)
pt3dadd(-46.297, 92.73, -39.237, 1.19)
pt3dadd(-46.303, 92.731, -39.337, 1.19)
pt3dadd(-46.326, 92.735, -39.435, 1.212)
pt3dadd(-46.359, 92.739, -39.531, 1.224)
pt3dadd(-46.391, 92.744, -39.627, 1.238)
pt3dadd(-46.424, 92.748, -39.723, 1.252)
pt3dadd(-46.457, 92.753, -39.819, 1.264)
pt3dadd(-46.49, 92.758, -39.915, 1.278)
pt3dadd(-46.517, 92.761, -40.013, 1.284)
pt3dadd(-46.544, 92.765, -40.11, 1.288)
pt3dadd(-46.572, 92.769, -40.207, 1.292)
pt3dadd(-46.599, 92.773, -40.305, 1.298)
pt3dadd(-46.626, 92.777, -40.402, 1.302)
pt3dadd(-46.654, 92.781, -40.499, 1.306)
pt3dadd(-46.674, 92.783, -40.598, 1.286)
pt3dadd(-46.694, 92.786, -40.696, 1.268)
pt3dadd(-46.738, 92.793, -40.785, 1.228)
pt3dadd(-46.82, 92.804, -40.858, 1.156)
pt3dadd(-46.896, 92.815, -40.934, 1.086)
pt3dadd(-46.964, 92.824, -41.016, 1.016)
pt3dadd(-47.038, 92.835, -41.091, 0.948)
pt3dadd(-47.154, 92.851, -41.108, 0.9)
pt3dadd(-47.272, 92.867, -41.125, 0.852)
pt3dadd(-47.379, 92.899, -41.156, 0.818)
pt3dadd(-47.471, 92.952, -41.199, 0.8)
pt3dadd(-47.544, 93.031, -41.244, 0.786)
pt3dadd(-47.626, 93.108, -41.275, 0.784)
pt3dadd(-47.718, 93.183, -41.292, 0.798)
pt3dadd(-47.805, 93.248, -41.328, 0.796)
pt3dadd(-47.886, 93.304, -41.384, 0.782)
pt3dadd(-47.983, 93.331, -41.436, 0.802)
}
}
proc shape3d_100() {
dend_5[16] { pt3dadd(-48.085, 93.345, -41.487, 0.838)
pt3dadd(-48.179, 93.359, -41.548, 0.908)
pt3dadd(-48.261, 93.37, -41.619, 1.01)
pt3dadd(-48.336, 93.381, -41.697, 1.072)
pt3dadd(-48.41, 93.391, -41.775, 1.132)
pt3dadd(-48.485, 93.402, -41.853, 1.192)
pt3dadd(-48.558, 93.412, -41.931, 1.252)
pt3dadd(-48.634, 93.423, -42.008, 1.312)
pt3dadd(-48.725, 93.435, -42.073, 1.362)
pt3dadd(-48.816, 93.448, -42.138, 1.414)
pt3dadd(-48.907, 93.461, -42.203, 1.464)
pt3dadd(-48.997, 93.473, -42.268, 1.514)
pt3dadd(-49.088, 93.492, -42.329, 1.56)
pt3dadd(-49.185, 93.542, -42.372, 1.576)
pt3dadd(-49.281, 93.592, -42.414, 1.594)
pt3dadd(-49.377, 93.642, -42.457, 1.61)
pt3dadd(-49.473, 93.692, -42.5, 1.628)
pt3dadd(-49.527, 93.78, -42.542, 1.562)
pt3dadd(-49.565, 93.882, -42.585, 1.464)
pt3dadd(-49.652, 93.961, -42.594, 1.326)
pt3dadd(-49.743, 94.038, -42.599, 1.182)
pt3dadd(-49.856, 94.069, -42.6, 1.07)
pt3dadd(-49.974, 94.091, -42.6, 0.966)
pt3dadd(-50.092, 94.112, -42.6, 0.862)
pt3dadd(-50.203, 94.158, -42.6, 0.786)
pt3dadd(-50.313, 94.207, -42.6, 0.714)
pt3dadd(-50.425, 94.244, -42.605, 0.67)
pt3dadd(-50.543, 94.27, -42.616, 0.652)
pt3dadd(-50.659, 94.296, -42.626, 0.634)
pt3dadd(-50.775, 94.322, -42.636, 0.616)
pt3dadd(-50.871, 94.343, -42.667, 0.606)
pt3dadd(-50.897, 94.346, -42.765, 0.616)
pt3dadd(-50.923, 94.35, -42.862, 0.626)
pt3dadd(-50.969, 94.356, -42.954, 0.676)
pt3dadd(-51.084, 94.373, -42.972, 0.706)
pt3dadd(-51.202, 94.389, -42.99, 0.736)
pt3dadd(-51.315, 94.405, -43.017, 0.766)
pt3dadd(-51.421, 94.42, -43.062, 0.8)
pt3dadd(-51.519, 94.437, -43.114, 0.83)
pt3dadd(-51.569, 94.464, -43.202, 0.844)
pt3dadd(-51.611, 94.498, -43.288, 0.85)
pt3dadd(-51.614, 94.58, -43.361, 0.824)
pt3dadd(-51.633, 94.653, -43.427, 0.798)
pt3dadd(-51.744, 94.68, -43.457, 0.764)
pt3dadd(-51.856, 94.706, -43.486, 0.732)
pt3dadd(-51.967, 94.733, -43.516, 0.698)
pt3dadd(-52.073, 94.772, -43.548, 0.656)
pt3dadd(-52.171, 94.828, -43.583, 0.604)
pt3dadd(-52.275, 94.88, -43.6, 0.578)
pt3dadd(-52.373, 94.906, -43.642, 0.588)
pt3dadd(-52.466, 94.922, -43.703, 0.604)
pt3dadd(-52.56, 94.938, -43.765, 0.62)
pt3dadd(-52.655, 94.953, -43.826, 0.634)
pt3dadd(-52.748, 94.969, -43.887, 0.65)
pt3dadd(-52.836, 94.982, -43.953, 0.7)
pt3dadd(-52.924, 94.995, -44.021, 0.758)
pt3dadd(-52.967, 95.027, -44.105, 0.802)
pt3dadd(-52.987, 95.069, -44.197, 0.84)
pt3dadd(-53.034, 95.104, -44.282, 0.878)
pt3dadd(-53.099, 95.134, -44.362, 0.916)
pt3dadd(-53.195, 95.154, -44.415, 0.922)
pt3dadd(-53.304, 95.169, -44.454, 0.91)
pt3dadd(-53.407, 95.184, -44.501, 0.904)
pt3dadd(-53.5, 95.197, -44.564, 0.904)
pt3dadd(-53.599, 95.227, -44.614, 0.904)
pt3dadd(-53.697, 95.259, -44.664, 0.904)
pt3dadd(-53.797, 95.29, -44.714, 0.904)
pt3dadd(-53.896, 95.321, -44.764, 0.904)
pt3dadd(-53.995, 95.357, -44.812, 0.908)
pt3dadd(-54.091, 95.407, -44.854, 0.926)
pt3dadd(-54.187, 95.457, -44.897, 0.942)
pt3dadd(-54.284, 95.507, -44.94, 0.96)
pt3dadd(-54.38, 95.557, -44.982, 0.976)
pt3dadd(-54.493, 95.579, -45.005, 0.98)
pt3dadd(-54.61, 95.595, -45.023, 0.98)
pt3dadd(-54.728, 95.612, -45.042, 0.98)
pt3dadd(-54.844, 95.628, -45.06, 0.98)
pt3dadd(-54.96, 95.645, -45.079, 0.98)
pt3dadd(-55.078, 95.661, -45.097, 0.98)
pt3dadd(-55.196, 95.678, -45.1, 0.966)
pt3dadd(-55.314, 95.694, -45.1, 0.948)
pt3dadd(-55.433, 95.711, -45.1, 0.932)
pt3dadd(-55.542, 95.726, -45.138, 0.9)
pt3dadd(-55.648, 95.741, -45.183, 0.866)
pt3dadd(-55.721, 95.794, -45.239, 0.846)
pt3dadd(-55.772, 95.871, -45.303, 0.83)
pt3dadd(-55.819, 95.966, -45.349, 0.804)
pt3dadd(-55.872, 96.06, -45.39, 0.774)
pt3dadd(-55.974, 96.121, -45.397, 0.74)
pt3dadd(-56.077, 96.182, -45.4, 0.714)
pt3dadd(-56.18, 96.244, -45.4, 0.692)
pt3dadd(-56.26, 96.323, -45.406, 0.686)
pt3dadd(-56.297, 96.435, -45.422, 0.712)
pt3dadd(-56.34, 96.521, -45.463, 0.736)
pt3dadd(-56.391, 96.556, -45.549, 0.762)
pt3dadd(-56.46, 96.591, -45.62, 0.798)
pt3dadd(-56.557, 96.625, -45.671, 0.85)
pt3dadd(-56.658, 96.669, -45.7, 0.9)
pt3dadd(-56.763, 96.727, -45.7, 0.948)
pt3dadd(-56.866, 96.789, -45.7, 0.992)
pt3dadd(-56.97, 96.85, -45.7, 1.036)
pt3dadd(-57.063, 96.923, -45.71, 1.062)
pt3dadd(-57.148, 97.005, -45.727, 1.076)
pt3dadd(-57.221, 97.08, -45.771, 1.08)
pt3dadd(-57.289, 97.151, -45.828, 1.08)
pt3dadd(-57.292, 97.222, -45.907, 1.068)
pt3dadd(-57.288, 97.293, -45.987, 1.056)
pt3dadd(-57.31, 97.338, -46.077, 1.054)
pt3dadd(-57.336, 97.377, -46.169, 1.054)
pt3dadd(-57.363, 97.417, -46.261, 1.054)
pt3dadd(-57.386, 97.44, -46.356, 1.046)
pt3dadd(-57.406, 97.442, -46.454, 1.026)
pt3dadd(-57.427, 97.445, -46.553, 1.008)
pt3dadd(-57.493, 97.455, -46.634, 0.974)
pt3dadd(-57.568, 97.465, -46.712, 0.938)
pt3dadd(-57.642, 97.476, -46.789, 0.904)
pt3dadd(-57.734, 97.554, -46.794, 0.856)
pt3dadd(-57.826, 97.631, -46.8, 0.808)
pt3dadd(-57.865, 97.732, -46.837, 0.794)
pt3dadd(-57.9, 97.836, -46.878, 0.784)
pt3dadd(-57.926, 97.936, -46.928, 0.784)
pt3dadd(-57.942, 98.031, -46.987, 0.798)
pt3dadd(-57.994, 98.117, -47.033, 0.804)
pt3dadd(-58.072, 98.195, -47.07, 0.804)
pt3dadd(-58.159, 98.264, -47.106, 0.8)
pt3dadd(-58.27, 98.292, -47.136, 0.776)
pt3dadd(-58.38, 98.319, -47.166, 0.754)
pt3dadd(-58.477, 98.381, -47.194, 0.704)
pt3dadd(-58.58, 98.438, -47.2, 0.724)
pt3dadd(-58.695, 98.471, -47.2, 0.752)
pt3dadd(-58.814, 98.489, -47.2, 0.704)
pt3dadd(-58.933, 98.505, -47.2, 0.63)
pt3dadd(-59.048, 98.538, -47.201, 0.524)
pt3dadd(-59.145, 98.6, -47.225, 0.518)
pt3dadd(-59.207, 98.682, -47.274, 0.66)
pt3dadd(-59.245, 98.786, -47.309, 0.82)
pt3dadd(-59.245, 98.898, -47.344, 0.894)
pt3dadd(-59.23, 99.004, -47.389, 0.962)
pt3dadd(-59.215, 99.111, -47.433, 1.03)
pt3dadd(-59.2, 99.219, -47.474, 1.014)
pt3dadd(-59.184, 99.335, -47.494, 0.954)
pt3dadd(-59.167, 99.453, -47.5, 0.902)
pt3dadd(-59.15, 99.572, -47.5, 0.852)
pt3dadd(-59.142, 99.692, -47.5, 0.798)
pt3dadd(-59.166, 99.807, -47.5, 0.778)
pt3dadd(-59.248, 99.893, -47.5, 0.842)
pt3dadd(-59.346, 99.961, -47.5, 0.91)
pt3dadd(-59.452, 100.019, -47.5, 0.98)
pt3dadd(-59.568, 100.049, -47.5, 1.054)
}
dend_5[17] {pt3dclear()
pt3dadd(-35, 100.016, -31.4, 1.658)
pt3dadd(-35.092, 100.086, -31.412, 1.648)
pt3dadd(-35.187, 100.157, -31.425, 1.638)
pt3dadd(-35.282, 100.229, -31.438, 1.628)
pt3dadd(-35.377, 100.301, -31.451, 1.62)
pt3dadd(-35.472, 100.373, -31.464, 1.61)
pt3dadd(-35.567, 100.445, -31.476, 1.6)
pt3dadd(-35.662, 100.517, -31.489, 1.59)
pt3dadd(-35.76, 100.58, -31.5, 1.578)
pt3dadd(-35.879, 100.597, -31.5, 1.55)
pt3dadd(-35.998, 100.614, -31.5, 1.52)
pt3dadd(-36.117, 100.63, -31.5, 1.492)
pt3dadd(-36.235, 100.647, -31.5, 1.462)
pt3dadd(-36.354, 100.664, -31.5, 1.434)
pt3dadd(-36.473, 100.681, -31.5, 1.406)
pt3dadd(-36.592, 100.694, -31.5, 1.378)
pt3dadd(-36.712, 100.691, -31.5, 1.352)
pt3dadd(-36.832, 100.688, -31.5, 1.328)
pt3dadd(-36.952, 100.685, -31.5, 1.304)
pt3dadd(-37.072, 100.682, -31.5, 1.278)
pt3dadd(-37.192, 100.679, -31.5, 1.254)
pt3dadd(-37.312, 100.677, -31.5, 1.23)
pt3dadd(-37.431, 100.694, -31.5, 1.212)
pt3dadd(-37.549, 100.711, -31.5, 1.194)
pt3dadd(-37.668, 100.727, -31.5, 1.176)
pt3dadd(-37.787, 100.744, -31.5, 1.158)
pt3dadd(-37.906, 100.761, -31.5, 1.14)
pt3dadd(-38.025, 100.777, -31.5, 1.122)
pt3dadd(-38.143, 100.794, -31.5, 1.104)
pt3dadd(-38.262, 100.811, -31.5, 1.098)
pt3dadd(-38.381, 100.828, -31.5, 1.09)
pt3dadd(-38.5, 100.844, -31.5, 1.082)
pt3dadd(-38.619, 100.861, -31.5, 1.076)
pt3dadd(-38.738, 100.878, -31.5, 1.068)
pt3dadd(-38.857, 100.894, -31.5, 1.062)
pt3dadd(-38.976, 100.911, -31.5, 1.054)
pt3dadd(-39.095, 100.928, -31.5, 1.048)
pt3dadd(-39.214, 100.945, -31.5, 1.04)
pt3dadd(-39.332, 100.961, -31.5, 1.032)
pt3dadd(-39.451, 100.978, -31.5, 1.026)
pt3dadd(-39.57, 100.995, -31.5, 1.018)
pt3dadd(-39.689, 101.011, -31.5, 1.012)
pt3dadd(-39.808, 101.028, -31.5, 1.004)
pt3dadd(-39.927, 101.045, -31.5, 1.004)
pt3dadd(-40.045, 101.061, -31.5, 1.004)
pt3dadd(-40.164, 101.078, -31.5, 1.004)
pt3dadd(-40.283, 101.095, -31.5, 1.004)
pt3dadd(-40.402, 101.112, -31.5, 1.004)
pt3dadd(-40.521, 101.128, -31.5, 1.004)
pt3dadd(-40.638, 101.145, -31.501, 1.004)
pt3dadd(-40.756, 101.161, -31.517, 1.008)
}
}
proc shape3d_101() {
dend_5[17] { pt3dadd(-40.874, 101.178, -31.534, 1.012)
pt3dadd(-40.99, 101.194, -31.55, 1.016)
pt3dadd(-41.108, 101.211, -31.567, 1.022)
pt3dadd(-41.225, 101.227, -31.583, 1.026)
pt3dadd(-41.342, 101.244, -31.6, 1.03)
pt3dadd(-41.436, 101.257, -31.661, 1.03)
pt3dadd(-41.528, 101.27, -31.724, 1.03)
pt3dadd(-41.621, 101.283, -31.786, 1.01)
pt3dadd(-41.714, 101.296, -31.849, 0.986)
pt3dadd(-41.824, 101.311, -31.875, 0.966)
pt3dadd(-41.942, 101.328, -31.888, 0.948)
pt3dadd(-42.061, 101.345, -31.9, 0.928)
pt3dadd(-42.18, 101.361, -31.9, 0.912)
pt3dadd(-42.298, 101.378, -31.9, 0.896)
pt3dadd(-42.417, 101.395, -31.9, 0.878)
pt3dadd(-42.536, 101.412, -31.9, 0.854)
pt3dadd(-42.655, 101.428, -31.9, 0.828)
pt3dadd(-42.774, 101.445, -31.902, 0.814)
pt3dadd(-42.893, 101.462, -31.903, 0.8)
pt3dadd(-43.011, 101.478, -31.905, 0.784)
pt3dadd(-43.13, 101.495, -31.906, 0.77)
pt3dadd(-43.249, 101.512, -31.908, 0.756)
pt3dadd(-43.368, 101.528, -31.91, 0.74)
pt3dadd(-43.485, 101.545, -31.913, 0.726)
pt3dadd(-43.603, 101.564, -31.928, 0.714)
pt3dadd(-43.72, 101.583, -31.942, 0.702)
pt3dadd(-43.838, 101.601, -31.957, 0.69)
pt3dadd(-43.955, 101.62, -31.972, 0.676)
pt3dadd(-44.072, 101.639, -31.986, 0.664)
pt3dadd(-44.189, 101.659, -32, 0.652)
pt3dadd(-44.305, 101.692, -32, 0.644)
pt3dadd(-44.42, 101.726, -32, 0.636)
pt3dadd(-44.535, 101.76, -32, 0.628)
pt3dadd(-44.65, 101.793, -32, 0.62)
pt3dadd(-44.766, 101.827, -32, 0.612)
pt3dadd(-44.881, 101.86, -32, 0.604)
pt3dadd(-44.999, 101.863, -32, 0.61)
pt3dadd(-45.119, 101.863, -32, 0.618)
pt3dadd(-45.239, 101.862, -32, 0.626)
pt3dadd(-45.359, 101.862, -32, 0.634)
pt3dadd(-45.479, 101.861, -32, 0.642)
pt3dadd(-45.599, 101.86, -32, 0.65)
pt3dadd(-45.72, 101.856, -32, 0.66)
pt3dadd(-45.84, 101.851, -32, 0.668)
pt3dadd(-45.959, 101.845, -32, 0.676)
pt3dadd(-46.08, 101.84, -32, 0.684)
pt3dadd(-46.199, 101.834, -32, 0.692)
pt3dadd(-46.319, 101.828, -32, 0.7)
pt3dadd(-46.436, 101.804, -32, 0.71)
pt3dadd(-46.551, 101.772, -32, 0.72)
pt3dadd(-46.667, 101.74, -32, 0.728)
pt3dadd(-46.783, 101.708, -32, 0.738)
pt3dadd(-46.899, 101.676, -32, 0.748)
pt3dadd(-47.013, 101.64, -32, 0.756)
pt3dadd(-47.124, 101.595, -32, 0.76)
pt3dadd(-47.235, 101.55, -32, 0.766)
pt3dadd(-47.347, 101.505, -32, 0.77)
pt3dadd(-47.458, 101.46, -32, 0.774)
pt3dadd(-47.572, 101.431, -32, 0.782)
pt3dadd(-47.692, 101.442, -32, 0.792)
pt3dadd(-47.81, 101.452, -32, 0.804)
pt3dadd(-47.93, 101.463, -32, 0.816)
pt3dadd(-48.049, 101.474, -32, 0.826)
pt3dadd(-48.169, 101.485, -32, 0.838)
pt3dadd(-48.289, 101.495, -32, 0.85)
pt3dadd(-48.407, 101.483, -32, 0.87)
pt3dadd(-48.522, 101.454, -32, 0.898)
pt3dadd(-48.639, 101.425, -32, 0.926)
pt3dadd(-48.756, 101.397, -32, 0.954)
pt3dadd(-48.873, 101.368, -32, 0.982)
pt3dadd(-48.987, 101.335, -32, 1.008)
pt3dadd(-49.097, 101.287, -32, 1.028)
pt3dadd(-49.208, 101.239, -32, 1.048)
pt3dadd(-49.318, 101.191, -32, 1.068)
pt3dadd(-49.428, 101.143, -32, 1.088)
pt3dadd(-49.537, 101.093, -32, 1.104)
pt3dadd(-49.638, 101.028, -32, 1.104)
pt3dadd(-49.739, 100.964, -32, 1.104)
pt3dadd(-49.84, 100.9, -32, 1.104)
pt3dadd(-49.941, 100.835, -32, 1.104)
pt3dadd(-50.045, 100.779, -31.998, 1.1)
pt3dadd(-50.163, 100.764, -31.982, 1.07)
pt3dadd(-50.28, 100.749, -31.967, 1.042)
pt3dadd(-50.398, 100.734, -31.952, 1.012)
pt3dadd(-50.516, 100.719, -31.937, 0.982)
pt3dadd(-50.631, 100.703, -31.919, 0.952)
pt3dadd(-50.664, 100.66, -31.83, 0.876)
pt3dadd(-50.701, 100.62, -31.744, 0.802)
pt3dadd(-50.817, 100.637, -31.727, 0.764)
pt3dadd(-50.935, 100.653, -31.709, 0.724)
pt3dadd(-51.047, 100.669, -31.72, 0.692)
pt3dadd(-51.154, 100.684, -31.765, 0.67)
pt3dadd(-51.259, 100.694, -31.811, 0.648)
pt3dadd(-51.361, 100.688, -31.861, 0.622)
pt3dadd(-51.469, 100.682, -31.905, 0.598)
pt3dadd(-51.585, 100.672, -31.926, 0.572)
pt3dadd(-51.702, 100.663, -31.948, 0.548)
pt3dadd(-51.819, 100.654, -31.964, 0.524)
pt3dadd(-51.933, 100.651, -31.933, 0.502)
pt3dadd(-52.047, 100.649, -31.901, 0.478)
pt3dadd(-52.16, 100.618, -31.907, 0.454)
pt3dadd(-52.273, 100.607, -31.939, 0.466)
pt3dadd(-52.387, 100.594, -31.969, 0.482)
pt3dadd(-52.501, 100.564, -31.985, 0.506)
pt3dadd(-52.615, 100.538, -31.996, 0.53)
pt3dadd(-52.722, 100.547, -31.949, 0.566)
pt3dadd(-52.827, 100.556, -31.902, 0.602)
pt3dadd(-52.922, 100.526, -31.847, 0.63)
pt3dadd(-53.019, 100.493, -31.8, 0.658)
pt3dadd(-53.133, 100.455, -31.8, 0.692)
pt3dadd(-53.237, 100.397, -31.8, 0.718)
pt3dadd(-53.335, 100.328, -31.8, 0.742)
pt3dadd(-53.439, 100.27, -31.797, 0.766)
pt3dadd(-53.549, 100.221, -31.792, 0.79)
pt3dadd(-53.644, 100.171, -31.76, 0.816)
pt3dadd(-53.721, 100.12, -31.697, 0.846)
pt3dadd(-53.754, 100.033, -31.642, 0.87)
pt3dadd(-53.768, 99.93, -31.591, 0.892)
pt3dadd(-53.817, 99.841, -31.55, 0.922)
pt3dadd(-53.899, 99.763, -31.517, 0.954)
pt3dadd(-53.982, 99.685, -31.483, 0.988)
pt3dadd(-54.078, 99.641, -31.447, 1.03)
pt3dadd(-54.188, 99.629, -31.408, 1.08)
pt3dadd(-54.282, 99.583, -31.37, 1.168)
pt3dadd(-54.386, 99.532, -31.346, 1.186)
pt3dadd(-54.492, 99.483, -31.324, 1.192)
pt3dadd(-54.599, 99.435, -31.302, 1.196)
pt3dadd(-54.705, 99.387, -31.279, 1.202)
pt3dadd(-54.811, 99.344, -31.251, 1.2)
pt3dadd(-54.918, 99.308, -31.215, 1.186)
pt3dadd(-55.032, 99.301, -31.2, 1.18)
pt3dadd(-55.151, 99.313, -31.2, 1.18)
pt3dadd(-55.271, 99.325, -31.2, 1.18)
pt3dadd(-55.389, 99.317, -31.2, 1.194)
pt3dadd(-55.508, 99.3, -31.2, 1.216)
pt3dadd(-55.622, 99.27, -31.2, 1.244)
pt3dadd(-55.72, 99.201, -31.2, 1.29)
pt3dadd(-55.812, 99.127, -31.2, 1.334)
pt3dadd(-55.871, 99.022, -31.2, 1.35)
pt3dadd(-55.954, 98.945, -31.186, 1.342)
pt3dadd(-56.055, 98.885, -31.164, 1.32)
pt3dadd(-56.155, 98.826, -31.141, 1.296)
pt3dadd(-56.256, 98.766, -31.118, 1.274)
pt3dadd(-56.353, 98.702, -31.095, 1.246)
pt3dadd(-56.438, 98.622, -31.072, 1.2)
pt3dadd(-56.522, 98.541, -31.049, 1.154)
pt3dadd(-56.608, 98.461, -31.027, 1.108)
pt3dadd(-56.693, 98.381, -31.004, 1.062)
pt3dadd(-56.78, 98.304, -30.981, 1.022)
pt3dadd(-56.868, 98.227, -30.958, 0.982)
pt3dadd(-56.956, 98.15, -30.935, 0.94)
pt3dadd(-57.044, 98.073, -30.912, 0.9)
pt3dadd(-57.135, 97.999, -30.891, 0.866)
pt3dadd(-57.23, 97.93, -30.871, 0.838)
pt3dadd(-57.326, 97.861, -30.85, 0.808)
pt3dadd(-57.42, 97.792, -30.83, 0.78)
pt3dadd(-57.516, 97.723, -30.811, 0.754)
pt3dadd(-57.616, 97.657, -30.809, 0.748)
pt3dadd(-57.716, 97.592, -30.806, 0.742)
pt3dadd(-57.816, 97.526, -30.804, 0.738)
pt3dadd(-57.917, 97.46, -30.802, 0.732)
pt3dadd(-58.019, 97.397, -30.8, 0.728)
pt3dadd(-58.128, 97.349, -30.8, 0.722)
pt3dadd(-58.238, 97.301, -30.8, 0.718)
pt3dadd(-58.348, 97.253, -30.8, 0.712)
pt3dadd(-58.459, 97.205, -30.8, 0.708)
pt3dadd(-58.57, 97.159, -30.799, 0.704)
pt3dadd(-58.689, 97.147, -30.793, 0.708)
pt3dadd(-58.807, 97.134, -30.787, 0.712)
pt3dadd(-58.926, 97.121, -30.781, 0.718)
pt3dadd(-59.046, 97.109, -30.775, 0.722)
pt3dadd(-59.165, 97.096, -30.769, 0.726)
pt3dadd(-59.283, 97.1, -30.77, 0.73)
pt3dadd(-59.402, 97.117, -30.777, 0.736)
pt3dadd(-59.521, 97.134, -30.783, 0.74)
pt3dadd(-59.64, 97.15, -30.789, 0.744)
pt3dadd(-59.758, 97.167, -30.795, 0.75)
pt3dadd(-59.876, 97.173, -30.8, 0.76)
pt3dadd(-59.993, 97.145, -30.8, 0.788)
pt3dadd(-60.11, 97.116, -30.8, 0.816)
pt3dadd(-60.225, 97.088, -30.8, 0.844)
pt3dadd(-60.342, 97.059, -30.8, 0.872)
pt3dadd(-60.459, 97.03, -30.8, 0.9)
pt3dadd(-60.566, 96.977, -30.8, 0.934)
pt3dadd(-60.671, 96.919, -30.8, 0.968)
pt3dadd(-60.776, 96.861, -30.8, 1.004)
pt3dadd(-60.881, 96.803, -30.8, 1.038)
pt3dadd(-60.986, 96.745, -30.8, 1.074)
pt3dadd(-61.103, 96.738, -30.8, 1.126)
pt3dadd(-61.224, 96.74, -30.8, 1.182)
pt3dadd(-61.342, 96.734, -30.8, 1.23)
pt3dadd(-61.453, 96.688, -30.8, 1.23)
pt3dadd(-61.564, 96.642, -30.8, 1.23)
pt3dadd(-61.628, 96.542, -30.8, 1.178)
pt3dadd(-61.689, 96.439, -30.8, 1.122)
pt3dadd(-61.772, 96.354, -30.8, 1.05)
pt3dadd(-61.865, 96.278, -30.8, 0.966)
pt3dadd(-61.934, 96.184, -30.8, 0.896)
pt3dadd(-61.982, 96.074, -30.8, 0.834)
pt3dadd(-62.056, 95.984, -30.779, 0.824)
}
}
proc shape3d_102() {
dend_5[17] { pt3dadd(-62.132, 95.895, -30.757, 0.818)
pt3dadd(-62.208, 95.806, -30.734, 0.812)
pt3dadd(-62.284, 95.717, -30.712, 0.806)
pt3dadd(-62.367, 95.634, -30.7, 0.806)
pt3dadd(-62.46, 95.557, -30.7, 0.812)
pt3dadd(-62.552, 95.48, -30.7, 0.816)
pt3dadd(-62.644, 95.404, -30.7, 0.822)
pt3dadd(-62.736, 95.327, -30.7, 0.826)
pt3dadd(-62.829, 95.25, -30.7, 0.832)
pt3dadd(-62.921, 95.174, -30.7, 0.836)
pt3dadd(-63.013, 95.097, -30.7, 0.842)
pt3dadd(-63.105, 95.02, -30.7, 0.846)
pt3dadd(-63.199, 94.943, -30.7, 0.852)
pt3dadd(-63.29, 94.865, -30.7, 0.854)
pt3dadd(-63.378, 94.785, -30.7, 0.854)
pt3dadd(-63.468, 94.706, -30.7, 0.854)
pt3dadd(-63.558, 94.626, -30.7, 0.854)
pt3dadd(-63.648, 94.547, -30.7, 0.854)
pt3dadd(-63.739, 94.469, -30.7, 0.86)
pt3dadd(-63.832, 94.392, -30.7, 0.87)
pt3dadd(-63.924, 94.316, -30.7, 0.88)
pt3dadd(-64.016, 94.239, -30.7, 0.89)
pt3dadd(-64.109, 94.162, -30.7, 0.9)
pt3dadd(-64.202, 94.087, -30.7, 0.904)
pt3dadd(-64.297, 94.014, -30.7, 0.904)
pt3dadd(-64.391, 93.94, -30.7, 0.904)
pt3dadd(-64.487, 93.866, -30.7, 0.904)
pt3dadd(-64.582, 93.792, -30.7, 0.904)
pt3dadd(-64.665, 93.707, -30.7, 0.904)
pt3dadd(-64.745, 93.617, -30.7, 0.904)
pt3dadd(-64.824, 93.527, -30.7, 0.904)
pt3dadd(-64.903, 93.437, -30.7, 0.904)
pt3dadd(-64.983, 93.347, -30.7, 0.904)
pt3dadd(-65.073, 93.269, -30.7, 0.892)
pt3dadd(-65.169, 93.199, -30.7, 0.87)
pt3dadd(-65.267, 93.128, -30.7, 0.85)
pt3dadd(-65.364, 93.057, -30.7, 0.83)
pt3dadd(-65.461, 92.987, -30.7, 0.81)
pt3dadd(-65.566, 92.929, -30.7, 0.794)
pt3dadd(-65.674, 92.878, -30.7, 0.778)
pt3dadd(-65.783, 92.826, -30.7, 0.764)
pt3dadd(-65.891, 92.775, -30.7, 0.748)
pt3dadd(-66, 92.724, -30.7, 0.734)
pt3dadd(-66.087, 92.646, -30.7, 0.706)
pt3dadd(-66.161, 92.551, -30.7, 0.672)
pt3dadd(-66.236, 92.457, -30.7, 0.648)
pt3dadd(-66.311, 92.364, -30.7, 0.636)
pt3dadd(-66.393, 92.28, -30.7, 0.624)
pt3dadd(-66.501, 92.226, -30.7, 0.614)
pt3dadd(-66.609, 92.175, -30.7, 0.604)
pt3dadd(-66.725, 92.144, -30.7, 0.614)
pt3dadd(-66.84, 92.113, -30.7, 0.626)
pt3dadd(-66.951, 92.067, -30.7, 0.642)
pt3dadd(-67.052, 92.005, -30.7, 0.654)
pt3dadd(-67.137, 91.92, -30.7, 0.66)
pt3dadd(-67.221, 91.835, -30.7, 0.664)
pt3dadd(-67.306, 91.75, -30.7, 0.67)
pt3dadd(-67.39, 91.665, -30.7, 0.674)
pt3dadd(-67.47, 91.576, -30.693, 0.68)
pt3dadd(-67.539, 91.481, -30.674, 0.686)
pt3dadd(-67.608, 91.385, -30.655, 0.69)
pt3dadd(-67.677, 91.29, -30.635, 0.696)
pt3dadd(-67.745, 91.194, -30.616, 0.702)
pt3dadd(-67.808, 91.093, -30.61, 0.714)
pt3dadd(-67.868, 90.989, -30.607, 0.728)
pt3dadd(-67.929, 90.885, -30.605, 0.742)
pt3dadd(-67.99, 90.782, -30.603, 0.756)
pt3dadd(-68.05, 90.678, -30.601, 0.77)
pt3dadd(-68.125, 90.587, -30.6, 0.79)
pt3dadd(-68.217, 90.51, -30.6, 0.816)
pt3dadd(-68.31, 90.434, -30.6, 0.84)
pt3dadd(-68.402, 90.357, -30.6, 0.866)
pt3dadd(-68.494, 90.28, -30.6, 0.892)
pt3dadd(-68.589, 90.207, -30.6, 0.94)
pt3dadd(-68.688, 90.139, -30.6, 1.01)
pt3dadd(-68.791, 90.079, -30.6, 1.08)
pt3dadd(-68.902, 90.033, -30.6, 1.15)
pt3dadd(-69.015, 89.998, -30.599, 1.216)
pt3dadd(-69.134, 90.01, -30.595, 1.27)
pt3dadd(-69.252, 90.022, -30.591, 1.324)
pt3dadd(-69.368, 90.027, -30.571, 1.372)
pt3dadd(-69.475, 90.022, -30.527, 1.408)
pt3dadd(-69.556, 90.001, -30.466, 1.416)
pt3dadd(-69.596, 89.959, -30.38, 1.372)
pt3dadd(-69.66, 89.961, -30.295, 1.276)
pt3dadd(-69.723, 89.964, -30.211, 1.18)
pt3dadd(-69.838, 89.94, -30.189, 1.082)
pt3dadd(-69.954, 89.917, -30.168, 0.984)
pt3dadd(-70.052, 89.865, -30.131, 0.912)
pt3dadd(-70.153, 89.82, -30.1, 0.852)
pt3dadd(-70.273, 89.822, -30.1, 0.842)
pt3dadd(-70.393, 89.824, -30.1, 0.834)
pt3dadd(-70.512, 89.817, -30.1, 0.844)
pt3dadd(-70.631, 89.8, -30.1, 0.874)
pt3dadd(-70.735, 89.743, -30.1, 0.904)
pt3dadd(-70.836, 89.679, -30.1, 0.936)
pt3dadd(-70.937, 89.614, -30.1, 0.966)
pt3dadd(-71.04, 89.55, -30.1, 0.996)
pt3dadd(-71.141, 89.485, -30.1, 1.026)
pt3dadd(-71.222, 89.399, -30.094, 1.09)
pt3dadd(-71.302, 89.309, -30.087, 1.158)
pt3dadd(-71.382, 89.22, -30.08, 1.226)
pt3dadd(-71.461, 89.13, -30.073, 1.292)
pt3dadd(-71.541, 89.042, -30.066, 1.362)
pt3dadd(-71.634, 88.968, -30.048, 1.44)
pt3dadd(-71.726, 88.893, -30.031, 1.518)
pt3dadd(-71.817, 88.819, -30.013, 1.598)
pt3dadd(-71.909, 88.744, -29.996, 1.676)
pt3dadd(-72.007, 88.687, -29.967, 1.74)
pt3dadd(-72.108, 88.641, -29.93, 1.792)
pt3dadd(-72.21, 88.595, -29.894, 1.846)
pt3dadd(-72.312, 88.549, -29.857, 1.9)
pt3dadd(-72.42, 88.517, -29.828, 1.922)
pt3dadd(-72.538, 88.51, -29.814, 1.89)
pt3dadd(-72.655, 88.499, -29.8, 1.85)
pt3dadd(-72.753, 88.43, -29.8, 1.72)
pt3dadd(-72.852, 88.362, -29.8, 1.59)
pt3dadd(-72.97, 88.348, -29.8, 1.46)
pt3dadd(-73.089, 88.338, -29.8, 1.33)
pt3dadd(-73.19, 88.292, -29.8, 1.206)
pt3dadd(-73.264, 88.198, -29.8, 1.092)
pt3dadd(-73.33, 88.099, -29.8, 0.98)
pt3dadd(-73.37, 87.986, -29.8, 0.876)
pt3dadd(-73.407, 87.872, -29.796, 0.816)
pt3dadd(-73.442, 87.758, -29.788, 0.796)
pt3dadd(-73.477, 87.643, -29.78, 0.774)
pt3dadd(-73.512, 87.529, -29.773, 0.752)
pt3dadd(-73.546, 87.414, -29.765, 0.73)
pt3dadd(-73.582, 87.3, -29.757, 0.708)
pt3dadd(-73.638, 87.202, -29.727, 0.686)
pt3dadd(-73.701, 87.109, -29.692, 0.662)
pt3dadd(-73.763, 87.016, -29.656, 0.638)
pt3dadd(-73.825, 86.923, -29.62, 0.616)
pt3dadd(-73.894, 86.832, -29.59, 0.602)
pt3dadd(-73.969, 86.743, -29.568, 0.602)
pt3dadd(-74.046, 86.654, -29.546, 0.602)
pt3dadd(-74.121, 86.565, -29.523, 0.602)
pt3dadd(-74.197, 86.476, -29.501, 0.602)
pt3dadd(-74.257, 86.372, -29.5, 0.608)
pt3dadd(-74.317, 86.268, -29.5, 0.612)
pt3dadd(-74.376, 86.164, -29.5, 0.616)
pt3dadd(-74.436, 86.06, -29.5, 0.622)
pt3dadd(-74.495, 85.956, -29.5, 0.626)
pt3dadd(-74.564, 85.857, -29.5, 0.636)
pt3dadd(-74.638, 85.762, -29.5, 0.652)
pt3dadd(-74.712, 85.668, -29.5, 0.666)
pt3dadd(-74.785, 85.573, -29.5, 0.68)
pt3dadd(-74.858, 85.478, -29.5, 0.696)
pt3dadd(-74.936, 85.387, -29.5, 0.706)
pt3dadd(-75.018, 85.299, -29.5, 0.71)
pt3dadd(-75.1, 85.212, -29.5, 0.716)
pt3dadd(-75.182, 85.124, -29.5, 0.72)
pt3dadd(-75.264, 85.036, -29.5, 0.726)
pt3dadd(-75.357, 84.963, -29.5, 0.734)
pt3dadd(-75.464, 84.91, -29.5, 0.744)
pt3dadd(-75.573, 84.858, -29.5, 0.75)
pt3dadd(-75.684, 84.813, -29.5, 0.738)
pt3dadd(-75.794, 84.767, -29.5, 0.726)
pt3dadd(-75.905, 84.721, -29.5, 0.692)
pt3dadd(-76.017, 84.675, -29.5, 0.656)
pt3dadd(-76.084, 84.578, -29.5, 0.624)
pt3dadd(-76.144, 84.475, -29.5, 0.59)
pt3dadd(-76.183, 84.363, -29.5, 0.562)
pt3dadd(-76.207, 84.246, -29.5, 0.534)
pt3dadd(-76.242, 84.133, -29.486, 0.528)
pt3dadd(-76.281, 84.021, -29.467, 0.528)
pt3dadd(-76.319, 83.91, -29.448, 0.528)
pt3dadd(-76.358, 83.799, -29.429, 0.528)
pt3dadd(-76.398, 83.688, -29.409, 0.528)
pt3dadd(-76.432, 83.58, -29.379, 0.528)
pt3dadd(-76.464, 83.476, -29.337, 0.528)
pt3dadd(-76.496, 83.371, -29.296, 0.528)
pt3dadd(-76.527, 83.267, -29.254, 0.528)
pt3dadd(-76.558, 83.162, -29.213, 0.528)
pt3dadd(-76.589, 83.05, -29.2, 0.54)
pt3dadd(-76.621, 82.934, -29.2, 0.558)
pt3dadd(-76.652, 82.818, -29.2, 0.578)
pt3dadd(-76.669, 82.699, -29.2, 0.602)
pt3dadd(-76.686, 82.58, -29.2, 0.628)
pt3dadd(-76.702, 82.461, -29.2, 0.654)
pt3dadd(-76.724, 82.344, -29.2, 0.688)
pt3dadd(-76.745, 82.225, -29.2, 0.722)
pt3dadd(-76.776, 82.115, -29.199, 0.758)
pt3dadd(-76.885, 82.066, -29.194, 0.794)
pt3dadd(-76.995, 82.018, -29.188, 0.83)
pt3dadd(-77.103, 82.002, -29.145, 0.928)
pt3dadd(-77.195, 81.938, -29.128, 0.978)
pt3dadd(-77.283, 81.857, -29.121, 1.01)
pt3dadd(-77.371, 81.776, -29.114, 1.04)
pt3dadd(-77.458, 81.695, -29.107, 1.072)
pt3dadd(-77.547, 81.614, -29.1, 1.104)
pt3dadd(-77.61, 81.511, -29.1, 1.132)
pt3dadd(-77.672, 81.409, -29.1, 1.16)
pt3dadd(-77.735, 81.306, -29.1, 1.19)
pt3dadd(-77.798, 81.204, -29.1, 1.218)
pt3dadd(-77.859, 81.101, -29.1, 1.246)
pt3dadd(-77.905, 80.992, -29.092, 1.256)
pt3dadd(-77.94, 80.878, -29.08, 1.256)
pt3dadd(-77.976, 80.764, -29.068, 1.256)
pt3dadd(-78.011, 80.651, -29.056, 1.256)
}
}
proc shape3d_103() {
dend_5[17] { pt3dadd(-78.046, 80.537, -29.044, 1.256)
pt3dadd(-78.08, 80.422, -29.032, 1.252)
pt3dadd(-78.096, 80.305, -29.02, 1.214)
pt3dadd(-78.113, 80.187, -29.007, 1.178)
pt3dadd(-78.129, 80.071, -28.986, 1.12)
pt3dadd(-78.145, 79.959, -28.953, 1.034)
pt3dadd(-78.161, 79.848, -28.919, 0.95)
pt3dadd(-78.203, 79.761, -28.86, 0.884)
pt3dadd(-78.255, 79.68, -28.807, 0.822)
pt3dadd(-78.362, 79.631, -28.784, 0.782)
pt3dadd(-78.458, 79.586, -28.746, 0.754)
pt3dadd(-78.529, 79.551, -28.671, 0.754)
pt3dadd(-78.588, 79.507, -28.592, 0.754)
pt3dadd(-78.656, 79.471, -28.518, 0.75)
pt3dadd(-78.751, 79.455, -28.458, 0.736)
pt3dadd(-78.825, 79.412, -28.399, 0.722)
pt3dadd(-78.866, 79.325, -28.34, 0.71)
pt3dadd(-78.912, 79.226, -28.309, 0.698)
pt3dadd(-78.962, 79.117, -28.304, 0.686)
pt3dadd(-79.006, 79.006, -28.3, 0.678)
pt3dadd(-79.022, 78.888, -28.3, 0.678)
pt3dadd(-79.047, 78.771, -28.299, 0.678)
pt3dadd(-79.107, 78.667, -28.292, 0.678)
pt3dadd(-79.165, 78.563, -28.286, 0.678)
pt3dadd(-79.224, 78.459, -28.279, 0.678)
pt3dadd(-79.284, 78.355, -28.273, 0.678)
pt3dadd(-79.343, 78.251, -28.267, 0.678)
pt3dadd(-79.421, 78.16, -28.267, 0.672)
pt3dadd(-79.501, 78.07, -28.267, 0.666)
pt3dadd(-79.579, 77.979, -28.267, 0.66)
pt3dadd(-79.657, 77.888, -28.267, 0.654)
pt3dadd(-79.747, 77.811, -28.251, 0.642)
pt3dadd(-79.836, 77.734, -28.235, 0.628)
pt3dadd(-79.927, 77.657, -28.219, 0.616)
pt3dadd(-80.017, 77.581, -28.202, 0.604)
pt3dadd(-80.13, 77.544, -28.2, 0.574)
pt3dadd(-80.245, 77.513, -28.2, 0.542)
pt3dadd(-80.362, 77.486, -28.197, 0.52)
pt3dadd(-80.48, 77.46, -28.192, 0.51)
pt3dadd(-80.585, 77.442, -28.165, 0.506)
pt3dadd(-80.668, 77.441, -28.092, 0.52)
pt3dadd(-80.755, 77.423, -28.029, 0.542)
pt3dadd(-80.853, 77.376, -27.985, 0.584)
pt3dadd(-80.955, 77.328, -27.955, 0.612)
pt3dadd(-81.062, 77.281, -27.934, 0.628)
pt3dadd(-81.169, 77.233, -27.913, 0.642)
pt3dadd(-81.277, 77.186, -27.906, 0.658)
pt3dadd(-81.386, 77.14, -27.923, 0.67)
pt3dadd(-81.48, 77.098, -27.962, 0.678)
pt3dadd(-81.564, 77.031, -28, 0.682)
pt3dadd(-81.651, 76.955, -28.029, 0.688)
pt3dadd(-81.737, 76.879, -28.057, 0.694)
pt3dadd(-81.822, 76.803, -28.086, 0.7)
pt3dadd(-81.919, 76.736, -28.1, 0.706)
pt3dadd(-82.024, 76.678, -28.1, 0.71)
pt3dadd(-82.129, 76.62, -28.1, 0.716)
pt3dadd(-82.234, 76.562, -28.1, 0.72)
pt3dadd(-82.34, 76.504, -28.1, 0.726)
pt3dadd(-82.452, 76.477, -28.1, 0.732)
pt3dadd(-82.572, 76.478, -28.1, 0.742)
pt3dadd(-82.692, 76.48, -28.1, 0.752)
pt3dadd(-82.78, 76.408, -28.1, 0.754)
pt3dadd(-82.861, 76.319, -28.1, 0.754)
pt3dadd(-82.905, 76.212, -28.1, 0.76)
pt3dadd(-82.931, 76.095, -28.1, 0.768)
pt3dadd(-82.958, 75.978, -28.1, 0.778)
pt3dadd(-83.043, 75.897, -28.1, 0.81)
pt3dadd(-83.136, 75.821, -28.1, 0.846)
pt3dadd(-83.195, 75.72, -28.1, 0.888)
pt3dadd(-83.244, 75.61, -28.1, 0.93)
pt3dadd(-83.292, 75.501, -28.1, 0.93)
pt3dadd(-83.342, 75.391, -28.1, 0.93)
pt3dadd(-83.382, 75.278, -28.1, 0.908)
pt3dadd(-83.418, 75.164, -28.1, 0.88)
pt3dadd(-83.457, 75.05, -28.1, 0.85)
pt3dadd(-83.512, 74.944, -28.1, 0.818)
pt3dadd(-83.567, 74.837, -28.1, 0.786)
pt3dadd(-83.642, 74.744, -28.1, 0.788)
pt3dadd(-83.724, 74.656, -28.1, 0.798)
pt3dadd(-83.827, 74.627, -28.1, 0.812)
pt3dadd(-83.947, 74.636, -28.1, 0.824)
pt3dadd(-84.045, 74.583, -28.1, 0.832)
pt3dadd(-84.135, 74.503, -28.1, 0.838)
pt3dadd(-84.225, 74.423, -28.1, 0.842)
pt3dadd(-84.315, 74.344, -28.1, 0.848)
pt3dadd(-84.405, 74.264, -28.1, 0.852)
pt3dadd(-84.506, 74.201, -28.1, 0.85)
pt3dadd(-84.611, 74.143, -28.1, 0.846)
pt3dadd(-84.717, 74.085, -28.1, 0.84)
pt3dadd(-84.822, 74.027, -28.1, 0.836)
pt3dadd(-84.927, 73.969, -28.1, 0.83)
pt3dadd(-85.036, 73.918, -28.1, 0.832)
pt3dadd(-85.145, 73.87, -28.1, 0.838)
pt3dadd(-85.255, 73.822, -28.1, 0.842)
pt3dadd(-85.365, 73.774, -28.1, 0.848)
pt3dadd(-85.475, 73.726, -28.1, 0.852)
pt3dadd(-85.563, 73.649, -28.1, 0.856)
pt3dadd(-85.639, 73.557, -28.1, 0.862)
pt3dadd(-85.716, 73.464, -28.1, 0.866)
pt3dadd(-85.792, 73.372, -28.1, 0.872)
pt3dadd(-85.869, 73.279, -28.1, 0.876)
pt3dadd(-85.955, 73.196, -28.1, 0.892)
pt3dadd(-86.048, 73.121, -28.1, 0.916)
pt3dadd(-86.133, 73.037, -28.1, 0.95)
pt3dadd(-86.208, 72.943, -28.1, 0.996)
pt3dadd(-86.288, 72.855, -28.1, 1.05)
pt3dadd(-86.387, 72.787, -28.1, 1.134)
pt3dadd(-86.487, 72.727, -28.1, 1.212)
pt3dadd(-86.608, 72.729, -28.1, 1.268)
pt3dadd(-86.728, 72.731, -28.1, 1.324)
pt3dadd(-86.847, 72.736, -28.1, 1.362)
pt3dadd(-86.967, 72.746, -28.1, 1.376)
pt3dadd(-87.08, 72.72, -28.1, 1.37)
pt3dadd(-87.187, 72.666, -28.1, 1.35)
pt3dadd(-87.294, 72.611, -28.1, 1.33)
pt3dadd(-87.401, 72.556, -28.1, 1.31)
pt3dadd(-87.507, 72.501, -28.1, 1.29)
pt3dadd(-87.618, 72.456, -28.1, 1.258)
pt3dadd(-87.732, 72.417, -28.1, 1.212)
pt3dadd(-87.847, 72.394, -28.096, 1.178)
pt3dadd(-87.965, 72.405, -28.083, 1.168)
pt3dadd(-88.083, 72.416, -28.07, 1.158)
pt3dadd(-88.146, 72.367, -28.016, 1.164)
pt3dadd(-88.184, 72.293, -27.944, 1.178)
pt3dadd(-88.242, 72.195, -27.92, 1.17)
pt3dadd(-88.301, 72.093, -27.903, 1.158)
pt3dadd(-88.382, 72.006, -27.9, 1.072)
pt3dadd(-88.472, 71.93, -27.888, 0.988)
pt3dadd(-88.564, 71.866, -27.853, 0.94)
pt3dadd(-88.657, 71.802, -27.819, 0.892)
pt3dadd(-88.75, 71.738, -27.784, 0.844)
pt3dadd(-88.84, 71.683, -27.743, 0.79)
pt3dadd(-88.919, 71.673, -27.668, 0.712)
pt3dadd(-89.005, 71.654, -27.61, 0.652)
pt3dadd(-89.114, 71.605, -27.605, 0.652)
pt3dadd(-89.218, 71.549, -27.6, 0.656)
pt3dadd(-89.293, 71.456, -27.6, 0.68)
pt3dadd(-89.367, 71.361, -27.6, 0.702)
pt3dadd(-89.424, 71.264, -27.633, 0.728)
pt3dadd(-89.482, 71.168, -27.668, 0.752)
pt3dadd(-89.58, 71.114, -27.705, 0.732)
pt3dadd(-89.675, 71.048, -27.728, 0.724)
pt3dadd(-89.77, 70.979, -27.748, 0.718)
pt3dadd(-89.866, 70.91, -27.768, 0.712)
pt3dadd(-89.96, 70.841, -27.789, 0.706)
pt3dadd(-90.044, 70.761, -27.791, 0.7)
pt3dadd(-90.114, 70.667, -27.768, 0.696)
pt3dadd(-90.183, 70.572, -27.746, 0.69)
pt3dadd(-90.254, 70.479, -27.724, 0.684)
pt3dadd(-90.322, 70.384, -27.702, 0.678)
pt3dadd(-90.423, 70.32, -27.7, 0.678)
pt3dadd(-90.526, 70.259, -27.7, 0.678)
pt3dadd(-90.629, 70.197, -27.7, 0.678)
pt3dadd(-90.732, 70.136, -27.7, 0.678)
pt3dadd(-90.836, 70.075, -27.7, 0.678)
pt3dadd(-90.95, 70.041, -27.7, 0.678)
pt3dadd(-91.066, 70.009, -27.7, 0.678)
pt3dadd(-91.182, 69.977, -27.7, 0.678)
pt3dadd(-91.298, 69.945, -27.7, 0.678)
pt3dadd(-91.413, 69.913, -27.7, 0.678)
pt3dadd(-91.524, 69.869, -27.7, 0.678)
pt3dadd(-91.631, 69.815, -27.7, 0.678)
pt3dadd(-91.726, 69.751, -27.684, 0.684)
pt3dadd(-91.805, 69.672, -27.647, 0.698)
pt3dadd(-91.885, 69.589, -27.622, 0.72)
pt3dadd(-91.967, 69.503, -27.605, 0.746)
pt3dadd(-92.075, 69.485, -27.6, 0.778)
pt3dadd(-92.195, 69.498, -27.6, 0.812)
pt3dadd(-92.313, 69.51, -27.6, 0.848)
pt3dadd(-92.432, 69.525, -27.6, 0.924)
pt3dadd(-92.551, 69.542, -27.6, 1.012)
pt3dadd(-92.668, 69.54, -27.584, 1.064)
pt3dadd(-92.787, 69.533, -27.565, 1.108)
pt3dadd(-92.904, 69.526, -27.546, 1.152)
pt3dadd(-93.021, 69.519, -27.527, 1.196)
pt3dadd(-93.139, 69.513, -27.508, 1.238)
pt3dadd(-93.258, 69.518, -27.5, 1.292)
pt3dadd(-93.378, 69.53, -27.5, 1.354)
pt3dadd(-93.497, 69.542, -27.5, 1.414)
pt3dadd(-93.614, 69.523, -27.5, 1.44)
pt3dadd(-93.729, 69.492, -27.5, 1.45)
pt3dadd(-93.828, 69.435, -27.5, 1.446)
pt3dadd(-93.902, 69.341, -27.5, 1.424)
pt3dadd(-93.977, 69.247, -27.5, 1.406)
pt3dadd(-94.052, 69.153, -27.5, 1.406)
pt3dadd(-94.128, 69.06, -27.5, 1.406)
pt3dadd(-94.231, 68.999, -27.5, 1.424)
pt3dadd(-94.336, 68.942, -27.5, 1.422)
pt3dadd(-94.443, 68.887, -27.5, 1.408)
pt3dadd(-94.55, 68.833, -27.5, 1.392)
pt3dadd(-94.657, 68.778, -27.5, 1.378)
pt3dadd(-94.763, 68.723, -27.5, 1.362)
pt3dadd(-94.863, 68.657, -27.5, 1.328)
pt3dadd(-94.957, 68.583, -27.5, 1.284)
pt3dadd(-95.053, 68.51, -27.5, 1.238)
pt3dadd(-95.148, 68.436, -27.5, 1.192)
pt3dadd(-95.242, 68.362, -27.5, 1.146)
pt3dadd(-95.352, 68.325, -27.499, 1.1)
pt3dadd(-95.471, 68.308, -27.497, 1.056)
pt3dadd(-95.59, 68.291, -27.495, 1.01)
}
}
proc shape3d_104() {
dend_5[17] { pt3dadd(-95.709, 68.273, -27.493, 0.966)
pt3dadd(-95.827, 68.256, -27.491, 0.92)
pt3dadd(-95.944, 68.234, -27.487, 0.876)
pt3dadd(-96.039, 68.165, -27.467, 0.842)
pt3dadd(-96.135, 68.096, -27.447, 0.808)
pt3dadd(-96.229, 68.027, -27.427, 0.774)
pt3dadd(-96.325, 67.958, -27.406, 0.74)
pt3dadd(-96.425, 67.894, -27.4, 0.722)
pt3dadd(-96.528, 67.833, -27.4, 0.712)
pt3dadd(-96.631, 67.772, -27.4, 0.702)
pt3dadd(-96.734, 67.711, -27.4, 0.692)
pt3dadd(-96.838, 67.65, -27.4, 0.682)
pt3dadd(-96.943, 67.593, -27.4, 0.682)
pt3dadd(-97.05, 67.538, -27.4, 0.686)
pt3dadd(-97.158, 67.484, -27.4, 0.692)
pt3dadd(-97.265, 67.429, -27.4, 0.696)
pt3dadd(-97.37, 67.374, -27.4, 0.702)
pt3dadd(-97.473, 67.311, -27.4, 0.706)
pt3dadd(-97.572, 67.243, -27.4, 0.712)
pt3dadd(-97.671, 67.176, -27.4, 0.716)
pt3dadd(-97.77, 67.108, -27.4, 0.722)
pt3dadd(-97.869, 67.041, -27.4, 0.726)
pt3dadd(-97.977, 66.99, -27.4, 0.728)
pt3dadd(-98.089, 66.945, -27.4, 0.728)
pt3dadd(-98.2, 66.9, -27.4, 0.728)
pt3dadd(-98.311, 66.855, -27.4, 0.728)
pt3dadd(-98.423, 66.81, -27.4, 0.728)
pt3dadd(-98.538, 66.782, -27.4, 0.722)
pt3dadd(-98.657, 66.766, -27.4, 0.714)
pt3dadd(-98.775, 66.749, -27.4, 0.706)
pt3dadd(-98.895, 66.733, -27.4, 0.696)
pt3dadd(-99.014, 66.716, -27.4, 0.688)
pt3dadd(-99.133, 66.699, -27.4, 0.678)
pt3dadd(-99.241, 66.651, -27.4, 0.668)
pt3dadd(-99.35, 66.599, -27.4, 0.658)
pt3dadd(-99.458, 66.548, -27.4, 0.648)
pt3dadd(-99.567, 66.497, -27.4, 0.638)
pt3dadd(-99.676, 66.445, -27.4, 0.63)
pt3dadd(-99.794, 66.432, -27.4, 0.628)
pt3dadd(-99.913, 66.423, -27.4, 0.628)
pt3dadd(-100.033, 66.415, -27.4, 0.628)
pt3dadd(-100.153, 66.407, -27.4, 0.628)
pt3dadd(-100.273, 66.399, -27.4, 0.628)
pt3dadd(-100.393, 66.39, -27.4, 0.628)
pt3dadd(-100.511, 66.368, -27.4, 0.632)
pt3dadd(-100.628, 66.346, -27.4, 0.636)
pt3dadd(-100.746, 66.323, -27.4, 0.642)
pt3dadd(-100.865, 66.301, -27.4, 0.646)
pt3dadd(-100.982, 66.278, -27.4, 0.65)
pt3dadd(-101.099, 66.261, -27.391, 0.66)
pt3dadd(-101.217, 66.252, -27.372, 0.674)
pt3dadd(-101.335, 66.242, -27.352, 0.69)
pt3dadd(-101.451, 66.232, -27.333, 0.704)
pt3dadd(-101.569, 66.222, -27.313, 0.718)
pt3dadd(-101.686, 66.221, -27.3, 0.734)
pt3dadd(-101.805, 66.238, -27.3, 0.752)
pt3dadd(-101.924, 66.255, -27.3, 0.77)
pt3dadd(-102.043, 66.271, -27.3, 0.788)
pt3dadd(-102.162, 66.288, -27.3, 0.806)
pt3dadd(-102.281, 66.305, -27.3, 0.824)
pt3dadd(-102.399, 66.321, -27.3, 0.842)
pt3dadd(-102.518, 66.324, -27.3, 0.864)
pt3dadd(-102.635, 66.298, -27.3, 0.89)
pt3dadd(-102.752, 66.273, -27.3, 0.918)
pt3dadd(-102.869, 66.247, -27.3, 0.946)
pt3dadd(-102.987, 66.222, -27.3, 0.974)
pt3dadd(-103.104, 66.196, -27.3, 1.002)
pt3dadd(-103.223, 66.207, -27.3, 1.014)
pt3dadd(-103.342, 66.221, -27.3, 1.026)
pt3dadd(-103.461, 66.236, -27.3, 1.036)
pt3dadd(-103.58, 66.251, -27.3, 1.048)
pt3dadd(-103.699, 66.266, -27.3, 1.058)
pt3dadd(-103.818, 66.28, -27.3, 1.068)
pt3dadd(-103.937, 66.295, -27.3, 1.08)
pt3dadd(-104.055, 66.27, -27.3, 1.066)
pt3dadd(-104.172, 66.244, -27.3, 1.052)
pt3dadd(-104.289, 66.219, -27.3, 1.038)
pt3dadd(-104.406, 66.193, -27.3, 1.024)
pt3dadd(-104.524, 66.168, -27.3, 1.01)
pt3dadd(-104.642, 66.162, -27.293, 0.972)
pt3dadd(-104.76, 66.174, -27.28, 0.914)
pt3dadd(-104.879, 66.185, -27.267, 0.856)
pt3dadd(-104.977, 66.133, -27.231, 0.772)
pt3dadd(-105.07, 66.074, -27.194, 0.7)
pt3dadd(-105.14, 65.988, -27.157, 0.686)
pt3dadd(-105.208, 65.896, -27.128, 0.686)
pt3dadd(-105.268, 65.794, -27.111, 0.71)
pt3dadd(-105.343, 65.71, -27.1, 0.734)
pt3dadd(-105.457, 65.672, -27.1, 0.754)
pt3dadd(-105.57, 65.633, -27.1, 0.774)
pt3dadd(-105.684, 65.595, -27.1, 0.794)
pt3dadd(-105.801, 65.579, -27.1, 0.794)
pt3dadd(-105.922, 65.581, -27.1, 0.774)
pt3dadd(-106.042, 65.583, -27.1, 0.756)
pt3dadd(-106.156, 65.553, -27.1, 0.676)
pt3dadd(-106.276, 65.543, -27.1, 0.668)
pt3dadd(-106.395, 65.531, -27.1, 0.66)
pt3dadd(-106.515, 65.52, -27.1, 0.652)
pt3dadd(-106.635, 65.51, -27.1, 0.642)
pt3dadd(-106.754, 65.499, -27.1, 0.634)
pt3dadd(-106.872, 65.483, -27.1, 0.63)
pt3dadd(-106.99, 65.458, -27.1, 0.64)
pt3dadd(-107.107, 65.432, -27.1, 0.65)
pt3dadd(-107.225, 65.407, -27.1, 0.658)
pt3dadd(-107.342, 65.381, -27.1, 0.668)
pt3dadd(-107.459, 65.355, -27.1, 0.676)
pt3dadd(-107.578, 65.362, -27.1, 0.7)
pt3dadd(-107.697, 65.374, -27.1, 0.726)
pt3dadd(-107.817, 65.386, -27.1, 0.752)
pt3dadd(-107.936, 65.403, -27.1, 0.778)
pt3dadd(-108.054, 65.42, -27.1, 0.802)
pt3dadd(-108.173, 65.436, -27.1, 0.828)
pt3dadd(-108.293, 65.449, -27.1, 0.862)
pt3dadd(-108.412, 65.461, -27.1, 0.896)
pt3dadd(-108.531, 65.468, -27.1, 0.932)
pt3dadd(-108.638, 65.415, -27.1, 0.966)
pt3dadd(-108.746, 65.361, -27.1, 1.002)
pt3dadd(-108.818, 65.266, -27.1, 1.004)
pt3dadd(-108.904, 65.193, -27.1, 0.996)
pt3dadd(-109.019, 65.155, -27.1, 0.976)
pt3dadd(-109.132, 65.117, -27.1, 0.958)
pt3dadd(-109.246, 65.078, -27.1, 0.938)
pt3dadd(-109.359, 65.04, -27.1, 0.92)
pt3dadd(-109.474, 65.013, -27.097, 0.898)
pt3dadd(-109.591, 65.03, -27.08, 0.874)
pt3dadd(-109.709, 65.046, -27.064, 0.85)
pt3dadd(-109.825, 65.063, -27.047, 0.824)
pt3dadd(-109.943, 65.079, -27.031, 0.8)
pt3dadd(-110.061, 65.096, -27.014, 0.774)
pt3dadd(-110.177, 65.112, -27, 0.75)
pt3dadd(-110.296, 65.129, -27, 0.734)
pt3dadd(-110.415, 65.145, -27, 0.716)
pt3dadd(-110.534, 65.162, -27, 0.698)
pt3dadd(-110.652, 65.179, -27, 0.68)
pt3dadd(-110.771, 65.196, -27, 0.662)
pt3dadd(-110.89, 65.212, -27, 0.644)
pt3dadd(-111.009, 65.229, -26.997, 0.622)
pt3dadd(-111.124, 65.245, -26.973, 0.58)
pt3dadd(-111.239, 65.261, -26.948, 0.538)
pt3dadd(-111.355, 65.278, -26.924, 0.494)
pt3dadd(-111.47, 65.294, -26.9, 0.452)
}
dend_5[18] {pt3dclear()
pt3dadd(14.09, 105.086, -18.2, 1.156)
pt3dadd(14.091, 104.983, -18.181, 1.146)
pt3dadd(14.093, 104.866, -18.158, 1.134)
pt3dadd(14.094, 104.749, -18.136, 1.122)
pt3dadd(14.096, 104.632, -18.114, 1.112)
pt3dadd(14.098, 104.515, -18.092, 1.1)
pt3dadd(14.099, 104.398, -18.07, 1.09)
pt3dadd(14.101, 104.281, -18.048, 1.078)
pt3dadd(14.102, 104.164, -18.026, 1.066)
pt3dadd(14.104, 104.047, -18.004, 1.056)
pt3dadd(14.105, 103.93, -17.982, 1.044)
pt3dadd(14.107, 103.813, -17.959, 1.034)
pt3dadd(14.109, 103.696, -17.937, 1.022)
pt3dadd(14.11, 103.579, -17.915, 1.01)
pt3dadd(14.112, 103.462, -17.893, 1)
pt3dadd(14.113, 103.345, -17.871, 0.988)
pt3dadd(14.115, 103.228, -17.849, 0.978)
pt3dadd(14.116, 103.111, -17.827, 0.966)
pt3dadd(14.118, 102.994, -17.805, 0.954)
pt3dadd(14.119, 102.877, -17.782, 0.944)
pt3dadd(14.121, 102.76, -17.76, 0.932)
pt3dadd(14.123, 102.643, -17.738, 0.922)
pt3dadd(14.124, 102.526, -17.716, 0.91)
pt3dadd(14.126, 102.409, -17.694, 0.9)
pt3dadd(14.127, 102.292, -17.672, 0.888)
pt3dadd(14.129, 102.175, -17.65, 0.876)
pt3dadd(14.13, 102.058, -17.628, 0.866)
pt3dadd(14.132, 101.941, -17.605, 0.854)
pt3dadd(14.133, 101.824, -17.583, 0.842)
pt3dadd(14.135, 101.707, -17.561, 0.832)
pt3dadd(14.136, 101.59, -17.539, 0.82)
pt3dadd(14.138, 101.473, -17.517, 0.81)
pt3dadd(14.14, 101.356, -17.495, 0.798)
pt3dadd(14.141, 101.239, -17.473, 0.788)
pt3dadd(14.13, 101.127, -17.465, 0.782)
pt3dadd(14.073, 101.034, -17.507, 0.794)
pt3dadd(14.025, 100.939, -17.551, 0.808)
pt3dadd(13.991, 100.841, -17.602, 0.82)
pt3dadd(13.964, 100.737, -17.644, 0.832)
pt3dadd(13.947, 100.623, -17.671, 0.842)
pt3dadd(13.931, 100.509, -17.699, 0.854)
pt3dadd(13.915, 100.39, -17.7, 0.854)
pt3dadd(13.898, 100.271, -17.7, 0.854)
pt3dadd(13.88, 100.153, -17.7, 0.85)
pt3dadd(13.861, 100.034, -17.7, 0.846)
pt3dadd(13.842, 99.916, -17.7, 0.842)
pt3dadd(13.824, 99.797, -17.7, 0.84)
pt3dadd(13.805, 99.679, -17.7, 0.836)
pt3dadd(13.787, 99.56, -17.7, 0.832)
pt3dadd(13.764, 99.444, -17.702, 0.824)
pt3dadd(13.693, 99.358, -17.739, 0.756)
pt3dadd(13.623, 99.269, -17.771, 0.688)
pt3dadd(13.556, 99.172, -17.787, 0.626)
pt3dadd(13.499, 99.07, -17.793, 0.57)
pt3dadd(13.477, 98.958, -17.765, 0.538)
pt3dadd(13.456, 98.845, -17.736, 0.506)
pt3dadd(13.439, 98.727, -17.722, 0.502)
pt3dadd(13.422, 98.609, -17.71, 0.502)
pt3dadd(13.405, 98.491, -17.7, 0.504)
}
}
proc shape3d_105() {
dend_5[18] { pt3dadd(13.389, 98.372, -17.7, 0.518)
pt3dadd(13.372, 98.254, -17.7, 0.526)
pt3dadd(13.355, 98.135, -17.7, 0.522)
pt3dadd(13.339, 98.016, -17.7, 0.52)
pt3dadd(13.322, 97.897, -17.7, 0.516)
pt3dadd(13.305, 97.778, -17.7, 0.512)
pt3dadd(13.289, 97.659, -17.7, 0.508)
pt3dadd(13.272, 97.541, -17.7, 0.504)
pt3dadd(13.255, 97.422, -17.696, 0.502)
pt3dadd(13.239, 97.305, -17.68, 0.502)
pt3dadd(13.222, 97.188, -17.663, 0.502)
pt3dadd(13.206, 97.071, -17.647, 0.502)
pt3dadd(13.189, 96.953, -17.631, 0.502)
pt3dadd(13.173, 96.836, -17.614, 0.502)
pt3dadd(13.153, 96.72, -17.603, 0.502)
pt3dadd(13.114, 96.608, -17.622, 0.508)
pt3dadd(13.075, 96.497, -17.641, 0.512)
pt3dadd(13.036, 96.386, -17.66, 0.518)
pt3dadd(12.998, 96.275, -17.68, 0.522)
pt3dadd(12.959, 96.164, -17.699, 0.528)
pt3dadd(12.941, 96.046, -17.7, 0.538)
pt3dadd(12.924, 95.927, -17.7, 0.548)
pt3dadd(12.907, 95.808, -17.7, 0.558)
pt3dadd(12.891, 95.689, -17.7, 0.57)
pt3dadd(12.874, 95.57, -17.7, 0.58)
pt3dadd(12.857, 95.451, -17.7, 0.592)
pt3dadd(12.84, 95.333, -17.7, 0.602)
pt3dadd(12.824, 95.214, -17.704, 0.62)
pt3dadd(12.807, 95.095, -17.707, 0.636)
pt3dadd(12.79, 94.977, -17.713, 0.652)
pt3dadd(12.775, 94.865, -17.746, 0.652)
pt3dadd(12.759, 94.752, -17.779, 0.652)
pt3dadd(12.742, 94.636, -17.783, 0.64)
pt3dadd(12.726, 94.518, -17.774, 0.62)
pt3dadd(12.71, 94.401, -17.76, 0.598)
pt3dadd(12.695, 94.299, -17.709, 0.564)
pt3dadd(12.681, 94.196, -17.659, 0.53)
pt3dadd(12.671, 94.13, -17.576, 0.494)
pt3dadd(12.659, 94.04, -17.53, 0.478)
pt3dadd(12.642, 93.921, -17.523, 0.478)
pt3dadd(12.625, 93.803, -17.516, 0.478)
pt3dadd(12.609, 93.684, -17.509, 0.478)
pt3dadd(12.592, 93.566, -17.501, 0.478)
pt3dadd(12.582, 93.446, -17.505, 0.482)
pt3dadd(12.573, 93.327, -17.512, 0.486)
pt3dadd(12.564, 93.207, -17.519, 0.492)
pt3dadd(12.555, 93.088, -17.525, 0.496)
pt3dadd(12.546, 92.969, -17.532, 0.502)
pt3dadd(12.542, 92.849, -17.527, 0.508)
pt3dadd(12.539, 92.729, -17.52, 0.518)
pt3dadd(12.536, 92.61, -17.513, 0.526)
pt3dadd(12.533, 92.49, -17.505, 0.534)
pt3dadd(12.53, 92.371, -17.498, 0.542)
pt3dadd(12.526, 92.251, -17.49, 0.55)
pt3dadd(12.512, 92.136, -17.466, 0.552)
pt3dadd(12.496, 92.022, -17.438, 0.552)
pt3dadd(12.48, 91.907, -17.411, 0.552)
pt3dadd(12.464, 91.793, -17.383, 0.552)
pt3dadd(12.448, 91.679, -17.356, 0.552)
pt3dadd(12.432, 91.564, -17.329, 0.552)
pt3dadd(12.416, 91.449, -17.306, 0.552)
pt3dadd(12.399, 91.333, -17.283, 0.552)
pt3dadd(12.383, 91.217, -17.26, 0.552)
pt3dadd(12.367, 91.102, -17.237, 0.552)
pt3dadd(12.351, 90.986, -17.215, 0.552)
pt3dadd(12.334, 90.87, -17.195, 0.548)
pt3dadd(12.318, 90.752, -17.183, 0.54)
pt3dadd(12.301, 90.634, -17.171, 0.53)
pt3dadd(12.273, 90.522, -17.146, 0.536)
pt3dadd(12.239, 90.413, -17.114, 0.546)
pt3dadd(12.196, 90.304, -17.103, 0.558)
pt3dadd(12.146, 90.195, -17.107, 0.57)
pt3dadd(12.104, 90.091, -17.126, 0.58)
pt3dadd(12.092, 90.004, -17.194, 0.592)
pt3dadd(12.076, 89.916, -17.259, 0.6)
pt3dadd(12.032, 89.811, -17.292, 0.582)
pt3dadd(11.999, 89.698, -17.3, 0.578)
pt3dadd(11.97, 89.582, -17.3, 0.578)
pt3dadd(11.941, 89.465, -17.3, 0.578)
pt3dadd(11.912, 89.349, -17.3, 0.578)
pt3dadd(11.883, 89.232, -17.3, 0.578)
pt3dadd(11.853, 89.116, -17.3, 0.578)
pt3dadd(11.822, 89.001, -17.293, 0.576)
pt3dadd(11.785, 88.889, -17.274, 0.572)
pt3dadd(11.749, 88.777, -17.255, 0.566)
pt3dadd(11.713, 88.665, -17.236, 0.562)
pt3dadd(11.677, 88.553, -17.217, 0.556)
pt3dadd(11.642, 88.44, -17.2, 0.552)
pt3dadd(11.624, 88.321, -17.2, 0.556)
pt3dadd(11.605, 88.203, -17.2, 0.56)
pt3dadd(11.587, 88.084, -17.2, 0.564)
pt3dadd(11.568, 87.966, -17.2, 0.568)
pt3dadd(11.55, 87.847, -17.2, 0.572)
pt3dadd(11.531, 87.729, -17.2, 0.574)
pt3dadd(11.517, 87.61, -17.2, 0.578)
pt3dadd(11.52, 87.49, -17.2, 0.578)
pt3dadd(11.523, 87.37, -17.2, 0.578)
pt3dadd(11.526, 87.25, -17.2, 0.578)
pt3dadd(11.529, 87.13, -17.2, 0.578)
pt3dadd(11.532, 87.01, -17.2, 0.578)
pt3dadd(11.533, 86.89, -17.2, 0.578)
pt3dadd(11.516, 86.771, -17.2, 0.586)
pt3dadd(11.499, 86.652, -17.2, 0.592)
pt3dadd(11.483, 86.534, -17.2, 0.6)
pt3dadd(11.466, 86.415, -17.2, 0.608)
pt3dadd(11.449, 86.296, -17.2, 0.614)
pt3dadd(11.433, 86.177, -17.2, 0.622)
pt3dadd(11.416, 86.058, -17.2, 0.63)
pt3dadd(11.399, 85.94, -17.2, 0.64)
pt3dadd(11.382, 85.821, -17.2, 0.65)
pt3dadd(11.366, 85.702, -17.2, 0.662)
pt3dadd(11.349, 85.583, -17.2, 0.672)
pt3dadd(11.332, 85.464, -17.2, 0.682)
pt3dadd(11.316, 85.345, -17.2, 0.694)
pt3dadd(11.299, 85.227, -17.2, 0.704)
pt3dadd(11.282, 85.108, -17.2, 0.716)
pt3dadd(11.266, 84.989, -17.2, 0.726)
pt3dadd(11.249, 84.87, -17.2, 0.736)
pt3dadd(11.232, 84.751, -17.2, 0.748)
pt3dadd(11.215, 84.632, -17.2, 0.758)
pt3dadd(11.199, 84.513, -17.2, 0.768)
pt3dadd(11.182, 84.395, -17.2, 0.778)
pt3dadd(11.165, 84.276, -17.2, 0.782)
pt3dadd(11.149, 84.157, -17.2, 0.786)
pt3dadd(11.132, 84.038, -17.2, 0.79)
pt3dadd(11.115, 83.919, -17.2, 0.794)
pt3dadd(11.098, 83.801, -17.2, 0.796)
pt3dadd(11.082, 83.682, -17.2, 0.8)
pt3dadd(11.063, 83.563, -17.2, 0.802)
pt3dadd(11.027, 83.449, -17.2, 0.786)
pt3dadd(10.991, 83.334, -17.2, 0.768)
pt3dadd(10.955, 83.22, -17.2, 0.752)
pt3dadd(10.919, 83.106, -17.2, 0.736)
pt3dadd(10.883, 82.991, -17.2, 0.718)
pt3dadd(10.845, 82.878, -17.2, 0.702)
pt3dadd(10.768, 82.785, -17.2, 0.678)
pt3dadd(10.692, 82.693, -17.2, 0.652)
pt3dadd(10.615, 82.6, -17.2, 0.628)
pt3dadd(10.539, 82.508, -17.2, 0.604)
pt3dadd(10.462, 82.416, -17.2, 0.578)
pt3dadd(10.404, 82.313, -17.18, 0.562)
pt3dadd(10.348, 82.211, -17.159, 0.546)
pt3dadd(10.291, 82.108, -17.138, 0.53)
pt3dadd(10.234, 82.005, -17.117, 0.514)
pt3dadd(10.175, 81.904, -17.1, 0.504)
pt3dadd(10.105, 81.806, -17.103, 0.508)
pt3dadd(10.036, 81.708, -17.105, 0.514)
pt3dadd(9.967, 81.61, -17.107, 0.518)
pt3dadd(9.898, 81.511, -17.109, 0.522)
pt3dadd(9.83, 81.414, -17.115, 0.528)
pt3dadd(9.777, 81.32, -17.158, 0.546)
pt3dadd(9.724, 81.225, -17.201, 0.564)
pt3dadd(9.671, 81.131, -17.244, 0.58)
pt3dadd(9.618, 81.037, -17.288, 0.598)
pt3dadd(9.56, 80.936, -17.295, 0.606)
pt3dadd(9.501, 80.831, -17.289, 0.612)
pt3dadd(9.442, 80.727, -17.282, 0.616)
pt3dadd(9.383, 80.623, -17.276, 0.62)
pt3dadd(9.324, 80.519, -17.27, 0.626)
pt3dadd(9.276, 80.41, -17.26, 0.628)
pt3dadd(9.238, 80.297, -17.248, 0.628)
pt3dadd(9.2, 80.184, -17.235, 0.628)
pt3dadd(9.162, 80.071, -17.223, 0.628)
pt3dadd(9.124, 79.959, -17.211, 0.628)
pt3dadd(9.087, 79.845, -17.2, 0.628)
pt3dadd(9.056, 79.729, -17.2, 0.624)
pt3dadd(9.024, 79.614, -17.2, 0.62)
pt3dadd(8.993, 79.498, -17.2, 0.616)
pt3dadd(8.962, 79.382, -17.2, 0.612)
pt3dadd(8.93, 79.266, -17.2, 0.608)
pt3dadd(8.899, 79.15, -17.2, 0.604)
pt3dadd(8.84, 79.047, -17.194, 0.606)
pt3dadd(8.775, 78.946, -17.188, 0.612)
pt3dadd(8.71, 78.846, -17.181, 0.616)
pt3dadd(8.645, 78.745, -17.175, 0.622)
pt3dadd(8.58, 78.645, -17.168, 0.626)
pt3dadd(8.534, 78.535, -17.157, 0.628)
pt3dadd(8.493, 78.423, -17.144, 0.628)
pt3dadd(8.453, 78.311, -17.132, 0.628)
pt3dadd(8.412, 78.199, -17.12, 0.628)
pt3dadd(8.371, 78.087, -17.107, 0.628)
pt3dadd(8.332, 77.975, -17.099, 0.626)
pt3dadd(8.296, 77.86, -17.097, 0.622)
pt3dadd(8.26, 77.746, -17.096, 0.618)
pt3dadd(8.223, 77.632, -17.094, 0.614)
pt3dadd(8.187, 77.517, -17.092, 0.61)
pt3dadd(8.151, 77.403, -17.09, 0.606)
pt3dadd(8.095, 77.307, -17.069, 0.584)
pt3dadd(8.016, 77.234, -17.025, 0.54)
pt3dadd(7.98, 77.131, -16.999, 0.508)
pt3dadd(7.963, 77.014, -16.982, 0.478)
pt3dadd(7.949, 76.897, -16.964, 0.45)
pt3dadd(7.953, 76.782, -16.936, 0.424)
pt3dadd(7.959, 76.667, -16.915, 0.4)
pt3dadd(7.987, 76.562, -16.957, 0.388)
pt3dadd(8.006, 76.457, -17, 0.378)
pt3dadd(7.992, 76.353, -17.048, 0.386)
pt3dadd(7.977, 76.249, -17.097, 0.392)
pt3dadd(7.963, 76.145, -17.145, 0.398)
pt3dadd(7.953, 76.077, -17.218, 0.408)
}
}
proc shape3d_106() {
dend_5[18] { pt3dadd(7.947, 76.037, -17.313, 0.418)
pt3dadd(7.936, 75.996, -17.406, 0.426)
pt3dadd(7.898, 75.949, -17.492, 0.426)
pt3dadd(7.809, 75.916, -17.551, 0.35)
pt3dadd(7.704, 75.887, -17.59, 0.302)
pt3dadd(7.591, 75.853, -17.6, 0.288)
pt3dadd(7.471, 75.847, -17.6, 0.276)
pt3dadd(7.37, 75.796, -17.61, 0.284)
pt3dadd(7.276, 75.723, -17.625, 0.296)
pt3dadd(7.183, 75.65, -17.64, 0.306)
pt3dadd(7.089, 75.577, -17.655, 0.318)
pt3dadd(6.998, 75.501, -17.667, 0.33)
pt3dadd(6.914, 75.415, -17.667, 0.352)
pt3dadd(6.831, 75.329, -17.667, 0.374)
pt3dadd(6.747, 75.243, -17.667, 0.396)
pt3dadd(6.664, 75.157, -17.667, 0.42)
pt3dadd(6.575, 75.085, -17.643, 0.454)
pt3dadd(6.483, 75.023, -17.605, 0.496)
pt3dadd(6.409, 74.94, -17.568, 0.49)
pt3dadd(6.34, 74.853, -17.533, 0.476)
pt3dadd(6.318, 74.736, -17.52, 0.446)
pt3dadd(6.297, 74.619, -17.507, 0.418)
pt3dadd(6.277, 74.502, -17.508, 0.388)
pt3dadd(6.261, 74.385, -17.525, 0.36)
pt3dadd(6.245, 74.267, -17.542, 0.33)
pt3dadd(6.233, 74.188, -17.612, 0.326)
pt3dadd(6.22, 74.094, -17.663, 0.334)
pt3dadd(6.204, 73.977, -17.68, 0.354)
pt3dadd(6.187, 73.86, -17.697, 0.374)
pt3dadd(6.172, 73.752, -17.738, 0.386)
pt3dadd(6.157, 73.646, -17.783, 0.398)
pt3dadd(6.147, 73.577, -17.857, 0.396)
pt3dadd(6.141, 73.531, -17.949, 0.384)
pt3dadd(6.137, 73.486, -18.041, 0.366)
pt3dadd(6.137, 73.444, -18.135, 0.332)
pt3dadd(6.144, 73.403, -18.225, 0.3)
pt3dadd(6.25, 73.368, -18.262, 0.276)
pt3dadd(6.356, 73.334, -18.3, 0.252)
}
apic[40] {pt3dclear()
pt3dadd(91.152, 123.35, 7.117, 1.948)
pt3dadd(91.175, 123.265, 7.142, 1.866)
pt3dadd(91.209, 123.166, 7.18, 1.77)
pt3dadd(91.243, 123.066, 7.217, 1.672)
pt3dadd(91.277, 122.966, 7.255, 1.576)
pt3dadd(91.312, 122.866, 7.293, 1.48)
pt3dadd(91.346, 122.765, 7.331, 1.382)
pt3dadd(91.38, 122.665, 7.368, 1.286)
pt3dadd(91.415, 122.566, 7.406, 1.188)
pt3dadd(91.449, 122.466, 7.444, 1.092)
pt3dadd(91.483, 122.366, 7.481, 0.996)
pt3dadd(91.518, 122.267, 7.519, 0.898)
pt3dadd(91.552, 122.167, 7.557, 0.802)
pt3dadd(91.586, 122.066, 7.595, 0.706)
pt3dadd(91.592, 121.958, 7.574, 0.682)
pt3dadd(91.586, 121.847, 7.53, 0.686)
pt3dadd(91.58, 121.736, 7.486, 0.69)
pt3dadd(91.574, 121.624, 7.443, 0.696)
pt3dadd(91.568, 121.512, 7.399, 0.7)
pt3dadd(91.562, 121.402, 7.352, 0.704)
pt3dadd(91.556, 121.295, 7.301, 0.704)
pt3dadd(91.55, 121.186, 7.254, 0.702)
pt3dadd(91.544, 121.066, 7.247, 0.684)
pt3dadd(91.538, 120.946, 7.241, 0.668)
pt3dadd(91.533, 120.826, 7.236, 0.654)
pt3dadd(91.527, 120.708, 7.246, 0.664)
pt3dadd(91.521, 120.589, 7.257, 0.674)
pt3dadd(91.518, 120.488, 7.294, 0.684)
pt3dadd(91.519, 120.403, 7.358, 0.696)
pt3dadd(91.537, 120.306, 7.393, 0.71)
pt3dadd(91.578, 120.196, 7.395, 0.728)
pt3dadd(91.613, 120.091, 7.423, 0.688)
pt3dadd(91.653, 119.989, 7.449, 0.65)
pt3dadd(91.731, 119.906, 7.46, 0.61)
pt3dadd(91.797, 119.818, 7.474, 0.574)
pt3dadd(91.81, 119.708, 7.505, 0.548)
pt3dadd(91.822, 119.603, 7.541, 0.526)
pt3dadd(91.816, 119.543, 7.621, 0.514)
pt3dadd(91.81, 119.482, 7.701, 0.504)
pt3dadd(91.848, 119.388, 7.741, 0.48)
pt3dadd(91.89, 119.291, 7.779, 0.454)
pt3dadd(91.932, 119.195, 7.816, 0.43)
pt3dadd(91.973, 119.086, 7.815, 0.388)
pt3dadd(92.014, 118.975, 7.808, 0.344)
pt3dadd(92.047, 118.862, 7.802, 0.272)
pt3dadd(92.107, 118.763, 7.795, 0.226)
pt3dadd(92.176, 118.669, 7.788, 0.238)
pt3dadd(92.218, 118.562, 7.782, 0.29)
pt3dadd(92.245, 118.446, 7.775, 0.378)
pt3dadd(92.286, 118.347, 7.74, 0.504)
pt3dadd(92.326, 118.315, 7.65, 0.68)
pt3dadd(92.335, 118.315, 7.544, 0.814)
pt3dadd(92.348, 118.315, 7.438, 0.886)
pt3dadd(92.383, 118.314, 7.339, 0.904)
pt3dadd(92.431, 118.314, 7.242, 0.882)
pt3dadd(92.475, 118.314, 7.145, 0.824)
pt3dadd(92.502, 118.314, 7.042, 0.792)
pt3dadd(92.529, 118.314, 6.94, 0.762)
pt3dadd(92.543, 118.314, 6.834, 0.732)
pt3dadd(92.552, 118.314, 6.729, 0.704)
pt3dadd(92.563, 118.313, 6.623, 0.676)
pt3dadd(92.613, 118.307, 6.528, 0.628)
pt3dadd(92.664, 118.301, 6.434, 0.582)
pt3dadd(92.761, 118.257, 6.399, 0.52)
pt3dadd(92.862, 118.21, 6.37, 0.456)
pt3dadd(92.975, 118.2, 6.362, 0.39)
pt3dadd(93.089, 118.193, 6.356, 0.324)
pt3dadd(93.203, 118.193, 6.349, 0.25)
pt3dadd(93.317, 118.193, 6.342, 0.226)
pt3dadd(93.431, 118.193, 6.335, 0.252)
pt3dadd(93.543, 118.193, 6.312, 0.316)
pt3dadd(93.623, 118.193, 6.243, 0.402)
pt3dadd(93.646, 118.193, 6.141, 0.426)
pt3dadd(93.654, 118.192, 6.035, 0.384)
pt3dadd(93.687, 118.169, 5.939, 0.29)
pt3dadd(93.733, 118.076, 5.898, 0.232)
pt3dadd(93.745, 117.958, 5.889, 0.226)
pt3dadd(93.74, 117.838, 5.883, 0.226)
pt3dadd(93.734, 117.718, 5.876, 0.226)
pt3dadd(93.728, 117.598, 5.869, 0.234)
pt3dadd(93.722, 117.477, 5.863, 0.242)
pt3dadd(93.716, 117.357, 5.856, 0.25)
pt3dadd(93.71, 117.239, 5.833, 0.27)
pt3dadd(93.705, 117.121, 5.809, 0.288)
pt3dadd(93.699, 117.013, 5.768, 0.314)
pt3dadd(93.693, 116.925, 5.693, 0.35)
pt3dadd(93.687, 116.834, 5.622, 0.382)
pt3dadd(93.681, 116.73, 5.565, 0.404)
pt3dadd(93.674, 116.627, 5.507, 0.428)
pt3dadd(93.638, 116.541, 5.436, 0.436)
pt3dadd(93.601, 116.454, 5.364, 0.444)
pt3dadd(93.565, 116.368, 5.293, 0.452)
pt3dadd(93.559, 116.368, 5.286, 0.452)
pt3dadd(93.453, 116.306, 5.277, 0.442)
pt3dadd(93.344, 116.245, 5.27, 0.43)
pt3dadd(93.247, 116.168, 5.266, 0.42)
pt3dadd(93.154, 116.085, 5.264, 0.41)
pt3dadd(93.061, 116.003, 5.262, 0.402)
pt3dadd(93.035, 115.906, 5.312, 0.402)
pt3dadd(93.01, 115.812, 5.364, 0.404)
pt3dadd(93.004, 115.812, 5.358, 0.404)
pt3dadd(92.998, 115.742, 5.432, 0.44)
pt3dadd(92.992, 115.672, 5.507, 0.474)
pt3dadd(92.991, 115.597, 5.577, 0.518)
pt3dadd(93.005, 115.501, 5.628, 0.596)
pt3dadd(93.021, 115.399, 5.666, 0.664)
pt3dadd(93.041, 115.283, 5.671, 0.704)
pt3dadd(93.061, 115.166, 5.675, 0.744)
pt3dadd(93.079, 115.049, 5.677, 0.778)
pt3dadd(93.088, 114.93, 5.67, 0.778)
pt3dadd(93.097, 114.811, 5.664, 0.778)
pt3dadd(93.125, 114.697, 5.657, 0.714)
pt3dadd(93.155, 114.584, 5.657, 0.662)
pt3dadd(93.179, 114.468, 5.658, 0.638)
pt3dadd(93.203, 114.352, 5.66, 0.614)
pt3dadd(93.226, 114.236, 5.661, 0.592)
pt3dadd(93.25, 114.12, 5.663, 0.568)
pt3dadd(93.279, 114.007, 5.653, 0.542)
pt3dadd(93.321, 113.901, 5.62, 0.514)
pt3dadd(93.362, 113.796, 5.587, 0.484)
pt3dadd(93.386, 113.705, 5.525, 0.452)
pt3dadd(93.432, 113.602, 5.493, 0.452)
pt3dadd(93.48, 113.495, 5.484, 0.484)
pt3dadd(93.528, 113.388, 5.478, 0.564)
pt3dadd(93.566, 113.277, 5.461, 0.646)
pt3dadd(93.577, 113.187, 5.397, 0.678)
pt3dadd(93.579, 113.152, 5.297, 0.678)
pt3dadd(93.601, 113.147, 5.194, 0.678)
pt3dadd(93.645, 113.147, 5.096, 0.712)
pt3dadd(93.666, 113.141, 4.993, 0.786)
pt3dadd(93.705, 113.104, 4.904, 0.86)
pt3dadd(93.767, 113.051, 4.828, 0.918)
pt3dadd(93.82, 113.035, 4.737, 0.984)
pt3dadd(93.87, 113.028, 4.642, 1.056)
pt3dadd(93.887, 113.004, 4.542, 1.144)
pt3dadd(93.887, 112.969, 4.44, 1.24)
pt3dadd(93.905, 112.916, 4.355, 1.334)
pt3dadd(93.959, 112.826, 4.304, 1.418)
pt3dadd(94.017, 112.737, 4.258, 1.456)
pt3dadd(94.058, 112.649, 4.202, 1.442)
pt3dadd(94.06, 112.564, 4.125, 1.398)
pt3dadd(94.062, 112.48, 4.048, 1.356)
pt3dadd(94.065, 112.395, 3.971, 1.314)
pt3dadd(94.067, 112.31, 3.893, 1.272)
pt3dadd(94.065, 112.21, 3.834, 1.232)
pt3dadd(94.059, 112.101, 3.785, 1.194)
pt3dadd(94.053, 111.993, 3.736, 1.156)
pt3dadd(94.047, 111.884, 3.688, 1.118)
pt3dadd(94.041, 111.775, 3.639, 1.08)
pt3dadd(94.035, 111.669, 3.586, 1.046)
pt3dadd(94.029, 111.569, 3.524, 1.022)
pt3dadd(94.023, 111.468, 3.462, 0.996)
pt3dadd(94.017, 111.468, 3.456, 0.996)
pt3dadd(94.011, 111.368, 3.394, 0.972)
pt3dadd(94.006, 111.267, 3.332, 0.946)
pt3dadd(94, 111.169, 3.269, 0.928)
pt3dadd(93.994, 111.075, 3.199, 0.922)
pt3dadd(93.988, 110.982, 3.13, 0.918)
pt3dadd(93.982, 110.888, 3.061, 0.912)
pt3dadd(93.976, 110.794, 2.992, 0.908)
pt3dadd(93.97, 110.694, 2.931, 0.902)
pt3dadd(93.964, 110.583, 2.888, 0.898)
}
}
proc shape3d_107() {
apic[40] { pt3dadd(93.958, 110.471, 2.844, 0.894)
pt3dadd(93.953, 110.36, 2.8, 0.888)
pt3dadd(93.947, 110.248, 2.756, 0.884)
pt3dadd(93.941, 110.137, 2.712, 0.88)
pt3dadd(93.935, 110.029, 2.662, 0.866)
pt3dadd(93.929, 109.921, 2.61, 0.85)
pt3dadd(93.923, 109.814, 2.559, 0.836)
pt3dadd(93.917, 109.707, 2.508, 0.822)
pt3dadd(93.911, 109.599, 2.456, 0.808)
pt3dadd(93.936, 109.497, 2.407, 0.756)
pt3dadd(93.974, 109.397, 2.358, 0.688)
pt3dadd(93.987, 109.28, 2.346, 0.646)
pt3dadd(93.995, 109.161, 2.339, 0.608)
pt3dadd(94.002, 109.042, 2.333, 0.574)
pt3dadd(93.996, 108.922, 2.326, 0.558)
pt3dadd(93.99, 108.802, 2.319, 0.542)
pt3dadd(93.984, 108.684, 2.321, 0.528)
pt3dadd(93.978, 108.581, 2.365, 0.528)
pt3dadd(93.972, 108.477, 2.409, 0.528)
pt3dadd(93.966, 108.477, 2.403, 0.528)
pt3dadd(93.979, 108.471, 2.494, 0.522)
pt3dadd(93.992, 108.468, 2.586, 0.516)
pt3dadd(94.005, 108.465, 2.678, 0.51)
pt3dadd(94.017, 108.462, 2.77, 0.504)
pt3dadd(94.034, 108.461, 2.862, 0.482)
pt3dadd(94.051, 108.461, 2.953, 0.452)
pt3dadd(94.045, 108.461, 2.946, 0.226)
pt3dadd(94.068, 108.412, 2.852, 0.326)
pt3dadd(94.091, 108.363, 2.757, 0.426)
pt3dadd(94.113, 108.314, 2.662, 0.524)
pt3dadd(94.136, 108.266, 2.567, 0.624)
pt3dadd(94.187, 108.204, 2.502, 0.714)
pt3dadd(94.27, 108.128, 2.472, 0.794)
pt3dadd(94.304, 108.082, 2.4, 0.84)
pt3dadd(94.3, 108.06, 2.296, 0.86)
pt3dadd(94.297, 108.036, 2.191, 0.878)
pt3dadd(94.304, 107.981, 2.096, 0.852)
pt3dadd(94.311, 107.923, 2.004, 0.828)
pt3dadd(94.337, 107.829, 1.941, 0.814)
pt3dadd(94.35, 107.729, 1.886, 0.82)
pt3dadd(94.329, 107.615, 1.852, 0.882)
pt3dadd(94.324, 107.512, 1.797, 0.93)
pt3dadd(94.329, 107.417, 1.731, 0.97)
pt3dadd(94.334, 107.321, 1.664, 1.008)
pt3dadd(94.339, 107.226, 1.597, 1.048)
pt3dadd(94.34, 107.132, 1.529, 1.088)
pt3dadd(94.324, 107.042, 1.457, 1.122)
pt3dadd(94.308, 106.952, 1.384, 1.158)
pt3dadd(94.292, 106.862, 1.312, 1.196)
pt3dadd(94.277, 106.773, 1.239, 1.232)
pt3dadd(94.274, 106.679, 1.173, 1.256)
pt3dadd(94.301, 106.576, 1.122, 1.256)
pt3dadd(94.329, 106.474, 1.071, 1.256)
pt3dadd(94.356, 106.371, 1.021, 1.256)
pt3dadd(94.381, 106.269, 0.969, 1.254)
pt3dadd(94.371, 106.179, 0.896, 1.238)
pt3dadd(94.361, 106.088, 0.824, 1.224)
pt3dadd(94.35, 105.998, 0.752, 1.208)
pt3dadd(94.34, 105.907, 0.679, 1.192)
pt3dadd(94.322, 105.827, 0.602, 1.168)
pt3dadd(94.284, 105.769, 0.512, 1.13)
pt3dadd(94.246, 105.711, 0.421, 1.09)
pt3dadd(94.208, 105.653, 0.331, 1.052)
pt3dadd(94.17, 105.595, 0.241, 1.012)
pt3dadd(94.159, 105.512, 0.164, 0.962)
pt3dadd(94.155, 105.423, 0.091, 0.906)
pt3dadd(94.182, 105.342, 0.016, 0.878)
pt3dadd(94.205, 105.257, -0.054, 0.862)
pt3dadd(94.203, 105.145, -0.098, 0.91)
pt3dadd(94.203, 105.033, -0.139, 0.96)
pt3dadd(94.221, 104.916, -0.145, 1.014)
pt3dadd(94.238, 104.798, -0.152, 1.066)
pt3dadd(94.259, 104.681, -0.159, 1.128)
pt3dadd(94.283, 104.565, -0.165, 1.178)
pt3dadd(94.315, 104.451, -0.172, 1.168)
pt3dadd(94.347, 104.337, -0.179, 1.158)
pt3dadd(94.379, 104.223, -0.185, 1.15)
pt3dadd(94.412, 104.109, -0.192, 1.14)
pt3dadd(94.444, 103.995, -0.198, 1.13)
pt3dadd(94.467, 103.878, -0.205, 1.102)
pt3dadd(94.489, 103.762, -0.212, 1.074)
pt3dadd(94.512, 103.645, -0.218, 1.046)
pt3dadd(94.535, 103.529, -0.225, 1.018)
pt3dadd(94.557, 103.412, -0.232, 0.99)
pt3dadd(94.567, 103.295, -0.25, 0.956)
pt3dadd(94.568, 103.177, -0.276, 0.918)
pt3dadd(94.569, 103.059, -0.302, 0.878)
pt3dadd(94.57, 102.942, -0.327, 0.84)
pt3dadd(94.571, 102.824, -0.353, 0.802)
pt3dadd(94.583, 102.708, -0.38, 0.77)
pt3dadd(94.61, 102.596, -0.408, 0.748)
pt3dadd(94.638, 102.484, -0.437, 0.726)
pt3dadd(94.666, 102.372, -0.465, 0.704)
pt3dadd(94.693, 102.259, -0.493, 0.682)
pt3dadd(94.701, 102.143, -0.519, 0.682)
pt3dadd(94.701, 102.025, -0.545, 0.686)
pt3dadd(94.702, 101.907, -0.571, 0.692)
pt3dadd(94.703, 101.79, -0.597, 0.696)
pt3dadd(94.704, 101.672, -0.623, 0.702)
pt3dadd(94.718, 101.557, -0.65, 0.712)
pt3dadd(94.743, 101.443, -0.678, 0.728)
pt3dadd(94.767, 101.33, -0.706, 0.744)
pt3dadd(94.791, 101.217, -0.734, 0.76)
pt3dadd(94.815, 101.103, -0.762, 0.776)
pt3dadd(94.803, 100.984, -0.771, 0.786)
pt3dadd(94.786, 100.865, -0.778, 0.792)
pt3dadd(94.77, 100.745, -0.784, 0.8)
pt3dadd(94.753, 100.625, -0.791, 0.808)
pt3dadd(94.736, 100.506, -0.797, 0.816)
pt3dadd(94.719, 100.386, -0.804, 0.822)
pt3dadd(94.706, 100.267, -0.814, 0.828)
pt3dadd(94.707, 100.149, -0.838, 0.824)
pt3dadd(94.707, 100.03, -0.861, 0.818)
pt3dadd(94.708, 99.912, -0.885, 0.814)
pt3dadd(94.708, 99.794, -0.908, 0.808)
pt3dadd(94.709, 99.676, -0.932, 0.804)
pt3dadd(94.688, 99.557, -0.941, 0.8)
pt3dadd(94.665, 99.438, -0.949, 0.796)
pt3dadd(94.642, 99.319, -0.957, 0.792)
pt3dadd(94.62, 99.2, -0.966, 0.79)
pt3dadd(94.597, 99.081, -0.974, 0.786)
pt3dadd(94.575, 98.962, -0.982, 0.782)
pt3dadd(94.553, 98.843, -0.99, 0.778)
pt3dadd(94.558, 98.724, -0.997, 0.774)
pt3dadd(94.563, 98.604, -1.004, 0.77)
pt3dadd(94.568, 98.484, -1.01, 0.766)
pt3dadd(94.573, 98.365, -1.017, 0.76)
pt3dadd(94.578, 98.245, -1.023, 0.756)
pt3dadd(94.588, 98.127, -1.03, 0.754)
pt3dadd(94.618, 98.012, -1.037, 0.76)
pt3dadd(94.647, 97.897, -1.043, 0.764)
pt3dadd(94.676, 97.782, -1.05, 0.768)
pt3dadd(94.705, 97.667, -1.057, 0.774)
pt3dadd(94.735, 97.553, -1.063, 0.778)
pt3dadd(94.77, 97.44, -1.07, 0.788)
pt3dadd(94.805, 97.327, -1.077, 0.798)
pt3dadd(94.841, 97.214, -1.083, 0.808)
pt3dadd(94.835, 97.214, -1.09, 0.808)
pt3dadd(94.87, 97.101, -1.096, 0.816)
pt3dadd(94.906, 96.989, -1.103, 0.826)
pt3dadd(94.913, 96.871, -1.119, 0.836)
pt3dadd(94.913, 96.752, -1.138, 0.846)
pt3dadd(94.912, 96.633, -1.157, 0.854)
pt3dadd(94.912, 96.514, -1.176, 0.864)
pt3dadd(94.911, 96.395, -1.195, 0.872)
pt3dadd(94.911, 96.275, -1.211, 0.88)
pt3dadd(94.909, 96.155, -1.224, 0.884)
pt3dadd(94.907, 96.036, -1.236, 0.888)
pt3dadd(94.905, 95.916, -1.249, 0.894)
pt3dadd(94.904, 95.796, -1.261, 0.898)
pt3dadd(94.902, 95.676, -1.273, 0.902)
pt3dadd(94.9, 95.556, -1.283, 0.904)
pt3dadd(94.897, 95.436, -1.289, 0.904)
pt3dadd(94.894, 95.316, -1.296, 0.904)
pt3dadd(94.891, 95.196, -1.303, 0.904)
pt3dadd(94.888, 95.076, -1.309, 0.904)
pt3dadd(94.886, 94.956, -1.316, 0.904)
pt3dadd(94.895, 94.837, -1.322, 0.904)
pt3dadd(94.917, 94.721, -1.329, 0.904)
pt3dadd(94.94, 94.604, -1.336, 0.904)
pt3dadd(94.963, 94.487, -1.342, 0.904)
pt3dadd(94.986, 94.371, -1.349, 0.904)
pt3dadd(95.006, 94.254, -1.357, 0.904)
pt3dadd(95.006, 94.135, -1.375, 0.904)
pt3dadd(95.005, 94.016, -1.394, 0.904)
pt3dadd(95.005, 93.897, -1.413, 0.904)
pt3dadd(95.005, 93.778, -1.432, 0.904)
pt3dadd(95.004, 93.659, -1.451, 0.904)
pt3dadd(94.991, 93.545, -1.485, 0.904)
pt3dadd(94.969, 93.434, -1.529, 0.904)
pt3dadd(94.948, 93.324, -1.572, 0.904)
pt3dadd(94.927, 93.213, -1.616, 0.904)
pt3dadd(94.905, 93.103, -1.66, 0.904)
pt3dadd(94.889, 92.991, -1.698, 0.904)
pt3dadd(94.888, 92.872, -1.717, 0.904)
pt3dadd(94.888, 92.752, -1.736, 0.904)
pt3dadd(94.887, 92.633, -1.754, 0.904)
pt3dadd(94.887, 92.514, -1.773, 0.904)
pt3dadd(94.886, 92.395, -1.792, 0.904)
pt3dadd(94.869, 92.277, -1.814, 0.904)
pt3dadd(94.847, 92.16, -1.837, 0.904)
pt3dadd(94.824, 92.043, -1.86, 0.904)
pt3dadd(94.802, 91.926, -1.883, 0.904)
pt3dadd(94.78, 91.808, -1.906, 0.904)
pt3dadd(94.757, 91.691, -1.93, 0.904)
pt3dadd(94.735, 91.573, -1.949, 0.906)
pt3dadd(94.712, 91.455, -1.966, 0.91)
pt3dadd(94.69, 91.336, -1.983, 0.914)
pt3dadd(94.667, 91.218, -2, 0.918)
pt3dadd(94.645, 91.1, -2.017, 0.922)
pt3dadd(94.622, 90.981, -2.034, 0.926)
pt3dadd(94.61, 90.864, -2.054, 0.932)
pt3dadd(94.62, 90.747, -2.081, 0.942)
pt3dadd(94.63, 90.631, -2.108, 0.952)
pt3dadd(94.641, 90.514, -2.135, 0.962)
pt3dadd(94.651, 90.398, -2.161, 0.972)
pt3dadd(94.655, 90.282, -2.191, 0.982)
pt3dadd(94.649, 90.166, -2.226, 0.992)
pt3dadd(94.643, 90.051, -2.26, 1.002)
pt3dadd(94.637, 89.936, -2.295, 1.012)
}
}
proc shape3d_108() {
apic[40] { pt3dadd(94.63, 89.821, -2.33, 1.022)
pt3dadd(94.622, 89.715, -2.376, 1.028)
pt3dadd(94.607, 89.648, -2.465, 1.016)
pt3dadd(94.591, 89.578, -2.552, 1.002)
pt3dadd(94.569, 89.466, -2.591, 0.97)
pt3dadd(94.548, 89.354, -2.631, 0.938)
pt3dadd(94.525, 89.237, -2.647, 0.918)
pt3dadd(94.503, 89.118, -2.654, 0.9)
pt3dadd(94.48, 88.999, -2.661, 0.884)
pt3dadd(94.461, 88.88, -2.667, 0.886)
pt3dadd(94.443, 88.76, -2.674, 0.894)
pt3dadd(94.425, 88.641, -2.681, 0.902)
pt3dadd(94.438, 88.523, -2.687, 0.918)
pt3dadd(94.451, 88.408, -2.704, 0.926)
pt3dadd(94.437, 88.298, -2.75, 0.916)
pt3dadd(94.424, 88.188, -2.796, 0.906)
pt3dadd(94.41, 88.077, -2.842, 0.896)
pt3dadd(94.397, 87.967, -2.888, 0.888)
pt3dadd(94.383, 87.855, -2.927, 0.876)
pt3dadd(94.366, 87.736, -2.934, 0.862)
pt3dadd(94.349, 87.616, -2.94, 0.846)
pt3dadd(94.333, 87.497, -2.947, 0.832)
pt3dadd(94.316, 87.377, -2.954, 0.816)
pt3dadd(94.299, 87.257, -2.96, 0.8)
pt3dadd(94.283, 87.138, -2.967, 0.786)
pt3dadd(94.281, 87.019, -2.973, 0.776)
pt3dadd(94.295, 86.9, -2.98, 0.772)
pt3dadd(94.308, 86.782, -2.987, 0.768)
pt3dadd(94.322, 86.663, -2.993, 0.762)
pt3dadd(94.336, 86.545, -3, 0.758)
pt3dadd(94.349, 86.426, -3.007, 0.754)
pt3dadd(94.363, 86.308, -3.013, 0.75)
pt3dadd(94.377, 86.189, -3.02, 0.744)
pt3dadd(94.39, 86.071, -3.027, 0.74)
pt3dadd(94.404, 85.952, -3.033, 0.736)
pt3dadd(94.418, 85.834, -3.04, 0.732)
pt3dadd(94.422, 85.715, -3.047, 0.73)
pt3dadd(94.405, 85.595, -3.055, 0.734)
pt3dadd(94.389, 85.476, -3.064, 0.736)
pt3dadd(94.372, 85.356, -3.072, 0.74)
pt3dadd(94.355, 85.236, -3.08, 0.744)
pt3dadd(94.339, 85.117, -3.089, 0.748)
pt3dadd(94.322, 84.997, -3.097, 0.752)
pt3dadd(94.318, 84.879, -3.117, 0.76)
pt3dadd(94.319, 84.76, -3.14, 0.77)
pt3dadd(94.319, 84.642, -3.164, 0.78)
pt3dadd(94.32, 84.524, -3.187, 0.788)
pt3dadd(94.32, 84.406, -3.21, 0.798)
pt3dadd(94.334, 84.291, -3.238, 0.804)
pt3dadd(94.363, 84.18, -3.268, 0.804)
pt3dadd(94.391, 84.068, -3.299, 0.804)
pt3dadd(94.42, 83.957, -3.33, 0.804)
pt3dadd(94.449, 83.846, -3.361, 0.804)
pt3dadd(94.437, 83.734, -3.402, 0.762)
pt3dadd(94.421, 83.621, -3.443, 0.718)
pt3dadd(94.404, 83.505, -3.464, 0.68)
pt3dadd(94.386, 83.385, -3.475, 0.644)
pt3dadd(94.368, 83.266, -3.485, 0.608)
pt3dadd(94.392, 83.158, -3.524, 0.556)
pt3dadd(94.422, 83.052, -3.566, 0.502)
pt3dadd(94.41, 82.967, -3.644, 0.528)
pt3dadd(94.399, 82.882, -3.721, 0.552)
pt3dadd(94.415, 82.791, -3.79, 0.576)
pt3dadd(94.431, 82.699, -3.858, 0.6)
pt3dadd(94.448, 82.607, -3.927, 0.626)
pt3dadd(94.442, 82.607, -3.934, 0.626)
pt3dadd(94.427, 82.49, -3.945, 0.692)
pt3dadd(94.409, 82.371, -3.952, 0.76)
pt3dadd(94.391, 82.251, -3.959, 0.834)
pt3dadd(94.376, 82.136, -3.982, 1.036)
pt3dadd(94.41, 82.036, -4.034, 1.084)
pt3dadd(94.445, 81.937, -4.086, 1.132)
pt3dadd(94.48, 81.838, -4.137, 1.18)
pt3dadd(94.515, 81.739, -4.189, 1.228)
pt3dadd(94.521, 81.623, -4.217, 1.236)
pt3dadd(94.525, 81.505, -4.243, 1.24)
pt3dadd(94.529, 81.388, -4.269, 1.246)
pt3dadd(94.533, 81.271, -4.295, 1.25)
pt3dadd(94.536, 81.153, -4.322, 1.254)
pt3dadd(94.531, 81.034, -4.332, 1.21)
pt3dadd(94.523, 80.914, -4.338, 1.152)
pt3dadd(94.517, 80.913, -4.345, 1.152)
pt3dadd(94.519, 80.796, -4.352, 1.092)
pt3dadd(94.582, 80.698, -4.358, 0.996)
pt3dadd(94.645, 80.6, -4.365, 0.904)
pt3dadd(94.711, 80.504, -4.377, 0.854)
pt3dadd(94.777, 80.408, -4.389, 0.804)
pt3dadd(94.823, 80.331, -4.458, 0.832)
pt3dadd(94.868, 80.26, -4.533, 0.864)
pt3dadd(94.91, 80.209, -4.62, 0.904)
pt3dadd(94.904, 80.209, -4.627, 0.904)
pt3dadd(94.919, 80.1, -4.673, 0.904)
pt3dadd(94.933, 79.992, -4.72, 0.904)
pt3dadd(94.948, 79.884, -4.766, 0.904)
pt3dadd(94.963, 79.776, -4.812, 0.904)
pt3dadd(94.981, 79.664, -4.849, 0.892)
pt3dadd(95.002, 79.55, -4.877, 0.872)
pt3dadd(95.022, 79.435, -4.904, 0.85)
pt3dadd(95.043, 79.321, -4.932, 0.83)
pt3dadd(95.064, 79.207, -4.96, 0.808)
pt3dadd(95.071, 79.088, -4.976, 0.794)
pt3dadd(95.075, 78.969, -4.988, 0.78)
pt3dadd(95.079, 78.849, -5.001, 0.766)
pt3dadd(95.083, 78.73, -5.013, 0.752)
pt3dadd(95.086, 78.61, -5.026, 0.74)
pt3dadd(95.09, 78.492, -5.042, 0.726)
pt3dadd(95.092, 78.376, -5.076, 0.716)
pt3dadd(95.095, 78.261, -5.11, 0.706)
pt3dadd(95.097, 78.145, -5.143, 0.696)
pt3dadd(95.099, 78.03, -5.177, 0.686)
pt3dadd(95.104, 77.918, -5.216, 0.68)
pt3dadd(95.114, 77.818, -5.276, 0.686)
pt3dadd(95.125, 77.717, -5.336, 0.69)
pt3dadd(95.135, 77.617, -5.395, 0.696)
pt3dadd(95.146, 77.516, -5.455, 0.702)
pt3dadd(95.129, 77.405, -5.495, 0.704)
pt3dadd(95.108, 77.291, -5.532, 0.704)
pt3dadd(95.086, 77.178, -5.568, 0.704)
pt3dadd(95.064, 77.064, -5.605, 0.704)
pt3dadd(95.042, 76.951, -5.641, 0.704)
pt3dadd(95.034, 76.839, -5.677, 0.704)
pt3dadd(95.067, 76.73, -5.711, 0.704)
pt3dadd(95.101, 76.621, -5.745, 0.704)
pt3dadd(95.134, 76.513, -5.779, 0.704)
pt3dadd(95.167, 76.404, -5.814, 0.704)
pt3dadd(95.183, 76.29, -5.844, 0.7)
pt3dadd(95.194, 76.174, -5.873, 0.694)
pt3dadd(95.205, 76.058, -5.903, 0.688)
pt3dadd(95.215, 75.943, -5.932, 0.684)
pt3dadd(95.226, 75.827, -5.962, 0.678)
pt3dadd(95.304, 75.748, -5.992, 0.678)
pt3dadd(95.385, 75.672, -6.023, 0.678)
pt3dadd(95.381, 75.59, -6.102, 0.678)
pt3dadd(95.38, 75.507, -6.179, 0.678)
pt3dadd(95.454, 75.417, -6.191, 0.666)
pt3dadd(95.527, 75.328, -6.203, 0.652)
pt3dadd(95.631, 75.278, -6.21, 0.652)
pt3dadd(95.734, 75.229, -6.216, 0.652)
pt3dadd(95.835, 75.193, -6.248, 0.656)
pt3dadd(95.933, 75.167, -6.299, 0.664)
pt3dadd(96.032, 75.141, -6.351, 0.672)
pt3dadd(96.125, 75.111, -6.404, 0.682)
pt3dadd(96.163, 75.036, -6.48, 0.724)
pt3dadd(96.194, 74.953, -6.549, 0.76)
pt3dadd(96.212, 74.851, -6.606, 0.78)
pt3dadd(96.23, 74.749, -6.662, 0.8)
pt3dadd(96.282, 74.648, -6.681, 0.804)
pt3dadd(96.341, 74.547, -6.693, 0.804)
pt3dadd(96.335, 74.547, -6.699, 0.804)
pt3dadd(96.427, 74.51, -6.74, 0.796)
pt3dadd(96.529, 74.491, -6.788, 0.788)
pt3dadd(96.63, 74.471, -6.836, 0.78)
pt3dadd(96.737, 74.449, -6.874, 0.778)
pt3dadd(96.843, 74.428, -6.909, 0.778)
pt3dadd(96.949, 74.391, -6.929, 0.796)
pt3dadd(97.055, 74.354, -6.949, 0.8)
pt3dadd(97.162, 74.32, -6.974, 0.796)
pt3dadd(97.269, 74.287, -7, 0.79)
pt3dadd(97.377, 74.253, -7.025, 0.786)
pt3dadd(97.484, 74.22, -7.05, 0.782)
pt3dadd(97.582, 74.169, -7.07, 0.772)
pt3dadd(97.666, 74.089, -7.079, 0.758)
pt3dadd(97.749, 74.009, -7.087, 0.742)
pt3dadd(97.832, 73.928, -7.096, 0.728)
pt3dadd(97.915, 73.848, -7.105, 0.712)
pt3dadd(97.995, 73.766, -7.121, 0.696)
pt3dadd(98.072, 73.681, -7.148, 0.68)
pt3dadd(98.148, 73.597, -7.174, 0.662)
pt3dadd(98.224, 73.513, -7.201, 0.646)
pt3dadd(98.3, 73.428, -7.227, 0.628)
pt3dadd(98.407, 73.389, -7.235, 0.628)
pt3dadd(98.515, 73.352, -7.242, 0.628)
pt3dadd(98.617, 73.303, -7.25, 0.636)
pt3dadd(98.708, 73.233, -7.262, 0.66)
pt3dadd(98.777, 73.154, -7.28, 0.682)
pt3dadd(98.762, 73.042, -7.321, 0.704)
pt3dadd(98.746, 72.929, -7.362, 0.728)
pt3dadd(98.757, 72.811, -7.375, 0.728)
pt3dadd(98.769, 72.693, -7.386, 0.728)
pt3dadd(98.775, 72.573, -7.395, 0.71)
pt3dadd(98.775, 72.453, -7.402, 0.68)
pt3dadd(98.775, 72.347, -7.453, 0.668)
pt3dadd(98.775, 72.242, -7.507, 0.658)
pt3dadd(98.775, 72.136, -7.562, 0.646)
pt3dadd(98.774, 72.031, -7.616, 0.636)
pt3dadd(98.791, 71.932, -7.67, 0.626)
pt3dadd(98.849, 71.847, -7.723, 0.62)
pt3dadd(98.907, 71.761, -7.776, 0.614)
pt3dadd(98.965, 71.676, -7.829, 0.608)
pt3dadd(99.017, 71.587, -7.881, 0.602)
pt3dadd(99.047, 71.484, -7.93, 0.602)
pt3dadd(99.077, 71.381, -7.978, 0.602)
pt3dadd(99.107, 71.278, -8.026, 0.602)
pt3dadd(99.138, 71.175, -8.075, 0.602)
pt3dadd(99.177, 71.065, -8.085, 0.602)
pt3dadd(99.217, 70.954, -8.094, 0.602)
pt3dadd(99.258, 70.843, -8.103, 0.602)
pt3dadd(99.298, 70.732, -8.112, 0.602)
pt3dadd(99.338, 70.621, -8.121, 0.602)
pt3dadd(99.351, 70.506, -8.148, 0.612)
}
}
proc shape3d_109() {
apic[40] { pt3dadd(99.362, 70.39, -8.178, 0.622)
pt3dadd(99.373, 70.274, -8.207, 0.632)
pt3dadd(99.384, 70.159, -8.237, 0.642)
pt3dadd(99.393, 70.043, -8.267, 0.654)
pt3dadd(99.372, 69.932, -8.308, 0.668)
pt3dadd(99.35, 69.82, -8.349, 0.682)
pt3dadd(99.329, 69.708, -8.391, 0.694)
pt3dadd(99.307, 69.597, -8.432, 0.708)
pt3dadd(99.286, 69.485, -8.473, 0.722)
pt3dadd(99.275, 69.369, -8.495, 0.738)
pt3dadd(99.273, 69.249, -8.504, 0.756)
pt3dadd(99.27, 69.129, -8.512, 0.772)
pt3dadd(99.268, 69.009, -8.52, 0.788)
pt3dadd(99.266, 68.889, -8.529, 0.806)
pt3dadd(99.263, 68.769, -8.537, 0.822)
pt3dadd(99.288, 68.657, -8.559, 0.836)
pt3dadd(99.282, 68.657, -8.565, 0.836)
pt3dadd(99.325, 68.55, -8.594, 0.848)
pt3dadd(99.368, 68.444, -8.623, 0.858)
pt3dadd(99.41, 68.337, -8.653, 0.87)
pt3dadd(99.446, 68.229, -8.681, 0.878)
pt3dadd(99.446, 68.11, -8.704, 0.874)
pt3dadd(99.447, 67.992, -8.728, 0.868)
pt3dadd(99.447, 67.874, -8.751, 0.864)
pt3dadd(99.447, 67.756, -8.774, 0.86)
pt3dadd(99.448, 67.638, -8.798, 0.854)
pt3dadd(99.457, 67.519, -8.807, 0.826)
pt3dadd(99.468, 67.4, -8.813, 0.796)
pt3dadd(99.471, 67.28, -8.822, 0.756)
pt3dadd(99.464, 67.16, -8.833, 0.708)
pt3dadd(99.456, 67.041, -8.844, 0.66)
pt3dadd(99.48, 66.955, -8.911, 0.616)
pt3dadd(99.507, 66.875, -8.987, 0.576)
pt3dadd(99.511, 66.804, -9.074, 0.55)
pt3dadd(99.519, 66.727, -9.15, 0.532)
pt3dadd(99.543, 66.611, -9.164, 0.568)
pt3dadd(99.554, 66.494, -9.187, 0.588)
pt3dadd(99.558, 66.377, -9.213, 0.602)
pt3dadd(99.562, 66.259, -9.239, 0.618)
pt3dadd(99.566, 66.142, -9.265, 0.632)
pt3dadd(99.57, 66.024, -9.291, 0.646)
pt3dadd(99.558, 65.906, -9.306, 0.662)
pt3dadd(99.535, 65.787, -9.313, 0.68)
pt3dadd(99.513, 65.668, -9.319, 0.696)
pt3dadd(99.499, 65.549, -9.326, 0.704)
pt3dadd(99.491, 65.429, -9.333, 0.704)
pt3dadd(99.483, 65.308, -9.339, 0.704)
pt3dadd(99.511, 65.194, -9.346, 0.704)
pt3dadd(99.543, 65.08, -9.353, 0.704)
pt3dadd(99.605, 64.984, -9.359, 0.71)
pt3dadd(99.682, 64.897, -9.366, 0.722)
pt3dadd(99.76, 64.815, -9.386, 0.718)
pt3dadd(99.834, 64.734, -9.424, 0.696)
pt3dadd(99.891, 64.644, -9.471, 0.672)
pt3dadd(99.947, 64.553, -9.518, 0.648)
pt3dadd(100.004, 64.463, -9.565, 0.624)
pt3dadd(100.054, 64.368, -9.609, 0.6)
pt3dadd(100.048, 64.368, -9.615, 0.6)
pt3dadd(100.061, 64.253, -9.642, 0.584)
pt3dadd(100.075, 64.137, -9.67, 0.57)
pt3dadd(100.089, 64.021, -9.697, 0.554)
pt3dadd(100.102, 63.905, -9.724, 0.538)
pt3dadd(100.117, 63.788, -9.745, 0.528)
pt3dadd(100.135, 63.671, -9.752, 0.528)
pt3dadd(100.152, 63.553, -9.759, 0.528)
pt3dadd(100.232, 63.472, -9.77, 0.55)
pt3dadd(100.318, 63.395, -9.782, 0.574)
pt3dadd(100.344, 63.32, -9.852, 0.566)
pt3dadd(100.356, 63.246, -9.936, 0.554)
pt3dadd(100.35, 63.246, -9.943, 0.554)
pt3dadd(100.33, 63.131, -9.97, 0.534)
pt3dadd(100.308, 63.014, -9.994, 0.514)
pt3dadd(100.285, 62.896, -10.012, 0.506)
pt3dadd(100.263, 62.777, -10.018, 0.518)
pt3dadd(100.24, 62.658, -10.025, 0.532)
pt3dadd(100.218, 62.539, -10.032, 0.546)
pt3dadd(100.195, 62.421, -10.038, 0.56)
pt3dadd(100.172, 62.302, -10.045, 0.576)
pt3dadd(100.15, 62.183, -10.052, 0.59)
pt3dadd(100.127, 62.064, -10.058, 0.604)
pt3dadd(100.105, 61.945, -10.065, 0.618)
pt3dadd(100.083, 61.826, -10.066, 0.632)
pt3dadd(100.063, 61.709, -10.056, 0.644)
pt3dadd(100.042, 61.591, -10.045, 0.658)
pt3dadd(100.022, 61.474, -10.035, 0.67)
pt3dadd(100.002, 61.356, -10.025, 0.682)
pt3dadd(99.982, 61.239, -10.015, 0.696)
pt3dadd(99.968, 61.12, -10.016, 0.7)
pt3dadd(99.965, 61.001, -10.034, 0.69)
pt3dadd(99.962, 60.882, -10.053, 0.682)
pt3dadd(99.958, 60.763, -10.071, 0.672)
pt3dadd(99.955, 60.643, -10.09, 0.664)
pt3dadd(99.952, 60.524, -10.109, 0.654)
pt3dadd(99.935, 60.405, -10.122, 0.65)
pt3dadd(99.914, 60.286, -10.134, 0.646)
pt3dadd(99.893, 60.167, -10.145, 0.642)
pt3dadd(99.873, 60.048, -10.157, 0.638)
pt3dadd(99.852, 59.929, -10.169, 0.634)
pt3dadd(99.832, 59.81, -10.18, 0.63)
pt3dadd(99.815, 59.691, -10.191, 0.628)
pt3dadd(99.81, 59.571, -10.197, 0.632)
pt3dadd(99.804, 59.451, -10.204, 0.636)
pt3dadd(99.799, 59.331, -10.211, 0.64)
pt3dadd(99.794, 59.21, -10.217, 0.646)
pt3dadd(99.788, 59.09, -10.224, 0.65)
pt3dadd(99.781, 58.971, -10.232, 0.654)
pt3dadd(99.744, 58.857, -10.257, 0.662)
pt3dadd(99.707, 58.743, -10.282, 0.672)
pt3dadd(99.671, 58.629, -10.307, 0.682)
pt3dadd(99.634, 58.515, -10.332, 0.69)
pt3dadd(99.597, 58.401, -10.357, 0.7)
pt3dadd(99.594, 58.285, -10.37, 0.696)
pt3dadd(99.612, 58.167, -10.377, 0.686)
pt3dadd(99.63, 58.049, -10.384, 0.676)
pt3dadd(99.649, 57.932, -10.39, 0.666)
pt3dadd(99.667, 57.814, -10.397, 0.656)
pt3dadd(99.664, 57.696, -10.415, 0.642)
pt3dadd(99.648, 57.578, -10.439, 0.624)
pt3dadd(99.633, 57.461, -10.463, 0.606)
pt3dadd(99.617, 57.343, -10.487, 0.59)
pt3dadd(99.602, 57.225, -10.511, 0.572)
pt3dadd(99.586, 57.107, -10.535, 0.554)
pt3dadd(99.578, 56.989, -10.559, 0.548)
pt3dadd(99.57, 56.871, -10.584, 0.544)
pt3dadd(99.562, 56.753, -10.609, 0.54)
pt3dadd(99.555, 56.635, -10.634, 0.534)
pt3dadd(99.547, 56.517, -10.659, 0.53)
pt3dadd(99.533, 56.398, -10.677, 0.528)
pt3dadd(99.511, 56.279, -10.683, 0.532)
pt3dadd(99.488, 56.16, -10.69, 0.536)
pt3dadd(99.465, 56.041, -10.696, 0.54)
pt3dadd(99.443, 55.922, -10.703, 0.544)
pt3dadd(99.42, 55.803, -10.71, 0.546)
pt3dadd(99.398, 55.684, -10.716, 0.55)
pt3dadd(99.383, 55.565, -10.723, 0.558)
pt3dadd(99.38, 55.445, -10.73, 0.57)
pt3dadd(99.378, 55.325, -10.736, 0.582)
pt3dadd(99.375, 55.205, -10.743, 0.594)
pt3dadd(99.372, 55.085, -10.75, 0.608)
pt3dadd(99.369, 54.965, -10.756, 0.62)
pt3dadd(99.376, 54.846, -10.765, 0.628)
pt3dadd(99.401, 54.73, -10.778, 0.628)
pt3dadd(99.427, 54.615, -10.791, 0.628)
pt3dadd(99.452, 54.499, -10.804, 0.628)
pt3dadd(99.478, 54.384, -10.818, 0.628)
pt3dadd(99.499, 54.271, -10.842, 0.63)
pt3dadd(99.506, 54.17, -10.901, 0.642)
pt3dadd(99.513, 54.068, -10.96, 0.654)
pt3dadd(99.52, 53.967, -11.019, 0.664)
pt3dadd(99.527, 53.865, -11.078, 0.676)
pt3dadd(99.512, 53.764, -11.137, 0.686)
pt3dadd(99.492, 53.663, -11.196, 0.696)
pt3dadd(99.472, 53.561, -11.255, 0.706)
pt3dadd(99.452, 53.46, -11.314, 0.716)
pt3dadd(99.432, 53.358, -11.373, 0.726)
pt3dadd(99.378, 53.264, -11.422, 0.748)
pt3dadd(99.309, 53.173, -11.468, 0.778)
pt3dadd(99.24, 53.082, -11.513, 0.806)
pt3dadd(99.172, 52.991, -11.558, 0.836)
pt3dadd(99.093, 52.904, -11.589, 0.86)
pt3dadd(98.997, 52.824, -11.595, 0.874)
pt3dadd(98.901, 52.744, -11.602, 0.89)
pt3dadd(98.805, 52.665, -11.609, 0.906)
pt3dadd(98.71, 52.585, -11.615, 0.92)
pt3dadd(98.643, 52.489, -11.622, 0.936)
pt3dadd(98.616, 52.371, -11.629, 0.954)
pt3dadd(98.589, 52.253, -11.635, 0.972)
pt3dadd(98.519, 52.167, -11.654, 0.972)
pt3dadd(98.412, 52.109, -11.685, 0.958)
pt3dadd(98.346, 52.046, -11.75, 0.954)
pt3dadd(98.302, 51.979, -11.833, 0.954)
pt3dadd(98.277, 51.885, -11.897, 0.972)
pt3dadd(98.256, 51.782, -11.954, 0.994)
pt3dadd(98.237, 51.685, -12.018, 1.026)
pt3dadd(98.214, 51.59, -12.08, 1.054)
pt3dadd(98.169, 51.478, -12.106, 1.044)
pt3dadd(98.124, 51.367, -12.132, 1.034)
pt3dadd(98.079, 51.256, -12.158, 1.024)
pt3dadd(98.034, 51.145, -12.184, 1.014)
pt3dadd(97.989, 51.033, -12.21, 1.004)
pt3dadd(97.969, 50.934, -12.27, 0.97)
pt3dadd(97.949, 50.834, -12.332, 0.936)
pt3dadd(97.929, 50.735, -12.393, 0.902)
pt3dadd(97.909, 50.635, -12.455, 0.866)
pt3dadd(97.889, 50.536, -12.516, 0.832)
pt3dadd(97.867, 50.423, -12.553, 0.772)
pt3dadd(97.845, 50.309, -12.587, 0.71)
pt3dadd(97.804, 50.202, -12.625, 0.666)
pt3dadd(97.742, 50.105, -12.666, 0.64)
pt3dadd(97.696, 50, -12.707, 0.634)
pt3dadd(97.661, 49.891, -12.746, 0.648)
pt3dadd(97.673, 49.784, -12.777, 0.66)
pt3dadd(97.721, 49.679, -12.801, 0.674)
pt3dadd(97.767, 49.571, -12.814, 0.678)
pt3dadd(97.809, 49.461, -12.821, 0.678)
pt3dadd(97.842, 49.347, -12.828, 0.678)
pt3dadd(97.874, 49.233, -12.834, 0.678)
pt3dadd(97.906, 49.119, -12.841, 0.688)
pt3dadd(97.939, 49.006, -12.847, 0.7)
pt3dadd(97.987, 48.899, -12.854, 0.712)
}
}
proc shape3d_110() {
apic[40] { pt3dadd(98.042, 48.796, -12.861, 0.722)
pt3dadd(98.127, 48.729, -12.867, 0.734)
pt3dadd(98.235, 48.693, -12.874, 0.744)
pt3dadd(98.343, 48.656, -12.881, 0.752)
pt3dadd(98.409, 48.56, -12.887, 0.754)
pt3dadd(98.473, 48.463, -12.894, 0.754)
pt3dadd(98.537, 48.365, -12.901, 0.754)
pt3dadd(98.579, 48.258, -12.907, 0.754)
pt3dadd(98.59, 48.14, -12.914, 0.754)
pt3dadd(98.6, 48.021, -12.92, 0.754)
pt3dadd(98.597, 47.902, -12.931, 0.728)
pt3dadd(98.634, 47.801, -12.977, 0.716)
pt3dadd(98.671, 47.699, -13.023, 0.704)
pt3dadd(98.709, 47.598, -13.069, 0.692)
pt3dadd(98.746, 47.496, -13.115, 0.68)
pt3dadd(98.783, 47.425, -13.192, 0.654)
pt3dadd(98.822, 47.359, -13.274, 0.626)
pt3dadd(98.868, 47.298, -13.355, 0.612)
pt3dadd(98.925, 47.251, -13.434, 0.598)
pt3dadd(99.005, 47.232, -13.509, 0.586)
pt3dadd(99.093, 47.214, -13.574, 0.526)
}
apic[41] {pt3dclear()
pt3dadd(117.698, 113.423, 15.002, 4.52)
pt3dadd(117.7, 113.423, 14.988, 4.512)
pt3dadd(117.712, 113.423, 14.889, 4.46)
pt3dadd(117.724, 113.423, 14.789, 4.408)
pt3dadd(117.736, 113.424, 14.69, 4.356)
pt3dadd(117.748, 113.424, 14.59, 4.304)
pt3dadd(117.76, 113.424, 14.491, 4.252)
pt3dadd(117.771, 113.424, 14.391, 4.2)
pt3dadd(117.783, 113.425, 14.292, 4.148)
pt3dadd(117.795, 113.425, 14.192, 4.096)
pt3dadd(117.807, 113.425, 14.093, 4.044)
pt3dadd(117.819, 113.426, 13.993, 3.992)
pt3dadd(117.831, 113.426, 13.894, 3.94)
pt3dadd(117.843, 113.426, 13.794, 3.89)
pt3dadd(117.855, 113.427, 13.695, 3.838)
pt3dadd(117.867, 113.427, 13.595, 3.786)
pt3dadd(117.878, 113.427, 13.496, 3.734)
pt3dadd(117.868, 113.431, 13.396, 3.656)
pt3dadd(117.853, 113.435, 13.297, 3.57)
pt3dadd(117.837, 113.439, 13.198, 3.486)
pt3dadd(117.821, 113.443, 13.099, 3.402)
pt3dadd(117.806, 113.447, 13, 3.316)
pt3dadd(117.79, 113.451, 12.901, 3.232)
pt3dadd(117.774, 113.455, 12.802, 3.148)
pt3dadd(117.758, 113.459, 12.703, 3.062)
pt3dadd(117.743, 113.463, 12.604, 2.978)
pt3dadd(117.727, 113.467, 12.505, 2.894)
pt3dadd(117.704, 113.472, 12.407, 2.81)
pt3dadd(117.679, 113.477, 12.309, 2.726)
pt3dadd(117.654, 113.482, 12.211, 2.642)
pt3dadd(117.63, 113.488, 12.114, 2.558)
pt3dadd(117.605, 113.493, 12.016, 2.476)
pt3dadd(117.58, 113.498, 11.918, 2.392)
pt3dadd(117.556, 113.503, 11.82, 2.308)
pt3dadd(117.531, 113.509, 11.722, 2.224)
pt3dadd(117.506, 113.514, 11.625, 2.14)
pt3dadd(117.482, 113.519, 11.527, 2.058)
pt3dadd(117.438, 113.526, 11.434, 2.06)
pt3dadd(117.391, 113.533, 11.342, 2.076)
pt3dadd(117.344, 113.539, 11.25, 2.092)
pt3dadd(117.297, 113.546, 11.159, 2.108)
pt3dadd(117.25, 113.553, 11.067, 2.124)
pt3dadd(117.203, 113.559, 10.975, 2.138)
pt3dadd(117.156, 113.566, 10.883, 2.154)
pt3dadd(117.109, 113.573, 10.791, 2.17)
pt3dadd(117.062, 113.58, 10.699, 2.186)
pt3dadd(117.015, 113.586, 10.608, 2.202)
pt3dadd(116.983, 113.598, 10.512, 2.2)
pt3dadd(116.953, 113.611, 10.415, 2.196)
pt3dadd(116.923, 113.623, 10.319, 2.192)
pt3dadd(116.893, 113.636, 10.223, 2.186)
pt3dadd(116.863, 113.649, 10.127, 2.182)
pt3dadd(116.833, 113.661, 10.03, 2.178)
pt3dadd(116.803, 113.674, 9.934, 2.174)
pt3dadd(116.774, 113.686, 9.838, 2.17)
pt3dadd(116.744, 113.699, 9.742, 2.166)
pt3dadd(116.714, 113.711, 9.645, 2.162)
pt3dadd(116.698, 113.73, 9.547, 2.16)
pt3dadd(116.683, 113.748, 9.45, 2.16)
pt3dadd(116.668, 113.767, 9.351, 2.16)
pt3dadd(116.652, 113.786, 9.253, 2.16)
pt3dadd(116.637, 113.805, 9.156, 2.16)
pt3dadd(116.622, 113.823, 9.058, 2.158)
pt3dadd(116.607, 113.842, 8.96, 2.158)
pt3dadd(116.592, 113.861, 8.862, 2.158)
pt3dadd(116.577, 113.879, 8.764, 2.158)
pt3dadd(116.562, 113.898, 8.666, 2.158)
pt3dadd(116.569, 113.93, 8.569, 2.224)
pt3dadd(116.576, 113.962, 8.473, 2.29)
pt3dadd(116.583, 113.994, 8.377, 2.356)
pt3dadd(116.589, 114.026, 8.281, 2.424)
pt3dadd(116.596, 114.058, 8.184, 2.49)
pt3dadd(116.603, 114.09, 8.088, 2.556)
pt3dadd(116.61, 114.121, 7.992, 2.622)
pt3dadd(116.617, 114.153, 7.896, 2.69)
pt3dadd(116.624, 114.185, 7.8, 2.756)
pt3dadd(116.63, 114.217, 7.703, 2.822)
}
apic[42] {pt3dclear()
pt3dadd(116.63, 114.217, 7.703, 2.822)
pt3dadd(116.654, 114.282, 7.64, 2.734)
pt3dadd(116.7, 114.359, 7.571, 2.628)
pt3dadd(116.745, 114.435, 7.502, 2.52)
pt3dadd(116.791, 114.512, 7.433, 2.412)
pt3dadd(116.836, 114.588, 7.365, 2.304)
pt3dadd(116.882, 114.665, 7.296, 2.198)
pt3dadd(116.927, 114.741, 7.227, 2.09)
pt3dadd(116.973, 114.818, 7.158, 1.982)
pt3dadd(117.018, 114.894, 7.089, 1.876)
pt3dadd(117.064, 114.973, 7.023, 1.776)
pt3dadd(117.112, 115.06, 6.965, 1.7)
pt3dadd(117.159, 115.146, 6.907, 1.626)
pt3dadd(117.207, 115.232, 6.849, 1.55)
pt3dadd(117.255, 115.319, 6.791, 1.476)
pt3dadd(117.302, 115.405, 6.733, 1.4)
pt3dadd(117.35, 115.491, 6.674, 1.324)
pt3dadd(117.398, 115.578, 6.617, 1.25)
pt3dadd(117.445, 115.664, 6.558, 1.174)
pt3dadd(117.493, 115.751, 6.501, 1.1)
pt3dadd(117.538, 115.839, 6.443, 1.056)
pt3dadd(117.575, 115.933, 6.387, 1.096)
pt3dadd(117.612, 116.028, 6.33, 1.134)
pt3dadd(117.649, 116.122, 6.274, 1.174)
pt3dadd(117.686, 116.216, 6.218, 1.214)
pt3dadd(117.723, 116.31, 6.161, 1.252)
pt3dadd(117.76, 116.405, 6.105, 1.292)
pt3dadd(117.797, 116.499, 6.049, 1.332)
pt3dadd(117.834, 116.593, 5.993, 1.37)
pt3dadd(117.871, 116.687, 5.936, 1.41)
pt3dadd(117.912, 116.782, 5.883, 1.434)
pt3dadd(117.961, 116.877, 5.84, 1.416)
pt3dadd(118.011, 116.973, 5.796, 1.398)
pt3dadd(118.061, 117.069, 5.752, 1.382)
pt3dadd(118.11, 117.164, 5.709, 1.364)
pt3dadd(118.16, 117.26, 5.665, 1.346)
pt3dadd(118.209, 117.355, 5.622, 1.328)
pt3dadd(118.259, 117.451, 5.578, 1.312)
pt3dadd(118.308, 117.546, 5.534, 1.294)
pt3dadd(118.358, 117.642, 5.491, 1.276)
pt3dadd(118.41, 117.737, 5.45, 1.246)
pt3dadd(118.466, 117.832, 5.414, 1.196)
pt3dadd(118.522, 117.927, 5.378, 1.146)
pt3dadd(118.578, 118.023, 5.342, 1.098)
pt3dadd(118.634, 118.118, 5.306, 1.048)
pt3dadd(118.69, 118.213, 5.27, 0.998)
pt3dadd(118.746, 118.308, 5.234, 0.948)
pt3dadd(118.802, 118.403, 5.198, 0.898)
pt3dadd(118.858, 118.498, 5.162, 0.848)
pt3dadd(118.915, 118.593, 5.126, 0.798)
pt3dadd(118.973, 118.687, 5.091, 0.758)
pt3dadd(119.036, 118.778, 5.057, 0.738)
pt3dadd(119.098, 118.869, 5.023, 0.718)
pt3dadd(119.161, 118.96, 4.989, 0.7)
pt3dadd(119.224, 119.05, 4.955, 0.68)
pt3dadd(119.286, 119.142, 4.921, 0.66)
pt3dadd(119.349, 119.232, 4.887, 0.64)
pt3dadd(119.412, 119.323, 4.854, 0.62)
pt3dadd(119.475, 119.414, 4.82, 0.602)
pt3dadd(119.537, 119.505, 4.786, 0.582)
pt3dadd(119.6, 119.595, 4.751, 0.566)
pt3dadd(119.665, 119.683, 4.713, 0.56)
pt3dadd(119.728, 119.771, 4.675, 0.556)
pt3dadd(119.791, 119.859, 4.637, 0.55)
pt3dadd(119.78, 119.862, 4.632, 0.55)
pt3dadd(119.844, 119.95, 4.594, 0.544)
pt3dadd(119.908, 120.038, 4.556, 0.538)
pt3dadd(119.972, 120.126, 4.518, 0.532)
pt3dadd(120.035, 120.215, 4.481, 0.526)
pt3dadd(120.098, 120.302, 4.443, 0.52)
pt3dadd(120.163, 120.391, 4.405, 0.514)
pt3dadd(120.223, 120.47, 4.354, 0.534)
pt3dadd(120.277, 120.539, 4.285, 0.584)
pt3dadd(120.332, 120.607, 4.217, 0.636)
pt3dadd(120.388, 120.676, 4.148, 0.688)
pt3dadd(120.443, 120.745, 4.08, 0.74)
pt3dadd(120.498, 120.814, 4.011, 0.79)
pt3dadd(120.553, 120.882, 3.942, 0.842)
pt3dadd(120.608, 120.95, 3.874, 0.894)
pt3dadd(120.662, 121.019, 3.805, 0.946)
pt3dadd(120.718, 121.087, 3.737, 0.996)
pt3dadd(120.764, 121.147, 3.659, 1.03)
pt3dadd(120.802, 121.196, 3.57, 1.04)
pt3dadd(120.836, 121.247, 3.481, 1.052)
pt3dadd(120.872, 121.296, 3.392, 1.062)
pt3dadd(120.908, 121.345, 3.302, 1.072)
pt3dadd(120.943, 121.394, 3.213, 1.084)
pt3dadd(120.98, 121.445, 3.124, 1.094)
pt3dadd(121.016, 121.494, 3.035, 1.104)
pt3dadd(121.052, 121.543, 2.946, 1.114)
pt3dadd(121.087, 121.592, 2.857, 1.126)
pt3dadd(121.135, 121.654, 2.779, 1.11)
pt3dadd(121.19, 121.722, 2.711, 1.074)
pt3dadd(121.244, 121.792, 2.643, 1.036)
pt3dadd(121.301, 121.861, 2.575, 1)
pt3dadd(121.356, 121.931, 2.507, 0.964)
pt3dadd(121.412, 121.999, 2.439, 0.928)
pt3dadd(121.466, 122.069, 2.371, 0.892)
pt3dadd(121.522, 122.137, 2.303, 0.854)
pt3dadd(121.578, 122.207, 2.235, 0.818)
pt3dadd(121.632, 122.275, 2.167, 0.782)
pt3dadd(121.698, 122.354, 2.118, 0.726)
}
}
proc shape3d_111() {
apic[42] { pt3dadd(121.764, 122.434, 2.07, 0.67)
pt3dadd(121.83, 122.513, 2.021, 0.616)
pt3dadd(121.895, 122.592, 1.972, 0.56)
pt3dadd(121.961, 122.67, 1.924, 0.504)
pt3dadd(122.027, 122.749, 1.875, 0.448)
pt3dadd(122.092, 122.828, 1.826, 0.392)
pt3dadd(122.158, 122.908, 1.778, 0.338)
pt3dadd(122.224, 122.987, 1.729, 0.282)
pt3dadd(122.29, 123.066, 1.68, 0.226)
pt3dadd(122.278, 123.068, 1.675, 0.904)
pt3dadd(122.363, 123.055, 1.61, 0.93)
pt3dadd(122.448, 123.041, 1.546, 0.954)
pt3dadd(122.532, 123.028, 1.481, 0.98)
pt3dadd(122.617, 123.013, 1.417, 1.006)
pt3dadd(122.702, 122.999, 1.352, 1.03)
pt3dadd(122.785, 122.96, 1.294, 1.03)
pt3dadd(122.868, 122.922, 1.236, 1.03)
pt3dadd(122.951, 122.885, 1.178, 1.03)
pt3dadd(123.034, 122.846, 1.119, 1.03)
pt3dadd(123.108, 122.794, 1.063, 1.004)
pt3dadd(123.179, 122.732, 1.007, 0.962)
pt3dadd(123.251, 122.708, 0.934, 0.914)
pt3dadd(123.322, 122.693, 0.857, 0.864)
pt3dadd(123.409, 122.68, 0.796, 0.81)
pt3dadd(123.5, 122.668, 0.739, 0.752)
pt3dadd(123.601, 122.654, 0.705, 0.712)
pt3dadd(123.708, 122.64, 0.687, 0.684)
pt3dadd(123.815, 122.626, 0.669, 0.656)
pt3dadd(123.91, 122.678, 0.652, 0.632)
pt3dadd(124.002, 122.738, 0.637, 0.61)
pt3dadd(124.096, 122.798, 0.621, 0.588)
pt3dadd(124.188, 122.851, 0.59, 0.578)
pt3dadd(124.279, 122.899, 0.548, 0.578)
pt3dadd(124.382, 122.926, 0.531, 0.578)
pt3dadd(124.484, 122.964, 0.51, 0.6)
pt3dadd(124.585, 123.004, 0.488, 0.626)
pt3dadd(124.615, 123.094, 0.429, 0.64)
pt3dadd(124.638, 123.188, 0.366, 0.652)
pt3dadd(124.639, 123.272, 0.287, 0.652)
pt3dadd(124.639, 123.355, 0.208, 0.652)
pt3dadd(124.642, 123.452, 0.143, 0.644)
pt3dadd(124.644, 123.553, 0.08, 0.632)
pt3dadd(124.648, 123.655, 0.019, 0.628)
pt3dadd(124.654, 123.748, -0.047, 0.636)
pt3dadd(124.67, 123.808, -0.138, 0.674)
pt3dadd(124.7, 123.864, -0.224, 0.718)
pt3dadd(124.764, 123.91, -0.3, 0.774)
pt3dadd(124.816, 123.988, -0.343, 0.82)
pt3dadd(124.854, 124.099, -0.354, 0.852)
pt3dadd(124.843, 124.102, -0.36, 0.852)
pt3dadd(124.876, 124.212, -0.378, 0.882)
pt3dadd(124.88, 124.321, -0.428, 0.906)
pt3dadd(124.884, 124.429, -0.479, 0.928)
pt3dadd(124.88, 124.489, -0.571, 0.944)
pt3dadd(124.883, 124.565, -0.652, 0.954)
pt3dadd(124.895, 124.664, -0.713, 0.954)
pt3dadd(124.906, 124.764, -0.774, 0.954)
pt3dadd(124.916, 124.865, -0.835, 0.954)
pt3dadd(124.927, 124.964, -0.897, 0.954)
pt3dadd(124.944, 125.065, -0.955, 0.94)
pt3dadd(124.963, 125.167, -1.01, 0.92)
pt3dadd(124.984, 125.268, -1.066, 0.898)
pt3dadd(125.004, 125.37, -1.122, 0.876)
pt3dadd(125.024, 125.472, -1.178, 0.854)
pt3dadd(125.032, 125.579, -1.23, 0.83)
pt3dadd(125.038, 125.687, -1.281, 0.806)
pt3dadd(125.044, 125.795, -1.333, 0.782)
pt3dadd(125.05, 125.903, -1.385, 0.756)
pt3dadd(125.057, 126.011, -1.436, 0.732)
pt3dadd(125.045, 126.013, -1.442, 0.732)
pt3dadd(125.088, 126.116, -1.474, 0.696)
pt3dadd(125.138, 126.217, -1.502, 0.66)
pt3dadd(125.154, 126.32, -1.556, 0.662)
pt3dadd(125.164, 126.422, -1.615, 0.674)
pt3dadd(125.204, 126.5, -1.682, 0.71)
pt3dadd(125.257, 126.571, -1.751, 0.752)
pt3dadd(125.334, 126.576, -1.824, 0.804)
pt3dadd(125.411, 126.58, -1.898, 0.854)
pt3dadd(125.442, 126.664, -1.969, 0.912)
pt3dadd(125.472, 126.748, -2.039, 0.968)
pt3dadd(125.503, 126.83, -2.11, 1.026)
pt3dadd(125.507, 126.925, -2.179, 1.106)
pt3dadd(125.509, 127.021, -2.247, 1.188)
pt3dadd(125.507, 127.086, -2.336, 1.306)
pt3dadd(125.508, 127.178, -2.407, 1.29)
pt3dadd(125.51, 127.272, -2.477, 1.274)
pt3dadd(125.512, 127.364, -2.548, 1.26)
pt3dadd(125.513, 127.458, -2.619, 1.244)
pt3dadd(125.514, 127.548, -2.691, 1.228)
pt3dadd(125.512, 127.609, -2.784, 1.204)
pt3dadd(125.509, 127.672, -2.877, 1.18)
pt3dadd(125.506, 127.733, -2.969, 1.156)
pt3dadd(125.503, 127.795, -3.062, 1.13)
pt3dadd(125.501, 127.856, -3.154, 1.106)
pt3dadd(125.489, 127.859, -3.16, 1.106)
pt3dadd(125.482, 127.884, -3.264, 1.09)
pt3dadd(125.473, 127.906, -3.369, 1.072)
pt3dadd(125.465, 127.927, -3.474, 1.056)
pt3dadd(125.456, 127.949, -3.578, 1.04)
pt3dadd(125.448, 127.972, -3.683, 1.024)
pt3dadd(125.44, 127.993, -3.787, 1.006)
pt3dadd(125.477, 128.023, -3.88, 1.004)
pt3dadd(125.521, 128.054, -3.972, 1.004)
pt3dadd(125.566, 128.086, -4.063, 1.004)
pt3dadd(125.61, 128.116, -4.154, 1.004)
pt3dadd(125.636, 128.141, -4.251, 1.014)
pt3dadd(125.638, 128.158, -4.356, 1.034)
pt3dadd(125.64, 128.174, -4.461, 1.054)
pt3dadd(125.628, 128.177, -4.467, 1.054)
pt3dadd(125.678, 128.245, -4.538, 1.096)
pt3dadd(125.732, 128.318, -4.601, 1.136)
pt3dadd(125.792, 128.407, -4.644, 1.162)
pt3dadd(125.858, 128.465, -4.698, 1.184)
pt3dadd(125.936, 128.467, -4.771, 1.198)
pt3dadd(125.995, 128.512, -4.834, 1.202)
pt3dadd(126.028, 128.615, -4.881, 1.194)
pt3dadd(126.059, 128.718, -4.927, 1.186)
pt3dadd(126.09, 128.82, -4.976, 1.18)
pt3dadd(126.113, 128.915, -5.039, 1.18)
pt3dadd(126.14, 128.996, -5.107, 1.18)
pt3dadd(126.196, 129.016, -5.195, 1.18)
pt3dadd(126.25, 129.035, -5.284, 1.18)
pt3dadd(126.31, 129.071, -5.364, 1.198)
pt3dadd(126.373, 129.116, -5.439, 1.226)
pt3dadd(126.414, 129.162, -5.527, 1.258)
pt3dadd(126.455, 129.23, -5.604, 1.27)
pt3dadd(126.494, 129.3, -5.681, 1.282)
pt3dadd(126.534, 129.37, -5.759, 1.294)
pt3dadd(126.574, 129.439, -5.836, 1.306)
pt3dadd(126.623, 129.528, -5.889, 1.3)
pt3dadd(126.672, 129.618, -5.942, 1.294)
pt3dadd(126.721, 129.707, -5.995, 1.288)
pt3dadd(126.769, 129.797, -6.049, 1.282)
pt3dadd(126.834, 129.87, -6.105, 1.246)
pt3dadd(126.9, 129.941, -6.16, 1.2)
pt3dadd(126.946, 130.049, -6.17, 1.122)
pt3dadd(126.991, 130.157, -6.181, 1.046)
pt3dadd(127.066, 130.23, -6.218, 0.962)
pt3dadd(127.146, 130.295, -6.262, 0.878)
pt3dadd(127.241, 130.325, -6.31, 0.81)
pt3dadd(127.33, 130.35, -6.363, 0.748)
pt3dadd(127.319, 130.352, -6.369, 0.748)
pt3dadd(127.381, 130.345, -6.453, 0.712)
pt3dadd(127.472, 130.368, -6.496, 0.704)
pt3dadd(127.574, 130.402, -6.524, 0.704)
pt3dadd(127.645, 130.463, -6.579, 0.724)
pt3dadd(127.705, 130.532, -6.642, 0.754)
pt3dadd(127.758, 130.61, -6.705, 0.782)
pt3dadd(127.805, 130.697, -6.754, 0.806)
pt3dadd(127.794, 130.699, -6.76, 0.806)
pt3dadd(127.819, 130.816, -6.766, 0.816)
pt3dadd(127.844, 130.933, -6.772, 0.826)
pt3dadd(127.884, 131.044, -6.778, 0.828)
pt3dadd(127.932, 131.15, -6.784, 0.83)
pt3dadd(127.99, 131.251, -6.79, 0.834)
pt3dadd(128.046, 131.352, -6.796, 0.838)
pt3dadd(128.104, 131.454, -6.802, 0.844)
pt3dadd(128.16, 131.555, -6.807, 0.848)
pt3dadd(128.216, 131.657, -6.813, 0.854)
pt3dadd(128.293, 131.737, -6.837, 0.858)
pt3dadd(128.372, 131.815, -6.863, 0.864)
pt3dadd(128.45, 131.893, -6.889, 0.87)
pt3dadd(128.53, 131.972, -6.915, 0.876)
pt3dadd(128.615, 132.04, -6.944, 0.884)
pt3dadd(128.706, 132.095, -6.975, 0.896)
pt3dadd(128.798, 132.151, -7.007, 0.908)
pt3dadd(128.891, 132.206, -7.038, 0.918)
pt3dadd(128.977, 132.268, -7.067, 0.93)
pt3dadd(129.022, 132.377, -7.073, 0.94)
pt3dadd(129.065, 132.486, -7.079, 0.952)
pt3dadd(129.12, 132.588, -7.089, 0.962)
pt3dadd(129.179, 132.688, -7.1, 0.974)
pt3dadd(129.253, 132.738, -7.143, 0.964)
pt3dadd(129.337, 132.755, -7.208, 0.936)
pt3dadd(129.404, 132.769, -7.289, 0.91)
pt3dadd(129.464, 132.782, -7.375, 0.884)
pt3dadd(129.491, 132.86, -7.443, 0.862)
pt3dadd(129.509, 132.958, -7.506, 0.838)
pt3dadd(129.528, 133.054, -7.57, 0.816)
pt3dadd(129.586, 133.123, -7.613, 0.81)
pt3dadd(129.686, 133.163, -7.636, 0.822)
pt3dadd(129.791, 133.186, -7.657, 0.858)
pt3dadd(129.888, 133.207, -7.697, 0.898)
pt3dadd(129.982, 133.24, -7.747, 0.928)
pt3dadd(130.074, 133.271, -7.796, 0.956)
pt3dadd(130.166, 133.303, -7.846, 0.986)
pt3dadd(130.264, 133.333, -7.882, 1.012)
pt3dadd(130.37, 133.36, -7.893, 1.034)
pt3dadd(130.47, 133.393, -7.909, 1.056)
pt3dadd(130.507, 133.477, -7.976, 1.07)
pt3dadd(130.544, 133.546, -8.05, 1.07)
pt3dadd(130.583, 133.567, -8.146, 1.032)
pt3dadd(130.572, 133.57, -8.152, 1.032)
pt3dadd(130.603, 133.615, -8.235, 0.998)
pt3dadd(130.613, 133.722, -8.288, 0.974)
pt3dadd(130.63, 133.828, -8.334, 0.952)
pt3dadd(130.691, 133.926, -8.34, 0.938)
pt3dadd(130.751, 134.024, -8.346, 0.926)
pt3dadd(130.812, 134.123, -8.352, 0.912)
pt3dadd(130.892, 134.19, -8.365, 0.916)
}
}
proc shape3d_112() {
apic[42] { pt3dadd(130.997, 134.222, -8.387, 0.94)
pt3dadd(131.077, 134.242, -8.437, 0.964)
pt3dadd(131.122, 134.24, -8.532, 0.99)
pt3dadd(131.166, 134.24, -8.626, 1.016)
pt3dadd(131.203, 134.285, -8.706, 1.042)
pt3dadd(131.232, 134.376, -8.771, 1.07)
pt3dadd(131.311, 134.41, -8.802, 1.07)
pt3dadd(131.42, 134.411, -8.811, 1.056)
pt3dadd(131.528, 134.412, -8.82, 1.042)
pt3dadd(131.634, 134.42, -8.835, 1.02)
pt3dadd(131.714, 134.479, -8.885, 0.948)
pt3dadd(131.782, 134.554, -8.932, 0.886)
pt3dadd(131.77, 134.556, -8.938, 0.886)
pt3dadd(131.815, 134.657, -8.978, 0.836)
pt3dadd(131.86, 134.756, -9.019, 0.786)
pt3dadd(131.869, 134.856, -9.078, 0.758)
pt3dadd(131.872, 134.957, -9.141, 0.736)
pt3dadd(131.875, 135.064, -9.195, 0.728)
pt3dadd(131.926, 135.16, -9.235, 0.738)
pt3dadd(131.981, 135.254, -9.274, 0.75)
pt3dadd(132.035, 135.349, -9.313, 0.762)
pt3dadd(132.089, 135.444, -9.352, 0.774)
pt3dadd(132.161, 135.517, -9.393, 0.778)
pt3dadd(132.247, 135.574, -9.437, 0.778)
pt3dadd(132.334, 135.63, -9.48, 0.778)
pt3dadd(132.42, 135.686, -9.523, 0.778)
pt3dadd(132.486, 135.762, -9.564, 0.778)
pt3dadd(132.516, 135.87, -9.602, 0.778)
pt3dadd(132.566, 135.961, -9.631, 0.77)
pt3dadd(132.662, 136.018, -9.637, 0.748)
pt3dadd(132.751, 136.081, -9.645, 0.726)
pt3dadd(132.8, 136.186, -9.667, 0.714)
pt3dadd(132.845, 136.288, -9.695, 0.702)
pt3dadd(132.844, 136.364, -9.779, 0.69)
pt3dadd(132.844, 136.441, -9.863, 0.678)
pt3dadd(132.936, 136.481, -9.903, 0.678)
pt3dadd(133.032, 136.519, -9.94, 0.678)
pt3dadd(133.129, 136.558, -9.978, 0.678)
pt3dadd(133.224, 136.596, -10.019, 0.678)
pt3dadd(133.32, 136.634, -10.061, 0.678)
pt3dadd(133.412, 136.676, -10.099, 0.652)
pt3dadd(133.495, 136.747, -10.131, 0.646)
pt3dadd(133.578, 136.818, -10.162, 0.64)
pt3dadd(133.661, 136.889, -10.194, 0.634)
pt3dadd(133.744, 136.958, -10.226, 0.628)
pt3dadd(133.825, 137.038, -10.232, 0.616)
pt3dadd(133.908, 137.116, -10.238, 0.604)
pt3dadd(133.962, 137.218, -10.244, 0.612)
pt3dadd(134.012, 137.323, -10.25, 0.624)
pt3dadd(134.089, 137.4, -10.256, 0.628)
pt3dadd(134.185, 137.455, -10.262, 0.628)
pt3dadd(134.286, 137.498, -10.268, 0.624)
pt3dadd(134.393, 137.525, -10.274, 0.612)
pt3dadd(134.5, 137.549, -10.28, 0.6)
pt3dadd(134.608, 137.54, -10.286, 0.56)
pt3dadd(134.717, 137.538, -10.292, 0.526)
pt3dadd(134.824, 137.557, -10.297, 0.516)
pt3dadd(134.932, 137.576, -10.303, 0.504)
pt3dadd(135.041, 137.582, -10.309, 0.516)
pt3dadd(135.149, 137.582, -10.315, 0.534)
pt3dadd(135.258, 137.584, -10.322, 0.556)
pt3dadd(135.365, 137.605, -10.332, 0.622)
pt3dadd(135.473, 137.626, -10.343, 0.686)
pt3dadd(135.563, 137.644, -10.394, 0.762)
pt3dadd(135.647, 137.662, -10.46, 0.842)
pt3dadd(135.668, 137.734, -10.537, 0.874)
pt3dadd(135.68, 137.814, -10.617, 0.896)
pt3dadd(135.692, 137.893, -10.696, 0.918)
pt3dadd(135.7, 137.989, -10.76, 0.91)
pt3dadd(135.703, 138.098, -10.811, 0.878)
pt3dadd(135.708, 138.21, -10.856, 0.806)
pt3dadd(135.734, 138.308, -10.904, 0.716)
pt3dadd(135.784, 138.39, -10.966, 0.692)
pt3dadd(135.833, 138.472, -11.028, 0.668)
pt3dadd(135.881, 138.553, -11.09, 0.644)
pt3dadd(135.929, 138.644, -11.138, 0.63)
pt3dadd(135.973, 138.751, -11.16, 0.634)
pt3dadd(136.018, 138.858, -11.182, 0.64)
pt3dadd(136.062, 138.965, -11.204, 0.646)
pt3dadd(136.106, 139.073, -11.226, 0.65)
pt3dadd(136.151, 139.18, -11.24, 0.672)
pt3dadd(136.194, 139.289, -11.247, 0.714)
pt3dadd(136.242, 139.396, -11.253, 0.76)
pt3dadd(136.327, 139.47, -11.264, 0.832)
pt3dadd(136.41, 139.543, -11.278, 0.906)
pt3dadd(136.398, 139.546, -11.284, 0.906)
pt3dadd(136.387, 139.548, -11.29, 0.906)
pt3dadd(136.414, 139.618, -11.373, 0.988)
pt3dadd(136.441, 139.69, -11.453, 1.06)
pt3dadd(136.47, 139.78, -11.518, 1.086)
pt3dadd(136.519, 139.855, -11.574, 1.094)
pt3dadd(136.619, 139.895, -11.606, 1.056)
pt3dadd(136.681, 139.972, -11.66, 1.012)
pt3dadd(136.742, 140.05, -11.715, 0.97)
pt3dadd(136.805, 140.126, -11.77, 0.926)
pt3dadd(136.866, 140.204, -11.825, 0.884)
pt3dadd(136.925, 140.299, -11.856, 0.854)
pt3dadd(136.984, 140.395, -11.884, 0.826)
pt3dadd(137.042, 140.492, -11.911, 0.798)
pt3dadd(137.1, 140.588, -11.939, 0.772)
pt3dadd(137.162, 140.683, -11.96, 0.75)
pt3dadd(137.232, 140.774, -11.966, 0.738)
pt3dadd(137.299, 140.867, -11.975, 0.734)
pt3dadd(137.356, 140.966, -11.997, 0.758)
pt3dadd(137.404, 141.064, -12.029, 0.782)
pt3dadd(137.41, 141.15, -12.106, 0.808)
pt3dadd(137.417, 141.236, -12.181, 0.826)
pt3dadd(137.419, 141.337, -12.243, 0.802)
pt3dadd(137.422, 141.438, -12.306, 0.78)
pt3dadd(137.422, 141.515, -12.389, 0.762)
pt3dadd(137.42, 141.588, -12.476, 0.754)
pt3dadd(137.418, 141.659, -12.563, 0.754)
pt3dadd(137.417, 141.73, -12.651, 0.754)
pt3dadd(137.416, 141.8, -12.739, 0.754)
pt3dadd(137.414, 141.871, -12.827, 0.754)
pt3dadd(137.414, 141.956, -12.903, 0.762)
pt3dadd(137.417, 142.054, -12.969, 0.776)
pt3dadd(137.419, 142.152, -13.035, 0.792)
pt3dadd(137.407, 142.154, -13.041, 0.792)
pt3dadd(137.41, 142.252, -13.107, 0.806)
pt3dadd(137.412, 142.349, -13.173, 0.822)
pt3dadd(137.416, 142.456, -13.223, 0.832)
pt3dadd(137.42, 142.572, -13.259, 0.836)
pt3dadd(137.425, 142.687, -13.294, 0.84)
pt3dadd(137.43, 142.804, -13.33, 0.844)
pt3dadd(137.435, 142.92, -13.366, 0.85)
pt3dadd(137.44, 143.035, -13.402, 0.854)
pt3dadd(137.443, 143.142, -13.456, 0.864)
pt3dadd(137.447, 143.246, -13.512, 0.872)
pt3dadd(137.449, 143.352, -13.568, 0.882)
pt3dadd(137.453, 143.458, -13.624, 0.892)
pt3dadd(137.456, 143.563, -13.679, 0.902)
pt3dadd(137.478, 143.638, -13.758, 0.918)
pt3dadd(137.503, 143.706, -13.843, 0.934)
pt3dadd(137.528, 143.773, -13.927, 0.952)
pt3dadd(137.555, 143.84, -14.011, 0.97)
pt3dadd(137.57, 143.92, -14.089, 0.994)
pt3dadd(137.572, 144.014, -14.157, 1.028)
pt3dadd(137.574, 144.11, -14.226, 1.064)
pt3dadd(137.576, 144.205, -14.294, 1.1)
pt3dadd(137.578, 144.3, -14.362, 1.134)
pt3dadd(137.58, 144.386, -14.438, 1.166)
pt3dadd(137.581, 144.462, -14.523, 1.192)
pt3dadd(137.584, 144.536, -14.608, 1.218)
pt3dadd(137.585, 144.611, -14.693, 1.242)
pt3dadd(137.586, 144.685, -14.779, 1.268)
pt3dadd(137.603, 144.77, -14.851, 1.286)
pt3dadd(137.632, 144.864, -14.912, 1.298)
pt3dadd(137.66, 144.959, -14.973, 1.31)
pt3dadd(137.689, 145.052, -15.035, 1.32)
pt3dadd(137.678, 145.055, -15.04, 1.32)
pt3dadd(137.71, 145.145, -15.104, 1.328)
pt3dadd(137.756, 145.19, -15.189, 1.3)
pt3dadd(137.792, 145.247, -15.272, 1.268)
pt3dadd(137.8, 145.333, -15.349, 1.218)
pt3dadd(137.815, 145.42, -15.42, 1.168)
pt3dadd(137.861, 145.51, -15.475, 1.112)
pt3dadd(137.898, 145.607, -15.526, 1.056)
pt3dadd(137.921, 145.716, -15.569, 0.994)
pt3dadd(137.938, 145.828, -15.602, 0.932)
pt3dadd(137.944, 145.949, -15.614, 0.866)
pt3dadd(137.948, 146.07, -15.629, 0.808)
pt3dadd(137.954, 146.19, -15.647, 0.762)
pt3dadd(137.959, 146.31, -15.665, 0.714)
pt3dadd(137.946, 146.407, -15.726, 0.674)
pt3dadd(137.927, 146.495, -15.802, 0.634)
pt3dadd(137.89, 146.599, -15.854, 0.64)
pt3dadd(137.85, 146.707, -15.902, 0.652)
pt3dadd(137.839, 146.71, -15.908, 0.652)
pt3dadd(137.827, 146.712, -15.914, 0.652)
pt3dadd(137.819, 146.743, -16.016, 0.682)
pt3dadd(137.812, 146.772, -16.119, 0.712)
pt3dadd(137.788, 146.838, -16.194, 0.742)
pt3dadd(137.777, 146.84, -16.2, 0.742)
pt3dadd(137.734, 146.95, -16.241, 0.774)
pt3dadd(137.69, 147.06, -16.283, 0.808)
pt3dadd(137.65, 147.173, -16.313, 0.84)
pt3dadd(137.615, 147.293, -16.319, 0.872)
pt3dadd(137.58, 147.414, -16.324, 0.904)
pt3dadd(137.568, 147.535, -16.332, 0.928)
pt3dadd(137.519, 147.65, -16.354, 0.916)
pt3dadd(137.467, 147.762, -16.378, 0.902)
pt3dadd(137.362, 147.82, -16.426, 0.848)
pt3dadd(137.27, 147.876, -16.483, 0.798)
pt3dadd(137.232, 147.924, -16.578, 0.774)
pt3dadd(137.185, 147.965, -16.673, 0.754)
pt3dadd(137.112, 147.983, -16.764, 0.754)
pt3dadd(137.041, 148.01, -16.846, 0.756)
pt3dadd(136.982, 148.122, -16.862, 0.778)
pt3dadd(136.922, 148.234, -16.877, 0.8)
pt3dadd(136.864, 148.346, -16.893, 0.822)
pt3dadd(136.787, 148.436, -16.933, 0.838)
pt3dadd(136.703, 148.518, -16.983, 0.852)
pt3dadd(136.626, 148.573, -17.053, 0.85)
pt3dadd(136.579, 148.669, -17.115, 0.838)
pt3dadd(136.532, 148.764, -17.178, 0.826)
pt3dadd(136.486, 148.859, -17.24, 0.814)
pt3dadd(136.444, 148.952, -17.305, 0.804)
pt3dadd(136.426, 149.035, -17.384, 0.804)
pt3dadd(136.409, 149.119, -17.464, 0.804)
}
}
proc shape3d_113() {
apic[42] { pt3dadd(136.391, 149.203, -17.543, 0.804)
pt3dadd(136.373, 149.286, -17.623, 0.804)
pt3dadd(136.368, 149.378, -17.694, 0.804)
pt3dadd(136.37, 149.476, -17.76, 0.804)
pt3dadd(136.373, 149.574, -17.826, 0.804)
pt3dadd(136.374, 149.671, -17.892, 0.804)
pt3dadd(136.376, 149.768, -17.958, 0.804)
pt3dadd(136.376, 149.844, -18.04, 0.818)
pt3dadd(136.373, 149.908, -18.132, 0.84)
pt3dadd(136.373, 149.988, -18.209, 0.854)
pt3dadd(136.376, 150.092, -18.265, 0.854)
pt3dadd(136.379, 150.202, -18.314, 0.852)
pt3dadd(136.379, 150.322, -18.338, 0.842)
pt3dadd(136.379, 150.442, -18.362, 0.832)
pt3dadd(136.307, 150.527, -18.4, 0.798)
pt3dadd(136.208, 150.599, -18.442, 0.756)
pt3dadd(136.169, 150.713, -18.474, 0.718)
pt3dadd(136.128, 150.812, -18.527, 0.7)
pt3dadd(136.084, 150.9, -18.597, 0.694)
pt3dadd(136.039, 150.989, -18.668, 0.688)
pt3dadd(135.995, 151.076, -18.738, 0.682)
pt3dadd(135.965, 151.176, -18.795, 0.678)
pt3dadd(135.958, 151.292, -18.833, 0.678)
pt3dadd(135.949, 151.408, -18.872, 0.678)
pt3dadd(135.941, 151.524, -18.911, 0.678)
pt3dadd(135.932, 151.639, -18.949, 0.678)
pt3dadd(135.911, 151.748, -18.996, 0.678)
pt3dadd(135.864, 151.843, -19.058, 0.678)
pt3dadd(135.817, 151.938, -19.12, 0.678)
pt3dadd(135.77, 152.034, -19.182, 0.678)
pt3dadd(135.72, 152.128, -19.243, 0.678)
pt3dadd(135.656, 152.221, -19.298, 0.678)
pt3dadd(135.592, 152.314, -19.353, 0.678)
pt3dadd(135.527, 152.406, -19.408, 0.678)
pt3dadd(135.467, 152.501, -19.462, 0.678)
pt3dadd(135.445, 152.615, -19.504, 0.678)
pt3dadd(135.424, 152.728, -19.545, 0.678)
pt3dadd(135.402, 152.842, -19.587, 0.678)
pt3dadd(135.38, 152.956, -19.629, 0.678)
pt3dadd(135.371, 153.07, -19.673, 0.678)
pt3dadd(135.36, 153.072, -19.679, 0.678)
}
apic[43] {pt3dclear()
pt3dadd(116.63, 114.217, 7.703, 2.822)
pt3dadd(116.517, 114.19, 7.626, 2.78)
pt3dadd(116.437, 114.124, 7.543, 2.716)
pt3dadd(116.357, 114.058, 7.459, 2.654)
pt3dadd(116.276, 113.992, 7.376, 2.592)
pt3dadd(116.196, 113.926, 7.293, 2.53)
pt3dadd(116.116, 113.86, 7.209, 2.466)
pt3dadd(116.035, 113.794, 7.126, 2.404)
pt3dadd(115.955, 113.728, 7.043, 2.342)
pt3dadd(115.874, 113.661, 6.959, 2.278)
pt3dadd(115.794, 113.595, 6.876, 2.216)
pt3dadd(115.713, 113.529, 6.792, 2.154)
pt3dadd(115.633, 113.463, 6.709, 2.092)
pt3dadd(115.553, 113.397, 6.626, 2.028)
pt3dadd(115.472, 113.331, 6.542, 1.966)
pt3dadd(115.392, 113.265, 6.459, 1.904)
pt3dadd(115.312, 113.199, 6.376, 1.84)
pt3dadd(115.274, 113.148, 6.286, 1.808)
pt3dadd(115.283, 113.115, 6.19, 1.808)
pt3dadd(115.292, 113.082, 6.094, 1.808)
pt3dadd(115.301, 113.049, 5.998, 1.808)
pt3dadd(115.3, 113.02, 5.899, 1.808)
pt3dadd(115.258, 113.006, 5.786, 1.808)
pt3dadd(115.216, 112.992, 5.674, 1.808)
pt3dadd(115.175, 112.978, 5.561, 1.808)
pt3dadd(115.133, 112.964, 5.449, 1.808)
pt3dadd(115.091, 112.95, 5.336, 1.808)
pt3dadd(115.058, 112.931, 5.225, 1.808)
pt3dadd(115.032, 112.908, 5.116, 1.808)
pt3dadd(115.03, 112.89, 5.016, 1.808)
pt3dadd(115.07, 112.883, 4.931, 1.808)
pt3dadd(115.109, 112.886, 4.845, 1.808)
pt3dadd(115.146, 112.899, 4.756, 1.808)
pt3dadd(115.195, 112.908, 4.688, 1.808)
pt3dadd(115.27, 112.906, 4.663, 1.808)
pt3dadd(115.344, 112.904, 4.639, 1.808)
pt3dadd(115.365, 112.871, 4.557, 1.808)
pt3dadd(115.374, 112.831, 4.464, 1.808)
pt3dadd(115.383, 112.791, 4.371, 1.808)
pt3dadd(115.359, 112.729, 4.282, 1.808)
pt3dadd(115.328, 112.662, 4.194, 1.808)
pt3dadd(115.32, 112.575, 4.147, 1.808)
pt3dadd(115.328, 112.521, 4.061, 1.808)
pt3dadd(115.336, 112.467, 3.976, 1.808)
pt3dadd(115.344, 112.413, 3.89, 1.808)
pt3dadd(115.353, 112.359, 3.805, 1.808)
pt3dadd(115.389, 112.325, 3.728, 1.808)
pt3dadd(115.426, 112.29, 3.651, 1.808)
pt3dadd(115.463, 112.255, 3.573, 1.808)
pt3dadd(115.5, 112.221, 3.496, 1.808)
pt3dadd(115.5, 112.145, 3.428, 1.808)
pt3dadd(115.497, 112.065, 3.36, 1.808)
pt3dadd(115.494, 111.985, 3.292, 1.808)
pt3dadd(115.49, 111.905, 3.225, 1.808)
pt3dadd(115.49, 111.843, 3.143, 1.808)
pt3dadd(115.491, 111.79, 3.054, 1.808)
pt3dadd(115.471, 111.712, 2.979, 1.808)
pt3dadd(115.447, 111.63, 2.906, 1.808)
pt3dadd(115.403, 111.644, 2.891, 1.808)
pt3dadd(115.454, 111.624, 2.829, 1.808)
pt3dadd(115.514, 111.61, 2.768, 1.808)
pt3dadd(115.545, 111.58, 2.684, 1.808)
pt3dadd(115.574, 111.551, 2.599, 1.808)
pt3dadd(115.595, 111.533, 2.503, 1.808)
pt3dadd(115.618, 111.545, 2.405, 1.808)
pt3dadd(115.642, 111.559, 2.308, 1.808)
pt3dadd(115.668, 111.568, 2.211, 1.808)
pt3dadd(115.695, 111.576, 2.115, 1.808)
pt3dadd(115.708, 111.52, 2.046, 1.808)
pt3dadd(115.716, 111.438, 1.988, 1.808)
pt3dadd(115.696, 111.381, 1.897, 1.808)
pt3dadd(115.672, 111.326, 1.802, 1.808)
pt3dadd(115.681, 111.295, 1.705, 1.808)
pt3dadd(115.657, 111.236, 1.616, 1.808)
pt3dadd(115.62, 111.165, 1.53, 1.808)
pt3dadd(115.582, 111.108, 1.435, 1.808)
pt3dadd(115.544, 111.059, 1.335, 1.808)
pt3dadd(115.533, 111.007, 1.244, 1.808)
pt3dadd(115.543, 110.952, 1.159, 1.808)
pt3dadd(115.564, 110.937, 1.065, 1.808)
pt3dadd(115.589, 110.93, 0.97, 1.808)
pt3dadd(115.645, 110.933, 0.903, 1.808)
pt3dadd(115.707, 110.92, 0.852, 1.808)
pt3dadd(115.77, 110.887, 0.814, 1.808)
pt3dadd(115.831, 110.874, 0.762, 1.808)
pt3dadd(115.889, 110.881, 0.693, 1.808)
pt3dadd(115.936, 110.874, 0.619, 1.808)
pt3dadd(115.967, 110.843, 0.535, 1.808)
pt3dadd(115.97, 110.801, 0.444, 1.808)
pt3dadd(115.953, 110.752, 0.346, 1.808)
pt3dadd(115.963, 110.725, 0.25, 1.808)
pt3dadd(115.976, 110.699, 0.154, 1.808)
pt3dadd(115.981, 110.664, 0.057, 1.808)
pt3dadd(115.986, 110.629, -0.04, 1.808)
pt3dadd(115.942, 110.643, -0.055, 1.582)
pt3dadd(115.986, 110.644, -0.137, 1.602)
pt3dadd(116.03, 110.646, -0.22, 1.622)
pt3dadd(116.074, 110.647, -0.303, 1.642)
pt3dadd(116.118, 110.649, -0.385, 1.662)
pt3dadd(116.161, 110.651, -0.469, 1.684)
pt3dadd(116.171, 110.66, -0.573, 1.714)
pt3dadd(116.182, 110.669, -0.677, 1.742)
pt3dadd(116.192, 110.677, -0.782, 1.772)
pt3dadd(116.203, 110.686, -0.886, 1.802)
pt3dadd(116.213, 110.695, -0.99, 1.83)
pt3dadd(116.184, 110.746, -1.099, 1.896)
pt3dadd(116.152, 110.8, -1.208, 1.962)
pt3dadd(116.159, 110.825, -1.308, 2.016)
pt3dadd(116.186, 110.835, -1.404, 2.064)
pt3dadd(116.126, 110.862, -1.467, 2.084)
}
apic[44] {pt3dclear()
pt3dadd(116.126, 110.862, -1.467, 2.084)
pt3dadd(116.146, 110.859, -1.469, 2.084)
pt3dadd(116.264, 110.843, -1.481, 2.084)
pt3dadd(116.382, 110.826, -1.493, 2.084)
pt3dadd(116.499, 110.81, -1.508, 2.08)
pt3dadd(116.616, 110.793, -1.525, 2.07)
pt3dadd(116.733, 110.777, -1.542, 2.06)
pt3dadd(116.803, 110.767, -1.618, 2.044)
pt3dadd(116.878, 110.756, -1.695, 2.034)
pt3dadd(116.969, 110.744, -1.759, 2.034)
pt3dadd(117.059, 110.731, -1.824, 2.034)
pt3dadd(117.15, 110.718, -1.889, 2.034)
pt3dadd(117.24, 110.705, -1.954, 2.034)
pt3dadd(117.331, 110.682, -2.015, 2.028)
pt3dadd(117.422, 110.645, -2.072, 2.018)
pt3dadd(117.513, 110.608, -2.13, 2.006)
pt3dadd(117.605, 110.571, -2.187, 1.996)
pt3dadd(117.696, 110.534, -2.244, 1.984)
pt3dadd(117.759, 110.522, -2.328, 1.958)
pt3dadd(117.822, 110.51, -2.413, 1.934)
pt3dadd(117.885, 110.499, -2.497, 1.908)
pt3dadd(117.948, 110.487, -2.582, 1.884)
pt3dadd(118.011, 110.476, -2.667, 1.858)
}
apic[45] {pt3dclear()
pt3dadd(118.011, 110.476, -2.667, 1.858)
pt3dadd(118.098, 110.464, -2.725, 1.748)
pt3dadd(118.191, 110.451, -2.788, 1.63)
pt3dadd(118.292, 110.436, -2.841, 1.514)
pt3dadd(118.394, 110.422, -2.891, 1.4)
pt3dadd(118.479, 110.368, -2.938, 1.278)
pt3dadd(118.552, 110.289, -2.982, 1.148)
pt3dadd(118.634, 110.211, -3.015, 1.106)
pt3dadd(118.718, 110.134, -3.045, 1.08)
pt3dadd(118.751, 110.13, -3.141, 1.096)
pt3dadd(118.775, 110.108, -3.236, 1.12)
pt3dadd(118.788, 110.061, -3.327, 1.156)
pt3dadd(118.826, 110.004, -3.391, 1.168)
pt3dadd(118.918, 109.927, -3.396, 1.132)
pt3dadd(119.015, 109.862, -3.4, 1.094)
pt3dadd(119.133, 109.841, -3.4, 1.042)
pt3dadd(119.252, 109.82, -3.4, 0.99)
pt3dadd(119.37, 109.8, -3.4, 0.944)
pt3dadd(119.489, 109.784, -3.4, 0.91)
pt3dadd(119.608, 109.767, -3.4, 0.876)
pt3dadd(119.726, 109.75, -3.403, 0.862)
pt3dadd(119.844, 109.734, -3.413, 0.882)
pt3dadd(119.963, 109.717, -3.423, 0.904)
pt3dadd(120.082, 109.7, -3.432, 0.926)
pt3dadd(120.199, 109.684, -3.442, 0.948)
pt3dadd(120.252, 109.706, -3.513, 1.018)
}
}
proc shape3d_114() {
apic[45] { pt3dadd(120.283, 109.741, -3.605, 1.104)
pt3dadd(120.31, 109.776, -3.698, 1.252)
pt3dadd(120.367, 109.819, -3.778, 1.296)
pt3dadd(120.427, 109.857, -3.858, 1.34)
pt3dadd(120.498, 109.868, -3.938, 1.392)
pt3dadd(120.577, 109.873, -4.009, 1.438)
pt3dadd(120.688, 109.857, -4.048, 1.472)
pt3dadd(120.797, 109.842, -4.086, 1.504)
pt3dadd(120.913, 109.826, -4.105, 1.488)
pt3dadd(121.031, 109.809, -4.122, 1.47)
pt3dadd(121.145, 109.793, -4.146, 1.424)
pt3dadd(121.256, 109.777, -4.181, 1.326)
pt3dadd(121.373, 109.761, -4.2, 1.286)
pt3dadd(121.49, 109.745, -4.215, 1.262)
pt3dadd(121.608, 109.728, -4.229, 1.238)
pt3dadd(121.726, 109.712, -4.244, 1.214)
pt3dadd(121.843, 109.695, -4.258, 1.188)
pt3dadd(121.96, 109.679, -4.272, 1.164)
pt3dadd(122.071, 109.679, -4.305, 1.142)
pt3dadd(122.179, 109.691, -4.349, 1.12)
pt3dadd(122.286, 109.702, -4.392, 1.098)
pt3dadd(122.394, 109.713, -4.436, 1.076)
pt3dadd(122.501, 109.725, -4.48, 1.052)
pt3dadd(122.593, 109.732, -4.544, 1)
pt3dadd(122.683, 109.743, -4.608, 0.948)
pt3dadd(122.755, 109.778, -4.683, 0.892)
pt3dadd(122.827, 109.806, -4.759, 0.838)
pt3dadd(122.898, 109.816, -4.839, 0.786)
pt3dadd(122.987, 109.83, -4.891, 0.746)
pt3dadd(123.106, 109.848, -4.896, 0.724)
pt3dadd(123.223, 109.864, -4.9, 0.702)
pt3dadd(123.343, 109.848, -4.9, 0.676)
pt3dadd(123.462, 109.832, -4.9, 0.652)
pt3dadd(123.581, 109.833, -4.9, 0.622)
pt3dadd(123.698, 109.857, -4.9, 0.626)
pt3dadd(123.815, 109.883, -4.9, 0.71)
pt3dadd(123.935, 109.884, -4.9, 0.818)
pt3dadd(124.054, 109.869, -4.9, 0.874)
pt3dadd(124.172, 109.852, -4.9, 0.902)
pt3dadd(124.29, 109.836, -4.911, 0.904)
pt3dadd(124.386, 109.828, -4.966, 0.904)
pt3dadd(124.426, 109.853, -5.056, 0.904)
pt3dadd(124.434, 109.901, -5.147, 0.938)
pt3dadd(124.438, 109.928, -5.244, 1.026)
pt3dadd(124.442, 109.942, -5.343, 1.122)
pt3dadd(124.45, 109.957, -5.442, 1.16)
pt3dadd(124.457, 109.971, -5.541, 1.2)
pt3dadd(124.512, 110.043, -5.598, 1.242)
pt3dadd(124.578, 110.12, -5.65, 1.278)
pt3dadd(124.656, 110.13, -5.725, 1.252)
pt3dadd(124.74, 110.136, -5.794, 1.226)
pt3dadd(124.852, 110.12, -5.827, 1.194)
pt3dadd(124.964, 110.105, -5.86, 1.162)
pt3dadd(125.08, 110.088, -5.882, 1.096)
pt3dadd(125.196, 110.077, -5.901, 1.024)
pt3dadd(125.309, 110.118, -5.906, 0.966)
pt3dadd(125.422, 110.159, -5.911, 0.906)
pt3dadd(125.514, 110.214, -5.953, 0.85)
pt3dadd(125.608, 110.257, -6, 0.802)
pt3dadd(125.705, 110.243, -6.056, 0.79)
pt3dadd(125.8, 110.229, -6.115, 0.78)
pt3dadd(125.809, 110.228, -6.214, 0.806)
pt3dadd(125.819, 110.227, -6.314, 0.834)
pt3dadd(125.846, 110.223, -6.406, 0.872)
pt3dadd(125.93, 110.211, -6.477, 0.942)
pt3dadd(126.022, 110.224, -6.54, 0.974)
pt3dadd(126.115, 110.242, -6.602, 0.996)
pt3dadd(126.208, 110.26, -6.664, 1.02)
pt3dadd(126.3, 110.278, -6.725, 1.044)
pt3dadd(126.39, 110.315, -6.782, 1.062)
pt3dadd(126.478, 110.369, -6.834, 1.074)
pt3dadd(126.565, 110.423, -6.886, 1.086)
pt3dadd(126.652, 110.476, -6.938, 1.098)
pt3dadd(126.725, 110.522, -7.004, 1.104)
pt3dadd(126.781, 110.558, -7.087, 1.104)
pt3dadd(126.854, 110.566, -7.162, 1.098)
pt3dadd(126.942, 110.554, -7.23, 1.086)
pt3dadd(127.043, 110.542, -7.273, 1.07)
pt3dadd(127.162, 110.53, -7.286, 1.052)
pt3dadd(127.28, 110.519, -7.298, 1.032)
pt3dadd(127.396, 110.544, -7.3, 1.01)
pt3dadd(127.512, 110.575, -7.3, 0.988)
pt3dadd(127.609, 110.605, -7.339, 0.96)
pt3dadd(127.694, 110.633, -7.406, 0.926)
pt3dadd(127.78, 110.662, -7.472, 0.892)
pt3dadd(127.861, 110.694, -7.54, 0.854)
pt3dadd(127.942, 110.728, -7.609, 0.812)
pt3dadd(128.046, 110.76, -7.647, 0.788)
pt3dadd(128.155, 110.792, -7.677, 0.768)
pt3dadd(128.264, 110.83, -7.704, 0.756)
pt3dadd(128.369, 110.884, -7.721, 0.77)
pt3dadd(128.453, 110.952, -7.749, 0.802)
pt3dadd(128.513, 111.046, -7.778, 0.846)
pt3dadd(128.587, 111.138, -7.795, 0.87)
pt3dadd(128.658, 111.233, -7.804, 0.872)
pt3dadd(128.729, 111.33, -7.809, 0.86)
pt3dadd(128.767, 111.419, -7.85, 0.828)
pt3dadd(128.779, 111.499, -7.924, 0.78)
pt3dadd(128.791, 111.585, -7.993, 0.734)
pt3dadd(128.803, 111.678, -8.055, 0.686)
pt3dadd(128.814, 111.753, -8.127, 0.652)
pt3dadd(128.819, 111.782, -8.224, 0.652)
pt3dadd(128.822, 111.811, -8.321, 0.652)
pt3dadd(128.826, 111.84, -8.418, 0.652)
pt3dadd(128.836, 111.866, -8.515, 0.656)
pt3dadd(128.876, 111.879, -8.608, 0.68)
pt3dadd(128.916, 111.893, -8.702, 0.704)
pt3dadd(128.944, 111.951, -8.786, 0.732)
pt3dadd(128.972, 112.008, -8.871, 0.76)
pt3dadd(129.014, 112.078, -8.939, 0.794)
pt3dadd(129.079, 112.165, -8.982, 0.836)
pt3dadd(129.154, 112.249, -9.016, 0.884)
pt3dadd(129.236, 112.33, -9.043, 0.934)
pt3dadd(129.322, 112.402, -9.069, 0.986)
pt3dadd(129.439, 112.403, -9.088, 1.04)
pt3dadd(129.557, 112.404, -9.108, 1.094)
pt3dadd(129.64, 112.438, -9.168, 1.104)
pt3dadd(129.714, 112.479, -9.239, 1.104)
pt3dadd(129.769, 112.52, -9.319, 1.082)
pt3dadd(129.802, 112.563, -9.408, 1.032)
pt3dadd(129.864, 112.619, -9.464, 0.968)
pt3dadd(129.958, 112.69, -9.481, 0.89)
pt3dadd(130.052, 112.762, -9.498, 0.81)
pt3dadd(130.163, 112.802, -9.515, 0.746)
pt3dadd(130.276, 112.84, -9.531, 0.684)
pt3dadd(130.326, 112.924, -9.58, 0.576)
pt3dadd(130.396, 112.994, -9.638, 0.57)
pt3dadd(130.465, 113.064, -9.695, 0.564)
pt3dadd(130.534, 113.133, -9.752, 0.558)
pt3dadd(130.606, 113.201, -9.809, 0.55)
pt3dadd(130.692, 113.259, -9.86, 0.536)
pt3dadd(130.79, 113.3, -9.893, 0.536)
pt3dadd(130.909, 113.32, -9.903, 0.56)
pt3dadd(131.022, 113.337, -9.923, 0.59)
pt3dadd(131.12, 113.344, -9.98, 0.656)
pt3dadd(131.214, 113.346, -10.041, 0.724)
pt3dadd(131.296, 113.335, -10.115, 0.808)
pt3dadd(131.374, 113.324, -10.19, 0.894)
pt3dadd(131.437, 113.315, -10.274, 0.998)
pt3dadd(131.494, 113.307, -10.362, 1.06)
pt3dadd(131.546, 113.3, -10.451, 1.106)
pt3dadd(131.604, 113.301, -10.538, 1.136)
pt3dadd(131.668, 113.312, -10.623, 1.148)
pt3dadd(131.75, 113.344, -10.675, 1.156)
pt3dadd(131.856, 113.399, -10.692, 1.156)
pt3dadd(131.93, 113.479, -10.718, 1.134)
pt3dadd(131.978, 113.581, -10.752, 1.096)
pt3dadd(132.043, 113.659, -10.799, 1.056)
pt3dadd(132.136, 113.702, -10.847, 1.02)
pt3dadd(132.246, 113.72, -10.881, 0.994)
pt3dadd(132.346, 113.768, -10.9, 0.99)
pt3dadd(132.426, 113.856, -10.9, 1.012)
pt3dadd(132.505, 113.946, -10.9, 1.036)
pt3dadd(132.58, 114.04, -10.9, 1.058)
pt3dadd(132.65, 114.136, -10.901, 1.08)
pt3dadd(132.672, 114.253, -10.914, 1.08)
pt3dadd(132.694, 114.37, -10.927, 1.08)
pt3dadd(132.732, 114.472, -10.959, 1.064)
pt3dadd(132.79, 114.558, -11.01, 1.03)
pt3dadd(132.846, 114.643, -11.062, 0.996)
pt3dadd(132.932, 114.687, -11.091, 0.956)
pt3dadd(133.052, 114.686, -11.095, 0.908)
pt3dadd(133.172, 114.685, -11.1, 0.86)
pt3dadd(133.285, 114.723, -11.1, 0.774)
pt3dadd(133.388, 114.784, -11.1, 0.752)
pt3dadd(133.492, 114.846, -11.1, 0.728)
pt3dadd(133.572, 114.934, -11.1, 0.728)
pt3dadd(133.654, 115.023, -11.1, 0.728)
pt3dadd(133.716, 115.123, -11.114, 0.728)
pt3dadd(133.776, 115.225, -11.13, 0.728)
pt3dadd(133.801, 115.337, -11.155, 0.744)
pt3dadd(133.818, 115.451, -11.182, 0.766)
pt3dadd(133.836, 115.566, -11.2, 0.792)
pt3dadd(133.86, 115.684, -11.2, 0.832)
pt3dadd(133.902, 115.79, -11.217, 0.898)
pt3dadd(133.967, 115.882, -11.253, 0.992)
pt3dadd(134.004, 115.987, -11.284, 1.096)
pt3dadd(134.026, 116.1, -11.313, 1.204)
pt3dadd(134.046, 116.212, -11.343, 1.31)
pt3dadd(134.062, 116.325, -11.376, 1.418)
pt3dadd(134.077, 116.437, -11.409, 1.524)
pt3dadd(134.047, 116.519, -11.475, 1.598)
pt3dadd(134.012, 116.601, -11.542, 1.654)
pt3dadd(133.975, 116.693, -11.598, 1.628)
pt3dadd(133.938, 116.785, -11.655, 1.602)
pt3dadd(133.913, 116.881, -11.7, 1.566)
pt3dadd(133.939, 116.998, -11.7, 1.476)
pt3dadd(133.967, 117.115, -11.7, 1.388)
pt3dadd(134.029, 117.212, -11.703, 1.3)
pt3dadd(134.114, 117.297, -11.707, 1.21)
pt3dadd(134.198, 117.382, -11.711, 1.118)
pt3dadd(134.275, 117.411, -11.776, 1.026)
pt3dadd(134.35, 117.429, -11.853, 0.932)
pt3dadd(134.42, 117.505, -11.89, 0.824)
pt3dadd(134.516, 117.577, -11.892, 0.808)
pt3dadd(134.612, 117.65, -11.894, 0.792)
pt3dadd(134.708, 117.722, -11.897, 0.776)
pt3dadd(134.804, 117.794, -11.899, 0.762)
pt3dadd(134.896, 117.871, -11.9, 0.748)
pt3dadd(134.983, 117.953, -11.9, 0.738)
}
}
proc shape3d_115() {
apic[45] { pt3dadd(135.07, 118.036, -11.9, 0.728)
pt3dadd(135.157, 118.118, -11.9, 0.718)
pt3dadd(135.245, 118.2, -11.9, 0.708)
pt3dadd(135.323, 118.289, -11.911, 0.7)
pt3dadd(135.392, 118.383, -11.933, 0.694)
pt3dadd(135.462, 118.477, -11.955, 0.69)
pt3dadd(135.532, 118.571, -11.977, 0.684)
pt3dadd(135.601, 118.665, -12, 0.678)
pt3dadd(135.666, 118.741, -12.056, 0.678)
pt3dadd(135.733, 118.819, -12.1, 0.678)
pt3dadd(135.815, 118.907, -12.1, 0.678)
pt3dadd(135.894, 118.996, -12.101, 0.678)
pt3dadd(135.964, 119.091, -12.124, 0.678)
pt3dadd(136.027, 119.176, -12.156, 0.678)
pt3dadd(136.055, 119.197, -12.252, 0.678)
pt3dadd(136.081, 119.217, -12.347, 0.678)
pt3dadd(136.186, 119.257, -12.371, 0.678)
pt3dadd(136.296, 119.298, -12.387, 0.678)
pt3dadd(136.408, 119.339, -12.404, 0.678)
pt3dadd(136.512, 119.373, -12.439, 0.67)
pt3dadd(136.613, 119.403, -12.488, 0.656)
pt3dadd(136.698, 119.449, -12.545, 0.654)
pt3dadd(136.789, 119.471, -12.607, 0.66)
pt3dadd(136.88, 119.493, -12.669, 0.666)
pt3dadd(136.972, 119.514, -12.732, 0.672)
pt3dadd(137.063, 119.536, -12.794, 0.678)
pt3dadd(137.17, 119.527, -12.837, 0.696)
pt3dadd(137.279, 119.514, -12.877, 0.714)
pt3dadd(137.388, 119.501, -12.917, 0.734)
pt3dadd(137.497, 119.488, -12.958, 0.754)
pt3dadd(137.606, 119.475, -12.998, 0.772)
pt3dadd(137.711, 119.462, -13.045, 0.802)
pt3dadd(137.813, 119.447, -13.096, 0.836)
pt3dadd(137.92, 119.432, -13.141, 0.86)
pt3dadd(138.029, 119.417, -13.18, 0.87)
pt3dadd(138.136, 119.402, -13.222, 0.878)
pt3dadd(138.234, 119.388, -13.279, 0.878)
pt3dadd(138.329, 119.375, -13.337, 0.878)
pt3dadd(138.354, 119.389, -13.434, 0.878)
pt3dadd(138.379, 119.403, -13.531, 0.878)
pt3dadd(138.444, 119.451, -13.599, 0.892)
pt3dadd(138.523, 119.51, -13.656, 0.91)
pt3dadd(138.601, 119.569, -13.714, 0.926)
pt3dadd(138.702, 119.602, -13.758, 0.918)
pt3dadd(138.808, 119.631, -13.8, 0.904)
pt3dadd(138.922, 119.643, -13.823, 0.844)
pt3dadd(139.031, 119.634, -13.863, 0.81)
pt3dadd(139.136, 119.627, -13.907, 0.78)
pt3dadd(139.207, 119.637, -13.988, 0.792)
pt3dadd(139.285, 119.651, -14.059, 0.812)
pt3dadd(139.398, 119.683, -14.081, 0.862)
pt3dadd(139.511, 119.713, -14.1, 0.91)
pt3dadd(139.628, 119.737, -14.1, 0.954)
pt3dadd(139.746, 119.76, -14.1, 0.996)
pt3dadd(139.85, 119.757, -14.143, 1.004)
pt3dadd(139.951, 119.746, -14.196, 1.004)
pt3dadd(140.053, 119.736, -14.249, 1.004)
pt3dadd(140.15, 119.725, -14.307, 0.992)
pt3dadd(140.238, 119.712, -14.374, 0.944)
pt3dadd(140.328, 119.7, -14.436, 0.9)
pt3dadd(140.446, 119.683, -14.456, 0.862)
pt3dadd(140.562, 119.667, -14.475, 0.826)
pt3dadd(140.678, 119.651, -14.495, 0.788)
pt3dadd(140.796, 119.634, -14.503, 0.766)
pt3dadd(140.915, 119.617, -14.507, 0.748)
pt3dadd(141.034, 119.601, -14.51, 0.73)
pt3dadd(141.133, 119.586, -14.56, 0.736)
pt3dadd(141.23, 119.573, -14.618, 0.744)
pt3dadd(141.326, 119.559, -14.677, 0.754)
pt3dadd(141.367, 119.554, -14.77, 0.806)
pt3dadd(141.407, 119.548, -14.865, 0.86)
pt3dadd(141.474, 119.539, -14.944, 0.912)
pt3dadd(141.558, 119.527, -15.015, 0.966)
pt3dadd(141.642, 119.515, -15.086, 1.018)
pt3dadd(141.754, 119.499, -15.1, 1.056)
pt3dadd(141.872, 119.483, -15.1, 1.09)
pt3dadd(141.991, 119.466, -15.1, 1.124)
pt3dadd(142.11, 119.449, -15.1, 1.07)
pt3dadd(142.229, 119.435, -15.113, 1.028)
pt3dadd(142.345, 119.42, -15.13, 0.994)
pt3dadd(142.463, 119.406, -15.147, 0.96)
pt3dadd(142.58, 119.392, -15.164, 0.928)
pt3dadd(142.698, 119.377, -15.18, 0.894)
pt3dadd(142.816, 119.363, -15.197, 0.86)
pt3dadd(142.933, 119.364, -15.218, 0.826)
pt3dadd(143.05, 119.368, -15.239, 0.792)
pt3dadd(143.167, 119.373, -15.26, 0.758)
pt3dadd(143.284, 119.377, -15.282, 0.724)
pt3dadd(143.401, 119.381, -15.303, 0.69)
pt3dadd(143.515, 119.373, -15.332, 0.672)
pt3dadd(143.628, 119.357, -15.365, 0.66)
pt3dadd(143.74, 119.343, -15.398, 0.662)
pt3dadd(143.851, 119.333, -15.433, 0.696)
pt3dadd(143.964, 119.324, -15.467, 0.73)
pt3dadd(144.077, 119.362, -15.484, 0.78)
pt3dadd(144.188, 119.4, -15.5, 0.828)
pt3dadd(144.294, 119.456, -15.505, 0.866)
pt3dadd(144.4, 119.513, -15.511, 0.902)
pt3dadd(144.494, 119.533, -15.568, 0.926)
pt3dadd(144.588, 119.55, -15.629, 0.95)
pt3dadd(144.682, 119.568, -15.69, 0.976)
pt3dadd(144.785, 119.558, -15.737, 0.998)
pt3dadd(144.892, 119.543, -15.782, 1.02)
pt3dadd(145.006, 119.527, -15.8, 1.03)
pt3dadd(145.12, 119.511, -15.821, 1.026)
pt3dadd(145.231, 119.495, -15.855, 1.022)
pt3dadd(145.343, 119.48, -15.89, 1.018)
pt3dadd(145.454, 119.464, -15.925, 1.012)
pt3dadd(145.566, 119.448, -15.959, 1.008)
pt3dadd(145.669, 119.437, -16.002, 1)
pt3dadd(145.724, 119.449, -16.09, 0.976)
pt3dadd(145.787, 119.46, -16.169, 0.954)
pt3dadd(145.904, 119.46, -16.19, 0.954)
pt3dadd(145.988, 119.405, -16.2, 0.948)
pt3dadd(146.042, 119.297, -16.2, 0.936)
pt3dadd(146.11, 119.201, -16.202, 0.93)
pt3dadd(146.202, 119.124, -16.207, 0.93)
pt3dadd(146.287, 119.046, -16.224, 0.906)
pt3dadd(146.358, 118.966, -16.267, 0.826)
pt3dadd(146.438, 118.878, -16.274, 0.794)
pt3dadd(146.52, 118.79, -16.281, 0.762)
pt3dadd(146.602, 118.702, -16.288, 0.73)
pt3dadd(146.683, 118.614, -16.295, 0.698)
pt3dadd(146.767, 118.53, -16.3, 0.664)
pt3dadd(146.86, 118.454, -16.3, 0.624)
pt3dadd(146.952, 118.377, -16.3, 0.586)
pt3dadd(147.044, 118.3, -16.3, 0.546)
pt3dadd(147.137, 118.224, -16.3, 0.506)
pt3dadd(147.229, 118.148, -16.296, 0.46)
pt3dadd(147.322, 118.074, -16.279, 0.398)
pt3dadd(147.41, 117.998, -16.256, 0.348)
pt3dadd(147.488, 117.919, -16.219, 0.334)
pt3dadd(147.583, 117.865, -16.216, 0.344)
pt3dadd(147.692, 117.837, -16.249, 0.382)
pt3dadd(147.804, 117.836, -16.274, 0.42)
pt3dadd(147.919, 117.865, -16.29, 0.456)
pt3dadd(148.03, 117.878, -16.319, 0.482)
pt3dadd(148.136, 117.867, -16.365, 0.496)
pt3dadd(148.242, 117.856, -16.41, 0.51)
pt3dadd(148.348, 117.845, -16.457, 0.524)
pt3dadd(148.444, 117.832, -16.515, 0.528)
pt3dadd(148.537, 117.819, -16.578, 0.528)
pt3dadd(148.638, 117.805, -16.628, 0.548)
pt3dadd(148.75, 117.789, -16.663, 0.562)
pt3dadd(148.862, 117.773, -16.696, 0.572)
pt3dadd(148.974, 117.761, -16.73, 0.584)
pt3dadd(149.087, 117.751, -16.764, 0.594)
pt3dadd(149.2, 117.751, -16.79, 0.602)
pt3dadd(149.317, 117.777, -16.795, 0.602)
pt3dadd(149.434, 117.801, -16.799, 0.604)
pt3dadd(149.546, 117.791, -16.764, 0.626)
pt3dadd(149.658, 117.781, -16.73, 0.648)
pt3dadd(149.755, 117.769, -16.673, 0.666)
pt3dadd(149.856, 117.755, -16.626, 0.68)
pt3dadd(149.972, 117.738, -16.605, 0.684)
pt3dadd(150.089, 117.722, -16.584, 0.688)
pt3dadd(150.205, 117.706, -16.564, 0.692)
pt3dadd(150.322, 117.689, -16.543, 0.696)
pt3dadd(150.438, 117.673, -16.522, 0.7)
pt3dadd(150.556, 117.662, -16.51, 0.698)
pt3dadd(150.676, 117.658, -16.509, 0.686)
pt3dadd(150.796, 117.655, -16.507, 0.674)
pt3dadd(150.916, 117.651, -16.505, 0.662)
pt3dadd(151.036, 117.647, -16.503, 0.65)
pt3dadd(151.156, 117.643, -16.501, 0.638)
pt3dadd(151.276, 117.642, -16.5, 0.626)
pt3dadd(151.394, 117.653, -16.5, 0.622)
pt3dadd(151.514, 117.664, -16.5, 0.618)
pt3dadd(151.633, 117.675, -16.5, 0.614)
pt3dadd(151.753, 117.686, -16.5, 0.61)
pt3dadd(151.873, 117.696, -16.5, 0.606)
pt3dadd(151.988, 117.723, -16.5, 0.598)
pt3dadd(152.096, 117.774, -16.5, 0.588)
pt3dadd(152.206, 117.825, -16.5, 0.58)
pt3dadd(152.314, 117.877, -16.5, 0.57)
pt3dadd(152.422, 117.928, -16.5, 0.56)
pt3dadd(152.525, 117.983, -16.512, 0.554)
pt3dadd(152.618, 118.044, -16.549, 0.56)
pt3dadd(152.711, 118.105, -16.587, 0.566)
pt3dadd(152.804, 118.167, -16.624, 0.572)
pt3dadd(152.897, 118.23, -16.658, 0.578)
pt3dadd(152.992, 118.301, -16.67, 0.578)
pt3dadd(153.088, 118.373, -16.682, 0.578)
pt3dadd(153.182, 118.445, -16.694, 0.578)
pt3dadd(153.277, 118.517, -16.706, 0.578)
pt3dadd(153.364, 118.586, -16.74, 0.602)
pt3dadd(153.442, 118.652, -16.791, 0.646)
pt3dadd(153.527, 118.711, -16.843, 0.664)
pt3dadd(153.616, 118.764, -16.889, 0.678)
pt3dadd(153.734, 118.768, -16.894, 0.678)
pt3dadd(153.854, 118.773, -16.898, 0.678)
pt3dadd(153.949, 118.83, -16.897, 0.656)
pt3dadd(154.026, 118.922, -16.891, 0.62)
pt3dadd(154.072, 119.023, -16.871, 0.594)
pt3dadd(154.087, 119.134, -16.835, 0.578)
pt3dadd(154.159, 119.229, -16.827, 0.582)
pt3dadd(154.232, 119.324, -16.82, 0.588)
pt3dadd(154.306, 119.418, -16.813, 0.592)
pt3dadd(154.38, 119.512, -16.806, 0.598)
pt3dadd(154.456, 119.604, -16.8, 0.604)
}
}
proc shape3d_116() {
apic[45] { pt3dadd(154.56, 119.662, -16.8, 0.618)
pt3dadd(154.666, 119.72, -16.8, 0.634)
pt3dadd(154.771, 119.778, -16.8, 0.648)
pt3dadd(154.876, 119.836, -16.8, 0.664)
pt3dadd(154.981, 119.894, -16.801, 0.678)
pt3dadd(155.086, 119.946, -16.824, 0.69)
pt3dadd(155.19, 119.998, -16.847, 0.702)
pt3dadd(155.294, 120.05, -16.869, 0.712)
pt3dadd(155.4, 120.102, -16.892, 0.724)
pt3dadd(155.5, 120.166, -16.9, 0.732)
pt3dadd(155.597, 120.236, -16.9, 0.736)
pt3dadd(155.694, 120.307, -16.9, 0.742)
pt3dadd(155.79, 120.377, -16.9, 0.746)
pt3dadd(155.887, 120.448, -16.9, 0.752)
pt3dadd(155.974, 120.53, -16.9, 0.746)
pt3dadd(156.055, 120.619, -16.9, 0.734)
pt3dadd(156.142, 120.701, -16.9, 0.716)
pt3dadd(156.235, 120.778, -16.9, 0.692)
pt3dadd(156.312, 120.865, -16.9, 0.67)
pt3dadd(156.367, 120.972, -16.9, 0.648)
pt3dadd(156.421, 121.079, -16.9, 0.628)
pt3dadd(156.438, 121.198, -16.904, 0.628)
pt3dadd(156.455, 121.316, -16.908, 0.628)
pt3dadd(156.475, 121.433, -16.918, 0.632)
pt3dadd(156.523, 121.53, -16.959, 0.654)
pt3dadd(156.571, 121.628, -17.001, 0.678)
pt3dadd(156.618, 121.727, -17.042, 0.702)
pt3dadd(156.676, 121.774, -17.12, 0.768)
pt3dadd(156.733, 121.825, -17.191, 0.842)
pt3dadd(156.784, 121.927, -17.219, 0.904)
pt3dadd(156.83, 122.023, -17.264, 0.904)
pt3dadd(156.877, 122.12, -17.309, 0.904)
pt3dadd(156.924, 122.216, -17.354, 0.904)
pt3dadd(156.971, 122.312, -17.399, 0.904)
pt3dadd(157.033, 122.41, -17.424, 0.882)
pt3dadd(157.098, 122.508, -17.448, 0.86)
pt3dadd(157.162, 122.605, -17.472, 0.838)
pt3dadd(157.225, 122.702, -17.497, 0.816)
pt3dadd(157.279, 122.791, -17.539, 0.796)
pt3dadd(157.318, 122.869, -17.608, 0.78)
pt3dadd(157.356, 122.947, -17.677, 0.762)
pt3dadd(157.396, 123.025, -17.746, 0.744)
pt3dadd(157.433, 123.102, -17.816, 0.726)
pt3dadd(157.46, 123.151, -17.904, 0.702)
pt3dadd(157.489, 123.202, -17.99, 0.678)
pt3dadd(157.568, 123.275, -18.035, 0.664)
pt3dadd(157.652, 123.346, -18.071, 0.646)
pt3dadd(157.753, 123.408, -18.089, 0.62)
pt3dadd(157.859, 123.457, -18.1, 0.592)
pt3dadd(157.978, 123.48, -18.1, 0.56)
pt3dadd(158.095, 123.504, -18.1, 0.528)
pt3dadd(158.214, 123.487, -18.1, 0.49)
pt3dadd(158.333, 123.47, -18.1, 0.452)
}
apic[46] {pt3dclear()
pt3dadd(118.011, 110.476, -2.667, 1.858)
pt3dadd(117.956, 110.401, -2.687, 1.796)
pt3dadd(117.887, 110.307, -2.711, 1.718)
pt3dadd(117.818, 110.214, -2.736, 1.64)
pt3dadd(117.749, 110.12, -2.761, 1.564)
pt3dadd(117.68, 110.027, -2.786, 1.486)
pt3dadd(117.611, 109.933, -2.811, 1.408)
pt3dadd(117.542, 109.84, -2.836, 1.33)
pt3dadd(117.472, 109.746, -2.86, 1.254)
pt3dadd(117.403, 109.653, -2.885, 1.176)
pt3dadd(117.362, 109.59, -2.941, 1.124)
pt3dadd(117.359, 109.57, -3.039, 1.112)
pt3dadd(117.356, 109.551, -3.138, 1.1)
pt3dadd(117.354, 109.531, -3.237, 1.088)
pt3dadd(117.351, 109.511, -3.335, 1.076)
pt3dadd(117.348, 109.492, -3.434, 1.064)
pt3dadd(117.345, 109.472, -3.532, 1.058)
pt3dadd(117.34, 109.453, -3.631, 1.066)
pt3dadd(117.335, 109.433, -3.729, 1.074)
pt3dadd(117.33, 109.414, -3.828, 1.082)
pt3dadd(117.325, 109.394, -3.927, 1.092)
pt3dadd(117.32, 109.374, -4.025, 1.1)
pt3dadd(117.298, 109.344, -4.117, 1.112)
pt3dadd(117.247, 109.295, -4.198, 1.128)
pt3dadd(117.196, 109.245, -4.279, 1.146)
pt3dadd(117.145, 109.196, -4.359, 1.164)
pt3dadd(117.096, 109.147, -4.44, 1.184)
pt3dadd(117.07, 109.105, -4.532, 1.232)
pt3dadd(117.045, 109.062, -4.623, 1.28)
pt3dadd(117.034, 108.982, -4.696, 1.304)
pt3dadd(117.023, 108.901, -4.769, 1.328)
pt3dadd(116.965, 108.832, -4.834, 1.344)
pt3dadd(116.898, 108.763, -4.892, 1.354)
pt3dadd(116.808, 108.689, -4.916, 1.34)
pt3dadd(116.72, 108.615, -4.943, 1.328)
pt3dadd(116.633, 108.546, -4.981, 1.32)
pt3dadd(116.546, 108.477, -5.018, 1.312)
pt3dadd(116.477, 108.424, -5.074, 1.296)
pt3dadd(116.452, 108.41, -5.171, 1.262)
pt3dadd(116.426, 108.396, -5.268, 1.23)
pt3dadd(116.365, 108.387, -5.348, 1.148)
pt3dadd(116.284, 108.332, -5.406, 1.124)
pt3dadd(116.203, 108.277, -5.464, 1.098)
pt3dadd(116.123, 108.222, -5.522, 1.074)
pt3dadd(116.042, 108.16, -5.571, 1.052)
pt3dadd(115.96, 108.074, -5.588, 1.038)
pt3dadd(115.875, 107.992, -5.602, 1.03)
pt3dadd(115.779, 107.92, -5.607, 1.03)
pt3dadd(115.683, 107.856, -5.623, 1.03)
pt3dadd(115.587, 107.816, -5.673, 1.03)
pt3dadd(115.486, 107.801, -5.72, 1.02)
pt3dadd(115.38, 107.816, -5.765, 0.996)
pt3dadd(115.281, 107.83, -5.817, 0.976)
pt3dadd(115.206, 107.841, -5.895, 0.958)
pt3dadd(115.17, 107.846, -5.988, 0.962)
pt3dadd(115.144, 107.849, -6.086, 0.972)
pt3dadd(115.101, 107.854, -6.176, 0.99)
pt3dadd(115.016, 107.859, -6.246, 1.026)
pt3dadd(114.94, 107.842, -6.313, 1.062)
pt3dadd(114.891, 107.754, -6.367, 1.088)
pt3dadd(114.816, 107.697, -6.408, 1.104)
pt3dadd(114.699, 107.689, -6.428, 1.104)
pt3dadd(114.589, 107.685, -6.459, 1.096)
pt3dadd(114.515, 107.695, -6.537, 1.042)
pt3dadd(114.428, 107.673, -6.6, 1.006)
pt3dadd(114.336, 107.641, -6.659, 0.976)
pt3dadd(114.244, 107.608, -6.717, 0.946)
pt3dadd(114.153, 107.576, -6.776, 0.916)
pt3dadd(114.052, 107.548, -6.824, 0.888)
pt3dadd(113.945, 107.524, -6.864, 0.858)
pt3dadd(113.838, 107.499, -6.904, 0.83)
pt3dadd(113.731, 107.475, -6.944, 0.802)
pt3dadd(113.625, 107.457, -6.988, 0.77)
pt3dadd(113.527, 107.471, -7.044, 0.724)
pt3dadd(113.43, 107.484, -7.101, 0.678)
pt3dadd(113.355, 107.495, -7.179, 0.654)
pt3dadd(113.281, 107.505, -7.257, 0.63)
pt3dadd(113.186, 107.519, -7.317, 0.618)
pt3dadd(113.088, 107.532, -7.373, 0.606)
pt3dadd(112.975, 107.545, -7.392, 0.61)
pt3dadd(112.856, 107.557, -7.396, 0.618)
pt3dadd(112.736, 107.569, -7.4, 0.628)
pt3dadd(112.619, 107.544, -7.4, 0.642)
pt3dadd(112.508, 107.529, -7.421, 0.654)
pt3dadd(112.407, 107.535, -7.473, 0.66)
pt3dadd(112.305, 107.542, -7.526, 0.666)
pt3dadd(112.203, 107.548, -7.579, 0.67)
pt3dadd(112.101, 107.554, -7.631, 0.676)
pt3dadd(111.993, 107.557, -7.672, 0.678)
pt3dadd(111.878, 107.556, -7.703, 0.678)
pt3dadd(111.764, 107.557, -7.734, 0.678)
pt3dadd(111.65, 107.557, -7.764, 0.678)
pt3dadd(111.536, 107.557, -7.795, 0.678)
pt3dadd(111.427, 107.531, -7.822, 0.678)
pt3dadd(111.324, 107.475, -7.845, 0.678)
pt3dadd(111.222, 107.419, -7.867, 0.678)
pt3dadd(111.119, 107.363, -7.89, 0.678)
pt3dadd(111.017, 107.307, -7.914, 0.678)
pt3dadd(110.933, 107.246, -7.964, 0.678)
pt3dadd(110.848, 107.185, -8.013, 0.678)
pt3dadd(110.763, 107.124, -8.062, 0.678)
pt3dadd(110.678, 107.063, -8.111, 0.678)
pt3dadd(110.57, 107.023, -8.139, 0.672)
pt3dadd(110.461, 106.984, -8.166, 0.666)
pt3dadd(110.353, 106.945, -8.194, 0.662)
pt3dadd(110.244, 106.906, -8.221, 0.656)
pt3dadd(110.142, 106.886, -8.266, 0.65)
pt3dadd(110.045, 106.882, -8.324, 0.644)
pt3dadd(109.947, 106.879, -8.382, 0.638)
pt3dadd(109.849, 106.875, -8.44, 0.634)
pt3dadd(109.752, 106.871, -8.498, 0.628)
pt3dadd(109.647, 106.843, -8.541, 0.628)
pt3dadd(109.547, 106.816, -8.588, 0.63)
pt3dadd(109.492, 106.804, -8.676, 0.642)
pt3dadd(109.436, 106.784, -8.758, 0.652)
pt3dadd(109.367, 106.69, -8.781, 0.652)
pt3dadd(109.291, 106.604, -8.8, 0.648)
pt3dadd(109.178, 106.565, -8.8, 0.614)
pt3dadd(109.064, 106.527, -8.8, 0.58)
pt3dadd(108.945, 106.533, -8.8, 0.554)
pt3dadd(108.825, 106.542, -8.8, 0.528)
pt3dadd(108.714, 106.496, -8.8, 0.528)
pt3dadd(108.603, 106.45, -8.8, 0.528)
pt3dadd(108.518, 106.369, -8.8, 0.566)
pt3dadd(108.437, 106.28, -8.8, 0.612)
pt3dadd(108.334, 106.225, -8.8, 0.65)
pt3dadd(108.22, 106.187, -8.8, 0.684)
pt3dadd(108.104, 106.173, -8.805, 0.712)
pt3dadd(107.986, 106.189, -8.818, 0.73)
pt3dadd(107.868, 106.206, -8.83, 0.748)
pt3dadd(107.782, 106.188, -8.888, 0.754)
pt3dadd(107.707, 106.158, -8.962, 0.754)
pt3dadd(107.631, 106.129, -9.036, 0.754)
pt3dadd(107.531, 106.132, -9.084, 0.77)
pt3dadd(107.421, 106.148, -9.123, 0.792)
pt3dadd(107.332, 106.151, -9.181, 0.886)
pt3dadd(107.287, 106.08, -9.246, 0.992)
pt3dadd(107.246, 105.993, -9.305, 1.072)
pt3dadd(107.197, 105.966, -9.392, 1.114)
pt3dadd(107.146, 105.946, -9.481, 1.152)
pt3dadd(107.081, 105.953, -9.564, 1.124)
pt3dadd(107.013, 105.963, -9.646, 1.088)
pt3dadd(106.907, 105.965, -9.677, 1.04)
pt3dadd(106.788, 105.965, -9.691, 0.988)
pt3dadd(106.671, 105.955, -9.7, 0.936)
pt3dadd(106.554, 105.927, -9.7, 0.888)
pt3dadd(106.439, 105.9, -9.717, 0.884)
}
}
proc shape3d_117() {
apic[46] { pt3dadd(106.325, 105.874, -9.738, 0.888)
pt3dadd(106.21, 105.847, -9.759, 0.894)
pt3dadd(106.096, 105.821, -9.781, 0.9)
pt3dadd(105.982, 105.795, -9.802, 0.906)
pt3dadd(105.864, 105.788, -9.822, 0.928)
pt3dadd(105.747, 105.78, -9.842, 0.952)
pt3dadd(105.656, 105.79, -9.903, 0.954)
pt3dadd(105.569, 105.802, -9.971, 0.954)
pt3dadd(105.458, 105.806, -9.996, 0.962)
pt3dadd(105.338, 105.806, -10.004, 0.972)
pt3dadd(105.242, 105.798, -10.035, 0.996)
pt3dadd(105.211, 105.762, -10.127, 1.056)
pt3dadd(105.186, 105.729, -10.22, 1.116)
pt3dadd(105.182, 105.7, -10.317, 1.172)
pt3dadd(105.178, 105.671, -10.414, 1.226)
pt3dadd(105.174, 105.642, -10.511, 1.28)
pt3dadd(105.169, 105.606, -10.604, 1.338)
pt3dadd(105.154, 105.5, -10.649, 1.428)
pt3dadd(105.139, 105.394, -10.693, 1.518)
pt3dadd(105.123, 105.278, -10.711, 1.626)
pt3dadd(105.093, 105.21, -10.788, 1.644)
pt3dadd(105.063, 105.146, -10.868, 1.658)
pt3dadd(104.973, 105.13, -10.933, 1.658)
pt3dadd(104.89, 105.1, -10.99, 1.654)
pt3dadd(104.84, 104.991, -10.994, 1.632)
pt3dadd(104.791, 104.882, -10.999, 1.61)
pt3dadd(104.737, 104.777, -11.018, 1.556)
pt3dadd(104.683, 104.673, -11.039, 1.496)
pt3dadd(104.663, 104.592, -11.104, 1.36)
pt3dadd(104.651, 104.51, -11.176, 1.238)
pt3dadd(104.637, 104.413, -11.233, 1.188)
pt3dadd(104.624, 104.316, -11.29, 1.138)
pt3dadd(104.61, 104.218, -11.348, 1.088)
pt3dadd(104.596, 104.121, -11.405, 1.038)
pt3dadd(104.583, 104.027, -11.466, 0.978)
pt3dadd(104.571, 103.94, -11.534, 0.896)
pt3dadd(104.557, 103.848, -11.596, 0.824)
pt3dadd(104.535, 103.738, -11.63, 0.802)
pt3dadd(104.514, 103.627, -11.665, 0.78)
pt3dadd(104.436, 103.54, -11.683, 0.79)
pt3dadd(104.355, 103.454, -11.7, 0.804)
pt3dadd(104.28, 103.36, -11.7, 0.816)
pt3dadd(104.206, 103.266, -11.7, 0.826)
pt3dadd(104.16, 103.169, -11.739, 0.828)
pt3dadd(104.121, 103.071, -11.787, 0.828)
pt3dadd(104.082, 102.973, -11.835, 0.828)
pt3dadd(104.056, 102.864, -11.865, 0.828)
pt3dadd(104.04, 102.747, -11.882, 0.828)
pt3dadd(104.023, 102.63, -11.899, 0.828)
pt3dadd(104.007, 102.511, -11.9, 0.804)
pt3dadd(103.977, 102.397, -11.915, 0.8)
pt3dadd(103.946, 102.283, -11.932, 0.794)
pt3dadd(103.915, 102.168, -11.948, 0.79)
pt3dadd(103.884, 102.054, -11.964, 0.786)
pt3dadd(103.854, 101.939, -11.979, 0.782)
pt3dadd(103.808, 101.833, -11.999, 0.776)
pt3dadd(103.741, 101.738, -12.024, 0.77)
pt3dadd(103.674, 101.643, -12.048, 0.766)
pt3dadd(103.607, 101.548, -12.073, 0.76)
pt3dadd(103.54, 101.453, -12.097, 0.754)
pt3dadd(103.507, 101.339, -12.1, 0.756)
pt3dadd(103.478, 101.222, -12.1, 0.76)
pt3dadd(103.449, 101.106, -12.1, 0.764)
pt3dadd(103.42, 100.989, -12.1, 0.768)
pt3dadd(103.391, 100.873, -12.1, 0.772)
pt3dadd(103.362, 100.756, -12.1, 0.776)
pt3dadd(103.319, 100.646, -12.108, 0.778)
pt3dadd(103.263, 100.542, -12.124, 0.778)
pt3dadd(103.207, 100.437, -12.14, 0.778)
pt3dadd(103.152, 100.332, -12.156, 0.778)
pt3dadd(103.096, 100.228, -12.172, 0.778)
pt3dadd(103.052, 100.133, -12.215, 0.778)
pt3dadd(103.015, 100.045, -12.275, 0.778)
pt3dadd(102.978, 99.956, -12.335, 0.778)
pt3dadd(102.942, 99.867, -12.395, 0.778)
pt3dadd(102.901, 99.78, -12.454, 0.778)
pt3dadd(102.845, 99.701, -12.513, 0.772)
pt3dadd(102.789, 99.621, -12.572, 0.766)
pt3dadd(102.733, 99.542, -12.63, 0.76)
pt3dadd(102.677, 99.463, -12.689, 0.754)
pt3dadd(102.581, 99.391, -12.694, 0.766)
pt3dadd(102.485, 99.319, -12.7, 0.778)
pt3dadd(102.445, 99.207, -12.704, 0.798)
pt3dadd(102.407, 99.093, -12.709, 0.818)
pt3dadd(102.355, 99.02, -12.747, 0.836)
pt3dadd(102.285, 98.993, -12.826, 0.848)
pt3dadd(102.22, 98.941, -12.895, 0.836)
pt3dadd(102.156, 98.873, -12.958, 0.808)
pt3dadd(102.089, 98.787, -12.998, 0.716)
pt3dadd(102.015, 98.717, -13.048, 0.658)
pt3dadd(101.937, 98.658, -13.106, 0.628)
pt3dadd(101.858, 98.599, -13.163, 0.596)
pt3dadd(101.78, 98.54, -13.221, 0.564)
pt3dadd(101.697, 98.494, -13.281, 0.546)
pt3dadd(101.61, 98.457, -13.343, 0.532)
pt3dadd(101.523, 98.421, -13.405, 0.52)
pt3dadd(101.436, 98.384, -13.467, 0.508)
pt3dadd(101.35, 98.334, -13.521, 0.502)
pt3dadd(101.264, 98.269, -13.565, 0.502)
pt3dadd(101.229, 98.207, -13.639, 0.52)
pt3dadd(101.214, 98.145, -13.723, 0.544)
pt3dadd(101.175, 98.057, -13.769, 0.56)
pt3dadd(101.121, 97.953, -13.791, 0.572)
pt3dadd(101.07, 97.845, -13.8, 0.59)
pt3dadd(101.022, 97.736, -13.8, 0.61)
pt3dadd(100.974, 97.626, -13.804, 0.628)
pt3dadd(100.936, 97.517, -13.832, 0.636)
pt3dadd(100.898, 97.409, -13.86, 0.642)
pt3dadd(100.86, 97.3, -13.889, 0.65)
pt3dadd(100.841, 97.229, -13.955, 0.66)
pt3dadd(100.834, 97.183, -14.047, 0.67)
pt3dadd(100.829, 97.146, -14.141, 0.678)
pt3dadd(100.828, 97.136, -14.241, 0.686)
pt3dadd(100.827, 97.131, -14.341, 0.702)
pt3dadd(100.826, 97.126, -14.441, 0.72)
pt3dadd(100.823, 97.104, -14.538, 0.744)
pt3dadd(100.818, 97.065, -14.632, 0.776)
pt3dadd(100.812, 97.029, -14.727, 0.808)
pt3dadd(100.803, 97.008, -14.826, 0.838)
pt3dadd(100.795, 96.988, -14.924, 0.87)
pt3dadd(100.725, 96.961, -14.988, 0.878)
pt3dadd(100.624, 96.93, -15.037, 0.878)
pt3dadd(100.546, 96.935, -15.111, 0.894)
pt3dadd(100.469, 96.921, -15.183, 0.914)
pt3dadd(100.387, 96.877, -15.245, 0.94)
pt3dadd(100.304, 96.832, -15.308, 0.964)
pt3dadd(100.222, 96.788, -15.371, 0.988)
pt3dadd(100.158, 96.74, -15.441, 1.018)
pt3dadd(100.126, 96.685, -15.526, 1.056)
pt3dadd(100.095, 96.63, -15.611, 1.094)
pt3dadd(100.064, 96.576, -15.697, 1.134)
pt3dadd(100.033, 96.521, -15.782, 1.172)
pt3dadd(99.978, 96.49, -15.865, 1.198)
pt3dadd(99.916, 96.465, -15.949, 1.22)
pt3dadd(99.854, 96.44, -16.032, 1.244)
pt3dadd(99.793, 96.415, -16.115, 1.266)
pt3dadd(99.725, 96.37, -16.181, 1.276)
pt3dadd(99.646, 96.291, -16.218, 1.262)
pt3dadd(99.553, 96.254, -16.263, 1.218)
pt3dadd(99.45, 96.249, -16.314, 1.154)
pt3dadd(99.353, 96.208, -16.356, 1.096)
pt3dadd(99.261, 96.145, -16.394, 1.04)
pt3dadd(99.224, 96.037, -16.4, 1.008)
pt3dadd(99.198, 95.92, -16.4, 0.98)
pt3dadd(99.171, 95.804, -16.4, 0.952)
pt3dadd(99.102, 95.705, -16.4, 0.918)
pt3dadd(99.031, 95.61, -16.412, 0.888)
pt3dadd(98.959, 95.519, -16.435, 0.86)
pt3dadd(98.886, 95.427, -16.457, 0.832)
pt3dadd(98.813, 95.335, -16.479, 0.804)
pt3dadd(98.741, 95.244, -16.503, 0.774)
pt3dadd(98.685, 95.162, -16.559, 0.72)
pt3dadd(98.634, 95.072, -16.604, 0.67)
pt3dadd(98.601, 94.958, -16.618, 0.638)
pt3dadd(98.568, 94.843, -16.632, 0.606)
pt3dadd(98.536, 94.76, -16.695, 0.614)
pt3dadd(98.504, 94.68, -16.764, 0.628)
pt3dadd(98.451, 94.619, -16.838, 0.668)
pt3dadd(98.406, 94.56, -16.915, 0.72)
pt3dadd(98.398, 94.507, -17.005, 0.822)
pt3dadd(98.393, 94.468, -17.099, 0.89)
pt3dadd(98.388, 94.435, -17.195, 0.94)
pt3dadd(98.38, 94.387, -17.282, 0.982)
pt3dadd(98.36, 94.292, -17.341, 0.994)
pt3dadd(98.333, 94.195, -17.39, 0.994)
pt3dadd(98.277, 94.09, -17.395, 0.938)
pt3dadd(98.22, 93.984, -17.4, 0.882)
pt3dadd(98.146, 93.889, -17.4, 0.826)
pt3dadd(98.072, 93.795, -17.4, 0.768)
pt3dadd(98.004, 93.714, -17.439, 0.734)
pt3dadd(97.938, 93.636, -17.492, 0.708)
pt3dadd(97.872, 93.558, -17.545, 0.684)
pt3dadd(97.781, 93.505, -17.59, 0.69)
pt3dadd(97.684, 93.458, -17.634, 0.704)
pt3dadd(97.647, 93.398, -17.713, 0.76)
pt3dadd(97.634, 93.337, -17.799, 0.774)
pt3dadd(97.62, 93.276, -17.884, 0.79)
pt3dadd(97.606, 93.216, -17.97, 0.806)
pt3dadd(97.592, 93.155, -18.055, 0.82)
pt3dadd(97.57, 93.099, -18.141, 0.834)
pt3dadd(97.539, 93.048, -18.228, 0.844)
pt3dadd(97.509, 92.996, -18.315, 0.856)
pt3dadd(97.478, 92.945, -18.402, 0.866)
pt3dadd(97.448, 92.894, -18.488, 0.878)
pt3dadd(97.443, 92.887, -18.587, 0.886)
pt3dadd(97.443, 92.887, -18.687, 0.892)
pt3dadd(97.443, 92.887, -18.787, 0.9)
pt3dadd(97.443, 92.887, -18.887, 0.906)
pt3dadd(97.443, 92.887, -18.987, 0.914)
pt3dadd(97.443, 92.887, -19.087, 0.92)
pt3dadd(97.443, 92.887, -19.187, 0.928)
pt3dadd(97.44, 92.864, -19.284, 0.944)
pt3dadd(97.436, 92.836, -19.382, 0.962)
pt3dadd(97.432, 92.809, -19.479, 0.978)
pt3dadd(97.429, 92.782, -19.576, 0.996)
pt3dadd(97.425, 92.755, -19.674, 1.014)
pt3dadd(97.421, 92.726, -19.771, 1.032)
pt3dadd(97.412, 92.664, -19.856, 1.076)
pt3dadd(97.403, 92.601, -19.941, 1.12)
pt3dadd(97.395, 92.539, -20.026, 1.164)
}
}
proc shape3d_118() {
apic[46] { pt3dadd(97.386, 92.477, -20.111, 1.21)
pt3dadd(97.377, 92.415, -20.196, 1.254)
pt3dadd(97.348, 92.401, -20.292, 1.306)
pt3dadd(97.319, 92.39, -20.389, 1.358)
pt3dadd(97.289, 92.379, -20.485, 1.41)
pt3dadd(97.26, 92.368, -20.582, 1.462)
pt3dadd(97.23, 92.357, -20.678, 1.514)
pt3dadd(97.16, 92.348, -20.753, 1.6)
pt3dadd(97.067, 92.34, -20.816, 1.704)
pt3dadd(97.032, 92.339, -20.906, 1.732)
pt3dadd(97.017, 92.341, -21.005, 1.732)
pt3dadd(97.003, 92.342, -21.105, 1.73)
pt3dadd(97, 92.322, -21.203, 1.672)
pt3dadd(96.998, 92.302, -21.302, 1.614)
pt3dadd(96.989, 92.238, -21.366, 1.55)
pt3dadd(96.972, 92.122, -21.388, 1.48)
pt3dadd(96.956, 92.006, -21.41, 1.41)
pt3dadd(96.911, 91.948, -21.486, 1.376)
pt3dadd(96.863, 91.893, -21.566, 1.342)
pt3dadd(96.816, 91.838, -21.646, 1.31)
pt3dadd(96.737, 91.76, -21.676, 1.306)
pt3dadd(96.654, 91.679, -21.7, 1.306)
pt3dadd(96.537, 91.655, -21.7, 1.272)
pt3dadd(96.43, 91.601, -21.7, 1.226)
pt3dadd(96.325, 91.546, -21.701, 1.176)
pt3dadd(96.291, 91.44, -21.739, 1.08)
pt3dadd(96.256, 91.335, -21.777, 0.982)
pt3dadd(96.223, 91.247, -21.839, 0.904)
pt3dadd(96.19, 91.163, -21.904, 0.826)
pt3dadd(96.142, 91.128, -21.991, 0.788)
pt3dadd(96.095, 91.09, -22.077, 0.754)
pt3dadd(96.044, 91.043, -22.159, 0.754)
pt3dadd(95.959, 91.037, -22.227, 0.754)
pt3dadd(95.871, 91.036, -22.295, 0.754)
pt3dadd(95.843, 90.977, -22.376, 0.776)
pt3dadd(95.821, 90.913, -22.459, 0.802)
pt3dadd(95.724, 90.858, -22.482, 0.874)
pt3dadd(95.619, 90.804, -22.499, 0.952)
pt3dadd(95.521, 90.75, -22.536, 1.076)
pt3dadd(95.429, 90.695, -22.578, 1.192)
pt3dadd(95.366, 90.635, -22.647, 1.26)
pt3dadd(95.302, 90.574, -22.715, 1.33)
pt3dadd(95.239, 90.514, -22.784, 1.396)
pt3dadd(95.177, 90.454, -22.853, 1.452)
pt3dadd(95.118, 90.376, -22.906, 1.482)
pt3dadd(95.041, 90.335, -22.969, 1.482)
pt3dadd(94.959, 90.305, -23.038, 1.482)
pt3dadd(94.878, 90.274, -23.107, 1.482)
pt3dadd(94.796, 90.244, -23.176, 1.482)
pt3dadd(94.72, 90.209, -23.247, 1.482)
pt3dadd(94.647, 90.17, -23.32, 1.482)
pt3dadd(94.573, 90.132, -23.392, 1.482)
pt3dadd(94.5, 90.093, -23.464, 1.482)
pt3dadd(94.426, 90.057, -23.537, 1.502)
pt3dadd(94.36, 90.049, -23.62, 1.422)
pt3dadd(94.268, 90.062, -23.68, 1.266)
pt3dadd(94.153, 90.078, -23.699, 1.164)
pt3dadd(94.035, 90.094, -23.711, 1.13)
pt3dadd(93.931, 90.076, -23.75, 1.142)
pt3dadd(93.885, 89.989, -23.802, 1.238)
pt3dadd(93.87, 89.882, -23.847, 1.408)
pt3dadd(93.855, 89.772, -23.882, 1.534)
pt3dadd(93.838, 89.655, -23.898, 1.556)
pt3dadd(93.809, 89.538, -23.9, 1.486)
pt3dadd(93.719, 89.461, -23.9, 1.414)
pt3dadd(93.625, 89.386, -23.9, 1.342)
pt3dadd(93.572, 89.282, -23.913, 1.264)
pt3dadd(93.526, 89.172, -23.928, 1.184)
pt3dadd(93.47, 89.089, -23.973, 1.092)
pt3dadd(93.406, 89.021, -24.036, 0.992)
pt3dadd(93.385, 88.958, -24.118, 0.928)
pt3dadd(93.37, 88.896, -24.203, 0.868)
pt3dadd(93.358, 88.825, -24.282, 0.786)
pt3dadd(93.349, 88.758, -24.365, 0.716)
pt3dadd(93.341, 88.705, -24.454, 0.682)
pt3dadd(93.333, 88.649, -24.542, 0.65)
pt3dadd(93.322, 88.568, -24.615, 0.626)
pt3dadd(93.311, 88.487, -24.688, 0.602)
pt3dadd(93.294, 88.369, -24.693, 0.62)
pt3dadd(93.277, 88.25, -24.696, 0.638)
pt3dadd(93.261, 88.131, -24.7, 0.654)
pt3dadd(93.244, 88.012, -24.7, 0.672)
pt3dadd(93.227, 87.894, -24.7, 0.688)
pt3dadd(93.211, 87.775, -24.7, 0.706)
pt3dadd(93.194, 87.656, -24.7, 0.73)
pt3dadd(93.177, 87.537, -24.702, 0.752)
pt3dadd(93.161, 87.421, -24.722, 0.736)
pt3dadd(93.145, 87.304, -24.741, 0.722)
pt3dadd(93.128, 87.188, -24.761, 0.708)
pt3dadd(93.112, 87.071, -24.78, 0.692)
pt3dadd(93.095, 86.955, -24.8, 0.678)
}
apic[47] {pt3dclear()
pt3dadd(116.126, 110.862, -1.467, 2.084)
pt3dadd(116.116, 110.906, -1.514, 2.046)
pt3dadd(116.099, 110.98, -1.591, 1.98)
pt3dadd(116.081, 111.054, -1.669, 1.916)
pt3dadd(116.064, 111.128, -1.746, 1.852)
pt3dadd(116.046, 111.201, -1.824, 1.786)
pt3dadd(116.029, 111.275, -1.901, 1.722)
pt3dadd(116.012, 111.349, -1.979, 1.658)
pt3dadd(115.995, 111.422, -2.057, 1.592)
pt3dadd(115.977, 111.496, -2.134, 1.528)
pt3dadd(115.96, 111.57, -2.212, 1.464)
pt3dadd(115.943, 111.643, -2.289, 1.4)
pt3dadd(115.925, 111.717, -2.367, 1.334)
pt3dadd(115.908, 111.791, -2.445, 1.27)
pt3dadd(115.89, 111.865, -2.522, 1.206)
}
apic[48] {pt3dclear()
pt3dadd(115.89, 111.865, -2.522, 1.206)
pt3dadd(115.899, 111.863, -2.529, 1.22)
pt3dadd(115.983, 111.852, -2.6, 1.356)
}
apic[49] {pt3dclear()
pt3dadd(115.89, 111.865, -2.522, 1.206)
pt3dadd(115.865, 111.868, -2.559, 1.196)
pt3dadd(115.805, 111.877, -2.645, 1.172)
pt3dadd(115.754, 111.884, -2.734, 1.156)
pt3dadd(115.734, 111.887, -2.833, 1.156)
pt3dadd(115.713, 111.889, -2.931, 1.156)
pt3dadd(115.685, 111.893, -3.028, 1.174)
pt3dadd(115.652, 111.898, -3.124, 1.206)
pt3dadd(115.62, 111.903, -3.22, 1.246)
pt3dadd(115.587, 111.907, -3.317, 1.324)
pt3dadd(115.526, 111.916, -3.399, 1.384)
pt3dadd(115.445, 111.927, -3.472, 1.432)
pt3dadd(115.38, 111.936, -3.554, 1.462)
pt3dadd(115.334, 111.943, -3.647, 1.472)
pt3dadd(115.277, 111.951, -3.729, 1.474)
pt3dadd(115.167, 111.966, -3.768, 1.43)
pt3dadd(115.058, 111.982, -3.807, 1.386)
pt3dadd(114.947, 112.002, -3.842, 1.312)
pt3dadd(114.837, 112.024, -3.876, 1.234)
pt3dadd(114.731, 112.071, -3.894, 1.116)
pt3dadd(114.631, 112.125, -3.912, 1)
pt3dadd(114.542, 112.149, -3.976, 0.978)
pt3dadd(114.453, 112.173, -4.04, 0.958)
pt3dadd(114.364, 112.197, -4.105, 0.936)
pt3dadd(114.276, 112.22, -4.169, 0.914)
pt3dadd(114.205, 112.261, -4.239, 0.9)
pt3dadd(114.152, 112.316, -4.316, 0.894)
pt3dadd(114.099, 112.372, -4.393, 0.89)
pt3dadd(114.046, 112.428, -4.47, 0.882)
pt3dadd(113.978, 112.481, -4.536, 0.878)
pt3dadd(113.88, 112.527, -4.578, 0.878)
pt3dadd(113.782, 112.574, -4.62, 0.878)
pt3dadd(113.683, 112.621, -4.662, 0.878)
pt3dadd(113.585, 112.667, -4.704, 0.878)
pt3dadd(113.476, 112.689, -4.74, 0.864)
pt3dadd(113.364, 112.704, -4.774, 0.846)
pt3dadd(113.253, 112.72, -4.809, 0.826)
pt3dadd(113.142, 112.736, -4.844, 0.808)
pt3dadd(113.03, 112.751, -4.878, 0.79)
pt3dadd(112.94, 112.766, -4.933, 0.756)
pt3dadd(112.885, 112.78, -5.021, 0.698)
pt3dadd(112.827, 112.806, -5.104, 0.636)
pt3dadd(112.76, 112.869, -5.167, 0.564)
pt3dadd(112.668, 112.912, -5.202, 0.518)
pt3dadd(112.55, 112.934, -5.206, 0.5)
pt3dadd(112.432, 112.955, -5.21, 0.482)
pt3dadd(112.318, 112.973, -5.234, 0.478)
pt3dadd(112.206, 112.988, -5.267, 0.478)
pt3dadd(112.092, 113.004, -5.293, 0.496)
pt3dadd(111.974, 113.021, -5.306, 0.552)
pt3dadd(111.861, 113.038, -5.333, 0.594)
pt3dadd(111.753, 113.056, -5.374, 0.622)
pt3dadd(111.644, 113.074, -5.414, 0.652)
pt3dadd(111.536, 113.091, -5.454, 0.68)
pt3dadd(111.428, 113.109, -5.495, 0.708)
pt3dadd(111.329, 113.143, -5.539, 0.738)
pt3dadd(111.25, 113.209, -5.59, 0.768)
pt3dadd(111.171, 113.276, -5.641, 0.798)
pt3dadd(111.093, 113.343, -5.692, 0.83)
pt3dadd(111.022, 113.409, -5.748, 0.854)
pt3dadd(110.983, 113.475, -5.825, 0.854)
pt3dadd(110.945, 113.542, -5.902, 0.854)
pt3dadd(110.906, 113.608, -5.979, 0.854)
pt3dadd(110.867, 113.675, -6.056, 0.854)
pt3dadd(110.808, 113.749, -6.116, 0.836)
pt3dadd(110.748, 113.824, -6.176, 0.816)
pt3dadd(110.689, 113.899, -6.237, 0.798)
pt3dadd(110.629, 113.974, -6.297, 0.78)
pt3dadd(110.56, 114.034, -6.362, 0.76)
pt3dadd(110.49, 114.093, -6.427, 0.742)
pt3dadd(110.42, 114.152, -6.491, 0.724)
pt3dadd(110.35, 114.21, -6.556, 0.706)
pt3dadd(110.283, 114.281, -6.615, 0.704)
pt3dadd(110.217, 114.353, -6.672, 0.704)
pt3dadd(110.15, 114.425, -6.73, 0.704)
pt3dadd(110.084, 114.498, -6.787, 0.704)
pt3dadd(109.998, 114.57, -6.817, 0.712)
pt3dadd(109.906, 114.643, -6.84, 0.722)
pt3dadd(109.815, 114.716, -6.862, 0.734)
pt3dadd(109.723, 114.789, -6.884, 0.746)
pt3dadd(109.626, 114.853, -6.9, 0.756)
pt3dadd(109.514, 114.897, -6.9, 0.764)
pt3dadd(109.402, 114.94, -6.9, 0.774)
pt3dadd(109.29, 114.984, -6.9, 0.782)
pt3dadd(109.178, 115.027, -6.9, 0.79)
pt3dadd(109.067, 115.071, -6.9, 0.8)
pt3dadd(108.956, 115.117, -6.9, 0.808)
pt3dadd(108.846, 115.165, -6.9, 0.818)
pt3dadd(108.738, 115.215, -6.901, 0.828)
pt3dadd(108.667, 115.31, -6.918, 0.816)
pt3dadd(108.597, 115.397, -6.943, 0.804)
}
}
proc shape3d_119() {
apic[49] { pt3dadd(108.54, 115.425, -7.028, 0.804)
pt3dadd(108.477, 115.454, -7.108, 0.808)
pt3dadd(108.385, 115.488, -7.165, 0.834)
pt3dadd(108.305, 115.534, -7.222, 0.88)
pt3dadd(108.273, 115.628, -7.278, 1.004)
pt3dadd(108.224, 115.697, -7.349, 1.042)
pt3dadd(108.175, 115.767, -7.419, 1.078)
pt3dadd(108.125, 115.836, -7.49, 1.114)
pt3dadd(108.076, 115.905, -7.56, 1.152)
pt3dadd(108.026, 115.965, -7.637, 1.16)
pt3dadd(107.976, 116.023, -7.714, 1.166)
pt3dadd(107.927, 116.082, -7.79, 1.172)
pt3dadd(107.877, 116.14, -7.867, 1.178)
pt3dadd(107.814, 116.211, -7.926, 1.166)
pt3dadd(107.745, 116.287, -7.978, 1.148)
pt3dadd(107.676, 116.363, -8.03, 1.13)
pt3dadd(107.607, 116.439, -8.082, 1.112)
pt3dadd(107.564, 116.504, -8.155, 1.09)
pt3dadd(107.536, 116.563, -8.239, 1.066)
pt3dadd(107.508, 116.623, -8.322, 1.044)
pt3dadd(107.479, 116.682, -8.406, 1.022)
pt3dadd(107.443, 116.74, -8.487, 1.002)
pt3dadd(107.387, 116.797, -8.562, 0.996)
pt3dadd(107.33, 116.853, -8.636, 0.99)
pt3dadd(107.273, 116.91, -8.711, 0.984)
pt3dadd(107.214, 116.964, -8.785, 0.978)
pt3dadd(107.133, 117.003, -8.851, 0.966)
pt3dadd(107.053, 117.043, -8.917, 0.956)
pt3dadd(106.972, 117.082, -8.983, 0.944)
pt3dadd(106.891, 117.121, -9.05, 0.932)
pt3dadd(106.805, 117.14, -9.116, 0.918)
pt3dadd(106.717, 117.153, -9.184, 0.902)
pt3dadd(106.629, 117.165, -9.251, 0.888)
pt3dadd(106.541, 117.177, -9.318, 0.872)
pt3dadd(106.453, 117.19, -9.385, 0.858)
pt3dadd(106.371, 117.201, -9.458, 0.846)
pt3dadd(106.291, 117.213, -9.532, 0.836)
pt3dadd(106.211, 117.224, -9.606, 0.826)
pt3dadd(106.131, 117.235, -9.68, 0.816)
pt3dadd(106.052, 117.246, -9.754, 0.806)
pt3dadd(105.991, 117.255, -9.84, 0.808)
pt3dadd(105.935, 117.263, -9.928, 0.812)
pt3dadd(105.879, 117.27, -10.016, 0.818)
pt3dadd(105.822, 117.278, -10.104, 0.822)
pt3dadd(105.766, 117.286, -10.192, 0.828)
pt3dadd(105.714, 117.305, -10.28, 0.84)
pt3dadd(105.663, 117.329, -10.369, 0.854)
pt3dadd(105.613, 117.353, -10.457, 0.87)
pt3dadd(105.563, 117.377, -10.546, 0.886)
pt3dadd(105.513, 117.401, -10.635, 0.902)
pt3dadd(105.479, 117.436, -10.726, 0.918)
pt3dadd(105.447, 117.471, -10.818, 0.934)
pt3dadd(105.415, 117.507, -10.909, 0.95)
pt3dadd(105.383, 117.543, -11.001, 0.966)
pt3dadd(105.351, 117.578, -11.093, 0.988)
pt3dadd(105.315, 117.609, -11.185, 1.036)
pt3dadd(105.285, 117.645, -11.275, 1.086)
pt3dadd(105.289, 117.723, -11.351, 1.134)
pt3dadd(105.289, 117.799, -11.426, 1.184)
pt3dadd(105.202, 117.832, -11.489, 1.236)
pt3dadd(105.116, 117.862, -11.554, 1.286)
pt3dadd(105.035, 117.874, -11.627, 1.32)
pt3dadd(104.955, 117.885, -11.701, 1.356)
pt3dadd(104.88, 117.896, -11.779, 1.428)
pt3dadd(104.805, 117.906, -11.856, 1.472)
pt3dadd(104.727, 117.917, -11.932, 1.496)
pt3dadd(104.65, 117.928, -12.008, 1.522)
pt3dadd(104.573, 117.939, -12.084, 1.548)
pt3dadd(104.496, 117.95, -12.16, 1.572)
pt3dadd(104.396, 117.964, -12.206, 1.66)
pt3dadd(104.282, 117.98, -12.233, 1.682)
pt3dadd(104.173, 117.995, -12.274, 1.534)
pt3dadd(104.059, 118.011, -12.301, 1.362)
pt3dadd(103.95, 118.026, -12.339, 1.22)
pt3dadd(103.897, 118.034, -12.426, 1.152)
pt3dadd(103.886, 118.035, -12.525, 1.13)
pt3dadd(103.886, 118.035, -12.625, 1.13)
pt3dadd(103.886, 118.035, -12.725, 1.136)
pt3dadd(103.886, 118.035, -12.825, 1.168)
pt3dadd(103.886, 118.035, -12.925, 1.212)
pt3dadd(103.886, 118.035, -13.025, 1.224)
pt3dadd(103.883, 118.036, -13.125, 1.202)
pt3dadd(103.87, 118.038, -13.224, 1.19)
pt3dadd(103.858, 118.039, -13.324, 1.178)
pt3dadd(103.845, 118.041, -13.423, 1.166)
pt3dadd(103.833, 118.043, -13.523, 1.156)
pt3dadd(103.82, 118.044, -13.622, 1.144)
pt3dadd(103.808, 118.046, -13.722, 1.132)
pt3dadd(103.776, 118.032, -13.817, 1.126)
pt3dadd(103.742, 118.015, -13.912, 1.12)
pt3dadd(103.707, 117.999, -14.007, 1.116)
pt3dadd(103.673, 117.982, -14.101, 1.11)
pt3dadd(103.639, 117.966, -14.196, 1.106)
pt3dadd(103.582, 117.968, -14.284, 1.096)
pt3dadd(103.521, 117.974, -14.37, 1.086)
pt3dadd(103.461, 117.98, -14.456, 1.076)
pt3dadd(103.4, 117.986, -14.542, 1.066)
pt3dadd(103.339, 117.991, -14.628, 1.056)
pt3dadd(103.297, 117.997, -14.721, 1.052)
pt3dadd(103.258, 118.002, -14.816, 1.046)
pt3dadd(103.22, 118.008, -14.91, 1.042)
pt3dadd(103.182, 118.013, -15.005, 1.038)
pt3dadd(103.144, 118.018, -15.1, 1.032)
pt3dadd(103.113, 118.023, -15.196, 1.028)
pt3dadd(103.101, 118.024, -15.295, 1.024)
pt3dadd(103.089, 118.026, -15.395, 1.02)
pt3dadd(103.076, 118.028, -15.494, 1.016)
pt3dadd(103.063, 118.03, -15.594, 1.012)
pt3dadd(103.051, 118.032, -15.693, 1.008)
pt3dadd(103.038, 118.033, -15.793, 1.004)
pt3dadd(102.977, 118.042, -15.877, 1.018)
pt3dadd(102.912, 118.051, -15.961, 1.034)
pt3dadd(102.846, 118.06, -16.044, 1.048)
pt3dadd(102.781, 118.069, -16.128, 1.062)
pt3dadd(102.716, 118.079, -16.212, 1.078)
pt3dadd(102.648, 118.088, -16.293, 1.092)
pt3dadd(102.579, 118.098, -16.375, 1.108)
pt3dadd(102.511, 118.107, -16.457, 1.122)
pt3dadd(102.443, 118.117, -16.539, 1.138)
pt3dadd(102.374, 118.127, -16.621, 1.152)
pt3dadd(102.285, 118.107, -16.684, 1.166)
pt3dadd(102.193, 118.082, -16.745, 1.178)
pt3dadd(102.101, 118.057, -16.805, 1.188)
pt3dadd(102.008, 118.032, -16.865, 1.2)
pt3dadd(101.923, 118.001, -16.931, 1.214)
pt3dadd(101.843, 117.967, -16.999, 1.228)
pt3dadd(101.818, 117.949, -17.093, 1.248)
pt3dadd(101.806, 117.935, -17.191, 1.268)
pt3dadd(101.76, 117.908, -17.264, 1.29)
pt3dadd(101.654, 117.86, -17.287, 1.316)
pt3dadd(101.553, 117.818, -17.325, 1.344)
pt3dadd(101.459, 117.786, -17.38, 1.372)
pt3dadd(101.384, 117.781, -17.455, 1.404)
pt3dadd(101.32, 117.79, -17.538, 1.432)
pt3dadd(101.251, 117.8, -17.62, 1.438)
pt3dadd(101.183, 117.809, -17.702, 1.442)
pt3dadd(101.115, 117.819, -17.784, 1.448)
pt3dadd(101.046, 117.828, -17.866, 1.452)
pt3dadd(100.984, 117.837, -17.95, 1.45)
pt3dadd(100.952, 117.842, -18.046, 1.42)
pt3dadd(100.919, 117.846, -18.142, 1.388)
pt3dadd(100.885, 117.847, -18.238, 1.316)
pt3dadd(100.85, 117.846, -18.334, 1.23)
pt3dadd(100.826, 117.82, -18.426, 1.142)
pt3dadd(100.818, 117.76, -18.512, 1.05)
pt3dadd(100.808, 117.69, -18.59, 0.966)
pt3dadd(100.794, 117.587, -18.64, 0.908)
pt3dadd(100.778, 117.484, -18.689, 0.854)
pt3dadd(100.736, 117.372, -18.692, 0.854)
pt3dadd(100.694, 117.26, -18.694, 0.854)
pt3dadd(100.652, 117.147, -18.697, 0.854)
pt3dadd(100.61, 117.035, -18.7, 0.854)
pt3dadd(100.549, 116.932, -18.7, 0.864)
pt3dadd(100.488, 116.829, -18.7, 0.876)
pt3dadd(100.393, 116.765, -18.705, 0.902)
pt3dadd(100.281, 116.733, -18.719, 0.948)
pt3dadd(100.171, 116.74, -18.758, 1.034)
pt3dadd(100.066, 116.754, -18.803, 1.104)
pt3dadd(99.986, 116.766, -18.875, 1.082)
pt3dadd(99.954, 116.76, -18.969, 0.998)
pt3dadd(99.945, 116.721, -19.063, 0.962)
pt3dadd(99.938, 116.674, -19.155, 0.94)
pt3dadd(99.909, 116.625, -19.24, 0.922)
pt3dadd(99.857, 116.573, -19.32, 0.908)
pt3dadd(99.813, 116.548, -19.409, 0.904)
pt3dadd(99.773, 116.51, -19.497, 0.91)
pt3dadd(99.732, 116.471, -19.585, 0.914)
pt3dadd(99.691, 116.432, -19.674, 0.92)
pt3dadd(99.65, 116.393, -19.762, 0.926)
pt3dadd(99.584, 116.365, -19.837, 0.94)
pt3dadd(99.489, 116.35, -19.896, 0.968)
pt3dadd(99.415, 116.319, -19.967, 0.994)
pt3dadd(99.357, 116.275, -20.047, 1.022)
pt3dadd(99.254, 116.253, -20.078, 1.022)
pt3dadd(99.136, 116.24, -20.093, 1.01)
pt3dadd(99.062, 116.173, -20.1, 0.988)
pt3dadd(99.025, 116.058, -20.1, 0.96)
pt3dadd(98.989, 115.944, -20.1, 0.93)
pt3dadd(98.971, 115.83, -20.126, 0.872)
pt3dadd(98.937, 115.725, -20.156, 0.826)
pt3dadd(98.861, 115.644, -20.193, 0.82)
pt3dadd(98.786, 115.561, -20.23, 0.814)
pt3dadd(98.71, 115.479, -20.267, 0.81)
pt3dadd(98.637, 115.395, -20.3, 0.804)
pt3dadd(98.582, 115.288, -20.3, 0.816)
pt3dadd(98.527, 115.182, -20.3, 0.826)
pt3dadd(98.485, 115.069, -20.3, 0.85)
pt3dadd(98.449, 114.955, -20.3, 0.88)
pt3dadd(98.402, 114.852, -20.307, 0.906)
pt3dadd(98.3, 114.815, -20.349, 0.92)
pt3dadd(98.209, 114.771, -20.399, 0.924)
pt3dadd(98.139, 114.711, -20.463, 0.91)
pt3dadd(98.057, 114.639, -20.491, 0.892)
pt3dadd(97.968, 114.558, -20.494, 0.87)
pt3dadd(97.88, 114.477, -20.497, 0.848)
pt3dadd(97.8, 114.393, -20.497, 0.826)
pt3dadd(97.784, 114.278, -20.469, 0.806)
pt3dadd(97.768, 114.164, -20.441, 0.784)
pt3dadd(97.712, 114.064, -20.425, 0.758)
pt3dadd(97.639, 113.969, -20.412, 0.732)
}
}
proc shape3d_120() {
apic[49] { pt3dadd(97.567, 113.875, -20.4, 0.704)
pt3dadd(97.447, 113.875, -20.404, 0.674)
pt3dadd(97.327, 113.877, -20.409, 0.646)
pt3dadd(97.222, 113.882, -20.44, 0.606)
pt3dadd(97.138, 113.894, -20.51, 0.552)
pt3dadd(97.127, 113.916, -20.608, 0.528)
pt3dadd(97.133, 113.956, -20.701, 0.528)
pt3dadd(97.137, 113.988, -20.796, 0.55)
pt3dadd(97.121, 113.927, -20.874, 0.578)
pt3dadd(97.074, 113.823, -20.9, 0.528)
pt3dadd(97.005, 113.724, -20.9, 0.478)
pt3dadd(96.938, 113.625, -20.9, 0.51)
pt3dadd(96.869, 113.527, -20.9, 0.552)
pt3dadd(96.8, 113.429, -20.904, 0.472)
pt3dadd(96.732, 113.34, -20.937, 0.418)
pt3dadd(96.668, 113.253, -20.98, 0.404)
pt3dadd(96.604, 113.181, -21.039, 0.436)
pt3dadd(96.541, 113.115, -21.104, 0.48)
pt3dadd(96.486, 113.055, -21.165, 0.538)
pt3dadd(96.417, 112.961, -21.188, 0.564)
pt3dadd(96.331, 112.888, -21.211, 0.578)
pt3dadd(96.225, 112.839, -21.234, 0.578)
pt3dadd(96.16, 112.81, -21.298, 0.59)
pt3dadd(96.128, 112.796, -21.393, 0.612)
pt3dadd(96.084, 112.775, -21.483, 0.642)
pt3dadd(96.02, 112.739, -21.562, 0.684)
pt3dadd(95.944, 112.71, -21.634, 0.72)
pt3dadd(95.857, 112.687, -21.7, 0.754)
pt3dadd(95.769, 112.664, -21.766, 0.786)
pt3dadd(95.666, 112.65, -21.8, 0.818)
pt3dadd(95.546, 112.647, -21.8, 0.846)
pt3dadd(95.426, 112.643, -21.8, 0.876)
pt3dadd(95.319, 112.604, -21.822, 0.906)
pt3dadd(95.218, 112.57, -21.869, 0.912)
pt3dadd(95.118, 112.537, -21.917, 0.918)
pt3dadd(95.018, 112.503, -21.964, 0.924)
pt3dadd(94.917, 112.47, -22.011, 0.93)
pt3dadd(94.813, 112.415, -22.031, 0.94)
pt3dadd(94.709, 112.36, -22.051, 0.952)
pt3dadd(94.605, 112.305, -22.071, 0.962)
pt3dadd(94.501, 112.251, -22.091, 0.974)
pt3dadd(94.39, 112.218, -22.111, 0.98)
pt3dadd(94.273, 112.205, -22.13, 0.98)
pt3dadd(94.156, 112.192, -22.15, 0.98)
pt3dadd(94.04, 112.179, -22.17, 0.98)
pt3dadd(93.923, 112.166, -22.19, 0.98)
pt3dadd(93.816, 112.128, -22.213, 0.968)
pt3dadd(93.72, 112.063, -22.238, 0.944)
pt3dadd(93.623, 111.999, -22.264, 0.922)
pt3dadd(93.527, 111.934, -22.29, 0.898)
pt3dadd(93.436, 111.866, -22.319, 0.864)
pt3dadd(93.372, 111.778, -22.362, 0.78)
pt3dadd(93.294, 111.699, -22.391, 0.714)
pt3dadd(93.194, 111.634, -22.396, 0.678)
pt3dadd(93.094, 111.588, -22.418, 0.656)
pt3dadd(92.995, 111.581, -22.475, 0.67)
pt3dadd(92.93, 111.577, -22.548, 0.684)
pt3dadd(92.921, 111.579, -22.648, 0.702)
pt3dadd(92.912, 111.58, -22.748, 0.72)
pt3dadd(92.859, 111.558, -22.827, 0.728)
pt3dadd(92.775, 111.519, -22.891, 0.728)
pt3dadd(92.692, 111.48, -22.955, 0.728)
pt3dadd(92.622, 111.423, -23.019, 0.718)
pt3dadd(92.558, 111.355, -23.082, 0.704)
pt3dadd(92.466, 111.287, -23.106, 0.71)
pt3dadd(92.364, 111.23, -23.13, 0.736)
pt3dadd(92.288, 111.194, -23.18, 0.762)
pt3dadd(92.253, 111.193, -23.276, 0.784)
pt3dadd(92.217, 111.189, -23.371, 0.804)
pt3dadd(92.155, 111.129, -23.44, 0.804)
pt3dadd(92.089, 111.059, -23.49, 0.796)
pt3dadd(92.012, 110.968, -23.496, 0.772)
pt3dadd(91.934, 110.876, -23.5, 0.75)
pt3dadd(91.856, 110.785, -23.5, 0.732)
pt3dadd(91.775, 110.7, -23.517, 0.732)
pt3dadd(91.693, 110.616, -23.54, 0.738)
pt3dadd(91.611, 110.533, -23.562, 0.744)
pt3dadd(91.529, 110.45, -23.585, 0.75)
pt3dadd(91.46, 110.357, -23.6, 0.76)
pt3dadd(91.418, 110.245, -23.6, 0.78)
pt3dadd(91.376, 110.133, -23.6, 0.8)
pt3dadd(91.301, 110.04, -23.6, 0.794)
pt3dadd(91.22, 109.951, -23.6, 0.782)
pt3dadd(91.122, 109.89, -23.616, 0.742)
pt3dadd(91.016, 109.841, -23.639, 0.69)
pt3dadd(90.964, 109.785, -23.707, 0.638)
pt3dadd(90.928, 109.726, -23.789, 0.584)
pt3dadd(90.874, 109.698, -23.875, 0.56)
pt3dadd(90.797, 109.686, -23.948, 0.558)
pt3dadd(90.705, 109.68, -24.012, 0.57)
pt3dadd(90.612, 109.676, -24.075, 0.582)
pt3dadd(90.52, 109.671, -24.139, 0.592)
pt3dadd(90.427, 109.664, -24.201, 0.602)
pt3dadd(90.321, 109.62, -24.232, 0.608)
pt3dadd(90.216, 109.576, -24.263, 0.614)
pt3dadd(90.111, 109.532, -24.293, 0.62)
pt3dadd(90.005, 109.488, -24.324, 0.626)
pt3dadd(89.913, 109.426, -24.359, 0.618)
pt3dadd(89.828, 109.355, -24.397, 0.604)
pt3dadd(89.741, 109.273, -24.4, 0.56)
pt3dadd(89.654, 109.191, -24.4, 0.512)
pt3dadd(89.591, 109.097, -24.427, 0.492)
pt3dadd(89.534, 108.999, -24.462, 0.478)
pt3dadd(89.513, 108.885, -24.482, 0.494)
pt3dadd(89.496, 108.768, -24.499, 0.514)
pt3dadd(89.48, 108.672, -24.536, 0.538)
pt3dadd(89.464, 108.634, -24.63, 0.58)
pt3dadd(89.447, 108.596, -24.724, 0.62)
pt3dadd(89.431, 108.558, -24.818, 0.662)
pt3dadd(89.366, 108.503, -24.846, 0.712)
pt3dadd(89.281, 108.426, -24.831, 0.756)
pt3dadd(89.239, 108.315, -24.82, 0.764)
pt3dadd(89.197, 108.203, -24.809, 0.772)
pt3dadd(89.159, 108.091, -24.802, 0.778)
pt3dadd(89.142, 107.974, -24.82, 0.778)
pt3dadd(89.126, 107.856, -24.837, 0.778)
pt3dadd(89.122, 107.777, -24.895, 0.788)
pt3dadd(89.13, 107.728, -24.986, 0.806)
pt3dadd(89.137, 107.679, -25.077, 0.824)
pt3dadd(89.162, 107.592, -25.136, 0.828)
pt3dadd(89.192, 107.492, -25.185, 0.828)
pt3dadd(89.179, 107.374, -25.191, 0.81)
pt3dadd(89.163, 107.256, -25.194, 0.792)
pt3dadd(89.146, 107.137, -25.197, 0.772)
pt3dadd(89.129, 107.018, -25.201, 0.752)
pt3dadd(89.113, 106.901, -25.218, 0.704)
pt3dadd(89.096, 106.784, -25.235, 0.656)
pt3dadd(89.082, 106.686, -25.278, 0.566)
pt3dadd(89.047, 106.586, -25.287, 0.518)
pt3dadd(89.002, 106.477, -25.268, 0.504)
pt3dadd(88.956, 106.368, -25.25, 0.49)
pt3dadd(88.912, 106.259, -25.234, 0.478)
pt3dadd(88.869, 106.147, -25.241, 0.478)
pt3dadd(88.827, 106.035, -25.247, 0.478)
pt3dadd(88.784, 105.923, -25.254, 0.478)
pt3dadd(88.742, 105.811, -25.261, 0.478)
pt3dadd(88.701, 105.699, -25.268, 0.478)
pt3dadd(88.685, 105.582, -25.285, 0.5)
pt3dadd(88.668, 105.465, -25.301, 0.52)
pt3dadd(88.652, 105.347, -25.317, 0.54)
pt3dadd(88.635, 105.23, -25.334, 0.562)
pt3dadd(88.619, 105.113, -25.35, 0.582)
pt3dadd(88.603, 104.996, -25.367, 0.602)
pt3dadd(88.586, 104.88, -25.39, 0.634)
pt3dadd(88.57, 104.764, -25.413, 0.664)
pt3dadd(88.554, 104.649, -25.435, 0.694)
pt3dadd(88.538, 104.533, -25.458, 0.724)
pt3dadd(88.521, 104.417, -25.481, 0.754)
pt3dadd(88.505, 104.301, -25.5, 0.788)
pt3dadd(88.488, 104.182, -25.5, 0.838)
pt3dadd(88.472, 104.063, -25.5, 0.888)
pt3dadd(88.458, 103.944, -25.5, 0.93)
pt3dadd(88.455, 103.824, -25.5, 0.93)
pt3dadd(88.453, 103.704, -25.5, 0.93)
pt3dadd(88.472, 103.588, -25.502, 0.912)
pt3dadd(88.513, 103.475, -25.508, 0.876)
pt3dadd(88.552, 103.374, -25.535, 0.83)
pt3dadd(88.586, 103.294, -25.604, 0.758)
pt3dadd(88.625, 103.208, -25.666, 0.714)
pt3dadd(88.668, 103.119, -25.723, 0.688)
pt3dadd(88.71, 103.031, -25.78, 0.662)
pt3dadd(88.765, 102.933, -25.8, 0.646)
pt3dadd(88.826, 102.829, -25.8, 0.634)
pt3dadd(88.876, 102.721, -25.8, 0.678)
pt3dadd(88.93, 102.617, -25.817, 0.716)
pt3dadd(88.99, 102.517, -25.84, 0.734)
pt3dadd(89.05, 102.416, -25.863, 0.75)
pt3dadd(89.109, 102.316, -25.886, 0.768)
pt3dadd(89.155, 102.209, -25.9, 0.786)
pt3dadd(89.178, 102.091, -25.9, 0.808)
pt3dadd(89.203, 101.974, -25.901, 0.828)
pt3dadd(89.289, 101.903, -25.937, 0.814)
pt3dadd(89.356, 101.824, -25.972, 0.804)
pt3dadd(89.346, 101.709, -26.001, 0.804)
pt3dadd(89.336, 101.595, -26.03, 0.804)
pt3dadd(89.32, 101.481, -26.057, 0.812)
pt3dadd(89.304, 101.366, -26.085, 0.824)
pt3dadd(89.288, 101.25, -26.1, 0.846)
pt3dadd(89.271, 101.131, -26.1, 0.884)
pt3dadd(89.279, 101.016, -26.111, 0.906)
pt3dadd(89.317, 100.907, -26.136, 0.912)
pt3dadd(89.356, 100.797, -26.16, 0.918)
pt3dadd(89.394, 100.687, -26.185, 0.924)
pt3dadd(89.432, 100.577, -26.209, 0.928)
pt3dadd(89.487, 100.485, -26.254, 0.912)
pt3dadd(89.544, 100.395, -26.301, 0.894)
pt3dadd(89.6, 100.305, -26.347, 0.876)
pt3dadd(89.656, 100.215, -26.393, 0.856)
pt3dadd(89.697, 100.105, -26.4, 0.806)
pt3dadd(89.736, 99.991, -26.4, 0.75)
pt3dadd(89.779, 99.879, -26.4, 0.7)
pt3dadd(89.824, 99.768, -26.4, 0.654)
pt3dadd(89.899, 99.688, -26.4, 0.632)
pt3dadd(90.013, 99.651, -26.4, 0.642)
pt3dadd(90.127, 99.615, -26.4, 0.652)
pt3dadd(90.238, 99.568, -26.4, 0.67)
pt3dadd(90.347, 99.519, -26.4, 0.69)
pt3dadd(90.43, 99.445, -26.4, 0.706)
pt3dadd(90.473, 99.333, -26.4, 0.712)
pt3dadd(90.516, 99.221, -26.4, 0.72)
}
}
proc shape3d_121() {
apic[49] { pt3dadd(90.559, 99.109, -26.4, 0.726)
pt3dadd(90.604, 98.998, -26.4, 0.712)
pt3dadd(90.65, 98.887, -26.4, 0.688)
pt3dadd(90.709, 98.785, -26.409, 0.658)
pt3dadd(90.746, 98.682, -26.448, 0.664)
pt3dadd(90.778, 98.577, -26.489, 0.674)
pt3dadd(90.81, 98.472, -26.53, 0.686)
pt3dadd(90.842, 98.368, -26.571, 0.698)
pt3dadd(90.884, 98.261, -26.59, 0.712)
pt3dadd(90.933, 98.151, -26.592, 0.726)
pt3dadd(90.983, 98.042, -26.595, 0.742)
pt3dadd(91.032, 97.933, -26.597, 0.756)
pt3dadd(91.081, 97.823, -26.599, 0.772)
pt3dadd(91.101, 97.708, -26.6, 0.794)
pt3dadd(91.112, 97.589, -26.6, 0.74)
pt3dadd(91.145, 97.474, -26.6, 0.642)
pt3dadd(91.161, 97.355, -26.6, 0.578)
pt3dadd(91.188, 97.239, -26.6, 0.56)
pt3dadd(91.261, 97.146, -26.601, 0.578)
pt3dadd(91.348, 97.07, -26.626, 0.61)
pt3dadd(91.411, 97.016, -26.694, 0.7)
pt3dadd(91.481, 97.006, -26.773, 0.788)
pt3dadd(91.578, 97.02, -26.829, 0.804)
pt3dadd(91.694, 97.046, -26.833, 0.78)
pt3dadd(91.811, 97.072, -26.833, 0.754)
}
dend_0[2] {pt3dclear()
pt3dadd(127.273, 104.059, 17.955, 14.238)
pt3dadd(127.273, 103.974, 18.026, 14.176)
pt3dadd(127.273, 103.89, 18.097, 14.116)
pt3dadd(127.273, 103.805, 18.167, 14.054)
pt3dadd(127.273, 103.72, 18.238, 13.992)
pt3dadd(127.273, 103.635, 18.309, 13.93)
pt3dadd(127.273, 103.55, 18.38, 13.87)
pt3dadd(127.273, 103.465, 18.45, 13.808)
pt3dadd(127.273, 103.381, 18.521, 13.746)
pt3dadd(127.273, 103.296, 18.592, 13.686)
pt3dadd(127.273, 103.211, 18.663, 13.624)
pt3dadd(127.273, 103.126, 18.733, 13.562)
pt3dadd(127.273, 103.041, 18.804, 13.5)
pt3dadd(127.273, 102.956, 18.875, 13.44)
pt3dadd(127.27, 102.871, 18.945, 13.366)
pt3dadd(127.264, 102.785, 19.014, 13.284)
pt3dadd(127.258, 102.699, 19.084, 13.202)
pt3dadd(127.252, 102.613, 19.153, 13.118)
pt3dadd(127.246, 102.527, 19.223, 13.036)
pt3dadd(127.24, 102.441, 19.293, 12.952)
pt3dadd(127.234, 102.355, 19.362, 12.87)
pt3dadd(127.228, 102.269, 19.432, 12.786)
pt3dadd(127.222, 102.183, 19.501, 12.704)
pt3dadd(127.216, 102.097, 19.571, 12.622)
pt3dadd(127.188, 102.01, 19.634, 12.462)
pt3dadd(127.146, 101.922, 19.692, 12.252)
pt3dadd(127.103, 101.835, 19.751, 12.044)
pt3dadd(127.061, 101.747, 19.809, 11.834)
pt3dadd(127.019, 101.659, 19.868, 11.624)
pt3dadd(126.976, 101.572, 19.926, 11.414)
pt3dadd(126.934, 101.484, 19.985, 11.206)
pt3dadd(126.892, 101.396, 20.043, 10.996)
pt3dadd(126.848, 101.309, 20.101, 10.786)
pt3dadd(126.806, 101.221, 20.16, 10.576)
pt3dadd(126.762, 101.133, 20.217, 10.368)
pt3dadd(126.716, 101.045, 20.274, 10.158)
pt3dadd(126.672, 100.957, 20.33, 9.95)
pt3dadd(126.626, 100.87, 20.387, 9.74)
pt3dadd(126.581, 100.782, 20.444, 9.532)
pt3dadd(126.535, 100.694, 20.5, 9.322)
pt3dadd(126.49, 100.606, 20.557, 9.114)
pt3dadd(126.445, 100.518, 20.614, 8.904)
pt3dadd(126.4, 100.43, 20.67, 8.696)
pt3dadd(126.354, 100.342, 20.727, 8.486)
pt3dadd(126.29, 100.256, 20.769, 8.286)
pt3dadd(126.217, 100.17, 20.804, 8.092)
pt3dadd(126.144, 100.085, 20.839, 7.898)
pt3dadd(126.071, 99.999, 20.874, 7.704)
pt3dadd(125.999, 99.914, 20.909, 7.51)
pt3dadd(125.926, 99.828, 20.944, 7.316)
pt3dadd(125.852, 99.743, 20.979, 7.12)
pt3dadd(125.779, 99.658, 21.014, 6.926)
pt3dadd(125.706, 99.572, 21.049, 6.732)
pt3dadd(125.633, 99.487, 21.083, 6.538)
pt3dadd(125.554, 99.41, 21.122, 6.362)
pt3dadd(125.471, 99.337, 21.162, 6.198)
pt3dadd(125.388, 99.265, 21.202, 6.032)
pt3dadd(125.305, 99.192, 21.242, 5.868)
pt3dadd(125.222, 99.12, 21.282, 5.702)
pt3dadd(125.14, 99.047, 21.322, 5.538)
pt3dadd(125.057, 98.975, 21.362, 5.372)
pt3dadd(124.974, 98.902, 21.402, 5.208)
pt3dadd(124.892, 98.83, 21.442, 5.042)
pt3dadd(124.81, 98.757, 21.482, 4.878)
pt3dadd(124.72, 98.698, 21.526, 4.742)
pt3dadd(124.627, 98.643, 21.57, 4.616)
pt3dadd(124.536, 98.587, 21.615, 4.488)
pt3dadd(124.444, 98.532, 21.66, 4.362)
pt3dadd(124.352, 98.477, 21.705, 4.236)
pt3dadd(124.26, 98.421, 21.75, 4.108)
pt3dadd(124.169, 98.366, 21.795, 3.982)
pt3dadd(124.076, 98.311, 21.84, 3.856)
pt3dadd(123.985, 98.255, 21.885, 3.73)
pt3dadd(123.893, 98.2, 21.93, 3.602)
pt3dadd(123.797, 98.14, 21.962, 3.49)
pt3dadd(123.701, 98.078, 21.991, 3.382)
pt3dadd(123.604, 98.016, 22.02, 3.274)
pt3dadd(123.506, 97.955, 22.049, 3.166)
pt3dadd(123.409, 97.893, 22.078, 3.06)
pt3dadd(123.312, 97.832, 22.107, 2.952)
pt3dadd(123.216, 97.77, 22.137, 2.844)
pt3dadd(123.119, 97.708, 22.166, 2.736)
pt3dadd(123.022, 97.647, 22.194, 2.628)
pt3dadd(122.924, 97.585, 22.223, 2.52)
pt3dadd(122.827, 97.521, 22.246, 2.422)
pt3dadd(122.729, 97.458, 22.267, 2.324)
pt3dadd(122.63, 97.394, 22.288, 2.226)
pt3dadd(122.532, 97.33, 22.309, 2.128)
pt3dadd(122.434, 97.266, 22.33, 2.03)
pt3dadd(122.335, 97.202, 22.351, 1.934)
pt3dadd(122.237, 97.138, 22.373, 1.836)
pt3dadd(122.138, 97.074, 22.394, 1.738)
pt3dadd(122.04, 97.01, 22.415, 1.64)
pt3dadd(121.942, 96.946, 22.436, 1.542)
pt3dadd(121.838, 96.888, 22.45, 1.522)
pt3dadd(121.734, 96.832, 22.463, 1.516)
pt3dadd(121.628, 96.775, 22.476, 1.512)
pt3dadd(121.524, 96.719, 22.489, 1.506)
pt3dadd(121.42, 96.662, 22.502, 1.5)
pt3dadd(121.315, 96.606, 22.515, 1.494)
pt3dadd(121.21, 96.549, 22.528, 1.488)
pt3dadd(121.105, 96.493, 22.542, 1.482)
pt3dadd(121.001, 96.437, 22.555, 1.476)
}
dend_7 {pt3dclear()
pt3dadd(121.001, 96.437, 22.555, 1.476)
pt3dadd(120.896, 96.38, 22.568, 1.47)
pt3dadd(120.792, 96.322, 22.578, 1.482)
pt3dadd(120.688, 96.263, 22.587, 1.498)
pt3dadd(120.584, 96.204, 22.597, 1.514)
pt3dadd(120.48, 96.145, 22.606, 1.53)
pt3dadd(120.376, 96.086, 22.616, 1.546)
pt3dadd(120.272, 96.027, 22.626, 1.562)
pt3dadd(120.168, 95.968, 22.635, 1.578)
pt3dadd(120.064, 95.91, 22.645, 1.594)
pt3dadd(119.96, 95.851, 22.654, 1.61)
pt3dadd(119.856, 95.792, 22.664, 1.626)
pt3dadd(119.763, 95.717, 22.666, 1.65)
pt3dadd(119.671, 95.64, 22.668, 1.676)
pt3dadd(119.578, 95.564, 22.669, 1.7)
pt3dadd(119.486, 95.487, 22.671, 1.726)
pt3dadd(119.394, 95.41, 22.672, 1.752)
pt3dadd(119.301, 95.334, 22.674, 1.776)
pt3dadd(119.209, 95.257, 22.675, 1.802)
pt3dadd(119.117, 95.18, 22.677, 1.826)
pt3dadd(119.025, 95.103, 22.678, 1.852)
pt3dadd(118.932, 95.027, 22.68, 1.878)
pt3dadd(118.848, 94.942, 22.682, 1.888)
pt3dadd(118.763, 94.856, 22.684, 1.898)
pt3dadd(118.679, 94.771, 22.687, 1.91)
pt3dadd(118.595, 94.685, 22.689, 1.92)
pt3dadd(118.511, 94.6, 22.691, 1.93)
pt3dadd(118.427, 94.514, 22.694, 1.94)
pt3dadd(118.343, 94.428, 22.696, 1.95)
pt3dadd(118.259, 94.343, 22.698, 1.96)
pt3dadd(118.175, 94.257, 22.7, 1.97)
pt3dadd(118.091, 94.172, 22.703, 1.98)
pt3dadd(118.022, 94.074, 22.706, 1.966)
pt3dadd(117.953, 93.976, 22.709, 1.952)
pt3dadd(117.883, 93.878, 22.713, 1.938)
pt3dadd(117.814, 93.78, 22.716, 1.924)
pt3dadd(117.745, 93.682, 22.72, 1.91)
pt3dadd(117.676, 93.584, 22.723, 1.898)
pt3dadd(117.607, 93.486, 22.726, 1.884)
pt3dadd(117.537, 93.388, 22.73, 1.87)
pt3dadd(117.468, 93.29, 22.733, 1.856)
pt3dadd(117.399, 93.192, 22.737, 1.842)
pt3dadd(117.324, 93.098, 22.743, 1.848)
pt3dadd(117.25, 93.005, 22.749, 1.854)
pt3dadd(117.175, 92.911, 22.756, 1.86)
pt3dadd(117.1, 92.818, 22.762, 1.866)
pt3dadd(117.025, 92.724, 22.768, 1.872)
pt3dadd(116.95, 92.631, 22.775, 1.878)
pt3dadd(116.876, 92.537, 22.781, 1.884)
pt3dadd(116.801, 92.444, 22.788, 1.89)
pt3dadd(116.726, 92.35, 22.794, 1.896)
pt3dadd(116.651, 92.257, 22.8, 1.902)
pt3dadd(116.575, 92.165, 22.807, 1.914)
pt3dadd(116.498, 92.073, 22.815, 1.926)
pt3dadd(116.422, 91.98, 22.822, 1.938)
pt3dadd(116.346, 91.888, 22.829, 1.95)
pt3dadd(116.269, 91.796, 22.837, 1.962)
pt3dadd(116.193, 91.704, 22.844, 1.976)
pt3dadd(116.116, 91.612, 22.851, 1.988)
pt3dadd(116.04, 91.52, 22.859, 2)
pt3dadd(115.963, 91.428, 22.866, 2.012)
pt3dadd(115.887, 91.336, 22.873, 2.024)
pt3dadd(115.801, 91.253, 22.885, 2.004)
pt3dadd(115.715, 91.171, 22.896, 1.982)
pt3dadd(115.629, 91.088, 22.908, 1.962)
pt3dadd(115.543, 91.006, 22.92, 1.942)
pt3dadd(115.457, 90.923, 22.931, 1.92)
pt3dadd(115.371, 90.841, 22.943, 1.9)
pt3dadd(115.285, 90.758, 22.955, 1.88)
pt3dadd(115.199, 90.676, 22.966, 1.858)
pt3dadd(115.113, 90.593, 22.978, 1.838)
pt3dadd(115.027, 90.511, 22.99, 1.818)
}
}
proc shape3d_122() {
dend_7 { pt3dadd(114.94, 90.429, 23.002, 1.794)
pt3dadd(114.853, 90.348, 23.014, 1.77)
pt3dadd(114.766, 90.266, 23.026, 1.746)
pt3dadd(114.679, 90.185, 23.038, 1.724)
pt3dadd(114.593, 90.103, 23.05, 1.7)
pt3dadd(114.506, 90.021, 23.062, 1.676)
pt3dadd(114.419, 89.94, 23.074, 1.652)
pt3dadd(114.332, 89.858, 23.086, 1.63)
pt3dadd(114.245, 89.777, 23.098, 1.606)
pt3dadd(114.158, 89.695, 23.11, 1.582)
}
dend_7[1] {pt3dclear()
pt3dadd(114.158, 89.695, 23.11, 1.582)
pt3dadd(114.097, 89.665, 23.135, 1.56)
pt3dadd(113.998, 89.617, 23.174, 1.524)
pt3dadd(113.899, 89.569, 23.213, 1.488)
pt3dadd(113.799, 89.521, 23.253, 1.452)
pt3dadd(113.7, 89.473, 23.292, 1.416)
pt3dadd(113.601, 89.424, 23.332, 1.38)
pt3dadd(113.502, 89.376, 23.371, 1.344)
pt3dadd(113.403, 89.328, 23.411, 1.308)
pt3dadd(113.304, 89.28, 23.45, 1.272)
pt3dadd(113.204, 89.232, 23.49, 1.236)
pt3dadd(113.105, 89.184, 23.529, 1.2)
pt3dadd(113.006, 89.136, 23.569, 1.164)
pt3dadd(112.907, 89.088, 23.608, 1.128)
pt3dadd(112.807, 89.04, 23.648, 1.092)
pt3dadd(112.708, 88.991, 23.687, 1.058)
pt3dadd(112.609, 88.943, 23.726, 1.022)
pt3dadd(112.51, 88.895, 23.766, 0.986)
pt3dadd(112.41, 88.847, 23.805, 0.95)
pt3dadd(112.311, 88.793, 23.838, 0.986)
pt3dadd(112.211, 88.74, 23.87, 1.024)
pt3dadd(112.111, 88.686, 23.903, 1.062)
pt3dadd(112.011, 88.632, 23.935, 1.1)
pt3dadd(111.911, 88.578, 23.968, 1.138)
pt3dadd(111.811, 88.524, 24, 1.174)
pt3dadd(111.711, 88.47, 24.033, 1.212)
pt3dadd(111.611, 88.417, 24.065, 1.25)
pt3dadd(111.511, 88.363, 24.098, 1.288)
pt3dadd(111.411, 88.309, 24.13, 1.326)
pt3dadd(111.311, 88.255, 24.162, 1.374)
pt3dadd(111.211, 88.2, 24.193, 1.422)
pt3dadd(111.111, 88.146, 24.225, 1.47)
pt3dadd(111.011, 88.091, 24.256, 1.518)
pt3dadd(110.911, 88.037, 24.288, 1.566)
pt3dadd(110.811, 87.982, 24.319, 1.614)
pt3dadd(110.711, 87.928, 24.351, 1.664)
pt3dadd(110.611, 87.873, 24.382, 1.712)
pt3dadd(110.511, 87.819, 24.413, 1.76)
pt3dadd(110.411, 87.764, 24.445, 1.808)
}
dend_7[2] {pt3dclear()
pt3dadd(110.411, 87.764, 24.445, 1.808)
pt3dadd(110.357, 87.75, 24.469, 1.802)
pt3dadd(110.254, 87.721, 24.515, 1.79)
pt3dadd(110.152, 87.693, 24.562, 1.776)
pt3dadd(110.049, 87.665, 24.608, 1.764)
pt3dadd(109.946, 87.637, 24.654, 1.752)
pt3dadd(109.844, 87.608, 24.7, 1.74)
pt3dadd(109.741, 87.58, 24.746, 1.728)
pt3dadd(109.639, 87.552, 24.792, 1.714)
pt3dadd(109.536, 87.523, 24.839, 1.702)
pt3dadd(109.433, 87.495, 24.885, 1.69)
pt3dadd(109.331, 87.467, 24.931, 1.678)
pt3dadd(109.228, 87.438, 24.977, 1.666)
pt3dadd(109.126, 87.41, 25.024, 1.652)
pt3dadd(109.023, 87.382, 25.07, 1.64)
pt3dadd(108.921, 87.354, 25.116, 1.628)
pt3dadd(108.818, 87.325, 25.162, 1.616)
pt3dadd(108.711, 87.289, 25.196, 1.556)
pt3dadd(108.604, 87.253, 25.23, 1.496)
pt3dadd(108.497, 87.217, 25.263, 1.436)
pt3dadd(108.389, 87.181, 25.297, 1.374)
pt3dadd(108.282, 87.145, 25.33, 1.314)
pt3dadd(108.175, 87.109, 25.364, 1.252)
pt3dadd(108.068, 87.073, 25.397, 1.192)
pt3dadd(107.961, 87.037, 25.431, 1.13)
pt3dadd(107.854, 87.001, 25.464, 1.07)
pt3dadd(107.746, 86.965, 25.498, 1.01)
pt3dadd(107.638, 86.926, 25.526, 0.93)
pt3dadd(107.53, 86.887, 25.555, 0.852)
pt3dadd(107.422, 86.848, 25.584, 0.774)
pt3dadd(107.314, 86.81, 25.612, 0.696)
pt3dadd(107.205, 86.771, 25.641, 0.618)
pt3dadd(107.097, 86.732, 25.67, 0.54)
pt3dadd(106.989, 86.693, 25.698, 0.46)
pt3dadd(106.881, 86.654, 25.727, 0.382)
pt3dadd(106.773, 86.615, 25.755, 0.304)
pt3dadd(106.664, 86.576, 25.784, 0.226)
}
dend_7[3] {pt3dclear()
pt3dadd(106.664, 86.576, 25.784, 0.226)
pt3dadd(106.568, 86.6, 25.802, 0.272)
pt3dadd(106.455, 86.627, 25.824, 0.328)
pt3dadd(106.341, 86.655, 25.845, 0.382)
pt3dadd(106.227, 86.682, 25.867, 0.438)
pt3dadd(106.113, 86.71, 25.889, 0.492)
pt3dadd(105.999, 86.737, 25.91, 0.546)
pt3dadd(105.885, 86.765, 25.932, 0.602)
pt3dadd(105.771, 86.792, 25.954, 0.656)
pt3dadd(105.657, 86.82, 25.975, 0.712)
pt3dadd(105.543, 86.847, 25.997, 0.766)
pt3dadd(105.43, 86.875, 26.018, 0.822)
pt3dadd(105.316, 86.902, 26.04, 0.876)
pt3dadd(105.202, 86.93, 26.062, 0.932)
pt3dadd(105.088, 86.957, 26.083, 0.986)
pt3dadd(104.978, 86.987, 26.115, 1.002)
pt3dadd(104.869, 87.017, 26.148, 1.016)
pt3dadd(104.759, 87.048, 26.18, 1.03)
pt3dadd(104.65, 87.078, 26.212, 1.044)
pt3dadd(104.54, 87.108, 26.245, 1.058)
pt3dadd(104.431, 87.138, 26.277, 1.074)
pt3dadd(104.321, 87.168, 26.309, 1.088)
pt3dadd(104.212, 87.198, 26.342, 1.102)
pt3dadd(104.102, 87.228, 26.374, 1.116)
pt3dadd(103.993, 87.258, 26.406, 1.13)
pt3dadd(103.885, 87.289, 26.442, 1.13)
pt3dadd(103.778, 87.32, 26.478, 1.13)
pt3dadd(103.67, 87.351, 26.514, 1.13)
pt3dadd(103.562, 87.382, 26.55, 1.13)
pt3dadd(103.455, 87.413, 26.586, 1.13)
pt3dadd(103.347, 87.444, 26.622, 1.13)
pt3dadd(103.24, 87.475, 26.658, 1.13)
pt3dadd(103.132, 87.506, 26.694, 1.13)
pt3dadd(103.024, 87.537, 26.73, 1.13)
pt3dadd(102.917, 87.568, 26.766, 1.13)
}
dend_7[4] {pt3dclear()
pt3dadd(102.917, 87.568, 26.766, 1.13)
pt3dadd(102.878, 87.591, 26.774, 1.112)
pt3dadd(102.777, 87.651, 26.795, 1.062)
pt3dadd(102.676, 87.711, 26.816, 1.014)
pt3dadd(102.575, 87.772, 26.837, 0.966)
pt3dadd(102.475, 87.832, 26.858, 0.916)
pt3dadd(102.374, 87.892, 26.878, 0.868)
pt3dadd(102.273, 87.952, 26.899, 0.82)
pt3dadd(102.172, 88.013, 26.92, 0.77)
pt3dadd(102.072, 88.073, 26.941, 0.722)
pt3dadd(101.971, 88.133, 26.962, 0.674)
pt3dadd(101.87, 88.193, 26.983, 0.624)
pt3dadd(101.769, 88.253, 27.004, 0.576)
pt3dadd(101.668, 88.313, 27.024, 0.528)
pt3dadd(101.568, 88.373, 27.045, 0.478)
pt3dadd(101.467, 88.433, 27.066, 0.43)
pt3dadd(101.366, 88.494, 27.087, 0.382)
pt3dadd(101.265, 88.554, 27.108, 0.334)
pt3dadd(101.164, 88.614, 27.129, 0.284)
pt3dadd(101.061, 88.671, 27.147, 0.248)
pt3dadd(100.951, 88.715, 27.158, 0.26)
pt3dadd(100.84, 88.759, 27.169, 0.27)
pt3dadd(100.729, 88.804, 27.18, 0.282)
pt3dadd(100.619, 88.848, 27.191, 0.292)
pt3dadd(100.508, 88.893, 27.202, 0.302)
pt3dadd(100.397, 88.937, 27.213, 0.314)
pt3dadd(100.287, 88.981, 27.224, 0.324)
pt3dadd(100.176, 89.026, 27.235, 0.336)
pt3dadd(100.065, 89.07, 27.246, 0.346)
pt3dadd(99.955, 89.116, 27.257, 0.358)
pt3dadd(99.846, 89.164, 27.264, 0.37)
pt3dadd(99.736, 89.212, 27.272, 0.384)
pt3dadd(99.627, 89.261, 27.28, 0.396)
pt3dadd(99.517, 89.309, 27.288, 0.41)
pt3dadd(99.408, 89.358, 27.296, 0.424)
pt3dadd(99.299, 89.406, 27.304, 0.436)
pt3dadd(99.189, 89.455, 27.312, 0.45)
pt3dadd(99.08, 89.503, 27.32, 0.462)
pt3dadd(98.97, 89.551, 27.328, 0.476)
pt3dadd(98.862, 89.603, 27.333, 0.488)
pt3dadd(98.759, 89.664, 27.334, 0.502)
pt3dadd(98.655, 89.724, 27.335, 0.514)
pt3dadd(98.552, 89.785, 27.335, 0.526)
pt3dadd(98.448, 89.845, 27.336, 0.54)
pt3dadd(98.345, 89.906, 27.336, 0.552)
pt3dadd(98.241, 89.967, 27.337, 0.564)
pt3dadd(98.138, 90.027, 27.337, 0.576)
pt3dadd(98.034, 90.088, 27.338, 0.588)
pt3dadd(97.93, 90.148, 27.338, 0.602)
pt3dadd(97.826, 90.207, 27.339, 0.618)
pt3dadd(97.718, 90.259, 27.34, 0.642)
pt3dadd(97.61, 90.311, 27.341, 0.668)
pt3dadd(97.502, 90.364, 27.342, 0.694)
pt3dadd(97.394, 90.416, 27.343, 0.72)
pt3dadd(97.286, 90.468, 27.344, 0.746)
pt3dadd(97.178, 90.52, 27.345, 0.77)
pt3dadd(97.07, 90.573, 27.345, 0.796)
pt3dadd(96.962, 90.625, 27.346, 0.822)
pt3dadd(96.854, 90.677, 27.347, 0.848)
pt3dadd(96.744, 90.726, 27.348, 0.878)
pt3dadd(96.632, 90.768, 27.349, 0.918)
pt3dadd(96.519, 90.81, 27.351, 0.96)
pt3dadd(96.407, 90.852, 27.352, 1)
pt3dadd(96.294, 90.894, 27.354, 1.04)
pt3dadd(96.182, 90.935, 27.355, 1.082)
pt3dadd(96.069, 90.977, 27.356, 1.122)
pt3dadd(95.957, 91.019, 27.358, 1.162)
pt3dadd(95.844, 91.061, 27.359, 1.204)
pt3dadd(95.732, 91.102, 27.36, 1.244)
pt3dadd(95.621, 91.148, 27.362, 1.264)
pt3dadd(95.513, 91.201, 27.364, 1.23)
pt3dadd(95.406, 91.254, 27.367, 1.198)
pt3dadd(95.298, 91.307, 27.369, 1.166)
pt3dadd(95.191, 91.36, 27.371, 1.134)
pt3dadd(95.083, 91.414, 27.373, 1.102)
pt3dadd(94.976, 91.467, 27.376, 1.068)
pt3dadd(94.868, 91.52, 27.378, 1.036)
pt3dadd(94.761, 91.573, 27.38, 1.004)
pt3dadd(94.653, 91.627, 27.382, 0.972)
}
}
proc shape3d_123() {
dend_7[4] { pt3dadd(94.546, 91.68, 27.385, 0.934)
pt3dadd(94.44, 91.736, 27.388, 0.884)
pt3dadd(94.333, 91.791, 27.39, 0.836)
pt3dadd(94.227, 91.847, 27.393, 0.786)
pt3dadd(94.121, 91.903, 27.395, 0.738)
pt3dadd(94.014, 91.958, 27.398, 0.688)
pt3dadd(93.908, 92.014, 27.401, 0.64)
pt3dadd(93.802, 92.069, 27.403, 0.59)
pt3dadd(93.695, 92.125, 27.406, 0.542)
pt3dadd(93.589, 92.18, 27.409, 0.492)
pt3dadd(93.48, 92.228, 27.413, 0.468)
pt3dadd(93.365, 92.261, 27.419, 0.496)
pt3dadd(93.249, 92.293, 27.426, 0.524)
pt3dadd(93.134, 92.326, 27.433, 0.552)
pt3dadd(93.019, 92.359, 27.44, 0.58)
pt3dadd(92.904, 92.391, 27.446, 0.608)
pt3dadd(92.789, 92.424, 27.453, 0.636)
pt3dadd(92.673, 92.457, 27.46, 0.664)
pt3dadd(92.558, 92.489, 27.467, 0.692)
pt3dadd(92.443, 92.522, 27.473, 0.718)
pt3dadd(92.328, 92.553, 27.481, 0.742)
pt3dadd(92.212, 92.582, 27.489, 0.752)
pt3dadd(92.096, 92.611, 27.498, 0.764)
pt3dadd(91.98, 92.64, 27.507, 0.774)
pt3dadd(91.864, 92.669, 27.515, 0.786)
pt3dadd(91.748, 92.698, 27.524, 0.796)
pt3dadd(91.632, 92.727, 27.532, 0.808)
pt3dadd(91.516, 92.756, 27.541, 0.818)
pt3dadd(91.4, 92.785, 27.55, 0.828)
pt3dadd(91.284, 92.814, 27.558, 0.84)
pt3dadd(91.167, 92.841, 27.568, 0.842)
pt3dadd(91.05, 92.864, 27.579, 0.828)
pt3dadd(90.933, 92.887, 27.59, 0.814)
pt3dadd(90.816, 92.911, 27.602, 0.8)
pt3dadd(90.7, 92.934, 27.613, 0.786)
pt3dadd(90.583, 92.957, 27.625, 0.772)
pt3dadd(90.466, 92.981, 27.636, 0.758)
pt3dadd(90.349, 93.004, 27.647, 0.744)
pt3dadd(90.232, 93.027, 27.658, 0.73)
pt3dadd(90.115, 93.05, 27.67, 0.716)
pt3dadd(90, 93.072, 27.688, 0.702)
pt3dadd(89.887, 93.09, 27.72, 0.688)
pt3dadd(89.775, 93.108, 27.752, 0.674)
pt3dadd(89.663, 93.127, 27.783, 0.662)
pt3dadd(89.55, 93.145, 27.815, 0.648)
pt3dadd(89.438, 93.163, 27.847, 0.634)
pt3dadd(89.326, 93.181, 27.879, 0.62)
pt3dadd(89.214, 93.2, 27.911, 0.608)
pt3dadd(89.101, 93.218, 27.943, 0.594)
pt3dadd(88.989, 93.236, 27.975, 0.58)
pt3dadd(88.878, 93.255, 28.008, 0.566)
pt3dadd(88.767, 93.276, 28.044, 0.554)
pt3dadd(88.657, 93.296, 28.079, 0.54)
pt3dadd(88.547, 93.317, 28.114, 0.526)
pt3dadd(88.436, 93.337, 28.15, 0.514)
pt3dadd(88.326, 93.358, 28.186, 0.5)
pt3dadd(88.216, 93.378, 28.221, 0.486)
pt3dadd(88.105, 93.399, 28.256, 0.474)
pt3dadd(87.995, 93.419, 28.292, 0.46)
pt3dadd(87.885, 93.44, 28.327, 0.446)
pt3dadd(87.777, 93.473, 28.357, 0.434)
pt3dadd(87.671, 93.525, 28.378, 0.422)
pt3dadd(87.566, 93.576, 28.4, 0.408)
pt3dadd(87.461, 93.627, 28.422, 0.396)
pt3dadd(87.356, 93.679, 28.444, 0.384)
pt3dadd(87.25, 93.73, 28.465, 0.37)
pt3dadd(87.145, 93.782, 28.487, 0.358)
pt3dadd(87.04, 93.833, 28.509, 0.344)
pt3dadd(86.934, 93.884, 28.53, 0.332)
pt3dadd(86.829, 93.936, 28.552, 0.32)
pt3dadd(86.723, 93.986, 28.572, 0.31)
pt3dadd(86.616, 94.035, 28.59, 0.306)
pt3dadd(86.508, 94.085, 28.608, 0.302)
pt3dadd(86.401, 94.134, 28.626, 0.298)
pt3dadd(86.294, 94.183, 28.644, 0.294)
pt3dadd(86.187, 94.232, 28.662, 0.288)
pt3dadd(86.079, 94.281, 28.681, 0.284)
pt3dadd(85.972, 94.331, 28.699, 0.28)
pt3dadd(85.865, 94.38, 28.717, 0.276)
pt3dadd(85.757, 94.429, 28.735, 0.272)
pt3dadd(85.648, 94.476, 28.749, 0.276)
pt3dadd(85.538, 94.52, 28.76, 0.288)
pt3dadd(85.427, 94.564, 28.77, 0.302)
pt3dadd(85.316, 94.608, 28.78, 0.316)
pt3dadd(85.205, 94.653, 28.79, 0.328)
pt3dadd(85.094, 94.697, 28.801, 0.342)
pt3dadd(84.983, 94.741, 28.811, 0.356)
pt3dadd(84.872, 94.785, 28.821, 0.368)
pt3dadd(84.761, 94.829, 28.832, 0.382)
pt3dadd(84.65, 94.873, 28.842, 0.396)
pt3dadd(84.542, 94.923, 28.849, 0.412)
pt3dadd(84.435, 94.978, 28.853, 0.434)
pt3dadd(84.329, 95.033, 28.857, 0.454)
pt3dadd(84.222, 95.088, 28.861, 0.474)
pt3dadd(84.116, 95.144, 28.864, 0.494)
pt3dadd(84.01, 95.199, 28.868, 0.516)
pt3dadd(83.903, 95.254, 28.872, 0.536)
pt3dadd(83.797, 95.31, 28.876, 0.558)
pt3dadd(83.69, 95.365, 28.88, 0.578)
pt3dadd(83.584, 95.42, 28.884, 0.598)
pt3dadd(83.479, 95.479, 28.886, 0.622)
pt3dadd(83.376, 95.54, 28.886, 0.646)
pt3dadd(83.273, 95.602, 28.886, 0.67)
pt3dadd(83.17, 95.663, 28.886, 0.696)
pt3dadd(83.067, 95.724, 28.886, 0.72)
pt3dadd(82.964, 95.786, 28.886, 0.746)
pt3dadd(82.861, 95.847, 28.886, 0.77)
pt3dadd(82.758, 95.909, 28.886, 0.796)
pt3dadd(82.655, 95.97, 28.886, 0.82)
pt3dadd(82.552, 96.032, 28.886, 0.846)
pt3dadd(82.445, 96.086, 28.886, 0.86)
pt3dadd(82.335, 96.133, 28.886, 0.864)
pt3dadd(82.224, 96.18, 28.887, 0.87)
pt3dadd(82.114, 96.228, 28.887, 0.874)
pt3dadd(82.004, 96.275, 28.887, 0.878)
pt3dadd(81.893, 96.322, 28.887, 0.882)
pt3dadd(81.783, 96.369, 28.887, 0.888)
pt3dadd(81.673, 96.417, 28.887, 0.892)
pt3dadd(81.562, 96.464, 28.887, 0.896)
pt3dadd(81.452, 96.511, 28.887, 0.902)
pt3dadd(81.342, 96.558, 28.888, 0.902)
pt3dadd(81.231, 96.604, 28.888, 0.898)
pt3dadd(81.12, 96.65, 28.888, 0.896)
pt3dadd(81.009, 96.696, 28.888, 0.892)
pt3dadd(80.898, 96.742, 28.888, 0.888)
pt3dadd(80.788, 96.788, 28.888, 0.886)
pt3dadd(80.677, 96.834, 28.888, 0.882)
pt3dadd(80.566, 96.881, 28.889, 0.878)
pt3dadd(80.455, 96.927, 28.889, 0.874)
pt3dadd(80.345, 96.973, 28.889, 0.872)
pt3dadd(80.238, 97.026, 28.889, 0.856)
pt3dadd(80.134, 97.087, 28.889, 0.832)
pt3dadd(80.03, 97.147, 28.89, 0.806)
pt3dadd(79.926, 97.208, 28.89, 0.782)
pt3dadd(79.823, 97.268, 28.89, 0.756)
pt3dadd(79.719, 97.328, 28.89, 0.732)
pt3dadd(79.615, 97.389, 28.891, 0.706)
pt3dadd(79.512, 97.449, 28.891, 0.682)
pt3dadd(79.408, 97.509, 28.891, 0.656)
pt3dadd(79.304, 97.57, 28.891, 0.632)
pt3dadd(79.199, 97.627, 28.892, 0.61)
pt3dadd(79.092, 97.681, 28.892, 0.594)
pt3dadd(78.984, 97.735, 28.892, 0.578)
pt3dadd(78.877, 97.79, 28.893, 0.56)
pt3dadd(78.77, 97.844, 28.893, 0.544)
pt3dadd(78.663, 97.898, 28.894, 0.526)
pt3dadd(78.556, 97.952, 28.894, 0.51)
pt3dadd(78.449, 98.006, 28.894, 0.492)
pt3dadd(78.342, 98.061, 28.895, 0.476)
pt3dadd(78.235, 98.115, 28.895, 0.46)
pt3dadd(78.125, 98.162, 28.895, 0.452)
pt3dadd(78.012, 98.203, 28.896, 0.452)
pt3dadd(77.899, 98.244, 28.897, 0.452)
pt3dadd(77.787, 98.285, 28.897, 0.452)
pt3dadd(77.674, 98.326, 28.898, 0.452)
pt3dadd(77.561, 98.367, 28.898, 0.452)
pt3dadd(77.448, 98.408, 28.899, 0.452)
pt3dadd(77.336, 98.449, 28.9, 0.452)
pt3dadd(77.223, 98.49, 28.9, 0.452)
pt3dadd(77.11, 98.531, 28.901, 0.452)
pt3dadd(76.999, 98.577, 28.902, 0.448)
pt3dadd(76.89, 98.628, 28.903, 0.438)
pt3dadd(76.782, 98.678, 28.904, 0.43)
pt3dadd(76.673, 98.728, 28.905, 0.422)
pt3dadd(76.564, 98.779, 28.906, 0.412)
pt3dadd(76.455, 98.829, 28.907, 0.404)
pt3dadd(76.346, 98.879, 28.908, 0.396)
pt3dadd(76.237, 98.93, 28.909, 0.386)
pt3dadd(76.128, 98.98, 28.91, 0.378)
pt3dadd(76.019, 99.03, 28.911, 0.37)
pt3dadd(75.911, 99.083, 28.912, 0.358)
pt3dadd(75.805, 99.138, 28.914, 0.346)
pt3dadd(75.698, 99.193, 28.915, 0.332)
pt3dadd(75.591, 99.248, 28.916, 0.32)
pt3dadd(75.484, 99.302, 28.917, 0.308)
pt3dadd(75.378, 99.357, 28.919, 0.294)
pt3dadd(75.271, 99.412, 28.92, 0.282)
pt3dadd(75.164, 99.467, 28.921, 0.268)
pt3dadd(75.057, 99.521, 28.923, 0.256)
pt3dadd(74.951, 99.576, 28.924, 0.242)
pt3dadd(74.838, 99.617, 28.926, 0.236)
pt3dadd(74.723, 99.649, 28.929, 0.236)
pt3dadd(74.607, 99.68, 28.931, 0.234)
pt3dadd(74.491, 99.711, 28.934, 0.234)
pt3dadd(74.375, 99.743, 28.936, 0.232)
pt3dadd(74.26, 99.774, 28.939, 0.23)
pt3dadd(74.144, 99.805, 28.942, 0.23)
pt3dadd(74.028, 99.837, 28.944, 0.228)
pt3dadd(73.912, 99.868, 28.947, 0.228)
pt3dadd(73.796, 99.9, 28.95, 0.226)
pt3dadd(73.68, 99.927, 28.953, 0.228)
pt3dadd(73.562, 99.951, 28.957, 0.234)
pt3dadd(73.445, 99.976, 28.961, 0.238)
pt3dadd(73.328, 100, 28.965, 0.242)
pt3dadd(73.21, 100.025, 28.97, 0.246)
pt3dadd(73.093, 100.05, 28.974, 0.25)
pt3dadd(72.975, 100.074, 28.978, 0.254)
pt3dadd(72.858, 100.099, 28.982, 0.258)
pt3dadd(72.741, 100.123, 28.986, 0.264)
pt3dadd(72.623, 100.148, 28.99, 0.268)
}
}
proc shape3d_124() {
dend_7[4] { pt3dadd(72.505, 100.166, 28.996, 0.278)
pt3dadd(72.386, 100.179, 29.003, 0.292)
pt3dadd(72.267, 100.193, 29.01, 0.308)
pt3dadd(72.148, 100.207, 29.017, 0.322)
pt3dadd(72.03, 100.221, 29.024, 0.336)
pt3dadd(71.911, 100.235, 29.031, 0.35)
pt3dadd(71.792, 100.249, 29.038, 0.364)
pt3dadd(71.673, 100.263, 29.045, 0.378)
pt3dadd(71.554, 100.277, 29.052, 0.394)
pt3dadd(71.435, 100.291, 29.059, 0.408)
pt3dadd(71.316, 100.299, 29.068, 0.434)
pt3dadd(71.197, 100.304, 29.078, 0.47)
pt3dadd(71.077, 100.309, 29.089, 0.506)
pt3dadd(70.958, 100.314, 29.099, 0.54)
pt3dadd(70.839, 100.319, 29.109, 0.576)
pt3dadd(70.72, 100.324, 29.12, 0.612)
pt3dadd(70.6, 100.329, 29.13, 0.646)
pt3dadd(70.481, 100.334, 29.14, 0.682)
pt3dadd(70.362, 100.339, 29.151, 0.718)
pt3dadd(70.243, 100.344, 29.161, 0.752)
pt3dadd(70.124, 100.348, 29.175, 0.784)
pt3dadd(70.005, 100.35, 29.191, 0.812)
pt3dadd(69.887, 100.351, 29.206, 0.84)
pt3dadd(69.768, 100.353, 29.222, 0.868)
pt3dadd(69.65, 100.355, 29.237, 0.896)
pt3dadd(69.531, 100.357, 29.253, 0.924)
pt3dadd(69.413, 100.359, 29.269, 0.952)
pt3dadd(69.294, 100.361, 29.285, 0.982)
pt3dadd(69.176, 100.363, 29.3, 1.01)
pt3dadd(69.057, 100.365, 29.316, 1.038)
pt3dadd(68.944, 100.368, 29.346, 1.01)
pt3dadd(68.832, 100.371, 29.383, 0.956)
pt3dadd(68.721, 100.374, 29.421, 0.902)
pt3dadd(68.61, 100.377, 29.458, 0.85)
pt3dadd(68.499, 100.381, 29.495, 0.796)
pt3dadd(68.387, 100.384, 29.533, 0.742)
pt3dadd(68.276, 100.387, 29.57, 0.688)
pt3dadd(68.165, 100.39, 29.607, 0.634)
pt3dadd(68.053, 100.394, 29.645, 0.58)
pt3dadd(67.942, 100.397, 29.682, 0.526)
pt3dadd(67.829, 100.402, 29.715, 0.49)
pt3dadd(67.715, 100.407, 29.746, 0.462)
pt3dadd(67.601, 100.413, 29.777, 0.434)
pt3dadd(67.487, 100.418, 29.808, 0.404)
pt3dadd(67.373, 100.424, 29.839, 0.376)
pt3dadd(67.26, 100.429, 29.871, 0.348)
pt3dadd(67.146, 100.435, 29.902, 0.32)
pt3dadd(67.032, 100.44, 29.933, 0.292)
pt3dadd(66.918, 100.446, 29.964, 0.262)
pt3dadd(66.804, 100.452, 29.995, 0.234)
pt3dadd(66.688, 100.459, 30.021, 0.226)
pt3dadd(66.572, 100.467, 30.046, 0.226)
pt3dadd(66.456, 100.475, 30.07, 0.226)
pt3dadd(66.34, 100.483, 30.094, 0.226)
pt3dadd(66.224, 100.492, 30.118, 0.226)
pt3dadd(66.108, 100.5, 30.142, 0.226)
pt3dadd(65.991, 100.508, 30.166, 0.226)
pt3dadd(65.875, 100.516, 30.191, 0.226)
pt3dadd(65.759, 100.524, 30.215, 0.226)
pt3dadd(65.643, 100.532, 30.239, 0.226)
pt3dadd(65.525, 100.544, 30.255, 0.234)
pt3dadd(65.407, 100.557, 30.269, 0.248)
pt3dadd(65.289, 100.57, 30.282, 0.26)
pt3dadd(65.171, 100.583, 30.295, 0.272)
pt3dadd(65.053, 100.596, 30.309, 0.284)
pt3dadd(64.934, 100.61, 30.322, 0.296)
pt3dadd(64.816, 100.623, 30.335, 0.308)
pt3dadd(64.698, 100.636, 30.349, 0.32)
pt3dadd(64.58, 100.649, 30.362, 0.332)
pt3dadd(64.462, 100.662, 30.375, 0.346)
pt3dadd(64.344, 100.682, 30.385, 0.358)
pt3dadd(64.227, 100.704, 30.394, 0.372)
pt3dadd(64.109, 100.727, 30.403, 0.386)
pt3dadd(63.992, 100.75, 30.412, 0.402)
pt3dadd(63.874, 100.772, 30.42, 0.416)
pt3dadd(63.757, 100.795, 30.429, 0.43)
pt3dadd(63.64, 100.818, 30.438, 0.444)
pt3dadd(63.522, 100.84, 30.447, 0.458)
pt3dadd(63.405, 100.863, 30.455, 0.472)
pt3dadd(63.288, 100.885, 30.464, 0.486)
pt3dadd(63.175, 100.926, 30.467, 0.5)
pt3dadd(63.064, 100.97, 30.468, 0.514)
pt3dadd(62.952, 101.015, 30.469, 0.526)
pt3dadd(62.841, 101.06, 30.47, 0.54)
pt3dadd(62.73, 101.104, 30.472, 0.554)
pt3dadd(62.618, 101.149, 30.473, 0.568)
pt3dadd(62.507, 101.194, 30.474, 0.58)
pt3dadd(62.395, 101.238, 30.475, 0.594)
pt3dadd(62.284, 101.283, 30.476, 0.608)
pt3dadd(62.173, 101.328, 30.478, 0.62)
pt3dadd(62.059, 101.365, 30.479, 0.614)
pt3dadd(61.944, 101.4, 30.481, 0.604)
pt3dadd(61.829, 101.435, 30.483, 0.592)
pt3dadd(61.715, 101.471, 30.485, 0.58)
pt3dadd(61.6, 101.506, 30.487, 0.57)
pt3dadd(61.485, 101.542, 30.489, 0.558)
pt3dadd(61.371, 101.577, 30.491, 0.546)
pt3dadd(61.256, 101.612, 30.493, 0.536)
pt3dadd(61.141, 101.648, 30.495, 0.524)
pt3dadd(61.027, 101.683, 30.497, 0.514)
pt3dadd(60.911, 101.713, 30.499, 0.488)
pt3dadd(60.794, 101.742, 30.502, 0.46)
pt3dadd(60.678, 101.771, 30.504, 0.432)
pt3dadd(60.561, 101.8, 30.507, 0.404)
pt3dadd(60.445, 101.829, 30.509, 0.376)
pt3dadd(60.329, 101.858, 30.512, 0.348)
pt3dadd(60.212, 101.887, 30.514, 0.32)
pt3dadd(60.096, 101.916, 30.517, 0.292)
pt3dadd(59.979, 101.944, 30.519, 0.264)
pt3dadd(59.863, 101.973, 30.522, 0.236)
pt3dadd(59.744, 101.99, 30.527, 0.242)
pt3dadd(59.625, 102.004, 30.534, 0.256)
pt3dadd(59.506, 102.018, 30.54, 0.27)
pt3dadd(59.388, 102.032, 30.546, 0.282)
pt3dadd(59.269, 102.046, 30.552, 0.296)
pt3dadd(59.15, 102.059, 30.559, 0.31)
pt3dadd(59.031, 102.073, 30.565, 0.324)
pt3dadd(58.912, 102.087, 30.571, 0.338)
pt3dadd(58.793, 102.101, 30.578, 0.352)
pt3dadd(58.674, 102.115, 30.584, 0.364)
pt3dadd(58.554, 102.125, 30.592, 0.38)
pt3dadd(58.435, 102.133, 30.6, 0.394)
pt3dadd(58.316, 102.141, 30.608, 0.408)
pt3dadd(58.197, 102.15, 30.615, 0.422)
pt3dadd(58.077, 102.158, 30.623, 0.436)
pt3dadd(57.958, 102.167, 30.631, 0.452)
pt3dadd(57.839, 102.175, 30.639, 0.466)
pt3dadd(57.719, 102.183, 30.647, 0.48)
pt3dadd(57.6, 102.192, 30.655, 0.494)
pt3dadd(57.481, 102.2, 30.663, 0.508)
pt3dadd(57.361, 102.202, 30.673, 0.524)
pt3dadd(57.242, 102.203, 30.683, 0.538)
pt3dadd(57.123, 102.204, 30.693, 0.552)
pt3dadd(57.003, 102.205, 30.703, 0.566)
pt3dadd(56.884, 102.206, 30.714, 0.58)
pt3dadd(56.764, 102.207, 30.724, 0.596)
pt3dadd(56.645, 102.208, 30.734, 0.61)
pt3dadd(56.526, 102.209, 30.744, 0.624)
pt3dadd(56.406, 102.21, 30.754, 0.638)
pt3dadd(56.287, 102.211, 30.764, 0.652)
pt3dadd(56.172, 102.213, 30.792, 0.656)
pt3dadd(56.058, 102.215, 30.823, 0.66)
pt3dadd(55.944, 102.216, 30.854, 0.662)
pt3dadd(55.83, 102.218, 30.885, 0.664)
pt3dadd(55.716, 102.22, 30.916, 0.666)
pt3dadd(55.602, 102.222, 30.947, 0.668)
pt3dadd(55.488, 102.224, 30.978, 0.67)
pt3dadd(55.374, 102.225, 31.01, 0.674)
pt3dadd(55.26, 102.227, 31.041, 0.676)
pt3dadd(55.145, 102.229, 31.071, 0.678)
pt3dadd(55.032, 102.231, 31.103, 0.678)
pt3dadd(54.918, 102.234, 31.135, 0.678)
pt3dadd(54.804, 102.236, 31.167, 0.678)
pt3dadd(54.691, 102.238, 31.199, 0.678)
pt3dadd(54.577, 102.24, 31.231, 0.678)
pt3dadd(54.463, 102.243, 31.263, 0.678)
pt3dadd(54.349, 102.245, 31.295, 0.678)
pt3dadd(54.236, 102.247, 31.327, 0.678)
pt3dadd(54.122, 102.249, 31.359, 0.678)
pt3dadd(54.008, 102.252, 31.391, 0.678)
pt3dadd(53.891, 102.256, 31.409, 0.678)
pt3dadd(53.773, 102.26, 31.427, 0.678)
pt3dadd(53.655, 102.264, 31.444, 0.678)
pt3dadd(53.536, 102.268, 31.462, 0.678)
pt3dadd(53.418, 102.273, 31.479, 0.678)
pt3dadd(53.3, 102.277, 31.496, 0.678)
pt3dadd(53.182, 102.281, 31.514, 0.678)
pt3dadd(53.064, 102.285, 31.531, 0.678)
pt3dadd(52.946, 102.289, 31.549, 0.678)
pt3dadd(52.828, 102.294, 31.566, 0.678)
pt3dadd(52.709, 102.301, 31.574, 0.662)
pt3dadd(52.589, 102.309, 31.581, 0.646)
pt3dadd(52.47, 102.316, 31.588, 0.628)
pt3dadd(52.35, 102.324, 31.595, 0.612)
pt3dadd(52.231, 102.331, 31.602, 0.594)
pt3dadd(52.111, 102.339, 31.609, 0.578)
pt3dadd(51.992, 102.346, 31.616, 0.56)
pt3dadd(51.872, 102.354, 31.623, 0.544)
pt3dadd(51.753, 102.362, 31.629, 0.526)
pt3dadd(51.633, 102.369, 31.636, 0.51)
pt3dadd(51.514, 102.379, 31.636, 0.482)
pt3dadd(51.394, 102.39, 31.634, 0.454)
pt3dadd(51.275, 102.4, 31.633, 0.426)
pt3dadd(51.155, 102.41, 31.632, 0.398)
pt3dadd(51.036, 102.421, 31.631, 0.37)
pt3dadd(50.916, 102.431, 31.629, 0.342)
pt3dadd(50.796, 102.441, 31.628, 0.314)
pt3dadd(50.677, 102.452, 31.627, 0.286)
pt3dadd(50.557, 102.462, 31.626, 0.258)
pt3dadd(50.438, 102.472, 31.624, 0.23)
pt3dadd(50.327, 102.488, 31.589, 0.242)
pt3dadd(50.217, 102.504, 31.552, 0.254)
pt3dadd(50.106, 102.52, 31.516, 0.268)
pt3dadd(49.996, 102.537, 31.479, 0.282)
pt3dadd(49.885, 102.553, 31.442, 0.294)
pt3dadd(49.775, 102.569, 31.405, 0.308)
pt3dadd(49.664, 102.585, 31.369, 0.322)
pt3dadd(49.554, 102.601, 31.332, 0.334)
pt3dadd(49.443, 102.617, 31.295, 0.348)
pt3dadd(49.333, 102.633, 31.259, 0.362)
}
}
proc shape3d_125() {
dend_7[4] { pt3dadd(49.223, 102.66, 31.226, 0.378)
pt3dadd(49.112, 102.687, 31.194, 0.396)
pt3dadd(49.002, 102.714, 31.162, 0.414)
pt3dadd(48.892, 102.742, 31.13, 0.432)
pt3dadd(48.782, 102.769, 31.097, 0.448)
pt3dadd(48.671, 102.796, 31.065, 0.466)
pt3dadd(48.561, 102.824, 31.033, 0.484)
pt3dadd(48.451, 102.851, 31.001, 0.502)
pt3dadd(48.34, 102.878, 30.969, 0.518)
pt3dadd(48.231, 102.908, 30.937, 0.536)
pt3dadd(48.124, 102.957, 30.916, 0.562)
pt3dadd(48.018, 103.007, 30.894, 0.588)
pt3dadd(47.913, 103.057, 30.873, 0.614)
pt3dadd(47.806, 103.107, 30.851, 0.64)
pt3dadd(47.7, 103.157, 30.83, 0.664)
pt3dadd(47.594, 103.207, 30.808, 0.69)
pt3dadd(47.488, 103.257, 30.786, 0.716)
pt3dadd(47.382, 103.307, 30.765, 0.742)
pt3dadd(47.276, 103.357, 30.743, 0.768)
pt3dadd(47.17, 103.407, 30.722, 0.792)
pt3dadd(47.06, 103.452, 30.707, 0.812)
pt3dadd(46.951, 103.497, 30.692, 0.83)
pt3dadd(46.841, 103.542, 30.677, 0.848)
pt3dadd(46.731, 103.587, 30.662, 0.868)
pt3dadd(46.622, 103.632, 30.647, 0.886)
pt3dadd(46.512, 103.677, 30.632, 0.906)
pt3dadd(46.402, 103.722, 30.617, 0.924)
pt3dadd(46.292, 103.767, 30.602, 0.944)
pt3dadd(46.183, 103.813, 30.587, 0.962)
pt3dadd(46.073, 103.857, 30.573, 0.98)
pt3dadd(45.96, 103.898, 30.563, 0.994)
pt3dadd(45.848, 103.939, 30.553, 1.008)
pt3dadd(45.736, 103.98, 30.543, 1.022)
pt3dadd(45.624, 104.021, 30.533, 1.034)
pt3dadd(45.512, 104.062, 30.524, 1.048)
pt3dadd(45.399, 104.103, 30.514, 1.062)
pt3dadd(45.287, 104.144, 30.504, 1.076)
pt3dadd(45.175, 104.185, 30.494, 1.09)
pt3dadd(45.063, 104.226, 30.484, 1.102)
pt3dadd(44.951, 104.268, 30.476, 1.114)
pt3dadd(44.844, 104.321, 30.476, 1.104)
pt3dadd(44.736, 104.375, 30.476, 1.094)
pt3dadd(44.629, 104.428, 30.476, 1.084)
pt3dadd(44.522, 104.482, 30.476, 1.074)
pt3dadd(44.414, 104.535, 30.476, 1.064)
pt3dadd(44.307, 104.589, 30.476, 1.054)
pt3dadd(44.199, 104.642, 30.476, 1.044)
pt3dadd(44.092, 104.696, 30.476, 1.034)
pt3dadd(43.984, 104.749, 30.476, 1.024)
pt3dadd(43.877, 104.802, 30.476, 1.014)
pt3dadd(43.769, 104.854, 30.477, 0.998)
pt3dadd(43.66, 104.906, 30.479, 0.98)
pt3dadd(43.552, 104.958, 30.48, 0.964)
pt3dadd(43.444, 105.009, 30.482, 0.946)
pt3dadd(43.335, 105.061, 30.483, 0.93)
pt3dadd(43.227, 105.113, 30.485, 0.914)
pt3dadd(43.119, 105.164, 30.486, 0.896)
pt3dadd(43.011, 105.216, 30.488, 0.88)
pt3dadd(42.902, 105.268, 30.489, 0.864)
pt3dadd(42.793, 105.316, 30.491, 0.844)
pt3dadd(42.677, 105.346, 30.494, 0.802)
pt3dadd(42.561, 105.375, 30.497, 0.758)
pt3dadd(42.444, 105.405, 30.499, 0.716)
pt3dadd(42.328, 105.434, 30.502, 0.674)
pt3dadd(42.212, 105.464, 30.505, 0.632)
pt3dadd(42.095, 105.493, 30.508, 0.59)
pt3dadd(41.979, 105.523, 30.511, 0.548)
pt3dadd(41.863, 105.552, 30.513, 0.506)
pt3dadd(41.747, 105.582, 30.516, 0.464)
pt3dadd(41.63, 105.61, 30.519, 0.426)
pt3dadd(41.512, 105.633, 30.524, 0.406)
pt3dadd(41.395, 105.655, 30.529, 0.384)
pt3dadd(41.277, 105.677, 30.534, 0.364)
pt3dadd(41.159, 105.699, 30.539, 0.344)
pt3dadd(41.041, 105.721, 30.544, 0.324)
pt3dadd(40.923, 105.743, 30.549, 0.304)
pt3dadd(40.806, 105.765, 30.554, 0.284)
pt3dadd(40.688, 105.788, 30.559, 0.264)
pt3dadd(40.57, 105.81, 30.564, 0.242)
pt3dadd(40.452, 105.831, 30.57, 0.226)
pt3dadd(40.333, 105.846, 30.577, 0.226)
pt3dadd(40.215, 105.861, 30.584, 0.226)
pt3dadd(40.096, 105.876, 30.591, 0.226)
pt3dadd(39.977, 105.891, 30.598, 0.226)
pt3dadd(39.858, 105.907, 30.605, 0.226)
pt3dadd(39.74, 105.922, 30.612, 0.226)
pt3dadd(39.621, 105.937, 30.619, 0.226)
pt3dadd(39.502, 105.952, 30.626, 0.226)
pt3dadd(39.384, 105.968, 30.633, 0.226)
pt3dadd(39.265, 105.981, 30.641, 0.232)
pt3dadd(39.146, 105.986, 30.652, 0.274)
pt3dadd(39.027, 105.99, 30.664, 0.314)
pt3dadd(38.907, 105.994, 30.675, 0.354)
pt3dadd(38.788, 105.999, 30.686, 0.396)
pt3dadd(38.669, 106.003, 30.698, 0.436)
pt3dadd(38.55, 106.008, 30.709, 0.476)
pt3dadd(38.431, 106.012, 30.721, 0.516)
pt3dadd(38.312, 106.017, 30.732, 0.558)
pt3dadd(38.193, 106.021, 30.743, 0.598)
pt3dadd(38.074, 106.026, 30.757, 0.638)
pt3dadd(37.957, 106.032, 30.778, 0.67)
pt3dadd(37.84, 106.037, 30.799, 0.702)
pt3dadd(37.722, 106.043, 30.821, 0.734)
pt3dadd(37.605, 106.049, 30.842, 0.766)
pt3dadd(37.488, 106.054, 30.863, 0.8)
pt3dadd(37.371, 106.06, 30.884, 0.832)
pt3dadd(37.254, 106.066, 30.906, 0.864)
pt3dadd(37.137, 106.071, 30.927, 0.896)
pt3dadd(37.02, 106.077, 30.948, 0.93)
pt3dadd(36.904, 106.083, 30.974, 0.956)
pt3dadd(36.793, 106.092, 31.011, 0.97)
pt3dadd(36.682, 106.101, 31.048, 0.984)
pt3dadd(36.571, 106.11, 31.086, 0.996)
pt3dadd(36.46, 106.119, 31.123, 1.01)
pt3dadd(36.349, 106.128, 31.161, 1.024)
pt3dadd(36.239, 106.137, 31.198, 1.036)
pt3dadd(36.128, 106.146, 31.235, 1.05)
pt3dadd(36.017, 106.155, 31.273, 1.064)
pt3dadd(35.906, 106.163, 31.31, 1.078)
pt3dadd(35.794, 106.173, 31.345, 1.08)
pt3dadd(35.68, 106.187, 31.373, 1.056)
pt3dadd(35.565, 106.2, 31.402, 1.032)
pt3dadd(35.451, 106.214, 31.431, 1.008)
pt3dadd(35.337, 106.227, 31.459, 0.984)
pt3dadd(35.223, 106.24, 31.488, 0.96)
pt3dadd(35.109, 106.254, 31.517, 0.936)
pt3dadd(34.994, 106.267, 31.545, 0.912)
pt3dadd(34.88, 106.28, 31.574, 0.888)
pt3dadd(34.766, 106.294, 31.602, 0.864)
pt3dadd(34.651, 106.308, 31.63, 0.836)
pt3dadd(34.536, 106.325, 31.653, 0.796)
pt3dadd(34.421, 106.343, 31.677, 0.758)
pt3dadd(34.306, 106.36, 31.701, 0.72)
pt3dadd(34.19, 106.377, 31.724, 0.68)
pt3dadd(34.075, 106.395, 31.748, 0.642)
pt3dadd(33.96, 106.412, 31.772, 0.602)
pt3dadd(33.844, 106.429, 31.795, 0.564)
pt3dadd(33.729, 106.447, 31.819, 0.524)
pt3dadd(33.614, 106.464, 31.843, 0.486)
pt3dadd(33.501, 106.491, 31.863, 0.464)
pt3dadd(33.392, 106.54, 31.874, 0.476)
pt3dadd(33.283, 106.588, 31.886, 0.49)
pt3dadd(33.174, 106.637, 31.897, 0.502)
pt3dadd(33.065, 106.686, 31.909, 0.516)
pt3dadd(32.957, 106.734, 31.92, 0.528)
pt3dadd(32.848, 106.783, 31.931, 0.542)
pt3dadd(32.739, 106.832, 31.943, 0.556)
pt3dadd(32.63, 106.881, 31.954, 0.568)
pt3dadd(32.521, 106.929, 31.966, 0.582)
pt3dadd(32.412, 106.977, 31.976, 0.59)
pt3dadd(32.301, 107.021, 31.985, 0.59)
pt3dadd(32.19, 107.065, 31.993, 0.59)
pt3dadd(32.079, 107.11, 32.002, 0.588)
pt3dadd(31.968, 107.154, 32.011, 0.588)
pt3dadd(31.857, 107.199, 32.019, 0.588)
pt3dadd(31.746, 107.243, 32.028, 0.588)
pt3dadd(31.635, 107.287, 32.036, 0.586)
pt3dadd(31.524, 107.332, 32.045, 0.586)
pt3dadd(31.413, 107.376, 32.053, 0.586)
pt3dadd(31.3, 107.418, 32.06, 0.576)
pt3dadd(31.186, 107.453, 32.063, 0.548)
pt3dadd(31.071, 107.488, 32.066, 0.522)
pt3dadd(30.956, 107.523, 32.069, 0.494)
pt3dadd(30.842, 107.558, 32.072, 0.466)
pt3dadd(30.727, 107.593, 32.074, 0.438)
pt3dadd(30.612, 107.629, 32.077, 0.41)
pt3dadd(30.498, 107.664, 32.08, 0.382)
pt3dadd(30.383, 107.699, 32.083, 0.354)
pt3dadd(30.268, 107.734, 32.086, 0.328)
pt3dadd(30.155, 107.772, 32.09, 0.31)
pt3dadd(30.043, 107.815, 32.095, 0.31)
pt3dadd(29.931, 107.859, 32.101, 0.312)
pt3dadd(29.82, 107.902, 32.106, 0.312)
pt3dadd(29.708, 107.946, 32.112, 0.314)
pt3dadd(29.596, 107.989, 32.118, 0.314)
pt3dadd(29.484, 108.032, 32.123, 0.316)
pt3dadd(29.373, 108.076, 32.129, 0.316)
pt3dadd(29.261, 108.119, 32.134, 0.318)
pt3dadd(29.149, 108.162, 32.14, 0.318)
pt3dadd(29.038, 108.207, 32.146, 0.324)
pt3dadd(28.928, 108.253, 32.153, 0.338)
pt3dadd(28.818, 108.3, 32.16, 0.35)
pt3dadd(28.707, 108.346, 32.166, 0.364)
pt3dadd(28.597, 108.393, 32.173, 0.376)
pt3dadd(28.487, 108.439, 32.18, 0.39)
pt3dadd(28.376, 108.486, 32.187, 0.404)
pt3dadd(28.266, 108.532, 32.194, 0.416)
pt3dadd(28.155, 108.578, 32.2, 0.43)
pt3dadd(28.045, 108.625, 32.207, 0.444)
pt3dadd(27.932, 108.652, 32.216, 0.452)
pt3dadd(27.813, 108.641, 32.228, 0.452)
pt3dadd(27.695, 108.631, 32.24, 0.452)
pt3dadd(27.576, 108.621, 32.252, 0.452)
pt3dadd(27.457, 108.61, 32.264, 0.452)
pt3dadd(27.339, 108.6, 32.277, 0.452)
pt3dadd(27.22, 108.59, 32.289, 0.452)
pt3dadd(27.101, 108.579, 32.301, 0.452)
pt3dadd(26.983, 108.569, 32.313, 0.452)
pt3dadd(26.864, 108.559, 32.325, 0.452)
pt3dadd(26.746, 108.549, 32.341, 0.452)
}
}
proc shape3d_126() {
dend_7[4] { pt3dadd(26.63, 108.542, 32.365, 0.452)
pt3dadd(26.513, 108.535, 32.389, 0.452)
pt3dadd(26.397, 108.528, 32.413, 0.452)
pt3dadd(26.281, 108.521, 32.436, 0.452)
pt3dadd(26.164, 108.514, 32.46, 0.452)
pt3dadd(26.048, 108.507, 32.484, 0.452)
pt3dadd(25.932, 108.499, 32.507, 0.452)
pt3dadd(25.815, 108.492, 32.531, 0.452)
pt3dadd(25.699, 108.485, 32.555, 0.452)
pt3dadd(25.585, 108.48, 32.585, 0.452)
pt3dadd(25.474, 108.477, 32.624, 0.452)
pt3dadd(25.364, 108.474, 32.662, 0.452)
pt3dadd(25.253, 108.471, 32.701, 0.452)
pt3dadd(25.142, 108.468, 32.739, 0.452)
pt3dadd(25.032, 108.465, 32.778, 0.452)
pt3dadd(24.921, 108.463, 32.816, 0.452)
pt3dadd(24.81, 108.46, 32.855, 0.452)
pt3dadd(24.699, 108.457, 32.893, 0.452)
pt3dadd(24.589, 108.454, 32.932, 0.452)
pt3dadd(24.477, 108.462, 32.966, 0.466)
pt3dadd(24.365, 108.485, 32.996, 0.496)
pt3dadd(24.252, 108.508, 33.025, 0.528)
pt3dadd(24.14, 108.531, 33.055, 0.558)
pt3dadd(24.028, 108.554, 33.084, 0.59)
pt3dadd(23.915, 108.576, 33.113, 0.62)
pt3dadd(23.803, 108.599, 33.143, 0.652)
pt3dadd(23.69, 108.622, 33.172, 0.682)
pt3dadd(23.578, 108.645, 33.202, 0.714)
pt3dadd(23.466, 108.667, 33.231, 0.744)
pt3dadd(23.353, 108.694, 33.258, 0.776)
pt3dadd(23.241, 108.725, 33.283, 0.808)
pt3dadd(23.129, 108.756, 33.309, 0.84)
pt3dadd(23.017, 108.787, 33.334, 0.872)
pt3dadd(22.905, 108.817, 33.359, 0.902)
pt3dadd(22.794, 108.848, 33.384, 0.934)
pt3dadd(22.682, 108.879, 33.41, 0.966)
pt3dadd(22.57, 108.909, 33.435, 0.998)
pt3dadd(22.458, 108.94, 33.46, 1.03)
pt3dadd(22.346, 108.971, 33.485, 1.062)
pt3dadd(22.232, 108.999, 33.507, 1.046)
pt3dadd(22.117, 109.025, 33.525, 0.988)
pt3dadd(22.002, 109.051, 33.543, 0.932)
pt3dadd(21.886, 109.076, 33.561, 0.874)
pt3dadd(21.771, 109.102, 33.578, 0.816)
pt3dadd(21.656, 109.128, 33.596, 0.76)
pt3dadd(21.541, 109.154, 33.614, 0.702)
pt3dadd(21.426, 109.18, 33.632, 0.646)
pt3dadd(21.31, 109.205, 33.65, 0.588)
pt3dadd(21.195, 109.231, 33.668, 0.532)
pt3dadd(21.079, 109.251, 33.685, 0.49)
pt3dadd(20.961, 109.267, 33.7, 0.462)
pt3dadd(20.843, 109.282, 33.715, 0.434)
pt3dadd(20.726, 109.297, 33.73, 0.406)
pt3dadd(20.608, 109.313, 33.745, 0.378)
pt3dadd(20.49, 109.328, 33.76, 0.35)
pt3dadd(20.373, 109.343, 33.776, 0.322)
pt3dadd(20.255, 109.359, 33.791, 0.294)
pt3dadd(20.138, 109.374, 33.806, 0.266)
pt3dadd(20.02, 109.389, 33.821, 0.238)
pt3dadd(19.902, 109.398, 33.835, 0.226)
pt3dadd(19.783, 109.402, 33.849, 0.228)
pt3dadd(19.664, 109.407, 33.863, 0.23)
pt3dadd(19.545, 109.411, 33.877, 0.232)
pt3dadd(19.427, 109.415, 33.891, 0.232)
pt3dadd(19.308, 109.42, 33.905, 0.234)
pt3dadd(19.189, 109.424, 33.919, 0.236)
pt3dadd(19.07, 109.428, 33.933, 0.238)
pt3dadd(18.952, 109.433, 33.946, 0.238)
pt3dadd(18.833, 109.437, 33.96, 0.24)
pt3dadd(18.72, 109.43, 33.991, 0.258)
pt3dadd(18.612, 109.416, 34.032, 0.288)
pt3dadd(18.503, 109.402, 34.073, 0.318)
pt3dadd(18.395, 109.387, 34.114, 0.348)
pt3dadd(18.286, 109.373, 34.155, 0.378)
pt3dadd(18.178, 109.359, 34.196, 0.406)
pt3dadd(18.069, 109.344, 34.237, 0.436)
pt3dadd(17.961, 109.33, 34.278, 0.466)
pt3dadd(17.852, 109.316, 34.319, 0.496)
pt3dadd(17.744, 109.302, 34.36, 0.526)
pt3dadd(17.638, 109.271, 34.399, 0.546)
pt3dadd(17.535, 109.23, 34.436, 0.56)
pt3dadd(17.432, 109.189, 34.474, 0.574)
pt3dadd(17.328, 109.148, 34.511, 0.59)
pt3dadd(17.225, 109.107, 34.548, 0.604)
pt3dadd(17.121, 109.066, 34.586, 0.618)
pt3dadd(17.018, 109.025, 34.623, 0.632)
pt3dadd(16.914, 108.984, 34.661, 0.646)
pt3dadd(16.811, 108.943, 34.698, 0.662)
pt3dadd(16.707, 108.902, 34.736, 0.676)
pt3dadd(16.605, 108.849, 34.764, 0.668)
pt3dadd(16.504, 108.794, 34.79, 0.656)
pt3dadd(16.402, 108.739, 34.817, 0.642)
pt3dadd(16.3, 108.684, 34.843, 0.63)
pt3dadd(16.198, 108.629, 34.87, 0.618)
pt3dadd(16.096, 108.574, 34.896, 0.606)
pt3dadd(15.995, 108.519, 34.923, 0.594)
pt3dadd(15.893, 108.464, 34.949, 0.58)
pt3dadd(15.791, 108.409, 34.976, 0.568)
pt3dadd(15.689, 108.354, 35.002, 0.556)
pt3dadd(15.576, 108.318, 35.016, 0.524)
pt3dadd(15.462, 108.282, 35.028, 0.49)
pt3dadd(15.349, 108.247, 35.041, 0.458)
pt3dadd(15.235, 108.212, 35.054, 0.424)
pt3dadd(15.121, 108.177, 35.066, 0.392)
pt3dadd(15.008, 108.141, 35.079, 0.358)
pt3dadd(14.894, 108.106, 35.092, 0.326)
pt3dadd(14.78, 108.071, 35.104, 0.292)
pt3dadd(14.667, 108.036, 35.117, 0.26)
pt3dadd(14.553, 108, 35.13, 0.226)
pt3dadd(14.434, 107.985, 35.13, 0.226)
pt3dadd(14.315, 107.97, 35.13, 0.226)
pt3dadd(14.196, 107.955, 35.13, 0.226)
pt3dadd(14.077, 107.94, 35.13, 0.226)
pt3dadd(13.958, 107.925, 35.13, 0.226)
pt3dadd(13.839, 107.91, 35.13, 0.226)
pt3dadd(13.72, 107.895, 35.13, 0.226)
pt3dadd(13.601, 107.88, 35.13, 0.226)
pt3dadd(13.482, 107.865, 35.13, 0.226)
pt3dadd(13.362, 107.85, 35.13, 0.226)
pt3dadd(13.242, 107.846, 35.13, 0.226)
pt3dadd(13.123, 107.841, 35.13, 0.226)
pt3dadd(13.003, 107.837, 35.13, 0.226)
pt3dadd(12.883, 107.833, 35.13, 0.226)
pt3dadd(12.763, 107.828, 35.13, 0.226)
pt3dadd(12.643, 107.824, 35.13, 0.226)
pt3dadd(12.523, 107.82, 35.13, 0.226)
pt3dadd(12.403, 107.815, 35.13, 0.226)
pt3dadd(12.283, 107.811, 35.13, 0.226)
pt3dadd(12.163, 107.807, 35.13, 0.226)
pt3dadd(12.043, 107.807, 35.13, 0.228)
pt3dadd(11.923, 107.807, 35.13, 0.232)
pt3dadd(11.803, 107.807, 35.13, 0.234)
pt3dadd(11.683, 107.807, 35.13, 0.236)
pt3dadd(11.563, 107.807, 35.13, 0.238)
pt3dadd(11.443, 107.807, 35.13, 0.242)
pt3dadd(11.323, 107.807, 35.13, 0.244)
pt3dadd(11.203, 107.807, 35.13, 0.246)
pt3dadd(11.083, 107.807, 35.13, 0.25)
pt3dadd(10.963, 107.807, 35.13, 0.252)
pt3dadd(10.843, 107.807, 35.13, 0.268)
pt3dadd(10.723, 107.807, 35.13, 0.284)
pt3dadd(10.603, 107.807, 35.13, 0.298)
pt3dadd(10.483, 107.807, 35.13, 0.314)
pt3dadd(10.363, 107.807, 35.13, 0.33)
pt3dadd(10.243, 107.807, 35.13, 0.346)
pt3dadd(10.123, 107.807, 35.13, 0.362)
pt3dadd(10.003, 107.807, 35.13, 0.378)
pt3dadd(9.883, 107.807, 35.13, 0.394)
pt3dadd(9.763, 107.807, 35.13, 0.41)
pt3dadd(9.643, 107.807, 35.13, 0.404)
pt3dadd(9.523, 107.807, 35.13, 0.4)
pt3dadd(9.403, 107.807, 35.13, 0.394)
pt3dadd(9.283, 107.807, 35.13, 0.388)
pt3dadd(9.163, 107.807, 35.13, 0.384)
pt3dadd(9.043, 107.807, 35.13, 0.378)
pt3dadd(8.923, 107.807, 35.13, 0.372)
pt3dadd(8.803, 107.807, 35.13, 0.368)
pt3dadd(8.683, 107.807, 35.13, 0.362)
pt3dadd(8.563, 107.807, 35.13, 0.356)
pt3dadd(8.443, 107.807, 35.13, 0.344)
pt3dadd(8.323, 107.807, 35.13, 0.33)
pt3dadd(8.203, 107.807, 35.13, 0.318)
pt3dadd(8.083, 107.807, 35.13, 0.304)
pt3dadd(7.963, 107.807, 35.13, 0.292)
pt3dadd(7.843, 107.807, 35.13, 0.278)
pt3dadd(7.723, 107.807, 35.13, 0.266)
pt3dadd(7.603, 107.807, 35.13, 0.252)
pt3dadd(7.483, 107.807, 35.13, 0.24)
pt3dadd(7.363, 107.807, 35.13, 0.226)
}
dend_7[5] {pt3dclear()
pt3dadd(102.917, 87.568, 26.766, 1.13)
pt3dadd(102.917, 87.553, 26.85, 1.094)
pt3dadd(102.917, 87.536, 26.949, 1.052)
pt3dadd(102.917, 87.518, 27.048, 1.01)
pt3dadd(102.917, 87.501, 27.147, 0.968)
pt3dadd(102.917, 87.484, 27.246, 0.926)
pt3dadd(102.917, 87.466, 27.345, 0.882)
pt3dadd(102.917, 87.449, 27.444, 0.84)
pt3dadd(102.917, 87.432, 27.543, 0.798)
pt3dadd(102.917, 87.414, 27.642, 0.756)
pt3dadd(102.917, 87.397, 27.741, 0.714)
pt3dadd(102.917, 87.38, 27.84, 0.672)
pt3dadd(102.917, 87.363, 27.939, 0.63)
pt3dadd(102.917, 87.345, 28.038, 0.588)
pt3dadd(102.905, 87.321, 28.134, 0.552)
pt3dadd(102.884, 87.291, 28.23, 0.522)
pt3dadd(102.864, 87.262, 28.325, 0.492)
pt3dadd(102.843, 87.233, 28.421, 0.464)
pt3dadd(102.823, 87.203, 28.516, 0.434)
pt3dadd(102.802, 87.174, 28.611, 0.404)
pt3dadd(102.782, 87.144, 28.707, 0.374)
pt3dadd(102.761, 87.115, 28.802, 0.344)
pt3dadd(102.741, 87.085, 28.898, 0.314)
pt3dadd(102.662, 87.03, 28.937, 0.34)
pt3dadd(102.564, 86.966, 28.957, 0.384)
pt3dadd(102.465, 86.902, 28.978, 0.426)
pt3dadd(102.367, 86.837, 28.998, 0.47)
pt3dadd(102.268, 86.773, 29.018, 0.514)
pt3dadd(102.17, 86.709, 29.038, 0.558)
pt3dadd(102.072, 86.645, 29.059, 0.602)
pt3dadd(101.973, 86.58, 29.079, 0.646)
}
}
proc shape3d_127() {
dend_7[5] { pt3dadd(101.875, 86.516, 29.099, 0.69)
pt3dadd(101.776, 86.452, 29.119, 0.734)
pt3dadd(101.677, 86.39, 29.142, 0.77)
pt3dadd(101.578, 86.328, 29.165, 0.806)
pt3dadd(101.479, 86.267, 29.188, 0.842)
pt3dadd(101.38, 86.205, 29.211, 0.876)
pt3dadd(101.28, 86.143, 29.233, 0.912)
pt3dadd(101.181, 86.082, 29.257, 0.948)
pt3dadd(101.082, 86.02, 29.279, 0.982)
pt3dadd(100.983, 85.959, 29.302, 1.018)
pt3dadd(100.884, 85.897, 29.325, 1.054)
pt3dadd(100.784, 85.835, 29.348, 1.09)
pt3dadd(100.683, 85.792, 29.387, 1.074)
pt3dadd(100.582, 85.753, 29.429, 1.046)
pt3dadd(100.48, 85.713, 29.471, 1.016)
pt3dadd(100.379, 85.674, 29.513, 0.988)
pt3dadd(100.277, 85.635, 29.556, 0.96)
pt3dadd(100.176, 85.596, 29.598, 0.932)
pt3dadd(100.074, 85.557, 29.64, 0.904)
pt3dadd(99.973, 85.518, 29.682, 0.874)
pt3dadd(99.871, 85.479, 29.725, 0.846)
pt3dadd(99.77, 85.44, 29.767, 0.818)
pt3dadd(99.665, 85.404, 29.805, 0.79)
pt3dadd(99.558, 85.37, 29.841, 0.76)
pt3dadd(99.452, 85.335, 29.878, 0.732)
pt3dadd(99.346, 85.301, 29.914, 0.704)
pt3dadd(99.24, 85.266, 29.951, 0.674)
pt3dadd(99.134, 85.231, 29.988, 0.646)
pt3dadd(99.027, 85.197, 30.024, 0.618)
pt3dadd(98.921, 85.162, 30.061, 0.59)
pt3dadd(98.815, 85.128, 30.097, 0.56)
pt3dadd(98.709, 85.093, 30.134, 0.532)
pt3dadd(98.6, 85.062, 30.166, 0.504)
pt3dadd(98.49, 85.032, 30.198, 0.476)
pt3dadd(98.38, 85.001, 30.229, 0.446)
pt3dadd(98.27, 84.971, 30.26, 0.418)
pt3dadd(98.16, 84.94, 30.292, 0.39)
pt3dadd(98.051, 84.91, 30.323, 0.36)
pt3dadd(97.941, 84.879, 30.355, 0.332)
pt3dadd(97.831, 84.849, 30.386, 0.304)
pt3dadd(97.721, 84.818, 30.417, 0.276)
pt3dadd(97.611, 84.788, 30.448, 0.248)
pt3dadd(97.507, 84.738, 30.473, 0.284)
pt3dadd(97.403, 84.684, 30.496, 0.336)
pt3dadd(97.299, 84.63, 30.519, 0.388)
pt3dadd(97.196, 84.577, 30.542, 0.44)
pt3dadd(97.092, 84.523, 30.565, 0.49)
pt3dadd(96.989, 84.469, 30.588, 0.542)
pt3dadd(96.885, 84.415, 30.611, 0.594)
pt3dadd(96.781, 84.361, 30.634, 0.646)
pt3dadd(96.678, 84.307, 30.657, 0.698)
pt3dadd(96.574, 84.254, 30.68, 0.748)
pt3dadd(96.474, 84.198, 30.71, 0.784)
pt3dadd(96.375, 84.143, 30.743, 0.816)
pt3dadd(96.276, 84.088, 30.775, 0.846)
pt3dadd(96.176, 84.032, 30.807, 0.878)
pt3dadd(96.077, 83.977, 30.839, 0.91)
pt3dadd(95.978, 83.921, 30.871, 0.942)
pt3dadd(95.879, 83.866, 30.903, 0.974)
pt3dadd(95.78, 83.811, 30.936, 1.004)
pt3dadd(95.68, 83.755, 30.968, 1.036)
pt3dadd(95.581, 83.7, 31, 1.068)
pt3dadd(95.491, 83.645, 31.048, 1.052)
pt3dadd(95.402, 83.589, 31.096, 1.034)
pt3dadd(95.313, 83.534, 31.145, 1.014)
pt3dadd(95.224, 83.479, 31.194, 0.996)
pt3dadd(95.135, 83.424, 31.242, 0.976)
pt3dadd(95.046, 83.369, 31.291, 0.958)
pt3dadd(94.956, 83.314, 31.34, 0.94)
pt3dadd(94.867, 83.259, 31.388, 0.92)
pt3dadd(94.778, 83.204, 31.437, 0.902)
pt3dadd(94.689, 83.149, 31.486, 0.884)
pt3dadd(94.594, 83.083, 31.514, 0.854)
pt3dadd(94.499, 83.018, 31.542, 0.822)
pt3dadd(94.405, 82.952, 31.569, 0.792)
pt3dadd(94.31, 82.887, 31.597, 0.762)
pt3dadd(94.215, 82.821, 31.624, 0.732)
pt3dadd(94.12, 82.755, 31.652, 0.702)
pt3dadd(94.025, 82.69, 31.679, 0.67)
pt3dadd(93.93, 82.624, 31.707, 0.64)
pt3dadd(93.835, 82.558, 31.734, 0.61)
pt3dadd(93.74, 82.493, 31.762, 0.58)
pt3dadd(93.633, 82.444, 31.783, 0.558)
pt3dadd(93.526, 82.397, 31.803, 0.536)
pt3dadd(93.419, 82.349, 31.824, 0.514)
pt3dadd(93.312, 82.301, 31.844, 0.492)
pt3dadd(93.204, 82.254, 31.865, 0.47)
pt3dadd(93.097, 82.206, 31.886, 0.448)
pt3dadd(92.99, 82.158, 31.906, 0.426)
pt3dadd(92.882, 82.111, 31.927, 0.404)
pt3dadd(92.775, 82.063, 31.947, 0.382)
pt3dadd(92.667, 82.017, 31.967, 0.36)
pt3dadd(92.553, 81.985, 31.981, 0.346)
pt3dadd(92.438, 81.953, 31.995, 0.334)
pt3dadd(92.324, 81.921, 32.01, 0.32)
pt3dadd(92.209, 81.889, 32.024, 0.306)
pt3dadd(92.095, 81.857, 32.038, 0.292)
pt3dadd(91.981, 81.825, 32.052, 0.278)
pt3dadd(91.866, 81.793, 32.067, 0.266)
pt3dadd(91.752, 81.761, 32.081, 0.252)
pt3dadd(91.637, 81.729, 32.095, 0.238)
pt3dadd(91.523, 81.699, 32.108, 0.226)
pt3dadd(91.404, 81.681, 32.116, 0.226)
pt3dadd(91.286, 81.664, 32.123, 0.226)
pt3dadd(91.167, 81.646, 32.131, 0.226)
pt3dadd(91.049, 81.629, 32.138, 0.226)
pt3dadd(90.931, 81.611, 32.146, 0.226)
pt3dadd(90.812, 81.594, 32.153, 0.226)
pt3dadd(90.694, 81.576, 32.16, 0.226)
pt3dadd(90.576, 81.559, 32.168, 0.226)
pt3dadd(90.457, 81.541, 32.175, 0.226)
pt3dadd(90.339, 81.524, 32.183, 0.226)
pt3dadd(90.22, 81.51, 32.193, 0.226)
pt3dadd(90.102, 81.496, 32.203, 0.226)
pt3dadd(89.983, 81.482, 32.214, 0.226)
pt3dadd(89.865, 81.468, 32.224, 0.226)
pt3dadd(89.746, 81.454, 32.234, 0.226)
pt3dadd(89.627, 81.441, 32.244, 0.226)
pt3dadd(89.509, 81.427, 32.254, 0.226)
pt3dadd(89.39, 81.413, 32.264, 0.226)
pt3dadd(89.272, 81.399, 32.275, 0.226)
pt3dadd(89.153, 81.385, 32.285, 0.226)
pt3dadd(89.034, 81.375, 32.298, 0.226)
pt3dadd(88.916, 81.364, 32.31, 0.226)
pt3dadd(88.797, 81.353, 32.323, 0.226)
pt3dadd(88.679, 81.343, 32.335, 0.226)
pt3dadd(88.56, 81.332, 32.348, 0.226)
pt3dadd(88.442, 81.322, 32.361, 0.226)
pt3dadd(88.323, 81.311, 32.373, 0.226)
pt3dadd(88.204, 81.301, 32.386, 0.226)
pt3dadd(88.086, 81.29, 32.398, 0.226)
pt3dadd(87.968, 81.279, 32.414, 0.226)
pt3dadd(87.859, 81.262, 32.452, 0.226)
pt3dadd(87.749, 81.245, 32.489, 0.226)
pt3dadd(87.639, 81.228, 32.527, 0.226)
pt3dadd(87.529, 81.211, 32.565, 0.226)
pt3dadd(87.42, 81.194, 32.603, 0.226)
pt3dadd(87.31, 81.177, 32.641, 0.226)
pt3dadd(87.2, 81.16, 32.679, 0.226)
pt3dadd(87.09, 81.143, 32.717, 0.226)
pt3dadd(86.981, 81.126, 32.755, 0.226)
pt3dadd(86.871, 81.108, 32.792, 0.226)
pt3dadd(86.762, 81.082, 32.828, 0.226)
pt3dadd(86.653, 81.055, 32.864, 0.226)
pt3dadd(86.544, 81.029, 32.899, 0.226)
pt3dadd(86.435, 81.002, 32.935, 0.226)
pt3dadd(86.326, 80.975, 32.971, 0.226)
pt3dadd(86.218, 80.949, 33.007, 0.226)
pt3dadd(86.109, 80.922, 33.042, 0.226)
pt3dadd(86, 80.896, 33.078, 0.226)
pt3dadd(85.891, 80.869, 33.114, 0.226)
pt3dadd(85.783, 80.837, 33.147, 0.226)
pt3dadd(85.68, 80.785, 33.173, 0.226)
pt3dadd(85.576, 80.733, 33.199, 0.226)
pt3dadd(85.472, 80.681, 33.224, 0.226)
pt3dadd(85.369, 80.629, 33.25, 0.226)
pt3dadd(85.265, 80.577, 33.276, 0.226)
pt3dadd(85.161, 80.525, 33.302, 0.226)
pt3dadd(85.058, 80.473, 33.328, 0.226)
pt3dadd(84.954, 80.421, 33.353, 0.226)
pt3dadd(84.85, 80.369, 33.379, 0.226)
pt3dadd(84.746, 80.318, 33.404, 0.226)
pt3dadd(84.64, 80.269, 33.427, 0.226)
pt3dadd(84.534, 80.22, 33.451, 0.226)
pt3dadd(84.428, 80.171, 33.474, 0.226)
pt3dadd(84.322, 80.122, 33.497, 0.226)
pt3dadd(84.216, 80.073, 33.52, 0.226)
pt3dadd(84.11, 80.024, 33.543, 0.226)
pt3dadd(84.004, 79.975, 33.566, 0.226)
pt3dadd(83.898, 79.926, 33.589, 0.226)
pt3dadd(83.793, 79.877, 33.612, 0.226)
pt3dadd(83.686, 79.829, 33.635, 0.226)
pt3dadd(83.578, 79.783, 33.655, 0.226)
pt3dadd(83.47, 79.737, 33.676, 0.226)
pt3dadd(83.361, 79.691, 33.696, 0.226)
pt3dadd(83.253, 79.645, 33.716, 0.226)
pt3dadd(83.145, 79.599, 33.737, 0.226)
pt3dadd(83.037, 79.553, 33.757, 0.226)
pt3dadd(82.929, 79.508, 33.777, 0.226)
pt3dadd(82.821, 79.462, 33.798, 0.226)
pt3dadd(82.712, 79.416, 33.818, 0.226)
pt3dadd(82.606, 79.366, 33.838, 0.228)
pt3dadd(82.506, 79.304, 33.856, 0.238)
pt3dadd(82.406, 79.241, 33.875, 0.25)
pt3dadd(82.306, 79.179, 33.894, 0.26)
pt3dadd(82.206, 79.117, 33.912, 0.27)
pt3dadd(82.106, 79.055, 33.931, 0.28)
pt3dadd(82.005, 78.992, 33.949, 0.292)
pt3dadd(81.905, 78.93, 33.968, 0.302)
pt3dadd(81.805, 78.868, 33.986, 0.312)
pt3dadd(81.705, 78.806, 34.005, 0.322)
pt3dadd(81.606, 78.742, 34.024, 0.334)
pt3dadd(81.508, 78.677, 34.043, 0.348)
pt3dadd(81.41, 78.612, 34.063, 0.36)
pt3dadd(81.312, 78.547, 34.083, 0.374)
pt3dadd(81.214, 78.481, 34.103, 0.388)
pt3dadd(81.116, 78.416, 34.122, 0.402)
pt3dadd(81.018, 78.351, 34.142, 0.414)
pt3dadd(80.92, 78.286, 34.162, 0.428)
pt3dadd(80.822, 78.22, 34.182, 0.442)
}
}
proc shape3d_128() {
dend_7[5] { pt3dadd(80.724, 78.155, 34.201, 0.456)
pt3dadd(80.628, 78.095, 34.23, 0.472)
pt3dadd(80.536, 78.046, 34.279, 0.498)
pt3dadd(80.443, 77.998, 34.328, 0.524)
pt3dadd(80.351, 77.949, 34.378, 0.55)
pt3dadd(80.259, 77.901, 34.427, 0.576)
pt3dadd(80.166, 77.852, 34.477, 0.602)
pt3dadd(80.074, 77.804, 34.526, 0.628)
pt3dadd(79.981, 77.755, 34.575, 0.654)
pt3dadd(79.889, 77.707, 34.625, 0.68)
pt3dadd(79.797, 77.658, 34.674, 0.706)
pt3dadd(79.707, 77.608, 34.725, 0.728)
pt3dadd(79.623, 77.552, 34.78, 0.746)
pt3dadd(79.54, 77.496, 34.834, 0.766)
pt3dadd(79.456, 77.44, 34.889, 0.784)
pt3dadd(79.373, 77.385, 34.944, 0.802)
pt3dadd(79.289, 77.329, 34.999, 0.82)
pt3dadd(79.206, 77.273, 35.053, 0.838)
pt3dadd(79.122, 77.217, 35.108, 0.856)
pt3dadd(79.038, 77.162, 35.163, 0.876)
pt3dadd(78.955, 77.106, 35.217, 0.894)
pt3dadd(78.882, 77.044, 35.277, 0.904)
pt3dadd(78.824, 76.973, 35.341, 0.904)
pt3dadd(78.765, 76.903, 35.406, 0.904)
pt3dadd(78.706, 76.832, 35.47, 0.904)
pt3dadd(78.648, 76.762, 35.535, 0.904)
pt3dadd(78.589, 76.692, 35.599, 0.904)
pt3dadd(78.53, 76.621, 35.664, 0.904)
pt3dadd(78.472, 76.551, 35.728, 0.904)
pt3dadd(78.413, 76.48, 35.793, 0.904)
pt3dadd(78.354, 76.41, 35.857, 0.904)
pt3dadd(78.293, 76.337, 35.918, 0.894)
pt3dadd(78.227, 76.261, 35.973, 0.874)
pt3dadd(78.162, 76.185, 36.028, 0.854)
pt3dadd(78.096, 76.109, 36.083, 0.832)
pt3dadd(78.031, 76.033, 36.138, 0.812)
pt3dadd(77.966, 75.957, 36.192, 0.792)
pt3dadd(77.9, 75.881, 36.247, 0.77)
pt3dadd(77.835, 75.805, 36.302, 0.75)
pt3dadd(77.769, 75.729, 36.357, 0.73)
pt3dadd(77.704, 75.653, 36.412, 0.708)
pt3dadd(77.636, 75.575, 36.463, 0.678)
pt3dadd(77.565, 75.495, 36.508, 0.64)
pt3dadd(77.495, 75.415, 36.554, 0.6)
pt3dadd(77.424, 75.335, 36.599, 0.56)
pt3dadd(77.354, 75.255, 36.645, 0.522)
pt3dadd(77.283, 75.175, 36.691, 0.482)
pt3dadd(77.212, 75.094, 36.736, 0.444)
pt3dadd(77.142, 75.014, 36.782, 0.404)
pt3dadd(77.071, 74.934, 36.828, 0.366)
pt3dadd(77.001, 74.854, 36.873, 0.326)
pt3dadd(76.926, 74.782, 36.923, 0.32)
pt3dadd(76.848, 74.718, 36.978, 0.344)
pt3dadd(76.77, 74.654, 37.032, 0.368)
pt3dadd(76.692, 74.59, 37.086, 0.394)
pt3dadd(76.614, 74.527, 37.14, 0.418)
pt3dadd(76.536, 74.463, 37.194, 0.442)
pt3dadd(76.458, 74.399, 37.248, 0.468)
pt3dadd(76.38, 74.335, 37.302, 0.492)
pt3dadd(76.302, 74.271, 37.356, 0.518)
pt3dadd(76.224, 74.207, 37.411, 0.542)
pt3dadd(76.146, 74.143, 37.465, 0.572)
pt3dadd(76.068, 74.08, 37.519, 0.608)
pt3dadd(75.99, 74.016, 37.574, 0.642)
pt3dadd(75.912, 73.953, 37.628, 0.678)
pt3dadd(75.834, 73.889, 37.683, 0.714)
pt3dadd(75.756, 73.825, 37.737, 0.748)
pt3dadd(75.678, 73.761, 37.792, 0.784)
pt3dadd(75.6, 73.698, 37.846, 0.82)
pt3dadd(75.522, 73.634, 37.9, 0.854)
pt3dadd(75.444, 73.571, 37.955, 0.89)
pt3dadd(75.373, 73.494, 38.003, 0.904)
pt3dadd(75.307, 73.409, 38.047, 0.904)
pt3dadd(75.241, 73.323, 38.091, 0.904)
pt3dadd(75.176, 73.238, 38.134, 0.904)
pt3dadd(75.11, 73.152, 38.178, 0.904)
pt3dadd(75.044, 73.067, 38.222, 0.904)
pt3dadd(74.978, 72.981, 38.266, 0.904)
pt3dadd(74.912, 72.896, 38.31, 0.904)
pt3dadd(74.847, 72.81, 38.354, 0.904)
pt3dadd(74.781, 72.725, 38.397, 0.904)
pt3dadd(74.721, 72.647, 38.454, 0.878)
pt3dadd(74.667, 72.573, 38.518, 0.834)
pt3dadd(74.612, 72.5, 38.583, 0.79)
pt3dadd(74.557, 72.427, 38.648, 0.746)
pt3dadd(74.502, 72.354, 38.713, 0.7)
pt3dadd(74.447, 72.281, 38.777, 0.656)
pt3dadd(74.392, 72.208, 38.842, 0.612)
pt3dadd(74.337, 72.135, 38.907, 0.568)
pt3dadd(74.282, 72.061, 38.972, 0.524)
pt3dadd(74.227, 71.988, 39.036, 0.48)
pt3dadd(74.165, 71.911, 39.092, 0.454)
pt3dadd(74.098, 71.833, 39.142, 0.438)
pt3dadd(74.031, 71.754, 39.193, 0.424)
pt3dadd(73.964, 71.675, 39.244, 0.408)
pt3dadd(73.897, 71.596, 39.295, 0.392)
pt3dadd(73.83, 71.517, 39.346, 0.376)
pt3dadd(73.763, 71.439, 39.396, 0.36)
pt3dadd(73.696, 71.36, 39.447, 0.344)
pt3dadd(73.629, 71.281, 39.498, 0.328)
pt3dadd(73.562, 71.202, 39.549, 0.314)
pt3dadd(73.487, 71.12, 39.584, 0.326)
pt3dadd(73.41, 71.037, 39.618, 0.342)
pt3dadd(73.333, 70.954, 39.652, 0.356)
pt3dadd(73.256, 70.871, 39.685, 0.372)
pt3dadd(73.179, 70.788, 39.719, 0.388)
pt3dadd(73.102, 70.705, 39.753, 0.404)
pt3dadd(73.026, 70.623, 39.786, 0.42)
pt3dadd(72.949, 70.54, 39.82, 0.436)
pt3dadd(72.872, 70.457, 39.854, 0.452)
pt3dadd(72.795, 70.374, 39.888, 0.468)
pt3dadd(72.71, 70.295, 39.911, 0.492)
pt3dadd(72.623, 70.216, 39.934, 0.518)
pt3dadd(72.537, 70.138, 39.957, 0.544)
pt3dadd(72.45, 70.059, 39.979, 0.568)
pt3dadd(72.364, 69.981, 40.002, 0.594)
pt3dadd(72.277, 69.902, 40.025, 0.62)
pt3dadd(72.191, 69.823, 40.048, 0.646)
pt3dadd(72.105, 69.745, 40.07, 0.672)
pt3dadd(72.018, 69.666, 40.093, 0.698)
pt3dadd(71.932, 69.587, 40.116, 0.722)
pt3dadd(71.843, 69.514, 40.144, 0.742)
pt3dadd(71.753, 69.442, 40.173, 0.76)
pt3dadd(71.664, 69.37, 40.202, 0.778)
pt3dadd(71.575, 69.297, 40.231, 0.796)
pt3dadd(71.486, 69.225, 40.26, 0.814)
pt3dadd(71.396, 69.153, 40.289, 0.832)
pt3dadd(71.307, 69.08, 40.317, 0.85)
pt3dadd(71.218, 69.008, 40.346, 0.868)
pt3dadd(71.129, 68.936, 40.375, 0.886)
pt3dadd(71.039, 68.863, 40.404, 0.904)
pt3dadd(70.946, 68.807, 40.446, 0.904)
pt3dadd(70.852, 68.752, 40.488, 0.904)
pt3dadd(70.759, 68.696, 40.53, 0.904)
pt3dadd(70.665, 68.64, 40.573, 0.904)
pt3dadd(70.572, 68.585, 40.615, 0.904)
pt3dadd(70.479, 68.529, 40.657, 0.904)
pt3dadd(70.385, 68.473, 40.699, 0.904)
pt3dadd(70.292, 68.418, 40.741, 0.904)
pt3dadd(70.198, 68.362, 40.783, 0.904)
pt3dadd(70.105, 68.306, 40.826, 0.904)
pt3dadd(70.021, 68.236, 40.867, 0.912)
pt3dadd(69.937, 68.166, 40.908, 0.922)
pt3dadd(69.853, 68.096, 40.949, 0.93)
pt3dadd(69.769, 68.025, 40.99, 0.94)
pt3dadd(69.686, 67.955, 41.032, 0.948)
pt3dadd(69.602, 67.885, 41.073, 0.958)
pt3dadd(69.518, 67.814, 41.114, 0.966)
pt3dadd(69.434, 67.744, 41.155, 0.976)
pt3dadd(69.351, 67.674, 41.196, 0.984)
pt3dadd(69.267, 67.603, 41.237, 0.994)
pt3dadd(69.191, 67.526, 41.279, 1.006)
pt3dadd(69.114, 67.448, 41.321, 1.018)
pt3dadd(69.037, 67.371, 41.363, 1.028)
pt3dadd(68.961, 67.293, 41.405, 1.04)
pt3dadd(68.884, 67.216, 41.446, 1.052)
pt3dadd(68.807, 67.138, 41.488, 1.064)
pt3dadd(68.73, 67.061, 41.53, 1.076)
pt3dadd(68.654, 66.983, 41.571, 1.088)
pt3dadd(68.577, 66.906, 41.613, 1.1)
pt3dadd(68.499, 66.831, 41.656, 1.108)
pt3dadd(68.414, 66.775, 41.709, 1.092)
pt3dadd(68.329, 66.72, 41.763, 1.078)
pt3dadd(68.244, 66.665, 41.816, 1.062)
pt3dadd(68.158, 66.61, 41.869, 1.048)
pt3dadd(68.073, 66.555, 41.923, 1.032)
pt3dadd(67.988, 66.499, 41.976, 1.018)
pt3dadd(67.903, 66.444, 42.029, 1.002)
pt3dadd(67.818, 66.389, 42.083, 0.988)
pt3dadd(67.732, 66.334, 42.136, 0.972)
pt3dadd(67.647, 66.277, 42.187, 0.956)
pt3dadd(67.557, 66.209, 42.222, 0.922)
pt3dadd(67.468, 66.141, 42.257, 0.89)
pt3dadd(67.379, 66.072, 42.293, 0.858)
pt3dadd(67.29, 66.004, 42.328, 0.826)
pt3dadd(67.201, 65.935, 42.363, 0.792)
pt3dadd(67.112, 65.867, 42.398, 0.76)
pt3dadd(67.022, 65.799, 42.433, 0.728)
pt3dadd(66.933, 65.73, 42.468, 0.694)
pt3dadd(66.844, 65.662, 42.503, 0.662)
pt3dadd(66.755, 65.592, 42.535, 0.628)
pt3dadd(66.666, 65.517, 42.559, 0.586)
pt3dadd(66.576, 65.442, 42.583, 0.546)
pt3dadd(66.487, 65.367, 42.606, 0.504)
pt3dadd(66.397, 65.292, 42.63, 0.462)
pt3dadd(66.308, 65.217, 42.654, 0.422)
pt3dadd(66.219, 65.142, 42.677, 0.38)
pt3dadd(66.129, 65.067, 42.701, 0.34)
pt3dadd(66.04, 64.992, 42.725, 0.298)
pt3dadd(65.951, 64.918, 42.748, 0.256)
pt3dadd(65.864, 64.839, 42.769, 0.226)
pt3dadd(65.785, 64.75, 42.782, 0.226)
pt3dadd(65.707, 64.66, 42.794, 0.226)
pt3dadd(65.628, 64.571, 42.806, 0.226)
pt3dadd(65.549, 64.482, 42.818, 0.226)
pt3dadd(65.47, 64.392, 42.83, 0.226)
pt3dadd(65.391, 64.303, 42.843, 0.226)
pt3dadd(65.313, 64.214, 42.855, 0.226)
pt3dadd(65.234, 64.125, 42.867, 0.226)
pt3dadd(65.155, 64.035, 42.88, 0.226)
}
}
proc shape3d_129() {
dend_7[5] { pt3dadd(65.073, 63.95, 42.89, 0.226)
pt3dadd(64.977, 63.877, 42.895, 0.226)
pt3dadd(64.883, 63.804, 42.9, 0.226)
pt3dadd(64.788, 63.731, 42.905, 0.226)
pt3dadd(64.693, 63.657, 42.911, 0.226)
pt3dadd(64.598, 63.584, 42.916, 0.226)
pt3dadd(64.503, 63.511, 42.921, 0.226)
pt3dadd(64.408, 63.438, 42.926, 0.226)
pt3dadd(64.313, 63.365, 42.931, 0.226)
pt3dadd(64.218, 63.292, 42.936, 0.226)
pt3dadd(64.118, 63.227, 42.94, 0.226)
pt3dadd(64.011, 63.173, 42.94, 0.226)
pt3dadd(63.903, 63.119, 42.94, 0.226)
pt3dadd(63.796, 63.065, 42.94, 0.226)
pt3dadd(63.689, 63.012, 42.94, 0.226)
pt3dadd(63.581, 62.958, 42.941, 0.226)
pt3dadd(63.474, 62.904, 42.941, 0.226)
pt3dadd(63.367, 62.85, 42.941, 0.226)
pt3dadd(63.259, 62.797, 42.941, 0.226)
pt3dadd(63.152, 62.743, 42.941, 0.226)
pt3dadd(63.041, 62.699, 42.942, 0.226)
pt3dadd(62.925, 62.667, 42.942, 0.226)
pt3dadd(62.81, 62.635, 42.942, 0.226)
pt3dadd(62.694, 62.604, 42.943, 0.226)
pt3dadd(62.578, 62.572, 42.943, 0.226)
pt3dadd(62.463, 62.54, 42.943, 0.226)
pt3dadd(62.347, 62.508, 42.944, 0.226)
pt3dadd(62.231, 62.476, 42.944, 0.226)
pt3dadd(62.115, 62.445, 42.944, 0.226)
pt3dadd(62, 62.413, 42.945, 0.226)
pt3dadd(61.886, 62.375, 42.945, 0.226)
pt3dadd(61.775, 62.331, 42.946, 0.226)
pt3dadd(61.663, 62.286, 42.946, 0.226)
pt3dadd(61.552, 62.241, 42.947, 0.226)
pt3dadd(61.441, 62.196, 42.948, 0.226)
pt3dadd(61.329, 62.152, 42.948, 0.226)
pt3dadd(61.218, 62.107, 42.949, 0.226)
pt3dadd(61.107, 62.062, 42.949, 0.226)
pt3dadd(60.995, 62.017, 42.95, 0.226)
pt3dadd(60.884, 61.973, 42.95, 0.226)
pt3dadd(60.773, 61.927, 42.951, 0.226)
pt3dadd(60.662, 61.88, 42.952, 0.226)
pt3dadd(60.552, 61.833, 42.952, 0.226)
pt3dadd(60.441, 61.786, 42.953, 0.226)
pt3dadd(60.331, 61.739, 42.954, 0.226)
pt3dadd(60.221, 61.692, 42.955, 0.226)
pt3dadd(60.11, 61.646, 42.955, 0.226)
pt3dadd(60, 61.599, 42.956, 0.226)
pt3dadd(59.889, 61.552, 42.957, 0.226)
pt3dadd(59.779, 61.505, 42.957, 0.226)
pt3dadd(59.667, 61.462, 42.958, 0.226)
pt3dadd(59.553, 61.425, 42.96, 0.226)
pt3dadd(59.439, 61.387, 42.961, 0.226)
pt3dadd(59.325, 61.35, 42.963, 0.226)
pt3dadd(59.211, 61.312, 42.964, 0.226)
pt3dadd(59.097, 61.274, 42.966, 0.226)
pt3dadd(58.983, 61.237, 42.967, 0.226)
pt3dadd(58.869, 61.199, 42.968, 0.226)
pt3dadd(58.755, 61.162, 42.97, 0.226)
pt3dadd(58.641, 61.124, 42.971, 0.226)
pt3dadd(58.527, 61.088, 42.973, 0.226)
pt3dadd(58.412, 61.054, 42.975, 0.226)
pt3dadd(58.296, 61.02, 42.978, 0.226)
pt3dadd(58.181, 60.987, 42.98, 0.226)
pt3dadd(58.066, 60.953, 42.982, 0.226)
pt3dadd(57.951, 60.919, 42.984, 0.226)
pt3dadd(57.836, 60.885, 42.986, 0.226)
pt3dadd(57.721, 60.851, 42.989, 0.226)
pt3dadd(57.606, 60.817, 42.991, 0.226)
pt3dadd(57.491, 60.784, 42.993, 0.226)
pt3dadd(57.375, 60.752, 42.995, 0.226)
pt3dadd(57.259, 60.722, 42.999, 0.226)
pt3dadd(57.143, 60.693, 43.002, 0.226)
pt3dadd(57.026, 60.663, 43.005, 0.226)
pt3dadd(56.91, 60.634, 43.008, 0.226)
pt3dadd(56.794, 60.604, 43.011, 0.226)
pt3dadd(56.678, 60.575, 43.014, 0.226)
pt3dadd(56.561, 60.545, 43.017, 0.226)
pt3dadd(56.445, 60.515, 43.02, 0.226)
pt3dadd(56.329, 60.486, 43.023, 0.226)
pt3dadd(56.216, 60.447, 43.028, 0.226)
pt3dadd(56.106, 60.399, 43.034, 0.226)
pt3dadd(55.997, 60.35, 43.041, 0.226)
pt3dadd(55.888, 60.302, 43.048, 0.226)
pt3dadd(55.778, 60.253, 43.054, 0.226)
pt3dadd(55.669, 60.204, 43.061, 0.226)
pt3dadd(55.559, 60.156, 43.067, 0.226)
pt3dadd(55.45, 60.107, 43.074, 0.226)
pt3dadd(55.34, 60.059, 43.081, 0.226)
pt3dadd(55.231, 60.01, 43.088, 0.226)
pt3dadd(55.122, 59.962, 43.095, 0.228)
pt3dadd(55.012, 59.913, 43.104, 0.232)
pt3dadd(54.903, 59.864, 43.113, 0.236)
pt3dadd(54.794, 59.815, 43.121, 0.24)
pt3dadd(54.685, 59.767, 43.13, 0.244)
pt3dadd(54.576, 59.718, 43.139, 0.248)
pt3dadd(54.467, 59.669, 43.147, 0.252)
pt3dadd(54.358, 59.62, 43.156, 0.256)
pt3dadd(54.248, 59.572, 43.165, 0.26)
pt3dadd(54.139, 59.523, 43.174, 0.264)
pt3dadd(54.03, 59.476, 43.185, 0.274)
pt3dadd(53.919, 59.432, 43.198, 0.29)
pt3dadd(53.809, 59.388, 43.211, 0.304)
pt3dadd(53.698, 59.344, 43.224, 0.32)
pt3dadd(53.588, 59.3, 43.238, 0.334)
pt3dadd(53.477, 59.256, 43.251, 0.35)
pt3dadd(53.367, 59.211, 43.264, 0.364)
pt3dadd(53.256, 59.167, 43.277, 0.38)
pt3dadd(53.146, 59.123, 43.291, 0.394)
pt3dadd(53.035, 59.079, 43.304, 0.41)
pt3dadd(52.928, 59.038, 43.329, 0.42)
pt3dadd(52.823, 59.001, 43.367, 0.422)
pt3dadd(52.719, 58.964, 43.405, 0.426)
pt3dadd(52.614, 58.927, 43.443, 0.43)
pt3dadd(52.509, 58.89, 43.481, 0.434)
pt3dadd(52.405, 58.854, 43.519, 0.436)
pt3dadd(52.3, 58.817, 43.557, 0.44)
pt3dadd(52.195, 58.779, 43.595, 0.444)
pt3dadd(52.091, 58.743, 43.633, 0.448)
pt3dadd(51.986, 58.706, 43.671, 0.45)
pt3dadd(51.889, 58.657, 43.713, 0.448)
pt3dadd(51.798, 58.599, 43.758, 0.442)
pt3dadd(51.708, 58.542, 43.802, 0.436)
pt3dadd(51.617, 58.485, 43.847, 0.43)
pt3dadd(51.526, 58.428, 43.891, 0.424)
pt3dadd(51.435, 58.37, 43.936, 0.418)
pt3dadd(51.344, 58.313, 43.98, 0.412)
pt3dadd(51.253, 58.256, 44.025, 0.406)
pt3dadd(51.162, 58.199, 44.069, 0.398)
pt3dadd(51.071, 58.141, 44.114, 0.392)
pt3dadd(51.009, 58.049, 44.152, 0.376)
pt3dadd(50.948, 57.957, 44.191, 0.36)
pt3dadd(50.886, 57.865, 44.229, 0.342)
pt3dadd(50.825, 57.773, 44.267, 0.326)
pt3dadd(50.764, 57.681, 44.306, 0.31)
pt3dadd(50.702, 57.588, 44.344, 0.292)
pt3dadd(50.641, 57.496, 44.383, 0.276)
pt3dadd(50.579, 57.404, 44.421, 0.26)
pt3dadd(50.518, 57.312, 44.459, 0.242)
pt3dadd(50.456, 57.22, 44.498, 0.226)
}
dend_7[6] {pt3dclear()
pt3dadd(106.664, 86.576, 25.784, 0.226)
pt3dadd(106.664, 86.558, 25.793, 0.226)
pt3dadd(106.664, 86.454, 25.844, 0.226)
pt3dadd(106.664, 86.351, 25.895, 0.226)
pt3dadd(106.664, 86.248, 25.946, 0.226)
pt3dadd(106.664, 86.144, 25.997, 0.226)
pt3dadd(106.664, 86.041, 26.048, 0.226)
pt3dadd(106.664, 85.938, 26.098, 0.226)
pt3dadd(106.664, 85.834, 26.149, 0.226)
pt3dadd(106.664, 85.731, 26.2, 0.226)
pt3dadd(106.664, 85.628, 26.251, 0.226)
pt3dadd(106.664, 85.524, 26.302, 0.226)
pt3dadd(106.664, 85.421, 26.353, 0.226)
pt3dadd(106.664, 85.318, 26.404, 0.226)
pt3dadd(106.664, 85.214, 26.455, 0.226)
pt3dadd(106.664, 85.111, 26.505, 0.226)
pt3dadd(106.664, 85.008, 26.556, 0.226)
pt3dadd(106.664, 84.904, 26.607, 0.226)
pt3dadd(106.664, 84.801, 26.658, 0.226)
pt3dadd(106.664, 84.698, 26.709, 0.226)
pt3dadd(106.664, 84.595, 26.76, 0.226)
pt3dadd(106.664, 84.491, 26.811, 0.226)
pt3dadd(106.664, 84.388, 26.861, 0.226)
pt3dadd(106.664, 84.285, 26.912, 0.226)
pt3dadd(106.664, 84.181, 26.963, 0.226)
pt3dadd(106.664, 84.078, 27.014, 0.226)
pt3dadd(106.664, 83.975, 27.065, 0.226)
pt3dadd(106.664, 83.871, 27.116, 0.226)
pt3dadd(106.664, 83.768, 27.167, 0.226)
pt3dadd(106.679, 83.68, 27.231, 0.24)
pt3dadd(106.704, 83.603, 27.305, 0.266)
pt3dadd(106.728, 83.527, 27.379, 0.29)
pt3dadd(106.753, 83.45, 27.453, 0.316)
pt3dadd(106.778, 83.373, 27.527, 0.34)
pt3dadd(106.803, 83.297, 27.601, 0.364)
pt3dadd(106.828, 83.22, 27.675, 0.39)
pt3dadd(106.853, 83.143, 27.749, 0.414)
pt3dadd(106.878, 83.067, 27.823, 0.44)
pt3dadd(106.903, 82.99, 27.898, 0.464)
pt3dadd(106.943, 82.913, 27.966, 0.488)
pt3dadd(106.987, 82.835, 28.033, 0.508)
pt3dadd(107.031, 82.757, 28.1, 0.53)
pt3dadd(107.075, 82.68, 28.167, 0.552)
pt3dadd(107.118, 82.602, 28.234, 0.574)
pt3dadd(107.162, 82.525, 28.301, 0.596)
pt3dadd(107.206, 82.447, 28.368, 0.616)
pt3dadd(107.25, 82.369, 28.435, 0.638)
pt3dadd(107.294, 82.292, 28.502, 0.66)
pt3dadd(107.339, 82.211, 28.564, 0.678)
pt3dadd(107.396, 82.116, 28.602, 0.676)
pt3dadd(107.452, 82.02, 28.64, 0.672)
pt3dadd(107.509, 81.924, 28.678, 0.67)
pt3dadd(107.565, 81.829, 28.716, 0.668)
pt3dadd(107.622, 81.733, 28.753, 0.664)
pt3dadd(107.678, 81.638, 28.792, 0.662)
pt3dadd(107.735, 81.542, 28.829, 0.66)
pt3dadd(107.791, 81.446, 28.867, 0.658)
pt3dadd(107.848, 81.351, 28.905, 0.654)
pt3dadd(107.899, 81.252, 28.941, 0.646)
pt3dadd(107.93, 81.14, 28.965, 0.616)
}
}
proc shape3d_130() {
dend_7[6] { pt3dadd(107.961, 81.028, 28.99, 0.586)
pt3dadd(107.992, 80.916, 29.014, 0.556)
pt3dadd(108.024, 80.804, 29.039, 0.524)
pt3dadd(108.055, 80.692, 29.064, 0.494)
pt3dadd(108.086, 80.58, 29.088, 0.464)
pt3dadd(108.117, 80.467, 29.113, 0.434)
pt3dadd(108.148, 80.355, 29.137, 0.404)
pt3dadd(108.179, 80.243, 29.162, 0.372)
pt3dadd(108.208, 80.131, 29.188, 0.346)
pt3dadd(108.228, 80.02, 29.221, 0.334)
pt3dadd(108.248, 79.908, 29.254, 0.322)
pt3dadd(108.268, 79.797, 29.287, 0.308)
pt3dadd(108.287, 79.685, 29.319, 0.296)
pt3dadd(108.307, 79.573, 29.352, 0.284)
pt3dadd(108.327, 79.462, 29.385, 0.272)
pt3dadd(108.347, 79.35, 29.418, 0.26)
pt3dadd(108.367, 79.239, 29.451, 0.248)
pt3dadd(108.387, 79.127, 29.484, 0.236)
pt3dadd(108.405, 79.016, 29.518, 0.226)
pt3dadd(108.417, 78.906, 29.556, 0.226)
pt3dadd(108.43, 78.795, 29.594, 0.226)
pt3dadd(108.442, 78.685, 29.632, 0.226)
pt3dadd(108.454, 78.575, 29.671, 0.226)
pt3dadd(108.467, 78.465, 29.709, 0.226)
pt3dadd(108.479, 78.354, 29.747, 0.226)
pt3dadd(108.492, 78.244, 29.785, 0.226)
pt3dadd(108.504, 78.134, 29.823, 0.226)
pt3dadd(108.516, 78.024, 29.861, 0.226)
pt3dadd(108.526, 77.912, 29.897, 0.232)
pt3dadd(108.527, 77.797, 29.925, 0.258)
pt3dadd(108.528, 77.682, 29.953, 0.282)
pt3dadd(108.53, 77.567, 29.98, 0.308)
pt3dadd(108.531, 77.451, 30.008, 0.332)
pt3dadd(108.532, 77.336, 30.036, 0.358)
pt3dadd(108.533, 77.221, 30.064, 0.382)
pt3dadd(108.534, 77.106, 30.092, 0.408)
pt3dadd(108.536, 76.99, 30.119, 0.434)
pt3dadd(108.537, 76.875, 30.147, 0.458)
pt3dadd(108.538, 76.759, 30.174, 0.48)
pt3dadd(108.538, 76.643, 30.198, 0.492)
pt3dadd(108.538, 76.527, 30.223, 0.504)
pt3dadd(108.538, 76.41, 30.247, 0.516)
pt3dadd(108.538, 76.294, 30.271, 0.528)
pt3dadd(108.538, 76.177, 30.295, 0.542)
pt3dadd(108.538, 76.061, 30.32, 0.554)
pt3dadd(108.538, 75.945, 30.344, 0.566)
pt3dadd(108.538, 75.828, 30.368, 0.578)
pt3dadd(108.538, 75.712, 30.392, 0.59)
pt3dadd(108.538, 75.595, 30.415, 0.59)
pt3dadd(108.538, 75.477, 30.433, 0.562)
pt3dadd(108.538, 75.359, 30.451, 0.534)
pt3dadd(108.538, 75.241, 30.469, 0.506)
pt3dadd(108.538, 75.123, 30.487, 0.478)
pt3dadd(108.538, 75.005, 30.505, 0.448)
pt3dadd(108.538, 74.887, 30.523, 0.42)
pt3dadd(108.538, 74.769, 30.541, 0.392)
pt3dadd(108.538, 74.651, 30.559, 0.364)
pt3dadd(108.538, 74.532, 30.577, 0.334)
pt3dadd(108.538, 74.414, 30.594, 0.312)
pt3dadd(108.538, 74.295, 30.608, 0.302)
pt3dadd(108.538, 74.177, 30.622, 0.294)
pt3dadd(108.538, 74.058, 30.636, 0.286)
pt3dadd(108.538, 73.939, 30.649, 0.276)
pt3dadd(108.538, 73.82, 30.663, 0.268)
pt3dadd(108.538, 73.701, 30.677, 0.258)
pt3dadd(108.538, 73.582, 30.691, 0.25)
pt3dadd(108.538, 73.463, 30.705, 0.242)
pt3dadd(108.538, 73.345, 30.718, 0.232)
pt3dadd(108.538, 73.226, 30.733, 0.226)
pt3dadd(108.537, 73.107, 30.748, 0.226)
pt3dadd(108.537, 72.989, 30.763, 0.226)
pt3dadd(108.537, 72.87, 30.778, 0.226)
pt3dadd(108.537, 72.751, 30.793, 0.226)
pt3dadd(108.537, 72.633, 30.808, 0.226)
pt3dadd(108.537, 72.514, 30.823, 0.226)
pt3dadd(108.537, 72.395, 30.838, 0.226)
pt3dadd(108.537, 72.277, 30.853, 0.226)
pt3dadd(108.537, 72.158, 30.868, 0.226)
pt3dadd(108.536, 72.042, 30.89, 0.226)
pt3dadd(108.536, 71.931, 30.928, 0.226)
pt3dadd(108.536, 71.82, 30.966, 0.226)
pt3dadd(108.536, 71.709, 31.004, 0.226)
pt3dadd(108.536, 71.598, 31.042, 0.226)
pt3dadd(108.536, 71.486, 31.079, 0.226)
pt3dadd(108.536, 71.375, 31.117, 0.226)
pt3dadd(108.536, 71.264, 31.155, 0.226)
pt3dadd(108.536, 71.153, 31.193, 0.226)
pt3dadd(108.536, 71.042, 31.231, 0.226)
pt3dadd(108.536, 70.93, 31.267, 0.232)
pt3dadd(108.536, 70.817, 31.299, 0.25)
pt3dadd(108.536, 70.703, 31.332, 0.268)
pt3dadd(108.536, 70.59, 31.364, 0.286)
pt3dadd(108.536, 70.476, 31.397, 0.304)
pt3dadd(108.536, 70.363, 31.43, 0.322)
pt3dadd(108.536, 70.249, 31.462, 0.34)
pt3dadd(108.536, 70.136, 31.495, 0.358)
pt3dadd(108.536, 70.023, 31.527, 0.378)
pt3dadd(108.536, 69.909, 31.56, 0.396)
pt3dadd(108.536, 69.795, 31.59, 0.422)
pt3dadd(108.536, 69.679, 31.616, 0.464)
pt3dadd(108.536, 69.563, 31.641, 0.506)
pt3dadd(108.536, 69.447, 31.667, 0.548)
pt3dadd(108.536, 69.331, 31.692, 0.59)
pt3dadd(108.536, 69.215, 31.718, 0.632)
pt3dadd(108.536, 69.099, 31.743, 0.674)
pt3dadd(108.536, 68.983, 31.769, 0.716)
pt3dadd(108.535, 68.867, 31.795, 0.758)
pt3dadd(108.535, 68.751, 31.82, 0.8)
pt3dadd(108.535, 68.634, 31.843, 0.826)
pt3dadd(108.535, 68.515, 31.859, 0.822)
pt3dadd(108.535, 68.397, 31.876, 0.818)
pt3dadd(108.534, 68.279, 31.892, 0.814)
pt3dadd(108.534, 68.16, 31.909, 0.81)
pt3dadd(108.534, 68.042, 31.926, 0.806)
pt3dadd(108.534, 67.924, 31.942, 0.802)
pt3dadd(108.533, 67.805, 31.959, 0.798)
pt3dadd(108.533, 67.687, 31.975, 0.794)
pt3dadd(108.533, 67.569, 31.992, 0.79)
pt3dadd(108.533, 67.45, 32.007, 0.78)
pt3dadd(108.532, 67.331, 32.02, 0.764)
pt3dadd(108.532, 67.212, 32.034, 0.746)
pt3dadd(108.532, 67.093, 32.047, 0.728)
pt3dadd(108.532, 66.974, 32.06, 0.71)
pt3dadd(108.531, 66.855, 32.073, 0.692)
pt3dadd(108.531, 66.736, 32.086, 0.674)
pt3dadd(108.531, 66.618, 32.099, 0.656)
pt3dadd(108.531, 66.498, 32.112, 0.638)
pt3dadd(108.531, 66.38, 32.125, 0.62)
pt3dadd(108.53, 66.26, 32.137, 0.598)
pt3dadd(108.53, 66.141, 32.145, 0.57)
pt3dadd(108.529, 66.021, 32.154, 0.542)
pt3dadd(108.529, 65.902, 32.163, 0.512)
pt3dadd(108.528, 65.782, 32.171, 0.484)
pt3dadd(108.528, 65.663, 32.18, 0.454)
pt3dadd(108.527, 65.543, 32.188, 0.426)
pt3dadd(108.527, 65.424, 32.197, 0.398)
pt3dadd(108.526, 65.304, 32.206, 0.368)
pt3dadd(108.526, 65.184, 32.214, 0.34)
pt3dadd(108.525, 65.065, 32.224, 0.324)
pt3dadd(108.525, 64.946, 32.237, 0.334)
pt3dadd(108.524, 64.827, 32.25, 0.344)
pt3dadd(108.523, 64.708, 32.262, 0.354)
pt3dadd(108.522, 64.589, 32.275, 0.364)
pt3dadd(108.522, 64.47, 32.288, 0.372)
pt3dadd(108.521, 64.351, 32.3, 0.382)
pt3dadd(108.52, 64.232, 32.313, 0.392)
pt3dadd(108.52, 64.113, 32.326, 0.402)
pt3dadd(108.519, 63.994, 32.339, 0.412)
pt3dadd(108.518, 63.875, 32.353, 0.426)
pt3dadd(108.517, 63.757, 32.37, 0.45)
pt3dadd(108.516, 63.639, 32.388, 0.474)
pt3dadd(108.515, 63.521, 32.405, 0.498)
pt3dadd(108.514, 63.402, 32.423, 0.522)
pt3dadd(108.513, 63.284, 32.44, 0.544)
pt3dadd(108.512, 63.166, 32.458, 0.568)
pt3dadd(108.511, 63.048, 32.475, 0.592)
pt3dadd(108.51, 62.93, 32.493, 0.616)
pt3dadd(108.509, 62.812, 32.51, 0.64)
pt3dadd(108.508, 62.697, 32.538, 0.644)
pt3dadd(108.506, 62.589, 32.581, 0.618)
pt3dadd(108.504, 62.481, 32.624, 0.592)
pt3dadd(108.502, 62.373, 32.667, 0.564)
pt3dadd(108.5, 62.265, 32.71, 0.54)
pt3dadd(108.498, 62.156, 32.754, 0.512)
pt3dadd(108.497, 62.048, 32.797, 0.486)
pt3dadd(108.495, 61.94, 32.84, 0.46)
pt3dadd(108.493, 61.832, 32.883, 0.434)
pt3dadd(108.491, 61.723, 32.926, 0.408)
pt3dadd(108.489, 61.615, 32.968, 0.394)
pt3dadd(108.486, 61.505, 33.009, 0.396)
pt3dadd(108.483, 61.395, 33.049, 0.4)
pt3dadd(108.481, 61.286, 33.09, 0.402)
pt3dadd(108.478, 61.176, 33.13, 0.406)
pt3dadd(108.475, 61.066, 33.171, 0.408)
pt3dadd(108.473, 60.956, 33.211, 0.412)
pt3dadd(108.47, 60.847, 33.252, 0.414)
pt3dadd(108.467, 60.737, 33.292, 0.418)
pt3dadd(108.465, 60.627, 33.333, 0.42)
pt3dadd(108.462, 60.517, 33.371, 0.444)
pt3dadd(108.458, 60.405, 33.407, 0.498)
pt3dadd(108.454, 60.292, 33.442, 0.552)
pt3dadd(108.45, 60.18, 33.478, 0.606)
pt3dadd(108.446, 60.068, 33.513, 0.66)
pt3dadd(108.442, 59.956, 33.549, 0.714)
pt3dadd(108.438, 59.844, 33.585, 0.768)
pt3dadd(108.434, 59.732, 33.62, 0.822)
pt3dadd(108.43, 59.62, 33.656, 0.876)
pt3dadd(108.426, 59.508, 33.691, 0.93)
pt3dadd(108.421, 59.398, 33.73, 0.97)
pt3dadd(108.413, 59.29, 33.775, 0.986)
pt3dadd(108.406, 59.183, 33.819, 1.002)
pt3dadd(108.399, 59.076, 33.863, 1.02)
pt3dadd(108.391, 58.968, 33.907, 1.036)
pt3dadd(108.384, 58.861, 33.951, 1.054)
pt3dadd(108.377, 58.753, 33.996, 1.07)
pt3dadd(108.369, 58.646, 34.04, 1.086)
pt3dadd(108.362, 58.539, 34.084, 1.104)
pt3dadd(108.355, 58.431, 34.128, 1.12)
pt3dadd(108.347, 58.325, 34.174, 1.13)
pt3dadd(108.338, 58.22, 34.222, 1.13)
}
}
proc shape3d_131() {
dend_7[6] { pt3dadd(108.329, 58.115, 34.27, 1.13)
pt3dadd(108.32, 58.01, 34.318, 1.13)
pt3dadd(108.311, 57.905, 34.366, 1.13)
pt3dadd(108.302, 57.8, 34.414, 1.13)
pt3dadd(108.293, 57.695, 34.461, 1.13)
pt3dadd(108.284, 57.59, 34.509, 1.13)
pt3dadd(108.275, 57.485, 34.557, 1.13)
pt3dadd(108.266, 57.38, 34.605, 1.13)
pt3dadd(108.254, 57.273, 34.647, 1.124)
pt3dadd(108.238, 57.16, 34.68, 1.112)
pt3dadd(108.222, 57.048, 34.713, 1.1)
pt3dadd(108.206, 56.936, 34.746, 1.088)
pt3dadd(108.19, 56.824, 34.779, 1.076)
pt3dadd(108.174, 56.712, 34.812, 1.064)
pt3dadd(108.159, 56.6, 34.845, 1.05)
pt3dadd(108.143, 56.487, 34.878, 1.038)
pt3dadd(108.127, 56.375, 34.911, 1.026)
pt3dadd(108.111, 56.263, 34.944, 1.014)
pt3dadd(108.091, 56.151, 34.976, 1.004)
pt3dadd(108.066, 56.039, 35.005, 0.996)
pt3dadd(108.041, 55.927, 35.035, 0.99)
pt3dadd(108.016, 55.815, 35.065, 0.982)
pt3dadd(107.992, 55.704, 35.094, 0.974)
pt3dadd(107.967, 55.592, 35.124, 0.968)
pt3dadd(107.942, 55.48, 35.153, 0.96)
pt3dadd(107.917, 55.368, 35.183, 0.954)
pt3dadd(107.892, 55.256, 35.213, 0.946)
pt3dadd(107.867, 55.144, 35.242, 0.938)
pt3dadd(107.829, 55.036, 35.269, 0.942)
pt3dadd(107.779, 54.93, 35.292, 0.954)
pt3dadd(107.729, 54.825, 35.315, 0.966)
pt3dadd(107.679, 54.719, 35.338, 0.98)
pt3dadd(107.628, 54.614, 35.361, 0.992)
pt3dadd(107.578, 54.508, 35.384, 1.006)
pt3dadd(107.528, 54.403, 35.407, 1.018)
pt3dadd(107.478, 54.298, 35.43, 1.03)
pt3dadd(107.428, 54.192, 35.453, 1.044)
pt3dadd(107.378, 54.087, 35.476, 1.056)
pt3dadd(107.33, 53.982, 35.504, 1.066)
pt3dadd(107.286, 53.877, 35.536, 1.072)
pt3dadd(107.241, 53.772, 35.567, 1.08)
pt3dadd(107.196, 53.668, 35.599, 1.086)
pt3dadd(107.152, 53.563, 35.631, 1.092)
pt3dadd(107.107, 53.458, 35.663, 1.1)
pt3dadd(107.063, 53.354, 35.695, 1.106)
pt3dadd(107.018, 53.249, 35.726, 1.114)
pt3dadd(106.973, 53.145, 35.758, 1.12)
pt3dadd(106.929, 53.04, 35.79, 1.128)
pt3dadd(106.888, 52.936, 35.827, 1.13)
pt3dadd(106.85, 52.834, 35.869, 1.13)
pt3dadd(106.812, 52.732, 35.91, 1.13)
pt3dadd(106.773, 52.629, 35.951, 1.13)
pt3dadd(106.735, 52.527, 35.993, 1.13)
pt3dadd(106.697, 52.425, 36.034, 1.13)
pt3dadd(106.659, 52.322, 36.076, 1.13)
pt3dadd(106.621, 52.22, 36.117, 1.13)
pt3dadd(106.583, 52.117, 36.159, 1.13)
pt3dadd(106.545, 52.015, 36.2, 1.13)
pt3dadd(106.502, 51.913, 36.238, 1.112)
pt3dadd(106.454, 51.812, 36.274, 1.082)
pt3dadd(106.406, 51.711, 36.31, 1.05)
pt3dadd(106.358, 51.609, 36.346, 1.02)
pt3dadd(106.311, 51.508, 36.382, 0.988)
pt3dadd(106.263, 51.407, 36.418, 0.958)
pt3dadd(106.215, 51.306, 36.454, 0.928)
pt3dadd(106.167, 51.204, 36.49, 0.896)
pt3dadd(106.12, 51.103, 36.526, 0.866)
pt3dadd(106.072, 51.002, 36.562, 0.834)
pt3dadd(106.021, 50.901, 36.596, 0.794)
pt3dadd(105.968, 50.801, 36.629, 0.744)
pt3dadd(105.915, 50.701, 36.661, 0.696)
pt3dadd(105.861, 50.601, 36.694, 0.648)
pt3dadd(105.808, 50.5, 36.727, 0.6)
pt3dadd(105.755, 50.4, 36.759, 0.552)
pt3dadd(105.702, 50.3, 36.792, 0.504)
pt3dadd(105.649, 50.2, 36.825, 0.454)
pt3dadd(105.596, 50.1, 36.858, 0.406)
pt3dadd(105.542, 50, 36.89, 0.358)
pt3dadd(105.5, 49.899, 36.931, 0.348)
pt3dadd(105.466, 49.798, 36.976, 0.366)
pt3dadd(105.431, 49.696, 37.021, 0.382)
pt3dadd(105.397, 49.595, 37.067, 0.398)
pt3dadd(105.362, 49.494, 37.112, 0.416)
pt3dadd(105.328, 49.393, 37.158, 0.432)
pt3dadd(105.293, 49.292, 37.203, 0.45)
pt3dadd(105.259, 49.19, 37.248, 0.466)
pt3dadd(105.224, 49.089, 37.294, 0.482)
pt3dadd(105.189, 48.988, 37.339, 0.5)
pt3dadd(105.159, 48.887, 37.387, 0.53)
pt3dadd(105.13, 48.786, 37.436, 0.566)
pt3dadd(105.101, 48.686, 37.484, 0.602)
pt3dadd(105.072, 48.585, 37.533, 0.638)
pt3dadd(105.044, 48.484, 37.582, 0.676)
pt3dadd(105.015, 48.384, 37.631, 0.712)
pt3dadd(104.986, 48.283, 37.68, 0.748)
pt3dadd(104.957, 48.182, 37.729, 0.784)
pt3dadd(104.928, 48.082, 37.777, 0.822)
pt3dadd(104.9, 47.981, 37.826, 0.858)
pt3dadd(104.875, 47.874, 37.866, 0.856)
pt3dadd(104.852, 47.764, 37.901, 0.836)
pt3dadd(104.829, 47.654, 37.936, 0.814)
pt3dadd(104.806, 47.544, 37.971, 0.794)
pt3dadd(104.783, 47.434, 38.006, 0.772)
pt3dadd(104.76, 47.324, 38.041, 0.752)
pt3dadd(104.737, 47.214, 38.076, 0.732)
pt3dadd(104.714, 47.104, 38.111, 0.71)
pt3dadd(104.691, 46.994, 38.146, 0.69)
pt3dadd(104.668, 46.884, 38.181, 0.668)
pt3dadd(104.646, 46.774, 38.217, 0.648)
pt3dadd(104.625, 46.664, 38.253, 0.626)
pt3dadd(104.604, 46.554, 38.289, 0.606)
pt3dadd(104.583, 46.445, 38.326, 0.584)
pt3dadd(104.562, 46.335, 38.362, 0.564)
pt3dadd(104.541, 46.225, 38.398, 0.542)
pt3dadd(104.519, 46.115, 38.434, 0.522)
pt3dadd(104.498, 46.005, 38.47, 0.5)
pt3dadd(104.477, 45.895, 38.506, 0.48)
pt3dadd(104.456, 45.785, 38.542, 0.458)
pt3dadd(104.438, 45.678, 38.584, 0.452)
pt3dadd(104.421, 45.573, 38.63, 0.452)
pt3dadd(104.404, 45.467, 38.675, 0.452)
pt3dadd(104.387, 45.361, 38.72, 0.452)
pt3dadd(104.37, 45.255, 38.765, 0.452)
pt3dadd(104.353, 45.15, 38.81, 0.452)
pt3dadd(104.336, 45.044, 38.855, 0.452)
pt3dadd(104.319, 44.938, 38.9, 0.452)
pt3dadd(104.302, 44.832, 38.946, 0.452)
pt3dadd(104.285, 44.727, 38.991, 0.452)
pt3dadd(104.257, 44.62, 39.029, 0.46)
pt3dadd(104.224, 44.513, 39.064, 0.472)
pt3dadd(104.19, 44.405, 39.1, 0.482)
pt3dadd(104.157, 44.298, 39.135, 0.494)
pt3dadd(104.124, 44.191, 39.17, 0.506)
pt3dadd(104.09, 44.084, 39.205, 0.518)
pt3dadd(104.057, 43.976, 39.241, 0.528)
pt3dadd(104.024, 43.869, 39.276, 0.54)
pt3dadd(103.99, 43.762, 39.311, 0.552)
pt3dadd(103.957, 43.655, 39.346, 0.564)
pt3dadd(103.907, 43.55, 39.37, 0.586)
pt3dadd(103.855, 43.445, 39.392, 0.612)
pt3dadd(103.802, 43.34, 39.413, 0.638)
pt3dadd(103.75, 43.235, 39.435, 0.662)
pt3dadd(103.697, 43.131, 39.456, 0.688)
pt3dadd(103.645, 43.026, 39.478, 0.714)
pt3dadd(103.593, 42.921, 39.5, 0.738)
pt3dadd(103.54, 42.816, 39.521, 0.764)
pt3dadd(103.488, 42.711, 39.543, 0.79)
pt3dadd(103.435, 42.607, 39.564, 0.814)
pt3dadd(103.386, 42.499, 39.579, 0.802)
pt3dadd(103.336, 42.391, 39.593, 0.786)
pt3dadd(103.287, 42.283, 39.608, 0.768)
pt3dadd(103.238, 42.175, 39.622, 0.75)
pt3dadd(103.188, 42.067, 39.636, 0.732)
pt3dadd(103.139, 41.959, 39.65, 0.714)
pt3dadd(103.09, 41.85, 39.664, 0.696)
pt3dadd(103.04, 41.742, 39.678, 0.678)
pt3dadd(102.991, 41.634, 39.692, 0.662)
pt3dadd(102.942, 41.526, 39.706, 0.644)
pt3dadd(102.894, 41.417, 39.717, 0.606)
pt3dadd(102.846, 41.307, 39.727, 0.566)
pt3dadd(102.799, 41.198, 39.737, 0.526)
pt3dadd(102.751, 41.088, 39.747, 0.488)
pt3dadd(102.703, 40.979, 39.757, 0.448)
pt3dadd(102.656, 40.87, 39.767, 0.408)
pt3dadd(102.608, 40.76, 39.778, 0.368)
pt3dadd(102.561, 40.651, 39.788, 0.328)
pt3dadd(102.513, 40.541, 39.798, 0.288)
pt3dadd(102.465, 40.432, 39.808, 0.248)
pt3dadd(102.404, 40.329, 39.81, 0.242)
pt3dadd(102.34, 40.227, 39.81, 0.24)
pt3dadd(102.276, 40.126, 39.811, 0.238)
pt3dadd(102.213, 40.024, 39.811, 0.236)
pt3dadd(102.149, 39.922, 39.812, 0.236)
pt3dadd(102.085, 39.82, 39.812, 0.234)
pt3dadd(102.022, 39.719, 39.813, 0.232)
pt3dadd(101.958, 39.617, 39.813, 0.23)
pt3dadd(101.894, 39.515, 39.813, 0.228)
pt3dadd(101.831, 39.413, 39.814, 0.226)
pt3dadd(101.766, 39.312, 39.814, 0.226)
pt3dadd(101.702, 39.211, 39.814, 0.226)
pt3dadd(101.638, 39.11, 39.814, 0.226)
pt3dadd(101.573, 39.009, 39.814, 0.226)
pt3dadd(101.509, 38.907, 39.814, 0.226)
pt3dadd(101.444, 38.806, 39.814, 0.226)
pt3dadd(101.38, 38.705, 39.814, 0.226)
pt3dadd(101.315, 38.604, 39.814, 0.226)
pt3dadd(101.251, 38.502, 39.814, 0.226)
pt3dadd(101.186, 38.401, 39.814, 0.226)
pt3dadd(101.121, 38.301, 39.814, 0.226)
pt3dadd(101.055, 38.2, 39.814, 0.226)
pt3dadd(100.99, 38.1, 39.814, 0.226)
pt3dadd(100.924, 37.999, 39.814, 0.226)
pt3dadd(100.859, 37.898, 39.814, 0.226)
pt3dadd(100.793, 37.798, 39.814, 0.226)
pt3dadd(100.728, 37.697, 39.814, 0.226)
pt3dadd(100.662, 37.597, 39.814, 0.226)
pt3dadd(100.597, 37.496, 39.814, 0.226)
pt3dadd(100.531, 37.396, 39.814, 0.226)
pt3dadd(100.471, 37.292, 39.814, 0.226)
pt3dadd(100.411, 37.188, 39.814, 0.226)
}
}
proc shape3d_132() {
dend_7[6] { pt3dadd(100.351, 37.084, 39.814, 0.226)
pt3dadd(100.291, 36.98, 39.814, 0.226)
pt3dadd(100.231, 36.876, 39.814, 0.226)
pt3dadd(100.171, 36.772, 39.814, 0.226)
pt3dadd(100.112, 36.668, 39.814, 0.226)
pt3dadd(100.052, 36.564, 39.814, 0.226)
pt3dadd(99.992, 36.46, 39.814, 0.226)
pt3dadd(99.932, 36.356, 39.814, 0.226)
pt3dadd(99.887, 36.245, 39.814, 0.226)
pt3dadd(99.843, 36.133, 39.814, 0.226)
pt3dadd(99.8, 36.021, 39.814, 0.226)
pt3dadd(99.756, 35.91, 39.814, 0.226)
pt3dadd(99.712, 35.798, 39.814, 0.226)
pt3dadd(99.669, 35.686, 39.814, 0.226)
pt3dadd(99.625, 35.574, 39.814, 0.226)
pt3dadd(99.581, 35.463, 39.814, 0.226)
pt3dadd(99.538, 35.351, 39.814, 0.226)
pt3dadd(99.494, 35.239, 39.814, 0.226)
pt3dadd(99.472, 35.121, 39.814, 0.226)
pt3dadd(99.452, 35.003, 39.814, 0.226)
pt3dadd(99.431, 34.885, 39.814, 0.226)
pt3dadd(99.411, 34.766, 39.814, 0.226)
pt3dadd(99.391, 34.648, 39.814, 0.226)
pt3dadd(99.37, 34.53, 39.814, 0.226)
pt3dadd(99.35, 34.412, 39.814, 0.226)
pt3dadd(99.33, 34.293, 39.814, 0.226)
pt3dadd(99.309, 34.175, 39.814, 0.226)
pt3dadd(99.289, 34.057, 39.814, 0.226)
pt3dadd(99.277, 33.937, 39.814, 0.226)
pt3dadd(99.265, 33.818, 39.814, 0.226)
pt3dadd(99.253, 33.699, 39.814, 0.226)
pt3dadd(99.241, 33.579, 39.814, 0.226)
pt3dadd(99.229, 33.46, 39.814, 0.226)
pt3dadd(99.217, 33.34, 39.814, 0.226)
pt3dadd(99.205, 33.221, 39.814, 0.226)
pt3dadd(99.193, 33.102, 39.814, 0.226)
pt3dadd(99.181, 32.982, 39.814, 0.226)
pt3dadd(99.169, 32.863, 39.814, 0.226)
}
dend_7[7] {pt3dclear()
pt3dadd(110.411, 87.764, 24.445, 1.808)
pt3dadd(110.379, 87.755, 24.441, 1.816)
pt3dadd(110.266, 87.72, 24.426, 1.844)
pt3dadd(110.152, 87.686, 24.411, 1.87)
pt3dadd(110.039, 87.652, 24.396, 1.898)
pt3dadd(109.925, 87.617, 24.382, 1.926)
pt3dadd(109.812, 87.583, 24.367, 1.952)
pt3dadd(109.698, 87.548, 24.352, 1.98)
pt3dadd(109.585, 87.514, 24.337, 2.008)
pt3dadd(109.471, 87.479, 24.322, 2.034)
pt3dadd(109.357, 87.445, 24.307, 2.062)
pt3dadd(109.254, 87.391, 24.294, 2.064)
pt3dadd(109.158, 87.319, 24.283, 2.042)
pt3dadd(109.063, 87.247, 24.271, 2.018)
pt3dadd(108.968, 87.175, 24.26, 1.996)
pt3dadd(108.873, 87.103, 24.248, 1.974)
pt3dadd(108.778, 87.032, 24.236, 1.95)
pt3dadd(108.683, 86.96, 24.225, 1.928)
pt3dadd(108.588, 86.888, 24.213, 1.906)
pt3dadd(108.493, 86.816, 24.202, 1.884)
pt3dadd(108.469, 86.702, 24.201, 1.776)
pt3dadd(108.453, 86.583, 24.201, 1.66)
pt3dadd(108.436, 86.464, 24.2, 1.542)
pt3dadd(108.42, 86.345, 24.2, 1.426)
pt3dadd(108.404, 86.226, 24.2, 1.31)
pt3dadd(108.387, 86.107, 24.2, 1.194)
pt3dadd(108.371, 85.988, 24.2, 1.078)
pt3dadd(108.355, 85.869, 24.2, 0.962)
pt3dadd(108.338, 85.751, 24.2, 0.846)
pt3dadd(108.322, 85.632, 24.2, 0.73)
pt3dadd(108.304, 85.513, 24.2, 0.698)
pt3dadd(108.285, 85.395, 24.2, 0.678)
pt3dadd(108.267, 85.276, 24.2, 0.656)
pt3dadd(108.249, 85.157, 24.2, 0.634)
pt3dadd(108.23, 85.039, 24.2, 0.614)
pt3dadd(108.212, 84.92, 24.2, 0.592)
pt3dadd(108.194, 84.802, 24.2, 0.57)
pt3dadd(108.175, 84.683, 24.2, 0.55)
pt3dadd(108.157, 84.564, 24.2, 0.528)
pt3dadd(108.139, 84.446, 24.2, 0.506)
pt3dadd(108.114, 84.328, 24.2, 0.534)
pt3dadd(108.089, 84.211, 24.2, 0.568)
pt3dadd(108.064, 84.094, 24.2, 0.602)
pt3dadd(108.038, 83.976, 24.2, 0.634)
pt3dadd(108.013, 83.859, 24.2, 0.668)
pt3dadd(107.988, 83.742, 24.2, 0.702)
pt3dadd(107.963, 83.624, 24.2, 0.734)
pt3dadd(107.937, 83.507, 24.2, 0.768)
pt3dadd(107.912, 83.39, 24.2, 0.802)
pt3dadd(107.887, 83.272, 24.2, 0.834)
pt3dadd(107.836, 83.164, 24.199, 0.798)
pt3dadd(107.784, 83.056, 24.199, 0.76)
pt3dadd(107.733, 82.947, 24.199, 0.72)
pt3dadd(107.681, 82.839, 24.199, 0.68)
pt3dadd(107.629, 82.731, 24.199, 0.64)
pt3dadd(107.577, 82.623, 24.199, 0.602)
pt3dadd(107.525, 82.515, 24.199, 0.562)
pt3dadd(107.473, 82.406, 24.199, 0.522)
pt3dadd(107.421, 82.298, 24.199, 0.484)
pt3dadd(107.37, 82.19, 24.199, 0.444)
pt3dadd(107.322, 82.08, 24.199, 0.428)
pt3dadd(107.274, 81.969, 24.199, 0.412)
pt3dadd(107.227, 81.859, 24.199, 0.396)
pt3dadd(107.18, 81.749, 24.199, 0.382)
pt3dadd(107.132, 81.639, 24.199, 0.366)
pt3dadd(107.085, 81.529, 24.198, 0.35)
pt3dadd(107.037, 81.418, 24.198, 0.334)
pt3dadd(106.99, 81.308, 24.198, 0.318)
pt3dadd(106.942, 81.198, 24.198, 0.304)
pt3dadd(106.895, 81.088, 24.198, 0.288)
pt3dadd(106.852, 80.976, 24.198, 0.3)
pt3dadd(106.81, 80.863, 24.198, 0.314)
pt3dadd(106.768, 80.751, 24.198, 0.328)
pt3dadd(106.726, 80.639, 24.198, 0.342)
pt3dadd(106.683, 80.526, 24.198, 0.356)
pt3dadd(106.641, 80.414, 24.197, 0.368)
pt3dadd(106.599, 80.302, 24.197, 0.382)
pt3dadd(106.557, 80.189, 24.197, 0.396)
pt3dadd(106.514, 80.077, 24.197, 0.41)
pt3dadd(106.472, 79.965, 24.197, 0.424)
pt3dadd(106.418, 79.858, 24.197, 0.446)
pt3dadd(106.364, 79.751, 24.196, 0.47)
pt3dadd(106.31, 79.644, 24.196, 0.494)
pt3dadd(106.255, 79.536, 24.196, 0.516)
pt3dadd(106.201, 79.429, 24.196, 0.54)
pt3dadd(106.147, 79.323, 24.195, 0.564)
pt3dadd(106.092, 79.215, 24.195, 0.586)
pt3dadd(106.038, 79.108, 24.195, 0.61)
pt3dadd(105.984, 79.001, 24.195, 0.634)
pt3dadd(105.93, 78.894, 24.194, 0.656)
pt3dadd(105.873, 78.789, 24.194, 0.68)
pt3dadd(105.817, 78.683, 24.194, 0.704)
pt3dadd(105.76, 78.577, 24.194, 0.728)
pt3dadd(105.704, 78.471, 24.193, 0.752)
pt3dadd(105.648, 78.365, 24.193, 0.776)
pt3dadd(105.591, 78.259, 24.193, 0.8)
pt3dadd(105.535, 78.153, 24.193, 0.824)
pt3dadd(105.478, 78.047, 24.192, 0.85)
pt3dadd(105.422, 77.941, 24.192, 0.874)
pt3dadd(105.365, 77.835, 24.192, 0.896)
pt3dadd(105.33, 77.721, 24.191, 0.882)
pt3dadd(105.295, 77.606, 24.19, 0.868)
pt3dadd(105.26, 77.491, 24.19, 0.854)
pt3dadd(105.225, 77.376, 24.189, 0.84)
pt3dadd(105.19, 77.262, 24.189, 0.826)
pt3dadd(105.155, 77.147, 24.188, 0.812)
pt3dadd(105.12, 77.032, 24.187, 0.798)
pt3dadd(105.085, 76.917, 24.187, 0.782)
pt3dadd(105.05, 76.803, 24.186, 0.768)
pt3dadd(105.015, 76.688, 24.185, 0.754)
pt3dadd(104.983, 76.572, 24.184, 0.732)
pt3dadd(104.951, 76.456, 24.183, 0.71)
pt3dadd(104.919, 76.341, 24.182, 0.688)
pt3dadd(104.887, 76.225, 24.181, 0.666)
pt3dadd(104.855, 76.11, 24.18, 0.644)
pt3dadd(104.823, 75.994, 24.179, 0.622)
pt3dadd(104.791, 75.878, 24.178, 0.6)
pt3dadd(104.759, 75.762, 24.177, 0.578)
pt3dadd(104.727, 75.647, 24.176, 0.556)
pt3dadd(104.695, 75.531, 24.175, 0.534)
pt3dadd(104.667, 75.415, 24.174, 0.502)
pt3dadd(104.638, 75.298, 24.172, 0.472)
pt3dadd(104.61, 75.181, 24.17, 0.442)
pt3dadd(104.582, 75.065, 24.169, 0.41)
pt3dadd(104.554, 74.948, 24.167, 0.38)
pt3dadd(104.525, 74.832, 24.166, 0.348)
pt3dadd(104.497, 74.715, 24.165, 0.318)
pt3dadd(104.469, 74.598, 24.163, 0.288)
pt3dadd(104.44, 74.482, 24.162, 0.256)
pt3dadd(104.412, 74.365, 24.16, 0.226)
}
dend_7[8] {pt3dclear()
pt3dadd(104.412, 74.365, 24.16, 0.226)
pt3dadd(104.408, 74.348, 24.16, 0.234)
pt3dadd(104.379, 74.232, 24.156, 0.282)
pt3dadd(104.35, 74.116, 24.153, 0.332)
pt3dadd(104.321, 73.999, 24.15, 0.38)
pt3dadd(104.292, 73.883, 24.147, 0.43)
pt3dadd(104.263, 73.766, 24.143, 0.48)
pt3dadd(104.234, 73.65, 24.14, 0.528)
pt3dadd(104.205, 73.534, 24.137, 0.578)
pt3dadd(104.176, 73.417, 24.134, 0.626)
pt3dadd(104.131, 73.307, 24.129, 0.65)
pt3dadd(104.071, 73.204, 24.122, 0.648)
pt3dadd(104.011, 73.1, 24.116, 0.646)
pt3dadd(103.951, 72.996, 24.11, 0.644)
pt3dadd(103.891, 72.893, 24.104, 0.642)
pt3dadd(103.831, 72.789, 24.097, 0.642)
pt3dadd(103.771, 72.686, 24.091, 0.64)
pt3dadd(103.711, 72.582, 24.084, 0.638)
pt3dadd(103.651, 72.478, 24.078, 0.636)
pt3dadd(103.591, 72.375, 24.072, 0.634)
pt3dadd(103.504, 72.293, 24.062, 0.596)
pt3dadd(103.415, 72.214, 24.053, 0.554)
pt3dadd(103.326, 72.134, 24.043, 0.514)
pt3dadd(103.237, 72.054, 24.033, 0.474)
pt3dadd(103.149, 71.974, 24.024, 0.432)
pt3dadd(103.06, 71.895, 24.014, 0.392)
pt3dadd(102.971, 71.815, 24.004, 0.35)
pt3dadd(102.882, 71.735, 23.995, 0.31)
pt3dadd(102.793, 71.655, 23.985, 0.27)
pt3dadd(102.704, 71.575, 23.975, 0.228)
pt3dadd(102.612, 71.499, 23.964, 0.226)
pt3dadd(102.52, 71.424, 23.952, 0.226)
}
}
proc shape3d_133() {
dend_7[8] { pt3dadd(102.428, 71.348, 23.941, 0.226)
pt3dadd(102.336, 71.272, 23.929, 0.226)
pt3dadd(102.245, 71.196, 23.918, 0.226)
pt3dadd(102.153, 71.12, 23.906, 0.226)
pt3dadd(102.061, 71.044, 23.895, 0.226)
pt3dadd(101.969, 70.968, 23.883, 0.226)
pt3dadd(101.877, 70.893, 23.871, 0.226)
pt3dadd(101.785, 70.817, 23.86, 0.226)
pt3dadd(101.698, 70.745, 23.825, 0.258)
pt3dadd(101.611, 70.674, 23.789, 0.294)
pt3dadd(101.525, 70.604, 23.753, 0.33)
pt3dadd(101.438, 70.533, 23.718, 0.364)
pt3dadd(101.351, 70.462, 23.682, 0.4)
pt3dadd(101.265, 70.391, 23.646, 0.434)
pt3dadd(101.178, 70.32, 23.61, 0.47)
pt3dadd(101.091, 70.249, 23.574, 0.504)
pt3dadd(101.005, 70.178, 23.538, 0.54)
pt3dadd(100.918, 70.107, 23.502, 0.574)
pt3dadd(100.835, 70.034, 23.463, 0.602)
pt3dadd(100.752, 69.961, 23.425, 0.632)
pt3dadd(100.669, 69.888, 23.386, 0.662)
pt3dadd(100.585, 69.815, 23.348, 0.69)
pt3dadd(100.502, 69.741, 23.309, 0.72)
pt3dadd(100.419, 69.668, 23.271, 0.748)
pt3dadd(100.336, 69.595, 23.232, 0.778)
pt3dadd(100.253, 69.522, 23.194, 0.806)
pt3dadd(100.169, 69.449, 23.155, 0.836)
pt3dadd(100.086, 69.375, 23.119, 0.858)
pt3dadd(100.004, 69.292, 23.097, 0.844)
pt3dadd(99.921, 69.209, 23.074, 0.832)
pt3dadd(99.839, 69.126, 23.051, 0.818)
pt3dadd(99.756, 69.043, 23.029, 0.804)
pt3dadd(99.674, 68.96, 23.006, 0.792)
pt3dadd(99.591, 68.878, 22.983, 0.778)
pt3dadd(99.509, 68.795, 22.961, 0.764)
pt3dadd(99.426, 68.712, 22.938, 0.752)
pt3dadd(99.344, 68.629, 22.915, 0.738)
pt3dadd(99.261, 68.546, 22.894, 0.726)
pt3dadd(99.177, 68.462, 22.88, 0.722)
pt3dadd(99.093, 68.378, 22.866, 0.716)
pt3dadd(99.01, 68.294, 22.852, 0.712)
pt3dadd(98.926, 68.21, 22.838, 0.706)
pt3dadd(98.842, 68.125, 22.824, 0.702)
pt3dadd(98.758, 68.041, 22.81, 0.696)
pt3dadd(98.674, 67.957, 22.796, 0.692)
pt3dadd(98.59, 67.873, 22.782, 0.688)
pt3dadd(98.506, 67.789, 22.768, 0.682)
pt3dadd(98.422, 67.705, 22.755, 0.678)
pt3dadd(98.338, 67.62, 22.747, 0.678)
pt3dadd(98.254, 67.535, 22.738, 0.678)
pt3dadd(98.169, 67.45, 22.729, 0.678)
pt3dadd(98.085, 67.365, 22.72, 0.678)
pt3dadd(98.001, 67.281, 22.711, 0.678)
pt3dadd(97.917, 67.196, 22.702, 0.678)
pt3dadd(97.832, 67.111, 22.694, 0.678)
pt3dadd(97.748, 67.026, 22.685, 0.678)
pt3dadd(97.664, 66.942, 22.676, 0.678)
pt3dadd(97.579, 66.857, 22.668, 0.676)
pt3dadd(97.495, 66.772, 22.665, 0.662)
pt3dadd(97.41, 66.687, 22.662, 0.648)
pt3dadd(97.326, 66.601, 22.659, 0.634)
pt3dadd(97.242, 66.516, 22.656, 0.62)
pt3dadd(97.157, 66.431, 22.653, 0.608)
pt3dadd(97.073, 66.346, 22.65, 0.594)
pt3dadd(96.988, 66.261, 22.647, 0.58)
pt3dadd(96.904, 66.175, 22.644, 0.566)
pt3dadd(96.819, 66.09, 22.641, 0.552)
pt3dadd(96.735, 66.005, 22.639, 0.538)
pt3dadd(96.65, 65.92, 22.639, 0.516)
pt3dadd(96.566, 65.835, 22.639, 0.496)
pt3dadd(96.482, 65.749, 22.639, 0.476)
pt3dadd(96.397, 65.664, 22.639, 0.456)
pt3dadd(96.313, 65.579, 22.639, 0.434)
pt3dadd(96.228, 65.493, 22.639, 0.414)
pt3dadd(96.144, 65.408, 22.639, 0.394)
pt3dadd(96.059, 65.323, 22.639, 0.372)
pt3dadd(95.975, 65.238, 22.639, 0.352)
pt3dadd(95.891, 65.152, 22.639, 0.334)
pt3dadd(95.806, 65.067, 22.639, 0.322)
pt3dadd(95.722, 64.981, 22.638, 0.312)
pt3dadd(95.638, 64.896, 22.638, 0.3)
pt3dadd(95.554, 64.811, 22.638, 0.29)
pt3dadd(95.469, 64.725, 22.638, 0.278)
pt3dadd(95.385, 64.64, 22.638, 0.268)
pt3dadd(95.301, 64.554, 22.638, 0.256)
pt3dadd(95.217, 64.469, 22.638, 0.246)
pt3dadd(95.132, 64.383, 22.638, 0.234)
pt3dadd(95.048, 64.298, 22.638, 0.226)
pt3dadd(94.964, 64.212, 22.638, 0.226)
pt3dadd(94.88, 64.126, 22.638, 0.226)
pt3dadd(94.796, 64.041, 22.638, 0.226)
pt3dadd(94.712, 63.955, 22.638, 0.226)
pt3dadd(94.628, 63.869, 22.638, 0.226)
pt3dadd(94.544, 63.784, 22.638, 0.226)
pt3dadd(94.46, 63.698, 22.638, 0.226)
pt3dadd(94.376, 63.612, 22.638, 0.226)
pt3dadd(94.292, 63.527, 22.638, 0.226)
pt3dadd(94.208, 63.441, 22.638, 0.228)
pt3dadd(94.124, 63.355, 22.638, 0.236)
pt3dadd(94.041, 63.269, 22.638, 0.246)
pt3dadd(93.957, 63.183, 22.638, 0.254)
pt3dadd(93.873, 63.097, 22.637, 0.264)
pt3dadd(93.789, 63.011, 22.637, 0.272)
pt3dadd(93.705, 62.925, 22.637, 0.28)
pt3dadd(93.622, 62.839, 22.637, 0.29)
pt3dadd(93.538, 62.754, 22.637, 0.298)
pt3dadd(93.454, 62.668, 22.637, 0.308)
pt3dadd(93.371, 62.581, 22.637, 0.32)
pt3dadd(93.288, 62.495, 22.637, 0.352)
pt3dadd(93.205, 62.408, 22.637, 0.384)
pt3dadd(93.122, 62.321, 22.637, 0.416)
pt3dadd(93.039, 62.235, 22.637, 0.446)
pt3dadd(92.956, 62.148, 22.637, 0.478)
pt3dadd(92.873, 62.061, 22.637, 0.51)
pt3dadd(92.79, 61.974, 22.636, 0.54)
pt3dadd(92.707, 61.887, 22.636, 0.572)
pt3dadd(92.624, 61.801, 22.636, 0.604)
pt3dadd(92.541, 61.714, 22.636, 0.634)
pt3dadd(92.459, 61.627, 22.636, 0.66)
pt3dadd(92.376, 61.54, 22.636, 0.686)
pt3dadd(92.294, 61.453, 22.636, 0.712)
pt3dadd(92.211, 61.366, 22.636, 0.738)
pt3dadd(92.128, 61.279, 22.635, 0.764)
pt3dadd(92.046, 61.192, 22.635, 0.79)
pt3dadd(91.963, 61.105, 22.635, 0.816)
pt3dadd(91.88, 61.018, 22.635, 0.844)
pt3dadd(91.797, 60.931, 22.635, 0.87)
pt3dadd(91.715, 60.844, 22.635, 0.888)
pt3dadd(91.635, 60.754, 22.635, 0.878)
pt3dadd(91.555, 60.665, 22.634, 0.866)
pt3dadd(91.474, 60.576, 22.634, 0.856)
pt3dadd(91.394, 60.487, 22.634, 0.846)
pt3dadd(91.314, 60.398, 22.634, 0.834)
pt3dadd(91.233, 60.309, 22.634, 0.824)
pt3dadd(91.153, 60.219, 22.633, 0.812)
pt3dadd(91.073, 60.13, 22.633, 0.802)
pt3dadd(90.993, 60.041, 22.633, 0.792)
pt3dadd(90.912, 59.952, 22.633, 0.78)
pt3dadd(90.832, 59.863, 22.632, 0.77)
pt3dadd(90.752, 59.773, 22.632, 0.76)
pt3dadd(90.672, 59.684, 22.632, 0.75)
pt3dadd(90.592, 59.595, 22.632, 0.74)
pt3dadd(90.511, 59.505, 22.632, 0.73)
pt3dadd(90.431, 59.416, 22.631, 0.72)
pt3dadd(90.351, 59.327, 22.631, 0.71)
pt3dadd(90.271, 59.238, 22.631, 0.7)
pt3dadd(90.191, 59.148, 22.63, 0.69)
pt3dadd(90.111, 59.058, 22.63, 0.684)
pt3dadd(90.036, 58.965, 22.63, 0.694)
pt3dadd(89.96, 58.872, 22.629, 0.706)
pt3dadd(89.884, 58.779, 22.629, 0.718)
pt3dadd(89.809, 58.686, 22.628, 0.728)
pt3dadd(89.733, 58.593, 22.628, 0.74)
pt3dadd(89.657, 58.5, 22.627, 0.752)
pt3dadd(89.581, 58.407, 22.627, 0.762)
pt3dadd(89.506, 58.314, 22.626, 0.774)
pt3dadd(89.43, 58.22, 22.626, 0.786)
pt3dadd(89.355, 58.127, 22.625, 0.796)
pt3dadd(89.28, 58.033, 22.625, 0.808)
pt3dadd(89.205, 57.94, 22.624, 0.818)
pt3dadd(89.13, 57.846, 22.624, 0.828)
pt3dadd(89.055, 57.752, 22.623, 0.838)
pt3dadd(88.98, 57.659, 22.623, 0.85)
pt3dadd(88.905, 57.565, 22.622, 0.86)
pt3dadd(88.83, 57.471, 22.622, 0.87)
pt3dadd(88.755, 57.378, 22.621, 0.88)
pt3dadd(88.68, 57.284, 22.621, 0.892)
pt3dadd(88.61, 57.187, 22.62, 0.896)
pt3dadd(88.558, 57.079, 22.619, 0.884)
pt3dadd(88.506, 56.97, 22.617, 0.87)
pt3dadd(88.455, 56.862, 22.616, 0.858)
pt3dadd(88.403, 56.754, 22.615, 0.844)
pt3dadd(88.352, 56.646, 22.613, 0.83)
pt3dadd(88.3, 56.537, 22.612, 0.818)
pt3dadd(88.248, 56.429, 22.611, 0.804)
pt3dadd(88.197, 56.321, 22.609, 0.79)
pt3dadd(88.145, 56.212, 22.608, 0.778)
pt3dadd(88.095, 56.103, 22.607, 0.764)
pt3dadd(88.047, 55.993, 22.605, 0.75)
pt3dadd(88, 55.883, 22.603, 0.736)
pt3dadd(87.953, 55.773, 22.601, 0.724)
pt3dadd(87.906, 55.662, 22.599, 0.71)
pt3dadd(87.858, 55.552, 22.598, 0.696)
pt3dadd(87.811, 55.442, 22.596, 0.682)
pt3dadd(87.764, 55.331, 22.594, 0.668)
pt3dadd(87.717, 55.221, 22.592, 0.656)
pt3dadd(87.669, 55.111, 22.59, 0.642)
pt3dadd(87.624, 55, 22.588, 0.628)
pt3dadd(87.586, 54.886, 22.585, 0.614)
pt3dadd(87.548, 54.772, 22.583, 0.6)
pt3dadd(87.51, 54.659, 22.58, 0.586)
pt3dadd(87.472, 54.545, 22.577, 0.572)
pt3dadd(87.434, 54.431, 22.574, 0.558)
pt3dadd(87.396, 54.317, 22.571, 0.544)
pt3dadd(87.358, 54.204, 22.569, 0.528)
pt3dadd(87.32, 54.09, 22.566, 0.514)
pt3dadd(87.282, 53.976, 22.563, 0.5)
pt3dadd(87.24, 53.864, 22.559, 0.492)
pt3dadd(87.183, 53.759, 22.554, 0.508)
pt3dadd(87.126, 53.653, 22.548, 0.524)
}
}
proc shape3d_134() {
dend_7[8] { pt3dadd(87.069, 53.548, 22.543, 0.54)
pt3dadd(87.012, 53.442, 22.537, 0.556)
pt3dadd(86.956, 53.337, 22.531, 0.572)
pt3dadd(86.899, 53.231, 22.526, 0.588)
pt3dadd(86.842, 53.126, 22.52, 0.604)
pt3dadd(86.785, 53.02, 22.515, 0.62)
pt3dadd(86.728, 52.915, 22.509, 0.636)
pt3dadd(86.67, 52.81, 22.503, 0.654)
pt3dadd(86.606, 52.709, 22.497, 0.68)
pt3dadd(86.542, 52.607, 22.49, 0.704)
pt3dadd(86.479, 52.506, 22.483, 0.73)
pt3dadd(86.415, 52.405, 22.477, 0.756)
pt3dadd(86.351, 52.303, 22.47, 0.78)
pt3dadd(86.288, 52.202, 22.463, 0.806)
pt3dadd(86.224, 52.1, 22.457, 0.83)
pt3dadd(86.16, 51.999, 22.45, 0.856)
pt3dadd(86.097, 51.898, 22.443, 0.882)
pt3dadd(86.029, 51.8, 22.436, 0.896)
pt3dadd(85.949, 51.71, 22.426, 0.884)
pt3dadd(85.87, 51.621, 22.415, 0.872)
pt3dadd(85.791, 51.532, 22.405, 0.858)
pt3dadd(85.711, 51.443, 22.395, 0.846)
pt3dadd(85.632, 51.354, 22.385, 0.834)
pt3dadd(85.552, 51.265, 22.375, 0.822)
pt3dadd(85.473, 51.176, 22.365, 0.81)
pt3dadd(85.393, 51.086, 22.355, 0.796)
pt3dadd(85.314, 50.997, 22.345, 0.784)
pt3dadd(85.234, 50.909, 22.333, 0.774)
pt3dadd(85.154, 50.822, 22.315, 0.772)
pt3dadd(85.074, 50.735, 22.298, 0.768)
pt3dadd(84.994, 50.648, 22.28, 0.766)
pt3dadd(84.914, 50.561, 22.262, 0.762)
pt3dadd(84.834, 50.475, 22.245, 0.76)
pt3dadd(84.754, 50.388, 22.227, 0.756)
pt3dadd(84.674, 50.301, 22.21, 0.754)
pt3dadd(84.594, 50.214, 22.192, 0.75)
pt3dadd(84.514, 50.127, 22.174, 0.748)
pt3dadd(84.434, 50.045, 22.147, 0.758)
pt3dadd(84.356, 49.971, 22.103, 0.79)
pt3dadd(84.278, 49.897, 22.059, 0.822)
pt3dadd(84.199, 49.823, 22.015, 0.852)
pt3dadd(84.121, 49.749, 21.971, 0.884)
pt3dadd(84.042, 49.675, 21.927, 0.916)
pt3dadd(83.964, 49.601, 21.883, 0.948)
pt3dadd(83.886, 49.527, 21.839, 0.978)
pt3dadd(83.807, 49.453, 21.795, 1.01)
pt3dadd(83.729, 49.379, 21.751, 1.042)
pt3dadd(83.648, 49.304, 21.713, 1.056)
pt3dadd(83.563, 49.227, 21.684, 1.04)
pt3dadd(83.478, 49.15, 21.656, 1.026)
pt3dadd(83.392, 49.073, 21.627, 1.01)
pt3dadd(83.307, 48.996, 21.598, 0.996)
pt3dadd(83.222, 48.918, 21.57, 0.98)
pt3dadd(83.136, 48.841, 21.541, 0.966)
pt3dadd(83.051, 48.764, 21.512, 0.952)
pt3dadd(82.966, 48.687, 21.484, 0.936)
pt3dadd(82.881, 48.61, 21.455, 0.922)
pt3dadd(82.794, 48.533, 21.429, 0.904)
pt3dadd(82.707, 48.455, 21.407, 0.882)
pt3dadd(82.619, 48.378, 21.385, 0.86)
pt3dadd(82.532, 48.3, 21.362, 0.838)
pt3dadd(82.444, 48.222, 21.34, 0.818)
pt3dadd(82.357, 48.145, 21.318, 0.796)
pt3dadd(82.269, 48.067, 21.295, 0.774)
pt3dadd(82.182, 47.989, 21.273, 0.752)
pt3dadd(82.094, 47.912, 21.251, 0.73)
pt3dadd(82.007, 47.834, 21.229, 0.71)
pt3dadd(81.917, 47.757, 21.212, 0.702)
pt3dadd(81.826, 47.68, 21.201, 0.716)
pt3dadd(81.735, 47.603, 21.19, 0.728)
pt3dadd(81.644, 47.526, 21.18, 0.74)
pt3dadd(81.553, 47.449, 21.169, 0.752)
pt3dadd(81.462, 47.372, 21.158, 0.764)
pt3dadd(81.371, 47.295, 21.148, 0.776)
pt3dadd(81.279, 47.218, 21.137, 0.79)
pt3dadd(81.188, 47.141, 21.126, 0.802)
pt3dadd(81.097, 47.064, 21.115, 0.814)
pt3dadd(81.004, 46.989, 21.106, 0.82)
pt3dadd(80.908, 46.918, 21.098, 0.814)
pt3dadd(80.812, 46.847, 21.09, 0.81)
pt3dadd(80.716, 46.775, 21.082, 0.806)
pt3dadd(80.62, 46.704, 21.074, 0.802)
pt3dadd(80.524, 46.633, 21.066, 0.798)
pt3dadd(80.428, 46.561, 21.058, 0.794)
pt3dadd(80.332, 46.49, 21.05, 0.79)
pt3dadd(80.235, 46.419, 21.042, 0.786)
pt3dadd(80.139, 46.348, 21.034, 0.782)
pt3dadd(80.039, 46.283, 21.028, 0.76)
pt3dadd(79.934, 46.224, 21.026, 0.722)
pt3dadd(79.83, 46.166, 21.023, 0.686)
pt3dadd(79.725, 46.108, 21.021, 0.648)
pt3dadd(79.62, 46.049, 21.018, 0.61)
pt3dadd(79.515, 45.991, 21.016, 0.572)
pt3dadd(79.41, 45.933, 21.014, 0.534)
pt3dadd(79.305, 45.874, 21.011, 0.496)
pt3dadd(79.2, 45.816, 21.009, 0.458)
pt3dadd(79.096, 45.758, 21.006, 0.42)
pt3dadd(78.992, 45.698, 21.003, 0.392)
pt3dadd(78.889, 45.635, 20.998, 0.374)
pt3dadd(78.787, 45.573, 20.994, 0.356)
pt3dadd(78.685, 45.511, 20.99, 0.34)
pt3dadd(78.582, 45.449, 20.986, 0.322)
pt3dadd(78.48, 45.386, 20.981, 0.304)
pt3dadd(78.377, 45.324, 20.977, 0.288)
pt3dadd(78.275, 45.262, 20.973, 0.27)
pt3dadd(78.172, 45.199, 20.968, 0.252)
pt3dadd(78.07, 45.137, 20.964, 0.234)
pt3dadd(77.968, 45.073, 20.959, 0.226)
pt3dadd(77.868, 45.008, 20.953, 0.226)
pt3dadd(77.768, 44.942, 20.947, 0.226)
pt3dadd(77.668, 44.877, 20.941, 0.226)
pt3dadd(77.567, 44.811, 20.936, 0.226)
pt3dadd(77.467, 44.746, 20.93, 0.226)
pt3dadd(77.367, 44.68, 20.924, 0.226)
pt3dadd(77.266, 44.615, 20.918, 0.226)
pt3dadd(77.166, 44.549, 20.912, 0.226)
pt3dadd(77.066, 44.484, 20.906, 0.226)
pt3dadd(76.966, 44.417, 20.899, 0.23)
pt3dadd(76.867, 44.35, 20.891, 0.238)
pt3dadd(76.769, 44.282, 20.883, 0.246)
pt3dadd(76.67, 44.215, 20.875, 0.254)
pt3dadd(76.571, 44.147, 20.866, 0.262)
pt3dadd(76.473, 44.08, 20.858, 0.27)
pt3dadd(76.374, 44.012, 20.85, 0.278)
pt3dadd(76.275, 43.944, 20.842, 0.286)
pt3dadd(76.177, 43.877, 20.833, 0.294)
pt3dadd(76.078, 43.809, 20.825, 0.302)
pt3dadd(75.98, 43.741, 20.816, 0.312)
pt3dadd(75.882, 43.673, 20.807, 0.324)
pt3dadd(75.784, 43.604, 20.797, 0.336)
pt3dadd(75.686, 43.536, 20.788, 0.348)
pt3dadd(75.588, 43.467, 20.779, 0.358)
pt3dadd(75.49, 43.399, 20.769, 0.37)
pt3dadd(75.393, 43.33, 20.76, 0.382)
pt3dadd(75.295, 43.262, 20.75, 0.394)
pt3dadd(75.197, 43.193, 20.741, 0.406)
pt3dadd(75.099, 43.125, 20.732, 0.418)
pt3dadd(74.999, 43.063, 20.713, 0.43)
pt3dadd(74.898, 43.01, 20.684, 0.442)
pt3dadd(74.796, 42.956, 20.656, 0.454)
pt3dadd(74.694, 42.902, 20.628, 0.468)
pt3dadd(74.592, 42.848, 20.599, 0.48)
pt3dadd(74.491, 42.794, 20.571, 0.492)
pt3dadd(74.389, 42.74, 20.543, 0.504)
pt3dadd(74.287, 42.687, 20.514, 0.516)
pt3dadd(74.186, 42.633, 20.486, 0.528)
pt3dadd(74.084, 42.579, 20.458, 0.542)
pt3dadd(73.982, 42.528, 20.426, 0.554)
pt3dadd(73.88, 42.479, 20.392, 0.566)
pt3dadd(73.778, 42.431, 20.358, 0.578)
pt3dadd(73.677, 42.382, 20.324, 0.59)
pt3dadd(73.575, 42.333, 20.29, 0.602)
pt3dadd(73.473, 42.285, 20.257, 0.614)
pt3dadd(73.371, 42.236, 20.223, 0.628)
pt3dadd(73.269, 42.187, 20.189, 0.64)
pt3dadd(73.167, 42.139, 20.155, 0.652)
pt3dadd(73.065, 42.09, 20.121, 0.664)
pt3dadd(72.959, 42.047, 20.093, 0.67)
pt3dadd(72.848, 42.009, 20.07, 0.67)
pt3dadd(72.738, 41.97, 20.047, 0.672)
pt3dadd(72.628, 41.932, 20.024, 0.672)
pt3dadd(72.518, 41.893, 20, 0.674)
pt3dadd(72.408, 41.855, 19.977, 0.674)
pt3dadd(72.297, 41.816, 19.954, 0.676)
pt3dadd(72.187, 41.778, 19.931, 0.676)
pt3dadd(72.077, 41.739, 19.907, 0.676)
pt3dadd(71.967, 41.701, 19.884, 0.678)
pt3dadd(71.857, 41.659, 19.863, 0.676)
pt3dadd(71.748, 41.615, 19.844, 0.674)
pt3dadd(71.639, 41.57, 19.825, 0.67)
pt3dadd(71.53, 41.526, 19.806, 0.666)
pt3dadd(71.421, 41.482, 19.787, 0.664)
pt3dadd(71.312, 41.437, 19.768, 0.66)
pt3dadd(71.202, 41.393, 19.749, 0.658)
pt3dadd(71.093, 41.349, 19.73, 0.654)
pt3dadd(70.984, 41.304, 19.711, 0.652)
pt3dadd(70.875, 41.26, 19.692, 0.648)
pt3dadd(70.771, 41.203, 19.68, 0.638)
pt3dadd(70.669, 41.14, 19.671, 0.626)
pt3dadd(70.568, 41.077, 19.663, 0.614)
pt3dadd(70.466, 41.014, 19.654, 0.602)
pt3dadd(70.365, 40.951, 19.646, 0.588)
pt3dadd(70.263, 40.887, 19.638, 0.576)
pt3dadd(70.162, 40.824, 19.629, 0.564)
pt3dadd(70.06, 40.761, 19.621, 0.552)
pt3dadd(69.959, 40.698, 19.612, 0.54)
pt3dadd(69.857, 40.635, 19.604, 0.526)
pt3dadd(69.758, 40.567, 19.598, 0.514)
pt3dadd(69.661, 40.498, 19.594, 0.502)
pt3dadd(69.563, 40.428, 19.59, 0.49)
pt3dadd(69.465, 40.359, 19.586, 0.478)
pt3dadd(69.368, 40.289, 19.582, 0.466)
pt3dadd(69.27, 40.219, 19.579, 0.454)
pt3dadd(69.172, 40.15, 19.575, 0.442)
pt3dadd(69.075, 40.08, 19.571, 0.43)
pt3dadd(68.977, 40.011, 19.567, 0.418)
pt3dadd(68.879, 39.941, 19.563, 0.406)
pt3dadd(68.786, 39.866, 19.563, 0.394)
pt3dadd(68.694, 39.789, 19.565, 0.382)
pt3dadd(68.602, 39.711, 19.567, 0.372)
}
}
proc shape3d_135() {
dend_7[8] { pt3dadd(68.511, 39.634, 19.569, 0.36)
pt3dadd(68.419, 39.557, 19.571, 0.348)
pt3dadd(68.327, 39.479, 19.573, 0.338)
pt3dadd(68.236, 39.402, 19.575, 0.326)
pt3dadd(68.144, 39.324, 19.577, 0.314)
pt3dadd(68.052, 39.247, 19.579, 0.302)
pt3dadd(67.961, 39.17, 19.581, 0.292)
pt3dadd(67.87, 39.091, 19.584, 0.284)
pt3dadd(67.781, 39.011, 19.587, 0.278)
pt3dadd(67.692, 38.931, 19.591, 0.272)
pt3dadd(67.602, 38.851, 19.594, 0.264)
pt3dadd(67.513, 38.771, 19.597, 0.258)
pt3dadd(67.423, 38.691, 19.601, 0.252)
pt3dadd(67.334, 38.611, 19.604, 0.246)
pt3dadd(67.244, 38.531, 19.608, 0.24)
pt3dadd(67.155, 38.451, 19.611, 0.234)
pt3dadd(67.065, 38.372, 19.614, 0.228)
pt3dadd(66.978, 38.29, 19.619, 0.226)
pt3dadd(66.891, 38.207, 19.624, 0.226)
pt3dadd(66.805, 38.124, 19.629, 0.226)
pt3dadd(66.718, 38.041, 19.634, 0.226)
pt3dadd(66.631, 37.959, 19.639, 0.226)
pt3dadd(66.545, 37.876, 19.644, 0.226)
pt3dadd(66.458, 37.793, 19.649, 0.226)
pt3dadd(66.371, 37.71, 19.654, 0.226)
pt3dadd(66.285, 37.627, 19.659, 0.226)
pt3dadd(66.198, 37.545, 19.664, 0.226)
pt3dadd(66.107, 37.467, 19.67, 0.236)
pt3dadd(66.014, 37.391, 19.677, 0.248)
pt3dadd(65.921, 37.316, 19.685, 0.262)
pt3dadd(65.829, 37.24, 19.692, 0.274)
pt3dadd(65.736, 37.164, 19.699, 0.288)
pt3dadd(65.643, 37.089, 19.706, 0.302)
pt3dadd(65.55, 37.013, 19.713, 0.314)
pt3dadd(65.458, 36.937, 19.721, 0.328)
pt3dadd(65.365, 36.862, 19.728, 0.34)
pt3dadd(65.272, 36.786, 19.735, 0.354)
pt3dadd(65.175, 36.717, 19.744, 0.378)
pt3dadd(65.076, 36.65, 19.754, 0.406)
pt3dadd(64.977, 36.583, 19.764, 0.434)
pt3dadd(64.878, 36.516, 19.773, 0.46)
pt3dadd(64.78, 36.449, 19.783, 0.488)
pt3dadd(64.681, 36.381, 19.792, 0.516)
pt3dadd(64.582, 36.314, 19.802, 0.544)
pt3dadd(64.483, 36.247, 19.812, 0.572)
pt3dadd(64.384, 36.18, 19.821, 0.598)
pt3dadd(64.285, 36.113, 19.831, 0.626)
pt3dadd(64.205, 36.032, 19.858, 0.638)
pt3dadd(64.132, 35.946, 19.891, 0.642)
pt3dadd(64.059, 35.86, 19.925, 0.646)
pt3dadd(63.986, 35.774, 19.958, 0.65)
pt3dadd(63.912, 35.688, 19.992, 0.654)
pt3dadd(63.839, 35.601, 20.026, 0.66)
pt3dadd(63.766, 35.515, 20.059, 0.664)
pt3dadd(63.693, 35.429, 20.093, 0.668)
pt3dadd(63.619, 35.343, 20.126, 0.672)
pt3dadd(63.546, 35.257, 20.16, 0.678)
pt3dadd(63.476, 35.167, 20.191, 0.67)
pt3dadd(63.407, 35.077, 20.222, 0.662)
pt3dadd(63.337, 34.986, 20.253, 0.654)
pt3dadd(63.268, 34.896, 20.285, 0.646)
pt3dadd(63.198, 34.806, 20.316, 0.638)
pt3dadd(63.129, 34.715, 20.347, 0.628)
pt3dadd(63.059, 34.625, 20.378, 0.62)
pt3dadd(62.99, 34.534, 20.409, 0.612)
pt3dadd(62.92, 34.444, 20.44, 0.604)
pt3dadd(62.851, 34.354, 20.472, 0.594)
pt3dadd(62.778, 34.261, 20.489, 0.57)
pt3dadd(62.705, 34.168, 20.505, 0.542)
pt3dadd(62.631, 34.075, 20.521, 0.514)
pt3dadd(62.558, 33.981, 20.537, 0.486)
pt3dadd(62.485, 33.888, 20.554, 0.46)
pt3dadd(62.412, 33.795, 20.57, 0.432)
pt3dadd(62.339, 33.702, 20.586, 0.404)
pt3dadd(62.265, 33.609, 20.602, 0.376)
pt3dadd(62.192, 33.516, 20.618, 0.35)
pt3dadd(62.119, 33.423, 20.634, 0.322)
pt3dadd(62.046, 33.328, 20.64, 0.326)
pt3dadd(61.972, 33.234, 20.644, 0.334)
pt3dadd(61.899, 33.139, 20.648, 0.342)
pt3dadd(61.825, 33.044, 20.653, 0.35)
pt3dadd(61.752, 32.949, 20.657, 0.358)
pt3dadd(61.678, 32.855, 20.661, 0.366)
pt3dadd(61.605, 32.76, 20.666, 0.374)
pt3dadd(61.531, 32.665, 20.67, 0.382)
pt3dadd(61.458, 32.57, 20.674, 0.388)
pt3dadd(61.384, 32.476, 20.679, 0.396)
pt3dadd(61.311, 32.381, 20.677, 0.422)
pt3dadd(61.238, 32.285, 20.676, 0.448)
pt3dadd(61.165, 32.19, 20.674, 0.474)
pt3dadd(61.092, 32.095, 20.672, 0.5)
pt3dadd(61.018, 32, 20.67, 0.526)
pt3dadd(60.945, 31.905, 20.668, 0.552)
pt3dadd(60.872, 31.81, 20.667, 0.578)
pt3dadd(60.799, 31.715, 20.665, 0.604)
pt3dadd(60.726, 31.62, 20.663, 0.63)
pt3dadd(60.653, 31.525, 20.661, 0.656)
pt3dadd(60.589, 31.438, 20.618, 0.66)
pt3dadd(60.527, 31.353, 20.571, 0.662)
pt3dadd(60.464, 31.267, 20.524, 0.664)
pt3dadd(60.402, 31.181, 20.477, 0.666)
pt3dadd(60.339, 31.095, 20.431, 0.668)
pt3dadd(60.277, 31.01, 20.384, 0.67)
pt3dadd(60.214, 30.924, 20.337, 0.672)
pt3dadd(60.152, 30.838, 20.291, 0.674)
pt3dadd(60.089, 30.753, 20.244, 0.676)
pt3dadd(60.027, 30.666, 20.198, 0.678)
pt3dadd(59.981, 30.568, 20.154, 0.658)
pt3dadd(59.935, 30.471, 20.111, 0.638)
pt3dadd(59.889, 30.373, 20.068, 0.618)
pt3dadd(59.843, 30.275, 20.025, 0.598)
pt3dadd(59.797, 30.177, 19.982, 0.578)
pt3dadd(59.751, 30.079, 19.938, 0.558)
pt3dadd(59.705, 29.981, 19.895, 0.538)
pt3dadd(59.659, 29.883, 19.852, 0.518)
pt3dadd(59.613, 29.785, 19.809, 0.498)
pt3dadd(59.568, 29.686, 19.767, 0.478)
pt3dadd(59.529, 29.58, 19.733, 0.46)
pt3dadd(59.491, 29.473, 19.7, 0.44)
pt3dadd(59.452, 29.367, 19.666, 0.422)
pt3dadd(59.413, 29.261, 19.632, 0.404)
pt3dadd(59.375, 29.155, 19.598, 0.386)
pt3dadd(59.336, 29.049, 19.565, 0.368)
pt3dadd(59.297, 28.943, 19.531, 0.348)
pt3dadd(59.259, 28.837, 19.497, 0.33)
pt3dadd(59.22, 28.73, 19.463, 0.312)
pt3dadd(59.179, 28.624, 19.432, 0.302)
pt3dadd(59.128, 28.519, 19.409, 0.332)
pt3dadd(59.077, 28.414, 19.387, 0.36)
pt3dadd(59.025, 28.309, 19.364, 0.388)
pt3dadd(58.974, 28.204, 19.341, 0.416)
pt3dadd(58.923, 28.099, 19.319, 0.446)
pt3dadd(58.872, 27.994, 19.296, 0.474)
pt3dadd(58.821, 27.889, 19.274, 0.502)
pt3dadd(58.77, 27.784, 19.251, 0.532)
pt3dadd(58.719, 27.678, 19.228, 0.56)
pt3dadd(58.67, 27.573, 19.204, 0.582)
pt3dadd(58.629, 27.467, 19.172, 0.574)
pt3dadd(58.589, 27.36, 19.141, 0.566)
pt3dadd(58.548, 27.254, 19.109, 0.558)
pt3dadd(58.508, 27.147, 19.078, 0.55)
pt3dadd(58.468, 27.041, 19.046, 0.544)
pt3dadd(58.427, 26.934, 19.014, 0.536)
pt3dadd(58.387, 26.828, 18.983, 0.528)
pt3dadd(58.347, 26.721, 18.951, 0.52)
pt3dadd(58.306, 26.615, 18.92, 0.512)
pt3dadd(58.267, 26.508, 18.887, 0.5)
pt3dadd(58.233, 26.402, 18.851, 0.476)
pt3dadd(58.198, 26.295, 18.815, 0.45)
pt3dadd(58.163, 26.189, 18.779, 0.424)
pt3dadd(58.129, 26.082, 18.744, 0.398)
pt3dadd(58.094, 25.976, 18.708, 0.372)
pt3dadd(58.059, 25.869, 18.672, 0.346)
pt3dadd(58.025, 25.763, 18.636, 0.32)
pt3dadd(57.99, 25.656, 18.6, 0.296)
pt3dadd(57.955, 25.55, 18.564, 0.27)
pt3dadd(57.922, 25.442, 18.531, 0.25)
pt3dadd(57.894, 25.329, 18.506, 0.248)
pt3dadd(57.865, 25.217, 18.48, 0.244)
pt3dadd(57.837, 25.104, 18.455, 0.242)
pt3dadd(57.808, 24.992, 18.43, 0.24)
pt3dadd(57.78, 24.879, 18.405, 0.238)
pt3dadd(57.751, 24.766, 18.38, 0.236)
pt3dadd(57.723, 24.654, 18.354, 0.232)
pt3dadd(57.694, 24.541, 18.329, 0.23)
pt3dadd(57.666, 24.429, 18.304, 0.228)
pt3dadd(57.636, 24.316, 18.28, 0.228)
pt3dadd(57.603, 24.203, 18.259, 0.234)
pt3dadd(57.57, 24.091, 18.238, 0.24)
pt3dadd(57.538, 23.978, 18.217, 0.248)
pt3dadd(57.505, 23.866, 18.196, 0.254)
pt3dadd(57.472, 23.753, 18.175, 0.26)
pt3dadd(57.439, 23.64, 18.154, 0.268)
pt3dadd(57.406, 23.528, 18.133, 0.274)
pt3dadd(57.373, 23.415, 18.112, 0.28)
pt3dadd(57.34, 23.303, 18.091, 0.288)
pt3dadd(57.303, 23.191, 18.072, 0.3)
pt3dadd(57.255, 23.082, 18.06, 0.326)
pt3dadd(57.207, 22.973, 18.049, 0.352)
pt3dadd(57.16, 22.863, 18.037, 0.38)
pt3dadd(57.112, 22.754, 18.025, 0.406)
pt3dadd(57.064, 22.645, 18.013, 0.432)
pt3dadd(57.016, 22.536, 18.002, 0.458)
pt3dadd(56.969, 22.427, 17.99, 0.484)
pt3dadd(56.921, 22.318, 17.978, 0.51)
pt3dadd(56.873, 22.208, 17.966, 0.536)
pt3dadd(56.827, 22.098, 17.956, 0.556)
pt3dadd(56.784, 21.987, 17.948, 0.552)
pt3dadd(56.741, 21.875, 17.941, 0.55)
pt3dadd(56.698, 21.763, 17.934, 0.548)
pt3dadd(56.656, 21.651, 17.927, 0.544)
pt3dadd(56.613, 21.54, 17.919, 0.542)
pt3dadd(56.57, 21.428, 17.912, 0.54)
pt3dadd(56.527, 21.316, 17.905, 0.538)
pt3dadd(56.484, 21.204, 17.897, 0.534)
pt3dadd(56.442, 21.093, 17.89, 0.532)
pt3dadd(56.4, 20.98, 17.884, 0.522)
pt3dadd(56.362, 20.867, 17.88, 0.494)
pt3dadd(56.324, 20.753, 17.877, 0.468)
pt3dadd(56.286, 20.639, 17.873, 0.44)
}
}
proc shape3d_136() {
dend_7[8] { pt3dadd(56.248, 20.525, 17.87, 0.412)
pt3dadd(56.21, 20.412, 17.866, 0.384)
pt3dadd(56.171, 20.298, 17.863, 0.358)
pt3dadd(56.133, 20.184, 17.859, 0.33)
pt3dadd(56.095, 20.071, 17.856, 0.302)
pt3dadd(56.057, 19.957, 17.852, 0.274)
pt3dadd(56.021, 19.843, 17.847, 0.254)
pt3dadd(55.989, 19.727, 17.839, 0.252)
pt3dadd(55.958, 19.612, 17.831, 0.248)
pt3dadd(55.926, 19.497, 17.823, 0.246)
pt3dadd(55.895, 19.381, 17.815, 0.242)
pt3dadd(55.863, 19.266, 17.807, 0.24)
pt3dadd(55.832, 19.15, 17.799, 0.236)
pt3dadd(55.801, 19.035, 17.791, 0.234)
pt3dadd(55.769, 18.92, 17.783, 0.23)
pt3dadd(55.738, 18.804, 17.775, 0.228)
pt3dadd(55.705, 18.689, 17.766, 0.226)
pt3dadd(55.668, 18.576, 17.756, 0.226)
pt3dadd(55.631, 18.462, 17.746, 0.226)
pt3dadd(55.594, 18.349, 17.736, 0.226)
pt3dadd(55.557, 18.235, 17.726, 0.226)
pt3dadd(55.52, 18.122, 17.716, 0.226)
pt3dadd(55.483, 18.008, 17.706, 0.226)
pt3dadd(55.446, 17.894, 17.696, 0.226)
pt3dadd(55.41, 17.781, 17.686, 0.226)
pt3dadd(55.373, 17.667, 17.676, 0.226)
pt3dadd(55.33, 17.556, 17.664, 0.226)
pt3dadd(55.278, 17.45, 17.651, 0.226)
pt3dadd(55.225, 17.343, 17.637, 0.226)
pt3dadd(55.173, 17.236, 17.623, 0.226)
pt3dadd(55.12, 17.13, 17.609, 0.226)
pt3dadd(55.068, 17.023, 17.595, 0.226)
pt3dadd(55.015, 16.917, 17.582, 0.226)
pt3dadd(54.962, 16.81, 17.568, 0.226)
pt3dadd(54.91, 16.703, 17.554, 0.226)
pt3dadd(54.857, 16.597, 17.54, 0.226)
pt3dadd(54.807, 16.491, 17.521, 0.23)
pt3dadd(54.76, 16.386, 17.491, 0.244)
pt3dadd(54.713, 16.282, 17.462, 0.258)
pt3dadd(54.666, 16.177, 17.433, 0.272)
pt3dadd(54.619, 16.072, 17.403, 0.284)
pt3dadd(54.572, 15.968, 17.374, 0.298)
pt3dadd(54.525, 15.863, 17.344, 0.312)
pt3dadd(54.478, 15.759, 17.315, 0.326)
pt3dadd(54.431, 15.654, 17.285, 0.34)
pt3dadd(54.384, 15.549, 17.256, 0.354)
pt3dadd(54.34, 15.446, 17.221, 0.372)
pt3dadd(54.299, 15.346, 17.179, 0.396)
pt3dadd(54.258, 15.245, 17.137, 0.422)
pt3dadd(54.217, 15.144, 17.094, 0.446)
pt3dadd(54.176, 15.043, 17.052, 0.472)
pt3dadd(54.135, 14.942, 17.01, 0.496)
pt3dadd(54.093, 14.842, 16.968, 0.522)
pt3dadd(54.052, 14.741, 16.926, 0.546)
pt3dadd(54.011, 14.64, 16.884, 0.57)
pt3dadd(53.97, 14.539, 16.842, 0.596)
pt3dadd(53.923, 14.44, 16.802, 0.604)
pt3dadd(53.868, 14.343, 16.766, 0.594)
pt3dadd(53.813, 14.245, 16.73, 0.582)
pt3dadd(53.758, 14.148, 16.694, 0.572)
pt3dadd(53.703, 14.05, 16.657, 0.562)
pt3dadd(53.648, 13.953, 16.621, 0.55)
pt3dadd(53.593, 13.855, 16.585, 0.54)
pt3dadd(53.538, 13.758, 16.549, 0.53)
pt3dadd(53.484, 13.66, 16.513, 0.518)
pt3dadd(53.429, 13.563, 16.476, 0.508)
pt3dadd(53.371, 13.466, 16.441, 0.49)
pt3dadd(53.311, 13.371, 16.408, 0.466)
pt3dadd(53.251, 13.275, 16.374, 0.442)
pt3dadd(53.191, 13.179, 16.34, 0.418)
pt3dadd(53.131, 13.083, 16.306, 0.394)
pt3dadd(53.071, 12.988, 16.273, 0.37)
pt3dadd(53.011, 12.892, 16.239, 0.346)
pt3dadd(52.951, 12.796, 16.205, 0.32)
pt3dadd(52.891, 12.701, 16.171, 0.296)
pt3dadd(52.831, 12.605, 16.138, 0.272)
pt3dadd(52.779, 12.51, 16.096, 0.258)
pt3dadd(52.736, 12.416, 16.045, 0.254)
pt3dadd(52.692, 12.322, 15.995, 0.252)
pt3dadd(52.648, 12.228, 15.944, 0.248)
pt3dadd(52.604, 12.135, 15.894, 0.244)
pt3dadd(52.56, 12.041, 15.844, 0.242)
pt3dadd(52.516, 11.947, 15.793, 0.238)
pt3dadd(52.472, 11.853, 15.743, 0.234)
pt3dadd(52.429, 11.759, 15.692, 0.23)
pt3dadd(52.385, 11.665, 15.642, 0.228)
pt3dadd(52.341, 11.571, 15.591, 0.226)
pt3dadd(52.299, 11.478, 15.539, 0.226)
pt3dadd(52.256, 11.385, 15.487, 0.226)
pt3dadd(52.213, 11.292, 15.435, 0.226)
pt3dadd(52.17, 11.199, 15.382, 0.226)
pt3dadd(52.127, 11.106, 15.33, 0.226)
pt3dadd(52.085, 11.013, 15.279, 0.226)
pt3dadd(52.042, 10.92, 15.226, 0.226)
pt3dadd(51.999, 10.827, 15.174, 0.226)
pt3dadd(51.956, 10.734, 15.122, 0.226)
pt3dadd(51.901, 10.643, 15.078, 0.226)
pt3dadd(51.835, 10.554, 15.039, 0.226)
pt3dadd(51.769, 10.465, 15, 0.226)
pt3dadd(51.704, 10.376, 14.961, 0.226)
pt3dadd(51.638, 10.287, 14.922, 0.226)
pt3dadd(51.573, 10.198, 14.883, 0.226)
pt3dadd(51.507, 10.109, 14.844, 0.226)
pt3dadd(51.441, 10.02, 14.805, 0.226)
pt3dadd(51.376, 9.931, 14.766, 0.226)
pt3dadd(51.31, 9.842, 14.727, 0.226)
pt3dadd(51.247, 9.759, 14.679, 0.238)
pt3dadd(51.185, 9.679, 14.625, 0.26)
pt3dadd(51.124, 9.599, 14.57, 0.282)
pt3dadd(51.063, 9.52, 14.515, 0.302)
pt3dadd(51.001, 9.44, 14.461, 0.324)
pt3dadd(50.94, 9.36, 14.406, 0.346)
pt3dadd(50.879, 9.281, 14.351, 0.368)
pt3dadd(50.817, 9.201, 14.297, 0.388)
pt3dadd(50.756, 9.122, 14.242, 0.41)
pt3dadd(50.695, 9.042, 14.188, 0.432)
pt3dadd(50.639, 8.978, 14.118, 0.472)
pt3dadd(50.584, 8.919, 14.044, 0.518)
pt3dadd(50.529, 8.859, 13.97, 0.562)
pt3dadd(50.474, 8.799, 13.897, 0.608)
pt3dadd(50.419, 8.74, 13.823, 0.652)
pt3dadd(50.364, 8.68, 13.749, 0.698)
pt3dadd(50.309, 8.62, 13.676, 0.744)
pt3dadd(50.254, 8.561, 13.602, 0.788)
pt3dadd(50.199, 8.501, 13.528, 0.834)
pt3dadd(50.144, 8.442, 13.455, 0.878)
pt3dadd(50.066, 8.4, 13.388, 0.87)
pt3dadd(49.983, 8.361, 13.323, 0.85)
pt3dadd(49.9, 8.322, 13.258, 0.83)
pt3dadd(49.817, 8.284, 13.193, 0.812)
pt3dadd(49.734, 8.245, 13.129, 0.792)
pt3dadd(49.652, 8.207, 13.064, 0.772)
pt3dadd(49.569, 8.168, 12.999, 0.752)
pt3dadd(49.486, 8.13, 12.934, 0.734)
pt3dadd(49.403, 8.091, 12.869, 0.714)
pt3dadd(49.321, 8.052, 12.804, 0.694)
pt3dadd(49.274, 7.997, 12.726, 0.69)
pt3dadd(49.235, 7.938, 12.645, 0.688)
pt3dadd(49.195, 7.88, 12.564, 0.688)
pt3dadd(49.156, 7.821, 12.484, 0.686)
pt3dadd(49.116, 7.762, 12.403, 0.684)
pt3dadd(49.077, 7.704, 12.322, 0.684)
pt3dadd(49.038, 7.645, 12.241, 0.682)
pt3dadd(48.998, 7.586, 12.16, 0.68)
pt3dadd(48.959, 7.527, 12.08, 0.68)
pt3dadd(48.92, 7.469, 11.999, 0.678)
pt3dadd(48.897, 7.422, 11.909, 0.662)
pt3dadd(48.876, 7.376, 11.818, 0.644)
pt3dadd(48.855, 7.33, 11.727, 0.626)
pt3dadd(48.834, 7.284, 11.637, 0.608)
pt3dadd(48.813, 7.239, 11.546, 0.59)
pt3dadd(48.792, 7.193, 11.455, 0.572)
pt3dadd(48.771, 7.147, 11.364, 0.554)
pt3dadd(48.75, 7.101, 11.274, 0.536)
pt3dadd(48.729, 7.056, 11.183, 0.518)
pt3dadd(48.708, 7.01, 11.092, 0.5)
pt3dadd(48.695, 6.972, 10.998, 0.472)
pt3dadd(48.683, 6.934, 10.903, 0.444)
pt3dadd(48.67, 6.897, 10.809, 0.418)
pt3dadd(48.658, 6.859, 10.715, 0.39)
pt3dadd(48.645, 6.821, 10.62, 0.362)
pt3dadd(48.632, 6.783, 10.526, 0.336)
pt3dadd(48.62, 6.746, 10.432, 0.308)
pt3dadd(48.607, 6.708, 10.337, 0.28)
pt3dadd(48.595, 6.67, 10.243, 0.254)
pt3dadd(48.582, 6.633, 10.149, 0.226)
}
dend_7[9] {pt3dclear()
pt3dadd(104.412, 74.365, 24.16, 0.226)
pt3dadd(104.426, 74.283, 24.221, 0.244)
pt3dadd(104.442, 74.194, 24.287, 0.262)
pt3dadd(104.457, 74.105, 24.353, 0.28)
pt3dadd(104.473, 74.016, 24.419, 0.3)
pt3dadd(104.488, 73.927, 24.485, 0.318)
pt3dadd(104.504, 73.839, 24.551, 0.336)
pt3dadd(104.52, 73.75, 24.617, 0.356)
pt3dadd(104.535, 73.661, 24.683, 0.374)
pt3dadd(104.55, 73.572, 24.749, 0.392)
pt3dadd(104.566, 73.483, 24.815, 0.41)
pt3dadd(104.582, 73.395, 24.881, 0.43)
pt3dadd(104.597, 73.306, 24.947, 0.448)
pt3dadd(104.613, 73.217, 25.013, 0.466)
pt3dadd(104.628, 73.128, 25.079, 0.486)
pt3dadd(104.644, 73.039, 25.145, 0.504)
pt3dadd(104.66, 72.951, 25.211, 0.522)
pt3dadd(104.675, 72.862, 25.277, 0.542)
pt3dadd(104.691, 72.773, 25.343, 0.56)
pt3dadd(104.705, 72.68, 25.405, 0.574)
pt3dadd(104.714, 72.571, 25.446, 0.574)
pt3dadd(104.723, 72.462, 25.487, 0.572)
pt3dadd(104.732, 72.353, 25.528, 0.57)
pt3dadd(104.741, 72.244, 25.569, 0.57)
pt3dadd(104.75, 72.135, 25.61, 0.568)
pt3dadd(104.759, 72.026, 25.652, 0.566)
pt3dadd(104.768, 71.917, 25.693, 0.564)
pt3dadd(104.777, 71.808, 25.734, 0.564)
pt3dadd(104.785, 71.699, 25.775, 0.562)
pt3dadd(104.787, 71.582, 25.789, 0.542)
pt3dadd(104.787, 71.462, 25.794, 0.516)
pt3dadd(104.786, 71.342, 25.799, 0.49)
pt3dadd(104.785, 71.223, 25.804, 0.464)
pt3dadd(104.785, 71.103, 25.809, 0.438)
}
}
proc shape3d_137() {
dend_7[9] { pt3dadd(104.784, 70.983, 25.814, 0.412)
pt3dadd(104.784, 70.863, 25.82, 0.386)
pt3dadd(104.783, 70.743, 25.825, 0.36)
pt3dadd(104.782, 70.623, 25.83, 0.334)
pt3dadd(104.782, 70.503, 25.835, 0.308)
pt3dadd(104.781, 70.384, 25.842, 0.296)
pt3dadd(104.78, 70.264, 25.849, 0.288)
pt3dadd(104.779, 70.144, 25.856, 0.28)
pt3dadd(104.778, 70.025, 25.864, 0.274)
pt3dadd(104.777, 69.905, 25.871, 0.266)
pt3dadd(104.776, 69.785, 25.878, 0.258)
pt3dadd(104.775, 69.666, 25.886, 0.25)
pt3dadd(104.774, 69.546, 25.893, 0.242)
pt3dadd(104.773, 69.426, 25.9, 0.236)
pt3dadd(104.772, 69.307, 25.908, 0.228)
pt3dadd(104.771, 69.187, 25.917, 0.226)
pt3dadd(104.77, 69.068, 25.926, 0.226)
pt3dadd(104.769, 68.948, 25.936, 0.226)
pt3dadd(104.767, 68.829, 25.945, 0.226)
pt3dadd(104.766, 68.709, 25.955, 0.226)
pt3dadd(104.765, 68.59, 25.964, 0.226)
pt3dadd(104.764, 68.47, 25.974, 0.226)
pt3dadd(104.763, 68.351, 25.983, 0.226)
pt3dadd(104.761, 68.232, 25.993, 0.226)
pt3dadd(104.76, 68.112, 26.002, 0.226)
pt3dadd(104.759, 67.993, 26.014, 0.226)
pt3dadd(104.757, 67.874, 26.026, 0.226)
pt3dadd(104.755, 67.755, 26.038, 0.226)
pt3dadd(104.753, 67.636, 26.05, 0.226)
pt3dadd(104.751, 67.517, 26.062, 0.226)
pt3dadd(104.75, 67.398, 26.075, 0.226)
pt3dadd(104.748, 67.278, 26.087, 0.226)
pt3dadd(104.746, 67.159, 26.099, 0.226)
pt3dadd(104.744, 67.04, 26.111, 0.226)
pt3dadd(104.742, 66.921, 26.123, 0.226)
pt3dadd(104.74, 66.806, 26.15, 0.226)
pt3dadd(104.736, 66.692, 26.182, 0.226)
pt3dadd(104.733, 66.579, 26.214, 0.226)
pt3dadd(104.73, 66.465, 26.246, 0.226)
pt3dadd(104.727, 66.351, 26.278, 0.226)
pt3dadd(104.724, 66.237, 26.309, 0.226)
pt3dadd(104.721, 66.124, 26.341, 0.226)
pt3dadd(104.718, 66.01, 26.373, 0.226)
pt3dadd(104.715, 65.896, 26.405, 0.226)
pt3dadd(104.711, 65.783, 26.437, 0.226)
pt3dadd(104.708, 65.671, 26.473, 0.226)
pt3dadd(104.704, 65.56, 26.511, 0.226)
pt3dadd(104.7, 65.449, 26.549, 0.226)
pt3dadd(104.696, 65.338, 26.586, 0.226)
pt3dadd(104.692, 65.227, 26.624, 0.226)
pt3dadd(104.688, 65.116, 26.662, 0.226)
pt3dadd(104.685, 65.005, 26.7, 0.226)
pt3dadd(104.681, 64.893, 26.737, 0.226)
pt3dadd(104.677, 64.782, 26.775, 0.226)
pt3dadd(104.673, 64.671, 26.813, 0.226)
pt3dadd(104.665, 64.557, 26.841, 0.226)
pt3dadd(104.656, 64.441, 26.867, 0.226)
pt3dadd(104.648, 64.326, 26.894, 0.226)
pt3dadd(104.639, 64.21, 26.92, 0.226)
pt3dadd(104.63, 64.095, 26.947, 0.226)
pt3dadd(104.621, 63.98, 26.973, 0.226)
pt3dadd(104.613, 63.864, 27, 0.226)
pt3dadd(104.604, 63.749, 27.026, 0.226)
pt3dadd(104.595, 63.634, 27.053, 0.226)
pt3dadd(104.586, 63.518, 27.079, 0.226)
pt3dadd(104.575, 63.402, 27.103, 0.242)
pt3dadd(104.563, 63.286, 27.125, 0.26)
pt3dadd(104.552, 63.17, 27.148, 0.278)
pt3dadd(104.54, 63.053, 27.171, 0.296)
pt3dadd(104.528, 62.937, 27.194, 0.314)
pt3dadd(104.517, 62.821, 27.217, 0.332)
pt3dadd(104.505, 62.704, 27.239, 0.35)
pt3dadd(104.493, 62.588, 27.262, 0.368)
pt3dadd(104.482, 62.472, 27.285, 0.386)
pt3dadd(104.47, 62.356, 27.308, 0.404)
pt3dadd(104.455, 62.239, 27.326, 0.444)
pt3dadd(104.44, 62.122, 27.344, 0.486)
pt3dadd(104.425, 62.004, 27.361, 0.528)
pt3dadd(104.41, 61.887, 27.379, 0.572)
pt3dadd(104.394, 61.77, 27.397, 0.614)
pt3dadd(104.379, 61.653, 27.415, 0.656)
pt3dadd(104.364, 61.536, 27.432, 0.698)
pt3dadd(104.349, 61.419, 27.45, 0.74)
pt3dadd(104.333, 61.302, 27.468, 0.782)
pt3dadd(104.318, 61.185, 27.486, 0.826)
pt3dadd(104.28, 61.072, 27.498, 0.838)
pt3dadd(104.238, 60.961, 27.51, 0.846)
pt3dadd(104.196, 60.849, 27.522, 0.852)
pt3dadd(104.155, 60.738, 27.534, 0.86)
pt3dadd(104.113, 60.626, 27.546, 0.866)
pt3dadd(104.071, 60.515, 27.558, 0.874)
pt3dadd(104.029, 60.403, 27.57, 0.882)
pt3dadd(103.987, 60.291, 27.582, 0.888)
pt3dadd(103.945, 60.18, 27.594, 0.896)
pt3dadd(103.903, 60.068, 27.605, 0.904)
pt3dadd(103.858, 59.958, 27.619, 0.904)
pt3dadd(103.812, 59.849, 27.633, 0.904)
pt3dadd(103.767, 59.739, 27.646, 0.904)
pt3dadd(103.721, 59.629, 27.66, 0.904)
pt3dadd(103.675, 59.52, 27.674, 0.904)
pt3dadd(103.63, 59.41, 27.688, 0.904)
pt3dadd(103.584, 59.3, 27.701, 0.904)
pt3dadd(103.539, 59.19, 27.715, 0.904)
pt3dadd(103.493, 59.08, 27.729, 0.904)
pt3dadd(103.447, 58.971, 27.742, 0.904)
pt3dadd(103.413, 58.864, 27.777, 0.904)
pt3dadd(103.379, 58.757, 27.813, 0.904)
pt3dadd(103.345, 58.65, 27.848, 0.904)
pt3dadd(103.311, 58.543, 27.884, 0.904)
pt3dadd(103.277, 58.436, 27.919, 0.904)
pt3dadd(103.243, 58.329, 27.955, 0.904)
pt3dadd(103.209, 58.223, 27.991, 0.904)
pt3dadd(103.175, 58.116, 28.026, 0.904)
pt3dadd(103.141, 58.009, 28.062, 0.904)
pt3dadd(103.107, 57.902, 28.098, 0.904)
pt3dadd(103.076, 57.793, 28.129, 0.89)
pt3dadd(103.045, 57.683, 28.161, 0.874)
pt3dadd(103.014, 57.573, 28.192, 0.86)
pt3dadd(102.983, 57.464, 28.223, 0.844)
pt3dadd(102.952, 57.354, 28.254, 0.83)
pt3dadd(102.921, 57.244, 28.286, 0.814)
pt3dadd(102.89, 57.135, 28.317, 0.798)
pt3dadd(102.858, 57.025, 28.348, 0.784)
pt3dadd(102.827, 56.915, 28.379, 0.768)
pt3dadd(102.796, 56.805, 28.411, 0.754)
pt3dadd(102.77, 56.692, 28.434, 0.714)
pt3dadd(102.744, 56.578, 28.458, 0.672)
pt3dadd(102.719, 56.464, 28.481, 0.63)
pt3dadd(102.693, 56.351, 28.504, 0.59)
pt3dadd(102.667, 56.237, 28.528, 0.548)
pt3dadd(102.641, 56.123, 28.551, 0.508)
pt3dadd(102.615, 56.009, 28.575, 0.466)
pt3dadd(102.589, 55.896, 28.598, 0.424)
pt3dadd(102.563, 55.782, 28.621, 0.384)
pt3dadd(102.537, 55.668, 28.645, 0.342)
pt3dadd(102.498, 55.556, 28.659, 0.33)
pt3dadd(102.459, 55.444, 28.673, 0.318)
pt3dadd(102.42, 55.332, 28.687, 0.306)
pt3dadd(102.38, 55.22, 28.701, 0.296)
pt3dadd(102.341, 55.107, 28.715, 0.284)
pt3dadd(102.302, 54.995, 28.729, 0.272)
pt3dadd(102.262, 54.883, 28.743, 0.26)
pt3dadd(102.223, 54.771, 28.757, 0.25)
pt3dadd(102.184, 54.659, 28.771, 0.238)
pt3dadd(102.144, 54.547, 28.785, 0.226)
pt3dadd(102.1, 54.436, 28.795, 0.226)
pt3dadd(102.056, 54.325, 28.805, 0.226)
pt3dadd(102.012, 54.214, 28.815, 0.226)
pt3dadd(101.968, 54.103, 28.825, 0.226)
pt3dadd(101.924, 53.992, 28.835, 0.226)
pt3dadd(101.88, 53.881, 28.845, 0.226)
pt3dadd(101.836, 53.77, 28.855, 0.226)
pt3dadd(101.792, 53.659, 28.865, 0.226)
pt3dadd(101.748, 53.548, 28.875, 0.226)
pt3dadd(101.704, 53.437, 28.885, 0.226)
pt3dadd(101.676, 53.32, 28.885, 0.226)
pt3dadd(101.647, 53.204, 28.885, 0.226)
pt3dadd(101.618, 53.087, 28.885, 0.226)
pt3dadd(101.589, 52.971, 28.885, 0.226)
pt3dadd(101.561, 52.854, 28.885, 0.226)
pt3dadd(101.532, 52.738, 28.885, 0.226)
pt3dadd(101.503, 52.621, 28.885, 0.226)
pt3dadd(101.475, 52.505, 28.885, 0.226)
pt3dadd(101.446, 52.388, 28.885, 0.226)
pt3dadd(101.418, 52.272, 28.885, 0.226)
pt3dadd(101.395, 52.154, 28.885, 0.226)
pt3dadd(101.373, 52.036, 28.885, 0.226)
pt3dadd(101.35, 51.918, 28.885, 0.226)
pt3dadd(101.328, 51.8, 28.885, 0.226)
pt3dadd(101.306, 51.682, 28.885, 0.226)
pt3dadd(101.283, 51.564, 28.885, 0.226)
pt3dadd(101.261, 51.446, 28.885, 0.226)
pt3dadd(101.239, 51.328, 28.885, 0.226)
pt3dadd(101.216, 51.211, 28.885, 0.226)
pt3dadd(101.194, 51.093, 28.885, 0.226)
pt3dadd(101.181, 50.973, 28.885, 0.226)
pt3dadd(101.168, 50.854, 28.885, 0.226)
pt3dadd(101.155, 50.735, 28.885, 0.226)
pt3dadd(101.141, 50.616, 28.885, 0.226)
pt3dadd(101.128, 50.496, 28.885, 0.226)
pt3dadd(101.115, 50.377, 28.885, 0.226)
pt3dadd(101.102, 50.258, 28.885, 0.226)
pt3dadd(101.089, 50.138, 28.885, 0.226)
pt3dadd(101.075, 50.019, 28.885, 0.226)
pt3dadd(101.063, 49.9, 28.885, 0.226)
pt3dadd(101.061, 49.78, 28.885, 0.226)
pt3dadd(101.058, 49.66, 28.885, 0.226)
pt3dadd(101.056, 49.54, 28.885, 0.226)
pt3dadd(101.054, 49.42, 28.885, 0.226)
pt3dadd(101.052, 49.3, 28.885, 0.226)
pt3dadd(101.05, 49.18, 28.885, 0.226)
pt3dadd(101.048, 49.06, 28.885, 0.226)
pt3dadd(101.045, 48.94, 28.885, 0.226)
pt3dadd(101.043, 48.82, 28.885, 0.226)
pt3dadd(101.041, 48.7, 28.885, 0.226)
pt3dadd(101.041, 48.58, 28.885, 0.226)
pt3dadd(101.041, 48.46, 28.885, 0.226)
pt3dadd(101.041, 48.34, 28.885, 0.226)
pt3dadd(101.041, 48.22, 28.885, 0.226)
pt3dadd(101.041, 48.1, 28.885, 0.226)
}
}
proc shape3d_138() {
dend_7[9] { pt3dadd(101.041, 47.98, 28.885, 0.226)
pt3dadd(101.041, 47.86, 28.885, 0.226)
pt3dadd(101.041, 47.74, 28.885, 0.226)
pt3dadd(101.041, 47.62, 28.885, 0.226)
pt3dadd(101.041, 47.5, 28.885, 0.226)
pt3dadd(101.041, 47.38, 28.885, 0.226)
pt3dadd(101.041, 47.26, 28.885, 0.226)
pt3dadd(101.041, 47.14, 28.885, 0.226)
pt3dadd(101.041, 47.02, 28.885, 0.226)
pt3dadd(101.041, 46.9, 28.885, 0.226)
pt3dadd(101.04, 46.78, 28.885, 0.226)
pt3dadd(101.04, 46.66, 28.885, 0.226)
pt3dadd(101.04, 46.54, 28.885, 0.226)
pt3dadd(101.04, 46.42, 28.885, 0.226)
pt3dadd(101.04, 46.3, 28.885, 0.228)
pt3dadd(101.04, 46.18, 28.885, 0.248)
pt3dadd(101.04, 46.06, 28.885, 0.27)
pt3dadd(101.04, 45.94, 28.886, 0.29)
pt3dadd(101.04, 45.82, 28.886, 0.312)
pt3dadd(101.039, 45.7, 28.886, 0.332)
pt3dadd(101.039, 45.58, 28.886, 0.354)
pt3dadd(101.039, 45.46, 28.886, 0.374)
pt3dadd(101.039, 45.34, 28.886, 0.396)
pt3dadd(101.039, 45.22, 28.886, 0.416)
pt3dadd(101.039, 45.1, 28.886, 0.438)
pt3dadd(101.038, 44.98, 28.886, 0.46)
pt3dadd(101.038, 44.86, 28.886, 0.48)
pt3dadd(101.038, 44.74, 28.886, 0.502)
pt3dadd(101.037, 44.62, 28.886, 0.524)
pt3dadd(101.037, 44.5, 28.886, 0.546)
pt3dadd(101.037, 44.38, 28.886, 0.568)
pt3dadd(101.036, 44.26, 28.886, 0.59)
pt3dadd(101.036, 44.14, 28.886, 0.612)
pt3dadd(101.036, 44.02, 28.886, 0.634)
pt3dadd(101.035, 43.9, 28.887, 0.654)
pt3dadd(101.035, 43.78, 28.887, 0.638)
pt3dadd(101.034, 43.66, 28.887, 0.624)
pt3dadd(101.034, 43.54, 28.887, 0.61)
pt3dadd(101.034, 43.42, 28.887, 0.596)
pt3dadd(101.033, 43.3, 28.887, 0.582)
pt3dadd(101.033, 43.18, 28.887, 0.566)
pt3dadd(101.033, 43.06, 28.888, 0.552)
pt3dadd(101.032, 42.94, 28.888, 0.538)
pt3dadd(101.032, 42.82, 28.888, 0.524)
pt3dadd(101.032, 42.7, 28.888, 0.51)
pt3dadd(101.031, 42.58, 28.888, 0.512)
pt3dadd(101.03, 42.46, 28.889, 0.516)
pt3dadd(101.029, 42.34, 28.889, 0.518)
pt3dadd(101.028, 42.22, 28.889, 0.522)
pt3dadd(101.027, 42.1, 28.889, 0.524)
pt3dadd(101.027, 41.98, 28.889, 0.528)
pt3dadd(101.026, 41.86, 28.89, 0.53)
pt3dadd(101.025, 41.74, 28.89, 0.534)
pt3dadd(101.024, 41.62, 28.89, 0.536)
pt3dadd(101.023, 41.5, 28.89, 0.54)
pt3dadd(101.022, 41.38, 28.891, 0.554)
pt3dadd(101.021, 41.26, 28.891, 0.568)
pt3dadd(101.02, 41.14, 28.891, 0.582)
pt3dadd(101.019, 41.02, 28.892, 0.596)
pt3dadd(101.018, 40.9, 28.892, 0.61)
pt3dadd(101.017, 40.78, 28.892, 0.624)
pt3dadd(101.016, 40.66, 28.893, 0.638)
pt3dadd(101.015, 40.54, 28.893, 0.65)
pt3dadd(101.013, 40.42, 28.893, 0.664)
pt3dadd(101.012, 40.3, 28.893, 0.678)
pt3dadd(101.01, 40.18, 28.894, 0.678)
pt3dadd(101.008, 40.06, 28.895, 0.678)
pt3dadd(101.005, 39.94, 28.895, 0.678)
pt3dadd(101.003, 39.82, 28.896, 0.678)
pt3dadd(101.001, 39.7, 28.897, 0.678)
pt3dadd(100.999, 39.58, 28.897, 0.678)
pt3dadd(100.996, 39.46, 28.898, 0.678)
pt3dadd(100.994, 39.34, 28.899, 0.678)
pt3dadd(100.992, 39.22, 28.899, 0.678)
pt3dadd(100.989, 39.1, 28.9, 0.678)
pt3dadd(100.986, 38.98, 28.901, 0.678)
pt3dadd(100.983, 38.86, 28.902, 0.678)
pt3dadd(100.979, 38.741, 28.903, 0.678)
pt3dadd(100.976, 38.621, 28.904, 0.678)
pt3dadd(100.972, 38.501, 28.905, 0.678)
pt3dadd(100.969, 38.381, 28.906, 0.678)
pt3dadd(100.965, 38.261, 28.907, 0.678)
pt3dadd(100.962, 38.141, 28.908, 0.678)
pt3dadd(100.958, 38.021, 28.909, 0.678)
pt3dadd(100.955, 37.901, 28.91, 0.678)
pt3dadd(100.95, 37.781, 28.911, 0.678)
pt3dadd(100.945, 37.661, 28.913, 0.678)
pt3dadd(100.941, 37.541, 28.914, 0.678)
pt3dadd(100.936, 37.421, 28.916, 0.678)
pt3dadd(100.931, 37.302, 28.917, 0.678)
pt3dadd(100.926, 37.182, 28.919, 0.678)
pt3dadd(100.922, 37.062, 28.92, 0.678)
pt3dadd(100.917, 36.942, 28.921, 0.678)
pt3dadd(100.912, 36.822, 28.923, 0.678)
pt3dadd(100.908, 36.702, 28.924, 0.678)
pt3dadd(100.897, 36.582, 28.927, 0.664)
pt3dadd(100.886, 36.463, 28.93, 0.65)
pt3dadd(100.876, 36.344, 28.933, 0.638)
pt3dadd(100.865, 36.224, 28.935, 0.624)
pt3dadd(100.855, 36.105, 28.938, 0.612)
pt3dadd(100.844, 35.985, 28.941, 0.598)
pt3dadd(100.833, 35.866, 28.944, 0.584)
pt3dadd(100.823, 35.746, 28.946, 0.572)
pt3dadd(100.812, 35.627, 28.949, 0.558)
pt3dadd(100.802, 35.507, 28.952, 0.546)
pt3dadd(100.788, 35.388, 28.956, 0.542)
pt3dadd(100.773, 35.269, 28.96, 0.536)
pt3dadd(100.759, 35.15, 28.965, 0.532)
pt3dadd(100.745, 35.031, 28.969, 0.528)
pt3dadd(100.731, 34.912, 28.973, 0.524)
pt3dadd(100.717, 34.793, 28.978, 0.52)
pt3dadd(100.702, 34.674, 28.982, 0.514)
pt3dadd(100.688, 34.555, 28.986, 0.51)
pt3dadd(100.674, 34.436, 28.99, 0.506)
pt3dadd(100.66, 34.317, 28.995, 0.502)
pt3dadd(100.64, 34.199, 29.002, 0.518)
pt3dadd(100.621, 34.08, 29.009, 0.532)
pt3dadd(100.602, 33.962, 29.016, 0.546)
pt3dadd(100.582, 33.844, 29.023, 0.56)
pt3dadd(100.563, 33.726, 29.03, 0.574)
pt3dadd(100.544, 33.608, 29.037, 0.588)
pt3dadd(100.524, 33.49, 29.044, 0.602)
pt3dadd(100.505, 33.372, 29.051, 0.616)
pt3dadd(100.486, 33.253, 29.058, 0.63)
pt3dadd(100.465, 33.136, 29.065, 0.644)
pt3dadd(100.418, 33.026, 29.074, 0.638)
pt3dadd(100.372, 32.916, 29.084, 0.63)
pt3dadd(100.325, 32.806, 29.094, 0.624)
pt3dadd(100.279, 32.696, 29.103, 0.618)
pt3dadd(100.232, 32.586, 29.113, 0.612)
pt3dadd(100.186, 32.476, 29.123, 0.606)
pt3dadd(100.139, 32.366, 29.132, 0.598)
pt3dadd(100.093, 32.256, 29.142, 0.592)
pt3dadd(100.046, 32.146, 29.152, 0.586)
pt3dadd(99.999, 32.036, 29.161, 0.578)
pt3dadd(99.944, 31.93, 29.172, 0.566)
pt3dadd(99.89, 31.824, 29.182, 0.552)
pt3dadd(99.836, 31.717, 29.193, 0.54)
pt3dadd(99.781, 31.611, 29.203, 0.526)
pt3dadd(99.727, 31.505, 29.214, 0.514)
pt3dadd(99.673, 31.399, 29.224, 0.502)
pt3dadd(99.618, 31.292, 29.234, 0.488)
pt3dadd(99.564, 31.186, 29.245, 0.476)
pt3dadd(99.51, 31.08, 29.255, 0.462)
pt3dadd(99.456, 30.974, 29.269, 0.45)
pt3dadd(99.409, 30.872, 29.304, 0.438)
pt3dadd(99.363, 30.769, 29.338, 0.426)
pt3dadd(99.316, 30.667, 29.372, 0.412)
pt3dadd(99.269, 30.564, 29.407, 0.4)
pt3dadd(99.222, 30.462, 29.441, 0.388)
pt3dadd(99.175, 30.36, 29.476, 0.376)
pt3dadd(99.128, 30.257, 29.51, 0.364)
pt3dadd(99.081, 30.155, 29.544, 0.35)
pt3dadd(99.034, 30.052, 29.579, 0.338)
pt3dadd(98.987, 29.95, 29.613, 0.326)
pt3dadd(98.936, 29.848, 29.645, 0.318)
pt3dadd(98.885, 29.746, 29.677, 0.31)
pt3dadd(98.835, 29.644, 29.709, 0.302)
pt3dadd(98.784, 29.542, 29.741, 0.294)
pt3dadd(98.734, 29.441, 29.773, 0.286)
pt3dadd(98.683, 29.339, 29.805, 0.278)
pt3dadd(98.633, 29.237, 29.837, 0.27)
pt3dadd(98.582, 29.135, 29.869, 0.262)
pt3dadd(98.531, 29.033, 29.901, 0.254)
pt3dadd(98.478, 28.932, 29.931, 0.248)
pt3dadd(98.412, 28.835, 29.951, 0.26)
pt3dadd(98.346, 28.738, 29.971, 0.272)
pt3dadd(98.279, 28.641, 29.991, 0.284)
pt3dadd(98.213, 28.544, 30.012, 0.296)
pt3dadd(98.147, 28.447, 30.032, 0.308)
pt3dadd(98.081, 28.35, 30.052, 0.32)
pt3dadd(98.014, 28.253, 30.073, 0.33)
pt3dadd(97.948, 28.156, 30.093, 0.342)
pt3dadd(97.882, 28.059, 30.113, 0.354)
pt3dadd(97.815, 27.962, 30.133, 0.366)
pt3dadd(97.748, 27.865, 30.15, 0.374)
pt3dadd(97.68, 27.768, 30.168, 0.384)
pt3dadd(97.612, 27.672, 30.186, 0.392)
pt3dadd(97.544, 27.575, 30.203, 0.4)
pt3dadd(97.476, 27.479, 30.221, 0.41)
pt3dadd(97.408, 27.382, 30.238, 0.418)
pt3dadd(97.34, 27.285, 30.256, 0.428)
pt3dadd(97.272, 27.189, 30.273, 0.436)
pt3dadd(97.204, 27.092, 30.291, 0.444)
pt3dadd(97.135, 26.996, 30.307, 0.452)
pt3dadd(97.062, 26.901, 30.316, 0.452)
pt3dadd(96.989, 26.806, 30.326, 0.452)
pt3dadd(96.916, 26.712, 30.335, 0.452)
pt3dadd(96.843, 26.617, 30.344, 0.452)
pt3dadd(96.77, 26.523, 30.354, 0.452)
pt3dadd(96.697, 26.428, 30.363, 0.452)
pt3dadd(96.624, 26.333, 30.372, 0.452)
pt3dadd(96.552, 26.239, 30.382, 0.452)
pt3dadd(96.479, 26.144, 30.391, 0.452)
pt3dadd(96.406, 26.049, 30.4, 0.452)
pt3dadd(96.336, 25.952, 30.407, 0.448)
pt3dadd(96.267, 25.854, 30.414, 0.444)
pt3dadd(96.197, 25.757, 30.421, 0.44)
pt3dadd(96.127, 25.66, 30.428, 0.436)
pt3dadd(96.057, 25.563, 30.435, 0.434)
}
}
proc shape3d_139() {
dend_7[9] { pt3dadd(95.988, 25.465, 30.442, 0.43)
pt3dadd(95.918, 25.368, 30.449, 0.426)
pt3dadd(95.848, 25.271, 30.456, 0.422)
pt3dadd(95.778, 25.174, 30.464, 0.418)
pt3dadd(95.711, 25.075, 30.469, 0.414)
pt3dadd(95.649, 24.972, 30.471, 0.4)
pt3dadd(95.588, 24.869, 30.472, 0.388)
pt3dadd(95.527, 24.765, 30.473, 0.376)
pt3dadd(95.466, 24.662, 30.474, 0.362)
pt3dadd(95.405, 24.559, 30.476, 0.35)
pt3dadd(95.343, 24.456, 30.477, 0.338)
pt3dadd(95.282, 24.353, 30.478, 0.324)
pt3dadd(95.221, 24.249, 30.48, 0.312)
pt3dadd(95.16, 24.146, 30.481, 0.3)
pt3dadd(95.097, 24.044, 30.482, 0.288)
pt3dadd(95.031, 23.944, 30.484, 0.282)
pt3dadd(94.964, 23.844, 30.486, 0.276)
pt3dadd(94.898, 23.744, 30.488, 0.268)
pt3dadd(94.831, 23.644, 30.49, 0.262)
pt3dadd(94.765, 23.544, 30.492, 0.256)
pt3dadd(94.698, 23.445, 30.494, 0.25)
pt3dadd(94.632, 23.345, 30.495, 0.244)
pt3dadd(94.565, 23.245, 30.497, 0.238)
pt3dadd(94.498, 23.145, 30.499, 0.23)
pt3dadd(94.431, 23.046, 30.501, 0.226)
pt3dadd(94.359, 22.95, 30.504, 0.226)
pt3dadd(94.287, 22.854, 30.506, 0.226)
pt3dadd(94.216, 22.758, 30.509, 0.226)
pt3dadd(94.144, 22.661, 30.511, 0.226)
pt3dadd(94.073, 22.565, 30.514, 0.226)
pt3dadd(94.001, 22.469, 30.516, 0.226)
pt3dadd(93.929, 22.373, 30.519, 0.226)
pt3dadd(93.858, 22.276, 30.521, 0.226)
pt3dadd(93.786, 22.18, 30.524, 0.226)
pt3dadd(93.713, 22.085, 30.527, 0.226)
pt3dadd(93.637, 21.992, 30.531, 0.226)
pt3dadd(93.561, 21.9, 30.536, 0.226)
pt3dadd(93.485, 21.807, 30.54, 0.226)
pt3dadd(93.409, 21.715, 30.545, 0.226)
pt3dadd(93.332, 21.622, 30.549, 0.226)
pt3dadd(93.256, 21.529, 30.554, 0.226)
pt3dadd(93.18, 21.437, 30.559, 0.226)
pt3dadd(93.104, 21.344, 30.563, 0.226)
pt3dadd(93.028, 21.252, 30.568, 0.226)
pt3dadd(92.951, 21.16, 30.573, 0.226)
pt3dadd(92.872, 21.07, 30.579, 0.226)
pt3dadd(92.793, 20.98, 30.585, 0.226)
pt3dadd(92.714, 20.89, 30.591, 0.226)
pt3dadd(92.634, 20.8, 30.597, 0.226)
pt3dadd(92.555, 20.71, 30.602, 0.226)
pt3dadd(92.476, 20.62, 30.608, 0.226)
pt3dadd(92.397, 20.53, 30.614, 0.226)
pt3dadd(92.318, 20.44, 30.62, 0.226)
pt3dadd(92.239, 20.35, 30.626, 0.226)
pt3dadd(92.159, 20.261, 30.633, 0.226)
pt3dadd(92.076, 20.175, 30.642, 0.226)
pt3dadd(91.994, 20.088, 30.65, 0.226)
pt3dadd(91.911, 20.002, 30.659, 0.226)
pt3dadd(91.828, 19.916, 30.667, 0.226)
pt3dadd(91.746, 19.829, 30.676, 0.226)
pt3dadd(91.663, 19.743, 30.685, 0.226)
pt3dadd(91.58, 19.657, 30.693, 0.226)
pt3dadd(91.497, 19.57, 30.702, 0.226)
pt3dadd(91.415, 19.484, 30.71, 0.226)
pt3dadd(91.332, 19.398, 30.719, 0.226)
pt3dadd(91.248, 19.313, 30.729, 0.226)
pt3dadd(91.163, 19.229, 30.739, 0.226)
pt3dadd(91.079, 19.144, 30.749, 0.226)
pt3dadd(90.995, 19.06, 30.759, 0.226)
pt3dadd(90.91, 18.975, 30.769, 0.226)
pt3dadd(90.826, 18.89, 30.779, 0.226)
pt3dadd(90.742, 18.806, 30.789, 0.226)
pt3dadd(90.658, 18.721, 30.798, 0.226)
pt3dadd(90.573, 18.637, 30.808, 0.226)
pt3dadd(90.49, 18.553, 30.825, 0.228)
pt3dadd(90.412, 18.474, 30.861, 0.24)
pt3dadd(90.333, 18.395, 30.897, 0.252)
pt3dadd(90.254, 18.315, 30.933, 0.264)
pt3dadd(90.175, 18.236, 30.97, 0.276)
pt3dadd(90.096, 18.156, 31.006, 0.288)
pt3dadd(90.018, 18.077, 31.042, 0.3)
pt3dadd(89.939, 17.997, 31.078, 0.31)
pt3dadd(89.86, 17.918, 31.114, 0.322)
pt3dadd(89.781, 17.839, 31.151, 0.334)
pt3dadd(89.703, 17.76, 31.188, 0.344)
pt3dadd(89.626, 17.681, 31.228, 0.352)
pt3dadd(89.548, 17.603, 31.268, 0.358)
pt3dadd(89.471, 17.525, 31.307, 0.366)
pt3dadd(89.394, 17.446, 31.347, 0.372)
pt3dadd(89.316, 17.368, 31.387, 0.38)
pt3dadd(89.239, 17.289, 31.426, 0.386)
pt3dadd(89.161, 17.211, 31.466, 0.394)
pt3dadd(89.084, 17.133, 31.506, 0.4)
pt3dadd(89.007, 17.054, 31.545, 0.408)
pt3dadd(88.928, 16.974, 31.579, 0.406)
pt3dadd(88.847, 16.891, 31.605, 0.392)
pt3dadd(88.765, 16.809, 31.632, 0.378)
pt3dadd(88.684, 16.726, 31.658, 0.364)
pt3dadd(88.603, 16.644, 31.684, 0.35)
pt3dadd(88.522, 16.561, 31.711, 0.336)
pt3dadd(88.441, 16.478, 31.737, 0.322)
pt3dadd(88.36, 16.396, 31.763, 0.308)
pt3dadd(88.279, 16.313, 31.79, 0.296)
pt3dadd(88.198, 16.23, 31.816, 0.282)
pt3dadd(88.116, 16.147, 31.839, 0.278)
pt3dadd(88.034, 16.063, 31.859, 0.29)
pt3dadd(87.952, 15.978, 31.879, 0.302)
pt3dadd(87.87, 15.894, 31.898, 0.314)
pt3dadd(87.788, 15.809, 31.918, 0.326)
pt3dadd(87.706, 15.725, 31.937, 0.338)
pt3dadd(87.624, 15.64, 31.957, 0.35)
pt3dadd(87.543, 15.556, 31.976, 0.36)
pt3dadd(87.461, 15.471, 31.996, 0.372)
pt3dadd(87.379, 15.387, 32.015, 0.384)
pt3dadd(87.297, 15.302, 32.033, 0.402)
pt3dadd(87.214, 15.217, 32.049, 0.428)
pt3dadd(87.132, 15.132, 32.065, 0.452)
pt3dadd(87.05, 15.046, 32.081, 0.478)
pt3dadd(86.967, 14.961, 32.097, 0.504)
pt3dadd(86.885, 14.876, 32.113, 0.528)
pt3dadd(86.803, 14.791, 32.129, 0.554)
pt3dadd(86.721, 14.706, 32.145, 0.578)
pt3dadd(86.638, 14.62, 32.161, 0.604)
pt3dadd(86.556, 14.535, 32.177, 0.63)
pt3dadd(86.474, 14.449, 32.191, 0.64)
pt3dadd(86.393, 14.362, 32.202, 0.634)
pt3dadd(86.311, 14.275, 32.213, 0.626)
pt3dadd(86.23, 14.188, 32.223, 0.62)
pt3dadd(86.148, 14.101, 32.234, 0.612)
pt3dadd(86.067, 14.013, 32.245, 0.606)
pt3dadd(85.985, 13.926, 32.256, 0.6)
pt3dadd(85.904, 13.839, 32.267, 0.592)
pt3dadd(85.822, 13.752, 32.278, 0.586)
pt3dadd(85.74, 13.665, 32.288, 0.578)
pt3dadd(85.659, 13.578, 32.299, 0.57)
pt3dadd(85.578, 13.491, 32.309, 0.558)
pt3dadd(85.496, 13.403, 32.319, 0.546)
pt3dadd(85.415, 13.316, 32.329, 0.534)
pt3dadd(85.334, 13.228, 32.339, 0.522)
pt3dadd(85.252, 13.141, 32.349, 0.51)
pt3dadd(85.171, 13.054, 32.359, 0.498)
pt3dadd(85.09, 12.966, 32.369, 0.486)
pt3dadd(85.008, 12.879, 32.379, 0.474)
pt3dadd(84.927, 12.791, 32.389, 0.462)
pt3dadd(84.853, 12.706, 32.415, 0.448)
pt3dadd(84.789, 12.622, 32.463, 0.43)
pt3dadd(84.724, 12.538, 32.511, 0.414)
pt3dadd(84.66, 12.455, 32.558, 0.396)
pt3dadd(84.596, 12.371, 32.606, 0.38)
pt3dadd(84.531, 12.288, 32.654, 0.362)
pt3dadd(84.467, 12.204, 32.701, 0.344)
pt3dadd(84.403, 12.12, 32.749, 0.328)
pt3dadd(84.338, 12.037, 32.797, 0.31)
pt3dadd(84.274, 11.953, 32.844, 0.294)
pt3dadd(84.211, 11.865, 32.887, 0.282)
pt3dadd(84.148, 11.772, 32.923, 0.276)
pt3dadd(84.086, 11.68, 32.959, 0.27)
pt3dadd(84.023, 11.587, 32.996, 0.264)
pt3dadd(83.961, 11.494, 33.032, 0.258)
pt3dadd(83.899, 11.401, 33.068, 0.252)
pt3dadd(83.836, 11.308, 33.104, 0.246)
pt3dadd(83.774, 11.216, 33.141, 0.24)
pt3dadd(83.712, 11.123, 33.177, 0.234)
pt3dadd(83.649, 11.03, 33.213, 0.228)
pt3dadd(83.592, 10.932, 33.245, 0.226)
pt3dadd(83.541, 10.828, 33.272, 0.226)
pt3dadd(83.489, 10.725, 33.299, 0.226)
pt3dadd(83.438, 10.622, 33.326, 0.226)
pt3dadd(83.386, 10.518, 33.353, 0.226)
pt3dadd(83.335, 10.415, 33.38, 0.226)
pt3dadd(83.283, 10.311, 33.408, 0.226)
pt3dadd(83.232, 10.208, 33.435, 0.226)
pt3dadd(83.181, 10.104, 33.462, 0.226)
pt3dadd(83.129, 10.001, 33.489, 0.226)
pt3dadd(83.1, 9.889, 33.509, 0.226)
pt3dadd(83.081, 9.772, 33.527, 0.226)
pt3dadd(83.062, 9.656, 33.545, 0.226)
pt3dadd(83.044, 9.539, 33.562, 0.226)
pt3dadd(83.025, 9.422, 33.58, 0.226)
pt3dadd(83.007, 9.306, 33.597, 0.226)
pt3dadd(82.988, 9.189, 33.615, 0.226)
pt3dadd(82.969, 9.072, 33.632, 0.226)
pt3dadd(82.951, 8.956, 33.65, 0.226)
pt3dadd(82.932, 8.839, 33.668, 0.226)
pt3dadd(82.935, 8.721, 33.682, 0.226)
pt3dadd(82.948, 8.603, 33.694, 0.226)
pt3dadd(82.961, 8.484, 33.707, 0.226)
pt3dadd(82.974, 8.366, 33.719, 0.226)
pt3dadd(82.987, 8.248, 33.732, 0.226)
pt3dadd(83, 8.13, 33.744, 0.226)
pt3dadd(83.013, 8.011, 33.757, 0.226)
pt3dadd(83.027, 7.893, 33.769, 0.226)
pt3dadd(83.04, 7.774, 33.782, 0.226)
pt3dadd(83.053, 7.656, 33.794, 0.226)
pt3dadd(83.088, 7.543, 33.808, 0.226)
pt3dadd(83.132, 7.433, 33.822, 0.226)
pt3dadd(83.176, 7.323, 33.836, 0.226)
pt3dadd(83.22, 7.212, 33.85, 0.226)
pt3dadd(83.264, 7.102, 33.864, 0.226)
pt3dadd(83.309, 6.992, 33.878, 0.226)
}
}
proc shape3d_140() {
dend_7[9] { pt3dadd(83.353, 6.882, 33.892, 0.226)
pt3dadd(83.397, 6.771, 33.906, 0.226)
pt3dadd(83.441, 6.661, 33.92, 0.226)
pt3dadd(83.485, 6.551, 33.934, 0.226)
pt3dadd(83.555, 6.455, 33.95, 0.226)
pt3dadd(83.624, 6.359, 33.965, 0.226)
pt3dadd(83.694, 6.263, 33.981, 0.226)
pt3dadd(83.764, 6.167, 33.996, 0.226)
pt3dadd(83.833, 6.071, 34.012, 0.226)
pt3dadd(83.903, 5.975, 34.027, 0.226)
pt3dadd(83.973, 5.879, 34.043, 0.226)
pt3dadd(84.042, 5.783, 34.058, 0.226)
pt3dadd(84.112, 5.687, 34.074, 0.226)
pt3dadd(84.181, 5.591, 34.089, 0.226)
pt3dadd(84.275, 5.55, 34.141, 0.226)
pt3dadd(84.369, 5.508, 34.193, 0.226)
pt3dadd(84.462, 5.467, 34.245, 0.226)
pt3dadd(84.556, 5.425, 34.297, 0.226)
pt3dadd(84.65, 5.383, 34.349, 0.226)
pt3dadd(84.744, 5.342, 34.401, 0.226)
pt3dadd(84.837, 5.3, 34.453, 0.226)
pt3dadd(84.931, 5.259, 34.505, 0.226)
pt3dadd(85.024, 5.217, 34.557, 0.226)
pt3dadd(85.118, 5.175, 34.61, 0.226)
pt3dadd(85.212, 5.134, 34.661, 0.226)
pt3dadd(85.305, 5.092, 34.714, 0.226)
pt3dadd(85.399, 5.05, 34.766, 0.226)
pt3dadd(85.493, 5.009, 34.818, 0.226)
pt3dadd(85.586, 4.967, 34.87, 0.226)
pt3dadd(85.68, 4.926, 34.922, 0.226)
pt3dadd(85.773, 4.884, 34.974, 0.226)
pt3dadd(85.867, 4.842, 35.026, 0.226)
pt3dadd(85.961, 4.801, 35.078, 0.226)
pt3dadd(86.054, 4.759, 35.13, 0.226)
}
dend_7[10] {pt3dclear()
pt3dadd(114.158, 89.695, 23.11, 1.582)
pt3dadd(114.107, 89.678, 23.097, 1.57)
pt3dadd(113.998, 89.642, 23.07, 1.544)
pt3dadd(113.888, 89.605, 23.042, 1.516)
pt3dadd(113.779, 89.569, 23.015, 1.49)
pt3dadd(113.669, 89.532, 22.987, 1.464)
pt3dadd(113.56, 89.496, 22.96, 1.438)
pt3dadd(113.451, 89.459, 22.932, 1.412)
pt3dadd(113.341, 89.423, 22.905, 1.384)
pt3dadd(113.232, 89.386, 22.877, 1.358)
pt3dadd(113.122, 89.35, 22.85, 1.332)
pt3dadd(113.026, 89.288, 22.823, 1.296)
pt3dadd(112.934, 89.217, 22.798, 1.254)
pt3dadd(112.843, 89.146, 22.772, 1.214)
pt3dadd(112.751, 89.075, 22.746, 1.174)
pt3dadd(112.66, 89.004, 22.72, 1.132)
pt3dadd(112.568, 88.932, 22.694, 1.092)
pt3dadd(112.476, 88.861, 22.669, 1.052)
pt3dadd(112.385, 88.79, 22.643, 1.012)
pt3dadd(112.367, 88.69, 22.632, 0.964)
pt3dadd(112.393, 88.573, 22.629, 0.914)
pt3dadd(112.418, 88.455, 22.627, 0.862)
pt3dadd(112.444, 88.338, 22.625, 0.812)
pt3dadd(112.469, 88.221, 22.623, 0.76)
pt3dadd(112.494, 88.104, 22.62, 0.71)
pt3dadd(112.52, 87.986, 22.618, 0.658)
pt3dadd(112.545, 87.869, 22.616, 0.608)
pt3dadd(112.571, 87.752, 22.613, 0.556)
pt3dadd(112.596, 87.635, 22.611, 0.506)
pt3dadd(112.629, 87.519, 22.609, 0.47)
pt3dadd(112.666, 87.405, 22.606, 0.444)
pt3dadd(112.703, 87.291, 22.603, 0.418)
pt3dadd(112.74, 87.177, 22.601, 0.392)
pt3dadd(112.778, 87.063, 22.598, 0.366)
pt3dadd(112.815, 86.949, 22.596, 0.34)
pt3dadd(112.852, 86.835, 22.593, 0.314)
pt3dadd(112.889, 86.721, 22.59, 0.286)
pt3dadd(112.926, 86.607, 22.588, 0.26)
pt3dadd(112.963, 86.493, 22.585, 0.234)
pt3dadd(113.009, 86.382, 22.582, 0.226)
pt3dadd(113.058, 86.273, 22.579, 0.226)
pt3dadd(113.107, 86.163, 22.576, 0.226)
pt3dadd(113.156, 86.054, 22.573, 0.226)
pt3dadd(113.206, 85.944, 22.57, 0.226)
pt3dadd(113.255, 85.835, 22.567, 0.226)
pt3dadd(113.304, 85.726, 22.564, 0.226)
pt3dadd(113.353, 85.616, 22.562, 0.226)
pt3dadd(113.403, 85.507, 22.559, 0.226)
pt3dadd(113.452, 85.398, 22.556, 0.226)
pt3dadd(113.487, 85.284, 22.55, 0.264)
pt3dadd(113.517, 85.167, 22.543, 0.318)
pt3dadd(113.546, 85.051, 22.537, 0.372)
pt3dadd(113.575, 84.935, 22.53, 0.426)
pt3dadd(113.604, 84.819, 22.523, 0.48)
pt3dadd(113.634, 84.703, 22.516, 0.534)
pt3dadd(113.663, 84.587, 22.51, 0.588)
pt3dadd(113.692, 84.471, 22.503, 0.642)
pt3dadd(113.722, 84.355, 22.496, 0.696)
pt3dadd(113.751, 84.239, 22.49, 0.75)
pt3dadd(113.776, 84.122, 22.482, 0.784)
pt3dadd(113.799, 84.005, 22.473, 0.812)
pt3dadd(113.822, 83.887, 22.465, 0.838)
pt3dadd(113.845, 83.77, 22.456, 0.864)
pt3dadd(113.868, 83.653, 22.448, 0.89)
pt3dadd(113.891, 83.535, 22.439, 0.916)
pt3dadd(113.915, 83.418, 22.431, 0.942)
pt3dadd(113.938, 83.301, 22.422, 0.97)
pt3dadd(113.961, 83.183, 22.413, 0.996)
pt3dadd(113.984, 83.066, 22.405, 1.022)
pt3dadd(114, 82.948, 22.394, 1.008)
pt3dadd(114.012, 82.829, 22.383, 0.98)
pt3dadd(114.025, 82.711, 22.371, 0.952)
pt3dadd(114.038, 82.592, 22.36, 0.922)
pt3dadd(114.05, 82.474, 22.348, 0.894)
pt3dadd(114.063, 82.355, 22.336, 0.866)
pt3dadd(114.076, 82.237, 22.325, 0.838)
pt3dadd(114.089, 82.118, 22.313, 0.808)
pt3dadd(114.101, 82, 22.302, 0.78)
pt3dadd(114.114, 81.881, 22.29, 0.752)
pt3dadd(114.119, 81.766, 22.264, 0.738)
pt3dadd(114.122, 81.652, 22.233, 0.732)
pt3dadd(114.124, 81.539, 22.201, 0.726)
pt3dadd(114.126, 81.425, 22.169, 0.718)
pt3dadd(114.128, 81.311, 22.137, 0.712)
pt3dadd(114.131, 81.197, 22.106, 0.706)
pt3dadd(114.133, 81.083, 22.074, 0.7)
pt3dadd(114.135, 80.97, 22.042, 0.692)
pt3dadd(114.138, 80.856, 22.011, 0.686)
pt3dadd(114.14, 80.742, 21.979, 0.68)
pt3dadd(114.14, 80.63, 21.944, 0.676)
pt3dadd(114.139, 80.518, 21.908, 0.674)
pt3dadd(114.138, 80.406, 21.872, 0.67)
pt3dadd(114.137, 80.294, 21.835, 0.668)
pt3dadd(114.136, 80.182, 21.799, 0.666)
pt3dadd(114.135, 80.07, 21.763, 0.664)
pt3dadd(114.135, 79.958, 21.727, 0.66)
pt3dadd(114.134, 79.847, 21.691, 0.658)
pt3dadd(114.133, 79.735, 21.655, 0.656)
pt3dadd(114.132, 79.623, 21.618, 0.652)
pt3dadd(114.13, 79.507, 21.592, 0.63)
pt3dadd(114.129, 79.391, 21.568, 0.602)
pt3dadd(114.127, 79.275, 21.543, 0.574)
pt3dadd(114.125, 79.158, 21.519, 0.546)
pt3dadd(114.123, 79.042, 21.495, 0.518)
pt3dadd(114.121, 78.925, 21.47, 0.49)
pt3dadd(114.119, 78.809, 21.446, 0.462)
pt3dadd(114.117, 78.693, 21.422, 0.434)
pt3dadd(114.115, 78.576, 21.398, 0.406)
pt3dadd(114.113, 78.46, 21.373, 0.378)
pt3dadd(114.111, 78.342, 21.354, 0.388)
pt3dadd(114.108, 78.224, 21.335, 0.408)
pt3dadd(114.105, 78.106, 21.317, 0.428)
pt3dadd(114.102, 77.988, 21.299, 0.448)
pt3dadd(114.099, 77.87, 21.281, 0.468)
pt3dadd(114.096, 77.752, 21.263, 0.49)
pt3dadd(114.093, 77.634, 21.244, 0.51)
pt3dadd(114.09, 77.516, 21.226, 0.53)
pt3dadd(114.087, 77.398, 21.208, 0.55)
pt3dadd(114.085, 77.28, 21.19, 0.57)
pt3dadd(114.081, 77.162, 21.177, 0.632)
pt3dadd(114.077, 77.043, 21.165, 0.704)
pt3dadd(114.073, 76.923, 21.153, 0.776)
pt3dadd(114.069, 76.804, 21.142, 0.85)
pt3dadd(114.066, 76.685, 21.13, 0.922)
pt3dadd(114.062, 76.566, 21.118, 0.994)
pt3dadd(114.058, 76.447, 21.107, 1.066)
pt3dadd(114.054, 76.328, 21.095, 1.138)
pt3dadd(114.05, 76.209, 21.083, 1.21)
pt3dadd(114.046, 76.09, 21.071, 1.282)
pt3dadd(114.038, 75.97, 21.068, 1.31)
pt3dadd(114.029, 75.85, 21.065, 1.33)
pt3dadd(114.02, 75.731, 21.063, 1.35)
pt3dadd(114.011, 75.611, 21.061, 1.368)
pt3dadd(114.002, 75.492, 21.058, 1.388)
pt3dadd(113.993, 75.372, 21.056, 1.408)
pt3dadd(113.983, 75.252, 21.054, 1.426)
pt3dadd(113.974, 75.133, 21.051, 1.446)
pt3dadd(113.965, 75.013, 21.049, 1.466)
pt3dadd(113.956, 74.893, 21.047, 1.486)
pt3dadd(113.945, 74.774, 21.045, 1.484)
pt3dadd(113.933, 74.655, 21.043, 1.478)
pt3dadd(113.921, 74.535, 21.041, 1.472)
pt3dadd(113.909, 74.416, 21.039, 1.464)
pt3dadd(113.897, 74.297, 21.037, 1.458)
pt3dadd(113.885, 74.177, 21.035, 1.452)
pt3dadd(113.873, 74.058, 21.033, 1.446)
pt3dadd(113.861, 73.938, 21.031, 1.44)
pt3dadd(113.849, 73.819, 21.029, 1.434)
pt3dadd(113.837, 73.7, 21.027, 1.428)
pt3dadd(113.821, 73.581, 21.025, 1.39)
pt3dadd(113.804, 73.462, 21.022, 1.346)
pt3dadd(113.788, 73.343, 21.019, 1.302)
pt3dadd(113.772, 73.224, 21.016, 1.26)
pt3dadd(113.755, 73.105, 21.013, 1.216)
pt3dadd(113.739, 72.987, 21.01, 1.172)
pt3dadd(113.722, 72.868, 21.007, 1.128)
pt3dadd(113.706, 72.749, 21.004, 1.084)
pt3dadd(113.689, 72.63, 21.002, 1.04)
pt3dadd(113.673, 72.511, 20.999, 0.998)
pt3dadd(113.634, 72.398, 20.993, 0.964)
pt3dadd(113.591, 72.287, 20.987, 0.934)
pt3dadd(113.548, 72.175, 20.982, 0.904)
pt3dadd(113.505, 72.063, 20.976, 0.874)
pt3dadd(113.461, 71.952, 20.97, 0.842)
pt3dadd(113.418, 71.84, 20.964, 0.812)
pt3dadd(113.375, 71.728, 20.958, 0.782)
}
}
proc shape3d_141() {
dend_7[10] { pt3dadd(113.332, 71.616, 20.952, 0.75)
pt3dadd(113.288, 71.505, 20.946, 0.72)
pt3dadd(113.245, 71.393, 20.94, 0.69)
pt3dadd(113.197, 71.283, 20.933, 0.67)
pt3dadd(113.149, 71.174, 20.926, 0.654)
pt3dadd(113.101, 71.064, 20.919, 0.636)
pt3dadd(113.052, 70.955, 20.912, 0.618)
pt3dadd(113.004, 70.845, 20.904, 0.6)
pt3dadd(112.955, 70.736, 20.897, 0.582)
pt3dadd(112.907, 70.626, 20.89, 0.566)
pt3dadd(112.859, 70.517, 20.882, 0.548)
pt3dadd(112.81, 70.407, 20.875, 0.53)
pt3dadd(112.762, 70.298, 20.868, 0.512)
pt3dadd(112.72, 70.186, 20.857, 0.55)
pt3dadd(112.679, 70.075, 20.845, 0.594)
pt3dadd(112.637, 69.963, 20.833, 0.636)
pt3dadd(112.596, 69.851, 20.822, 0.68)
pt3dadd(112.555, 69.739, 20.81, 0.724)
pt3dadd(112.514, 69.627, 20.798, 0.768)
pt3dadd(112.472, 69.516, 20.787, 0.81)
pt3dadd(112.431, 69.404, 20.775, 0.854)
pt3dadd(112.39, 69.292, 20.763, 0.898)
pt3dadd(112.349, 69.18, 20.752, 0.942)
pt3dadd(112.311, 69.071, 20.725, 0.978)
pt3dadd(112.274, 68.962, 20.697, 1.012)
pt3dadd(112.237, 68.853, 20.669, 1.048)
pt3dadd(112.2, 68.744, 20.641, 1.084)
pt3dadd(112.162, 68.635, 20.613, 1.118)
pt3dadd(112.125, 68.526, 20.584, 1.154)
pt3dadd(112.088, 68.417, 20.556, 1.19)
pt3dadd(112.051, 68.308, 20.528, 1.224)
pt3dadd(112.014, 68.199, 20.5, 1.26)
pt3dadd(111.977, 68.09, 20.472, 1.296)
pt3dadd(111.943, 67.985, 20.432, 1.324)
pt3dadd(111.91, 67.88, 20.393, 1.352)
pt3dadd(111.876, 67.775, 20.353, 1.382)
pt3dadd(111.843, 67.67, 20.313, 1.41)
pt3dadd(111.809, 67.565, 20.274, 1.438)
pt3dadd(111.776, 67.46, 20.234, 1.468)
pt3dadd(111.742, 67.355, 20.194, 1.496)
pt3dadd(111.709, 67.25, 20.155, 1.524)
pt3dadd(111.675, 67.145, 20.115, 1.554)
pt3dadd(111.642, 67.04, 20.075, 1.582)
}
dend_7[11] {pt3dclear()
pt3dadd(111.642, 67.04, 20.075, 1.582)
pt3dadd(111.567, 66.954, 20.046, 1.582)
pt3dadd(111.492, 66.868, 20.016, 1.582)
pt3dadd(111.416, 66.782, 19.987, 1.582)
pt3dadd(111.341, 66.696, 19.957, 1.582)
pt3dadd(111.266, 66.608, 19.929, 1.576)
pt3dadd(111.192, 66.52, 19.901, 1.568)
pt3dadd(111.118, 66.431, 19.874, 1.56)
pt3dadd(111.043, 66.343, 19.846, 1.552)
pt3dadd(110.969, 66.255, 19.819, 1.544)
pt3dadd(110.895, 66.167, 19.791, 1.536)
pt3dadd(110.82, 66.079, 19.764, 1.528)
pt3dadd(110.746, 65.99, 19.736, 1.52)
pt3dadd(110.672, 65.902, 19.708, 1.512)
pt3dadd(110.597, 65.814, 19.681, 1.504)
pt3dadd(110.53, 65.717, 19.665, 1.454)
pt3dadd(110.466, 65.617, 19.653, 1.39)
pt3dadd(110.402, 65.517, 19.64, 1.326)
pt3dadd(110.337, 65.416, 19.628, 1.26)
pt3dadd(110.273, 65.316, 19.615, 1.196)
pt3dadd(110.208, 65.216, 19.603, 1.132)
pt3dadd(110.144, 65.116, 19.591, 1.068)
pt3dadd(110.079, 65.016, 19.579, 1.004)
pt3dadd(110.015, 64.916, 19.566, 0.94)
pt3dadd(109.95, 64.816, 19.554, 0.876)
pt3dadd(109.879, 64.72, 19.548, 0.84)
pt3dadd(109.805, 64.625, 19.545, 0.812)
pt3dadd(109.731, 64.531, 19.541, 0.786)
pt3dadd(109.657, 64.436, 19.538, 0.758)
pt3dadd(109.584, 64.341, 19.534, 0.73)
pt3dadd(109.51, 64.247, 19.53, 0.704)
pt3dadd(109.436, 64.152, 19.527, 0.676)
pt3dadd(109.362, 64.058, 19.523, 0.648)
pt3dadd(109.289, 63.963, 19.52, 0.622)
pt3dadd(109.215, 63.869, 19.516, 0.594)
pt3dadd(109.138, 63.776, 19.515, 0.578)
pt3dadd(109.061, 63.684, 19.515, 0.566)
pt3dadd(108.984, 63.593, 19.515, 0.554)
pt3dadd(108.907, 63.501, 19.515, 0.542)
pt3dadd(108.83, 63.409, 19.515, 0.528)
pt3dadd(108.752, 63.317, 19.515, 0.516)
pt3dadd(108.675, 63.225, 19.515, 0.504)
pt3dadd(108.598, 63.133, 19.515, 0.492)
pt3dadd(108.521, 63.041, 19.515, 0.478)
pt3dadd(108.444, 62.949, 19.515, 0.466)
pt3dadd(108.365, 62.859, 19.515, 0.486)
pt3dadd(108.286, 62.768, 19.515, 0.516)
pt3dadd(108.207, 62.678, 19.515, 0.544)
pt3dadd(108.128, 62.587, 19.514, 0.572)
pt3dadd(108.05, 62.497, 19.514, 0.6)
pt3dadd(107.971, 62.406, 19.514, 0.628)
pt3dadd(107.892, 62.316, 19.514, 0.658)
pt3dadd(107.813, 62.226, 19.514, 0.686)
pt3dadd(107.734, 62.135, 19.514, 0.714)
pt3dadd(107.655, 62.045, 19.514, 0.742)
pt3dadd(107.577, 61.954, 19.514, 0.774)
pt3dadd(107.497, 61.864, 19.514, 0.806)
pt3dadd(107.418, 61.774, 19.514, 0.84)
pt3dadd(107.339, 61.683, 19.514, 0.872)
pt3dadd(107.26, 61.593, 19.513, 0.904)
pt3dadd(107.181, 61.503, 19.513, 0.938)
pt3dadd(107.102, 61.412, 19.513, 0.97)
pt3dadd(107.023, 61.322, 19.513, 1.002)
pt3dadd(106.944, 61.232, 19.513, 1.036)
pt3dadd(106.865, 61.141, 19.513, 1.068)
pt3dadd(106.783, 61.054, 19.513, 1.058)
pt3dadd(106.7, 60.967, 19.513, 1.038)
pt3dadd(106.617, 60.88, 19.512, 1.018)
pt3dadd(106.535, 60.794, 19.512, 0.998)
pt3dadd(106.452, 60.707, 19.512, 0.976)
pt3dadd(106.369, 60.62, 19.512, 0.956)
pt3dadd(106.286, 60.533, 19.512, 0.936)
pt3dadd(106.203, 60.446, 19.511, 0.916)
pt3dadd(106.12, 60.36, 19.511, 0.894)
pt3dadd(106.038, 60.273, 19.511, 0.874)
pt3dadd(105.954, 60.186, 19.511, 0.844)
pt3dadd(105.87, 60.1, 19.511, 0.814)
pt3dadd(105.787, 60.014, 19.51, 0.782)
pt3dadd(105.703, 59.928, 19.51, 0.75)
pt3dadd(105.619, 59.842, 19.51, 0.72)
pt3dadd(105.536, 59.756, 19.51, 0.688)
pt3dadd(105.452, 59.67, 19.51, 0.658)
pt3dadd(105.369, 59.584, 19.509, 0.626)
pt3dadd(105.285, 59.498, 19.509, 0.594)
pt3dadd(105.201, 59.412, 19.509, 0.564)
pt3dadd(105.119, 59.325, 19.509, 0.544)
pt3dadd(105.036, 59.238, 19.508, 0.526)
pt3dadd(104.954, 59.15, 19.508, 0.508)
pt3dadd(104.872, 59.063, 19.507, 0.49)
pt3dadd(104.789, 58.976, 19.507, 0.472)
pt3dadd(104.707, 58.889, 19.507, 0.456)
pt3dadd(104.625, 58.801, 19.506, 0.438)
pt3dadd(104.542, 58.714, 19.506, 0.42)
pt3dadd(104.46, 58.627, 19.506, 0.402)
pt3dadd(104.378, 58.539, 19.505, 0.384)
pt3dadd(104.296, 58.452, 19.505, 0.372)
pt3dadd(104.214, 58.364, 19.504, 0.362)
pt3dadd(104.132, 58.276, 19.504, 0.352)
pt3dadd(104.051, 58.188, 19.503, 0.34)
pt3dadd(103.969, 58.1, 19.503, 0.33)
pt3dadd(103.887, 58.012, 19.502, 0.32)
pt3dadd(103.806, 57.924, 19.502, 0.308)
pt3dadd(103.724, 57.836, 19.502, 0.298)
pt3dadd(103.642, 57.749, 19.501, 0.288)
pt3dadd(103.56, 57.661, 19.501, 0.276)
pt3dadd(103.48, 57.572, 19.5, 0.284)
pt3dadd(103.399, 57.483, 19.499, 0.298)
pt3dadd(103.319, 57.394, 19.498, 0.312)
pt3dadd(103.238, 57.305, 19.498, 0.324)
pt3dadd(103.158, 57.216, 19.497, 0.338)
pt3dadd(103.077, 57.127, 19.496, 0.35)
pt3dadd(102.997, 57.038, 19.495, 0.364)
pt3dadd(102.916, 56.949, 19.494, 0.378)
pt3dadd(102.836, 56.86, 19.494, 0.39)
pt3dadd(102.755, 56.771, 19.493, 0.404)
pt3dadd(102.676, 56.681, 19.492, 0.434)
pt3dadd(102.596, 56.591, 19.491, 0.466)
pt3dadd(102.517, 56.501, 19.49, 0.5)
pt3dadd(102.438, 56.411, 19.489, 0.532)
pt3dadd(102.358, 56.321, 19.488, 0.566)
pt3dadd(102.279, 56.231, 19.486, 0.598)
pt3dadd(102.199, 56.141, 19.486, 0.632)
pt3dadd(102.12, 56.051, 19.484, 0.664)
pt3dadd(102.041, 55.961, 19.483, 0.698)
pt3dadd(101.961, 55.871, 19.482, 0.732)
pt3dadd(101.889, 55.776, 19.481, 0.75)
pt3dadd(101.818, 55.679, 19.479, 0.768)
pt3dadd(101.748, 55.582, 19.477, 0.784)
pt3dadd(101.677, 55.485, 19.475, 0.802)
pt3dadd(101.607, 55.388, 19.474, 0.818)
pt3dadd(101.536, 55.291, 19.472, 0.834)
pt3dadd(101.465, 55.194, 19.47, 0.852)
pt3dadd(101.395, 55.097, 19.468, 0.868)
pt3dadd(101.324, 54.999, 19.466, 0.884)
pt3dadd(101.253, 54.903, 19.465, 0.902)
pt3dadd(101.191, 54.8, 19.462, 0.904)
pt3dadd(101.13, 54.697, 19.46, 0.904)
pt3dadd(101.069, 54.593, 19.457, 0.904)
pt3dadd(101.009, 54.49, 19.455, 0.904)
pt3dadd(100.948, 54.387, 19.452, 0.904)
pt3dadd(100.887, 54.283, 19.45, 0.904)
pt3dadd(100.826, 54.18, 19.447, 0.904)
pt3dadd(100.765, 54.076, 19.445, 0.904)
pt3dadd(100.704, 53.973, 19.443, 0.904)
pt3dadd(100.644, 53.87, 19.44, 0.904)
pt3dadd(100.576, 53.771, 19.435, 0.904)
pt3dadd(100.507, 53.672, 19.43, 0.904)
pt3dadd(100.439, 53.574, 19.425, 0.904)
pt3dadd(100.37, 53.476, 19.42, 0.904)
pt3dadd(100.302, 53.378, 19.415, 0.904)
pt3dadd(100.233, 53.279, 19.41, 0.904)
pt3dadd(100.164, 53.181, 19.405, 0.904)
pt3dadd(100.096, 53.083, 19.399, 0.904)
pt3dadd(100.027, 52.984, 19.394, 0.904)
pt3dadd(99.959, 52.886, 19.389, 0.904)
pt3dadd(99.888, 52.79, 19.383, 0.904)
pt3dadd(99.816, 52.693, 19.377, 0.904)
}
}
proc shape3d_142() {
dend_7[11] { pt3dadd(99.745, 52.597, 19.371, 0.904)
pt3dadd(99.674, 52.501, 19.365, 0.904)
pt3dadd(99.603, 52.405, 19.359, 0.904)
pt3dadd(99.531, 52.308, 19.353, 0.904)
pt3dadd(99.46, 52.212, 19.347, 0.904)
pt3dadd(99.389, 52.116, 19.341, 0.904)
pt3dadd(99.318, 52.019, 19.335, 0.904)
pt3dadd(99.246, 51.923, 19.329, 0.904)
pt3dadd(99.169, 51.833, 19.32, 0.894)
pt3dadd(99.09, 51.743, 19.311, 0.882)
pt3dadd(99.011, 51.653, 19.301, 0.87)
pt3dadd(98.932, 51.563, 19.292, 0.858)
pt3dadd(98.853, 51.474, 19.282, 0.846)
pt3dadd(98.774, 51.384, 19.273, 0.834)
pt3dadd(98.695, 51.294, 19.263, 0.824)
pt3dadd(98.616, 51.205, 19.253, 0.812)
pt3dadd(98.538, 51.115, 19.244, 0.8)
pt3dadd(98.459, 51.025, 19.234, 0.788)
pt3dadd(98.379, 50.937, 19.221, 0.778)
pt3dadd(98.299, 50.849, 19.206, 0.77)
pt3dadd(98.22, 50.761, 19.192, 0.76)
pt3dadd(98.14, 50.673, 19.178, 0.752)
pt3dadd(98.06, 50.585, 19.164, 0.744)
pt3dadd(97.98, 50.497, 19.149, 0.734)
pt3dadd(97.9, 50.409, 19.135, 0.726)
pt3dadd(97.821, 50.321, 19.121, 0.718)
pt3dadd(97.741, 50.233, 19.107, 0.708)
pt3dadd(97.661, 50.145, 19.092, 0.7)
pt3dadd(97.583, 50.07, 19.051, 0.714)
pt3dadd(97.505, 49.995, 19.007, 0.73)
pt3dadd(97.426, 49.92, 18.964, 0.746)
pt3dadd(97.348, 49.846, 18.92, 0.762)
pt3dadd(97.27, 49.771, 18.877, 0.778)
pt3dadd(97.191, 49.697, 18.834, 0.794)
pt3dadd(97.113, 49.622, 18.79, 0.81)
pt3dadd(97.035, 49.547, 18.747, 0.826)
pt3dadd(96.957, 49.473, 18.703, 0.842)
pt3dadd(96.879, 49.398, 18.66, 0.858)
pt3dadd(96.794, 49.321, 18.63, 0.872)
pt3dadd(96.71, 49.243, 18.601, 0.886)
pt3dadd(96.625, 49.165, 18.573, 0.902)
pt3dadd(96.54, 49.088, 18.544, 0.916)
pt3dadd(96.456, 49.01, 18.515, 0.932)
pt3dadd(96.371, 48.932, 18.486, 0.946)
pt3dadd(96.286, 48.855, 18.457, 0.96)
pt3dadd(96.202, 48.777, 18.428, 0.976)
pt3dadd(96.117, 48.699, 18.4, 0.99)
pt3dadd(96.033, 48.621, 18.371, 1.004)
pt3dadd(95.945, 48.543, 18.35, 1.014)
pt3dadd(95.858, 48.464, 18.329, 1.024)
pt3dadd(95.771, 48.386, 18.308, 1.034)
pt3dadd(95.684, 48.307, 18.287, 1.042)
pt3dadd(95.597, 48.228, 18.266, 1.052)
pt3dadd(95.51, 48.15, 18.245, 1.062)
pt3dadd(95.423, 48.071, 18.224, 1.072)
pt3dadd(95.335, 47.993, 18.203, 1.08)
pt3dadd(95.248, 47.914, 18.182, 1.09)
pt3dadd(95.161, 47.836, 18.161, 1.1)
}
dend_7[12] {pt3dclear()
pt3dadd(95.161, 47.836, 18.161, 1.1)
pt3dadd(95.09, 47.774, 18.155, 1.08)
pt3dadd(94.999, 47.695, 18.148, 1.054)
pt3dadd(94.909, 47.617, 18.141, 1.028)
pt3dadd(94.818, 47.539, 18.133, 1.004)
pt3dadd(94.728, 47.46, 18.126, 0.978)
pt3dadd(94.637, 47.382, 18.119, 0.952)
pt3dadd(94.547, 47.304, 18.112, 0.928)
pt3dadd(94.456, 47.225, 18.104, 0.902)
pt3dadd(94.366, 47.147, 18.097, 0.876)
pt3dadd(94.275, 47.069, 18.09, 0.85)
pt3dadd(94.181, 46.995, 18.086, 0.836)
pt3dadd(94.085, 46.923, 18.084, 0.824)
pt3dadd(93.99, 46.85, 18.081, 0.812)
pt3dadd(93.894, 46.778, 18.079, 0.8)
pt3dadd(93.798, 46.705, 18.076, 0.788)
pt3dadd(93.702, 46.633, 18.074, 0.774)
pt3dadd(93.607, 46.561, 18.071, 0.762)
pt3dadd(93.511, 46.488, 18.069, 0.75)
pt3dadd(93.415, 46.416, 18.066, 0.738)
pt3dadd(93.32, 46.344, 18.064, 0.726)
pt3dadd(93.217, 46.283, 18.069, 0.736)
pt3dadd(93.113, 46.223, 18.076, 0.75)
pt3dadd(93.009, 46.164, 18.082, 0.764)
pt3dadd(92.905, 46.104, 18.089, 0.776)
pt3dadd(92.801, 46.045, 18.095, 0.79)
pt3dadd(92.697, 45.986, 18.102, 0.804)
pt3dadd(92.593, 45.927, 18.109, 0.818)
pt3dadd(92.489, 45.867, 18.115, 0.832)
pt3dadd(92.385, 45.808, 18.122, 0.844)
pt3dadd(92.281, 45.749, 18.128, 0.858)
pt3dadd(92.181, 45.683, 18.138, 0.872)
pt3dadd(92.082, 45.616, 18.147, 0.886)
pt3dadd(91.983, 45.549, 18.156, 0.898)
pt3dadd(91.884, 45.483, 18.166, 0.912)
pt3dadd(91.785, 45.416, 18.175, 0.926)
pt3dadd(91.686, 45.349, 18.185, 0.94)
pt3dadd(91.587, 45.282, 18.194, 0.952)
pt3dadd(91.488, 45.215, 18.204, 0.966)
pt3dadd(91.389, 45.149, 18.213, 0.98)
pt3dadd(91.29, 45.082, 18.223, 0.994)
pt3dadd(91.193, 45.012, 18.233, 1.006)
pt3dadd(91.096, 44.942, 18.244, 1.02)
pt3dadd(91, 44.872, 18.255, 1.034)
pt3dadd(90.903, 44.802, 18.265, 1.046)
pt3dadd(90.807, 44.732, 18.276, 1.06)
pt3dadd(90.71, 44.661, 18.287, 1.074)
pt3dadd(90.614, 44.591, 18.298, 1.086)
pt3dadd(90.517, 44.521, 18.309, 1.1)
pt3dadd(90.421, 44.451, 18.319, 1.114)
pt3dadd(90.324, 44.381, 18.33, 1.128)
pt3dadd(90.241, 44.313, 18.373, 1.07)
pt3dadd(90.16, 44.245, 18.42, 1.002)
pt3dadd(90.078, 44.177, 18.467, 0.934)
pt3dadd(89.997, 44.109, 18.514, 0.866)
pt3dadd(89.916, 44.041, 18.561, 0.798)
pt3dadd(89.835, 43.974, 18.608, 0.73)
pt3dadd(89.753, 43.906, 18.655, 0.664)
pt3dadd(89.672, 43.838, 18.702, 0.596)
pt3dadd(89.591, 43.77, 18.749, 0.528)
pt3dadd(89.51, 43.702, 18.796, 0.46)
pt3dadd(89.429, 43.623, 18.83, 0.432)
pt3dadd(89.348, 43.543, 18.862, 0.408)
pt3dadd(89.268, 43.463, 18.894, 0.386)
pt3dadd(89.187, 43.383, 18.926, 0.364)
pt3dadd(89.106, 43.303, 18.958, 0.34)
pt3dadd(89.025, 43.223, 18.99, 0.318)
pt3dadd(88.945, 43.143, 19.022, 0.296)
pt3dadd(88.864, 43.063, 19.054, 0.272)
pt3dadd(88.783, 42.983, 19.086, 0.25)
pt3dadd(88.703, 42.903, 19.118, 0.226)
pt3dadd(88.623, 42.818, 19.142, 0.226)
pt3dadd(88.543, 42.732, 19.165, 0.228)
pt3dadd(88.464, 42.647, 19.188, 0.228)
pt3dadd(88.384, 42.562, 19.211, 0.23)
pt3dadd(88.304, 42.476, 19.235, 0.23)
pt3dadd(88.225, 42.391, 19.258, 0.23)
pt3dadd(88.145, 42.306, 19.281, 0.232)
pt3dadd(88.065, 42.22, 19.304, 0.232)
pt3dadd(87.986, 42.135, 19.327, 0.234)
pt3dadd(87.906, 42.05, 19.351, 0.234)
pt3dadd(87.825, 41.962, 19.361, 0.246)
pt3dadd(87.744, 41.874, 19.371, 0.258)
pt3dadd(87.664, 41.786, 19.38, 0.272)
pt3dadd(87.583, 41.698, 19.39, 0.284)
pt3dadd(87.502, 41.61, 19.4, 0.296)
pt3dadd(87.421, 41.522, 19.41, 0.31)
pt3dadd(87.34, 41.434, 19.42, 0.322)
pt3dadd(87.259, 41.346, 19.429, 0.334)
pt3dadd(87.179, 41.259, 19.439, 0.346)
pt3dadd(87.098, 41.171, 19.449, 0.36)
pt3dadd(87.02, 41.079, 19.456, 0.368)
pt3dadd(86.943, 40.988, 19.463, 0.378)
pt3dadd(86.866, 40.897, 19.471, 0.388)
pt3dadd(86.788, 40.805, 19.478, 0.396)
pt3dadd(86.711, 40.714, 19.485, 0.406)
pt3dadd(86.634, 40.623, 19.493, 0.416)
pt3dadd(86.556, 40.531, 19.5, 0.424)
pt3dadd(86.479, 40.44, 19.507, 0.434)
pt3dadd(86.402, 40.348, 19.514, 0.442)
pt3dadd(86.325, 40.257, 19.521, 0.452)
pt3dadd(86.258, 40.158, 19.522, 0.452)
pt3dadd(86.19, 40.058, 19.522, 0.452)
pt3dadd(86.123, 39.959, 19.522, 0.452)
pt3dadd(86.056, 39.859, 19.523, 0.452)
pt3dadd(85.989, 39.759, 19.523, 0.452)
pt3dadd(85.922, 39.66, 19.523, 0.452)
pt3dadd(85.855, 39.561, 19.524, 0.452)
pt3dadd(85.788, 39.461, 19.524, 0.452)
pt3dadd(85.721, 39.362, 19.524, 0.452)
pt3dadd(85.654, 39.262, 19.524, 0.452)
pt3dadd(85.577, 39.17, 19.525, 0.444)
pt3dadd(85.5, 39.077, 19.525, 0.436)
pt3dadd(85.424, 38.985, 19.526, 0.428)
pt3dadd(85.347, 38.893, 19.526, 0.42)
pt3dadd(85.27, 38.801, 19.527, 0.412)
pt3dadd(85.194, 38.708, 19.527, 0.404)
pt3dadd(85.117, 38.616, 19.528, 0.396)
pt3dadd(85.04, 38.524, 19.528, 0.388)
pt3dadd(84.963, 38.432, 19.529, 0.38)
pt3dadd(84.886, 38.34, 19.529, 0.372)
pt3dadd(84.804, 38.253, 19.53, 0.358)
pt3dadd(84.721, 38.166, 19.53, 0.346)
pt3dadd(84.638, 38.079, 19.531, 0.332)
pt3dadd(84.555, 37.992, 19.531, 0.32)
pt3dadd(84.472, 37.906, 19.532, 0.306)
pt3dadd(84.389, 37.819, 19.533, 0.292)
pt3dadd(84.306, 37.732, 19.533, 0.28)
pt3dadd(84.223, 37.645, 19.534, 0.266)
pt3dadd(84.14, 37.559, 19.535, 0.252)
pt3dadd(84.057, 37.473, 19.535, 0.24)
pt3dadd(83.951, 37.416, 19.537, 0.238)
pt3dadd(83.845, 37.36, 19.538, 0.238)
pt3dadd(83.739, 37.304, 19.539, 0.236)
pt3dadd(83.633, 37.248, 19.541, 0.234)
pt3dadd(83.527, 37.191, 19.542, 0.234)
pt3dadd(83.421, 37.135, 19.543, 0.232)
pt3dadd(83.315, 37.079, 19.545, 0.23)
pt3dadd(83.209, 37.022, 19.546, 0.228)
pt3dadd(83.103, 36.966, 19.548, 0.228)
pt3dadd(82.997, 36.911, 19.549, 0.226)
pt3dadd(82.885, 36.867, 19.551, 0.226)
}
}
proc shape3d_143() {
dend_7[12] { pt3dadd(82.773, 36.824, 19.553, 0.226)
pt3dadd(82.662, 36.78, 19.555, 0.226)
pt3dadd(82.55, 36.736, 19.557, 0.226)
pt3dadd(82.438, 36.693, 19.559, 0.226)
pt3dadd(82.326, 36.649, 19.561, 0.226)
pt3dadd(82.215, 36.605, 19.563, 0.226)
pt3dadd(82.103, 36.562, 19.565, 0.226)
pt3dadd(81.991, 36.518, 19.567, 0.226)
pt3dadd(81.878, 36.477, 19.569, 0.226)
pt3dadd(81.762, 36.45, 19.572, 0.226)
pt3dadd(81.645, 36.423, 19.575, 0.226)
pt3dadd(81.528, 36.396, 19.578, 0.226)
pt3dadd(81.411, 36.368, 19.581, 0.226)
pt3dadd(81.294, 36.341, 19.583, 0.226)
pt3dadd(81.177, 36.314, 19.586, 0.226)
pt3dadd(81.06, 36.287, 19.589, 0.226)
pt3dadd(80.944, 36.26, 19.592, 0.226)
pt3dadd(80.827, 36.233, 19.595, 0.226)
pt3dadd(80.711, 36.204, 19.598, 0.23)
pt3dadd(80.598, 36.163, 19.604, 0.26)
pt3dadd(80.486, 36.122, 19.61, 0.292)
pt3dadd(80.373, 36.081, 19.615, 0.322)
pt3dadd(80.26, 36.039, 19.621, 0.352)
pt3dadd(80.148, 35.998, 19.627, 0.382)
pt3dadd(80.035, 35.957, 19.633, 0.412)
pt3dadd(79.923, 35.916, 19.639, 0.442)
pt3dadd(79.81, 35.875, 19.644, 0.472)
pt3dadd(79.698, 35.834, 19.65, 0.502)
pt3dadd(79.585, 35.793, 19.656, 0.534)
pt3dadd(79.474, 35.748, 19.663, 0.57)
pt3dadd(79.363, 35.703, 19.67, 0.606)
pt3dadd(79.252, 35.659, 19.677, 0.642)
pt3dadd(79.141, 35.614, 19.684, 0.678)
pt3dadd(79.03, 35.57, 19.691, 0.714)
pt3dadd(78.919, 35.525, 19.698, 0.75)
pt3dadd(78.808, 35.48, 19.705, 0.786)
pt3dadd(78.697, 35.436, 19.712, 0.822)
pt3dadd(78.586, 35.391, 19.719, 0.856)
pt3dadd(78.474, 35.349, 19.727, 0.882)
pt3dadd(78.359, 35.318, 19.739, 0.854)
pt3dadd(78.244, 35.287, 19.75, 0.826)
pt3dadd(78.129, 35.256, 19.762, 0.798)
pt3dadd(78.013, 35.225, 19.774, 0.77)
pt3dadd(77.898, 35.194, 19.785, 0.742)
pt3dadd(77.783, 35.163, 19.797, 0.714)
pt3dadd(77.668, 35.132, 19.809, 0.686)
pt3dadd(77.553, 35.101, 19.82, 0.658)
pt3dadd(77.438, 35.07, 19.832, 0.63)
pt3dadd(77.323, 35.04, 19.846, 0.604)
pt3dadd(77.209, 35.015, 19.869, 0.582)
pt3dadd(77.095, 34.99, 19.893, 0.56)
pt3dadd(76.982, 34.965, 19.916, 0.538)
pt3dadd(76.868, 34.94, 19.94, 0.516)
pt3dadd(76.754, 34.915, 19.963, 0.494)
pt3dadd(76.64, 34.89, 19.987, 0.474)
pt3dadd(76.526, 34.864, 20.01, 0.452)
pt3dadd(76.412, 34.839, 20.034, 0.43)
pt3dadd(76.298, 34.814, 20.057, 0.408)
pt3dadd(76.185, 34.791, 20.085, 0.388)
pt3dadd(76.076, 34.774, 20.123, 0.376)
pt3dadd(75.966, 34.757, 20.161, 0.362)
pt3dadd(75.856, 34.74, 20.199, 0.348)
pt3dadd(75.747, 34.723, 20.237, 0.336)
pt3dadd(75.637, 34.705, 20.275, 0.322)
pt3dadd(75.527, 34.688, 20.313, 0.308)
pt3dadd(75.417, 34.671, 20.35, 0.296)
pt3dadd(75.308, 34.654, 20.388, 0.282)
pt3dadd(75.198, 34.637, 20.426, 0.268)
pt3dadd(75.087, 34.621, 20.462, 0.258)
pt3dadd(74.973, 34.608, 20.491, 0.254)
pt3dadd(74.859, 34.594, 20.52, 0.252)
pt3dadd(74.745, 34.581, 20.549, 0.248)
pt3dadd(74.631, 34.568, 20.578, 0.244)
pt3dadd(74.517, 34.555, 20.607, 0.242)
pt3dadd(74.403, 34.542, 20.637, 0.238)
pt3dadd(74.289, 34.528, 20.666, 0.234)
pt3dadd(74.175, 34.515, 20.695, 0.232)
pt3dadd(74.061, 34.502, 20.724, 0.228)
pt3dadd(73.947, 34.488, 20.752, 0.226)
pt3dadd(73.831, 34.475, 20.776, 0.23)
pt3dadd(73.715, 34.461, 20.801, 0.232)
pt3dadd(73.6, 34.447, 20.826, 0.234)
pt3dadd(73.484, 34.433, 20.85, 0.236)
pt3dadd(73.369, 34.419, 20.875, 0.24)
pt3dadd(73.253, 34.406, 20.899, 0.242)
pt3dadd(73.138, 34.392, 20.924, 0.244)
pt3dadd(73.022, 34.378, 20.948, 0.246)
pt3dadd(72.907, 34.364, 20.973, 0.25)
pt3dadd(72.791, 34.347, 20.995, 0.256)
pt3dadd(72.675, 34.324, 21.01, 0.27)
pt3dadd(72.559, 34.301, 21.025, 0.284)
pt3dadd(72.442, 34.277, 21.041, 0.3)
pt3dadd(72.326, 34.254, 21.056, 0.314)
pt3dadd(72.21, 34.231, 21.072, 0.33)
pt3dadd(72.094, 34.207, 21.087, 0.344)
pt3dadd(71.977, 34.184, 21.103, 0.358)
pt3dadd(71.861, 34.161, 21.118, 0.374)
pt3dadd(71.745, 34.138, 21.134, 0.388)
pt3dadd(71.631, 34.107, 21.148, 0.4)
pt3dadd(71.522, 34.058, 21.16, 0.406)
pt3dadd(71.413, 34.01, 21.173, 0.412)
pt3dadd(71.304, 33.962, 21.185, 0.416)
pt3dadd(71.195, 33.914, 21.197, 0.422)
pt3dadd(71.086, 33.866, 21.21, 0.428)
pt3dadd(70.977, 33.818, 21.222, 0.432)
pt3dadd(70.869, 33.77, 21.234, 0.438)
pt3dadd(70.76, 33.722, 21.247, 0.444)
pt3dadd(70.651, 33.673, 21.259, 0.45)
pt3dadd(70.545, 33.619, 21.271, 0.452)
pt3dadd(70.442, 33.558, 21.281, 0.452)
pt3dadd(70.34, 33.496, 21.291, 0.452)
pt3dadd(70.238, 33.435, 21.302, 0.452)
pt3dadd(70.135, 33.374, 21.312, 0.45)
pt3dadd(70.033, 33.312, 21.323, 0.45)
pt3dadd(69.931, 33.251, 21.333, 0.45)
pt3dadd(69.828, 33.189, 21.344, 0.45)
pt3dadd(69.726, 33.128, 21.354, 0.45)
pt3dadd(69.624, 33.066, 21.364, 0.45)
pt3dadd(69.527, 32.998, 21.377, 0.442)
pt3dadd(69.437, 32.921, 21.391, 0.428)
pt3dadd(69.346, 32.844, 21.406, 0.414)
pt3dadd(69.256, 32.766, 21.42, 0.4)
pt3dadd(69.166, 32.689, 21.435, 0.386)
pt3dadd(69.076, 32.612, 21.449, 0.372)
pt3dadd(68.985, 32.535, 21.464, 0.358)
pt3dadd(68.895, 32.458, 21.478, 0.344)
pt3dadd(68.805, 32.381, 21.493, 0.33)
pt3dadd(68.715, 32.304, 21.507, 0.314)
pt3dadd(68.629, 32.228, 21.534, 0.304)
pt3dadd(68.548, 32.155, 21.576, 0.294)
pt3dadd(68.467, 32.082, 21.618, 0.286)
pt3dadd(68.386, 32.009, 21.66, 0.278)
pt3dadd(68.305, 31.936, 21.702, 0.268)
pt3dadd(68.224, 31.863, 21.744, 0.26)
pt3dadd(68.143, 31.79, 21.786, 0.252)
pt3dadd(68.063, 31.717, 21.828, 0.244)
pt3dadd(67.982, 31.644, 21.87, 0.234)
pt3dadd(67.901, 31.571, 21.912, 0.226)
pt3dadd(67.843, 31.513, 21.984, 0.226)
pt3dadd(67.784, 31.455, 22.057, 0.226)
pt3dadd(67.726, 31.397, 22.13, 0.226)
pt3dadd(67.668, 31.338, 22.203, 0.226)
pt3dadd(67.61, 31.28, 22.276, 0.226)
pt3dadd(67.552, 31.222, 22.348, 0.226)
pt3dadd(67.493, 31.164, 22.421, 0.226)
pt3dadd(67.435, 31.106, 22.494, 0.226)
pt3dadd(67.377, 31.047, 22.566, 0.226)
pt3dadd(67.319, 30.989, 22.639, 0.226)
}
dend_7[13] {pt3dclear()
pt3dadd(95.161, 47.836, 18.161, 1.1)
pt3dadd(95.175, 47.731, 18.131, 1.078)
pt3dadd(95.189, 47.619, 18.099, 1.054)
pt3dadd(95.204, 47.506, 18.067, 1.03)
pt3dadd(95.219, 47.393, 18.035, 1.006)
pt3dadd(95.233, 47.281, 18.003, 0.982)
pt3dadd(95.248, 47.168, 17.971, 0.958)
pt3dadd(95.262, 47.055, 17.938, 0.932)
pt3dadd(95.277, 46.942, 17.906, 0.908)
pt3dadd(95.28, 46.837, 17.859, 0.83)
pt3dadd(95.28, 46.734, 17.809, 0.74)
pt3dadd(95.254, 46.632, 17.764, 0.662)
pt3dadd(95.211, 46.532, 17.722, 0.594)
pt3dadd(95.152, 46.431, 17.707, 0.534)
pt3dadd(95.089, 46.329, 17.702, 0.474)
pt3dadd(95.002, 46.249, 17.7, 0.46)
pt3dadd(94.904, 46.182, 17.7, 0.472)
pt3dadd(94.847, 46.089, 17.699, 0.486)
pt3dadd(94.835, 45.969, 17.696, 0.502)
pt3dadd(94.823, 45.85, 17.694, 0.518)
pt3dadd(94.812, 45.73, 17.691, 0.536)
pt3dadd(94.8, 45.611, 17.688, 0.554)
pt3dadd(94.78, 45.502, 17.651, 0.626)
pt3dadd(94.761, 45.392, 17.613, 0.7)
pt3dadd(94.681, 45.313, 17.58, 0.722)
pt3dadd(94.598, 45.236, 17.548, 0.744)
pt3dadd(94.506, 45.177, 17.511, 0.76)
pt3dadd(94.406, 45.134, 17.469, 0.774)
pt3dadd(94.347, 45.064, 17.412, 0.764)
pt3dadd(94.309, 44.981, 17.347, 0.744)
pt3dadd(94.269, 44.896, 17.285, 0.724)
pt3dadd(94.224, 44.807, 17.229, 0.71)
pt3dadd(94.2, 44.735, 17.158, 0.704)
pt3dadd(94.2, 44.643, 17.099, 0.706)
pt3dadd(94.2, 44.538, 17.052, 0.712)
pt3dadd(94.2, 44.432, 17.004, 0.716)
pt3dadd(94.2, 44.326, 16.957, 0.722)
pt3dadd(94.2, 44.22, 16.91, 0.726)
pt3dadd(94.177, 44.113, 16.877, 0.734)
pt3dadd(94.134, 44.003, 16.856, 0.744)
pt3dadd(94.092, 43.894, 16.835, 0.756)
pt3dadd(94.05, 43.784, 16.814, 0.766)
pt3dadd(94.008, 43.675, 16.793, 0.776)
pt3dadd(93.994, 43.558, 16.777, 0.778)
pt3dadd(93.987, 43.44, 16.762, 0.778)
pt3dadd(93.981, 43.321, 16.746, 0.778)
pt3dadd(93.974, 43.203, 16.731, 0.778)
pt3dadd(93.967, 43.084, 16.716, 0.778)
pt3dadd(93.96, 42.966, 16.701, 0.778)
pt3dadd(93.939, 42.849, 16.688, 0.774)
pt3dadd(93.917, 42.732, 16.676, 0.77)
pt3dadd(93.895, 42.615, 16.664, 0.764)
}
}
proc shape3d_144() {
dend_7[13] { pt3dadd(93.873, 42.498, 16.652, 0.76)
pt3dadd(93.851, 42.381, 16.64, 0.756)
pt3dadd(93.851, 42.264, 16.624, 0.746)
pt3dadd(93.874, 42.149, 16.605, 0.732)
pt3dadd(93.897, 42.033, 16.585, 0.718)
pt3dadd(93.92, 41.918, 16.566, 0.702)
pt3dadd(93.944, 41.802, 16.547, 0.688)
pt3dadd(93.96, 41.687, 16.525, 0.676)
pt3dadd(93.96, 41.572, 16.498, 0.664)
pt3dadd(93.96, 41.456, 16.471, 0.654)
pt3dadd(93.96, 41.348, 16.428, 0.662)
pt3dadd(93.96, 41.24, 16.384, 0.674)
pt3dadd(93.944, 41.131, 16.346, 0.694)
pt3dadd(93.918, 41.021, 16.314, 0.718)
pt3dadd(93.857, 40.927, 16.3, 0.734)
pt3dadd(93.769, 40.845, 16.3, 0.746)
pt3dadd(93.696, 40.752, 16.3, 0.768)
pt3dadd(93.642, 40.645, 16.3, 0.802)
pt3dadd(93.613, 40.529, 16.3, 0.82)
pt3dadd(93.586, 40.412, 16.3, 0.838)
pt3dadd(93.559, 40.295, 16.3, 0.854)
pt3dadd(93.531, 40.178, 16.3, 0.872)
pt3dadd(93.504, 40.061, 16.3, 0.89)
pt3dadd(93.466, 39.952, 16.3, 0.91)
pt3dadd(93.363, 39.891, 16.3, 0.956)
pt3dadd(93.259, 39.83, 16.3, 1.002)
pt3dadd(93.196, 39.729, 16.3, 1.004)
pt3dadd(93.135, 39.626, 16.3, 1.004)
pt3dadd(93.12, 39.511, 16.291, 0.97)
pt3dadd(93.12, 39.392, 16.278, 0.922)
pt3dadd(93.12, 39.273, 16.265, 0.876)
pt3dadd(93.12, 39.157, 16.237, 0.812)
pt3dadd(93.12, 39.042, 16.21, 0.75)
pt3dadd(93.12, 38.924, 16.2, 0.688)
pt3dadd(93.12, 38.804, 16.2, 0.626)
pt3dadd(93.097, 38.687, 16.2, 0.598)
pt3dadd(93.061, 38.573, 16.2, 0.588)
pt3dadd(93.025, 38.458, 16.2, 0.58)
pt3dadd(92.99, 38.344, 16.2, 0.57)
pt3dadd(92.954, 38.229, 16.2, 0.56)
pt3dadd(92.917, 38.115, 16.199, 0.552)
pt3dadd(92.865, 38.01, 16.177, 0.54)
pt3dadd(92.812, 37.906, 16.155, 0.53)
pt3dadd(92.76, 37.801, 16.134, 0.518)
pt3dadd(92.708, 37.696, 16.112, 0.508)
pt3dadd(92.656, 37.591, 16.091, 0.5)
pt3dadd(92.604, 37.485, 16.072, 0.494)
pt3dadd(92.553, 37.379, 16.053, 0.488)
pt3dadd(92.501, 37.273, 16.034, 0.484)
pt3dadd(92.45, 37.167, 16.015, 0.478)
pt3dadd(92.408, 37.062, 15.981, 0.482)
pt3dadd(92.37, 36.958, 15.944, 0.488)
pt3dadd(92.331, 36.854, 15.906, 0.492)
pt3dadd(92.292, 36.749, 15.869, 0.498)
pt3dadd(92.255, 36.648, 15.826, 0.508)
pt3dadd(92.222, 36.552, 15.772, 0.526)
pt3dadd(92.188, 36.457, 15.719, 0.542)
pt3dadd(92.154, 36.362, 15.665, 0.56)
pt3dadd(92.12, 36.266, 15.611, 0.578)
pt3dadd(92.043, 36.177, 15.594, 0.6)
pt3dadd(91.965, 36.088, 15.576, 0.622)
pt3dadd(91.888, 35.999, 15.559, 0.646)
pt3dadd(91.811, 35.909, 15.542, 0.668)
pt3dadd(91.734, 35.832, 15.505, 0.682)
pt3dadd(91.658, 35.766, 15.45, 0.688)
pt3dadd(91.582, 35.701, 15.395, 0.694)
pt3dadd(91.507, 35.635, 15.34, 0.7)
pt3dadd(91.436, 35.562, 15.288, 0.704)
pt3dadd(91.37, 35.48, 15.239, 0.704)
pt3dadd(91.305, 35.398, 15.19, 0.704)
pt3dadd(91.24, 35.317, 15.141, 0.704)
pt3dadd(91.181, 35.234, 15.088, 0.704)
pt3dadd(91.133, 35.15, 15.029, 0.704)
pt3dadd(91.084, 35.066, 14.97, 0.704)
pt3dadd(91.036, 34.983, 14.911, 0.704)
pt3dadd(90.978, 34.903, 14.857, 0.704)
pt3dadd(90.891, 34.835, 14.816, 0.704)
pt3dadd(90.804, 34.768, 14.776, 0.704)
pt3dadd(90.717, 34.701, 14.736, 0.704)
pt3dadd(90.628, 34.635, 14.698, 0.702)
pt3dadd(90.52, 34.59, 14.677, 0.698)
pt3dadd(90.412, 34.544, 14.655, 0.692)
pt3dadd(90.304, 34.499, 14.634, 0.686)
pt3dadd(90.196, 34.453, 14.613, 0.682)
pt3dadd(90.091, 34.405, 14.587, 0.668)
pt3dadd(89.988, 34.354, 14.557, 0.646)
pt3dadd(89.886, 34.303, 14.527, 0.624)
pt3dadd(89.784, 34.252, 14.497, 0.6)
pt3dadd(89.681, 34.201, 14.467, 0.578)
pt3dadd(89.652, 34.103, 14.415, 0.538)
pt3dadd(89.621, 34.006, 14.364, 0.5)
pt3dadd(89.546, 33.924, 14.326, 0.472)
pt3dadd(89.464, 33.846, 14.3, 0.452)
pt3dadd(89.365, 33.778, 14.3, 0.452)
pt3dadd(89.265, 33.712, 14.3, 0.454)
pt3dadd(89.157, 33.659, 14.3, 0.464)
pt3dadd(89.05, 33.605, 14.3, 0.476)
pt3dadd(88.953, 33.542, 14.276, 0.514)
pt3dadd(88.855, 33.476, 14.257, 0.534)
pt3dadd(88.757, 33.41, 14.243, 0.546)
pt3dadd(88.658, 33.343, 14.228, 0.556)
pt3dadd(88.56, 33.277, 14.214, 0.568)
pt3dadd(88.462, 33.211, 14.198, 0.578)
pt3dadd(88.365, 33.158, 14.159, 0.584)
pt3dadd(88.268, 33.104, 14.12, 0.59)
pt3dadd(88.171, 33.051, 14.081, 0.596)
pt3dadd(88.074, 32.998, 14.042, 0.602)
pt3dadd(87.983, 32.931, 14.011, 0.602)
pt3dadd(87.893, 32.859, 13.982, 0.602)
pt3dadd(87.803, 32.787, 13.954, 0.602)
pt3dadd(87.713, 32.716, 13.925, 0.602)
pt3dadd(87.611, 32.664, 13.901, 0.606)
pt3dadd(87.498, 32.632, 13.881, 0.61)
pt3dadd(87.385, 32.599, 13.861, 0.616)
pt3dadd(87.272, 32.567, 13.841, 0.62)
pt3dadd(87.159, 32.535, 13.82, 0.626)
pt3dadd(87.043, 32.52, 13.804, 0.642)
pt3dadd(86.923, 32.52, 13.8, 0.686)
pt3dadd(86.804, 32.52, 13.792, 0.756)
pt3dadd(86.687, 32.52, 13.768, 0.894)
pt3dadd(86.592, 32.52, 13.708, 1.054)
pt3dadd(86.499, 32.52, 13.646, 1.104)
pt3dadd(86.391, 32.501, 13.61, 1.076)
pt3dadd(86.31, 32.421, 13.6, 1.054)
pt3dadd(86.283, 32.305, 13.6, 1.016)
pt3dadd(86.28, 32.185, 13.6, 0.926)
pt3dadd(86.28, 32.066, 13.59, 0.816)
pt3dadd(86.253, 31.957, 13.564, 0.754)
pt3dadd(86.177, 31.866, 13.549, 0.754)
pt3dadd(86.1, 31.775, 13.535, 0.754)
pt3dadd(86.024, 31.684, 13.52, 0.754)
pt3dadd(85.948, 31.593, 13.505, 0.754)
pt3dadd(85.856, 31.518, 13.5, 0.746)
pt3dadd(85.756, 31.452, 13.5, 0.736)
pt3dadd(85.656, 31.386, 13.5, 0.728)
pt3dadd(85.556, 31.32, 13.5, 0.718)
pt3dadd(85.455, 31.254, 13.5, 0.708)
pt3dadd(85.359, 31.186, 13.487, 0.696)
pt3dadd(85.265, 31.116, 13.464, 0.686)
pt3dadd(85.171, 31.047, 13.441, 0.674)
pt3dadd(85.077, 30.977, 13.419, 0.662)
pt3dadd(84.984, 30.907, 13.396, 0.65)
pt3dadd(84.893, 30.831, 13.376, 0.64)
pt3dadd(84.803, 30.756, 13.356, 0.628)
pt3dadd(84.713, 30.681, 13.336, 0.616)
pt3dadd(84.623, 30.606, 13.316, 0.606)
pt3dadd(84.527, 30.534, 13.309, 0.61)
pt3dadd(84.43, 30.464, 13.307, 0.62)
pt3dadd(84.333, 30.394, 13.305, 0.63)
pt3dadd(84.235, 30.323, 13.303, 0.64)
pt3dadd(84.138, 30.253, 13.3, 0.652)
pt3dadd(84.047, 30.179, 13.284, 0.662)
pt3dadd(83.956, 30.103, 13.264, 0.674)
pt3dadd(83.866, 30.028, 13.243, 0.684)
pt3dadd(83.776, 29.953, 13.223, 0.696)
pt3dadd(83.698, 29.866, 13.21, 0.706)
pt3dadd(83.64, 29.761, 13.208, 0.716)
pt3dadd(83.582, 29.656, 13.206, 0.726)
pt3dadd(83.524, 29.551, 13.204, 0.736)
pt3dadd(83.466, 29.446, 13.201, 0.746)
pt3dadd(83.397, 29.35, 13.2, 0.75)
pt3dadd(83.304, 29.275, 13.2, 0.74)
pt3dadd(83.21, 29.2, 13.2, 0.73)
pt3dadd(83.116, 29.125, 13.2, 0.72)
pt3dadd(83.022, 29.05, 13.2, 0.71)
pt3dadd(82.925, 28.98, 13.2, 0.698)
pt3dadd(82.821, 28.92, 13.2, 0.684)
pt3dadd(82.717, 28.86, 13.2, 0.668)
pt3dadd(82.613, 28.801, 13.2, 0.654)
pt3dadd(82.509, 28.741, 13.2, 0.64)
pt3dadd(82.408, 28.677, 13.2, 0.624)
pt3dadd(82.32, 28.596, 13.2, 0.604)
pt3dadd(82.231, 28.515, 13.2, 0.584)
pt3dadd(82.142, 28.435, 13.2, 0.562)
pt3dadd(82.053, 28.354, 13.2, 0.542)
pt3dadd(81.961, 28.278, 13.201, 0.522)
pt3dadd(81.859, 28.214, 13.207, 0.498)
pt3dadd(81.76, 28.15, 13.218, 0.478)
pt3dadd(81.677, 28.082, 13.262, 0.478)
pt3dadd(81.594, 28.007, 13.291, 0.486)
pt3dadd(81.509, 27.922, 13.296, 0.512)
pt3dadd(81.432, 27.831, 13.298, 0.54)
pt3dadd(81.368, 27.73, 13.293, 0.576)
pt3dadd(81.306, 27.639, 13.27, 0.624)
pt3dadd(81.248, 27.582, 13.199, 0.704)
pt3dadd(81.157, 27.509, 13.176, 0.728)
pt3dadd(81.065, 27.436, 13.153, 0.75)
pt3dadd(80.974, 27.363, 13.13, 0.774)
pt3dadd(80.883, 27.29, 13.107, 0.796)
pt3dadd(80.794, 27.211, 13.1, 0.844)
pt3dadd(80.706, 27.13, 13.1, 0.902)
pt3dadd(80.604, 27.072, 13.1, 0.94)
pt3dadd(80.491, 27.032, 13.1, 0.962)
pt3dadd(80.379, 26.988, 13.1, 0.98)
pt3dadd(80.276, 26.927, 13.1, 0.98)
pt3dadd(80.173, 26.866, 13.1, 0.98)
pt3dadd(80.133, 26.753, 13.1, 0.948)
pt3dadd(80.093, 26.64, 13.1, 0.916)
pt3dadd(80.045, 26.53, 13.1, 0.86)
pt3dadd(79.995, 26.421, 13.1, 0.802)
}
}
proc shape3d_145() {
dend_7[13] { pt3dadd(79.959, 26.307, 13.1, 0.794)
pt3dadd(79.923, 26.192, 13.1, 0.784)
pt3dadd(79.887, 26.078, 13.1, 0.776)
pt3dadd(79.851, 25.963, 13.1, 0.766)
pt3dadd(79.815, 25.849, 13.1, 0.758)
pt3dadd(79.754, 25.749, 13.091, 0.746)
pt3dadd(79.675, 25.661, 13.077, 0.736)
pt3dadd(79.596, 25.573, 13.062, 0.724)
pt3dadd(79.516, 25.485, 13.047, 0.714)
pt3dadd(79.437, 25.396, 13.033, 0.704)
pt3dadd(79.359, 25.307, 13.015, 0.72)
pt3dadd(79.282, 25.218, 12.998, 0.738)
pt3dadd(79.205, 25.128, 12.981, 0.754)
pt3dadd(79.127, 25.039, 12.963, 0.77)
pt3dadd(79.06, 24.959, 12.92, 0.788)
pt3dadd(79.001, 24.887, 12.857, 0.808)
pt3dadd(78.942, 24.815, 12.795, 0.826)
pt3dadd(78.883, 24.743, 12.732, 0.844)
pt3dadd(78.803, 24.685, 12.68, 0.908)
pt3dadd(78.701, 24.643, 12.64, 1.02)
pt3dadd(78.6, 24.6, 12.6, 1.13)
}
dend_7[14] {pt3dclear()
pt3dadd(111.642, 67.04, 20.075, 1.582)
pt3dadd(111.652, 67.005, 20.067, 1.578)
pt3dadd(111.683, 66.894, 20.04, 1.568)
pt3dadd(111.714, 66.783, 20.014, 1.558)
pt3dadd(111.744, 66.671, 19.987, 1.546)
pt3dadd(111.775, 66.56, 19.96, 1.536)
pt3dadd(111.806, 66.448, 19.933, 1.524)
pt3dadd(111.836, 66.337, 19.906, 1.514)
pt3dadd(111.867, 66.225, 19.88, 1.502)
pt3dadd(111.898, 66.114, 19.853, 1.492)
pt3dadd(111.929, 66.003, 19.826, 1.482)
pt3dadd(111.959, 65.891, 19.799, 1.47)
pt3dadd(111.99, 65.78, 19.773, 1.46)
pt3dadd(112.021, 65.668, 19.746, 1.448)
pt3dadd(112.05, 65.555, 19.722, 1.438)
pt3dadd(112.078, 65.442, 19.699, 1.426)
pt3dadd(112.106, 65.329, 19.676, 1.416)
pt3dadd(112.135, 65.215, 19.653, 1.404)
pt3dadd(112.163, 65.102, 19.629, 1.392)
pt3dadd(112.192, 64.989, 19.606, 1.382)
pt3dadd(112.22, 64.876, 19.583, 1.37)
pt3dadd(112.249, 64.763, 19.559, 1.36)
pt3dadd(112.277, 64.65, 19.536, 1.348)
pt3dadd(112.305, 64.536, 19.513, 1.336)
pt3dadd(112.32, 64.417, 19.51, 1.324)
pt3dadd(112.334, 64.298, 19.508, 1.312)
pt3dadd(112.348, 64.179, 19.505, 1.298)
pt3dadd(112.362, 64.06, 19.503, 1.286)
pt3dadd(112.376, 63.941, 19.5, 1.272)
pt3dadd(112.39, 63.822, 19.498, 1.26)
pt3dadd(112.404, 63.702, 19.495, 1.246)
pt3dadd(112.418, 63.583, 19.492, 1.234)
pt3dadd(112.432, 63.464, 19.49, 1.22)
pt3dadd(112.446, 63.345, 19.487, 1.208)
pt3dadd(112.461, 63.226, 19.484, 1.2)
pt3dadd(112.476, 63.107, 19.481, 1.192)
pt3dadd(112.491, 62.988, 19.479, 1.184)
pt3dadd(112.506, 62.869, 19.476, 1.176)
pt3dadd(112.521, 62.75, 19.473, 1.168)
pt3dadd(112.536, 62.631, 19.47, 1.16)
pt3dadd(112.551, 62.512, 19.467, 1.154)
pt3dadd(112.566, 62.393, 19.464, 1.146)
pt3dadd(112.581, 62.274, 19.461, 1.138)
pt3dadd(112.596, 62.155, 19.458, 1.13)
pt3dadd(112.613, 62.036, 19.454, 1.13)
pt3dadd(112.629, 61.917, 19.451, 1.13)
pt3dadd(112.646, 61.799, 19.447, 1.13)
pt3dadd(112.662, 61.68, 19.444, 1.13)
pt3dadd(112.679, 61.561, 19.44, 1.13)
pt3dadd(112.695, 61.442, 19.437, 1.13)
pt3dadd(112.712, 61.323, 19.433, 1.13)
pt3dadd(112.728, 61.205, 19.43, 1.13)
pt3dadd(112.745, 61.086, 19.426, 1.13)
pt3dadd(112.762, 60.967, 19.423, 1.13)
}
dend_7[15] {pt3dclear()
pt3dadd(112.762, 60.967, 19.423, 1.13)
pt3dadd(112.779, 60.925, 19.42, 1.126)
pt3dadd(112.825, 60.815, 19.413, 1.112)
pt3dadd(112.871, 60.704, 19.406, 1.098)
pt3dadd(112.917, 60.594, 19.399, 1.086)
pt3dadd(112.963, 60.483, 19.392, 1.072)
pt3dadd(113.009, 60.373, 19.385, 1.058)
pt3dadd(113.055, 60.262, 19.378, 1.046)
pt3dadd(113.101, 60.152, 19.371, 1.032)
pt3dadd(113.147, 60.041, 19.363, 1.018)
pt3dadd(113.193, 59.931, 19.356, 1.006)
pt3dadd(113.239, 59.82, 19.349, 0.992)
pt3dadd(113.285, 59.709, 19.342, 0.978)
pt3dadd(113.331, 59.599, 19.335, 0.966)
pt3dadd(113.376, 59.488, 19.328, 0.952)
pt3dadd(113.42, 59.377, 19.32, 0.932)
pt3dadd(113.456, 59.263, 19.309, 0.9)
pt3dadd(113.492, 59.15, 19.298, 0.866)
pt3dadd(113.528, 59.036, 19.287, 0.832)
pt3dadd(113.564, 58.922, 19.276, 0.798)
pt3dadd(113.601, 58.809, 19.265, 0.766)
pt3dadd(113.637, 58.695, 19.254, 0.732)
pt3dadd(113.673, 58.581, 19.243, 0.698)
pt3dadd(113.709, 58.468, 19.232, 0.664)
pt3dadd(113.745, 58.354, 19.221, 0.63)
pt3dadd(113.78, 58.24, 19.209, 0.596)
pt3dadd(113.811, 58.126, 19.195, 0.56)
pt3dadd(113.842, 58.011, 19.18, 0.522)
pt3dadd(113.874, 57.897, 19.165, 0.484)
pt3dadd(113.905, 57.782, 19.151, 0.448)
pt3dadd(113.936, 57.668, 19.136, 0.41)
pt3dadd(113.967, 57.553, 19.121, 0.374)
pt3dadd(113.998, 57.438, 19.107, 0.336)
pt3dadd(114.029, 57.324, 19.092, 0.298)
pt3dadd(114.061, 57.209, 19.077, 0.262)
pt3dadd(114.088, 57.097, 19.055, 0.24)
pt3dadd(114.109, 56.988, 19.016, 0.254)
pt3dadd(114.129, 56.88, 18.977, 0.268)
pt3dadd(114.15, 56.771, 18.938, 0.28)
pt3dadd(114.17, 56.662, 18.899, 0.294)
pt3dadd(114.191, 56.553, 18.861, 0.306)
pt3dadd(114.211, 56.445, 18.822, 0.32)
pt3dadd(114.232, 56.336, 18.783, 0.332)
pt3dadd(114.252, 56.228, 18.744, 0.346)
pt3dadd(114.273, 56.119, 18.705, 0.358)
pt3dadd(114.293, 56.01, 18.667, 0.37)
pt3dadd(114.312, 55.899, 18.632, 0.378)
pt3dadd(114.33, 55.789, 18.596, 0.388)
pt3dadd(114.349, 55.678, 18.56, 0.396)
pt3dadd(114.368, 55.568, 18.524, 0.404)
pt3dadd(114.387, 55.457, 18.489, 0.412)
pt3dadd(114.405, 55.347, 18.453, 0.422)
pt3dadd(114.424, 55.236, 18.417, 0.43)
pt3dadd(114.443, 55.126, 18.381, 0.438)
pt3dadd(114.462, 55.015, 18.346, 0.446)
pt3dadd(114.479, 54.904, 18.312, 0.452)
pt3dadd(114.494, 54.79, 18.282, 0.452)
pt3dadd(114.51, 54.677, 18.252, 0.452)
pt3dadd(114.525, 54.563, 18.222, 0.452)
pt3dadd(114.54, 54.45, 18.192, 0.452)
pt3dadd(114.555, 54.336, 18.162, 0.452)
pt3dadd(114.571, 54.223, 18.132, 0.452)
pt3dadd(114.586, 54.11, 18.102, 0.452)
pt3dadd(114.601, 53.996, 18.072, 0.452)
pt3dadd(114.616, 53.883, 18.042, 0.452)
pt3dadd(114.639, 53.77, 18.014, 0.448)
pt3dadd(114.677, 53.66, 17.99, 0.44)
pt3dadd(114.715, 53.55, 17.967, 0.43)
pt3dadd(114.753, 53.439, 17.944, 0.422)
pt3dadd(114.791, 53.329, 17.92, 0.412)
pt3dadd(114.829, 53.219, 17.897, 0.402)
pt3dadd(114.867, 53.108, 17.873, 0.394)
pt3dadd(114.904, 52.998, 17.85, 0.384)
pt3dadd(114.942, 52.888, 17.826, 0.374)
pt3dadd(114.98, 52.777, 17.803, 0.366)
pt3dadd(115.022, 52.668, 17.78, 0.356)
pt3dadd(115.069, 52.56, 17.76, 0.342)
pt3dadd(115.116, 52.453, 17.74, 0.33)
pt3dadd(115.163, 52.345, 17.719, 0.316)
pt3dadd(115.21, 52.237, 17.699, 0.304)
pt3dadd(115.257, 52.13, 17.678, 0.29)
pt3dadd(115.303, 52.022, 17.658, 0.278)
pt3dadd(115.35, 51.914, 17.637, 0.264)
pt3dadd(115.397, 51.807, 17.617, 0.252)
pt3dadd(115.444, 51.699, 17.597, 0.238)
pt3dadd(115.486, 51.592, 17.57, 0.23)
pt3dadd(115.522, 51.485, 17.535, 0.23)
pt3dadd(115.558, 51.379, 17.5, 0.23)
pt3dadd(115.594, 51.272, 17.465, 0.23)
pt3dadd(115.63, 51.166, 17.43, 0.228)
pt3dadd(115.666, 51.059, 17.395, 0.228)
pt3dadd(115.702, 50.953, 17.36, 0.228)
pt3dadd(115.738, 50.846, 17.324, 0.228)
pt3dadd(115.774, 50.74, 17.289, 0.226)
pt3dadd(115.81, 50.633, 17.254, 0.226)
pt3dadd(115.845, 50.526, 17.22, 0.226)
pt3dadd(115.879, 50.418, 17.187, 0.226)
pt3dadd(115.914, 50.31, 17.154, 0.226)
pt3dadd(115.948, 50.203, 17.121, 0.226)
pt3dadd(115.982, 50.095, 17.088, 0.226)
pt3dadd(116.017, 49.987, 17.055, 0.226)
pt3dadd(116.051, 49.879, 17.021, 0.226)
pt3dadd(116.085, 49.771, 16.988, 0.226)
pt3dadd(116.12, 49.663, 16.955, 0.226)
pt3dadd(116.154, 49.555, 16.922, 0.226)
pt3dadd(116.186, 49.445, 16.893, 0.226)
pt3dadd(116.216, 49.332, 16.87, 0.226)
pt3dadd(116.245, 49.219, 16.846, 0.226)
pt3dadd(116.274, 49.106, 16.823, 0.226)
pt3dadd(116.303, 48.993, 16.8, 0.226)
pt3dadd(116.333, 48.881, 16.776, 0.226)
pt3dadd(116.362, 48.768, 16.753, 0.226)
pt3dadd(116.391, 48.655, 16.729, 0.226)
pt3dadd(116.421, 48.542, 16.706, 0.226)
pt3dadd(116.45, 48.429, 16.683, 0.226)
pt3dadd(116.485, 48.317, 16.663, 0.226)
pt3dadd(116.527, 48.206, 16.646, 0.226)
pt3dadd(116.568, 48.095, 16.63, 0.226)
pt3dadd(116.61, 47.985, 16.614, 0.226)
pt3dadd(116.652, 47.874, 16.597, 0.226)
pt3dadd(116.694, 47.763, 16.581, 0.226)
pt3dadd(116.736, 47.652, 16.565, 0.226)
pt3dadd(116.777, 47.541, 16.548, 0.226)
pt3dadd(116.819, 47.431, 16.532, 0.226)
pt3dadd(116.861, 47.32, 16.516, 0.226)
}
}
proc shape3d_146() {
dend_7[15] { pt3dadd(116.908, 47.211, 16.502, 0.226)
pt3dadd(116.959, 47.103, 16.492, 0.226)
pt3dadd(117.011, 46.995, 16.482, 0.226)
pt3dadd(117.063, 46.888, 16.472, 0.226)
pt3dadd(117.114, 46.78, 16.462, 0.226)
pt3dadd(117.166, 46.672, 16.451, 0.226)
pt3dadd(117.217, 46.565, 16.441, 0.226)
pt3dadd(117.269, 46.457, 16.431, 0.226)
pt3dadd(117.32, 46.35, 16.421, 0.226)
pt3dadd(117.372, 46.242, 16.41, 0.226)
pt3dadd(117.42, 46.132, 16.404, 0.226)
pt3dadd(117.464, 46.021, 16.402, 0.226)
pt3dadd(117.509, 45.909, 16.399, 0.226)
pt3dadd(117.553, 45.798, 16.397, 0.226)
pt3dadd(117.598, 45.687, 16.394, 0.226)
pt3dadd(117.642, 45.575, 16.392, 0.226)
pt3dadd(117.687, 45.464, 16.389, 0.226)
pt3dadd(117.731, 45.352, 16.387, 0.226)
pt3dadd(117.776, 45.241, 16.384, 0.226)
pt3dadd(117.82, 45.13, 16.382, 0.226)
pt3dadd(117.865, 45.018, 16.38, 0.226)
pt3dadd(117.91, 44.907, 16.379, 0.226)
pt3dadd(117.954, 44.796, 16.379, 0.226)
pt3dadd(117.999, 44.684, 16.378, 0.226)
pt3dadd(118.044, 44.573, 16.377, 0.226)
pt3dadd(118.089, 44.462, 16.377, 0.226)
pt3dadd(118.134, 44.35, 16.376, 0.226)
pt3dadd(118.179, 44.239, 16.375, 0.226)
pt3dadd(118.223, 44.128, 16.375, 0.226)
pt3dadd(118.268, 44.016, 16.374, 0.226)
pt3dadd(118.32, 43.908, 16.373, 0.226)
pt3dadd(118.378, 43.803, 16.372, 0.226)
pt3dadd(118.435, 43.698, 16.371, 0.226)
pt3dadd(118.493, 43.593, 16.369, 0.226)
pt3dadd(118.551, 43.488, 16.368, 0.226)
pt3dadd(118.608, 43.382, 16.367, 0.226)
pt3dadd(118.666, 43.277, 16.366, 0.226)
pt3dadd(118.724, 43.172, 16.364, 0.226)
pt3dadd(118.782, 43.067, 16.363, 0.226)
pt3dadd(118.839, 42.962, 16.362, 0.226)
pt3dadd(118.893, 42.855, 16.36, 0.236)
pt3dadd(118.944, 42.746, 16.359, 0.256)
pt3dadd(118.996, 42.637, 16.357, 0.276)
pt3dadd(119.047, 42.529, 16.355, 0.294)
pt3dadd(119.098, 42.42, 16.353, 0.314)
pt3dadd(119.149, 42.312, 16.351, 0.334)
pt3dadd(119.2, 42.203, 16.35, 0.352)
pt3dadd(119.251, 42.095, 16.348, 0.372)
pt3dadd(119.302, 41.986, 16.346, 0.392)
pt3dadd(119.353, 41.877, 16.345, 0.41)
pt3dadd(119.397, 41.766, 16.342, 0.45)
pt3dadd(119.435, 41.652, 16.339, 0.506)
pt3dadd(119.473, 41.539, 16.337, 0.56)
pt3dadd(119.512, 41.425, 16.334, 0.614)
pt3dadd(119.55, 41.311, 16.331, 0.67)
pt3dadd(119.588, 41.198, 16.329, 0.724)
pt3dadd(119.627, 41.084, 16.326, 0.78)
pt3dadd(119.665, 40.97, 16.323, 0.834)
pt3dadd(119.703, 40.856, 16.32, 0.89)
pt3dadd(119.741, 40.743, 16.318, 0.944)
pt3dadd(119.777, 40.628, 16.313, 0.96)
pt3dadd(119.81, 40.513, 16.308, 0.946)
pt3dadd(119.843, 40.398, 16.302, 0.934)
pt3dadd(119.876, 40.283, 16.296, 0.92)
pt3dadd(119.909, 40.168, 16.291, 0.906)
pt3dadd(119.942, 40.053, 16.285, 0.894)
pt3dadd(119.976, 39.937, 16.28, 0.88)
pt3dadd(120.008, 39.822, 16.274, 0.868)
pt3dadd(120.042, 39.707, 16.269, 0.854)
pt3dadd(120.074, 39.592, 16.263, 0.84)
pt3dadd(120.108, 39.477, 16.257, 0.812)
pt3dadd(120.14, 39.362, 16.25, 0.774)
pt3dadd(120.174, 39.247, 16.242, 0.734)
pt3dadd(120.206, 39.132, 16.235, 0.694)
pt3dadd(120.239, 39.016, 16.228, 0.654)
pt3dadd(120.272, 38.901, 16.221, 0.616)
pt3dadd(120.305, 38.786, 16.214, 0.576)
pt3dadd(120.337, 38.671, 16.207, 0.536)
pt3dadd(120.371, 38.556, 16.2, 0.496)
pt3dadd(120.403, 38.441, 16.193, 0.458)
pt3dadd(120.448, 38.331, 16.184, 0.434)
pt3dadd(120.5, 38.224, 16.173, 0.42)
pt3dadd(120.553, 38.117, 16.163, 0.408)
pt3dadd(120.607, 38.01, 16.152, 0.394)
pt3dadd(120.66, 37.903, 16.142, 0.382)
pt3dadd(120.713, 37.796, 16.131, 0.368)
pt3dadd(120.766, 37.689, 16.121, 0.356)
pt3dadd(120.818, 37.582, 16.111, 0.344)
pt3dadd(120.871, 37.475, 16.1, 0.33)
pt3dadd(120.924, 37.368, 16.09, 0.318)
pt3dadd(120.976, 37.261, 16.074, 0.31)
pt3dadd(121.026, 37.154, 16.056, 0.304)
pt3dadd(121.075, 37.047, 16.037, 0.3)
pt3dadd(121.126, 36.941, 16.019, 0.296)
pt3dadd(121.176, 36.834, 16, 0.292)
pt3dadd(121.225, 36.727, 15.981, 0.288)
pt3dadd(121.276, 36.621, 15.963, 0.282)
pt3dadd(121.326, 36.514, 15.944, 0.278)
pt3dadd(121.376, 36.407, 15.926, 0.274)
pt3dadd(121.426, 36.3, 15.907, 0.27)
pt3dadd(121.471, 36.195, 15.877, 0.276)
pt3dadd(121.514, 36.091, 15.843, 0.288)
pt3dadd(121.558, 35.987, 15.808, 0.302)
pt3dadd(121.6, 35.883, 15.773, 0.314)
pt3dadd(121.643, 35.779, 15.738, 0.326)
pt3dadd(121.686, 35.675, 15.704, 0.338)
pt3dadd(121.729, 35.571, 15.669, 0.352)
pt3dadd(121.772, 35.467, 15.634, 0.364)
pt3dadd(121.814, 35.364, 15.599, 0.376)
pt3dadd(121.858, 35.259, 15.565, 0.388)
pt3dadd(121.908, 35.157, 15.535, 0.392)
pt3dadd(121.962, 35.055, 15.507, 0.392)
pt3dadd(122.016, 34.952, 15.48, 0.392)
pt3dadd(122.069, 34.85, 15.453, 0.392)
pt3dadd(122.123, 34.748, 15.425, 0.39)
pt3dadd(122.177, 34.646, 15.398, 0.39)
pt3dadd(122.231, 34.544, 15.37, 0.39)
pt3dadd(122.284, 34.442, 15.343, 0.39)
pt3dadd(122.338, 34.34, 15.316, 0.39)
pt3dadd(122.392, 34.237, 15.288, 0.388)
pt3dadd(122.452, 34.137, 15.266, 0.38)
pt3dadd(122.514, 34.038, 15.245, 0.368)
pt3dadd(122.576, 33.938, 15.224, 0.356)
pt3dadd(122.639, 33.839, 15.204, 0.344)
pt3dadd(122.701, 33.739, 15.183, 0.332)
pt3dadd(122.764, 33.64, 15.163, 0.32)
pt3dadd(122.826, 33.54, 15.142, 0.308)
pt3dadd(122.888, 33.441, 15.122, 0.296)
pt3dadd(122.951, 33.341, 15.101, 0.284)
pt3dadd(123.013, 33.242, 15.08, 0.272)
pt3dadd(123.07, 33.138, 15.065, 0.278)
pt3dadd(123.125, 33.033, 15.051, 0.29)
pt3dadd(123.18, 32.928, 15.037, 0.304)
pt3dadd(123.235, 32.822, 15.023, 0.316)
pt3dadd(123.29, 32.717, 15.009, 0.328)
pt3dadd(123.346, 32.611, 14.995, 0.342)
pt3dadd(123.4, 32.506, 14.981, 0.354)
pt3dadd(123.455, 32.401, 14.967, 0.366)
pt3dadd(123.51, 32.295, 14.953, 0.378)
pt3dadd(123.565, 32.19, 14.939, 0.392)
pt3dadd(123.617, 32.083, 14.928, 0.414)
pt3dadd(123.667, 31.975, 14.918, 0.44)
pt3dadd(123.718, 31.867, 14.907, 0.466)
pt3dadd(123.769, 31.758, 14.897, 0.492)
pt3dadd(123.82, 31.65, 14.887, 0.518)
pt3dadd(123.87, 31.542, 14.877, 0.544)
pt3dadd(123.92, 31.434, 14.866, 0.57)
pt3dadd(123.971, 31.326, 14.856, 0.596)
pt3dadd(124.022, 31.218, 14.846, 0.622)
pt3dadd(124.073, 31.11, 14.835, 0.648)
pt3dadd(124.136, 31.009, 14.832, 0.656)
pt3dadd(124.205, 30.91, 14.831, 0.66)
pt3dadd(124.273, 30.811, 14.829, 0.662)
pt3dadd(124.34, 30.713, 14.828, 0.664)
pt3dadd(124.409, 30.614, 14.826, 0.666)
pt3dadd(124.477, 30.515, 14.825, 0.668)
pt3dadd(124.546, 30.416, 14.824, 0.67)
pt3dadd(124.614, 30.318, 14.822, 0.672)
pt3dadd(124.681, 30.219, 14.821, 0.676)
pt3dadd(124.75, 30.12, 14.82, 0.678)
pt3dadd(124.819, 30.022, 14.819, 0.678)
pt3dadd(124.889, 29.924, 14.818, 0.678)
pt3dadd(124.958, 29.827, 14.818, 0.678)
pt3dadd(125.028, 29.729, 14.817, 0.678)
pt3dadd(125.098, 29.631, 14.817, 0.678)
pt3dadd(125.167, 29.533, 14.816, 0.678)
pt3dadd(125.237, 29.436, 14.816, 0.678)
pt3dadd(125.306, 29.338, 14.815, 0.678)
pt3dadd(125.376, 29.24, 14.815, 0.678)
pt3dadd(125.446, 29.142, 14.814, 0.678)
pt3dadd(125.519, 29.048, 14.813, 0.686)
pt3dadd(125.593, 28.954, 14.812, 0.698)
pt3dadd(125.668, 28.86, 14.811, 0.71)
pt3dadd(125.743, 28.765, 14.81, 0.72)
pt3dadd(125.818, 28.671, 14.809, 0.732)
pt3dadd(125.892, 28.577, 14.808, 0.744)
pt3dadd(125.966, 28.483, 14.807, 0.754)
pt3dadd(126.041, 28.389, 14.805, 0.766)
pt3dadd(126.115, 28.295, 14.804, 0.778)
pt3dadd(126.19, 28.201, 14.803, 0.788)
pt3dadd(126.264, 28.107, 14.802, 0.8)
pt3dadd(126.338, 28.013, 14.801, 0.812)
pt3dadd(126.413, 27.919, 14.8, 0.822)
pt3dadd(126.488, 27.825, 14.799, 0.834)
pt3dadd(126.563, 27.731, 14.798, 0.844)
pt3dadd(126.637, 27.637, 14.797, 0.856)
pt3dadd(126.712, 27.543, 14.795, 0.868)
pt3dadd(126.786, 27.449, 14.794, 0.878)
pt3dadd(126.86, 27.355, 14.793, 0.89)
pt3dadd(126.935, 27.261, 14.792, 0.902)
pt3dadd(127.012, 27.168, 14.79, 0.894)
pt3dadd(127.088, 27.076, 14.788, 0.884)
pt3dadd(127.164, 26.983, 14.786, 0.872)
pt3dadd(127.241, 26.891, 14.784, 0.862)
pt3dadd(127.318, 26.799, 14.781, 0.85)
pt3dadd(127.394, 26.707, 14.779, 0.84)
pt3dadd(127.471, 26.614, 14.777, 0.828)
pt3dadd(127.548, 26.522, 14.775, 0.816)
pt3dadd(127.625, 26.43, 14.773, 0.806)
pt3dadd(127.702, 26.337, 14.77, 0.794)
}
}
proc shape3d_147() {
dend_7[15] { pt3dadd(127.777, 26.245, 14.768, 0.784)
pt3dadd(127.854, 26.153, 14.766, 0.772)
pt3dadd(127.931, 26.06, 14.764, 0.762)
pt3dadd(128.008, 25.968, 14.762, 0.75)
pt3dadd(128.084, 25.876, 14.759, 0.74)
pt3dadd(128.16, 25.783, 14.757, 0.728)
pt3dadd(128.237, 25.691, 14.755, 0.716)
pt3dadd(128.314, 25.599, 14.753, 0.706)
pt3dadd(128.39, 25.506, 14.751, 0.694)
pt3dadd(128.467, 25.414, 14.748, 0.684)
pt3dadd(128.525, 25.309, 14.743, 0.66)
pt3dadd(128.576, 25.202, 14.737, 0.634)
pt3dadd(128.628, 25.094, 14.73, 0.61)
pt3dadd(128.681, 24.986, 14.724, 0.584)
pt3dadd(128.732, 24.878, 14.718, 0.558)
pt3dadd(128.784, 24.77, 14.712, 0.532)
pt3dadd(128.837, 24.662, 14.705, 0.506)
pt3dadd(128.888, 24.554, 14.699, 0.48)
pt3dadd(128.94, 24.446, 14.693, 0.454)
pt3dadd(128.993, 24.339, 14.687, 0.428)
pt3dadd(129.044, 24.231, 14.679, 0.408)
pt3dadd(129.097, 24.123, 14.672, 0.388)
pt3dadd(129.149, 24.015, 14.665, 0.368)
pt3dadd(129.202, 23.908, 14.657, 0.348)
pt3dadd(129.253, 23.8, 14.65, 0.328)
pt3dadd(129.306, 23.692, 14.643, 0.308)
pt3dadd(129.358, 23.585, 14.635, 0.29)
pt3dadd(129.41, 23.477, 14.628, 0.27)
pt3dadd(129.462, 23.369, 14.621, 0.25)
pt3dadd(129.515, 23.262, 14.613, 0.23)
pt3dadd(129.569, 23.155, 14.604, 0.226)
pt3dadd(129.623, 23.049, 14.594, 0.226)
pt3dadd(129.678, 22.943, 14.583, 0.226)
pt3dadd(129.732, 22.837, 14.573, 0.226)
pt3dadd(129.787, 22.731, 14.563, 0.226)
pt3dadd(129.841, 22.624, 14.552, 0.226)
pt3dadd(129.896, 22.518, 14.542, 0.226)
pt3dadd(129.95, 22.412, 14.531, 0.226)
pt3dadd(130.006, 22.306, 14.521, 0.226)
pt3dadd(130.06, 22.2, 14.511, 0.226)
pt3dadd(130.104, 22.092, 14.49, 0.226)
pt3dadd(130.146, 21.983, 14.467, 0.226)
pt3dadd(130.188, 21.874, 14.443, 0.226)
pt3dadd(130.229, 21.765, 14.42, 0.226)
pt3dadd(130.271, 21.656, 14.396, 0.226)
pt3dadd(130.313, 21.547, 14.373, 0.226)
pt3dadd(130.355, 21.438, 14.349, 0.226)
pt3dadd(130.396, 21.329, 14.326, 0.226)
pt3dadd(130.438, 21.22, 14.302, 0.226)
pt3dadd(130.48, 21.111, 14.279, 0.226)
pt3dadd(130.507, 21.003, 14.243, 0.226)
pt3dadd(130.535, 20.894, 14.206, 0.226)
pt3dadd(130.561, 20.786, 14.17, 0.226)
pt3dadd(130.589, 20.678, 14.133, 0.226)
pt3dadd(130.615, 20.569, 14.096, 0.226)
pt3dadd(130.643, 20.461, 14.06, 0.226)
pt3dadd(130.669, 20.352, 14.023, 0.226)
pt3dadd(130.697, 20.244, 13.987, 0.226)
pt3dadd(130.723, 20.136, 13.95, 0.226)
pt3dadd(130.751, 20.027, 13.913, 0.226)
pt3dadd(130.768, 19.913, 13.886, 0.226)
pt3dadd(130.783, 19.799, 13.859, 0.226)
pt3dadd(130.799, 19.684, 13.832, 0.226)
pt3dadd(130.816, 19.57, 13.805, 0.226)
pt3dadd(130.831, 19.455, 13.779, 0.226)
pt3dadd(130.848, 19.341, 13.752, 0.226)
pt3dadd(130.864, 19.227, 13.725, 0.226)
pt3dadd(130.88, 19.112, 13.698, 0.226)
pt3dadd(130.896, 18.998, 13.671, 0.226)
pt3dadd(130.913, 18.883, 13.644, 0.226)
pt3dadd(130.924, 18.767, 13.622, 0.226)
pt3dadd(130.934, 18.65, 13.6, 0.226)
pt3dadd(130.945, 18.534, 13.578, 0.226)
pt3dadd(130.956, 18.417, 13.556, 0.226)
pt3dadd(130.967, 18.3, 13.534, 0.226)
pt3dadd(130.978, 18.184, 13.512, 0.226)
pt3dadd(130.988, 18.067, 13.49, 0.226)
pt3dadd(130.999, 17.951, 13.468, 0.226)
pt3dadd(131.01, 17.834, 13.446, 0.226)
pt3dadd(131.021, 17.718, 13.424, 0.226)
pt3dadd(131.021, 17.598, 13.412, 0.226)
pt3dadd(131.021, 17.479, 13.4, 0.226)
pt3dadd(131.021, 17.36, 13.388, 0.226)
pt3dadd(131.021, 17.241, 13.376, 0.226)
pt3dadd(131.021, 17.122, 13.364, 0.226)
pt3dadd(131.021, 17.003, 13.352, 0.226)
pt3dadd(131.021, 16.884, 13.34, 0.226)
pt3dadd(131.021, 16.765, 13.328, 0.226)
pt3dadd(131.021, 16.645, 13.316, 0.226)
pt3dadd(131.021, 16.526, 13.304, 0.226)
pt3dadd(131.021, 16.406, 13.3, 0.226)
pt3dadd(131.021, 16.287, 13.297, 0.226)
pt3dadd(131.021, 16.167, 13.294, 0.226)
pt3dadd(131.021, 16.047, 13.29, 0.226)
pt3dadd(131.021, 15.927, 13.287, 0.226)
pt3dadd(131.021, 15.807, 13.284, 0.226)
pt3dadd(131.021, 15.687, 13.281, 0.226)
pt3dadd(131.021, 15.567, 13.278, 0.226)
pt3dadd(131.021, 15.447, 13.274, 0.226)
pt3dadd(131.021, 15.327, 13.271, 0.226)
pt3dadd(131.021, 15.207, 13.271, 0.226)
pt3dadd(131.021, 15.087, 13.271, 0.226)
pt3dadd(131.021, 14.967, 13.271, 0.226)
pt3dadd(131.021, 14.847, 13.271, 0.226)
pt3dadd(131.021, 14.727, 13.271, 0.226)
pt3dadd(131.021, 14.607, 13.271, 0.226)
pt3dadd(131.021, 14.487, 13.271, 0.226)
pt3dadd(131.021, 14.367, 13.271, 0.226)
pt3dadd(131.021, 14.247, 13.271, 0.226)
pt3dadd(131.021, 14.127, 13.271, 0.226)
}
dend_7[16] {pt3dclear()
pt3dadd(112.762, 60.967, 19.423, 1.13)
pt3dadd(112.743, 60.894, 19.487, 1.112)
pt3dadd(112.722, 60.813, 19.559, 1.092)
pt3dadd(112.702, 60.732, 19.63, 1.074)
pt3dadd(112.681, 60.651, 19.702, 1.054)
pt3dadd(112.661, 60.57, 19.774, 1.034)
pt3dadd(112.64, 60.489, 19.845, 1.014)
pt3dadd(112.619, 60.408, 19.917, 0.996)
pt3dadd(112.599, 60.326, 19.989, 0.976)
pt3dadd(112.578, 60.245, 20.06, 0.956)
pt3dadd(112.557, 60.164, 20.132, 0.936)
pt3dadd(112.537, 60.083, 20.204, 0.916)
pt3dadd(112.516, 60.002, 20.275, 0.898)
pt3dadd(112.496, 59.921, 20.347, 0.878)
pt3dadd(112.475, 59.84, 20.419, 0.858)
pt3dadd(112.453, 59.754, 20.486, 0.838)
pt3dadd(112.431, 59.667, 20.552, 0.82)
pt3dadd(112.41, 59.58, 20.619, 0.8)
pt3dadd(112.388, 59.493, 20.686, 0.78)
pt3dadd(112.366, 59.406, 20.752, 0.76)
pt3dadd(112.344, 59.32, 20.819, 0.742)
pt3dadd(112.322, 59.233, 20.886, 0.722)
pt3dadd(112.3, 59.146, 20.952, 0.702)
pt3dadd(112.279, 59.059, 21.019, 0.682)
pt3dadd(112.256, 58.968, 21.076, 0.664)
pt3dadd(112.23, 58.851, 21.073, 0.652)
pt3dadd(112.203, 58.734, 21.071, 0.638)
pt3dadd(112.176, 58.617, 21.069, 0.626)
pt3dadd(112.15, 58.5, 21.067, 0.614)
pt3dadd(112.123, 58.383, 21.064, 0.6)
pt3dadd(112.096, 58.266, 21.062, 0.588)
pt3dadd(112.07, 58.149, 21.06, 0.576)
pt3dadd(112.043, 58.032, 21.058, 0.562)
pt3dadd(112.016, 57.915, 21.055, 0.55)
pt3dadd(111.989, 57.799, 21.053, 0.538)
pt3dadd(111.954, 57.684, 21.051, 0.53)
pt3dadd(111.92, 57.569, 21.048, 0.52)
pt3dadd(111.885, 57.454, 21.046, 0.512)
pt3dadd(111.851, 57.339, 21.043, 0.502)
pt3dadd(111.817, 57.224, 21.041, 0.494)
pt3dadd(111.782, 57.109, 21.039, 0.486)
pt3dadd(111.748, 56.994, 21.036, 0.476)
pt3dadd(111.714, 56.879, 21.034, 0.468)
pt3dadd(111.679, 56.764, 21.031, 0.46)
pt3dadd(111.642, 56.651, 21.029, 0.452)
pt3dadd(111.591, 56.542, 21.026, 0.452)
pt3dadd(111.54, 56.433, 21.023, 0.452)
pt3dadd(111.489, 56.325, 21.02, 0.452)
pt3dadd(111.439, 56.216, 21.017, 0.452)
pt3dadd(111.388, 56.107, 21.014, 0.452)
pt3dadd(111.337, 55.998, 21.012, 0.452)
pt3dadd(111.286, 55.89, 21.009, 0.452)
pt3dadd(111.236, 55.781, 21.006, 0.452)
pt3dadd(111.185, 55.672, 21.003, 0.452)
pt3dadd(111.137, 55.563, 21, 0.45)
pt3dadd(111.101, 55.448, 20.994, 0.438)
pt3dadd(111.065, 55.334, 20.988, 0.428)
pt3dadd(111.029, 55.22, 20.982, 0.418)
pt3dadd(110.993, 55.106, 20.976, 0.406)
pt3dadd(110.957, 54.991, 20.971, 0.396)
pt3dadd(110.92, 54.877, 20.965, 0.384)
pt3dadd(110.884, 54.763, 20.959, 0.374)
pt3dadd(110.848, 54.649, 20.953, 0.362)
pt3dadd(110.812, 54.535, 20.947, 0.352)
pt3dadd(110.777, 54.42, 20.941, 0.34)
pt3dadd(110.747, 54.304, 20.934, 0.33)
pt3dadd(110.717, 54.188, 20.926, 0.318)
pt3dadd(110.687, 54.073, 20.919, 0.306)
pt3dadd(110.656, 53.957, 20.912, 0.294)
pt3dadd(110.626, 53.841, 20.904, 0.282)
pt3dadd(110.596, 53.725, 20.897, 0.27)
pt3dadd(110.565, 53.61, 20.89, 0.258)
pt3dadd(110.535, 53.494, 20.882, 0.246)
pt3dadd(110.505, 53.378, 20.875, 0.236)
pt3dadd(110.477, 53.262, 20.867, 0.226)
pt3dadd(110.455, 53.144, 20.856, 0.226)
pt3dadd(110.434, 53.027, 20.845, 0.226)
pt3dadd(110.413, 52.91, 20.834, 0.226)
pt3dadd(110.391, 52.792, 20.823, 0.226)
pt3dadd(110.37, 52.675, 20.811, 0.226)
pt3dadd(110.349, 52.558, 20.8, 0.226)
pt3dadd(110.327, 52.44, 20.789, 0.226)
pt3dadd(110.306, 52.323, 20.778, 0.226)
pt3dadd(110.285, 52.206, 20.767, 0.226)
pt3dadd(110.264, 52.089, 20.753, 0.228)
pt3dadd(110.247, 51.974, 20.727, 0.236)
pt3dadd(110.231, 51.859, 20.702, 0.242)
pt3dadd(110.214, 51.745, 20.676, 0.25)
pt3dadd(110.197, 51.63, 20.651, 0.258)
pt3dadd(110.18, 51.515, 20.625, 0.266)
}
}
proc shape3d_148() {
dend_7[16] { pt3dadd(110.163, 51.4, 20.599, 0.274)
pt3dadd(110.146, 51.285, 20.574, 0.28)
pt3dadd(110.13, 51.171, 20.548, 0.288)
pt3dadd(110.113, 51.056, 20.523, 0.296)
pt3dadd(110.097, 50.942, 20.494, 0.306)
pt3dadd(110.084, 50.831, 20.458, 0.318)
pt3dadd(110.071, 50.72, 20.421, 0.332)
pt3dadd(110.058, 50.609, 20.385, 0.346)
pt3dadd(110.045, 50.498, 20.348, 0.358)
pt3dadd(110.032, 50.387, 20.312, 0.372)
pt3dadd(110.019, 50.276, 20.275, 0.386)
pt3dadd(110.006, 50.165, 20.239, 0.398)
pt3dadd(109.992, 50.055, 20.202, 0.412)
pt3dadd(109.979, 49.944, 20.166, 0.426)
pt3dadd(109.958, 49.833, 20.134, 0.442)
pt3dadd(109.918, 49.723, 20.11, 0.468)
pt3dadd(109.877, 49.614, 20.087, 0.492)
pt3dadd(109.837, 49.504, 20.064, 0.516)
pt3dadd(109.797, 49.395, 20.041, 0.542)
pt3dadd(109.757, 49.285, 20.018, 0.566)
pt3dadd(109.717, 49.175, 19.994, 0.59)
pt3dadd(109.677, 49.066, 19.971, 0.616)
pt3dadd(109.636, 48.956, 19.948, 0.64)
pt3dadd(109.596, 48.846, 19.925, 0.666)
pt3dadd(109.555, 48.737, 19.903, 0.688)
pt3dadd(109.513, 48.627, 19.884, 0.708)
pt3dadd(109.471, 48.517, 19.865, 0.728)
pt3dadd(109.43, 48.407, 19.846, 0.748)
pt3dadd(109.388, 48.297, 19.826, 0.77)
pt3dadd(109.346, 48.187, 19.807, 0.79)
pt3dadd(109.304, 48.077, 19.788, 0.81)
pt3dadd(109.262, 47.967, 19.769, 0.83)
pt3dadd(109.22, 47.856, 19.75, 0.85)
pt3dadd(109.178, 47.746, 19.731, 0.87)
pt3dadd(109.141, 47.634, 19.716, 0.878)
pt3dadd(109.111, 47.518, 19.708, 0.864)
pt3dadd(109.082, 47.402, 19.7, 0.85)
pt3dadd(109.052, 47.286, 19.692, 0.836)
pt3dadd(109.023, 47.17, 19.684, 0.822)
pt3dadd(108.993, 47.055, 19.676, 0.808)
pt3dadd(108.963, 46.939, 19.668, 0.794)
pt3dadd(108.934, 46.823, 19.66, 0.78)
pt3dadd(108.904, 46.707, 19.652, 0.766)
pt3dadd(108.875, 46.591, 19.644, 0.752)
pt3dadd(108.848, 46.474, 19.639, 0.734)
pt3dadd(108.827, 46.356, 19.639, 0.714)
pt3dadd(108.805, 46.238, 19.639, 0.692)
pt3dadd(108.783, 46.12, 19.639, 0.67)
pt3dadd(108.761, 46.002, 19.639, 0.648)
pt3dadd(108.739, 45.884, 19.639, 0.626)
pt3dadd(108.717, 45.766, 19.639, 0.604)
pt3dadd(108.696, 45.648, 19.639, 0.582)
pt3dadd(108.674, 45.53, 19.639, 0.56)
pt3dadd(108.652, 45.412, 19.639, 0.538)
pt3dadd(108.633, 45.294, 19.642, 0.514)
pt3dadd(108.618, 45.175, 19.649, 0.484)
pt3dadd(108.603, 45.056, 19.656, 0.456)
pt3dadd(108.588, 44.937, 19.663, 0.426)
pt3dadd(108.574, 44.819, 19.67, 0.398)
pt3dadd(108.559, 44.7, 19.677, 0.37)
pt3dadd(108.544, 44.581, 19.684, 0.342)
pt3dadd(108.529, 44.462, 19.691, 0.312)
pt3dadd(108.514, 44.343, 19.698, 0.284)
pt3dadd(108.499, 44.225, 19.705, 0.256)
pt3dadd(108.488, 44.106, 19.713, 0.244)
pt3dadd(108.483, 43.987, 19.725, 0.256)
pt3dadd(108.478, 43.868, 19.736, 0.27)
pt3dadd(108.472, 43.749, 19.748, 0.282)
pt3dadd(108.467, 43.629, 19.759, 0.294)
pt3dadd(108.461, 43.51, 19.77, 0.306)
pt3dadd(108.456, 43.391, 19.782, 0.318)
pt3dadd(108.451, 43.272, 19.793, 0.332)
pt3dadd(108.445, 43.153, 19.804, 0.344)
pt3dadd(108.44, 43.034, 19.816, 0.356)
pt3dadd(108.435, 42.916, 19.832, 0.372)
pt3dadd(108.429, 42.799, 19.853, 0.39)
pt3dadd(108.424, 42.681, 19.875, 0.41)
pt3dadd(108.419, 42.564, 19.896, 0.43)
pt3dadd(108.414, 42.447, 19.917, 0.448)
pt3dadd(108.409, 42.33, 19.939, 0.468)
pt3dadd(108.404, 42.213, 19.96, 0.488)
pt3dadd(108.399, 42.096, 19.982, 0.506)
pt3dadd(108.394, 41.979, 20.004, 0.526)
pt3dadd(108.389, 41.862, 20.025, 0.546)
pt3dadd(108.384, 41.748, 20.055, 0.568)
pt3dadd(108.379, 41.637, 20.092, 0.596)
pt3dadd(108.374, 41.525, 20.129, 0.622)
pt3dadd(108.369, 41.414, 20.166, 0.65)
pt3dadd(108.364, 41.303, 20.203, 0.676)
pt3dadd(108.359, 41.191, 20.24, 0.702)
pt3dadd(108.354, 41.08, 20.278, 0.73)
pt3dadd(108.348, 40.969, 20.315, 0.756)
pt3dadd(108.343, 40.857, 20.352, 0.784)
pt3dadd(108.338, 40.746, 20.389, 0.81)
pt3dadd(108.324, 40.634, 20.421, 0.812)
pt3dadd(108.3, 40.521, 20.449, 0.792)
pt3dadd(108.276, 40.408, 20.476, 0.772)
pt3dadd(108.252, 40.296, 20.504, 0.75)
pt3dadd(108.228, 40.183, 20.531, 0.73)
pt3dadd(108.204, 40.07, 20.559, 0.71)
pt3dadd(108.18, 39.957, 20.587, 0.69)
pt3dadd(108.156, 39.844, 20.614, 0.67)
pt3dadd(108.132, 39.731, 20.642, 0.648)
pt3dadd(108.108, 39.618, 20.669, 0.628)
pt3dadd(108.08, 39.506, 20.694, 0.596)
pt3dadd(108.05, 39.393, 20.717, 0.558)
pt3dadd(108.02, 39.28, 20.74, 0.518)
pt3dadd(107.989, 39.167, 20.762, 0.478)
pt3dadd(107.959, 39.054, 20.785, 0.438)
pt3dadd(107.929, 38.941, 20.808, 0.398)
pt3dadd(107.898, 38.829, 20.831, 0.36)
pt3dadd(107.868, 38.716, 20.854, 0.32)
pt3dadd(107.838, 38.603, 20.876, 0.28)
pt3dadd(107.808, 38.49, 20.899, 0.24)
pt3dadd(107.807, 38.374, 20.915, 0.226)
pt3dadd(107.826, 38.256, 20.926, 0.226)
pt3dadd(107.844, 38.138, 20.936, 0.226)
pt3dadd(107.862, 38.021, 20.947, 0.226)
pt3dadd(107.88, 37.903, 20.958, 0.226)
pt3dadd(107.899, 37.785, 20.969, 0.226)
pt3dadd(107.917, 37.667, 20.98, 0.226)
pt3dadd(107.935, 37.549, 20.991, 0.226)
pt3dadd(107.953, 37.431, 21.002, 0.226)
pt3dadd(107.972, 37.313, 21.013, 0.226)
pt3dadd(107.989, 37.195, 21.021, 0.238)
pt3dadd(108.007, 37.077, 21.027, 0.256)
pt3dadd(108.024, 36.958, 21.033, 0.276)
pt3dadd(108.042, 36.84, 21.039, 0.294)
pt3dadd(108.06, 36.721, 21.045, 0.314)
pt3dadd(108.077, 36.603, 21.051, 0.332)
pt3dadd(108.095, 36.484, 21.057, 0.352)
pt3dadd(108.112, 36.366, 21.063, 0.37)
pt3dadd(108.13, 36.247, 21.07, 0.39)
pt3dadd(108.147, 36.129, 21.076, 0.408)
pt3dadd(108.164, 36.01, 21.078, 0.444)
pt3dadd(108.18, 35.891, 21.078, 0.486)
pt3dadd(108.197, 35.772, 21.078, 0.53)
pt3dadd(108.213, 35.653, 21.078, 0.572)
pt3dadd(108.23, 35.534, 21.078, 0.616)
pt3dadd(108.246, 35.416, 21.078, 0.658)
pt3dadd(108.263, 35.297, 21.078, 0.702)
pt3dadd(108.279, 35.178, 21.078, 0.744)
pt3dadd(108.296, 35.059, 21.078, 0.788)
pt3dadd(108.312, 34.94, 21.078, 0.83)
pt3dadd(108.327, 34.821, 21.078, 0.842)
pt3dadd(108.342, 34.702, 21.078, 0.836)
pt3dadd(108.356, 34.583, 21.078, 0.828)
pt3dadd(108.371, 34.464, 21.078, 0.822)
pt3dadd(108.385, 34.345, 21.078, 0.816)
pt3dadd(108.4, 34.225, 21.078, 0.808)
pt3dadd(108.414, 34.106, 21.078, 0.802)
pt3dadd(108.429, 33.987, 21.078, 0.796)
pt3dadd(108.443, 33.868, 21.078, 0.788)
pt3dadd(108.458, 33.749, 21.078, 0.782)
pt3dadd(108.47, 33.63, 21.078, 0.768)
pt3dadd(108.48, 33.51, 21.078, 0.75)
pt3dadd(108.491, 33.391, 21.078, 0.73)
pt3dadd(108.502, 33.271, 21.078, 0.712)
pt3dadd(108.512, 33.152, 21.078, 0.694)
pt3dadd(108.523, 33.032, 21.078, 0.674)
pt3dadd(108.533, 32.912, 21.078, 0.656)
pt3dadd(108.544, 32.793, 21.078, 0.638)
pt3dadd(108.555, 32.673, 21.078, 0.618)
pt3dadd(108.565, 32.554, 21.078, 0.6)
pt3dadd(108.57, 32.434, 21.078, 0.574)
pt3dadd(108.572, 32.314, 21.078, 0.546)
pt3dadd(108.574, 32.194, 21.078, 0.516)
pt3dadd(108.575, 32.074, 21.078, 0.488)
pt3dadd(108.577, 31.954, 21.078, 0.458)
pt3dadd(108.579, 31.834, 21.078, 0.43)
pt3dadd(108.581, 31.714, 21.078, 0.4)
pt3dadd(108.583, 31.594, 21.078, 0.372)
pt3dadd(108.584, 31.474, 21.078, 0.344)
pt3dadd(108.586, 31.354, 21.078, 0.314)
pt3dadd(108.59, 31.234, 21.078, 0.312)
pt3dadd(108.594, 31.114, 21.078, 0.326)
pt3dadd(108.598, 30.994, 21.078, 0.34)
pt3dadd(108.602, 30.874, 21.078, 0.352)
pt3dadd(108.606, 30.754, 21.078, 0.366)
pt3dadd(108.611, 30.635, 21.078, 0.38)
pt3dadd(108.615, 30.515, 21.078, 0.392)
pt3dadd(108.619, 30.395, 21.078, 0.406)
pt3dadd(108.623, 30.275, 21.078, 0.42)
pt3dadd(108.627, 30.155, 21.078, 0.432)
pt3dadd(108.632, 30.035, 21.078, 0.452)
pt3dadd(108.638, 29.915, 21.078, 0.474)
pt3dadd(108.643, 29.795, 21.078, 0.494)
pt3dadd(108.648, 29.675, 21.078, 0.516)
pt3dadd(108.653, 29.555, 21.078, 0.538)
pt3dadd(108.659, 29.436, 21.078, 0.56)
pt3dadd(108.664, 29.316, 21.078, 0.582)
pt3dadd(108.669, 29.196, 21.078, 0.602)
pt3dadd(108.675, 29.076, 21.078, 0.624)
pt3dadd(108.68, 28.956, 21.078, 0.646)
pt3dadd(108.685, 28.836, 21.078, 0.644)
pt3dadd(108.691, 28.716, 21.078, 0.63)
pt3dadd(108.697, 28.596, 21.078, 0.616)
pt3dadd(108.702, 28.476, 21.078, 0.6)
pt3dadd(108.708, 28.357, 21.078, 0.586)
pt3dadd(108.714, 28.237, 21.078, 0.572)
}
}
proc shape3d_149() {
dend_7[16] { pt3dadd(108.719, 28.117, 21.078, 0.558)
pt3dadd(108.725, 27.997, 21.078, 0.544)
pt3dadd(108.73, 27.877, 21.078, 0.528)
pt3dadd(108.736, 27.757, 21.078, 0.514)
pt3dadd(108.753, 27.639, 21.078, 0.5)
pt3dadd(108.775, 27.521, 21.078, 0.486)
pt3dadd(108.798, 27.403, 21.078, 0.472)
pt3dadd(108.82, 27.285, 21.078, 0.458)
pt3dadd(108.843, 27.167, 21.078, 0.442)
pt3dadd(108.865, 27.049, 21.078, 0.428)
pt3dadd(108.887, 26.931, 21.078, 0.414)
pt3dadd(108.91, 26.814, 21.079, 0.4)
pt3dadd(108.932, 26.696, 21.079, 0.386)
pt3dadd(108.955, 26.578, 21.079, 0.372)
pt3dadd(108.985, 26.462, 21.079, 0.358)
pt3dadd(109.018, 26.346, 21.079, 0.344)
pt3dadd(109.051, 26.231, 21.079, 0.33)
pt3dadd(109.085, 26.116, 21.079, 0.316)
pt3dadd(109.118, 26.001, 21.079, 0.302)
pt3dadd(109.151, 25.885, 21.079, 0.288)
pt3dadd(109.184, 25.77, 21.079, 0.274)
pt3dadd(109.218, 25.655, 21.079, 0.26)
pt3dadd(109.251, 25.539, 21.079, 0.246)
pt3dadd(109.284, 25.424, 21.079, 0.232)
pt3dadd(109.282, 25.306, 21.079, 0.228)
pt3dadd(109.265, 25.187, 21.079, 0.228)
pt3dadd(109.249, 25.068, 21.079, 0.228)
pt3dadd(109.233, 24.95, 21.079, 0.228)
pt3dadd(109.216, 24.831, 21.079, 0.228)
pt3dadd(109.2, 24.712, 21.079, 0.228)
pt3dadd(109.183, 24.593, 21.079, 0.226)
pt3dadd(109.167, 24.474, 21.079, 0.226)
pt3dadd(109.15, 24.355, 21.079, 0.226)
pt3dadd(109.134, 24.236, 21.08, 0.226)
pt3dadd(109.117, 24.117, 21.08, 0.226)
pt3dadd(109.101, 23.999, 21.08, 0.226)
pt3dadd(109.085, 23.88, 21.08, 0.226)
pt3dadd(109.069, 23.761, 21.08, 0.226)
pt3dadd(109.053, 23.642, 21.08, 0.226)
pt3dadd(109.037, 23.523, 21.08, 0.226)
pt3dadd(109.021, 23.404, 21.08, 0.226)
pt3dadd(109.005, 23.285, 21.08, 0.226)
pt3dadd(108.989, 23.166, 21.08, 0.226)
pt3dadd(108.973, 23.047, 21.08, 0.226)
pt3dadd(108.958, 22.928, 21.081, 0.226)
pt3dadd(108.943, 22.809, 21.081, 0.226)
pt3dadd(108.929, 22.69, 21.081, 0.226)
pt3dadd(108.914, 22.571, 21.081, 0.226)
pt3dadd(108.9, 22.452, 21.081, 0.226)
pt3dadd(108.885, 22.333, 21.081, 0.226)
pt3dadd(108.871, 22.213, 21.081, 0.226)
pt3dadd(108.856, 22.094, 21.082, 0.226)
pt3dadd(108.842, 21.975, 21.082, 0.226)
pt3dadd(108.827, 21.856, 21.082, 0.226)
pt3dadd(108.816, 21.737, 21.082, 0.226)
pt3dadd(108.807, 21.617, 21.082, 0.226)
pt3dadd(108.798, 21.497, 21.083, 0.226)
pt3dadd(108.789, 21.378, 21.083, 0.226)
pt3dadd(108.78, 21.258, 21.083, 0.226)
pt3dadd(108.77, 21.138, 21.084, 0.226)
pt3dadd(108.761, 21.019, 21.084, 0.226)
pt3dadd(108.752, 20.899, 21.084, 0.226)
pt3dadd(108.743, 20.779, 21.084, 0.226)
pt3dadd(108.733, 20.66, 21.085, 0.226)
pt3dadd(108.727, 20.54, 21.085, 0.226)
pt3dadd(108.723, 20.42, 21.085, 0.226)
pt3dadd(108.718, 20.3, 21.086, 0.226)
pt3dadd(108.713, 20.18, 21.086, 0.226)
pt3dadd(108.709, 20.06, 21.087, 0.226)
pt3dadd(108.704, 19.94, 21.087, 0.226)
pt3dadd(108.699, 19.821, 21.088, 0.226)
pt3dadd(108.695, 19.701, 21.088, 0.226)
pt3dadd(108.69, 19.581, 21.088, 0.226)
pt3dadd(108.685, 19.461, 21.089, 0.226)
pt3dadd(108.688, 19.341, 21.089, 0.226)
pt3dadd(108.694, 19.221, 21.09, 0.226)
pt3dadd(108.699, 19.101, 21.091, 0.226)
pt3dadd(108.705, 18.981, 21.091, 0.226)
pt3dadd(108.71, 18.861, 21.092, 0.226)
pt3dadd(108.716, 18.742, 21.093, 0.226)
pt3dadd(108.721, 18.622, 21.093, 0.226)
pt3dadd(108.727, 18.502, 21.094, 0.226)
pt3dadd(108.732, 18.382, 21.095, 0.226)
pt3dadd(108.738, 18.262, 21.095, 0.226)
pt3dadd(108.758, 18.144, 21.097, 0.226)
pt3dadd(108.783, 18.027, 21.098, 0.226)
pt3dadd(108.808, 17.909, 21.099, 0.226)
pt3dadd(108.833, 17.792, 21.1, 0.226)
pt3dadd(108.858, 17.675, 21.101, 0.226)
pt3dadd(108.883, 17.557, 21.103, 0.226)
pt3dadd(108.908, 17.44, 21.104, 0.226)
pt3dadd(108.933, 17.323, 21.105, 0.226)
pt3dadd(108.958, 17.205, 21.106, 0.226)
pt3dadd(108.983, 17.088, 21.108, 0.226)
pt3dadd(109.011, 16.971, 21.109, 0.228)
pt3dadd(109.039, 16.855, 21.111, 0.23)
pt3dadd(109.068, 16.738, 21.112, 0.232)
pt3dadd(109.096, 16.622, 21.114, 0.236)
pt3dadd(109.125, 16.505, 21.115, 0.238)
pt3dadd(109.154, 16.389, 21.117, 0.24)
pt3dadd(109.182, 16.272, 21.118, 0.242)
pt3dadd(109.211, 16.156, 21.12, 0.244)
pt3dadd(109.24, 16.039, 21.122, 0.248)
pt3dadd(109.268, 15.923, 21.123, 0.25)
pt3dadd(109.256, 15.804, 21.126, 0.276)
pt3dadd(109.238, 15.686, 21.129, 0.304)
pt3dadd(109.22, 15.567, 21.132, 0.332)
pt3dadd(109.201, 15.449, 21.135, 0.362)
pt3dadd(109.183, 15.33, 21.138, 0.39)
pt3dadd(109.165, 15.211, 21.141, 0.418)
pt3dadd(109.147, 15.093, 21.144, 0.448)
pt3dadd(109.128, 14.974, 21.147, 0.476)
pt3dadd(109.11, 14.856, 21.15, 0.504)
pt3dadd(109.092, 14.737, 21.153, 0.534)
pt3dadd(109.075, 14.619, 21.158, 0.542)
pt3dadd(109.057, 14.5, 21.163, 0.55)
pt3dadd(109.04, 14.382, 21.169, 0.556)
pt3dadd(109.023, 14.263, 21.174, 0.564)
pt3dadd(109.005, 14.144, 21.179, 0.57)
pt3dadd(108.988, 14.026, 21.184, 0.576)
pt3dadd(108.971, 13.907, 21.19, 0.584)
pt3dadd(108.954, 13.789, 21.195, 0.59)
pt3dadd(108.936, 13.67, 21.2, 0.596)
pt3dadd(108.919, 13.551, 21.205, 0.604)
pt3dadd(108.903, 13.433, 21.212, 0.592)
pt3dadd(108.886, 13.314, 21.22, 0.578)
pt3dadd(108.87, 13.196, 21.227, 0.562)
pt3dadd(108.854, 13.077, 21.235, 0.548)
pt3dadd(108.837, 12.959, 21.242, 0.534)
pt3dadd(108.821, 12.84, 21.249, 0.52)
pt3dadd(108.805, 12.722, 21.257, 0.506)
pt3dadd(108.788, 12.603, 21.264, 0.49)
pt3dadd(108.772, 12.484, 21.271, 0.476)
pt3dadd(108.756, 12.366, 21.279, 0.462)
pt3dadd(108.742, 12.248, 21.29, 0.47)
pt3dadd(108.729, 12.129, 21.303, 0.484)
pt3dadd(108.715, 12.011, 21.315, 0.496)
pt3dadd(108.702, 11.892, 21.327, 0.51)
pt3dadd(108.689, 11.774, 21.34, 0.522)
pt3dadd(108.675, 11.656, 21.352, 0.534)
pt3dadd(108.662, 11.538, 21.365, 0.548)
pt3dadd(108.649, 11.419, 21.377, 0.56)
pt3dadd(108.635, 11.301, 21.389, 0.574)
pt3dadd(108.622, 11.183, 21.402, 0.586)
pt3dadd(108.613, 11.066, 21.424, 0.596)
pt3dadd(108.605, 10.95, 21.447, 0.606)
pt3dadd(108.596, 10.833, 21.471, 0.614)
pt3dadd(108.588, 10.717, 21.494, 0.624)
pt3dadd(108.58, 10.6, 21.517, 0.632)
pt3dadd(108.571, 10.484, 21.541, 0.642)
pt3dadd(108.563, 10.368, 21.564, 0.65)
pt3dadd(108.554, 10.251, 21.588, 0.66)
pt3dadd(108.546, 10.135, 21.611, 0.668)
pt3dadd(108.538, 10.019, 21.634, 0.678)
pt3dadd(108.538, 9.909, 21.675, 0.678)
pt3dadd(108.538, 9.799, 21.716, 0.678)
pt3dadd(108.538, 9.69, 21.756, 0.678)
pt3dadd(108.538, 9.58, 21.797, 0.678)
pt3dadd(108.538, 9.471, 21.838, 0.678)
pt3dadd(108.538, 9.361, 21.878, 0.678)
pt3dadd(108.538, 9.251, 21.919, 0.678)
pt3dadd(108.538, 9.142, 21.96, 0.678)
pt3dadd(108.538, 9.032, 22.001, 0.678)
pt3dadd(108.538, 8.923, 22.041, 0.678)
pt3dadd(108.538, 8.809, 22.073, 0.658)
pt3dadd(108.538, 8.694, 22.104, 0.638)
pt3dadd(108.538, 8.58, 22.135, 0.618)
pt3dadd(108.538, 8.466, 22.166, 0.598)
pt3dadd(108.538, 8.352, 22.197, 0.576)
pt3dadd(108.538, 8.238, 22.228, 0.556)
pt3dadd(108.538, 8.124, 22.259, 0.536)
pt3dadd(108.538, 8.01, 22.29, 0.516)
pt3dadd(108.538, 7.896, 22.321, 0.496)
pt3dadd(108.538, 7.782, 22.352, 0.476)
pt3dadd(108.538, 7.667, 22.381, 0.45)
pt3dadd(108.538, 7.552, 22.409, 0.426)
pt3dadd(108.538, 7.437, 22.438, 0.4)
pt3dadd(108.538, 7.322, 22.467, 0.376)
pt3dadd(108.538, 7.207, 22.496, 0.35)
pt3dadd(108.538, 7.092, 22.524, 0.326)
pt3dadd(108.538, 6.977, 22.553, 0.3)
pt3dadd(108.538, 6.862, 22.582, 0.276)
pt3dadd(108.538, 6.747, 22.611, 0.25)
pt3dadd(108.538, 6.633, 22.639, 0.226)
}
dend_0[3] {pt3dclear()
pt3dadd(127.273, 104.059, 17.955, 14.238)
pt3dadd(127.288, 104.059, 17.968, 14.21)
pt3dadd(127.373, 104.059, 18.039, 14.046)
pt3dadd(127.458, 104.059, 18.109, 13.882)
pt3dadd(127.542, 104.059, 18.18, 13.718)
pt3dadd(127.627, 104.059, 18.251, 13.554)
pt3dadd(127.712, 104.059, 18.322, 13.39)
pt3dadd(127.798, 104.059, 18.392, 13.226)
pt3dadd(127.882, 104.059, 18.463, 13.062)
pt3dadd(127.967, 104.059, 18.534, 12.898)
pt3dadd(128.052, 104.059, 18.604, 12.734)
pt3dadd(128.136, 104.059, 18.675, 12.57)
pt3dadd(128.221, 104.059, 18.746, 12.406)
pt3dadd(128.306, 104.059, 18.817, 12.244)
pt3dadd(128.39, 104.059, 18.887, 12.08)
pt3dadd(128.476, 104.059, 18.958, 11.916)
}
}
proc shape3d_150() {
dend_0[3] { pt3dadd(128.558, 104.057, 19.03, 11.754)
pt3dadd(128.641, 104.055, 19.103, 11.592)
pt3dadd(128.724, 104.053, 19.175, 11.43)
pt3dadd(128.807, 104.051, 19.247, 11.268)
pt3dadd(128.891, 104.049, 19.319, 11.106)
pt3dadd(128.974, 104.047, 19.392, 10.946)
pt3dadd(129.056, 104.045, 19.464, 10.784)
pt3dadd(129.139, 104.043, 19.536, 10.622)
pt3dadd(129.222, 104.041, 19.609, 10.46)
pt3dadd(129.305, 104.039, 19.681, 10.298)
pt3dadd(129.379, 104.029, 19.759, 10.144)
pt3dadd(129.455, 104.019, 19.837, 9.992)
pt3dadd(129.529, 104.009, 19.914, 9.838)
pt3dadd(129.604, 103.999, 19.992, 9.686)
pt3dadd(129.678, 103.99, 20.07, 9.532)
pt3dadd(129.754, 103.98, 20.148, 9.378)
pt3dadd(129.828, 103.97, 20.226, 9.226)
pt3dadd(129.902, 103.96, 20.303, 9.072)
pt3dadd(129.978, 103.95, 20.381, 8.918)
pt3dadd(130.052, 103.94, 20.459, 8.766)
pt3dadd(130.127, 103.931, 20.537, 8.612)
pt3dadd(130.202, 103.921, 20.614, 8.458)
pt3dadd(130.277, 103.911, 20.692, 8.306)
pt3dadd(130.351, 103.902, 20.77, 8.152)
pt3dadd(130.426, 103.892, 20.848, 7.998)
pt3dadd(130.501, 103.882, 20.926, 7.846)
pt3dadd(130.576, 103.872, 21.003, 7.692)
pt3dadd(130.65, 103.863, 21.081, 7.538)
pt3dadd(130.726, 103.853, 21.159, 7.386)
pt3dadd(130.8, 103.843, 21.237, 7.232)
}
dend_0[4] {pt3dclear()
pt3dadd(130.8, 103.843, 21.237, 7.232)
pt3dadd(130.86, 103.833, 21.305, 7.12)
pt3dadd(130.931, 103.822, 21.385, 6.988)
pt3dadd(131.002, 103.81, 21.465, 6.856)
pt3dadd(131.072, 103.799, 21.546, 6.722)
pt3dadd(131.143, 103.787, 21.626, 6.59)
pt3dadd(131.214, 103.775, 21.706, 6.458)
pt3dadd(131.285, 103.764, 21.786, 6.326)
pt3dadd(131.356, 103.752, 21.866, 6.194)
pt3dadd(131.426, 103.741, 21.947, 6.062)
pt3dadd(131.497, 103.729, 22.027, 5.93)
pt3dadd(131.568, 103.718, 22.107, 5.798)
pt3dadd(131.639, 103.706, 22.187, 5.666)
pt3dadd(131.71, 103.695, 22.267, 5.534)
pt3dadd(131.78, 103.683, 22.347, 5.4)
pt3dadd(131.851, 103.672, 22.428, 5.268)
pt3dadd(131.922, 103.66, 22.508, 5.136)
pt3dadd(131.971, 103.629, 22.594, 5.066)
pt3dadd(132.013, 103.591, 22.682, 5.018)
pt3dadd(132.055, 103.553, 22.77, 4.968)
pt3dadd(132.097, 103.514, 22.858, 4.92)
pt3dadd(132.139, 103.476, 22.946, 4.872)
pt3dadd(132.181, 103.438, 23.034, 4.822)
}
dend_7[17] {pt3dclear()
pt3dadd(132.181, 103.438, 23.034, 4.822)
pt3dadd(132.223, 103.4, 23.123, 4.774)
pt3dadd(132.265, 103.362, 23.211, 4.724)
pt3dadd(132.307, 103.324, 23.299, 4.676)
pt3dadd(132.349, 103.285, 23.387, 4.628)
pt3dadd(132.385, 103.247, 23.477, 4.578)
pt3dadd(132.419, 103.209, 23.567, 4.53)
pt3dadd(132.454, 103.171, 23.658, 4.482)
pt3dadd(132.487, 103.133, 23.748, 4.434)
pt3dadd(132.522, 103.095, 23.839, 4.386)
pt3dadd(132.556, 103.057, 23.929, 4.336)
pt3dadd(132.59, 103.019, 24.02, 4.288)
pt3dadd(132.624, 102.981, 24.11, 4.24)
pt3dadd(132.659, 102.943, 24.201, 4.192)
pt3dadd(132.692, 102.905, 24.291, 4.144)
pt3dadd(132.708, 102.879, 24.388, 4.06)
pt3dadd(132.721, 102.855, 24.485, 3.972)
pt3dadd(132.734, 102.831, 24.582, 3.882)
pt3dadd(132.746, 102.807, 24.68, 3.794)
pt3dadd(132.76, 102.783, 24.777, 3.704)
pt3dadd(132.773, 102.759, 24.875, 3.616)
pt3dadd(132.785, 102.735, 24.972, 3.526)
pt3dadd(132.798, 102.71, 25.069, 3.438)
pt3dadd(132.811, 102.686, 25.167, 3.348)
pt3dadd(132.823, 102.662, 25.264, 3.26)
pt3dadd(132.828, 102.652, 25.363, 3.21)
pt3dadd(132.832, 102.644, 25.463, 3.168)
pt3dadd(132.834, 102.637, 25.563, 3.128)
pt3dadd(132.838, 102.629, 25.663, 3.086)
pt3dadd(132.841, 102.621, 25.762, 3.044)
pt3dadd(132.844, 102.613, 25.862, 3.002)
pt3dadd(132.847, 102.606, 25.962, 2.96)
pt3dadd(132.851, 102.598, 26.062, 2.918)
pt3dadd(132.853, 102.59, 26.161, 2.876)
pt3dadd(132.857, 102.583, 26.261, 2.834)
pt3dadd(132.854, 102.591, 26.361, 2.788)
pt3dadd(132.852, 102.601, 26.461, 2.742)
pt3dadd(132.848, 102.611, 26.56, 2.696)
pt3dadd(132.846, 102.62, 26.66, 2.65)
pt3dadd(132.844, 102.63, 26.759, 2.604)
pt3dadd(132.84, 102.64, 26.859, 2.558)
pt3dadd(132.838, 102.65, 26.959, 2.512)
pt3dadd(132.835, 102.66, 27.058, 2.466)
pt3dadd(132.832, 102.669, 27.158, 2.42)
pt3dadd(132.829, 102.679, 27.258, 2.374)
pt3dadd(132.824, 102.713, 27.354, 2.25)
pt3dadd(132.82, 102.746, 27.449, 2.126)
pt3dadd(132.815, 102.78, 27.545, 2.002)
pt3dadd(132.81, 102.813, 27.641, 1.876)
pt3dadd(132.805, 102.847, 27.737, 1.752)
pt3dadd(132.802, 102.88, 27.833, 1.628)
pt3dadd(132.797, 102.914, 27.929, 1.504)
pt3dadd(132.792, 102.947, 28.025, 1.378)
pt3dadd(132.787, 102.981, 28.121, 1.254)
pt3dadd(132.782, 103.014, 28.217, 1.13)
}
dend_7[18] {pt3dclear()
pt3dadd(132.782, 103.014, 28.217, 1.13)
pt3dadd(132.773, 103.09, 28.259, 1.13)
pt3dadd(132.761, 103.189, 28.314, 1.13)
pt3dadd(132.749, 103.289, 28.369, 1.13)
pt3dadd(132.736, 103.388, 28.424, 1.13)
pt3dadd(132.724, 103.488, 28.479, 1.13)
pt3dadd(132.712, 103.587, 28.534, 1.13)
pt3dadd(132.698, 103.687, 28.589, 1.13)
pt3dadd(132.686, 103.786, 28.644, 1.13)
pt3dadd(132.672, 103.89, 28.691, 1.13)
pt3dadd(132.656, 104.001, 28.726, 1.13)
pt3dadd(132.64, 104.112, 28.761, 1.13)
pt3dadd(132.623, 104.223, 28.797, 1.13)
pt3dadd(132.606, 104.334, 28.832, 1.13)
pt3dadd(132.589, 104.445, 28.867, 1.13)
pt3dadd(132.572, 104.556, 28.903, 1.13)
pt3dadd(132.556, 104.667, 28.938, 1.13)
pt3dadd(132.54, 104.778, 28.973, 1.13)
pt3dadd(132.523, 104.889, 29.008, 1.13)
pt3dadd(132.499, 105.001, 29.038, 1.136)
pt3dadd(132.469, 105.114, 29.062, 1.146)
pt3dadd(132.439, 105.226, 29.086, 1.156)
pt3dadd(132.409, 105.339, 29.111, 1.166)
pt3dadd(132.379, 105.451, 29.135, 1.176)
pt3dadd(132.349, 105.564, 29.159, 1.186)
pt3dadd(132.318, 105.676, 29.183, 1.196)
pt3dadd(132.288, 105.789, 29.207, 1.206)
pt3dadd(132.258, 105.901, 29.232, 1.218)
pt3dadd(132.228, 106.014, 29.256, 1.228)
pt3dadd(132.185, 106.122, 29.278, 1.248)
pt3dadd(132.133, 106.227, 29.299, 1.278)
pt3dadd(132.083, 106.333, 29.319, 1.306)
pt3dadd(132.031, 106.438, 29.34, 1.336)
pt3dadd(131.98, 106.544, 29.361, 1.366)
pt3dadd(131.928, 106.649, 29.382, 1.394)
pt3dadd(131.876, 106.755, 29.403, 1.424)
pt3dadd(131.826, 106.86, 29.424, 1.452)
pt3dadd(131.774, 106.966, 29.444, 1.482)
pt3dadd(131.723, 107.071, 29.465, 1.51)
pt3dadd(131.675, 107.166, 29.508, 1.534)
pt3dadd(131.629, 107.254, 29.564, 1.554)
pt3dadd(131.582, 107.342, 29.621, 1.572)
pt3dadd(131.537, 107.429, 29.677, 1.592)
pt3dadd(131.491, 107.517, 29.734, 1.612)
pt3dadd(131.446, 107.604, 29.791, 1.632)
pt3dadd(131.399, 107.692, 29.847, 1.652)
pt3dadd(131.353, 107.78, 29.904, 1.67)
pt3dadd(131.308, 107.868, 29.96, 1.69)
pt3dadd(131.262, 107.955, 30.017, 1.71)
pt3dadd(131.224, 108.038, 30.082, 1.712)
pt3dadd(131.189, 108.119, 30.149, 1.71)
pt3dadd(131.154, 108.201, 30.217, 1.706)
pt3dadd(131.118, 108.282, 30.284, 1.704)
pt3dadd(131.083, 108.364, 30.351, 1.702)
pt3dadd(131.047, 108.445, 30.418, 1.7)
pt3dadd(131.012, 108.527, 30.486, 1.698)
pt3dadd(130.978, 108.608, 30.553, 1.694)
pt3dadd(130.942, 108.69, 30.62, 1.692)
pt3dadd(130.907, 108.771, 30.687, 1.69)
pt3dadd(130.88, 108.853, 30.757, 1.666)
pt3dadd(130.855, 108.935, 30.827, 1.64)
pt3dadd(130.831, 109.017, 30.898, 1.612)
pt3dadd(130.806, 109.098, 30.968, 1.584)
pt3dadd(130.781, 109.18, 31.038, 1.558)
pt3dadd(130.757, 109.262, 31.108, 1.53)
pt3dadd(130.732, 109.343, 31.179, 1.504)
pt3dadd(130.708, 109.425, 31.249, 1.476)
pt3dadd(130.682, 109.507, 31.319, 1.448)
pt3dadd(130.657, 109.588, 31.39, 1.422)
pt3dadd(130.621, 109.678, 31.448, 1.412)
pt3dadd(130.582, 109.769, 31.505, 1.406)
pt3dadd(130.542, 109.86, 31.561, 1.4)
pt3dadd(130.502, 109.951, 31.617, 1.394)
pt3dadd(130.464, 110.042, 31.674, 1.388)
pt3dadd(130.424, 110.133, 31.73, 1.382)
pt3dadd(130.385, 110.224, 31.786, 1.376)
pt3dadd(130.345, 110.315, 31.843, 1.368)
pt3dadd(130.306, 110.406, 31.899, 1.362)
pt3dadd(130.267, 110.497, 31.955, 1.356)
pt3dadd(130.226, 110.59, 32.009, 1.358)
pt3dadd(130.186, 110.683, 32.061, 1.36)
pt3dadd(130.145, 110.777, 32.114, 1.36)
pt3dadd(130.104, 110.87, 32.167, 1.362)
pt3dadd(130.063, 110.964, 32.219, 1.364)
pt3dadd(130.022, 111.057, 32.272, 1.366)
pt3dadd(129.982, 111.151, 32.325, 1.368)
pt3dadd(129.941, 111.244, 32.377, 1.37)
pt3dadd(129.9, 111.338, 32.43, 1.37)
pt3dadd(129.859, 111.431, 32.483, 1.372)
pt3dadd(129.835, 111.527, 32.54, 1.384)
pt3dadd(129.812, 111.623, 32.597, 1.398)
pt3dadd(129.79, 111.718, 32.655, 1.41)
}
}
proc shape3d_151() {
dend_7[18] { pt3dadd(129.768, 111.814, 32.712, 1.424)
pt3dadd(129.745, 111.91, 32.769, 1.436)
pt3dadd(129.722, 112.006, 32.826, 1.45)
pt3dadd(129.701, 112.101, 32.884, 1.462)
pt3dadd(129.678, 112.197, 32.941, 1.476)
pt3dadd(129.655, 112.293, 32.998, 1.488)
pt3dadd(129.634, 112.389, 33.056, 1.502)
pt3dadd(129.618, 112.479, 33.12, 1.51)
pt3dadd(129.604, 112.57, 33.184, 1.518)
pt3dadd(129.588, 112.66, 33.249, 1.526)
pt3dadd(129.574, 112.751, 33.313, 1.534)
pt3dadd(129.559, 112.841, 33.378, 1.542)
pt3dadd(129.545, 112.932, 33.442, 1.55)
pt3dadd(129.53, 113.022, 33.507, 1.558)
pt3dadd(129.515, 113.113, 33.572, 1.566)
pt3dadd(129.5, 113.203, 33.636, 1.574)
pt3dadd(129.486, 113.293, 33.701, 1.582)
pt3dadd(129.484, 113.374, 33.775, 1.582)
pt3dadd(129.481, 113.454, 33.849, 1.582)
pt3dadd(129.479, 113.535, 33.923, 1.582)
pt3dadd(129.476, 113.615, 33.997, 1.582)
pt3dadd(129.473, 113.696, 34.071, 1.582)
pt3dadd(129.47, 113.776, 34.146, 1.582)
pt3dadd(129.468, 113.857, 34.22, 1.582)
pt3dadd(129.466, 113.937, 34.294, 1.582)
pt3dadd(129.463, 114.018, 34.368, 1.582)
pt3dadd(129.461, 114.098, 34.442, 1.582)
}
dend_7[19] {pt3dclear()
pt3dadd(129.461, 114.098, 34.442, 1.582)
pt3dadd(129.474, 114.157, 34.467, 1.526)
pt3dadd(129.498, 114.261, 34.512, 1.426)
pt3dadd(129.522, 114.366, 34.557, 1.326)
pt3dadd(129.546, 114.47, 34.602, 1.224)
pt3dadd(129.57, 114.574, 34.647, 1.124)
pt3dadd(129.594, 114.679, 34.693, 1.024)
pt3dadd(129.618, 114.783, 34.738, 0.924)
pt3dadd(129.642, 114.888, 34.783, 0.824)
pt3dadd(129.666, 114.992, 34.828, 0.722)
pt3dadd(129.69, 115.096, 34.873, 0.622)
pt3dadd(129.714, 115.201, 34.918, 0.522)
pt3dadd(129.755, 115.306, 34.95, 0.48)
pt3dadd(129.804, 115.411, 34.975, 0.462)
pt3dadd(129.852, 115.516, 35.001, 0.446)
pt3dadd(129.901, 115.621, 35.027, 0.43)
pt3dadd(129.95, 115.726, 35.052, 0.414)
pt3dadd(130, 115.831, 35.078, 0.398)
pt3dadd(130.049, 115.937, 35.103, 0.382)
pt3dadd(130.097, 116.042, 35.129, 0.364)
pt3dadd(130.146, 116.147, 35.155, 0.348)
pt3dadd(130.195, 116.252, 35.18, 0.332)
pt3dadd(130.25, 116.356, 35.199, 0.344)
pt3dadd(130.308, 116.459, 35.216, 0.36)
pt3dadd(130.366, 116.563, 35.234, 0.378)
pt3dadd(130.422, 116.666, 35.251, 0.394)
pt3dadd(130.48, 116.77, 35.269, 0.412)
pt3dadd(130.536, 116.873, 35.286, 0.428)
pt3dadd(130.594, 116.977, 35.303, 0.446)
pt3dadd(130.651, 117.08, 35.321, 0.462)
pt3dadd(130.708, 117.183, 35.338, 0.48)
pt3dadd(130.765, 117.287, 35.355, 0.496)
pt3dadd(130.824, 117.39, 35.368, 0.53)
pt3dadd(130.884, 117.494, 35.379, 0.568)
pt3dadd(130.943, 117.597, 35.39, 0.606)
pt3dadd(131.003, 117.7, 35.401, 0.642)
pt3dadd(131.062, 117.804, 35.413, 0.68)
pt3dadd(131.122, 117.907, 35.424, 0.718)
pt3dadd(131.182, 118.01, 35.435, 0.754)
pt3dadd(131.24, 118.113, 35.446, 0.792)
pt3dadd(131.3, 118.217, 35.458, 0.83)
pt3dadd(131.359, 118.32, 35.469, 0.866)
pt3dadd(131.411, 118.426, 35.488, 0.894)
pt3dadd(131.461, 118.532, 35.508, 0.92)
pt3dadd(131.512, 118.639, 35.528, 0.948)
pt3dadd(131.561, 118.745, 35.548, 0.974)
pt3dadd(131.611, 118.852, 35.568, 1)
pt3dadd(131.66, 118.958, 35.589, 1.026)
pt3dadd(131.711, 119.064, 35.609, 1.052)
pt3dadd(131.761, 119.171, 35.629, 1.078)
pt3dadd(131.81, 119.277, 35.649, 1.104)
pt3dadd(131.861, 119.384, 35.669, 1.13)
pt3dadd(131.886, 119.491, 35.708, 1.13)
pt3dadd(131.912, 119.599, 35.746, 1.13)
pt3dadd(131.938, 119.707, 35.785, 1.13)
pt3dadd(131.964, 119.814, 35.823, 1.13)
pt3dadd(131.989, 119.922, 35.862, 1.13)
pt3dadd(132.016, 120.03, 35.901, 1.13)
pt3dadd(132.041, 120.137, 35.939, 1.13)
pt3dadd(132.067, 120.245, 35.978, 1.13)
pt3dadd(132.092, 120.353, 36.017, 1.13)
pt3dadd(132.119, 120.461, 36.055, 1.13)
pt3dadd(132.112, 120.572, 36.089, 1.13)
pt3dadd(132.103, 120.685, 36.124, 1.13)
pt3dadd(132.096, 120.798, 36.158, 1.13)
pt3dadd(132.088, 120.91, 36.192, 1.13)
pt3dadd(132.08, 121.022, 36.227, 1.13)
pt3dadd(132.073, 121.135, 36.261, 1.13)
pt3dadd(132.065, 121.248, 36.295, 1.13)
pt3dadd(132.058, 121.36, 36.33, 1.13)
pt3dadd(132.05, 121.472, 36.364, 1.13)
pt3dadd(132.035, 121.584, 36.397, 1.13)
pt3dadd(132.002, 121.694, 36.426, 1.13)
pt3dadd(131.97, 121.805, 36.455, 1.13)
pt3dadd(131.938, 121.914, 36.485, 1.13)
pt3dadd(131.905, 122.024, 36.514, 1.13)
pt3dadd(131.873, 122.135, 36.543, 1.13)
pt3dadd(131.842, 122.245, 36.572, 1.13)
pt3dadd(131.809, 122.354, 36.602, 1.13)
pt3dadd(131.777, 122.465, 36.631, 1.13)
pt3dadd(131.744, 122.575, 36.66, 1.13)
pt3dadd(131.713, 122.686, 36.688, 1.13)
pt3dadd(131.683, 122.8, 36.711, 1.13)
pt3dadd(131.654, 122.912, 36.733, 1.13)
pt3dadd(131.624, 123.025, 36.756, 1.13)
pt3dadd(131.596, 123.138, 36.779, 1.13)
pt3dadd(131.567, 123.251, 36.802, 1.13)
pt3dadd(131.537, 123.365, 36.825, 1.13)
pt3dadd(131.508, 123.478, 36.848, 1.13)
pt3dadd(131.478, 123.59, 36.871, 1.13)
pt3dadd(131.449, 123.703, 36.894, 1.13)
pt3dadd(131.422, 123.817, 36.917, 1.128)
pt3dadd(131.395, 123.93, 36.943, 1.118)
pt3dadd(131.37, 124.043, 36.969, 1.108)
pt3dadd(131.345, 124.157, 36.994, 1.1)
pt3dadd(131.318, 124.27, 37.02, 1.09)
pt3dadd(131.293, 124.382, 37.045, 1.082)
pt3dadd(131.268, 124.495, 37.071, 1.072)
pt3dadd(131.243, 124.609, 37.097, 1.062)
pt3dadd(131.216, 124.722, 37.122, 1.054)
pt3dadd(131.191, 124.835, 37.148, 1.044)
pt3dadd(131.17, 124.948, 37.178, 1.024)
pt3dadd(131.156, 125.058, 37.215, 0.984)
pt3dadd(131.142, 125.168, 37.253, 0.944)
pt3dadd(131.128, 125.278, 37.291, 0.904)
pt3dadd(131.114, 125.388, 37.329, 0.864)
pt3dadd(131.1, 125.498, 37.366, 0.824)
pt3dadd(131.087, 125.609, 37.404, 0.784)
pt3dadd(131.072, 125.719, 37.442, 0.744)
pt3dadd(131.058, 125.83, 37.48, 0.704)
pt3dadd(131.045, 125.94, 37.517, 0.664)
pt3dadd(131.033, 126.052, 37.553, 0.628)
pt3dadd(131.024, 126.164, 37.584, 0.602)
pt3dadd(131.016, 126.278, 37.616, 0.576)
pt3dadd(131.008, 126.392, 37.647, 0.55)
pt3dadd(130.999, 126.505, 37.679, 0.524)
pt3dadd(130.992, 126.619, 37.71, 0.498)
pt3dadd(130.984, 126.733, 37.742, 0.47)
pt3dadd(130.975, 126.846, 37.773, 0.444)
pt3dadd(130.967, 126.96, 37.805, 0.418)
pt3dadd(130.958, 127.074, 37.836, 0.392)
pt3dadd(130.952, 127.188, 37.866, 0.37)
pt3dadd(130.949, 127.303, 37.892, 0.356)
pt3dadd(130.946, 127.42, 37.917, 0.342)
pt3dadd(130.943, 127.536, 37.943, 0.328)
pt3dadd(130.939, 127.651, 37.969, 0.314)
pt3dadd(130.937, 127.768, 37.995, 0.3)
pt3dadd(130.933, 127.883, 38.021, 0.286)
pt3dadd(130.93, 127.999, 38.047, 0.27)
pt3dadd(130.926, 128.114, 38.073, 0.256)
pt3dadd(130.924, 128.231, 38.099, 0.242)
pt3dadd(130.918, 128.347, 38.121, 0.234)
pt3dadd(130.91, 128.466, 38.136, 0.232)
pt3dadd(130.902, 128.584, 38.152, 0.232)
pt3dadd(130.894, 128.702, 38.167, 0.232)
pt3dadd(130.885, 128.82, 38.183, 0.23)
pt3dadd(130.877, 128.939, 38.198, 0.23)
pt3dadd(130.868, 129.056, 38.214, 0.228)
pt3dadd(130.86, 129.175, 38.229, 0.228)
pt3dadd(130.852, 129.294, 38.245, 0.228)
pt3dadd(130.843, 129.412, 38.261, 0.226)
pt3dadd(130.835, 129.53, 38.275, 0.23)
pt3dadd(130.823, 129.648, 38.288, 0.244)
pt3dadd(130.812, 129.767, 38.3, 0.256)
pt3dadd(130.801, 129.886, 38.313, 0.268)
pt3dadd(130.79, 130.004, 38.325, 0.28)
pt3dadd(130.78, 130.123, 38.338, 0.294)
pt3dadd(130.768, 130.241, 38.351, 0.306)
pt3dadd(130.757, 130.36, 38.363, 0.318)
pt3dadd(130.746, 130.478, 38.376, 0.33)
pt3dadd(130.735, 130.597, 38.388, 0.344)
pt3dadd(130.722, 130.715, 38.4, 0.362)
pt3dadd(130.708, 130.834, 38.409, 0.394)
pt3dadd(130.693, 130.952, 38.418, 0.424)
pt3dadd(130.678, 131.071, 38.427, 0.456)
pt3dadd(130.663, 131.19, 38.436, 0.486)
pt3dadd(130.649, 131.309, 38.445, 0.516)
pt3dadd(130.634, 131.426, 38.455, 0.548)
pt3dadd(130.619, 131.545, 38.464, 0.578)
pt3dadd(130.604, 131.664, 38.473, 0.61)
pt3dadd(130.59, 131.783, 38.482, 0.64)
pt3dadd(130.562, 131.898, 38.494, 0.67)
pt3dadd(130.516, 132.006, 38.508, 0.7)
pt3dadd(130.469, 132.115, 38.523, 0.73)
pt3dadd(130.422, 132.224, 38.538, 0.76)
pt3dadd(130.375, 132.334, 38.553, 0.788)
pt3dadd(130.328, 132.443, 38.568, 0.818)
pt3dadd(130.282, 132.552, 38.583, 0.848)
pt3dadd(130.234, 132.66, 38.597, 0.878)
pt3dadd(130.187, 132.769, 38.612, 0.908)
pt3dadd(130.14, 132.878, 38.627, 0.938)
pt3dadd(130.094, 132.985, 38.65, 0.956)
pt3dadd(130.049, 133.088, 38.684, 0.96)
}
}
proc shape3d_152() {
dend_7[19] { pt3dadd(130.004, 133.192, 38.718, 0.962)
pt3dadd(129.959, 133.295, 38.752, 0.966)
pt3dadd(129.913, 133.399, 38.787, 0.968)
pt3dadd(129.869, 133.502, 38.821, 0.97)
pt3dadd(129.823, 133.606, 38.855, 0.974)
pt3dadd(129.779, 133.709, 38.889, 0.976)
pt3dadd(129.733, 133.812, 38.923, 0.98)
pt3dadd(129.689, 133.915, 38.958, 0.982)
pt3dadd(129.652, 134.011, 39.008, 0.962)
pt3dadd(129.618, 134.104, 39.065, 0.932)
pt3dadd(129.586, 134.196, 39.123, 0.902)
pt3dadd(129.552, 134.288, 39.181, 0.87)
pt3dadd(129.518, 134.381, 39.238, 0.84)
pt3dadd(129.486, 134.473, 39.296, 0.81)
pt3dadd(129.452, 134.566, 39.354, 0.778)
pt3dadd(129.42, 134.658, 39.411, 0.748)
pt3dadd(129.386, 134.75, 39.469, 0.716)
pt3dadd(129.353, 134.842, 39.526, 0.686)
pt3dadd(129.334, 134.945, 39.575, 0.678)
pt3dadd(129.319, 135.05, 39.619, 0.678)
pt3dadd(129.304, 135.157, 39.664, 0.678)
pt3dadd(129.289, 135.263, 39.709, 0.678)
pt3dadd(129.274, 135.37, 39.754, 0.678)
pt3dadd(129.259, 135.475, 39.799, 0.678)
pt3dadd(129.245, 135.582, 39.844, 0.678)
pt3dadd(129.229, 135.688, 39.889, 0.678)
pt3dadd(129.215, 135.794, 39.934, 0.678)
pt3dadd(129.199, 135.9, 39.979, 0.678)
pt3dadd(129.194, 136.004, 40.028, 0.662)
pt3dadd(129.193, 136.108, 40.08, 0.638)
pt3dadd(129.192, 136.21, 40.131, 0.616)
pt3dadd(129.191, 136.313, 40.182, 0.594)
pt3dadd(129.19, 136.416, 40.234, 0.57)
pt3dadd(129.188, 136.519, 40.285, 0.548)
pt3dadd(129.187, 136.622, 40.336, 0.524)
pt3dadd(129.186, 136.726, 40.388, 0.502)
pt3dadd(129.185, 136.828, 40.439, 0.478)
pt3dadd(129.184, 136.931, 40.49, 0.456)
pt3dadd(129.185, 137.035, 40.54, 0.438)
pt3dadd(129.187, 137.14, 40.589, 0.42)
pt3dadd(129.188, 137.244, 40.638, 0.402)
pt3dadd(129.191, 137.35, 40.687, 0.386)
pt3dadd(129.193, 137.454, 40.735, 0.368)
pt3dadd(129.194, 137.558, 40.784, 0.35)
pt3dadd(129.197, 137.663, 40.833, 0.334)
pt3dadd(129.198, 137.768, 40.882, 0.316)
pt3dadd(129.2, 137.873, 40.931, 0.298)
pt3dadd(129.203, 137.977, 40.98, 0.282)
pt3dadd(129.205, 138.089, 41.015, 0.3)
pt3dadd(129.209, 138.203, 41.047, 0.328)
pt3dadd(129.212, 138.317, 41.079, 0.354)
pt3dadd(129.215, 138.43, 41.111, 0.382)
pt3dadd(129.218, 138.544, 41.144, 0.41)
pt3dadd(129.222, 138.658, 41.176, 0.436)
pt3dadd(129.224, 138.77, 41.208, 0.464)
pt3dadd(129.228, 138.884, 41.24, 0.492)
pt3dadd(129.232, 138.998, 41.272, 0.518)
pt3dadd(129.234, 139.111, 41.304, 0.546)
pt3dadd(129.24, 139.226, 41.333, 0.55)
pt3dadd(129.246, 139.34, 41.362, 0.548)
pt3dadd(129.252, 139.456, 41.391, 0.546)
pt3dadd(129.258, 139.571, 41.42, 0.542)
pt3dadd(129.264, 139.685, 41.449, 0.54)
pt3dadd(129.27, 139.8, 41.478, 0.538)
pt3dadd(129.276, 139.914, 41.507, 0.536)
pt3dadd(129.282, 140.029, 41.535, 0.532)
pt3dadd(129.288, 140.144, 41.564, 0.53)
pt3dadd(129.294, 140.258, 41.593, 0.528)
pt3dadd(129.301, 140.374, 41.62, 0.506)
pt3dadd(129.31, 140.49, 41.646, 0.478)
pt3dadd(129.318, 140.605, 41.672, 0.45)
pt3dadd(129.326, 140.72, 41.698, 0.422)
pt3dadd(129.335, 140.836, 41.725, 0.394)
pt3dadd(129.342, 140.952, 41.751, 0.366)
pt3dadd(129.35, 141.067, 41.777, 0.338)
pt3dadd(129.359, 141.182, 41.803, 0.31)
pt3dadd(129.367, 141.299, 41.829, 0.282)
pt3dadd(129.376, 141.414, 41.855, 0.254)
pt3dadd(129.386, 141.523, 41.895, 0.266)
pt3dadd(129.398, 141.63, 41.938, 0.288)
pt3dadd(129.412, 141.738, 41.981, 0.308)
pt3dadd(129.424, 141.846, 42.025, 0.33)
pt3dadd(129.436, 141.953, 42.068, 0.352)
pt3dadd(129.448, 142.061, 42.111, 0.372)
pt3dadd(129.46, 142.168, 42.154, 0.394)
pt3dadd(129.473, 142.276, 42.198, 0.416)
pt3dadd(129.485, 142.384, 42.241, 0.436)
pt3dadd(129.497, 142.49, 42.284, 0.458)
pt3dadd(129.514, 142.597, 42.327, 0.476)
pt3dadd(129.53, 142.704, 42.371, 0.494)
pt3dadd(129.548, 142.811, 42.415, 0.512)
pt3dadd(129.565, 142.916, 42.459, 0.53)
pt3dadd(129.583, 143.023, 42.503, 0.548)
pt3dadd(129.6, 143.13, 42.546, 0.564)
pt3dadd(129.618, 143.237, 42.59, 0.582)
pt3dadd(129.635, 143.342, 42.634, 0.6)
pt3dadd(129.653, 143.449, 42.678, 0.618)
pt3dadd(129.67, 143.556, 42.722, 0.636)
pt3dadd(129.708, 143.659, 42.76, 0.616)
pt3dadd(129.75, 143.762, 42.798, 0.592)
pt3dadd(129.791, 143.866, 42.836, 0.566)
pt3dadd(129.833, 143.969, 42.873, 0.542)
pt3dadd(129.875, 144.071, 42.911, 0.518)
pt3dadd(129.916, 144.174, 42.949, 0.492)
pt3dadd(129.958, 144.277, 42.987, 0.468)
pt3dadd(130, 144.38, 43.024, 0.442)
pt3dadd(130.04, 144.484, 43.062, 0.418)
pt3dadd(130.082, 144.587, 43.1, 0.394)
pt3dadd(130.12, 144.689, 43.142, 0.39)
pt3dadd(130.156, 144.791, 43.186, 0.39)
pt3dadd(130.192, 144.893, 43.229, 0.39)
pt3dadd(130.228, 144.995, 43.272, 0.39)
pt3dadd(130.264, 145.097, 43.315, 0.39)
pt3dadd(130.301, 145.199, 43.358, 0.39)
pt3dadd(130.337, 145.301, 43.401, 0.39)
pt3dadd(130.373, 145.403, 43.444, 0.39)
pt3dadd(130.409, 145.505, 43.487, 0.39)
pt3dadd(130.445, 145.607, 43.531, 0.39)
pt3dadd(130.471, 145.706, 43.583, 0.432)
pt3dadd(130.496, 145.805, 43.636, 0.48)
pt3dadd(130.522, 145.903, 43.688, 0.528)
pt3dadd(130.547, 146.003, 43.741, 0.576)
pt3dadd(130.572, 146.101, 43.794, 0.622)
pt3dadd(130.596, 146.2, 43.847, 0.67)
pt3dadd(130.621, 146.298, 43.9, 0.718)
pt3dadd(130.646, 146.398, 43.952, 0.766)
pt3dadd(130.672, 146.496, 44.005, 0.814)
pt3dadd(130.697, 146.594, 44.058, 0.86)
pt3dadd(130.717, 146.694, 44.112, 0.884)
pt3dadd(130.736, 146.792, 44.166, 0.906)
pt3dadd(130.757, 146.892, 44.22, 0.928)
pt3dadd(130.776, 146.99, 44.275, 0.948)
pt3dadd(130.796, 147.089, 44.329, 0.97)
pt3dadd(130.816, 147.188, 44.383, 0.99)
pt3dadd(130.835, 147.287, 44.437, 1.012)
pt3dadd(130.855, 147.386, 44.492, 1.034)
pt3dadd(130.874, 147.485, 44.546, 1.054)
pt3dadd(130.895, 147.584, 44.6, 1.076)
pt3dadd(130.908, 147.683, 44.655, 1.066)
pt3dadd(130.92, 147.781, 44.711, 1.054)
pt3dadd(130.933, 147.881, 44.767, 1.042)
pt3dadd(130.945, 147.979, 44.823, 1.03)
pt3dadd(130.958, 148.078, 44.878, 1.018)
pt3dadd(130.97, 148.177, 44.934, 1.006)
pt3dadd(130.984, 148.276, 44.99, 0.994)
pt3dadd(130.996, 148.375, 45.045, 0.982)
pt3dadd(131.009, 148.474, 45.101, 0.97)
pt3dadd(131.021, 148.572, 45.157, 0.958)
pt3dadd(131.029, 148.678, 45.204, 0.952)
pt3dadd(131.038, 148.783, 45.252, 0.948)
pt3dadd(131.045, 148.889, 45.299, 0.942)
pt3dadd(131.053, 148.994, 45.345, 0.936)
pt3dadd(131.062, 149.1, 45.392, 0.932)
pt3dadd(131.069, 149.206, 45.44, 0.926)
pt3dadd(131.077, 149.311, 45.487, 0.92)
pt3dadd(131.086, 149.417, 45.534, 0.914)
pt3dadd(131.093, 149.522, 45.581, 0.91)
pt3dadd(131.101, 149.628, 45.628, 0.904)
pt3dadd(131.105, 149.738, 45.667, 0.904)
pt3dadd(131.108, 149.849, 45.707, 0.904)
pt3dadd(131.113, 149.959, 45.746, 0.904)
pt3dadd(131.117, 150.068, 45.785, 0.904)
pt3dadd(131.12, 150.179, 45.825, 0.904)
pt3dadd(131.124, 150.289, 45.864, 0.904)
pt3dadd(131.128, 150.4, 45.903, 0.904)
pt3dadd(131.132, 150.51, 45.943, 0.904)
pt3dadd(131.136, 150.62, 45.982, 0.904)
pt3dadd(131.14, 150.731, 46.022, 0.904)
pt3dadd(131.148, 150.846, 46.047, 0.892)
pt3dadd(131.158, 150.962, 46.072, 0.88)
pt3dadd(131.166, 151.078, 46.097, 0.868)
pt3dadd(131.176, 151.194, 46.121, 0.856)
pt3dadd(131.184, 151.309, 46.146, 0.844)
pt3dadd(131.194, 151.426, 46.171, 0.832)
pt3dadd(131.202, 151.541, 46.196, 0.82)
pt3dadd(131.212, 151.657, 46.221, 0.808)
pt3dadd(131.22, 151.774, 46.245, 0.796)
pt3dadd(131.23, 151.889, 46.27, 0.784)
pt3dadd(131.24, 152.004, 46.296, 0.774)
pt3dadd(131.252, 152.119, 46.322, 0.764)
pt3dadd(131.263, 152.236, 46.348, 0.752)
pt3dadd(131.275, 152.351, 46.374, 0.742)
pt3dadd(131.286, 152.466, 46.399, 0.732)
pt3dadd(131.298, 152.581, 46.425, 0.72)
pt3dadd(131.309, 152.696, 46.451, 0.71)
pt3dadd(131.32, 152.812, 46.477, 0.7)
pt3dadd(131.332, 152.927, 46.503, 0.688)
pt3dadd(131.342, 153.042, 46.529, 0.678)
pt3dadd(131.359, 153.152, 46.566, 0.678)
pt3dadd(131.375, 153.263, 46.603, 0.678)
pt3dadd(131.392, 153.373, 46.64, 0.678)
pt3dadd(131.407, 153.484, 46.677, 0.678)
pt3dadd(131.424, 153.594, 46.714, 0.678)
pt3dadd(131.44, 153.704, 46.751, 0.678)
pt3dadd(131.456, 153.815, 46.788, 0.678)
pt3dadd(131.472, 153.925, 46.825, 0.678)
pt3dadd(131.489, 154.036, 46.862, 0.678)
pt3dadd(131.506, 154.146, 46.898, 0.678)
pt3dadd(131.54, 154.255, 46.928, 0.686)
pt3dadd(131.575, 154.364, 46.957, 0.692)
}
}
proc shape3d_153() {
dend_7[19] { pt3dadd(131.61, 154.474, 46.986, 0.7)
pt3dadd(131.645, 154.583, 47.015, 0.706)
pt3dadd(131.68, 154.692, 47.045, 0.714)
pt3dadd(131.716, 154.801, 47.074, 0.72)
pt3dadd(131.75, 154.91, 47.103, 0.728)
pt3dadd(131.785, 155.02, 47.133, 0.734)
pt3dadd(131.82, 155.129, 47.162, 0.742)
pt3dadd(131.857, 155.238, 47.19, 0.75)
pt3dadd(131.908, 155.344, 47.212, 0.762)
pt3dadd(131.958, 155.449, 47.234, 0.774)
pt3dadd(132.007, 155.555, 47.256, 0.788)
pt3dadd(132.058, 155.662, 47.278, 0.8)
pt3dadd(132.108, 155.767, 47.301, 0.814)
pt3dadd(132.158, 155.873, 47.323, 0.826)
pt3dadd(132.208, 155.978, 47.345, 0.838)
pt3dadd(132.258, 156.084, 47.367, 0.852)
pt3dadd(132.308, 156.19, 47.389, 0.864)
pt3dadd(132.356, 156.296, 47.41, 0.874)
pt3dadd(132.4, 156.408, 47.424, 0.866)
pt3dadd(132.443, 156.518, 47.437, 0.858)
pt3dadd(132.486, 156.629, 47.451, 0.852)
pt3dadd(132.529, 156.74, 47.464, 0.844)
pt3dadd(132.572, 156.851, 47.478, 0.836)
pt3dadd(132.616, 156.961, 47.492, 0.828)
pt3dadd(132.658, 157.073, 47.505, 0.822)
pt3dadd(132.701, 157.183, 47.519, 0.814)
pt3dadd(132.744, 157.294, 47.533, 0.806)
pt3dadd(132.787, 157.405, 47.546, 0.798)
pt3dadd(132.829, 157.517, 47.556, 0.788)
pt3dadd(132.872, 157.628, 47.566, 0.778)
pt3dadd(132.914, 157.74, 47.576, 0.77)
pt3dadd(132.958, 157.852, 47.586, 0.76)
pt3dadd(133, 157.963, 47.597, 0.75)
pt3dadd(133.043, 158.075, 47.607, 0.74)
pt3dadd(133.085, 158.185, 47.617, 0.73)
pt3dadd(133.127, 158.297, 47.627, 0.722)
pt3dadd(133.17, 158.408, 47.637, 0.712)
pt3dadd(133.214, 158.52, 47.646, 0.708)
pt3dadd(133.27, 158.626, 47.647, 0.734)
pt3dadd(133.325, 158.732, 47.649, 0.76)
pt3dadd(133.38, 158.839, 47.651, 0.786)
pt3dadd(133.435, 158.946, 47.652, 0.812)
pt3dadd(133.49, 159.052, 47.654, 0.836)
pt3dadd(133.546, 159.158, 47.655, 0.862)
pt3dadd(133.601, 159.265, 47.657, 0.888)
pt3dadd(133.656, 159.372, 47.659, 0.914)
pt3dadd(133.711, 159.478, 47.66, 0.94)
pt3dadd(133.765, 159.586, 47.662, 0.962)
pt3dadd(133.812, 159.696, 47.664, 0.97)
pt3dadd(133.859, 159.806, 47.666, 0.976)
pt3dadd(133.907, 159.917, 47.669, 0.984)
pt3dadd(133.954, 160.027, 47.671, 0.992)
pt3dadd(134, 160.138, 47.673, 1)
pt3dadd(134.047, 160.248, 47.675, 1.006)
pt3dadd(134.094, 160.358, 47.678, 1.014)
pt3dadd(134.141, 160.469, 47.68, 1.022)
pt3dadd(134.188, 160.579, 47.682, 1.028)
pt3dadd(134.231, 160.691, 47.685, 1.028)
pt3dadd(134.261, 160.807, 47.688, 1)
pt3dadd(134.292, 160.922, 47.692, 0.972)
pt3dadd(134.322, 161.039, 47.695, 0.944)
pt3dadd(134.353, 161.155, 47.699, 0.916)
pt3dadd(134.383, 161.27, 47.702, 0.888)
pt3dadd(134.413, 161.387, 47.706, 0.86)
pt3dadd(134.444, 161.503, 47.709, 0.832)
pt3dadd(134.474, 161.618, 47.713, 0.804)
pt3dadd(134.506, 161.735, 47.716, 0.776)
pt3dadd(134.533, 161.851, 47.721, 0.752)
pt3dadd(134.554, 161.969, 47.728, 0.746)
pt3dadd(134.574, 162.086, 47.736, 0.738)
pt3dadd(134.594, 162.205, 47.743, 0.73)
pt3dadd(134.616, 162.323, 47.75, 0.722)
pt3dadd(134.636, 162.44, 47.757, 0.714)
pt3dadd(134.657, 162.558, 47.765, 0.706)
pt3dadd(134.677, 162.677, 47.772, 0.7)
pt3dadd(134.698, 162.794, 47.779, 0.692)
pt3dadd(134.718, 162.912, 47.786, 0.684)
pt3dadd(134.737, 163.031, 47.794, 0.68)
pt3dadd(134.753, 163.148, 47.804, 0.684)
pt3dadd(134.768, 163.267, 47.813, 0.688)
pt3dadd(134.785, 163.386, 47.823, 0.692)
pt3dadd(134.801, 163.504, 47.833, 0.696)
pt3dadd(134.816, 163.622, 47.842, 0.7)
pt3dadd(134.832, 163.741, 47.852, 0.704)
pt3dadd(134.848, 163.859, 47.861, 0.708)
pt3dadd(134.863, 163.978, 47.871, 0.712)
pt3dadd(134.879, 164.096, 47.881, 0.716)
pt3dadd(134.893, 164.214, 47.892, 0.726)
pt3dadd(134.902, 164.333, 47.907, 0.756)
pt3dadd(134.91, 164.45, 47.922, 0.784)
pt3dadd(134.92, 164.569, 47.937, 0.812)
pt3dadd(134.928, 164.688, 47.952, 0.84)
pt3dadd(134.936, 164.806, 47.967, 0.87)
pt3dadd(134.946, 164.924, 47.982, 0.898)
pt3dadd(134.954, 165.042, 47.997, 0.926)
pt3dadd(134.963, 165.161, 48.012, 0.956)
pt3dadd(134.972, 165.28, 48.027, 0.984)
pt3dadd(134.981, 165.396, 48.046, 1.004)
pt3dadd(134.993, 165.51, 48.078, 1.002)
pt3dadd(135.005, 165.623, 48.109, 1)
pt3dadd(135.017, 165.736, 48.141, 0.998)
pt3dadd(135.028, 165.85, 48.172, 0.996)
pt3dadd(135.04, 165.962, 48.204, 0.994)
pt3dadd(135.052, 166.076, 48.235, 0.992)
pt3dadd(135.062, 166.189, 48.267, 0.99)
pt3dadd(135.074, 166.302, 48.298, 0.988)
pt3dadd(135.086, 166.416, 48.33, 0.986)
pt3dadd(135.098, 166.526, 48.366, 0.974)
pt3dadd(135.113, 166.634, 48.409, 0.948)
pt3dadd(135.126, 166.741, 48.453, 0.922)
pt3dadd(135.139, 166.848, 48.496, 0.896)
pt3dadd(135.152, 166.956, 48.54, 0.87)
pt3dadd(135.167, 167.063, 48.584, 0.846)
pt3dadd(135.18, 167.17, 48.627, 0.82)
pt3dadd(135.193, 167.276, 48.671, 0.794)
pt3dadd(135.208, 167.384, 48.714, 0.768)
pt3dadd(135.221, 167.491, 48.758, 0.742)
pt3dadd(135.244, 167.598, 48.799, 0.724)
pt3dadd(135.282, 167.702, 48.835, 0.718)
pt3dadd(135.32, 167.807, 48.871, 0.714)
pt3dadd(135.359, 167.912, 48.908, 0.708)
pt3dadd(135.398, 168.017, 48.944, 0.704)
pt3dadd(135.437, 168.122, 48.98, 0.7)
pt3dadd(135.475, 168.227, 49.017, 0.694)
pt3dadd(135.514, 168.332, 49.053, 0.69)
pt3dadd(135.552, 168.437, 49.089, 0.686)
pt3dadd(135.59, 168.542, 49.125, 0.68)
pt3dadd(135.631, 168.647, 49.161, 0.678)
pt3dadd(135.676, 168.75, 49.196, 0.678)
pt3dadd(135.719, 168.854, 49.23, 0.676)
pt3dadd(135.762, 168.958, 49.265, 0.676)
pt3dadd(135.806, 169.061, 49.3, 0.676)
pt3dadd(135.85, 169.165, 49.335, 0.676)
pt3dadd(135.893, 169.268, 49.37, 0.674)
pt3dadd(135.937, 169.373, 49.404, 0.674)
pt3dadd(135.98, 169.476, 49.439, 0.674)
pt3dadd(136.024, 169.58, 49.474, 0.674)
pt3dadd(136.062, 169.682, 49.515, 0.662)
pt3dadd(136.091, 169.782, 49.565, 0.638)
pt3dadd(136.121, 169.882, 49.615, 0.614)
pt3dadd(136.15, 169.981, 49.664, 0.59)
pt3dadd(136.18, 170.082, 49.714, 0.564)
pt3dadd(136.208, 170.182, 49.764, 0.54)
pt3dadd(136.238, 170.281, 49.814, 0.516)
pt3dadd(136.267, 170.381, 49.863, 0.492)
pt3dadd(136.297, 170.48, 49.913, 0.468)
pt3dadd(136.326, 170.581, 49.963, 0.442)
pt3dadd(136.355, 170.681, 50.012, 0.426)
pt3dadd(136.384, 170.783, 50.059, 0.416)
pt3dadd(136.412, 170.885, 50.107, 0.408)
pt3dadd(136.44, 170.987, 50.154, 0.398)
pt3dadd(136.469, 171.088, 50.202, 0.388)
pt3dadd(136.498, 171.19, 50.249, 0.38)
pt3dadd(136.526, 171.292, 50.297, 0.37)
pt3dadd(136.554, 171.394, 50.344, 0.362)
pt3dadd(136.583, 171.494, 50.392, 0.352)
pt3dadd(136.612, 171.596, 50.439, 0.344)
pt3dadd(136.638, 171.702, 50.482, 0.368)
pt3dadd(136.662, 171.811, 50.517, 0.436)
pt3dadd(136.685, 171.92, 50.553, 0.504)
pt3dadd(136.709, 172.03, 50.589, 0.572)
pt3dadd(136.733, 172.139, 50.625, 0.638)
pt3dadd(136.757, 172.249, 50.661, 0.706)
pt3dadd(136.781, 172.358, 50.697, 0.774)
pt3dadd(136.804, 172.468, 50.733, 0.842)
pt3dadd(136.828, 172.577, 50.769, 0.91)
pt3dadd(136.852, 172.687, 50.805, 0.976)
pt3dadd(136.874, 172.795, 50.844, 1.022)
pt3dadd(136.897, 172.901, 50.887, 1.036)
pt3dadd(136.919, 173.006, 50.929, 1.05)
pt3dadd(136.942, 173.113, 50.972, 1.066)
pt3dadd(136.963, 173.219, 51.015, 1.08)
pt3dadd(136.986, 173.326, 51.058, 1.096)
pt3dadd(137.008, 173.431, 51.101, 1.11)
pt3dadd(137.029, 173.538, 51.143, 1.126)
pt3dadd(137.052, 173.644, 51.186, 1.14)
pt3dadd(137.074, 173.75, 51.229, 1.156)
pt3dadd(137.095, 173.855, 51.275, 1.144)
pt3dadd(137.116, 173.957, 51.325, 1.106)
pt3dadd(137.136, 174.059, 51.374, 1.066)
pt3dadd(137.156, 174.161, 51.424, 1.028)
pt3dadd(137.178, 174.263, 51.473, 0.988)
pt3dadd(137.198, 174.365, 51.523, 0.95)
pt3dadd(137.219, 174.468, 51.572, 0.91)
pt3dadd(137.239, 174.57, 51.622, 0.872)
pt3dadd(137.26, 174.672, 51.672, 0.832)
pt3dadd(137.28, 174.774, 51.721, 0.794)
pt3dadd(137.315, 174.875, 51.765, 0.768)
pt3dadd(137.364, 174.974, 51.802, 0.758)
pt3dadd(137.413, 175.075, 51.839, 0.748)
pt3dadd(137.464, 175.175, 51.876, 0.74)
pt3dadd(137.513, 175.274, 51.913, 0.73)
pt3dadd(137.562, 175.374, 51.95, 0.72)
pt3dadd(137.612, 175.474, 51.987, 0.71)
pt3dadd(137.662, 175.573, 52.024, 0.702)
pt3dadd(137.711, 175.674, 52.061, 0.692)
pt3dadd(137.761, 175.774, 52.098, 0.682)
pt3dadd(137.816, 175.872, 52.132, 0.678)
pt3dadd(137.875, 175.969, 52.164, 0.676)
pt3dadd(137.934, 176.066, 52.197, 0.676)
}
}
proc shape3d_154() {
dend_7[19] { pt3dadd(137.993, 176.164, 52.229, 0.676)
pt3dadd(138.053, 176.26, 52.261, 0.674)
pt3dadd(138.112, 176.357, 52.293, 0.674)
pt3dadd(138.17, 176.454, 52.325, 0.674)
pt3dadd(138.229, 176.551, 52.357, 0.672)
pt3dadd(138.288, 176.648, 52.389, 0.672)
pt3dadd(138.348, 176.746, 52.421, 0.67)
pt3dadd(138.416, 176.838, 52.449, 0.662)
pt3dadd(138.492, 176.926, 52.473, 0.648)
pt3dadd(138.568, 177.014, 52.498, 0.634)
pt3dadd(138.643, 177.102, 52.523, 0.62)
pt3dadd(138.719, 177.191, 52.548, 0.606)
pt3dadd(138.794, 177.28, 52.573, 0.592)
pt3dadd(138.87, 177.367, 52.598, 0.578)
pt3dadd(138.946, 177.456, 52.623, 0.564)
pt3dadd(139.02, 177.545, 52.648, 0.55)
pt3dadd(139.096, 177.632, 52.673, 0.536)
pt3dadd(139.169, 177.715, 52.712, 0.534)
pt3dadd(139.24, 177.793, 52.759, 0.54)
pt3dadd(139.31, 177.872, 52.806, 0.546)
pt3dadd(139.381, 177.95, 52.854, 0.552)
pt3dadd(139.452, 178.028, 52.901, 0.558)
pt3dadd(139.523, 178.108, 52.948, 0.564)
pt3dadd(139.594, 178.186, 52.996, 0.57)
pt3dadd(139.664, 178.264, 53.043, 0.576)
pt3dadd(139.735, 178.343, 53.091, 0.582)
pt3dadd(139.806, 178.421, 53.138, 0.588)
pt3dadd(139.865, 178.48, 53.211, 0.62)
pt3dadd(139.922, 178.537, 53.284, 0.652)
pt3dadd(139.981, 178.596, 53.356, 0.682)
pt3dadd(140.039, 178.654, 53.429, 0.714)
pt3dadd(140.098, 178.712, 53.502, 0.746)
pt3dadd(140.155, 178.77, 53.575, 0.778)
pt3dadd(140.214, 178.829, 53.647, 0.81)
pt3dadd(140.272, 178.886, 53.72, 0.84)
pt3dadd(140.33, 178.944, 53.793, 0.872)
pt3dadd(140.388, 179.003, 53.866, 0.904)
}
dend_7[20] {pt3dclear()
pt3dadd(129.461, 114.098, 34.442, 1.582)
pt3dadd(129.384, 114.141, 34.466, 1.574)
pt3dadd(129.284, 114.195, 34.498, 1.564)
pt3dadd(129.185, 114.25, 34.529, 1.554)
pt3dadd(129.084, 114.305, 34.56, 1.544)
pt3dadd(128.984, 114.36, 34.592, 1.532)
pt3dadd(128.885, 114.415, 34.623, 1.522)
pt3dadd(128.785, 114.47, 34.654, 1.512)
pt3dadd(128.686, 114.524, 34.686, 1.502)
pt3dadd(128.585, 114.579, 34.717, 1.492)
pt3dadd(128.485, 114.634, 34.749, 1.482)
pt3dadd(128.386, 114.689, 34.78, 1.472)
pt3dadd(128.286, 114.744, 34.811, 1.46)
pt3dadd(128.185, 114.799, 34.843, 1.45)
pt3dadd(128.086, 114.854, 34.874, 1.44)
pt3dadd(127.986, 114.908, 34.906, 1.43)
pt3dadd(127.886, 114.963, 34.937, 1.42)
pt3dadd(127.788, 115.012, 34.978, 1.398)
pt3dadd(127.692, 115.057, 35.023, 1.372)
pt3dadd(127.595, 115.103, 35.069, 1.348)
pt3dadd(127.498, 115.148, 35.114, 1.322)
pt3dadd(127.402, 115.193, 35.16, 1.296)
pt3dadd(127.304, 115.239, 35.205, 1.27)
pt3dadd(127.208, 115.284, 35.251, 1.244)
pt3dadd(127.111, 115.329, 35.296, 1.218)
pt3dadd(127.014, 115.375, 35.342, 1.192)
pt3dadd(126.918, 115.42, 35.387, 1.168)
pt3dadd(126.828, 115.453, 35.448, 1.124)
pt3dadd(126.74, 115.483, 35.51, 1.078)
pt3dadd(126.652, 115.513, 35.573, 1.032)
pt3dadd(126.564, 115.543, 35.636, 0.986)
pt3dadd(126.475, 115.574, 35.699, 0.94)
pt3dadd(126.388, 115.604, 35.762, 0.894)
pt3dadd(126.299, 115.634, 35.825, 0.848)
pt3dadd(126.211, 115.664, 35.888, 0.802)
pt3dadd(126.122, 115.695, 35.951, 0.756)
pt3dadd(126.035, 115.725, 36.014, 0.71)
pt3dadd(125.945, 115.768, 36.069, 0.712)
pt3dadd(125.855, 115.814, 36.124, 0.722)
pt3dadd(125.765, 115.86, 36.178, 0.732)
pt3dadd(125.675, 115.906, 36.232, 0.742)
pt3dadd(125.585, 115.952, 36.286, 0.752)
pt3dadd(125.495, 115.997, 36.34, 0.76)
pt3dadd(125.405, 116.043, 36.394, 0.77)
pt3dadd(125.316, 116.089, 36.448, 0.78)
pt3dadd(125.226, 116.135, 36.503, 0.79)
pt3dadd(125.136, 116.181, 36.557, 0.8)
pt3dadd(125.047, 116.244, 36.598, 0.878)
pt3dadd(124.958, 116.307, 36.64, 0.954)
pt3dadd(124.87, 116.371, 36.682, 1.032)
pt3dadd(124.781, 116.434, 36.723, 1.108)
pt3dadd(124.692, 116.497, 36.765, 1.186)
pt3dadd(124.603, 116.561, 36.807, 1.262)
pt3dadd(124.514, 116.624, 36.849, 1.34)
pt3dadd(124.426, 116.687, 36.89, 1.416)
pt3dadd(124.337, 116.751, 36.932, 1.494)
pt3dadd(124.248, 116.814, 36.974, 1.57)
pt3dadd(124.182, 116.872, 37.042, 1.554)
pt3dadd(124.116, 116.931, 37.109, 1.54)
pt3dadd(124.049, 116.989, 37.177, 1.524)
pt3dadd(123.983, 117.047, 37.245, 1.508)
pt3dadd(123.917, 117.105, 37.313, 1.492)
pt3dadd(123.851, 117.164, 37.381, 1.478)
pt3dadd(123.785, 117.222, 37.448, 1.462)
pt3dadd(123.718, 117.28, 37.516, 1.446)
pt3dadd(123.652, 117.339, 37.584, 1.43)
pt3dadd(123.586, 117.397, 37.652, 1.416)
pt3dadd(123.53, 117.481, 37.706, 1.41)
pt3dadd(123.474, 117.565, 37.761, 1.404)
pt3dadd(123.419, 117.649, 37.815, 1.396)
pt3dadd(123.362, 117.732, 37.87, 1.392)
pt3dadd(123.307, 117.816, 37.924, 1.384)
pt3dadd(123.252, 117.9, 37.979, 1.378)
pt3dadd(123.196, 117.984, 38.033, 1.372)
pt3dadd(123.14, 118.067, 38.088, 1.366)
pt3dadd(123.084, 118.151, 38.142, 1.36)
pt3dadd(123.028, 118.235, 38.196, 1.358)
pt3dadd(122.966, 118.318, 38.247, 1.364)
pt3dadd(122.905, 118.401, 38.298, 1.37)
pt3dadd(122.845, 118.485, 38.349, 1.378)
pt3dadd(122.784, 118.568, 38.4, 1.384)
pt3dadd(122.723, 118.651, 38.451, 1.39)
pt3dadd(122.662, 118.735, 38.502, 1.398)
pt3dadd(122.602, 118.818, 38.553, 1.404)
pt3dadd(122.54, 118.901, 38.604, 1.41)
pt3dadd(122.479, 118.985, 38.655, 1.418)
pt3dadd(122.413, 119.061, 38.708, 1.428)
pt3dadd(122.338, 119.124, 38.765, 1.444)
pt3dadd(122.261, 119.187, 38.822, 1.46)
pt3dadd(122.185, 119.25, 38.879, 1.476)
pt3dadd(122.11, 119.313, 38.936, 1.492)
pt3dadd(122.033, 119.376, 38.992, 1.508)
pt3dadd(121.957, 119.439, 39.049, 1.524)
pt3dadd(121.882, 119.502, 39.106, 1.54)
pt3dadd(121.806, 119.566, 39.163, 1.556)
pt3dadd(121.729, 119.629, 39.22, 1.572)
pt3dadd(121.65, 119.698, 39.264, 1.572)
pt3dadd(121.565, 119.778, 39.287, 1.546)
pt3dadd(121.48, 119.858, 39.31, 1.518)
pt3dadd(121.394, 119.938, 39.333, 1.492)
pt3dadd(121.309, 120.018, 39.355, 1.466)
pt3dadd(121.224, 120.097, 39.378, 1.438)
pt3dadd(121.139, 120.178, 39.401, 1.412)
pt3dadd(121.054, 120.258, 39.424, 1.386)
pt3dadd(120.968, 120.337, 39.446, 1.358)
pt3dadd(120.883, 120.418, 39.469, 1.332)
pt3dadd(120.798, 120.498, 39.492, 1.306)
pt3dadd(120.713, 120.577, 39.515, 1.28)
pt3dadd(120.628, 120.658, 39.537, 1.252)
pt3dadd(120.542, 120.738, 39.56, 1.226)
pt3dadd(120.457, 120.817, 39.583, 1.2)
pt3dadd(120.382, 120.908, 39.599, 1.154)
pt3dadd(120.307, 121.001, 39.613, 1.104)
pt3dadd(120.233, 121.093, 39.627, 1.054)
pt3dadd(120.158, 121.186, 39.641, 1.004)
pt3dadd(120.084, 121.279, 39.655, 0.954)
pt3dadd(120.01, 121.372, 39.668, 0.904)
pt3dadd(119.935, 121.464, 39.682, 0.854)
pt3dadd(119.861, 121.558, 39.696, 0.804)
pt3dadd(119.787, 121.65, 39.71, 0.754)
pt3dadd(119.713, 121.742, 39.724, 0.704)
pt3dadd(119.64, 121.837, 39.734, 0.66)
pt3dadd(119.569, 121.933, 39.743, 0.614)
pt3dadd(119.497, 122.029, 39.753, 0.57)
pt3dadd(119.425, 122.124, 39.762, 0.524)
pt3dadd(119.353, 122.22, 39.771, 0.48)
pt3dadd(119.282, 122.315, 39.78, 0.434)
pt3dadd(119.21, 122.411, 39.789, 0.39)
pt3dadd(119.138, 122.507, 39.799, 0.344)
pt3dadd(119.066, 122.602, 39.808, 0.3)
pt3dadd(118.995, 122.698, 39.817, 0.254)
pt3dadd(118.918, 122.79, 39.819, 0.258)
pt3dadd(118.84, 122.881, 39.819, 0.27)
pt3dadd(118.762, 122.972, 39.819, 0.284)
pt3dadd(118.685, 123.064, 39.819, 0.296)
pt3dadd(118.607, 123.156, 39.82, 0.308)
pt3dadd(118.529, 123.247, 39.82, 0.322)
pt3dadd(118.452, 123.338, 39.82, 0.334)
pt3dadd(118.374, 123.43, 39.82, 0.346)
pt3dadd(118.296, 123.521, 39.821, 0.358)
pt3dadd(118.219, 123.613, 39.821, 0.372)
pt3dadd(118.134, 123.697, 39.821, 0.38)
pt3dadd(118.047, 123.78, 39.822, 0.388)
pt3dadd(117.961, 123.864, 39.822, 0.396)
pt3dadd(117.874, 123.947, 39.822, 0.404)
pt3dadd(117.788, 124.03, 39.823, 0.412)
pt3dadd(117.701, 124.114, 39.823, 0.42)
pt3dadd(117.615, 124.196, 39.823, 0.428)
pt3dadd(117.528, 124.279, 39.824, 0.436)
pt3dadd(117.442, 124.363, 39.824, 0.444)
pt3dadd(117.355, 124.446, 39.825, 0.452)
pt3dadd(117.257, 124.514, 39.825, 0.452)
pt3dadd(117.157, 124.582, 39.826, 0.452)
pt3dadd(117.058, 124.649, 39.826, 0.452)
pt3dadd(116.958, 124.715, 39.827, 0.452)
pt3dadd(116.859, 124.782, 39.828, 0.452)
pt3dadd(116.759, 124.849, 39.828, 0.452)
pt3dadd(116.66, 124.916, 39.829, 0.452)
pt3dadd(116.56, 124.984, 39.83, 0.452)
pt3dadd(116.461, 125.051, 39.83, 0.452)
pt3dadd(116.361, 125.118, 39.831, 0.452)
pt3dadd(116.264, 125.189, 39.832, 0.476)
pt3dadd(116.167, 125.26, 39.833, 0.502)
}
}
proc shape3d_155() {
dend_7[20] { pt3dadd(116.07, 125.33, 39.834, 0.528)
pt3dadd(115.974, 125.401, 39.835, 0.554)
pt3dadd(115.877, 125.472, 39.836, 0.58)
pt3dadd(115.78, 125.543, 39.837, 0.606)
pt3dadd(115.683, 125.614, 39.838, 0.632)
pt3dadd(115.586, 125.684, 39.839, 0.658)
pt3dadd(115.489, 125.755, 39.84, 0.684)
pt3dadd(115.392, 125.826, 39.841, 0.71)
pt3dadd(115.296, 125.898, 39.842, 0.744)
pt3dadd(115.201, 125.97, 39.843, 0.78)
pt3dadd(115.105, 126.042, 39.844, 0.816)
pt3dadd(115.009, 126.115, 39.845, 0.852)
pt3dadd(114.913, 126.187, 39.847, 0.886)
pt3dadd(114.817, 126.259, 39.848, 0.922)
pt3dadd(114.721, 126.331, 39.849, 0.958)
pt3dadd(114.626, 126.403, 39.85, 0.994)
pt3dadd(114.53, 126.475, 39.851, 1.03)
pt3dadd(114.434, 126.548, 39.853, 1.066)
pt3dadd(114.343, 126.626, 39.855, 1.064)
pt3dadd(114.253, 126.706, 39.857, 1.06)
pt3dadd(114.163, 126.785, 39.859, 1.058)
pt3dadd(114.073, 126.864, 39.861, 1.054)
pt3dadd(113.983, 126.943, 39.863, 1.052)
pt3dadd(113.893, 127.024, 39.865, 1.048)
pt3dadd(113.803, 127.103, 39.867, 1.044)
pt3dadd(113.713, 127.182, 39.869, 1.042)
pt3dadd(113.623, 127.261, 39.871, 1.038)
pt3dadd(113.533, 127.34, 39.873, 1.036)
pt3dadd(113.444, 127.421, 39.876, 1.024)
pt3dadd(113.355, 127.501, 39.878, 1.012)
pt3dadd(113.267, 127.583, 39.88, 1.002)
pt3dadd(113.178, 127.663, 39.882, 0.99)
pt3dadd(113.089, 127.744, 39.885, 0.978)
pt3dadd(113.001, 127.825, 39.887, 0.966)
pt3dadd(112.912, 127.906, 39.889, 0.954)
pt3dadd(112.823, 127.986, 39.892, 0.944)
pt3dadd(112.735, 128.066, 39.894, 0.932)
pt3dadd(112.646, 128.148, 39.896, 0.92)
pt3dadd(112.561, 128.232, 39.901, 0.89)
pt3dadd(112.476, 128.317, 39.906, 0.858)
pt3dadd(112.392, 128.402, 39.911, 0.828)
pt3dadd(112.307, 128.486, 39.917, 0.796)
pt3dadd(112.223, 128.572, 39.922, 0.766)
pt3dadd(112.138, 128.657, 39.927, 0.734)
pt3dadd(112.053, 128.742, 39.932, 0.702)
pt3dadd(111.969, 128.826, 39.937, 0.672)
pt3dadd(111.884, 128.911, 39.942, 0.64)
pt3dadd(111.799, 128.996, 39.948, 0.61)
pt3dadd(111.715, 129.082, 39.953, 0.574)
pt3dadd(111.631, 129.167, 39.959, 0.54)
pt3dadd(111.547, 129.252, 39.964, 0.506)
pt3dadd(111.463, 129.338, 39.97, 0.472)
pt3dadd(111.379, 129.424, 39.975, 0.438)
pt3dadd(111.295, 129.509, 39.981, 0.402)
pt3dadd(111.211, 129.594, 39.987, 0.368)
pt3dadd(111.127, 129.679, 39.992, 0.334)
pt3dadd(111.043, 129.766, 39.998, 0.3)
pt3dadd(110.959, 129.851, 40.003, 0.266)
pt3dadd(110.887, 129.944, 40.014, 0.308)
pt3dadd(110.814, 130.04, 40.025, 0.356)
pt3dadd(110.742, 130.135, 40.036, 0.402)
pt3dadd(110.67, 130.23, 40.047, 0.45)
pt3dadd(110.597, 130.325, 40.058, 0.496)
pt3dadd(110.525, 130.42, 40.068, 0.544)
pt3dadd(110.453, 130.514, 40.079, 0.59)
pt3dadd(110.381, 130.609, 40.09, 0.638)
pt3dadd(110.308, 130.704, 40.101, 0.684)
pt3dadd(110.236, 130.799, 40.112, 0.732)
pt3dadd(110.157, 130.885, 40.132, 0.758)
pt3dadd(110.078, 130.972, 40.153, 0.786)
pt3dadd(109.998, 131.059, 40.174, 0.812)
pt3dadd(109.919, 131.146, 40.195, 0.84)
pt3dadd(109.84, 131.232, 40.216, 0.866)
pt3dadd(109.761, 131.318, 40.237, 0.894)
pt3dadd(109.681, 131.405, 40.258, 0.92)
pt3dadd(109.602, 131.491, 40.279, 0.946)
pt3dadd(109.523, 131.578, 40.3, 0.974)
pt3dadd(109.441, 131.659, 40.325, 0.986)
pt3dadd(109.349, 131.718, 40.366, 0.942)
pt3dadd(109.256, 131.776, 40.408, 0.898)
pt3dadd(109.164, 131.834, 40.449, 0.854)
pt3dadd(109.071, 131.893, 40.49, 0.808)
pt3dadd(108.979, 131.952, 40.531, 0.764)
pt3dadd(108.887, 132.011, 40.572, 0.72)
pt3dadd(108.794, 132.07, 40.613, 0.676)
pt3dadd(108.702, 132.128, 40.654, 0.632)
pt3dadd(108.61, 132.187, 40.695, 0.586)
pt3dadd(108.515, 132.242, 40.734, 0.554)
pt3dadd(108.409, 132.288, 40.763, 0.566)
pt3dadd(108.304, 132.335, 40.792, 0.58)
pt3dadd(108.199, 132.38, 40.821, 0.592)
pt3dadd(108.093, 132.426, 40.85, 0.606)
pt3dadd(107.988, 132.472, 40.879, 0.618)
pt3dadd(107.883, 132.517, 40.908, 0.632)
pt3dadd(107.777, 132.563, 40.937, 0.644)
pt3dadd(107.672, 132.608, 40.966, 0.658)
pt3dadd(107.567, 132.654, 40.995, 0.67)
pt3dadd(107.461, 132.701, 41.022, 0.684)
pt3dadd(107.354, 132.748, 41.044, 0.702)
pt3dadd(107.247, 132.794, 41.065, 0.718)
pt3dadd(107.139, 132.842, 41.087, 0.734)
pt3dadd(107.032, 132.889, 41.109, 0.75)
pt3dadd(106.925, 132.936, 41.131, 0.768)
pt3dadd(106.818, 132.984, 41.153, 0.784)
pt3dadd(106.71, 133.031, 41.174, 0.8)
pt3dadd(106.603, 133.078, 41.196, 0.816)
pt3dadd(106.496, 133.124, 41.218, 0.834)
pt3dadd(106.391, 133.177, 41.236, 0.838)
pt3dadd(106.289, 133.24, 41.246, 0.814)
pt3dadd(106.187, 133.302, 41.256, 0.788)
pt3dadd(106.086, 133.366, 41.266, 0.764)
pt3dadd(105.984, 133.428, 41.276, 0.74)
pt3dadd(105.883, 133.49, 41.285, 0.716)
pt3dadd(105.781, 133.554, 41.295, 0.692)
pt3dadd(105.68, 133.616, 41.305, 0.666)
pt3dadd(105.578, 133.679, 41.315, 0.642)
pt3dadd(105.476, 133.742, 41.325, 0.618)
pt3dadd(105.376, 133.806, 41.334, 0.594)
pt3dadd(105.278, 133.876, 41.34, 0.576)
pt3dadd(105.18, 133.944, 41.347, 0.556)
pt3dadd(105.082, 134.012, 41.353, 0.536)
pt3dadd(104.984, 134.082, 41.359, 0.518)
pt3dadd(104.886, 134.15, 41.366, 0.498)
pt3dadd(104.788, 134.219, 41.372, 0.478)
pt3dadd(104.69, 134.288, 41.379, 0.46)
pt3dadd(104.592, 134.357, 41.385, 0.44)
pt3dadd(104.493, 134.425, 41.391, 0.422)
pt3dadd(104.398, 134.497, 41.396, 0.404)
pt3dadd(104.306, 134.574, 41.397, 0.394)
pt3dadd(104.214, 134.652, 41.398, 0.382)
pt3dadd(104.122, 134.729, 41.399, 0.372)
pt3dadd(104.03, 134.806, 41.4, 0.36)
pt3dadd(103.939, 134.884, 41.401, 0.35)
pt3dadd(103.847, 134.96, 41.402, 0.338)
pt3dadd(103.755, 135.038, 41.403, 0.328)
pt3dadd(103.663, 135.115, 41.404, 0.316)
pt3dadd(103.571, 135.192, 41.405, 0.304)
pt3dadd(103.48, 135.27, 41.406, 0.298)
pt3dadd(103.389, 135.348, 41.407, 0.298)
pt3dadd(103.298, 135.426, 41.408, 0.298)
pt3dadd(103.207, 135.505, 41.41, 0.3)
pt3dadd(103.116, 135.583, 41.411, 0.3)
pt3dadd(103.025, 135.661, 41.412, 0.3)
pt3dadd(102.934, 135.739, 41.414, 0.3)
pt3dadd(102.843, 135.817, 41.415, 0.302)
pt3dadd(102.752, 135.895, 41.416, 0.302)
pt3dadd(102.661, 135.974, 41.417, 0.302)
pt3dadd(102.57, 136.052, 41.419, 0.31)
pt3dadd(102.481, 136.133, 41.421, 0.332)
pt3dadd(102.391, 136.212, 41.423, 0.352)
pt3dadd(102.302, 136.292, 41.425, 0.374)
pt3dadd(102.212, 136.372, 41.427, 0.396)
pt3dadd(102.122, 136.452, 41.429, 0.418)
pt3dadd(102.033, 136.531, 41.43, 0.44)
pt3dadd(101.943, 136.612, 41.432, 0.46)
pt3dadd(101.854, 136.691, 41.434, 0.482)
pt3dadd(101.764, 136.771, 41.436, 0.504)
pt3dadd(101.674, 136.85, 41.438, 0.524)
pt3dadd(101.583, 136.928, 41.441, 0.54)
pt3dadd(101.493, 137.008, 41.444, 0.556)
pt3dadd(101.402, 137.086, 41.446, 0.572)
pt3dadd(101.311, 137.164, 41.449, 0.588)
pt3dadd(101.22, 137.243, 41.452, 0.604)
pt3dadd(101.13, 137.321, 41.455, 0.62)
pt3dadd(101.039, 137.399, 41.457, 0.636)
pt3dadd(100.948, 137.478, 41.46, 0.652)
pt3dadd(100.857, 137.556, 41.463, 0.668)
pt3dadd(100.765, 137.633, 41.466, 0.678)
pt3dadd(100.671, 137.707, 41.471, 0.678)
pt3dadd(100.577, 137.782, 41.476, 0.678)
pt3dadd(100.483, 137.856, 41.481, 0.678)
pt3dadd(100.389, 137.93, 41.486, 0.678)
pt3dadd(100.296, 138.005, 41.491, 0.678)
pt3dadd(100.202, 138.079, 41.496, 0.678)
pt3dadd(100.108, 138.154, 41.501, 0.678)
pt3dadd(100.014, 138.228, 41.506, 0.678)
pt3dadd(99.92, 138.302, 41.511, 0.678)
pt3dadd(99.824, 138.374, 41.517, 0.676)
pt3dadd(99.725, 138.443, 41.523, 0.668)
pt3dadd(99.627, 138.51, 41.529, 0.662)
pt3dadd(99.528, 138.578, 41.535, 0.654)
pt3dadd(99.429, 138.646, 41.541, 0.648)
pt3dadd(99.33, 138.714, 41.547, 0.64)
pt3dadd(99.231, 138.781, 41.554, 0.632)
pt3dadd(99.133, 138.85, 41.56, 0.626)
pt3dadd(99.034, 138.917, 41.566, 0.618)
pt3dadd(98.935, 138.984, 41.572, 0.612)
pt3dadd(98.832, 139.044, 41.58, 0.596)
pt3dadd(98.722, 139.092, 41.589, 0.57)
pt3dadd(98.613, 139.14, 41.598, 0.544)
pt3dadd(98.504, 139.188, 41.607, 0.518)
pt3dadd(98.394, 139.236, 41.617, 0.49)
pt3dadd(98.285, 139.284, 41.626, 0.464)
pt3dadd(98.175, 139.332, 41.635, 0.438)
pt3dadd(98.066, 139.38, 41.644, 0.412)
pt3dadd(97.956, 139.427, 41.654, 0.386)
pt3dadd(97.847, 139.475, 41.663, 0.358)
pt3dadd(97.737, 139.519, 41.678, 0.354)
pt3dadd(97.626, 139.555, 41.701, 0.38)
pt3dadd(97.515, 139.592, 41.724, 0.404)
}
}
proc shape3d_156() {
dend_7[20] { pt3dadd(97.404, 139.628, 41.748, 0.43)
pt3dadd(97.294, 139.666, 41.771, 0.454)
pt3dadd(97.183, 139.703, 41.794, 0.48)
pt3dadd(97.072, 139.739, 41.817, 0.506)
pt3dadd(96.961, 139.776, 41.84, 0.53)
pt3dadd(96.85, 139.813, 41.863, 0.556)
pt3dadd(96.74, 139.849, 41.887, 0.582)
pt3dadd(96.63, 139.882, 41.915, 0.628)
pt3dadd(96.52, 139.908, 41.949, 0.694)
pt3dadd(96.41, 139.936, 41.983, 0.76)
pt3dadd(96.301, 139.963, 42.017, 0.826)
pt3dadd(96.191, 139.991, 42.051, 0.892)
pt3dadd(96.082, 140.017, 42.085, 0.958)
pt3dadd(95.972, 140.045, 42.118, 1.024)
pt3dadd(95.862, 140.072, 42.152, 1.09)
pt3dadd(95.753, 140.099, 42.186, 1.156)
pt3dadd(95.643, 140.126, 42.22, 1.224)
pt3dadd(95.534, 140.164, 42.246, 1.248)
pt3dadd(95.425, 140.208, 42.264, 1.236)
pt3dadd(95.316, 140.254, 42.283, 1.224)
pt3dadd(95.207, 140.298, 42.301, 1.212)
pt3dadd(95.098, 140.344, 42.32, 1.2)
pt3dadd(94.989, 140.388, 42.339, 1.188)
pt3dadd(94.88, 140.434, 42.357, 1.176)
pt3dadd(94.771, 140.478, 42.375, 1.164)
pt3dadd(94.662, 140.524, 42.394, 1.152)
pt3dadd(94.553, 140.568, 42.412, 1.14)
pt3dadd(94.444, 140.615, 42.428, 1.12)
pt3dadd(94.335, 140.662, 42.442, 1.096)
pt3dadd(94.226, 140.708, 42.456, 1.072)
pt3dadd(94.117, 140.756, 42.469, 1.046)
pt3dadd(94.008, 140.803, 42.483, 1.022)
pt3dadd(93.899, 140.85, 42.497, 0.998)
pt3dadd(93.789, 140.898, 42.511, 0.972)
pt3dadd(93.68, 140.945, 42.524, 0.948)
pt3dadd(93.571, 140.992, 42.538, 0.922)
pt3dadd(93.462, 141.04, 42.552, 0.898)
pt3dadd(93.351, 141.082, 42.557, 0.88)
pt3dadd(93.237, 141.121, 42.556, 0.866)
pt3dadd(93.124, 141.16, 42.555, 0.852)
pt3dadd(93.01, 141.199, 42.553, 0.838)
pt3dadd(92.897, 141.239, 42.552, 0.826)
pt3dadd(92.784, 141.277, 42.551, 0.812)
pt3dadd(92.67, 141.317, 42.55, 0.798)
pt3dadd(92.557, 141.356, 42.549, 0.784)
pt3dadd(92.443, 141.396, 42.548, 0.77)
pt3dadd(92.33, 141.434, 42.547, 0.756)
pt3dadd(92.217, 141.473, 42.535, 0.746)
pt3dadd(92.105, 141.509, 42.517, 0.74)
pt3dadd(91.993, 141.545, 42.499, 0.732)
pt3dadd(91.881, 141.581, 42.481, 0.724)
pt3dadd(91.768, 141.618, 42.463, 0.718)
pt3dadd(91.656, 141.654, 42.444, 0.71)
pt3dadd(91.544, 141.69, 42.426, 0.702)
pt3dadd(91.431, 141.727, 42.408, 0.694)
pt3dadd(91.319, 141.763, 42.39, 0.688)
pt3dadd(91.207, 141.799, 42.371, 0.68)
pt3dadd(91.099, 141.833, 42.339, 0.678)
pt3dadd(90.992, 141.864, 42.302, 0.678)
pt3dadd(90.885, 141.896, 42.265, 0.678)
pt3dadd(90.778, 141.929, 42.228, 0.678)
pt3dadd(90.672, 141.96, 42.191, 0.678)
pt3dadd(90.565, 141.992, 42.154, 0.678)
pt3dadd(90.458, 142.024, 42.117, 0.678)
pt3dadd(90.351, 142.056, 42.08, 0.678)
pt3dadd(90.244, 142.088, 42.043, 0.678)
pt3dadd(90.138, 142.12, 42.006, 0.678)
pt3dadd(90.032, 142.164, 41.976, 0.678)
pt3dadd(89.927, 142.211, 41.948, 0.678)
pt3dadd(89.822, 142.259, 41.92, 0.678)
pt3dadd(89.718, 142.307, 41.892, 0.678)
pt3dadd(89.613, 142.355, 41.864, 0.678)
pt3dadd(89.508, 142.402, 41.836, 0.678)
pt3dadd(89.403, 142.45, 41.808, 0.678)
pt3dadd(89.298, 142.498, 41.78, 0.678)
pt3dadd(89.193, 142.546, 41.753, 0.678)
pt3dadd(89.088, 142.592, 41.725, 0.678)
pt3dadd(88.984, 142.645, 41.7, 0.678)
pt3dadd(88.881, 142.699, 41.676, 0.678)
pt3dadd(88.777, 142.752, 41.652, 0.678)
pt3dadd(88.674, 142.806, 41.628, 0.678)
pt3dadd(88.571, 142.86, 41.604, 0.678)
pt3dadd(88.467, 142.913, 41.58, 0.678)
pt3dadd(88.364, 142.967, 41.556, 0.678)
pt3dadd(88.26, 143.021, 41.532, 0.678)
pt3dadd(88.157, 143.075, 41.508, 0.678)
pt3dadd(88.053, 143.128, 41.484, 0.678)
pt3dadd(87.953, 143.19, 41.466, 0.678)
pt3dadd(87.854, 143.254, 41.45, 0.678)
pt3dadd(87.754, 143.317, 41.434, 0.678)
pt3dadd(87.654, 143.382, 41.418, 0.678)
pt3dadd(87.555, 143.446, 41.402, 0.678)
pt3dadd(87.455, 143.509, 41.385, 0.678)
pt3dadd(87.355, 143.574, 41.369, 0.678)
pt3dadd(87.256, 143.638, 41.353, 0.678)
pt3dadd(87.156, 143.701, 41.337, 0.678)
pt3dadd(87.056, 143.766, 41.32, 0.678)
pt3dadd(86.957, 143.83, 41.305, 0.678)
pt3dadd(86.857, 143.893, 41.29, 0.68)
pt3dadd(86.757, 143.958, 41.274, 0.682)
pt3dadd(86.657, 144.022, 41.259, 0.682)
pt3dadd(86.557, 144.085, 41.244, 0.684)
pt3dadd(86.457, 144.149, 41.228, 0.684)
pt3dadd(86.357, 144.214, 41.213, 0.686)
pt3dadd(86.257, 144.277, 41.198, 0.688)
pt3dadd(86.158, 144.341, 41.182, 0.688)
pt3dadd(86.058, 144.406, 41.167, 0.69)
pt3dadd(85.948, 144.45, 41.155, 0.712)
pt3dadd(85.836, 144.49, 41.143, 0.74)
pt3dadd(85.724, 144.53, 41.131, 0.766)
pt3dadd(85.612, 144.571, 41.119, 0.794)
pt3dadd(85.5, 144.611, 41.107, 0.822)
pt3dadd(85.388, 144.652, 41.095, 0.848)
pt3dadd(85.275, 144.692, 41.083, 0.876)
pt3dadd(85.163, 144.733, 41.071, 0.902)
pt3dadd(85.051, 144.773, 41.059, 0.93)
pt3dadd(84.939, 144.814, 41.047, 0.956)
pt3dadd(84.827, 144.846, 41.025, 0.966)
pt3dadd(84.714, 144.876, 41.002, 0.972)
pt3dadd(84.601, 144.907, 40.979, 0.978)
pt3dadd(84.489, 144.937, 40.956, 0.984)
pt3dadd(84.376, 144.967, 40.932, 0.99)
pt3dadd(84.263, 144.998, 40.909, 0.996)
pt3dadd(84.151, 145.028, 40.886, 1.002)
pt3dadd(84.038, 145.06, 40.863, 1.008)
pt3dadd(83.925, 145.09, 40.839, 1.014)
pt3dadd(83.813, 145.12, 40.816, 1.02)
pt3dadd(83.704, 145.134, 40.776, 0.992)
pt3dadd(83.595, 145.147, 40.736, 0.962)
pt3dadd(83.486, 145.16, 40.695, 0.934)
pt3dadd(83.377, 145.174, 40.655, 0.906)
pt3dadd(83.268, 145.187, 40.614, 0.876)
pt3dadd(83.159, 145.2, 40.574, 0.848)
pt3dadd(83.05, 145.213, 40.533, 0.82)
pt3dadd(82.941, 145.226, 40.493, 0.79)
pt3dadd(82.832, 145.24, 40.452, 0.762)
pt3dadd(82.723, 145.253, 40.412, 0.732)
pt3dadd(82.609, 145.255, 40.38, 0.708)
pt3dadd(82.495, 145.258, 40.349, 0.682)
pt3dadd(82.381, 145.26, 40.318, 0.656)
pt3dadd(82.267, 145.262, 40.287, 0.63)
pt3dadd(82.153, 145.265, 40.256, 0.604)
pt3dadd(82.039, 145.268, 40.225, 0.578)
pt3dadd(81.925, 145.271, 40.194, 0.552)
pt3dadd(81.811, 145.273, 40.163, 0.528)
pt3dadd(81.697, 145.276, 40.132, 0.502)
pt3dadd(81.583, 145.278, 40.101, 0.476)
pt3dadd(81.468, 145.278, 40.072, 0.45)
pt3dadd(81.353, 145.278, 40.044, 0.426)
pt3dadd(81.238, 145.278, 40.015, 0.4)
pt3dadd(81.123, 145.278, 39.986, 0.376)
pt3dadd(81.008, 145.278, 39.958, 0.35)
pt3dadd(80.893, 145.278, 39.929, 0.326)
pt3dadd(80.778, 145.278, 39.9, 0.3)
pt3dadd(80.664, 145.278, 39.871, 0.276)
pt3dadd(80.549, 145.278, 39.843, 0.25)
pt3dadd(80.434, 145.278, 39.814, 0.226)
}
dend_7[21] {pt3dclear()
pt3dadd(132.782, 103.014, 28.217, 1.13)
pt3dadd(132.826, 103.037, 28.232, 1.116)
pt3dadd(132.925, 103.089, 28.265, 1.082)
pt3dadd(133.026, 103.142, 28.299, 1.048)
pt3dadd(133.126, 103.195, 28.333, 1.012)
pt3dadd(133.225, 103.248, 28.366, 0.978)
pt3dadd(133.325, 103.301, 28.4, 0.944)
pt3dadd(133.426, 103.353, 28.433, 0.91)
pt3dadd(133.525, 103.406, 28.467, 0.876)
pt3dadd(133.626, 103.458, 28.501, 0.842)
pt3dadd(133.726, 103.511, 28.534, 0.808)
pt3dadd(133.825, 103.563, 28.568, 0.774)
pt3dadd(133.926, 103.616, 28.602, 0.74)
pt3dadd(134.026, 103.668, 28.635, 0.706)
pt3dadd(134.125, 103.721, 28.669, 0.672)
pt3dadd(134.226, 103.773, 28.702, 0.638)
pt3dadd(134.326, 103.826, 28.736, 0.602)
pt3dadd(134.431, 103.867, 28.769, 0.62)
pt3dadd(134.538, 103.905, 28.802, 0.652)
pt3dadd(134.645, 103.943, 28.835, 0.682)
pt3dadd(134.752, 103.981, 28.868, 0.712)
pt3dadd(134.858, 104.02, 28.901, 0.742)
pt3dadd(134.964, 104.058, 28.934, 0.772)
pt3dadd(135.071, 104.096, 28.967, 0.802)
pt3dadd(135.178, 104.134, 29, 0.832)
pt3dadd(135.284, 104.172, 29.033, 0.862)
pt3dadd(135.391, 104.21, 29.066, 0.892)
pt3dadd(135.499, 104.242, 29.102, 0.958)
pt3dadd(135.606, 104.273, 29.138, 1.026)
pt3dadd(135.714, 104.304, 29.173, 1.096)
pt3dadd(135.822, 104.334, 29.209, 1.166)
pt3dadd(135.93, 104.365, 29.245, 1.234)
pt3dadd(136.037, 104.396, 29.281, 1.304)
pt3dadd(136.145, 104.426, 29.317, 1.374)
pt3dadd(136.253, 104.457, 29.353, 1.442)
pt3dadd(136.361, 104.488, 29.389, 1.512)
pt3dadd(136.468, 104.519, 29.424, 1.582)
pt3dadd(136.543, 104.576, 29.486, 1.582)
pt3dadd(136.618, 104.633, 29.548, 1.582)
pt3dadd(136.693, 104.69, 29.61, 1.582)
pt3dadd(136.768, 104.747, 29.672, 1.582)
pt3dadd(136.842, 104.804, 29.734, 1.582)
pt3dadd(136.918, 104.861, 29.796, 1.582)
}
}
proc shape3d_157() {
dend_7[21] { pt3dadd(136.992, 104.919, 29.858, 1.582)
pt3dadd(137.066, 104.976, 29.92, 1.582)
pt3dadd(137.142, 105.033, 29.982, 1.582)
pt3dadd(137.216, 105.09, 30.044, 1.582)
}
dend_7[22] {pt3dclear()
pt3dadd(137.216, 105.09, 30.044, 1.582)
pt3dadd(137.304, 105.113, 30.085, 1.556)
pt3dadd(137.407, 105.14, 30.131, 1.524)
pt3dadd(137.509, 105.167, 30.178, 1.492)
pt3dadd(137.612, 105.194, 30.225, 1.462)
pt3dadd(137.714, 105.221, 30.272, 1.43)
pt3dadd(137.818, 105.248, 30.318, 1.398)
pt3dadd(137.92, 105.275, 30.365, 1.368)
pt3dadd(138.023, 105.302, 30.412, 1.336)
pt3dadd(138.125, 105.329, 30.459, 1.306)
pt3dadd(138.228, 105.356, 30.505, 1.274)
pt3dadd(138.331, 105.365, 30.555, 1.258)
pt3dadd(138.434, 105.373, 30.606, 1.244)
pt3dadd(138.539, 105.381, 30.656, 1.23)
pt3dadd(138.642, 105.389, 30.706, 1.216)
pt3dadd(138.745, 105.397, 30.756, 1.202)
pt3dadd(138.848, 105.405, 30.807, 1.188)
pt3dadd(138.952, 105.413, 30.857, 1.172)
pt3dadd(139.055, 105.421, 30.907, 1.158)
pt3dadd(139.159, 105.429, 30.958, 1.144)
pt3dadd(139.262, 105.437, 31.008, 1.13)
pt3dadd(139.363, 105.434, 31.061, 1.13)
pt3dadd(139.465, 105.43, 31.115, 1.13)
pt3dadd(139.566, 105.427, 31.168, 1.13)
pt3dadd(139.668, 105.424, 31.222, 1.13)
pt3dadd(139.769, 105.421, 31.276, 1.13)
pt3dadd(139.87, 105.417, 31.329, 1.13)
pt3dadd(139.972, 105.414, 31.383, 1.13)
pt3dadd(140.072, 105.411, 31.436, 1.13)
pt3dadd(140.174, 105.408, 31.49, 1.13)
pt3dadd(140.275, 105.404, 31.543, 1.13)
}
dend_7[23] {pt3dclear()
pt3dadd(140.275, 105.404, 31.543, 1.13)
pt3dadd(140.28, 105.402, 31.545, 1.128)
pt3dadd(140.383, 105.352, 31.575, 1.102)
pt3dadd(140.486, 105.302, 31.605, 1.074)
pt3dadd(140.59, 105.252, 31.635, 1.048)
pt3dadd(140.693, 105.202, 31.665, 1.022)
pt3dadd(140.795, 105.153, 31.695, 0.994)
pt3dadd(140.898, 105.103, 31.726, 0.968)
pt3dadd(141.001, 105.053, 31.756, 0.94)
pt3dadd(141.104, 105.003, 31.786, 0.914)
pt3dadd(141.208, 104.953, 31.816, 0.886)
pt3dadd(141.311, 104.904, 31.846, 0.86)
pt3dadd(141.414, 104.854, 31.876, 0.832)
pt3dadd(141.516, 104.804, 31.906, 0.806)
pt3dadd(141.619, 104.754, 31.936, 0.778)
pt3dadd(141.722, 104.705, 31.967, 0.752)
pt3dadd(141.827, 104.656, 31.996, 0.728)
pt3dadd(141.934, 104.611, 32.022, 0.71)
pt3dadd(142.04, 104.566, 32.048, 0.692)
pt3dadd(142.147, 104.521, 32.074, 0.676)
pt3dadd(142.254, 104.476, 32.101, 0.658)
pt3dadd(142.361, 104.431, 32.127, 0.64)
pt3dadd(142.468, 104.386, 32.153, 0.624)
pt3dadd(142.574, 104.342, 32.179, 0.606)
pt3dadd(142.68, 104.297, 32.205, 0.588)
pt3dadd(142.787, 104.252, 32.231, 0.572)
pt3dadd(142.894, 104.207, 32.259, 0.558)
pt3dadd(142.997, 104.161, 32.293, 0.558)
pt3dadd(143.099, 104.115, 32.328, 0.558)
pt3dadd(143.202, 104.07, 32.362, 0.558)
pt3dadd(143.305, 104.024, 32.396, 0.558)
pt3dadd(143.408, 103.978, 32.431, 0.558)
pt3dadd(143.512, 103.932, 32.465, 0.558)
pt3dadd(143.615, 103.887, 32.499, 0.558)
pt3dadd(143.718, 103.841, 32.533, 0.558)
pt3dadd(143.821, 103.795, 32.568, 0.558)
pt3dadd(143.918, 103.748, 32.609, 0.572)
pt3dadd(144.006, 103.698, 32.663, 0.606)
pt3dadd(144.094, 103.648, 32.717, 0.64)
pt3dadd(144.181, 103.599, 32.772, 0.676)
pt3dadd(144.269, 103.549, 32.826, 0.71)
pt3dadd(144.356, 103.499, 32.88, 0.744)
pt3dadd(144.444, 103.449, 32.934, 0.78)
pt3dadd(144.533, 103.399, 32.988, 0.814)
pt3dadd(144.62, 103.35, 33.042, 0.848)
pt3dadd(144.708, 103.3, 33.097, 0.882)
pt3dadd(144.796, 103.242, 33.143, 0.904)
pt3dadd(144.883, 103.171, 33.178, 0.904)
pt3dadd(144.971, 103.101, 33.213, 0.904)
pt3dadd(145.058, 103.03, 33.248, 0.904)
pt3dadd(145.146, 102.96, 33.282, 0.904)
pt3dadd(145.234, 102.889, 33.317, 0.904)
pt3dadd(145.321, 102.818, 33.352, 0.904)
pt3dadd(145.409, 102.748, 33.387, 0.904)
pt3dadd(145.496, 102.677, 33.422, 0.904)
pt3dadd(145.584, 102.607, 33.457, 0.904)
pt3dadd(145.67, 102.534, 33.489, 0.898)
pt3dadd(145.757, 102.457, 33.516, 0.882)
pt3dadd(145.843, 102.381, 33.543, 0.864)
pt3dadd(145.93, 102.304, 33.571, 0.848)
pt3dadd(146.016, 102.227, 33.598, 0.832)
pt3dadd(146.102, 102.151, 33.626, 0.816)
pt3dadd(146.189, 102.074, 33.653, 0.8)
pt3dadd(146.275, 101.997, 33.681, 0.784)
pt3dadd(146.36, 101.921, 33.708, 0.768)
pt3dadd(146.447, 101.844, 33.736, 0.75)
pt3dadd(146.533, 101.766, 33.761, 0.73)
pt3dadd(146.618, 101.686, 33.784, 0.704)
pt3dadd(146.702, 101.605, 33.806, 0.676)
pt3dadd(146.788, 101.525, 33.829, 0.65)
pt3dadd(146.873, 101.445, 33.851, 0.624)
pt3dadd(146.958, 101.364, 33.874, 0.596)
pt3dadd(147.043, 101.284, 33.897, 0.57)
pt3dadd(147.127, 101.204, 33.919, 0.544)
pt3dadd(147.212, 101.124, 33.942, 0.516)
pt3dadd(147.298, 101.043, 33.964, 0.49)
pt3dadd(147.38, 100.968, 33.997, 0.5)
pt3dadd(147.462, 100.9, 34.045, 0.556)
pt3dadd(147.542, 100.832, 34.092, 0.614)
pt3dadd(147.624, 100.764, 34.139, 0.672)
pt3dadd(147.706, 100.696, 34.186, 0.73)
pt3dadd(147.786, 100.628, 34.233, 0.788)
pt3dadd(147.868, 100.56, 34.28, 0.846)
pt3dadd(147.948, 100.492, 34.328, 0.902)
pt3dadd(148.03, 100.424, 34.375, 0.96)
pt3dadd(148.11, 100.356, 34.422, 1.018)
pt3dadd(148.194, 100.288, 34.466, 1.052)
pt3dadd(148.279, 100.221, 34.508, 1.06)
pt3dadd(148.366, 100.154, 34.549, 1.066)
pt3dadd(148.452, 100.086, 34.591, 1.074)
pt3dadd(148.537, 100.019, 34.632, 1.082)
pt3dadd(148.624, 99.952, 34.674, 1.088)
pt3dadd(148.71, 99.884, 34.715, 1.096)
pt3dadd(148.795, 99.817, 34.757, 1.102)
pt3dadd(148.882, 99.75, 34.798, 1.11)
pt3dadd(148.968, 99.682, 34.839, 1.116)
pt3dadd(149.056, 99.615, 34.877, 1.098)
pt3dadd(149.147, 99.548, 34.911, 1.054)
pt3dadd(149.237, 99.481, 34.946, 1.01)
pt3dadd(149.328, 99.413, 34.98, 0.966)
pt3dadd(149.418, 99.346, 35.014, 0.922)
pt3dadd(149.509, 99.279, 35.048, 0.878)
pt3dadd(149.599, 99.212, 35.082, 0.834)
pt3dadd(149.689, 99.145, 35.117, 0.788)
pt3dadd(149.78, 99.078, 35.151, 0.744)
pt3dadd(149.87, 99.01, 35.185, 0.7)
pt3dadd(149.97, 98.955, 35.216, 0.67)
pt3dadd(150.077, 98.913, 35.243, 0.656)
pt3dadd(150.185, 98.871, 35.271, 0.64)
pt3dadd(150.293, 98.829, 35.298, 0.626)
pt3dadd(150.4, 98.787, 35.325, 0.61)
pt3dadd(150.508, 98.745, 35.353, 0.594)
pt3dadd(150.614, 98.703, 35.38, 0.58)
pt3dadd(150.722, 98.661, 35.408, 0.564)
pt3dadd(150.829, 98.619, 35.435, 0.55)
pt3dadd(150.937, 98.577, 35.462, 0.534)
pt3dadd(151.044, 98.538, 35.494, 0.526)
pt3dadd(151.15, 98.502, 35.531, 0.526)
pt3dadd(151.255, 98.466, 35.567, 0.524)
pt3dadd(151.361, 98.43, 35.604, 0.524)
pt3dadd(151.468, 98.395, 35.64, 0.524)
pt3dadd(151.573, 98.359, 35.677, 0.522)
pt3dadd(151.679, 98.323, 35.713, 0.522)
pt3dadd(151.784, 98.287, 35.75, 0.522)
pt3dadd(151.89, 98.251, 35.786, 0.52)
pt3dadd(151.996, 98.215, 35.823, 0.52)
pt3dadd(152.1, 98.182, 35.864, 0.526)
pt3dadd(152.203, 98.153, 35.909, 0.54)
pt3dadd(152.306, 98.123, 35.954, 0.554)
pt3dadd(152.41, 98.094, 35.998, 0.566)
pt3dadd(152.513, 98.064, 36.043, 0.58)
pt3dadd(152.616, 98.035, 36.089, 0.594)
pt3dadd(152.718, 98.005, 36.133, 0.608)
pt3dadd(152.821, 97.976, 36.178, 0.62)
pt3dadd(152.924, 97.946, 36.223, 0.634)
pt3dadd(153.028, 97.917, 36.268, 0.648)
pt3dadd(153.128, 97.876, 36.31, 0.66)
pt3dadd(153.227, 97.826, 36.348, 0.674)
pt3dadd(153.326, 97.775, 36.386, 0.688)
pt3dadd(153.425, 97.725, 36.424, 0.7)
pt3dadd(153.524, 97.675, 36.462, 0.714)
pt3dadd(153.623, 97.625, 36.5, 0.728)
pt3dadd(153.721, 97.574, 36.539, 0.742)
pt3dadd(153.821, 97.524, 36.577, 0.754)
pt3dadd(153.919, 97.474, 36.615, 0.768)
pt3dadd(154.019, 97.424, 36.653, 0.782)
pt3dadd(154.115, 97.371, 36.692, 0.796)
pt3dadd(154.211, 97.316, 36.732, 0.812)
pt3dadd(154.306, 97.261, 36.772, 0.828)
pt3dadd(154.402, 97.206, 36.812, 0.842)
pt3dadd(154.496, 97.152, 36.852, 0.858)
pt3dadd(154.592, 97.097, 36.892, 0.874)
pt3dadd(154.687, 97.042, 36.932, 0.89)
pt3dadd(154.783, 96.987, 36.972, 0.906)
pt3dadd(154.878, 96.932, 37.012, 0.92)
pt3dadd(154.974, 96.878, 37.052, 0.936)
pt3dadd(155.057, 96.824, 37.107, 0.962)
pt3dadd(155.134, 96.771, 37.17, 0.994)
pt3dadd(155.209, 96.718, 37.233, 1.024)
pt3dadd(155.286, 96.665, 37.297, 1.056)
pt3dadd(155.363, 96.612, 37.36, 1.086)
pt3dadd(155.438, 96.559, 37.423, 1.118)
pt3dadd(155.515, 96.507, 37.486, 1.148)
pt3dadd(155.592, 96.453, 37.55, 1.18)
pt3dadd(155.669, 96.401, 37.613, 1.21)
}
}
proc shape3d_158() {
dend_7[23] { pt3dadd(155.744, 96.348, 37.676, 1.242)
pt3dadd(155.826, 96.286, 37.728, 1.242)
pt3dadd(155.909, 96.22, 37.774, 1.224)
pt3dadd(155.993, 96.153, 37.82, 1.206)
pt3dadd(156.076, 96.087, 37.866, 1.188)
pt3dadd(156.16, 96.021, 37.911, 1.17)
pt3dadd(156.244, 95.954, 37.957, 1.152)
pt3dadd(156.326, 95.888, 38.003, 1.134)
pt3dadd(156.41, 95.821, 38.049, 1.116)
pt3dadd(156.493, 95.755, 38.095, 1.098)
pt3dadd(156.577, 95.689, 38.14, 1.08)
pt3dadd(156.662, 95.619, 38.18, 1.046)
pt3dadd(156.749, 95.548, 38.217, 1.006)
pt3dadd(156.834, 95.477, 38.254, 0.968)
pt3dadd(156.92, 95.407, 38.291, 0.928)
pt3dadd(157.007, 95.336, 38.328, 0.89)
pt3dadd(157.093, 95.265, 38.366, 0.85)
pt3dadd(157.178, 95.194, 38.403, 0.812)
pt3dadd(157.265, 95.124, 38.44, 0.772)
pt3dadd(157.351, 95.053, 38.477, 0.732)
pt3dadd(157.436, 94.982, 38.514, 0.694)
pt3dadd(157.528, 94.928, 38.56, 0.694)
pt3dadd(157.621, 94.879, 38.609, 0.708)
pt3dadd(157.714, 94.829, 38.657, 0.72)
pt3dadd(157.806, 94.78, 38.706, 0.734)
pt3dadd(157.898, 94.731, 38.754, 0.746)
pt3dadd(157.991, 94.682, 38.803, 0.76)
pt3dadd(158.083, 94.633, 38.852, 0.772)
pt3dadd(158.177, 94.583, 38.9, 0.786)
pt3dadd(158.269, 94.534, 38.949, 0.798)
pt3dadd(158.362, 94.485, 38.997, 0.812)
pt3dadd(158.455, 94.431, 39.041, 0.824)
pt3dadd(158.549, 94.375, 39.083, 0.838)
pt3dadd(158.642, 94.32, 39.125, 0.85)
pt3dadd(158.736, 94.264, 39.167, 0.864)
pt3dadd(158.83, 94.209, 39.209, 0.876)
pt3dadd(158.923, 94.153, 39.251, 0.888)
pt3dadd(159.017, 94.098, 39.293, 0.902)
pt3dadd(159.11, 94.042, 39.335, 0.914)
pt3dadd(159.204, 93.987, 39.377, 0.928)
pt3dadd(159.298, 93.931, 39.42, 0.94)
pt3dadd(159.391, 93.865, 39.449, 0.952)
pt3dadd(159.485, 93.797, 39.475, 0.964)
pt3dadd(159.578, 93.729, 39.502, 0.976)
pt3dadd(159.672, 93.661, 39.529, 0.988)
pt3dadd(159.766, 93.593, 39.556, 1)
pt3dadd(159.859, 93.525, 39.582, 1.014)
pt3dadd(159.953, 93.457, 39.609, 1.026)
pt3dadd(160.046, 93.389, 39.636, 1.038)
pt3dadd(160.14, 93.321, 39.663, 1.05)
pt3dadd(160.234, 93.253, 39.689, 1.062)
pt3dadd(160.325, 93.182, 39.713, 1.07)
pt3dadd(160.417, 93.11, 39.737, 1.076)
pt3dadd(160.508, 93.038, 39.76, 1.082)
pt3dadd(160.601, 92.966, 39.784, 1.09)
pt3dadd(160.692, 92.894, 39.807, 1.096)
pt3dadd(160.783, 92.822, 39.831, 1.102)
pt3dadd(160.876, 92.75, 39.854, 1.108)
pt3dadd(160.967, 92.678, 39.878, 1.116)
pt3dadd(161.059, 92.606, 39.902, 1.122)
pt3dadd(161.15, 92.534, 39.925, 1.13)
pt3dadd(161.24, 92.458, 39.945, 1.13)
pt3dadd(161.33, 92.381, 39.965, 1.13)
pt3dadd(161.419, 92.305, 39.984, 1.13)
pt3dadd(161.509, 92.228, 40.004, 1.13)
pt3dadd(161.598, 92.151, 40.023, 1.13)
pt3dadd(161.688, 92.075, 40.043, 1.13)
pt3dadd(161.777, 91.998, 40.062, 1.13)
pt3dadd(161.867, 91.922, 40.082, 1.13)
pt3dadd(161.956, 91.845, 40.101, 1.13)
pt3dadd(162.046, 91.769, 40.121, 1.13)
pt3dadd(162.128, 91.693, 40.153, 1.096)
pt3dadd(162.212, 91.617, 40.188, 1.058)
pt3dadd(162.295, 91.541, 40.223, 1.02)
pt3dadd(162.378, 91.466, 40.258, 0.98)
pt3dadd(162.461, 91.39, 40.294, 0.942)
pt3dadd(162.544, 91.314, 40.329, 0.902)
pt3dadd(162.628, 91.238, 40.364, 0.864)
pt3dadd(162.71, 91.163, 40.399, 0.824)
pt3dadd(162.793, 91.087, 40.434, 0.786)
pt3dadd(162.876, 91.011, 40.469, 0.748)
pt3dadd(162.956, 90.936, 40.51, 0.7)
pt3dadd(163.036, 90.861, 40.551, 0.654)
pt3dadd(163.115, 90.786, 40.592, 0.606)
pt3dadd(163.194, 90.711, 40.633, 0.56)
pt3dadd(163.273, 90.635, 40.674, 0.512)
pt3dadd(163.354, 90.56, 40.716, 0.466)
pt3dadd(163.433, 90.485, 40.757, 0.42)
pt3dadd(163.512, 90.41, 40.798, 0.372)
pt3dadd(163.591, 90.335, 40.839, 0.326)
pt3dadd(163.67, 90.26, 40.881, 0.278)
pt3dadd(163.757, 90.182, 40.907, 0.304)
pt3dadd(163.843, 90.104, 40.932, 0.332)
pt3dadd(163.928, 90.026, 40.957, 0.36)
pt3dadd(164.015, 89.949, 40.983, 0.388)
pt3dadd(164.101, 89.871, 41.008, 0.416)
pt3dadd(164.186, 89.793, 41.034, 0.446)
pt3dadd(164.273, 89.715, 41.059, 0.474)
pt3dadd(164.359, 89.637, 41.085, 0.502)
pt3dadd(164.444, 89.559, 41.11, 0.53)
pt3dadd(164.531, 89.481, 41.136, 0.558)
pt3dadd(164.62, 89.403, 41.154, 0.57)
pt3dadd(164.707, 89.325, 41.172, 0.582)
pt3dadd(164.796, 89.247, 41.19, 0.594)
pt3dadd(164.885, 89.168, 41.208, 0.606)
pt3dadd(164.974, 89.09, 41.226, 0.618)
pt3dadd(165.061, 89.012, 41.244, 0.63)
pt3dadd(165.15, 88.934, 41.262, 0.642)
pt3dadd(165.239, 88.856, 41.28, 0.654)
pt3dadd(165.326, 88.777, 41.298, 0.666)
pt3dadd(165.415, 88.699, 41.315, 0.678)
}
dend_7[24] {pt3dclear()
pt3dadd(165.415, 88.699, 41.315, 0.678)
pt3dadd(165.421, 88.694, 41.316, 0.678)
pt3dadd(165.511, 88.616, 41.329, 0.678)
pt3dadd(165.601, 88.538, 41.341, 0.678)
pt3dadd(165.691, 88.46, 41.354, 0.678)
pt3dadd(165.781, 88.382, 41.366, 0.678)
pt3dadd(165.871, 88.304, 41.378, 0.678)
pt3dadd(165.961, 88.226, 41.391, 0.678)
pt3dadd(166.051, 88.148, 41.403, 0.678)
pt3dadd(166.141, 88.07, 41.415, 0.678)
pt3dadd(166.231, 87.992, 41.428, 0.678)
pt3dadd(166.322, 87.915, 41.44, 0.676)
pt3dadd(166.423, 87.851, 41.448, 0.654)
pt3dadd(166.525, 87.788, 41.456, 0.634)
pt3dadd(166.626, 87.724, 41.464, 0.612)
pt3dadd(166.727, 87.661, 41.472, 0.59)
pt3dadd(166.829, 87.597, 41.48, 0.568)
pt3dadd(166.93, 87.534, 41.488, 0.546)
pt3dadd(167.032, 87.47, 41.496, 0.524)
pt3dadd(167.132, 87.407, 41.504, 0.504)
pt3dadd(167.234, 87.343, 41.513, 0.482)
pt3dadd(167.335, 87.28, 41.521, 0.46)
pt3dadd(167.438, 87.219, 41.528, 0.438)
pt3dadd(167.542, 87.158, 41.536, 0.416)
pt3dadd(167.645, 87.097, 41.543, 0.394)
pt3dadd(167.747, 87.036, 41.551, 0.372)
pt3dadd(167.85, 86.975, 41.558, 0.35)
pt3dadd(167.953, 86.914, 41.566, 0.33)
pt3dadd(168.056, 86.853, 41.573, 0.308)
pt3dadd(168.16, 86.792, 41.581, 0.286)
pt3dadd(168.263, 86.731, 41.589, 0.264)
pt3dadd(168.365, 86.67, 41.597, 0.246)
pt3dadd(168.461, 86.599, 41.608, 0.258)
pt3dadd(168.557, 86.529, 41.619, 0.272)
pt3dadd(168.654, 86.459, 41.631, 0.286)
pt3dadd(168.75, 86.389, 41.642, 0.3)
pt3dadd(168.846, 86.319, 41.654, 0.314)
pt3dadd(168.943, 86.248, 41.665, 0.326)
pt3dadd(169.039, 86.178, 41.677, 0.34)
pt3dadd(169.135, 86.108, 41.688, 0.354)
pt3dadd(169.231, 86.038, 41.7, 0.366)
pt3dadd(169.327, 85.968, 41.713, 0.378)
pt3dadd(169.418, 85.897, 41.743, 0.378)
pt3dadd(169.508, 85.826, 41.772, 0.378)
pt3dadd(169.598, 85.756, 41.802, 0.376)
pt3dadd(169.69, 85.685, 41.831, 0.376)
pt3dadd(169.78, 85.615, 41.861, 0.376)
pt3dadd(169.87, 85.544, 41.89, 0.376)
pt3dadd(169.961, 85.474, 41.919, 0.374)
pt3dadd(170.051, 85.403, 41.949, 0.374)
pt3dadd(170.141, 85.332, 41.978, 0.374)
pt3dadd(170.228, 85.262, 42.013, 0.37)
pt3dadd(170.308, 85.191, 42.06, 0.36)
pt3dadd(170.387, 85.121, 42.106, 0.348)
pt3dadd(170.466, 85.05, 42.153, 0.338)
pt3dadd(170.545, 84.98, 42.2, 0.328)
pt3dadd(170.624, 84.909, 42.246, 0.316)
pt3dadd(170.704, 84.839, 42.293, 0.306)
pt3dadd(170.784, 84.768, 42.339, 0.296)
pt3dadd(170.863, 84.698, 42.386, 0.284)
pt3dadd(170.942, 84.627, 42.433, 0.274)
pt3dadd(171.02, 84.551, 42.472, 0.278)
pt3dadd(171.098, 84.465, 42.5, 0.306)
pt3dadd(171.175, 84.38, 42.527, 0.336)
pt3dadd(171.252, 84.294, 42.555, 0.364)
pt3dadd(171.33, 84.208, 42.582, 0.392)
pt3dadd(171.407, 84.123, 42.61, 0.422)
pt3dadd(171.485, 84.037, 42.637, 0.45)
pt3dadd(171.562, 83.951, 42.665, 0.478)
pt3dadd(171.638, 83.866, 42.692, 0.506)
pt3dadd(171.716, 83.78, 42.72, 0.536)
pt3dadd(171.793, 83.694, 42.745, 0.556)
pt3dadd(171.87, 83.605, 42.767, 0.56)
pt3dadd(171.948, 83.517, 42.789, 0.566)
pt3dadd(172.025, 83.429, 42.811, 0.57)
pt3dadd(172.102, 83.341, 42.833, 0.576)
pt3dadd(172.18, 83.253, 42.854, 0.58)
pt3dadd(172.256, 83.165, 42.876, 0.584)
pt3dadd(172.333, 83.077, 42.898, 0.59)
pt3dadd(172.411, 82.989, 42.92, 0.594)
pt3dadd(172.488, 82.901, 42.942, 0.6)
pt3dadd(172.565, 82.812, 42.962, 0.598)
pt3dadd(172.642, 82.722, 42.979, 0.584)
pt3dadd(172.718, 82.632, 42.996, 0.57)
pt3dadd(172.795, 82.543, 43.014, 0.558)
pt3dadd(172.872, 82.453, 43.031, 0.544)
pt3dadd(172.95, 82.363, 43.048, 0.53)
pt3dadd(173.027, 82.273, 43.066, 0.518)
pt3dadd(173.104, 82.184, 43.083, 0.504)
}
}
proc shape3d_159() {
dend_7[24] { pt3dadd(173.18, 82.094, 43.1, 0.49)
pt3dadd(173.257, 82.004, 43.118, 0.478)
pt3dadd(173.327, 81.909, 43.133, 0.464)
pt3dadd(173.387, 81.806, 43.147, 0.45)
pt3dadd(173.446, 81.703, 43.161, 0.434)
pt3dadd(173.506, 81.6, 43.175, 0.42)
pt3dadd(173.564, 81.497, 43.188, 0.406)
pt3dadd(173.623, 81.394, 43.202, 0.392)
pt3dadd(173.683, 81.291, 43.216, 0.378)
pt3dadd(173.742, 81.188, 43.23, 0.362)
pt3dadd(173.801, 81.085, 43.243, 0.348)
pt3dadd(173.861, 80.982, 43.257, 0.334)
pt3dadd(173.918, 80.88, 43.276, 0.33)
pt3dadd(173.974, 80.778, 43.303, 0.344)
pt3dadd(174.029, 80.677, 43.33, 0.358)
pt3dadd(174.085, 80.576, 43.357, 0.372)
pt3dadd(174.14, 80.474, 43.384, 0.386)
pt3dadd(174.196, 80.373, 43.411, 0.4)
pt3dadd(174.251, 80.271, 43.438, 0.414)
pt3dadd(174.307, 80.17, 43.465, 0.428)
pt3dadd(174.362, 80.069, 43.492, 0.442)
pt3dadd(174.418, 79.967, 43.519, 0.454)
pt3dadd(174.472, 79.875, 43.562, 0.498)
pt3dadd(174.523, 79.787, 43.615, 0.56)
pt3dadd(174.575, 79.699, 43.668, 0.622)
pt3dadd(174.626, 79.612, 43.721, 0.682)
pt3dadd(174.678, 79.524, 43.774, 0.744)
pt3dadd(174.73, 79.437, 43.827, 0.806)
pt3dadd(174.781, 79.349, 43.88, 0.868)
pt3dadd(174.834, 79.262, 43.933, 0.928)
pt3dadd(174.886, 79.174, 43.986, 0.99)
pt3dadd(174.937, 79.086, 44.039, 1.052)
pt3dadd(175.002, 79, 44.08, 1.034)
pt3dadd(175.075, 78.913, 44.113, 0.972)
pt3dadd(175.147, 78.826, 44.147, 0.91)
pt3dadd(175.22, 78.74, 44.181, 0.848)
pt3dadd(175.292, 78.653, 44.215, 0.788)
pt3dadd(175.366, 78.567, 44.249, 0.726)
pt3dadd(175.438, 78.48, 44.282, 0.664)
pt3dadd(175.51, 78.394, 44.316, 0.604)
pt3dadd(175.583, 78.307, 44.35, 0.542)
pt3dadd(175.655, 78.22, 44.384, 0.48)
pt3dadd(175.732, 78.135, 44.412, 0.454)
pt3dadd(175.811, 78.051, 44.438, 0.448)
pt3dadd(175.89, 77.966, 44.464, 0.44)
pt3dadd(175.969, 77.881, 44.49, 0.434)
pt3dadd(176.048, 77.797, 44.515, 0.426)
pt3dadd(176.129, 77.712, 44.541, 0.418)
pt3dadd(176.208, 77.627, 44.567, 0.412)
pt3dadd(176.287, 77.543, 44.593, 0.404)
pt3dadd(176.366, 77.458, 44.619, 0.396)
pt3dadd(176.446, 77.373, 44.644, 0.39)
pt3dadd(176.527, 77.29, 44.667, 0.404)
pt3dadd(176.61, 77.207, 44.688, 0.43)
pt3dadd(176.693, 77.124, 44.708, 0.458)
pt3dadd(176.776, 77.041, 44.729, 0.484)
pt3dadd(176.858, 76.958, 44.75, 0.51)
pt3dadd(176.942, 76.875, 44.771, 0.536)
pt3dadd(177.025, 76.792, 44.792, 0.562)
pt3dadd(177.108, 76.709, 44.812, 0.588)
pt3dadd(177.191, 76.626, 44.833, 0.614)
pt3dadd(177.274, 76.543, 44.854, 0.64)
pt3dadd(177.353, 76.464, 44.889, 0.65)
pt3dadd(177.431, 76.387, 44.93, 0.652)
pt3dadd(177.508, 76.309, 44.971, 0.656)
pt3dadd(177.586, 76.232, 45.012, 0.66)
pt3dadd(177.662, 76.155, 45.053, 0.662)
pt3dadd(177.74, 76.077, 45.095, 0.664)
pt3dadd(177.817, 76, 45.136, 0.668)
pt3dadd(177.895, 75.923, 45.177, 0.67)
pt3dadd(177.972, 75.846, 45.218, 0.674)
pt3dadd(178.05, 75.768, 45.259, 0.678)
pt3dadd(178.128, 75.69, 45.297, 0.674)
pt3dadd(178.207, 75.611, 45.332, 0.668)
pt3dadd(178.288, 75.532, 45.368, 0.662)
pt3dadd(178.367, 75.452, 45.404, 0.656)
pt3dadd(178.446, 75.373, 45.439, 0.65)
pt3dadd(178.525, 75.294, 45.475, 0.644)
pt3dadd(178.604, 75.215, 45.511, 0.64)
pt3dadd(178.684, 75.136, 45.547, 0.634)
pt3dadd(178.763, 75.057, 45.582, 0.628)
pt3dadd(178.843, 74.978, 45.618, 0.622)
pt3dadd(178.925, 74.896, 45.645, 0.61)
pt3dadd(179.006, 74.814, 45.669, 0.596)
pt3dadd(179.089, 74.732, 45.694, 0.584)
pt3dadd(179.172, 74.65, 45.718, 0.57)
pt3dadd(179.254, 74.568, 45.743, 0.556)
pt3dadd(179.336, 74.485, 45.767, 0.542)
pt3dadd(179.419, 74.403, 45.792, 0.53)
pt3dadd(179.501, 74.321, 45.816, 0.516)
pt3dadd(179.584, 74.239, 45.84, 0.502)
pt3dadd(179.666, 74.157, 45.865, 0.488)
pt3dadd(179.749, 74.073, 45.882, 0.476)
pt3dadd(179.834, 73.99, 45.897, 0.464)
pt3dadd(179.918, 73.906, 45.912, 0.452)
pt3dadd(180.002, 73.822, 45.927, 0.44)
pt3dadd(180.086, 73.738, 45.942, 0.428)
pt3dadd(180.17, 73.655, 45.957, 0.414)
pt3dadd(180.254, 73.571, 45.972, 0.402)
pt3dadd(180.338, 73.487, 45.987, 0.39)
pt3dadd(180.422, 73.404, 46.002, 0.378)
pt3dadd(180.506, 73.32, 46.017, 0.366)
pt3dadd(180.59, 73.236, 46.03, 0.354)
pt3dadd(180.676, 73.152, 46.042, 0.342)
pt3dadd(180.76, 73.068, 46.053, 0.33)
pt3dadd(180.844, 72.984, 46.065, 0.318)
pt3dadd(180.929, 72.9, 46.077, 0.306)
pt3dadd(181.013, 72.816, 46.089, 0.294)
pt3dadd(181.097, 72.731, 46.101, 0.282)
pt3dadd(181.182, 72.647, 46.112, 0.27)
pt3dadd(181.266, 72.563, 46.124, 0.26)
pt3dadd(181.351, 72.479, 46.136, 0.248)
pt3dadd(181.435, 72.395, 46.144, 0.266)
pt3dadd(181.52, 72.311, 46.151, 0.292)
pt3dadd(181.606, 72.227, 46.158, 0.318)
pt3dadd(181.691, 72.142, 46.165, 0.344)
pt3dadd(181.776, 72.058, 46.172, 0.37)
pt3dadd(181.861, 71.974, 46.179, 0.396)
pt3dadd(181.946, 71.89, 46.186, 0.422)
pt3dadd(182.032, 71.805, 46.193, 0.448)
pt3dadd(182.116, 71.721, 46.2, 0.474)
pt3dadd(182.201, 71.637, 46.207, 0.5)
pt3dadd(182.286, 71.553, 46.213, 0.532)
pt3dadd(182.371, 71.468, 46.219, 0.564)
pt3dadd(182.456, 71.384, 46.225, 0.598)
pt3dadd(182.542, 71.3, 46.231, 0.632)
pt3dadd(182.627, 71.216, 46.237, 0.664)
pt3dadd(182.712, 71.131, 46.243, 0.698)
pt3dadd(182.797, 71.047, 46.249, 0.732)
pt3dadd(182.882, 70.963, 46.255, 0.764)
pt3dadd(182.968, 70.878, 46.261, 0.798)
pt3dadd(183.053, 70.794, 46.268, 0.83)
pt3dadd(183.138, 70.711, 46.277, 0.822)
pt3dadd(183.223, 70.627, 46.287, 0.8)
pt3dadd(183.308, 70.544, 46.297, 0.778)
pt3dadd(183.394, 70.46, 46.307, 0.756)
pt3dadd(183.479, 70.377, 46.317, 0.736)
pt3dadd(183.564, 70.293, 46.327, 0.714)
pt3dadd(183.649, 70.209, 46.337, 0.692)
pt3dadd(183.734, 70.126, 46.347, 0.67)
pt3dadd(183.82, 70.042, 46.358, 0.65)
pt3dadd(183.906, 69.959, 46.368, 0.628)
pt3dadd(183.991, 69.876, 46.379, 0.596)
pt3dadd(184.076, 69.792, 46.39, 0.56)
pt3dadd(184.162, 69.709, 46.401, 0.526)
pt3dadd(184.247, 69.626, 46.412, 0.49)
pt3dadd(184.332, 69.542, 46.423, 0.456)
pt3dadd(184.417, 69.459, 46.434, 0.42)
pt3dadd(184.502, 69.376, 46.445, 0.386)
pt3dadd(184.589, 69.292, 46.456, 0.35)
pt3dadd(184.674, 69.209, 46.467, 0.316)
pt3dadd(184.759, 69.126, 46.478, 0.28)
pt3dadd(184.84, 69.05, 46.515, 0.268)
pt3dadd(184.918, 68.976, 46.558, 0.264)
pt3dadd(184.997, 68.902, 46.602, 0.26)
pt3dadd(185.075, 68.828, 46.646, 0.254)
pt3dadd(185.154, 68.754, 46.689, 0.25)
pt3dadd(185.232, 68.68, 46.733, 0.246)
pt3dadd(185.311, 68.606, 46.776, 0.24)
pt3dadd(185.39, 68.532, 46.82, 0.236)
pt3dadd(185.468, 68.458, 46.864, 0.232)
pt3dadd(185.548, 68.384, 46.907, 0.226)
pt3dadd(185.628, 68.311, 46.949, 0.226)
pt3dadd(185.71, 68.239, 46.991, 0.226)
pt3dadd(185.79, 68.166, 47.033, 0.226)
pt3dadd(185.872, 68.093, 47.075, 0.226)
pt3dadd(185.952, 68.021, 47.117, 0.226)
pt3dadd(186.034, 67.948, 47.159, 0.226)
pt3dadd(186.115, 67.875, 47.201, 0.226)
pt3dadd(186.196, 67.803, 47.243, 0.226)
pt3dadd(186.277, 67.73, 47.285, 0.226)
pt3dadd(186.358, 67.657, 47.327, 0.226)
pt3dadd(186.443, 67.584, 47.362, 0.226)
pt3dadd(186.529, 67.51, 47.396, 0.226)
pt3dadd(186.614, 67.437, 47.43, 0.226)
pt3dadd(186.701, 67.364, 47.464, 0.226)
pt3dadd(186.786, 67.29, 47.497, 0.226)
pt3dadd(186.872, 67.217, 47.531, 0.226)
pt3dadd(186.958, 67.143, 47.565, 0.226)
pt3dadd(187.044, 67.07, 47.599, 0.226)
pt3dadd(187.129, 66.996, 47.633, 0.226)
pt3dadd(187.216, 66.923, 47.667, 0.226)
pt3dadd(187.304, 66.849, 47.694, 0.246)
pt3dadd(187.393, 66.776, 47.72, 0.268)
pt3dadd(187.483, 66.702, 47.746, 0.29)
pt3dadd(187.572, 66.628, 47.772, 0.312)
pt3dadd(187.662, 66.555, 47.799, 0.334)
pt3dadd(187.751, 66.481, 47.825, 0.354)
pt3dadd(187.841, 66.408, 47.851, 0.376)
pt3dadd(187.93, 66.334, 47.877, 0.398)
pt3dadd(188.02, 66.26, 47.903, 0.42)
pt3dadd(188.108, 66.187, 47.929, 0.442)
pt3dadd(188.201, 66.117, 47.957, 0.464)
pt3dadd(188.292, 66.048, 47.985, 0.486)
pt3dadd(188.384, 65.978, 48.013, 0.508)
pt3dadd(188.477, 65.909, 48.041, 0.53)
pt3dadd(188.568, 65.839, 48.069, 0.552)
pt3dadd(188.66, 65.77, 48.097, 0.574)
pt3dadd(188.753, 65.701, 48.125, 0.598)
pt3dadd(188.844, 65.631, 48.153, 0.62)
}
}
proc shape3d_160() {
dend_7[24] { pt3dadd(188.936, 65.562, 48.181, 0.642)
pt3dadd(189.029, 65.493, 48.208, 0.664)
pt3dadd(189.126, 65.454, 48.257, 0.652)
pt3dadd(189.223, 65.415, 48.306, 0.642)
pt3dadd(189.32, 65.376, 48.354, 0.632)
pt3dadd(189.418, 65.337, 48.403, 0.622)
pt3dadd(189.515, 65.298, 48.452, 0.61)
pt3dadd(189.612, 65.259, 48.5, 0.6)
pt3dadd(189.71, 65.22, 48.549, 0.59)
pt3dadd(189.808, 65.181, 48.598, 0.58)
pt3dadd(189.905, 65.142, 48.646, 0.568)
pt3dadd(190.002, 65.103, 48.695, 0.558)
pt3dadd(190.099, 65.064, 48.744, 0.548)
pt3dadd(190.196, 65.025, 48.792, 0.536)
pt3dadd(190.294, 64.986, 48.841, 0.526)
pt3dadd(190.391, 64.947, 48.89, 0.516)
pt3dadd(190.488, 64.908, 48.938, 0.504)
pt3dadd(190.586, 64.869, 48.987, 0.494)
pt3dadd(190.684, 64.83, 49.036, 0.484)
pt3dadd(190.781, 64.791, 49.084, 0.474)
pt3dadd(190.878, 64.752, 49.133, 0.462)
pt3dadd(190.975, 64.714, 49.182, 0.452)
}
dend_7[25] {pt3dclear()
pt3dadd(165.415, 88.699, 41.315, 0.678)
pt3dadd(165.413, 88.705, 41.337, 0.68)
pt3dadd(165.406, 88.732, 41.434, 0.694)
pt3dadd(165.397, 88.759, 41.532, 0.706)
pt3dadd(165.389, 88.786, 41.629, 0.72)
pt3dadd(165.38, 88.814, 41.726, 0.732)
pt3dadd(165.372, 88.841, 41.823, 0.746)
pt3dadd(165.365, 88.868, 41.92, 0.758)
pt3dadd(165.356, 88.895, 42.017, 0.77)
pt3dadd(165.348, 88.922, 42.115, 0.784)
pt3dadd(165.34, 88.949, 42.212, 0.796)
pt3dadd(165.331, 88.976, 42.309, 0.81)
pt3dadd(165.324, 89.003, 42.406, 0.822)
pt3dadd(165.316, 89.03, 42.503, 0.836)
pt3dadd(165.307, 89.057, 42.601, 0.848)
pt3dadd(165.299, 89.084, 42.698, 0.862)
pt3dadd(165.29, 89.111, 42.795, 0.874)
pt3dadd(165.283, 89.138, 42.892, 0.886)
pt3dadd(165.275, 89.166, 42.989, 0.9)
pt3dadd(165.266, 89.193, 43.086, 0.912)
pt3dadd(165.258, 89.22, 43.184, 0.926)
pt3dadd(165.25, 89.247, 43.281, 0.938)
pt3dadd(165.242, 89.274, 43.378, 0.952)
pt3dadd(165.332, 89.28, 43.403, 0.974)
pt3dadd(165.452, 89.28, 43.407, 1)
pt3dadd(165.572, 89.28, 43.411, 1.026)
pt3dadd(165.686, 89.275, 43.442, 1.068)
pt3dadd(165.798, 89.269, 43.476, 1.114)
pt3dadd(165.901, 89.222, 43.492, 1.16)
pt3dadd(165.997, 89.152, 43.498, 1.208)
pt3dadd(166.086, 89.071, 43.5, 1.23)
pt3dadd(166.168, 88.983, 43.5, 1.23)
pt3dadd(166.264, 88.919, 43.5, 1.21)
pt3dadd(166.379, 88.886, 43.5, 1.164)
pt3dadd(166.492, 88.844, 43.5, 1.14)
pt3dadd(166.602, 88.8, 43.5, 1.122)
pt3dadd(166.714, 88.755, 43.5, 1.102)
pt3dadd(166.825, 88.71, 43.5, 1.084)
pt3dadd(166.937, 88.666, 43.5, 1.066)
pt3dadd(167.042, 88.618, 43.517, 1.05)
pt3dadd(167.138, 88.564, 43.556, 1.038)
pt3dadd(167.236, 88.511, 43.595, 1.026)
pt3dadd(167.333, 88.458, 43.634, 1.014)
pt3dadd(167.422, 88.397, 43.673, 1)
pt3dadd(167.472, 88.297, 43.708, 0.974)
pt3dadd(167.518, 88.205, 43.755, 0.958)
pt3dadd(167.554, 88.131, 43.828, 0.972)
pt3dadd(167.628, 88.082, 43.874, 0.994)
pt3dadd(167.744, 88.059, 43.888, 1.028)
pt3dadd(167.858, 88.033, 43.908, 1.07)
pt3dadd(167.958, 87.989, 43.949, 1.15)
pt3dadd(168.046, 87.955, 44.005, 1.212)
pt3dadd(168.106, 87.939, 44.091, 1.234)
pt3dadd(168.164, 87.924, 44.177, 1.258)
pt3dadd(168.224, 87.908, 44.263, 1.28)
pt3dadd(168.271, 87.805, 44.288, 1.28)
pt3dadd(168.318, 87.698, 44.31, 1.28)
pt3dadd(168.396, 87.622, 44.346, 1.16)
pt3dadd(168.497, 87.572, 44.382, 1.106)
pt3dadd(168.577, 87.496, 44.4, 1.058)
pt3dadd(168.638, 87.392, 44.4, 1.012)
pt3dadd(168.706, 87.293, 44.4, 0.968)
pt3dadd(168.787, 87.205, 44.4, 0.932)
pt3dadd(168.872, 87.132, 44.409, 0.896)
pt3dadd(168.978, 87.126, 44.455, 0.848)
pt3dadd(169.082, 87.117, 44.503, 0.802)
pt3dadd(169.127, 87.04, 44.57, 0.786)
pt3dadd(169.171, 86.964, 44.638, 0.77)
pt3dadd(169.22, 86.888, 44.7, 0.754)
pt3dadd(169.32, 86.82, 44.7, 0.766)
pt3dadd(169.418, 86.752, 44.7, 0.778)
pt3dadd(169.532, 86.717, 44.7, 0.822)
pt3dadd(169.648, 86.684, 44.7, 0.868)
pt3dadd(169.763, 86.651, 44.7, 0.914)
pt3dadd(169.882, 86.637, 44.7, 0.952)
pt3dadd(170.002, 86.632, 44.7, 0.988)
pt3dadd(170.122, 86.628, 44.7, 1.022)
pt3dadd(170.238, 86.601, 44.7, 1.078)
pt3dadd(170.341, 86.541, 44.7, 1.068)
pt3dadd(170.446, 86.48, 44.7, 1.058)
pt3dadd(170.533, 86.4, 44.704, 1.064)
pt3dadd(170.618, 86.315, 44.71, 1.076)
pt3dadd(170.687, 86.273, 44.772, 1.07)
pt3dadd(170.75, 86.245, 44.854, 1.056)
pt3dadd(170.804, 86.183, 44.925, 1.03)
pt3dadd(170.858, 86.113, 44.989, 1.002)
pt3dadd(170.927, 86.014, 44.992, 0.974)
pt3dadd(170.995, 85.915, 44.995, 0.946)
pt3dadd(171.064, 85.817, 44.999, 0.916)
pt3dadd(171.155, 85.748, 45.009, 0.898)
pt3dadd(171.265, 85.703, 45.025, 0.886)
pt3dadd(171.378, 85.68, 45.043, 0.878)
pt3dadd(171.496, 85.68, 45.063, 0.878)
pt3dadd(171.613, 85.68, 45.082, 0.878)
pt3dadd(171.731, 85.68, 45.1, 0.88)
pt3dadd(171.851, 85.68, 45.1, 0.898)
pt3dadd(171.971, 85.68, 45.1, 0.914)
pt3dadd(172.091, 85.68, 45.101, 0.93)
pt3dadd(172.208, 85.68, 45.119, 0.928)
pt3dadd(172.318, 85.68, 45.162, 0.918)
pt3dadd(172.426, 85.68, 45.204, 0.908)
pt3dadd(172.535, 85.68, 45.246, 0.898)
pt3dadd(172.644, 85.68, 45.288, 0.89)
pt3dadd(172.752, 85.68, 45.33, 0.88)
pt3dadd(172.865, 85.68, 45.364, 0.83)
pt3dadd(172.979, 85.68, 45.397, 0.776)
pt3dadd(173.092, 85.68, 45.43, 0.728)
pt3dadd(173.206, 85.68, 45.463, 0.686)
pt3dadd(173.32, 85.68, 45.487, 0.648)
pt3dadd(173.44, 85.68, 45.478, 0.628)
pt3dadd(173.558, 85.68, 45.47, 0.61)
pt3dadd(173.654, 85.693, 45.421, 0.594)
pt3dadd(173.738, 85.714, 45.352, 0.582)
pt3dadd(173.842, 85.754, 45.329, 0.568)
pt3dadd(173.952, 85.8, 45.322, 0.552)
pt3dadd(174.062, 85.846, 45.316, 0.538)
pt3dadd(174.17, 85.885, 45.325, 0.52)
pt3dadd(174.266, 85.906, 45.382, 0.496)
pt3dadd(174.359, 85.926, 45.443, 0.478)
pt3dadd(174.445, 85.949, 45.51, 0.48)
pt3dadd(174.532, 85.974, 45.576, 0.486)
pt3dadd(174.619, 85.998, 45.641, 0.492)
pt3dadd(174.707, 86.022, 45.707, 0.498)
pt3dadd(174.797, 86.04, 45.771, 0.504)
pt3dadd(174.893, 86.04, 45.831, 0.508)
pt3dadd(174.989, 86.04, 45.891, 0.514)
pt3dadd(175.085, 86.04, 45.951, 0.518)
pt3dadd(175.181, 86.04, 46.011, 0.524)
pt3dadd(175.279, 86.029, 46.064, 0.528)
pt3dadd(175.384, 85.984, 46.096, 0.528)
pt3dadd(175.488, 85.939, 46.128, 0.528)
pt3dadd(175.592, 85.894, 46.16, 0.528)
pt3dadd(175.697, 85.85, 46.193, 0.528)
pt3dadd(175.8, 85.792, 46.2, 0.546)
pt3dadd(175.903, 85.732, 46.2, 0.568)
pt3dadd(176.003, 85.666, 46.21, 0.616)
pt3dadd(176.099, 85.598, 46.227, 0.68)
pt3dadd(176.207, 85.57, 46.252, 0.752)
pt3dadd(176.322, 85.564, 46.28, 0.828)
pt3dadd(176.438, 85.56, 46.3, 0.894)
pt3dadd(176.558, 85.56, 46.3, 0.946)
pt3dadd(176.678, 85.56, 46.3, 0.996)
pt3dadd(176.791, 85.559, 46.318, 1.036)
pt3dadd(176.891, 85.555, 46.375, 1.058)
pt3dadd(176.989, 85.551, 46.432, 1.08)
pt3dadd(177.088, 85.548, 46.489, 1.1)
pt3dadd(177.134, 85.508, 46.57, 1.104)
pt3dadd(177.169, 85.459, 46.657, 1.104)
pt3dadd(177.272, 85.445, 46.696, 1.09)
pt3dadd(177.385, 85.436, 46.73, 1.074)
pt3dadd(177.498, 85.428, 46.764, 1.056)
pt3dadd(177.607, 85.385, 46.782, 1.044)
pt3dadd(177.716, 85.34, 46.798, 1.032)
pt3dadd(177.833, 85.319, 46.813, 1.08)
pt3dadd(177.938, 85.293, 46.854, 1.102)
pt3dadd(178.045, 85.267, 46.895, 1.124)
pt3dadd(178.152, 85.241, 46.936, 1.146)
pt3dadd(178.259, 85.215, 46.976, 1.168)
pt3dadd(178.352, 85.174, 47.024, 1.198)
pt3dadd(178.429, 85.113, 47.082, 1.242)
pt3dadd(178.501, 85.089, 47.155, 1.256)
pt3dadd(178.572, 85.083, 47.236, 1.256)
pt3dadd(178.672, 85.07, 47.275, 1.25)
pt3dadd(178.789, 85.053, 47.289, 1.238)
pt3dadd(178.904, 85.028, 47.3, 1.226)
pt3dadd(179.012, 84.975, 47.3, 1.202)
pt3dadd(179.119, 84.921, 47.3, 1.18)
pt3dadd(179.227, 84.867, 47.3, 1.13)
pt3dadd(179.322, 84.799, 47.312, 1.088)
pt3dadd(179.404, 84.716, 47.334, 1.052)
pt3dadd(179.486, 84.633, 47.357, 1.018)
pt3dadd(179.569, 84.551, 47.38, 0.984)
pt3dadd(179.652, 84.473, 47.408, 0.948)
pt3dadd(179.74, 84.425, 47.464, 0.906)
pt3dadd(179.826, 84.377, 47.52, 0.864)
pt3dadd(179.912, 84.328, 47.577, 0.822)
pt3dadd(179.999, 84.28, 47.633, 0.778)
pt3dadd(180.05, 84.237, 47.716, 0.724)
}
}
proc shape3d_161() {
dend_7[25] { pt3dadd(180.106, 84.19, 47.79, 0.68)
pt3dadd(180.196, 84.112, 47.795, 0.692)
pt3dadd(180.289, 84.038, 47.8, 0.706)
pt3dadd(180.408, 84.024, 47.8, 0.744)
pt3dadd(180.527, 84.009, 47.8, 0.78)
pt3dadd(180.647, 83.998, 47.8, 0.81)
pt3dadd(180.767, 83.994, 47.8, 0.828)
pt3dadd(180.887, 83.989, 47.8, 0.846)
pt3dadd(180.994, 83.95, 47.8, 0.846)
pt3dadd(181.087, 83.875, 47.8, 0.832)
pt3dadd(181.181, 83.8, 47.8, 0.818)
pt3dadd(181.274, 83.725, 47.8, 0.804)
pt3dadd(181.35, 83.632, 47.8, 0.76)
pt3dadd(181.426, 83.538, 47.8, 0.712)
pt3dadd(181.525, 83.477, 47.803, 0.628)
pt3dadd(181.603, 83.407, 47.852, 0.628)
pt3dadd(181.681, 83.338, 47.901, 0.628)
pt3dadd(181.76, 83.269, 47.95, 0.628)
pt3dadd(181.838, 83.2, 47.999, 0.628)
pt3dadd(181.939, 83.164, 48.045, 0.628)
pt3dadd(182.039, 83.127, 48.091, 0.628)
pt3dadd(182.14, 83.091, 48.136, 0.628)
pt3dadd(182.24, 83.055, 48.182, 0.628)
pt3dadd(182.329, 83.04, 48.244, 0.614)
pt3dadd(182.411, 83.04, 48.318, 0.59)
pt3dadd(182.508, 83.04, 48.371, 0.552)
pt3dadd(182.621, 83.04, 48.404, 0.498)
pt3dadd(182.735, 83.039, 48.437, 0.446)
pt3dadd(182.849, 83.034, 48.465, 0.404)
pt3dadd(182.964, 83.028, 48.494, 0.36)
pt3dadd(183.067, 82.986, 48.471, 0.34)
pt3dadd(183.167, 82.936, 48.435, 0.328)
pt3dadd(183.286, 82.939, 48.426, 0.338)
pt3dadd(183.404, 82.946, 48.418, 0.35)
pt3dadd(183.524, 82.952, 48.41, 0.362)
pt3dadd(183.643, 82.958, 48.402, 0.374)
pt3dadd(183.72, 83.04, 48.4, 0.452)
}
dend_7[26] {pt3dclear()
pt3dadd(140.275, 105.404, 31.543, 1.13)
pt3dadd(140.347, 105.491, 31.56, 1.122)
pt3dadd(140.422, 105.582, 31.578, 1.114)
pt3dadd(140.497, 105.673, 31.595, 1.104)
pt3dadd(140.573, 105.764, 31.613, 1.096)
pt3dadd(140.648, 105.855, 31.63, 1.088)
pt3dadd(140.723, 105.946, 31.648, 1.078)
pt3dadd(140.798, 106.037, 31.666, 1.07)
pt3dadd(140.874, 106.128, 31.683, 1.062)
pt3dadd(140.95, 106.219, 31.701, 1.054)
pt3dadd(141.024, 106.31, 31.718, 1.044)
pt3dadd(141.1, 106.401, 31.736, 1.036)
pt3dadd(141.175, 106.492, 31.753, 1.028)
pt3dadd(141.251, 106.583, 31.771, 1.02)
pt3dadd(141.325, 106.674, 31.789, 1.01)
pt3dadd(141.401, 106.765, 31.806, 1.002)
pt3dadd(141.476, 106.856, 31.824, 0.994)
pt3dadd(141.552, 106.947, 31.841, 0.984)
pt3dadd(141.626, 107.038, 31.859, 0.976)
pt3dadd(141.702, 107.129, 31.876, 0.968)
pt3dadd(141.778, 107.22, 31.894, 0.96)
pt3dadd(141.853, 107.311, 31.912, 0.95)
pt3dadd(141.928, 107.403, 31.929, 0.942)
pt3dadd(142.003, 107.493, 31.947, 0.934)
pt3dadd(142.09, 107.575, 31.958, 0.918)
pt3dadd(142.181, 107.652, 31.967, 0.902)
pt3dadd(142.272, 107.729, 31.976, 0.884)
pt3dadd(142.363, 107.806, 31.984, 0.866)
pt3dadd(142.456, 107.883, 31.993, 0.85)
pt3dadd(142.547, 107.961, 32.001, 0.832)
pt3dadd(142.638, 108.038, 32.01, 0.814)
pt3dadd(142.729, 108.115, 32.019, 0.798)
pt3dadd(142.82, 108.192, 32.027, 0.78)
pt3dadd(142.912, 108.269, 32.036, 0.762)
pt3dadd(143.008, 108.34, 32.041, 0.742)
pt3dadd(143.106, 108.41, 32.046, 0.72)
pt3dadd(143.203, 108.48, 32.05, 0.7)
pt3dadd(143.3, 108.55, 32.055, 0.678)
pt3dadd(143.398, 108.62, 32.059, 0.658)
pt3dadd(143.495, 108.69, 32.064, 0.636)
pt3dadd(143.593, 108.759, 32.068, 0.614)
pt3dadd(143.69, 108.829, 32.073, 0.594)
pt3dadd(143.788, 108.899, 32.077, 0.572)
pt3dadd(143.885, 108.969, 32.082, 0.552)
pt3dadd(143.988, 109.03, 32.087, 0.564)
pt3dadd(144.092, 109.088, 32.094, 0.588)
pt3dadd(144.197, 109.146, 32.1, 0.612)
pt3dadd(144.301, 109.205, 32.107, 0.636)
pt3dadd(144.407, 109.263, 32.113, 0.66)
pt3dadd(144.511, 109.321, 32.12, 0.682)
pt3dadd(144.616, 109.38, 32.126, 0.706)
pt3dadd(144.72, 109.438, 32.133, 0.73)
pt3dadd(144.824, 109.496, 32.139, 0.754)
pt3dadd(144.929, 109.554, 32.146, 0.776)
pt3dadd(145.038, 109.605, 32.153, 0.828)
pt3dadd(145.147, 109.654, 32.161, 0.886)
pt3dadd(145.256, 109.703, 32.169, 0.942)
pt3dadd(145.366, 109.751, 32.177, 1)
pt3dadd(145.475, 109.8, 32.186, 1.056)
pt3dadd(145.584, 109.849, 32.194, 1.114)
pt3dadd(145.693, 109.898, 32.202, 1.17)
pt3dadd(145.802, 109.947, 32.21, 1.228)
pt3dadd(145.912, 109.996, 32.218, 1.284)
pt3dadd(146.021, 110.044, 32.226, 1.342)
pt3dadd(146.124, 110.103, 32.237, 1.342)
pt3dadd(146.227, 110.163, 32.248, 1.33)
pt3dadd(146.329, 110.224, 32.259, 1.316)
pt3dadd(146.432, 110.284, 32.271, 1.304)
pt3dadd(146.536, 110.345, 32.282, 1.292)
pt3dadd(146.638, 110.405, 32.294, 1.28)
pt3dadd(146.741, 110.466, 32.305, 1.268)
pt3dadd(146.844, 110.526, 32.316, 1.254)
pt3dadd(146.946, 110.587, 32.328, 1.242)
pt3dadd(147.049, 110.647, 32.339, 1.23)
pt3dadd(147.152, 110.704, 32.355, 1.218)
pt3dadd(147.257, 110.761, 32.372, 1.206)
pt3dadd(147.36, 110.817, 32.39, 1.192)
pt3dadd(147.464, 110.874, 32.407, 1.18)
pt3dadd(147.568, 110.93, 32.424, 1.168)
pt3dadd(147.672, 110.987, 32.441, 1.154)
pt3dadd(147.776, 111.043, 32.458, 1.142)
pt3dadd(147.88, 111.099, 32.475, 1.13)
pt3dadd(147.984, 111.156, 32.492, 1.116)
pt3dadd(148.087, 111.212, 32.51, 1.104)
pt3dadd(148.192, 111.253, 32.545, 1.092)
pt3dadd(148.296, 111.292, 32.583, 1.08)
pt3dadd(148.399, 111.331, 32.621, 1.066)
pt3dadd(148.504, 111.37, 32.659, 1.054)
pt3dadd(148.608, 111.409, 32.696, 1.042)
pt3dadd(148.711, 111.448, 32.734, 1.028)
pt3dadd(148.816, 111.488, 32.772, 1.016)
pt3dadd(148.92, 111.527, 32.81, 1.004)
pt3dadd(149.023, 111.566, 32.847, 0.992)
pt3dadd(149.128, 111.605, 32.885, 0.978)
pt3dadd(149.231, 111.65, 32.919, 0.98)
pt3dadd(149.334, 111.696, 32.953, 0.984)
pt3dadd(149.437, 111.741, 32.987, 0.986)
pt3dadd(149.542, 111.787, 33.02, 0.99)
pt3dadd(149.645, 111.833, 33.054, 0.992)
pt3dadd(149.748, 111.879, 33.088, 0.996)
pt3dadd(149.851, 111.924, 33.121, 0.998)
pt3dadd(149.954, 111.97, 33.155, 1.002)
pt3dadd(150.058, 112.016, 33.189, 1.004)
pt3dadd(150.161, 112.062, 33.223, 1.008)
pt3dadd(150.263, 112.116, 33.251, 1.03)
pt3dadd(150.364, 112.17, 33.279, 1.056)
pt3dadd(150.466, 112.225, 33.307, 1.08)
pt3dadd(150.566, 112.28, 33.334, 1.104)
pt3dadd(150.668, 112.334, 33.362, 1.13)
pt3dadd(150.77, 112.389, 33.39, 1.154)
pt3dadd(150.871, 112.443, 33.418, 1.178)
pt3dadd(150.973, 112.498, 33.446, 1.204)
pt3dadd(151.074, 112.553, 33.474, 1.228)
pt3dadd(151.176, 112.607, 33.502, 1.252)
pt3dadd(151.284, 112.65, 33.527, 1.248)
pt3dadd(151.391, 112.693, 33.553, 1.242)
pt3dadd(151.499, 112.736, 33.578, 1.236)
pt3dadd(151.607, 112.778, 33.604, 1.23)
pt3dadd(151.715, 112.821, 33.629, 1.224)
pt3dadd(151.823, 112.863, 33.655, 1.218)
pt3dadd(151.931, 112.906, 33.68, 1.212)
pt3dadd(152.039, 112.948, 33.706, 1.206)
pt3dadd(152.147, 112.991, 33.731, 1.2)
pt3dadd(152.255, 113.034, 33.757, 1.194)
pt3dadd(152.366, 113.067, 33.78, 1.168)
pt3dadd(152.478, 113.101, 33.804, 1.14)
pt3dadd(152.59, 113.134, 33.828, 1.112)
pt3dadd(152.701, 113.168, 33.851, 1.084)
pt3dadd(152.813, 113.202, 33.875, 1.058)
pt3dadd(152.924, 113.235, 33.898, 1.03)
pt3dadd(153.036, 113.269, 33.922, 1.002)
pt3dadd(153.149, 113.302, 33.946, 0.976)
pt3dadd(153.26, 113.336, 33.969, 0.948)
pt3dadd(153.372, 113.37, 33.993, 0.92)
pt3dadd(153.479, 113.395, 34.033, 0.88)
pt3dadd(153.586, 113.42, 34.073, 0.842)
pt3dadd(153.692, 113.445, 34.113, 0.802)
pt3dadd(153.799, 113.47, 34.153, 0.762)
pt3dadd(153.906, 113.495, 34.194, 0.722)
pt3dadd(154.013, 113.52, 34.234, 0.684)
pt3dadd(154.121, 113.545, 34.274, 0.644)
pt3dadd(154.228, 113.571, 34.314, 0.604)
pt3dadd(154.334, 113.596, 34.355, 0.564)
pt3dadd(154.441, 113.621, 34.395, 0.526)
}
dend_7[27] {pt3dclear()
pt3dadd(154.441, 113.621, 34.395, 0.526)
pt3dadd(154.484, 113.537, 34.45, 0.552)
pt3dadd(154.53, 113.45, 34.508, 0.582)
pt3dadd(154.574, 113.363, 34.565, 0.61)
pt3dadd(154.62, 113.276, 34.623, 0.64)
pt3dadd(154.664, 113.189, 34.681, 0.668)
pt3dadd(154.76, 113.16, 34.7, 0.706)
pt3dadd(154.88, 113.16, 34.7, 0.75)
pt3dadd(155, 113.16, 34.7, 0.792)
pt3dadd(155.12, 113.16, 34.7, 0.836)
pt3dadd(155.24, 113.16, 34.7, 0.878)
pt3dadd(155.36, 113.16, 34.7, 0.922)
pt3dadd(155.48, 113.16, 34.7, 0.964)
pt3dadd(155.6, 113.16, 34.7, 0.996)
pt3dadd(155.72, 113.16, 34.7, 1.022)
pt3dadd(155.84, 113.16, 34.7, 1.046)
pt3dadd(155.96, 113.16, 34.7, 1.072)
pt3dadd(156.08, 113.16, 34.7, 1.096)
pt3dadd(156.2, 113.16, 34.7, 1.122)
}
}
proc shape3d_162() {
dend_7[27] { pt3dadd(156.32, 113.16, 34.7, 1.146)
pt3dadd(156.439, 113.173, 34.7, 1.166)
pt3dadd(156.557, 113.193, 34.7, 1.182)
pt3dadd(156.676, 113.213, 34.7, 1.2)
pt3dadd(156.794, 113.232, 34.7, 1.216)
pt3dadd(156.912, 113.252, 34.7, 1.232)
pt3dadd(157.031, 113.272, 34.7, 1.248)
pt3dadd(157.15, 113.281, 34.7, 1.254)
pt3dadd(157.27, 113.283, 34.7, 1.25)
pt3dadd(157.39, 113.285, 34.7, 1.246)
pt3dadd(157.51, 113.287, 34.7, 1.242)
pt3dadd(157.63, 113.289, 34.7, 1.238)
pt3dadd(157.75, 113.291, 34.7, 1.236)
pt3dadd(157.87, 113.293, 34.7, 1.232)
pt3dadd(157.981, 113.327, 34.713, 1.222)
pt3dadd(158.089, 113.375, 34.732, 1.212)
pt3dadd(158.196, 113.423, 34.751, 1.202)
pt3dadd(158.304, 113.471, 34.77, 1.192)
pt3dadd(158.411, 113.519, 34.789, 1.18)
pt3dadd(158.526, 113.554, 34.794, 1.138)
pt3dadd(158.641, 113.589, 34.798, 1.094)
pt3dadd(158.756, 113.612, 34.813, 1.058)
pt3dadd(158.873, 113.629, 34.832, 1.026)
pt3dadd(158.972, 113.64, 34.874, 0.988)
pt3dadd(159.04, 113.64, 34.957, 0.94)
pt3dadd(159.109, 113.644, 35.038, 0.896)
pt3dadd(159.186, 113.665, 35.113, 0.856)
pt3dadd(159.27, 113.696, 35.173, 0.824)
pt3dadd(159.372, 113.754, 35.193, 0.808)
pt3dadd(159.474, 113.811, 35.214, 0.794)
pt3dadd(159.577, 113.867, 35.234, 0.778)
pt3dadd(159.692, 113.873, 35.263, 0.756)
pt3dadd(159.806, 113.878, 35.292, 0.734)
pt3dadd(159.925, 113.88, 35.3, 0.71)
pt3dadd(160.044, 113.894, 35.3, 0.7)
pt3dadd(160.163, 113.914, 35.3, 0.696)
pt3dadd(160.28, 113.934, 35.3, 0.692)
pt3dadd(160.399, 113.953, 35.3, 0.688)
pt3dadd(160.518, 113.973, 35.3, 0.684)
pt3dadd(160.636, 113.993, 35.3, 0.68)
pt3dadd(160.756, 114.001, 35.3, 0.682)
pt3dadd(160.876, 114.003, 35.3, 0.69)
pt3dadd(160.996, 114.005, 35.3, 0.698)
pt3dadd(161.116, 114.007, 35.3, 0.704)
pt3dadd(161.236, 114.009, 35.3, 0.712)
pt3dadd(161.356, 114.011, 35.3, 0.718)
pt3dadd(161.476, 114.013, 35.3, 0.726)
pt3dadd(161.591, 114.042, 35.3, 0.742)
pt3dadd(161.704, 114.081, 35.3, 0.76)
pt3dadd(161.818, 114.119, 35.3, 0.778)
pt3dadd(161.932, 114.158, 35.3, 0.796)
pt3dadd(162.044, 114.197, 35.3, 0.814)
pt3dadd(162.16, 114.227, 35.3, 0.834)
pt3dadd(162.28, 114.229, 35.3, 0.856)
pt3dadd(162.4, 114.231, 35.3, 0.878)
pt3dadd(162.52, 114.233, 35.3, 0.9)
pt3dadd(162.64, 114.235, 35.3, 0.92)
pt3dadd(162.76, 114.237, 35.3, 0.942)
pt3dadd(162.88, 114.239, 35.3, 0.964)
pt3dadd(162.996, 114.256, 35.3, 0.982)
pt3dadd(163.106, 114.303, 35.3, 0.992)
pt3dadd(163.217, 114.351, 35.3, 1.002)
pt3dadd(163.327, 114.398, 35.3, 1.01)
pt3dadd(163.438, 114.446, 35.3, 1.02)
pt3dadd(163.547, 114.494, 35.3, 1.03)
pt3dadd(163.639, 114.571, 35.3, 1.02)
pt3dadd(163.73, 114.649, 35.3, 1.01)
pt3dadd(163.822, 114.727, 35.3, 1)
pt3dadd(163.913, 114.805, 35.3, 0.988)
pt3dadd(164.004, 114.882, 35.3, 0.978)
pt3dadd(164.105, 114.948, 35.3, 0.948)
pt3dadd(164.204, 115.014, 35.3, 0.918)
pt3dadd(164.305, 115.08, 35.3, 0.888)
pt3dadd(164.405, 115.146, 35.3, 0.86)
pt3dadd(164.506, 115.212, 35.3, 0.83)
pt3dadd(164.617, 115.254, 35.3, 0.816)
pt3dadd(164.73, 115.296, 35.3, 0.802)
pt3dadd(164.843, 115.338, 35.3, 0.788)
pt3dadd(164.956, 115.379, 35.3, 0.774)
pt3dadd(165.068, 115.421, 35.3, 0.76)
pt3dadd(165.18, 115.462, 35.3, 0.75)
pt3dadd(165.293, 115.504, 35.3, 0.746)
pt3dadd(165.406, 115.546, 35.3, 0.742)
pt3dadd(165.518, 115.587, 35.3, 0.736)
pt3dadd(165.631, 115.629, 35.3, 0.732)
pt3dadd(165.744, 115.669, 35.3, 0.728)
pt3dadd(165.862, 115.691, 35.3, 0.738)
pt3dadd(165.979, 115.713, 35.3, 0.746)
pt3dadd(166.098, 115.735, 35.3, 0.754)
pt3dadd(166.216, 115.758, 35.3, 0.762)
pt3dadd(166.333, 115.78, 35.3, 0.77)
pt3dadd(166.452, 115.8, 35.3, 0.778)
pt3dadd(166.572, 115.8, 35.3, 0.782)
pt3dadd(166.692, 115.8, 35.3, 0.786)
pt3dadd(166.812, 115.8, 35.3, 0.79)
pt3dadd(166.932, 115.8, 35.3, 0.794)
pt3dadd(167.052, 115.8, 35.3, 0.796)
pt3dadd(167.172, 115.8, 35.3, 0.8)
pt3dadd(167.292, 115.8, 35.3, 0.804)
pt3dadd(167.412, 115.8, 35.3, 0.812)
pt3dadd(167.532, 115.8, 35.3, 0.818)
pt3dadd(167.652, 115.8, 35.3, 0.826)
pt3dadd(167.772, 115.8, 35.3, 0.834)
pt3dadd(167.892, 115.8, 35.3, 0.84)
pt3dadd(168.012, 115.8, 35.3, 0.848)
pt3dadd(168.132, 115.8, 35.299, 0.854)
pt3dadd(168.251, 115.8, 35.295, 0.858)
pt3dadd(168.371, 115.8, 35.29, 0.862)
pt3dadd(168.491, 115.8, 35.285, 0.866)
pt3dadd(168.611, 115.8, 35.28, 0.87)
pt3dadd(168.731, 115.8, 35.275, 0.874)
pt3dadd(168.851, 115.8, 35.27, 0.876)
pt3dadd(168.971, 115.8, 35.262, 0.882)
pt3dadd(169.09, 115.8, 35.252, 0.89)
pt3dadd(169.208, 115.8, 35.241, 0.898)
pt3dadd(169.328, 115.8, 35.231, 0.906)
pt3dadd(169.447, 115.8, 35.22, 0.914)
pt3dadd(169.567, 115.8, 35.21, 0.922)
pt3dadd(169.686, 115.8, 35.2, 0.93)
pt3dadd(169.806, 115.8, 35.2, 0.938)
pt3dadd(169.926, 115.8, 35.2, 0.946)
pt3dadd(170.046, 115.8, 35.2, 0.954)
pt3dadd(170.166, 115.805, 35.2, 0.964)
pt3dadd(170.286, 115.809, 35.2, 0.972)
pt3dadd(170.404, 115.823, 35.2, 0.978)
pt3dadd(170.507, 115.884, 35.2, 0.966)
pt3dadd(170.61, 115.944, 35.2, 0.954)
pt3dadd(170.693, 116.032, 35.2, 0.932)
pt3dadd(170.774, 116.12, 35.2, 0.908)
pt3dadd(170.866, 116.197, 35.2, 0.874)
pt3dadd(170.964, 116.264, 35.2, 0.85)
pt3dadd(171.07, 116.321, 35.2, 0.84)
pt3dadd(171.176, 116.378, 35.2, 0.83)
pt3dadd(171.282, 116.434, 35.2, 0.82)
pt3dadd(171.388, 116.491, 35.2, 0.81)
pt3dadd(171.497, 116.539, 35.2, 0.802)
pt3dadd(171.613, 116.564, 35.2, 0.794)
pt3dadd(171.731, 116.589, 35.2, 0.784)
pt3dadd(171.848, 116.614, 35.2, 0.776)
pt3dadd(171.966, 116.639, 35.2, 0.768)
pt3dadd(172.084, 116.663, 35.2, 0.758)
pt3dadd(172.199, 116.693, 35.2, 0.742)
pt3dadd(172.313, 116.733, 35.2, 0.71)
pt3dadd(172.426, 116.773, 35.2, 0.678)
pt3dadd(172.536, 116.819, 35.2, 0.656)
pt3dadd(172.646, 116.866, 35.2, 0.634)
pt3dadd(172.756, 116.918, 35.2, 0.644)
pt3dadd(172.862, 116.971, 35.2, 0.666)
pt3dadd(172.951, 117.041, 35.183, 0.71)
pt3dadd(173.018, 117.13, 35.146, 0.78)
pt3dadd(173.04, 117.237, 35.115, 0.876)
pt3dadd(173.045, 117.35, 35.087, 0.98)
pt3dadd(173.138, 117.41, 35.05, 0.992)
pt3dadd(173.233, 117.469, 35.014, 1.004)
pt3dadd(173.328, 117.529, 34.977, 1.016)
pt3dadd(173.422, 117.589, 34.94, 1.028)
pt3dadd(173.53, 117.636, 34.928, 1.018)
pt3dadd(173.641, 117.68, 34.922, 1.004)
pt3dadd(173.753, 117.724, 34.915, 0.988)
pt3dadd(173.864, 117.768, 34.909, 0.974)
pt3dadd(173.976, 117.812, 34.902, 0.96)
pt3dadd(174.088, 117.854, 34.894, 0.928)
pt3dadd(174.199, 117.896, 34.886, 0.89)
pt3dadd(174.311, 117.938, 34.877, 0.85)
pt3dadd(174.424, 117.98, 34.868, 0.81)
pt3dadd(174.535, 118.021, 34.86, 0.772)
pt3dadd(174.618, 118.064, 34.813, 0.702)
pt3dadd(174.677, 118.107, 34.733, 0.604)
pt3dadd(174.77, 118.153, 34.695, 0.532)
pt3dadd(174.878, 118.2, 34.673, 0.47)
pt3dadd(174.973, 118.266, 34.65, 0.414)
pt3dadd(175.061, 118.342, 34.643, 0.372)
pt3dadd(175.135, 118.424, 34.681, 0.358)
pt3dadd(175.21, 118.512, 34.7, 0.368)
pt3dadd(175.282, 118.607, 34.7, 0.404)
pt3dadd(175.297, 118.726, 34.705, 0.454)
pt3dadd(175.312, 118.845, 34.709, 0.502)
pt3dadd(175.352, 118.947, 34.732, 0.554)
pt3dadd(175.421, 119.03, 34.777, 0.612)
pt3dadd(175.505, 119.091, 34.825, 0.648)
pt3dadd(175.595, 119.144, 34.875, 0.676)
pt3dadd(175.655, 119.159, 34.959, 0.678)
pt3dadd(175.714, 119.172, 35.046, 0.678)
pt3dadd(175.811, 119.215, 35.087, 0.678)
pt3dadd(175.913, 119.261, 35.123, 0.678)
pt3dadd(176.015, 119.308, 35.158, 0.678)
pt3dadd(176.124, 119.348, 35.178, 0.696)
pt3dadd(176.237, 119.385, 35.194, 0.72)
pt3dadd(176.353, 119.4, 35.2, 0.744)
pt3dadd(176.468, 119.426, 35.201, 0.756)
pt3dadd(176.581, 119.469, 35.203, 0.76)
pt3dadd(176.694, 119.511, 35.205, 0.766)
pt3dadd(176.806, 119.553, 35.208, 0.77)
pt3dadd(176.918, 119.596, 35.21, 0.774)
pt3dadd(177.031, 119.631, 35.216, 0.774)
pt3dadd(177.148, 119.649, 35.235, 0.754)
pt3dadd(177.264, 119.666, 35.253, 0.736)
pt3dadd(177.382, 119.684, 35.272, 0.718)
pt3dadd(177.498, 119.701, 35.291, 0.698)
pt3dadd(177.614, 119.719, 35.309, 0.68)
}
}
proc shape3d_163() {
dend_7[27] { pt3dadd(177.718, 119.753, 35.349, 0.668)
pt3dadd(177.821, 119.789, 35.392, 0.656)
pt3dadd(177.923, 119.825, 35.435, 0.646)
pt3dadd(178.025, 119.861, 35.477, 0.634)
pt3dadd(178.132, 119.88, 35.517, 0.624)
pt3dadd(178.243, 119.88, 35.555, 0.614)
pt3dadd(178.355, 119.88, 35.592, 0.604)
pt3dadd(178.466, 119.88, 35.629, 0.596)
pt3dadd(178.578, 119.88, 35.666, 0.586)
pt3dadd(178.69, 119.88, 35.7, 0.578)
pt3dadd(178.81, 119.88, 35.7, 0.582)
pt3dadd(178.93, 119.88, 35.7, 0.586)
pt3dadd(179.05, 119.88, 35.7, 0.588)
pt3dadd(179.17, 119.88, 35.7, 0.592)
pt3dadd(179.29, 119.88, 35.7, 0.596)
pt3dadd(179.41, 119.88, 35.7, 0.6)
pt3dadd(179.53, 119.88, 35.7, 0.602)
pt3dadd(179.65, 119.88, 35.7, 0.602)
pt3dadd(179.77, 119.88, 35.7, 0.602)
pt3dadd(179.89, 119.88, 35.7, 0.602)
pt3dadd(180.01, 119.88, 35.7, 0.602)
pt3dadd(180.13, 119.88, 35.7, 0.602)
pt3dadd(180.25, 119.88, 35.7, 0.602)
pt3dadd(180.37, 119.878, 35.702, 0.602)
pt3dadd(180.484, 119.855, 35.723, 0.602)
pt3dadd(180.599, 119.831, 35.745, 0.602)
pt3dadd(180.714, 119.808, 35.767, 0.602)
pt3dadd(180.828, 119.784, 35.789, 0.602)
pt3dadd(180.943, 119.761, 35.81, 0.602)
pt3dadd(181.052, 119.741, 35.849, 0.608)
pt3dadd(181.16, 119.721, 35.889, 0.614)
pt3dadd(181.268, 119.702, 35.928, 0.618)
pt3dadd(181.378, 119.682, 35.968, 0.624)
pt3dadd(181.486, 119.656, 36.002, 0.63)
pt3dadd(181.59, 119.6, 36.017, 0.64)
pt3dadd(181.694, 119.543, 36.031, 0.652)
pt3dadd(181.799, 119.487, 36.045, 0.662)
pt3dadd(181.903, 119.43, 36.059, 0.672)
pt3dadd(182.01, 119.379, 36.074, 0.69)
pt3dadd(182.119, 119.334, 36.09, 0.714)
pt3dadd(182.213, 119.268, 36.1, 0.738)
pt3dadd(182.281, 119.169, 36.1, 0.76)
pt3dadd(182.36, 119.088, 36.1, 0.778)
pt3dadd(182.478, 119.068, 36.1, 0.778)
pt3dadd(182.597, 119.047, 36.1, 0.778)
pt3dadd(182.716, 119.04, 36.1, 0.778)
pt3dadd(182.836, 119.04, 36.1, 0.778)
pt3dadd(182.956, 119.04, 36.1, 0.778)
pt3dadd(183.068, 119.02, 36.121, 0.768)
pt3dadd(183.178, 118.987, 36.155, 0.754)
pt3dadd(183.286, 118.955, 36.188, 0.738)
pt3dadd(183.39, 118.917, 36.225, 0.728)
pt3dadd(183.485, 118.865, 36.267, 0.728)
pt3dadd(183.593, 118.834, 36.291, 0.732)
pt3dadd(183.712, 118.823, 36.294, 0.738)
pt3dadd(183.832, 118.812, 36.297, 0.746)
pt3dadd(183.95, 118.801, 36.3, 0.752)
pt3dadd(184.07, 118.8, 36.3, 0.776)
pt3dadd(184.19, 118.8, 36.3, 0.802)
pt3dadd(184.31, 118.8, 36.3, 0.826)
pt3dadd(184.43, 118.8, 36.3, 0.852)
pt3dadd(184.541, 118.847, 36.3, 0.85)
pt3dadd(184.649, 118.897, 36.3, 0.844)
pt3dadd(184.758, 118.948, 36.3, 0.84)
pt3dadd(184.867, 118.998, 36.3, 0.836)
pt3dadd(184.976, 119.049, 36.3, 0.83)
pt3dadd(185.064, 119.126, 36.3, 0.818)
pt3dadd(185.142, 119.217, 36.3, 0.804)
pt3dadd(185.22, 119.309, 36.3, 0.788)
pt3dadd(185.298, 119.4, 36.3, 0.774)
pt3dadd(185.376, 119.491, 36.3, 0.758)
pt3dadd(185.472, 119.561, 36.3, 0.746)
pt3dadd(185.575, 119.621, 36.3, 0.736)
pt3dadd(185.68, 119.681, 36.3, 0.728)
pt3dadd(185.783, 119.741, 36.3, 0.718)
pt3dadd(185.887, 119.801, 36.3, 0.708)
pt3dadd(185.982, 119.873, 36.3, 0.69)
pt3dadd(186.071, 119.954, 36.3, 0.666)
pt3dadd(186.152, 120.041, 36.3, 0.642)
pt3dadd(186.228, 120.136, 36.3, 0.62)
pt3dadd(186.316, 120.205, 36.3, 0.594)
pt3dadd(186.434, 120.22, 36.3, 0.566)
pt3dadd(186.554, 120.234, 36.3, 0.538)
pt3dadd(186.673, 120.24, 36.3, 0.522)
pt3dadd(186.793, 120.24, 36.3, 0.514)
pt3dadd(186.913, 120.24, 36.3, 0.506)
pt3dadd(187.033, 120.24, 36.3, 0.51)
pt3dadd(187.153, 120.24, 36.3, 0.522)
pt3dadd(187.27, 120.265, 36.3, 0.536)
pt3dadd(187.381, 120.307, 36.3, 0.55)
pt3dadd(187.494, 120.349, 36.3, 0.564)
pt3dadd(187.607, 120.39, 36.3, 0.578)
pt3dadd(187.72, 120.432, 36.3, 0.592)
pt3dadd(187.832, 120.468, 36.298, 0.604)
pt3dadd(187.952, 120.472, 36.287, 0.612)
pt3dadd(188.071, 120.476, 36.277, 0.62)
pt3dadd(188.191, 120.48, 36.266, 0.628)
pt3dadd(188.31, 120.485, 36.255, 0.636)
pt3dadd(188.429, 120.488, 36.244, 0.644)
pt3dadd(188.548, 120.494, 36.233, 0.652)
pt3dadd(188.658, 120.541, 36.227, 0.658)
pt3dadd(188.768, 120.588, 36.22, 0.662)
pt3dadd(188.879, 120.635, 36.214, 0.668)
pt3dadd(188.988, 120.683, 36.207, 0.672)
pt3dadd(189.098, 120.73, 36.201, 0.678)
pt3dadd(189.21, 120.774, 36.2, 0.682)
pt3dadd(189.322, 120.818, 36.2, 0.688)
pt3dadd(189.433, 120.864, 36.2, 0.692)
pt3dadd(189.544, 120.908, 36.2, 0.696)
pt3dadd(189.655, 120.953, 36.2, 0.702)
pt3dadd(189.763, 121.006, 36.2, 0.708)
pt3dadd(189.866, 121.066, 36.2, 0.718)
pt3dadd(189.971, 121.126, 36.2, 0.728)
pt3dadd(190.075, 121.186, 36.2, 0.738)
pt3dadd(190.178, 121.246, 36.2, 0.748)
pt3dadd(190.277, 121.314, 36.2, 0.758)
pt3dadd(190.366, 121.394, 36.2, 0.768)
pt3dadd(190.454, 121.475, 36.2, 0.778)
pt3dadd(190.543, 121.555, 36.2, 0.788)
pt3dadd(190.632, 121.637, 36.2, 0.798)
pt3dadd(190.733, 121.697, 36.2, 0.804)
pt3dadd(190.847, 121.733, 36.2, 0.804)
pt3dadd(190.962, 121.769, 36.2, 0.804)
pt3dadd(191.076, 121.804, 36.2, 0.804)
pt3dadd(191.19, 121.84, 36.2, 0.804)
pt3dadd(191.305, 121.876, 36.2, 0.804)
pt3dadd(191.393, 121.956, 36.2, 0.794)
pt3dadd(191.477, 122.041, 36.2, 0.784)
pt3dadd(191.56, 122.128, 36.2, 0.774)
pt3dadd(191.644, 122.214, 36.2, 0.764)
pt3dadd(191.728, 122.299, 36.2, 0.754)
pt3dadd(191.814, 122.382, 36.2, 0.72)
pt3dadd(191.902, 122.464, 36.2, 0.686)
pt3dadd(192.002, 122.53, 36.2, 0.65)
pt3dadd(192.106, 122.59, 36.2, 0.616)
pt3dadd(192.204, 122.657, 36.189, 0.578)
pt3dadd(192.298, 122.729, 36.171, 0.538)
pt3dadd(192.36, 122.76, 36.1, 0.452)
}
dend_7[28] {pt3dclear()
pt3dadd(154.441, 113.621, 34.395, 0.526)
pt3dadd(154.46, 113.625, 34.402, 0.52)
pt3dadd(154.567, 113.65, 34.442, 0.49)
pt3dadd(154.675, 113.675, 34.481, 0.46)
pt3dadd(154.782, 113.7, 34.521, 0.43)
pt3dadd(154.89, 113.725, 34.56, 0.4)
pt3dadd(154.997, 113.75, 34.6, 0.37)
pt3dadd(155.105, 113.775, 34.64, 0.34)
pt3dadd(155.212, 113.8, 34.679, 0.31)
pt3dadd(155.318, 113.825, 34.719, 0.28)
pt3dadd(155.426, 113.85, 34.759, 0.25)
pt3dadd(155.533, 113.875, 34.798, 0.226)
pt3dadd(155.644, 113.901, 34.833, 0.226)
pt3dadd(155.753, 113.927, 34.868, 0.226)
pt3dadd(155.862, 113.952, 34.903, 0.226)
pt3dadd(155.971, 113.978, 34.938, 0.226)
pt3dadd(156.08, 114.004, 34.973, 0.226)
pt3dadd(156.19, 114.03, 35.009, 0.226)
pt3dadd(156.299, 114.056, 35.044, 0.226)
pt3dadd(156.408, 114.081, 35.079, 0.226)
pt3dadd(156.517, 114.107, 35.114, 0.226)
pt3dadd(156.625, 114.138, 35.149, 0.232)
pt3dadd(156.726, 114.192, 35.18, 0.26)
pt3dadd(156.826, 114.247, 35.211, 0.29)
pt3dadd(156.926, 114.301, 35.242, 0.32)
pt3dadd(157.026, 114.355, 35.273, 0.35)
pt3dadd(157.127, 114.409, 35.305, 0.378)
pt3dadd(157.228, 114.464, 35.336, 0.408)
pt3dadd(157.327, 114.518, 35.367, 0.438)
pt3dadd(157.428, 114.572, 35.398, 0.468)
pt3dadd(157.528, 114.626, 35.429, 0.496)
pt3dadd(157.626, 114.684, 35.46, 0.53)
pt3dadd(157.718, 114.751, 35.491, 0.57)
pt3dadd(157.812, 114.818, 35.521, 0.61)
pt3dadd(157.904, 114.885, 35.552, 0.648)
pt3dadd(157.997, 114.951, 35.582, 0.688)
pt3dadd(158.089, 115.018, 35.613, 0.728)
pt3dadd(158.183, 115.085, 35.643, 0.768)
pt3dadd(158.275, 115.152, 35.674, 0.808)
pt3dadd(158.368, 115.219, 35.704, 0.848)
pt3dadd(158.461, 115.285, 35.735, 0.888)
pt3dadd(158.539, 115.36, 35.773, 0.918)
pt3dadd(158.593, 115.448, 35.823, 0.932)
pt3dadd(158.648, 115.536, 35.874, 0.946)
pt3dadd(158.702, 115.624, 35.925, 0.958)
pt3dadd(158.758, 115.712, 35.975, 0.972)
pt3dadd(158.812, 115.8, 36.026, 0.986)
pt3dadd(158.867, 115.888, 36.076, 1)
pt3dadd(158.921, 115.976, 36.127, 1.014)
pt3dadd(158.976, 116.064, 36.178, 1.028)
pt3dadd(159.03, 116.151, 36.228, 1.042)
pt3dadd(159.086, 116.237, 36.281, 1.048)
pt3dadd(159.143, 116.317, 36.338, 1.046)
pt3dadd(159.2, 116.397, 36.395, 1.042)
pt3dadd(159.257, 116.478, 36.452, 1.038)
pt3dadd(159.314, 116.558, 36.509, 1.034)
pt3dadd(159.371, 116.639, 36.566, 1.03)
pt3dadd(159.428, 116.719, 36.623, 1.026)
pt3dadd(159.485, 116.8, 36.68, 1.024)
pt3dadd(159.542, 116.88, 36.737, 1.02)
pt3dadd(159.599, 116.961, 36.794, 1.016)
pt3dadd(159.658, 117.036, 36.855, 1.002)
}
}
proc shape3d_164() {
dend_7[28] { pt3dadd(159.718, 117.105, 36.92, 0.974)
pt3dadd(159.776, 117.173, 36.985, 0.946)
pt3dadd(159.836, 117.242, 37.05, 0.918)
pt3dadd(159.896, 117.311, 37.115, 0.892)
pt3dadd(159.956, 117.379, 37.18, 0.864)
pt3dadd(160.016, 117.448, 37.245, 0.836)
pt3dadd(160.076, 117.517, 37.31, 0.808)
pt3dadd(160.136, 117.586, 37.375, 0.78)
pt3dadd(160.195, 117.654, 37.44, 0.752)
pt3dadd(160.248, 117.734, 37.5, 0.724)
pt3dadd(160.289, 117.828, 37.552, 0.692)
pt3dadd(160.33, 117.921, 37.605, 0.66)
pt3dadd(160.369, 118.015, 37.657, 0.628)
pt3dadd(160.41, 118.109, 37.709, 0.598)
pt3dadd(160.451, 118.203, 37.761, 0.566)
pt3dadd(160.492, 118.297, 37.814, 0.534)
pt3dadd(160.532, 118.39, 37.866, 0.504)
pt3dadd(160.573, 118.484, 37.918, 0.472)
pt3dadd(160.614, 118.578, 37.971, 0.44)
pt3dadd(160.649, 118.678, 38.017, 0.416)
pt3dadd(160.679, 118.784, 38.057, 0.394)
pt3dadd(160.708, 118.89, 38.097, 0.374)
pt3dadd(160.738, 118.996, 38.138, 0.354)
pt3dadd(160.766, 119.101, 38.178, 0.334)
pt3dadd(160.796, 119.207, 38.218, 0.314)
pt3dadd(160.825, 119.313, 38.259, 0.294)
pt3dadd(160.855, 119.419, 38.299, 0.274)
pt3dadd(160.885, 119.524, 38.34, 0.254)
pt3dadd(160.914, 119.63, 38.38, 0.234)
pt3dadd(160.937, 119.741, 38.411, 0.226)
pt3dadd(160.956, 119.855, 38.438, 0.226)
pt3dadd(160.975, 119.97, 38.464, 0.226)
pt3dadd(160.994, 120.084, 38.491, 0.226)
pt3dadd(161.014, 120.198, 38.517, 0.226)
pt3dadd(161.033, 120.312, 38.543, 0.226)
pt3dadd(161.052, 120.426, 38.57, 0.226)
pt3dadd(161.071, 120.54, 38.596, 0.226)
pt3dadd(161.09, 120.654, 38.623, 0.226)
pt3dadd(161.11, 120.768, 38.649, 0.226)
pt3dadd(161.124, 120.88, 38.684, 0.234)
pt3dadd(161.135, 120.99, 38.723, 0.246)
pt3dadd(161.144, 121.099, 38.763, 0.258)
pt3dadd(161.155, 121.21, 38.802, 0.272)
pt3dadd(161.166, 121.319, 38.841, 0.284)
pt3dadd(161.177, 121.429, 38.881, 0.296)
pt3dadd(161.188, 121.538, 38.92, 0.31)
pt3dadd(161.198, 121.648, 38.96, 0.322)
pt3dadd(161.209, 121.758, 38.999, 0.334)
pt3dadd(161.22, 121.867, 39.039, 0.346)
pt3dadd(161.231, 121.978, 39.077, 0.356)
pt3dadd(161.243, 122.088, 39.116, 0.362)
pt3dadd(161.255, 122.198, 39.154, 0.368)
pt3dadd(161.267, 122.309, 39.192, 0.374)
pt3dadd(161.279, 122.418, 39.231, 0.382)
pt3dadd(161.292, 122.528, 39.269, 0.388)
pt3dadd(161.304, 122.639, 39.308, 0.394)
pt3dadd(161.316, 122.749, 39.346, 0.402)
pt3dadd(161.328, 122.86, 39.384, 0.408)
pt3dadd(161.34, 122.969, 39.423, 0.414)
pt3dadd(161.356, 123.08, 39.457, 0.408)
pt3dadd(161.374, 123.193, 39.489, 0.394)
pt3dadd(161.392, 123.305, 39.521, 0.38)
pt3dadd(161.41, 123.418, 39.553, 0.364)
pt3dadd(161.428, 123.529, 39.585, 0.35)
pt3dadd(161.446, 123.642, 39.617, 0.336)
pt3dadd(161.465, 123.754, 39.649, 0.322)
pt3dadd(161.483, 123.866, 39.681, 0.308)
pt3dadd(161.501, 123.978, 39.713, 0.294)
pt3dadd(161.519, 124.091, 39.745, 0.28)
pt3dadd(161.554, 124.2, 39.774, 0.272)
pt3dadd(161.597, 124.307, 39.801, 0.266)
pt3dadd(161.64, 124.414, 39.828, 0.262)
pt3dadd(161.683, 124.52, 39.855, 0.256)
pt3dadd(161.726, 124.628, 39.882, 0.252)
pt3dadd(161.771, 124.735, 39.909, 0.248)
pt3dadd(161.814, 124.842, 39.936, 0.242)
pt3dadd(161.857, 124.949, 39.963, 0.238)
pt3dadd(161.9, 125.056, 39.99, 0.232)
pt3dadd(161.944, 125.164, 40.017, 0.228)
pt3dadd(161.998, 125.267, 40.042, 0.226)
pt3dadd(162.053, 125.369, 40.066, 0.226)
pt3dadd(162.109, 125.471, 40.09, 0.226)
pt3dadd(162.166, 125.573, 40.114, 0.226)
pt3dadd(162.221, 125.675, 40.138, 0.226)
pt3dadd(162.277, 125.777, 40.161, 0.226)
pt3dadd(162.334, 125.879, 40.185, 0.226)
pt3dadd(162.39, 125.982, 40.209, 0.226)
pt3dadd(162.445, 126.084, 40.233, 0.226)
pt3dadd(162.502, 126.186, 40.257, 0.226)
pt3dadd(162.552, 126.283, 40.297, 0.26)
pt3dadd(162.6, 126.379, 40.341, 0.302)
pt3dadd(162.648, 126.476, 40.385, 0.344)
pt3dadd(162.696, 126.572, 40.429, 0.388)
pt3dadd(162.744, 126.668, 40.473, 0.43)
pt3dadd(162.792, 126.766, 40.517, 0.472)
pt3dadd(162.84, 126.862, 40.562, 0.514)
pt3dadd(162.888, 126.958, 40.606, 0.556)
pt3dadd(162.936, 127.054, 40.65, 0.6)
pt3dadd(162.984, 127.151, 40.694, 0.642)
pt3dadd(163.046, 127.238, 40.739, 0.67)
pt3dadd(163.111, 127.324, 40.783, 0.696)
pt3dadd(163.176, 127.409, 40.828, 0.722)
pt3dadd(163.242, 127.494, 40.872, 0.748)
pt3dadd(163.307, 127.579, 40.917, 0.774)
pt3dadd(163.372, 127.664, 40.961, 0.8)
pt3dadd(163.438, 127.751, 41.006, 0.826)
pt3dadd(163.502, 127.836, 41.05, 0.852)
pt3dadd(163.568, 127.921, 41.095, 0.878)
pt3dadd(163.633, 128.006, 41.139, 0.904)
pt3dadd(163.72, 128.072, 41.183, 0.902)
pt3dadd(163.806, 128.137, 41.226, 0.902)
pt3dadd(163.892, 128.203, 41.269, 0.9)
pt3dadd(163.978, 128.268, 41.312, 0.898)
pt3dadd(164.064, 128.334, 41.355, 0.896)
pt3dadd(164.15, 128.399, 41.398, 0.896)
pt3dadd(164.237, 128.465, 41.441, 0.894)
pt3dadd(164.323, 128.531, 41.484, 0.892)
pt3dadd(164.41, 128.596, 41.527, 0.892)
pt3dadd(164.496, 128.662, 41.57, 0.89)
pt3dadd(164.569, 128.738, 41.615, 0.87)
pt3dadd(164.642, 128.816, 41.661, 0.85)
pt3dadd(164.717, 128.894, 41.706, 0.832)
pt3dadd(164.79, 128.971, 41.752, 0.812)
pt3dadd(164.863, 129.049, 41.797, 0.792)
pt3dadd(164.938, 129.126, 41.843, 0.772)
pt3dadd(165.011, 129.204, 41.888, 0.754)
pt3dadd(165.084, 129.282, 41.934, 0.734)
pt3dadd(165.157, 129.359, 41.979, 0.714)
pt3dadd(165.232, 129.436, 42.025, 0.694)
pt3dadd(165.318, 129.463, 42.09, 0.664)
pt3dadd(165.406, 129.49, 42.155, 0.634)
pt3dadd(165.492, 129.517, 42.22, 0.602)
pt3dadd(165.58, 129.544, 42.286, 0.572)
pt3dadd(165.666, 129.57, 42.351, 0.542)
pt3dadd(165.754, 129.598, 42.416, 0.51)
pt3dadd(165.84, 129.624, 42.481, 0.48)
pt3dadd(165.928, 129.652, 42.546, 0.448)
pt3dadd(166.014, 129.678, 42.611, 0.418)
pt3dadd(166.102, 129.703, 42.677, 0.39)
pt3dadd(166.186, 129.713, 42.747, 0.372)
pt3dadd(166.271, 129.724, 42.817, 0.356)
pt3dadd(166.356, 129.733, 42.888, 0.34)
pt3dadd(166.44, 129.744, 42.958, 0.322)
pt3dadd(166.525, 129.754, 43.028, 0.306)
pt3dadd(166.61, 129.764, 43.098, 0.29)
pt3dadd(166.696, 129.774, 43.168, 0.272)
pt3dadd(166.78, 129.785, 43.239, 0.256)
pt3dadd(166.865, 129.794, 43.309, 0.24)
pt3dadd(166.949, 129.803, 43.38, 0.226)
pt3dadd(167.03, 129.799, 43.453, 0.226)
pt3dadd(167.111, 129.797, 43.527, 0.226)
pt3dadd(167.192, 129.794, 43.6, 0.226)
pt3dadd(167.274, 129.792, 43.674, 0.226)
pt3dadd(167.354, 129.79, 43.748, 0.226)
pt3dadd(167.436, 129.786, 43.821, 0.226)
pt3dadd(167.516, 129.784, 43.895, 0.226)
pt3dadd(167.598, 129.781, 43.969, 0.226)
pt3dadd(167.68, 129.779, 44.042, 0.226)
pt3dadd(167.758, 129.769, 44.117, 0.226)
pt3dadd(167.822, 129.733, 44.195, 0.226)
pt3dadd(167.887, 129.696, 44.273, 0.226)
pt3dadd(167.953, 129.659, 44.351, 0.226)
pt3dadd(168.018, 129.623, 44.43, 0.226)
pt3dadd(168.083, 129.586, 44.508, 0.226)
pt3dadd(168.149, 129.548, 44.586, 0.226)
pt3dadd(168.214, 129.512, 44.664, 0.226)
pt3dadd(168.278, 129.475, 44.742, 0.226)
pt3dadd(168.343, 129.438, 44.82, 0.226)
pt3dadd(168.407, 129.397, 44.898, 0.226)
pt3dadd(168.466, 129.35, 44.976, 0.226)
pt3dadd(168.523, 129.304, 45.054, 0.226)
pt3dadd(168.582, 129.256, 45.132, 0.226)
pt3dadd(168.641, 129.209, 45.21, 0.226)
pt3dadd(168.698, 129.161, 45.288, 0.228)
pt3dadd(168.757, 129.114, 45.366, 0.228)
pt3dadd(168.816, 129.067, 45.444, 0.228)
pt3dadd(168.875, 129.019, 45.522, 0.228)
pt3dadd(168.932, 128.972, 45.6, 0.228)
pt3dadd(169, 128.926, 45.673, 0.244)
pt3dadd(169.081, 128.881, 45.735, 0.292)
pt3dadd(169.163, 128.836, 45.798, 0.34)
pt3dadd(169.246, 128.791, 45.861, 0.388)
pt3dadd(169.327, 128.746, 45.923, 0.434)
pt3dadd(169.409, 128.701, 45.986, 0.482)
pt3dadd(169.492, 128.656, 46.049, 0.53)
pt3dadd(169.573, 128.611, 46.111, 0.578)
pt3dadd(169.655, 128.567, 46.174, 0.624)
pt3dadd(169.738, 128.521, 46.237, 0.672)
pt3dadd(169.818, 128.479, 46.301, 0.71)
pt3dadd(169.898, 128.44, 46.368, 0.73)
pt3dadd(169.979, 128.401, 46.436, 0.75)
pt3dadd(170.058, 128.363, 46.503, 0.77)
pt3dadd(170.138, 128.324, 46.57, 0.79)
pt3dadd(170.218, 128.285, 46.637, 0.81)
pt3dadd(170.298, 128.246, 46.705, 0.83)
pt3dadd(170.378, 128.208, 46.772, 0.85)
pt3dadd(170.458, 128.17, 46.839, 0.872)
pt3dadd(170.538, 128.13, 46.907, 0.892)
pt3dadd(170.617, 128.093, 46.975, 0.904)
pt3dadd(170.694, 128.058, 47.046, 0.902)
}
}
proc shape3d_165() {
dend_7[28] { pt3dadd(170.771, 128.023, 47.117, 0.902)
pt3dadd(170.848, 127.988, 47.188, 0.902)
pt3dadd(170.926, 127.954, 47.258, 0.9)
pt3dadd(171.002, 127.918, 47.329, 0.9)
pt3dadd(171.079, 127.883, 47.4, 0.898)
pt3dadd(171.156, 127.848, 47.471, 0.898)
pt3dadd(171.234, 127.813, 47.542, 0.896)
pt3dadd(171.311, 127.778, 47.613, 0.896)
pt3dadd(171.353, 127.748, 47.694, 0.896)
pt3dadd(171.341, 127.728, 47.792, 0.896)
pt3dadd(171.329, 127.708, 47.89, 0.898)
pt3dadd(171.317, 127.687, 47.988, 0.898)
pt3dadd(171.304, 127.667, 48.086, 0.9)
pt3dadd(171.292, 127.646, 48.184, 0.9)
pt3dadd(171.28, 127.626, 48.282, 0.902)
pt3dadd(171.268, 127.606, 48.38, 0.902)
pt3dadd(171.256, 127.585, 48.478, 0.902)
pt3dadd(171.242, 127.565, 48.576, 0.904)
pt3dadd(171.278, 127.547, 48.668, 0.928)
pt3dadd(171.328, 127.531, 48.758, 0.96)
pt3dadd(171.378, 127.514, 48.848, 0.99)
pt3dadd(171.427, 127.498, 48.938, 1.022)
pt3dadd(171.478, 127.481, 49.028, 1.052)
pt3dadd(171.553, 127.434, 49.094, 1.072)
pt3dadd(171.631, 127.386, 49.159, 1.09)
pt3dadd(171.708, 127.338, 49.223, 1.108)
pt3dadd(171.786, 127.289, 49.288, 1.126)
pt3dadd(171.888, 127.267, 49.334, 1.142)
pt3dadd(171.996, 127.25, 49.375, 1.158)
pt3dadd(172.104, 127.234, 49.417, 1.174)
pt3dadd(172.212, 127.217, 49.458, 1.19)
pt3dadd(172.32, 127.2, 49.5, 1.206)
pt3dadd(172.428, 127.2, 49.545, 1.24)
pt3dadd(172.535, 127.2, 49.59, 1.272)
pt3dadd(172.646, 127.2, 49.625, 1.298)
pt3dadd(172.76, 127.2, 49.658, 1.318)
pt3dadd(172.843, 127.2, 49.717, 1.336)
pt3dadd(172.883, 127.2, 49.811, 1.346)
pt3dadd(172.922, 127.2, 49.905, 1.354)
pt3dadd(172.962, 127.2, 50, 1.334)
pt3dadd(173.002, 127.2, 50.094, 1.312)
pt3dadd(173.089, 127.2, 50.154, 1.234)
pt3dadd(173.182, 127.2, 50.209, 1.146)
pt3dadd(173.224, 127.2, 50.303, 1.104)
pt3dadd(173.266, 127.2, 50.397, 1.064)
pt3dadd(173.308, 127.2, 50.49, 1.022)
pt3dadd(173.348, 127.2, 50.584, 0.98)
pt3dadd(173.39, 127.2, 50.678, 0.938)
pt3dadd(173.432, 127.2, 50.772, 0.898)
pt3dadd(173.473, 127.2, 50.866, 0.856)
pt3dadd(173.515, 127.2, 50.959, 0.814)
pt3dadd(173.557, 127.2, 51.053, 0.772)
pt3dadd(173.598, 127.2, 51.147, 0.732)
pt3dadd(173.633, 127.2, 51.242, 0.694)
pt3dadd(173.653, 127.2, 51.341, 0.664)
pt3dadd(173.674, 127.2, 51.439, 0.636)
pt3dadd(173.704, 127.2, 51.536, 0.642)
pt3dadd(173.737, 127.2, 51.632, 0.664)
pt3dadd(173.761, 127.195, 51.729, 0.698)
pt3dadd(173.767, 127.18, 51.828, 0.766)
pt3dadd(173.772, 127.165, 51.928, 0.834)
pt3dadd(173.842, 127.123, 51.986, 0.904)
pt3dadd(173.938, 127.072, 52.029, 0.972)
pt3dadd(174.018, 127.004, 52.076, 0.998)
pt3dadd(174.076, 126.93, 52.136, 0.986)
pt3dadd(174.124, 126.852, 52.201, 0.962)
pt3dadd(174.173, 126.775, 52.266, 0.938)
pt3dadd(174.221, 126.697, 52.33, 0.914)
pt3dadd(174.294, 126.64, 52.39, 0.886)
pt3dadd(174.384, 126.595, 52.445, 0.856)
pt3dadd(174.473, 126.551, 52.501, 0.826)
pt3dadd(174.562, 126.505, 52.557, 0.796)
pt3dadd(174.644, 126.48, 52.622, 0.748)
pt3dadd(174.72, 126.48, 52.7, 0.678)
}
dend_7[29] {pt3dclear()
pt3dadd(137.216, 105.09, 30.044, 1.582)
pt3dadd(137.213, 105.124, 30.063, 1.554)
pt3dadd(137.203, 105.223, 30.118, 1.474)
pt3dadd(137.194, 105.323, 30.173, 1.394)
pt3dadd(137.183, 105.423, 30.228, 1.314)
pt3dadd(137.173, 105.522, 30.283, 1.234)
pt3dadd(137.164, 105.622, 30.339, 1.154)
pt3dadd(137.16, 105.729, 30.383, 1.13)
pt3dadd(137.16, 105.839, 30.423, 1.13)
pt3dadd(137.16, 105.949, 30.462, 1.13)
pt3dadd(137.16, 106.059, 30.502, 1.13)
pt3dadd(137.16, 106.17, 30.542, 1.13)
pt3dadd(137.16, 106.279, 30.583, 1.13)
pt3dadd(137.16, 106.378, 30.638, 1.13)
pt3dadd(137.16, 106.45, 30.717, 1.13)
pt3dadd(137.167, 106.524, 30.791, 1.13)
pt3dadd(137.189, 106.633, 30.826, 1.13)
pt3dadd(137.219, 106.747, 30.823, 1.034)
pt3dadd(137.25, 106.861, 30.808, 0.9)
pt3dadd(137.215, 106.935, 30.819, 0.862)
pt3dadd(137.111, 106.967, 30.859, 0.932)
pt3dadd(137.005, 106.999, 30.898, 1.002)
pt3dadd(136.886, 107.015, 30.9, 1.058)
pt3dadd(136.768, 107.029, 30.9, 1.114)
pt3dadd(136.656, 107.049, 30.916, 1.166)
pt3dadd(136.565, 107.084, 30.974, 1.208)
pt3dadd(136.472, 107.119, 31.032, 1.248)
pt3dadd(136.384, 107.15, 31.093, 1.286)
pt3dadd(136.303, 107.163, 31.166, 1.312)
pt3dadd(136.219, 107.185, 31.233, 1.33)
pt3dadd(136.13, 107.238, 31.283, 1.33)
pt3dadd(136.038, 107.29, 31.33, 1.312)
pt3dadd(135.942, 107.341, 31.373, 1.272)
pt3dadd(135.834, 107.371, 31.401, 1.234)
pt3dadd(135.718, 107.388, 31.42, 1.202)
pt3dadd(135.608, 107.4, 31.454, 1.18)
pt3dadd(135.515, 107.4, 31.517, 1.18)
pt3dadd(135.421, 107.4, 31.579, 1.18)
pt3dadd(135.328, 107.4, 31.641, 1.18)
pt3dadd(135.234, 107.4, 31.704, 1.18)
pt3dadd(135.143, 107.419, 31.764, 1.188)
pt3dadd(135.059, 107.475, 31.818, 1.214)
pt3dadd(134.975, 107.53, 31.872, 1.238)
pt3dadd(134.891, 107.585, 31.926, 1.262)
pt3dadd(134.816, 107.647, 31.983, 1.286)
pt3dadd(134.771, 107.727, 32.047, 1.312)
pt3dadd(134.725, 107.808, 32.111, 1.336)
pt3dadd(134.681, 107.888, 32.175, 1.36)
pt3dadd(134.638, 107.967, 32.241, 1.382)
pt3dadd(134.61, 108.037, 32.319, 1.382)
pt3dadd(134.582, 108.106, 32.397, 1.382)
pt3dadd(134.556, 108.176, 32.476, 1.382)
pt3dadd(134.528, 108.245, 32.554, 1.382)
pt3dadd(134.52, 108.332, 32.621, 1.308)
pt3dadd(134.52, 108.435, 32.672, 1.26)
pt3dadd(134.52, 108.538, 32.722, 1.214)
pt3dadd(134.459, 108.607, 32.778, 1.198)
pt3dadd(134.381, 108.667, 32.836, 1.19)
pt3dadd(134.302, 108.726, 32.893, 1.182)
pt3dadd(134.22, 108.799, 32.933, 1.192)
pt3dadd(134.142, 108.878, 32.968, 1.208)
pt3dadd(134.096, 108.987, 32.985, 1.232)
pt3dadd(134.053, 109.097, 33, 1.256)
pt3dadd(134.042, 109.216, 33.014, 1.256)
pt3dadd(134.032, 109.334, 33.027, 1.256)
pt3dadd(133.998, 109.44, 33.057, 1.24)
pt3dadd(133.946, 109.535, 33.1, 1.212)
pt3dadd(133.888, 109.623, 33.147, 1.196)
pt3dadd(133.825, 109.707, 33.196, 1.184)
pt3dadd(133.764, 109.792, 33.245, 1.172)
pt3dadd(133.703, 109.876, 33.293, 1.16)
pt3dadd(133.612, 109.919, 33.337, 1.132)
pt3dadd(133.517, 109.948, 33.388, 1.092)
pt3dadd(133.457, 110.001, 33.463, 1.05)
pt3dadd(133.374, 110.03, 33.523, 1)
pt3dadd(133.268, 110.036, 33.57, 0.942)
pt3dadd(133.162, 110.059, 33.6, 0.892)
pt3dadd(133.055, 110.113, 33.6, 0.858)
pt3dadd(132.953, 110.172, 33.604, 0.83)
pt3dadd(132.894, 110.267, 33.641, 0.844)
pt3dadd(132.834, 110.357, 33.683, 0.862)
pt3dadd(132.772, 110.435, 33.738, 0.886)
pt3dadd(132.709, 110.514, 33.793, 0.91)
pt3dadd(132.648, 110.593, 33.847, 0.936)
pt3dadd(132.586, 110.669, 33.905, 0.958)
pt3dadd(132.527, 110.734, 33.973, 0.976)
pt3dadd(132.468, 110.799, 34.041, 0.996)
pt3dadd(132.409, 110.865, 34.109, 1.014)
pt3dadd(132.36, 110.931, 34.179, 1.036)
pt3dadd(132.36, 111.007, 34.257, 1.07)
pt3dadd(132.36, 111.095, 34.323, 1.106)
pt3dadd(132.36, 111.193, 34.381, 1.13)
pt3dadd(132.349, 111.297, 34.428, 1.13)
pt3dadd(132.299, 111.387, 34.478, 1.13)
pt3dadd(132.236, 111.485, 34.5, 1.132)
pt3dadd(132.151, 111.565, 34.5, 1.166)
pt3dadd(132.036, 111.596, 34.5, 1.18)
pt3dadd(131.917, 111.6, 34.5, 1.11)
pt3dadd(131.797, 111.6, 34.5, 0.976)
pt3dadd(131.677, 111.61, 34.5, 0.832)
pt3dadd(131.588, 111.684, 34.5, 0.814)
pt3dadd(131.507, 111.772, 34.5, 0.824)
pt3dadd(131.425, 111.86, 34.502, 0.862)
pt3dadd(131.345, 111.948, 34.505, 0.914)
pt3dadd(131.263, 112.037, 34.509, 0.964)
pt3dadd(131.195, 112.121, 34.528, 1.032)
pt3dadd(131.174, 112.19, 34.608, 1.162)
pt3dadd(131.146, 112.258, 34.686, 1.278)
pt3dadd(131.093, 112.326, 34.755, 1.364)
pt3dadd(131.015, 112.382, 34.81, 1.392)
pt3dadd(130.915, 112.425, 34.852, 1.366)
pt3dadd(130.806, 112.444, 34.885, 1.292)
pt3dadd(130.691, 112.449, 34.914, 1.196)
pt3dadd(130.584, 112.47, 34.95, 1.11)
pt3dadd(130.494, 112.521, 35, 1.05)
pt3dadd(130.404, 112.572, 35.051, 0.99)
pt3dadd(130.315, 112.624, 35.102, 0.93)
pt3dadd(130.234, 112.668, 35.16, 0.866)
pt3dadd(130.199, 112.677, 35.255, 0.782)
pt3dadd(130.123, 112.68, 35.326, 0.754)
pt3dadd(130.024, 112.68, 35.382, 0.754)
pt3dadd(129.94, 112.69, 35.45, 0.784)
pt3dadd(129.871, 112.71, 35.531, 0.85)
pt3dadd(129.84, 112.765, 35.607, 0.918)
pt3dadd(129.84, 112.846, 35.68, 0.988)
pt3dadd(129.818, 112.934, 35.74, 1.064)
}
}
proc shape3d_166() {
dend_7[29] { pt3dadd(129.767, 113.029, 35.783, 1.148)
pt3dadd(129.696, 113.118, 35.811, 1.252)
pt3dadd(129.635, 113.208, 35.854, 1.242)
pt3dadd(129.571, 113.288, 35.902, 1.222)
pt3dadd(129.492, 113.328, 35.968, 1.18)
pt3dadd(129.412, 113.368, 36.035, 1.138)
pt3dadd(129.324, 113.4, 36.09, 1.092)
pt3dadd(129.204, 113.4, 36.093, 1.022)
pt3dadd(129.084, 113.4, 36.097, 0.952)
pt3dadd(128.964, 113.405, 36.101, 0.884)
pt3dadd(128.845, 113.42, 36.106, 0.816)
pt3dadd(128.726, 113.435, 36.11, 0.748)
pt3dadd(128.672, 113.485, 36.17, 0.7)
pt3dadd(128.645, 113.548, 36.252, 0.66)
pt3dadd(128.586, 113.61, 36.32, 0.656)
pt3dadd(128.52, 113.671, 36.386, 0.662)
pt3dadd(128.453, 113.732, 36.452, 0.666)
pt3dadd(128.387, 113.793, 36.518, 0.672)
pt3dadd(128.321, 113.855, 36.584, 0.676)
pt3dadd(128.261, 113.942, 36.61, 0.728)
pt3dadd(128.206, 114.049, 36.608, 0.814)
pt3dadd(128.149, 114.155, 36.606, 0.9)
pt3dadd(128.094, 114.261, 36.604, 0.986)
pt3dadd(128.039, 114.368, 36.601, 1.072)
pt3dadd(127.997, 114.478, 36.6, 1.13)
pt3dadd(127.984, 114.597, 36.6, 1.13)
pt3dadd(127.972, 114.717, 36.6, 1.13)
pt3dadd(127.958, 114.836, 36.6, 1.13)
pt3dadd(127.946, 114.955, 36.6, 1.13)
pt3dadd(127.933, 115.075, 36.6, 1.13)
pt3dadd(127.921, 115.194, 36.6, 1.13)
pt3dadd(127.864, 115.299, 36.6, 1.13)
pt3dadd(127.804, 115.403, 36.6, 1.13)
pt3dadd(127.744, 115.507, 36.6, 1.13)
pt3dadd(127.684, 115.611, 36.6, 1.13)
pt3dadd(127.624, 115.715, 36.6, 1.13)
pt3dadd(127.57, 115.822, 36.6, 1.13)
pt3dadd(127.518, 115.931, 36.6, 1.13)
pt3dadd(127.466, 116.039, 36.6, 1.13)
pt3dadd(127.415, 116.147, 36.6, 1.13)
pt3dadd(127.363, 116.256, 36.6, 1.13)
pt3dadd(127.33, 116.369, 36.6, 1.02)
pt3dadd(127.322, 116.488, 36.6, 0.75)
pt3dadd(127.32, 116.608, 36.608, 0.77)
pt3dadd(127.32, 116.722, 36.636, 0.82)
pt3dadd(127.32, 116.835, 36.671, 0.842)
pt3dadd(127.31, 116.95, 36.691, 0.868)
pt3dadd(127.289, 117.068, 36.695, 0.898)
pt3dadd(127.267, 117.186, 36.7, 0.928)
pt3dadd(127.174, 117.223, 36.754, 0.916)
pt3dadd(127.086, 117.265, 36.808, 0.9)
pt3dadd(127.032, 117.348, 36.865, 0.872)
pt3dadd(126.988, 117.444, 36.9, 0.836)
pt3dadd(126.954, 117.559, 36.9, 0.79)
pt3dadd(126.884, 117.654, 36.9, 0.77)
pt3dadd(126.803, 117.741, 36.9, 0.758)
pt3dadd(126.75, 117.833, 36.935, 0.754)
pt3dadd(126.714, 117.927, 36.989, 0.754)
pt3dadd(126.647, 117.989, 37.05, 0.742)
pt3dadd(126.57, 118.041, 37.114, 0.728)
pt3dadd(126.494, 118.062, 37.189, 0.714)
pt3dadd(126.416, 118.088, 37.26, 0.704)
pt3dadd(126.324, 118.154, 37.294, 0.704)
pt3dadd(126.233, 118.22, 37.328, 0.704)
pt3dadd(126.142, 118.286, 37.362, 0.704)
pt3dadd(126.05, 118.352, 37.396, 0.704)
pt3dadd(125.983, 118.439, 37.435, 0.714)
pt3dadd(125.92, 118.528, 37.475, 0.726)
pt3dadd(125.855, 118.618, 37.515, 0.738)
pt3dadd(125.791, 118.707, 37.555, 0.75)
pt3dadd(125.742, 118.808, 37.59, 0.806)
pt3dadd(125.663, 118.889, 37.6, 0.828)
pt3dadd(125.55, 118.929, 37.6, 0.828)
pt3dadd(125.435, 118.962, 37.6, 0.856)
pt3dadd(125.327, 119.009, 37.61, 0.926)
pt3dadd(125.218, 119.039, 37.643, 1.002)
pt3dadd(125.188, 119.077, 37.733, 1.052)
pt3dadd(125.162, 119.117, 37.825, 1.1)
pt3dadd(125.111, 119.134, 37.913, 1.132)
pt3dadd(125.056, 119.15, 38.001, 1.16)
pt3dadd(125, 119.165, 38.089, 1.19)
pt3dadd(124.932, 119.21, 38.152, 1.234)
pt3dadd(124.849, 119.285, 38.189, 1.29)
pt3dadd(124.745, 119.335, 38.2, 1.336)
pt3dadd(124.632, 119.375, 38.2, 1.38)
pt3dadd(124.517, 119.4, 38.2, 1.418)
pt3dadd(124.397, 119.4, 38.2, 1.452)
pt3dadd(124.277, 119.4, 38.2, 1.486)
pt3dadd(124.157, 119.4, 38.205, 1.51)
pt3dadd(124.038, 119.4, 38.217, 1.52)
pt3dadd(123.919, 119.4, 38.229, 1.528)
pt3dadd(123.81, 119.4, 38.267, 1.528)
pt3dadd(123.706, 119.4, 38.317, 1.524)
pt3dadd(123.601, 119.4, 38.367, 1.518)
pt3dadd(123.498, 119.4, 38.417, 1.514)
pt3dadd(123.394, 119.4, 38.466, 1.51)
pt3dadd(123.282, 119.4, 38.496, 1.446)
pt3dadd(123.163, 119.4, 38.511, 1.382)
pt3dadd(123.044, 119.4, 38.528, 1.342)
pt3dadd(122.929, 119.4, 38.549, 1.302)
pt3dadd(122.869, 119.4, 38.635, 1.246)
pt3dadd(122.808, 119.4, 38.722, 1.188)
pt3dadd(122.772, 119.4, 38.817, 1.074)
pt3dadd(122.76, 119.4, 38.916, 0.972)
pt3dadd(122.76, 119.4, 39.016, 0.926)
pt3dadd(122.76, 119.4, 39.116, 0.9)
pt3dadd(122.76, 119.4, 39.216, 0.874)
pt3dadd(122.75, 119.4, 39.314, 0.852)
pt3dadd(122.689, 119.4, 39.4, 0.84)
pt3dadd(122.629, 119.4, 39.486, 0.83)
pt3dadd(122.512, 119.4, 39.497, 0.838)
pt3dadd(122.392, 119.4, 39.505, 0.846)
pt3dadd(122.282, 119.4, 39.527, 0.856)
pt3dadd(122.221, 119.4, 39.613, 0.868)
pt3dadd(122.161, 119.4, 39.699, 0.878)
pt3dadd(122.14, 119.4, 39.797, 0.898)
pt3dadd(122.119, 119.4, 39.896, 0.918)
pt3dadd(122.075, 119.4, 39.984, 0.938)
pt3dadd(121.993, 119.4, 40.058, 0.962)
pt3dadd(121.925, 119.4, 40.137, 0.996)
pt3dadd(121.892, 119.4, 40.233, 1.058)
pt3dadd(121.828, 119.4, 40.314, 1.118)
pt3dadd(121.745, 119.4, 40.387, 1.178)
pt3dadd(121.67, 119.4, 40.465, 1.224)
pt3dadd(121.603, 119.4, 40.548, 1.258)
pt3dadd(121.52, 119.4, 40.617, 1.28)
pt3dadd(121.414, 119.4, 40.661, 1.28)
pt3dadd(121.304, 119.4, 40.704, 1.276)
pt3dadd(121.189, 119.4, 40.731, 1.246)
pt3dadd(121.074, 119.4, 40.759, 1.214)
pt3dadd(120.978, 119.439, 40.803, 1.206)
pt3dadd(120.892, 119.494, 40.854, 1.206)
pt3dadd(120.804, 119.549, 40.905, 1.206)
pt3dadd(120.716, 119.604, 40.956, 1.206)
pt3dadd(120.648, 119.652, 41.025, 1.23)
pt3dadd(120.601, 119.694, 41.11, 1.27)
pt3dadd(120.568, 119.735, 41.2, 1.308)
pt3dadd(120.514, 119.768, 41.28, 1.33)
pt3dadd(120.422, 119.788, 41.343, 1.33)
pt3dadd(120.336, 119.82, 41.406, 1.306)
pt3dadd(120.254, 119.865, 41.468, 1.248)
pt3dadd(120.148, 119.88, 41.5, 1.184)
pt3dadd(120.029, 119.88, 41.517, 1.118)
pt3dadd(119.912, 119.881, 41.537, 1.052)
pt3dadd(119.811, 119.889, 41.59, 1.01)
pt3dadd(119.709, 119.897, 41.642, 0.968)
pt3dadd(119.607, 119.905, 41.695, 0.928)
pt3dadd(119.506, 119.913, 41.748, 0.886)
pt3dadd(119.404, 119.933, 41.793, 0.802)
pt3dadd(119.294, 119.97, 41.808, 0.686)
pt3dadd(119.176, 119.986, 41.822, 0.654)
pt3dadd(119.063, 120.006, 41.843, 0.626)
pt3dadd(118.968, 120.041, 41.897, 0.618)
pt3dadd(118.873, 120.076, 41.951, 0.61)
pt3dadd(118.778, 120.113, 42, 0.606)
pt3dadd(118.679, 120.181, 42, 0.628)
pt3dadd(118.58, 120.248, 42, 0.652)
pt3dadd(118.548, 120.354, 42.036, 0.7)
pt3dadd(118.522, 120.461, 42.076, 0.75)
pt3dadd(118.439, 120.493, 42.139, 0.83)
pt3dadd(118.354, 120.526, 42.204, 0.908)
pt3dadd(118.285, 120.602, 42.255, 0.966)
pt3dadd(118.226, 120.689, 42.301, 1.004)
pt3dadd(118.17, 120.768, 42.356, 0.964)
pt3dadd(118.109, 120.838, 42.42, 0.906)
pt3dadd(118.033, 120.906, 42.471, 0.834)
pt3dadd(117.964, 120.983, 42.519, 0.752)
pt3dadd(117.907, 121.067, 42.567, 0.704)
pt3dadd(117.792, 121.08, 42.592, 0.778)
pt3dadd(117.673, 121.08, 42.6, 0.848)
pt3dadd(117.553, 121.08, 42.605, 0.89)
pt3dadd(117.44, 121.08, 42.633, 0.904)
pt3dadd(117.373, 121.08, 42.711, 0.904)
pt3dadd(117.36, 121.08, 42.811, 0.904)
pt3dadd(117.36, 121.08, 42.911, 0.906)
pt3dadd(117.36, 121.08, 43.011, 0.934)
pt3dadd(117.36, 121.08, 43.111, 0.984)
pt3dadd(117.36, 121.08, 43.211, 1.038)
pt3dadd(117.353, 121.08, 43.309, 1.106)
pt3dadd(117.287, 121.08, 43.392, 1.116)
pt3dadd(117.221, 121.08, 43.476, 1.126)
pt3dadd(117.155, 121.08, 43.56, 1.136)
pt3dadd(117.089, 121.08, 43.643, 1.146)
pt3dadd(117.021, 121.08, 43.725, 1.156)
pt3dadd(116.928, 121.08, 43.788, 1.17)
pt3dadd(116.834, 121.08, 43.85, 1.186)
pt3dadd(116.74, 121.08, 43.913, 1.202)
pt3dadd(116.647, 121.08, 43.975, 1.216)
pt3dadd(116.553, 121.08, 44.037, 1.23)
pt3dadd(116.453, 121.088, 44.093, 1.224)
pt3dadd(116.353, 121.097, 44.148, 1.22)
pt3dadd(116.254, 121.105, 44.203, 1.214)
pt3dadd(116.154, 121.114, 44.259, 1.21)
pt3dadd(116.051, 121.13, 44.3, 1.206)
pt3dadd(115.94, 121.174, 44.3, 1.206)
pt3dadd(115.835, 121.192, 44.337, 1.214)
pt3dadd(115.733, 121.198, 44.39, 1.226)
pt3dadd(115.689, 121.234, 44.465, 1.266)
pt3dadd(115.683, 121.29, 44.553, 1.324)
pt3dadd(115.68, 121.345, 44.642, 1.376)
}
}
proc shape3d_167() {
dend_7[29] { pt3dadd(115.68, 121.399, 44.731, 1.422)
pt3dadd(115.68, 121.444, 44.823, 1.456)
pt3dadd(115.68, 121.458, 44.922, 1.456)
pt3dadd(115.68, 121.472, 45.021, 1.456)
pt3dadd(115.66, 121.489, 45.118, 1.446)
pt3dadd(115.622, 121.508, 45.211, 1.426)
pt3dadd(115.584, 121.528, 45.305, 1.406)
pt3dadd(115.547, 121.546, 45.398, 1.384)
pt3dadd(115.509, 121.565, 45.492, 1.364)
pt3dadd(115.486, 121.584, 45.588, 1.342)
pt3dadd(115.475, 121.603, 45.687, 1.314)
pt3dadd(115.463, 121.621, 45.785, 1.288)
pt3dadd(115.451, 121.64, 45.883, 1.262)
pt3dadd(115.44, 121.66, 45.981, 1.234)
pt3dadd(115.428, 121.679, 46.08, 1.208)
pt3dadd(115.397, 121.68, 46.176, 1.076)
pt3dadd(115.364, 121.68, 46.272, 1.046)
pt3dadd(115.331, 121.68, 46.368, 1.014)
pt3dadd(115.32, 121.727, 46.455, 1.004)
pt3dadd(115.32, 121.796, 46.536, 1.004)
pt3dadd(115.32, 121.866, 46.617, 1.004)
pt3dadd(115.284, 121.951, 46.678, 1.026)
pt3dadd(115.239, 122.041, 46.733, 1.054)
pt3dadd(115.195, 122.149, 46.757, 1.07)
pt3dadd(115.151, 122.257, 46.78, 1.086)
pt3dadd(115.107, 122.365, 46.804, 1.1)
pt3dadd(115.089, 122.438, 46.871, 1.12)
pt3dadd(115.083, 122.494, 46.959, 1.144)
pt3dadd(115.072, 122.522, 47.053, 1.17)
pt3dadd(115.056, 122.528, 47.152, 1.2)
pt3dadd(115.041, 122.533, 47.251, 1.23)
pt3dadd(114.949, 122.582, 47.297, 1.27)
pt3dadd(114.852, 122.63, 47.339, 1.31)
pt3dadd(114.744, 122.657, 47.378, 1.334)
pt3dadd(114.645, 122.688, 47.422, 1.35)
pt3dadd(114.589, 122.744, 47.497, 1.308)
pt3dadd(114.542, 122.772, 47.586, 1.282)
pt3dadd(114.495, 122.798, 47.675, 1.256)
pt3dadd(114.414, 122.843, 47.738, 1.214)
pt3dadd(114.326, 122.887, 47.793, 1.176)
pt3dadd(114.216, 122.927, 47.815, 1.152)
pt3dadd(114.112, 122.972, 47.839, 1.124)
pt3dadd(114.052, 123.062, 47.883, 1.082)
pt3dadd(113.989, 123.148, 47.929, 1.05)
pt3dadd(113.92, 123.227, 47.978, 1.038)
pt3dadd(113.851, 123.306, 48.027, 1.026)
pt3dadd(113.783, 123.384, 48.076, 1.014)
pt3dadd(113.704, 123.452, 48.121, 1.016)
pt3dadd(113.618, 123.52, 48.158, 1.066)
pt3dadd(113.543, 123.602, 48.195, 1.122)
pt3dadd(113.485, 123.695, 48.236, 1.184)
pt3dadd(113.43, 123.788, 48.277, 1.246)
pt3dadd(113.376, 123.84, 48.341, 1.302)
pt3dadd(113.322, 123.84, 48.43, 1.346)
pt3dadd(113.258, 123.851, 48.509, 1.378)
pt3dadd(113.16, 123.9, 48.55, 1.368)
pt3dadd(113.062, 123.949, 48.591, 1.358)
pt3dadd(112.962, 124.007, 48.613, 1.298)
pt3dadd(112.86, 124.068, 48.63, 1.22)
pt3dadd(112.773, 124.09, 48.689, 1.158)
pt3dadd(112.688, 124.102, 48.76, 1.096)
pt3dadd(112.604, 124.114, 48.83, 1.036)
pt3dadd(112.557, 124.166, 48.895, 0.976)
pt3dadd(112.551, 124.262, 48.954, 0.914)
pt3dadd(112.525, 124.348, 49.017, 0.862)
pt3dadd(112.472, 124.416, 49.087, 0.818)
pt3dadd(112.423, 124.44, 49.171, 0.79)
pt3dadd(112.376, 124.44, 49.263, 0.768)
pt3dadd(112.322, 124.44, 49.352, 0.744)
pt3dadd(112.254, 124.44, 49.434, 0.722)
pt3dadd(112.187, 124.44, 49.517, 0.7)
pt3dadd(112.122, 124.44, 49.601, 0.682)
pt3dadd(112.029, 124.44, 49.66, 0.696)
pt3dadd(111.925, 124.44, 49.711, 0.718)
pt3dadd(111.833, 124.47, 49.765, 0.768)
pt3dadd(111.75, 124.523, 49.822, 0.84)
pt3dadd(111.728, 124.606, 49.885, 0.922)
pt3dadd(111.722, 124.697, 49.951, 1.008)
pt3dadd(111.691, 124.802, 49.983, 1.058)
pt3dadd(111.651, 124.913, 50.005, 1.094)
pt3dadd(111.59, 125.003, 50.041, 1.1)
pt3dadd(111.519, 125.084, 50.085, 1.094)
pt3dadd(111.447, 125.166, 50.128, 1.088)
pt3dadd(111.376, 125.246, 50.171, 1.082)
pt3dadd(111.287, 125.312, 50.207, 1.07)
pt3dadd(111.187, 125.368, 50.237, 1.052)
pt3dadd(111.087, 125.422, 50.268, 1.036)
pt3dadd(110.986, 125.477, 50.298, 1.018)
pt3dadd(110.893, 125.537, 50.333, 1.004)
pt3dadd(110.827, 125.615, 50.385, 1.004)
pt3dadd(110.762, 125.694, 50.437, 1.004)
pt3dadd(110.696, 125.773, 50.489, 1.004)
pt3dadd(110.636, 125.852, 50.543, 1.004)
pt3dadd(110.609, 125.935, 50.612, 1.004)
pt3dadd(110.581, 126.017, 50.681, 1.004)
pt3dadd(110.553, 126.1, 50.75, 1.004)
pt3dadd(110.526, 126.182, 50.818, 1.004)
pt3dadd(110.518, 126.284, 50.868, 0.978)
pt3dadd(110.475, 126.384, 50.91, 0.966)
pt3dadd(110.43, 126.468, 50.96, 0.954)
pt3dadd(110.372, 126.478, 51.047, 0.954)
pt3dadd(110.315, 126.487, 51.135, 0.954)
pt3dadd(110.238, 126.512, 51.191, 0.958)
pt3dadd(110.128, 126.56, 51.196, 0.97)
pt3dadd(110.019, 126.608, 51.205, 0.976)
pt3dadd(109.913, 126.654, 51.23, 0.956)
pt3dadd(109.806, 126.701, 51.256, 0.938)
pt3dadd(109.703, 126.749, 51.287, 0.922)
pt3dadd(109.603, 126.799, 51.323, 0.908)
pt3dadd(109.562, 126.886, 51.368, 0.904)
pt3dadd(109.546, 126.989, 51.418, 0.904)
pt3dadd(109.531, 127.092, 51.467, 0.904)
pt3dadd(109.508, 127.199, 51.505, 0.92)
pt3dadd(109.47, 127.31, 51.521, 0.966)
pt3dadd(109.439, 127.422, 51.543, 1.012)
pt3dadd(109.433, 127.528, 51.59, 1.046)
pt3dadd(109.422, 127.63, 51.638, 1.082)
pt3dadd(109.349, 127.666, 51.711, 1.11)
pt3dadd(109.281, 127.716, 51.777, 1.134)
pt3dadd(109.23, 127.812, 51.82, 1.148)
pt3dadd(109.187, 127.889, 51.881, 1.164)
pt3dadd(109.155, 127.946, 51.961, 1.182)
pt3dadd(109.111, 128.047, 52.003, 1.196)
pt3dadd(109.066, 128.143, 52.049, 1.194)
pt3dadd(109.012, 128.226, 52.105, 1.152)
pt3dadd(108.944, 128.305, 52.152, 1.094)
pt3dadd(108.862, 128.38, 52.19, 1.024)
pt3dadd(108.759, 128.404, 52.228, 0.916)
pt3dadd(108.648, 128.41, 52.266, 0.798)
pt3dadd(108.538, 128.416, 52.304, 0.678)
}
dend_0[5] {pt3dclear()
pt3dadd(130.8, 103.843, 21.237, 7.232)
pt3dadd(130.811, 103.835, 21.236, 7.224)
pt3dadd(130.904, 103.76, 21.229, 7.164)
pt3dadd(130.998, 103.686, 21.222, 7.104)
pt3dadd(131.093, 103.612, 21.215, 7.042)
pt3dadd(131.186, 103.538, 21.208, 6.982)
pt3dadd(131.28, 103.463, 21.2, 6.922)
pt3dadd(131.374, 103.389, 21.193, 6.86)
pt3dadd(131.468, 103.315, 21.186, 6.8)
pt3dadd(131.562, 103.24, 21.179, 6.74)
pt3dadd(131.656, 103.166, 21.172, 6.678)
pt3dadd(131.749, 103.092, 21.165, 6.618)
pt3dadd(131.843, 103.017, 21.158, 6.556)
pt3dadd(131.938, 102.943, 21.151, 6.496)
pt3dadd(132.031, 102.869, 21.143, 6.436)
pt3dadd(132.125, 102.795, 21.136, 6.374)
pt3dadd(132.218, 102.72, 21.129, 6.314)
pt3dadd(132.313, 102.647, 21.124, 6.248)
}
dend_7[30] {pt3dclear()
pt3dadd(132.313, 102.647, 21.124, 6.248)
pt3dadd(132.41, 102.577, 21.127, 6.166)
pt3dadd(132.509, 102.508, 21.13, 6.082)
pt3dadd(132.607, 102.439, 21.132, 5.998)
pt3dadd(132.704, 102.369, 21.135, 5.914)
pt3dadd(132.803, 102.3, 21.138, 5.83)
pt3dadd(132.9, 102.23, 21.141, 5.746)
pt3dadd(132.998, 102.161, 21.144, 5.662)
pt3dadd(133.096, 102.092, 21.147, 5.578)
pt3dadd(133.194, 102.022, 21.15, 5.494)
pt3dadd(133.292, 101.956, 21.158, 5.4)
pt3dadd(133.394, 101.897, 21.178, 5.278)
pt3dadd(133.496, 101.838, 21.199, 5.158)
pt3dadd(133.597, 101.78, 21.219, 5.036)
pt3dadd(133.699, 101.721, 21.24, 4.914)
pt3dadd(133.801, 101.662, 21.26, 4.792)
pt3dadd(133.903, 101.603, 21.28, 4.672)
pt3dadd(134.005, 101.545, 21.301, 4.55)
pt3dadd(134.106, 101.486, 21.321, 4.428)
pt3dadd(134.208, 101.427, 21.342, 4.306)
pt3dadd(134.31, 101.371, 21.364, 4.186)
pt3dadd(134.414, 101.321, 21.392, 4.07)
pt3dadd(134.519, 101.271, 21.419, 3.954)
pt3dadd(134.622, 101.221, 21.447, 3.838)
pt3dadd(134.726, 101.171, 21.474, 3.722)
pt3dadd(134.83, 101.121, 21.502, 3.606)
pt3dadd(134.934, 101.071, 21.53, 3.492)
pt3dadd(135.038, 101.021, 21.557, 3.376)
pt3dadd(135.142, 100.971, 21.585, 3.26)
pt3dadd(135.246, 100.921, 21.613, 3.144)
pt3dadd(135.35, 100.879, 21.646, 3.034)
pt3dadd(135.455, 100.85, 21.688, 2.934)
pt3dadd(135.56, 100.821, 21.73, 2.836)
pt3dadd(135.665, 100.792, 21.773, 2.736)
pt3dadd(135.769, 100.763, 21.815, 2.636)
pt3dadd(135.875, 100.734, 21.857, 2.536)
pt3dadd(135.979, 100.705, 21.899, 2.436)
pt3dadd(136.084, 100.676, 21.941, 2.338)
pt3dadd(136.189, 100.647, 21.984, 2.238)
pt3dadd(136.294, 100.618, 22.026, 2.138)
pt3dadd(136.402, 100.594, 22.064, 2.048)
pt3dadd(136.513, 100.577, 22.098, 1.97)
pt3dadd(136.625, 100.56, 22.131, 1.892)
pt3dadd(136.736, 100.542, 22.165, 1.816)
pt3dadd(136.848, 100.525, 22.198, 1.738)
pt3dadd(136.961, 100.508, 22.232, 1.662)
pt3dadd(137.072, 100.491, 22.265, 1.584)
pt3dadd(137.184, 100.474, 22.299, 1.506)
pt3dadd(137.296, 100.457, 22.332, 1.43)
pt3dadd(137.407, 100.44, 22.366, 1.352)
pt3dadd(137.52, 100.425, 22.398, 1.282)
pt3dadd(137.634, 100.414, 22.427, 1.22)
}
}
proc shape3d_168() {
dend_7[30] { pt3dadd(137.748, 100.402, 22.457, 1.16)
pt3dadd(137.862, 100.39, 22.486, 1.1)
pt3dadd(137.976, 100.379, 22.515, 1.038)
pt3dadd(138.09, 100.367, 22.545, 0.978)
pt3dadd(138.205, 100.355, 22.574, 0.916)
pt3dadd(138.319, 100.344, 22.604, 0.856)
pt3dadd(138.433, 100.332, 22.633, 0.796)
pt3dadd(138.547, 100.32, 22.663, 0.734)
pt3dadd(138.662, 100.314, 22.689, 0.714)
pt3dadd(138.779, 100.314, 22.711, 0.742)
pt3dadd(138.896, 100.315, 22.733, 0.77)
pt3dadd(139.013, 100.315, 22.756, 0.798)
pt3dadd(139.13, 100.315, 22.778, 0.826)
pt3dadd(139.247, 100.315, 22.8, 0.854)
pt3dadd(139.364, 100.316, 22.822, 0.882)
pt3dadd(139.481, 100.316, 22.845, 0.912)
pt3dadd(139.598, 100.316, 22.867, 0.94)
pt3dadd(139.715, 100.316, 22.889, 0.968)
pt3dadd(139.831, 100.317, 22.914, 0.986)
pt3dadd(139.946, 100.317, 22.944, 0.996)
pt3dadd(140.06, 100.317, 22.973, 1.004)
pt3dadd(140.176, 100.317, 23.003, 1.012)
pt3dadd(140.29, 100.317, 23.032, 1.02)
pt3dadd(140.405, 100.318, 23.062, 1.028)
pt3dadd(140.519, 100.318, 23.091, 1.036)
pt3dadd(140.634, 100.318, 23.121, 1.044)
pt3dadd(140.748, 100.318, 23.151, 1.054)
pt3dadd(140.863, 100.319, 23.18, 1.062)
pt3dadd(140.976, 100.319, 23.213, 1.06)
pt3dadd(141.088, 100.319, 23.25, 1.046)
pt3dadd(141.199, 100.32, 23.288, 1.032)
pt3dadd(141.311, 100.32, 23.325, 1.018)
pt3dadd(141.421, 100.32, 23.362, 1.006)
pt3dadd(141.533, 100.321, 23.399, 0.992)
pt3dadd(141.644, 100.321, 23.436, 0.978)
pt3dadd(141.756, 100.321, 23.474, 0.966)
pt3dadd(141.868, 100.322, 23.511, 0.952)
pt3dadd(141.979, 100.322, 23.548, 0.938)
pt3dadd(142.092, 100.323, 23.58, 0.936)
pt3dadd(142.207, 100.323, 23.607, 0.944)
pt3dadd(142.324, 100.324, 23.634, 0.952)
pt3dadd(142.439, 100.324, 23.66, 0.96)
pt3dadd(142.555, 100.325, 23.687, 0.97)
pt3dadd(142.67, 100.326, 23.714, 0.978)
pt3dadd(142.786, 100.326, 23.741, 0.986)
pt3dadd(142.902, 100.327, 23.767, 0.994)
pt3dadd(143.017, 100.327, 23.794, 1.004)
pt3dadd(143.132, 100.328, 23.821, 1.012)
pt3dadd(143.249, 100.329, 23.845, 1.022)
pt3dadd(143.366, 100.33, 23.867, 1.034)
pt3dadd(143.484, 100.331, 23.888, 1.044)
pt3dadd(143.6, 100.332, 23.91, 1.056)
pt3dadd(143.718, 100.333, 23.931, 1.068)
pt3dadd(143.834, 100.334, 23.953, 1.078)
pt3dadd(143.952, 100.335, 23.975, 1.09)
pt3dadd(144.07, 100.337, 23.996, 1.102)
pt3dadd(144.186, 100.338, 24.018, 1.114)
pt3dadd(144.304, 100.339, 24.04, 1.124)
pt3dadd(144.422, 100.34, 24.056, 1.13)
pt3dadd(144.541, 100.342, 24.067, 1.13)
pt3dadd(144.66, 100.343, 24.078, 1.13)
pt3dadd(144.78, 100.345, 24.089, 1.13)
pt3dadd(144.899, 100.347, 24.101, 1.13)
pt3dadd(145.018, 100.348, 24.112, 1.13)
pt3dadd(145.138, 100.35, 24.123, 1.13)
pt3dadd(145.256, 100.352, 24.134, 1.13)
pt3dadd(145.375, 100.353, 24.145, 1.13)
pt3dadd(145.495, 100.355, 24.156, 1.13)
pt3dadd(145.614, 100.357, 24.164, 1.116)
pt3dadd(145.734, 100.36, 24.169, 1.088)
pt3dadd(145.854, 100.363, 24.173, 1.062)
pt3dadd(145.974, 100.366, 24.177, 1.034)
pt3dadd(146.094, 100.368, 24.182, 1.008)
pt3dadd(146.214, 100.371, 24.186, 0.98)
pt3dadd(146.334, 100.374, 24.191, 0.954)
pt3dadd(146.454, 100.377, 24.195, 0.926)
pt3dadd(146.573, 100.38, 24.199, 0.9)
pt3dadd(146.693, 100.382, 24.204, 0.872)
pt3dadd(146.813, 100.386, 24.206, 0.838)
pt3dadd(146.933, 100.39, 24.206, 0.796)
pt3dadd(147.053, 100.394, 24.207, 0.754)
pt3dadd(147.173, 100.398, 24.207, 0.712)
pt3dadd(147.293, 100.401, 24.207, 0.67)
pt3dadd(147.413, 100.405, 24.208, 0.63)
pt3dadd(147.533, 100.409, 24.208, 0.588)
pt3dadd(147.653, 100.413, 24.208, 0.546)
pt3dadd(147.773, 100.417, 24.208, 0.504)
pt3dadd(147.893, 100.421, 24.209, 0.462)
pt3dadd(148.013, 100.428, 24.209, 0.436)
pt3dadd(148.132, 100.436, 24.21, 0.42)
pt3dadd(148.252, 100.445, 24.21, 0.406)
pt3dadd(148.372, 100.454, 24.211, 0.392)
pt3dadd(148.492, 100.462, 24.211, 0.376)
pt3dadd(148.61, 100.471, 24.212, 0.362)
pt3dadd(148.73, 100.48, 24.212, 0.348)
pt3dadd(148.85, 100.488, 24.213, 0.334)
pt3dadd(148.969, 100.497, 24.214, 0.318)
pt3dadd(149.089, 100.506, 24.214, 0.304)
pt3dadd(149.209, 100.516, 24.215, 0.306)
pt3dadd(149.328, 100.527, 24.216, 0.32)
pt3dadd(149.448, 100.539, 24.217, 0.336)
pt3dadd(149.567, 100.551, 24.218, 0.35)
pt3dadd(149.687, 100.562, 24.219, 0.366)
pt3dadd(149.806, 100.574, 24.22, 0.38)
pt3dadd(149.926, 100.586, 24.221, 0.396)
pt3dadd(150.046, 100.597, 24.222, 0.41)
pt3dadd(150.164, 100.609, 24.222, 0.426)
pt3dadd(150.284, 100.621, 24.223, 0.442)
pt3dadd(150.403, 100.634, 24.224, 0.472)
pt3dadd(150.522, 100.648, 24.226, 0.516)
pt3dadd(150.641, 100.663, 24.227, 0.558)
pt3dadd(150.761, 100.677, 24.228, 0.602)
pt3dadd(150.88, 100.692, 24.23, 0.646)
pt3dadd(150.998, 100.706, 24.231, 0.69)
pt3dadd(151.117, 100.721, 24.232, 0.734)
pt3dadd(151.237, 100.735, 24.234, 0.778)
pt3dadd(151.356, 100.75, 24.235, 0.822)
pt3dadd(151.475, 100.764, 24.236, 0.864)
pt3dadd(151.59, 100.795, 24.238, 0.88)
pt3dadd(151.702, 100.84, 24.24, 0.868)
pt3dadd(151.812, 100.885, 24.243, 0.856)
pt3dadd(151.924, 100.931, 24.245, 0.846)
pt3dadd(152.034, 100.976, 24.248, 0.834)
pt3dadd(152.146, 101.021, 24.25, 0.822)
pt3dadd(152.257, 101.066, 24.252, 0.812)
pt3dadd(152.368, 101.111, 24.255, 0.8)
pt3dadd(152.479, 101.157, 24.257, 0.788)
pt3dadd(152.591, 101.202, 24.259, 0.778)
pt3dadd(152.702, 101.245, 24.263, 0.768)
pt3dadd(152.814, 101.287, 24.266, 0.758)
pt3dadd(152.927, 101.33, 24.27, 0.748)
pt3dadd(153.038, 101.372, 24.274, 0.74)
pt3dadd(153.151, 101.414, 24.278, 0.73)
pt3dadd(153.263, 101.456, 24.281, 0.72)
pt3dadd(153.376, 101.499, 24.285, 0.71)
pt3dadd(153.487, 101.541, 24.289, 0.702)
pt3dadd(153.6, 101.583, 24.292, 0.692)
pt3dadd(153.712, 101.625, 24.296, 0.682)
pt3dadd(153.826, 101.662, 24.302, 0.678)
pt3dadd(153.941, 101.694, 24.308, 0.678)
pt3dadd(154.056, 101.727, 24.315, 0.678)
pt3dadd(154.172, 101.759, 24.321, 0.678)
pt3dadd(154.288, 101.791, 24.328, 0.678)
pt3dadd(154.403, 101.824, 24.335, 0.678)
pt3dadd(154.518, 101.856, 24.341, 0.678)
pt3dadd(154.633, 101.889, 24.348, 0.678)
pt3dadd(154.748, 101.921, 24.354, 0.678)
pt3dadd(154.864, 101.953, 24.361, 0.678)
pt3dadd(154.98, 101.98, 24.37, 0.686)
pt3dadd(155.096, 102.003, 24.38, 0.698)
pt3dadd(155.214, 102.026, 24.391, 0.71)
pt3dadd(155.332, 102.049, 24.401, 0.724)
pt3dadd(155.448, 102.072, 24.411, 0.736)
pt3dadd(155.566, 102.095, 24.422, 0.75)
pt3dadd(155.683, 102.117, 24.432, 0.762)
pt3dadd(155.8, 102.14, 24.443, 0.776)
pt3dadd(155.917, 102.163, 24.453, 0.788)
pt3dadd(156.034, 102.186, 24.463, 0.8)
pt3dadd(156.15, 102.205, 24.484, 0.816)
pt3dadd(156.264, 102.221, 24.512, 0.836)
pt3dadd(156.378, 102.237, 24.54, 0.854)
pt3dadd(156.492, 102.253, 24.569, 0.872)
pt3dadd(156.606, 102.269, 24.597, 0.89)
pt3dadd(156.72, 102.285, 24.625, 0.908)
pt3dadd(156.834, 102.301, 24.653, 0.926)
pt3dadd(156.948, 102.317, 24.681, 0.944)
pt3dadd(157.062, 102.333, 24.71, 0.962)
pt3dadd(157.176, 102.349, 24.738, 0.98)
pt3dadd(157.283, 102.366, 24.779, 0.98)
pt3dadd(157.39, 102.384, 24.824, 0.974)
pt3dadd(157.495, 102.403, 24.868, 0.968)
pt3dadd(157.601, 102.421, 24.912, 0.962)
pt3dadd(157.708, 102.439, 24.957, 0.956)
pt3dadd(157.813, 102.457, 25.001, 0.95)
pt3dadd(157.919, 102.475, 25.046, 0.944)
pt3dadd(158.024, 102.493, 25.09, 0.94)
pt3dadd(158.131, 102.511, 25.135, 0.934)
pt3dadd(158.237, 102.529, 25.179, 0.928)
pt3dadd(158.346, 102.571, 25.2, 0.858)
pt3dadd(158.456, 102.613, 25.222, 0.788)
pt3dadd(158.566, 102.654, 25.243, 0.718)
pt3dadd(158.675, 102.696, 25.264, 0.648)
pt3dadd(158.785, 102.738, 25.286, 0.576)
pt3dadd(158.894, 102.78, 25.307, 0.506)
pt3dadd(159.004, 102.822, 25.328, 0.436)
pt3dadd(159.113, 102.863, 25.35, 0.366)
pt3dadd(159.223, 102.905, 25.371, 0.296)
pt3dadd(159.332, 102.947, 25.392, 0.226)
}
dend_7[31] {pt3dclear()
pt3dadd(159.332, 102.947, 25.392, 0.226)
pt3dadd(159.377, 103.026, 25.402, 0.226)
pt3dadd(159.434, 103.13, 25.415, 0.226)
pt3dadd(159.492, 103.234, 25.428, 0.226)
pt3dadd(159.551, 103.338, 25.441, 0.226)
pt3dadd(159.608, 103.442, 25.454, 0.226)
pt3dadd(159.666, 103.546, 25.466, 0.226)
pt3dadd(159.725, 103.65, 25.479, 0.226)
pt3dadd(159.782, 103.754, 25.492, 0.226)
pt3dadd(159.84, 103.857, 25.505, 0.226)
pt3dadd(159.899, 103.962, 25.518, 0.226)
pt3dadd(159.956, 104.065, 25.531, 0.226)
}
}
proc shape3d_169() {
dend_7[31] { pt3dadd(160.014, 104.169, 25.544, 0.226)
pt3dadd(160.072, 104.273, 25.556, 0.226)
pt3dadd(160.13, 104.377, 25.569, 0.226)
pt3dadd(160.188, 104.481, 25.582, 0.226)
pt3dadd(160.246, 104.585, 25.595, 0.226)
pt3dadd(160.304, 104.689, 25.608, 0.226)
pt3dadd(160.362, 104.793, 25.621, 0.226)
pt3dadd(160.42, 104.897, 25.634, 0.226)
pt3dadd(160.478, 105.001, 25.646, 0.226)
pt3dadd(160.536, 105.105, 25.659, 0.226)
pt3dadd(160.594, 105.209, 25.672, 0.226)
pt3dadd(160.651, 105.313, 25.685, 0.226)
pt3dadd(160.71, 105.417, 25.698, 0.226)
pt3dadd(160.804, 105.488, 25.706, 0.226)
pt3dadd(160.903, 105.555, 25.713, 0.226)
pt3dadd(161.003, 105.621, 25.72, 0.226)
pt3dadd(161.102, 105.687, 25.726, 0.226)
pt3dadd(161.202, 105.753, 25.733, 0.226)
pt3dadd(161.302, 105.82, 25.74, 0.226)
pt3dadd(161.401, 105.886, 25.747, 0.226)
pt3dadd(161.501, 105.952, 25.754, 0.226)
pt3dadd(161.6, 106.018, 25.761, 0.226)
pt3dadd(161.718, 106.042, 25.762, 0.226)
pt3dadd(161.836, 106.059, 25.762, 0.226)
pt3dadd(161.954, 106.077, 25.762, 0.226)
pt3dadd(162.073, 106.095, 25.761, 0.226)
pt3dadd(162.192, 106.113, 25.761, 0.226)
pt3dadd(162.311, 106.131, 25.761, 0.226)
pt3dadd(162.43, 106.148, 25.761, 0.226)
pt3dadd(162.548, 106.166, 25.761, 0.226)
pt3dadd(162.667, 106.184, 25.761, 0.226)
pt3dadd(162.786, 106.202, 25.761, 0.226)
pt3dadd(162.904, 106.222, 25.761, 0.248)
pt3dadd(163.022, 106.243, 25.761, 0.272)
pt3dadd(163.14, 106.263, 25.761, 0.296)
pt3dadd(163.259, 106.284, 25.761, 0.32)
pt3dadd(163.376, 106.305, 25.761, 0.346)
pt3dadd(163.495, 106.326, 25.761, 0.37)
pt3dadd(163.613, 106.347, 25.761, 0.394)
pt3dadd(163.732, 106.367, 25.761, 0.418)
pt3dadd(163.849, 106.388, 25.761, 0.442)
pt3dadd(163.968, 106.409, 25.761, 0.468)
pt3dadd(164.083, 106.441, 25.761, 0.51)
pt3dadd(164.198, 106.475, 25.76, 0.554)
pt3dadd(164.314, 106.508, 25.76, 0.596)
pt3dadd(164.429, 106.542, 25.76, 0.64)
pt3dadd(164.544, 106.576, 25.76, 0.684)
pt3dadd(164.659, 106.61, 25.76, 0.728)
pt3dadd(164.774, 106.643, 25.76, 0.772)
pt3dadd(164.89, 106.677, 25.76, 0.816)
pt3dadd(165.005, 106.711, 25.76, 0.86)
pt3dadd(165.12, 106.744, 25.76, 0.904)
pt3dadd(165.227, 106.798, 25.76, 0.968)
pt3dadd(165.334, 106.853, 25.759, 1.034)
pt3dadd(165.44, 106.908, 25.759, 1.098)
pt3dadd(165.547, 106.962, 25.759, 1.162)
pt3dadd(165.654, 107.016, 25.759, 1.226)
pt3dadd(165.761, 107.071, 25.759, 1.29)
pt3dadd(165.868, 107.125, 25.759, 1.356)
pt3dadd(165.976, 107.18, 25.759, 1.42)
pt3dadd(166.082, 107.234, 25.758, 1.484)
pt3dadd(166.189, 107.289, 25.758, 1.548)
pt3dadd(166.297, 107.341, 25.758, 1.552)
pt3dadd(166.405, 107.392, 25.758, 1.554)
pt3dadd(166.513, 107.444, 25.758, 1.556)
pt3dadd(166.622, 107.496, 25.758, 1.558)
pt3dadd(166.73, 107.548, 25.757, 1.56)
pt3dadd(166.838, 107.599, 25.757, 1.562)
pt3dadd(166.946, 107.651, 25.757, 1.564)
pt3dadd(167.056, 107.703, 25.757, 1.566)
pt3dadd(167.164, 107.754, 25.757, 1.568)
pt3dadd(167.272, 107.806, 25.756, 1.572)
pt3dadd(167.381, 107.856, 25.756, 1.532)
pt3dadd(167.49, 107.906, 25.756, 1.492)
pt3dadd(167.599, 107.956, 25.755, 1.452)
pt3dadd(167.708, 108.005, 25.755, 1.414)
pt3dadd(167.818, 108.055, 25.755, 1.374)
pt3dadd(167.927, 108.105, 25.755, 1.334)
pt3dadd(168.036, 108.155, 25.754, 1.294)
pt3dadd(168.145, 108.205, 25.754, 1.256)
pt3dadd(168.254, 108.254, 25.754, 1.216)
pt3dadd(168.364, 108.304, 25.754, 1.176)
pt3dadd(168.464, 108.369, 25.753, 1.14)
pt3dadd(168.565, 108.434, 25.753, 1.104)
pt3dadd(168.666, 108.499, 25.752, 1.066)
pt3dadd(168.767, 108.564, 25.752, 1.03)
pt3dadd(168.868, 108.63, 25.751, 0.994)
pt3dadd(168.968, 108.695, 25.751, 0.958)
pt3dadd(169.069, 108.76, 25.75, 0.922)
pt3dadd(169.17, 108.825, 25.75, 0.886)
pt3dadd(169.271, 108.89, 25.749, 0.848)
pt3dadd(169.372, 108.955, 25.749, 0.812)
pt3dadd(169.471, 109.022, 25.748, 0.776)
pt3dadd(169.571, 109.089, 25.748, 0.74)
pt3dadd(169.67, 109.156, 25.747, 0.704)
pt3dadd(169.77, 109.224, 25.747, 0.668)
pt3dadd(169.868, 109.291, 25.746, 0.632)
pt3dadd(169.968, 109.358, 25.745, 0.596)
pt3dadd(170.068, 109.425, 25.745, 0.56)
pt3dadd(170.167, 109.492, 25.745, 0.524)
pt3dadd(170.267, 109.559, 25.744, 0.488)
pt3dadd(170.366, 109.626, 25.743, 0.452)
}
dend_7[32] {pt3dclear()
pt3dadd(170.366, 109.626, 25.743, 0.452)
pt3dadd(170.374, 109.632, 25.743, 0.454)
pt3dadd(170.47, 109.704, 25.742, 0.476)
pt3dadd(170.566, 109.776, 25.741, 0.5)
pt3dadd(170.662, 109.848, 25.74, 0.524)
pt3dadd(170.758, 109.92, 25.739, 0.546)
pt3dadd(170.854, 109.993, 25.738, 0.57)
pt3dadd(170.948, 110.065, 25.736, 0.592)
pt3dadd(171.044, 110.137, 25.735, 0.616)
pt3dadd(171.14, 110.209, 25.734, 0.638)
pt3dadd(171.236, 110.282, 25.733, 0.662)
pt3dadd(171.332, 110.354, 25.732, 0.686)
pt3dadd(171.428, 110.426, 25.731, 0.708)
pt3dadd(171.524, 110.498, 25.73, 0.732)
pt3dadd(171.619, 110.571, 25.729, 0.754)
pt3dadd(171.715, 110.643, 25.727, 0.778)
pt3dadd(171.811, 110.715, 25.726, 0.8)
pt3dadd(171.907, 110.787, 25.725, 0.824)
pt3dadd(172.003, 110.86, 25.724, 0.848)
pt3dadd(172.099, 110.932, 25.723, 0.87)
pt3dadd(172.2, 110.996, 25.721, 0.886)
pt3dadd(172.303, 111.056, 25.719, 0.9)
pt3dadd(172.408, 111.117, 25.716, 0.914)
pt3dadd(172.511, 111.177, 25.714, 0.928)
pt3dadd(172.614, 111.238, 25.712, 0.942)
pt3dadd(172.718, 111.298, 25.709, 0.956)
pt3dadd(172.822, 111.359, 25.707, 0.97)
pt3dadd(172.925, 111.419, 25.705, 0.984)
pt3dadd(173.029, 111.48, 25.702, 0.998)
pt3dadd(173.132, 111.54, 25.7, 1.012)
pt3dadd(173.237, 111.6, 25.697, 1.022)
pt3dadd(173.34, 111.66, 25.694, 1.032)
pt3dadd(173.444, 111.719, 25.692, 1.04)
pt3dadd(173.549, 111.778, 25.689, 1.05)
pt3dadd(173.653, 111.838, 25.686, 1.06)
pt3dadd(173.758, 111.897, 25.683, 1.068)
pt3dadd(173.862, 111.957, 25.681, 1.078)
pt3dadd(173.965, 112.016, 25.678, 1.086)
pt3dadd(174.07, 112.076, 25.675, 1.096)
pt3dadd(174.174, 112.135, 25.672, 1.106)
pt3dadd(174.275, 112.199, 25.667, 1.09)
pt3dadd(174.374, 112.265, 25.661, 1.066)
pt3dadd(174.475, 112.332, 25.655, 1.042)
pt3dadd(174.575, 112.398, 25.649, 1.018)
pt3dadd(174.674, 112.464, 25.644, 0.994)
pt3dadd(174.774, 112.53, 25.638, 0.97)
pt3dadd(174.874, 112.597, 25.632, 0.946)
pt3dadd(174.974, 112.663, 25.626, 0.922)
pt3dadd(175.074, 112.729, 25.62, 0.898)
pt3dadd(175.174, 112.795, 25.614, 0.874)
pt3dadd(175.273, 112.862, 25.608, 0.85)
pt3dadd(175.372, 112.929, 25.601, 0.826)
pt3dadd(175.471, 112.997, 25.595, 0.802)
pt3dadd(175.57, 113.064, 25.588, 0.778)
pt3dadd(175.669, 113.131, 25.582, 0.754)
pt3dadd(175.768, 113.198, 25.575, 0.73)
pt3dadd(175.867, 113.266, 25.568, 0.706)
pt3dadd(175.967, 113.333, 25.562, 0.682)
pt3dadd(176.065, 113.4, 25.555, 0.66)
pt3dadd(176.165, 113.467, 25.549, 0.636)
pt3dadd(176.262, 113.537, 25.54, 0.612)
pt3dadd(176.358, 113.608, 25.531, 0.588)
pt3dadd(176.454, 113.679, 25.521, 0.566)
pt3dadd(176.551, 113.749, 25.512, 0.542)
pt3dadd(176.647, 113.82, 25.503, 0.518)
pt3dadd(176.743, 113.89, 25.493, 0.496)
pt3dadd(176.839, 113.961, 25.484, 0.472)
pt3dadd(176.936, 114.032, 25.475, 0.45)
pt3dadd(177.032, 114.102, 25.465, 0.426)
pt3dadd(177.128, 114.173, 25.456, 0.402)
pt3dadd(177.227, 114.24, 25.442, 0.384)
pt3dadd(177.325, 114.306, 25.426, 0.366)
pt3dadd(177.424, 114.372, 25.41, 0.35)
pt3dadd(177.522, 114.438, 25.394, 0.332)
pt3dadd(177.62, 114.504, 25.378, 0.316)
pt3dadd(177.719, 114.57, 25.362, 0.298)
pt3dadd(177.817, 114.636, 25.346, 0.28)
pt3dadd(177.916, 114.702, 25.33, 0.264)
pt3dadd(178.014, 114.768, 25.314, 0.246)
pt3dadd(178.112, 114.834, 25.298, 0.23)
pt3dadd(178.212, 114.888, 25.267, 0.226)
pt3dadd(178.313, 114.939, 25.234, 0.226)
pt3dadd(178.414, 114.991, 25.2, 0.226)
pt3dadd(178.514, 115.042, 25.167, 0.226)
pt3dadd(178.615, 115.093, 25.133, 0.226)
pt3dadd(178.716, 115.144, 25.099, 0.226)
pt3dadd(178.817, 115.196, 25.066, 0.226)
pt3dadd(178.918, 115.247, 25.032, 0.226)
pt3dadd(179.017, 115.298, 24.998, 0.226)
pt3dadd(179.118, 115.35, 24.965, 0.226)
pt3dadd(179.22, 115.404, 24.935, 0.242)
pt3dadd(179.321, 115.458, 24.906, 0.262)
pt3dadd(179.422, 115.513, 24.878, 0.282)
pt3dadd(179.524, 115.568, 24.85, 0.302)
pt3dadd(179.624, 115.623, 24.821, 0.322)
pt3dadd(179.725, 115.677, 24.793, 0.342)
pt3dadd(179.827, 115.732, 24.764, 0.362)
pt3dadd(179.928, 115.787, 24.736, 0.382)
}
}
proc shape3d_170() {
dend_7[32] { pt3dadd(180.029, 115.841, 24.707, 0.402)
pt3dadd(180.13, 115.896, 24.679, 0.422)
pt3dadd(180.232, 115.955, 24.657, 0.466)
pt3dadd(180.332, 116.014, 24.636, 0.514)
pt3dadd(180.433, 116.074, 24.615, 0.564)
pt3dadd(180.535, 116.133, 24.594, 0.612)
pt3dadd(180.636, 116.193, 24.573, 0.662)
pt3dadd(180.737, 116.253, 24.553, 0.71)
pt3dadd(180.839, 116.312, 24.532, 0.758)
pt3dadd(180.94, 116.372, 24.511, 0.808)
pt3dadd(181.04, 116.431, 24.49, 0.856)
pt3dadd(181.141, 116.491, 24.469, 0.906)
pt3dadd(181.248, 116.543, 24.453, 0.912)
pt3dadd(181.356, 116.593, 24.438, 0.912)
pt3dadd(181.463, 116.643, 24.423, 0.912)
pt3dadd(181.571, 116.694, 24.408, 0.91)
pt3dadd(181.678, 116.744, 24.393, 0.91)
pt3dadd(181.786, 116.794, 24.378, 0.908)
pt3dadd(181.892, 116.845, 24.363, 0.908)
pt3dadd(182, 116.895, 24.348, 0.908)
pt3dadd(182.107, 116.946, 24.333, 0.906)
pt3dadd(182.215, 116.996, 24.317, 0.906)
pt3dadd(182.326, 117.039, 24.306, 0.87)
pt3dadd(182.437, 117.082, 24.296, 0.83)
pt3dadd(182.549, 117.124, 24.286, 0.79)
pt3dadd(182.66, 117.167, 24.275, 0.75)
pt3dadd(182.772, 117.209, 24.265, 0.708)
pt3dadd(182.884, 117.251, 24.254, 0.668)
pt3dadd(182.995, 117.294, 24.244, 0.628)
pt3dadd(183.107, 117.336, 24.234, 0.588)
pt3dadd(183.218, 117.378, 24.223, 0.548)
pt3dadd(183.33, 117.421, 24.213, 0.506)
pt3dadd(183.437, 117.475, 24.21, 0.498)
pt3dadd(183.542, 117.531, 24.209, 0.492)
pt3dadd(183.649, 117.587, 24.208, 0.488)
pt3dadd(183.755, 117.643, 24.206, 0.482)
pt3dadd(183.862, 117.699, 24.205, 0.478)
pt3dadd(183.967, 117.754, 24.203, 0.472)
pt3dadd(184.074, 117.81, 24.202, 0.468)
pt3dadd(184.18, 117.866, 24.201, 0.462)
pt3dadd(184.286, 117.922, 24.199, 0.458)
pt3dadd(184.392, 117.978, 24.198, 0.452)
pt3dadd(184.499, 118.034, 24.198, 0.454)
pt3dadd(184.604, 118.09, 24.197, 0.454)
pt3dadd(184.711, 118.146, 24.197, 0.456)
pt3dadd(184.817, 118.201, 24.197, 0.458)
pt3dadd(184.924, 118.257, 24.197, 0.458)
pt3dadd(185.029, 118.313, 24.197, 0.46)
pt3dadd(185.136, 118.369, 24.197, 0.462)
pt3dadd(185.242, 118.425, 24.197, 0.462)
pt3dadd(185.348, 118.481, 24.196, 0.464)
pt3dadd(185.454, 118.536, 24.196, 0.466)
pt3dadd(185.568, 118.576, 24.196, 0.478)
pt3dadd(185.682, 118.614, 24.196, 0.492)
pt3dadd(185.795, 118.652, 24.195, 0.506)
pt3dadd(185.909, 118.689, 24.195, 0.518)
pt3dadd(186.023, 118.727, 24.195, 0.532)
pt3dadd(186.137, 118.765, 24.195, 0.546)
pt3dadd(186.251, 118.803, 24.194, 0.56)
pt3dadd(186.365, 118.841, 24.194, 0.574)
pt3dadd(186.479, 118.878, 24.194, 0.588)
pt3dadd(186.593, 118.916, 24.194, 0.602)
pt3dadd(186.707, 118.951, 24.193, 0.604)
pt3dadd(186.822, 118.986, 24.193, 0.604)
pt3dadd(186.937, 119.02, 24.192, 0.606)
pt3dadd(187.052, 119.055, 24.192, 0.608)
pt3dadd(187.168, 119.089, 24.191, 0.608)
pt3dadd(187.282, 119.124, 24.191, 0.61)
pt3dadd(187.397, 119.158, 24.191, 0.612)
pt3dadd(187.512, 119.192, 24.19, 0.612)
pt3dadd(187.627, 119.227, 24.19, 0.614)
pt3dadd(187.742, 119.261, 24.189, 0.614)
pt3dadd(187.858, 119.292, 24.189, 0.602)
pt3dadd(187.974, 119.322, 24.188, 0.588)
pt3dadd(188.09, 119.352, 24.188, 0.574)
pt3dadd(188.207, 119.382, 24.187, 0.56)
pt3dadd(188.322, 119.412, 24.186, 0.546)
pt3dadd(188.438, 119.442, 24.186, 0.532)
pt3dadd(188.555, 119.473, 24.185, 0.518)
pt3dadd(188.671, 119.503, 24.184, 0.504)
pt3dadd(188.788, 119.533, 24.184, 0.49)
pt3dadd(188.903, 119.563, 24.183, 0.476)
pt3dadd(189.013, 119.61, 24.182, 0.482)
pt3dadd(189.124, 119.658, 24.181, 0.492)
pt3dadd(189.233, 119.706, 24.18, 0.5)
pt3dadd(189.343, 119.755, 24.179, 0.508)
pt3dadd(189.452, 119.803, 24.177, 0.518)
pt3dadd(189.563, 119.851, 24.176, 0.526)
pt3dadd(189.672, 119.9, 24.175, 0.534)
pt3dadd(189.782, 119.948, 24.174, 0.544)
pt3dadd(189.893, 119.997, 24.173, 0.552)
pt3dadd(190.002, 120.044, 24.172, 0.56)
pt3dadd(190.111, 120.096, 24.17, 0.572)
pt3dadd(190.219, 120.146, 24.169, 0.584)
pt3dadd(190.328, 120.197, 24.167, 0.596)
pt3dadd(190.436, 120.248, 24.166, 0.608)
pt3dadd(190.546, 120.299, 24.165, 0.62)
pt3dadd(190.655, 120.349, 24.163, 0.63)
pt3dadd(190.763, 120.401, 24.162, 0.642)
pt3dadd(190.872, 120.451, 24.16, 0.654)
pt3dadd(190.98, 120.502, 24.159, 0.666)
pt3dadd(191.089, 120.553, 24.157, 0.678)
pt3dadd(191.201, 120.595, 24.155, 0.678)
pt3dadd(191.314, 120.638, 24.152, 0.678)
pt3dadd(191.425, 120.68, 24.149, 0.678)
pt3dadd(191.538, 120.724, 24.147, 0.678)
pt3dadd(191.65, 120.766, 24.144, 0.678)
pt3dadd(191.762, 120.808, 24.141, 0.678)
pt3dadd(191.874, 120.851, 24.139, 0.678)
pt3dadd(191.987, 120.893, 24.136, 0.678)
pt3dadd(192.098, 120.936, 24.134, 0.678)
pt3dadd(192.211, 120.978, 24.131, 0.678)
pt3dadd(192.32, 121.027, 24.127, 0.668)
pt3dadd(192.43, 121.075, 24.123, 0.656)
pt3dadd(192.539, 121.124, 24.118, 0.646)
pt3dadd(192.648, 121.174, 24.114, 0.634)
pt3dadd(192.758, 121.223, 24.11, 0.624)
pt3dadd(192.868, 121.272, 24.106, 0.612)
pt3dadd(192.977, 121.321, 24.102, 0.6)
pt3dadd(193.086, 121.37, 24.097, 0.59)
pt3dadd(193.195, 121.42, 24.093, 0.578)
pt3dadd(193.304, 121.468, 24.089, 0.568)
pt3dadd(193.41, 121.525, 24.083, 0.542)
pt3dadd(193.516, 121.583, 24.077, 0.518)
pt3dadd(193.62, 121.64, 24.071, 0.492)
pt3dadd(193.726, 121.697, 24.065, 0.466)
pt3dadd(193.831, 121.754, 24.059, 0.442)
pt3dadd(193.936, 121.812, 24.052, 0.416)
pt3dadd(194.041, 121.87, 24.046, 0.39)
pt3dadd(194.147, 121.927, 24.04, 0.366)
pt3dadd(194.251, 121.984, 24.034, 0.34)
pt3dadd(194.357, 122.041, 24.028, 0.314)
pt3dadd(194.467, 122.086, 24.019, 0.322)
pt3dadd(194.579, 122.13, 24.009, 0.332)
pt3dadd(194.689, 122.174, 24, 0.34)
pt3dadd(194.801, 122.219, 23.991, 0.35)
pt3dadd(194.911, 122.262, 23.981, 0.36)
pt3dadd(195.023, 122.306, 23.972, 0.368)
pt3dadd(195.133, 122.351, 23.963, 0.378)
pt3dadd(195.245, 122.395, 23.953, 0.386)
pt3dadd(195.355, 122.438, 23.944, 0.396)
pt3dadd(195.467, 122.483, 23.935, 0.406)
pt3dadd(195.581, 122.52, 23.924, 0.432)
pt3dadd(195.694, 122.556, 23.913, 0.46)
pt3dadd(195.808, 122.593, 23.902, 0.486)
pt3dadd(195.92, 122.63, 23.89, 0.514)
pt3dadd(196.034, 122.668, 23.879, 0.542)
pt3dadd(196.147, 122.704, 23.868, 0.568)
pt3dadd(196.261, 122.741, 23.857, 0.596)
pt3dadd(196.374, 122.778, 23.846, 0.622)
pt3dadd(196.488, 122.814, 23.835, 0.65)
pt3dadd(196.601, 122.851, 23.824, 0.676)
pt3dadd(196.71, 122.878, 23.788, 0.65)
pt3dadd(196.818, 122.904, 23.752, 0.624)
pt3dadd(196.927, 122.932, 23.716, 0.598)
pt3dadd(197.035, 122.958, 23.68, 0.572)
pt3dadd(197.144, 122.984, 23.643, 0.546)
pt3dadd(197.254, 123.011, 23.607, 0.52)
pt3dadd(197.362, 123.038, 23.571, 0.494)
pt3dadd(197.471, 123.065, 23.535, 0.468)
pt3dadd(197.579, 123.091, 23.499, 0.44)
pt3dadd(197.688, 123.118, 23.463, 0.414)
pt3dadd(197.796, 123.15, 23.431, 0.406)
pt3dadd(197.905, 123.182, 23.398, 0.398)
pt3dadd(198.014, 123.215, 23.366, 0.39)
pt3dadd(198.124, 123.247, 23.334, 0.382)
pt3dadd(198.232, 123.28, 23.301, 0.374)
pt3dadd(198.341, 123.312, 23.269, 0.366)
pt3dadd(198.45, 123.344, 23.237, 0.358)
pt3dadd(198.558, 123.377, 23.205, 0.35)
pt3dadd(198.667, 123.409, 23.172, 0.342)
pt3dadd(198.776, 123.443, 23.141, 0.336)
pt3dadd(198.883, 123.49, 23.119, 0.376)
pt3dadd(198.991, 123.536, 23.097, 0.414)
pt3dadd(199.098, 123.583, 23.075, 0.454)
pt3dadd(199.205, 123.631, 23.053, 0.492)
pt3dadd(199.313, 123.678, 23.032, 0.53)
pt3dadd(199.42, 123.725, 23.01, 0.57)
pt3dadd(199.528, 123.772, 22.988, 0.608)
pt3dadd(199.634, 123.818, 22.966, 0.648)
pt3dadd(199.742, 123.865, 22.944, 0.686)
pt3dadd(199.849, 123.912, 22.923, 0.724)
pt3dadd(199.96, 123.954, 22.907, 0.734)
pt3dadd(200.071, 123.996, 22.892, 0.746)
pt3dadd(200.182, 124.039, 22.877, 0.756)
pt3dadd(200.292, 124.081, 22.861, 0.766)
pt3dadd(200.404, 124.123, 22.846, 0.778)
pt3dadd(200.514, 124.165, 22.83, 0.788)
pt3dadd(200.624, 124.207, 22.815, 0.8)
pt3dadd(200.736, 124.249, 22.799, 0.81)
pt3dadd(200.846, 124.292, 22.784, 0.822)
pt3dadd(200.958, 124.334, 22.769, 0.83)
pt3dadd(201.071, 124.372, 22.759, 0.816)
pt3dadd(201.184, 124.41, 22.75, 0.802)
pt3dadd(201.298, 124.447, 22.74, 0.788)
pt3dadd(201.41, 124.486, 22.73, 0.776)
pt3dadd(201.524, 124.523, 22.72, 0.762)
pt3dadd(201.637, 124.561, 22.71, 0.748)
pt3dadd(201.75, 124.598, 22.7, 0.734)
pt3dadd(201.864, 124.637, 22.691, 0.72)
}
}
proc shape3d_171() {
dend_7[32] { pt3dadd(201.977, 124.674, 22.681, 0.706)
pt3dadd(202.091, 124.711, 22.672, 0.694)
pt3dadd(202.206, 124.742, 22.672, 0.692)
pt3dadd(202.322, 124.775, 22.672, 0.69)
pt3dadd(202.438, 124.806, 22.672, 0.69)
pt3dadd(202.554, 124.837, 22.672, 0.688)
pt3dadd(202.669, 124.868, 22.673, 0.686)
pt3dadd(202.786, 124.9, 22.673, 0.684)
pt3dadd(202.901, 124.932, 22.673, 0.682)
pt3dadd(203.017, 124.963, 22.673, 0.682)
pt3dadd(203.132, 124.994, 22.673, 0.68)
pt3dadd(203.249, 125.027, 22.674, 0.678)
pt3dadd(203.363, 125.063, 22.675, 0.674)
pt3dadd(203.477, 125.099, 22.677, 0.67)
pt3dadd(203.591, 125.136, 22.679, 0.668)
pt3dadd(203.706, 125.172, 22.681, 0.664)
pt3dadd(203.82, 125.208, 22.683, 0.66)
pt3dadd(203.934, 125.245, 22.685, 0.656)
pt3dadd(204.049, 125.281, 22.687, 0.654)
pt3dadd(204.163, 125.317, 22.689, 0.65)
pt3dadd(204.277, 125.354, 22.691, 0.646)
pt3dadd(204.391, 125.393, 22.693, 0.642)
pt3dadd(204.499, 125.444, 22.695, 0.628)
pt3dadd(204.606, 125.497, 22.698, 0.616)
pt3dadd(204.714, 125.55, 22.701, 0.602)
pt3dadd(204.822, 125.603, 22.704, 0.59)
pt3dadd(204.93, 125.656, 22.707, 0.576)
pt3dadd(205.038, 125.707, 22.71, 0.564)
pt3dadd(205.146, 125.76, 22.713, 0.55)
pt3dadd(205.254, 125.813, 22.715, 0.538)
pt3dadd(205.361, 125.866, 22.718, 0.524)
pt3dadd(205.469, 125.917, 22.722, 0.512)
pt3dadd(205.579, 125.965, 22.727, 0.498)
pt3dadd(205.69, 126.013, 22.732, 0.484)
pt3dadd(205.799, 126.061, 22.737, 0.472)
pt3dadd(205.909, 126.109, 22.742, 0.458)
pt3dadd(206.018, 126.157, 22.747, 0.446)
pt3dadd(206.129, 126.205, 22.753, 0.432)
pt3dadd(206.238, 126.253, 22.758, 0.418)
pt3dadd(206.348, 126.301, 22.763, 0.406)
pt3dadd(206.458, 126.349, 22.768, 0.392)
pt3dadd(206.568, 126.396, 22.774, 0.378)
pt3dadd(206.68, 126.44, 22.781, 0.366)
pt3dadd(206.791, 126.484, 22.788, 0.352)
pt3dadd(206.902, 126.528, 22.795, 0.338)
pt3dadd(207.013, 126.571, 22.802, 0.324)
pt3dadd(207.125, 126.616, 22.81, 0.312)
pt3dadd(207.236, 126.659, 22.817, 0.298)
pt3dadd(207.348, 126.703, 22.824, 0.284)
pt3dadd(207.458, 126.746, 22.831, 0.272)
pt3dadd(207.57, 126.791, 22.839, 0.258)
pt3dadd(207.68, 126.836, 22.846, 0.25)
pt3dadd(207.785, 126.894, 22.857, 0.268)
pt3dadd(207.889, 126.952, 22.868, 0.288)
pt3dadd(207.994, 127.01, 22.879, 0.306)
pt3dadd(208.098, 127.068, 22.889, 0.326)
pt3dadd(208.202, 127.126, 22.9, 0.344)
pt3dadd(208.307, 127.183, 22.911, 0.364)
pt3dadd(208.411, 127.242, 22.922, 0.382)
pt3dadd(208.516, 127.3, 22.932, 0.402)
pt3dadd(208.619, 127.357, 22.943, 0.422)
pt3dadd(208.723, 127.416, 22.954, 0.44)
pt3dadd(208.826, 127.475, 22.966, 0.464)
pt3dadd(208.93, 127.535, 22.979, 0.488)
pt3dadd(209.033, 127.595, 22.991, 0.51)
pt3dadd(209.136, 127.655, 23.003, 0.534)
pt3dadd(209.239, 127.715, 23.015, 0.558)
pt3dadd(209.341, 127.774, 23.028, 0.58)
pt3dadd(209.444, 127.834, 23.04, 0.604)
pt3dadd(209.548, 127.894, 23.052, 0.628)
pt3dadd(209.651, 127.954, 23.064, 0.65)
pt3dadd(209.754, 128.01, 23.081, 0.666)
pt3dadd(209.858, 128.048, 23.119, 0.64)
pt3dadd(209.962, 128.087, 23.157, 0.616)
pt3dadd(210.066, 128.126, 23.194, 0.59)
pt3dadd(210.17, 128.165, 23.232, 0.564)
pt3dadd(210.275, 128.203, 23.27, 0.54)
pt3dadd(210.378, 128.243, 23.308, 0.514)
pt3dadd(210.482, 128.281, 23.345, 0.49)
pt3dadd(210.587, 128.321, 23.383, 0.464)
pt3dadd(210.691, 128.359, 23.421, 0.438)
pt3dadd(210.794, 128.399, 23.458, 0.414)
pt3dadd(210.899, 128.441, 23.494, 0.396)
pt3dadd(211.002, 128.484, 23.529, 0.376)
pt3dadd(211.106, 128.526, 23.565, 0.356)
pt3dadd(211.21, 128.569, 23.601, 0.338)
pt3dadd(211.314, 128.611, 23.636, 0.318)
pt3dadd(211.417, 128.654, 23.672, 0.3)
pt3dadd(211.522, 128.696, 23.707, 0.28)
pt3dadd(211.625, 128.74, 23.743, 0.26)
pt3dadd(211.729, 128.782, 23.778, 0.242)
pt3dadd(211.832, 128.827, 23.812, 0.226)
pt3dadd(211.933, 128.881, 23.84, 0.226)
pt3dadd(212.035, 128.935, 23.868, 0.226)
pt3dadd(212.137, 128.989, 23.896, 0.226)
pt3dadd(212.239, 129.043, 23.924, 0.226)
pt3dadd(212.341, 129.097, 23.952, 0.226)
pt3dadd(212.442, 129.151, 23.98, 0.226)
pt3dadd(212.544, 129.205, 24.008, 0.226)
pt3dadd(212.646, 129.259, 24.036, 0.226)
pt3dadd(212.748, 129.313, 24.064, 0.226)
pt3dadd(212.85, 129.365, 24.092, 0.228)
pt3dadd(212.957, 129.41, 24.118, 0.234)
pt3dadd(213.064, 129.456, 24.145, 0.238)
pt3dadd(213.17, 129.502, 24.171, 0.244)
pt3dadd(213.277, 129.546, 24.197, 0.25)
pt3dadd(213.383, 129.592, 24.223, 0.256)
pt3dadd(213.49, 129.637, 24.25, 0.262)
pt3dadd(213.596, 129.683, 24.276, 0.268)
pt3dadd(213.703, 129.728, 24.302, 0.274)
pt3dadd(213.81, 129.773, 24.329, 0.28)
pt3dadd(213.917, 129.816, 24.354, 0.288)
pt3dadd(214.03, 129.848, 24.378, 0.302)
pt3dadd(214.141, 129.881, 24.402, 0.316)
pt3dadd(214.253, 129.914, 24.425, 0.328)
pt3dadd(214.364, 129.947, 24.449, 0.342)
pt3dadd(214.476, 129.98, 24.473, 0.356)
pt3dadd(214.589, 130.013, 24.497, 0.37)
pt3dadd(214.7, 130.045, 24.52, 0.384)
pt3dadd(214.812, 130.079, 24.544, 0.398)
pt3dadd(214.924, 130.111, 24.568, 0.412)
pt3dadd(215.035, 130.141, 24.595, 0.424)
pt3dadd(215.144, 130.163, 24.633, 0.426)
pt3dadd(215.252, 130.183, 24.671, 0.428)
pt3dadd(215.362, 130.204, 24.709, 0.432)
pt3dadd(215.471, 130.225, 24.747, 0.436)
pt3dadd(215.58, 130.246, 24.785, 0.438)
pt3dadd(215.689, 130.266, 24.823, 0.44)
pt3dadd(215.798, 130.288, 24.861, 0.444)
pt3dadd(215.908, 130.308, 24.899, 0.446)
pt3dadd(216.016, 130.33, 24.937, 0.45)
pt3dadd(216.125, 130.35, 24.976, 0.452)
pt3dadd(216.233, 130.369, 25.017, 0.45)
pt3dadd(216.34, 130.388, 25.058, 0.448)
pt3dadd(216.448, 130.409, 25.099, 0.446)
pt3dadd(216.556, 130.428, 25.14, 0.444)
pt3dadd(216.664, 130.447, 25.181, 0.442)
pt3dadd(216.772, 130.468, 25.221, 0.44)
pt3dadd(216.878, 130.487, 25.262, 0.438)
pt3dadd(216.986, 130.506, 25.303, 0.436)
pt3dadd(217.094, 130.526, 25.344, 0.434)
pt3dadd(217.202, 130.549, 25.384, 0.428)
pt3dadd(217.309, 130.583, 25.419, 0.414)
pt3dadd(217.416, 130.615, 25.455, 0.398)
pt3dadd(217.523, 130.649, 25.49, 0.384)
pt3dadd(217.631, 130.681, 25.526, 0.37)
pt3dadd(217.738, 130.715, 25.562, 0.356)
pt3dadd(217.844, 130.747, 25.597, 0.34)
pt3dadd(217.952, 130.781, 25.633, 0.326)
pt3dadd(218.059, 130.813, 25.669, 0.312)
pt3dadd(218.166, 130.847, 25.704, 0.296)
pt3dadd(218.275, 130.87, 25.739, 0.284)
pt3dadd(218.388, 130.87, 25.774, 0.278)
pt3dadd(218.501, 130.87, 25.808, 0.272)
pt3dadd(218.614, 130.87, 25.842, 0.266)
pt3dadd(218.726, 130.87, 25.876, 0.26)
pt3dadd(218.839, 130.87, 25.91, 0.254)
pt3dadd(218.952, 130.87, 25.944, 0.248)
pt3dadd(219.065, 130.87, 25.979, 0.242)
pt3dadd(219.178, 130.87, 26.013, 0.234)
pt3dadd(219.29, 130.87, 26.047, 0.228)
pt3dadd(219.396, 130.854, 26.089, 0.226)
pt3dadd(219.498, 130.828, 26.137, 0.226)
pt3dadd(219.6, 130.8, 26.185, 0.226)
pt3dadd(219.702, 130.772, 26.233, 0.226)
pt3dadd(219.803, 130.746, 26.281, 0.226)
pt3dadd(219.905, 130.718, 26.329, 0.226)
pt3dadd(220.007, 130.692, 26.377, 0.226)
pt3dadd(220.109, 130.664, 26.425, 0.226)
pt3dadd(220.21, 130.638, 26.473, 0.226)
pt3dadd(220.312, 130.61, 26.522, 0.226)
pt3dadd(220.376, 130.578, 26.602, 0.226)
pt3dadd(220.44, 130.547, 26.682, 0.226)
pt3dadd(220.505, 130.514, 26.762, 0.226)
pt3dadd(220.568, 130.482, 26.842, 0.226)
pt3dadd(220.633, 130.45, 26.922, 0.226)
pt3dadd(220.697, 130.418, 27.003, 0.226)
pt3dadd(220.762, 130.386, 27.083, 0.226)
pt3dadd(220.825, 130.354, 27.163, 0.226)
pt3dadd(220.89, 130.322, 27.243, 0.226)
pt3dadd(220.954, 130.29, 27.323, 0.226)
}
dend_7[33] {pt3dclear()
pt3dadd(170.366, 109.626, 25.743, 0.452)
pt3dadd(170.366, 109.627, 25.782, 0.446)
pt3dadd(170.366, 109.631, 25.882, 0.432)
pt3dadd(170.366, 109.634, 25.982, 0.418)
pt3dadd(170.366, 109.637, 26.082, 0.404)
pt3dadd(170.366, 109.641, 26.182, 0.39)
pt3dadd(170.366, 109.644, 26.282, 0.374)
pt3dadd(170.366, 109.648, 26.382, 0.36)
pt3dadd(170.366, 109.651, 26.482, 0.346)
pt3dadd(170.366, 109.655, 26.582, 0.332)
pt3dadd(170.366, 109.658, 26.682, 0.318)
pt3dadd(170.366, 109.662, 26.781, 0.304)
pt3dadd(170.366, 109.665, 26.882, 0.29)
pt3dadd(170.366, 109.669, 26.981, 0.276)
pt3dadd(170.375, 109.677, 27.079, 0.264)
pt3dadd(170.42, 109.709, 27.168, 0.272)
pt3dadd(170.465, 109.74, 27.257, 0.28)
pt3dadd(170.51, 109.771, 27.346, 0.288)
pt3dadd(170.556, 109.802, 27.435, 0.296)
}
}
proc shape3d_172() {
dend_7[33] { pt3dadd(170.6, 109.834, 27.524, 0.304)
pt3dadd(170.646, 109.865, 27.613, 0.312)
pt3dadd(170.692, 109.896, 27.702, 0.32)
pt3dadd(170.736, 109.927, 27.791, 0.326)
pt3dadd(170.782, 109.959, 27.879, 0.334)
pt3dadd(170.839, 109.999, 27.959, 0.346)
pt3dadd(170.906, 110.046, 28.032, 0.362)
pt3dadd(170.974, 110.093, 28.105, 0.378)
pt3dadd(171.042, 110.141, 28.177, 0.394)
pt3dadd(171.109, 110.188, 28.25, 0.41)
pt3dadd(171.176, 110.235, 28.323, 0.426)
pt3dadd(171.244, 110.283, 28.395, 0.442)
pt3dadd(171.312, 110.33, 28.468, 0.458)
pt3dadd(171.379, 110.378, 28.54, 0.474)
pt3dadd(171.446, 110.425, 28.613, 0.49)
pt3dadd(171.529, 110.488, 28.661, 0.506)
pt3dadd(171.616, 110.554, 28.702, 0.522)
pt3dadd(171.703, 110.621, 28.743, 0.538)
pt3dadd(171.79, 110.687, 28.785, 0.554)
pt3dadd(171.876, 110.754, 28.826, 0.57)
pt3dadd(171.962, 110.821, 28.867, 0.586)
pt3dadd(172.05, 110.887, 28.908, 0.604)
pt3dadd(172.136, 110.954, 28.95, 0.62)
pt3dadd(172.223, 111.021, 28.991, 0.636)
pt3dadd(172.309, 111.087, 29.032, 0.652)
pt3dadd(172.403, 111.138, 29.077, 0.64)
pt3dadd(172.498, 111.186, 29.124, 0.62)
pt3dadd(172.594, 111.234, 29.17, 0.598)
pt3dadd(172.688, 111.281, 29.216, 0.578)
pt3dadd(172.784, 111.329, 29.262, 0.558)
pt3dadd(172.879, 111.376, 29.308, 0.538)
pt3dadd(172.974, 111.424, 29.355, 0.518)
pt3dadd(173.07, 111.471, 29.401, 0.496)
pt3dadd(173.165, 111.519, 29.447, 0.476)
pt3dadd(173.26, 111.566, 29.493, 0.456)
pt3dadd(173.357, 111.613, 29.537, 0.434)
pt3dadd(173.454, 111.66, 29.581, 0.412)
pt3dadd(173.551, 111.707, 29.625, 0.388)
pt3dadd(173.648, 111.754, 29.668, 0.366)
pt3dadd(173.746, 111.801, 29.712, 0.344)
pt3dadd(173.843, 111.848, 29.756, 0.32)
pt3dadd(173.94, 111.894, 29.8, 0.298)
pt3dadd(174.037, 111.941, 29.843, 0.274)
pt3dadd(174.134, 111.988, 29.887, 0.252)
pt3dadd(174.232, 112.035, 29.931, 0.23)
pt3dadd(174.331, 112.095, 29.956, 0.226)
pt3dadd(174.431, 112.156, 29.977, 0.226)
pt3dadd(174.53, 112.218, 29.999, 0.226)
pt3dadd(174.63, 112.279, 30.021, 0.226)
pt3dadd(174.73, 112.34, 30.043, 0.226)
pt3dadd(174.829, 112.402, 30.065, 0.226)
pt3dadd(174.929, 112.463, 30.087, 0.226)
pt3dadd(175.028, 112.525, 30.108, 0.226)
pt3dadd(175.129, 112.586, 30.13, 0.226)
pt3dadd(175.229, 112.648, 30.152, 0.226)
pt3dadd(175.33, 112.706, 30.172, 0.226)
pt3dadd(175.433, 112.765, 30.192, 0.226)
pt3dadd(175.535, 112.823, 30.211, 0.226)
pt3dadd(175.637, 112.881, 30.231, 0.226)
pt3dadd(175.739, 112.94, 30.251, 0.226)
pt3dadd(175.841, 112.998, 30.27, 0.226)
pt3dadd(175.943, 113.057, 30.29, 0.226)
pt3dadd(176.045, 113.115, 30.31, 0.226)
pt3dadd(176.148, 113.173, 30.329, 0.226)
pt3dadd(176.25, 113.232, 30.349, 0.226)
pt3dadd(176.358, 113.281, 30.363, 0.226)
pt3dadd(176.466, 113.33, 30.376, 0.226)
pt3dadd(176.575, 113.379, 30.389, 0.226)
pt3dadd(176.683, 113.427, 30.402, 0.226)
pt3dadd(176.792, 113.476, 30.415, 0.226)
pt3dadd(176.9, 113.524, 30.428, 0.226)
pt3dadd(177.01, 113.573, 30.441, 0.226)
pt3dadd(177.118, 113.622, 30.454, 0.226)
pt3dadd(177.227, 113.67, 30.467, 0.226)
pt3dadd(177.335, 113.719, 30.48, 0.226)
pt3dadd(177.44, 113.776, 30.49, 0.226)
pt3dadd(177.545, 113.834, 30.5, 0.226)
pt3dadd(177.649, 113.892, 30.509, 0.226)
pt3dadd(177.754, 113.949, 30.519, 0.226)
pt3dadd(177.858, 114.007, 30.528, 0.226)
pt3dadd(177.962, 114.065, 30.538, 0.226)
pt3dadd(178.067, 114.123, 30.548, 0.226)
pt3dadd(178.171, 114.181, 30.557, 0.226)
pt3dadd(178.276, 114.239, 30.567, 0.226)
pt3dadd(178.38, 114.297, 30.577, 0.226)
pt3dadd(178.48, 114.362, 30.583, 0.226)
pt3dadd(178.58, 114.428, 30.59, 0.226)
pt3dadd(178.68, 114.494, 30.597, 0.226)
pt3dadd(178.781, 114.56, 30.603, 0.226)
pt3dadd(178.88, 114.625, 30.61, 0.226)
pt3dadd(178.98, 114.691, 30.616, 0.226)
pt3dadd(179.081, 114.757, 30.623, 0.226)
pt3dadd(179.18, 114.823, 30.63, 0.226)
pt3dadd(179.281, 114.888, 30.636, 0.226)
pt3dadd(179.381, 114.954, 30.643, 0.226)
pt3dadd(179.479, 115.022, 30.652, 0.226)
pt3dadd(179.578, 115.09, 30.661, 0.226)
pt3dadd(179.675, 115.159, 30.671, 0.226)
pt3dadd(179.773, 115.227, 30.68, 0.226)
pt3dadd(179.872, 115.295, 30.69, 0.226)
pt3dadd(179.969, 115.364, 30.699, 0.226)
pt3dadd(180.067, 115.432, 30.708, 0.226)
pt3dadd(180.166, 115.5, 30.718, 0.226)
pt3dadd(180.263, 115.568, 30.727, 0.226)
pt3dadd(180.361, 115.637, 30.737, 0.226)
pt3dadd(180.458, 115.706, 30.748, 0.226)
pt3dadd(180.556, 115.776, 30.758, 0.226)
pt3dadd(180.652, 115.845, 30.769, 0.226)
pt3dadd(180.749, 115.915, 30.78, 0.226)
pt3dadd(180.846, 115.985, 30.791, 0.226)
pt3dadd(180.942, 116.054, 30.802, 0.226)
pt3dadd(181.039, 116.124, 30.813, 0.226)
pt3dadd(181.136, 116.193, 30.824, 0.226)
pt3dadd(181.234, 116.263, 30.835, 0.226)
pt3dadd(181.33, 116.333, 30.846, 0.226)
pt3dadd(181.43, 116.388, 30.874, 0.226)
pt3dadd(181.531, 116.443, 30.904, 0.226)
pt3dadd(181.632, 116.497, 30.934, 0.226)
pt3dadd(181.733, 116.552, 30.964, 0.226)
pt3dadd(181.834, 116.607, 30.994, 0.226)
pt3dadd(181.933, 116.661, 31.024, 0.226)
pt3dadd(182.034, 116.716, 31.054, 0.226)
pt3dadd(182.135, 116.77, 31.084, 0.226)
pt3dadd(182.236, 116.825, 31.114, 0.226)
pt3dadd(182.336, 116.879, 31.144, 0.226)
pt3dadd(182.437, 116.927, 31.181, 0.226)
pt3dadd(182.538, 116.975, 31.218, 0.226)
pt3dadd(182.639, 117.023, 31.255, 0.226)
pt3dadd(182.74, 117.071, 31.291, 0.226)
pt3dadd(182.84, 117.119, 31.328, 0.226)
pt3dadd(182.941, 117.166, 31.365, 0.226)
pt3dadd(183.042, 117.214, 31.402, 0.226)
pt3dadd(183.143, 117.262, 31.439, 0.226)
pt3dadd(183.244, 117.31, 31.476, 0.226)
pt3dadd(183.344, 117.358, 31.512, 0.226)
pt3dadd(183.446, 117.41, 31.542, 0.248)
pt3dadd(183.548, 117.462, 31.572, 0.27)
pt3dadd(183.65, 117.514, 31.602, 0.29)
pt3dadd(183.752, 117.566, 31.633, 0.312)
pt3dadd(183.854, 117.618, 31.663, 0.332)
pt3dadd(183.955, 117.67, 31.693, 0.354)
pt3dadd(184.057, 117.722, 31.723, 0.376)
pt3dadd(184.159, 117.774, 31.753, 0.396)
pt3dadd(184.261, 117.826, 31.783, 0.418)
pt3dadd(184.363, 117.878, 31.813, 0.44)
pt3dadd(184.466, 117.93, 31.842, 0.462)
pt3dadd(184.568, 117.982, 31.87, 0.486)
pt3dadd(184.672, 118.034, 31.899, 0.508)
pt3dadd(184.774, 118.086, 31.928, 0.532)
pt3dadd(184.876, 118.138, 31.957, 0.556)
pt3dadd(184.979, 118.19, 31.986, 0.578)
pt3dadd(185.081, 118.242, 32.015, 0.602)
pt3dadd(185.184, 118.294, 32.043, 0.624)
pt3dadd(185.286, 118.346, 32.072, 0.648)
pt3dadd(185.389, 118.397, 32.101, 0.67)
pt3dadd(185.501, 118.425, 32.127, 0.642)
pt3dadd(185.614, 118.454, 32.152, 0.616)
pt3dadd(185.726, 118.482, 32.178, 0.588)
pt3dadd(185.839, 118.51, 32.204, 0.56)
pt3dadd(185.951, 118.539, 32.229, 0.534)
pt3dadd(186.064, 118.567, 32.255, 0.506)
pt3dadd(186.176, 118.596, 32.28, 0.48)
pt3dadd(186.288, 118.624, 32.306, 0.452)
pt3dadd(186.401, 118.653, 32.332, 0.426)
pt3dadd(186.514, 118.681, 32.358, 0.4)
pt3dadd(186.624, 118.704, 32.391, 0.39)
pt3dadd(186.736, 118.727, 32.424, 0.382)
pt3dadd(186.846, 118.751, 32.457, 0.374)
pt3dadd(186.956, 118.774, 32.489, 0.366)
pt3dadd(187.068, 118.797, 32.522, 0.358)
pt3dadd(187.178, 118.82, 32.555, 0.35)
pt3dadd(187.29, 118.843, 32.588, 0.342)
pt3dadd(187.4, 118.866, 32.621, 0.334)
pt3dadd(187.512, 118.89, 32.654, 0.326)
pt3dadd(187.622, 118.912, 32.688, 0.322)
pt3dadd(187.728, 118.925, 32.733, 0.348)
pt3dadd(187.835, 118.938, 32.778, 0.374)
pt3dadd(187.94, 118.952, 32.823, 0.398)
pt3dadd(188.047, 118.965, 32.868, 0.424)
pt3dadd(188.154, 118.978, 32.913, 0.45)
pt3dadd(188.26, 118.992, 32.958, 0.476)
pt3dadd(188.366, 119.005, 33.003, 0.502)
pt3dadd(188.472, 119.018, 33.048, 0.528)
pt3dadd(188.579, 119.032, 33.093, 0.552)
pt3dadd(188.686, 119.044, 33.138, 0.574)
pt3dadd(188.794, 119.052, 33.181, 0.57)
pt3dadd(188.902, 119.059, 33.223, 0.564)
pt3dadd(189.01, 119.066, 33.266, 0.558)
pt3dadd(189.119, 119.073, 33.309, 0.552)
pt3dadd(189.227, 119.08, 33.352, 0.546)
pt3dadd(189.335, 119.087, 33.395, 0.54)
pt3dadd(189.443, 119.094, 33.437, 0.536)
pt3dadd(189.551, 119.101, 33.48, 0.53)
pt3dadd(189.66, 119.108, 33.523, 0.524)
pt3dadd(189.768, 119.115, 33.565, 0.516)
pt3dadd(189.877, 119.118, 33.607, 0.49)
pt3dadd(189.986, 119.121, 33.648, 0.462)
pt3dadd(190.096, 119.124, 33.689, 0.436)
pt3dadd(190.205, 119.127, 33.73, 0.41)
pt3dadd(190.314, 119.13, 33.771, 0.384)
}
}
proc shape3d_173() {
dend_7[33] { pt3dadd(190.423, 119.133, 33.813, 0.356)
pt3dadd(190.534, 119.137, 33.854, 0.33)
pt3dadd(190.643, 119.14, 33.895, 0.304)
pt3dadd(190.752, 119.143, 33.936, 0.278)
pt3dadd(190.86, 119.146, 33.979, 0.256)
pt3dadd(190.961, 119.153, 34.033, 0.264)
pt3dadd(191.062, 119.16, 34.087, 0.272)
pt3dadd(191.162, 119.166, 34.141, 0.28)
pt3dadd(191.263, 119.173, 34.195, 0.288)
pt3dadd(191.364, 119.179, 34.249, 0.296)
pt3dadd(191.465, 119.186, 34.303, 0.304)
pt3dadd(191.566, 119.193, 34.357, 0.312)
pt3dadd(191.666, 119.199, 34.411, 0.32)
pt3dadd(191.767, 119.206, 34.465, 0.328)
pt3dadd(191.868, 119.213, 34.519, 0.336)
pt3dadd(191.968, 119.22, 34.574, 0.348)
pt3dadd(192.067, 119.226, 34.63, 0.358)
pt3dadd(192.167, 119.233, 34.685, 0.37)
pt3dadd(192.266, 119.24, 34.741, 0.382)
pt3dadd(192.366, 119.247, 34.797, 0.394)
pt3dadd(192.466, 119.254, 34.852, 0.404)
pt3dadd(192.564, 119.261, 34.908, 0.416)
pt3dadd(192.664, 119.268, 34.963, 0.428)
pt3dadd(192.763, 119.275, 35.019, 0.44)
pt3dadd(192.863, 119.283, 35.075, 0.448)
pt3dadd(192.959, 119.294, 35.134, 0.436)
pt3dadd(193.055, 119.305, 35.194, 0.424)
pt3dadd(193.151, 119.316, 35.253, 0.412)
pt3dadd(193.247, 119.327, 35.312, 0.4)
pt3dadd(193.343, 119.338, 35.372, 0.388)
pt3dadd(193.439, 119.35, 35.431, 0.376)
pt3dadd(193.535, 119.361, 35.49, 0.366)
pt3dadd(193.63, 119.372, 35.55, 0.354)
pt3dadd(193.726, 119.383, 35.609, 0.342)
pt3dadd(193.822, 119.395, 35.668, 0.33)
pt3dadd(193.919, 119.409, 35.726, 0.322)
pt3dadd(194.016, 119.423, 35.784, 0.314)
pt3dadd(194.112, 119.437, 35.842, 0.306)
pt3dadd(194.209, 119.451, 35.9, 0.298)
pt3dadd(194.305, 119.465, 35.958, 0.29)
pt3dadd(194.402, 119.479, 36.016, 0.282)
pt3dadd(194.5, 119.493, 36.074, 0.274)
pt3dadd(194.596, 119.508, 36.132, 0.266)
pt3dadd(194.693, 119.522, 36.19, 0.258)
pt3dadd(194.79, 119.54, 36.246, 0.256)
pt3dadd(194.89, 119.581, 36.289, 0.28)
pt3dadd(194.99, 119.622, 36.333, 0.306)
pt3dadd(195.09, 119.663, 36.376, 0.33)
pt3dadd(195.191, 119.704, 36.419, 0.356)
pt3dadd(195.29, 119.744, 36.463, 0.38)
pt3dadd(195.391, 119.785, 36.506, 0.404)
pt3dadd(195.491, 119.826, 36.549, 0.43)
pt3dadd(195.592, 119.867, 36.592, 0.454)
pt3dadd(195.691, 119.907, 36.636, 0.48)
pt3dadd(195.792, 119.948, 36.679, 0.504)
pt3dadd(195.892, 119.984, 36.725, 0.522)
pt3dadd(195.992, 120.02, 36.771, 0.54)
pt3dadd(196.092, 120.056, 36.817, 0.556)
pt3dadd(196.193, 120.094, 36.863, 0.574)
pt3dadd(196.292, 120.13, 36.909, 0.592)
pt3dadd(196.393, 120.167, 36.955, 0.61)
pt3dadd(196.493, 120.203, 37.001, 0.628)
pt3dadd(196.592, 120.239, 37.047, 0.646)
pt3dadd(196.693, 120.276, 37.093, 0.664)
pt3dadd(196.793, 120.31, 37.14, 0.678)
pt3dadd(196.892, 120.335, 37.192, 0.678)
pt3dadd(196.992, 120.361, 37.244, 0.678)
pt3dadd(197.092, 120.386, 37.296, 0.678)
pt3dadd(197.19, 120.412, 37.348, 0.678)
pt3dadd(197.29, 120.437, 37.4, 0.678)
pt3dadd(197.389, 120.462, 37.452, 0.678)
pt3dadd(197.489, 120.487, 37.504, 0.678)
pt3dadd(197.587, 120.514, 37.556, 0.678)
pt3dadd(197.687, 120.539, 37.608, 0.678)
pt3dadd(197.788, 120.563, 37.658, 0.678)
pt3dadd(197.893, 120.58, 37.703, 0.678)
pt3dadd(197.999, 120.596, 37.748, 0.678)
pt3dadd(198.106, 120.614, 37.793, 0.678)
pt3dadd(198.211, 120.631, 37.838, 0.678)
pt3dadd(198.317, 120.648, 37.883, 0.678)
pt3dadd(198.422, 120.665, 37.927, 0.678)
pt3dadd(198.528, 120.683, 37.972, 0.678)
pt3dadd(198.635, 120.7, 38.017, 0.678)
pt3dadd(198.74, 120.716, 38.062, 0.678)
pt3dadd(198.847, 120.732, 38.106, 0.678)
pt3dadd(198.956, 120.74, 38.146, 0.678)
pt3dadd(199.067, 120.75, 38.186, 0.678)
pt3dadd(199.176, 120.758, 38.226, 0.678)
pt3dadd(199.285, 120.768, 38.266, 0.678)
pt3dadd(199.394, 120.778, 38.306, 0.678)
pt3dadd(199.505, 120.786, 38.346, 0.678)
pt3dadd(199.614, 120.796, 38.386, 0.678)
pt3dadd(199.723, 120.804, 38.426, 0.678)
pt3dadd(199.834, 120.814, 38.466, 0.678)
pt3dadd(199.938, 120.818, 38.514, 0.678)
pt3dadd(200.028, 120.816, 38.579, 0.678)
pt3dadd(200.119, 120.812, 38.644, 0.678)
pt3dadd(200.21, 120.809, 38.71, 0.678)
pt3dadd(200.3, 120.806, 38.775, 0.678)
pt3dadd(200.392, 120.803, 38.84, 0.678)
pt3dadd(200.483, 120.8, 38.905, 0.678)
pt3dadd(200.573, 120.797, 38.971, 0.678)
pt3dadd(200.664, 120.793, 39.036, 0.678)
pt3dadd(200.755, 120.791, 39.102, 0.678)
pt3dadd(200.85, 120.779, 39.159, 0.668)
pt3dadd(200.954, 120.743, 39.198, 0.636)
pt3dadd(201.059, 120.708, 39.236, 0.604)
pt3dadd(201.164, 120.672, 39.275, 0.572)
pt3dadd(201.269, 120.636, 39.314, 0.538)
pt3dadd(201.374, 120.601, 39.352, 0.506)
pt3dadd(201.479, 120.565, 39.391, 0.474)
pt3dadd(201.583, 120.53, 39.429, 0.442)
pt3dadd(201.689, 120.494, 39.468, 0.408)
pt3dadd(201.793, 120.46, 39.506, 0.376)
pt3dadd(201.904, 120.444, 39.536, 0.352)
pt3dadd(202.021, 120.455, 39.556, 0.338)
pt3dadd(202.138, 120.467, 39.575, 0.324)
pt3dadd(202.255, 120.478, 39.594, 0.31)
pt3dadd(202.373, 120.488, 39.613, 0.296)
pt3dadd(202.49, 120.5, 39.632, 0.282)
pt3dadd(202.607, 120.511, 39.652, 0.268)
pt3dadd(202.724, 120.522, 39.671, 0.254)
pt3dadd(202.842, 120.534, 39.69, 0.24)
pt3dadd(202.958, 120.545, 39.709, 0.226)
pt3dadd(203.072, 120.582, 39.72, 0.226)
pt3dadd(203.185, 120.62, 39.73, 0.226)
pt3dadd(203.298, 120.658, 39.741, 0.226)
pt3dadd(203.412, 120.696, 39.751, 0.226)
pt3dadd(203.525, 120.733, 39.761, 0.226)
pt3dadd(203.639, 120.77, 39.772, 0.226)
pt3dadd(203.752, 120.809, 39.783, 0.226)
pt3dadd(203.864, 120.846, 39.793, 0.226)
pt3dadd(203.978, 120.884, 39.803, 0.226)
pt3dadd(204.091, 120.922, 39.814, 0.226)
}
dend_7[34] {pt3dclear()
pt3dadd(159.332, 102.947, 25.392, 0.226)
pt3dadd(159.409, 102.934, 25.392, 0.256)
pt3dadd(159.527, 102.915, 25.391, 0.306)
pt3dadd(159.646, 102.895, 25.391, 0.354)
pt3dadd(159.764, 102.875, 25.39, 0.402)
pt3dadd(159.882, 102.856, 25.389, 0.45)
pt3dadd(160.001, 102.836, 25.389, 0.498)
pt3dadd(160.12, 102.817, 25.388, 0.546)
pt3dadd(160.237, 102.797, 25.387, 0.594)
pt3dadd(160.356, 102.777, 25.387, 0.642)
pt3dadd(160.475, 102.758, 25.386, 0.69)
pt3dadd(160.592, 102.738, 25.385, 0.74)
pt3dadd(160.711, 102.719, 25.385, 0.788)
pt3dadd(160.825, 102.703, 25.361, 0.806)
pt3dadd(160.939, 102.688, 25.332, 0.816)
pt3dadd(161.053, 102.673, 25.302, 0.826)
pt3dadd(161.167, 102.658, 25.273, 0.838)
pt3dadd(161.281, 102.643, 25.244, 0.848)
pt3dadd(161.394, 102.628, 25.214, 0.86)
pt3dadd(161.508, 102.613, 25.185, 0.87)
pt3dadd(161.622, 102.597, 25.156, 0.882)
pt3dadd(161.736, 102.582, 25.127, 0.892)
pt3dadd(161.849, 102.567, 25.097, 0.904)
pt3dadd(161.96, 102.554, 25.062, 0.902)
pt3dadd(162.072, 102.541, 25.026, 0.902)
pt3dadd(162.184, 102.528, 24.99, 0.9)
pt3dadd(162.294, 102.514, 24.954, 0.9)
pt3dadd(162.406, 102.501, 24.918, 0.898)
pt3dadd(162.516, 102.488, 24.882, 0.896)
pt3dadd(162.628, 102.475, 24.846, 0.896)
pt3dadd(162.739, 102.462, 24.81, 0.894)
pt3dadd(162.85, 102.448, 24.774, 0.894)
pt3dadd(162.961, 102.435, 24.738, 0.892)
pt3dadd(163.078, 102.425, 24.713, 0.88)
pt3dadd(163.193, 102.416, 24.689, 0.866)
pt3dadd(163.309, 102.406, 24.665, 0.852)
pt3dadd(163.426, 102.397, 24.64, 0.838)
pt3dadd(163.541, 102.387, 24.616, 0.824)
pt3dadd(163.657, 102.377, 24.592, 0.81)
pt3dadd(163.774, 102.368, 24.568, 0.796)
pt3dadd(163.889, 102.358, 24.544, 0.782)
pt3dadd(164.005, 102.349, 24.52, 0.768)
pt3dadd(164.122, 102.339, 24.495, 0.754)
pt3dadd(164.239, 102.337, 24.477, 0.752)
pt3dadd(164.357, 102.336, 24.458, 0.75)
pt3dadd(164.476, 102.335, 24.44, 0.75)
pt3dadd(164.593, 102.334, 24.421, 0.75)
pt3dadd(164.711, 102.333, 24.403, 0.748)
pt3dadd(164.83, 102.332, 24.385, 0.748)
pt3dadd(164.947, 102.331, 24.366, 0.748)
pt3dadd(165.065, 102.33, 24.348, 0.746)
pt3dadd(165.182, 102.329, 24.33, 0.746)
pt3dadd(165.301, 102.328, 24.311, 0.746)
pt3dadd(165.42, 102.336, 24.299, 0.76)
pt3dadd(165.539, 102.344, 24.288, 0.774)
pt3dadd(165.658, 102.353, 24.276, 0.788)
pt3dadd(165.776, 102.361, 24.264, 0.802)
pt3dadd(165.895, 102.369, 24.253, 0.816)
pt3dadd(166.014, 102.378, 24.241, 0.832)
pt3dadd(166.133, 102.386, 24.23, 0.846)
pt3dadd(166.252, 102.395, 24.218, 0.86)
pt3dadd(166.37, 102.403, 24.206, 0.874)
pt3dadd(166.489, 102.411, 24.195, 0.888)
pt3dadd(166.609, 102.425, 24.192, 0.852)
pt3dadd(166.728, 102.438, 24.19, 0.816)
pt3dadd(166.847, 102.451, 24.187, 0.778)
}
}
proc shape3d_174() {
dend_7[34] { pt3dadd(166.967, 102.464, 24.184, 0.742)
pt3dadd(167.086, 102.477, 24.182, 0.704)
pt3dadd(167.206, 102.491, 24.18, 0.666)
pt3dadd(167.324, 102.504, 24.177, 0.63)
pt3dadd(167.443, 102.517, 24.174, 0.594)
pt3dadd(167.563, 102.53, 24.172, 0.556)
pt3dadd(167.682, 102.544, 24.169, 0.518)
}
dend_7[35] {pt3dclear()
pt3dadd(167.682, 102.544, 24.169, 0.518)
pt3dadd(167.74, 102.555, 24.168, 0.504)
pt3dadd(167.857, 102.579, 24.167, 0.474)
pt3dadd(167.975, 102.603, 24.165, 0.446)
pt3dadd(168.092, 102.627, 24.163, 0.416)
pt3dadd(168.21, 102.651, 24.161, 0.386)
pt3dadd(168.328, 102.675, 24.159, 0.356)
pt3dadd(168.445, 102.699, 24.157, 0.328)
pt3dadd(168.563, 102.723, 24.156, 0.298)
pt3dadd(168.68, 102.747, 24.154, 0.268)
pt3dadd(168.798, 102.771, 24.152, 0.238)
pt3dadd(168.912, 102.806, 24.15, 0.226)
pt3dadd(169.024, 102.851, 24.147, 0.226)
pt3dadd(169.135, 102.896, 24.144, 0.226)
pt3dadd(169.246, 102.94, 24.142, 0.226)
pt3dadd(169.357, 102.985, 24.139, 0.226)
pt3dadd(169.469, 103.029, 24.136, 0.226)
pt3dadd(169.58, 103.074, 24.134, 0.226)
pt3dadd(169.692, 103.119, 24.131, 0.226)
pt3dadd(169.802, 103.163, 24.128, 0.226)
pt3dadd(169.914, 103.208, 24.126, 0.226)
pt3dadd(170.028, 103.247, 24.122, 0.226)
pt3dadd(170.142, 103.281, 24.116, 0.226)
pt3dadd(170.257, 103.316, 24.111, 0.226)
pt3dadd(170.371, 103.35, 24.105, 0.226)
pt3dadd(170.486, 103.385, 24.1, 0.226)
pt3dadd(170.602, 103.419, 24.095, 0.226)
pt3dadd(170.716, 103.453, 24.09, 0.226)
pt3dadd(170.831, 103.488, 24.084, 0.226)
pt3dadd(170.946, 103.522, 24.079, 0.226)
pt3dadd(171.06, 103.557, 24.073, 0.226)
pt3dadd(171.176, 103.587, 24.067, 0.226)
pt3dadd(171.293, 103.616, 24.06, 0.226)
pt3dadd(171.409, 103.644, 24.053, 0.226)
pt3dadd(171.526, 103.672, 24.046, 0.228)
pt3dadd(171.641, 103.701, 24.039, 0.228)
pt3dadd(171.757, 103.729, 24.032, 0.228)
pt3dadd(171.874, 103.757, 24.025, 0.228)
pt3dadd(171.99, 103.786, 24.018, 0.228)
pt3dadd(172.106, 103.814, 24.011, 0.23)
pt3dadd(172.223, 103.842, 24.004, 0.23)
pt3dadd(172.34, 103.862, 23.995, 0.238)
pt3dadd(172.459, 103.875, 23.983, 0.252)
pt3dadd(172.578, 103.888, 23.972, 0.266)
pt3dadd(172.696, 103.901, 23.96, 0.282)
pt3dadd(172.814, 103.915, 23.948, 0.296)
pt3dadd(172.933, 103.928, 23.937, 0.31)
pt3dadd(173.051, 103.941, 23.925, 0.324)
pt3dadd(173.17, 103.954, 23.914, 0.338)
pt3dadd(173.288, 103.967, 23.902, 0.352)
pt3dadd(173.407, 103.981, 23.891, 0.366)
pt3dadd(173.524, 103.99, 23.872, 0.378)
pt3dadd(173.64, 103.998, 23.849, 0.386)
pt3dadd(173.756, 104.005, 23.826, 0.394)
pt3dadd(173.873, 104.013, 23.803, 0.402)
pt3dadd(173.99, 104.02, 23.779, 0.41)
pt3dadd(174.107, 104.027, 23.756, 0.418)
pt3dadd(174.223, 104.035, 23.733, 0.426)
pt3dadd(174.34, 104.042, 23.71, 0.434)
pt3dadd(174.456, 104.049, 23.686, 0.442)
pt3dadd(174.572, 104.057, 23.663, 0.45)
pt3dadd(174.685, 104.059, 23.63, 0.452)
pt3dadd(174.797, 104.059, 23.593, 0.452)
pt3dadd(174.908, 104.059, 23.556, 0.452)
pt3dadd(175.019, 104.059, 23.518, 0.452)
pt3dadd(175.13, 104.059, 23.481, 0.452)
pt3dadd(175.242, 104.058, 23.444, 0.452)
pt3dadd(175.354, 104.058, 23.406, 0.452)
pt3dadd(175.465, 104.058, 23.369, 0.452)
pt3dadd(175.576, 104.058, 23.332, 0.452)
pt3dadd(175.687, 104.058, 23.295, 0.452)
pt3dadd(175.801, 104.058, 23.264, 0.46)
pt3dadd(175.916, 104.058, 23.237, 0.47)
pt3dadd(176.033, 104.058, 23.209, 0.48)
pt3dadd(176.148, 104.058, 23.182, 0.492)
pt3dadd(176.263, 104.057, 23.155, 0.502)
pt3dadd(176.378, 104.057, 23.127, 0.514)
pt3dadd(176.494, 104.057, 23.1, 0.524)
pt3dadd(176.609, 104.057, 23.072, 0.534)
pt3dadd(176.725, 104.057, 23.045, 0.546)
pt3dadd(176.84, 104.057, 23.017, 0.556)
pt3dadd(176.957, 104.057, 22.994, 0.564)
pt3dadd(177.073, 104.057, 22.971, 0.572)
pt3dadd(177.191, 104.056, 22.949, 0.58)
pt3dadd(177.307, 104.056, 22.927, 0.586)
pt3dadd(177.425, 104.056, 22.904, 0.594)
pt3dadd(177.541, 104.056, 22.882, 0.602)
pt3dadd(177.659, 104.056, 22.86, 0.61)
pt3dadd(177.775, 104.056, 22.837, 0.616)
pt3dadd(177.893, 104.056, 22.815, 0.624)
pt3dadd(178.009, 104.056, 22.793, 0.632)
pt3dadd(178.128, 104.055, 22.778, 0.614)
pt3dadd(178.247, 104.055, 22.766, 0.584)
pt3dadd(178.367, 104.055, 22.754, 0.556)
pt3dadd(178.486, 104.054, 22.743, 0.528)
pt3dadd(178.604, 104.054, 22.731, 0.498)
pt3dadd(178.723, 104.054, 22.72, 0.47)
pt3dadd(178.843, 104.053, 22.708, 0.44)
pt3dadd(178.962, 104.053, 22.696, 0.412)
pt3dadd(179.081, 104.052, 22.684, 0.384)
pt3dadd(179.201, 104.052, 22.673, 0.354)
pt3dadd(179.32, 104.052, 22.665, 0.35)
pt3dadd(179.44, 104.051, 22.66, 0.354)
pt3dadd(179.56, 104.051, 22.654, 0.36)
pt3dadd(179.68, 104.05, 22.648, 0.364)
pt3dadd(179.8, 104.05, 22.642, 0.37)
pt3dadd(179.92, 104.049, 22.637, 0.374)
pt3dadd(180.038, 104.049, 22.631, 0.378)
pt3dadd(180.158, 104.048, 22.625, 0.384)
pt3dadd(180.278, 104.048, 22.62, 0.388)
pt3dadd(180.398, 104.047, 22.614, 0.392)
pt3dadd(180.518, 104.047, 22.611, 0.414)
pt3dadd(180.638, 104.046, 22.61, 0.444)
pt3dadd(180.758, 104.046, 22.608, 0.472)
pt3dadd(180.878, 104.045, 22.607, 0.5)
pt3dadd(180.998, 104.045, 22.605, 0.528)
pt3dadd(181.118, 104.044, 22.604, 0.556)
pt3dadd(181.238, 104.044, 22.602, 0.586)
pt3dadd(181.358, 104.043, 22.601, 0.614)
pt3dadd(181.478, 104.043, 22.6, 0.642)
pt3dadd(181.598, 104.043, 22.598, 0.67)
pt3dadd(181.718, 104.041, 22.596, 0.678)
pt3dadd(181.838, 104.04, 22.593, 0.678)
pt3dadd(181.958, 104.038, 22.59, 0.678)
pt3dadd(182.078, 104.037, 22.587, 0.678)
pt3dadd(182.198, 104.036, 22.584, 0.678)
pt3dadd(182.318, 104.034, 22.581, 0.678)
pt3dadd(182.437, 104.033, 22.578, 0.678)
pt3dadd(182.557, 104.031, 22.575, 0.678)
pt3dadd(182.677, 104.03, 22.573, 0.678)
pt3dadd(182.797, 104.028, 22.57, 0.678)
pt3dadd(182.917, 104.027, 22.565, 0.668)
pt3dadd(183.037, 104.025, 22.56, 0.656)
pt3dadd(183.157, 104.023, 22.556, 0.642)
pt3dadd(183.277, 104.021, 22.551, 0.628)
pt3dadd(183.397, 104.019, 22.546, 0.616)
pt3dadd(183.517, 104.017, 22.541, 0.602)
pt3dadd(183.636, 104.015, 22.537, 0.59)
pt3dadd(183.756, 104.013, 22.532, 0.576)
pt3dadd(183.876, 104.011, 22.527, 0.562)
pt3dadd(183.996, 104.009, 22.522, 0.55)
pt3dadd(184.116, 104.007, 22.516, 0.524)
pt3dadd(184.236, 104.004, 22.509, 0.496)
pt3dadd(184.355, 104.001, 22.501, 0.468)
pt3dadd(184.475, 103.998, 22.494, 0.438)
pt3dadd(184.595, 103.996, 22.487, 0.41)
pt3dadd(184.714, 103.993, 22.48, 0.38)
pt3dadd(184.834, 103.99, 22.473, 0.352)
pt3dadd(184.954, 103.987, 22.466, 0.322)
pt3dadd(185.074, 103.985, 22.459, 0.294)
pt3dadd(185.192, 103.982, 22.452, 0.264)
pt3dadd(185.312, 103.977, 22.442, 0.254)
pt3dadd(185.431, 103.97, 22.431, 0.252)
pt3dadd(185.55, 103.964, 22.419, 0.248)
pt3dadd(185.669, 103.958, 22.408, 0.246)
pt3dadd(185.789, 103.952, 22.397, 0.242)
pt3dadd(185.908, 103.945, 22.386, 0.24)
pt3dadd(186.026, 103.939, 22.375, 0.236)
pt3dadd(186.145, 103.933, 22.363, 0.234)
pt3dadd(186.265, 103.927, 22.352, 0.23)
pt3dadd(186.384, 103.92, 22.341, 0.226)
pt3dadd(186.502, 103.913, 22.323, 0.226)
pt3dadd(186.619, 103.905, 22.304, 0.226)
pt3dadd(186.737, 103.898, 22.284, 0.226)
pt3dadd(186.853, 103.89, 22.264, 0.226)
pt3dadd(186.971, 103.882, 22.244, 0.226)
pt3dadd(187.088, 103.874, 22.224, 0.226)
pt3dadd(187.206, 103.867, 22.204, 0.226)
pt3dadd(187.322, 103.859, 22.184, 0.226)
pt3dadd(187.44, 103.851, 22.164, 0.226)
pt3dadd(187.558, 103.843, 22.144, 0.226)
pt3dadd(187.669, 103.834, 22.11, 0.226)
pt3dadd(187.781, 103.824, 22.073, 0.226)
pt3dadd(187.891, 103.814, 22.035, 0.226)
pt3dadd(188.003, 103.804, 21.998, 0.226)
pt3dadd(188.113, 103.795, 21.961, 0.226)
pt3dadd(188.225, 103.785, 21.924, 0.226)
pt3dadd(188.335, 103.775, 21.886, 0.226)
pt3dadd(188.446, 103.765, 21.849, 0.226)
pt3dadd(188.557, 103.755, 21.812, 0.226)
pt3dadd(188.668, 103.746, 21.774, 0.226)
pt3dadd(188.779, 103.722, 21.744, 0.232)
pt3dadd(188.891, 103.695, 21.715, 0.242)
pt3dadd(189.002, 103.668, 21.686, 0.25)
pt3dadd(189.114, 103.641, 21.657, 0.258)
pt3dadd(189.227, 103.614, 21.629, 0.266)
pt3dadd(189.338, 103.587, 21.6, 0.276)
pt3dadd(189.45, 103.56, 21.571, 0.284)
pt3dadd(189.562, 103.533, 21.542, 0.292)
pt3dadd(189.673, 103.506, 21.513, 0.3)
pt3dadd(189.785, 103.479, 21.485, 0.308)
pt3dadd(189.895, 103.443, 21.461, 0.322)
pt3dadd(190.007, 103.407, 21.437, 0.336)
}
}
proc shape3d_175() {
dend_7[35] { pt3dadd(190.117, 103.37, 21.414, 0.348)
pt3dadd(190.228, 103.333, 21.39, 0.362)
pt3dadd(190.338, 103.296, 21.367, 0.376)
pt3dadd(190.45, 103.26, 21.344, 0.388)
pt3dadd(190.56, 103.223, 21.32, 0.402)
pt3dadd(190.67, 103.186, 21.297, 0.416)
pt3dadd(190.782, 103.149, 21.274, 0.428)
pt3dadd(190.892, 103.113, 21.25, 0.442)
pt3dadd(191.009, 103.093, 21.236, 0.444)
pt3dadd(191.126, 103.076, 21.223, 0.444)
pt3dadd(191.245, 103.059, 21.21, 0.446)
pt3dadd(191.363, 103.042, 21.197, 0.446)
pt3dadd(191.48, 103.025, 21.184, 0.448)
pt3dadd(191.598, 103.008, 21.171, 0.448)
pt3dadd(191.716, 102.99, 21.158, 0.45)
pt3dadd(191.833, 102.973, 21.145, 0.45)
pt3dadd(191.951, 102.956, 21.131, 0.452)
pt3dadd(192.068, 102.939, 21.118, 0.452)
pt3dadd(192.188, 102.938, 21.109, 0.462)
pt3dadd(192.307, 102.939, 21.1, 0.47)
pt3dadd(192.427, 102.94, 21.09, 0.48)
pt3dadd(192.546, 102.941, 21.081, 0.49)
pt3dadd(192.666, 102.942, 21.072, 0.5)
pt3dadd(192.786, 102.943, 21.063, 0.51)
pt3dadd(192.905, 102.944, 21.054, 0.52)
pt3dadd(193.025, 102.945, 21.045, 0.53)
pt3dadd(193.144, 102.946, 21.035, 0.54)
pt3dadd(193.264, 102.95, 21.027, 0.552)
pt3dadd(193.379, 102.983, 21.024, 0.58)
pt3dadd(193.494, 103.015, 21.021, 0.608)
pt3dadd(193.609, 103.048, 21.018, 0.636)
pt3dadd(193.724, 103.08, 21.016, 0.664)
pt3dadd(193.841, 103.113, 21.013, 0.692)
pt3dadd(193.956, 103.145, 21.01, 0.72)
pt3dadd(194.071, 103.178, 21.007, 0.748)
pt3dadd(194.186, 103.21, 21.005, 0.774)
pt3dadd(194.303, 103.243, 21.002, 0.802)
pt3dadd(194.418, 103.275, 20.999, 0.826)
pt3dadd(194.534, 103.303, 20.993, 0.802)
pt3dadd(194.651, 103.332, 20.987, 0.78)
pt3dadd(194.767, 103.36, 20.981, 0.756)
pt3dadd(194.884, 103.388, 20.976, 0.734)
pt3dadd(195, 103.417, 20.97, 0.71)
pt3dadd(195.116, 103.445, 20.964, 0.686)
pt3dadd(195.233, 103.473, 20.958, 0.664)
pt3dadd(195.349, 103.502, 20.952, 0.64)
pt3dadd(195.466, 103.53, 20.946, 0.618)
pt3dadd(195.582, 103.558, 20.941, 0.594)
pt3dadd(195.698, 103.583, 20.933, 0.558)
pt3dadd(195.816, 103.607, 20.926, 0.522)
pt3dadd(195.934, 103.632, 20.918, 0.488)
pt3dadd(196.05, 103.656, 20.91, 0.452)
pt3dadd(196.168, 103.681, 20.903, 0.416)
pt3dadd(196.284, 103.706, 20.896, 0.38)
pt3dadd(196.402, 103.73, 20.888, 0.346)
pt3dadd(196.519, 103.755, 20.88, 0.31)
pt3dadd(196.636, 103.779, 20.873, 0.274)
pt3dadd(196.753, 103.802, 20.865, 0.246)
pt3dadd(196.872, 103.811, 20.853, 0.26)
pt3dadd(196.991, 103.82, 20.841, 0.274)
pt3dadd(197.11, 103.829, 20.83, 0.288)
pt3dadd(197.228, 103.838, 20.818, 0.302)
pt3dadd(197.347, 103.847, 20.806, 0.318)
pt3dadd(197.466, 103.856, 20.795, 0.332)
pt3dadd(197.585, 103.865, 20.783, 0.346)
pt3dadd(197.704, 103.874, 20.771, 0.36)
pt3dadd(197.822, 103.883, 20.76, 0.374)
pt3dadd(197.941, 103.891, 20.746, 0.39)
pt3dadd(198.056, 103.89, 20.72, 0.412)
pt3dadd(198.173, 103.889, 20.694, 0.432)
pt3dadd(198.288, 103.887, 20.668, 0.454)
pt3dadd(198.404, 103.886, 20.642, 0.476)
pt3dadd(198.52, 103.885, 20.615, 0.496)
pt3dadd(198.636, 103.884, 20.589, 0.518)
pt3dadd(198.752, 103.883, 20.563, 0.54)
pt3dadd(198.868, 103.881, 20.537, 0.562)
pt3dadd(198.984, 103.88, 20.511, 0.582)
pt3dadd(199.098, 103.877, 20.482, 0.606)
pt3dadd(199.21, 103.867, 20.445, 0.632)
pt3dadd(199.32, 103.857, 20.407, 0.66)
pt3dadd(199.43, 103.848, 20.37, 0.686)
pt3dadd(199.542, 103.838, 20.333, 0.712)
pt3dadd(199.652, 103.828, 20.295, 0.74)
pt3dadd(199.763, 103.819, 20.258, 0.766)
pt3dadd(199.874, 103.809, 20.22, 0.794)
pt3dadd(199.985, 103.799, 20.183, 0.82)
pt3dadd(200.096, 103.789, 20.145, 0.846)
pt3dadd(200.208, 103.778, 20.111, 0.86)
pt3dadd(200.322, 103.762, 20.084, 0.826)
pt3dadd(200.437, 103.745, 20.058, 0.794)
pt3dadd(200.551, 103.729, 20.032, 0.762)
pt3dadd(200.666, 103.713, 20.005, 0.73)
pt3dadd(200.78, 103.696, 19.979, 0.696)
pt3dadd(200.896, 103.68, 19.952, 0.664)
pt3dadd(201.01, 103.664, 19.926, 0.632)
pt3dadd(201.125, 103.647, 19.9, 0.6)
pt3dadd(201.239, 103.631, 19.873, 0.568)
pt3dadd(201.354, 103.612, 19.848, 0.536)
pt3dadd(201.468, 103.586, 19.827, 0.506)
pt3dadd(201.582, 103.56, 19.805, 0.478)
pt3dadd(201.696, 103.534, 19.783, 0.45)
pt3dadd(201.81, 103.508, 19.762, 0.42)
pt3dadd(201.925, 103.482, 19.74, 0.392)
pt3dadd(202.039, 103.456, 19.719, 0.362)
pt3dadd(202.153, 103.43, 19.697, 0.334)
pt3dadd(202.267, 103.404, 19.675, 0.306)
pt3dadd(202.381, 103.378, 19.654, 0.276)
pt3dadd(202.493, 103.342, 19.636, 0.262)
pt3dadd(202.601, 103.29, 19.624, 0.276)
pt3dadd(202.708, 103.238, 19.613, 0.288)
pt3dadd(202.814, 103.185, 19.601, 0.302)
pt3dadd(202.921, 103.133, 19.589, 0.316)
pt3dadd(203.029, 103.081, 19.578, 0.328)
pt3dadd(203.136, 103.029, 19.566, 0.342)
pt3dadd(203.243, 102.976, 19.555, 0.354)
pt3dadd(203.35, 102.924, 19.543, 0.368)
pt3dadd(203.458, 102.872, 19.531, 0.38)
pt3dadd(203.566, 102.821, 19.521, 0.392)
pt3dadd(203.675, 102.773, 19.514, 0.398)
pt3dadd(203.784, 102.724, 19.507, 0.404)
pt3dadd(203.894, 102.676, 19.5, 0.41)
pt3dadd(204.004, 102.628, 19.492, 0.416)
pt3dadd(204.113, 102.58, 19.485, 0.422)
pt3dadd(204.222, 102.532, 19.478, 0.43)
pt3dadd(204.332, 102.483, 19.47, 0.436)
pt3dadd(204.442, 102.435, 19.463, 0.442)
pt3dadd(204.551, 102.387, 19.456, 0.448)
pt3dadd(204.661, 102.34, 19.45, 0.452)
pt3dadd(204.773, 102.296, 19.447, 0.452)
pt3dadd(204.884, 102.251, 19.443, 0.452)
pt3dadd(204.996, 102.207, 19.44, 0.452)
pt3dadd(205.106, 102.163, 19.437, 0.452)
pt3dadd(205.218, 102.118, 19.434, 0.452)
pt3dadd(205.33, 102.074, 19.43, 0.452)
pt3dadd(205.441, 102.03, 19.427, 0.452)
pt3dadd(205.553, 101.985, 19.424, 0.452)
pt3dadd(205.664, 101.941, 19.42, 0.452)
pt3dadd(205.772, 101.891, 19.416, 0.452)
pt3dadd(205.877, 101.831, 19.409, 0.452)
pt3dadd(205.98, 101.772, 19.402, 0.452)
pt3dadd(206.084, 101.712, 19.394, 0.452)
pt3dadd(206.188, 101.652, 19.387, 0.452)
pt3dadd(206.292, 101.593, 19.38, 0.452)
pt3dadd(206.395, 101.533, 19.373, 0.452)
pt3dadd(206.5, 101.473, 19.366, 0.452)
pt3dadd(206.603, 101.414, 19.359, 0.452)
pt3dadd(206.707, 101.354, 19.351, 0.452)
pt3dadd(206.81, 101.295, 19.344, 0.45)
pt3dadd(206.915, 101.236, 19.334, 0.448)
pt3dadd(207.019, 101.178, 19.325, 0.444)
pt3dadd(207.124, 101.119, 19.316, 0.442)
pt3dadd(207.228, 101.061, 19.307, 0.44)
pt3dadd(207.331, 101.002, 19.298, 0.436)
pt3dadd(207.436, 100.944, 19.289, 0.434)
pt3dadd(207.54, 100.885, 19.28, 0.43)
pt3dadd(207.644, 100.827, 19.271, 0.428)
pt3dadd(207.749, 100.768, 19.262, 0.424)
pt3dadd(207.854, 100.715, 19.25, 0.416)
pt3dadd(207.964, 100.669, 19.235, 0.4)
pt3dadd(208.074, 100.623, 19.22, 0.386)
pt3dadd(208.183, 100.578, 19.205, 0.37)
pt3dadd(208.292, 100.532, 19.19, 0.354)
pt3dadd(208.402, 100.487, 19.174, 0.338)
pt3dadd(208.512, 100.441, 19.159, 0.324)
pt3dadd(208.621, 100.395, 19.144, 0.308)
pt3dadd(208.73, 100.35, 19.129, 0.292)
pt3dadd(208.84, 100.304, 19.113, 0.276)
pt3dadd(208.945, 100.259, 19.087, 0.266)
pt3dadd(209.045, 100.216, 19.045, 0.262)
pt3dadd(209.144, 100.172, 19.002, 0.258)
pt3dadd(209.244, 100.129, 18.96, 0.252)
pt3dadd(209.344, 100.085, 18.917, 0.248)
pt3dadd(209.443, 100.041, 18.875, 0.244)
pt3dadd(209.543, 99.998, 18.832, 0.24)
pt3dadd(209.641, 99.954, 18.789, 0.236)
pt3dadd(209.741, 99.911, 18.747, 0.232)
pt3dadd(209.84, 99.867, 18.704, 0.228)
pt3dadd(209.929, 99.813, 18.656, 0.234)
pt3dadd(210.01, 99.751, 18.602, 0.248)
pt3dadd(210.089, 99.688, 18.549, 0.262)
pt3dadd(210.169, 99.626, 18.495, 0.278)
pt3dadd(210.248, 99.563, 18.442, 0.292)
pt3dadd(210.329, 99.501, 18.388, 0.306)
pt3dadd(210.408, 99.438, 18.335, 0.32)
pt3dadd(210.488, 99.376, 18.281, 0.334)
pt3dadd(210.568, 99.313, 18.228, 0.35)
pt3dadd(210.648, 99.251, 18.174, 0.364)
}
dend_7[36] {pt3dclear()
pt3dadd(167.682, 102.544, 24.169, 0.518)
pt3dadd(167.714, 102.516, 24.18, 0.538)
pt3dadd(167.801, 102.44, 24.208, 0.586)
pt3dadd(167.888, 102.365, 24.236, 0.636)
pt3dadd(167.975, 102.289, 24.264, 0.686)
pt3dadd(168.061, 102.213, 24.291, 0.736)
pt3dadd(168.149, 102.138, 24.319, 0.786)
pt3dadd(168.235, 102.062, 24.347, 0.836)
pt3dadd(168.323, 101.987, 24.375, 0.886)
pt3dadd(168.413, 101.915, 24.4, 0.924)
pt3dadd(168.523, 101.87, 24.4, 0.882)
pt3dadd(168.635, 101.825, 24.4, 0.84)
pt3dadd(168.746, 101.781, 24.4, 0.798)
}
}
proc shape3d_176() {
dend_7[36] { pt3dadd(168.858, 101.736, 24.4, 0.756)
pt3dadd(168.97, 101.692, 24.4, 0.714)
pt3dadd(169.08, 101.645, 24.4, 0.692)
pt3dadd(169.19, 101.597, 24.4, 0.678)
pt3dadd(169.301, 101.55, 24.4, 0.664)
pt3dadd(169.41, 101.502, 24.4, 0.65)
pt3dadd(169.52, 101.455, 24.4, 0.636)
pt3dadd(169.631, 101.406, 24.4, 0.632)
pt3dadd(169.739, 101.355, 24.4, 0.642)
pt3dadd(169.848, 101.305, 24.4, 0.65)
pt3dadd(169.957, 101.254, 24.4, 0.66)
pt3dadd(170.065, 101.204, 24.4, 0.67)
pt3dadd(170.174, 101.153, 24.4, 0.68)
pt3dadd(170.284, 101.103, 24.4, 0.688)
pt3dadd(170.392, 101.052, 24.4, 0.698)
pt3dadd(170.501, 101.002, 24.4, 0.708)
pt3dadd(170.61, 100.951, 24.4, 0.718)
pt3dadd(170.719, 100.901, 24.4, 0.726)
pt3dadd(170.831, 100.859, 24.4, 0.738)
pt3dadd(170.945, 100.82, 24.4, 0.748)
pt3dadd(171.061, 100.798, 24.4, 0.748)
pt3dadd(171.181, 100.793, 24.4, 0.74)
pt3dadd(171.301, 100.789, 24.4, 0.732)
pt3dadd(171.397, 100.732, 24.4, 0.72)
pt3dadd(171.479, 100.644, 24.4, 0.708)
pt3dadd(171.566, 100.563, 24.4, 0.704)
pt3dadd(171.66, 100.488, 24.4, 0.704)
pt3dadd(171.754, 100.426, 24.42, 0.708)
pt3dadd(171.845, 100.386, 24.475, 0.726)
pt3dadd(171.937, 100.347, 24.53, 0.742)
pt3dadd(172.038, 100.32, 24.571, 0.76)
pt3dadd(172.158, 100.32, 24.583, 0.778)
pt3dadd(172.277, 100.32, 24.596, 0.796)
pt3dadd(172.396, 100.32, 24.608, 0.804)
pt3dadd(172.507, 100.301, 24.637, 0.8)
pt3dadd(172.618, 100.276, 24.672, 0.794)
pt3dadd(172.727, 100.251, 24.707, 0.788)
pt3dadd(172.836, 100.226, 24.742, 0.784)
pt3dadd(172.945, 100.2, 24.778, 0.778)
pt3dadd(173.051, 100.153, 24.804, 0.772)
pt3dadd(173.156, 100.106, 24.831, 0.768)
pt3dadd(173.262, 100.059, 24.858, 0.762)
pt3dadd(173.368, 100.012, 24.885, 0.756)
pt3dadd(173.465, 99.951, 24.91, 0.756)
pt3dadd(173.55, 99.871, 24.933, 0.762)
pt3dadd(173.635, 99.792, 24.956, 0.768)
pt3dadd(173.722, 99.712, 24.979, 0.774)
pt3dadd(173.807, 99.633, 25.001, 0.778)
pt3dadd(173.897, 99.554, 25.008, 0.784)
pt3dadd(173.988, 99.475, 25.015, 0.79)
pt3dadd(174.078, 99.397, 25.022, 0.794)
pt3dadd(174.168, 99.318, 25.029, 0.8)
pt3dadd(174.247, 99.234, 25.046, 0.814)
pt3dadd(174.306, 99.139, 25.083, 0.84)
pt3dadd(174.366, 99.039, 25.1, 0.848)
pt3dadd(174.426, 98.936, 25.1, 0.836)
pt3dadd(174.49, 98.834, 25.1, 0.82)
pt3dadd(174.557, 98.735, 25.1, 0.798)
pt3dadd(174.634, 98.65, 25.1, 0.77)
pt3dadd(174.752, 98.629, 25.1, 0.722)
pt3dadd(174.87, 98.609, 25.1, 0.674)
pt3dadd(174.985, 98.575, 25.1, 0.624)
pt3dadd(175.097, 98.532, 25.101, 0.576)
pt3dadd(175.196, 98.496, 25.147, 0.56)
pt3dadd(175.297, 98.459, 25.193, 0.542)
pt3dadd(175.398, 98.423, 25.238, 0.526)
pt3dadd(175.498, 98.386, 25.284, 0.508)
pt3dadd(175.597, 98.333, 25.315, 0.506)
pt3dadd(175.696, 98.27, 25.337, 0.512)
pt3dadd(175.794, 98.207, 25.359, 0.518)
pt3dadd(175.892, 98.144, 25.382, 0.522)
pt3dadd(175.988, 98.076, 25.4, 0.53)
pt3dadd(176.069, 97.987, 25.4, 0.54)
pt3dadd(176.15, 97.899, 25.4, 0.55)
pt3dadd(176.231, 97.81, 25.4, 0.56)
pt3dadd(176.311, 97.721, 25.4, 0.57)
pt3dadd(176.399, 97.642, 25.4, 0.584)
pt3dadd(176.508, 97.591, 25.4, 0.612)
pt3dadd(176.617, 97.541, 25.4, 0.642)
pt3dadd(176.725, 97.49, 25.4, 0.67)
pt3dadd(176.834, 97.44, 25.4, 0.698)
pt3dadd(176.944, 97.389, 25.4, 0.728)
pt3dadd(177.019, 97.297, 25.4, 0.752)
pt3dadd(177.095, 97.203, 25.4, 0.778)
pt3dadd(177.169, 97.109, 25.4, 0.802)
pt3dadd(177.245, 97.016, 25.4, 0.828)
pt3dadd(177.319, 96.922, 25.4, 0.854)
pt3dadd(177.401, 96.834, 25.4, 0.924)
pt3dadd(177.482, 96.745, 25.4, 0.994)
pt3dadd(177.596, 96.725, 25.4, 1.028)
pt3dadd(177.715, 96.716, 25.4, 1.054)
pt3dadd(177.835, 96.704, 25.4, 1.082)
pt3dadd(177.947, 96.662, 25.405, 1.104)
pt3dadd(178.06, 96.621, 25.41, 1.126)
pt3dadd(178.134, 96.584, 25.475, 1.118)
pt3dadd(178.199, 96.548, 25.554, 1.106)
pt3dadd(178.229, 96.44, 25.588, 1.05)
pt3dadd(178.268, 96.331, 25.61, 0.992)
pt3dadd(178.313, 96.221, 25.626, 0.93)
pt3dadd(178.39, 96.145, 25.653, 0.866)
pt3dadd(178.489, 96.096, 25.689, 0.798)
pt3dadd(178.601, 96.057, 25.7, 0.756)
pt3dadd(178.716, 96.024, 25.7, 0.726)
pt3dadd(178.828, 96, 25.714, 0.7)
pt3dadd(178.932, 96, 25.764, 0.688)
pt3dadd(179.028, 95.998, 25.819, 0.676)
pt3dadd(179.035, 95.973, 25.916, 0.662)
pt3dadd(179.072, 95.939, 26.003, 0.646)
pt3dadd(179.14, 95.894, 26.077, 0.632)
pt3dadd(179.207, 95.866, 26.155, 0.61)
pt3dadd(179.276, 95.846, 26.235, 0.584)
pt3dadd(179.354, 95.807, 26.302, 0.578)
pt3dadd(179.437, 95.761, 26.365, 0.578)
pt3dadd(179.555, 95.755, 26.379, 0.578)
pt3dadd(179.674, 95.75, 26.392, 0.578)
pt3dadd(179.79, 95.73, 26.4, 0.596)
pt3dadd(179.902, 95.687, 26.4, 0.646)
pt3dadd(180.014, 95.647, 26.4, 0.68)
pt3dadd(180.128, 95.608, 26.4, 0.712)
pt3dadd(180.229, 95.548, 26.4, 0.75)
pt3dadd(180.317, 95.466, 26.4, 0.798)
pt3dadd(180.408, 95.389, 26.4, 0.838)
pt3dadd(180.508, 95.321, 26.4, 0.86)
pt3dadd(180.59, 95.243, 26.4, 0.878)
pt3dadd(180.611, 95.125, 26.4, 0.868)
pt3dadd(180.631, 95.007, 26.4, 0.858)
pt3dadd(180.691, 94.909, 26.4, 0.822)
pt3dadd(180.778, 94.826, 26.4, 0.774)
pt3dadd(180.871, 94.751, 26.4, 0.754)
pt3dadd(180.965, 94.676, 26.4, 0.734)
pt3dadd(181.058, 94.601, 26.4, 0.714)
pt3dadd(181.152, 94.526, 26.4, 0.694)
pt3dadd(181.246, 94.45, 26.4, 0.678)
pt3dadd(181.337, 94.373, 26.4, 0.678)
pt3dadd(181.428, 94.295, 26.4, 0.678)
pt3dadd(181.519, 94.217, 26.4, 0.678)
pt3dadd(181.61, 94.139, 26.4, 0.678)
pt3dadd(181.697, 94.057, 26.4, 0.678)
pt3dadd(181.769, 93.961, 26.4, 0.678)
pt3dadd(181.841, 93.865, 26.4, 0.678)
pt3dadd(181.913, 93.769, 26.4, 0.678)
pt3dadd(181.985, 93.673, 26.4, 0.678)
pt3dadd(182.065, 93.585, 26.4, 0.678)
pt3dadd(182.167, 93.522, 26.4, 0.678)
pt3dadd(182.269, 93.459, 26.4, 0.678)
pt3dadd(182.371, 93.396, 26.4, 0.678)
pt3dadd(182.473, 93.333, 26.4, 0.678)
pt3dadd(182.573, 93.271, 26.408, 0.676)
pt3dadd(182.66, 93.212, 26.456, 0.664)
pt3dadd(182.748, 93.154, 26.505, 0.652)
pt3dadd(182.834, 93.096, 26.553, 0.64)
pt3dadd(182.922, 93.038, 26.602, 0.628)
pt3dadd(183.017, 92.991, 26.649, 0.628)
pt3dadd(183.112, 92.944, 26.696, 0.628)
pt3dadd(183.206, 92.897, 26.743, 0.628)
pt3dadd(183.301, 92.85, 26.791, 0.628)
pt3dadd(183.41, 92.807, 26.8, 0.636)
pt3dadd(183.523, 92.766, 26.8, 0.644)
pt3dadd(183.635, 92.724, 26.8, 0.654)
pt3dadd(183.748, 92.682, 26.8, 0.662)
pt3dadd(183.86, 92.641, 26.8, 0.672)
pt3dadd(183.965, 92.585, 26.8, 0.682)
pt3dadd(184.052, 92.503, 26.8, 0.694)
pt3dadd(184.146, 92.436, 26.804, 0.704)
pt3dadd(184.262, 92.418, 26.824, 0.704)
pt3dadd(184.379, 92.401, 26.843, 0.704)
pt3dadd(184.441, 92.359, 26.918, 0.69)
pt3dadd(184.504, 92.316, 26.995, 0.676)
pt3dadd(184.596, 92.288, 27.055, 0.664)
pt3dadd(184.678, 92.249, 27.116, 0.65)
pt3dadd(184.722, 92.173, 27.183, 0.632)
pt3dadd(184.766, 92.096, 27.25, 0.616)
pt3dadd(184.816, 92.013, 27.3, 0.594)
pt3dadd(184.877, 91.909, 27.3, 0.56)
pt3dadd(184.936, 91.805, 27.301, 0.522)
pt3dadd(184.978, 91.715, 27.34, 0.472)
pt3dadd(185.029, 91.664, 27.419, 0.458)
pt3dadd(185.096, 91.593, 27.469, 0.452)
pt3dadd(185.174, 91.507, 27.492, 0.452)
pt3dadd(185.272, 91.442, 27.497, 0.452)
pt3dadd(185.377, 91.386, 27.491, 0.452)
pt3dadd(185.459, 91.311, 27.465, 0.444)
pt3dadd(185.519, 91.222, 27.422, 0.43)
pt3dadd(185.585, 91.129, 27.431, 0.42)
pt3dadd(185.652, 91.035, 27.457, 0.412)
pt3dadd(185.719, 90.94, 27.483, 0.404)
pt3dadd(185.822, 90.888, 27.493, 0.402)
pt3dadd(185.935, 90.846, 27.498, 0.402)
pt3dadd(186.049, 90.809, 27.5, 0.452)
pt3dadd(186.131, 90.734, 27.523, 0.494)
pt3dadd(186.199, 90.643, 27.554, 0.518)
pt3dadd(186.268, 90.552, 27.585, 0.542)
pt3dadd(186.336, 90.462, 27.617, 0.564)
pt3dadd(186.412, 90.38, 27.652, 0.588)
pt3dadd(186.496, 90.309, 27.692, 0.614)
pt3dadd(186.58, 90.238, 27.733, 0.638)
pt3dadd(186.664, 90.167, 27.773, 0.662)
pt3dadd(186.756, 90.102, 27.8, 0.682)
pt3dadd(186.863, 90.049, 27.8, 0.698)
pt3dadd(186.971, 89.995, 27.8, 0.712)
}
}
proc shape3d_177() {
dend_7[36] { pt3dadd(187.078, 89.942, 27.8, 0.726)
pt3dadd(187.184, 89.888, 27.8, 0.74)
pt3dadd(187.291, 89.833, 27.8, 0.754)
pt3dadd(187.394, 89.77, 27.8, 0.77)
pt3dadd(187.496, 89.707, 27.8, 0.784)
pt3dadd(187.598, 89.644, 27.8, 0.8)
pt3dadd(187.7, 89.581, 27.8, 0.814)
pt3dadd(187.802, 89.519, 27.8, 0.828)
pt3dadd(187.914, 89.474, 27.8, 0.834)
pt3dadd(188.026, 89.43, 27.8, 0.838)
pt3dadd(188.137, 89.385, 27.8, 0.842)
pt3dadd(188.249, 89.341, 27.8, 0.848)
pt3dadd(188.359, 89.296, 27.8, 0.852)
pt3dadd(188.465, 89.24, 27.8, 0.854)
pt3dadd(188.568, 89.177, 27.8, 0.854)
pt3dadd(188.67, 89.114, 27.8, 0.854)
pt3dadd(188.772, 89.051, 27.8, 0.854)
pt3dadd(188.874, 88.988, 27.8, 0.854)
pt3dadd(188.977, 88.927, 27.8, 0.852)
pt3dadd(189.082, 88.867, 27.8, 0.846)
pt3dadd(189.185, 88.807, 27.8, 0.842)
pt3dadd(189.289, 88.748, 27.8, 0.836)
pt3dadd(189.394, 88.688, 27.8, 0.832)
pt3dadd(189.488, 88.631, 27.824, 0.834)
pt3dadd(189.572, 88.578, 27.881, 0.85)
pt3dadd(189.667, 88.547, 27.934, 0.854)
pt3dadd(189.769, 88.527, 27.984, 0.854)
pt3dadd(189.871, 88.479, 28, 0.846)
pt3dadd(189.976, 88.418, 28, 0.834)
pt3dadd(190.057, 88.336, 28, 0.812)
pt3dadd(190.118, 88.232, 28, 0.778)
pt3dadd(190.177, 88.128, 28, 0.738)
pt3dadd(190.23, 88.02, 28, 0.688)
pt3dadd(190.314, 87.936, 28, 0.674)
pt3dadd(190.405, 87.859, 28, 0.668)
pt3dadd(190.496, 87.781, 28, 0.664)
pt3dadd(190.588, 87.703, 28, 0.658)
pt3dadd(190.679, 87.625, 28, 0.654)
pt3dadd(190.783, 87.565, 28, 0.656)
pt3dadd(190.889, 87.509, 28, 0.662)
pt3dadd(190.994, 87.452, 28, 0.666)
pt3dadd(191.1, 87.395, 28, 0.672)
pt3dadd(191.206, 87.339, 28, 0.676)
pt3dadd(191.32, 87.305, 28, 0.69)
pt3dadd(191.438, 87.283, 28, 0.706)
pt3dadd(191.556, 87.261, 28, 0.722)
pt3dadd(191.674, 87.239, 28, 0.74)
pt3dadd(191.791, 87.216, 28, 0.756)
pt3dadd(191.91, 87.194, 28, 0.772)
pt3dadd(192.019, 87.148, 28, 0.788)
pt3dadd(192.125, 87.092, 28, 0.802)
pt3dadd(192.23, 87.035, 28, 0.818)
pt3dadd(192.336, 86.978, 28, 0.832)
pt3dadd(192.442, 86.921, 28, 0.846)
pt3dadd(192.554, 86.888, 28, 0.854)
pt3dadd(192.674, 86.878, 28, 0.854)
pt3dadd(192.793, 86.868, 28, 0.854)
pt3dadd(192.913, 86.857, 28, 0.854)
pt3dadd(193.033, 86.847, 28, 0.854)
pt3dadd(193.152, 86.837, 28, 0.854)
pt3dadd(193.271, 86.825, 28, 0.854)
pt3dadd(193.375, 86.765, 28, 0.844)
pt3dadd(193.48, 86.705, 28, 0.834)
pt3dadd(193.583, 86.645, 28, 0.824)
pt3dadd(193.687, 86.585, 28, 0.814)
pt3dadd(193.792, 86.525, 28, 0.804)
pt3dadd(193.908, 86.5, 28, 0.792)
pt3dadd(194.026, 86.477, 28, 0.78)
pt3dadd(194.143, 86.455, 28, 0.768)
pt3dadd(194.262, 86.433, 28, 0.754)
pt3dadd(194.38, 86.411, 28, 0.742)
pt3dadd(194.497, 86.389, 28, 0.73)
pt3dadd(194.616, 86.371, 28, 0.732)
pt3dadd(194.735, 86.354, 28, 0.736)
pt3dadd(194.854, 86.336, 28, 0.74)
pt3dadd(194.972, 86.319, 28, 0.744)
pt3dadd(195.091, 86.302, 28, 0.748)
pt3dadd(195.21, 86.284, 28, 0.752)
pt3dadd(195.32, 86.24, 28, 0.756)
pt3dadd(195.427, 86.186, 28, 0.762)
pt3dadd(195.535, 86.133, 28, 0.766)
pt3dadd(195.642, 86.079, 28, 0.772)
pt3dadd(195.75, 86.026, 28, 0.776)
pt3dadd(195.854, 85.967, 28, 0.786)
pt3dadd(195.956, 85.904, 28, 0.8)
pt3dadd(196.058, 85.841, 28, 0.816)
pt3dadd(196.16, 85.778, 28, 0.83)
pt3dadd(196.262, 85.715, 28, 0.846)
pt3dadd(196.37, 85.665, 28, 0.858)
pt3dadd(196.486, 85.632, 28, 0.868)
pt3dadd(196.602, 85.599, 28, 0.878)
pt3dadd(196.717, 85.566, 28, 0.878)
pt3dadd(196.832, 85.534, 28, 0.878)
pt3dadd(196.924, 85.466, 28, 0.866)
pt3dadd(196.999, 85.372, 28, 0.842)
pt3dadd(197.068, 85.286, 28.026, 0.816)
pt3dadd(197.129, 85.209, 28.083, 0.786)
pt3dadd(197.221, 85.154, 28.122, 0.778)
pt3dadd(197.326, 85.108, 28.153, 0.778)
pt3dadd(197.43, 85.063, 28.185, 0.778)
pt3dadd(197.536, 85.013, 28.2, 0.79)
pt3dadd(197.642, 84.959, 28.2, 0.812)
pt3dadd(197.75, 84.905, 28.2, 0.838)
pt3dadd(197.854, 84.844, 28.2, 0.854)
pt3dadd(197.953, 84.779, 28.2, 0.854)
pt3dadd(198.054, 84.713, 28.2, 0.854)
pt3dadd(198.155, 84.647, 28.2, 0.854)
pt3dadd(198.254, 84.581, 28.2, 0.854)
pt3dadd(198.347, 84.506, 28.2, 0.854)
pt3dadd(198.431, 84.42, 28.2, 0.854)
pt3dadd(198.514, 84.333, 28.2, 0.854)
pt3dadd(198.598, 84.247, 28.2, 0.854)
pt3dadd(198.68, 84.161, 28.2, 0.854)
pt3dadd(198.767, 84.077, 28.2, 0.862)
pt3dadd(198.856, 83.997, 28.2, 0.878)
pt3dadd(198.944, 83.916, 28.2, 0.892)
pt3dadd(199.033, 83.835, 28.2, 0.908)
pt3dadd(199.122, 83.755, 28.2, 0.922)
pt3dadd(199.205, 83.668, 28.2, 0.938)
pt3dadd(199.283, 83.577, 28.2, 0.954)
pt3dadd(199.361, 83.485, 28.2, 0.968)
pt3dadd(199.439, 83.394, 28.2, 0.984)
pt3dadd(199.517, 83.303, 28.2, 0.998)
pt3dadd(199.609, 83.23, 28.209, 1.004)
pt3dadd(199.712, 83.171, 28.223, 1.004)
pt3dadd(199.814, 83.111, 28.237, 1.004)
pt3dadd(199.918, 83.051, 28.252, 1.004)
pt3dadd(200.02, 82.991, 28.266, 1.004)
pt3dadd(200.104, 82.914, 28.296, 0.976)
pt3dadd(200.185, 82.835, 28.328, 0.946)
pt3dadd(200.267, 82.756, 28.359, 0.918)
pt3dadd(200.35, 82.677, 28.391, 0.888)
pt3dadd(200.424, 82.588, 28.417, 0.812)
pt3dadd(200.495, 82.496, 28.44, 0.72)
pt3dadd(200.545, 82.458, 28.518, 0.652)
pt3dadd(200.593, 82.431, 28.608, 0.588)
pt3dadd(200.675, 82.377, 28.659, 0.554)
pt3dadd(200.766, 82.317, 28.7, 0.528)
pt3dadd(200.873, 82.263, 28.7, 0.528)
pt3dadd(200.981, 82.21, 28.7, 0.528)
pt3dadd(201.088, 82.156, 28.7, 0.5)
pt3dadd(201.198, 82.109, 28.7, 0.456)
pt3dadd(201.313, 82.076, 28.7, 0.41)
pt3dadd(201.428, 82.044, 28.7, 0.446)
pt3dadd(201.524, 81.972, 28.7, 0.548)
pt3dadd(201.613, 81.893, 28.7, 0.678)
pt3dadd(201.72, 81.84, 28.7, 0.904)
}
dend_0[6] {pt3dclear()
pt3dadd(127.273, 104.059, 17.955, 14.238)
pt3dadd(127.273, 104.059, 17.963, 14.234)
pt3dadd(127.273, 104.059, 18.063, 14.176)
pt3dadd(127.273, 104.059, 18.163, 14.118)
pt3dadd(127.273, 104.059, 18.263, 14.06)
pt3dadd(127.273, 104.059, 18.363, 14.002)
pt3dadd(127.273, 104.059, 18.463, 13.944)
pt3dadd(127.273, 104.059, 18.563, 13.886)
pt3dadd(127.273, 104.059, 18.663, 13.828)
pt3dadd(127.273, 104.059, 18.763, 13.77)
pt3dadd(127.273, 104.059, 18.863, 13.712)
pt3dadd(127.302, 104.053, 18.959, 13.624)
pt3dadd(127.339, 104.046, 19.054, 13.526)
pt3dadd(127.378, 104.038, 19.148, 13.428)
pt3dadd(127.416, 104.03, 19.243, 13.33)
pt3dadd(127.453, 104.022, 19.337, 13.232)
pt3dadd(127.492, 104.014, 19.432, 13.134)
pt3dadd(127.53, 104.006, 19.527, 13.036)
pt3dadd(127.568, 103.999, 19.621, 12.938)
pt3dadd(127.606, 103.991, 19.716, 12.84)
pt3dadd(127.681, 103.975, 19.788, 12.712)
pt3dadd(127.775, 103.956, 19.849, 12.572)
pt3dadd(127.867, 103.937, 19.911, 12.43)
pt3dadd(127.96, 103.918, 19.972, 12.288)
pt3dadd(128.052, 103.899, 20.034, 12.148)
pt3dadd(128.146, 103.881, 20.095, 12.006)
pt3dadd(128.238, 103.862, 20.157, 11.866)
pt3dadd(128.33, 103.843, 20.218, 11.724)
pt3dadd(128.424, 103.824, 20.28, 11.584)
pt3dadd(128.516, 103.805, 20.341, 11.442)
pt3dadd(128.609, 103.785, 20.402, 11.3)
pt3dadd(128.702, 103.765, 20.463, 11.158)
pt3dadd(128.795, 103.745, 20.524, 11.014)
pt3dadd(128.888, 103.725, 20.585, 10.872)
pt3dadd(128.981, 103.705, 20.646, 10.728)
pt3dadd(129.073, 103.685, 20.708, 10.586)
pt3dadd(129.167, 103.665, 20.768, 10.442)
pt3dadd(129.259, 103.646, 20.83, 10.3)
pt3dadd(129.353, 103.626, 20.891, 10.156)
pt3dadd(129.445, 103.606, 20.952, 10.014)
pt3dadd(129.54, 103.582, 21.01, 9.862)
pt3dadd(129.634, 103.556, 21.068, 9.708)
pt3dadd(129.728, 103.53, 21.126, 9.554)
pt3dadd(129.823, 103.504, 21.183, 9.398)
pt3dadd(129.918, 103.479, 21.241, 9.244)
pt3dadd(130.013, 103.453, 21.299, 9.09)
pt3dadd(130.108, 103.427, 21.356, 8.934)
pt3dadd(130.201, 103.401, 21.414, 8.78)
pt3dadd(130.296, 103.375, 21.472, 8.626)
pt3dadd(130.391, 103.349, 21.529, 8.47)
pt3dadd(130.488, 103.314, 21.58, 8.326)
pt3dadd(130.585, 103.273, 21.628, 8.188)
pt3dadd(130.682, 103.233, 21.676, 8.048)
}
}
proc shape3d_178() {
dend_0[6] { pt3dadd(130.78, 103.193, 21.723, 7.91)
pt3dadd(130.877, 103.152, 21.771, 7.772)
pt3dadd(130.974, 103.112, 21.819, 7.632)
pt3dadd(131.071, 103.072, 21.867, 7.494)
pt3dadd(131.17, 103.031, 21.915, 7.354)
pt3dadd(131.267, 102.991, 21.963, 7.216)
pt3dadd(131.364, 102.951, 22.01, 7.076)
pt3dadd(131.46, 102.891, 22.041, 6.968)
pt3dadd(131.557, 102.828, 22.07, 6.862)
pt3dadd(131.653, 102.766, 22.099, 6.758)
pt3dadd(131.75, 102.704, 22.128, 6.652)
pt3dadd(131.846, 102.642, 22.157, 6.546)
pt3dadd(131.942, 102.579, 22.186, 6.442)
pt3dadd(132.04, 102.517, 22.215, 6.336)
pt3dadd(132.136, 102.455, 22.244, 6.23)
}
dend_7[37] {pt3dclear()
pt3dadd(132.136, 102.455, 22.244, 6.23)
pt3dadd(132.233, 102.392, 22.273, 6.126)
pt3dadd(132.329, 102.33, 22.302, 6.02)
pt3dadd(132.424, 102.26, 22.323, 5.93)
pt3dadd(132.517, 102.189, 22.342, 5.842)
pt3dadd(132.611, 102.119, 22.362, 5.754)
pt3dadd(132.704, 102.048, 22.382, 5.666)
pt3dadd(132.799, 101.977, 22.402, 5.578)
pt3dadd(132.893, 101.906, 22.422, 5.488)
pt3dadd(132.986, 101.835, 22.442, 5.4)
pt3dadd(133.08, 101.765, 22.462, 5.312)
pt3dadd(133.175, 101.694, 22.482, 5.224)
pt3dadd(133.268, 101.623, 22.502, 5.136)
pt3dadd(133.357, 101.543, 22.51, 5.07)
pt3dadd(133.446, 101.463, 22.519, 5.006)
pt3dadd(133.535, 101.383, 22.527, 4.94)
pt3dadd(133.624, 101.303, 22.535, 4.876)
pt3dadd(133.712, 101.223, 22.544, 4.81)
pt3dadd(133.802, 101.144, 22.552, 4.744)
pt3dadd(133.891, 101.064, 22.56, 4.68)
pt3dadd(133.98, 100.984, 22.569, 4.614)
pt3dadd(134.069, 100.904, 22.577, 4.55)
pt3dadd(134.158, 100.824, 22.585, 4.484)
pt3dadd(134.245, 100.742, 22.591, 4.432)
pt3dadd(134.332, 100.659, 22.596, 4.378)
pt3dadd(134.419, 100.577, 22.601, 4.326)
pt3dadd(134.507, 100.495, 22.607, 4.272)
pt3dadd(134.593, 100.413, 22.612, 4.22)
pt3dadd(134.681, 100.331, 22.617, 4.166)
pt3dadd(134.768, 100.249, 22.622, 4.114)
pt3dadd(134.856, 100.166, 22.628, 4.062)
pt3dadd(134.942, 100.084, 22.633, 4.008)
pt3dadd(135.03, 100.002, 22.638, 3.956)
pt3dadd(135.114, 99.916, 22.638, 3.924)
pt3dadd(135.197, 99.83, 22.638, 3.894)
pt3dadd(135.281, 99.744, 22.638, 3.862)
pt3dadd(135.365, 99.658, 22.638, 3.832)
pt3dadd(135.448, 99.572, 22.638, 3.8)
pt3dadd(135.532, 99.486, 22.638, 3.77)
pt3dadd(135.616, 99.4, 22.638, 3.738)
pt3dadd(135.7, 99.314, 22.638, 3.706)
pt3dadd(135.782, 99.228, 22.638, 3.676)
pt3dadd(135.866, 99.142, 22.638, 3.644)
pt3dadd(135.95, 99.055, 22.638, 3.604)
pt3dadd(136.033, 98.969, 22.638, 3.564)
pt3dadd(136.117, 98.883, 22.638, 3.522)
pt3dadd(136.2, 98.797, 22.638, 3.482)
pt3dadd(136.284, 98.711, 22.637, 3.44)
pt3dadd(136.368, 98.625, 22.637, 3.4)
pt3dadd(136.451, 98.538, 22.637, 3.36)
pt3dadd(136.535, 98.452, 22.637, 3.318)
pt3dadd(136.618, 98.366, 22.637, 3.278)
pt3dadd(136.702, 98.28, 22.637, 3.236)
pt3dadd(136.784, 98.193, 22.637, 3.152)
pt3dadd(136.866, 98.106, 22.637, 3.068)
pt3dadd(136.949, 98.018, 22.637, 2.984)
pt3dadd(137.032, 97.931, 22.637, 2.9)
pt3dadd(137.113, 97.844, 22.637, 2.816)
pt3dadd(137.196, 97.757, 22.637, 2.732)
pt3dadd(137.279, 97.669, 22.636, 2.648)
pt3dadd(137.36, 97.582, 22.636, 2.564)
pt3dadd(137.443, 97.495, 22.636, 2.48)
pt3dadd(137.526, 97.408, 22.636, 2.396)
pt3dadd(137.608, 97.321, 22.636, 2.314)
pt3dadd(137.69, 97.233, 22.636, 2.232)
pt3dadd(137.773, 97.146, 22.636, 2.152)
pt3dadd(137.855, 97.059, 22.636, 2.07)
pt3dadd(137.938, 96.971, 22.635, 1.988)
pt3dadd(138.02, 96.884, 22.635, 1.908)
pt3dadd(138.102, 96.797, 22.635, 1.826)
pt3dadd(138.185, 96.71, 22.635, 1.744)
pt3dadd(138.266, 96.622, 22.635, 1.664)
pt3dadd(138.349, 96.535, 22.635, 1.582)
pt3dadd(138.428, 96.445, 22.635, 1.582)
pt3dadd(138.508, 96.354, 22.635, 1.582)
pt3dadd(138.587, 96.264, 22.634, 1.582)
pt3dadd(138.666, 96.174, 22.634, 1.582)
pt3dadd(138.744, 96.084, 22.634, 1.582)
pt3dadd(138.823, 95.993, 22.634, 1.582)
pt3dadd(138.902, 95.903, 22.633, 1.582)
pt3dadd(138.982, 95.813, 22.633, 1.582)
pt3dadd(139.061, 95.722, 22.633, 1.582)
pt3dadd(139.14, 95.632, 22.633, 1.582)
pt3dadd(139.219, 95.542, 22.632, 1.582)
pt3dadd(139.297, 95.451, 22.632, 1.582)
pt3dadd(139.376, 95.361, 22.632, 1.582)
pt3dadd(139.456, 95.271, 22.632, 1.582)
pt3dadd(139.535, 95.181, 22.632, 1.582)
pt3dadd(139.614, 95.09, 22.631, 1.582)
pt3dadd(139.693, 95, 22.631, 1.582)
pt3dadd(139.771, 94.91, 22.631, 1.582)
pt3dadd(139.85, 94.819, 22.63, 1.582)
pt3dadd(139.93, 94.729, 22.63, 1.582)
pt3dadd(140.003, 94.634, 22.63, 1.57)
pt3dadd(140.076, 94.538, 22.629, 1.56)
pt3dadd(140.148, 94.443, 22.629, 1.548)
pt3dadd(140.221, 94.347, 22.628, 1.538)
pt3dadd(140.294, 94.252, 22.628, 1.526)
pt3dadd(140.366, 94.157, 22.627, 1.516)
pt3dadd(140.44, 94.061, 22.627, 1.504)
pt3dadd(140.513, 93.966, 22.626, 1.494)
pt3dadd(140.585, 93.871, 22.626, 1.482)
pt3dadd(140.658, 93.775, 22.625, 1.472)
pt3dadd(140.73, 93.68, 22.625, 1.46)
pt3dadd(140.803, 93.584, 22.624, 1.448)
pt3dadd(140.875, 93.488, 22.624, 1.436)
pt3dadd(140.948, 93.393, 22.623, 1.426)
pt3dadd(141.02, 93.297, 22.623, 1.414)
pt3dadd(141.092, 93.201, 22.622, 1.402)
pt3dadd(141.166, 93.106, 22.621, 1.39)
pt3dadd(141.238, 93.01, 22.621, 1.38)
pt3dadd(141.311, 92.914, 22.62, 1.368)
pt3dadd(141.383, 92.819, 22.62, 1.356)
}
dend_7[38] {pt3dclear()
pt3dadd(141.383, 92.819, 22.62, 1.356)
pt3dadd(141.409, 92.744, 22.619, 1.328)
pt3dadd(141.45, 92.631, 22.618, 1.288)
pt3dadd(141.491, 92.518, 22.616, 1.248)
pt3dadd(141.53, 92.405, 22.615, 1.206)
pt3dadd(141.571, 92.292, 22.613, 1.166)
pt3dadd(141.612, 92.179, 22.612, 1.124)
pt3dadd(141.653, 92.066, 22.61, 1.084)
pt3dadd(141.692, 91.953, 22.609, 1.042)
pt3dadd(141.733, 91.84, 22.608, 1.002)
pt3dadd(141.774, 91.727, 22.606, 0.96)
pt3dadd(141.815, 91.614, 22.605, 0.92)
pt3dadd(141.854, 91.501, 22.603, 0.878)
pt3dadd(141.895, 91.389, 22.602, 0.838)
pt3dadd(141.936, 91.276, 22.601, 0.798)
pt3dadd(141.977, 91.163, 22.599, 0.756)
pt3dadd(141.997, 91.045, 22.597, 0.724)
pt3dadd(142.015, 90.926, 22.594, 0.692)
pt3dadd(142.034, 90.808, 22.591, 0.662)
pt3dadd(142.052, 90.689, 22.588, 0.63)
pt3dadd(142.07, 90.57, 22.586, 0.6)
pt3dadd(142.088, 90.452, 22.583, 0.568)
pt3dadd(142.106, 90.333, 22.58, 0.538)
pt3dadd(142.124, 90.215, 22.577, 0.506)
pt3dadd(142.144, 90.096, 22.575, 0.476)
pt3dadd(142.162, 89.978, 22.572, 0.444)
pt3dadd(142.172, 89.858, 22.568, 0.422)
pt3dadd(142.182, 89.739, 22.564, 0.4)
pt3dadd(142.192, 89.619, 22.56, 0.378)
pt3dadd(142.202, 89.5, 22.556, 0.358)
pt3dadd(142.212, 89.38, 22.552, 0.336)
pt3dadd(142.222, 89.261, 22.547, 0.314)
pt3dadd(142.231, 89.141, 22.543, 0.292)
pt3dadd(142.242, 89.022, 22.539, 0.27)
pt3dadd(142.252, 88.902, 22.535, 0.25)
pt3dadd(142.261, 88.783, 22.531, 0.228)
pt3dadd(142.262, 88.663, 22.524, 0.226)
pt3dadd(142.262, 88.544, 22.516, 0.226)
pt3dadd(142.262, 88.424, 22.509, 0.226)
pt3dadd(142.262, 88.304, 22.502, 0.226)
pt3dadd(142.262, 88.185, 22.494, 0.226)
pt3dadd(142.262, 88.065, 22.487, 0.226)
pt3dadd(142.262, 87.945, 22.479, 0.226)
pt3dadd(142.262, 87.825, 22.472, 0.226)
pt3dadd(142.262, 87.706, 22.465, 0.226)
pt3dadd(142.262, 87.586, 22.457, 0.226)
pt3dadd(142.262, 87.467, 22.447, 0.226)
pt3dadd(142.262, 87.348, 22.436, 0.226)
pt3dadd(142.262, 87.228, 22.425, 0.226)
pt3dadd(142.262, 87.109, 22.414, 0.226)
pt3dadd(142.262, 86.99, 22.403, 0.226)
pt3dadd(142.262, 86.87, 22.393, 0.226)
pt3dadd(142.262, 86.751, 22.382, 0.226)
pt3dadd(142.262, 86.632, 22.371, 0.226)
pt3dadd(142.262, 86.513, 22.36, 0.226)
pt3dadd(142.262, 86.393, 22.349, 0.226)
pt3dadd(142.262, 86.275, 22.334, 0.226)
pt3dadd(142.262, 86.156, 22.318, 0.226)
pt3dadd(142.262, 86.038, 22.302, 0.226)
pt3dadd(142.262, 85.919, 22.286, 0.226)
pt3dadd(142.262, 85.801, 22.27, 0.226)
pt3dadd(142.262, 85.682, 22.255, 0.226)
pt3dadd(142.262, 85.564, 22.239, 0.226)
pt3dadd(142.262, 85.445, 22.223, 0.226)
pt3dadd(142.262, 85.327, 22.207, 0.226)
pt3dadd(142.262, 85.208, 22.191, 0.226)
pt3dadd(142.262, 85.098, 22.153, 0.226)
pt3dadd(142.262, 84.987, 22.114, 0.226)
pt3dadd(142.262, 84.877, 22.075, 0.226)
pt3dadd(142.262, 84.766, 22.036, 0.226)
pt3dadd(142.262, 84.656, 21.997, 0.226)
pt3dadd(142.262, 84.545, 21.958, 0.226)
}
}
proc shape3d_179() {
dend_7[38] { pt3dadd(142.262, 84.435, 21.919, 0.226)
pt3dadd(142.262, 84.324, 21.88, 0.226)
pt3dadd(142.262, 84.213, 21.841, 0.226)
pt3dadd(142.262, 84.103, 21.802, 0.226)
pt3dadd(142.262, 83.99, 21.768, 0.27)
pt3dadd(142.262, 83.877, 21.734, 0.316)
pt3dadd(142.262, 83.764, 21.7, 0.362)
pt3dadd(142.262, 83.651, 21.667, 0.408)
pt3dadd(142.262, 83.538, 21.633, 0.454)
pt3dadd(142.262, 83.426, 21.599, 0.5)
pt3dadd(142.262, 83.313, 21.565, 0.544)
pt3dadd(142.262, 83.2, 21.531, 0.59)
pt3dadd(142.262, 83.087, 21.497, 0.636)
pt3dadd(142.262, 82.974, 21.463, 0.682)
pt3dadd(142.262, 82.859, 21.435, 0.782)
pt3dadd(142.262, 82.743, 21.407, 0.882)
pt3dadd(142.262, 82.628, 21.38, 0.982)
pt3dadd(142.262, 82.513, 21.352, 1.082)
pt3dadd(142.262, 82.398, 21.324, 1.184)
pt3dadd(142.262, 82.282, 21.296, 1.284)
pt3dadd(142.262, 82.167, 21.269, 1.384)
pt3dadd(142.262, 82.052, 21.241, 1.484)
pt3dadd(142.262, 81.937, 21.213, 1.584)
pt3dadd(142.262, 81.821, 21.185, 1.684)
pt3dadd(142.262, 81.704, 21.164, 1.604)
pt3dadd(142.262, 81.587, 21.143, 1.522)
pt3dadd(142.262, 81.469, 21.122, 1.442)
pt3dadd(142.262, 81.352, 21.1, 1.36)
pt3dadd(142.264, 81.235, 21.079, 1.278)
pt3dadd(142.264, 81.118, 21.058, 1.198)
pt3dadd(142.264, 81, 21.037, 1.116)
pt3dadd(142.264, 80.883, 21.015, 1.034)
pt3dadd(142.264, 80.766, 20.994, 0.954)
pt3dadd(142.264, 80.649, 20.973, 0.872)
pt3dadd(142.264, 80.531, 20.954, 0.832)
pt3dadd(142.264, 80.413, 20.936, 0.794)
pt3dadd(142.264, 80.295, 20.917, 0.754)
pt3dadd(142.264, 80.177, 20.899, 0.716)
pt3dadd(142.264, 80.059, 20.88, 0.678)
pt3dadd(142.264, 79.941, 20.862, 0.638)
pt3dadd(142.264, 79.823, 20.843, 0.6)
pt3dadd(142.264, 79.705, 20.825, 0.56)
pt3dadd(142.264, 79.587, 20.806, 0.522)
pt3dadd(142.264, 79.469, 20.788, 0.482)
pt3dadd(142.264, 79.351, 20.772, 0.546)
pt3dadd(142.264, 79.232, 20.756, 0.612)
pt3dadd(142.264, 79.114, 20.74, 0.676)
pt3dadd(142.264, 78.995, 20.725, 0.742)
pt3dadd(142.265, 78.877, 20.709, 0.806)
pt3dadd(142.265, 78.758, 20.693, 0.87)
pt3dadd(142.265, 78.64, 20.677, 0.936)
pt3dadd(142.265, 78.521, 20.662, 1)
pt3dadd(142.265, 78.403, 20.646, 1.066)
pt3dadd(142.265, 78.284, 20.63, 1.13)
}
dend_7[39] {pt3dclear()
pt3dadd(142.265, 78.284, 20.63, 1.13)
pt3dadd(142.265, 78.231, 20.597, 1.12)
pt3dadd(142.265, 78.136, 20.536, 1.1)
pt3dadd(142.266, 78.04, 20.476, 1.08)
pt3dadd(142.266, 77.944, 20.416, 1.062)
pt3dadd(142.266, 77.849, 20.355, 1.042)
pt3dadd(142.266, 77.753, 20.295, 1.022)
pt3dadd(142.266, 77.657, 20.235, 1.004)
pt3dadd(142.267, 77.561, 20.174, 0.984)
pt3dadd(142.267, 77.466, 20.114, 0.964)
pt3dadd(142.267, 77.37, 20.054, 0.946)
}
dend_7[40] {pt3dclear()
pt3dadd(142.267, 77.37, 20.054, 0.946)
pt3dadd(142.267, 77.271, 20.009, 0.902)
pt3dadd(142.268, 77.165, 19.962, 0.858)
pt3dadd(142.268, 77.06, 19.914, 0.812)
pt3dadd(142.268, 76.954, 19.866, 0.768)
pt3dadd(142.268, 76.848, 19.819, 0.722)
pt3dadd(142.27, 76.743, 19.771, 0.676)
pt3dadd(142.27, 76.637, 19.724, 0.632)
pt3dadd(142.27, 76.532, 19.677, 0.586)
pt3dadd(142.271, 76.426, 19.629, 0.542)
pt3dadd(142.271, 76.321, 19.581, 0.496)
pt3dadd(142.272, 76.211, 19.541, 0.476)
pt3dadd(142.272, 76.101, 19.501, 0.456)
pt3dadd(142.273, 75.991, 19.461, 0.436)
pt3dadd(142.273, 75.881, 19.421, 0.418)
pt3dadd(142.274, 75.771, 19.381, 0.398)
pt3dadd(142.276, 75.661, 19.341, 0.378)
pt3dadd(142.276, 75.551, 19.301, 0.36)
pt3dadd(142.277, 75.441, 19.262, 0.34)
pt3dadd(142.277, 75.331, 19.222, 0.32)
pt3dadd(142.278, 75.221, 19.181, 0.3)
pt3dadd(142.279, 75.109, 19.146, 0.316)
pt3dadd(142.279, 74.997, 19.11, 0.33)
pt3dadd(142.28, 74.885, 19.073, 0.346)
pt3dadd(142.282, 74.773, 19.038, 0.36)
pt3dadd(142.282, 74.661, 19.001, 0.376)
pt3dadd(142.283, 74.549, 18.965, 0.39)
pt3dadd(142.284, 74.437, 18.93, 0.406)
pt3dadd(142.285, 74.325, 18.894, 0.422)
pt3dadd(142.285, 74.213, 18.858, 0.436)
pt3dadd(142.286, 74.101, 18.822, 0.452)
pt3dadd(142.288, 73.999, 18.769, 0.452)
pt3dadd(142.29, 73.897, 18.716, 0.452)
pt3dadd(142.291, 73.796, 18.663, 0.452)
pt3dadd(142.294, 73.694, 18.61, 0.452)
pt3dadd(142.295, 73.592, 18.557, 0.452)
pt3dadd(142.296, 73.49, 18.504, 0.452)
pt3dadd(142.298, 73.388, 18.451, 0.452)
pt3dadd(142.3, 73.287, 18.399, 0.452)
pt3dadd(142.302, 73.185, 18.346, 0.452)
pt3dadd(142.303, 73.083, 18.293, 0.452)
pt3dadd(142.306, 72.983, 18.237, 0.46)
pt3dadd(142.307, 72.883, 18.182, 0.466)
pt3dadd(142.309, 72.783, 18.127, 0.474)
pt3dadd(142.31, 72.683, 18.071, 0.48)
pt3dadd(142.313, 72.583, 18.016, 0.488)
pt3dadd(142.315, 72.483, 17.96, 0.494)
pt3dadd(142.316, 72.384, 17.905, 0.502)
pt3dadd(142.319, 72.284, 17.85, 0.508)
pt3dadd(142.32, 72.184, 17.794, 0.516)
pt3dadd(142.322, 72.084, 17.739, 0.522)
pt3dadd(142.326, 71.992, 17.674, 0.556)
pt3dadd(142.328, 71.901, 17.61, 0.592)
pt3dadd(142.332, 71.809, 17.545, 0.626)
pt3dadd(142.334, 71.718, 17.481, 0.66)
pt3dadd(142.338, 71.626, 17.416, 0.694)
pt3dadd(142.342, 71.535, 17.351, 0.73)
pt3dadd(142.344, 71.443, 17.287, 0.764)
pt3dadd(142.348, 71.352, 17.222, 0.798)
pt3dadd(142.35, 71.26, 17.158, 0.832)
pt3dadd(142.354, 71.168, 17.093, 0.866)
}
dend_7[41] {pt3dclear()
pt3dadd(142.354, 71.168, 17.093, 0.866)
pt3dadd(142.324, 71.185, 17.06, 0.874)
pt3dadd(142.312, 71.113, 16.985, 0.904)
pt3dadd(142.301, 71.04, 16.909, 0.936)
pt3dadd(142.29, 70.967, 16.834, 0.968)
pt3dadd(142.278, 70.895, 16.758, 1)
pt3dadd(142.266, 70.822, 16.683, 1.032)
pt3dadd(142.254, 70.749, 16.607, 1.064)
pt3dadd(142.243, 70.677, 16.532, 1.096)
pt3dadd(142.231, 70.604, 16.456, 1.126)
pt3dadd(142.22, 70.531, 16.381, 1.158)
pt3dadd(142.21, 70.459, 16.305, 1.188)
pt3dadd(142.201, 70.391, 16.226, 1.212)
pt3dadd(142.194, 70.322, 16.147, 1.234)
pt3dadd(142.178, 70.34, 16.137, 1.234)
pt3dadd(142.17, 70.271, 16.058, 1.258)
pt3dadd(142.162, 70.203, 15.979, 1.28)
pt3dadd(142.154, 70.134, 15.9, 1.302)
pt3dadd(142.146, 70.066, 15.821, 1.326)
pt3dadd(142.139, 69.997, 15.742, 1.348)
pt3dadd(142.13, 69.928, 15.663, 1.372)
pt3dadd(142.122, 69.86, 15.584, 1.394)
pt3dadd(142.115, 69.791, 15.506, 1.414)
pt3dadd(142.108, 69.719, 15.43, 1.428)
pt3dadd(142.103, 69.647, 15.354, 1.442)
pt3dadd(142.097, 69.575, 15.278, 1.456)
pt3dadd(142.091, 69.503, 15.202, 1.468)
pt3dadd(142.085, 69.431, 15.126, 1.482)
pt3dadd(142.079, 69.359, 15.05, 1.496)
pt3dadd(142.072, 69.288, 14.975, 1.508)
pt3dadd(142.066, 69.216, 14.899, 1.522)
pt3dadd(142.061, 69.144, 14.823, 1.536)
pt3dadd(142.056, 69.07, 14.749, 1.542)
pt3dadd(142.056, 68.99, 14.683, 1.528)
pt3dadd(142.055, 68.91, 14.617, 1.514)
pt3dadd(142.055, 68.83, 14.55, 1.5)
pt3dadd(142.055, 68.75, 14.484, 1.486)
pt3dadd(142.054, 68.669, 14.418, 1.472)
pt3dadd(142.055, 68.589, 14.352, 1.458)
pt3dadd(142.055, 68.509, 14.285, 1.444)
pt3dadd(142.055, 68.429, 14.219, 1.43)
pt3dadd(142.054, 68.349, 14.153, 1.416)
pt3dadd(142.06, 68.274, 14.084, 1.402)
pt3dadd(142.085, 68.215, 14.005, 1.388)
pt3dadd(142.111, 68.156, 13.926, 1.372)
pt3dadd(142.136, 68.097, 13.847, 1.358)
pt3dadd(142.16, 68.038, 13.768, 1.342)
pt3dadd(142.186, 67.979, 13.689, 1.328)
pt3dadd(142.211, 67.92, 13.61, 1.314)
pt3dadd(142.236, 67.862, 13.531, 1.298)
pt3dadd(142.261, 67.803, 13.452, 1.284)
pt3dadd(142.288, 67.744, 13.373, 1.268)
pt3dadd(142.272, 67.761, 13.364, 1.268)
pt3dadd(142.302, 67.71, 13.282, 1.254)
pt3dadd(142.337, 67.665, 13.199, 1.24)
pt3dadd(142.373, 67.62, 13.115, 1.224)
pt3dadd(142.409, 67.576, 13.031, 1.21)
pt3dadd(142.444, 67.531, 12.947, 1.196)
pt3dadd(142.481, 67.486, 12.863, 1.18)
pt3dadd(142.517, 67.442, 12.78, 1.166)
pt3dadd(142.552, 67.397, 12.696, 1.152)
pt3dadd(142.536, 67.414, 12.686, 1.152)
pt3dadd(142.572, 67.37, 12.602, 1.136)
pt3dadd(142.608, 67.325, 12.518, 1.122)
pt3dadd(142.636, 67.278, 12.433, 1.108)
pt3dadd(142.658, 67.229, 12.346, 1.094)
pt3dadd(142.68, 67.18, 12.259, 1.08)
pt3dadd(142.702, 67.131, 12.172, 1.066)
pt3dadd(142.723, 67.082, 12.086, 1.052)
pt3dadd(142.745, 67.033, 11.999, 1.038)
pt3dadd(142.766, 66.984, 11.912, 1.026)
pt3dadd(142.788, 66.935, 11.825, 1.012)
pt3dadd(142.774, 66.953, 11.815, 1.012)
pt3dadd(142.795, 66.904, 11.728, 0.998)
}
}
proc shape3d_180() {
dend_7[41] { pt3dadd(142.78, 66.922, 11.718, 0.998)
pt3dadd(142.801, 66.873, 11.631, 0.984)
pt3dadd(142.82, 66.828, 11.541, 0.962)
pt3dadd(142.84, 66.789, 11.448, 0.934)
pt3dadd(142.858, 66.749, 11.355, 0.906)
pt3dadd(142.877, 66.71, 11.262, 0.878)
pt3dadd(142.896, 66.671, 11.169, 0.85)
pt3dadd(142.914, 66.631, 11.076, 0.822)
pt3dadd(142.932, 66.592, 10.983, 0.792)
pt3dadd(142.951, 66.552, 10.89, 0.764)
pt3dadd(142.969, 66.513, 10.797, 0.736)
pt3dadd(142.987, 66.474, 10.704, 0.708)
pt3dadd(143.005, 66.441, 10.608, 0.67)
pt3dadd(143.02, 66.413, 10.509, 0.626)
pt3dadd(143.034, 66.385, 10.41, 0.582)
pt3dadd(143.048, 66.357, 10.312, 0.536)
pt3dadd(143.063, 66.329, 10.213, 0.492)
pt3dadd(143.078, 66.302, 10.114, 0.448)
pt3dadd(143.093, 66.274, 10.015, 0.404)
pt3dadd(143.108, 66.246, 9.916, 0.36)
pt3dadd(143.123, 66.218, 9.817, 0.314)
pt3dadd(143.137, 66.19, 9.719, 0.27)
pt3dadd(143.167, 66.149, 9.633, 0.276)
pt3dadd(143.209, 66.097, 9.557, 0.318)
pt3dadd(143.251, 66.045, 9.482, 0.362)
pt3dadd(143.292, 65.992, 9.407, 0.406)
pt3dadd(143.335, 65.94, 9.331, 0.45)
pt3dadd(143.377, 65.888, 9.256, 0.494)
pt3dadd(143.419, 65.836, 9.18, 0.538)
pt3dadd(143.461, 65.784, 9.105, 0.582)
pt3dadd(143.503, 65.732, 9.029, 0.626)
pt3dadd(143.545, 65.679, 8.954, 0.67)
pt3dadd(143.585, 65.636, 8.872, 0.694)
pt3dadd(143.624, 65.599, 8.786, 0.706)
pt3dadd(143.664, 65.561, 8.699, 0.718)
pt3dadd(143.702, 65.524, 8.613, 0.73)
pt3dadd(143.741, 65.487, 8.527, 0.742)
pt3dadd(143.779, 65.449, 8.441, 0.754)
pt3dadd(143.819, 65.412, 8.354, 0.766)
pt3dadd(143.803, 65.43, 8.345, 0.766)
pt3dadd(143.843, 65.392, 8.258, 0.778)
pt3dadd(143.881, 65.355, 8.172, 0.79)
pt3dadd(143.92, 65.318, 8.086, 0.8)
pt3dadd(143.952, 65.294, 7.992, 0.81)
pt3dadd(143.983, 65.275, 7.895, 0.818)
pt3dadd(144.013, 65.256, 7.798, 0.826)
pt3dadd(144.043, 65.237, 7.701, 0.834)
pt3dadd(144.076, 65.218, 7.604, 0.842)
pt3dadd(144.106, 65.199, 7.507, 0.85)
pt3dadd(144.136, 65.18, 7.41, 0.86)
pt3dadd(144.167, 65.161, 7.313, 0.868)
pt3dadd(144.197, 65.142, 7.216, 0.876)
pt3dadd(144.227, 65.123, 7.12, 0.884)
pt3dadd(144.251, 65.112, 7.018, 0.94)
pt3dadd(144.274, 65.103, 6.916, 1.008)
pt3dadd(144.295, 65.095, 6.814, 1.078)
pt3dadd(144.317, 65.086, 6.712, 1.148)
pt3dadd(144.338, 65.078, 6.609, 1.218)
pt3dadd(144.361, 65.07, 6.507, 1.288)
pt3dadd(144.383, 65.061, 6.405, 1.356)
pt3dadd(144.404, 65.052, 6.303, 1.426)
pt3dadd(144.427, 65.044, 6.2, 1.496)
pt3dadd(144.449, 65.036, 6.098, 1.566)
pt3dadd(144.499, 65.033, 6.008, 1.508)
pt3dadd(144.558, 65.033, 5.921, 1.414)
pt3dadd(144.617, 65.032, 5.834, 1.32)
pt3dadd(144.676, 65.032, 5.748, 1.224)
pt3dadd(144.734, 65.031, 5.661, 1.13)
pt3dadd(144.794, 65.031, 5.574, 1.036)
pt3dadd(144.853, 65.03, 5.487, 0.942)
pt3dadd(144.912, 65.029, 5.401, 0.846)
pt3dadd(144.971, 65.029, 5.314, 0.752)
pt3dadd(145.03, 65.028, 5.227, 0.658)
pt3dadd(145.073, 65.006, 5.138, 0.66)
pt3dadd(145.112, 64.978, 5.047, 0.692)
pt3dadd(145.151, 64.95, 4.957, 0.726)
pt3dadd(145.189, 64.922, 4.866, 0.758)
pt3dadd(145.228, 64.893, 4.776, 0.79)
pt3dadd(145.266, 64.865, 4.686, 0.822)
pt3dadd(145.304, 64.837, 4.595, 0.854)
pt3dadd(145.343, 64.809, 4.505, 0.888)
pt3dadd(145.382, 64.78, 4.414, 0.92)
pt3dadd(145.421, 64.752, 4.324, 0.952)
pt3dadd(145.459, 64.725, 4.233, 0.982)
pt3dadd(145.498, 64.699, 4.142, 1.012)
pt3dadd(145.536, 64.672, 4.051, 1.04)
pt3dadd(145.574, 64.646, 3.96, 1.07)
pt3dadd(145.613, 64.619, 3.869, 1.1)
pt3dadd(145.652, 64.593, 3.777, 1.13)
pt3dadd(145.692, 64.566, 3.686, 1.16)
pt3dadd(145.73, 64.54, 3.595, 1.188)
pt3dadd(145.769, 64.514, 3.504, 1.218)
pt3dadd(145.807, 64.487, 3.413, 1.248)
pt3dadd(145.854, 64.473, 3.322, 1.224)
pt3dadd(145.901, 64.461, 3.231, 1.194)
pt3dadd(145.95, 64.449, 3.14, 1.164)
pt3dadd(145.998, 64.436, 3.049, 1.134)
pt3dadd(146.045, 64.424, 2.958, 1.106)
pt3dadd(146.093, 64.411, 2.867, 1.076)
pt3dadd(146.14, 64.399, 2.776, 1.048)
pt3dadd(146.188, 64.387, 2.685, 1.018)
pt3dadd(146.234, 64.374, 2.594, 0.988)
pt3dadd(146.284, 64.362, 2.503, 0.96)
pt3dadd(146.31, 64.363, 2.4, 0.942)
pt3dadd(146.334, 64.366, 2.297, 0.926)
pt3dadd(146.358, 64.369, 2.194, 0.912)
pt3dadd(146.382, 64.372, 2.091, 0.896)
pt3dadd(146.406, 64.375, 1.987, 0.88)
pt3dadd(146.43, 64.377, 1.884, 0.864)
pt3dadd(146.456, 64.38, 1.781, 0.85)
pt3dadd(146.48, 64.383, 1.677, 0.834)
pt3dadd(146.504, 64.386, 1.574, 0.818)
pt3dadd(146.528, 64.389, 1.471, 0.802)
pt3dadd(146.548, 64.395, 1.366, 0.79)
pt3dadd(146.566, 64.401, 1.261, 0.778)
pt3dadd(146.585, 64.408, 1.156, 0.766)
pt3dadd(146.604, 64.414, 1.05, 0.752)
pt3dadd(146.623, 64.42, 0.945, 0.74)
pt3dadd(146.642, 64.426, 0.84, 0.728)
pt3dadd(146.66, 64.433, 0.735, 0.716)
pt3dadd(146.68, 64.439, 0.63, 0.702)
pt3dadd(146.698, 64.445, 0.525, 0.69)
pt3dadd(146.717, 64.452, 0.42, 0.678)
pt3dadd(146.702, 64.469, 0.31, 0.564)
pt3dadd(146.687, 64.487, 0.2, 0.552)
pt3dadd(146.669, 64.486, 0.092, 0.61)
pt3dadd(146.642, 64.431, 0.009, 0.664)
pt3dadd(146.622, 64.335, -0.027, 0.658)
pt3dadd(146.62, 64.234, -0.039, 0.628)
pt3dadd(146.672, 64.153, -0.049, 0.614)
pt3dadd(146.755, 64.107, -0.058, 0.664)
pt3dadd(146.855, 64.089, -0.068, 0.744)
pt3dadd(146.954, 64.076, -0.078, 0.828)
pt3dadd(147.024, 64.015, -0.088, 0.894)
pt3dadd(147.024, 63.916, -0.097, 0.938)
pt3dadd(147.001, 63.814, -0.107, 0.956)
pt3dadd(146.978, 63.712, -0.117, 0.974)
pt3dadd(147.028, 63.642, -0.127, 0.996)
pt3dadd(147.107, 63.585, -0.136, 1.018)
pt3dadd(147.193, 63.541, -0.146, 1.04)
pt3dadd(147.287, 63.51, -0.156, 1.062)
pt3dadd(147.382, 63.48, -0.166, 1.08)
pt3dadd(147.482, 63.467, -0.175, 1.09)
pt3dadd(147.583, 63.453, -0.185, 1.1)
pt3dadd(147.668, 63.416, -0.195, 1.11)
pt3dadd(147.731, 63.343, -0.205, 1.124)
pt3dadd(147.794, 63.27, -0.214, 1.138)
pt3dadd(147.857, 63.197, -0.224, 1.154)
pt3dadd(147.859, 63.1, -0.246, 1.164)
pt3dadd(147.851, 62.999, -0.271, 1.176)
pt3dadd(147.883, 62.923, -0.31, 1.186)
pt3dadd(147.948, 62.868, -0.362, 1.196)
pt3dadd(148.001, 62.812, -0.42, 1.206)
pt3dadd(148.004, 62.755, -0.507, 1.206)
pt3dadd(148.019, 62.712, -0.596, 1.182)
pt3dadd(148.063, 62.715, -0.691, 1.126)
pt3dadd(148.108, 62.724, -0.787, 1.08)
pt3dadd(148.165, 62.711, -0.866, 1.024)
pt3dadd(148.237, 62.672, -0.925, 0.954)
pt3dadd(148.284, 62.607, -0.98, 0.894)
pt3dadd(148.315, 62.527, -1.034, 0.836)
pt3dadd(148.328, 62.431, -1.054, 0.81)
pt3dadd(148.339, 62.331, -1.069, 0.788)
pt3dadd(148.33, 62.262, -1.13, 0.77)
pt3dadd(148.309, 62.211, -1.222, 0.756)
pt3dadd(148.288, 62.161, -1.314, 0.742)
pt3dadd(148.272, 62.11, -1.404, 0.726)
pt3dadd(148.316, 62.057, -1.478, 0.712)
pt3dadd(148.374, 62.006, -1.529, 0.704)
pt3dadd(148.433, 61.944, -1.568, 0.718)
pt3dadd(148.475, 61.874, -1.627, 0.742)
pt3dadd(148.517, 61.804, -1.686, 0.768)
pt3dadd(148.558, 61.734, -1.745, 0.792)
pt3dadd(148.576, 61.654, -1.801, 0.824)
pt3dadd(148.571, 61.564, -1.855, 0.862)
pt3dadd(148.567, 61.474, -1.908, 0.9)
pt3dadd(148.564, 61.385, -1.961, 0.94)
pt3dadd(148.559, 61.295, -2.015, 0.978)
pt3dadd(148.529, 61.202, -2.06, 1.014)
pt3dadd(148.498, 61.108, -2.104, 1.052)
pt3dadd(148.468, 61.014, -2.148, 1.088)
pt3dadd(148.436, 60.92, -2.193, 1.124)
pt3dadd(148.405, 60.826, -2.237, 1.162)
pt3dadd(148.373, 60.729, -2.268, 1.198)
pt3dadd(148.342, 60.628, -2.286, 1.234)
pt3dadd(148.309, 60.528, -2.304, 1.27)
pt3dadd(148.278, 60.431, -2.339, 1.274)
pt3dadd(148.247, 60.337, -2.382, 1.262)
pt3dadd(148.216, 60.242, -2.425, 1.236)
pt3dadd(148.184, 60.148, -2.468, 1.184)
pt3dadd(148.153, 60.054, -2.511, 1.13)
pt3dadd(148.126, 59.984, -2.589, 1.058)
pt3dadd(148.098, 59.915, -2.666, 0.988)
pt3dadd(148.076, 59.893, -2.769, 0.91)
pt3dadd(148.055, 59.863, -2.866, 0.852)
pt3dadd(148.026, 59.787, -2.938, 0.842)
pt3dadd(147.997, 59.712, -3.01, 0.832)
pt3dadd(147.97, 59.637, -3.083, 0.82)
pt3dadd(147.941, 59.562, -3.155, 0.81)
pt3dadd(147.913, 59.49, -3.23, 0.81)
}
}
proc shape3d_181() {
dend_7[41] { pt3dadd(147.886, 59.427, -3.313, 0.834)
pt3dadd(147.86, 59.374, -3.4, 0.862)
pt3dadd(147.842, 59.371, -3.509, 0.91)
pt3dadd(147.824, 59.369, -3.617, 0.958)
pt3dadd(147.799, 59.322, -3.701, 1.006)
pt3dadd(147.77, 59.242, -3.768, 1.052)
pt3dadd(147.74, 59.156, -3.825, 1.088)
pt3dadd(147.709, 59.061, -3.867, 1.11)
pt3dadd(147.678, 58.966, -3.909, 1.128)
pt3dadd(147.646, 58.865, -3.924, 1.102)
pt3dadd(147.613, 58.765, -3.945, 1.078)
pt3dadd(147.582, 58.672, -3.989, 1.064)
pt3dadd(147.552, 58.578, -4.033, 1.05)
pt3dadd(147.521, 58.484, -4.078, 1.036)
pt3dadd(147.49, 58.39, -4.122, 1.022)
pt3dadd(147.458, 58.297, -4.167, 1.008)
pt3dadd(147.427, 58.202, -4.209, 0.992)
pt3dadd(147.396, 58.107, -4.251, 0.974)
pt3dadd(147.365, 58.012, -4.293, 0.954)
pt3dadd(147.334, 57.918, -4.335, 0.936)
pt3dadd(147.302, 57.823, -4.377, 0.918)
pt3dadd(147.271, 57.727, -4.415, 0.902)
pt3dadd(147.239, 57.627, -4.438, 0.892)
pt3dadd(147.206, 57.527, -4.46, 0.884)
pt3dadd(147.182, 57.425, -4.478, 0.878)
pt3dadd(147.166, 57.323, -4.492, 0.878)
pt3dadd(147.149, 57.221, -4.506, 0.878)
pt3dadd(147.161, 57.132, -4.555, 0.878)
pt3dadd(147.172, 57.045, -4.607, 0.878)
pt3dadd(147.148, 56.961, -4.67, 0.866)
pt3dadd(147.125, 56.878, -4.732, 0.854)
pt3dadd(147.155, 56.843, -4.823, 0.834)
pt3dadd(147.161, 56.801, -4.916, 0.828)
pt3dadd(147.157, 56.756, -5.01, 0.828)
pt3dadd(147.14, 56.699, -5.098, 0.828)
pt3dadd(147.121, 56.638, -5.183, 0.828)
pt3dadd(147.106, 56.656, -5.193, 0.828)
pt3dadd(147.115, 56.579, -5.255, 0.818)
pt3dadd(147.138, 56.495, -5.308, 0.806)
pt3dadd(147.148, 56.396, -5.322, 0.794)
pt3dadd(147.156, 56.296, -5.332, 0.784)
pt3dadd(147.152, 56.209, -5.375, 0.77)
pt3dadd(147.14, 56.131, -5.445, 0.754)
pt3dadd(147.127, 56.054, -5.516, 0.74)
pt3dadd(147.133, 55.985, -5.588, 0.72)
pt3dadd(147.185, 55.94, -5.661, 0.692)
pt3dadd(147.244, 55.886, -5.72, 0.614)
pt3dadd(147.276, 55.811, -5.778, 0.586)
pt3dadd(147.307, 55.734, -5.836, 0.568)
pt3dadd(147.337, 55.657, -5.894, 0.55)
pt3dadd(147.367, 55.58, -5.952, 0.532)
pt3dadd(147.367, 55.51, -6.027, 0.516)
pt3dadd(147.361, 55.443, -6.107, 0.504)
pt3dadd(147.335, 55.36, -6.17, 0.522)
pt3dadd(147.305, 55.275, -6.23, 0.546)
pt3dadd(147.289, 55.293, -6.24, 0.546)
pt3dadd(147.311, 55.236, -6.313, 0.592)
pt3dadd(147.355, 55.191, -6.392, 0.648)
pt3dadd(147.443, 55.191, -6.449, 0.694)
pt3dadd(147.533, 55.193, -6.503, 0.74)
pt3dadd(147.588, 55.201, -6.588, 0.768)
pt3dadd(147.625, 55.212, -6.687, 0.788)
pt3dadd(147.664, 55.222, -6.787, 0.808)
pt3dadd(147.701, 55.232, -6.886, 0.828)
pt3dadd(147.702, 55.247, -6.994, 0.856)
pt3dadd(147.701, 55.263, -7.103, 0.884)
pt3dadd(147.696, 55.279, -7.213, 0.918)
pt3dadd(147.686, 55.298, -7.322, 0.954)
pt3dadd(147.692, 55.32, -7.43, 0.954)
pt3dadd(147.698, 55.341, -7.538, 0.954)
pt3dadd(147.704, 55.363, -7.646, 0.954)
pt3dadd(147.712, 55.385, -7.754, 0.954)
pt3dadd(147.718, 55.406, -7.862, 0.954)
pt3dadd(147.716, 55.453, -7.966, 0.936)
pt3dadd(147.706, 55.508, -8.07, 0.906)
pt3dadd(147.692, 55.54, -8.179, 0.96)
pt3dadd(147.677, 55.558, -8.289, 1.066)
pt3dadd(147.661, 55.576, -8.399, 1.24)
pt3dadd(147.647, 55.594, -8.508, 1.388)
pt3dadd(147.631, 55.612, -8.618, 1.51)
pt3dadd(147.618, 55.651, -8.725, 1.556)
pt3dadd(147.613, 55.744, -8.806, 1.528)
pt3dadd(147.614, 55.876, -8.839, 1.432)
pt3dadd(147.616, 56.012, -8.851, 1.328)
pt3dadd(147.617, 56.148, -8.861, 1.228)
pt3dadd(147.618, 56.284, -8.88, 1.162)
pt3dadd(147.595, 56.412, -8.927, 1.15)
pt3dadd(147.569, 56.539, -8.978, 1.144)
pt3dadd(147.542, 56.666, -9.028, 1.14)
pt3dadd(147.516, 56.792, -9.079, 1.134)
pt3dadd(147.488, 56.911, -9.138, 1.128)
pt3dadd(147.456, 57.005, -9.224, 1.122)
pt3dadd(147.424, 57.098, -9.31, 1.118)
pt3dadd(147.391, 57.192, -9.396, 1.112)
pt3dadd(147.359, 57.286, -9.481, 1.106)
pt3dadd(147.343, 57.363, -9.578, 1.084)
pt3dadd(147.329, 57.437, -9.676, 1.062)
pt3dadd(147.278, 57.49, -9.774, 1.018)
pt3dadd(147.212, 57.534, -9.872, 0.968)
pt3dadd(147.146, 57.603, -9.96, 0.924)
pt3dadd(147.079, 57.68, -10.045, 0.882)
pt3dadd(147.064, 57.698, -10.054, 0.882)
pt3dadd(147.049, 57.804, -10.13, 0.846)
pt3dadd(147.041, 57.913, -10.205, 0.808)
pt3dadd(147.041, 58.046, -10.229, 0.794)
pt3dadd(147.042, 58.182, -10.246, 0.784)
pt3dadd(147.043, 58.318, -10.263, 0.772)
pt3dadd(147.044, 58.455, -10.28, 0.762)
pt3dadd(147.046, 58.591, -10.295, 0.748)
pt3dadd(147.047, 58.727, -10.305, 0.724)
pt3dadd(147.048, 58.864, -10.315, 0.698)
pt3dadd(147.049, 58.999, -10.331, 0.676)
pt3dadd(147.049, 59.13, -10.372, 0.668)
pt3dadd(147.05, 59.26, -10.413, 0.66)
pt3dadd(147.05, 59.388, -10.457, 0.654)
pt3dadd(147.042, 59.459, -10.556, 0.664)
pt3dadd(147.035, 59.53, -10.655, 0.676)
pt3dadd(146.994, 59.562, -10.76, 0.69)
pt3dadd(146.946, 59.585, -10.865, 0.706)
pt3dadd(146.898, 59.607, -10.971, 0.722)
pt3dadd(146.867, 59.636, -11.079, 0.728)
pt3dadd(146.849, 59.669, -11.188, 0.728)
pt3dadd(146.83, 59.703, -11.296, 0.728)
pt3dadd(146.813, 59.764, -11.397, 0.702)
pt3dadd(146.768, 59.797, -11.503, 0.694)
pt3dadd(146.723, 59.829, -11.609, 0.688)
pt3dadd(146.677, 59.862, -11.715, 0.682)
pt3dadd(146.663, 59.879, -11.725, 0.682)
pt3dadd(146.647, 59.897, -11.734, 0.682)
}
dend_7[42] {pt3dclear()
pt3dadd(142.354, 71.168, 17.093, 0.866)
pt3dadd(142.306, 71.076, 17.138, 0.87)
pt3dadd(142.256, 70.981, 17.184, 0.872)
pt3dadd(142.207, 70.887, 17.23, 0.874)
pt3dadd(142.158, 70.793, 17.277, 0.876)
pt3dadd(142.109, 70.698, 17.323, 0.878)
pt3dadd(142.06, 70.604, 17.369, 0.882)
pt3dadd(142.01, 70.509, 17.415, 0.884)
pt3dadd(141.961, 70.415, 17.461, 0.886)
pt3dadd(141.912, 70.32, 17.507, 0.888)
pt3dadd(141.863, 70.226, 17.553, 0.89)
pt3dadd(141.814, 70.131, 17.599, 0.894)
pt3dadd(141.764, 70.037, 17.645, 0.896)
pt3dadd(141.715, 69.942, 17.691, 0.898)
pt3dadd(141.666, 69.848, 17.738, 0.9)
pt3dadd(141.618, 69.753, 17.784, 0.904)
pt3dadd(141.553, 69.658, 17.8, 0.884)
pt3dadd(141.481, 69.562, 17.8, 0.854)
pt3dadd(141.409, 69.466, 17.8, 0.824)
pt3dadd(141.337, 69.37, 17.8, 0.794)
pt3dadd(141.265, 69.274, 17.8, 0.764)
pt3dadd(141.199, 69.174, 17.8, 0.746)
pt3dadd(141.137, 69.072, 17.8, 0.736)
pt3dadd(141.073, 68.97, 17.8, 0.728)
pt3dadd(141.011, 68.868, 17.8, 0.718)
pt3dadd(140.947, 68.766, 17.8, 0.708)
pt3dadd(140.888, 68.663, 17.812, 0.696)
pt3dadd(140.832, 68.56, 17.834, 0.686)
pt3dadd(140.777, 68.457, 17.856, 0.674)
pt3dadd(140.72, 68.354, 17.878, 0.664)
pt3dadd(140.665, 68.251, 17.9, 0.652)
pt3dadd(140.615, 68.142, 17.9, 0.648)
pt3dadd(140.564, 68.034, 17.9, 0.644)
pt3dadd(140.514, 67.925, 17.9, 0.638)
pt3dadd(140.464, 67.816, 17.9, 0.634)
pt3dadd(140.412, 67.707, 17.9, 0.628)
pt3dadd(140.389, 67.592, 17.888, 0.622)
pt3dadd(140.375, 67.474, 17.872, 0.612)
pt3dadd(140.36, 67.356, 17.856, 0.602)
pt3dadd(140.346, 67.239, 17.84, 0.594)
pt3dadd(140.332, 67.121, 17.824, 0.584)
pt3dadd(140.316, 67.006, 17.803, 0.578)
pt3dadd(140.3, 66.898, 17.761, 0.578)
pt3dadd(140.284, 66.79, 17.72, 0.578)
pt3dadd(140.267, 66.682, 17.679, 0.578)
pt3dadd(140.251, 66.574, 17.637, 0.578)
pt3dadd(140.234, 66.467, 17.595, 0.578)
pt3dadd(140.218, 66.36, 17.55, 0.578)
pt3dadd(140.201, 66.254, 17.506, 0.578)
pt3dadd(140.184, 66.148, 17.462, 0.578)
pt3dadd(140.167, 66.042, 17.417, 0.578)
pt3dadd(140.16, 65.927, 17.4, 0.58)
pt3dadd(140.16, 65.807, 17.4, 0.584)
pt3dadd(140.16, 65.687, 17.4, 0.586)
pt3dadd(140.16, 65.567, 17.4, 0.59)
pt3dadd(140.16, 65.447, 17.4, 0.594)
pt3dadd(140.16, 65.327, 17.4, 0.598)
pt3dadd(140.16, 65.207, 17.4, 0.602)
pt3dadd(140.16, 65.097, 17.37, 0.596)
pt3dadd(140.16, 64.993, 17.32, 0.586)
pt3dadd(140.16, 64.889, 17.27, 0.576)
pt3dadd(140.16, 64.785, 17.22, 0.568)
pt3dadd(140.16, 64.681, 17.17, 0.558)
pt3dadd(140.167, 64.572, 17.131, 0.546)
pt3dadd(140.183, 64.458, 17.103, 0.53)
pt3dadd(140.198, 64.344, 17.075, 0.516)
pt3dadd(140.214, 64.23, 17.046, 0.502)
pt3dadd(140.23, 64.115, 17.018, 0.486)
pt3dadd(140.243, 63.999, 17, 0.474)
pt3dadd(140.249, 63.879, 17, 0.466)
pt3dadd(140.255, 63.76, 17, 0.46)
}
}
proc shape3d_182() {
dend_7[42] { pt3dadd(140.261, 63.64, 17, 0.452)
pt3dadd(140.266, 63.52, 17, 0.444)
pt3dadd(140.272, 63.4, 17, 0.436)
pt3dadd(140.278, 63.28, 17, 0.43)
pt3dadd(140.28, 63.161, 16.989, 0.43)
pt3dadd(140.28, 63.043, 16.973, 0.434)
pt3dadd(140.28, 62.925, 16.956, 0.438)
pt3dadd(140.28, 62.806, 16.94, 0.442)
pt3dadd(140.28, 62.688, 16.923, 0.446)
pt3dadd(140.28, 62.569, 16.907, 0.45)
pt3dadd(140.292, 62.451, 16.897, 0.456)
pt3dadd(140.312, 62.333, 16.891, 0.466)
pt3dadd(140.334, 62.215, 16.885, 0.474)
pt3dadd(140.354, 62.097, 16.879, 0.484)
pt3dadd(140.375, 61.979, 16.874, 0.492)
pt3dadd(140.396, 61.861, 16.868, 0.5)
pt3dadd(140.4, 61.752, 16.831, 0.498)
pt3dadd(140.4, 61.635, 16.811, 0.426)
pt3dadd(140.4, 61.517, 16.824, 0.332)
pt3dadd(140.4, 61.407, 16.864, 0.256)
pt3dadd(140.426, 61.298, 16.893, 0.268)
pt3dadd(140.513, 61.223, 16.9, 0.358)
pt3dadd(140.63, 61.201, 16.9, 0.422)
pt3dadd(140.749, 61.2, 16.912, 0.426)
pt3dadd(140.842, 61.2, 16.969, 0.358)
pt3dadd(140.884, 61.2, 17.062, 0.31)
pt3dadd(140.917, 61.2, 17.158, 0.302)
pt3dadd(140.965, 61.161, 17.243, 0.29)
pt3dadd(141.016, 61.115, 17.324, 0.276)
pt3dadd(141.067, 61.02, 17.367, 0.276)
pt3dadd(141.11, 60.919, 17.4, 0.278)
pt3dadd(141.125, 60.8, 17.4, 0.284)
pt3dadd(141.139, 60.681, 17.4, 0.292)
pt3dadd(141.155, 60.562, 17.4, 0.298)
pt3dadd(141.203, 60.462, 17.376, 0.328)
pt3dadd(141.27, 60.373, 17.339, 0.37)
pt3dadd(141.302, 60.261, 17.327, 0.392)
pt3dadd(141.33, 60.144, 17.319, 0.408)
pt3dadd(141.356, 60.027, 17.312, 0.424)
pt3dadd(141.36, 59.922, 17.356, 0.438)
pt3dadd(141.36, 59.819, 17.406, 0.448)
pt3dadd(141.36, 59.705, 17.415, 0.46)
pt3dadd(141.36, 59.585, 17.405, 0.47)
pt3dadd(141.36, 59.471, 17.38, 0.488)
pt3dadd(141.36, 59.364, 17.335, 0.51)
pt3dadd(141.36, 59.254, 17.302, 0.532)
pt3dadd(141.36, 59.134, 17.311, 0.552)
pt3dadd(141.36, 59.015, 17.32, 0.572)
pt3dadd(141.36, 58.895, 17.329, 0.594)
pt3dadd(141.36, 58.779, 17.351, 0.614)
pt3dadd(141.36, 58.666, 17.384, 0.636)
pt3dadd(141.36, 58.552, 17.416, 0.658)
pt3dadd(141.36, 58.435, 17.437, 0.678)
pt3dadd(141.36, 58.316, 17.448, 0.678)
pt3dadd(141.36, 58.197, 17.458, 0.678)
pt3dadd(141.36, 58.077, 17.469, 0.678)
pt3dadd(141.36, 57.958, 17.479, 0.678)
pt3dadd(141.36, 57.839, 17.49, 0.678)
pt3dadd(141.36, 57.719, 17.5, 0.678)
pt3dadd(141.36, 57.599, 17.5, 0.674)
pt3dadd(141.36, 57.479, 17.5, 0.67)
pt3dadd(141.36, 57.359, 17.5, 0.668)
pt3dadd(141.36, 57.239, 17.5, 0.664)
pt3dadd(141.36, 57.119, 17.5, 0.66)
pt3dadd(141.36, 56.999, 17.5, 0.656)
pt3dadd(141.36, 56.879, 17.5, 0.652)
pt3dadd(141.36, 56.759, 17.5, 0.636)
pt3dadd(141.36, 56.639, 17.5, 0.62)
pt3dadd(141.36, 56.519, 17.5, 0.602)
pt3dadd(141.36, 56.4, 17.512, 0.584)
pt3dadd(141.36, 56.281, 17.525, 0.566)
pt3dadd(141.374, 56.174, 17.553, 0.548)
pt3dadd(141.42, 56.092, 17.615, 0.534)
pt3dadd(141.45, 56.037, 17.695, 0.528)
pt3dadd(141.468, 56.007, 17.791, 0.528)
pt3dadd(141.48, 55.948, 17.861, 0.528)
pt3dadd(141.48, 55.83, 17.88, 0.528)
pt3dadd(141.48, 55.712, 17.898, 0.528)
pt3dadd(141.48, 55.594, 17.916, 0.528)
pt3dadd(141.479, 55.476, 17.934, 0.528)
pt3dadd(141.461, 55.364, 17.966, 0.528)
pt3dadd(141.443, 55.251, 17.997, 0.528)
pt3dadd(141.395, 55.143, 17.997, 0.528)
pt3dadd(141.359, 55.031, 17.976, 0.528)
pt3dadd(141.324, 54.919, 17.956, 0.528)
pt3dadd(141.288, 54.807, 17.935, 0.528)
pt3dadd(141.253, 54.695, 17.915, 0.528)
pt3dadd(141.223, 54.581, 17.901, 0.528)
pt3dadd(141.212, 54.462, 17.903, 0.532)
pt3dadd(141.2, 54.342, 17.904, 0.538)
pt3dadd(141.188, 54.223, 17.906, 0.542)
pt3dadd(141.176, 54.104, 17.908, 0.546)
pt3dadd(141.164, 53.984, 17.91, 0.55)
pt3dadd(141.168, 53.867, 17.926, 0.558)
pt3dadd(141.184, 53.752, 17.951, 0.568)
pt3dadd(141.199, 53.637, 17.977, 0.578)
pt3dadd(141.215, 53.522, 18.002, 0.586)
pt3dadd(141.23, 53.407, 18.028, 0.596)
pt3dadd(141.24, 53.296, 18.062, 0.606)
pt3dadd(141.24, 53.192, 18.112, 0.616)
pt3dadd(141.24, 53.088, 18.162, 0.626)
pt3dadd(141.24, 52.984, 18.212, 0.636)
pt3dadd(141.24, 52.88, 18.262, 0.646)
pt3dadd(141.24, 52.773, 18.304, 0.652)
pt3dadd(141.24, 52.655, 18.32, 0.652)
pt3dadd(141.24, 52.536, 18.337, 0.652)
pt3dadd(141.24, 52.418, 18.353, 0.652)
pt3dadd(141.24, 52.299, 18.37, 0.652)
pt3dadd(141.24, 52.181, 18.386, 0.652)
pt3dadd(141.24, 52.063, 18.402, 0.652)
pt3dadd(141.24, 51.944, 18.419, 0.648)
pt3dadd(141.24, 51.826, 18.435, 0.644)
pt3dadd(141.24, 51.708, 18.452, 0.64)
pt3dadd(141.24, 51.589, 18.468, 0.636)
pt3dadd(141.24, 51.471, 18.485, 0.632)
pt3dadd(141.241, 51.352, 18.5, 0.628)
pt3dadd(141.253, 51.233, 18.5, 0.624)
pt3dadd(141.266, 51.114, 18.5, 0.62)
pt3dadd(141.278, 50.994, 18.5, 0.616)
pt3dadd(141.292, 50.875, 18.5, 0.612)
pt3dadd(141.304, 50.756, 18.5, 0.608)
pt3dadd(141.317, 50.636, 18.5, 0.604)
pt3dadd(141.34, 50.519, 18.5, 0.602)
pt3dadd(141.367, 50.402, 18.5, 0.602)
pt3dadd(141.395, 50.285, 18.5, 0.602)
pt3dadd(141.421, 50.168, 18.5, 0.602)
pt3dadd(141.449, 50.052, 18.5, 0.602)
pt3dadd(141.476, 49.935, 18.5, 0.602)
pt3dadd(141.497, 49.817, 18.5, 0.6)
pt3dadd(141.517, 49.698, 18.5, 0.596)
pt3dadd(141.536, 49.58, 18.5, 0.59)
pt3dadd(141.557, 49.461, 18.5, 0.586)
pt3dadd(141.576, 49.343, 18.5, 0.582)
pt3dadd(141.596, 49.225, 18.5, 0.578)
pt3dadd(141.6, 49.106, 18.508, 0.574)
pt3dadd(141.6, 48.986, 18.519, 0.57)
pt3dadd(141.6, 48.867, 18.529, 0.566)
pt3dadd(141.6, 48.748, 18.54, 0.562)
pt3dadd(141.6, 48.628, 18.55, 0.558)
pt3dadd(141.6, 48.509, 18.561, 0.554)
pt3dadd(141.6, 48.39, 18.572, 0.552)
pt3dadd(141.6, 48.271, 18.584, 0.552)
pt3dadd(141.6, 48.151, 18.597, 0.552)
pt3dadd(141.6, 48.032, 18.603, 0.558)
pt3dadd(141.6, 47.912, 18.607, 0.568)
pt3dadd(141.6, 47.792, 18.611, 0.576)
pt3dadd(141.6, 47.704, 18.673, 0.598)
pt3dadd(141.6, 47.623, 18.746, 0.622)
pt3dadd(141.632, 47.546, 18.816, 0.658)
pt3dadd(141.678, 47.471, 18.885, 0.7)
pt3dadd(141.716, 47.36, 18.892, 0.74)
pt3dadd(141.754, 47.246, 18.895, 0.778)
pt3dadd(141.792, 47.132, 18.897, 0.818)
pt3dadd(141.827, 47.018, 18.9, 0.856)
pt3dadd(141.832, 46.898, 18.9, 0.9)
pt3dadd(141.836, 46.778, 18.9, 0.944)
pt3dadd(141.84, 46.658, 18.9, 0.984)
pt3dadd(141.84, 46.538, 18.902, 1.002)
pt3dadd(141.84, 46.419, 18.912, 0.986)
pt3dadd(141.84, 46.3, 18.923, 0.97)
pt3dadd(141.84, 46.18, 18.933, 0.954)
pt3dadd(141.84, 46.061, 18.944, 0.938)
pt3dadd(141.84, 45.942, 18.954, 0.922)
pt3dadd(141.84, 45.822, 18.965, 0.906)
pt3dadd(141.84, 45.702, 18.971, 0.888)
pt3dadd(141.84, 45.583, 18.976, 0.87)
pt3dadd(141.84, 45.463, 18.981, 0.852)
pt3dadd(141.84, 45.343, 18.986, 0.832)
pt3dadd(141.84, 45.223, 18.991, 0.814)
pt3dadd(141.84, 45.103, 18.996, 0.794)
pt3dadd(141.847, 44.985, 19.003, 0.776)
pt3dadd(141.9, 44.881, 19.025, 0.76)
pt3dadd(141.952, 44.776, 19.047, 0.744)
pt3dadd(142.004, 44.671, 19.069, 0.726)
pt3dadd(142.057, 44.567, 19.09, 0.71)
pt3dadd(142.105, 44.458, 19.1, 0.7)
pt3dadd(142.15, 44.347, 19.1, 0.696)
pt3dadd(142.194, 44.235, 19.1, 0.692)
pt3dadd(142.238, 44.124, 19.1, 0.686)
pt3dadd(142.283, 44.012, 19.1, 0.682)
pt3dadd(142.32, 43.899, 19.1, 0.678)
pt3dadd(142.32, 43.779, 19.1, 0.678)
pt3dadd(142.32, 43.659, 19.1, 0.678)
pt3dadd(142.324, 43.541, 19.105, 0.678)
pt3dadd(142.342, 43.428, 19.137, 0.678)
pt3dadd(142.361, 43.316, 19.167, 0.678)
pt3dadd(142.406, 43.206, 19.183, 0.678)
pt3dadd(142.452, 43.097, 19.199, 0.678)
pt3dadd(142.505, 42.991, 19.184, 0.666)
pt3dadd(142.558, 42.885, 19.167, 0.654)
pt3dadd(142.621, 42.85, 19.091, 0.614)
pt3dadd(142.654, 42.808, 19.003, 0.578)
pt3dadd(142.673, 42.763, 18.911, 0.54)
pt3dadd(142.684, 42.676, 18.856, 0.52)
pt3dadd(142.69, 42.563, 18.821, 0.51)
pt3dadd(142.709, 42.45, 18.8, 0.506)
pt3dadd(142.748, 42.337, 18.8, 0.516)
pt3dadd(142.788, 42.224, 18.8, 0.528)
pt3dadd(142.849, 42.121, 18.8, 0.55)
pt3dadd(142.91, 42.017, 18.8, 0.574)
}
}
proc shape3d_183() {
dend_7[42] { pt3dadd(142.954, 41.911, 18.826, 0.584)
pt3dadd(142.996, 41.805, 18.856, 0.592)
pt3dadd(143.036, 41.698, 18.887, 0.6)
pt3dadd(143.083, 41.619, 18.944, 0.602)
pt3dadd(143.136, 41.559, 19.018, 0.602)
pt3dadd(143.188, 41.464, 19.054, 0.61)
pt3dadd(143.24, 41.36, 19.08, 0.62)
pt3dadd(143.303, 41.266, 19.104, 0.628)
pt3dadd(143.405, 41.205, 19.121, 0.628)
pt3dadd(143.497, 41.142, 19.148, 0.616)
pt3dadd(143.573, 41.063, 19.186, 0.59)
pt3dadd(143.651, 40.979, 19.215, 0.574)
pt3dadd(143.729, 40.894, 19.243, 0.556)
pt3dadd(143.807, 40.81, 19.272, 0.538)
pt3dadd(143.897, 40.737, 19.289, 0.524)
pt3dadd(144.004, 40.681, 19.289, 0.514)
pt3dadd(144.109, 40.626, 19.289, 0.504)
pt3dadd(144.216, 40.57, 19.289, 0.494)
pt3dadd(144.322, 40.514, 19.289, 0.484)
pt3dadd(144.409, 40.463, 19.258, 0.472)
pt3dadd(144.468, 40.419, 19.179, 0.458)
pt3dadd(144.55, 40.364, 19.131, 0.452)
pt3dadd(144.647, 40.301, 19.108, 0.452)
pt3dadd(144.739, 40.226, 19.1, 0.46)
pt3dadd(144.827, 40.144, 19.1, 0.472)
pt3dadd(144.919, 40.069, 19.109, 0.492)
pt3dadd(145.015, 40.001, 19.126, 0.516)
pt3dadd(145.092, 39.924, 19.163, 0.542)
pt3dadd(145.156, 39.841, 19.213, 0.568)
pt3dadd(145.219, 39.759, 19.262, 0.594)
pt3dadd(145.283, 39.729, 19.336, 0.62)
pt3dadd(145.346, 39.723, 19.421, 0.642)
pt3dadd(145.442, 39.72, 19.463, 0.656)
pt3dadd(145.562, 39.72, 19.475, 0.664)
pt3dadd(145.681, 39.72, 19.488, 0.67)
pt3dadd(145.8, 39.72, 19.5, 0.678)
}
dend_7[43] {pt3dclear()
pt3dadd(142.267, 77.37, 20.054, 0.946)
pt3dadd(142.284, 77.383, 20.057, 0.956)
pt3dadd(142.376, 77.455, 20.078, 1.014)
pt3dadd(142.469, 77.527, 20.099, 1.072)
pt3dadd(142.561, 77.6, 20.12, 1.13)
pt3dadd(142.654, 77.672, 20.14, 1.188)
pt3dadd(142.746, 77.744, 20.161, 1.246)
pt3dadd(142.838, 77.816, 20.182, 1.304)
pt3dadd(142.934, 77.878, 20.2, 1.348)
pt3dadd(143.053, 77.866, 20.2, 1.29)
pt3dadd(143.173, 77.853, 20.2, 1.23)
pt3dadd(143.292, 77.841, 20.2, 1.172)
pt3dadd(143.412, 77.828, 20.2, 1.112)
pt3dadd(143.531, 77.815, 20.2, 1.052)
pt3dadd(143.651, 77.803, 20.2, 0.994)
pt3dadd(143.762, 77.761, 20.2, 0.95)
pt3dadd(143.87, 77.711, 20.2, 0.912)
pt3dadd(143.98, 77.66, 20.2, 0.874)
pt3dadd(144.089, 77.61, 20.2, 0.836)
pt3dadd(144.197, 77.559, 20.2, 0.798)
pt3dadd(144.29, 77.489, 20.2, 0.766)
pt3dadd(144.368, 77.398, 20.2, 0.74)
pt3dadd(144.446, 77.306, 20.2, 0.716)
pt3dadd(144.524, 77.215, 20.2, 0.69)
pt3dadd(144.602, 77.124, 20.2, 0.666)
pt3dadd(144.686, 77.039, 20.196, 0.648)
pt3dadd(144.776, 76.96, 20.189, 0.636)
pt3dadd(144.866, 76.881, 20.182, 0.626)
pt3dadd(144.956, 76.802, 20.175, 0.616)
pt3dadd(145.048, 76.724, 20.168, 0.606)
pt3dadd(145.122, 76.639, 20.138, 0.608)
pt3dadd(145.192, 76.553, 20.1, 0.614)
pt3dadd(145.262, 76.466, 20.063, 0.62)
pt3dadd(145.332, 76.38, 20.026, 0.626)
pt3dadd(145.418, 76.303, 20.008, 0.63)
pt3dadd(145.514, 76.231, 20.004, 0.636)
pt3dadd(145.61, 76.16, 19.999, 0.642)
pt3dadd(145.708, 76.088, 19.995, 0.646)
pt3dadd(145.804, 76.017, 19.99, 0.652)
pt3dadd(145.906, 75.968, 19.962, 0.652)
pt3dadd(146.01, 75.926, 19.928, 0.652)
pt3dadd(146.114, 75.885, 19.893, 0.652)
pt3dadd(146.22, 75.843, 19.858, 0.652)
pt3dadd(146.323, 75.795, 19.831, 0.652)
pt3dadd(146.425, 75.732, 19.824, 0.646)
pt3dadd(146.526, 75.668, 19.818, 0.642)
pt3dadd(146.628, 75.605, 19.811, 0.636)
pt3dadd(146.73, 75.542, 19.804, 0.63)
pt3dadd(146.833, 75.483, 19.797, 0.628)
pt3dadd(146.941, 75.429, 19.79, 0.628)
pt3dadd(147.048, 75.376, 19.784, 0.628)
pt3dadd(147.155, 75.323, 19.777, 0.628)
pt3dadd(147.262, 75.269, 19.77, 0.628)
pt3dadd(147.364, 75.213, 19.75, 0.64)
pt3dadd(147.458, 75.155, 19.713, 0.668)
pt3dadd(147.569, 75.13, 19.689, 0.684)
pt3dadd(147.686, 75.125, 19.671, 0.694)
pt3dadd(147.791, 75.117, 19.642, 0.702)
pt3dadd(147.815, 75.093, 19.546, 0.69)
pt3dadd(147.839, 75.069, 19.45, 0.678)
pt3dadd(147.884, 74.966, 19.423, 0.654)
pt3dadd(147.931, 74.859, 19.401, 0.63)
pt3dadd(148.03, 74.792, 19.4, 0.644)
pt3dadd(148.123, 74.72, 19.389, 0.662)
pt3dadd(148.208, 74.641, 19.366, 0.678)
pt3dadd(148.294, 74.561, 19.343, 0.696)
pt3dadd(148.38, 74.482, 19.32, 0.714)
pt3dadd(148.46, 74.398, 19.3, 0.73)
pt3dadd(148.511, 74.289, 19.3, 0.744)
pt3dadd(148.561, 74.18, 19.3, 0.758)
pt3dadd(148.612, 74.072, 19.3, 0.774)
pt3dadd(148.662, 73.963, 19.3, 0.788)
pt3dadd(148.712, 73.854, 19.3, 0.802)
pt3dadd(148.758, 73.749, 19.272, 0.808)
pt3dadd(148.804, 73.644, 19.24, 0.814)
pt3dadd(148.848, 73.54, 19.207, 0.82)
pt3dadd(148.892, 73.436, 19.175, 0.826)
pt3dadd(148.954, 73.344, 19.141, 0.828)
pt3dadd(149.036, 73.27, 19.103, 0.828)
pt3dadd(149.12, 73.196, 19.066, 0.828)
pt3dadd(149.203, 73.123, 19.028, 0.828)
pt3dadd(149.286, 73.046, 19, 0.828)
pt3dadd(149.368, 72.957, 19, 0.828)
pt3dadd(149.444, 72.867, 18.998, 0.828)
pt3dadd(149.482, 72.754, 18.983, 0.816)
pt3dadd(149.519, 72.642, 18.967, 0.804)
pt3dadd(149.526, 72.536, 18.921, 0.804)
pt3dadd(149.532, 72.43, 18.874, 0.804)
pt3dadd(149.616, 72.39, 18.823, 0.826)
pt3dadd(149.714, 72.362, 18.77, 0.852)
pt3dadd(149.821, 72.36, 18.725, 0.932)
pt3dadd(149.91, 72.348, 18.664, 0.984)
pt3dadd(149.976, 72.321, 18.584, 0.996)
pt3dadd(150.042, 72.294, 18.503, 1.008)
pt3dadd(150.108, 72.267, 18.423, 1.018)
pt3dadd(150.174, 72.239, 18.343, 1.03)
pt3dadd(150.252, 72.19, 18.278, 1.03)
pt3dadd(150.33, 72.142, 18.214, 1.03)
pt3dadd(150.407, 72.093, 18.149, 1.03)
pt3dadd(150.485, 72.045, 18.085, 1.03)
pt3dadd(150.557, 71.967, 18.039, 1.014)
pt3dadd(150.629, 71.886, 17.996, 0.994)
pt3dadd(150.701, 71.805, 17.952, 0.976)
pt3dadd(150.773, 71.724, 17.909, 0.958)
pt3dadd(150.844, 71.645, 17.863, 0.95)
pt3dadd(150.916, 71.567, 17.817, 0.944)
pt3dadd(150.988, 71.488, 17.771, 0.936)
pt3dadd(151.06, 71.409, 17.724, 0.93)
pt3dadd(151.148, 71.337, 17.707, 0.904)
pt3dadd(151.246, 71.266, 17.702, 0.866)
pt3dadd(151.319, 71.175, 17.689, 0.822)
pt3dadd(151.38, 71.074, 17.672, 0.77)
pt3dadd(151.464, 71.001, 17.642, 0.716)
pt3dadd(151.559, 70.942, 17.606, 0.662)
pt3dadd(151.661, 70.922, 17.559, 0.632)
pt3dadd(151.765, 70.909, 17.51, 0.608)
pt3dadd(151.822, 70.854, 17.441, 0.636)
pt3dadd(151.88, 70.789, 17.374, 0.664)
pt3dadd(151.95, 70.727, 17.311, 0.682)
pt3dadd(152.02, 70.664, 17.248, 0.702)
pt3dadd(152.088, 70.602, 17.185, 0.72)
pt3dadd(152.156, 70.545, 17.118, 0.742)
pt3dadd(152.225, 70.493, 17.048, 0.766)
pt3dadd(152.293, 70.441, 16.977, 0.79)
pt3dadd(152.36, 70.39, 16.907, 0.814)
pt3dadd(152.437, 70.341, 16.843, 0.864)
pt3dadd(152.54, 70.3, 16.808, 0.866)
pt3dadd(152.645, 70.245, 16.8, 0.778)
pt3dadd(152.725, 70.163, 16.782, 0.734)
pt3dadd(152.756, 70.1, 16.707, 0.808)
pt3dadd(152.76, 70.081, 16.609, 0.874)
pt3dadd(152.76, 70.08, 16.509, 0.902)
pt3dadd(152.76, 70.08, 16.409, 0.904)
pt3dadd(152.76, 70.08, 16.309, 0.904)
pt3dadd(152.76, 70.08, 16.208, 0.904)
pt3dadd(152.774, 70.08, 16.109, 0.904)
pt3dadd(152.812, 70.08, 16.015, 0.904)
pt3dadd(152.866, 70.08, 15.925, 0.904)
pt3dadd(152.934, 70.08, 15.844, 0.904)
pt3dadd(153.044, 70.08, 15.808, 0.896)
pt3dadd(153.163, 70.08, 15.8, 0.852)
pt3dadd(153.283, 70.08, 15.8, 0.758)
pt3dadd(153.403, 70.08, 15.795, 0.664)
pt3dadd(153.522, 70.08, 15.783, 0.628)
pt3dadd(153.642, 70.08, 15.771, 0.59)
pt3dadd(153.756, 70.068, 15.746, 0.578)
pt3dadd(153.869, 70.049, 15.714, 0.578)
pt3dadd(153.965, 70, 15.68, 0.616)
pt3dadd(154.048, 69.925, 15.642, 0.686)
pt3dadd(154.102, 69.824, 15.621, 0.758)
pt3dadd(154.146, 69.714, 15.605, 0.832)
pt3dadd(154.198, 69.63, 15.555, 0.866)
pt3dadd(154.253, 69.557, 15.491, 0.882)
pt3dadd(154.308, 69.483, 15.426, 0.9)
pt3dadd(154.325, 69.388, 15.37, 0.868)
pt3dadd(154.331, 69.287, 15.317, 0.82)
pt3dadd(154.384, 69.19, 15.3, 0.762)
pt3dadd(154.459, 69.097, 15.3, 0.7)
pt3dadd(154.534, 69.003, 15.3, 0.638)
pt3dadd(154.568, 68.896, 15.273, 0.588)
pt3dadd(154.594, 68.785, 15.241, 0.538)
pt3dadd(154.651, 68.69, 15.207, 0.53)
pt3dadd(154.715, 68.593, 15.181, 0.548)
pt3dadd(154.778, 68.496, 15.156, 0.564)
}
}
proc shape3d_184() {
dend_7[43] { pt3dadd(154.842, 68.399, 15.131, 0.582)
pt3dadd(154.906, 68.302, 15.106, 0.598)
pt3dadd(154.975, 68.205, 15.096, 0.622)
pt3dadd(155.046, 68.108, 15.09, 0.646)
pt3dadd(155.12, 68.031, 15.053, 0.664)
pt3dadd(155.197, 67.962, 15.002, 0.678)
pt3dadd(155.267, 67.893, 14.944, 0.678)
pt3dadd(155.328, 67.835, 14.878, 0.676)
pt3dadd(155.366, 67.817, 14.784, 0.664)
pt3dadd(155.404, 67.793, 14.692, 0.652)
pt3dadd(155.443, 67.727, 14.615, 0.634)
pt3dadd(155.483, 67.661, 14.539, 0.618)
pt3dadd(155.521, 67.593, 14.465, 0.602)
pt3dadd(155.539, 67.48, 14.434, 0.578)
pt3dadd(155.558, 67.368, 14.402, 0.554)
pt3dadd(155.63, 67.277, 14.39, 0.556)
pt3dadd(155.705, 67.202, 14.344, 0.568)
pt3dadd(155.78, 67.126, 14.297, 0.58)
pt3dadd(155.855, 67.051, 14.251, 0.592)
pt3dadd(155.928, 66.972, 14.211, 0.604)
pt3dadd(155.989, 66.869, 14.209, 0.614)
pt3dadd(156.05, 66.765, 14.206, 0.624)
pt3dadd(156.112, 66.662, 14.204, 0.634)
pt3dadd(156.173, 66.559, 14.202, 0.644)
pt3dadd(156.228, 66.454, 14.2, 0.656)
pt3dadd(156.244, 66.335, 14.2, 0.672)
pt3dadd(156.264, 66.217, 14.2, 0.644)
pt3dadd(156.318, 66.113, 14.2, 0.592)
pt3dadd(156.394, 66.02, 14.2, 0.578)
pt3dadd(156.484, 65.942, 14.194, 0.606)
pt3dadd(156.581, 65.891, 14.16, 0.656)
pt3dadd(156.67, 65.88, 14.094, 0.678)
pt3dadd(156.749, 65.88, 14.02, 0.678)
pt3dadd(156.844, 65.88, 13.958, 0.678)
pt3dadd(156.946, 65.88, 13.906, 0.678)
pt3dadd(157.033, 65.865, 13.841, 0.678)
pt3dadd(157.118, 65.847, 13.772, 0.678)
pt3dadd(157.204, 65.829, 13.703, 0.678)
pt3dadd(157.29, 65.811, 13.635, 0.678)
pt3dadd(157.368, 65.797, 13.561, 0.68)
pt3dadd(157.435, 65.789, 13.478, 0.686)
pt3dadd(157.501, 65.78, 13.395, 0.69)
pt3dadd(157.568, 65.772, 13.312, 0.696)
pt3dadd(157.634, 65.764, 13.229, 0.7)
pt3dadd(157.694, 65.76, 13.143, 0.708)
pt3dadd(157.748, 65.76, 13.054, 0.718)
pt3dadd(157.801, 65.76, 12.964, 0.728)
pt3dadd(157.855, 65.76, 12.875, 0.736)
pt3dadd(157.909, 65.76, 12.785, 0.746)
pt3dadd(157.972, 65.754, 12.702, 0.788)
pt3dadd(158.027, 65.719, 12.621, 0.88)
pt3dadd(158.047, 65.666, 12.533, 0.904)
pt3dadd(158.093, 65.64, 12.445, 0.904)
pt3dadd(158.202, 65.64, 12.408, 0.904)
pt3dadd(158.321, 65.645, 12.4, 0.904)
pt3dadd(158.438, 65.668, 12.4, 0.904)
pt3dadd(158.539, 65.728, 12.4, 0.904)
pt3dadd(158.629, 65.807, 12.4, 0.864)
pt3dadd(158.714, 65.891, 12.4, 0.794)
pt3dadd(158.809, 65.963, 12.4, 0.728)
pt3dadd(158.926, 65.993, 12.4, 0.724)
pt3dadd(159.041, 66.023, 12.4, 0.72)
pt3dadd(159.157, 66.053, 12.4, 0.714)
pt3dadd(159.274, 66.083, 12.4, 0.71)
pt3dadd(159.39, 66.113, 12.4, 0.706)
pt3dadd(159.506, 66.142, 12.4, 0.7)
pt3dadd(159.624, 66.166, 12.4, 0.692)
pt3dadd(159.742, 66.191, 12.4, 0.684)
pt3dadd(159.859, 66.216, 12.4, 0.674)
pt3dadd(159.976, 66.241, 12.4, 0.666)
pt3dadd(160.093, 66.265, 12.4, 0.658)
pt3dadd(160.205, 66.299, 12.386, 0.65)
pt3dadd(160.309, 66.344, 12.354, 0.646)
pt3dadd(160.414, 66.388, 12.322, 0.64)
pt3dadd(160.518, 66.433, 12.289, 0.634)
pt3dadd(160.622, 66.478, 12.257, 0.628)
pt3dadd(160.715, 66.48, 12.193, 0.624)
pt3dadd(160.806, 66.48, 12.128, 0.618)
pt3dadd(160.897, 66.48, 12.064, 0.612)
pt3dadd(160.988, 66.48, 11.998, 0.608)
pt3dadd(161.08, 66.48, 11.934, 0.602)
pt3dadd(161.197, 66.463, 11.919, 0.592)
pt3dadd(161.315, 66.447, 11.905, 0.582)
pt3dadd(161.422, 66.414, 11.875, 0.578)
pt3dadd(161.521, 66.371, 11.833, 0.578)
pt3dadd(161.578, 66.356, 11.752, 0.578)
pt3dadd(161.62, 66.35, 11.658, 0.578)
pt3dadd(161.665, 66.321, 11.571, 0.606)
pt3dadd(161.717, 66.27, 11.492, 0.66)
pt3dadd(161.795, 66.215, 11.435, 0.764)
pt3dadd(161.875, 66.154, 11.381, 0.854)
pt3dadd(161.944, 66.088, 11.321, 0.904)
pt3dadd(162.013, 66.022, 11.26, 0.952)
pt3dadd(162.082, 65.956, 11.2, 1.002)
pt3dadd(162.132, 65.895, 11.128, 1.042)
pt3dadd(162.158, 65.839, 11.042, 1.07)
pt3dadd(162.185, 65.783, 10.957, 1.098)
pt3dadd(162.211, 65.727, 10.871, 1.126)
pt3dadd(162.238, 65.671, 10.785, 1.152)
pt3dadd(162.24, 65.576, 10.726, 1.166)
pt3dadd(162.24, 65.477, 10.67, 1.178)
pt3dadd(162.27, 65.433, 10.586, 1.17)
pt3dadd(162.308, 65.408, 10.494, 1.158)
pt3dadd(162.34, 65.356, 10.409, 1.146)
pt3dadd(162.367, 65.293, 10.327, 1.132)
pt3dadd(162.426, 65.2, 10.302, 1.12)
pt3dadd(162.492, 65.101, 10.291, 1.108)
pt3dadd(162.57, 65.026, 10.251, 1.054)
pt3dadd(162.654, 64.964, 10.203, 1.008)
pt3dadd(162.742, 64.906, 10.155, 0.97)
pt3dadd(162.829, 64.848, 10.106, 0.934)
pt3dadd(162.916, 64.79, 10.058, 0.898)
pt3dadd(163.001, 64.717, 10.03, 0.86)
pt3dadd(163.082, 64.629, 10.023, 0.824)
pt3dadd(163.164, 64.542, 10.016, 0.786)
pt3dadd(163.246, 64.454, 10.009, 0.748)
pt3dadd(163.327, 64.367, 10.002, 0.712)
pt3dadd(163.409, 64.279, 10, 0.648)
pt3dadd(163.492, 64.192, 10, 0.578)
pt3dadd(163.56, 64.095, 9.989, 0.528)
pt3dadd(163.62, 63.994, 9.972, 0.49)
pt3dadd(163.692, 63.919, 9.928, 0.468)
pt3dadd(163.769, 63.858, 9.871, 0.452)
pt3dadd(163.844, 63.804, 9.808, 0.466)
pt3dadd(163.914, 63.752, 9.74, 0.484)
pt3dadd(163.956, 63.711, 9.653, 0.524)
pt3dadd(164.036, 63.639, 9.616, 0.548)
pt3dadd(164.122, 63.563, 9.585, 0.572)
pt3dadd(164.207, 63.487, 9.553, 0.596)
pt3dadd(164.292, 63.411, 9.521, 0.62)
pt3dadd(164.362, 63.318, 9.508, 0.652)
pt3dadd(164.425, 63.216, 9.502, 0.688)
pt3dadd(164.516, 63.147, 9.5, 0.71)
pt3dadd(164.627, 63.101, 9.5, 0.72)
pt3dadd(164.713, 63.035, 9.5, 0.72)
pt3dadd(164.734, 62.916, 9.5, 0.692)
pt3dadd(164.754, 62.798, 9.5, 0.662)
pt3dadd(164.772, 62.684, 9.479, 0.622)
pt3dadd(164.791, 62.571, 9.448, 0.574)
pt3dadd(164.837, 62.482, 9.402, 0.542)
pt3dadd(164.906, 62.413, 9.344, 0.526)
pt3dadd(164.976, 62.344, 9.287, 0.508)
pt3dadd(165.038, 62.291, 9.215, 0.512)
pt3dadd(165.097, 62.248, 9.135, 0.524)
pt3dadd(165.181, 62.198, 9.08, 0.544)
pt3dadd(165.271, 62.148, 9.028, 0.566)
pt3dadd(165.354, 62.078, 9, 0.578)
pt3dadd(165.428, 61.984, 9, 0.578)
pt3dadd(165.497, 61.886, 9, 0.566)
pt3dadd(165.565, 61.789, 9, 0.552)
pt3dadd(165.647, 61.7, 9, 0.552)
pt3dadd(165.727, 61.612, 9, 0.552)
pt3dadd(165.809, 61.523, 9, 0.552)
pt3dadd(165.889, 61.434, 9, 0.552)
pt3dadd(165.983, 61.362, 9, 0.558)
pt3dadd(166.086, 61.299, 9, 0.568)
pt3dadd(166.188, 61.236, 9, 0.578)
pt3dadd(166.29, 61.173, 9, 0.588)
pt3dadd(166.392, 61.11, 9, 0.598)
pt3dadd(166.498, 61.055, 8.991, 0.606)
pt3dadd(166.606, 61.008, 8.975, 0.61)
pt3dadd(166.715, 60.96, 8.959, 0.616)
pt3dadd(166.823, 60.913, 8.943, 0.622)
pt3dadd(166.932, 60.865, 8.926, 0.626)
pt3dadd(167.034, 60.833, 8.886, 0.628)
pt3dadd(167.135, 60.807, 8.836, 0.628)
pt3dadd(167.236, 60.78, 8.787, 0.628)
pt3dadd(167.336, 60.753, 8.737, 0.628)
pt3dadd(167.442, 60.733, 8.696, 0.626)
pt3dadd(167.561, 60.73, 8.679, 0.622)
pt3dadd(167.678, 60.728, 8.662, 0.618)
pt3dadd(167.797, 60.726, 8.646, 0.614)
pt3dadd(167.915, 60.724, 8.629, 0.61)
pt3dadd(168.034, 60.722, 8.612, 0.606)
pt3dadd(168.149, 60.718, 8.587, 0.606)
pt3dadd(168.254, 60.712, 8.541, 0.618)
pt3dadd(168.36, 60.7, 8.495, 0.63)
pt3dadd(168.46, 60.65, 8.46, 0.642)
pt3dadd(168.558, 60.594, 8.43, 0.656)
pt3dadd(168.653, 60.521, 8.418, 0.67)
pt3dadd(168.733, 60.45, 8.439, 0.678)
pt3dadd(168.794, 60.381, 8.502, 0.678)
pt3dadd(168.896, 60.36, 8.524, 0.682)
pt3dadd(169.016, 60.36, 8.528, 0.69)
pt3dadd(169.136, 60.36, 8.531, 0.696)
pt3dadd(169.255, 60.362, 8.531, 0.704)
pt3dadd(169.373, 60.379, 8.517, 0.716)
pt3dadd(169.492, 60.396, 8.503, 0.726)
pt3dadd(169.61, 60.41, 8.5, 0.74)
pt3dadd(169.729, 60.423, 8.5, 0.758)
pt3dadd(169.848, 60.437, 8.5, 0.774)
pt3dadd(169.945, 60.408, 8.541, 0.788)
pt3dadd(170.034, 60.363, 8.596, 0.802)
pt3dadd(170.132, 60.406, 8.638, 0.822)
pt3dadd(170.23, 60.455, 8.679, 0.844)
pt3dadd(170.316, 60.526, 8.7, 0.854)
pt3dadd(170.392, 60.62, 8.7, 0.854)
pt3dadd(170.459, 60.718, 8.7, 0.842)
pt3dadd(170.513, 60.825, 8.7, 0.768)
pt3dadd(170.59, 60.915, 8.7, 0.704)
}
}
proc shape3d_185() {
dend_7[43] { pt3dadd(170.701, 60.953, 8.7, 0.714)
pt3dadd(170.82, 60.96, 8.694, 0.756)
pt3dadd(170.933, 60.96, 8.662, 0.778)
pt3dadd(171.01, 60.957, 8.587, 0.766)
pt3dadd(171.073, 60.925, 8.508, 0.708)
pt3dadd(171.083, 60.858, 8.431, 0.612)
pt3dadd(171.025, 60.812, 8.353, 0.5)
pt3dadd(171, 60.72, 8.3, 0.452)
}
dend_7[44] {pt3dclear()
pt3dadd(142.265, 78.284, 20.63, 1.13)
pt3dadd(142.265, 78.256, 20.636, 1.118)
pt3dadd(142.265, 78.139, 20.658, 1.074)
pt3dadd(142.265, 78.022, 20.681, 1.028)
pt3dadd(142.265, 77.905, 20.703, 0.982)
pt3dadd(142.265, 77.788, 20.726, 0.938)
pt3dadd(142.265, 77.671, 20.748, 0.892)
pt3dadd(142.265, 77.554, 20.77, 0.846)
pt3dadd(142.264, 77.437, 20.793, 0.802)
pt3dadd(142.264, 77.32, 20.815, 0.756)
pt3dadd(142.264, 77.203, 20.838, 0.71)
pt3dadd(142.264, 77.086, 20.86, 0.666)
pt3dadd(142.264, 76.969, 20.883, 0.62)
pt3dadd(142.274, 76.855, 20.912, 0.58)
pt3dadd(142.286, 76.741, 20.942, 0.54)
pt3dadd(142.298, 76.627, 20.972, 0.5)
pt3dadd(142.312, 76.514, 21.002, 0.462)
pt3dadd(142.324, 76.4, 21.032, 0.422)
pt3dadd(142.336, 76.286, 21.062, 0.382)
pt3dadd(142.348, 76.172, 21.092, 0.344)
pt3dadd(142.361, 76.058, 21.122, 0.304)
pt3dadd(142.373, 75.945, 21.152, 0.264)
pt3dadd(142.417, 75.862, 21.197, 0.25)
pt3dadd(142.499, 75.814, 21.259, 0.262)
pt3dadd(142.579, 75.765, 21.321, 0.276)
pt3dadd(142.66, 75.717, 21.383, 0.288)
pt3dadd(142.741, 75.669, 21.445, 0.3)
pt3dadd(142.822, 75.62, 21.507, 0.314)
pt3dadd(142.902, 75.572, 21.569, 0.326)
pt3dadd(142.984, 75.524, 21.631, 0.338)
pt3dadd(143.064, 75.475, 21.693, 0.352)
pt3dadd(143.144, 75.427, 21.755, 0.364)
pt3dadd(143.222, 75.37, 21.814, 0.372)
pt3dadd(143.296, 75.303, 21.87, 0.374)
pt3dadd(143.37, 75.237, 21.927, 0.374)
pt3dadd(143.443, 75.171, 21.983, 0.376)
pt3dadd(143.518, 75.104, 22.039, 0.38)
pt3dadd(143.591, 75.038, 22.095, 0.38)
pt3dadd(143.665, 74.972, 22.152, 0.382)
pt3dadd(143.738, 74.905, 22.208, 0.384)
pt3dadd(143.813, 74.839, 22.264, 0.386)
pt3dadd(143.886, 74.773, 22.32, 0.388)
pt3dadd(143.946, 74.685, 22.364, 0.378)
pt3dadd(144.001, 74.59, 22.404, 0.362)
pt3dadd(144.058, 74.495, 22.444, 0.348)
pt3dadd(144.113, 74.4, 22.484, 0.332)
pt3dadd(144.168, 74.305, 22.524, 0.318)
pt3dadd(144.223, 74.21, 22.564, 0.302)
pt3dadd(144.28, 74.115, 22.604, 0.288)
pt3dadd(144.335, 74.02, 22.644, 0.272)
pt3dadd(144.39, 73.925, 22.684, 0.256)
pt3dadd(144.445, 73.83, 22.724, 0.242)
pt3dadd(144.505, 73.732, 22.753, 0.25)
pt3dadd(144.565, 73.632, 22.778, 0.262)
pt3dadd(144.625, 73.533, 22.803, 0.276)
pt3dadd(144.685, 73.433, 22.828, 0.29)
pt3dadd(144.745, 73.334, 22.853, 0.304)
pt3dadd(144.805, 73.234, 22.878, 0.318)
pt3dadd(144.865, 73.135, 22.903, 0.332)
pt3dadd(144.925, 73.035, 22.928, 0.346)
pt3dadd(144.985, 72.936, 22.953, 0.358)
pt3dadd(145.045, 72.836, 22.977, 0.372)
pt3dadd(145.094, 72.734, 23.009, 0.386)
pt3dadd(145.142, 72.632, 23.043, 0.4)
pt3dadd(145.189, 72.529, 23.076, 0.414)
pt3dadd(145.236, 72.426, 23.11, 0.426)
pt3dadd(145.284, 72.323, 23.143, 0.44)
pt3dadd(145.331, 72.221, 23.177, 0.454)
pt3dadd(145.379, 72.118, 23.21, 0.468)
pt3dadd(145.426, 72.015, 23.244, 0.48)
pt3dadd(145.472, 71.913, 23.278, 0.494)
pt3dadd(145.52, 71.81, 23.311, 0.508)
pt3dadd(145.552, 71.706, 23.353, 0.52)
pt3dadd(145.582, 71.602, 23.397, 0.534)
pt3dadd(145.612, 71.499, 23.44, 0.546)
pt3dadd(145.642, 71.395, 23.484, 0.56)
pt3dadd(145.672, 71.291, 23.527, 0.572)
pt3dadd(145.702, 71.187, 23.571, 0.586)
pt3dadd(145.732, 71.083, 23.614, 0.598)
pt3dadd(145.762, 70.979, 23.658, 0.612)
pt3dadd(145.792, 70.876, 23.701, 0.624)
pt3dadd(145.822, 70.772, 23.745, 0.638)
pt3dadd(145.847, 70.665, 23.785, 0.634)
pt3dadd(145.872, 70.558, 23.825, 0.628)
pt3dadd(145.896, 70.451, 23.865, 0.622)
pt3dadd(145.92, 70.343, 23.905, 0.616)
pt3dadd(145.945, 70.236, 23.945, 0.61)
pt3dadd(145.969, 70.129, 23.986, 0.604)
pt3dadd(145.994, 70.022, 24.026, 0.598)
pt3dadd(146.018, 69.915, 24.066, 0.592)
pt3dadd(146.044, 69.808, 24.106, 0.586)
pt3dadd(146.068, 69.7, 24.146, 0.58)
pt3dadd(146.089, 69.593, 24.186, 0.572)
pt3dadd(146.111, 69.485, 24.226, 0.562)
pt3dadd(146.132, 69.377, 24.266, 0.554)
pt3dadd(146.154, 69.27, 24.307, 0.544)
pt3dadd(146.176, 69.162, 24.347, 0.536)
pt3dadd(146.197, 69.054, 24.387, 0.526)
pt3dadd(146.219, 68.946, 24.427, 0.518)
pt3dadd(146.24, 68.839, 24.467, 0.508)
pt3dadd(146.262, 68.731, 24.508, 0.5)
pt3dadd(146.284, 68.623, 24.548, 0.49)
pt3dadd(146.3, 68.524, 24.602, 0.528)
pt3dadd(146.315, 68.425, 24.657, 0.568)
pt3dadd(146.33, 68.326, 24.712, 0.608)
pt3dadd(146.346, 68.227, 24.768, 0.65)
pt3dadd(146.36, 68.128, 24.823, 0.69)
pt3dadd(146.376, 68.03, 24.878, 0.73)
pt3dadd(146.392, 67.931, 24.934, 0.772)
pt3dadd(146.406, 67.832, 24.989, 0.812)
pt3dadd(146.422, 67.733, 25.045, 0.854)
pt3dadd(146.437, 67.635, 25.1, 0.894)
pt3dadd(146.472, 67.539, 25.153, 0.898)
pt3dadd(146.509, 67.444, 25.205, 0.898)
pt3dadd(146.545, 67.349, 25.258, 0.9)
pt3dadd(146.582, 67.254, 25.311, 0.9)
pt3dadd(146.62, 67.158, 25.363, 0.9)
pt3dadd(146.657, 67.063, 25.416, 0.902)
pt3dadd(146.693, 66.968, 25.468, 0.902)
pt3dadd(146.73, 66.873, 25.521, 0.902)
pt3dadd(146.767, 66.778, 25.574, 0.904)
pt3dadd(146.807, 66.684, 25.625, 0.898)
pt3dadd(146.868, 66.598, 25.673, 0.852)
pt3dadd(146.928, 66.512, 25.721, 0.808)
pt3dadd(146.989, 66.425, 25.769, 0.762)
pt3dadd(147.05, 66.339, 25.817, 0.716)
pt3dadd(147.11, 66.253, 25.864, 0.67)
pt3dadd(147.172, 66.167, 25.912, 0.626)
pt3dadd(147.233, 66.081, 25.96, 0.58)
pt3dadd(147.293, 65.995, 26.008, 0.536)
pt3dadd(147.354, 65.909, 26.056, 0.49)
pt3dadd(147.412, 65.822, 26.105, 0.452)
pt3dadd(147.454, 65.732, 26.161, 0.452)
pt3dadd(147.494, 65.642, 26.218, 0.452)
pt3dadd(147.536, 65.552, 26.274, 0.452)
pt3dadd(147.578, 65.463, 26.331, 0.452)
pt3dadd(147.619, 65.373, 26.387, 0.452)
pt3dadd(147.661, 65.283, 26.444, 0.452)
pt3dadd(147.703, 65.193, 26.5, 0.452)
pt3dadd(147.745, 65.103, 26.557, 0.452)
pt3dadd(147.786, 65.014, 26.613, 0.452)
pt3dadd(147.827, 64.922, 26.668, 0.45)
pt3dadd(147.865, 64.821, 26.712, 0.44)
pt3dadd(147.902, 64.72, 26.755, 0.43)
pt3dadd(147.94, 64.618, 26.799, 0.42)
pt3dadd(147.977, 64.517, 26.843, 0.41)
pt3dadd(148.015, 64.416, 26.887, 0.4)
pt3dadd(148.052, 64.315, 26.931, 0.39)
pt3dadd(148.09, 64.214, 26.975, 0.38)
pt3dadd(148.127, 64.113, 27.019, 0.37)
pt3dadd(148.165, 64.012, 27.063, 0.36)
pt3dadd(148.202, 63.909, 27.104, 0.35)
pt3dadd(148.242, 63.804, 27.138, 0.338)
pt3dadd(148.28, 63.698, 27.172, 0.324)
pt3dadd(148.319, 63.592, 27.206, 0.312)
pt3dadd(148.358, 63.486, 27.24, 0.298)
pt3dadd(148.397, 63.38, 27.274, 0.286)
pt3dadd(148.436, 63.274, 27.308, 0.274)
pt3dadd(148.475, 63.168, 27.341, 0.26)
pt3dadd(148.513, 63.062, 27.375, 0.248)
pt3dadd(148.553, 62.956, 27.409, 0.236)
pt3dadd(148.596, 62.851, 27.441, 0.226)
pt3dadd(148.654, 62.75, 27.465, 0.226)
pt3dadd(148.71, 62.648, 27.49, 0.226)
pt3dadd(148.766, 62.547, 27.514, 0.226)
pt3dadd(148.824, 62.445, 27.539, 0.226)
pt3dadd(148.88, 62.343, 27.564, 0.226)
pt3dadd(148.937, 62.242, 27.588, 0.226)
pt3dadd(148.994, 62.14, 27.613, 0.226)
pt3dadd(149.051, 62.039, 27.637, 0.226)
pt3dadd(149.107, 61.937, 27.662, 0.226)
pt3dadd(149.165, 61.838, 27.692, 0.232)
pt3dadd(149.222, 61.746, 27.733, 0.25)
pt3dadd(149.28, 61.653, 27.776, 0.27)
pt3dadd(149.338, 61.561, 27.817, 0.288)
pt3dadd(149.394, 61.469, 27.86, 0.308)
pt3dadd(149.452, 61.376, 27.901, 0.326)
pt3dadd(149.509, 61.284, 27.943, 0.346)
pt3dadd(149.567, 61.191, 27.985, 0.364)
pt3dadd(149.624, 61.099, 28.027, 0.384)
pt3dadd(149.682, 61.006, 28.069, 0.402)
pt3dadd(149.741, 60.917, 28.115, 0.422)
pt3dadd(149.801, 60.833, 28.166, 0.444)
pt3dadd(149.861, 60.749, 28.217, 0.464)
pt3dadd(149.921, 60.665, 28.267, 0.484)
pt3dadd(149.981, 60.58, 28.318, 0.506)
pt3dadd(150.041, 60.496, 28.369, 0.526)
pt3dadd(150.101, 60.412, 28.419, 0.546)
pt3dadd(150.161, 60.328, 28.47, 0.568)
pt3dadd(150.221, 60.243, 28.521, 0.588)
pt3dadd(150.281, 60.159, 28.571, 0.608)
pt3dadd(150.347, 60.074, 28.615, 0.606)
}
}
proc shape3d_186() {
dend_7[44] { pt3dadd(150.418, 59.987, 28.65, 0.578)
pt3dadd(150.488, 59.9, 28.685, 0.55)
pt3dadd(150.56, 59.813, 28.721, 0.524)
pt3dadd(150.631, 59.726, 28.756, 0.496)
pt3dadd(150.702, 59.639, 28.791, 0.468)
pt3dadd(150.774, 59.553, 28.826, 0.44)
pt3dadd(150.845, 59.466, 28.861, 0.412)
pt3dadd(150.916, 59.379, 28.897, 0.384)
pt3dadd(150.988, 59.292, 28.932, 0.356)
pt3dadd(151.052, 59.203, 28.97, 0.336)
pt3dadd(151.11, 59.11, 29.012, 0.324)
pt3dadd(151.169, 59.018, 29.054, 0.312)
pt3dadd(151.226, 58.926, 29.096, 0.302)
pt3dadd(151.284, 58.834, 29.138, 0.29)
pt3dadd(151.343, 58.742, 29.18, 0.278)
pt3dadd(151.4, 58.649, 29.221, 0.266)
pt3dadd(151.459, 58.557, 29.263, 0.254)
pt3dadd(151.517, 58.465, 29.305, 0.242)
pt3dadd(151.576, 58.373, 29.347, 0.232)
pt3dadd(151.628, 58.279, 29.391, 0.226)
pt3dadd(151.676, 58.184, 29.437, 0.226)
pt3dadd(151.724, 58.089, 29.483, 0.226)
pt3dadd(151.772, 57.994, 29.529, 0.226)
pt3dadd(151.82, 57.899, 29.576, 0.226)
pt3dadd(151.868, 57.804, 29.622, 0.226)
pt3dadd(151.916, 57.709, 29.668, 0.226)
pt3dadd(151.964, 57.614, 29.714, 0.226)
pt3dadd(152.012, 57.519, 29.76, 0.226)
pt3dadd(152.06, 57.424, 29.806, 0.226)
pt3dadd(152.117, 57.328, 29.841, 0.248)
pt3dadd(152.179, 57.23, 29.867, 0.286)
pt3dadd(152.242, 57.132, 29.893, 0.326)
pt3dadd(152.303, 57.034, 29.918, 0.366)
pt3dadd(152.365, 56.936, 29.944, 0.404)
pt3dadd(152.428, 56.838, 29.969, 0.444)
pt3dadd(152.49, 56.74, 29.995, 0.484)
pt3dadd(152.552, 56.643, 30.021, 0.524)
pt3dadd(152.615, 56.545, 30.046, 0.562)
pt3dadd(152.677, 56.447, 30.072, 0.602)
pt3dadd(152.741, 56.349, 30.095, 0.646)
pt3dadd(152.806, 56.251, 30.116, 0.694)
pt3dadd(152.87, 56.153, 30.138, 0.74)
pt3dadd(152.934, 56.056, 30.159, 0.788)
pt3dadd(152.999, 55.958, 30.18, 0.834)
pt3dadd(153.064, 55.86, 30.201, 0.882)
pt3dadd(153.128, 55.762, 30.223, 0.93)
pt3dadd(153.193, 55.664, 30.244, 0.976)
pt3dadd(153.258, 55.567, 30.265, 1.024)
pt3dadd(153.323, 55.469, 30.286, 1.07)
pt3dadd(153.39, 55.372, 30.302, 1.08)
pt3dadd(153.46, 55.275, 30.314, 1.062)
pt3dadd(153.529, 55.178, 30.327, 1.046)
pt3dadd(153.599, 55.082, 30.339, 1.028)
pt3dadd(153.668, 54.985, 30.351, 1.01)
pt3dadd(153.738, 54.889, 30.363, 0.994)
pt3dadd(153.808, 54.792, 30.375, 0.976)
pt3dadd(153.878, 54.695, 30.387, 0.958)
pt3dadd(153.948, 54.599, 30.399, 0.942)
pt3dadd(154.018, 54.502, 30.411, 0.924)
pt3dadd(154.087, 54.406, 30.423, 0.904)
pt3dadd(154.157, 54.309, 30.434, 0.88)
pt3dadd(154.228, 54.213, 30.445, 0.856)
pt3dadd(154.297, 54.116, 30.457, 0.834)
pt3dadd(154.368, 54.02, 30.468, 0.81)
pt3dadd(154.438, 53.924, 30.479, 0.786)
pt3dadd(154.508, 53.827, 30.49, 0.764)
pt3dadd(154.578, 53.731, 30.501, 0.74)
pt3dadd(154.649, 53.634, 30.513, 0.718)
pt3dadd(154.718, 53.538, 30.524, 0.694)
pt3dadd(154.78, 53.435, 30.532, 0.668)
pt3dadd(154.832, 53.328, 30.539, 0.644)
pt3dadd(154.886, 53.221, 30.545, 0.618)
pt3dadd(154.94, 53.114, 30.552, 0.592)
pt3dadd(154.994, 53.007, 30.558, 0.566)
pt3dadd(155.047, 52.9, 30.565, 0.54)
pt3dadd(155.101, 52.793, 30.571, 0.514)
pt3dadd(155.155, 52.686, 30.577, 0.488)
pt3dadd(155.208, 52.579, 30.584, 0.462)
pt3dadd(155.262, 52.472, 30.59, 0.436)
pt3dadd(155.316, 52.365, 30.597, 0.422)
pt3dadd(155.37, 52.258, 30.605, 0.412)
pt3dadd(155.425, 52.152, 30.612, 0.404)
pt3dadd(155.479, 52.045, 30.619, 0.396)
pt3dadd(155.533, 51.938, 30.626, 0.386)
pt3dadd(155.587, 51.832, 30.633, 0.378)
pt3dadd(155.641, 51.725, 30.64, 0.37)
pt3dadd(155.696, 51.618, 30.648, 0.36)
pt3dadd(155.75, 51.512, 30.655, 0.352)
pt3dadd(155.804, 51.405, 30.662, 0.344)
pt3dadd(155.861, 51.3, 30.671, 0.37)
pt3dadd(155.92, 51.195, 30.681, 0.42)
pt3dadd(155.977, 51.091, 30.691, 0.47)
pt3dadd(156.035, 50.987, 30.702, 0.522)
pt3dadd(156.094, 50.882, 30.712, 0.572)
pt3dadd(156.151, 50.778, 30.722, 0.622)
pt3dadd(156.21, 50.674, 30.732, 0.672)
pt3dadd(156.268, 50.569, 30.742, 0.722)
pt3dadd(156.325, 50.465, 30.752, 0.774)
pt3dadd(156.384, 50.361, 30.763, 0.824)
pt3dadd(156.437, 50.255, 30.78, 0.848)
pt3dadd(156.486, 50.149, 30.801, 0.854)
pt3dadd(156.535, 50.043, 30.822, 0.86)
pt3dadd(156.586, 49.937, 30.844, 0.868)
pt3dadd(156.635, 49.83, 30.865, 0.874)
pt3dadd(156.684, 49.724, 30.886, 0.882)
pt3dadd(156.734, 49.618, 30.908, 0.888)
pt3dadd(156.784, 49.512, 30.929, 0.894)
pt3dadd(156.833, 49.405, 30.95, 0.902)
pt3dadd(156.882, 49.299, 30.972, 0.908)
pt3dadd(156.923, 49.193, 31.003, 0.874)
pt3dadd(156.96, 49.087, 31.039, 0.822)
pt3dadd(156.997, 48.981, 31.074, 0.77)
pt3dadd(157.034, 48.875, 31.109, 0.72)
pt3dadd(157.072, 48.769, 31.145, 0.668)
pt3dadd(157.109, 48.664, 31.18, 0.618)
pt3dadd(157.146, 48.558, 31.216, 0.566)
pt3dadd(157.183, 48.452, 31.251, 0.516)
pt3dadd(157.219, 48.346, 31.287, 0.464)
pt3dadd(157.256, 48.24, 31.322, 0.414)
pt3dadd(157.292, 48.131, 31.352, 0.4)
pt3dadd(157.327, 48.021, 31.379, 0.4)
pt3dadd(157.363, 47.911, 31.407, 0.4)
pt3dadd(157.398, 47.802, 31.434, 0.4)
pt3dadd(157.433, 47.692, 31.462, 0.402)
pt3dadd(157.468, 47.582, 31.489, 0.402)
pt3dadd(157.504, 47.472, 31.517, 0.402)
pt3dadd(157.538, 47.362, 31.544, 0.404)
pt3dadd(157.573, 47.252, 31.571, 0.404)
pt3dadd(157.608, 47.142, 31.599, 0.404)
pt3dadd(157.643, 47.031, 31.623, 0.424)
pt3dadd(157.676, 46.919, 31.646, 0.452)
pt3dadd(157.711, 46.808, 31.67, 0.478)
pt3dadd(157.745, 46.696, 31.693, 0.506)
pt3dadd(157.78, 46.584, 31.716, 0.532)
pt3dadd(157.813, 46.473, 31.739, 0.558)
pt3dadd(157.847, 46.361, 31.763, 0.586)
pt3dadd(157.882, 46.249, 31.786, 0.612)
pt3dadd(157.915, 46.138, 31.809, 0.64)
pt3dadd(157.95, 46.026, 31.833, 0.666)
pt3dadd(158, 45.919, 31.846, 0.692)
pt3dadd(158.056, 45.814, 31.857, 0.718)
pt3dadd(158.112, 45.708, 31.867, 0.744)
pt3dadd(158.167, 45.603, 31.878, 0.768)
pt3dadd(158.224, 45.498, 31.888, 0.794)
pt3dadd(158.28, 45.392, 31.899, 0.82)
pt3dadd(158.335, 45.287, 31.909, 0.846)
pt3dadd(158.392, 45.181, 31.92, 0.87)
pt3dadd(158.447, 45.076, 31.931, 0.896)
pt3dadd(158.503, 44.97, 31.941, 0.922)
pt3dadd(158.561, 44.866, 31.95, 0.94)
pt3dadd(158.62, 44.762, 31.958, 0.954)
pt3dadd(158.678, 44.658, 31.967, 0.97)
pt3dadd(158.737, 44.553, 31.975, 0.986)
pt3dadd(158.796, 44.449, 31.984, 1)
pt3dadd(158.855, 44.345, 31.992, 1.016)
pt3dadd(158.914, 44.241, 32.001, 1.032)
pt3dadd(158.972, 44.137, 32.009, 1.046)
pt3dadd(159.03, 44.032, 32.018, 1.062)
pt3dadd(159.089, 43.928, 32.026, 1.078)
pt3dadd(159.155, 43.828, 32.029, 1.062)
pt3dadd(159.222, 43.729, 32.03, 1.038)
pt3dadd(159.29, 43.63, 32.031, 1.016)
pt3dadd(159.358, 43.531, 32.033, 0.992)
pt3dadd(159.426, 43.432, 32.034, 0.968)
pt3dadd(159.493, 43.332, 32.035, 0.944)
pt3dadd(159.56, 43.233, 32.036, 0.92)
pt3dadd(159.629, 43.134, 32.037, 0.896)
pt3dadd(159.696, 43.035, 32.038, 0.872)
pt3dadd(159.764, 42.936, 32.039, 0.848)
pt3dadd(159.827, 42.834, 32.041, 0.83)
pt3dadd(159.889, 42.732, 32.043, 0.812)
pt3dadd(159.952, 42.629, 32.044, 0.796)
pt3dadd(160.013, 42.526, 32.046, 0.78)
pt3dadd(160.075, 42.423, 32.048, 0.764)
pt3dadd(160.138, 42.321, 32.049, 0.748)
pt3dadd(160.199, 42.218, 32.051, 0.73)
pt3dadd(160.261, 42.115, 32.052, 0.714)
pt3dadd(160.324, 42.013, 32.054, 0.698)
pt3dadd(160.385, 41.91, 32.056, 0.682)
pt3dadd(160.436, 41.802, 32.058, 0.678)
pt3dadd(160.486, 41.692, 32.061, 0.678)
pt3dadd(160.534, 41.582, 32.063, 0.678)
pt3dadd(160.583, 41.473, 32.066, 0.678)
pt3dadd(160.632, 41.363, 32.069, 0.678)
pt3dadd(160.68, 41.253, 32.071, 0.678)
pt3dadd(160.729, 41.144, 32.074, 0.678)
pt3dadd(160.777, 41.034, 32.076, 0.678)
pt3dadd(160.826, 40.925, 32.079, 0.678)
pt3dadd(160.876, 40.815, 32.082, 0.678)
pt3dadd(160.915, 40.702, 32.086, 0.684)
pt3dadd(160.952, 40.588, 32.092, 0.694)
pt3dadd(160.99, 40.474, 32.097, 0.702)
pt3dadd(161.027, 40.361, 32.102, 0.71)
pt3dadd(161.065, 40.247, 32.107, 0.72)
pt3dadd(161.102, 40.133, 32.112, 0.728)
pt3dadd(161.14, 40.019, 32.118, 0.736)
pt3dadd(161.177, 39.905, 32.123, 0.744)
pt3dadd(161.215, 39.791, 32.128, 0.754)
pt3dadd(161.252, 39.678, 32.133, 0.762)
pt3dadd(161.284, 39.562, 32.14, 0.776)
}
}
proc shape3d_187() {
dend_7[44] { pt3dadd(161.314, 39.446, 32.146, 0.79)
pt3dadd(161.344, 39.33, 32.153, 0.804)
pt3dadd(161.374, 39.214, 32.16, 0.818)
pt3dadd(161.404, 39.098, 32.167, 0.832)
pt3dadd(161.434, 38.982, 32.174, 0.846)
pt3dadd(161.464, 38.867, 32.181, 0.86)
pt3dadd(161.494, 38.751, 32.187, 0.874)
pt3dadd(161.524, 38.635, 32.194, 0.888)
pt3dadd(161.554, 38.519, 32.201, 0.902)
pt3dadd(161.602, 38.41, 32.211, 0.872)
pt3dadd(161.653, 38.302, 32.222, 0.832)
pt3dadd(161.705, 38.195, 32.232, 0.792)
pt3dadd(161.756, 38.087, 32.243, 0.754)
pt3dadd(161.808, 37.98, 32.253, 0.714)
pt3dadd(161.86, 37.872, 32.264, 0.674)
pt3dadd(161.911, 37.764, 32.274, 0.636)
pt3dadd(161.963, 37.657, 32.285, 0.596)
pt3dadd(162.014, 37.549, 32.295, 0.558)
pt3dadd(162.066, 37.441, 32.306, 0.518)
pt3dadd(162.115, 37.334, 32.322, 0.488)
pt3dadd(162.163, 37.226, 32.34, 0.458)
pt3dadd(162.212, 37.118, 32.357, 0.43)
pt3dadd(162.26, 37.011, 32.375, 0.402)
pt3dadd(162.31, 36.903, 32.392, 0.372)
pt3dadd(162.358, 36.795, 32.41, 0.344)
pt3dadd(162.407, 36.688, 32.427, 0.316)
pt3dadd(162.455, 36.58, 32.445, 0.286)
pt3dadd(162.504, 36.472, 32.462, 0.258)
pt3dadd(162.552, 36.365, 32.48, 0.228)
pt3dadd(162.593, 36.259, 32.513, 0.226)
pt3dadd(162.632, 36.154, 32.549, 0.226)
pt3dadd(162.672, 36.049, 32.584, 0.226)
pt3dadd(162.712, 35.944, 32.619, 0.226)
pt3dadd(162.751, 35.839, 32.655, 0.226)
pt3dadd(162.791, 35.734, 32.69, 0.226)
pt3dadd(162.83, 35.629, 32.725, 0.226)
pt3dadd(162.87, 35.524, 32.761, 0.226)
pt3dadd(162.91, 35.419, 32.796, 0.226)
pt3dadd(162.949, 35.314, 32.831, 0.226)
pt3dadd(162.997, 35.21, 32.861, 0.226)
pt3dadd(163.046, 35.106, 32.89, 0.226)
pt3dadd(163.094, 35.002, 32.919, 0.226)
pt3dadd(163.144, 34.898, 32.948, 0.226)
pt3dadd(163.193, 34.795, 32.978, 0.226)
pt3dadd(163.242, 34.691, 33.007, 0.226)
pt3dadd(163.291, 34.587, 33.036, 0.226)
pt3dadd(163.339, 34.483, 33.065, 0.226)
pt3dadd(163.388, 34.379, 33.094, 0.226)
pt3dadd(163.438, 34.276, 33.124, 0.226)
pt3dadd(163.495, 34.174, 33.147, 0.226)
pt3dadd(163.553, 34.072, 33.17, 0.226)
pt3dadd(163.61, 33.971, 33.192, 0.226)
pt3dadd(163.668, 33.869, 33.215, 0.226)
pt3dadd(163.726, 33.767, 33.238, 0.226)
pt3dadd(163.783, 33.666, 33.261, 0.226)
pt3dadd(163.841, 33.564, 33.284, 0.226)
pt3dadd(163.898, 33.462, 33.307, 0.226)
pt3dadd(163.956, 33.361, 33.33, 0.226)
pt3dadd(164.014, 33.259, 33.353, 0.226)
pt3dadd(164.053, 33.147, 33.365, 0.246)
pt3dadd(164.092, 33.034, 33.377, 0.266)
pt3dadd(164.131, 32.922, 33.389, 0.286)
pt3dadd(164.17, 32.809, 33.401, 0.306)
pt3dadd(164.208, 32.697, 33.413, 0.328)
pt3dadd(164.248, 32.584, 33.425, 0.348)
pt3dadd(164.286, 32.471, 33.437, 0.368)
pt3dadd(164.324, 32.359, 33.449, 0.388)
pt3dadd(164.364, 32.246, 33.461, 0.41)
pt3dadd(164.402, 32.133, 33.473, 0.43)
pt3dadd(164.437, 32.019, 33.483, 0.454)
pt3dadd(164.471, 31.905, 33.492, 0.48)
pt3dadd(164.506, 31.79, 33.502, 0.504)
pt3dadd(164.539, 31.676, 33.511, 0.53)
pt3dadd(164.574, 31.561, 33.521, 0.554)
pt3dadd(164.609, 31.447, 33.53, 0.578)
pt3dadd(164.642, 31.332, 33.54, 0.604)
pt3dadd(164.677, 31.218, 33.549, 0.628)
pt3dadd(164.711, 31.104, 33.559, 0.654)
pt3dadd(164.746, 30.989, 33.569, 0.678)
}
dend_7[45] {pt3dclear()
pt3dadd(141.383, 92.819, 22.62, 1.356)
pt3dadd(141.398, 92.819, 22.62, 1.352)
pt3dadd(141.518, 92.819, 22.621, 1.312)
pt3dadd(141.638, 92.819, 22.622, 1.272)
pt3dadd(141.758, 92.819, 22.623, 1.232)
pt3dadd(141.878, 92.819, 22.623, 1.194)
pt3dadd(141.998, 92.819, 22.624, 1.154)
pt3dadd(142.118, 92.818, 22.625, 1.114)
pt3dadd(142.238, 92.818, 22.626, 1.076)
pt3dadd(142.358, 92.818, 22.627, 1.036)
pt3dadd(142.478, 92.818, 22.628, 0.996)
pt3dadd(142.598, 92.818, 22.628, 0.956)
pt3dadd(142.718, 92.818, 22.629, 0.918)
pt3dadd(142.838, 92.818, 22.63, 0.878)
pt3dadd(142.958, 92.818, 22.631, 0.838)
pt3dadd(143.078, 92.818, 22.632, 0.8)
pt3dadd(143.198, 92.818, 22.633, 0.76)
pt3dadd(143.318, 92.818, 22.634, 0.72)
pt3dadd(143.438, 92.818, 22.634, 0.682)
pt3dadd(143.558, 92.818, 22.635, 0.642)
pt3dadd(143.678, 92.818, 22.636, 0.602)
pt3dadd(143.798, 92.818, 22.637, 0.562)
pt3dadd(143.918, 92.818, 22.638, 0.524)
pt3dadd(144.038, 92.818, 22.639, 0.484)
pt3dadd(144.15, 92.813, 22.625, 0.45)
pt3dadd(144.226, 92.786, 22.551, 0.438)
pt3dadd(144.302, 92.76, 22.477, 0.428)
pt3dadd(144.378, 92.733, 22.403, 0.416)
pt3dadd(144.454, 92.706, 22.329, 0.404)
pt3dadd(144.53, 92.679, 22.255, 0.394)
pt3dadd(144.606, 92.653, 22.181, 0.382)
pt3dadd(144.682, 92.626, 22.107, 0.37)
pt3dadd(144.758, 92.599, 22.033, 0.36)
pt3dadd(144.834, 92.572, 21.959, 0.348)
pt3dadd(144.911, 92.546, 21.885, 0.336)
pt3dadd(144.986, 92.519, 21.811, 0.324)
}
dend_7[46] {pt3dclear()
pt3dadd(144.986, 92.519, 21.811, 0.324)
pt3dadd(144.998, 92.526, 21.759, 0.32)
pt3dadd(145.062, 92.505, 21.674, 0.31)
pt3dadd(145.126, 92.484, 21.589, 0.3)
pt3dadd(145.19, 92.464, 21.503, 0.29)
pt3dadd(145.254, 92.443, 21.418, 0.28)
pt3dadd(145.318, 92.422, 21.333, 0.27)
pt3dadd(145.381, 92.401, 21.248, 0.262)
pt3dadd(145.445, 92.38, 21.163, 0.252)
pt3dadd(145.508, 92.36, 21.078, 0.242)
pt3dadd(145.572, 92.339, 20.993, 0.232)
pt3dadd(145.626, 92.305, 20.907, 0.226)
pt3dadd(145.668, 92.259, 20.82, 0.226)
pt3dadd(145.711, 92.212, 20.733, 0.226)
pt3dadd(145.754, 92.165, 20.647, 0.226)
pt3dadd(145.796, 92.118, 20.56, 0.226)
pt3dadd(145.838, 92.072, 20.473, 0.226)
pt3dadd(145.882, 92.025, 20.386, 0.226)
pt3dadd(145.924, 91.978, 20.299, 0.226)
pt3dadd(145.966, 91.931, 20.212, 0.226)
pt3dadd(146.009, 91.884, 20.125, 0.226)
pt3dadd(146.062, 91.84, 20.045, 0.242)
pt3dadd(146.128, 91.797, 19.97, 0.276)
pt3dadd(146.192, 91.754, 19.895, 0.308)
pt3dadd(146.26, 91.711, 19.821, 0.342)
pt3dadd(146.324, 91.668, 19.746, 0.376)
pt3dadd(146.389, 91.626, 19.671, 0.41)
pt3dadd(146.455, 91.583, 19.597, 0.442)
pt3dadd(146.52, 91.54, 19.522, 0.476)
pt3dadd(146.586, 91.497, 19.448, 0.51)
pt3dadd(146.651, 91.454, 19.373, 0.542)
pt3dadd(146.72, 91.413, 19.3, 0.57)
pt3dadd(146.791, 91.373, 19.229, 0.594)
pt3dadd(146.864, 91.334, 19.158, 0.616)
pt3dadd(146.935, 91.294, 19.087, 0.64)
pt3dadd(147.006, 91.254, 19.016, 0.664)
pt3dadd(147.078, 91.214, 18.944, 0.688)
pt3dadd(147.149, 91.174, 18.873, 0.71)
pt3dadd(147.221, 91.134, 18.802, 0.734)
pt3dadd(147.292, 91.094, 18.731, 0.758)
pt3dadd(147.362, 91.054, 18.66, 0.782)
pt3dadd(147.427, 91.012, 18.584, 0.766)
pt3dadd(147.49, 90.969, 18.507, 0.73)
pt3dadd(147.552, 90.926, 18.43, 0.694)
pt3dadd(147.614, 90.883, 18.353, 0.658)
pt3dadd(147.676, 90.84, 18.276, 0.624)
pt3dadd(147.738, 90.797, 18.198, 0.588)
pt3dadd(147.799, 90.754, 18.121, 0.552)
pt3dadd(147.862, 90.71, 18.044, 0.516)
pt3dadd(147.923, 90.667, 17.967, 0.48)
pt3dadd(147.985, 90.624, 17.889, 0.446)
pt3dadd(148.057, 90.566, 17.836, 0.424)
pt3dadd(148.132, 90.502, 17.791, 0.408)
pt3dadd(148.208, 90.438, 17.747, 0.394)
pt3dadd(148.284, 90.374, 17.702, 0.378)
pt3dadd(148.36, 90.31, 17.657, 0.362)
pt3dadd(148.434, 90.246, 17.612, 0.346)
pt3dadd(148.51, 90.183, 17.568, 0.33)
pt3dadd(148.585, 90.119, 17.523, 0.314)
pt3dadd(148.66, 90.055, 17.478, 0.298)
pt3dadd(148.735, 89.991, 17.433, 0.284)
pt3dadd(148.808, 89.921, 17.395, 0.288)
pt3dadd(148.88, 89.848, 17.358, 0.302)
pt3dadd(148.952, 89.775, 17.322, 0.314)
pt3dadd(149.023, 89.703, 17.286, 0.326)
pt3dadd(149.095, 89.63, 17.249, 0.34)
pt3dadd(149.167, 89.558, 17.213, 0.352)
pt3dadd(149.238, 89.485, 17.177, 0.364)
pt3dadd(149.31, 89.413, 17.14, 0.378)
pt3dadd(149.381, 89.34, 17.104, 0.39)
pt3dadd(149.453, 89.268, 17.068, 0.402)
pt3dadd(149.522, 89.192, 17.035, 0.426)
pt3dadd(149.593, 89.115, 17.003, 0.454)
pt3dadd(149.662, 89.039, 16.971, 0.48)
pt3dadd(149.731, 88.962, 16.939, 0.508)
pt3dadd(149.801, 88.886, 16.907, 0.536)
pt3dadd(149.791, 88.896, 16.897, 0.536)
pt3dadd(149.861, 88.819, 16.865, 0.562)
pt3dadd(149.929, 88.743, 16.833, 0.59)
pt3dadd(149.999, 88.666, 16.801, 0.616)
pt3dadd(150.068, 88.59, 16.769, 0.644)
pt3dadd(150.138, 88.513, 16.737, 0.672)
pt3dadd(150.198, 88.44, 16.685, 0.69)
pt3dadd(150.254, 88.368, 16.628, 0.708)
pt3dadd(150.312, 88.296, 16.57, 0.724)
}
}
proc shape3d_188() {
dend_7[46] { pt3dadd(150.368, 88.224, 16.513, 0.742)
pt3dadd(150.425, 88.152, 16.455, 0.758)
pt3dadd(150.481, 88.08, 16.397, 0.774)
pt3dadd(150.539, 88.008, 16.34, 0.792)
pt3dadd(150.595, 87.935, 16.282, 0.808)
pt3dadd(150.652, 87.863, 16.225, 0.826)
pt3dadd(150.71, 87.791, 16.167, 0.842)
pt3dadd(150.757, 87.708, 16.117, 0.842)
pt3dadd(150.803, 87.621, 16.07, 0.836)
pt3dadd(150.848, 87.534, 16.023, 0.832)
pt3dadd(150.893, 87.447, 15.975, 0.826)
pt3dadd(150.938, 87.36, 15.928, 0.82)
pt3dadd(150.983, 87.273, 15.88, 0.814)
pt3dadd(151.028, 87.186, 15.833, 0.81)
pt3dadd(151.073, 87.099, 15.785, 0.804)
pt3dadd(151.118, 87.012, 15.738, 0.798)
pt3dadd(151.164, 86.925, 15.691, 0.794)
pt3dadd(151.21, 86.834, 15.653, 0.782)
pt3dadd(151.255, 86.742, 15.617, 0.772)
pt3dadd(151.301, 86.65, 15.581, 0.76)
pt3dadd(151.346, 86.559, 15.545, 0.748)
pt3dadd(151.392, 86.467, 15.509, 0.736)
pt3dadd(151.438, 86.375, 15.473, 0.726)
pt3dadd(151.483, 86.283, 15.437, 0.714)
pt3dadd(151.53, 86.191, 15.401, 0.702)
pt3dadd(151.577, 86.1, 15.365, 0.69)
pt3dadd(151.622, 86.008, 15.329, 0.678)
pt3dadd(151.681, 85.921, 15.304, 0.678)
pt3dadd(151.741, 85.835, 15.28, 0.678)
pt3dadd(151.801, 85.749, 15.255, 0.678)
pt3dadd(151.861, 85.663, 15.231, 0.678)
pt3dadd(151.921, 85.577, 15.207, 0.678)
pt3dadd(151.981, 85.49, 15.183, 0.678)
pt3dadd(152.041, 85.404, 15.158, 0.678)
pt3dadd(152.101, 85.318, 15.134, 0.678)
pt3dadd(152.162, 85.232, 15.11, 0.678)
pt3dadd(152.222, 85.146, 15.085, 0.678)
pt3dadd(152.288, 85.064, 15.065, 0.662)
pt3dadd(152.356, 84.983, 15.046, 0.648)
pt3dadd(152.423, 84.901, 15.026, 0.63)
pt3dadd(152.49, 84.82, 15.006, 0.614)
pt3dadd(152.558, 84.739, 14.986, 0.6)
pt3dadd(152.626, 84.657, 14.966, 0.584)
pt3dadd(152.693, 84.576, 14.946, 0.568)
pt3dadd(152.76, 84.495, 14.927, 0.552)
pt3dadd(152.828, 84.414, 14.907, 0.536)
pt3dadd(152.896, 84.332, 14.887, 0.52)
pt3dadd(152.966, 84.254, 14.869, 0.496)
pt3dadd(153.037, 84.175, 14.851, 0.472)
pt3dadd(153.107, 84.096, 14.834, 0.448)
pt3dadd(153.178, 84.018, 14.816, 0.424)
pt3dadd(153.248, 83.939, 14.799, 0.4)
pt3dadd(153.319, 83.86, 14.781, 0.378)
pt3dadd(153.39, 83.782, 14.763, 0.354)
pt3dadd(153.462, 83.703, 14.746, 0.33)
pt3dadd(153.533, 83.625, 14.728, 0.306)
pt3dadd(153.604, 83.546, 14.71, 0.282)
pt3dadd(153.679, 83.473, 14.688, 0.276)
pt3dadd(153.755, 83.4, 14.666, 0.27)
pt3dadd(153.83, 83.326, 14.645, 0.266)
pt3dadd(153.906, 83.253, 14.623, 0.26)
pt3dadd(153.982, 83.18, 14.601, 0.254)
pt3dadd(154.057, 83.106, 14.579, 0.248)
pt3dadd(154.133, 83.033, 14.557, 0.242)
pt3dadd(154.21, 82.96, 14.535, 0.238)
pt3dadd(154.285, 82.887, 14.513, 0.232)
pt3dadd(154.361, 82.814, 14.491, 0.226)
pt3dadd(154.438, 82.742, 14.468, 0.226)
pt3dadd(154.514, 82.671, 14.444, 0.226)
pt3dadd(154.591, 82.599, 14.421, 0.226)
pt3dadd(154.668, 82.528, 14.398, 0.226)
pt3dadd(154.745, 82.456, 14.374, 0.226)
pt3dadd(154.823, 82.385, 14.351, 0.226)
pt3dadd(154.9, 82.313, 14.328, 0.226)
pt3dadd(154.978, 82.242, 14.305, 0.226)
pt3dadd(155.054, 82.17, 14.281, 0.226)
pt3dadd(155.131, 82.099, 14.258, 0.226)
pt3dadd(155.202, 82.042, 14.199, 0.28)
pt3dadd(155.274, 81.986, 14.14, 0.334)
pt3dadd(155.345, 81.93, 14.08, 0.39)
pt3dadd(155.416, 81.874, 14.021, 0.444)
pt3dadd(155.486, 81.818, 13.961, 0.5)
pt3dadd(155.557, 81.761, 13.901, 0.554)
pt3dadd(155.629, 81.705, 13.842, 0.608)
pt3dadd(155.7, 81.649, 13.782, 0.664)
pt3dadd(155.771, 81.593, 13.723, 0.718)
pt3dadd(155.843, 81.537, 13.663, 0.772)
pt3dadd(155.916, 81.484, 13.603, 0.808)
pt3dadd(155.989, 81.432, 13.542, 0.844)
pt3dadd(156.062, 81.38, 13.482, 0.88)
pt3dadd(156.136, 81.327, 13.422, 0.916)
pt3dadd(156.209, 81.275, 13.362, 0.954)
pt3dadd(156.282, 81.222, 13.301, 0.99)
pt3dadd(156.356, 81.17, 13.241, 1.026)
pt3dadd(156.431, 81.118, 13.181, 1.062)
pt3dadd(156.504, 81.065, 13.12, 1.098)
pt3dadd(156.577, 81.013, 13.061, 1.13)
pt3dadd(156.656, 80.961, 13.007, 1.13)
pt3dadd(156.736, 80.91, 12.954, 1.13)
pt3dadd(156.815, 80.858, 12.9, 1.13)
pt3dadd(156.894, 80.807, 12.847, 1.13)
pt3dadd(156.973, 80.755, 12.793, 1.13)
pt3dadd(157.054, 80.703, 12.74, 1.13)
pt3dadd(157.133, 80.652, 12.686, 1.13)
pt3dadd(157.212, 80.6, 12.633, 1.13)
pt3dadd(157.291, 80.548, 12.579, 1.13)
pt3dadd(157.372, 80.5, 12.524, 1.124)
pt3dadd(157.456, 80.476, 12.458, 1.08)
pt3dadd(157.54, 80.453, 12.393, 1.036)
pt3dadd(157.625, 80.429, 12.327, 0.99)
pt3dadd(157.709, 80.406, 12.261, 0.946)
pt3dadd(157.793, 80.382, 12.196, 0.9)
pt3dadd(157.878, 80.359, 12.13, 0.856)
pt3dadd(157.963, 80.335, 12.064, 0.812)
pt3dadd(158.047, 80.311, 11.999, 0.766)
pt3dadd(158.131, 80.288, 11.933, 0.722)
pt3dadd(158.216, 80.265, 11.867, 0.678)
pt3dadd(158.302, 80.249, 11.8, 0.632)
pt3dadd(158.387, 80.232, 11.732, 0.586)
pt3dadd(158.472, 80.215, 11.665, 0.54)
pt3dadd(158.556, 80.198, 11.598, 0.494)
pt3dadd(158.641, 80.181, 11.53, 0.448)
pt3dadd(158.728, 80.164, 11.463, 0.402)
pt3dadd(158.813, 80.147, 11.396, 0.356)
pt3dadd(158.898, 80.13, 11.328, 0.31)
pt3dadd(158.983, 80.113, 11.261, 0.264)
pt3dadd(159.07, 80.099, 11.194, 0.226)
pt3dadd(159.157, 80.094, 11.128, 0.226)
pt3dadd(159.246, 80.089, 11.061, 0.226)
pt3dadd(159.335, 80.084, 10.995, 0.226)
pt3dadd(159.424, 80.08, 10.928, 0.226)
pt3dadd(159.512, 80.075, 10.862, 0.226)
pt3dadd(159.601, 80.07, 10.795, 0.226)
pt3dadd(159.69, 80.065, 10.729, 0.226)
pt3dadd(159.779, 80.061, 10.663, 0.226)
pt3dadd(159.866, 80.056, 10.596, 0.226)
pt3dadd(159.956, 80.051, 10.531, 0.226)
pt3dadd(160.048, 80.048, 10.469, 0.226)
pt3dadd(160.14, 80.044, 10.407, 0.226)
pt3dadd(160.232, 80.04, 10.344, 0.226)
pt3dadd(160.325, 80.037, 10.282, 0.226)
pt3dadd(160.417, 80.033, 10.22, 0.226)
pt3dadd(160.51, 80.029, 10.158, 0.226)
pt3dadd(160.602, 80.026, 10.096, 0.226)
pt3dadd(160.694, 80.022, 10.034, 0.226)
pt3dadd(160.786, 80.019, 9.972, 0.226)
pt3dadd(160.88, 80.016, 9.913, 0.226)
pt3dadd(160.98, 80.015, 9.864, 0.226)
pt3dadd(161.081, 80.015, 9.815, 0.226)
pt3dadd(161.182, 80.015, 9.765, 0.226)
pt3dadd(161.281, 80.014, 9.716, 0.226)
pt3dadd(161.383, 80.014, 9.666, 0.226)
pt3dadd(161.483, 80.014, 9.617, 0.226)
pt3dadd(161.584, 80.013, 9.568, 0.226)
pt3dadd(161.683, 80.013, 9.518, 0.226)
pt3dadd(161.784, 80.013, 9.469, 0.226)
pt3dadd(161.886, 80.011, 9.422, 0.232)
pt3dadd(161.99, 80.004, 9.385, 0.254)
pt3dadd(162.095, 79.997, 9.347, 0.276)
pt3dadd(162.199, 79.99, 9.309, 0.298)
pt3dadd(162.305, 79.983, 9.272, 0.32)
pt3dadd(162.409, 79.977, 9.234, 0.342)
pt3dadd(162.514, 79.97, 9.196, 0.364)
pt3dadd(162.618, 79.963, 9.159, 0.388)
pt3dadd(162.722, 79.956, 9.121, 0.41)
pt3dadd(162.827, 79.949, 9.083, 0.432)
pt3dadd(162.931, 79.937, 9.047, 0.452)
pt3dadd(163.032, 79.91, 9.015, 0.464)
pt3dadd(163.134, 79.883, 8.982, 0.476)
pt3dadd(163.236, 79.857, 8.95, 0.49)
pt3dadd(163.338, 79.83, 8.918, 0.502)
pt3dadd(163.44, 79.803, 8.885, 0.516)
pt3dadd(163.541, 79.777, 8.853, 0.528)
pt3dadd(163.643, 79.75, 8.82, 0.54)
pt3dadd(163.744, 79.724, 8.788, 0.554)
pt3dadd(163.846, 79.697, 8.756, 0.566)
pt3dadd(163.936, 79.65, 8.723, 0.554)
pt3dadd(164.016, 79.586, 8.689, 0.52)
pt3dadd(164.096, 79.522, 8.656, 0.486)
pt3dadd(164.177, 79.458, 8.622, 0.454)
pt3dadd(164.258, 79.393, 8.589, 0.42)
pt3dadd(164.339, 79.329, 8.555, 0.386)
pt3dadd(164.419, 79.265, 8.522, 0.354)
pt3dadd(164.5, 79.201, 8.488, 0.32)
pt3dadd(164.58, 79.137, 8.455, 0.286)
pt3dadd(164.66, 79.073, 8.422, 0.252)
pt3dadd(164.74, 79.023, 8.37, 0.25)
pt3dadd(164.819, 78.983, 8.307, 0.264)
pt3dadd(164.898, 78.943, 8.243, 0.28)
pt3dadd(164.977, 78.903, 8.18, 0.296)
pt3dadd(165.056, 78.862, 8.117, 0.312)
pt3dadd(165.134, 78.822, 8.053, 0.328)
pt3dadd(165.214, 78.782, 7.99, 0.342)
pt3dadd(165.293, 78.742, 7.927, 0.358)
pt3dadd(165.371, 78.702, 7.863, 0.374)
pt3dadd(165.45, 78.662, 7.8, 0.39)
pt3dadd(165.529, 78.615, 7.742, 0.404)
pt3dadd(165.608, 78.565, 7.687, 0.42)
pt3dadd(165.688, 78.514, 7.633, 0.434)
pt3dadd(165.768, 78.464, 7.578, 0.448)
}
}
proc shape3d_189() {
dend_7[46] { pt3dadd(165.847, 78.413, 7.524, 0.462)
pt3dadd(165.926, 78.363, 7.469, 0.478)
pt3dadd(166.006, 78.312, 7.415, 0.492)
pt3dadd(166.085, 78.261, 7.36, 0.506)
pt3dadd(166.164, 78.211, 7.305, 0.52)
pt3dadd(166.243, 78.161, 7.251, 0.536)
pt3dadd(166.322, 78.107, 7.2, 0.55)
pt3dadd(166.402, 78.051, 7.15, 0.564)
pt3dadd(166.481, 77.995, 7.101, 0.576)
pt3dadd(166.56, 77.939, 7.051, 0.59)
pt3dadd(166.639, 77.883, 7.002, 0.604)
pt3dadd(166.718, 77.828, 6.953, 0.618)
pt3dadd(166.798, 77.772, 6.903, 0.632)
pt3dadd(166.876, 77.716, 6.854, 0.646)
pt3dadd(166.955, 77.66, 6.804, 0.658)
pt3dadd(167.034, 77.605, 6.755, 0.672)
pt3dadd(167.106, 77.562, 6.688, 0.666)
pt3dadd(167.173, 77.527, 6.611, 0.652)
pt3dadd(167.243, 77.492, 6.534, 0.636)
pt3dadd(167.31, 77.457, 6.457, 0.62)
pt3dadd(167.378, 77.422, 6.381, 0.604)
pt3dadd(167.446, 77.387, 6.304, 0.588)
pt3dadd(167.513, 77.352, 6.227, 0.574)
pt3dadd(167.581, 77.317, 6.15, 0.558)
pt3dadd(167.648, 77.282, 6.074, 0.542)
pt3dadd(167.717, 77.247, 5.997, 0.526)
pt3dadd(167.789, 77.207, 5.928, 0.522)
pt3dadd(167.866, 77.164, 5.863, 0.524)
pt3dadd(167.942, 77.122, 5.797, 0.524)
pt3dadd(168.018, 77.079, 5.732, 0.526)
pt3dadd(168.094, 77.036, 5.667, 0.526)
pt3dadd(168.084, 77.047, 5.657, 0.526)
pt3dadd(168.16, 77.004, 5.592, 0.528)
pt3dadd(168.235, 76.961, 5.527, 0.528)
pt3dadd(168.311, 76.919, 5.462, 0.53)
pt3dadd(168.386, 76.876, 5.397, 0.532)
pt3dadd(168.462, 76.833, 5.332, 0.532)
pt3dadd(168.542, 76.787, 5.274, 0.544)
pt3dadd(168.623, 76.739, 5.219, 0.558)
pt3dadd(168.703, 76.691, 5.163, 0.572)
pt3dadd(168.785, 76.643, 5.108, 0.586)
pt3dadd(168.865, 76.595, 5.053, 0.602)
pt3dadd(168.946, 76.548, 4.998, 0.616)
pt3dadd(169.026, 76.5, 4.943, 0.63)
pt3dadd(169.106, 76.452, 4.888, 0.644)
pt3dadd(169.187, 76.404, 4.833, 0.66)
pt3dadd(169.267, 76.356, 4.778, 0.674)
pt3dadd(169.354, 76.337, 4.712, 0.668)
pt3dadd(169.439, 76.328, 4.643, 0.656)
pt3dadd(169.524, 76.319, 4.574, 0.642)
pt3dadd(169.609, 76.31, 4.505, 0.63)
pt3dadd(169.696, 76.301, 4.436, 0.616)
pt3dadd(169.781, 76.291, 4.367, 0.604)
pt3dadd(169.866, 76.282, 4.298, 0.59)
pt3dadd(169.952, 76.273, 4.229, 0.578)
pt3dadd(170.038, 76.264, 4.16, 0.566)
pt3dadd(170.123, 76.255, 4.091, 0.552)
pt3dadd(170.21, 76.25, 4.022, 0.54)
pt3dadd(170.297, 76.246, 3.953, 0.528)
pt3dadd(170.382, 76.242, 3.883, 0.514)
pt3dadd(170.468, 76.238, 3.814, 0.502)
pt3dadd(170.555, 76.234, 3.745, 0.488)
pt3dadd(170.641, 76.23, 3.676, 0.476)
pt3dadd(170.728, 76.226, 3.606, 0.464)
pt3dadd(170.813, 76.222, 3.537, 0.45)
pt3dadd(170.899, 76.218, 3.468, 0.438)
pt3dadd(170.987, 76.214, 3.399, 0.426)
pt3dadd(171.074, 76.221, 3.329, 0.414)
pt3dadd(171.161, 76.232, 3.26, 0.402)
pt3dadd(171.248, 76.243, 3.191, 0.39)
pt3dadd(171.336, 76.254, 3.122, 0.378)
pt3dadd(171.424, 76.264, 3.053, 0.366)
pt3dadd(171.511, 76.275, 2.984, 0.354)
pt3dadd(171.598, 76.286, 2.915, 0.342)
pt3dadd(171.685, 76.296, 2.846, 0.33)
pt3dadd(171.773, 76.307, 2.777, 0.318)
pt3dadd(171.764, 76.317, 2.766, 0.318)
pt3dadd(171.852, 76.328, 2.697, 0.306)
pt3dadd(171.942, 76.349, 2.632, 0.304)
pt3dadd(172.032, 76.374, 2.568, 0.306)
pt3dadd(172.122, 76.398, 2.504, 0.306)
pt3dadd(172.213, 76.423, 2.44, 0.306)
pt3dadd(172.303, 76.448, 2.376, 0.306)
pt3dadd(172.394, 76.472, 2.312, 0.308)
pt3dadd(172.484, 76.497, 2.248, 0.308)
pt3dadd(172.574, 76.522, 2.184, 0.308)
pt3dadd(172.667, 76.546, 2.12, 0.31)
pt3dadd(172.757, 76.571, 2.056, 0.31)
pt3dadd(172.747, 76.581, 2.046, 0.31)
pt3dadd(172.84, 76.63, 1.993, 0.332)
pt3dadd(172.931, 76.681, 1.942, 0.358)
pt3dadd(173.023, 76.732, 1.89, 0.382)
pt3dadd(173.114, 76.783, 1.839, 0.406)
pt3dadd(173.207, 76.834, 1.787, 0.432)
pt3dadd(173.298, 76.885, 1.736, 0.456)
pt3dadd(173.392, 76.935, 1.684, 0.48)
pt3dadd(173.483, 76.986, 1.633, 0.506)
pt3dadd(173.575, 77.037, 1.581, 0.53)
pt3dadd(173.666, 77.088, 1.53, 0.554)
pt3dadd(173.759, 77.133, 1.475, 0.554)
pt3dadd(173.851, 77.177, 1.42, 0.554)
pt3dadd(173.942, 77.222, 1.365, 0.552)
pt3dadd(174.035, 77.266, 1.31, 0.55)
pt3dadd(174.127, 77.31, 1.255, 0.55)
pt3dadd(174.22, 77.354, 1.2, 0.548)
pt3dadd(174.312, 77.399, 1.145, 0.546)
pt3dadd(174.404, 77.443, 1.09, 0.546)
pt3dadd(174.497, 77.487, 1.035, 0.544)
pt3dadd(174.589, 77.531, 0.98, 0.542)
pt3dadd(174.68, 77.569, 0.922, 0.518)
pt3dadd(174.773, 77.607, 0.864, 0.49)
pt3dadd(174.865, 77.644, 0.806, 0.464)
pt3dadd(174.956, 77.682, 0.748, 0.436)
pt3dadd(175.049, 77.72, 0.689, 0.41)
pt3dadd(175.141, 77.757, 0.631, 0.384)
pt3dadd(175.234, 77.795, 0.573, 0.356)
pt3dadd(175.326, 77.832, 0.515, 0.33)
pt3dadd(175.417, 77.87, 0.456, 0.302)
pt3dadd(175.51, 77.908, 0.398, 0.276)
pt3dadd(175.613, 77.933, 0.355, 0.27)
pt3dadd(175.715, 77.957, 0.313, 0.264)
pt3dadd(175.818, 77.982, 0.27, 0.26)
pt3dadd(175.921, 78.006, 0.228, 0.256)
pt3dadd(176.024, 78.031, 0.185, 0.25)
pt3dadd(176.129, 78.055, 0.143, 0.246)
pt3dadd(176.232, 78.079, 0.1, 0.24)
pt3dadd(176.335, 78.104, 0.058, 0.236)
pt3dadd(176.438, 78.128, 0.016, 0.23)
pt3dadd(176.542, 78.153, -0.027, 0.226)
pt3dadd(176.646, 78.174, -0.066, 0.226)
pt3dadd(176.75, 78.196, -0.105, 0.226)
pt3dadd(176.856, 78.218, -0.143, 0.226)
pt3dadd(176.96, 78.239, -0.182, 0.226)
pt3dadd(177.065, 78.261, -0.221, 0.226)
pt3dadd(177.172, 78.283, -0.26, 0.226)
pt3dadd(177.276, 78.304, -0.299, 0.226)
pt3dadd(177.38, 78.326, -0.337, 0.226)
pt3dadd(177.486, 78.348, -0.376, 0.226)
pt3dadd(177.59, 78.369, -0.415, 0.226)
pt3dadd(177.581, 78.379, -0.425, 0.226)
pt3dadd(177.571, 78.389, -0.435, 0.226)
pt3dadd(177.659, 78.386, -0.503, 0.27)
pt3dadd(177.746, 78.382, -0.571, 0.316)
pt3dadd(177.835, 78.379, -0.638, 0.36)
pt3dadd(177.923, 78.375, -0.706, 0.406)
pt3dadd(178.01, 78.372, -0.774, 0.45)
pt3dadd(178.117, 78.365, -0.803, 0.46)
pt3dadd(178.224, 78.359, -0.832, 0.468)
pt3dadd(178.332, 78.353, -0.861, 0.476)
pt3dadd(178.439, 78.347, -0.89, 0.486)
pt3dadd(178.546, 78.34, -0.918, 0.494)
pt3dadd(178.654, 78.334, -0.947, 0.502)
pt3dadd(178.74, 78.331, -1.016, 0.518)
pt3dadd(178.825, 78.327, -1.087, 0.532)
pt3dadd(178.91, 78.324, -1.157, 0.548)
pt3dadd(178.997, 78.321, -1.227, 0.562)
pt3dadd(179.082, 78.318, -1.297, 0.578)
pt3dadd(179.183, 78.312, -1.345, 0.596)
pt3dadd(179.284, 78.307, -1.392, 0.614)
pt3dadd(179.384, 78.301, -1.44, 0.634)
pt3dadd(179.485, 78.296, -1.487, 0.652)
pt3dadd(179.586, 78.291, -1.534, 0.67)
pt3dadd(179.692, 78.285, -1.567, 0.706)
pt3dadd(179.8, 78.278, -1.589, 0.752)
pt3dadd(179.79, 78.288, -1.6, 0.752)
pt3dadd(179.899, 78.282, -1.622, 0.8)
pt3dadd(179.993, 78.277, -1.679, 0.834)
pt3dadd(180.086, 78.273, -1.74, 0.87)
pt3dadd(180.133, 78.275, -1.832, 0.886)
pt3dadd(180.163, 78.28, -1.937, 0.898)
pt3dadd(180.192, 78.284, -2.042, 0.908)
pt3dadd(180.222, 78.289, -2.146, 0.918)
pt3dadd(180.253, 78.294, -2.25, 0.93)
pt3dadd(180.344, 78.289, -2.313, 0.942)
pt3dadd(180.437, 78.285, -2.375, 0.956)
pt3dadd(180.529, 78.281, -2.437, 0.97)
pt3dadd(180.622, 78.277, -2.498, 0.988)
pt3dadd(180.714, 78.273, -2.559, 1.01)
pt3dadd(180.81, 78.268, -2.613, 1.024)
pt3dadd(180.917, 78.262, -2.643, 1)
pt3dadd(181.018, 78.256, -2.69, 0.98)
pt3dadd(181.118, 78.251, -2.737, 0.962)
pt3dadd(181.109, 78.261, -2.748, 0.962)
pt3dadd(181.21, 78.256, -2.795, 0.944)
pt3dadd(181.31, 78.25, -2.842, 0.924)
pt3dadd(181.411, 78.245, -2.89, 0.906)
pt3dadd(181.508, 78.273, -2.942, 0.878)
pt3dadd(181.606, 78.304, -2.995, 0.85)
pt3dadd(181.703, 78.336, -3.048, 0.822)
pt3dadd(181.799, 78.367, -3.1, 0.794)
pt3dadd(181.902, 78.397, -3.136, 0.768)
pt3dadd(182.011, 78.426, -3.151, 0.746)
pt3dadd(182.12, 78.451, -3.165, 0.73)
pt3dadd(182.231, 78.46, -3.18, 0.74)
pt3dadd(182.341, 78.469, -3.194, 0.748)
pt3dadd(182.43, 78.502, -3.242, 0.786)
pt3dadd(182.503, 78.554, -3.316, 0.842)
pt3dadd(182.574, 78.626, -3.379, 0.9)
pt3dadd(182.641, 78.7, -3.443, 0.956)
pt3dadd(182.633, 78.71, -3.453, 0.956)
}
}
proc shape3d_190() {
dend_7[46] { pt3dadd(182.623, 78.72, -3.463, 0.956)
pt3dadd(182.614, 78.73, -3.473, 0.956)
pt3dadd(182.656, 78.761, -3.572, 0.996)
pt3dadd(182.699, 78.793, -3.67, 1.034)
pt3dadd(182.742, 78.825, -3.769, 1.072)
pt3dadd(182.754, 78.838, -3.876, 1.11)
pt3dadd(182.76, 78.846, -3.985, 1.146)
pt3dadd(182.772, 78.857, -4.091, 1.186)
pt3dadd(182.852, 78.9, -4.162, 1.25)
pt3dadd(182.933, 78.943, -4.232, 1.314)
pt3dadd(183.029, 78.955, -4.284, 1.38)
pt3dadd(183.132, 78.955, -4.329, 1.446)
pt3dadd(183.226, 78.954, -4.387, 1.51)
pt3dadd(183.308, 78.951, -4.46, 1.572)
pt3dadd(183.392, 78.948, -4.532, 1.634)
pt3dadd(183.438, 78.951, -4.626, 1.676)
pt3dadd(183.461, 78.956, -4.733, 1.708)
pt3dadd(183.481, 78.962, -4.839, 1.738)
pt3dadd(183.488, 78.97, -4.948, 1.756)
pt3dadd(183.504, 78.976, -5.056, 1.752)
pt3dadd(183.52, 78.983, -5.165, 1.748)
pt3dadd(183.534, 78.99, -5.273, 1.744)
pt3dadd(183.55, 78.996, -5.381, 1.74)
pt3dadd(183.564, 79.003, -5.489, 1.736)
pt3dadd(183.554, 79.013, -5.499, 1.736)
pt3dadd(183.565, 79.02, -5.607, 1.734)
pt3dadd(183.568, 79.029, -5.717, 1.738)
pt3dadd(183.571, 79.037, -5.827, 1.742)
pt3dadd(183.574, 79.045, -5.936, 1.746)
pt3dadd(183.577, 79.054, -6.046, 1.75)
pt3dadd(183.58, 79.062, -6.156, 1.754)
pt3dadd(183.583, 79.071, -6.265, 1.758)
pt3dadd(183.574, 79.081, -6.375, 1.766)
pt3dadd(183.564, 79.091, -6.486, 1.772)
pt3dadd(183.554, 79.101, -6.596, 1.78)
pt3dadd(183.545, 79.111, -6.706, 1.786)
pt3dadd(183.535, 79.121, -6.816, 1.794)
pt3dadd(183.526, 79.131, -6.926, 1.8)
pt3dadd(183.516, 79.141, -7.037, 1.808)
pt3dadd(183.508, 79.152, -7.147, 1.808)
pt3dadd(183.498, 79.162, -7.257, 1.808)
pt3dadd(183.488, 79.172, -7.367, 1.808)
pt3dadd(183.479, 79.182, -7.477, 1.808)
pt3dadd(183.469, 79.192, -7.587, 1.808)
pt3dadd(183.46, 79.202, -7.698, 1.808)
pt3dadd(183.451, 79.212, -7.808, 1.808)
pt3dadd(183.469, 79.218, -7.915, 1.79)
pt3dadd(183.486, 79.225, -8.023, 1.772)
pt3dadd(183.504, 79.231, -8.13, 1.756)
pt3dadd(183.522, 79.237, -8.238, 1.738)
pt3dadd(183.54, 79.243, -8.345, 1.722)
pt3dadd(183.559, 79.25, -8.453, 1.702)
pt3dadd(183.584, 79.255, -8.558, 1.67)
pt3dadd(183.611, 79.26, -8.664, 1.638)
pt3dadd(183.637, 79.265, -8.769, 1.606)
pt3dadd(183.662, 79.27, -8.875, 1.576)
pt3dadd(183.689, 79.275, -8.981, 1.544)
pt3dadd(183.679, 79.285, -8.991, 1.544)
pt3dadd(183.706, 79.322, -9.092, 1.514)
pt3dadd(183.732, 79.377, -9.19, 1.488)
pt3dadd(183.758, 79.432, -9.287, 1.46)
pt3dadd(183.785, 79.487, -9.385, 1.432)
pt3dadd(183.812, 79.544, -9.482, 1.404)
pt3dadd(183.866, 79.622, -9.555, 1.36)
pt3dadd(183.913, 79.69, -9.637, 1.312)
pt3dadd(183.942, 79.736, -9.737, 1.248)
pt3dadd(183.998, 79.775, -9.809, 1.176)
pt3dadd(184.108, 79.803, -9.824, 1.09)
pt3dadd(184.216, 79.832, -9.839, 1.004)
pt3dadd(184.315, 79.869, -9.884, 0.912)
pt3dadd(184.416, 79.902, -9.928, 0.826)
pt3dadd(184.52, 79.896, -9.966, 0.794)
pt3dadd(184.624, 79.89, -10.009, 0.804)
pt3dadd(184.723, 79.885, -10.058, 0.86)
}
dend_7[47] {pt3dclear()
pt3dadd(144.986, 92.519, 21.811, 0.324)
pt3dadd(145.048, 92.589, 21.784, 0.422)
pt3dadd(145.123, 92.674, 21.752, 0.54)
pt3dadd(145.198, 92.76, 21.72, 0.66)
pt3dadd(145.273, 92.845, 21.688, 0.778)
pt3dadd(145.348, 92.93, 21.656, 0.896)
pt3dadd(145.423, 93.016, 21.624, 1.016)
pt3dadd(145.5, 93.102, 21.6, 1.114)
pt3dadd(145.582, 93.189, 21.6, 1.148)
pt3dadd(145.667, 93.271, 21.6, 1.178)
pt3dadd(145.781, 93.311, 21.6, 1.168)
pt3dadd(145.894, 93.351, 21.6, 1.158)
pt3dadd(146.012, 93.36, 21.597, 1.136)
pt3dadd(146.132, 93.36, 21.593, 1.108)
pt3dadd(146.252, 93.36, 21.589, 1.082)
pt3dadd(146.365, 93.36, 21.557, 0.994)
pt3dadd(146.479, 93.353, 21.531, 0.922)
pt3dadd(146.597, 93.332, 21.523, 0.9)
pt3dadd(146.714, 93.311, 21.515, 0.878)
pt3dadd(146.832, 93.289, 21.507, 0.856)
pt3dadd(146.95, 93.268, 21.499, 0.834)
pt3dadd(147.067, 93.247, 21.491, 0.812)
pt3dadd(147.186, 93.24, 21.479, 0.788)
pt3dadd(147.305, 93.24, 21.465, 0.762)
pt3dadd(147.424, 93.24, 21.451, 0.738)
pt3dadd(147.542, 93.24, 21.436, 0.714)
pt3dadd(147.661, 93.24, 21.422, 0.69)
pt3dadd(147.78, 93.24, 21.407, 0.666)
pt3dadd(147.899, 93.24, 21.399, 0.65)
pt3dadd(148.019, 93.24, 21.398, 0.642)
pt3dadd(148.139, 93.24, 21.396, 0.634)
pt3dadd(148.259, 93.24, 21.394, 0.628)
pt3dadd(148.379, 93.24, 21.393, 0.62)
pt3dadd(148.499, 93.24, 21.391, 0.612)
pt3dadd(148.619, 93.24, 21.389, 0.606)
pt3dadd(148.738, 93.24, 21.38, 0.6)
pt3dadd(148.856, 93.24, 21.366, 0.596)
pt3dadd(148.975, 93.24, 21.351, 0.592)
pt3dadd(149.094, 93.24, 21.337, 0.588)
pt3dadd(149.213, 93.24, 21.323, 0.584)
pt3dadd(149.332, 93.24, 21.308, 0.58)
pt3dadd(149.452, 93.24, 21.3, 0.582)
pt3dadd(149.572, 93.24, 21.3, 0.594)
pt3dadd(149.692, 93.24, 21.3, 0.604)
pt3dadd(149.812, 93.24, 21.3, 0.614)
pt3dadd(149.932, 93.24, 21.3, 0.626)
pt3dadd(150.052, 93.24, 21.3, 0.636)
pt3dadd(150.172, 93.24, 21.3, 0.646)
pt3dadd(150.292, 93.24, 21.3, 0.656)
pt3dadd(150.412, 93.24, 21.3, 0.664)
pt3dadd(150.532, 93.24, 21.3, 0.67)
pt3dadd(150.652, 93.24, 21.3, 0.678)
pt3dadd(150.772, 93.24, 21.3, 0.684)
pt3dadd(150.892, 93.24, 21.3, 0.692)
pt3dadd(151.012, 93.24, 21.3, 0.7)
pt3dadd(151.132, 93.24, 21.3, 0.708)
pt3dadd(151.252, 93.24, 21.3, 0.718)
pt3dadd(151.372, 93.24, 21.3, 0.73)
pt3dadd(151.492, 93.24, 21.3, 0.74)
pt3dadd(151.612, 93.24, 21.3, 0.75)
pt3dadd(151.732, 93.24, 21.3, 0.762)
pt3dadd(151.852, 93.24, 21.3, 0.772)
pt3dadd(151.972, 93.24, 21.3, 0.78)
pt3dadd(152.092, 93.24, 21.3, 0.784)
pt3dadd(152.212, 93.24, 21.3, 0.788)
pt3dadd(152.332, 93.24, 21.3, 0.79)
pt3dadd(152.452, 93.24, 21.3, 0.794)
pt3dadd(152.572, 93.24, 21.3, 0.798)
pt3dadd(152.692, 93.24, 21.3, 0.802)
pt3dadd(152.81, 93.24, 21.294, 0.806)
pt3dadd(152.929, 93.24, 21.279, 0.81)
pt3dadd(153.048, 93.24, 21.265, 0.814)
pt3dadd(153.167, 93.24, 21.251, 0.818)
pt3dadd(153.286, 93.24, 21.236, 0.822)
pt3dadd(153.404, 93.24, 21.222, 0.826)
pt3dadd(153.522, 93.24, 21.205, 0.828)
pt3dadd(153.638, 93.24, 21.18, 0.824)
pt3dadd(153.755, 93.24, 21.154, 0.818)
pt3dadd(153.871, 93.24, 21.129, 0.814)
pt3dadd(153.988, 93.24, 21.104, 0.81)
pt3dadd(154.103, 93.24, 21.079, 0.806)
pt3dadd(154.212, 93.24, 21.04, 0.798)
pt3dadd(154.314, 93.24, 20.988, 0.788)
pt3dadd(154.417, 93.24, 20.935, 0.778)
pt3dadd(154.519, 93.24, 20.883, 0.768)
pt3dadd(154.621, 93.24, 20.83, 0.758)
pt3dadd(154.721, 93.243, 20.775, 0.744)
pt3dadd(154.818, 93.249, 20.716, 0.718)
pt3dadd(154.898, 93.271, 20.65, 0.694)
pt3dadd(154.949, 93.323, 20.57, 0.666)
pt3dadd(155.036, 93.35, 20.526, 0.648)
pt3dadd(155.155, 93.355, 20.514, 0.638)
pt3dadd(155.274, 93.36, 20.501, 0.628)
pt3dadd(155.394, 93.36, 20.5, 0.612)
pt3dadd(155.514, 93.36, 20.5, 0.596)
pt3dadd(155.634, 93.36, 20.5, 0.578)
pt3dadd(155.754, 93.36, 20.5, 0.59)
pt3dadd(155.874, 93.36, 20.5, 0.602)
pt3dadd(155.994, 93.36, 20.5, 0.602)
pt3dadd(156.114, 93.36, 20.5, 0.602)
pt3dadd(156.234, 93.36, 20.5, 0.602)
pt3dadd(156.354, 93.36, 20.5, 0.602)
pt3dadd(156.474, 93.36, 20.5, 0.602)
pt3dadd(156.594, 93.36, 20.5, 0.602)
pt3dadd(156.714, 93.36, 20.5, 0.602)
pt3dadd(156.833, 93.379, 20.5, 0.606)
pt3dadd(156.952, 93.399, 20.5, 0.61)
pt3dadd(157.069, 93.418, 20.5, 0.614)
pt3dadd(157.188, 93.438, 20.5, 0.62)
pt3dadd(157.307, 93.458, 20.5, 0.624)
pt3dadd(157.424, 93.477, 20.5, 0.628)
pt3dadd(157.536, 93.499, 20.47, 0.614)
pt3dadd(157.646, 93.521, 20.435, 0.598)
pt3dadd(157.757, 93.543, 20.401, 0.582)
pt3dadd(157.867, 93.566, 20.366, 0.568)
pt3dadd(157.978, 93.589, 20.333, 0.552)
pt3dadd(158.089, 93.633, 20.326, 0.548)
pt3dadd(158.201, 93.677, 20.32, 0.542)
pt3dadd(158.312, 93.721, 20.314, 0.538)
pt3dadd(158.423, 93.765, 20.307, 0.532)
pt3dadd(158.534, 93.809, 20.301, 0.528)
pt3dadd(158.644, 93.859, 20.3, 0.522)
pt3dadd(158.753, 93.909, 20.3, 0.518)
pt3dadd(158.861, 93.96, 20.3, 0.514)
pt3dadd(158.97, 94.01, 20.3, 0.508)
pt3dadd(159.079, 94.061, 20.3, 0.504)
}
}
proc shape3d_191() {
dend_7[47] { pt3dadd(159.194, 94.08, 20.3, 0.504)
pt3dadd(159.314, 94.08, 20.3, 0.508)
pt3dadd(159.434, 94.08, 20.3, 0.512)
pt3dadd(159.554, 94.08, 20.3, 0.516)
pt3dadd(159.674, 94.08, 20.3, 0.518)
pt3dadd(159.794, 94.08, 20.3, 0.522)
pt3dadd(159.914, 94.08, 20.3, 0.526)
pt3dadd(160.032, 94.066, 20.312, 0.528)
pt3dadd(160.147, 94.043, 20.331, 0.528)
pt3dadd(160.262, 94.019, 20.351, 0.528)
pt3dadd(160.379, 93.996, 20.37, 0.528)
pt3dadd(160.494, 93.973, 20.389, 0.528)
pt3dadd(160.612, 93.96, 20.4, 0.528)
pt3dadd(160.732, 93.96, 20.4, 0.528)
pt3dadd(160.852, 93.96, 20.4, 0.528)
pt3dadd(160.972, 93.96, 20.4, 0.528)
pt3dadd(161.092, 93.96, 20.4, 0.528)
pt3dadd(161.212, 93.96, 20.4, 0.528)
pt3dadd(161.332, 93.96, 20.4, 0.528)
pt3dadd(161.452, 93.96, 20.401, 0.528)
pt3dadd(161.572, 93.96, 20.402, 0.532)
pt3dadd(161.692, 93.96, 20.404, 0.536)
pt3dadd(161.812, 93.96, 20.405, 0.54)
pt3dadd(161.932, 93.96, 20.407, 0.544)
pt3dadd(162.052, 93.96, 20.409, 0.546)
pt3dadd(162.172, 93.96, 20.41, 0.55)
pt3dadd(162.289, 93.971, 20.42, 0.552)
pt3dadd(162.406, 93.991, 20.437, 0.552)
pt3dadd(162.523, 94.01, 20.453, 0.552)
pt3dadd(162.64, 94.03, 20.47, 0.552)
pt3dadd(162.756, 94.05, 20.486, 0.552)
pt3dadd(162.872, 94.067, 20.502, 0.554)
pt3dadd(162.991, 94.069, 20.517, 0.558)
pt3dadd(163.11, 94.071, 20.532, 0.562)
pt3dadd(163.229, 94.074, 20.546, 0.566)
pt3dadd(163.348, 94.076, 20.561, 0.57)
pt3dadd(163.466, 94.078, 20.576, 0.574)
pt3dadd(163.584, 94.08, 20.593, 0.578)
pt3dadd(163.694, 94.08, 20.632, 0.588)
pt3dadd(163.805, 94.08, 20.672, 0.598)
pt3dadd(163.915, 94.08, 20.712, 0.606)
pt3dadd(164.024, 94.08, 20.751, 0.616)
pt3dadd(164.135, 94.08, 20.791, 0.626)
pt3dadd(164.252, 94.08, 20.8, 0.644)
pt3dadd(164.372, 94.08, 20.8, 0.666)
pt3dadd(164.492, 94.08, 20.8, 0.688)
pt3dadd(164.612, 94.08, 20.8, 0.708)
pt3dadd(164.732, 94.08, 20.8, 0.73)
pt3dadd(164.852, 94.08, 20.8, 0.752)
pt3dadd(164.972, 94.08, 20.8, 0.774)
pt3dadd(165.092, 94.08, 20.8, 0.792)
pt3dadd(165.212, 94.08, 20.8, 0.81)
pt3dadd(165.332, 94.08, 20.8, 0.828)
pt3dadd(165.452, 94.08, 20.8, 0.846)
pt3dadd(165.572, 94.08, 20.8, 0.864)
pt3dadd(165.692, 94.08, 20.8, 0.882)
pt3dadd(165.812, 94.08, 20.8, 0.9)
pt3dadd(165.932, 94.08, 20.8, 0.906)
pt3dadd(166.052, 94.08, 20.8, 0.91)
pt3dadd(166.172, 94.08, 20.8, 0.914)
pt3dadd(166.292, 94.08, 20.8, 0.918)
pt3dadd(166.412, 94.08, 20.8, 0.922)
pt3dadd(166.532, 94.08, 20.8, 0.924)
pt3dadd(166.652, 94.08, 20.8, 0.928)
pt3dadd(166.77, 94.069, 20.814, 0.914)
pt3dadd(166.888, 94.054, 20.833, 0.896)
pt3dadd(167.005, 94.039, 20.851, 0.878)
pt3dadd(167.122, 94.024, 20.869, 0.86)
pt3dadd(167.239, 94.01, 20.887, 0.842)
pt3dadd(167.346, 93.993, 20.921, 0.812)
pt3dadd(167.429, 93.973, 20.991, 0.76)
pt3dadd(167.513, 93.96, 21.062, 0.718)
pt3dadd(167.593, 93.96, 21.135, 0.696)
pt3dadd(167.686, 93.96, 21.19, 0.678)
pt3dadd(167.806, 93.96, 21.194, 0.678)
pt3dadd(167.926, 93.96, 21.198, 0.678)
pt3dadd(168.046, 93.96, 21.2, 0.674)
pt3dadd(168.166, 93.96, 21.2, 0.666)
pt3dadd(168.286, 93.96, 21.2, 0.658)
pt3dadd(168.406, 93.96, 21.2, 0.648)
pt3dadd(168.526, 93.96, 21.2, 0.636)
pt3dadd(168.644, 93.953, 21.2, 0.626)
pt3dadd(168.763, 93.936, 21.2, 0.622)
pt3dadd(168.882, 93.919, 21.2, 0.618)
pt3dadd(169.001, 93.902, 21.2, 0.614)
pt3dadd(169.12, 93.884, 21.2, 0.61)
pt3dadd(169.238, 93.867, 21.2, 0.606)
pt3dadd(169.357, 93.853, 21.2, 0.602)
pt3dadd(169.477, 93.851, 21.2, 0.602)
pt3dadd(169.597, 93.849, 21.2, 0.602)
pt3dadd(169.717, 93.847, 21.2, 0.602)
pt3dadd(169.837, 93.845, 21.2, 0.602)
pt3dadd(169.957, 93.843, 21.2, 0.602)
pt3dadd(170.077, 93.841, 21.2, 0.602)
pt3dadd(170.196, 93.84, 21.209, 0.602)
pt3dadd(170.31, 93.84, 21.239, 0.602)
pt3dadd(170.425, 93.84, 21.269, 0.602)
pt3dadd(170.539, 93.84, 21.299, 0.602)
pt3dadd(170.654, 93.84, 21.329, 0.602)
pt3dadd(170.768, 93.84, 21.359, 0.602)
pt3dadd(170.887, 93.84, 21.362, 0.606)
pt3dadd(171.007, 93.84, 21.356, 0.61)
pt3dadd(171.126, 93.84, 21.35, 0.616)
pt3dadd(171.246, 93.84, 21.343, 0.62)
pt3dadd(171.366, 93.84, 21.337, 0.624)
pt3dadd(171.485, 93.831, 21.338, 0.634)
pt3dadd(171.601, 93.806, 21.35, 0.654)
pt3dadd(171.718, 93.781, 21.363, 0.672)
pt3dadd(171.834, 93.756, 21.375, 0.69)
pt3dadd(171.95, 93.732, 21.388, 0.71)
pt3dadd(172.067, 93.707, 21.4, 0.728)
pt3dadd(172.186, 93.69, 21.4, 0.748)
pt3dadd(172.304, 93.672, 21.4, 0.768)
pt3dadd(172.423, 93.655, 21.4, 0.79)
pt3dadd(172.542, 93.638, 21.4, 0.81)
pt3dadd(172.661, 93.62, 21.4, 0.83)
pt3dadd(172.78, 93.603, 21.4, 0.85)
pt3dadd(172.9, 93.6, 21.4, 0.862)
pt3dadd(173.02, 93.6, 21.4, 0.874)
pt3dadd(173.14, 93.6, 21.4, 0.884)
pt3dadd(173.26, 93.6, 21.4, 0.894)
pt3dadd(173.38, 93.6, 21.4, 0.906)
pt3dadd(173.5, 93.6, 21.4, 0.916)
pt3dadd(173.62, 93.6, 21.4, 0.928)
pt3dadd(173.735, 93.581, 21.416, 0.922)
pt3dadd(173.851, 93.558, 21.435, 0.912)
pt3dadd(173.966, 93.535, 21.454, 0.902)
pt3dadd(174.082, 93.512, 21.474, 0.892)
pt3dadd(174.197, 93.489, 21.493, 0.882)
pt3dadd(174.314, 93.468, 21.5, 0.868)
pt3dadd(174.433, 93.448, 21.5, 0.852)
pt3dadd(174.551, 93.428, 21.5, 0.836)
pt3dadd(174.67, 93.408, 21.5, 0.818)
pt3dadd(174.788, 93.389, 21.5, 0.802)
pt3dadd(174.906, 93.369, 21.5, 0.786)
pt3dadd(175.025, 93.35, 21.504, 0.774)
pt3dadd(175.142, 93.331, 21.512, 0.764)
pt3dadd(175.261, 93.313, 21.52, 0.756)
pt3dadd(175.379, 93.294, 21.527, 0.748)
pt3dadd(175.498, 93.276, 21.535, 0.738)
pt3dadd(175.615, 93.257, 21.543, 0.73)
pt3dadd(175.729, 93.238, 21.569, 0.724)
pt3dadd(175.842, 93.219, 21.6, 0.72)
pt3dadd(175.954, 93.201, 21.632, 0.714)
pt3dadd(176.066, 93.182, 21.663, 0.708)
pt3dadd(176.179, 93.163, 21.694, 0.704)
pt3dadd(176.297, 93.155, 21.7, 0.704)
pt3dadd(176.417, 93.149, 21.7, 0.704)
pt3dadd(176.537, 93.143, 21.7, 0.704)
pt3dadd(176.657, 93.137, 21.7, 0.704)
pt3dadd(176.777, 93.131, 21.7, 0.704)
pt3dadd(176.897, 93.125, 21.7, 0.704)
pt3dadd(177.017, 93.12, 21.702, 0.702)
pt3dadd(177.136, 93.12, 21.714, 0.698)
pt3dadd(177.254, 93.12, 21.726, 0.694)
pt3dadd(177.373, 93.12, 21.739, 0.69)
pt3dadd(177.493, 93.12, 21.751, 0.686)
pt3dadd(177.612, 93.12, 21.764, 0.682)
pt3dadd(177.731, 93.12, 21.776, 0.678)
pt3dadd(177.841, 93.12, 21.814, 0.686)
pt3dadd(177.949, 93.12, 21.857, 0.696)
pt3dadd(178.058, 93.12, 21.899, 0.706)
pt3dadd(178.168, 93.12, 21.941, 0.714)
pt3dadd(178.277, 93.12, 21.983, 0.724)
pt3dadd(178.391, 93.108, 22, 0.734)
pt3dadd(178.51, 93.088, 22, 0.742)
pt3dadd(178.627, 93.069, 22, 0.75)
pt3dadd(178.746, 93.049, 22, 0.758)
pt3dadd(178.865, 93.029, 22, 0.766)
pt3dadd(178.982, 93.01, 22, 0.774)
pt3dadd(179.102, 92.999, 22, 0.78)
pt3dadd(179.221, 92.997, 22, 0.784)
pt3dadd(179.341, 92.995, 22, 0.788)
pt3dadd(179.461, 92.993, 22, 0.792)
pt3dadd(179.581, 92.991, 22, 0.794)
pt3dadd(179.701, 92.989, 22, 0.798)
pt3dadd(179.821, 92.988, 22, 0.802)
pt3dadd(179.939, 92.974, 21.988, 0.798)
pt3dadd(180.055, 92.954, 21.969, 0.788)
pt3dadd(180.172, 92.934, 21.95, 0.778)
pt3dadd(180.288, 92.913, 21.931, 0.77)
pt3dadd(180.403, 92.893, 21.913, 0.76)
pt3dadd(180.521, 92.88, 21.9, 0.75)
pt3dadd(180.641, 92.88, 21.9, 0.744)
pt3dadd(180.761, 92.88, 21.9, 0.736)
pt3dadd(180.881, 92.88, 21.9, 0.73)
pt3dadd(181.001, 92.88, 21.9, 0.722)
pt3dadd(181.121, 92.88, 21.9, 0.716)
pt3dadd(181.241, 92.88, 21.9, 0.708)
pt3dadd(181.361, 92.88, 21.9, 0.702)
pt3dadd(181.481, 92.88, 21.9, 0.698)
pt3dadd(181.601, 92.88, 21.9, 0.694)
pt3dadd(181.721, 92.88, 21.9, 0.692)
pt3dadd(181.841, 92.88, 21.9, 0.688)
pt3dadd(181.961, 92.88, 21.9, 0.684)
pt3dadd(182.081, 92.88, 21.9, 0.68)
pt3dadd(182.201, 92.88, 21.9, 0.68)
pt3dadd(182.321, 92.88, 21.9, 0.688)
pt3dadd(182.441, 92.88, 21.9, 0.694)
pt3dadd(182.561, 92.88, 21.9, 0.702)
}
}
proc shape3d_192() {
dend_7[47] { pt3dadd(182.681, 92.88, 21.9, 0.71)
pt3dadd(182.801, 92.88, 21.9, 0.716)
pt3dadd(182.921, 92.88, 21.9, 0.724)
pt3dadd(183.038, 92.88, 21.888, 0.732)
pt3dadd(183.151, 92.88, 21.854, 0.74)
pt3dadd(183.264, 92.88, 21.819, 0.75)
pt3dadd(183.376, 92.88, 21.784, 0.758)
pt3dadd(183.488, 92.88, 21.75, 0.768)
pt3dadd(183.601, 92.88, 21.715, 0.778)
pt3dadd(183.72, 92.88, 21.71, 0.784)
pt3dadd(183.84, 92.88, 21.708, 0.792)
pt3dadd(183.96, 92.88, 21.706, 0.8)
pt3dadd(184.08, 92.88, 21.705, 0.806)
pt3dadd(184.2, 92.88, 21.703, 0.814)
pt3dadd(184.32, 92.88, 21.702, 0.822)
pt3dadd(184.44, 92.88, 21.7, 0.828)
pt3dadd(184.56, 92.88, 21.7, 0.818)
pt3dadd(184.68, 92.88, 21.7, 0.808)
pt3dadd(184.8, 92.88, 21.7, 0.796)
pt3dadd(184.92, 92.88, 21.7, 0.786)
pt3dadd(185.04, 92.88, 21.7, 0.774)
pt3dadd(185.16, 92.88, 21.7, 0.764)
pt3dadd(185.28, 92.88, 21.7, 0.754)
pt3dadd(185.399, 92.9, 21.7, 0.74)
pt3dadd(185.518, 92.919, 21.7, 0.728)
pt3dadd(185.635, 92.939, 21.7, 0.716)
pt3dadd(185.754, 92.959, 21.7, 0.704)
pt3dadd(185.872, 92.979, 21.7, 0.692)
pt3dadd(185.99, 92.998, 21.7, 0.678)
pt3dadd(186.109, 93, 21.685, 0.67)
pt3dadd(186.227, 93, 21.668, 0.662)
pt3dadd(186.346, 93, 21.652, 0.654)
pt3dadd(186.464, 93, 21.636, 0.646)
pt3dadd(186.582, 93, 21.619, 0.638)
pt3dadd(186.701, 93, 21.603, 0.63)
pt3dadd(186.82, 93, 21.586, 0.634)
pt3dadd(186.937, 93, 21.57, 0.642)
pt3dadd(187.056, 93, 21.553, 0.652)
pt3dadd(187.175, 93, 21.537, 0.66)
pt3dadd(187.292, 93, 21.521, 0.668)
pt3dadd(187.411, 93, 21.504, 0.676)
pt3dadd(187.53, 93, 21.5, 0.684)
pt3dadd(187.65, 93, 21.5, 0.69)
pt3dadd(187.77, 93, 21.5, 0.698)
pt3dadd(187.89, 93, 21.5, 0.704)
pt3dadd(188.01, 93, 21.5, 0.712)
pt3dadd(188.13, 93, 21.5, 0.72)
pt3dadd(188.25, 93, 21.5, 0.726)
pt3dadd(188.37, 93, 21.5, 0.728)
pt3dadd(188.49, 93, 21.5, 0.728)
pt3dadd(188.61, 93, 21.5, 0.728)
pt3dadd(188.73, 93, 21.497, 0.722)
pt3dadd(188.85, 93, 21.493, 0.714)
pt3dadd(188.97, 93, 21.489, 0.704)
pt3dadd(189.053, 92.94, 21.445, 0.69)
pt3dadd(189.13, 92.871, 21.394, 0.678)
pt3dadd(189.206, 92.802, 21.343, 0.678)
pt3dadd(189.299, 92.76, 21.309, 0.678)
pt3dadd(189.419, 92.76, 21.303, 0.678)
pt3dadd(189.534, 92.752, 21.281, 0.676)
pt3dadd(189.643, 92.735, 21.242, 0.67)
pt3dadd(189.752, 92.719, 21.203, 0.666)
pt3dadd(189.862, 92.702, 21.165, 0.66)
pt3dadd(189.971, 92.686, 21.126, 0.654)
pt3dadd(190.085, 92.662, 21.11, 0.65)
pt3dadd(190.202, 92.634, 21.108, 0.646)
pt3dadd(190.319, 92.606, 21.106, 0.642)
pt3dadd(190.435, 92.579, 21.104, 0.638)
pt3dadd(190.552, 92.551, 21.102, 0.632)
pt3dadd(190.669, 92.523, 21.1, 0.628)
pt3dadd(190.788, 92.518, 21.1, 0.628)
pt3dadd(190.908, 92.516, 21.1, 0.628)
pt3dadd(191.028, 92.514, 21.1, 0.628)
pt3dadd(191.148, 92.513, 21.1, 0.628)
pt3dadd(191.268, 92.511, 21.1, 0.628)
pt3dadd(191.388, 92.509, 21.1, 0.628)
pt3dadd(191.508, 92.506, 21.1, 0.628)
pt3dadd(191.608, 92.456, 21.064, 0.656)
pt3dadd(191.711, 92.412, 21.031, 0.682)
pt3dadd(191.828, 92.407, 21.013, 0.702)
pt3dadd(191.947, 92.402, 20.995, 0.722)
pt3dadd(192.041, 92.4, 20.94, 0.728)
pt3dadd(192.122, 92.4, 20.867, 0.728)
pt3dadd(192.181, 92.4, 20.782, 0.728)
pt3dadd(192.221, 92.4, 20.688, 0.728)
pt3dadd(192.275, 92.4, 20.606, 0.73)
pt3dadd(192.39, 92.4, 20.579, 0.736)
pt3dadd(192.505, 92.4, 20.551, 0.742)
pt3dadd(192.62, 92.4, 20.524, 0.748)
pt3dadd(192.737, 92.4, 20.5, 0.756)
pt3dadd(192.857, 92.4, 20.5, 0.782)
pt3dadd(192.977, 92.4, 20.5, 0.808)
pt3dadd(193.097, 92.4, 20.5, 0.836)
pt3dadd(193.217, 92.4, 20.5, 0.88)
pt3dadd(193.337, 92.4, 20.5, 0.882)
pt3dadd(193.457, 92.4, 20.5, 0.886)
pt3dadd(193.577, 92.4, 20.5, 0.89)
pt3dadd(193.697, 92.4, 20.5, 0.894)
pt3dadd(193.817, 92.4, 20.5, 0.898)
pt3dadd(193.937, 92.4, 20.5, 0.9)
pt3dadd(194.057, 92.4, 20.5, 0.904)
pt3dadd(194.177, 92.4, 20.5, 0.904)
pt3dadd(194.297, 92.4, 20.5, 0.904)
pt3dadd(194.417, 92.399, 20.5, 0.906)
pt3dadd(194.537, 92.395, 20.5, 0.914)
pt3dadd(194.657, 92.39, 20.5, 0.922)
pt3dadd(194.774, 92.377, 20.5, 0.932)
pt3dadd(194.888, 92.337, 20.5, 0.942)
pt3dadd(195.001, 92.297, 20.5, 0.954)
pt3dadd(195.102, 92.232, 20.5, 0.954)
pt3dadd(195.2, 92.165, 20.5, 0.954)
pt3dadd(195.3, 92.097, 20.493, 0.938)
pt3dadd(195.398, 92.03, 20.483, 0.916)
pt3dadd(195.497, 91.963, 20.473, 0.894)
pt3dadd(195.601, 91.92, 20.455, 0.864)
pt3dadd(195.714, 91.92, 20.422, 0.82)
pt3dadd(195.828, 91.92, 20.389, 0.778)
pt3dadd(195.943, 91.916, 20.364, 0.728)
pt3dadd(196.061, 91.894, 20.352, 0.722)
pt3dadd(196.177, 91.872, 20.34, 0.718)
pt3dadd(196.295, 91.85, 20.328, 0.714)
pt3dadd(196.411, 91.828, 20.316, 0.708)
pt3dadd(196.529, 91.806, 20.303, 0.704)
pt3dadd(196.648, 91.8, 20.299, 0.704)
pt3dadd(196.768, 91.8, 20.297, 0.704)
pt3dadd(196.888, 91.8, 20.296, 0.704)
pt3dadd(197.008, 91.8, 20.294, 0.704)
pt3dadd(197.128, 91.8, 20.292, 0.704)
pt3dadd(197.248, 91.8, 20.291, 0.704)
pt3dadd(197.368, 91.8, 20.289, 0.704)
pt3dadd(197.477, 91.76, 20.273, 0.694)
pt3dadd(197.585, 91.711, 20.254, 0.684)
pt3dadd(197.693, 91.663, 20.235, 0.672)
pt3dadd(197.8, 91.615, 20.216, 0.662)
pt3dadd(197.908, 91.573, 20.195, 0.654)
pt3dadd(198.02, 91.57, 20.16, 0.658)
pt3dadd(198.132, 91.568, 20.125, 0.662)
pt3dadd(198.245, 91.566, 20.089, 0.668)
pt3dadd(198.356, 91.563, 20.054, 0.672)
pt3dadd(198.469, 91.56, 20.019, 0.678)
pt3dadd(198.588, 91.56, 20.01, 0.686)
pt3dadd(198.708, 91.56, 20.008, 0.698)
pt3dadd(198.828, 91.56, 20.007, 0.708)
pt3dadd(198.948, 91.56, 20.005, 0.72)
pt3dadd(199.068, 91.56, 20.003, 0.73)
pt3dadd(199.188, 91.56, 20.002, 0.742)
pt3dadd(199.308, 91.56, 20, 0.752)
pt3dadd(199.42, 91.56, 19.967, 0.774)
pt3dadd(199.531, 91.56, 19.93, 0.798)
pt3dadd(199.643, 91.56, 19.892, 0.82)
pt3dadd(199.754, 91.56, 19.855, 0.844)
pt3dadd(199.866, 91.56, 19.818, 0.868)
pt3dadd(199.948, 91.56, 19.754, 0.89)
pt3dadd(200.002, 91.56, 19.665, 0.912)
pt3dadd(200.068, 91.566, 19.586, 0.926)
pt3dadd(200.17, 91.586, 19.535, 0.912)
pt3dadd(200.263, 91.628, 19.5, 0.894)
pt3dadd(200.338, 91.722, 19.5, 0.858)
pt3dadd(200.416, 91.812, 19.5, 0.824)
pt3dadd(200.509, 91.887, 19.5, 0.802)
pt3dadd(200.604, 91.961, 19.499, 0.778)
pt3dadd(200.706, 92.019, 19.479, 0.762)
pt3dadd(200.808, 92.077, 19.458, 0.746)
pt3dadd(200.91, 92.134, 19.438, 0.732)
pt3dadd(201.001, 92.157, 19.381, 0.718)
pt3dadd(201.089, 92.171, 19.313, 0.706)
pt3dadd(201.145, 92.207, 19.233, 0.676)
pt3dadd(201.22, 92.252, 19.165, 0.662)
pt3dadd(201.284, 92.28, 19.087, 0.648)
pt3dadd(201.331, 92.28, 18.995, 0.638)
pt3dadd(201.38, 92.285, 18.905, 0.626)
pt3dadd(201.456, 92.338, 18.842, 0.612)
pt3dadd(201.541, 92.394, 18.8, 0.606)
pt3dadd(201.644, 92.455, 18.8, 0.618)
pt3dadd(201.75, 92.508, 18.797, 0.634)
pt3dadd(201.868, 92.516, 18.776, 0.682)
pt3dadd(201.979, 92.547, 18.759, 0.718)
pt3dadd(202.087, 92.597, 18.745, 0.744)
pt3dadd(202.195, 92.647, 18.731, 0.77)
pt3dadd(202.303, 92.697, 18.718, 0.796)
pt3dadd(202.411, 92.747, 18.704, 0.822)
pt3dadd(202.528, 92.76, 18.7, 0.866)
pt3dadd(202.648, 92.76, 18.7, 0.916)
pt3dadd(202.768, 92.76, 18.7, 0.966)
pt3dadd(202.886, 92.771, 18.7, 1)
pt3dadd(203.006, 92.785, 18.7, 1.028)
pt3dadd(203.125, 92.801, 18.7, 1.054)
pt3dadd(203.24, 92.834, 18.7, 1.054)
pt3dadd(203.356, 92.867, 18.7, 1.054)
pt3dadd(203.464, 92.917, 18.7, 1.026)
pt3dadd(203.567, 92.978, 18.7, 0.98)
pt3dadd(203.629, 93.056, 18.678, 0.94)
pt3dadd(203.635, 93.158, 18.625, 0.904)
pt3dadd(203.64, 93.232, 18.557, 0.86)
pt3dadd(203.64, 93.24, 18.457, 0.84)
pt3dadd(203.646, 93.24, 18.358, 0.878)
pt3dadd(203.682, 93.24, 18.264, 0.958)
pt3dadd(203.774, 93.258, 18.209, 1.03)
pt3dadd(203.879, 93.311, 18.2, 0.986)
pt3dadd(203.972, 93.386, 18.2, 0.856)
}
}
proc shape3d_193() {
dend_7[47] { pt3dadd(204.053, 93.474, 18.2, 0.734)
pt3dadd(204.146, 93.549, 18.2, 0.684)
pt3dadd(204.252, 93.606, 18.2, 0.642)
pt3dadd(204.353, 93.666, 18.208, 0.57)
pt3dadd(204.444, 93.739, 18.231, 0.546)
pt3dadd(204.535, 93.812, 18.254, 0.524)
pt3dadd(204.626, 93.885, 18.277, 0.5)
pt3dadd(204.718, 93.958, 18.299, 0.478)
pt3dadd(204.817, 94.026, 18.3, 0.454)
pt3dadd(204.916, 94.094, 18.3, 0.432)
pt3dadd(205.006, 94.173, 18.3, 0.446)
pt3dadd(205.093, 94.255, 18.3, 0.47)
pt3dadd(205.201, 94.292, 18.287, 0.516)
pt3dadd(205.318, 94.31, 18.267, 0.57)
pt3dadd(205.421, 94.323, 18.227, 0.632)
pt3dadd(205.506, 94.329, 18.157, 0.706)
pt3dadd(205.595, 94.353, 18.098, 0.796)
pt3dadd(205.694, 94.404, 18.063, 0.91)
pt3dadd(205.805, 94.429, 18.03, 0.96)
pt3dadd(205.914, 94.458, 18, 1.006)
pt3dadd(206.014, 94.526, 18, 1.016)
pt3dadd(206.112, 94.594, 18, 1.028)
pt3dadd(206.195, 94.68, 18, 1.008)
pt3dadd(206.276, 94.769, 18, 0.984)
pt3dadd(206.374, 94.792, 17.958, 0.96)
pt3dadd(206.476, 94.798, 17.905, 0.936)
pt3dadd(206.512, 94.8, 17.82, 0.91)
pt3dadd(206.519, 94.8, 17.72, 0.884)
pt3dadd(206.594, 94.8, 17.65, 0.87)
pt3dadd(206.689, 94.8, 17.588, 0.86)
pt3dadd(206.783, 94.8, 17.525, 0.85)
pt3dadd(206.876, 94.8, 17.463, 0.84)
pt3dadd(206.97, 94.8, 17.4, 0.83)
pt3dadd(207.042, 94.8, 17.321, 0.8)
pt3dadd(207.11, 94.8, 17.239, 0.766)
pt3dadd(207.212, 94.8, 17.209, 0.748)
pt3dadd(207.332, 94.8, 17.205, 0.738)
pt3dadd(207.452, 94.8, 17.201, 0.73)
pt3dadd(207.559, 94.847, 17.2, 0.728)
pt3dadd(207.664, 94.908, 17.2, 0.728)
pt3dadd(207.744, 94.992, 17.197, 0.736)
pt3dadd(207.806, 95.094, 17.192, 0.746)
pt3dadd(207.892, 95.156, 17.169, 0.744)
pt3dadd(207.997, 95.179, 17.128, 0.726)
pt3dadd(208.093, 95.231, 17.085, 0.712)
pt3dadd(208.182, 95.275, 17.033, 0.696)
pt3dadd(208.253, 95.303, 16.955, 0.668)
pt3dadd(208.343, 95.334, 16.909, 0.648)
pt3dadd(208.457, 95.369, 16.904, 0.638)
pt3dadd(208.572, 95.4, 16.9, 0.626)
pt3dadd(208.692, 95.405, 16.9, 0.618)
pt3dadd(208.812, 95.41, 16.9, 0.61)
pt3dadd(208.931, 95.422, 16.9, 0.606)
pt3dadd(209.042, 95.466, 16.9, 0.622)
pt3dadd(209.155, 95.496, 16.882, 0.632)
pt3dadd(209.268, 95.521, 16.855, 0.636)
pt3dadd(209.381, 95.545, 16.828, 0.642)
pt3dadd(209.494, 95.569, 16.802, 0.646)
pt3dadd(209.606, 95.593, 16.775, 0.652)
pt3dadd(209.717, 95.636, 16.757, 0.652)
pt3dadd(209.824, 95.685, 16.743, 0.652)
pt3dadd(209.932, 95.735, 16.729, 0.652)
pt3dadd(210.04, 95.785, 16.715, 0.652)
pt3dadd(210.148, 95.835, 16.701, 0.652)
pt3dadd(210.265, 95.847, 16.685, 0.652)
pt3dadd(210.383, 95.853, 16.667, 0.652)
pt3dadd(210.5, 95.86, 16.65, 0.652)
pt3dadd(210.619, 95.867, 16.632, 0.652)
pt3dadd(210.737, 95.874, 16.615, 0.652)
pt3dadd(210.853, 95.883, 16.595, 0.652)
pt3dadd(210.958, 95.909, 16.551, 0.652)
pt3dadd(211.062, 95.936, 16.507, 0.652)
pt3dadd(211.168, 95.962, 16.464, 0.652)
pt3dadd(211.272, 95.988, 16.42, 0.652)
pt3dadd(211.384, 96, 16.388, 0.656)
pt3dadd(211.5, 96, 16.365, 0.66)
pt3dadd(211.616, 96, 16.342, 0.664)
pt3dadd(211.734, 96, 16.319, 0.668)
pt3dadd(211.85, 96, 16.296, 0.672)
pt3dadd(211.967, 96, 16.273, 0.676)
pt3dadd(212.036, 96.031, 16.207, 0.658)
pt3dadd(212.086, 96.074, 16.123, 0.632)
pt3dadd(212.195, 96.093, 16.107, 0.602)
pt3dadd(212.314, 96.109, 16.103, 0.574)
pt3dadd(212.431, 96.115, 16.109, 0.54)
pt3dadd(212.543, 96.096, 16.14, 0.492)
pt3dadd(212.656, 96.075, 16.169, 0.448)
pt3dadd(212.768, 96.038, 16.184, 0.426)
pt3dadd(212.88, 96, 16.2, 0.402)
pt3dadd(212.998, 95.977, 16.2, 0.416)
pt3dadd(213.115, 95.956, 16.194, 0.436)
pt3dadd(213.233, 95.941, 16.176, 0.462)
pt3dadd(213.349, 95.927, 16.158, 0.49)
pt3dadd(213.467, 95.912, 16.14, 0.518)
pt3dadd(213.583, 95.897, 16.121, 0.546)
pt3dadd(213.701, 95.882, 16.103, 0.574)
pt3dadd(213.821, 95.88, 16.1, 0.598)
pt3dadd(213.941, 95.88, 16.1, 0.624)
pt3dadd(214.061, 95.88, 16.1, 0.648)
pt3dadd(214.181, 95.88, 16.1, 0.674)
pt3dadd(214.301, 95.88, 16.1, 0.7)
pt3dadd(214.421, 95.88, 16.1, 0.724)
pt3dadd(214.541, 95.88, 16.1, 0.75)
pt3dadd(214.658, 95.899, 16.1, 0.768)
pt3dadd(214.776, 95.921, 16.1, 0.784)
pt3dadd(214.895, 95.943, 16.1, 0.8)
pt3dadd(215.012, 95.965, 16.1, 0.818)
pt3dadd(215.13, 95.988, 16.1, 0.834)
pt3dadd(215.249, 96.01, 16.1, 0.852)
pt3dadd(215.358, 96.056, 16.1, 0.846)
pt3dadd(215.467, 96.106, 16.1, 0.836)
pt3dadd(215.576, 96.157, 16.1, 0.826)
pt3dadd(215.686, 96.207, 16.1, 0.818)
pt3dadd(215.794, 96.258, 16.1, 0.808)
pt3dadd(215.905, 96.3, 16.099, 0.796)
pt3dadd(216.02, 96.337, 16.097, 0.782)
pt3dadd(216.134, 96.374, 16.095, 0.768)
pt3dadd(216.248, 96.41, 16.093, 0.754)
pt3dadd(216.362, 96.447, 16.091, 0.74)
pt3dadd(216.475, 96.485, 16.085, 0.728)
pt3dadd(216.565, 96.543, 16.039, 0.716)
pt3dadd(216.655, 96.601, 15.994, 0.702)
pt3dadd(216.744, 96.659, 15.948, 0.69)
pt3dadd(216.834, 96.716, 15.903, 0.678)
pt3dadd(216.932, 96.784, 15.9, 0.668)
pt3dadd(217.032, 96.852, 15.9, 0.656)
pt3dadd(217.141, 96.899, 15.896, 0.644)
pt3dadd(217.254, 96.94, 15.891, 0.634)
pt3dadd(217.346, 96.984, 15.853, 0.62)
pt3dadd(217.421, 97.029, 15.784, 0.606)
pt3dadd(217.486, 97.055, 15.704, 0.612)
pt3dadd(217.547, 97.075, 15.619, 0.624)
pt3dadd(217.621, 97.088, 15.542, 0.642)
pt3dadd(217.69, 97.119, 15.468, 0.66)
pt3dadd(217.742, 97.179, 15.393, 0.674)
pt3dadd(217.778, 97.251, 15.32, 0.67)
pt3dadd(217.807, 97.33, 15.248, 0.656)
pt3dadd(217.873, 97.418, 15.22, 0.632)
pt3dadd(217.949, 97.508, 15.202, 0.606)
pt3dadd(218.052, 97.567, 15.2, 0.574)
pt3dadd(218.16, 97.62, 15.2, 0.54)
pt3dadd(218.274, 97.655, 15.2, 0.518)
pt3dadd(218.392, 97.678, 15.2, 0.504)
pt3dadd(218.512, 97.68, 15.2, 0.518)
pt3dadd(218.632, 97.68, 15.2, 0.534)
pt3dadd(218.752, 97.68, 15.2, 0.552)
pt3dadd(218.862, 97.704, 15.17, 0.598)
pt3dadd(218.972, 97.73, 15.137, 0.646)
pt3dadd(218.999, 97.809, 15.074, 0.686)
pt3dadd(219.012, 97.897, 15.007, 0.724)
pt3dadd(219.056, 97.912, 14.919, 0.728)
pt3dadd(219.106, 97.918, 14.827, 0.728)
pt3dadd(219.2, 97.927, 14.779, 0.724)
pt3dadd(219.314, 97.938, 14.749, 0.716)
pt3dadd(219.428, 97.949, 14.72, 0.71)
pt3dadd(219.542, 97.959, 14.69, 0.704)
pt3dadd(219.643, 98.001, 14.649, 0.69)
pt3dadd(219.742, 98.048, 14.61, 0.678)
pt3dadd(219.826, 98.133, 14.602, 0.668)
pt3dadd(219.911, 98.217, 14.594, 0.658)
pt3dadd(219.962, 98.293, 14.554, 0.642)
pt3dadd(219.968, 98.357, 14.469, 0.62)
pt3dadd(220.003, 98.4, 14.391, 0.598)
pt3dadd(220.097, 98.4, 14.329, 0.58)
pt3dadd(220.19, 98.4, 14.266, 0.562)
pt3dadd(220.296, 98.4, 14.225, 0.552)
pt3dadd(220.414, 98.4, 14.208, 0.552)
pt3dadd(220.532, 98.4, 14.191, 0.552)
pt3dadd(220.584, 98.4, 14.107, 0.566)
pt3dadd(220.627, 98.4, 14.014, 0.582)
pt3dadd(220.67, 98.4, 13.921, 0.6)
pt3dadd(220.692, 98.404, 13.823, 0.618)
pt3dadd(220.708, 98.409, 13.724, 0.638)
pt3dadd(220.733, 98.431, 13.637, 0.656)
pt3dadd(220.8, 98.52, 13.6, 0.678)
}
dend_0[7] {pt3dclear()
pt3dstyle(1, 127.273, 104.51, 17.58)
pt3dadd(127.273, 104.595, 17.509, 13.398)
pt3dadd(127.273, 104.68, 17.438, 13.266)
pt3dadd(127.273, 104.765, 17.368, 13.132)
pt3dadd(127.273, 104.85, 17.297, 13)
pt3dadd(127.273, 104.935, 17.226, 12.866)
pt3dadd(127.273, 105.02, 17.156, 12.734)
pt3dadd(127.273, 105.105, 17.085, 12.6)
pt3dadd(127.273, 105.189, 17.014, 12.468)
pt3dadd(127.273, 105.274, 16.943, 12.334)
pt3dadd(127.273, 105.359, 16.873, 12.202)
pt3dadd(127.273, 105.444, 16.802, 12.068)
pt3dadd(127.273, 105.529, 16.731, 11.936)
pt3dadd(127.273, 105.614, 16.661, 11.802)
pt3dadd(127.273, 105.699, 16.59, 11.668)
pt3dadd(127.318, 105.791, 16.552, 11.464)
pt3dadd(127.385, 105.886, 16.531, 11.222)
pt3dadd(127.453, 105.982, 16.511, 10.98)
pt3dadd(127.52, 106.078, 16.49, 10.736)
pt3dadd(127.589, 106.174, 16.47, 10.494)
pt3dadd(127.657, 106.27, 16.449, 10.252)
pt3dadd(127.724, 106.366, 16.429, 10.008)
pt3dadd(127.793, 106.461, 16.408, 9.766)
pt3dadd(127.86, 106.557, 16.388, 9.524)
pt3dadd(127.936, 106.649, 16.377, 9.278)
}
}
proc shape3d_194() {
dend_0[7] { pt3dadd(128.017, 106.737, 16.375, 9.028)
pt3dadd(128.099, 106.825, 16.373, 8.78)
pt3dadd(128.18, 106.913, 16.371, 8.53)
pt3dadd(128.262, 107.001, 16.369, 8.282)
pt3dadd(128.344, 107.089, 16.367, 8.032)
pt3dadd(128.425, 107.177, 16.365, 7.784)
pt3dadd(128.507, 107.265, 16.363, 7.534)
pt3dadd(128.588, 107.352, 16.361, 7.286)
pt3dadd(128.67, 107.44, 16.359, 7.036)
pt3dadd(128.746, 107.533, 16.357, 6.794)
pt3dadd(128.816, 107.63, 16.354, 6.556)
pt3dadd(128.888, 107.727, 16.35, 6.318)
pt3dadd(128.959, 107.823, 16.347, 6.082)
}
dend_7[48] {pt3dclear()
pt3dadd(128.959, 107.823, 16.347, 6.082)
pt3dadd(129.03, 107.92, 16.344, 5.844)
pt3dadd(129.101, 108.017, 16.341, 5.606)
pt3dadd(129.172, 108.113, 16.338, 5.368)
pt3dadd(129.242, 108.21, 16.335, 5.132)
pt3dadd(129.313, 108.307, 16.332, 4.894)
pt3dadd(129.384, 108.403, 16.329, 4.656)
pt3dadd(129.462, 108.494, 16.325, 4.424)
pt3dadd(129.545, 108.581, 16.32, 4.194)
pt3dadd(129.628, 108.668, 16.315, 3.966)
pt3dadd(129.71, 108.754, 16.309, 3.736)
pt3dadd(129.793, 108.841, 16.304, 3.508)
pt3dadd(129.876, 108.927, 16.299, 3.28)
pt3dadd(129.959, 109.014, 16.294, 3.05)
pt3dadd(130.042, 109.101, 16.288, 2.822)
pt3dadd(130.124, 109.187, 16.283, 2.592)
pt3dadd(130.207, 109.274, 16.278, 2.364)
pt3dadd(130.304, 109.343, 16.271, 2.15)
pt3dadd(130.406, 109.407, 16.263, 1.942)
pt3dadd(130.507, 109.47, 16.255, 1.734)
pt3dadd(130.608, 109.534, 16.247, 1.526)
pt3dadd(130.71, 109.598, 16.239, 1.316)
pt3dadd(130.811, 109.661, 16.231, 1.108)
pt3dadd(130.912, 109.725, 16.223, 0.9)
pt3dadd(131.014, 109.789, 16.215, 0.692)
pt3dadd(131.114, 109.852, 16.207, 0.482)
pt3dadd(131.216, 109.916, 16.199, 0.274)
pt3dadd(131.318, 109.977, 16.189, 0.226)
pt3dadd(131.422, 110.036, 16.177, 0.226)
pt3dadd(131.526, 110.095, 16.166, 0.226)
pt3dadd(131.629, 110.155, 16.155, 0.226)
pt3dadd(131.732, 110.214, 16.143, 0.226)
pt3dadd(131.836, 110.274, 16.132, 0.226)
pt3dadd(131.939, 110.333, 16.121, 0.226)
pt3dadd(132.042, 110.393, 16.109, 0.226)
pt3dadd(132.145, 110.452, 16.098, 0.226)
pt3dadd(132.25, 110.511, 16.087, 0.226)
pt3dadd(132.355, 110.561, 16.067, 0.226)
pt3dadd(132.463, 110.609, 16.046, 0.226)
pt3dadd(132.57, 110.656, 16.024, 0.226)
pt3dadd(132.677, 110.703, 16.002, 0.226)
pt3dadd(132.785, 110.75, 15.981, 0.226)
pt3dadd(132.892, 110.797, 15.959, 0.226)
pt3dadd(132.998, 110.845, 15.938, 0.226)
pt3dadd(133.106, 110.892, 15.916, 0.226)
pt3dadd(133.213, 110.939, 15.894, 0.226)
pt3dadd(133.32, 110.986, 15.873, 0.226)
pt3dadd(133.429, 111.014, 15.837, 0.226)
pt3dadd(133.537, 111.041, 15.801, 0.226)
pt3dadd(133.646, 111.068, 15.765, 0.226)
pt3dadd(133.754, 111.095, 15.728, 0.226)
pt3dadd(133.864, 111.122, 15.692, 0.226)
pt3dadd(133.972, 111.149, 15.656, 0.226)
pt3dadd(134.08, 111.176, 15.62, 0.226)
pt3dadd(134.189, 111.203, 15.583, 0.226)
pt3dadd(134.297, 111.23, 15.547, 0.226)
pt3dadd(134.406, 111.256, 15.51, 0.226)
pt3dadd(134.519, 111.274, 15.482, 0.262)
pt3dadd(134.633, 111.292, 15.454, 0.3)
pt3dadd(134.747, 111.309, 15.426, 0.336)
pt3dadd(134.861, 111.327, 15.398, 0.374)
pt3dadd(134.975, 111.344, 15.37, 0.412)
pt3dadd(135.089, 111.362, 15.342, 0.45)
pt3dadd(135.203, 111.379, 15.314, 0.488)
pt3dadd(135.316, 111.397, 15.286, 0.526)
pt3dadd(135.43, 111.414, 15.257, 0.562)
pt3dadd(135.544, 111.432, 15.229, 0.6)
pt3dadd(135.66, 111.444, 15.206, 0.652)
pt3dadd(135.776, 111.456, 15.183, 0.704)
pt3dadd(135.892, 111.468, 15.159, 0.756)
pt3dadd(136.008, 111.48, 15.136, 0.808)
pt3dadd(136.124, 111.492, 15.113, 0.86)
pt3dadd(136.24, 111.504, 15.09, 0.912)
pt3dadd(136.356, 111.517, 15.066, 0.966)
pt3dadd(136.472, 111.529, 15.043, 1.016)
pt3dadd(136.589, 111.541, 15.02, 1.07)
pt3dadd(136.704, 111.553, 14.996, 1.122)
pt3dadd(136.824, 111.553, 14.985, 1.108)
pt3dadd(136.943, 111.553, 14.973, 1.094)
pt3dadd(137.062, 111.553, 14.962, 1.08)
pt3dadd(137.182, 111.553, 14.951, 1.064)
pt3dadd(137.3, 111.553, 14.94, 1.05)
pt3dadd(137.419, 111.552, 14.928, 1.036)
pt3dadd(137.539, 111.552, 14.917, 1.022)
pt3dadd(137.658, 111.552, 14.905, 1.008)
pt3dadd(137.778, 111.552, 14.894, 0.994)
pt3dadd(137.897, 111.552, 14.883, 0.978)
pt3dadd(138.017, 111.552, 14.877, 0.978)
pt3dadd(138.136, 111.552, 14.87, 0.978)
pt3dadd(138.256, 111.552, 14.864, 0.976)
pt3dadd(138.376, 111.552, 14.858, 0.976)
pt3dadd(138.496, 111.551, 14.852, 0.976)
pt3dadd(138.616, 111.551, 14.846, 0.976)
pt3dadd(138.734, 111.551, 14.84, 0.976)
pt3dadd(138.854, 111.551, 14.833, 0.974)
pt3dadd(138.974, 111.551, 14.827, 0.974)
pt3dadd(139.094, 111.551, 14.821, 0.974)
pt3dadd(139.214, 111.551, 14.82, 0.988)
pt3dadd(139.334, 111.551, 14.82, 1.002)
pt3dadd(139.454, 111.55, 14.819, 1.018)
pt3dadd(139.574, 111.55, 14.818, 1.032)
pt3dadd(139.694, 111.55, 14.818, 1.046)
pt3dadd(139.814, 111.55, 14.817, 1.06)
pt3dadd(139.934, 111.55, 14.816, 1.076)
pt3dadd(140.054, 111.55, 14.816, 1.09)
pt3dadd(140.174, 111.55, 14.815, 1.104)
pt3dadd(140.294, 111.55, 14.815, 1.118)
pt3dadd(140.414, 111.549, 14.813, 1.066)
pt3dadd(140.534, 111.549, 14.812, 1.014)
pt3dadd(140.654, 111.549, 14.81, 0.962)
pt3dadd(140.774, 111.548, 14.809, 0.91)
pt3dadd(140.894, 111.548, 14.808, 0.858)
pt3dadd(141.014, 111.547, 14.806, 0.806)
pt3dadd(141.134, 111.547, 14.805, 0.754)
pt3dadd(141.254, 111.547, 14.804, 0.702)
pt3dadd(141.374, 111.546, 14.802, 0.648)
pt3dadd(141.494, 111.546, 14.801, 0.596)
pt3dadd(141.614, 111.546, 14.799, 0.56)
pt3dadd(141.734, 111.545, 14.797, 0.522)
pt3dadd(141.854, 111.545, 14.795, 0.486)
pt3dadd(141.974, 111.544, 14.793, 0.448)
pt3dadd(142.094, 111.544, 14.791, 0.412)
pt3dadd(142.214, 111.543, 14.789, 0.374)
pt3dadd(142.334, 111.543, 14.787, 0.338)
pt3dadd(142.454, 111.542, 14.785, 0.3)
pt3dadd(142.574, 111.542, 14.783, 0.264)
pt3dadd(142.694, 111.541, 14.781, 0.226)
pt3dadd(142.814, 111.54, 14.779, 0.226)
pt3dadd(142.934, 111.54, 14.776, 0.226)
pt3dadd(143.053, 111.539, 14.773, 0.226)
pt3dadd(143.173, 111.538, 14.77, 0.226)
pt3dadd(143.293, 111.537, 14.767, 0.226)
pt3dadd(143.413, 111.536, 14.764, 0.226)
pt3dadd(143.533, 111.535, 14.761, 0.226)
pt3dadd(143.653, 111.534, 14.759, 0.226)
pt3dadd(143.773, 111.534, 14.756, 0.226)
pt3dadd(143.893, 111.533, 14.753, 0.226)
pt3dadd(144.013, 111.531, 14.747, 0.238)
pt3dadd(144.133, 111.53, 14.74, 0.25)
pt3dadd(144.253, 111.528, 14.734, 0.26)
pt3dadd(144.372, 111.527, 14.728, 0.272)
pt3dadd(144.492, 111.526, 14.722, 0.284)
pt3dadd(144.612, 111.524, 14.715, 0.296)
pt3dadd(144.732, 111.523, 14.709, 0.306)
pt3dadd(144.852, 111.521, 14.703, 0.318)
pt3dadd(144.971, 111.52, 14.697, 0.33)
pt3dadd(145.091, 111.518, 14.691, 0.342)
pt3dadd(145.211, 111.516, 14.683, 0.36)
pt3dadd(145.33, 111.514, 14.674, 0.376)
pt3dadd(145.45, 111.512, 14.666, 0.394)
pt3dadd(145.57, 111.51, 14.658, 0.412)
pt3dadd(145.688, 111.508, 14.65, 0.43)
pt3dadd(145.808, 111.505, 14.642, 0.448)
pt3dadd(145.928, 111.503, 14.634, 0.466)
pt3dadd(146.047, 111.501, 14.626, 0.484)
pt3dadd(146.167, 111.499, 14.618, 0.502)
pt3dadd(146.287, 111.497, 14.609, 0.52)
pt3dadd(146.406, 111.493, 14.598, 0.548)
pt3dadd(146.525, 111.49, 14.586, 0.576)
pt3dadd(146.645, 111.487, 14.575, 0.606)
pt3dadd(146.764, 111.483, 14.563, 0.634)
pt3dadd(146.882, 111.48, 14.551, 0.662)
pt3dadd(147.001, 111.477, 14.54, 0.692)
pt3dadd(147.121, 111.473, 14.528, 0.72)
pt3dadd(147.24, 111.47, 14.516, 0.748)
pt3dadd(147.359, 111.467, 14.505, 0.778)
pt3dadd(147.479, 111.463, 14.493, 0.806)
pt3dadd(147.593, 111.457, 14.464, 0.816)
pt3dadd(147.708, 111.45, 14.436, 0.826)
pt3dadd(147.822, 111.444, 14.407, 0.836)
pt3dadd(147.937, 111.438, 14.378, 0.846)
pt3dadd(148.052, 111.431, 14.349, 0.856)
pt3dadd(148.166, 111.425, 14.321, 0.866)
pt3dadd(148.282, 111.418, 14.292, 0.876)
pt3dadd(148.397, 111.412, 14.263, 0.886)
pt3dadd(148.511, 111.405, 14.234, 0.894)
pt3dadd(148.626, 111.399, 14.205, 0.904)
pt3dadd(148.736, 111.391, 14.168, 0.904)
pt3dadd(148.848, 111.383, 14.13, 0.904)
pt3dadd(148.958, 111.376, 14.093, 0.904)
pt3dadd(149.07, 111.368, 14.056, 0.904)
pt3dadd(149.182, 111.36, 14.019, 0.904)
pt3dadd(149.292, 111.352, 13.982, 0.904)
pt3dadd(149.404, 111.344, 13.944, 0.904)
pt3dadd(149.514, 111.337, 13.907, 0.904)
pt3dadd(149.626, 111.329, 13.87, 0.904)
pt3dadd(149.737, 111.321, 13.834, 0.9)
}
}
proc shape3d_195() {
dend_7[48] { pt3dadd(149.852, 111.307, 13.809, 0.86)
pt3dadd(149.968, 111.294, 13.785, 0.82)
pt3dadd(150.084, 111.281, 13.76, 0.778)
pt3dadd(150.199, 111.267, 13.736, 0.738)
pt3dadd(150.314, 111.254, 13.712, 0.696)
pt3dadd(150.431, 111.241, 13.687, 0.656)
pt3dadd(150.546, 111.227, 13.663, 0.616)
pt3dadd(150.661, 111.214, 13.638, 0.574)
pt3dadd(150.778, 111.201, 13.614, 0.534)
pt3dadd(150.893, 111.186, 13.59, 0.494)
pt3dadd(151.008, 111.162, 13.57, 0.482)
pt3dadd(151.123, 111.137, 13.55, 0.47)
pt3dadd(151.238, 111.113, 13.531, 0.456)
pt3dadd(151.354, 111.088, 13.511, 0.444)
pt3dadd(151.468, 111.063, 13.492, 0.43)
pt3dadd(151.583, 111.039, 13.472, 0.418)
pt3dadd(151.698, 111.014, 13.452, 0.404)
pt3dadd(151.813, 110.989, 13.433, 0.392)
pt3dadd(151.928, 110.965, 13.413, 0.378)
pt3dadd(152.042, 110.937, 13.395, 0.376)
pt3dadd(152.153, 110.892, 13.384, 0.416)
pt3dadd(152.264, 110.848, 13.373, 0.456)
pt3dadd(152.375, 110.803, 13.363, 0.496)
pt3dadd(152.485, 110.759, 13.352, 0.536)
pt3dadd(152.597, 110.715, 13.341, 0.576)
pt3dadd(152.707, 110.67, 13.33, 0.616)
pt3dadd(152.818, 110.626, 13.319, 0.656)
pt3dadd(152.928, 110.581, 13.308, 0.696)
pt3dadd(153.04, 110.537, 13.298, 0.736)
pt3dadd(153.151, 110.495, 13.288, 0.77)
pt3dadd(153.265, 110.46, 13.283, 0.774)
pt3dadd(153.38, 110.426, 13.279, 0.778)
pt3dadd(153.496, 110.392, 13.274, 0.782)
pt3dadd(153.611, 110.358, 13.269, 0.786)
pt3dadd(153.725, 110.324, 13.265, 0.79)
pt3dadd(153.84, 110.289, 13.26, 0.794)
pt3dadd(153.955, 110.255, 13.255, 0.8)
pt3dadd(154.07, 110.221, 13.251, 0.804)
pt3dadd(154.184, 110.187, 13.246, 0.808)
pt3dadd(154.3, 110.154, 13.242, 0.808)
pt3dadd(154.417, 110.126, 13.24, 0.794)
pt3dadd(154.534, 110.098, 13.239, 0.78)
pt3dadd(154.65, 110.071, 13.237, 0.766)
pt3dadd(154.766, 110.043, 13.236, 0.752)
pt3dadd(154.884, 110.015, 13.234, 0.738)
pt3dadd(155, 109.987, 13.233, 0.724)
pt3dadd(155.117, 109.959, 13.231, 0.71)
pt3dadd(155.233, 109.931, 13.23, 0.696)
pt3dadd(155.351, 109.903, 13.228, 0.682)
pt3dadd(155.467, 109.879, 13.226, 0.668)
pt3dadd(155.587, 109.865, 13.224, 0.652)
pt3dadd(155.706, 109.852, 13.22, 0.638)
pt3dadd(155.825, 109.839, 13.218, 0.624)
pt3dadd(155.945, 109.825, 13.215, 0.61)
pt3dadd(156.064, 109.812, 13.212, 0.596)
pt3dadd(156.182, 109.799, 13.209, 0.58)
pt3dadd(156.302, 109.785, 13.206, 0.566)
pt3dadd(156.421, 109.772, 13.203, 0.552)
pt3dadd(156.54, 109.759, 13.2, 0.538)
pt3dadd(156.66, 109.747, 13.196, 0.528)
pt3dadd(156.78, 109.74, 13.191, 0.534)
pt3dadd(156.899, 109.733, 13.186, 0.54)
pt3dadd(157.019, 109.726, 13.181, 0.548)
pt3dadd(157.139, 109.719, 13.176, 0.554)
pt3dadd(157.258, 109.713, 13.171, 0.56)
pt3dadd(157.378, 109.706, 13.166, 0.566)
pt3dadd(157.498, 109.699, 13.161, 0.574)
pt3dadd(157.616, 109.692, 13.155, 0.58)
pt3dadd(157.736, 109.685, 13.15, 0.586)
pt3dadd(157.856, 109.68, 13.145, 0.598)
pt3dadd(157.976, 109.68, 13.137, 0.626)
pt3dadd(158.095, 109.68, 13.13, 0.656)
pt3dadd(158.215, 109.68, 13.123, 0.684)
pt3dadd(158.335, 109.68, 13.115, 0.714)
pt3dadd(158.455, 109.68, 13.108, 0.742)
pt3dadd(158.574, 109.68, 13.101, 0.772)
pt3dadd(158.694, 109.68, 13.094, 0.8)
pt3dadd(158.814, 109.68, 13.086, 0.828)
pt3dadd(158.933, 109.68, 13.079, 0.858)
pt3dadd(159.053, 109.68, 13.071, 0.88)
pt3dadd(159.172, 109.68, 13.059, 0.882)
pt3dadd(159.292, 109.68, 13.047, 0.886)
pt3dadd(159.41, 109.68, 13.035, 0.888)
pt3dadd(159.529, 109.68, 13.023, 0.89)
pt3dadd(159.649, 109.68, 13.012, 0.892)
pt3dadd(159.768, 109.68, 13, 0.894)
pt3dadd(159.887, 109.68, 12.988, 0.898)
pt3dadd(160.007, 109.68, 12.976, 0.9)
pt3dadd(160.126, 109.68, 12.964, 0.902)
pt3dadd(160.244, 109.68, 12.95, 0.9)
pt3dadd(160.361, 109.68, 12.929, 0.886)
pt3dadd(160.478, 109.68, 12.907, 0.874)
pt3dadd(160.596, 109.68, 12.886, 0.86)
pt3dadd(160.712, 109.68, 12.865, 0.846)
pt3dadd(160.83, 109.68, 12.843, 0.832)
pt3dadd(160.948, 109.68, 12.822, 0.818)
pt3dadd(161.065, 109.68, 12.8, 0.804)
pt3dadd(161.182, 109.68, 12.779, 0.79)
pt3dadd(161.299, 109.68, 12.758, 0.776)
pt3dadd(161.414, 109.68, 12.731, 0.754)
pt3dadd(161.525, 109.68, 12.692, 0.714)
pt3dadd(161.636, 109.68, 12.654, 0.674)
pt3dadd(161.747, 109.68, 12.616, 0.632)
pt3dadd(161.857, 109.68, 12.577, 0.592)
pt3dadd(161.969, 109.68, 12.539, 0.552)
pt3dadd(162.079, 109.68, 12.501, 0.512)
pt3dadd(162.19, 109.68, 12.462, 0.472)
pt3dadd(162.301, 109.68, 12.424, 0.432)
pt3dadd(162.412, 109.68, 12.386, 0.392)
pt3dadd(162.523, 109.68, 12.35, 0.36)
pt3dadd(162.637, 109.68, 12.319, 0.346)
pt3dadd(162.752, 109.68, 12.288, 0.332)
pt3dadd(162.866, 109.68, 12.257, 0.318)
pt3dadd(162.98, 109.68, 12.227, 0.304)
pt3dadd(163.094, 109.68, 12.196, 0.29)
pt3dadd(163.208, 109.68, 12.165, 0.278)
pt3dadd(163.322, 109.68, 12.134, 0.264)
pt3dadd(163.436, 109.68, 12.104, 0.25)
pt3dadd(163.552, 109.68, 12.073, 0.236)
pt3dadd(163.666, 109.68, 12.043, 0.226)
pt3dadd(163.782, 109.68, 12.017, 0.226)
pt3dadd(163.897, 109.68, 11.991, 0.226)
pt3dadd(164.014, 109.68, 11.964, 0.226)
pt3dadd(164.129, 109.68, 11.938, 0.226)
pt3dadd(164.244, 109.681, 11.911, 0.226)
pt3dadd(164.36, 109.681, 11.885, 0.226)
pt3dadd(164.476, 109.681, 11.859, 0.226)
pt3dadd(164.592, 109.681, 11.832, 0.226)
pt3dadd(164.707, 109.681, 11.806, 0.226)
pt3dadd(164.824, 109.681, 11.782, 0.226)
pt3dadd(164.942, 109.681, 11.764, 0.226)
pt3dadd(165.06, 109.681, 11.746, 0.226)
pt3dadd(165.178, 109.682, 11.728, 0.226)
pt3dadd(165.296, 109.682, 11.71, 0.226)
pt3dadd(165.414, 109.682, 11.691, 0.226)
pt3dadd(165.532, 109.682, 11.673, 0.226)
pt3dadd(165.65, 109.682, 11.655, 0.226)
pt3dadd(165.768, 109.682, 11.637, 0.226)
pt3dadd(165.886, 109.682, 11.619, 0.226)
pt3dadd(166.004, 109.682, 11.602, 0.226)
pt3dadd(166.123, 109.682, 11.586, 0.226)
pt3dadd(166.241, 109.682, 11.571, 0.226)
pt3dadd(166.36, 109.682, 11.555, 0.226)
pt3dadd(166.478, 109.682, 11.54, 0.226)
pt3dadd(166.597, 109.682, 11.524, 0.226)
pt3dadd(166.716, 109.682, 11.509, 0.226)
pt3dadd(166.834, 109.682, 11.493, 0.226)
pt3dadd(166.952, 109.682, 11.478, 0.226)
pt3dadd(167.071, 109.682, 11.462, 0.226)
pt3dadd(167.19, 109.682, 11.448, 0.226)
pt3dadd(167.309, 109.683, 11.436, 0.226)
pt3dadd(167.428, 109.683, 11.423, 0.226)
pt3dadd(167.548, 109.683, 11.411, 0.226)
pt3dadd(167.666, 109.683, 11.399, 0.226)
pt3dadd(167.785, 109.683, 11.387, 0.226)
pt3dadd(167.905, 109.683, 11.375, 0.226)
pt3dadd(168.024, 109.683, 11.362, 0.226)
pt3dadd(168.143, 109.683, 11.35, 0.226)
pt3dadd(168.262, 109.683, 11.338, 0.226)
pt3dadd(168.379, 109.684, 11.318, 0.226)
pt3dadd(168.491, 109.684, 11.283, 0.226)
pt3dadd(168.604, 109.684, 11.248, 0.226)
pt3dadd(168.716, 109.684, 11.213, 0.226)
pt3dadd(168.828, 109.685, 11.178, 0.226)
pt3dadd(168.941, 109.685, 11.142, 0.226)
pt3dadd(169.052, 109.685, 11.107, 0.226)
pt3dadd(169.165, 109.685, 11.072, 0.226)
pt3dadd(169.278, 109.686, 11.037, 0.226)
pt3dadd(169.39, 109.686, 11.002, 0.226)
pt3dadd(169.502, 109.686, 10.967, 0.226)
pt3dadd(169.614, 109.686, 10.93, 0.23)
pt3dadd(169.726, 109.687, 10.894, 0.232)
pt3dadd(169.837, 109.687, 10.858, 0.234)
pt3dadd(169.95, 109.687, 10.822, 0.238)
pt3dadd(170.062, 109.687, 10.785, 0.24)
pt3dadd(170.173, 109.688, 10.749, 0.242)
pt3dadd(170.285, 109.688, 10.713, 0.244)
pt3dadd(170.396, 109.688, 10.677, 0.248)
pt3dadd(170.509, 109.688, 10.641, 0.25)
pt3dadd(170.622, 109.689, 10.608, 0.256)
pt3dadd(170.738, 109.689, 10.582, 0.27)
pt3dadd(170.854, 109.69, 10.555, 0.284)
pt3dadd(170.969, 109.69, 10.529, 0.298)
pt3dadd(171.085, 109.691, 10.502, 0.312)
pt3dadd(171.2, 109.692, 10.475, 0.326)
pt3dadd(171.317, 109.692, 10.449, 0.34)
pt3dadd(171.432, 109.693, 10.422, 0.354)
pt3dadd(171.547, 109.693, 10.396, 0.368)
pt3dadd(171.664, 109.694, 10.369, 0.382)
pt3dadd(171.78, 109.695, 10.344, 0.394)
pt3dadd(171.896, 109.696, 10.323, 0.4)
pt3dadd(172.014, 109.697, 10.301, 0.406)
pt3dadd(172.132, 109.698, 10.279, 0.412)
pt3dadd(172.248, 109.699, 10.258, 0.418)
pt3dadd(172.366, 109.7, 10.236, 0.424)
pt3dadd(172.482, 109.701, 10.214, 0.43)
pt3dadd(172.6, 109.701, 10.193, 0.436)
pt3dadd(172.717, 109.702, 10.171, 0.442)
pt3dadd(172.834, 109.703, 10.149, 0.448)
pt3dadd(172.951, 109.704, 10.129, 0.452)
}
}
proc shape3d_196() {
dend_7[48] { pt3dadd(173.07, 109.706, 10.111, 0.452)
pt3dadd(173.188, 109.707, 10.093, 0.452)
pt3dadd(173.305, 109.708, 10.075, 0.452)
pt3dadd(173.424, 109.709, 10.058, 0.452)
pt3dadd(173.542, 109.71, 10.04, 0.452)
pt3dadd(173.659, 109.712, 10.022, 0.452)
pt3dadd(173.778, 109.713, 10.004, 0.452)
pt3dadd(173.896, 109.714, 9.986, 0.452)
pt3dadd(174.014, 109.715, 9.968, 0.452)
pt3dadd(174.132, 109.717, 9.953, 0.452)
pt3dadd(174.252, 109.719, 9.941, 0.452)
pt3dadd(174.371, 109.722, 9.93, 0.452)
pt3dadd(174.49, 109.724, 9.918, 0.452)
pt3dadd(174.61, 109.727, 9.906, 0.452)
pt3dadd(174.728, 109.729, 9.894, 0.452)
pt3dadd(174.847, 109.731, 9.883, 0.452)
pt3dadd(174.966, 109.734, 9.871, 0.452)
pt3dadd(175.086, 109.736, 9.859, 0.452)
pt3dadd(175.205, 109.739, 9.848, 0.452)
pt3dadd(175.324, 109.742, 9.832, 0.45)
pt3dadd(175.44, 109.745, 9.81, 0.444)
pt3dadd(175.558, 109.749, 9.788, 0.438)
pt3dadd(175.674, 109.753, 9.766, 0.434)
pt3dadd(175.792, 109.757, 9.743, 0.428)
pt3dadd(175.908, 109.761, 9.721, 0.422)
pt3dadd(176.024, 109.765, 9.699, 0.418)
pt3dadd(176.142, 109.769, 9.677, 0.412)
pt3dadd(176.258, 109.773, 9.655, 0.406)
pt3dadd(176.376, 109.776, 9.633, 0.4)
pt3dadd(176.49, 109.781, 9.604, 0.392)
pt3dadd(176.602, 109.787, 9.567, 0.378)
pt3dadd(176.713, 109.793, 9.53, 0.364)
pt3dadd(176.824, 109.798, 9.492, 0.352)
pt3dadd(176.935, 109.804, 9.455, 0.338)
pt3dadd(177.047, 109.81, 9.418, 0.324)
pt3dadd(177.157, 109.816, 9.381, 0.31)
pt3dadd(177.269, 109.821, 9.344, 0.298)
pt3dadd(177.38, 109.827, 9.307, 0.284)
pt3dadd(177.492, 109.833, 9.269, 0.27)
pt3dadd(177.605, 109.84, 9.237, 0.272)
pt3dadd(177.72, 109.848, 9.209, 0.288)
pt3dadd(177.834, 109.857, 9.182, 0.304)
pt3dadd(177.949, 109.865, 9.154, 0.322)
pt3dadd(178.064, 109.873, 9.126, 0.338)
pt3dadd(178.18, 109.882, 9.099, 0.354)
pt3dadd(178.295, 109.89, 9.071, 0.37)
pt3dadd(178.41, 109.898, 9.043, 0.386)
pt3dadd(178.525, 109.906, 9.015, 0.404)
pt3dadd(178.639, 109.915, 8.988, 0.42)
pt3dadd(178.756, 109.925, 8.963, 0.438)
pt3dadd(178.872, 109.937, 8.94, 0.462)
pt3dadd(178.988, 109.949, 8.918, 0.484)
pt3dadd(179.104, 109.962, 8.895, 0.506)
pt3dadd(179.22, 109.974, 8.872, 0.528)
pt3dadd(179.336, 109.986, 8.85, 0.55)
pt3dadd(179.453, 109.998, 8.827, 0.572)
pt3dadd(179.569, 110.01, 8.805, 0.594)
pt3dadd(179.686, 110.022, 8.782, 0.616)
pt3dadd(179.802, 110.034, 8.76, 0.638)
pt3dadd(179.917, 110.059, 8.744, 0.634)
pt3dadd(180.031, 110.095, 8.733, 0.606)
pt3dadd(180.145, 110.13, 8.722, 0.578)
pt3dadd(180.258, 110.166, 8.712, 0.552)
pt3dadd(180.372, 110.201, 8.701, 0.524)
pt3dadd(180.486, 110.237, 8.691, 0.496)
pt3dadd(180.6, 110.272, 8.68, 0.468)
pt3dadd(180.714, 110.308, 8.67, 0.442)
pt3dadd(180.828, 110.343, 8.659, 0.414)
pt3dadd(180.942, 110.379, 8.649, 0.386)
pt3dadd(181.058, 110.408, 8.641, 0.374)
pt3dadd(181.175, 110.433, 8.635, 0.372)
pt3dadd(181.292, 110.457, 8.629, 0.37)
pt3dadd(181.41, 110.482, 8.623, 0.368)
pt3dadd(181.526, 110.506, 8.618, 0.368)
pt3dadd(181.644, 110.53, 8.612, 0.366)
pt3dadd(181.762, 110.555, 8.606, 0.364)
pt3dadd(181.879, 110.579, 8.601, 0.362)
pt3dadd(181.996, 110.604, 8.595, 0.362)
pt3dadd(182.113, 110.628, 8.589, 0.36)
pt3dadd(182.232, 110.644, 8.587, 0.376)
pt3dadd(182.352, 110.656, 8.587, 0.406)
pt3dadd(182.471, 110.667, 8.587, 0.434)
pt3dadd(182.591, 110.678, 8.587, 0.464)
pt3dadd(182.71, 110.689, 8.587, 0.492)
pt3dadd(182.83, 110.7, 8.587, 0.52)
pt3dadd(182.948, 110.711, 8.587, 0.55)
pt3dadd(183.068, 110.723, 8.587, 0.578)
pt3dadd(183.188, 110.734, 8.587, 0.608)
pt3dadd(183.307, 110.745, 8.587, 0.636)
pt3dadd(183.424, 110.727, 8.587, 0.65)
pt3dadd(183.538, 110.689, 8.586, 0.652)
pt3dadd(183.652, 110.652, 8.586, 0.656)
pt3dadd(183.766, 110.615, 8.586, 0.658)
pt3dadd(183.88, 110.578, 8.586, 0.662)
pt3dadd(183.994, 110.54, 8.586, 0.664)
pt3dadd(184.108, 110.503, 8.586, 0.668)
pt3dadd(184.222, 110.466, 8.586, 0.67)
pt3dadd(184.337, 110.429, 8.586, 0.674)
pt3dadd(184.451, 110.391, 8.586, 0.678)
pt3dadd(184.562, 110.35, 8.586, 0.674)
pt3dadd(184.675, 110.307, 8.586, 0.668)
pt3dadd(184.787, 110.264, 8.586, 0.662)
pt3dadd(184.898, 110.221, 8.586, 0.656)
pt3dadd(185.011, 110.178, 8.586, 0.65)
pt3dadd(185.123, 110.135, 8.586, 0.644)
pt3dadd(185.234, 110.092, 8.585, 0.638)
pt3dadd(185.347, 110.049, 8.585, 0.632)
pt3dadd(185.459, 110.006, 8.585, 0.626)
pt3dadd(185.572, 109.963, 8.585, 0.62)
pt3dadd(185.682, 109.918, 8.585, 0.598)
pt3dadd(185.794, 109.874, 8.585, 0.572)
pt3dadd(185.905, 109.829, 8.585, 0.546)
pt3dadd(186.017, 109.784, 8.585, 0.518)
pt3dadd(186.128, 109.739, 8.585, 0.492)
pt3dadd(186.239, 109.695, 8.585, 0.464)
pt3dadd(186.35, 109.65, 8.584, 0.438)
pt3dadd(186.462, 109.605, 8.584, 0.41)
pt3dadd(186.574, 109.56, 8.584, 0.384)
pt3dadd(186.685, 109.516, 8.584, 0.358)
pt3dadd(186.793, 109.464, 8.584, 0.34)
pt3dadd(186.9, 109.41, 8.584, 0.328)
pt3dadd(187.007, 109.356, 8.583, 0.316)
pt3dadd(187.114, 109.301, 8.583, 0.304)
pt3dadd(187.22, 109.247, 8.583, 0.292)
pt3dadd(187.328, 109.192, 8.583, 0.278)
pt3dadd(187.435, 109.138, 8.583, 0.266)
pt3dadd(187.542, 109.084, 8.582, 0.254)
pt3dadd(187.649, 109.029, 8.582, 0.242)
pt3dadd(187.756, 108.975, 8.582, 0.23)
pt3dadd(187.86, 108.915, 8.582, 0.226)
pt3dadd(187.962, 108.853, 8.582, 0.226)
pt3dadd(188.065, 108.791, 8.581, 0.226)
pt3dadd(188.167, 108.729, 8.581, 0.226)
pt3dadd(188.27, 108.666, 8.581, 0.226)
pt3dadd(188.372, 108.604, 8.58, 0.226)
pt3dadd(188.476, 108.542, 8.58, 0.226)
pt3dadd(188.579, 108.48, 8.58, 0.226)
pt3dadd(188.681, 108.418, 8.58, 0.226)
pt3dadd(188.784, 108.356, 8.58, 0.226)
pt3dadd(188.891, 108.302, 8.579, 0.226)
pt3dadd(189, 108.252, 8.579, 0.226)
pt3dadd(189.108, 108.201, 8.578, 0.226)
pt3dadd(189.217, 108.151, 8.578, 0.226)
pt3dadd(189.326, 108.1, 8.577, 0.226)
pt3dadd(189.436, 108.05, 8.577, 0.226)
pt3dadd(189.544, 107.999, 8.576, 0.226)
pt3dadd(189.653, 107.949, 8.576, 0.226)
pt3dadd(189.762, 107.898, 8.575, 0.226)
pt3dadd(189.87, 107.848, 8.575, 0.226)
pt3dadd(189.98, 107.8, 8.574, 0.226)
pt3dadd(190.092, 107.754, 8.573, 0.228)
pt3dadd(190.202, 107.708, 8.573, 0.228)
pt3dadd(190.313, 107.662, 8.572, 0.228)
pt3dadd(190.423, 107.615, 8.572, 0.23)
pt3dadd(190.535, 107.569, 8.571, 0.23)
pt3dadd(190.645, 107.523, 8.57, 0.23)
pt3dadd(190.756, 107.477, 8.57, 0.232)
pt3dadd(190.866, 107.43, 8.569, 0.232)
pt3dadd(190.978, 107.384, 8.568, 0.234)
pt3dadd(191.081, 107.325, 8.568, 0.252)
pt3dadd(191.183, 107.261, 8.566, 0.276)
pt3dadd(191.285, 107.198, 8.565, 0.302)
pt3dadd(191.387, 107.134, 8.564, 0.326)
pt3dadd(191.489, 107.071, 8.563, 0.35)
pt3dadd(191.591, 107.007, 8.561, 0.376)
pt3dadd(191.693, 106.944, 8.56, 0.4)
pt3dadd(191.794, 106.881, 8.559, 0.424)
pt3dadd(191.896, 106.817, 8.558, 0.45)
pt3dadd(191.998, 106.754, 8.557, 0.474)
pt3dadd(192.101, 106.692, 8.555, 0.492)
pt3dadd(192.204, 106.631, 8.554, 0.51)
pt3dadd(192.307, 106.57, 8.552, 0.528)
pt3dadd(192.41, 106.509, 8.551, 0.544)
pt3dadd(192.514, 106.448, 8.549, 0.562)
pt3dadd(192.617, 106.387, 8.548, 0.58)
pt3dadd(192.72, 106.326, 8.546, 0.596)
pt3dadd(192.824, 106.265, 8.545, 0.614)
pt3dadd(192.928, 106.204, 8.543, 0.632)
pt3dadd(193.031, 106.143, 8.542, 0.648)
pt3dadd(193.139, 106.09, 8.54, 0.642)
pt3dadd(193.247, 106.04, 8.537, 0.63)
pt3dadd(193.356, 105.99, 8.535, 0.616)
pt3dadd(193.465, 105.94, 8.532, 0.602)
pt3dadd(193.574, 105.889, 8.529, 0.59)
pt3dadd(193.682, 105.839, 8.527, 0.576)
pt3dadd(193.792, 105.789, 8.524, 0.564)
pt3dadd(193.901, 105.739, 8.521, 0.55)
pt3dadd(194.01, 105.689, 8.519, 0.536)
pt3dadd(194.119, 105.638, 8.516, 0.524)
pt3dadd(194.224, 105.581, 8.512, 0.516)
pt3dadd(194.329, 105.522, 8.508, 0.508)
pt3dadd(194.434, 105.464, 8.504, 0.502)
pt3dadd(194.538, 105.405, 8.5, 0.494)
pt3dadd(194.642, 105.346, 8.496, 0.488)
pt3dadd(194.747, 105.287, 8.492, 0.48)
pt3dadd(194.851, 105.228, 8.487, 0.474)
pt3dadd(194.956, 105.169, 8.483, 0.468)
pt3dadd(195.06, 105.111, 8.479, 0.46)
pt3dadd(195.164, 105.052, 8.475, 0.454)
pt3dadd(195.264, 104.986, 8.469, 0.452)
}
}
proc shape3d_197() {
dend_7[48] { pt3dadd(195.362, 104.918, 8.464, 0.452)
pt3dadd(195.462, 104.85, 8.458, 0.452)
pt3dadd(195.56, 104.782, 8.452, 0.452)
pt3dadd(195.659, 104.714, 8.446, 0.452)
pt3dadd(195.758, 104.646, 8.44, 0.452)
pt3dadd(195.857, 104.579, 8.434, 0.452)
pt3dadd(195.955, 104.511, 8.429, 0.452)
pt3dadd(196.055, 104.443, 8.423, 0.452)
pt3dadd(196.153, 104.375, 8.417, 0.452)
pt3dadd(196.249, 104.305, 8.41, 0.458)
pt3dadd(196.345, 104.233, 8.402, 0.464)
pt3dadd(196.441, 104.162, 8.394, 0.472)
pt3dadd(196.537, 104.091, 8.386, 0.478)
pt3dadd(196.633, 104.019, 8.378, 0.484)
pt3dadd(196.729, 103.948, 8.37, 0.492)
pt3dadd(196.825, 103.876, 8.362, 0.498)
pt3dadd(196.921, 103.805, 8.354, 0.506)
pt3dadd(197.017, 103.734, 8.346, 0.512)
pt3dadd(197.113, 103.662, 8.339, 0.52)
pt3dadd(197.208, 103.589, 8.33, 0.53)
pt3dadd(197.302, 103.515, 8.32, 0.542)
pt3dadd(197.396, 103.442, 8.311, 0.552)
pt3dadd(197.49, 103.368, 8.302, 0.564)
pt3dadd(197.584, 103.294, 8.293, 0.576)
pt3dadd(197.678, 103.221, 8.283, 0.588)
pt3dadd(197.772, 103.147, 8.274, 0.598)
pt3dadd(197.867, 103.073, 8.265, 0.61)
pt3dadd(197.96, 103, 8.255, 0.622)
pt3dadd(198.054, 102.926, 8.246, 0.634)
pt3dadd(198.15, 102.859, 8.224, 0.632)
pt3dadd(198.247, 102.794, 8.2, 0.63)
pt3dadd(198.343, 102.729, 8.175, 0.626)
pt3dadd(198.439, 102.664, 8.151, 0.622)
pt3dadd(198.535, 102.598, 8.126, 0.62)
pt3dadd(198.632, 102.533, 8.102, 0.616)
pt3dadd(198.728, 102.468, 8.077, 0.612)
pt3dadd(198.824, 102.403, 8.052, 0.61)
pt3dadd(198.922, 102.337, 8.028, 0.606)
pt3dadd(199.018, 102.272, 8.003, 0.602)
pt3dadd(199.114, 102.212, 7.971, 0.592)
pt3dadd(199.21, 102.153, 7.938, 0.58)
pt3dadd(199.307, 102.093, 7.905, 0.568)
pt3dadd(199.403, 102.034, 7.871, 0.556)
pt3dadd(199.499, 101.975, 7.838, 0.544)
pt3dadd(199.596, 101.915, 7.805, 0.532)
pt3dadd(199.692, 101.856, 7.772, 0.52)
pt3dadd(199.788, 101.796, 7.739, 0.508)
pt3dadd(199.885, 101.737, 7.706, 0.496)
pt3dadd(199.981, 101.678, 7.672, 0.484)
pt3dadd(200.075, 101.608, 7.648, 0.488)
pt3dadd(200.167, 101.538, 7.624, 0.494)
pt3dadd(200.26, 101.467, 7.6, 0.5)
pt3dadd(200.353, 101.397, 7.577, 0.506)
pt3dadd(200.446, 101.327, 7.553, 0.512)
pt3dadd(200.539, 101.256, 7.53, 0.518)
pt3dadd(200.632, 101.186, 7.506, 0.522)
pt3dadd(200.725, 101.115, 7.482, 0.528)
pt3dadd(200.818, 101.045, 7.459, 0.534)
pt3dadd(200.91, 100.974, 7.435, 0.54)
pt3dadd(201.002, 100.901, 7.414, 0.552)
pt3dadd(201.094, 100.827, 7.394, 0.564)
pt3dadd(201.185, 100.753, 7.374, 0.576)
pt3dadd(201.276, 100.679, 7.354, 0.588)
pt3dadd(201.367, 100.605, 7.333, 0.6)
pt3dadd(201.458, 100.531, 7.313, 0.612)
pt3dadd(201.55, 100.457, 7.293, 0.624)
pt3dadd(201.641, 100.383, 7.273, 0.636)
pt3dadd(201.733, 100.309, 7.252, 0.648)
pt3dadd(201.824, 100.235, 7.232, 0.66)
pt3dadd(201.91, 100.153, 7.221, 0.642)
pt3dadd(201.996, 100.07, 7.21, 0.624)
pt3dadd(202.081, 99.987, 7.199, 0.608)
pt3dadd(202.166, 99.903, 7.189, 0.59)
pt3dadd(202.252, 99.82, 7.178, 0.572)
pt3dadd(202.338, 99.737, 7.167, 0.554)
pt3dadd(202.423, 99.654, 7.157, 0.536)
pt3dadd(202.508, 99.571, 7.146, 0.518)
pt3dadd(202.595, 99.488, 7.135, 0.5)
pt3dadd(202.68, 99.404, 7.124, 0.482)
pt3dadd(202.764, 99.32, 7.115, 0.458)
pt3dadd(202.848, 99.235, 7.106, 0.436)
pt3dadd(202.933, 99.15, 7.097, 0.412)
pt3dadd(203.017, 99.065, 7.089, 0.388)
pt3dadd(203.101, 98.98, 7.08, 0.366)
pt3dadd(203.185, 98.896, 7.071, 0.342)
pt3dadd(203.269, 98.811, 7.062, 0.32)
pt3dadd(203.353, 98.726, 7.053, 0.296)
pt3dadd(203.438, 98.641, 7.044, 0.272)
pt3dadd(203.522, 98.556, 7.035, 0.25)
pt3dadd(203.587, 98.455, 7.034, 0.246)
pt3dadd(203.651, 98.354, 7.033, 0.244)
pt3dadd(203.714, 98.252, 7.032, 0.242)
pt3dadd(203.778, 98.151, 7.031, 0.24)
pt3dadd(203.842, 98.049, 7.03, 0.238)
pt3dadd(203.905, 97.947, 7.029, 0.236)
pt3dadd(203.969, 97.845, 7.029, 0.232)
pt3dadd(204.034, 97.744, 7.028, 0.23)
pt3dadd(204.097, 97.642, 7.027, 0.228)
pt3dadd(204.161, 97.541, 7.026, 0.226)
pt3dadd(204.223, 97.438, 7.026, 0.228)
pt3dadd(204.286, 97.336, 7.026, 0.23)
pt3dadd(204.348, 97.233, 7.026, 0.234)
pt3dadd(204.41, 97.131, 7.026, 0.236)
pt3dadd(204.473, 97.028, 7.026, 0.238)
pt3dadd(204.535, 96.926, 7.026, 0.242)
pt3dadd(204.598, 96.823, 7.026, 0.244)
pt3dadd(204.66, 96.721, 7.026, 0.246)
pt3dadd(204.722, 96.618, 7.026, 0.25)
pt3dadd(204.785, 96.516, 7.026, 0.252)
pt3dadd(204.856, 96.419, 7.026, 0.276)
pt3dadd(204.926, 96.322, 7.026, 0.302)
pt3dadd(204.997, 96.225, 7.026, 0.328)
pt3dadd(205.068, 96.128, 7.026, 0.354)
pt3dadd(205.139, 96.031, 7.026, 0.38)
pt3dadd(205.21, 95.934, 7.026, 0.404)
pt3dadd(205.28, 95.837, 7.026, 0.43)
pt3dadd(205.351, 95.74, 7.026, 0.456)
pt3dadd(205.421, 95.643, 7.026, 0.482)
pt3dadd(205.492, 95.546, 7.026, 0.508)
pt3dadd(205.566, 95.452, 7.026, 0.518)
pt3dadd(205.64, 95.357, 7.026, 0.528)
pt3dadd(205.714, 95.263, 7.026, 0.54)
pt3dadd(205.788, 95.168, 7.026, 0.55)
pt3dadd(205.862, 95.074, 7.026, 0.56)
pt3dadd(205.936, 94.98, 7.026, 0.57)
pt3dadd(206.01, 94.885, 7.026, 0.582)
pt3dadd(206.084, 94.791, 7.026, 0.592)
pt3dadd(206.159, 94.696, 7.026, 0.602)
pt3dadd(206.232, 94.602, 7.026, 0.614)
pt3dadd(206.312, 94.512, 7.026, 0.594)
pt3dadd(206.393, 94.423, 7.026, 0.574)
pt3dadd(206.473, 94.334, 7.026, 0.556)
pt3dadd(206.554, 94.245, 7.026, 0.536)
pt3dadd(206.634, 94.155, 7.026, 0.516)
pt3dadd(206.713, 94.066, 7.026, 0.498)
pt3dadd(206.794, 93.977, 7.026, 0.478)
pt3dadd(206.874, 93.888, 7.026, 0.458)
pt3dadd(206.954, 93.799, 7.026, 0.44)
pt3dadd(207.035, 93.709, 7.026, 0.42)
pt3dadd(207.115, 93.62, 7.026, 0.4)
pt3dadd(207.196, 93.531, 7.026, 0.382)
pt3dadd(207.276, 93.442, 7.026, 0.362)
pt3dadd(207.356, 93.353, 7.026, 0.342)
pt3dadd(207.436, 93.264, 7.026, 0.322)
pt3dadd(207.516, 93.174, 7.026, 0.304)
pt3dadd(207.596, 93.085, 7.026, 0.284)
pt3dadd(207.677, 92.996, 7.026, 0.264)
pt3dadd(207.757, 92.907, 7.026, 0.246)
pt3dadd(207.838, 92.818, 7.026, 0.226)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
shape3d_8()
shape3d_9()
shape3d_10()
shape3d_11()
shape3d_12()
shape3d_13()
shape3d_14()
shape3d_15()
shape3d_16()
shape3d_17()
shape3d_18()
shape3d_19()
shape3d_20()
shape3d_21()
shape3d_22()
shape3d_23()
shape3d_24()
shape3d_25()
shape3d_26()
shape3d_27()
shape3d_28()
shape3d_29()
shape3d_30()
shape3d_31()
shape3d_32()
shape3d_33()
shape3d_34()
shape3d_35()
shape3d_36()
shape3d_37()
shape3d_38()
shape3d_39()
shape3d_40()
shape3d_41()
shape3d_42()
shape3d_43()
shape3d_44()
shape3d_45()
shape3d_46()
shape3d_47()
shape3d_48()
shape3d_49()
shape3d_50()
shape3d_51()
shape3d_52()
shape3d_53()
shape3d_54()
shape3d_55()
shape3d_56()
shape3d_57()
shape3d_58()
shape3d_59()
shape3d_60()
shape3d_61()
shape3d_62()
shape3d_63()
shape3d_64()
shape3d_65()
shape3d_66()
shape3d_67()
shape3d_68()
shape3d_69()
shape3d_70()
shape3d_71()
shape3d_72()
shape3d_73()
shape3d_74()
shape3d_75()
shape3d_76()
shape3d_77()
shape3d_78()
shape3d_79()
shape3d_80()
shape3d_81()
shape3d_82()
shape3d_83()
shape3d_84()
shape3d_85()
shape3d_86()
shape3d_87()
shape3d_88()
shape3d_89()
shape3d_90()
shape3d_91()
shape3d_92()
shape3d_93()
shape3d_94()
shape3d_95()
shape3d_96()
shape3d_97()
shape3d_98()
shape3d_99()
shape3d_100()
basic_shape_1()
}
proc basic_shape_1() {
shape3d_101()
shape3d_102()
shape3d_103()
shape3d_104()
shape3d_105()
shape3d_106()
shape3d_107()
shape3d_108()
shape3d_109()
shape3d_110()
shape3d_111()
shape3d_112()
shape3d_113()
shape3d_114()
shape3d_115()
shape3d_116()
shape3d_117()
shape3d_118()
shape3d_119()
shape3d_120()
shape3d_121()
shape3d_122()
shape3d_123()
shape3d_124()
shape3d_125()
shape3d_126()
shape3d_127()
shape3d_128()
shape3d_129()
shape3d_130()
shape3d_131()
shape3d_132()
shape3d_133()
shape3d_134()
shape3d_135()
shape3d_136()
shape3d_137()
shape3d_138()
shape3d_139()
shape3d_140()
shape3d_141()
shape3d_142()
shape3d_143()
shape3d_144()
shape3d_145()
shape3d_146()
shape3d_147()
shape3d_148()
shape3d_149()
shape3d_150()
shape3d_151()
shape3d_152()
shape3d_153()
shape3d_154()
shape3d_155()
shape3d_156()
shape3d_157()
shape3d_158()
shape3d_159()
shape3d_160()
shape3d_161()
shape3d_162()
shape3d_163()
shape3d_164()
shape3d_165()
shape3d_166()
shape3d_167()
shape3d_168()
shape3d_169()
shape3d_170()
shape3d_171()
shape3d_172()
shape3d_173()
shape3d_174()
shape3d_175()
shape3d_176()
shape3d_177()
shape3d_178()
shape3d_179()
shape3d_180()
shape3d_181()
shape3d_182()
shape3d_183()
shape3d_184()
shape3d_185()
shape3d_186()
shape3d_187()
shape3d_188()
shape3d_189()
shape3d_190()
shape3d_191()
shape3d_192()
shape3d_193()
shape3d_194()
shape3d_195()
shape3d_196()
shape3d_197()
}
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, 7 dend_0[i] all.append()
for i=0, 49 apic[i] all.append()
for i=0, 18 dend_5[i] all.append()
for i=0, 48 dend_7[i] all.append()
dendritic_0 = new SectionList()
for i=0, 7 dend_0[i] dendritic_0.append()
somatic = new SectionList()
soma somatic.append()
apical = new SectionList()
for i=0, 49 apic[i] apical.append()
dendritic_5 = new SectionList()
for i=0, 18 dend_5[i] dendritic_5.append()
dendritic_7 = new SectionList()
for i=0, 48 dend_7[i] dendritic_7.append()
}
proc geom() {
}
proc geom_nseg() {
}
proc biophys() {
}
access soma
celldef()